metafor/0000755000176200001440000000000015173363332011715 5ustar liggesusersmetafor/tests/0000755000176200001440000000000013150625652013056 5ustar liggesusersmetafor/tests/testthat/0000755000176200001440000000000015173363331014716 5ustar liggesusersmetafor/tests/testthat/test_plots_baujat_plot.r0000644000176200001440000000215614762055307021675 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:baujat_plot source("settings.r") context("Checking plots example: Baujat plot") test_that("plot can be drawn.", { skip_on_cran() doplot <- function() { par(mar=c(5,4,2,2)) dat <- dat.pignon2000 dat$yi <- with(dat, OmE/V) dat$vi <- with(dat, 1/V) res <- rma(yi, vi, data=dat, method="EE", slab=id) baujat(res, xlim=c(0,20), ylim=c(0,0.2), bty="l", las=1) } png("images/test_plots_baujat_plot_light_test.png", res=200, width=1800, height=1800, type="cairo") doplot() dev.off() expect_true(.vistest("images/test_plots_baujat_plot_light_test.png", "images/test_plots_baujat_plot_light.png")) png("images/test_plots_baujat_plot_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") doplot() setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_baujat_plot_dark_test.png", "images/test_plots_baujat_plot_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_vanhouwelingen2002.r0000644000176200001440000002543715104353541025122 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:vanhouwelingen2002 context("Checking analysis example: vanhouwelingen2002") source("settings.r") ### load data dat <- dat.colditz1994 ### calculate log(OR)s and corresponding sampling variances dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) ### 'center' year variable dat$year <- dat$year - 1900 test_that("results for the equal-effects model are correct.", { res <- rma(yi, vi, data=dat, method="EE") tmp <- predict(res, transf=exp, digits=3) ### compare with results on page 596 (in text) expect_equivalent(tmp$pred, .6465, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, .5951, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, .7024, tolerance=.tol[["ci"]]) ### .703 in paper }) test_that("results for the random-effects model are correct.", { res <- rma(yi, vi, data=dat, method="ML") tmp <- predict(res, transf=exp, digits=3) ### compare with results on page 597 (in text) expect_equivalent(tmp$pred, .4762, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, .3360, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, .6749, tolerance=.tol[["ci"]]) expect_equivalent(res$tau2, .3025, tolerance=.tol[["var"]]) ### CI for tau^2 (profile likelihood method) tmp <- confint(res, type="PL") expect_equivalent(tmp$random[1,2], 0.1151, tolerance=.tol[["var"]]) expect_equivalent(tmp$random[1,3], 0.8937, tolerance=.tol[["var"]]) ### CI for tau^2 (Q-profile method) tmp <- confint(res) expect_equivalent(tmp$random[1,2], 0.1302, tolerance=.tol[["var"]]) ### 0.1350 based on a Satterthwaite approximation (page 597) expect_equivalent(tmp$random[1,3], 1.1812, tolerance=.tol[["var"]]) ### 1.1810 based on a Satterthwaite approximation (page 597) ### CI for mu with Knapp & Hartung method res <- rma(yi, vi, data=dat, method="ML", test="knha") tmp <- predict(res, transf=exp, digits=3) ### (results for this not given in paper) expect_equivalent(tmp$ci.lb, .3175, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, .7141, tolerance=.tol[["ci"]]) }) test_that("profile plot for tau^2 can be drawn.", { skip_on_cran() res <- rma(yi, vi, data=dat, method="ML") png(filename="images/test_analysis_example_vanhouwelingen2002_profile_test.png", res=200, width=1800, height=1600, type="cairo") profile(res, xlim=c(0.01,2), steps=200, log="x", cex=0, lwd=2, cline=TRUE, progbar=FALSE) abline(v=c(0.1151, 0.8937), lty="dotted") dev.off() expect_true(.vistest("images/test_analysis_example_vanhouwelingen2002_profile_test.png", "images/test_analysis_example_vanhouwelingen2002_profile.png")) }) test_that("forest plot of observed log(OR)s and corresponding BLUPs can be drawn.", { skip_on_cran() res <- rma(yi, vi, data=dat, method="ML") sav <- blup(res) png(filename="images/test_analysis_example_vanhouwelingen2002_forest_light_test.png", res=200, width=1800, height=1400, family="mono") par(mar=c(5,5,2,2)) forest(res, refline=res$b, addcred=TRUE, xlim=c(-7,7), alim=c(-3,3), slab=1:13, psize=0.8, ilab=paste0("(n = ", formatC(apply(dat[,c(4:7)], 1, sum), width=7, big.mark=","), ")"), ilab.xpos=-3.5, ilab.pos=2, rows=13:1+0.15, header="Trial (total n)", lty="dashed") arrows(sav$pi.lb, 13:1 - 0.15, sav$pi.ub, 13:1 - 0.15, length=0.035, angle=90, code=3) points(sav$pred, 13:1 - 0.15, pch=15, cex=0.8) dev.off() expect_true(.vistest("images/test_analysis_example_vanhouwelingen2002_forest_light_test.png", "images/test_analysis_example_vanhouwelingen2002_forest_light.png")) png(filename="images/test_analysis_example_vanhouwelingen2002_forest_dark_test.png", res=200, width=1800, height=1400, family="mono") setmfopt(theme="dark") par(mar=c(5,5,2,2)) forest(res, refline=res$b, addcred=TRUE, xlim=c(-7,7), alim=c(-3,3), slab=1:13, psize=0.8, ilab=paste0("(n = ", formatC(apply(dat[,c(4:7)], 1, sum), width=7, big.mark=","), ")"), ilab.xpos=-3.5, ilab.pos=2, rows=13:1+0.15, header="Trial (total n)", lty="dashed") arrows(sav$pi.lb, 13:1 - 0.15, sav$pi.ub, 13:1 - 0.15, length=0.035, angle=90, code=3) points(sav$pred, 13:1 - 0.15, pch=15, cex=0.8) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_vanhouwelingen2002_forest_dark_test.png", "images/test_analysis_example_vanhouwelingen2002_forest_dark.png")) }) test_that("the prediction interval is correct.", { res <- rma(yi, vi, data=dat, method="ML") ### computation as done in the paper tmp <- c(res$beta) + c(-1,+1) * qnorm(.975) * sqrt(res$tau2) ### compare with results on page 599 (in text) expect_equivalent(tmp, c(-1.8199, 0.3359), tolerance=.tol[["ci"]]) ### computation done with metafor tmp <- predict(res, digits=3) ### (results for this not given in paper) expect_equivalent(tmp$pi.lb, -1.875, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, 0.391, tolerance=.tol[["ci"]]) }) test_that("L'Abbe plot can be drawn.", { skip_on_cran() res <- rma(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, method="EE") png(filename="images/test_analysis_example_vanhouwelingen2002_labbe_light_test.png", res=200, width=1800, height=1400, type="cairo") par(mar=c(5,5,1,2)) labbe(res, xlim=c(-7,-1), ylim=c(-7,-1), xlab="ln(odds) not-vaccinated group", ylab="ln(odds) vaccinated group") dev.off() expect_true(.vistest("images/test_analysis_example_vanhouwelingen2002_labbe_light_test.png", "images/test_analysis_example_vanhouwelingen2002_labbe_light.png")) png(filename="images/test_analysis_example_vanhouwelingen2002_labbe_dark_test.png", res=200, width=1800, height=1400, type="cairo") setmfopt(theme="dark") par(mar=c(5,5,1,2)) labbe(res, xlim=c(-7,-1), ylim=c(-7,-1), xlab="ln(odds) not-vaccinated group", ylab="ln(odds) vaccinated group") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_vanhouwelingen2002_labbe_dark_test.png", "images/test_analysis_example_vanhouwelingen2002_labbe_dark.png")) }) ############################################################################ ### create dataset in long format dat.long <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.colditz1994) dat.long <- escalc(measure="PLO", xi=out1, mi=out2, data=dat.long) dat.long$tpos <- dat.long$tneg <- dat.long$cpos <- dat.long$cneg <- NULL levels(dat.long$group) <- c("CON", "EXP") test_that("results for the bivariate model are correct.", { res <- rma.mv(yi, vi, mods = ~ 0 + group, random = ~ group | trial, struct="UN", data=dat.long, method="ML", sparse=.sparse) ### compare with results on pages 604-605 (in text) expect_equivalent(coef(res), c(-4.0960, -4.8337), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, c(2.4073, 1.4314), tolerance=.tol[["var"]]) expect_equivalent(res$rho, .9467, tolerance=.tol[["cor"]]) ### amount of heterogeneity in log odds ratios tmp <- res$tau2[1] + res$tau2[2] - 2*res$rho*sqrt(res$tau2[1]*res$tau2[2]) expect_equivalent(tmp, 0.3241, tolerance=.tol[["var"]]) tmp <- sum(res$tau2) - 2*res$G[1,2] expect_equivalent(tmp, 0.3241, tolerance=.tol[["var"]]) ### estimated odds ratio with prediction interval pred <- predict(res, newmods=c(-1,1), hetvar=sum(res$tau2) - 2*res$G[1,2], transf=exp) expect_equivalent(pred$pred, 0.4782, tolerance=.tol[["pred"]]) expect_equivalent(pred$ci.lb, 0.3362, tolerance=.tol[["ci"]]) expect_equivalent(pred$ci.ub, 0.6801, tolerance=.tol[["ci"]]) expect_equivalent(pred$pi.lb, 0.1484, tolerance=.tol[["ci"]]) expect_equivalent(pred$pi.ub, 1.5407, tolerance=.tol[["ci"]]) res <- rma.mv(yi, vi, mods = ~ group, random = ~ group | trial, struct="UN", data=dat.long, method="ML", sparse=.sparse) ### compare with results on pages 604-605 (in text) expect_equivalent(coef(res), c(-4.0960, -0.7378), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.4347, 0.1797), tolerance=.tol[["se"]]) ### estimated odds ratio tmp <- predict(res, newmods=1, intercept=FALSE, transf=exp, digits=3) expect_equivalent(tmp$pred, 0.4782, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.3362, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.6801, tolerance=.tol[["ci"]]) ### regression of log(odds)_EXP on log(odds)_CON res <- rma.mv(yi, vi, mods = ~ 0 + group, random = ~ group | trial, struct="UN", data=dat.long, method="ML", sparse=.sparse) reg <- matreg(y=2, x=1, R=res$G, cov=TRUE, means=coef(res), n=res$g.levels.comb.k) expect_equivalent(reg$tab$beta, c(-1.8437, 0.7300), tolerance=.tol[["coef"]]) expect_equivalent(reg$tab$se, c( 0.3265, 0.0749), tolerance=.tol[["se"]]) ### same idea but now use var-cov matrix of tau^2_1, tau_12, tau^2_2 for this res <- rma.mv(yi, vi, mods = ~ 0 + group, random = ~ group | trial, struct="UN", data=dat.long, method="ML", cvvc="varcov", control=list(nearpd=TRUE), sparse=.sparse) reg <- matreg(y=2, x=1, R=res$G, cov=TRUE, means=coef(res), V=res$vvc) expect_equivalent(reg$tab$beta, c(-1.8437, 0.7300), tolerance=.tol[["coef"]]) expect_equivalent(reg$tab$se, c( 0.3548, 0.0866), tolerance=.tol[["se"]]) }) ############################################################################ test_that("results for the meta-regression analyses are correct.", { res <- rma(yi, vi, mods = ~ ablat, data=dat, method="ML") ### compare with results on pages 608-609 (in text) expect_equivalent(coef(res), c(0.3710, -0.0327), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.1061, 0.0034), tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.0040, tolerance=.tol[["var"]]) expect_equivalent(res$R2, 98.6691, tolerance=.tol[["r2"]]) res <- rma.mv(yi, vi, mods = ~ 0 + group + group:I(ablat-33), random = ~ group | trial, struct="UN", data=dat.long, method="ML", sparse=.sparse) ### compare with results on pages 612-613 (in text) expect_equivalent(coef(res), c(-4.1174, -4.8257, 0.0725, 0.0391), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.3061, 0.3129, 0.0219, 0.0224), tolerance=.tol[["se"]]) expect_equivalent(res$tau2, c(1.1819, 1.2262), tolerance=.tol[["var"]]) expect_equivalent(res$rho, 1.0000, tolerance=.tol[["cor"]]) res <- rma.mv(yi, vi, mods = ~ group*I(ablat-33), random = ~ group | trial, struct="UN", data=dat.long, method="ML", sparse=.sparse) ### compare with results on pages 612-613 (in text) expect_equivalent(coef(res), c(-4.1174, -0.7083, 0.0725, -0.0333), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.3061, 0.0481, 0.0219, 0.0028), tolerance=.tol[["se"]]) expect_equivalent(res$tau2, c(1.1819, 1.2262), tolerance=.tol[["var"]]) expect_equivalent(res$rho, 1.0000, tolerance=.tol[["cor"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_to_long_table_wide.r0000644000176200001440000002014714712730603022775 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: to.long() function") source("settings.r") test_that("to.long() works correctly for measure='MD'", { dat <- dat.normand1999 sav <- to.long(measure="MD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) sav <- sav[,c(1,10:13)] expected <- structure(list(study = c(1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L), group = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c("2", "1"), class = "factor"), mean = c(55L, 75L, 27L, 29L, 64L, 119L, 66L, 137L), sd = c(47L, 64L, 7L, 4L, 17L, 29L, 20L, 48L), n = c(155L, 156L, 31L, 32L, 75L, 71L, 18L, 18L)), class = "data.frame", row.names = c(NA, 8L)) expect_equivalent(sav, expected) }) test_that("to.table() works correctly for measure='MD'", { dat <- dat.normand1999 sav <- to.table(measure="MD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) expected <- structure(c(55L, 75L, 47L, 64L, 155L, 156L, 27L, 29L, 7L, 4L, 31L, 32L, 64L, 119L, 17L, 29L, 75L, 71L, 66L, 137L, 20L, 48L, 18L, 18L), .Dim = 2:4, .Dimnames = list(c("Grp1", "Grp2"), c("Mean", "SD", "n"), c("1", "2", "3", "4"))) expect_equivalent(sav, expected) }) test_that("to.long() works correctly for measure='COR'", { dat <- dat.molloy2014 sav <- to.long(measure="COR", ri=ri, ni=ni, data=dat, subset=1:4) sav <- sav[,c(11:13)] expected <- structure(list(study = structure(1:4, .Label = c("1", "2", "3", "4"), class = "factor"), r = c(0.187, 0.162, 0.34, 0.32), n = c(109L, 749L, 55L, 107L)), class = "data.frame", row.names = c(NA, 4L )) expect_equivalent(sav, expected) }) test_that("to.table() works correctly for measure='COR'", { dat <- dat.molloy2014 sav <- to.table(measure="COR", ri=ri, ni=ni, data=dat, subset=1:4) expected <- structure(c(0.187, 109, 0.162, 749, 0.34, 55, 0.32, 107), .Dim = c(1L, 2L, 4L), .Dimnames = list("Grp", c("r", "n"), c("1", "2", "3", "4"))) expect_equivalent(sav, expected) }) test_that("to.long() works correctly for measure='PR'", { dat <- dat.debruin2009 sav <- to.long(measure="PR", xi=xi, ni=ni, data=dat, subset=1:4) sav <- sav[,c(11:13)] expected <- structure(list(study = structure(1:4, .Label = c("1", "2", "3", "4"), class = "factor"), out1 = c(11L, 24L, 179L, 82L), out2 = c(18L, 9L, 147L, 158L)), class = "data.frame", row.names = c(NA, 4L)) expect_equivalent(sav, expected) }) test_that("to.table() works correctly for measure='PR'", { dat <- dat.debruin2009 sav <- to.table(measure="PR", xi=xi, ni=ni, data=dat, subset=1:4) expected <- structure(c(11, 18, 24, 9, 179, 147, 82, 158), .Dim = c(1, 2, 4), .Dimnames = list("Grp", c("Out1", "Out2"), c("1", "2", "3", "4"))) expect_equivalent(sav, expected) }) test_that("to.long() works correctly for measure='IR'", { dat <- dat.hart1999 sav <- to.long(measure="IR", xi=x1i, ti=t1i, data=dat, subset=1:4) sav <- sav[,c(1,14:15)] expected <- structure(list(trial = 1:4, events = c(9L, 8L, 3L, 6L), ptime = c(413L, 263L, 487L, 237L)), class = "data.frame", row.names = c(NA, 4L)) expect_equivalent(sav, expected) }) test_that("to.table() works correctly for measure='IR'", { dat <- dat.hart1999 sav <- to.table(measure="IR", xi=x1i, ti=t1i, data=dat, subset=1:4) expected <- structure(c(9, 413, 8, 263, 3, 487, 6, 237), .Dim = c(1, 2, 4), .Dimnames = list("Grp", c("Events", "Person-Time"), c("1", "2", "3", "4"))) expect_equivalent(sav, expected) }) test_that("to.long() works correctly for measure='MN'", { dat <- dat.normand1999 sav <- to.long(measure="MN", mi=m1i, sdi=sd1i, ni=n1i, data=dat, subset=1:4) sav <- sav[,c(1,10:12)] expected <- structure(list(study = 1:4, mean = c(55L, 27L, 64L, 66L), sd = c(47L, 7L, 17L, 20L), n = c(155L, 31L, 75L, 18L)), class = "data.frame", row.names = c(NA, 4L)) expect_equivalent(sav, expected) }) test_that("to.table() works correctly for measure='MN'", { dat <- dat.normand1999 sav <- to.table(measure="MN", mi=m1i, sdi=sd1i, ni=n1i, data=dat, subset=1:4) expected <- structure(c(55, 47, 155, 27, 7, 31, 64, 17, 75, 66, 20, 18), .Dim = c(1, 3, 4), .Dimnames = list("Grp", c("Mean", "SD", "n"), c("1", "2", "3", "4"))) expect_equivalent(sav, expected) }) ### create dataset (from Morris, 2008) datT <- data.frame( m_pre = c(30.6, 23.5, 0.5, 53.4, 35.6), m_post = c(38.5, 26.8, 0.7, 75.9, 36.0), sd_pre = c(15.0, 3.1, 0.1, 14.5, 4.7), sd_post = c(11.6, 4.1, 0.1, 4.4, 4.6), ni = c(20, 50, 9, 10, 14), ri = c(.47, .64, .77, .89, .44)) test_that("to.long() works correctly for measure='SMCR'", { sav <- to.long(measure="SMCR", m1i=m_post, m2i=m_pre, sd1i=sd_pre, ni=ni, ri=ri, data=datT, subset=2:4) sav <- sav[,c(7:12)] expected <- structure(list(study = structure(1:3, .Label = c("2", "3", "4"), class = "factor"), mean1 = c(26.8, 0.7, 75.9), mean2 = c(23.5, 0.5, 53.4), sd1 = c(3.1, 0.1, 14.5), n = c(50, 9, 10), r = c(0.64, 0.77, 0.89)), class = "data.frame", row.names = c(NA, 3L)) expect_equivalent(sav, expected) }) test_that("to.table() works correctly for measure='SMCR'", { sav <- to.table(measure="SMCR", m1i=m_post, m2i=m_pre, sd1i=sd_pre, ni=ni, ri=ri, data=datT, subset=2:4) expected <- structure(c(26.8, 23.5, 3.1, 50, 0.64, 0.7, 0.5, 0.1, 9, 0.77, 75.9, 53.4, 14.5, 10, 0.89), .Dim = c(1, 5, 3), .Dimnames = list("Grp", c("Mean1", "Mean2", "SD1", "n", "r"), c("2", "3", "4"))) expect_equivalent(sav, expected) }) test_that("to.long() works correctly for measure='ARAW'", { dat <- dat.bonett2010 sav <- to.long(measure="AHW", ai=ai, mi=mi, ni=ni, data=dat, subset=1:4) sav <- sav[,c(1,8:10)] expected <- structure(list(study = 1:4, alpha = c(0.93, 0.91, 0.94, 0.89), m = c(20L, 20L, 20L, 20L), n = c(103L, 64L, 118L, 401L)), class = "data.frame", row.names = c(NA, 4L)) expect_equivalent(sav, expected) }) test_that("to.table() works correctly for measure='ARAW'", { dat <- dat.bonett2010 sav <- to.table(measure="AHW", ai=ai, mi=mi, ni=ni, data=dat, subset=1:4) expected <- structure(c(0.93, 20, 103, 0.91, 20, 64, 0.94, 20, 118, 0.89, 20, 401), .Dim = c(1, 3, 4), .Dimnames = list("Grp", c("alpha", "m", "n"), c("1", "2", "3", "4"))) expect_equivalent(sav, expected) }) test_that("to.wide() works correctly.", { dat.l <- dat.hasselblad1998 dat.c <- to.wide(dat.l, study="study", grp="trt", ref="no_contact", grpvars=6:7) expect_equivalent(dat.c$xi.1, c(363, 10, 23, 9, 237, 9, 16, 31, 26, 29, 12, 17, 77, 21, 107, 20, 3, 32, 8, 34, 9, 19, 143, 36, 73, 54)) expect_equivalent(dat.c$xi.2, c(75, 9, 9, 2, 58, 0, 20, 3, 1, 11, 11, 6, 79, 18, 64, 12, 9, 7, 5, 20, 0, 8, 95, 15, 78, 69)) expect_equivalent(dat.c$comp, c("in-no", "gr-no", "in-no", "in-no", "in-no", "in-no", "in-se", "in-no", "in-no", "gr-se", "in-se", "in-no", "se-no", "se-no", "in-no", "gr-in", "gr-in", "gr-se", "in-no", "in-no", "gr-no", "se-no", "in-no", "in-no", "in-no", "in-no")) expect_equivalent(dat.c$design, c("in-no", "gr-in-no", "gr-in-no", "in-no", "in-no", "in-no", "in-se", "in-no", "in-no", "gr-in-se", "gr-in-se", "in-no", "se-no", "se-no", "in-no", "gr-in", "gr-in", "gr-se", "in-no", "in-no", "gr-no", "se-no", "in-no", "in-no", "in-no", "in-no")) dat.l$trt <- factor(dat.l$trt, levels=c("no_contact", "ind_counseling", "grp_counseling", "self_help")) dat.c <- to.wide(dat.l, study="study", grp="trt", grpvars=5:7, postfix=c(".T",".C"), minlen=1) expect_equivalent(dat.c$xi.T, c(363, 23, 10, 9, 237, 9, 16, 31, 26, 12, 29, 17, 77, 21, 107, 12, 9, 32, 8, 34, 9, 19, 143, 36, 73, 54)) expect_equivalent(dat.c$xi.C, c(75, 9, 9, 2, 58, 0, 20, 3, 1, 11, 11, 6, 79, 18, 64, 20, 3, 7, 5, 20, 0, 8, 95, 15, 78, 69)) expect_equivalent(dat.c$comp, c("i-n", "i-n", "g-n", "i-n", "i-n", "i-n", "i-s", "i-n", "i-n", "i-s", "g-s", "i-n", "s-n", "s-n", "i-n", "i-g", "i-g", "g-s", "i-n", "i-n", "g-n", "s-n", "i-n", "i-n", "i-n", "i-n")) expect_equivalent(dat.c$design, c("i-n", "i-g-n", "i-g-n", "i-n", "i-n", "i-n", "i-s", "i-n", "i-n", "i-g-s", "i-g-s", "i-n", "s-n", "s-n", "i-n", "i-g", "i-g", "g-s", "i-n", "i-n", "g-n", "s-n", "i-n", "i-n", "i-n", "i-n")) }) rm(list=ls()) metafor/tests/testthat/test_misc_metan_vs_rma.peto_with_dat.bcg.r0000644000176200001440000000205714712730631025214 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma.peto() against metan with 'dat.bcg'") source("settings.r") test_that("results match (EE model, measure='OR').", { ### compare results with: metan tpos tneg cpos cneg, peto nograph or log res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) expect_equivalent(res$beta, -0.4744, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.5541, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.3948, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -11.6689, tolerance=.tol[["test"]]) ### 11.67 in Stata expect_equivalent(res$QE, 167.7302, tolerance=.tol[["test"]]) ### compare results with: metan tpos tneg cpos cneg, peto nograph or sav <- predict(res, transf=exp) expect_equivalent(sav$pred, 0.6222, tolerance=.tol[["pred"]]) expect_equivalent(sav$ci.lb, 0.5746, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, 0.6738, tolerance=.tol[["ci"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_vs_lm.r0000644000176200001440000000302714712730606021135 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking tip: rma() results match up with those from lm()") source("settings.r") test_that("results for rma() and lm() match.", { dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat.molloy2014) res1 <- rma(yi, 0, data=dat) res2 <- lm(yi ~ 1, data=dat) ### coefficients should be the same expect_equivalent(coef(res1), coef(res2)) ### standard errors should be the same expect_equivalent(se(res1), se(res2)) }) test_that("results for rma.mv() and lm() match.", { dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat.molloy2014) dat$id <- 1:nrow(dat) res1 <- rma.mv(yi, 0, random = ~ 1 | id, data=dat, sparse=.sparse) res2 <- lm(yi ~ 1, data=dat) ### coefficients should be the same expect_equivalent(coef(res1), coef(res2)) ### standard errors should be the same expect_equivalent(se(res1), se(res2)) ### get profile likelihood CI for sigma^2 sav <- confint(res1) expect_equivalent(sav$random[1,2:3], c(.0111, .0474), tolerance=.tol[["var"]]) ### fit with sparse=TRUE res1 <- rma.mv(yi, 0, random = ~ 1 | id, data=dat, sparse=TRUE) ### coefficients should be the same expect_equivalent(coef(res1), coef(res2)) ### standard errors should be the same expect_equivalent(se(res1), se(res2)) ### get profile likelihood CI for sigma^2 sav <- confint(res1) expect_equivalent(sav$random[1,2:3], c(.0111, .0474), tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_permutest.r0000644000176200001440000000660514712730627021216 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: permutest() function") source("settings.r") ### load data dat <- dat.hine1989 ### calculate risk differences and corresponding sampling variances dat <- escalc(measure="RD", n1i=n1i, n2i=n2i, ai=ai, ci=ci, data=dat) test_that("permutest() gives correct results for a random-effects model.", { skip_on_cran() ### fit random-effects model res <- rma(yi, vi, data=dat) ### exact permutation test sav <- permutest(res, progbar=FALSE) expect_equivalent(sav$pval, 0.0625) out <- capture.output(print(sav)) # so that print.permutest.rma.uni() is run (at least once) tmp <- coef(sav) expected <- structure(list(estimate = 0.029444, se = 0.013068, zval = 2.253107, pval = 0.0625, ci.lb = 0.003831, ci.ub = 0.055058), .Names = c("estimate", "se", "zval", "pval", "ci.lb", "ci.ub"), row.names = "intrcpt", class = "data.frame") expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) ### approximate permutation test set.seed(1234) sav <- permutest(res, iter=50, progbar=FALSE, control=list(p2defn="px2")) expect_equivalent(sav$pval, 0.08) set.seed(1234) sav <- permutest(res, iter=50, progbar=FALSE, control=list(p2defn="px2", stat="coef")) expect_equivalent(sav$pval, 0.08) }) test_that("permutest() gives correct results for a mixed-effects model.", { skip_on_cran() ### add a fake moderator dat$mod <- c(3,1,2,2,4,5) ### fit mixed-effects model res <- rma(yi, vi, mods = ~ mod, data=dat) ### exact permutation test sav <- permutest(res, progbar=FALSE) expect_equivalent(sav$pval, c(1, 0.0028), tolerance=.tol[["pval"]]) ### approximate permutation test set.seed(1234) sav <- permutest(res, iter=50, progbar=FALSE, control=list(p2defn="px2")) expect_equivalent(sav$pval, c(.04, .04)) sav <- permutest(res, iter=50, progbar=FALSE, control=list(p2defn="px2", stat="coef")) expect_equivalent(sav$pval, c(.04, .04)) }) test_that("permutest() gives correct results for example in Follmann & Proschan (1999).", { skip_on_cran() ### data in Table 1 dat <- read.table(header=TRUE, text = " ai n1i ci n2i 173 5331 210 5296 157 1906 193 1900 131 4541 121 4516 56 2051 84 2030 52 424 65 422 36 1149 42 1129 62 6582 20 1663 2 88 2 30") dat <- escalc(measure="PETO", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat) res <- rma(yi, vi, data=dat, method="DL") sav <- permutest(res, permci=TRUE, progbar=FALSE, control=list(stat="coef")) expect_equivalent(sav$pval, 10/256) expect_equivalent(sav$ci.lb, -0.3677, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, -0.0020, tolerance=.tol[["ci"]]) }) test_that("permutest() works correctly when specifying the 'btt' argument.", { skip_on_cran() dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) set.seed(1234) res1 <- rma(yi, vi, mods = ~ alloc + ablat, data=dat) sav1 <- permutest(res1, iter=99, btt=2:3, progbar=FALSE) set.seed(1234) res2 <- rma(yi, vi, mods = ~ alloc + ablat, data=dat, btt=2:3) sav2 <- permutest(res2, iter=99, progbar=FALSE) expect_equivalent(sav1$QM, sav2$QM) expect_equivalent(sav1$QM.perm, sav2$QM.perm) expect_equivalent(sav1$b.perm, sav2$b.perm) expect_equivalent(sav1$zval.perm, sav2$zval.perm) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_ls.r0000644000176200001440000003721014712730615020434 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: location-scale models") source("settings.r") dat <- dat.bangertdrowns2004 test_that("location-scale model works correctly for an intercept-only model", { res1 <- rma(yi, vi, data=dat) res2 <- rma.mv(yi, vi, random = ~ 1 | id, data=dat, sparse=.sparse) res3 <- rma(yi, vi, data=dat, scale = ~ 1) res4 <- rma(yi, vi, data=dat, scale = res3$Z) expect_equivalent(res1$tau2, res2$sigma2, tolerance=.tol[["var"]]) expect_equivalent(res1$tau2, exp(res3$alpha[1]), tolerance=.tol[["var"]]) expect_equivalent(res1$tau2, exp(res4$alpha[1]), tolerance=.tol[["var"]]) }) test_that("location-scale model works correctly for two subgroups with different tau^2 values", { res1 <- rma.mv(yi, vi, data=dat, random = ~ factor(meta) | id, struct="DIAG", subset=!is.na(meta), cvvc="transf", sparse=.sparse) expect_warning(res2 <- rma(yi, vi, data=dat, scale = ~ meta)) expect_warning(res3 <- rma(yi, vi, data=dat, scale = res2$Z.f)) expect_equivalent(res1$tau2, c(exp(res2$alpha[1]), exp(res2$alpha[1] + res2$alpha[2])), tolerance=.tol[["var"]]) expect_equivalent(res1$tau2, c(exp(res3$alpha[1]), exp(res3$alpha[1] + res3$alpha[2])), tolerance=.tol[["var"]]) expect_warning(res4 <- rma(yi, vi, data=dat, scale = ~ 0 + factor(meta))) expect_equivalent(unname(sqrt(diag(res1$vvc))), res4$se.alpha, tolerance=.tol[["se"]]) expect_warning(res5 <- rma(yi, vi, data=dat, scale = ~ 0 + factor(meta), link="identity")) expect_equivalent(res1$tau2, res5$alpha, tolerance=.tol[["var"]]) skip_on_cran() conf1 <- confint(res1) conf5 <- confint(res5, control=list(vc.min=0, vc.max=.5)) expect_equivalent(conf1[[1]]$random[1,], conf5[[1]]$random, tolerance=.tol[["var"]]) expect_equivalent(conf1[[2]]$random[1,], conf5[[2]]$random, tolerance=.tol[["var"]]) }) test_that("profile() and confint() work correctly for location-scale models", { skip_on_cran() png(filename="images/test_misc_rma_ls_profile_1_test.png", res=200, width=1800, height=1600, type="cairo") par(mfrow=c(2,2)) res1 <- rma(yi, vi, data=dat) prof1 <- profile(res1, progbar=FALSE, cline=TRUE, xlim=c(.01,.15)) conf1 <- confint(res1, type="PL") abline(v=conf1$random[1,2:3], lty="dotted") res2 <- rma.mv(yi, vi, random = ~ 1 | id, data=dat, sparse=.sparse) prof2 <- profile(res2, progbar=FALSE, cline=TRUE, xlim=c(.01,.15)) conf2 <- confint(res2) abline(v=conf2$random[1,2:3], lty="dotted") res3 <- rma(yi, vi, data=dat, scale = ~ 1) prof3 <- profile(res3, progbar=FALSE, cline=TRUE, xlim=log(c(.01,.15))) conf3 <- confint(res3) abline(v=conf3$random[1,2:3], lty="dotted") expect_equivalent(prof1$ll[c(1,20)], prof3$ll[c(1,20)], tolerance=.tol[["fit"]]) expect_equivalent(conf1$random[1,], exp(conf3$random), tolerance=.tol[["var"]]) res4 <- rma(yi, vi, data=dat, scale = ~ 1, link="identity") prof4 <- profile(res4, progbar=FALSE, cline=TRUE, xlim=c(.01,.15)) conf4 <- confint(res4, control=list(vc.max=.2)) abline(v=conf4$random[1,2:3], lty="dotted") dev.off() expect_true(.vistest("images/test_misc_rma_ls_profile_1_test.png", "images/test_misc_rma_ls_profile_1.png")) expect_equivalent(prof1$ll, prof2$ll, tolerance=.tol[["fit"]]) expect_equivalent(conf1$random[1,], conf2$random[1,], tolerance=.tol[["var"]]) expect_equivalent(prof1$ll, prof4$ll, tolerance=.tol[["fit"]]) expect_equivalent(conf1$random[1,], conf4$random, tolerance=.tol[["var"]]) }) test_that("location-scale model works correctly for a continuous predictor", { skip_on_cran() res1 <- rma(yi, vi, data=dat, scale = ~ grade) expect_equivalent(res1$beta, 0.2220791, tolerance=.tol[["coef"]]) expect_equivalent(res1$alpha, c(-3.10513013522415, 0.041361925354706), tolerance=.tol[["coef"]]) res2 <- rma(yi, vi, data=dat, scale = ~ grade, link="identity") expect_equivalent(res2$alpha, c(0.042926535, 0.002729234), tolerance=.tol[["coef"]]) #expect_equivalent(res1$tau2, res2$tau2, tolerance=.tol[["var"]]) # not true res3 <- rma.mv(yi, vi, data=dat, random = ~ sqrt(grade) | id, rho=0, struct="GEN", cvvc=TRUE, sparse=.sparse) expect_equivalent(c(res2$alpha), diag(res3$G), tolerance=.tol[["coef"]]) expect_equivalent(diag(res2$M), diag(res3$M), tolerance=.tol[["var"]]) expect_equivalent(unname(sqrt(diag(res3$vvc))), res2$se.alpha, tolerance=.tol[["se"]]) conf11 <- confint(res1, alpha=1) expect_equivalent(conf11$random, c(-3.10513, -5.25032, -1.21713), tolerance=.tol[["var"]]) conf12 <- confint(res1, alpha=2, xlim=c(-1,1)) expect_equivalent(conf12$random, c( 0.04136, -0.65819, 0.69562), tolerance=.tol[["var"]]) conf21 <- confint(res2, alpha=1, control=list(vc.min=-0.4, vc.max=0.3)) conf22 <- confint(res2, alpha=2, control=list(vc.min=-0.1, vc.max=0.05)) conf2 <- list(conf21, conf22) class(conf2) <- "list.confint.rma" expect_equivalent(conf2[[1]]$random, c(0.04293, -0.00137, 0.23145), tolerance=.tol[["var"]]) expect_equivalent(conf2[[2]]$random, c(0.00273, -0.04972, 0.04411), tolerance=.tol[["var"]]) conf3 <- confint(res3) expect_equivalent(conf3[[1]]$random[1,], c(0.04291, 0.00000, 0.11333), tolerance=.tol[["var"]]) expect_equivalent(conf3[[2]]$random[1,], c(0.00273, 0.00000, 0.04062), tolerance=.tol[["var"]]) # conf2 and conf3 are not the same because in res3 the two components must # be >= 0 while this restriction does not apply to res2 (and when profiling # or getting the CIs, fixing a particular component can lead to the other # component becoming negative) png(filename="images/test_misc_rma_ls_profile_2_test.png", res=200, width=1800, height=2200, type="cairo") par(mfrow=c(3,2)) profile(res1, alpha=1, progbar=FALSE, cline=TRUE) abline(v=conf11$random[2:3], lty="dotted") profile(res1, alpha=2, progbar=FALSE, cline=TRUE) abline(v=conf12$random[2:3], lty="dotted") profile(res2, alpha=1, progbar=FALSE, cline=TRUE, xlim=c(0,0.3)) abline(v=conf2[[1]]$random[2:3], lty="dotted") profile(res2, alpha=2, progbar=FALSE, cline=TRUE, xlim=c(-0.1,0.05)) abline(v=conf2[[2]]$random[2:3], lty="dotted") profile(res3, tau2=1, progbar=FALSE, cline=TRUE, xlim=c(0,.3)) abline(v=conf3[[1]]$random[1,2:3], lty="dotted") profile(res3, tau2=2, progbar=FALSE, cline=TRUE, xlim=c(0,.05)) abline(v=conf3[[2]]$random[1,2:3], lty="dotted") dev.off() expect_true(.vistest("images/test_misc_rma_ls_profile_2_test.png", "images/test_misc_rma_ls_profile_2.png")) }) test_that("location-scale model works correctly for multiple predictors", { skip_on_cran() expect_warning(res1 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni))) expect_equivalent(res1$beta, 0.1110317, tolerance=.tol[["coef"]]) expect_equivalent(res1$alpha, c(-1.08826059, -0.03429344, 2.09197456, -0.28439165), tolerance=.tol[["coef"]]) expect_warning(res2 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(scaleZ=FALSE))) expect_equivalent(res2$beta, 0.1110317, tolerance=.tol[["coef"]]) expect_equivalent(res2$alpha, c(-1.08826210, -0.03429332, 2.09197501, -0.28439156), tolerance=.tol[["coef"]]) out <- capture.output(print(res1)) expect_warning(res2 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="Nelder-Mead"))) expect_warning(res3 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="BFGS"))) expect_warning(res4 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="bobyqa"))) expect_warning(res5 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="nloptr"))) expect_warning(res6 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="hjk"))) expect_warning(res7 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="nmk"))) expect_warning(res8 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="mads"))) expect_warning(res9 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="ucminf"))) expect_warning(res10 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="lbfgsb3c"))) expect_warning(res11 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="subplex"))) expect_warning(res12 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="BBoptim"))) expect_warning(res13 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="Rcgmin"))) expect_warning(res14 <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni), control=list(optimizer="Rvmmin"))) expect_equivalent(res1$alpha, c(-1.08826059, -0.03429344, 2.09197456, -0.28439165), tolerance=.tol[["coef"]]) expect_equivalent(res2$alpha, c(-1.08879415, -0.03426271, 2.09166227, -0.28432946), tolerance=.tol[["coef"]]) expect_equivalent(res3$alpha, c(-1.08791095, -0.03439789, 2.09179476, -0.28438389), tolerance=.tol[["coef"]]) expect_equivalent(res4$alpha, c(-1.08826099, -0.03429340, 2.09197460, -0.28439162), tolerance=.tol[["coef"]]) expect_equivalent(res5$alpha, c(-1.09036615, -0.03393392, 2.09205708, -0.28429889), tolerance=.tol[["coef"]]) expect_equivalent(res6$alpha, c(-1.08825599, -0.03429422, 2.09197166, -0.28439180), tolerance=.tol[["coef"]]) expect_equivalent(res7$alpha, c(-1.08867491, -0.03415188, 2.09213170, -0.28436838), tolerance=.tol[["coef"]]) expect_equivalent(res8$alpha, c(-1.08825988, -0.03429568, 2.09198084, -0.28439174), tolerance=.tol[["coef"]]) expect_equivalent(res9$alpha, c(-1.08826216, -0.03429383, 2.09197932, -0.28439198), tolerance=.tol[["coef"]]) expect_equivalent(res10$alpha, c(-1.08825730, -0.03429256, 2.09197369, -0.28439170), tolerance=.tol[["coef"]]) expect_equivalent(res11$alpha, c(-1.08826074, -0.03429341, 2.09197437, -0.28439162), tolerance=.tol[["coef"]]) expect_equivalent(res12$alpha, c(-1.08823316, -0.03429494, 2.09194049, -0.28439102), tolerance=.tol[["coef"]]) expect_equivalent(res13$alpha, c(-1.08826085, -0.03429338, 2.09197445, -0.28439162), tolerance=.tol[["coef"]]) expect_equivalent(res14$alpha, c(-1.08826091, -0.03429340, 2.09197450, -0.28439161), tolerance=.tol[["coef"]]) }) test_that("permutation tests work correctly for a location-scale model", { skip_on_cran() expect_warning(res <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni))) set.seed(1234) sav <- permutest(res, iter=100, progbar=FALSE) out <- capture.output(print(sav)) expect_equivalent(sav$pval, 0.01, tolerance=.tol[["pval"]]) expect_equivalent(sav$pval.alpha, c(0.81, 0.95, 0.02, 0.04), tolerance=.tol[["coef"]]) png(filename="images/test_misc_rma_ls_permutest_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(sav, QS=TRUE, alpha=1:4) dev.off() expect_true(.vistest("images/test_misc_rma_ls_permutest_light_test.png", "images/test_misc_rma_ls_permutest_light.png")) png(filename="images/test_misc_rma_ls_permutest_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(sav, QS=TRUE, alpha=1:4) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_rma_ls_permutest_dark_test.png", "images/test_misc_rma_ls_permutest_dark.png")) }) test_that("predict() works correctly for location-scale models", { skip_on_cran() expect_warning(res <- rma(yi, vi, data=dat, mods = ~ meta, scale = ~ meta)) res0 <- rma(yi, vi, data=dat, subset=meta==0) res1 <- rma(yi, vi, data=dat, subset=meta==1) pred <- predict(res, addx=TRUE, addz=TRUE) pred0 <- predict(res0) pred1 <- predict(res1) expect_equivalent(pred$pred[1:2], c(pred1$pred, pred0$pred), tolerance=.tol[["pred"]]) expect_equivalent(pred$se[1:2] , c(pred1$se, pred0$se), tolerance=.tol[["pred"]]) expect_equivalent(pred$ci.lb[1:2], c(pred1$ci.lb, pred0$ci.lb), tolerance=.tol[["pred"]]) expect_equivalent(pred$ci.ub[1:2], c(pred1$ci.ub, pred0$ci.ub), tolerance=.tol[["pred"]]) expect_equivalent(pred$pi.lb[1:2], c(pred1$pi.lb, pred0$pi.lb), tolerance=.tol[["pred"]]) expect_equivalent(pred$pi.ub[1:2], c(pred1$pi.ub, pred0$pi.ub), tolerance=.tol[["pred"]]) pred <- predict(res, newmods=0:1) expect_equivalent(pred$pred, c(pred0$pred, pred1$pred), tolerance=.tol[["pred"]]) pred2 <- predict(res, newmods=cbind(1,0:1)) expect_equivalent(pred, pred2) pred <- predict(res, newmods=0:1, newscale=0:1) expect_equivalent(pred$pred, c(pred0$pred, pred1$pred), tolerance=.tol[["pred"]]) expect_equivalent(pred$se , c(pred0$se, pred1$se), tolerance=.tol[["pred"]]) expect_equivalent(pred$ci.lb, c(pred0$ci.lb, pred1$ci.lb), tolerance=.tol[["pred"]]) expect_equivalent(pred$ci.ub, c(pred0$ci.ub, pred1$ci.ub), tolerance=.tol[["pred"]]) expect_equivalent(pred$pi.lb, c(pred0$pi.lb, pred1$pi.lb), tolerance=.tol[["pred"]]) expect_equivalent(pred$pi.ub, c(pred0$pi.ub, pred1$pi.ub), tolerance=.tol[["pred"]]) pred2 <- predict(res, newmods=cbind(1,0:1), newscale=0:1) expect_equivalent(pred, pred2) pred2 <- predict(res, newmods=0:1, newscale=cbind(1,0:1)) expect_equivalent(pred, pred2) pred2 <- predict(res, newmods=cbind(1,0:1), newscale=cbind(1,0:1)) expect_equivalent(pred, pred2) pred <- predict(res, newscale=0:1, transf=exp) expect_equivalent(pred$pred, c(res0$tau2, res1$tau2), tolerance=.tol[["var"]]) expect_warning(res <- rma(yi, vi, data=dat, mods = ~ meta, scale = ~ meta, link="identity")) pred <- predict(res, newscale=0:1) expect_equivalent(pred$pred, c(res0$tau2, res1$tau2), tolerance=.tol[["var"]]) }) test_that("anova() works correctly for location-scale models", { skip_on_cran() expect_warning(res1 <- rma(yi, vi, data=dat, mods = ~ factor(grade) + meta + sqrt(ni), scale = ~ factor(grade) + meta + sqrt(ni))) expect_warning(res0 <- rma(yi, vi, data=dat, mods = ~ factor(grade) + meta + sqrt(ni), scale = ~ 1)) sav <- anova(res1, res0) expect_equivalent(sav$LRT, 3.146726, tolerance=.tol[["test"]]) expect_equivalent(sav$pval, 0.6773767, tolerance=.tol[["pval"]]) sav <- anova(res1, btt=2:4) expect_equivalent(sav$QM, 5.286715, tolerance=.tol[["test"]]) expect_equivalent(sav$QMp, 0.1519668, tolerance=.tol[["pval"]]) sav <- anova(res1, att=2:4) expect_equivalent(sav$QS, 2.030225, tolerance=.tol[["test"]]) expect_equivalent(sav$QSp, 0.5661571, tolerance=.tol[["pval"]]) expect_error(anova(res1, btt=2:4, att=2:4)) sav <- anova(res1, X=c(0,1,-1,0,0,0)) expect_equivalent(sav$QM, 4.463309, tolerance=.tol[["test"]]) expect_equivalent(sav$QMp, 0.03463035, tolerance=.tol[["pval"]]) tmp <- predict(res1, newmods=c(1,-1,0,0,0), intercept=FALSE) expect_equivalent(sav$Xb[1,1], tmp$pred, tolerance=.tol[["test"]]) tmp <- predict(res1, newmods=cbind(0,1,-1,0,0,0)) expect_equivalent(sav$Xb[1,1], tmp$pred, tolerance=.tol[["test"]]) sav <- anova(res1, Z=c(0,1,-1,0,0,0)) expect_equivalent(sav$QS, 0.3679934, tolerance=.tol[["test"]]) expect_equivalent(sav$QSp, 0.5441001, tolerance=.tol[["pval"]]) tmp <- predict(res1, newscale=c(1,-1,0,0,0), intercept=FALSE) expect_equivalent(sav$Za[1,1], tmp$pred, tolerance=.tol[["test"]]) tmp <- predict(res1, newscale=cbind(0,1,-1,0,0,0)) expect_equivalent(sav$Za[1,1], tmp$pred, tolerance=.tol[["test"]]) expect_error(anova(res1, X=c(0,1,-1,0,0,0), Z=c(0,1,-1,0,0,0))) }) test_that("vif() works correctly for location-scale models", { skip_on_cran() expect_warning(res <- rma(yi, vi, data=dat, scale = ~ grade + meta + sqrt(ni))) sav <- round(vif(res)$vifs, 4) expect_equivalent(sav, c(grade = 1.3087, meta = 1.06, `sqrt(ni)` = 1.2847)) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_raudenbush2009.r0000644000176200001440000001426514712730454024243 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:raudenbush2009 context("Checking analysis example: raudenbush2009") source("settings.r") ### load data dat <- dat.raudenbush1985 test_that("results are correct for the equal-effects model.", { ### equal-effects model res.EE <- rma(yi, vi, data=dat, digits=3, method="EE") ### compare with results on page 301 (Table 16.2) and page 302 expect_equivalent(coef(res.EE), 0.0604, tolerance=.tol[["coef"]]) expect_equivalent(res.EE$QE, 35.8295, tolerance=.tol[["test"]]) expect_equivalent(res.EE$zval, 1.6553, tolerance=.tol[["test"]]) ### 1.65 in chapter }) test_that("results are correct for the random-effects model.", { ### random-effects model res.RE <- rma(yi, vi, data=dat, digits=3) ### compare with results on page 301 (Table 16.2) and page 302 expect_equivalent(coef(res.RE), 0.0837, tolerance=.tol[["coef"]]) ### 0.083 in chapter expect_equivalent(res.RE$zval, 1.6208, tolerance=.tol[["test"]]) expect_equivalent(res.RE$tau2, 0.0188, tolerance=.tol[["var"]]) ### prediction interval tmp <- predict(res.RE) ### compare with results on page 301 (Table 16.2) and page 302 expect_equivalent(tmp$pi.lb, -0.2036, tolerance=.tol[["ci"]]) ### -0.19 in chapter but computed in a slightly different way expect_equivalent(tmp$pi.ub, 0.3711, tolerance=.tol[["ci"]]) ### 0.35 in chapter but computed in a slightly different way ### range of BLUPs tmp <- range(blup(res.RE)$pred) ### compare with results on page 301 (Table 16.2) expect_equivalent(tmp, c(-0.0293, 0.2485), tolerance=.tol[["pred"]]) }) test_that("results are correct for the mixed-effects model.", { ### recode weeks variable dat$weeks.c <- ifelse(dat$weeks > 3, 3, dat$weeks) ### mixed-effects model res.ME <- rma(yi, vi, mods = ~ weeks.c, data=dat, digits=3) ### compare with results on page 301 (Table 16.2) expect_equivalent(res.ME$tau2, 0.0000, tolerance=.tol[["var"]]) expect_equivalent(coef(res.ME), c(0.4072, -0.1572), tolerance=.tol[["coef"]]) expect_equivalent(res.ME$QE, 16.5708, tolerance=.tol[["test"]]) expect_equivalent(res.ME$zval, c(4.6782, -4.3884), tolerance=.tol[["test"]]) ### range of BLUPs tmp <- range(blup(res.ME)$pred) ### compare with results on page 301 (Table 16.2) expect_equivalent(tmp, c(-0.0646, 0.4072), tolerance=.tol[["pred"]]) ### -0.07 in chapter }) test_that("results are correct for the random-effects model (conventional approach).", { res.std <- list() res.std$EE <- rma(yi, vi, data=dat, digits=3, method="EE") res.std$ML <- rma(yi, vi, data=dat, digits=3, method="ML") res.std$REML <- rma(yi, vi, data=dat, digits=3, method="REML") res.std$DL <- rma(yi, vi, data=dat, digits=3, method="DL") res.std$HE <- rma(yi, vi, data=dat, digits=3, method="HE") tmp <- t(sapply(res.std, function(x) c(tau2=x$tau2, mu=x$beta, se=x$se, z=x$zval, ci.lb=x$ci.lb, ci.ub=x$ci.ub))) expected <- structure(c(0, 0.0126, 0.0188, 0.0259, 0.0804, 0.0604, 0.0777, 0.0837, 0.0893, 0.1143, 0.0365, 0.0475, 0.0516, 0.0558, 0.0792, 1.6553, 1.6368, 1.6208, 1.6009, 1.4432, -0.0111, -0.0153, -0.0175, -0.02, -0.0409, 0.1318, 0.1708, 0.1849, 0.1987, 0.2696), .Dim = 5:6, .Dimnames = list(c("EE", "ML", "REML", "DL", "HE"), c("tau2", "mu", "se", "z", "ci.lb", "ci.ub"))) ### compare with results on page 309 (Table 16.3) expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) }) test_that("results are correct for the random-effects model (Knapp & Hartung method).", { res.knha <- list() expect_warning(res.knha$EE <- rma(yi, vi, data=dat, digits=3, method="EE", test="knha")) res.knha$ML <- rma(yi, vi, data=dat, digits=3, method="ML", test="knha") res.knha$REML <- rma(yi, vi, data=dat, digits=3, method="REML", test="knha") res.knha$DL <- rma(yi, vi, data=dat, digits=3, method="DL", test="knha") res.knha$HE <- rma(yi, vi, data=dat, digits=3, method="HE", test="knha") tmp <- t(sapply(res.knha, function(x) c(tau2=x$tau2, mu=x$beta, se=x$se, z=x$zval, ci.lb=x$ci.lb, ci.ub=x$ci.ub))) expected <- structure(c(0, 0.0126, 0.0188, 0.0259, 0.0804, 0.0604, 0.0777, 0.0837, 0.0893, 0.1143, 0.0515, 0.0593, 0.0616, 0.0636, 0.0711, 1.1733, 1.311, 1.3593, 1.405, 1.6078, -0.0477, -0.0468, -0.0457, -0.0442, -0.0351, 0.1685, 0.2023, 0.2131, 0.2229, 0.2637), .Dim = 5:6, .Dimnames = list(c("EE", "ML", "REML", "DL", "HE"), c("tau2", "mu", "se", "z", "ci.lb", "ci.ub"))) ### compare with results on page 309 (Table 16.3) expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) }) test_that("results are correct for the random-effects model (Huber-White method).", { res.std <- list() res.std$EE <- rma(yi, vi, data=dat, digits=3, method="EE") res.std$ML <- rma(yi, vi, data=dat, digits=3, method="ML") res.std$REML <- rma(yi, vi, data=dat, digits=3, method="REML") res.std$DL <- rma(yi, vi, data=dat, digits=3, method="DL") res.std$HE <- rma(yi, vi, data=dat, digits=3, method="HE") res.hw <- list() res.hw$EE <- robust(res.std$EE, cluster=study, adjust=FALSE) res.hw$ML <- robust(res.std$ML, cluster=study, adjust=FALSE) res.hw$REML <- robust(res.std$REML, cluster=study, adjust=FALSE) res.hw$DL <- robust(res.std$DL, cluster=study, adjust=FALSE) res.hw$HE <- robust(res.std$HE, cluster=study, adjust=FALSE) out <- capture.output(print(res.hw$REML)) ### so that print.robust.rma() is run (at least once) tmp <- t(sapply(res.hw, function(x) c(tau2=x$tau2, mu=x$beta, se=x$se, t=x$zval, ci.lb=x$ci.lb, ci.ub=x$ci.ub))) expected <- structure(c(0, 0.0126, 0.0188, 0.0259, 0.0804, 0.0604, 0.0777, 0.0837, 0.0893, 0.1143, 0.0398, 0.0475, 0.05, 0.0522, 0.0618, 1.5148, 1.6369, 1.6756, 1.7105, 1.8503, -0.0234, -0.022, -0.0213, -0.0204, -0.0155, 0.1441, 0.1775, 0.1887, 0.199, 0.2441), .Dim = 5:6, .Dimnames = list(c("EE", "ML", "REML", "DL", "HE"), c("tau2", "mu", "se", "t", "ci.lb", "ci.ub"))) ### compare with results on page 309 (Table 16.3) expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_forest_plot_with_predstyle.r0000644000176200001440000003406014762055341025054 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") source("settings.r") context("Checking plots example: forest plot with adjusted predstyle") dat <- dat.bcg dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, slab=paste(author, year, sep=", ")) res <- rma(yi, vi, data=dat) pred <- predict(res) test_that("plot can be drawn with predstyle='l'.", { skip_on_cran() png("images/test_plots_forest_plot_with_predstyle_l_test.png", res=240, width=1800, height=1800, type="cairo") forest(res, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, addpred=TRUE, predstyle="l") text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_l_test.png", "images/test_plots_forest_plot_with_predstyle_l.png")) png("images/test_plots_forest_plot_with_predstyle_l_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-2,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) with(pred, addpoly(pred, ci.lb=ci.lb, ci.ub=ci.ub, pi.lb=pi.lb, pi.ub=pi.ub, mlab="Random-Effects Model")) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_l_test.png", "images/test_plots_forest_plot_with_predstyle_l.png")) png("images/test_plots_forest_plot_with_predstyle_l_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-2,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(res, row=-1, addpred=TRUE) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_l_test.png", "images/test_plots_forest_plot_with_predstyle_l.png")) png("images/test_plots_forest_plot_with_predstyle_l_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-2,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(pred, rows=-1, addpred=TRUE, mlab="Random-Effects Model") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_l_test.png", "images/test_plots_forest_plot_with_predstyle_l.png")) }) test_that("plot can be drawn with predstyle='b'.", { skip_on_cran() png("images/test_plots_forest_plot_with_predstyle_b_test.png", res=240, width=1800, height=1800, type="cairo") forest(res, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, addpred=TRUE, predstyle="b") text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_b_test.png", "images/test_plots_forest_plot_with_predstyle_b.png")) png("images/test_plots_forest_plot_with_predstyle_b_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) with(pred, addpoly(pred, ci.lb=ci.lb, ci.ub=ci.ub, pi.lb=pi.lb, pi.ub=pi.ub, mlab="Random-Effects Model", predstyle="b")) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_b_test.png", "images/test_plots_forest_plot_with_predstyle_b.png")) png("images/test_plots_forest_plot_with_predstyle_b_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(res, row=-1, predstyle="b") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_b_test.png", "images/test_plots_forest_plot_with_predstyle_b.png")) png("images/test_plots_forest_plot_with_predstyle_b_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(pred, rows=-1, predstyle="b", mlab="Random-Effects Model") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_b_test.png", "images/test_plots_forest_plot_with_predstyle_b.png")) }) test_that("plot can be drawn with predstyle='s'.", { skip_on_cran() png("images/test_plots_forest_plot_with_predstyle_s_test.png", res=240, width=1800, height=1800, type="cairo") forest(res, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, addpred=TRUE, predstyle="s") text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_s_test.png", "images/test_plots_forest_plot_with_predstyle_s.png")) png("images/test_plots_forest_plot_with_predstyle_s_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) with(pred, addpoly(pred, ci.lb=ci.lb, ci.ub=ci.ub, pi.lb=pi.lb, pi.ub=pi.ub, mlab="Random-Effects Model", predstyle="s")) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_s_test.png", "images/test_plots_forest_plot_with_predstyle_s.png")) png("images/test_plots_forest_plot_with_predstyle_s_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(res, row=-1, predstyle="s") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_s_test.png", "images/test_plots_forest_plot_with_predstyle_s.png")) png("images/test_plots_forest_plot_with_predstyle_s_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(pred, rows=-1, predstyle="s", mlab="Random-Effects Model") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_s_test.png", "images/test_plots_forest_plot_with_predstyle_s.png")) }) test_that("plot can be drawn with predstyle='d'.", { skip_on_cran() png("images/test_plots_forest_plot_with_predstyle_d_test.png", res=240, width=1800, height=1800, type="cairo") forest(res, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, addpred=TRUE, predstyle="d") text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_test.png", "images/test_plots_forest_plot_with_predstyle_d.png")) png("images/test_plots_forest_plot_with_predstyle_d_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) with(pred, addpoly(pred, ci.lb=ci.lb, ci.ub=ci.ub, pi.lb=pi.lb, pi.ub=pi.ub, mlab="Random-Effects Model", predstyle="d")) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_test.png", "images/test_plots_forest_plot_with_predstyle_d.png")) png("images/test_plots_forest_plot_with_predstyle_d_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(res, row=-1, predstyle="d") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_test.png", "images/test_plots_forest_plot_with_predstyle_d.png")) png("images/test_plots_forest_plot_with_predstyle_d_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, header="Author(s) and Year", psize=1, shade=TRUE, ylim=c(-3,16))) text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) abline(h=0) addpoly(pred, rows=-1, predstyle="d", mlab="Random-Effects Model") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_test.png", "images/test_plots_forest_plot_with_predstyle_d.png")) }) test_that("plot can be drawn with predstyle='d' and transf=exp.", { skip_on_cran() png("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", res=240, width=1800, height=1800, type="cairo") forest(res, transf=exp, alim=c(0,3), steps=4, xlim=c(-2,4.2), cex=0.75, header="Author(s) and Year", psize=1, refline=1, shade=TRUE, addpred=TRUE, predstyle="d") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", "images/test_plots_forest_plot_with_predstyle_d_transf.png")) png("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, transf=exp, alim=c(0,3), steps=4, xlim=c(-2,4.2), cex=0.75, header="Author(s) and Year", psize=1, refline=1, shade=TRUE, ylim=c(-3,16))) abline(h=0) with(pred, addpoly(pred, ci.lb=ci.lb, ci.ub=ci.ub, pi.lb=pi.lb, pi.ub=pi.ub, mlab="Random-Effects Model", predstyle="d")) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", "images/test_plots_forest_plot_with_predstyle_d_transf.png")) png("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, transf=exp, alim=c(0,3), steps=4, xlim=c(-2,4.2), cex=0.75, header="Author(s) and Year", psize=1, refline=1, shade=TRUE, ylim=c(-3,16))) abline(h=0) addpoly(res, row=-1, predstyle="d") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", "images/test_plots_forest_plot_with_predstyle_d_transf.png")) png("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", res=240, width=1800, height=1800, type="cairo") with(dat, forest(yi, vi, transf=exp, alim=c(0,3), steps=4, xlim=c(-2,4.2), cex=0.75, header="Author(s) and Year", psize=1, refline=1, shade=TRUE, ylim=c(-3,16))) abline(h=0) addpoly(pred, rows=-1, predstyle="d", mlab="Random-Effects Model") dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_predstyle_d_transf_test.png", "images/test_plots_forest_plot_with_predstyle_d_transf.png")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_berkey1998.r0000644000176200001440000000705214712730406023375 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:berkey1998 source("settings.r") context("Checking analysis example: berkey1998") ### load data dat <- dat.berkey1998 ### construct variance-covariance matrix of the observed outcomes V <- bldiag(lapply(split(dat[,c("v1i", "v2i")], dat$trial), as.matrix)) test_that("results are correct for the multiple outcomes random-effects model.", { ### multiple outcomes random-effects model (with ML estimation) res <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", sparse=.sparse) out <- capture.output(print(res)) ### so that print.rma.mv() is run (at least once) ### (results for this model not given in paper) expect_equivalent(coef(res), c(-0.3379, 0.3448), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.0798, 0.0495), tolerance=.tol[["se"]]) expect_equivalent(res$tau2, c(0.0261, 0.0070), tolerance=.tol[["var"]]) expect_equivalent(res$rho, 0.6992, tolerance=.tol[["cor"]]) }) test_that("results are correct for the multiple outcomes mixed-effects (meta-regression) model.", { ### multiple outcomes mixed-effects (meta-regression) model (with ML estimation) res <- rma.mv(yi, V, mods = ~ 0 + outcome + outcome:I(year - 1983), random = ~ outcome | trial, struct="UN", data=dat, method="ML", sparse=.sparse) ### compare with results on page 2545 (Table II) expect_equivalent(coef(res), c(-0.3351, 0.3479, -0.0108, 0.0010), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.0787, 0.0520, 0.0243, 0.0154), tolerance=.tol[["se"]]) expect_equivalent(res$tau2, c(0.0250, 0.0080), tolerance=.tol[["var"]]) expect_equivalent(res$rho, 0.6587, tolerance=.tol[["cor"]]) ### compute the covariance tmp <- res$rho*sqrt(res$tau2[1]*res$tau2[2]) expect_equivalent(tmp, 0.0093, tolerance=.tol[["cov"]]) ### test the difference in slopes res <- rma.mv(yi, V, mods = ~ 0 + outcome*I(year - 1983), random = ~ outcome | trial, struct="UN", data=dat, method="ML", sparse=.sparse) ### (results for this model not given in paper) expect_equivalent(coef(res), c(-0.3351, 0.3479, -0.0108, 0.0118), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.0787, 0.0520, 0.0243, 0.0199), tolerance=.tol[["se"]]) expect_equivalent(res$pval, c(0.0000, 0.0000, 0.6563, 0.5534), tolerance=.tol[["pval"]]) }) test_that("results are correct when testing var-cov structures against each other with LRTs.", { ### test whether the amount of heterogeneity is the same in the two outcomes res1 <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", sparse=.sparse) res0 <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="CS", data=dat, method="ML", sparse=.sparse) tmp <- anova(res0, res1) out <- capture.output(print(tmp)) ### so that print.anova.rma() is run (at least once) ### (results for this not given in paper) expect_equivalent(tmp$pval, 0.2597, tolerance=.tol[["pval"]]) ### test the correlation among the true effects res1 <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", sparse=.sparse) res0 <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", rho=0, sparse=.sparse) tmp <- anova(res0, res1) ### (results for this not given in paper) expect_equivalent(tmp$pval, 0.2452, tolerance=.tol[["pval"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_selmodel.r0000644000176200001440000002517714762055276021004 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: selmodel() function") source("settings.r") test_that("results are correct for a step function model.", { skip_on_cran() dat <- dat.hackshaw1998 res <- rma(yi, vi, data=dat) sav <- selmodel(res, type="stepfun", steps=c(0.05, 0.10, 0.50, 1.00)) out <- capture.output(print(sav)) expect_equivalent(coef(sav)$delta, c(1, 2.422079, 0.977543, 0.396713), tolerance=.tol[["coef"]]) expect_equivalent(se(sav)$delta, c(NA, 1.66085, 0.820387, 0.469235), tolerance=.tol[["se"]]) expect_equivalent(sav$LRT, 7.066137, tolerance=.tol[["test"]]) expect_identical(sav$LRTdf, 3L) expect_equivalent(sav$tau2, 0.03071325, tolerance=.tol[["var"]]) png(filename="images/test_misc_selmodel_1_light_test.png", res=200, width=1800, height=1600, type="cairo") plot(sav, ci="wald") dev.off() expect_true(.vistest("images/test_misc_selmodel_1_light_test.png", "images/test_misc_selmodel_1_light.png")) png(filename="images/test_misc_selmodel_1_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") plot(sav, ci="wald") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_selmodel_1_dark_test.png", "images/test_misc_selmodel_1_dark.png")) tmp <- confint(sav) expect_equivalent(tmp[[1]]$random[1,], c(0.030713, 0.000224, 0.135284), tolerance=.tol[["var"]]) expect_equivalent(tmp[[2]]$random[1,], c(2.422079, 0.665133, 9.915798), tolerance=.tol[["coef"]]) expect_equivalent(tmp[[3]]$random[1,], c(0.977543, 0.209558, 5.386044), tolerance=.tol[["coef"]]) expect_equivalent(tmp[[4]]$random[1,], c(0.396713, 0.040198, 4.119681), tolerance=.tol[["coef"]]) # with ptable=TRUE sav <- selmodel(res, type="stepfun", steps=c(0.05, 0.10, 0.50, 1.00), ptable=TRUE) expect_equal(sav$k, c(7, 8, 16, 6)) # force delta <= 1 expect_warning(sav <- selmodel(res, type="stepfun", steps=c(0.05, 0.10, 0.50, 1.00), control=list(delta.max=1))) expect_equivalent(coef(sav)$delta, c(1, 0.999950, 0.442783, 0.148181), tolerance=.tol[["coef"]]) # with decreasing=TRUE sav <- selmodel(res, type="stepfun", steps=c(0.05, 0.10, 0.50, 1.00), decreasing=TRUE) expect_equivalent(coef(sav)$delta, c(1, 0.999966, 0.442781, 0.148179), tolerance=.tol[["coef"]]) }) test_that("results are correct for the beta function model.", { skip_on_cran() # data from Baskerville, N. B., Liddy, C., & Hogg, W. (2012). Systematic # review and meta-analysis of practice facilitation within primary care # settings. Annals of Family Medicine, 10(1), 63-74. yi <- c(1.01, 0.82, 0.59, 0.44, 0.84, 0.73, 1.12, 0.04, 0.24, 0.32, 1.04, 1.31, 0.59, 0.66, 0.62, 0.47, 1.08, 0.98, 0.26, 0.39, 0.60, 0.94, 0.11) sei <- c(0.52, 0.46, 0.23, 0.18, 0.29, 0.29, 0.36, 0.37, 0.15, 0.40, 0.32, 0.57, 0.29, 0.19, 0.31, 0.27, 0.32, 0.32, 0.18, 0.18, 0.31, 0.53, 0.27) xi <- c(1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1) res <- rma(yi, sei^2, method="ML") sav <- selmodel(res, type="beta", delta=c(1,1)) expect_equivalent(logLik(res), logLik(sav), tolerance=.tol[["fit"]]) sav <- selmodel(res, type="beta") out <- capture.output(print(sav)) expect_equivalent(coef(sav)$delta, c(0.4731131, 4.4613162), tolerance=.tol[["coef"]]) expect_equivalent(se(sav)$delta, c(0.2352481, 2.1841983), tolerance=.tol[["se"]]) expect_equivalent(sav$LRT, 7.846907, tolerance=.tol[["test"]]) expect_identical(sav$LRTdf, 2L) expect_equivalent(sav$tau2, 0.00000243, tolerance=.tol[["var"]]) png(filename="images/test_misc_selmodel_2_light_test.png", res=200, width=1800, height=1600, type="cairo") plot(sav, ylim=c(0,50), ci=TRUE, bty="l", seed=1234) dev.off() expect_true(.vistest("images/test_misc_selmodel_2_light_test.png", "images/test_misc_selmodel_2_light.png")) png(filename="images/test_misc_selmodel_2_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") plot(sav, ylim=c(0,50), ci=TRUE, bty="l", seed=1234) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_selmodel_2_dark_test.png", "images/test_misc_selmodel_2_dark.png")) res <- rma(yi, sei^2, mods = ~ xi, method="ML") sav <- selmodel(res, type="beta") out <- capture.output(print(sav)) expect_equivalent(coef(sav)$delta, c(0.4200973, 5.0959707), tolerance=.tol[["coef"]]) expect_equivalent(se(sav)$delta, c(0.2391269, 2.4108796), tolerance=.tol[["se"]]) expect_equivalent(sav$LRT, 9.044252, tolerance=.tol[["test"]]) expect_identical(sav$LRTdf, 2L) expect_equivalent(sav$tau2, 0.00000193, tolerance=.tol[["var"]]) expect_equivalent(coef(sav)$beta, c(0.1343001, -0.1363559), tolerance=.tol[["coef"]]) expect_equivalent(se(sav)$beta, c(0.1707418, 0.1244394), tolerance=.tol[["se"]]) }) test_that("results are correct for the various exponential function models.", { skip_on_cran() # data from Preston, C., Ashby, D., & Smyth, R. (2004). Adjusting for # publication bias: Modelling the selection process. Journal of Evaluation # in Clinical Practice, 10(2), 313-322. ai <- c(4,0,34,7,6,1,0,11,2,0,0,33) n1i <- c(19,18,341,71,45,94,22,88,82,33,15,221) ci <- c(5,0,50,16,5,8,0,12,7,0,1,43) n2i <- c(19,18,334,69,44,96,22,82,84,30,20,218) dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, drop00=TRUE) expect_warning(res <- rma(yi, vi, data=dat, method="EE")) alternative <- "less" sav1 <- selmodel(res, type="halfnorm", alternative=alternative) sav2 <- selmodel(res, type="negexp", alternative=alternative) sav3 <- selmodel(res, type="logistic", alternative=alternative) sav4 <- selmodel(res, type="power", alternative=alternative) expect_equivalent(c(sav1$delta, sav2$delta, sav3$delta, sav4$delta), c(3.162948, 2.656714, 3.339338, 1.458923), tolerance=.tol[["coef"]]) expect_equivalent(c(sav1$se.delta, sav2$se.delta, sav3$se.delta, sav4$se.delta), c(2.988922, 2.347468, 2.388776, 1.393725), tolerance=.tol[["se"]]) png(filename="images/test_misc_selmodel_profile_1_test.png", res=200, width=1800, height=1600, type="cairo") tmp <- profile(sav1, progbar=FALSE) dev.off() expect_true(.vistest("images/test_misc_selmodel_profile_1_test.png", "images/test_misc_selmodel_profile_1.png")) expect_equivalent(tmp$ll, c(-6.862544, -6.569986, -6.35659, -6.210436, -6.121035, -6.07939, -6.077928, -6.110356, -6.171488, -6.257068, -6.363607, -6.488238, -6.628599, -6.782733, -6.949015, -7.126075, -7.312763, -7.508097, -7.711241, -7.921472), tolerance=.tol[["fit"]]) sav1 <- selmodel(res, type="halfnorm", prec="sei", alternative=alternative, scaleprec=FALSE) sav2 <- selmodel(res, type="negexp", prec="sei", alternative=alternative, scaleprec=FALSE) sav3 <- selmodel(res, type="logistic", prec="sei", alternative=alternative, scaleprec=FALSE) sav4 <- selmodel(res, type="power", prec="sei", alternative=alternative, scaleprec=FALSE) expect_equivalent(c(sav1$delta, sav2$delta, sav3$delta, sav4$delta), c(3.506329, 2.279336, 3.017851, 1.444174), tolerance=.tol[["coef"]]) expect_equivalent(c(sav1$se.delta, sav2$se.delta, sav3$se.delta, sav4$se.delta), c(3.387300, 2.133013, 2.315789, 1.381633), tolerance=.tol[["se"]]) sav1 <- selmodel(res, type="halfnorm", prec="sei", alternative=alternative, steps=.05) sav2 <- selmodel(res, type="negexp", prec="sei", alternative=alternative, steps=.05) sav3 <- selmodel(res, type="logistic", prec="sei", alternative=alternative, steps=.05) sav4 <- selmodel(res, type="power", prec="sei", alternative=alternative, steps=.05, control=list(hessianCtrl=list(r=8))) expect_equivalent(c(sav1$delta, sav2$delta, sav3$delta, sav4$delta), c(5.832106, 3.819847, 5.041039, 2.399645), tolerance=.tol[["coef"]]) expect_equivalent(c(sav1$se.delta, sav2$se.delta, sav3$se.delta, sav4$se.delta), c(5.644466, 3.627467, 2.306998, 2.134629), tolerance=.tol[["se"]]) sav <- selmodel(res, type="negexppow", alternative=alternative) expect_equivalent(coef(sav)$delta, c(2.673818, 1.153199), tolerance=.tol[["coef"]]) expect_equivalent(se(sav)$delta, c(2.363403, 2.143849), tolerance=.tol[["se"]]) }) test_that("results are correct for a pirori chosen step function models.", { skip_on_cran() tab <- data.frame( steps = c(0.005, 0.01, 0.05, 0.10, 0.25, 0.35, 0.50, 0.65, 0.75, 0.90, 0.95, 0.99, 0.995, 1), delta.mod.1 = c(1, 0.99, 0.95, 0.80, 0.75, 0.65, 0.60, 0.55, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50), delta.sev.1 = c(1, 0.99, 0.90, 0.75, 0.60, 0.50, 0.40, 0.35, 0.30, 0.25, 0.10, 0.10, 0.10, 0.10), delta.mod.2 = c(1, 0.99, 0.95, 0.90, 0.80, 0.75, 0.60, 0.60, 0.75, 0.80, 0.90, 0.95, 0.99, 1.00), delta.sev.2 = c(1, 0.99, 0.90, 0.75, 0.60, 0.50, 0.25, 0.25, 0.50, 0.60, 0.75, 0.90, 0.99, 1.00)) dat <- dat.cohen1981 dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat[c(1,4,5)]) res <- rma(yi, vi, data=dat, method="ML") sav <- lapply(tab[-1], function(x) selmodel(res, type="stepfun", steps=tab$steps, delta=x, defmap=TRUE)) expect_equivalent(sapply(sav, function(x) x$beta), c(0.351894, 0.321518, 0.362019, 0.33218), tolerance=.tol[["coef"]]) expect_equivalent(sapply(sav, function(x) x$tau2), c(0.0045, 0.009544, 0.002774, 0.005652), tolerance=.tol[["var"]]) }) test_that("results are correct for a truncated distribution model.", { skip_on_cran() dat <- dat.hackshaw1998 res <- rma(yi, vi, data=dat, method="ML") sav <- selmodel(res, type="trunc") out <- capture.output(print(sav)) expect_equivalent(coef(sav)$delta, 0.3818424, tolerance=.tol[["coef"]]) expect_equivalent(se(sav)$delta, 0.2235527, tolerance=.tol[["se"]]) expect_equivalent(sav$LRT, 3.054457, tolerance=.tol[["test"]]) expect_identical(sav$LRTdf, 1L) expect_equivalent(sav$tau2, 0.02677134, tolerance=.tol[["var"]]) tmp <- confint(sav) expect_equivalent(tmp[[1]]$random[1,], c(0.026771, 0.001693, 0.099835), tolerance=.tol[["var"]]) expect_equivalent(tmp[[2]]$random[1,], c(0.381842, 0.108796, 1.116679), tolerance=.tol[["coef"]]) png(filename="images/test_misc_selmodel_profile_2_test.png", res=200, width=1800, height=1600, type="cairo") tmp <- profile(sav, cline=TRUE, progbar=FALSE) dev.off() expect_true(.vistest("images/test_misc_selmodel_profile_2_test.png", "images/test_misc_selmodel_profile_2.png")) res <- rma(yi, vi, data=dat, method="EE") sav <- selmodel(res, type="truncest") expect_equivalent(coef(sav)$delta, c(0.2336542, 0.4690409), tolerance=.tol[["coef"]]) sav <- selmodel(res, type="truncest", control=list(optimizer="mads")) expect_equivalent(coef(sav)$delta, c(0.1802357, 0.4187099), tolerance=.tol[["coef"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_pdfs.r0000644000176200001440000000160714712730627020117 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: pdfs of various measures") source("settings.r") test_that(".dsmd() works correctly.", { d <- metafor:::.dsmd(0.5, n1=15, n2=15, theta=0.8, correct=TRUE) expect_equivalent(d, 0.8208, tolerance=.tol[["den"]]) d <- metafor:::.dsmd(0.5, n1=15, n2=15, theta=0.8, correct=FALSE) expect_equivalent(d, 0.7757, tolerance=.tol[["den"]]) }) test_that(".dcor() works correctly.", { d <- metafor:::.dcor(0.5, n=15, rho=0.8) expect_equivalent(d, 0.2255, tolerance=.tol[["den"]]) }) test_that(".dzcor() works correctly.", { d <- metafor:::.dzcor(0.5, n=15, rho=0.8) expect_equivalent(d, 0.1183, tolerance=.tol[["den"]]) d <- metafor:::.dzcor(0.5, n=15, zrho=transf.rtoz(0.8)) expect_equivalent(d, 0.1183, tolerance=.tol[["den"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_cumulative_forest_plot.r0000644000176200001440000000557614762055330024174 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:cumulative_forest_plot source("settings.r") context("Checking plots example: cumulative forest plot") test_that("plot can be drawn for 'rma.uni' object.", { skip_on_cran() png("images/test_plots_cumulative_forest_plot_1_test.png", res=240, width=1800, height=1400, type="cairo") ### decrease margins so the full space is used par(mar=c(4,4,2,2)) ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects models res <- rma(yi, vi, data=dat, slab=paste(author, year, sep=", ")) ### cumulative meta-analysis (in the order of publication year) tmp <- cumul(res, order=year) ### cumulative forest plot forest(tmp, xlim=c(-4,2), at=log(c(0.125, 0.25, 0.5, 1, 2)), atransf=exp, digits=c(2L,3L), cex=0.85, header="Author(s) and Year") dev.off() expect_true(.vistest("images/test_plots_cumulative_forest_plot_1_test.png", "images/test_plots_cumulative_forest_plot_1.png")) }) test_that("plot can be drawn for 'rma.mh' object.", { skip_on_cran() png("images/test_plots_cumulative_forest_plot_2_test.png", res=240, width=1800, height=1400, type="cairo") ### decrease margins so the full space is used par(mar=c(4,4,2,2)) ### fit equal-effects models using the Mantel-Haenszel method res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### cumulative meta-analysis (in the order of publication year) tmp <- cumul(res, order=dat.bcg$year) ### cumulative forest plot forest(tmp, xlim=c(-4,2), at=log(c(0.125, 0.25, 0.5, 1, 2)), atransf=exp, digits=c(2L,3L), cex=0.85, header="Author(s) and Year") dev.off() expect_true(.vistest("images/test_plots_cumulative_forest_plot_2_test.png", "images/test_plots_cumulative_forest_plot_2.png")) }) test_that("plot can be drawn for 'rma.peto' object.", { skip_on_cran() png("images/test_plots_cumulative_forest_plot_3_test.png", res=240, width=1800, height=1400, type="cairo") ### decrease margins so the full space is used par(mar=c(4,4,2,2)) ### fit equal-effects models using Peto's method res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### cumulative meta-analysis (in the order of publication year) tmp <- cumul(res, order=dat.bcg$year) ### cumulative forest plot forest(tmp, xlim=c(-4,2), at=log(c(0.125, 0.25, 0.5, 1, 2)), atransf=exp, digits=c(2L,3L), cex=0.85, header="Author(s) and Year") dev.off() expect_true(.vistest("images/test_plots_cumulative_forest_plot_3_test.png", "images/test_plots_cumulative_forest_plot_3.png")) }) rm(list=ls()) metafor/tests/testthat/test_misc_influence.r0000644000176200001440000001672414720347260021135 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: influence() and related functions") source("settings.r") test_that("influence() works for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) sav <- influence(res) sav$inf <- sav$inf[1] sav$dfbs <- sav$dfbs[1] sav$is.infl <- sav$is.infl[1] sav$not.na <- sav$not.na[1] tmp <- structure(list(inf = structure(list(rstudent = -0.218142474344442, dffits = -0.0407075604868486, cook.d = 0.00171654236729195, cov.r = 1.11644891104804, tau2.del = 0.336156745300306, QE.del = 151.582572747109, hat = 0.0505948307931551, weight = 5.05948307931551, inf = "", slab = 1L, digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4)), class = "list.rma"), dfbs = structure(list(intrcpt = -0.0402659025974144, slab = 1L, digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4)), class = "list.rma"), ids = 1:13, not.na = TRUE, is.infl = FALSE, tau2 = 0.313243325980895, QE = 152.233008082373, k = 13L, p = 1L, m = 1L, digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4)), class = "infl.rma.uni") expect_equivalent(sav, tmp, tolerance=.tol[["inf"]]) }) test_that("leave1out() works for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) inf <- leave1out(res) inf <- inf[1] sav <- structure(list(estimate = -0.707083788031436, se = 0.189961024702717, zval = -3.72225717953459, pval = 0.000197449759023198, ci.lb = -1.07940055491509, ci.ub = -0.334767021147788, Q = 151.582572747109, Qp = 7.0778599767807e-27, tau2 = 0.336156745300306, I2 = 93.2259349111223, H2 = 14.762184698253, slab = "-1", digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4), transf = FALSE), class = "list.rma") expect_equivalent(sav, inf, tolerance=.tol[["misc"]]) }) test_that("leave1out() works for rma.mh().", { res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) inf <- leave1out(res) inf <- inf[1] sav <- structure(list(estimate = -0.451379469928476, se = 0.0394350331703394, zval = -11.4461541842439, pval = 2.45810944109134e-30, ci.lb = -0.528670714671484, ci.ub = -0.374088225185468, Q = 151.915260738878, Qp = 6.05181927235005e-27, I2 = 92.7591211399706, H2 = 13.8104782489889, slab = "-1", digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4), transf = FALSE), class = "list.rma") expect_equivalent(sav, inf, tolerance=.tol[["misc"]]) }) test_that("leave1out() works for rma.peto().", { res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) inf <- leave1out(res) inf <- inf[1] sav <- structure(list(estimate = -0.472177269248539, se = 0.0407784291562603, zval = -11.5790941195696, pval = 5.25989306490064e-31, ci.lb = -0.552101521740927, ci.ub = -0.39225301675615, Q = 167.200450619361, Qp = 4.44309617192221e-30, I2 = 93.4210703623987, H2 = 15.2000409653964, slab = "-1", digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4), transf = FALSE), class = "list.rma") expect_equivalent(sav, inf, tolerance=.tol[["misc"]]) }) test_that("model.matrix() works for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat, data=dat) sav <- structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 44, 55, 42, 52, 13, 44, 19, 13, 27, 42, 18, 33, 33), .Dim = c(13L, 2L), .Dimnames = list(c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13"), c("intrcpt", "ablat"))) expect_equivalent(sav, model.matrix(res)) }) test_that("hatvalues() works for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat, data=dat) expect_equivalent(hatvalues(res), c(0.049, 0.1493, 0.0351, 0.3481, 0.2248, 0.2367, 0.064, 0.357, 0.0926, 0.1157, 0.2309, 0.0189, 0.0778), tolerance=.tol[["inf"]]) sav <- structure(c(0.049, 0.067, 0.0458, 0.0994, 0.1493, 0.0904, 0.0374, 0.0498, 0.0351), .Dim = c(3L, 3L), .Dimnames = list(c("1", "2", "3"), c("1", "2", "3"))) expect_equivalent(hatvalues(res, type="matrix")[1:3,1:3], sav, tolerance=.tol[["inf"]]) }) test_that("hatvalues() works for rma.mv().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma.mv(yi, vi, mods = ~ ablat, random = ~ 1 | trial, data=dat, sparse=.sparse) expect_equivalent(hatvalues(res), c(0.049, 0.1493, 0.0351, 0.3481, 0.2248, 0.2367, 0.064, 0.357, 0.0926, 0.1157, 0.2309, 0.0189, 0.0778), tolerance=.tol[["inf"]]) sav <- structure(c(0.049, 0.067, 0.0458, 0.0994, 0.1493, 0.0904, 0.0374, 0.0498, 0.0351), .Dim = c(3L, 3L), .Dimnames = list(c("1", "2", "3"), c("1", "2", "3"))) expect_equivalent(hatvalues(res, type="matrix")[1:3,1:3], sav, tolerance=.tol[["inf"]]) }) test_that("cooks.distance() works for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat, data=dat) expect_equivalent(cooks.distance(res), c(0.0048, 0.0489, 0.0104, 0.2495, 0.0072, 0.2883, 0.3643, 0.2719, 0.02, 0.1645, 0.0009, 0.0403, 0.1433), tolerance=.tol[["inf"]]) }) test_that("cooks.distance() works for rma.mv().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma.mv(yi, vi, mods = ~ ablat, random = ~ 1 | trial, data=dat, sparse=.sparse) expect_equivalent(cooks.distance(res), c(0.0048, 0.0489, 0.0104, 0.2495, 0.0072, 0.2883, 0.3643, 0.2719, 0.02, 0.1645, 0.0009, 0.0404, 0.1434), tolerance=.tol[["inf"]]) expect_equivalent(cooks.distance(res, cluster=alloc), c(0.2591, 2.4372, 0.1533), tolerance=.tol[["inf"]]) expect_equivalent(cooks.distance(res, cluster=alloc, reestimate=FALSE), c(0.3199, 2.2194, 0.2421), tolerance=.tol[["inf"]]) }) test_that("influence() correctly works with 'na.omit' and 'na.pass'.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0("Trial ", dat.bcg$trial)) dat$yi[2] <- NA dat$vi[3] <- NA dat$ablat[5] <- NA dat$trial12 <- ifelse(dat$trial == 12, 1, 0) options(na.action="na.omit") expect_warning(res <- rma(yi, vi, mods = ~ ablat + trial12, data=dat)) sav <- influence(res) expect_equivalent(length(sav$inf$rstudent), 10) expect_equivalent(sum(is.na(sav$inf$rstudent)), 1) expect_equivalent(sum(is.na(sav$inf$hat)), 0) expect_equivalent(sum(is.na(sav$dfbs$intrcpt)), 1) options(na.action="na.pass") expect_warning(res <- rma(yi, vi, mods = ~ ablat + trial12, data=dat)) sav <- influence(res) expect_equivalent(length(sav$inf$rstudent), 13) expect_equivalent(sum(is.na(sav$inf$rstudent)), 4) expect_equivalent(sum(is.na(sav$inf$hat)), 3) expect_equivalent(sum(is.na(sav$dfbs$intrcpt)), 4) options(na.action="na.omit") }) test_that("'infonly' argument works correctly with influence().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0("Trial ", dat.bcg$trial)) res <- rma(yi, vi, data=dat, method="EE") inf <- influence(res) tmp <- capture.output(sav <- print(inf)) expect_equivalent(length(sav$rstudent), 13) tmp <- capture.output(sav <- print(inf, infonly=TRUE)) expect_equivalent(length(sav$rstudent), 3) }) rm(list=ls()) metafor/tests/testthat/test_misc_vif.r0000644000176200001440000000175314712730577017755 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: vif() function") source("settings.r") test_that("vif() works correctly for 'rma.uni' objects.", { dat <- dat.bangertdrowns2004 dat <- dat[!apply(dat[,c("length", "wic", "feedback", "info", "pers", "imag", "meta")], 1, anyNA),] res <- rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta, data=dat) sav <- vif(res) out <- capture.output(print(sav)) vifs <- c(length = 1.53710262575577, wic = 1.38604929927746, feedback = 1.64904565071108, info = 1.83396138431786, pers = 5.67803138275492, imag = 1.1553714953831, meta = 4.53327503733189) expect_equivalent(sav$vifs, vifs) sav <- vif(res, table=TRUE) out <- capture.output(print(sav)) expect_equivalent(sav$vifs, vifs) sav <- vif(res, btt=2:3) out <- capture.output(print(sav)) gvif <- 2.06507966959426 expect_equivalent(sav$vifs, gvif) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_glmm.r0000644000176200001440000002233315121253707020747 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma.glmm() function") source("settings.r") dat <- dat.nielweise2007 test_that("rma.glmm() works correctly for 'UM.FS' model.", { expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.FS", method="EE")) out <- capture.output(print(res)) expect_equivalent(coef(res), -1.2286, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0, tolerance=.tol[["var"]]) expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.FS", test="t")) out <- capture.output(print(res)) expect_equivalent(coef(res), -1.2370, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0.3198, tolerance=.tol[["var"]]) ### check some (current) stop()'s expect_error(confint(res)) expect_error(plot(res)) expect_error(qqnorm(res)) expect_error(weights(res)) skip_on_cran() ### check GLMMadaptive and glmmTMB results expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.FS", test="t", control=list(package="GLMMadaptive"))) expect_equivalent(coef(res), -1.236772, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0.322732, tolerance=.tol[["var"]]) expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.FS", test="t", control=list(package="glmmTMB"))) expect_equivalent(coef(res), -1.2372, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0.3312, tolerance=.tol[["var"]]) }) test_that("rma.glmm() works correctly for 'UM.RS' model.", { expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.RS", method="EE")) out <- capture.output(print(res)) expect_equivalent(coef(res), -1.2207, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0, tolerance=.tol[["var"]]) expect_equivalent(res$sigma2, 0.6155, tolerance=.tol[["var"]]) expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.RS", test="t")) out <- capture.output(print(res)) expect_equivalent(coef(res), -1.2812, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0.7258, tolerance=.tol[["var"]]) expect_equivalent(res$sigma2, 0.5212, tolerance=.tol[["var"]]) ### check some (current) stop()'s expect_error(confint(res)) expect_error(plot(res)) expect_error(qqnorm(res)) expect_error(weights(res)) skip_on_cran() ### check GLMMadaptive and glmmTMB results expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.RS", test="t", control=list(package="GLMMadaptive"))) expect_equivalent(coef(res), -1.2795, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0.7301, tolerance=.tol[["var"]]) expect_equivalent(res$sigma2, 0.5364, tolerance=.tol[["var"]]) expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="UM.RS", test="t", control=list(package="glmmTMB"))) expect_equivalent(coef(res), -1.2812, tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 0.7258, tolerance=.tol[["var"]]) expect_equivalent(res$sigma2, 0.5212, tolerance=.tol[["var"]]) }) test_that("rma.glmm() works correctly when using 'clogit' or 'clogistic'.", { skip_on_cran() expect_warning(res1 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", method="EE")) expect_warning(res2 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", method="EE", control=list(optimizer="clogit"))) expect_warning(res3 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", method="EE", control=list(optimizer="clogistic"))) expect_equivalent(coef(res1), -1.2236, tolerance=.tol[["coef"]]) expect_equivalent(coef(res2), -1.2236, tolerance=.tol[["coef"]]) expect_equivalent(coef(res3), -1.2236, tolerance=.tol[["coef"]]) expect_equivalent(c(vcov(res1)), 0.0502, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res2)), 0.0502, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res3)), 0.0502, tolerance=.tol[["var"]]) }) test_that("rma.glmm() works correctly for 'CM.EL' model.", { skip_on_cran() expect_warning(res1 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL")) expect_warning(res2 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="Nelder-Mead", hessianCtrl=list(r=6, d=0.00001)))) expect_warning(res3 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="BFGS"))) expect_warning(res4 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="bobyqa"))) expect_warning(res5 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="nloptr"))) expect_warning(res6 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="hjk"))) expect_warning(res7 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="nmk", hessianCtrl=list(r=2, d=0.000001)))) expect_warning(res8 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="mads", hessianCtrl=list(r=2, d=0.000001)))) expect_warning(res9 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="ucminf", optCtrl=list(xtol=1e-6)))) expect_warning(res10 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="lbfgsb3c"))) expect_warning(res11 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="subplex", hessianCtrl=list(r=4)))) expect_warning(res12 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="BBoptim"))) expect_warning(res13 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="Rcgmin"))) expect_warning(res14 <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL", control=list(optimizer="Rvmmin"))) expect_equivalent(coef(res1), -1.353158, tolerance=.tol[["coef"]]) expect_equivalent(coef(res2), -1.354041, tolerance=.tol[["coef"]]) expect_equivalent(coef(res3), -1.353158, tolerance=.tol[["coef"]]) expect_equivalent(coef(res4), -1.353158, tolerance=.tol[["coef"]]) expect_equivalent(coef(res5), -1.352573, tolerance=.tol[["coef"]]) expect_equivalent(coef(res6), -1.353160, tolerance=.tol[["coef"]]) expect_equivalent(coef(res7), -1.359295, tolerance=.tol[["coef"]]) expect_equivalent(coef(res8), -1.354186, tolerance=.tol[["coef"]]) expect_equivalent(coef(res9), -1.353158, tolerance=.tol[["coef"]]) expect_equivalent(coef(res10), -1.353170, tolerance=.tol[["coef"]]) expect_equivalent(coef(res11), -1.354171, tolerance=.tol[["coef"]]) expect_equivalent(coef(res12), -1.353158, tolerance=.tol[["coef"]]) expect_equivalent(coef(res13), -1.353158, tolerance=.tol[["coef"]]) expect_equivalent(coef(res14), -1.353158, tolerance=.tol[["coef"]]) expect_equivalent(c(vcov(res1)), 0.1232445, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res2)), 0.1205896, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res3)), 0.1231863, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res4)), 0.1231865, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res5)), 0.1230846, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res6)), 0.1231713, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res7)), 0.1216026, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res8)), 0.1229283, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res9)), 0.1232442, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res10)), 0.1232348, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res11)), 0.0404973, tolerance=.tol[["var"]]) # :( expect_equivalent(c(vcov(res12)), 0.1233028, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res13)), 0.1232885, tolerance=.tol[["var"]]) expect_equivalent(c(vcov(res14)), 0.1231726, tolerance=.tol[["var"]]) expect_equivalent(res1$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res2$tau2, 0.6945, tolerance=.tol[["var"]]) expect_equivalent(res3$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res4$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res5$tau2, 0.6937, tolerance=.tol[["var"]]) expect_equivalent(res6$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res7$tau2, 0.7043, tolerance=.tol[["var"]]) expect_equivalent(res8$tau2, 0.6944, tolerance=.tol[["var"]]) expect_equivalent(res9$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res10$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res11$tau2, 0.6944, tolerance=.tol[["var"]]) expect_equivalent(res12$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res13$tau2, 0.6935, tolerance=.tol[["var"]]) expect_equivalent(res14$tau2, 0.6935, tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_emmprep.r0000644000176200001440000000445314712730641020626 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: emmprep() function") source("settings.r") test_that("emmprep() gives correct results for an intercept-only model.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) sav <- capture.output(emmprep(res, verbose=TRUE)) sav <- emmprep(res) skip_on_cran() tmp <- emmeans::emmeans(sav, specs="1", type="response") tmp <- as.data.frame(tmp) expect_equivalent(tmp$response, 0.4894209, tolerance=.tol[["pred"]]) expect_equivalent(tmp$asymp.LCL, 0.3440743, tolerance=.tol[["ci"]]) expect_equivalent(tmp$asymp.UCL, 0.6961661, tolerance=.tol[["ci"]]) }) test_that("emmprep() gives correct results for a meta-regression model.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat$yi[1] <- NA res <- suppressWarnings(rma(yi, vi, mods = ~ ablat + alloc, data=dat, subset=-2, test="knha")) sav <- emmprep(res) skip_on_cran() tmp <- emmeans::emmeans(sav, specs="1", type="response") tmp <- as.data.frame(tmp) expect_equivalent(tmp$response, 0.5395324, tolerance=.tol[["pred"]]) expect_equivalent(tmp$lower.CL, 0.3564229, tolerance=.tol[["ci"]]) expect_equivalent(tmp$upper.CL, 0.8167130, tolerance=.tol[["ci"]]) sav <- emmprep(res, data=dat[-c(1,2),], df=7, sigma=sqrt(res$tau2), tran="log") tmp <- as.data.frame(tmp) expect_equivalent(tmp$response, 0.5395324, tolerance=.tol[["pred"]]) expect_equivalent(tmp$lower.CL, 0.3564229, tolerance=.tol[["ci"]]) expect_equivalent(tmp$upper.CL, 0.8167130, tolerance=.tol[["ci"]]) }) test_that("emmprep() gives correct results for the r-to-z transformation.", { dat <- dat.mcdaniel1994 dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat) res <- suppressWarnings(rma(yi, vi, mods = ~ factor(type), data=dat, test="knha")) sav <- emmprep(res) skip_on_cran() tmp <- emmeans::emmeans(sav, specs="1", type="response") tmp <- as.data.frame(tmp) expect_equivalent(tmp$response, 0.2218468, tolerance=.tol[["pred"]]) expect_equivalent(tmp$lower.CL, 0.1680606, tolerance=.tol[["ci"]]) expect_equivalent(tmp$upper.CL, 0.2743160, tolerance=.tol[["ci"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_dfround.r0000644000176200001440000000122114712730642020611 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: dfround() function") source("settings.r") test_that("dfround() works correctly.", { dat <- as.data.frame(dat.raudenbush1985) dat$yi <- c(dat$yi) dat <- dfround(dat, c(rep(NA,8), 2, 3)) expect_identical(dat$yi, c(0.03, 0.12, -0.14, 1.18, 0.26, -0.06, -0.02, -0.32, 0.27, 0.8, 0.54, 0.18, -0.02, 0.23, -0.18, -0.06, 0.3, 0.07, -0.07)) expect_identical(dat$vi, c(0.016, 0.022, 0.028, 0.139, 0.136, 0.011, 0.011, 0.048, 0.027, 0.063, 0.091, 0.05, 0.084, 0.084, 0.025, 0.028, 0.019, 0.009, 0.03)) }) rm(list=ls()) metafor/tests/testthat/test_misc_residuals.r0000644000176200001440000000760714712730623021160 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: residuals() function") source("settings.r") test_that("residuals are correct for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) res <- rma(yi, vi, data=dat) expect_equivalent(c(residuals(res)), c(dat$yi - coef(res))) expect_equivalent(rstandard(res)$z, c(0.1401, -0.9930, -0.4719, -1.0475, 1.6462, 0.4825), tolerance=.tol[["pred"]]) expect_equivalent(rstudent(res)$z, c(0.1426, -0.9957, -0.4591, -1.1949, 2.0949, 0.4330), tolerance=.tol[["test"]]) res <- rma(yi, vi, data=dat, method="EE") expect_equivalent(sum(residuals(res, type="pearson")^2), res$QE, tolerance=.tol[["test"]]) expect_equivalent(sum(residuals(res, type="cholesky")^2), res$QE, tolerance=.tol[["test"]]) }) test_that("rstudent() yields the same results as a mean shift outlier model for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) dat$trial1 <- ifelse(dat$trial == 1, 1, 0) res <- rma(yi, vi, data=dat) sav <- rstudent(res) res <- rma(yi, vi, mods = ~ trial1, data=dat) expect_equivalent(coef(res)[2], sav$resid[1], tolerance=.tol[["coef"]]) expect_equivalent(se(res)[2], sav$se[1], tolerance=.tol[["se"]]) res <- rma(yi, vi, data=dat, test="knha") sav <- rstudent(res) res <- rma(yi, vi, mods = ~ trial1, data=dat, test="knha") expect_equivalent(coef(res)[2], sav$resid[1], tolerance=.tol[["pred"]]) expect_equivalent(se(res)[2], sav$se[1], tolerance=.tol[["se"]]) }) test_that("residuals are correct for rma.mv().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, sparse=.sparse) expect_equivalent(c(residuals(res)), c(dat$yi - coef(res))) expect_equivalent(rstandard(res)$z, c(0.1401, -0.9930, -0.4719, -1.0476, 1.6462, 0.4825), tolerance=.tol[["test"]]) expect_equivalent(rstandard(res, cluster=alloc)$cluster$X2, c(3.7017, 3.6145), tolerance=.tol[["test"]]) expect_equivalent(rstudent(res)$z, c(0.1426, -0.9957, -0.4591, -1.1949, 2.0949, 0.4330), tolerance=.tol[["test"]]) expect_equivalent(rstudent(res, cluster=alloc)$cluster$X2, c(27.4717, 5.2128), tolerance=.tol[["test"]]) expect_equivalent(rstudent(res, cluster=alloc, reestimate=FALSE)$cluster$X2, c(3.7017, 3.6145), tolerance=.tol[["test"]]) }) test_that("residuals are correct for rma.mh().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) expect_equivalent(c(residuals(res)), c(dat$yi - coef(res))) expect_equivalent(residuals(res, type="rstandard"), c(0.1068, -1.4399, -0.6173, -3.4733, 3.2377, 1.9749), tolerance=.tol[["pred"]]) expect_equivalent(residuals(res, type="rstudent"), c(0.1076, -1.4668, -0.6219, -4.2413, 3.3947, 2.7908), tolerance=.tol[["pred"]]) }) test_that("residuals are correct for rma.peto().", { dat <- escalc(measure="PETO", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) expect_equivalent(c(residuals(res)), c(dat$yi - coef(res))) expect_equivalent(rstandard(res)$z, c(0.2684, -1.1482, -0.4142, -2.3440, 3.4961, 0.8037), tolerance=.tol[["test"]]) expect_equivalent(rstudent(res)$z, c(0.2705, -1.1700, -0.4173, -2.8891, 3.6614, 1.1391), tolerance=.tol[["test"]]) }) test_that("residuals are correct for rma.glmm().", { skip_on_cran() dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) res <- rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) expect_equivalent(c(residuals(res)), c(dat$yi - coef(res))) }) rm(list=ls()) metafor/tests/testthat/test_misc_plot_rma.r0000644000176200001440000000553614762055264021007 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: plot() function") source("settings.r") test_that("plot can be drawn for rma().", { skip_on_cran() dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) png(filename="images/test_misc_plot_rma_1_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(res) dev.off() expect_true(.vistest("images/test_misc_plot_rma_1_light_test.png", "images/test_misc_plot_rma_1_light.png")) png(filename="images/test_misc_plot_rma_1_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(res) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_plot_rma_1_dark_test.png", "images/test_misc_plot_rma_1_dark.png")) res <- rma(yi ~ ablat, vi, data=dat) png(filename="images/test_misc_plot_rma_2_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(res) dev.off() expect_true(.vistest("images/test_misc_plot_rma_2_light_test.png", "images/test_misc_plot_rma_2_light.png")) png(filename="images/test_misc_plot_rma_2_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(res) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_plot_rma_2_dark_test.png", "images/test_misc_plot_rma_2_dark.png")) }) test_that("plot can be drawn for rma.mh().", { skip_on_cran() res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) png(filename="images/test_misc_plot_rma_3_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(res) dev.off() expect_true(.vistest("images/test_misc_plot_rma_3_light_test.png", "images/test_misc_plot_rma_3_light.png")) png(filename="images/test_misc_plot_rma_3_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(res) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_plot_rma_3_dark_test.png", "images/test_misc_plot_rma_3_dark.png")) }) test_that("plot can be drawn for rma.peto().", { skip_on_cran() res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) png(filename="images/test_misc_plot_rma_4_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(res) dev.off() expect_true(.vistest("images/test_misc_plot_rma_4_light_test.png", "images/test_misc_plot_rma_4_light.png")) png(filename="images/test_misc_plot_rma_4_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(res) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_plot_rma_4_dark_test.png", "images/test_misc_plot_rma_4_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_plots_forest_plot_with_subgroups.r0000644000176200001440000000661314762055345025101 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:forest_plot_with_subgroups source("settings.r") context("Checking plots example: forest plot with subgroups") test_that("plot can be drawn.", { skip_on_cran() png("images/test_plots_forest_plot_with_subgroups_test.png", res=240, width=1800, height=1800, type="cairo") ### decrease the top margin #par(mar=c(4,4,1,2)) par(mar=c(5,4,2,2)) ### copy BCG vaccine meta-analysis data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances (and use ### the 'slab' argument to store study labels as part of the data frame) dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, slab=paste(author, year, sep=", ")) ### fit random-effects model res <- rma(yi, vi, data=dat) ### a little helper function to add Q-test, I^2, and tau^2 estimate info mlabfun <- function(text, x) { list(bquote(paste(.(text), " (Q = ", .(fmtx(x$QE, digits=2)), ", df = ", .(x$k - x$p), ", ", .(fmtp(x$QEp, digits=3, pname="p", add0=TRUE, sep=TRUE, equal=TRUE)), "; ", I^2, " = ", .(fmtx(x$I2, digits=1)), "%, ", tau^2, " = ", .(fmtx(x$tau2, digits=2)), ")")))} ### set up forest plot (with 2x2 table counts added; the 'rows' argument is ### used to specify in which rows the outcomes will be plotted) forest(res, xlim=c(-16, 4.6), at=log(c(0.05, 0.25, 1, 4)), atransf=exp, ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, ylim=c(-2, 28), top=4, order=alloc, rows=c(3:4,9:15,20:23), mlab=mlabfun("RE Model for All Studies", res), psize=1, header="Author(s) and Year") ### set font expansion factor (as in forest() above) op <- par(cex=0.75) ### add additional column headings to the plot text(c(-8.75,-5.25), 27, c("Vaccinated", "Control"), font=2) ### add text for the subgroups text(-16, c(24,16,5), pos=4, c("Systematic Allocation", "Random Allocation", "Alternate Allocation"), font=4) ### set par back to the original settings par(op) ### fit random-effects model in the three subgroups res.s <- rma(yi, vi, subset=(alloc=="systematic"), data=dat) res.r <- rma(yi, vi, subset=(alloc=="random"), data=dat) res.a <- rma(yi, vi, subset=(alloc=="alternate"), data=dat) ### add summary polygons for the three subgroups addpoly(res.s, row=18.5, mlab=mlabfun("RE Model for Subgroup", res.s)) addpoly(res.r, row= 7.5, mlab=mlabfun("RE Model for Subgroup", res.r)) addpoly(res.a, row= 1.5, mlab=mlabfun("RE Model for Subgroup", res.a)) ### fit meta-regression model to test for subgroup differences res <- rma(yi, vi, mods = ~ alloc, data=dat) ### add text for the test of subgroup differences text(-16, -1.8, pos=4, cex=0.75, bquote(paste("Test for Subgroup Differences: ", Q[M], " = ", .(fmtx(res$QM, digits=2)), ", df = ", .(res$p - 1), ", ", .(fmtp(res$QMp, digits=2, pname="p", add0=TRUE, sep=TRUE, equal=TRUE))))) dev.off() expect_true(.vistest("images/test_plots_forest_plot_with_subgroups_test.png", "images/test_plots_forest_plot_with_subgroups.png")) }) rm(list=ls()) metafor/tests/testthat/test_plots_meta-analytic_scatterplot.r0000644000176200001440000000306314762055401024536 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:meta_analytic_scatterplot source("settings.r") context("Checking plots example: meta-analytic scatterplot") test_that("plot can be drawn.", { skip_on_cran() dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat, data=dat) png("images/test_plots_meta_analytic_scatterplot_light_test.png", res=200, width=1800, height=1500, type="cairo") par(mar=c(5,5,1,2)) regplot(res, xlim=c(10,60), predlim=c(10,60), xlab="Absolute Latitude", refline=0, atransf=exp, at=log(seq(0.2,1.6,by=0.2)), digits=1, las=1, bty="l", label=c(4,7,12,13), offset=c(1.6,0.8), labsize=0.9) dev.off() expect_true(.vistest("images/test_plots_meta_analytic_scatterplot_light_test.png", "images/test_plots_meta_analytic_scatterplot_light.png")) png("images/test_plots_meta_analytic_scatterplot_dark_test.png", res=200, width=1800, height=1500, type="cairo") setmfopt(theme="dark") par(mar=c(5,5,1,2)) regplot(res, xlim=c(10,60), predlim=c(10,60), xlab="Absolute Latitude", refline=0, atransf=exp, at=log(seq(0.2,1.6,by=0.2)), digits=1, las=1, bty="l", label=c(4,7,12,13), offset=c(1.6,0.8), labsize=0.9) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_meta_analytic_scatterplot_dark_test.png", "images/test_plots_meta_analytic_scatterplot_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_lipsey2001.r0000644000176200001440000001132014712730437023366 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:lipsey2001 context("Checking analysis example: lipsey2001") source("settings.r") ### create dataset dat <- data.frame( id = c(100, 308, 1596, 2479, 9021, 9028, 161, 172, 537, 7049), yi = c(-0.33, 0.32, 0.39, 0.31, 0.17, 0.64, -0.33, 0.15, -0.02, 0.00), vi = c(0.084, 0.035, 0.017, 0.034, 0.072, 0.117, 0.102, 0.093, 0.012, 0.067), random = c(0, 0, 0, 0, 0, 0, 1, 1, 1, 1), intensity = c(7, 3, 7, 5, 7, 7, 4, 4, 5, 6)) test_that("results are correct for the equal-effects model.", { res <- rma(yi, vi, data=dat, method="EE") ### compare with results on page 133 (Exhibit 7.3) expect_equivalent(c(as.matrix(coef(summary(res)))), c(0.1549, 0.0609, 2.5450, 0.0109, 0.0356, 0.2742), tolerance=.tol[["misc"]]) expect_equivalent(res$QE, 14.7640, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0.0976, tolerance=.tol[["pval"]]) }) test_that("results are correct for the random-effects model.", { res <- rma(yi, vi, data=dat, method="DL") ### compare with results on page 133 (Exhibit 7.3) expect_equivalent(c(as.matrix(coef(summary(res)))), c(0.1534, 0.0858, 1.7893, 0.0736, -0.0146, 0.3215), tolerance=.tol[["misc"]]) expect_equivalent(res$tau2, 0.025955, tolerance=.tol[["var"]]) }) test_that("results are correct for the ANOVA-type analysis.", { res <- rma(yi, vi, mods = ~ random, data=dat, method="FE") res0 <- rma(yi, vi, data=dat, method="EE", subset=random==0) res1 <- rma(yi, vi, data=dat, method="EE", subset=random==1) tmp <- predict(res, newmods=c(0,1)) tmp <- do.call(cbind, unclass(tmp)[1:4]) ### compare with results on page 138 (Exhibit 7.4) expect_equivalent(tmp[1,], c( 0.2984, 0.0813, 0.1390, 0.4578), tolerance=.tol[["pred"]]) expect_equivalent(tmp[2,], c(-0.0277, 0.0917, -0.2075, 0.1521), tolerance=.tol[["se"]]) expect_equivalent(res$QM, 7.0739, tolerance=.tol[["test"]]) ### 7.0738 in chapter expect_equivalent(res$QMp, 0.0078, tolerance=.tol[["pval"]]) expect_equivalent(res$QE, 7.6901, tolerance=.tol[["test"]]) ### 7.6902 in chapter expect_equivalent(res$QEp, 0.4643, tolerance=.tol[["pval"]]) expect_equivalent(res0$QE, 6.4382, tolerance=.tol[["test"]]) ### 6.4383 in chapter expect_equivalent(res0$QEp, 0.2659, tolerance=.tol[["pval"]]) expect_equivalent(res1$QE, 1.2519, tolerance=.tol[["test"]]) expect_equivalent(res1$QEp, 0.7406, tolerance=.tol[["pval"]]) }) test_that("results are correct for the meta-regression analysis (fixed-effects with moderators model).", { res <- rma(yi, vi, mods = ~ random + intensity, data=dat, method="FE") expected <- structure(list(estimate = c(0.32233263, -0.32978043, -0.00408559), se = c(0.29977632, 0.13041815, 0.04928185), zval = c(1.0752438, -2.52863907, -0.08290246), pval = c(0.28226559, 0.01145057, 0.9339291), ci.lb = c(-0.26521816, -0.58539531, -0.10067623), ci.ub = c(0.90988342, -0.07416555, 0.09250506)), row.names = c("intrcpt", "random", "intensity"), class = "data.frame") ### compare with results on page 141 (Exhibit 7.6) expect_equivalent(coef(summary(res)), expected, tolerance=.tol[["misc"]]) expect_equivalent(res$QM, 7.0807, tolerance=.tol[["test"]]) expect_equivalent(res$QMp, 0.0290, tolerance=.tol[["pval"]]) expect_equivalent(res$QE, 7.6832, tolerance=.tol[["test"]]) ### 7.6833 in chapter expect_equivalent(res$QEp, 0.3614, tolerance=.tol[["pval"]]) ### 0.3613 in chapter }) test_that("results are correct for the meta-regression analysis (mixed-effects model).", { res <- rma(yi, vi, mods = ~ random + intensity, data=dat, method="DL") expected <- structure(list(estimate = c(0.33106915, -0.32691858, -0.00682302), se = c(0.31983925, 0.1439395, 0.0528008), zval = c(1.03511109, -2.2712222, -0.12922184), pval = c(0.30061703, 0.02313353, 0.89718211), ci.lb = c(-0.29580425, -0.60903481, -0.11031068), ci.ub = c(0.95794255, -0.04480235, 0.09666464)), row.names = c("intrcpt", "random", "intensity"), class = "data.frame") ### compare with results on page 141 (Exhibit 7.7) expect_equivalent(coef(summary(res)), expected, tolerance=.tol[["misc"]]) expect_equivalent(res$QM, 5.5711, tolerance=.tol[["test"]]) ### 5.5709 in chapter expect_equivalent(res$QMp, 0.0617, tolerance=.tol[["pval"]]) expect_equivalent(res$tau2, 0.00488, tolerance=.tol[["var"]]) }) test_that("results are correct for the comutation of R^2 via the anova() function.", { res.ME <- rma(yi, vi, mods = ~ random + intensity, data=dat, method="DL") res.RE <- rma(yi, vi, data=dat, method="DL") expect_warning(tmp <- anova(res.RE, res.ME)) expect_equivalent(tmp$R2, 81.2023, tolerance=.tol[["r2"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_reporter.r0000644000176200001440000000073214712730624021020 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: reporter() function") source("settings.r") test_that("reporter() works correctly for 'rma.uni' objects.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) expect_error(res <- rma(yi, vi, data=dat), NA) # to avoid this being an empty test skip_on_cran() reporter(res, open=FALSE) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_rothman2008.r0000644000176200001440000004376314712730456023561 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:rothman2008 context("Checking analysis example: rothman2008") source("settings.r") ############################################################################ ### create dataset (Table 15-1) dat <- data.frame( age = c("Age <55", "Age 55+"), ai = c(8,22), bi = c(98,76), ci = c(5,16), di = c(115,69), stringsAsFactors=FALSE) test_that("the to.table() function works.", { tmp <- to.table(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", slab=age, rows=c("Tolbutamide", "Placebo"), cols=c("Dead", "Surviving")) expected <- structure(c(8, 5, 98, 115, 22, 16, 76, 69), .Dim = c(2L, 2L, 2L), .Dimnames = list(c("Tolbutamide", "Placebo"), c("Dead", "Surviving"), c("Age <55", "Age 55+"))) ### compare with data in Table 15-1 expect_equivalent(tmp, expected) }) test_that("the to.long() function works.", { tmp <- to.long(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", slab=age) expected <- structure(list(age = c("Age <55", "Age <55", "Age 55+", "Age 55+"), ai = c(8, 8, 22, 22), bi = c(98, 98, 76, 76), ci = c(5, 5, 16, 16), di = c(115, 115, 69, 69), study = structure(c(2L, 2L, 1L, 1L), .Label = c("Age 55+", "Age <55"), class = "factor"), group = structure(c(2L, 1L, 2L, 1L), .Label = c("2", "1"), class = "factor"), out1 = c(8, 5, 22, 16), out2 = c(98, 115, 76, 69)), class = "data.frame", row.names = c(NA, 4L)) expect_equivalent(tmp, expected) }) test_that("the stratum-specific and crude risk differences are computed correctly.", { ### stratum-specific risk differences tmp <- summary(escalc(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="RD", digits=3, append=FALSE)) tmp <- as.matrix(tmp[1:4]) expected <- structure(c(0.0338, 0.0363, 0.001, 0.0036, 0.0315, 0.0598, 1.0738, 0.6064), .Dim = c(2L, 4L), .Dimnames = list(NULL, c("yi", "vi", "sei", "zi"))) ### compare with data in Table 15-1 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) ### crude risk difference tmp <- summary(escalc(ai=sum(ai), bi=sum(bi), ci=sum(ci), di=sum(di), data=dat, measure="RD", digits=3, append=FALSE)) tmp <- as.matrix(tmp[1:4]) expected <- structure(c(0.0446, 0.0011, 0.0326, 1.3683), .Dim = c(1L, 4L), .Dimnames = list(NULL, c("yi", "vi", "sei", "zi"))) ### compare with data in Table 15-1 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) }) test_that("the stratum-specific and crude risk ratios are computed correctly.", { ### stratum-specific risk ratios tmp <- summary(escalc(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="RR", digits=2), transf=exp, append=FALSE) tmp <- as.matrix(tmp) expected <- structure(c(1.8113, 1.1926, 0.6112, 0.6713, 5.3679, 2.1188), .Dim = 2:3, .Dimnames = list(NULL, c("yi", "ci.lb", "ci.ub"))) ### compare with data in Table 15-1 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) ### crude risk ratio tmp <- summary(escalc(ai=sum(ai), bi=sum(bi), ci=sum(ci), di=sum(di), data=dat, measure="RR", digits=2, append=FALSE), transf=exp) tmp <- as.matrix(tmp) expected <- structure(c(1.4356, 0.851, 2.4216), .Dim = c(1L, 3L), .Dimnames = list(NULL, c("yi", "ci.lb", "ci.ub"))) ### compare with data in Table 15-1 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) }) test_that("results are correct for Mantel-Haenszel method.", { ### Mantel-Haenszel method with risk differences res <- rma.mh(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="RD", digits=3, level=90) out <- capture.output(print(res)) ### so that print.rma.mh() is used expect_equivalent(coef(res), 0.0349, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.0176, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.0874, tolerance=.tol[["ci"]]) ### 0.088 in chapter expect_equivalent(res$QE, 0.0017, tolerance=.tol[["test"]]) ### 0.001 in chapter expect_equivalent(res$QEp, 0.9669, tolerance=.tol[["pval"]]) ### Mantel-Haenszel method with risk ratios res <- rma.mh(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="RR", digits=2, level=90) out <- capture.output(print(res)) ### so that print.rma.mh() is used expect_equivalent(coef(res), 0.2818, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.1442, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.7078, tolerance=.tol[["ci"]]) expect_equivalent(res$QE, 0.4472, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0.5037, tolerance=.tol[["pval"]]) tmp <- c(confint(res, transf=exp)$fixed) expect_equivalent(tmp, c(1.3256, 0.8658, 2.0296), tolerance=.tol[["ci"]]) ### Mantel-Haenszel method with odds ratios res <- rma.mh(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", correct=FALSE, digits=2, level=90) out <- capture.output(print(res)) ### so that print.rma.mh() is used expect_equivalent(coef(res), 0.3387, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.1731, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.8505, tolerance=.tol[["ci"]]) expect_equivalent(res$QE, 0.3474, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0.5556, tolerance=.tol[["pval"]]) expect_equivalent(res$CO, 1.1976, tolerance=.tol[["test"]]) expect_equivalent(res$COp, 0.2738, tolerance=.tol[["pval"]]) expect_equivalent(res$MH, 1.1914, tolerance=.tol[["test"]]) expect_equivalent(res$MHp, 0.2750, tolerance=.tol[["pval"]]) expect_equivalent(res$TA, 0.3489, tolerance=.tol[["test"]]) expect_equivalent(res$TAp, 0.5547, tolerance=.tol[["pval"]]) tmp <- c(confint(res, transf=exp)$fixed) expect_equivalent(tmp, c(1.4031, 0.8411, 2.3409), tolerance=.tol[["ci"]]) skip_on_cran() ### conditional MLE of the odds ratio res <- rma.glmm(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", model="CM.EL", method="EE") expect_equivalent(coef(res), 0.3381, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.2699, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.9461, tolerance=.tol[["ci"]]) expect_equivalent(res$QE.Wld, 0.3480, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.Wld, 0.5552, tolerance=.tol[["pval"]]) expect_equivalent(res$QE.LRT, 0.3502, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.LRT, 0.5540, tolerance=.tol[["pval"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 1.4022, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.7634, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 2.5756, tolerance=.tol[["ci"]]) }) ############################################################################ ### create dataset (Table 15-2) dat <- data.frame( age = c("35-44", "45-54", "55-64", "65-74", "75-84"), x1i = c(32, 104, 206, 186, 102), t1i = c(52407, 43248, 28612, 12663, 5317) / 10000, x2i = c(2, 12, 28, 28, 31), t2i = c(18790, 10673, 5710, 2585, 1462) / 10000, stringsAsFactors=FALSE) test_that("the to.table() function works.", { tmp <- to.table(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRR", slab=age, rows=c("Smokers", "Nonsmokers"), cols=c("Deaths", "Years")) expected <- structure(c(32, 2, 5.2407, 1.879, 104, 12, 4.3248, 1.0673, 206, 28, 2.8612, 0.571, 186, 28, 1.2663, 0.2585, 102, 31, 0.5317, 0.1462), .Dim = c(2L, 2L, 5L), .Dimnames = list(c("Smokers", "Nonsmokers"), c("Deaths", "Years"), c("35-44", "45-54", "55-64", "65-74", "75-84"))) ### compare with data in Table 15-2 expect_equivalent(tmp, expected) }) test_that("the to.long() function works.", { tmp <- to.long(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRR", slab=age) expected <- structure(list(age = c("35-44", "35-44", "45-54", "45-54", "55-64", "55-64", "65-74", "65-74", "75-84", "75-84"), x1i = c(32, 32, 104, 104, 206, 206, 186, 186, 102, 102), t1i = c(5.2407, 5.2407, 4.3248, 4.3248, 2.8612, 2.8612, 1.2663, 1.2663, 0.5317, 0.5317), x2i = c(2, 2, 12, 12, 28, 28, 28, 28, 31, 31), t2i = c(1.879, 1.879, 1.0673, 1.0673, 0.571, 0.571, 0.2585, 0.2585, 0.1462, 0.1462), study = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L), .Label = c("35-44", "45-54", "55-64", "65-74", "75-84"), class = "factor"), group = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c("2", "1"), class = "factor"), events = c(32, 2, 104, 12, 206, 28, 186, 28, 102, 31), ptime = c(5.2407, 1.879, 4.3248, 1.0673, 2.8612, 0.571, 1.2663, 0.2585, 0.5317, 0.1462)), class = "data.frame", row.names = c(NA, 10L)) expect_equivalent(tmp, expected) }) test_that("the stratum-specific and crude rate differences are computed correctly.", { ### stratum-specific rate differences tmp <- summary(escalc(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRD", digits=1, append=FALSE)) tmp <- as.matrix(tmp[1:4]) expected <- structure(c(5.0417, 12.804, 22.961, 38.5674, -20.2008, 1.7316, 16.0947, 111.0423, 535.0172, 1811.1307, 1.3159, 4.0118, 10.5377, 23.1304, 42.5574, 3.8313, 3.1916, 2.1789, 1.6674, -0.4747), .Dim = c(5L, 4L), .Dimnames = list(NULL, c("yi", "vi", "sei", "zi"))) ### compare with data in Table 15-2 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) ### crude rate difference tmp <- summary(escalc(x1i=sum(x1i), x2i=sum(x2i), t1i=sum(t1i), t2i=sum(t2i), data=dat, measure="IRD", digits=1, append=FALSE)) tmp <- as.matrix(tmp[1:4]) expected <- structure(c(18.537, 9.6796, 3.1112, 5.9581), .Dim = c(1L, 4L), .Dimnames = list(NULL, c("yi", "vi", "sei", "zi"))) ### compare with data in Table 15-2 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) }) test_that("the stratum-specific and crude rate ratios are computed correctly.", { ### stratum-specific rate ratios tmp <- summary(escalc(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRR", digits=1, append=FALSE), transf=exp) tmp <- as.matrix(tmp) expected <- structure(c(5.7366, 2.1388, 1.4682, 1.3561, 0.9047, 1.3748, 1.1767, 0.9894, 0.9115, 0.6053, 23.9371, 3.8876, 2.1789, 2.0176, 1.3524), .Dim = c(5L, 3L), .Dimnames = list(NULL, c("yi", "ci.lb", "ci.ub"))) ### compare with data in Table 15-2 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) ### crude rate ratio tmp <- summary(escalc(x1i=sum(x1i), x2i=sum(x2i), t1i=sum(t1i), t2i=sum(t2i), data=dat, measure="IRR", digits=1, append=FALSE), transf=exp) tmp <- as.matrix(tmp) expected <- structure(c(1.7198, 1.394, 2.1219), .Dim = c(1L, 3L), .Dimnames = list(NULL, c("yi", "ci.lb", "ci.ub"))) ### compare with data in Table 15-2 expect_equivalent(tmp, expected, tolerance=.tol[["misc"]]) }) test_that("results are correct for Mantel-Haenszel method.", { ### Mantel-Haenszel method with rate differences res <- rma.mh(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRD", digits=2, level=90) expect_equivalent(coef(res), 11.4392, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 6.3498, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 16.5286, tolerance=.tol[["ci"]]) expect_equivalent(res$QE, 26.8758, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0.0000, tolerance=.tol[["pval"]]) ### Mantel-Haenszel method with rate ratios res <- rma.mh(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRR", digits=2, level=90) expect_equivalent(coef(res), 0.3539, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.1776, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.5303, tolerance=.tol[["ci"]]) expect_equivalent(res$QE, 10.4117, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0.0340, tolerance=.tol[["pval"]]) expect_equivalent(res$MH, 10.7021, tolerance=.tol[["test"]]) expect_equivalent(res$MHp, 0.0011, tolerance=.tol[["pval"]]) tmp <- c(confint(res, transf=exp)$fixed) expect_equivalent(tmp, c(1.4247, 1.1944, 1.6994), tolerance=.tol[["ci"]]) ### Mantel-Haenszel test without continuity correction res <- rma.mh(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRR", level=90, correct=FALSE) expect_equivalent(res$MH, 11.0162, tolerance=.tol[["test"]]) expect_equivalent(res$MHp, 0.0009, tolerance=.tol[["pval"]]) skip_on_cran() ### unconditional MLE of the rate ratio res <- rma.glmm(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRR", digits=2, level=90, model="UM.FS", method="EE") expect_equivalent(coef(res), 0.3545, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.1779, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.5312, tolerance=.tol[["ci"]]) expect_equivalent(res$QE.Wld, 10.1991, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.Wld, 0.0372, tolerance=.tol[["pval"]]) expect_equivalent(res$QE.LRT, 12.1324, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.LRT, 0.0164, tolerance=.tol[["pval"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 1.4255, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 1.1947, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 1.7009, tolerance=.tol[["ci"]]) ### conditional MLE of the rate ratio res <- rma.glmm(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat, measure="IRR", digits=2, level=90, model="CM.EL", method="EE") expect_equivalent(coef(res), 0.3545, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.1779, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.5312, tolerance=.tol[["ci"]]) expect_equivalent(res$QE.Wld, 10.1991, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.Wld, 0.0372, tolerance=.tol[["pval"]]) expect_equivalent(res$QE.LRT, 12.1324, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.LRT, 0.0164, tolerance=.tol[["pval"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 1.4255, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 1.1947, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 1.7009, tolerance=.tol[["ci"]]) }) ############################################################################ ### create dataset (Table 15-5) dat <- data.frame( age = c("<35", "35+"), ai = c(3,1), bi = c(9,3), ci = c(104,5), di = c(1059,86), stringsAsFactors=FALSE) test_that("the to.table() function works.", { tmp <- to.table(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", slab=age, rows=c("Down Syndrome", "Control"), cols=c("Spermicide Use", "No Spermicide")) expected <- structure(c(3, 104, 9, 1059, 1, 5, 3, 86), .Dim = c(2L, 2L, 2L), .Dimnames = list(c("Down Syndrome", "Control"), c("Spermicide Use", "No Spermicide"), c("<35", "35+"))) ### compare with data in Table 15-5 expect_equivalent(tmp, expected) }) test_that("the to.long() function works.", { tmp <- to.long(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", slab=age) expected <- structure(list(age = c("<35", "<35", "35+", "35+"), ai = c(3, 3, 1, 1), bi = c(9, 9, 3, 3), ci = c(104, 104, 5, 5), di = c(1059, 1059, 86, 86), study = structure(c(2L, 2L, 1L, 1L), .Label = c("35+", "<35"), class = "factor"), group = structure(c(1L, 2L, 1L, 2L), .Label = c("1", "2"), class = "factor"), out1 = c(3, 104, 1, 5), out2 = c(9, 1059, 3, 86)), class = "data.frame", row.names = c(NA, 4L)) expect_equivalent(tmp, expected) }) test_that("results are correct for Mantel-Haenszel method.", { ### Mantel-Haenszel method with odds ratios res <- rma.mh(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", digits=2, level=90, correct=FALSE) expect_equivalent(coef(res), 1.3300, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.3579, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 2.3021, tolerance=.tol[["ci"]]) expect_equivalent(res$QE, 0.1378, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0.7105, tolerance=.tol[["pval"]]) expect_equivalent(res$CO, 5.8248, tolerance=.tol[["test"]]) expect_equivalent(res$COp, 0.0158, tolerance=.tol[["pval"]]) expect_equivalent(res$MH, 5.8092, tolerance=.tol[["test"]]) expect_equivalent(res$MHp, 0.0159, tolerance=.tol[["pval"]]) expect_equivalent(res$TA, 0.1391, tolerance=.tol[["test"]]) expect_equivalent(res$TAp, 0.7092, tolerance=.tol[["pval"]]) tmp <- c(confint(res, transf=exp)$fixed) expect_equivalent(tmp, c(3.7812, 1.4304, 9.9954), tolerance=.tol[["ci"]]) skip_on_cran() ### unconditional MLE of the odds ratio res <- rma.glmm(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", digits=2, level=90, model="UM.FS", method="EE") expect_equivalent(coef(res), 1.3318, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.3582, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 2.3053, tolerance=.tol[["ci"]]) expect_equivalent(res$QE.Wld, 0.1374, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.Wld, 0.7109, tolerance=.tol[["pval"]]) expect_equivalent(res$QE.LRT, 0.1324, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.LRT, 0.7160, tolerance=.tol[["pval"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 3.7878, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 1.4308, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 10.0276, tolerance=.tol[["ci"]]) ### conditional MLE of the odds ratio #res <- rma.glmm(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", digits=2, level=90, model="CM.EL", method="EE", control=list(optimizer="bobyqa")) res <- rma.glmm(ai=ai, bi=bi, ci=ci, di=di, data=dat, measure="OR", digits=2, level=90, model="CM.EL", method="EE") expect_equivalent(coef(res), 1.3257, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.3559, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 2.2954, tolerance=.tol[["ci"]]) expect_equivalent(res$QE.Wld, 0.1327, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.Wld, 0.7156, tolerance=.tol[["pval"]]) expect_equivalent(res$QE.LRT, 0.1188, tolerance=.tol[["test"]]) expect_equivalent(res$QEp.LRT, 0.7304, tolerance=.tol[["pval"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 3.7647, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 1.4274, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 9.9287, tolerance=.tol[["ci"]]) }) ############################################################################ rm(list=ls()) metafor/tests/testthat/test_misc_rma_vs_direct_computation.r0000644000176200001440000000160314712730607024420 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma.uni() against direct computations") source("settings.r") test_that("results match (FE model).", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat + year, data=dat, method="FE") X <- cbind(1, dat$ablat, dat$year) W <- diag(1/dat$vi) y <- cbind(dat$yi) beta <- solve(t(X) %*% W %*% X) %*% t(X) %*% W %*% y vb <- solve(t(X) %*% W %*% X) expect_equivalent(res$beta, beta) expect_equivalent(res$vb, vb) yhat <- c(X %*% beta) expect_equivalent(fitted(res), yhat) H <- X %*% solve(t(X) %*% W %*% X) %*% t(X) %*% W expect_equivalent(hatvalues(res, type="matrix"), H) ei <- (diag(res$k) - H) %*% y expect_equivalent(resid(res), c(ei)) }) rm(list=ls()) metafor/tests/testthat/test_plots_funnel_plot_with_trim_and_fill.r0000644000176200001440000000233014762055362025627 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:funnel_plot_with_trim_and_fill source("settings.r") context("Checking plots example: funnel plot with trim and fill") test_that("plot can be drawn.", { skip_on_cran() res <- rma(yi, vi, data=dat.hackshaw1998, measure="OR") taf <- trimfill(res) out <- capture.output(print(taf)) png("images/test_plots_funnel_plot_with_trim_and_fill_light_test.png", res=200, width=1800, height=1500, type="cairo") par(mar=c(5,4,1,2)) funnel(taf, legend=list(show="cis")) dev.off() expect_true(.vistest("images/test_plots_funnel_plot_with_trim_and_fill_light_test.png", "images/test_plots_funnel_plot_with_trim_and_fill_light.png")) png("images/test_plots_funnel_plot_with_trim_and_fill_dark_test.png", res=200, width=1800, height=1500, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,1,2)) funnel(taf, legend=list(show="cis")) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_funnel_plot_with_trim_and_fill_dark_test.png", "images/test_plots_funnel_plot_with_trim_and_fill_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_viechtbauer2007a.r0000644000176200001440000001420214712730520024524 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:viechtbauer2007a context("Checking analysis example: viechtbauer2007a") source("settings.r") ### load data dat <- dat.collins1985b[,1:7] dat <- escalc(measure="OR", ai=pre.xti, n1i=pre.nti, ci=pre.xci, n2i=pre.nci, data=dat) ### fit model with different tau^2 estimators res.DL <- rma(yi, vi, data=dat, method="DL") res.ML <- rma(yi, vi, data=dat, method="ML") res.REML <- rma(yi, vi, data=dat, method="REML") res.SJ <- rma(yi, vi, data=dat, method="SJ") ### note: results are compared with those in Table II on page 44 (but without rounding) test_that("the heterogeneity estimates are correct.", { sav <- c(DL=res.DL$tau2, ML=res.ML$tau2, REML=res.REML$tau2, SJ=res.SJ$tau2) expect_equivalent(sav, c(.2297, .2386, .3008, .4563), tolerance=.tol[["var"]]) }) test_that("CI is correct for the Q-profile method.", { sav <- confint(res.DL) sav <- c(sav$random["tau^2","ci.lb"], sav$random["tau^2","ci.ub"]) expect_equivalent(sav, c(.0723, 2.2027), tolerance=.tol[["var"]]) }) test_that("CI is correct for the Biggerstaff–Tweedie method.", { CI.D.func <- function(tau2val, s1, s2, Q, k, lower.tail) { expQ <- (k-1) + s1*tau2val varQ <- 2*(k-1) + 4*s1*tau2val + 2*s2*tau2val^2 shape <- expQ^2/varQ scale <- varQ/expQ qtry <- Q/scale pgamma(qtry, shape = shape, scale = 1, lower.tail = lower.tail) - .025 } wi <- 1/dat$vi s1 <- sum(wi) - sum(wi^2)/sum(wi) s2 <- sum(wi^2) - 2*sum(wi^3)/sum(wi) + sum(wi^2)^2/sum(wi)^2 ci.lb <- uniroot(CI.D.func, interval=c(0,10), s1=s1, s2=s2, Q=res.DL$QE, k=res.DL$k, lower.tail=FALSE)$root ci.ub <- uniroot(CI.D.func, interval=c(0,10), s1=s1, s2=s2, Q=res.DL$QE, k=res.DL$k, lower.tail=TRUE)$root sav <- c(ci.lb=ci.lb, ci.ub=ci.ub) expect_equivalent(sav, c(.0481, 2.3551), tolerance=.tol[["var"]]) }) test_that("CI is correct for the profile likelihood method.", { sav <- confint(res.ML, type="PL") sav <- c(sav$random["tau^2","ci.lb"], sav$random["tau^2","ci.ub"]) expect_equivalent(sav, c(.0266, 1.1308), tolerance=.tol[["var"]]) sav <- confint(res.REML, type="PL") sav <- c(sav$random["tau^2","ci.lb"], sav$random["tau^2","ci.ub"]) expect_equivalent(sav, c(.0427, 1.4747), tolerance=.tol[["var"]]) res.ML.mv <- rma.mv(yi, vi, random = ~ 1 | id, data=dat, method="ML") res.REML.mv <- rma.mv(yi, vi, random = ~ 1 | id, data=dat, method="REML") sav <- confint(res.ML.mv) sav <- c(sav$random["sigma^2","ci.lb"], sav$random["sigma^2","ci.ub"]) expect_equivalent(sav, c(.0266, 1.1308), tolerance=.tol[["var"]]) sav <- confint(res.REML.mv) sav <- c(sav$random["sigma^2","ci.lb"], sav$random["sigma^2","ci.ub"]) expect_equivalent(sav, c(.0427, 1.4747), tolerance=.tol[["var"]]) skip_on_cran() png(filename="images/test_analysis_example_viechtbauer2007a_profile_ll_ml_test.png", res=200, width=1800, height=1400, type="cairo") profile(res.ML, xlim=c(0,1.2), steps=50, cline=TRUE) tmp <- confint(res.ML, type="PL", digits=2) abline(v=tmp$random[1, 2:3], lty="dotted") dev.off() expect_true(.vistest("images/test_analysis_example_viechtbauer2007a_profile_ll_ml_test.png", "images/test_analysis_example_viechtbauer2007a_profile_ll_ml.png")) png(filename="images/test_analysis_example_viechtbauer2007a_profile_ll_reml_test.png", res=200, width=1800, height=1400, type="cairo") profile(res.REML, xlim=c(0,1.6), steps=50, cline=TRUE) tmp <- confint(res.REML, type="PL", digits=2) abline(v=tmp$random[1, 2:3], lty="dotted") dev.off() expect_true(.vistest("images/test_analysis_example_viechtbauer2007a_profile_ll_reml_test.png", "images/test_analysis_example_viechtbauer2007a_profile_ll_reml.png")) }) test_that("CI is correct for the Wald-type method.", { sav <- confint(res.ML, type="Wald") sav <- c(sav$random["tau^2","ci.lb"], sav$random["tau^2","ci.ub"]) expect_equivalent(sav, c(0, .5782), tolerance=.tol[["var"]]) sav <- confint(res.REML, type="Wald") sav <- c(sav$random["tau^2","ci.lb"], sav$random["tau^2","ci.ub"]) expect_equivalent(sav, c(0, .7322), tolerance=.tol[["var"]]) }) test_that("CI is correct for the Sidik-Jonkman method.", { sav <- c(ci.lb=(res.SJ$k-1) * res.SJ$tau2 / qchisq(.975, df=res.SJ$k-1), ci.ub=(res.SJ$k-1) * res.SJ$tau2 / qchisq(.025, df=res.SJ$k-1)) expect_equivalent(sav, c(.2082, 1.6748), tolerance=.tol[["var"]]) }) test_that("CI is correct for the parametric bootstrap method.", { skip_on_cran() maj <- as.numeric(R.Version()$major) min <- as.numeric(R.Version()$minor) ### run test only on R versions 3.6.x or later (due to change in sampler) if (maj >= 3 && min >= 6) { library(boot) boot.func <- function(data.boot) { res <- rma(yi, vi, data=data.boot, method="DL") c(res$tau2, res$se.tau2^2) } data.gen <- function(dat, mle) { data.frame(yi=rnorm(nrow(dat), mle$mu, sqrt(mle$tau2 + dat$vi)), vi=dat$vi) } res.DL <- rma(yi, vi, data=dat, method="DL") set.seed(12345) sav <- boot(dat, boot.func, R=1000, sim="parametric", ran.gen=data.gen, mle=list(mu=coef(res.DL), tau2=res.DL$tau2)) sav <- boot.ci(sav, type=c("norm", "basic", "stud", "perc")) sav <- sav$percent[4:5] expect_equivalent(sav, c(0, .7171), tolerance=.tol[["var"]]) } else { expect_true(TRUE) } }) test_that("CI is correct for the non-parametric bootstrap method.", { skip_on_cran() maj <- as.numeric(R.Version()$major) min <- as.numeric(R.Version()$minor) ### run test only on R versions 3.6.x or later (due to change in sampler) if (maj >= 3 && min >= 6) { library(boot) boot.func <- function(dat, indices) { res <- rma(yi, vi, data=dat, subset=indices, method="DL") c(res$tau2, res$se.tau2^2) } set.seed(12345) sav <- boot(dat, boot.func, R=1000) sav <- boot.ci(sav) sav <- sav$percent[4:5] expect_equivalent(sav, c(.0218, .5143), tolerance=.tol[["var"]]) } else { expect_true(TRUE) } }) rm(list=ls()) metafor/tests/testthat/test_misc_formula.r0000644000176200001440000000146014712730637020626 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: formula() function") source("settings.r") dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) test_that("formula() works correctly for 'rma.uni' objects.", { res <- rma(yi, vi, data=dat, method="DL") expect_null(formula(res, type="mods")) expect_null(formula(res, type="yi")) res <- rma(yi, vi, mods = ~ ablat, data=dat, method="DL") expect_equal(~ablat, formula(res, type="mods")) expect_null(formula(res, type="yi")) res <- rma(yi ~ ablat, vi, data=dat, method="DL") expect_equal(~ablat, formula(res, type="mods")) expect_equal(yi~ablat, formula(res, type="yi")) expect_error(formula(res, type="scale")) }) rm(list=ls()) metafor/tests/testthat/settings.r0000644000176200001440000000511615172371436016750 0ustar liggesusers############################################################################ .tol <- c(est = .01, # effect size estimates coef = .01, # model coefficients pred = .01, # predicted values, BLUPs, also residuals se = .01, # standard errors test = .01, # test statistics, standardized residuals pval = .01, # p-values ci = .01, # confidence/prediction interval bounds, CI for effects var = .01, # variance components (and CIs thereof), also if sqrt(), var-cov matrices, sampling variances cor = .01, # correlations, ICCs cov = .01, # covariances sevar = .01, # SEs of variance components fit = .01, # fit statistics r2 = .01, # R^2 type values, model importances het = .01, # heterogeneity statistics (and CIs thereof) inf = .01, # influence statistics, hat values den = .01, # density misc = .01, # miscellaneous, mix of values count = 0) # count .tol[1:length(.tol)] <- .01 .tol[1:length(.tol)] <- .01 ############################################################################ .sparse <- FALSE #.sparse <- TRUE ############################################################################ .vistest <- function(file1, file2) { if (isFALSE(as.logical(Sys.getenv("RUN_VIS_TESTS", "false")))) { return(TRUE) } else { hash1 <- suppressWarnings(system2("md5sum", file1, stdout=TRUE, stderr=TRUE)) hash2 <- suppressWarnings(system2("md5sum", file2, stdout=TRUE, stderr=TRUE)) if (isTRUE(attributes(hash1)$status == 1) || isTRUE(attributes(hash2)$status == 1)) return(FALSE) hash1 <- strsplit(hash1, " ")[[1]][1] hash2 <- strsplit(hash2, " ")[[1]][1] return(identical(hash1,hash2)) #file1 <- readLines(file1, warn=FALSE) #file2 <- readLines(file2, warn=FALSE) #file1 <- file1[!grepl("CreationDate", file1, fixed=TRUE, useBytes=TRUE)] #file2 <- file2[!grepl("CreationDate", file2, fixed=TRUE, useBytes=TRUE)] #file1 <- file1[!grepl("ModDate", file1, fixed=TRUE, useBytes=TRUE)] #file2 <- file2[!grepl("ModDate", file2, fixed=TRUE, useBytes=TRUE)] #file1 <- file1[!grepl("Producer", file1, fixed=TRUE, useBytes=TRUE)] #file2 <- file2[!grepl("Producer", file2, fixed=TRUE, useBytes=TRUE)] #return(identical(file1,file2)) } } ############################################################################ setmfopt(theme="default") ############################################################################ metafor/tests/testthat/test_misc_replmiss.r0000644000176200001440000000072214712730625021014 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: replmiss() function") source("settings.r") test_that("replmiss() works correctly.", { var1 <- c(1:4,NA,6,NA,8:10) var2 <- as.numeric(1:10) expect_identical(replmiss(var1, 0), c(1, 2, 3, 4, 0, 6, 0, 8, 9, 10)) expect_identical(replmiss(var1, var2), as.numeric(1:10)) expect_error(replmiss(var1, 1:9)) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_yusuf1985.r0000644000176200001440000000546714712730514023273 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:yusuf1985 context("Checking analysis example: yusuf1985") source("settings.r") ### create dataset for example dat <- dat.yusuf1985 dat$grp_ratios <- round(dat$n1i / dat$n2i, 2) test_that("log likelihood plot can be drawn.", { skip_on_cran() png(filename="images/test_analysis_example_yusuf1985_light_test.png", res=200, width=1800, height=800, type="cairo") par(mar=c(5,4,1,2)) par(mfrow=c(1,2)) expect_warning(llplot(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, subset=(table=="6"), drop00=FALSE, lwd=1, xlim=c(-5,5))) expect_warning(llplot(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, subset=(table=="6"), drop00=FALSE, lwd=1, xlim=c(-5,5), scale=FALSE)) dev.off() expect_true(.vistest("images/test_analysis_example_yusuf1985_light_test.png", "images/test_analysis_example_yusuf1985_light.png")) png(filename="images/test_analysis_example_yusuf1985_dark_test.png", res=200, width=1800, height=800, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,1,2)) par(mfrow=c(1,2)) expect_warning(llplot(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, subset=(table=="6"), drop00=FALSE, lwd=1, xlim=c(-5,5))) expect_warning(llplot(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, subset=(table=="6"), drop00=FALSE, lwd=1, xlim=c(-5,5), scale=FALSE)) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_yusuf1985_dark_test.png", "images/test_analysis_example_yusuf1985_dark.png")) }) test_that("results are correct for the analysis using Peto's method.", { expect_warning(res <- rma.peto(ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, subset=(table=="6"))) out <- capture.output(print(res)) ### so that print.rma.peto() is run (at least once) out <- capture.output(print(summary(res))) ### so that print.rma.peto() is run (at least once) with showfit=TRUE sav <- predict(res, transf=exp) tmp <- c(sav$pred, sav$ci.lb, sav$ci.ub) ### compare with results on page 107 expect_equivalent(tmp, c(.9332, .7385, 1.1792), tolerance=.tol[["pred"]]) }) test_that("results are correct for the analysis using the inverse-variance method.", { expect_warning(dat <- escalc(measure="PETO", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, subset=(table=="6"), add=0)) expect_warning(res <- rma(yi, vi, data=dat, method="EE")) sav <- predict(res, transf=exp) tmp <- c(sav$pred, sav$ci.lb, sav$ci.ub) ### compare with results on page 107 expect_equivalent(tmp, c(.9332, .7385, 1.1792), tolerance=.tol[["pred"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_predict.r0000644000176200001440000001471114717353730020616 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: predict() function") source("settings.r") test_that("predict() correctly matches named vectors in 'newmods'", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat$alloc[dat$alloc == "systematic"] <- "system" res <- rma(yi ~ ablat + alloc, vi, data=dat) pred1 <- predict(res, newmods = c(30, 0, 1)) pred2 <- predict(res, newmods = c(abl = 30, ran = 0, sys = 1)) pred3 <- predict(res, newmods = c(abl = 30, sys = 1, ran = 0)) pred4 <- predict(res, newmods = c(ran = 0, abl = 30, sys = 1)) pred5 <- predict(res, newmods = c(sys = 1, abl = 30, ran = 0)) pred6 <- predict(res, newmods = c(ran = 0, sys = 1, abl = 30)) pred7 <- predict(res, newmods = c(sys = 1, ran = 0, abl = 30)) expect_equivalent(pred1, pred2) expect_equivalent(pred1, pred3) expect_equivalent(pred1, pred4) expect_equivalent(pred1, pred5) expect_equivalent(pred1, pred6) expect_equivalent(pred1, pred7) expect_error(predict(res, newmods = c(30, 0))) # not the right length expect_error(predict(res, newmods = c(abl = 30, random = 0))) # not the right length expect_error(predict(res, newmods = c(abl = 30, alloc = 0, sys = 1))) # alloc matches up equally to allocrandom and allocsystem expect_error(predict(res, newmods = c(abl = 30, ran = 0, year = 1970))) # year not in the model expect_error(predict(res, newmods = c(abl = 30, ran = 0, sys = 1, ran = 1))) # ran used twice expect_error(predict(res, newmods = c(abl = 30, ran = 0, sys = 1, rand = 1))) # same issue res <- rma(yi ~ ablat * year, vi, data=dat) pred1 <- predict(res, newmods = c(30, 1970, 30*1970)) pred2 <- predict(res, newmods = c('ablat' = 30, 'year' = 1970, 'ablat:year' = 30*1970)) pred3 <- predict(res, newmods = c('ablat:year' = 30*1970, 'year' = 1970, 'ablat' = 30)) pred4 <- predict(res, newmods = c('ab' = 30, 'ye' = 1970, 'ablat:' = 30*1970)) pred5 <- predict(res, newmods = c('ablat:' = 30*1970, 'ye' = 1970, 'ab' = 30)) expect_equivalent(pred1, pred2) expect_equivalent(pred1, pred3) expect_equivalent(pred1, pred4) expect_equivalent(pred1, pred5) }) test_that("predict() gives correct results when vcov=TRUE", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) sav <- predict(res, vcov=TRUE) expect_equivalent(sav$pred$se, c(sqrt(sav$vcov)), tolerance=.tol[["se"]]) res <- rma(yi, vi, mods = ~ ablat, data=dat) sav <- predict(res, vcov=TRUE) expect_equivalent(sav$pred$se, c(sqrt(diag(sav$vcov))), tolerance=.tol[["se"]]) }) test_that("predict() correctly handles in/exclusion of the intercept term", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ######################################################################### # single quantitative predictor model with intercept included res <- rma(yi ~ ablat, vi, data=dat) # predicted average effect at ablat=0,10,...,60 pred1 <- predict(res, newmods=seq(0,60,by=10)) pred2 <- predict(res, newmods=cbind(1,seq(0,60,by=10))) expect_equivalent(pred1, pred2) # exclude the intercept from the prediction (i.e., assume it is 0) pred1 <- predict(res, newmods=seq(0,60,by=10), intercept=FALSE) pred2 <- predict(res, newmods=cbind(0,seq(0,60,by=10))) expect_equivalent(pred1, pred2) expect_warning(pred2 <- predict(res, newmods=cbind(0,seq(0,60,by=10)), intercept=FALSE)) ######################################################################### # single quantitative predictor model with intercept excluded res <- rma(yi ~ 0 + ablat, vi, data=dat) # predicted average effect at ablat=0,10,...,60 pred1 <- predict(res, newmods=seq(0,60,by=10)) pred2 <- predict(res, newmods=cbind(seq(0,60,by=10))) expect_equivalent(pred1, pred2) ######################################################################### # multiple predictors one of which is categorical with intercept included/excluded res1 <- rma(yi ~ 1 + ablat + alloc, vi, data=dat) res0 <- rma(yi ~ 0 + ablat + alloc, vi, data=dat) # predicted average effect at ablat=20 for alloc='random' pred1 <- predict(res1, newmods=c(20,1,0)) pred0 <- predict(res0, newmods=c(20,0,1,0)) expect_equivalent(pred1, pred0) pred2 <- predict(res1, newmods=cbind(1,20,1,0)) expect_equivalent(pred1, pred2) pred2 <- predict(res0, newmods=cbind(20,0,1,0)) expect_equivalent(pred1, pred2) pred1 <- predict(res1, newmods=cbind(20,1,0)) pred0 <- predict(res0, newmods=cbind(20,0,1,0)) expect_equivalent(pred1, pred0) # predicted average effect at ablat=0,10,...,60 for alloc='random' pred1 <- predict(res1, newmods=cbind(seq(0,60,by=10),1,0)) pred0 <- predict(res0, newmods=cbind(seq(0,60,by=10),0,1,0)) expect_equivalent(pred1, pred0) pred2 <- predict(res1, newmods=cbind(1,seq(0,60,by=10),1,0)) expect_equivalent(pred1, pred2) # contrast between alloc='random' and alloc='systematic' holding ablat constant pred1 <- predict(res1, newmods=c(0,1,-1), intercept=FALSE) pred0 <- predict(res0, newmods=c(0,0,1,-1)) expect_equivalent(pred1, pred0) pred2 <- predict(res1, newmods=cbind(0,0,1,-1)) expect_equivalent(pred1, pred2) pred2 <- predict(res0, newmods=cbind(0,0,1,-1)) expect_equivalent(pred1, pred2) ######################################################################### }) test_that("predict() works correctly with adjusted level", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi ~ ablat, vi, data=dat) pred1 <- predict(res, newmods=seq(0,60,by=10), level=90) res <- rma(yi ~ ablat, vi, data=dat, level=90) pred2 <- predict(res, newmods=seq(0,60,by=10)) expect_equivalent(pred1, pred2) res <- rma(yi ~ ablat, vi, data=dat) res <- robust(res, cluster=trial) pred1 <- predict(res, newmods=seq(0,60,by=10), level=90) res <- rma(yi ~ ablat, vi, data=dat, level=90) res <- robust(res, cluster=trial) pred2 <- predict(res, newmods=seq(0,60,by=10)) expect_equivalent(pred1, pred2) res <- rma(yi ~ ablat, vi, data=dat) res <- robust(res, cluster=trial, clubSandwich=TRUE) pred1 <- predict(res, newmods=seq(0,60,by=10), level=90) res <- rma(yi ~ ablat, vi, data=dat, level=90) res <- robust(res, cluster=trial, clubSandwich=TRUE) pred2 <- predict(res, newmods=seq(0,60,by=10)) expect_equivalent(pred1, pred2) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_jackson2014.r0000644000176200001440000000742014712730427023522 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking analysis example: jackson2014") source("settings.r") test_that("confint() gives correct results for example 1 in Jackson et al. (2014).", { skip_on_cran() ### example 1 ### yi <- c(0.0267, 0.8242, 0.3930, 2.4405, 2.1401, 1.2528, 2.4849, 0.3087, 1.4246, 0.1823, 1.1378, 1.2321, 2.0695, 4.0237, 1.4383, 1.6021) vi <- c(0.1285, 0.0315, 0.0931, 2.0967, 1.0539, 0.1602, 1.0235, 0.0218, 0.5277, 0.0556, 0.3304, 0.1721, 0.4901, 2.0200, 0.3399, 0.1830) xi <- c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1) ### random/mixed-effects meta-regression model (REML estimation by default) res <- rma(yi, vi, mods = ~ xi, digits=3) ### approximate 95% CI for tau^2 based on REML estimate and its SE ci <- exp(log(res$tau2) + c(-1.96,1.96)*(1/res$tau2 * res$se.tau2)) expect_equivalent(ci[1], 0.0110, tolerance=.tol[["var"]]) expect_equivalent(ci[2], 0.6330, tolerance=.tol[["var"]]) ### generalised Cochran heterogeneity estimate and CI (inverse variance weights) res <- rma(yi, vi, mods = ~ xi, method="GENQ", weights=1/vi, digits=3) ci <- confint(res) expect_equivalent(ci$random[1,2], 0.0029, tolerance=.tol[["var"]]) expect_equivalent(ci$random[1,3], 0.6907, tolerance=.tol[["var"]]) ### generalised Cochran heterogeneity estimate and CI (inverse SE weights) res <- rma(yi, vi, mods = ~ xi, method="GENQ", weights=1/sqrt(vi), digits=3) ci <- confint(res) expect_equivalent(ci$random[1,2], 0.0000, tolerance=.tol[["var"]]) expect_equivalent(ci$random[1,3], 1.1245, tolerance=.tol[["var"]]) ### Paule-Mandel estimate and CI res <- rma(yi, vi, mods = ~ xi, method="PM", digits=3) ci <- confint(res) expect_equivalent(ci$random[1,2], 0.0023, tolerance=.tol[["var"]]) expect_equivalent(ci$random[1,3], 1.4871, tolerance=.tol[["var"]]) }) test_that("confint() gives correct results for example 2 in Jackson et al. (2014).", { skip_on_cran() ### example 2 ### yi <- c(0.54, 0.4, 0.64, 0.365, 0.835, 0.02, 0.12, 0.085, 1.18, 0.08, 0.18, 0.325, 0.06, 0.715, 0.065, 0.245, 0.24, 0.06, 0.19) vi <- c(0.0176, 0.019, 0.0906, 0.0861, 0.0063, 0.0126, 0.0126, 0.0041, 0.0759, 0.0126, 0.0104, 0.0242, 0.0026, 0.2629, 0.0169, 0.0156, 0.0481, 0.0084, 0.0044) xi <- c(1986, 1987, 1988, 1988, 1998, 1999, 2000, 2000, 2000, 2001, 2001, 2001, 2002, 2002, 2002, 2002, 2003, 2003, 2003) ### random/mixed-effects meta-regression model (REML estimation by default) res <- rma(yi, vi, mods = ~ xi, digits=3) ### approximate 95% CI for tau^2 based on REML estimate and its SE ci <- exp(log(res$tau2) + c(-1.96,1.96)*(1/res$tau2 * res$se.tau2)) expect_equivalent(ci[1], 0.0163, tolerance=.tol[["var"]]) expect_equivalent(ci[2], 0.1108, tolerance=.tol[["var"]]) ### generalised Cochran heterogeneity estimate and CI (inverse variance weights) res <- rma(yi, vi, mods = ~ xi, method="GENQ", weights=1/vi, digits=3) ci <- confint(res) expect_equivalent(ci$random[1,2], 0.0170, tolerance=.tol[["var"]]) expect_equivalent(ci$random[1,3], 0.1393, tolerance=.tol[["var"]]) ### generalised Cochran heterogeneity estimate and CI (inverse SE weights) res <- rma(yi, vi, mods = ~ xi, method="GENQ", weights=1/sqrt(vi), digits=3) ci <- confint(res) expect_equivalent(ci$random[1,2], 0.0180, tolerance=.tol[["var"]]) expect_equivalent(ci$random[1,3], 0.1375, tolerance=.tol[["var"]]) ### Paule-Mandel estimate and CI res <- rma(yi, vi, mods = ~ xi, method="PM", digits=3) ci <- confint(res) expect_equivalent(ci$random[1,2], 0.0178, tolerance=.tol[["var"]]) expect_equivalent(ci$random[1,3], 0.1564, tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_plot_of_influence_diagnostics.r0000644000176200001440000000366114762055417025456 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:plot_of_influence_diagnostics source("settings.r") context("Checking plots example: plot of influence diagnostics") test_that("plot can be drawn.", { skip_on_cran() res <- rma(ri=ri, ni=ni, measure="ZCOR", data=dat.mcdaniel1994) inf <- influence(res) out <- capture.output(print(inf)) # so that print.infl.rma.uni() is run (at least once) png("images/test_plots_plot_of_influence_diagnostics_1_light_test.png", res=200, width=1800, height=3600, type="cairo") par(mfrow=c(8,1)) plot(inf) dev.off() expect_true(.vistest("images/test_plots_plot_of_influence_diagnostics_1_light_test.png", "images/test_plots_plot_of_influence_diagnostics_1_light.png")) png("images/test_plots_plot_of_influence_diagnostics_1_dark_test.png", res=200, width=1800, height=3600, type="cairo") setmfopt(theme="dark") par(mfrow=c(8,1)) plot(inf) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_plot_of_influence_diagnostics_1_dark_test.png", "images/test_plots_plot_of_influence_diagnostics_1_dark.png")) png("images/test_plots_plot_of_influence_diagnostics_2_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(inf, plotinf=FALSE, plotdfbs=TRUE) dev.off() expect_true(.vistest("images/test_plots_plot_of_influence_diagnostics_2_light_test.png", "images/test_plots_plot_of_influence_diagnostics_2_light.png")) png("images/test_plots_plot_of_influence_diagnostics_2_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(inf, plotinf=FALSE, plotdfbs=TRUE) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_plot_of_influence_diagnostics_2_dark_test.png", "images/test_plots_plot_of_influence_diagnostics_2_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_misc_handling_of_edge_cases_due_to_zeros.r0000644000176200001440000000310214712730635026345 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: handling of edge cases due to zeros") source("settings.r") test_that("rma.peto(), rma.mh(), and rma.glmm() handle outcome1 never occurring properly.", { ai <- c(0,0,0,0) bi <- c(10,15,20,25) ci <- c(0,0,0,0) di <- c(10,10,30,20) expect_that(suppressWarnings(rma.peto(ai=ai, bi=bi, ci=ci, di=di)), throws_error()) expect_warning(res <- rma.mh(measure="OR", ai=ai, bi=bi, ci=ci, di=di)) expect_true(is.na(res$beta)) expect_warning(res <- rma.mh(measure="RR", ai=ai, bi=bi, ci=ci, di=di)) expect_true(is.na(res$beta)) expect_warning(res <- rma.mh(measure="RD", ai=ai, bi=bi, ci=ci, di=di)) expect_equivalent(res$beta, 0) skip_on_cran() expect_error(suppressWarnings(rma.glmm(measure="OR", ai=ai, bi=bi, ci=ci, di=di))) }) test_that("rma.peto(), rma.mh(), and rma.glmm() handle outcome2 never occurring properly.", { ai <- c(10,15,20,25) bi <- c(0,0,0,0) ci <- c(10,10,30,20) di <- c(0,0,0,0) expect_error(suppressWarnings(rma.peto(ai=ai, bi=bi, ci=ci, di=di))) expect_warning(res <- rma.mh(measure="OR", ai=ai, bi=bi, ci=ci, di=di)) expect_true(is.na(res$beta)) expect_warning(res <- rma.mh(measure="RR", ai=ai, bi=bi, ci=ci, di=di)) expect_equivalent(res$beta, 0) expect_warning(res <- rma.mh(measure="RD", ai=ai, bi=bi, ci=ci, di=di)) expect_equivalent(res$beta, 0) skip_on_cran() expect_error(suppressWarnings(rma.glmm(measure="OR", ai=ai, bi=bi, ci=ci, di=di))) }) rm(list=ls()) metafor/tests/testthat/test_misc_vcov.r0000644000176200001440000000350414712730601020126 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: vcov() function") source("settings.r") test_that("vcov() works correctly for 'rma.uni' objects.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi ~ ablat, vi, data=dat) expect_equivalent(vcov(res), structure(c(0.0621, -0.0016, -0.0016, 1e-04), .Dim = c(2L, 2L), .Dimnames = list(c("intrcpt", "ablat"), c("intrcpt", "ablat"))), tolerance=.tol[["var"]]) expect_equivalent(diag(vcov(res, type="obs")), dat$vi + res$tau2) expect_equivalent(vcov(res, type="fitted")[1,], c(0.0197, 0.0269, 0.0184, 0.025, -0.0007, 0.0197, 0.0033, -0.0007, 0.0085, 0.0184, 0.0026, 0.0125, 0.0125), tolerance=.tol[["var"]]) expect_equivalent(vcov(res, type="resid")[1,], c(0.3822, -0.0269, -0.0184, -0.025, 7e-04, -0.0197, -0.0033, 0.0007, -0.0085, -0.0184, -0.0026, -0.0125, -0.0125), tolerance=.tol[["var"]]) }) test_that("vcov() works correctly for 'rma.mv' objects.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma.mv(yi ~ ablat, vi, random = ~ 1 | trial, data=dat, sparse=.sparse) expect_equivalent(vcov(res), structure(c(0.062, -0.0016, -0.0016, 1e-04), .Dim = c(2L, 2L), .Dimnames = list(c("intrcpt", "ablat"), c("intrcpt", "ablat"))), tolerance=.tol[["var"]]) expect_equivalent(diag(vcov(res, type="obs")), dat$vi + res$sigma2) expect_equivalent(vcov(res, type="fitted")[1,], c(0.0197, 0.0269, 0.0184, 0.025, -0.0007, 0.0197, 0.0033, -0.0007, 0.0085, 0.0184, 0.0026, 0.0125, 0.0125), tolerance=.tol[["var"]]) expect_equivalent(vcov(res, type="resid")[1,], c(0.3822, -0.0269, -0.0184, -0.025, 7e-04, -0.0197, -0.0033, 0.0007, -0.0085, -0.0184, -0.0026, -0.0125, -0.0125), tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_weights.r0000644000176200001440000001265214712730577020643 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: weights() function") source("settings.r") test_that("weights are correct for rma() with method='FE'.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### weighted analysis res <- rma(yi, vi, data=dat, method="FE") ### weights should be the same as 1/vi (scaled to percentages) expect_equivalent(weights(res), (1/dat$vi)/sum(1/dat$vi) * 100) ### weights should be the same as 1/vi expect_equivalent(diag(weights(res, type="matrix")), 1/dat$vi) ### weighted analysis with user defined weights res <- rma(yi, vi, data=dat, method="FE", weights=1:13) ### weights should match (scaled to percentages) expect_equivalent(weights(res), (1:13)/sum(1:13) * 100) ### unweighted analysis res <- rma(yi, vi, data=dat, method="FE", weighted=FALSE) ### weights should be the same as 1/k (scaled to percentages) expect_equivalent(weights(res), rep(1/res$k, res$k) * 100) ### unweighted analysis (but user has specified weights nevertheless) res <- rma(yi, vi, data=dat, method="FE", weighted=FALSE, weights=1:13) ### weights should be the same as 1/k (scaled to percentages) expect_equivalent(weights(res), rep(1/res$k, res$k) * 100) }) test_that("weights are correct for rma() with method='DL'.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### weighted analysis res <- rma(yi, vi, data=dat, method="DL") ### weights should be the same as 1/(vi+tau2) (scaled to percentages) expect_equivalent(weights(res), (1/(dat$vi+res$tau2)/sum(1/(dat$vi+res$tau2)) * 100)) ### weights should be the same as 1/(vi+tau2) expect_equivalent(diag(weights(res, type="matrix")), 1/(dat$vi+res$tau2)) ### weighted analysis with user defined weights res <- rma(yi, vi, data=dat, method="DL", weights=1:13) ### weights should match (scaled to percentages) expect_equivalent(weights(res), (1:13)/sum(1:13) * 100) ### unweighted analysis res <- rma(yi, vi, data=dat, method="DL", weighted=FALSE) ### weights should be the same as 1/k (scaled to percentages) expect_equivalent(weights(res), rep(1/res$k, res$k) * 100) ### unweighted analysis (but user has specified weights nevertheless) res <- rma(yi, vi, data=dat, method="FE", weighted=FALSE, weights=1:13) ### weights should be the same as 1/k (scaled to percentages) expect_equivalent(weights(res), rep(1/res$k, res$k) * 100) }) test_that("weights are correct for rma.mv() with method='REML'.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### weighted analysis res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, sparse=.sparse) ### weights should be the same as 1/(vi+sigma2) (scaled to percentages) expect_equivalent(weights(res), (1/(dat$vi+res$sigma2)/sum(1/(dat$vi+res$sigma2)) * 100)) ### weights should be the same as 1/(vi+sigma2) expect_equivalent(diag(weights(res, type="matrix")), 1/(dat$vi+res$sigma2)) ### weighted analysis with user defined weights res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, W=1:13, sparse=.sparse) ### weights should match (scaled to percentages) expect_equivalent(weights(res), (1:13)/sum(1:13) * 100) ### unweighted analysis res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, W=1, sparse=.sparse) ### weights should be the same as 1/k (scaled to percentages) expect_equivalent(weights(res), rep(1/res$k, res$k) * 100) }) test_that("weights are correct for rma.mh() with measure='RD/RR/OR'.", { dat <- dat.bcg res <- rma.mh(measure="RD", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) sav <- weights(res) expect_equivalent(coef(res), sum(res$yi * sav/100), tolerance=.tol[["coef"]]) tmp <- diag(weights(res, type="matrix")) expect_equivalent(sav, tmp/sum(tmp)*100) res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) sav <- weights(res) expect_equivalent(exp(coef(res)), sum(exp(res$yi) * sav/100), tolerance=.tol[["coef"]]) tmp <- diag(weights(res, type="matrix")) expect_equivalent(sav, tmp/sum(tmp)*100) res <- rma.mh(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) sav <- weights(res) expect_equivalent(exp(coef(res)), sum(exp(res$yi) * sav/100), tolerance=.tol[["coef"]]) tmp <- diag(weights(res, type="matrix")) expect_equivalent(sav, tmp/sum(tmp)*100) }) test_that("weights are correct for rma.mh() with measure='IRD/IRR'.", { dat <- dat.nielweise2008 res <- rma.mh(measure="IRD", x1i=x1i, t1i=t1i, x2i=x2i, t2i=t2i, data=dat) sav <- weights(res) expect_equivalent(coef(res), sum(res$yi * sav/100), tolerance=.tol[["coef"]]) tmp <- diag(weights(res, type="matrix")) expect_equivalent(sav, tmp/sum(tmp)*100) res <- rma.mh(measure="IRR", x1i=x1i, t1i=t1i, x2i=x2i, t2i=t2i, data=dat) sav <- weights(res) expect_equivalent(exp(coef(res)), sum(exp(res$yi) * sav/100), tolerance=.tol[["coef"]]) tmp <- diag(weights(res, type="matrix")) expect_equivalent(sav, tmp/sum(tmp)*100) }) test_that("weights are correct for rma.peto().", { dat <- dat.bcg res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) sav <- weights(res) expect_equivalent(coef(res), sum(res$yi * sav/100), tolerance=.tol[["coef"]]) tmp <- diag(weights(res, type="matrix")) expect_equivalent(sav, tmp/sum(tmp)*100) }) rm(list=ls()) metafor/tests/testthat/test_misc_cumul.r0000644000176200001440000000715214712730643020307 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") source("settings.r") context("Checking misc: cumul() functions") test_that("cumul() works correctly for 'rma.uni' object.", { ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0(author, ", ", year)) ### fit random-effects model res <- rma(yi, vi, data=dat) ### cumulative meta-analysis (in the order of publication year) out <- cumul(res, order=year) expect_equivalent(out$estimate, c(-0.889311, -1.325003, -0.97208, -1.001094, -1.101424, -0.973464, -0.901251, -0.788566, -0.865607, -0.785211, -0.708206, -0.794768, -0.714532), tolerance=.tol[["est"]]) ### with transformation out <- cumul(res, order=year, transf=exp) expect_equivalent(out$estimate, c(0.410939, 0.265802, 0.378296, 0.367477, 0.332398, 0.377772, 0.406061, 0.454496, 0.420796, 0.456024, 0.492527, 0.451686, 0.489421), tolerance=.tol[["est"]]) ### add studies with the same publication year simultaneously out <- cumul(res, order=year, transf=exp, collapse=TRUE) expect_equivalent(out$estimate, c(0.410939, 0.265802, 0.378296, 0.367477, 0.332398, 0.377772, 0.406061, 0.420796, 0.456024, 0.492527, 0.451686, 0.489421), tolerance=.tol[["est"]]) }) test_that("cumul() works correctly for 'rma.mh' object.", { ### meta-analysis of the (log) risk ratios using the Mantel-Haenszel method res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0(author, ", ", year)) ### cumulative meta-analysis (in the order of publication year) out <- cumul(res, order=year) expect_equivalent(out$estimate, c(-0.889311, -1.351739, -0.827295, -0.837892, -0.894003, -0.850672, -0.835785, -0.774442, -0.789605, -0.666015, -0.635076, -0.775798, -0.45371), tolerance=.tol[["est"]]) ### with transformation out <- cumul(res, order=year, transf=exp) expect_equivalent(out$estimate, c(0.410939, 0.25879, 0.437231, 0.432621, 0.409015, 0.427128, 0.433534, 0.460961, 0.454024, 0.513752, 0.529895, 0.460336, 0.635267), tolerance=.tol[["est"]]) ### add studies with the same publication year simultaneously out <- cumul(res, order=year, transf=exp, collapse=TRUE) expect_equivalent(out$estimate, c(0.410939, 0.25879, 0.437231, 0.432621, 0.409015, 0.427128, 0.433534, 0.454024, 0.513752, 0.529895, 0.460336, 0.635267), tolerance=.tol[["est"]]) }) test_that("cumul() works correctly for 'rma.peto' object.", { ### meta-analysis of the (log) odds ratios using Peto's method res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0(author, ", ", year)) ### cumulative meta-analysis (in the order of publication year) out <- cumul(res, order=year) expect_equivalent(out$estimate, c(-0.860383, -1.240086, -0.957016, -0.964222, -1.000315, -0.940979, -0.924632, -0.850145, -0.871198, -0.726791, -0.691247, -0.816134, -0.474446), tolerance=.tol[["est"]]) ### with transformation out <- cumul(res, order=year, transf=exp) expect_equivalent(out$estimate, c(0.423, 0.289359, 0.384037, 0.38128, 0.367764, 0.390246, 0.396677, 0.427353, 0.41845, 0.483458, 0.500951, 0.442138, 0.622229), tolerance=.tol[["est"]]) ### add studies with the same publication year simultaneously out <- cumul(res, order=year, transf=exp, collapse=TRUE) expect_equivalent(out$estimate, c(0.423, 0.289359, 0.384037, 0.38128, 0.367764, 0.390246, 0.396677, 0.41845, 0.483458, 0.500951, 0.442138, 0.622229), tolerance=.tol[["est"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_caterpillar_plot.r0000644000176200001440000000306014762055317022725 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:caterpillar_plot source("settings.r") context("Checking plots example: caterpillar plot") test_that("plot can be drawn.", { skip_on_cran() ### simulate some data set.seed(5132) k <- 250 vi <- rchisq(k, df=1) * .03 yi <- rnorm(k, rnorm(k, 0.5, 0.4), sqrt(vi)) ### fit RE model res <- rma(yi, vi) doplot <- function() { par(mar=c(5,1,2,1)) forest(yi, vi, header=FALSE, xlim=c(-2.5,3.5), ylim=c(-8, 254), order=yi, slab=NA, annotate=FALSE, efac=0, pch=19, col="gray40", psize=2, cex.lab=1, cex.axis=1, lty=c("solid","blank")) points(sort(yi), k:1, pch=19, cex=0.5) addpoly(res, mlab="", cex=1) text(-2, -2, "RE Model", pos=4, offset=0, cex=1) } png("images/test_plots_caterpillar_plot_light_test.png", res=200, width=1800, height=1500, type="cairo") doplot() dev.off() expect_true(.vistest("images/test_plots_caterpillar_plot_light_test.png", "images/test_plots_caterpillar_plot_light.png")) png("images/test_plots_caterpillar_plot_dark_test.png", res=200, width=1800, height=1500, type="cairo") setmfopt(theme="dark") doplot() setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_caterpillar_plot_dark_test.png", "images/test_plots_caterpillar_plot_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_misc_vcalc.r0000644000176200001440000002414415116563465020257 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: vcalc() function") source("settings.r") test_that("vcalc() works correctly for 'dat.assink2016' example.", { dat <- dat.assink2016 ### assume that the effect sizes within studies are correlated with rho=0.6 V <- vcalc(vi, cluster=study, obs=esid, data=dat, rho=0.6) sav <- blsplit(V, dat$study, round, 4)[1:2] expected <- list(`1` = structure(c(0.074, 0.0326, 0.0358, 0.0252, 0.0297, 0.0486, 0.0326, 0.0398, 0.0263, 0.0185, 0.0218, 0.0356, 0.0358, 0.0263, 0.0481, 0.0203, 0.0239, 0.0392, 0.0252, 0.0185, 0.0203, 0.0239, 0.0169, 0.0276, 0.0297, 0.0218, 0.0239, 0.0169, 0.0331, 0.0325, 0.0486, 0.0356, 0.0392, 0.0276, 0.0325, 0.0886), .Dim = c(6L,6L), class = c("vcovmat", "matrix", "array")), `2` = structure(c(0.0115, 0.0056, 0.0052, 0.0056, 0.0076, 0.0042, 0.0052, 0.0042, 0.0065), .Dim = c(3L, 3L), class = c("vcovmat", "matrix", "array"))) expect_equivalent(sav, expected, tolerance=.tol[["var"]]) ### use a correlation of 0.7 for effect sizes corresponding to the same type of ### delinquent behavior and a correlation of 0.5 for effect sizes corresponding ### to different types of delinquent behavior V <- vcalc(vi, cluster=study, type=deltype, obs=esid, data=dat, rho=c(0.7, 0.5)) sav <- blsplit(V, dat$study, round, 3)[16] expected <- list(`16` = structure(c(0.091, 0.045, 0.027, 0.044, 0.03, 0.039, 0.076, 0.028, 0.034, 0.03, 0.039, 0.043, 0.039, 0.067, 0.028, 0.032, 0.045, 0.087, 0.027, 0.061, 0.03, 0.039, 0.053, 0.027, 0.047, 0.041, 0.053, 0.059, 0.053, 0.046, 0.038, 0.043, 0.027, 0.027, 0.033, 0.027, 0.025, 0.033, 0.033, 0.023, 0.021, 0.018, 0.023, 0.026, 0.023, 0.029, 0.017, 0.019, 0.044, 0.061, 0.027, 0.086, 0.029, 0.038, 0.053, 0.027, 0.047, 0.041, 0.053, 0.058, 0.053, 0.046, 0.038, 0.043, 0.03, 0.03, 0.025, 0.029, 0.04, 0.037, 0.036, 0.026, 0.023, 0.02, 0.026, 0.028, 0.026, 0.031, 0.018, 0.021, 0.039, 0.039, 0.033, 0.038, 0.037, 0.068, 0.047, 0.033, 0.03, 0.026, 0.034, 0.037, 0.034, 0.041, 0.024, 0.027, 0.076, 0.053, 0.033, 0.053, 0.036, 0.047, 0.129, 0.033, 0.041, 0.035, 0.046, 0.051, 0.046, 0.079, 0.033, 0.037, 0.028, 0.027, 0.023, 0.027, 0.026, 0.033, 0.033, 0.033, 0.021, 0.018, 0.023, 0.026, 0.024, 0.029, 0.017, 0.019, 0.034, 0.047, 0.021, 0.047, 0.023, 0.03, 0.041, 0.021, 0.052, 0.031, 0.041, 0.045, 0.041, 0.036, 0.029, 0.033, 0.03, 0.041, 0.018, 0.041, 0.02, 0.026, 0.035, 0.018, 0.031, 0.039, 0.036, 0.039, 0.036, 0.031, 0.025, 0.029, 0.039, 0.053, 0.023, 0.053, 0.026, 0.034, 0.046, 0.023, 0.041, 0.036, 0.066, 0.051, 0.047, 0.04, 0.033, 0.038, 0.043, 0.059, 0.026, 0.058, 0.028, 0.037, 0.051, 0.026, 0.045, 0.039, 0.051, 0.081, 0.051, 0.045, 0.037, 0.042, 0.039, 0.053, 0.023, 0.053, 0.026, 0.034, 0.046, 0.024, 0.041, 0.036, 0.047, 0.051, 0.067, 0.041, 0.033, 0.038, 0.067, 0.046, 0.029, 0.046, 0.031, 0.041, 0.079, 0.029, 0.036, 0.031, 0.04, 0.045, 0.041, 0.099, 0.029, 0.033, 0.028, 0.038, 0.017, 0.038, 0.018, 0.024, 0.033, 0.017, 0.029, 0.025, 0.033, 0.037, 0.033, 0.029, 0.034, 0.027, 0.032, 0.043, 0.019, 0.043, 0.021, 0.027, 0.037, 0.019, 0.033, 0.029, 0.038, 0.042, 0.038, 0.033, 0.027, 0.044), .Dim = c(16L, 16L), class = c("vcovmat", "matrix", "array"))) expect_equivalent(sav, expected, tolerance=.tol[["var"]]) }) test_that("vcalc() works correctly for 'dat.ishak2007' example.", { dat <- dat.ishak2007 ### create long format dataset dat <- reshape(dat, direction="long", idvar="study", v.names=c("yi","vi"), varying=list(c(2,4,6,8), c(3,5,7,9))) dat <- dat[order(study, time),] ### remove missing measurement occasions from dat dat <- dat[!is.na(yi),] rownames(dat) <- NULL ### construct the full (block diagonal) V matrix with an AR(1) structure ### assuming an autocorrelation of 0.97 as estimated by Ishak et al. (2007) V <- vcalc(vi, cluster=study, time1=time, phi=0.97, data=dat) sav <- blsplit(V, dat$study)[1:5] expected <- list(`Alegret (2001)` = structure(14.3, dim = c(1L, 1L), class = c("vcovmat", "matrix", "array")), `Barichella (2003)` = structure(c(7.3, 6.0693520102314, 6.0693520102314, 5.7), dim = c(2L, 2L), class = c("vcovmat", "matrix", "array")), `Berney (2002)` = structure(7.3, dim = c(1L, 1L), class = c("vcovmat", "matrix", "array")), `Burchiel (1999)` = structure(c(8, 7.76, 5.95077410090486, 7.76, 8, 6.13481866072665, 5.95077410090486, 6.13481866072665, 5), dim = c(3L, 3L), class = c("vcovmat", "matrix", "array")), `Chen (2003)` = structure(125, dim = c(1L, 1L), class = c("vcovmat", "matrix", "array"))) expect_equivalent(sav, expected, tolerance=.tol[["var"]]) }) test_that("vcalc() works correctly for 'dat.kalaian1996' example.", { dat <- dat.kalaian1996 ### construct the variance-covariance matrix assuming rho = 0.66 for effect sizes ### corresponding to the 'verbal' and 'math' outcome types V <- vcalc(vi, cluster=study, type=outcome, data=dat, rho=0.66) sav <- round(V[1:12,1:12], 4) expected <- structure(c(0.0817, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0507, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.1045, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0442, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0535, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0557, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0561, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.1151, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0147, 0.0097, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0097, 0.0147, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0218, 0.0143, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0143, 0.0216), .Dim = c(12L, 12L), class = c("vcovmat", "matrix", "array")) expect_equivalent(sav, expected, tolerance=.tol[["var"]]) }) test_that("vcalc() works correctly for 'dat.berkey1998' example.", { dat <- dat.berkey1998 ### variables v1i and v2i correspond to the 2x2 var-cov matrices of the studies; ### so use these variables to construct the V matrix (note: since v1i and v2i are ### var-cov matrices and not correlation matrices, set vi=1 for all rows) V <- vcalc(vi=1, cluster=author, rvars=c(v1i, v2i), data=dat) sav <- blsplit(V, dat$author, function(x) round(cov2cor(x), 2)) expected <- list(`Pihlstrom et al.` = structure(c(1, 0.39, 0.39, 1), dim = c(2L, 2L), class = c("vcovmat", "matrix", "array")), `Lindhe et al.` = structure(c(1, 0.42, 0.42, 1), dim = c(2L, 2L), class = c("vcovmat", "matrix", "array")), `Knowles et al.` = structure(c(1, 0.41, 0.41, 1), dim = c(2L, 2L), class = c("vcovmat", "matrix", "array")), `Ramfjord et al.` = structure(c(1, 0.43, 0.43, 1), dim = c(2L, 2L), class = c("vcovmat", "matrix", "array")), `Becker et al.` = structure(c(1, 0.34, 0.34, 1), dim = c(2L, 2L), class = c("vcovmat", "matrix", "array"))) expect_equivalent(sav, expected, tolerance=.tol[["var"]]) }) test_that("vcalc() works correctly for 'dat.knapp2017' example.", { dat <- dat.knapp2017 ### create variable that indicates the task and difficulty combination as increasing integers dat$task.diff <- unlist(lapply(split(dat, dat$study), function(x) { task.int <- as.integer(factor(x$task)) diff.int <- as.integer(factor(x$difficulty)) diff.int[is.na(diff.int)] <- 1 paste0(task.int, ".", diff.int)})) ### construct correlation matrix for two tasks with four different difficulties where the ### correlation is 0.4 for different difficulties of the same task, 0.7 for the same ### difficulty of different tasks, and 0.28 for different difficulties of different tasks R <- matrix(0.4, nrow=8, ncol=8) R[5:8,1:4] <- R[1:4,5:8] <- 0.28 diag(R[1:4,5:8]) <- 0.7 diag(R[5:8,1:4]) <- 0.7 diag(R) <- 1 rownames(R) <- colnames(R) <- paste0(rep(1:2, each=4), ".", 1:4) ### construct an approximate V matrix accounting for the use of shared groups and ### for correlations among tasks/difficulties as specified in the R matrix above V <- vcalc(vi, cluster=study, grp1=group1, grp2=group2, w1=n_sz, w2=n_hc, obs=task.diff, rho=R, data=dat) Vs <- blsplit(V, dat$study) sav <- Vs[c(3,6,12,24,29)] expected <- list(`3` = structure(c(0.062, 0.0313021866879515, 0.0305960523769429, 0.0306223534669685, 0.0313021866879515, 0.073, 0.0301021398261882, 0.0301280163373072, 0.0305960523769429, 0.0301021398261882, 0.102, 0.029448369695669, 0.0306223534669685, 0.0301280163373072, 0.029448369695669, 0.084), dim = c(4L, 4L), class = c("vcovmat", "matrix", "array")), `6` = structure(c(0.17, 0.07485452558129, 0.0675988165576883, 0.0711280535372648, 0.120045408075445, 0.0489799959167005, 0.0511105468567888, 0.0495212277715325, 0.07485452558129, 0.206, 0.0744129021070943, 0.0782978926919493, 0.0528584827629398, 0.134793174901402, 0.0562625843700767, 0.0545130589858981, 0.0675988165576884, 0.0744129021070943, 0.168, 0.0707084153407499, 0.0477348677593224, 0.0486910258671965, 0.127022517688794, 0.0492290645858725, 0.0711280535372648, 0.0782978926919493, 0.0707084153407499, 0.186, 0.0502270365440765, 0.0512331142914424, 0.0534616722521846, 0.129498108094288, 0.120045408075445, 0.0528584827629398, 0.0477348677593224, 0.0502270365440765, 0.173, 0.0705861176152932, 0.0736565000526091, 0.0713660983941255, 0.0489799959167005, 0.134793174901402, 0.0486910258671965, 0.0512331142914424, 0.0705861176152932, 0.18, 0.0751318840439929, 0.0727956042628949, 0.0511105468567888, 0.0562625843700767, 0.127022517688794, 0.0534616722521846, 0.0736565000526091, 0.0751318840439929, 0.196, 0.075962095811003, 0.0495212277715325, 0.0545130589858981, 0.0492290645858725, 0.129498108094288, 0.0713660983941255, 0.0727956042628949, 0.075962095811003, 0.184), dim = c(8L, 8L), class = c("vcovmat", "matrix", "array")), `12` = structure(c(0.02, 0.00819756061276768, 0.008, 0.00839047078536121, 0.00819756061276768, 0.021, 0.00819756061276768, 0.00859767410408187, 0.008, 0.00819756061276768, 0.02, 0.00839047078536121, 0.00839047078536121, 0.00859767410408187, 0.00839047078536121, 0.022), dim = c(4L, 4L), class = c("vcovmat", "matrix", "array")), `24` = structure(c(0.022, 0, 0, 0.03), dim = c(2L, 2L), class = c("vcovmat", "matrix", "array")), `29` = structure(c(0.039, 0, 0, 0, 0.039, 0, 0, 0, 0.121), dim = c(3L, 3L), class = c("vcovmat", "matrix", "array"))) expect_equivalent(sav, expected, tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_konstantopoulos2011.r0000644000176200001440000003016414762055237025356 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:konstantopoulos2011 context("Checking analysis example: konstantopoulos2011") source("settings.r") dat <- dat.konstantopoulos2011 test_that("results are correct for the two-level random-effects model fitted with rma().", { res <- rma(yi, vi, data=dat) ### compare with results on page 70 (Table 4) expect_equivalent(coef(res), 0.1279, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.0439, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.0884, tolerance=.tol[["var"]]) expect_equivalent(res$se.tau2, 0.0202, tolerance=.tol[["sevar"]]) ### CI for tau^2 based on the Q-profile method (CI in paper is based on a Satterthwaite approximation) tmp <- confint(res, digits=3) out <- capture.output(print(tmp)) ### so that print.confint.rma() is run (at least once) expect_equivalent(tmp$random[1,2], 0.0564, tolerance=.tol[["var"]]) expect_equivalent(tmp$random[1,3], 0.1388, tolerance=.tol[["var"]]) }) test_that("results are correct for the two-level mixed-effects model fitted with rma().", { res <- rma(yi, vi, mods = ~ I(year-mean(year)), data=dat) ### compare with results on page 70 (Table 4) expect_equivalent(coef(res), c(0.1258, 0.0052), tolerance=.tol[["coef"]]) expect_equivalent(se(res), c(0.0440, 0.0044), tolerance=.tol[["se"]]) ### 0.043 in paper expect_equivalent(res$tau2, 0.0889, tolerance=.tol[["var"]]) ### 0.088 in paper expect_equivalent(res$se.tau2, 0.0205, tolerance=.tol[["sevar"]]) ### CI for tau^2 based on the Q-profile method (CI in paper is based on a Satterthwaite approximation) tmp <- confint(res, digits=3) expect_equivalent(tmp$random[1,2], 0.0560, tolerance=.tol[["var"]]) expect_equivalent(tmp$random[1,3], 0.1376, tolerance=.tol[["var"]]) }) test_that("results are correct for the two-level random-effects model fitted with rma.mv().", { res <- rma.mv(yi, vi, random = ~ 1 | study, data=dat, sparse=.sparse) ### compare with results on page 70 (Table 4) expect_equivalent(coef(res), 0.1279, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.0439, tolerance=.tol[["se"]]) expect_equivalent(res$sigma2, 0.0884, tolerance=.tol[["var"]]) }) test_that("results are correct for the three-level random-effects model fitted with rma.mv() using ML estimation.", { ### three-level model (ml = multilevel parameterization) res.ml <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, method="ML", sparse=.sparse) out <- capture.output(print(res.ml)) out <- capture.output(print(summary(res.ml))) ### compare with results on page 71 (Table 5) expect_equivalent(coef(res.ml), 0.1845, tolerance=.tol[["coef"]]) expect_equivalent(se(res.ml), 0.0805, tolerance=.tol[["se"]]) expect_equivalent(res.ml$sigma2, c(0.0577, 0.0329), tolerance=.tol[["var"]]) sav <- predict(res.ml) expect_equivalent(c(sav$pi.lb, sav$pi.ub), c(-0.4262, 0.7951), tolerance=.tol[["pred"]]) }) test_that("results are correct for the three-level mixed-effects model fitted with rma.mv() using ML estimation.", { ### three-level model (multilevel parameterization) res.ml <- rma.mv(yi, vi, mods = ~ I(year-mean(year)), random = ~ 1 | district/study, data=dat, method="ML", sparse=.sparse) out <- capture.output(print(res.ml)) ### compare with results on page 71 (Table 5) expect_equivalent(coef(res.ml), c(0.1780, 0.0051), tolerance=.tol[["coef"]]) ### intercept is given as 0.183 in paper, but this seems to be a misprint expect_equivalent(se(res.ml), c(0.0805, 0.0085), tolerance=.tol[["se"]]) expect_equivalent(res.ml$sigma2, c(0.0565, 0.0329), tolerance=.tol[["var"]]) }) test_that("results are correct for the three-level random-effects model fitted with rma.mv() using REML estimation.", { ### three-level model (ml = multilevel parameterization) res.ml <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, sparse=.sparse) out <- capture.output(print(res.ml)) ### (results for this not given in paper) expect_equivalent(coef(res.ml), 0.1847, tolerance=.tol[["coef"]]) expect_equivalent(se(res.ml), 0.0846, tolerance=.tol[["se"]]) expect_equivalent(res.ml$sigma2, c(0.0651, 0.0327), tolerance=.tol[["var"]]) ### ICC expect_equivalent(res.ml$sigma2[1] / sum(res.ml$sigma2), 0.6653, tolerance=.tol[["cor"]]) ### total amount of heterogeneity expect_equivalent(sum(res.ml$sigma2), 0.0978, tolerance=.tol[["var"]]) ### log likelihood expect_equivalent(c(logLik(res.ml)), -7.9587, tolerance=.tol[["fit"]]) ### CIs for variance components sav <- confint(res.ml) sav <- round(as.data.frame(sav), 4) expected <- structure(c(0.0651, 0.2551, 0.0327, 0.1809, 0.0222, 0.1491, 0.0163, 0.1276, 0.2072, 0.4552, 0.0628, 0.2507), .Dim = 4:3, .Dimnames = list(c("sigma^2.1", "sigma.1", "sigma^2.2", "sigma.2"), c("estimate", "ci.lb", "ci.ub"))) expect_equivalent(sav, expected, tolerance=.tol[["var"]]) }) test_that("profiling works for the three-level random-effects model (multilevel parameterization).", { skip_on_cran() ### three-level model (ml = multilevel parameterization) res.ml <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, sparse=.sparse) ### profile variance components png("images/test_analysis_example_konstantopoulos2011_profile_1_light_test.png", res=200, width=1800, height=2000, type="cairo") par(mfrow=c(2,1)) sav <- profile(res.ml, progbar=FALSE) dev.off() expect_true(.vistest("images/test_analysis_example_konstantopoulos2011_profile_1_light_test.png", "images/test_analysis_example_konstantopoulos2011_profile_1_light.png")) ### profile variance components (dark theme) png("images/test_analysis_example_konstantopoulos2011_profile_1_dark_test.png", res=200, width=1800, height=2000, type="cairo") setmfopt(theme="dark") par(mfrow=c(2,1)) sav <- profile(res.ml, progbar=FALSE) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_konstantopoulos2011_profile_1_dark_test.png", "images/test_analysis_example_konstantopoulos2011_profile_1_dark.png")) out <- capture.output(print(sav)) }) test_that("results are correct for the three-level random-effects model when using the multivariate parameterization.", { ### three-level model (mv = multivariate parameterization) res.mv <- rma.mv(yi, vi, random = ~ factor(study) | district, data=dat, sparse=.sparse) ### (results for this not given in paper) expect_equivalent(coef(res.mv), 0.1847, tolerance=.tol[["coef"]]) expect_equivalent(se(res.mv), 0.0846, tolerance=.tol[["se"]]) expect_equivalent(res.mv$tau2, 0.0978, tolerance=.tol[["var"]]) expect_equivalent(res.mv$rho, 0.6653, tolerance=.tol[["cor"]]) ### log likelihood expect_equivalent(c(logLik(res.mv)), -7.9587, tolerance=.tol[["fit"]]) }) test_that("profiling works for the three-level random-effects model (multivariate parameterization).", { skip_on_cran() ### three-level model (mv = multivariate parameterization) res.mv <- rma.mv(yi, vi, random = ~ factor(study) | district, data=dat, sparse=.sparse) ### profile variance components png("images/test_analysis_example_konstantopoulos2011_profile_2_light_test.png", res=200, width=1800, height=2000, type="cairo") par(mfrow=c(2,1)) #profile(res.mv, progbar=FALSE) profile(res.mv, progbar=FALSE, parallel="snow") dev.off() expect_true(.vistest("images/test_analysis_example_konstantopoulos2011_profile_2_light_test.png", "images/test_analysis_example_konstantopoulos2011_profile_2_light.png")) ### profile variance components (dark theme) png("images/test_analysis_example_konstantopoulos2011_profile_2_dark_test.png", res=200, width=1800, height=2000, type="cairo") setmfopt(theme="dark") par(mfrow=c(2,1)) #profile(res.mv, progbar=FALSE) profile(res.mv, progbar=FALSE, parallel="snow") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_konstantopoulos2011_profile_2_dark_test.png", "images/test_analysis_example_konstantopoulos2011_profile_2_dark.png")) }) test_that("BLUPs are calculated correctly for the three-level random-effects model (multilevel parameterization).", { skip_on_cran() ### three-level model (ml = multilevel parameterization) res.ml <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, sparse=.sparse) sav <- ranef(res.ml) expect_equivalent(sav[[1]]$intrcpt, c(-0.18998596, -0.08467077, 0.1407273, 0.24064814, -0.1072942, -0.23650899, 0.5342778, -0.2004695, 0.05711692, -0.14168396, -0.01215679), tolerance=.tol[["pred"]]) expect_equivalent(sav[[1]]$se, c(0.16653966, 0.12407891, 0.13724053, 0.11885896, 0.11895233, 0.10112845, 0.1297891, 0.101322, 0.11104458, 0.12485549, 0.15042221), tolerance=.tol[["se"]]) expect_equivalent(sav[[2]]$intrcpt, c(-0.03794675, -0.04663383, 0.04357906, -0.05459167, 0.02098376, -0.25219111, 0.06169069, 0.12691378, 0.07315932, 0.02358293, -0.02593401, -0.16472466, 0.20017925, -0.05824454, 0.14387428, 0.00163316, -0.03082723, 0.09766431, -0.12245631, -0.07958353, 0.03342001, 0.03277405, -0.13648311, 0.00732233, -0.15120705, 0.10293055, 0.04267145, 0.08386343, -0.02323572, -0.03147411, -0.28733359, 0.19536367, 0.36079672, -0.0526358, -0.03322863, 0.00558571, 0.03469647, -0.01382146, 0.0152893, 0.02499288, -0.08174655, 0.19776024, 0.31299764, -0.03204218, -0.18968221, -0.13730492, -0.12298966, -0.28918454, 0.33743506, -0.03810734, 0.11843554, -0.19986832, -0.01436916, 0.12481101, -0.04350898, -0.07304968), tolerance=.tol[["pred"]]) expect_equivalent(sav[[2]]$se, c(0.16388194, 0.16388194, 0.16603559, 0.16603559, 0.12233812, 0.12233812, 0.12342216, 0.13171712, 0.13653182, 0.14617064, 0.12941105, 0.12588568, 0.10313659, 0.10313659, 0.10868276, 0.12489868, 0.10877088, 0.10517399, 0.10324522, 0.11803445, 0.11512181, 0.11661284, 0.12068892, 0.11803445, 0.11939164, 0.08878259, 0.09186319, 0.09186319, 0.09186319, 0.09186319, 0.12687757, 0.12311091, 0.12210943, 0.06873404, 0.06873404, 0.06873404, 0.06873404, 0.06873404, 0.06873404, 0.06873404, 0.06873404, 0.10744609, 0.10928134, 0.10744609, 0.10550931, 0.11267925, 0.11267925, 0.13697347, 0.13697347, 0.13632667, 0.13632667, 0.13632667, 0.1589217, 0.1581043, 0.15527374, 0.15527374), tolerance=.tol[["se"]]) }) test_that("restarting with 'restart=TRUE' works.", { skip_on_cran() expect_error(res <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, control=list(maxiter=4))) expect_error(res <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, control=list(maxiter=4), restart=TRUE)) res <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, control=list(maxiter=4), restart=TRUE) expect_equivalent(coef(res), 0.1847132, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.08455592, tolerance=.tol[["se"]]) expect_equivalent(res$sigma2, c(0.06506194, 0.03273652), tolerance=.tol[["var"]]) }) test_that("results are correct when allowing for different tau^2 per district.", { skip_on_cran() ### shuffle up dat to make sure that this does not affect things set.seed(1234) dat <- dat[sample(nrow(dat)),] res <- rma.mv(yi, vi, random = list(~ 1 | district, ~ factor(district) | study), struct="DIAG", data=dat, control=list(optimizer="optim"), sparse=.sparse) out <- capture.output(print(res, digits=4)) out <- capture.output(print(summary(res, digits=4))) expect_equivalent(coef(res), 0.1270, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.0588, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, c(0.0000, 0.0402, 0.0000, 0.0582, 0.0082, 0.0000, 0.5380, 0.0008, 0.0606, 0.1803, 0.0000), tolerance=.tol[["var"]]) ### check that output is also correct tau2 <- as.numeric(substr(out[grep("tau", out)], 13, 18)) expect_equivalent(res$tau2, c(0.0000, 0.0402, 0.0000, 0.0582, 0.0082, 0.0000, 0.5380, 0.0008, 0.0606, 0.1803, 0.0000), tolerance=.tol[["var"]]) k.lvl <- as.numeric(substr(out[grep("tau", out)], 32, 33)) expect_equivalent(k.lvl, c(4, 4, 3, 4, 4, 11, 3, 8, 6, 5, 4)) level <- as.numeric(substr(out[grep("tau", out)], 45, 47)) expect_equivalent(level, c(11, 12, 18, 27, 56, 58, 71, 86, 91, 108, 644)) }) rm(list=ls()) metafor/tests/testthat/test_misc_transf.r0000644000176200001440000000372114712730603020451 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: transformation functions") source("settings.r") test_that("transformations work correctly.", { expect_equivalent(transf.rtoz(.5), 0.549306, tolerance=.tol[["est"]]) expect_equivalent(transf.ztor(transf.rtoz(.5)), .5) expect_equivalent(transf.logit(.1), -2.197225, tolerance=.tol[["est"]]) expect_equivalent(transf.ilogit(transf.logit(.1)), .1) expect_equivalent(transf.arcsin(.1), 0.321751, tolerance=.tol[["est"]]) expect_equivalent(transf.iarcsin(transf.arcsin(.1)), .1) expect_equivalent(transf.pft(.1,10), 0.373394, tolerance=.tol[["est"]]) expect_equivalent(transf.ipft(transf.pft(.1,10), 10), .1) expect_equivalent(transf.ipft.hm(transf.pft(.1,10), targs=list(ni=c(10))), .1) expect_equivalent(transf.isqrt(.1), 0.01) expect_equivalent(transf.irft(.1,10), 0.381721, tolerance=.tol[["est"]]) expect_equivalent(transf.iirft(transf.irft(.1,10), 10), .1) expect_equivalent(transf.ahw(.9), 0.535841, tolerance=.tol[["est"]]) expect_equivalent(transf.iahw(transf.ahw(.9)), .9) expect_equivalent(transf.abt(.9), 2.302585, tolerance=.tol[["est"]]) expect_equivalent(transf.iabt(transf.abt(.9)), .9) expect_equivalent(transf.ztor.int(transf.rtoz(.5), targs=list(tau2=0)), .5) expect_equivalent(transf.ztor.int(transf.rtoz(.5), targs=list(tau2=0.1)), 0.46663, tolerance=.tol[["est"]]) expect_equivalent(transf.exp.int(log(.5), targs=list(tau2=0)), .5) expect_equivalent(transf.exp.int(log(.5), targs=list(tau2=0.1)), 0.525635, tolerance=.tol[["est"]]) expect_equivalent(transf.exp.int(log(.5), targs=list(tau2=0.1, lower=-10, upper=10)), exp(log(.5) + 0.1/2), tolerance=.tol[["est"]]) expect_equivalent(transf.ilogit.int(transf.logit(.1), targs=list(tau2=0)), .1) expect_equivalent(transf.ilogit.int(transf.logit(.1), targs=list(tau2=0.1)), 0.103591, tolerance=.tol[["est"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_uni_ls.r0000644000176200001440000000755214712730607021316 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma() function with location-scale models") source("settings.r") test_that("location-scale model results are correct for an intercept-only model", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res1 <- rma(yi, vi, data=dat, test="t") res2 <- rma(yi, vi, scale = ~ 1, data=dat, test="t", control=list(optimizer="optim")) res3 <- suppressWarnings(rma(yi, vi, scale = ~ 1, link="identity", data=dat, test="t", control=list(optimizer="Nelder-Mead"))) expect_equivalent(res1$tau2, as.vector(exp(coef(res2)$alpha)), tolerance=.tol[["var"]]) expect_equivalent(res1$tau2, as.vector(coef(res3)$alpha), tolerance=.tol[["var"]]) }) test_that("location-scale model results are correct for a categorical predictor", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res1 <- rma(yi ~ alloc, vi, scale = ~ 0 + alloc, data=dat) res2 <- rma(yi ~ alloc, vi, scale = ~ 0 + alloc, link = "identity", data=dat, control=list(optimizer="solnp")) res3 <- rma.mv(yi ~ alloc, vi, random = ~ alloc | trial, struct="DIAG", data=dat, sparse=.sparse) expect_equivalent(as.vector(exp(coef(res1)$alpha)), as.vector(coef(res2)$alpha), tolerance=.tol[["var"]]) expect_equivalent(as.vector(exp(coef(res1)$alpha)), res3$tau2, tolerance=.tol[["var"]]) }) test_that("location-scale model results are correct for a continuous predictor", { dat <- escalc(measure="RR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.laopaiboon2015) dat$ni <- dat$n1i + dat$n2i dat$ni[dat$study == "Whitlock"] <- dat$ni[dat$study == "Whitlock"] + 2 res <- suppressWarnings(rma(yi, vi, scale = ~ 0 + I(1/ni), link="identity", data=dat, method="ML")) expect_equivalent(as.vector(coef(res)$alpha), 79.07531, tolerance=.tol[["var"]]) expect_equivalent(exp(c(res$beta, res$ci.lb, res$ci.ub)), c(0.8539, 0.5482, 1.3302), tolerance=.tol[["coef"]]) res <- rma(yi, vi, scale = ~ I(1/ni), link="identity", data=dat, method="ML") expect_equivalent(as.vector(coef(res)$alpha), c(0.274623, 31.523043), tolerance=.tol[["var"]]) expect_equivalent(exp(c(res$beta, res$ci.lb, res$ci.ub)), c(1.0161589, 0.6214663, 1.6615205), tolerance=.tol[["coef"]]) res <- rma(yi, vi, scale = ~ 0 + I(1/ni), data=dat) expect_equivalent(as.vector(coef(res)$alpha), -34.5187, tolerance=.tol[["var"]]) expect_equivalent(exp(c(res$beta, res$ci.lb, res$ci.ub)), c(1.1251, 0.6381, 1.9839), tolerance=.tol[["coef"]]) res <- rma(yi, vi, scale = ~ I(1/ni), data=dat) expect_equivalent(as.vector(coef(res)$alpha), c(-0.8868, 42.4065), tolerance=.tol[["var"]]) expect_equivalent(exp(c(res$beta, res$ci.lb, res$ci.ub)), c(1.0474, 0.6242, 1.7577), tolerance=.tol[["coef"]]) sav <- coef(summary(res)) expected <- list(beta = structure(list(estimate = 0.0463401794422422, se = 0.264116077624852, zval = 0.175453837793485, pval = 0.86072304016451, ci.lb = -0.471317820440453, ci.ub = 0.563998179324937), class = "data.frame", row.names = "intrcpt"), alpha = structure(list(estimate = c(-0.886827277584096, 42.4065282951426 ), se = c(1.23920300372018, 118.69324661881), zval = c(-0.715643260161388, 0.357278358315816), pval = c(0.474211654391012, 0.720883429839682 ), ci.lb = c(-3.31562053440951, -190.227960285855), ci.ub = c(1.54196597924132, 275.04101687614)), class = "data.frame", row.names = c("intrcpt", "I(1/ni)"))) expect_equivalent(sav, expected, tolerance=.tol[["misc"]]) sav <- model.matrix(res)$scale expect_equivalent(sav, cbind(1, 1/dat$ni)) sav <- fitted(res)$scale expect_equivalent(sav, c(-0.4790722, -0.58818975, -0.8305852, -0.71086658, -0.49417424, -0.25389402, -0.66126064, -0.45847851, -0.54205875, -0.03869671, -0.03869671, -0.12956784, -0.40493491, -0.76426506, -0.35674567), tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_plot_of_cumulative_results.r0000644000176200001440000000237014762055414025047 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:plot_of_cumulative_results source("settings.r") context("Checking plots example: plot of cumulative results") test_that("plot can be drawn.", { skip_on_cran() dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) tmp <- cumul(res, order=year) png("images/test_plots_plot_of_cumulative_results_light_test.png", res=200, width=1800, height=1600, type="cairo") par(mar=c(5,5,2,2)) plot(tmp, transf=exp, xlim=c(0.25,0.5), lwd=3, cex=1.3) dev.off() expect_true(.vistest("images/test_plots_plot_of_cumulative_results_light_test.png", "images/test_plots_plot_of_cumulative_results_light.png")) png("images/test_plots_plot_of_cumulative_results_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") par(mar=c(5,5,2,2)) plot(tmp, transf=exp, xlim=c(0.25,0.5), lwd=3, cex=1.3) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_plot_of_cumulative_results_dark_test.png", "images/test_plots_plot_of_cumulative_results_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_mv.r0000644000176200001440000002356614762055147020456 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma.mv() function") source("settings.r") dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) test_that("rma.mv() correctly handles a formula for the 'yi' argument", { res1 <- rma.mv(yi ~ ablat, vi, random = ~ 1 | trial, data=dat, sparse=.sparse) res2 <- rma.mv(yi, vi, mods = ~ ablat, random = ~ 1 | trial, data=dat, sparse=.sparse) expect_equivalent(coef(res1), coef(res2), tolerance=.tol[["coef"]]) }) test_that("rma.mv() works correctly when using user-defined weights", { res <- rma.mv(yi, vi, W=1, random = ~ 1 | trial, data=dat, sparse=.sparse) expect_equivalent(coef(res), mean(dat$yi), tolerance=.tol[["coef"]]) expect_equivalent(c(vcov(res)), 0.0358, tolerance=.tol[["var"]]) }) test_that("rma.mv() correctly handles negative sampling variances", { dat$vi[1] <- -.01 expect_warning(res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, sparse=.sparse)) expect_equivalent(coef(res), -0.7220, tolerance=.tol[["coef"]]) expect_equivalent(c(vcov(res)), 0.0293, tolerance=.tol[["var"]]) }) test_that("rma.mv() correctly handles a missing value", { dat$vi[1] <- NA expect_warning(res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, sparse=.sparse)) expect_equivalent(coef(res), -0.7071, tolerance=.tol[["coef"]]) expect_equivalent(c(vcov(res)), 0.0361, tolerance=.tol[["var"]]) }) test_that("rma.mv() correctly handles the R argument", { P <- structure(c(1.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 1.000, 0.621, 0.621, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.000, 0.621, 1.000, 0.642, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.000, 0.621, 0.642, 1.000, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.128, 0.000, 0.128, 0.128, 0.128, 1.000, 0.266, 0.266, 0.221, 0.221, 0.221, 0.157, 0.157, 0.157, 0.157, 0.157, 0.000, 0.128, 0.128, 0.128, 0.266, 1.000, 0.467, 0.221, 0.221, 0.221, 0.157, 0.157, 0.157, 0.157, 0.157, 0.000, 0.128, 0.128, 0.128, 0.266, 0.467, 1.000, 0.221, 0.221, 0.221, 0.157, 0.157, 0.157, 0.157, 0.157, 0.000, 0.128, 0.128, 0.128, 0.221, 0.221, 0.221, 1.000, 0.605, 0.296, 0.157, 0.157, 0.157, 0.157, 0.157, 0.000, 0.128, 0.128, 0.128, 0.221, 0.221, 0.221, 0.605, 1.000, 0.296, 0.157, 0.157, 0.157, 0.157, 0.157, 0.000, 0.128, 0.128, 0.128, 0.221, 0.221, 0.221, 0.296, 0.296, 1.000, 0.157, 0.157, 0.157, 0.157, 0.157, 0.000, 0.128, 0.128, 0.128, 0.157, 0.157, 0.157, 0.157, 0.157, 0.157, 1.000, 0.773, 0.390, 0.390, 0.390, 0.000, 0.128, 0.128, 0.128, 0.157, 0.157, 0.157, 0.157, 0.157, 0.157, 0.773, 1.000, 0.390, 0.390, 0.390, 0.000, 0.128, 0.128, 0.128, 0.157, 0.157, 0.157, 0.157, 0.157, 0.157, 0.390, 0.390, 1.000, 0.606, 0.606, 0.000, 0.128, 0.128, 0.128, 0.157, 0.157, 0.157, 0.157, 0.157, 0.157, 0.390, 0.390, 0.606, 1.000, 0.697, 0.000, 0.128, 0.128, 0.128, 0.157, 0.157, 0.157, 0.157, 0.157, 0.157, 0.390, 0.390, 0.606, 0.697, 1.000), .Dim = c(15L, 15L), .Dimnames = list(c("S11", "S15", "S06", "S10", "S08", "S02", "S07", "S14", "S09", "S01", "S12", "S05", "S13", "S04", "S03"), c("S11", "S15", "S06", "S10", "S08", "S02", "S07", "S14", "S09", "S01", "S12", "S05", "S13", "S04", "S03"))) dat <- structure(list(study = 1:44, species = c("S01", "S01", "S02", "S02", "S02", "S02", "S03", "S03", "S03", "S03", "S04", "S04", "S04", "S04", "S05", "S05", "S05", "S06", "S06", "S06", "S06", "S07", "S07", "S08", "S08", "S08", "S09", "S09", "S10", "S10", "S10", "S11", "S11", "S11", "S11", "S12", "S12", "S13", "S13", "S13", "S14", "S14", "S15", "S15"), phylogeny = c("S01", "S01", "S02", "S02", "S02", "S02", "S03", "S03", "S03", "S03", "S04", "S04", "S04", "S04", "S05", "S05", "S05", "S06", "S06", "S06", "S06", "S07", "S07", "S08", "S08", "S08", "S09", "S09", "S10", "S10", "S10", "S11", "S11", "S11", "S11", "S12", "S12", "S13", "S13", "S13", "S14", "S14", "S15", "S15"), yi = c(1.91, 1.67, -0.92, -0.1, -0.58, -1.29, 0.04, -1.33, 0.02, -1, 0.2, 1.75, -0.75, 1.36, 1.24, 0.64, 0.52, 1.93, 1.11, 1.12, 1.17, 0.25, 1.95, -0.06, -0.79, 0.39, 1.61, 1.96, 0.93, 0.5, 0.73, -0.7, 0.11, 0.84, 1.83, -0.59, 0.19, 0.14, 0.74, 0.55, 0.34, -1.16, 1.93, 1.85), vi = c(0.213, 0.387, 0.381, 0.467, 0.132, 0.603, 0.374, 0.2, 0.119, 0.092, 0.139, 0.449, 0.412, 0.398, 0.25, 0.168, 0.303, 0.125, 0.164, 0.229, 0.482, 0.059, 0.421, 0.111, 0.373, 0.032, 0.062, 0.126, 0.066, 0.155, 0.229, 0.276, 0.039, 0.409, 0.312, 0.304, 0.601, 0.096, 0.216, 0.181, 0.537, 0.16, 0.303, 0.281)), .Names = c("study", "species", "phylogeny", "yi", "vi"), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44"), class = "data.frame") res <- rma.mv(yi, vi, random = list(~ 1 | study, ~ 1 | species, ~ 1 | phylogeny), R = list(phylogeny=P), data=dat, sparse=.sparse) expect_equivalent(coef(res), .5504, tolerance=.tol[["coef"]]) expect_equivalent(res$sigma2, c(0.1763, 0.5125, 0.1062), tolerance=.tol[["var"]]) expect_equivalent(c(logLik(res)), -54.6272, tolerance=.tol[["fit"]]) }) dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) test_that("rma.mv() correctly computes the Hessian", { res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, cvvc=TRUE, sparse=.sparse) expect_equivalent(c(sqrt(res$vvc)), 0.1678, tolerance=.tol[["se"]]) }) test_that("rma.mv() works correctly with test='t'", { res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, test="t", sparse=.sparse) expect_equivalent(res$pval, 0.0018, tolerance=.tol[["pval"]]) }) test_that("rma.mv() works correctly with different optimizers", { skip_on_cran() res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="BFGS"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="L-BFGS-B"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="Nelder-Mead"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3133, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="nlminb"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="uobyqa"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="newuoa"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="bobyqa"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="nloptr"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="nlm"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="hjk"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="nmk"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3131, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="ucminf"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="Rcgmin"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, control=list(optimizer="Rvmmin"), sparse=.sparse) expect_equivalent(res$sigma2, 0.3132, tolerance=.tol[["var"]]) }) test_that("rma.mv() correctly handles 'beta' argument", { dat <- dat.berkey1998 V <- vcalc(vi=1, cluster=author, rvars=c(v1i, v2i), data=dat) res.un <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML") res.01 <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", beta=c(0,0)) res.02 <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", beta=c(NA,0)) res.03 <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", beta=c(0,NA)) fstats <- fitstats(res.01, res.02, res.03, res.un) expect_equivalent(unlist(fstats[1,]), c(-2.464111, -0.691524, 1.010033, 5.840657), tolerance=.tol[["fit"]]) dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, scale = ~ 1, data=dat, optbeta=TRUE, beta=0) ll1 <- logLik(res) res <- rma(yi, vi, scale = ~ 1, data=dat, optbeta=TRUE, beta=0, link="identity") ll2 <- logLik(res) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, beta=0) ll3 <- logLik(res) expect_equivalent(ll1, ll2, tolerance=.tol[["fit"]]) expect_equivalent(ll1, ll3, tolerance=.tol[["fit"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_gosh.r0000644000176200001440000000637014762055366020340 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:gosh_plot source("settings.r") context("Checking plots example: GOSH plot") test_that("plot can be drawn.", { skip_on_cran() ### meta-analysis of all trials including ISIS-4 using an equal-effects model res <- rma(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.egger2001, method="EE") ### fit EE model to all possible subsets sav <- gosh(res, progbar=FALSE) out <- capture.output(print(sav)) # so that print.gosh.rma() is run (at least once) ### create GOSH plot ### red points for subsets that include and blue points ### for subsets that exclude study 16 (the ISIS-4 trial) png("images/test_plots_gosh_1_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(sav, out=16, breaks=100) dev.off() expect_true(.vistest("images/test_plots_gosh_1_light_test.png", "images/test_plots_gosh_1_light.png")) png("images/test_plots_gosh_1_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(sav, out=16, breaks=100) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_gosh_1_dark_test.png", "images/test_plots_gosh_1_dark.png")) ### fit EE model to random subsets (with parallel processing) sav <- gosh(res, progbar=FALSE, parallel="snow", subsets=1000) ### meta-analysis using MH method (using subset to speed things up) res <- rma.mh(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.egger2001, subset=c(1:7,16)) sav <- gosh(res, progbar=FALSE) ### create GOSH plot png("images/test_plots_gosh_2_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(sav, out=8, breaks=40) dev.off() expect_true(.vistest("images/test_plots_gosh_2_light_test.png", "images/test_plots_gosh_2_light.png")) png("images/test_plots_gosh_2_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(sav, out=8, breaks=40) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_gosh_2_dark_test.png", "images/test_plots_gosh_2_dark.png")) ### fit EE model to all possible subsets (with parallel processing) sav <- gosh(res, progbar=FALSE, parallel="snow", subsets=1000) ### meta-analysis using Peto's method (using subset to speed things up) res <- rma.peto(ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.egger2001, subset=c(1:7,16)) sav <- gosh(res, progbar=FALSE) ### create GOSH plot png("images/test_plots_gosh_3_light_test.png", res=200, width=1800, height=1800, type="cairo") plot(sav, out=8, breaks=40) dev.off() expect_true(.vistest("images/test_plots_gosh_3_light_test.png", "images/test_plots_gosh_3_light.png")) png("images/test_plots_gosh_3_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") plot(sav, out=8, breaks=40) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_gosh_3_dark_test.png", "images/test_plots_gosh_3_dark.png")) ### fit EE model to all possible subsets (with parallel processing) sav <- gosh(res, progbar=FALSE, parallel="snow", subsets=1000) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_raudenbush1985.r0000644000176200001440000001702414712730451024250 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:raudenbush1985 context("Checking analysis example: raudenbush1985") source("settings.r") ### load data dat <- dat.raudenbush1985 test_that("results are correct for the random-effects model.", { ### random-effects model res <- rma(yi, vi, data=dat, digits=3) ### compare with results on pages 83, 85, and 86 (in text) expect_equivalent(res$tau2, 0.0188, tolerance=.tol[["var"]]) expect_equivalent(coef(res), 0.0837, tolerance=.tol[["coef"]]) expect_equivalent(res$QE, 35.8295, tolerance=.tol[["test"]]) ### 35.85 in paper expect_equivalent(res$zval, 1.6208, tolerance=.tol[["test"]]) ### empirical Bayes estimates tmp <- blup(res) out <- capture.output(print(tmp)) ### so that print.list.rma() is run (at least once) ### compare with results in Figure 2 expect_equivalent(tmp$pred, c(0.0543, 0.1006, -0.0064, 0.2144, 0.1051, -0.0082, 0.0174, -0.0293, 0.1604, 0.2485, 0.1618, 0.1102, 0.0646, 0.1105, -0.0288, 0.0258, 0.1905, 0.0744, 0.0248), tolerance=.tol[["pred"]]) expect_equivalent(tmp$pi.lb, c(-0.1324, -0.1033, -0.2228, -0.0533, -0.1622, -0.1737, -0.1481, -0.2689, -0.0543, 0, -0.097, -0.1303, -0.192, -0.1463, -0.2405, -0.1906, -0.0076, -0.0808, -0.1954), tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, c(0.2411, 0.3045, 0.21, 0.4821, 0.3724, 0.1572, 0.1828, 0.2102, 0.3751, 0.497, 0.4206, 0.3507, 0.3212, 0.3672, 0.1829, 0.2422, 0.3886, 0.2295, 0.245), tolerance=.tol[["ci"]]) ### empirical Bayes estimates (just the random effects) tmp <- ranef(res) expect_equivalent(tmp$pred, c(-0.0294, 0.0169, -0.0901, 0.1307, 0.0214, -0.0919, -0.0664, -0.1131, 0.0767, 0.1648, 0.0781, 0.0265, -0.0191, 0.0268, -0.1125, -0.0579, 0.1068, -0.0093, -0.0589), tolerance=.tol[["pred"]]) expect_equivalent(tmp$pi.lb, c(-0.2187, -0.1852, -0.3019, -0.122, -0.231, -0.2659, -0.2403, -0.343, -0.1337, -0.0723, -0.1674, -0.2043, -0.2627, -0.217, -0.3207, -0.2697, -0.091, -0.1761, -0.2736), tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, c(0.1599, 0.219, 0.1216, 0.3834, 0.2738, 0.082, 0.1076, 0.1169, 0.2871, 0.4019, 0.3235, 0.2572, 0.2246, 0.2706, 0.0956, 0.1539, 0.3046, 0.1574, 0.1558), tolerance=.tol[["ci"]]) skip_on_cran() ### profile tau^2 png("images/test_analysis_example_raudenbush1985_profile_1_test.png", res=200, width=1800, height=1600, type="cairo") profile(res, xlim=c(0,.20), progbar=FALSE) dev.off() expect_true(.vistest("images/test_analysis_example_raudenbush1985_profile_1_test.png", "images/test_analysis_example_raudenbush1985_profile_1.png")) ### profile tau^2 (without 'xlim' specified) png("images/test_analysis_example_raudenbush1985_profile_2_test.png", res=200, width=1800, height=1600, type="cairo") profile(res, progbar=FALSE) dev.off() expect_true(.vistest("images/test_analysis_example_raudenbush1985_profile_2_test.png", "images/test_analysis_example_raudenbush1985_profile_2.png")) ### profile tau^2 (with parallel processing) png("images/test_analysis_example_raudenbush1985_profile_3_test.png", res=200, width=1800, height=1600, type="cairo") profile(res, xlim=c(0,.20), progbar=FALSE, parallel="snow") dev.off() expect_true(.vistest("images/test_analysis_example_raudenbush1985_profile_3_test.png", "images/test_analysis_example_raudenbush1985_profile_3.png")) }) test_that("results are correct for the mixed-effects model.", { ### recode weeks variable dat$weeks.c <- ifelse(dat$weeks > 3, 3, dat$weeks) ### mixed-effects model res <- rma(yi, vi, mods = ~ weeks.c, data=dat, digits=3) ### compare with results on pages 90 and 92 (in text) expect_equivalent(res$tau2, 0.0000, tolerance=.tol[["var"]]) expect_equivalent(coef(res), c(0.4072, -0.1572), tolerance=.tol[["coef"]]) expect_equivalent(res$QE, 16.5708, tolerance=.tol[["test"]]) ### 16.58 in paper expect_equivalent(res$zval, c(4.6782, -4.3884), tolerance=.tol[["test"]]) ### empirical Bayes estimates tmp <- blup(res) ### (results for this not given in chapter) expect_equivalent(tmp$pred, c(0.0927, -0.0645, -0.0646, 0.4072, 0.4072, -0.0645, -0.0645, -0.0646, 0.4072, 0.2499, 0.4072, 0.4072, 0.2499, 0.0927, -0.0646, -0.0645, 0.2499, 0.0927, -0.0645), tolerance=.tol[["pred"]]) expect_equivalent(tmp$pi.lb, c(0.0198, -0.1552, -0.1552, 0.2366, 0.2366, -0.1552, -0.1552, -0.1552, 0.2366, 0.1391, 0.2366, 0.2366, 0.1391, 0.0198, -0.1552, -0.1552, 0.1391, 0.0198, -0.1552), tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, c(0.1656, 0.0261, 0.0261, 0.5778, 0.5778, 0.0261, 0.0261, 0.0261, 0.5778, 0.3608, 0.5778, 0.5778, 0.3608, 0.1656, 0.0261, 0.0261, 0.3608, 0.1656, 0.0261), tolerance=.tol[["ci"]]) ### empirical Bayes estimates (just the random effects) tmp <- ranef(res) expect_equivalent(tmp$pred, c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), tolerance=.tol[["pred"]]) expect_equivalent(tmp$pi.lb, c(-0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016, -0.0016), tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, c(0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016, 0.0016), tolerance=.tol[["ci"]]) ### predicted/fitted values tmp <- predict(res) ### (results for this not given in chapter) expect_equivalent(tmp$pred, c(0.0927, -0.0645, -0.0645, 0.4072, 0.4072, -0.0645, -0.0645, -0.0645, 0.4072, 0.2499, 0.4072, 0.4072, 0.2499, 0.0927, -0.0645, -0.0645, 0.2499, 0.0927, -0.0645), tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, c(0.0198, -0.1552, -0.1552, 0.2366, 0.2366, -0.1552, -0.1552, -0.1552, 0.2366, 0.1391, 0.2366, 0.2366, 0.1391, 0.0198, -0.1552, -0.1552, 0.1391, 0.0198, -0.1552), tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, c(0.1656, 0.0261, 0.0261, 0.5778, 0.5778, 0.0261, 0.0261, 0.0261, 0.5778, 0.3607, 0.5778, 0.5778, 0.3607, 0.1656, 0.0261, 0.0261, 0.3607, 0.1656, 0.0261), tolerance=.tol[["ci"]]) skip_on_cran() ### profile tau^2 png("images/test_analysis_example_raudenbush1985_profile_4_test.png", res=200, width=1800, height=1600, type="cairo") profile(res, xlim=c(0,.06), progbar=FALSE) dev.off() expect_true(.vistest("images/test_analysis_example_raudenbush1985_profile_4_test.png", "images/test_analysis_example_raudenbush1985_profile_4.png")) ### regplot png(filename="images/test_analysis_example_raudenbush1985_scatterplot_light_test.png", res=200, width=1800, height=1600, type="cairo") par(mar=c(5,5,1,2)) regplot(res, xlab="Weeks of Prior Contact", bty="l", las=1, digits=1, refline=0, xaxt="n") axis(side=1, at=c(0,1,2,3), labels=c("0", "1", "2", ">2")) dev.off() expect_true(.vistest("images/test_analysis_example_raudenbush1985_scatterplot_light_test.png", "images/test_analysis_example_raudenbush1985_scatterplot_light.png")) png(filename="images/test_analysis_example_raudenbush1985_scatterplot_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") par(mar=c(5,5,1,2)) regplot(res, xlab="Weeks of Prior Contact", bty="l", las=1, digits=1, refline=0, xaxt="n") axis(side=1, at=c(0,1,2,3), labels=c("0", "1", "2", ">2")) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_raudenbush1985_scatterplot_dark_test.png", "images/test_analysis_example_raudenbush1985_scatterplot_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_plots_labbe_plot.r0000644000176200001440000000534014762055371021473 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:labbe_plot source("settings.r") context("Checking plots example: L'Abbe plot") test_that("plot can be drawn.", { skip_on_cran() dat <- dat.damico2009 res <- rma(measure="OR", ai=xt, n1i=nt, ci=xc, n2i=nc, data=dat) png("images/test_plots_labbe_plot_1_light_test.png", res=200, width=1800, height=1600, type="cairo") par(mar=c(5,4,1,2)) labbe(res) dev.off() expect_true(.vistest("images/test_plots_labbe_plot_1_light_test.png", "images/test_plots_labbe_plot_1_light.png")) png("images/test_plots_labbe_plot_1_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,1,2)) labbe(res) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_labbe_plot_1_dark_test.png", "images/test_plots_labbe_plot_1_dark.png")) png("images/test_plots_labbe_plot_2_light_test.png", res=200, width=1800, height=1600, type="cairo") par(mar=c(5,4,1,2)) labbe(res, ci=TRUE, pi=TRUE, grid=TRUE, legend=TRUE, bty="l", transf=exp, xlab="Odds (Control Group)", ylab="Odds (Treatment Group)") dev.off() expect_true(.vistest("images/test_plots_labbe_plot_2_light_test.png", "images/test_plots_labbe_plot_2_light.png")) png("images/test_plots_labbe_plot_2_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,1,2)) labbe(res, ci=TRUE, pi=TRUE, grid=TRUE, legend=TRUE, bty="l", transf=exp, xlab="Odds (Control Group)", ylab="Odds (Treatment Group)") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_labbe_plot_2_dark_test.png", "images/test_plots_labbe_plot_2_dark.png")) png("images/test_plots_labbe_plot_3_light_test.png", res=200, width=1800, height=1600, type="cairo") par(mar=c(5,4,1,2)) labbe(res, ci=TRUE, pi=TRUE, grid=TRUE, legend=TRUE, bty="l", transf=plogis, lim=c(0,1), xlab="Risk (Control Group)", ylab="Risk (Treatment Group)") dev.off() expect_true(.vistest("images/test_plots_labbe_plot_3_light_test.png", "images/test_plots_labbe_plot_3_light.png")) png("images/test_plots_labbe_plot_3_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,1,2)) labbe(res, ci=TRUE, pi=TRUE, grid=TRUE, legend=TRUE, bty="l", transf=plogis, lim=c(0,1), xlab="Risk (Control Group)", ylab="Risk (Treatment Group)") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_labbe_plot_3_dark_test.png", "images/test_plots_labbe_plot_3_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_tips_rma_vs_lm_and_lme.r0000644000176200001440000000527214712730560022643 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/tips:rma_vs_lm_and_lme context("Checking tip: rma() results match up with those from lm() and lme()") source("settings.r") test_that("results for rma() and lm() match for method='FE'.", { dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat.molloy2014) res.ee <- rma(yi, vi, data=dat, method="EE") res.lm <- lm(yi ~ 1, weights = 1/vi, data=dat) ### coefficients should be the same expect_equivalent(coef(res.ee), coef(res.lm), tolerance=.tol[["coef"]]) ### standard errors should be the same after adjusting the 'lm' one for sigma expect_equivalent(se(res.ee), se(res.lm) / sigma(res.lm), tolerance=.tol[["se"]]) ### fit the same model as is fitted by lm() with rma() function res.ee <- rma(yi, vi*sigma(res.lm)^2, data=dat, method="EE") ### coefficients should still be the same expect_equivalent(coef(res.ee), coef(res.lm), tolerance=.tol[["coef"]]) ### standard errors should be the same expect_equivalent(se(res.ee), se(res.lm), tolerance=.tol[["se"]]) }) test_that("results for rma() and lme() match for method='ML'.", { library("nlme") dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat.molloy2014) dat$study <- 1:nrow(dat) res.lme <- lme(yi ~ 1, random = ~ 1 | study, weights = varFixed(~ vi), data=dat, method="ML") res.re <- rma(yi, vi*sigma(res.lme)^2, data=dat, method="ML") ### coefficients should be the same expect_equivalent(coef(res.re), fixef(res.lme), tolerance=.tol[["coef"]]) ### standard errors should be the same after adjusting the 'rma' one by the factor sqrt(k/(k-p)) expect_equivalent(se(res.re) * sqrt(res.re$k / (res.re$k - res.re$p)), summary(res.lme)$tTable[1,2], tolerance=.tol[["se"]]) ### check that BLUPs are the same expect_equivalent(blup(res.re)$pred, coef(res.lme)$"(Intercept)", tolerance=.tol[["pred"]]) }) test_that("results for rma() and lme() match for method='REML'.", { library("nlme") dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat.molloy2014) dat$study <- 1:nrow(dat) res.lme <- lme(yi ~ 1, random = ~ 1 | study, weights = varFixed(~ vi), data=dat, method="REML") res.re <- rma(yi, vi*sigma(res.lme)^2, data=dat, method="REML") ### coefficients should be the same expect_equivalent(coef(res.re), fixef(res.lme), tolerance=.tol[["coef"]]) ### standard errors should be the same expect_equivalent(se(res.re), summary(res.lme)$tTable[1,2], tolerance=.tol[["se"]]) ### check that BLUPs are the same expect_equivalent(blup(res.re)$pred, coef(res.lme)$"(Intercept)", tolerance=.tol[["pred"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_viechtbauer2007b.r0000644000176200001440000001447614712730516024547 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:viechtbauer2007b context("Checking analysis example: viechtbauer2007b") source("settings.r") ### create dataset for example dat <- escalc(measure="RR", ai=ai, ci=ci, n1i=n1i, n2i=n2i, data=dat.linde2005) dat <- dat[c(7:10,13:25), c(13:16,18:19,11,6,7,9)] dat$dosage <- (dat$dosage * 7) / 1000 test_that("results are correct for the CIs.", { sav <- summary(dat, transf=exp)[c(13,17),] ### compare with results on page 106 tmp <- sav$ci.lb expect_equivalent(tmp, c(.7397, 1.0039), tolerance=.tol[["ci"]]) ### 1.01 in article tmp <- sav$ci.ub expect_equivalent(tmp, c(1.2793, 1.5434), tolerance=.tol[["ci"]]) }) test_that("results are correct for the equal-effects model.", { res <- rma(yi, vi, data=dat, method="EE") sav <- predict(res, transf=exp) tmp <- c(sav$pred, sav$ci.lb, sav$ci.ub) ### compare with results on page 107 expect_equivalent(tmp, c(1.3840, 1.2599, 1.5204), tolerance=.tol[["pred"]]) ### 1.39 in article expect_equivalent(res$QE, 51.5454, tolerance=.tol[["test"]]) ### 55.54 in article }) test_that("results are correct for the random-effects model.", { res <- rma(yi, vi, data=dat, method="DL") sav <- predict(res, transf=exp) ### compare with results on page 109 tmp <- c(sav$pred, sav$ci.lb, sav$ci.ub) expect_equivalent(tmp, c(1.5722, 1.3103, 1.8864), tolerance=.tol[["pred"]]) ### 1.90 in article tmp <- c(sav$pi.lb, sav$pi.ub) expect_equivalent(tmp, c(.8488, 2.9120), tolerance=.tol[["ci"]]) ### .87, 2.83 in article (but this was calculated without taking Var[hat(mu)] into consideration) expect_equivalent(res$tau2, .0903, tolerance=.tol[["var"]]) ### .091 in article }) test_that("results are correct for the mixed-effects model.", { dat$dosage <- dat$dosage * dat$duration res <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="DL") ### compare with results on page 112 expect_equivalent(res$tau2, .0475, tolerance=.tol[["var"]]) expect_equivalent(res$R2, 47.3778, tolerance=.tol[["r2"]]) ### 48% in article sav <- structure(list(estimate = c(0.47625885, -0.0058448, -0.06722782, -0.00156996), se = c(0.08764097, 0.00999872, 0.03522283, 0.00344659), zval = c(5.43420301, -0.58455444, -1.9086436, -0.45551255), pval = c(6e-08, 0.55884735, 0.05630808, 0.64874054)), row.names = c("intrcpt", "I(dosage - 34)", "I(baseline - 20)", "I(dosage - 34):I(baseline - 20)"), class = "data.frame") ### compare with results in Table II on page 113 expect_equivalent(coef(summary(res))[,1:4], sav, tolerance=.tol[["misc"]]) ### compare with results on page 113 sav <- predict(res, newmods=c(34-34, 12.5-20, (34-34)*(12.5-20)), transf=exp) tmp <- c(sav$pred, sav$ci.lb, sav$ci.ub) expect_equivalent(tmp, c(2.6657, 1.4560, 4.8806), tolerance=.tol[["pred"]]) ### 2.66, 1.46, 4.90 in article sav <- predict(res, newmods=c(34-34, 23.6-20, (34-34)*(23.6-20)), transf=exp) tmp <- c(sav$pred, sav$ci.lb, sav$ci.ub) expect_equivalent(tmp, c(1.2639, 0.9923, 1.6099), tolerance=.tol[["pred"]]) ### 1.61 in article skip_on_cran() png(filename="images/test_analysis_example_viechtbauer2007b_light_test.png", res=200, width=1800, height=1600, type="cairo") par(mar=c(4,4,1,1)) xvals <- seq(12, 24, by=0.1) - 20 modvals <- cbind(0, cbind(xvals, 0)) preds <- predict(res, modvals) regplot(res, mod=3, pred=preds, xvals=xvals, shade=FALSE, bty="l", las=1, digits=1, transf=exp, xlim=c(12,24)-20, ylim=c(0.5,4), xaxt="n", xlab="Baseline HRSD Score", ylab="Relative Rate") axis(side=1, at=seq(12, 24, by=2) - 20, labels=seq(12, 24, by=2)) dev.off() expect_true(.vistest("images/test_analysis_example_viechtbauer2007b_light_test.png", "images/test_analysis_example_viechtbauer2007b_light.png")) png(filename="images/test_analysis_example_viechtbauer2007b_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") par(mar=c(4,4,1,1)) xvals <- seq(12, 24, by=0.1) - 20 modvals <- cbind(0, cbind(xvals, 0)) preds <- predict(res, modvals) regplot(res, mod=3, pred=preds, xvals=xvals, shade=FALSE, bty="l", las=1, digits=1, transf=exp, xlim=c(12,24)-20, ylim=c(0.5,4), xaxt="n", xlab="Baseline HRSD Score", ylab="Relative Rate") axis(side=1, at=seq(12, 24, by=2) - 20, labels=seq(12, 24, by=2)) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_viechtbauer2007b_dark_test.png", "images/test_analysis_example_viechtbauer2007b_dark.png")) ### check results for all tau^2 estimators res.HS <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="HS") res.HE <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="HE") res.DL <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="DL") res.GENQ <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="GENQ", weights = n1i + n2i) res.SJ <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="SJ") res.DLIT <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="DLIT", control=list(maxiter=500)) res.SJIT <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="SJIT") res.PM <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="PM") res.ML <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="ML") res.REML <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="REML") res.EB <- rma(yi, vi, mods = ~ I(dosage-34) * I(baseline-20), data=dat, method="EB") res <- list(res.HS, res.HE, res.DL, res.GENQ, res.SJ, res.DLIT, res.SJIT, res.PM, res.ML, res.REML, res.EB) res <- data.frame(method=sapply(res, function(x) x$method), tau2=sapply(res, function(x) x$tau2), se.tau2=sapply(res, function(x) x$se.tau2)) expect_equivalent(res$tau2, c(0.0253, 0.0388, 0.0475, 0.06, 0.0912, 0.0633, 0.0633, 0.0633, 0.024, 0.0558, 0.0633), tolerance=.tol[["var"]]) expect_equivalent(res$se.tau2, c(0.0197, 0.0764, 0.0376, 0.0528, 0.0436, 0.046, 0.046, 0.046, 0.0222, 0.0409, 0.046), tolerance=.tol[["sevar"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_ishak2007.r0000644000176200001440000001250014712730425023164 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking analysis example: ishak2007") source("settings.r") ### load dataset dat <- dat.ishak2007 ### create long format dataset dat.long <- reshape(dat, direction="long", idvar="study", v.names=c("yi","vi"), varying=list(c(2,4,6,8), c(3,5,7,9))) dat.long <- dat.long[order(dat.long$study, dat.long$time),] rownames(dat.long) <- 1:nrow(dat.long) ### remove missing measurement occasions from dat.long is.miss <- is.na(dat.long$yi) dat.long <- dat.long[!is.miss,] ### construct the full (block diagonal) V matrix with an AR(1) structure rho.within <- .97 ### value as estimated by Ishak et al. (2007) V <- lapply(split(with(dat, cbind(v1i, v2i, v3i, v4i)), dat$study), diag) V <- lapply(V, function(v) sqrt(v) %*% toeplitz(ARMAacf(ar=rho.within, lag.max=3)) %*% sqrt(v)) V <- bldiag(V) V <- V[!is.miss,!is.miss] ### remove missing measurement occasions from V test_that("results are correct for diag(V) and struct='DIAG'.", { res <- rma.mv(yi, diag(V), mods = ~ 0 + factor(time), random = ~ factor(time) | study, struct = "DIAG", data = dat.long, sparse=.sparse) ### Table 1, column "Time-specific (Independence)" expect_equivalent(coef(res), c(-24.8686, -27.4728, -28.5239, -24.1415), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, c(23.0537, 27.8113, 27.6767, 29.9405), tolerance=.tol[["var"]]) }) test_that("results are correct for diag(V) and random study effects.", { res <- rma.mv(yi, diag(V), mods = ~ 0 + factor(time), random = ~ 1 | study, data = dat.long, sparse=.sparse) ### Table 1, column "Random study effects" expect_equivalent(coef(res), c(-26.2127, -27.1916, -28.5464, -25.6339), tolerance=.tol[["coef"]]) expect_equivalent(res$sigma2, 26.6829, tolerance=.tol[["var"]]) }) test_that("results are correct for diag(V) and struct='ID'.", { res <- rma.mv(yi, diag(V), mods = ~ 0 + factor(time), random = ~ factor(time) | study, struct = "ID", data = dat.long, sparse=.sparse) ### not in paper expect_equivalent(coef(res), c(-24.8792, -27.4670, -28.5185, -24.1502), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 26.6847, tolerance=.tol[["var"]]) }) test_that("results are correct for diag(V) and struct='HAR'.", { res <- rma.mv(yi, diag(V), mods = ~ 0 + factor(time), random = ~ time | study, struct = "HAR", data = dat.long, sparse=.sparse) ### Table 1, column "Correlated random time effects" expect_equivalent(coef(res), c(-25.9578, -27.3100, -28.5543, -25.7923), tolerance=.tol[["coef"]]) # -27.5 in Table vs -27.3 expect_equivalent(res$tau2, c(20.3185, 35.9720, 26.4233, 30.1298), tolerance=.tol[["var"]]) # 20.4 in Table vs 20.3 expect_equivalent(res$rho, 1.0000, tolerance=.tol[["cor"]]) }) test_that("results are correct for struct='HAR'.", { res <- rma.mv(yi, V, mods = ~ 0 + factor(time), random = ~ time | study, struct = "HAR", data = dat.long, sparse=.sparse) ### Table 1, column "Multivariate model" expect_equivalent(coef(res), c(-25.9047, -27.4608, -28.6559, -26.4934), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, c(22.7258, 33.7295, 26.1426, 31.1803), tolerance=.tol[["var"]]) # 22.6 in Table vs 22.7; 31.1 in Table vs 31.2 expect_equivalent(res$rho, 0.8832, tolerance=.tol[["cor"]]) }) test_that("results are correct for struct='AR'.", { res <- rma.mv(yi, V, mods = ~ 0 + factor(time), random = ~ time | study, struct = "AR", data = dat.long, sparse=.sparse) ### not in paper expect_equivalent(coef(res), c(-25.9418, -27.3937, -28.7054, -26.3970), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 26.6874, tolerance=.tol[["var"]]) expect_equivalent(res$rho, 0.8656, tolerance=.tol[["cor"]]) }) test_that("results are correct for struct='HCS'.", { res <- rma.mv(yi, V, mods = ~ 0 + factor(time), random = ~ factor(time) | study, struct = "HCS", data = dat.long, sparse=.sparse) ### not in paper expect_equivalent(coef(res), c(-25.8814, -27.3293, -28.6510, -26.6631), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, c(20.8629, 32.7429, 27.6593, 32.1908), tolerance=.tol[["var"]]) }) test_that("results are correct for struct='CAR'.", { res <- rma.mv(yi, V, mods = ~ 0 + factor(time), random = ~ time | study, struct = "CAR", data = dat.long, sparse=.sparse) ### not in paper expect_equivalent(coef(res), c(-25.9418, -27.3937, -28.7054, -26.3970), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 26.6875, tolerance=.tol[["var"]]) expect_equivalent(res$rho, 0.8656, tolerance=.tol[["cor"]]) }) test_that("results are correct for struct='CAR' with unequally spaced time points.", { dat.long$time[dat.long$time == 4] <- 24/3 dat.long$time[dat.long$time == 3] <- 12/3 dat.long$time[dat.long$time == 2] <- 6/3 dat.long$time[dat.long$time == 1] <- 3/3 res <- rma.mv(yi, V, mods = ~ 0 + factor(time), random = ~ time | study, struct = "CAR", data = dat.long, sparse=.sparse) ### not in paper expect_equivalent(coef(res), c(-26.0293, -27.3838, -28.7339, -26.0515), tolerance=.tol[["coef"]]) expect_equivalent(res$tau2, 26.9825, tolerance=.tol[["var"]]) expect_equivalent(res$rho, 0.9171, tolerance=.tol[["cor"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_tes.r0000644000176200001440000000246714712730604017756 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: tes() function") source("settings.r") test_that("tes() works correctly for 'dat.dorn2007'.", { dat <- escalc(measure="RR", ai=x.a, n1i=n.a, ci=x.p, n2i=n.p, data=dat.dorn2007) sav <- tes(dat$yi, dat$vi, test="chi2") out <- capture.output(print(sav)) expect_identical(sav$O, 10L) expect_equivalent(sav$E, 4.923333, tolerance=.tol[["misc"]]) expect_equivalent(sav$X2, 7.065648, tolerance=.tol[["test"]]) expect_equivalent(sav$pval, 0.003928794, tolerance=.tol[["pval"]]) sav <- tes(yi, vi, data=dat, test="chi2") expect_equivalent(sav$pval, 0.003928794, tolerance=.tol[["pval"]]) sav <- tes(yi, vi, data=dat, test="binom") expect_equivalent(sav$pval, 0.01159554, tolerance=.tol[["pval"]]) skip_on_cran() sav <- tes(yi, vi, data=dat, test="exact", progbar=FALSE) expect_equivalent(sav$pval, 0.007778529, tolerance=.tol[["pval"]]) res <- rma(yi, vi, data=dat, method="EE") sav <- tes(res, test="chi2") expect_identical(sav$O, 10L) expect_equivalent(sav$E, 4.923333, tolerance=.tol[["misc"]]) expect_equivalent(sav$X2, 7.065648, tolerance=.tol[["test"]]) expect_equivalent(sav$pval, 0.003928794, tolerance=.tol[["pval"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_funnel.r0000644000176200001440000000702514762055256020455 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: funnel() functions") source("settings.r") test_that("funnel() works correctly.", { skip_on_cran() ### simulate a large meta-analytic dataset (correlations with rho = 0.0) ### with no heterogeneity or publication bias; then try out different ### versions of the funnel plot gencor <- function(rhoi, ni) { x1 <- rnorm(ni, mean=0, sd=1) x2 <- rnorm(ni, mean=0, sd=1) x3 <- rhoi*x1 + sqrt(1-rhoi^2)*x2 cor(x1, x3) } set.seed(78123) k <- 200 ### number of studies to simulate ni <- round(rchisq(k, df=2) * 20 + 20) ### simulate sample sizes (skewed distribution) ri <- mapply(gencor, rep(0.0,k), ni) ### simulate correlations dat <- escalc(measure="ZCOR", ri=ri, ni=ni) ### compute r-to-z transformed correlations res <- rma(yi, vi, data=dat, method="EE") png(filename="images/test_misc_funnel_1_light_test.png", res=200, width=1800, height=2000, type="cairo") par(mfrow=c(5,2), mar=c(5,4,1,1), cex=0.5) funnel(res, yaxis="sei") funnel(res, yaxis="vi") funnel(res, yaxis="seinv") funnel(res, yaxis="vinv") funnel(res, yaxis="ni") funnel(res, yaxis="ninv") funnel(res, yaxis="sqrtni") funnel(res, yaxis="sqrtninv") funnel(res, yaxis="lni") funnel(res, yaxis="wi") dev.off() expect_true(.vistest("images/test_misc_funnel_1_light_test.png", "images/test_misc_funnel_1_light.png")) png(filename="images/test_misc_funnel_1_dark_test.png", res=200, width=1800, height=2000, type="cairo") setmfopt(theme="dark") par(mfrow=c(5,2), mar=c(5,4,1,1), cex=0.5) funnel(res, yaxis="sei") funnel(res, yaxis="vi") funnel(res, yaxis="seinv") funnel(res, yaxis="vinv") funnel(res, yaxis="ni") funnel(res, yaxis="ninv") funnel(res, yaxis="sqrtni") funnel(res, yaxis="sqrtninv") funnel(res, yaxis="lni") funnel(res, yaxis="wi") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_funnel_1_dark_test.png", "images/test_misc_funnel_1_dark.png")) png(filename="images/test_misc_funnel_2_light_test.png", res=200, width=1800, height=2000, type="cairo") par(mfrow=c(5,2), mar=c(5,4,1,1), cex=0.5) funnel(dat$yi, dat$vi, yaxis="sei") funnel(dat$yi, dat$vi, yaxis="vi") funnel(dat$yi, dat$vi, yaxis="seinv") funnel(dat$yi, dat$vi, yaxis="vinv") funnel(dat$yi, dat$vi, yaxis="ni") funnel(dat$yi, dat$vi, yaxis="ninv") funnel(dat$yi, dat$vi, yaxis="sqrtni") funnel(dat$yi, dat$vi, yaxis="sqrtninv") funnel(dat$yi, dat$vi, yaxis="lni") funnel(dat$yi, dat$vi, yaxis="wi") dev.off() expect_true(.vistest("images/test_misc_funnel_2_light_test.png", "images/test_misc_funnel_2_light.png")) png(filename="images/test_misc_funnel_2_dark_test.png", res=200, width=1800, height=2000, type="cairo") setmfopt(theme="dark") par(mfrow=c(5,2), mar=c(5,4,1,1), cex=0.5) funnel(dat$yi, dat$vi, yaxis="sei") funnel(dat$yi, dat$vi, yaxis="vi") funnel(dat$yi, dat$vi, yaxis="seinv") funnel(dat$yi, dat$vi, yaxis="vinv") funnel(dat$yi, dat$vi, yaxis="ni") funnel(dat$yi, dat$vi, yaxis="ninv") funnel(dat$yi, dat$vi, yaxis="sqrtni") funnel(dat$yi, dat$vi, yaxis="sqrtninv") funnel(dat$yi, dat$vi, yaxis="lni") funnel(dat$yi, dat$vi, yaxis="wi") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_misc_funnel_2_dark_test.png", "images/test_misc_funnel_2_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_normand1999.r0000644000176200001440000001106414712730447023556 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:normand1999 context("Checking analysis example: normand1999") source("settings.r") test_that("results are correct for the first example (using dat.hine1989).", { ### calculate risk differences and corresponding sampling variances dat <- escalc(measure="RD", n1i=n1i, n2i=n2i, ai=ai, ci=ci, data=dat.hine1989) ### transform into percentage points dat$yi <- dat$yi * 100 dat$vi <- dat$vi * 100^2 out <- capture.output(print(dat)) ### so that print.escalc() is run (at least once) ### compare with results on page 330 (Table III) expect_equivalent(dat$yi, c(2.8026, 0.0000, 1.9711, 1.7961, 3.5334, 4.4031), tolerance=.tol[["est"]]) expect_equivalent(dat$vi, c(17.7575, 37.5657, 8.1323, 10.8998, 8.0114, 6.1320), tolerance=.tol[["var"]]) ### CIs for individual studies tmp <- summary(dat) ### compare with results on page 330 (Table III) expect_equivalent(tmp$ci.lb, c(-5.4566, -12.0128, -3.6182, -4.6747, -2.0141, -0.4503), tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, c(11.0618, 12.0128, 7.5604, 8.2669, 9.0810, 9.2566), tolerance=.tol[["ci"]]) ### fit equal-effects model res <- rma(yi, vi, data=dat, method="EE", digits=2) ### compare with results on page 349 (Table VII) expect_equivalent(coef(res), 2.9444, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.3831, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 5.5058, tolerance=.tol[["ci"]]) ### fit random-effects model (REML estimator) res <- rma(yi, vi, data=dat, digits=2) ### compare with results on page 349 (Table VII) expect_equivalent(coef(res), 2.9444, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.3831, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 5.5058, tolerance=.tol[["ci"]]) expect_equivalent(res$tau2, 0.0000, tolerance=.tol[["var"]]) ### fit random-effects model (DL estimator) res <- rma(yi, vi, data=dat, method="DL", digits=2) ### compare with results on page 349 (Table VII) expect_equivalent(coef(res), 2.9444, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, 0.3831, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 5.5058, tolerance=.tol[["ci"]]) expect_equivalent(res$tau2, 0.0000, tolerance=.tol[["var"]]) }) test_that("results are correct for the second example (using dat.normand1999).", { ### compute pooled SD dat.normand1999$sdpi <- with(dat.normand1999, sqrt(((n1i-1)*sd1i^2 + (n2i-1)*sd2i^2)/(n1i+n2i-2))) ### calculate mean differences and corresponding sampling variances dat <- escalc(m1i=m1i, sd1i=sdpi, n1i=n1i, m2i=m2i, sd2i=sdpi, n2i=n2i, measure="MD", data=dat.normand1999, digits=2) ### compare with results on page 351 (Table VIII) expect_equivalent(dat$yi, c(-20, -2, -55, -71, -4, 1, 11, -10, 7)) expect_equivalent(dat$vi, c(40.5863, 2.0468, 15.2809, 150.2222, 20.1923, 1.2235, 95.3756, 8.0321, 20.6936), tolerance=.tol[["var"]]) ### CIs for individual studies tmp <- summary(dat) ### (results for this not given in paper) expect_equivalent(tmp$ci.lb, c(-32.4864, -4.8041, -62.6616, -95.0223, -12.8073, -1.168, -8.1411, -15.5547, -1.9159), tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, c(-7.5136, 0.8041, -47.3384, -46.9777, 4.8073, 3.168, 30.1411, -4.4453, 15.9159), tolerance=.tol[["ci"]]) ### fit equal-effects model res <- rma(yi, vi, data=dat, method="EE", digits=2) ### compare with results on page 352 (Table IX) expect_equivalent(coef(res), -3.4939, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -5.0265, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -1.9613, tolerance=.tol[["ci"]]) ### fit random-effects model (DL estimator) res <- rma(yi, vi, data=dat, method="DL", digits=2) ### compare with results on page 352 (Table IX) expect_equivalent(coef(res), -14.0972, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -24.4454, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -3.7490, tolerance=.tol[["ci"]]) expect_equivalent(res$tau2, 218.7216, tolerance=.tol[["var"]]) ### fit random-effects model (REML estimator) res <- rma(yi, vi, data=dat, digits=2) ### compare with results on page 352 (Table IX) expect_equivalent(coef(res), -15.1217, tolerance=.tol[["est"]]) expect_equivalent(res$ci.lb, -32.6716, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 2.4282, tolerance=.tol[["ci"]]) expect_equivalent(res$tau2, 685.1965, tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_handling_nas.r0000644000176200001440000001061214712730616022441 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: proper handling of missing values") source("settings.r") test_that("rma.glmm() handles NAs correctly.", { skip_on_cran() dat <- data.frame(ni = rep(20, 10), xi = c(NA, 4, 0, 0, 2, 2, 3, 8, 9, 2), mod1 = c(0, NA, 0, 0, 0, 0, 0, 1, 1, 1), mod2 = c(0, 0, 0, 1, 0, 0, 0, 0, 0, 0)) ### 1) NA in table data for study 1 ### 2) NA for mod1 in study 2 ### 3) if add=0, then yi/vi pair will be NA/NA for study 3 ### 4) if add=0, then yi/vi pair will be NA/NA for study 4, which causes the X.yi matrix to be rank deficient after row 4 is removed ### note: even for the model fitting itself, study 4 is a problem, because the log(odds) for study 4 is -Inf, so the coefficient for ### mod2 is in essence also -Inf; on x86_64-w64-mingw32/x64 (64-bit) with lme4 version 1.1-7, this just barely converges, but ### may fail in other cases; so checks with both moderators included are skipped on CRAN expect_warning(res <- rma.glmm(measure="PLO", xi=xi, ni=ni, mods = ~ mod1, data=dat)) ### k, length of xi/mi, and number of rows in X must be equal to 8 (studies 1 and 2 removed due to NAs in table data) expect_equivalent(res$k, 8) expect_equivalent(length(res$outdat$xi), 8) expect_equivalent(length(res$outdat$mi), 8) expect_equivalent(nrow(res$X), 8) ### k.yi and length of yi/vi must be equal to 8 (studies 1 and 2 removed due to NAs in table data) expect_equivalent(res$k.yi, 8) expect_equivalent(length(res$yi), 8) expect_equivalent(length(res$vi), 8) ### full data saved in .f elements expect_equivalent(res$k.f, 10) expect_equivalent(length(res$outdat.f$xi), 10) expect_equivalent(length(res$outdat.f$mi), 10) expect_equivalent(nrow(res$X.f), 10) expect_equivalent(length(res$yi.f), 10) expect_equivalent(length(res$vi.f), 10) ### now use add=0, so that studies 3 and 4 have NA/NA for yi/vi expect_warning(res <- rma.glmm(measure="PLO", xi=xi, ni=ni, mods = ~ mod1, data=dat, add=0)) ### k, length of xi/mi, and number of rows in X must be equal to 8 (studies 1 and 2 removed due to NAs in table data, but studies 3 and 4 included in the model fitting) expect_equivalent(res$k, 8) expect_equivalent(length(res$outdat$xi), 8) expect_equivalent(length(res$outdat$mi), 8) expect_equivalent(nrow(res$X), 8) ### k.yi and length of yi/vi must be equal to 6 (studies 1 and 2 removed due to NAs in table data and studies 3 and 4 have NA/NA for yi/vi) expect_equivalent(res$k.yi, 6) expect_equivalent(length(res$yi), 6) expect_equivalent(length(res$vi), 6) ### full data saved in .f elements expect_equivalent(res$k.f, 10) expect_equivalent(length(res$outdat.f$xi), 10) expect_equivalent(length(res$outdat.f$mi), 10) expect_equivalent(nrow(res$X.f), 10) expect_equivalent(length(res$yi.f), 10) expect_equivalent(length(res$vi.f), 10) ### include both mod1 and mod2 in the model and use add=0, so that studies 3 and 4 have NA/NA for yi/vi ### as a result, the model matrix for X.yi is rank deficient, so that in essence mod2 needs to be removed for the I^2/H^2 computation ### also note that the coefficient for mod2 is technically -Inf (since xi=0 for the only study where mod2=1); glmer() therefore issues ### several warnings expect_warning(res <- rma.glmm(measure="PLO", xi=xi, ni=ni, mods = ~ mod1 + mod2, data=dat, add=0)) ### k, length of xi/mi, and number of rows in X must be equal to 8 (studies 1 and 2 removed due to NAs in table data, but studies 3 and 4 included in the model fitting) expect_equivalent(res$k, 8) expect_equivalent(length(res$outdat$xi), 8) expect_equivalent(length(res$outdat$mi), 8) expect_equivalent(nrow(res$X), 8) ### k.yi and length of yi/vi must be equal to 6 (studies 1 and 2 removed due to NAs in table data and studies 3 and 4 have NA/NA for yi/vi) expect_equivalent(res$k.yi, 6) expect_equivalent(length(res$yi), 6) expect_equivalent(length(res$vi), 6) ### full data saved in .f elements expect_equivalent(res$k.f, 10) expect_equivalent(length(res$outdat.f$xi), 10) expect_equivalent(length(res$outdat.f$mi), 10) expect_equivalent(nrow(res$X.f), 10) expect_equivalent(length(res$yi.f), 10) expect_equivalent(length(res$vi.f), 10) }) rm(list=ls()) metafor/tests/testthat/test_plots_llplot.r0000644000176200001440000000201614762055374020676 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") source("settings.r") context("Checking plots example: likelihood plot") test_that("plot can be drawn.", { skip_on_cran() dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) png("images/test_plots_llplot_light_test.png", res=200, width=1800, height=1600, type="cairo") par(mar=c(5,4,2,2)) llplot(measure="GEN", yi=yi, vi=vi, data=dat, lwd=1, refline=NA, xlim=c(-3,2)) dev.off() expect_true(.vistest("images/test_plots_llplot_light_test.png", "images/test_plots_llplot_light.png")) png("images/test_plots_llplot_dark_test.png", res=200, width=1800, height=1600, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,2,2)) llplot(measure="GEN", yi=yi, vi=vi, data=dat, lwd=1, refline=NA, xlim=c(-3,2)) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_llplot_dark_test.png", "images/test_plots_llplot_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_tips_multiple_imputation_with_mice.r0000644000176200001440000000627214712730561025343 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/tips:multiple_imputation_with_mice_and_metafor source("settings.r") context("Checking tip: multiple imputation with the mice and metafor packages") dat <- dat.bangertdrowns2004 ### keep only variables needed in the analysis dat <- dat[c("yi", "vi", "length", "wic", "feedback", "info", "pers", "imag", "meta")] test_that("results are correct for package mice.", { skip_on_cran() if (!require(mice)) stop("Cannot load 'mice' package.") ### turn dummy variables into proper factors ### (so logistic regression is used for imputing missing values on these moderators) dat$wic <- factor(dat$wic) dat$feedback <- factor(dat$feedback) dat$info <- factor(dat$info) dat$pers <- factor(dat$pers) dat$imag <- factor(dat$imag) dat$meta <- factor(dat$meta) ### create default predictor matrix predMatrix <- make.predictorMatrix(dat) ### adjust predictor matrix predMatrix[,"vi"] <- 0 # don't use vi for imputing predMatrix["yi",] <- 0 # don't impute yi (since yi has no NAs, this is actually irrelevant here) predMatrix["vi",] <- 0 # don't impute vi (since vi has no NAs, this is actually irrelevant here) ### create imputation methods vector impMethod <- make.method(dat) ### generate imputed datasets imp <- mice(dat, print=FALSE, m=20, predictorMatrix=predMatrix, method=impMethod, seed=1234) ### fit model to each completed dataset fit <- with(imp, rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta)) ### pool results pool <- summary(pool(fit)) expect_equivalent(pool$estimate, c(0.381857, 0.013467, -0.056704, 0.000742, -0.30994, -0.309623, 0.201466, 0.448205), tolerance=.tol[["coef"]]) expect_equivalent(pool$std.error, c(0.241471, 0.008772, 0.12978, 0.122219, 0.227993, 0.197197, 0.21107, 0.17783), tolerance=.tol[["se"]]) expect_equivalent(pool$statistic, c(1.581377, 1.53531, -0.436921, 0.006069, -1.359426, -1.570121, 0.954497, 2.520414), tolerance=.tol[["test"]]) expect_equivalent(pool$p.value, c(0.122388, 0.133287, 0.664798, 0.995194, 0.182211, 0.125322, 0.345947, 0.016331), tolerance=.tol[["pval"]]) }) test_that("results are correct for package Amelia.", { skip_on_cran() if (!require(Amelia)) stop("Cannot load 'Amelia' package.") set.seed(1234) invisible(capture.output(imp <- amelia(dat, m=20, idvars=2, noms=4:9, incheck=TRUE, p2s=0))) fit <- lapply(imp$imputations, function(x) if (length(x)==1L) NULL else rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta, data=x)) fit <- fit[!sapply(fit, is.null)] b <- sapply(fit, function(x) coef(x)) se <- sapply(fit, function(x) x$se) pool <- mi.meld(b, se, byrow=FALSE) pool <- data.frame(estimate=pool$q.mi[1,], se=pool$se.mi[1,]) expect_equivalent(pool$estimate, c(0.364127, 0.013386, -0.062038, 0.011519, -0.295951, -0.265128, 0.182751, 0.403387), tolerance=.tol[["coef"]]) expect_equivalent(pool$se, c(0.240302, 0.008748, 0.133176, 0.121411, 0.229097, 0.200866, 0.212578, 0.18000), tolerance=.tol[["se"]]) }) rm(list=ls()) metafor/tests/testthat/test_tips_testing_factors_lincoms.r0000644000176200001440000001636314712730557024140 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/tips:testing_factors_lincoms context("Checking tip: testing factors and linear combinations of parameters") source("settings.r") dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat dat$year <- dat$year - 1948 dat$ablat <- dat$ablat - 13 test_that("results are correct when testing factors.", { res <- rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat) sav <- anova(res, btt=2:3) expect_equivalent(sav$QM, 1.366284, tolerance=.tol[["test"]]) ### use linearHypothesis() from 'car' package for the same purpose if (!require(car)) stop("Cannot load 'car' package.") sav2 <- linearHypothesis(res, rbind(c(0,1,0,0,0),c(0,0,1,0,0))) expect_equivalent(sav$QM, sav2$Chisq[2], tolerance=.tol[["test"]]) sav3 <- linearHypothesis(res, c("factor(alloc)random = 0", "factor(alloc)systematic = 0")) expect_equivalent(sav$QM, sav3$Chisq[2], tolerance=.tol[["test"]]) ### use glht() from 'multcomp' package for the same purpose if (!require(multcomp)) stop("Cannot load 'multcomp' package.") sav4 <- summary(glht(res, linfct=rbind(b1=c(0,1,0,0,0), b2=c(0,0,1,0,0))), test=Chisqtest()) expect_equivalent(sav$QM, sav4$test$SSH[1,1], tolerance=.tol[["test"]]) ### show that reference level is not relevant res2 <- rma(yi, vi, mods = ~ relevel(factor(alloc), ref="random") + year + ablat, data=dat) sav5 <- anova(res2, btt=2:3) expect_equivalent(sav$QM, sav5$QM, tolerance=.tol[["test"]]) ### likelihood ratio test res0 <- rma(yi, vi, mods = ~ year + ablat, data=dat, method="ML") res1 <- rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat, method="ML") sav <- anova(res0, res1) expect_equivalent(sav$LRT, 1.451038, tolerance=.tol[["test"]]) ### Knapp & Hartung method res <- rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat, test="knha") sav <- anova(res, btt=2:3) expect_equivalent(sav$QM, 0.6502793, tolerance=.tol[["test"]]) ### use linearHypothesis() from 'car' package for the same purpose sav2 <- linearHypothesis(res, c("factor(alloc)random = 0", "factor(alloc)systematic = 0"), test="F") expect_equivalent(sav$QM, sav2$F[2], tolerance=.tol[["test"]]) ### use glht() from 'multcomp' package for the same purpose sav3 <- summary(glht(res, linfct=rbind(b1=c(0,1,0,0,0), b2=c(0,0,1,0,0))), test=Ftest()) expect_equivalent(sav$QM, sav3$test$fstat[1,1], tolerance=.tol[["test"]]) }) test_that("results are correct when testing linear combinations.", { res <- rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat) sav1 <- anova(res, X=c(0,1,-1,0,0)) sav2 <- linearHypothesis(res, c(0,1,-1,0,0)) expect_equivalent(sav1$QM, sav2$Chisq[2], tolerance=.tol[["test"]]) res <- rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat, test="knha") sav1 <- anova(res, X=c(0,1,-1,0,0)) sav2 <- linearHypothesis(res, c(0,1,-1,0,0), test="F") expect_equivalent(sav1$QM, sav2$F[2], tolerance=.tol[["test"]]) sav1 <- anova(res, X=c(1,1,0,1970-1948,30-13)) sav2 <- linearHypothesis(res, c(1,1,0,1970-1948,30-13), test="F") expect_equivalent(sav1$QM, sav2$F[2], tolerance=.tol[["test"]]) tmp <- predict(res, newmods=c(1,0,1970-1948,30-13)) expect_equivalent(sav1$QM, (tmp$pred/tmp$se)^2, tolerance=.tol[["test"]]) }) test_that("results are correct when testing all pairwise comparisons.", { res <- rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat) sav1 <- anova(res, X=rbind(c(0,1,0,0,0), c(0,0,1,0,0), c(0,-1,1,0,0))) sav2 <- summary(glht(res, linfct=rbind(c(0,1,0,0,0), c(0,0,1,0,0), c(0,-1,1,0,0))), test=adjusted("none")) expect_equivalent(sav1$zval, sav2$test$tstat, tolerance=.tol[["test"]]) sav1 <- confint(glht(res, linfct=rbind(c(0,1,0,0,0), c(0,0,1,0,0), c(0,-1,1,0,0))), calpha=univariate_calpha()) sav2 <- predict(res, newmods=rbind(c(1,0,0,0), c(0,1,0,0), c(-1,1,0,0)), intercept=FALSE) expect_equivalent(sav1$confint[,2], sav2$ci.lb, tolerance=.tol[["ci"]]) ### same results but leaving out the intercept res <- rma(yi, vi, mods = ~ 0 + factor(alloc) + year + ablat, data=dat) sav1 <- anova(res, X=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0))) sav2 <- anova(res, X=pairmat(btt=1:3)) expect_equivalent(sav1$zval, sav2$zval, tolerance=.tol[["test"]]) sav3 <- anova(res, X=pairmat(btt=1:3), adjust="holm") expect_equivalent(sav3$pval, c(0.882646, 0.981965, 0.882646), tolerance=.tol[["pval"]]) sav4 <- summary(glht(res, linfct=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0))), test=adjusted("none")) expect_equivalent(sav1$zval, sav4$test$tstat, tolerance=.tol[["test"]]) sav1 <- confint(glht(res, linfct=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0))), calpha=univariate_calpha()) sav2 <- predict(res, newmods=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0))) expect_equivalent(sav1$confint[,2], sav2$ci.lb, tolerance=.tol[["ci"]]) sav1 <- anova(res, X=pairmat(btt=1:3)) sav2 <- summary(glht(res, linfct=cbind(contrMat(c("alternate"=1,"random"=1,"systematic"=1), type="Tukey"), 0, 0)), test=adjusted("none")) expect_equivalent(sav1$zval, sav2$test$tstat, tolerance=.tol[["test"]]) ### with Knapp & Hartung adjustment res <- rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat, test="knha") sav1 <- anova(res, X=rbind(c(0,1,0,0,0), c(0,0,1,0,0), c(0,-1,1,0,0))) sav2 <- anova(res, X=pairmat(btt=2:3, btt2=2:3)) expect_equivalent(sav1$zval, sav2$zval, tolerance=.tol[["test"]]) sav3 <- summary(glht(res, linfct=rbind(c(0,1,0,0,0), c(0,0,1,0,0), c(0,-1,1,0,0)), df=df.residual(res)), test=adjusted("none")) expect_equivalent(sav1$zval, sav3$test$tstat, tolerance=.tol[["test"]]) sav1 <- confint(glht(res, linfct=rbind(c(0,1,0,0,0), c(0,0,1,0,0), c(0,-1,1,0,0)), df=df.residual(res)), calpha=univariate_calpha()) sav2 <- predict(res, newmods=rbind(c(1,0,0,0), c(0,1,0,0), c(-1,1,0,0)), intercept=FALSE) expect_equivalent(sav1$confint[,2], sav2$ci.lb, tolerance=.tol[["ci"]]) ### same results but leaving out the intercept res <- rma(yi, vi, mods = ~ 0 + factor(alloc) + year + ablat, data=dat, test="knha") sav1 <- anova(res, X=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0))) sav2 <- anova(res, X=pairmat(btt=1:3)) expect_equivalent(sav1$zval, sav2$zval, tolerance=.tol[["test"]]) sav3 <- summary(glht(res, linfct=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0)), df=df.residual(res)), test=adjusted("none")) expect_equivalent(sav1$zval, sav3$test$tstat, tolerance=.tol[["test"]]) sav4 <- summary(glht(res, linfct=cbind(contrMat(c("alternate"=1,"random"=1,"systematic"=1), type="Tukey"), 0, 0), df=df.residual(res)), test=adjusted("none")) expect_equivalent(sav1$zval, sav4$test$tstat, tolerance=.tol[["test"]]) sav1 <- confint(glht(res, linfct=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0)), df=df.residual(res)), calpha=univariate_calpha()) sav2 <- predict(res, newmods=rbind(c(-1,1,0,0,0), c(-1,0,1,0,0), c(0,-1,1,0,0))) expect_equivalent(sav1$confint[,2], sav2$ci.lb, tolerance=.tol[["ci"]]) sav3 <- predict(res, newmods=pairmat(btt=1:3)) expect_equivalent(sav2$ci.lb, sav3$ci.lb, tolerance=.tol[["ci"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_list_rma.r0000644000176200001440000000444514712730633020775 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: head.list.rma() and tail.list.rma() functions") source("settings.r") test_that("head.list.rma() works correctly.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) res <- head(rstandard(res), 4) sav <- structure(list(resid = c(-0.1748, -0.8709, -0.6335, -0.727), se = c(0.7788, 0.6896, 0.8344, 0.5486), z = c(-0.2244, -1.2629, -0.7592, -1.3253), slab = 1:4, digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4)), class = "list.rma") expect_equivalent(res, sav, tolerance=.tol[["misc"]]) }) test_that("tail.list.rma() works correctly.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) res <- tail(rstandard(res), 4) sav <- structure(list(resid = c(-0.6568, 0.3752, 1.1604, 0.6972), se = c(0.5949, 0.5416, 0.9019, 0.5936), z = c(-1.104, 0.6927, 1.2867, 1.1746 ), slab = 10:13, digits = c(est = 4, se = 4, test = 4, pval = 4, ci = 4, var = 4, sevar = 4, fit = 4, het = 4)), class = "list.rma") expect_equivalent(res, sav, tolerance=.tol[["misc"]]) }) test_that("as.data.frame.list.rma() works correctly.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat, data=dat) res <- predict(res) res <- as.data.frame(res) res <- res[1:3,1:2] sav <- structure(list(pred = c(-1.02900878645837, -1.34912705666653, -0.97080546460234), se = c(0.140375124151501, 0.201103941277043, 0.131456743392091)), row.names = c(NA, 3L), class = "data.frame") expect_equivalent(res, sav, tolerance=.tol[["misc"]]) }) test_that("as.matrix.list.rma() works correctly.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat, data=dat) res <- predict(res) res <- as.matrix(res) res <- res[1:3,1:2] sav <- structure(c(-1.02900878645837, -1.34912705666653, -0.97080546460234, 0.140375124151501, 0.201103941277043, 0.131456743392091), dim = 3:2, dimnames = list(c("1", "2", "3"), c("pred", "se"))) expect_equivalent(res, sav, tolerance=.tol[["misc"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_law2016.r0000644000176200001440000002057514712730435022664 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking analysis example: law2016") source("settings.r") test_that("results are correct for example 1.", { skip_on_cran() ### example 1 EG1 <- read.table(header=TRUE, as.is=TRUE, text=" study y ref trt contr design 1 -0.16561092 C D CD CD 2 -0.13597406 C D CD CD 3 -0.08012604 C E CE CE 4 -0.14746890 C F CF CF 5 0.09316853 E F EF EF 6 -0.15859403 E F EF EF 7 -0.22314355 E F EF EF 8 -0.06744128 F G FG FG 9 -0.11888254 C H CH CH 10 -0.06899287 C H CH CH 11 0.26917860 B C BC BC 12 -0.33160986 A B AB AB 13 -0.26236426 A B AB AB 14 -0.39319502 F G FG FG 15 -0.11557703 A B AB AB 16 0.00000000 E F EF EF 17 -0.40987456 A E AE AE ") S1 <- structure(c(0.0294183340466069, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.147112449467866, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0780588660166125, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.140361934247383, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0479709251030665, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0506583523716436, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.235695187165775, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.04499494438827, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.17968120987923, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.735714285714286, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.184889643463497, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0294022652280727, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.232478632478632, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.857874134296899, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0219285638496459, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.168131868131868, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0826973577700322 ), .Dim = c(17, 17)) ### create contrast matrix X <- contrmat(EG1, grp1="trt", grp2="ref", append=FALSE, last=NA)[,-1] # remove 'A' to make it the reference level ### fit model assuming consistency (tau^2_omega=0) modC <- rma.mv(y, S1, mods=X, intercept=FALSE, random = ~ contr | study, rho=1/2, data=EG1, sparse=.sparse) ci <- confint(modC) expect_equivalent(modC$tau2, 0.0000, tolerance=.tol[["var"]]) expect_equivalent(coef(modC), c(-0.2243, -0.1667, -0.3274, -0.3152, -0.3520, -0.6489, -0.2758), tolerance=.tol[["coef"]]) expect_equivalent(ci$random[1,2:3], c(0.0000, 0.0708), tolerance=.tol[["var"]]) ### fit inconsistency model (switch optimizer so that model converges also under Atlas) #modI <- rma.mv(y, S1, mods=X, intercept=FALSE, random = list(~ contr | study, ~ contr | design), rho=1/2, phi=1/2, data=EG1, sparse=.sparse) modI <- rma.mv(y, S1, mods=X, intercept=FALSE, random = list(~ contr | study, ~ contr | design), rho=1/2, phi=1/2, data=EG1, sparse=.sparse, control=list(optimizer="optim")) ci <- confint(modI) out <- capture.output(print(modI)) out <- capture.output(print(ci)) expect_equivalent(modI$tau2, 0.0000, tolerance=.tol[["var"]]) expect_equivalent(modI$gamma2, 0.0000, tolerance=.tol[["var"]]) expect_equivalent(coef(modI), c(-0.2243, -0.1667, -0.3274, -0.3152, -0.3520, -0.6489, -0.2758), tolerance=.tol[["coef"]]) expect_equivalent(ci[[1]]$random[1,2:3], c(0.0000, 0.0708), tolerance=.tol[["var"]]) expect_equivalent(ci[[2]]$random[1,2:3], c(0.0000, 0.6153), tolerance=.tol[["var"]]) sav <- predict(modI, newmods=c(1,0,0,0,0,0,0), transf=exp) sav <- c(sav[[1]], sav[[3]], sav[[4]], sav[[5]], sav[[6]]) expect_equivalent(sav, c(0.7991, 0.6477, 0.9859, 0.6477, 0.9859), tolerance=.tol[["pred"]]) }) test_that("results are correct for example 2.", { skip_on_cran() ### example 2 EG2 <- read.table(header=TRUE, as.is=TRUE, text=" study y ref trt contr design 1 -3.61988658 A B AB AB 2 0.00000000 B C BC BC 3 0.19342045 B C BC BC 4 2.79320801 B C BC BC 5 0.24512246 B C BC BC 6 0.03748309 B C BC BC 7 0.86020127 B D BD BD 8 0.14310084 B D BD BD 9 0.07598591 C D CD CD 10 -0.99039870 C D CD CD 11 -1.74085310 A B AB ABD 11 0.34830670 A D AD ABD 12 0.40546510 B C BC BCD 12 1.91692260 B D BD BCD 13 -0.32850410 B C BC BCD 13 1.07329450 B D BD BCD ") S2 <- structure(c(0.9672619, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.24987648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.61904762, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.27958937, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.23845689, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.04321419, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.47692308, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.18416468, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.61978022, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.12650164, 0.07397504, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.07397504, 0.1583906, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.389881, 0.2857143, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.2857143, 0.5151261, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.4361111, 0.2111111, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.2111111, 0.5380342 ), .Dim = c(16, 16)) ### create contrast matrix X <- contrmat(EG2, grp1="trt", grp2="ref", append=FALSE, last=NA)[,-1] # remove 'A' to make it the reference level ### fit model assuming consistency (tau^2_omega=0) modC <- rma.mv(y, S2, mods=X, intercept=FALSE, random = ~ contr | study, rho=1/2, data=EG2, sparse=.sparse) ci <- confint(modC) expect_equivalent(modC$tau2, 0.5482, tolerance=.tol[["var"]]) expect_equivalent(coef(modC), c(-1.8847, -1.3366, -0.7402), tolerance=.tol[["coef"]]) expect_equivalent(ci$random[1,2:3], c(0.0788, 2.0156), tolerance=.tol[["var"]]) ### fit inconsistency model modI <- rma.mv(y, S2, mods=X, intercept=FALSE, random = list(~ contr | study, ~ contr | design), rho=1/2, phi=1/2, data=EG2, sparse=.sparse) ci <- confint(modI) expect_equivalent(modI$tau2, 0.1036, tolerance=.tol[["var"]]) expect_equivalent(modI$gamma2, 0.5391, tolerance=.tol[["var"]]) expect_equivalent(coef(modI), c(-1.9735, -1.3957, -0.6572), tolerance=.tol[["coef"]]) expect_equivalent(ci[[1]]$random[1,2:3], c(0.0000, 1.6661), tolerance=.tol[["var"]]) expect_equivalent(ci[[2]]$random[1,2:3], c(0.0000, 3.9602), tolerance=.tol[["var"]]) sav <- predict(modI, newmods=c(1,0,0), transf=exp) sav <- c(sav[[1]], sav[[3]], sav[[4]], sav[[5]], sav[[6]]) expect_equivalent(sav, c(0.1390, 0.0369, 0.5230, 0.0178, 1.0856), tolerance=.tol[["pred"]]) sav <- ranef(modI) expect_equivalent(sav[[1]]$intrcpt, c(-0.10597655, -0.09440298, -0.07779308, 0.3347431, -0.05778032, -0.12762821, 0.02644374, -0.12131344, 0.01314657, -0.14752923, 0.02919657, 0.12976825, 0.02697319, 0.08415593, -0.10064816, -0.06422411), tolerance=.tol[["pred"]]) expect_equivalent(sav[[1]]$se, c(0.31440795, 0.29262165, 0.28283046, 0.30063561, 0.28520752, 0.28184516, 0.28589877, 0.29733608, 0.29721077, 0.30375728, 0.3128377, 0.31456144, 0.3010675, 0.30435923, 0.30178776, 0.3045846), tolerance=.tol[["se"]]) expect_equivalent(sav[[2]]$intrcpt, c(-0.55126986, 0.15187503, 0.67502976, -0.11892109, -0.38324316, 0.10368152, -0.49349415, -0.69903298), tolerance=.tol[["pred"]]) expect_equivalent(sav[[2]]$se, c(0.64017885, 0.61901365, 0.64221591, 0.51773958, 0.54266969, 0.53007858, 0.48613683, 0.54031058), tolerance=.tol[["se"]]) out <- capture.output(print(sav)) sav <- predict(modI) expect_equivalent(sav$pi.lb, c(-4.029, -1.2853, -1.2853, -1.2853, -1.2853, -1.2853, -0.4911, -0.4911, -1.137, -1.137, -4.029, -2.7699, -1.2853, -0.4911, -1.2853, -0.4911), tolerance=.tol[["pred"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_miller1978.r0000644000176200001440000001036014712730441023371 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:miller1978 context("Checking analysis example: miller1978") source("settings.r") ### create dataset dat <- data.frame(xi=c(3, 6, 10, 1), ni=c(11, 17, 21, 6)) dat$pi <- with(dat, xi/ni) dat <- escalc(measure="PFT", xi=xi, ni=ni, data=dat) test_that("calculations of escalc() for measure='PFT' are correct.", { ### compare with results on page 138 expect_equivalent(dat$yi*2, c(1.1391, 1.2888, 1.5253, 0.9515), tolerance=.tol[["est"]]) ### need *2 factor due to difference in definition of measure expect_equivalent(dat$vi*4, c(0.0870, 0.0571, 0.0465, 0.1538), tolerance=.tol[["var"]]) }) test_that("results are correct for the equal-effects model using unweighted estimation.", { res <- rma(yi, vi, method="EE", data=dat, weighted=FALSE) pred <- predict(res, transf=function(x) x*2) expect_equivalent(pred$pred, 1.2262, tolerance=.tol[["pred"]]) pred <- predict(res, transf=transf.ipft.hm, targs=list(ni=dat$ni)) expect_equivalent(pred$pred, 0.3164, tolerance=.tol[["pred"]]) }) test_that("results are correct for the equal-effects model using weighted estimation.", { res <- rma(yi, vi, method="EE", data=dat) pred <- predict(res, transf=function(x) x*2) expect_equivalent(pred$pred, 1.3093, tolerance=.tol[["pred"]]) pred <- predict(res, transf=transf.ipft.hm, targs=list(ni=dat$ni)) expect_equivalent(pred$pred, 0.3595, tolerance=.tol[["pred"]]) }) test_that("results are correct when there are proportions of 0 and 1.", { ### create dataset dat <- data.frame(xi=c(0,10), ni=c(10,10)) dat$pi <- with(dat, xi/ni) dat <- escalc(measure="PFT", xi=xi, ni=ni, data=dat, add=0) ### back-transformation of the individual outcomes expect_equivalent(transf.ipft(dat$yi, dat$ni), c(0,1)) }) test_that("back-transformations work as intended for individual studies and the model estimate.", { ### create dataset dat <- data.frame(xi = c( 0, 4, 9, 16, 20), ni = c(10, 10, 15, 20, 20)) dat$pi <- with(dat, xi/ni) dat <- escalc(measure="PFT", xi=xi, ni=ni, data=dat, add=0) ### back-transformation of the individual outcomes expect_equivalent(transf.ipft(dat$yi, dat$ni), c(0.0, 0.4, 0.6, 0.8, 1.0)) ### back-transformation of the estimated average res <- rma(yi, vi, method="EE", data=dat) pred <- predict(res, transf=transf.ipft.hm, targs=list(ni=dat$ni)) expect_equivalent(pred$pred, 0.6886, tolerance=.tol[["pred"]]) expect_equivalent(pred$ci.lb, 0.5734, tolerance=.tol[["ci"]]) expect_equivalent(pred$ci.ub, 0.7943, tolerance=.tol[["ci"]]) ### calculate back-transformed CI bounds dat.back <- summary(dat, transf=transf.ipft, ni=dat$ni) skip_on_cran() ### create forest plot with CI bounds supplied and then add model estimate png("images/test_analysis_example_miller1978_light_test.png", res=200, width=1800, height=800, type="cairo") par(mar=c(5,8,2,8)) forest(dat.back$yi, ci.lb=dat.back$ci.lb, ci.ub=dat.back$ci.ub, psize=1, xlim=c(-.5,1.8), alim=c(0,1), ylim=c(-2,8), refline=NA, digits=3, xlab="Proportion", header=c("Study", "Proportion [95% CI]")) addpoly(pred$pred, ci.lb=pred$ci.lb, ci.ub=pred$ci.ub, rows=-1, mlab="EE Model", efac=1.3) abline(h=0) dev.off() expect_true(.vistest("images/test_analysis_example_miller1978_light_test.png", "images/test_analysis_example_miller1978_light.png")) ### create forest plot with CI bounds supplied and then add model estimate (dark theme) png("images/test_analysis_example_miller1978_dark_test.png", res=200, width=1800, height=800, type="cairo") setmfopt(theme="dark") par(mar=c(5,8,2,8)) forest(dat.back$yi, ci.lb=dat.back$ci.lb, ci.ub=dat.back$ci.ub, psize=1, xlim=c(-.5,1.8), alim=c(0,1), ylim=c(-2,8), refline=NA, digits=3, xlab="Proportion", header=c("Study", "Proportion [95% CI]")) addpoly(pred$pred, ci.lb=pred$ci.lb, ci.ub=pred$ci.ub, rows=-1, mlab="EE Model", efac=1.3) abline(h=0) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_miller1978_dark_test.png", "images/test_analysis_example_miller1978_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_misc_metan_vs_rma.mh_with_dat.bcg.r0000644000176200001440000000540414712730631024650 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma.mh() against metan with 'dat.bcg'") source("settings.r") test_that("results match (EE model, measure='RR').", { ### compare results with: metan tpos tneg cpos cneg, fixed nograph rr log res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) expect_equivalent(res$beta, -0.4537, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.5308, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.3766, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -11.5338, tolerance=.tol[["test"]]) ### 11.53 in Stata expect_equivalent(res$QE, 152.5676, tolerance=.tol[["test"]]) ### compare results with: metan tpos tneg cpos cneg, fixed nograph rr sav <- predict(res, transf=exp) expect_equivalent(sav$pred, 0.6353, tolerance=.tol[["est"]]) expect_equivalent(sav$ci.lb, 0.5881, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, 0.6862, tolerance=.tol[["ci"]]) }) test_that("results match (EE model, measure='OR').", { ### compare results with: metan tpos tneg cpos cneg, fixed nograph or log res <- rma.mh(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) expect_equivalent(res$beta, -0.4734, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.5538, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.3930, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -11.5444, tolerance=.tol[["test"]]) ### 11.54 in Stata expect_equivalent(res$QE, 163.9426, tolerance=.tol[["test"]]) ### compare results with: metan tpos tneg cpos cneg, fixed nograph or sav <- predict(res, transf=exp) expect_equivalent(sav$pred, 0.6229, tolerance=.tol[["pred"]]) expect_equivalent(sav$ci.lb, 0.5748, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, 0.6750, tolerance=.tol[["ci"]]) }) test_that("results match (EE model, measure='RD').", { ### compare results with: metan tpos tneg cpos cneg, fixed nograph rd res <- rma.mh(measure="RD", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) expect_equivalent(res$beta, -0.0033, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.0039, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.0027, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -11.4708, tolerance=.tol[["test"]]) ### 11.56 in Stata expect_equivalent(res$QE, 386.7759, tolerance=.tol[["test"]]) # zval is slightly different, as metan apparently computes the SE as # described in Greenland & Robins (1985) while metafor uses the equation # given in Sato, Greenland, & Robins (1989) (only the latter is # asymptotically correct in both the sparse-data and large-strata case) }) rm(list=ls()) metafor/tests/testthat/test_tips_model_selection_with_glmulti_and_mumin.r0000644000176200001440000001230114762057565027174 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/tips:model_selection_with_glmulti_and_mumin source("settings.r") context("Checking tip: model selection using the glmulti and MuMIn packages") dat <- dat.bangertdrowns2004 ### remove rows where at least one potential moderator is missing dat <- dat[!apply(dat[,c("length", "wic", "feedback", "info", "pers", "imag", "meta")], 1, anyNA),] test_that("results are correct for package glmulti.", { skip_on_cran() if (!require(glmulti)) stop("Cannot load 'glmulti' package.") ### function for glmulti rma.glmulti <- function(formula, data, ...) { rma(formula, vi, data=data, method="ML", ...) } ### fit all possible models (only main effects) #res <- glmulti(yi ~ length + wic + feedback + info + pers + imag + meta, data=dat, ### DOES NOT WORK # level=1, fitfunction=rma.glmulti, crit="aicc", confsetsize=128) res <- glmulti(y = "yi", xr=c("length", "wic", "feedback", "info", "pers", "imag", "meta"), data=dat, level=1, fitfunction=rma.glmulti, crit="aicc", confsetsize=128, plotty=FALSE, report=FALSE) ### models, IC values, and weights for the models whose IC is not more than 2 points away from the lowest value top <- weightable(res) top <- top[top$aicc <= min(top$aicc) + 2,] expect_equivalent(top$aicc, c(13.502247, 13.504515, 14.003149, 14.130949, 14.434335, 14.748334, 14.986646, 15.058191, 15.210613, 15.410733), tolerance=.tol[["fit"]]) ### register getfit method for 'rma.uni' objects eval(metafor:::.glmulti) ### multimodel inference results mmi <- as.data.frame(coef(res, varweighting="Johnson")) # to use newer method mmi <- data.frame(Estimate=mmi$Est, SE=sqrt(mmi$Uncond), Importance=mmi$Importance, row.names=row.names(mmi)) mmi$z <- mmi$Estimate / mmi$SE mmi$p <- 2*pnorm(abs(mmi$z), lower.tail=FALSE) names(mmi) <- c("Estimate", "Std. Error", "Importance", "z value", "Pr(>|z|)") mmi$ci.lb <- mmi[[1]] - qnorm(.975) * mmi[[2]] mmi$ci.ub <- mmi[[1]] + qnorm(.975) * mmi[[2]] mmi <- mmi[order(mmi$Importance, decreasing=TRUE), c(1,2,4:7,3)] expect_equivalent(mmi$Estimate, c(0.108404, 0.351153, 0.051201, 0.036604, 0.002272, 0.013244, -0.017004, -0.018272), tolerance=.tol[["coef"]]) expect_equivalent(mmi$"Std. Error", c(0.103105, 0.201648, 0.08529, 0.068926, 0.005019, 0.068788, 0.054466, 0.079911), tolerance=.tol[["se"]]) expect_equivalent(mmi$Importance, c(1, 0.847824, 0.424365, 0.367132, 0.325539, 0.291322, 0.264263, 0.241566), tolerance=.tol[["r2"]]) ### multimodel predictions x <- c("length"=15, "wic"=1, "feedback"=1, "info"=0, "pers"=0, "imag"=1, "meta"=1) preds <- list() for (j in 1:res@nbmods) { model <- res@objects[[j]] vars <- names(coef(model))[-1] if (length(vars) == 0) { preds[[j]] <- predict(model) } else { preds[[j]] <- predict(model, newmods=x[vars]) } } ### multimodel prediction weights <- weightable(res)$weights yhat <- sum(weights * sapply(preds, function(x) x$pred)) expect_equivalent(yhat, 0.56444, tolerance=.tol[["pred"]]) ### multimodel SE se <- sqrt(sum(weights * sapply(preds, function(x) x$se^2 + (x$pred - yhat)^2))) expect_equivalent(se, 0.2225354, tolerance=.tol[["se"]]) }) test_that("results are correct for package MuMIn.", { skip_on_cran() expect_equivalent(TRUE, TRUE) # avoid 'Empty test' message return() ### cannot get this to work as the helper functions are somehow not visible ### (even when directly adding them below or above this function) if (!require(MuMIn)) stop("Cannot load 'MuMIn' package.") ### get helper functions eval(metafor:::.MuMIn) ### fit full model full <- rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta, data=dat, method="ML") ### fit all possible models res <- suppressMessages(dredge(full)) ### models, IC values, and weights for the models whose IC is not more than 2 points away from the lowest value top <- subset(res, delta <= 2, recalc.weights=FALSE) expect_equivalent(top$AICc, c(13.502247, 13.504515, 14.003149, 14.130949, 14.434335, 14.748334, 14.986646, 15.058191, 15.210613, 15.410733), tolerance=.tol[["fit"]]) expect_equivalent(c(top$weight), c(0.067057, 0.066981, 0.0522, 0.048969, 0.042077, 0.035963, 0.031923, 0.030802, 0.028541, 0.025824), tolerance=.tol[["inf"]]) ### importance of each predictor expect_equivalent(c(sw(res)), c(imag = 0.847824, meta = 0.424365, feedback = 0.367132, length = 0.325539, pers = 0.291322, wic = 0.264263, info = 0.241566), tolerance=.tol[["r2"]]) ### model averaging mmi <- summary(model.avg(res)) expect_equivalent(mmi$coefmat.full[,"Estimate"], c(intrcpt = 0.108404, imag = 0.351153, meta = 0.051201, feedback = 0.036604, length = 0.002272, wic = -0.017004, pers = 0.013244, info = -0.018272), tolerance=.tol[["coef"]]) expect_equivalent(mmi$coefmat.full[,"Std. Error"], c(intrcpt = 0.103105, imag = 0.201648, meta = 0.08529, feedback = 0.068926, length = 0.005019, wic = 0.054466, pers = 0.068788, info = 0.079911), tolerance=.tol[["se"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_funnel_plot_variations.r0000644000176200001440000000274314762055357024164 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:funnel_plot_variations source("settings.r") context("Checking plots example: funnel plot variations") test_that("plot can be drawn.", { skip_on_cran() ### fit equal-effects model res <- rma(yi, vi, data=dat.hackshaw1998, measure="OR", method="EE") png("images/test_plots_funnel_plot_variations_light_test.png", res=200, width=1800, height=1800, type="cairo") par(mfrow=c(2,2)) funnel(res, main="Standard Error") funnel(res, yaxis="vi", main="Sampling Variance") funnel(res, yaxis="seinv", main="Inverse Standard Error") funnel(res, yaxis="vinv", main="Inverse Sampling Variance") dev.off() expect_true(.vistest("images/test_plots_funnel_plot_variations_light_test.png", "images/test_plots_funnel_plot_variations_light.png")) png("images/test_plots_funnel_plot_variations_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") par(mfrow=c(2,2)) funnel(res, main="Standard Error") funnel(res, yaxis="vi", main="Sampling Variance") funnel(res, yaxis="seinv", main="Inverse Standard Error") funnel(res, yaxis="vinv", main="Inverse Sampling Variance") setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_funnel_plot_variations_dark_test.png", "images/test_plots_funnel_plot_variations_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_misc_calc_q.r0000644000176200001440000000742414712730647020412 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: computation of Q-test") source("settings.r") test_that("computation is correct for 'dat.bcg'.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) expect_equivalent(res$QE, 152.23301, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0, tolerance=.tol[["pval"]]) res <- rma(yi, vi, mods = ~ ablat, data=dat) expect_equivalent(res$QE, 30.73309, tolerance=.tol[["test"]]) expect_equivalent(res$QEp, 0.001214, tolerance=.tol[["pval"]]) }) perm <- function(v) { n <- length(v) if (n == 1) { v } else { X <- NULL for (i in 1:n) X <- rbind(X, cbind(v[i], perm(v[-i]))) X } } test_that("the computation is correct for measurements of the Planck constant.", { dat <- read.table(header=TRUE, text=" exp h uh NRC-17 6.62607013300 6.00e-08 NMIJ-17 6.62607005883 1.65e-07 NIST-17 6.62606993400 8.90e-08") perms <- perm(1:nrow(dat)) QE <- rep(NA_real_, nrow(dat)) QEp <- rep(NA_real_, nrow(dat)) for (i in 1:nrow(perms)) { tmp <- dat[perms[i,],] res <- rma(yi=h, sei=uh, data=tmp, method="DL") QE[i] <- res$QE QEp[i] <- res$QEp } expect_equivalent(QE, rep(3.442127, length(QE)), tolerance=.tol[["test"]]) expect_equivalent(QEp, rep(0.1788758, length(QEp)), tolerance=.tol[["pval"]]) }) test_that("the computation is correct for measurements of the Newtonian gravitational constant.", { dat <- read.table(header=TRUE, text=" label G uG NIST-82 6.67248 0.00043 TR&D-96 6.6729 0.00050 LANL-97 6.67398 0.00070 UWash-00 6.674255 0.000092 BIPM-01 6.67559 0.00027 UWup-02 6.67422 0.00098 MSL-03 6.67387 0.00027 HUST-05 6.67222 0.00087 UZur-06 6.67425 0.00012 HUST-09 6.67349 0.00018 BIPM-14 6.67554 0.00016 LENS-14 6.67191 0.00099 UCI-14 6.67435 0.00013 HUSTT-18 6.674184 0.000078 HUSTA-18 6.674484 0.000077 JILA-18 6.67260 0.00025") QE <- rep(NA_real_, 100) QEp <- rep(NA_real_, 100) set.seed(1234) for (i in 1:100) { tmp <- dat[sample(nrow(dat)),] res <- rma(yi=G, sei=uG, data=tmp, method="DL") QE[i] <- res$QE QEp[i] <- res$QEp } expect_equivalent(QE, rep(197.8399, length(QE)), tolerance=.tol[["test"]]) expect_equivalent(QEp, rep(0, length(QEp)), tolerance=.tol[["pval"]]) }) test_that("the computation is correct for measurements Planck constant.", { dat <- read.table(header=TRUE, text=" label h uh NPL-79 6.626073000 6.70e-06 NIST-80 6.626065800 8.80e-06 NMI-89 6.626068400 3.60e-06 NPL-90 6.626068200 1.30e-06 PTB-91 6.626067000 4.20e-06 NIM-95 6.626071000 1.10e-05 NIST-98 6.626068910 5.80e-07 IAC-11 6.626069890 2.00e-07 METAS-11 6.626069100 2.00e-06 NPL-12 6.626071200 1.30e-06 IAC-15 6.626070150 1.30e-07 LNE-15 6.626068800 1.70e-06 NIST-15 6.626069360 3.80e-07 NRC-17 6.626070133 6.00e-08 LNE-17 6.626070410 3.80e-07 NMIJ-17 6.626070059 1.65e-07 NIM-17 6.626069200 1.60e-06 IAC-17 6.626070404 7.92e-08") QE <- rep(NA_real_, 100) QEp <- rep(NA_real_, 100) set.seed(1234) for (i in 1:100) { tmp <- dat[sample(nrow(dat)),] res <- rma(yi=h, sei=uh, data=tmp, method="DL") QE[i] <- res$QE QEp[i] <- res$QEp } expect_equivalent(QE, rep(26.63226, length(QE)), tolerance=.tol[["test"]]) expect_equivalent(QEp, rep(0.06368617, length(QEp)), tolerance=.tol[["pval"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_matreg.r0000644000176200001440000001752415116563052020442 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: matreg() function") source("settings.r") test_that("matreg() works correctly for the 'mtcars' dataset.", { if (!require(MuMIn)) stop("Cannot load 'MuMIn' package.") dat <- mtcars res1 <- lm(mpg ~ hp + wt + am, data=dat) S <- cov(dat) res2 <- matreg(y="mpg", x=c("hp","wt","am"), R=S, cov=TRUE, means=colMeans(dat), n=nrow(dat)) expect_equivalent(coef(res1), coef(res2), tolerance=.tol[["coef"]]) expect_equivalent(vcov(res1), vcov(res2), tolerance=.tol[["var"]]) expect_equivalent(se(res1), se(res2), tolerance=.tol[["se"]]) expect_equivalent(sigma(res1), sigma(res2), tolerance=.tol[["var"]]) expect_equivalent(nobs(res1), nobs(res2), tolerance=.tol[["count"]]) expect_equivalent(df.residual(res1), df.residual(res2), tolerance=.tol[["count"]]) expect_equivalent(deviance(res1), deviance(res2), tolerance=.tol[["fit"]]) expect_equivalent(logLik(res1), logLik(res2), tolerance=.tol[["fit"]]) expect_equivalent(logLik(res1, REML=TRUE), logLik(res2, REML=TRUE), tolerance=.tol[["fit"]]) expect_equivalent(AIC(res1), AIC(res2), tolerance=.tol[["fit"]]) expect_equivalent(BIC(res1), BIC(res2), tolerance=.tol[["fit"]]) expect_equivalent(AICc(res1), AICc(res2), tolerance=.tol[["fit"]]) expect_equivalent(AICc(res2), AIC(res2, correct=TRUE), tolerance=.tol[["fit"]]) expect_equivalent(confint(res1), confint(res2)$tab[,2:3], tolerance=.tol[["ci"]]) res2 <- matreg(y="mpg", x=c("hp","wt","am"), R=S, cov=TRUE, n=nrow(dat)) b1 <- coef(res1) b1[1] <- NA expect_equivalent(b1, coef(res2), tolerance=.tol[["coef"]]) vb1 <- vcov(res1) vb1[1,] <- vb1[,1] <- NA expect_equivalent(vb1, vcov(res2), tolerance=.tol[["var"]]) expect_equivalent(se(res1)[-1], se(res2)[-1], tolerance=.tol[["se"]]) expect_equivalent(sigma(res1), sigma(res2), tolerance=.tol[["var"]]) expect_equivalent(nobs(res1), nobs(res2), tolerance=.tol[["count"]]) expect_equivalent(df.residual(res1), df.residual(res2), tolerance=.tol[["count"]]) expect_equivalent(deviance(res1), deviance(res2), tolerance=.tol[["fit"]]) expect_equivalent(logLik(res1), logLik(res2), tolerance=.tol[["fit"]]) expect_equivalent(logLik(res1, REML=TRUE), logLik(res2, REML=TRUE), tolerance=.tol[["fit"]]) expect_equivalent(AIC(res1)-2, AIC(res2), tolerance=.tol[["fit"]]) expect_equivalent(BIC(res1)-log(nrow(dat)), BIC(res2), tolerance=.tol[["fit"]]) expect_equivalent(AICc(res2), AIC(res2, correct=TRUE), tolerance=.tol[["fit"]]) expect_equivalent(confint(res1)[-1,], confint(res2)$tab[-1,2:3], tolerance=.tol[["ci"]]) dat[] <- scale(dat) res1 <- lm(mpg ~ 0 + hp + wt + am, data=dat) R <- cor(dat) res2 <- matreg(y="mpg", x=c("hp","wt","am"), R=R, n=nrow(dat)) expect_equivalent(coef(res1), coef(res2), tolerance=.tol[["coef"]]) expect_equivalent(vcov(res1), vcov(res2), tolerance=.tol[["var"]]) expect_equivalent(se(res1), se(res2), tolerance=.tol[["se"]]) expect_equivalent(sigma(res1), sigma(res2), tolerance=.tol[["var"]]) expect_equivalent(nobs(res1), nobs(res2), tolerance=.tol[["count"]]) expect_equivalent(df.residual(res1), df.residual(res2), tolerance=.tol[["count"]]) expect_equivalent(deviance(res1), deviance(res2), tolerance=.tol[["fit"]]) expect_equivalent(logLik(res1), logLik(res2), tolerance=.tol[["fit"]]) expect_equivalent(logLik(res1, REML=TRUE), logLik(res2, REML=TRUE), tolerance=.tol[["fit"]]) expect_equivalent(AIC(res1), AIC(res2), tolerance=.tol[["fit"]]) expect_equivalent(BIC(res1), BIC(res2), tolerance=.tol[["fit"]]) expect_equivalent(AICc(res1), AICc(res2), tolerance=.tol[["fit"]]) expect_equivalent(AICc(res2), AIC(res2, correct=TRUE), tolerance=.tol[["fit"]]) expect_equivalent(confint(res1), confint(res2)$tab[,2:3], tolerance=.tol[["ci"]]) }) test_that("matreg() works correctly for 'dat.craft2003'.", { dat <- dat.craft2003 ### construct dataset and var-cov matrix of the correlations tmp <- rcalc(ri ~ var1 + var2 | study, ni=ni, data=dat) V <- tmp$V dat <- tmp$dat out <- capture.output(print(tmp)) sav <- structure(list(study = c("1", "1", "1", "1", "1", "1"), var1 = c("acog", "asom", "conf", "acog", "acog", "asom"), var2 = c("perf", "perf", "perf", "asom", "conf", "conf"), var1.var2 = c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf"), yi = c(-0.55, -0.48, 0.66, 0.47, -0.38, -0.46), ni = c(142L, 142L, 142L, 142L, 142L, 142L)), row.names = c(NA, 6L), class = "data.frame") expect_equivalent(dat[1:6,], sav, tolerance=.tol[["coef"]]) sav <- structure(c(0.00345039893617021, 0.00132651489361702, -0.000554579787234042, -0.00139678475177305, 0.00250189539007092, 0.000932237234042553, 0.00132651489361702, 0.00420059687943262, -0.000952140709219857, -0.00194335914893617, 0.00126485617021277, 0.00251607829787234, -0.000554579787234042, -0.000952140709219857, 0.00225920113475177, 0.00057910914893617, -0.00153379787234043, -0.00106924595744681, -0.00139678475177305, -0.00194335914893617, 0.00057910914893617, 0.00430494191489362, -0.00180268914893617, -0.00120505595744681, 0.00250189539007092, 0.00126485617021277, -0.00153379787234043, -0.00180268914893617, 0.00519185361702128, 0.00188440468085106, 0.000932237234042553, 0.00251607829787234, -0.00106924595744681, -0.00120505595744681, 0.00188440468085106, 0.00440833021276596), .Dim = c(6L, 6L), .Dimnames = list(c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf"), c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf")), class = c("vcovmat", "matrix", "array")) expect_equivalent(V[1:6,1:6], sav, tolerance=.tol[["var"]]) ### turn var1.var2 into a factor with the desired order of levels dat$var1.var2 <- factor(dat$var1.var2, levels=c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf")) ### multivariate random-effects model expect_warning(res <- rma.mv(yi, V, mods = ~ 0 + var1.var2, random = ~ var1.var2 | study, struct="UN", data=dat, sparse=.sparse)) ### restructure estimated mean correlations into a 4x4 matrix R <- matrix(NA, nrow=4, ncol=4) R[lower.tri(R)] <- coef(res) rownames(R) <- colnames(R) <- c("perf", "acog", "asom", "conf") ### fit regression model with 'perf' as outcome and 'acog', 'asom', and 'conf' as predictors fit <- matreg(1, 2:4, R=R, V=vcov(res)) out <- capture.output(print(fit)) sav <- structure(list(estimate = c(0.14817903234559, -0.0536342615587582, 0.363679177420187), se = c(0.156551433378687, 0.0768472434859867, 0.0909539697381244), zval = c(0.946519805967891, -0.697933447262015, 3.99849702511387), pval = c(0.343883525131896, 0.485218815885662, 0.0000637459821320369), ci.lb = c(-0.158656138804758, -0.204252091102472, 0.185412672482517), ci.ub = c(0.455014203495939, 0.0969835679849561, 0.541945682357857)), class = "data.frame", row.names = c("acog", "asom", "conf")) expect_equivalent(fit$tab, sav, tolerance=.tol[["misc"]]) expect_equivalent(coef(fit), c(acog = 0.148179, asom = -0.053634, conf = 0.363679), tolerance=.tol[["coef"]]) expect_equivalent(vcov(fit), structure(c(0.024508, -0.001433, 0.004527, -0.001433, 0.005905, 0.004089, 0.004527, 0.004089, 0.008273), dim = c(3L, 3L), dimnames = list(c("acog", "asom", "conf"), c("acog", "asom", "conf"))), tolerance=.tol[["var"]]) expect_equivalent(se(fit), c(acog = 0.156552, asom = 0.076847, conf = 0.090954), tolerance=.tol[["se"]]) expect_equivalent(confint(fit)$tab, structure(c(0.148179, -0.053634, 0.363679, -0.158656, -0.204252, 0.185413, 0.455015, 0.096984, 0.541945), dim = c(3L, 3L), dimnames = list(c("acog", "asom", "conf"), c("estimate", "ci.lb", "ci.ub"))), tolerance=.tol[["ci"]]) ### use variable names fit <- matreg("perf", c("acog","asom","conf"), R=R, V=vcov(res)) expect_equivalent(fit$tab, sav, tolerance=.tol[["misc"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_regplot.r0000644000176200001440000000314114762055426021042 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:baujat_plot source("settings.r") context("Checking plots example: scatter/bubble plot") test_that("plot can be drawn.", { skip_on_cran() dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat, data=dat) png("images/test_plots_regplot_light_test.png", res=200, width=1800, height=1500, type="cairo") par(mar=c(5,5,1,2)) sav <- regplot(res, xlim=c(10,60), predlim=c(10,60), xlab="Absolute Latitude", refline=0, atransf=exp, at=log(seq(0.2,1.6,by=0.2)), digits=1, las=1, bty="l", label=c(4,7,12,13), offset=c(1.6,0.8), labsize=0.9, pi=TRUE, legend=TRUE, grid=TRUE) points(sav) dev.off() expect_true(.vistest("images/test_plots_regplot_light_test.png", "images/test_plots_regplot_light.png")) png("images/test_plots_regplot_dark_test.png", res=200, width=1800, height=1500, type="cairo") setmfopt(theme="dark") par(mar=c(5,5,1,2)) sav <- regplot(res, xlim=c(10,60), predlim=c(10,60), xlab="Absolute Latitude", refline=0, atransf=exp, at=log(seq(0.2,1.6,by=0.2)), digits=1, las=1, bty="l", label=c(4,7,12,13), offset=c(1.6,0.8), labsize=0.9, pi=TRUE, legend=TRUE, grid=TRUE) points(sav) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_regplot_dark_test.png", "images/test_plots_regplot_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_misc_setlab.r0000644000176200001440000002122214762055302020423 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: .setlab() function") source("settings.r") yi <- c(-.3, -.1, 0, .2, .2) vi <- rep(.02, length(yi)) test_that(".setlab() works correctly together with forest().", { skip_on_cran() png(filename="images/test_misc_setlab_test.png", res=300, width=5000, height=8000, type="cairo") par(mfrow=c(14,6), mar=c(5,4,0,4)) xlim <- c(-3,5) cex.lab <- 0.5 dat <- escalc(measure="GEN", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="RR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="OR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="RD", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="AS", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="PHI", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="YUQ", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="YUY", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="IRR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="IRD", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="IRSD", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="MD", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="SMD", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="ROM", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="CVR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="VR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="RPB", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="COR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="ZCOR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.ztor, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.ztor, header=TRUE) dat <- escalc(measure="PR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="PLN", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="PLO", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.ilogit, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.ilogit, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="PAS", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.iarcsin, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.iarcsin, header=TRUE) dat <- escalc(measure="PFT", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.ipft.hm, targs=list(ni=rep(10,length(yi))), header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.ipft.hm, targs=list(ni=rep(10,length(yi))), header=TRUE) dat <- escalc(measure="IR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="IRLN", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="IRS", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.isqrt, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.isqrt, header=TRUE) dat <- escalc(measure="IRFT", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="MN", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="MNLN", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="CVLN", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="SDLN", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="MC", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="SMCC", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="ROMC", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=exp, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=exp, header=TRUE) dat <- escalc(measure="ARAW", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="AHW", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.iahw, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.iahw, header=TRUE) dat <- escalc(measure="ABT", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.iabt, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.iabt, header=TRUE) dat <- escalc(measure="PCOR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dat <- escalc(measure="ZPCOR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, transf=transf.ztor, header=TRUE) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, atransf=transf.ztor, header=TRUE) dat <- escalc(measure="SPCOR", yi=yi, vi=vi) forest(dat$yi, dat$vi, xlim=xlim, cex.lab=cex.lab, header=TRUE) dev.off() expect_true(.vistest("images/test_misc_setlab_test.png", "images/test_misc_setlab.png")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_dersimonian2007.r0000644000176200001440000000614314712730414024401 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:dersimonian2007 source("settings.r") context("Checking analysis example: dersimonian2007") ### data for the CLASP example n1i <- c(156, 303, 565, 1570, 103, 4659) n2i <- c( 74, 303, 477, 1565, 105, 4650) ai <- c( 5, 5, 12, 69, 9, 313) ci <- c( 8, 17, 9, 94, 11, 352) test_that("results are correct for the CLASP example.", { skip_on_cran() ### calculate log(OR)s and corresponding sampling variances dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i) ### fit RE model with various tau^2 estimators res.PM <- rma(yi, vi, method="PM", data=dat) res.CA <- rma(yi, vi, method="HE", data=dat) res.DL <- rma(yi, vi, method="DL", data=dat) res.CA2 <- rma(yi, vi, method="GENQ", weights=1/(vi + res.CA$tau2), data=dat) res.DL2 <- rma(yi, vi, method="GENQ", weights=1/(vi + res.DL$tau2), data=dat) res.CA2 <- rma(yi, vi, tau2=res.CA2$tau2, data=dat) res.DL2 <- rma(yi, vi, tau2=res.DL2$tau2, data=dat) res.EB <- rma(yi, vi, method="EB", data=dat) res.ML <- rma(yi, vi, method="ML", data=dat) res.REML <- rma(yi, vi, method="REML", data=dat) res.HS <- rma(yi, vi, method="HS", data=dat) res.SJ <- rma(yi, vi, method="SJ", data=dat) res.SJ2 <- rma(yi, vi, method="SJ", data=dat, control=list(tau2.init=res.CA$tau2)) ### some extra ones res.HSk <- rma(yi, vi, method="HSk", data=dat) res.GENQM <- rma(yi, vi, method="GENQM", weights=1/vi, data=dat) res.PMM <- rma(yi, vi, method="PMM", data=dat) ### combine results into one long list of fitted models res.all <- list(res.PM, res.CA, res.DL, res.CA2, res.DL2, res.EB, res.ML, res.REML, res.HS, res.SJ, res.SJ2, res.HSk, res.GENQM, res.PMM) ### create table with estimate of tau, mu, and standard error results <- rbind( tau = sapply(res.all, function(x) sqrt(x$tau2)), mu = sapply(res.all, coef), se = sapply(res.all, se)) colnames(results) <- c("PM", "CA", "DL", "CA2", "DL2", "EB", "ML", "REML", "HS", "SJ", "SJ2", "HSk", "GENQM", "PMM") tmp <- t(results) ### compare with results on page 111-112 (Tables 3 and 4) expected <- structure(c( 0.3681, 0.4410, 0.2323, 0.3831, 0.3254, 0.3681, 0.0023, 0.1843, 0.1330, 0.4572, 0.4084, 0.1644, 0.2929, 0.4341, -0.3811, -0.4035, -0.3240, -0.3861, -0.3655, -0.3811, -0.1974, -0.2980, -0.2666, -0.4079, -0.3941, -0.2863, -0.1973, -0.4016, 0.2060, 0.2327, 0.1540, 0.2115, 0.1901, 0.2060, 0.0694, 0.1343, 0.1125, 0.2386, 0.2208, 0.1259, 0.2342, 0.2302), .Dim = c(14L, 3L), .Dimnames = list(c("PM", "CA", "DL", "CA2", "DL2", "EB", "ML", "REML", "HS", "SJ", "SJ2", "HSk", "GENQM", "PMM"), c("tau", "mu", "se"))) expect_equivalent(tmp[,1], expected[,1], tolerance=.tol[["var"]]) expect_equivalent(tmp[,2], expected[,2], tolerance=.tol[["coef"]]) expect_equivalent(tmp[,3], expected[,3], tolerance=.tol[["se"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_robust.r0000644000176200001440000001613314712730606020476 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: robust() function") source("settings.r") test_that("robust() works correctly for 'rma' objects.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat) sav <- robust(res, cluster=trial) expect_equivalent(c(vcov(sav)), 0.032106, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 12, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -3.98776, tolerance=.tol[["test"]]) tmp <- predict(sav, transf=exp) expect_equivalent(tmp$pred, 0.4894209, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.3312324, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.7231565, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.lb, 0.1360214, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, 1.7609930, tolerance=.tol[["ci"]]) sav <- robust(res, cluster=trial, adjust=FALSE) expect_equivalent(c(vcov(sav)), 0.029636, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 12, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -4.150592, tolerance=.tol[["test"]]) sav <- robust(res, cluster=trial, clubSandwich=TRUE) expect_equivalent(c(vcov(sav)), 0.03229357, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 11.04125, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -3.97616, tolerance=.tol[["test"]]) tmp <- predict(sav, transf=exp) expect_equivalent(tmp$pred, 0.4894209, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.3295991, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.7267400, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.lb, 0.1342926, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, 1.7836640, tolerance=.tol[["ci"]]) res <- rma(yi, vi, weights=1, data=dat) sav <- robust(res, cluster=trial) expect_equivalent(c(vcov(sav)), 0.037028, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 12, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -3.848996, tolerance=.tol[["test"]]) }) test_that("robust() works correctly for 'rma' objects with moderators.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat + year, data=dat) sav <- robust(res, cluster=trial) expect_equivalent(se(sav), c(23.910483, 0.007857, 0.012079), tolerance=.tol[["se"]]) expect_equivalent(sav$dfs, 10, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, c(-0.148282, -3.564978, 0.157928), tolerance=.tol[["test"]]) expect_equivalent(sav$QM, 11.8546, tolerance=.tol[["test"]]) tmp <- predict(sav, newmods=c(30, 1970), transf=exp) expect_equivalent(tmp$pred, 0.5336811, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.4079824, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.6981073, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.lb, 0.2425081, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, 1.1744580, tolerance=.tol[["ci"]]) sav <- robust(res, cluster=trial, clubSandwich=TRUE) expect_equivalent(se(sav), c(33.655367, 0.011994, 0.016963), tolerance=.tol[["se"]]) expect_equivalent(sav$dfs, c(2.724625, 2.112895, 2.745919), tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, c(-0.105347, -2.335398, 0.112456), tolerance=.tol[["test"]]) expect_equivalent(sav$QM, 6.708996, tolerance=.tol[["test"]]) expect_equivalent(sav$QMdf, c(2, 2.528214), tolerance=.tol[["misc"]]) expect_equivalent(sav$QMp, 0.097479, tolerance=.tol[["pval"]]) tmp <- anova(sav) expect_equivalent(tmp$QM, 6.708996, tolerance=.tol[["test"]]) expect_equivalent(tmp$QMdf, c(2, 2.528214), tolerance=.tol[["misc"]]) expect_equivalent(tmp$QMp, 0.097479, tolerance=.tol[["pval"]]) tmp <- predict(sav, newmods=c(30, 1970), transf=exp) expect_equivalent(tmp$pred, 0.5336811, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.3938412, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.7231735, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.lb, 0.2265965, tolerance=.tol[["ci"]]) expect_equivalent(tmp$pi.ub, 1.2569280, tolerance=.tol[["ci"]]) res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat) sav <- robust(res, cluster=trial, clubSandwich=TRUE) tmp <- anova(sav, X=rbind(c(0,10,1,0),c(0,50,1,0))) expect_equivalent(tmp$se, c(0.210162, 0.321173), tolerance=.tol[["se"]]) expect_equivalent(tmp$ddf, c(1.929902, 3.251262), tolerance=.tol[["misc"]]) expect_equivalent(tmp$zval, c(-2.570637, -5.079127), tolerance=.tol[["test"]]) expect_equivalent(tmp$QM, 9.914783, tolerance=.tol[["test"]]) expect_equivalent(tmp$QMdf, c(2, 2.569003), tolerance=.tol[["misc"]]) expect_equivalent(tmp$QMp, 0.06194173, tolerance=.tol[["pval"]]) sav1 <- robust(res, cluster=trial) tmp1 <- anova(sav1, X=rbind(c(0,10,1,0),c(0,50,1,0))) sav2 <- robust(res, cluster=trial, clubSandwich=TRUE, vcov="CR1p", coef_test="naive-tp", wald_test="Naive-Fp") tmp2 <- anova(sav2, X=rbind(c(0,10,1,0),c(0,50,1,0))) expect_equivalent(tmp1$se, tmp2$se, tolerance=.tol[["se"]]) expect_equivalent(tmp1$ddf, tmp2$ddf, tolerance=.tol[["misc"]]) expect_equivalent(tmp1$zval, tmp2$zval, tolerance=.tol[["test"]]) expect_equivalent(tmp1$QM, tmp2$QM, tolerance=.tol[["test"]]) expect_equivalent(tmp1$QMdf, tmp2$QMdf, tolerance=.tol[["misc"]]) expect_equivalent(tmp1$QMp, tmp2$QMp, tolerance=.tol[["pval"]]) tmp1 <- predict(sav1, newmods=c(30,1,0), transf=exp) tmp2 <- predict(sav2, newmods=c(30,1,0), transf=exp) expect_equivalent(tmp1$pred, tmp2$pred, tolerance=.tol[["pred"]]) expect_equivalent(tmp1$ci.lb, tmp2$ci.lb, tolerance=.tol[["ci"]]) expect_equivalent(tmp1$ci.ub, tmp2$ci.ub, tolerance=.tol[["ci"]]) expect_equivalent(tmp1$pi.lb, tmp2$pi.lb, tolerance=.tol[["ci"]]) expect_equivalent(tmp1$pi.ub, tmp2$pi.ub, tolerance=.tol[["ci"]]) }) test_that("robust() works correctly for 'rma.mv' objects.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, sparse=.sparse) sav <- robust(res, cluster=trial) expect_equivalent(c(vcov(sav)), 0.032106, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 12, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -3.98776, tolerance=.tol[["test"]]) sav <- robust(res, cluster=trial, adjust=FALSE) expect_equivalent(c(vcov(sav)), 0.029636, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 12, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -4.150592, tolerance=.tol[["test"]]) sav <- robust(res, cluster=trial, clubSandwich=TRUE) expect_equivalent(c(vcov(sav)), 0.03229357, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 11.04125, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -3.97616, tolerance=.tol[["test"]]) res <- rma.mv(yi, vi, W=1, random = ~ 1 | trial, data=dat, sparse=.sparse) sav <- robust(res, cluster=trial) expect_equivalent(c(vcov(sav)), 0.037028, tolerance=.tol[["var"]]) expect_equivalent(sav$dfs, 12, tolerance=.tol[["misc"]]) expect_equivalent(sav$zval, -3.848996, tolerance=.tol[["test"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_update.r0000644000176200001440000000373214712730602020437 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: update() function") source("settings.r") test_that("update() works for rma().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res1 <- rma(yi, vi, data=dat, method="EE") res2 <- update(res1, method="DL") res3 <- rma(yi, vi, data=dat, method="DL") res4 <- update(res3, ~ ablat) res5 <- rma(yi, vi, mods = ~ ablat, data=dat, method="DL") res2$time <- NULL res3$time <- NULL res4$time <- NULL res5$time <- NULL expect_equivalent(res2, res3) expect_equivalent(res4, res5) }) test_that("update() works for rma.mv().", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res1 <- rma.mv(yi, vi, data=dat, method="EE", sparse=.sparse) res2 <- update(res1, random = ~ 1 | trial, method="REML") res3 <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, method="REML", sparse=.sparse) res4 <- update(res3, ~ ablat) res5 <- rma.mv(yi, vi, random = ~ 1 | trial, mods = ~ ablat, data=dat, method="REML", sparse=.sparse) res2$time <- NULL res3$time <- NULL res4$time <- NULL res5$time <- NULL expect_equivalent(res2, res3) expect_equivalent(res4, res5) }) test_that("update() works for rma.glmm().", { skip_on_cran() dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res1 <- rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, method="EE") res2 <- update(res1, method="ML") res3 <- rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, method="ML") res4 <- update(res3, mods = ~ ablat) res5 <- rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, mods = ~ ablat, data=dat.bcg, method="ML") res2$time <- NULL res3$time <- NULL res4$time <- NULL res5$time <- NULL expect_equivalent(res2, res3) expect_equivalent(res4, res5) }) rm(list=ls()) metafor/tests/testthat/test_misc_fsn.r0000644000176200001440000000643314712730637017754 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: fsn() function") source("settings.r") test_that("confint() gives correct results for the 'expectancy data' in Becker (2005).", { sav <- fsn(yi, vi, data=dat.raudenbush1985) expect_equivalent(sav$fsnum, 26) ### note: Becker uses p-values based on t-tests, which yields N =~ 23 out <- capture.output(print(sav)) # so that print.fsn() is run (at least once) ### use Fisher's test sav <- fsn(yi, vi, data=dat.raudenbush1985, pool="Fisher") expect_equivalent(sav$fsnum, 40) sav <- fsn(yi, data=dat.raudenbush1985, type="Orwin", target=.05) expect_equivalent(sav$fsnum, 44) out <- capture.output(print(sav)) # so that print.fsn() is run (at least once) with type="Orwin" sav <- fsn(yi, vi, data=dat.raudenbush1985, type="Orwin", target=.05) expect_equivalent(sav$fsnum, 4) sav <- fsn(yi, vi, data=dat.raudenbush1985, type="Rosenberg") expect_equivalent(sav$fsnum, 0) out <- capture.output(print(sav)) # so that print.fsn() is run (at least once) with type="Rosenberg" skip_on_cran() sav <- fsn(yi, vi, data=dat.raudenbush1985, type="General") expect_equivalent(sav$fsnum, 0) sav <- fsn(yi, vi, data=dat.raudenbush1985, type="General", exact=TRUE) expect_equivalent(sav$fsnum, 0) out <- capture.output(print(sav)) # so that print.fsn() is run (at least once) with type="General" res <- rma(yi, vi, data=dat.raudenbush1985) sav <- fsn(res, target=.05) expect_equivalent(sav$fsnum, 12) }) test_that("confint() gives correct results for the 'passive smoking data' in Becker (2005).", { sav <- fsn(yi, vi, data=dat.hackshaw1998) expect_equivalent(sav$fsnum, 393) ### note: Becker finds N =~ 398 (due to rounding) sav <- fsn(yi, data=dat.hackshaw1998, type="Orwin", target=.049) expect_equivalent(sav$fsnum, 186) sav <- fsn(yi, vi, data=dat.hackshaw1998, type="Orwin", target=.049) expect_equivalent(sav$fsnum, 104) # not 103 as fsn() always rounds up sav <- fsn(yi, vi, data=dat.hackshaw1998, type="Rosenberg") expect_equivalent(sav$fsnum, 202) skip_on_cran() sav <- fsn(yi, vi, data=dat.hackshaw1998, type="General") expect_equivalent(sav$fsnum, 112) sav <- fsn(yi, vi, data=dat.hackshaw1998, type="General", exact=TRUE) expect_equivalent(sav$fsnum, 119) }) test_that("confint() gives correct results for the 'interview data' in Becker (2005).", { dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat.mcdaniel1994) sav <- fsn(yi, vi, data=dat) expect_equivalent(sav$fsnum, 50364) ### note: Becker uses p-values based on t-tests, which yields N =~ 51226 sav <- fsn(yi, data=dat, type="Orwin", target=.15) expect_equivalent(sav$fsnum, 129) sav <- fsn(yi, vi, data=dat, type="Orwin", target=.15) expect_equivalent(sav$fsnum, 65) # not 64 as fsn() always rounds up sav <- fsn(yi, vi, data=dat, type="Rosenberg") expect_equivalent(sav$fsnum, 45528) skip_on_cran() sav <- fsn(yi, vi, data=dat, type="General") expect_equivalent(sav$fsnum, 6068) sav <- fsn(yi, vi, data=dat, type="General", exact=TRUE) expect_equivalent(sav$fsnum, 6068) res <- rma(yi, vi, data=dat) sav <- fsn(res) expect_equivalent(sav$fsnum, 6068) }) rm(list=ls()) metafor/tests/testthat/test_plots_normal_qq_plots.r0000644000176200001440000000555514762055410022604 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:normal_qq_plots source("settings.r") context("Checking plots example: normal QQ plots") test_that("plot can be drawn for 'rma.uni' object.", { skip_on_cran() png("images/test_plots_normal_qq_plots_1_test.png", res=200, width=1800, height=1800, type="cairo") ### set up 2x2 array for plotting par(mfrow=c(2,2)) ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit equal- and random-effects models res1 <- rma(yi, vi, data=dat, method="EE") res2 <- rma(yi, vi, data=dat) ### fit fixed- and random-effects models with absolute latitude moderator res3 <- rma(yi, vi, mods=~ablat, data=dat, method="FE") res4 <- rma(yi, vi, mods=~ablat, data=dat) ### normal QQ plots for the various models qqnorm(res1, seed=1234, grid=TRUE, main="Equal-Effects Model") qqnorm(res2, seed=1234, grid=TRUE, main="Random-Effects Model") qqnorm(res3, seed=1234, grid=TRUE, main="Fixed-Effects with Moderators Model") qqnorm(res4, seed=1234, grid=TRUE, main="Mixed-Effects Model") dev.off() expect_true(.vistest("images/test_plots_normal_qq_plots_1_test.png", "images/test_plots_normal_qq_plots_1.png")) ### draw plot with studentized residuals and labels png("images/test_plots_normal_qq_plots_2_test.png", res=200, width=1800, height=1800, type="cairo") qqnorm(res2, type="rstudent", grid=TRUE, label=TRUE, seed=1234) dev.off() expect_true(.vistest("images/test_plots_normal_qq_plots_2_test.png", "images/test_plots_normal_qq_plots_2.png")) }) test_that("plot can be drawn for 'rma.mh' object.", { skip_on_cran() png("images/test_plots_normal_qq_plots_3_test.png", res=200, width=1800, height=1800, type="cairo") res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) qqnorm(res) qqnorm(res, type="rstudent", label=TRUE) dev.off() expect_true(.vistest("images/test_plots_normal_qq_plots_3_test.png", "images/test_plots_normal_qq_plots_3.png")) }) test_that("plot can be drawn for 'rma.peto' object.", { skip_on_cran() png("images/test_plots_normal_qq_plots_4_test.png", res=200, width=1800, height=1800, type="cairo") res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) qqnorm(res) qqnorm(res, type="rstudent", label=TRUE) dev.off() expect_true(.vistest("images/test_plots_normal_qq_plots_4_test.png", "images/test_plots_normal_qq_plots_4.png")) }) test_that("plot cannot be drawn for 'rma.mv' object.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma.mv(yi, vi, random = ~ 1 | trial, data=dat, sparse=.sparse) expect_error(qqnorm(res)) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_henmi2010.r0000644000176200001440000000265614712730421023166 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:henmi2010 source("settings.r") context("Checking analysis example: henmi2010") ### load dataset dat <- dat.lee2004 ### calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat) test_that("results are correct for the random-effects model.", { ### fit random-effects model with DL estimator res <- rma(yi, vi, data=dat, method="DL") ### compare with results on page 2978 expect_equivalent(res$tau2, 0.3325, tolerance=.tol[["var"]]) expect_equivalent(coef(res), -0.6787, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -1.0664, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.2911, tolerance=.tol[["ci"]]) }) test_that("results are correct for the Henmi & Copas method.", { ### fit random-effects model with DL estimator res <- rma(yi, vi, data=dat, method="DL") ### apply Henmi & Copas method sav <- hc(res) out <- capture.output(print(sav)) ### so that print.hc.rma.uni() is run (at least once) ### compare with results on page 2978 expect_equivalent(sav$beta, -0.5145, tolerance=.tol[["coef"]]) expect_equivalent(sav$ci.lb, -0.9994, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, -0.0295, tolerance=.tol[["ci"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_error_handling.r0000644000176200001440000000130014712730617023004 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: proper handling of errors in rma()") source("settings.r") test_that("rma() handles NAs correctly.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat$yi[1] <- NA dat$yi[2] <- NA expect_warning(res <- rma(yi, vi, data=dat, digits=3)) expect_equivalent(res$k, 11) expect_equivalent(res$k.f, 13) expect_equivalent(length(res$yi), 11) expect_equivalent(length(res$yi.f), 13) expect_equivalent(res$not.na, rep(c(FALSE,TRUE),times=c(2,11))) dat$ablat[3] <- NA ### TODO: complete this ... }) rm(list=ls()) metafor/tests/testthat/test_misc_pub_bias.r0000644000176200001440000000353414712730625020746 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: regtest() and ranktest() functions") source("settings.r") test_that("regtest() works correctly for 'rma.uni' objects.", { dat <- dat.egger2001 dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat) res <- rma(yi, vi, data=dat) sav <- regtest(res) expect_equivalent(sav$zval, -4.6686, tolerance=.tol[["test"]]) out <- capture.output(print(sav)) ### so that print.regtest.rma() is run (at least once) sav <- regtest(yi, vi, data=dat) expect_equivalent(sav$zval, -4.6686, tolerance=.tol[["test"]]) sav <- regtest(yi, vi, data=dat) expect_equivalent(sav$zval, -4.6686, tolerance=.tol[["test"]]) sav <- regtest(res, model="lm", predictor="sqrtninv") expect_equivalent(sav$zval, -5.6083, tolerance=.tol[["test"]]) sav <- regtest(yi, vi, data=dat, model="lm", predictor="sqrtninv") expect_equivalent(sav$zval, -5.6083, tolerance=.tol[["test"]]) sav <- regtest(yi, vi, data=dat, model="lm", predictor="sqrtninv") expect_equivalent(sav$zval, -5.6083, tolerance=.tol[["test"]]) }) test_that("ranktest() works correctly for 'rma.uni' objects.", { dat <- dat.egger2001 dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat) res <- rma(yi, vi, data=dat) sav <- ranktest(res) expect_equivalent(sav$tau, 0.15) expect_equivalent(sav$pval, 0.4503, tolerance=.tol[["pval"]]) sav <- ranktest(yi, vi, data=dat) expect_equivalent(sav$tau, 0.15) expect_equivalent(sav$pval, 0.4503, tolerance=.tol[["pval"]]) sav <- ranktest(yi, vi, data=dat) expect_equivalent(sav$tau, 0.15) expect_equivalent(sav$pval, 0.4503, tolerance=.tol[["pval"]]) out <- capture.output(print(sav)) ### so that print.ranktest.rma() is run (at least once) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_stijnen2010.r0000644000176200001440000002141614712730461023537 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:stijnen2010 context("Checking analysis example: stijnen2010") source("settings.r") ### load data dat <- dat.nielweise2007 test_that("results for the normal-normal model are correct (measure=='PLO')", { res <- rma(measure="PLO", xi=ci, ni=n2i, data=dat) ### compare with results on page 3050 (Table II) expect_equivalent(coef(res), -3.3018, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2378, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.6629, tolerance=.tol[["var"]]) tmp <- predict(res, transf=transf.ilogit) expect_equivalent(tmp$pred, 0.0355, tolerance=.tol[["pred"]]) ### 0.035 in paper expect_equivalent(tmp$ci.lb, 0.0226, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.0554, tolerance=.tol[["ci"]]) ### 0.056 in paper res <- rma(measure="PLO", xi=ai, ni=n1i, data=dat) ### compare with results on page 3050 (Table II) expect_equivalent(coef(res), -4.2604, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2589, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.3928, tolerance=.tol[["var"]]) tmp <- predict(res, transf=transf.ilogit) expect_equivalent(tmp$pred, 0.0139, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.0084, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.0229, tolerance=.tol[["ci"]]) }) test_that("results for the binomial-normal normal are correct (measure=='PLO')", { skip_on_cran() res <- rma.glmm(measure="PLO", xi=ci, ni=n2i, data=dat) ### compare with results on page 3050 (Table II) expect_equivalent(coef(res), -3.4964, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2570, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.8124, tolerance=.tol[["var"]]) tmp <- predict(res, transf=transf.ilogit) expect_equivalent(tmp$pred, 0.0294, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.0180, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.0478, tolerance=.tol[["ci"]]) res <- rma.glmm(measure="PLO", xi=ai, ni=n1i, data=dat) ### compare with results on page 3050 (Table II) expect_equivalent(coef(res), -4.8121, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.3555, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.8265, tolerance=.tol[["var"]]) tmp <- predict(res, transf=transf.ilogit) expect_equivalent(tmp$pred, 0.0081, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.0040, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.0161, tolerance=.tol[["ci"]]) }) test_that("results for the normal-normal model are correct (measure=='OR')", { expect_warning(res <- rma(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, drop00=TRUE)) ### compare with results on page 3052 (Table III) expect_equivalent(coef(res), -0.9804, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2435, tolerance=.tol[["se"]]) ### 0.244 in paper expect_equivalent(sqrt(res$tau2), 0.1886, tolerance=.tol[["var"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 0.3752, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.2328, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.6046, tolerance=.tol[["ci"]]) ### 0.62 in paper }) test_that("results for the conditional logistic model with exact likelihood are correct (measure=='OR')", { skip_on_cran() expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.EL")) out <- capture.output(print(res)) ### so that print.rma.glmm() is run (at least once) ### compare with results on page 3052 (Table III) expect_equivalent(coef(res), -1.3532, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.3511, tolerance=.tol[["se"]]) expect_equivalent(sqrt(res$tau2), 0.8327, tolerance=.tol[["var"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 0.2584, tolerance=.tol[["pred"]]) ### 0.25 in paper expect_equivalent(tmp$ci.lb, 0.1299, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.5142, tolerance=.tol[["ci"]]) }) test_that("results for the conditional logistic model with approximate likelihood are correct (measure=='OR')", { skip_on_cran() expect_warning(res <- rma.glmm(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, model="CM.AL")) ### compare with results on page 3052 (Table III) expect_equivalent(coef(res), -1.3027, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.3386, tolerance=.tol[["se"]]) expect_equivalent(sqrt(res$tau2), 0.7750, tolerance=.tol[["var"]]) ### 0.77 in paper tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 0.2718, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.1400, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.5279, tolerance=.tol[["ci"]]) }) ############################################################################ ### load data dat <- dat.nielweise2008 ### incidence rates reflect the expected number of events per 1000 days dat$t1i <- dat$t1i/1000 dat$t2i <- dat$t2i/1000 test_that("results for the normal-normal model are correct (measure=='IRLN')", { res <- rma(measure="IRLN", xi=x2i, ti=t2i, data=dat) ### compare with results on page 3054 (Table VII) expect_equivalent(coef(res), 1.4676, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2425, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.3699, tolerance=.tol[["var"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 4.3389, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 2.6973, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 6.9795, tolerance=.tol[["ci"]]) ### 6.99 in paper res <- rma(measure="IRLN", xi=x1i, ti=t1i, data=dat) ### compare with results on page 3054 (Table VII) expect_equivalent(coef(res), 0.9808, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.3259, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.6393, tolerance=.tol[["var"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 2.6667, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 1.4078, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 5.0513, tolerance=.tol[["ci"]]) }) test_that("results for the Poisson-normal model are correct (measure=='IRLN')", { skip_on_cran() res <- rma.glmm(measure="IRLN", xi=x2i, ti=t2i, data=dat) ### compare with results on page 3054 (Table VII) expect_equivalent(coef(res), 1.4007, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2310, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.3165, tolerance=.tol[["var"]]) ### 0.316 in paper tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 4.0580, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 2.5803, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 6.3819, tolerance=.tol[["ci"]]) res <- rma.glmm(measure="IRLN", xi=x1i, ti=t1i, data=dat) ### compare with results on page 3054 (Table VII) expect_equivalent(coef(res), 0.8494, tolerance=.tol[["coef"]]) ### 0.850 in paper expect_equivalent(se(res), 0.3303, tolerance=.tol[["se"]]) expect_equivalent(res$tau2, 0.6543, tolerance=.tol[["var"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 2.3383, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 1.2240, tolerance=.tol[["ci"]]) ### 1.23 in paper expect_equivalent(tmp$ci.ub, 4.4670, tolerance=.tol[["ci"]]) }) test_that("results for the normal-normal model are correct (measure=='IRR')", { res <- rma(measure="IRR", x1i=x1i, t1i=t1i, x2i=x2i, t2i=t2i, data=dat) ### compare with results on page 3055 (Table VIII) expect_equivalent(coef(res), -0.3963, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2268, tolerance=.tol[["se"]]) ### 0.223 in paper expect_equivalent(sqrt(res$tau2), 0.3060, tolerance=.tol[["var"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 0.6728, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.4314, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 1.0494, tolerance=.tol[["ci"]]) ### 1.04 in paper }) test_that("results for the Poisson-normal model are correct (measure=='IRR')", { skip_on_cran() res <- rma.glmm(measure="IRR", x1i=x1i, t1i=t1i, x2i=x2i, t2i=t2i, data=dat, model="CM.EL") ### compare with results on page 3055 (Table VIII) expect_equivalent(coef(res), -0.4762, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.2377, tolerance=.tol[["se"]]) expect_equivalent(sqrt(res$tau2), 0.3501, tolerance=.tol[["var"]]) tmp <- predict(res, transf=exp) expect_equivalent(tmp$pred, 0.6211, tolerance=.tol[["pred"]]) expect_equivalent(tmp$ci.lb, 0.3898, tolerance=.tol[["ci"]]) expect_equivalent(tmp$ci.ub, 0.9897, tolerance=.tol[["ci"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_handling_nas.r0000644000176200001440000002064114712730635021606 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: handling of NAs") source("settings.r") dat <- data.frame(yi = c(NA, 1, 3, 2, 5, 4, 6), vi = c(1, NA, 1, 1, 1, 1, 1), xi = c(0, 1, NA, 3, 4, 5, 6)) test_that("NAs are correctly handled by various method functions for rma.uni() intercept-only models.", { expect_warning(res <- rma(yi, vi, data=dat)) expect_equivalent(res$k, 5) options(na.action = "na.omit") expect_equivalent(fitted(res), c(4, 4, 4, 4, 4)) expect_equivalent(resid(res), c(-1, -2, 1, 0, 2)) expect_equivalent(predict(res)$pred, 4) expect_equivalent(blup(res)$pred, c(3.4, 2.8, 4.6, 4.0, 5.2)) expect_equivalent(cooks.distance(res), c(0.125, 0.5, 0.125, 0, 0.5)) expect_equivalent(dfbetas(res)[[1]], c(-0.3273, -0.8660, 0.3273, 0, 0.8660), tolerance=.tol[["inf"]]) expect_equivalent(hatvalues(res), c(0.2, 0.2, 0.2, 0.2, 0.2)) expect_equivalent(leave1out(res)$estimate, c(4.25, 4.5, 3.75, 4, 3.5)) expect_equivalent(ranef(res)$pred, c(-0.6, -1.2, 0.6, 0, 1.2)) expect_equivalent(rstandard(res)$resid, c(-1, -2, 1, 0, 2)) expect_equivalent(rstudent(res)$resid, c(-1.25, -2.5, 1.25, 0, 2.5)) expect_equivalent(length(simulate(res, seed=1234)[[1]]), 5) expect_equivalent(weights(res), c(20, 20, 20, 20, 20)) options(na.action = "na.pass") # note: all of these are of the same length as the original data (except for predict(), which gives a single value for intercept-only models) expect_equivalent(fitted(res), c(4, 4, 4, 4, 4, 4, 4)) # note: can compute fitted value even for the study with missing yi and the study with missing vi expect_equivalent(resid(res), c(NA, -3, -1, -2, 1, 0, 2)) # note: can compute residual value even for the study with missing vi expect_equivalent(predict(res)$pred, 4) expect_equivalent(blup(res)$pred, c(NA, NA, 3.4, 2.8, 4.6, 4.0, 5.2)) expect_equivalent(cooks.distance(res), c(NA, NA, 0.125, 0.5, 0.125, 0, 0.5)) expect_equivalent(dfbetas(res)[[1]], c(NA, NA, -0.3273, -0.8660, 0.3273, 0, 0.8660), tolerance=.tol[["inf"]]) expect_equivalent(hatvalues(res), c(NA, NA, 0.2, 0.2, 0.2, 0.2, 0.2)) expect_equivalent(leave1out(res)$estimate, c(NA, NA, 4.25, 4.5, 3.75, 4, 3.5)) expect_equivalent(ranef(res)$pred, c(NA, NA, -0.6, -1.2, 0.6, 0, 1.2)) expect_equivalent(rstandard(res)$resid, c(NA, NA, -1, -2, 1, 0, 2)) expect_equivalent(rstudent(res)$resid, c(NA, NA, -1.25, -2.5, 1.25, 0, 2.5)) expect_equivalent(length(simulate(res, seed=1234)[[1]]), 7) expect_equivalent(weights(res), c(NA, NA, 20, 20, 20, 20, 20)) options(na.action = "na.exclude") # note: all of these are of the same length as the original data, but are NA for studies 1 and 2 expect_equivalent(fitted(res), c(NA, NA, 4, 4, 4, 4, 4)) # note: all of these are of the same length as the original data, but are NA for studies 1 and 2 expect_equivalent(resid(res), c(NA, NA, -1, -2, 1, 0, 2)) expect_equivalent(predict(res)$pred, 4) expect_equivalent(blup(res)$pred, c(NA, NA, 3.4, 2.8, 4.6, 4.0, 5.2)) expect_equivalent(cooks.distance(res), c(NA, NA, 0.125, 0.5, 0.125, 0, 0.5)) expect_equivalent(dfbetas(res)[[1]], c(NA, NA, -0.3273, -0.8660, 0.3273, 0, 0.8660), tolerance=.tol[["inf"]]) expect_equivalent(hatvalues(res), c(NA, NA, 0.2, 0.2, 0.2, 0.2, 0.2)) expect_equivalent(leave1out(res)$estimate, c(NA, NA, 4.25, 4.5, 3.75, 4, 3.5)) expect_equivalent(ranef(res)$pred, c(NA, NA, -0.6, -1.2, 0.6, 0, 1.2)) expect_equivalent(rstandard(res)$resid, c(NA, NA, -1, -2, 1, 0, 2)) expect_equivalent(rstudent(res)$resid, c(NA, NA, -1.25, -2.5, 1.25, 0, 2.5)) expect_equivalent(length(simulate(res, seed=1234)[[1]]), 7) expect_equivalent(weights(res), c(NA, NA, 20, 20, 20, 20, 20)) options(na.action = "na.omit") }) test_that("NAs are correctly handled by various method functions for rma.uni() meta-regression models.", { expect_warning(res <- rma(yi, vi, mods = ~ xi, data=dat)) expect_equivalent(res$k, 4) options(na.action = "na.omit") expect_equivalent(fitted(res), c(2.6, 3.7, 4.8, 5.9)) expect_equivalent(resid(res), c(-0.6, 1.3, -0.8, 0.1)) expect_equivalent(predict(res)$pred, c(2.6, 3.7, 4.8, 5.9)) expect_equivalent(blup(res)$pred, c(2.4444, 4.0370, 4.5926, 5.9259), tolerance=.tol[["pred"]]) expect_equivalent(cooks.distance(res), c(2.0741, 0.7664, 0.2902, 0.0576), tolerance=.tol[["inf"]]) expect_equivalent(dfbetas(res)[[2]], c(1.0954, -0.4153, -0.1912, 0.1369), tolerance=.tol[["inf"]]) expect_equivalent(hatvalues(res), c(0.7, 0.3, 0.3, 0.7)) expect_equivalent(ranef(res)$pred, c(-0.1556, 0.3370, -0.2074, 0.0259), tolerance=.tol[["pred"]]) expect_equivalent(rstandard(res)$resid, c(-0.6, 1.3, -0.8, 0.1)) expect_equivalent(rstudent(res)$resid, c(-2, 1.8571, -1.1429, 0.3333), tolerance=.tol[["pred"]]) expect_equivalent(length(simulate(res, seed=1234)[[1]]), 4) expect_equivalent(weights(res), c(25, 25, 25, 25)) options(na.action = "na.pass") # note: all of these are of the same length as the original data expect_equivalent(fitted(res), c(-0.7, 0.4, NA, 2.6, 3.7, 4.8, 5.9)) # note: can compute fitted value even for the study with missing yi and the study with missing vi expect_equivalent(resid(res), c(NA, 0.6, NA, -0.6, 1.3, -0.8, 0.1)) # note: can compute residual value even for the study with missing vi expect_equivalent(predict(res)$pred, c(-0.7, 0.4, NA, 2.6, 3.7, 4.8, 5.9)) expect_equivalent(blup(res)$pred, c(NA, NA, NA, 2.4444, 4.0370, 4.5926, 5.9259), tolerance=.tol[["pred"]]) expect_equivalent(cooks.distance(res), c(NA, NA, NA, 2.0741, 0.7664, 0.2902, 0.0576), tolerance=.tol[["inf"]]) expect_equivalent(dfbetas(res)[[2]], c(NA, NA, NA, 1.0954, -0.4153, -0.1912, 0.1369), tolerance=.tol[["inf"]]) expect_equivalent(hatvalues(res), c(NA, NA, NA, 0.7, 0.3, 0.3, 0.7)) expect_equivalent(ranef(res)$pred, c(NA, NA, NA, -0.1556, 0.3370, -0.2074, 0.0259), tolerance=.tol[["pred"]]) expect_equivalent(rstandard(res)$resid, c(NA, NA, NA, -0.6, 1.3, -0.8, 0.1)) expect_equivalent(rstudent(res)$resid, c(NA, NA, NA, -2, 1.8571, -1.1429, 0.3333), tolerance=.tol[["pred"]]) expect_equivalent(length(simulate(res, seed=1234)[[1]]), 7) expect_equivalent(weights(res), c(NA, NA, NA, 25, 25, 25, 25)) options(na.action = "na.exclude") # note: all of these are of the same length as the original data, but are NA for studies 1, 2, and 3 expect_equivalent(fitted(res), c(NA, NA, NA, 2.6, 3.7, 4.8, 5.9)) expect_equivalent(resid(res), c(NA, NA, NA, -0.6, 1.3, -0.8, 0.1)) expect_equivalent(predict(res)$pred, c(NA, NA, NA, 2.6, 3.7, 4.8, 5.9)) expect_equivalent(blup(res)$pred, c(NA, NA, NA, 2.4444, 4.0370, 4.5926, 5.9259), tolerance=.tol[["pred"]]) expect_equivalent(cooks.distance(res), c(NA, NA, NA, 2.0741, 0.7664, 0.2902, 0.0576), tolerance=.tol[["inf"]]) expect_equivalent(dfbetas(res)[[2]], c(NA, NA, NA, 1.0954, -0.4153, -0.1912, 0.1369), tolerance=.tol[["inf"]]) expect_equivalent(hatvalues(res), c(NA, NA, NA, 0.7, 0.3, 0.3, 0.7)) expect_equivalent(ranef(res)$pred, c(NA, NA, NA, -0.1556, 0.3370, -0.2074, 0.0259), tolerance=.tol[["pred"]]) expect_equivalent(rstandard(res)$resid, c(NA, NA, NA, -0.6, 1.3, -0.8, 0.1)) expect_equivalent(rstudent(res)$resid, c(NA, NA, NA, -2, 1.8571, -1.1429, 0.3333), tolerance=.tol[["pred"]]) expect_equivalent(length(simulate(res, seed=1234)[[1]]), 7) expect_equivalent(weights(res), c(NA, NA, NA, 25, 25, 25, 25)) options(na.action = "na.omit") }) test_that("NAs are correctly handled by rma.mv() intercept-only models.", { dat <- dat.konstantopoulos2011 res1 <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, sparse=.sparse) res2 <- rma.mv(yi, vi, random = ~ factor(study) | district, data=dat, sparse=.sparse) expect_equivalent(logLik(res1), logLik(res2), tolerance=.tol[["fit"]]) dat$yi[1:2] <- NA expect_warning(res1 <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, sparse=.sparse)) expect_warning(res2 <- rma.mv(yi, vi, random = ~ factor(study) | district, data=dat, sparse=.sparse)) expect_equivalent(logLik(res1), logLik(res2), tolerance=.tol[["fit"]]) dat$yi[1:4] <- NA # entire district 11 is missing expect_warning(res1 <- rma.mv(yi, vi, random = ~ 1 | district/study, data=dat, sparse=.sparse)) expect_warning(res2 <- rma.mv(yi, vi, random = ~ factor(study) | district, data=dat, sparse=.sparse)) expect_equivalent(logLik(res1), logLik(res2), tolerance=.tol[["fit"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_morris2008.r0000644000176200001440000000741414712730445023413 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:morris2008 context("Checking analysis example: morris2008") source("settings.r") ### create datasets datT <- data.frame( m_pre = c(30.6, 23.5, 0.5, 53.4, 35.6), m_post = c(38.5, 26.8, 0.7, 75.9, 36.0), sd_pre = c(15.0, 3.1, 0.1, 14.5, 4.7), sd_post = c(11.6, 4.1, 0.1, 4.4, 4.6), ni = c(20, 50, 9, 10, 14), ri = c(.47, .64, .77, .89, .44)) datC <- data.frame( m_pre = c(23.1, 24.9, 0.6, 55.7, 34.8), m_post = c(19.7, 25.3, 0.6, 60.7, 33.4), sd_pre = c(13.8, 4.1, 0.2, 17.3, 3.1), sd_post = c(14.8, 3.3, 0.2, 17.9, 6.9), ni = c(20, 42, 9, 11, 14), ri = c(.47, .64, .77, .89, .44)) test_that("calculations of escalc() are correct for measure='SMCR'.", { ### compute standardized mean changes using raw-score standardization datT <- escalc(measure="SMCR", m1i=m_post, m2i=m_pre, sd1i=sd_pre, ni=ni, ri=ri, data=datT) datC <- escalc(measure="SMCR", m1i=m_post, m2i=m_pre, sd1i=sd_pre, ni=ni, ri=ri, data=datC) ### (results for this not given in paper) expect_equivalent(datT$yi, c( 0.5056, 1.0481, 1.8054, 1.4181, 0.0801), tolerance=.tol[["est"]]) expect_equivalent(datT$vi, c( 0.0594, 0.0254, 0.2322, 0.1225, 0.0802), tolerance=.tol[["var"]]) expect_equivalent(datC$yi, c(-0.2365, 0.0958, 0.0000, 0.2667, -0.4250), tolerance=.tol[["est"]]) expect_equivalent(datC$vi, c( 0.0544, 0.0173, 0.0511, 0.0232, 0.0864), tolerance=.tol[["var"]]) ### compute difference between treatment and control groups dat <- data.frame(yi = datT$yi - datC$yi, vi = datT$vi + datC$vi) ### compare with results on page 382 (Table 5) expect_equivalent(dat$yi, c(0.7421, 0.9524, 1.8054, 1.1514, 0.5050), tolerance=.tol[["est"]]) ### (results for this not given in paper) expect_equivalent(dat$vi, c(0.1138, 0.0426, 0.2833, 0.1458, 0.1667), tolerance=.tol[["var"]]) ### use pooled pretest SDs sd_pool <- sqrt((with(datT, (ni-1)*sd_pre^2) + with(datC, (ni-1)*sd_pre^2)) / (datT$ni + datC$ni - 2)) dat <- data.frame(yi = metafor:::.cmicalc(datT$ni + datC$ni - 2) * (with(datT, m_post - m_pre) - with(datC, m_post - m_pre)) / sd_pool) dat$vi <- 2*(1-datT$ri) * (1/datT$ni + 1/datC$ni) + dat$yi^2 / (2*(datT$ni + datC$ni)) ### compare with results on page 382 (Table 5) expect_equivalent(dat$yi, c(0.7684, 0.8010, 1.2045, 1.0476, 0.4389), tolerance=.tol[["est"]]) ### (results for this not given in paper) expect_equivalent(dat$vi, c(0.1134, 0.0350, 0.1425, 0.0681, 0.1634), tolerance=.tol[["var"]]) }) test_that("calculations of escalc() are correct for measure='SMCC'.", { ### compute standardized mean changes using change-score standardization datT <- escalc(measure="SMCC", m1i=m_post, m2i=m_pre, sd1i=sd_post, sd2i=sd_pre, ni=ni, ri=ri, data=datT) datC <- escalc(measure="SMCC", m1i=m_post, m2i=m_pre, sd1i=sd_post, sd2i=sd_pre, ni=ni, ri=ri, data=datC) ### (results for this not given in paper) expect_equivalent(datT$yi, c( 0.5417, 1.0198, 2.6619, 1.9088, 0.0765), tolerance=.tol[["est"]]) expect_equivalent(datT$vi, c( 0.0573, 0.0304, 0.5048, 0.2822, 0.0716), tolerance=.tol[["var"]]) expect_equivalent(datC$yi, c(-0.2213, 0.1219, 0.0000, 0.5575, -0.2126), tolerance=.tol[["est"]]) expect_equivalent(datC$vi, c( 0.0512, 0.0240, 0.1111, 0.1050, 0.0730), tolerance=.tol[["var"]]) ### compute difference between treatment and control groups dat <- data.frame(yi = datT$yi - datC$yi, vi = datT$vi + datC$vi) ### (results for this not given in paper) expect_equivalent(dat$yi, c(0.7630, 0.8979, 2.6619, 1.3513, 0.2891), tolerance=.tol[["est"]]) expect_equivalent(dat$vi, c(0.1086, 0.0544, 0.6159, 0.3872, 0.1447), tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_aggregate.r0000644000176200001440000001221514712730651021103 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: aggregate() function") source("settings.r") test_that("aggregate() works correctly for 'dat.konstantopoulos2011'.", { dat <- dat.konstantopoulos2011 agg <- aggregate(dat, cluster=district, struct="ID", addk=TRUE) expect_equivalent(c(agg$yi), c(-0.125687, 0.06654, 0.350303, 0.499691, 0.051008, -0.041842, 0.885529, -0.02875, 0.250475, 0.015033, 0.161917), tolerance=.tol[["est"]]) expect_equivalent(c(agg$vi), c(0.032427, 0.003981, 0.006664, 0.001443, 0.001549, 0.000962, 0.003882, 0.000125, 0.001799, 0.006078, 0.018678), tolerance=.tol[["var"]]) agg <- aggregate(dat, cluster=district, struct="ID", weighted=FALSE, subset=district!=12) expect_equivalent(c(agg$yi), c(-0.1175, 0.373333, 0.4425, 0.0625, -0.077273, 0.823333, -0.02875, 0.246667, 0.016, 0.18), tolerance=.tol[["est"]]) expect_equivalent(c(agg$vi), c(0.03275, 0.008667, 0.002187, 0.002187, 0.001273, 0.004, 0.000125, 0.001833, 0.00608, 0.018938), tolerance=.tol[["var"]]) }) test_that("aggregate() works correctly for 'dat.assink2016'.", { dat <- dat.assink2016 dat <- escalc(yi=yi, vi=vi, data=dat) agg <- aggregate(dat, cluster=study, rho=0.6) expect_equivalent(c(agg$yi), c(0.162877, 0.406036, 1.079003, -0.0447, 1.549, -0.054978, 1.007244, 0.3695, 0.137862, 0.116737, 0.525765, 0.280461, 0.301829, 0.035593, 0.090821, 0.018099, -0.055203), tolerance=.tol[["est"]]) expect_equivalent(c(agg$vi), c(0.019697, 0.005572, 0.083174, 0.0331, 0.1384, 0.02139, 0.054485, 0.0199, 0.027057, 0.010729, 0.011432, 0.002814, 0.011, 0.001435, 0.126887, 0.016863, 0.007215), tolerance=.tol[["var"]]) V <- vcalc(vi, cluster=study, obs=esid, data=dat, rho=0.6) agg <- aggregate(dat, cluster=study, V=V) expect_equivalent(c(agg$yi), c(0.162877, 0.406036, 1.079003, -0.0447, 1.549, -0.054978, 1.007244, 0.3695, 0.137862, 0.116737, 0.525765, 0.280461, 0.301829, 0.035593, 0.090821, 0.018099, -0.055203), tolerance=.tol[["est"]]) expect_equivalent(c(agg$vi), c(0.019697, 0.005572, 0.083174, 0.0331, 0.1384, 0.02139, 0.054485, 0.0199, 0.027057, 0.010729, 0.011432, 0.002814, 0.011, 0.001435, 0.126887, 0.016863, 0.007215), tolerance=.tol[["var"]]) V <- vcalc(vi, cluster=study, obs=esid, data=dat, rho=0.6) res <- rma.mv(yi, V, random = ~ 1 | study/esid, data=dat) agg <- aggregate(dat, cluster=study, V=vcov(res, type="obs")) expect_equivalent(c(agg$yi), c(0.286465, 0.445671, 1.25335, -0.0447, 1.549, 0.08437, 0.845211, 0.3695, 0.139644, 0.176455, 1.053596, 0.281093, 0.302574, 0.051816, 0.10101, 0.077539, 0.068278), tolerance=.tol[["est"]]) expect_equivalent(c(agg$vi), c(0.137059, 0.138413, 0.214471, 0.268376, 0.373676, 0.152661, 0.169315, 0.255176, 0.18508, 0.130173, 0.117845, 0.114457, 0.169005, 0.114346, 0.264118, 0.123989, 0.117208), tolerance=.tol[["var"]]) }) test_that("aggregate() works correctly for 'dat.ishak2007'.", { dat <- dat.ishak2007 dat <- reshape(dat.ishak2007, direction="long", idvar="study", v.names=c("yi","vi"), varying=list(c(2,4,6,8), c(3,5,7,9))) dat <- dat[order(study, time),] dat <- dat[!is.na(yi),] rownames(dat) <- NULL agg <- aggregate(dat, cluster=study, struct="CAR", time=time, phi=0.9) expect_equivalent(c(agg$yi), c(-33.4, -28.137183, -21.1, -17.22908, -32.9, -26.342019, -31.37934, -25, -36, -21.275427, -8.6, -28.830656, -28.00566, -35.277625, -28.02381, -24.818713, -36.3, -29.4, -33.552998, -20.6, -33.9, -35.4, -34.9, -32.7, -26.471326, -32.753685, -18.412199, -29.2, -31.7, -32.46738, -31.7, -35.274832, -30.189494, -17.6, -22.9, -36, -22.5, -20.67624, -9.3, -25.52315, -16.7, -29.440786, -31.221009, -20.73355, -37.982183, -22.1), tolerance=.tol[["est"]]) expect_equivalent(c(agg$vi), c(14.3, 5.611511, 7.3, 4.562371, 125, 4.132918, 86.117899, 17, 5, 6.308605, 41, 20.229622, 7.743863, 5.632795, 3.438095, 12.975915, 27.3, 10.7, 1.895013, 25.3, 20.1, 21.2, 18, 16.3, 29.751824, 9.417499, 5.156788, 5.8, 12.4, 24.954806, 19.1, 17.528303, 8.508767, 28.4, 20, 27.7, 20.3, 1.379225, 85.2, 15.281948, 9.8, 179.802277, 3.317364, 15.082821, 20.888464, 40.8), tolerance=.tol[["var"]]) V <- vcalc(vi, cluster=study, time1=time, data=dat, phi=0.9) agg <- aggregate(dat, cluster=study, V=V) expect_equivalent(c(agg$yi), c(-33.4, -28.137183, -21.1, -17.22908, -32.9, -26.342019, -31.37934, -25, -36, -21.275427, -8.6, -28.830656, -28.00566, -35.277625, -28.02381, -24.818713, -36.3, -29.4, -33.552998, -20.6, -33.9, -35.4, -34.9, -32.7, -26.471326, -32.753685, -18.412199, -29.2, -31.7, -32.46738, -31.7, -35.274832, -30.189494, -17.6, -22.9, -36, -22.5, -20.67624, -9.3, -25.52315, -16.7, -29.440786, -31.221009, -20.73355, -37.982183, -22.1), tolerance=.tol[["est"]]) expect_equivalent(c(agg$vi), c(14.3, 5.611511, 7.3, 4.562371, 125, 4.132918, 86.117899, 17, 5, 6.308605, 41, 20.229622, 7.743863, 5.632795, 3.438095, 12.975915, 27.3, 10.7, 1.895013, 25.3, 20.1, 21.2, 18, 16.3, 29.751824, 9.417499, 5.156788, 5.8, 12.4, 24.954806, 19.1, 17.528303, 8.508767, 28.4, 20, 27.7, 20.3, 1.379225, 85.2, 15.281948, 9.8, 179.802277, 3.317364, 15.082821, 20.888464, 40.8), tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_viechtbauer2005.r0000644000176200001440000000652414712730523024374 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:viechtbauer2005 context("Checking analysis example: viechtbauer2005") source("settings.r") ### create dataset for example 1 dat <- data.frame( id=1:10, yi = c(-0.581, 0.530, 0.771, 1.031, 0.553, 0.295, 0.078, 0.573, -0.176, -0.232), vi = c(0.023, 0.052, 0.060, 0.115, 0.095, 0.203, 0.200, 0.211, 0.051, 0.040)) test_that("results are correct for example 1.", { res.HS <- rma(yi, vi, data=dat, method="HS") res.HE <- rma(yi, vi, data=dat, method="HE") res.DL <- rma(yi, vi, data=dat, method="DL") res.ML <- rma(yi, vi, data=dat, method="ML") res.REML <- rma(yi, vi, data=dat, method="REML") res.EB <- rma(yi, vi, data=dat, method="EB") res.SJ <- rma(yi, vi, data=dat, method="SJ") res <- list(res.HS, res.HE, res.DL, res.ML, res.REML, res.EB, res.SJ) res <- data.frame(method=sapply(res, function(x) x$method), tau2=sapply(res, function(x) x$tau2), I2=sapply(res, function(x) x$I2), H2=sapply(res, function(x) x$H2), se.tau2=sapply(res, function(x) x$se.tau2)) ### compare with results on page 271 expect_equivalent(res$tau2, c(0.2282, 0.1484, 0.2768, 0.1967, 0.2232, 0.192, 0.1992), tolerance=.tol[["var"]]) expect_equivalent(res$I2, c(77.2284, 68.7988, 80.4447, 74.5098, 76.8399, 74.0511, 74.7545), tolerance=.tol[["het"]]) expect_equivalent(res$H2, c(4.3914, 3.205, 5.1137, 3.9231, 4.3178, 3.8537, 3.9611), tolerance=.tol[["het"]]) expect_equivalent(res$se.tau2, c(0.1328, 0.1234, 0.1841, 0.1255, 0.1464, 0.133, 0.0979), tolerance=.tol[["sevar"]]) }) ### create dataset for example 2 dat <- data.frame( id=1:18, yi = c(0.100, -0.162, -0.090, -0.049, -0.046, -0.010, -0.431, -0.261, 0.134, 0.019, 0.175, 0.056, 0.045, 0.103, 0.121, -0.482, 0.290, 0.342), vi = c(0.016, 0.015, 0.050, 0.050, 0.032, 0.052, 0.036, 0.024, 0.034, 0.033, 0.031, 0.034, 0.039, 0.167, 0.134, 0.096, 0.016, 0.035)) test_that("results are correct for example 2.", { res.HS <- rma(yi, vi, data=dat, method="HS") res.HE <- rma(yi, vi, data=dat, method="HE") res.DL <- rma(yi, vi, data=dat, method="DL") res.ML <- rma(yi, vi, data=dat, method="ML") res.REML <- rma(yi, vi, data=dat, method="REML") res.EB <- rma(yi, vi, data=dat, method="EB") res.SJ <- rma(yi, vi, data=dat, method="SJ") res <- list(res.HS, res.HE, res.DL, res.ML, res.REML, res.EB, res.SJ) res <- data.frame(method=sapply(res, function(x) x$method), tau2=sapply(res, function(x) x$tau2), I2=sapply(res, function(x) x$I2), H2=sapply(res, function(x) x$H2), se.tau2=sapply(res, function(x) x$se.tau2)) ### compare with results on page 272 expect_equivalent(res$tau2, c(0.0099, 0, 0.0126, 0.0132, 0.0157, 0.0104, 0.0248), tolerance=.tol[["var"]]) expect_equivalent(res$I2, c(22.9266, 0, 27.5275, 28.4505, 32.0203, 23.7198, 42.6734), tolerance=.tol[["het"]]) expect_equivalent(res$H2, c(1.2975, 1, 1.3798, 1.3976, 1.471, 1.311, 1.7444), tolerance=.tol[["het"]]) expect_equivalent(res$se.tau2, c(0.0138, 0.0217, 0.0159, 0.0151, 0.0167, 0.0156, 0.0118), tolerance=.tol[["sevar"]]) }) rm(list=ls()) metafor/tests/testthat/test_plots_radial_plot.r0000644000176200001440000000173414762055422021662 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:radial_plot source("settings.r") context("Checking plots example: radial (Galbraith) plot") test_that("plot can be drawn.", { skip_on_cran() res <- rma(yi, vi, data=dat.hackshaw1998, method="EE") png("images/test_plots_radial_plot_light_test.png", res=200, width=1800, height=1800, type="cairo") par(mar=c(5,4,0,3)) radial(res) dev.off() expect_true(.vistest("images/test_plots_radial_plot_light_test.png", "images/test_plots_radial_plot_light.png")) png("images/test_plots_radial_plot_dark_test.png", res=200, width=1800, height=1800, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,0,3)) radial(res) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_radial_plot_dark_test.png", "images/test_plots_radial_plot_dark.png")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_berkey1995.r0000644000176200001440000000552614712730366023403 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:berkey1995 source("settings.r") context("Checking analysis example: berkey1995") ### calculate log ratio ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### calculate "smoothed" sampling variances dat$vi <- with(dat, sum(tneg/tpos)/(13*(tneg+tpos)) + sum(cneg/cpos)/(13*(cneg+cpos))) test_that("results are correct for the random-effects model.", { ### fit random-effects model using empirical Bayes method res.RE <- rma(yi, vi, data=dat, method="EB") out <- capture.output(print(res.RE)) ### so that print.rma.uni() is run (at least once) out <- capture.output(print(summary(res.RE))) ### so that print.summary.rma() is run (at least once) ### compare with results on page 408 expect_equivalent(coef(res.RE), -0.5429, tolerance=.tol[["coef"]]) expect_equivalent(se(res.RE), 0.1842, tolerance=.tol[["se"]]) expect_equivalent(res.RE$tau2, 0.2682, tolerance=.tol[["var"]]) }) test_that("results are correct for the mixed-effects meta-regression model.", { ### fit random-effects model using empirical Bayes method res.RE <- rma(yi, vi, data=dat, method="EB") ### fit mixed-effects model with absolute latitude as moderator res.ME <- rma(yi, vi, mods=~I(ablat-33.46), data=dat, method="EB") out <- capture.output(print(res.ME)) ### compare with results on page 408 expect_equivalent(coef(res.ME), c(-0.6303, -0.0268), tolerance=.tol[["coef"]]) ### -0.6304 in article expect_equivalent(se(res.ME), c(0.1591, 0.0110), tolerance=.tol[["se"]]) expect_equivalent(res.ME$tau2, 0.1572, tolerance=.tol[["var"]]) expect_warning(tmp <- anova(res.RE, res.ME)) expect_equivalent(tmp$R2, 41.3844, tolerance=.tol[["r2"]]) ### predicted average risk ratios tmp <- predict(res.ME, newmods=c(33.46,42)-33.46, transf=exp, digits=2) ### compare with results on page 408 expect_equivalent(tmp$pred, c(0.5324, 0.4236), tolerance=.tol[["pred"]]) }) test_that("results are correct for the fixed-effects meta-regression model.", { ### fit fixed-effects model with absolute latitude as moderator res.FE <- rma(yi, vi, mods=~I(ablat-33.46), data=dat, method="FE") ### compare with results on page 408 expect_equivalent(coef(res.FE), c(-0.5949, -0.0282), tolerance=.tol[["coef"]]) ### -0.5950 in article expect_equivalent(se(res.FE), c(0.0696, 0.0040), tolerance=.tol[["se"]]) ### 0.0039 in article ### predicted risk ratios based on the fixed-effects model tmp <- predict(res.FE, newmods=c(33.46,42)-33.46, transf=exp, digits=2) ### compare with results on page 408 expect_equivalent(tmp$pred, c(0.5516, 0.4336), tolerance=.tol[["pred"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_rma_uni.r0000644000176200001440000000632114712730610020603 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma() function") source("settings.r") dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) test_that("rma() correctly handles a formula for the 'yi' argument", { res1 <- rma(yi ~ ablat, vi, data=dat) res2 <- rma(yi, vi, mods = ~ ablat, data=dat) expect_equivalent(coef(res1), coef(res2)) }) test_that("rma() correctly handles an 'escalc' object", { res1 <- rma(yi, vi, data=dat) res2 <- rma(dat) expect_equivalent(coef(res1), coef(res2)) }) test_that("rma() works with method='DLIT' and method='SJIT'", { res <- rma(yi, vi, data=dat, method="DLIT") expect_equivalent(res$tau2, 0.3181, tolerance=.tol[["var"]]) res <- rma(yi, vi, data=dat, method="SJIT") expect_equivalent(res$tau2, 0.3181, tolerance=.tol[["var"]]) }) test_that("rma() works directly with input for measure='SMD'", { dat <- dat.normand1999 dat <- escalc(measure="SMD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) res1 <- rma(yi, vi, data=dat) res2 <- rma(measure="SMD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) expect_equivalent(res1$tau2, 1.0090, tolerance=.tol[["var"]]) expect_equivalent(res2$tau2, 1.0090, tolerance=.tol[["var"]]) }) test_that("rma() works directly with input for measure='PCOR'", { dat <- dat.aloe2013 dat <- escalc(measure="PCOR", ti=tval, ni=n, mi=preds, data=dat) res1 <- rma(yi, vi, data=dat) res2 <- rma(measure="PCOR", ti=tval, ni=n, mi=preds, data=dat) expect_equivalent(res1$tau2, 0.0298, tolerance=.tol[["var"]]) expect_equivalent(res2$tau2, 0.0298, tolerance=.tol[["var"]]) }) test_that("rma() works directly with input for measure='MN'", { dat <- dat.normand1999 dat <- escalc(measure="MN", mi=m1i, sdi=sd1i, ni=n1i, data=dat) res1 <- rma(yi, vi, data=dat) res2 <- rma(measure="MN", mi=m1i, sdi=sd1i, ni=n1i, data=dat) expect_equivalent(res1$tau2, 408.9277, tolerance=.tol[["var"]]) expect_equivalent(res2$tau2, 408.9277, tolerance=.tol[["var"]]) }) test_that("rma() works directly with input for measure='SMCR'", { datT <- data.frame( m_pre = c(30.6, 23.5, 0.5, 53.4, 35.6), m_post = c(38.5, 26.8, 0.7, 75.9, 36.0), sd_pre = c(15.0, 3.1, 0.1, 14.5, 4.7), sd_post = c(11.6, 4.1, 0.1, 4.4, 4.6), ni = c(20, 50, 9, 10, 14), ri = c(.47, .64, .77, .89, .44)) dat <- escalc(measure="SMCR", m1i=m_post, m2i=m_pre, sd1i=sd_pre, ni=ni, ri=ri, data=datT) res1 <- rma(yi, vi, data=dat) res2 <- rma(measure="SMCR", m1i=m_post, m2i=m_pre, sd1i=sd_pre, ni=ni, ri=ri, data=datT) expect_equivalent(res1$tau2, 0.3164, tolerance=.tol[["var"]]) expect_equivalent(res2$tau2, 0.3164, tolerance=.tol[["var"]]) }) test_that("rma() works directly with input for measure='AHW'", { dat <- dat.bonett2010 dat <- escalc(measure="AHW", ai=ai, mi=mi, ni=ni, data=dat) res1 <- rma(yi, vi, data=dat) res2 <- rma(measure="AHW", ai=ai, mi=mi, ni=ni, data=dat) expect_equivalent(res1$tau2, 0.0011, tolerance=.tol[["var"]]) expect_equivalent(res2$tau2, 0.0011, tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_fitstats.r0000644000176200001440000000706514712730640021023 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: computations of fit statistics") source("settings.r") test_that("fit statistics are correct for rma.uni().", { ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random- and mixed-effects models (with ML estimation) res1 <- rma(yi, vi, data=dat, method="ML") res2 <- rma(yi ~ ablat, vi, data=dat, method="ML") tmp <- c(logLik(res1)) expect_equivalent(tmp, -12.6651, tolerance=.tol[["fit"]]) expect_equivalent(tmp, sum(dnorm(dat$yi, coef(res1), sqrt(dat$vi+res1$tau2), log=TRUE)), tolerance=.tol[["fit"]]) tmp <- deviance(res1) expect_equivalent(tmp, 37.1160, tolerance=.tol[["fit"]]) expect_equivalent(tmp, -2 * (sum(dnorm(dat$yi, coef(res1), sqrt(dat$vi+res1$tau2), log=TRUE)) - sum(dnorm(dat$yi, dat$yi, sqrt(dat$vi), log=TRUE))), tolerance=.tol[["fit"]]) tmp <- AIC(res1) expect_equivalent(tmp, 29.3302, tolerance=.tol[["fit"]]) expect_equivalent(tmp, -2 * sum(dnorm(dat$yi, coef(res1), sqrt(dat$vi+res1$tau2), log=TRUE)) + 2*2, tolerance=.tol[["fit"]]) tmp <- AIC(res1, res2) expect_equivalent(tmp, structure(list(df = c(2, 3), AIC = c(29.3302, 21.3713)), .Names = c("df", "AIC"), row.names = c("res1", "res2"), class = "data.frame"), tolerance=.tol[["fit"]]) tmp <- BIC(res1) expect_equivalent(tmp, 30.4601, tolerance=.tol[["fit"]]) expect_equivalent(tmp, -2 * sum(dnorm(dat$yi, coef(res1), sqrt(dat$vi+res1$tau2), log=TRUE)) + 2*log(res1$k), tolerance=.tol[["fit"]]) tmp <- BIC(res1, res2) expect_equivalent(tmp, structure(list(df = c(2, 3), BIC = c(30.4601, 23.0662)), .Names = c("df", "BIC"), row.names = c("res1", "res2"), class = "data.frame"), tolerance=.tol[["fit"]]) tmp <- c(fitstats(res1)) expect_equivalent(tmp, c(-12.6651, 37.1160, 29.3302, 30.4601, 30.5302), tolerance=.tol[["fit"]]) tmp <- fitstats(res1, res2) expect_equivalent(tmp, structure(list(res1 = c(-12.6651, 37.116, 29.3302, 30.4601, 30.5302), res2 = c(-7.6857, 27.1572, 21.3713, 23.0662, 24.038)), .Names = c("res1", "res2"), row.names = c("logLik:", "deviance:", "AIC:", "BIC:", "AICc:"), class = "data.frame"), tolerance=.tol[["fit"]]) tmp <- nobs(res1) expect_equivalent(tmp, 13) tmp <- df.residual(res1) expect_equivalent(tmp, 12) }) test_that("fit statistics are correct for rma.mv().", { ### load data dat <- dat.berkey1998 ### construct variance-covariance matrix of the observed outcomes V <- bldiag(lapply(split(dat[,c("v1i", "v2i")], dat$trial), as.matrix)) ### multiple outcomes random-effects model (with ML estimation) res <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat, method="ML", sparse=.sparse) tmp <- c(logLik(res)) expect_equivalent(tmp, 5.8407, tolerance=.tol[["fit"]]) tmp <- deviance(res) expect_equivalent(tmp, 25.6621, tolerance=.tol[["fit"]]) tmp <- AIC(res) expect_equivalent(tmp, -1.6813, tolerance=.tol[["fit"]]) expect_equivalent(tmp, -2 * c(logLik(res)) + 2*5, tolerance=.tol[["fit"]]) tmp <- BIC(res) expect_equivalent(tmp, -0.1684, tolerance=.tol[["fit"]]) expect_equivalent(tmp, -2 * c(logLik(res)) + 5*log(res$k), tolerance=.tol[["fit"]]) tmp <- c(fitstats(res)) expect_equivalent(tmp, c(5.8407, 25.6621, -1.6813, -0.1684, 13.3187), tolerance=.tol[["fit"]]) tmp <- nobs(res) expect_equivalent(tmp, 10) tmp <- df.residual(res) expect_equivalent(tmp, 8) }) rm(list=ls()) metafor/tests/testthat/test_tips_regression_with_rma.r0000644000176200001440000000405214712730561023253 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/tips:regression_with_rma context("Checking tip: rma() results match up with those from lm()") source("settings.r") test_that("results for rma() and lm() match for method='FE'.", { stackloss$vi <- 0 res.lm <- lm(stack.loss ~ Air.Flow + Water.Temp + Acid.Conc., data=stackloss) res.rma <- rma(stack.loss, vi, mods = ~ Air.Flow + Water.Temp + Acid.Conc., data=stackloss, test="knha", control=list(REMLf=FALSE)) ### log likelihood (REML) should be the same expect_equivalent(logLik(res.lm, REML=TRUE), logLik(res.rma), tolerance=.tol[["fit"]]) ### coefficients should be the same expect_equivalent(coef(res.lm), coef(res.rma), tolerance=.tol[["coef"]]) ### var-cov matrix should be the same expect_equivalent(matrix(vcov(res.lm), nrow=4, ncol=4), matrix(vcov(res.rma), nrow=4, ncol=4), tolerance=.tol[["var"]]) ### fitted values should be the same expect_equivalent(fitted(res.lm), fitted(res.rma), tolerance=.tol[["pred"]]) ### standardized residuals should be the same expect_equivalent(rstandard(res.lm), rstandard(res.rma)$z, tolerance=.tol[["test"]]) ### studentized residuals should be the same expect_equivalent(rstudent(res.lm), rstudent(res.rma)$z, tolerance=.tol[["test"]]) ### hat values should be the same expect_equivalent(hatvalues(res.lm), hatvalues(res.rma), tolerance=.tol[["inf"]]) ### dffits should be the same expect_equivalent(dffits(res.lm), influence(res.rma)$inf$dffits, tolerance=.tol[["inf"]]) ### covratios should be the same expect_equivalent(covratio(res.lm), influence(res.rma)$inf$cov.r, tolerance=.tol[["inf"]]) ### dfbetas should be the same expect_equivalent(as.matrix(dfbetas(res.lm)), as.matrix(dfbetas(res.rma)), tolerance=.tol[["inf"]]) ### Cook's distancs should differ by a factor of p expect_equivalent(cooks.distance(res.lm), cooks.distance(res.rma)/res.rma$p, tolerance=.tol[["inf"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_vec2mat.r0000644000176200001440000000166614712730600020520 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: vec2mat() function") source("settings.r") test_that("vec2mat() works correctly.", { sav <- vec2mat(1:6, corr=FALSE) expect_identical(sav, structure(c(NA, 1, 2, 3, 1, NA, 4, 5, 2, 4, NA, 6, 3, 5, 6, NA), .Dim = c(4L, 4L))) sav <- vec2mat(round(seq(0.2, 0.7, by=0.1), 1), corr=TRUE) expect_identical(sav, structure(c(1, 0.2, 0.3, 0.4, 0.2, 1, 0.5, 0.6, 0.3, 0.5, 1, 0.7, 0.4, 0.6, 0.7, 1), .Dim = c(4L, 4L))) sav <- vec2mat(1:10, diag=TRUE) expect_identical(sav, structure(c(1, 2, 3, 4, 2, 5, 6, 7, 3, 6, 8, 9, 4, 7, 9, 10), .Dim = c(4L, 4L))) sav <- vec2mat(1:6, corr=FALSE, dimnames=c("A","B","C","D")) expect_identical(sav, structure(c(NA, 1, 2, 3, 1, NA, 4, 5, 2, 4, NA, 6, 3, 5, 6, NA), .Dim = c(4L, 4L), .Dimnames = list(c("A", "B", "C", "D"), c("A", "B", "C", "D")))) }) rm(list=ls()) metafor/tests/testthat/test_misc_escalc.r0000644000176200001440000004256714712730640020422 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: escalc() function") source("settings.r") test_that("escalc() works correctly for measure='RR'", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) expect_equivalent(dat$yi[1], -0.8893, tolerance=.tol[["est"]]) expect_equivalent(dat$vi[1], 0.3256, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='PHI/YUQ/YUY/RTET/PBIT/OR2D/OR2DN'", { ### see Table 13.4 (p. 242) in the Handbook of Research Synthesis and Meta-Analysis dat <- escalc(measure="PHI", ai=135, bi=15, ci=40, di=10) sav <- summary(dat) expect_equivalent(sav$yi, 0.1309, tolerance=.tol[["est"]]) expect_equivalent(sav$sei, 0.0789, tolerance=.tol[["var"]]) dat <- escalc(measure="YUQ", ai=135, bi=15, ci=40, di=10) sav <- summary(dat) expect_equivalent(sav$yi, 0.3846, tolerance=.tol[["est"]]) expect_equivalent(sav$sei, 0.1901, tolerance=.tol[["var"]]) dat <- escalc(measure="YUY", ai=135, bi=15, ci=40, di=10) sav <- summary(dat) expect_equivalent(sav$yi, 0.2000, tolerance=.tol[["est"]]) expect_equivalent(sav$sei, 0.1071, tolerance=.tol[["var"]]) dat <- escalc(measure="RTET", ai=135, bi=15, ci=40, di=10) sav <- summary(dat) expect_equivalent(sav$yi, 0.2603, tolerance=.tol[["est"]]) expect_equivalent(sav$sei, 0.1423, tolerance=.tol[["var"]]) dat <- escalc(measure="PBIT", ai=135, bi=15, ci=40, di=10) sav <- summary(dat) expect_equivalent(sav$yi, 0.4399, tolerance=.tol[["est"]]) expect_equivalent(sav$sei, 0.2456, tolerance=.tol[["var"]]) dat <- escalc(measure="OR2D", ai=135, bi=15, ci=40, di=10) sav <- summary(dat) expect_equivalent(sav$yi, 0.4471, tolerance=.tol[["est"]]) expect_equivalent(sav$sei, 0.2460, tolerance=.tol[["var"]]) dat <- escalc(measure="OR2DN", ai=135, bi=15, ci=40, di=10) sav <- summary(dat) expect_equivalent(sav$yi, 0.4915, tolerance=.tol[["est"]]) expect_equivalent(sav$sei, 0.2704, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='SMD/SMDH/ROM'", { dat <- dat.normand1999 sav <- escalc(measure="SMD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) expect_equivalent(sav$yi, c(-0.3552, -0.3479, -2.3176, -1.8880), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c( 0.0131, 0.0645, 0.0458, 0.1606), tolerance=.tol[["var"]]) sav <- escalc(measure="SMDH", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) expect_equivalent(sav$yi, c(-0.3553, -0.3465, -2.3018, -1.8880), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c( 0.0132, 0.0674, 0.0515, 0.1961), tolerance=.tol[["var"]]) sav <- escalc(measure="ROM", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) expect_equivalent(sav$yi, c(-0.3102, -0.0715, -0.6202, -0.7303), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c( 0.0094, 0.0028, 0.0018, 0.0119), tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='CLES/AUC/CLESN/AUCN'", { # dataset Table 1 from Hanley & McNeil (1982) dat <- data.frame(status = rep(c(0,1), times=c(58,51)), x = c(rep(1:5, times=c(33,6,6,11,2)), rep(1:5, times=c(3,2,2,11,33)))) n1 <- sum(dat$status == 1) n0 <- sum(dat$status == 0) x1 <- dat$x[dat$status == 1] x0 <- dat$x[dat$status == 0] mean1 <- mean(x1) mean0 <- mean(x0) sd1 <- sd(x1) sd0 <- sd(x0) auc <- (mean(rank(c(x1,x0))[1:n1]) - mean(rank(c(x1,x0))[(n1+1):(n1+n0)])) / (n1+n0) + 1/2 sav <- escalc(measure="AUC", ai=auc, n1i=n1, n2i=n0) expect_equivalent(sav$yi, 0.893171, tolerance=.tol[["est"]]) expect_equivalent(sav$vi, 0.001051, tolerance=.tol[["var"]]) sav <- escalc(measure="AUC", ai=auc, n1i=n1, n2i=n0, vtype="LS2") expect_equivalent(sav$yi, 0.893171, tolerance=.tol[["est"]]) expect_equivalent(sav$vi, 0.001096, tolerance=.tol[["var"]]) sav <- escalc(measure="AUCN", m1i=mean1, m2i=mean0, sd1i=sd1, sd2i=sd0, n1i=n1, n2i=n0) expect_equivalent(sav$yi, 0.909651, tolerance=.tol[["est"]]) expect_equivalent(sav$vi, 0.000717, tolerance=.tol[["var"]]) sav <- escalc(measure="AUCN", m1i=mean1, m2i=mean0, sd1i=sd1, sd2i=sd0, n1i=n1, n2i=n0) sav <- escalc(measure="AUCN", ai=sav$yi, sd1i=sd1, sd2i=sd0, n1i=n1, n2i=n0) expect_equivalent(sav$yi, 0.909651, tolerance=.tol[["est"]]) expect_equivalent(sav$vi, 0.000717, tolerance=.tol[["var"]]) sav <- escalc(measure="AUCN", m1i=mean1, m2i=mean0, sd1i=sd1, sd2i=sd0, n1i=n1, n2i=n0) sav <- escalc(measure="AUCN", ai=sav$yi, n1i=n1, n2i=n0) expect_equivalent(sav$yi, 0.909651, tolerance=.tol[["est"]]) expect_equivalent(sav$vi, 0.000707, tolerance=.tol[["var"]]) # uses vtype="HO" sav <- escalc(measure="SMD", m1i=mean1, m2i=mean0, sd1i=sd1, sd2i=sd0, n1i=n1, n2i=n0, correct=FALSE) sav <- escalc(measure="AUCN", di=sav$yi, n1i=n1, n2i=n0) expect_equivalent(sav$yi, 0.908487, tolerance=.tol[["est"]]) # assumes HO expect_equivalent(sav$vi, 0.000717, tolerance=.tol[["var"]]) # uses vtype="HO" }) test_that("escalc() works correctly for measure='CVR/VR'", { dat <- dat.normand1999 dat <- escalc(measure="CVR", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1) expect_equivalent(dat$yi[1], 0.0014, tolerance=.tol[["est"]]) expect_equivalent(dat$vi[1], 0.0159, tolerance=.tol[["var"]]) dat <- dat.normand1999 dat <- escalc(measure="VR", sd1i=sd1i, n1i=n1i, sd2i=sd2i, n2i=n2i, data=dat, subset=1) expect_equivalent(dat$yi[1], -0.3087, tolerance=.tol[["est"]]) expect_equivalent(dat$vi[1], 0.0065, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='RPB/RBIS'", { x <- c(20, 31, 18, 22, 30, 16, 28, 24, 23, 27, 1, 4, 8, 15, 9, 11, 11, 6, 8, 4) y <- c(3, 3, 4, 5, 6, 4, 7, 6, 5, 4, 3, 5, 1, 5, 2, 4, 6, 4, 2, 4) xb <- ifelse(x > median(x), 1, 0) sav <- escalc(measure="RPB", m1i=mean(y[xb==1]), sd1i=sd(y[xb==1]), n1i=sum(xb==1), m2i=mean(y[xb==0]), sd2i=sd(y[xb==0]), n2i=sum(xb==0)) expect_equivalent(sav$yi, 0.3685, tolerance=.tol[["est"]]) expect_equivalent(sav$vi, 0.0384, tolerance=.tol[["var"]]) sav <- escalc(measure="RBIS", m1i=mean(y[xb==1]), sd1i=sd(y[xb==1]), n1i=sum(xb==1), m2i=mean(y[xb==0]), sd2i=sd(y[xb==0]), n2i=sum(xb==0)) expect_equivalent(sav$yi, 0.4619, tolerance=.tol[["est"]]) expect_equivalent(sav$vi, 0.0570, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='D2ORL/D2ORN'", { dat <- dat.gibson2002 sav <- escalc(measure="D2ORL", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) expect_equivalent(sav$yi, c(-0.4315, -0.9285, 0.5932, -0.1890), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c( 0.1276, 0.0493, 0.3204, 0.0690), tolerance=.tol[["var"]]) sav <- escalc(measure="D2ORN", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, subset=1:4) expect_equivalent(sav$yi, c(-0.3925, -0.8447, 0.5397, -0.1719), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c( 0.1056, 0.0408, 0.2651, 0.0571), tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='COR/UCOR/ZCOR'", { dat <- dat.mcdaniel1994 sav <- escalc(measure="COR", ri=ri, ni=ni, data=dat, subset=c(1,13,33,102)) expect_equivalent(sav$yi, c(0.0000, 0.6200, 0.9900, -0.1300), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c(0.0082, 0.0271, 0.0001, 0.0242), tolerance=.tol[["var"]]) sav <- escalc(measure="UCOR", ri=ri, ni=ni, data=dat, subset=c(1,13,33,102)) expect_equivalent(sav$yi, c(0.0000, 0.6363, 0.9925, -0.1317), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c(0.0082, 0.0253, 0.0000, 0.0241), tolerance=.tol[["var"]]) sav <- escalc(measure="UCOR", ri=ri, ni=ni, data=dat, vtype="UB", subset=c(1,13,33,102)) expect_equivalent(sav$vi, c(0.0084, 0.0283, 0.0000, 0.0261), tolerance=.tol[["var"]]) sav <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat, subset=c(1,13,33,102)) expect_equivalent(sav$yi, c(0.0000, 0.7250, 2.6467, -0.1307), tolerance=.tol[["est"]]) expect_equivalent(sav$vi, c(0.0083, 0.0833, 0.3333, 0.0263), tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='PCOR/ZPCOR/SPCOR'", { dat <- dat.aloe2013 dat <- escalc(measure="PCOR", ti=tval, ni=n, mi=preds, data=dat) expect_equivalent(dat$yi[1], 0.3012, tolerance=.tol[["est"]]) expect_equivalent(dat$vi[1], 0.0039, tolerance=.tol[["var"]]) dat <- escalc(measure="ZPCOR", ti=tval, ni=n, mi=preds, data=dat) expect_equivalent(dat$yi[1], 0.3108, tolerance=.tol[["est"]]) expect_equivalent(dat$vi[1], 0.0047, tolerance=.tol[["var"]]) dat <- escalc(measure="SPCOR", ti=tval, ni=n, mi=preds, r2i=R2, data=dat) expect_equivalent(dat$yi[1], 0.2754, tolerance=.tol[["est"]]) expect_equivalent(dat$vi[1], 0.0033, tolerance=.tol[["var"]]) dat <- escalc(measure="ZSPCOR", ti=tval, ni=n, mi=preds, r2i=R2, data=dat) expect_equivalent(dat$yi[1], 0.2827, tolerance=.tol[["est"]]) expect_equivalent(dat$vi[1], 0.0038, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='MC/SMCRH'", { dat <- escalc(measure="MC", m1i=26, m2i=22, sd1i=sqrt(30), sd2i=sqrt(20), ni=60, ri=0.7) expect_equivalent(dat$yi, 4.0000, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.2618, tolerance=.tol[["var"]]) dat <- escalc(measure="SMCRH", m1i=26, m2i=22, sd1i=sqrt(30), sd2i=sqrt(20), ni=60, ri=0.7) expect_equivalent(dat$yi, 0.7210, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0133, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='PAS'", { dat <- escalc(measure="PAS", xi=10, ni=20) expect_equivalent(dat$yi, 0.7854, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0125, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='IRS/IRFT'", { dat <- escalc(measure="IRS", xi=10, ti=20) expect_equivalent(dat$yi, 0.7071, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0125, tolerance=.tol[["var"]]) dat <- escalc(measure="IRFT", xi=10, ti=20) expect_equivalent(dat$yi, 0.7244, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0125, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='ROMC'", { dat <- escalc(measure="ROMC", m1i=26, m2i=22, sd1i=sqrt(30), sd2i=sqrt(20), ni=60, ri=0.7) expect_equivalent(dat$yi, 0.1671, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0004, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='MPRD'", { dat <- escalc(measure="MPRD", ai=20, bi=10, ci=5, di=20) expect_equivalent(dat$yi, 0.0909, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0048, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='MPRR'", { dat <- escalc(measure="MPRR", ai=20, bi=10, ci=5, di=20) expect_equivalent(dat$yi, 0.1823, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0200, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='MPOR'", { dat <- escalc(measure="MPOR", ai=20, bi=10, ci=5, di=20) expect_equivalent(dat$yi, 0.3646, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0782, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='MPORC'", { dat <- escalc(measure="MPORC", ai=20, bi=10, ci=5, di=20) expect_equivalent(dat$yi, 0.6931, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.3000, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='MPPETO'", { dat <- escalc(measure="MPPETO", ai=20, bi=10, ci=5, di=20) expect_equivalent(dat$yi, 0.6667, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.2667, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='IRSD'", { dat <- escalc(measure="IRSD", x1i=10, x2i=6, t1i=20, t2i=20) expect_equivalent(dat$yi, 0.1594, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0250, tolerance=.tol[["var"]]) }) test_that("escalc() works correctly for measure='MNLN/CVLN/SDLN'", { dat <- escalc(measure="MNLN", mi=10, sdi=2, ni=20) expect_equivalent(dat$yi, 2.3026, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0020, tolerance=.tol[["var"]]) dat <- escalc(measure="CVLN", mi=10, sdi=2, ni=20) expect_equivalent(dat$yi, -1.5831, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0283, tolerance=.tol[["var"]]) dat <- escalc(measure="SDLN", sdi=2, ni=20) expect_equivalent(dat$yi, 0.7195, tolerance=.tol[["est"]]) expect_equivalent(dat$vi, 0.0263, tolerance=.tol[["var"]]) }) test_that("'var.names' argument works correctly for 'escalc' objects.", { dat <- dat.bcg dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y1","v1"), slab=paste0(author, ", ", year)) dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y2","v2"), slab=paste0(author, ", ", year)) expect_identical(tail(names(dat), 4), c("y1","v1","y2","v2")) expect_identical(attributes(dat)$yi.names, c("y2","y1")) expect_identical(attributes(dat)$vi.names, c("v2","v1")) expect_identical(attr(dat$y1, "measure"), "RR") expect_identical(attr(dat$y2, "measure"), "OR") }) test_that("`[`, cbind(), and rbind() work correctly for 'escalc' objects.", { dat <- dat.bcg dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y1","v1"), slab=paste0(author, ", ", year)) dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y2","v2"), slab=paste0(author, ", ", year)) dat <- cbind(dat[,1:9], dat[,c(12:13,10:11)]) expect_identical(tail(names(dat), 4), c("y2","v2","y1","v1")) expect_identical(attributes(dat)$yi.names, c("y2","y1")) expect_identical(attributes(dat)$vi.names, c("v2","v1")) expect_identical(attr(dat$y1, "measure"), "RR") expect_identical(attr(dat$y2, "measure"), "OR") dat <- rbind(dat[13,], dat[1:12,]) expect_equivalent(attr(dat$y2, "ni"), rowSums(dat[,c("tpos", "tneg", "cpos", "cneg")])) expect_identical(attr(dat$y2, "slab"), paste0(dat$author, ", ", dat$year)) dat <- dat.bcg dat1 <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y1","v1"), slab=paste0(author, ", ", year)) dat2 <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y1","v1"), slab=paste0(author, ", ", year)) dat1 <- dat1[1:4,] dat2 <- dat2[4:1,] dat <- rbind(dat1, dat2) expect_equivalent(attr(dat$y1, "ni"), rowSums(dat[,c("tpos", "tneg", "cpos", "cneg")])) attr(dat1$y1, "ni") <- NULL dat <- rbind(dat1, dat2) expect_null(attr(dat$y1, "ni")) }) test_that("summary() of 'escalc' objects works correctly with the 'out.names' argument.", { dat <- dat.bcg dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y1","v1"), slab=paste0(author, ", ", year)) dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, var.names=c("y2","v2"), slab=paste0(author, ", ", year)) dat <- summary(dat, var.names=c("y1","v1"), out.names=c("sei1","zi1","pval1","ci.lb1","ci.ub1")) dat <- summary(dat, var.names=c("y2","v2"), out.names=c("sei2","zi2","pval2","ci.lb2","ci.ub2")) expect_equivalent(with(dat, c(zi1[1], sei1[1], ci.lb1[1], ci.ub1[1])), c(-1.5586, 0.5706, -2.0077, 0.2290), tolerance=.tol[["est"]]) expect_equivalent(with(dat, c(zi2[1], sei2[1], ci.lb2[1], ci.ub2[1])), c(-1.5708, 0.5976, -2.1100, 0.2326), tolerance=.tol[["est"]]) dat <- dat[,1:11] expect_identical(attr(dat, "yi.names"), "y1") expect_identical(attr(dat, "vi.names"), "v1") }) test_that("'subset' and 'include' arguments work correctly in 'escalc'.", { all <- dat.bcg all$tpos[1] <- NA dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=all, subset=1:4) expect_equivalent(c(dat$yi), c(NA, -1.5854, -1.3481, -1.4416), tolerance=.tol[["est"]]) dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=all, subset=1:4, include=1:3) expect_equivalent(c(dat$yi), c(NA, -1.5854, -1.3481, NA), tolerance=.tol[["est"]]) expect_identical(attributes(dat$yi)$ni, c(NA, 609L, 451L, NA)) dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=all, subset=1:4, include=1:3, add.measure=TRUE) expect_identical(dat$measure, c("", "RR", "RR", "")) attributes(dat$yi)$ni[3] <- 1L dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, include=3:4, add.measure=TRUE) expect_equivalent(c(dat$yi), c(NA, -1.5854, -1.3863, -1.4564), tolerance=.tol[["est"]]) expect_identical(dat$measure, c("", "RR", "OR", "OR")) expect_identical(attributes(dat$yi)$ni, c(NA, 609L, 451L, 26465L)) dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=all, subset=1:4, include=1:3, add.measure=TRUE) attributes(dat$yi)$ni[3] <- 1L dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, include=3:4, replace=FALSE, add.measure=TRUE) expect_equivalent(c(dat$yi), c(NA, -1.5854, -1.3481, -1.4564), tolerance=.tol[["est"]]) expect_identical(dat$measure, c("", "RR", "RR", "OR")) expect_identical(attributes(dat$yi)$ni, c(NA, 609L, 1L, 26465L)) dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=all, subset=1:4, include=1:3, append=FALSE, add.measure=TRUE) expect_equivalent(c(dat$yi), c(NA, -1.5854, -1.3481, NA), tolerance=.tol[["est"]]) expect_identical(dat$measure, c("", "RR", "RR", "")) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_vanhouwelingen1993.r0000644000176200001440000000776614712730525025156 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:vanhouwelingen1993 context("Checking analysis example: vanhouwelingen1993") source("settings.r") ### load data dat <- dat.collins1985a test_that("the log likelihood plot can be created.", { skip_on_cran() png(filename="images/test_analysis_example_vanhouwelingen1993_llplot_light_test.png", res=200, width=1800, height=1200, type="cairo") par(mar=c(5,5,1,2)) expect_warning(llplot(measure="OR", ai=b.xci, n1i=nci, ci=b.xti, n2i=nti, data=dat, xlim=c(-4,4), lwd=1, col="black", refline=NA, drop00=FALSE)) dev.off() expect_true(.vistest("images/test_analysis_example_vanhouwelingen1993_llplot_light_test.png", "images/test_analysis_example_vanhouwelingen1993_llplot_light.png")) png(filename="images/test_analysis_example_vanhouwelingen1993_llplot_dark_test.png", res=200, width=1800, height=1200, type="cairo") setmfopt(theme="dark") par(mar=c(5,5,1,2)) expect_warning(llplot(measure="OR", ai=b.xci, n1i=nci, ci=b.xti, n2i=nti, data=dat, xlim=c(-4,4), lwd=1, col="white", refline=NA, drop00=FALSE)) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_analysis_example_vanhouwelingen1993_llplot_dark_test.png", "images/test_analysis_example_vanhouwelingen1993_llplot_dark.png")) }) test_that("results of the equal-effects conditional logistic model are correct.", { skip_on_cran() expect_warning(res <- rma.glmm(measure="OR", ai=b.xci, n1i=nci, ci=b.xti, n2i=nti, data=dat, model="CM.EL", method="EE")) ### compare with results on page 2275 (in text) expect_equivalent(coef(res), 0.1216, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.0995, tolerance=.tol[["se"]]) expect_equivalent(res$ci.lb, -0.0734, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.3165, tolerance=.tol[["ci"]]) ### 0.31 in paper (rounded a bit more heavily, so 32-bit and 64-bit versions give same result) expect_equivalent(c(logLik(res)), -53.6789, tolerance=.tol[["fit"]]) ### run with control(dnchgcalc="dnoncenhypergeom") expect_warning(res <- rma.glmm(measure="OR", ai=b.xci, n1i=nci, ci=b.xti, n2i=nti, data=dat, model="CM.EL", method="EE", control=list(dnchgcalc="dnoncenhypergeom"))) ### some very minor discrepancies expect_equivalent(coef(res), 0.1216, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.0996, tolerance=.tol[["se"]]) expect_equivalent(res$ci.lb, -0.0735, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.3167, tolerance=.tol[["ci"]]) expect_equivalent(c(logLik(res)), -53.6789, tolerance=.tol[["fit"]]) }) test_that("results of the random-effects conditional logistic model are correct.", { skip_on_cran() expect_warning(res <- rma.glmm(measure="OR", ai=b.xci, n1i=nci, ci=b.xti, n2i=nti, data=dat, model="CM.EL", method="ML")) ### compare with results on page 2277 (in text) expect_equivalent(coef(res), 0.1744, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.1364, tolerance=.tol[["se"]]) expect_equivalent(res$ci.lb, -0.0929, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.4417, tolerance=.tol[["ci"]]) expect_equivalent(c(logLik(res)), -52.99009, tolerance=.tol[["fit"]]) expect_equivalent(res$tau2, 0.1192, tolerance=.tol[["var"]]) ### run with control(dnchgcalc="dnoncenhypergeom") expect_warning(res <- rma.glmm(measure="OR", ai=b.xci, n1i=nci, ci=b.xti, n2i=nti, data=dat, model="CM.EL", method="ML", control=list(dnchgcalc="dnoncenhypergeom"))) ### no discrepancies expect_equivalent(coef(res), 0.1744, tolerance=.tol[["coef"]]) expect_equivalent(se(res), 0.1364, tolerance=.tol[["se"]]) expect_equivalent(res$ci.lb, -0.0930, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, 0.4418, tolerance=.tol[["ci"]]) expect_equivalent(c(logLik(res)), -52.99009, tolerance=.tol[["fit"]]) expect_equivalent(res$tau2, 0.1192, tolerance=.tol[["var"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_diagnostics_rma.mv.r0000644000176200001440000002730014712730641022744 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: model diagnostic functions for rma.mv()") source("settings.r") dat1 <- dat.konstantopoulos2011 dat1 <- dat1[dat1$district %in% c(11, 12, 18, 71, 108, 644),] rownames(dat1) <- 1:nrow(dat1) dat1$yi[dat1$district %in% 12] <- NA ### all values for district 12 are missing dat1$yi[dat1$district %in% 18 & dat1$school == 2] <- NA ### second value for district 18 is missing dat1$yi[dat1$district %in% 108] <- dat1$yi[dat1$district %in% 108] + 1 ### increase district level variance dat1$district11 <- ifelse(dat1$district == 11, 1, 0) ### dummy for district 11 dat1$study53 <- ifelse(dat1$study == 53, 1, 0) ### dummies for studies in district 644 dat1$study54 <- ifelse(dat1$study == 54, 1, 0) ### dummies for studies in district 644 dat1$study55 <- ifelse(dat1$study == 55, 1, 0) ### dummies for studies in district 644 dat1$study56 <- ifelse(dat1$study == 56, 1, 0) ### dummies for studies in district 644 #set.seed(123214) #dat2 <- dat1[sample(nrow(dat1)),] ### reshuffled dataset dat2 <- dat1[c(23, 2, 6, 3, 19, 14, 20, 12, 21, 9, 13, 7, 11, 8, 10, 22, 18, 1, 5, 4, 17, 15, 16),] res1 <- suppressWarnings(rma.mv(yi, vi, mods = ~ district11 + study53 + study54 + study55 + study56, random = ~ 1 | district/school, data=dat1, slab=study, sparse=.sparse)) res2 <- suppressWarnings(rma.mv(yi, vi, mods = ~ district11 + study53 + study54 + study55 + study56, random = ~ 1 | district/school, data=dat2, slab=study, sparse=.sparse)) test_that("model diagnostic functions work with 'na.omit'.", { skip_on_cran() options(na.action="na.omit") sav1 <- rstandard(res1) sav2 <- rstandard(res2) sav2 <- sav2[match(sav1$slab, sav2$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$resid), rep(FALSE,18)) sav1 <- rstandard(res1, cluster=dat1$district) sav2 <- rstandard(res2, cluster=dat2$district) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), rep(FALSE,18)) expect_equivalent(is.na(sav1$cluster$X2), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- rstudent(res1) sav2 <- rstudent(res2) sav2 <- sav2[match(sav1$slab, sav2$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$resid), c(rep(FALSE,14), rep(TRUE,4))) sav1 <- rstudent(res1, cluster=dat1$district) sav2 <- rstudent(res2, cluster=dat2$district) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,4), rep(FALSE,10), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- rstudent(res1, cluster=dat1$district, parallel="snow") sav2 <- rstudent(res2, cluster=dat2$district, parallel="snow") sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,4), rep(FALSE,10), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- rstudent(res1, cluster=dat1$district, reestimate=FALSE) sav2 <- rstudent(res2, cluster=dat2$district, reestimate=FALSE) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,4), rep(FALSE,10), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- rstudent(res1, cluster=dat1$district, parallel="snow", reestimate=FALSE) sav2 <- rstudent(res2, cluster=dat2$district, parallel="snow", reestimate=FALSE) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,4), rep(FALSE,10), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1) sav2 <- cooks.distance(res2) sav2 <- sav2[match(names(sav1), names(sav2))] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(rep(FALSE,14), rep(TRUE,4))) sav1 <- cooks.distance(res1, cluster=dat1$district) sav2 <- cooks.distance(res2, cluster=dat2$district) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1, cluster=dat1$district, parallel="snow") sav2 <- cooks.distance(res2, cluster=dat2$district, parallel="snow") expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1, cluster=dat1$district, reestimate=FALSE) sav2 <- cooks.distance(res2, cluster=dat2$district, reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1, cluster=dat1$district, parallel="snow", reestimate=FALSE) sav2 <- cooks.distance(res2, cluster=dat2$district, parallel="snow", reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1) sav2 <- dfbetas(res2) sav2 <- sav2[match(rownames(sav1), rownames(sav2)),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(rep(FALSE,14), rep(TRUE,4))) sav1 <- dfbetas(res1, cluster=dat1$district) sav2 <- dfbetas(res2, cluster=dat2$district) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1, cluster=dat1$district, parallel="snow") sav2 <- dfbetas(res2, cluster=dat2$district, parallel="snow") expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1, cluster=dat1$district, reestimate=FALSE) sav2 <- dfbetas(res2, cluster=dat2$district, reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1, cluster=dat1$district, parallel="snow", reestimate=FALSE) sav2 <- dfbetas(res2, cluster=dat2$district, parallel="snow", reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(TRUE, rep(FALSE,3), TRUE)) sav1 <- ranef(res1) sav2 <- ranef(res2) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$district$intrcpt), rep(FALSE,5)) expect_equivalent(is.na(sav1$`district/school`$intrcpt), rep(FALSE,18)) }) test_that("model diagnostic functions work with 'na.pass'.", { skip_on_cran() options(na.action="na.pass") sav1 <- rstandard(res1) sav2 <- rstandard(res2) sav2 <- sav2[match(sav1$slab, sav2$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$resid), c(rep(FALSE,4), rep(TRUE,4), FALSE, TRUE, rep(FALSE,13))) sav1 <- rstandard(res1, cluster=dat1$district) sav2 <- rstandard(res2, cluster=dat2$district) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(FALSE,4), rep(TRUE,4), FALSE, TRUE, rep(FALSE,13))) expect_equivalent(is.na(sav1$cluster$X2), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- rstudent(res1) sav2 <- rstudent(res2) sav2 <- sav2[match(sav1$slab, sav2$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$resid), c(rep(FALSE,4), rep(TRUE,4), FALSE, TRUE, rep(FALSE,9), rep(TRUE,4))) sav1 <- rstudent(res1, cluster=dat1$district) sav2 <- rstudent(res2, cluster=dat2$district) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,8), FALSE, TRUE, rep(FALSE,9), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- rstudent(res1, cluster=dat1$district, parallel="snow") sav2 <- rstudent(res2, cluster=dat2$district, parallel="snow") sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,8), FALSE, TRUE, rep(FALSE,9), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- rstudent(res1, cluster=dat1$district, reestimate=FALSE) sav2 <- rstudent(res2, cluster=dat2$district, reestimate=FALSE) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,8), FALSE, TRUE, rep(FALSE,9), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- rstudent(res1, cluster=dat1$district, parallel="snow", reestimate=FALSE) sav2 <- rstudent(res2, cluster=dat2$district, parallel="snow", reestimate=FALSE) sav2$obs <- sav2$obs[match(sav1$obs$slab, sav2$obs$slab),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$obs$resid), c(rep(TRUE,8), FALSE, TRUE, rep(FALSE,9), rep(TRUE,4))) expect_equivalent(is.na(sav1$cluster$X2), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1) sav2 <- cooks.distance(res2) sav2 <- sav2[match(names(sav1), names(sav2))] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(rep(FALSE,4), rep(TRUE,4), FALSE, TRUE, rep(FALSE,9), rep(TRUE,4))) sav1 <- cooks.distance(res1, cluster=dat1$district) sav2 <- cooks.distance(res2, cluster=dat2$district) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1, cluster=dat1$district, parallel="snow") sav2 <- cooks.distance(res2, cluster=dat2$district, parallel="snow") expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1, cluster=dat1$district, reestimate=FALSE) sav2 <- cooks.distance(res2, cluster=dat2$district, reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- cooks.distance(res1, cluster=dat1$district, parallel="snow", reestimate=FALSE) sav2 <- cooks.distance(res2, cluster=dat2$district, parallel="snow", reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1) sav2 <- dfbetas(res2) sav2 <- sav2[match(rownames(sav1), rownames(sav2)),] expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(rep(FALSE,4), rep(TRUE,4), FALSE, TRUE, rep(FALSE,9), rep(TRUE,4))) sav1 <- dfbetas(res1, cluster=dat1$district) sav2 <- dfbetas(res2, cluster=dat2$district) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1, cluster=dat1$district, parallel="snow") sav2 <- dfbetas(res2, cluster=dat2$district, parallel="snow") expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1, cluster=dat1$district, reestimate=FALSE) sav2 <- dfbetas(res2, cluster=dat2$district, reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- dfbetas(res1, cluster=dat1$district, parallel="snow", reestimate=FALSE) sav2 <- dfbetas(res2, cluster=dat2$district, parallel="snow", reestimate=FALSE) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$intrcpt), c(rep(TRUE,2), rep(FALSE,3), TRUE)) sav1 <- ranef(res1) sav2 <- ranef(res2) expect_equivalent(sav1, sav2) expect_equivalent(is.na(sav1$district$intrcpt), c(FALSE, TRUE, rep(FALSE,4))) expect_equivalent(is.na(sav1$`district/school`$intrcpt), c(rep(FALSE,4), rep(TRUE,4), FALSE, TRUE, rep(FALSE,13))) options(na.action="na.omit") }) rm(list=ls()) metafor/tests/testthat/test_misc_anova.r0000644000176200001440000000757114712730650020271 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: anova() function") source("settings.r") test_that("anova() works correctly for comparing nested models.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res1 <- rma(yi, vi, data=dat, method="ML") res2 <- rma(yi ~ ablat, vi, data=dat, method="ML") sav <- anova(res1, res2) out <- capture.output(print(sav)) expect_equivalent(sav$LRT, 9.9588, tolerance=.tol[["test"]]) expect_equivalent(as.data.frame(sav)$LRT[2], 9.9588, tolerance=.tol[["test"]]) res1 <- rma(yi, vi, data=dat, method="REML") res2 <- rma(yi ~ ablat, vi, data=dat, method="REML") expect_warning(sav <- anova(res1, res2)) expect_equivalent(sav$LRT, 8.2301, tolerance=.tol[["test"]]) expect_equivalent(as.data.frame(sav)$LRT[2], 8.2301, tolerance=.tol[["test"]]) }) test_that("anova() works correctly when using the 'btt' argument.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat) sav <- anova(res, btt=3:4) out <- capture.output(print(sav)) expect_equivalent(sav$QM, 1.2850, tolerance=.tol[["test"]]) expect_equivalent(sav$QMp, 0.5260, tolerance=.tol[["pval"]]) expect_equivalent(as.data.frame(sav)$QM, 1.2850, tolerance=.tol[["test"]]) sav <- anova(res, btt="alloc") out <- capture.output(print(sav)) expect_equivalent(sav$QM, 1.2850, tolerance=.tol[["test"]]) expect_equivalent(sav$QMp, 0.5260, tolerance=.tol[["pval"]]) expect_equivalent(as.data.frame(sav)$QM, 1.2850, tolerance=.tol[["test"]]) res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat, test="knha") sav <- anova(res, btt=3:4) out <- capture.output(print(sav)) expect_equivalent(sav$QM, 0.6007, tolerance=.tol[["test"]]) expect_equivalent(sav$QMp, 0.5690, tolerance=.tol[["pval"]]) expect_equivalent(as.data.frame(sav)$Fval, 0.6007, tolerance=.tol[["test"]]) sav <- anova(res, btt=list(2,3:4)) out <- capture.output(print(sav)) expect_equivalent(sapply(sav, function(x) x$QM), c(8.2194, 0.6007), tolerance=.tol[["test"]]) expect_equivalent(sapply(sav, function(x) x$QMp), c(0.0186, 0.5690), tolerance=.tol[["pval"]]) expect_equivalent(as.data.frame(sav)$Fval, c(8.2194, 0.6007), tolerance=.tol[["test"]]) res <- rma(yi, vi, mods = ~ ablat + alloc + year, data=dat, test="knha") sav <- anova(res, btt=as.list(attr(terms(formula(res)), "term.labels"))) expect_equivalent(as.data.frame(sav)$Fval, c(3.0213, 0.6503, 0.1410), tolerance=.tol[["test"]]) }) test_that("anova() works correctly when using the 'X' argument.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat) sav <- anova(res, X=rbind(c(1, 10, 0, 0), c(1, 30, 0, 0), c(1, 50, 0, 0))) out <- capture.output(print(sav)) expect_equivalent(sav$zval, c(0.0588, -1.7964, -3.1210), tolerance=.tol[["test"]]) expect_equivalent(as.data.frame(sav)$zval, c(0.0588, -1.7964, -3.1210), tolerance=.tol[["test"]]) sav <- anova(res, X=rbind(c(1, 10, 0, 0), c(1, 30, 0, 0), c(1, 50, 0, 0)), rhs=-.10) expect_equivalent(sav$zval, c(0.3463, -1.4543, -2.8295), tolerance=.tol[["test"]]) expect_equivalent(as.data.frame(sav)$zval, c(0.3463, -1.4543, -2.8295), tolerance=.tol[["test"]]) res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat, test="knha") sav <- anova(res, X=rbind(c(1, 10, 0, 0), c(1, 10, 1, 0), c(1, 10, 0, 1))) out <- capture.output(print(sav)) expect_equivalent(sav$zval, c(0.0568, -0.8252, 0.2517), tolerance=.tol[["test"]]) expect_equivalent(as.data.frame(sav)$tval, c(0.0568, -0.8252, 0.2517), tolerance=.tol[["test"]]) expect_equivalent(sav$QM, 0.4230, tolerance=.tol[["test"]]) expect_equivalent(sav$QMp, 0.7412, tolerance=.tol[["pval"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_metan_vs_rma.uni_with_dat.bcg.r0000644000176200001440000001274114712730630025040 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: rma.uni() against metan with 'dat.bcg'") source("settings.r") test_that("results match (EE model, measure='RR').", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### compare results with: metan tpos tneg cpos cneg, fixedi nograph rr log res <- rma(yi, vi, data=dat, method="EE") expect_equivalent(c(res$beta), -0.4303, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.5097, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.3509, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -10.6247, tolerance=.tol[["test"]]) ### -10.62 in Stata expect_equivalent(res$QE, 152.2330, tolerance=.tol[["test"]]) ### compare results with: metan tpos tneg cpos cneg, fixedi nograph rr sav <- predict(res, transf=exp) expect_equivalent(sav$pred, 0.6503, tolerance=.tol[["pred"]]) expect_equivalent(sav$ci.lb, 0.6007, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, 0.7040, tolerance=.tol[["ci"]]) }) test_that("results match (RE model w/ DL estimator, measure='RR').", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### compare results with: metan tpos tneg cpos cneg, randomi nograph rr log res <- rma(yi, vi, data=dat, method="DL") expect_equivalent(c(res$beta), -0.7141, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -1.0644, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.3638, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -3.9952, tolerance=.tol[["test"]]) ### 4.00 in Stata expect_equivalent(res$tau2, 0.3088, tolerance=.tol[["var"]]) expect_equivalent(res$I2, 92.1173, tolerance=.tol[["het"]]) ### compare results with: metan tpos tneg cpos cneg, randomi nograph rr sav <- predict(res, transf=exp) expect_equivalent(sav$pred, 0.4896, tolerance=.tol[["pred"]]) expect_equivalent(sav$ci.lb, 0.3449, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, 0.6950, tolerance=.tol[["ci"]]) }) test_that("results match (EE model, measure='OR').", { dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### compare results with: metan tpos tneg cpos cneg, fixedi nograph or log res <- rma(yi, vi, data=dat, method="EE") expect_equivalent(c(res$beta), -0.4361, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.5190, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.3533, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -10.3190, tolerance=.tol[["test"]]) ### -10.32 in Stata expect_equivalent(res$QE, 163.1649, tolerance=.tol[["test"]]) ### compare results with: metan tpos tneg cpos cneg, fixedi nograph or sav <- predict(res, transf=exp) expect_equivalent(sav$pred, 0.6465, tolerance=.tol[["pred"]]) expect_equivalent(sav$ci.lb, 0.5951, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, 0.7024, tolerance=.tol[["ci"]]) }) test_that("results match (RE model w/ DL estimator, measure='OR').", { dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### compare results with: metan tpos tneg cpos cneg, randomi nograph or log res <- rma(yi, vi, data=dat, method="DL") expect_equivalent(c(res$beta), -0.7474, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -1.1242, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.3706, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -3.8873, tolerance=.tol[["test"]]) ### -3.89 in Stata expect_equivalent(res$tau2, 0.3663, tolerance=.tol[["var"]]) expect_equivalent(res$I2, 92.6455, tolerance=.tol[["het"]]) ### compare results with: metan tpos tneg cpos cneg, randomi nograph or sav <- predict(res, transf=exp) expect_equivalent(sav$pred, 0.4736, tolerance=.tol[["pred"]]) expect_equivalent(sav$ci.lb, 0.3249, tolerance=.tol[["ci"]]) expect_equivalent(sav$ci.ub, 0.6903, tolerance=.tol[["ci"]]) }) test_that("results match (EE model, measure='RD').", { dat <- escalc(measure="RD", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### compare results with: metan tpos tneg cpos cneg, fixedi nograph rd res <- rma(yi, vi, data=dat, method="EE") expect_equivalent(c(res$beta), -0.0009, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.0014, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.0005, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -4.0448, tolerance=.tol[["test"]]) ### -4.04 in Stata expect_equivalent(res$QE, 276.4737, tolerance=.tol[["test"]]) }) test_that("results match (RE model w/ DL estimator, measure='RD').", { dat <- escalc(measure="RD", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### compare results with: metan tpos tneg cpos cneg, randomi nograph rd res <- rma(yi, vi, data=dat, method="DL") expect_equivalent(c(res$beta), -0.0071, tolerance=.tol[["coef"]]) expect_equivalent(res$ci.lb, -0.0101, tolerance=.tol[["ci"]]) expect_equivalent(res$ci.ub, -0.0040, tolerance=.tol[["ci"]]) expect_equivalent(res$zval, -4.5128, tolerance=.tol[["test"]]) ### -4.51 in Stata expect_equivalent(res$tau2, 0.0000, tolerance=.tol[["var"]]) expect_equivalent(res$I2, 95.6596, tolerance=.tol[["het"]]) }) #expect_that(rma(yi ~ ablat, vi, data=dat, subset=1:2), throws_error("Number of parameters to be estimated is larger than the number of observations.")) rm(list=ls()) metafor/tests/testthat/test_misc_confint.r0000644000176200001440000000262414607543122020616 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: confint() function") source("settings.r") test_that("confint() works correctly for 'rma.uni' objects.", { dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) res <- rma(yi, vi, data=dat, method="DL") sav <- confint(res, fixed=TRUE, transf=exp) expect_equivalent(sav$fixed, c(0.4896, 0.3449, 0.6950), tolerance=.tol[["ci"]]) expect_equivalent(sav$random[1,], c(0.3088, 0.1197, 1.1115), tolerance=.tol[["var"]]) expect_equivalent(sav$random[3,], c(92.1173, 81.9177, 97.6781), tolerance=.tol[["het"]]) expect_equivalent(sav$random[4,], c(12.6861, 5.5303, 43.0680), tolerance=.tol[["het"]]) sav <- round(as.data.frame(sav), 4) expect_equivalent(sav[,1], c(0.4896, 0.3088, 0.5557, 92.1173, 12.6861)) }) test_that("confint() works correctly for 'rma.mh' objects.", { res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) sav <- confint(res, transf=exp) expect_equivalent(sav$fixed, c(0.6353, 0.5881, 0.6862), tolerance=.tol[["ci"]]) }) test_that("confint() works correctly for 'rma.peto' objects.", { res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) sav <- confint(res, transf=exp) expect_equivalent(sav$fixed, c(0.6222, 0.5746, 0.6738), tolerance=.tol[["ci"]]) }) rm(list=ls()) metafor/tests/testthat/test_misc_coef_se.r0000644000176200001440000000434614712730646020572 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") context("Checking misc: coef() and se() functions") source("settings.r") test_that("coef() and se() works correctly.", { dat <- dat.baskerville2012 res <- rma(smd, se^2, data=dat, method="ML", digits=3) sel <- selmodel(res, type="beta") tmp <- list(beta = c(intrcpt = 0.114740253923052), delta = c(delta.1 = 0.473113053609697, delta.2 = 4.46131624677985)) expect_equivalent(coef(sel)$beta, tmp$beta, tolerance=.tol[["coef"]]) expect_equivalent(coef(sel)$delta, tmp$delta, tolerance=.tol[["coef"]]) expect_equivalent(coef(sel, type="beta"), tmp$beta, tolerance=.tol[["coef"]]) expect_equivalent(coef(sel, type="delta"), tmp$delta, tolerance=.tol[["coef"]]) tmp <- list(beta = c(intrcpt = 0.166413798184622), delta = c(delta.1 = 0.235248084207613, delta.2 = 2.18419833595518)) expect_equivalent(se(sel)$beta, tmp$beta, tolerance=.tol[["se"]]) expect_equivalent(se(sel)$delta, tmp$delta, tolerance=.tol[["se"]]) expect_equivalent(se(sel, type="beta"), tmp$beta, tolerance=.tol[["se"]]) expect_equivalent(se(sel, type="delta"), tmp$delta, tolerance=.tol[["se"]]) dat <- dat.bangertdrowns2004 dat$ni100 <- dat$ni/100 res <- rma(yi, vi, mods = ~ ni100, scale = ~ ni100, data=dat) tmp <- list(beta = c(intrcpt = 0.301681362709591, ni100 = -0.0552663301809239), alpha = c(intrcpt = -1.92087854601148, ni100 = -0.917428772771085)) expect_equivalent(coef(res)$beta, tmp$beta, tolerance=.tol[["coef"]]) expect_equivalent(coef(res)$alpha, tmp$alpha, tolerance=.tol[["coef"]]) expect_equivalent(coef(res, type="beta"), tmp$beta, tolerance=.tol[["coef"]]) expect_equivalent(coef(res, type="alpha"), tmp$alpha, tolerance=.tol[["coef"]]) tmp <- list(beta = c(intrcpt = 0.0661161560867381, ni100 = 0.0197546220146866), alpha = c(intrcpt = 0.668982417863205, ni100 = 0.514064772257437)) expect_equivalent(se(res)$beta, tmp$beta, tolerance=.tol[["se"]]) expect_equivalent(se(res)$alpha, tmp$alpha, tolerance=.tol[["se"]]) expect_equivalent(se(res, type="beta"), tmp$beta, tolerance=.tol[["se"]]) expect_equivalent(se(res, type="alpha"), tmp$alpha, tolerance=.tol[["se"]]) }) rm(list=ls()) metafor/tests/testthat/test_analysis_example_gleser2009.r0000644000176200001440000002210414712730417023352 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/analyses:gleser2009 source("settings.r") context("Checking analysis example: gleser2009") ############################################################################ ### create dataset dat <- data.frame(study=c(1,1,2,3,3,3), trt=c(1,2,1,1,2,3), ai=c( 40, 40, 10,150,150,150), n1i=c(1000,1000,200,2000,2000,2000), ci=c(100,150, 15, 40, 80, 50), n2i=c(4000,4000,400,1000,1000,1000)) dat$pti <- with(dat, ci / n2i) dat$pci <- with(dat, ai / n1i) test_that("results are correct for the multiple-treatment studies example with risk differences.", { dat <- escalc(measure="RD", ai=ai, ci=ci, n1i=n1i, n2i=n2i, data=dat) ### compare with results on page 360 (Table 19.2) expect_equivalent(dat$yi, c(0.0150, 0.0025, 0.0125, 0.0350, -0.0050, 0.0250), tolerance=.tol[["est"]]) calc.v <- function(x) { v <- matrix(x$pci[1]*(1-x$pci[1])/x$n1i[1], nrow=nrow(x), ncol=nrow(x)) diag(v) <- x$vi v } V <- bldiag(lapply(split(dat, dat$study), calc.v)) res <- rma.mv(yi, V, mods = ~ 0 + factor(trt), data=dat, sparse=.sparse) ### compare with results on page 361 (eq. 19.6) expect_equivalent(coef(res), c(0.0200, 0.0043, 0.0211), tolerance=.tol[["coef"]]) ### compare with results on page 361 (eq. 19.7) tmp <- vcov(res) * 10^6 expected <- structure(c(24.612, 19.954, 13.323, 19.954, 28.538, 13.255, 13.323, 13.255, 69.806), .Dim = c(3L, 3L), .Dimnames = list(c("factor(trt)1", "factor(trt)2", "factor(trt)3"), c("factor(trt)1", "factor(trt)2", "factor(trt)3"))) expect_equivalent(tmp, expected, tolerance=.tol[["var"]]) ### compare with results on page 362 (eq. 19.8) expect_equivalent(res$QE, 7.1907, tolerance=.tol[["test"]]) }) test_that("results are correct for the multiple-treatment studies example with log odds ratios.", { dat <- escalc(measure="OR", ai=ai, ci=ci, n1i=n1i, n2i=n2i, data=dat) ### compare with results on page 362 expect_equivalent(dat$yi, c(0.4855, 0.0671, 0.3008, 0.6657, -0.0700, 0.4321), tolerance=.tol[["est"]]) calc.v <- function(x) { v <- matrix(1/(x$n1i[1]*x$pci[1]*(1-x$pci[1])), nrow=nrow(x), ncol=nrow(x)) diag(v) <- x$vi v } V <- bldiag(lapply(split(dat, dat$study), calc.v)) res <- rma.mv(yi, V, mods = ~ 0 + factor(trt), data=dat, sparse=.sparse) ### compare with results on page 363 expect_equivalent(coef(res), c(0.5099, 0.0044, 0.4301), tolerance=.tol[["coef"]]) ### compare with results on page 363 tmp <- vcov(res) expected <- structure(c(0.01412, 0.00712, 0.00425, 0.00712, 0.01178, 0.00455, 0.00425, 0.00455, 0.02703), .Dim = c(3L, 3L), .Dimnames = list(c("factor(trt)1", "factor(trt)2", "factor(trt)3"), c("factor(trt)1", "factor(trt)2", "factor(trt)3"))) expect_equivalent(tmp, expected, tolerance=.tol[["var"]]) ### compare with results on page 363 expect_equivalent(res$QE, 2.0563, tolerance=.tol[["test"]]) ### 2.057 in chapter }) test_that("results are correct for the multiple-treatment studies example with log risk ratios.", { dat <- escalc(measure="RR", ai=ai, ci=ci, n1i=n1i, n2i=n2i, data=dat) ### compare with results on page 364 expect_equivalent(dat$yi, c(0.4700, 0.0645, 0.2877, 0.6286, -0.0645, 0.4055), tolerance=.tol[["est"]]) calc.v <- function(x) { v <- matrix((1-x$pci[1])/(x$n1i[1]*x$pci[1]), nrow=nrow(x), ncol=nrow(x)) diag(v) <- x$vi v } V <- bldiag(lapply(split(dat, dat$study), calc.v)) res <- rma.mv(yi, V, mods = ~ 0 + factor(trt), data=dat, sparse=.sparse) ### compare with results on page 363 expect_equivalent(coef(res), c(0.4875, 0.0006, 0.4047), tolerance=.tol[["coef"]]) ### (results for this not given in chapter) tmp <- vcov(res) expected <- structure(c(0.01287, 0.00623, 0.00371, 0.00623, 0.01037, 0.00399, 0.00371, 0.00399, 0.02416), .Dim = c(3L, 3L), .Dimnames = list(c("factor(trt)1", "factor(trt)2", "factor(trt)3"), c("factor(trt)1", "factor(trt)2", "factor(trt)3"))) expect_equivalent(tmp, expected, tolerance=.tol[["var"]]) ### (results for this not given in chapter) expect_equivalent(res$QE, 1.8954, tolerance=.tol[["test"]]) }) test_that("results are correct for the multiple-treatment studies example with difference of arcsine transformed risks.", { dat <- escalc(measure="AS", ai=ai, ci=ci, n1i=n1i, n2i=n2i, data=dat) ### compare with results on page 364 expect_equivalent(dat$yi*2, c(0.0852, 0.0130, 0.0613, 0.1521, -0.0187, 0.1038), tolerance=.tol[["est"]]) ### need *2 factor due to difference in definition of measure calc.v <- function(x) { v <- matrix(1/(4*x$n1i[1]), nrow=nrow(x), ncol=nrow(x)) diag(v) <- x$vi v } V <- bldiag(lapply(split(dat, dat$study), calc.v)) res <- rma.mv(yi, V, mods = ~ 0 + factor(trt), data=dat, sparse=.sparse) ### compare with results on page 365 expect_equivalent(coef(res)*2, c(0.1010, 0.0102, 0.0982), tolerance=.tol[["coef"]]) ### compare with results on page 365 tmp <- vcov(res)*2^2 expected <- structure(c(0.00058, 4e-04, 0.00024, 4e-04, 0.00061, 0.00025, 0.00024, 0.00025, 0.00137), .Dim = c(3L, 3L), .Dimnames = list(c("factor(trt)1", "factor(trt)2", "factor(trt)3"), c("factor(trt)1", "factor(trt)2", "factor(trt)3"))) expect_equivalent(tmp, expected, tolerance=.tol[["var"]]) ### compare with results on page 365 expect_equivalent(res$QE, 4.2634, tolerance=.tol[["test"]]) ### 4.264 in chapter }) ############################################################################ ### create dataset dat <- data.frame(study=c(1,1,2,3,4,4), trt=c(1,2,1,1,1,2), m1i=c(7.87, 4.35, 9.32, 8.08, 7.44, 5.34), m2i=c(-1.36, -1.36, 0.98, 1.17, 0.45, 0.45), sdpi=c(4.2593,4.2593,2.8831,3.1764,2.9344,2.9344), n1i=c(25,22,38,50,30,30), n2i=c(25,25,40,50,30,30)) test_that("results are correct for the multiple-treatment studies example with standardized mean differences.", { dat$Ni <- unlist(lapply(split(dat, dat$study), function(x) rep(sum(x$n1i) + x$n2i[1], each=nrow(x)))) dat$yi <- with(dat, (m1i-m2i)/sdpi) dat$vi <- with(dat, 1/n1i + 1/n2i + yi^2/(2*Ni)) ### compare with results on page 364 expect_equivalent(dat$yi, c(2.1670, 1.3406, 2.8927, 2.1754, 2.3821, 1.6664), tolerance=.tol[["est"]]) calc.v <- function(x) { v <- matrix(1/x$n2i[1] + outer(x$yi, x$yi, "*")/(2*x$Ni[1]), nrow=nrow(x), ncol=nrow(x)) diag(v) <- x$vi v } V <- bldiag(lapply(split(dat, dat$study), calc.v)) res <- rma.mv(yi, V, mods = ~ 0 + factor(trt), data=dat, sparse=.sparse) ### compare with results on page 367 expect_equivalent(coef(res), c(2.3743, 1.5702), tolerance=.tol[["coef"]]) ### compare with results on page 367 tmp <- vcov(res) expected <- structure(c(0.02257, 0.01244, 0.01244, 0.03554), .Dim = c(2L, 2L), .Dimnames = list(c("factor(trt)1", "factor(trt)2"), c("factor(trt)1", "factor(trt)2"))) expect_equivalent(tmp, expected, tolerance=.tol[["var"]]) ### compare with results on page 367 expect_equivalent(res$QE, 3.9447, tolerance=.tol[["test"]]) }) ############################################################################ ### create dataset dat <- data.frame(school=c(1,1,2,2,3,3,4,4,5,5,6,6,7,7), outcome=rep(c("math", "reading"), times=7), m1i=c(2.3,2.5,2.4,1.3,2.5,2.4,3.3,1.7,1.1,2.0,2.8,2.1,1.7,0.6), m2i=c(10.3,6.6,9.7,3.1,8.7,3.7,7.5,8.5,2.2,2.1,3.8,1.4,1.8,3.9), sdpi=c(8.2,7.3,8.3,8.9,8.5,8.3,7.7,9.8,9.1,10.4,9.6,7.9,9.2,10.2), ri=rep(c(.55,.43,.57,.66,.51,.59,.49), each=2), n1i=rep(c(22,21,26,18,38,42,39), each=2), n2i=rep(c(24,21,23,18,36,42,38), each=2)) test_that("results are correct for the multiple-endpoint studies example with standardized mean differences.", { dat$yi <- round(with(dat, (m2i-m1i)/sdpi), 3) dat$vi <- round(with(dat, 1/n1i + 1/n2i + yi^2/(2*(n1i+n2i))), 4) dat$covi <- round(with(dat, (1/n1i + 1/n2i) * ri + (rep(sapply(split(dat$yi, dat$school), prod), each=2) / (2*(n1i+n2i))) * ri^2), 4) V <- bldiag(lapply(split(dat, dat$school), function(x) matrix(c(x$vi[1], x$covi[1], x$covi[2], x$vi[2]), nrow=2))) ### fit model res <- rma.mv(yi, V, mods = ~ 0 + outcome, data=dat, sparse=.sparse) ### (results for this not given in chapter) expect_equivalent(coef(res), c(0.3617, 0.2051), tolerance=.tol[["coef"]]) ### (results for this not given in chapter) tmp <- vcov(res) expected <- structure(c(0.01008, 0.00537, 0.00537, 0.00989), .Dim = c(2L, 2L), .Dimnames = list(c("outcomemath", "outcomereading"), c("outcomemath", "outcomereading"))) expect_equivalent(tmp, expected, tolerance=.tol[["var"]]) ### compare with results on page 371 expect_equivalent(res$QE, 19.6264, tolerance=.tol[["test"]]) ### 19.62 in chapter }) ############################################################################ rm(list=ls()) metafor/tests/testthat/test_plots_contour-enhanced_funnel_plot.r0000644000176200001440000000241114762055322025221 0ustar liggesusers### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true") ### see: https://www.metafor-project.org/doku.php/plots:contour_enhanced_funnel_plot source("settings.r") context("Checking plots example: contour-enhanced funnel plot") test_that("plot can be drawn.", { skip_on_cran() res <- rma(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, measure="RR", slab=paste(author, year, sep=", "), method="REML") png("images/test_plots_contour_enhanced_funnel_plot_light_test.png", res=200, width=1800, height=1500, type="cairo") par(mar=c(5,4,1,2)) funnel(res, level=c(90, 95, 99), refline=0, legend=TRUE) dev.off() expect_true(.vistest("images/test_plots_contour_enhanced_funnel_plot_light_test.png", "images/test_plots_contour_enhanced_funnel_plot_light.png")) png("images/test_plots_contour_enhanced_funnel_plot_dark_test.png", res=200, width=1800, height=1500, type="cairo") setmfopt(theme="dark") par(mar=c(5,4,1,2)) funnel(res, level=c(90, 95, 99), refline=0, legend=TRUE) setmfopt(theme="default") dev.off() expect_true(.vistest("images/test_plots_contour_enhanced_funnel_plot_dark_test.png", "images/test_plots_contour_enhanced_funnel_plot_dark.png")) }) rm(list=ls()) metafor/tests/testthat.R0000644000176200001440000000023413150625652015040 0ustar liggesusers### to also run skip_on_cran() tests, uncomment: #Sys.setenv(NOT_CRAN="true") library(testthat) library(metafor) test_check("metafor", reporter="summary") metafor/MD50000644000176200001440000006421415173363332012234 0ustar liggesusersd0653d6a7337dc5446ddbd29fd76768d *DESCRIPTION f0d3ba06677fc5e8d0d8fcf4071a8870 *NAMESPACE 39c410d68c1733d675e6f9cf638c14b0 *NEWS.md 414b37ec0394792d35649fadff44f3f0 *R/AIC.rma.r 9ba26de0aa220101fbb0836d3d763b54 *R/BIC.rma.r e6750f50d152c7770aaf718304e5f11e *R/addpoly.default.r cd9afbbee0777c3e93c225c39fdbdbac *R/addpoly.predict.rma.r f74a85ebb8b2bc60c9e4fe43b2c182ee *R/addpoly.r 51ab3ca206ffbe662982151b8088f0a4 *R/addpoly.rma.r ebfd6b411f639c9d916f2b0129fc930e *R/aggregate.escalc.r 76b8f78997473012ddddb30f4b0bab9b *R/anova.rma.r 9b7c6d4219b7239aeb940a93f9b9f3ff *R/baujat.r 5640cb94fa2e51ff31d0cecdc636dec8 *R/baujat.rma.r a60ac67d8eadb9fa3eec30b25100fe79 *R/bldiag.r 44d648d658ca6a82482fe0eef9c0b237 *R/blsplit.r 30b9c7c5d4eaab44326f97bd3d2776af *R/blup.r 35a90bfef62fe758b81ddd3a1a1f6eb2 *R/blup.rma.uni.r 8c0c3b1cfd7a187ba798c9e9ac8c6f83 *R/coef.deltamethod.r 154cd0189f5c716a17c24c87e06b1362 *R/coef.permutest.rma.uni.r 4e9eb2e12a5f1c8feed307e705b6b6b9 *R/coef.rma.r af410f040e09d6be41442eefe833ed9c *R/coef.summary.rma.r f01de3f02399102df480b4b15f20bd24 *R/confint.rma.glmm.r 68fe4c81cb2d6f99850a20fc434e3606 *R/confint.rma.ls.r 79457dca8f8d5dfe98910eaa8d2d067f *R/confint.rma.mh.r e3c16933cb1a59278ee8db9e49a9489c *R/confint.rma.mv.r f23bbadae8b8341083bb58b62a560a3d *R/confint.rma.peto.r 828ef6afd6ccc363d570a7cf69c29318 *R/confint.rma.uni.r d2bf840b870b370587c01851ba74f6aa *R/confint.rma.uni.selmodel.r 0d04bbfda4b48ab5b5c9fad66a468117 *R/contrmat.r c1bf586cae568e0bfb2bc74e598edcab *R/conv.2x2.r ec173b72167f4e2d19beb060faa53359 *R/conv.delta.r e46683d34b0e376e874bede69bb35a4b *R/conv.fivenum.r 137cfd8170f440247faa830842dd6de2 *R/conv.wald.r 394388b1b322e04fb4e8656bb977a76c *R/cooks.distance.rma.mv.r 3e67396d29e02b21bd712216e6964794 *R/cooks.distance.rma.uni.r eab5a85465f21f2dc9a58055ba597d10 *R/cumul.r fe065e4ba8a95175ce059d2f1ed562c8 *R/cumul.rma.mh.r 20abe7784a20f76572292bee4ee7e412 *R/cumul.rma.peto.r b88dc869670d3beb804cb83c599250f5 *R/cumul.rma.uni.r 88dd16c02f923caad4ad8cdc1747157c *R/deltamethod.r b0ce10ffc14224af12bec12be1dad70e *R/deviance.rma.r 8b6fd5db99a01f06cf5c15bfd109a6a9 *R/df.residual.rma.r 59e42517defdeca9e4ef8ed84a6d3023 *R/dfbetas.rma.mv.r be52077ac7b9873d44c4594a0759610d *R/dfbetas.rma.uni.r ad252e8e5ca27ece604145a186efb7d6 *R/dfround.r 9964bb02118bd86c3bf55474ad3c21b0 *R/emmprep.r 8f571340dd9ef95aece0b9b5f312eb66 *R/escalc.r 23c9fbb02e78031973d913c70aae0b10 *R/fitstats.r dda72c1fa367ec8e9d59fee3f9b5d323 *R/fitstats.rma.r 46b64ba738aeb56804bf2260a77847dc *R/fitted.rma.r f50287681867b1a7931eec47df7a5658 *R/forest.cumul.rma.r 72b12c4e865bf2916e0804b38e33700a *R/forest.default.r f5148247e2bb84f6c3cd524c72cd06c6 *R/forest.r 808b338500f44397d56d5448b282560f *R/forest.rma.r b40e20b3f33325edf1a6b40dd6fc93e1 *R/formatters.r ae58c1ba8b1542133afd1e71bb11103d *R/formula.rma.r 60e4e7246f7156ae2b5e868f9101482d *R/fsn.r 37e6f29cb266c72596194edae8ac1255 *R/funnel.default.r d1cbb7d3ab050ed099679e78af50aaaa *R/funnel.r d690694eb517ffe169c7343f60fb5f12 *R/funnel.rma.r 2573a8e03e9331881bef8089ac03af1d *R/gosh.r b18f6b4b6cf9ed1fe50349d382ac0412 *R/gosh.rma.r c3290b6cbc88c701166d36a93926e49f *R/hatvalues.rma.mv.r 44901ac59d73cfd3cf34a870b60cb9f9 *R/hatvalues.rma.uni.r 41d410d818a21e7bbcb798cecc8b57d2 *R/hc.r a690be0bb4e088743e2ad0d6beafba2b *R/hc.rma.uni.r 174e3ce02c12c0ca743d83a61b383e8b *R/influence.rma.uni.r 79a9a5487b16c86b53c7c221028ad2f4 *R/labbe.r 05c47baf8c6e854058c40b8de4dbb24e *R/labbe.rma.r e9309f3a06c035f07723140e4e29952e *R/leave1out.r e48b96f54672d3b21d17619844343933 *R/leave1out.rma.mh.r 18fae030baa74cddad061e00d05118cd *R/leave1out.rma.peto.r 8919fdf5442a8afd7e96b84846911ad3 *R/leave1out.rma.uni.r 9c8a82b1217236fae605becea6067e37 *R/llplot.r 0cf91bb97814448a7c3e744799c8f7ba *R/logLik.rma.r b24de4aa52633b6d05ce91d996616e45 *R/matreg.r 072c5707ff325600d0763dd1d40262b2 *R/metafor.news.r c71bda52ead1738943724a190eb25680 *R/methods.anova.rma.r 1420e92c358ac4c188d703dbcd1fc705 *R/methods.confint.rma.r 0d2ba5ee1eb8538d3f0faa49f1084712 *R/methods.escalc.r 4e7dd5350fc2dc54de82c3683400be66 *R/methods.list.rma.r ad783c0a3e3001811b477ace3d009260 *R/methods.matreg.r c959f7381eff1899c4f8340ddb4cfbce *R/methods.vcovmat.r ea059b12928048bbae8eb19bb62d45c8 *R/methods.vif.rma.r 790adad531049d8bac309cfe3190c497 *R/mfopt.r ab1c716d38c1c0a4833cb9a4b8a4965a *R/misc.func.hidden.conv.2x2.r 6e8f9cd225adf9f654865e8c2fb8e92a *R/misc.func.hidden.escalc.r e27bc28eac3965815f8d055c46df36ef *R/misc.func.hidden.evals.r a50327e286ce130625fabe38b2f9cfbb *R/misc.func.hidden.fsn.r f626ff9a097df709f5ff458a83acc5a0 *R/misc.func.hidden.funnel.r 66109c25d27e2c005dc0664ee23f2e59 *R/misc.func.hidden.permutest.r 5d7461d5aeaf5be798cf5732643b8a1e *R/misc.func.hidden.profile.r 6242601d556fac60dd3547077b8480b7 *R/misc.func.hidden.r 2b177f1b5a8bf022363db44b79288e7e *R/misc.func.hidden.rma.glmm.r eaf161cb3fb51cf08e878715bae16dcd *R/misc.func.hidden.rma.ls.r 678abfb925721a2023dd944192dad5e3 *R/misc.func.hidden.rma.mv.r 7105f79a139289365b46ce3f530eb1b7 *R/misc.func.hidden.rma.uni.r 3376e2607557d1ee3bea65ec734aa8eb *R/misc.func.hidden.selmodel.r 480d42f955c1b6bd896eaee0c2ef89a2 *R/misc.func.hidden.tes.r e5e285cd17f50971c0db507ecf38b153 *R/misc.func.hidden.vif.r 38f1d80ad0417cebd7cdbd10707a4530 *R/model.matrix.rma.r 6e5dedff06fb171ceb6150613a04a6a8 *R/nobs.rma.r 54c5556874f4983941f1ab06874b5097 *R/pairmat.r 3376538a20fd1ea72c6cc0c76abff14c *R/permutest.r 4bf3898103a67a0d1ce86352824d255c *R/permutest.rma.ls.r 98d90b0c653abeceecc662b5fa543561 *R/permutest.rma.uni.r f41661951dea9fb21a7134036ce33801 *R/plot.cumul.rma.r 7d0d47c25fead95ec3c29f28384742d3 *R/plot.gosh.rma.r 7c35e1a15cb4b7e00ef0e955487033ab *R/plot.infl.rma.uni.r 3307968c43a835bacd24f50be4cf3544 *R/plot.permutest.rma.uni.r 47cd61c4495fc5a537da5c1ffa382939 *R/plot.profile.rma.r cd161749cfa04b1742558c41f30291e9 *R/plot.rma.glmm.r 4f06c964ad0b7d74d70d88080e25802d *R/plot.rma.mh.r c70e04892d587000d5df3ee9dbfdd2d1 *R/plot.rma.mv.r 9335f840e1c50c2dd62a605c2f439002 *R/plot.rma.peto.r 9f79e02f896088098aff98ed40262508 *R/plot.rma.uni.r bd6a66268bbfaada8ea9762ab37517e8 *R/plot.rma.uni.selmodel.r 9ea4c3d28c0655f62c332ad248239a89 *R/plot.vif.rma.r 8c7ad88f5a5faaf22e8388d4c8308694 *R/points.regplot.r 32a33cd6288a05ff3b8021d900c5391f *R/predict.matreg.r 1aaad7477b62cf1640d670bd0f4df353 *R/predict.rma.ls.r 7dd586d415a1087bc32a5246fc41ee3b *R/predict.rma.r b5a509e2ebe1cb288b03a26869ec37b3 *R/print.anova.rma.r 73fe7a7ec5e273abaa00e026391280a5 *R/print.confint.rma.r 620f1a8ef2c0cfbecfb41c6b16f00646 *R/print.deltamethod.r e125efbce2e43499c56bd2c050b30f59 *R/print.escalc.r d4dbeb6b94b10469ba3d6607b7f82df7 *R/print.fsn.r 11fe44eb14664f886d5c986d61320479 *R/print.gosh.rma.r aa35d08d0e551e39d972dd83ec36ed46 *R/print.hc.rma.uni.r 04d0d5b809982186c6539fdc6405ede2 *R/print.infl.rma.uni.r ecd2e7de26e56e8b57889e4ed6dc7127 *R/print.list.anova.rma.r f4e711961b4e6c72e7d79d57e3c17faa *R/print.list.confint.rma.r 9aee2db9bf73e68e88ab08e8dd856aef *R/print.list.rma.r f86a14065e02a1ae2e3e32ffb3d6074d *R/print.matreg.r 455d85a18d9df7ce0e0022f13f538edc *R/print.permutest.rma.uni.r 5f0447fb5cb4e588f500536be3c5dfdb *R/print.profile.rma.r 75d5649864cec5d19b105e0a2cb03559 *R/print.ranktest.r 89cee8049d9de7b99eefc6ce61211f1f *R/print.regtest.r f57485b431afe8f9a51940f8bfdd0b8f *R/print.rma.glmm.r 5b49137e5438c729d8d4cbe501c530a7 *R/print.rma.mh.r 8a72f9786c8642537a15510ccd4abb4b *R/print.rma.mv.r 319880191c2f18a5e873f387bc8c1975 *R/print.rma.peto.r ca1bab74fd1756edaa9d274087fd5e66 *R/print.rma.uni.r 0dafaa64b7fb53fa34e6d2f03ce4acd1 *R/print.summary.rma.r 79ad86a4804df56ae2076e6fb657c8e4 *R/print.tes.r 06c3b527c86f69fef0a7ece1c7e96937 *R/print.vif.rma.r 3aa0aa9dcaba4750131efc9731a55552 *R/profile.rma.ls.r eea7b756c524f228258303674f0616b5 *R/profile.rma.mv.r 0655f19f131aeede280de3f7a9cbb416 *R/profile.rma.uni.r 544cc4d92fae861f6ab6ba863d7bfb71 *R/profile.rma.uni.selmodel.r 38c10f1945d9881f29a7416462c62998 *R/qqnorm.rma.glmm.r 0d2aad419cd566db1077cf0ada0973fb *R/qqnorm.rma.mh.r deb8e92cf40f9bd9d92ac72bdee564dd *R/qqnorm.rma.mv.r 162a22da8f640922ff32e5cc0d43c4c9 *R/qqnorm.rma.peto.r e0d0415283ededa3f2069b9036e7b9b3 *R/qqnorm.rma.uni.r 6e24b4b240bb401da744f5cd44dee0ae *R/radial.r 6b7a9594e07cd569e6896bd99126e5b5 *R/radial.rma.r c57a69f59766f9baba66bce923779e42 *R/ranef.rma.mv.r 72d6b11edecd937bae397d4170bbda01 *R/ranef.rma.uni.r ba277ba3772385fb918673a6339af007 *R/ranktest.r e919a7a8d632e3131513f0f080364049 *R/rcalc.r 48adb556610afbd0ac47307d9346e443 *R/regplot.r c65aca483abf3b691e30dd9a4ed7f9f1 *R/regplot.rma.r 742f6e510b15b2b165732adc0ebd5b7b *R/regtest.r ef2791301363573bac40b8de62bfd986 *R/replmiss.r 91777063e31189d96863dc3a8c9de213 *R/reporter.r 60ad65e93c9f7aa0b938dfe1ec2b006e *R/reporter.rma.uni.r d5f10608a527d0fc87bd2aaa62a6a90b *R/residuals.rma.r e80f7e45512eb73c1d053c1ad0bca405 *R/rma.glmm.r a863a00b202376a4ebc4e43fdff45b8d *R/rma.mh.r 6cd1a03bbf52027cd08aad59a068a5d2 *R/rma.mv.r 042ba02f16c5bc97d720e6af88155481 *R/rma.peto.r 166856afa71a74ec94abb20670473a64 *R/rma.uni.r c7549400ef048f329f3bc18433c9a32a *R/robust.r 4b6c18bf1c667be28ca605674ed41768 *R/robust.rma.mv.r cd652938aecb26245dd96a40aa8c0f40 *R/robust.rma.uni.r be5d9edd8b50e12460e626f36aeb5b77 *R/rstandard.rma.mh.r 29edeb452d4db28f3e0251a171ec18c6 *R/rstandard.rma.mv.r dd0e24a803140cfc587677d3610bb65c *R/rstandard.rma.peto.r cc70072486114028e9c6e89cdb5fda7d *R/rstandard.rma.uni.r 42ae55f4d146f6fbc87da5d46da64dcd *R/rstudent.rma.mh.r 3108f85372d7bae470d23bfe49199e2b *R/rstudent.rma.mv.r 45d0fefd4833c932b56d2f5ede410c51 *R/rstudent.rma.peto.r 07a1ef1722a6eab8f6522afd21ff9ac4 *R/rstudent.rma.uni.r c7f30c0d0989549d9ac85ee456ddc27d *R/se.r d31b9a1f07c093dac4a38e92edb83040 *R/selmodel.r f1eb0ba65a4e868ed5495c6c7392841a *R/selmodel.rma.uni.r d0913769428c3748a6032da936cca3ae *R/simulate.rma.r d5e0bf6c01d2e1c1467fc3e77c8560f4 *R/summary.escalc.r 3d4a7a8df885bed6085691d9564f823c *R/summary.rma.r 38361e8d3c23298eaaa3666c2c372a48 *R/tes.r 1db81424f678d1c1695637813bf2fc5d *R/to.long.r 09697da9d8cf3b7afaf8b37767fce081 *R/to.table.r 15fbf70d884e2677c7ee1c0657f7bcab *R/to.wide.r 08be33eff22f4633a6daf3021710f579 *R/transf.r 362bf474245dd51425ef3b345f298778 *R/trimfill.r a556bd9662c2bcebecfa97f4ac32bafb *R/trimfill.rma.uni.r f1e6af7f7accf8629e3c931381024229 *R/update.rma.r 15985e2f535eb58b00447ad5cc27fa8f *R/vcalc.r 5f528c9fa970ac5bd3d55820ed2d87cf *R/vcov.deltamethod.r f76cdca5951ab36849af4f2d2bd957f6 *R/vcov.rma.r 80def66293b45384a31bf95e5d9c0599 *R/vec2mat.r 728fdc925021f89708a4031cb4f0b5d1 *R/vif.r 1e53ad5ca8588bf50e22f68128659603 *R/vif.rma.r a006f4fbc230b842059fa1099fb55af3 *R/weights.rma.glmm.r 01331eb2513eb9d622da3242674b9dc1 *R/weights.rma.mh.r 2a1221d6fd6502ff90811a8165521074 *R/weights.rma.mv.r e2c7eba07c14d450be34e607a6bee84d *R/weights.rma.peto.r eb5964db18c48d6e8d040928bcf39e72 *R/weights.rma.uni.r 8a1a2c716ea3e0c1912ad5778651e580 *R/zzz.r 7b8584faca4eb07e25dcb7148b1f3b48 *README.md 34cb3b48ccd3bb2d2c0dc7fa5acecc97 *build/metafor.pdf 0842fdb6e04faa3555e2045716679c3b *build/stage23.rdb 66e03a0bd3453b39b66d85f856969211 *build/vignette.rds cf049154d8986ccb436dfd244bfb7994 *inst/CITATION 857c2658d74164fedb9dba5a4e3e1c7f *inst/doc/diagram.pdf b438c769739c3d868cfd5766f72f7c2c *inst/doc/diagram.pdf.asis 33709d6c8f6f97911317ebdc89ad72f5 *inst/doc/metafor.pdf b22e3397f4cea09c48a2c785ff0cae6a *inst/doc/metafor.pdf.asis 674a1e37b84b08e97e1ab7a866d71189 *inst/reporter/apa.csl 605bd27616d17f5a29cecad2068ad451 *inst/reporter/references.bib 2d653c0ace403b49e5b90452ca1d9d4f *man/addpoly.Rd a72953196e0d1c3b276850caf4846b39 *man/addpoly.default.Rd 450e4765271a3f1ca16d5b3030250a89 *man/addpoly.predict.rma.Rd d943586025f1cf6c8121dce69dd59ae8 *man/addpoly.rma.Rd 298c65daf9532ba1e6bc164b4d4f9a24 *man/aggregate.escalc.Rd 11a42d32795eddc9ff8a2e1864d35222 *man/anova.rma.Rd cc0f86eb3fcc81a065199e153c85f4a0 *man/baujat.Rd 154c50d4ae89c1262f826acdbe5157ff *man/bldiag.Rd 7eb1a91c5486dc9642ebfa19ca79705b *man/blsplit.Rd 032fa2b25397f09cad7eaec2dff57bc1 *man/blup.Rd 4ed8acc0321630b2786e06109d546627 *man/coef.permutest.rma.uni.Rd caa5214e5b87ffb5c4422301caf3638d *man/coef.rma.Rd 42e6f23375318715a3cb4816779034ec *man/confint.rma.Rd 05281f339889ba5984d3884f7457c11e *man/contrmat.Rd 0ea6e2088e93975ee792aec44dd465e9 *man/conv.2x2.Rd 09cfd91cb4b3f8c1689f64848d08c427 *man/conv.delta.Rd 141963a081a786728d96403e2f7876a5 *man/conv.fivenum.Rd b27b9a2adb8385c6a0f24c130fe3b94d *man/conv.wald.Rd 4498977e943e998358cc9ae5bb7e76ee *man/cumul.Rd e8f142d3ea06e7d8332a8a77f590724f *man/deltamethod.Rd afccbe451559725c0e95c6336d00351d *man/dfround.Rd a537e5adcef19ece3375d20cbead24e4 *man/emmprep.Rd efa7bf7cc5c1599c2bc3101c7a672333 *man/escalc.Rd f4ecbc3e59130a72054fc9d9af4ca276 *man/figures/crayon1.png f1588a41de5489b7ad30492939ce6722 *man/figures/crayon2.png 1f940bd03f8cc4217ee59fca76e549ae *man/figures/ex_bubble_plot.png 8268ebe79cf538ee68c2e6ea45516c98 *man/figures/ex_forest_plot.png b6b7c1fd7c76360bf8f60f2c9322a4f4 *man/figures/ex_funnel_plot.png 81a724dcac82836c6a0ed4b65d495671 *man/figures/forest-arrangement.pdf d487130e7837e890a498c0969ce2ea6d *man/figures/forest-arrangement.png e4e70116302b2b9287df8fcbc36b550a *man/figures/plots-dark.pdf 8271ffc9012c9b2a326e1cfa9a0fe4b5 *man/figures/plots-dark.png 727997a2c28cbac4026adfa7ded6adf8 *man/figures/plots-light.pdf a9bb4b820f5bdfdf5e97c6448ac8a006 *man/figures/plots-light.png 721e846ff389d961e74d5ba09d831398 *man/figures/selmodel-beta.pdf ac3c7430bb215450e7c0ff169b6d1c6c *man/figures/selmodel-beta.png 6420c7e58ff64e5041d64b9ee1cc2c85 *man/figures/selmodel-negexppow.pdf 6c5ba3e80208948dc5027890de3445c1 *man/figures/selmodel-negexppow.png 35162f6b1ade95bd19a6d9b1e41a6198 *man/figures/selmodel-preston-prec.pdf 3c25dc5449669416496b843cddedca4e *man/figures/selmodel-preston-prec.png 21a49438a82db2f862124fce6cbd369f *man/figures/selmodel-preston-step.pdf 7d493ecbf905e007a4f7750d3d652987 *man/figures/selmodel-preston-step.png 1552fb20609bdfb14aed1f360d277d14 *man/figures/selmodel-preston.pdf 9554c4cd81533d40bf269af3533d1ec6 *man/figures/selmodel-preston.png 0db3d2a76003af4269d1b97485f58fbe *man/figures/selmodel-stepfun-fixed.pdf 051bbf978d4b8c4221b8b8f5aa6c7804 *man/figures/selmodel-stepfun-fixed.png 9bfce87bd2afe8cdfe93ffe1a69b0d37 *man/figures/selmodel-stepfun.pdf c1df1cd51ce96c6d59107c7ce80a6d5d *man/figures/selmodel-stepfun.png 0afe24385f0ae7a56af40931df71f6f6 *man/fitstats.Rd f7aca92431e0a8d0bb4d1671dccce181 *man/fitted.rma.Rd ca0751043adbf81a4532a7faeca8353d *man/forest.Rd 0a86383dd0c2bc587f3cfc64aab45837 *man/forest.cumul.rma.Rd a77e71351acc7eee2fe524ae94f88e1c *man/forest.default.Rd 1a5209df178ed706c1ac9faf5de5b111 *man/forest.rma.Rd c77edef69c8492bccb06cef4c12b217a *man/formatters.Rd be161b700ce6e325fa1571b7d09c3f55 *man/formula.rma.Rd a0af578384ad85c8d7f71df17f5c8d2b *man/fsn.Rd d795a24ebc90e74e1e3b05850940e228 *man/funnel.Rd 1d0606f21ec2c08ff9ef96f396ea3f7d *man/gosh.Rd 12ab201d1cadfaf3d511872f271e54d1 *man/hc.Rd 7dc323c24fdffc66be27f0641f4c82d8 *man/influence.rma.mv.Rd 747ddc9e24a759115fda35ffb1e1e97f *man/influence.rma.uni.Rd cbd736f1422e5d800b131823fd4e50b8 *man/labbe.Rd 743c46c8084f5a6525c7f476325aaaef *man/leave1out.Rd e45496fa7c24d7a30b202e8eb95d89b0 *man/llplot.Rd 20563d95cbd152a9abe16faca5db037a *man/macros/metafor.Rd b65374eb7fb26ce5d80b7e1da95b5552 *man/matreg.Rd 00c18078f0358beb8051693667cf805b *man/metafor-package.Rd 347b291270b8a61158080fbeee38be8e *man/metafor.news.Rd 5287285a9e95c5ed1d2074a2c4bf7cc7 *man/methods.anova.rma.Rd ea2067353582066072eb30bbd7e98890 *man/methods.confint.rma.Rd 461093248370968e5c0e3b093cbd344e *man/methods.deltamethod.Rd be8b158d544c5f9163d9eb5b0c97d353 *man/methods.escalc.Rd 6c1929f287c360bfbad1c3aa289a4741 *man/methods.list.rma.Rd 069f3e583483196a2e36ce432425facd *man/methods.matreg.Rd a7bf66eb550a3409787943ed93be559e *man/methods.vcovmat.Rd 5bab3ffbfde3960efc88806c07b5353c *man/methods.vif.rma.Rd c2f536c831eb43cbef59d16e47530091 *man/mfopt.Rd ed509e238c92697eddab1efa7e23d453 *man/misc-models.Rd 013f9d425418f9843239676f14c015d4 *man/misc-options.Rd 859c6d4c01076bf47daf4c3910d07d42 *man/misc-recs.Rd 32259b0aa1b06fba93fee324586d1e44 *man/model.matrix.rma.Rd 7742776384e6bb564cb74f4b1333ebb7 *man/pairmat.Rd 9362be5e653a569472c95a8ab836d4fd *man/permutest.Rd 4e2881a7cce29c88d5495bcd1885ccaa *man/plot.cumul.rma.Rd 17be8f2c6e18429b95c3145781946a11 *man/plot.gosh.rma.Rd b3a847260d75c5729ef5a7a135cbc197 *man/plot.infl.rma.uni.Rd cd5cfff07146311cc50bb09c6c483ea8 *man/plot.permutest.rma.uni.Rd 11c9dd220e6fe470250d7ff1cc8056ea *man/plot.rma.Rd fd25dc148ffa29c608f4096142555344 *man/plot.rma.uni.selmodel.Rd 5f27da5e367078f4e45c579e6927f417 *man/plot.vif.rma.Rd ec865efbe8e7b2744973403ff55ec5c3 *man/predict.matreg.Rd de389b67e77f75f5379182637abcf66b *man/predict.rma.Rd 0d98983c969028e9479b9b2ede77dd36 *man/print.anova.rma.Rd 8351167793bab102e09bb8533974e99f *man/print.confint.rma.Rd 8f9cb06e36f48712ba7984aa63cfadba *man/print.deltamethod.Rd d68be4f36522850a2708a70dd8ea91cc *man/print.escalc.Rd 718f5d7400a1da412415c95cf70be322 *man/print.fsn.Rd b0aa49dbb2305c32ece0bf5b29e83793 *man/print.gosh.rma.Rd a2e9152fb9678be8a7ce84ed2d8bb230 *man/print.hc.rma.uni.Rd 6a35a7b0e8715e5a8f9f148d1cda4d78 *man/print.list.rma.Rd d6e9c04880ac312fe08965dd263113a2 *man/print.matreg.Rd ae4573d9178eec781af5ff63d37808b4 *man/print.permutest.rma.uni.Rd 918adf46223dc84578ed88ebabe6dec7 *man/print.ranktest.rma.Rd 682d836cd27530db8d5cb6166c878ab0 *man/print.regtest.rma.Rd 4b026e975749a6790ce9ae4aa067bf63 *man/print.rma.Rd a765b78136c62adf5615e0e7fb82a4d2 *man/profile.rma.Rd 1bfd76cc2b04025cc8bfb7f92fa4e0b5 *man/qqnorm.rma.Rd 1ee112c4aa0a9611891687a890e529b7 *man/radial.Rd f6f54f71628a29d6f23631ef35ae862c *man/ranef.Rd 9d9705571f14cadf7cc8e2906f4067dc *man/ranktest.Rd 3282e76084c4aa5f550e04ed26cf0b5c *man/rcalc.Rd d7ac25a529ada4f6cea336d279ca7eec *man/regplot.Rd f163220e78eaf04ecd48172693512036 *man/regtest.Rd bccd040372d7c979a4c1df16d076430e *man/replmiss.Rd ddceacffde6515efb5466e266a56ee95 *man/reporter.Rd c7d932115f3815eb137fc3825eda6cd8 *man/residuals.rma.Rd c16a31a71f9664fbe275e0fa32861827 *man/rma.glmm.Rd c02e9cb32670180c4ae7176980d71b36 *man/rma.mh.Rd 84d6edc9553ba6d4f82a0c8586558abc *man/rma.mv.Rd fdeab7819c320b111f286be32448d192 *man/rma.peto.Rd f5330624ef9bf29088f2bb364599b22e *man/rma.uni.Rd 2cad3d5a348c697d48bdded4b93384fe *man/robust.Rd 89bcf5aa2479ef6700e096d3f51521e9 *man/se.Rd a7facff06c415641687eea30069bddcb *man/selmodel.Rd 74133339c57f693986ceebf7f880acd0 *man/simulate.rma.Rd 35db1ca8c9fcec1457c22fd42e99124e *man/tes.Rd 14eb38c63dfbbc89412606650bea79d5 *man/to.long.Rd 1911cda2581f3ce876d01119a9357e6f *man/to.table.Rd 8fa1f4e14eea0f3e6d398f7f362852cc *man/to.wide.Rd c27fa93a6b82ff9fe1a66f8cc9c1c3fd *man/transf.Rd d64d477bb2c087165403345d1d7a1bf9 *man/trimfill.Rd 82b33ebf6d54dce969a2b4f9aacf4f8d *man/update.rma.Rd ca7f678f5b76c5470ad61b394581a452 *man/vcalc.Rd bff8351520a43daac0770c55ab20375f *man/vcov.rma.Rd ff1d71695afdd2e4d315d185d72b91bc *man/vec2mat.Rd 21986edae3cec72ea1a4ecafb673ea3b *man/vif.Rd 72bf88348a17379211b31c60f17d9a6d *man/weights.rma.Rd df74e87ff286619152915b3b02417856 *tests/testthat.R 579acd528201ab9c276064ef35ad11c3 *tests/testthat/settings.r 3f0a0685e1154c3c0061cc7beb135ca4 *tests/testthat/test_analysis_example_berkey1995.r d4d5176766631c62668fa6ee1323e0ab *tests/testthat/test_analysis_example_berkey1998.r 01a7b20af21f5606f9b9ff0baedfe0c6 *tests/testthat/test_analysis_example_dersimonian2007.r d3c8ccfabaafb8676c6f9b0d11f2747c *tests/testthat/test_analysis_example_gleser2009.r 4ee842d79a2169ffe52835240c336a9b *tests/testthat/test_analysis_example_henmi2010.r 96d77c1649bb34dcaadf7f04f6226032 *tests/testthat/test_analysis_example_ishak2007.r 53620d121f2d50520c3e9329ab982986 *tests/testthat/test_analysis_example_jackson2014.r f4a599ca39835c4b6031ea2c7dea187d *tests/testthat/test_analysis_example_konstantopoulos2011.r 95f6df73552b9074c75caed8daaebd87 *tests/testthat/test_analysis_example_law2016.r a4838f55fa3df144ca7ad89cc67fad20 *tests/testthat/test_analysis_example_lipsey2001.r 1efdab575ba4d78dbfe75a2a0d7cd179 *tests/testthat/test_analysis_example_miller1978.r 6bd67c8d402eb58cac787a1474ce7d18 *tests/testthat/test_analysis_example_morris2008.r e3079c194cd48a161ad7365e655c709c *tests/testthat/test_analysis_example_normand1999.r 507f28d985ea50bab5ea5f4083b08344 *tests/testthat/test_analysis_example_raudenbush1985.r 2f949adf4fa7ee7f24fe7a6deab7274e *tests/testthat/test_analysis_example_raudenbush2009.r 2ae88a78722fdf34c986dbd5769ff439 *tests/testthat/test_analysis_example_rothman2008.r f4c7f6d5860fd0d2c1ca52c5a86e1b2e *tests/testthat/test_analysis_example_stijnen2010.r 42df3f9eb5cf207246fc9f3450920b13 *tests/testthat/test_analysis_example_vanhouwelingen1993.r 3c7fb0e9b325ceb9a1b3434d83561010 *tests/testthat/test_analysis_example_vanhouwelingen2002.r 435f67bb105e2a5513abc44225e4f012 *tests/testthat/test_analysis_example_viechtbauer2005.r dd0a8c1965a219e9cb6dcc3f8de3ba35 *tests/testthat/test_analysis_example_viechtbauer2007a.r 61a93338b98d07e4310eb7925af72427 *tests/testthat/test_analysis_example_viechtbauer2007b.r 2d0364e6a60d15c0277741473ac77c97 *tests/testthat/test_analysis_example_yusuf1985.r f01cd303bb6c65ead0f49cd02f906f6e *tests/testthat/test_misc_aggregate.r d2ea95994e2929958f83ac217de883cc *tests/testthat/test_misc_anova.r 9b0ae16040f9bf6d501196b15d312e6d *tests/testthat/test_misc_calc_q.r 8200012495e8bead7d1f95b5975db338 *tests/testthat/test_misc_coef_se.r 5926a096c3056eb20aa571b6a64b0c69 *tests/testthat/test_misc_confint.r aeda3f039f385a19228c78736065e030 *tests/testthat/test_misc_cumul.r ef42b224ff0dafddede1eef5ca842bb3 *tests/testthat/test_misc_dfround.r c4d1768ee4898ee2ac668da732a311bd *tests/testthat/test_misc_diagnostics_rma.mv.r a0aa810fbc08c795ef294fd96de1d054 *tests/testthat/test_misc_emmprep.r 2640f11c77fa35349f8f2932c53d2f9c *tests/testthat/test_misc_escalc.r 247e48f89ff45ebaf33935d32ce2a9aa *tests/testthat/test_misc_fitstats.r 921a498fac73ca35f6ca4429ec9c4d96 *tests/testthat/test_misc_formula.r 9e488956309c5564b517b326d5bf1794 *tests/testthat/test_misc_fsn.r 7a9318dd165d13145e605ffa9f52dcfd *tests/testthat/test_misc_funnel.r 64a078866b748439e5a9f9fa258e79c8 *tests/testthat/test_misc_handling_nas.r 727f6bb7ce40e8d84c784036f8e15ea3 *tests/testthat/test_misc_handling_of_edge_cases_due_to_zeros.r 1d13ee0e31dae8af9672b58127427e05 *tests/testthat/test_misc_influence.r bffa5199c3aab3b494a7475bbad525f9 *tests/testthat/test_misc_list_rma.r d235492e0e6837c87e65061d1d266dea *tests/testthat/test_misc_matreg.r a5e0c655589113899bfe347db5d5831f *tests/testthat/test_misc_metan_vs_rma.mh_with_dat.bcg.r 3a68e7158bf865207285bafcc20c3c2d *tests/testthat/test_misc_metan_vs_rma.peto_with_dat.bcg.r 22dbc953cb8714f56a9f821df5d599c9 *tests/testthat/test_misc_metan_vs_rma.uni_with_dat.bcg.r f5a066655f0e31f2eb3a4913d92b106f *tests/testthat/test_misc_pdfs.r 4c079d648c468bba63cdf864e89399cf *tests/testthat/test_misc_permutest.r f2e91b2969afbc8bc2eeab0a7fcd3a18 *tests/testthat/test_misc_plot_rma.r 980e1c8b77bd95e9a91b657e8ce7167d *tests/testthat/test_misc_predict.r d2bb802a3040ab3949cf7a89df051dc8 *tests/testthat/test_misc_pub_bias.r c538b9d1c080ecc7d6eaa735ebd91fd6 *tests/testthat/test_misc_replmiss.r 7ad6669c040b93e9c496272f11da25bd *tests/testthat/test_misc_reporter.r 61f9fb26a69f2e1f63f61e094f449f5e *tests/testthat/test_misc_residuals.r 85f2a92f77e8c0271100dea180b70654 *tests/testthat/test_misc_rma_error_handling.r dda535109468445fcfd4c589fb4ff58a *tests/testthat/test_misc_rma_glmm.r e93864b1afd02fe6a19f37cf7e8c1e58 *tests/testthat/test_misc_rma_handling_nas.r 7abddd69f9397e83a4d1d42b82aff043 *tests/testthat/test_misc_rma_ls.r 1a5f6838d7210d943c1f2c131b17f6b9 *tests/testthat/test_misc_rma_mv.r a8a3421f7c8bbaee846588c5e2a7886e *tests/testthat/test_misc_rma_uni.r 9c1e0f2871158612ee536c5bbf3c9bac *tests/testthat/test_misc_rma_uni_ls.r fde0335a40f9cd8ed11a06116fa53d22 *tests/testthat/test_misc_rma_vs_direct_computation.r 59d989e747fc46dfce4e7bf670cdae91 *tests/testthat/test_misc_rma_vs_lm.r 300b7e8d2aff650e859e42aff716dc65 *tests/testthat/test_misc_robust.r cbafef4137b96f2da6c19c3fd2a033df *tests/testthat/test_misc_selmodel.r b19984f4fd3243fd342973edba84461e *tests/testthat/test_misc_setlab.r 2ef180c8f91e36a4189c24c3fa631031 *tests/testthat/test_misc_tes.r c1e21c0783b57282f2cf4da825c8b269 *tests/testthat/test_misc_to_long_table_wide.r 4488f41e69550b9601d05b5a3017d41a *tests/testthat/test_misc_transf.r b537a873be06626f01488c9103e990dc *tests/testthat/test_misc_update.r 8d92ea2662c053fc3cf10f8b0f7fd716 *tests/testthat/test_misc_vcalc.r 70c15f8a3710de524c5f242c82795c67 *tests/testthat/test_misc_vcov.r 6ae9536eb7123736205e3747c6f89f81 *tests/testthat/test_misc_vec2mat.r d803076ddad6d0576294cc211c4ee8bc *tests/testthat/test_misc_vif.r 757543ec1dafe8167e495bf6ce7733b2 *tests/testthat/test_misc_weights.r df9a71f2b4fa1ae005f0423373bc1a0c *tests/testthat/test_plots_baujat_plot.r d229f698275ae1fb1f4aa34afca726c9 *tests/testthat/test_plots_caterpillar_plot.r dd1581c25743e68a6ea158a58d83f8ec *tests/testthat/test_plots_contour-enhanced_funnel_plot.r 6f1d1b075647403f32873791b22e80c7 *tests/testthat/test_plots_cumulative_forest_plot.r b6332820ba897b9090896ffe2fb4b119 *tests/testthat/test_plots_forest_plot_with_predstyle.r 4c573ae5ea096dab6b0e33ade3eb709b *tests/testthat/test_plots_forest_plot_with_subgroups.r 2f4e7fa983a3364da21cc5f669f93716 *tests/testthat/test_plots_funnel_plot_variations.r 29a001dee9143db6f7bd772bf2569c5c *tests/testthat/test_plots_funnel_plot_with_trim_and_fill.r 8597e259610f1278e973e7924686ad0e *tests/testthat/test_plots_gosh.r ebf16696705dc26613199bb89cfb478d *tests/testthat/test_plots_labbe_plot.r 45e676f74885732189075f8054ea6450 *tests/testthat/test_plots_llplot.r bebe1cfa08eef3c35325277f80075a8a *tests/testthat/test_plots_meta-analytic_scatterplot.r 21a3f30ab6e0a1a459a8afb5a690013a *tests/testthat/test_plots_normal_qq_plots.r 137c1df549996a33f7c9a121fcdfae8d *tests/testthat/test_plots_plot_of_cumulative_results.r 27335b928c6e39c1706bbe0e2198c307 *tests/testthat/test_plots_plot_of_influence_diagnostics.r 581723755fa5a0f71944fc6261def329 *tests/testthat/test_plots_radial_plot.r 7252903f5e119d1db26fb0ce9c58e634 *tests/testthat/test_plots_regplot.r b0b29b054b53813d3dcc3cf3098209d9 *tests/testthat/test_tips_model_selection_with_glmulti_and_mumin.r a18258207c5a7db01130720e10f4f972 *tests/testthat/test_tips_multiple_imputation_with_mice.r 63d1804b1e3ed7e25cbb353d20240441 *tests/testthat/test_tips_regression_with_rma.r 06c471e142c09f27a2e09b2f0237b2c7 *tests/testthat/test_tips_rma_vs_lm_and_lme.r 7a4619c81a9a4d04b597aa2b431f404b *tests/testthat/test_tips_testing_factors_lincoms.r b438c769739c3d868cfd5766f72f7c2c *vignettes/diagram.pdf.asis b22e3397f4cea09c48a2c785ff0cae6a *vignettes/metafor.pdf.asis metafor/R/0000755000176200001440000000000015172351301012106 5ustar liggesusersmetafor/R/plot.infl.rma.uni.r0000644000176200001440000004751415120213572015561 0ustar liggesusersplot.infl.rma.uni <- function(x, plotinf=TRUE, plotdfbs=FALSE, dfbsnew=FALSE, logcov=TRUE, slab.style=1, las=0, pch=21, bg, bg.infl, col.na, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="infl.rma.uni") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) ddd <- list(...) if (!is.null(ddd$layout)) warning(mstyle$warning("Argument 'layout' has been deprecated."), call.=FALSE) .start.plot() if (missing(bg)) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) if (missing(bg.infl)) bg.infl <- "red" if (missing(col.na)) col.na <- .coladj(par("bg","fg"), dark=0.2, light=-0.2) ######################################################################### ### check for NAs and stop if there are any when na.act == "na.fail" any.na <- is.na(as.data.frame(x$inf)) if (any(any.na) && na.act == "na.fail") stop(mstyle$stop("Missing values in results.")) ######################################################################### ### process plotinf argument if (is.logical(plotinf)) { if (plotinf) which.inf <- seq_len(8) } else { which.inf <- plotinf which.inf <- which.inf[(which.inf >= 1) & (which.inf <= 8)] which.inf <- unique(round(which.inf)) if (length(which.inf) == 0L) stop(mstyle$stop("Incorrect specification of the 'plotinf' argument.")) plotinf <- TRUE } ### process plotdfbs argument if (is.logical(plotdfbs)) { if (plotdfbs) which.dfbs <- seq_len(x$p) } else { which.dfbs <- plotdfbs which.dfbs <- which.dfbs[(which.dfbs >= 1) & (which.dfbs <= x$p)] which.dfbs <- unique(round(which.dfbs)) if (length(which.dfbs) == 0L) stop(mstyle$stop("Incorrect specification of the 'plotdfbs' argument.")) plotdfbs <- TRUE } ######################################################################### if (!plotinf & !plotdfbs) stop(mstyle$stop("At least one of the arguments 'plotinf' or 'plotdfbs' must be TRUE.")) if (!plotinf & dfbsnew) dfbsnew <- FALSE par.mar <- par("mar") par.mar.adj <- par.mar - c(2,1,2,0) par.mar.adj[par.mar.adj < 1] <- 1 par(mar=par.mar.adj) on.exit(par(mar=par.mar), add=TRUE) ######################################################################### ### filter out potential arguments to abbreviate() (which cause problems with the various plot functions) lplot <- function(..., minlength, strict, layout) plot(...) lpoints <- function(..., minlength, strict, layout) points(...) llines <- function(..., minlength, strict, layout) lines(...) laxis <- function(..., minlength, strict, layout) axis(...) labline <- function(..., minlength, strict, layout) abline(...) ######################################################################### ids <- switch(slab.style, "1" = x$ids, "2" = x$inf$slab, "3" = abbreviate(x$inf$slab, ...)) #print(ids) ######################################################################### ### plot inf values if requested if (plotinf) { np.inf <- length(which.inf) if (np.inf > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < np.inf) { #par(mfrow=n2mfrow(np.inf)) # this behaves slightly differently (see below) if (np.inf == 2L) par(mfrow=c(2,1)) if (np.inf == 3L) par(mfrow=c(3,1)) if (np.inf == 4L) par(mfrow=c(2,2)) if (np.inf == 5L) par(mfrow=c(5,1)) # n2mfrow(5) yields c(3,2) if (np.inf == 6L) par(mfrow=c(3,2)) if (np.inf == 7L) par(mfrow=c(7,1)) # n2mfrow(7) yields c(3,3) if (np.inf == 8L) par(mfrow=c(4,2)) # n2mfrow(8) yields c(3,3) } on.exit(par(mfrow=c(1L,1L)), add=TRUE) } ###################################################################### for (i in seq_along(which.inf)) { if (which.inf[i] == 1) { zi <- x$inf$rstudent not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- min(min(zi,-2,na.rm=TRUE), qnorm(0.025))*1.05 zi.max <- max(max(zi, 2,na.rm=TRUE), qnorm(0.975))*1.05 lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="rstudent", xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h=0, lty="dashed", ...) labline(h=c(qnorm(0.025),qnorm(0.975)), lty="dotted", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) #if (num.infl) # text(seq_len(len.ids)[ids.infl], zi[ids.infl], seq_len(len.ids)[ids.infl], pos=ifelse(zi[ids.infl] > 0, 3, 1), ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="rstudent", xlab="", ylab="", ...) } } if (which.inf[i] == 2) { zi <- x$inf$dffits not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- min(min(zi,na.rm=TRUE), -3*sqrt(x$p/(x$k-x$p)))*1.05 zi.max <- max(max(zi,na.rm=TRUE), 3*sqrt(x$p/(x$k-x$p)))*1.05 lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="dffits", xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h= 0, lty="dashed", ...) labline(h= 3*sqrt(x$p/(x$k-x$p)), lty="dotted", ...) labline(h=-3*sqrt(x$p/(x$k-x$p)), lty="dotted", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) #if (num.infl) # text(seq_len(len.ids)[ids.infl], zi[ids.infl], seq_len(len.ids)[ids.infl], pos=ifelse(zi[ids.infl] > 0, 3, 1), ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="dffits", xlab="", ylab="", ...) } } if (which.inf[i] == 3) { zi <- x$inf$cook.d not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- 0 zi.max <- max(zi,na.rm=TRUE)*1.05 lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="cook.d", xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h=qchisq(0.5, df=x$m), lty="dotted", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) #if (num.infl) # text(seq_len(len.ids)[ids.infl], zi[ids.infl], seq_len(len.ids)[ids.infl], pos=3, ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="cook.d", xlab="", ylab="", ...) } } if (which.inf[i] == 4) { zi <- x$inf$cov.r not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- min(zi,na.rm=TRUE) zi.max <- max(zi,na.rm=TRUE) if (logcov) { lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="cov.r", xlab="", ylab="", las=las, log="y", ...) } else { lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="cov.r", xlab="", ylab="", las=las, ...) } laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h=1, lty="dashed", ...) #labline(h=1+3*x$m/(x$k-x$m), lty="dotted", ...) #labline(h=1-3*x$m/(x$k-x$m), lty="dotted", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) #if (num.infl) # text(seq_len(len.ids)[ids.infl], zi[ids.infl], seq_len(len.ids)[ids.infl], pos=ifelse(zi[ids.infl] > 1, 3, 1), ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="cov.r", xlab="", ylab="", ...) } } if (which.inf[i] == 5) { zi <- x$inf$tau2.del not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- min(zi,na.rm=TRUE) zi.max <- max(zi,na.rm=TRUE) lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="tau2.del", xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h=x$tau2, lty="dashed", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="tau2.del", xlab="", ylab="", ...) } } if (which.inf[i] == 6) { zi <- x$inf$QE.del not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- min(zi,na.rm=TRUE) zi.max <- max(zi,na.rm=TRUE) lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="QE.del", xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h=x$QE, lty="dashed", ...) #labline(h=qchisq(0.95, df=x$k-x$p), lty="dotted", ...) labline(h=x$k-x$p, lty="dotted", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="QE.del", xlab="", ylab="", ...) } } if (which.inf[i] == 7) { zi <- x$inf$hat not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- 0 zi.max <- max(max(zi,na.rm=TRUE), 3*x$p/x$k)*1.05 lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="hat", xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h=x$p/x$k, lty="dashed", ...) labline(h=3*x$p/x$k, lty="dotted", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="hat", xlab="", ylab="", ...) } } if (which.inf[i] == 8) { zi <- x$inf$weight not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } if (any(!is.na(zi))) { zi.min <- 0 zi.max <- max(zi,na.rm=TRUE)*1.05 lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main="weight", xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h=100/x$k, lty="dashed", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) } else { lplot(NA, NA, xlim=c(0,1), ylim=c(0,1), xaxt="n", yaxt="n", main="weight", xlab="", ylab="", ...) } } } } ######################################################################### ### plot dfbs values if requested if (plotdfbs) { np.dfbs <- length(which.dfbs) if (plotinf && (np.inf + np.dfbs <= prod(par("mfrow")))) { # if np.inf + np.dfbs is small enough to fit on the same multi-panel # plot, then do so, but reset mfrow to c(1L,1L) for consistency on.exit(par(mfrow=c(1L,1L)), add=TRUE) } else { if (dfbsnew) { # this is always FALSE when plotinf=FALSE dev.new() .start.plot() par(mar=par.mar.adj) } else { if (plotinf) { caps <- dev.capabilities()$events if (any(is.element(c("MouseDown","Keybd"), caps))) { message(mstyle$message("Press any key or click on the plot to show the DFBETAS values ...."), appendLF=FALSE) getGraphicsEvent(prompt="", onMouseDown=function(button,x,y) return(1), onKeybd=function(key) return(1)) } else { par.ask <- par("ask") par(ask=TRUE) on.exit(par(ask=par.ask), add=TRUE) } } } # if no plotting device is open or mfrow is too small, set mfrow appropriately if (plotinf || dev.cur() == 1L || prod(par("mfrow")) < np.dfbs) par(mfrow=n2mfrow(np.dfbs)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } for (i in seq_along(which.dfbs)) { zi <- x$dfbs[[which.dfbs[i]]] not.na <- !is.na(zi) if (na.act == "na.omit") { zi <- zi[not.na] len.ids <- length(x$ids)-sum(!not.na) ids.infl <- x$is.infl[not.na] lab.ids <- ids[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { len.ids <- length(x$ids) ids.infl <- x$is.infl lab.ids <- ids } zi.min <- min(zi,na.rm=TRUE)*1.05 zi.max <- max(zi,na.rm=TRUE)*1.05 lplot(NA, NA, xlim=c(1,len.ids), ylim=c(zi.min,zi.max), xaxt="n", main=paste("dfbs: ", names(x$dfbs)[which.dfbs[i]]), xlab="", ylab="", las=las, ...) laxis(side=1, at=seq_len(len.ids), labels=lab.ids, xlab="", las=las, ...) labline(h= 0, lty="dashed", ...) labline(h= 1, lty="dotted", ...) labline(h=-1, lty="dotted", ...) if (na.act == "na.exclude" || na.act == "na.pass") llines(seq_len(len.ids)[not.na], zi[not.na], col=col.na, ...) llines(seq_len(len.ids), zi, ...) lpoints(x=seq_len(len.ids), y=zi, bg=bg, pch=pch, ...) lpoints(x=seq_len(len.ids)[ids.infl], y=zi[ids.infl], bg=bg.infl, pch=pch, ...) } } ######################################################################### invisible() } metafor/R/leave1out.rma.peto.r0000644000176200001440000001277315120213572015734 0ustar liggesusersleave1out.rma.peto <- function(x, cluster, digits, transf, targs, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.peto") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (!x$int.only) stop(mstyle$stop("Method only applicable to models without moderators.")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (is.null(x$outdat.f)) stop(mstyle$stop("Information needed to carry out a leave-one-out analysis is not available in the model object.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL ddd <- list(...) .chkdots(ddd, c("time", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### process cluster variable misscluster <- ifelse(missing(cluster), TRUE, FALSE) if (misscluster) { cluster <- seq_len(x$k.all) } else { mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) } ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster.f <- cluster cluster <- cluster[x$not.na] ### checks on cluster variable if (anyNA(cluster.f)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster.f) == 0L) stop(mstyle$stop(paste0("Cannot find 'cluster' variable (or it has zero length)."))) ### cluster ids and number of clusters ids <- unique(cluster) n <- length(ids) if (!misscluster) ids <- sort(ids) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### beta <- rep(NA_real_, n) se <- rep(NA_real_, n) zval <- rep(NA_real_, n) pval <- rep(NA_real_, n) ci.lb <- rep(NA_real_, n) ci.ub <- rep(NA_real_, n) QE <- rep(NA_real_, n) QEp <- rep(NA_real_, n) #tau2 <- rep(NA_real_, n) I2 <- rep(NA_real_, n) H2 <- rep(NA_real_, n) ### elements that need to be returned outlist <- "beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, QE=QE, QEp=QEp, tau2=tau2, I2=I2, H2=H2" if (progbar) pbar <- pbapply::startpb(min=0, max=n) for (i in seq_len(n)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(ai=x$outdat$ai, bi=x$outdat$bi, ci=x$outdat$ci, di=x$outdat$di, add=x$add, to=x$to, drop00=x$drop00, level=x$level, subset=ids[i]!=cluster, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.peto, args)), silent=TRUE) if (inherits(res, "try-error")) next beta[i] <- res$beta se[i] <- res$se zval[i] <- res$zval pval[i] <- res$pval ci.lb[i] <- res$ci.lb ci.ub[i] <- res$ci.ub QE[i] <- res$QE QEp[i] <- res$QEp I2[i] <- res$I2 H2[i] <- res$H2 } if (progbar) pbapply::closepb(pbar) ######################################################################### ### if requested, apply transformation function if (isTRUE(transf)) # if transf=TRUE, apply exp transformation to ORs transf <- exp if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) se <- rep(NA_real_, n) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) se <- rep(NA_real_, n) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### out <- list(estimate=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, Q=QE, Qp=QEp, I2=I2, H2=H2) if (na.act == "na.omit") { if (misscluster) { out$slab <- paste0("-", x$slab[x$not.na]) } else { out$slab <- paste0("-", ids) } } if (na.act == "na.exclude" || na.act == "na.pass") { if (misscluster) { out <- .expandna(out, x$not.na) out$slab <- paste0("-", x$slab) } else { out$slab <- paste0("-", ids) } } out$digits <- digits out$transf <- transf if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- "list.rma" return(out) } metafor/R/conv.2x2.r0000644000176200001440000003236315160457157013674 0ustar liggesusersconv.2x2 <- function(ori, ri, x2i, ni, n1i, n2i, sens, spec, ppv, npv, correct=TRUE, drop01=TRUE, data, include, var.names=c("ai","bi","ci","di"), append=TRUE, replace="ifna", ...) { mstyle <- .get.mstyle() if (is.logical(replace)) { if (isTRUE(replace)) { replace <- "all" } else { replace <- "ifna" } } replace <- match.arg(replace, c("ifna","all")) ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, "method") method <- .chkddd(ddd$method, "optim", match.arg(ddd$method, c("simple","optim", "search"))) ######################################################################### if (missing(data)) data <- NULL has.data <- !is.null(data) if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } # checks on 'var.names' argument if (length(var.names) != 4L) stop(mstyle$stop("Argument 'var.names' must be of length 4.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "','", var.names[3], "','", var.names[4], "').")), call.=FALSE) } ######################################################################### mf <- match.call() ori <- .getx("ori", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) x2i <- .getx("x2i", mf=mf, data=data, checknumeric=TRUE) sens <- .getx("sens", mf=mf, data=data, checknumeric=TRUE) spec <- .getx("spec", mf=mf, data=data, checknumeric=TRUE) ppv <- .getx("ppv", mf=mf, data=data, checknumeric=TRUE) npv <- .getx("npv", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) correct <- .getx("correct", mf=mf, data=data, default=TRUE) include <- .getx("include", mf=mf, data=data) if (!.equal.length(ori, ri, x2i, sens, spec, ppv, npv, ni, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- .maxlength(ori, ri, x2i, sens, spec, ppv, npv, ni, n1i, n2i) if (is.null(ori)) ori <- rep(NA_real_, k) if (is.null(ri)) ri <- rep(NA_real_, k) if (is.null(x2i)) x2i <- rep(NA_real_, k) if (is.null(sens)) sens <- rep(NA_real_, k) if (is.null(spec)) spec <- rep(NA_real_, k) if (is.null(ppv)) ppv <- rep(NA_real_, k) if (is.null(npv)) npv <- rep(NA_real_, k) if (is.null(ni)) ni <- rep(NA_real_, k) if (is.null(n1i)) n1i <- rep(NA_real_, k) if (is.null(n2i)) n2i <- rep(NA_real_, k) # handle 'correct' argument correct <- .expand1(correct, k) if (length(correct) != k) stop(mstyle$stop(paste0("Length of the 'correct' argument (", length(correct), ") does not match the length of the data (", k, ")."))) correct[is.na(correct)] <- TRUE # if 'include' is NULL, set to TRUE vector if (is.null(include)) include <- rep(TRUE, k) # turn numeric 'include' vector into a logical vector include <- .chksubset(include, k, stoponk0=FALSE) # set inputs to NA for rows not to be included ori[!include] <- NA_real_ ri[!include] <- NA_real_ x2i[!include] <- NA_real_ sens[!include] <- NA_real_ spec[!include] <- NA_real_ ppv[!include] <- NA_real_ npv[!include] <- NA_real_ ni[!include] <- NA_real_ n1i[!include] <- NA_real_ n2i[!include] <- NA_real_ # round ni, n1i, and n2i ni <- round(ni) n1i <- round(n1i) n2i <- round(n2i) # checks on values if (any(c(ni < 0, n1i < 0, n2i < 0), na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes or marginal counts are negative.")) if (any(c(n1i > ni, n2i > ni), na.rm=TRUE)) stop(mstyle$stop("One or more marginal counts are larger than the sample sizes.")) if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more phi coefficients are > 1 or < -1.")) if (any(sens < 0 | sens > 1, na.rm=TRUE)) stop(mstyle$stop("One or more sensitivity values are < 0 or > 1.")) if (any(spec < 0 | spec > 1, na.rm=TRUE)) stop(mstyle$stop("One or more specificity values are < 0 or > 1.")) if (any(ppv < 0 | ppv > 1, na.rm=TRUE)) stop(mstyle$stop("One or more positive predictive values are < 0 or > 1.")) if (any(npv < 0 | npv > 1, na.rm=TRUE)) stop(mstyle$stop("One or more negative predictive values are < 0 or > 1.")) # compute marginal proportions for the two variables p1i <- n1i / ni p2i <- n2i / ni ######################################################################### p11i <- rep(NA_real_, k) ai <- rep(NA_real_, k) bi <- rep(NA_real_, k) ci <- rep(NA_real_, k) di <- rep(NA_real_, k) incons <- rep(NA, k) for (i in seq_len(k)) { if (is.na(ni[i])) next if (sum(!is.na(sens[i]), !is.na(spec[i]), !is.na(ppv[i]), !is.na(npv[i])) >= 3L) { # if drop01=TRUE, drop studies where sens, spec, ppv, and/or npv is equal to 0 or 1 if (drop01 && (isTRUE(sens[i]==0) || isTRUE(sens[i]==1) || isTRUE(spec[i]==0) || isTRUE(spec[i]==1) || isTRUE(ppv[i]==0) || isTRUE(ppv[i]==1) || isTRUE(npv[i]==0) || isTRUE(npv[i]==1))) next # if at least three of (sens, spec, ppv, npv) are available, use reconstruction based on these statistics if (is.na(sens[i])) sens[i] <- (1-spec[i]) * ppv[i] * npv[i] / ((1-spec[i]) * ppv[i] * npv[i] + spec[i] * (1-ppv[i])*(1-npv[i])) if (is.na(spec[i])) spec[i] <- (1-sens[i]) * ppv[i] * npv[i] / ((1-sens[i]) * ppv[i] * npv[i] + sens[i] * (1-ppv[i])*(1-npv[i])) if (is.na(ppv[i])) ppv[i] <- sens[i] * spec[i] * (1-npv[i]) / (sens[i] * spec[i] * (1-npv[i]) + (1-sens[i])*(1-spec[i]) * npv[i]) if (is.na(npv[i])) npv[i] <- sens[i] * spec[i] * (1-ppv[i]) / (sens[i] * spec[i] * (1-ppv[i]) + (1-sens[i])*(1-spec[i]) * ppv[i]) if (FALSE) { # check consistency of inputs (skipped for now - discrepancies can be large when some of the diagnostic statistics in the denominator are close to 0) sens.imp <- (1-spec[i]) * ppv[i] * npv[i] / ((1-spec[i]) * ppv[i] * npv[i] + spec[i] * (1-ppv[i])*(1-npv[i])) spec.imp <- (1-sens[i]) * ppv[i] * npv[i] / ((1-sens[i]) * ppv[i] * npv[i] + sens[i] * (1-ppv[i])*(1-npv[i])) ppv.imp <- sens[i] * spec[i] * (1-npv[i]) / (sens[i] * spec[i] * (1-npv[i]) + (1-sens[i])*(1-spec[i]) * npv[i]) npv.imp <- sens[i] * spec[i] * (1-ppv[i]) / (sens[i] * spec[i] * (1-ppv[i]) + (1-sens[i])*(1-spec[i]) * ppv[i]) cutoff <- 0.1 incons[i] <- abs(sens[i] - sens.imp) > cutoff || abs(spec[i] - spec.imp) > cutoff || abs(ppv[i] - ppv.imp) > cutoff || abs(npv[i] - npv.imp) > cutoff if (incons[i]) next } #print(c(sens=sens[i], spec=spec[i], ppv=ppv[i], npv=npv[i])) if (isTRUE(sens[i] * (1 - ppv[i]) + ppv[i] * (1 - spec[i]) == 0)) next if (method=="simple") tmp <- .rec2x2diag(sens=sens[i], spec=spec[i], ppv=ppv[i], ni=ni[i], round=FALSE) if (method=="optim") { obs <- c(sens=sens[i], spec=spec[i], ppv=ppv[i], npv=npv[i]) start <- c(sens=sens[i], spec=spec[i], ppv=ppv[i]) res <- try(optim(start, .funconv2x2diag, method="BFGS", obs=obs, ni=ni[i]), silent=TRUE) #res <- try(optim(start, .funconv2x2diag, method="L-BFGS-B", obs=obs, ni=ni[i], lower=pmax(0.005,start-0.005), upper=pmin(0.995,start+0.005)), silent=TRUE) if (inherits(res, "try-error")) { tmp <- rep(NA, 4) } else { tmp <- .rec2x2diag(sens=res$par[1], spec=res$par[2], ppv=res$par[3], ni=ni[i], round=FALSE) } } if (method=="search") { obs <- c(sens=sens[i], spec=spec[i], ppv=ppv[i], npv=npv[i]) sens.int <- seq(max(0, sens[i] - 0.005), min(1, sens[i] + 0.005), length=21) spec.int <- seq(max(0, spec[i] - 0.005), min(1, spec[i] + 0.005), length=21) ppv.int <- seq(max(0, ppv[i] - 0.005), min(1, ppv[i] + 0.005), length=21) loss <- array(NA_real_, dim=c(length(sens.int), length(spec.int), length(ppv.int))) for (i1 in 1:length(sens.int)) { for (i2 in 1:length(spec.int)) { for (i3 in 1:length(ppv.int)) { loss[i1,i2,i3] <- .funconv2x2diag(c(sens=sens.int[i1], spec=spec.int[i2], ppv=ppv.int[i3]), obs=obs, ni=ni[i], round=FALSE) } } } hits <- which(loss == min(loss, na.rm=TRUE), arr.ind=TRUE) rec <- apply(hits, 1, function(x) { sens.sel <- sens.int[x[1]] spec.sel <- spec.int[x[2]] ppv.sel <- ppv.int[x[3]] rec <- .rec2x2diag(sens.sel, spec.sel, ppv.sel, ni=ni[i], round=FALSE) }) #print(table(apply(rec, 2, function(x) x == rec[,1]))) tmp <- rec[,1] } tmp <- .largestremaindermethod(tmp, ni[i]) ai[i] <- tmp[1] bi[i] <- tmp[2] ci[i] <- tmp[3] di[i] <- tmp[4] } else { if (is.na(n1i[i]) || is.na(n2i[i])) next if (!is.na(ori[i])) { if (ori[i] == 1) { p11i[i] <- n1i[i] * n2i[i] / ni[i]^2 } else { p1. <- p1i[i] p2. <- 1-p1i[i] p.1 <- p2i[i] p.2 <- 1-p2i[i] x <- ori[i] * (p1. + p.1) + p2. - p.1 y <- sqrt(x^2 - 4 * p1. * p.1 * ori[i] * (ori[i]-1)) p11i[i] <- (x - y) / (2 * (ori[i] - 1)) } } # note: when x2i=0, then sign(0) = 0 and hence ri is automatically 0, which is correct (i.e., we do not want to use the continuity correction in this case) if (is.na(ri[i]) && !is.na(x2i[i])) { if (correct[i]) { ri[i] <- sign(x2i[i]) * (sqrt(abs(x2i[i])/ni[i]) + ni[i] / (2*sqrt(n1i[i]*(ni[i]-n1i[i])*n2i[i]*(ni[i]-n2i[i])))) } else { ri[i] <- sign(x2i[i]) * sqrt(abs(x2i[i])/ni[i]) } } if (is.na(p11i[i]) && !is.na(ri[i])) p11i[i] <- p1i[i]*p2i[i] + ri[i] * sqrt(p1i[i]*(1-p1i[i])*p2i[i]*(1-p2i[i])) ai[i] <- round(ni[i] * p11i[i]) bi[i] <- n1i[i] - ai[i] ci[i] <- n2i[i] - ai[i] di[i] <- ni[i] - ai[i] - bi[i] - ci[i] } } #print(matrix(c(ai,bi,ci,di), nrow=2, byrow=TRUE)) if (any(incons, na.rm=TRUE)) { warning(mstyle$warning(paste0("There are inconsistency diagnostic statistics in table", ifelse(sum(incons, na.rm=TRUE) > 1, "s ", " "), paste0(which(incons), collapse=","), ".")), call.=FALSE) } # check for negative cell frequencies hasneg <- (ai < 0) | (bi < 0) | (ci < 0) | (di < 0) if (any(hasneg, na.rm=TRUE)) { warning(mstyle$warning(paste0("There are negative cell frequencies in table", ifelse(sum(hasneg, na.rm=TRUE) > 1, "s ", " "), paste0(which(hasneg), collapse=","), ".")), call.=FALSE) ai[hasneg] <- NA_real_ bi[hasneg] <- NA_real_ ci[hasneg] <- NA_real_ di[hasneg] <- NA_real_ } ######################################################################### if (has.data && append) { if (is.element(var.names[1], names(data))) { if (replace=="ifna") { data[[var.names[1]]] <- replmiss(data[[var.names[1]]], ai) } else { data[[var.names[1]]][!is.na(ai)] <- ai[!is.na(ai)] } } else { data <- cbind(data, ai) names(data)[length(names(data))] <- var.names[1] } if (is.element(var.names[2], names(data))) { if (replace=="ifna") { data[[var.names[2]]] <- replmiss(data[[var.names[2]]], bi) } else { data[[var.names[2]]][!is.na(bi)] <- bi[!is.na(bi)] } } else { data <- cbind(data, bi) names(data)[length(names(data))] <- var.names[2] } if (is.element(var.names[3], names(data))) { if (replace=="ifna") { data[[var.names[3]]] <- replmiss(data[[var.names[3]]], ci) } else { data[[var.names[3]]][!is.na(ci)] <- ai[!is.na(ci)] } } else { data <- cbind(data, ci) names(data)[length(names(data))] <- var.names[3] } if (is.element(var.names[4], names(data))) { if (replace=="ifna") { data[[var.names[4]]] <- replmiss(data[[var.names[4]]], di) } else { data[[var.names[4]]][!is.na(di)] <- ai[!is.na(di)] } } else { data <- cbind(data, di) names(data)[length(names(data))] <- var.names[4] } } else { data <- data.frame(ai, bi, ci, di) names(data) <- var.names } return(data) } metafor/R/plot.rma.uni.selmodel.r0000644000176200001440000001471515120213572016432 0ustar liggesusersplot.rma.uni.selmodel <- function(x, xlim, ylim, n=1000, prec="max", scale=FALSE, ci=FALSE, reps=1000, shade=TRUE, rug=TRUE, add=FALSE, lty=c("solid","dotted"), lwd=c(2,1), ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni.selmodel") .start.plot(!add) if (is.element(x$type, c("trunc","truncest"))) stop(mstyle$stop("Cannot draw the selection function for this type of selection model.")) ### shade argument can either be a logical or a color if (is.logical(shade)) { shadecol <- .coladj(par("bg","fg"), dark=0.1, light=-0.1) } if (is.character(shade)) { shadecol <- shade shade <- TRUE } ddd <- list(...) lplot <- function(..., seed) plot(...) llines <- function(..., seed) lines(...) lrug <- function(..., seed) rug(...) lpolygon <- function(..., seed) polygon(...) if (is.logical(ci)) citype <- "boot" if (is.character(ci)) { citype <- tolower(ci) ci <- TRUE } if (!is.element(citype, c("boot", "wald"))) stop(mstyle$stop("Unknown confidence interval type specified.")) if (missing(xlim)) xlim <- c(x$pval.min, 1-x$pval.min) if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) xlim <- sort(xlim) if (xlim[1] < 0 || xlim[2] > 1) stop(mstyle$stop("Values for 'xlim' should be between 0 and 1.")) if (length(prec) != 1L) stop(mstyle$stop("Argument 'prec' should be of length 1.")) if (is.character(prec)) { if (!is.element(prec, c("min", "max", "mean", "median"))) stop(mstyle$stop("Unknown options specified for the 'prec' argument.")) if (prec == "min") prec <- x$precis[["min"]] if (prec == "max") prec <- x$precis[["max"]] if (prec == "mean") prec <- x$precis[["mean"]] if (prec == "median") prec <- x$precis[["median"]] } else { if (is.numeric(prec) && !x$precspec) prec <- 1 } delta <- x$delta steps <- x$steps ps <- seq(xlim[1], xlim[2], length.out=n) if (is.element(x$type, c("stepfun","stepcon"))) { ps <- unique(sort(c(ps, steps))) # make sure that the 'steps' values are part of 'ps' ps <- ps[ps >= xlim[1]] # but only keep ps >= xlim[1] ps <- ps[ps <= xlim[2]] # ps <= xlim[2] plot.type <- "S" } else { plot.type <- "l" } wi.fun <- x$wi.fun ys <- wi.fun(ps, delta=delta, yi=x$yi, vi=x$vi, preci=prec, alternative=x$alternative, steps=x$steps) if (ci && citype == "boot" && all(is.na(x$vd))) ci <- FALSE if (ci && citype == "wald" && all(is.na(x$ci.lb.delta)) && all(is.na(x$ci.ub.delta))) ci <- FALSE if (ci && citype == "wald" && !is.element(x$type, c("stepfun","stepcon")) && sum(!x$delta.fix) >= 2L) stop(mstyle$stop("Cannot compute Wald-type confidence intervals for this selection model.")) if (ci) { if (citype == "boot") { if (!is.null(ddd$seed)) set.seed(ddd$seed) vd <- x$vd vd.na <- is.na(diag(vd)) vd[vd.na,] <- 0 vd[,vd.na] <- 0 dsim <- .mvrnorm(reps, mu=delta, Sigma=vd) for (j in seq_len(ncol(dsim))) { dsim[,j] <- ifelse(dsim[,j] < x$delta.min[j], x$delta.min[j], dsim[,j]) dsim[,j] <- ifelse(dsim[,j] > x$delta.max[j], x$delta.max[j], dsim[,j]) } ys.ci <- lapply(ps, function(p) { ysim <- apply(dsim, 1, function(d) wi.fun(p, delta=d, yi=x$yi, vi=x$vi, preci=prec, alternative=x$alternative, steps=x$steps)) quantile(ysim, probs=c(x$level/2, 1 - x$level/2)) }) ys.ci <- do.call(rbind, ys.ci) ys.lb <- ys.ci[,1] ys.ub <- ys.ci[,2] } if (citype == "wald") { ci.lb.delta <- x$ci.lb.delta ci.ub.delta <- x$ci.ub.delta if (is.element(x$type, c("stepfun","stepcon"))) { ci.lb.delta[x$delta.fix] <- delta[x$delta.fix] ci.ub.delta[x$delta.fix] <- delta[x$delta.fix] } ys.lb <- wi.fun(ps, delta=ci.lb.delta, yi=x$yi, vi=x$vi, preci=prec, alternative=x$alternative, steps=x$steps) ys.ub <- wi.fun(ps, delta=ci.ub.delta, yi=x$yi, vi=x$vi, preci=prec, alternative=x$alternative, steps=x$steps) } } else { ys.lb <- NA_real_ ys.ub <- NA_real_ } if (scale) { #is.inf.pos <- ys == Inf #is.inf.neg <- ys == -Inf ys[is.infinite(ys)] <- NA_real_ rng.ys <- max(ys, na.rm=TRUE) - min(ys, na.rm=TRUE) min.ys <- min(ys, na.rm=TRUE) if (rng.ys > .Machine$double.eps^0.5) { ys <- (ys - min.ys) / rng.ys ys.lb <- (ys.lb - min.ys) / rng.ys ys.ub <- (ys.ub - min.ys) / rng.ys } #ys[is.inf.pos] <- 1 #ys[is.inf.neg] <- 0 } ys[ys < 0] <- 0 ys.lb[ys.lb < 0] <- 0 ys.ub[ys.ub < 0] <- 0 if (missing(ylim)) { if (is.element(x$type, c("halfnorm", "negexp", "logistic", "power", "negexppow", "halfnorm2", "negexp2", "logistic2", "power2"))) { ylim <- c(0,1) } else { if (ci) { ylim <- c(min(c(ys.lb[is.finite(ys.lb)], ys[is.finite(ys)]), na.rm=TRUE), max(c(ys.ub[is.finite(ys.ub)], ys[is.finite(ys)]), na.rm=TRUE)) } else { ylim <- range(ys[is.finite(ys)], na.rm=TRUE) } } } else { if (length(ylim) != 2L) stop(mstyle$stop("Argument 'ylim' should be a vector of length 2.")) ylim <- sort(ylim) } if (!add) lplot(ps, ys, ylim=ylim, type="n", lwd=lwd, xlab="p-value", ylab="Relative Likelihood of Selection", ...) if (ci) { if (shade) { tmp <- approx(ps, ys.lb, n=10000, method="constant", f=1) ps.int.lb <- tmp$x ys.lb.int.lb <- tmp$y tmp <- approx(ps, ys.ub, n=10000, method="constant", f=1) ps.int.ub <- tmp$x ys.lb.int.ub <- tmp$y lpolygon(c(ps.int.lb,rev(ps.int.ub)), c(ys.lb.int.lb,rev(ys.lb.int.ub)), col=shadecol, border=NA) #lpolygon(c(ps,rev(ps)), c(ys.lb,rev(ys.ub)), col=shadecol, border=NA) } llines(ps, ys.lb, type=plot.type, lty=lty[2], lwd=lwd[2], ...) llines(ps, ys.ub, type=plot.type, lty=lty[2], lwd=lwd[2], ...) } if (rug && !add) lrug(x$pvals, quiet=TRUE) llines(ps, ys, type=plot.type, lty=lty[1], lwd=lwd[1], ...) sav <- data.frame(xs=ps, ys=ys, ys.lb=ys.lb, ys.ub=ys.ub) invisible(sav) } metafor/R/leave1out.rma.uni.r0000644000176200001440000001437715120213572015562 0ustar liggesusersleave1out.rma.uni <- function(x, cluster, digits, transf, targs, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (!x$int.only) stop(mstyle$stop("Method only applicable to models without moderators.")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (is.null(x$yi.f) || is.null(x$vi.f)) stop(mstyle$stop("Information needed to carry out a leave-one-out analysis is not available in the model object.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL funlist <- lapply(list(transf.exp.int, transf.ilogit.int, transf.iprobit.int, transf.ztor.int, transf.iarcsin.int, transf.iahw.int, transf.iabt.int, transf.dtocles.int, transf.exp.mode, transf.ilogit.mode, transf.iprobit.mode, transf.ztor.mode, transf.iarcsin.mode, transf.iahw.mode, transf.iabt.mode), deparse) if (is.null(targs) && any(sapply(funlist, identical, deparse(transf))) && inherits(x, c("rma.uni","rma.glmm")) && length(x$tau2 == 1L)) targs <- list(tau2=x$tau2) ddd <- list(...) .chkdots(ddd, c("time", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### process cluster variable misscluster <- ifelse(missing(cluster), TRUE, FALSE) if (misscluster) { cluster <- seq_len(x$k.all) } else { mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) } ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster.f <- cluster cluster <- cluster[x$not.na] ### checks on cluster variable if (anyNA(cluster.f)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster.f) == 0L) stop(mstyle$stop(paste0("Cannot find 'cluster' variable (or it has zero length)."))) ### cluster ids and number of clusters ids <- unique(cluster) n <- length(ids) if (!misscluster) ids <- sort(ids) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### beta <- rep(NA_real_, n) se <- rep(NA_real_, n) zval <- rep(NA_real_, n) pval <- rep(NA_real_, n) ci.lb <- rep(NA_real_, n) ci.ub <- rep(NA_real_, n) QE <- rep(NA_real_, n) QEp <- rep(NA_real_, n) tau2 <- rep(NA_real_, n) I2 <- rep(NA_real_, n) H2 <- rep(NA_real_, n) ### elements that need to be returned outlist <- "beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, QE=QE, QEp=QEp, tau2=tau2, I2=I2, H2=H2" if (progbar) pbar <- pbapply::startpb(min=0, max=n) for (i in seq_len(n)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, intercept=TRUE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, subset=ids[i]!=cluster, skipr2=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) if (inherits(res, "try-error")) next beta[i] <- res$beta se[i] <- res$se zval[i] <- res$zval pval[i] <- res$pval ci.lb[i] <- res$ci.lb ci.ub[i] <- res$ci.ub QE[i] <- res$QE QEp[i] <- res$QEp tau2[i] <- res$tau2 I2[i] <- res$I2 H2[i] <- res$H2 } if (progbar) pbapply::closepb(pbar) ######################################################################### ### if requested, apply transformation function if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) se <- rep(NA_real_, n) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) se <- rep(NA_real_, n) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### out <- list(estimate=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, Q=QE, Qp=QEp, tau2=tau2, I2=I2, H2=H2) if (na.act == "na.omit") { if (misscluster) { out$slab <- paste0("-", x$slab[x$not.na]) } else { out$slab <- paste0("-", ids) } } if (na.act == "na.exclude" || na.act == "na.pass") { if (misscluster) { out <- .expandna(out, x$not.na) out$slab <- paste0("-", x$slab) } else { out$slab <- paste0("-", ids) } } if (is.element(x$test, c("knha","adhoc","t"))) names(out)[3] <- "tval" ### remove tau2 for FE/EE/CE models if (is.element(x$method, c("FE","EE","CE"))) out <- out[-9] out$digits <- digits out$transf <- transf if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- "list.rma" return(out) } metafor/R/methods.vif.rma.r0000644000176200001440000000233615120213572015301 0ustar liggesusers############################################################################ as.data.frame.vif.rma <- function(x, ...) { .chkclass(class(x), must="vif.rma") if (!is.null(x$alpha)) { tab <- list(beta = as.data.frame(x[[1]], ...), alpha = as.data.frame(x[[2]], ...)) } else { tab <- data.frame(spec = sapply(x$vif, function(x) x$spec), coefs = sapply(x$vif, function(x) x$coefs), m = sapply(x$vif, function(x) x$m), vif = sapply(x$vif, function(x) x$vif), sif = sapply(x$vif, function(x) x$sif)) # add proportions if they are available if (!is.null(x$prop)) tab$prop <- x$prop #names(tab)[2] <- "coef(s)" #names(tab)[4] <- "(g)vif" #names(tab)[5] <- "(g)sif" # if all btt/att specifications are numeric, remove the 'spec' column if (all(substr(tab$spec, 1, 1) %in% as.character(1:9))) tab$spec <- NULL # just use numbers for row names when btt was specified if (isTRUE(x$bttspec) || isTRUE(x$attspec)) rownames(tab) <- NULL } return(tab) } ############################################################################ metafor/R/plot.rma.mv.r0000644000176200001440000000020615120213572014444 0ustar liggesusersplot.rma.mv <- function(x, qqplot=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.mv", notav="rma.mv") } metafor/R/contrmat.r0000644000176200001440000001071315130422454014124 0ustar liggesuserscontrmat <- function(data, grp1, grp2, last, shorten=FALSE, minlen=2, check=TRUE, append=TRUE) { mstyle <- .get.mstyle() if (missing(data)) stop(mstyle$stop("Argument 'data' must be specified.")) if (!is.data.frame(data)) data <- data.frame(data) # get variable names varnames <- names(data) # number of variables nvars <- length(varnames) ############################################################################ # checks on the 'grp1' argument if (missing(grp1)) stop(mstyle$stop("Argument 'grp1' must be specified.")) if (length(grp1) != 1L) stop(mstyle$stop("Argument 'grp1' must of length 1.")) if (!(is.character(grp1) | is.numeric(grp1))) stop(mstyle$stop("Argument 'grp1' must either be a character string or a number.")) if (is.character(grp1)) { grp1.pos <- charmatch(grp1, varnames) if (is.na(grp1.pos) || grp1.pos == 0L) stop(mstyle$stop("Could not find or uniquely identify variable specified via the 'grp1' argument.")) } else { grp1.pos <- round(grp1) if (grp1.pos < 1 | grp1.pos > nvars) stop(mstyle$stop("Specified position of 'grp1' variable does not exist in the data frame.")) } # get grp1 variable grp1 <- data[[grp1.pos]] # make sure there are no missing values in grp1 variable if (anyNA(grp1)) stop(mstyle$stop("Variable specified via 'grp1' argument should not contain missing values.")) ############################################################################ # checks on the 'grp2' argument if (missing(grp2)) stop(mstyle$stop("Argument 'grp2' must be specified.")) if (length(grp2) != 1L) stop(mstyle$stop("Argument 'grp2' must of length 1.")) if (!(is.character(grp2) | is.numeric(grp2))) stop(mstyle$stop("Argument 'grp2' must either be a character string or a number.")) if (is.character(grp2)) { grp2.pos <- charmatch(grp2, varnames) if (is.na(grp2.pos) || grp2.pos == 0L) stop(mstyle$stop("Could not find or uniquely identify variable specified via the 'grp2' argument.")) } else { grp2.pos <- round(grp2) if (grp2.pos < 1 | grp2.pos > nvars) stop(mstyle$stop("Specified position of 'grp2' variable does not exist in the data frame.")) } # get grp2 variable grp2 <- data[[grp2.pos]] # make sure there are no missing values in grp2 variable if (anyNA(grp2)) stop(mstyle$stop("Variable specified via 'grp2' argument should not contain missing values.")) ############################################################################ # get all levels (of grp1 and grp2) if (is.factor(grp1) && is.factor(grp2) && identical(levels(grp1), levels(grp2))) { lvls <- levels(grp1) } else { lvls <- sort(union(levels(factor(grp1)), levels(factor(grp2)))) } ############################################################################ # checks on the 'last' argument # if last is not specified, place most common grp2 group last if (missing(last)) last <- names(sort(table(grp2), decreasing=TRUE)[1]) if (length(last) != 1L) stop(mstyle$stop("Argument 'last' must be of length one.")) # if last is set to NA, leave last unchanged if (is.na(last)) last <- tail(lvls, 1) last.pos <- charmatch(last, lvls) if (is.na(last.pos) || last.pos == 0L) stop(mstyle$stop("Could not find or uniquely identify group specified via the 'last' argument.")) last <- lvls[last.pos] # reorder levels so that the reference level is always last lvls <- c(lvls[-last.pos], lvls[last.pos]) ############################################################################ # turn grp1 and grp2 into factors with all levels grp1 <- factor(grp1, levels=lvls) grp2 <- factor(grp2, levels=lvls) # create contrast matrix X <- model.matrix(~ 0 + grp1, contrasts.arg = list(grp1 = "contr.treatment")) - model.matrix(~ 0 + grp2, contrasts.arg = list(grp2 = "contr.treatment")) attr(X, "assign") <- NULL attr(X, "contrasts") <- NULL # shorten variables names (if shorten=TRUE) if (shorten) lvls <- .shorten(lvls, minlen=minlen) # add variable names if (check) { colnames(X) <- make.names(lvls, unique=TRUE) } else { colnames(X) <- lvls } # append to original data if requested if (append) X <- cbind(data, X) ############################################################################ return(X) } metafor/R/dfbetas.rma.uni.r0000644000176200001440000000016415120213572015252 0ustar liggesusersdfbetas.rma.uni <- function(model, progbar=FALSE, ...) influence(model, progbar=progbar, measure="dfbetas", ...) metafor/R/misc.func.hidden.rma.glmm.r0000644000176200001440000001262515120213572017127 0ustar liggesusers############################################################################ ### density of non-central hypergeometric distribution (based on Liao and Rosen, 2001) from MCMCpack ### Liao, J. G. & Rosen, O. (2001). Fast and stable algorithms for computing and sampling from the ### noncentral hypergeometric distribution. The American Statistician, 55, 366-369. .dnoncenhypergeom <- function (x=NA_real_, n1, n2, m1, psi) { # x=ai, n1=ai+bi, n2=ci+di, m1=ai+ci, psi=ORi mstyle <- .get.mstyle() mode.compute <- function(n1, n2, m1, psi, ll, uu) { a <- psi - 1 b <- -((m1 + n1 + 2) * psi + n2 - m1) c <- psi * (n1 + 1) * (m1 + 1) q <- b + sign(b) * sqrt(b * b - 4 * a * c) q <- -q/2 mode <- trunc(c/q) if (uu >= mode && mode >= ll) return(mode) else return(trunc(q/a)) } r.function <- function(n1, n2, m1, psi, i) { (n1 - i + 1) * (m1 - i + 1)/i/(n2 - m1 + i) * psi } ll <- max(0, m1 - n2) uu <- min(n1, m1) if (n1 < 0 | n2 < 0) stop(mstyle$stop("'n1' or 'n2' negative in dnoncenhypergeom()."), call.=FALSE) if (m1 < 0 | m1 > (n1 + n2)) stop(mstyle$stop("'m1' out of range in dnoncenhypergeom().")) if (psi <= 0) stop(mstyle$stop("'psi' [odds ratio] negative in dnoncenhypergeom()."), call.=FALSE) if (!is.na(x) & (x < ll | x > uu)) stop(mstyle$stop("'x' out of bounds in dnoncenhypergeom().")) if (!is.na(x) & length(x) > 1L) stop(mstyle$stop("'x' neither missing or scalar in dnoncenhypergeom()."), call.=FALSE) mode <- mode.compute(n1, n2, m1, psi, ll, uu) pi <- array(1, uu - ll + 1) shift <- 1 - ll if (mode < uu) { r1 <- r.function(n1, n2, m1, psi, (mode + 1):uu) pi[(mode + 1 + shift):(uu + shift)] <- cumprod(r1) } if (mode > ll) { r1 <- 1/r.function(n1, n2, m1, psi, mode:(ll + 1)) pi[(mode - 1 + shift):(ll + shift)] <- cumprod(r1) } pi <- pi/sum(pi) if (is.na(x)) { return(cbind(ll:uu, pi)) } else { return(pi[x + shift]) } } ############################################################################ ### density of non-central hypergeometric distribution for fixed- and random/mixed-effects models .dnchgi <- function(logOR, ai, bi, ci, di, mu.i, tau2, random, dnchgcalc, dnchgprec) { mstyle <- .get.mstyle() k <- length(logOR) dnchgi <- rep(NA_real_, k) ### beyond these values, the results from dFNCHypergeo (from BiasedUrn package) become unstable pow <- 12 logOR[logOR < log(10^-pow)] <- log(10^-pow) logOR[logOR > log(10^pow)] <- log(10^pow) for (i in seq_len(k)) { ORi <- exp(logOR[i]) if (dnchgcalc == "dnoncenhypergeom") { res <- try(.dnoncenhypergeom(x=ai, n1=ai+bi, n2=ci+di, m1=ai+ci, psi=ORi)) } else { res <- try(BiasedUrn::dFNCHypergeo(x=ai, m1=ai+bi, m2=ci+di, n=ai+ci, odds=ORi, precision=dnchgprec)) } if (inherits(res, "try-error")) { stop(mstyle$stop(paste0("Could not compute density of non-central hypergeometric distribution in study ", i, ".")), call.=FALSE) } else { dnchgi[i] <- res } } if (random) dnchgi <- dnchgi * dnorm(logOR, mu.i, sqrt(tau2)) return(dnchgi) } ############################################################################ ### joint density of k non-central hypergeometric distributions for fixed- and random/mixed-effects models .dnchg <- function(parms, ai, bi, ci, di, X.fit, random, verbose=FALSE, digits, dnchgcalc, dnchgprec, intCtrl) { mstyle <- .get.mstyle() p <- ncol(X.fit) k <- length(ai) beta <- parms[seq_len(p)] # first p elemenets in parms are the model coefficients tau2 <- ifelse(random, exp(parms[p+1]), 0) # next value is tau^2 -- optimize over exp(tau^2) value or hold at 0 if random=FALSE mu.i <- X.fit %*% cbind(beta) lli <- rep(NA_real_, k) if (!random) { for (i in seq_len(k)) { lli[i] <- log(.dnchgi(logOR=mu.i[i], ai=ai[i], bi=bi[i], ci=ci[i], di=di[i], random=random, dnchgcalc=dnchgcalc, dnchgprec=dnchgprec)) } if (verbose) cat(mstyle$verbose(paste("ll =", fmtx(sum(lli), digits[["fit"]]), " ", fmtx(beta, digits[["est"]]), "\n"))) } if (random) { for (i in seq_len(k)) { res <- try(integrate(.dnchgi, lower=intCtrl$lower, upper=intCtrl$upper, ai=ai[i], bi=bi[i], ci=ci[i], di=di[i], mu.i=mu.i[i], tau2=tau2, random=random, dnchgcalc=dnchgcalc, dnchgprec=dnchgprec, rel.tol=intCtrl$rel.tol, subdivisions=intCtrl$subdivisions, stop.on.error=FALSE), silent=!verbose) #res <- try(cubintegrate(.dnchgi, lower=intCtrl$lower, upper=intCtrl$upper, ai=ai[i], bi=bi[i], ci=ci[i], di=di[i], mu.i=mu.i[i], tau2=tau2, random=random, dnchgcalc=dnchgcalc, dnchgprec=dnchgprec), silent=!verbose) if (inherits(res, "try-error")) { stop(mstyle$stop(paste0("Could not integrate over density of non-central hypergeometric distribution in study ", i, ".")), call.=FALSE) } else { #res$value <- res$integral if (res$value > 0) { lli[i] <- log(res$value) } else { lli[i] <- -Inf } } } if (verbose) cat(mstyle$verbose(paste("ll = ", fmtx(sum(lli), digits[["fit"]]), " ", fmtx(tau2, digits[["var"]]), " ", fmtx(beta, digits[["est"]]), "\n"))) } return(-sum(lli)) } ############################################################################ metafor/R/print.rma.mh.r0000644000176200001440000001007615120213572014612 0ustar liggesusersprint.rma.mh <- function(x, digits, showfit=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.mh") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } .space() cat(mstyle$section("Equal-Effects Model")) cat(mstyle$section(paste0(" (k = ", x$k, ")"))) cat("\n") if (showfit) { fs <- fmtx(x$fit.stats$ML, digits[["fit"]]) names(fs) <- c("logLik", "deviance", "AIC", "BIC", "AICc") cat("\n") tmp <- capture.output(print(fs, quote=FALSE, print.gap=2)) #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) } cat("\n") if (!is.na(x$I2)) { cat(mstyle$text("I^2 (total heterogeneity / total variability): ")) cat(mstyle$result(paste0(fmtx(x$I2, 2), "%"))) cat("\n") } if (!is.na(x$H2)) { cat(mstyle$text("H^2 (total variability / sampling variability): ")) cat(mstyle$result(fmtx(x$H2, 2))) cat("\n") } if (!is.na(x$QE)) { cat("\n") cat(mstyle$section("Test for Heterogeneity:"), "\n") cat(mstyle$result(fmtt(x$QE, "Q", df=ifelse(x$k.yi-1 >= 0, x$k.yi-1, 0), pval=x$QEp, digits=digits))) } if (any(!is.na(c(x$I2, x$H2, x$QE)))) cat("\n\n") if (is.element(x$measure, c("OR","RR","IRR"))) { res.table <- c(estimate=fmtx(unname(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]])) res.table.exp <- c(estimate=fmtx(exp(unname(x$beta)), digits[["est"]]), ci.lb=fmtx(exp(x$ci.lb), digits[["ci"]]), ci.ub=fmtx(exp(x$ci.ub), digits[["ci"]])) cat(mstyle$section("Model Results (log scale):")) cat("\n\n") tmp <- capture.output(.print.vector(res.table)) .print.table(tmp, mstyle) cat("\n") cat(mstyle$section(paste0("Model Results (", x$measure, " scale):"))) cat("\n\n") tmp <- capture.output(.print.vector(res.table.exp)) .print.table(tmp, mstyle) if (x$measure == "OR") { cat("\n") MH <- fmtx(x$MH, digits[["test"]]) TA <- fmtx(x$TA, digits[["test"]]) if (is.na(MH) && is.na(TA)) { width <- 1 } else { width <- max(nchar(MH), nchar(TA), na.rm=TRUE) } cat(mstyle$text("Cochran-Mantel-Haenszel Test: ")) if (is.na(MH)) { cat(mstyle$result("test value not computable for these data")) cat("\n") } else { cat(mstyle$result(paste0("CMH = ", formatC(MH, width=width), ", df = 1,", paste(rep(" ", nchar(x$k.pos)-1L), collapse=""), " p-val ", fmtp(x$MHp, digits[["pval"]], equal=TRUE, sep=TRUE, add0=TRUE)))) cat("\n") } cat(mstyle$text("Tarone's Test for Heterogeneity: ")) if (is.na(TA)) { cat(mstyle$result("test value not computable for these data")) } else { cat(mstyle$result(paste0("X^2 = ", formatC(TA, width=width), ", df = ", x$k.pos-1, ", p-val ", fmtp(x$TAp, digits[["pval"]], equal=TRUE, sep=TRUE, add0=TRUE)))) } cat("\n") } if (x$measure == "IRR") { cat("\n") cat(mstyle$text("Mantel-Haenszel Test: ")) if (is.na(x$MH)) { cat(mstyle$result("test value not computable for these data")) } else { cat(mstyle$result(paste0("MH = ", fmtx(x$MH, digits[["test"]]), ", df = 1, p-val ", fmtp(x$MHp, digits[["pval"]], equal=TRUE, sep=TRUE)))) } cat("\n") } } else { res.table <- c(estimate=fmtx(unname(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]])) cat(mstyle$section("Model Results:")) cat("\n\n") tmp <- capture.output(.print.vector(res.table)) .print.table(tmp, mstyle) } .space() invisible() } metafor/R/ranef.rma.mv.r0000644000176200001440000002641215120213572014570 0ustar liggesusersranef.rma.mv <- function(object, level, digits, transf, targs, verbose=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.mv") x <- object na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(x$yi) || is.null(x$M) || is.null(x$X)) stop(mstyle$stop("Information needed to compute the BLUPs is not available in the model object.")) if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL level <- .level(level) if (x$test == "z") crit <- qnorm(level/2, lower.tail=FALSE) ### TODO: check computations for user-defined weights if (!is.null(x$W)) stop(mstyle$stop("Extraction of random effects not available for models with non-standard weights.")) ddd <- list(...) .chkdots(ddd, c("expand", "vcov")) expand <- .chkddd(ddd$expand, FALSE, isTRUE(ddd$expand)) # TODO: make this an option? vcov <- list() ######################################################################### out <- NULL vcov <- NULL if (verbose) message(mstyle$message("\nComputing the inverse marginal var-cov and hat matrix ... "), appendLF = FALSE) ### compute inverse marginal var-cov and hat matrix W <- chol2inv(chol(x$M)) stXWX <- chol2inv(chol(as.matrix(t(x$X) %*% W %*% x$X))) Hmat <- x$X %*% stXWX %*% crossprod(x$X,W) if (verbose) message(mstyle$message("Done!")) ### compute residuals ei <- c(x$yi - x$X %*% x$beta) # use this instead of resid(), since this guarantees that the length is correct ### create identity matrix if (x$sparse) { I <- Diagonal(x$k) } else { I <- diag(x$k) } if (x$withS) { # u^ = DZ'W(y - Xb) = DZ'We, where W = M^-1 # note: vpred = var(u^ - u) out <- vector(mode="list", length=x$sigma2s) names(out) <- x$s.names vcov <- vector(mode="list", length=x$sigma2s) names(vcov) <- x$s.names for (j in seq_len(x$sigma2s)) { if (verbose) message(mstyle$message(paste0("Computing BLUPs for the '", paste0("~ 1 | ", x$s.names[j]), "' term ... ")), appendLF = FALSE) if (x$Rfix[j]) { if (x$sparse) { D <- x$sigma2[j] * Matrix(x$R[[j]], sparse=TRUE) } else { D <- x$sigma2[j] * x$R[[j]] } } else { if (x$sparse) { D <- x$sigma2[j] * Diagonal(x$s.nlevels[j]) } else { D <- x$sigma2[j] * diag(x$s.nlevels[j]) } } DZtW <- D %*% t(x$Z.S[[j]]) %*% W pred <- as.vector(DZtW %*% cbind(ei)) pred[abs(pred) < 100 * .Machine$double.eps] <- 0 #vpred <- D - (DZtW %*% x$Z.S[[j]] %*% D - DZtW %*% x$X %*% stXWX %*% t(x$X) %*% W %*% x$Z.S[[j]] %*% D) vpred <- D - (DZtW %*% (I - Hmat) %*% x$Z.S[[j]] %*% D) # this one is the same as ranef.rma.uni() for standard RE/ME models #vpred <- DZtW %*% (I - Hmat) %*% x$Z.S[[j]] %*% D # = var(u^) #vpred <- D - (DZtW %*% x$Z.S[[j]] %*% D) # same as lme4::ranef() #vpred <- DZtW %*% x$Z.S[[j]] %*% D if (is.element(x$test, c("knha","adhoc","t"))) { ddf <- .ddf.calc(x$dfs, k=x$k, p=x$p, mf.s=x$mf.s[[j]], beta=FALSE) crit <- qt(level/2, df=ddf, lower.tail=FALSE) } se <- sqrt(diag(vpred)) pi.lb <- c(pred - crit * se) pi.ub <- c(pred + crit * se) pred <- data.frame(intrcpt=pred, se=se, pi.lb=pi.lb, pi.ub=pi.ub) if (na.act == "na.omit") { rownames(pred) <- x$s.levels[[j]] out[[j]] <- pred if (isTRUE(ddd$vcov)) vcov[[j]] <- vpred } if (na.act == "na.exclude" || na.act == "na.pass") { ### determine which levels were removed s.levels.r <- !is.element(x$s.levels.f[[j]], x$s.levels[[j]]) NAs <- rep(NA_real_, x$s.nlevels.f[j]) tmp <- data.frame(intrcpt=NAs, se=NAs, pi.lb=NAs, pi.ub=NAs) tmp[!s.levels.r,] <- pred pred <- tmp rownames(pred) <- x$s.levels.f[[j]] out[[j]] <- pred } if (expand) { rows <- as.vector(x$Z.S[[j]] %*% seq_along(x$s.levels[[j]])) pred <- pred[rows,] rnames <- x$s.levels[[j]][rows] rownames(pred) <- .make.unique(x$s.levels[[j]][rows]) out[[j]] <- pred } if (verbose) message(mstyle$message("Done!")) } } if (x$withG) { if (is.element(x$struct[1], c("GEN","GDIAG"))) { if (verbose) message(mstyle$message("Computation of BLUPs not currently available for struct=\"GEN\".")) pred <- matrix(NA_real_, nrow=nlevels(x$mf.g$outer), ncol=ncol(x$mf.g)-1) for (j in 1:nrow(pred)) { incl <- which(x$mf.g$outer == levels(x$mf.g$outer)[j]) pred[j,] <- x$G %*% t(x$Z.G1[incl,,drop=FALSE]) %*% W[incl,incl] %*% cbind(ei[incl]) } pred[abs(pred) < 100 * .Machine$double.eps] <- 0 rownames(pred) <- levels(x$mf.g$outer) colnames(pred) <- colnames(x$Z.G1) return(pred) } else { if (verbose) message(mstyle$message(paste0("Computing BLUPs for the '", deparse(x$formulas[[1]]), "' term ... ")), appendLF = FALSE) G <- (x$Z.G1 %*% x$G %*% t(x$Z.G1)) * tcrossprod(x$Z.G2) GW <- G %*% W pred <- as.vector(GW %*% cbind(ei)) pred[abs(pred) < 100 * .Machine$double.eps] <- 0 #vpred <- G - (GW %*% G - GW %*% x$X %*% stXWX %*% t(x$X) %*% W %*% G) vpred <- G - (GW %*% (I - Hmat) %*% G) if (is.element(x$test, c("knha","adhoc","t"))) { ddf <- .ddf.calc(x$dfs, k=x$k, p=x$p, mf.g=x$mf.g[[2]], beta=FALSE) crit <- qt(level/2, df=ddf, lower.tail=FALSE) } se <- sqrt(diag(vpred)) pi.lb <- c(pred - crit * se) pi.ub <- c(pred + crit * se) pred <- data.frame(intrcpt=pred, se=se, pi.lb=pi.lb, pi.ub=pi.ub) nvars <- ncol(x$mf.g) if (is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { r.names <- paste(formatC(x$ids[x$not.na], format="f", digits=0, width=max(nchar(x$ids[x$not.na]))), x$mf.g[[nvars]], sep=" | ") } else { #r.names <- paste(x$mf.g[[1]], x$mf.g[[2]], sep=" | ") r.names <- paste(sprintf(paste0("%", max(nchar(paste(x$mf.g[[1]]))), "s", collapse=""), x$mf.g[[1]]), x$mf.g[[nvars]], sep=" | ") } is.dup <- duplicated(r.names) pred <- pred[!is.dup,] rownames(pred) <- r.names[!is.dup] if (isTRUE(ddd$vcov)) vpred <- vpred[!is.dup, !is.dup] if (is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { #r.order <- order(x$mf.g[[nvars]][!is.dup], seq_len(x$k)[!is.dup]) r.order <- seq_len(x$k) } else { r.order <- order(x$mf.g[[2]][!is.dup], x$mf.g[[1]][!is.dup]) } pred <- pred[r.order,] out <- c(out, list(pred)) #names(out)[length(out)] <- paste(x$g.names, collapse=" | ") names(out)[length(out)] <- paste0(x$formulas[[1]], collapse="") if (isTRUE(ddd$vcov)) { vpred <- vpred[r.order, r.order] vcov <- c(vcov, list(vpred)) names(vcov)[length(vcov)] <- paste0(x$formulas[[1]], collapse="") } if (verbose) message(mstyle$message("Done!")) } } if (x$withH) { if (is.element(x$struct[2], c("GEN","GDIAG"))) { if (verbose) message(mstyle$message("Computation of BLUPs not currently available for struct=\"GEN\".")) } else { if (verbose) message(mstyle$message(paste0("Computing BLUPs for the '", deparse(x$formulas[[2]]), "' term ... ")), appendLF = FALSE) H <- (x$Z.H1 %*% x$H %*% t(x$Z.H1)) * tcrossprod(x$Z.H2) HW <- H %*% W pred <- as.vector(HW %*% cbind(ei)) pred[abs(pred) < 100 * .Machine$double.eps] <- 0 #vpred <- H - (HW %*% H - HW %*% x$X %*% stXWX %*% t(x$X) %*% W %*% H) vpred <- H - (HW %*% (I - Hmat) %*% H) if (is.element(x$test, c("knha","adhoc","t"))) { ddf <- .ddf.calc(x$dfs, k=x$k, p=x$p, mf.h=x$mf.h[[2]], beta=FALSE) crit <- qt(level/2, df=ddf, lower.tail=FALSE) } se <- sqrt(diag(vpred)) pi.lb <- c(pred - crit * se) pi.ub <- c(pred + crit * se) pred <- data.frame(intrcpt=pred, se=se, pi.lb=pi.lb, pi.ub=pi.ub) nvars <- ncol(x$mf.h) if (is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { r.names <- paste(formatC(x$ids[x$not.na], format="f", digits=0, width=max(nchar(x$ids[x$not.na]))), x$mf.h[[nvars]], sep=" | ") } else { #r.names <- paste(x$mf.h[[1]], x$mf.h[[2]], sep=" | ") r.names <- paste(sprintf(paste0("%", max(nchar(paste(x$mf.h[[1]]))), "s", collapse=""), x$mf.h[[1]]), x$mf.h[[nvars]], sep=" | ") } is.dup <- duplicated(r.names) pred <- pred[!is.dup,] rownames(pred) <- r.names[!is.dup] if (isTRUE(ddd$vcov)) vpred <- vpred[!is.dup, !is.dup] if (is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { #r.order <- order(x$mf.h[[nvars]][!is.dup], seq_len(x$k)[!is.dup]) r.order <- seq_len(x$k) } else { r.order <- order(x$mf.h[[2]][!is.dup], x$mf.h[[1]][!is.dup]) } pred <- pred[r.order,] out <- c(out, list(pred)) #names(out)[length(out)] <- paste(x$h.names, collapse=" | ") names(out)[length(out)] <- paste0(x$formulas[[2]], collapse="") if (isTRUE(ddd$vcov)) { vpred <- vpred[r.order, r.order] vcov <- c(vcov, list(vpred)) names(vcov)[length(vcov)] <- paste0(x$formulas[[2]], collapse="") } if (verbose) message(mstyle$message("Done!")) } } if (verbose) cat("\n") ######################################################################### ### if requested, apply transformation function if (is.function(transf)) { if (is.null(targs)) { out <- lapply(out, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) out <- lapply(out, transf, targs) } out <- lapply(out, function(x) x[,-2,drop=FALSE]) transf <- TRUE } ### make sure order of intervals is always increasing #tmp <- .psort(pi.lb, pi.ub) #pi.lb <- tmp[,1] #pi.ub <- tmp[,2] ######################################################################### if (is.null(out)) { return() } else { if (isTRUE(ddd$vcov)) { out <- list(pred=out) if (!inherits(vcov, "sparseMatrix")) class(vcov) <- c("vcovmat", class(vcov)) out$vcov <- vcov } return(out) } } metafor/R/logLik.rma.r0000644000176200001440000000126715120213572014276 0ustar liggesuserslogLik.rma <- function(object, REML, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") # in case something like logLik(res1, res2) is used if (!missing(REML) && inherits(REML, "rma")) REML <- NULL if (missing(REML) || is.null(REML)) { if (object$method == "REML") { REML <- TRUE } else { REML <- FALSE } } if (REML) { val <- object$fit.stats["ll","REML"] } else { val <- object$fit.stats["ll","ML"] } attr(val, "nall") <- object$k.eff attr(val, "nobs") <- object$k.eff - ifelse(REML, object$p.eff, 0) attr(val, "df") <- object$parms class(val) <- "logLik" return(val) } metafor/R/misc.func.hidden.rma.mv.r0000644000176200001440000015506215130422524016620 0ustar liggesusers############################################################################ ### function to test for missings in a var-cov matrix .anyNAv <- function(x) { k <- nrow(x) not.na <- not.na.diag <- !is.na(diag(x)) for (i in seq_len(k)[not.na.diag]) { not.na[i] <- !anyNA(x[i, seq_len(k)[not.na.diag]]) } return(!not.na) } ### function to test each row for any missings in the lower triangular part of a matrix #.anyNAv <- function(x) # return(sapply(seq_len(nrow(x)), FUN=function(i) anyNA(x[i,seq_len(i)]))) ### function above is faster (and does not require making a copy of the object) #.anyNAv <- function(X) { # X[upper.tri(X)] <- 0 # return(apply(is.na(X), 1, any)) #} ############################################################################ ### function to check vccon elements .chkvccon <- function(ids, vcvals) { # get name of vcvals vcname <- as.character(match.call()[[3]]) if (is.null(ids) || is.null(vcvals)) return(vcvals) if (length(ids) != length(vcvals)) { mstyle <- .get.mstyle() stop(mstyle$stop(paste0("Length of 'vccon$", vcname, "' (", length(ids), ") does not match the length of ", vcname, " (", length(vcvals), ").")), call.=FALSE) } for (id in unique(ids)) vcvals[ids == id] <- mean(vcvals[ids == id], na.rm=TRUE) # if all elements are NA, then the mean will be NaN, so fix this back to NA vcvals[is.nan(vcvals)] <- NA_real_ return(vcvals) } ############################################################################ .process.G.aftersub <- function(mf.g, struct, formula, tau2, rho, isG, k, sparse, verbose) { mstyle <- .get.mstyle() if (verbose > 1) message(mstyle$message(paste0("Processing '", paste0(formula, collapse=""), "' term (#1) ..."))) ### number of variables in model frame nvars <- ncol(mf.g) ### check that the number of variables is correct for the chosen structure if (is.element(struct, c("CS","HCS","UN","UNR","AR","HAR","CAR","ID","DIAG","PHYBM","PHYPL","PHYPD")) && sum(sapply(mf.g, NCOL)) != 2) stop(mstyle$stop(paste0("Only a single inner variable allowed for an '~ inner | outer' term when 'struct=\"", struct, "\"'.")), call.=FALSE) # note: need to use sum(sapply(mf.g, NCOL)) above because when 'random = ~ X | study' (and X is a matrix with 2+ columns), nvars will still be 2 for (unless struct="GEN") ### get variables names in mf.g g.names <- names(mf.g) # names for inner and outer factors/variables ### check that inner variable is a factor (or character variable) for structures that require this (no longer required) #if (is.element(struct, c("CS","HCS","UN","UNR","ID","DIAG")) && !is.factor(mf.g[[1]]) && !is.character(mf.g[[1]])) # stop(mstyle$stop(paste0("Inner variable in '~ inner | outer' term must be a factor or character variable when 'struct=\"", struct, "\"'.")), call.=FALSE) ### for struct="CAR", check that inner term is numeric and get the unique numeric values if (is.element(struct, c("CAR"))) { if (!is.numeric(mf.g[[1]])) stop(mstyle$stop("Inner variable in '~ inner | outer' term must be numeric for 'struct=\"CAR\"'."), call.=FALSE) g.values <- sort(unique(round(mf.g[[1]], digits=8L))) # aweful hack to avoid floating points issues } else { g.values <- NULL } ### turn each variable in mf.g into a factor (not for SP/PHY structures or GEN) ### if a variable was a factor to begin with, this drops any unused levels, but order of existing levels is preserved if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { mf.g <- data.frame(mf.g[-nvars], outer=factor(mf.g[[nvars]])) } else { mf.g <- data.frame(inner=factor(mf.g[[1]]), outer=factor(mf.g[[2]])) } ### check if there are any NAs anywhere in mf.g if (anyNA(mf.g)) stop(mstyle$stop("No NAs allowed in variables specified via the 'random' argument."), call.=FALSE) ### get number of levels of each variable in mf.g (vector with two values, for the inner and outer factor) #g.nlevels <- c(nlevels(mf.g[[1]]), nlevels(mf.g[[2]])) # works only for factors if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { g.nlevels <- c(length(unique(apply(mf.g[-nvars], 1, paste, collapse=" + "))), length(unique(mf.g[[nvars]]))) } else { g.nlevels <- c(length(unique(mf.g[[1]])), length(unique(mf.g[[2]]))) } ### get levels of each variable in mf.g #g.levels <- list(levels(mf.g[[1]]), levels(mf.g[[2]])) # works only for factors if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { g.levels <- list(sort(unique(apply(mf.g[-nvars], 1, paste, collapse=" + "))), sort(unique((mf.g[[nvars]])))) } else { #g.levels <- list(sort(unique(as.character(mf.g[[1]]))), sort(unique(as.character(mf.g[[2]])))) g.levels <- list(as.character(sort(unique(mf.g[[1]]))), as.character(sort(unique(mf.g[[2]])))) } ### determine appropriate number of tau2 and rho values (note: this is done *after* subsetting) ### note: if g.nlevels[1] is 1, then technically there is no correlation, but we still need one ### rho for the optimization function (this rho is fixed to 0 further in the rma.mv() function) if (is.element(struct, c("CS","ID","AR","CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { tau2s <- 1 rhos <- 1 } if (is.element(struct, c("HCS","DIAG","HAR"))) { tau2s <- g.nlevels[1] rhos <- 1 } if (struct == "UN") { tau2s <- g.nlevels[1] rhos <- ifelse(g.nlevels[1] > 1, g.nlevels[1]*(g.nlevels[1]-1)/2, 1) } if (struct == "UNR") { tau2s <- 1 rhos <- ifelse(g.nlevels[1] > 1, g.nlevels[1]*(g.nlevels[1]-1)/2, 1) } if (struct == "GEN") { p <- nvars - 1 tau2s <- p rhos <- ifelse(p > 1, p*(p-1)/2, 1) } if (struct == "GDIAG") { p <- nvars - 1 tau2s <- p rhos <- 1 } ### set default value(s) for tau2 if it is unspecified if (is.null(tau2)) tau2 <- rep(NA_real_, tau2s) ### set default value(s) for rho argument if it is unspecified if (is.null(rho)) rho <- rep(NA_real_, rhos) ### allow quickly setting all tau2 values to a fixed value tau2 <- .expand1(tau2, tau2s) ### allow quickly setting all rho values to a fixed value rho <- .expand1(rho, rhos) ### check if tau2 and rho are of correct length if (length(tau2) != tau2s) stop(mstyle$stop(paste0("Length of the ", ifelse(isG, 'tau2', 'gamma2'), " argument (", length(tau2), ") does not match the actual number of variance components (", tau2s, ").")), call.=FALSE) if (length(rho) != rhos) stop(mstyle$stop(paste0("Length of the ", ifelse(isG, 'rho', 'phi'), " argument (", length(rho), ") does not match the actual number of correlations (", rhos, ").")), call.=FALSE) ### checks on any fixed values of tau2 and rho arguments if (any(tau2 < 0, na.rm=TRUE)) stop(mstyle$stop(paste0("Specified value(s) of ", ifelse(isG, 'tau2', 'gamma2'), " must be >= 0.")), call.=FALSE) if (is.element(struct, c("CAR")) && any(rho > 1 | rho < 0, na.rm=TRUE)) stop(mstyle$stop(paste0("Specified value(s) of ", ifelse(isG, 'rho', 'phi'), " must be in [0,1].")), call.=FALSE) if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD")) && any(rho < 0, na.rm=TRUE)) stop(mstyle$stop(paste0("Specified value(s) of ", ifelse(isG, 'rho', 'phi'), " must be >= 0.")), call.=FALSE) if (!is.element(struct, c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD")) && any(rho > 1 | rho < -1, na.rm=TRUE)) stop(mstyle$stop(paste0("Specified value(s) of ", ifelse(isG, 'rho', 'phi'), " must be in [-1,1].")), call.=FALSE) ### create model matrix for inner and outer factors of mf.g if (is.element(struct, c("CS","HCS","UN","UNR","AR","HAR","CAR","ID","DIAG"))) { if (g.nlevels[1] == 1) { Z.G1 <- cbind(rep(1,k)) } else { if (sparse) { Z.G1 <- sparse.model.matrix(~ 0 + mf.g[[1]]) } else { Z.G1 <- model.matrix(~ 0 + mf.g[[1]]) } } } if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { if (sparse) { Z.G1 <- Diagonal(k) } else { Z.G1 <- diag(1, nrow=k, ncol=k) } } if (is.element(struct, c("GEN","GDIAG"))) { if (sparse) { Z.G1 <- Matrix(as.matrix(mf.g[-nvars]), sparse=TRUE) } else { Z.G1 <- as.matrix(mf.g[-nvars]) } } if (g.nlevels[2] == 1) { Z.G2 <- cbind(rep(1,k)) } else { if (sparse) { Z.G2 <- sparse.model.matrix(~ 0 + mf.g[[nvars]]) } else { Z.G2 <- model.matrix(~ 0 + mf.g[[nvars]]) } } attr(Z.G1, "assign") <- NULL attr(Z.G1, "contrasts") <- NULL attr(Z.G2, "assign") <- NULL attr(Z.G2, "contrasts") <- NULL return(list(mf.g=mf.g, g.names=g.names, g.nlevels=g.nlevels, g.levels=g.levels, g.values=g.values, tau2s=tau2s, rhos=rhos, tau2=tau2, rho=rho, Z.G1=Z.G1, Z.G2=Z.G2)) } ############################################################################ .process.G.afterrmna <- function(mf.g, g.nlevels, g.levels, g.values, struct, formula, tau2, rho, Z.G1, Z.G2, isG, sparse, distspec, check.k.gtr.1, verbose) { mstyle <- .get.mstyle() if (verbose > 1) message(mstyle$message(paste0("Processing '", paste0(formula, collapse=""), "' term (#2) ..."))) ### number of variables in model frame nvars <- ncol(mf.g) ### copy g.nlevels and g.levels g.nlevels.f <- g.nlevels g.levels.f <- g.levels ### redo: turn each variable in mf.g into a factor (not for SP structures or GEN) ### (reevaluates the levels present, but order of existing levels is preserved) if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { mf.g <- data.frame(mf.g[-nvars], outer=factor(mf.g[[nvars]])) } else { mf.g <- data.frame(inner=factor(mf.g[[1]]), outer=factor(mf.g[[2]])) } ### redo: get number of levels of each variable in mf.g (vector with two values, for the inner and outer factor) #g.nlevels <- c(nlevels(mf.g[[1]]), nlevels(mf.g[[2]])) # works only for factors if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { g.nlevels <- c(length(unique(apply(mf.g[-nvars], 1, paste, collapse=" + "))), length(unique(mf.g[[nvars]]))) } else { g.nlevels <- c(length(unique(mf.g[[1]])), length(unique(mf.g[[2]]))) } ### redo: get levels of each variable in mf.g #g.levels <- list(levels(mf.g[[1]]), levels(mf.g[[2]])) # works only for factors if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { g.levels <- list(sort(unique(apply(mf.g[-nvars], 1, paste, collapse=" + "))), sort(unique((mf.g[[nvars]])))) } else { #g.levels <- list(sort(unique(as.character(mf.g[[1]]))), sort(unique(as.character(mf.g[[2]])))) g.levels <- list(as.character(sort(unique(mf.g[[1]]))), as.character(sort(unique(mf.g[[2]])))) } ### determine which levels of the inner factor were removed g.levels.r <- !is.element(g.levels.f[[1]], g.levels[[1]]) ### warn if any levels were removed (not for "AR","CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","GEN","GDIAG") if (any(g.levels.r) && !is.element(struct, c("AR","CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","GEN","GDIAG"))) warning(mstyle$warning(paste0("One or more levels of inner factor (i.e., ", paste(g.levels.f[[1]][g.levels.r], collapse=", "), ") removed due to NAs.")), call.=FALSE) ### for "ID", "DIAG", and "GDIAG", fix rho to 0 if (is.element(struct, c("ID","DIAG","GDIAG"))) rho <- 0 ### if there is only a single arm for "CS","HCS","AR","HAR","CAR" (either to begin with or after removing NAs), then fix rho to 0 if (g.nlevels[1] == 1 && is.element(struct, c("CS","HCS","AR","HAR","CAR")) && is.na(rho)) { rho <- 0 warning(mstyle$warning(paste0("Inner factor has only a single level, so fixed value of ", ifelse(isG, 'rho', 'phi'), " to 0.")), call.=FALSE) } ### if there is only a single arm for SP/PHY structures or GEN/GDIAG (either to begin with or after removing NAs), cannot fit model if (g.nlevels[1] == 1 && is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) stop(mstyle$stop("Cannot fit model since inner term only has a single level."), call.=FALSE) ### k per level of the inner factor if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { g.levels.k <- table(factor(apply(mf.g[-nvars], 1, paste, collapse=" + "), levels=g.levels.f[[1]])) } else { #g.levels.k <- table(factor(mf.g[[1]], levels=g.levels.f[[1]])) g.levels.k <- apply(table(factor(mf.g[[1]], levels=g.levels.f[[1]]), mf.g[[2]]), 1, function(x) sum(x>0L)) } ### for "HCS","UN","DIAG","HAR": if a particular level of the inner factor only occurs once, then set corresponding tau2 value to 0 (if not already fixed) if (is.element(struct, c("HCS","UN","DIAG","HAR")) && check.k.gtr.1) { if (any(is.na(tau2) & g.levels.k == 1)) { tau2[is.na(tau2) & g.levels.k == 1] <- 0 warning(mstyle$warning("Inner factor has k=1 for one or more levels. Corresponding 'tau2' value(s) fixed to 0."), call.=FALSE) } } ### check if each study has only a single arm (could be different arms!) ### for "CS","HCS","AR","HAR","CAR" must then fix rho to 0 (if not already fixed) ### for SP/PHY structures cannot fit model; for GEN rho may still be (weakly) identifiable if (g.nlevels[2] == nrow(mf.g)) { if (is.element(struct, c("CS","HCS","AR","HAR","CAR")) && is.na(rho)) { rho <- 0 warning(mstyle$warning(paste0("Each level of the outer factor contains only a single level of the inner factor, so fixed value of ", ifelse(isG, 'rho', 'phi'), " to 0.")), call.=FALSE) } if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) stop(mstyle$stop("Cannot fit model since each level of the outer factor contains only a single level of the inner term."), call.=FALSE) } g.levels.comb.k <- NULL if (!is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { ### create matrix where each row (= study) indicates how often each arm occurred ### then turn this into a list (with each element equal to a row (= study)) g.levels.comb.k <- crossprod(Z.G2, Z.G1) g.levels.comb.k <- split(g.levels.comb.k, seq_len(nrow(g.levels.comb.k))) ### create matrix for each element (= study) that indicates which combinations occurred ### sum up all matrices (numbers indicate in how many studies each combination occurred) ### take upper triangle part that corresponds to the arm combinations (in order of rho) g.levels.comb.k <- lapply(g.levels.comb.k, function(x) outer(x,x, FUN="&")) g.levels.comb.k <- Reduce("+", g.levels.comb.k) g.levels.comb.k <- g.levels.comb.k[lower.tri(g.levels.comb.k)] ### UN/UNR: if a particular combination of arms never occurs in any of the studies, then must fix the corresponding rho to 0 (if not already fixed) ### this also takes care of the case where each study has only a single arm if (is.element(struct, c("UN","UNR")) && any(g.levels.comb.k == 0 & is.na(rho))) { rho[g.levels.comb.k == 0] <- 0 warning(mstyle$warning(paste0("Some combinations of the levels of the inner factor never occurred. Corresponding ", ifelse(isG, 'rho', 'phi'), " value(s) fixed to 0.")), call.=FALSE) } ### if there was only a single arm for "UN" or "UNR" to begin with, then fix rho to 0 ### (technically there is then no rho at all to begin with, but rhos was still set to 1 earlier for the optimization routine) ### (if there is a single arm after removing NAs, then this is dealt with below by setting tau2 and rho values to 0) if (is.element(struct, c("UN","UNR")) && g.nlevels.f[1] == 1 && is.na(rho)) { rho <- 0 warning(mstyle$warning(paste0("Inner factor has only a single level, so fixed value of ", ifelse(isG, 'rho', 'phi'), " to 0.")), call.=FALSE) } } ### construct G matrix for the various structures if (struct == "CS") { G <- matrix(rho*tau2, nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) diag(G) <- tau2 } if (struct == "HCS") { G <- matrix(rho, nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) diag(G) <- 1 G <- diag(sqrt(tau2), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) %*% G %*% diag(sqrt(tau2), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) diag(G) <- tau2 } if (is.element(struct, c("UN","GEN"))) { G <- .con.vcov.UN(tau2, rho) } if (struct == "UNR") { G <- .con.vcov.UNR(tau2, rho) } if (is.element(struct, c("GDIAG"))) { G <- diag(tau2, nrow=length(tau2), ncol=length(tau2)) } if (is.element(struct, c("ID","DIAG"))) { G <- diag(tau2, nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) } if (struct == "AR") { if (is.na(rho)) { G <- matrix(NA_real_, nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) } else { ### is g.nlevels.f[1] == 1 even possible here? if (g.nlevels.f[1] > 1) { G <- toeplitz(ARMAacf(ar=rho, lag.max=g.nlevels.f[1]-1)) } else { G <- diag(1) } } G <- diag(sqrt(rep(tau2, g.nlevels.f[1])), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) %*% G %*% diag(sqrt(rep(tau2, g.nlevels.f[1])), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) diag(G) <- tau2 } if (struct == "HAR") { if (is.na(rho)) { G <- matrix(NA_real_, nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) } else { ### is g.nlevels.f[1] == 1 even possible here? if (g.nlevels.f[1] > 1) { G <- toeplitz(ARMAacf(ar=rho, lag.max=g.nlevels.f[1]-1)) } else { G <- diag(1) } } G <- diag(sqrt(tau2), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) %*% G %*% diag(sqrt(tau2), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) diag(G) <- tau2 } if (struct == "CAR") { if (is.na(rho)) { G <- matrix(NA_real_, nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) } else { ### is g.nlevels.f[1] == 1 even possible here? if (g.nlevels.f[1] > 1) { G <- outer(g.values, g.values, function(x,y) rho^(abs(x-y))) } else { G <- diag(1) } } G <- diag(sqrt(rep(tau2, g.nlevels.f[1])), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) %*% G %*% diag(sqrt(rep(tau2, g.nlevels.f[1])), nrow=g.nlevels.f[1], ncol=g.nlevels.f[1]) diag(G) <- tau2 } if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { ### remove the '| outer' part from the formula and add '- 1' formula <- as.formula(paste0(strsplit(paste0(formula, collapse=""), "|", fixed=TRUE)[[1]][1], "- 1", collapse="")) ### create distance matrix if (.is.matrix(distspec)) { if (anyNA(distspec)) stop(mstyle$stop("No missing values allowed in matrices specified via 'dist'."), call.=FALSE) if (!.is.square(distspec)) stop(mstyle$stop("Distance matrices specified via 'dist' must be square matrices."), call.=FALSE) if (!isSymmetric(unname(distspec))) stop(mstyle$stop("Distance matrices specified via 'dist' must be symmetric matrices."), call.=FALSE) if (is.null(rownames(distspec))) rownames(distspec) <- colnames(distspec) if (is.null(colnames(distspec))) colnames(distspec) <- rownames(distspec) if (length(colnames(distspec)) != length(unique(colnames(distspec)))) stop(mstyle$stop("Distance matrices specified via 'dist' must have unique dimension names."), call.=FALSE) if (any(!is.element(as.character(mf.g[[1]]), colnames(distspec)))) stop(mstyle$stop(paste0("There are levels in '", colnames(mf.g)[1], "' for which there are no matching rows/columns in the corresponding 'dist' matrix.")), call.=FALSE) if (is.element(struct, c("PHYBM","PHYPL","PHYPD")) && !all.equal(min(distspec), 0)) warning(mstyle$warning("Minimum value in the distance matrix is not 0."), call.=FALSE) if (is.element(struct, c("PHYBM","PHYPL","PHYPD")) && !all.equal(max(distspec), 2)) warning(mstyle$warning("Maximum value in the distance matrix is not 2."), call.=FALSE) Dmat <- distspec[as.character(mf.g[[1]]), as.character(mf.g[[1]])] } else { if (is.element(struct, c("PHYBM","PHYPL","PHYPD"))) stop(mstyle$stop("Must supply distance matrix via 'dist' for phylogenetic correlation structures."), call.=FALSE) Cmat <- model.matrix(formula, data=mf.g[-nvars]) if (is.function(distspec)) { Dmat <- distspec(Cmat) } else { if (is.element(distspec, c("euclidean", "maximum", "manhattan"))) Dmat <- as.matrix(dist(Cmat, method=distspec)) if (distspec == "gcd") Dmat <- sp::spDists(Cmat, longlat=TRUE) } } if (sparse) Dmat <- Matrix(Dmat, sparse=TRUE) } else { Dmat <- NULL } if (struct == "SPEXP") { Rmat <- exp(-Dmat/rho) G <- tau2 * Rmat * tcrossprod(Z.G2) } if (struct == "SPGAU") { Rmat <- exp(-Dmat^2/rho^2) G <- tau2 * Rmat * tcrossprod(Z.G2) } if (struct == "SPLIN") { Rmat <- (1 - Dmat/rho) * I(Dmat < rho) G <- tau2 * Rmat * tcrossprod(Z.G2) } if (struct == "SPRAT") { Rmat <- 1 - (Dmat/rho)^2 / (1 + (Dmat/rho)^2) G <- tau2 * Rmat * tcrossprod(Z.G2) } if (struct == "SPSPH") { Rmat <- (1 - 3/2*Dmat/rho + 1/2*(Dmat/rho)^3) * I(Dmat < rho) G <- tau2 * Rmat * tcrossprod(Z.G2) } if (struct == "PHYBM") { rho <- max(Dmat) Rmat <- 1 - Dmat/rho G <- tau2 * Rmat * tcrossprod(Z.G2) } if (struct == "PHYPL") { Rmat <- rho * (1 - Dmat/max(Dmat)) diag(Rmat) <- 1 Rmat[Dmat == 0] <- 1 G <- tau2 * Rmat * tcrossprod(Z.G2) } if (struct == "PHYPD") { Rmat <- 1 - Dmat/max(Dmat) G <- tau2 * Rmat^rho * tcrossprod(Z.G2) } ### for spatial and phylogeny structures, compute a much more sensible initial value for rho if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { if (struct == "PHYBM") rho.init <- max(Dmat) if (struct == "PHYPL") rho.init <- 0.5 if (struct == "PHYPD") rho.init <- 1 if (!is.element(struct, c("PHYBM","PHYPL","PHYPD"))) rho.init <- unname(suppressMessages(quantile(Dmat[lower.tri(Dmat)], 0.25))) # suppressMessages() to avoid '[ ] : .M.sub.i.logical() maybe inefficient' messages when sparse=TRUE } else { rho.init <- NULL } ### for "CS","AR","CAR","ID" set tau2 value to 0 for any levels that were removed if (any(g.levels.r) && is.element(struct, c("CS","AR","CAR","ID"))) { G[g.levels.r,] <- 0 G[,g.levels.r] <- 0 } ### for "HCS","HAR","DIAG" set tau2 value(s) to 0 for any levels that were removed if (any(g.levels.r) && is.element(struct, c("HCS","HAR","DIAG"))) { G[g.levels.r,] <- 0 G[,g.levels.r] <- 0 tau2[g.levels.r] <- 0 warning(mstyle$warning(paste0("Fixed ", ifelse(isG, 'tau2', 'gamma2'), " to 0 for removed level(s).")), call.=FALSE) } ### for "UN", set tau2 value(s) and corresponding rho(s) to 0 for any levels that were removed if (any(g.levels.r) && struct == "UN") { G[g.levels.r,] <- 0 G[,g.levels.r] <- 0 tau2[g.levels.r] <- 0 rho <- G[lower.tri(G)] warning(mstyle$warning(paste0("Fixed ", ifelse(isG, 'tau2', 'gamma2'), " and corresponding ", ifelse(isG, 'rho', 'phi'), " value(s) to 0 for removed level(s).")), call.=FALSE) } ### for "UNR", set rho(s) to 0 corresponding to any levels that were removed if (any(g.levels.r) && struct == "UNR") { G[g.levels.r,] <- 0 G[,g.levels.r] <- 0 diag(G) <- tau2 # don't really need this rho <- G[lower.tri(G)] warning(mstyle$warning(paste0("Fixed ", ifelse(isG, 'rho', 'phi'), " value(s) to 0 for removed level(s).")), call.=FALSE) } ### special handling for the bivariate model: ### if tau2 (for "CS","AR","CAR","UNR") or either tau2.1 or tau2.2 (for "HCS","UN","HAR") is fixed to 0, then rho must be fixed to 0 if (g.nlevels.f[1] == 2) { if (is.element(struct, c("CS","AR","CAR","UNR")) && !is.na(tau2) && tau2 == 0) rho <- 0 if (is.element(struct, c("HCS","UN","HAR")) && ((!is.na(tau2[1]) && tau2[1] == 0) || (!is.na(tau2[2]) && tau2[2] == 0))) rho <- 0 } return(list(mf.g=mf.g, g.nlevels=g.nlevels, g.nlevels.f=g.nlevels.f, g.levels=g.levels, g.levels.f=g.levels.f, g.levels.r=g.levels.r, g.levels.k=g.levels.k, g.levels.comb.k=g.levels.comb.k, tau2=tau2, rho=rho, G=G, Dmat=Dmat, rho.init=rho.init)) } ############################################################################ ### function to construct var-cov matrix for "UN" and "GEN" structures given vector of variances and correlations .con.vcov.UN <- function(vars, cors, vccov=FALSE) { dims <- length(vars) if (vccov) { G <- matrix(0, nrow=dims, ncol=dims) G[lower.tri(G)] <- cors G[upper.tri(G)] <- t(G)[upper.tri(G)] diag(G) <- vars return(G) } else { R <- matrix(1, nrow=dims, ncol=dims) R[lower.tri(R)] <- cors R[upper.tri(R)] <- t(R)[upper.tri(R)] S <- diag(sqrt(vars), nrow=dims, ncol=dims) return(S %*% R %*% S) } } ### function to construct var-cov matrix for "UN" and "GEN" structures given vector of 'choled' variances and covariances .con.vcov.UN.chol <- function(vars, covs) { dims <- length(vars) G <- matrix(0, nrow=dims, ncol=dims) G[lower.tri(G)] <- covs diag(G) <- vars return(tcrossprod(G)) } ### function to construct var-cov matrix for "UNR" structure given the variance and correlations .con.vcov.UNR <- function(var, cors) { dims <- round((1 + sqrt(1 + 8*length(cors)))/2) G <- matrix(1, nrow=dims, ncol=dims) G[lower.tri(G)] <- cors G[upper.tri(G)] <- t(G)[upper.tri(G)] return(var * G) } ### function to construct var-cov matrix for "UNR" structure given the variance and vector of 'choled' correlations .con.vcov.UNR.chol <- function(var, cors) { dims <- round((1 + sqrt(1 + 8*length(cors)))/2) G <- matrix(0, nrow=dims, ncol=dims) G[lower.tri(G)] <- cors diag(G) <- 1 return(var * tcrossprod(G)) } ############################################################################ ### function to construct var-cov matrix (G or H) for '~ inner | outer' terms .con.E <- function(v, r, v.arg, r.arg, Z1, Z2, levels.r, values, Dmat, struct, cholesky, vctransf, vccov, nearpd, sparse) { ### if cholesky=TRUE, back-transformation/substitution is done below; otherwise, back-transform and replace fixed values if (!cholesky) { if (vctransf) { v <- ifelse(is.na(v.arg), exp(v), v.arg) # variances are optimized in log space, so exponentiate if (struct == "CAR") r <- ifelse(is.na(r.arg), plogis(r), r.arg) # CAR correlation is optimized in qlogis space, so use plogis if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) r <- ifelse(is.na(r.arg), exp(r), r.arg) # spatial and phylogenetic 'correlation' parameter is optimized in log space, so exponentiate if (!is.element(struct, c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) r <- ifelse(is.na(r.arg), tanh(r), r.arg) # other correlations are optimized in atanh space, so use tanh } else { ### for Hessian computation, can choose to leave as is v <- ifelse(is.na(v.arg), v, v.arg) r <- ifelse(is.na(r.arg), r, r.arg) v[v < 0] <- 0 if (struct == "CAR") { r[r < 0] <- 0 r[r > 1] <- 1 } if (is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { r[r < 0] <- 0 } if (!is.element(struct, c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD")) && !vccov) { r[r < -1] <- -1 r[r > 1] <- 1 } } v <- ifelse(v <= .Machine$double.eps*10, 0, v) # don't do this with Cholesky factorization, since values can be negative } ncol.Z1 <- ncol(Z1) if (struct == "CS") { E <- matrix(r*v, nrow=ncol.Z1, ncol=ncol.Z1) diag(E) <- v } if (struct == "HCS") { E <- matrix(r, nrow=ncol.Z1, ncol=ncol.Z1) diag(E) <- 1 E <- diag(sqrt(v), nrow=ncol.Z1, ncol=ncol.Z1) %*% E %*% diag(sqrt(v), nrow=ncol.Z1, ncol=ncol.Z1) diag(E) <- v } if (is.element(struct, c("UN","GEN"))) { if (cholesky) { E <- .con.vcov.UN.chol(v, r) v <- diag(E) # need this, so correct values are shown when verbose=TRUE r <- cov2cor(E)[lower.tri(E)] # need this, so correct values are shown when verbose=TRUE v[!is.na(v.arg)] <- v.arg[!is.na(v.arg)] # replace any fixed values r[!is.na(r.arg)] <- r.arg[!is.na(r.arg)] # replace any fixed values } E <- .con.vcov.UN(v, r, vccov) if (nearpd) { E <- as.matrix(nearPD(E)$mat) # nearPD() in Matrix package v <- diag(E) # need this, so correct values are shown when verbose=TRUE r <- cov2cor(E)[lower.tri(E)] # need this, so correct values are shown when verbose=TRUE } } if (struct == "UNR") { if (cholesky) { E <- .con.vcov.UNR.chol(v, r) v <- diag(E)[1,1] # need this, so correct values are shown when verbose=TRUE r <- cov2cor(E)[lower.tri(E)] # need this, so correct values are shown when verbose=TRUE v[!is.na(v.arg)] <- v.arg[!is.na(v.arg)] # replace any fixed values r[!is.na(r.arg)] <- r.arg[!is.na(r.arg)] # replace any fixed values } E <- .con.vcov.UNR(v, r) if (nearpd) { E <- as.matrix(nearPD(E, keepDiag=TRUE)$mat) # nearPD() in Matrix package v <- E[1,1] # need this, so correct values are shown when verbose=TRUE r <- cov2cor(E)[lower.tri(E)] # need this, so correct values are shown when verbose=TRUE } } if (struct == "GDIAG") { E <- diag(v, nrow=length(v), ncol=length(v)) } if (is.element(struct, c("ID","DIAG"))) E <- diag(v, nrow=ncol.Z1, ncol=ncol.Z1) if (struct == "AR") { if (ncol.Z1 > 1) { E <- toeplitz(ARMAacf(ar=r, lag.max=ncol.Z1-1)) } else { E <- diag(1) } E <- diag(sqrt(rep(v, ncol.Z1)), nrow=ncol.Z1, ncol=ncol.Z1) %*% E %*% diag(sqrt(rep(v, ncol.Z1)), nrow=ncol.Z1, ncol=ncol.Z1) diag(E) <- v } if (struct == "HAR") { if (ncol.Z1 > 1) { E <- toeplitz(ARMAacf(ar=r, lag.max=ncol.Z1-1)) } else { E <- diag(1) } E <- diag(sqrt(v), nrow=ncol.Z1, ncol=ncol.Z1) %*% E %*% diag(sqrt(v), nrow=ncol.Z1, ncol=ncol.Z1) diag(E) <- v } if (struct == "CAR") { if (ncol.Z1 > 1) { E <- outer(values, values, function(x,y) r^(abs(x-y))) } else { E <- diag(1) } E <- diag(sqrt(rep(v, ncol.Z1)), nrow=ncol.Z1, ncol=ncol.Z1) %*% E %*% diag(sqrt(rep(v, ncol.Z1)), nrow=ncol.Z1, ncol=ncol.Z1) diag(E) <- v } if (struct == "SPEXP") E <- v * exp(-Dmat/r) * tcrossprod(Z2) if (struct == "SPGAU") E <- v * exp(-Dmat^2/r^2) * tcrossprod(Z2) if (struct == "SPLIN") E <- v * ((1 - Dmat/r) * I(Dmat < r)) * tcrossprod(Z2) if (struct == "SPRAT") E <- v * (1 - (Dmat/r)^2 / (1 + (Dmat/r)^2)) * tcrossprod(Z2) if (struct == "SPSPH") E <- v * ((1 - 3/2*Dmat/r + 1/2*(Dmat/r)^3) * I(Dmat < r)) * tcrossprod(Z2) if (struct == "PHYBM") { r <- max(Dmat) E <- 1 - Dmat/r E <- v * E * tcrossprod(Z2) } if (struct == "PHYPL") { E <- r * (1 - Dmat/max(Dmat)) diag(E) <- 1 E[Dmat == 0] <- 1 E <- v * E * tcrossprod(Z2) } if (struct == "PHYPD") { E <- 1 - Dmat/max(Dmat) E <- v * E^r * tcrossprod(Z2) } ### set variance and corresponding correlation value(s) to 0 for any levels that were removed if (!is.element(struct, c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG")) && any(levels.r)) { E[levels.r,] <- 0 E[,levels.r] <- 0 } if (sparse) E <- Matrix(E, sparse=TRUE) return(list(v=v, r=r, E=E)) } ############################################################################ ### -1 times the log-likelihood (regular or restricted) for rma.mv models .ll.rma.mv <- function(par, reml, Y, M, A, X, k, pX, # note: pX due to nlm(); M=V to begin with D.S, Z.G1, Z.G2, Z.H1, Z.H2, g.Dmat, h.Dmat, sigma2.arg, tau2.arg, rho.arg, gamma2.arg, phi.arg, beta.arg, sigma2s, tau2s, rhos, gamma2s, phis, withS, withG, withH, struct, g.levels.r, h.levels.r, g.values, h.values, sparse, cholesky, nearpd, vctransf, vccov, vccon, verbose, digits, REMLf, mfmaxit=Inf, dofit=FALSE, hessian=FALSE, optbeta=FALSE, lambda1=0, lambda2=0, intercept=TRUE) { mstyle <- .get.mstyle() if (optbeta) { beta <- par[1:pX] par <- par[-c(1:pX)] } ### only NA values in sigma2.arg, tau2.arg, rho.arg, gamma2.arg, phi.arg should be estimated; otherwise, replace with fixed values if (withS) { vars <- par[seq_len(sigma2s)] if (vctransf) { sigma2 <- ifelse(is.na(sigma2.arg), exp(vars), sigma2.arg) # sigma2 is optimized in log space, so exponentiate } else { sigma2 <- ifelse(is.na(sigma2.arg), vars, sigma2.arg) # for Hessian computation, can choose to leave as is sigma2[sigma2 < 0] <- 0 } #if (any(is.nan(sigma2))) # return(Inf) #sigma2[is.nan(sigma2)] <- 0 ### set really small sigma2 values equal to 0 (anything below .Machine$double.eps*10 is essentially 0) sigma2 <- ifelse(sigma2 <= .Machine$double.eps*10, 0, sigma2) if (!is.null(vccon) && !is.null(vccon$sigma2)) { for (id in unique(vccon$sigma2)) sigma2[vccon$sigma2 == id] <- mean(sigma2[vccon$sigma2 == id]) } for (j in seq_len(sigma2s)) { M <- M + sigma2[j] * D.S[[j]] } } if (withG) { vars <- par[(sigma2s+1):(sigma2s+tau2s)] cors <- par[(sigma2s+tau2s+1):(sigma2s+tau2s+rhos)] resG <- .con.E(v=vars, r=cors, v.arg=tau2.arg, r.arg=rho.arg, Z1=Z.G1, Z2=Z.G2, levels.r=g.levels.r, values=g.values, Dmat=g.Dmat, struct=struct[1], cholesky=cholesky[1], vctransf=vctransf, vccov=vccov, nearpd=nearpd, sparse=sparse) tau2 <- resG$v rho <- resG$r G <- resG$E if (!is.null(vccon)) { if (!is.null(vccon$tau2)) { for (id in unique(vccon$tau2)) tau2[vccon$tau2 == id] <- mean(tau2[vccon$tau2 == id]) } if (!is.null(vccon$rho)) { for (id in unique(vccon$rho)) { rho[vccon$rho == id] <- mean(rho[vccon$rho == id]) } } resG <- .con.E(v=tau2, r=rho, v.arg=tau2.arg, r.arg=rho.arg, Z1=Z.G1, Z2=Z.G2, levels.r=g.levels.r, values=g.values, Dmat=g.Dmat, struct=struct[1], cholesky=FALSE, vctransf=FALSE, vccov=vccov, nearpd=nearpd, sparse=sparse) tau2 <- resG$v rho <- resG$r G <- resG$E } M <- M + (Z.G1 %*% G %*% t(Z.G1)) * tcrossprod(Z.G2) } if (withH) { vars <- par[(sigma2s+tau2s+rhos+1):(sigma2s+tau2s+rhos+gamma2s)] cors <- par[(sigma2s+tau2s+rhos+gamma2s+1):(sigma2s+tau2s+rhos+gamma2s+phis)] resH <- .con.E(v=vars, r=cors, v.arg=gamma2.arg, r.arg=phi.arg, Z1=Z.H1, Z2=Z.H2, levels.r=h.levels.r, values=h.values, Dmat=h.Dmat, struct=struct[2], cholesky=cholesky[2], vctransf=vctransf, vccov=vccov, nearpd=nearpd, sparse=sparse) gamma2 <- resH$v phi <- resH$r H <- resH$E if (!is.null(vccon)) { if (!is.null(vccon$gamma2)) { for (id in unique(vccon$gamma2)) { gamma2[vccon$gamma2 == id] <- mean(gamma2[vccon$gamma2 == id]) } } if (!is.null(vccon$phi)) { for (id in unique(vccon$phi)) { phi[vccon$phi == id] <- mean(phi[vccon$phi == id]) } } resH <- .con.E(v=gamma2, r=phi, v.arg=gamma2.arg, r.arg=phi.arg, Z1=Z.H1, Z2=Z.H2, levels.r=h.levels.r, values=h.values, Dmat=h.Dmat, struct=struct[2], cholesky=FALSE, vctransf=FALSE, vccov=vccov, nearpd=nearpd, sparse=sparse) gamma2 <- resH$v phi <- resH$r H <- resH$E } M <- M + (Z.H1 %*% H %*% t(Z.H1)) * tcrossprod(Z.H2) } ### put estimates so far into .metafor environment if (!hessian) { pars <- list(sigma2 = if (withS) sigma2 else NULL, tau2 = if (withG) tau2 else NULL, rho = if (withG) rho else NULL, gamma2 = if (withH) gamma2 else NULL, phi = if (withH) phi else NULL) try(assign("rma.mv", pars, envir=.metafor), silent=TRUE) } ### note: if M is sparse, then using nearPD() could blow up if (nearpd) M <- as.matrix(nearPD(M)$mat) ### compute W = M^-1 via Cholesky decomposition if (verbose > 1) { W <- try(chol2inv(chol(M)), silent=FALSE) } else { W <- try(suppressWarnings(chol2inv(chol(M))), silent=TRUE) } ### note: need W for REML llval computation if (inherits(W, "try-error")) { ### if M is not positive-definite, set the (restricted) log-likelihood to -Inf ### this idea is based on: https://stats.stackexchange.com/q/11368/1934 (this is crude, but should ### move the parameter estimates away from values that create the non-positive-definite M matrix) if (dofit) { stop(mstyle$stop("Final variance-covariance matrix is not positive definite."), call.=FALSE) } else { llval <- -Inf } } else { if (!dofit || is.null(A)) { stXWX <- chol2inv(chol(as.matrix(t(X) %*% W %*% X))) # TODO: catch if this fails if (!optbeta) beta <- matrix(stXWX %*% crossprod(X,W) %*% Y, ncol=1) beta <- ifelse(is.na(beta.arg), beta, beta.arg) RSS <- as.vector(t(Y - X %*% beta) %*% W %*% (Y - X %*% beta)) if (optbeta && (lambda1 > 0 || lambda2 > 0)) { if (intercept) { RSS <- RSS + c(lambda1 * sum(abs(beta[-1])) + lambda2 * crossprod(beta[-1])) #RSS <- RSS + c(lambda1 * sum(abs(beta[-1])) + lambda2 * sum(abs(beta[-1]))) } else { RSS <- RSS + c(lambda1 * sum(abs(beta)) + lambda2 * crossprod(beta)) #RSS <- RSS + c(lambda1 * sum(abs(beta)) + lambda2 * sum(abs(beta))) } } vb <- stXWX } else { stXAX <- chol2inv(chol(as.matrix(t(X) %*% A %*% X))) # TODO: catch if this fails beta <- matrix(stXAX %*% crossprod(X,A) %*% Y, ncol=1) beta <- ifelse(is.na(beta.arg), beta, beta.arg) RSS <- as.vector(t(Y - X %*% beta) %*% W %*% (Y - X %*% beta)) if (optbeta && (lambda1 > 0 || lambda2 > 0)) { if (intercept) { RSS <- RSS + c(lambda1 * sum(abs(beta[-1])) + lambda2 * crossprod(beta[-1])) } else { RSS <- RSS + c(lambda1 * sum(abs(beta)) + lambda2 * crossprod(beta)) } } vb <- matrix(stXAX %*% t(X) %*% A %*% M %*% A %*% X %*% stXAX, nrow=pX, ncol=pX) } llvals <- c(NA_real_, NA_real_) if (dofit || !reml) llvals[1] <- -1/2 * (k) * log(2*base::pi) - 1/2 * determinant(M, logarithm=TRUE)$modulus - 1/2 * RSS if (dofit || reml) llvals[2] <- -1/2 * (k-pX) * log(2*base::pi) + ifelse(REMLf, 1/2 * determinant(crossprod(X), logarithm=TRUE)$modulus, 0) + -1/2 * determinant(M, logarithm=TRUE)$modulus - 1/2 * determinant(crossprod(X,W) %*% X, logarithm=TRUE)$modulus - 1/2 * RSS if (dofit) { res <- list(beta=beta, vb=vb, M=M, llvals=llvals) if (withS) res$sigma2 <- sigma2 if (withG) { res$G <- G res$tau2 <- tau2 res$rho <- rho } if (withH) { res$H <- H res$gamma2 <- gamma2 res$phi <- phi } return(res) } else { llval <- ifelse(reml, llvals[2], llvals[1]) } } iteration <- .getfromenv("iteration", default=NULL) if (isTRUE(iteration > mfmaxit)) stop(mstyle$stop(paste0("Maximum number of iterations (mfmaxit=", mfmaxit, ") reached.")), call.=FALSE) if ((vctransf && verbose) || (!vctransf && (verbose > 1))) { if (!hessian) { if (!is.null(iteration)) cat(mstyle$verbose(paste0("Iteration ", formatC(iteration, width=5, flag="-", format="f", digits=0), " "))) } cat(mstyle$verbose(paste0("ll = ", fmtx(llval, digits[["fit"]], flag=" "))), " ") if (withS) cat(mstyle$verbose(paste0("sigma2 =", paste(fmtx(sigma2, digits[["var"]], flag=" "), collapse=" "), " "))) if (withG) { cat(mstyle$verbose(paste0("tau2 =", paste(fmtx(tau2, digits[["var"]], flag=" "), collapse=" "), " "))) cat(mstyle$verbose(paste0("rho =", paste(fmtx(rho, digits[["var"]], flag=" "), collapse=" "), " "))) } if (withH) { cat(mstyle$verbose(paste0("gamma2 =", paste(fmtx(gamma2, digits[["var"]], flag=" "), collapse=" "), " "))) cat(mstyle$verbose(paste0("phi =", paste(fmtx(phi, digits[["var"]], flag=" "), collapse=" "), " "))) } cat("\n") } try(assign("iteration", iteration+1, envir=.metafor), silent=TRUE) return(-1 * c(llval)) } ############################################################################ .cooks.distance.rma.mv <- function(i, obj, parallel, svb, cluster, ids, reestimate, btt, code2=NULL) { if (parallel == "snow") library(metafor) if (!is.null(code2)) eval(expr = parse(text = code2)) incl <- cluster %in% ids[i] ### elements that need to be returned outlist <- "coef.na=coef.na, beta=beta" ### note: not.na=FALSE only when there are missings in data, not when model below cannot be fitted or results in dropped coefficients if (reestimate) { ### set initial values to estimates from full model control <- obj$control control$sigma2.init <- obj$sigma2 control$tau2.init <- obj$tau2 control$rho.init <- obj$rho control$gamma2.init <- obj$gamma2 control$phi.init <- obj$phi ### fit model without data from ith cluster args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=ifelse(obj$vc.fix$sigma2, obj$sigma2, NA), tau2=ifelse(obj$vc.fix$tau2, obj$tau2, NA), rho=ifelse(obj$vc.fix$rho, obj$rho, NA), gamma2=ifelse(obj$vc.fix$gamma2, obj$gamma2, NA), phi=ifelse(obj$vc.fix$phi, obj$phi, NA), sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=control, subset=!incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } else { ### set values of variance/correlation components to those from the 'full' model args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=obj$sigma2, tau2=obj$tau2, rho=obj$rho, gamma2=obj$gamma2, phi=obj$phi, sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=obj$control, subset=!incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } if (inherits(res, "try-error")) return(list(cook.d = NA_real_)) ### removing a cluster could lead to a model coefficient becoming inestimable if (any(res$coef.na)) return(list(cook.d = NA_real_)) ### compute dfbeta value(s) (including coefficients as specified via btt) dfb <- obj$beta[btt] - res$beta[btt] ### compute Cook's distance return(list(cook.d = crossprod(dfb,svb) %*% dfb)) } .rstudent.rma.mv <- function(i, obj, parallel, cluster, ids, reestimate, code2=NULL) { if (parallel == "snow") library(metafor) if (!is.null(code2)) eval(expr = parse(text = code2)) incl <- cluster %in% ids[i] k.id <- sum(incl) ### elements that need to be returned outlist <- "coef.na=coef.na, sigma2=sigma2, tau2=tau2, rho=rho, gamma2=gamma2, phi=phi, beta=beta, vb=vb" if (reestimate) { ### set initial values to estimates from full model control <- obj$control control$sigma2.init <- obj$sigma2 control$tau2.init <- obj$tau2 control$rho.init <- obj$rho control$gamma2.init <- obj$gamma2 control$phi.init <- obj$phi ### fit model without data from ith cluster args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=ifelse(obj$vc.fix$sigma2, obj$sigma2, NA), tau2=ifelse(obj$vc.fix$tau2, obj$tau2, NA), rho=ifelse(obj$vc.fix$rho, obj$rho, NA), gamma2=ifelse(obj$vc.fix$gamma2, obj$gamma2, NA), phi=ifelse(obj$vc.fix$phi, obj$phi, NA), sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=control, subset=!incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } else { ### set values of variance/correlation components to those from the 'full' model args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=obj$sigma2, tau2=obj$tau2, rho=obj$rho, gamma2=obj$gamma2, phi=obj$phi, sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=obj$control, subset=!incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } if (inherits(res, "try-error")) return(list(delresid = rep(NA_real_, k.id), sedelresid = rep(NA_real_, k.id), X2 = NA_real_, k.id = NA_integer_, pos = which(incl))) ### removing a cluster could lead to a model coefficient becoming inestimable if (any(res$coef.na)) return(list(delresid = rep(NA_real_, k.id), sedelresid = rep(NA_real_, k.id), X2 = NA_real_, k.id = NA_integer_, pos = which(incl))) ### elements that need to be returned outlist <- "M=M" ### fit model based on all data but with var/cor components fixed to those from res args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=res$sigma2, tau2=res$tau2, rho=res$rho, gamma2=res$gamma2, phi=res$phi, sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=obj$control, outlist=outlist) tmp <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) Xi <- obj$X[incl,,drop=FALSE] delpred <- Xi %*% res$beta vdelpred <- Xi %*% res$vb %*% t(Xi) delresid <- c(obj$yi[incl] - delpred) sedelresid <- c(sqrt(diag(tmp$M[incl,incl,drop=FALSE] + vdelpred))) sve <- try(chol2inv(chol(tmp$M[incl,incl,drop=FALSE] + vdelpred)), silent=TRUE) #sve <- try(solve(tmp$M[incl,incl,drop=FALSE] + vdelpred), silent=TRUE) if (inherits(sve, "try-error")) return(list(delresid = delresid, sedelresid = sedelresid, X2 = NA_real_, k.id = k.id, pos = which(incl))) X2 <- c(rbind(delresid) %*% sve %*% cbind(delresid)) if (is.list(X2)) # when sparse=TRUE, this is a list with a one-element matrix X2 <- X2[[1]][1] return(list(delresid = delresid, sedelresid = sedelresid, X2 = X2, k.id = k.id, pos = which(incl))) } .dfbetas.rma.mv <- function(i, obj, parallel, cluster, ids, reestimate, code2=NULL) { if (parallel == "snow") library(metafor) if (!is.null(code2)) eval(expr = parse(text = code2)) incl <- cluster %in% ids[i] ### elements that need to be returned outlist <- "coef.na=coef.na, sigma2=sigma2, tau2=tau2, rho=rho, gamma2=gamma2, phi=phi, beta=beta" if (reestimate) { ### set initial values to estimates from full model control <- obj$control control$sigma2.init <- obj$sigma2 control$tau2.init <- obj$tau2 control$rho.init <- obj$rho control$gamma2.init <- obj$gamma2 control$phi.init <- obj$phi ### fit model without data from ith cluster args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=ifelse(obj$vc.fix$sigma2, obj$sigma2, NA), tau2=ifelse(obj$vc.fix$tau2, obj$tau2, NA), rho=ifelse(obj$vc.fix$rho, obj$rho, NA), gamma2=ifelse(obj$vc.fix$gamma2, obj$gamma2, NA), phi=ifelse(obj$vc.fix$phi, obj$phi, NA), sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=control, subset=!incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } else { ### set values of variance/correlation components to those from the 'full' model args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=obj$sigma2, tau2=obj$tau2, rho=obj$rho, gamma2=obj$gamma2, phi=obj$phi, sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=obj$control, subset=!incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } if (inherits(res, "try-error")) return(list(dfbs = NA_real_)) ### removing a cluster could lead to a model coefficient becoming inestimable if (any(res$coef.na)) return(list(dfbs = NA_real_)) ### elements that need to be returned outlist <- "vb=vb" ### fit model based on all data but with var/cor components fixed to those from res args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=res$sigma2, tau2=res$tau2, rho=res$rho, gamma2=res$gamma2, phi=res$phi, sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, optbeta=obj$optbeta, control=obj$control, outlist=outlist) tmp <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) ### compute dfbeta value(s) dfb <- obj$beta - res$beta ### compute dfbetas dfbs <- c(dfb / sqrt(diag(tmp$vb))) return(list(dfbs = dfbs)) } ############################################################################ .ddf.calc <- function(dfs, X, k, p, mf.s=NULL, mf.g=NULL, mf.h=NULL, beta=TRUE) { mstyle <- .get.mstyle() if (beta) { if (is.numeric(dfs)) { ddf <- dfs ddf <- .expand1(ddf, p) if (length(ddf) != p) stop(mstyle$stop(paste0("Length of the 'dfs' argument (", length(dfs), ") does not match the number of model coefficient (", p, ").")), call.=FALSE) } if (is.character(dfs) && dfs == "residual") ddf <- rep(k-p, p) if (is.character(dfs) && dfs == "contain") { if (!is.null(mf.g)) mf.g <- cbind(inner=apply(mf.g, 1, paste, collapse=" + "), outer=mf.g[ncol(mf.g)]) if (!is.null(mf.h)) mf.h <- cbind(inner=apply(mf.h, 1, paste, collapse=" + "), outer=mf.h[ncol(mf.h)]) s.nlevels <- sapply(mf.s, function(x) length(unique(x))) # list() if no S g.nlevels <- c(length(unique(mf.g[[1]])), length(unique(mf.g[[2]]))) # c(0,0) if no G h.nlevels <- c(length(unique(mf.h[[1]])), length(unique(mf.h[[2]]))) # c(0,0) if no H #print(list(s.nlevels, g.nlevels, h.nlevels)) s.ddf <- rep(k, p) g.ddf <- rep(k, p) h.ddf <- rep(k, p) for (j in seq_len(p)) { if (!is.null(mf.s)) { s.lvl <- sapply(seq_along(mf.s), function(i) all(apply(table(X[,j], mf.s[[i]]) > 0, 2, sum) == 1)) if (any(s.lvl)) s.ddf[j] <- min(s.nlevels[s.lvl]) } if (!is.null(mf.g)) { g.lvl <- sapply(seq_along(mf.g), function(i) all(apply(table(X[,j], mf.g[[i]]) > 0, 2, sum) == 1)) if (any(g.lvl)) g.ddf[j] <- min(g.nlevels[g.lvl]) } if (!is.null(mf.h)) { h.lvl <- sapply(seq_along(mf.h), function(i) all(apply(table(X[,j], mf.h[[i]]) > 0, 2, sum) == 1)) if (any(h.lvl)) h.ddf[j] <- min(h.nlevels[h.lvl]) } } #return(list(s.ddf, g.ddf, h.ddf)) ddf <- pmin(s.ddf, g.ddf, h.ddf) ddf <- ddf - p } names(ddf) <- colnames(X) } else { if (is.numeric(dfs)) dfs <- "contain" if (dfs == "residual") ddf <- k-p if (dfs == "contain") { if (!is.null(mf.s)) ddf <- length(unique(mf.s)) if (!is.null(mf.g)) ddf <- length(unique(mf.g)) if (!is.null(mf.h)) ddf <- length(unique(mf.h)) ddf <- ddf - p } } ddf[ddf < 1] <- 1 return(ddf) } ############################################################################ metafor/R/profile.rma.mv.r0000644000176200001440000005300515120213572015133 0ustar liggesusersprofile.rma.mv <- function(fitted, sigma2, tau2, rho, gamma2, phi, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, ...) { mstyle <- .get.mstyle() .chkclass(class(fitted), must="rma.mv") x <- fitted if (is.null(x$yi) || is.null(x$V)) stop(mstyle$stop("Information needed for profiling is not available in the model object.")) if (anyNA(steps)) stop(mstyle$stop("No missing values allowed in 'steps' argument.")) if (length(steps) >= 2L) { if (missing(xlim)) xlim <- range(steps) stepseq <- TRUE } else { if (steps < 2) stop(mstyle$stop("Argument 'steps' must be >= 2.")) stepseq <- FALSE } parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } ddd <- list(...) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd$startmethod)) warning(mstyle$warning("Argument 'startmethod' has been deprecated."), call.=FALSE) ######################################################################### ### check if user has not specified one of the sigma2, tau2, rho, gamma2, or phi arguments if (missing(sigma2) && missing(tau2) && missing(rho) && missing(gamma2) && missing(phi)) { mc <- match.call() ### total number of non-fixed components comps <- ifelse(x$withS, sum(!x$vc.fix$sigma2), 0) + ifelse(x$withG, sum(!x$vc.fix$tau2) + sum(!x$vc.fix$rho), 0) + ifelse(x$withH, sum(!x$vc.fix$gamma2) + sum(!x$vc.fix$phi), 0) if (comps == 0) stop(mstyle$stop("No components in the model for which a profile likelihood can be constructed.")) if (!is.null(ddd[["code3"]])) eval(expr = parse(text = ddd[["code3"]])) if (plot) { if (comps > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < comps) par(mfrow=n2mfrow(comps)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } } sav <- list() j <- 0 if (x$withS && any(!x$vc.fix$sigma2)) { for (pos in seq_len(x$sigma2s)[!x$vc.fix$sigma2]) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$sigma2 <- pos mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.mv") if (progbar) cat(mstyle$verbose(paste("Profiling sigma2 =", pos, "\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } } if (x$withG) { if (any(!x$vc.fix$tau2)) { for (pos in seq_len(x$tau2s)[!x$vc.fix$tau2]) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$tau2 <- pos mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.mv") if (progbar) cat(mstyle$verbose(paste("Profiling tau2 =", pos, "\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } } if (any(!x$vc.fix$rho)) { for (pos in seq_len(x$rhos)[!x$vc.fix$rho]) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$rho <- pos mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.mv") if (progbar) cat(mstyle$verbose(paste("Profiling rho =", pos, "\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } } } if (x$withH) { if (any(!x$vc.fix$gamma2)) { for (pos in seq_len(x$gamma2s)[!x$vc.fix$gamma2]) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$gamma2 <- pos mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.mv") if (progbar) cat(mstyle$verbose(paste("Profiling gamma2 =", pos, "\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } } if (any(!x$vc.fix$phi)) { for (pos in seq_len(x$phis)[!x$vc.fix$phi]) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$phi <- pos mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.mv") if (progbar) cat(mstyle$verbose(paste("Profiling phi =", pos, "\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } } } ### if there is just one component, turn the list of lists into a simple list if (comps == 1) sav <- sav[[1]] sav$comps <- comps if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(sav) <- "profile.rma" return(invisible(sav)) } ######################################################################### ### round and take unique values if (!missing(sigma2) && is.numeric(sigma2)) sigma2 <- unique(round(sigma2)) if (!missing(tau2) && is.numeric(tau2)) tau2 <- unique(round(tau2)) if (!missing(rho) && is.numeric(rho)) rho <- unique(round(rho)) if (!missing(gamma2) && is.numeric(gamma2)) gamma2 <- unique(round(gamma2)) if (!missing(phi) && is.numeric(phi)) phi <- unique(round(phi)) #if (missing(sigma2) && missing(tau2) && missing(rho) && missing(gamma2) && missing(phi)) # stop(mstyle$stop("Must specify one of the arguments 'sigma2', 'tau2', 'rho', 'gamma2', or 'phi'.")) ### check if user has specified more than one of these arguments if (sum(!missing(sigma2), !missing(tau2), !missing(rho), !missing(gamma2), !missing(phi)) > 1L) stop(mstyle$stop("Must specify only one of the arguments 'sigma2', 'tau2', 'rho', 'gamma2', or 'phi'.")) ### check if model actually contains (at least one) such a component and that it was actually estimated ### note: a component that is not in the model is NA; components that are fixed are TRUE if (!missing(sigma2) && (all(is.na(x$vc.fix$sigma2)) || all(x$vc.fix$sigma2))) stop(mstyle$stop("Model does not contain any (estimated) 'sigma2' components.")) if (!missing(tau2) && (all(is.na(x$vc.fix$tau2)) || all(x$vc.fix$tau2))) stop(mstyle$stop("Model does not contain any (estimated) 'tau2' components.")) if (!missing(rho) && c(all(is.na(x$vc.fix$rho)) || all(x$vc.fix$rho))) stop(mstyle$stop("Model does not contain any (estimated) 'rho' components.")) if (!missing(gamma2) && (all(is.na(x$vc.fix$gamma2)) || all(x$vc.fix$gamma2))) stop(mstyle$stop("Model does not contain any (estimated) 'gamma2' components.")) if (!missing(phi) && c(all(is.na(x$vc.fix$phi)) || all(x$vc.fix$phi))) stop(mstyle$stop("Model does not contain any (estimated) 'phi' components.")) ### check if user specified more than one sigma2, tau2, rho, gamma2, or rho component if (!missing(sigma2) && (length(sigma2) > 1L)) stop(mstyle$stop("Can only specify one 'sigma2' component.")) if (!missing(tau2) && (length(tau2) > 1L)) stop(mstyle$stop("Can only specify one 'tau2' component.")) if (!missing(rho) && (length(rho) > 1L)) stop(mstyle$stop("Can only specify one 'rho' component.")) if (!missing(gamma2) && (length(gamma2) > 1L)) stop(mstyle$stop("Can only specify one 'gamma2' component.")) if (!missing(phi) && (length(phi) > 1L)) stop(mstyle$stop("Can only specify one 'phi' component.")) ### check if user specified a logical if (!missing(sigma2) && is.logical(sigma2)) stop(mstyle$stop("Must specify a number for the 'sigma2' component.")) if (!missing(tau2) && is.logical(tau2)) stop(mstyle$stop("Must specify a number for the 'tau2' component.")) if (!missing(rho) && is.logical(rho)) stop(mstyle$stop("Must specify a number for the 'rho' component.")) if (!missing(gamma2) && is.logical(gamma2)) stop(mstyle$stop("Must specify a number for the 'gamma2' component.")) if (!missing(phi) && is.logical(phi)) stop(mstyle$stop("Must specify a number for the 'phi' component.")) ### check if user specified a component that does not exist if (!missing(sigma2) && (sigma2 > length(x$vc.fix$sigma2) || sigma2 <= 0)) stop(mstyle$stop("No such 'sigma2' component in the model.")) if (!missing(tau2) && (tau2 > length(x$vc.fix$tau2) || tau2 <= 0)) stop(mstyle$stop("No such 'tau2' component in the model.")) if (!missing(rho) && (rho > length(x$vc.fix$rho) || rho <= 0)) stop(mstyle$stop("No such 'rho' component in the model.")) if (!missing(gamma2) && (gamma2 > length(x$vc.fix$gamma2) || gamma2 <= 0)) stop(mstyle$stop("No such 'gamma2' component in the model.")) if (!missing(phi) && (phi > length(x$vc.fix$phi) || phi <= 0)) stop(mstyle$stop("No such 'phi' component in the model.")) ### check if user specified a component that was fixed if (!missing(sigma2) && x$vc.fix$sigma2[sigma2]) stop(mstyle$stop("Specified 'sigma2' component was fixed.")) if (!missing(tau2) && x$vc.fix$tau2[tau2]) stop(mstyle$stop("Specified 'tau2' component was fixed.")) if (!missing(rho) && x$vc.fix$rho[rho]) stop(mstyle$stop("Specified 'rho' component was fixed.")) if (!missing(gamma2) && x$vc.fix$gamma2[gamma2]) stop(mstyle$stop("Specified 'gamma2' component was fixed.")) if (!missing(phi) && x$vc.fix$phi[phi]) stop(mstyle$stop("Specified 'phi' component was fixed.")) ### if everything is good so far, get value of the variance component and set 'comp' sigma2.pos <- NA_integer_ tau2.pos <- NA_integer_ rho.pos <- NA_integer_ gamma2.pos <- NA_integer_ phi.pos <- NA_integer_ if (!missing(sigma2)) { vc <- x$sigma2[sigma2] comp <- "sigma2" sigma2.pos <- sigma2 } if (!missing(tau2)) { vc <- x$tau2[tau2] comp <- "tau2" tau2.pos <- tau2 } if (!missing(rho)) { vc <- x$rho[rho] comp <- "rho" rho.pos <- rho } if (!missing(gamma2)) { vc <- x$gamma2[gamma2] comp <- "gamma2" gamma2.pos <- gamma2 } if (!missing(phi)) { vc <- x$phi[phi] comp <- "phi" phi.pos <- phi } #return(list(comp=comp, vc=vc)) ######################################################################### if (missing(xlim) || is.null(xlim)) { ### if the user has not specified xlim, set it automatically ### TODO: maybe try something based on CI later if (comp == "sigma2") { vc.lb <- max( 0, vc/4) vc.ub <- max(0.1, vc*4) } if (comp == "tau2") { if (is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { vc.lb <- max( 0, vc/2) vc.ub <- max(0.1, vc*2) } else { vc.lb <- max( 0, vc/4) vc.ub <- max(0.1, vc*4) } } if (comp == "gamma2") { if (is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { vc.lb <- max( 0, vc/2) vc.ub <- max(0.1, vc*2) } else { vc.lb <- max( 0, vc/4) vc.ub <- max(0.1, vc*4) } } if (comp == "rho") { if (x$struct[1] == "CAR") { vc.lb <- max(0, vc-0.5) vc.ub <- min(0.99999, vc+0.5) } if (is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD"))) { vc.lb <- vc/2 vc.ub <- vc*2 } if (!is.element(x$struct[1], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD"))) { vc.lb <- max(-0.99999, vc-0.5) vc.ub <- min( 0.99999, vc+0.5) } } if (comp == "phi") { if (x$struct[2] == "CAR") { vc.lb <- max(0, vc-0.5) vc.ub <- min(0.99999, vc+0.5) } if (is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD"))) { vc.lb <- vc/2 vc.ub <- vc*2 } if (!is.element(x$struct[2], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD"))) { vc.lb <- max(-0.99999, vc-0.5) vc.ub <- min( 0.99999, vc+0.5) } } ### if that fails, throw an error if (is.na(vc.lb) || is.na(vc.ub)) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) xlim <- c(vc.lb, vc.ub) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) xlim <- sort(xlim) if (is.element(comp, c("sigma2", "tau2", "gamma2"))) { if (xlim[1] < 0) stop(mstyle$stop("Lower bound for profiling must be >= 0.")) } if (comp == "rho") { if (is.element(x$struct[1], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD")) && xlim[1] < 0) stop(mstyle$stop("Lower bound for profiling must be >= 0.")) if (xlim[1] < -1) stop(mstyle$stop("Lower bound for profiling must be >= -1.")) if (!is.element(x$struct[1], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD")) && xlim[2] > 1) stop(mstyle$stop("Upper bound for profiling must be <= 1.")) } if (comp == "phi") { if (is.element(x$struct[2], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD")) && xlim[1] < 0) stop(mstyle$stop("Lower bound for profiling must be >= 0.")) if (xlim[1] < -1) stop(mstyle$stop("Lower bound for profiling must be >= -1.")) if (!is.element(x$struct[2], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD")) && xlim[2] > 1) stop(mstyle$stop("Upper bound for profiling must be <= 1.")) } } if (stepseq) { vcs <- steps } else { vcs <- seq(xlim[1], xlim[2], length.out=steps) } #return(vcs) if (length(vcs) <= 1L) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) if (parallel == "no") res <- pbapply::pblapply(vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) if (parallel == "multicore") res <- pbapply::pblapply(vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, mc.cores=ncpus) if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterApplyLB(cl, vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.mv, vcs, MoreArgs=list(obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2), .scheduling = "dynamic") } else { res <- pbapply::pblapply(vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterApply(cl, vcs, .profile.rma.mv, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.mv, vcs, MoreArgs=list(obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, parallel=parallel, profile=TRUE, code2=ddd$code2)) } } lls <- sapply(res, function(x) x$ll) beta <- do.call(rbind, lapply(res, function(x) t(x$beta))) ci.lb <- do.call(rbind, lapply(res, function(x) t(x$ci.lb))) ci.ub <- do.call(rbind, lapply(res, function(x) t(x$ci.ub))) beta <- data.frame(beta) ci.lb <- data.frame(ci.lb) ci.ub <- data.frame(ci.ub) names(beta) <- rownames(x$beta) names(ci.lb) <- rownames(x$beta) names(ci.ub) <- rownames(x$beta) ######################################################################### maxll <- c(logLik(x)) if (any(lls >= maxll + lltol, na.rm=TRUE)) warning(mstyle$warning("At least one profiled log-likelihood value is larger than the log-likelihood of the fitted model."), call.=FALSE) if (all(is.na(lls))) warning(mstyle$warning("All model fits failed. Cannot draw profile likelihood plot."), call.=FALSE) if (isTRUE(ddd$exp)) { lls <- exp(lls) maxll <- exp(maxll) } if (missing(ylim)) { if (any(is.finite(lls))) { if (xlim[1] <= vc && xlim[2] >= vc) { ylim <- range(c(maxll,lls[is.finite(lls)]), na.rm=TRUE) } else { ylim <- range(lls[is.finite(lls)], na.rm=TRUE) } } else { ylim <- rep(maxll, 2L) } if (!isTRUE(ddd$exp)) ylim <- ylim + c(-0.1, 0.1) } else { if (length(ylim) != 2L) stop(mstyle$stop("Argument 'ylim' should be a vector of length 2.")) ylim <- sort(ylim) } if (comp == "sigma2") { if (x$sigma2s == 1L) { xlab <- expression(paste(sigma^2, " Value")) title <- expression(paste("Profile Plot for ", sigma^2)) } else { xlab <- bquote(sigma[.(sigma2)]^2 ~ "Value") title <- bquote("Profile Plot for" ~ sigma[.(sigma2)]^2) } } if (comp == "tau2") { if (x$tau2s == 1L) { xlab <- expression(paste(tau^2, " Value")) title <- expression(paste("Profile Plot for ", tau^2)) } else { xlab <- bquote(tau[.(tau2)]^2 ~ "Value") title <- bquote("Profile Plot for" ~ tau[.(tau2)]^2) } } if (comp == "rho") { if (x$rhos == 1L) { xlab <- expression(paste(rho, " Value")) title <- expression(paste("Profile Plot for ", rho)) } else { xlab <- bquote(rho[.(rho)] ~ "Value") title <- bquote("Profile Plot for" ~ rho[.(rho)]) } } if (comp == "gamma2") { if (x$gamma2s == 1L) { xlab <- expression(paste(gamma^2, " Value")) title <- expression(paste("Profile Plot for ", gamma^2)) } else { xlab <- bquote(gamma[.(gamma2)]^2 ~ "Value") title <- bquote("Profile Plot for" ~ gamma[.(gamma2)]^2) } } if (comp == "phi") { if (x$phis == 1L) { xlab <- expression(paste(phi, " Value")) title <- expression(paste("Profile Plot for ", phi)) } else { xlab <- bquote(phi[.(phi)] ~ "Value") title <- bquote("Profile Plot for" ~ phi[.(phi)]) } } sav <- list(vc=vcs, ll=lls, beta=beta, ci.lb=ci.lb, ci.ub=ci.ub, comps=1, ylim=ylim, method=x$method, vc=vc, maxll=maxll, xlab=xlab, title=title, exp=ddd$exp) names(sav)[1] <- switch(comp, sigma2="sigma2", tau2="tau2", rho="rho", gamma2="gamma2", phi="phi") class(sav) <- "profile.rma" ######################################################################### if (plot) plot(sav, ...) ######################################################################### if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } invisible(sav) } metafor/R/transf.r0000644000176200001440000006321515127727302013605 0ustar liggesusers############################################################################ .chktargsint <- function(targs) { if (length(targs) > 3L) stop("Length of the 'targs' argument must be <= 3.", call.=FALSE) if (.is.vector(targs)) { if (is.null(names(targs))) { names(targs) <- c("tau2", "lower", "upper")[seq_along(targs)] targs <- as.list(targs) } else { targs <- list(tau2=unname(targs[startsWith(names(targs), "t")]), lower=unname(targs[startsWith(names(targs), "l")]), upper=unname(targs[startsWith(names(targs), "u")])) targs <- targs[lengths(targs) > 0L] } } if (any(lengths(targs) > 1L)) stop("Elements of the 'targs' arguments must be scalars.", call.=FALSE) if (is.null(targs$tau2)) { stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) #targs$tau2 <- 0 # assume tau^2 = 0 (but we don't want to do that) } else { if (targs$tau2 < 0) stop("Value of 'tau2' must be >= 0 to use an integral transformation.", call.=FALSE) } return(targs) } ############################################################################ transf.rtoz <- function(xi) { # resulting value between -Inf (for -1) and +Inf (for +1) xi[xi > 1] <- 1 xi[xi < -1] <- -1 atanh(xi) # same as 1/2 * log((1+xi)/(1-xi)) } transf.ztor <- function(xi) tanh(xi) # same as (exp(2*xi)-1)/(exp(2*xi)+1) transf.ztor.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) tau2 <- targs$tau2 tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) if (is.null(targs$lower)) targs$lower <- xi-10*tau if (is.null(targs$upper)) targs$upper <- xi+10*tau toint <- function(zval, xi, tau) tanh(zval) * dnorm(zval, mean=xi, sd=tau) cfunc <- function(xi, tau, lower, upper) { out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) if (inherits(out, "try-error")) { return(NA_real_) } else { return(out$value) } } if (tau2 == 0) { zi <- transf.ztor(xi) } else { zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) } return(c(zi)) } transf.ztor.mode <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$tau2))) stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { tau2 <- targs$tau2 } else { tau2 <- targs } if (length(tau2) > 1L) stop("Value of 'tau2' argument must be a scalar.", call.=FALSE) if (tau2 < 0) stop("Value of 'tau2' must be >= 0 to use this transformation function.", call.=FALSE) tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) dfun <- function(x, mu, tau) dnorm(atanh(x), mean=mu, sd=tau) / (1 - x^2) zi <- sapply(xi, function(x) { if (tau2 == 0) return(tanh(xi)) res <- try(optimize(dfun, maximum=TRUE, lower=-0.9999, upper=0.9999, mu=x, tau=tau)) if (inherits(res, "try-error")) { return(NA_real_) } else { return(res$maximum) } }) return(c(zi)) } ############################################################################ transf.r2toz <- function(xi) { xi[xi > 1] <- 1 xi[xi < 0] <- 0 atanh(sqrt(xi)) } transf.ztor2 <- function(xi) tanh(xi)^2 ############################################################################ #transf.exp.int <- function(xi, targs=NULL) { # # targs <- .chktargsint(targs) # # tau2 <- targs$tau2 # tau2[tau2 < .Machine$double.eps] <- 0 # tau <- sqrt(tau2) # # if (is.null(targs$lower)) # targs$lower <- xi-10*tau # if (is.null(targs$upper)) # targs$upper <- xi+10*tau # # toint <- function(zval, xi, tau) # exp(zval) * dnorm(zval, mean=xi, sd=tau) # # cfunc <- function(xi, tau, lower, upper) { # out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) # if (inherits(out, "try-error")) { # return(NA_real_) # } else { # return(out$value) # } # } # # if (tau2 == 0) { # zi <- exp(xi) # } else { # zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) # } # # return(c(zi)) # #} transf.exp.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) return(exp(xi + targs$tau2/2)) } transf.exp.mode <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$tau2))) stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { tau2 <- targs$tau2 } else { tau2 <- unname(targs) } if (length(tau2) > 1L) stop("Value of 'tau2' argument must be a scalar.", call.=FALSE) if (tau2 < 0) stop("Value of 'tau2' must be >= 0 to use this transformation function.", call.=FALSE) tau2[tau2 < .Machine$double.eps] <- 0 return(c(exp(xi - tau2))) } ############################################################################ transf.logit <- function(xi) # resulting value between -Inf (for 0) and +Inf (for +1) qlogis(xi) transf.ilogit <- function(xi) plogis(xi) transf.ilogit.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) tau2 <- targs$tau2 tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) if (is.null(targs$lower)) targs$lower <- xi-10*tau if (is.null(targs$upper)) targs$upper <- xi+10*tau toint <- function(zval, xi, tau) plogis(zval) * dnorm(zval, mean=xi, sd=tau) cfunc <- function(xi, tau, lower, upper) { out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) if (inherits(out, "try-error")) { return(NA_real_) } else { return(out$value) } } if (tau2 == 0) { zi <- transf.ilogit(xi) } else { zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) } return(c(zi)) } transf.ilogit.mode <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$tau2))) stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { tau2 <- targs$tau2 } else { tau2 <- targs } if (length(tau2) > 1L) stop("Value of 'tau2' argument must be a scalar.", call.=FALSE) if (tau2 < 0) stop("Value of 'tau2' must be >= 0 to use this transformation function.", call.=FALSE) tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) xs <- seq(0, 1, length=10^5) modefun <- function(x, mu, tau) tau^2 * (2*x - 1) + mu - qlogis(x) zi <- sapply(xi, function(x) { if (tau2 == 0) return(plogis(xi)) ys <- modefun(xs, mu=x, tau=tau) nmodes <- length(unique(sign(diff(ys)))) # check if there is a single mode if (nmodes == 1L) { res <- try(uniroot(modefun, lower=0, upper=1, mu=x, tau=tau), silent=TRUE) if (inherits(res, "try-error")) { return(NA_real_) } else { return(res$root) } } else { return(NA_real_) } }) return(c(zi)) } ############################################################################ transf.arcsin <- function(xi) # resulting value between 0 (for 0) and asin(1) = pi/2 (for 1) asin(sqrt(xi)) transf.iarcsin <- function(xi) { zi <- sin(xi)^2 zi[xi < 0] <- 0 # if xi value is below 0 (e.g., CI bound), return 0 zi[xi > asin(1)] <- 1 # if xi value is above maximum possible value, return 1 return(c(zi)) } transf.iarcsin.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) tau2 <- targs$tau2 tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) tau <- sqrt(targs$tau2) if (is.null(targs$lower)) targs$lower <- 0 if (is.null(targs$upper)) targs$upper <- base::pi/2 toint <- function(zval, xi, tau) transf.iarcsin(zval) * dnorm(zval, mean=xi, sd=tau) / (pnorm((base::pi/2-xi)/tau) - pnorm(-xi/tau)) cfunc <- function(xi, tau, lower, upper) { out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) if (inherits(out, "try-error")) { return(NA_real_) } else { return(out$value) } } if (tau2 == 0) { zi <- transf.iarcsin(xi) } else { zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) } return(c(zi)) } # this is the analytic solution, but this does not respect that the domain of # transf.arcsin() is 0 to base::pi/2 #transf.iarcsin.int <- function(xi, targs=NULL) { # targs <- .chktargsint(targs) # return(1/2 * (1 - exp(-2*targs$tau2) * cos(2*xi))) #} transf.iarcsin.mode <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$tau2))) stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { tau2 <- targs$tau2 } else { tau2 <- targs } if (length(tau2) > 1L) stop("Value of 'tau2' argument must be a scalar.", call.=FALSE) if (tau2 < 0) stop("Value of 'tau2' must be >= 0 to use this transformation function.", call.=FALSE) tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) dfun <- function(x, mu, tau) dnorm(transf.arcsin(x), mean=mu, sd=tau) / (2 * sqrt(x*(1-x)) * (pnorm((base::pi/2-mu)/tau) - pnorm(-mu/tau))) zi <- sapply(xi, function(x) { if (tau2 == 0) return(transf.iarcsin(xi)) res <- try(optimize(dfun, maximum=TRUE, lower=0, upper=1, mu=x, tau=tau)) if (inherits(res, "try-error")) { return(NA_real_) } else { return(res$maximum) } }) return(c(zi)) } ############################################################################ transf.probit <- function(xi) # resulting value between -Inf (for 0) and +Inf (for +1) qnorm(xi) transf.iprobit <- function(xi) pnorm(xi) transf.iprobit.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) tau2 <- targs$tau2 tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) tau <- sqrt(targs$tau2) if (is.null(targs$lower)) targs$lower <- xi-10*tau if (is.null(targs$upper)) targs$upper <- xi+10*tau toint <- function(zval, xi, tau) pnorm(zval) * dnorm(zval, mean=xi, sd=tau) cfunc <- function(xi, tau, lower, upper) { out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) if (inherits(out, "try-error")) { return(NA_real_) } else { return(out$value) } } if (tau2 == 0) { zi <- pnorm(xi) } else { zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) } return(c(zi)) } transf.iprobit.mode <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$tau2))) stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { tau2 <- targs$tau2 } else { tau2 <- targs } if (length(tau2) > 1L) stop("Value of 'tau2' argument must be a scalar.", call.=FALSE) if (tau2 < 0) stop("Value of 'tau2' must be >= 0 to use this transformation function.", call.=FALSE) tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) dfun <- function(x, mu, tau) dnorm(qnorm(x), mu, tau) / dnorm(qnorm(x)) zi <- sapply(xi, function(x) { if (tau2 == 0) return(pnorm(xi)) res <- try(optimize(dfun, maximum=TRUE, lower=0, upper=1, mu=x, tau=tau)) if (inherits(res, "try-error")) { return(NA_real_) } else { return(res$maximum) } }) return(c(zi)) } ############################################################################ transf.pft <- function(xi, ni) { # Freeman-Tukey transformation for proportions xi <- xi*ni zi <- 1/2*(asin(sqrt(xi/(ni+1))) + asin(sqrt((xi+1)/(ni+1)))) return(c(zi)) } transf.ipft <- function(xi, ni) { # inverse of Freeman-Tukey transformation for individual proportions zi <- suppressWarnings(1/2 * (1 - sign(cos(2*xi)) * sqrt(1 - (sin(2*xi)+(sin(2*xi)-1/sin(2*xi))/ni)^2))) zi <- ifelse(is.nan(zi), NA_real_, zi) zi[xi > transf.pft(1,ni)] <- 1 # if xi is above upper limit, return 1 zi[xi < transf.pft(0,ni)] <- 0 # if xi is below lower limit, return 0 return(c(zi)) } transf.ipft.hm <- function(xi, targs) { # inverse of Freeman-Tukey transformation for a collection of proportions if (is.null(targs) || (is.list(targs) && is.null(targs$ni))) stop("Must specify the sample sizes via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { ni <- targs$ni } else { ni <- ni } nhm <- 1/(mean(1/ni, na.rm=TRUE)) # calculate harmonic mean of the ni's zi <- suppressWarnings(1/2 * (1 - sign(cos(2*xi)) * sqrt(1 - (sin(2*xi)+(sin(2*xi)-1/sin(2*xi))/nhm)^2))) zi <- ifelse(is.nan(zi), NA_real_, zi) # it may not be possible to calculate zi zi[xi > transf.pft(1,nhm)] <- 1 # if xi is above upper limit, return 1 zi[xi < transf.pft(0,nhm)] <- 0 # if xi is below lower limit, return 0 return(c(zi)) } ############################################################################ transf.isqrt <- function(xi) { zi <- xi*xi zi[xi < 0] <- 0 # if xi value is below 0 (e.g., CI bound), return 0 return(c(zi)) } ############################################################################ transf.irft <- function(xi, ti) { # Freeman-Tukey transformation for incidence rates zi <- 1/2*(sqrt(xi) + sqrt(xi + 1/ti)) # xi is the incidence rate (not the number of events!) return(c(zi)) } transf.iirft <- function(xi, ti) { # inverse of Freeman-Tukey transformation for incidence rates (see Freeman-Tukey_incidence.r in code directory) #zi <- (1/ti - 2*xi^2 + ti*xi^4)/(4*xi^2*ti) # old version where transf.irft was not multiplied by 1/2 zi <- (1/ti - 8*xi^2 + 16*ti*xi^4)/(16*xi^2*ti) # xi is the incidence rate (not the number of events!) zi <- ifelse(is.nan(zi), NA_real_, zi) zi[xi < transf.irft(0,ti)] <- 0 # if xi is below lower limit, return 0 zi[zi <= .Machine$double.eps] <- 0 # avoid finite precision errors in back-transformed values (transf.iirft(transf.irft(0, 1:200), 1:200)) return(c(zi)) } ############################################################################ transf.ahw <- function(xi) { # resulting value between 0 (for alpha=0) and 1 (for alpha=1) #zi <- (1-xi)^(1/3) zi <- 1 - (1-xi)^(1/3) return(c(zi)) } transf.iahw <- function(xi) { #zi <- 1-xi^3 zi <- 1 - (1-xi)^3 zi <- ifelse(is.nan(zi), NA_real_, zi) zi[xi > 1] <- 1 # if xi is above upper limit, return 1 zi[xi < 0] <- 0 # if xi is below lower limit, return 0 return(c(zi)) } transf.iahw.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) tau2 <- targs$tau2 tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) if (is.null(targs$lower)) targs$lower <- 0 if (is.null(targs$upper)) targs$upper <- 1 toint <- function(zval, xi, tau) transf.iahw(zval) * dnorm(zval, mean=xi, sd=tau) / (pnorm((1-xi)/tau) - pnorm(-xi/tau)) cfunc <- function(xi, tau, lower, upper) { out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) if (inherits(out, "try-error")) { return(NA_real_) } else { return(out$value) } } if (tau2 == 0) { zi <- transf.ztor(xi) } else { zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) } return(c(zi)) } # this is the analytic solution, but this does not respect that the domain of # transf.ahw() is 0 to 1 #transf.iahw.int <- function(xi, targs=NULL) { # targs <- .chktargsint(targs) # return(xi^3 - 3*xi^2 + 3*xi*(1+targs$tau2) - 3*targs$tau2) #} transf.iahw.mode <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$tau2))) stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { tau2 <- targs$tau2 } else { tau2 <- targs } if (length(tau2) > 1L) stop("Value of 'tau2' argument must be a scalar.", call.=FALSE) if (tau2 < 0) stop("Value of 'tau2' must be >= 0 to use this transformation function.", call.=FALSE) tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) dfun <- function(x, mu, tau) dnorm(transf.ahw(x), mean=mu, sd=tau) / (3 * (1-x)^(2/3) * (pnorm((1-mu)/tau) - pnorm(-mu/tau))) zi <- sapply(xi, function(x) { if (tau2 == 0) return(transf.iarcsin(xi)) res <- try(optimize(dfun, maximum=TRUE, lower=0, upper=1, mu=x, tau=tau)) if (inherits(res, "try-error")) { return(NA_real_) } else { return(res$maximum) } }) return(c(zi)) } transf.abt <- function(xi) { # Bonett (2002) transformation of alphas (without bias correction) #transf.abt <- function(xi, ni) { # resulting value between 0 (for alpha=0) to Inf (for alpha=1) #zi <- log(1-xi) - log(ni/(ni-1)) #zi <- log(1-xi) zi <- -log(1-xi) return(c(zi)) } transf.iabt <- function(xi) { # inverse of Bonett (2002) transformation #transf.iabt <- function(xi, ni) { #zi <- 1 - exp(xi) * ni / (ni-1) #zi <- 1 - exp(xi) zi <- 1 - exp(-xi) zi <- ifelse(is.nan(zi), NA_real_, zi) zi[xi < 0] <- 0 # if xi is below lower limit, return 0 return(c(zi)) } transf.iabt.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) tau2 <- targs$tau2 tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) if (is.null(targs$lower)) targs$lower <- 0 if (is.null(targs$upper)) targs$upper <- xi+10*tau toint <- function(zval, xi, tau) transf.iabt(zval) * dnorm(zval, mean=xi, sd=tau) / pnorm(xi/tau) cfunc <- function(xi, tau, lower, upper) { out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) if (inherits(out, "try-error")) { return(NA_real_) } else { return(out$value) } } if (tau2 == 0) { zi <- transf.ztor(xi) } else { zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) } return(c(zi)) } # this is the analytic solution, but this does not respect that the domain of # transf.abt() is 0 to Inf #atransf.iabt.int <- function(xi, targs=NULL) { # targs <- .chktargsint(targs) # return(1 - exp(-xi + targs$tau2 / 2)) #} transf.iabt.mode <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$tau2))) stop("Must specify a 'tau2' value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { tau2 <- targs$tau2 } else { tau2 <- targs } if (length(tau2) > 1L) stop("Value of 'tau2' argument must be a scalar.", call.=FALSE) if (tau2 < 0) stop("Value of 'tau2' must be >= 0 to use this transformation function.", call.=FALSE) tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) dfun <- function(x, mu, tau) dnorm(transf.abt(x), mean=mu, sd=tau) / ((1-x) * pnorm(mu/tau)) zi <- sapply(xi, function(x) { if (tau2 == 0) return(transf.iarcsin(xi)) res <- try(optimize(dfun, maximum=TRUE, lower=0, upper=1, mu=x, tau=tau)) if (inherits(res, "try-error")) { return(NA_real_) } else { return(res$maximum) } }) return(c(zi)) } ############################################################################ transf.dtou1 <- function(xi) { u2i <- pnorm(abs(xi)/2) return((2*u2i - 1) / u2i) } transf.dtou2 <- function(xi) pnorm(xi/2) transf.dtou3 <- function(xi) pnorm(xi) transf.dtoovl <- function(xi) 2*pnorm(-abs(xi)/2) ############################################################################ transf.dtocles <- function(xi) # note: this does not assume homoscedasticity pnorm(xi/sqrt(2)) transf.clestod <- function(xi) # note: this does not assume homoscedasticity qnorm(xi)*sqrt(2) transf.dtocles.int <- function(xi, targs=NULL) { targs <- .chktargsint(targs) tau2 <- targs$tau2 tau2[tau2 < .Machine$double.eps] <- 0 tau <- sqrt(tau2) if (is.null(targs$lower)) targs$lower <- xi-10*tau if (is.null(targs$upper)) targs$upper <- xi+10*tau toint <- function(zval, xi, tau) transf.dtocles(zval) * dnorm(zval, mean=xi, sd=tau) cfunc <- function(xi, tau, lower, upper) { out <- try(integrate(toint, lower=lower, upper=upper, xi=xi, tau=tau), silent=TRUE) if (inherits(out, "try-error")) { return(NA_real_) } else { return(out$value) } } if (tau2 == 0) { zi <- transf.dtocles(xi) } else { zi <- mapply(xi, FUN=cfunc, tau=tau, lower=targs$lower, upper=targs$upper) } return(c(zi)) } ############################################################################ transf.dtocliffd <- function(xi) # note: this does not assume homoscedasticity 2 * pnorm(xi/sqrt(2)) - 1 transf.dtobesd <- function(xi) { rpbi <- xi / sqrt(xi^2 + 4) return(0.50 + rpbi/2) } transf.dtomd <- function(xi, targs=NULL) { if (is.null(targs) || (is.list(targs) && is.null(targs$sd))) stop("Must specify a standard deviation value via the 'targs' argument.", call.=FALSE) if (is.list(targs)) { sd <- targs$sd } else { sd <- targs } if (length(sd) != 1L) stop("Specify a single standard deviation value via the 'targs' argument.", call.=FALSE) return(xi * sd) } transf.dtorpb <- function(xi, n1i, n2i) { if (missing(n1i) || missing(n2i)) { hi <- 4 } else { if (length(n1i) != length(n2i)) stop("Length of 'n1i' does not match the length of 'n2i'.", call.=FALSE) if (length(n1i) != length(xi)) stop("Length of 'n1i' and 'n2i' does not match the length of 'xi'.", call.=FALSE) mi <- n1i + n2i - 2 hi <- mi / n1i + mi / n2i } return(xi / sqrt(xi^2 + hi)) } transf.dtorbis <- function(xi, n1i, n2i) { if (missing(n1i) || missing(n2i)) { hi <- 4 n1i <- 1 n2i <- 1 } else { if (length(n1i) != length(n2i)) stop("Length of 'n1i' does not match the length of 'n2i'.", call.=FALSE) if (length(n1i) != length(xi)) stop("Lengths of 'n1i' and 'n2i' do not match the length of 'xi'.", call.=FALSE) mi <- n1i + n2i - 2 hi <- mi / n1i + mi / n2i } rpbi <- xi / sqrt(xi^2 + hi) pi <- n1i / (n1i + n2i) return(sqrt(pi*(1-pi)) / dnorm(qnorm(pi)) * rpbi) } transf.rpbtorbis <- function(xi, pi) { if (missing(pi)) { pi <- 0.5 } else { pi <- .expand1(pi, length(xi)) if (length(xi) != length(pi)) stop("Length of 'xi' does not match the length of 'pi'.", call.=FALSE) } if (any(pi < 0 | pi > 1, na.rm=TRUE)) stop("One or more 'pi' values are < 0 or > 1.", call.=FALSE) return(sqrt(pi*(1-pi)) / dnorm(qnorm(pi)) * xi) } transf.rtorpb <- function(xi, pi) { if (missing(pi)) { pi <- 0.5 } else { pi <- .expand1(pi, length(xi)) if (length(xi) != length(pi)) stop("Length of 'xi' does not match the length of 'pi'.", call.=FALSE) } if (any(pi < 0 | pi > 1, na.rm=TRUE)) stop("One or more 'pi' values are < 0 or > 1.", call.=FALSE) return(xi * dnorm(qnorm(pi)) / sqrt(pi*(1-pi))) } transf.rtod <- function(xi, n1i, n2i) { if (missing(n1i) || missing(n2i)) { hi <- 4 n1i <- 1 n2i <- 1 } else { if (length(n1i) != length(n2i)) stop("Length of 'n1i' does not match the length of 'n2i'.", call.=FALSE) if (length(n1i) != length(xi)) stop("Lengths of 'n1i' and 'n2i' do not match the length of 'xi'.", call.=FALSE) mi <- n1i + n2i - 2 hi <- mi / n1i + mi / n2i } if (any(c(n1i < 0, n2i < 0), na.rm=TRUE)) stop("One or more values specified via the 'n1i' or 'n2i' arguments are negative.") pi <- n1i / (n1i + n2i) rpbi <- xi * dnorm(qnorm(pi)) / sqrt(pi*(1-pi)) return(sqrt(hi) * rpbi / sqrt(1 - rpbi^2)) } transf.rpbtod <- function(xi, n1i, n2i) { if (missing(n1i) || missing(n2i)) { hi <- 4 } else { if (length(n1i) != length(n2i)) stop("Length of 'n1i' does not match the length of 'n2i'.", call.=FALSE) if (length(n1i) != length(xi)) stop("Lengths of 'n1i' and 'n2i' do not match the length of 'xi'.", call.=FALSE) mi <- n1i + n2i - 2 hi <- mi / n1i + mi / n2i } return(sqrt(hi) * xi / sqrt(1 - xi^2)) } transf.lnortord <- function(xi, pc) { pc <- .expand1(pc, length(xi)) if (length(xi) != length(pc)) stop("Length of 'xi' does not match the length of 'pc'.", call.=FALSE) if (any(pc < 0) || any(pc > 1)) stop("The control group risk 'pc' must be between 0 and 1.", call.=FALSE) return(exp(xi)*pc / (1 - pc + pc * exp(xi)) - pc) } transf.lnortorr <- function(xi, pc) { pc <- .expand1(pc, length(xi)) if (length(xi) != length(pc)) stop("Length of 'xi' does not match the length of 'pc'.", call.=FALSE) if (any(pc < 0) || any(pc > 1)) stop("The control group risk 'pc' must be between 0 and 1.", call.=FALSE) return(exp(xi) / (pc * (exp(xi) - 1) + 1)) } ############################################################################ transf.lnortod.norm <- function(xi) xi / 1.65 transf.lnortod.logis <- function(xi) sqrt(3) / base::pi * xi transf.dtolnor.norm <- function(xi) xi * 1.65 transf.dtolnor.logis <- function(xi) xi / sqrt(3) * base::pi transf.lnortortet.pearson <- function(xi) cos(base::pi / (1 + sqrt(exp(xi)))) transf.lnortortet.digby <- function(xi) (exp(xi)^(3/4) - 1) / (exp(xi)^(3/4) + 1) ############################################################################ metafor/R/blup.rma.uni.r0000644000176200001440000000752215120213572014611 0ustar liggesusersblup.rma.uni <- function(x, level, digits, transf, targs, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("rma.uni.selmodel", "rma.gen")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(x$X.f) || is.null(x$yi.f)) stop(mstyle$stop("Information needed to compute the BLUPs is not available in the model object.")) if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL level <- .level(level) if (is.element(x$test, c("knha","adhoc","t"))) { crit <- qt(level/2, df=x$ddf, lower.tail=FALSE) } else { crit <- qnorm(level/2, lower.tail=FALSE) } ### TODO: check computations for user-defined weights if (!is.null(x$weights) || !x$weighted) stop(mstyle$stop("Extraction of random effects not available for models with non-standard weights.")) ddd <- list(...) .chkdots(ddd, c("code1", "code2")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### pred <- rep(NA_real_, x$k.f) vpred <- rep(NA_real_, x$k.f) ### see Appendix in: Raudenbush, S. W., & Bryk, A. S. (1985). Empirical ### Bayes meta-analysis. Journal of Educational Statistics, 10(2), 75-98 x$tau2.f <- .expand1(x$tau2.f, x$k.f) li <- ifelse(is.infinite(x$tau2.f), 1, x$tau2.f / (x$tau2.f + x$vi.f)) for (i in seq_len(x$k.f)[x$not.na]) { # note: skipping NA cases if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) Xi <- matrix(x$X.f[i,], nrow=1) pred[i] <- li[i] * x$yi.f[i] + (1 - li[i]) * Xi %*% x$beta if (li[i] == 1) { vpred[i] <- li[i] * x$vi.f[i] } else { vpred[i] <- li[i] * x$vi.f[i] + (1 - li[i])^2 * Xi %*% tcrossprod(x$vb,Xi) } } se <- sqrt(vpred) pi.lb <- pred - crit * se pi.ub <- pred + crit * se ######################################################################### ### if requested, apply transformation function to 'pred' and interval bounds if (is.function(transf)) { if (is.null(targs)) { pred <- sapply(pred, transf) se <- rep(NA_real_, x$k.f) pi.lb <- sapply(pi.lb, transf) pi.ub <- sapply(pi.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) pred <- sapply(pred, transf, targs) se <- rep(NA_real_, x$k.f) pi.lb <- sapply(pi.lb, transf, targs) pi.ub <- sapply(pi.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(pi.lb, pi.ub) pi.lb <- tmp[,1] pi.ub <- tmp[,2] ######################################################################### if (na.act == "na.omit") { out <- list(pred=pred[x$not.na], se=se[x$not.na], pi.lb=pi.lb[x$not.na], pi.ub=pi.ub[x$not.na]) out$slab <- x$slab[x$not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(pred=pred, se=se, pi.lb=pi.lb, pi.ub=pi.ub) out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) ######################################################################### out$digits <- digits out$transf <- transf class(out) <- "list.rma" return(out) } metafor/R/qqnorm.rma.mv.r0000644000176200001440000000017215120213572015005 0ustar liggesusersqqnorm.rma.mv <- function(y, ...) { mstyle <- .get.mstyle() .chkclass(class(y), must="rma.mv", notav="rma.mv") } metafor/R/reporter.rma.uni.r0000644000176200001440000006667015120213572015522 0ustar liggesusersreporter.rma.uni <- function(x, dir, filename, format="html_document", open=TRUE, digits, forest, funnel, footnotes=FALSE, verbose=TRUE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (!suppressMessages(suppressWarnings(requireNamespace("rmarkdown", quietly=TRUE)))) stop(mstyle$stop("Please install the 'rmarkdown' package to use the reporter function.")) if (!is.element(x$test, c("z", "knha"))) stop(mstyle$stop("Cannot only use reporter function when test='z' or test='knha'.")) if (!x$weighted) stop(mstyle$stop("Cannot use reporter function when 'weighted=FALSE'.")) if (!is.null(x$weights)) stop(mstyle$stop("Cannot use reporter function for models with custom weights.")) if (is.null(x$tau2.fix)) stop(mstyle$stop("Cannot use reporter function for models with a fixed tau^2 value.")) if (!x$int.only) stop(mstyle$stop("Cannot currently use reporter function for models with moderators. This will be implemented eventually.")) if (x$k == 1L) stop(mstyle$stop("Cannot use reporter function when k = 1.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } format <- match.arg(format, c("html_document", "pdf_document", "word_document")) # , "bookdown::pdf_document2")) if (format == "pdf_document" && (Sys.which("pdflatex") == "")) warning(mstyle$warning("Cannot detect pdflatex executable. Rendering the pdf is likely to fail."), call.=FALSE, immediate.=TRUE) ### set/get directory for generating the report if (missing(dir)) { dir <- normalizePath(tempdir(), winslash="/") success <- file.exists(dir) if (!success) stop(mstyle$stop("No temporary directory available for creating the report.")) } else { if (!is.character(dir)) stop(mstyle$stop("Argument 'dir' must be a character string.")) success <- file.exists(dir) if (!success) stop(mstyle$stop("Specified directory does not exist.")) } if (verbose) message(mstyle$message(paste0("\nDirectory for generating the report is: ", dir, "\n"))) ### copy references.bib and apa.csl files to directory for generating the report if (verbose) message(mstyle$message("Copying references.bib and apa.csl to report directory ...")) success <- file.copy(system.file("reporter", "references.bib", package = "metafor"), dir, overwrite=TRUE) if (!success) stop(mstyle$stop("Could not copy 'references.bib' file to report directory.")) success <- file.copy(system.file("reporter", "apa.csl", package = "metafor"), dir, overwrite=TRUE) if (!success) stop(mstyle$stop("Could not copy 'apa.csl' file to report directory.")) ### set default filenames object.name <- deparse1(substitute(x)) has.object.name <- TRUE if (grepl("rma(", object.name, fixed=TRUE) || grepl("rma.uni(", object.name, fixed=TRUE)) { # check for 'reporter(rma(yi, vi))' usage has.object.name <- FALSE object.name <- "res" } if (missing(filename)) { file.rmd <- paste0("report_", object.name, ".rmd") file.obj <- paste0("report_", object.name, ".rdata") file.tex <- paste0("report_", object.name, ".tex") } else { if (!is.character(filename)) stop(mstyle$stop("Argument 'filename' must be a character string.")) file.rmd <- paste0(filename, ".rmd") file.obj <- paste0(filename, ".rdata") file.tex <- paste0(filename, ".tex") } ### process forest argument plot.forest <- TRUE args.forest <- "" if (!missing(forest)) { if (is.logical(forest)) { if (isFALSE(forest)) plot.forest <- FALSE } else { if (!is.character(forest)) stop(mstyle$stop("Argument 'forest' must be a character string.")) args.forest <- paste0(", ", forest) } } ### process funnel argument plot.funnel <- TRUE args.funnel <- "" if (!missing(funnel)) { if (is.logical(funnel)) { if (isFALSE(funnel)) plot.funnel <- FALSE } else { if (!is.character(funnel)) stop(mstyle$stop("Argument 'funnel' must be a character string.")) args.funnel <- paste0(", ", funnel) } } ### forest and funnel plot numbers if (plot.forest) { num.forest <- 1 num.funnel <- 2 } else { num.forest <- NA num.funnel <- 1 } ### save model object if (verbose) message(mstyle$message(paste0("Saving model object to ", file.obj, " ..."))) success <- try(save(x, file=file.path(dir, file.obj))) if (inherits(success, "try-error")) stop(mstyle$stop("Could not save model object to report directory.")) ### open rmd file connection if (verbose) message(mstyle$message(paste0("Creating ", file.rmd, " file ..."))) con <- try(file(file.path(dir, file.rmd), "w")) if (inherits(con, "try-error")) stop(mstyle$stop("Could not create .rmd file in report directory.")) ### get measure name measure <- tolower(.setlab(x$measure, transf.char="FALSE", atransf.char="FALSE", gentype=1)) measure <- sub("observed outcome", "outcome", measure) measure <- sub("fisher's z", "Fisher r-to-z", measure) measure <- sub("yule", "Yule", measure) measure <- sub("freeman", "Freeman", measure) measure <- sub("tukey", "Tukey", measure) measure <- sub("log ratio of means", "response ratio", measure) ### model type if (x$int.only) { if (is.element(x$method, c("FE","EE","CE"))) { model <- x$method } else { model <- "RE" } } else { if (is.element(x$method, c("FE","EE","CE"))) { model <- "MR" } else { model <- "ME" } } model.name <- c(FE = "fixed-effects", EE = "equal-effects", CE = "common-effects", MR = "(fixed-effects) meta-regression", RE = "random-effects", ME = "(mixed-effects) meta-regression")[model] ### get tau^2 estimator name and set reference tau2.method <- c(FE = "", HS = "Hunter-Schmidt", HSk = "k-corrected Hunter-Schmidt", HE = "Hedges'", DL = "DerSimonian-Laird", GENQ = "generalized Q-statistic", GENQM = "(median-unbiased) generalized Q-statistic", SJ = "Sidik-Jonkman", ML = "maximum-likelihood", REML = "restricted maximum-likelihood", EB = "empirical Bayes", PM = "Paule-Mandel", PMM = "(median-unbiased) Paule-Mandel")[x$method] if (x$method == "HS" && model == "RE") tau2.ref <- "[@hunter1990; @viechtbauer2005]" if (x$method == "HS" && model == "ME") tau2.ref <- "[@hunter1990; @viechtbauer2015]" if (x$method == "HSk" && model == "RE") tau2.ref <- "[@brannick2019; @hunter1990; @viechtbauer2005]" if (x$method == "HSk" && model == "ME") tau2.ref <- "[@brannick2019; @hunter1990; @viechtbauer2015]" if (x$method %in% c("HE","CO","VC") && model == "RE") tau2.ref <- "[@hedges1985]" if (x$method %in% c("HE","CO","VC") && model == "ME") tau2.ref <- "[@hedges1992]" if (x$method == "DL" && model == "RE") tau2.ref <- "[@dersimonian1986]" if (x$method == "DL" && model == "ME") tau2.ref <- "[@raudenbush2009]" if (x$method == "GENQ" && model == "RE") tau2.ref <- "[@dersimonian2007]" if (x$method == "GENQ" && model == "ME") tau2.ref <- "[@jackson2014]" if (x$method == "GENQM") tau2.ref <- "[@viechtbauer2021]" if (x$method == "SJ") tau2.ref <- "[@sidik2005]" if (x$method == "ML" && model == "RE") tau2.ref <- "[@hardy1996]" if (x$method == "ML" && model == "ME") tau2.ref <- "[@raudenbush2009]" if (x$method == "REML" && model == "RE") tau2.ref <- "[@viechtbauer2005]" if (x$method == "REML" && model == "ME") tau2.ref <- "[@raudenbush2009]" if (x$method == "EB" && model == "RE") tau2.ref <- "[@morris1983]" if (x$method == "EB" && model == "ME") tau2.ref <- "[@berkey1995]" if (is.element(x$method, c("PM","MP")) && model == "RE") tau2.ref <- "[@paule1982]" if (is.element(x$method, c("PM","MP")) && model == "ME") tau2.ref <- "[@viechtbauer2015]" if (x$method == "PMM") tau2.ref <- "[@viechtbauer2021]" ### Q-test reference if (is.element(model, c("FE","EE","CE","RE"))) { qtest.ref <- "[@cochran1954]" } else { qtest.ref <- "[@hedges1983]" } ### CI level level <- 100 * (1-x$level) ### Bonferroni-corrected critical value for studentized residuals crit <- qnorm(x$level/(2*x$k), lower.tail=FALSE) ### get influence results infres <- influence(x) ### formating function for p-values fpval <- function(p, pdigits=digits[["pval"]]) paste0("$p ", ifelse(p < 10^(-pdigits), paste0("< ", fmtx(10^(-pdigits), pdigits)), paste0("= ", fmtx(p, pdigits))), "$") # consider giving only 2 digits for p-value if p > 0.05 or p > 0.10 ######################################################################### ### yaml header header <- paste0("---\n") header <- paste0(header, "output:\n") if (format == "html_document") header <- paste0(header, " html_document:\n toc: true\n toc_float:\n collapsed: false\n") if (format == "pdf_document") header <- paste0(header, " pdf_document:\n toc: true\n") if (format == "word_document") header <- paste0(header, " word_document\n") header <- paste0(header, "title: Analysis Report\n") header <- paste0(header, "toc-title: Table of Contents\n") header <- paste0(header, "author: Generated with the reporter() Function of the metafor Package\n") header <- paste0(header, "bibliography: references.bib\n") header <- paste0(header, "csl: apa.csl\n") header <- paste0(header, "date: \"`r format(Sys.time(), '%d %B, %Y')`\"\n") header <- paste0(header, "---\n") ######################################################################### ### rsetup rsetup <- paste0("```{r, setup, include=FALSE}\n") rsetup <- paste0(rsetup, "library(metafor)\n") rsetup <- paste0(rsetup, "load('", file.path(dir, file.obj), "')\n") rsetup <- paste0(rsetup, "```") ######################################################################### ### methods section methods <- "\n## Methods\n\n" if (x$measure != "GEN") methods <- paste0(methods, "The analysis was carried out using the ", measure, " as the outcome measure. ") methods <- paste0(methods, "A", ifelse(model.name == "equal-effects", "n ", " "), model.name, " model was fitted to the data. ") if (is.element(model, c("RE", "ME"))) methods <- paste0(methods, "The amount of ", ifelse(x$int.only, "", "residual "), "heterogeneity (i.e., $\\tau^2$), was estimated using the ", tau2.method, " estimator ", tau2.ref, ". ") if (is.element(model, c("FE","EE","CE"))) methods <- paste0(methods, "The $Q$-test for heterogeneity ", qtest.ref, " and the $I^2$ statistic [@higgins2002] are reported. ") if (model == "MR") methods <- paste0(methods, "The $Q$-test for residual heterogeneity ", qtest.ref, " is reported. ") if (model == "RE") methods <- paste0(methods, "In addition to the estimate of $\\tau^2$, the $Q$-test for heterogeneity ", qtest.ref, " and the $I^2$ statistic [@higgins2002] are reported. ") if (model == "ME") methods <- paste0(methods, "In addition to the estimate of $\\tau^2$, the $Q$-test for residual heterogeneity ", qtest.ref, " is reported. ") if (model == "RE") methods <- paste0(methods, "In case any amount of heterogeneity is detected (i.e., $\\hat{\\tau}^2 > 0$, regardless of the results of the $Q$-test), a prediction interval for the true outcomes is also provided [@riley2011]. ") if (x$test == "knha") methods <- paste0(methods, "Tests and confidence intervals were computed using the Knapp and Hartung method [@knapp2003]. ") methods <- paste0(methods, "Studentized residuals and Cook's distances are used to examine whether studies may be outliers and/or influential in the context of the model [@viechtbauer2010b]. ") #methods <- paste0(methods, "Studies with a studentized residual larger than $\\pm 1.96$ are considered potential outliers. ") methods <- paste0(methods, "Studies with a studentized residual larger than the $100 \\times (1 - ", x$level, "/(2 \\times k))$th percentile of a standard normal distribution are considered potential outliers (i.e., using a Bonferroni correction with two-sided $\\alpha = ", x$level, "$ for $k$ studies included in the meta-analysis). ") # $\\pm ", fmtx(crit, digits[["test"]]), "$ ( #methods <- paste0(methods, "Studies with a Cook's distance larger than ", fmtx(qchisq(0.5, df=infres$m), digits[["test"]]), " (the 50th percentile of a $\\chi^2$-distribution with ", infres$m, " degree", ifelse(infres$m > 1, "s", ""), " of freedom) are considered to be influential. ") methods <- paste0(methods, "Studies with a Cook's distance larger than the median plus six times the interquartile range of the Cook's distances are considered to be influential.") methods <- if (footnotes) paste0(methods, "[^cook] ") else paste0(methods, " ") if (is.element(model, c("FE","EE","CE","RE"))) methods <- paste0(methods, "The rank correlation test [@begg1994] and the regression test [@sterne2005], using the standard error of the observed outcomes as predictor, are used to check for funnel plot asymmetry. ") if (is.element(model, c("MR","ME"))) methods <- paste0(methods, "The regression test [@sterne2005], using the standard error of the observed outcomes as predictor (in addition to the moderators already included in the model), is used to check for funnel plot asymmetry. ") methods <- paste0(methods, "The analysis was carried out using R (version ", getRversion(), ") [@rcore2020] and the **metafor** package (version ", x$version, ") [@viechtbauer2010a]. ") ######################################################################### ### results section results <- "\n## Results\n\n" ### number of studies results <- paste0(results, "A total of $k=", x$k, "$ studies were included in the analysis. ") ### range of observed outcomes results <- paste0(results, "The observed ", measure, "s ranged from $", fmtx(min(x$yi), digits[["est"]]), "$ to $", fmtx(max(x$yi), digits[["est"]]), "$, ") ### percent positive/negative results <- paste0(results, "with the majority of estimates being ", ifelse(mean(x$yi > 0) > 0.50, "positive", "negative"), " (", ifelse(mean(x$yi > 0) > 0.50, round(100*mean(x$yi > 0)), round(100*mean(x$yi < 0))), "%). ") if (is.element(model, c("FE","EE","CE","RE"))) { ### estimated average outcome with CI results <- paste0(results, "The estimated average ", measure, " based on the ", model.name, " model was ", ifelse(is.element(model, c("FE","EE","CE")), "$\\hat{\\theta} = ", "$\\hat{\\mu} = "), fmtx(c(x$beta), digits[["est"]]), "$ ") results <- paste0(results, "(", level, "% CI: $", fmtx(x$ci.lb, digits[["ci"]]), "$ to $", fmtx(x$ci.ub, digits[["ci"]]), "$). ") ### note: for some outcome measures (e.g., proportions), the test H0: mu/theta = 0 is not really relevant; maybe check for this results <- paste0(results, "Therefore, the average outcome ", ifelse(x$pval > 0.05, "did not differ", "differed"), " significantly from zero ($", ifelse(x$test == "z", "z", paste0("t(", x$k-1, ")")), " = ", fmtx(x$zval, digits[["test"]]), "$, ", fpval(x$pval), "). ") ### forest plot if (plot.forest) { results <- paste0(results, "A forest plot showing the observed outcomes and the estimate based on the ", model.name, " model is shown in Figure ", num.forest, ".\n\n") if (is.element(format, c("pdf_document", "bookdown::pdf_document2"))) results <- paste0(results, "```{r, forestplot, echo=FALSE, fig.align=\"center\", fig.cap=\"Forest plot showing the observed outcomes and the estimate of the ", model.name, " model\"") if (format == "html_document") results <- paste0(results, "```{r, forestplot, echo=FALSE, fig.align=\"center\", fig.cap=\"Figure ", num.forest, ": Forest plot showing the observed outcomes and the estimate of the ", model.name, " model\"") if (format == "word_document") results <- paste0(results, "```{r, forestplot, echo=FALSE, fig.cap=\"Figure ", num.forest, ": Forest plot showing the observed outcomes and the estimate of the ", model.name, " model\"") results <- paste0(results, ", dev.args=list(pointsize=9)}\npar(family=\"mono\")\npar(mar=c(5,4,1,2))\ntmp <- metafor::forest(x, addpred=TRUE, header=TRUE", args.forest, ")\n```") #text(tmp$xlim[1], x$k+2, \"Study\", pos=4, font=2, cex=tmp$cex)\ntext(tmp$xlim[2], x$k+2, \"Outcome [", level, "% CI]\", pos=2, font=2, cex=tmp$cex)\n } results <- paste0(results, "\n\n") ### test for heterogeneity if (x$QEp > 0.10) results <- paste0(results, "According to the $Q$-test, there was no significant amount of heterogeneity in the true outcomes ") if (x$QEp > 0.05 && x$QEp <= 0.10) results <- paste0(results, "The $Q$-test for heterogeneity was not significant, but some heterogeneity may still be present in the true outcomes ") if (x$QEp <= 0.05) results <- paste0(results, "According to the $Q$-test, the true outcomes appear to be heterogeneous ") results <- paste0(results, "($Q(", x$k-1, ") = ", fmtx(x$QE, digits[["test"]]), "$, ", fpval(x$QEp)) ### tau^2 estimate (only for RE models) if (model == "RE") results <- paste0(results, ", $\\hat{\\tau}^2 = ", fmtx(x$tau2, digits[["var"]]), "$") ### I^2 statistic results <- paste0(results, ", $I^2 = ", fmtx(x$I2, digits[["het"]]), "$%). ") ### for the RE model, when any amount of heterogeneity is detected, provide prediction interval and note whether the directionality of effects is consistent or not if (model == "RE" && x$tau2 > 0) { predres <- predict(x) results <- paste0(results, "A ", level, "% prediction interval for the true outcomes is given by $", fmtx(predres$pi.lb, digits[["ci"]]), "$ to $", fmtx(predres$pi.ub, digits[["ci"]]), "$. ") if (c(x$beta) > 0 && predres$pi.lb < 0) results <- paste0(results, "Hence, although the average outcome is estimated to be positive, in some studies the true outcome may in fact be negative.") if (c(x$beta) < 0 && predres$pi.ub > 0) results <- paste0(results, "Hence, although the average outcome is estimated to be negative, in some studies the true outcome may in fact be positive.") if ((c(x$beta) > 0 && predres$pi.lb > 0) || (c(x$beta) < 0 && predres$pi.ub < 0)) results <- paste0(results, "Hence, even though there may be some heterogeneity, the true outcomes of the studies are generally in the same direction as the estimated average outcome.") } results <- paste0(results, "\n\n") ### check if some studies have very large weights relatively speaking largeweight <- weights(x)/100 >= 3 / x$k if (any(largeweight)) { if (sum(largeweight) == 1) results <- paste0(results, "One study (", names(largeweight)[largeweight], ") had a relatively large weight ") if (sum(largeweight) == 2) results <- paste0(results, "Two studies (", paste(names(largeweight)[largeweight], collapse="; "), ") had relatively large weights ") if (sum(largeweight) >= 3) results <- paste0(results, "Several studies (", paste(names(largeweight)[largeweight], collapse="; "), ") had relatively large weights ") results <- paste0(results, "compared to the rest of the studies (i.e., $\\mbox{weight} \\ge 3/k$, so a weight at least 3 times as large as having equal weights across studies). ") } ### check for outliers zi <- infres$inf$rstudent abszi <- abs(zi) results <- paste0(results, "An examination of the studentized residuals revealed that ") if (all(abszi < crit, na.rm=TRUE)) results <- paste0(results, "none of the studies had a value larger than $\\pm ", fmtx(crit, digits[["test"]]), "$ and hence there was no indication of outliers ") if (sum(abszi >= crit, na.rm=TRUE) == 1) results <- paste0(results, "one study (", infres$inf$slab[abszi >= crit & !is.na(abszi)], ") had a value larger than $\\pm ", fmtx(crit, digits[["test"]]), "$ and may be a potential outlier ") if (sum(abszi >= crit, na.rm=TRUE) == 2) results <- paste0(results, "two studies (", paste(infres$inf$slab[abszi >= crit & !is.na(abszi)], collapse="; "), ") had values larger than $\\pm ", fmtx(crit, digits[["test"]]), "$ and may be potential outliers ") if (sum(abszi >= crit, na.rm=TRUE) >= 3) results <- paste0(results, "several studies (", paste(infres$inf$slab[abszi >= crit & !is.na(abszi)], collapse="; "), ") had values larger than $\\pm ", fmtx(crit, digits[["test"]]), "$ and may be potential outliers ") results <- paste0(results, "in the context of this model. ") ### check for influential cases #is.infl <- pchisq(infres$inf$cook.d, df=1) > 0.50 is.infl <- infres$inf$cook.d > median(infres$inf$cook.d, na.rm=TRUE) + 6 * IQR(infres$inf$cook.d, na.rm=TRUE) results <- paste0(results, "According to the Cook's distances, ") if (all(!is.infl, na.rm=TRUE)) results <- paste0(results, "none of the studies ") if (sum(is.infl, na.rm=TRUE) == 1) results <- paste0(results, "one study (", infres$inf$slab[is.infl & !is.na(abszi)], ") ") if (sum(is.infl, na.rm=TRUE) == 2) results <- paste0(results, "two studies (", paste(infres$inf$slab[is.infl & !is.na(abszi)], collapse="; "), ") ") if (sum(is.infl, na.rm=TRUE) >= 3) results <- paste0(results, "several studies (", paste(infres$inf$slab[is.infl & !is.na(abszi)], collapse="; "), ") ") results <- paste0(results, "could be considered to be overly influential.") results <- paste0(results, "\n\n") ### publication bias ranktest <- suppressWarnings(ranktest(x)) regtest <- regtest(x) if (plot.funnel) results <- paste0(results, "A funnel plot of the estimates is shown in Figure ", num.funnel, ". ") if (ranktest$pval > 0.05 && regtest$pval > 0.05) { results <- paste0(results, "Neither the rank correlation nor the regression test indicated any funnel plot asymmetry ") results <- paste0(results, "(", fpval(ranktest$pval), " and ", fpval(regtest$pval), ", respectively). ") } if (ranktest$pval <= 0.05 && regtest$pval <= 0.05) { results <- paste0(results, "Both the rank correlation and the regression test indicated potential funnel plot asymmetry ") results <- paste0(results, "(", fpval(ranktest$pval), " and ", fpval(regtest$pval), ", respectively). ") } if (ranktest$pval > 0.05 && regtest$pval <= 0.05) results <- paste0(results, "The regression test indicated funnel plot asymmetry (", fpval(regtest$pval), ") but not the rank correlation test (", fpval(ranktest$pval), "). ") if (ranktest$pval <= 0.05 && regtest$pval > 0.05) results <- paste0(results, "The rank correlation test indicated funnel plot asymmetry ($", fpval(ranktest$pval), ") but not the regression test (", fpval(regtest$pval), "). ") ### funnel plot if (plot.funnel) { if (is.element(format, c("pdf_document", "bookdown::pdf_document2"))) results <- paste0(results, "\n\n```{r, funnelplot, echo=FALSE, fig.align=\"center\", fig.cap=\"Funnel plot\", dev.args=list(pointsize=9)}\npar(mar=c(5,4,2,2))\nmetafor::funnel(x", args.funnel, ")\n```") if (format == "html_document") results <- paste0(results, "\n\n```{r, funnelplot, echo=FALSE, fig.align=\"center\", fig.cap=\"Figure ", num.funnel, ": Funnel plot\", dev.args=list(pointsize=9)}\npar(mar=c(5,4,2,2))\nmetafor::funnel(x", args.funnel, ")\n```") if (format == "word_document") results <- paste0(results, "\n\n```{r, funnelplot, echo=FALSE, fig.cap=\"Figure ", num.funnel, ": Funnel plot\", dev.args=list(pointsize=9)}\npar(mar=c(5,4,2,2))\nmetafor::funnel(x", args.funnel, ")\n```") } } if (is.element(model, c("MR", "ME"))) { if (x$int.incl) { mods <- colnames(x$X)[-1] p <- x$p - 1 } else { mods <- colnames(x$X) p <- x$p } results <- paste0(results, "The meta-regression model included ", p, " predictor", ifelse(p > 1, "s ", " ")) if (p == 1) results <- paste0(results, "(i.e., '", mods, "').") if (p == 2) results <- paste0(results, "(i.e., '", mods[1], "' and '", mods[2], "').") if (p >= 3) results <- paste0(results, "(i.e., ", paste0("'", mods[-p], "'", collapse=", "), " and ", mods[p], ").") } # 95% CI for tau^2 and I^2 # table for meta-regression model # links to help pages for functions used ######################################################################### ### notes section notes <- "\n## Notes\n\n" notes <- paste0(notes, "This analysis report was dynamically generated ", ifelse(has.object.name, paste0("for model object '`", object.name, "`'"), ""), " with the `reporter()` function of the **metafor** package. ") call <- capture.output(x$call) call <- trimws(call, which="left") call <- paste(call, collapse="") notes <- paste0(notes, "The model call that was used to fit the model was '`", call, "`'. ") notes <- paste0(notes, "This report provides an illustration of how the results of the model can be reported, but is not a substitute for a careful examination of the results.") ######################################################################### ### references section references <- "\n## References\n" ######################################################################### if (footnotes) { fnotes <- "" fnotes <- paste0(fnotes, "[^cook]: This is a somewhat arbitrary rule, but tends to detect 'spikes' in a plot of the Cook's distances fairly accurately. A better rule may be implemented in the future.") } ######################################################################### ### write sections to rmd file writeLines(header, con) writeLines(rsetup, con) writeLines(methods, con) writeLines(results, con) writeLines(notes, con) writeLines(references, con) if (footnotes) writeLines(fnotes, con) ### close rmd file connection close(con) ### render rmd file if (verbose) message(mstyle$message(paste0("Rendering ", file.rmd, " file ..."))) if (verbose >= 2) { file.out <- rmarkdown::render(file.path(dir, file.rmd), output_format=format, quiet=ifelse(verbose <= 1, TRUE, FALSE)) } else { file.out <- suppressWarnings(rmarkdown::render(file.path(dir, file.rmd), output_format=format, quiet=ifelse(verbose <= 1, TRUE, FALSE))) } if (verbose) message(mstyle$message(paste0("Generated ", file.out, " ..."))) ### render() sometimes fails to delete the intermediate tex file, so in case this happens clean up ### see also: https://github.com/rstudio/rmarkdown/issues/1308 if (file.exists(file.path(dir, file.tex))) unlink(file.path(dir, file.tex)) ### try to open output file if (open) { if (verbose) message(mstyle$message(paste0("Opening report ...\n"))) if (.Platform$OS.type == "windows") { shell.exec(file.out) } else { optb <- getOption("browser") if (is.function(optb)) { invisible(optb(file.out)) } else { system(paste0(optb, " '", file.out, "'")) } } } invisible(file.out) } metafor/R/replmiss.r0000644000176200001440000000166115120213572014133 0ustar liggesusersreplmiss <- function(x, y, data) { mstyle <- .get.mstyle() # check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() x <- .getx("x", mf=mf, data=data, checknull=FALSE) y <- .getx("y", mf=mf, data=data, checknull=FALSE) if (length(y) == 0L) return(x) if (length(x) == 0L) x <- rep(NA_real_, length(y)) # in case the user specified a constant for 'y' to use for the replacement y <- .expand1(y, length(x)) # check that 'x' and 'y' are of the same length if (length(x) != length(y)) stop(mstyle$stop("Length of 'x' and 'y' are not the same.")) #x <- ifelse(is.na(x), y, x) # this is quite a bit slower than the following is.na.x <- is.na(x) x[is.na.x] <- y[is.na.x] return(x) } metafor/R/blup.r0000644000176200001440000000005615120213572013234 0ustar liggesusersblup <- function(x, ...) UseMethod("blup") metafor/R/misc.func.hidden.vif.r0000644000176200001440000002124415120213572016176 0ustar liggesusers############################################################################ .compvif <- function(j, btt, vcov, xintercept, intercept, spec=NULL, colnames=NULL, obj=NULL, coef="beta", sim=FALSE) { x <- obj btt <- btt[[j]] # note: this might actually be att when computing (G)VIFs for the scale coefficients in location-scale model if (is.null(x)) { ### remove intercept (if there is one and intercept=FALSE) from vcov and adjust btt accordingly if (xintercept && !intercept) { vcov <- vcov[-1,-1,drop=FALSE] btt <- btt - 1 btt <- btt[btt > 0] } rb <- suppressWarnings(cov2cor(vcov)) gvif <- det(rb[btt,btt,drop=FALSE]) * det(rb[-btt,-btt,drop=FALSE]) / det(rb) } else { ### if 'x' is not NULL, then reestimate the model for the computation of the (G)VIF if (xintercept && !intercept) btt <- btt[btt > 1] if (coef == "beta") { Xbtt <- x$X[,btt,drop=FALSE] Zbtt <- x$Z if (xintercept && !intercept && !identical(btt,1L)) Xbtt <- cbind(1, Xbtt) outlist <- "vb=vb" } else { Xbtt <- x$X Zbtt <- x$Z[,btt,drop=FALSE] if (xintercept && !intercept && !identical(btt,1L)) Zbtt <- cbind(1, Zbtt) outlist <- "va=va" } if (inherits(x, "rma.uni")) { if (inherits(x, "rma.ls")) { args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=Xbtt, intercept=FALSE, scale=Zbtt, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=FALSE, outlist=outlist) } else { args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=Xbtt, intercept=FALSE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE, outlist=outlist) } tmp <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) } if (inherits(x, "rma.mv")) { args <- list(yi=x$yi, V=x$V, W=x$W, mods=Xbtt, random=x$random, struct=x$struct, intercept=FALSE, data=x$mf.r, method=x$method, test=x$test, dfs=x$dfs, level=x$level, R=x$R, Rscale=x$Rscale, sigma2=ifelse(x$vc.fix$sigma2, x$sigma2, NA), tau2=ifelse(x$vc.fix$tau2, x$tau2, NA), rho=ifelse(x$vc.fix$rho, x$rho, NA), gamma2=ifelse(x$vc.fix$gamma2, x$gamma2, NA), phi=ifelse(x$vc.fix$phi, x$phi, NA), sparse=x$sparse, dist=x$dist, vccon=obj$vccon, control=x$control, outlist=outlist) tmp <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } if (inherits(tmp, "try-error")) { if (sim) { return(NA_real_) } else { gvif <- NA_real_ } } else { if (xintercept && !intercept) { gvif <- det(vcov(x, type=coef)[btt,btt,drop=FALSE]) / det(vcov(tmp, type=coef)[-1,-1,drop=FALSE]) } else { gvif <- det(vcov(x, type=coef)[btt,btt,drop=FALSE]) / det(vcov(tmp, type=coef)) } } } if (sim) { return(gvif) } else { m <- length(btt) gsif <- gvif^(1/(2*m)) ### readjust btt if this was done earlier if (is.null(x) && xintercept && !intercept) btt <- btt + 1 if (length(btt) == 1L) { coefname <- colnames[btt] } else { coefname <- "" } return(data.frame(spec=.format.btt(spec[[j]]), coefs=.format.btt(btt), coefname=coefname, m=m, vif=gvif, sif=gsif)) } } ############################################################################ .compvifsim <- function(l, obj, coef, btt=NULL, att=NULL, reestimate=FALSE, intercept=FALSE, parallel=FALSE, seed=NULL, joinb=NULL, joina=NULL) { if (parallel == "snow") library(metafor) if (!is.null(seed)) set.seed(seed+l) x <- obj if (coef == "beta") { if (reestimate) { outlist <- "nodata" } else { outlist <- "coef.na=coef.na, vb=vb" } if (is.null(joinb)) { if (is.null(x$data) || is.null(x$formula.mods)) { Xperm <- apply(x$X, 2, sample) } else { #data <- x$data data <- get_all_vars(x$formula.mods, data=x$data) # only get variables that are actually needed if (!is.null(x$subset)) data <- data[x$subset,,drop=FALSE] data <- data[x$not.na,,drop=FALSE] Xperm <- model.matrix(x$formula.mods, data=as.data.frame(lapply(data, sample))) #Xperm <- Xperm[,!x$coef.na,drop=FALSE] } } else { Xperm <- .permXvif(joinb, x$X) } if (inherits(x, "rma.uni")) { if (inherits(x, "rma.ls")) { args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=Xperm, intercept=FALSE, scale=x$Z, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=FALSE, outlist=outlist) } else { args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=Xperm, intercept=FALSE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE, outlist=outlist) } tmp <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) #tmp <- try(.do.call(rma.uni, args)) } if (inherits(x, "rma.mv")) { args <- list(yi=x$yi, V=x$V, W=x$W, mods=Xperm, random=x$random, struct=x$struct, intercept=FALSE, data=x$mf.r, method=x$method, test=x$test, dfs=x$dfs, level=x$level, R=x$R, Rscale=x$Rscale, sigma2=ifelse(x$vc.fix$sigma2, x$sigma2, NA), tau2=ifelse(x$vc.fix$tau2, x$tau2, NA), rho=ifelse(x$vc.fix$rho, x$rho, NA), gamma2=ifelse(x$vc.fix$gamma2, x$gamma2, NA), phi=ifelse(x$vc.fix$phi, x$phi, NA), sparse=x$sparse, dist=x$dist, vccon=obj$vccon, control=x$control, outlist=outlist) tmp <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } if (inherits(tmp, "try-error")) return(rep(NA_real_, length(btt))) if (any(tmp$coef.na)) return(sapply(btt, function(x) if (any(which(tmp$coef.na) %in% x)) Inf else NA_real_)) vcov <- vcov(tmp, type="beta") obj <- if (reestimate) tmp else NULL vifs <- sapply(seq_along(btt), .compvif, btt=btt, vcov=vcov, xintercept=x$intercept, intercept=intercept, obj=obj, sim=TRUE) } else { if (reestimate) { outlist <- "nodata" } else { outlist <- "coef.na.Z=coef.na.Z, va=va" } if (is.null(joina)) { if (is.null(x$data) || is.null(x$formula.scale)) { Zperm <- apply(x$Z, 2, sample) } else { #data <- x$data data <- get_all_vars(x$formula.scale, data=x$data) # only get variables that are actually needed if (!is.null(x$subset)) data <- data[x$subset,,drop=FALSE] data <- data[x$not.na,,drop=FALSE] Zperm <- model.matrix(x$formula.scale, data=as.data.frame(lapply(data, sample))) #Zperm <- Zperm[,!x$coef.na.Z,drop=FALSE] } } else { Zperm <- .permXvif(joina, x$Z) } args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=x$X, intercept=FALSE, scale=Zperm, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=FALSE, outlist=outlist) tmp <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) #tmp <- try(.do.call(rma.uni, args)) if (inherits(tmp, "try-error")) return(rep(NA_real_, length(att))) if (any(tmp$coef.na.Z)) return(sapply(att, function(x) if (any(which(tmp$coef.na.Z) %in% x)) Inf else NA_real_)) vcov <- vcov(tmp, type="alpha") obj <- if (reestimate) tmp else NULL vifs <- sapply(seq_along(att), .compvif, btt=att, vcov=vcov, xintercept=x$Z.intercept, intercept=intercept, obj=obj, sim=TRUE) } return(vifs) } .permXvif <- function(b, X) { ub <- unique(b) n <- nrow(X) for (j in 1:length(ub)) { pos <- which(ub[j] == b) X[,pos] <- X[sample(n),pos] } return(X) } ############################################################################ metafor/R/misc.func.hidden.evals.r0000644000176200001440000000404715120213572016526 0ustar liggesusers############################################################################ ### to register getfit method for 'rma.uni' and 'rma.mv' objects: eval(metafor:::.glmulti) .glmulti <- str2expression(" if (!(\"glmulti\" %in% .packages())) stop(\"Must load the 'glmulti' package first to use this code.\") setOldClass(\"rma.uni\") setMethod(\"getfit\", \"rma.uni\", function(object, ...) { if (object$test==\"z\") { cbind(estimate=coef(object), se=sqrt(diag(vcov(object))), df=Inf) } else { cbind(estimate=coef(object), se=sqrt(diag(vcov(object))), df=object$k-object$p) } }) setOldClass(\"rma.mv\") setMethod(\"getfit\", \"rma.mv\", function(object, ...) { if (object$test==\"z\") { cbind(estimate=coef(object), se=sqrt(diag(vcov(object))), df=Inf) } else { cbind(estimate=coef(object), se=sqrt(diag(vcov(object))), df=object$k-object$p) } }) setOldClass(\"rma.glmm\") setMethod(\"getfit\", \"rma.glmm\", function(object, ...) { if (object$test==\"z\") { cbind(estimate=coef(object), se=sqrt(diag(vcov(object))), df=Inf) } else { cbind(estimate=coef(object), se=sqrt(diag(vcov(object))), df=object$k-object$p) } }) ") ### helper functions to make MuMIn work together with metafor: eval(metafor:::.MuMIn) .MuMIn <- str2expression(" makeArgs.rma <- function (obj, termNames, comb, opt, ...) { ret <- MuMIn:::makeArgs.default(obj, termNames, comb, opt) names(ret)[1L] <- \"mods\" ret } coefTable.rma <- function (model, ...) { MuMIn:::.makeCoefTable(model$b, model$se, coefNames = rownames(model$b)) } ") ### helper functions to make mice work together with metafor (note: no longer ### needed, as there are glance and tidy methods for rma objects in broom now) #.mice <- str2expression(" # #glance.rma <- function (x, ...) # data.frame(df.residual=df.residual(x)) # #tidy.rma <- function (x, ...) { # ret <- coef(summary(x)) # colnames(ret)[2] <- \"std.error\" # ret$term <- rownames(ret) # return(ret) #} # #") ############################################################################ metafor/R/forest.r0000644000176200001440000000006215120213572013571 0ustar liggesusersforest <- function(x, ...) UseMethod("forest") metafor/R/funnel.r0000644000176200001440000000006215120213572013556 0ustar liggesusersfunnel <- function(x, ...) UseMethod("funnel") metafor/R/vif.r0000644000176200001440000000005415120213572013054 0ustar liggesusersvif <- function(x, ...) UseMethod("vif") metafor/R/vcov.deltamethod.r0000644000176200001440000000024215120213572015535 0ustar liggesusersvcov.deltamethod <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="deltamethod") out <- object$vcov return(out) } metafor/R/methods.list.rma.r0000644000176200001440000000756315120213572015477 0ustar liggesusers############################################################################ "[.list.rma" <- function(x, i, ...) { # removed j argument (see below), so can only select rows, not columns out <- x attr(out, "class") <- NULL slab.pos <- which(names(out) == "slab") if (!missing(i)) { # for X and Z element mf <- match.call() i <- .getx("i", mf=mf, data=x) # not sure about the consequences of using this out[seq_len(slab.pos-1)] <- lapply(out[seq_len(slab.pos-1)], function(r) if (inherits(r, "matrix")) r[i,,drop=FALSE] else r[i]) } ### catch cases where user selects values outside 1:k if (length(out[[1]]) == 0L) return(NULL) #out <- out[j] # this causes all kinds of problems, so left out for now (TODO: check if this is really a problem) out$slab <- x$slab[i] ### slab can only contain NAs if user selects values outside 1:k if (anyNA(out$slab)) return(NULL) out$digits <- x$digits out$transf <- x$transf out$method <- x$method class(out) <- "list.rma" return(out) } ############################################################################ as.data.frame.list.rma <- function(x, ...) { attr(x, "class") <- NULL ### remove cr.lb and cr.ub (in case they are there) x$cr.lb <- NULL x$cr.ub <- NULL ### strip attributes from pi.lb if (!is.null(x$pi.lb)) x$pi.lb <- c(x$pi.lb) ### turn all vectors before the slab vector into a data frame slab.pos <- which(names(x) == "slab") out <- x[seq_len(slab.pos-1)] out <- data.frame(out, row.names=x$slab, stringsAsFactors=FALSE) ### in case all values were NA and have been omitted if (nrow(out) == 0L) return(data.frame()) ### if transf exists and is TRUE, set SEs to NULL so that column is omitted from the output if (exists("transf", where=x, inherits=FALSE) && x$transf) out$se <- NULL return(out) } ############################################################################ as.matrix.list.rma <- function(x, ...) { attr(x, "class") <- NULL ### remove cr.lb and cr.ub (in case they are there) x$cr.lb <- NULL x$cr.ub <- NULL ### turn all vectors before the slab vector into a matrix slab.pos <- which(names(x) == "slab") out <- x[seq_len(slab.pos-1)] out <- do.call(cbind, out) rownames(out) <- x$slab ### if transf exists and is TRUE, set SEs to NULL so that column is omitted from the output if (exists("transf", where=x, inherits=FALSE) && x$transf) out <- out[,-which(colnames(out) == "se")] return(out) } ############################################################################ ### like utils:::head.data.frame and utils:::tail.data.frame, ### but with nrow(x) replaced by length(x[[1]]) head.list.rma <- function (x, n = 6L, ...) { stopifnot(length(n) == 1L) n <- if (n < 0L) { max(length(x[[1]]) + n, 0L) } else { min(n, length(x[[1]])) } x[seq_len(n), , drop = FALSE] } tail.list.rma <- function (x, n = 6L, ...) { stopifnot(length(n) == 1L) nrx <- length(x[[1]]) n <- if (n < 0L) { max(nrx + n, 0L) } else { min(n, nrx) } x[seq.int(to = nrx, length.out = n), , drop = FALSE] } ############################################################################ `$<-.list.rma` <- function(x, name, value) { if (name %in% names(x)) { x[[name]] <- value return(x) } else { slab.pos <- which(names(x) == "slab") out <- list() for (i in seq_len(slab.pos-1)) { out[[i]] <- x[[i]] } names(out) <- names(x)[seq_len(slab.pos-1)] out[[name]] <- value for (i in (slab.pos:length(x))) { out[[i+1]] <- x[[i]] } names(out)[(slab.pos+1):(length(x)+1)] <- names(x)[slab.pos:length(x)] class(out) <- class(x) return(out) } } ############################################################################ metafor/R/dfround.r0000644000176200001440000000212315120213572013730 0ustar liggesusersdfround <- function(x, digits, drop0=TRUE) { mstyle <- .get.mstyle() if (inherits(x, "matrix") && length(dim(x)) == 2L) x <- data.frame(x, check.names=FALSE) .chkclass(class(x), must="data.frame") p <- ncol(x) if (missing(digits)) digits <- 0 digits <- .expand1(digits, p) drop0 <- .expand1(drop0, p) if (p != length(digits)) stop(mstyle$stop(paste0("Number of columns in 'x' (", p, ") does not match the length of 'digits' (", length(digits), ")."))) if (p != length(drop0)) stop(mstyle$stop(paste0("Number of columns in 'x' (", p, ") does not match the length of 'drop0' (", length(drop0), ")."))) if (!is.numeric(digits)) stop(mstyle$stop("Argument 'digits' must be a numeric vector.")) if (!is.logical(drop0)) stop(mstyle$stop("Argument 'drop0' must be a logical vector.")) for (i in seq_len(p)) { if (!is.numeric(x[[i]])) next if (drop0[i]) { x[[i]] <- round(x[[i]], digits[i]) } else { x[[i]] <- formatC(x[[i]], format="f", digits=digits[i]) } } return(x) } metafor/R/deviance.rma.r0000644000176200001440000000102115120213572014617 0ustar liggesusersdeviance.rma <- function(object, REML, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") # in case something like logLik(res1, res2) is used if (!missing(REML) && inherits(REML, "rma")) REML <- NULL if (missing(REML) || is.null(REML)) { if (object$method == "REML") { REML <- TRUE } else { REML <- FALSE } } if (REML) { val <- object$fit.stats["dev","REML"] } else { val <- object$fit.stats["dev","ML"] } return(val) } metafor/R/hatvalues.rma.uni.r0000644000176200001440000000412315120213572015635 0ustar liggesusershatvalues.rma.uni <- function(model, type="diagonal", ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.uni", notav=c("rma.uni.selmodel", "rma.gen")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$vi) || is.null(model$X)) stop(mstyle$stop("Information needed to compute the hat values is not available in the model object.")) type <- match.arg(type, c("diagonal", "matrix")) ######################################################################### x <- model if (x$weighted) { if (is.null(x$weights)) { W <- .diag(1/(x$vi + x$tau2)) stXWX <- .invcalc(X=x$X, W=W, k=x$k) H <- x$X %*% stXWX %*% crossprod(x$X,W) #H <- x$X %*% (x$vb / x$s2w) %*% crossprod(x$X,W) # x$vb may be changed through robust() (and when test="knha") } else { A <- .diag(x$weights) stXAX <- .invcalc(X=x$X, W=A, k=x$k) H <- x$X %*% stXAX %*% crossprod(x$X,A) } } else { stXX <- .invcalc(X=x$X, W=diag(x$k), k=x$k) H <- x$X %*% tcrossprod(stXX,x$X) } ######################################################################### if (type == "diagonal") { hii <- rep(NA_real_, x$k.f) hii[x$not.na] <- diag(H) hii[hii > 1 - 10 * .Machine$double.eps] <- 1 # as in lm.influence() names(hii) <- x$slab if (na.act == "na.omit") hii <- hii[x$not.na] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(hii) } if (type == "matrix") { Hfull <- matrix(NA_real_, nrow=x$k.f, ncol=x$k.f) Hfull[x$not.na, x$not.na] <- H rownames(Hfull) <- x$slab colnames(Hfull) <- x$slab if (na.act == "na.omit") Hfull <- Hfull[x$not.na, x$not.na, drop=FALSE] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(Hfull) } } metafor/R/predict.matreg.r0000644000176200001440000002314115120213572015202 0ustar liggesuserspredict.matreg <- function(object, newmods, intercept, addx=FALSE, level, adjust=FALSE, digits, transf, targs, vcov=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) x <- object mf <- match.call() if (missing(newmods)) stop(mstyle$stop("Argument 'newmods' must be specified.")) if (missing(intercept)) { intercept <- x$intercept int.spec <- FALSE } else { int.spec <- TRUE } if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL level <- .level(level) if (!is.logical(adjust)) stop(mstyle$stop("Argument 'adjust' must be a logical.")) rnames <- NULL p <- nrow(x$tab) # number of coefficients (also counts the intercept even if it is NA) ######################################################################### if (!(.is.vector(newmods) || inherits(newmods, "matrix"))) stop(mstyle$stop(paste0("Argument 'newmods' should be a vector or matrix, but is of class '", class(newmods)[1], "'."))) singlemod <- (NCOL(newmods) == 1L) && ((!x$intercept && p == 1L) || (x$intercept && p == 2L)) if (singlemod) { # if single moderator (multiple k.new possible) (either without or with intercept in the model) k.new <- length(newmods) # (but when specifying a matrix, it must be a column vector for this work) X.new <- cbind(c(newmods)) # if (.is.vector(newmods)) { # rnames <- names(newmods) # } else { # rnames <- rownames(newmods) # } # } else { # in case the model has more than one predictor: if (.is.vector(newmods) || nrow(newmods) == 1L) { # # if user gives one vector or one row matrix (only one k.new): k.new <- 1L # X.new <- rbind(newmods) # if (inherits(newmods, "matrix")) # rnames <- rownames(newmods) # } else { # # if user gives multiple rows and columns (multiple k.new): k.new <- nrow(newmods) # X.new <- cbind(newmods) # rnames <- rownames(newmods) # } # # allow matching of terms by names (note: only possible if all columns in X.new have colnames) if (!is.null(colnames(X.new)) && all(colnames(X.new) != "")) { colnames.mod <- rownames(x$tab) if (x$intercept) colnames.mod <- colnames.mod[-1] pos <- sapply(colnames(X.new), function(colname) { d <- c(adist(colname, colnames.mod, costs=c(ins=1, sub=Inf, del=Inf))) # compute edit distances with Inf costs for substitutions/deletions if (all(is.infinite(d))) # if there is no match, then all elements are Inf stop(mstyle$stop(paste0("Could not find variable '", colname, "' in the model."))) d <- which(d == min(d)) # don't use which.min() since that only finds the first minimum if (length(d) > 1L) # if there is no unique match, then there is more than one minimum stop(mstyle$stop(paste0("Could not match up variable '", colname, "' uniquely to a variable in the model."))) return(d) }) if (anyDuplicated(pos)) { # if the same name is used more than once, then there will be duplicated pos values dups <- paste(unique(colnames(X.new)[duplicated(pos)]), collapse=", ") stop(mstyle$stop(paste0("Found multiple matches for the same variable name (", dups, ")."))) } if (length(pos) != length(colnames.mod)) { no.match <- colnames.mod[seq_along(colnames.mod)[-pos]] if (length(no.match) > 3L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for these variables: ", paste0(no.match[1:3], collapse=", "), ", ..."))) if (length(no.match) > 1L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for these variables: ", paste0(no.match, collapse=", ")))) if (length(no.match) == 1L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for this variable: ", no.match))) } X.new <- X.new[,order(pos),drop=FALSE] colnames(X.new) <- colnames.mod } } if (inherits(X.new[1,1], "character")) stop(mstyle$stop("Argument 'newmods' should only contain numeric variables.")) # if the user has specified newmods and an intercept was included in the original model, add the intercept to X.new # but user can also decide to remove the intercept from the predictions with intercept=FALSE (but only do this when # newmods was not a matrix with p columns) if (!singlemod && ncol(X.new) == p) { if (int.spec) warning(mstyle$warning("Arguments 'intercept' ignored when 'newmods' includes 'p' columns."), call.=FALSE) } else { if (x$intercept) { if (intercept) { X.new <- cbind(intrcpt=1, X.new) } else { X.new <- cbind(intrcpt=0, X.new) } } } if (ncol(X.new) != p) stop(mstyle$stop(paste0("Dimensions of 'newmods' (", ncol(X.new), ") do not the match dimensions of the model (", p, ")."))) if (is.null(X.new)) stop(mstyle$stop("Matrix 'X.new' is NULL.")) ######################################################################### # predicted values, SEs, and confidence intervals pred <- rep(NA_real_, k.new) vpred <- rep(NA_real_, k.new) for (i in seq_len(k.new)) { Xi.new <- X.new[i,,drop=FALSE] beta <- x$tab$beta beta[Xi.new == 0] <- 0 pred[i] <- Xi.new %*% cbind(beta) vb <- x$vb vb[Xi.new == 0,] <- 0 vb[,Xi.new == 0] <- 0 vpred[i] <- Xi.new %*% tcrossprod(vb, Xi.new) } if (x$test == "t") { crit <- qt(level/ifelse(adjust, 2*k.new, 2), df=x$df.residual, lower.tail=FALSE) } else { crit <- qnorm(level/ifelse(adjust, 2*k.new, 2), lower.tail=FALSE) } vpred[vpred < 0] <- NA_real_ se <- sqrt(vpred) ci.lb <- pred - crit * se ci.ub <- pred + crit * se if (vcov) { vcovpred <- symmpart(X.new %*% x$vb %*% t(X.new)) diag(vcovpred) <- se^2 } ######################################################################### # apply transformation function if one has been specified if (is.function(transf)) { if (is.null(targs)) { pred <- sapply(pred, transf) se <- rep(NA_real_, k.new) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) pred <- sapply(pred, transf, targs) se <- rep(NA_real_, k.new) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } do.transf <- TRUE } else { do.transf <- FALSE } # make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] slab <- seq_len(k.new) if (!is.null(rnames)) slab <- rnames # add row/colnames to vcovpred if (vcov) rownames(vcovpred) <- colnames(vcovpred) <- slab # but when predicting just a single value, use "" as study label if (k.new == 1L && is.null(rnames)) slab <- "" # handle NAs not.na <- rep(TRUE, k.new) if (na.act == "na.omit") not.na <- !is.na(pred) if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) out <- list(pred=pred[not.na], se=se[not.na], ci.lb=ci.lb[not.na], ci.ub=ci.ub[not.na]) if (vcov) vcovpred <- vcovpred[not.na,not.na,drop=FALSE] # add X matrix to list if (addx) { out$X <- matrix(X.new[not.na,], ncol=p) colnames(out$X) <- rownames(x$tab) } # add slab values to list out$slab <- slab[not.na] # add some additional info out$digits <- digits out$transf <- do.transf if (x$test != "z") out$ddf <- x$df.residual class(out) <- c("predict.matreg", "list.rma") if (vcov & !do.transf) { out <- list(pred=out) if (!inherits(vcovpred, "sparseMatrix")) class(vcovpred) <- c("vcovmat", class(vcovpred)) out$vcov <- vcovpred } return(out) } metafor/R/hc.rma.uni.r0000644000176200001440000001354515120213572014243 0ustar liggesusershc.rma.uni <- function(object, digits, transf, targs, control, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.uni", notav=c("rma.ls", "rma.gen", "rma.uni.selmodel")) x <- object if (!x$int.only) stop(mstyle$stop("Method only applicable to models without moderators.")) if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed is not available in the model object.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL funlist <- lapply(list(transf.exp.int, transf.ilogit.int, transf.iprobit.int, transf.ztor.int, transf.iarcsin.int, transf.iahw.int, transf.iabt.int, transf.dtocles.int, transf.exp.mode, transf.ilogit.mode, transf.iprobit.mode, transf.ztor.mode, transf.iarcsin.mode, transf.iahw.mode, transf.iabt.mode), deparse) if (is.null(targs) && any(sapply(funlist, identical, deparse(transf))) && inherits(x, c("rma.uni","rma.glmm")) && length(x$tau2 == 1L)) targs <- list(tau2=x$tau2) yi <- x$yi vi <- x$vi k <- length(yi) if (k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (!x$allvipos) stop(mstyle$stop("Cannot use method when one or more sampling variances are non-positive.")) level <- .level(x$level) if (missing(control)) control <- list() ######################################################################### ### set defaults for control parameters for uniroot() and replace with any user-defined values con <- list(tol=.Machine$double.eps^0.25, maxiter=1000, verbose=FALSE) con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] ######################################################################### ### original code by Henmi & Copas (2012), modified by Michael Dewey, small adjustments ### for consistency with other functions in the metafor package by Wolfgang Viechtbauer wi <- 1/vi # fixed effects weights W1 <- sum(wi) W2 <- sum(wi^2) / W1 W3 <- sum(wi^3) / W1 W4 <- sum(wi^4) / W1 ### fixed-effects estimate of theta beta <- sum(wi*yi) / W1 ### Q statistic Q <- sum(wi * ((yi - beta)^2)) ### DL estimate of tau^2 tau2 <- max(0, (Q - (k-1)) / (W1 - W2)) vb <- (tau2 * W2 + 1) / W1 # estimated Var of b se <- sqrt(vb) # estimated SE of b VR <- 1 + tau2 * W2 # estimated Var of R SDR <- sqrt(VR) # estimated SD of R ### conditional mean of Q given R=r EQ <- function(r) (k - 1) + tau2 * (W1 - W2) + (tau2^2)*((1/VR^2) * (r^2) - 1/VR) * (W3 - W2^2) ### conditional variance of Q given R=r VQ <- function(r) { rsq <- r^2 recipvr2 <- 1 / VR^2 2 * (k - 1) + 4 * tau2 * (W1 - W2) + 2 * tau2^2 * (W1*W2 - 2*W3 + W2^2) + 4 * tau2^2 * (recipvr2 * rsq - 1/VR) * (W3 - W2^2) + 4 * tau2^3 * (recipvr2 * rsq - 1/VR) * (W4 - 2*W2*W3 + W2^3) + 2 * tau2^4 * (recipvr2 - 2 * (1/VR^3) * rsq) * (W3 - W2^2)^2 } scale <- function(r) VQ(r) / EQ(r) # scale parameter of the gamma distribution shape <- function(r) EQ(r)^2 / VQ(r) # shape parameter of the gamma distribution ### inverse of f finv <- function(f) (W1/W2 - 1) * ((f^2) - 1) + (k - 1) ### equation to be solved eqn <- function(x) { integrand <- function(r) { pgamma(finv(r/x), scale=scale(SDR*r), shape=shape(SDR*r))*dnorm(r) } integral <- integrate(integrand, lower=x, upper=Inf)$value #integral <- cubintegrate(integrand, lower=x, upper=Inf)$integral val <- integral - level / 2 #cat(val, "\n") val } t0 <- try(uniroot(eqn, lower=0, upper=2, tol=con$tol, maxiter=con$maxiter)) if (inherits(t0, "try-error")) stop(mstyle$stop("Error in uniroot().")) t0 <- t0$root u0 <- SDR * t0 # (approximate) percentage point for the distribution of U ######################################################################### ci.lb <- beta - u0 * se # lower CI bound ci.ub <- beta + u0 * se # upper CI bound beta.rma <- x$beta se.rma <- x$se ci.lb.rma <- x$ci.lb ci.ub.rma <- x$ci.ub ### if requested, apply transformation to yi's and CI bounds if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) beta.rma <- sapply(beta.rma, transf) se <- NA_real_ se.rma <- NA_real_ ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) ci.lb.rma <- sapply(ci.lb.rma, transf) ci.ub.rma <- sapply(ci.ub.rma, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) beta.rma <- sapply(beta.rma, transf, targs) se <- NA_real_ se.rma <- NA_real_ ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) ci.lb.rma <- sapply(ci.lb.rma, transf, targs) ci.ub.rma <- sapply(ci.ub.rma, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] tmp <- .psort(ci.lb.rma, ci.ub.rma) ci.lb.rma <- tmp[,1] ci.ub.rma <- tmp[,2] ######################################################################### res <- list(beta=beta, se=se, ci.lb=ci.lb, ci.ub=ci.ub, beta.rma=beta.rma, se.rma=se.rma, ci.lb.rma=ci.lb.rma, ci.ub.rma=ci.ub.rma, method="DL", method.rma=x$method, tau2=tau2, tau2.rma=x$tau2, digits=digits) class(res) <- "hc.rma.uni" return(res) } metafor/R/trimfill.r0000644000176200001440000000006615120213572014115 0ustar liggesuserstrimfill <- function(x, ...) UseMethod("trimfill") metafor/R/coef.rma.r0000644000176200001440000000153615120213572013770 0ustar liggesuserscoef.rma <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") ddd <- list(...) coefs <- c(object$beta) names(coefs) <- rownames(object$beta) if (isTRUE(ddd$type=="beta")) return(coefs) if (inherits(object, "rma.ls")) { coefs <- list(beta=coefs) coefs$alpha <- c(object$alpha) names(coefs$alpha) <- rownames(object$alpha) if (isTRUE(ddd$type=="alpha")) return(coefs$alpha) } if (inherits(object, "rma.uni.selmodel")) { coefs <- list(beta=coefs) coefs$delta <- c(object$delta) if (length(object$delta) == 1L) { names(coefs$delta) <- "delta" } else { names(coefs$delta) <- paste0("delta.", seq_along(object$delta)) } if (isTRUE(ddd$type=="delta")) return(coefs$delta) } return(coefs) } metafor/R/selmodel.rma.uni.r0000644000176200001440000016316215130152500015450 0ustar liggesusersselmodel.rma.uni <- function(x, type, alternative="greater", prec, subset, delta, steps, decreasing=FALSE, verbose=FALSE, digits, control, ...) { # TODO: add a H0 argument? since p-value may not be based on H0: theta_i = 0 # TODO: argument for which deltas to include in LRT (a delta may also not be constrained under H0, so it should not be included in the LRT then) mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("rma.ls", "rma.gen", "robust.rma")) if (is.null(x$yi)) stop(mstyle$stop("Information needed to fit the selection model is not available in the model object.")) alternative <- match.arg(alternative, c("two.sided", "greater", "less")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } time.start <- proc.time() if (!x$allvipos) stop(mstyle$stop("Cannot fit selection model when one or more sampling variances are non-positive.")) if (!x$weighted || !is.null(x$weights)) stop(mstyle$stop("Cannot fit selection model for unweighted models or models with custom weights.")) if (missing(type)) stop(mstyle$stop("Must choose a specific selection model via the 'type' argument (see 'help(selmodel)' for options).")) type.options <- c("beta", "halfnorm", "negexp", "logistic", "power", "negexppow", "halfnorm1", "negexp1", "logistic1", "power1", "halfnorm2", "negexp2", "logistic2", "power2", "stepfun", "stepcon", "trunc", "truncest") #type <- match.arg(type, type.options) type <- type.options[grep(type, type.options)[1]] if (is.na(type)) stop(mstyle$stop("Unknown 'type' specified (see 'help(selmodel)' for options).")) if (is.element(type, c("trunc","truncest")) && alternative == "two.sided") stop(mstyle$stop("Cannot use alternative='two-sided' with this type of selection model.")) decreasing <- isTRUE(decreasing) if (type != "stepfun" && decreasing) { warning(mstyle$warning("Argument 'decreasing' ignored (not applicable to this type of selection model)."), call.=FALSE) decreasing <- FALSE } if (missing(control)) control <- list() ### refit RE/ME models with ML estimation if (!is.element(x$method, c("FE","EE","CE","ML"))) { #stop(mstyle$stop("Argument 'x' must either be an equal/fixed-effects model or a model fitted with ML estimation.")) #x <- try(update(x, method="ML"), silent=TRUE) #x <- suppressWarnings(update(x, method="ML")) #x <- try(suppressWarnings(rma.uni(x$yi, x$vi, weights=x$weights, mods=x$X, intercept=FALSE, method="ML", weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE)), silent=TRUE) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=x$X, intercept=FALSE, method="ML", weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE) x <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) if (inherits(x, "try-error")) stop(mstyle$stop("Could not refit input model using method='ML'.")) } ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("time", "tau2", "beta", "skiphes", "skiphet", "skipintcheck", "scaleprec", "defmap", "mapfun", "mapinvfun", "pval", "ptable", "retopt")) ### handle 'tau2' argument from ... if (is.null(ddd$tau2)) { if (is.element(x$method, c("FE","EE","CE"))) { tau2 <- 0 } else { if (x$tau2.fix) { tau2 <- x$tau2 } else { tau2 <- NA_real_ } } } else { tau2 <- ddd$tau2 if (!is.na(tau2)) x$tau2.fix <- TRUE } ### handle 'beta' argument from ... if (is.null(ddd$beta)) { beta <- rep(NA_real_, x$p) betaspec <- FALSE # [a] sets con$scaleX=TRUE } else { beta <- ddd$beta betaspec <- TRUE # [a] sets con$scaleX=FALSE } yi <- c(x$yi) vi <- x$vi X <- x$X p <- x$p k <- x$k ### set precision measure if (!missing(prec) && !is.null(prec)) { precspec <- TRUE # used to check if prec is set for certain models where this is not applicable or experimental [b] prec <- match.arg(prec, c("sei", "vi", "ninv", "sqrtninv")) ### check if sample size information is available if prec is "ninv" or "sqrtninv" if (is.element(prec, c("ninv", "sqrtninv"))) { if (is.null(x$ni) || anyNA(x$ni)) stop(mstyle$stop("No sample size information stored in model object (or sample size information stored in model object contains NAs).")) } if (prec == "sei") preci <- sqrt(vi) if (prec == "vi") preci <- vi if (prec == "ninv") preci <- 1/x$ni if (prec == "sqrtninv") preci <- 1/sqrt(x$ni) if (is.null(ddd$scaleprec) || isTRUE(ddd$scaleprec)) preci <- preci / max(preci) } else { precspec <- FALSE prec <- NULL preci <- rep(1, k) } precis <- c(min = min(preci), max = max(preci), mean = mean(preci), median = median(preci)) ### compute p-values if (is.null(ddd$pval)) { pvals <- .selmodel.pval(yi=yi, vi=vi, alternative=alternative) } else { # can pass p-values directly to the function via 'pval' argument from ... (this is highly experimental) pvals <- ddd$pval if (length(pvals) != x$k.all) stop(mstyle$stop(paste0("Length of the 'pval' argument (", length(pvals), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) pvals <- .getsubset(pvals, x$subset) pvals <- pvals[x$not.na] if (anyNA(pvals)) stop(mstyle$stop(paste0("No missing values in 'pval' argument allowed."))) if (any(pvals <= 0) || any(pvals > 1)) stop(mstyle$stop(paste0("One or more 'pval' values are <= 0 or > 1."))) } ### checks on steps argument if (missing(steps) || (length(steps) == 1L && is.na(steps))) { stepsspec <- FALSE steps <- NA_real_ } else { stepsspec <- TRUE if (anyNA(steps)) stop(mstyle$stop("No missing values allowed in 'steps' argument.")) if (type != "trunc" && any(steps < 0 | steps > 1)) stop(mstyle$stop("Value(s) specified for 'steps' argument must be between 0 and 1.")) steps <- unique(sort(steps)) if (!is.element(type, c("trunc","beta"))) { if (steps[1] == 0) stop(mstyle$stop("Lowest 'steps' value must be > 0.")) if (steps[length(steps)] != 1) steps <- c(steps, 1) } } if (type == "trunc" && !stepsspec) { stepsspec <- TRUE #if (alternative == "greater") # steps <- min(yi) #if (alternative == "less") # steps <- max(yi) steps <- 0 } if (is.element(type, c("trunc","truncest")) && verbose > 2) { warning(mstyle$warning("Cannot use 'verbose > 2' for this type of selection model (setting verbose=2)."), call.=FALSE) verbose <- 2 } if (missing(subset)) { subset <- rep(TRUE, k) subset.spec <- FALSE } else { mf <- match.call() subset <- .getx("subset", mf=mf, data=x$data) subset <- .chksubset(subset, x$k.all) subset <- .getsubset(subset, x$subset) subset <- subset[x$not.na] subset.spec <- TRUE } ############################################################################ ### set defaults for control parameters con <- list(verbose = FALSE, delta.init = NULL, # initial value(s) for selection model parameter(s) beta.init = NULL, # initial value(s) for fixed effect(s) tau2.init = NULL, # initial value for tau^2 delta.min = NULL, # min possible value(s) for selection model parameter(s) delta.max = NULL, # max possible value(s) for selection model parameter(s) tau2.max = Inf, # max possible value for tau^2 tau2tol = min(vi/10, 1e-04), # threshold for treating tau^2 as effectively equal to 0 in the Hessian computation deltatol = 1e-04, # threshold for treating deltas as effectively equal to 0 in the Hessian computation (only for stepfun) pval.min = NULL, # minimum p-value to intergrate over (for selection models where this matters) optimizer = "optim", # optimizer to use ("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","solnp","alabama"/"constrOptim.nl"/"auglag","Rcgmin","Rvmmin") optmethod = "BFGS", # argument 'method' for optim() ("Nelder-Mead" and "BFGS" are sensible options) parallel = list(), # parallel argument for optimParallel() (note: 'cl' argument in parallel is not passed; this is directly specified via 'cl') cl = NULL, # arguments for optimParallel() ncpus = 1L, # arguments for optimParallel() hes.beta.fix = FALSE, # fix beta in Hessian computation hes.tau2.fix = FALSE, # fix tau2 in Hessian computation hes.delta.fix = FALSE, # fix delta in Hessian computation htransf = FALSE, # when FALSE, Hessian is computed directly for the delta and tau^2 estimates (e.g., we get Var(tau^2)); when TRUE, Hessian is computed for the transformed estimates (e.g., we get Var(log(tau2))) hessianCtrl=NULL, # arguments passed on to 'method.args' of hessian(); see [c] hesspack = "numDeriv", # package for computing the Hessian (numDeriv or pracma) scaleX = !betaspec) # whether non-dummy variables in the X matrix should be rescaled before model fitting [a] ### replace defaults with any user-defined values con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose optimizer <- match.arg(con$optimizer, c("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","solnp","alabama","constrOptim.nl","auglag","Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent","Rcgmin","Rvmmin")) optmethod <- match.arg(con$optmethod, c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) if (optimizer %in% c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) { optmethod <- optimizer optimizer <- "optim" } parallel <- con$parallel cl <- con$cl ncpus <- con$ncpus optcontrol <- control[is.na(con.pos)] # get arguments that are control arguments for optimizer optcontrol$intCtrl <- NULL # but remove intCtrl from this list if (length(optcontrol) == 0L) optcontrol <- list() pos.intCtrl <- pmatch(names(control), "intCtrl", nomatch=0) if (sum(pos.intCtrl) > 0) { intCtrl <- control[[which(pos.intCtrl == 1)]] } else { intCtrl <- list() } con.pos <- pmatch(names(intCtrl), "lower", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "lower" } else { intCtrl$lower <- -Inf } con.pos <- pmatch(names(intCtrl), "upper", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "upper" } else { intCtrl$upper <- Inf } con.pos <- pmatch(names(intCtrl), "subdivisions", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "subdivisions" } else { intCtrl$subdivisions <- 100L } con.pos <- pmatch(names(intCtrl), "rel.tol", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "rel.tol" } else { intCtrl$rel.tol <- .Machine$double.eps^0.25 } ### if control argument 'ncpus' is larger than 1, automatically switch to the 'optimParallel' optimizer if (ncpus > 1L) optimizer <- "optimParallel" ### can use optimizer="alabama" as a shortcut for optimizer="constrOptim.nl" if (optimizer == "alabama") optimizer <- "constrOptim.nl" ### when type="stepcon", automatically set solnp as the default optimizer if (type == "stepcon") { if (optimizer == "optim" && optmethod=="BFGS") { # this is the default optimizer <- "solnp" } else { if (!is.element(optimizer, c("solnp","nloptr","constrOptim.nl","auglag"))) { optimizer <- "solnp" warning(mstyle$warning(paste0("Can only use optimizers 'solnp', 'nloptr', 'constrOptim.nl', or 'auglag' when type='stepcon' (resetting to '", optimizer, "').")), call.=FALSE) } } } if (type != "stepcon" && optimizer == "constrOptim.nl") { # but can use solnp and nloptr optimizer <- "optim" warning(mstyle$warning(paste0("Cannot use 'constrOptim.nl' optimizer to fit this model (resetting to '", optimizer, "').")), call.=FALSE) } ### rescale X matrix (only for models with moderators and models including an intercept term) if (!x$int.only && x$int.incl && con$scaleX) { Xsave <- X meanX <- colMeans(X[, 2:p, drop=FALSE]) sdX <- apply(X[, 2:p, drop=FALSE], 2, sd) # consider using colSds() from matrixStats package is.d <- apply(X, 2, .is.dummy) # is each column a dummy variable (i.e., only 0s and 1s)? mX <- rbind(c(intrcpt=1, -1*ifelse(is.d[-1], 0, meanX/sdX)), cbind(0, diag(ifelse(is.d[-1], 1, 1/sdX), nrow=length(is.d)-1, ncol=length(is.d)-1))) X[,!is.d] <- apply(X[, !is.d, drop=FALSE], 2, scale) # rescale the non-dummy variables } ### initial value(s) for beta if (is.null(con$beta.init)) { beta.init <- c(x$beta) } else { if (length(con$beta.init) != p) stop(mstyle$stop(paste0("Length of the 'beta.init' argument (", length(con$beta.init), ") does not match the actual number of parameters (", p, ")."))) beta.init <- con$beta.init } if (!x$int.only && x$int.incl && con$scaleX) { imX <- try(suppressWarnings(solve(mX)), silent=TRUE) if (inherits(imX, "try-error")) stop(mstyle$stop("Unable to rescale starting values for the fixed effects.")) beta.init <- c(imX %*% cbind(beta.init)) } ### check that tau2.max (Inf by default) is larger than the tau^2 value tau2.max <- con$tau2.max if (x$tau2 >= con$tau2.max) stop(mstyle$stop("Value of 'tau2.max' must be > tau^2 value.")) ### initial value for tau^2 if (is.null(con$tau2.init)) { tau2.init <- log(x$tau2 + 1e-3) } else { if (length(con$tau2.init) != 1L) stop(mstyle$stop("Argument 'tau2.init' should specify a single value.")) if (con$tau2.init <= 0) stop(mstyle$stop("Value of 'tau2.init' must be > 0.")) if (con$tau2.init >= tau2.max) stop(mstyle$stop("Value of 'tau2.init' must be < 'tau2.max'.")) tau2.init <- log(con$tau2.init) } ### checks on hesspack and hessianCtrl ([c]) con$hesspack <- match.arg(con$hesspack, c("numDeriv","pracma","calculus")) if (!isTRUE(ddd$skiphes) && !requireNamespace(con$hesspack, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", con$hesspack, "' package to compute the Hessian."))) if (con$hesspack == "numDeriv") { if (is.null(con$hessianCtrl$r)) con$hessianCtrl$r <- 6 } if (con$hesspack == "pracma") { if (is.null(con$hessianCtrl$h)) con$hessianCtrl$h <- .Machine$double.eps^(1/4) } if (con$hesspack == "calculus") { if (is.null(con$hessianCtrl$accuracy)) con$hessianCtrl$accuracy <- 4 } ############################################################################ ### definition of the various selection model types # delta.lb / delta.ub: parameter space of the delta value(s) # delta.lb.excl / delta.ub.excl: whether delta must be >/< or can be >=/<= # delta.min / delta.max: limits imposed on delta for numerical reasons delta.min.check <- TRUE delta.max.check <- TRUE if (type == "beta") { if (stepsspec) { if (length(steps) != 2L) # steps should be c(alpha1,alpha2) stop(mstyle$stop("The 'steps' argument for this type of selection model should be of length 2.")) } else { steps <- c(0,1) } if (precspec) # [b] warning(mstyle$warning("Argument 'prec' ignored (not applicable to this type of selection model)."), call.=FALSE) deltas <- 2L delta.transf.fun <- c("exp", "exp") delta.transf.fun.inv <- c("log", "log") delta.lb <- c(0, 0) delta.ub <- c(Inf, Inf) delta.lb.excl <- c(TRUE, TRUE) delta.ub.excl <- c(FALSE, FALSE) delta.init <- c(1, 1) delta.min <- c(1e-05, 1e-05) delta.max <- c(100, 100) H0.delta <- c(1, 1) delta.LRT <- c(TRUE, TRUE) pval.min <- 1e-5 wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) pmin(pmax(steps[1],x),steps[2])^(delta[1]-1) * (1-pmin(pmax(steps[1],x),steps[2]))^(delta[2]-1) .selmodel.ll <- ".selmodel.ll.cont" } if (is.element(type, c("halfnorm", "negexp", "logistic", "power"))) { if (stepsspec) { if (length(steps) != 2L) # steps should be c(alpha,1) stop(mstyle$stop("Can only specify a single value for the 'steps' argument for this type of selection model.")) } else { steps <- 0 } deltas <- 1L delta.transf.fun <- "exp" delta.transf.fun.inv <- "log" delta.lb <- 0 delta.ub <- Inf delta.lb.excl <- FALSE delta.ub.excl <- FALSE delta.init <- 1 delta.min <- 0 delta.max <- 100 H0.delta <- 0 delta.LRT <- TRUE if (type == "power") { pval.min <- 1e-5 } else { pval.min <- 0 } if (type == "halfnorm") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, exp(-delta * preci * x^2) / exp(-delta * preci * steps[1]^2)) #pmin(1, exp(-delta * preci * x^2) / exp(-delta * preci * steps[1]^2)) } if (type == "negexp") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, exp(-delta * preci * x) / exp(-delta * preci * steps[1])) } if (type == "logistic") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (2 * exp(-delta * preci * x) / (1 + exp(-delta * preci * x))) / (2 * exp(-delta * preci * steps[1]) / (1 + exp(-delta * preci * steps[1])))) } if (type == "power") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (1-x)^(preci*delta) / (1-steps[1])^(preci*delta)) } .selmodel.ll <- ".selmodel.ll.cont" } if (is.element(type, c("halfnorm1", "negexp1", "logistic1", "power1"))) { if (stepsspec) { if (length(steps) != 2L) # steps should be c(alpha,1) stop(mstyle$stop("Can only specify a single value for the 'steps' argument for this type of selection model.")) } else { steps <- 0 } deltas <- 1L delta.transf.fun <- "exp" delta.transf.fun.inv <- "log" delta.lb <- 0 delta.ub <- Inf delta.lb.excl <- FALSE delta.ub.excl <- FALSE delta.init <- 1 delta.min <- 0 delta.max <- 100 H0.delta <- 0 delta.LRT <- TRUE if (type == "power") { pval.min <- 1e-5 } else { pval.min <- 0 } if (type == "halfnorm1") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, exp(-delta * preci * ((x-steps[1])/(1-steps[1]))^2)) } if (type == "negexp1") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, exp(-delta * preci * ((x-steps[1])/(1-steps[1])))) } if (type == "logistic1") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (2 * exp(-delta * preci * ((x-steps[1])/(1-steps[1]))) / (1 + exp(-delta * preci * ((x-steps[1])/(1-steps[1])))))) } if (type == "power1") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (1-((x-steps[1])/(1-steps[1])))^(preci*delta)) } .selmodel.ll <- ".selmodel.ll.cont" } if (type == "negexppow") { if (stepsspec) { if (length(steps) != 2L) # steps should be c(alpha,1) stop(mstyle$stop("Can only specify a single value for the 'steps' argument for this type of selection model.")) } else { steps <- 0 } deltas <- 2L delta.transf.fun <- c("exp", "exp") delta.transf.fun.inv <- c("log", "log") delta.lb <- c(0, 0) delta.ub <- c(Inf, Inf) delta.lb.excl <- c(FALSE, FALSE) delta.ub.excl <- c(FALSE, FALSE) delta.init <- c(1, 1) delta.min <- c(0, 0) delta.max <- c(100, 100) H0.delta <- c(0, 0) delta.LRT <- c(TRUE, TRUE) pval.min <- 0 wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, exp(-delta[1] * preci * x^(1/delta[2])) / exp(-delta[1] * preci * steps[1]^(1/delta[2]))) .selmodel.ll <- ".selmodel.ll.cont" } if (is.element(type, c("halfnorm2", "negexp2", "logistic2", "power2"))) { if (stepsspec) { if (length(steps) != 2L) # steps should be c(alpha,1) stop(mstyle$stop("Can only specify a single value for the 'steps' argument for this type of selection model.")) } else { steps <- 0 } deltas <- 2L delta.transf.fun <- c("exp", "exp") delta.transf.fun.inv <- c("log", "log") delta.lb <- c(0,0) delta.ub <- c(Inf, Inf) delta.lb.excl <- c(FALSE, FALSE) delta.ub.excl <- c(FALSE, FALSE) delta.init <- c(1, 0.25) delta.min <- c(0, 0) delta.max <- c(100, 100) H0.delta <- c(0, 0) delta.LRT <- c(TRUE, TRUE) pval.min <- 0 if (type == "halfnorm2") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (delta[1] + exp(-delta[2] * preci * x^2) / exp(-delta[2] * preci * steps[1]^2)) / (1 + delta[1])) } if (type == "negexp2") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (delta[1] + exp(-delta[2] * preci * x) / exp(-delta[2] * preci * steps[1])) / (1 + delta[1])) } if (type == "logistic2") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (delta[1] + (2 * exp(-delta[2] * preci * x) / (1 + exp(-delta[2] * preci * x))) / (2 * exp(-delta[2] * preci * steps[1]) / (1 + exp(-delta[2] * preci * steps[1])))) / (1 + delta[1])) } if (type == "power2") { wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) ifelse(x <= steps[1], 1, (delta[1] + (1-x)^(preci*delta[2]) / (1-steps[1])^(preci*delta[2])) / (1 + delta[1])) } .selmodel.ll <- ".selmodel.ll.cont" } if (type == "stepfun") { if (!stepsspec) stop(mstyle$stop("Must specify the 'steps' argument for this type of selection model.")) if (precspec) { # [b] if (decreasing) { warning(mstyle$warning("Argument 'prec' ignored (not applicable to this type of selection model)."), call.=FALSE) preci <- rep(1, k) } else { warning(mstyle$warning("Adding a precision measure to this selection model is undocumented and experimental."), call.=FALSE) } } deltas <- length(steps) if (decreasing) { delta.transf.fun <- rep("I", deltas) delta.transf.fun.inv <- rep("I", deltas) ddd$defmap <- TRUE # actual mapping is defined directly in .selmodel.ll.stepfun() for this special case if (isTRUE(con$htransf)) stop(mstyle$stop("Cannot use 'htransf=TRUE' for this type of selection model.")) #delta.lb <- rep(0, deltas) #delta.ub <- rep(1, deltas) delta.lb <- c(0, rep(-Inf, deltas-1)) delta.ub <- c(1, rep( Inf, deltas-1)) delta.lb.excl <- rep(FALSE, deltas) delta.ub.excl <- rep(FALSE, deltas) #delta.init <- rep(1, deltas) delta.init <- c(1, rep(-2, deltas-1)) delta.min <- rep(0, deltas) delta.max <- rep(1, deltas) delta.max.check <- FALSE } else { delta.transf.fun <- rep("exp", deltas) delta.transf.fun.inv <- rep("log", deltas) delta.lb <- rep(0, deltas) delta.ub <- rep(Inf, deltas) delta.lb.excl <- rep(FALSE, deltas) delta.ub.excl <- rep(FALSE, deltas) delta.init <- seq(1, 0.8, length.out=deltas) delta.min <- rep(0, deltas) delta.max <- rep(100, deltas) } H0.delta <- rep(1, deltas) delta.LRT <- rep(TRUE, deltas) # note: delta[1] should actually not be included in the LRT, but gets constrained to 1 below anyway pval.min <- 0 wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) delta[sapply(x, function(p) which(p <= steps)[1])] / preci .selmodel.ll <- ".selmodel.ll.stepfun" } if (type == "stepcon") { if (!stepsspec) stop(mstyle$stop("Must specify the 'steps' argument for this type of selection model.")) if (precspec) { # [b] warning(mstyle$warning("Argument 'prec' ignored (not applicable to this type of selection model)."), call.=FALSE) preci <- rep(1, k) } deltas <- length(steps) delta.transf.fun <- rep("plogis", deltas) delta.transf.fun.inv <- rep("qlogis", deltas) delta.lb <- rep(0, deltas) delta.ub <- rep(1, deltas) delta.lb.excl <- rep(FALSE, deltas) delta.ub.excl <- rep(FALSE, deltas) delta.init <- seq(1, 0.5, length.out=deltas) delta.min <- rep(0, deltas) delta.max <- rep(1, deltas) delta.max.check <- FALSE H0.delta <- rep(1, deltas) delta.LRT <- rep(TRUE, deltas) # note: delta[1] should actually not be included in the LRT, but gets constrained to 1 below anyway pval.min <- 0 wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) delta[sapply(x, function(p) which(p <= steps)[1])] / preci .selmodel.ll <- ".selmodel.ll.stepfun" } if (type == "trunc") { if (length(steps) != 1L) # steps should be a single value stop(mstyle$stop("Can only specify a single value for the 'steps' argument for this type of selection model.")) if (precspec) # [b] warning(mstyle$warning("Argument 'prec' ignored (not applicable to this type of selection model)."), call.=FALSE) deltas <- 1L delta.transf.fun <- "exp" delta.transf.fun.inv <- "log" delta.lb <- 0 delta.ub <- Inf delta.lb.excl <- FALSE delta.ub.excl <- FALSE delta.init <- 1 delta.min <- 0 delta.max <- 100 H0.delta <- 1 delta.LRT <- TRUE pval.min <- 0 wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) { if (alternative == "less") { yival <- qnorm(x, sd=sqrt(vi), lower.tail=TRUE) ifelse(yival < steps[1], 1, delta) } else { yival <- qnorm(x, sd=sqrt(vi), lower.tail=FALSE) ifelse(yival > steps[1], 1, delta) } } #.selmodel.ll <- ".selmodel.ll.cont" .selmodel.ll <- ".selmodel.ll.trunc" } if (type == "truncest") { if (stepsspec) warning(mstyle$warning("Argument 'steps' ignored (not applicable to this type of selection model)."), call.=FALSE) stepsspec <- FALSE steps <- NA_real_ if (precspec) # [b] warning(mstyle$warning("Argument 'prec' ignored (not applicable to this type of selection model)."), call.=FALSE) deltas <- 2L delta.transf.fun <- c("exp", "I") delta.transf.fun.inv <- c("log", "I") delta.lb <- c(0, -Inf) delta.ub <- c(Inf, Inf) delta.lb.excl <- c(FALSE, FALSE) delta.ub.excl <- c(FALSE, FALSE) delta.init <- c(1, mean(yi)) delta.min <- c(0, ifelse(alternative=="greater", min(yi)-sd(yi), min(yi))) delta.max <- c(100, ifelse(alternative=="greater", max(yi), max(yi)+sd(yi))) H0.delta <- c(1, 0) delta.LRT <- c(TRUE, FALSE) pval.min <- 0 wi.fun <- function(x, delta, yi, vi, preci, alternative, steps) { if (alternative == "less") { yival <- qnorm(x, sd=sqrt(vi), lower.tail=TRUE) ifelse(yival < delta[2], 1, delta[1]) } else { yival <- qnorm(x, sd=sqrt(vi), lower.tail=FALSE) ifelse(yival > delta[2], 1, delta[1]) } } #.selmodel.ll <- ".selmodel.ll.cont" .selmodel.ll <- ".selmodel.ll.trunc" } ############################################################################ ### checks on delta, delta.min, delta.max, and delta.init if (missing(delta)) { delta <- rep(NA_real_, deltas) } else { delta <- .expand1(delta, deltas) if (length(delta) != deltas) stop(mstyle$stop(paste0("Argument 'delta' should be of length ", deltas, " for this type of selection model."))) for (j in seq_len(deltas)) { if (delta.lb.excl[j] && isTRUE(delta[j] <= delta.lb[j])) stop(mstyle$stop(paste0("Value of 'delta[", j, "]' must be > ", delta.lb[j], " for this type of selection model."))) if (!delta.lb.excl[j] && isTRUE(delta[j] < delta.lb[j])) stop(mstyle$stop(paste0("Value of 'delta[", j, "]' must be >= ", delta.lb[j], " for this type of selection model."))) } for (j in seq_len(deltas)) { if (delta.ub.excl[j] && isTRUE(delta[j] >= delta.ub[j])) stop(mstyle$stop(paste0("Value of 'delta[", j, "]' must be < ", delta.ub[j], " for this type of selection model."))) if (!delta.ub.excl[j] && isTRUE(delta[j] > delta.ub[j])) stop(mstyle$stop(paste0("Value of 'delta[", j, "]' must be <= ", delta.ub[j], " for this type of selection model."))) } } if (type == "stepfun") { if (decreasing) { delta[1] <- 1 } else if (is.na(delta[1])) { delta[1] <- 1 } } if (type == "stepcon") delta[1] <- 1 if (!is.null(con$delta.min)) delta.min <- con$delta.min delta.min <- .expand1(delta.min, deltas) if (length(delta.min) != deltas) stop(mstyle$stop(paste0("Argument 'delta.min' should be of length ", deltas, " for this type of selection model."))) if (anyNA(delta.min)) stop(mstyle$stop("No missing values allowed in 'delta.min'.")) for (j in seq_len(deltas)) { if (delta.lb.excl[j] && delta.min[j] <= delta.lb[j]) stop(mstyle$stop(paste0("Value of 'delta.min[", j, "]' must be > ", delta.lb[j], " for this type of selection model."))) if (!delta.lb.excl[j] && delta.min[j] < delta.lb[j]) stop(mstyle$stop(paste0("Value of 'delta.min[", j, "]' must be >= ", delta.lb[j], " for this type of selection model."))) } for (j in seq_len(deltas)) { if (delta.ub.excl[j] && delta.min[j] >= delta.ub[j]) stop(mstyle$stop(paste0("Value of 'delta.min[", j, "]' must be < ", delta.ub[j], " for this type of selection model."))) if (!delta.ub.excl[j] && delta.min[j] > delta.ub[j]) stop(mstyle$stop(paste0("Value of 'delta.min[", j, "]' must be <= ", delta.ub[j], " for this type of selection model."))) } delta.min <- ifelse(!is.na(delta) & delta.min > delta, delta - .Machine$double.eps^0.2, delta.min) if (!is.null(con$delta.max)) delta.max <- con$delta.max delta.max <- .expand1(delta.max, deltas) if (length(delta.max) != deltas) stop(mstyle$stop(paste0("Argument 'delta.max' should be of length ", deltas, " for this type of selection model."))) if (anyNA(delta.max)) stop(mstyle$stop("No missing values allowed in 'delta.max'.")) for (j in seq_len(deltas)) { if (delta.lb.excl[j] && delta.max[j] <= delta.lb[j]) stop(mstyle$stop(paste0("Value of 'delta.max[", j, "]' must be > ", delta.lb[j], " for this type of selection model."))) if (!delta.lb.excl[j] && delta.max[j] < delta.lb[j]) stop(mstyle$stop(paste0("Value of 'delta.max[", j, "]' must be >= ", delta.lb[j], " for this type of selection model."))) } for (j in seq_len(deltas)) { if (delta.ub.excl[j] && delta.max[j] >= delta.ub[j]) stop(mstyle$stop(paste0("Value of 'delta.max[", j, "]' must be < ", delta.ub[j], " for this type of selection model."))) if (!delta.ub.excl[j] && delta.max[j] > delta.ub[j]) stop(mstyle$stop(paste0("Value of 'delta.max[", j, "]' must be <= ", delta.ub[j], " for this type of selection model."))) } if (any(delta.max < delta.min)) stop(mstyle$stop("Value(s) of 'delta.max' must be >= value(s) of 'delta.min'.")) delta.max <- ifelse(!is.na(delta) & delta.max < delta, delta + .Machine$double.eps^0.2, delta.max) if (!is.null(con$delta.init)) delta.init <- con$delta.init delta.init <- .expand1(delta.init, deltas) if (length(delta.init) != deltas) stop(mstyle$stop(paste0("Argument 'delta.init' should be of length ", deltas, " for this type of selection model."))) if (anyNA(delta.init)) stop(mstyle$stop("No missing values allowed in 'delta.init'.")) for (j in seq_len(deltas)) { if (delta.lb.excl[j] && delta.init[j] <= delta.lb[j]) stop(mstyle$stop(paste0("Value of 'delta.init[", j, "]' must be > ", delta.lb[j], " for this type of selection model."))) if (!delta.lb.excl[j] && delta.init[j] < delta.lb[j]) stop(mstyle$stop(paste0("Value of 'delta.init[", j, "]' must be >= ", delta.lb[j], " for this type of selection model."))) } for (j in seq_len(deltas)) { if (delta.ub.excl[j] && delta.init[j] >= delta.ub[j]) stop(mstyle$stop(paste0("Value of 'delta.init[", j, "]' must be < ", delta.ub[j], " for this type of selection model."))) if (!delta.ub.excl[j] && delta.init[j] > delta.ub[j]) stop(mstyle$stop(paste0("Value of 'delta.init[", j, "]' must be <= ", delta.ub[j], " for this type of selection model."))) } # when ddd$defmap=TRUE or any delta.max value is infinity, use the default mapping functions defined # above for the various models (note that this will not be the case with the default settings); # otherwise use .mapfun() / .mapinvfun() or the functions passed via ddd$mapfun / ddd$mapinvfun if (isTRUE(ddd$defmap) || any(is.infinite(delta.max))) { ddd$mapfun <- delta.transf.fun ddd$mapinvfun <- delta.transf.fun.inv } if (is.null(ddd$mapfun)) { mapfun <- rep(NA, deltas) } else { if (length(ddd$mapfun) == 1L) { # note: mapfun must be given as character string mapfun <- rep(ddd$mapfun, deltas) } else { mapfun <- ddd$mapfun } } if (is.null(ddd$mapinvfun)) { mapinvfun <- rep(NA, deltas) } else { if (length(ddd$mapinvfun) == 1L) { # note: mapinvfun must be given as character string mapinvfun <- rep(ddd$mapinvfun, deltas) } else { mapinvfun <- ddd$mapinvfun } } ### force use of certain transformation functions for mapfunv / mapinvfun for some special cases if (type == "truncest") { mapfun[2] <- "I" mapinvfun[2] <- "I" } ### remap initial delta values (except for the fixed ones) delta.init <- mapply(.mapinvfun, delta.init, delta.min, delta.max, mapinvfun) delta.init <- ifelse(is.na(delta), delta.init, delta) if (!is.null(con$pval.min)) pval.min <- con$pval.min if (subset.spec) { if (sum(subset) < p + ifelse(is.element(x$method, c("FE","EE","CE")) || x$tau2.fix, 0, 1) + sum(is.na(delta))) stop(mstyle$stop(paste0("Number of studies (k_subset=", sum(subset), ") is too small to fit the selection model."))) } else { if (k < p + ifelse(is.element(x$method, c("FE","EE","CE")) || x$tau2.fix, 0, 1) + sum(is.na(delta))) stop(mstyle$stop(paste0("Number of studies (k=", k, ") is too small to fit the selection model."))) } ############################################################################ pvals[pvals < pval.min] <- pval.min pvals[pvals > 1-pval.min] <- 1-pval.min if (type != "trunc" && stepsspec) { tmp <- .ptable(pvals, steps, subset) pgrp <- tmp$pgrp ptable <- tmp$ptable if (isTRUE(ddd$ptable)) return(ptable) if (any(ptable[["k"]] == 0L)) { if (!isTRUE(ddd$skipintcheck) && type == "stepfun" && anyNA(delta[-1])) warning(mstyle$warning(paste0("One or more intervals do not contain any observed p-values.")), call.=FALSE) if (!isTRUE(ddd$skipintcheck) && type != "stepfun") warning(mstyle$warning(paste0("One of the intervals does not contain any observed p-values.")), call.=FALSE) } } else { pgrp <- NA ptable <- NA } ############################################################################ ### model fitting if (verbose > 1) message(mstyle$message("\nModel fitting ...\n")) tmp <- .chkopt(optimizer, optcontrol, ineq=type=="stepcon") optimizer <- tmp$optimizer optcontrol <- tmp$optcontrol par.arg <- tmp$par.arg ctrl.arg <- tmp$ctrl.arg ### set up default cluster when using optimParallel if (optimizer == "optimParallel::optimParallel") { parallel$cl <- NULL if (is.null(cl)) { ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Control argument 'ncpus' must be >= 1.")) cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } else { if (!inherits(cl, "SOCKcluster")) stop(mstyle$stop("Specified cluster is not of class 'SOCKcluster'.")) } parallel$cl <- cl if (is.null(parallel$forward)) parallel$forward <- FALSE if (is.null(parallel$loginfo)) { if (verbose) { parallel$loginfo <- TRUE } else { parallel$loginfo <- FALSE } } } if (type == "stepcon") { if (optimizer == "Rsolnp::solnp") optcall <- paste0("Rsolnp::solnp(pars=c(beta.init, tau2.init, delta.init), fun=.selmodel.ll.stepfun, ineqfun=.rma.selmodel.ineqfun.pos, ineqLB=rep(0,deltas-1), ineqUB=rep(1,deltas-1), yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=verbose, digits=digits, dofit=FALSE", ctrl.arg, ")\n") if (optimizer == "nloptr::nloptr") optcall <- paste0("nloptr::nloptr(x0=c(beta.init, tau2.init, delta.init), eval_f=.selmodel.ll.stepfun, eval_g_ineq=.rma.selmodel.ineqfun.neg, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=verbose, digits=digits, dofit=FALSE", ctrl.arg, ")\n") if (is.element(optimizer, c("alabama::constrOptim.nl","alabama::auglag"))) optcall <- paste0(optimizer, "(par=c(beta.init, tau2.init, delta.init), fn=.selmodel.ll.stepfun, hin=.rma.selmodel.ineqfun.pos, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=verbose, digits=digits, dofit=FALSE", ctrl.arg, ")\n") } else { optcall <- paste0(optimizer, "(", par.arg, "=c(beta.init, tau2.init, delta.init), ", .selmodel.ll, ", ", ifelse(optimizer=="optim", "method=optmethod, ", ""), "yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=verbose, digits=digits, dofit=FALSE", ctrl.arg, ")\n") } #return(optcall) .start.plot(verbose > 2) if (verbose) { opt.res <- try(eval(str2lang(optcall)), silent=!verbose) } else { opt.res <- try(suppressWarnings(eval(str2lang(optcall))), silent=!verbose) } if (isTRUE(ddd$retopt)) return(opt.res) ### convergence checks (if verbose print optimParallel log, if verbose > 2 print opt.res, and unify opt.res$par) opt.res$par <- .chkconv(optimizer=optimizer, opt.res=opt.res, optcontrol=optcontrol, fun="selmodel", verbose=verbose) ### estimates/values of tau2 and delta on the transformed scale tau2.transf <- opt.res$par[p+1] delta.transf <- opt.res$par[(p+2):(p+1+deltas)] ### save for Hessian computation beta.arg <- beta tau2.arg <- tau2 delta.arg <- delta ### do the final model fit with estimated values fitcall <- paste0(.selmodel.ll, "(par=opt.res$par, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=FALSE, digits=digits, dofit=TRUE)\n") #return(fitcall) fitcall <- try(eval(str2lang(fitcall)), silent=!verbose) #return(fitcall) if (inherits(fitcall, "try-error")) stop(mstyle$stop("Error during the optimization. Use verbose=TRUE and see help(selmodel) for more details on the optimization routines.")) ll <- fitcall$ll beta <- cbind(fitcall$beta) tau2 <- fitcall$tau2 delta <- fitcall$delta if ((delta.min.check && any(is.na(delta.arg) & delta <= delta.min + .Machine$double.eps^0.25)) || (delta.max.check && any(is.na(delta.arg) & delta >= delta.max - 100*.Machine$double.eps^0.25))) warning(mstyle$warning("One or more 'delta' estimates are (almost) equal to their lower or upper bound.\nTreat results with caution (or consider adjusting 'delta.min' and/or 'delta.max')."), call.=FALSE) ############################################################################ ### computing the Hessian and its inverse H <- NA_real_ vb <- matrix(NA_real_, nrow=p, ncol=p) se.tau2 <- NA_real_ vd <- matrix(NA_real_, nrow=deltas, ncol=deltas) if (con$hes.beta.fix) { beta.hes <- c(beta) } else { beta.hes <- beta.arg } if (con$hes.tau2.fix || tau2 < con$tau2tol) { tau2.hes <- tau2 } else { tau2.hes <- tau2.arg } if (con$hes.delta.fix) { delta.hes <- delta } else { if (type == "stepfun") { delta.hes <- ifelse(delta < con$deltatol, delta, delta.arg) } else { delta.hes <- delta.arg } } hest <- c(is.na(beta.hes), is.na(tau2.hes), is.na(delta.hes)) if (any(hest) && !isTRUE(ddd$skiphes)) { if (verbose > 1) message(mstyle$message("\nComputing the Hessian ...")) if (verbose > 3) cat("\n") if (con$htransf) { # TODO: document these two possibilities? if (con$hesspack == "numDeriv") hescall <- paste0("numDeriv::hessian(", .selmodel.ll, ", x=opt.res$par, method.args=con$hessianCtrl, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.hes, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2.hes, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta.hes, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=ifelse(verbose > 3, verbose, 0), digits=digits)\n") if (con$hesspack == "pracma") hescall <- paste0("pracma::hessian(", .selmodel.ll, ", x0=opt.res$par, h=con$hessianCtrl$h, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.hes, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2.hes, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta.hes, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=ifelse(verbose > 3, verbose, 0), digits=digits)\n") if (con$hesspack == "calculus") hescall <- paste0("calculus::hessian(", .selmodel.ll, ", var=c(opt.res$par), accuracy=con$hessianCtrl$accuracy, stepsize=con$hessianCtrl$stepsize, params=list(yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.hes, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2.hes, tau2.transf=TRUE, tau2.max=tau2.max, beta.arg=beta.hes, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=ifelse(verbose > 3, verbose, 0), digits=digits))\n") } else { ### this is the default if (con$hesspack == "numDeriv") hescall <- paste0("numDeriv::hessian(", .selmodel.ll, ", x=c(beta, tau2, delta), method.args=con$hessianCtrl, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.hes, delta.transf=FALSE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2.hes, tau2.transf=FALSE, tau2.max=tau2.max, beta.arg=beta.hes, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=ifelse(verbose > 3, verbose, 0), digits=digits)\n") if (con$hesspack == "pracma") hescall <- paste0("pracma::hessian(", .selmodel.ll, ", x0=c(beta, tau2, delta), h=con$hessianCtrl$h, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.hes, delta.transf=FALSE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2.hes, tau2.transf=FALSE, tau2.max=tau2.max, beta.arg=beta.hes, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=ifelse(verbose > 3, verbose, 0), digits=digits)\n") if (con$hesspack == "calculus") hescall <- paste0("calculus::hessian(", .selmodel.ll, ", var=c(beta, tau2, delta), accuracy=con$hessianCtrl$accuracy, stepsize=con$hessianCtrl$stepsize, params=list(yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.hes, delta.transf=FALSE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=tau2.hes, tau2.transf=FALSE, tau2.max=tau2.max, beta.arg=beta.hes, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=ifelse(verbose > 3, verbose, 0), digits=digits))\n") } #return(hescall) H <- try(eval(str2lang(hescall)), silent=TRUE) #return(H) if (verbose > 3) cat("\n") if (inherits(H, "try-error")) { warning(mstyle$warning("Error when trying to compute the Hessian."), call.=FALSE) } else { if (deltas == 1L) { rownames(H) <- colnames(H) <- c(colnames(X), "tau2", "delta") } else { rownames(H) <- colnames(H) <- c(colnames(X), "tau2", paste0("delta.", seq_len(deltas))) } H.hest <- H[hest, hest, drop=FALSE] iH.hest <- try(suppressWarnings(chol2inv(chol(H.hest))), silent=TRUE) if (inherits(iH.hest, "try-error") || anyNA(iH.hest) || any(is.infinite(iH.hest))) { warning(mstyle$warning("Error when trying to invert the Hessian."), call.=FALSE) } else { iH <- matrix(0, nrow=length(hest), ncol=length(hest)) iH[hest, hest] <- iH.hest if (anyNA(beta.hes)) vb[is.na(beta.hes), is.na(beta.hes)] <- iH[c(is.na(beta.hes),FALSE,rep(FALSE,deltas)), c(is.na(beta.hes),FALSE,rep(FALSE,deltas)), drop=FALSE] if (is.na(tau2.hes)) se.tau2 <- sqrt(iH[c(rep(FALSE,p),TRUE,rep(FALSE,deltas)), c(rep(FALSE,p),TRUE,rep(FALSE,deltas))]) if (anyNA(delta.hes)) vd[is.na(delta.hes), is.na(delta.hes)] <- iH[c(rep(FALSE,p),FALSE,is.na(delta.hes)), c(rep(FALSE,p),FALSE,is.na(delta.hes)), drop=FALSE] } } } ############################################################################ ### Wald-type tests of the fixed effects if (verbose > 1) message(mstyle$message("Conducting the tests of the fixed effects ...")) ### scale back beta and vb if (!x$int.only && x$int.incl && con$scaleX) { beta <- mX %*% beta vb <- mX %*% vb %*% t(mX) X <- Xsave } ### QM calculation QM <- try(as.vector(t(beta)[x$btt] %*% chol2inv(chol(vb[x$btt,x$btt])) %*% beta[x$btt]), silent=TRUE) if (inherits(QM, "try-error")) QM <- NA_real_ QMp <- pchisq(QM, df=x$m, lower.tail=FALSE) rownames(beta) <- rownames(vb) <- colnames(vb) <- colnames(X) se <- sqrt(diag(vb)) names(se) <- NULL ### inference for beta parameters zval <- c(beta/se) pval <- 2*pnorm(abs(zval), lower.tail=FALSE) crit <- qnorm(x$level/2, lower.tail=FALSE) ci.lb <- c(beta - crit * se) ci.ub <- c(beta + crit * se) ### inference for delta parameters se.delta <- sqrt(diag(vd)) if (con$htransf) { zval.delta <- rep(NA_real_, deltas) pval.delta <- rep(NA_real_, deltas) ci.lb.delta <- c(delta.transf - crit * se.delta) ci.ub.delta <- c(delta.transf + crit * se.delta) ci.lb.delta <- mapply(.mapfun, ci.lb.delta, delta.min, delta.max, mapfun) ci.ub.delta <- mapply(.mapfun, ci.ub.delta, delta.min, delta.max, mapfun) vd <- matrix(NA_real_, nrow=deltas, ncol=deltas) se.delta <- rep(NA_real_, deltas) } else { zval.delta <- (delta - H0.delta) / se.delta pval.delta <- 2*pnorm(abs(zval.delta), lower.tail=FALSE) ci.lb.delta <- c(delta - crit * se.delta) ci.ub.delta <- c(delta + crit * se.delta) } ### impose constraints on the CI bounds for the delta value(s) ci.lb.delta <- ifelse(ci.lb.delta < delta.lb, delta.lb, ci.lb.delta) ci.ub.delta <- ifelse(ci.ub.delta > delta.ub, delta.ub, ci.ub.delta) ci.lb.delta <- ifelse(ci.lb.delta < delta.min, delta.min, ci.lb.delta) ci.ub.delta <- ifelse(ci.ub.delta > delta.max, delta.max, ci.ub.delta) ### inference for tau^2 parameter if (con$htransf) { ci.lb.tau2 <- exp(tau2.transf - crit * se.tau2) # tau2.transf = log(tau^2) and se.tau2 = SE[log(tau^2)] ci.ub.tau2 <- exp(tau2.transf + crit * se.tau2) se.tau2 <- se.tau2 * exp(tau2.transf) # delta method } else { ci.lb.tau2 <- tau2 - crit * se.tau2 ci.ub.tau2 <- tau2 + crit * se.tau2 } ci.lb.tau2[ci.lb.tau2 < 0] <- 0 ############################################################################ ### LRT for H0: tau^2 = 0 (only when NOT fitting a FE model) LRT.tau2 <- NA_real_ LRTp.tau2 <- NA_real_ if (!x$tau2.fix && !is.element(x$method, c("FE","EE","CE")) && !isTRUE(ddd$skiphet)) { if (verbose > 1) message(mstyle$message("Conducting the heterogeneity test ...")) if (verbose > 4) cat("\n") optcall <- paste0(optimizer, "(", par.arg, "=c(beta.init, tau2.init, delta.init), ", .selmodel.ll, ", ", ifelse(optimizer=="optim", "method=optmethod, ", ""), "yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.arg, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=0, tau2.transf=FALSE, tau2.max=tau2.max, beta.arg=beta.arg, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=ifelse(verbose > 4, verbose, 0), digits=digits", ctrl.arg, ")\n") opt.res <- try(eval(str2lang(optcall)), silent=!verbose) if (verbose > 4) cat("\n") if (!inherits(opt.res, "try-error")) { fitcall <- paste0(.selmodel.ll, "(par=opt.res$par, yi=yi, vi=vi, X=X, preci=preci, subset=subset, k=k, pX=p, pvals=pvals, deltas=deltas, delta.arg=delta.arg, delta.transf=TRUE, mapfun=mapfun, delta.min=delta.min, delta.max=delta.max, decreasing=decreasing, tau2.arg=0, tau2.transf=FALSE, tau2.max=tau2.max, beta.arg=beta.arg, wi.fun=wi.fun, steps=steps, pgrp=pgrp, alternative=alternative, pval.min=pval.min, intCtrl=intCtrl, verbose=FALSE, digits=digits, dofit=TRUE)\n") fitcall <- try(eval(str2lang(fitcall)), silent=!verbose) if (!inherits(fitcall, "try-error")) { ll0 <- fitcall$ll LRT.tau2 <- max(0, -2 * (ll0 - ll)) LRTp.tau2 <- pchisq(LRT.tau2, df=1, lower.tail=FALSE) } } } ############################################################################ ### LRT for selection model parameter(s) if (verbose > 1) message(mstyle$message("Conducting the LRT for the selection model parameter(s) ...")) ll0 <- c(logLik(x, REML=FALSE)) LRT <- max(0, -2 * (ll0 - ll)) LRTdf <- sum(is.na(delta.arg) & delta.LRT) LRTp <- ifelse(LRTdf > 0, pchisq(LRT, df=LRTdf, lower.tail=FALSE), NA_real_) ############################################################################ ### fit statistics if (verbose > 1) message(mstyle$message("Computing fit statistics and log-likelihood ...")) ### note: tau2 and delta are not counted as parameters when they were fixed by the user parms <- p + ifelse(is.element(x$method, c("FE","EE","CE")) || x$tau2.fix, 0, 1) + sum(is.na(delta.arg)) ll.ML <- ll dev.ML <- -2 * ll.ML AIC.ML <- -2 * ll.ML + 2*parms BIC.ML <- -2 * ll.ML + parms * log(k) AICc.ML <- -2 * ll.ML + 2*parms * max(k, parms+2) / (max(k, parms+2) - parms - 1) fit.stats <- matrix(c(ll.ML, dev.ML, AIC.ML, BIC.ML, AICc.ML, ll.REML=NA_real_, dev.REML=NA_real_, AIC.REML=NA_real_, BIC.REML=NA_real_, AICc.REML=NA_real_), ncol=2, byrow=FALSE) dimnames(fit.stats) <- list(c("ll","dev","AIC","BIC","AICc"), c("ML","REML")) fit.stats <- data.frame(fit.stats) ############################################################################ ### prepare output if (verbose > 1) message(mstyle$message("Preparing the output ...")) res <- x res$beta <- res$b <- beta res$se <- se res$zval <- zval res$pval <- pval res$ci.lb <- ci.lb res$ci.ub <- ci.ub res$vb <- vb res$betaspec <- betaspec res$tau2 <- res$tau2.f <- tau2 res$se.tau2 <- se.tau2 res$ci.lb.tau2 <- ci.lb.tau2 res$ci.ub.tau2 <- ci.ub.tau2 res$dfs <- res$ddf <- NA_integer_ res$test <- "z" res$s2w <- 1 res$QE <- res$QEp <- NA_real_ res$I2 <- res$H2 <- res$vt <- NA_real_ res$R2 <- NULL res$QM <- QM res$QMp <- QMp res$delta <- delta res$vd <- vd res$se.delta <- se.delta res$zval.delta <- zval.delta res$pval.delta <- pval.delta res$ci.lb.delta <- ci.lb.delta res$ci.ub.delta <- ci.ub.delta res$deltas <- deltas res$delta.fix <- !is.na(delta.arg) res$hessian <- H res$hest <- hest res$ll <- ll res$ll0 <- ll0 res$LRT <- LRT res$LRTdf <- LRTdf res$LRTp <- LRTp res$LRT.tau2 <- LRT.tau2 res$LRTp.tau2 <- LRTp.tau2 res$M <- .diag(vi + tau2) res$model <- "rma.uni.selmodel" res$parms <- parms res$fit.stats <- fit.stats res$pvals <- pvals res$digits <- digits res$verbose <- verbose res$type <- type res$steps <- steps res$decreasing <- decreasing res$stepsspec <- stepsspec res$pgrp <- pgrp res$ptable <- ptable res$k0 <- sum(!subset) res$k1 <- sum(subset) res$alternative <- alternative res$pval.min <- pval.min res$prec <- prec res$precspec <- precspec res$precis <- precis res$scaleprec <- ddd$scaleprec res$wi.fun <- wi.fun res$delta.lb <- delta.lb res$delta.ub <- delta.ub res$delta.lb.excl <- delta.lb.excl res$delta.ub.excl <- delta.ub.excl res$delta.min <- delta.min res$delta.max <- delta.max res$tau2.max <- tau2.max res$call <- match.call() res$control <- control res$defmap <- ddd$defmap res$mapfun <- ddd$mapfun res$mapinvfun <- ddd$mapinvfun time.end <- proc.time() res$time <- unname(time.end - time.start)[3] if (isTRUE(ddd$time)) .print.time(res$time) if (verbose || isTRUE(ddd$time)) cat("\n") class(res) <- c("rma.uni.selmodel", class(res)) return(res) } metafor/R/weights.rma.glmm.r0000644000176200001440000000021315120213572015450 0ustar liggesusersweights.rma.glmm <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.glmm", notav="rma.glmm") } metafor/R/predict.rma.ls.r0000644000176200001440000005550515161227356015142 0ustar liggesuserspredict.rma.ls <- function(object, newmods, intercept, addx=FALSE, newscale, addz=FALSE, level, adjust=FALSE, digits, transf, targs, vcov=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(object), must="rma.ls") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) x <- object mf <- match.call() # so that pairmat() works when the model object is not specified if (any(grepl("pairmat(", as.character(mf), fixed=TRUE))) { try(assign("pairmat", object, envir=.metafor), silent=TRUE) on.exit(suppressWarnings(rm("pairmat", envir=.metafor))) } if (missing(newmods)) newmods <- NULL if (missing(intercept)) { int.spec <- FALSE } else { int.spec <- TRUE } if (missing(newscale)) newscale <- NULL if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL level <- .level(level) if (!is.logical(adjust)) stop(mstyle$stop("Argument 'adjust' must be a logical.")) ddd <- list(...) .chkdots(ddd, c("pi.type", "predtype", "newvi")) pi.type <- .chkddd(ddd$pi.type, "default", tolower(ddd$pi.type)) predtype <- .chkddd(ddd$predtype, pi.type, tolower(ddd$predtype)) predtype <- match.arg(predtype, c("default","simple","riley","t")) if (!is.null(newmods) && x$int.only && !(x$int.only && identical(newmods, 1))) stop(mstyle$stop("Cannot specify new moderator values for models without moderators.")) if (!is.null(newscale) && x$Z.int.only && !(x$Z.int.only && identical(newscale, 1))) stop(mstyle$stop("Cannot specify new scale values for models without scale variables.")) rnames <- NULL ######################################################################### if (!is.null(newmods)) { # if newmods has been specified if (!(.is.vector(newmods) || inherits(newmods, "matrix"))) stop(mstyle$stop(paste0("Argument 'newmods' should be a vector or matrix, but is of class '", class(newmods), "'."))) singlemod <- (NCOL(newmods) == 1L) && ((!x$int.incl && x$p == 1L) || (x$int.incl && x$p == 2L)) if (singlemod) { # if single moderator (multiple k.new possible) (either without or with intercept in the model) k.new <- length(newmods) # (but when specifying a matrix, it must be a column vector for this work) X.new <- cbind(c(newmods)) # if (.is.vector(newmods)) { # rnames <- names(newmods) # } else { # rnames <- rownames(newmods) # } # } else { # in case the model has more than one predictor: if (.is.vector(newmods) || nrow(newmods) == 1L) { # # if user gives one vector or one row matrix (only one k.new): k.new <- 1 # X.new <- rbind(newmods) # if (inherits(newmods, "matrix")) # rnames <- rownames(newmods) # } else { # # if user gives multiple rows and columns (multiple k.new): k.new <- nrow(newmods) # X.new <- cbind(newmods) # rnames <- rownames(newmods) # } # # allow matching of terms by names (note: only possible if all columns in X.new and x$X have colnames) if (!is.null(colnames(X.new)) && all(colnames(X.new) != "") && !is.null(colnames(x$X)) && all(colnames(x$X) != "")) { colnames.mod <- colnames(x$X) if (x$int.incl) colnames.mod <- colnames.mod[-1] pos <- sapply(colnames(X.new), function(colname) { d <- c(adist(colname, colnames.mod, costs=c(ins=1, sub=Inf, del=Inf))) # compute edit distances with Inf costs for substitutions/deletions if (all(is.infinite(d))) # if there is no match, then all elements are Inf stop(mstyle$stop(paste0("Could not find variable '", colname, "' in the model."))) d <- which(d == min(d)) # don't use which.min() since that only finds the first minimum if (length(d) > 1L) # if there is no unique match, then there is more than one minimum stop(mstyle$stop(paste0("Could not match up variable '", colname, "' uniquely to a variable in the model."))) return(d) }) if (anyDuplicated(pos)) { # if the same name is used more than once, then there will be duplicated pos values dups <- paste(unique(colnames(X.new)[duplicated(pos)]), collapse=", ") stop(mstyle$stop(paste0("Found multiple matches for the same variable name (", dups, ")."))) } if (length(pos) != length(colnames.mod)) { no.match <- colnames.mod[seq_along(colnames.mod)[-pos]] if (length(no.match) > 3L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for these variables: ", paste0(no.match[1:3], collapse=", "), ", ..."))) if (length(no.match) > 1L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for these variables: ", paste0(no.match, collapse=", ")))) if (length(no.match) == 1L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for this variable: ", no.match))) } X.new <- X.new[,order(pos),drop=FALSE] colnames(X.new) <- colnames.mod } } if (inherits(X.new[1,1], "character")) stop(mstyle$stop(paste0("Argument 'newmods' should only contain numeric variables."))) # if the user has specified newmods and an intercept was included in the original model, add the intercept to X.new # but user can also decide to remove the intercept from the predictions with intercept=FALSE # one special case: when the location model is an intercept-only model, one can set newmods=1 to obtain the predicted intercept if (missing(intercept)) intercept <- x$intercept if (!singlemod && ncol(X.new) == x$p) { if (int.spec) warning(mstyle$warning("Arguments 'intercept' ignored when 'newmods' includes 'p' columns."), call.=FALSE) } else { if (x$int.incl && !(x$int.only && ncol(X.new) == 1L && nrow(X.new) == 1L && X.new[1,1] == 1)) { if (intercept) { X.new <- cbind(intrcpt=1, X.new) } else { X.new <- cbind(intrcpt=0, X.new) } } } if (ncol(X.new) != x$p) stop(mstyle$stop(paste0("Dimensions of 'newmods' (", ncol(X.new), ") do not match the dimensions of the model (", x$p, ")."))) } if (!is.null(newscale)) { if (!(.is.vector(newscale) || inherits(newscale, "matrix"))) stop(mstyle$stop(paste0("Argument 'newscale' should be a vector or matrix, but is of class '", class(newscale), "'."))) singlescale <- (NCOL(newscale) == 1L) && ((!x$Z.int.incl && x$q == 1L) || (x$Z.int.incl && x$q == 2L)) if (singlescale) { # if single moderator (multiple k.new possible) (either without or with intercept in the model) Z.k.new <- length(newscale) # Z.new <- cbind(c(newscale)) # if (is.null(rnames)) { # if (.is.vector(newscale)) { # rnames <- names(newscale) # } else { # rnames <- rownames(newscale) # } # } # } else { # in case the model has more than one predictor: if (.is.vector(newscale) || nrow(newscale) == 1L) { # # if user gives one vector or one row matrix (only one k.new): Z.k.new <- 1 # Z.new <- rbind(newscale) # if (is.null(rnames) && inherits(newscale, "matrix")) # rnames <- rownames(newscale) # } else { # # if user gives multiple rows and columns (multiple k.new): Z.k.new <- nrow(newscale) # Z.new <- cbind(newscale) # if (is.null(rnames)) # rnames <- rownames(newscale) # } # # allow matching of terms by names (note: only possible if all columns in Z.new and x$Z have colnames) if (!is.null(colnames(Z.new)) && all(colnames(Z.new) != "") && !is.null(colnames(x$Z)) && all(colnames(x$Z) != "")) { colnames.mod <- colnames(x$Z) if (x$Z.int.incl) colnames.mod <- colnames.mod[-1] pos <- sapply(colnames(Z.new), function(colname) { d <- c(adist(colname, colnames.mod, costs=c(ins=1, sub=Inf, del=Inf))) # compute edit distances with Inf costs for substitutions/deletions if (all(is.infinite(d))) # if there is no match, then all elements are Inf stop(mstyle$stop(paste0("Could not find variable '", colname, "' from 'newscale' in the model."))) d <- which(d == min(d)) # don't use which.min() since that only finds the first minimum if (length(d) > 1L) # if there is no unique match, then there is more than one minimum stop(mstyle$stop(paste0("Could not match up variable '", colname, "' from 'newscale' uniquely to a variable in the model."))) return(d) }) if (anyDuplicated(pos)) { # if the same name is used more than once, then there will be duplicated pos values dups <- paste(unique(colnames(Z.new)[duplicated(pos)]), collapse=", ") stop(mstyle$stop(paste0("Found multiple matches for the same variable name (", dups, ") in 'newscale'."))) } if (length(pos) != length(colnames.mod)) { no.match <- colnames.mod[seq_along(colnames.mod)[-pos]] if (length(no.match) > 3L) stop(mstyle$stop(paste0("Argument 'newscale' does not specify values for these variables: ", paste0(no.match[1:3], collapse=", "), ", ..."))) if (length(no.match) > 1L) stop(mstyle$stop(paste0("Argument 'newscale' does not specify values for these variables: ", paste0(no.match, collapse=", ")))) if (length(no.match) == 1L) stop(mstyle$stop(paste0("Argument 'newscale' does not specify values for this variable: ", no.match))) } Z.new <- Z.new[,order(pos),drop=FALSE] colnames(Z.new) <- colnames.mod } } if (inherits(Z.new[1,1], "character")) stop(mstyle$stop(paste0("Argument 'newscale' should only contain numeric variables."))) # if the user has specified newscale and an intercept was included in the original model, add the intercept to Z.new # but user can also decide to remove the intercept from the predictions with intercept=FALSE (only when predicting log(tau^2)) # one special case: when the scale model is an intercept-only model, one can set newscale=1 to obtain the predicted intercept # (which can be converted to tau^2 with transf=exp when using a log link) if (missing(intercept)) intercept <- x$Z.intercept if (!singlescale && ncol(Z.new) == x$q) { if (int.spec) warning(mstyle$warning("Arguments 'intercept' ignored when 'newscale' includes 'q' columns."), call.=FALSE) } else { if (x$Z.int.incl && !(x$Z.int.only && ncol(Z.new) == 1L && nrow(Z.new) == 1L && Z.new[1,1] == 1)) { if (is.null(newmods)) { if (intercept) { Z.new <- cbind(intrcpt=1, Z.new) } else { Z.new <- cbind(intrcpt=0, Z.new) } } else { Z.new <- cbind(intrcpt=1, Z.new) } } } if (ncol(Z.new) != x$q) stop(mstyle$stop(paste0("Dimensions of 'newscale' (", ncol(Z.new), ") do not match the dimensions of the scale model (", x$q, ")."))) } # four possibilities for location-scale models: # 1) newmods not specified, newscale not specified: get the fitted values of the studies and ci/pi bounds thereof # 2) newmods specified, newscale not specified: get the predicted mu values for these newmods values and ci bounds thereof # (note: cannot compute pi bounds, since the tau^2 values cannot be predicted) # 3) newmods not specified, newscale specified: get the predicted log(tau^2) (or tau^2) values and ci bounds thereof # (transf=exp to obtain predicted tau^2 values when using the default log link) # 4) newmods specified, newscale specified: get the predicted mu values for these newmods values and ci/pi bounds thereof pred.mui <- TRUE if (is.null(newmods)) { if (is.null(newscale)) { k.new <- x$k.f X.new <- x$X.f Z.new <- x$Z.f tau2.f <- x$tau2.f } else { k.new <- Z.k.new addx <- FALSE pred.mui <- FALSE } } else { if (is.null(newscale)) { Z.new <- matrix(NA_real_, nrow=k.new, ncol=x$q) tau2.f <- rep(NA_real_, k.new) addz <- FALSE } else { tau2.f <- rep(NA_real_, Z.k.new) for (i in seq_len(Z.k.new)) { Zi.new <- Z.new[i,,drop=FALSE] tau2.f[i] <- Zi.new %*% x$alpha } if (x$link == "log") { tau2.f <- exp(tau2.f) } else { if (any(tau2.f < 0)) { warning(mstyle$warning(paste0("Negative predicted 'tau2' values constrained to 0.")), call.=FALSE) tau2.f[tau2.f < 0] <- 0 } } if (k.new == 1L && Z.k.new > 1L) { X.new <- X.new[rep(1,Z.k.new),,drop=FALSE] k.new <- Z.k.new } if (length(tau2.f) == 1L && k.new > 1L) { Z.new <- Z.new[rep(1,k.new),,drop=FALSE] tau2.f <- rep(tau2.f, k.new) } if (length(tau2.f) != k.new) stop(mstyle$stop(paste0("Dimensions of 'newmods' (", k.new, ") do not match the dimensions of 'newscale' (", length(tau2.f), ")."))) } } #return(list(k.new=k.new, tau2=x$tau2)) ######################################################################### # predicted values, SEs, and confidence intervals pred <- rep(NA_real_, k.new) vpred <- rep(NA_real_, k.new) if (pred.mui) { ddf <- ifelse(is.na(x$ddf), x$k - x$p, x$ddf) for (i in seq_len(k.new)) { Xi.new <- X.new[i,,drop=FALSE] pred[i] <- Xi.new %*% x$beta vpred[i] <- Xi.new %*% tcrossprod(x$vb, Xi.new) } if (is.element(x$test, c("knha","adhoc","t"))) { crit <- if (ddf > 0) qt(level/ifelse(adjust, 2*k.new, 2), df=ddf, lower.tail=FALSE) else NA_real_ } else { crit <- qnorm(level/ifelse(adjust, 2*k.new, 2), lower.tail=FALSE) } } else { ddf <- ifelse(is.na(x$ddf.alpha), x$k - x$q, x$ddf.alpha) for (i in seq_len(k.new)) { Zi.new <- Z.new[i,,drop=FALSE] pred[i] <- Zi.new %*% x$alpha vpred[i] <- Zi.new %*% tcrossprod(x$va, Zi.new) } if (is.element(x$test, c("knha","adhoc","t"))) { crit <- if (ddf > 0) qt(level/ifelse(adjust, 2*k.new, 2), df=ddf, lower.tail=FALSE) else NA_real_ } else { crit <- qnorm(level/ifelse(adjust, 2*k.new, 2), lower.tail=FALSE) } } vpred[vpred < 0] <- NA_real_ se <- sqrt(vpred) ci.lb <- pred - crit * se ci.ub <- pred + crit * se ######################################################################### if (pred.mui) { if (vcov) vcovpred <- symmpart(X.new %*% x$vb %*% t(X.new)) if (predtype == "simple") { crit <- qnorm(level/ifelse(adjust, 2*k.new, 2), lower.tail=FALSE) vpred <- 0 } pi.ddf <- ddf if (is.element(predtype, c("riley","t"))) { if (predtype == "riley") pi.ddf <- x$k - x$p - x$q if (predtype == "t") pi.ddf <- x$k - x$p pi.ddf[pi.ddf < 1] <- 1 crit <- qt(level/ifelse(adjust, 2*k.new, 2), df=pi.ddf, lower.tail=FALSE) } if (is.null(ddd$newvi)) { newvi <- 0 } else { newvi <- ddd$newvi newvi <- .expand1(newvi, k.new) if (length(newvi) != k.new) stop(mstyle$stop(paste0("Length of the 'newvi' argument (", length(newvi), ") does not match the number of predicted values (", k.new, ")."))) } # prediction intervals pi.se <- sqrt(vpred + tau2.f + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se } else { if (vcov) vcovpred <- symmpart(Z.new %*% x$va %*% t(Z.new)) pi.lb <- NA_real_ pi.ub <- NA_real_ } ######################################################################### # apply transformation function if one has been specified if (is.function(transf)) { if (is.null(targs)) { pred <- sapply(pred, transf) se <- rep(NA_real_, k.new) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) pi.lb <- sapply(pi.lb, transf) pi.ub <- sapply(pi.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) pred <- sapply(pred, transf, targs) se <- rep(NA_real_, k.new) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) pi.lb <- sapply(pi.lb, transf, targs) pi.ub <- sapply(pi.ub, transf, targs) } do.transf <- TRUE } else { do.transf <- FALSE } # make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] tmp <- .psort(pi.lb, pi.ub) pi.lb <- tmp[,1] pi.ub <- tmp[,2] # when predicting tau^2 values, set negative tau^2 values and CI bounds to 0 if (!pred.mui && x$link=="identity" && !is.function(transf)) { if (any(pred < 0)) warning(mstyle$warning(paste0("Negative predicted 'tau2' values constrained to 0.")), call.=FALSE) pred[pred < 0] <- 0 ci.lb[ci.lb < 0] <- 0 ci.ub[ci.ub < 0] <- 0 } # use study labels from the object when the model has moderators and no new moderators have been specified if (pred.mui) { if (is.null(newmods)) { slab <- x$slab } else { slab <- seq_len(k.new) if (!is.null(rnames)) slab <- rnames } } else { if (is.null(newscale)) { slab <- x$slab } else { slab <- seq_len(k.new) if (!is.null(rnames)) slab <- rnames } } # add row/colnames to vcovpred if (vcov) rownames(vcovpred) <- colnames(vcovpred) <- slab # but when predicting just a single value, use "" as study label if (k.new == 1L && is.null(rnames)) slab <- "" # handle NAs not.na <- rep(TRUE, k.new) if (na.act == "na.omit") { if (pred.mui) { if (is.null(newmods)) { not.na <- x$not.na } else { not.na <- !is.na(pred) } } else { if (is.null(newscale)) { not.na <- x$not.na } else { not.na <- !is.na(pred) } } } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) out <- list(pred=pred[not.na], se=se[not.na], ci.lb=ci.lb[not.na], ci.ub=ci.ub[not.na], pi.lb=pi.lb[not.na], pi.ub=pi.ub[not.na], cr.lb=pi.lb[not.na], cr.ub=pi.ub[not.na]) if (vcov) vcovpred <- vcovpred[not.na,not.na,drop=FALSE] if (na.act == "na.exclude" && is.null(newmods)) { out <- lapply(out, function(val) ifelse(x$not.na, val, NA_real_)) if (vcov) { vcovpred[!x$not.na,] <- NA_real_ vcovpred[,!x$not.na] <- NA_real_ } } # add X matrix to list if (addx) { out$X <- matrix(X.new[not.na,], ncol=x$p) colnames(out$X) <- colnames(x$X) } # add Z matrix to list if (addz) { out$Z <- matrix(Z.new[not.na,], ncol=x$q) colnames(out$Z) <- colnames(x$Z) } # add slab values to list out$slab <- slab[not.na] # for FE/EE/CE models, remove the columns corresponding to the prediction interval bounds if (is.element(x$method, c("FE","EE","CE")) || !pred.mui) { out$cr.lb <- NULL out$cr.ub <- NULL out$pi.lb <- NULL out$pi.ub <- NULL } out$digits <- digits out$method <- x$method out$transf <- do.transf out$pred.type <- ifelse(pred.mui, "location", "scale") if (x$test != "z") out$ddf <- ddf if (pred.mui) { if ((x$test != "z" || is.element(predtype, c("riley","t"))) && predtype != "simple") { out$pi.dist <- "t" out$pi.ddf <- pi.ddf } else { out$pi.dist <- "norm" } out$pi.se <- pi.se attr(out$pi.lb, "level") <- level attr(out$pi.lb, "dist") <- out$pi.dist if (out$pi.dist == "t") { attr(out$pi.lb, "ddf") <- out$pi.ddf } attr(out$pi.lb, "se") <- pi.se } class(out) <- c("predict.rma", "list.rma") if (vcov & !do.transf) { out <- list(pred=out) if (!inherits(vcovpred, "sparseMatrix")) class(vcovpred) <- c("vcovmat", class(vcovpred)) out$vcov <- vcovpred } return(out) } metafor/R/print.escalc.r0000644000176200001440000000410515120213572014656 0ustar liggesusersprint.escalc <- function(x, digits=attr(x,"digits"), ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="escalc") attr(x, "class") <- NULL digits <- .get.digits(digits=digits, xdigits=attr(x, "digits"), dmiss=FALSE) ### get positions of the variable names in the object ### note: if the object no longer contains a particular variable, match() returns NA; ### use na.omit(), so that length() is then zero (as needed for if statements below) yi.pos <- na.omit(match(attr(x, "yi.names"), names(x))) vi.pos <- na.omit(match(attr(x, "vi.names"), names(x))) sei.pos <- na.omit(match(attr(x, "sei.names"), names(x))) zi.pos <- na.omit(match(attr(x, "zi.names"), names(x))) pval.pos <- na.omit(match(attr(x, "pval.names"), names(x))) ci.lb.pos <- na.omit(match(attr(x, "ci.lb.names"), names(x))) ci.ub.pos <- na.omit(match(attr(x, "ci.ub.names"), names(x))) ### get rownames attribute so we can back-assign it rnames <- attr(x, "row.names") ### for printing, turn expressions into strings is.expr <- sapply(x, is.expression) x[is.expr] <- lapply(x[is.expr], as.character) ### turn x into a regular data frame x <- data.frame(x) rownames(x) <- rnames ### round variables according to the digits argument if (length(yi.pos) > 0L) x[yi.pos] <- lapply(x[yi.pos], fmtx, digits[["est"]]) if (length(vi.pos) > 0L) x[vi.pos] <- lapply(x[vi.pos], fmtx, digits[["var"]]) if (length(sei.pos) > 0L) x[sei.pos] <- lapply(x[sei.pos], fmtx, digits[["se"]]) if (length(zi.pos) > 0L) x[zi.pos] <- lapply(x[zi.pos], fmtx, digits[["test"]]) if (length(pval.pos) > 0L) x[pval.pos] <- lapply(x[pval.pos], fmtp, digits[["pval"]]) # note: using fmtp here if (length(ci.lb.pos) > 0L) x[ci.lb.pos] <- lapply(x[ci.lb.pos], fmtx, digits[["ci"]]) if (length(ci.ub.pos) > 0L) x[ci.ub.pos] <- lapply(x[ci.ub.pos], fmtx, digits[["ci"]]) ### print data frame with styling .space() tmp <- capture.output(print(x, ...)) .print.table(tmp, mstyle) .space() } metafor/R/se.r0000644000176200001440000000222315166747347012725 0ustar liggesusersse <- function(object, ...) UseMethod("se") se.default <- function(object, ...) { vb <- try(vcov(object, ...), silent=TRUE) if (inherits(vb, "try-error") || !is.matrix(vb) || !.is.square(vb)) stop("Default method for extracting the standard errors does not work for such model objects.") return(sqrt(diag(vb))) } se.rma <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") ddd <- list(...) ses <- c(object$se) names(ses) <- rownames(object$beta) if (isTRUE(ddd$type=="beta")) return(ses) if (inherits(object, "rma.ls")) { ses <- list(beta=ses) ses$alpha <- c(object$se.alpha) names(ses$alpha) <- rownames(object$alpha) if (isTRUE(ddd$type=="alpha")) return(ses$alpha) } if (inherits(object, "rma.uni.selmodel")) { ses <- list(beta=ses) ses$delta <- c(object$se.delta) if (length(object$delta) == 1L) { names(ses$delta) <- "delta" } else { names(ses$delta) <- paste0("delta.", seq_along(object$delta)) } if (isTRUE(ddd$type=="delta")) return(ses$delta) } return(ses) } metafor/R/mfopt.r0000644000176200001440000000321615120213572013420 0ustar liggesuserssetmfopt <- function(...) { mstyle <- .get.mstyle() mfopts <- getOption("metafor") if (is.null(mfopts) || !is.list(mfopts)) { options("metafor" = list(space=TRUE)) mfopts <- getOption("metafor") } newopts <- list(...) for (opt in names(newopts)) { if (opt == "space" && !is.null(newopts[[opt]]) && !is.logical(newopts[[opt]])) stop(mstyle$stop("'space' must be a logical.")) if (opt == "digits" && !is.null(newopts[[opt]]) && !is.vector(newopts[[opt]], mode="numeric")) stop(mstyle$stop("'digits' must be a numeric vector.")) if (opt == "style" && !is.logical(newopts[[opt]]) && !is.null(newopts[[opt]]) && !is.list(newopts[[opt]])) stop(mstyle$stop("'style' must be a list.")) if (opt == "theme" && !is.null(newopts[[opt]]) && !is.element(newopts[[opt]], c("default", "light", "dark", "auto", "custom", "default2", "light2", "dark2", "auto2", "custom2"))) stop(mstyle$stop("'theme' must be either 'default(2)', 'light(2)', 'dark(2)', 'auto(2)', or 'custom(2)'.")) if (opt == "fg" && !is.null(newopts[[opt]]) && !is.character(newopts[[opt]])) stop(mstyle$stop("'fg' must be a character string.")) if (opt == "bg" && !is.null(newopts[[opt]]) && !is.character(newopts[[opt]])) stop(mstyle$stop("'bg' must be a character string.")) mfopts[[opt]] <- newopts[[opt]] } options("metafor" = mfopts) } getmfopt <- function(x, default=NULL) { opt <- getOption("metafor") if (!missing(x)) { x <- as.character(substitute(x)) opt <- opt[[x]] } if (is.null(opt)) { return(default) } else { return(opt) } } metafor/R/cumul.r0000644000176200001440000000006015120213572013412 0ustar liggesuserscumul <- function(x, ...) UseMethod("cumul") metafor/R/BIC.rma.r0000644000176200001440000000216415120751501013446 0ustar liggesusersBIC.rma <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") if (missing(...)) { # if there is just 'object' if (object$method == "REML") { out <- object$fit.stats["BIC","REML"] } else { out <- object$fit.stats["BIC","ML"] } } else { # if there is 'object' and additional objects via ... if (object$method == "REML") { out <- sapply(list(object, ...), function(x) x$fit.stats["BIC","REML"]) } else { out <- sapply(list(object, ...), function(x) x$fit.stats["BIC","ML"]) } dfs <- sapply(list(object, ...), function(x) x$parms) out <- data.frame(df=dfs, BIC=out) # get the names of the objects; same idea as in stats:::AIC.default cl <- match.call() rownames(out) <- as.character(cl[-1L]) # check that all models were fitted to the same data chksums <- sapply(list(object, ...), function(x) x$chksumyi) if (any(chksums[1] != chksums)) warning(mstyle$warning("Models not all fitted to the same data."), call.=FALSE) } return(out) } metafor/R/print.anova.rma.r0000644000176200001440000001544115120213572015313 0ustar liggesusersprint.anova.rma <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="anova.rma") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() if (x$type == "Wald.btt") { if (is.element("rma.ls", x$class)) { cat(mstyle$section(paste0("Test of Location Coefficients (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):"))) } else { cat(mstyle$section(paste0("Test of Moderators (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):"))) } cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QM, "F", df1=x$QMdf[1], df2=x$QMdf[2], pval=x$QMp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QM, "QM", df=x$QMdf[1], pval=x$QMp, digits=digits))) } cat("\n") } if (x$type == "Wald.att") { cat(mstyle$section(paste0("Test of Scale Coefficients (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$att),"):"))) cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QS, "F", df1=x$QSdf[1], df2=x$QSdf[2], pval=x$QSp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QS, "QS", df=x$QSdf[1], pval=x$QSp, digits=digits))) } cat("\n") } if (x$type == "Wald.Xb") { if (x$m == 1) { cat(mstyle$section("Hypothesis:")) } else { cat(mstyle$section("Hypotheses:")) } tmp <- capture.output(print(x$hyp)) .print.output(tmp, mstyle$text) cat("\n") cat(mstyle$section("Results:")) cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$Xb), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), tval=fmtx(x$zval, digits[["test"]]), df=round(x$ddf,2), pval=fmtp(x$pval, digits[["pval"]]), stringsAsFactors=FALSE) } else { res.table <- data.frame(estimate=fmtx(c(x$Xb), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), stringsAsFactors=FALSE) } rownames(res.table) <- paste0(seq_len(x$m), ":") if (getOption("show.signif.stars")) { signif <- symnum(x$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) if (!is.na(x$QM)) { cat("\n") if (x$m == 1) { cat(mstyle$section("Test of Hypothesis:")) } else { cat(mstyle$section("Omnibus Test of Hypotheses:")) } cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QM, "F", df1=x$QMdf[1], df2=x$QMdf[2], pval=x$QMp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QM, "QM", df=x$QMdf[1], pval=x$QMp, digits=digits))) } cat("\n") } } if (x$type == "Wald.Za") { if (x$m == 1) { cat(mstyle$section("Hypothesis:")) } else { cat(mstyle$section("Hypotheses:")) } tmp <- capture.output(print(x$hyp)) .print.output(tmp, mstyle$text) cat("\n") cat(mstyle$section("Results:")) cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$Za), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), tval=fmtx(x$zval, digits[["test"]]), df=round(x$ddf,2), pval=fmtp(x$pval, digits[["pval"]]), stringsAsFactors=FALSE) } else { res.table <- data.frame(estimate=fmtx(c(x$Za), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), stringsAsFactors=FALSE) } rownames(res.table) <- paste0(seq_len(x$m), ":") if (getOption("show.signif.stars")) { signif <- symnum(x$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) if (!is.na(x$QS)) { cat("\n") if (x$m == 1) { cat(mstyle$section("Test of Hypothesis:")) } else { cat(mstyle$section("Omnibus Test of Hypotheses:")) } cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QS, "F", df1=x$QSdf[1], df2=x$QSdf[2], pval=x$QSp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QS, "QS", df=x$QSdf[1], pval=x$QSp, digits=digits))) } cat("\n") } } if (x$type == "LRT") { res.table <- data.frame(c(x$parms.f, x$parms.r), c(fmtx(x$fit.stats.f["AIC"], digits[["fit"]]), fmtx(x$fit.stats.r["AIC"], digits[["fit"]])), c(fmtx(x$fit.stats.f["BIC"], digits[["fit"]]), fmtx(x$fit.stats.r["BIC"], digits[["fit"]])), c(fmtx(x$fit.stats.f["AICc"], digits[["fit"]]), fmtx(x$fit.stats.r["AICc"], digits[["fit"]])), c(fmtx(x$fit.stats.f["ll"], digits[["fit"]]), fmtx(x$fit.stats.r["ll"], digits[["fit"]])), c(NA_character_, fmtx(x$LRT, digits[["test"]])), c(NA_character_, fmtp(x$pval, digits[["pval"]])), c(fmtx(x$QE.f, digits[["test"]]), fmtx(x$QE.r, digits[["test"]])), c(fmtx(x$tau2.f, digits[["var"]]), fmtx(x$tau2.r, digits[["var"]])), c(NA_character_, NA_character_), stringsAsFactors=FALSE) colnames(res.table) <- c("df", "AIC", "BIC", "AICc", "logLik", "LRT", "pval", "QE", "tau^2", "R^2") rownames(res.table) <- c("Full", "Reduced") res.table["Full",c("LRT","pval")] <- "" res.table["Full","R^2"] <- "" res.table["Reduced","R^2"] <- fmtx(x$R2, digits[["het"]], postfix="%") ### remove tau^2 column if full model is a FE/EE/CE model or tau2.f/tau2.r is NA if (is.element(x$method, c("FE","EE","CE")) || (is.na(x$tau2.f) || is.na(x$tau2.r))) res.table <- res.table[-which(names(res.table) == "tau^2")] ### remove R^2 column if full model is a rma.mv or rma.ls model if (is.element("rma.mv", x$class.f) || is.element("rma.ls", x$class.f)) res.table <- res.table[-which(names(res.table) == "R^2")] tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) } .space() invisible() } metafor/R/print.rma.uni.r0000644000176200001440000004100615121224132014771 0ustar liggesusersprint.rma.uni <- function(x, digits, showfit=FALSE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } footsym <- .get.footsym() ddd <- list(...) .chkdots(ddd, c("num", "legend")) if (is.null(ddd$legend)) { legend <- ifelse(inherits(x, "robust.rma"), TRUE, FALSE) } else { if (is.na(ddd$legend)) { # can suppress legend and legend symbols with legend=NA legend <- FALSE footsym <- rep("", 6) } else { legend <- isTRUE(ddd$legend) } } if (inherits(x, "rma.uni.trimfill")) { .space() cat(mstyle$text(paste0("Estimated number of missing studies on the ", x$side, " side: "))) cat(mstyle$result(paste0(x$k0, " (SE = ", fmtx(x$se.k0, digits[["se"]]), ")"))) cat("\n") if (x$k0.est == "R0") { cat(mstyle$text(paste0("Test of H0: no missing studies on the ", x$side, " side: "))) cat(paste0(rep(" ", nchar(x$k0)), collapse="")) cat(mstyle$result(paste0("p-val ", fmtp(x$p.k0, digits[["pval"]], equal=TRUE, sep=TRUE)))) cat("\n") } .space(FALSE) } .space() if (x$model == "rma.ls") { cat(mstyle$section("Location-Scale Model")) cat(mstyle$section(paste0(" (k = ", x$k, "; "))) if (isTRUE(x$tau2.fix)) { cat(mstyle$section("user-specified tau^2 value)")) } else { cat(mstyle$section(paste0("tau^2 estimator: ", x$method, ")"))) } } else { if (is.element(x$method, c("FE","EE","CE"))) { if (x$int.only) { cat(mstyle$section(sapply(x$method, switch, "FE"="Fixed-Effects Model", "EE"="Equal-Effects Model", "CE"="Common-Effects Model", USE.NAMES=FALSE))) } else { cat(mstyle$section("Fixed-Effects with Moderators Model")) } cat(mstyle$section(paste0(" (k = ", x$k, ")"))) } else { if (x$int.only) { cat(mstyle$section("Random-Effects Model")) } else { cat(mstyle$section("Mixed-Effects Model")) } cat(mstyle$section(paste0(" (k = ", x$k, "; "))) if (inherits(x, "rma.gen")) { cat(mstyle$section(paste0("estimation method: ", x$method, ")"))) } else { if (isTRUE(x$tau2.fix)) { cat(mstyle$section("user-specified tau^2 value)")) } else { cat(mstyle$section(paste0("tau^2 estimator: ", x$method, ")"))) } } } } cat("\n") if (showfit) { if (x$method == "REML") { fs <- fmtx(x$fit.stats$REML, digits[["fit"]]) } else { fs <- fmtx(x$fit.stats$ML, digits[["fit"]]) } names(fs) <- c("logLik", "deviance", "AIC", "BIC", "AICc") cat("\n") tmp <- capture.output(print(fs, quote=FALSE, print.gap=2)) #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) } cat("\n") if (x$model == "rma.uni" || x$model == "rma.uni.selmodel" || inherits(x, "rma.gen")) { if (!is.element(x$method, c("FE","EE","CE"))) { if (x$int.only) { cat(mstyle$text(paste0("tau^2 (", ifelse(isTRUE(x$tau2.fix), "specified", "estimated"), " amount of total heterogeneity): "))) cat(mstyle$result(paste0(fmtx(x$tau2, digits[["var"]], thresh=.Machine$double.eps*10), ifelse(is.na(x$se.tau2), "", paste0(" (SE = " , fmtx(x$se.tau2, digits[["sevar"]]), ")"))))) cat("\n") cat(mstyle$text(paste0("tau (square root of ", ifelse(isTRUE(x$tau2.fix), "specified", "estimated"), " tau^2 value): "))) cat(mstyle$result(fmtx(.sqrt(x$tau2), digits[["var"]], thresh=.Machine$double.eps*10))) cat("\n") } else { if (!is.na(x$I2) || !is.na(x$H2)) { cat(mstyle$text(paste0("tau^2 (", ifelse(isTRUE(x$tau2.fix), "specified", "estimated"), " amount of residual heterogeneity): "))) } else { cat(mstyle$text(paste0("tau^2 (", ifelse(isTRUE(x$tau2.fix), "specified", "estimated"), " amount of residual heterogeneity): "))) } cat(mstyle$result(paste0(fmtx(x$tau2, digits[["var"]], thresh=.Machine$double.eps*10), ifelse(is.na(x$se.tau2), "", paste0(" (SE = " , fmtx(x$se.tau2, digits[["sevar"]]), ")"))))) cat("\n") if (!is.na(x$I2) || !is.na(x$H2)) { cat(mstyle$text(paste0("tau (square root of ", ifelse(isTRUE(x$tau2.fix), "specified", "estimated"), " tau^2 value): "))) } else { cat(mstyle$text(paste0("tau (square root of ", ifelse(isTRUE(x$tau2.fix), "specified", "estimated"), " tau^2 value): "))) } cat(mstyle$result(fmtx(.sqrt(x$tau2), digits[["var"]], thresh=.Machine$double.eps*10))) cat("\n") } } if (x$int.only) { if (!is.na(x$I2)) { cat(mstyle$text("I^2 (total heterogeneity / total variability): ")) cat(mstyle$result(fmtx(x$I2, 2, postfix="%"))) cat("\n") } if (!is.na(x$H2) && !is.infinite(x$H2)) { cat(mstyle$text("H^2 (total variability / sampling variability): ")) cat(mstyle$result(fmtx(x$H2, 2))) cat("\n") } } else { if (!is.na(x$I2)) { cat(mstyle$text("I^2 (residual heterogeneity / unaccounted variability): ")) cat(mstyle$result(fmtx(x$I2, 2, postfix="%"))) cat("\n") } if (!is.na(x$H2) && !is.infinite(x$H2)) { cat(mstyle$text("H^2 (unaccounted variability / sampling variability): ")) cat(mstyle$result(fmtx(x$H2, 2))) cat("\n") } } if (!x$int.only && !is.null(x$R2)) { if (!is.na(x$I2) || !is.na(x$H2)) { cat(mstyle$text("R^2 (amount of heterogeneity accounted for): ")) } else { cat(mstyle$text("R^2 (amount of heterogeneity accounted for): ")) } cat(mstyle$result(fmtx(x$R2, 2, postfix="%"))) cat("\n") } if (!is.element(x$method, c("FE","EE","CE")) || !is.na(x$I2) || !is.na(x$H2) || !is.null(x$R2)) cat("\n") } if (inherits(x, "rma.gen")) { cat(mstyle$section("Parameter Estimates:")) cat("\n\n") res.table <- data.frame(as.list(fmtx(x$pars, digits[["var"]]))) colnames(res.table) <- names(x$pars) res.table <- res.table[1,,drop=FALSE] tmp <- capture.output(.print.vector(res.table)) .print.table(tmp, mstyle) cat("\n") } if (!is.na(x$QE)) { if (x$int.only) { cat(mstyle$section("Test for Heterogeneity:")) cat("\n") cat(mstyle$result(fmtt(x$QE, "Q", df=x$k-x$p, pval=x$QEp, digits=digits))) } else { cat(mstyle$section("Test for Residual Heterogeneity:")) cat("\n") cat(mstyle$result(fmtt(x$QE, "QE", df=x$k-x$p, pval=x$QEp, digits=digits))) } cat("\n\n") } if (x$model == "rma.uni.selmodel" && !is.na(x$LRT.tau2)) { if (x$int.only) { cat(mstyle$section("Test for Heterogeneity:")) cat("\n") cat(mstyle$result(fmtt(x$LRT.tau2, "LRT", df=1, pval=x$LRTp.tau2, digits=digits))) } else { cat(mstyle$section("Test for Residual Heterogeneity:")) cat("\n") cat(mstyle$result(fmtt(x$LRT.tau2, "LRT", df=1, pval=x$LRTp.tau2, digits=digits))) } cat("\n\n") } if (inherits(x, "robust.rma")) { cat(mstyle$text("Number of estimates: ")) cat(mstyle$result(x$k)) cat("\n") cat(mstyle$text("Number of clusters: ")) cat(mstyle$result(x$n)) cat("\n") cat(mstyle$text("Estimates per cluster: ")) if (all(x$tcl[1] == x$tcl)) { cat(mstyle$result(x$tcl[1])) } else { cat(mstyle$result(paste0(min(x$tcl), "-", max(x$tcl), " (mean: ", fmtx(mean(x$tcl), digits=2), ", median: ", round(median(x$tcl), digits=2), ")"))) } cat("\n\n") } if (x$p > 1L && !is.na(x$QM)) { if (x$model == "rma.ls") { cat(mstyle$section(paste0("Test of Location Coefficients (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):"))) } else { cat(mstyle$section(paste0("Test of Moderators (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):", ifelse(inherits(x, "robust.rma"), footsym[1], "")))) } cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QM, "F", df1=x$QMdf[1], df2=x$QMdf[2], pval=x$QMp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QM, "QM", df=x$QMdf[1], pval=x$QMp, digits=digits))) } cat("\n\n") } if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), tval=fmtx(x$zval, digits[["test"]]), df=round(x$ddf,2), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) if (inherits(x, "robust.rma") && footsym[1] != "") res.table <- .addfootsym(res.table, 2:7, footsym[1]) } else { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) } rownames(res.table) <- rownames(x$beta) signif <- symnum(x$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } if (isTRUE(ddd$num)) { width <- nchar(nrow(res.table)) rownames(res.table) <- paste0(formatC(seq_len(nrow(res.table)), format="d", width=width), ") ", rownames(res.table)) } if (x$int.only) res.table <- res.table[1,] if (x$model == "rma.uni" || x$model == "rma.uni.selmodel") { cat(mstyle$section("Model Results:")) } else { cat(mstyle$section("Model Results (Location):")) } cat("\n\n") if (x$int.only) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) if (x$model == "rma.ls") { if (x$q > 1L && !is.na(x$QS)) { cat("\n") cat(mstyle$section(paste0("Test of Scale Coefficients (coefficient", ifelse(x$m.alpha == 1, " ", "s "), .format.btt(x$att),"):"))) cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QS, "F", df1=x$QSdf[1], df2=x$QSdf[2], pval=x$QSp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QS, "QM", df=x$QSdf[1], pval=x$QSp, digits=digits))) } cat("\n") } if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$alpha), digits[["est"]]), se=fmtx(x$se.alpha, digits[["se"]]), tval=fmtx(x$zval.alpha, digits[["test"]]), df=round(x$ddf.alpha, 2), pval=fmtp(x$pval.alpha, digits[["pval"]]), ci.lb=fmtx(x$ci.lb.alpha, digits[["ci"]]), ci.ub=fmtx(x$ci.ub.alpha, digits[["ci"]]), stringsAsFactors=FALSE) } else { res.table <- data.frame(estimate=fmtx(c(x$alpha), digits[["est"]]), se=fmtx(x$se.alpha, digits[["se"]]), zval=fmtx(x$zval.alpha, digits[["test"]]), pval=fmtp(x$pval.alpha, digits[["pval"]]), ci.lb=fmtx(x$ci.lb.alpha, digits[["ci"]]), ci.ub=fmtx(x$ci.ub.alpha, digits[["ci"]]), stringsAsFactors=FALSE) } rownames(res.table) <- rownames(x$alpha) signif <- symnum(x$pval.alpha, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } for (j in seq_len(nrow(res.table))) { res.table[j, is.na(res.table[j,])] <- ifelse(x$alpha.fix[j], "---", "NA") res.table[j, res.table[j,] == "NA"] <- ifelse(x$alpha.fix[j], "---", "NA") } if (isTRUE(ddd$num)) { width <- nchar(nrow(res.table)) rownames(res.table) <- paste0(formatC(seq_len(nrow(res.table)), format="d", width=width), ") ", rownames(res.table)) } if (x$randhet) { res.table.omega2 <- c(fmtx(x$omega2, digits[["var"]]), fmtx(x$se.omega2, digits[["se"]]), "---", "---", fmtx(x$ci.lb.omega2, digits[["ci"]]), fmtx(x$ci.ub.omega2, digits[["ci"]])) if (is.element(x$test, c("knha","adhoc","t"))) res.table.omega2 <- c(res.table.omega2[1:2], "---", res.table.omega2[-(1:2)]) if (signif.stars) res.table.omega2 <- c(res.table.omega2, "") res.table <- rbind(res.table, "omega^2"=res.table.omega2) } if (nrow(res.table) == 1L) res.table <- res.table[1,] cat("\n") cat(mstyle$section("Model Results (Scale):")) cat("\n\n") if (nrow(res.table) == 1L) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) } if (x$model == "rma.uni.selmodel") { if (!is.na(x$LRT)) { cat("\n") cat(mstyle$section("Test for Selection Model Parameters:")) cat("\n") cat(mstyle$result(fmtt(x$LRT, "LRT", df=x$LRTdf, pval=x$LRTp, digits=digits))) cat("\n") } res.table <- data.frame(estimate=fmtx(c(x$delta), digits[["est"]]), se=fmtx(x$se.delta, digits[["se"]]), zval=fmtx(x$zval.delta, digits[["test"]]), pval=fmtp(x$pval.delta, digits[["pval"]]), ci.lb=fmtx(x$ci.lb.delta, digits[["ci"]]), ci.ub=fmtx(x$ci.ub.delta, digits[["ci"]]), stringsAsFactors=FALSE) if (is.element(x$type, c("stepfun","stepcon"))) { rownames(res.table) <- rownames(x$ptable) res.table <- cbind(k=x$ptable$k, res.table) } else { rownames(res.table) <- paste0("delta.", seq_along(x$delta)) } #if (x$test == "t") # colnames(res.table)[3] <- "tval" signif <- symnum(x$pval.delta, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } for (j in seq_len(nrow(res.table))) { res.table[j, is.na(res.table[j,])] <- ifelse(x$delta.fix[j], "---", "NA") res.table[j, res.table[j,] == "NA"] <- ifelse(x$delta.fix[j], "---", "NA") } if (length(x$delta) == 1L) res.table <- res.table[1,] cat("\n") if (x$k == x$k1) { cat(mstyle$section("Selection Model Results:")) } else { cat(mstyle$section("Selection Model Results (k_subset = ", x$k1, "):")) } cat("\n\n") if (length(x$delta) == 1L) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) } if (signif.legend || legend) { cat("\n") cat(mstyle$legend("---")) } if (signif.legend) { cat("\n") cat(mstyle$legend("Signif. codes: "), mstyle$legend(attr(signif, "legend"))) cat("\n") } if (inherits(x, "robust.rma") && legend) { cat("\n") cat(mstyle$legend(paste0(footsym[2], " results based on cluster-robust inference (var-cov estimator: ", x$vbest))) if (x$robumethod == "default") { cat(mstyle$legend(",")) cat("\n") cat(mstyle$legend(paste0(" approx ", ifelse(x$int.only, "t-test and confidence interval", "t/F-tests and confidence intervals"), ", df: residual method)"))) } else { if (x$coef_test == "Satterthwaite" && x$conf_test == "Satterthwaite" && x$wald_test == "HTZ") { cat(mstyle$legend(",")) cat("\n") cat(mstyle$legend(paste0(" approx ", ifelse(x$int.only, "t-test and confidence interval", "t/F-tests and confidence intervals"), ", df: Satterthwaite approx)"))) } else { cat(mstyle$legend(")")) } } cat("\n") } .space() invisible() } metafor/R/matreg.r0000644000176200001440000002737715120213572013570 0ustar liggesusersmatreg <- function(y, x, R, n, V, cov=FALSE, means, ztor=FALSE, nearpd=FALSE, level=95, digits, ...) { mstyle <- .get.mstyle() if (missing(digits)) digits <- 4 level <- .level(level) ### check/process R argument if (missing(R)) stop(mstyle$stop("Must specify the 'R' argument.")) R <- as.matrix(R) if (nrow(R) != ncol(R)) stop(mstyle$stop("Argument 'R' must be a square matrix.")) if (is.null(rownames(R))) rownames(R) <- colnames(R) if (is.null(colnames(R))) colnames(R) <- rownames(R) p <- nrow(R) if (p <= 1L) stop(mstyle$stop("The 'R' matrix must be at least of size 2x2.")) ### check/process y argument is.formula <- FALSE if (inherits(y, "formula")) { is.formula <- TRUE y.formula <- y if (length(y.formula) != 3L) stop(mstyle$stop("The formula specified via the 'y' argument does not have a left-hand side.")) y <- deparse1(y.formula[[2]]) x <- deparse1(y.formula[[3]]) x <- strsplit(x, "+", fixed=TRUE)[[1]] x <- unique(trimws(x)) } else { if (length(y) != 1L) stop(mstyle$stop("Argument 'y' should specify a single variable.")) } if (is.character(y)) { if (is.null(rownames(R))) stop(mstyle$stop("'R' must have dimension names when specifying a variable name for 'y'.")) if (anyDuplicated(rownames(R))) stop(mstyle$stop("Dimension names of 'R' must be unique.")) y.pos <- pmatch(y, rownames(R)) # NA if no match or there are duplicates if (is.na(y.pos)) stop(mstyle$stop(paste0("Could not find variable '", y, "' in the 'R' matrix."))) y <- y.pos } y <- round(y) if (y < 1 || y > p) stop(mstyle$stop(paste0("Index 'y' must be >= 1 or <= ", p, "."))) ### check/process x argument if (!is.formula && missing(x)) # if x is not specified (and y is not a formula), use all other variables in R as predictors x <- seq_len(p)[-y] if (is.character(x)) { if (is.null(rownames(R))) stop(mstyle$stop("'R' must have dimension names when specifying variable names for 'x'.")) if (anyDuplicated(rownames(R))) stop(mstyle$stop("Dimension names of 'R' must be unique.")) x.pos <- pmatch(x, rownames(R)) # NA if no match or there are duplicates if (anyNA(x.pos)) stop(mstyle$stop(paste0("Could not find variable", ifelse(sum(is.na(x.pos)) > 1L, "s", ""), " '", paste(x[is.na(x.pos)], collapse=", "), "' in the 'R' matrix."))) x <- x.pos } x <- round(x) if (anyDuplicated(x)) stop(mstyle$stop("Argument 'x' should not contain duplicated elements.")) if (any(x < 1 | x > p)) stop(mstyle$stop(paste0("Indices in 'x' must be >= 1 or <= ", p, "."))) if (y %in% x) stop(mstyle$stop("Variable 'y' should not be an element of 'x'.")) ### check/process V/n arguments if (missing(V)) V <- NULL if (is.null(V) && missing(n)) stop(mstyle$stop("Either 'V' or 'n' must be specified.")) if (!is.null(V) && !missing(n)) stop(mstyle$stop("Either 'V' or 'n' must be specified, not both.")) if (!is.logical(cov) || is.na(cov) || length(cov) != 1L) stop(mstyle$stop("Argument 'cov' must be either TRUE or FALSE.")) if (!is.logical(ztor) || is.na(ztor) || length(ztor) != 1L) stop(mstyle$stop("Argument 'ztor' must be either TRUE or FALSE.")) if (cov && ztor) stop(mstyle$stop("Cannot use a covariance matrix as input when 'ztor=TRUE'.")) ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("nearPD")) if (isTRUE(ddd$nearPD)) nearpd <- TRUE ############################################################################ m <- length(x) R[upper.tri(R)] <- t(R)[upper.tri(R)] if (!is.null(V)) { V <- as.matrix(V) if (nrow(V) != ncol(V)) stop(mstyle$stop("Argument 'V' must be a square matrix.")) V[upper.tri(V)] <- t(V)[upper.tri(V)] if (cov) { s <- p*(p+1)/2 } else { s <- p*(p-1)/2 } if (nrow(V) != s) stop(mstyle$stop(paste0("Dimensions of 'V' (", nrow(V), "x", ncol(V), ") do not match the number of elements in 'R' (", s, ")."))) } ############################################################################ if (ztor) { if (!is.null(V)) { zij <- R[lower.tri(R)] Dmat <- .diag(2 / (cosh(2*zij) + 1), names=FALSE) V <- Dmat %*% V %*% Dmat } R <- tanh(R) diag(R) <- 1 } if (cov) { S <- R R <- cov2cor(R) sdy <- sqrt(diag(S)[y]) sdx <- sqrt(diag(S)[x]) } else { if (any(abs(R) > 1, na.rm=TRUE)) stop(mstyle$stop("Argument 'R' must be a correlation matrix, but contains values outside [-1,1].")) diag(R) <- 1 sdy <- 1 } ############################################################################ Rxy <- R[x, y, drop=FALSE] Rxx <- R[x, x, drop=FALSE] #invRxx <- solve(Rxx) invRxx <- try(chol2inv(chol(Rxx)), silent=TRUE) if (inherits(invRxx, "try-error")) { if (nearpd) { message(mstyle$message("Cannot invert R[x,x] matrix. Using nearPD(). Treat results with caution.")) Rxx <- as.matrix(nearPD(Rxx, corr=TRUE)$mat) } else { stop(mstyle$stop("Cannot invert R[x,x] matrix.")) } invRxx <- try(chol2inv(chol(Rxx)), silent=TRUE) if (inherits(invRxx, "try-error")) stop(mstyle$stop("Still cannot invert R[x,x] matrix.")) } b <- invRxx %*% Rxy if (!is.null(rownames(Rxx))) { rownames(b) <- rownames(Rxx) } else { rownames(b) <- paste0("x", x) } colnames(b) <- NULL ############################################################################ has.means <- FALSE if (cov) { if (missing(means)) { means <- rep(0,p) has.means <- FALSE } else { if (length(means) != p) stop(mstyle$stop(paste0("Length of 'means' (", length(means), ") does not match the dimensions of 'R' (", p, "x", p, ")."))) has.means <- TRUE } } ############################################################################ if (is.null(V)) { # when no V matrix is specified if (length(n) != 1L) stop(mstyle$stop("Argument 'n' should be a single number.")) df <- n - m - ifelse(cov, 1, 0) if (df <= 0) stop(mstyle$stop("Cannot fit model when 'n' is equal to or less than the number of regression coefficients.")) sse <- 1 - c(t(b) %*% Rxy) mse <- sse / df vb <- mse * invRxx R2 <- 1 - sse R2adj <- 1 - (1 - R2) * ((n-ifelse(cov, 1, 0)) / df) F <- c(value = (R2 / m) / mse, df1=m, df2=df) Fp <- pf(F[[1]], df1=m, df2=df, lower.tail=FALSE) mse <- unname(sdy^2 * (n-1) * (1 - R2) / df) if (cov) { b <- b * sdy / sdx b <- rbind(means[y] - means[x] %*% b, b) rownames(b)[1] <- "intrcpt" XtX <- (n-1) * bldiag(0,S[x,x]) + n * tcrossprod(c(1,means[x])) invXtX <- try(suppressWarnings(chol2inv(chol(XtX))), silent=TRUE) if (inherits(invXtX, "try-error")) { vb <- matrix(NA_real_, nrow=(m+1), ncol=(m+1)) warning(mstyle$warning("Cannot obtain var-cov matrix of the regression coefficients."), call.=FALSE) } else { vb <- mse * invXtX } if (!has.means) { b[1,] <- NA_real_ vb[1,] <- NA_real_ vb[,1] <- NA_real_ } } else { XtX <- Rxx * (n-1) } rownames(vb) <- colnames(vb) <- rownames(b) se <- sqrt(diag(vb)) tval <- c(b / se) pval <- 2*pt(abs(tval), df=df, lower.tail=FALSE) crit <- qt(level/2, df=df, lower.tail=FALSE) ci.lb <- c(b - crit * se) ci.ub <- c(b + crit * se) # fit statistics p <- sum(!is.na(b)) # number of (estimated) fixed effects parms <- p + 1 # number of (estimated) parameters deviance <- mse * df sigma2.ml <- mse * df / n sigma2.reml <- mse ll.ML <- -n/2 * log(2*base::pi*sigma2.ml) - 1/2 * deviance / sigma2.ml ll.REML <- -df/2 * log(2*base::pi*sigma2.reml) - 1/2 * deviance/sigma2.reml - 1/2 * determinant(XtX, logarithm=TRUE)$modulus AIC.ML <- -2 * ll.ML + 2*parms BIC.ML <- -2 * ll.ML + parms * log(n) AICc.ML <- -2 * ll.ML + 2*parms * max(n, parms+2) / (max(n, parms+2) - parms - 1) dev.ML <- deviance dev.REML <- -2 * (ll.REML - 0) AIC.REML <- -2 * ll.REML + 2*parms BIC.REML <- -2 * ll.REML + parms * log(n-p) AICc.REML <- -2 * ll.REML + 2*parms * max(n-p, parms+2) / (max(n-p, parms+2) - parms - 1) fit.stats <- matrix(c(ll.ML, dev.ML, AIC.ML, BIC.ML, AICc.ML, ll.REML, dev.REML, AIC.REML, BIC.REML, AICc.REML), ncol=2, byrow=FALSE) dimnames(fit.stats) <- list(c("ll","dev","AIC","BIC","AICc"), c("ML","REML")) fit.stats <- data.frame(fit.stats) res <- list(tab = data.frame(beta=b, se=se, tval=tval, df=df, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub), vb=vb, R2=R2, R2adj=R2adj, F=F, Fdf=c(m,df), Fp=Fp, p=p, df.residual=df, sigma2.ml=sigma2.ml, sigma2.reml=sigma2.reml, nobs=n, parms=parms, deviance=deviance, fit.stats=fit.stats, digits=digits, test="t", level=level, intercept=cov) } else { # when a V matrix is specified R2 <- c(t(b) %*% Rxy) # as in Becker & Aloe (2019); assume that this also applies for Cov matrices if (cov) { b <- b * sdy / sdx Rxy <- S[x, y, drop=FALSE] invRxx <- .diag(1/sdx) %*% invRxx %*% .diag(1/sdx) Udiag <- TRUE } else { Udiag <- FALSE } U <- matrix(NA_integer_, nrow=p, ncol=p) U[lower.tri(U, diag=Udiag)] <- seq_len(s) U[upper.tri(U, diag=Udiag)] <- t(U)[upper.tri(U, diag=Udiag)] Uxx <- U[x, x, drop=FALSE] Uxy <- U[x, y, drop=FALSE] uxx <- unique(c(na.omit(c(Uxx)))) uxy <- c(Uxy) A <- matrix(0, nrow=m, ncol=s) for (a in 1:ncol(A)) { if (a %in% uxx) { pos <- c(which(a == Uxx, arr.ind=TRUE)) J <- matrix(0, nrow=m, ncol=m) J[pos[1],pos[2]] <- J[pos[2],pos[1]] <- 1 A[,a] <- - invRxx %*% J %*% invRxx %*% Rxy } if (a %in% uxy) { pos <- c(which(a == Uxy, arr.ind=TRUE)) A[,a] <- invRxx[,pos[1]] } } vb <- A %*% V %*% t(A) if (cov) { b <- rbind(means[y] - means[x] %*% b, b) rownames(b)[1] <- "intrcpt" X <- rbind(means[x], diag(m)) vb <- X %*% vb %*% t(X) if (!has.means) { b[1,] <- NA_real_ vb[1,] <- NA_real_ vb[,1] <- NA_real_ } } se <- sqrt(diag(vb)) zval <- c(b / se) pval <- 2*pnorm(abs(zval), lower.tail=FALSE) crit <- qnorm(level/2, lower.tail=FALSE) ci.lb <- c(b - crit * se) ci.ub <- c(b + crit * se) if (cov) { QM <- try(as.vector(t(b[-1,,drop=FALSE]) %*% chol2inv(chol(vb[-1,-1,drop=FALSE])) %*% b[-1,,drop=FALSE]), silent=TRUE) } else { QM <- try(as.vector(t(b) %*% chol2inv(chol(vb)) %*% b), silent=TRUE) } if (inherits(QM, "try-error")) QM <- NA_real_ QMp <- pchisq(QM, df=m, lower.tail=FALSE) rownames(vb) <- colnames(vb) <- rownames(b) res <- list(tab = data.frame(beta=b, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub), vb=vb, R2=R2, QM=QM, QMdf=c(m,NA_integer_), QMp=QMp, p=m, parms=m, digits=digits, test="z", level=level, intercept=cov) } class(res) <- c("matreg") return(res) } metafor/R/fitted.rma.r0000644000176200001440000000273015120213572014330 0ustar liggesusersfitted.rma <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(object$X.f)) stop(mstyle$stop("Information needed to compute the fitted values is not available in the model object.")) ### note: fitted values can be calculated for all studies including those that ### have NA on yi/vi (and with "na.pass" these will be provided); but if there ### is an NA in the X's, then the fitted value will also be NA out <- c(object$X.f %*% object$beta) names(out) <- object$slab #not.na <- !is.na(out) if (na.act == "na.omit") out <- out[object$not.na] if (na.act == "na.exclude") out[!object$not.na] <- NA_real_ if (na.act == "na.fail" && any(!object$not.na)) stop(mstyle$stop("Missing values in results.")) if (inherits(object, "rma.ls")) { out <- list(location = out) out$scale <- c(object$Z.f %*% object$alpha) names(out$scale) <- object$slab #not.na <- !is.na(out$scale) if (na.act == "na.omit") out$scale <- out$scale[object$not.na] if (na.act == "na.exclude") out$scale[!object$not.na] <- NA_real_ if (na.act == "na.fail" && any(!object$not.na)) stop(mstyle$stop("Missing values in results.")) } return(out) } metafor/R/print.gosh.rma.r0000644000176200001440000000273315120213572015147 0ustar liggesusersprint.gosh.rma <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="gosh.rma") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() cat(mstyle$text("Model fits attempted: ")) cat(mstyle$result(length(x$fit))) cat("\n") cat(mstyle$text("Model fits succeeded: ")) cat(mstyle$result(sum(x$fit))) cat("\n\n") res.table <- matrix(NA_real_, nrow=ncol(x$res), ncol=6) res.table[,1] <- apply(x$res, 2, mean, na.rm=TRUE) res.table[,2] <- apply(x$res, 2, min, na.rm=TRUE) res.table[,3] <- apply(x$res, 2, quantile, 0.25, na.rm=TRUE) res.table[,4] <- apply(x$res, 2, quantile, 0.50, na.rm=TRUE) res.table[,5] <- apply(x$res, 2, quantile, 0.75, na.rm=TRUE) res.table[,6] <- apply(x$res, 2, max, na.rm=TRUE) res.table <- fmtx(res.table, digits[["est"]]) colnames(res.table) <- c("mean", "min", "q1", "median", "q3", "max") rownames(res.table) <- colnames(x$res) if (ncol(x$res) == 6) rownames(res.table)[2] <- "Q" ### add blank row before the model coefficients in meta-regression models if (ncol(x$res) > 6) res.table <- rbind(res.table[seq_len(5),], "", res.table[6:nrow(res.table),,drop=FALSE]) ### remove row for tau^2 in FE/EE/CE models if (is.element(x$method, c("FE","EE","CE"))) res.table <- res.table[-5,] tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) .space() invisible() } metafor/R/confint.rma.mv.r0000644000176200001440000006011015120213572015126 0ustar liggesusersconfint.rma.mv <- function(object, parm, level, fixed=FALSE, sigma2, tau2, rho, gamma2, phi, digits, transf, targs, verbose=FALSE, control, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.mv") if (!missing(parm)) warning(mstyle$warning("Argument 'parm' (currently) ignored."), call.=FALSE) x <- object k <- x$k p <- x$p if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL if (missing(control)) control <- list() ddd <- list(...) .chkdots(ddd, c("time", "xlim", "extint", "code1", "code2")) level <- .level(level, stopon100=isTRUE(ddd$extint)) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd$xlim)) { if (length(ddd$xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) control$vc.min <- ddd$xlim[1] control$vc.max <- ddd$xlim[2] } ### check if user has specified one of the sigma2, tau2, rho, gamma2, or phi arguments random <- !all(missing(sigma2), missing(tau2), missing(rho), missing(gamma2), missing(phi)) if (!fixed && !random) { ### if both 'fixed' and 'random' are FALSE, obtain CIs for all variance/correlation components cl <- match.call() ### total number of non-fixed components comps <- ifelse(x$withS, sum(!x$vc.fix$sigma2), 0) + ifelse(x$withG, sum(!x$vc.fix$tau2) + sum(!x$vc.fix$rho), 0) + ifelse(x$withH, sum(!x$vc.fix$gamma2) + sum(!x$vc.fix$phi), 0) if (comps == 0) stop(mstyle$stop("No components for which a CI can be obtained.")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) res.all <- list() j <- 0 if (x$withS && any(!x$vc.fix$sigma2)) { for (pos in seq_len(x$sigma2s)[!x$vc.fix$sigma2]) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$sigma2 <- pos cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.mv") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for sigma2 =", pos, "\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } } if (x$withG) { if (any(!x$vc.fix$tau2)) { for (pos in seq_len(x$tau2s)[!x$vc.fix$tau2]) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$tau2 <- pos cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.mv") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for tau2 =", pos, "\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } } if (any(!x$vc.fix$rho)) { for (pos in seq_len(x$rhos)[!x$vc.fix$rho]) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$rho <- pos cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.mv") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for rho =", pos, "\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } } } if (x$withH) { if (any(!x$vc.fix$gamma2)) { for (pos in seq_len(x$gamma2s)[!x$vc.fix$gamma2]) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$gamma2 <- pos cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.mv") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for gamma2 =", pos, "\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } } if (any(!x$vc.fix$phi)) { for (pos in seq_len(x$phis)[!x$vc.fix$phi]) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$phi <- pos cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.mv") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for phi =", pos, "\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } } } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } if (length(res.all) == 1L) { return(res.all[[1]]) } else { res.all$digits <- digits class(res.all) <- "list.confint.rma" return(res.all) } } ######################################################################### ######################################################################### ######################################################################### if (random) { type <- "pl" ###################################################################### ### check if user has specified more than one of these arguments if (sum(!missing(sigma2), !missing(tau2), !missing(rho), !missing(gamma2), !missing(phi)) > 1L) stop(mstyle$stop("Must specify only one of the arguments 'sigma2', 'tau2', 'rho', 'gamma2', or 'phi'.")) ### check if model actually contains (at least one) such a component and that it was actually estimated ### note: a component that is not in the model is NA; components that are fixed are TRUE if (!missing(sigma2) && (all(is.na(x$vc.fix$sigma2)) || all(x$vc.fix$sigma2))) stop(mstyle$stop("Model does not contain any (estimated) 'sigma2' components.")) if (!missing(tau2) && (all(is.na(x$vc.fix$tau2)) || all(x$vc.fix$tau2))) stop(mstyle$stop("Model does not contain any (estimated) 'tau2' components.")) if (!missing(rho) && c(all(is.na(x$vc.fix$rho)) || all(x$vc.fix$rho))) stop(mstyle$stop("Model does not contain any (estimated) 'rho' components.")) if (!missing(gamma2) && (all(is.na(x$vc.fix$gamma2)) || all(x$vc.fix$gamma2))) stop(mstyle$stop("Model does not contain any (estimated) 'gamma2' components.")) if (!missing(phi) && c(all(is.na(x$vc.fix$phi)) || all(x$vc.fix$phi))) stop(mstyle$stop("Model does not contain any (estimated) 'phi' components.")) ### check if user specified more than one sigma2, tau2, rho, gamma2, or rho component if (!missing(sigma2) && (length(sigma2) > 1L)) stop(mstyle$stop("Can only specify one 'sigma2' component.")) if (!missing(tau2) && (length(tau2) > 1L)) stop(mstyle$stop("Can only specify one 'tau2' component.")) if (!missing(rho) && (length(rho) > 1L)) stop(mstyle$stop("Can only specify one 'rho' component.")) if (!missing(gamma2) && (length(gamma2) > 1L)) stop(mstyle$stop("Can only specify one 'gamma2' component.")) if (!missing(phi) && (length(phi) > 1L)) stop(mstyle$stop("Can only specify one 'phi' component.")) ### check if user specified a logical if (!missing(sigma2) && is.logical(sigma2)) stop(mstyle$stop("Must specify a number for the 'sigma2' component.")) if (!missing(tau2) && is.logical(tau2)) stop(mstyle$stop("Must specify a number for the 'tau2' component.")) if (!missing(rho) && is.logical(rho)) stop(mstyle$stop("Must specify a number for the 'rho' component.")) if (!missing(gamma2) && is.logical(gamma2)) stop(mstyle$stop("Must specify a number for the 'gamma2' component.")) if (!missing(phi) && is.logical(phi)) stop(mstyle$stop("Must specify a number for the 'phi' component.")) ### check if user specified a component that does not exist if (!missing(sigma2) && (sigma2 > length(x$vc.fix$sigma2) || sigma2 <= 0)) stop(mstyle$stop("No such 'sigma2' component in the model.")) if (!missing(tau2) && (tau2 > length(x$vc.fix$tau2) || tau2 <= 0)) stop(mstyle$stop("No such 'tau2' component in the model.")) if (!missing(rho) && (rho > length(x$vc.fix$rho) || rho <= 0)) stop(mstyle$stop("No such 'rho' component in the model.")) if (!missing(gamma2) && (gamma2 > length(x$vc.fix$gamma2) || gamma2 <= 0)) stop(mstyle$stop("No such 'gamma2' component in the model.")) if (!missing(phi) && (phi > length(x$vc.fix$phi) || phi <= 0)) stop(mstyle$stop("No such 'phi' component in the model.")) ### check if user specified a component that was fixed if (!missing(sigma2) && x$vc.fix$sigma2[sigma2]) stop(mstyle$stop("Specified 'sigma2' component was fixed.")) if (!missing(tau2) && x$vc.fix$tau2[tau2]) stop(mstyle$stop("Specified 'tau2' component was fixed.")) if (!missing(rho) && x$vc.fix$rho[rho]) stop(mstyle$stop("Specified 'rho' component was fixed.")) if (!missing(gamma2) && x$vc.fix$gamma2[gamma2]) stop(mstyle$stop("Specified 'gamma2' component was fixed.")) if (!missing(phi) && x$vc.fix$phi[phi]) stop(mstyle$stop("Specified 'phi' component was fixed.")) ### if everything is good so far, get value of the variance component and set 'comp' sigma2.pos <- NA_integer_ tau2.pos <- NA_integer_ rho.pos <- NA_integer_ gamma2.pos <- NA_integer_ phi.pos <- NA_integer_ if (!missing(sigma2)) { vc <- x$sigma2[sigma2] comp <- "sigma2" sigma2.pos <- sigma2 } if (!missing(tau2)) { vc <- x$tau2[tau2] comp <- "tau2" tau2.pos <- tau2 } if (!missing(rho)) { vc <- x$rho[rho] comp <- "rho" rho.pos <- rho } if (!missing(gamma2)) { vc <- x$gamma2[gamma2] comp <- "gamma2" gamma2.pos <- gamma2 } if (!missing(phi)) { vc <- x$phi[phi] comp <- "phi" phi.pos <- phi } #return(list(comp=comp, vc=vc, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos)) ###################################################################### ### set defaults for control parameters for uniroot() and replace with any user-defined values ### set vc.min and vc.max and possibly replace with any user-defined values con <- list(tol=.Machine$double.eps^0.25, maxiter=1000, verbose=FALSE, eptries=10) if (is.element(comp, c("sigma2", "tau2", "gamma2"))) { con$vc.min <- 0 con$vc.max <- max(ifelse(vc <= .Machine$double.eps^0.5, 10, max(10, vc*100)), con$vc.min) } if (comp == "rho") { if (is.element(x$struct[1], c("CS","HCS"))) con$vc.min <- -1 # this will fail most of the time but with retries, this may get closer to actual lower bound #con$vc.min <- min(-1/(x$g.nlevels.f[1] - 1), vc) # this guarantees that cor matrix is semi-positive definite, but since V gets added, this is actually too strict if (is.element(x$struct[1], c("AR","HAR","CAR"))) con$vc.min <- min(0, vc) # negative autocorrelation parameters not considered (not even sensible for CAR) if (is.element(x$struct[1], c("UN","UNR","GEN"))) con$vc.min <- -1 # TODO: this will often fail! (but with retries, this should still work) con$vc.max <- 1 if (is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH"))) { con$vc.min <- 0 # TODO: 0 basically always fails con$vc.max <- max(10, vc*10) } if (is.element(x$struct[1], c("PHYPL","PHYPD"))) { con$vc.min <- 0 con$vc.max <- max(2, vc*2) } } if (comp == "phi") { if (is.element(x$struct[2], c("CS","HCS"))) con$vc.min <- -1 # this will fail most of the time but with retries, this may get closer to actual lower bound #con$vc.min <- min(-1/(x$h.nlevels.f[1] - 1), vc) # this guarantees that cor matrix is semi-positive definite, but since V gets added, this is actually too strict if (is.element(x$struct[2], c("AR","HAR","CAR"))) con$vc.min <- min(0, vc) # negative autocorrelation parameters not considered (not even sensible for CAR) if (is.element(x$struct[2], c("UN","UNR","GEN"))) con$vc.min <- -1 # TODO: this will often fail! (but with retries, this should still work) con$vc.max <- 1 if (is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH"))) { con$vc.min <- 0 # TODO: 0 basically always fails con$vc.max <- max(10, vc*10) } if (is.element(x$struct[2], c("PHYPL","PHYPD"))) { con$vc.min <- 0 con$vc.max <- max(2, vc*2) } } con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose ###################################################################### vc.lb <- NA_real_ vc.ub <- NA_real_ ci.null <- FALSE # logical if CI is a null set lb.conv <- FALSE # logical if search converged for lower bound (LB) ub.conv <- FALSE # logical if search converged for upper bound (UB) lb.sign <- "" # for sign in case LB must be below vc.min ("<") or above vc.max (">") ub.sign <- "" # for sign in case UB must be below vc.min ("<") or above vc.max (">") ###################################################################### ###################################################################### ###################################################################### ### Profile Likelihood method if (type == "pl") { if (con$vc.min > vc) stop(mstyle$stop("Lower bound of interval to be searched must be <= estimated value of component.")) if (con$vc.max < vc) stop(mstyle$stop("Upper bound of interval to be searched must be >= estimated value of component.")) objective <- qchisq(1-level, df=1) ################################################################### ### search for lower bound ### get diff value when setting component to vc.min; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the lower bound must be below vc.min epdiff <- abs(con$vc.min - vc) / con$eptries for (i in seq_len(con$eptries)) { res <- try(.profile.rma.mv(con$vc.min, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (!isTRUE(ddd$extint) && res < 0) { vc.lb <- con$vc.min lb.conv <- TRUE if (is.element(comp, c("sigma2", "tau2", "gamma2")) && con$vc.min > 0) lb.sign <- "<" if (is.element(comp, c("rho", "phi")) && con$vc.min > -1) lb.sign <- "<" if (((comp == "rho" && is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD"))) || (comp == "phi" && is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD")))) && con$vc.min > 0) lb.sign <- "<" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.mv, interval=c(con$vc.min, vc), tol=con$tol, maxiter=con$maxiter, extendInt="downX", obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.mv, interval=c(con$vc.min, vc), tol=con$tol, maxiter=con$maxiter, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { vc.lb <- res lb.conv <- TRUE } } break } con$vc.min <- con$vc.min + epdiff } if (verbose) cat("\n") ################################################################### ### search for upper bound ### get diff value when setting component to vc.max; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the upper bound must be above vc.max epdiff <- abs(con$vc.max - vc) / con$eptries for (i in seq_len(con$eptries)) { res <- try(.profile.rma.mv(con$vc.max, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (!isTRUE(ddd$extint) && res < 0) { vc.ub <- con$vc.max ub.conv <- TRUE if (is.element(comp, c("sigma2", "tau2", "gamma2"))) ub.sign <- ">" if (is.element(comp, c("rho", "phi")) && con$vc.max < 1) ub.sign <- ">" if ((comp == "rho" && is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD"))) || (comp == "phi" && is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYPL","PHYPD")))) ub.sign <- ">" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.mv, interval=c(vc, con$vc.max), tol=con$tol, maxiter=con$maxiter, extendInt="upX", obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.mv, interval=c(vc, con$vc.max), tol=con$tol, maxiter=con$maxiter, obj=x, comp=comp, sigma2.pos=sigma2.pos, tau2.pos=tau2.pos, rho.pos=rho.pos, gamma2.pos=gamma2.pos, phi.pos=phi.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { vc.ub <- res ub.conv <- TRUE } } break } con$vc.max <- con$vc.max - epdiff } ################################################################### } ###################################################################### ###################################################################### ###################################################################### if (!lb.conv) warning(mstyle$warning("Cannot obtain lower bound of profile likelihood CI due to convergence problems."), call.=FALSE) if (!ub.conv) warning(mstyle$warning("Cannot obtain upper bound of profile likelihood CI due to convergence problems."), call.=FALSE) ###################################################################### vc <- c(vc, vc.lb, vc.ub) if (is.element(comp, c("sigma2", "tau2", "gamma2"))) { vcsqrt <- sqrt(ifelse(vc >= 0, vc, NA_real_)) res.random <- rbind(vc, vcsqrt) if (comp == "sigma2") { if (length(x$sigma2) == 1L) { rownames(res.random) <- c("sigma^2", "sigma") } else { rownames(res.random) <- paste0(c("sigma^2", "sigma"), ".", sigma2.pos) } } if (comp == "tau2") { if (length(x$tau2) == 1L) { rownames(res.random) <- c("tau^2", "tau") } else { rownames(res.random) <- paste0(c("tau^2", "tau"), ".", tau2.pos) } } if (comp == "gamma2") { if (length(x$gamma2) == 1L) { rownames(res.random) <- c("gamma^2", "gamma") } else { rownames(res.random) <- paste0(c("gamma^2", "gamma"), ".", gamma2.pos) } } } else { res.random <- rbind(vc) if (comp == "rho") { if (length(x$rho) == 1L) { rownames(res.random) <- "rho" } else { rownames(res.random) <- paste0("rho.", rho.pos) } } if (comp == "phi") { if (length(x$phi) == 1L) { rownames(res.random) <- "phi" } else { rownames(res.random) <- paste0("phi.", rho.pos) } } } colnames(res.random) <- c("estimate", "ci.lb", "ci.ub") } ######################################################################### ######################################################################### ######################################################################### if (fixed) { if (is.element(x$test, c("knha","adhoc","t"))) { crit <- sapply(seq_along(x$ddf), function(j) if (x$ddf[j] > 0) qt(level/2, df=x$ddf[j], lower.tail=FALSE) else NA_real_) } else { crit <- qnorm(level/2, lower.tail=FALSE) } beta <- c(x$beta) ci.lb <- c(beta - crit * x$se) ci.ub <- c(beta + crit * x$se) if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] res.fixed <- cbind(estimate=beta, ci.lb=ci.lb, ci.ub=ci.ub) rownames(res.fixed) <- rownames(x$beta) } ######################################################################### ######################################################################### ######################################################################### res <- list() if (fixed) res$fixed <- res.fixed if (random) res$random <- res.random res$digits <- digits if (random) { res$ci.null <- ci.null res$lb.sign <- lb.sign res$ub.sign <- ub.sign #res$vc.min <- con$vc.min } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(res) <- "confint.rma" return(res) } metafor/R/fitstats.rma.r0000644000176200001440000000301015120751600014701 0ustar liggesusersfitstats.rma <- function(object, ..., REML) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") # unless the 'REML' argument was specified, the 'method' of the first object # determines whether to show fit statistics based on the ML or REML likelihood if (missing(REML)) { if (object$method == "REML") { REML <- TRUE } else { REML <- FALSE } } if (missing(...)) { # if there is just 'object' if (REML) { out <- cbind(object$fit.stats$REML) colnames(out) <- "REML" } else { out <- cbind(object$fit.stats$ML) colnames(out) <- "ML" } } else { # if there is 'object' and additional objects via ... if (REML) { out <- sapply(list(object, ...), function(x) x$fit.stats$REML) } else { out <- sapply(list(object, ...), function(x) x$fit.stats$ML) } out <- data.frame(out) # get the names of the objects; same idea as in stats:::AIC.default cl <- match.call() cl$REML <- NULL names(out) <- as.character(cl[-1L]) # check that all models were fitted to the same data chksums <- sapply(list(object, ...), function(x) x$chksumyi) if (any(chksums[1] != chksums)) warning(mstyle$warning("Models not all fitted to the same data."), call.=FALSE) } rownames(out) <- c("logLik", "deviance", "AIC", "BIC", "AICc") return(out) #print(fmtx(out, object$digits[["fit"]]), quote=FALSE) #invisible(out) } metafor/R/funnel.default.r0000644000176200001440000005137715120213572015220 0ustar liggesusersfunnel.default <- function(x, vi, sei, ni, subset, yaxis="sei", xlim, ylim, xlab, ylab, slab, steps=5, at, atransf, targs, digits, level=95, back, shade, hlines, refline=0, lty=3, pch, col, bg, label=FALSE, offset=0.4, legend=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (missing(subset)) subset <- NULL yaxis <- match.arg(yaxis, c("sei", "vi", "seinv", "vinv", "ni", "ninv", "sqrtni", "sqrtninv", "lni", "wi")) if (missing(atransf)) atransf <- FALSE atransf.char <- deparse(atransf) if (anyNA(level) || is.null(level)) stop(mstyle$stop("Argument 'level' cannot be NA or NULL.")) .start.plot() if (missing(back)) back <- .coladj(par("bg","fg"), dark=0.1, light=-0.2) if (missing(shade)) shade <- .coladj(par("bg","fg"), dark=c(0.2,-0.8), light=c(0,1)) if (length(level) > 1L && length(shade) == 1L) { #shade <- rep(shade, length(level)) shade2 <- .coladj(par("bg","fg"), dark=c(0.5,-0.3), light=c(-0.5,0.3)) shade <- colorRampPalette(c(shade,shade2))(length(level)) shade[-1] <- rev(shade[-1]) } if (missing(hlines)) hlines <- .coladj(par("bg","fg"), dark=c(0,-0.9), light=c(0,1)) if (is.null(refline)) refline <- NA if (missing(pch)) pch <- 19 yi <- x k <- length(yi) ### check if sample size information is available if plotting (some function of) of the sample sizes on the y-axis if (missing(ni)) ni <- NULL if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni"))) { if (is.null(ni)) ni <- attr(yi, "ni") if (!is.null(ni) && length(ni) != k) stop(mstyle$stop(paste0("Length of the 'ni' argument (", length(ni), ") does not correspond to the number of outcomes (", k, ")."))) if (is.null(ni)) stop(mstyle$stop("No sample size information available.")) } ### check if sampling variances and/or standard errors are available if (missing(vi)) vi <- NULL if (is.function(vi)) # if vi is utils::vi() stop(mstyle$stop("Cannot find variable specified for the 'vi' argument.")) if (missing(sei)) sei <- NULL if (is.null(vi)) { if (!is.null(sei)) vi <- sei^2 } if (is.null(sei)) { if (!is.null(vi)) sei <- sqrt(vi) } if (is.element(yaxis, c("sei", "vi", "seinv", "vinv", "wi"))) { if (is.null(vi)) stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) if (length(vi) != k) stop(mstyle$stop("Length of 'yi' and 'vi' (or 'sei') are not the same.")) } ### set negative variances and/or standard errors to 0 if (!is.null(vi)) vi[vi < 0] <- 0 if (!is.null(sei)) sei[sei < 0] <- 0 ### if unspecified, get slab from attributes of yi; if not available or it doesn't have the right length, set slab <- 1:k if (missing(slab)) { slab <- attr(yi, "slab") if (is.null(slab) || length(slab) != k) slab <- seq_along(yi) } if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the number of outcomes (", k, ")."))) ### set y-axis label if not specified if (missing(ylab)) { if (yaxis == "sei") ylab <- "Standard Error" if (yaxis == "vi") ylab <- "Variance" if (yaxis == "seinv") ylab <- "Inverse Standard Error" if (yaxis == "vinv") ylab <- "Inverse Variance" if (yaxis == "ni") ylab <- "Sample Size" if (yaxis == "ninv") ylab <- "Inverse Sample Size" if (yaxis == "sqrtni") ylab <- "Square Root Sample Size" if (yaxis == "sqrtninv") ylab <- "Inverse Square Root Sample Size" if (yaxis == "lni") ylab <- "Log Sample Size" if (yaxis == "wi") ylab <- "Weight (in %)" } if (missing(at)) at <- NULL if (missing(targs)) targs <- NULL ### default number of digits (if not specified) if (missing(digits)) { if (yaxis == "sei") digits <- c(2L,3L) if (yaxis == "vi") digits <- c(2L,3L) if (yaxis == "seinv") digits <- c(2L,3L) if (yaxis == "vinv") digits <- c(2L,3L) if (yaxis == "ni") digits <- c(2L,0L) if (yaxis == "ninv") digits <- c(2L,3L) if (yaxis == "sqrtni") digits <- c(2L,3L) if (yaxis == "sqrtninv") digits <- c(2L,3L) if (yaxis == "lni") digits <- c(2L,3L) if (yaxis == "wi") digits <- c(2L,2L) } else { if (length(digits) == 1L) # digits[1] for x-axis labels digits <- c(digits,digits) # digits[2] for y-axis labels } ### note: digits can also be a list (e.g., digits=list(2L,3)); trailing 0's are dropped for integers lty <- .expand1(lty, 2L) # 1st value = funnel lines, 2nd value = reference line if (length(pch) == 1L) { pch.vec <- FALSE pch <- rep(pch, k) } else { pch.vec <- TRUE } if (length(pch) != k) stop(mstyle$stop(paste0("Length of the 'pch' argument (", length(pch), ") does not correspond to the number of outcomes (", k, ")."))) if (missing(col)) col <- par("fg") if (length(col) == 1L) { col.vec <- FALSE col <- rep(col, k) } else { col.vec <- TRUE } if (length(col) != k) stop(mstyle$stop(paste0("Length of the 'col' argument (", length(col), ") does not correspond to the number of outcomes (", k, ")."))) if (missing(bg)) bg <- .coladj(par("bg","fg"), dark=0.1, light=-0.1) if (length(bg) == 1L) { bg.vec <- FALSE bg <- rep(bg, k) } else { bg.vec <- TRUE } if (length(bg) != k) stop(mstyle$stop(paste0("Length of the 'bg' argument (", length(bg), ") does not correspond to the number of outcomes (", k, ")."))) if (length(label) != 1L) stop(mstyle$stop("Argument 'label' should be of length 1.")) ddd <- list(...) if (!is.null(ddd$transf)) warning("Function does not have a 'transf' argument (use 'atransf' instead).", call.=FALSE, immediate.=TRUE) lplot <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) plot(...) labline <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) abline(...) lsegments <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) segments(...) laxis <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) axis(...) lpolygon <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) polygon(...) llines <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) lines(...) lpoints <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) points(...) lrect <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) rect(...) ltext <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) text(...) ### refline2, level2, and lty2 for adding a second reference line / funnel refline2 <- ddd$refline2 level2 <- .chkddd(ddd$level2, 95) lty2 <- .chkddd(ddd$lty2, 3) ### number of y-axis values at which to calculate the bounds of the pseudo confidence interval ci.res <- .chkddd(ddd$ci.res, 1000) ### to adjust color of reference line, region bounds, and the L box colref <- .chkddd(ddd$colref, .coladj(par("bg","fg"), dark=0.6, light=-0.6)) colci <- .chkddd(ddd$colci, .coladj(par("bg","fg"), dark=0.6, light=-0.6)) colbox <- .chkddd(ddd$colbox, .coladj(par("bg","fg"), dark=0.6, light=-0.6)) ######################################################################### ### if a subset of studies is specified if (!is.null(subset)) { subset <- .chksubset(subset, length(yi)) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) sei <- .getsubset(sei, subset) ni <- .getsubset(ni, subset) slab <- .getsubset(slab, subset) pch <- .getsubset(pch, subset) col <- .getsubset(col, subset) bg <- .getsubset(bg, subset) } ### check for NAs and act accordingly has.na <- is.na(yi) | (if (is.element(yaxis, c("vi", "vinv"))) is.na(vi) else FALSE) | (if (is.element(yaxis, c("sei", "seinv"))) is.na(vi) else FALSE) | (if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni"))) is.na(ni) else FALSE) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] vi <- vi[not.na] sei <- sei[not.na] ni <- ni[not.na] slab <- slab[not.na] pch <- pch[not.na] col <- col[not.na] bg <- bg[not.na] } if (na.act == "na.fail") stop(mstyle$stop("Missing values in data.")) } if (missing(xlab)) xlab <- .setlab(attr(yi, "measure"), transf.char="FALSE", atransf.char, gentype=1) ### at least two studies left? if (length(yi) < 2L) stop(mstyle$stop("Plotting terminated since k < 2.")) ### get weights if (yaxis == "wi") { if (any(vi <= 0)) stop(mstyle$stop("Cannot plot weights when there are non-positive sampling variances in the data.")) weights <- 1/vi weights <- weights / sum(weights) * 100 } ######################################################################### ### set y-axis limits if (missing(ylim)) { ### 1st ylim value is always the lowest precision (should be at the bottom of the plot) ### 2nd ylim value is always the highest precision (should be at the top of the plot) if (yaxis == "sei") ylim <- c(max(sei), 0) if (yaxis == "vi") ylim <- c(max(vi), 0) if (yaxis == "seinv") ylim <- c(min(1/sei), max(1/sei)) if (yaxis == "vinv") ylim <- c(min(1/vi), max(1/vi)) if (yaxis == "ni") ylim <- c(min(ni), max(ni)) if (yaxis == "ninv") ylim <- c(max(1/ni), min(1/ni)) if (yaxis == "sqrtni") ylim <- c(min(sqrt(ni)), max(sqrt(ni))) if (yaxis == "sqrtninv") ylim <- c(max(1/sqrt(ni)), min(1/sqrt(ni))) if (yaxis == "lni") ylim <- c(min(log(ni)), max(log(ni))) if (yaxis == "wi") ylim <- c(min(weights), max(weights)) ### infinite y-axis limits can happen with "seinv" and "vinv" when one or more sampling variances are 0 if (any(is.infinite(ylim))) stop(mstyle$stop("Setting 'ylim' automatically not possible (must set y-axis limits manually).")) } else { ### make sure that user supplied limits are in the right order if (is.element(yaxis, c("sei", "vi", "ninv", "sqrtninv"))) ylim <- c(max(ylim), min(ylim)) if (is.element(yaxis, c("seinv", "vinv", "ni", "sqrtni", "lni", "wi"))) ylim <- c(min(ylim), max(ylim)) ### make sure that user supplied limits are in the appropriate range if (is.element(yaxis, c("sei", "vi", "ni", "ninv", "sqrtni", "sqrtninv", "lni"))) { if (ylim[1] < 0 || ylim[2] < 0) stop(mstyle$stop("Both y-axis limits must be >= 0.")) } if (is.element(yaxis, c("seinv", "vinv"))) { if (ylim[1] <= 0 || ylim[2] <= 0) stop(mstyle$stop("Both y-axis limits must be > 0.")) } if (is.element(yaxis, c("wi"))) { if (ylim[1] < 0 || ylim[2] < 0) stop(mstyle$stop("Both y-axis limits must be >= 0.")) } } ######################################################################### ### set x-axis limits if (is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) { level <- .level(level, allow.vector=TRUE) # note: there may be multiple level values level2 <- .level(level2) level.min <- min(level) # note: smallest level is the widest CI lvals <- length(level) ### calculate the CI bounds at the bottom of the figure (for the widest CI if there are multiple) if (yaxis == "sei") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1]^2) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1]^2) } if (yaxis == "vi") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1]) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1]) } if (yaxis == "seinv") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1]^2) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1]^2) } if (yaxis == "vinv") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1]) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1]) } if (missing(xlim)) { xlim <- c(min(x.lb.bot,min(yi),na.rm=TRUE), max(x.ub.bot,max(yi),na.rm=TRUE)) # make sure x-axis not only includes widest CI, but also all yi values rxlim <- xlim[2] - xlim[1] # calculate range of the x-axis limits xlim[1] <- xlim[1] - (rxlim * 0.10) # subtract 10% of range from lower x-axis bound xlim[2] <- xlim[2] + (rxlim * 0.10) # add 10% of range to upper x-axis bound } else { xlim <- sort(xlim) # just in case the user supplies the limits in the wrong order } } if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni", "wi"))) { if (missing(xlim)) { xlim <- c(min(yi), max(yi)) rxlim <- xlim[2] - xlim[1] # calculate range of the x-axis limits xlim[1] <- xlim[1] - (rxlim * 0.10) # subtract 10% of range from lower x-axis bound xlim[2] <- xlim[2] + (rxlim * 0.10) # add 10% of range to upper x-axis bound } else { xlim <- sort(xlim) # just in case the user supplies the limits in the wrong order } } ### if user has specified 'at' argument, make sure xlim actually contains the min and max 'at' values if (!is.null(at)) { xlim[1] <- min(c(xlim[1], at), na.rm=TRUE) xlim[2] <- max(c(xlim[2], at), na.rm=TRUE) } ######################################################################### ### set up plot lplot(NA, NA, xlim=xlim, ylim=ylim, xlab=xlab, ylab=ylab, xaxt="n", yaxt="n", bty="n", ...) ### add background shading par.usr <- par("usr") lrect(par.usr[1], par.usr[3], par.usr[2], par.usr[4], col=back, border=NA, ...) ### add y-axis laxis(side=2, at=seq(from=ylim[1], to=ylim[2], length.out=steps), labels=fmtx(seq(from=ylim[1], to=ylim[2], length.out=steps), digits[[2]], drop0ifint=TRUE), ...) ### add horizontal lines labline(h=seq(from=ylim[1], to=ylim[2], length.out=steps), col=hlines, ...) ######################################################################### ### add CI region(s) if (is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) { ### add a bit to the top/bottom ylim so that the CI region(s) fill out the entire figure if (yaxis == "sei") { rylim <- ylim[1] - ylim[2] ylim[1] <- ylim[1] + (rylim * 0.10) ylim[2] <- max(0, ylim[2] - (rylim * 0.10)) } if (yaxis == "vi") { rylim <- ylim[1] - ylim[2] ylim[1] <- ylim[1] + (rylim * 0.10) ylim[2] <- max(0, ylim[2] - (rylim * 0.10)) } if (yaxis == "seinv") { rylim <- ylim[2] - ylim[1] #ylim[1] <- max(0.0001, ylim[1] - (rylim * 0.10)) # not clear how much to add to bottom ylim[2] <- ylim[2] + (rylim * 0.10) } if (yaxis == "vinv") { rylim <- ylim[2] - ylim[1] #ylim[1] <- max(0.0001, ylim[1] - (rylim * 0.10)) # not clear how much to add to bottom ylim[2] <- ylim[2] + (rylim * 0.10) } yi.vals <- seq(from=ylim[1], to=ylim[2], length.out=ci.res) if (yaxis == "sei") vi.vals <- yi.vals^2 if (yaxis == "vi") vi.vals <- yi.vals if (yaxis == "seinv") vi.vals <- 1/yi.vals^2 if (yaxis == "vinv") vi.vals <- 1/yi.vals for (m in lvals:1) { ci.left <- refline - qnorm(level[m]/2, lower.tail=FALSE) * sqrt(vi.vals) ci.right <- refline + qnorm(level[m]/2, lower.tail=FALSE) * sqrt(vi.vals) lpolygon(c(ci.left,ci.right[ci.res:1]), c(yi.vals,yi.vals[ci.res:1]), border=NA, col=shade[m], ...) llines(ci.left, yi.vals, lty=lty[1], col=colci, ...) llines(ci.right, yi.vals, lty=lty[1], col=colci, ...) } if (!is.null(refline2)) { ci.left <- refline2 - qnorm(level2/2, lower.tail=FALSE) * sqrt(vi.vals) ci.right <- refline2 + qnorm(level2/2, lower.tail=FALSE) * sqrt(vi.vals) llines(ci.left, yi.vals, lty=lty2, col=colci, ...) llines(ci.right, yi.vals, lty=lty2, col=colci, ...) } } ### add vertical reference line ### use segments so that line does not extent beyond tip of CI region if (is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) lsegments(refline, ylim[1], refline, ylim[2], lty=lty[2], col=colref, ...) if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni", "wi"))) labline(v=refline, lty=lty[2], col=colref, ...) ######################################################################### ### add points xaxis.vals <- yi if (yaxis == "sei") yaxis.vals <- sei if (yaxis == "vi") yaxis.vals <- vi if (yaxis == "seinv") yaxis.vals <- 1/sei if (yaxis == "vinv") yaxis.vals <- 1/vi if (yaxis == "ni") yaxis.vals <- ni if (yaxis == "ninv") yaxis.vals <- 1/ni if (yaxis == "sqrtni") yaxis.vals <- sqrt(ni) if (yaxis == "sqrtninv") yaxis.vals <- 1/sqrt(ni) if (yaxis == "lni") yaxis.vals <- log(ni) if (yaxis == "wi") yaxis.vals <- weights lpoints(x=xaxis.vals, y=yaxis.vals, pch=pch, col=col, bg=bg, ...) ######################################################################### ### generate x-axis positions if none are specified if (is.null(at)) { at <- axTicks(side=1) #at <- pretty(x=c(alim[1], alim[2]), n=steps-1) #at <- pretty(x=c(min(ci.lb), max(ci.ub)), n=steps-1) } else { at <- at[at > par("usr")[1]] at <- at[at < par("usr")[2]] } if (is.null(ddd$at.lab)) { at.lab <- at if (is.function(atransf)) { if (is.null(targs)) { at.lab <- fmtx(sapply(at.lab, atransf), digits[[1]], drop0ifint=TRUE) } else { if (!is.primitive(atransf) && !is.null(targs) && length(formals(atransf)) == 1L) stop(mstyle$stop("Function specified via 'atransf' does not appear to have an argument for 'targs'.")) at.lab <- fmtx(sapply(at.lab, atransf, targs), digits[[1]], drop0ifint=TRUE) } } else { at.lab <- fmtx(at.lab, digits[[1]], drop0ifint=TRUE) } } else { at.lab <- ddd$at.lab } ### add x-axis laxis(side=1, at=at, labels=at.lab, ...) ### add L-shaped box around plot if (!is.na(colbox)) box(bty="l", col=colbox) ############################################################################ ### labeling of points k <- length(yi) if (is.numeric(label) || is.character(label) || isTRUE(label)) { if (is.na(refline)) refline <- mean(yi, na.rm=TRUE) if (is.numeric(label)) { label <- round(label) if (label < 0) label <- 0 if (label > k) label <- k label <- order(abs(yi - refline), decreasing=TRUE)[seq_len(label)] } else if ((is.character(label) && label == "all") || isTRUE(label)) { label <- seq_len(k) } else if ((is.character(label) && label == "out")) { if (!is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) { label <- seq_len(k) } else { label <- which(abs(yi - refline) / sqrt(vi) >= qnorm(level.min/2, lower.tail=FALSE)) } } else { label <- NULL } for (i in label) ltext(yi[i], yaxis.vals[i], slab[i], pos=ifelse(yi[i]-refline >= 0, 4, 2), offset=offset, ...) } ######################################################################### ### add legend (if requested) .funnel.legend(legend, level, shade, back, yaxis, trimfill=FALSE, pch, col, bg, pch.fill=NA, pch.vec, col.vec, bg.vec, colci) ############################################################################ ### prepare data frame to return sav <- data.frame(x=xaxis.vals, y=yaxis.vals, slab=slab, stringsAsFactors=FALSE) invisible(sav) } metafor/R/print.confint.rma.r0000644000176200001440000000217715120213572015651 0ustar liggesusersprint.confint.rma <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="confint.rma") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() if (names(x)[1] == "fixed") { res.fixed <- cbind(fmtx(x$fixed[,1,drop=FALSE], digits[["est"]]), fmtx(x$fixed[,2:3,drop=FALSE], digits[["ci"]])) tmp <- capture.output(print(res.fixed, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) } if (is.element("random", names(x))) { if (names(x)[1] == "fixed") cat("\n") res.random <- fmtx(x$random, digits[["var"]]) res.random[,2] <- paste0(x$lb.sign, res.random[,2]) res.random[,3] <- paste0(x$ub.sign, res.random[,3]) tmp <- capture.output(print(res.random, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) # this can only (currently) happen for 'rma.uni' models if (x$ci.null) message(mstyle$message(paste0("\nThe upper and lower CI bounds for tau^2 both fall below ", round(x$tau2.min,4), ".\nThe CIs are therefore equal to the null/empty set."))) } .space() invisible() } metafor/R/print.deltamethod.r0000644000176200001440000000276115120213572015724 0ustar liggesusersprint.deltamethod <- function(x, digits=x$digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="deltamethod") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } .space() res.table <- data.frame(estimate=fmtx(c(x$tab$coef), digits[["est"]]), se=fmtx(x$tab$se, digits[["se"]]), zval=fmtx(x$tab$zval, digits[["test"]]), pval=fmtp(x$tab$pval, digits[["pval"]]), ci.lb=fmtx(x$tab$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$tab$ci.ub, digits[["ci"]])) rownames(res.table) <- rownames(x$tab) signif <- symnum(x$tab$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } if (length(x$tab$coef) == 1L) res.table <- res.table[1,] if (length(x$tab$coef) == 1L) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) if (signif.legend) { cat("\n") cat(mstyle$legend("---")) cat("\n") cat(mstyle$legend("Signif. codes: "), mstyle$legend(attr(signif, "legend"))) cat("\n") } .space() invisible() } metafor/R/print.list.confint.rma.r0000644000176200001440000000126015120213572016613 0ustar liggesusersprint.list.confint.rma <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="list.confint.rma") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) x$digits <- NULL # so length(x) is correct .space() len <- length(x) for (j in seq_len(len)) { res.random <- fmtx(x[[j]]$random, digits[["var"]]) res.random[,2] <- paste0(x[[j]]$lb.sign, res.random[,2]) res.random[,3] <- paste0(x[[j]]$ub.sign, res.random[,3]) tmp <- capture.output(print(res.random, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) if (j != len) cat("\n") } .space() invisible() } metafor/R/robust.r0000644000176200001440000000007315120213572013607 0ustar liggesusersrobust <- function(x, cluster, ...) UseMethod("robust") metafor/R/baujat.r0000644000176200001440000000006215120213572013535 0ustar liggesusersbaujat <- function(x, ...) UseMethod("baujat") metafor/R/qqnorm.rma.mh.r0000644000176200001440000000534315120213572014774 0ustar liggesusersqqnorm.rma.mh <- function(y, type="rstandard", pch=21, col, bg, grid=FALSE, label=FALSE, offset=0.3, pos=13, ...) { mstyle <- .get.mstyle() .chkclass(class(y), must="rma.mh") x <- y type <- match.arg(type, c("rstandard", "rstudent")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (length(label) != 1L) stop(mstyle$stop("Argument 'label' should be of length 1.")) .start.plot() if (missing(col)) col <- par("fg") if (missing(bg)) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) if (is.logical(grid)) gridcol <- .coladj(par("bg","fg"), dark=c(0.2,-0.6), light=c(-0.2,0.6)) if (is.character(grid)) { gridcol <- grid grid <- TRUE } ######################################################################### if (type == "rstandard") { res <- rstandard(x) not.na <- !is.na(res$z) zi <- res$z[not.na] slab <- res$slab[not.na] ord <- order(zi) slab <- slab[ord] } else { res <- rstudent(x) not.na <- !is.na(res$z) zi <- res$z[not.na] slab <- res$slab[not.na] ord <- order(zi) slab <- slab[ord] } sav <- qqnorm(zi, pch=pch, col=col, bg=bg, bty="l", ...) ### add grid (and redraw box) if (isTRUE(grid)) { grid(col=gridcol) box(..., bty="l") } abline(a=0, b=1, lty="solid", ...) #qqline(zi, ...) #abline(h=0, lty="dotted", ...) #abline(v=0, lty="dotted", ...) points(sav$x, sav$y, pch=pch, col=col, bg=bg, ...) ######################################################################### ### labeling of points if ((is.character(label) && label=="none") || isFALSE(label)) return(invisible(sav)) if ((is.character(label) && label=="all") || isTRUE(label)) label <- x$k if (is.numeric(label)) { label <- round(label) if (label < 1 | label > x$k) stop(mstyle$stop("Out of range value for 'label' argument.")) pos.x <- sav$x[ord] pos.y <- sav$y[ord] dev <- abs(pos.x - pos.y) for (i in seq_len(x$k)) { if (sum(dev > dev[i]) < label) { if (pos <= 4) text(pos.x[i], pos.y[i], slab[i], pos=pos, offset=offset, ...) if (pos == 13) text(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] >= 0, 1, 3), offset=offset, ...) if (pos == 24) text(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] <= 0, 2, 4), offset=offset, ...) #text(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i] >= 0, 2, 4), offset=offset, ...) } } } ######################################################################### invisible(sav) } metafor/R/conv.wald.r0000644000176200001440000002033615157023707014201 0ustar liggesusersconv.wald <- function(out, ci.lb, ci.ub, zval, pval, n, data, include, level=95, transf, check=TRUE, var.names, append=TRUE, replace="ifna", ...) { # TODO: allow t-distribution based CIs/tests (then also need dfs argument)? mstyle <- .get.mstyle() if (missing(out) && missing(ci.lb) && missing(ci.ub) && missing(zval) && missing(pval)) stop(mstyle$stop("Must specify at least some of these arguments: 'out', 'ci.lb', 'ci.ub', 'zval', 'pval'.")) if (is.logical(replace)) { if (isTRUE(replace)) { replace <- "all" } else { replace <- "ifna" } } replace <- match.arg(replace, c("ifna","all")) ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("cifac")) cifac <- .chkddd(ddd$cifac, 0.1) ######################################################################### if (missing(data)) data <- NULL has.data <- !is.null(data) if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } x <- data ### checks on var.names argument if (missing(var.names)) { if (inherits(x, "escalc")) { if (!is.null(attr(x, "yi.names"))) { # if yi.names attributes is available yi.name <- attr(x, "yi.names")[1] # take the first entry to be the yi variable } else { # if not, see if 'yi' is in the object and assume that is the yi variable if (!is.element("yi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'yi' variable.")) yi.name <- "yi" } if (!is.null(attr(x, "vi.names"))) { # if vi.names attributes is available vi.name <- attr(x, "vi.names")[1] # take the first entry to be the vi variable } else { # if not, see if 'vi' is in the object and assume that is the vi variable if (!is.element("vi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'vi' variable.")) vi.name <- "vi" } } else { yi.name <- "yi" vi.name <- "vi" } } else { if (length(var.names) != 2L) stop(mstyle$stop("Argument 'var.names' must be of length 2.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "').")), call.=FALSE) } yi.name <- var.names[1] vi.name <- var.names[2] } if (missing(transf)) transf <- FALSE ######################################################################### mf <- match.call() out <- .getx("out", mf=mf, data=x, checknumeric=TRUE) ci.lb <- .getx("ci.lb", mf=mf, data=x, checknumeric=TRUE) ci.ub <- .getx("ci.ub", mf=mf, data=x, checknumeric=TRUE) zval <- .getx("zval", mf=mf, data=x, checknumeric=TRUE) pval <- .getx("pval", mf=mf, data=x, checknumeric=TRUE) n <- .getx("n", mf=mf, data=x, checknumeric=TRUE) level <- .getx("level", mf=mf, data=x, checknumeric=TRUE, default=95) include <- .getx("include", mf=mf, data=x) if (!.equal.length(out, ci.lb, ci.ub, zval, pval, n)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- .maxlength(out, ci.lb, ci.ub, zval, pval, n) if (is.null(out)) out <- rep(NA_real_, k) if (is.null(ci.lb)) ci.lb <- rep(NA_real_, k) if (is.null(ci.ub)) ci.ub <- rep(NA_real_, k) if (is.null(zval)) zval <- rep(NA_real_, k) if (is.null(pval)) pval <- rep(NA_real_, k) if (is.null(n)) n <- rep(NA_real_, k) ### if include is NULL, set to TRUE vector if (is.null(include)) include <- rep(TRUE, k) ### turn numeric include vector into a logical vector include <- .chksubset(include, k, stoponk0=FALSE) ### set inputs to NA for rows not to be included out[!include] <- NA_real_ ci.lb[!include] <- NA_real_ ci.ub[!include] <- NA_real_ zval[!include] <- NA_real_ pval[!include] <- NA_real_ n[!include] <- NA_real_ ### check p-values if (any(pval < 0, na.rm=TRUE) || any(pval > 1, na.rm=TRUE)) stop(mstyle$stop("One or more p-values are < 0 or > 1.")) ### if level is a single value, expand to the appropriate length level <- .expand1(level, k) if (length(level) != k) stop(mstyle$stop(paste0("Length of the 'level' argument (", length(level), ") does not correspond to the size of the dataset (", k, ")."))) level <- .level(level, allow.vector=TRUE) crit <- qnorm(level/2, lower.tail=FALSE) ### apply transformation function if one has been specified if (is.function(transf)) { out <- sapply(out, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } ### set up data frame if 'data' was not specified if (!has.data) { x <- data.frame(rep(NA_real_, k), rep(NA_real_, k)) names(x) <- c(yi.name, vi.name) } ######################################################################### ### replace missing x$yi values if (replace=="ifna") { x[[yi.name]] <- replmiss(x[[yi.name]], out) } else { x[[yi.name]][!is.na(out)] <- out[!is.na(out)] } ### replace missing ni attribute values (or add 'ni' attribute if at least one value is not missing) if (!is.null(attributes(x[[yi.name]])$ni)) { attributes(x[[yi.name]])$ni <- replmiss(attributes(x[[yi.name]])$ni, n) } else { if (any(!is.na(n))) attr(x[[yi.name]], "ni") <- n } ######################################################################### ### convert Wald-type CIs to sampling variances vi <- ifelse(is.na(ci.lb), ((ci.ub-out)/crit)^2, ((ci.ub-ci.lb)/(2*crit))^2) ### check if yi is about halfway between CI bounds if (check) { # |-------------+-------------| # lb yi ub # |---| (ub+lb)/2 # # if the difference is more than 10% of the CI range, then flag this row diffs <- abs((ci.ub+ci.lb)/2 - x[[yi.name]]) / (ci.ub - ci.lb) #x$diffs <- diffs diffslarge <- diffs > cifac diffslarge[!is.na(x[[vi.name]])] <- NA # when x$vi is not missing, ignore diffslarge if (any(diffslarge, na.rm=TRUE)) { diffslarge <- which(diffslarge) if (length(diffslarge) > 5) { diffslarge <- paste0(paste0(head(diffslarge, 5), collapse=", "), ", ...") } else { diffslarge <- paste0(diffslarge, collapse=", ") } warning(mstyle$warning("The observed outcome does not appear to be halfway between '(ci.lb, ci.ub)' in row(s): ", diffslarge), call.=FALSE) } } ### convert two-sided p-values to Wald-type test statistics and replace missing zval values zval <- replmiss(zval, qnorm(pval/2, lower.tail=FALSE)) ### convert Wald-type test statistics to sampling variances and replace missing vi values vi <- replmiss(vi, (x[[yi.name]] / zval)^2) ### note: if both (ci.lb,ci.ub) and zval/pval is available, then this favors ### the back-calculation based on (ci.lb,ci.ub) which seems reasonable ### TODO: could consider checking if the back-calculated vi's differ in this case ### (or if x$vi is already available) ### replace missing x$vi values if (replace=="ifna") { x[[vi.name]] <- replmiss(x[[vi.name]], vi) } else { x[[vi.name]][!is.na(vi)] <- vi[!is.na(vi)] } ######################################################################### measure <- attr(x[[yi.name]], "measure") if (is.null(measure)) measure <- "GEN" #escall <- paste0("escalc(measure='", measure, "', data=x, yi=", yi.name, ", vi=", vi.name, ", var.names=c('", yi.name, "','", vi.name, "'))") #x <- eval(str2lang(escall)) x <- escalc(measure=measure, data=x, yi=x[[yi.name]], vi=x[[vi.name]], var.names=c(yi.name,vi.name)) if (!append) x <- x[,c(yi.name, vi.name)] return(x) ######################################################################### } metafor/R/print.matreg.r0000644000176200001440000000711615120213572014710 0ustar liggesusersprint.matreg <- function(x, digits=x$digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="matreg") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } .space() if (x$test == "t") { res.table <- data.frame(estimate=fmtx(c(x$tab$beta), digits[["est"]]), se=fmtx(x$tab$se, digits[["se"]]), tval=fmtx(x$tab$tval, digits[["test"]]), df=round(x$tab$df,2), pval=fmtp(x$tab$pval, digits[["pval"]]), ci.lb=fmtx(x$tab$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$tab$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) res.table$df[is.na(x$tab$beta)] <- NA_real_ } else { res.table <- data.frame(estimate=fmtx(c(x$tab$beta), digits[["est"]]), se=fmtx(x$tab$se, digits[["se"]]), zval=fmtx(x$tab$zval, digits[["test"]]), pval=fmtp(x$tab$pval, digits[["pval"]]), ci.lb=fmtx(x$tab$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$tab$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) } rownames(res.table) <- rownames(x$tab) signif <- symnum(x$tab$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) if (signif.legend) { cat("\n") cat(mstyle$legend("---")) cat("\n") cat(mstyle$legend("Signif. codes: "), mstyle$legend(attr(signif, "legend"))) cat("\n") } .space() invisible() } summary.matreg <- function(object, digits, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") if (missing(digits)) { digits <- .get.digits(xdigits=object$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=object$digits, dmiss=FALSE) } object$digits <- digits class(object) <- c("summary.matreg", class(object)) return(object) } print.summary.matreg <- function(x, digits=x$digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="summary.matreg") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) # strip summary.matreg class from object (otherwise get recursion) class(x) <- class(x)[-1] print(x, digits=digits, signif.stars=signif.stars, signif.legend=signif.legend, ...) .space(FALSE) if (x$test == "t") { cat(mstyle$text("Residual standard error: ")) cat(mstyle$result(fmtx(sqrt(x$sigma2.reml), digits[["se"]]))) cat(mstyle$text(paste0(" on ", x$Fdf[2], " degrees of freedom\n"))) cat(mstyle$text("Multiple R-squared: ")) cat(mstyle$result(fmtx(x$R2, digits[["het"]]))) cat(mstyle$text(", Adjusted R-squared: ")) cat(mstyle$result(fmtx(x$R2adj, digits[["het"]]))) cat("\n") cat(mstyle$text("F-statistic: ")) cat(mstyle$result(fmtx(x$F[["value"]], digits[["test"]]))) cat(mstyle$text(paste0(" on ", x$Fdf[1], " and ", x$Fdf[2], " DF, p-value: "))) cat(mstyle$result(fmtp(x$Fp, digits[["pval"]], equal=FALSE, sep=FALSE))) } else { cat(mstyle$result("R^2: ")) cat(mstyle$result(fmtx(x$R2, digits[["het"]]))) cat(mstyle$result(", ")) cat(mstyle$result(fmtt(x$QM, "QM", df=x$QMdf[1], pval=x$QMp, digits=digits))) } cat("\n") .space() invisible() } metafor/R/radial.r0000644000176200001440000000006215120213572013523 0ustar liggesusersradial <- function(x, ...) UseMethod("radial") metafor/R/permutest.rma.ls.r0000644000176200001440000006434215120213572015525 0ustar liggesuserspermutest.rma.ls <- function(x, exact=FALSE, iter=1000, btt=x$btt, att=x$att, progbar=TRUE, digits, control, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.ls") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to carry out permutation test is not available in the model object.")) ddd <- list(...) .chkdots(ddd, c("tol", "time", "seed", "verbose", "permci", "skip.beta", "skip.alpha", "fixed", "code1", "code2", "code3", "code4")) if (!is.null(ddd$tol)) # in case the user specified comptol in the old manner comptol <- ddd$tol fixed <- .chkddd(ddd$fixed, FALSE, isTRUE(ddd$fixed)) if (isTRUE(ddd$permci)) warning(mstyle$warning("Permutation-based CIs for location-scale models not currently available."), call.=FALSE) if (isTRUE(ddd$time)) time.start <- proc.time() if (isTRUE(ddd$skip.beta)) { skip.beta <- TRUE } else { skip.beta <- FALSE } if (isTRUE(ddd$skip.alpha)) { skip.alpha <- TRUE } else { skip.alpha <- FALSE } iter <- round(iter) if (iter <= 1) stop(mstyle$stop("Argument 'iter' must be >= 2.")) ### for intercept-only models, cannot run a permutation test if (x$Z.int.only) { skip.alpha <- TRUE warning(mstyle$warning("Cannot carry out a permutation test for an intercept-only scale model."), call.=FALSE) } if (skip.beta && skip.alpha) stop(mstyle$stop("Must run permutation test for at least one part of the model.")) ### set defaults for control parameters and replace with any user-defined values if (missing(control)) control <- list() con <- list(comptol=.Machine$double.eps^0.5, alternative="two.sided", p2defn="abs", stat="test") con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] con$alternative <- match.arg(con$alternative, c("two.sided", "less", "greater")) con$p2defn <- match.arg(con$p2defn, c("abs", "px2")) con$stat <- match.arg(con$stat, c("test", "coef")) if (exists("comptol", inherits=FALSE)) con$comptol <- comptol if (is.character(exact) && exact == "i") { skip.beta <- TRUE skip.alpha <- TRUE } if (!missing(btt) || !missing(att)) { btt <- .set.btt(btt, x$p, x$int.incl, colnames(x$X), fixed=fixed) att <- .set.btt(att, x$q, x$Z.int.incl, colnames(x$Z), fixed=fixed) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=x$X, intercept=FALSE, scale=x$Z, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=btt, att=att, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control) x <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) } ######################################################################### ######################################################################### ######################################################################### ### calculate number of permutations for an exact permutation test if (x$int.only) { ### for intercept-only models, there are 2^k possible permutations of the signs X.exact.iter <- 2^x$k } else { ### for meta-regression models, there are k! possible permutations of the rows of the model matrix #X.exact.iter <- round(exp(lfactorial(x$k))) # note: without round(), not exactly an integer! ### however, when there are duplicated rows in the model matrix, the number of *unique* permutations ### is lower; the code below below determines the number of unique permutations ### order the X matrix X <- as.data.frame(x$X)[do.call(order, as.data.frame(x$X)),] ### determine groupings X.indices <- cumsum(c(TRUE, !duplicated(X)[-1])) ### this turns 1,1,1,2,2,3,4,4,4 into 1,1,1,4,4,6,7,7,7 so that the actual row numbers can be permuted X.indices <- rep(cumsum(rle(X.indices)$lengths) - (rle(X.indices)$lengths - 1), rle(X.indices)$lengths) ### determine exact number of unique permutations ind.table <- table(X.indices) X.exact.iter <- round(prod((max(ind.table)+1):x$k) / prod(factorial(ind.table[-which.max(ind.table)]))) # cancel largest value in numerator and denominator to reduce overflow problems #X.exact.iter <- round(factorial(x$k) / prod(factorial(ind.table))) # definitional formula #X.exact.iter <- round(exp(lfactorial(x$k) - sum(lfactorial(ind.table)))) # using log of definitional formula and then round(exp()) if (is.na(X.exact.iter)) X.exact.iter <- Inf } i.exact.iter <- X.exact.iter if (!skip.beta) { ### if 'exact=TRUE' or if the number of iterations for an exact test are smaller ### than what is specified under 'iter', then carry out the exact test X.exact <- exact X.iter <- iter if (X.exact || (X.exact.iter <= X.iter)) { X.exact <- TRUE X.iter <- X.exact.iter } if (X.iter == Inf) stop(mstyle$stop("Too many iterations required for an exact permutation test of the location model.")) ###################################################################### ### generate seed (needed when X.exact=FALSE) if (!X.exact) { seed <- as.integer(runif(1)*2e9) if (!is.null(ddd$seed)) { set.seed(ddd$seed) } else { set.seed(seed) } } ### elements that need to be returned outlist <- "beta=beta, zval=zval, QM=QM" ###################################################################### if (progbar) cat(mstyle$verbose(paste0("Running ", X.iter, " iterations for an ", ifelse(X.exact, "exact", "approximate"), " permutation test of the location model.\n"))) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) if (x$int.only) { ### permutation test for intercept-only model zval.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(zval.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) beta.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(beta.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) QM.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(QM.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) if (progbar) pbar <- pbapply::startpb(min=0, max=X.iter) if (X.exact) { # exact permutation test for intercept-only models signmat <- as.matrix(expand.grid(replicate(x$k, list(c(1,-1))), KEEP.OUT.ATTRS=FALSE)) for (i in seq_len(X.iter)) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=signmat[i,]*x$yi, vi=x$vi, weights=x$weights, intercept=TRUE, scale=x$Z, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=1, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i] <- res$beta[,1] zval.perm[i] <- res$zval QM.perm[i] <- res$QM if (progbar) pbapply::setpb(pbar, i) } } else { # approximate permutation test for intercept-only models i <- 1 while (i <= X.iter) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) signs <- sample(c(-1,1), x$k, replace=TRUE) # easier to understand (a tad slower for small k, but faster for larger k) #signs <- 2*rbinom(x$k,1,0.5)-1 args <- list(yi=signs*x$yi, vi=x$vi, weights=x$weights, intercept=TRUE, scale=x$Z, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=1, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i] <- res$beta[,1] zval.perm[i] <- res$zval QM.perm[i] <- res$QM i <- i + 1 if (progbar) pbapply::setpb(pbar, i) } } ### the first random permutation is always the observed data (avoids possibility of p=0) if (!X.exact) { beta.perm[1] <- x$beta[,1] zval.perm[1] <- x$zval QM.perm[1] <- x$QM } if (con$alternative == "two.sided") { if (con$p2defn == "abs") { ### absolute value definition of the two-sided p-value if (con$stat == "test") { pval <- mean(abs(zval.perm) >= abs(x$zval) - con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- mean(abs(beta.perm) >= abs(c(x$beta)) - con$comptol, na.rm=TRUE) # based on coefficient } } else { ### two times the one-sided p-value definition of the two-sided p-value if (con$stat == "test") { if (x$zval > median(zval.perm, na.rm=TRUE)) { pval <- 2*mean(zval.perm >= x$zval - con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- 2*mean(zval.perm <= x$zval + con$comptol, na.rm=TRUE) } } else { if (c(x$beta) > median(beta.perm, na.rm=TRUE)) { pval <- 2*mean(beta.perm >= c(x$beta) - con$comptol, na.rm=TRUE) # based on coefficient } else { pval <- 2*mean(beta.perm <= c(x$beta) + con$comptol, na.rm=TRUE) } } } } if (con$alternative == "less") { if (con$stat == "test") { pval <- mean(zval.perm <= x$zval + con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- mean(beta.perm <= c(x$beta) + con$comptol, na.rm=TRUE) # based on coefficient } } if (con$alternative == "greater") { if (con$stat == "test") { pval <- mean(zval.perm >= x$zval - con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- mean(beta.perm >= c(x$beta) - con$comptol, na.rm=TRUE) # based on coefficient } } pval[pval > 1] <- 1 QMp <- mean(QM.perm >= x$QM - con$comptol, na.rm=TRUE) ###################################################################### } else { ### permutation test for meta-regression model zval.perm <- try(suppressWarnings(matrix(NA_real_, nrow=X.iter, ncol=x$p)), silent=TRUE) if (inherits(zval.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) beta.perm <- try(suppressWarnings(matrix(NA_real_, nrow=X.iter, ncol=x$p)), silent=TRUE) if (inherits(beta.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) QM.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(QM.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) if (progbar) pbar <- pbapply::startpb(min=0, max=X.iter) if (X.exact) { # exact permutation test for meta-regression models #permmat <- .genperms(x$k) permmat <- .genuperms(X.indices) # use recursive algorithm to obtain all unique permutations for (i in seq_len(X.iter)) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=cbind(X[permmat[i,],]), intercept=FALSE, scale=x$Z, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=x$btt, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=FALSE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i,] <- res$beta[,1] zval.perm[i,] <- res$zval QM.perm[i] <- res$QM if (progbar) pbapply::setpb(pbar, i) } } else { # approximate permutation test for meta-regression models i <- 1 while (i <= X.iter) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=cbind(X[sample(x$k),]), intercept=FALSE, scale=x$Z, link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=x$btt, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=FALSE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i,] <- res$beta[,1] zval.perm[i,] <- res$zval QM.perm[i] <- res$QM i <- i + 1 if (progbar) pbapply::setpb(pbar, i) } } ### the first random permutation is always the observed data (avoids possibility of p=0) if (!X.exact) { beta.perm[1,] <- x$beta[,1] zval.perm[1,] <- x$zval QM.perm[1] <- x$QM } if (con$alternative == "two.sided") { if (con$p2defn == "abs") { ### absolute value definition of the two-sided p-value if (con$stat == "test") { pval <- rowMeans(t(abs(zval.perm)) >= abs(x$zval) - con$comptol, na.rm=TRUE) # based on test statistics } else { pval <- rowMeans(t(abs(beta.perm)) >= abs(c(x$beta)) - con$comptol, na.rm=TRUE) # based on coefficients } } else { ### two times the one-sided p-value definition of the two-sided p-value pval <- rep(NA_real_, x$p) if (con$stat == "test") { for (j in seq_len(x$p)) { if (x$zval[j] > median(zval.perm[,j], na.rm=TRUE)) { pval[j] <- 2*mean(zval.perm[,j] >= x$zval[j] - con$comptol, na.rm=TRUE) } else { pval[j] <- 2*mean(zval.perm[,j] <= x$zval[j] + con$comptol, na.rm=TRUE) } } } else { for (j in seq_len(x$p)) { if (c(x$beta)[j] > median(beta.perm[,j], na.rm=TRUE)) { pval[j] <- 2*mean(beta.perm[,j] >= c(x$beta)[j] - con$comptol, na.rm=TRUE) } else { pval[j] <- 2*mean(beta.perm[,j] <= c(x$beta)[j] + con$comptol, na.rm=TRUE) } } } } } if (con$alternative == "less") { if (con$stat == "test") { pval <- rowMeans(t(zval.perm) <= x$zval + con$comptol, na.rm=TRUE) # based on test statistics } else { pval <- rowMeans(t(beta.perm) <= c(x$beta) + con$comptol, na.rm=TRUE) # based on coefficients } } if (con$alternative == "greater") { if (con$stat == "test") { pval <- rowMeans(t(zval.perm) >= x$zval - con$comptol, na.rm=TRUE) # based on test statistics } else { pval <- rowMeans(t(beta.perm) >= c(x$beta) - con$comptol, na.rm=TRUE) # based on coefficients } } pval[pval > 1] <- 1 QMp <- mean(QM.perm >= x$QM - con$comptol, na.rm=TRUE) } if (progbar) pbapply::closepb(pbar) } else { beta.perm <- NA_real_ zval.perm <- NA_real_ QM.perm <- NA_real_ pval <- x$pval QMp <- x$QMp X.exact.iter <- 0 } ######################################################################### ######################################################################### ######################################################################### ### calculate number of permutations for an exact permutation test Z <- as.data.frame(x$Z)[do.call(order, as.data.frame(x$Z)),] Z.indices <- cumsum(c(TRUE, !duplicated(Z)[-1])) Z.indices <- rep(cumsum(rle(Z.indices)$lengths) - (rle(Z.indices)$lengths - 1), rle(Z.indices)$lengths) ind.table <- table(Z.indices) Z.exact.iter <- round(prod((max(ind.table)+1):x$k) / prod(factorial(ind.table[-which.max(ind.table)]))) if (is.na(Z.exact.iter)) Z.exact.iter <- Inf if (x$Z.int.only) Z.exact.iter <- NA_integer_ i.exact.iter <- c(i.exact.iter, Z.exact.iter) if (!skip.alpha) { Z.exact <- exact Z.iter <- iter if (Z.exact || (Z.exact.iter <= Z.iter)) { Z.exact <- TRUE Z.iter <- Z.exact.iter } if (Z.iter == Inf) stop(mstyle$stop("Too many iterations required for an exact permutation test of the scale model.")) ######################################################################### ### generate seed (needed when Z.exact=FALSE) if (!Z.exact) { seed <- as.integer(runif(1)*2e9) if (!is.null(ddd$seed)) { set.seed(ddd$seed) } else { set.seed(seed) } } ### elements that need to be returned outlist <- "alpha=alpha, zval.alpha=zval.alpha, QS=QS" ######################################################################### if (progbar) cat(mstyle$verbose(paste0("Running ", Z.iter, " iterations for an ", ifelse(Z.exact, "exact", "approximate"), " permutation test of the scale model.\n"))) if (!is.null(ddd[["code3"]])) eval(expr = parse(text = ddd[["code3"]])) ### permutation test for the scale model zval.alpha.perm <- try(suppressWarnings(matrix(NA_real_, nrow=Z.iter, ncol=x$q)), silent=TRUE) if (inherits(zval.alpha.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) alpha.perm <- try(suppressWarnings(matrix(NA_real_, nrow=Z.iter, ncol=x$q)), silent=TRUE) if (inherits(alpha.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) QS.perm <- try(rep(NA_real_, Z.iter), silent=TRUE) if (inherits(QS.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) if (progbar) pbar <- pbapply::startpb(min=0, max=Z.iter) if (Z.exact) { # exact permutation test for meta-regression models #permmat <- .genperms(x$k) permmat <- .genuperms(Z.indices) # use recursive algorithm to obtain all unique permutations for (i in seq_len(Z.iter)) { if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=x$X, intercept=FALSE, scale=cbind(Z[permmat[i,],]), link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, att=x$att, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=FALSE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next alpha.perm[i,] <- res$alpha[,1] zval.alpha.perm[i,] <- res$zval.alpha QS.perm[i] <- res$QS if (progbar) pbapply::setpb(pbar, i) } } else { # approximate permutation test for meta-regression models i <- 1 while (i <= Z.iter) { if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=x$X, intercept=FALSE, scale=cbind(Z[sample(x$k),]), link=x$link, method=x$method, weighted=x$weighted, test=x$test, level=x$level, att=x$att, alpha=ifelse(x$alpha.fix, x$alpha, NA), optbeta=x$optbeta, beta=ifelse(x$beta.fix, x$beta, NA), control=x$control, skiphes=FALSE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next alpha.perm[i,] <- res$alpha[,1] zval.alpha.perm[i,] <- res$zval.alpha QS.perm[i] <- res$QS i <- i + 1 if (progbar) pbapply::setpb(pbar, i) } } ### the first random permutation is always the observed data (avoids possibility of p=0) if (!Z.exact) { alpha.perm[1,] <- x$alpha[,1] zval.alpha.perm[1,] <- x$zval.alpha QS.perm[1] <- x$QS } if (con$alternative == "two.sided") { if (con$p2defn == "abs") { ### absolute value definition of the two-sided p-value if (con$stat == "test") { pval.alpha <- rowMeans(t(abs(zval.alpha.perm)) >= abs(x$zval.alpha) - con$comptol, na.rm=TRUE) # based on test statistics } else { pval.alpha <- rowMeans(t(abs(alpha.perm)) >= abs(c(x$alpha)) - con$comptol, na.rm=TRUE) # based on coefficients } } else { ### two times the one-sided p-value definition of the two-sided p-value pval.alpha <- rep(NA_real_, x$q) if (con$stat == "test") { for (j in seq_len(x$q)) { if (x$zval.alpha[j] > median(zval.alpha.perm[,j], na.rm=TRUE)) { pval.alpha[j] <- 2*mean(zval.alpha.perm[,j] >= x$zval.alpha.[j] - con$comptol, na.rm=TRUE) } else { pval.alpha[j] <- 2*mean(zval.alpha.perm[,j] <= x$zval.alpha.[j] + con$comptol, na.rm=TRUE) } } } else { for (j in seq_len(x$q)) { if (c(x$alpha)[j] > median(alpha.perm[,j], na.rm=TRUE)) { pval.alpha[j] <- 2*mean(alpha.perm[,j] >= c(x$alpha)[j] - con$comptol, na.rm=TRUE) } else { pval.alpha[j] <- 2*mean(alpha.perm[,j] <= c(x$alpha)[j] + con$comptol, na.rm=TRUE) } } } } } if (con$alternative == "less") { if (con$stat == "test") { pval.alpha <- rowMeans(t(zval.alpha.perm) <= x$zval.alpha + con$comptol, na.rm=TRUE) # based on test statistics } else { pval.alpha <- rowMeans(t(alpha.perm) <= c(x$alpha) + con$comptol, na.rm=TRUE) # based on coefficients } } if (con$alternative == "greater") { if (con$stat == "test") { pval.alpha <- rowMeans(t(zval.alpha.perm) >= x$zval.alpha - con$comptol, na.rm=TRUE) # based on test statistics } else { pval.alpha <- rowMeans(t(alpha.perm) >= c(x$alpha) - con$comptol, na.rm=TRUE) # based on coefficients } } pval.alpha[pval.alpha > 1] <- 1 pval.alpha[x$alpha.fix] <- NA_real_ QSp <- mean(QS.perm >= x$QS - con$comptol, na.rm=TRUE) if (progbar) pbapply::closepb(pbar) } else { alpha.perm <- NA_real_ zval.alpha.perm <- NA_real_ QS.perm <- NA_real_ pval.alpha <- x$pval.alpha QSp <- NA_real_ Z.exact.iter <- 0 } ############################################################################ ############################################################################ ############################################################################ if (is.character(exact) && exact == "i") return(i.exact.iter) out <- list(pval=pval, QMdf=x$QMdf, QMp=QMp, beta=x$beta, se=x$se, zval=x$zval, ci.lb=x$ci.lb, ci.ub=x$ci.ub, QM=x$QM, pval.alpha=pval.alpha, QSdf=x$QSdf, QSp=QSp, alpha=x$alpha, se.alpha=x$se.alpha, zval.alpha=x$zval.alpha, ci.lb.alpha=x$ci.lb.alpha, ci.ub.alpha=x$ci.ub.alpha, QS=x$QS, k=x$k, p=x$p, btt=x$btt, m=x$m, test=x$test, dfs=x$dfs, ddf=x$ddf, q=x$q, att=x$att, m.alpha=x$m.alpha, ddf.alpha=x$ddf.alpha, int.only=x$int.only, int.incl=x$int.incl, Z.int.only=x$Z.int.only, Z.int.incl=x$Z.int.incl, digits=digits, exact.iter=X.exact.iter, Z.exact.iter=Z.exact.iter, permci=FALSE, alternative=con$alternative, p2defn=con$p2defn, stat=con$stat) out$skip.beta <- skip.beta out$QM.perm <- QM.perm out$zval.perm <- data.frame(zval.perm) out$beta.perm <- data.frame(beta.perm) if (!skip.beta) names(out$zval.perm) <- names(out$beta.perm) <- colnames(x$X) out$skip.alpha <- skip.alpha out$QS.perm <- QS.perm out$zval.alpha.perm <- data.frame(zval.alpha.perm) out$alpha.perm <- data.frame(alpha.perm) if (!skip.alpha) names(out$zval.alpha.perm) <- names(out$alpha.perm) <- colnames(x$Z) if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- c("permutest.rma.ls", "permutest.rma.uni") return(out) } metafor/R/rstandard.rma.uni.r0000644000176200001440000000622115120213572015624 0ustar liggesusersrstandard.rma.uni <- function(model, digits, type="marginal", ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.uni", notav=c("robust.rma", "rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$yi) || is.null(model$X)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) type <- match.arg(type, c("marginal", "conditional")) x <- model if (type == "conditional" && (!is.null(x$weights) || !x$weighted)) stop(mstyle$stop("Extraction of conditional residuals not available for models with non-standard weights.")) #if (type == "conditional" & inherits(x, "robust.rma")) # stop(mstyle$stop("Extraction of conditional residuals not available for objects of class \"robust.rma\".")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } ######################################################################### options(na.action="na.omit") H <- hatvalues(x, type="matrix") options(na.action = na.act) ######################################################################### ImH <- diag(x$k) - H #ei <- ImH %*% cbind(x$yi) if (type == "marginal") { ei <- c(x$yi - x$X %*% x$beta) ei[abs(ei) < 100 * .Machine$double.eps] <- 0 #ei[abs(ei) < 100 * .Machine$double.eps * median(abs(ei), na.rm=TRUE)] <- 0 # see lm.influence ### don't allow this; the SEs of the residuals cannot be estimated consistently for "robust.rma" objects #if (inherits(x, "robust.rma")) { # ve <- ImH %*% tcrossprod(x$meat,ImH) #} else { #ve <- ImH %*% tcrossprod(x$M,ImH) #} ve <- ImH %*% tcrossprod(x$M,ImH) #ve <- x$M + x$X %*% x$vb %*% t(x$X) - 2*H%*%x$M sei <- sqrt(diag(ve)) } if (type == "conditional") { li <- x$tau2 / (x$tau2 + x$vi) pred <- rep(NA_real_, x$k) for (i in seq_len(x$k)) { Xi <- matrix(x$X[i,], nrow=1) pred[i] <- li[i] * x$yi[i] + (1 - li[i]) * Xi %*% x$beta } ei <- x$yi - pred sei <- sqrt(x$vi^2 * 1/(x$vi + x$tau2) * (1 - diag(H))) } resid <- rep(NA_real_, x$k.f) seresid <- rep(NA_real_, x$k.f) stresid <- rep(NA_real_, x$k.f) resid[x$not.na] <- ei seresid[x$not.na] <- sei stresid[x$not.na] <- ei / sei ######################################################################### if (na.act == "na.omit") { out <- list(resid=resid[x$not.na], se=seresid[x$not.na], z=stresid[x$not.na]) out$slab <- x$slab[x$not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(resid=resid, se=seresid, z=stresid) out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) out$digits <- digits class(out) <- "list.rma" return(out) } metafor/R/misc.func.hidden.fsn.r0000644000176200001440000001130115120213572016171 0ustar liggesusers############################################################################ .fsn.fisher <- function(fsnum, pi, alpha) { k <- length(pi) X2 <- -2*sum(log(c(pi, rep(0.5, fsnum)))) return(pchisq(X2, df=2*(k+fsnum), lower.tail=FALSE) - alpha) } ############################################################################ .fsn.scale <- function(x, k) { if (k == 0) return(x) if (k == 1) return(0) if (k >= 2) return((x-mean(x))/sd(x)) } .fsn.gen <- function(fsnum, yi, vi, vt, est, tau2, tau2fix, test, weighted, target, alpha, exact, method, mumiss, upperint, maxint, verbose=FALSE, newest=FALSE) { fsnum <- floor(fsnum) if (fsnum > maxint) fsnum <- maxint yinew <- c(yi, .fsn.scale(rnorm(fsnum), fsnum)*sqrt(vt+tau2) + mumiss) vinew <- c(vi, rep(vt,fsnum)) if (is.null(target)) { if (exact && fsnum <= 5000) { tmp <- suppressWarnings(try(rma(yinew, vinew, method=method, tau2=tau2fix, test=test, weighted=weighted), silent=TRUE)) if (inherits(tmp, "try-error")) stop() est.fsn <- tmp$beta[1] tau2.fsn <- tmp$tau2 pval.fsn <- tmp$pval if (mumiss != 0 && sign(est.fsn) == sign(mumiss)) pval.fsn <- 1 } else { k <- length(yi) if (is.element(method, c("FE","EE","CE"))) { tau2.fsn <- 0 } else { est.fsn <- (k*est + fsnum*mumiss) / (k + fsnum) if (is.null(tau2fix)) { tau2.fsn <- max(0, ((k-1)*tau2 + max(0,(fsnum-1))*tau2 + k*(est-est.fsn)^2 + fsnum*(mumiss-est.fsn)^2) / (k + fsnum - 1)) } else { tau2.fsn <- tau2 } } if (isTRUE(weighted)) { est.fsn <- weighted.mean(yinew, 1 / (vinew + tau2.fsn)) zval.new <- est.fsn / sqrt(1 / (sum(1 / (vi + tau2.fsn)) + fsnum / (vt + tau2.fsn))) } else { est.fsn <- mean(yinew) zval.new <- (k + fsnum) * est.fsn / sqrt(sum(vi + tau2.fsn) + fsnum * (vt + tau2.fsn)) } pval.fsn <- 2*pnorm(abs(zval.new), lower.tail=FALSE) if (mumiss != 0 && sign(est.fsn * mumiss) == 1) pval.fsn <- 1 } if (newest) { return(list(est.fsn=est.fsn, tau2.fsn=tau2.fsn, pval.fsn=pval.fsn)) } else { if (fsnum == maxint) { diff <- 0 } else { diff <- pval.fsn - alpha } } if (verbose) cat("fsnum =", formatC(fsnum, width=nchar(upperint)+1, format="d"), " est =", fmtx(est.fsn, flag=" "), " tau2 =", fmtx(tau2.fsn), " pval =", fmtx(pval.fsn), " alpha =", fmtx(alpha), " diff =", fmtx(diff, flag=" "), "\n") } else { if (exact && fsnum <= 5000) { tmp <- suppressWarnings(try(rma(yinew, vinew, method=method, tau2=tau2fix, test=test, weighted=weighted), silent=TRUE)) if (inherits(tmp, "try-error")) stop() est.fsn <- tmp$beta[1] tau2.fsn <- tmp$tau2 pval.fsn <- tmp$pval } else { k <- length(yi) if (is.element(method, c("FE","EE","CE"))) { tau2.fsn <- 0 } else { est.fsn <- (k*est + fsnum*mumiss) / (k + fsnum) if (is.null(tau2fix)) { tau2.fsn <- ((k-1)*tau2 + max(0,(fsnum-1))*tau2 + k*(est-est.fsn)^2 + fsnum*(mumiss-est.fsn)^2) / (k + fsnum - 1) } else { tau2.fsn <- tau2 } } if (isTRUE(weighted)) { est.fsn <- weighted.mean(yinew, 1 / (vinew + tau2.fsn)) zval.new <- est.fsn / sqrt(1 / (sum(1 / (vi + tau2.fsn)) + fsnum / (vt + tau2.fsn))) } else { est.fsn <- mean(yinew) zval.new <- (k + fsnum) * est.fsn / sqrt(sum(vi + tau2.fsn) + fsnum * (vt + tau2.fsn)) } pval.fsn <- 2*pnorm(abs(zval.new), lower.tail=FALSE) } if (newest) { return(list(est.fsn=est.fsn, tau2.fsn=tau2.fsn, pval.fsn=pval.fsn)) } else { if (fsnum == maxint) { diff <- 0 } else { diff <- est.fsn - target } } if (verbose) cat("fsnum =", formatC(fsnum, width=nchar(upperint)+1, format="d"), " est =", fmtx(est.fsn, flag=" "), " tau2 =", fmtx(tau2.fsn), " target =", fmtx(target), " diff =", fmtx(diff, flag=" "), "\n") } return(diff) } ############################################################################ .rnd.fsn <- function(fsnum) { if (is.finite(fsnum) && abs(fsnum - round(fsnum)) >= .Machine$double.eps^0.5) { fsnum <- ceiling(fsnum) } else { fsnum <- round(fsnum) } return(fsnum) } ############################################################################ metafor/R/points.regplot.r0000644000176200001440000000135415120213572015263 0ustar liggesuserspoints.regplot <- function(x, ...) { .chkclass(class(x), must="regplot") ### redraw points points(x=x$xi[x$order], y=x$yi[x$order], pch=x$pch[x$order], cex=x$psize[x$order], col=x$col[x$order], bg=x$bg[x$order], ...) ### redraw labels if (any(x$label)) { offset <- attr(x, "offset") labsize <- attr(x, "labsize") for (i in which(x$label)) { if (isTRUE(x$yi[i] > x$pred[i])) { # x$pred might be NULL, so use isTRUE() text(x$xi[i], x$yi[i] + offset[1] + offset[2]*x$psize[i]^offset[3], x$slab[i], cex=labsize, ...) } else { text(x$xi[i], x$yi[i] - offset[1] - offset[2]*x$psize[i]^offset[3], x$slab[i], cex=labsize, ...) } } } invisible() } metafor/R/weights.rma.peto.r0000644000176200001440000000322615120213572015472 0ustar liggesusersweights.rma.peto <- function(object, type="diagonal", ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.peto") if (is.null(object$outdat)) stop(mstyle$stop("Information needed to compute the weights is not available in the model object.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) type <- match.arg(type, c("diagonal", "matrix")) x <- object ######################################################################### n1i <- with(x$outdat, ai + bi) n2i <- with(x$outdat, ci + di) Ni <- with(x$outdat, ai + bi + ci + di) xt <- with(x$outdat, ai + ci) yt <- with(x$outdat, bi + di) wi <- xt * yt * (n1i/Ni) * (n2i/Ni) / (Ni - 1) ######################################################################### if (type == "diagonal") { weight <- rep(NA_real_, x$k.f) weight[x$not.na] <- wi / sum(wi) * 100 names(weight) <- x$slab if (na.act == "na.omit") weight <- weight[x$not.na] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in weights.")) return(weight) } if (type == "matrix") { Wfull <- matrix(NA_real_, nrow=x$k.f, ncol=x$k.f) Wfull[x$not.na, x$not.na] <- diag(wi) rownames(Wfull) <- x$slab colnames(Wfull) <- x$slab if (na.act == "na.omit") Wfull <- Wfull[x$not.na, x$not.na, drop=FALSE] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(Wfull) } } metafor/R/print.tes.r0000644000176200001440000000462615120213572014227 0ustar liggesusersprint.tes <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="tes") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() cat(mstyle$section(paste("Test of Excess Significance"))) cat("\n\n") cat(mstyle$text("Observed Number of Significant Findings: ")) cat(mstyle$result(x$O)) cat(mstyle$result(paste0(" (out of ", x$k, ")"))) cat("\n") cat(mstyle$text("Expected Number of Significant Findings: ")) cat(mstyle$result(fmtx(x$E, digits[["est"]]))) cat("\n") cat(mstyle$text("Observed Number / Expected Number: ")) cat(mstyle$result(fmtx(x$OEratio, digits[["est"]]))) cat("\n\n") if (length(x$theta) == 1L) { cat(mstyle$text("Estimated Power of Tests (based on theta = ")) cat(mstyle$result(fmtx(x$theta, digits[["est"]]))) cat(mstyle$text(")")) } else { cat(mstyle$text("Estimated Power of Tests: ")) } cat("\n\n") if (x$k > 5L) { power <- quantile(x$power) names(power) <- c("min", "q1", "median", "q3", "max") } else { power <- x$power names(power) <- seq_len(x$k) } tmp <- capture.output(.print.vector(fmtx(power, digits[["pval"]]))) .print.table(tmp, mstyle) cat("\n") cat(mstyle$text("Test of Excess Significance: ")) cat(mstyle$result(paste0("p ", fmtp(x$pval, digits[["pval"]], equal=TRUE, sep=TRUE)))) if (x$test == "chi2") { cat(mstyle$result(paste0(" (X^2 = ", fmtx(x$X2, digits[["test"]]), ", df = 1)"))) } if (x$test == "binom") { cat(mstyle$result(" (binomial test)")) } if (x$test == "exact") { cat(mstyle$result(" (exact test)")) } cat("\n") if (!is.null(x$theta.lim)) { cat(mstyle$text(paste0("Limit Estimate (theta_lim): "))) if (is.na(x$theta.lim[1])) { cat(mstyle$result("not estimable")) } else { cat(mstyle$result(fmtx(x$theta.lim[1], digits[["est"]]))) } if (length(x$theta.lim) == 2L) { cat(mstyle$result(", ")) if (is.na(x$theta.lim[2])) { cat(mstyle$result("not estimable")) } else { cat(mstyle$result(fmtx(x$theta.lim[2], digits[["est"]]))) } } if (any(!is.na(x$theta.lim))) cat(mstyle$result(paste0(" (where p = ", ifelse(x$tes.alternative == "two.sided", x$tes.alpha/2, x$tes.alpha), ")"))) cat("\n") } .space() invisible() } metafor/R/misc.func.hidden.rma.uni.r0000644000176200001440000000444215120213572016764 0ustar liggesusers############################################################################ # function to calculate # solve(t(X) %*% W %*% X) = .invcalc(X=X, W=W, k=k) # solve(t(X) %*% X) = .invcalc(X=X, W=diag(k), k=k) # via the QR decomposition .invcalc <- function(X, W, k) { sWX <- sqrt(W) %*% X res.qrs <- qr.solve(sWX, diag(k)) #res.qrs <- try(qr.solve(sWX, diag(k)), silent=TRUE) #if (inherits(res.qrs, "try-error")) # stop("Cannot compute QR decomposition.") return(tcrossprod(res.qrs)) } ############################################################################ # function for confint.rma.uni() with the Q-profile method and for the PM estimator .QE.func <- function(tau2val, Y, vi, X, k, objective, verbose=FALSE, digits=4) { mstyle <- .get.mstyle() if (any(tau2val + vi < 0)) stop(mstyle$stop("Some marginal variances are negative."), call.=FALSE) W <- diag(1/(vi + tau2val), nrow=k, ncol=k) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) RSS <- crossprod(Y,P) %*% Y if (verbose) cat(mstyle$verbose(paste("tau2 =", fmtx(tau2val, digits[["var"]], addwidth=4), " RSS - objective =", fmtx(RSS - objective, digits[["var"]], flag=" "), "\n"))) return(RSS - objective) } ############################################################################ # function for confint.rma.uni() with method="GENQ" .GENQ.func <- function(tau2val, P, vi, Q, level, k, p, getlower, verbose=FALSE, digits=4) { mstyle <- .get.mstyle() S <- diag(sqrt(vi + tau2val), nrow=k, ncol=k) lambda <- Re(eigen(S %*% P %*% S, symmetric=TRUE, only.values=TRUE)$values) tmp <- CompQuadForm::farebrother(Q, lambda[seq_len(k-p)]) # starting with version 1.4.2 of CompQuadForm, the element is called 'Qq' (before it was called 'res') # this way, things should work regardless of the version of CompQuadForm that is installed if (exists("res", tmp)) tmp$Qq <- tmp$res if (getlower) { res <- tmp$Qq - level } else { res <- (1 - tmp$Qq) - level } if (verbose) cat(mstyle$verbose(paste("tau2 =", fmtx(tau2val, digits[["var"]], addwidth=4), " objective =", fmtx(res, digits[["var"]], flag=" "), "\n"))) return(res) } ############################################################################ metafor/R/profile.rma.uni.r0000644000176200001440000002340515120213572015305 0ustar liggesusersprofile.rma.uni <- function(fitted, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, ...) { mstyle <- .get.mstyle() .chkclass(class(fitted), must="rma.uni", notav=c("rma.ls", "rma.uni.selmodel", "rma.gen")) if (is.element(fitted$method, c("FE","EE","CE"))) stop(mstyle$stop("Cannot profile tau^2 parameter for equal/fixed-effects models.")) x <- fitted if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed for profiling is not available in the model object.")) if (anyNA(steps)) stop(mstyle$stop("No missing values allowed in 'steps' argument.")) if (length(steps) >= 2L) { if (missing(xlim)) xlim <- range(steps) stepseq <- TRUE } else { if (steps < 2) stop(mstyle$stop("Argument 'steps' must be >= 2.")) stepseq <- FALSE } parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } ddd <- list(...) if (isTRUE(ddd$time)) time.start <- proc.time() pred <- isTRUE(ddd$pred) blup <- isTRUE(ddd$blup) newmods <- NULL if (pred) { if (!is.null(ddd$newmods)) newmods <- ddd$newmods ### test if predict() works with the given newmods (and to get slab for [a]) predres <- predict(x, newmods=newmods) if (length(predres$pred) == 0L) stop(mstyle$stop("Cannot compute predicted values.")) } ######################################################################### if (missing(xlim) || is.null(xlim)) { ### if the user has not specified xlim, set it automatically vc.ci <- try(suppressWarnings(confint(x)), silent=TRUE) if (inherits(vc.ci, "try-error")) { vc.lb <- NA_real_ vc.ub <- NA_real_ } else { ### min() and max() so the actual value is within the xlim bounds ### note: could still get NAs for the bounds if the CI is the empty set vc.lb <- min(x$tau2, vc.ci$random[1,2]) vc.ub <- max(0.1, x$tau2, vc.ci$random[1,3]) # if CI is equal to null set, then this still gives vc.ub = 0.1 } if (is.na(vc.lb) || is.na(vc.ub)) { ### if the CI method fails, try a Wald-type CI for tau^2 vc.lb <- max( 0, x$tau2 - qnorm(0.995) * x$se.tau2) vc.ub <- max(0.1, x$tau2 + qnorm(0.995) * x$se.tau2) } if (is.na(vc.lb) || is.na(vc.ub)) { ### if this still results in NA bounds, use simple method vc.lb <- max( 0, x$tau2/4) vc.ub <- max(0.1, x$tau2*4) } ### if that fails, throw an error if (is.na(vc.lb) || is.na(vc.ub)) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) xlim <- c(vc.lb, vc.ub) if (isTRUE(ddd$sqrt)) xlim <- sqrt(xlim) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) xlim <- sort(xlim) ### note: if sqrt=TRUE, then xlim is assumed to be given in terms of tau } if (stepseq) { vcs <- steps } else { vcs <- seq(xlim[1], xlim[2], length.out=steps) } #return(vcs) if (length(vcs) <= 1L) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ### if sqrt=TRUE, then the sequence of vcs are tau values, so square them for the actual profiling if (isTRUE(ddd$sqrt)) vcs <- vcs^2 if (parallel == "no") res <- pbapply::pblapply(vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2) if (parallel == "multicore") res <- pbapply::pblapply(vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, cl=ncpus, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2) #res <- parallel::mclapply(vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2, mc.cores=ncpus) if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2) #res <- parallel::clusterApplyLB(cl, vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.uni, vcs, MoreArgs=list(obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2), .scheduling = "dynamic") } else { res <- pbapply::pblapply(vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2) #res <- parallel::clusterApply(cl, vcs, .profile.rma.uni, obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.uni, vcs, MoreArgs=list(obj=x, parallel=parallel, profile=TRUE, pred=pred, blup=blup, newmods=newmods, code2=ddd$code2)) } } ### if sqrt=TRUE, then transform the tau^2 values back to tau values if (isTRUE(ddd$sqrt)) { vcs <- sqrt(vcs) vc <- sqrt(x$tau2) } else { vc <- x$tau2 } lls <- sapply(res, function(x) x$ll) beta <- do.call(rbind, lapply(res, function(x) t(x$beta))) ci.lb <- do.call(rbind, lapply(res, function(x) t(x$ci.lb))) ci.ub <- do.call(rbind, lapply(res, function(x) t(x$ci.ub))) beta <- data.frame(beta) ci.lb <- data.frame(ci.lb) ci.ub <- data.frame(ci.ub) names(beta) <- rownames(x$beta) names(ci.lb) <- rownames(x$beta) names(ci.ub) <- rownames(x$beta) ######################################################################### maxll <- c(logLik(x)) if (x$method %in% c("ML","REML") && any(lls >= maxll + lltol, na.rm=TRUE)) warning(mstyle$warning("At least one profiled log-likelihood value is larger than the log-likelihood of the fitted model."), call.=FALSE) if (all(is.na(lls))) warning(mstyle$warning("All model fits failed. Cannot draw profile likelihood plot."), call.=FALSE) if (isTRUE(ddd$exp)) { lls <- exp(lls) maxll <- exp(maxll) } if (missing(ylim)) { if (any(is.finite(lls))) { if (xlim[1] <= vc && xlim[2] >= vc) { ylim <- range(c(maxll,lls[is.finite(lls)]), na.rm=TRUE) } else { ylim <- range(lls[is.finite(lls)], na.rm=TRUE) } } else { ylim <- rep(maxll, 2L) } if (!isTRUE(ddd$exp)) ylim <- ylim + c(-0.1, 0.1) } else { if (length(ylim) != 2L) stop(mstyle$stop("Argument 'ylim' should be a vector of length 2.")) ylim <- sort(ylim) } if (isTRUE(ddd$sqrt)) { xlab <- expression(paste(tau, " Value")) title <- expression(paste("Profile Plot for ", tau)) } else { xlab <- expression(paste(tau^2, " Value")) title <- expression(paste("Profile Plot for ", tau^2)) } sav <- list(tau2=vcs, ll=lls, beta=beta, ci.lb=ci.lb, ci.ub=ci.ub, comps=1, xlim=xlim, ylim=ylim, method=x$method, vc=vc, maxll=maxll, xlab=xlab, title=title, exp=ddd$exp, sqrt=ddd$sqrt) class(sav) <- "profile.rma" if (isTRUE(ddd$sqrt)) names(sav)[1] <- "tau" sav$I2 <- sapply(res, function(x) x$I2) sav$H2 <- sapply(res, function(x) x$H2) if (pred) { sav$pred <- do.call(cbind, lapply(res, function(x) x$pred)) # use do.call(cbind, lapply()) instead of sapply() to always get a matrix, even when predicting a single value sav$pred.ci.lb <- do.call(cbind, lapply(res, function(x) x$pred.ci.lb)) sav$pred.ci.ub <- do.call(cbind, lapply(res, function(x) x$pred.ci.ub)) sav$pred.pi.lb <- do.call(cbind, lapply(res, function(x) x$pred.pi.lb)) sav$pred.pi.ub <- do.call(cbind, lapply(res, function(x) x$pred.pi.ub)) rownames(sav$pred) <- rownames(sav$pred.ci.lb) <- rownames(sav$pred.ci.ub) <- rownames(sav$pred.pi.lb) <- rownames(sav$pred.pi.ub) <- predres$slab # [a] } if (blup) { sav$blup <- sapply(res, function(x) x$blup) sav$blup.se <- sapply(res, function(x) x$blup.se) sav$blup.pi.lb <- sapply(res, function(x) x$blup.pi.lb) sav$blup.pi.ub <- sapply(res, function(x) x$blup.pi.ub) rownames(sav$blup) <- x$slab[x$not.na] rownames(sav$blup.se) <- x$slab[x$not.na] rownames(sav$blup.pi.lb) <- x$slab[x$not.na] rownames(sav$blup.pi.ub) <- x$slab[x$not.na] } ######################################################################### if (plot) plot(sav, ...) ######################################################################### if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } invisible(sav) } metafor/R/confint.rma.ls.r0000644000176200001440000003263015120213572015130 0ustar liggesusersconfint.rma.ls <- function(object, parm, level, fixed=FALSE, alpha, digits, transf, targs, verbose=FALSE, control, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.ls") if (!missing(parm)) warning(mstyle$warning("Argument 'parm' (currently) ignored."), call.=FALSE) x <- object k <- x$k p <- x$p if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL if (missing(control)) control <- list() ddd <- list(...) .chkdots(ddd, c("time", "xlim", "extint", "code1", "code2")) level <- .level(level, stopon100=isTRUE(ddd$extint)) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd$xlim)) { if (length(ddd$xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) control$vc.min <- ddd$xlim[1] control$vc.max <- ddd$xlim[2] } if (x$optbeta) stop(mstyle$stop("CI calculation not yet implemented for models fitted with 'optbeta=TRUE'.")) ### check if user has specified alpha argument random <- !missing(alpha) if (!fixed && !random) { ### if both 'fixed' and 'random' are FALSE, obtain CIs for alpha parameters cl <- match.call() ### total number of non-fixed components comps <- sum(!x$alpha.fix) if (comps == 0) stop(mstyle$stop("No components for which a CI can be obtained.")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) res.all <- list() j <- 0 if (any(!x$alpha.fix)) { for (pos in seq_len(x$alphas)[!x$alpha.fix]) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$alpha <- pos cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.ls") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for alpha =", pos, "\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } if (length(res.all) == 1L) { return(res.all[[1]]) } else { res.all$digits <- digits class(res.all) <- "list.confint.rma" return(res.all) } } ######################################################################### ######################################################################### ######################################################################### if (random) { type <- "pl" ###################################################################### ### check if model actually contains (at least one) such a component and that it was actually estimated if (!missing(alpha) && all(x$alpha.fix)) stop(mstyle$stop("Model does not contain any estimated 'alpha' components.")) ### check if user specified more than one alpha component if (!missing(alpha) && (length(alpha) > 1L)) stop(mstyle$stop("Can only specify one 'alpha' component.")) ### check if user specified a logical if (!missing(alpha) && is.logical(alpha)) stop(mstyle$stop("Must specify a number for the 'alpha' component.")) ### check if user specified a component that does not exist if (!missing(alpha) && (alpha > x$alphas || alpha <= 0)) stop(mstyle$stop("No such 'alpha' component in the model.")) ### check if user specified a component that was fixed if (!missing(alpha) && x$alpha.fix[alpha]) stop(mstyle$stop("Specified 'alpha' component was fixed.")) ### if everything is good so far, get value of the variance component and set 'comp' alpha.pos <- NA_integer_ if (!missing(alpha)) { vc <- x$alpha[alpha] comp <- "alpha" alpha.pos <- alpha } #return(list(comp=comp, vc=vc, alpha.pos=alpha.pos)) ###################################################################### ### set defaults for control parameters for uniroot() and replace with any user-defined values ### set vc.min and vc.max and possibly replace with any user-defined values con <- list(tol=.Machine$double.eps^0.25, maxiter=1000, verbose=FALSE, eptries=10) if (comp == "alpha") { if (is.na(x$se.alpha[alpha])) { con$vc.min <- vc - 10 * abs(vc) con$vc.max <- vc + 10 * abs(vc) } else { #con$vc.min <- vc - 10 * qnorm(level/2, lower.tail=FALSE) * x$se.alpha[alpha] #con$vc.max <- vc + 10 * qnorm(level/2, lower.tail=FALSE) * x$se.alpha[alpha] # using this now to deal with cases where the SE may be extremely large con$vc.min <- max(vc - 10 * abs(vc), vc - 10 * qnorm(level/2, lower.tail=FALSE) * x$se.alpha[alpha]) con$vc.max <- min(vc + 10 * abs(vc), vc + 10 * qnorm(level/2, lower.tail=FALSE) * x$se.alpha[alpha]) } } if (!is.null(x$control$alpha.min)) { x$control$alpha.min <- .expand1(x$control$alpha.min, x$q) con$vc.min <- max(con$vc.min, x$control$alpha.min[alpha]) } if (!is.null(x$control$alpha.max)) { x$control$alpha.max <- .expand1(x$control$alpha.max, x$q) con$vc.max <- min(con$vc.max, x$control$alpha.max[alpha]) } con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose ###################################################################### vc.lb <- NA_real_ vc.ub <- NA_real_ ci.null <- FALSE # logical if CI is a null set lb.conv <- FALSE # logical if search converged for lower bound (LB) ub.conv <- FALSE # logical if search converged for upper bound (UB) lb.sign <- "" # for sign in case LB must be below vc.min ("<") or above vc.max (">") ub.sign <- "" # for sign in case UB must be below vc.min ("<") or above vc.max (">") ###################################################################### ###################################################################### ###################################################################### ### Profile Likelihood method if (type == "pl") { if (con$vc.min > vc) stop(mstyle$stop("Lower bound of interval to be searched must be <= estimated value of component.")) if (con$vc.max < vc) stop(mstyle$stop("Upper bound of interval to be searched must be >= estimated value of component.")) objective <- qchisq(1-level, df=1) ################################################################### ### search for lower bound ### get diff value when setting component to vc.min; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the lower bound must be below vc.min epdiff <- abs(con$vc.min - vc) / con$eptries for (i in seq_len(con$eptries)) { res <- try(.profile.rma.ls(con$vc.min, obj=x, comp=comp, alpha.pos=alpha.pos, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (!isTRUE(ddd$extint) && res < 0) { vc.lb <- con$vc.min lb.conv <- TRUE lb.sign <- "<" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.ls, interval=c(con$vc.min, vc), tol=con$tol, maxiter=con$maxiter, extendInt="downX", obj=x, comp=comp, alpha.pos=alpha.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.ls, interval=c(con$vc.min, vc), tol=con$tol, maxiter=con$maxiter, obj=x, comp=comp, alpha.pos=alpha.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { vc.lb <- res lb.conv <- TRUE } } break } con$vc.min <- con$vc.min + epdiff } if (verbose) cat("\n") ################################################################### ### search for upper bound ### get diff value when setting component to vc.max; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the upper bound must be above vc.max epdiff <- abs(con$vc.max - vc) / con$eptries for (i in seq_len(con$eptries)) { res <- try(.profile.rma.ls(con$vc.max, obj=x, comp=comp, alpha.pos=alpha.pos, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (!isTRUE(ddd$extint) && res < 0) { vc.ub <- con$vc.max ub.conv <- TRUE ub.sign <- ">" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.ls, interval=c(vc, con$vc.max), tol=con$tol, maxiter=con$maxiter, extendInt="upX", obj=x, comp=comp, alpha.pos=alpha.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.ls, interval=c(vc, con$vc.max), tol=con$tol, maxiter=con$maxiter, obj=x, comp=comp, alpha.pos=alpha.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { vc.ub <- res ub.conv <- TRUE } } break } con$vc.max <- con$vc.max - epdiff } ################################################################### } ###################################################################### ###################################################################### ###################################################################### if (!lb.conv) warning(mstyle$warning("Cannot obtain lower bound of profile likelihood CI due to convergence problems."), call.=FALSE) if (!ub.conv) warning(mstyle$warning("Cannot obtain upper bound of profile likelihood CI due to convergence problems."), call.=FALSE) ###################################################################### vc <- c(vc, vc.lb, vc.ub) if (comp == "alpha") { res.random <- rbind(vc) if (x$alphas == 1L) { rownames(res.random) <- "alpha" } else { rownames(res.random) <- paste0("alpha.", alpha.pos) } } colnames(res.random) <- c("estimate", "ci.lb", "ci.ub") } ######################################################################### ######################################################################### ######################################################################### if (fixed) { if (is.element(x$test, c("knha","adhoc","t"))) { crit <- qt(level/2, df=x$ddf, lower.tail=FALSE) } else { crit <- qnorm(level/2, lower.tail=FALSE) } beta <- c(x$beta) ci.lb <- c(beta - crit * x$se) ci.ub <- c(beta + crit * x$se) if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] res.fixed <- cbind(estimate=beta, ci.lb=ci.lb, ci.ub=ci.ub) rownames(res.fixed) <- rownames(x$beta) } ######################################################################### ######################################################################### ######################################################################### res <- list() if (fixed) res$fixed <- res.fixed if (random) res$random <- res.random res$digits <- digits if (random) { res$ci.null <- ci.null res$lb.sign <- lb.sign res$ub.sign <- ub.sign #res$vc.min <- con$vc.min } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(res) <- "confint.rma" return(res) } metafor/R/rstandard.rma.mh.r0000644000176200001440000000311515120213572015434 0ustar liggesusersrstandard.rma.mh <- function(model, digits, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.mh") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$yi.f)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) x <- model if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } ######################################################################### resid <- c(x$yi.f - x$beta) resid[abs(resid) < 100 * .Machine$double.eps] <- 0 #resid[abs(resid) < 100 * .Machine$double.eps * median(abs(resid), na.rm=TRUE)] <- 0 # see lm.influence ### note: these are like Pearson (or semi-standardized) residuals seresid <- sqrt(x$vi.f) stresid <- resid / seresid ######################################################################### if (na.act == "na.omit") { out <- list(resid=resid[x$not.na.yivi], se=seresid[x$not.na.yivi], z=stresid[x$not.na.yivi]) out$slab <- x$slab[x$not.na.yivi] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(resid=resid, se=seresid, z=stresid) out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na.yivi)) stop(mstyle$stop("Missing values in results.")) out$digits <- digits class(out) <- "list.rma" return(out) } metafor/R/cumul.rma.mh.r0000644000176200001440000001530115120213572014577 0ustar liggesuserscumul.rma.mh <- function(x, order, digits, transf, targs, collapse=FALSE, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.mh") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in data.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL ddd <- list(...) .chkdots(ddd, c("time", "decreasing", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() decreasing <- .chkddd(ddd$decreasing, FALSE) ######################################################################### if (grepl("^order\\(", deparse1(substitute(order)))) warning(mstyle$warning("Use of order() in the 'order' argument is probably erroneous."), call.=FALSE) if (missing(order)) { orvar <- seq_len(x$k.all) collapse <- FALSE } else { mf <- match.call() orvar <- .getx("order", mf=mf, data=x$data) if (length(orvar) != x$k.all) stop(mstyle$stop(paste0("Length of the 'order' argument (", length(orvar), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) } ### note: order variable must be of the same length as the original dataset ### so apply the same subsetting as was done during the model fitting orvar <- .getsubset(orvar, x$subset) ### order data by the order variable (NAs in order variable are dropped) order <- base::order(orvar, decreasing=decreasing, na.last=NA) ai <- x$outdat.f$ai[order] bi <- x$outdat.f$bi[order] ci <- x$outdat.f$ci[order] di <- x$outdat.f$di[order] x1i <- x$outdat.f$x1i[order] x2i <- x$outdat.f$x2i[order] t1i <- x$outdat.f$t1i[order] t2i <- x$outdat.f$t2i[order] yi <- x$yi.f[order] vi <- x$vi.f[order] not.na <- x$not.na[order] slab <- x$slab[order] ids <- x$ids[order] orvar <- orvar[order] if (inherits(x$data, "environment")) { data <- NULL } else { data <- x$data[order,] } if (collapse) { uorvar <- unique(orvar) } else { uorvar <- orvar } k.o <- length(uorvar) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) k <- rep(NA_integer_, k.o) beta <- rep(NA_real_, k.o) se <- rep(NA_real_, k.o) zval <- rep(NA_real_, k.o) pval <- rep(NA_real_, k.o) ci.lb <- rep(NA_real_, k.o) ci.ub <- rep(NA_real_, k.o) QE <- rep(NA_real_, k.o) QEp <- rep(NA_real_, k.o) I2 <- rep(NA_real_, k.o) H2 <- rep(NA_real_, k.o) show <- rep(TRUE, k.o) ### elements that need to be returned outlist <- "k=k, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, QE=QE, QEp=QEp, I2=I2, H2=H2" if (progbar) pbar <- pbapply::startpb(min=0, max=k.o) for (i in seq_len(k.o)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) if (collapse) { if (all(!not.na[is.element(orvar, uorvar[i])])) { if (na.act == "na.omit") show[i] <- FALSE # if all studies to be added are !not.na, don't show (but a fit failure is still shown) next } incl <- is.element(orvar, uorvar[1:i]) } else { if (!not.na[i]) { if (na.act == "na.omit") show[i] <- FALSE # if study to be added is !not.na, don't show (but a fit failure is still shown) next } incl <- 1:i } if (is.element(x$measure, c("RR","OR","RD"))) { args <- list(ai=ai, bi=bi, ci=ci, di=di, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=incl, outlist=outlist) } else { args <- list(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=incl, outlist=outlist) } res <- try(suppressWarnings(.do.call(rma.mh, args)), silent=TRUE) if (inherits(res, "try-error")) next k[i] <- res$k beta[i] <- res$beta se[i] <- res$se zval[i] <- res$zval pval[i] <- res$pval ci.lb[i] <- res$ci.lb ci.ub[i] <- res$ci.ub QE[i] <- res$QE QEp[i] <- res$QEp I2[i] <- res$I2 H2[i] <- res$H2 } if (progbar) pbapply::closepb(pbar) ######################################################################### ### if requested, apply transformation function if (isTRUE(transf) && is.element(x$measure, c("OR","RR","IRR"))) # if transf=TRUE, apply exp transformation to ORs, RRs, and IRRs transf <- exp if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) se <- rep(NA_real_, k.o) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) se <- rep(NA_real_, k.o) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### out <- list(k=k[show], estimate=beta[show], se=se[show], zval=zval[show], pval=pval[show], ci.lb=ci.lb[show], ci.ub=ci.ub[show], Q=QE[show], Qp=QEp[show], I2=I2[show], H2=H2[show]) if (collapse) { out$slab <- uorvar[show] out$slab.null <- FALSE } else { out$slab <- slab[show] out$ids <- ids[show] out$data <- data[show,,drop=FALSE] out$slab.null <- x$slab.null } out$order <- uorvar[show] out$digits <- digits out$transf <- transf out$level <- x$level out$test <- x$test if (!transf) { out$measure <- x$measure attr(out$estimate, "measure") <- x$measure } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- c("list.rma", "cumul.rma") return(out) } metafor/R/forest.cumul.rma.r0000644000176200001440000007111115120213572015476 0ustar liggesusersforest.cumul.rma <- function(x, annotate=TRUE, header=TRUE, xlim, alim, olim, ylim, at, steps=5, refline=0, digits=2L, width, xlab, ilab, ilab.lab, ilab.xpos, ilab.pos, transf, atransf, targs, rows, efac=1, pch, psize, col, shade, colshade, lty, fonts, cex, cex.lab, cex.axis, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="cumul.rma") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (x$transf) # if results were transformed, need x$se not be missing below (not really used anyway) x$se <- rep(0, length(x$estimate)) if (missing(transf)) transf <- FALSE if (missing(atransf)) atransf <- FALSE transf.char <- deparse(transf) atransf.char <- deparse(atransf) if (is.function(transf) && is.function(atransf)) stop(mstyle$stop("Use either 'transf' or 'atransf' to specify a transformation (not both).")) .start.plot() yi <- x$estimate if (missing(targs)) targs <- NULL if (missing(at)) at <- NULL mf <- match.call() if (missing(ilab)) { ilab <- NULL } else { ilab <- .getx("ilab", mf=mf, data=x$data) } if (missing(ilab.lab)) ilab.lab <- NULL if (missing(ilab.xpos)) ilab.xpos <- NULL if (missing(ilab.pos)) ilab.pos <- NULL if (missing(col)) { col <- par("fg") } else { col <- .getx("col", mf=mf, data=x$data) } if (missing(pch)) { pch <- 15 } else { pch <- .getx("pch", mf=mf, data=x$data) } if (missing(psize)) { psize <- 1 } else { psize <- .getx("psize", mf=mf, data=x$data) } if (missing(shade)) { shade <- NULL } else { shade <- .getx("shade", mf=mf, data=x$data) } if (missing(colshade)) colshade <- .coladj(par("bg","fg"), dark=0.1, light=-0.1) if (missing(cex)) cex <- NULL if (missing(cex.lab)) cex.lab <- NULL if (missing(cex.axis)) cex.axis <- NULL level <- .level(x$level) ### digits[1] for annotations, digits[2] for x-axis labels ### note: digits can also be a list (e.g., digits=list(2,3L)); trailing 0's on the x-axis labels ### are dropped if the value is an integer if (length(digits) == 1L) digits <- c(digits,digits) ddd <- list(...) ############################################################################ ### set default line types if user has not specified 'lty' argument if (missing(lty)) { lty <- c("solid", "solid") # 1st = CIs, 2nd = horizontal line(s) } else { if (length(lty) == 1L) lty <- c(lty, "solid") } ### vertical expansion factors: 1st = CI/PI end lines, 2nd = arrows, 3rd = summary polygon, 4th = PI polygon/bar/shade/dist height (note: 3rd and 4th not used, but passed on to .metafor) efac <- .expand1(efac, 4L) if (length(efac) == 2L) efac <- c(efac,1,1) # if 2 values specified (note: this one is different in forest.rma()) if (length(efac) == 3L) efac <- efac[c(1:3,3)] # if 3 values specified efac[efac == 0] <- NA ### annotation symbols vector if (is.null(ddd$annosym)) { annosym <- c(" [", ", ", "]", "-", " ") # 4th element for minus sign symbol; 5th for space (in place of numbers and +); see [a] } else { annosym <- ddd$annosym if (length(annosym) == 3L) annosym <- c(annosym, "-", " ") if (length(annosym) == 4L) annosym <- c(annosym, " ") if (length(annosym) != 5L) stop(mstyle$stop("Argument 'annosym' must be a vector of length 3 (or 4 or 5).")) } ### adjust annosym for tabular figures if (isTRUE(ddd$tabfig == 1)) annosym <- c("\u2009[", ",\u2009", "]", "\u2212", "\u2002") # \u2009 thin space; \u2212 minus, \u2002 en space if (isTRUE(ddd$tabfig == 2)) annosym <- c("\u2009[", ",\u2009", "]", "\u2013", "\u2002") # \u2009 thin space; \u2013 en dash, \u2002 en space if (isTRUE(ddd$tabfig == 3)) annosym <- c("\u2009[", ",\u2009", "]", "\u2212", "\u2007") # \u2009 thin space; \u2212 minus, \u2007 figure space ### get measure from object measure <- x$measure ### column header estlab <- .setlab(measure, transf.char, atransf.char, gentype=3, short=TRUE) if (is.expression(estlab)) { header.right <- str2lang(paste0("bold(", estlab, " * '", annosym[1], "' * '", round(100*(1-level),digits[[1]]), "% CI'", " * '", annosym[3], "')")) } else { header.right <- paste0(estlab, annosym[1], round(100*(1-level),digits[[1]]), "% CI", annosym[3]) } if (is.logical(header)) { if (header) { header.left <- "Study" } else { header.left <- NULL header.right <- NULL } } else { if (!is.character(header)) stop(mstyle$stop("Argument 'header' must either be a logical or character vector.")) if (length(header) == 1L) { header.left <- header } else { header.left <- header[1] header.right <- header[2] } } if (!annotate) header.right <- NULL if (is.null(ddd$clim)) { if (missing(olim)) olim <- NULL } else { olim <- ddd$clim } if (!is.null(olim)) { if (length(olim) != 2L) stop(mstyle$stop("Argument 'olim' must be of length 2.")) if (anyNA(olim)) stop(mstyle$stop("Argument 'olim' cannot contain NAs.")) olim <- sort(olim) } ### row adjustments for 1) study labels, 2) annotations, and 3) ilab elements if (is.null(ddd$rowadj)) { rowadj <- rep(0,3) } else { rowadj <- ddd$rowadj if (length(rowadj) == 1L) rowadj <- c(rowadj,rowadj,0) # if one value is specified, use it for both 1&2 if (length(rowadj) == 2L) rowadj <- c(rowadj,0) # if two values are specified, use them for 1&2 } top <- .chkddd(ddd$top, 3) if (is.null(ddd$xlabadj)) { xlabadj <- c(NA,NA) } else { xlabadj <- ddd$xlabadj if (length(xlabadj) == 1L) xlabadj <- c(xlabadj, 1-xlabadj) } xlabfont <- .chkddd(ddd$xlabfont, 1) if (!is.null(ddd$slab)) warning("The forest.cumul.rma() function does not have an 'slab' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$mlab)) warning("The forest.cumul.rma() function does not have an 'mlab' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$order)) warning("The forest.cumul.rma() function does not have an 'order' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$addfit)) warning("The forest.cumul.rma() function does not have an 'addfit' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$addpred)) warning("The forest.cumul.rma() function does not have an 'addpred' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$predstyle)) warning("The forest.cumul.rma() function does not have a 'predstyle' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$showweights)) warning("The forest.cumul.rma() function does not have a 'showweights' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$predlim)) warning("The forest.cumul.rma() function does not have a 'predlim' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$colout)) warning("The forest.cumul.rma() function does not have a 'colout' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$border)) warning("The forest.cumul.rma() function does not have a 'border' argument.", call.=FALSE, immediate.=TRUE) lplot <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) plot(...) labline <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) abline(...) lsegments <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) segments(...) laxis <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) axis(...) lmtext <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) mtext(...) lpolygon <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) polygon(...) ltext <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) text(...) lpoints <- function(..., textpos, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, slab, mlab, order, addfit, addpred, predstyle, showweights, predlim, colout, border) points(...) ######################################################################### ### extract data / results and other arguments vi <- x$se^2 ci.lb <- x$ci.lb ci.ub <- x$ci.ub ### check length of yi and vi k <- length(yi) # either of length k when na.action="na.omit" or k.f otherwise if (length(vi) != k) stop(mstyle$stop("Length of 'yi' and 'vi' (or 'sei') are not the same.")) ### note: ilab, pch, psize, col must be of the same length as yi (which may ### or may not contain NAs; this is different than the other forest() ### functions but it would be tricky to make this fully consistent now) if (x$slab.null) { slab <- paste("+ Study", x$ids) # cumul() removes the studies with NAs when na.action="na.omit" slab[1] <- paste("Study", x$ids[1]) slab.null <- TRUE } else { slab <- paste("+", x$slab) # cumul() removes the studies with NAs when na.action="na.omit" slab[1] <- paste(x$slab[1]) slab.null <- FALSE } if (!is.null(ilab)) { if (is.null(dim(ilab))) ilab <- cbind(ilab) if (nrow(ilab) != k) stop(mstyle$stop(paste0("Length of the 'ilab' argument (", nrow(ilab), ") does not correspond to the number of outcomes (", k, ")."))) } pch <- .expand1(pch, k) if (length(pch) != k) stop(mstyle$stop(paste0("Length of the 'pch' argument (", length(pch), ") does not correspond to the number of outcomes (", k, ")."))) psize <- .expand1(psize, k) if (length(psize) != k) stop(mstyle$stop(paste0("Length of the 'psize' argument (", length(psize), ") does not correspond to the number of outcomes (", k, ")."))) col <- .expand1(col, k) if (length(col) != k) stop(mstyle$stop(paste0("Length of the 'col' argument (", length(col), ") does not correspond to the number of outcomes (", k, ")."))) shade.type <- "none" if (is.character(shade)) { shade.type <- "character" shade <- shade[1] if (!is.element(shade, c("zebra", "zebra1", "zebra2", "all"))) stop(mstyle$stop("Unknown option specified for 'shade' argument.")) } if (is.logical(shade)) { if (length(shade) == 1L) { shade <- "zebra" shade.type <- "character" } else { shade.type <- "logical" shade <- .chksubset(shade, k, stoponk0=FALSE) } } if (is.numeric(shade)) shade.type <- "numeric" ### set rows value if (missing(rows)) { rows <- k:1 } else { if (length(rows) == 1L) rows <- rows:(rows-k+1) } if (length(rows) != k) stop(mstyle$stop(paste0("Length of the 'rows' argument (", length(rows), ") does not correspond to the number of outcomes (", k, ")."))) ### reverse order yi <- yi[k:1] vi <- vi[k:1] ci.lb <- ci.lb[k:1] ci.ub <- ci.ub[k:1] slab <- slab[k:1] ilab <- ilab[k:1,,drop=FALSE] # if NULL, remains NULL pch <- pch[k:1] psize <- psize[k:1] # if NULL, remains NULL col <- col[k:1] rows <- rows[k:1] if (shade.type == "logical") shade <- shade[k:1] ### check for NAs in yi/vi and act accordingly yivi.na <- is.na(yi) | is.na(vi) if (any(yivi.na)) { not.na <- !yivi.na if (na.act == "na.omit") { yi <- yi[not.na] vi <- vi[not.na] ci.lb <- ci.lb[not.na] ci.ub <- ci.ub[not.na] slab <- slab[not.na] ilab <- ilab[not.na,,drop=FALSE] # if NULL, remains NULL pch <- pch[not.na] psize <- psize[not.na] # if NULL, remains NULL col <- col[not.na] if (shade.type == "logical") shade <- shade[not.na] rows.new <- rows # rearrange rows due to NAs being omitted from plot rows.na <- rows[!not.na] # shift higher rows down according to number of NAs omitted for (j in seq_along(rows.na)) { rows.new[rows >= rows.na[j]] <- rows.new[rows >= rows.na[j]] - 1 } rows <- rows.new[not.na] } if (na.act == "na.fail") stop(mstyle$stop("Missing values in results.")) } # note: yi/vi may be NA if na.act == "na.exclude" or "na.pass" k <- length(yi) # in case length of k has changed ### if requested, apply transformation to yi's and CI bounds if (is.function(transf)) { if (is.null(targs)) { yi <- sapply(yi, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) yi <- sapply(yi, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ### apply observation/outcome limits if specified if (!is.null(olim)) { yi <- .applyolim(yi, olim) ci.lb <- .applyolim(ci.lb, olim) ci.ub <- .applyolim(ci.ub, olim) } ######################################################################### if (!is.null(at)) { if (anyNA(at)) stop(mstyle$stop("Argument 'at' cannot contain NAs.")) if (any(is.infinite(at))) stop(mstyle$stop("Argument 'at' cannot contain +-Inf values.")) } ### set x-axis limits (at argument overrides alim argument) alim.spec <- TRUE if (missing(alim)) { if (is.null(at)) { alim <- range(pretty(x=c(min(ci.lb, na.rm=TRUE), max(ci.ub, na.rm=TRUE)), n=steps-1)) alim.spec <- FALSE } else { alim <- range(at) } } alim <- sort(alim)[1:2] if (anyNA(alim)) stop(mstyle$stop("Argument 'alim' cannot contain NAs.")) ### generate x-axis positions if none are specified if (is.null(at)) { if (alim.spec) { at <- seq(from=alim[1], to=alim[2], length.out=steps) } else { at <- pretty(x=c(min(ci.lb, na.rm=TRUE), max(ci.ub, na.rm=TRUE)), n=steps-1) } } else { at[at < alim[1]] <- alim[1] # remove at values that are below or above the axis limits at[at > alim[2]] <- alim[2] at <- unique(at) } ### x-axis labels (apply transformation to axis labels if requested) if (is.null(ddd$at.lab)) { at.lab <- at if (is.function(atransf)) { if (is.null(targs)) { at.lab <- fmtx(sapply(at.lab, atransf), digits[[2]], drop0ifint=TRUE) } else { at.lab <- fmtx(sapply(at.lab, atransf, targs), digits[[2]], drop0ifint=TRUE) } } else { at.lab <- fmtx(at.lab, digits[[2]], drop0ifint=TRUE) } } else { at.lab <- ddd$at.lab } ### set plot limits (xlim) ncol.ilab <- ifelse(is.null(ilab), 0, ncol(ilab)) if (slab.null) { area.slab <- 25 } else { area.slab <- 40 } if (annotate) { area.anno <- 25 } else { area.anno <- 10 } iadd <- 5 area.slab <- area.slab + iadd*ncol.ilab #area.anno <- area.anno area.forest <- 100 + iadd*ncol.ilab - area.slab - area.anno area.slab <- area.slab / (100 + iadd*ncol.ilab) area.anno <- area.anno / (100 + iadd*ncol.ilab) area.forest <- area.forest / (100 + iadd*ncol.ilab) plot.multp.l <- area.slab / area.forest plot.multp.r <- area.anno / area.forest if (missing(xlim)) { if (min(ci.lb, na.rm=TRUE) < alim[1]) { f.1 <- alim[1] } else { f.1 <- min(ci.lb, na.rm=TRUE) } if (max(ci.ub, na.rm=TRUE) > alim[2]) { f.2 <- alim[2] } else { f.2 <- max(ci.ub, na.rm=TRUE) } rng <- f.2 - f.1 xlim <- c(f.1 - rng * plot.multp.l, f.2 + rng * plot.multp.r) xlim <- round(xlim, digits[[2]]) #xlim[1] <- xlim[1]*max(1, digits[[2]]/2) #xlim[2] <- xlim[2]*max(1, digits[[2]]/2) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' must be of length 2.")) } xlim <- sort(xlim) ### plot limits must always encompass the yi values (no longer done) #if (xlim[1] > min(yi, na.rm=TRUE)) { xlim[1] <- min(yi, na.rm=TRUE) } #if (xlim[2] < max(yi, na.rm=TRUE)) { xlim[2] <- max(yi, na.rm=TRUE) } ### x-axis limits must always encompass the yi values (no longer done) #if (alim[1] > min(yi, na.rm=TRUE)) { alim[1] <- min(yi, na.rm=TRUE) } #if (alim[2] < max(yi, na.rm=TRUE)) { alim[2] <- max(yi, na.rm=TRUE) } ### plot limits must always encompass the x-axis limits (no longer done) #if (alim[1] < xlim[1]) { xlim[1] <- alim[1] } #if (alim[2] > xlim[2]) { xlim[2] <- alim[2] } ### allow adjustment of position of study labels and annotations via textpos argument textpos <- .chkddd(ddd$textpos, xlim) if (length(textpos) != 2L) stop(mstyle$stop("Argument 'textpos' must be of length 2.")) if (is.na(textpos[1])) textpos[1] <- xlim[1] if (is.na(textpos[2])) textpos[2] <- xlim[2] ### set y-axis limits if (missing(ylim)) { ylim <- c(0, max(rows, na.rm=TRUE)+top) } else { if (length(ylim) == 1L) { ylim <- c(ylim, max(rows, na.rm=TRUE)+top) } else { ylim <- sort(ylim) } } ######################################################################### ### set/get fonts (1st for study labels, 2nd for annotations, 3rd for ilab) ### when passing a named vector, the names are for 'family' and the values are for 'font' if (missing(fonts)) { fonts <- rep(par("family"), 3L) } else { if (length(fonts) == 1L) fonts <- rep(fonts, 3L) if (length(fonts) == 2L) fonts <- c(fonts, fonts[1]) } if (is.null(names(fonts))) fonts <- setNames(c(1L,1L,1L), nm=fonts) par(family=names(fonts)[1], font=fonts[1]) ### adjust margins par.mar <- par("mar") par.mar.adj <- par.mar - c(0,3,1,1) par.mar.adj[par.mar.adj < 0] <- 0 par(mar=par.mar.adj) on.exit(par(mar=par.mar), add=TRUE) ### start plot lplot(NA, NA, xlim=xlim, ylim=ylim, xlab="", ylab="", yaxt="n", xaxt="n", xaxs="i", yaxs="i", bty="n", ...) if (shade.type == "character") { if (shade == "zebra" || shade == "zebra1") tmp <- rep_len(c(TRUE,FALSE), k) if (shade == "zebra2") tmp <- rep_len(c(FALSE,TRUE), k) if (shade == "all") tmp <- rep_len(TRUE, k) shade <- tmp } if (shade.type %in% c("character","logical")) { for (i in seq_len(k)) { if (shade[i]) rect(xlim[1], rows[i]-0.5, xlim[2], rows[i]+0.5, border=colshade, col=colshade) } } if (shade.type == "numeric") { for (i in seq_along(shade)) { rect(xlim[1], shade[i]-0.5, xlim[2], shade[i]+0.5, border=colshade, col=colshade) } } ### horizontal title line labline(h=ylim[2]-(top-1), lty=lty[2], ...) ### get coordinates of the plotting region par.usr <- par("usr") ### add reference line if (is.numeric(refline)) lsegments(refline, par.usr[3], refline, ylim[2]-(top-1), lty="dotted", ...) ### set cex, cex.lab, and cex.axis sizes as a function of the height of the figure height <- par.usr[4] - par.usr[3] if (is.null(cex)) { lheight <- strheight("O") cex.adj <- ifelse(k * lheight > height * 0.8, height/(1.25 * k * lheight), 1) } if (is.null(cex)) { cex <- par("cex") * cex.adj } else { if (is.null(cex.lab)) cex.lab <- par("cex") * cex if (is.null(cex.axis)) cex.axis <- cex } if (is.null(cex.lab)) cex.lab <- par("cex") * cex.adj if (is.null(cex.axis)) cex.axis <- par("cex") * cex.adj ### add x-axis laxis(side=1, at=at, labels=at.lab, cex.axis=cex.axis, ...) ### add x-axis label if (missing(xlab)) xlab <- .setlab(measure, transf.char, atransf.char, gentype=2) if (!is.element(length(xlab), 1:3)) stop(mstyle$stop("Argument 'xlab' argument must be of length 1, 2, or 3.")) if (length(xlab) == 1L) lmtext(xlab, side=1, at=min(at) + (max(at)-min(at))/2, line=par("mgp")[1]-0.5, cex=cex.lab, font=xlabfont[1], ...) if (length(xlab) == 2L) { lmtext(xlab[1], side=1, at=min(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[1], font=xlabfont[1], ...) lmtext(xlab[2], side=1, at=max(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[2], font=xlabfont[1], ...) } if (length(xlab) == 3L) { lmtext(xlab[1], side=1, at=min(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[1], font=xlabfont[1], ...) lmtext(xlab[2], side=1, at=min(at) + (max(at)-min(at))/2, line=par("mgp")[1]-0.5, cex=cex.lab, font=xlabfont[2], ...) lmtext(xlab[3], side=1, at=max(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[2], font=xlabfont[1], ...) } ### add CI ends (either | or <> if outside of axis limits) ciendheight <- height / 150 * cex * efac[1] arrowwidth <- 1.4 / 100 * cex * (xlim[2]-xlim[1]) arrowheight <- height / 150 * cex * efac[2] for (i in seq_len(k)) { ### need to skip missings (if check below will otherwise throw an error) if (is.na(yi[i]) || is.na(vi[i])) next ### if the lower bound is actually larger than upper x-axis limit, then everything is to the right and just draw a polygon pointing in that direction if (ci.lb[i] >= alim[2]) { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) next } ### if the upper bound is actually lower than lower x-axis limit, then everything is to the left and just draw a polygon pointing in that direction if (ci.ub[i] <= alim[1]) { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) next } lsegments(max(ci.lb[i], alim[1]), rows[i], min(ci.ub[i], alim[2]), rows[i], lty=lty[1], col=col[i], ...) if (ci.lb[i] >= alim[1]) { lsegments(ci.lb[i], rows[i]-ciendheight, ci.lb[i], rows[i]+ciendheight, col=col[i], ...) } else { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) } if (ci.ub[i] <= alim[2]) { lsegments(ci.ub[i], rows[i]-ciendheight, ci.ub[i], rows[i]+ciendheight, col=col[i], ...) } else { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) } } ### add study labels on the left ltext(textpos[1], rows+rowadj[1], slab, pos=4, cex=cex, col=col, ...) ### add info labels if (!is.null(ilab)) { if (is.null(ilab.xpos)) { #stop(mstyle$stop("Must specify the 'ilab.xpos' argument when adding information with 'ilab'.")) dist <- min(ci.lb, na.rm=TRUE) - xlim[1] if (ncol.ilab == 1L) ilab.xpos <- xlim[1] + dist*0.75 if (ncol.ilab == 2L) ilab.xpos <- xlim[1] + dist*c(0.65, 0.85) if (ncol.ilab == 3L) ilab.xpos <- xlim[1] + dist*c(0.60, 0.75, 0.90) if (ncol.ilab >= 4L) ilab.xpos <- seq(xlim[1] + dist*0.5, xlim[1] + dist*0.9, length.out=ncol.ilab) } if (length(ilab.xpos) != ncol.ilab) stop(mstyle$stop(paste0("Number of 'ilab' columns (", ncol.ilab, ") does not match the length of the 'ilab.xpos' argument (", length(ilab.xpos), ")."))) if (!is.null(ilab.pos) && length(ilab.pos) == 1L) ilab.pos <- rep(ilab.pos, ncol.ilab) if (!is.null(ilab.lab) && length(ilab.lab) != ncol.ilab) stop(mstyle$stop(paste0("Number of 'ilab' columns (", ncol.ilab, ") does not match the length of the 'ilab.lab' argument (", length(ilab.lab), ")."))) par(family=names(fonts)[3], font=fonts[3]) for (l in seq_len(ncol.ilab)) { ltext(ilab.xpos[l], rows+rowadj[3], ilab[,l], pos=ilab.pos[l], cex=cex, ...) if (!is.null(ilab.lab)) ltext(ilab.xpos[l], ylim[2]-(top-1)+1+rowadj[3], ilab.lab[l], pos=ilab.pos[l], font=2, cex=cex, ...) } par(family=names(fonts)[1], font=fonts[1]) } ### add study annotations on the right: yi [LB, UB] if (annotate) { if (is.function(atransf)) { if (is.null(targs)) { annotext <- cbind(sapply(yi, atransf), sapply(ci.lb, atransf), sapply(ci.ub, atransf)) } else { annotext <- cbind(sapply(yi, atransf, targs), sapply(ci.lb, atransf, targs), sapply(ci.ub, atransf, targs)) } ### make sure order of intervals is always increasing tmp <- .psort(annotext[,2:3]) annotext[,2:3] <- tmp } else { annotext <- cbind(yi, ci.lb, ci.ub) } annotext <- fmtx(annotext, digits[[1]]) if (missing(width)) { width <- apply(annotext, 2, function(x) max(nchar(x))) } else { width <- .expand1(width, ncol(annotext)) if (length(width) != ncol(annotext)) stop(mstyle$stop(paste0("Length of the 'width' argument (", length(width), ") does not the match number of annotation columns (", ncol(annotext), ")."))) } for (j in seq_len(ncol(annotext))) { annotext[,j] <- formatC(annotext[,j], width=width[j]) } annotext <- cbind(annotext[,1], annosym[1], annotext[,2], annosym[2], annotext[,3], annosym[3]) annotext <- apply(annotext, 1, paste, collapse="") annotext[grepl("NA", annotext, fixed=TRUE)] <- "" annotext <- gsub("-", annosym[4], annotext, fixed=TRUE) # [a] annotext <- gsub(" ", annosym[5], annotext, fixed=TRUE) par(family=names(fonts)[2], font=fonts[2]) ltext(textpos[2], rows+rowadj[2], labels=annotext, pos=2, cex=cex, col=col, ...) par(family=names(fonts)[1], font=fonts[1]) } else { width <- NULL } ### add yi points for (i in seq_len(k)) { ### need to skip missings (if check below will otherwise throw an error) if (is.na(yi[i])) next if (yi[i] >= alim[1] && yi[i] <= alim[2]) lpoints(x=yi[i], y=rows[i], pch=pch[i], cex=cex*psize[i], col=col[i], ...) } ### add header ltext(textpos[1], ylim[2]-(top-1)+1+rowadj[1], header.left, pos=4, font=2, cex=cex, ...) ltext(textpos[2], ylim[2]-(top-1)+1+rowadj[2], header.right, pos=2, font=2, cex=cex, ...) ######################################################################### ### return some information about plot invisibly res <- list(xlim=par("usr")[1:2], alim=alim, at=at, ylim=ylim, rows=rows, cex=cex, cex.lab=cex.lab, cex.axis=cex.axis, ilab.xpos=ilab.xpos, ilab.pos=ilab.pos, textpos=textpos) ### put some additional stuff into .metafor, so that it can be used by addpoly() sav <- c(res, list(level=level, annotate=annotate, digits=digits[[1]], width=width, transf=transf, atransf=atransf, targs=targs, alim=alim, olim=olim, rowadj=rowadj, fonts=fonts[1:2], annosym=annosym)) try(assign("forest", sav, envir=.metafor), silent=TRUE) invisible(res) } metafor/R/to.table.r0000644000176200001440000011513715120213572014011 0ustar liggesusersto.table <- function(measure, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, sdi, ni, data, slab, subset, add=1/2, to="none", drop00=FALSE, rows, cols) { mstyle <- .get.mstyle() ### check argument specifications if (missing(measure)) stop(mstyle$stop("Must specify an effect size or outcome measure via the 'measure' argument.")) if (!is.character(measure)) stop(mstyle$stop("The 'measure' argument must be a character string.")) if (!is.element(measure, c("RR","OR","PETO","RD","AS","PHI","YUQ","YUY","RTET", # 2x2 table measures "PBIT","OR2D","OR2DN","OR2DL", # - transformations to SMD "MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM", # - measures for matched pairs data "IRR","IRD","IRSD", # two-group person-time data measures "MD","SMD","SMDH","ROM", # two-group mean/SD measures "VR","CVR", # variability ratio, coefficient of variation ratio "RPB","RBIS","D2OR","D2ORN","D2ORL", # - transformations to r_PB, r_BIS, and log(OR) "COR","UCOR","ZCOR", # correlations (raw and r-to-z transformed) "PCOR","ZPCOR","SPCOR", # partial and semi-partial correlations "R2","ZR2","R2F","ZR2F", # coefficient of determination (raw and r-to-z transformed) "PR","PLN","PLO","PRZ","PAS","PFT", # single proportions (and transformations thereof) "IR","IRLN","IRS","IRFT", # single-group person-time data (and transformations thereof) "MN","SMN","MNLN","SDLN","CVLN", # mean, single-group standardized mean, log(mean), log(SD), log(CV) "MC","SMCC","SMCR","SMCRH","ROMC","VRC","CVRC", # raw/standardized mean change, log(ROM), VR, and CVR for dependent samples "ARAW","AHW","ABT"))) # alpha (and transformations thereof) stop(mstyle$stop("Unknown 'measure' specified.")) if (is.element(measure, c("VR","CVR","PCOR","ZPCOR","SPCOR","R2","ZR2","R2F","ZR2F","SDLN","CVLN","VRC"))) stop(mstyle$stop("Function not available for this outcome measure.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (!is.character(to) || length(to) != 1 || is.na(to) || !is.element(to, c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() ### get slab and subset arguments (will be NULL when unspecified) slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) ######################################################################### ######################################################################### ######################################################################### if (is.element(measure, c("RR","OR","RD","AS","PETO","PHI","YUQ","YUY","RTET","PBIT","OR2D","OR2DN","OR2DL","MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ai, bi, ci, di, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) n1i.inc <- n1i != ai + bi n2i.inc <- n2i != ci + di if (any(n1i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n1i' values are not equal to 'ai + bi'.")) if (any(n2i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n2i' values are not equal to 'ci + di'.")) bi <- replmiss(bi, n1i-ai) di <- replmiss(di, n2i-ci) if (!.all.specified(ai, bi, ci, di)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, bi, ci, di or ai, n1i, ci, n2i).")) k <- length(ai) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) } n1i <- ai + bi n2i <- ci + di if (any(c(ai > n1i, ci > n2i), na.rm=TRUE)) stop(mstyle$stop("One or more event counts are larger than the corresponding group sizes.")) if (any(c(ai, bi, ci, di) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(c(n1i < 0, n2i < 0), na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are negative.")) ni.u <- ai + bi + ci + di # unadjusted total sample sizes ### if drop00=TRUE, set counts to NA for studies that have no events (or all events) in both arms if (drop00) { id00 <- c(ai == 0L & ci == 0L) | c(bi == 0L & di == 0L) id00[is.na(id00)] <- FALSE ai[id00] <- NA_real_ bi[id00] <- NA_real_ ci[id00] <- NA_real_ di[id00] <- NA_real_ } if (to == "all") { ### always add to all cells in all studies ai <- ai + add ci <- ci + add bi <- bi + add di <- di + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(ai == 0L | ci == 0L | bi == 0L | di == 0L) id0[is.na(id0)] <- FALSE ai[id0] <- ai[id0] + add ci[id0] <- ci[id0] + add bi[id0] <- bi[id0] + add di[id0] <- di[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(ai == 0L | ci == 0L | bi == 0L | di == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { ai <- ai + add ci <- ci + add bi <- bi + add di <- di + add } } } ######################################################################### if (is.element(measure, c("IRR","IRD","IRSD"))) { x1i <- .getx("x1i", mf=mf, data=data, checknumeric=TRUE) x2i <- .getx("x2i", mf=mf, data=data, checknumeric=TRUE) t1i <- .getx("t1i", mf=mf, data=data, checknumeric=TRUE) t2i <- .getx("t2i", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(x1i, x2i, t1i, t2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., x1i, x2i, t1i, t2i).")) if (!.equal.length(x1i, x2i, t1i, t2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(x1i) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) x1i <- .getsubset(x1i, subset) x2i <- .getsubset(x2i, subset) t1i <- .getsubset(t1i, subset) t2i <- .getsubset(t2i, subset) } if (any(c(x1i, x2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(c(t1i, t2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more person-times are <= 0.")) ni.u <- t1i + t2i # unadjusted total sample sizes ### if drop00=TRUE, set counts to NA for studies that have no events in both arms if (drop00) { id00 <- c(x1i == 0L & x2i == 0L) id00[is.na(id00)] <- FALSE x1i[id00] <- NA_real_ x2i[id00] <- NA_real_ } if (to == "all") { ### always add to all cells in all studies x1i <- x1i + add x2i <- x2i + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(x1i == 0L | x2i == 0L) id0[is.na(id0)] <- FALSE x1i[id0] <- x1i[id0] + add x2i[id0] <- x2i[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(x1i == 0L | x2i == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { x1i <- x1i + add x2i <- x2i + add } } } ######################################################################### if (is.element(measure, c("MD","SMD","SMDH","ROM","RPB","RBIS","D2OR","D2ORN","D2ORL"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(m1i, m2i, sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, n1i, n2i).")) if (!.equal.length(m1i, m2i, sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(n1i) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) } if (any(c(sd1i, sd2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) if (any(c(n1i, n2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) ni.u <- n1i + n2i # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("COR","UCOR","ZCOR"))) { ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ri, ni, ti)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ri <- replmiss(ri, ti / sqrt(ni - 2 + ti^2)) if (!.all.specified(ri, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ri, ni).")) k <- length(ri) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) ri <- .getsubset(ri, subset) ni <- .getsubset(ni, subset) } if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("PR","PLN","PLO","PRZ","PAS","PFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(xi, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ni.inc <- ni != xi + mi if (any(ni.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'ni' values are not equal to 'xi + mi'.")) mi <- replmiss(mi, ni-xi) if (!.all.specified(xi, mi)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., xi, mi or xi, ni).")) k <- length(xi) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) mi <- .getsubset(mi, subset) } ni <- xi + mi if (any(xi > ni, na.rm=TRUE)) stop(mstyle$stop("One or more event counts are larger than the corresponding group sizes.")) if (any(c(xi, mi) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes if (to == "all") { ### always add to all cells in all studies xi <- xi + add mi <- mi + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(xi == 0L | mi == 0L) id0[is.na(id0)] <- FALSE xi[id0] <- xi[id0] + add mi[id0] <- mi[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(xi == 0L | mi == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { xi <- xi + add mi <- mi + add } } } ######################################################################### if (is.element(measure, c("IR","IRLN","IRS","IRFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(xi, ti)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., xi, ti).")) if (!.equal.length(xi, ti)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(xi) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) ti <- .getsubset(ti, subset) } if (any(xi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(ti <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more person-times are <= 0.")) ni.u <- ti # unadjusted total sample sizes if (to == "all") { ### always add to all cells in all studies xi <- xi + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(xi == 0L) id0[is.na(id0)] <- FALSE xi[id0] <- xi[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(xi == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { xi <- xi + add } } } ######################################################################### if (is.element(measure, c("MN","SMN","MNLN"))) { mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) sdi <- .getx("sdi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(mi, sdi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., mi, sdi, ni).")) if (!.equal.length(mi, sdi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(ni) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) mi <- .getsubset(mi, subset) sdi <- .getsubset(sdi, subset) ni <- .getsubset(ni, subset) } if (any(sdi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) if (is.element(measure, c("MNLN","CVLN")) && any(mi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more means are negative.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("MC","SMCC","SMCR","SMCRH","ROMC","CVRC"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) # for SMCR, do not need to supply this ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) k <- length(m1i) # number of outcomes before subsetting if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { if (!.all.specified(m1i, m2i, sd1i, sd2i, ni, ri)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, ni, ri).")) if (!.equal.length(m1i, m2i, sd1i, sd2i, ni, ri)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } else { if (!.all.specified(m1i, m2i, sd1i, ni, ri)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, ni, ri).")) if (!.equal.length(m1i, m2i, sd1i, ni, ri)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } if (!is.null(subset)) { subset <- .chksubset(subset, k) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) ni <- .getsubset(ni, subset) ri <- .getsubset(ri, subset) } if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { if (any(c(sd1i, sd2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) } else { if (any(sd1i < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) } if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("ARAW","AHW","ABT"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(ai, mi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, mi, ni).")) if (!.equal.length(ai, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(ai) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) } if (any(ai > 1, na.rm=TRUE)) stop(mstyle$stop("One or more alpha values are > 1.")) if (any(mi < 2, na.rm=TRUE)) stop(mstyle$stop("One or more mi values are < 2.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### ######################################################################### ######################################################################### ### generate study labels if none are specified if (is.null(slab)) { slab <- seq_len(k) } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) if (is.factor(slab)) slab <- as.character(slab) } ### if a subset of studies is specified if (!is.null(subset)) slab <- .getsubset(slab, subset) ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) ######################################################################### ######################################################################### ######################################################################### if (is.element(measure, c("RR","OR","RD","AS","PETO","PHI","YUQ","YUY","RTET","PBIT","OR2D","OR2DN","OR2DL","MPORM"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp1", "Grp2") } else { if (length(rows) != 2L) stop(mstyle$stop("Group names not of length 2.")) } if (missing(cols)) { cols <- c("Out1", "Out2") } else { if (length(cols) != 2L) stop(mstyle$stop("Outcome names not of length 2.")) } dat <- array(NA_real_, dim=c(2,2,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- rbind(c(ai[i],bi[i]), c(ci[i],di[i])) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("MPRD","MPRR","MPOR"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Time1", "Time2") } else { if (length(rows) != 2L) stop(mstyle$stop("Time names not of length 2.")) } if (missing(cols)) { cols <- c("Out1", "Out2") } else { if (length(cols) != 2L) stop(mstyle$stop("Outcome names not of length 2.")) } dat <- array(NA_real_, dim=c(2,2,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- rbind(c(ai[i]+bi[i],ci[i]+di[i]), c(ai[i]+ci[i],bi[i]+di[i])) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("MPORC","MPPETO"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Time1.Out1", "Time1.Out2") } else { if (length(rows) != 2L) stop(mstyle$stop("Time1 names not of length 2.")) } if (missing(cols)) { cols <- c("Time2.Out1", "Time2.Out2") } else { if (length(cols) != 2L) stop(mstyle$stop("Time2 names not of length 2.")) } dat <- array(NA_real_, dim=c(2,2,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- rbind(c(ai[i],bi[i]), c(ci[i],di[i])) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("IRR","IRD","IRSD"))) { ### check for NAs in table data and act accordingly has.na <- is.na(x1i) | is.na(x2i) | is.na(t1i) | is.na(t2i) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { x1i <- x1i[not.na] x2i <- x2i[not.na] t1i <- t1i[not.na] t2i <- t2i[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(x1i) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp1", "Grp2") } else { if (length(rows) != 2L) stop(mstyle$stop("Group names not of length 2.")) } if (missing(cols)) { cols <- c("Events", "Person-Time") } else { if (length(cols) != 2L) stop(mstyle$stop("Outcome names not of length 2.")) } dat <- array(NA_real_, dim=c(2,2,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- rbind(c(x1i[i],t1i[i]), c(x2i[i],t2i[i])) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("MD","SMD","SMDH","ROM","RPB","RBIS","D2OR","D2ORN","D2ORL"))) { ### check for NAs in table data and act accordingly has.na <- is.na(m1i) | is.na(m2i) | is.na(sd1i) | is.na(sd2i) | is.na(n1i) | is.na(n2i) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { m1i <- m1i[not.na] m2i <- m2i[not.na] sd1i <- sd1i[not.na] sd2i <- sd2i[not.na] n1i <- n1i[not.na] n2i <- n2i[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(m1i) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp1", "Grp2") } else { if (length(rows) != 2L) stop(mstyle$stop("Group names not of length 2.")) } if (missing(cols)) { cols <- c("Mean", "SD", "n") } else { if (length(cols) != 3L) stop(mstyle$stop("Outcome names not of length 3.")) } dat <- array(NA_real_, dim=c(2,3,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- rbind(c(m1i[i],sd1i[i],n1i[i]), c(m2i[i],sd2i[i],n2i[i])) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("COR","UCOR","ZCOR"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ri) | is.na(ni) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ri <- ri[not.na] ni <- ni[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ri) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp") } else { if (length(rows) != 1L) stop(mstyle$stop("Group names not of length 1.")) } if (missing(cols)) { cols <- c("r", "n") } else { if (length(cols) != 2L) stop(mstyle$stop("Outcome names not of length 2.")) } dat <- array(NA_real_, dim=c(1,2,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- c(ri[i],ni[i]) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("PR","PLN","PLO","PRZ","PAS","PFT"))) { ### check for NAs in table data and act accordingly has.na <- is.na(xi) | is.na(mi) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { xi <- xi[not.na] mi <- mi[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(xi) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp") } else { if (length(rows) != 1L) stop(mstyle$stop("Group names not of length 1.")) } if (missing(cols)) { cols <- c("Out1", "Out2") } else { if (length(cols) != 2L) stop(mstyle$stop("Outcome names not of length 2.")) } dat <- array(NA_real_, dim=c(1,2,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- c(xi[i],mi[i]) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("IR","IRLN","IRS","IRFT"))) { ### check for NAs in table data and act accordingly has.na <- is.na(xi) | is.na(ti) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { xi <- xi[not.na] ti <- ti[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(xi) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp") } else { if (length(rows) != 1L) stop(mstyle$stop("Group names not of length 1.")) } if (missing(cols)) { cols <- c("Events", "Person-Time") } else { if (length(cols) != 2L) stop(mstyle$stop("Outcome names not of length 2.")) } dat <- array(NA_real_, dim=c(1,2,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- c(xi[i],ti[i]) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("MN","SMN","MNLN"))) { ### check for NAs in table data and act accordingly has.na <- is.na(mi) | is.na(sdi) | is.na(ni) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { mi <- mi[not.na] sdi <- sdi[not.na] ni <- ni[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ni) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp") } else { if (length(rows) != 1L) stop(mstyle$stop("Group names not of length 1.")) } if (missing(cols)) { cols <- c("Mean", "SD", "n") } else { if (length(cols) != 3L) stop(mstyle$stop("Outcome names not of length 3.")) } dat <- array(NA_real_, dim=c(1,3,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- c(mi[i],sdi[i],ni[i]) dat[,,i] <- tab.i } } ######################################################################### if (is.element(measure, c("MC","SMCC","SMCR","SMCRH","ROMC","CVRC"))) { ### check for NAs in table data and act accordingly if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { has.na <- is.na(m1i) | is.na(m2i) | is.na(sd1i) | is.na(sd2i) | is.na(ni) | is.na(ri) } else { has.na <- is.na(m1i) | is.na(m2i) | is.na(sd1i) | is.na(ni) | is.na(ri) } if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { m1i <- m1i[not.na] m2i <- m2i[not.na] sd1i <- sd1i[not.na] if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) sd2i <- sd2i[not.na] ni <- ni[not.na] ri <- ri[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(m1i) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp") } else { if (length(rows) != 1L) stop(mstyle$stop("Group names not of length 1.")) } if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { if (missing(cols)) { cols <- c("Mean1", "Mean2", "SD1", "SD2", "n", "r") } else { if (length(cols) != 6L) stop(mstyle$stop("Outcome names not of length 6.")) } } else { if (missing(cols)) { cols <- c("Mean1", "Mean2", "SD1", "n", "r") } else { if (length(cols) != 5L) stop(mstyle$stop("Outcome names not of length 5.")) } } if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { dat <- array(NA_real_, dim=c(1,6,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- c(m1i[i],m2i[i],sd1i[i],sd2i[i],ni[i],ri[i]) dat[,,i] <- tab.i } } else { dat <- array(NA_real_, dim=c(1,5,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- c(m1i[i],m2i[i],sd1i[i],ni[i],ri[i]) dat[,,i] <- tab.i } } } ######################################################################### if (is.element(measure, c("ARAW","AHW","ABT"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(mi) | is.na(ni) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] mi <- mi[not.na] ni <- ni[not.na] slab <- slab[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### row/group and column/outcome names if (missing(rows)) { rows <- c("Grp") } else { if (length(rows) != 1L) stop(mstyle$stop("Group names not of length 1.")) } if (missing(cols)) { cols <- c("alpha", "m", "n") } else { if (length(cols) != 3L) stop(mstyle$stop("Outcome names not of length 3.")) } dat <- array(NA_real_, dim=c(1,3,k), dimnames=list(rows, cols, slab)) for (i in seq_len(k)) { tab.i <- c(ai[i],mi[i],ni[i]) dat[,,i] <- tab.i } } ######################################################################### return(dat) } metafor/R/hc.r0000644000176200001440000000005715120213572012665 0ustar liggesusershc <- function(object, ...) UseMethod("hc") metafor/R/robust.rma.uni.r0000644000176200001440000002450115120213572015161 0ustar liggesusersrobust.rma.uni <- function(x, cluster, adjust=TRUE, clubSandwich=FALSE, digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("rma.ls", "rma.gen", "rma.uni.selmodel")) if (is.null(x$yi) || is.null(x$X)) stop(mstyle$stop("Information needed for the method is not available in the model object.")) if (missing(cluster)) stop(mstyle$stop("Must specify the 'cluster' variable.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } level <- .level(x$level) ddd <- list(...) .chkdots(ddd, c("vcov", "coef_test", "conf_test", "wald_test", "verbose")) ######################################################################### ### process cluster variable ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster <- cluster[x$not.na] if (anyNA(cluster)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster) == 0L) stop(mstyle$stop("Cannot find 'cluster' variable (or it has zero length).")) ### number of clusters n <- length(unique(cluster)) ### compute degrees of freedom ### note: Stata with vce(robust) also uses n-p as the dfs, but with vce(cluster ) always uses n-1 (which seems inconsistent) dfs <- n - x$p ### check if dfs are positive (note: this also handles the case where there is a single cluster) if (!clubSandwich && dfs <= 0) stop(mstyle$stop(paste0("Number of clusters (", n, ") must be larger than the number of fixed effects (", x$p, ")."))) ### use clubSandwich if requested to do so if (clubSandwich) { if (!suppressMessages(requireNamespace("clubSandwich", quietly=TRUE))) stop(mstyle$stop("Please install the 'clubSandwich' package to make use of its methods.")) ### check for vcov, coef_test, conf_test, and wald_test arguments in ... and set values accordingly ddd$vcov <- .chkddd(ddd$vcov, "CR2", match.arg(ddd$vcov, c("CR0", "CR1", "CR1p", "CR1S", "CR2", "CR3"))) ddd$coef_test <- .chkddd(ddd$coef_test, "Satterthwaite", match.arg(ddd$coef_test, c("z", "naive-t", "naive-tp", "Satterthwaite", "saddlepoint"))) if (is.null(ddd$conf_test)) { ddd$conf_test <- ddd$coef_test if (ddd$conf_test == "saddlepoint") { ddd$conf_test <- "Satterthwaite" warning(mstyle$warning("Cannot use 'saddlepoint' for conf_test() - using 'Satterthwaite' instead."), call.=FALSE) } } else { ddd$conf_test <- match.arg(ddd$conf_test, c("z", "naive-t", "naive-tp", "Satterthwaite")) } ddd$wald_test <- .chkddd(ddd$wald_test, "HTZ", match.arg(ddd$wald_test, c("chi-sq", "Naive-F", "Naive-Fp", "HTA", "HTB", "HTZ", "EDF", "EDT"))) ### calculate cluster-robust var-cov matrix of the estimated fixed effects vb <- try(clubSandwich::vcovCR(x, cluster=cluster, type=ddd$vcov), silent=!isTRUE(ddd$verbose)) if (inherits(vb, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust variance-covariance matrix (use verbose=TRUE for more details).")) #meat <- try(clubSandwich::vcovCR(x, cluster=cluster, type=ddd$vcov, form="estfun"), silent=!isTRUE(ddd$verbose)) meat <- NA_real_ ### obtain cluster-robust inferences cs.coef <- try(clubSandwich::coef_test(x, cluster=cluster, vcov=vb, test=ddd$coef_test, p_values=TRUE), silent=!isTRUE(ddd$verbose)) if (inherits(cs.coef, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust tests (use verbose=TRUE for more details).")) cs.conf <- try(clubSandwich::conf_int(x, cluster=cluster, vcov=vb, test=ddd$conf_test, level=1-level), silent=!isTRUE(ddd$verbose)) if (inherits(cs.conf, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust confidence intervals (use verbose=TRUE for more details).")) if (x$int.only) { cs.wald <- NA_real_ } else { cs.wald <- try(clubSandwich::Wald_test(x, cluster=cluster, vcov=vb, test=ddd$wald_test, constraints=clubSandwich::constrain_zero(x$btt)), silent=!isTRUE(ddd$verbose)) if (inherits(cs.wald, "try-error")) { warning(mstyle$warning("Could not obtain the cluster-robust omnibus Wald test (use verbose=TRUE for more details)."), call.=FALSE) cs.wald <- list(Fstat=NA_real_, df_num=NA_integer_, df_denom=NA_real_) } } #return(list(coef_test=cs.coef, conf_int=cs.conf, Wald_test=cs.wald)) vbest <- ddd$vcov beta <- x$beta se <- cs.coef$SE zval <- ifelse(is.infinite(cs.coef$tstat), NA_real_, cs.coef$tstat) pval <- switch(ddd$coef_test, "z" = cs.coef$p_z, "naive-t" = cs.coef$p_t, "naive-tp" = cs.coef$p_tp, "Satterthwaite" = cs.coef$p_Satt, "saddlepoint" = cs.coef$p_saddle) dfs <- switch(ddd$coef_test, "z" = cs.coef$df_z, "naive-t" = cs.coef$df_t, "naive-tp" = cs.coef$df_tp, "Satterthwaite" = cs.coef$df, "saddlepoint" = NA_real_) dfs <- ifelse(is.na(dfs), NA_real_, dfs) # ifelse() part to change NaN into just NA ci.lb <- ifelse(is.na(cs.conf$CI_L), NA_real_, cs.conf$CI_L) # note: if ddd$coef_test != ddd$conf_test, dfs for CI may be different ci.ub <- ifelse(is.na(cs.conf$CI_U), NA_real_, cs.conf$CI_U) if (x$int.only) { QM <- max(0, zval^2) QMdf <- c(1, dfs) QMp <- pval } else { QM <- max(0, cs.wald$Fstat) QMdf <- c(cs.wald$df_num, max(0, cs.wald$df_denom)) QMp <- cs.wald$p_val } x$sandwiches <- list(coef_test=cs.coef, conf_int=cs.conf, Wald_test=cs.wald) x$coef_test <- ddd$coef_test x$conf_test <- ddd$conf_test x$wald_test <- ddd$wald_test cluster.o <- cluster } else { ### note: since we use split() below and then put things back together into a block-diagonal matrix, ### we have to make sure everything is properly ordered by the cluster variable; otherwise, the 'meat' ### block-diagonal matrix is not in the same order as the rest; so we sort all relevant variables by ### the cluster variable (including the cluster variable itself) ocl <- order(cluster) cluster.o <- cluster[ocl] ### construct bread = (X'WX)^-1 X'W, where W is the weight matrix if (x$weighted) { ### for weighted analysis if (is.null(x$weights)) { ### if no weights were specified, then vb = (X'WX)^-1, so we can use that part wi <- 1/(x$vi + x$tau2) wi <- wi[ocl] W <- .diag(wi) bread <- x$vb %*% crossprod(x$X[ocl,], W) } else { ### if weights were specified, then vb cannot be used A <- .diag(x$weights[ocl]) stXAX <- .invcalc(X=x$X[ocl,], W=A, k=x$k) bread <- stXAX %*% crossprod(x$X[ocl,], A) } } else { ### for unweighted analysis stXX <- .invcalc(X=x$X[ocl,], W=diag(x$k), k=x$k) bread <- stXX %*% t(x$X[ocl,]) } ### construct meat part ei <- c(x$yi - x$X %*% x$beta) # use this instead of resid(), since this guarantees that the length is correct ei <- ei[ocl] cluster.o <- factor(cluster.o, levels=unique(cluster.o)) meat.o <- bldiag(lapply(split(ei, cluster.o), function(e) tcrossprod(e))) ### construct robust var-cov matrix vb <- bread %*% meat.o %*% t(bread) ### apply adjustments to vb as needed vbest <- "CR0" ### suggested in Hedges, Tipton, & Johnson (2010) -- analogous to HC1 adjustment if (isTRUE(adjust)) { vb <- (n / dfs) * vb vbest <- "CR1" } ### what Stata does if (is.character(adjust) && (adjust=="Stata" || adjust=="Stata1")) { vb <- (n / (n-1) * (x$k-1) / (x$k-x$p)) * vb # when the model was fitted with regress vbest <- "CR1.S1" } if (is.character(adjust) && adjust=="Stata2") { vb <- (n / (n-1)) * vb # when the model was fitted with mixed vbest <- "CR1.S2" } ### check for elements in vb that are essentially 0 is0 <- diag(vb) < 100 * .Machine$double.eps vb[is0,] <- NA_real_ vb[,is0] <- NA_real_ ### prepare results beta <- x$beta se <- sqrt(diag(vb)) names(se) <- NULL zval <- c(beta/se) pval <- 2*pt(abs(zval), df=dfs, lower.tail=FALSE) crit <- qt(level/2, df=dfs, lower.tail=FALSE) ci.lb <- c(beta - crit * se) ci.ub <- c(beta + crit * se) QM <- try(as.vector(t(beta)[x$btt] %*% chol2inv(chol(vb[x$btt,x$btt])) %*% beta[x$btt]), silent=TRUE) if (inherits(QM, "try-error") || is.na(QM)) { warning(mstyle$warning("Could not obtain the cluster-robust omnibus Wald test."), call.=FALSE) QM <- NA_real_ } QM <- QM / x$m # note: m is the number of coefficients in btt, not the number of clusters QMdf <- c(x$m, dfs) QMp <- pf(QM, df1=x$m, df2=dfs, lower.tail=FALSE) ### don't need this anymore at the moment meat <- matrix(NA_real_, nrow=nrow(meat.o), ncol=ncol(meat.o)) meat[ocl,ocl] <- meat.o } ######################################################################### ### table of cluster variable tcl <- table(cluster.o) x$digits <- digits ### replace elements with robust results x$ddf <- dfs x$dfs <- dfs x$vb <- vb x$se <- se x$zval <- zval x$pval <- pval x$ci.lb <- ci.lb x$ci.ub <- ci.ub x$QM <- QM x$QMdf <- QMdf x$QMp <- QMp x$n <- n x$tcl <- tcl x$test <- "t" x$vbest <- vbest x$s2w <- 1 # just in case test="knha" originally x$robumethod <- ifelse(clubSandwich, "clubSandwich", "default") x$cluster <- cluster x$meat <- meat class(x) <- c("robust.rma", "rma", "rma.uni") return(x) } metafor/R/rstudent.rma.uni.r0000644000176200001440000000021515120213572015507 0ustar liggesusersrstudent.rma.uni <- function(model, digits, progbar=FALSE, ...) influence(model, digits=digits, progbar=progbar, measure="rstudent", ...) metafor/R/escalc.r0000644000176200001440000034452715165172116013551 0ustar liggesusersescalc <- function(measure, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, fi, pi, sdi, r2i, ni, yi, vi, sei, data, slab, flip, subset, include, add=1/2, to="only0", drop00=FALSE, vtype="LS", correct=TRUE, var.names=c("yi","vi"), add.measure=FALSE, append=TRUE, replace=TRUE, digits, ...) { ### check argument specifications mstyle <- .get.mstyle() if (missing(measure) && missing(yi)) stop(mstyle$stop("Must specify an effect size or outcome measure via the 'measure' argument.")) if (!missing(yi) && missing(measure)) measure <- "GEN" if (!is.character(measure)) stop(mstyle$stop("The 'measure' argument must be a character string.")) if (!is.element(measure, c("RR","OR","PETO","RD","AS","PHI","ZPHI","YUQ","YUY","RTET","ZTET", # 2x2 table measures "PBIT","OR2D","OR2DN","OR2DL", # 2x2 table transformations to SMDs "MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM", # 2x2 table measures for matched pairs / pre-post data "IRR","IRD","IRSD", # two-group person-time data (incidence) measures "MD","SMD","SMDH","SMD1","SMD1H","ROM", # two-group mean/SD measures "VR","CVR", # variability ratio, coefficient of variation ratio "RPB","ZPB","RBIS","ZBIS","D2OR","D2ORN","D2ORL", # two-group mean/SD transformations to r_pb, r_bis, and log(OR) "COR","UCOR","ZCOR", # correlations (raw and r-to-z transformed) "PCOR","ZPCOR","SPCOR","ZSPCOR", # partial and semi-partial correlations "R2","ZR2","R2F","ZR2F", # coefficient of determination / R^2 (raw and r-to-z transformed) "PR","PLN","PLO","PRZ","PAS","PFT", # single proportions (and transformations thereof) "IR","IRLN","IRS","IRFT", # single-group person-time (incidence) data (and transformations thereof) "MN","SMN","MNLN","SDLN","CVLN", # mean, single-group standardized mean, log(mean), log(SD), log(CV) "MC","SMCC","SMCR","SMCRH","SMCRP","SMCRPH","CLESCN","AUCCN","ROMC","VRC","CVRC", # raw/standardized mean change, CLES/AUC, log(ROM), VR, and CVR for dependent samples "ARAW","AHW","ABT", # alpha (and transformations thereof) "REH","CLES","CLESN","AUC","AUCN", # relative excess heterozygosity, common language effect size / area under the curve "HR","HD", # hazard (rate) ratios and differences "GEN"))) stop(mstyle$stop("Unknown 'measure' specified.")) # when adding measures, remember to add measures to .setlab() if (!is.character(to) || length(to) != 1 || is.na(to) || !is.element(to, c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) if (!is.logical(drop00) || length(drop00) != 1L || is.na(drop00)) stop(mstyle$stop("Unknown 'drop00' argument specified.")) if (any(!is.element(vtype, c("UB","LS","LS2","LS3","HO","ST","CS","AV","AV2","AVHO","H0","H0a","H0b","MAX")), na.rm=TRUE)) # vtype can be an entire vector, so use any() and na.rm=TRUE stop(mstyle$stop("Unknown 'vtype' argument specified.")) if (add.measure) { if (length(var.names) == 2L) var.names <- c(var.names, "measure") if (length(var.names) != 3L) stop(mstyle$stop("Argument 'var.names' must be of length 2 or 3.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "','", var.names[3], "').")), call.=FALSE) } } else { if (length(var.names) == 3L) var.names <- var.names[1:2] if (length(var.names) != 2L) stop(mstyle$stop("Argument 'var.names' must be of length 2.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "').")), call.=FALSE) } } ### check if user is trying to use the 'formula interface' to escalc() ### note: if so, argument 'ai' may mistakenly be a formula, so check for that as well (further below) if (hasArg(formula) || hasArg(weights)) stop(mstyle$stop("The 'formula interface' to escalc() has been deprecated.")) ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("onlyo1", "addyi", "addvi")) ### set defaults or get 'onlyo1', 'addyi', and 'addvi' arguments onlyo1 <- .chkddd(ddd$onlyo1, FALSE, isTRUE(ddd$onlyo1)) addyi <- .chkddd(ddd$addyi, TRUE, isTRUE(ddd$addyi)) addvi <- .chkddd(ddd$addvi, TRUE, isTRUE(ddd$addvi)) ### set defaults for digits if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } ### check if the 'data' argument was specified if (missing(data)) data <- NULL ### need this at the end to check if append=TRUE can actually be done has.data <- !is.null(data) ### check if data argument has been specified if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() ### get slab, subset, and include arguments (NULL when unspecified) slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) include <- .getx("include", mf=mf, data=data) ### get yi (in case it has been specified) yi <- .getx("yi", mf=mf, data=data) ### get flip (NULL if not specified) flip <- .getx("flip", mf=mf, data=data) ### for certain measures, set 'add=0' by default unless the user explicitly set the 'add' argument addval <- mf[[match("add", names(mf))]] if (is.element(measure, c("AS","PHI","ZPHI","RTET","ZTET","IRSD","PAS","PFT","IRS","IRFT")) && is.null(addval)) add <- 0 ######################################################################### ######################################################################### ######################################################################### if (is.null(yi)) { if (is.element(measure, c("RR","OR","RD","AS","PETO","PHI","ZPHI","YUQ","YUY","RTET","ZTET","PBIT","OR2D","OR2DN","OR2DL","MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM"))) { mf.ai <- mf[[match("ai", names(mf))]] if (any("~" %in% as.character(mf.ai))) stop(mstyle$stop("The 'formula interface' to escalc() has been deprecated.")) ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ai, bi, ci, di, n1i, n2i, ri, pi)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) n1i.inc <- n1i != ai + bi n2i.inc <- n2i != ci + di if (any(n1i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n1i' values are not equal to 'ai + bi'.")) if (any(n2i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n2i' values are not equal to 'ci + di'.")) bi <- replmiss(bi, n1i-ai) di <- replmiss(di, n2i-ci) if (!.all.specified(ai, bi, ci, di)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, bi, ci, di or ai, n1i, ci, n2i).")) if (measure == "MPORM" && !(.all.specified(ri) || .all.specified(pi))) stop(mstyle$stop("Need to specify also argument 'ri' (and/or 'pi') for this measure.")) k.all <- length(ai) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) ri <- .getsubset(ri, subset) pi <- .getsubset(pi, subset) } n1i <- ai + bi n2i <- ci + di if (any(c(ai > n1i, ci > n2i), na.rm=TRUE)) stop(mstyle$stop("One or more event counts are larger than the corresponding group sizes.")) if (any(c(ai, bi, ci, di) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(c(n1i < 0, n2i < 0), na.rm=TRUE)) # note: in cross-sectional sampling, group sizes could be 0 stop(mstyle$stop("One or more group sizes are negative.")) if (measure == "MPORM" && !is.null(ri) && any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) if (measure == "MPORM" && !is.null(pi) && any(pi < 0 | pi > 1, na.rm=TRUE)) stop(mstyle$stop("One or more proportions are > 1 or < 0.")) ni.u <- ai + bi + ci + di # unadjusted total sample sizes if (measure == "MPORM") ni.u <- round(ni.u / 2) k <- length(ai) ### if drop00=TRUE, set counts to NA for studies that have no events (or all events) in both arms if (drop00) { id00 <- c(ai == 0L & ci == 0L) | c(bi == 0L & di == 0L) id00[is.na(id00)] <- FALSE ai[id00] <- NA_real_ bi[id00] <- NA_real_ ci[id00] <- NA_real_ di[id00] <- NA_real_ } ### save unadjusted counts ai.u <- ai bi.u <- bi ci.u <- ci di.u <- di n1i.u <- ai + bi n2i.u <- ci + di if (to == "all") { ### always add to all cells in all studies ai <- ai + add ci <- ci + add if (!onlyo1) { bi <- bi + add di <- di + add } } if (to == "only0" || to == "if0all") { #if (onlyo1) { # id0 <- c(ai == 0L | ci == 0L) #} else { id0 <- c(ai == 0L | ci == 0L | bi == 0L | di == 0L) #} id0[is.na(id0)] <- FALSE } if (to == "only0") { ### add to cells in studies with at least one 0 entry ai[id0] <- ai[id0] + add ci[id0] <- ci[id0] + add if (!onlyo1) { bi[id0] <- bi[id0] + add di[id0] <- di[id0] + add } } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry if (any(id0)) { ai <- ai + add ci <- ci + add if (!onlyo1) { bi <- bi + add di <- di + add } } } ### recompute group and total sample sizes (after add/to adjustment) n1i <- ai + bi n2i <- ci + di ni <- n1i + n2i # ni.u computed earlier is always the 'unadjusted' total sample size if (measure == "MPORM") ni <- round(ni / 2) ### compute proportions for the two groups (unadjusted and adjusted) p1i.u <- ai.u / n1i.u p2i.u <- ci.u / n2i.u p1i <- ai / n1i p2i <- ci / n2i ### compute sample size weighted averages of the proportions within groups (for vtype="AV") if (addvi) { mnwp1i <- .wmean(p1i, n1i, na.rm=TRUE) mnwp2i <- .wmean(p2i, n2i, na.rm=TRUE) } else { mnwp1i.u <- .wmean(p1i.u, n1i.u, na.rm=TRUE) mnwp2i.u <- .wmean(p2i.u, n2i.u, na.rm=TRUE) } if (addvi) { ppi <- (ai + ci) / (n1i + n2i) } else { ppi.u <- (ai.u + ci.u) / (n1i.u + n2i.u) } ### log risk ratios if (measure == "RR") { if (addyi) { yi <- log(p1i) - log(p2i) } else { yi <- log(p1i.u) - log(p2i.u) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","AV","H0")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") { if (addvi) { vi[i] <- 1/ai[i] - 1/n1i[i] + 1/ci[i] - 1/n2i[i] #vi[i] <- (1-p1i[i])/(p1i[i]*n1i[i]) + (1-p2i[i])/(p2i[i]*n2i[i]) # same } else { vi[i] <- 1/ai.u[i] - 1/n1i.u[i] + 1/ci.u[i] - 1/n2i.u[i] } } ### estimate assuming homogeneity (using the average proportions) if (vtype[i] == "AV") { if (addvi) { vi[i] <- (1-mnwp1i)/(mnwp1i*n1i[i]) + (1-mnwp2i)/(mnwp2i*n2i[i]) } else { vi[i] <- (1-mnwp1i.u)/(mnwp1i.u*n1i.u[i]) + (1-mnwp2i.u)/(mnwp2i.u*n2i.u[i]) } } ### estimate assuming H0: RR=1 if (vtype[i] == "H0") { if (addvi) { vi[i] <- (1-ppi[i]) / ppi[i] * (1/n1i[i] + 1/n2i[i]) } else { vi[i] <- (1-ppi.u[i]) / ppi.u[i] * (1/n1i.u[i] + 1/n2i.u[i]) } } } } ### log odds ratio if (is.element(measure, c("OR","OR2D","OR2DN","OR2DL","MPORM"))) { if (addyi) { yi <- log(p1i/(1-p1i)) - log(p2i/(1-p2i)) } else { yi <- log(p1i.u/(1-p1i.u)) - log(p2i.u/(1-p2i.u)) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","AV","H0")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") { if (addvi) { vi[i] <- 1/ai[i] + 1/bi[i] + 1/ci[i] + 1/di[i] #vi[i] <- 1/(p1i[i]*(1-p1i[i])*n1i[i]) + 1/(p2i[i]*(1-p2i[i])*n2i[i]) # same } else { vi[i] <- 1/ai.u[i] + 1/bi.u[i] + 1/ci.u[i] + 1/di.u[i] } } ### estimate assuming homogeneity (using the average proportions) if (vtype[i] == "AV") { if (addvi) { vi[i] <- 1/(mnwp1i*(1-mnwp1i)*n1i[i]) + 1/(mnwp2i*(1-mnwp2i)*n2i[i]) } else { vi[i] <- 1/(mnwp1i.u*(1-mnwp1i.u)*n1i[i]) + 1/(mnwp2i.u*(1-mnwp2i.u)*n2i[i]) } } ### estimate assuming H0: OR=1 if (vtype[i] == "H0") { if (addvi) { vi[i] <- 1 / (ppi[i]*(1-ppi[i])) * (1/n1i[i] + 1/n2i[i]) } else { vi[i] <- 1 / (ppi.u[i]*(1-ppi.u[i])) * (1/n1i.u[i] + 1/n2i.u[i]) } } } } ### risk difference if (measure == "RD") { if (addyi) { yi <- p1i - p2i } else { yi <- p1i.u - p2i.u } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("UB","LS","AV","H0")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'UB', 'LS', or 'AV'.")) for (i in seq_len(k)) { ### unbiased estimate of the sampling variance if (vtype[i] == "UB") { if (addvi) { vi[i] <- p1i[i]*(1-p1i[i])/(n1i[i]-1) + p2i[i]*(1-p2i[i])/(n2i[i]-1) } else { vi[i] <- p1i.u[i]*(1-p1i.u[i])/(n1i.u[i]-1) + p2i.u[i]*(1-p2i.u[i])/(n2i.u[i]-1) } } ### large sample approximation to the sampling variance if (vtype[i] == "LS") { if (addvi) { vi[i] <- p1i[i]*(1-p1i[i])/n1i[i] + p2i[i]*(1-p2i[i])/n2i[i] } else { vi[i] <- p1i.u[i]*(1-p1i.u[i])/n1i.u[i] + p2i.u[i]*(1-p2i.u[i])/n2i.u[i] } } ### estimate assuming homogeneity (using the average proportions) if (vtype[i] == "AV") { if (addvi) { vi[i] <- mnwp1i*(1-mnwp1i)/n1i[i] + mnwp2i*(1-mnwp2i)/n2i[i] } else { vi[i] <- mnwp1i.u*(1-mnwp1i.u)/n1i.u[i] + mnwp2i.u*(1-mnwp2i.u)/n2i.u[i] } } ### estimate assuming H0: RD=0 if (vtype[i] == "H0") { if (addvi) { vi[i] <- (1/n1i[i] + 1/n2i[i]) * ppi[i] * (1-ppi[i]) } else { vi[i] <- (1/n1i.u[i] + 1/n2i.u[i]) * ppi.u[i] * (1-ppi.u[i]) } } } } ### note: addyi and addvi only implemented for measures above ### log odds ratio (Peto's method) if (measure == "PETO") { xt <- ai + ci # frequency of outcome1 in both groups combined yt <- bi + di # frequency of outcome2 in both groups combined Ei <- xt * n1i / ni Vi <- xt * yt * (n1i/ni) * (n2i/ni) / (ni - 1) # 0 when xt = 0 or yt = 0 in a table yi <- (ai - Ei) / Vi # then yi and vi is Inf (set to NA at end) vi <- 1 / Vi } ### arcsine square root risk difference if (measure == "AS") { yi <- asin(sqrt(p1i)) - asin(sqrt(p2i)) vi <- 1/(4*n1i) + 1/(4*n2i) } ### phi coefficient if (is.element(measure, c("PHI","ZPHI"))) { yi <- (ai*di - bi*ci)/sqrt((ai+bi)*(ci+di)*(ai+ci)*(bi+di)) vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) q1i <- 1 - p1i q2i <- 1 - p2i pi1. <- (ai+bi) / ni pi2. <- (ci+di) / ni pi.1 <- (ai+ci) / ni pi.2 <- (bi+di) / ni if (!all(is.element(vtype, c("ST","CS","LS")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'ST', 'CS', or 'LS'.")) for (i in seq_len(k)) { ### estimate of the sampling variance for stratified sampling if (vtype[i] == "ST") { vi[i] <- ((n1i[i]+n2i[i])^2 * (4*n1i[i]^3*p1i[i]^2*p2i[i]*q1i[i]^2*q2i[i] + 4*n2i[i]^3*p1i[i]*p2i[i]^2*q1i[i]*q2i[i]^2 + n1i[i]*n2i[i]^2*p2i[i]*q2i[i]*(p2i[i]*q1i[i] + p1i[i]*q2i[i])*(p2i[i]*q1i[i] + p1i[i]*(4*q1i[i] + q2i[i])) + n1i[i]^2*n2i[i]*p1i[i]*q1i[i]*(p2i[i]*q1i[i] + p1i[i]*q2i[i])*(p1i[i]*q2i[i] + p2i[i]*(q1i[i] + 4*q2i[i])))) / (4*(ai[i]+ci[i])^3*(bi[i]+di[i])^3) } ### estimate of the sampling variance for cross-sectional/multinomial sampling if (vtype[i] == "CS" || vtype[i] == "LS") { vi[i] <- 1/ni[i] * (1 - yi[i]^2 + yi[i]*(1+1/2*yi[i]^2) * (pi1.[i]-pi2.[i])*(pi.1[i]-pi.2[i]) / sqrt(pi1.[i]*pi2.[i]*pi.1[i]*pi.2[i]) - 3/4 * yi[i]^2 * ((pi1.[i]-pi2.[i])^2/(pi1.[i]*pi2.[i]) + (pi.1[i]-pi.2[i])^2/(pi.1[i]*pi.2[i]))) # Yule, 1912, p.603 } } } ### Yule's Q if (measure == "YUQ") { yi <- (ai/bi) / (ci/di) yi <- (yi-1) / (yi+1) vi <- 1/4 * (1-yi^2)^2 * (1/ai + 1/bi + 1/ci + 1/di) # Yule, 1900, p.285; Yule, 1912, p.593 } ### Yule's Y if (measure == "YUY") { yi <- (ai/bi) / (ci/di) yi <- (sqrt(yi)-1) / (sqrt(yi)+1) vi <- 1/16 * (1-yi^2)^2 * (1/ai + 1/bi + 1/ci + 1/di) # Yule, 1912, p.593 } ### tetrachoric correlation if (is.element(measure, c("RTET","ZTET"))) { ### TODO: allow user to set control arguments for pmvnorm and optimizers ### upgrade warnings to errors (so that tables with no events or only events are skipped) #warn.before <- getOption("warn") #options(warn = 2) yi <- rep(NA_real_, k) vi <- rep(NA_real_, k) for (i in seq_len(k)) { if (is.na(ai[i]) || is.na(bi[i]) || is.na(ci[i]) || is.na(di[i])) next res <- .rtet(ai[i], bi[i], ci[i], di[i], maxcor=.9999) yi[i] <- res$yi vi[i] <- res$vi } #options(warn = warn.before) } ### r-to-z transformation for PHI and RTET (note: NOT a variance-stabilizing transformation for these measures) if (is.element(measure, c("ZPHI","ZTET"))) { vi <- vi / (1 - ifelse(yi^2 > 1, 1, yi^2))^2 yi <- transf.rtoz(yi) } ### probit transformation to SMD if (measure == "PBIT") { z1i <- qnorm(p1i) z2i <- qnorm(p2i) yi <- z1i - z2i vi <- 2*base::pi*p1i*(1-p1i)*exp(z1i^2)/n1i + 2*base::pi*p2i*(1-p2i)*exp(z2i^2)/n2i # Sanchez-Meca et al., 2003, equation 21; Rosenthal, 1994, handbook chapter } # seems to be right for stratified and cross-sectional/multinomial sampling # see code/probit_transformation directory ### log(OR) transformation to SMD based on logistic distribution if (is.element(measure, c("OR2D","OR2DL"))) { yi <- sqrt(3) / base::pi * yi vi <- 3 / base::pi^2 * vi } ### log(OR) transformation to SMD based on normal distribution (Cox & Snell method) if (measure == "OR2DN") { yi <- yi / 1.65 vi <- vi / 1.65^2 } ### matched pairs / pre-post 2x2 table measures if (is.element(measure, c("MPRD","MPRR","MPOR"))) { pi12 <- bi / ni pi21 <- ci / ni pi1. <- (ai+bi) / ni pi.1 <- (ai+ci) / ni } if (measure == "MPRD") { yi <- pi1. - pi.1 vi <- pi12*(1-pi12)/ni + 2*pi12*pi21/ni + pi21*(1-pi21)/ni } if (measure == "MPRR") { yi <- log(pi1.) - log(pi.1) vi <- (pi12 + pi21) / (ni * pi1. * pi.1) } if (measure == "MPOR") { yi <- log(pi1./(1-pi1.)) - log(pi.1/(1-pi.1)) vi <- (pi12*(1-pi12) + pi21*(1-pi21) + 2*pi12*pi21) / (ni * pi1.*(1-pi1.) * pi.1*(1-pi.1)) } if (measure == "MPORM") { ai.p <- pi * (ai.u+bi.u) bi.p <- ai.u - ai.p ci.p <- ci.u - ai.p di.p <- bi.u - ci.u + ai.p ri.p <- (ai.p*di.p - bi.p*ci.p) / sqrt((ai.p+bi.p)*(ci.p+di.p)*(ai.p+ci.p)*(bi.p+di.p)) ri.p[ri.p < -1 | ri.p > 1] <- NA_real_ ri <- replmiss(ri, ri.p) if (addvi) { si <- (ri * sqrt(ai * bi * ci * di) + (ai * bi)) / ni deltai <- ni^2 * (ni * si - ai * bi) / (ai * bi * ci * di) vi <- vi - 2*deltai / ni } else { si.u <- (ri * sqrt(ai.u * bi.u * ci.u * di.u) + (ai.u * bi.u)) / ni.u deltai.u <- ni.u^2 * (ni.u * si.u - ai.u * bi) / (ai.u * bi.u * ci.u * di.u) vi <- vi - 2*deltai.u / ni.u } } if (measure == "MPORC") { yi <- log(bi) - log(ci) vi <- 1/bi + 1/ci } if (measure == "MPPETO") { Ei <- (bi + ci) / 2 Vi <- (bi + ci) / 4 yi <- (bi - Ei) / Vi vi <- 1/Vi } ### Note: Could in principle also compute measures commonly used in diagnostic studies. ### But need to take the sampling method into consideration when computing vi (so need ### to give this some more thought). ### sensitivity #if (measure == "SENS") { # res <- escalc("PR", xi=ai, mi=ci, add=0, to="none", vtype=vtype) # yi <- res$yi # vi <- res$vi #} ### specificity #if (measure == "SPEC") { # res <- escalc("PR", xi=di, mi=bi, add=0, to="none", vtype=vtype) # yi <- res$yi # vi <- res$vi #} ### [...] } ###################################################################### if (is.element(measure, c("IRR","IRD","IRSD"))) { x1i <- .getx("x1i", mf=mf, data=data, checknumeric=TRUE) x2i <- .getx("x2i", mf=mf, data=data, checknumeric=TRUE) t1i <- .getx("t1i", mf=mf, data=data, checknumeric=TRUE) t2i <- .getx("t2i", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(x1i, x2i, t1i, t2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., x1i, x2i, t1i, t2i).")) if (!.equal.length(x1i, x2i, t1i, t2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k.all <- length(x1i) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) x1i <- .getsubset(x1i, subset) x2i <- .getsubset(x2i, subset) t1i <- .getsubset(t1i, subset) t2i <- .getsubset(t2i, subset) } if (any(c(x1i, x2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(c(t1i, t2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more person-times are <= 0.")) ni.u <- t1i + t2i # unadjusted total sample sizes k <- length(x1i) ### if drop00=TRUE, set counts to NA for studies that have no events in both arms if (drop00) { id00 <- c(x1i == 0L & x2i == 0L) id00[is.na(id00)] <- FALSE x1i[id00] <- NA_real_ x2i[id00] <- NA_real_ } ### save unadjusted counts x1i.u <- x1i x2i.u <- x2i if (to == "all") { ### always add to all cells in all studies x1i <- x1i + add x2i <- x2i + add } if (to == "only0" || to == "if0all") { id0 <- c(x1i == 0L | x2i == 0L) id0[is.na(id0)] <- FALSE } if (to == "only0") { ### add to cells in studies with at least one 0 entry x1i[id0] <- x1i[id0] + add x2i[id0] <- x2i[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry if (any(id0)) { x1i <- x1i + add x2i <- x2i + add } } ### compute rates for the two groups (unadjusted and adjusted) ### t1i and t2i are the total person-times in the 1st and 2nd group ir1i.u <- x1i.u/t1i ir2i.u <- x2i.u/t2i ir1i <- x1i/t1i ir2i <- x2i/t2i ### log incidence rate ratio if (measure == "IRR") { if (addyi) { yi <- log(ir1i) - log(ir2i) } else { yi <- log(ir1i.u) - log(ir2i.u) } if (addvi) { vi <- 1/x1i + 1/x2i #vi <- 1/(x1i+1/2) + 1/(x2i+1/2) } else { vi <- 1/x1i.u + 1/x2i.u } } ### incidence rate difference if (measure == "IRD") { if (addyi) { yi <- ir1i - ir2i } else { yi <- ir1i.u - ir2i.u } if (addvi) { vi <- ir1i/t1i + ir2i/t2i # same as x1i/t1i^2 + x2i/t2i^2 } else { vi <- ir1i.u/t1i + ir2i.u/t2i # same as x1i.u/t1i^2 + x2i.u/t2i^2 } } ### square root transformed incidence rate difference if (measure == "IRSD") { if (addyi) { yi <- sqrt(ir1i) - sqrt(ir2i) } else { yi <- sqrt(ir1i.u) - sqrt(ir2i.u) } vi <- 1/(4*t1i) + 1/(4*t2i) } } ###################################################################### if (is.element(measure, c("MD","SMD","SMDH","SMD1","SMD1H","ROM","RPB","ZPB","RBIS","ZBIS","D2OR","D2ORN","D2ORL","VR","CVR"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) # for VR, do not need to supply this m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) # for VR, do not need to supply this sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) # for SMD1, do not need to supply this sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) # point-biserial correlation ### for these measures, need m1i, m2i, sd1i, sd2i, n1i, and n2i (and can also specify di/ti/pi/ri) if (is.element(measure, c("SMD","RPB","ZPB","RBIS","ZBIS","D2OR","D2ORN","D2ORL"))) { if (!.equal.length(m1i, m2i, sd1i, sd2i, n1i, n2i, di, ti, pi, ri)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ### convert pi to ti values ti <- replmiss(ti, .convp2t(pi, df=n1i+n2i-2)) ### convert ti to di values di <- replmiss(di, ti * sqrt(1/n1i + 1/n2i)) ### convert ri (point-biserial correlations) to di values mi <- n1i + n2i - 2 hi <- mi / n1i + mi / n2i di <- replmiss(di, sqrt(hi) * ri / sqrt(1 - ri^2)) ### when di is available, set m1i, m2i, sd1i, and sd2i values accordingly m1i[!is.na(di)] <- di[!is.na(di)] m2i[!is.na(di)] <- 0 sd1i[!is.na(di)] <- 1 sd2i[!is.na(di)] <- 1 if (!.all.specified(m1i, m2i, sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, n1i, n2i (and di, ti, pi)).")) } ### for these measures, need m1i, m2i, sd1i, sd2i, n1i, and n2i if (is.element(measure, c("MD","SMDH","SMD1H","ROM","CVR"))) { if (!.all.specified(m1i, m2i, sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, n1i, n2i).")) if (!.equal.length(m1i, m2i, sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } ### for this measure, need sd1i, sd2i, n1i, and n2i if (measure == "VR") { if (!.all.specified(sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., sd1i, sd2i, n1i, n2i).")) if (!.equal.length(sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } ### for this measure, need m1i, m2i, sd2i, n1i, and n2i if (measure == "SMD1") { if (!.all.specified(m1i, m2i, sd2i, n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd2i, n1i, n2i).")) if (!.equal.length(m1i, m2i, sd2i, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } k.all <- length(n1i) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) } if (any(c(sd1i, sd2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) if (any(c(n1i, n2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) ni.u <- n1i + n2i # unadjusted total sample sizes k <- length(n1i) ni <- ni.u if (is.element(measure, c("SMD1","SMD1H"))) { mi <- n2i - 1 sdpi <- sd2i npi <- n2i } else { mi <- ni - 2 sdpi <- sqrt(((n1i-1)*sd1i^2 + (n2i-1)*sd2i^2) / mi) npi <- ni } di <- (m1i - m2i) / sdpi ### (raw) mean difference if (measure == "MD") { yi <- m1i - m2i vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","UB","HO")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'UB', or 'HO'.")) for (i in seq_len(k)) { ### unbiased estimate of the sampling variance (does not assume homoscedasticity) if (vtype[i] == "UB" || vtype[i] == "LS") vi[i] <- sd1i[i]^2/n1i[i] + sd2i[i]^2/n2i[i] ### estimate assuming homoscedasticity of the variances within studies if (vtype[i] == "HO") vi[i] <- sdpi[i]^2 * (1/n1i[i] + 1/n2i[i]) } } ### standardized mean difference (with pooled SDs or just the SD of group 2) if (is.element(measure, c("SMD","SMD1"))) { ### apply bias-correction to di values cmi <- .cmicalc(mi, correct=correct) yi <- cmi * di vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) mnwyi <- .wmean(yi, ni, na.rm=TRUE) # sample size weighted average of yi's if (!all(is.element(vtype, c("LS","LS2","UB","AV","H0")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'LS2', 'UB', or 'H0'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- 1/n1i[i] + 1/n2i[i] + yi[i]^2/(2*npi[i]) # Hedges, 1982c, equation 8; Hedges & Olkin, 1985, equation 15; see [a] ### alternative large sample approximation to the sampling variance if (vtype[i] == "LS2") vi[i] <- cmi[i]^2 * (1/n1i[i] + 1/n2i[i] + di[i]^2/(2*npi[i])) # Borenstein, 2009, equation 12.17; analogous to LS2 for SMCC and SMCR; see [b] ### unbiased estimate of the sampling variance if (vtype[i] == "UB") vi[i] <- 1/n1i[i] + 1/n2i[i] + (1 - (mi[i]-2)/(mi[i]*cmi[i]^2)) * yi[i]^2 # Hedges, 1983b, equation 9; see [c] ### estimate assuming homogeneity (using the sample size weighted average of the yi's) if (vtype[i] == "AV") vi[i] <- 1/n1i[i] + 1/n2i[i] + mnwyi^2/(2*npi[i]) ### estimate assuming H0: theta=0 if (vtype[i] == "H0") vi[i] <- ifelse(mi[i] > 2, cmi[i]^2 * (1/n1i[i] + 1/n2i[i]) * mi[i] / (mi[i] - 2), NA_real_) } } ### standardized mean difference (with heteroscedastic SDs) if (measure == "SMDH") { cmi <- .cmicalc(mi, correct=correct) sdpi <- sqrt((sd1i^2 + sd2i^2)/2) di <- (m1i - m2i) / sdpi yi <- cmi * di vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2","LS3")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'LS2'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") { vi[i] <- yi[i]^2 * (sd1i[i]^4 / (n1i[i]-1) + sd2i[i]^4 / (n2i[i]-1)) / (8*sdpi[i]^4) + (sd1i[i]^2 / (n1i[i]-1) + sd2i[i]^2 / (n2i[i]-1)) / sdpi[i]^2 # Bonett, 2008a, equation 8; Bonett, 2009, equation 5 # note: Bonett (2008a) plugs the uncorrected yi into the equation for vi; here, the corrected value is plugged in for consistency with [a] #vi[i] <- cmi[i]^2 * vi[i] } ### alternative large sample approximation (replace n1i-1 and n2i-1 with n1i and n2i) if (vtype[i] == "LS2") { #vi[i] <- sd1i[i]^2 / (n1i[i] * sdpi[i]^2) + sd2i[i]^2 / (n2i[i] * sdpi[i]^2) + yi[i]^2 / (8 * sdpi[i]^4) * (sd1i[i]^4 / (n1i[i]-1) + sd2i[i]^4 / (n2i[i]-1)) # based on standard application of the delta method #vi[i] <- sd1i[i]^2 / ((n1i[i]-1) * sdpi[i]^2) + sd2i[i]^2 / ((n2i[i]-1) * sdpi[i]^2) + yi[i]^2 / (8 * sdpi[i]^4) * (sd1i[i]^4 / (n1i[i]-1) + sd2i[i]^4 / (n2i[i]-1)) # same as Bonett vi[i] <- sd1i[i]^2 / (n1i[i] * sdpi[i]^2) + sd2i[i]^2 / (n2i[i] * sdpi[i]^2) + yi[i]^2 / (8 * sdpi[i]^4) * (sd1i[i]^4 / n1i[i] + sd2i[i]^4 / n2i[i]) } ### alternative large sample approximation if (vtype[i] == "LS3") vi[i] <- sd1i[i]^2 / (n1i[i] * sdpi[i]^2) + sd2i[i]^2 / (n2i[i] * sdpi[i]^2) + yi[i]^2 / (8 * sdpi[i]^4) * (sd1i[i]^4 / (n1i[i]-1) + sd2i[i]^4 / (n2i[i]-1)) # based on standard application of the delta method } } ### standardized mean difference standardized by SD of group 2 (with heteroscedastic SDs) if (measure == "SMD1H") { cmi <- .cmicalc(mi, correct=correct) yi <- cmi * di vi <- (sd1i^2/sd2i^2)/(n1i-1) + 1/(n2i-1) + yi^2/(2*(n2i-1)) # Bonett, 2008a, equation 12 #vi <- cmi^2 * vi } ### ratio of means (response ratio) ### to use with pooled SDs, simply set sd1i = sd2i = sdpi or use vtype="HO" if (measure == "ROM") { if (correct) { yi <- log(m1i/m2i) + 1/2 * (sd1i^2/(n1i*m1i^2) - sd2i^2/(n2i*m2i^2)) # Lajeunesse, 2015, equation 8 } else { yi <- log(m1i/m2i) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) mn1wcvi <- .wmean(sd1i/m1i, n1i, na.rm=TRUE) # sample size weighted average of the coefficient of variation in group 1 mn2wcvi <- .wmean(sd2i/m2i, n2i, na.rm=TRUE) # sample size weighted average of the coefficient of variation in group 2 not.na <- !(is.na(n1i) | is.na(n2i) | is.na(sd1i/m1i) | is.na(sd2i/m2i)) mnwcvi <- (sum(n1i[not.na]*(sd1i/m1i)[not.na]) + sum(n2i[not.na]*(sd2i/m2i)[not.na])) / sum((n1i+n2i)[not.na]) # sample size weighted average of the two CV values if (!all(is.element(vtype, c("LS","HO","AV","AVHO","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'LS2', 'HO', 'AV', or 'AVHO'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance (does not assume homoscedasticity) if (vtype[i] == "LS") vi[i] <- sd1i[i]^2/(n1i[i]*m1i[i]^2) + sd2i[i]^2/(n2i[i]*m2i[i]^2) ### estimate assuming homoscedasticity of the two variances within studies if (vtype[i] == "HO") vi[i] <- sdpi[i]^2/(n1i[i]*m1i[i]^2) + sdpi[i]^2/(n2i[i]*m2i[i]^2) ### estimate using the weighted averages of the CV values if (vtype[i] == "AV") vi[i] <- mn1wcvi^2/n1i[i] + mn2wcvi^2/n2i[i] ### estimate using the weighted average of two weighted averages of the CV values if (vtype[i] == "AVHO") vi[i] <- mnwcvi^2 * (1/n1i[i] + 1/n2i[i]) ### based on the second-order Taylor expansion if (vtype[i] == "LS2") vi[i] <- sd1i[i]^2/(n1i[i]*m1i[i]^2) + sd2i[i]^2/(n2i[i]*m2i[i]^2) + sd1i[i]^4/(2*n1i[i]^2*m1i[i]^4) + sd2i[i]^4/(2*n2i[i]^2*m2i[i]^4) # Lajeunesse, 2015, equation 9 } } ### point-biserial correlation obtained from the standardized mean difference ### this is based on Tate's model where Y|X=0 and Y|X=1 are normally distributed (with the same variance) ### Das Gupta (1960) describes the case where Y itself is normal, but the variance expressions therein can ### really only be used in some special cases (not useful in practice) if (is.element(measure, c("RPB","ZPB"))) { hi <- mi/n1i + mi/n2i yi <- di / sqrt(di^2 + hi) vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("ST","CS","LS")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'ST', 'CS', or 'LS'.")) for (i in seq_len(k)) { ### estimate of the sampling variance for fixed n1i and n2i (i.e., stratified sampling) if (vtype[i] == "ST" || vtype[i] == "LS") { vi[i] <- hi[i]^2 / (hi[i] + di[i]^2)^3 * (1/n1i[i] + 1/n2i[i] + di[i]^2/(2*ni[i])) # this is consistent with escalc(measure="SMD", correct=FALSE) -> conv.delta(transf=transf.dtorpb) #tmp <- escalc(measure="SMD", m1i=m1i[i], sd1i=sd1i[i], n1i=n1i[i], m2i=m2i[i], sd2i=sd2i[i], n2i=n2i[i], correct=FALSE) #vi[i] <- conv.delta(yi, vi, data=tmp, transf=transf.dtorpb, replace=TRUE, n1i=n1i[i], n2i=n2i[i])$vi } ### estimate of the sampling variance for fixed ni but random n1i and n2i (i.e., cross-sectional/multinomial sampling) if (vtype[i] == "CS") vi[i] <- (1-yi[i]^2)^2 * (ni[i]*yi[i]^2 / (4*n1i[i]*n2i[i]) + (2-3*yi[i]^2)/(2*ni[i])) # Tate, 1954; Tate, 1955b } } ### biserial correlation obtained from the standardized mean difference (continued from above) if (is.element(measure, c("RBIS","ZBIS"))) { hi <- mi/n1i + mi/n2i yi <- di / sqrt(di^2 + hi) # point-biserial correlation p1i <- n1i / ni p2i <- n2i / ni zi <- qnorm(p1i, lower.tail=FALSE) fzi <- dnorm(zi) yi <- sqrt(p1i*p2i) / fzi * yi # yi on the right-hand side is the point-biserial correlation from above #vi <- (p1i*p2i) / fzi^2 * vi # vi is from RPB, but this is not correct (p1i, p2i, and fzi are random variables and vi from RBP is not correct for the bivariate normal case on which RBIS is based) yi.t <- ifelse(abs(yi) > 1, sign(yi), yi) vi <- 1/(ni-1) * (p1i*p2i/fzi^2 - (3/2 + (1 - p1i*zi/fzi)*(1 + p2i*zi/fzi)) * yi.t^2 + yi.t^4) # Soper, 1914 #vi <- 1/(ni-1) * (yi.t^4 + yi.t^2 * (p1i*p2i*zi^2/fzi^2 + (2*p1i-1)*zi/fzi - 5/2) + p1i*p2i/fzi^2) # Tate, 1955; equivalent to equation from Soper, 1914 # equation appears to work even if dichotomization is done based on a sample quantile value (so that p1i, p2i, and fzi are fixed by design) # this is asymptotically consistent with escalc(measure="SMD", correct=FALSE) -> conv.delta(transf=transf.dtorbis) #tmp <- escalc(measure="SMD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, correct=FALSE) #yi <- conv.delta(yi, vi, data=tmp, transf=transf.dtorbis, replace=TRUE, n1i=n1i, n2i=n2i)$yi #vi <- conv.delta(yi, vi, data=tmp, transf=transf.dtorbis, replace=TRUE, n1i=n1i, n2i=n2i)$vi } ### r-to-z transformation for RPB and RBIS (note: NOT a variance-stabilizing transformation for these measures) if (is.element(measure, c("ZPB","ZBIS"))) { vi <- vi / (1 - ifelse(yi^2 > 1, 1, yi^2))^2 yi <- transf.rtoz(yi) } ### SMD to log(OR) transformation based on logistic distribution if (is.element(measure, c("D2OR","D2ORL"))) { yi <- base::pi / sqrt(3) * di vi <- base::pi^2 / 3 * (1/n1i + 1/n2i + di^2/(2*ni)) } ### SMD to log(OR) transformation based on normal distribution (Cox & Snell method) if (measure == "D2ORN") { yi <- 1.65 * di vi <- 1.65^2 * (1/n1i + 1/n2i + di^2/(2*ni)) } ### variability ratio if (measure == "VR") { if (correct) { yi <- log(sd1i/sd2i) + 1/(2*(n1i-1)) - 1/(2*(n2i-1)) # Nakagawa et al., 2015, equation 9 / Senior et al., 2020, equation 5 } else { yi <- log(sd1i/sd2i) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'LS2'.")) for (i in seq_len(k)) { if (vtype[i] == "LS") vi[i] <- 1/(2*(n1i[i]-1)) + 1/(2*(n2i[i]-1)) if (vtype[i] == "LS2") vi[i] <- 1/2 * (n1i[i]/(n1i[i]-1)^2 + n2i[i]/(n2i[i]-1)^2) # Senior et al., 2020, equation 15 } } ### coefficient of variation ratio if (measure == "CVR") { if (correct) { yi <- log(sd1i/m1i) - log(sd2i/m2i) + 1/(2*(n1i-1)) - 1/(2*(n2i-1)) + 1/2 * (sd2i^2/(n2i*m2i^2) - sd1i^2/(n1i*m1i^2)) # Senior et al., 2020, equation 6 } else { yi <- log(sd1i/m1i) - log(sd2i/m2i) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'LS2'.")) for (i in seq_len(k)) { if (vtype[i] == "LS") vi[i] <- 1/(2*(n1i[i]-1)) + sd1i[i]^2/(n1i[i]*m1i[i]^2) + 1/(2*(n2i[i]-1)) + sd2i[i]^2/(n2i[i]*m2i[i]^2) # Nakagawa et al., 2015, equation 12, but without the '-2 rho ...' terms if (vtype[i] == "LS2") vi[i] <- sd1i[i]^2/(n1i[i]*m1i[i]^2) + sd2i[i]^2/(n2i[i]*m2i[i]^2) + sd1i[i]^4/(2*n1i[i]^2*m1i[i]^4) + sd2i[i]^4/(2*n2i[i]^2*m2i[i]^4) + 1/2 * (n1i[i]/(n1i[i]-1)^2 + n2i[i]/(n2i[i]-1)^2) # Senior et al., 2020, equation 16 } } } ###################################################################### if (is.element(measure, c("CLES","AUC"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(ai, n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, n1i, n2i).")) if (!.equal.length(ai, n1i, n2i, mi)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) if (is.null(mi)) mi <- rep(0, length(ai)) mi[is.na(mi)] <- 0 k.all <- length(ai) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) ai <- .getsubset(ai, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) mi <- .getsubset(mi, subset) } if (any(c(n1i, n2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) if (any(ai < 0, na.rm=TRUE) || any(ai > 1, na.rm=TRUE)) stop(mstyle$stop("One or more AUC values are < 0 or > 1.")) if (any(mi < 0, na.rm=TRUE) || any(mi > 1, na.rm=TRUE)) stop(mstyle$stop("One or more 'mi' values are < 0 or > 1.")) ni <- n1i + n2i ni.u <- ni # unadjusted total sample sizes k <- length(ai) yi <- ai vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) navgi <- (n1i+n2i)/2 q0 <- ai*(1-ai) q1 <- ai/(2-ai) q2 <- 2*ai^2/(1+ai) if (!all(is.element(vtype, c("LS","LS2","H0","MAX")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be 'LS' or 'LS2'.")) for (i in seq_len(k)) { ### based on Newcombe (2006b) but using (n1i-1)*(n2i-1) in the denominator as given in Cho et al. (2019), section 2.4 if (vtype[i] == "LS") vi[i] <- q0[i] / ((n1i[i]-1)*(n2i[i]-1)) * (2*navgi[i] - 1 - (3*navgi[i]-3) / ((2-ai[i])*(1+ai[i]))) ### based on Hanley and McNeil (1982) but using (n1i-1)*(n2i-1) in the denominator and subtracting mi/4 as given in Cho et al. (2019) if (vtype[i] == "LS2") vi[i] <- (q0[i] - mi[i]/4 + (n1i[i]-1)*(q1[i]-ai[i]^2) + (n2i[i]-1)*(q2[i]-ai[i]^2)) / ((n1i[i]-1)*(n2i[i]-1)) ### estimate under H0: CLES=AUC=0.5 and equal variances (conservative if there are ties) if (vtype[i] == "H0") vi[i] <- (n1i[i]+n2i[i]+1)/(12*n1i[i]*n2i[i]) ### based on sigma^2_max (eq. 7 in Bamber, 1975) if (vtype[i] == "MAX") vi[i] <- q0[i] / (min(n1i[i],n2i[i])-1) } } if (is.element(measure, c("CLESN","AUCN"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(m1i, m2i, sd1i, sd2i, n1i, n2i, di, ti, pi, ai)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) if (!.all.specified(n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments.")) k.all <- .maxlength(m1i, m2i, sd1i, sd2i, n1i, n2i, di, ti, pi, ai) vtype <- .expand1(vtype, k.all) ### if sd1i and/or sd2i have not been specified at all, set sd1i and sd2i to NA for all studies if (is.null(sd1i) || is.null(sd2i)) { sd1i <- .expand1(NA_real_, k.all) sd2i <- .expand1(NA_real_, k.all) } ### convert pi to ti values ti <- replmiss(ti, .convp2t(pi, df=n1i+n2i-2)) ### convert ti to di values di <- replmiss(di, ti * sqrt(1/n1i + 1/n2i)) ### for specified pi/ti/di values, assume homoscedasticity if (!is.null(di)) vtype[!is.na(di)] <- "HO" ### compute di values from means and SDs (for these, do not assume homoscedasticity, unless vtype="HO") sdpi <- ifelse(vtype=="HO", sqrt(((n1i-1)*sd1i^2 + (n2i-1)*sd2i^2)/(n1i+n2i-2)), sqrt((sd1i^2 + sd2i^2)/2)) di <- replmiss(di, (m1i - m2i) / sdpi) ### convert di values to ai values and back (in case only ai is known, so we have di for computing vi) ai <- replmiss(ai, pnorm(di/sqrt(2))) di <- replmiss(di, qnorm(ai)*sqrt(2)) k.all <- length(ai) ### if sd1i and/or sd2i is missing for a particular study, assume sd1i=sd2i=1 for that study and homoscedasticity sdsmiss <- is.na(sd1i) | is.na(sd2i) sd1i <- ifelse(sdsmiss, 1, sd1i) sd2i <- ifelse(sdsmiss, 1, sd2i) vtype[sdsmiss] <- "HO" if (!is.null(subset)) { subset <- .chksubset(subset, k.all) vtype <- .getsubset(vtype, subset) ai <- .getsubset(ai, subset) di <- .getsubset(di, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) } if (any(c(sd1i, sd2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) if (any(c(n1i, n2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) if (any(ai < 0, na.rm=TRUE) || any(ai > 1, na.rm=TRUE)) stop(mstyle$stop("One or more AUC values are < 0 or > 1.")) ni.u <- n1i + n2i # unadjusted total sample sizes k <- length(ai) ni <- ni.u yi <- ai vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2","LS3","HO","H0")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be 'LS' or 'HO'.")) vri <- sd1i^2 / (sd1i^2 + sd2i^2) for (i in seq_len(k)) { ### large sample approximation to the sampling variance based on the binormal model if (vtype[i] == "LS") { vi[i] <- exp(-di[i]^2 / 2) / (8*base::pi) * (di[i]^2 * vri[i]^2 / (n1i[i]-1) + di[i]^2 * (1-vri[i])^2 / (n2i[i]-1) + 4*vri[i]/(n1i[i]-1) + 4*(1-vri[i])/(n2i[i]-1)) # this is consistent with escalc(measure="SMDH", correct=FALSE) -> conv.delta(transf=transf.dtocles) #tmp <- escalc(measure="SMDH", m1i=m1i[i], sd1i=sd1i[i], n1i=n1i[i], m2i=m2i[i], sd2i=sd2i[i], n2i=n2i[i], correct=FALSE) #vi[i] <- conv.delta(yi, vi, data=tmp, transf=transf.dtocles, replace=TRUE)$vi } ### large sample approximation to the sampling variance based on the binormal model if (vtype[i] == "LS2") { vi[i] <- exp(-di[i]^2 / 2) / (8*base::pi) * (di[i]^2 * vri[i]^2 / (n1i[i]-0) + di[i]^2 * (1-vri[i])^2 / (n2i[i]-0) + 4*vri[i]/(n1i[i]-0) + 4*(1-vri[i])/(n2i[i]-0)) # this is consistent with escalc(measure="SMDH", correct=FALSE, vtype="LS2") -> conv.delta(transf=transf.dtocles) #tmp <- escalc(measure="SMDH", m1i=m1i[i], sd1i=sd1i[i], n1i=n1i[i], m2i=m2i[i], sd2i=sd2i[i], n2i=n2i[i], correct=FALSE, vtype="LS2") #vi[i] <- conv.delta(yi, vi, data=tmp, transf=transf.dtocles, replace=TRUE)$vi } ### large sample approximation to the sampling variance based on the binormal model (based on standard application of the delta method) if (vtype[i] == "LS3") { vi[i] <- exp(-di[i]^2 / 2) / (8*base::pi) * (di[i]^2 * vri[i]^2 / (n1i[i]-1) + di[i]^2 * (1-vri[i])^2 / (n2i[i]-1) + 4*vri[i]/(n1i[i]-0) + 4*(1-vri[i])/(n2i[i]-0)) # this is consistent with escalc(measure="SMDH", correct=FALSE, vtype="LS3") -> conv.delta(transf=transf.dtocles) #tmp <- escalc(measure="SMDH", m1i=m1i[i], sd1i=sd1i[i], n1i=n1i[i], m2i=m2i[i], sd2i=sd2i[i], n2i=n2i[i], correct=FALSE, vtype="LS3") #vi[i] <- conv.delta(yi, vi, data=tmp, transf=transf.dtocles, replace=TRUE)$vi } ### estimate assuming homoscedasticity of the variances within studies if (vtype[i] == "HO") { vi[i] <- exp(-di[i]^2 / 2) / (4*base::pi) * (1/n1i[i] + 1/n2i[i] + di[i]^2 / (2*(n1i[i]+n2i[i]))) # this is consistent with escalc(measure="SMD", correct=FALSE) -> conv.delta(transf=transf.dtocles) #tmp <- escalc(measure="SMD", m1i=m1i[i], sd1i=sd1i[i], n1i=n1i[i], m2i=m2i[i], sd2i=sd2i[i], n2i=n2i[i], correct=FALSE) #vi[i] <- conv.delta(yi, vi, data=tmp, transf=transf.dtocles, replace=TRUE)$vi } ### estimate under H0: CLES=AUC=0.5 if (vtype[i] == "H0") vi[i] <- 1 / (8*base::pi) * (4*vri[i]/(n1i[i]-1) + 4*(1-vri[i])/(n2i[i]-1)) } } ###################################################################### if (is.element(measure, c("COR","UCOR","ZCOR"))) { ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ri, ni, ti, pi)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ### convert pi to ti values ti <- replmiss(ti, .convp2t(pi, df=ni-2)) ### convert ti to ri values ri <- replmiss(ri, ti / sqrt(ti^2 + ni-2)) if (!.all.specified(ri, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ri, ni (and ti, pi)).")) k.all <- length(ri) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) ri <- .getsubset(ri, subset) ni <- .getsubset(ni, subset) } if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) if (measure != "UCOR" && any(vtype == "UB")) stop(mstyle$stop("Use of vtype='UB' only permitted when measure='UCOR'.")) if (measure == "UCOR" && any(ni <= 4, na.rm=TRUE)) warning(mstyle$warning("Cannot compute the bias-corrected correlation coefficient when ni <= 4."), call.=FALSE) if (measure == "ZCOR" && any(ni <= 3, na.rm=TRUE)) warning(mstyle$warning("Cannot estimate the sampling variance when ni <= 3."), call.=FALSE) ni.u <- ni # unadjusted total sample sizes k <- length(ri) ### raw correlation coefficient if (measure == "COR") yi <- ri ### raw correlation coefficient with bias correction if (measure == "UCOR") { #yi <- ri + ri*(1-ri^2)/(2*(ni-4)) # approximation #yi[ni <= 4] <- NA_real_ # set corrected correlations for ni <= 4 to NA_real_ yi <- ri * .Fcalc(1/2, 1/2, (ni-2)/2, 1-ri^2) } ### sampling variances for COR or UCOR if (is.element(measure, c("COR","UCOR"))) { vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) mnwyi <- .wmean(yi, ni, na.rm=TRUE) # sample size weighted average of yi's if (measure=="COR" && !all(is.element(vtype, c("LS","UB","AV","H0","H0a","H0b")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'UB', 'AV', or 'H0'.")) if (measure=="UCOR" && !all(is.element(vtype, c("LS","UB","AV")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'UB', or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- (1-yi[i]^2)^2 / (ni[i]-1) ### unbiased estimate of the sampling variance of the bias-corrected correlation coefficient if (vtype[i] == "UB") { #vi[i] <- yi[i]^2 - 1 + (ni[i]-3) / (ni[i]-2) * ((1-ri[i]^2) + 2*(1-ri[i]^2)^2/ni[i] + 8*(1-ri[i]^2)^3/(ni[i]*(ni[i]+2)) + 48*(1-ri[i]^2)^4/(ni[i]*(ni[i]+2)*(ni[i]+4))) vi[i] <- yi[i]^2 - (1 - (ni[i]-3) / (ni[i]-2) * (1-ri[i]^2) * .Fcalc(1, 1, ni[i]/2, 1-ri[i]^2)) } ### estimate assuming homogeneity (using sample size weighted average of the yi's) if (vtype[i] == "AV") vi[i] <- (1-mnwyi^2)^2 / (ni[i]-1) ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- (1-yi[i]^2)^2 / (ni[i]-1) ### estimate assuming H0: rho=0 (technically correct) if (is.element(vtype[i], c("H0","H0a"))) vi[i] <- (1-yi[i]^2) / (ni[i]-2) # should this be n-1? ### estimate assuming H0: rho=0 (alternative formula that works better for the z-test) if (vtype[i] == "H0b") vi[i] <- 1 / ni[i] } } ### r-to-z transformed correlation if (measure == "ZCOR") { yi <- transf.rtoz(ri) vi <- 1 / (ni-3) } ### set sampling variances for ni <= 3 to NA vi[ni <= 3] <- NA_real_ } ###################################################################### if (is.element(measure, c("PCOR","ZPCOR","SPCOR","ZSPCOR"))) { ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) r2i <- .getx("r2i", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ri, ti, mi, ni, pi, r2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ### convert pi to ti values ti <- replmiss(ti, .convp2t(pi, df=ni-mi-1)) ### convert ti to ri values if (is.element(measure, c("PCOR","ZPCOR"))) ri <- replmiss(ri, ti / sqrt(ti^2 + ni-mi-1)) if (is.element(measure, c("SPCOR","ZSPCOR"))) ri <- replmiss(ri, ti * sqrt(1-r2i) / sqrt(ni-mi-1)) if (is.element(measure, c("PCOR","ZPCOR")) && !.all.specified(ri, mi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ri, ti, mi, ni (and pi)).")) if (is.element(measure, c("SPCOR","ZSPCOR")) && !.all.specified(ri, mi, ni, r2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ri, ti, mi, ni, r2i (and pi)).")) k.all <- length(ri) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) ri <- .getsubset(ri, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) r2i <- .getsubset(r2i, subset) } if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more (semi-)partial correlations are > 1 or < -1.")) if (is.element(measure, c("SPCOR","ZSPCOR")) && any(r2i > 1 | r2i < 0, na.rm=TRUE)) stop(mstyle$stop("One or more R^2 values are > 1 or < 0.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) if (any(mi <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more mi values are <= 0.")) if (any(ni-mi-1 <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more dfs are <= 0.")) ni.u <- ni # unadjusted total sample sizes k <- length(ri) ### partial correlation coefficient if (measure == "PCOR") { yi <- ri vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) mnwyi <- .wmean(yi, ni, na.rm=TRUE) # sample size weighted average of yi's if (!all(is.element(vtype, c("LS","AV")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- (1 - yi[i]^2)^2 / (ni[i] - mi[i]) ### estimate assuming homogeneity (using sample size weighted average of the yi's) if (vtype[i] == "AV") vi[i] <- (1 - mnwyi^2)^2 / (ni[i] - mi[i]) } } ### r-to-z transformed partial correlation if (measure == "ZPCOR") { yi <- transf.rtoz(ri) vi <- 1 / (ni-mi-2) } ### semi-partial correlation coefficient if (is.element(measure, c("SPCOR","ZSPCOR"))) { yi <- ri vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) mnwyi <- .wmean(yi, ni, na.rm=TRUE) # sample size weighted average of yi's if (!all(is.element(vtype, c("LS","AV")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- (r2i[i]^2 - 2*r2i[i] + (r2i[i] - yi[i]^2) + 1 - (r2i[i] - yi[i]^2)^2) / ni[i] ### estimate assuming homogeneity (using sample size weighted average of the yi's) if (vtype[i] == "AV") vi[i] <- (r2i[i]^2 - 2*r2i[i] + (r2i[i] - mnwyi^2) + 1 - (r2i[i] - mnwyi^2)^2) / ni[i] } } ### r-to-z transformation for ZPCOR (note: NOT a variance-stabilizing transformation for this measure) if (measure == "ZSPCOR") { vi <- vi / (1 - ifelse(yi^2 > 1, 1, yi^2))^2 yi <- transf.rtoz(yi) } } ###################################################################### if (is.element(measure, c("R2","ZR2","R2F","ZR2F"))) { r2i <- .getx("r2i", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) fi <- .getx("fi", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(r2i, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ### convert pi to fi values fi <- replmiss(fi, .convp2f(pi, df1=mi, df2=ni-mi-1)) ### convert fi to r2i values r2i <- replmiss(r2i, mi*fi / (mi*fi + (ni-mi-1))) if (!.all.specified(r2i, mi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., r2i, mi, ni (and fi, pi)).")) k.all <- length(r2i) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) r2i <- .getsubset(r2i, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) } if (any(r2i > 1 | r2i < 0, na.rm=TRUE)) stop(mstyle$stop("One or more R^2 values are > 1 or < 0.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) if (any(mi <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more mi values are <= 0.")) if (any(ni-mi-1 <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more dfs are <= 0.")) ni.u <- ni # unadjusted total sample sizes k <- length(r2i) ### coefficients of determination (R^2 values) if (measure == "R2") { yi <- r2i vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) mnwyi <- .wmean(yi, ni, na.rm=TRUE) # sample size weighted average of yi's if (!all(is.element(vtype, c("LS","AV","LS2","AV2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance (simplified equation) if (vtype[i] == "LS") vi[i] <- 4 * yi[i] * (1 - yi[i])^2 / ni[i] # Kendall & Stuart, 1979, equation 27.88 ### estimate assuming homogeneity (using sample size weighted average of the yi's) if (vtype[i] == "AV") vi[i] <- 4 * mnwyi * (1 - mnwyi)^2 / ni[i] ### large sample approximation to the sampling variance (full equation) if (vtype[i] == "LS2") vi[i] <- 4 * yi[i] * (1 - yi[i])^2 * (ni[i] - mi[i] - 1)^2 / ((ni[i]^2 - 1) * (ni[i] + 3)) # Kendall & Stuart, 1979, equation 27.87 ### estimate assuming homogeneity (using sample size weighted average of the yi's) if (vtype[i] == "AV2") vi[i] <- 4 * mnwyi * (1 - mnwyi)^2 * (ni[i] - mi[i] - 1)^2 / ((ni[i]^2 - 1) * (ni[i] + 3)) } } ### r-to-z transformed coefficients of determination if (measure == "ZR2") { if (!all(is.element(vtype, "LS"))) stop(mstyle$stop("For this outcome measure, 'vtype' must be 'LS'.")) yi <- transf.rtoz(sqrt(r2i)) vi <- 1 / ni # Olkin & Finn, 1995, p.162, but var(z*) is 4/n, not 16/n and here we use the 1/2 factor, so 1/n is correct } if (is.element(measure, c("R2F","ZR2F"))) { yi <- r2i vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, "LS"))) stop(mstyle$stop("For this outcome measure, 'vtype' must be 'LS'.")) R2s <- seq(0.0001, 0.9999, length=10^5) for (i in seq_len(k)) { Fval <- (ni[i] - mi[i] - 1) / mi[i] * r2i[i] / (1 - r2i[i]) ncps <- (mi[i] + ni[i]-mi[i]) * R2s / (1 - R2s) denFval <- sapply(ncps, function(ncp) df(Fval, df1=mi[i], df2=ni[i]-mi[i]-1, ncp=ncp)) denFval <- denFval / .trapezoid(R2s, denFval) vi[i] <- sum((R2s[2]-R2s[1])*R2s^2*denFval) - sum((R2s[2]-R2s[1])*R2s*denFval)^2 #plot(R2s[denFval > sqrt(.Machine$double.eps)], denFval[denFval > sqrt(.Machine$double.eps)], type="l", lwd=5, bty="l", xlab="R^2", ylab="Density") } } if (measure == "ZR2F") { vi <- vi / (1 - yi^2)^2 yi <- transf.rtoz(sqrt(r2i)) } } ###################################################################### if (is.element(measure, c("PR","PLN","PLO","PRZ","PAS","PFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(xi, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ni.inc <- ni != xi + mi if (any(ni.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'ni' values are not equal to 'xi + mi'.")) mi <- replmiss(mi, ni-xi) if (!.all.specified(xi, mi)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., xi, mi or xi, ni).")) k.all <- length(xi) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) xi <- .getsubset(xi, subset) mi <- .getsubset(mi, subset) } ni <- xi + mi if (any(xi > ni, na.rm=TRUE)) stop(mstyle$stop("One or more event counts are larger than the corresponding group sizes.")) if (any(c(xi, mi) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes k <- length(xi) ### save unadjusted counts xi.u <- xi mi.u <- mi k <- length(xi) if (to == "all") { ### always add to all cells in all studies xi <- xi + add mi <- mi + add } if (to == "only0" || to == "if0all") { id0 <- c(xi == 0L | mi == 0L) id0[is.na(id0)] <- FALSE } if (to == "only0") { ### add to cells in studies with at least one 0 entry xi[id0] <- xi[id0] + add mi[id0] <- mi[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry if (any(id0)) { xi <- xi + add mi <- mi + add } } ### recompute sample sizes (after add/to adjustment) ni <- xi + mi ### compute proportions (unadjusted and adjusted) pri.u <- xi.u/ni.u pri <- xi/ni ### raw proportion if (measure == "PR") { if (addyi) { yi <- pri } else { yi <- pri.u } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (addvi) { mnwpri <- .wmean(pri, ni, na.rm=TRUE) # sample size weighted average of proportions } else { mnwpri.u <- .wmean(pri.u, ni.u, na.rm=TRUE) # sample size weighted average of proportions } if (!all(is.element(vtype, c("LS","UB","AV")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'UB', or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") { if (addvi) { vi[i] <- pri[i]*(1-pri[i])/ni[i] } else { vi[i] <- pri.u[i]*(1-pri.u[i])/ni.u[i] } } ### unbiased estimate of the sampling variance if (vtype[i] == "UB") { if (addvi) { vi[i] <- pri[i]*(1-pri[i])/(ni[i]-1) } else { vi[i] <- pri.u[i]*(1-pri.u[i])/(ni.u[i]-1) } } ### estimate assuming homogeneity (using the average proportion) if (vtype[i] == "AV") { if (addvi) { vi[i] <- mnwpri*(1-mnwpri)/ni[i] } else { vi[i] <- mnwpri.u*(1-mnwpri.u)/ni.u[i] } } } } ### proportion with log transformation if (measure == "PLN") { if (addyi) { yi <- log(pri) } else { yi <- log(pri.u) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (addvi) { mnwpri <- .wmean(pri, ni, na.rm=TRUE) # sample size weighted average of proportions #mnwpri <- exp(.wmean(yi, ni, na.rm=TRUE)) # alternative strategy (exp of the sample size weighted average of the log proportions) } else { mnwpri.u <- .wmean(pri.u, ni.u, na.rm=TRUE) # sample size weighted average of proportions } if (!all(is.element(vtype, c("LS","AV")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") { if (addvi) { vi[i] <- 1/xi[i] - 1/ni[i] } else { vi[i] <- 1/xi.u[i] - 1/ni.u[i] } } ### estimate assuming homogeneity (using the average proportion) if (vtype[i] == "AV") { if (addvi) { vi[i] <- 1/(mnwpri*ni[i]) - 1/ni[i] } else { vi[i] <- 1/(mnwpri.u*ni.u[i]) - 1/ni.u[i] } } } } ### proportion with logit (log odds) transformation if (measure == "PLO") { if (addyi) { yi <- log(pri/(1-pri)) } else { yi <- log(pri.u/(1-pri.u)) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (addvi) { mnwpri <- .wmean(pri, ni, na.rm=TRUE) # sample size weighted average of proportions #mnwpri <- transf.ilogit(.wmean(yi, ni, na.rm=TRUE)) # alternative strategy (inverse logit of the sample size weighted average of the logit transformed proportions) } else { mnwpri.u <- .wmean(pri.u, ni.u, na.rm=TRUE) # sample size weighted average of proportions } if (!all(is.element(vtype, c("LS","AV")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'AV'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") { if (addvi) { vi[i] <- 1/xi[i] + 1/mi[i] } else { vi[i] <- 1/xi.u[i] + 1/mi.u[i] } } ### estimate assuming homogeneity (using the average proportion) if (vtype[i] == "AV") { if (addvi) { vi[i] <- 1/(mnwpri*ni[i]) + 1/((1-mnwpri)*ni[i]) } else { vi[i] <- 1/(mnwpri.u*ni.u[i]) + 1/((1-mnwpri.u)*ni.u[i]) } } } } ### note: addyi and addvi only implemented for measures above ### proportion with probit transformation if (measure == "PRZ") { yi <- qnorm(pri) vi <- 2*base::pi*pri*(1-pri)*exp(yi^2)/ni #vi <- pri*(1-pri)/ni / dnorm(qnorm(pri))^2 # same # this is consistent with escalc(measure="PR") -> conv.delta(transf=qnorm) #tmp <- escalc(measure="PR", xi=xi, ni=ni) #vi <- conv.delta(yi, vi, data=tmp, transf=qnorm, replace=TRUE)$vi } ### proportion with arcsine square root (angular) transformation if (measure == "PAS") { yi <- asin(sqrt(pri)) vi <- 1/(4*ni) # this is consistent with escalc(measure="PR") -> conv.delta(transf=transf.arcsin) #tmp <- escalc(measure="PR", xi=xi, ni=ni) #vi <- conv.delta(yi, vi, data=tmp, transf=transf.arcsin, replace=TRUE)$vi } ### proportion with Freeman-Tukey double arcsine transformation if (measure == "PFT") { yi <- 1/2*(asin(sqrt(xi/(ni+1))) + asin(sqrt((xi+1)/(ni+1)))) vi <- 1/(4*ni+2) # this is asymptotically consistent with escalc(measure="PR") -> conv.delta(transf=transf.pft) #tmp <- escalc(measure="PR", xi=xi, ni=ni) #vi <- conv.delta(yi, vi, data=tmp, transf=transf.pft, ni=ni, replace=TRUE)$vi } } ###################################################################### if (is.element(measure, c("IR","IRLN","IRS","IRFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(xi, ti)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., xi, ti).")) if (!.equal.length(xi, ti)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k.all <- length(xi) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) xi <- .getsubset(xi, subset) ti <- .getsubset(ti, subset) } if (any(xi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(ti <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more person-times are <= 0.")) ni.u <- ti # unadjusted total sample sizes k <- length(xi) ### save unadjusted counts xi.u <- xi if (to == "all") { ### always add to all cells in all studies xi <- xi + add } if (to == "only0" || to == "if0all") { id0 <- c(xi == 0L) id0[is.na(id0)] <- FALSE } if (to == "only0") { ### add to cells in studies with at least one 0 entry xi[id0] <- xi[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry if (any(id0)) { xi <- xi + add } } ### compute rates (unadjusted and adjusted) iri.u <- xi.u / ti iri <- xi / ti ### raw incidence rate if (measure == "IR") { if (addyi) { yi <- iri } else { yi <- iri.u } if (addvi) { vi <- iri / ti # same as xi/ti^2 } else { vi <- iri.u / ti # same as xi.u/ti^2 } } ### log transformed incidence rate if (measure == "IRLN") { if (addyi) { yi <- log(iri) } else { yi <- log(iri.u) } if (addvi) { vi <- 1 / xi } else { vi <- 1 / xi.u } } ### square root transformed incidence rate if (measure == "IRS") { if (addyi) { yi <- sqrt(iri) } else { yi <- sqrt(iri.u) } vi <- 1 / (4*ti) # this is consistent with escalc(measure="IR") -> conv.delta(transf=sqrt) #tmp <- escalc(measure="IR", xi=xi, ti=ti) #vi <- conv.delta(yi, vi, data=tmp, transf=sqrt, replace=TRUE)$vi } ### note: addyi and addvi only implemented for measures above ### incidence rate with Freeman-Tukey transformation if (measure == "IRFT") { yi <- 1/2 * (sqrt(iri) + sqrt(iri+1/ti)) vi <- 1 / (4*ti) # this is asymptotically consistent with escalc(measure="IR") -> conv.delta(transf=transf.irft) #tmp <- escalc(measure="IR", xi=xi, ti=ti) #vi <- conv.delta(yi, vi, data=tmp, transf=transf.irft, ti=ti, replace=TRUE)$vi } } ###################################################################### if (is.element(measure, c("MN","SMN","MNLN","SDLN","CVLN"))) { mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) # for SDLN, do not need to supply this sdi <- .getx("sdi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) ### for these measures, need mi, sdi, and ni if (is.element(measure, c("MN","SMN","MNLN","CVLN"))) { if (!.all.specified(mi, sdi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., mi, sdi, ni).")) if (!.equal.length(mi, sdi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } ### for this measure, need sdi and ni if (measure == "SDLN") { if (!.all.specified(sdi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., sdi, ni).")) if (!.equal.length(sdi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } k.all <- length(ni) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) mi <- .getsubset(mi, subset) sdi <- .getsubset(sdi, subset) ni <- .getsubset(ni, subset) } if (any(sdi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) if (is.element(measure, c("MNLN","CVLN")) && any(mi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more means are negative.")) ni.u <- ni # unadjusted total sample sizes k <- length(ni) ### (raw) mean if (measure == "MN") { yi <- mi sdpi <- sqrt(.wmean(sdi^2, ni-1, na.rm=TRUE)) vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","HO")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'HO'.")) for (i in seq_len(k)) { ### unbiased estimate of the sampling variance if (vtype[i] == "LS") vi[i] <- sdi[i]^2 / ni[i] ### estimate assuming homoscedasticity of the variances across studies if (vtype[i] == "HO") vi[i] <- sdpi^2 / ni[i] } } ### single-group standardized mean if (measure == "SMN") { cmi <- .cmicalc(ni-1, correct=correct) yi <- cmi * mi / sdi vi <- 1 / ni + yi^2 / (2*ni) } ### log(mean) if (measure == "MNLN") { yi <- log(mi) #yi <- log(mi) + sdi^2/(2*ni*mi^2) # bias correction analogous to ROM vi <- sdi^2 / (ni*mi^2) } ### log(SD) with bias correction if (measure == "SDLN") { if (correct) { yi <- log(sdi) + 1/(2*(ni-1)) } else { yi <- log(sdi) } vi <- 1 / (2*(ni-1)) } ### log(CV) with bias correction if (measure == "CVLN") { if (correct) { yi <- log(sdi/mi) + 1/(2*(ni-1)) #yi <- log(sdi/mi) + 1/(2*(ni-1)) - sdi^2/(2*ni*mi^2) # bias correction analogous to CVR } else { yi <- log(sdi/mi) } vi <- 1 / (2*(ni-1)) + sdi^2 / (ni*mi^2) # Nakagawa et al., 2015, but without the '-2 rho ...' term } } ###################################################################### if (is.element(measure, c("MC","SMCC","SMCR","SMCRH","SMCRP","SMCRPH","CLESCN","AUCCN","ROMC","VRC","CVRC"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) # for VRC, do not need to supply this m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) # for VRC, do not need to supply this sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) # for SMCR, do not need to supply this ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) ri <- .expand1(ri, list(m1i, m2i, sd1i, sd2i, ni, di, ti, pi)) if (is.element(measure, c("MC","SMCRH","SMCRP","SMCRPH","CLESCN","AUCCN","ROMC","CVRC"))) { ### for these measures, need m1i, m2i, sd1i, sd2i, ni, and ri if (!.all.specified(m1i, m2i, sd1i, sd2i, ri, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, ni, ri).")) if (!.equal.length(m1i, m2i, sd1i, sd2i, ri, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } if (measure == "SMCC") { ### for this measures, need m1i, m2i, sd1i, sd2i, ni, and ri (and can also specify di/ti/pi) if (!.equal.length(m1i, m2i, sd1i, sd2i, ri, ni, di, ti, pi)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ### convert pi to ti values ti <- replmiss(ti, .convp2t(pi, df=ni-1)) ### convert ti to di values di <- replmiss(di, ti * sqrt(1/ni)) ### when di is available, set m1i, m2i, sd1i, sd2i, and ri values accordingly m1i[!is.na(di)] <- di[!is.na(di)] m2i[!is.na(di)] <- 0 sd1i[!is.na(di)] <- 1 sd2i[!is.na(di)] <- 1 ri[!is.na(di)] <- 0.5 if (!.all.specified(m1i, m2i, sd1i, sd2i, ri, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, ni, ri (and di, ti, pi)).")) } if (measure == "SMCR") { ### for this measure, need m1i, m2i, sd1i, ni, and ri (do not need sd2i) if (!.all.specified(m1i, m2i, sd1i, ri, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, ni, ri).")) if (!.equal.length(m1i, m2i, sd1i, ri, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } if (measure == "VRC") { ### for this measure, need sd1i, sd2i, ni, and ri if (!.all.specified(sd1i, sd2i, ri, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., sd1i, sd2i, ni, ri).")) if (!.equal.length(sd1i, sd2i, ri, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } k.all <- length(ni) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) ni <- .getsubset(ni, subset) ri <- .getsubset(ri, subset) } if (is.element(measure, c("MC","SMCC","SMCRH","SMCRP","SMCRPH","CLESCN","AUCCN","ROMC","VRC","CVRC"))) { if (any(c(sd1i, sd2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) } if (measure == "SMCR") { if (any(sd1i < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) } if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes k <- length(ni) ni <- ni.u mi <- ni - 1 sddiffi <- sqrt(sd1i^2 + sd2i^2 - 2*ri*sd1i*sd2i) # SD of the change scores sdpi <- sqrt((sd1i^2+sd2i^2)/2) # pooled SD ### (raw) mean change if (measure == "MC") { yi <- m1i - m2i vi <- sddiffi^2 / ni } ### standardized mean change with change score standardization (using sddi) ### note: does not assume homoscedasticity, since we use sddi here if (measure == "SMCC") { cmi <- .cmicalc(mi, correct=correct) di <- (m1i - m2i) / sddiffi yi <- cmi * di vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2","UB","H0")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'LS2', 'UB', or 'H0'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- 1/ni[i] + yi[i]^2 / (2*ni[i]) # Gibbons et al., 1993, equation 21, but using ni instead of ni-1; see [a] ### alternative large sample approximation to the sampling variance if (vtype[i] == "LS2") vi[i] <- cmi[i]^2 * (1/ni[i] + di[i]^2 / (2*ni[i])) # analogous to LS2 for SMD and SMCR; see [b] ### unbiased estimate of the sampling variance if (vtype[i] == "UB") vi[i] <- 1/ni[i] + (1 - (mi[i]-2)/(mi[i]*cmi[i]^2)) * yi[i]^2 # Viechtbauer, 2007d, equation 26; see [c] ### estimate assuming theta=0 if (vtype[i] == "H0") vi[i] <- ifelse(mi[i] > 2, cmi[i]^2 / ni[i] * mi[i] / (mi[i] - 2), NA_real_) } } ### standardized mean change with raw score standardization (using sd1i) if (measure == "SMCR") { cmi <- .cmicalc(mi, correct=correct) di <- (m1i - m2i) / sd1i yi <- cmi * di vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2","UB","H0")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS', 'LS2', 'UB', or 'H0'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- 2*(1-ri[i])/ni[i] + yi[i]^2 / (2*ni[i]) # Becker, 1988a, equation 13 ### alternative large sample approximation to the sampling variance if (vtype[i] == "LS2") vi[i] <- cmi[i]^2 * (2*(1-ri[i])/ni[i] + di[i]^2 / (2*ni[i])) # corrected (!) equation from Borenstein et al., 2009; analogous to LS2 for SMD and SMCC; see [b] #vi[i] <- cmi[i]^2 * 2 * (1-ri[i]) * (1/ni[i] + di[i]^2 / (2*ni[i])) # Borenstein, 2009, equation 4.28 (with J^2 multiplier) but this is incorrect ### unbiased estimate of the sampling variance if (vtype[i] == "UB") { rui <- ri[i] * .Fcalc(1/2, 1/2, (ni[i]-2)/2, 1-ri[i]^2) # NA when ni <= 4 vi[i] <- 2*(1-rui)/ni[i] + (1 - (mi[i]-2)/(mi[i]*cmi[i]^2)) * yi[i]^2 # Viechtbauer, 2007d, equation 37; see [c] } ### estimate assuming theta=0 if (vtype[i] == "H0") { rui <- ri[i] * .Fcalc(1/2, 1/2, (ni[i]-2)/2, 1-ri[i]^2) # NA when ni <= 4 vi[i] <- ifelse(mi[i] > 2, cmi[i]^2 * 2*(1-rui) / ni[i] * mi[i] / (mi[i] - 2), NA_real_) } } } ### standardized mean change with raw score standardization (using sd1i) allowing for heteroscedasticity if (measure == "SMCRH") { cmi <- .cmicalc(mi, correct=correct) di <- (m1i - m2i) / sd1i yi <- cmi * di vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'LS2'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") { vi[i] <- sddiffi[i]^2/(sd1i[i]^2*(ni[i]-1)) + yi[i]^2 / (2*(ni[i]-1)) # Bonett, 2008a, equation 13 # note: Bonett (2008a) plugs the uncorrected yi into the equation for vi; here, the corrected value is plugged in for consistency with [a] #vi <- cmi^2 * vi } ### alternative large sample approximation (replace ni-1 with ni) if (vtype[i] == "LS2") vi[i] <- sddiffi[i]^2/(sd1i[i]^2*ni[i]) + yi[i]^2 / (2*ni[i]) } } ### standardized mean change with raw score standardization (using (sd1i+sd2i)/2)) if (measure == "SMCRP") { mi <- 2*(ni-1) / (1 + ri^2) cmi <- .cmicalc(mi, correct=correct) di <- (m1i - m2i) / sdpi yi <- cmi * di vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, "LS"))) stop(mstyle$stop("For this outcome measure, 'vtype' must be 'LS'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- 2 * (1-ri[i]) / ni[i] + yi[i]^2 * (1 + ri[i]^2) / (4*ni[i]) # follows from Cousineau, 2020, equation 2 } } ### standardized mean change with raw score standardization (using (sd1i+sd2i)/2)) allowing for heteroscedasticity if (measure == "SMCRPH") { mi <- 2*(ni-1) / (1 + ri^2) cmi <- .cmicalc(mi, correct=correct) di <- (m1i - m2i) / sdpi yi <- cmi * di vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be 'LS' or 'LS2'.")) for (i in seq_len(k)) { ### large sample approximation to the sampling variance if (vtype[i] == "LS") vi[i] <- sddiffi[i]^2 / (sdpi[i]^2 * (ni[i]-1)) + yi[i]^2 * (sd1i[i]^4 + sd2i[i]^4 + 2*ri[i]^2*sd1i[i]^2*sd2i[i]^2) / (8 * sdpi[i]^4 * (ni[i]-1)) # Bonett, 2008a, equation 10 ### alternative large sample approximation to the sampling variance (replace ni-1 with ni) if (vtype[i] == "LS2") vi[i] <- sddiffi[i]^2 / (sdpi[i]^2 * ni[i]) + yi[i]^2 * (sd1i[i]^4 + sd2i[i]^4 + 2*ri[i]^2*sd1i[i]^2*sd2i[i]^2) / (8 * sdpi[i]^4 * ni[i]) } } ### common language effect size / area under the curve allowing for heteroscedasticity if (is.element(measure, c("CLESCN","AUCCN"))) { di <- (m1i - m2i) / sdpi yi <- pnorm(di/sqrt(2)) vi <- exp(-di^2 / 2) / (4*base::pi) * (sddiffi^2 / (sdpi^2 * (ni-1)) + di^2 * (sd1i^4 + sd2i^4 + 2*ri^2*sd1i^2*sd2i^2) / (8 * sdpi^4 * (ni-1))) } ### ratio of means for pre-post or matched designs (eq. 6 in Lajeunesse, 2011) ### to use with pooled SDs, simply set sd1i = sd2i = sdpi if (measure == "ROMC") { if (correct) { yi <- log(m1i/m2i) + 1/2 * (sd1i^2/(ni*m1i^2) - sd2i^2/(ni*m2i^2)) # Senior at al., 2020, equation 7 } else { yi <- log(m1i/m2i) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'LS2'.")) for (i in seq_len(k)) { if (vtype[i] == "LS") vi[i] <- sd1i[i]^2 / (ni[i]*m1i[i]^2) + sd2i[i]^2 / (ni[i]*m2i[i]^2) - 2*ri[i]*sd1i[i]*sd2i[i]/(m1i[i]*m2i[i]*ni[i]) # Senior et al., 2020, equation 18 if (vtype[i] == "LS2") vi[i] <- sd1i[i]^2 / (ni[i]*m1i[i]^2) + sd2i[i]^2 / (ni[i]*m2i[i]^2) + sd1i[i]^4/(2*ni[i]^2*m1i[i]^4) + sd2i[i]^4/(2*ni[i]^2*m2i[i]^4) - ri[i]*2*sd1i[i]*sd2i[i]/(ni[i]*m1i[i]*m2i[i]) + ri[i]^2*sd1i[i]^2*sd2i[i]^2*(m1i[i]^4+m2i[i]^4)/(2*ni[i]^2*m1i[i]^4*m2i[i]^4) # Senior et al., 2020, equation 19 } } ### variability ratio for pre-post or matched designs if (measure == "VRC") { yi <- log(sd1i/sd2i) # Senior et al., 2020, equation 8 vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'LS2'.")) for (i in seq_len(k)) { if (vtype[i] == "LS") vi[i] <- (1-ri[i]^2) / (ni[i]-1) # Senior et al., 2020, equation 21 if (vtype[i] == "LS2") vi[i] <- ni[i] / (ni[i]-1)^2 - ri[i]^2 / (ni[i]-1) + ri[i]^4*(sd1i[i]^8+sd2i[i]^8) / (2*(ni[i]-1)^2*sd1i[i]^4*sd2i[i]^4) # Senior et al., 2020, equation 22 } } ### coefficient of variation ratio for pre-post or matched designs if (measure == "CVRC") { if (correct) { yi <- log(sd1i/m1i) - log(sd2i/m2i) + 1/2 * (sd2i^2/(ni*m2i^2) - sd1i^2/(ni*m1i^2)) # Senior et al., 2020, equation 9 } else { yi <- log(sd1i/m1i) - log(sd2i/m2i) } vtype <- .expand1(vtype, k) vi <- rep(NA_real_, k) if (!all(is.element(vtype, c("LS","LS2")))) stop(mstyle$stop("For this outcome measure, 'vtype' must be either 'LS' or 'LS2'.")) for (i in seq_len(k)) { if (vtype[i] == "LS") vi[i] <- sd1i[i]^2 / (ni[i]*m1i[i]^2) + sd2i[i]^2 / (ni[i]*m2i[i]^2) - 2*ri[i]*sd1i[i]*sd2i[i]/(m1i[i]*m2i[i]*ni[i]) + (1-ri[i]^2) / (ni[i]-1) # Senior et al., 2020, equation 23 if (vtype[i] == "LS2") vi[i] <- sd1i[i]^2 / (ni[i]*m1i[i]^2) + sd2i[i]^2 / (ni[i]*m2i[i]^2) + sd1i[i]^4/(2*ni[i]^2*m1i[i]^4) + sd2i[i]^4/(2*ni[i]^2*m2i[i]^4) - ri[i]*2*sd1i[i]*sd2i[i]/(ni[i]*m1i[i]*m2i[i]) + ri[i]^2*sd1i[i]^2*sd2i[i]^2*(m1i[i]^4+m2i[i]^4)/(2*ni[i]^2*m1i[i]^4*m2i[i]^4) + ni[i] / (ni[i]-1)^2 - ri[i]^2 / (ni[i]-1) + ri[i]^4*(sd1i[i]^8+sd2i[i]^8) / (2*(ni[i]-1)^2*sd1i[i]^4*sd2i[i]^4) # Senior et al., 2020, equation 24 } } } ###################################################################### if (is.element(measure, c("ARAW","AHW","ABT"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(ai, mi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, mi, ni).")) if (!.equal.length(ai, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k.all <- length(ai) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) ai <- .getsubset(ai, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) } if (any(ai > 1, na.rm=TRUE)) stop(mstyle$stop("One or more alpha values are > 1.")) if (any(mi < 2, na.rm=TRUE)) stop(mstyle$stop("One or more mi values are < 2.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes k <- length(ai) ### raw alpha values if (measure == "ARAW") { yi <- ai vi <- 2*mi*(1-ai)^2 / ((mi-1)*(ni-2)) } ### alphas transformed with Hakstian & Whalen (1976) transformation if (measure == "AHW") { #yi <- (1-ai)^(1/3) # technically this is the Hakstian & Whalen (1976) transformation yi <- 1 - (1-ai)^(1/3) # but with this, yi remains a monotonically increasing function of ai vi <- 18*mi*(ni-1)*(1-ai)^(2/3) / ((mi-1)*(9*ni-11)^2) #vi <- 2*mi*(1-ai)^(2/3) / (9*(mi-1)*(ni-2)) # this follows from the delta method # this is asymptotically consistent with escalc(measure="ARAW") -> conv.delta(transf=transf.ahw) #tmp <- escalc(measure="ARAW", ai=ai, mi=mi, ni=ni) #vi <- conv.delta(yi, vi, data=tmp, transf=transf.ahw, replace=TRUE)$vi } ### alphas transformed with Bonett (2002) transformation (without bias correction) if (measure == "ABT") { #yi <- log(1-ai) - log(ni/(ni-1)) #yi <- log(1-ai) # technically this is the Bonett (2002) transformation yi <- -log(1-ai) # but with this, yi remains a monotonically increasing function of ai vi <- 2*mi / ((mi-1)*(ni-2)) # this is consistent with escalc(measure="ARAW") -> conv.delta(transf=transf.abt) #tmp <- escalc(measure="ARAW", ai=ai, mi=mi, ni=ni) #vi <- conv.delta(yi, vi, data=tmp, transf=transf.abt, replace=TRUE)$vi } } ###################################################################### if (measure == "REH") { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(ai, bi, ci)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, bi, ci).")) if (!.equal.length(ai, bi, ci)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k.all <- length(ai) if (!is.null(subset)) { subset <- .chksubset(subset, k.all) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) } if (any(ai < 0, na.rm=TRUE) || any(bi < 0, na.rm=TRUE) || any(ci < 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are negative.")) ni <- ai + bi + ci ni.u <- ni # unadjusted total sample sizes k <- length(ai) p0i <- ai / ni p1i <- bi / ni p2i <- ci / ni yi <- log(p1i) - log(2 * sqrt(p0i * p2i)) vi <- ((1-p1i) / (4 * p0i * p2i) + 1 / p1i) / ni } ###################################################################### } else { ### in case yi is not NULL (so user wants to convert a regular data frame to an 'escalc' object) ### check if yi is numeric if (!.is.numeric(yi)) stop(mstyle$stop("The object/variable specified for the 'yi' argument is not numeric.")) ### get vi, sei, and ni vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) sei <- .getx("sei", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) ### if neither 'vi' nor 'sei' is specified, then throw an error ### if only 'sei' is specified, then square those values to get 'vi' ### if 'vi' is specified, use those values if (is.null(vi)) { if (is.null(sei)) { stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) } else { vi <- sei^2 } } if (!.equal.length(yi, vi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k.all <- length(yi) ### if slab is NULL, see if we can get it from yi (subsetting is done further below; see [z]) if (is.null(slab)) { slab <- attributes(yi)$slab if (length(slab) != k.all) slab <- NULL } if (!is.null(subset)) { subset <- .chksubset(subset, k.all) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) ni <- .getsubset(ni, subset) } ni.u <- ni # unadjusted total sample sizes k <- length(yi) } ######################################################################### ######################################################################### ######################################################################### ### make sure yi and vi are really vectors (and not arrays) yi <- as.vector(yi) vi <- as.vector(vi) ### check for infinite values and set them to NA is.inf <- is.infinite(yi) | is.infinite(vi) if (any(is.inf)) { warning(mstyle$warning("Some 'yi' and/or 'vi' values equal to +-Inf. Recoded to NAs."), call.=FALSE) yi[is.inf] <- NA_real_ vi[is.inf] <- NA_real_ } ### check for NaN values and set them to NA is.NaN <- is.nan(yi) | is.nan(vi) if (any(is.NaN)) { yi[is.NaN] <- NA_real_ vi[is.NaN] <- NA_real_ } ### check for negative vi's (should not happen, but just in case) vi[vi < 0] <- NA_real_ ### add study labels if specified if (!is.null(slab)) { if (length(slab) != k.all) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k.all, ")."))) if (is.factor(slab)) slab <- as.character(slab) if (!is.null(subset)) slab <- .getsubset(slab, subset) # [z] if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) } ### if include/subset is NULL, set to TRUE vector if (is.null(include)) include <- rep(TRUE, k.all) if (is.null(subset)) subset <- rep(TRUE, k.all) ### turn numeric include vector into a logical vector (already done for subset) if (!is.null(include)) include <- .chksubset(include, k.all, stoponk0=FALSE) ### apply subset to include include <- .getsubset(include, subset) ### process flip argument if (is.null(flip)) { flip <- rep(1, k.all) } else { if (is.logical(flip)) { flip <- .expand1(flip, k.all) flip <- flip %in% TRUE # so NAs are treated as FALSE flip <- ifelse(flip, -1, 1) } } if (length(flip) != k.all) stop(mstyle$stop(paste0("Length of the 'flip' argument (", length(flip), ") does not correspond to the size of the dataset (", k.all, ")."))) flip <- .getsubset(flip, subset) yi[include] <- flip[include] * yi[include] vi[include] <- flip[include]^2 * vi[include] ### subset data frame (note: subsetting of other parts already done above, so yi/vi/ni.u/slab are already subsetted) if (has.data && any(!subset)) data <- .getsubset(data, subset) ### put together dataset if (has.data && append) { ### if data argument has been specified and user wants to append dat <- data.frame(data) if (replace || !is.element(var.names[1], names(dat))) { yi.replace <- rep(TRUE, k) } else { yi.replace <- is.na(dat[[var.names[1]]]) } if (replace || !is.element(var.names[2], names(dat))) { vi.replace <- rep(TRUE, k) } else { vi.replace <- is.na(dat[[var.names[2]]]) } if (replace || !is.element(var.names[3], names(dat))) { measure.replace <- rep(TRUE, k) } else { measure.replace <- is.na(dat[[var.names[3]]]) | dat[[var.names[3]]] == "" } dat[[var.names[1]]][include & yi.replace] <- yi[include & yi.replace] dat[[var.names[2]]][include & vi.replace] <- vi[include & vi.replace] if (add.measure) dat[[var.names[3]]][!is.na(yi) & include & measure.replace] <- measure if (!is.null(ni.u)) attributes(dat[[var.names[1]]])$ni[include & yi.replace] <- ni.u[include & yi.replace] } else { ### if data argument has not been specified or user does not want to append dat <- data.frame(yi=rep(NA_real_, k), vi=rep(NA_real_, k)) dat$yi[include] <- yi[include] dat$vi[include] <- vi[include] if (add.measure) dat$measure[!is.na(yi) & include] <- measure attributes(dat$yi)$ni[include] <- ni.u[include] if (add.measure) { names(dat) <- var.names } else { names(dat) <- var.names[1:2] } } ### replace missings in measure with "" if (add.measure) dat[[var.names[3]]][is.na(dat[[var.names[3]]])] <- "" ### add slab attribute to the yi vector if (!is.null(slab)) attr(dat[[var.names[1]]], "slab") <- slab ### add measure attribute to the yi vector attr(dat[[var.names[1]]], "measure") <- measure ### add digits attribute attr(dat, "digits") <- digits ### add vtype attribute #attr(dat, "vtype") <- vtype ### add 'yi.names' and 'vi.names' to the first position of the corresponding attributes (so the first is always the last one calculated/added) attr(dat, "yi.names") <- union(var.names[1], attr(data, "yi.names")) # if 'yi.names' is not an attribute, attr() returns NULL, so this works fine attr(dat, "vi.names") <- union(var.names[2], attr(data, "vi.names")) # if 'vi.names' is not an attribute, attr() returns NULL, so this works fine ### add 'out.names' back to object in case these attributes exist (if summary() has been used on the object) attr(dat, "sei.names") <- attr(data, "sei.names") attr(dat, "zi.names") <- attr(data, "zi.names") attr(dat, "pval.names") <- attr(data, "pval.names") attr(dat, "ci.lb.names") <- attr(data, "ci.lb.names") attr(dat, "ci.ub.names") <- attr(data, "ci.ub.names") ### keep only attribute elements from yi.names and vi.names that are actually part of the object attr(dat, "yi.names") <- attr(dat, "yi.names")[attr(dat, "yi.names") %in% colnames(dat)] attr(dat, "vi.names") <- attr(dat, "vi.names")[attr(dat, "vi.names") %in% colnames(dat)] class(dat) <- c("escalc", "data.frame") return(dat) } metafor/R/selmodel.r0000644000176200001440000000006615120213572014077 0ustar liggesusersselmodel <- function(x, ...) UseMethod("selmodel") metafor/R/gosh.rma.r0000644000176200001440000002144515120213572014015 0ustar liggesusersgosh.rma <- function(x, subsets, progbar=TRUE, parallel="no", ncpus=1, cl, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma", notav=c("rma.glmm", "rma.mv", "robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to construct the plot is not available in the model object.")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } ddd <- list(...) .chkdots(ddd, c("seed", "time", "LB", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() ### total number of possible subsets N.tot <- sum(choose(x$k, x$p:x$k)) ### if 'subsets' is missing, include all possible subsets if N.tot is <= 10^6 ### and otherwise include 10^6 random subsets; if the user specified 'subsets' ### and N.tot <= subsets, then again include all possible subsets if (missing(subsets)) { if (N.tot <= 10^6) { exact <- TRUE } else { exact <- FALSE N.tot <- 10^6 } } else { subsets <- round(subsets) if (subsets <= 1) stop(mstyle$stop("Argument 'subsets' must be >= 2.")) if (N.tot <= subsets) { exact <- TRUE } else { exact <- FALSE N.tot <- subsets } } if (N.tot == Inf) stop(mstyle$stop("Too many iterations required for all combinations.")) if (progbar) message(paste0("Fitting ", N.tot, " models (based on ", ifelse(exact, "all possible", "random"), " subsets).")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### ### generate inclusion matrix (either exact or at random) if (exact) { incl <- as.matrix(expand.grid(replicate(x$k, list(c(FALSE,TRUE))), KEEP.OUT.ATTRS=FALSE)) incl <- incl[rowSums(incl) >= x$p,,drop=FALSE] ### slower, but does not generate rows that need to be filtered out (as above) #incl <- lapply(x$p:x$k, function(m) apply(combn(x$k,m), 2, function(l) 1:x$k %in% l)) #incl <- t(do.call(cbind, incl)) } else { if (!is.null(ddd$seed)) set.seed(ddd$seed) j <- sample(x$p:x$k, N.tot, replace=TRUE, prob=dbinom(x$p:x$k, x$k, 0.5)) incl <- t(sapply(j, function(m) seq_len(x$k) %in% sample(x$k, m))) } colnames(incl) <- seq_len(x$k) ### check if model is a standard FE/EE/CE model or a standard RE model with the DL estimators model <- 0L if (is.element(x$method, c("FE","EE","CE")) && x$weighted && is.null(x$weights) && x$int.only) model <- 1L if (x$method=="DL" && x$weighted && is.null(x$weights) && x$int.only) model <- 2L ######################################################################### outlist <- "beta=beta, k=k, QE=QE, I2=I2, H2=H2, tau2=tau2, coef.na=coef.na" if (parallel == "no") { if (inherits(x, "rma.uni")) res <- pbapply::pbapply(incl, 1, .profile.rma.uni, obj=x, parallel=parallel, subset=TRUE, model=model, outlist=outlist, code2=ddd$code2) if (inherits(x, "rma.mh")) res <- pbapply::pbapply(incl, 1, .profile.rma.mh, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) if (inherits(x, "rma.peto")) res <- pbapply::pbapply(incl, 1, .profile.rma.peto, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) } if (parallel == "multicore") { if (inherits(x, "rma.uni")) res <- pbapply::pbapply(incl, 1, .profile.rma.uni, obj=x, parallel=parallel, subset=TRUE, model=model, outlist=outlist, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(asplit(incl, 1), .profile.rma.uni, obj=x, mc.cores=ncpus, parallel=parallel, subset=TRUE, model=model, outlist=outlist, code2=ddd$code2) if (inherits(x, "rma.mh")) res <- pbapply::pbapply(incl, 1, .profile.rma.mh, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(asplit(incl, 1), .profile.rma.mh, obj=x, mc.cores=ncpus, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) if (inherits(x, "rma.peto")) res <- pbapply::pbapply(incl, 1, .profile.rma.peto, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(asplit(incl, 1), .profile.rma.peto, obj=x, mc.cores=ncpus, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) } if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (inherits(x, "rma.uni")) { if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, asplit(incl, 1), .profile.rma.uni, obj=x, parallel=parallel, subset=TRUE, model=model, outlist=outlist, code2=ddd$code2) } else { res <- pbapply::pbapply(incl, 1, .profile.rma.uni, obj=x, parallel=parallel, subset=TRUE, model=model, outlist=outlist, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, asplit(incl, 1), .profile.rma.uni, obj=x, parallel=parallel, subset=TRUE, model=model, outlist=outlist, code2=ddd$code2) } } if (inherits(x, "rma.mh")) { if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, asplit(incl, 1), .profile.rma.mh, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) } else { res <- pbapply::pbapply(incl, 1, .profile.rma.mh, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, asplit(incl, 1), .profile.rma.mh, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) } } if (inherits(x, "rma.peto")) { if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, asplit(incl, 1), .profile.rma.peto, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) } else { res <- pbapply::pbapply(incl, 1, .profile.rma.peto, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, asplit(incl, 1), .profile.rma.peto, obj=x, parallel=parallel, subset=TRUE, outlist=outlist, code2=ddd$code2) } } } beta <- do.call(rbind, lapply(res, function(x) if (inherits(x, "try-error") || any(x$coef.na)) NA_real_ else t(x$beta))) het <- do.call(rbind, lapply(res, function(x) if (inherits(x, "try-error") || any(x$coef.na)) NA_real_ else c(x$k, x$QE, x$I2, x$H2, x$tau2))) if (all(is.na(het))) stop(mstyle$stop("All model fits failed.")) ######################################################################### ### in case a model fit was skipped, this guarantees that we still get ### a value for k in the first column of the het matrix for each model het[,1] <- rowSums(incl) ### set column names colnames(het) <- c("k", "QE", "I2", "H2", "tau2") if (x$int.only) { colnames(beta) <- "estimate" } else { colnames(beta) <- colnames(x$X) } ### add tau as column to het het <- cbind(het, tau=sqrt(het[,"tau2"])) ### combine het and beta objects and order incl and res by k res <- data.frame(het, beta) incl <- incl[order(res$k),,drop=FALSE] res <- res[order(res$k),,drop=FALSE] ### fix rownames rownames(res) <- seq_len(nrow(res)) rownames(incl) <- seq_len(nrow(incl)) ### was model fitted successfully / all values are not NA? fit <- apply(res, 1, function(x) all(!is.na(x))) ### print processing time if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } ### list to return out <- list(res=res, incl=incl, fit=fit, k=x$k, int.only=x$int.only, method=x$method, measure=x$measure, digits=x$digits) class(out) <- "gosh.rma" return(out) } metafor/R/print.list.rma.r0000644000176200001440000000747015120213572015165 0ustar liggesusersprint.list.rma <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="list.rma") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) attr(x, "class") <- NULL ### remove cr.lb and cr.ub elements (if they are there) x$cr.lb <- NULL x$cr.ub <- NULL ### turn all vectors before the slab vector into a data frame slab.pos <- which(names(x) == "slab") out <- x[seq_len(slab.pos-1)] out <- data.frame(out, row.names=x$slab, stringsAsFactors=FALSE) ### in case all values were NA and have been omitted if (nrow(out) == 0L) stop(mstyle$stop("All values are NA."), call.=FALSE) ### in case there is a select element, apply it if (exists("select", where=x, inherits=FALSE)) out <- out[x$select,] if (nrow(out) == 0L) { message(mstyle$message("No values to print.")) return(invisible()) } ### if transf exists and is TRUE, set SEs to NULL so that column is omitted from the output transf.true <- 0 if (exists("transf", where=x, inherits=FALSE) && x$transf) { transf.true <- 1 out$se <- NULL } ### objects created by predict.rma() have a 'method' element ### properly format columns 1-4 (for FE models) or columns 1-6 (for RE/ME models) ### leave element tau2.level, gamma2.level, and/or element X untouched if (exists("method", where=x, inherits=FALSE)) { min.pos <- slab.pos - is.element("tau2.level", names(x)) - is.element("gamma2.level", names(x)) - is.element("X", names(x)) - is.element("Z", names(x)) - transf.true } else { min.pos <- slab.pos - transf.true } sav <- out[,seq_len(min.pos-1)] for (i in seq_len(min.pos-1)) { if (inherits(out[,i], c("integer","logical","factor","character"))) { # do not apply formating to these classes out[,i] <- out[,i] } else { if (names(out)[i] %in% c("pred", "resid")) out[,i] <- fmtx(out[,i], digits[["est"]]) if (names(out)[i] %in% c("se")) out[,i] <- fmtx(out[,i], digits[["se"]]) if (names(out)[i] %in% c("ci.lb", "ci.ub", "cr.lb", "cr.ub", "pi.lb", "pi.ub")) out[,i] <- fmtx(out[,i], digits[["ci"]]) if (names(out)[i] %in% c("zval", "tval", "Q", "z", "X2")) out[,i] <- fmtx(out[,i], digits[["test"]]) if (names(out)[i] %in% c("pval", "Qp")) out[,i] <- fmtx(out[,i], digits[["pval"]]) if (names(out)[i] %in% c("I2", "H2")) out[,i] <- fmtx(out[,i], digits[["het"]]) if (names(out)[i] %in% c("tau2")) out[,i] <- fmtx(out[,i], digits[["var"]]) if (names(out)[i] %in% c("k")) out[,i] <- fmtx(out[,i], 0) # if (names(out)[i] == "rstudent") # out[,i] <- fmtx(out[,i], digits[["test"]]) # if (names(out)[i] == "dffits") # out[,i] <- fmtx(out[,i], digits[["test"]]) # if (names(out)[i] == "cook.d") # out[,i] <- fmtx(out[,i], digits[["test"]]) # if (names(out)[i] == "cov.r") # out[,i] <- fmtx(out[,i], digits[["test"]]) # if (names(out)[i] == "tau2.del") # out[,i] <- fmtx(out[,i], digits[["var"]]) # if (names(out)[i] == "QE.del") # out[,i] <- fmtx(out[,i], digits[["test"]]) # if (names(out)[i] == "hat") # out[,i] <- fmtx(out[,i], digits[["test"]]) # if (names(out)[i] == "weight") # out[,i] <- fmtx(out[,i], digits[["test"]]) # if (names(out)[i] == "dfbs") # out[,i] <- fmtx(out[,i], digits[["est"]]) if (!is.character(out[,i])) out[,i] <- fmtx(out[,i], digits[["est"]]) } } .space() tmp <- capture.output(print(out, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) if (is.null(attr(x, ".rmspace"))) .space() invisible(sav) } metafor/R/plot.rma.mh.r0000644000176200001440000000425015120213572014431 0ustar liggesusersplot.rma.mh <- function(x, qqplot=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma.mh") na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) .start.plot() # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < 4L) par(mfrow=n2mfrow(4)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) col.na <- .coladj(par("bg","fg"), dark=0.2, light=-0.2) ######################################################################### forest(x, ...) title("Forest Plot", ...) ######################################################################### funnel(x, ...) title("Funnel Plot", ...) ######################################################################### radial(x, ...) title("Radial Plot", ...) ######################################################################### if (qqplot) { qqnorm(x, ...) } else { options(na.action = "na.pass") z <- rstandard(x)$z options(na.action = na.act) not.na <- !is.na(z) if (na.act == "na.omit") { z <- z[not.na] ids <- x$ids[not.na] not.na <- not.na[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") ids <- x$ids k <- length(z) plot(NA, NA, xlim=c(1,k), ylim=c(min(z, -2, na.rm=TRUE), max(z, 2, na.rm=TRUE)), xaxt="n", xlab="Study", ylab="", bty="l", ...) lines(seq_len(k)[not.na], z[not.na], col=col.na, ...) lines(seq_len(k), z, ...) points(x=seq_len(k), y=z, pch=21, bg=bg, ...) axis(side=1, at=seq_len(k), labels=ids, ...) abline(h=0, lty="dashed", ...) abline(h=c(qnorm(0.025),qnorm(0.975)), lty="dotted", ...) title("Standardized Residuals", ...) } ######################################################################### invisible() } metafor/R/plot.profile.rma.r0000644000176200001440000000701215120213572015464 0ustar liggesusersplot.profile.rma <- function(x, xlim, ylim, pch=19, xlab, ylab, main, refline=TRUE, cline=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="profile.rma") .start.plot() if (x$comps > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < x$comps) par(mfrow=n2mfrow(x$comps)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } missing.xlim <- missing(xlim) missing.ylim <- missing(ylim) missing.xlab <- missing(xlab) missing.ylab <- missing(ylab) missing.main <- missing(main) lplot <- function(..., time, LB, startmethod, sub1, sqrt, exp, pred, blup, code1, code2, code3, code4) plot(...) lpoints <- function(..., time, LB, startmethod, sub1, log, sqrt, exp, pred, blup, code1, code2, code3, code4) points(...) # need 'log' here so profile(res, log="x") doesn't throw a warning ######################################################################### if (x$comps == 1) { if (missing.xlim) xlim <- x$xlim if (missing.ylim) ylim <- x$ylim if (missing.xlab) xlab <- x$xlab if (missing.ylab) { if (isTRUE(x$exp)) { ylab <- paste0(ifelse(x$method=="REML", "Restricted ", ""), "Likelihood") } else { ylab <- paste0(ifelse(x$method=="REML", "Restricted ", ""), "Log-Likelihood") } } if (missing.main) main <- x$title ### add the actual vc value to the profile if (min(x[[1]]) <= x$vc && max(x[[1]]) >= x$vc) { pos <- which(x[[1]] >= x$vc)[1] x[[1]] <- c(x[[1]][seq_len(pos-1)], x$vc, x[[1]][pos:length(x[[1]])]) x[[2]] <- c(x[[2]][seq_len(pos-1)], x$maxll, x[[2]][pos:length(x[[2]])]) } lplot(x[[1]], x[[2]], type="n", xlab=xlab, ylab=ylab, main=main, bty="l", xlim=xlim, ylim=ylim, ...) if (refline) { abline(v=x$vc, lty="dotted") abline(h=x$maxll, lty="dotted") } if (isTRUE(cline)) cline <- 0.05 if (is.numeric(cline)) { cline <- .level(cline, argname="cline") if (isTRUE(x$exp)) { hval <- exp(log(x$maxll) - qchisq(1-cline, df=1)/2) } else { hval <- x$maxll - qchisq(1-cline, df=1)/2 } abline(h=hval, lty="dotted") } lpoints(x[[1]], x[[2]], type="o", pch=pch, ...) } else { for (j in seq_len(x$comps)) { if (missing.xlim) xlim <- x[[j]]$xlim if (missing.ylim) ylim <- x[[j]]$ylim if (missing.xlab) { xlab <- x[[j]]$xlab } else { xlab <- .expand1(xlab, x$comps) } if (missing.ylab) { if (isTRUE(x$exp)) { ylab <- paste0(ifelse(x$method=="REML", "Restricted ", ""), "Likelihood") } else { ylab <- paste0(ifelse(x$method=="REML", "Restricted ", ""), "Log-Likelihood") } } else { ylab <- .expand1(ylab, x$comps) } if (missing.main) { main <- x[[j]]$title } else { main <- .expand1(main, x$comps) } lplot(x[[j]], xlim=xlim, ylim=ylim, pch=pch, xlab=if (missing.xlab) xlab else xlab[j], ylab=if (missing.ylab) ylab else ylab[j], main=if (missing.main) main else main[j], cline=cline, ...) } } } metafor/R/misc.func.hidden.conv.2x2.r0000644000176200001440000001366515160450601017001 0ustar liggesusers############################################################################ .rec2x2diag <- function(sens, spec, ppv, ni, round=TRUE) { #eps <- .Machine$double.eps #eps <- 0 #ai <- ifelse(sens <= 0 + eps | ppv <= 0 + eps, 0, ni * sens * ppv * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec))) #bi <- ifelse(spec >= 1 - eps | ppv >= 1 - eps, 0, ni * sens * (1 - ppv) * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec))) #ci <- ifelse(sens >= 1 - eps | npv >= 1 - eps, 0, ni * (1 - sens) * ppv * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec))) #di <- ifelse(spec <= 0 + eps | npv <= 0 + eps, 0, ni * sens * spec * (1 - ppv) / (sens * (1 - ppv) + ppv * (1 - spec))) ai <- ni * sens * ppv * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec)) bi <- ni * sens * (1 - ppv) * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec)) ci <- ni * (1 - sens) * ppv * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec)) di <- ni * sens * spec * (1 - ppv) / (sens * (1 - ppv) + ppv * (1 - spec)) out <- c(ai, bi, ci, di) if (round) out <- round(out) return(out) } .funconv2x2diag <- function(par, obs, ni, round=FALSE) { if (par[1] * (1 - par[3]) + par[3] * (1 - par[2]) <= .Machine$double.eps) return(10) rec <- .rec2x2diag(sens=par["sens"], spec=par["spec"], ppv=par["ppv"], ni=ni, round=FALSE) if (round) rec <- round(rec) ni.rec <- sum(rec) sens.rec <- rec[1] / (rec[1] + rec[3]) spec.rec <- rec[4] / (rec[2] + rec[4]) ppv.rec <- rec[1] / (rec[1] + rec[2]) npv.rec <- rec[4] / (rec[3] + rec[4]) #loss <- (obs["sens"] - sens.rec)^2 + (obs["spec"] - spec.rec)^2 + (obs["ppv"] - ppv.rec)^2 + (obs["npv"] - npv.rec)^2 loss <- (obs["sens"] - sens.rec)^2 + (obs["spec"] - spec.rec)^2 + (obs["ppv"] - ppv.rec)^2 + (obs["npv"] - npv.rec)^2 + (ni - ni.rec)^2 #loss <- (qlogis(obs["sens"]) - qlogis(sens.rec))^2 + (qlogis(obs["spec"]) - qlogis(spec.rec))^2 + (qlogis(obs["ppv"]) - qlogis(ppv.rec))^2 + (qlogis(obs["npv"]) - qlogis(npv.rec))^2 + (ni - ni.rec)^2 return(loss) } .largestremaindermethod <- function(x, n) { xfloor <- floor(x) remainder <- n - sum(xfloor) x.int <- xfloor if (isTRUE(remainder > 0)) { frac.part <- x - xfloor idx <- order(-frac.part) x.int[idx[seq_len(remainder)]] <- x.int[idx[seq_len(remainder)]] + 1 } return(x.int) } ############################################################################ .rec2x2diagold <- function(sens, spec, ppv, npv, ni, round=TRUE) { # using sens, spec, and ppv (without npv) (this is also used if all four are available) if (!is.na(sens) && !is.na(spec) && !is.na(ppv)) { ai <- ni * sens * ppv * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec)) bi <- ni * sens * (1 - ppv) * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec)) ci <- ni * (1 - sens) * ppv * (1 - spec) / (sens * (1 - ppv) + ppv * (1 - spec)) di <- ni * sens * spec * (1 - ppv) / (sens * (1 - ppv) + ppv * (1 - spec)) } # using sens, spec, and npv (without ppv) if (!is.na(sens) && !is.na(spec) && is.na(ppv) && !is.na(npv)) { ai <- ni * sens * spec * (1 - npv) / (spec * (1 - npv) + (1 - sens) * npv) bi <- ni * (1 - sens) * (1 - spec) * npv / (spec * (1 - npv) + (1 - sens) * npv) ci <- ni * (1 - sens) * spec * (1 - npv) / (spec * (1 - npv) + (1 - sens) * npv) di <- ni * (1 - sens) * spec * npv / (spec * (1 - npv) + (1 - sens) * npv) } # using sens, ppv, and npv (without spec) if (!is.na(sens) && is.na(spec) && !is.na(ppv) && !is.na(npv)) { ai <- ni * sens * ppv * (1 - npv) / (sens * (1 - npv) + ppv * (1 - sens)) bi <- ni * sens * (1 - ppv) * (1 - npv) / (sens * (1 - npv) + ppv * (1 - sens)) ci <- ni * (1 - sens) * ppv * (1 - npv) / (sens * (1 - npv) + ppv * (1 - sens)) di <- ni * (1 - sens) * ppv * npv / (sens * (1 - npv) + ppv * (1 - sens)) } # using spec, ppv, and npv (without sens) if (is.na(sens) && !is.na(spec) && !is.na(ppv) && !is.na(npv)) { ai <- ni * (1 - spec) * ppv * npv / (spec * (1 - ppv) + (1 - spec) * npv) bi <- ni * (1 - spec) * (1 - ppv) * npv / (spec * (1 - ppv) + (1 - spec) * npv) ci <- ni * spec * (1 - ppv) * (1 - npv) / (spec * (1 - ppv) + (1 - spec) * npv) di <- ni * spec * (1 - ppv) * npv / (spec * (1 - ppv) + (1 - spec) * npv) } out <- c(ai, bi, ci, di) if (round) out <- round(out) return(out) } .funconv2x2diagold <- function(par, obs, ni, round=FALSE) { sens <- obs["sens"] spec <- obs["spec"] ppv <- obs["ppv"] npv <- obs["npv"] if (!is.na(sens) && !is.na(spec) && !is.na(ppv) && !is.na(npv)) rec <- .rec2x2diagold(sens=par["sens"], spec=par["spec"], ppv=par["ppv"], npv=par["npv"], ni=ni, round=FALSE) if (!is.na(sens) && !is.na(spec) && !is.na(ppv) && is.na(npv)) rec <- .rec2x2diagold(sens=par["sens"], spec=par["spec"], ppv=par["ppv"], npv=NA, ni=ni, round=FALSE) if (!is.na(sens) && !is.na(spec) && is.na(ppv) && !is.na(npv)) rec <- .rec2x2diagold(sens=par["sens"], spec=par["spec"], ppv=NA, npv=par["npv"], ni=ni, round=FALSE) if (!is.na(sens) && is.na(spec) && !is.na(ppv) && !is.na(npv)) rec <- .rec2x2diagold(sens=par["sens"], spec=NA, ppv=par["ppv"], npv=par["npv"], ni=ni, round=FALSE) if (is.na(sens) && !is.na(spec) && !is.na(ppv) && !is.na(npv)) rec <- .rec2x2diagold(sens=NA, spec=par["spec"], ppv=par["ppv"], npv=par["npv"], ni=ni, round=FALSE) if (round) rec <- round(rec) ni.rec <- sum(rec) sens.rec <- rec[1] / (rec[1] + rec[3]) spec.rec <- rec[4] / (rec[2] + rec[4]) ppv.rec <- rec[1] / (rec[1] + rec[2]) npv.rec <- rec[4] / (rec[3] + rec[4]) loss.sens <- (sens - sens.rec)^2 loss.spec <- (spec - spec.rec)^2 loss.ppv <- (ppv - ppv.rec)^2 loss.npv <- (npv - npv.rec)^2 loss.n <- (ni - ni.rec)^2 loss <- sum(loss.sens, loss.spec, loss.ppv, loss.npv, loss.n, na.rm=TRUE) return(loss) } ############################################################################ metafor/R/aggregate.escalc.r0000644000176200001440000003061715120213572015457 0ustar liggesusersaggregate.escalc <- function(x, cluster, time, obs, V, struct="CS", rho, phi, weighted=TRUE, checkpd=TRUE, fun, na.rm=TRUE, addk=FALSE, subset, select, digits, var.names, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="escalc") if (any(!is.element(struct, c("ID","CS","CAR","CS+CAR","CS*CAR")))) stop(mstyle$stop("Unknown 'struct' specified.")) if (missing(cluster)) stop(mstyle$stop("Must specify the 'cluster' variable.")) na.rm <- .expand1(na.rm, 2L) k <- nrow(x) ######################################################################### ### extract V, cluster, time, and subset variables mf <- match.call() V <- .getx("V", mf=mf, data=x) cluster <- .getx("cluster", mf=mf, data=x) time <- .getx("time", mf=mf, data=x) obs <- .getx("obs", mf=mf, data=x) subset <- .getx("subset", mf=mf, data=x) ######################################################################### ### checks on cluster variable if (anyNA(cluster)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", k, ")."))) ucluster <- unique(cluster) n <- length(ucluster) ######################################################################### if (missing(var.names)) { if (!is.null(attr(x, "yi.names"))) { # if yi.names attributes is available yi.name <- attr(x, "yi.names")[1] # take the first entry to be the yi variable } else { # if not, see if 'yi' is in the object and assume that is the yi variable if (!is.element("yi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'yi' variable.")) yi.name <- "yi" } if (!is.null(attr(x, "vi.names"))) { # if vi.names attributes is available vi.name <- attr(x, "vi.names")[1] # take the first entry to be the vi variable } else { # if not, see if 'vi' is in the object and assume that is the vi variable if (!is.element("vi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'vi' variable.")) vi.name <- "vi" } } else { if (length(var.names) != 2L) stop(mstyle$stop("Argument 'var.names' must be of length 2.")) yi.name <- var.names[1] vi.name <- var.names[2] } yi <- as.vector(x[[yi.name]]) # as.vector() to strip attributes vi <- x[[vi.name]] if (is.null(yi)) stop(mstyle$stop(paste0("Cannot find variable '", yi.name, "' in the data frame."))) if (is.null(vi)) stop(mstyle$stop(paste0("Cannot find variable '", vi.name, "' in the data frame."))) if (!is.numeric(yi)) stop(mstyle$stop(paste0("Variable '", yi.name, "' is not numeric."))) if (!is.numeric(vi)) stop(mstyle$stop(paste0("Variable '", vi.name, "' is not numeric."))) ######################################################################### if (is.null(V)) { ### if V is not specified ### construct V matrix based on the specified structure if (struct=="ID") R <- diag(1, nrow=k, ncol=k) if (is.element(struct, c("CS","CS+CAR","CS*CAR"))) { if (missing(rho)) stop(mstyle$stop("Must specify 'rho' for this var-cov structure.")) rho <- .expand1(rho, n) if (length(rho) != n) stop(mstyle$stop(paste0("Length of 'rho' (", length(rho), ") does not match the number of clusters (", n, ")."))) if (any(rho > 1) || any(rho < -1)) stop(mstyle$stop("Value(s) of 'rho' must be in [-1,1].")) } if (is.element(struct, c("CAR","CS+CAR","CS*CAR"))) { if (missing(phi)) stop(mstyle$stop("Must specify 'phi' for this var-cov structure.")) phi <- .expand1(phi, n) if (length(phi) != n) stop(mstyle$stop(paste0("Length of 'phi' (", length(phi), ") does not match the number of clusters (", n, ")."))) if (any(phi > 1) || any(phi < 0)) stop(mstyle$stop("Value(s) of 'phi' must be in [0,1].")) ### checks on time variable if (!is.element("time", names(mf))) stop(mstyle$stop("Must specify a 'time' variable for this var-cov structure.")) if (length(time) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'time' (", length(time), ") does not match the length of the data (", k, ")."))) if (struct == "CS*CAR") { ### checks on obs variable if (!is.element("obs", names(mf))) stop(mstyle$stop("Must specify an 'obs' variable for this var-cov structure.")) if (length(obs) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'obs' (", length(obs), ") does not match the length of the data (", k, ")."))) } } if (struct=="CS") { R <- matrix(0, nrow=k, ncol=k) for (i in seq_len(n)) { R[cluster == ucluster[i], cluster == ucluster[i]] <- rho[i] } } if (struct == "CAR") { R <- matrix(0, nrow=k, ncol=k) for (i in seq_len(n)) { R[cluster == ucluster[i], cluster == ucluster[i]] <- outer(time[cluster == ucluster[i]], time[cluster == ucluster[i]], function(x,y) phi[i]^(abs(x-y))) } } if (struct == "CS+CAR") { R <- matrix(0, nrow=k, ncol=k) for (i in seq_len(n)) { R[cluster == ucluster[i], cluster == ucluster[i]] <- rho[i] + (1 - rho[i]) * outer(time[cluster == ucluster[i]], time[cluster == ucluster[i]], function(x,y) phi[i]^(abs(x-y))) } } if (struct == "CS*CAR") { R <- matrix(0, nrow=k, ncol=k) for (i in seq_len(n)) { R[cluster == ucluster[i], cluster == ucluster[i]] <- outer(obs[cluster == ucluster[i]], obs[cluster == ucluster[i]], function(x,y) ifelse(x==y, 1, rho[i])) * outer(time[cluster == ucluster[i]], time[cluster == ucluster[i]], function(x,y) phi[i]^(abs(x-y))) } } diag(R) <- 1 S <- .diag(sqrt(as.vector(vi))) V <- S %*% R %*% S } else { ### if V is specified if (.is.vector(V)) { V <- .expand1(V, k) if (length(V) != k) stop(mstyle$stop(paste0("Length of 'V' (", length(V), ") does not match the length of the data frame (", k, ")."))) V <- .diag(as.vector(V)) } if (is.data.frame(V)) V <- as.matrix(V) if (!is.null(dimnames(V))) V <- unname(V) if (!.is.square(V)) stop(mstyle$stop("'V' must be a square matrix.")) if (!isSymmetric(V)) stop(mstyle$stop("'V' must be a symmetric matrix.")) if (nrow(V) != k) stop(mstyle$stop(paste0("Dimensions of 'V' (", nrow(V), "x", ncol(V), ") do not match the length of the data frame (", k, ")."))) ### check that covariances are really 0 for estimates belonging to different clusters ### note: if na.rm[1] is FALSE, there may be missings in V, so skip check in those clusters for (i in seq_len(n)) { if (any(abs(V[cluster == ucluster[i], cluster != ucluster[i]]) >= .Machine$double.eps, na.rm=TRUE)) warning(mstyle$warning(paste0("Estimates in cluster '", ucluster[i], "' appear to have non-zero covariances with estimates belonging to different clusters.")), call.=FALSE) } } ### if 'subset' is not null, apply subset if (!is.null(subset)) { subset <- .chksubset(subset, k) x <- .getsubset(x, subset) yi <- .getsubset(yi, subset) V <- .getsubset(V, subset, col=TRUE) cluster <- .getsubset(cluster, subset) k <- nrow(x) ucluster <- unique(cluster) n <- length(ucluster) if (k == 0L) stop(mstyle$stop("Processing terminated since k == 0.")) } ### remove missings in yi/vi/V if na.rm[1] is TRUE if (na.rm[1]) { has.na <- is.na(yi) | .anyNAv(V) not.na <- !has.na if (any(has.na)) { x <- x[not.na,] yi <- yi[not.na] V <- V[not.na,not.na,drop=FALSE] cluster <- cluster[not.na] } k <- nrow(x) ucluster <- unique(cluster) n <- length(ucluster) if (k == 0L) stop(mstyle$stop("Processing terminated since k == 0.")) } ### check that 'V' is positive definite (in each cluster) if (checkpd) { all.pd <- TRUE for (i in seq_len(n)) { Vi <- V[cluster == ucluster[i], cluster == ucluster[i]] if (!anyNA(Vi) && !.chkpd(Vi)) { all.pd <- FALSE warning(mstyle$warning(paste0("'V' appears to be not positive definite in cluster ", ucluster[i], ".")), call.=FALSE) } } if (!all.pd) stop(mstyle$stop("Cannot aggregate estimates with a non-positive-definite 'V' matrix.")) } ### compute aggregated estimates and corresponding sampling variances yi.agg <- rep(NA_real_, n) vi.agg <- rep(NA_real_, n) for (i in seq_len(n)) { Vi <- V[cluster == ucluster[i], cluster == ucluster[i]] if (weighted) { Wi <- try(chol2inv(chol(Vi)), silent=TRUE) if (inherits(Wi, "try-error")) stop(mstyle$stop(paste0("Cannot take inverse of 'V' in cluster ", ucluster[i], "."))) sumWi <- sum(Wi) yi.agg[i] <- sum(Wi %*% cbind(yi[cluster == ucluster[i]])) / sumWi vi.agg[i] <- 1 / sumWi } else { ki <- sum(cluster == ucluster[i]) yi.agg[i] <- sum(yi[cluster == ucluster[i]]) / ki vi.agg[i] <- sum(Vi) / ki^2 } } if (!missing(fun)) { if (!is.list(fun) || length(fun) != 3 || any(sapply(fun, function(f) !is.function(f)))) stop(mstyle$stop("Argument 'fun' must be a list of functions of length 3.")) fun1 <- fun[[1]] fun2 <- fun[[2]] fun3 <- fun[[3]] } else { fun1 <- function(x) { m <- mean(x, na.rm=na.rm[2]) if (is.nan(m)) NA_real_ else m } fun2 <- fun1 fun3 <- function(x) { if (na.rm[2]) { tab <- table(na.omit(x)) #tab <- table(x, useNA=ifelse(na.rm[2], "no", "ifany")) } else { tab <- table(x, useNA="ifany") } val <- tail(names(sort(tab)), 1) if (is.null(val)) NA_integer_ else val } } ### turn 'cluster' into a factor with the desired levels, such that split() will give the same order fcluster <- factor(cluster, levels=ucluster) xsplit <- split(x, fcluster) xagg <- lapply(xsplit, function(xi) { tmp <- lapply(xi, function(xij) { if (inherits(xij, c("numeric","integer"))) { fun1(xij) } else if (inherits(xij, c("logical"))) { fun2(xij) } else { fun3(xij) } }) as.data.frame(tmp) }) xagg <- do.call(rbind, xagg) ### turn variables that were factors back into factors facs <- sapply(x, is.factor) if (any(facs)) { for (j in which(facs)) { xagg[[j]] <- factor(xagg[[j]]) } } ### put yi.agg and vi.agg into the aggregate data at their respective positions xagg[which(names(xagg) == yi.name)] <- yi.agg xagg[which(names(xagg) == vi.name)] <- vi.agg ### add k per cluster as variable to dataset if (addk) { ki <- sapply(xsplit, nrow) xagg <- cbind(xagg, ki) # this way, an existing 'ki' variable will not be overwritten } ### add back some attributes measure <- attr(x[[yi.name]], "measure") if (is.null(measure)) measure <- "GEN" attr(xagg[[yi.name]], "measure") <- measure attr(xagg, "yi.names") <- yi.name attr(xagg, "vi.names") <- vi.name if (!missing(digits)) { attr(xagg, "digits") <- .get.digits(digits=digits, xdigits=attr(x, "digits"), dmiss=FALSE) } else { attr(xagg, "digits") <- attr(x, "digits") } if (is.null(attr(xagg, "digits"))) # in case x no longer has a 'digits' attribute attr(xagg, "digits") <- 4 class(xagg) <- c("escalc", "data.frame") ### if 'select' is not missing, select variables to include in the output if (!missing(select)) { nl <- as.list(seq_along(x)) names(nl) <- names(x) sel <- eval(substitute(select), nl, parent.frame()) xagg <- xagg[,sel,drop=FALSE] } rownames(xagg) <- NULL return(xagg) } metafor/R/misc.func.hidden.profile.r0000644000176200001440000002702115120213572017051 0ustar liggesusers### for profile(), confint(), and gosh() .profile.rma.uni <- function(val, obj, parallel=FALSE, profile=FALSE, confint=FALSE, subset=FALSE, pred=FALSE, blup=FALSE, newmods=NULL, objective, model=0L, verbose=FALSE, outlist=NULL, code2=NULL) { mstyle <- .get.mstyle() if (parallel == "snow") library(metafor) if (!is.null(code2)) eval(expr = parse(text = code2)) if (profile || confint) { ### for profile and confint, fit model with tau2 fixed to 'val' args <- list(yi=obj$yi, vi=obj$vi, weights=obj$weights, mods=obj$X, intercept=FALSE, method=obj$method, weighted=obj$weighted, test=obj$test, level=obj$level, control=obj$control, tau2=val, skipr2=TRUE, outlist = if (pred || blup) NULL else "minimal") res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) } if (profile) { if (inherits(res, "try-error")) { sav <- list(ll = NA_real_, beta = matrix(NA_real_, nrow=nrow(obj$beta), ncol=1), ci.lb = rep(NA_real_, length(obj$ci.lb)), ci.ub = rep(NA_real_, length(obj$ci.ub)), I2 = NA_real_, H2 = NA_real_) } else { sav <- list(ll = logLik(res), beta = res$beta, ci.lb = res$ci.lb, ci.ub = res$ci.ub, I2=res$I2, H2=res$H2) } if (pred) { predres <- predict(res, newmods=newmods) sav$pred <- predres$pred sav$pred.ci.lb <- predres$ci.lb sav$pred.ci.ub <- predres$ci.ub sav$pred.pi.lb <- predres$pi.lb sav$pred.pi.ub <- predres$pi.ub } if (blup) { # note: already removed NAs and subsetted blupres <- blup(res) sav$blup <- blupres$pred sav$blup.se <- blupres$se sav$blup.pi.lb <- blupres$pi.lb sav$blup.pi.ub <- blupres$pi.ub } } if (confint) { if (inherits(res, "try-error")) { if (verbose) cat(mstyle$verbose(paste("tau2 =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective = NA", "\n"))) stop() } else { sav <- c(-2*(logLik(res) - logLik(obj)) - objective) if (verbose) cat(mstyle$verbose(paste("tau2 =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective =", fmtx(sav, obj$digits[["test"]], addwidth=4), "\n"))) } } if (subset) { ### for subset, fit model to subset as specified by 'val' if (model >= 1L) { # special cases for gosh() for FE and RE+DL models yi <- obj$yi[val] vi <- obj$vi[val] k <- length(yi) wi <- 1/vi sumwi <- sum(wi) est <- sum(wi*yi)/sumwi Q <- 0 I2 <- 0 H2 <- 1 tau2 <- 0 if (k > 1) { Q <- sum(wi * (yi - est)^2) I2 <- max(0, 100 * (Q - (k-1)) / Q) H2 <- Q / (k-1) if (model == 2L) { tau2 <- max(0, (Q - (k-1)) / (sumwi - sum(wi^2)/sumwi)) wi <- 1 / (vi + tau2) est <- sum(wi*yi)/sum(wi) } } sav <- list(beta = est, k = k, QE = Q, I2 = I2, H2 = H2, tau2 = tau2) } else { args <- list(yi=obj$yi, vi=obj$vi, weights=obj$weights, mods=obj$X, intercept=FALSE, method=obj$method, weighted=obj$weighted, test=obj$test, level=obj$level, control=obj$control, tau2=ifelse(obj$tau2.fix, obj$tau2, NA), subset=val, skipr2=TRUE, outlist=outlist) sav <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) } } return(sav) } .profile.rma.mv <- function(val, obj, comp, sigma2.pos, tau2.pos, rho.pos, gamma2.pos, phi.pos, parallel=FALSE, profile=FALSE, confint=FALSE, subset=FALSE, objective, verbose=FALSE, code2=NULL) { mstyle <- .get.mstyle() if (parallel == "snow") library(metafor) if (!is.null(code2)) eval(expr = parse(text = code2)) if (profile || confint) { ### for profile and confint, fit model with component fixed to 'val' ### set any fixed components to their values sigma2.arg <- ifelse(obj$vc.fix$sigma2, obj$sigma2, NA_real_) tau2.arg <- ifelse(obj$vc.fix$tau2, obj$tau2, NA_real_) rho.arg <- ifelse(obj$vc.fix$rho, obj$rho, NA_real_) gamma2.arg <- ifelse(obj$vc.fix$gamma2, obj$gamma2, NA_real_) phi.arg <- ifelse(obj$vc.fix$phi, obj$phi, NA_real_) if (comp == "sigma2") sigma2.arg[sigma2.pos] <- val if (comp == "tau2") tau2.arg[tau2.pos] <- val if (comp == "rho") rho.arg[rho.pos] <- val if (comp == "gamma2") gamma2.arg[gamma2.pos] <- val if (comp == "phi") phi.arg[phi.pos] <- val args <- list(yi=obj$yi, V=obj$V, W=obj$W, mods=obj$X, random=obj$random, struct=obj$struct, intercept=FALSE, data=obj$mf.r, method=obj$method, test=obj$test, dfs=obj$dfs, level=obj$level, R=obj$R, Rscale=obj$Rscale, sigma2=sigma2.arg, tau2=tau2.arg, rho=rho.arg, gamma2=gamma2.arg, phi=phi.arg, sparse=obj$sparse, dist=obj$dist, vccon=obj$vccon, control=obj$control, outlist="minimal") res <- try(suppressWarnings(.do.call(rma.mv, args)), silent=TRUE) } if (profile) { if (inherits(res, "try-error")) { sav <- list(ll = NA_real_, beta = matrix(NA_real_, nrow=nrow(obj$beta), ncol=1), ci.lb = rep(NA_real_, length(obj$ci.lb)), ci.ub = rep(NA_real_, length(obj$ci.ub))) } else { sav <- list(ll = logLik(res), beta = res$beta, ci.lb = res$ci.lb, ci.ub = res$ci.ub) } } if (confint) { if (inherits(res, "try-error")) { if (verbose) cat(mstyle$verbose(paste("val =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective = NA", "\n"))) stop() } else { sav <- c(-2*(logLik(res) - logLik(obj)) - objective) if (verbose) cat(mstyle$verbose(paste("val =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective =", fmtx(sav, obj$digits[["fit"]], addwidth=4), "\n"))) } } return(sav) } .profile.rma.mh <- function(val, obj, parallel=FALSE, subset=FALSE, outlist=NULL, code2=NULL) { if (parallel == "snow") library(metafor) if (subset) { ### for subset, fit model to subset as specified by 'val' if (is.element(obj$measure, c("RR","OR","RD"))) { # obj$outdat.f$ai[obj$not.na] since obj$outlist$ai values may be modified args <- list(ai=obj$outdat.f$ai[obj$not.na], bi=obj$outdat.f$bi[obj$not.na], ci=obj$outdat.f$ci[obj$not.na], di=obj$outdat.f$di[obj$not.na], measure=obj$measure, add=obj$add, to=obj$to, drop00=obj$drop00, correct=obj$correct, level=obj$level, subset=val, outlist=outlist) } else { args <- list(x1i=obj$outdat.f$x1i[obj$not.na], x2i=obj$outdat.f$x2i[obj$not.na], t1i=obj$outdat.f$t1i[obj$not.na], t2i=obj$outdat.f$t2i[obj$not.na], measure=obj$measure, add=obj$add, to=obj$to, drop00=obj$drop00, correct=obj$correct, level=obj$level, subset=val, outlist=outlist) } sav <- try(suppressWarnings(.do.call(rma.mh, args)), silent=TRUE) } return(sav) } .profile.rma.peto <- function(val, obj, parallel=FALSE, subset=FALSE, outlist=NULL, code2=NULL) { if (parallel == "snow") library(metafor) if (subset) { ### for subset, fit model to subset as specified by 'val' args <- list(ai=obj$outdat.f$ai[obj$not.na], bi=obj$outdat.f$bi[obj$not.na], ci=obj$outdat.f$ci[obj$not.na], di=obj$outdat.f$di[obj$not.na], add=obj$add, to=obj$to, drop00=obj$drop00, level=obj$level, subset=val, outlist=outlist) sav <- try(suppressWarnings(.do.call(rma.peto, args)), silent=TRUE) } return(sav) } .profile.rma.uni.selmodel <- function(val, obj, comp, delta.pos, parallel=FALSE, profile=FALSE, confint=FALSE, subset=FALSE, objective, verbose=FALSE, code2=NULL) { mstyle <- .get.mstyle() if (parallel == "snow") library(metafor) if (!is.null(code2)) eval(expr = parse(text = code2)) if (profile || confint) { ### for profile and confint, fit model with component fixed to 'val' ### set any fixed components to their values tau2.arg <- ifelse(is.element(obj$method, c("FE","EE","CE")) || obj$tau2.fix, obj$tau2, NA_real_) delta.arg <- ifelse(obj$delta.fix, obj$delta, NA_real_) if (comp == "tau2") tau2.arg <- val if (comp == "delta") delta.arg[delta.pos] <- val ### reset steps to NA if !stepsspec (some types set steps=0 if steps was not specified) if (!obj$stepsspec) obj$steps <- NA res <- try(suppressWarnings( selmodel(obj, obj$type, alternative=obj$alternative, prec=obj$prec, scaleprec=obj$scaleprec, tau2=tau2.arg, delta=delta.arg, steps=obj$steps, decreasing=obj$decreasing, verbose=FALSE, control=obj$control, skiphes=confint, skiphet=TRUE, defmap=obj$defmap, mapfun=obj$mapfun, mapinvfun=obj$mapinvfun)), silent=TRUE) } if (profile) { if (inherits(res, "try-error")) { sav <- list(ll = NA_real_, beta = matrix(NA_real_, nrow=nrow(obj$beta), ncol=1), ci.lb = rep(NA_real_, length(obj$ci.lb)), ci.ub = rep(NA_real_, length(obj$ci.ub))) } else { sav <- list(ll = logLik(res), beta = res$beta, ci.lb = res$ci.lb, ci.ub = res$ci.ub) } } if (confint) { if (inherits(res, "try-error")) { if (verbose) cat(mstyle$verbose(paste("val =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective = NA", "\n"))) stop() } else { sav <- c(-2*(logLik(res) - logLik(obj)) - objective) if (verbose) cat(mstyle$verbose(paste("val =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective =", fmtx(sav, obj$digits[["fit"]], addwidth=4), "\n"))) } } return(sav) } .profile.rma.ls <- function(val, obj, comp, alpha.pos, parallel=FALSE, profile=FALSE, confint=FALSE, subset=FALSE, objective, verbose=FALSE, code2=NULL) { mstyle <- .get.mstyle() if (parallel == "snow") library(metafor) if (!is.null(code2)) eval(expr = parse(text = code2)) if (profile || confint) { ### for profile and confint, fit model with component fixed to 'val' ### set any fixed components to their values alpha.arg <- ifelse(obj$alpha.fix, obj$alpha, NA_real_) if (comp == "alpha") alpha.arg[alpha.pos] <- val args <- list(yi=obj$yi, vi=obj$vi, weights=obj$weights, mods=obj$X, intercept=FALSE, scale=obj$Z, link=obj$link, method=obj$method, weighted=obj$weighted, test=obj$test, level=obj$level, control=obj$control, skiphes=TRUE, alpha=alpha.arg, outlist="minimal") res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) } if (profile) { if (inherits(res, "try-error")) { sav <- list(ll = NA_real_, beta = matrix(NA_real_, nrow=nrow(obj$beta), ncol=1), ci.lb = rep(NA_real_, length(obj$ci.lb)), ci.ub = rep(NA_real_, length(obj$ci.ub))) } else { sav <- list(ll = logLik(res), beta = res$beta, ci.lb = res$ci.lb, ci.ub = res$ci.ub) } } if (confint) { if (inherits(res, "try-error")) { if (verbose) cat(mstyle$verbose(paste("val =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective = NA", "\n"))) stop() } else { sav <- c(-2*(logLik(res) - logLik(obj)) - objective) if (verbose) cat(mstyle$verbose(paste("val =", fmtx(val, obj$digits[["var"]], addwidth=4), " LRT - objective =", fmtx(sav, obj$digits[["fit"]], addwidth=4), "\n"))) } } return(sav) } metafor/R/plot.cumul.rma.r0000644000176200001440000001611215120213572015152 0ustar liggesusersplot.cumul.rma <- function(x, yaxis, xlim, ylim, xlab, ylab, at, transf, atransf, targs, digits, cols, grid=TRUE, pch=19, cex=1, lwd=2, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="cumul.rma") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) .start.plot() if (missing(cols)) cols <- c(.coladj(par("bg","fg"), dark=0.2, light=-0.2), .coladj(par("bg","fg"), dark=0.8, light=-0.8)) if (missing(yaxis)) { if (is.null(x$tau2)) { yaxis <- "I2" } else { yaxis <- "tau2" } } else { yaxis <- match.arg(yaxis, c("tau2","I2","H2")) if (is.null(x$tau2)) stop(mstyle$stop("Cannot use yaxis=\"tau2\" for equal/fixed-effects models.")) } if (missing(transf)) transf <- FALSE if (missing(atransf)) atransf <- FALSE transf.char <- deparse(transf) atransf.char <- deparse(atransf) if (is.function(transf) && is.function(atransf)) stop(mstyle$stop("Use either 'transf' or 'atransf' to specify a transformation (not both).")) if (missing(xlab)) xlab <- .setlab(x$measure, transf.char, atransf.char, gentype=2) if (missing(ylab)) { if (yaxis == "tau2") #ylab <- "Amount of Heterogeneity (tau^2)" ylab <- expression(paste("Amount of Heterogeneity ", (tau^2))) if (yaxis == "I2") #ylab <- "Percentage of Variability due to Heterogeneity (I^2)" ylab <- expression(paste("Percentage of Variability due to Heterogeneity ", (I^2))) if (yaxis == "H2") #ylab <- "Ratio of Total Variability to Sampling Variability (H^2)" ylab <- expression(paste("Ratio of Total Variability to Sampling Variability ", (H^2))) } par.mar <- par("mar") par.mar.adj <- par.mar + c(0,0.5,0,0) # need a bit more space on the right for the y-axis label par(mar=par.mar.adj) on.exit(par(mar=par.mar), add=TRUE) if (missing(at)) at <- NULL if (missing(targs)) targs <- NULL if (missing(digits)) { if (yaxis == "tau2") digits <- c(2L,3L) if (yaxis == "I2") digits <- c(2L,1L) if (yaxis == "H2") digits <- c(2L,1L) } else { if (length(digits) == 1L) # digits[1] for x-axis labels digits <- c(digits,digits) # digits[2] for y-axis labels } ### note: digits can also be a list (e.g., digits=list(2L,3)); trailing 0's are dropped for integers ddd <- list(...) if (!is.null(ddd$addgrid)) grid <- ddd$addgrid ### grid argument can either be a logical or a color if (is.logical(grid)) gridcol <- .coladj(par("bg","fg"), dark=c(0.2,-0.6), light=c(-0.2,0.6)) if (is.character(grid)) { gridcol <- grid grid <- TRUE } lplot <- function(..., addgrid, at.lab) plot(...) laxis <- function(..., addgrid, at.lab) axis(...) ######################################################################### ### set up data frame with the values to be plotted dat <- data.frame(estim=x$estimate) if (yaxis == "tau2") dat$yval <- x$tau2 if (yaxis == "I2") dat$yval <- x$I2 if (yaxis == "H2") dat$yval <- x$H2 ### apply chosen na.action if (na.act == "na.fail" && anyNA(dat)) stop(mstyle$stop("Missing values in results.")) if (na.act == "na.omit") dat <- na.omit(dat) ### number of remaining rows/points k <- nrow(dat) ### if requested, apply transformation to estimates if (is.function(transf)) { if (is.null(targs)) { dat$estim <- sapply(dat$estim, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) dat$estim <- sapply(dat$estim, transf, targs) } } ### set xlim and ylim values if (missing(xlim)) { xlim <- range(dat$estim, na.rm=TRUE) } else { xlim <- sort(xlim) # just in case the user supplies the limits in the wrong order } if (missing(ylim)) { ylim <- range(dat$yval, na.rm=TRUE) } else { ylim <- sort(ylim) # just in case the user supplies the limits in the wrong order } ### if user has specified 'at' argument, make sure xlim actually contains the min and max 'at' values if (!is.null(at)) { xlim[1] <- min(c(xlim[1], at), na.rm=TRUE) xlim[2] <- max(c(xlim[2], at), na.rm=TRUE) } ### set up plot lplot(NA, NA, xlim=xlim, ylim=ylim, xlab=xlab, ylab=ylab, xaxt="n", yaxt="n", ...) ### generate x-axis positions if none are specified if (is.null(at)) { at <- axTicks(side=1) } else { at <- at[at > par("usr")[1]] at <- at[at < par("usr")[2]] } if (is.null(ddd$at.lab)) { at.lab <- at if (is.function(atransf)) { if (is.null(targs)) { at.lab <- fmtx(sapply(at.lab, atransf), digits[[1]], drop0ifint=TRUE) } else { at.lab <- fmtx(sapply(at.lab, atransf, targs), digits[[1]], drop0ifint=TRUE) } } else { at.lab <- fmtx(at.lab, digits[[1]], drop0ifint=TRUE) } } else { at.lab <- ddd$at.lab } ### add x-axis laxis(side=1, at=at, labels=at.lab, ...) ### add y-axis aty <- axTicks(side=2) laxis(side=2, at=aty, labels=fmtx(aty, digits[[2]], drop0ifint=TRUE), ...) ### add grid if (isTRUE(grid)) { abline(v=at, lty="dotted", col=gridcol) abline(h=aty, lty="dotted", col=gridcol) } ### vector with color gradient for points cols.points <- colorRampPalette(cols)(k) #gray.vals.points <- seq(from=.9, to=.1, length.out=k) #cols.points <- gray(gray.vals.points) #cols <- colorRampPalette(c("yellow","red"))(k) #cols <- colorRampPalette(c("blue","red"))(k) #cols <- rev(heat.colors(k+4))[-c(1:2,(k+1):(k+2)] #cols <- rev(topo.colors(k)) #cols <- rainbow(k, start=.2, end=.4) ### add lines that have a gradient (by interpolating values) ### looks better this way, especially when k is low for (i in seq_len(k-1)) { if (is.na(dat$estim[i]) || is.na(dat$estim[i+1]) || is.na(dat$yval[i]) || is.na(dat$yval[i+1])) next estims <- approx(c(dat$estim[i], dat$estim[i+1]), n=50)$y yvals <- approx(c(dat$yval[i], dat$yval[i+1]), n=50)$y cols.lines <- colorRampPalette(c(cols.points[i], cols.points[i+1]))(50) #gray.vals.lines <- approx(c(gray.vals.points[i], gray.vals.points[i+1]), n=50)$y #cols.lines <- gray(gray.vals.lines) segments(estims[-50], yvals[-50], estims[-1], yvals[-1], col=cols.lines, lwd=lwd, ...) } ### add lines (this does no interpolation) #segments(dat$estim[-k], dat$yval[-k], dat$estim[-1], dat$yval[-1], col=cols.points, lwd=lwd) ### add points points(x=dat$estim, y=dat$yval, pch=pch, col=cols.points, cex=cex, ...) ### redraw box around plot box(...) ### return data frame invisibly dat$col <- cols.points invisible(dat) } metafor/R/qqnorm.rma.uni.r0000644000176200001440000001371215120213572015162 0ustar liggesusersqqnorm.rma.uni <- function(y, type="rstandard", pch=21, col, bg, grid=FALSE, envelope=TRUE, level=y$level, bonferroni=FALSE, reps=1000, smooth=TRUE, bass=0, label=FALSE, offset=0.3, pos=13, lty, ...) { mstyle <- .get.mstyle() .chkclass(class(y), must="rma.uni", notav=c("rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) x <- y type <- match.arg(type, c("rstandard", "rstudent")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (length(label) != 1L) stop(mstyle$stop("Argument 'label' should be of length 1.")) .start.plot() envelopecol <- .coladj(par("bg","fg"), dark=0.15, light=-0.15) if (label == "out" && is.logical(envelope)) envelope <- TRUE if (is.logical(envelope)) draw.envelope <- envelope if (is.character(envelope)) { envelopecol <- envelope draw.envelope <- TRUE } if (missing(col)) col <- par("fg") if (missing(bg)) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) if (is.logical(grid)) gridcol <- .coladj(par("bg","fg"), dark=c(0.2,-0.6), light=c(-0.2,0.6)) if (is.character(grid)) { gridcol <- grid grid <- TRUE } if (missing(lty)) { lty <- c("solid", "dotted") # 1st value = diagonal line, 2nd value = pseudo confidence envelope } else { if (length(lty) == 1L) lty <- c(lty, lty) } ddd <- list(...) lqqnorm <- function(..., seed) qqnorm(...) lpoints <- function(..., seed) points(...) labline <- function(..., seed) abline(...) lpolygon <- function(..., seed) polygon(...) llines <- function(..., seed) lines(...) lbox <- function(..., seed) box(...) ltext <- function(..., seed) text(...) ######################################################################### if (type == "rstandard") { res <- rstandard(x) not.na <- !is.na(res$z) zi <- res$z[not.na] slab <- res$slab[not.na] ord <- order(zi) slab <- slab[ord] } else { res <- rstudent(x) not.na <- !is.na(res$z) zi <- res$z[not.na] slab <- res$slab[not.na] ord <- order(zi) slab <- slab[ord] } sav <- lqqnorm(zi, pch=pch, col=col, bg=bg, bty="l", ...) ######################################################################### ### construct simulation based pseudo confidence envelope if (draw.envelope) { level <- .level(level) if (!is.null(ddd$seed)) set.seed(ddd$seed) dat <- matrix(rnorm(x$k*reps), nrow=x$k, ncol=reps) options(na.action="na.omit") H <- hatvalues(x, type="matrix") options(na.action = na.act) ImH <- diag(x$k) - H ei <- ImH %*% dat ei <- apply(ei, 2, sort) if (bonferroni) { lb <- apply(ei, 1, quantile, (level/2)/x$k) # consider using rowQuantiles() from matrixStats package ub <- apply(ei, 1, quantile, 1-(level/2)/x$k) # consider using rowQuantiles() from matrixStats package } else { lb <- apply(ei, 1, quantile, (level/2)) # consider using rowQuantiles() from matrixStats package ub <- apply(ei, 1, quantile, 1-(level/2)) # consider using rowQuantiles() from matrixStats package } temp.lb <- qqnorm(lb, plot.it=FALSE) temp.ub <- qqnorm(ub, plot.it=FALSE) if (smooth) { temp.lb <- supsmu(temp.lb$x, temp.lb$y, bass=bass) temp.ub <- supsmu(temp.ub$x, temp.ub$y, bass=bass) } if (draw.envelope) { lpolygon(c(temp.lb$x,rev(temp.ub$x)), c(temp.lb$y,rev(temp.ub$y)), col=envelopecol, border=NA, ...) llines(temp.lb$x, temp.lb$y, lty=lty[2], ...) llines(temp.ub$x, temp.ub$y, lty=lty[2], ...) } } ### add grid (and redraw box) if (isTRUE(grid)) { grid(col=gridcol) lbox(..., bty="l") } ### draw the diagonal line labline(a=0, b=1, lty=lty[1], ...) #qqline(zi, ...) #abline(h=0, lty="dotted", ...) #abline(v=0, lty="dotted", ...) ### add the points lpoints(sav$x, sav$y, pch=pch, col=col, bg=bg, ...) ######################################################################### ### labeling of points if ((is.character(label) && label=="none") || isFALSE(label)) return(invisible(sav)) if ((is.character(label) && label=="all") || isTRUE(label)) label <- x$k if (is.numeric(label)) { label <- round(label) if (label < 1 | label > x$k) stop(mstyle$stop("Out of range value for 'label' argument.")) pos.x <- sav$x[ord] pos.y <- sav$y[ord] dev <- abs(pos.x - pos.y) for (i in seq_len(x$k)) { if (sum(dev > dev[i]) < label) { if (pos <= 4) ltext(pos.x[i], pos.y[i], slab[i], pos=pos, offset=offset, ...) if (pos == 13) ltext(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] >= 0, 1, 3), offset=offset, ...) if (pos == 24) ltext(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] <= 0, 2, 4), offset=offset, ...) #ltext(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i] >= 0, 2, 4), offset=offset, ...) } } } else { pos.x <- sav$x[ord] pos.y <- sav$y[ord] for (i in seq_len(x$k)) { if (pos.y[i] < temp.lb$y[i] || pos.y[i] > temp.ub$y[i]) { if (pos <= 4) ltext(pos.x[i], pos.y[i], slab[i], pos=pos, offset=offset, ...) if (pos == 13) ltext(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] >= 0, 1, 3), offset=offset, ...) if (pos == 24) ltext(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] <= 0, 2, 4), offset=offset, ...) } } } ######################################################################### #if (envelope) { # invisible(list(pts=sav, ci.lb=temp.lb, ci.ub=temp.ub)) #} else { # invisible(sav) #} invisible(sav) } metafor/R/coef.permutest.rma.uni.r0000644000176200001440000000173615120213572016613 0ustar liggesuserscoef.permutest.rma.uni <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="permutest.rma.uni") x <- object if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=x$beta, se=x$se, tval=x$zval, df=x$ddf, pval=x$pval, ci.lb=x$ci.lb, ci.ub=x$ci.ub) } else { res.table <- data.frame(estimate=x$beta, se=x$se, zval=x$zval, pval=x$pval, ci.lb=x$ci.lb, ci.ub=x$ci.ub) } if (inherits(x, "permutest.rma.ls")) { if (is.element(x$test, c("knha","adhoc","t"))) { res.table.alpha <- data.frame(estimate=x$alpha, se=x$se.alpha, tval=x$zval.alpha, df=x$ddf.alpha, pval=x$pval.alpha, ci.lb=x$ci.lb.alpha, ci.ub=x$ci.ub.alpha) } else { res.table.alpha <- data.frame(estimate=x$alpha, se=x$se.alpha, zval=x$zval.alpha, pval=x$pval.alpha, ci.lb=x$ci.lb.alpha, ci.ub=x$ci.ub.alpha) } res.table <- list(beta=res.table, alpha=res.table.alpha) } return(res.table) } metafor/R/gosh.r0000644000176200001440000000005615120213572013232 0ustar liggesusersgosh <- function(x, ...) UseMethod("gosh") metafor/R/robust.rma.mv.r0000644000176200001440000002477615120213572015026 0ustar liggesusersrobust.rma.mv <- function(x, cluster, adjust=TRUE, clubSandwich=FALSE, digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.mv") if (is.null(x$yi) || is.null(x$X)) stop(mstyle$stop("Information needed for the method is not available in the model object.")) if (missing(cluster)) stop(mstyle$stop("Must specify the 'cluster' variable.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } level <- .level(x$level) ddd <- list(...) .chkdots(ddd, c("vcov", "coef_test", "conf_test", "wald_test", "verbose")) ######################################################################### ### process cluster variable ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster <- cluster[x$not.na] if (anyNA(cluster)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster) == 0L) stop(mstyle$stop("Cannot find 'cluster' variable (or it has zero length).")) ### number of clusters n <- length(unique(cluster)) ### compute degrees of freedom ### note: Stata with vce(robust) also uses n-p as the dfs, but with vce(cluster ) always uses n-1 (which seems inconsistent) dfs <- n - x$p ### check if dfs are positive (note: this also handles the case where there is a single cluster) if (!clubSandwich && dfs <= 0) stop(mstyle$stop(paste0("Number of clusters (", n, ") must be larger than the number of fixed effects (", x$p, ")."))) ### use clubSandwich if requested to do so if (clubSandwich) { if (!suppressMessages(requireNamespace("clubSandwich", quietly=TRUE))) stop(mstyle$stop("Please install the 'clubSandwich' package to make use of its methods.")) ### check for vcov, coef_test, conf_test, and wald_test arguments in ... and set values accordingly ddd$vcov <- .chkddd(ddd$vcov, "CR2", match.arg(ddd$vcov, c("CR0", "CR1", "CR1p", "CR1S", "CR2", "CR3"))) ddd$coef_test <- .chkddd(ddd$coef_test, "Satterthwaite", match.arg(ddd$coef_test, c("z", "naive-t", "naive-tp", "Satterthwaite", "saddlepoint"))) if (is.null(ddd$conf_test)) { ddd$conf_test <- ddd$coef_test if (ddd$conf_test == "saddlepoint") { ddd$conf_test <- "Satterthwaite" warning(mstyle$warning("Cannot use 'saddlepoint' for conf_test() - using 'Satterthwaite' instead."), call.=FALSE) } } else { ddd$conf_test <- match.arg(ddd$conf_test, c("z", "naive-t", "naive-tp", "Satterthwaite")) } ddd$wald_test <- .chkddd(ddd$wald_test, "HTZ", match.arg(ddd$wald_test, c("chi-sq", "Naive-F", "Naive-Fp", "HTA", "HTB", "HTZ", "EDF", "EDT"))) ### calculate cluster-robust var-cov matrix of the estimated fixed effects vb <- try(clubSandwich::vcovCR(x, cluster=cluster, type=ddd$vcov), silent=!isTRUE(ddd$verbose)) if (inherits(vb, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust variance-covariance matrix (use verbose=TRUE for more details).")) #meat <- try(clubSandwich::vcovCR(x, cluster=cluster, type=ddd$vcov, form="meat"), silent=!isTRUE(ddd$verbose)) meat <- NA_real_ ### obtain cluster-robust inferences cs.coef <- try(clubSandwich::coef_test(x, cluster=cluster, vcov=vb, test=ddd$coef_test, p_values=TRUE), silent=!isTRUE(ddd$verbose)) if (inherits(cs.coef, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust tests (use verbose=TRUE for more details).")) cs.conf <- try(clubSandwich::conf_int(x, cluster=cluster, vcov=vb, test=ddd$conf_test, level=1-level), silent=!isTRUE(ddd$verbose)) if (inherits(cs.conf, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust confidence intervals (use verbose=TRUE for more details).")) if (x$int.only) { cs.wald <- NA_real_ } else { cs.wald <- try(clubSandwich::Wald_test(x, cluster=cluster, vcov=vb, test=ddd$wald_test, constraints=clubSandwich::constrain_zero(x$btt)), silent=!isTRUE(ddd$verbose)) if (inherits(cs.wald, "try-error")) { warning(mstyle$warning("Could not obtain the cluster-robust omnibus Wald test (use verbose=TRUE for more details)."), call.=FALSE) cs.wald <- list(Fstat=NA_real_, df_num=NA_integer_, df_denom=NA_real_) } } #return(list(coef_test=cs.coef, conf_int=cs.conf, Wald_test=cs.wald)) vbest <- ddd$vcov beta <- x$beta se <- cs.coef$SE zval <- ifelse(is.infinite(cs.coef$tstat), NA_real_, cs.coef$tstat) pval <- switch(ddd$coef_test, "z" = cs.coef$p_z, "naive-t" = cs.coef$p_t, "naive-tp" = cs.coef$p_tp, "Satterthwaite" = cs.coef$p_Satt, "saddlepoint" = cs.coef$p_saddle) dfs <- switch(ddd$coef_test, "z" = cs.coef$df_z, "naive-t" = cs.coef$df_t, "naive-tp" = cs.coef$df_tp, "Satterthwaite" = cs.coef$df, "saddlepoint" = NA_real_) dfs <- ifelse(is.na(dfs), NA_real_, dfs) # ifelse() part to change NaN into just NA ci.lb <- ifelse(is.na(cs.conf$CI_L), NA_real_, cs.conf$CI_L) # note: if ddd$coef_test != ddd$conf_test, dfs for CI may be different ci.ub <- ifelse(is.na(cs.conf$CI_U), NA_real_, cs.conf$CI_U) if (x$int.only) { QM <- max(0, zval^2) QMdf <- c(1, dfs) QMp <- pval } else { QM <- max(0, cs.wald$Fstat) QMdf <- c(cs.wald$df_num, max(0, cs.wald$df_denom)) QMp <- cs.wald$p_val } x$sandwiches <- list(coef_test=cs.coef, conf_int=cs.conf, Wald_test=cs.wald) x$coef_test <- ddd$coef_test x$conf_test <- ddd$conf_test x$wald_test <- ddd$wald_test cluster.o <- cluster } else { ### note: since we use split() below and then put things back together into a block-diagonal matrix, ### we have to make sure everything is properly ordered by the cluster variable; otherwise, the 'meat' ### block-diagonal matrix is not in the same order as the rest; so we sort all relevant variables by ### the cluster variable (including the cluster variable itself) ocl <- order(cluster) cluster.o <- cluster[ocl] ### construct bread = (X'WX)^-1 X'W, where W is the weight matrix if (is.null(x$W)) { ### if no weights were specified, then vb = (X'WX)^-1, so we can use that part W <- try(chol2inv(chol(x$M[ocl,ocl])), silent=TRUE) if (inherits(W, "try-error")) stop(mstyle$stop("Cannot invert marginal var-cov matrix.")) bread <- x$vb %*% crossprod(x$X[ocl,], W) } else { ### if weights were specified, then vb cannot be used A <- x$W[ocl,ocl] stXAX <- chol2inv(chol(as.matrix(t(x$X[ocl,]) %*% A %*% x$X[ocl,]))) # as.matrix() to avoid some issues with the matrix being not symmetric (when it must be) bread <- stXAX %*% crossprod(x$X[ocl,], A) } ### construct meat part ei <- c(x$yi - x$X %*% x$beta) # use this instead of resid(), since this guarantees that the length is correct ei <- ei[ocl] cluster.o <- factor(cluster.o, levels=unique(cluster.o)) if (x$sparse) { meat.o <- bdiag(lapply(split(ei, cluster.o), function(e) tcrossprod(e))) } else { meat.o <- bldiag(lapply(split(ei, cluster.o), function(e) tcrossprod(e))) } ### construct robust var-cov matrix vb <- bread %*% meat.o %*% t(bread) ### apply adjustments to vb as needed vbest <- "CR0" ### suggested in Hedges, Tipton, & Johnson (2010) -- analogous to HC1 adjustment if (isTRUE(adjust)) { vb <- (n / dfs) * vb vbest <- "CR1" } ### what Stata does if (is.character(adjust) && (adjust=="Stata" || adjust=="Stata1")) { vb <- (n / (n-1) * (x$k-1) / (x$k-x$p)) * vb # when the model was fitted with regress vbest <- "CR1.S1" } if (is.character(adjust) && adjust=="Stata2") { vb <- (n / (n-1)) * vb # when the model was fitted with mixed vbest <- "CR1.S2" } ### dim(vb) is pxp and not sparse, so this won't blow up ### as.matrix() helps to avoid some issues with 'vb' appearing as non-symmetric (when it must be) if (x$sparse) vb <- as.matrix(vb) ### check for elements in vb that are essentially 0 is0 <- diag(vb) < 100 * .Machine$double.eps vb[is0,] <- NA_real_ vb[,is0] <- NA_real_ ### prepare results beta <- x$beta se <- sqrt(diag(vb)) names(se) <- NULL zval <- c(beta/se) pval <- 2*pt(abs(zval), df=dfs, lower.tail=FALSE) crit <- qt(level/2, df=dfs, lower.tail=FALSE) ci.lb <- c(beta - crit * se) ci.ub <- c(beta + crit * se) QM <- try(as.vector(t(beta)[x$btt] %*% chol2inv(chol(vb[x$btt,x$btt])) %*% beta[x$btt]), silent=TRUE) if (inherits(QM, "try-error") || is.na(QM)) { warning(mstyle$warning("Could not obtain the cluster-robust omnibus Wald test."), call.=FALSE) QM <- NA_real_ } QM <- QM / x$m # note: m is the number of coefficients in btt, not the number of clusters QMdf <- c(x$m, dfs) QMp <- pf(QM, df1=x$m, df2=dfs, lower.tail=FALSE) ### don't need this anymore at the moment meat <- matrix(NA_real_, nrow=nrow(meat.o), ncol=ncol(meat.o)) meat[ocl,ocl] <- as.matrix(meat.o) } ######################################################################### ### table of cluster variable tcl <- table(cluster.o) x$digits <- digits ### replace elements with robust results x$ddf <- dfs x$dfs <- dfs x$vb <- vb x$se <- se x$zval <- zval x$pval <- pval x$ci.lb <- ci.lb x$ci.ub <- ci.ub x$QM <- QM x$QMdf <- QMdf x$QMp <- QMp x$n <- n x$tcl <- tcl x$test <- "t" x$vbest <- vbest x$s2w <- 1 x$robumethod <- ifelse(clubSandwich, "clubSandwich", "default") x$cluster <- cluster x$meat <- meat class(x) <- c("robust.rma", "rma", "rma.mv") return(x) } metafor/R/print.list.anova.rma.r0000644000176200001440000000200315120213572016253 0ustar liggesusersprint.list.anova.rma <- function(x, digits=x[[1]]$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="list.anova.rma") digits <- .get.digits(digits=digits, xdigits=x[[1]]$digits, dmiss=FALSE) .space() res.table <- as.data.frame(x) if ("QM" %in% names(res.table)) res.table$QM <- fmtx(res.table$QM, digits[["test"]]) if ("QS" %in% names(res.table)) res.table$QS <- fmtx(res.table$QS, digits[["test"]]) if ("Fval" %in% names(res.table)) res.table$Fval <- fmtx(res.table$Fval, digits[["test"]]) signif <- symnum(res.table$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) res.table$pval <- fmtp(res.table$pval, digits[["pval"]]) if (getOption("show.signif.stars")) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) .space() invisible() } metafor/R/trimfill.rma.uni.r0000644000176200001440000001376715120213572015501 0ustar liggesuserstrimfill.rma.uni <- function(x, side, estimator="L0", maxiter=100, verbose=FALSE, ilim, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed for trim-and-fill method is not available in the model object.")) if (!x$int.only) stop(mstyle$stop("Trim-and-fill method only applicable to models without moderators.")) if (missing(side)) side <- NULL estimator <- match.arg(estimator, c("L0", "R0", "Q0")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) ######################################################################### yi <- x$yi vi <- x$vi wi <- x$weights ni <- x$ni ### determine side (if none is specified) if (is.null(side)) { args <- list(yi=yi, vi=vi, weights=wi, mods=sqrt(vi), method=x$method, weighted=x$weighted, control=x$control, outlist="beta=beta", ...) res <- suppressWarnings(.do.call(rma.uni, args)) ### TODO: add check in case there are problems with fitting the model if (res$beta[2] < 0) { side <- "right" } else { side <- "left" } } else { side <- match.arg(side, c("left", "right")) } ### flip data if examining right side if (side == "right") yi <- -1*yi ### sort data by increasing yi ix <- sort(yi, index.return=TRUE)$ix yi <- yi[ix] vi <- vi[ix] wi <- wi[ix] ni <- ni[ix] ######################################################################### k <- length(yi) k0.sav <- -1 k0 <- 0 # estimated number of missing studies iter <- 0 # iteration counter if (verbose) cat("\n") while (abs(k0 - k0.sav) > 0) { k0.sav <- k0 # save current value of k0 iter <- iter + 1 if (iter > maxiter) stop(mstyle$stop("Trim and fill algorithm did not converge.")) ### truncated data yi.t <- yi[seq_len(k-k0)] vi.t <- vi[seq_len(k-k0)] wi.t <- wi[seq_len(k-k0)] args <- list(yi=yi.t, vi=vi.t, weights=wi.t, method=x$method, weighted=x$weighted, control=x$control, outlist="beta=beta", ...) res <- suppressWarnings(.do.call(rma.uni, args)) ### intercept estimate based on truncated data beta <- c(res$beta) yi.c <- yi - beta # centered values yi.c.r <- rank(abs(yi.c), ties.method="first") # ranked absolute centered values yi.c.r.s <- sign(yi.c) * yi.c.r # signed ranked centered values ### estimate the number of missing studies with the R0 estimator if (estimator == "R0") { k0 <- (k - max(-1*yi.c.r.s[yi.c.r.s < 0])) - 1 se.k0 <- sqrt(2*max(0,k0) + 2) } ### estimate the number of missing studies with the L0 estimator if (estimator == "L0") { Sr <- sum(yi.c.r.s[yi.c.r.s > 0]) k0 <- (4*Sr - k*(k+1)) / (2*k - 1) varSr <- 1/24 * (k*(k+1)*(2*k+1) + 10*k0^3 + 27*k0^2 + 17*k0 - 18*k*k0^2 - 18*k*k0 + 6*k^2*k0) se.k0 <- 4*sqrt(varSr) / (2*k - 1) } ### estimate the number of missing studies with the Q0 estimator if (estimator == "Q0") { Sr <- sum(yi.c.r.s[yi.c.r.s > 0]) k0 <- k - 1/2 - sqrt(2*k^2 - 4*Sr + 1/4) varSr <- 1/24 * (k*(k+1)*(2*k+1) + 10*k0^3 + 27*k0^2 + 17*k0 - 18*k*k0^2 - 18*k*k0 + 6*k^2*k0) se.k0 <- 2*sqrt(varSr) / sqrt((k-1/2)^2 - k0*(2*k - k0 -1)) } ### round k0 and make sure that k0 is non-negative k0 <- max(0, round(k0)) se.k0 <- max(0, se.k0) if (verbose) cat(mstyle$verbose(paste0("Iteration: ", fmtx(iter, 0, addwidth=nchar(maxiter), flag="-"), " missing = ", fmtx(k0, 0, addwidth=nchar(k), flag="-"), " beta = ", fmtx(ifelse(side == "right", -1*beta, beta), x$digits[["est"]]), "\n"))) } ######################################################################### ### if estimated number of missing studies is > 0 if (k0 > 0) { ### flip data back if side is right if (side == "right") { yi.c <- -1 * (yi.c - beta) } else { yi.c <- yi.c - beta } ### create filled-in data set yi.fill <- c(x$yi.f, -1*yi.c[(k-k0+1):k]) ### apply limits if specified if (!missing(ilim)) { ilim <- sort(ilim) if (length(ilim) != 2L) stop(mstyle$stop("Argument 'ilim' must be of length 2.")) yi.fill[yi.fill < ilim[1]] <- ilim[1] yi.fill[yi.fill > ilim[2]] <- ilim[2] } vi.fill <- c(x$vi.f, vi[(k-k0+1):k]) wi.fill <- c(x$weights.f, wi[(k-k0+1):k]) ni.fill <- c(x$ni.f, ni[(k-k0+1):k]) ### add measure attribute to the yi.fill vector attr(yi.fill, "measure") <- x$measure ### fit model with imputed data args <- list(yi=yi.fill, vi=vi.fill, weights=wi.fill, ni=ni.fill, method=x$method, weighted=x$weighted, digits=x$digits, ...) res <- suppressWarnings(.do.call(rma.uni, args)) ### fill, ids, and slab are of length 'k.f + k0' (i.e., subsetted but with NAs) res$fill <- c(rep(FALSE,x$k.f), rep(TRUE,k0)) res$ids <- c(x$ids, (max(x$ids)+1):(max(x$ids)+k0)) if (x$slab.null) { res$slab <- c(paste("Study", x$ids), paste("Filled", seq_len(k0))) } else { res$slab <- c(x$slab, paste("Filled", seq_len(k0))) } res$slab.null <- FALSE } else { ### in case 0 studies are imputed res <- x res$fill <- rep(FALSE,k) } res$k0 <- k0 res$se.k0 <- se.k0 res$side <- side res$k0.est <- estimator res$k.all <- x$k.all + k0 if (estimator == "R0") { m <- -1:(k0-1) res$p.k0 <- 1 - sum(choose(0+m+1, m+1) * 0.5^(0+m+2)) } else { res$p.k0 <- NA_real_ } class(res) <- c("rma.uni.trimfill", class(res)) return(res) } metafor/R/baujat.rma.r0000644000176200001440000001321615120213572014320 0ustar liggesusersbaujat.rma <- function(x, xlim, ylim, xlab, ylab, cex, symbol="ids", grid=TRUE, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma", notav=c("rma.glmm", "rma.mv", "robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (is.null(x$X.f)) stop(mstyle$stop("Information needed to construct the plot is not available in the model object.")) .start.plot() ### grid argument can either be a logical or a color if (is.logical(grid)) gridcol <- .coladj(par("bg","fg"), dark=c(0.2,-0.6), light=c(-0.2,0.6)) if (is.character(grid)) { gridcol <- grid grid <- TRUE } ddd <- list(...) lplot <- function(..., code1, code2) plot(...) lbox <- function(..., code1, code2) box(...) lpoints <- function(..., code1, code2) points(...) ltext <- function(..., code1, code2) text(...) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### ### set up vectors to store results in delpred <- rep(NA_real_, x$k.f) vdelpred <- rep(NA_real_, x$k.f) ### predicted values under the full model pred.full <- x$X.f %*% x$beta ### elements that need to be returned outlist <- "coef.na=coef.na, beta=beta, vb=vb" ### note: skipping NA cases ### also: it is possible that model fitting fails, so that generates more NAs (these NAs will always be shown in output) if (progbar) pbar <- pbapply::startpb(min=0, max=x$k.f) for (i in seq_len(x$k.f)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) if (!x$not.na[i]) next if (inherits(x, "rma.uni")) res <- try(suppressWarnings(.do.call(rma.uni, yi=x$yi.f, vi=x$vi.f, weights=x$weights.f, mods=x$X.f, intercept=FALSE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, subset=-i, skipr2=TRUE, outlist=outlist)), silent=TRUE) if (inherits(x, "rma.mh")) { if (is.element(x$measure, c("RR","OR","RD"))) { res <- try(suppressWarnings(.do.call(rma.mh, ai=x$outdat.f$ai, bi=x$outdat.f$bi, ci=x$outdat.f$ci, di=x$outdat.f$di, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=-i, outlist=outlist)), silent=TRUE) } else { res <- try(suppressWarnings(.do.call(rma.mh, x1i=x$outdat.f$x1i, x2i=x$outdat.f$x2i, t1i=x$outdat.f$t1i, t2i=x$outdat.f$t2i, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=-i, outlist=outlist)), silent=TRUE) } } if (inherits(x, "rma.peto")) res <- try(suppressWarnings(.do.call(rma.peto, ai=x$outdat.f$ai, bi=x$outdat.f$bi, ci=x$outdat.f$ci, di=x$outdat.f$di, add=x$add, to=x$to, drop00=x$drop00, level=x$level, subset=-i)), silent=TRUE) if (inherits(res, "try-error")) next ### removing an observation could lead to a model coefficient becoming inestimable (for 'rma.uni' objects) if (any(res$coef.na)) next Xi <- matrix(x$X.f[i,], nrow=1) delpred[i] <- Xi %*% res$beta vdelpred[i] <- Xi %*% tcrossprod(res$vb,Xi) } if (progbar) pbapply::closepb(pbar) yhati <- (delpred - pred.full)^2 / vdelpred ######################################################################### ### x-axis values (use 'na.pass' to make sure we get a vector of length k.f) options(na.action = "na.pass") xhati <- resid(x)^2 / (x$tau2.f + x$vi.f) options(na.action = na.act) ######################################################################### ### set some defaults (if not specified) if (missing(cex)) cex <- par("cex") * 0.8 if (missing(xlab)) { if (is.element(x$method, c("FE","EE","CE"))) { xlab <- ifelse(x$int.only, "Contribution to Overall Heterogeneity", "Contribution to Residual Heterogeneity") } else { xlab <- "Squared Pearson Residual" } } if (missing(ylab)) ylab <- ifelse(x$int.only, "Influence on Overall Result", "Influence on Fitted Value") if (missing(xlim)) xlim <- range(xhati, na.rm=TRUE) if (missing(ylim)) ylim <- range(yhati, na.rm=TRUE) ######################################################################### ### draw empty plot lplot(NA, xlab=xlab, ylab=ylab, xlim=xlim, ylim=ylim, ...) ### add grid (and redraw box) if (isTRUE(grid)) { grid(col=gridcol) lbox(...) } if (is.numeric(symbol)) { symbol <- .expand1(symbol, x$k.all) if (length(symbol) != x$k.all) stop(mstyle$stop(paste0("Length of the 'symbol' argument (", length(symbol), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) symbol <- .getsubset(symbol, x$subset) lpoints(x=xhati, y=yhati, cex=cex, pch=symbol, ...) } if (is.character(symbol) && symbol=="ids") ltext(xhati, yhati, x$ids, cex=cex, ...) if (is.character(symbol) && symbol=="slab") ltext(xhati, yhati, x$slab, cex=cex, ...) ######################################################################### sav <- data.frame(x=xhati[x$not.na], y=yhati[x$not.na], ids=x$ids[x$not.na], slab=x$slab[x$not.na], stringsAsFactors=FALSE) invisible(sav) } metafor/R/blsplit.r0000644000176200001440000000214015120213572013737 0ustar liggesusersblsplit <- function(x, cluster, fun, args, sort=FALSE) { mstyle <- .get.mstyle() if (missing(cluster)) stop(mstyle$stop("Must specify the 'cluster' variable.")) if (!is.matrix(x) && !inherits(x, "dgCMatrix")) stop(mstyle$stop("Argument 'x' must be a matrix.")) if (!isSymmetric(x)) stop(mstyle$stop("Argument 'x' must be a symmetric matrix.")) k <- nrow(x) if (length(cluster) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not correspond to the dimensions of the matrix (", k, "x", k, ")."))) res <- list() clusters <- unique(cluster) if (sort) clusters <- sort(clusters) for (i in seq_along(clusters)) { res[[i]] <- x[cluster == clusters[i], cluster == clusters[i], drop=FALSE] } names(res) <- clusters if (!missing(fun)) { if (missing(args)) { res <- lapply(res, fun) } else { args <- as.list(args) for (i in 1:length(res)) { res[[i]] <- do.call(fun, c(unname(res[i]), args)) } } } return(res) } metafor/R/reporter.r0000644000176200001440000000006615120213572014135 0ustar liggesusersreporter <- function(x, ...) UseMethod("reporter") metafor/R/dfbetas.rma.mv.r0000644000176200001440000001225315120213572015103 0ustar liggesusersdfbetas.rma.mv <- function(model, progbar=FALSE, cluster, reestimate=TRUE, parallel="no", ncpus=1, cl, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.mv", notav="robust.rma") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) x <- model parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } misscluster <- ifelse(missing(cluster), TRUE, FALSE) if (misscluster) { cluster <- seq_len(x$k.all) } else { mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) } ddd <- list(...) .chkdots(ddd, c("time", "LB", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### process cluster variable ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster.f <- cluster cluster <- cluster[x$not.na] ### checks on cluster variable if (anyNA(cluster.f)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster.f) == 0L) stop(mstyle$stop(paste0("Cannot find 'cluster' variable (or it has zero length)."))) ### cluster ids and number of clusters ids <- unique(cluster) n <- length(ids) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### if (parallel == "no") res <- pbapply::pblapply(seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) if (parallel == "multicore") res <- pbapply::pblapply(seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2, mc.cores=ncpus) if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) #res <- parallel::clusterApplyLB(cl, seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) } else { res <- pbapply::pblapply(seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) #res <- parallel::clusterApply(cl, seq_len(n), .dfbetas.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) } } dfbs <- lapply(res, function(x) x$dfbs) dfbs <- do.call(rbind, dfbs) ######################################################################### if (na.act == "na.omit") { out <- dfbs if (misscluster) { rownames(out) <- x$slab[x$not.na] } else { rownames(out) <- ids out <- out[order(ids),,drop=FALSE] } } if (na.act == "na.exclude" || na.act == "na.pass") { ids.f <- unique(cluster.f) out <- matrix(NA_real_, nrow=length(ids.f), ncol=x$p) out[match(ids, ids.f),] <- dfbs if (misscluster) { rownames(out) <- x$slab } else { rownames(out) <- ids.f out <- out[order(ids.f),,drop=FALSE] } } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) colnames(out) <- rownames(x$beta) out <- data.frame(out) if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } return(out) } metafor/R/cumul.rma.uni.r0000644000176200001440000001600415120213572014767 0ustar liggesuserscumul.rma.uni <- function(x, order, digits, transf, targs, collapse=FALSE, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in data.")) if (!x$int.only) stop(mstyle$stop("Method only applicable to models without moderators.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL funlist <- lapply(list(transf.exp.int, transf.ilogit.int, transf.iprobit.int, transf.ztor.int, transf.iarcsin.int, transf.iahw.int, transf.iabt.int, transf.dtocles.int, transf.exp.mode, transf.ilogit.mode, transf.iprobit.mode, transf.ztor.mode, transf.iarcsin.mode, transf.iahw.mode, transf.iabt.mode), deparse) if (is.null(targs) && any(sapply(funlist, identical, deparse(transf))) && inherits(x, c("rma.uni","rma.glmm")) && length(x$tau2 == 1L)) targs <- list(tau2=x$tau2) ddd <- list(...) .chkdots(ddd, c("time", "decreasing", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() decreasing <- .chkddd(ddd$decreasing, FALSE) ######################################################################### if (grepl("^order\\(", deparse1(substitute(order)))) warning(mstyle$warning("Use of order() in the 'order' argument is probably erroneous."), call.=FALSE) if (missing(order)) { orvar <- seq_len(x$k.all) collapse <- FALSE } else { mf <- match.call() orvar <- .getx("order", mf=mf, data=x$data) if (length(orvar) != x$k.all) stop(mstyle$stop(paste0("Length of the 'order' argument (", length(orvar), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) } ### note: order variable must be of the same length as the original dataset ### so apply the same subsetting as was done during the model fitting orvar <- .getsubset(orvar, x$subset) ### order data by the order variable (NAs in order variable are dropped) order <- base::order(orvar, decreasing=decreasing, na.last=NA) yi <- x$yi.f[order] vi <- x$vi.f[order] weights <- x$weights.f[order] not.na <- x$not.na[order] slab <- x$slab[order] ids <- x$ids[order] orvar <- orvar[order] if (inherits(x$data, "environment")) { data <- NULL } else { data <- x$data[order,,drop=FALSE] } if (collapse) { uorvar <- unique(orvar) } else { uorvar <- orvar } k.o <- length(uorvar) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) k <- rep(NA_integer_, k.o) beta <- rep(NA_real_, k.o) se <- rep(NA_real_, k.o) zval <- rep(NA_real_, k.o) pval <- rep(NA_real_, k.o) ci.lb <- rep(NA_real_, k.o) ci.ub <- rep(NA_real_, k.o) QE <- rep(NA_real_, k.o) QEp <- rep(NA_real_, k.o) tau2 <- rep(NA_real_, k.o) I2 <- rep(NA_real_, k.o) H2 <- rep(NA_real_, k.o) show <- rep(TRUE, k.o) ### elements that need to be returned outlist <- "k=k, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, QE=QE, QEp=QEp, tau2=tau2, I2=I2, H2=H2" if (progbar) pbar <- pbapply::startpb(min=0, max=k.o) for (i in seq_len(k.o)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) if (collapse) { if (all(!not.na[is.element(orvar, uorvar[i])])) { if (na.act == "na.omit") show[i] <- FALSE # if all studies to be added are !not.na, don't show (but a fit failure is still shown) next } incl <- is.element(orvar, uorvar[1:i]) } else { if (!not.na[i]) { if (na.act == "na.omit") show[i] <- FALSE # if study to be added is !not.na, don't show (but a fit failure is still shown) next } incl <- 1:i } args <- list(yi=yi, vi=vi, weights=weights, intercept=TRUE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, subset=incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) if (inherits(res, "try-error")) next k[i] <- res$k beta[i] <- res$beta se[i] <- res$se zval[i] <- res$zval pval[i] <- res$pval ci.lb[i] <- res$ci.lb ci.ub[i] <- res$ci.ub QE[i] <- res$QE QEp[i] <- res$QEp tau2[i] <- res$tau2 I2[i] <- res$I2 H2[i] <- res$H2 } if (progbar) pbapply::closepb(pbar) ######################################################################### ### if requested, apply transformation function if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) se <- rep(NA_real_, k.o) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) se <- rep(NA_real_, k.o) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### out <- list(k=k[show], estimate=beta[show], se=se[show], zval=zval[show], pval=pval[show], ci.lb=ci.lb[show], ci.ub=ci.ub[show], Q=QE[show], Qp=QEp[show], tau2=tau2[show], I2=I2[show], H2=H2[show]) if (collapse) { out$slab <- uorvar[show] out$slab.null <- FALSE } else { out$slab <- slab[show] out$ids <- ids[show] out$data <- data[show,,drop=FALSE] out$slab.null <- x$slab.null } out$order <- uorvar[show] if (is.element(x$test, c("knha","adhoc","t"))) names(out)[4] <- "tval" ### remove tau2 for FE/EE/CE models if (is.element(x$method, c("FE","EE","CE"))) out <- out[-10] out$digits <- digits out$transf <- transf out$level <- x$level out$test <- x$test if (!transf) { out$measure <- x$measure attr(out$estimate, "measure") <- x$measure } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- c("list.rma", "cumul.rma") return(out) } metafor/R/rma.uni.r0000644000176200001440000035613515166712212013664 0ustar liggesusersrma <- rma.uni <- function(yi, vi, sei, weights, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, fi, pi, sdi, r2i, ni, mods, scale, measure="GEN", data, slab, subset, add=1/2, to="only0", drop00=FALSE, intercept=TRUE, method="REML", weighted=TRUE, test="z", level=95, btt, att, tau2, verbose=FALSE, digits, control, ...) { ######################################################################### ### setup mstyle <- .get.mstyle() # check argument specifications if (!is.element(measure, c("RR","OR","PETO","RD","AS","PHI","ZPHI","YUQ","YUY","RTET","ZTET", # 2x2 table measures "PBIT","OR2D","OR2DN","OR2DL", # 2x2 table transformations to SMDs "MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM", # 2x2 table measures for matched pairs / pre-post data "IRR","IRD","IRSD", # two-group person-time data (incidence) measures "MD","SMD","SMDH","SMD1","SMD1H","ROM", # two-group mean/SD measures "VR","CVR", # variability ratio, coefficient of variation ratio "RPB","ZPB","RBIS","ZBIS","D2OR","D2ORN","D2ORL", # two-group mean/SD transformations to r_pb, r_bis, and log(OR) "COR","UCOR","ZCOR", # correlations (raw and r-to-z transformed) "PCOR","ZPCOR","SPCOR","ZSPCOR", # partial and semi-partial correlations "R2","ZR2","R2F","ZR2F", # coefficient of determination / R^2 (raw and r-to-z transformed) "PR","PLN","PLO","PRZ","PAS","PFT", # single proportions (and transformations thereof) "IR","IRLN","IRS","IRFT", # single-group person-time (incidence) data (and transformations thereof) "MN","SMN","MNLN","SDLN","CVLN", # mean, single-group standardized mean, log(mean), log(SD), log(CV) "MC","SMCC","SMCR","SMCRH","SMCRP","SMCRPH","CLESCN","AUCCN","ROMC","VRC","CVRC", # raw/standardized mean change, CLES/AUC, log(ROM), VR, and CVR for dependent samples "ARAW","AHW","ABT", # alpha (and transformations thereof) "REH","CLES","CLESN","AUC","AUCN", # relative excess heterozygosity, common language effect size / area under the curve "HR","HD", # hazard (rate) ratios and differences "GEN"))) stop(mstyle$stop("Unknown 'measure' specified.")) if (!is.element(method[1], c("FE","EE","CE","HS","HSk","HE","CO","VC","DL","DLIT","GENQ","GENQM","SJ","SJIT","PM","MP","PMM","ML","REML","EB"))) stop(mstyle$stop("Unknown 'method' specified.")) # note: arguments 'to', 'drop00', and 'vtype' are checked inside escalc() function # in case the user specified more than one add/to value (as one can do with rma.mh() and rma.peto()) # (any kind of continuity correction is directly applied to the outcomes, which are then analyzed as such) if (length(add) > 1L) add <- add[1] if (length(to) > 1L) to <- to[1] na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (missing(tau2)) { tau2 <- NULL } else { if (!is.null(tau2) && length(tau2) != 1L) stop(mstyle$stop("Argument 'tau2' must be a scalar.")) } if (missing(control)) control <- list() time.start <- proc.time() # get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("vtype", "knha", "onlyo1", "addyi", "addvi", "correct", "i2def", "r2def", "skipr2", "abbrev", "dfs", "time", "outlist", "link", "optbeta", "alpha", "beta", "skiphes", "retopt", "randhet", "omega2", "pleasedonotreportI2thankyouverymuch")) if (is.null(ddd$vtype)) { vtype <- "LS" } else { vtype <- ddd$vtype } # handle 'knha' argument from ... (note: overrides the 'test' argument) if (isFALSE(ddd$knha)) test <- "z" if (isTRUE(ddd$knha)) test <- "knha" test <- tolower(test) if (!is.element(test, c("z", "t", "knha", "hksj", "adhoc"))) stop(mstyle$stop("Unknown option specified for the 'test' argument.")) if (test == "hksj") test <- "knha" if (missing(scale)) { model <- "rma.uni" } else { model <- "rma.ls" } # set defaults or get 'onlyo1', 'addyi', 'addvi', and 'correct' arguments onlyo1 <- .chkddd(ddd$onlyo1, FALSE) addyi <- .chkddd(ddd$addyi, TRUE) addvi <- .chkddd(ddd$addvi, TRUE) correct <- .chkddd(ddd$correct, TRUE) # set defaults for 'i2def' and 'r2def' i2def <- .chkddd(ddd$i2def, "1") r2def <- .chkddd(ddd$r2def, "1") # handle arguments for location-scale models link <- .chkddd(ddd$link, "log", match.arg(ddd$link, c("log", "identity"))) optbeta <- .chkddd(ddd$optbeta, FALSE, isTRUE(ddd$optbeta)) if (model == "rma.uni" && optbeta) { warning(mstyle$warning("Argument 'optbeta' only relevant for location-scale models and hence ignored."), call.=FALSE) optbeta <- FALSE } if (optbeta && !weighted) stop(mstyle$stop("Must use 'weighted=TRUE' when 'optbeta=TRUE'.")) alpha <- .chkddd(ddd$alpha, NA_real_) beta <- .chkddd(ddd$beta, NA_real_) omega2 <- .chkddd(ddd$omega2, NA_real_) if (model == "rma.uni" && !missing(att)) warning(mstyle$warning("Argument 'att' only relevant for location-scale models and hence ignored."), call.=FALSE) # set defaults for 'digits' if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } # set defaults for formulas formula.yi <- NULL formula.mods <- NULL formula.scale <- NULL # set options(warn=1) if verbose > 2 if (verbose > 2) { opwarn <- options(warn=1) on.exit(options(warn=opwarn$warn), add=TRUE) } # check 'randhet' argument randhet <- isTRUE(ddd$randhet) if (model == "rma.ls") { if (randhet && link == "identity") stop(mstyle$stop("Cannot use identity link when allowing for residual heteroscedasticity.")) if (randhet) { method <- "ML" optbeta <- TRUE } } else { if (randhet) warning(mstyle$warning("Argument 'randhet' only relevant for location-scale models and hence ignored."), call.=FALSE) } ######################################################################### ### extract/compute the yi/vi values if (verbose) .space() if (verbose > 1) message(mstyle$message("Extracting/computing the yi/vi values ...")) # check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() # for certain measures, set 'add=0' by default unless the user explicitly set the 'add' argument addval <- mf[[match("add", names(mf))]] if (is.element(measure, c("AS","PHI","ZPHI","RTET","ZTET","IRSD","PAS","PFT","IRS","IRFT")) && is.null(addval)) add <- 0 # extract 'yi' (either NULL if not specified, a vector, a formula, or an 'escalc' object) yi <- .getx("yi", mf=mf, data=data) # if 'yi' is not NULL and it is an 'escalc' object, then use that object in place of the data argument if (!is.null(yi) && inherits(yi, "escalc")) data <- yi # extract 'weights', 'slab', 'subset', 'mods', and 'scale' values, possibly from the data frame specified via 'data' or 'yi' (arguments not specified are NULL) weights <- .getx("weights", mf=mf, data=data, checknumeric=TRUE) slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) mods <- .getx("mods", mf=mf, data=data) scale <- .getx("scale", mf=mf, data=data) ai <- bi <- ci <- di <- x1i <- x2i <- t1i <- t2i <- NA_real_ if (!is.null(yi)) { # if 'yi' is not NULL, then 'yi' now either contains the observed outcomes, is a formula, or an 'escalc' object # if 'yi' is a formula, extract 'yi' and 'X' (this overrides anything specified via the 'mods' argument further below) if (inherits(yi, "formula")) { formula.yi <- yi formula.mods <- formula.yi[-2] options(na.action = "na.pass") # set na.action to na.pass, so that NAs are not filtered out (we'll do that later) mods <- model.matrix(yi, data=data) # extract the model matrix (now 'mods' is no longer a formula, so [a] further below is skipped) attr(mods, "assign") <- NULL # strip the 'assign' attribute (not used at the moment) attr(mods, "contrasts") <- NULL # strip the 'contrasts' attribute (not used at the moment) yi <- model.response(model.frame(yi, data=data)) # extract the 'yi' values from the model frame options(na.action = na.act) # set na.action back to na.act names(yi) <- NULL # strip names (1:k) from 'yi' (so res$yi is the same whether 'yi' is a formula or not) intercept <- FALSE # set 'intercept' to FALSE since the formula now controls whether the intercept is included } # note: code further below ([b]) actually checks whether the intercept is included # if 'yi' is an 'escalc' object, try to extract 'yi' and 'vi' (any moderators must then be specified via the 'mods' argument) if (inherits(yi, "escalc")) { if (!is.null(attr(yi, "yi.names"))) { # if 'yi.names' attribute is available yi.name <- attr(yi, "yi.names")[1] # take the first entry to be the 'yi' variable } else { # if not, see if 'yi' is in the object and assume that it is the 'yi' variable if (!is.element("yi", names(yi))) stop(mstyle$stop("Cannot determine the name of the 'yi' variable.")) yi.name <- "yi" } if (!is.null(attr(yi, "vi.names"))) { # if 'vi.names' attribute is available vi.name <- attr(yi, "vi.names")[1] # take the first entry to be the 'vi' variable } else { # if not, see if 'vi' is in the object and assume that it is the 'vi' variable if (!is.element("vi", names(yi))) stop(mstyle$stop("Cannot determine the name of the 'vi' variable.")) vi.name <- "vi" } # get 'vi' and 'yi' variables from the escalc object ('vi' first, then 'yi', since 'yi' is overwritten) vi <- yi[[vi.name]] yi <- yi[[yi.name]] # could still be NULL if attributes do not match up with actual contents of the 'escalc' object if (is.null(yi)) stop(mstyle$stop(paste0("Cannot find variable '", yi.name, "' in the object."))) if (is.null(vi)) stop(mstyle$stop(paste0("Cannot find variable '", vi.name, "' in the object."))) yi.escalc <- TRUE } else { yi.escalc <- FALSE } # in case the user passed a data frame to 'yi', convert it to a vector (if possible) if (is.data.frame(yi)) { if (ncol(yi) == 1L) { yi <- yi[[1]] } else { stop(mstyle$stop("The object/variable specified for the 'yi' argument is a data frame with multiple columns.")) } } # in case the user passed a matrix to 'yi', convert it to a vector (if possible) if (.is.matrix(yi)) { if (nrow(yi) == 1L || ncol(yi) == 1L) { yi <- as.vector(yi) } else { stop(mstyle$stop("The object/variable specified for the 'yi' argument is a matrix with multiple rows/columns.")) } } # check if 'yi' is an array if (inherits(yi, "array")) stop(mstyle$stop("The object/variable specified for the 'yi' argument is an array.")) # check if 'yi' is numeric if (!is.numeric(yi)) stop(mstyle$stop("The object/variable specified for the 'yi' argument is not numeric.")) # number of outcomes before subsetting k <- length(yi) k.all <- k # if the user has specified 'measure' to be something other than "GEN", then use that for the 'measure' argument # otherwise, if 'yi' has a 'measure' attribute, use that to set the 'measure' argument if (measure == "GEN" && !is.null(attr(yi, "measure"))) measure <- attr(yi, "measure") # add 'measure' attribute (back) to the 'yi' vector attr(yi, "measure") <- measure # extract 'vi' and 'sei' values (but only if 'yi' wasn't an 'escalc' object) if (!yi.escalc) { vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) sei <- .getx("sei", mf=mf, data=data, checknumeric=TRUE) } # extract 'ni' argument ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) # if neither 'vi' nor 'sei' is specified, then throw an error # if only 'sei' is specified, then square those values to get 'vi' # if 'vi' is specified, use those values if (is.null(vi)) { if (is.null(sei)) { stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) } else { vi <- sei^2 } } # check 'vi' argument for potential misuse .chkviarg(mf$vi) # in case the user passes a matrix to 'vi', convert it to a vector # note: only a row or column matrix with the right dimensions will have the right length if (.is.matrix(vi)) { if (nrow(vi) == 1L || ncol(vi) == 1L) { vi <- as.vector(vi) } else { if (.is.square(vi) && isSymmetric(unname(vi))) { vi <- as.matrix(vi) # in case vi is sparse if (any(vi[!diag(nrow(vi))] != 0)) # only issue the warning if at least one off-diagonal element is non-zero warning(mstyle$warning("Using only the diagonal elements from the 'vi' argument as the sampling variances."), call.=FALSE) vi <- diag(vi) } else { stop(mstyle$stop("The object/variable specified for the 'vi' argument is a matrix with multiple rows/columns.")) } } } # check if 'vi' is an array if (inherits(vi, "array")) stop(mstyle$stop("The object/variable specified for the 'vi' argument is an array.")) # check if user constrained 'vi' to 0 if ((length(vi) == 1L && vi == 0) || (length(vi) == k && all(vi == 0, na.rm=TRUE))) { vi0 <- TRUE } else { vi0 <- FALSE } # allow easy setting of 'vi' to a single value vi <- .expand1(vi, k) # note: k is the number of outcomes before subsetting # check length of 'yi' and 'vi' if (length(vi) != k) stop(mstyle$stop("Length of 'yi' and 'vi' (or 'sei') are not the same.")) # if 'ni' has not been specified, try to get it from the attributes of 'yi' if (is.null(ni)) ni <- attr(yi, "ni") # check length of 'yi' and 'ni' (only if 'ni' is not NULL) # if there is a mismatch, then 'ni' cannot be trusted, so set it to NULL if (!is.null(ni) && length(ni) != k) ni <- NULL # if 'ni' is now available, add it (back) as an attribute to 'yi' if (!is.null(ni)) attr(yi, "ni") <- ni # note: one or more 'yi/vi' pairs may be NA/NA (also a corresponding 'ni' value may be NA) # if 'slab' has not been specified but is an attribute of 'yi', get it ([f]) if (is.null(slab)) { slab <- attr(yi, "slab") # will be NULL if there is no slab attribute # check length of 'yi' and 'slab' (only if 'slab' is not NULL) # if there is a mismatch, then 'slab' cannot be trusted, so set it to NULL if (!is.null(slab) && length(slab) != k) slab <- NULL } # subsetting of 'yi/vi/ni' values (note: 'slab' and 'mods' are subsetted further below at [e]) if (!is.null(subset)) { subset <- .chksubset(subset, k) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) ni <- .getsubset(ni, subset) attr(yi, "measure") <- measure # add 'measure' attribute back attr(yi, "ni") <- ni # add 'ni' attribute back } } else { # if 'yi' is NULL, try to compute 'yi/vi' based on the specified measure and supplied data if (is.element(measure, c("RR","OR","PETO","RD","AS","PHI","ZPHI","YUQ","YUY","RTET","ZTET","PBIT","OR2D","OR2DN","OR2DL","MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) if (is.null(bi)) bi <- n1i - ai if (is.null(di)) di <- n2i - ci k <- length(ai) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) ri <- .getsubset(ri, subset) pi <- .getsubset(pi, subset) } args <- list(ai=ai, bi=bi, ci=ci, di=di, ri=ri, pi=pi, add=add, to=to, drop00=drop00, onlyo1=onlyo1, addyi=addyi, addvi=addvi) } if (is.element(measure, c("IRR","IRD","IRSD"))) { x1i <- .getx("x1i", mf=mf, data=data, checknumeric=TRUE) x2i <- .getx("x2i", mf=mf, data=data, checknumeric=TRUE) t1i <- .getx("t1i", mf=mf, data=data, checknumeric=TRUE) t2i <- .getx("t2i", mf=mf, data=data, checknumeric=TRUE) k <- length(x1i) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) x1i <- .getsubset(x1i, subset) x2i <- .getsubset(x2i, subset) t1i <- .getsubset(t1i, subset) t2i <- .getsubset(t2i, subset) } args <- list(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, add=add, to=to, drop00=drop00, addyi=addyi, addvi=addvi) } if (is.element(measure, c("MD","SMD","SMDH","SMD1","SMD1H","ROM","RPB","ZPB","RBIS","ZBIS","D2OR","D2ORN","D2ORL","VR","CVR"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) if (is.element(measure, c("SMD","RPB","ZPB","RBIS","ZBIS","D2OR","D2ORN","D2ORL"))) { if (!.equal.length(m1i, m2i, sd1i, sd2i, n1i, n2i, di, ti, pi, ri)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ti <- replmiss(ti, .convp2t(pi, df=n1i+n2i-2)) di <- replmiss(di, ti * sqrt(1/n1i + 1/n2i)) mi <- n1i + n2i - 2 hi <- mi / n1i + mi / n2i di <- replmiss(di, sqrt(hi) * ri / sqrt(1 - ri^2)) m1i[!is.na(di)] <- di[!is.na(di)] m2i[!is.na(di)] <- 0 sd1i[!is.na(di)] <- 1 sd2i[!is.na(di)] <- 1 } k <- length(n1i) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) } args <- list(m1i=m1i, m2i=m2i, sd1i=sd1i, sd2i=sd2i, n1i=n1i, n2i=n2i) } if (is.element(measure, c("COR","UCOR","ZCOR"))) { ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ri, ni, ti, pi)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ti <- replmiss(ti, .convp2t(pi, df=ni-2)) ri <- replmiss(ri, ti / sqrt(ti^2 + ni-2)) k <- length(ri) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) ri <- .getsubset(ri, subset) ni <- .getsubset(ni, subset) } args <- list(ri=ri, ni=ni) } if (is.element(measure, c("PCOR","ZPCOR","SPCOR","ZSPCOR"))) { ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) r2i <- .getx("r2i", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ri, ti, mi, ni, pi, r2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ti <- replmiss(ti, .convp2t(pi, df=ni-mi-1)) if (is.element(measure, c("PCOR","ZPCOR"))) ri <- replmiss(ri, ti / sqrt(ti^2 + ni-mi-1)) if (is.element(measure, c("SPCOR","ZSPCOR"))) ri <- replmiss(ri, ti * sqrt(1-r2i) / sqrt(ni-mi-1)) k <- length(ri) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) ri <- .getsubset(ri, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) r2i <- .getsubset(r2i, subset) } args <- list(ri=ri, mi=mi, ni=ni, r2i=r2i) } if (is.element(measure, c("R2","ZR2","R2F","ZR2F"))) { r2i <- .getx("r2i", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) fi <- .getx("fi", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(r2i, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) fi <- replmiss(fi, .convp2f(pi, df1=mi, df2=ni-mi-1)) r2i <- replmiss(r2i, mi*fi / (mi*fi + (ni-mi-1))) k <- length(r2i) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) r2i <- .getsubset(r2i, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) } args <- list(r2i=r2i, mi=mi, ni=ni) } if (is.element(measure, c("PR","PLN","PLO","PRZ","PAS","PFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (is.null(mi)) mi <- ni - xi k <- length(xi) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) mi <- .getsubset(mi, subset) } args <- list(xi=xi, mi=mi, add=add, to=to, addyi=addyi, addvi=addvi) } if (is.element(measure, c("IR","IRLN","IRS","IRFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) k <- length(xi) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) ti <- .getsubset(ti, subset) } args <- list(xi=xi, ti=ti, add=add, to=to, addyi=addyi, addvi=addvi) } if (is.element(measure, c("MN","SMN","MNLN","SDLN","CVLN"))) { mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) sdi <- .getx("sdi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) k <- length(ni) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) mi <- .getsubset(mi, subset) sdi <- .getsubset(sdi, subset) ni <- .getsubset(ni, subset) } args <- list(mi=mi, sdi=sdi, ni=ni) } if (is.element(measure, c("MC","SMCC","SMCR","SMCRH","SMCRP","SMCRPH","CLESCN","AUCCN","ROMC","VRC","CVRC"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) ri <- .expand1(ri, list(m1i, m2i, sd1i, sd2i, ni, di, ti, pi)) if (measure == "SMCC") { if (!.equal.length(m1i, m2i, sd1i, sd2i, ri, ni, di, ti, pi)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ti <- replmiss(ti, .convp2t(pi, df=ni-1)) di <- replmiss(di, ti * sqrt(1/ni)) m1i[!is.na(di)] <- di[!is.na(di)] m2i[!is.na(di)] <- 0 sd1i[!is.na(di)] <- 1 sd2i[!is.na(di)] <- 1 ri[!is.na(di)] <- 0.5 } k <- length(m1i) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) ni <- .getsubset(ni, subset) ri <- .getsubset(ri, subset) } args <- list(m1i=m1i, m2i=m2i, sd1i=sd1i, sd2i=sd2i, ri=ri, ni=ni) } if (is.element(measure, c("ARAW","AHW","ABT"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) k <- length(ai) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) } args <- list(ai=ai, mi=mi, ni=ni) } if (measure == "REH") { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) k <- length(ai) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) } args <- list(ai=ai, bi=bi, ci=ci) } if (is.element(measure, c("CLES","AUC"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) if (is.null(mi)) mi <- rep(0, length(ai)) mi[is.na(mi)] <- 0 k <- length(ai) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) mi <- .getsubset(mi, subset) } args <- list(ai=ai, n1i=n1i, n2i=n2i, mi=mi) } if (is.element(measure, c("CLESN","AUCN"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) pi <- .getx("pi", mf=mf, data=data, checknumeric=TRUE) ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(m1i, m2i, sd1i, sd2i, n1i, n2i, di, ti, pi, ai)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) if (!.all.specified(n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments.")) k.all <- .maxlength(m1i, m2i, sd1i, sd2i, n1i, n2i, di, ti, pi, ai) vtype <- .expand1(vtype, k.all) if (is.null(sd1i) || is.null(sd2i)) { sd1i <- .expand1(NA_real_, k.all) sd2i <- .expand1(NA_real_, k.all) } ti <- replmiss(ti, .convp2t(pi, df=n1i+n2i-2)) di <- replmiss(di, ti * sqrt(1/n1i + 1/n2i)) if (!is.null(di)) vtype[!is.na(di)] <- "HO" sdpi <- ifelse(vtype=="HO", sqrt(((n1i-1)*sd1i^2 + (n2i-1)*sd2i^2)/(n1i+n2i-2)), sqrt((sd1i^2 + sd2i^2)/2)) di <- replmiss(di, (m1i - m2i) / sdpi) ai <- replmiss(ai, pnorm(di/sqrt(2))) di <- replmiss(di, qnorm(ai)*sqrt(2)) k.all <- length(ai) sdsmiss <- is.na(sd1i) | is.na(sd2i) sd1i <- ifelse(sdsmiss, 1, sd1i) sd2i <- ifelse(sdsmiss, 1, sd2i) vtype[sdsmiss] <- "HO" k <- length(ai) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) vtype <- .getsubset(vtype, subset) ai <- .getsubset(ai, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) } args <- list(ai=ai, sd1i=sd1i, sd2i=sd2i, n1i=n1i, n2i=n2i) } args <- c(args, list(measure=measure, vtype=vtype, correct=correct)) dat <- .do.call(escalc, args) if (is.element(measure, "GEN")) stop(mstyle$stop("Specify the desired outcome measure via the 'measure' argument.")) # note: these values are already subsetted yi <- dat$yi # one or more 'yi/vi' pairs may be NA/NA vi <- dat$vi # one or more 'yi/vi' pairs may be NA/NA ni <- attr(yi, "ni") # unadjusted total sample sizes ('ni.u' in escalc) } ######################################################################### ### handle the 'weights' argument if (!is.null(weights)) { if (verbose > 1) message(mstyle$message("Extracting custom weights ...")) # when optimizing over beta, cannot use custom weights if (optbeta) stop(mstyle$stop("Cannot use custom weights when 'optbeta=TRUE'.")) # allow easy setting of weights to a single value weights <- .expand1(weights, k) # note: k is the number of outcomes before subsetting # check length of 'yi' and 'weights' (only if 'weights' is not NULL) if (length(weights) != k) stop(mstyle$stop("Length of 'yi' and 'weights' are not the same.")) # subsetting of weights if (!is.null(subset)) weights <- .getsubset(weights, subset) # check for negative/infinite weights if (any(weights < 0, na.rm=TRUE)) stop(mstyle$stop("Negative weights are not allowed.")) if (any(is.infinite(weights))) stop(mstyle$stop("Infinite weights are not allowed.")) } ######################################################################### ### handle the 'mods' and 'scale' arguments if (verbose > 1) message(mstyle$message("Creating the model matrix ...")) # convert 'mods' formula to 'X' matrix and set 'intercept' equal to FALSE # skipped if formula has already been specified via the 'yi' argument, since 'mods' is then no longer a formula (see [a]) if (inherits(mods, "formula")) { formula.mods <- mods if (.is.tilde1(formula.mods)) { # needed so 'mods = ~ 1' without 'data' specified works mods <- matrix(1, nrow=k, ncol=1) intercept <- FALSE } else { options(na.action = "na.pass") # set na.action to na.pass, so that NAs are not filtered out (we'll do that later) mods <- model.matrix(mods, data=data) # extract the model matrix attr(mods, "assign") <- NULL # strip the 'assign' attribute (not used at the moment) attr(mods, "contrasts") <- NULL # strip the 'contrasts' attribute (not used at the moment) options(na.action = na.act) # set na.action back to na.act intercept <- FALSE # set 'intercept' to FALSE since the formula now controls whether the intercept is included } # note: code further below ([b]) actually checks whether the intercept is included } # turn a vector for 'mods' into a column vector if (.is.vector(mods)) mods <- cbind(mods) # turn a 'mods' data frame into a matrix if (is.data.frame(mods)) mods <- as.matrix(mods) # check if the model matrix contains character variables if (is.character(mods)) stop(mstyle$stop("The model matrix contains character variables.")) # check if the 'mods' matrix has the right number of rows if (!is.null(mods) && nrow(mods) != k) stop(mstyle$stop(paste0("Number of rows in the model matrix (", nrow(mods), ") does not match the length of the outcome vector (", k, ")."))) # for 'rma.ls' models, get the model matrix for the scale part if (model == "rma.ls") { if (inherits(scale, "formula")) { formula.scale <- scale if (.is.tilde1(formula.scale)) { # needed so 'scale = ~ 1' without 'data' specified works Z <- matrix(1, nrow=k, ncol=1) colnames(Z) <- "intrcpt" } else { options(na.action = "na.pass") Z <- model.matrix(scale, data=data) colnames(Z)[grep("(Intercept)", colnames(Z), fixed=TRUE)] <- "intrcpt" attr(Z, "assign") <- NULL attr(Z, "contrasts") <- NULL options(na.action = na.act) } } else { Z <- scale if (.is.vector(Z)) Z <- cbind(Z) if (is.data.frame(Z)) Z <- as.matrix(Z) if (is.character(Z)) stop(mstyle$stop("Scale model matrix contains character variables.")) } if (nrow(Z) != k) stop(mstyle$stop(paste0("Number of rows in the model matrix specified via the 'scale' argument (", nrow(Z), ") does not match the length of the outcome vector (", k, ")."))) } else { Z <- NULL } ### if a subset of studies is specified ([e]) if (!is.null(subset)) { if (verbose > 1) message(mstyle$message("Subsetting ...")) mods <- .getsubset(mods, subset) Z <- .getsubset(Z, subset) } ######################################################################### ### handle the 'slab' argument # generate study labels if none are specified (or none have been found in 'yi'; see [f]) if (verbose > 1) message(mstyle$message("Generating/extracting the study labels ...")) # study ids (1:k sequence before subsetting) ids <- seq_len(k) if (is.null(slab)) { slab.null <- TRUE slab <- ids } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) slab.null <- FALSE } # if a subset of studies is specified ([e]) if (!is.null(subset)) { if (verbose > 1) message(mstyle$message("Subsetting ...")) slab <- .getsubset(slab, subset) ids <- .getsubset(ids, subset) } # check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) # add the 'slab' attribute back to 'yi' attr(yi, "slab") <- slab # number of outcomes after subsetting k <- length(yi) ######################################################################### ### handle NAs # save the full data (including potential NAs in yi/vi/weights/ni/mods/Z.f) outdat.f <- list(ai=ai, bi=bi, ci=ci, di=di, x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i) yi.f <- yi vi.f <- vi weights.f <- weights ni.f <- ni mods.f <- mods Z.f <- Z k.f <- k # total number of observed outcomes including all NAs # check for NAs and act accordingly has.na <- is.na(yi) | is.na(vi) | (if (is.null(mods)) FALSE else apply(is.na(mods), 1, any)) | (if (is.null(Z)) FALSE else apply(is.na(Z), 1, any)) | (if (is.null(weights)) FALSE else is.na(weights)) not.na <- !has.na if (any(has.na)) { if (verbose > 1) message(mstyle$message("Handling NAs ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] vi <- vi[not.na] weights <- weights[not.na] ni <- ni[not.na] mods <- mods[not.na,,drop=FALSE] Z <- Z[not.na,,drop=FALSE] k <- length(yi) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) attr(yi, "measure") <- measure # add 'measure' attribute back attr(yi, "ni") <- ni # add 'ni' attribute back # note: 'slab' is always of the same length as the full 'yi' vector (after subsetting), so missings are not removed and 'slab' is not added back to 'yi' } if (na.act == "na.fail") stop(mstyle$stop("Missing values in data.")) } # at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ######################################################################### # check for non-positive sampling variances (and set negative values to 0) # note: done after removing NAs since only the included studies are relevant if (any(vi <= 0)) { allvipos <- FALSE if (!vi0) warning(mstyle$warning("There are outcomes with non-positive sampling variances."), call.=FALSE) vi.neg <- vi < 0 if (any(vi.neg)) { vi[vi.neg] <- 0 warning(mstyle$warning("Negative sampling variances constrained to 0."), call.=FALSE) } } else { allvipos <- TRUE } # but even in 'vi.f', constrain negative sampling variances to 0 (not needed) #vi.f[vi.f < 0] <- 0 # if k=1 and test != "z", set test="z" (other methods cannot be used) if (k == 1L && test != "z") { warning(mstyle$warning("Setting argument test=\"z\" since k=1."), call.=FALSE) test <- "z" } # make sure that there is at least one column in 'X' ([b]) if (is.null(mods) && !intercept) { warning(mstyle$warning("Must either include an intercept and/or moderators in the model.\nCoerced an intercept into the model."), call.=FALSE) intercept <- TRUE } if (!is.null(mods) && ncol(mods) == 0L) { warning(mstyle$warning("Cannot fit model with an empty model matrix. Coerced an intercept into the model."), call.=FALSE) intercept <- TRUE } # add vector of 1s to the 'X' matrix for the intercept (if intercept=TRUE) if (intercept) { X <- cbind(intrcpt=rep(1,k), mods) X.f <- cbind(intrcpt=rep(1,k.f), mods.f) } else { X <- mods X.f <- mods.f } # drop redundant predictors # note: need to save 'coef.na' for functions that modify the data/model and then refit the model (regtest() and the # various function that leave out an observation); so we can check if there are redundant/dropped predictors then tmp <- try(lm(yi ~ 0 + X), silent=TRUE) if (inherits(tmp, "lm")) { coef.na <- is.na(coef(tmp)) } else { coef.na <- rep(FALSE, NCOL(X)) } if (any(coef.na)) { warning(mstyle$warning("Redundant predictors dropped from the model."), call.=FALSE) X <- X[,!coef.na,drop=FALSE] X.f <- X.f[,!coef.na,drop=FALSE] } # check whether an intercept is included and if yes, move it to the first column (NAs already removed, so na.rm=TRUE for any() is not necessary) is.int <- apply(X, 2, .is.intercept) if (any(is.int)) { int.incl <- TRUE int.indx <- which(is.int, arr.ind=TRUE) X <- cbind(intrcpt=1, X[,-int.indx, drop=FALSE]) # this removes any duplicate intercepts X.f <- cbind(intrcpt=1, X.f[,-int.indx, drop=FALSE]) # this removes any duplicate intercepts intercept <- TRUE # set 'intercept' appropriately so that the predict() function works } else { int.incl <- FALSE } p <- NCOL(X) # number of columns in 'X' (including the intercept if it is included) # make sure variable names in 'X' and 'Z' are unique colnames(X) <- colnames(X.f) <- .make.unique(colnames(X)) colnames(Z) <- colnames(Z.f) <- .make.unique(colnames(Z)) # check whether this is an intercept-only model if ((p == 1L) && .is.intercept(X)) { int.only <- TRUE } else { int.only <- FALSE } # check if there are too many parameters for given k (TODO: what about rma.ls models?) if (!(int.only && k == 1L)) { if (is.element(method[1], c("FE","EE","CE"))) { # have to estimate p parameters if (p > k) stop(mstyle$stop("Number of parameters to be estimated is larger than the number of observations.")) } else { if (!is.null(tau2) && !is.na(tau2)) { # have to estimate p parameters (tau2 is fixed at value specified) if (p > k) stop(mstyle$stop("Number of parameters to be estimated is larger than the number of observations.")) } else { if ((p+1) > k) # have to estimate p+1 parameters stop(mstyle$stop("Number of parameters to be estimated is larger than the number of observations.")) } } } # set/check 'btt' argument btt <- .set.btt(btt, p, int.incl, colnames(X)) m <- length(btt) # number of betas to test (m = p if all betas are tested) ######################################################################### ### set defaults for control parameters con <- list(verbose = FALSE, evtol = 1e-07, # lower bound for eigenvalues to determine if the model matrix is positive definite (also for checking if vimaxmin >= 1/con$evtol) REMLf = TRUE) # should the full REML likelihood be computed (including all constants) if (model == "rma.uni") { con <- c(con, list(tau2.init = NULL, # initial value for tau^2 for the iterative estimators (ML, REML, EB, SJ, SJIT, DLIT) tau2.min = 0, # lower bound for tau^2 (passed down to confint.rma.uni()) tau2.max = 100, # upper bound for tau^2 (for PM/PMM/GENQM estimators) but see [c] threshold = 10^-5, # convergence threshold (for ML, REML, EB, SJIT, DLIT) tol = .Machine$double.eps^0.25, # convergence tolerance for uniroot() as used for PM, PMM, GENQM (also used in 'll0 - ll > con$tol' check for ML/REML) ll0check = TRUE, # should the 'll0 - ll > con$tol' check be conducted for ML/REML? maxiter = 100, # maximum number of iterations (for ML, REML, EB, SJIT, DLIT) stepadj = 1)) # step size adjustment for the Fisher scoring algorithm (for ML, REML, EB) # [c] for some applications, tau2.max = 100 may not be enough; use an adaptive max instead con$tau2.max <- max(con$tau2.max, 10*mad(yi)^2) } if (model == "rma.ls") { con <- c(con, list(beta.init = NULL, # initial values for the location parameters (only relevant when optbeta=TRUE) hesspack = "numDeriv", # package for computing the Hessian (numDeriv, pracma, or calculus) optimizer = "nlminb", # optimizer to use ("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","constrOptim","solnp","alabama"/"constrOptim.nl"/"auglag","Rcgmin","Rvmmin") optmethod = "BFGS", # argument 'method' for optim() ("Nelder-Mead" and "BFGS" are sensible options) parallel = list(), # parallel argument for optimParallel() (note: 'cl' argument in parallel is not passed; this is directly specified via 'cl') cl = NULL, # arguments for optimParallel() ncpus = 1L, # arguments for optimParallel() tau2.min = 0, # lower bound for tau^2 values (can be used to constrain tau^2 values but see [d]) (must be >= 0) tau2.max = Inf, # upper bound for tau^2 values (can be used to constrain tau^2 values but see [d]) alpha.init = NULL, # initial values for the scale parameters alpha.min = -Inf, # min possible value(s) for the scale parameter(s) alpha.max = Inf, # max possible value(s) for the scale parameter(s) omega2.init = NULL, # initial value for omega^2 hessianCtrl=NULL, # arguments passed on to 'method.args' of hessian(); see [g] htransf = FALSE, # when FALSE, Hessian is computed directly for the omega2 estimate (e.g., we get Var(omega^2)); when TRUE, Hessian is computed for the transformed estimate (e.g., we get Var(log(omega2))) hes.beta.fix = FALSE, # fix beta in Hessian computation hes.alpha.fix = FALSE, # fix alpha in Hessian computation hes.omega2.fix = FALSE, # fix omega2 in Hessian computation omega2tol = 1e-05, # threshold for treating omega^2 as effectively equal to 0 in the Hessian computation scaleZ = TRUE, # rescale Z matrix (only if Z.int.incl, is.na(alpha[1]), all(is.infinite(con$alpha.min)), all(is.infinite(con$alpha.max)), !optbeta) mfmaxit = 10^5)) # iteration limit when randhet=TRUE (independent of the optimizer) # [d] can constrain the tau^2 values in location-scale models, but this is done in a very crude way # in the optimization (by returning Inf when any tau^2 value falls outside the bounds) and this is # not recommended/documented (instead, one can constrain the alpha values via alpha.min/alpha.max); # note: the tau^2 bounds are only in effect when tau2.min or tau2.max are actually used in 'control' # (if not, tau2.min and tau2.max are set to 0 and Inf, respectively) } # replace defaults with any user-defined values con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose if (model == "rma.ls") { ### checks on hesspack and hessianCtrl ([g]) con$hesspack <- match.arg(con$hesspack, c("numDeriv","pracma","calculus")) if (!isTRUE(ddd$skiphes) && !requireNamespace(con$hesspack, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", con$hesspack, "' package to compute the Hessian."))) if (con$hesspack == "numDeriv") { if (is.null(con$hessianCtrl$r)) con$hessianCtrl$r <- 8 } if (con$hesspack == "pracma") { if (is.null(con$hessianCtrl$h)) con$hessianCtrl$h <- .Machine$double.eps^(1/4) } if (con$hesspack == "calculus") { if (is.null(con$hessianCtrl$accuracy)) con$hessianCtrl$accuracy <- 4 } } if (model == "rma.uni") { # constrain a negative 'tau2.min' value to -min(vi) (to ensure that the marginal variance is always >= 0) if (con$tau2.min < 0 && (con$tau2.min < -min(vi))) { con$tau2.min <- -min(vi) # + .Machine$double.eps^0.25 # to force tau2.min just above -min(vi) warning(mstyle$warning(paste0("Value of 'tau2.min' constrained to -min(vi) = ", fmtx(-min(vi), digits[["est"]]), ".")), call.=FALSE) } } else { # constrain a negative 'tau2.min' value to 0 for 'rma.ls' models if (is.element("tau2.min", names(control))) con$tau2.min[con$tau2.min < 0] <- 0 } # check whether the model matrix is of full rank if (!.chkpd(crossprod(X), tol=con$evtol)) stop(mstyle$stop("Model matrix not of full rank. Cannot fit model.")) # check ratio of largest to smallest sampling variance # note: need to exclude some special cases (0/0 = NaN, max(vi)/0 = Inf) # TODO: use the condition number of diag(vi) here instead? vimaxmin <- max(vi) / min(vi) if (is.finite(vimaxmin) && vimaxmin >= 1/con$evtol) warning(mstyle$warning("Ratio of largest to smallest sampling variance extremely large. May not be able to obtain stable results."), call.=FALSE) # set some defaults se.tau2 <- I2 <- H2 <- QE <- QEp <- NA_real_ s2w <- 1 level <- .level(level) Y <- as.matrix(yi) # mean center 'yi' for some calculations to increase the stability of the computations ymci <- scale(yi, center=TRUE, scale=FALSE) Ymc <- as.matrix(ymci) ######################################################################### ### heterogeneity estimation for the standard normal-normal model (rma.uni) tau2.inf <- FALSE if (model == "rma.uni") { if (!is.null(tau2) && !is.na(tau2) && !is.element(method[1], c("FE","EE","CE"))) { # if user has fixed the tau2 value tau2.fix <- TRUE tau2.arg <- tau2 tau2.inf <- identical(tau2, Inf) } else { tau2.fix <- FALSE tau2.arg <- NA_real_ } if (verbose > 1 && !tau2.fix && !is.element(method[1], c("FE","EE","CE"))) message(mstyle$message("Estimating the tau^2 value ...\n")) if (k == 1L) { method.sav <- method[1] method <- "k1" # set method to k1 so all of the stuff below is skipped if (!tau2.fix) tau2 <- 0 } conv <- FALSE while (!conv && !tau2.inf) { # convergence indicator and change variable conv <- TRUE # assume TRUE for now unless things go wrong below change <- con$threshold + 1 # iterations counter for iterative estimators (i.e., DLIT, SJIT, ML, REML, EB) # (note: PM, PMM, and GENQM are also iterative, but uniroot() handles that) iter <- 0 # Hunter & Schmidt (HS) estimator (or k-corrected HS estimator (HSk)) if (is.element(method[1], c("HS","HSk"))) { if (!allvipos) stop(mstyle$stop(paste0(method[1], " estimator cannot be used when there are non-positive sampling variances in the data."))) wi <- 1/vi W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) RSS <- crossprod(Ymc,P) %*% Ymc if (method[1] == "HS") { tau2 <- ifelse(tau2.fix, tau2.arg, (RSS - k) / sum(wi)) } else { tau2 <- ifelse(tau2.fix, tau2.arg, (k/(k-p)*RSS - k) / sum(wi)) } } # Hedges (HE) estimator (or initial value for ML, REML, EB) if (is.element(method[1], c("HE","CO","VC","ML","REML","EB"))) { stXX <- .invcalc(X=X, W=diag(k), k=k) P <- diag(k) - X %*% tcrossprod(stXX,X) RSS <- crossprod(Ymc,P) %*% Ymc V <- .diag(vi) PV <- P %*% V # note: this is not symmetric trPV <- .tr(PV) # since PV needs to be computed anyway, can use .tr() tau2 <- ifelse(tau2.fix, tau2.arg, (RSS - trPV) / (k-p)) } # DerSimonian-Laird (DL) estimator if (method[1] == "DL") { if (!allvipos) stop(mstyle$stop("DL estimator cannot be used when there are non-positive sampling variances in the data.")) wi <- 1/vi W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) RSS <- crossprod(Ymc,P) %*% Ymc trP <- .tr(P) tau2 <- ifelse(tau2.fix, tau2.arg, (RSS - (k-p)) / trP) } # DerSimonian-Laird (DL) estimator with iteration (when this converges, same as PM) if (method[1] == "DLIT") { if (is.null(con$tau2.init)) { tau2 <- 0 } else { tau2 <- con$tau2.init } while (change > con$threshold) { if (verbose) cat(mstyle$verbose(paste("Iteration", formatC(iter, width=5, flag="-", format="f", digits=0), "tau^2 =", fmtx(tau2, digits[["var"]]), "\n"))) iter <- iter + 1 old2 <- tau2 wi <- 1/(vi + tau2) if (any(tau2 + vi < 0)) stop(mstyle$stop("Some marginal variances are negative.")) if (any(is.infinite(wi))) stop(mstyle$stop("Division by zero when computing the inverse variance weights.")) W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) V <- .diag(vi) trP <- .tr(P) trPV <- .tr(P %*% V) RSS <- crossprod(Ymc,P) %*% Ymc tau2 <- ifelse(tau2.fix, tau2.arg, (RSS - trPV) / trP) tau2[tau2 < con$tau2.min] <- con$tau2.min change <- abs(old2 - tau2) if (iter > con$maxiter) { conv <- FALSE break } } if (!conv) { if (length(method) == 1L) { stop(mstyle$stop("Iterative DL estimator did not converge.")) } else { if (verbose) warning(mstyle$warning("Iterative DL estimator did not converge."), call.=FALSE) } } } # generalized Q-statistic estimator if (method[1] == "GENQ") { #if (!allvipos) # stop(mstyle$stop("GENQ estimator cannot be used when there are non-positive sampling variances in the data.")) if (is.null(weights)) stop(mstyle$stop("Must specify the 'weights' argument when method='GENQ'.")) A <- .diag(weights) stXAX <- .invcalc(X=X, W=A, k=k) P <- A - A %*% X %*% stXAX %*% crossprod(X,A) V <- .diag(vi) PV <- P %*% V # note: this is not symmetric trP <- .tr(P) trPV <- .tr(PV) RSS <- crossprod(Ymc,P) %*% Ymc tau2 <- ifelse(tau2.fix, tau2.arg, (RSS - trPV) / trP) } # generalized Q-statistic estimator (median unbiased version) if (method[1] == "GENQM") { if (is.null(weights)) stop(mstyle$stop("Must specify the 'weights' argument when method='GENQM'.")) A <- .diag(weights) stXAX <- .invcalc(X=X, W=A, k=k) P <- A - A %*% X %*% stXAX %*% crossprod(X,A) V <- .diag(vi) PV <- P %*% V # note: this is not symmetric trP <- .tr(P) if (!tau2.fix) { RSS <- crossprod(Ymc,P) %*% Ymc if (.GENQ.func(con$tau2.min, P=P, vi=vi, Q=RSS, level=0, k=k, p=p, getlower=TRUE) > 0.5) { # if GENQ.tau2.min is > 0.5, then estimate < tau2.min tau2 <- con$tau2.min } else { if (.GENQ.func(con$tau2.max, P=P, vi=vi, Q=RSS, level=0, k=k, p=p, getlower=TRUE) < 0.5) { # if GENQ.tau2.max is < 0.5, then estimate > tau2.max conv <- FALSE if (length(method) == 1L) { stop(mstyle$stop("Value of 'tau2.max' too low. Try increasing 'tau2.max' or switch to another 'method'.")) } else { if (verbose) warning(mstyle$warning("Value of 'tau2.max' too low. Try increasing 'tau2.max' or switch to another 'method'."), call.=FALSE) } } else { tau2 <- try(uniroot(.GENQ.func, interval=c(con$tau2.min, con$tau2.max), tol=con$tol, maxiter=con$maxiter, P=P, vi=vi, Q=RSS, level=0.5, k=k, p=p, getlower=FALSE, verbose=verbose, digits=digits, extendInt="no")$root, silent=TRUE) if (inherits(tau2, "try-error")) { conv <- FALSE if (length(method) == 1L) { stop(mstyle$stop("Error in iterative search for tau^2 using uniroot().")) } else { if (verbose) warning(mstyle$warning("Error in iterative search for tau^2 using uniroot()."), call.=FALSE) } } } } } else { tau2 <- tau2.arg } } # Sidik-Jonkman (SJ) estimator if (method[1] == "SJ") { if (is.null(con$tau2.init)) { tau2.0 <- c(var(ymci) * (k-1)/k) } else { tau2.0 <- con$tau2.init } wi <- 1/(vi + tau2.0) W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) RSS <- crossprod(Ymc,P) %*% Ymc V <- .diag(vi) PV <- P %*% V # note: this is not symmetric tau2 <- ifelse(tau2.fix, tau2.arg, tau2.0 * RSS / (k-p)) } # Sidik-Jonkman (SJ) estimator with iteration if (method[1] == "SJIT") { if (is.null(con$tau2.init)) { tau2 <- c(var(ymci) * (k-1)/k) } else { tau2 <- con$tau2.init } tau2.0 <- tau2 while (change > con$threshold) { if (verbose) cat(mstyle$verbose(paste("Iteration", formatC(iter, width=5, flag="-", format="f", digits=0), "tau^2 =", fmtx(tau2, digits[["var"]]), "\n"))) iter <- iter + 1 old2 <- tau2 wi <- 1/(vi + tau2) W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) RSS <- crossprod(Ymc,P) %*% Ymc V <- .diag(vi) PV <- P %*% V # note: this is not symmetric tau2 <- ifelse(tau2.fix, tau2.arg, tau2 * RSS / (k-p)) change <- abs(old2 - tau2) if (iter > con$maxiter) { conv <- FALSE break } } if (!conv) { if (length(method) == 1L) { stop(mstyle$stop("Iterative SJ estimator did not converge.")) } else { if (verbose) warning(mstyle$warning("Iterative SJ estimator did not converge."), call.=FALSE) } } } # Paule-Mandel (PM) estimator (regular and median unbiased version) if (is.element(method[1], c("PM","MP","PMM"))) { if (!allvipos) stop(mstyle$stop(method[1], " estimator cannot be used when there are non-positive sampling variances in the data.")) if (method[1] == "PMM") { target <- qchisq(0.5, df=k-p) } else { target <- k-p } if (!tau2.fix) { if (.QE.func(con$tau2.min, Y=Ymc, vi=vi, X=X, k=k, objective=0) < target) { tau2 <- con$tau2.min } else { if (.QE.func(con$tau2.max, Y=Ymc, vi=vi, X=X, k=k, objective=0) > target) { conv <- FALSE if (length(method) == 1L) { stop(mstyle$stop("Value of 'tau2.max' too low. Try increasing 'tau2.max' or switch to another 'method'.")) } else { if (verbose) warning(mstyle$warning("Value of 'tau2.max' too low. Try increasing 'tau2.max' or switch to another 'method'."), call.=FALSE) } } else { tau2 <- try(uniroot(.QE.func, interval=c(con$tau2.min, con$tau2.max), tol=con$tol, maxiter=con$maxiter, Y=Ymc, vi=vi, X=X, k=k, objective=target, verbose=verbose, digits=digits, extendInt="no")$root, silent=TRUE) if (inherits(tau2, "try-error")) { conv <- FALSE if (length(method) == 1L) { stop(mstyle$stop("Error in iterative search for tau^2 using uniroot().")) } else { if (verbose) warning(mstyle$warning("Error in iterative search for tau^2 using uniroot()."), call.=FALSE) } } } } #W <- .diag(wi) #stXWX <- .invcalc(X=X, W=W, k=k) #P <- W - W %*% X %*% stXWX %*% crossprod(X,W) # needed for se.tau2 computation below (not when using the simpler equation) } else { tau2 <- tau2.arg } } # maximum-likelihood (ML), restricted maximum-likelihood (REML), and empirical Bayes (EB) estimators if (is.element(method[1], c("ML","REML","EB"))) { if (is.null(con$tau2.init)) { # check if user specified initial value for tau2 tau2 <- max(0, tau2, con$tau2.min) # if not, use the HE estimate (or con$tau2.min) as initial estimate for tau2 } else { tau2 <- con$tau2.init # if yes, use value specified by the user } while (change > con$threshold) { if (verbose) cat(mstyle$verbose(paste(mstyle$verbose(paste("Iteration", formatC(iter, width=5, flag="-", format="f", digits=0), "tau^2 =", fmtx(tau2, digits[["var"]]), "\n"))))) iter <- iter + 1 old2 <- tau2 wi <- 1/(vi + tau2) if (any(tau2 + vi < 0)) stop(mstyle$stop("Some marginal variances are negative.")) if (any(is.infinite(wi))) stop(mstyle$stop("Division by zero when computing the inverse variance weights.")) W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) if (method[1] == "ML") { PP <- P %*% P adj <- c(crossprod(Ymc,PP) %*% Ymc - sum(wi)) / sum(wi^2) } if (method[1] == "REML") { PP <- P %*% P adj <- c(crossprod(Ymc,PP) %*% Ymc - .tr(P)) / .tr(PP) } if (method[1] == "EB") { adj <- c(crossprod(Ymc,P) %*% Ymc * k/(k-p) - k) / sum(wi) } adj <- c(adj) * con$stepadj # apply (user-defined) step adjustment if (is.na(adj)) # can happen for a saturated model when fixing tau^2 adj <- 0 while (tau2 + adj < con$tau2.min) # use step-halving if necessary adj <- adj / 2 tau2 <- ifelse(tau2.fix, tau2.arg, tau2 + adj) change <- abs(old2 - tau2) if (iter > con$maxiter) { conv <- FALSE break } } if (!conv) { if (length(method) == 1L) { stop(mstyle$stop("Fisher scoring algorithm did not converge. See 'help(rma)' for possible remedies.")) } else { if (verbose) warning(mstyle$warning("Fisher scoring algorithm did not converge. See 'help(rma)' for possible remedies."), call.=FALSE) } } # check if ll is larger when tau^2 = 0 (only if ll0check=TRUE and only possible/sensible if allvipos and !tau2.fix) # note: this doesn't catch the case where tau^2 = 0 is a local maximum if (conv && is.element(method[1], c("ML","REML")) && con$ll0check && allvipos && !tau2.fix) { wi <- 1/vi W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) beta <- stXWX %*% crossprod(X,W) %*% Ymc RSS <- sum(wi*(ymci - X %*% beta)^2) if (method[1] == "ML") ll0 <- -1/2 * (k) * log(2*base::pi) - 1/2 * sum(log(vi)) - 1/2 * RSS if (method[1] == "REML") ll0 <- -1/2 * (k-p) * log(2*base::pi) - 1/2 * sum(log(vi)) - 1/2 * determinant(crossprod(X,W) %*% X, logarithm=TRUE)$modulus - 1/2 * RSS wi <- 1/(vi + tau2) if (any(tau2 + vi < 0)) stop(mstyle$stop("Some marginal variances are negative.")) if (any(is.infinite(wi))) stop(mstyle$stop("Division by zero when computing the inverse variance weights.")) W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) beta <- stXWX %*% crossprod(X,W) %*% Ymc RSS <- sum(wi*(ymci - X %*% beta)^2) if (method[1] == "ML") ll <- -1/2 * (k) * log(2*base::pi) - 1/2 * sum(log(vi + tau2)) - 1/2 * RSS if (method[1] == "REML") ll <- -1/2 * (k-p) * log(2*base::pi) - 1/2 * sum(log(vi + tau2)) - 1/2 * determinant(crossprod(X,W) %*% X, logarithm=TRUE)$modulus - 1/2 * RSS if (ll0 - ll > con$tol && tau2 > con$threshold) { warning(mstyle$warning("Fisher scoring algorithm may have gotten stuck at a local maximum.\nSetting tau^2 = 0. Check the profile likelihood plot with profile()."), call.=FALSE) tau2 <- 0 } } # need to run this so that wi and P are based on the final tau^2 value if (conv) { wi <- 1/(vi + tau2) if (any(tau2 + vi < 0)) stop(mstyle$stop("Some marginal variances are negative.")) if (any(is.infinite(wi))) stop(mstyle$stop("Division by zero when computing the inverse variance weights.")) W <- .diag(wi) stXWX <- .invcalc(X=X, W=W, k=k) P <- W - W %*% X %*% stXWX %*% crossprod(X,W) } } if (conv) { # make sure that tau2 is >= con$tau2.min tau2 <- max(con$tau2.min, c(tau2)) # check if any marginal variances are negative (only possible if user has changed tau2.min) if (!is.na(tau2) && any(tau2 + vi < 0)) stop(mstyle$stop("Some marginal variances are negative.")) # verbose output upon convergence for ML/REML/EB estimators if (verbose && is.element(method[1], c("ML","REML","EB"))) { cat(mstyle$verbose(paste("Iteration", formatC(iter, width=5, flag="-", format="f", digits=0), "tau^2 =", fmtx(tau2, digits[["var"]]), "\n"))) cat(mstyle$verbose(paste("Fisher scoring algorithm converged after", iter, "iterations.\n"))) } # standard error of the tau^2 estimators (also when the user has fixed/specified a tau^2 value) # see notes.pdf and note: .tr(P%*%P) = sum(P*t(P)) = sum(P*P) (since P is symmetric) if (method[1] == "HS") se.tau2 <- sqrt(1/sum(wi)^2 * (2*(k-p) + 4*max(tau2,0)*.tr(P) + 2*max(tau2,0)^2*sum(P*P))) # note: wi = 1/vi if (method[1] == "HSk") se.tau2 <- k/(k-p) * sqrt(1/sum(wi)^2 * (2*(k-p) + 4*max(tau2,0)*.tr(P) + 2*max(tau2,0)^2*sum(P*P))) if (is.element(method[1], c("HE","CO","VC"))) se.tau2 <- sqrt(1/(k-p)^2 * (2*sum(PV*t(PV)) + 4*max(tau2,0)*trPV + 2*max(tau2,0)^2*(k-p))) if (method[1] == "DL") se.tau2 <- sqrt(1/trP^2 * (2*(k-p) + 4*max(tau2,0)*trP + 2*max(tau2,0)^2*sum(P*P))) if (is.element(method[1], c("GENQ","GENQM"))) se.tau2 <- sqrt(1/trP^2 * (2*sum(PV*t(PV)) + 4*max(tau2,0)*sum(PV*P) + 2*max(tau2,0)^2*sum(P*P))) if (method[1] == "SJ") se.tau2 <- sqrt(tau2.0^2/(k-p)^2 * (2*sum(PV*t(PV)) + 4*max(tau2,0)*sum(PV*P) + 2*max(tau2,0)^2*sum(P*P))) if (method[1] == "ML") se.tau2 <- sqrt(2/sum(wi^2)) # note: wi = 1/(vi + tau2) for ML, REML, EB, PM, PMM, and SJIT if (method[1] == "REML") se.tau2 <- sqrt(2/sum(P*P)) # based on Fisher information matrix #se.tau2 <- sqrt(1 / (t(Ymc) %*% P %*% P %*% P %*% Ymc - 1/2 * sum(P*P))) # based on Hessian if (is.element(method[1], c("EB","PM","MP","PMM","DLIT","SJIT"))) { wi <- 1/(vi + tau2) #V <- .diag(vi) #PV <- P %*% V # note: this is not symmetric #se.tau2 <- sqrt((k/(k-p))^2 / sum(wi)^2 * (2*sum(PV*t(PV)) + 4*max(tau2,0)*sum(PV*P) + 2*max(tau2,0)^2*sum(P*P))) se.tau2 <- sqrt(2*k^2/(k-p) / sum(wi)^2) # these two equations are actually identical, but this one is much simpler } } else { method <- method[-1] } } if (k == 1L) method <- method.sav } ######################################################################### ### parameter estimation for location-scale models (rma.ls) if (model == "rma.ls") { if (!is.element(method[1], c("ML","REML"))) stop(mstyle$stop("Location-scale models can only be fitted with ML or REML estimation.")) tau2.fix <- FALSE if (!is.null(tau2) && !is.na(tau2)) warning(mstyle$warning("Argument 'tau2' ignored for location-scale models."), call.=FALSE) # get optimizer arguments from the 'control' argument optimizer <- match.arg(con$optimizer, c("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","constrOptim","solnp","alabama","constrOptim.nl","auglag","Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent","Rcgmin","Rvmmin")) optmethod <- match.arg(con$optmethod, c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) if (optimizer %in% c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) { optmethod <- optimizer optimizer <- "optim" } parallel <- con$parallel cl <- con$cl ncpus <- con$ncpus optcontrol <- control[is.na(con.pos)] # get arguments that are control arguments for the optimizer if (length(optcontrol) == 0L) optcontrol <- list() # if control argument 'ncpus' is larger than 1, automatically switch to the 'optimParallel' optimizer if (ncpus > 1L) optimizer <- "optimParallel" # can use optimizer="alabama" as a shortcut for optimizer="constrOptim.nl" if (optimizer == "alabama") optimizer <- "constrOptim.nl" # when using an identity link, automatically set 'constrOptim' as the default optimizer if (link == "identity") { if (optimizer == "nlminb") { optimizer <- "constrOptim" } else { if (!is.element(optimizer, c("constrOptim","solnp","nloptr","constrOptim.nl","auglag"))) { optimizer <- "constrOptim" warning(mstyle$warning(paste0("Can only use optimizers 'constrOptim', 'solnp', 'nloptr', 'constrOptim.nl', or 'auglag' when link='identity' (resetting to '", optimizer, "').")), call.=FALSE) } } } if (link == "log" && is.element(optimizer, c("constrOptim","constrOptim.nl","auglag"))) stop(mstyle$stop(paste0("Cannot use '", optimizer, "' optimizer when using a log link."))) # but can use solnp and nloptr reml <- ifelse(method[1] == "REML", TRUE, FALSE) # drop redundant predictors tmp <- try(lm(yi ~ 0 + Z), silent=TRUE) if (inherits(tmp, "lm")) { coef.na.Z <- is.na(coef(tmp)) } else { coef.na.Z <- rep(FALSE, NCOL(Z)) } if (any(coef.na.Z)) { warning(mstyle$warning("Redundant predictors dropped from the scale model."), call.=FALSE) Z <- Z[,!coef.na.Z,drop=FALSE] Z.f <- Z.f[,!coef.na.Z,drop=FALSE] } # check whether an intercept is included and if yes, move it to the first column (NAs already removed, so na.rm=TRUE for any() is not necessary) is.int <- apply(Z, 2, .is.intercept) if (any(is.int)) { Z.int.incl <- TRUE int.indx <- which(is.int, arr.ind=TRUE) Z <- cbind(intrcpt=1, Z[,-int.indx, drop=FALSE]) # this removes any duplicate intercepts Z.f <- cbind(intrcpt=1, Z.f[,-int.indx, drop=FALSE]) # this removes any duplicate intercepts Z.intercept <- TRUE # set 'intercept' appropriately so that the predict() function works } else { Z.int.incl <- FALSE } q <- NCOL(Z) # number of columns in 'Z' (including the intercept if it is included) # check whether the model matrix is of full rank if (!.chkpd(crossprod(Z), tol=con$evtol)) stop(mstyle$stop("Model matrix for scale part of the model not of full rank. Cannot fit model.")) # check whether this is an intercept-only model is.int <- apply(Z, 2, .is.intercept) if (q == 1L && is.int) { Z.int.only <- TRUE } else { Z.int.only <- FALSE } # checks on the 'alpha' argument if (missing(alpha) || is.null(alpha) || all(is.na(alpha))) { alpha <- rep(NA_real_, q) } else { if (any(is.infinite(alpha))) stop(mstyle$stop("Infinite values in 'alpha' argument not allowed.")) alpha <- .expand1(alpha, q) if (length(alpha) != q) stop(mstyle$stop(paste0("Length of the 'alpha' argument (", length(alpha), ") does not match the actual number of parameters (", q, ")."))) } # checks on the 'beta' argument if (optbeta) { if (missing(beta) || is.null(beta) || all(is.na(beta))) { beta <- rep(NA_real_, p) } else { beta <- .expand1(beta, p) if (length(beta) != p) stop(mstyle$stop(paste0("Length of the 'beta' argument (", length(beta), ") does not match the actual number of parameters (", p, ")."))) } # needed for constrOptim() when optbeta=TRUE X0 <- X X0[] <- 0 } else { X0 <- NULL } # checks on the 'omega2' argument if (missing(omega2) || is.null(omega2) || all(is.na(omega2))) { omega2 <- NA_real_ } else { if (length(omega2) != 1) stop(mstyle$stop("Length of the 'omega2' argument must be 1.")) } # rescale the 'Z' matrix (only for models with moderators, models including a non-fixed intercept term, when not placing constraints on alpha, and when not optimizing over beta) if (!Z.int.only && Z.int.incl && con$scaleZ && is.na(alpha[1]) && all(is.infinite(con$alpha.min)) && all(is.infinite(con$alpha.max)) && !optbeta) { Zsave <- Z meanZ <- colMeans(Z[, 2:q, drop=FALSE]) sdZ <- apply(Z[, 2:q, drop=FALSE], 2, sd) # consider using colSds() from matrixStats package is.d <- apply(Z, 2, .is.dummy) # is each column a dummy variable (i.e., only 0s and 1s)? mZ <- rbind(c(intrcpt=1, -1*ifelse(is.d[-1], 0, meanZ/sdZ)), cbind(0, diag(ifelse(is.d[-1], 1, 1/sdZ), nrow=length(is.d)-1, ncol=length(is.d)-1))) imZ <- try(suppressWarnings(solve(mZ)), silent=TRUE) Z[,!is.d] <- apply(Z[, !is.d, drop=FALSE], 2, scale) # rescale the non-dummy variables if (any(!is.na(alpha))) { if (inherits(imZ, "try-error")) stop(mstyle$stop("Unable to rescale starting values for the scale parameters.")) alpha <- diag(imZ) * alpha } } else { mZ <- NULL } if (k == 1L && Z.int.only) { if (link == "log") con$alpha.init <- -10000 if (link == "identity") con$alpha.init <- 0.00001 } # set/transform/check 'alpha.init' if (verbose > 1) message(mstyle$message("Extracting/computing the initial values ...")) if (is.null(con$alpha.init)) { fit <- suppressWarnings(rma.uni(yi, vi, mods=X, intercept=FALSE, method="HE", skipr2=TRUE)) tmp <- rstandard(fit) if (link == "log") { tmp <- suppressWarnings(rma.uni(log(tmp$resid^2), 4/tmp$resid^2*tmp$se^2, mods=Z, intercept=FALSE, method="FE")) #tmp <- rma.uni(log(tmp$resid^2), 4/tmp$resid^2*tmp$se^2, mods=Z, intercept=FALSE, method="FE") #tmp <- rma.uni(log(tmp$resid^2), tmp$se^2, mods=Z, intercept=FALSE, method="FE") #tmp <- rma.uni(log(tmp$resid^2), 1, mods=Z, intercept=FALSE, method="FE") alpha.init <- coef(tmp) } if (link == "identity") { #tmp <- rma.uni(tmp$resid^2, 4*tmp$resid^2*tmp$se^2, mods=Z, intercept=FALSE, method="FE") tmp <- suppressWarnings(rma.uni(tmp$resid^2, tmp$se^2, mods=Z, intercept=FALSE, method="FE")) #tmp <- rma.uni(tmp$resid^2, 1, mods=Z, intercept=FALSE, method="FE") alpha.init <- coef(tmp) if (any(Z %*% alpha.init < 0)) alpha.init <- ifelse(is.int, fit$tau2+0.01, 0) if (any(Z %*% alpha.init < 0)) stop(mstyle$stop("Unable to find suitable starting values for the scale parameters.")) } } else { alpha.init <- con$alpha.init if (!is.null(mZ)) { if (inherits(imZ, "try-error")) stop(mstyle$stop("Unable to rescale the starting values for the scale parameters.")) alpha.init <- c(imZ %*% cbind(alpha.init)) } if (link == "identity" && any(Z %*% alpha.init < 0)) stop(mstyle$stop("Starting values for the scale parameters lead to one or more negative tau^2 values.")) if (optbeta) fit <- suppressWarnings(rma.uni(yi, vi, mods=X, intercept=FALSE, method="HE", skipr2=TRUE)) } if (length(alpha.init) != q) stop(mstyle$stop(paste0("Length of the 'alpha.init' argument (", length(alpha.init), ") does not match the actual number of parameters (", q, ")."))) if (anyNA(alpha.init)) stop(mstyle$stop("No missing values allowed in 'alpha.init'.")) if (optbeta) { if (is.null(con$beta.init)) { beta.init <- c(fit$beta) } else { beta.init <- con$beta.init if (length(beta.init) != p) stop(mstyle$stop(paste0("Length of the 'beta.init' argument (", length(beta.init), ") does not match the actual number of parameters (", p, ")."))) if (anyNA(beta.init)) stop(mstyle$stop("No missing values allowed in 'beta.init'.")) } } else { beta.init <- NULL } if (is.null(con$omega2.init)) { omega2.init <- log(0.1) } else { if (length(con$omega2.init) != 1L) stop(mstyle$stop("Argument 'omega2.init' should specify a single value.")) if (is.na(con$omega2.init)) stop(mstyle$stop("No missing value allowed in 'omega2.init'.")) if (con$omega2.init <= 0) stop(mstyle$stop("Value of 'omega2.init' must be > 0.")) omega2.init <- log(con$omega2.init) } # set potential constraints on the 'alpha' values con$alpha.min <- .expand1(con$alpha.min, q) con$alpha.max <- .expand1(con$alpha.max, q) if (length(con$alpha.min) != q) stop(mstyle$stop(paste0("Length of the 'alpha.min' argument (", length(alpha.min), ") does not match the actual number of parameters (", q, ")."))) if (length(con$alpha.max) != q) stop(mstyle$stop(paste0("Length of the 'alpha.max' argument (", length(alpha.max), ") does not match the actual number of parameters (", q, ")."))) if (any(xor(is.infinite(con$alpha.min),is.infinite(con$alpha.max)))) stop(mstyle$stop("Constraints on the scale coefficients must be placed on both the lower and upper bound.")) alpha.min <- con$alpha.min alpha.max <- con$alpha.max if (link == "identity" && (any(alpha.min != -Inf) || any(alpha.max != Inf))) stop(mstyle$stop("Cannot use constraints on scale coefficients when using an identity link.")) alpha.init <- pmax(alpha.init, alpha.min) alpha.init <- pmin(alpha.init, alpha.max) alpha.init <- mapply(.mapinvfun.alpha, alpha.init, alpha.min, alpha.max) # estimate 'alpha' (and 'beta') values if (verbose > 1) message(mstyle$message("Estimating the scale parameters ...\n")) tmp <- .chkopt(optimizer, optcontrol, ineq=link=="identity") optimizer <- tmp$optimizer optcontrol <- tmp$optcontrol par.arg <- tmp$par.arg ctrl.arg <- tmp$ctrl.arg # set up default cluster when using optimParallel if (optimizer == "optimParallel::optimParallel") { parallel$cl <- NULL if (is.null(cl)) { ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Control argument 'ncpus' must be >= 1.")) cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } else { if (!inherits(cl, "SOCKcluster")) stop(mstyle$stop("Specified cluster is not of class 'SOCKcluster'.")) } parallel$cl <- cl if (is.null(parallel$forward)) parallel$forward <- FALSE if (is.null(parallel$loginfo)) { if (verbose) { parallel$loginfo <- TRUE } else { parallel$loginfo <- FALSE } } } #return(list(con=con, optimizer=optimizer, optmethod=optmethod, optcontrol=optcontrol, ctrl.arg=ctrl.arg)) if (link == "log") { if (randhet) { init.str <- "=c(beta.init, alpha.init, omega2.init), " } else { init.str <- "=c(beta.init, alpha.init), " } optcall <- paste0(optimizer, "(", par.arg, init.str, " .ll.rma.ls, ", ifelse(optimizer=="optim", "method=optmethod, ", ""), "yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha, beta.arg=beta, omega2.arg=omega2, verbose=verbose, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=TRUE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit", ctrl.arg, ")\n") } if (link == "identity") { if (optimizer == "constrOptim") optcall <- paste0("constrOptim(theta=c(beta.init, alpha.init), f=.ll.rma.ls, grad=NULL, ui=cbind(X0,Z), ci=rep(0,k), yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha, beta.arg=beta, omega2.arg=omega2, verbose=verbose, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=TRUE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit", ctrl.arg, ")\n") if (optimizer == "Rsolnp::solnp") optcall <- paste0("Rsolnp::solnp(pars=c(beta.init, alpha.init), fun=.ll.rma.ls, ineqfun=.rma.ls.ineqfun.pos, ineqLB=rep(0,k), ineqUB=rep(Inf,k), yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha, beta.arg=beta, omega2.arg=omega2, verbose=verbose, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=TRUE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit", ctrl.arg, ")\n") if (optimizer == "nloptr::nloptr") optcall <- paste0("nloptr::nloptr(x0=c(beta.init, alpha.init), eval_f=.ll.rma.ls, eval_g_ineq=.rma.ls.ineqfun.neg, yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha, beta.arg=beta, omega2.arg=omega2, verbose=verbose, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=TRUE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit", ctrl.arg, ")\n") if (is.element(optimizer, c("alabama::constrOptim.nl","alabama::auglag"))) optcall <- paste0(optimizer, "(par=c(beta.init, alpha.init), fn=.ll.rma.ls, hin=.rma.ls.ineqfun.pos, yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha, beta.arg=beta, omega2.arg=omega2, verbose=verbose, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=TRUE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit", ctrl.arg, ")\n") } #print(optcall) #return(optcall) iteration <- 0 try(assign("iteration", iteration, envir=.metafor), silent=TRUE) if (verbose) { opt.res <- try(eval(str2lang(optcall)), silent=!verbose) } else { opt.res <- try(suppressWarnings(eval(str2lang(optcall))), silent=!verbose) } if (isTRUE(ddd$retopt)) return(opt.res) # convergence checks (if 'verbose = TRUE', print optimParallel log, if 'verbose > 2' print 'opt.res', and unify opt.res$par) opt.res <- .chkconv(optimizer=optimizer, opt.res=opt.res, optcontrol=optcontrol, fun="rma", verbose=verbose, paronly=FALSE) if (optbeta) { pos.beta <- 1:p pos.alpha <- (p+1):(p+q) if (randhet) { pos.omega2 <- p+q+1 } else { pos.omega2 <- integer(0) } } else { pos.alpha <- 1:q pos.beta <- integer(0) pos.omega2 <- integer(0) } # back-transform in case constraints were placed on the 'alpha' values opt.res$par[pos.alpha] <- mapply(.mapfun.alpha, opt.res$par[pos.alpha], alpha.min, alpha.max) # replace fixed 'beta' and 'alpha' values in opt.res$par opt.res$par[pos.beta] <- ifelse(is.na(beta), opt.res$par[pos.beta], beta) opt.res$par[pos.alpha] <- ifelse(is.na(alpha), opt.res$par[pos.alpha], alpha) # save for Hessian computation beta.arg <- beta alpha.arg <- alpha omega2.arg <- omega2 # get the scale (and location) parameter estimates beta <- cbind(opt.res$par[pos.beta]) alpha <- cbind(opt.res$par[pos.alpha]) lnomega2 <- unname(opt.res$par[pos.omega2]) # numeric(0) if !randhet omega2 <- exp(lnomega2) # numeric(0) if !randhet # try to compute var-cov matrix for the scale parameter estimates (and omega^2) H <- NA_real_ if (con$hes.beta.fix) { beta.hes <- beta } else { beta.hes <- beta.arg } if (con$hes.alpha.fix) { alpha.hes <- alpha } else { alpha.hes <- alpha.arg } if (con$hes.omega2.fix || isTRUE(omega2 < con$omega2tol)) { omega2.hes <- omega2 } else { omega2.hes <- omega2.arg } if (optbeta) { if (randhet) { vcovmat <- matrix(NA_real_, nrow=p+q+1, ncol=p+q+1) hest <- c(is.na(beta.hes), is.na(alpha.hes), is.na(omega2.hes)) hesspars <- c(beta, alpha, omega2) } else { vcovmat <- matrix(NA_real_, nrow=p+q, ncol=p+q) hest <- c(is.na(beta.hes), is.na(alpha.hes)) hesspars <- c(beta, alpha) } } else { vcovmat <- matrix(NA_real_, nrow=q, ncol=q) hest <- is.na(alpha.hes) hesspars <- c(alpha) } if (any(hest) && !isTRUE(ddd$skiphes)) { if (verbose > 1) message(mstyle$message("\nComputing the Hessian ...")) if (con$htransf) { if (con$hesspack == "numDeriv") H <- try(numDeriv::hessian(func=.ll.rma.ls, x=opt.res$par, method.args=con$hessianCtrl, yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha.hes, beta.arg=beta.hes, omega2.arg=omega2.hes, verbose=FALSE, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=FALSE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit), silent=TRUE) if (con$hesspack == "pracma") H <- try(pracma::hessian(f=.ll.rma.ls, x0=opt.res$par, h=con$hessianCtrl$h, yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha.hes, beta.arg=beta.hes, omega2.arg=omega2.hes, verbose=FALSE, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=FALSE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit), silent=TRUE) if (con$hesspack == "calculus") H <- try(calculus::hessian(f=.ll.rma.ls, var=opt.res$par, accuracy=con$hessianCtrl$accuracy, stepsize=con$hessianCtrl$stepsize, params=list(yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha.hes, beta.arg=beta.hes, omega2.arg=omega2.hes, verbose=FALSE, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=FALSE, omega2.transf=TRUE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit)), silent=TRUE) } else { # this is the default if (con$hesspack == "numDeriv") H <- try(numDeriv::hessian(func=.ll.rma.ls, x=hesspars, method.args=con$hessianCtrl, yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha.hes, beta.arg=beta.hes, omega2.arg=omega2.hes, verbose=FALSE, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=FALSE, omega2.transf=FALSE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit), silent=TRUE) if (con$hesspack == "pracma") H <- try(pracma::hessian(f=.ll.rma.ls, x0=hesspars, h=con$hessianCtrl$h, yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha.hes, beta.arg=beta.hes, omega2.arg=omega2.hes, verbose=FALSE, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=FALSE, omega2.transf=FALSE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit), silent=TRUE) if (con$hesspack == "calculus") H <- try(calculus::hessian(f=.ll.rma.ls, var=hesspars, accuracy=con$hessianCtrl$accuracy, stepsize=con$hessianCtrl$stepsize, params=list(yi=yi, vi=vi, X=X, Z=Z, reml=reml, alpha.arg=alpha.hes, beta.arg=beta.hes, omega2.arg=omega2.hes, verbose=FALSE, digits=digits, REMLf=con$REMLf, link=link, mZ=mZ, alpha.min=alpha.min, alpha.max=alpha.max, alpha.transf=FALSE, omega2.transf=FALSE, tau2.min=con$tau2.min, tau2.max=con$tau2.max, optbeta=optbeta, randhet=randhet, mfmaxit=con$mfmaxit)), silent=TRUE) } if (inherits(H, "try-error")) { warning(mstyle$warning("Error when trying to compute the Hessian."), call.=FALSE) } else { if (optbeta) { if (randhet) { rownames(H) <- colnames(H) <- c(paste0("X", colnames(X)), paste0("Z", colnames(Z)), "omega2") } else { rownames(H) <- colnames(H) <- c(paste0("X", colnames(X)), paste0("Z", colnames(Z))) } } else { rownames(H) <- colnames(H) <- colnames(Z) } H.hest <- H[hest, hest, drop=FALSE] iH.hest <- try(suppressWarnings(chol2inv(chol(H.hest))), silent=TRUE) if (inherits(iH.hest, "try-error") || anyNA(iH.hest) || any(is.infinite(iH.hest))) { warning(mstyle$warning("Error when trying to invert the Hessian."), call.=FALSE) } else { vcovmat[hest, hest] <- iH.hest } } } vb <- vcovmat[pos.beta, pos.beta, drop=FALSE] va <- vcovmat[pos.alpha, pos.alpha, drop=FALSE] vo <- vcovmat[pos.omega2, pos.omega2] vo <- max(0, vo) crit.omega2 <- qnorm(level/2, lower.tail=FALSE) if (con$htransf) { se.omega2 <- sqrt(vo) * omega2 # delta method ci.lb.omega2 <- exp(lnomega2 - crit.omega2 * sqrt(vo)) ci.ub.omega2 <- exp(lnomega2 + crit.omega2 * sqrt(vo)) } else { se.omega2 <- sqrt(vo) ci.lb.omega2 <- omega2 - crit.omega2 * se.omega2 ci.ub.omega2 <- omega2 + crit.omega2 * se.omega2 } ci.lb.omega2 <- max(0, ci.lb.omega2) if (any(alpha <= alpha.min + 10*.Machine$double.eps^0.25) || any(alpha >= alpha.max - 10*.Machine$double.eps^0.25)) warning(mstyle$warning("One or more 'alpha' estimates are (almost) equal to their lower or upper bound.\nTreat results with caution (or consider adjusting 'alpha.min' and/or 'alpha.max')."), call.=FALSE) # scale back 'alpha' and 'va' when the 'Z' matrix was rescaled if (!is.null(mZ)) { alpha <- mZ %*% alpha va[!hest,] <- 0 va[,!hest] <- 0 va <- mZ %*% va %*% t(mZ) va[!hest,] <- NA_real_ va[,!hest] <- NA_real_ Z <- Zsave } # set/check 'att' argument att <- .set.btt(att, q, Z.int.incl, colnames(Z)) m.alpha <- length(att) # number of alpha coefficients to test (m = q if all coefficients are tested) # ddf calculation if (is.element(test, c("knha","adhoc","t"))) { ddf.alpha <- k-q } else { ddf.alpha <- NA_integer_ } # QS calculation QS <- try(as.vector(t(alpha)[att] %*% chol2inv(chol(va[att,att])) %*% alpha[att]), silent=TRUE) if (inherits(QS, "try-error")) QS <- NA_real_ se.alpha <- sqrt(diag(va)) # abbreviate certain coefficient names if (isTRUE(ddd$abbrev)) { tmp <- colnames(Z) tmp <- gsub("relevel(factor(", "", tmp, fixed=TRUE) tmp <- gsub("\\), ref = \"[[:alnum:]]*\")", "", tmp) tmp <- gsub("poly(", "", tmp, fixed=TRUE) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]])", "^", tmp) tmp <- gsub("rcs\\([[:alnum:]]*, [[:digit:]]\\)", "", tmp) tmp <- gsub("factor(", "", tmp, fixed=TRUE) tmp <- gsub("I(", "", tmp, fixed=TRUE) tmp <- gsub(")", "", tmp, fixed=TRUE) colnames(Z) <- tmp } rownames(alpha) <- rownames(va) <- colnames(va) <- colnames(Z) names(se.alpha) <- NULL zval.alpha <- c(alpha/se.alpha) if (is.element(test, c("knha","adhoc","t"))) { QS <- QS / m.alpha QSdf <- c(m.alpha, ddf.alpha) QSp <- if (QSdf[2] > 0) pf(QS, df1=QSdf[1], df2=QSdf[2], lower.tail=FALSE) else NA_real_ pval.alpha <- if (ddf.alpha > 0) 2*pt(abs(zval.alpha), df=ddf.alpha, lower.tail=FALSE) else rep(NA_real_,q) crit.alpha <- if (ddf.alpha > 0) qt(level/2, df=ddf.alpha, lower.tail=FALSE) else NA_real_ } else { QSdf <- c(m.alpha, ddf.alpha) QSp <- pchisq(QS, df=QSdf[1], lower.tail=FALSE) pval.alpha <- 2*pnorm(abs(zval.alpha), lower.tail=FALSE) crit.alpha <- qnorm(level/2, lower.tail=FALSE) } ci.lb.alpha <- c(alpha - crit.alpha * se.alpha) ci.ub.alpha <- c(alpha + crit.alpha * se.alpha) if (link == "log") tau2 <- exp(as.vector(Z %*% alpha)) if (link == "identity") tau2 <- as.vector(Z %*% alpha) } # equal/fixed/common-effects model (note: sets tau2 to zero even when tau2 value is specified) if (is.element(method[1], c("FE","EE","CE"))) tau2 <- 0 ######################################################################### ### model fitting, test statistics, and confidence intervals if (verbose > 1) message(mstyle$message("\nModel fitting ...")) wi <- 1/(vi + tau2) W <- .diag(wi) M <- .diag(vi + tau2) if (weighted) { ### weighted analysis # fit model with weighted estimation if (is.null(weights) || is.element(test, c("knha","adhoc"))) { # if no weights are specified, use the default inverse variance weights, that is, 1/vi or 1/(vi + tau2) # also, even with weights, if test="knha" or "adhoc", need to run this to get 'RSS.knha' # if any vi = 0 and tau^2 is estimated to be 0 (or is set to 0 for a FE model), then get Inf for wi if (any(is.infinite(wi))) stop(mstyle$stop("Division by zero when computing the inverse variance weights.")) # don't recompute 'beta' and 'vb' when optbeta=TRUE, since these are already estimated if (!optbeta) { if (tau2.inf) { beta <- cbind(coef(lm(yi ~ 0 + X))) vb <- .diag(rep(Inf,p)) } else { stXWX <- .invcalc(X=X, W=W, k=k) beta <- stXWX %*% crossprod(X,W) %*% Y vb <- stXWX } } RSS.f <- sum(wi*c(yi - X %*% beta)^2) #P <- W - W %*% X %*% stXWX %*% crossprod(X,W) #RSS.f <- crossprod(Y,P) %*% Y RSS.knha <- RSS.f } if (!is.null(weights)) { # if weights are specified, use them (note: RSS.f is recomputed if test="knha" or "adhoc") A <- .diag(weights) stXAX <- .invcalc(X=X, W=A, k=k) beta <- stXAX %*% crossprod(X,A) %*% Y vb <- stXAX %*% t(X) %*% A %*% M %*% A %*% X %*% stXAX RSS.f <- sum(wi*c(yi - X %*% beta)^2) #P <- W - W %*% X %*% stXAX %*% t(X) %*% A - A %*% X %*% stXAX %*% t(X) %*% W + A %*% X %*% stXAX %*% t(X) %*% W %*% X %*% stXAX %*% t(X) %*% A #RSS.f <- crossprod(Y,P) %*% Y } #return(list(beta=beta, vb=vb, se=sqrt(diag(vb)), RSS.f=RSS.f)) # calculate the scaling factor for the Knapp & Hartung method # note: catch cases where 'RSS.knha' is extremely small, which is probably due to all 'yi' values being equal # then set 's2w' to 0 (to avoid the strange looking output we would obtain if we don't do this) if (is.element(test, c("knha","adhoc"))) { if (RSS.knha <= .Machine$double.eps) { s2w <- 0 } else { s2w <- RSS.knha / (k-p) } } } else { ### unweighted analysis # fit model with unweighted estimation # note: 1) if user has specified weights, they are ignored # 2) but if method="GENQ/GENQM", they were used to estimate tau^2 stXX <- .invcalc(X=X, W=diag(k), k=k) beta <- stXX %*% crossprod(X,Y) vb <- tcrossprod(stXX,X) %*% M %*% X %*% stXX RSS.f <- sum(wi*(yi - X %*% beta)^2) #P <- W - W %*% X %*% tcrossprod(stXX,X) - X %*% stXX %*% crossprod(X,W) + X %*% stXX %*% crossprod(X,W) %*% X %*% tcrossprod(stXX,X) #RSS.f <- crossprod(Y,P) %*% Y # calculate the scaling factor for the Knapp & Hartung method if (is.element(test, c("knha","adhoc"))) { if (any(is.infinite(wi))) stop(mstyle$stop("Division by zero when computing the inverse variance weights.")) stXWX <- .invcalc(X=X, W=W, k=k) beta.knha <- stXWX %*% crossprod(X,W) %*% Y RSS.knha <- sum(wi*(yi - X %*% beta.knha)^2) #P <- W - W %*% X %*% stXWX %*% crossprod(X,W) #RSS.knha <- c(crossprod(Y,P) %*% Y) if (RSS.knha <= .Machine$double.eps) { s2w <- 0 } else { s2w <- RSS.knha / (k-p) } } } if (verbose > 1) message(mstyle$message("Conducting the tests of the fixed effects ...")) # the Knapp & Hartung method as described in the literature is only for random/mixed-effects models if (is.element(method[1], c("FE","EE","CE")) && is.element(test, c("knha","adhoc"))) warning(mstyle$warning(paste0("Knapp and Hartung method is not meant to be used in the context of '", method[1], "' models.")), call.=FALSE) # Knapp & Hartung method with ad-hoc correction so that the scaling factor is always >= 1 if (test == "adhoc") s2w[s2w < 1] <- 1 # for Knapp & Hartung method, apply scaling to vb vb <- s2w * vb # handle special case of tau2=Inf if (tau2.inf) vb <- diag(rep(Inf,p)) # ddf calculation if (is.element(test, c("knha","adhoc","t"))) { ddf <- .chkddd(ddd$dfs, k-p, ddd$dfs[[1]]) # would be nice to allow multiple dfs values, but tricky since some methods are set up for a single df value } else { ddf <- NA_integer_ } # QM calculation QM <- try(as.vector(t(beta)[btt] %*% chol2inv(chol(vb[btt,btt])) %*% beta[btt]), silent=TRUE) if (inherits(QM, "try-error")) QM <- NA_real_ # abbreviate certain coefficient names if (isTRUE(ddd$abbrev)) { tmp <- colnames(X) tmp <- gsub("relevel(factor(", "", tmp, fixed=TRUE) tmp <- gsub("\\), ref = \"[[:alnum:]]*\")", "", tmp) tmp <- gsub("poly(", "", tmp, fixed=TRUE) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]])", "^", tmp) tmp <- gsub("rcs\\([[:alnum:]]*, [[:digit:]]\\)", "", tmp) tmp <- gsub("factor(", "", tmp, fixed=TRUE) tmp <- gsub("I(", "", tmp, fixed=TRUE) tmp <- gsub(")", "", tmp, fixed=TRUE) colnames(X) <- tmp } rownames(beta) <- rownames(vb) <- colnames(vb) <- colnames(X.f) <- colnames(X) se <- sqrt(diag(vb)) names(se) <- NULL zval <- c(beta/se) if (is.element(test, c("knha","adhoc","t"))) { QM <- QM / m QMdf <- c(m, ddf) QMp <- if (QMdf[2] > 0) pf(QM, df1=QMdf[1], df2=QMdf[2], lower.tail=FALSE) else NA_real_ pval <- if (ddf > 0) 2*pt(abs(zval), df=ddf, lower.tail=FALSE) else rep(NA_real_,p) crit <- if (ddf > 0) qt(level/2, df=ddf, lower.tail=FALSE) else NA_real_ } else { QMdf <- c(m, ddf) QMp <- pchisq(QM, df=QMdf[1], lower.tail=FALSE) pval <- 2*pnorm(abs(zval), lower.tail=FALSE) crit <- qnorm(level/2, lower.tail=FALSE) } ci.lb <- c(beta - crit * se) ci.ub <- c(beta + crit * se) ######################################################################### ### heterogeneity test (Wald-type test of the extra coefficients in the saturated model) if (verbose > 1) message(mstyle$message("Conducting the heterogeneity test ...")) if (allvipos) { # heterogeneity test always uses the inverse variance method # note: this is unaffected by the 'weighted' argument, since under H0, the same parameters are # estimated and weighted estimation provides the most efficient estimates; therefore, also any # arbitrary weights specified by the user are not relevant here (different from what the metan # command in Stata does!) see also: Chen, Z., Ng, H. K. T., & Nadarajah, S. (2014). A note on # Cochran test for homogeneity in one-way ANOVA and meta-analysis. Statistical Papers, 55(2), # 301-310. This shows that the weights used are not relevant. if (k > p) { wi <- 1/vi W.FE <- .diag(wi) # note: ll.REML below involves W, so cannot overwrite W stXWX <- .invcalc(X=X, W=W.FE, k=k) P <- W.FE - W.FE %*% X %*% stXWX %*% crossprod(X,W.FE) # need P below for calculation of I^2 QE <- max(0, c(crossprod(Ymc,P) %*% Ymc)) #beta.FE <- stXWX %*% crossprod(X,W.FE) %*% Y #QE <- max(0, sum(wi*(yi - X %*% beta.FE)^2)) QEp <- pchisq(QE, df=k-p, lower.tail=FALSE) # calculation of 'typical' sampling variance #vt <- (k-1) / (sum(wi) - sum(wi^2)/sum(wi)) # this only applies to the RE model if (i2def == "1") vt <- (k-p) / .tr(P) # general equation (with the equation above as special case) if (i2def == "2") vt <- 1 / mean(wi) # harmonic mean of the vi values (see Takkouche et al., 1999) # calculation of I^2 and H^2 if (is.element(method[1], c("FE","EE","CE"))) { I2 <- max(0, 100 * (QE - (k-p)) / QE) H2 <- QE / (k-p) } else { I2 <- 100 * tau2 / (vt + tau2) # vector for location-scale models H2 <- tau2 / vt + 1 # vector for location-scale models } } else { QE <- 0 QEp <- 1 I2 <- 0 H2 <- 1 vt <- 0 } } else { if (!vi0) warning(mstyle$warning(paste0("Cannot compute ", ifelse(int.only, "Q", "QE"), "-test, I^2, or H^2 when there are non-positive sampling variances in the data.")), call.=FALSE) vt <- NA_real_ } ######################################################################### ### fit statistics if (verbose > 1) message(mstyle$message("Computing fit statistics and log-likelihood ...")) ### note: tau2 is not counted as a parameter when it was fixed by the user (same for fixed alpha values) q.est <- ifelse(model == "rma.uni", 0, sum(is.na(alpha.arg)) + (randhet && is.na(omega2.arg))) parms <- ifelse(optbeta, sum(is.na(beta.arg)), p) + ifelse(model == "rma.uni", ifelse(is.element(method[1], c("FE","EE","CE")) || tau2.fix, 0, 1), q.est) if (randhet) { ll.ML <- -opt.res$value ll.REML <- NA_real_ } else { ll.ML <- -1/2 * (k) * log(2*base::pi) - 1/2 * sum(log(vi + tau2)) - 1/2 * RSS.f ll.REML <- -1/2 * (k-p) * log(2*base::pi) + ifelse(con$REMLf, 1/2 * determinant(crossprod(X), logarithm=TRUE)$modulus, 0) + -1/2 * sum(log(vi + tau2)) - 1/2 * determinant(crossprod(X,W) %*% X, logarithm=TRUE)$modulus - 1/2 * RSS.f } if (k > p) { if (allvipos) { dev.ML <- -2 * (ll.ML - sum(dnorm(yi, mean=yi, sd=sqrt(vi), log=TRUE))) } else { # when vi = 0, then dnorm(yi, yi, 0, log=TRUE) is Inf dev.ML <- -2 * ll.ML } } else { dev.ML <- 0 } AIC.ML <- -2 * ll.ML + 2*parms BIC.ML <- -2 * ll.ML + parms * log(k) AICc.ML <- -2 * ll.ML + 2*parms * max(k, parms+2) / (max(k, parms+2) - parms - 1) dev.REML <- -2 * (ll.REML - 0) # saturated model has ll = 0 when using the full REML likelihood AIC.REML <- -2 * ll.REML + 2*parms BIC.REML <- -2 * ll.REML + parms * log(k-p) AICc.REML <- -2 * ll.REML + 2*parms * max(k-p, parms+2) / (max(k-p, parms+2) - parms - 1) fit.stats <- matrix(c(ll.ML, dev.ML, AIC.ML, BIC.ML, AICc.ML, ll.REML, dev.REML, AIC.REML, BIC.REML, AICc.REML), ncol=2, byrow=FALSE) dimnames(fit.stats) <- list(c("ll","dev","AIC","BIC","AICc"), c("ML","REML")) fit.stats <- data.frame(fit.stats) ######################################################################### # compute pseudo R^2 statistic (only for rma.uni models) is.nested.in.int.only <- .is.nested(X, cbind(rep(1,k))) if (model == "rma.uni" && !int.only && is.nested.in.int.only && !isTRUE(ddd$skipr2)) { if (verbose > 1) message(mstyle$message("Computing R^2 ...")) if (is.element(method[1], c("FE","EE","CE"))) { if (identical(var(yi),0)) { R2 <- 0 } else { if (weighted) { if (is.null(weights)) { R2 <- max(0, 100 * summary(lm(yi ~ X, weights=wi))$adj.r.squared) } else { R2 <- max(0, 100 * summary(lm(yi ~ X, weights=weights))$adj.r.squared) } } else { R2 <- max(0, 100 * summary(lm(yi ~ X))$adj.r.squared) } } } else { if (r2def %in% c("1","1v","3","3v","5","6","7","8")) { args <- list(yi=yi, vi=vi, weights=weights, method=method, weighted=weighted, test=test, verbose=ifelse(verbose, TRUE, FALSE), control=con, digits=digits, outlist="minimal") if (verbose > 1) { res0 <- try(.do.call(rma.uni, args), silent=FALSE) } else { res0 <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) } if (!inherits(res0, "try-error")) { tau2.RE <- res0$tau2 if (identical(tau2.RE,0) && r2def %in% c("1","3")) { R2 <- 0 } else { ll0 <- logLik(res0) ll1 <- ifelse(method[1] == "ML", ll.ML, ll.REML) lls <- (ifelse(method[1] == "ML", dev.ML, dev.REML) + 2*ll1) / 2 # based on Raudenbush (1994) if (r2def == "1") R2 <- (tau2.RE - tau2) / tau2.RE # like Raudenbush (1994) but with total variance (including sampling variance) in the denominator if (r2def == "1v") R2 <- (tau2.RE - tau2) / (tau2.RE + 1/mean(1/vi)) # model component definition with tau^2_RE in the denominator if (r2def == "3") R2 <- var(c(X%*%beta)) / tau2.RE # model component definition with total variance (including sampling variance) in the denominator if (r2def == "3v") R2 <- var(c(X%*%beta)) / (tau2.RE + 1/mean(1/vi)) # like McFadden's R^2 if (r2def == "5") R2 <- 1 - ll1 / ll0 # like Cox & Snell R^2 if (r2def == "6") R2 <- 1 - (exp(ll0) / exp(ll1))^(2/k) # like Nagelkerke R^2 if (r2def == "7") R2 <- (1 - (exp(ll0) / exp(ll1))^(2/k)) / (1 - exp(ll0)^(2/k)) # how close ME model is to the saturated model in terms of ll (same as 5 for REML) if (r2def == "8") R2 <- (ll1 - ll0) / (lls - ll0) } } else { R2 <- NA_real_ } } else { # model component definition if (r2def == "2") R2 <- var(c(X%*%beta)) / (var(c(X%*%beta)) + tau2) # model component definition with total variance (including sampling variance) in the denominator if (r2def == "2v") R2 <- var(c(X%*%beta)) / (var(c(X%*%beta)) + tau2 + 1/mean(1/vi)) # squared correlation between observed and fitted values if (r2def == "4") R2 <- cor(yi, c(X%*%beta))^2 # squared weighted correlation between observed and fitted values if (r2def == "4w") { if (is.null(weights)) { # identical to eta^2 = F * df1 / (F * df1 + df2) when test="knha" R2 <- cov.wt(cbind(yi, c(X%*%beta)), cor=TRUE, wt=1/(vi+tau2))$cor[1,2]^2 } else { R2 <- cov.wt(cbind(yi, c(X%*%beta)), cor=TRUE, wt=weights)$cor[1,2]^2 } } } R2 <- max(0, 100 * R2) } } else { R2 <- NULL } if (isTRUE(ddd$pleasedonotreportI2thankyouverymuch)) { I2 <- NA H2 <- NA } ######################################################################### ### prepare output if (verbose > 1) message(mstyle$message("Preparing the output ...")) p.eff <- p k.eff <- k if (is.null(ddd$outlist) || ddd$outlist == "nodata") { res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, se.tau2=se.tau2, tau2.fix=tau2.fix, tau2.f=tau2, I2=I2, H2=H2, R2=R2, vt=vt, QE=QE, QEp=QEp, QM=QM, QMdf=QMdf, QMp=QMp, k=k, k.f=k.f, k.eff=k.eff, k.all=k.all, p=p, p.eff=p.eff, parms=parms, int.only=int.only, int.incl=int.incl, intercept=intercept, allvipos=allvipos, coef.na=coef.na, yi=yi, vi=vi, X=X, weights=weights, yi.f=yi.f, vi.f=vi.f, X.f=X.f, weights.f=weights.f, M=M, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.vector(vi)), chksumX=digest::digest(X), outdat.f=outdat.f, ni=ni, ni.f=ni.f, ids=ids, not.na=not.na, subset=subset, slab=slab, slab.null=slab.null, measure=measure, method=method[1], model=model, weighted=weighted, test=test, dfs=ddf, ddf=ddf, s2w=s2w, btt=btt, m=m, digits=digits, level=level, control=control, verbose=verbose, add=add, to=to, drop00=drop00, fit.stats=fit.stats, formula.yi=formula.yi, formula.mods=formula.mods, version=packageVersion("metafor"), call=mf) if (is.null(ddd$outlist)) res <- append(res, list(data=data), which(names(res) == "fit.stats")) } else { if (ddd$outlist == "minimal") { res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, se.tau2=se.tau2, tau2.fix=tau2.fix, I2=I2, H2=H2, R2=R2, QE=QE, QEp=QEp, QM=QM, QMdf=QMdf, QMp=QMp, k=k, k.f=k.f, k.eff=k.eff, p=p, p.eff=p.eff, parms=parms, int.only=int.only, int.incl=int.incl, intercept=intercept, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.matrix(vi)), chksumX=digest::digest(X), measure=measure, method=method[1], model=model, weighted=weighted, test=test, dfs=ddf, ddf=ddf, btt=btt, m=m, digits=digits, level=level, fit.stats=fit.stats) } else { res <- eval(str2lang(paste0("list(", ddd$outlist, ")"))) } } if (model == "rma.ls") { res$alpha <- alpha res$va <- va res$se.alpha <- se.alpha res$zval.alpha <- zval.alpha res$pval.alpha <- pval.alpha res$ci.lb.alpha <- ci.lb.alpha res$ci.ub.alpha <- ci.ub.alpha res$alpha.fix <- !is.na(alpha.arg) res$optbeta <- optbeta if (optbeta) { res$vcovmat <- vcovmat res$beta.fix <- !is.na(beta.arg) } res$randhet <- randhet if (randhet) { res$omega2 <- omega2 res$omega2.fix <- !is.na(omega2.arg) res$se.omega2 <- se.omega2 res$ci.lb.omega2 <- ci.lb.omega2 res$ci.ub.omega2 <- ci.ub.omega2 } res$q <- q res$alphas <- q res$link <- link res$Z <- Z res$Z.f <- Z.f res$tau2.f <- rep(NA_real_, k.f) res$tau2.f[not.na] <- tau2 res$att <- att res$m.alpha <- m.alpha res$ddf.alpha <- ddf.alpha res$QS <- QS res$QSdf <- QSdf res$QSp <- QSp res$formula.scale <- formula.scale res$Z.int.incl <- Z.int.incl res$Z.intercept <- Z.int.incl res$Z.int.only <- Z.int.only res$coef.na.Z <- coef.na.Z res$H <- H } time.end <- proc.time() res$time <- unname(time.end - time.start)[3] if (isTRUE(ddd$time)) .print.time(res$time) if (verbose || isTRUE(ddd$time)) cat("\n") if (model == "rma.ls") { class(res) <- c("rma.ls", "rma.uni", "rma") } else { class(res) <- c("rma.uni", "rma") } return(res) } metafor/R/forest.rma.r0000644000176200001440000016400315120213572014355 0ustar liggesusersforest.rma <- function(x, annotate=TRUE, addfit=TRUE, addpred=FALSE, predstyle="line", preddist, showweights=FALSE, header=TRUE, xlim, alim, olim, ylim, predlim, at, steps=5, level=x$level, refline=0, digits=2L, width, xlab, slab, mlab, ilab, ilab.lab, ilab.xpos, ilab.pos, order, transf, atransf, targs, rows, efac=1, pch, psize, plim=c(0.5,1.5), colout, col, border, shade, colshade, lty, fonts, cex, cex.lab, cex.axis, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma", notav=c("rma.ls", "rma.gen")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(x$yi.f) || is.null(x$vi.f) || is.null(x$X.f)) stop(mstyle$stop("Information needed to construct the plot is not available in the model object.")) if (missing(transf)) transf <- FALSE if (missing(atransf)) atransf <- FALSE transf.char <- deparse(transf) atransf.char <- deparse(atransf) if (is.function(transf) && is.function(atransf)) stop(mstyle$stop("Use either 'transf' or 'atransf' to specify a transformation (not both).")) .start.plot() if (missing(targs)) targs <- NULL if (missing(at)) at <- NULL mf <- match.call() if (missing(ilab)) { ilab <- NULL } else { ilab <- .getx("ilab", mf=mf, data=x$data) } if (missing(ilab.lab)) ilab.lab <- NULL if (missing(ilab.xpos)) ilab.xpos <- NULL if (missing(ilab.pos)) ilab.pos <- NULL if (missing(order)) { order <- NULL } else { order <- .getx("order", mf=mf, data=x$data) } if (missing(colout)) { colout <- par("fg") } else { colout <- .getx("colout", mf=mf, data=x$data) } if (missing(shade)) { shade <- NULL } else { shade <- .getx("shade", mf=mf, data=x$data) } if (missing(colshade)) colshade <- .coladj(par("bg","fg"), dark=0.1, light=-0.1) if (missing(pch)) { pch <- 15 } else { pch <- .getx("pch", mf=mf, data=x$data) } if (missing(psize)) { psize <- NULL } else { psize <- .getx("psize", mf=mf, data=x$data) } if (missing(cex)) cex <- NULL if (missing(cex.lab)) cex.lab <- NULL if (missing(cex.axis)) cex.axis <- NULL level <- .level(level) predlevel <- level # needed when using preddist and it has pi.lb/pi.ub and level elements predstyle <- match.arg(predstyle, c("line", "polygon", "bar", "shade", "dist")) if (predstyle %in% c("polygon","bar","shade","dist") && isFALSE(addpred)) addpred <- TRUE if (missing(predlim)) predlim <- NULL if (missing(preddist)) { preddist <- NULL } else { if (!is.list(preddist) || length(preddist) < 2L) stop(mstyle$stop("Argument 'preddist' must be a list (of length >= 2).")) if (length(preddist[[1]]) != length(preddist[[2]])) stop(mstyle$stop("Length of 'preddist[[1]]' does not match the length of 'preddist[[2]]'.")) } ### digits[1] for annotations, digits[2] for x-axis labels, digits[3] (if specified) for weights ### note: digits can also be a list (e.g., digits=list(2,3L)); trailing 0's on the x-axis labels ### are dropped if the value is an integer if (length(digits) == 1L) digits <- c(digits,digits,digits) if (length(digits) == 2L) digits <- c(digits,digits[[1]]) ddd <- list(...) ############################################################################ ### set default colors if user has not specified 'col' and 'border' arguments if (x$int.only) { if (predstyle=="dist") { col2 <- .coladj(par("bg","fg"), dark=0.60, light=-0.60) } else { col2 <- par("fg") } if (predstyle=="shade") { col3 <- .coladj(par("bg","fg"), dark=0.05, light=-0.05) } else { col3 <- .coladj(par("bg","fg"), dark=0.20, light=-0.20) } if (missing(col)) { # 1st = summary polygon, 2nd = PI line/polygon/bar / shade center / tails, 3rd = shade end / ><0 region, 4th = <>0 region col <- c(par("fg"), col2, col3, NA) } else { if (length(col) == 1L) col <- c(col, col2, col3, NA) if (length(col) == 2L) col <- c(col, col3, NA) if (length(col) == 3L) col <- c(col, NA) } if (missing(border)) { border <- c(par("fg"), par("fg")) # 1st = summary polygon, 2nd = polygon for predstyle="polygon" / bar for predstyle="bar" / distribution for predstyle="dist" } else { if (length(border) == 1L) border <- c(border, par("fg")) # if user only specified one value, assume it is for the summary polygon } } else { if (missing(col)) col <- .coladj(par("bg","fg"), dark=0.2, light=-0.2) # color of the fitted value polygons if (missing(border)) border <- .coladj(par("bg","fg"), dark=0.3, light=-0.3) # border color of the fitted value polygons if (predstyle %in% c("polygon","bar","shade","dist")) warning(mstyle$warning("Argument 'predstyle' not relevant for meta-regression models."), call.=FALSE) } ### set default line types if user has not specified 'lty' argument if (missing(lty)) { lty <- c("solid", "dotted", "solid") # 1st = CIs, 2nd = PI, 3rd = horizontal line(s) } else { if (length(lty) == 1L) lty <- c(lty, "dotted", "solid") if (length(lty) == 2L) lty <- c(lty, "solid") } ### vertical expansion factors: 1st = CI/PI end lines, 2nd = arrows, 3rd = summary polygon, 4th = PI polygon/bar/shade/dist height efac <- .expand1(efac, 4L) if (length(efac) == 2L) efac <- efac[c(1,1,2,2)] # if 2 values specified (note: this one is different in forest.default() and forest.cumul.rma()) if (length(efac) == 3L) efac <- efac[c(1:3,3)] # if 3 values specified efac[efac == 0] <- NA ### annotation symbols vector if (is.null(ddd$annosym)) { annosym <- c(" [", ", ", "]", "-", " ") # 4th element for minus sign symbol; 5th for space (in place of numbers and +); see [a] } else { annosym <- ddd$annosym if (length(annosym) == 3L) annosym <- c(annosym, "-", " ") if (length(annosym) == 4L) annosym <- c(annosym, " ") if (length(annosym) != 5L) stop(mstyle$stop("Argument 'annosym' must be a vector of length 3 (or 4 or 5).")) } ### adjust annosym for tabular figures if (isTRUE(ddd$tabfig == 1)) annosym <- c("\u2009[", ",\u2009", "]", "\u2212", "\u2002") # \u2009 thin space; \u2212 minus, \u2002 en space if (isTRUE(ddd$tabfig == 2)) annosym <- c("\u2009[", ",\u2009", "]", "\u2013", "\u2002") # \u2009 thin space; \u2013 en dash, \u2002 en space if (isTRUE(ddd$tabfig == 3)) annosym <- c("\u2009[", ",\u2009", "]", "\u2212", "\u2007") # \u2009 thin space; \u2212 minus, \u2007 figure space ### get measure from object measure <- x$measure ### column header estlab <- .setlab(measure, transf.char, atransf.char, gentype=3, short=TRUE) if (is.expression(estlab)) { header.right <- str2lang(paste0("bold(", estlab, " * '", annosym[1], "' * '", round(100*(1-level),digits[[1]]), "% CI'", " * '", annosym[3], "')")) } else { header.right <- paste0(estlab, annosym[1], round(100*(1-level),digits[[1]]), "% CI", annosym[3]) } if (is.logical(header)) { if (header) { header.left <- "Study" } else { header.left <- NULL header.right <- NULL } } else { if (!is.character(header)) stop(mstyle$stop("Argument 'header' must either be a logical or character vector.")) if (length(header) == 1L) { header.left <- header } else { header.left <- header[1] header.right <- header[2] } } if (!annotate) header.right <- NULL if (!is.null(ddd$addcred)) addpred <- ddd$addcred pi.type <- .chkddd(ddd$pi.type, "default", tolower(ddd$pi.type)) predtype <- .chkddd(ddd$predtype, pi.type, tolower(ddd$predtype)) decreasing <- .chkddd(ddd$decreasing, FALSE) if (is.null(ddd$clim)) { if (missing(olim)) olim <- NULL } else { olim <- ddd$clim } if (!is.null(olim)) { if (length(olim) != 2L) stop(mstyle$stop("Argument 'olim' must be of length 2.")) if (anyNA(olim)) stop(mstyle$stop("Argument 'olim' cannot contain NAs.")) olim <- sort(olim) } ### row adjustments for 1) study labels, 2) annotations, and 3) ilab elements if (is.null(ddd$rowadj)) { rowadj <- rep(0,3) } else { rowadj <- ddd$rowadj if (length(rowadj) == 1L) rowadj <- c(rowadj,rowadj,0) # if one value is specified, use it for both 1&2 if (length(rowadj) == 2L) rowadj <- c(rowadj,0) # if two values are specified, use them for 1&2 } top <- .chkddd(ddd$top, 3) if (is.null(ddd$xlabadj)) { xlabadj <- c(NA,NA) } else { xlabadj <- ddd$xlabadj if (length(xlabadj) == 1L) xlabadj <- c(xlabadj, 1-xlabadj) } xlabfont <- .chkddd(ddd$xlabfont, 1) lplot <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) plot(...) labline <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) abline(...) lsegments <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) segments(...) laxis <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) axis(...) lmtext <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) mtext(...) lpolygon <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) polygon(...) ltext <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) text(...) lpoints <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) points(...) lrect <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) rect(...) llines <- function(..., textpos, addcred, pi.type, predtype, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, preddist) lines(...) if (is.character(showweights)) { weighttype <- match.arg(showweights, c("diagonal", "rowsum")) if (weighttype == "rowsum" && !inherits(x, "rma.mv")) weighttype <- "diagonal" if (weighttype == "rowsum" && !x$int.only) stop(mstyle$stop("Row-sum weights are only meaningful for intercept-only models.")) showweights <- TRUE } else { weighttype <- "diagonal" } if (!is.logical(showweights)) stop(mstyle$stop("Argument 'showweights' must be a logical.")) ### TODO: remove this when there is a weights() function for 'rma.glmm' objects if (inherits(x, "rma.glmm") && showweights) stop(mstyle$stop("Option 'showweights=TRUE' not possible for 'rma.glmm' objects.")) ### TODO: remove this when there is a weights() function for 'rma.uni.selmodel' objects if (inherits(x, "rma.uni.selmodel") && showweights) stop(mstyle$stop("Option 'showweights=TRUE' not possible for 'rma.uni.selmodel' objects.")) if (!is.null(ddd$subset)) stop(mstyle$stop("Function does not have a 'subset' argument.")) ######################################################################### ### extract data and study labels ### note: yi.f/vi.f and pred may contain NAs yi <- x$yi.f vi <- x$vi.f X <- x$X.f k <- length(yi) # length of yi.f ### note: slab (if specified), ilab (if specified), pch (if vector), psize (if ### vector), colout (if vector), order (if vector) must have the same ### length as the original dataset slab.null <- FALSE if (missing(slab)) { if (x$slab.null) { slab <- paste("Study", x$ids) # x$ids is always of length yi.f (i.e., NAs also have an id) slab.null <- TRUE } else { slab <- x$slab # x$slab is always of length yi.f (i.e., NAs also have a study label) } } else { slab <- .getx("slab", mf=mf, data=x$data) if (length(slab) == 1L && is.na(slab)) { # slab=NA can be used to suppress study labels slab <- rep("", x$k.all) slab.null <- TRUE } if (length(slab) != x$k.all) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) slab <- .getsubset(slab, x$subset) } if (!is.null(ilab)) { if (is.null(dim(ilab))) ilab <- cbind(ilab) if (nrow(ilab) != x$k.all) stop(mstyle$stop(paste0("Length of the 'ilab' argument (", nrow(ilab), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) ilab <- .getsubset(ilab, x$subset) } pch <- .expand1(pch, x$k.all) if (length(pch) != x$k.all) stop(mstyle$stop(paste0("Length of the 'pch' argument (", length(pch), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) pch <- .getsubset(pch, x$subset) if (!is.null(psize)) { psize <- .expand1(psize, x$k.all) if (length(psize) != x$k.all) stop(mstyle$stop(paste0("Length of the 'psize' argument (", length(psize), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) psize <- .getsubset(psize, x$subset) } colout <- .expand1(colout, x$k.all) if (length(colout) != x$k.all) stop(mstyle$stop(paste0("Length of the 'colout' argument (", length(colout), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) colout <- .getsubset(colout, x$subset) shade.type <- "none" if (is.character(shade)) { shade.type <- "character" shade <- shade[1] if (!is.element(shade, c("zebra", "zebra1", "zebra2", "all"))) stop(mstyle$stop("Unknown option specified for 'shade' argument.")) } if (is.logical(shade)) { if (length(shade) == 1L) { shade <- "zebra" shade.type <- "character" } else { shade.type <- "logical" shade <- .chksubset(shade, x$k.all, stoponk0=FALSE) shade <- .getsubset(shade, x$subset) } } if (is.numeric(shade)) shade.type <- "numeric" ### extract fitted values options(na.action = "na.pass") # using na.pass to get the entire vector (length of yi.f) if (x$int.only) { pred <- fitted(x) pred.ci.lb <- rep(NA_real_, k) pred.ci.ub <- rep(NA_real_, k) } else { predres <- predict(x, level=level, predtype=predtype) pred <- predres$pred if (addpred) { pred.ci.lb <- predres$pi.lb pred.ci.ub <- predres$pi.ub } else { pred.ci.lb <- predres$ci.lb pred.ci.ub <- predres$ci.ub } } weights <- try(weights(x, type=weighttype), silent=TRUE) # does not work for rma.glmm and rma.uni.selmodel objects if (inherits(weights, "try-error")) weights <- rep(1, k) ### sort the data if requested if (!is.null(order)) { if (length(order) == 1L) { order <- match.arg(order, c("obs", "yi", "fit", "prec", "vi", "resid", "rstandard", "abs.resid", "abs.rstandard")) if (order == "obs" || order == "yi") sort.vec <- order(yi) if (order == "fit") sort.vec <- order(pred) if (order == "prec" || order == "vi") sort.vec <- order(vi, yi) if (order == "resid") sort.vec <- order(yi-pred, yi) if (order == "rstandard") sort.vec <- order(rstandard(x)$z, yi) # need options(na.action = "na.pass") here as well if (order == "abs.resid") sort.vec <- order(abs(yi-pred), yi) if (order == "abs.rstandard") sort.vec <- order(abs(rstandard(x)$z), yi) # need options(na.action = "na.pass") here as well } else { if (length(order) != x$k.all) stop(mstyle$stop(paste0("Length of the 'order' argument (", length(order), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) if (grepl("^order\\(", deparse1(substitute(order)))) { sort.vec <- order } else { sort.vec <- order(order, decreasing=decreasing) } if (!is.null(x$subset)) sort.vec <- .getsubset(sort.vec, x$subset) - sum(!x$subset) } yi <- yi[sort.vec] vi <- vi[sort.vec] X <- X[sort.vec,,drop=FALSE] slab <- slab[sort.vec] ilab <- ilab[sort.vec,,drop=FALSE] # if NULL, remains NULL pred <- pred[sort.vec] pred.ci.lb <- pred.ci.lb[sort.vec] pred.ci.ub <- pred.ci.ub[sort.vec] weights <- weights[sort.vec] pch <- pch[sort.vec] psize <- psize[sort.vec] # if NULL, remains NULL colout <- colout[sort.vec] if (shade.type == "logical") shade <- shade[sort.vec] } options(na.action = na.act) k <- length(yi) # in case length of k has changed ### set rows value if (missing(rows)) { rows <- k:1 } else { if (length(rows) == 1L) { # note: rows must be a single value or the same rows <- rows:(rows-k+1) # length of yi.f (including NAs) *after ordering* } } if (length(rows) != k) stop(mstyle$stop(paste0("Length of the 'rows' argument (", length(rows), ") does not correspond to the number of outcomes (", k, ")."))) ### reverse order yi <- yi[k:1] vi <- vi[k:1] X <- X[k:1,,drop=FALSE] slab <- slab[k:1] ilab <- ilab[k:1,,drop=FALSE] # if NULL, remains NULL pred <- pred[k:1] pred.ci.lb <- pred.ci.lb[k:1] pred.ci.ub <- pred.ci.ub[k:1] weights <- weights[k:1] pch <- pch[k:1] psize <- psize[k:1] # if NULL, remains NULL colout <- colout[k:1] rows <- rows[k:1] if (shade.type == "logical") shade <- shade[k:1] ### check for NAs in yi/vi/X and act accordingly yiviX.na <- is.na(yi) | is.na(vi) | apply(is.na(X), 1, any) if (any(yiviX.na)) { not.na <- !yiviX.na if (na.act == "na.omit") { yi <- yi[not.na] vi <- vi[not.na] X <- X[not.na,,drop=FALSE] slab <- slab[not.na] ilab <- ilab[not.na,,drop=FALSE] # if NULL, remains NULL pred <- pred[not.na] pred.ci.lb <- pred.ci.lb[not.na] pred.ci.ub <- pred.ci.ub[not.na] weights <- weights[not.na] pch <- pch[not.na] psize <- psize[not.na] # if NULL, remains NULL colout <- colout[not.na] rows.new <- rows # rearrange rows due to NAs being omitted from plot rows.na <- rows[!not.na] # shift higher rows down according to number of NAs omitted for (j in seq_along(rows.na)) { rows.new[rows >= rows.na[j]] <- rows.new[rows >= rows.na[j]] - 1 } rows <- rows.new[not.na] if (shade.type == "logical") shade <- shade[not.na] } if (na.act == "na.fail") stop(mstyle$stop("Missing values in results.")) } # note: yi/vi may be NA if na.act == "na.exclude" or "na.pass" k <- length(yi) # in case length of k has changed ### calculate individual CI bounds ci.lb <- yi - qnorm(level/2, lower.tail=FALSE) * sqrt(vi) ci.ub <- yi + qnorm(level/2, lower.tail=FALSE) * sqrt(vi) ### if requested, apply transformation to yi's and CI bounds if (is.function(transf)) { if (is.null(targs)) { yi <- sapply(yi, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) pred <- sapply(pred, transf) pred.ci.lb <- sapply(pred.ci.lb, transf) pred.ci.ub <- sapply(pred.ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) yi <- sapply(yi, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) pred <- sapply(pred, transf, targs) pred.ci.lb <- sapply(pred.ci.lb, transf, targs) pred.ci.ub <- sapply(pred.ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] tmp <- .psort(pred.ci.lb, pred.ci.ub) pred.ci.lb <- tmp[,1] pred.ci.ub <- tmp[,2] ### apply observation/outcome limits if specified if (!is.null(olim)) { yi <- .applyolim(yi, olim) ci.lb <- .applyolim(ci.lb, olim) ci.ub <- .applyolim(ci.ub, olim) pred <- .applyolim(pred, olim) pred.ci.lb <- .applyolim(pred.ci.lb, olim) pred.ci.ub <- .applyolim(pred.ci.ub, olim) } ### set default point sizes (if not specified by user) if (is.null(psize)) { if (length(plim) < 2L) stop(mstyle$stop("Argument 'plim' must be of length 2 or 3.")) wi <- sqrt(weights) if (!is.na(plim[1]) && !is.na(plim[2])) { rng <- max(wi, na.rm=TRUE) - min(wi, na.rm=TRUE) if (rng <= .Machine$double.eps^0.5) { psize <- rep(1, k) } else { psize <- (wi - min(wi, na.rm=TRUE)) / rng psize <- (psize * (plim[2] - plim[1])) + plim[1] } } if (is.na(plim[1]) && !is.na(plim[2])) { psize <- wi / max(wi, na.rm=TRUE) * plim[2] if (length(plim) == 3L) psize[psize <= plim[3]] <- plim[3] } if (!is.na(plim[1]) && is.na(plim[2])) { psize <- wi / min(wi, na.rm=TRUE) * plim[1] if (length(plim) == 3L) psize[psize >= plim[3]] <- plim[3] } if (all(is.na(psize))) psize <- rep(1, k) } ######################################################################### if (!is.null(at)) { if (anyNA(at)) stop(mstyle$stop("Argument 'at' cannot contain NAs.")) if (any(is.infinite(at))) stop(mstyle$stop("Argument 'at' cannot contain +-Inf values.")) } ### set x-axis limits (at argument overrides alim argument) alim.spec <- TRUE if (missing(alim)) { if (is.null(at)) { alim <- range(pretty(x=c(min(ci.lb, na.rm=TRUE), max(ci.ub, na.rm=TRUE)), n=steps-1)) alim.spec <- FALSE } else { alim <- range(at) } } else { if (length(alim) != 2L) stop(mstyle$stop("Argument 'alim' must be of length 2.")) } alim <- sort(alim) if (anyNA(alim)) stop(mstyle$stop("Argument 'alim' cannot contain NAs.")) ### generate x-axis positions if none are specified if (is.null(at)) { if (alim.spec) { at <- seq(from=alim[1], to=alim[2], length.out=steps) } else { at <- pretty(x=c(min(ci.lb, na.rm=TRUE), max(ci.ub, na.rm=TRUE)), n=steps-1) } } else { at[at < alim[1]] <- alim[1] # remove at values that are below or above the axis limits at[at > alim[2]] <- alim[2] at <- unique(at) } ### x-axis labels (apply transformation to axis labels if requested) if (is.null(ddd$at.lab)) { at.lab <- at if (is.function(atransf)) { if (is.null(targs)) { at.lab <- fmtx(sapply(at.lab, atransf), digits[[2]], drop0ifint=TRUE) } else { at.lab <- fmtx(sapply(at.lab, atransf, targs), digits[[2]], drop0ifint=TRUE) } } else { at.lab <- fmtx(at.lab, digits[[2]], drop0ifint=TRUE) } } else { at.lab <- ddd$at.lab } ### set plot limits (xlim) ncol.ilab <- ifelse(is.null(ilab), 0, ncol(ilab)) if (slab.null) { area.slab <- 25 } else { area.slab <- 40 } if (annotate) { if (showweights) { area.anno <- 30 } else { area.anno <- 25 } } else { area.anno <- 10 } iadd <- 5 area.slab <- area.slab + iadd*ncol.ilab #area.anno <- area.anno area.forest <- 100 + iadd*ncol.ilab - area.slab - area.anno area.slab <- area.slab / (100 + iadd*ncol.ilab) area.anno <- area.anno / (100 + iadd*ncol.ilab) area.forest <- area.forest / (100 + iadd*ncol.ilab) plot.multp.l <- area.slab / area.forest plot.multp.r <- area.anno / area.forest if (missing(xlim)) { if (min(ci.lb, na.rm=TRUE) < alim[1]) { f.1 <- alim[1] } else { f.1 <- min(ci.lb, na.rm=TRUE) } if (max(ci.ub, na.rm=TRUE) > alim[2]) { f.2 <- alim[2] } else { f.2 <- max(ci.ub, na.rm=TRUE) } rng <- f.2 - f.1 xlim <- c(f.1 - rng * plot.multp.l, f.2 + rng * plot.multp.r) xlim <- round(xlim, digits[[2]]) #xlim[1] <- xlim[1]*max(1, digits[[2]]/2) #xlim[2] <- xlim[2]*max(1, digits[[2]]/2) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' must be of length 2.")) } xlim <- sort(xlim) ### plot limits must always encompass the yi values (no longer done) #if (xlim[1] > min(yi, na.rm=TRUE)) { xlim[1] <- min(yi, na.rm=TRUE) } #if (xlim[2] < max(yi, na.rm=TRUE)) { xlim[2] <- max(yi, na.rm=TRUE) } ### x-axis limits must always encompass the yi values (no longer done) #if (alim[1] > min(yi, na.rm=TRUE)) { alim[1] <- min(yi, na.rm=TRUE) } #if (alim[2] < max(yi, na.rm=TRUE)) { alim[2] <- max(yi, na.rm=TRUE) } ### plot limits must always encompass the x-axis limits (no longer done) #if (alim[1] < xlim[1]) { xlim[1] <- alim[1] } #if (alim[2] > xlim[2]) { xlim[2] <- alim[2] } ### allow adjustment of position of study labels and annotations via textpos argument textpos <- .chkddd(ddd$textpos, xlim) if (length(textpos) != 2L) stop(mstyle$stop("Argument 'textpos' must be of length 2.")) if (is.na(textpos[1])) textpos[1] <- xlim[1] if (is.na(textpos[2])) textpos[2] <- xlim[2] ### set y-axis limits if (missing(ylim)) { if (x$int.only && addfit) { ylim <- c(-2 - ifelse(predstyle=="line", 0, 1), max(rows, na.rm=TRUE)+top) } else { ylim <- c(0, max(rows, na.rm=TRUE)+top) } } else { if (length(ylim) == 1L) { if (x$int.only && addfit) { ylim <- c(ylim, max(rows, na.rm=TRUE)+top) } else { ylim <- c(ylim, max(rows, na.rm=TRUE)+top) } } else { ylim <- sort(ylim) } } ######################################################################### ### set/get fonts (1st for study labels, 2nd for annotations, 3rd for ilab) ### when passing a named vector, the names are for 'family' and the values are for 'font' if (missing(fonts)) { fonts <- rep(par("family"), 3L) } else { if (length(fonts) == 1L) fonts <- rep(fonts, 3L) if (length(fonts) == 2L) fonts <- c(fonts, fonts[1]) } if (is.null(names(fonts))) fonts <- setNames(c(1L,1L,1L), nm=fonts) par(family=names(fonts)[1], font=fonts[1]) ### adjust margins par.mar <- par("mar") par.mar.adj <- par.mar - c(0,3,1,1) par.mar.adj[par.mar.adj < 0] <- 0 par(mar=par.mar.adj) on.exit(par(mar=par.mar), add=TRUE) #if (identical(par("mar"), c(5.1,4.1,4.1,2.1))) # par(mar = c(5.1,1.1,3.1,1.1)) ### start plot lplot(NA, NA, xlim=xlim, ylim=ylim, xlab="", ylab="", yaxt="n", xaxt="n", xaxs="i", yaxs="i", bty="n", ...) ### add shading if (shade.type == "character") { if (shade == "zebra" || shade == "zebra1") tmp <- rep_len(c(TRUE,FALSE), k) if (shade == "zebra2") tmp <- rep_len(c(FALSE,TRUE), k) if (shade == "all") tmp <- rep_len(TRUE, k) shade <- tmp } if (shade.type %in% c("character","logical")) { for (i in seq_len(k)) { if (shade[i]) rect(xlim[1], rows[i]-0.5, xlim[2], rows[i]+0.5, border=colshade, col=colshade) } } if (shade.type == "numeric") { for (i in seq_along(shade)) { rect(xlim[1], shade[i]-0.5, xlim[2], shade[i]+0.5, border=colshade, col=colshade) } } ### horizontal title line labline(h=ylim[2]-(top-1), lty=lty[3], ...) ### get coordinates of the plotting region par.usr <- par("usr") ### add reference line if (is.numeric(refline)) lsegments(refline, par.usr[3], refline, ylim[2]-(top-1), lty="dotted", ...) ### set cex, cex.lab, and cex.axis sizes as a function of the height of the figure height <- par.usr[4] - par.usr[3] if (is.null(cex)) { lheight <- strheight("O") cex.adj <- ifelse(k * lheight > height * 0.8, height/(1.25 * k * lheight), 1) } if (is.null(cex)) { cex <- par("cex") * cex.adj } else { if (is.null(cex.lab)) cex.lab <- par("cex") * cex if (is.null(cex.axis)) cex.axis <- cex } if (is.null(cex.lab)) cex.lab <- par("cex") * cex.adj if (is.null(cex.axis)) cex.axis <- par("cex") * cex.adj ######################################################################### ### if addfit and not an intercept-only model, add fitted polygons polylen <- 10000 polheight <- (height/100)*cex*efac[3] poladds <- (0:(polylen-1)) * (polheight/(polylen-1)) if (addfit && !x$int.only) { for (i in seq_len(k)) { if (is.na(pred[i])) next xs <- c(seq(pred.ci.lb[i], pred[i], length.out=polylen), seq(pred[i], pred.ci.ub[i], length.out=polylen), seq(pred.ci.ub[i], pred[i], length.out=polylen), seq(pred[i], pred.ci.lb[i], length.out=polylen)) ys <- c(rows[i]+poladds, rows[i]+polheight-poladds, rows[i]-poladds, rows[i]-polheight+poladds) ys <- ys[xs > alim[1] & xs < alim[2]] xs <- xs[xs > alim[1] & xs < alim[2]] lpolygon(x=xs, y=ys, col=col, border=border, ...) } } ######################################################################### ciendheight <- height / 150 * cex * efac[1] arrowwidth <- 1.4 / 100 * cex * (xlim[2]-xlim[1]) arrowheight <- height / 150 * cex * efac[2] barheight <- min(0.25, height / 150 * cex * efac[4]) pipolheight <- (height / 100) * cex * efac[4] ### if addfit and intercept-only model, add fixed/random-effects model polygon if (addfit && x$int.only) { if (inherits(x, "rma.mv") && x$withG && x$tau2s > 1) { if (is.logical(addpred)) { if (addpred) { ### here addpred=TRUE, but user has not specified the level, so throw an error stop(mstyle$stop("Must specify the level of the inner factor(s) via the 'addpred' argument.")) } else { ### here addpred=FALSE, so just use the first tau^2 and gamma^2 arbitrarily (so predict() works) predres <- predict(x, level=level, tau2.levels=1, gamma2.levels=1, predtype=predtype) } } else { ### for multiple tau^2 (and gamma^2) values, need to specify level(s) of the inner factor(s) to compute the PI ### this can be done via the addpred argument (i.e., instead of using a logical, one specifies the level(s)) if (length(addpred) == 1L) addpred <- c(addpred, addpred) predres <- predict(x, level=level, tau2.levels=addpred[1], gamma2.levels=addpred[2], predtype=predtype) addpred <- TRUE # set addpred to TRUE, so if (!is.element(x$method, c("FE","EE","CE")) && addpred) further below works } } else { predres <- predict(x, level=level, predtype=predtype) } beta <- predres$pred beta.ci.lb <- predres$ci.lb beta.ci.ub <- predres$ci.ub if (is.null(preddist)) { beta.pi.lb <- predres$pi.lb beta.pi.ub <- predres$pi.ub } else { pdxs <- preddist[[1]] pdys <- preddist[[2]] #dx <- diff(pdxs)[1] #cdf <- cumsum(pdys) * dx cdf <- cumsum(diff(pdxs) * (pdys[-1]+pdys[-length(pdys)])/2) cdf <- cdf / max(cdf) if (is.null(preddist$pi.lb)) { beta.pi.lb <- pdxs[which.min(abs(cdf - level/2))] } else { beta.pi.lb <- preddist$pi.lb } if (is.null(preddist$pi.ub)) { beta.pi.ub <- pdxs[which.min(abs(cdf - (1-level/2)))] } else { beta.pi.ub <- preddist$pi.ub } if (!is.null(preddist$level)) predlevel <- .level(preddist$level) } if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) beta.ci.lb <- sapply(beta.ci.lb, transf) beta.ci.ub <- sapply(beta.ci.ub, transf) beta.pi.lb <- sapply(beta.pi.lb, transf) beta.pi.ub <- sapply(beta.pi.ub, transf) } else { beta <- sapply(beta, transf, targs) beta.ci.lb <- sapply(beta.ci.lb, transf, targs) beta.ci.ub <- sapply(beta.ci.ub, transf, targs) beta.pi.lb <- sapply(beta.pi.lb, transf, targs) beta.pi.ub <- sapply(beta.pi.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(beta.ci.lb, beta.ci.ub) beta.ci.lb <- tmp[,1] beta.ci.ub <- tmp[,2] tmp <- .psort(beta.pi.lb, beta.pi.ub) beta.pi.lb <- tmp[,1] beta.pi.ub <- tmp[,2] ### apply observation/outcome limits if specified if (!is.null(olim)) { beta <- .applyolim(beta, olim) beta.ci.lb <- .applyolim(beta.ci.lb, olim) beta.ci.ub <- .applyolim(beta.ci.ub, olim) beta.pi.lb <- .applyolim(beta.pi.lb, olim) beta.pi.ub <- .applyolim(beta.pi.ub, olim) } ### add prediction interval ### note: in contrast to addpoly.default(), these respect 'alim' if (!is.element(x$method, c("FE","EE","CE")) && addpred) { if (predstyle == "line") { lsegments(max(beta.pi.lb, alim[1]), -1, min(beta.pi.ub, alim[2]), -1, lty=lty[2], col=col[2], ...) if (beta.pi.lb >= alim[1]) { lsegments(beta.pi.lb, -1-ciendheight, beta.pi.lb, -1+ciendheight, col=col[2], ...) } else { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(-1, -1+arrowheight, -1-arrowheight, -1), col=col[2], border=col[2], ...) } if (beta.pi.ub <= alim[2]) { lsegments(beta.pi.ub, -1-ciendheight, beta.pi.ub, -1+ciendheight, col=col[2], ...) } else { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(-1, -1+arrowheight, -1-arrowheight, -1), col=col[2], border=col[2], ...) } } if (predstyle == "polygon") { poladds <- (0:(polylen-1)) * (pipolheight/(polylen-1)) xs <- c(seq(beta.pi.lb, beta, length.out=polylen), seq(beta, beta.pi.ub, length.out=polylen), seq(beta.pi.ub, beta, length.out=polylen), seq(beta, beta.pi.lb, length.out=polylen)) ys <- c(-2+poladds, -2+pipolheight-poladds, -2-poladds, -2-pipolheight+poladds) ys <- ys[xs > alim[1] & xs < alim[2]] xs <- xs[xs > alim[1] & xs < alim[2]] lpolygon(x=xs, y=ys, col=col[2], border=border[2], ...) } if (predstyle == "bar") { if (beta.pi.lb >= alim[1]) { lrect(beta.pi.lb, -2-barheight, beta, -2+barheight, col=col[2], border=border[2], ...) } else { lrect(alim[1]+arrowwidth, -2-barheight, beta, -2+barheight, col=col[2], border=border[2], ...) lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(-2, -2+barheight, -2-barheight, -2), col=col[2], border=col[2], ...) } if (beta.pi.ub <= alim[2]) { lrect(beta.pi.ub, -2-barheight, beta, -2+barheight, col=col[2], border=border[2], ...) } else { lrect(alim[2]-arrowwidth, -2-barheight, beta, -2+barheight, col=col[2], border=border[2], ...) lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(-2, -2+barheight, -2-barheight, -2), col=col[2], border=col[2], ...) } } if (predstyle %in% c("shade","dist")) { if (is.function(transf)) { funlist <- lapply(list("1"=exp, "2"=transf.ztor, "3"=tanh, "4"=transf.ilogit, "5"=plogis, "6"=transf.iarcsin, "7"=transf.iprobit, "8"=pnorm, "9"=transf.iahw, "10"=transf.iabt), deparse) funmatch <- sapply(funlist, identical, transf.char) if (!any(funmatch)) stop(mstyle$stop("Chosen transformation not (currently) possible with this 'predstyle'.")) } if (is.null(preddist) && predres$pi.dist != "norm" && predres$pi.ddf <= 1L) stop(mstyle$stop("Cannot shade/draw prediction distribution when df <= 1.")) x.len <- 10000 if (predstyle == "shade") { q.lo <- level/2 q.hi <- 1-level/2 } else { q.lo <- 0.0001 q.hi <- 0.9999 } if (is.null(preddist)) { if (is.null(predlim) || predstyle == "shade") { if (predres$pi.dist == "norm") { crits <- qnorm(c(q.lo,q.hi), mean=predres$pred, sd=predres$pi.se) xs <- seq(crits[1], crits[2], length.out=x.len) ys <- dnorm(xs, mean=predres$pred, sd=predres$pi.se) } else { crits <- qt(c(q.lo,q.hi), df=predres$pi.ddf) * predres$pi.se + predres$pred xs <- seq(crits[1], crits[2], length.out=x.len) ys <- dt((xs - predres$pred) / predres$pi.se, df=predres$pi.ddf) / predres$pi.se } } else { if (length(predlim) != 2L) stop(mstyle$stop("Argument 'predlim' must be of length 2.")) xs <- seq(predlim[1], predlim[2], length.out=x.len) if (is.function(transf)) { if (funmatch[1]) xs <- suppressWarnings(log(xs)) if (any(funmatch[2:3])) xs <- suppressWarnings(atanh(xs)) if (any(funmatch[4:5])) xs <- suppressWarnings(qlogis(xs)) if (funmatch[6]) xs <- suppressWarnings(transf.arcsin(xs)) if (any(funmatch[7:8])) xs <- suppressWarnings(qnorm(xs)) if (funmatch[9]) xs <- suppressWarnings(transf.ahw(xs)) if (funmatch[10]) xs <- suppressWarnings(transf.abt(xs)) sel <- is.finite(xs) # FALSE for +-Inf and NA/NaN xs <- xs[sel] } if (predres$pi.dist == "norm") { ys <- dnorm(xs, mean=predres$pred, sd=predres$pi.se) } else { ys <- dt((xs - predres$pred) / predres$pi.se, df=predres$pi.ddf) / predres$pi.se } } } else { xs <- preddist[[1]] ys <- preddist[[2]] if (!is.null(predlim)) { if (length(predlim) != 2L) stop(mstyle$stop("Argument 'predlim' must be of length 2.")) if (is.function(transf)) { if (funmatch[1]) predlim <- suppressWarnings(log(predlim)) if (any(funmatch[2:3])) predlim <- suppressWarnings(atanh(predlim)) if (any(funmatch[4:5])) predlim <- suppressWarnings(qlogis(predlim)) if (funmatch[6]) predlim <- suppressWarnings(transf.arcsin(predlim)) if (any(funmatch[7:8])) predlim <- suppressWarnings(qnorm(predlim)) if (funmatch[9]) predlim <- suppressWarnings(transf.ahw(predlim)) if (funmatch[10]) predlim <- suppressWarnings(transf.abt(predlim)) } ys <- ys[xs > predlim[1] & xs < predlim[2]] xs <- xs[xs > predlim[1] & xs < predlim[2]] } } sel.l0 <- xs < 0 sel.g0 <- xs > 0 if (is.function(transf)) { xs <- sapply(xs, transf) if (funmatch[1]) { ys <- ys / xs x.lo <- 0.01 x.hi <- Inf } if (any(funmatch[2:3])) { ys <- ys / (1-xs^2) x.lo <- -0.99 x.hi <- 0.99 } if (any(funmatch[4:5])) { ys <- ys / (xs*(1-xs)) x.lo <- 0.01 x.hi <- 0.99 } if (funmatch[6]) { ys <- ys / (2*sqrt(xs*(1-xs))) x.lo <- 0.01 x.hi <- 0.99 } if (any(funmatch[7:8])) { ys <- ys / dnorm(qnorm(xs)) x.lo <- 0.01 x.hi <- 0.99 } if (funmatch[9]) { ys <- ys / (3*(1-xs)^(2/3)) x.lo <- 0.01 x.hi <- 0.99 } if (funmatch[10]) { ys <- ys / (1-xs) x.lo <- 0.01 x.hi <- 0.99 } if (is.null(predlim)) { sel <- xs > x.lo & xs < x.hi sel.l0 <- sel.l0[sel] sel.g0 <- sel.g0[sel] ys <- ys[sel] xs <- xs[sel] } } } if (predstyle == "shade") { intensity <- 1 - (ys - min(ys)) / (max(ys) - min(ys)) sel <- xs >= alim[1] & xs <= alim[2] if (!is.null(olim)) sel <- sel & c(xs > olim[1] & xs < olim[2]) ys <- ys[sel] xs <- xs[sel] intensity <- intensity[sel] colfun <- colorRamp(c(col[2], col[3])) rectcol <- colfun(intensity) rectcol <- apply(rectcol, 1, function(x) if (anyNA(x)) NA else rgb(x[1], x[2], x[3], maxColorValue=255)) lrect(xs[-1], -2-barheight, xs[-length(xs)], -2+barheight, col=rectcol, border=rectcol, ...) } if (predstyle == "dist") { ys <- ys / max(ys) if (is.null(predlim)) { sel <- ys > 0.005 } else { sel <- rep(TRUE, length(ys)) } ys <- ys * efac[4] sel <- sel & xs >= alim[1] & xs <= alim[2] if (!is.null(olim)) sel <- sel & c(xs > olim[1] & xs < olim[2]) xs.sel.l0 <- xs[sel.l0 & sel] xs.sel.g0 <- xs[sel.g0 & sel] ys.sel.l0 <- ys[sel.l0 & sel] ys.sel.g0 <- ys[sel.g0 & sel] xs <- xs[sel] ys <- ys[sel] drow <- -2.5 ys <- ys + drow ys.sel.l0 <- ys.sel.l0 + drow ys.sel.g0 <- ys.sel.g0 + drow ### shade regions above/below 0 if (predres$pred > 0) { lpolygon(c(xs.sel.g0,rev(xs.sel.g0)), c(ys.sel.g0,rep(drow,length(ys.sel.g0))), col=col[4], border=ifelse(is.na(col[4]),NA,border[2]), ...) lpolygon(c(xs.sel.l0,rev(xs.sel.l0)), c(ys.sel.l0,rep(drow,length(ys.sel.l0))), col=col[3], border=ifelse(is.na(col[3]),NA,border[2]), ...) } else { lpolygon(c(xs.sel.g0,rev(xs.sel.g0)), c(ys.sel.g0,rep(drow,length(ys.sel.g0))), col=col[3], border=ifelse(is.na(col[3]),NA,border[2]), ...) lpolygon(c(xs.sel.l0,rev(xs.sel.l0)), c(ys.sel.l0,rep(drow,length(ys.sel.l0))), col=col[4], border=ifelse(is.na(col[4]),NA,border[2]), ...) } ### shade tail areas sel <- xs <= beta.pi.lb xs.sel <- xs[sel] ys.sel <- ys[sel] lpolygon(c(xs.sel,rev(xs.sel)), c(ys.sel,rep(drow,length(ys.sel))), col=col[2], border=ifelse(is.na(col[2]), NA, border[2]), ...) sel <- xs >= beta.pi.ub xs.sel <- xs[sel] ys.sel <- ys[sel] lpolygon(c(xs.sel,rev(xs.sel)), c(ys.sel,rep(drow,length(ys.sel))), col=col[2], border=ifelse(is.na(col[2]), NA, border[2]), ...) ### add horizontal and distribution lines llines(xs, rep(drow,length(ys)), col=border[2], ...) llines(xs, ys, col=border[2], ...) } } ### polygon for the summary estimate poladds <- (0:(polylen-1)) * (polheight/(polylen-1)) xs <- c(seq(beta.ci.lb, beta, length.out=polylen), seq(beta, beta.ci.ub, length.out=polylen), seq(beta.ci.ub, beta, length.out=polylen), seq(beta, beta.ci.lb, length.out=polylen)) ys <- c(-1+poladds, -1+polheight-poladds, -1-poladds, -1-polheight+poladds) ys <- ys[xs > alim[1] & xs < alim[2]] xs <- xs[xs > alim[1] & xs < alim[2]] lpolygon(x=xs, y=ys, col=col[1], border=border[1], ...) ### add label for model estimate if (missing(mlab)) mlab <- sapply(x$method, switch, "FE"="Fixed-Effect Model", "EE"="Equal-Effects Model", "CE"="Common-Effect Model", "Random-Effects Model", USE.NAMES=FALSE) #mlab <- sapply(x$method, switch, "FE"="FE Model", "EE"="EE Model", "CE"="CE Model", "RE Model", USE.NAMES=FALSE) if (length(mlab) == 1L && predstyle %in% c("polygon","bar","shade")) mlab <- c(mlab, paste0("Prediction Interval", annosym[1], round(100*(1-predlevel),digits[[1]]), "% PI", annosym[3])) if (length(mlab) == 1L && predstyle == "dist") mlab <- c(mlab, paste0("Predictive Distribution", annosym[1], round(100*(1-predlevel),digits[[1]]), "% PI", annosym[3])) ltext(textpos[1], -1+rowadj[1], mlab[[1]], pos=4, cex=cex, ...) if (predstyle %in% c("polygon","bar","shade","dist")) ltext(textpos[1], -2+rowadj[1], mlab[[2]], pos=4, cex=cex, ...) } ######################################################################### ### add x-axis laxis(side=1, at=at, labels=at.lab, cex.axis=cex.axis, ...) ### add x-axis label if (missing(xlab)) xlab <- .setlab(measure, transf.char, atransf.char, gentype=1) if (!is.element(length(xlab), 1:3)) stop(mstyle$stop("Argument 'xlab' argument must be of length 1, 2, or 3.")) if (length(xlab) == 1L) lmtext(xlab, side=1, at=min(at) + (max(at)-min(at))/2, line=par("mgp")[1]-0.5, cex=cex.lab, font=xlabfont[1], ...) if (length(xlab) == 2L) { lmtext(xlab[1], side=1, at=min(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[1], font=xlabfont[1], ...) lmtext(xlab[2], side=1, at=max(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[2], font=xlabfont[1], ...) } if (length(xlab) == 3L) { lmtext(xlab[1], side=1, at=min(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[1], font=xlabfont[1], ...) lmtext(xlab[2], side=1, at=min(at) + (max(at)-min(at))/2, line=par("mgp")[1]-0.5, cex=cex.lab, font=xlabfont[2], ...) lmtext(xlab[3], side=1, at=max(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[2], font=xlabfont[1], ...) } ### add CI ends (either | or <> if outside of axis limits) for (i in seq_len(k)) { ### need to skip missings (if check below will otherwise throw an error) if (is.na(yi[i]) || is.na(vi[i])) next ### if the lower bound is actually larger than upper x-axis limit, then everything is to the right and just draw a polygon pointing in that direction if (ci.lb[i] >= alim[2]) { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=colout[i], border=colout[i], ...) next } ### if the upper bound is actually lower than lower x-axis limit, then everything is to the left and just draw a polygon pointing in that direction if (ci.ub[i] <= alim[1]) { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=colout[i], border=colout[i], ...) next } lsegments(max(ci.lb[i], alim[1]), rows[i], min(ci.ub[i], alim[2]), rows[i], lty=lty[1], col=colout[i], ...) if (ci.lb[i] >= alim[1]) { lsegments(ci.lb[i], rows[i]-ciendheight, ci.lb[i], rows[i]+ciendheight, col=colout[i], ...) } else { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=colout[i], border=colout[i], ...) } if (ci.ub[i] <= alim[2]) { lsegments(ci.ub[i], rows[i]-ciendheight, ci.ub[i], rows[i]+ciendheight, col=colout[i], ...) } else { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=colout[i], border=colout[i], ...) } } ### add study labels on the left ltext(textpos[1], rows+rowadj[1], slab, pos=4, cex=cex, ...) ### add info labels if (!is.null(ilab)) { if (is.null(ilab.xpos)) { #stop(mstyle$stop("Must specify the 'ilab.xpos' argument when adding information with 'ilab'.")) dist <- min(ci.lb, na.rm=TRUE) - xlim[1] if (ncol.ilab == 1L) ilab.xpos <- xlim[1] + dist*0.75 if (ncol.ilab == 2L) ilab.xpos <- xlim[1] + dist*c(0.65, 0.85) if (ncol.ilab == 3L) ilab.xpos <- xlim[1] + dist*c(0.60, 0.75, 0.90) if (ncol.ilab >= 4L) ilab.xpos <- seq(xlim[1] + dist*0.5, xlim[1] + dist*0.9, length.out=ncol.ilab) } if (length(ilab.xpos) != ncol.ilab) stop(mstyle$stop(paste0("Number of 'ilab' columns (", ncol.ilab, ") does not match the length of the 'ilab.xpos' argument (", length(ilab.xpos), ")."))) if (!is.null(ilab.pos) && length(ilab.pos) == 1L) ilab.pos <- rep(ilab.pos, ncol.ilab) if (!is.null(ilab.lab) && length(ilab.lab) != ncol.ilab) stop(mstyle$stop(paste0("Number of 'ilab' columns (", ncol.ilab, ") does not match the length of the 'ilab.lab' argument (", length(ilab.lab), ")."))) par(family=names(fonts)[3], font=fonts[3]) for (l in seq_len(ncol.ilab)) { ltext(ilab.xpos[l], rows+rowadj[3], ilab[,l], pos=ilab.pos[l], cex=cex, ...) if (!is.null(ilab.lab)) ltext(ilab.xpos[l], ylim[2]-(top-1)+1+rowadj[3], ilab.lab[l], pos=ilab.pos[l], font=2, cex=cex, ...) } par(family=names(fonts)[1], font=fonts[1]) } ### add study annotations on the right: yi [LB, UB] ### and add model fit annotations if requested: b [LB, UB] ### (have to add this here, so that alignment is correct) if (annotate) { if (is.function(atransf)) { if (is.null(targs)) { if (addfit && x$int.only) { if (predstyle %in% c("polygon","bar","shade","dist")) { annotext <- cbind(sapply(c(yi, beta, NA_real_), atransf), sapply(c(ci.lb, beta.ci.lb, beta.pi.lb), atransf), sapply(c(ci.ub, beta.ci.ub, beta.pi.ub), atransf)) } else { annotext <- cbind(sapply(c(yi, beta), atransf), sapply(c(ci.lb, beta.ci.lb), atransf), sapply(c(ci.ub, beta.ci.ub), atransf)) } } else { annotext <- cbind(sapply(yi, atransf), sapply(ci.lb, atransf), sapply(ci.ub, atransf)) } } else { if (addfit && x$int.only) { if (predstyle %in% c("polygon","bar","shade","dist")) { annotext <- cbind(sapply(c(yi, beta, NA_real_), atransf, targs), sapply(c(ci.lb, beta.ci.lb, beta.pi.lb), atransf, targs), sapply(c(ci.ub, beta.ci.ub, beta.pi.ub), atransf, targs)) } else { annotext <- cbind(sapply(c(yi, beta), atransf, targs), sapply(c(ci.lb, beta.ci.lb), atransf, targs), sapply(c(ci.ub, beta.ci.ub), atransf, targs)) } } else { annotext <- cbind(sapply(yi, atransf, targs), sapply(ci.lb, atransf, targs), sapply(ci.ub, atransf, targs)) } } ### make sure order of intervals is always increasing tmp <- .psort(annotext[,2:3]) annotext[,2:3] <- tmp } else { if (addfit && x$int.only) { if (predstyle %in% c("polygon","bar","shade","dist")) { annotext <- cbind(c(yi, beta, NA_real_), c(ci.lb, beta.ci.lb, beta.pi.lb), c(ci.ub, beta.ci.ub, beta.pi.ub)) } else { annotext <- cbind(c(yi, beta), c(ci.lb, beta.ci.lb), c(ci.ub, beta.ci.ub)) } } else { annotext <- cbind(yi, ci.lb, ci.ub) } } if (showweights) { if (addfit && x$int.only) { if (predstyle %in% c("polygon","bar","shade","dist")) { annotext <- cbind(c(unname(weights),100, NA_real_), annotext) } else { annotext <- cbind(c(unname(weights),100), annotext) } annotext <- fmtx(annotext, c(digits[[3]], digits[[1]], digits[[1]], digits[[1]])) if (predstyle %in% c("polygon","bar","shade","dist")) { annotext[nrow(annotext)-1,1] <- "100" } else { annotext[nrow(annotext),1] <- "100" } } else { annotext <- cbind(unname(weights), annotext) annotext <- fmtx(annotext, c(digits[[3]], digits[[1]], digits[[1]], digits[[1]])) } } else { annotext <- fmtx(annotext, digits[[1]]) } if (missing(width)) { width <- apply(annotext, 2, function(x) max(nchar(x))) } else { width <- .expand1(width, ncol(annotext)) if (length(width) != ncol(annotext)) stop(mstyle$stop(paste0("Length of the 'width' argument (", length(width), ") does not match the number of annotation columns (", ncol(annotext), ")."))) } for (j in seq_len(ncol(annotext))) { annotext[,j] <- formatC(annotext[,j], width=width[j]) } if (showweights) width <- width[-1] # remove the first entry for the weights (so this can be used by addpoly() via .metafor) if (showweights) { annotext <- cbind(annotext[,1], paste0("%", paste0(rep(substr(annosym[1],1,1),3), collapse="")), annotext[,2], annosym[1], annotext[,3], annosym[2], annotext[,4], annosym[3]) } else { annotext <- cbind(annotext[,1], annosym[1], annotext[,2], annosym[2], annotext[,3], annosym[3]) } annotext <- apply(annotext, 1, paste, collapse="") isna <- grepl("NA", annotext, fixed=TRUE) if (predstyle %in% c("polygon","bar","shade","dist")) { isna <- isna[-length(isna)] annotext[isna] <- "" annotext[length(annotext)] <- gsub("NA", "", annotext[length(annotext)], fixed=TRUE) annotext[length(annotext)] <- gsub("%", "", annotext[length(annotext)], fixed=TRUE) } else { annotext[isna] <- "" } annotext <- gsub("-", annosym[4], annotext, fixed=TRUE) # [a] annotext <- gsub(" ", annosym[5], annotext, fixed=TRUE) par(family=names(fonts)[2], font=fonts[2]) if (addfit && x$int.only) { if (predstyle %in% c("polygon","bar","shade","dist")) { ltext(textpos[2], c(rows,-1,-2)+rowadj[2], labels=annotext, pos=2, cex=cex, ...) } else { ltext(textpos[2], c(rows,-1)+rowadj[2], labels=annotext, pos=2, cex=cex, ...) } } else { ltext(textpos[2], rows+rowadj[2], labels=annotext, pos=2, cex=cex, ...) } par(family=names(fonts)[1], font=fonts[1]) } else { width <- NULL } ### add yi points for (i in seq_len(k)) { ### need to skip missings, as if () check below will otherwise throw an error if (is.na(yi[i])) next if (yi[i] >= alim[1] && yi[i] <= alim[2]) lpoints(x=yi[i], y=rows[i], pch=pch[i], col=colout[i], cex=cex*psize[i], ...) } ### add horizontal line at 0 for the standard FE/RE model display if (x$int.only && addfit) labline(h=0, lty=lty[3], ...) ### add header ltext(textpos[1], ylim[2]-(top-1)+1+rowadj[1], header.left, pos=4, font=2, cex=cex, ...) ltext(textpos[2], ylim[2]-(top-1)+1+rowadj[2], header.right, pos=2, font=2, cex=cex, ...) ######################################################################### ### return some information about plot invisibly res <- list(xlim=par("usr")[1:2], alim=alim, at=at, ylim=ylim, rows=rows, cex=cex, cex.lab=cex.lab, cex.axis=cex.axis, ilab.xpos=ilab.xpos, ilab.pos=ilab.pos, textpos=textpos, areas=c(area.slab, area.forest, area.anno)) ### put some additional stuff into .metafor, so that it can be used by addpoly() sav <- c(res, list(level=level, annotate=annotate, digits=digits[[1]], width=width, transf=transf, atransf=atransf, targs=targs, alim=alim, olim=olim, efac=efac, rowadj=rowadj, fonts=fonts[1:2], annosym=annosym)) try(assign("forest", sav, envir=.metafor), silent=TRUE) invisible(res) } metafor/R/residuals.rma.r0000644000176200001440000000602315120213572015043 0ustar liggesusersresiduals.rma <- function(object, type="response", ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(object$yi.f) || is.null(object$X.f)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) type <- match.arg(type, c("response", "rstandard", "rstudent", "pearson", "cholesky")) ### for objects of class "rma.mh" and "rma.peto", use rstandard() to get the Pearson residuals if (inherits(object, c("rma.mh", "rma.peto")) && type == "pearson") type <- "rstandard" ######################################################################### if (type == "rstandard") { tmp <- rstandard(object) out <- c(tmp$z) names(out) <- tmp$slab } if (type == "rstudent") { tmp <- rstudent(object) out <- c(tmp$z) names(out) <- tmp$slab } ######################################################################### if (type == "response") { ### note: can calculate this even if vi is missing out <- c(object$yi.f - object$X.f %*% object$beta) out[abs(out) < 100 * .Machine$double.eps] <- 0 } if (type == "pearson") { if (inherits(object, "rma.glmm")) stop(mstyle$stop("Extraction of Pearson residuals not available for objects of class \"rma.glmm\".")) out <- c(object$yi.f - object$X.f %*% object$beta) out[abs(out) < 100 * .Machine$double.eps] <- 0 se <- rep(NA_real_, object$k.f) se[object$not.na] <- sqrt(diag(object$M)) out <- out / se } if (type == "cholesky") { ### note: Cholesky residuals depend on the data order ### but only for the Cholesky residuals is QE = sum(residuals(res, type="cholesky)^2) for models where M (or rather: V) is not diagonal if (inherits(object, c("rma.mh", "rma.peto", "rma.glmm"))) stop(mstyle$stop("Extraction of Cholesky residuals not available for objects of class \"rma.mh\", \"rma.peto\", or \"rma.glmm\".")) out <- c(object$yi - object$X %*% object$beta) out[abs(out) < 100 * .Machine$double.eps] <- 0 L <- try(chol(chol2inv(chol(object$M)))) if (inherits(L, "try-error")) stop(mstyle$stop("Could not take Cholesky decomposition of the marginal var-cov matrix.")) tmp <- L %*% out out <- rep(NA_real_, object$k.f) out[object$not.na] <- tmp } if (is.element(type, c("response", "pearson", "cholesky"))) { names(out) <- object$slab #not.na <- !is.na(out) if (na.act == "na.omit") out <- out[object$not.na] if (na.act == "na.exclude") out[!object$not.na] <- NA_real_ if (na.act == "na.fail" && any(!object$not.na)) stop(mstyle$stop("Missing values in results.")) } ######################################################################### return(out) } metafor/R/update.rma.r0000644000176200001440000000277515120213572014344 0ustar liggesusers### based on stats:::update.default but with some adjustments update.rma <- function(object, formula., ..., evaluate=TRUE) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma", notav="robust.rma") if (is.null(call <- getCall(object))) stop(mstyle$stop("Need an object with call component.")) extras <- match.call(expand.dots = FALSE)$... if (!missing(formula.)) { if (inherits(object, c("rma.uni","rma.mv"))) { if (inherits(object$call$yi, "call")) { call$yi <- update.formula(object$call$yi, formula.) } else { if (is.null(object$call$mods)) { object$call$mods <- ~ 1 call$mods <- update.formula(object$call$mods, formula.) } else { if (!any(grepl("~", object$call$mods))) { stop(mstyle$stop("The 'mods' argument in 'object' must be a formula for updating to work.")) } else { call$mods <- update.formula(object$call$mods, formula.) } } } } if (inherits(object, "rma.glmm")) call$mods <- update.formula(object$call$mods, formula.) } if (length(extras)) { existing <- !is.na(match(names(extras), names(call))) for (a in names(extras)[existing]) call[[a]] <- extras[[a]] if (any(!existing)) { call <- c(as.list(call), extras[!existing]) call <- as.call(call) } } if (evaluate) eval(call, parent.frame()) else call } metafor/R/methods.matreg.r0000644000176200001440000001240115120213572015210 0ustar liggesuserscoef.matreg <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") coefs <- c(object$tab$beta) names(coefs) <- rownames(object$tab) return(coefs) } vcov.matreg <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") out <- object$vb return(out) } sigma.matreg <- function(object, REML=TRUE, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") if (object$test == "t") { if (REML) { sigma <- sqrt(object$sigma2.reml) } else { sigma <- sqrt(object$sigma2.ml) } } else { warning(mstyle$warning("Model does not contain a 'sigma' estimate."), call.=FALSE) return(invisible()) } return(sigma) } confint.matreg <- function(object, parm, level, digits, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") if (!missing(parm)) warning(mstyle$warning("Argument 'parm' (currently) ignored."), call.=FALSE) x <- object if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } level <- .level(level) if (x$test=="t") { crit <- qt(level/2, df=x$df.residual, lower.tail=FALSE) } else { crit <- qnorm(level/2, lower.tail=FALSE) } beta <- x$tab$beta ci.lb <- beta - crit * x$tab$se ci.ub <- beta + crit * x$tab$se res <- cbind(estimate=beta, ci.lb, ci.ub) res <- list(tab=res) rownames(res$tab) <- rownames(x$tab) res$digits <- digits class(res) <- "confint.matreg" return(res) } print.confint.matreg <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="confint.matreg") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() tab <- cbind(fmtx(x$tab[,1,drop=FALSE], digits[["est"]]), fmtx(x$tab[,2:3,drop=FALSE], digits[["ci"]])) tab <- capture.output(print(tab, quote=FALSE, right=TRUE)) .print.table(tab, mstyle) .space() invisible() } logLik.matreg <- function(object, REML=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") if (object$test=="t") { if (REML) { val <- object$fit.stats["ll","REML"] } else { val <- object$fit.stats["ll","ML"] } attr(val, "nall") <- object$n attr(val, "nobs") <- ifelse(REML, object$df.residual, object$n) attr(val, "df") <- object$parms class(val) <- "logLik" return(val) } else { warning(mstyle$warning("Cannot compute log-likelihood for this type of model object."), call.=FALSE) return(invisible()) } } AIC.matreg <- function(object, ..., k=2, correct=FALSE, REML=FALSE) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") if (object$test=="t") { if (missing(...)) { ### if there is just 'object' if (REML) { out <- ifelse(correct, object$fit.stats["AICc","REML"], object$fit.stats["AIC","REML"]) } else { out <- ifelse(correct, object$fit.stats["AICc","ML"], object$fit.stats["AIC","ML"]) } } else { ### if there is 'object' and additional objects via ... if (REML) { out <- sapply(list(object, ...), function(x) ifelse(correct, x$fit.stats["AICc","REML"], x$fit.stats["AIC","REML"])) } else { out <- sapply(list(object, ...), function(x) ifelse(correct, x$fit.stats["AICc","ML"], x$fit.stats["AIC","ML"])) } dfs <- sapply(list(object, ...), function(x) x$parms) out <- data.frame(df=dfs, AIC=out) if (correct) names(out)[2] <- "AICc" ### get names of objects; same idea as in stats:::AIC.default cl <- match.call() cl$k <- NULL cl$correct <- NULL cl$REML <- NULL rownames(out) <- as.character(cl[-1L]) } return(out) } else { warning(mstyle$warning("Cannot compute AIC for this type of model object."), call.=FALSE) return(invisible()) } } BIC.matreg <- function(object, ..., REML=FALSE) { mstyle <- .get.mstyle() .chkclass(class(object), must="matreg") if (object$test=="t") { if (missing(...)) { ### if there is just 'object' if (REML) { out <- object$fit.stats["BIC","REML"] } else { out <- object$fit.stats["BIC","ML"] } } else { ### if there is 'object' and additional objects via ... if (REML) { out <- sapply(list(object, ...), function(x) x$fit.stats["BIC","REML"]) } else { out <- sapply(list(object, ...), function(x) x$fit.stats["BIC","ML"]) } dfs <- sapply(list(object, ...), function(x) x$parms) out <- data.frame(df=dfs, BIC=out) ### get names of objects; same idea as in stats:::AIC.default cl <- match.call() cl$REML <- NULL rownames(out) <- as.character(cl[-1L]) } return(out) } else { warning(mstyle$warning("Cannot compute BIC for this type of model object."), call.=FALSE) return(invisible()) } } metafor/R/confint.rma.peto.r0000644000176200001440000000411415120213572015455 0ustar liggesusersconfint.rma.peto <- function(object, parm, level, digits, transf, targs, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.peto") if (!missing(parm)) warning(mstyle$warning("Argument 'parm' (currently) ignored."), call.=FALSE) x <- object if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL ddd <- list(...) .chkdots(ddd, c("time")) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### level <- .level(level) crit <- qnorm(level/2, lower.tail=FALSE) beta <- x$beta ci.lb <- beta - crit * x$se ci.ub <- beta + crit * x$se ### if requested, apply transformation function if (isTRUE(transf)) # if transf=TRUE, apply exp transformation to ORs transf <- exp if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### res <- cbind(estimate=beta, ci.lb, ci.ub) res <- list(fixed=res) rownames(res$fixed) <- "" res$digits <- digits if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(res) <- "confint.rma" return(res) } metafor/R/qqnorm.rma.peto.r0000644000176200001440000000534715120213572015343 0ustar liggesusersqqnorm.rma.peto <- function(y, type="rstandard", pch=21, col, bg, grid=FALSE, label=FALSE, offset=0.3, pos=13, ...) { mstyle <- .get.mstyle() .chkclass(class(y), must="rma.peto") x <- y type <- match.arg(type, c("rstandard", "rstudent")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (length(label) != 1L) stop(mstyle$stop("Argument 'label' should be of length 1.")) .start.plot() if (missing(col)) col <- par("fg") if (missing(bg)) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) if (is.logical(grid)) gridcol <- .coladj(par("bg","fg"), dark=c(0.2,-0.6), light=c(-0.2,0.6)) if (is.character(grid)) { gridcol <- grid grid <- TRUE } ######################################################################### if (type == "rstandard") { res <- rstandard(x) not.na <- !is.na(res$z) zi <- res$z[not.na] slab <- res$slab[not.na] ord <- order(zi) slab <- slab[ord] } else { res <- rstudent(x) not.na <- !is.na(res$z) zi <- res$z[not.na] slab <- res$slab[not.na] ord <- order(zi) slab <- slab[ord] } sav <- qqnorm(zi, pch=pch, col=col, bg=bg, bty="l", ...) ### add grid (and redraw box) if (isTRUE(grid)) { grid(col=gridcol) box(..., bty="l") } abline(a=0, b=1, lty="solid", ...) #qqline(zi, ...) #abline(h=0, lty="dotted", ...) #abline(v=0, lty="dotted", ...) points(sav$x, sav$y, pch=pch, col=col, bg=bg, ...) ######################################################################### ### labeling of points if ((is.character(label) && label=="none") || isFALSE(label)) return(invisible(sav)) if ((is.character(label) && label=="all") || isTRUE(label)) label <- x$k if (is.numeric(label)) { label <- round(label) if (label < 1 | label > x$k) stop(mstyle$stop("Out of range value for 'label' argument.")) pos.x <- sav$x[ord] pos.y <- sav$y[ord] dev <- abs(pos.x - pos.y) for (i in seq_len(x$k)) { if (sum(dev > dev[i]) < label) { if (pos <= 4) text(pos.x[i], pos.y[i], slab[i], pos=pos, offset=offset, ...) if (pos == 13) text(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] >= 0, 1, 3), offset=offset, ...) if (pos == 24) text(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i]-pos.y[i] <= 0, 2, 4), offset=offset, ...) #text(pos.x[i], pos.y[i], slab[i], pos=ifelse(pos.x[i] >= 0, 2, 4), offset=offset, ...) } } } ######################################################################### invisible(sav) } metafor/R/misc.func.hidden.tes.r0000644000176200001440000000176215120213572016210 0ustar liggesusers.tes.intfun <- function(x, theta, tau, sei, H0, alternative, crit) { if (alternative == "two.sided") pow <- (pnorm(crit, mean=(x-H0)/sei, sd=1, lower.tail=FALSE) + pnorm(-crit, mean=(x-H0)/sei, sd=1, lower.tail=TRUE)) if (alternative == "greater") pow <- pnorm(crit, mean=(x-H0)/sei, sd=1, lower.tail=FALSE) if (alternative == "less") pow <- pnorm(crit, mean=(x-H0)/sei, sd=1, lower.tail=TRUE) res <- pow * dnorm(x, theta, tau) return(res) } .tes.lim <- function(theta, yi, vi, H0, alternative, alpha, tau2, test, tes.alternative, progbar, tes.alpha, correct, rel.tol, subdivisions, tau2.lb) { pval <- tes(x=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, theta=theta, tau2=tau2, test=test, tes.alternative=tes.alternative, progbar=progbar, tes.alpha=tes.alpha, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb, find.lim=FALSE)$pval #cat("theta = ", theta, " pval = ", pval, "\n") return(pval - tes.alpha) } metafor/R/addpoly.default.r0000644000176200001440000007400215120213572015353 0ustar liggesusersaddpoly.default <- function(x, vi, sei, ci.lb, ci.ub, pi.lb, pi.ub, rows=-1, level, annotate, predstyle, predlim, digits, width, mlab, transf, atransf, targs, efac, col, border, lty, fonts, cex, constarea=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (missing(x)) stop(mstyle$stop("Must specify the 'x' argument.")) k <- length(x) ddd <- list(...) if (!is.null(ddd$cr.lb)) pi.lb <- ddd$cr.lb if (!is.null(ddd$cr.ub)) pi.ub <- ddd$cr.ub alim <- .chkddd(ddd$alim, .getfromenv("forest", "alim", default=NULL)) if (!is.null(alim)) { if (length(alim) != 2L) stop(mstyle$stop("Argument 'alim' must be of length 2.")) if (anyNA(alim)) stop(mstyle$stop("Argument 'alim' cannot contain NAs.")) alim <- sort(alim) } olim <- .chkddd(ddd$olim, .getfromenv("forest", "olim", default=NULL)) if (!is.null(olim)) { if (length(olim) != 2L) stop(mstyle$stop("Argument 'olim' must be of length 2.")) if (anyNA(olim)) stop(mstyle$stop("Argument 'olim' cannot contain NAs.")) olim <- sort(olim) } if (missing(level)) level <- .getfromenv("forest", "level", default=95) level <- .level(level) if (hasArg(pi.lb) && !is.null((pi.lb))) { pi.level <- attributes(pi.lb)$level if (is.null(pi.level)) pi.level <- level pi.dist <- attributes(pi.lb)$dist if (is.null(pi.dist)) pi.dist <- "norm" pi.ddf <- attributes(pi.lb)$ddf if (is.null(pi.ddf)) pi.ddf <- Inf pi.se <- attributes(pi.lb)$se } else { pi.level <- level } if (missing(annotate)) annotate <- .getfromenv("forest", "annotate", default=TRUE) if (missing(digits)) digits <- .getfromenv("forest", "digits", default=2) if (missing(width)) width <- .getfromenv("forest", "width", default=NULL) if (missing(transf)) transf <- .getfromenv("forest", "transf", default=FALSE) if (missing(atransf)) atransf <- .getfromenv("forest", "atransf", default=FALSE) transf.char <- deparse(transf) if (is.function(transf) && is.function(atransf)) stop(mstyle$stop("Use either 'transf' or 'atransf' to specify a transformation (not both).")) if (missing(targs)) targs <- .getfromenv("forest", "targs", default=NULL) if (missing(predstyle)) predstyle <- "line" predstyle <- match.arg(predstyle, c("line", "polygon", "bar", "shade", "dist")) if (missing(predlim)) predlim <- NULL if (is.null(ddd$preddist)) { preddist <- NULL } else { if (k != 1) stop(mstyle$stop("Can only use 'preddist' when plotting a single estimate.")) preddist <- ddd$preddist if (!is.list(preddist) || length(preddist) < 2L) stop(mstyle$stop("Argument 'preddist' must be a list (of length >= 2).")) if (length(preddist[[1]]) != length(preddist[[2]])) stop(mstyle$stop("Length of 'preddist[[1]]' does not match the length of 'preddist[[2]]'.")) if (!is.null(preddist$level)) pi.level <- .level(preddist$level) } ### vertical expansion factors if (missing(efac) || is.null(efac)) { ### note: forest() puts 'efac' into .metafor in the order: ### 1st = CI/PI end lines, 2nd = arrows, 3rd = summary polygon, 4th = PI polygon/bar/shade/dist height efac <- .getfromenv("forest", "efac", default=1) efac <- .expand1(efac, 4L) } else { efac <- .expand1(efac, 4L) if (predstyle == "line") { ### if user specified two values, then use 1st = summary polygon(s), 2nd = PI end lines and arrows if (length(efac) == 2L) efac <- efac[c(2,2,1,1)] ### if user specified three values, then use 1st = summary polygon(s), 2nd = PI end lines, 3rd = arrows if (length(efac) == 3L) efac <- efac[c(2,3,1,1)] } else { ### if user specified two values, then use 1st = summary polygon, 2nd = PI polygon/bar/shade/dist height if (length(efac) == 2L) efac <- efac[c(1,1,1,2)] ### if user specified three values, then use 1st = summary polygon, 2nd = PI polygon/bar/shade/dist height, 3rd = arrows if (length(efac) == 3L) efac <- efac[c(3,3,1,2)] } } efac[efac == 0] <- NA if (is.null(ddd$rowadj)) { rowadj <- .getfromenv("forest", "rowadj", default=rep(0,3)) } else { rowadj <- ddd$rowadj if (length(rowadj) == 1L) rowadj <- c(rowadj,rowadj) } ### annotation symbols vector annosym <- .chkddd(ddd$annosym, .getfromenv("forest", "annosym", default=NULL)) if (is.null(annosym)) annosym <- c(" [", ", ", "]", "-", " ") # 4th element for minus sign symbol; 5th for space (in place of numbers and +) if (length(annosym) == 3L) annosym <- c(annosym, "-", " ") if (length(annosym) == 4L) annosym <- c(annosym, " ") if (length(annosym) != 5) stop(mstyle$stop("Argument 'annosym' must be a vector of length 3 (or 4 or 5).")) if (missing(fonts)) fonts <- .getfromenv("forest", "fonts", default=NULL) if (missing(mlab)) mlab <- NULL if (k == 1L) { if (predstyle=="dist") { col2 <- .coladj(par("bg","fg"), dark=0.60, light=-0.60) } else { col2 <- par("fg") } if (predstyle=="shade") { col3 <- .coladj(par("bg","fg"), dark=0.05, light=-0.05) } else { col3 <- .coladj(par("bg","fg"), dark=0.20, light=-0.20) } if (missing(col)) { # 1st = summary polygon, 2nd = PI line/polygon/bar / shade center / tails, 3rd = shade end / ><0 region, 4th = <>0 region col <- c(par("fg"), col2, col3, NA) } else { if (length(col) == 1L) col <- c(col, col2, col3, NA) if (length(col) == 2L) col <- c(col, col3, NA) if (length(col) == 3L) col <- c(col, NA) } if (missing(border)) { border <- c(par("fg"), par("fg")) # 1st = summary polygon, 2nd = polygon for predstyle="polygon" / bar for predstyle="bar" / distribution for predstyle="dist" } else { if (length(border) == 1L) border <- c(border, par("fg")) # if user only specified one value, assume it is for the summary polygon } } else { if (predstyle != "line") stop(mstyle$stop(paste0("Can only use predstyle='", predstyle, "' when plotting a single polygon."))) if (missing(col)) col <- par("fg") # color of the polygons (can be a vector) if (missing(border)) border <- par("fg") # border color of the polygons (can be a vector) } lcol <- .chkddd(ddd$lcol, par("fg")) # color of PI lines (can be a vector) if (missing(lty)) lty <- "dotted" if (length(lty) == 1L) lty <- c(lty, "solid") # 1st for PI line, 2nd for PI end if (missing(cex)) cex <- .getfromenv("forest", "cex", default=NULL) if (is.null(mlab)) { if (predstyle == "line") { mlab <- rep("", k) } else { if (predstyle %in% c("polygon","bar","shade")) mlab <- c("", paste0("Prediction Interval", annosym[1], round(100*(1-pi.level),digits[[1]]), "% PI", annosym[3])) if (predstyle == "dist") mlab <- c("", paste0("Predictive Distribution", annosym[1], round(100*(1-pi.level),digits[[1]]), "% PI", annosym[3])) # note: this assumes that the PI actually is a 100*(1-pi.level) PI, which may not be true } } else { if (predstyle == "line") { mlab <- .expand1(mlab, k) if (length(mlab) != k) stop(mstyle$stop(paste0("Length of the 'mlab' argument (", length(mlab), ") does not correspond to the number of polygons to be plotted (", k, ")."))) } else { if (length(mlab) == 1L && predstyle %in% c("polygon","bar","shade")) mlab <- c(mlab, paste0("Prediction Interval", annosym[1], round(100*(1-pi.level),digits[[1]]), "% PI", annosym[3])) if (length(mlab) == 1L && predstyle == "dist") mlab <- c(mlab, paste0("Predictive Distribution", annosym[1], round(100*(1-pi.level),digits[[1]]), "% PI", annosym[3])) } } lsegments <- function(..., cr.lb, cr.ub, addpred, addcred, pi.type, predtype, lcol, rowadj, annosym, textpos, preddist, alim, olim) segments(...) ltext <- function(..., cr.lb, cr.ub, addpred, addcred, pi.type, predtype, lcol, rowadj, annosym, textpos, preddist, alim, olim) text(...) lpolygon <- function(..., cr.lb, cr.ub, addpred, addcred, pi.type, predtype, lcol, rowadj, annosym, textpos, preddist, alim, olim) polygon(...) lrect <- function(..., cr.lb, cr.ub, addpred, addcred, pi.type, predtype, lcol, rowadj, annosym, textpos, preddist, alim, olim) rect(...) llines <- function(..., cr.lb, cr.ub, addpred, addcred, pi.type, predtype, lcol, rowadj, annosym, textpos, preddist, alim, olim) lines(...) ### set/get fonts (1st for labels, 2nd for annotations) ### when passing a named vector, the names are for 'family' and the values are for 'font' if (is.null(fonts)) { fonts <- rep(par("family"), 2L) } else { fonts <- .expand1(fonts, 2L) } if (is.null(names(fonts))) fonts <- setNames(c(1L,1L), nm=fonts) par(family=names(fonts)[1], font=fonts[1]) ######################################################################### yi <- x if (!missing(vi) && is.function(vi)) # if vi is utils::vi() stop(mstyle$stop("Cannot find variable specified for the 'vi' argument.")) if (hasArg(ci.lb) && hasArg(ci.ub) && !is.null(ci.lb) && !is.null(ci.ub)) { ### CI bounds are specified by user if (length(ci.lb) != length(ci.ub)) stop(mstyle$stop("Length of 'ci.lb' and 'ci.ub' are not the same.")) if (length(ci.lb) != k) stop(mstyle$stop("Length of ('ci.lb','ci.ub') does not match the length of 'x'.")) vi <- ifelse(is.na(ci.lb) | is.na(ci.ub), NA_real_, 1) # need this below for checking for NAs } else { ### CI bounds are not specified by user if (missing(vi)) { if (missing(sei)) { stop(mstyle$stop("Must specify either 'vi', 'sei', or ('ci.lb','ci.ub').")) } else { vi <- sei^2 } } if (length(vi) != k) stop(mstyle$stop("Length of 'vi' (or 'sei') does not match the length of 'x'.")) # note: the CI bounds are calculated based on a normal distribution, but # the Knapp and Hartung method may have been used to obtain vi (or sei), # in which case we would want to use a t-distribution; instead, the user # should pass the CI/PI bounds (calculated with test="knha") directly to # the function via the ci.lb/ci.ub and pi.lb/pi.ub arguments ci.lb <- yi - qnorm(level/2, lower.tail=FALSE) * sqrt(vi) ci.ub <- yi + qnorm(level/2, lower.tail=FALSE) * sqrt(vi) } if (is.null(preddist)) { if (hasArg(pi.lb) && hasArg(pi.ub) && !is.null(pi.lb) && !is.null(pi.ub)) { if (length(pi.lb) != length(pi.ub)) stop(mstyle$stop("Length of 'pi.lb' and 'pi.ub' are not the same.")) if (length(pi.lb) != k) stop(mstyle$stop("Length of ('pi.lb', 'pi.ub') does not match the length of 'x'.")) } else { if (predstyle != "line") stop(mstyle$stop("Cannot draw prediction interval if 'pi.lb' and 'pi.ub' are unspecified.")) pi.lb <- rep(NA_real_, k) pi.ub <- rep(NA_real_, k) } } else { pdxs <- preddist[[1]] pdys <- preddist[[2]] #dx <- diff(pdxs)[1] #cdf <- cumsum(pdys) * dx cdf <- cumsum(diff(pdxs) * (pdys[-1]+pdys[-length(pdys)])/2) cdf <- cdf / max(cdf) if (is.null(preddist$pi.lb)) { pi.lb <- pdxs[which.min(abs(cdf - pi.level/2))] } else { pi.lb <- preddist$pi.lb } if (is.null(preddist$pi.ub)) { pi.ub <- pdxs[which.min(abs(cdf - (1-pi.level/2)))] } else { pi.ub <- preddist$pi.ub } } ### set rows value if (is.null(rows)) { rows <- -1:(-k) } else { if (length(rows) == 1L) rows <- rows:(rows-k+1) } if (predstyle == "line") { if (length(rows) != k) stop(mstyle$stop(paste0("Length of the 'rows' argument (", length(rows), ") does not correspond to the number of polygons to be plotted (", k, ")."))) } else { if (length(rows) == 1L) rows <- c(rows, rows-1) } ### check for NAs in yi/vi and act accordingly yivi.na <- is.na(yi) | is.na(vi) if (any(yivi.na)) { not.na <- !yivi.na if (na.act == "na.omit") { yi <- yi[not.na] vi <- vi[not.na] ci.lb <- ci.lb[not.na] ci.ub <- ci.ub[not.na] pi.lb <- pi.lb[not.na] pi.ub <- pi.ub[not.na] if (predstyle == "line") mlab <- mlab[not.na] ### rearrange rows due to NAs being omitted if (predstyle == "line") { rows.new <- rows rows.na <- rows[!not.na] for (j in seq_along(rows.na)) { rows.new[rows <= rows.na[j]] <- rows.new[rows <= rows.na[j]] + 1 } rows <- rows.new[not.na] } } if (na.act == "na.fail") stop(mstyle$stop("Missing values in results.")) } k <- length(yi) if (k == 0L) stop(mstyle$stop("Processing terminated since k = 0.")) ### if requested, apply transformation to yi's and CI bounds yi.utransf <- yi if (is.function(transf)) { if (is.null(targs)) { yi <- sapply(yi, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) pi.lb <- sapply(pi.lb, transf) pi.ub <- sapply(pi.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) yi <- sapply(yi, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) pi.lb <- sapply(pi.lb, transf, targs) pi.ub <- sapply(pi.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] tmp <- .psort(pi.lb, pi.ub) pi.lb <- tmp[,1] pi.ub <- tmp[,2] ### apply observation/outcome limits if specified if (!is.null(olim)) { yi <- .applyolim(yi, olim) ci.lb <- .applyolim(ci.lb, olim) ci.ub <- .applyolim(ci.ub, olim) pi.lb <- .applyolim(pi.lb, olim) pi.ub <- .applyolim(pi.ub, olim) } ### determine height of plot and set cex accordingly (if not specified) par.usr <- par("usr") height <- par.usr[4] - par.usr[3] ### cannot use this since the value of k used in creating the plot is unknown #lheight <- strheight("O") #cex.adj <- ifelse(k * lheight > height * 0.8, height/(1.25 * k * lheight), 1) cex.adj <- min(1,20/height) xlim <- par.usr[1:2] if (is.null(cex)) cex <- par("cex") * cex.adj ### allow adjustment of position of study labels and annotations via textpos argument textpos <- .chkddd(ddd$textpos, .getfromenv("forest", "textpos", default=xlim)) if (length(textpos) != 2L) stop(mstyle$stop("Argument 'textpos' must be of length 2.")) if (is.na(textpos[1])) textpos[1] <- xlim[1] if (is.na(textpos[2])) textpos[2] <- xlim[2] ### add annotations if (annotate) { if (is.function(atransf)) { if (is.null(targs)) { if (predstyle %in% c("polygon","bar","shade","dist")) { annotext <- cbind(sapply(c(yi, NA_real_), atransf), sapply(c(ci.lb, pi.lb), atransf), sapply(c(ci.ub, pi.ub), atransf)) } else { annotext <- cbind(sapply(yi, atransf), sapply(ci.lb, atransf), sapply(ci.ub, atransf)) } } else { if (predstyle %in% c("polygon","bar","shade","dist")) { annotext <- cbind(sapply(c(yi, NA_real_), atransf, targs), sapply(c(ci.lb, pi.lb), atransf, targs), sapply(c(ci.ub, pi.ub), atransf, targs)) } else { annotext <- cbind(sapply(yi, atransf, targs), sapply(ci.lb, atransf, targs), sapply(ci.ub, atransf, targs)) } } ### make sure order of intervals is always increasing tmp <- .psort(annotext[,2:3]) annotext[,2:3] <- tmp } else { if (predstyle %in% c("polygon","bar","shade","dist")) { annotext <- cbind(c(yi, NA_real_), c(ci.lb, pi.lb), c(ci.ub, pi.ub)) } else { annotext <- cbind(yi, ci.lb, ci.ub) } } annotext <- fmtx(annotext, digits[[1]]) if (is.null(width)) { width <- apply(annotext, 2, function(x) max(nchar(x))) } else { width <- .expand1(width, ncol(annotext)) } for (j in seq_len(ncol(annotext))) { annotext[,j] <- formatC(annotext[,j], width=width[j]) } annotext <- cbind(annotext[,1], annosym[1], annotext[,2], annosym[2], annotext[,3], annosym[3]) annotext <- apply(annotext, 1, paste, collapse="") if (predstyle %in% c("polygon","bar","shade","dist")) annotext[2] <- gsub("NA", "", annotext[2], fixed=TRUE) annotext <- gsub("-", annosym[4], annotext, fixed=TRUE) annotext <- gsub(" ", annosym[5], annotext, fixed=TRUE) par(family=names(fonts)[2], font=fonts[2]) if (predstyle %in% c("polygon","bar","shade","dist")) { ltext(x=textpos[2], c(rows[1],rows[2])+rowadj[2], labels=annotext, pos=2, cex=cex, ...) } else { ltext(x=textpos[2], rows+rowadj[2], labels=annotext, pos=2, cex=cex, ...) } par(family=names(fonts)[1], font=fonts[1]) } col <- .expand1(col, k) border <- .expand1(border, k) lcol <- .expand1(lcol, k) polylen <- 10000 if (isTRUE(constarea)) { area <- (ci.ub - ci.lb) * (height/100)*cex*efac[1] area <- area / min(area, na.rm=TRUE) invarea <- 1 / area polheight <- (height/100)*cex*efac[3]*invarea } else { polheight <- rep((height/100)*cex*efac[3], k) } ciendheight <- height / 150 * cex * efac[1] arrowwidth <- 1.4 / 100 * cex * (xlim[2]-xlim[1]) arrowheight <- height / 150 * cex * efac[2] barheight <- min(0.25, height / 150 * cex * efac[4]) pipolheight <- (height / 100) * cex * efac[4] for (i in seq_len(k)) { ### add prediction interval(s) if (predstyle == "line") { lsegments(max(pi.lb[i], alim[1]), rows[i], min(pi.ub[i], alim[2]), rows[i], lty=lty[1], col=lcol[i], ...) if (!is.null(pi.lb[i]) && !is.na(pi.lb[i])) { if (pi.lb[i] >= alim[1]) { lsegments(pi.lb[i], rows[i]-ciendheight, pi.lb[i], rows[i]+ciendheight, lty=lty[2], col=lcol[i], ...) } else { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=lcol[i], border=lcol[i], ...) } } if (!is.null(pi.ub[i]) && !is.na(pi.ub[i])) { if (pi.ub[i] <= alim[2]) { lsegments(pi.ub[i], rows[i]-ciendheight, pi.ub[i], rows[i]+ciendheight, lty=lty[2], col=lcol[i], ...) } else { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=lcol[i], border=lcol[i], ...) } } } if (predstyle == "polygon") { poladds <- (0:(polylen-1)) * (pipolheight/(polylen-1)) xs <- c(seq(pi.lb[i], yi[i], length.out=polylen), seq(yi[i], pi.ub[i], length.out=polylen), seq(pi.ub[i], yi[i], length.out=polylen), seq(yi[i], pi.lb[i], length.out=polylen)) ys <- c(rows[2]+poladds, rows[2]+pipolheight-poladds, rows[2]-poladds, rows[2]-pipolheight+poladds) ys <- ys[xs > alim[1] & xs < alim[2]] xs <- xs[xs > alim[1] & xs < alim[2]] lpolygon(x=xs, y=ys, col=col[2], border=border[2], ...) } if (predstyle == "bar") { if (pi.lb[i] >= alim[1]) { lrect(pi.lb[i], rows[2]-barheight, yi[i], rows[2]+barheight, col=col[2], border=border[2], ...) } else { lrect(alim[1]+arrowwidth, rows[2]-barheight, yi[i], rows[2]+barheight, col=col[2], border=border[2], ...) lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[2], rows[2]+barheight, rows[2]-barheight, rows[2]), col=col[2], border=col[2], ...) } if (pi.ub[i] <= alim[2]) { lrect(pi.ub[i], rows[2]-barheight, yi[i], rows[2]+barheight, col=col[2], border=border[2], ...) } else { lrect(alim[2]-arrowwidth, rows[2]-barheight, yi[i], rows[2]+barheight, col=col[2], border=border[2], ...) lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[2], rows[2]+barheight, rows[2]-barheight, rows[2]), col=col[2], border=col[2], ...) } } if (predstyle %in% c("shade","dist")) { if (is.null(preddist) && is.null(pi.se)) stop(mstyle$stop("Cannot extract the SE of the prediction interval.")) if (is.function(transf)) { funlist <- lapply(list("1"=exp, "2"=transf.ztor, "3"=tanh, "4"=transf.ilogit, "5"=plogis, "6"=transf.iarcsin, "7"=transf.iprobit, "8"=pnorm, "9"=transf.iahw, "10"=transf.iabt), deparse) funmatch <- sapply(funlist, identical, transf.char) if (!any(funmatch)) stop(mstyle$stop("Chosen transformation not (currently) possible with this 'predstyle'.")) } if (is.null(preddist) && pi.dist != "norm" && pi.ddf <= 1L) stop(mstyle$stop("Cannot shade/draw prediction distribution when df <= 1.")) x.len <- 10000 if (predstyle == "shade") { q.lo <- pi.level/2 q.hi <- 1-pi.level/2 } else { q.lo <- 0.0001 q.hi <- 0.9999 } if (is.null(preddist)) { if (is.null(predlim) || predstyle == "shade") { if (pi.dist == "norm") { crits <- qnorm(c(q.lo,q.hi), mean=yi.utransf[i], sd=pi.se) xs <- seq(crits[1], crits[2], length.out=x.len) ys <- dnorm(xs, mean=yi.utransf[i], sd=pi.se) } else { crits <- qt(c(q.lo,q.hi), df=pi.ddf) * pi.se + yi.utransf[i] xs <- seq(crits[1], crits[2], length.out=x.len) ys <- dt((xs - yi.utransf[i]) / pi.se, df=pi.ddf) / pi.se } } else { if (length(predlim) != 2L) stop(mstyle$stop("Argument 'predlim' must be of length 2.")) xs <- seq(predlim[1], predlim[2], length.out=x.len) if (is.function(transf)) { if (funmatch[1]) xs <- suppressWarnings(log(xs)) if (any(funmatch[2:3])) xs <- suppressWarnings(atanh(xs)) if (any(funmatch[4:5])) xs <- suppressWarnings(qlogis(xs)) if (funmatch[6]) xs <- suppressWarnings(transf.arcsin(xs)) if (any(funmatch[7:8])) xs <- suppressWarnings(qnorm(xs)) if (funmatch[9]) xs <- suppressWarnings(transf.ahw(xs)) if (funmatch[10]) xs <- suppressWarnings(transf.abt(xs)) sel <- is.finite(xs) # FALSE for +-Inf and NA/NaN xs <- xs[sel] } if (pi.dist == "norm") { ys <- dnorm(xs, mean=yi.utransf[i], sd=pi.se) } else { ys <- dt((xs - yi.utransf[i]) / pi.se, df=pi.ddf) / pi.se } } } else { xs <- preddist[[1]] ys <- preddist[[2]] if (!is.null(predlim)) { if (length(predlim) != 2L) stop(mstyle$stop("Argument 'predlim' must be of length 2.")) if (is.function(transf)) { if (funmatch[1]) predlim <- suppressWarnings(log(predlim)) if (any(funmatch[2:3])) predlim <- suppressWarnings(atanh(predlim)) if (any(funmatch[4:5])) predlim <- suppressWarnings(qlogis(predlim)) if (funmatch[6]) predlim <- suppressWarnings(transf.arcsin(predlim)) if (any(funmatch[7:8])) predlim <- suppressWarnings(qnorm(predlim)) if (funmatch[9]) predlim <- suppressWarnings(transf.ahw(predlim)) if (funmatch[10]) predlim <- suppressWarnings(transf.abt(predlim)) } ys <- ys[xs > predlim[1] & xs < predlim[2]] xs <- xs[xs > predlim[1] & xs < predlim[2]] } } sel.l0 <- xs < 0 sel.g0 <- xs > 0 if (is.function(transf)) { xs <- sapply(xs, transf) if (funmatch[1]) { ys <- ys / xs x.lo <- 0.01 x.hi <- Inf } if (any(funmatch[2:3])) { ys <- ys / (1-xs^2) x.lo <- -0.99 x.hi <- 0.99 } if (any(funmatch[4:5])) { ys <- ys / (xs*(1-xs)) x.lo <- 0.01 x.hi <- 0.99 } if (funmatch[6]) { ys <- ys / (2*sqrt(xs*(1-xs))) x.lo <- 0.01 x.hi <- 0.99 } if (any(funmatch[7:8])) { ys <- ys / dnorm(qnorm(xs)) x.lo <- 0.01 x.hi <- 0.99 } if (funmatch[9]) { ys <- ys / (3*(1-xs)^(2/3)) x.lo <- 0.01 x.hi <- 0.99 } if (funmatch[10]) { ys <- ys / (1-xs) x.lo <- 0.01 x.hi <- 0.99 } if (is.null(predlim)) { sel <- xs > x.lo & xs < x.hi sel.l0 <- sel.l0[sel] sel.g0 <- sel.g0[sel] ys <- ys[sel] xs <- xs[sel] } } } if (predstyle == "shade") { intensity <- 1 - (ys - min(ys)) / (max(ys) - min(ys)) sel <- xs >= alim[1] & xs <= alim[2] if (!is.null(olim)) sel <- sel & c(xs > olim[1] & xs < olim[2]) ys <- ys[sel] xs <- xs[sel] intensity <- intensity[sel] colfun <- colorRamp(c(col[2], col[3])) rectcol <- colfun(intensity) rectcol <- apply(rectcol, 1, function(x) if (anyNA(x)) NA else rgb(x[1], x[2], x[3], maxColorValue=255)) lrect(xs[-1], rows[2]-barheight, xs[-length(xs)], rows[2]+barheight, col=rectcol, border=rectcol, ...) } if (predstyle == "dist") { ys <- ys / max(ys) if (is.null(predlim)) { sel <- ys > 0.005 } else { sel <- rep(TRUE, length(ys)) } ys <- ys * efac[4] sel <- sel & xs >= alim[1] & xs <= alim[2] if (!is.null(olim)) sel <- sel & c(xs > olim[1] & xs < olim[2]) xs.sel.l0 <- xs[sel.l0 & sel] xs.sel.g0 <- xs[sel.g0 & sel] ys.sel.l0 <- ys[sel.l0 & sel] ys.sel.g0 <- ys[sel.g0 & sel] xs <- xs[sel] ys <- ys[sel] drow <- rows[2] - 0.5 ys <- ys + drow ys.sel.l0 <- ys.sel.l0 + drow ys.sel.g0 <- ys.sel.g0 + drow ### shade regions above/below 0 if (yi.utransf[i] > 0) { lpolygon(c(xs.sel.g0,rev(xs.sel.g0)), c(ys.sel.g0,rep(drow,length(ys.sel.g0))), col=col[4], border=ifelse(is.na(col[4]),NA,border[2]), ...) lpolygon(c(xs.sel.l0,rev(xs.sel.l0)), c(ys.sel.l0,rep(drow,length(ys.sel.l0))), col=col[3], border=ifelse(is.na(col[3]),NA,border[2]), ...) } else { lpolygon(c(xs.sel.g0,rev(xs.sel.g0)), c(ys.sel.g0,rep(drow,length(ys.sel.g0))), col=col[3], border=ifelse(is.na(col[3]),NA,border[2]), ...) lpolygon(c(xs.sel.l0,rev(xs.sel.l0)), c(ys.sel.l0,rep(drow,length(ys.sel.l0))), col=col[4], border=ifelse(is.na(col[4]),NA,border[2]), ...) } ### shade tail areas sel <- xs <= pi.lb[i] xs.sel <- xs[sel] ys.sel <- ys[sel] lpolygon(c(xs.sel,rev(xs.sel)), c(ys.sel,rep(drow,length(ys.sel))), col=col[2], border=ifelse(is.na(col[2]), NA, border[2]), ...) sel <- xs >= pi.ub[i] xs.sel <- xs[sel] ys.sel <- ys[sel] lpolygon(c(xs.sel,rev(xs.sel)), c(ys.sel,rep(drow,length(ys.sel))), col=col[2], border=ifelse(is.na(col[2]), NA, border[2]), ...) ### add horizontal and distribution lines llines(xs, rep(drow,length(ys)), col=border[2], ...) llines(xs, ys, col=border[2], ...) } ### add polygon(s) poladds <- (0:(polylen-1)) * (polheight[i]/(polylen-1)) xs <- c(seq(ci.lb[i], yi[i], length.out=polylen), seq(yi[i], ci.ub[i], length.out=polylen), seq(ci.ub[i], yi[i], length.out=polylen), seq(yi[i], ci.lb[i], length.out=polylen)) ys <- c(rows[i]+poladds, rows[i]+polheight[i]-poladds, rows[i]-poladds, rows[i]-polheight[i]+poladds) ys <- ys[xs > alim[1] & xs < alim[2]] xs <- xs[xs > alim[1] & xs < alim[2]] lpolygon(x=xs, y=ys, col=col[i], border=border[i], ...) ### add label(s) if (!is.null(mlab)) { ltext(x=textpos[1], rows[i]+rowadj[1], mlab[[i]], pos=4, cex=cex, ...) if (predstyle %in% c("polygon","bar","shade","dist")) ltext(textpos[1], rows[2]+rowadj[1], mlab[[2]], pos=4, cex=cex, ...) } } } metafor/R/misc.func.hidden.permutest.r0000644000176200001440000000425415171173560017454 0ustar liggesusers############################################################################ # function to generate all possible permutations # .genperms <- function(k) { # # v <- seq_len(k) # # sub <- function(k, v) { # if (k==1L) { # matrix(v,1,k) # } else { # X <- NULL # for(i in seq_len(k)) { # X <- rbind(X, cbind(v[i], Recall(k-1, v[-i]))) # } # X # } # } # # return(sub(k, v[seq_len(k)])) # # } # function to generate all possible unique permutations .genuperms <- function(x) { z <- NULL sub <- function(x, y) { len.x <- length(x) if (len.x == 0L) { return(y) } else { prev.num <- 0 for (i in seq_len(len.x)) { num <- x[i] if (num > prev.num) { prev.num <- num z <- rbind(z, Recall(x[-i], c(y,num))) } } return(z) } } return(sub(x, y=NULL)) } .permci <- function(val, obj, j, exact, iter, progbar, level, digits, control) { mstyle <- .get.mstyle() # fit model with shifted outcome args <- list(yi=obj$yi - c(val*obj$X[,j]), vi=obj$vi, weights=obj$weights, mods=obj$X, intercept=FALSE, method=obj$method, weighted=obj$weighted, test=obj$test, tau2=ifelse(obj$tau2.fix, obj$tau2, NA), control=obj$control, skipr2=TRUE) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) if (inherits(res, "try-error")) stop() # p-value based on permutation test pval <- permutest(res, exact=exact, iter=iter, progbar=FALSE, control=control)$pval[j] # get difference between p-value and level diff <- pval - level / ifelse(control$alternative == "two.sided", 1, 2) # show progress if (progbar) cat(mstyle$verbose(paste("pval =", fmtx(pval, digits[["pval"]]), " diff =", fmtx(diff, digits[["pval"]], flag=" "), " val =", fmtx(val, digits[["est"]], flag=" "), "\n"))) # penalize negative differences, which should force the CI bound to correspond to a p-value of *at least* level diff <- ifelse(diff < 0, diff*10, diff) return(diff) } ############################################################################ metafor/R/fsn.r0000644000176200001440000003054615120213572013067 0ustar liggesusersfsn <- function(x, vi, sei, subset, data, type, alpha=.05, target, method, exact=FALSE, verbose=FALSE, digits, ...) { ######################################################################### mstyle <- .get.mstyle() na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) ### set defaults if (missing(target)) target <- NULL ddd <- list(...) .chkdots(ddd, c("pool", "mumiss", "interval", "maxint", "tol", "maxiter", "tau2", "test", "weighted")) pool <- .chkddd(ddd$pool, "stouffer", match.arg(tolower(ddd$pool), c("stouffer", "fisher"))) mumiss <- .chkddd(ddd$mumiss, 0) # note: default interval set below; see [a] (based on k) maxint <- .chkddd(ddd$maxint, 10^7) tol <- .chkddd(ddd$tol, .Machine$double.eps^0.25) maxiter <- .chkddd(ddd$maxiter, 1000) ### observed values (to be replaced as needed) est <- NA_real_ # pooled estimate tau2 <- NA_real_ # tau^2 estimate pval <- NA_real_ # p-value ### defaults (to be replaced for type="General") est.fsn <- NA_real_ tau2.fsn <- NA_real_ pval.fsn <- NA_real_ ub.sign <- "" ######################################################################### ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() x <- .getx("x", mf=mf, data=data) ######################################################################### if (inherits(x, "rma")) { .chkclass(class(x), must="rma", notav=c("robust.rma", "rma.glmm", "rma.mv", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (!x$int.only) stop(mstyle$stop("Method only applicable to models without moderators.")) if (!missing(type) && type != "General") warning(mstyle$warning("Setting type='General' when using fsn() on a model object."), call.=FALSE) type <- "General" if (!is.null(x$weights)) stop(mstyle$stop("Cannot use function on models with custom weights.")) if (!missing(vi) || !missing(sei) || !missing(subset)) warning(mstyle$warning("Arguments 'vi', 'sei', and 'subset' ignored when 'x' is a model object."), call.=FALSE) yi <- x$yi vi <- x$vi ### set defaults for digits if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } } else { if (!.is.vector(x)) stop(mstyle$stop("Argument 'x' must be a vector or an 'rma' model object.")) ### select/match type if (missing(type)) type <- "Rosenthal" type.options <- c("rosenthal", "binomial", "orwin", "rosenberg", "general") type <- type.options[grep(tolower(type), type.options)[1]] if (is.na(type)) stop(mstyle$stop("Unknown 'type' specified.")) type <- paste0(toupper(substr(type, 1, 1)), substr(type, 2, nchar(type))) ### check if yi is numeric yi <- x if (!is.numeric(yi)) stop(mstyle$stop("The object/variable specified for the 'x' argument is not numeric.")) ### set defaults for digits if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) sei <- .getx("sei", mf=mf, data=data, checknumeric=TRUE) subset <- .getx("subset", mf=mf, data=data) if (is.null(vi)) { if (!is.null(sei)) vi <- sei^2 } if (type %in% c("Rosenthal", "Rosenberg", "General") && is.null(vi)) stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) ### ensure backwards compatibility with the 'weighted' argument when type="Orwin" if (type == "Orwin") { if (isTRUE(ddd$weighted) && is.null(vi)) # if weighted=TRUE, then check that the vi's are available stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) if (isFALSE(ddd$weighted)) # if weighted=FALSE, then set vi <- 1 for unweighted vi <- 1 if (is.null(ddd$weighted) && is.null(vi)) # if weighted is unspecified, set vi <- 1 if vi's are unspecified vi <- 1 } ### allow easy setting of vi to a single value vi <- .expand1(vi, length(yi)) ### check length of yi and vi if (length(yi) != length(vi)) stop(mstyle$stop("Length of 'yi' and 'vi' (or 'sei') are not the same.")) ### check 'vi' argument for potential misuse .chkviarg(mf$vi) ######################################################################### ### if a subset of studies is specified if (!is.null(subset)) { subset <- .chksubset(subset, length(yi)) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) } ### check for NAs and act accordingly has.na <- is.na(yi) | is.na(vi) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] vi <- vi[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in data.")) } } ######################################################################### ### check for non-positive sampling variances if (any(vi <= 0)) stop(mstyle$stop("Cannot use function when there are non-positive sampling variances in the data.")) ### number of studies k <- length(yi) if (k == 1L) stop(mstyle$stop("Stopped because k = 1.")) ### set interval for uniroot() [a] interval <- .chkddd(ddd$interval, c(0,k*50)) ######################################################################### if (type == "Rosenthal" && pool == "stouffer") { zi <- c(yi / sqrt(vi)) z.avg <- abs(sum(zi) / sqrt(k)) pval <- pnorm(z.avg, lower.tail=FALSE) fsnum <- max(0, k * (z.avg / qnorm(alpha, lower.tail=FALSE))^2 - k) fsnum <- .rnd.fsn(fsnum) target <- NA_real_ } if (type == "Rosenthal" && pool == "fisher") { zi <- c(yi / sqrt(vi)) pi <- pnorm(abs(zi), lower.tail=FALSE) pval <- .fsn.fisher(0, pi=pi, alpha=0) if (pval >= alpha) { fsnum <- 0 } else { fsnum <- try(uniroot(.fsn.fisher, interval=interval, extendInt="upX", tol=tol, maxiter=maxiter, pi=pi, alpha=alpha)$root, silent=FALSE) if (inherits(fsnum, "try-error")) stop(mstyle$stop("Could not find fail-safe N using Fisher's method for pooling p-values.")) } fsnum <- .rnd.fsn(fsnum) target <- NA_real_ } if (type == "Binomial") { kpos <- sum(yi > 0) pval <- binom.test(kpos, k)$p.value if (pval >= alpha) { fsnum <- 0 } else { pvalnew <- pval fsnum <- 0 while (pvalnew < alpha) { fsnum <- fsnum + 2 pvalnew <- binom.test(kpos + fsnum/2, k + fsnum)$p.value } } fsnum <- .rnd.fsn(fsnum) target <- NA_real_ } if (type == "Orwin") { wi <- 1 / vi est <- .wmean(yi, wi) if (is.null(target)) target <- est / 2 if (identical(target, 0)) { fsnum <- Inf } else { if (sign(target) != sign(est)) target <- -1 * target fsnum <- max(0, k * (est - target) / target) } fsnum <- .rnd.fsn(fsnum) } if (type == "Rosenberg") { wi <- 1 / vi est <- .wmean(yi, wi) zval <- est / sqrt(1/sum(wi)) pval <- 2*pnorm(abs(zval), lower.tail=FALSE) vt <- 1 / mean(1/vi) #w.p <- (sum(wi*yi) / qnorm(alpha/2, lower.tail=FALSE))^2 - sum(wi) #fsnum <- max(0, k*w.p/sum(wi)) fsnum <- max(0, ((sum(wi*yi) / qnorm(alpha/2, lower.tail=FALSE))^2 - sum(wi)) * vt) fsnum <- .rnd.fsn(fsnum) target <- NA_real_ } if (type == "General") { if (missing(method)) { if (inherits(x, "rma")) { method <- x$method } else { method <- "REML" } } tau2fix <- NULL if (inherits(x, "rma") && x$tau2.fix) tau2fix <- x$tau2 if (!is.null(ddd$tau2)) tau2fix <- ddd$tau2 test <- "z" if (inherits(x, "rma")) test <- x$test if (!is.null(ddd$test)) test <- ddd$test if (test != "z") exact <- TRUE weighted <- TRUE if (inherits(x, "rma")) weighted <- x$weighted if (!is.null(ddd$weighted)) weighted <- isTRUE(ddd$weighted) tmp <- try(rma(yi, vi, method=method, tau2=tau2fix, test=test, weighted=weighted, verbose=verbose), silent=!verbose) if (inherits(tmp, "try-error")) stop(mstyle$stop("Could not fit random-effects model (use verbose=TRUE for more info).")) vt <- 1 / mean(1/vi) est <- tmp$beta[1] tau2 <- tmp$tau2 pval <- tmp$pval if (is.null(target)) { if (pval >= alpha) { fsnum <- 0 } else { fsnum <- try(uniroot(.fsn.gen, interval=interval, extendInt="upX", tol=tol, maxiter=maxiter, yi=yi, vi=vi, vt=vt, est=est, tau2=tau2, tau2fix=tau2fix, test=test, weighted=weighted, target=target, alpha=alpha, exact=exact, method=method, mumiss=mumiss, upperint=max(interval), maxint=maxint, verbose=verbose)$root, silent=TRUE) if (inherits(fsnum, "try-error")) stop(mstyle$stop("Could not find fail-safe N based on a random-effects model (use verbose=TRUE for more info).")) if (fsnum > maxint) fsnum <- maxint fsnum <- .rnd.fsn(fsnum) tmp <- .fsn.gen(fsnum, yi=yi, vi=vi, vt=vt, est=est, tau2=tau2, tau2fix=tau2fix, test=test, weighted=weighted, target=target, alpha=alpha, exact=exact, method=method, mumiss=mumiss, upperint=max(interval), maxint=maxint, newest=TRUE) } target <- NA_real_ } else { if (sign(target) != sign(est)) target <- -1 * target if (identical(target, 0)) { fsnum <- Inf } else if (abs(target) >= abs(est)) { fsnum <- 0 } else { fsnum <- try(uniroot(.fsn.gen, interval=interval, extendInt=ifelse(est > 0,"downX","upX"), tol=tol, maxiter=maxiter, yi=yi, vi=vi, vt=vt, est=est, tau2=tau2, tau2fix=tau2fix, test=test, weighted=weighted, target=target, alpha=alpha, exact=exact, method=method, mumiss=mumiss, upperint=max(interval), maxint=maxint, verbose=verbose)$root, silent=TRUE) if (inherits(fsnum, "try-error")) stop(mstyle$stop("Could not find fail-safe N based on a random-effects model (use verbose=TRUE for more info).")) if (fsnum > maxint) fsnum <- maxint fsnum <- .rnd.fsn(fsnum) tmp <- .fsn.gen(fsnum, yi=yi, vi=vi, vt=vt, est=est, tau2=tau2, tau2fix=tau2fix, test=test, weighted=weighted, target=target, alpha=alpha, exact=exact, method=method, mumiss=mumiss, upperint=max(interval), maxint=maxint, newest=TRUE) } } if (fsnum == 0) { est.fsn <- est tau2.fsn <- tau2 pval.fsn <- pval } else { est.fsn <- tmp$est.fsn tau2.fsn <- tmp$tau2.fsn pval.fsn <- tmp$pval.fsn } if (fsnum >= maxint) ub.sign <- ">" } ######################################################################### res <- list(type=type, fsnum=fsnum, est=est, tau2=tau2, meanes=est, pval=pval, alpha=alpha, target=target, method=ifelse(type=="General", method, NA), est.fsn=est.fsn, tau2.fsn=tau2.fsn, pval.fsn=pval.fsn, ub.sign=ub.sign, digits=digits) class(res) <- "fsn" return(res) } metafor/R/summary.escalc.r0000644000176200001440000002135415120213572015224 0ustar liggesuserssummary.escalc <- function(object, out.names=c("sei","zi","pval","ci.lb","ci.ub"), var.names, H0=0, append=TRUE, replace=TRUE, level=95, olim, digits, transf, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="escalc") x <- object level <- .level(level) crit <- qnorm(level/2, lower.tail=FALSE) if (length(out.names) != 5L) stop(mstyle$stop("Argument 'out.names' must be of length 5.")) if (any(out.names != make.names(out.names, unique=TRUE))) { out.names <- make.names(out.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'out.names' does not contain syntactically valid variable names.\nVariable names adjusted to: out.names = c('", out.names[1], "','", out.names[2], "','", out.names[3], "','", out.names[4], "','", out.names[5], "').")), call.=FALSE) } if (missing(transf)) transf <- FALSE ######################################################################### ### figure out names of yi and vi variables (if possible) and extract the values (if possible) if (missing(var.names)) { # if var.names not specified, take from object if possible if (!is.null(attr(x, "yi.names"))) { # if yi.names attributes is available yi.name <- attr(x, "yi.names")[1] # take the first entry to be the yi variable } else { # if not, see if 'yi' is in the object and assume that is the yi variable if (!is.element("yi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'yi' variable.")) yi.name <- "yi" } if (!is.null(attr(x, "vi.names"))) { # if vi.names attributes is available vi.name <- attr(x, "vi.names")[1] # take the first entry to be the vi variable } else { # if not, see if 'vi' is in the object and assume that is the vi variable if (!is.element("vi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'vi' variable.")) vi.name <- "vi" } } else { if (length(var.names) != 2L) stop(mstyle$stop("Argument 'var.names' must be of length 2.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "').")), call.=FALSE) } yi.name <- var.names[1] vi.name <- var.names[2] } yi <- x[[yi.name]] vi <- x[[vi.name]] if (is.null(yi)) stop(mstyle$stop(paste0("Cannot find variable '", yi.name, "' in the data frame."))) if (is.null(vi)) stop(mstyle$stop(paste0("Cannot find variable '", vi.name, "' in the data frame."))) ######################################################################### H0 <- .expand1(H0, length(yi)) ### compute sei, zi, and lower/upper CI bounds; when applying a transformation, compute the transformed outcome and CI bounds sei <- sqrt(vi) zi <- c(yi - H0) / sei pval <- 2*pnorm(abs(zi), lower.tail=FALSE) if (is.function(transf)) { ci.lb <- mapply(transf, yi - crit * sei, ...) ci.ub <- mapply(transf, yi + crit * sei, ...) yi <- mapply(transf, yi, ...) attr(x, "transf") <- TRUE vi <- NULL sei <- NULL zi <- NULL pval <- NULL } else { ci.lb <- yi - crit * sei ci.ub <- yi + crit * sei attr(x, "transf") <- FALSE } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ### apply observation/outcome limits if specified if (!missing(olim)) { if (length(olim) != 2L) stop(mstyle$stop("Argument 'olim' must be of length 2.")) olim <- sort(olim) yi <- .applyolim(yi, olim) # note: zi and pval are based on unconstrained yi ci.lb <- .applyolim(ci.lb, olim) ci.ub <- .applyolim(ci.ub, olim) } x[[yi.name]] <- yi x[[vi.name]] <- vi #return(cbind(yi, vi, sei, zi, ci.lb, ci.ub)) ### put together dataset if (append) { ### if user wants to append dat <- data.frame(x) if (replace) { ### and wants to replace all values dat[[out.names[1]]] <- sei # if variable does not exists in dat, it will be added dat[[out.names[2]]] <- zi # if variable does not exists in dat, it will be added dat[[out.names[3]]] <- pval # if variable does not exists in dat, it will be added dat[[out.names[4]]] <- ci.lb # if variable does not exists in dat, it will be added dat[[out.names[5]]] <- ci.ub # if variable does not exists in dat, it will be added } else { ### and only wants to replace any NA values if (is.element(out.names[1], names(dat))) { # if sei variable is in data frame, replace NA values with newly calculated values is.na.sei <- is.na(dat[[out.names[1]]]) dat[[out.names[1]]][is.na.sei] <- sei[is.na.sei] } else { dat[[out.names[1]]] <- sei # if sei variable does not exist in dat, just add as new variable } if (is.element(out.names[2], names(dat))) { # if zi variable is in data frame, replace NA values with newly calculated values is.na.zi <- is.na(dat[[out.names[2]]]) dat[[out.names[2]]][is.na.zi] <- zi[is.na.zi] } else { dat[[out.names[2]]] <- zi # if zi variable does not exist in dat, just add as new variable } if (is.element(out.names[3], names(dat))) { # if pval variable is in data frame, replace NA values with newly calculated values is.na.pval <- is.na(dat[[out.names[3]]]) dat[[out.names[3]]][is.na.pval] <- pval[is.na.pval] } else { dat[[out.names[3]]] <- pval # if pval variable does not exist in dat, just add as new variable } if (is.element(out.names[4], names(dat))) { # if ci.lb variable is in data frame, replace NA values with newly calculated values is.na.ci.lb <- is.na(dat[[out.names[4]]]) dat[[out.names[4]]][is.na.ci.lb] <- ci.lb[is.na.ci.lb] } else { dat[[out.names[4]]] <- ci.lb # if ci.lb variable does not exist in dat, just add as new variable } if (is.element(out.names[5], names(dat))) { # if ci.ub variable is in data frame, replace NA values with newly calculated values is.na.ci.ub <- is.na(dat[[out.names[5]]]) dat[[out.names[5]]][is.na.ci.ub] <- ci.ub[is.na.ci.ub] } else { dat[[out.names[5]]] <- ci.ub # if ci.ub variable does not exist in dat, just add as new variable } } } else { ### if user does not want to append if (is.function(transf)) { dat <- data.frame(yi, ci.lb, ci.ub) names(dat) <- c(yi.name, out.names[4:5]) } else { dat <- data.frame(yi, vi, sei, zi, pval, ci.lb, ci.ub) names(dat) <- c(yi.name, vi.name, out.names) } } ### update existing digits attribute if digits is specified if (!missing(digits)) { attr(dat, "digits") <- .get.digits(digits=digits, xdigits=attr(x, "digits"), dmiss=FALSE) } else { attr(dat, "digits") <- attr(x, "digits") } if (is.null(attr(dat, "digits"))) # in case x no longer has a 'digits' attribute attr(dat, "digits") <- 4 ### update existing var.names attribute if var.names is specified ### and make sure all other yi.names and vi.names are added back in if (!missing(var.names)) { attr(dat, "yi.names") <- union(var.names[1], attr(object, "yi.names")) } else { attr(dat, "yi.names") <- union(yi.name, attr(object, "yi.names")) } if (!missing(var.names)) { attr(dat, "vi.names") <- union(var.names[2], attr(object, "vi.names")) } else { attr(dat, "vi.names") <- union(vi.name, attr(object, "vi.names")) } ### add 'sei.names', 'zi.names', 'pval.names', 'ci.lb.names', and 'ci.ub.names' to the first position of the corresponding attributes ### note: if "xyz" is not an attribute of the object, attr(object, "xyz") returns NULL, so this works fine attr(dat, "sei.names") <- union(out.names[1], attr(object, "sei.names")) attr(dat, "zi.names") <- union(out.names[2], attr(object, "zi.names")) attr(dat, "pval.names") <- union(out.names[3], attr(object, "pval.names")) attr(dat, "ci.lb.names") <- union(out.names[4], attr(object, "ci.lb.names")) attr(dat, "ci.ub.names") <- union(out.names[5], attr(object, "ci.ub.names")) ### TODO: clean up attribute elements that are no longer actually part of the object class(dat) <- c("escalc", "data.frame") return(dat) } metafor/R/to.long.r0000644000176200001440000012666315120213572013667 0ustar liggesusersto.long <- function(measure, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, sdi, ni, data, slab, subset, add=1/2, to="none", drop00=FALSE, vlong=FALSE, append=TRUE, var.names) { mstyle <- .get.mstyle() ### check argument specifications if (missing(measure)) stop(mstyle$stop("Must specify an effect size or outcome measure via the 'measure' argument.")) if (!is.character(measure)) stop(mstyle$stop("The 'measure' argument must be a character string.")) if (!is.element(measure, c("RR","OR","PETO","RD","AS","PHI","YUQ","YUY","RTET", # 2x2 table measures "PBIT","OR2D","OR2DN","OR2DL", # - transformations to SMD "MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM", # - measures for matched pairs data "IRR","IRD","IRSD", # two-group person-time data measures "MD","SMD","SMDH","ROM", # two-group mean/SD measures "VR","CVR", # variability ratio, coefficient of variation ratio "RPB","RBIS","D2OR","D2ORN","D2ORL", # - transformations to r_PB, r_BIS, and log(OR) "COR","UCOR","ZCOR", # correlations (raw and r-to-z transformed) "PCOR","ZPCOR","SPCOR", # partial and semi-partial correlations "R2","ZR2","R2F","ZR2F", # coefficient of determination (raw and r-to-z transformed) "PR","PLN","PLO","PRZ","PAS","PFT", # single proportions (and transformations thereof) "IR","IRLN","IRS","IRFT", # single-group person-time data (and transformations thereof) "MN","SMN","MNLN","SDLN","CVLN", # mean, single-group standardized mean, log(mean), log(SD), log(CV) "MC","SMCC","SMCR","SMCRH","ROMC","VRC","CVRC", # raw/standardized mean change, log(ROM), VR, and CVR for dependent samples "ARAW","AHW","ABT"))) # alpha (and transformations thereof) stop(mstyle$stop("Unknown 'measure' specified.")) if (is.element(measure, c("VR","CVR","PCOR","ZPCOR","SPCOR","R2","ZR2","R2F","ZR2F","SDLN","CVLN","VRC"))) stop(mstyle$stop("Function not available for this outcome measure.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (!is.character(to) || length(to) != 1 || is.na(to) || !is.element(to, c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) ### check if the 'data' argument was specified if (missing(data)) data <- NULL ### need this at the end to check if append=TRUE can actually be done has.data <- !is.null(data) if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } doappend <- FALSE if (has.data && is.logical(append) && isTRUE(append)) { doappend <- TRUE appendvars <- seq_len(ncol(data)) } if (has.data && is.numeric(append)) { doappend <- TRUE append <- unique(round(append)) append <- append[which(append >= 1)] append <- append[which(append <= ncol(data))] append <- c(na.omit(append)) appendvars <- append } if (has.data && is.character(append)) { doappend <- TRUE append <- unique(append) append <- pmatch(append, colnames(data)) append <- c(na.omit(append)) appendvars <- append } mf <- match.call() ### get slab and subset arguments (will be NULL when unspecified) slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) ######################################################################### ######################################################################### ######################################################################### if (is.element(measure, c("RR","OR","RD","AS","PETO","PHI","YUQ","YUY","RTET","PBIT","OR2D","OR2DN","OR2DL","MPRD","MPRR","MPOR","MPORC","MPPETO","MPORM"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ai, bi, ci, di, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) n1i.inc <- n1i != ai + bi n2i.inc <- n2i != ci + di if (any(n1i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n1i' values are not equal to 'ai + bi'.")) if (any(n2i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n2i' values are not equal to 'ci + di'.")) bi <- replmiss(bi, n1i-ai) di <- replmiss(di, n2i-ci) if (!.all.specified(ai, bi, ci, di)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, bi, ci, di or ai, n1i, ci, n2i).")) k <- length(ai) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) } n1i <- ai + bi n2i <- ci + di if (any(c(ai > n1i, ci > n2i), na.rm=TRUE)) stop(mstyle$stop("One or more event counts are larger than the corresponding group sizes.")) if (any(c(ai, bi, ci, di) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(c(n1i < 0, n2i < 0), na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are negative.")) ni.u <- ai + bi + ci + di # unadjusted total sample sizes ### if drop00=TRUE, set counts to NA for studies that have no events (or all events) in both arms if (drop00) { id00 <- c(ai == 0L & ci == 0L) | c(bi == 0L & di == 0L) id00[is.na(id00)] <- FALSE ai[id00] <- NA_real_ bi[id00] <- NA_real_ ci[id00] <- NA_real_ di[id00] <- NA_real_ } if (to == "all") { ### always add to all cells in all studies ai <- ai + add ci <- ci + add bi <- bi + add di <- di + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(ai == 0L | ci == 0L | bi == 0L | di == 0L) id0[is.na(id0)] <- FALSE ai[id0] <- ai[id0] + add ci[id0] <- ci[id0] + add bi[id0] <- bi[id0] + add di[id0] <- di[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(ai == 0L | ci == 0L | bi == 0L | di == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { ai <- ai + add ci <- ci + add bi <- bi + add di <- di + add } } } ######################################################################### if (is.element(measure, c("IRR","IRD","IRSD"))) { x1i <- .getx("x1i", mf=mf, data=data, checknumeric=TRUE) x2i <- .getx("x2i", mf=mf, data=data, checknumeric=TRUE) t1i <- .getx("t1i", mf=mf, data=data, checknumeric=TRUE) t2i <- .getx("t2i", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(x1i, x2i, t1i, t2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., x1i, x2i, t1i, t2i).")) if (!.equal.length(x1i, x2i, t1i, t2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(x1i) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) x1i <- .getsubset(x1i, subset) x2i <- .getsubset(x2i, subset) t1i <- .getsubset(t1i, subset) t2i <- .getsubset(t2i, subset) } if (any(c(x1i, x2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(c(t1i, t2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more person-times are <= 0.")) ni.u <- t1i + t2i # unadjusted total sample sizes ### if drop00=TRUE, set counts to NA for studies that have no events in both arms if (drop00) { id00 <- c(x1i == 0L & x2i == 0L) id00[is.na(id00)] <- FALSE x1i[id00] <- NA_real_ x2i[id00] <- NA_real_ } if (to == "all") { ### always add to all cells in all studies x1i <- x1i + add x2i <- x2i + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(x1i == 0L | x2i == 0L) id0[is.na(id0)] <- FALSE x1i[id0] <- x1i[id0] + add x2i[id0] <- x2i[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(x1i == 0L | x2i == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { x1i <- x1i + add x2i <- x2i + add } } } ######################################################################### if (is.element(measure, c("MD","SMD","SMDH","ROM","RPB","RBIS","D2OR","D2ORN","D2ORL"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(m1i, m2i, sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, n1i, n2i).")) if (!.equal.length(m1i, m2i, sd1i, sd2i, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(n1i) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) n1i <- .getsubset(n1i, subset) n2i <- .getsubset(n2i, subset) } if (any(c(sd1i, sd2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) if (any(c(n1i, n2i) <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) ni.u <- n1i + n2i # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("COR","UCOR","ZCOR"))) { ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ri, ni, ti)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ri <- replmiss(ri, ti / sqrt(ni - 2 + ti^2)) if (!.all.specified(ri, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ri, ni).")) k <- length(ri) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k=k) ri <- .getsubset(ri, subset) ni <- .getsubset(ni, subset) } if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("PR","PLN","PLO","PRZ","PAS","PFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(xi, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ni.inc <- ni != xi + mi if (any(ni.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'ni' values are not equal to 'xi + mi'.")) mi <- replmiss(mi, ni-xi) if (!.all.specified(xi, mi)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., xi, mi or xi, ni).")) k <- length(xi) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) mi <- .getsubset(mi, subset) } ni <- xi + mi if (any(xi > ni, na.rm=TRUE)) stop(mstyle$stop("One or more event counts are larger than the corresponding group sizes.")) if (any(c(xi, mi) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes if (to == "all") { ### always add to all cells in all studies xi <- xi + add mi <- mi + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(xi == 0L | mi == 0L) id0[is.na(id0)] <- FALSE xi[id0] <- xi[id0] + add mi[id0] <- mi[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(xi == 0L | mi == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { xi <- xi + add mi <- mi + add } } } ######################################################################### if (is.element(measure, c("IR","IRLN","IRS","IRFT"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(xi, ti)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., xi, ti).")) if (!.equal.length(xi, ti)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(xi) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) ti <- .getsubset(ti, subset) } if (any(xi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(ti <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more person-times are <= 0.")) ni.u <- ti # unadjusted total sample sizes if (to == "all") { ### always add to all cells in all studies xi <- xi + add } if (to == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(xi == 0L) id0[is.na(id0)] <- FALSE xi[id0] <- xi[id0] + add } if (to == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(xi == 0L) id0[is.na(id0)] <- FALSE if (any(id0)) { xi <- xi + add } } } ######################################################################### if (is.element(measure, c("MN","SMN","MNLN"))) { mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) sdi <- .getx("sdi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(mi, sdi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., mi, sdi, ni).")) if (!.equal.length(mi, sdi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(ni) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) mi <- .getsubset(mi, subset) sdi <- .getsubset(sdi, subset) ni <- .getsubset(ni, subset) } if (any(sdi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) if (is.element(measure, c("MNLN","CVLN")) && any(mi < 0, na.rm=TRUE)) stop(mstyle$stop("One or more means are negative.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("MC","SMCC","SMCR","SMCRH","ROMC","CVRC"))) { m1i <- .getx("m1i", mf=mf, data=data, checknumeric=TRUE) m2i <- .getx("m2i", mf=mf, data=data, checknumeric=TRUE) sd1i <- .getx("sd1i", mf=mf, data=data, checknumeric=TRUE) sd2i <- .getx("sd2i", mf=mf, data=data, checknumeric=TRUE) ri <- .getx("ri", mf=mf, data=data, checknumeric=TRUE) # for SMCR, do not need to supply this ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) k <- length(m1i) # number of outcomes before subsetting if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { if (!.all.specified(m1i, m2i, sd1i, sd2i, ni, ri)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, sd2i, ni, ri).")) if (!.equal.length(m1i, m2i, sd1i, sd2i, ni, ri)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } else { if (!.all.specified(m1i, m2i, sd1i, ni, ri)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., m1i, m2i, sd1i, ni, ri).")) if (!.equal.length(m1i, m2i, sd1i, ni, ri)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) } if (!is.null(subset)) { subset <- .chksubset(subset, k) m1i <- .getsubset(m1i, subset) m2i <- .getsubset(m2i, subset) sd1i <- .getsubset(sd1i, subset) sd2i <- .getsubset(sd2i, subset) ni <- .getsubset(ni, subset) ri <- .getsubset(ri, subset) } if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { if (any(c(sd1i, sd2i) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) } else { if (any(sd1i < 0, na.rm=TRUE)) stop(mstyle$stop("One or more standard deviations are negative.")) } if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### if (is.element(measure, c("ARAW","AHW","ABT"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!.all.specified(ai, mi, ni)) stop(mstyle$stop("Cannot compute outcomes. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, mi, ni).")) if (!.equal.length(ai, mi, ni)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(ai) # number of outcomes before subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) mi <- .getsubset(mi, subset) ni <- .getsubset(ni, subset) } if (any(ai > 1, na.rm=TRUE)) stop(mstyle$stop("One or more alpha values are > 1.")) if (any(mi < 2, na.rm=TRUE)) stop(mstyle$stop("One or more mi values are < 2.")) if (any(ni <= 0, na.rm=TRUE)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ni.u <- ni # unadjusted total sample sizes } ######################################################################### ######################################################################### ######################################################################### ### generate study labels if none are specified if (is.null(slab)) { slab <- seq_len(k) } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) if (is.factor(slab)) slab <- as.character(slab) } ### if a subset of studies is specified if (!is.null(subset)) { slab <- .getsubset(slab, subset) if (has.data) data <- .getsubset(data, subset) } ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) ######################################################################### ######################################################################### ######################################################################### if (is.element(measure, c("RR","OR","RD","AS","PETO","PHI","YUQ","YUY","RTET","PBIT","OR2D","OR2DN","OR2DL","MPORM"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset if (vlong) { ### create very long format dataset dat <- data.frame(rep(slab, each=4L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,1,2,2), k) dat[[3]] <- rep(c(1,2,1,2), k) dat[[4]] <- c(rbind(ai,bi,ci,di)) if (missing(var.names)) { names(dat) <- c("study", "group", "outcome", "freq") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) dat[[3]] <- factor(dat[[3]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=4L),appendvars,drop=FALSE], dat) } else { ### create regular long format dataset dat <- data.frame(rep(slab, each=2L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,2), k) dat[[3]] <- c(rbind(ai,ci)) dat[[4]] <- c(rbind(bi,di)) if (missing(var.names)) { names(dat) <- c("study", "group", "out1", "out2") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=2L),appendvars,drop=FALSE], dat) } } ######################################################################### if (is.element(measure, c("MPRD","MPRR","MPOR"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset if (vlong) { ### create very long format dataset dat <- data.frame(rep(slab, each=4L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,1,2,2), k) dat[[3]] <- rep(c(1,2,1,2), k) dat[[4]] <- c(rbind(ai+bi,ci+di,ai+ci,bi+di)) if (missing(var.names)) { names(dat) <- c("study", "time", "outcome", "freq") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) dat[[3]] <- factor(dat[[3]], levels=c(2,1)) if (doappend) dat <- data.frame(data[rep(seq_len(k), each=4L),appendvars,drop=FALSE], dat) } else { ### create regular long format dataset dat <- data.frame(rep(slab, each=2L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,2), k) dat[[3]] <- c(rbind(ai+bi,ai+ci)) dat[[4]] <- c(rbind(ci+di,bi+di)) if (missing(var.names)) { names(dat) <- c("study", "time", "out1", "out2") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=2L),appendvars,drop=FALSE], dat) } } ######################################################################### if (is.element(measure, c("MPORC","MPPETO"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset if (vlong) { ### create very long format dataset dat <- data.frame(rep(slab, each=4L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,1,2,2), k) dat[[3]] <- rep(c(1,2,1,2), k) dat[[4]] <- c(rbind(ai,bi,ci,di)) if (missing(var.names)) { names(dat) <- c("study", "out.time1", "out.time2", "freq") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) dat[[3]] <- factor(dat[[3]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=4L),appendvars,drop=FALSE], dat) } else { ### create regular long format dataset dat <- data.frame(rep(slab, each=2L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,2), k) dat[[3]] <- c(rbind(ai,ci)) dat[[4]] <- c(rbind(bi,di)) if (missing(var.names)) { names(dat) <- c("study", "out.time1", "out1.time2", "out2.time2") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=2L),appendvars,drop=FALSE], dat) } } ######################################################################### if (is.element(measure, c("IRR","IRD","IRSD"))) { ### check for NAs in table data and act accordingly has.na <- is.na(x1i) | is.na(x2i) | is.na(t1i) | is.na(t2i) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { x1i <- x1i[not.na] x2i <- x2i[not.na] t1i <- t1i[not.na] t2i <- t2i[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(x1i) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset dat <- data.frame(rep(slab, each=2L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,2), k) dat[[3]] <- c(rbind(x1i,x2i)) dat[[4]] <- c(rbind(t1i,t2i)) if (missing(var.names)) { names(dat) <- c("study", "group", "events", "ptime") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=2L),appendvars,drop=FALSE], dat) } ######################################################################### if (is.element(measure, c("MD","SMD","SMDH","ROM","RPB","RBIS","D2OR","D2ORN","D2ORL"))) { ### check for NAs in table data and act accordingly has.na <- is.na(m1i) | is.na(m2i) | is.na(sd1i) | is.na(sd2i) | is.na(n1i) | is.na(n2i) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { m1i <- m1i[not.na] m2i <- m2i[not.na] sd1i <- sd1i[not.na] sd2i <- sd2i[not.na] n1i <- n1i[not.na] n2i <- n2i[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(m1i) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset dat <- data.frame(rep(slab, each=2L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,2), k) dat[[3]] <- c(rbind(m1i,m2i)) dat[[4]] <- c(rbind(sd1i,sd2i)) dat[[5]] <- c(rbind(n1i,n2i)) if (missing(var.names)) { names(dat) <- c("study", "group", "mean", "sd", "n") } else { if (length(var.names) != 5L) stop(mstyle$stop("Variable names not of length 5.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=2L),appendvars,drop=FALSE], dat) } ######################################################################### if (is.element(measure, c("COR","UCOR","ZCOR"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ri) | is.na(ni) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ri <- ri[not.na] ni <- ni[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ri) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset dat <- data.frame(slab, stringsAsFactors=FALSE) dat[[2]] <- ri dat[[3]] <- ni if (missing(var.names)) { names(dat) <- c("study", "r", "n") } else { if (length(var.names) != 3L) stop(mstyle$stop("Variable names not of length 3.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) if (doappend) dat <- cbind(data[,appendvars,drop=FALSE], dat) } ######################################################################### if (is.element(measure, c("PR","PLN","PLO","PRZ","PAS","PFT"))) { ### check for NAs in table data and act accordingly has.na <- is.na(xi) | is.na(mi) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { xi <- xi[not.na] mi <- mi[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(xi) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset if (vlong) { ### create very long format dataset dat <- data.frame(rep(slab, each=2L), stringsAsFactors=FALSE) dat[[2]] <- rep(c(1,2), k) dat[[3]] <- c(rbind(xi,mi)) if (missing(var.names)) { names(dat) <- c("study", "outcome", "freq") } else { if (length(var.names) != 3L) stop(mstyle$stop("Variable names not of length 3.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) dat[[2]] <- factor(dat[[2]], levels=c(2,1)) if (doappend) dat <- cbind(data[rep(seq_len(k), each=2L),appendvars,drop=FALSE], dat) } else { ### create regular long format dataset dat <- data.frame(slab, stringsAsFactors=FALSE) dat[[2]] <- xi dat[[3]] <- mi if (missing(var.names)) { names(dat) <- c("study", "out1", "out2") } else { if (length(var.names) != 3L) stop(mstyle$stop("Variable names not of length 3.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) if (doappend) dat <- cbind(data[,appendvars,drop=FALSE], dat) } } ######################################################################### if (is.element(measure, c("IR","IRLN","IRS","IRFT"))) { ### check for NAs in table data and act accordingly has.na <- is.na(xi) | is.na(ti) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { xi <- xi[not.na] ti <- ti[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(xi) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset dat <- data.frame(slab, stringsAsFactors=FALSE) dat[[2]] <- xi dat[[3]] <- ti if (missing(var.names)) { names(dat) <- c("study", "events", "ptime") } else { if (length(var.names) != 3L) stop(mstyle$stop("Variable names not of length 3.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) if (doappend) dat <- cbind(data[,appendvars,drop=FALSE], dat) } ######################################################################### if (is.element(measure, c("MN","SMN","MNLN"))) { ### check for NAs in table data and act accordingly has.na <- is.na(mi) | is.na(sdi) | is.na(ni) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { mi <- mi[not.na] sdi <- sdi[not.na] ni <- ni[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ni) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset dat <- data.frame(slab, stringsAsFactors=FALSE) dat[[2]] <- mi dat[[3]] <- sdi dat[[4]] <- ni if (missing(var.names)) { names(dat) <- c("study", "mean", "sd", "n") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) if (doappend) dat <- cbind(data[,appendvars,drop=FALSE], dat) } ######################################################################### if (is.element(measure, c("MC","SMCC","SMCR","SMCRH","ROMC","CVRC"))) { ### check for NAs in table data and act accordingly if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { has.na <- is.na(m1i) | is.na(m2i) | is.na(sd1i) | is.na(sd2i) | is.na(ni) | is.na(ri) } else { has.na <- is.na(m1i) | is.na(m2i) | is.na(sd1i) | is.na(ni) | is.na(ri) } if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { m1i <- m1i[not.na] m2i <- m2i[not.na] sd1i <- sd1i[not.na] if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) sd2i <- sd2i[not.na] ni <- ni[not.na] ri <- ri[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(m1i) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset if (is.element(measure, c("MC","SMCC","SMCRH","ROMC","CVRC"))) { dat <- data.frame(slab, stringsAsFactors=FALSE) dat[[2]] <- m1i dat[[3]] <- m2i dat[[4]] <- sd1i dat[[5]] <- sd2i dat[[6]] <- ni dat[[7]] <- ri if (missing(var.names)) { names(dat) <- c("study", "mean1", "mean2", "sd1", "sd2", "n", "r") } else { if (length(var.names) != 7L) stop(mstyle$stop("Variable names not of length 7.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) if (doappend) dat <- cbind(data[,appendvars,drop=FALSE], dat) } else { dat <- data.frame(slab, stringsAsFactors=FALSE) dat[[2]] <- m1i dat[[3]] <- m2i dat[[4]] <- sd1i dat[[5]] <- ni dat[[6]] <- ri if (missing(var.names)) { names(dat) <- c("study", "mean1", "mean2", "sd1", "n", "r") } else { if (length(var.names) != 6L) stop(mstyle$stop("Variable names not of length 6.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) if (doappend) dat <- cbind(data[,appendvars,drop=FALSE], dat) } } ######################################################################### if (is.element(measure, c("ARAW","AHW","ABT"))) { ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(mi) | is.na(ni) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit") { ai <- ai[not.na] mi <- mi[not.na] ni <- ni[not.na] slab <- slab[not.na] if (has.data) data <- data[not.na,] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "tables", "table"), "with NAs omitted.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } k <- length(ai) ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### create long format dataset dat <- data.frame(slab, stringsAsFactors=FALSE) dat[[2]] <- ai dat[[3]] <- mi dat[[4]] <- ni if (missing(var.names)) { names(dat) <- c("study", "alpha", "m", "n") } else { if (length(var.names) != 4L) stop(mstyle$stop("Variable names not of length 4.")) names(dat) <- var.names } dat[[1]] <- factor(dat[[1]]) if (doappend) dat <- data.frame(data[,appendvars,drop=FALSE], dat) } ######################################################################### rownames(dat) <- seq_len(nrow(dat)) return(dat) } metafor/R/coef.summary.rma.r0000644000176200001440000000305115120213572015456 0ustar liggesuserscoef.summary.rma <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="summary.rma") ddd <- list(...) x <- object if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=x$beta, se=x$se, tval=x$zval, df=x$ddf, pval=x$pval, ci.lb=x$ci.lb, ci.ub=x$ci.ub) } else { res.table <- data.frame(estimate=x$beta, se=x$se, zval=x$zval, pval=x$pval, ci.lb=x$ci.lb, ci.ub=x$ci.ub) } if (isTRUE(ddd$type=="beta")) return(res.table) if (inherits(x, "rma.ls")) { res.table <- list(beta=res.table) if (is.element(x$test, c("knha","adhoc","t"))) { res.table$alpha <- data.frame(estimate=x$alpha, se=x$se.alpha, tval=x$zval.alpha, df=x$ddf.alpha, pval=x$pval.alpha, ci.lb=x$ci.lb.alpha, ci.ub=x$ci.ub.alpha) } else { res.table$alpha <- data.frame(estimate=x$alpha, se=x$se.alpha, zval=x$zval.alpha, pval=x$pval.alpha, ci.lb=x$ci.lb.alpha, ci.ub=x$ci.ub.alpha) } if (isTRUE(ddd$type=="alpha")) return(res.table$alpha) } if (inherits(x, "rma.uni.selmodel")) { res.table <- list(beta=res.table) res.table$delta <- data.frame(estimate=x$delta, se=x$se.delta, zval=x$zval.delta, pval=x$pval.delta, ci.lb=x$ci.lb.delta, ci.ub=x$ci.ub.delta) if (length(x$delta) == 1L) { rownames(res.table$delta) <- "delta" } else { rownames(res.table$delta) <- paste0("delta.", seq_along(x$delta)) } if (isTRUE(ddd$type=="delta")) return(res.table$delta) } return(res.table) } metafor/R/hatvalues.rma.mv.r0000644000176200001440000000365115120213572015471 0ustar liggesusershatvalues.rma.mv <- function(model, type="diagonal", ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.mv") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$M) || is.null(model$X)) stop(mstyle$stop("Information needed to compute the hat values is not available in the model object.")) type <- match.arg(type, c("diagonal", "matrix")) ######################################################################### x <- model if (is.null(x$W)) { W <- chol2inv(chol(x$M)) stXWX <- chol2inv(chol(as.matrix(t(x$X) %*% W %*% x$X))) H <- as.matrix(x$X %*% stXWX %*% crossprod(x$X,W)) #H <- as.matrix(x$X %*% x$vb %*% crossprod(x$X,W)) # x$vb may have been changed through robust() } else { A <- x$W stXAX <- chol2inv(chol(as.matrix(t(x$X) %*% A %*% x$X))) H <- as.matrix(x$X %*% stXAX %*% crossprod(x$X,A)) } ######################################################################### if (type == "diagonal") { hii <- rep(NA_real_, x$k.f) hii[x$not.na] <- as.vector(diag(H)) hii[hii > 1 - 10 * .Machine$double.eps] <- 1 # as in lm.influence() names(hii) <- x$slab if (na.act == "na.omit") hii <- hii[x$not.na] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(hii) } if (type == "matrix") { Hfull <- matrix(NA_real_, nrow=x$k.f, ncol=x$k.f) Hfull[x$not.na, x$not.na] <- H rownames(Hfull) <- x$slab colnames(Hfull) <- x$slab if (na.act == "na.omit") Hfull <- Hfull[x$not.na, x$not.na, drop=FALSE] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(Hfull) } } metafor/R/weights.rma.mh.r0000644000176200001440000000366615120213572015137 0ustar liggesusersweights.rma.mh <- function(object, type="diagonal", ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.mh") if (is.null(object$outdat)) stop(mstyle$stop("Information needed to compute the weights is not available in the model object.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) type <- match.arg(type, c("diagonal", "matrix")) x <- object ######################################################################### if (is.element(x$measure, c("RR","OR","RD"))) { Ni <- with(x$outdat, ai + bi + ci + di) } else { Ti <- with(x$outdat, t1i + t2i) } if (x$measure == "OR") wi <- with(x$outdat, (bi / Ni) * ci) if (x$measure == "RR") wi <- with(x$outdat, (ci / Ni) * (ai+bi)) if (x$measure == "RD") wi <- with(x$outdat, ((ai+bi) / Ni) * (ci+di)) if (x$measure == "IRR") wi <- with(x$outdat, (x2i / Ti) * t1i) if (x$measure == "IRD") wi <- with(x$outdat, (t1i / Ti) * t2i) ######################################################################### if (type == "diagonal") { weight <- rep(NA_real_, x$k.f) weight[x$not.na] <- wi / sum(wi) * 100 names(weight) <- x$slab if (na.act == "na.omit") weight <- weight[x$not.na] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in weights.")) return(weight) } if (type == "matrix") { Wfull <- matrix(NA_real_, nrow=x$k.f, ncol=x$k.f) Wfull[x$not.na, x$not.na] <- diag(wi) rownames(Wfull) <- x$slab colnames(Wfull) <- x$slab if (na.act == "na.omit") Wfull <- Wfull[x$not.na, x$not.na, drop=FALSE] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(Wfull) } } metafor/R/emmprep.r0000644000176200001440000001317115120213572013741 0ustar liggesusersemmprep <- function(x, verbose=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma") if (!requireNamespace("emmeans", quietly=TRUE)) stop(mstyle$stop("Please install the 'emmeans' package to use this function.")) if (any(x$coef.na)) stop(mstyle$stop("Cannot use function when some redundant predictors were dropped from the model.")) ### check if a formula is available formula <- formula(x) if (is.null(formula) && x$int.only) formula <- ~ 1 if (is.null(formula)) stop(mstyle$stop("Cannot use function when model was fitted without a formula specification.")) if (verbose) { .space() cat("Extracted formula: ~", paste(paste(formula)[-1], collapse=""), "\n") } ### get coefficients and corresponding var-cov matrix b <- coef(x, type="beta") vb <- vcov(x, type="beta") ### change intrcpt to (Intercept) names(b) <- sub("intrcpt", "(Intercept)", names(b)) rownames(vb) <- sub("intrcpt", "(Intercept)", rownames(vb)) colnames(vb) <- sub("intrcpt", "(Intercept)", colnames(vb)) ######################################################################### ddd <- list(...) ### get data and apply subsetting / removal of missings as needed if (is.null(ddd$data)) { dat <- x$data if (is.null(dat)) stop(mstyle$stop("Cannot use function when the model object does not contain the original data.")) if (!is.null(x$subset)) dat <- dat[x$subset,,drop=FALSE] dat <- dat[x$not.na,,drop=FALSE] } else { dat <- ddd$data ddd$data <- NULL } ### set the degrees of freedom (use minimum value if there are multiple) if (is.null(ddd$df)) { if (is.na(x$ddf[1])) { ddf <- Inf } else { ddf <- min(x$ddf) } } else { ddf <- ddd$df ddd$df <- NULL } if (verbose && is.finite(ddf)) cat("Degrees of freedom:", round(ddf, 2), "\n") ### set sigma for bias adjustment if (is.null(ddd$sigma)) { if (!inherits(x, c("rma.ls","rma.mv"))) { sigma <- sqrt(x$tau2) } else { sigma <- NA_real_ } } else { sigma <- ddd$sigma ddd$sigma <- NULL } if (verbose && !is.na(sigma) && !is.element(x$method, c("FE","EE","CE"))) cat("Value of tau^2: ", round(sigma^2, 4), "\n") if (is.na(sigma)) sigma <- 0 ### create grid #out <- emmeans::qdrg(formula=formula, data=dat, coef=b, vcov=vb, df=ddf, sigma=sigma, ...) out <- do.call(emmeans::qdrg, c(list(formula=formula, data=dat, coef=b, vcov=vb, df=ddf, sigma=sigma), ddd)) ### set (back)transformation if (is.null(ddd$tran)) { if (is.element(x$measure, c("RR","OR","MPORM","PETO","MPRR","MPOR","MPORC","MPPETO","IRR","ROM","D2OR","D2ORL","D2ORN","VR","CVR","PLN","IRLN","MNLN","SDLN","CVLN","ROMC","VRC","CVRC","REH","HR"))) { out@misc$tran <- "log" #out@misc$tran <- emmeans::make.tran("genlog", 0) #out <- update(out, emmeans::make.tran("genlog", 0)) if (verbose) cat("Transformation: log\n") } if (is.element(x$measure, c("PLO"))) { out@misc$tran <- "logit" if (verbose) cat("Transformation: logit\n") } if (is.element(x$measure, c("PRZ"))) { out@misc$tran <- "probit" if (verbose) cat("Transformation: probit\n") } if (is.element(x$measure, c("PAS"))) { out <- update(out, emmeans::make.tran("asin.sqrt", 1)) if (verbose) cat("Transformation: asin.sqrt\n") } if (is.element(x$measure, c("IRS"))) { out@misc$tran <- "sqrt" if (verbose) cat("Transformation: sqrt\n") } if (is.element(x$measure, c("ZPHI","ZTET","ZPB","ZBIS","ZCOR","ZPCOR","ZSPCOR"))) { out@misc$tran$linkfun <- transf.rtoz out@misc$tran$linkinv <- transf.ztor out@misc$tran$mu.eta <- function(eta) 1/cosh(eta)^2 # derivative of transf.ztor(eta) (= tanh(eta)) out@misc$tran$valideta <- function(eta) all(is.finite(eta)) && all(abs(eta) <= 1) out@misc$tran$name <- "r-to-z" if (verbose) cat("Transformation: r-to-z\n") } if (is.element(x$measure, c("ZR2","ZR2F"))) { out@misc$tran$linkfun <- transf.r2toz out@misc$tran$linkinv <- transf.ztor2 out@misc$tran$mu.eta <- function(eta) 2*sinh(eta)/cosh(eta)^3 # derivative of transf.ztor2(eta) (= tanh(eta)^2) out@misc$tran$valideta <- function(eta) all(is.finite(eta)) && all(eta <= 1) && all(eta >= 0) out@misc$tran$name <- "r-to-z" if (verbose) cat("Transformation: r-to-z\n") } if (is.element(x$measure, c("AHW"))) { out@misc$tran$linkfun <- transf.ahw out@misc$tran$linkinv <- transf.iahw out@misc$tran$mu.eta <- function(eta) 3*(1-eta)^2 out@misc$tran$valideta <- function(eta) all(is.finite(eta)) && all(eta <= 1) && all(eta >= 0) out@misc$tran$name <- "ahw" if (verbose) cat("Transformation: ahw\n") } if (is.element(x$measure, c("ABT"))) { out@misc$tran$linkfun <- transf.abt out@misc$tran$linkinv <- transf.iabt out@misc$tran$mu.eta <- function(eta) 1/(1-eta) out@misc$tran$valideta <- function(eta) all(is.finite(eta)) && all(eta <= 1) && all(eta >= 0) out@misc$tran$name <- "abt" if (verbose) cat("Transformation: abt\n") } } else { if (verbose) cat("Transformation: ", ddd$tran, "\n") } if (verbose) .space() return(out) } ############################################################################ metafor/R/regtest.r0000644000176200001440000001777615130422551013770 0ustar liggesusersregtest <- function(x, vi, sei, ni, subset, data, model="rma", predictor="sei", ret.fit=FALSE, digits, ...) { ######################################################################### mstyle <- .get.mstyle() na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) model <- match.arg(model, c("lm", "rma")) predictor <- match.arg(predictor, c("sei", "vi", "ni", "ninv", "sqrtni", "sqrtninv")) ddd <- list(...) .chkdots(ddd, c("level", "method", "test")) ######################################################################### ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() x <- .getx("x", mf=mf, data=data) ######################################################################### if (inherits(x, "rma")) { .chkclass(class(x), must="rma", notav=c("robust.rma", "rma.glmm", "rma.mv", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to carry out the test is not available in the model object.")) if (!missing(vi) || !missing(sei) || !missing(subset)) warning(mstyle$warning("Arguments 'vi', 'sei', and 'subset' ignored when 'x' is a model object."), call.=FALSE) yi <- x$yi vi <- x$vi if (missing(ni)) { ni <- x$ni # may be NULL } else { ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (!is.null(ni)) { if (length(ni) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'ni' (", length(ni), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) ni <- .getsubset(ni, x$subset) if (inherits(x, "rma.mh") || inherits(x, "rma.peto")) { ni <- ni[x$not.na.yivi] } else { ni <- ni[x$not.na] } } } k <- length(yi) ### set defaults for digits if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } p <- x$p if (inherits(x, "rma.mh") || inherits(x, "rma.peto")) { X <- cbind(rep(1,k)) } else { X <- x$X } level <- .chkddd(ddd$level, x$level, .level(ddd$level)) method <- .chkddd(ddd$method, x$method) test <- .chkddd(ddd$test, x$test) weights <- x$weights weighted <- x$weighted tau2 <- ifelse(x$tau2.fix, x$tau2, NA_real_) control <- x$control } else { if (!.is.vector(x)) stop(mstyle$stop("Argument 'x' must be a vector or an 'rma' model object.")) yi <- x ### check if yi is numeric if (!is.numeric(yi)) stop(mstyle$stop("The object/variable specified for the 'x' argument is not numeric.")) ### set defaults for digits if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } level <- .chkddd(ddd$level, 0.05, .level(ddd$level)) k <- length(yi) vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) sei <- .getx("sei", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) subset <- .getx("subset", mf=mf, data=data) if (is.null(vi)) { if (!is.null(sei)) vi <- sei^2 } if (is.null(vi)) stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) ### check length of yi and vi if (length(vi) != k) stop(mstyle$stop("Length of 'yi' and 'vi' (or 'sei') are not the same.")) ### check length of yi and ni if (!is.null(ni) && length(ni) != k) stop(mstyle$stop("Length of 'yi' and 'ni' are not the same.")) ### check 'vi' argument for potential misuse .chkviarg(mf$vi) ### if ni has not been specified, try to get it from the attributes of yi if (is.null(ni)) ni <- attr(yi, "ni") ### check length of yi and ni (only if ni is not NULL) ### if there is a mismatch, then ni cannot be trusted, so set it to NULL if (!is.null(ni) && length(ni) != k) ni <- NULL ### if ni is now available, add it (back) as an attribute to yi if (!is.null(ni)) attr(yi, "ni") <- ni ### if a subset of studies is specified if (!is.null(subset)) { subset <- .chksubset(subset, k) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) ni <- .getsubset(ni, subset) } ### check for NAs and act accordingly has.na <- is.na(yi) | is.na(vi) | (if (is.null(ni)) FALSE else is.na(ni)) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] vi <- vi[not.na] ni <- ni[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from test.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in data.")) } p <- 1L k <- length(yi) X <- cbind(rep(1,k)) method <- .chkddd(ddd$method, "REML") test <- .chkddd(ddd$test, "z") weights <- NULL weighted <- TRUE tau2 <- NA_real_ control <- list() } ######################################################################### if (predictor == "sei") X <- cbind(X, sei=sqrt(vi)) if (predictor == "vi") X <- cbind(X, vi=vi) if (is.element(predictor, c("ni", "ninv", "sqrtni", "sqrtninv"))) { if (is.null(ni)) { stop(mstyle$stop("No sample size information available to use this predictor.")) } else { if (predictor == "ni") X <- cbind(X, ni=ni) if (predictor == "ninv") X <- cbind(X, ninv=1/ni) if (predictor == "sqrtni") X <- cbind(X, ni=sqrt(ni)) if (predictor == "sqrtninv") X <- cbind(X, ni=1/sqrt(ni)) } } ### check if X of full rank (if not, cannot carry out the test) tmp <- lm(yi ~ 0 + X) coef.na <- is.na(coef(tmp)) if (any(coef.na)) stop(mstyle$stop("Model matrix no longer of full rank after addition of predictor. Cannot fit model.")) if (model == "rma") { ddd$level <- NULL ddd$method <- NULL ddd$test <- NULL args <- list(yi=yi, vi=vi, weights=weights, mods=X, intercept=FALSE, method=method, weighted=weighted, test=test, level=level, tau2=tau2, control=control, ddd) fit <- .do.call(rma.uni, args) zval <- fit$zval[p+1] pval <- fit$pval[p+1] ddf <- fit$ddf } else { yi <- c(yi) # remove attributes fit <- lm(yi ~ 0 + X, weights=1/vi) tmp <- summary(fit) zval <- coef(tmp)[p+1,3] pval <- coef(tmp)[p+1,4] ddf <- fit$df.residual } ### get the 'limit estimate' if (predictor %in% c("sei", "vi", "ninv", "sqrtninv") && p == 1L && .is.intercept(X[,1])) { if (model=="lm") { est <- coef(tmp)[1,1] ci.lb <- est - qt(level/2, df=ddf, lower.tail=FALSE) * coef(tmp)[1,2] ci.ub <- est + qt(level/2, df=ddf, lower.tail=FALSE) * coef(tmp)[1,2] } else { est <- coef(fit)[1] ci.lb <- fit$ci.lb[1] ci.ub <- fit$ci.ub[1] } } else { est <- ci.lb <- ci.ub <- NULL } res <- list(model=model, predictor=predictor, zval=zval, pval=pval, dfs=ddf, ddf=ddf, method=fit$method, digits=digits, ret.fit=ret.fit, fit=fit, est=est, ci.lb=ci.lb, ci.ub=ci.ub) class(res) <- "regtest" return(res) } metafor/R/conv.fivenum.r0000644000176200001440000005474215156004103014717 0ustar liggesusersconv.fivenum <- function(min, q1, median, q3, max, n, data, include, method="default", dist="norm", transf=TRUE, test=TRUE, var.names=c("mean","sd"), append=TRUE, replace="ifna", ...) { mstyle <- .get.mstyle() if (missing(min) && missing(q1) && missing(median) && missing(q3) && missing(max)) stop(mstyle$stop("Must specify at least some of these arguments: 'min', 'q1', 'median', 'q3', 'max'.")) if (is.logical(replace)) { if (isTRUE(replace)) { replace <- "all" } else { replace <- "ifna" } } replace <- match.arg(replace, c("ifna","all")) ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("verbose", "seed")) verbose <- .chkddd(ddd$verbose, FALSE, isTRUE(ddd$verbose)) if (!is.null(ddd$seed)) set.seed(ddd$seed) testarg <- test ######################################################################### if (missing(data)) data <- NULL has.data <- !is.null(data) if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } ### checks on var.names argument if (length(var.names) != 2L) stop(mstyle$stop("Argument 'var.names' must be of length 2.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "').")), call.=FALSE) } ######################################################################### mf <- match.call() #return(mf) min <- .getx("min", mf=mf, data=data, checknumeric=TRUE) q1 <- .getx("q1", mf=mf, data=data, checknumeric=TRUE) median <- .getx("median", mf=mf, data=data, checknumeric=TRUE) q3 <- .getx("q3", mf=mf, data=data, checknumeric=TRUE) max <- .getx("max", mf=mf, data=data, checknumeric=TRUE) n <- .getx("n", mf=mf, data=data, checknumeric=TRUE) include <- .getx("include", mf=mf, data=data) dist <- .getx("dist", mf=mf, data=data, default="norm") if (!.equal.length(min, q1, median, q3, max, n)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- .maxlength(min, q1, median, q3, max, n) if (is.null(min)) min <- rep(NA_real_, k) if (is.null(q1)) q1 <- rep(NA_real_, k) if (is.null(median)) median <- rep(NA_real_, k) if (is.null(q3)) q3 <- rep(NA_real_, k) if (is.null(max)) max <- rep(NA_real_, k) if (is.null(n)) n <- rep(NA_real_, k) ### handle dist argument dist <- .expand1(dist, k) if (length(dist) != k) stop(mstyle$stop(paste0("Length of the 'dist' argument (", length(dist), ") does not match the length of the data (", k, ")."))) dist <- c("norm","lnorm")[pmatch(dist, c("norm","lnorm"), duplicates.ok=TRUE)] if (anyNA(dist)) stop(mstyle$stop("Unknown 'dist' value specified (should either be 'norm' or 'lnorm').")) ### if include is NULL, set to TRUE vector if (is.null(include)) include <- rep(TRUE, k) ### turn numeric include vector into a logical vector include <- .chksubset(include, k, stoponk0=FALSE) ### exclude rows where n < 5 include[which(n < 5)] <- FALSE ### set inputs to NA for rows not to be included min[!include] <- NA_real_ q1[!include] <- NA_real_ median[!include] <- NA_real_ q3[!include] <- NA_real_ max[!include] <- NA_real_ n[!include] <- NA_real_ ######################################################################### ### determine cases case1 <- !is.na(min) & is.na(q1) & is.na(q3) & !is.na(max) case2 <- is.na(min) & !is.na(q1) & !is.na(q3) & is.na(max) case3 <- !is.na(min) & !is.na(q1) & !is.na(q3) & !is.na(max) ### set method method <- tolower(method) method <- .expand1(method, 2L) method1.options <- c("default", "luo/wan/shi", "qe", "bc", "mln", "blue", "hozo2005", "wan2014", "bland2015", "luo2016", "walter2007") method2.options <- c("default", "luo/wan/shi", "qe", "bc", "mln", "blue", "hozo2005", "wan2014", "bland2015", "shi2020", "walter2007") #method[1] <- method1.options[pmatch(method[1], method1.options)] method[1] <- method1.options[grep(paste0("^", method[1]), method1.options)[1]] if (is.na(method[1])) stop(mstyle$stop("Unknown 'method' specified.")) #method[2] <- method2.options[pmatch(method[2], method2.options)] method[2] <- method2.options[grep(paste0("^", method[2]), method2.options)[1]] if (is.na(method[2])) stop(mstyle$stop("Unknown 'method' specified.")) if (method[1] == "default") method[1] <- "luo/wan/shi" if (method[2] == "default") method[2] <- "luo/wan/shi" if (any(dist == "lnorm")) { # if any dist value is 'lnorm', force use of 'luo/wan/shi' method if (!(method[1] == "luo/wan/shi" && method[2] == "luo/wan/shi")) { method <- c("luo/wan/shi", "luo/wan/shi") warning(mstyle$warning("Switching to method='luo/wan/shi' (since dist='lnorm' for one or more studies)."), call.=FALSE) } } if (method[1] %in% c("qe","bc","mln")) { if (method[1] != method[2]) stop(mstyle$stop("Must use the same 'method' for estimating means and SDs.")) if (!requireNamespace("estmeansd", quietly=TRUE)) stop(mstyle$stop("Please install the 'estmeansd' package to use this method.")) test <- FALSE } if (method[1] == "blue") { if (method[1] != method[2]) stop(mstyle$stop("Must use the same 'method' for estimating means and SDs.")) if (!requireNamespace("metaBLUE", quietly=TRUE)) stop(mstyle$stop("Please install the 'metaBLUE' package to use this method.")) } ######################################################################### means <- rep(NA_real_, k) sds <- rep(NA_real_, k) tval <- rep(NA_real_, k) crit <- rep(NA_real_, k) sig <- rep(NA, k) dists <- rep("norm", k) for (i in seq_len(k)) { ### cannot use bc and mln methods with non-positive values if (method[1] %in% c("bc","mln")) { if (any(c(min[i] <= 0, q1[i] <= 0, median[i] <= 0, q3[i] <= 0, max[i] <= 0), na.rm=TRUE)) stop(mstyle$stop(paste0("Cannot use method with non-positive values (found in row ", i, ")."))) } ### when using qe method with negative values, data are assumed to be normally distributed, so test for this (if testarg=TRUE) ### note: this is reset to FALSE for the next iteration (see [a]) if (method[1] == "qe" && any(c(min[i] < 0, q1[i] < 0, median[i] < 0, q3[i] < 0, max[i] < 0), na.rm=TRUE) && testarg) test <- TRUE ### check min <= q1 <= median <= q3 <= max if (is.unsorted(c(min[i], q1[i], median[i], q3[i], max[i]), na.rm=TRUE)) stop(mstyle$stop(paste0("Found 'min <= q1 <= median <= q3 <= max' not true in row ", i, "."))) if (dist[i] == "lnorm") { ### check that min, q1, median, q3, and max are all > 0 when assuming a log-normal distribution if (any(c(min[i] <= 0, q1[i] <= 0, median[i] <= 0, q3[i] <= 0, max[i] <= 0), na.rm=TRUE)) stop(mstyle$stop(paste0("Cannot assume a log-normal distribution with non-positive values (found in row ", i, ")."))) ### log-transform inputs min[i] <- log(min[i]) q1[i] <- log(q1[i]) median[i] <- log(median[i]) q3[i] <- log(q3[i]) max[i] <- log(max[i]) dists[i] <- "lnorm" } if (case1[i]) { ### case 1: min, median, and max are given # test for skewness tval[i] <- abs((min[i] + max[i] - 2*median[i]) / (max[i] - min[i])) #crit[i] <- 1.01 / log(n[i] + 9) + 2.43 / (n[i] + 1) # Shi et al. (2020b) crit[i] <- 1 / log(n[i] + 9) + 2.5 / (n[i] + 1) # Shi et al. (2023) sig[i] <- isTRUE(tval[i] >= crit[i]) if (test && sig[i]) next # mean estimation if (is.element(method[1], c("luo/wan/shi", "luo2016"))) { # Luo et al. (2016), equation (7) weight <- 4 / (4 + n[i]^0.75) means[i] <- weight * (min[i] + max[i]) / 2 + (1 - weight) * median[i] } if (method[1] == "hozo2005") { if (is.na(n[i])) { means[i] <- NA_real_ } else if (n[i] <= 25) { means[i] <- (min[i] + 2*median[i] + max[i]) / 4 } else { means[i] <- median[i] } } if (method[1] == "wan2014") means[i] <- (min[i] + 2*median[i] + max[i]) / 4 if (method[1] == "walter2007") means[i] <- median[i] if (method[1] == "qe") { if (verbose) { tmp <- try(estmeansd::qe.mean.sd(min.val=min[i], med.val=median[i], max.val=max[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::qe.mean.sd(min.val=min[i], med.val=median[i], max.val=max[i], n=n[i]))), silent=TRUE) } if (inherits(tmp, "try-error")) { dists[i] <- NA_character_ } else { means[i] <- tmp$est.mean dists[i] <- tmp$selected.dist } } if (method[1] == "bc") { if (verbose) { tmp <- try(estmeansd::bc.mean.sd(min.val=min[i], med.val=median[i], max.val=max[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::bc.mean.sd(min.val=min[i], med.val=median[i], max.val=max[i], n=n[i]))), silent=TRUE) } if (!inherits(tmp, "try-error")) means[i] <- tmp$est.mean } if (method[1] == "mln") { if (verbose) { tmp <- try(estmeansd::mln.mean.sd(min.val=min[i], med.val=median[i], max.val=max[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::mln.mean.sd(min.val=min[i], med.val=median[i], max.val=max[i], n=n[i]))), silent=TRUE) } if (!inherits(tmp, "try-error")) means[i] <- tmp$est.mean } if (method[1] == "blue") { tmp <- metaBLUE::BLUE_s(c(min[i], median[i], max[i]), n=n[i], "S1") means[i] <- tmp$muhat } # sd estimation if (is.element(method[2], c("luo/wan/shi", "wan2014"))) { # Wan et al. (2014), equation (9) xi <- 2 * qnorm((n[i] - 0.375) / (n[i] + 0.25)) z1 <- ifelse(dist[i] == "norm", 1, 1.01 + 0.25 / log(n[i])^2) #z1 <- 1 sds[i] <- (max[i] - min[i]) / xi * (1/sqrt(z1)) } if (method[2] == "hozo2005") { if (is.na(n[i])) { sds[i] <- NA_real_ } else if (n[i] <= 15) { sds[i] <- 1/sqrt(12) * sqrt((min[i] - 2*median[i] + max[i])^2 / 4 + (max[i]-min[i])^2) } else if (n[i] <= 70) { sds[i] <- (max[i] - min[i]) / 4 } else { sds[i] <- (max[i] - min[i]) / 6 } } if (method[2] == "walter2007") { intfun <- function(x, n) { alpha <- pnorm(x) 1 - (1-alpha)^n - alpha^n } f <- try(integrate(intfun, lower=-Inf, upper=Inf, n=n[i])$value, silent=TRUE) if (inherits(f, "try-error")) next sds[i] <- (max[i] - min[i]) / f } if (method[2] == "qe" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "bc" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "mln" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "blue") sds[i] <- tmp$sigmahat if (dist[i] == "lnorm" && transf) { s41 <- ((max[i] - min[i]) / xi)^4 / (1 + 2.23 / log(n[i])^2) phi1 <- 1 + 0.565 * sds[i]^2 / n[i] + 0.37 * s41 / n[i] btmean <- exp(means[i] + sds[i]^2 / 2) * (1 / phi1) phi11 <- 1 + 2.26 * sds[i]^2 / n[i] + 5.92 * s41 / n[i] phi12 <- 1 + 2.26 * sds[i]^2 / n[i] + 1.48 * s41 / n[i] btsd <- sqrt(exp(2*means[i] + 2*sds[i]^2) * (1 / phi11) - exp(2*means[i] + sds[i]^2) * (1 / phi12)) means[i] <- btmean sds[i] <- btsd } } if (case2[i]) { ### case 2: q1, median, and q3 are given # test for skewness tval[i] <- abs((q1[i] + q3[i] - 2*median[i]) / (q3[i] - q1[i])) #crit[i] <- 2.66 / sqrt(n[i]) - 5.92 / n[i]^2 # Shi et al. (2020b) crit[i] <- 2.65 / sqrt(n[i]) - 6 / n[i]^2 # Shi et al. (2023) sig[i] <- isTRUE(tval[i] >= crit[i]) if (test && sig[i]) next # mean estimation if (is.element(method[1], c("luo/wan/shi", "luo2016"))) { # Luo et al. (2016), equation (11) weight <- 0.7 + 0.39 / n[i] #weight <- 0.699 + 0.4 / n[i] means[i] <- weight * (q1[i] + q3[i]) / 2 + (1 - weight) * median[i] } if (method[1] == "wan2014") means[i] <- (q1[i] + median[i] + q3[i]) / 3 if (method[1] == "qe") { if (verbose) { tmp <- try(estmeansd::qe.mean.sd(q1.val=q1[i], med.val=median[i], q3.val=q3[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::qe.mean.sd(q1.val=q1[i], med.val=median[i], q3.val=q3[i], n=n[i]))), silent=TRUE) } if (inherits(tmp, "try-error")) { dists[i] <- NA_character_ } else { means[i] <- tmp$est.mean dists[i] <- tmp$selected.dist } } if (method[1] == "bc") { if (verbose) { tmp <- try(estmeansd::bc.mean.sd(q1.val=q1[i], med.val=median[i], q3.val=q3[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::bc.mean.sd(q1.val=q1[i], med.val=median[i], q3.val=q3[i], n=n[i]))), silent=TRUE) } if (!inherits(tmp, "try-error")) means[i] <- tmp$est.mean } if (method[1] == "mln") { if (verbose) { tmp <- try(estmeansd::mln.mean.sd(q1.val=q1[i], med.val=median[i], q3.val=q3[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::mln.mean.sd(q1.val=q1[i], med.val=median[i], q3.val=q3[i], n=n[i]))), silent=TRUE) } if (!inherits(tmp, "try-error")) means[i] <- tmp$est.mean } if (method[1] == "blue") { tmp <- metaBLUE::BLUE_s(c(q1[i], median[i], q3[i]), n=n[i], "S2") means[i] <- tmp$muhat } # sd estimation if (is.element(method[2], c("luo/wan/shi", "wan2014"))) { # Wan et al. (2014), equation (16) eta <- 2 * qnorm((0.75 * n[i] - 0.125) / (n[i] + 0.25)) z2 <- ifelse(dist[i] == "norm", 1, 1 + 1.58 / n[i]) #z2 <- 1 sds[i] <- (q3[i] - q1[i]) / eta * (1/sqrt(z2)) } if (method[2] == "qe" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "bc" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "mln" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "blue") sds[i] <- tmp$sigmahat if (dist[i] == "lnorm" && transf) { s42 <- ((q3[i] - q1[i]) / eta)^4 / (1 + 19.2 / n[i]^1.2) phi2 <- 1 + 0.57 * sds[i]^2 / n[i] + 0.75 * s42 / n[i] btmean <- exp(means[i] + sds[i]^2 / 2) * (1 / phi2) phi21 <- 1 + 2.28 * sds[i]^2 / n[i] + 12 * s42 / n[i] phi22 <- 1 + 2.28 * sds[i]^2 / n[i] + 3 * s42 / n[i] btsd <- sqrt(exp(2*means[i] + 2*sds[i]^2) * (1 / phi21) - exp(2*means[i] + sds[i]^2) * (1 / phi22)) means[i] <- btmean sds[i] <- btsd } } if (case3[i]) { ### case 3: min, q1, median, q3, and max are given # test for skewness tval[i] <- max(2.65 * log(0.6 * n[i]) / sqrt(n[i]) * abs((min[i] + max[i] - 2*median[i]) / (max[i] - min[i])), abs((q1[i] + q3[i] - 2*median[i]) / (q3[i] - q1[i]))) #crit[i] <- 2.97 / sqrt(n[i]) - 39.1 / n[i]^3 # Shi et al. (2020b) crit[i] <- 3 / sqrt(n[i]) - 40 / n[i]^3 # Shi et al. (2023) sig[i] <- isTRUE(tval[i] >= crit[i]) if (test && sig[i]) next # mean estimation if (is.element(method[1], c("luo/wan/shi", "luo2016"))) { # Luo et al. (2016), equation (15) weight1 <- 2.2 / (2.2 + n[i]^0.75) weight2 <- 0.7 - 0.72 / n[i]^0.55 means[i] <- weight1 * (min[i] + max[i]) / 2 + weight2 * (q1[i] + q3[i]) / 2 + (1 - weight1 - weight2) * median[i] } if (is.element(method[1], c("wan2014", "bland2015"))) means[i] <- (min[i] + 2*q1[i] + 2*median[i] + 2*q3[i] + max[i]) / 8 if (method[1] == "qe") { if (verbose) { tmp <- try(estmeansd::qe.mean.sd(min.val=min[i], q1.val=q1[i], med.val=median[i], q3.val=q3[i], max.val=max[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::qe.mean.sd(min.val=min[i], q1.val=q1[i], med.val=median[i], q3.val=q3[i], max.val=max[i], n=n[i]))), silent=TRUE) } if (inherits(tmp, "try-error")) { dists[i] <- NA_character_ } else { means[i] <- tmp$est.mean dists[i] <- tmp$selected.dist } } if (method[1] == "bc") { if (verbose) { tmp <- try(estmeansd::bc.mean.sd(min.val=min[i], q1.val=q1[i], med.val=median[i], q3.val=q3[i], max.val=max[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::bc.mean.sd(min.val=min[i], q1.val=q1[i], med.val=median[i], q3.val=q3[i], max.val=max[i], n=n[i]))), silent=TRUE) } if (!inherits(tmp, "try-error")) means[i] <- tmp$est.mean } if (method[1] == "mln") { if (verbose) { tmp <- try(estmeansd::mln.mean.sd(min.val=min[i], q1.val=q1[i], med.val=median[i], q3.val=q3[i], max.val=max[i], n=n[i])) } else { tmp <- try(suppressWarnings(suppressMessages(estmeansd::mln.mean.sd(min.val=min[i], q1.val=q1[i], med.val=median[i], q3.val=q3[i], max.val=max[i], n=n[i]))), silent=TRUE) } if (!inherits(tmp, "try-error")) means[i] <- tmp$est.mean } if (method[1] == "blue") { tmp <- metaBLUE::BLUE_s(c(min[i], q1[i], median[i], q3[i], max[i]), n=n[i], "S3") means[i] <- tmp$muhat } # sd estimation if (is.element(method[2], c("luo/wan/shi", "shi2020", "wan2014"))) { xi <- 2 * qnorm((n[i] - 0.375) / (n[i] + 0.25)) eta <- 2 * qnorm((0.75*n[i] - 0.125) / (n[i] + 0.25)) } if (is.element(method[2], c("luo/wan/shi", "shi2020"))) { # Shi et al. (2020), equation (10) weight <- 1 / (1 + 0.07 * n[i]^0.6) z3 <- ifelse(dist[i] == "norm", 1, 1 + 0.28 / log(n[i])^2) #z3 <- 1 sds[i] <- (weight * (max[i] - min[i]) / xi + (1 - weight) * (q3[i] - q1[i]) / eta) * (1/sqrt(z3)) } if (method[2] == "wan2014") sds[i] <- 1/2 * ((max[i] - min[i]) / xi + (q3[i] - q1[i]) / eta) if (method[2] == "bland2015") sds[i] <- sqrt((min[i]^2 + 2*q1[i]^2 + 2*median[i]^2 + 2*q3[i]^2 + max[i]^2) / 16 + (min[i]*q1[i] + q1[i]*median[i] + median[i]*q3[i] + q3[i]*max[i]) / 8 - (min[i] + 2*q1[i] + 2*median[i] + 2*q3[i] + max[i])^2 / 64) if (method[2] == "qe" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "bc" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "mln" && !inherits(tmp, "try-error")) sds[i] <- tmp$est.sd if (method[2] == "blue") sds[i] <- tmp$sigmahat if (dist[i] == "lnorm" && transf) { s43 <- (weight * (max[i] - min[i]) / xi + (1 - weight) * (q3[i] - q1[i]) / eta)^4 / (1 + 3.93 / n[i]) phi3 <- 1 + 0.405 * sds[i]^2 / n[i] + 0.315 * s43 / n[i] btmean <- exp(means[i] + sds[i]^2 / 2) * (1 / phi3) phi31 <- 1 + 1.62 * sds[i]^2 / n[i] + 5.04 * s43 / n[i] phi32 <- 1 + 1.62 * sds[i]^2 / n[i] + 1.26 * s43 / n[i] btsd <- sqrt(exp(2*means[i] + 2*sds[i]^2) * (1 / phi31) - exp(2*means[i] + sds[i]^2) * (1 / phi32)) means[i] <- btmean sds[i] <- btsd } } ### reset test to FALSE for qe method ([a]) if (method[1] == "qe") test <- FALSE } ######################################################################### if (has.data && append) { if (is.element(var.names[1], names(data))) { if (replace=="ifna") { attr(data[[var.names[1]]], "est") <- is.na(data[[var.names[1]]]) & !is.na(means) data[[var.names[1]]] <- replmiss(data[[var.names[1]]], means) } else { attr(data[[var.names[1]]], "est") <- !is.na(means) data[[var.names[1]]][!is.na(means)] <- means[!is.na(means)] } } else { data <- cbind(data, means) names(data)[length(names(data))] <- var.names[1] } if (is.element(var.names[2], names(data))) { if (replace=="ifna") { attr(data[[var.names[2]]], "est") <- is.na(data[[var.names[2]]]) & !is.na(sds) data[[var.names[2]]] <- replmiss(data[[var.names[2]]], sds) } else { attr(data[[var.names[2]]], "est") <- !is.na(sds) data[[var.names[2]]][!is.na(sds)] <- sds[!is.na(sds)] } } else { data <- cbind(data, sds) names(data)[length(names(data))] <- var.names[2] } } else { data <- data.frame(means, sds) names(data) <- var.names } dists <- gsub("log-normal", "lnorm", dists, fixed=TRUE) attr(data[[var.names[1]]], "tval") <- tval attr(data[[var.names[1]]], "crit") <- crit attr(data[[var.names[1]]], "sig") <- sig attr(data[[var.names[1]]], "dist") <- dists return(data) } metafor/R/summary.rma.r0000644000176200001440000000062415120213572014546 0ustar liggesuserssummary.rma <- function(object, digits, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") if (missing(digits)) { digits <- .get.digits(xdigits=object$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=object$digits, dmiss=FALSE) } object$digits <- digits class(object) <- c("summary.rma", class(object)) return(object) } metafor/R/plot.vif.rma.r0000644000176200001440000001167315120213572014620 0ustar liggesusersplot.vif.rma <- function(x, breaks="Scott", freq=FALSE, col, border, col.out, col.density, trim=0, adjust=1, lwd=c(2,0), ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="vif.rma") .start.plot() if (missing(col)) col <- .coladj(par("bg","fg"), dark=0.3, light=-0.3) if (missing(border)) border <- .coladj(par("bg"), dark=0.1, light=-0.1) if (missing(col.out)) col.out <- ifelse(.is.dark(), rgb(0.7,0.15,0.15,0.5), rgb(1,0,0,0.5)) if (missing(col.density)) col.density <- ifelse(.is.dark(), "dodgerblue", "blue") if (!is.null(x$alpha)) { if (is.null(x[[2]]$sim)) { plot(x[[1]], breaks=breaks, freq=freq, col=col, border=border, trim=trim, col.out=col.out, col.density=col.density, adjust=adjust, lwd=lwd, mainadd="Location ", ...) return(invisible()) } if (is.null(x[[1]]$sim)) { plot(x[[2]], breaks=breaks, freq=freq, col=col, border=border, trim=trim, col.out=col.out, col.density=col.density, adjust=adjust, lwd=lwd, mainadd="Scale ", ...) return(invisible()) } np <- length(x[[1]]$vifs) + length(x[[2]]$vifs) if (np > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < np) par(mfrow=n2mfrow(np)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } plot(x[[1]], breaks=breaks, freq=freq, col=col, border=border, trim=trim, col.out=col.out, col.density=col.density, adjust=adjust, lwd=lwd, mainadd="Location ", setmfrow=FALSE, ...) plot(x[[2]], breaks=breaks, freq=freq, col=col, border=border, trim=trim, col.out=col.out, col.density=col.density, adjust=adjust, lwd=lwd, mainadd="Scale ", setmfrow=FALSE, ...) return(invisible()) } ddd <- list(...) tail <- .chkddd(ddd$tail, "upper", match.arg(ddd$tail, c("lower", "upper"))) setmfrow <- .chkddd(ddd$setmfrow, TRUE, FALSE) mainadd <- .chkddd(ddd$mainadd, "") if (!is.null(ddd$layout)) warning(mstyle$warning("Argument 'layout' has been deprecated."), call.=FALSE) ### check if 'sim' was actually used if (is.null(x$sim)) stop(mstyle$stop("Can only plot 'vif.rma' objects when 'sim=TRUE' was used.")) ### number of plots np <- length(x$vifs) if (setmfrow && np > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < np) par(mfrow=n2mfrow(np)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } ### 1st: obs stat, 2nd: density if (length(lwd) == 1L) lwd <- lwd[c(1,1)] ### cannot plot density when freq=TRUE if (freq) lwd[2] <- 0 ### check trim if (trim >= 0.5) stop(mstyle$stop("The value of 'trim' must be < 0.5.")) ### local plotting functions lhist <- function(..., tail, setmfrow, mainadd, layout) hist(...) labline <- function(..., tail, setmfrow, mainadd, layout) abline(...) lsegments <- function(..., tail, setmfrow, mainadd, layout) segments(...) llines <- function(..., tail, setmfrow, mainadd, layout) lines(...) ############################################################################ for (i in seq_len(np)) { pvif <- x$sim[,i] pvif <- pvif[is.finite(pvif)] den <- density(pvif, adjust=adjust) if (trim > 0) { bound <- quantile(pvif, probs=1-trim) pvif <- pvif[pvif <= bound] } tmp <- lhist(pvif, breaks=breaks, plot=FALSE) ylim <- c(0, max(ifelse(lwd[2] == 0, 0, max(den$y)), max(tmp$density))) tmp <- lhist(pvif, breaks=breaks, col=col, border=border, main=paste0(mainadd, "Coefficient", ifelse(x$vif[[i]]$m > 1, "s", ""), ": ", names(x$vifs)[i]), xlab="Value of VIF", freq=freq, ylim=ylim, xaxt="n", ...) xat <- axTicks(side=1) xlabels <- xat axis(side=1, at=xat, labels=xlabels) .coltail(tmp, val=x$vifs[i], col=col.out, border=border, freq=freq, ...) usr <- par("usr") if (x$vifs[i] > usr[2] && lwd[1] > 0) { ya <- mean(par("yaxp")[1:2]) arrows(usr[2] - 0.08*(usr[2]-usr[1]), ya, usr[2] - 0.01*(usr[2]-usr[1]), ya, length = 0.02*(grconvertY(usr[4], from="user", to="inches")- (grconvertY(usr[3], from="user", to="inches")))) } x$vifs[i] <- min(x$vifs[i], usr[2]) par(xpd = TRUE) if (lwd[1] > 0) lsegments(x$vifs[i], usr[3], x$vifs[i], usr[4], lwd=lwd[1], lty="dashed", ...) par(xpd = FALSE) #den$y <- den$y[den$x <= par("xaxp")[2]] #den$x <- den$x[den$x <= par("xaxp")[2]] if (lwd[2] > 0) llines(den, lwd=lwd[2], col=col.density, ...) } ############################################################################ invisible() } metafor/R/methods.vcovmat.r0000644000176200001440000000173615120213572015421 0ustar liggesusersprint.vcovmat <- function(x, digits=4, tol, zero=".", na="NA", ...) { mstyle <- .get.mstyle() d <- dim(x) if (any(d == 0)) { cat("< table of extent", paste(d, collapse = " x "), ">\n") return(invisible(x)) } if (missing(tol)) tol <- 10 * .Machine$double.eps xx <- formatC(unclass(x), format="f", digits=digits, flag=if (any(x < 0, na.rm=TRUE)) " " else "") if (any(ina <- is.na(x))) xx[ina] <- na if (zero != "0" && any(i0 <- !ina & abs(x) <= tol)) xx[i0] <- zero if (is.null(colnames(xx))) colnames(xx) <- 1:ncol(xx) if (is.null(rownames(xx))) rownames(xx) <- 1:ncol(xx) #print(xx, quote=FALSE, right=TRUE, ...) .space() tmp <- capture.output(print(xx, quote=FALSE, right=TRUE, ...)) .print.vcovmat(tmp, mstyle) .space() invisible() } "[.vcovmat" <- function(x, i, j, ...) { out <- NextMethod("[") if (inherits(out, "matrix")) class(out) <- class(x) return(out) } metafor/R/bldiag.r0000644000176200001440000000410215120213572013510 0ustar liggesusersbldiag <- function(..., order) { mstyle <- .get.mstyle() mlist <- list(...) ### handle case in which a list of matrices is given if (length(mlist)==1L && is.list(mlist[[1]])) mlist <- unlist(mlist, recursive=FALSE) ### turn sparse matrices into regular ones mlist <- lapply(mlist, function(x) if (inherits(x, "sparseMatrix")) as.matrix(x) else x) ### make sure each element is a matrix (so that bldiag(matrix(1, nrow=3, ncol=3), 2) also works) mlist <- lapply(mlist, function(x) if (inherits(x, "matrix")) x else .diag(x)) ### find any ?x0 or 0x? matrices is00 <- sapply(mlist, function(x) any(dim(x) == c(0L,0L))) ### if all are ?x0 or 0x? matrices, return 0x0 matrix if (all(is00)) return(matrix(nrow=0, ncol=0)) ### otherwise filter out those matrices (if there are any) if (any(is00)) mlist <- mlist[!is00] csdim <- rbind(c(0,0), apply(sapply(mlist,dim), 1, cumsum)) # consider using rowCumsums() from matrixStats package out <- array(0, dim=csdim[length(mlist) + 1,]) add1 <- matrix(rep(1:0, 2L), ncol=2) for (i in seq(along.with=mlist)) { indx <- apply(csdim[i:(i+1),] + add1, 2, function(x) x[1]:x[2]) if (is.null(dim(indx))) { # non-square matrix out[indx[[1]],indx[[2]]] <- mlist[[i]] } else { # square matrix out[indx[,1],indx[,2]] <- mlist[[i]] } } if (!missing(order)) { if (nrow(out) != ncol(out)) stop(mstyle$stop("Can only use 'order' argument for square matrices.")) if (length(order) != nrow(out)) stop(mstyle$stop(paste0("Length of the 'order' argument (", length(order), ") does not correspond to the dimensions of the matrix (", nrow(out), "x", ncol(out), ")."))) if (grepl("^order\\(", deparse1(substitute(order)))) { sort.vec <- order } else { sort.vec <- order(order) } out[sort.vec, sort.vec] <- out } if (any(sapply(mlist, function(x) inherits(x, "vcovmat")))) class(out) <- c("vcovmat", class(out)) return(out) } metafor/R/labbe.rma.r0000644000176200001440000003464515120213572014130 0ustar liggesuserslabbe.rma <- function(x, xlim, ylim, lim, xlab, ylab, flip=FALSE, ci=FALSE, pi=FALSE, grid=FALSE, legend=FALSE, add=x$add, to=x$to, transf, targs, pch=21, psize, plim=c(0.5,3.5), col, bg, lty, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma", notav=c("rma.mv", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (!x$int.only) stop(mstyle$stop("L'Abbe plots can only be drawn for models without moderators.")) if (!is.element(x$measure, c("RR","OR","RD","AS","IRR","IRD","IRSD"))) stop(mstyle$stop("Argument 'measure' must have been set to one of the following: 'RR','OR','RD','AS','IRR','IRD','IRSD'.")) if (is.null(x$outdat.f)) stop(mstyle$stop("Information needed to construct the plot is not available in the model object.")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (length(add) == 2L) # for rma.mh and rma.peto objects (1st 'add' value applies to the individual outcomes) add <- add[1] if (length(to) == 2L) # for rma.mh and rma.peto objects (1st 'to' value applies to the individual outcomes) to <- to[1] if (!is.character(to) || length(to) != 1 || is.na(to) || !is.element(to, c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) .start.plot() if (missing(transf)) transf <- FALSE transf.char <- deparse(transf) if (missing(targs)) targs <- NULL if (missing(psize)) psize <- NULL if (missing(lty)) { lty <- c("solid", "dashed") # 1 = diagonal line, 2 = estimated effect line } else { if (length(lty) == 1L) lty <- c(lty, lty) } if (is.logical(ci)) cicol <- .coladj(par("bg","fg"), dark=0.15, light=-0.15) if (is.character(ci)) { cicol <- ci ci <- TRUE } if (is.logical(pi)) picol <- .coladj(par("bg","fg"), dark=0.05, light=-0.05) if (is.character(pi)) { picol <- pi pi <- TRUE } ### get ... argument ddd <- list(...) ### set defaults or get addyi and addvi arguments addyi <- .chkddd(ddd$addyi, TRUE) addvi <- .chkddd(ddd$addvi, TRUE) ### grid argument can either be a logical or a color if (is.logical(grid)) gridcol <- .coladj(par("bg","fg"), dark=c(0.2,-0.6), light=c(-0.2,0.6)) if (is.character(grid)) { gridcol <- grid grid <- TRUE } llim <- ddd$llim lplot <- function(..., addyi, addvi, llim) plot(...) lbox <- function(..., addyi, addvi, llim) box(...) lsegments <- function(..., addyi, addvi, llim) segments(...) llines <- function(..., addyi, addvi, llim) lines(...) lpoints <- function(..., addyi, addvi, llim) points(...) lpolygon <- function(..., addyi, addvi, llim) polygon(...) ######################################################################### ### note: pch, psize, col, and bg (if vectors) must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing of NAs as was ### done during the model fitting (note: NAs are removed further below) pch <- .expand1(pch, x$k.all) if (length(pch) != x$k.all) stop(mstyle$stop(paste0("Length of the 'pch' argument (", length(pch), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) pch <- .getsubset(pch, x$subset) ### if user has set the point sizes if (!is.null(psize)) { psize <- .expand1(psize, x$k.all) if (length(psize) != x$k.all) stop(mstyle$stop(paste0("Length of the 'psize' argument (", length(psize), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) psize <- .getsubset(psize, x$subset) } if (missing(col)) col <- par("fg") col <- .expand1(col, x$k.all) if (length(col) != x$k.all) stop(mstyle$stop(paste0("Length of the 'col' argument (", length(col), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) col <- .getsubset(col, x$subset) if (missing(bg)) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) bg <- .expand1(bg, x$k.all) if (length(bg) != x$k.all) stop(mstyle$stop(paste0("Length of the 'bg' argument (", length(bg), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) bg <- .getsubset(bg, x$subset) ######################################################################### ### these vectors may contain NAs dat.ai <- x$outdat.f$ai dat.bi <- x$outdat.f$bi dat.ci <- x$outdat.f$ci dat.di <- x$outdat.f$di dat.x1i <- x$outdat.f$x1i dat.x2i <- x$outdat.f$x2i dat.y1i <- x$outdat.f$t1i dat.y2i <- x$outdat.f$t2i ### drop00=TRUE may induce that the contrast-based yi value is NA; so ### make sure that the corresponding arm-based yi values are also NA yi.is.na <- is.na(x$yi.f) dat.ai[yi.is.na] <- NA_real_ dat.bi[yi.is.na] <- NA_real_ dat.ci[yi.is.na] <- NA_real_ dat.di[yi.is.na] <- NA_real_ dat.x1i[yi.is.na] <- NA_real_ dat.x2i[yi.is.na] <- NA_real_ dat.y1i[yi.is.na] <- NA_real_ dat.y2i[yi.is.na] <- NA_real_ options(na.action = "na.pass") # to make sure dat.x and dat.y are of the same length measure <- switch(x$measure, "RR"="PLN", "OR"="PLO", "RD"="PR", "AS"="PAS", "IRR"="IRLN", "IRD"="IR", "IRSD"="IRS") if (is.element(x$measure, c("RR","OR","RD","AS"))) { if (flip) { args.x <- list(measure=measure, xi=dat.ai, mi=dat.bi, add=add, to=to, addyi=addyi, addvi=addvi) args.y <- list(measure=measure, xi=dat.ci, mi=dat.di, add=add, to=to, addyi=addyi, addvi=addvi) } else { args.x <- list(measure=measure, xi=dat.ci, mi=dat.di, add=add, to=to, addyi=addyi, addvi=addvi) args.y <- list(measure=measure, xi=dat.ai, mi=dat.bi, add=add, to=to, addyi=addyi, addvi=addvi) } } if (is.element(x$measure, c("IRR","IRD","IRSD"))) { if (flip) { args.x <- list(measure=measure, xi=dat.x1i, ti=dat.y1i, add=add, to=to, addyi=addyi, addvi=addvi) args.y <- list(measure=measure, xi=dat.x2i, ti=dat.y2i, add=add, to=to, addyi=addyi, addvi=addvi) } else { args.x <- list(measure=measure, xi=dat.x2i, ti=dat.y2i, add=add, to=to, addyi=addyi, addvi=addvi) args.y <- list(measure=measure, xi=dat.x1i, ti=dat.y1i, add=add, to=to, addyi=addyi, addvi=addvi) } } dat.x <- .do.call(escalc, args.x) dat.y <- .do.call(escalc, args.y) options(na.action = na.act) ### check for NAs in yi/vi pairs and filter out has.na <- apply(is.na(dat.x), 1, any) | apply(is.na(dat.y), 1, any) not.na <- !has.na if (any(has.na)) { dat.x <- dat.x[not.na,] dat.y <- dat.y[not.na,] pch <- pch[not.na] col <- col[not.na] bg <- bg[not.na] if (is.null(psize)) psize <- psize[not.na] } if (length(dat.x$yi)==0L || length(dat.y$yi)==0L) stop(mstyle$stop("No information in object to compute the arm-level outcomes.")) ######################################################################### ### determine point sizes vi <- dat.x$vi + dat.y$vi k <- length(vi) if (is.null(psize)) { if (length(plim) < 2L) stop(mstyle$stop("Argument 'plim' must be of length 2 or 3.")) wi <- sqrt(1/vi) if (!is.na(plim[1]) && !is.na(plim[2])) { rng <- max(wi, na.rm=TRUE) - min(wi, na.rm=TRUE) if (rng <= .Machine$double.eps^0.5) { psize <- rep(1, k) } else { psize <- (wi - min(wi, na.rm=TRUE)) / rng psize <- (psize * (plim[2] - plim[1])) + plim[1] } } if (is.na(plim[1]) && !is.na(plim[2])) { psize <- wi / max(wi, na.rm=TRUE) * plim[2] if (length(plim) == 3L) psize[psize <= plim[3]] <- plim[3] } if (!is.na(plim[1]) && is.na(plim[2])) { psize <- wi / min(wi, na.rm=TRUE) * plim[1] if (length(plim) == 3L) psize[psize >= plim[3]] <- plim[3] } if (all(is.na(psize))) psize <- rep(1, k) } ### determine x/y values for line that indicates the estimated effect min.yi <- min(c(dat.x$yi, dat.y$yi)) max.yi <- max(c(dat.x$yi, dat.y$yi)) rng.yi <- max.yi - min.yi len <- 10000 intrcpt <- x$beta[1] if (is.null(llim)) { if (x$measure == "RD") x.vals <- seq(ifelse(intrcpt>0, 0, -intrcpt), ifelse(intrcpt>0, 1-intrcpt, 1), length.out=len) if (x$measure == "RR") x.vals <- seq(min.yi-rng.yi, ifelse(intrcpt>0, -intrcpt, 0), length.out=len) if (x$measure == "OR") x.vals <- seq(min.yi-rng.yi, max.yi+rng.yi, length.out=len) if (x$measure == "AS") x.vals <- seq(ifelse(intrcpt>0, 0, -intrcpt), ifelse(intrcpt>0, asin(sqrt(1))-intrcpt, asin(sqrt(1))), length.out=len) if (x$measure == "IRR") x.vals <- seq(min.yi-rng.yi, ifelse(intrcpt>0, -intrcpt, 0), length.out=len) if (x$measure == "IRD") x.vals <- seq(ifelse(intrcpt>0, 0, -intrcpt), ifelse(intrcpt>0, 1-intrcpt, 1), length.out=len) if (x$measure == "IRSD") x.vals <- seq(ifelse(intrcpt>0, 0, -intrcpt), ifelse(intrcpt>0, 1-intrcpt, 1), length.out=len) } else { if (length(llim) != 2L) stop(mstyle$stop("Argument 'llim' must be of length 2.")) x.vals <- seq(llim[1], llim[2], length.out=len) } y.vals <- intrcpt + 1*x.vals if (ci || pi) { predres <- predict(x) y.vals.ci.lb <- predres$ci.lb + 1*x.vals y.vals.ci.ub <- predres$ci.ub + 1*x.vals y.vals.pi.lb <- predres$pi.lb + 1*x.vals y.vals.pi.ub <- predres$pi.ub + 1*x.vals } else { y.vals.ci.lb <- y.vals.ci.ub <- y.vals.pi.lb <- y.vals.pi.ub <- NULL } if (is.function(transf)) { if (is.null(targs)) { dat.x$yi <- sapply(dat.x$yi, transf) dat.y$yi <- sapply(dat.y$yi, transf) x.vals <- sapply(x.vals, transf) y.vals <- sapply(y.vals, transf) y.vals.ci.lb <- sapply(y.vals.ci.lb, transf) y.vals.ci.ub <- sapply(y.vals.ci.ub, transf) y.vals.pi.lb <- sapply(y.vals.pi.lb, transf) y.vals.pi.ub <- sapply(y.vals.pi.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) dat.x$yi <- sapply(dat.x$yi, transf, targs) dat.y$yi <- sapply(dat.y$yi, transf, targs) x.vals <- sapply(x.vals, transf, targs) y.vals <- sapply(y.vals, transf, targs) y.vals.ci.lb <- sapply(y.vals.ci.lb, transf, targs) y.vals.ci.ub <- sapply(y.vals.ci.ub, transf, targs) y.vals.pi.lb <- sapply(y.vals.pi.lb, transf, targs) y.vals.pi.ub <- sapply(y.vals.pi.ub, transf, targs) } } min.yi <- min(c(dat.x$yi, dat.y$yi)) max.yi <- max(c(dat.x$yi, dat.y$yi)) if (missing(lim)) { if (missing(xlim)) xlim <- c(min.yi, max.yi) if (missing(ylim)) ylim <- c(min.yi, max.yi) } else { xlim <- lim ylim <- lim } ### order points by psize order.vec <- order(psize, decreasing=TRUE) dat.x$yi.o <- dat.x$yi[order.vec] dat.y$yi.o <- dat.y$yi[order.vec] pch.o <- pch[order.vec] col.o <- col[order.vec] bg.o <- bg[order.vec] psize.o <- psize[order.vec] ### add x-axis label if (missing(xlab)) { xlab <- .setlab(measure, transf.char, atransf.char="FALSE", gentype=1) xlab <- paste(xlab, "(Group 1)") } ### add y-axis label if (missing(ylab)) { ylab <- .setlab(measure, transf.char, atransf.char="FALSE", gentype=1) ylab <- paste(ylab, "(Group 2)") } lplot(NA, NA, xlim=xlim, ylim=ylim, xlab=xlab, ylab=ylab, ...) ### add PI bounds if (pi) lpolygon(c(x.vals,rev(x.vals)), c(y.vals.pi.lb,rev(y.vals.pi.ub)), col=picol, border=NA, ...) ### add CI bounds if (ci) lpolygon(c(x.vals,rev(x.vals)), c(y.vals.ci.lb,rev(y.vals.ci.ub)), col=cicol, border=NA, ...) ### add grid (and redraw box) if (isTRUE(grid)) { grid(col=gridcol) lbox(...) } ### add diagonal reference line #abline(a=0, b=1, lty=lty[1], ...) lsegments(min(x.vals), min(x.vals), max(x.vals), max(x.vals), lty=lty[1], ...) ### add estimated effects line llines(x.vals, y.vals, lty=lty[2], ...) ### add points lpoints(x=dat.x$yi.o, y=dat.y$yi.o, cex=psize.o, pch=pch.o, col=col.o, bg=bg.o, ...) ### add legend lopts <- list(x = ifelse(intrcpt > 0, "bottomright", "topleft"), y = NULL, inset = 0.01, cex = 1, pt.cex = 2.5) if (is.list(legend)) { # replace defaults with any user-defined values lopts.pos <- pmatch(names(legend), names(lopts)) lopts[c(na.omit(lopts.pos))] <- legend[!is.na(lopts.pos)] # rescale pt.cex based on cex (if pt.cex was not specified) if (!is.null(legend$cex) && is.null(legend$pt.cex)) lopts$pt.cex <- lopts$pt.cex * lopts$cex legend <- TRUE } else { if (is.character(legend)) { lopts$x <- legend legend <- TRUE } else { if (!is.logical(legend)) stop(mstyle$stop("Argument 'legend' must either be logical, a string, or a list."), call.=FALSE) } } if (legend) { lvl <- round(100*(1-x$level), x$digits[["ci"]]) ltxt <- c("Reference Line of No Effect", "Line for the Estimated Effect", paste0(lvl, "% Confidence Interval"), paste0(lvl, "% Prediction Interval")) lpch <- c(NA,NA,22,22) if (is.numeric(lty)) { llty <- c(lty[1],lty[2],0,0) } else { llty <- c(lty[1],lty[2],"blank","blank") } lpt.bg <- c(NA,NA,cicol,picol) sel <- c(lty != "blank" & lty != 0, ci, pi) if (any(sel)) { legend(x=lopts$x, y=lopts$y, inset=lopts$inset, bg=.coladj(par("bg"), dark=0, light=0), pch=lpch[sel], pt.cex=lopts$pt.cex, pt.lwd=0, pt.bg=lpt.bg[sel], lty=llty[sel], legend=ltxt[sel], cex=lopts$cex) } } ######################################################################### ### prepare data frame to return sav <- data.frame(x=dat.x$yi, y=dat.y$yi, cex=psize, pch=pch, col=col, bg=bg, ids=x$ids[not.na], slab=x$slab[not.na]) invisible(sav) } metafor/R/addpoly.rma.r0000644000176200001440000000574315120213572014514 0ustar liggesusersaddpoly.rma <- function(x, row=-2, level=x$level, annotate, addpred=FALSE, predstyle, predlim, digits, width, mlab, transf, atransf, targs, efac, col, border, lty, fonts, cex, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma") if (!x$int.only) stop(mstyle$stop("Fitted model should not contain moderators.")) if (missing(annotate)) annotate <- .getfromenv("forest", "annotate", default=TRUE) if (missing(predstyle)) { predstyle <- "line" } else { predstyle <- match.arg(predstyle, c("line", "polygon", "bar", "shade", "dist")) addpred <- TRUE } if (missing(predlim)) predlim <- NULL if (missing(digits)) digits <- .getfromenv("forest", "digits", default=2) if (missing(width)) width <- .getfromenv("forest", "width") if (missing(mlab)) mlab <- NULL if (missing(transf)) transf <- .getfromenv("forest", "transf", default=FALSE) if (missing(atransf)) atransf <- .getfromenv("forest", "atransf", default=FALSE) if (missing(targs)) targs <- .getfromenv("forest", "targs") if (missing(efac)) efac <- .getfromenv("forest", "efac") if (missing(col)) col <- par("fg") if (missing(border)) border <- par("fg") if (missing(lty)) lty <- "dotted" if (missing(fonts)) fonts <- .getfromenv("forest", "fonts") if (missing(cex)) cex <- .getfromenv("forest", "cex") ddd <- list(...) if (!is.null(ddd$addcred)) addpred <- ddd$addcred pi.type <- .chkddd(ddd$pi.type, "default", tolower(ddd$pi.type)) predtype <- .chkddd(ddd$predtype, pi.type, tolower(ddd$predtype)) predres <- predict(x, level=level, predtype=predtype) ci.lb <- predres$ci.lb ci.ub <- predres$ci.ub if (addpred) { pi.lb <- predres$pi.lb pi.ub <- predres$pi.ub if (is.null(pi.lb) || is.null(pi.ub)) warning(mstyle$warning("Could not extract prediction interval bounds."), call.=FALSE) } else { pi.lb <- NA_real_ pi.ub <- NA_real_ } ######################################################################### ### label for model estimate (if not specified) if (is.null(mlab)) mlab <- sapply(x$method, switch, "FE"="Fixed-Effect Model", "EE"="Equal-Effects Model", "CE"="Common-Effect Model", "Random-Effects Model", USE.NAMES=FALSE) #mlab <- sapply(x$method, switch, "FE"="FE Model", "EE"="EE Model", "CE"="CE Model", "RE Model", USE.NAMES=FALSE) ### passing ci.lb and ci.ub, so that the bounds are correct when the model was fitted with test="knha" addpoly(x$beta, ci.lb=ci.lb, ci.ub=ci.ub, pi.lb=pi.lb, pi.ub=pi.ub, rows=row, level=level, annotate=annotate, predstyle=predstyle, predlim=predlim, digits=digits, width=width, mlab=mlab, transf=transf, atransf=atransf, targs=targs, efac=efac, col=col, border=border, lty=lty, fonts=fonts, cex=cex, ...) } metafor/R/profile.rma.ls.r0000644000176200001440000002467715120213572015144 0ustar liggesusersprofile.rma.ls <- function(fitted, alpha, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, ...) { mstyle <- .get.mstyle() .chkclass(class(fitted), must="rma.ls") x <- fitted if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed for profiling is not available in the model object.")) if (x$optbeta) stop(mstyle$stop("Profiling not yet implemented for models fitted with 'optbeta=TRUE'.")) if (anyNA(steps)) stop(mstyle$stop("No missing values allowed in 'steps' argument.")) if (length(steps) >= 2L) { if (missing(xlim)) xlim <- range(steps) stepseq <- TRUE } else { if (steps < 2) stop(mstyle$stop("Argument 'steps' must be >= 2.")) stepseq <- FALSE } parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } ddd <- list(...) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### check if user has not specified alpha argument if (missing(alpha)) { mc <- match.call() ### total number of non-fixed components comps <- sum(!x$alpha.fix) if (comps == 0) stop(mstyle$stop("No components in the model for which a profile likelihood can be constructed.")) if (!is.null(ddd[["code3"]])) eval(expr = parse(text = ddd[["code3"]])) if (plot) { if (comps > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < comps) par(mfrow=n2mfrow(comps)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } } sav <- list() j <- 0 if (any(!x$alpha.fix)) { for (pos in seq_len(x$alphas)[!x$alpha.fix]) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$alpha <- pos mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.ls") if (progbar) cat(mstyle$verbose(paste("Profiling alpha =", pos, "\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } } ### if there is just one component, turn the list of lists into a simple list if (comps == 1) sav <- sav[[1]] sav$comps <- comps if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(sav) <- "profile.rma" return(invisible(sav)) } ######################################################################### ### round and take unique values if (!missing(alpha) && is.numeric(alpha)) alpha <- unique(round(alpha)) ### check if model actually contains (at least one) such a component and that it was actually estimated if (!missing(alpha) && all(x$alpha.fix)) stop(mstyle$stop("Model does not contain any estimated 'alpha' components.")) ### check if user specified more than one alpha component if (!missing(alpha) && (length(alpha) > 1L)) stop(mstyle$stop("Can only specify one 'alpha' component.")) ### check if user specified a logical if (!missing(alpha) && is.logical(alpha)) stop(mstyle$stop("Must specify a number for the 'alpha' component.")) ### check if user specified a component that does not exist if (!missing(alpha) && (alpha > x$alphas || alpha <= 0)) stop(mstyle$stop("No such 'alpha' component in the model.")) ### check if user specified a component that was fixed if (!missing(alpha) && x$alpha.fix[alpha]) stop(mstyle$stop("Specified 'alpha' component was fixed.")) ### if everything is good so far, get value of the component and set 'comp' alpha.pos <- NA_integer_ if (!missing(alpha)) { vc <- x$alpha[alpha] comp <- "alpha" alpha.pos <- alpha } #return(list(comp=comp, vc=vc)) ######################################################################### if (missing(xlim) || is.null(xlim)) { ### if the user has not specified xlim, set it automatically if (comp == "alpha") { if (is.na(x$se.alpha[alpha])) { vc.lb <- vc - 4 * abs(vc) vc.ub <- vc + 4 * abs(vc) } else { vc.lb <- vc - qnorm(0.995) * x$se.alpha[alpha] vc.ub <- vc + qnorm(0.995) * x$se.alpha[alpha] } } ### if that fails, throw an error if (is.na(vc.lb) || is.na(vc.ub)) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) ### apply alpha.min/alpha.max limits (if they exist) on vc.lb/vc.ub as well if (!is.null(x$control$alpha.min)) { x$control$alpha.min <- .expand1(x$control$alpha.min, x$q) vc.lb <- max(vc.lb, x$con$alpha.min[alpha]) } if (!is.null(x$control$alpha.max)) { x$control$alpha.max <- .expand1(x$control$alpha.max, x$q) vc.ub <- min(vc.ub, x$con$alpha.max[alpha]) } xlim <- sort(c(vc.lb, vc.ub)) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) xlim <- sort(xlim) } if (stepseq) { vcs <- steps } else { vcs <- seq(xlim[1], xlim[2], length.out=steps) } #return(vcs) if (length(vcs) <= 1L) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) if (parallel == "no") res <- pbapply::pblapply(vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) if (parallel == "multicore") res <- pbapply::pblapply(vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, mc.cores=ncpus) if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterApplyLB(cl, vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.ls, vcs, MoreArgs=list(obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2), .scheduling = "dynamic") } else { res <- pbapply::pblapply(vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterApply(cl, vcs, .profile.rma.ls, obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.ls, vcs, MoreArgs=list(obj=x, comp=comp, alpha.pos=alpha.pos, parallel=parallel, profile=TRUE, code2=ddd$code2)) } } lls <- sapply(res, function(x) x$ll) beta <- do.call(rbind, lapply(res, function(x) t(x$beta))) ci.lb <- do.call(rbind, lapply(res, function(x) t(x$ci.lb))) ci.ub <- do.call(rbind, lapply(res, function(x) t(x$ci.ub))) beta <- data.frame(beta) ci.lb <- data.frame(ci.lb) ci.ub <- data.frame(ci.ub) names(beta) <- rownames(x$beta) names(ci.lb) <- rownames(x$beta) names(ci.ub) <- rownames(x$beta) ######################################################################### maxll <- c(logLik(x)) if (any(lls >= maxll + lltol, na.rm=TRUE)) warning(mstyle$warning("At least one profiled log-likelihood value is larger than the log-likelihood of the fitted model."), call.=FALSE) if (all(is.na(lls))) warning(mstyle$warning("All model fits failed. Cannot draw profile likelihood plot."), call.=FALSE) if (isTRUE(ddd$exp)) { lls <- exp(lls) maxll <- exp(maxll) } if (missing(ylim)) { if (any(is.finite(lls))) { if (xlim[1] <= vc && xlim[2] >= vc) { ylim <- range(c(maxll,lls[is.finite(lls)]), na.rm=TRUE) } else { ylim <- range(lls[is.finite(lls)], na.rm=TRUE) } } else { ylim <- rep(maxll, 2L) } if (!isTRUE(ddd$exp)) ylim <- ylim + c(-0.1, 0.1) } else { if (length(ylim) != 2L) stop(mstyle$stop("Argument 'ylim' should be a vector of length 2.")) ylim <- sort(ylim) } if (comp == "alpha") { if (x$alphas == 1L) { xlab <- expression(paste(alpha, " Value")) title <- expression(paste("Profile Plot for ", alpha)) } else { if (isTRUE(ddd$sub1)) alpha <- alpha - 1 xlab <- bquote(alpha[.(alpha)] ~ "Value") title <- bquote("Profile Plot for" ~ alpha[.(alpha)]) } } sav <- list(alpha=vcs, ll=lls, beta=beta, ci.lb=ci.lb, ci.ub=ci.ub, comps=1, ylim=ylim, method=x$method, vc=vc, maxll=maxll, xlab=xlab, title=title, exp=ddd$exp) class(sav) <- "profile.rma" ######################################################################### if (plot) plot(sav, ...) ######################################################################### if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } invisible(sav) } metafor/R/conv.delta.r0000644000176200001440000001635215120213572014335 0ustar liggesusersconv.delta <- function(yi, vi, ni, data, include, transf, var.names, append=TRUE, replace="ifna", ...) { mstyle <- .get.mstyle() if (missing(yi) || missing(vi)) stop(mstyle$stop("Must specify the 'yi' and 'vi' arguments.")) if (missing(transf)) stop(mstyle$stop("Must specify the 'transf' argument.")) if (is.logical(replace)) { if (isTRUE(replace)) { replace <- "all" } else { replace <- "ifna" } } replace <- match.arg(replace, c("ifna","all")) ######################################################################### if (missing(data)) data <- NULL has.data <- !is.null(data) if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } x <- data ### checks on var.names argument if (missing(var.names)) { if (inherits(x, "escalc")) { if (!is.null(attr(x, "yi.names"))) { # if yi.names attributes is available yi.name <- attr(x, "yi.names")[1] # take the first entry to be the yi variable } else { # if not, see if 'yi' is in the object and assume that is the yi variable if (!is.element("yi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'yi' variable.")) yi.name <- "yi" } if (!is.null(attr(x, "vi.names"))) { # if vi.names attributes is available vi.name <- attr(x, "vi.names")[1] # take the first entry to be the vi variable } else { # if not, see if 'vi' is in the object and assume that is the vi variable if (!is.element("vi", names(x))) stop(mstyle$stop("Cannot determine the name of the 'vi' variable.")) vi.name <- "vi" } } else { yi.name <- "yi" vi.name <- "vi" } } else { if (length(var.names) != 2L) stop(mstyle$stop("Argument 'var.names' must be of length 2.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "').")), call.=FALSE) } yi.name <- var.names[1] vi.name <- var.names[2] } ######################################################################### mf <- match.call() yi <- .getx("yi", mf=mf, data=x, checknumeric=TRUE) vi <- .getx("vi", mf=mf, data=x, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=x, checknumeric=TRUE) include <- .getx("include", mf=mf, data=x) ### check length of yi and vi (and ni) if (length(yi) != length(vi)) stop(mstyle$stop("Length of 'yi' and 'vi' are not the same.")) if (!.equal.length(yi, vi, ni)) # a bit redundant with the above, but keep stop(mstyle$stop("Supplied data vectors are not all of the same length.")) ### check 'vi' argument for potential misuse .chkviarg(mf$vi) k <- length(yi) ### if ni/include is NULL, set to TRUE vector if (is.null(ni)) ni <- rep(NA_real_, k) if (is.null(include)) include <- rep(TRUE, k) ### turn numeric include vector into a logical vector include <- .chksubset(include, k, stoponk0=FALSE) ### set inputs to NA for rows not to be included yi[!include] <- NA_real_ vi[!include] <- NA_real_ ni[!include] <- NA_real_ ### get names of arguments to transf (except the first and ... in case that is there) transfargs <- names(formals(args(transf))) transfargs <- transfargs[-1] transfargs <- transfargs[transfargs != "..."] ### get ... args args <- names(sapply(mf[-1], deparse)) rmargs <- c("yi", "vi", "data", "include", "transf", "var.names", "append", "replace") dotargs <- args[!args %in% rmargs] ### keep arguments in dotargs that are actual arguments of 'transf' dotargs <- dotargs[dotargs %in% transfargs] dotarglist <- list() for (i in seq_along(dotargs)) { dotarglist[[i]] <- .getx(dotargs[i], mf=mf, data=x, checknumeric=TRUE) dotarglist[[i]] <- .expand1(dotarglist[[i]], k) names(dotarglist)[i] <- dotargs[i] } #print(dotarglist) argmatch <- pmatch(names(dotarglist), table=c("func","method","side"), duplicates.ok=TRUE) if (!all(is.na(argmatch))) stop(mstyle$stop("One or more arguments in ... (partially) match an argument from numDeriv::grad().")) ######################################################################### #ddd <- list(c(yi), ...) #yi.t <- unlist(.mapply(FUN=transf, dots=ddd, MoreArgs=NULL)) #deriv <- unlist(.mapply(FUN=.compgrad, dots=ddd, MoreArgs=list(func=transf))) #vi.t <- vi * deriv^2 #dat <- data.frame(yi=yi.t, vi=vi.t) #return(dat) yi.t <- rep(NA_real_, k) vi.t <- rep(NA_real_, k) deriv <- rep(NA_real_, k) for (i in 1:k) { args <- c(yi[[i]], as.list(sapply(dotarglist, `[[`, i))) # use [[]] in case yi is a named vector #print(args) tmp <- try(suppressWarnings(do.call(transf, args)), silent=TRUE) #tmp <- try(do.call(transf, args), silent=FALSE) if (inherits(tmp, "try-error")) { yi.t[i] <- NA_real_ } else { yi.t[i] <- tmp } args <- c(args, func=transf) #print(args) tmp <- try(suppressWarnings(do.call(numDeriv::grad, args)), silent=TRUE) #tmp <- try(do.call(numDeriv::grad, args)) if (inherits(tmp, "try-error")) { vi.t[i] <- NA_real_ } else { vi.t[i] <- vi[i] * tmp^2 } #tmp <- try(suppressWarnings(numDeriv::grad(func=transf, yi[i])), silent=TRUE) #if (inherits(tmp, "try-error")) { # deriv[i] <- NA_real_ #} else { # deriv[i] <- tmp #} #vi.t[i] <- vi[i] * deriv[i]^2 } ######################################################################### ### set up data frame if 'data' was not specified if (!has.data) { x <- data.frame(rep(NA_real_, k), rep(NA_real_, k)) names(x) <- c(yi.name, vi.name) } ### replace missing x$yi values if (replace=="ifna") { x[[yi.name]] <- replmiss(x[[yi.name]], yi.t) } else { x[[yi.name]][!is.na(yi.t)] <- yi.t[!is.na(yi.t)] } ### replace missing ni values with ni attributes values from the source and target variables ### and then add ni attribute to target variable (if at least one value is not missing) ### note: values specified via 'ni' argument in conv.delta() overrule existing attribute values ni <- replmiss(ni, attributes(yi)$ni) ni <- replmiss(ni, attributes(x[[yi.name]])$ni) if (any(!is.na(ni))) attr(x[[yi.name]], "ni") <- ni ### replace missing x$vi values if (replace=="ifna") { x[[vi.name]] <- replmiss(x[[vi.name]], vi.t) } else { x[[vi.name]][!is.na(vi.t)] <- vi.t[!is.na(vi.t)] } #escall <- paste0("escalc(data=x, yi=", yi.name, ", vi=", vi.name, ", var.names=c('", yi.name, "','", vi.name, "'))") #x <- eval(str2lang(escall)) x <- escalc(data=x, yi=x[[yi.name]], vi=x[[vi.name]], var.names=c(yi.name,vi.name)) if (!append) x <- x[,c(yi.name, vi.name)] return(x) } metafor/R/tes.r0000644000176200001440000003364315122212334013072 0ustar liggesuserstes <- function(x, vi, sei, subset, data, H0=0, alternative="two.sided", alpha=.05, theta, tau2, test, tes.alternative="greater", progbar=TRUE, tes.alpha=.10, digits, ...) { # allow multiple alpha values? plot for pval as a function of alpha? ######################################################################### mstyle <- .get.mstyle() na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) alternative <- match.arg(alternative, c("two.sided", "greater", "less")) tes.alternative <- match.arg(tes.alternative, c("two.sided", "greater", "less")) ######################################################################### ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() x <- .getx("x", mf=mf, data=data) ######################################################################### if (inherits(x, "rma")) { on.exit(options(na.action=na.act), add=TRUE) .chkclass(class(x), must="rma", notav=c("rma.glmm", "rma.mv", "robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to carry out the test is not available in the model object.")) ### set defaults for digits if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(test)) test <- NULL if (x$int.only) { theta <- c(x$beta) } else { options(na.action="na.omit") theta <- fitted(x) options(na.action = na.act) } tes(c(x$yi), vi=x$vi, H0=H0, alternative=alternative, alpha=alpha, theta=theta, tau2=x$tau2, test=test, tes.alternative=tes.alternative, progbar=progbar, tes.alpha=tes.alpha, digits=digits, ...) } else { ######################################################################### if (!.is.vector(x)) stop(mstyle$stop("Argument 'x' must be a vector or an 'rma' model object.")) yi <- x ### check if yi is numeric if (!is.numeric(yi)) stop(mstyle$stop("The object/variable specified for the 'x' argument is not numeric.")) ### set defaults for digits if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) sei <- .getx("sei", mf=mf, data=data, checknumeric=TRUE) subset <- .getx("subset", mf=mf, data=data) if (is.null(vi)) { if (!is.null(sei)) vi <- sei^2 } if (is.null(vi)) stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) ### check length of yi and vi if (length(yi) != length(vi)) stop(mstyle$stop("Length of 'yi' and 'vi' (or 'sei') are not the same.")) ### check 'vi' argument for potential misuse .chkviarg(mf$vi) ######################################################################### if (length(alpha) != 1L) stop(mstyle$stop("Argument 'alpha' must specify a single value.")) if (length(tes.alpha) != 1L) stop(mstyle$stop("Argument 'tes.alpha' must specify a single value.")) if (alpha <= 0 || alpha >= 1) stop(mstyle$stop("Value of 'alpha' needs to be > 0 and < 1.")) if (tes.alpha <= 0 || tes.alpha >= 1) stop(mstyle$stop("Value of 'tes.alpha' needs to be > 0 and < 1.")) if (alternative == "two.sided") crit <- qnorm(alpha/2, lower.tail=FALSE) if (alternative == "greater") crit <- qnorm(alpha, lower.tail=FALSE) if (alternative == "less") crit <- qnorm(alpha, lower.tail=TRUE) ddd <- list(...) .chkdots(ddd, c("correct", "rel.tol", "subdivisions", "tau2.lb", "find.lim")) correct <- .chkddd(ddd$correct, FALSE) rel.tol <- .chkddd(ddd$rel.tol, .Machine$double.eps^0.25) subdivisions <- .chkddd(ddd$subdivisions, 100L) tau2.lb <- .chkddd(ddd$tau2.lb, 0) # 0.0001 find.lim <- .chkddd(ddd$find.lim, TRUE) ######################################################################### k.f <- length(yi) ### checks on H0 if (length(H0) != 1L) stop(mstyle$stop("Argument 'H0' must specify a single value.")) ### checks on theta if (missing(theta) || is.null(theta)) { single.theta <- TRUE est.theta <- TRUE theta <- rep(0, k.f) } else { if (length(theta) == 1L) { single.theta <- TRUE est.theta <- FALSE theta.1 <- theta theta <- rep(theta, k.f) } else { single.theta <- FALSE est.theta <- FALSE } if (length(theta) != k.f) stop(mstyle$stop("Length of 'theta' and 'yi' are not the same.")) } ######################################################################### ### if a subset of studies is specified if (!is.null(subset)) { subset <- .chksubset(subset, k.f) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) theta <- .getsubset(theta, subset) } ### check for NAs and act accordingly has.na <- is.na(yi) | is.na(vi) | is.na(theta) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] vi <- vi[not.na] theta <- theta[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from test.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in data.")) } ######################################################################### k <- length(yi) if (k == 0L) stop(mstyle$stop("Stopped because k = 0.")) sei <- sqrt(vi) zi <- (yi - H0) / sei if (missing(tau2) || is.null(tau2) || tau2 <= tau2.lb) { wi <- 1 / vi } else { wi <- 1 / (vi + tau2) } if (est.theta) { theta.1 <- .wmean(yi, wi) theta <- rep(theta.1, k) } if (missing(tau2) || is.null(tau2) || tau2 <= tau2.lb) { if (alternative == "two.sided") pow <- pnorm(crit, mean=(theta-H0)/sei, sd=1, lower.tail=FALSE) + pnorm(-crit, mean=(theta-H0)/sei, sd=1, lower.tail=TRUE) if (alternative == "greater") pow <- pnorm(crit, mean=(theta-H0)/sei, sd=1, lower.tail=FALSE) if (alternative == "less") pow <- pnorm(crit, mean=(theta-H0)/sei, sd=1, lower.tail=TRUE) } else { tau <- sqrt(tau2) pow <- rep(NA_real_, k) for (i in seq_len(k)) { res <- try(integrate(.tes.intfun, lower=theta[i]-5*tau, upper=theta[i]+5*tau, theta=theta[i], tau=tau, sei=sei[i], H0=H0, alternative=alternative, crit=crit, rel.tol=rel.tol, subdivisions=subdivisions, stop.on.error=FALSE), silent=TRUE) if (inherits(res, "try-error")) { stop(mstyle$stop(paste0("Could not integrate over density in study ", i, "."))) } else { pow[i] <- res$value } } } if (alternative == "two.sided") sig <- abs(zi) >= crit if (alternative == "greater") sig <- zi >= crit if (alternative == "less") sig <- zi <= crit E <- sum(pow) O <- sum(sig) if (tes.alternative == "two.sided") js <- 0:k if (tes.alternative == "greater") js <- O:k if (tes.alternative == "less") js <- 0:O if (missing(test) || is.null(test)) { tot <- sum(sapply(js, function(j) choose(k,j))) if (tot <= 10^6) { test <- "exact" } else { test <- "chi2" } } else { test <- match.arg(test, c("chi2", "binom", "exact")) } ### set defaults for progbar if (missing(progbar)) progbar <- ifelse(test == "exact", TRUE, FALSE) if (test == "chi2") { res <- suppressWarnings(prop.test(O, k, p=E/k, alternative=tes.alternative, correct=correct)) X2 <- unname(res$statistic) pval <- res$p.value } if (test == "binom") { res <- binom.test(O, k, p=E/k, alternative=tes.alternative) X2 <- NA_real_ pval <- binom.test(O, k, p=E/k, alternative=tes.alternative)$p.value } if (test == "exact") { X2 <- NA_real_ if (progbar) pbar <- pbapply::startpb(min=0, max=length(js)) prj <- rep(NA_real_, length(js)) id <- seq_len(k) for (j in seq_along(js)) { if (progbar) pbapply::setpb(pbar, j) if (js[j] == 0L) { prj[j] <- prod(1-pow) } else if (js[j] == k) { prj[j] <- prod(pow) } else { tmp <- try(suppressWarnings(sum(combn(k, js[j], FUN = function(i) { sel <- i not <- id[-i] prod(pow[sel])*prod(1-pow[not]) }))), silent=TRUE) if (inherits(tmp, "try-error")) { if (progbar) pbapply::closepb(pbar) stop(mstyle$stop(paste0("Number of combinations too large to do an exact test (use test=\"chi2\" or test=\"binomial\" instead)."))) } else { prj[j] <- tmp } } } if (progbar) pbapply::closepb(pbar) if (tes.alternative == "two.sided") pval <- sum(prj[prj <= prj[O+1] + .Machine$double.eps^0.5]) if (tes.alternative == "greater") pval <- sum(prj) if (tes.alternative == "less") pval <- sum(prj) pval[pval > 1] <- 1 } theta.lim <- NULL if (find.lim && single.theta) { if (tes.alternative == "greater") { diff.H0 <- .tes.lim(H0, yi=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, tau2=tau2, test=test, tes.alternative=tes.alternative, progbar=FALSE, tes.alpha=tes.alpha, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb) if (diff.H0 >= 0) { theta.lim <- NA_real_ } else { if (theta.1 >= H0) { theta.lim <- try(uniroot(.tes.lim, interval=c(H0,theta.1), extendInt="upX", yi=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, tau2=tau2, test=test, tes.alternative=tes.alternative, progbar=FALSE, tes.alpha=tes.alpha, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb)$root, silent=TRUE) } else { theta.lim <- try(uniroot(.tes.lim, interval=c(theta.1,H0), extendInt="downX", yi=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, tau2=tau2, test=test, tes.alternative=tes.alternative, progbar=FALSE, tes.alpha=tes.alpha, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb)$root, silent=TRUE) } if (inherits(theta.lim, "try-error")) theta.lim <- NA_real_ } } if (tes.alternative == "less") { diff.H0 <- .tes.lim(H0, yi=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, tau2=tau2, test=test, tes.alternative=tes.alternative, progbar=FALSE, tes.alpha=tes.alpha, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb) if (diff.H0 <= 0) { theta.lim <- NA_real_ } else { if (theta.1 >= H0) { theta.lim <- try(uniroot(.tes.lim, interval=c(H0,theta.1), extendInt="downX", yi=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, tau2=tau2, test=test, tes.alternative=tes.alternative, progbar=FALSE, tes.alpha=tes.alpha, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb)$root, silent=TRUE) } else { theta.lim <- try(uniroot(.tes.lim, interval=c(theta.1,H0), extendInt="upX", yi=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, tau2=tau2, test=test, tes.alternative=tes.alternative, progbar=FALSE, tes.alpha=tes.alpha, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb)$root, silent=TRUE) } if (inherits(theta.lim, "try-error")) theta.lim <- NA_real_ } } if (tes.alternative == "two.sided") { theta.lim.lb <- tes(x=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, theta=theta.1, tau2=tau2, test=test, tes.alternative="greater", progbar=FALSE, tes.alpha=tes.alpha/2, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb, find.lim=TRUE)$theta.lim theta.lim.ub <- tes(x=yi, vi=vi, H0=H0, alternative=alternative, alpha=alpha, theta=theta.1, tau2=tau2, test=test, tes.alternative="less", progbar=FALSE, tes.alpha=tes.alpha/2, correct=correct, rel.tol=rel.tol, subdivisions=subdivisions, tau2.lb=tau2.lb, find.lim=TRUE)$theta.lim theta.lim <- c(theta.lim.lb, theta.lim.ub) } } if (single.theta) theta <- theta.1 res <- list(k=k, O=O, E=E, OEratio=O/E, test=test, X2=X2, pval=pval, power=pow, sig=sig, theta=theta, theta.lim=theta.lim, tes.alternative=tes.alternative, tes.alpha=tes.alpha, digits=digits) class(res) <- "tes" return(res) } } metafor/R/labbe.r0000644000176200001440000000006015120213572013332 0ustar liggesuserslabbe <- function(x, ...) UseMethod("labbe") metafor/R/regplot.r0000644000176200001440000000006415120213572013745 0ustar liggesusersregplot <- function(x, ...) UseMethod("regplot") metafor/R/forest.default.r0000644000176200001440000010431115120213572015216 0ustar liggesusersforest.default <- function(x, vi, sei, ci.lb, ci.ub, annotate=TRUE, showweights=FALSE, header=TRUE, xlim, alim, olim, ylim, at, steps=5, level=95, refline=0, digits=2L, width, xlab, slab, ilab, ilab.lab, ilab.xpos, ilab.pos, order, subset, transf, atransf, targs, rows, efac=1, pch, psize, plim=c(0.5,1.5), col, shade, colshade, lty, fonts, cex, cex.lab, cex.axis, ...) { ######################################################################### mstyle <- .get.mstyle() na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (missing(transf)) transf <- FALSE if (missing(atransf)) atransf <- FALSE transf.char <- deparse(transf) atransf.char <- deparse(atransf) if (is.function(transf) && is.function(atransf)) stop(mstyle$stop("Use either 'transf' or 'atransf' to specify a transformation (not both).")) .start.plot() yi <- x if (missing(targs)) targs <- NULL if (missing(at)) at <- NULL if (missing(ilab)) ilab <- NULL if (missing(ilab.lab)) ilab.lab <- NULL if (missing(ilab.xpos)) ilab.xpos <- NULL if (missing(ilab.pos)) ilab.pos <- NULL if (missing(subset)) subset <- NULL if (missing(order)) order <- NULL if (missing(pch)) pch <- 15 if (missing(psize)) psize <- NULL if (missing(col)) col <- NULL if (missing(shade)) shade <- NULL if (missing(colshade)) colshade <- .coladj(par("bg","fg"), dark=0.1, light=-0.1) if (missing(cex)) cex <- NULL if (missing(cex.lab)) cex.lab <- NULL if (missing(cex.axis)) cex.axis <- NULL level <- .level(level) ### digits[1] for annotations, digits[2] for x-axis labels, digits[3] (if specified) for weights ### note: digits can also be a list (e.g., digits=list(2,3L)); trailing 0's on the x-axis labels ### are dropped if the value is an integer if (length(digits) == 1L) digits <- c(digits,digits,digits) if (length(digits) == 2L) digits <- c(digits,digits[[1]]) ddd <- list(...) ############################################################################ ### set default line types if user has not specified 'lty' argument if (missing(lty)) { lty <- c("solid", "solid") # 1st = CIs, 2nd = horizontal line(s) } else { if (length(lty) == 1L) lty <- c(lty, "solid") } ### vertical expansion factors: 1st = CI/PI end lines, 2nd = arrows, 3rd = summary polygon, 4th = PI polygon/bar/shade/dist height (note: 3rd and 4th not used, but passed on to .metafor) efac <- .expand1(efac, 4L) if (length(efac) == 2L) efac <- c(efac,1,1) # if 2 values specified (note: this one is different in forest.rma()) if (length(efac) == 3L) efac <- efac[c(1:3,3)] # if 3 values specified efac[efac == 0] <- NA ### annotation symbols vector if (is.null(ddd$annosym)) { annosym <- c(" [", ", ", "]", "-", " ") # 4th element for minus sign symbol; 5th for space (in place of numbers and +); see [a] } else { annosym <- ddd$annosym if (length(annosym) == 3L) annosym <- c(annosym, "-", " ") if (length(annosym) == 4L) annosym <- c(annosym, " ") if (length(annosym) != 5L) stop(mstyle$stop("Argument 'annosym' must be a vector of length 3 (or 4 or 5).")) } ### adjust annosym for tabular figures if (isTRUE(ddd$tabfig == 1)) annosym <- c("\u2009[", ",\u2009", "]", "\u2212", "\u2002") # \u2009 thin space; \u2212 minus, \u2002 en space if (isTRUE(ddd$tabfig == 2)) annosym <- c("\u2009[", ",\u2009", "]", "\u2013", "\u2002") # \u2009 thin space; \u2013 en dash, \u2002 en space if (isTRUE(ddd$tabfig == 3)) annosym <- c("\u2009[", ",\u2009", "]", "\u2212", "\u2007") # \u2009 thin space; \u2212 minus, \u2007 figure space ### set measure based on the measure attribute of yi if (is.null(attr(yi, "measure"))) { measure <- "GEN" } else { measure <- attr(yi, "measure") } ### column header estlab <- .setlab(measure, transf.char, atransf.char, gentype=3, short=TRUE) if (is.expression(estlab)) { header.right <- str2lang(paste0("bold(", estlab, " * '", annosym[1], "' * '", round(100*(1-level),digits[[1]]), "% CI'", " * '", annosym[3], "')")) } else { header.right <- paste0(estlab, annosym[1], round(100*(1-level),digits[[1]]), "% CI", annosym[3]) } if (is.logical(header)) { if (header) { header.left <- "Study" } else { header.left <- NULL header.right <- NULL } } else { if (!is.character(header)) stop(mstyle$stop("Argument 'header' must either be a logical or character vector.")) if (length(header) == 1L) { header.left <- header } else { header.left <- header[1] header.right <- header[2] } } if (!annotate) header.right <- NULL decreasing <- .chkddd(ddd$decreasing, FALSE) if (is.null(ddd$clim)) { if (missing(olim)) olim <- NULL } else { olim <- ddd$clim } if (!is.null(olim)) { if (length(olim) != 2L) stop(mstyle$stop("Argument 'olim' must be of length 2.")) if (anyNA(olim)) stop(mstyle$stop("Argument 'olim' cannot contain NAs.")) olim <- sort(olim) } ### row adjustments for 1) study labels, 2) annotations, and 3) ilab elements if (is.null(ddd$rowadj)) { rowadj <- rep(0,3) } else { rowadj <- ddd$rowadj if (length(rowadj) == 1L) rowadj <- c(rowadj,rowadj,0) # if one value is specified, use it for both 1&2 if (length(rowadj) == 2L) rowadj <- c(rowadj,0) # if two values are specified, use them for 1&2 } top <- .chkddd(ddd$top, 3) if (is.null(ddd$xlabadj)) { xlabadj <- c(NA,NA) } else { xlabadj <- ddd$xlabadj if (length(xlabadj) == 1L) xlabadj <- c(xlabadj, 1-xlabadj) } xlabfont <- .chkddd(ddd$xlabfont, 1) if (!is.null(ddd$mlab)) warning("The forest.default() function does not have an 'mlab' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$addfit)) warning("The forest.default() function does not have an 'addfit' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$addpred)) warning("The forest.default() function does not have an 'addpred' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$predstyle)) warning("The forest.default() function does not have a 'predstyle' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$predlim)) warning("The forest.default() function does not have a 'predlim' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$colout)) warning("The forest.default() function does not have a 'colout' argument.", call.=FALSE, immediate.=TRUE) if (!is.null(ddd$border)) warning("The forest.default() function does not have a 'border' argument.", call.=FALSE, immediate.=TRUE) lplot <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) plot(...) labline <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) abline(...) lsegments <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) segments(...) laxis <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) axis(...) lmtext <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) mtext(...) lpolygon <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) polygon(...) ltext <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) text(...) lpoints <- function(..., textpos, decreasing, clim, rowadj, annosym, tabfig, top, xlabadj, xlabfont, at.lab, mlab, addfit, addpred, predstyle, predlim, colout, border) points(...) ######################################################################### ### extract data, study labels, and other arguments if (!missing(vi) && is.function(vi)) # if vi is utils::vi() stop(mstyle$stop("Cannot find variable specified for the 'vi' argument.")) if (hasArg(ci.lb) && hasArg(ci.ub) && !is.null(ci.lb) && !is.null(ci.ub)) { # CI bounds are specified by user if (length(ci.lb) != length(ci.ub)) stop(mstyle$stop("Length of 'ci.lb' and 'ci.ub' are not the same.")) if (missing(vi) && missing(sei)) { # vi/sei not specified, so calculate vi based on CI vi <- ((ci.ub - ci.lb) / (2*qnorm(level/2, lower.tail=FALSE)))^2 } else { if (missing(vi)) # vi not specified, but sei is, so set vi = sei^2 vi <- sei^2 } if (length(ci.lb) != length(vi)) stop(mstyle$stop("Length of 'vi' (or 'sei') does not match the length of ('ci.lb','ci.ub').")) } else { # CI bounds are not specified by user if (missing(vi)) { if (missing(sei)) { stop(mstyle$stop("Must specify either 'vi', 'sei', or ('ci.lb','ci.ub').")) } else { vi <- sei^2 } } if (length(yi) != length(vi)) # need to do this here to avoid warning when calculating 'ci.lb' and 'ci.ub' stop(mstyle$stop("Length of 'vi' (or 'sei') does not match the length of 'yi'.")) ci.lb <- yi - qnorm(level/2, lower.tail=FALSE) * sqrt(vi) ci.ub <- yi + qnorm(level/2, lower.tail=FALSE) * sqrt(vi) } ### check length of yi and vi k <- length(yi) if (length(vi) != k) stop(mstyle$stop("Length of 'yi' does not match the length of 'vi', 'sei', or the ('ci.lb','ci.ub').")) ### note: slab (if specified), ilab (if specified), pch (if vector), psize (if ### vector), col (if vector), subset (if specified), order (if vector) ### must have the same length as yi (including NAs) even when subsetting eventually slab.null <- FALSE if (missing(slab)) { slab <- attr(yi, "slab") # use slab info if it can be found in slab attribute of yi (and it has the right length) if (is.null(slab) || length(slab) != k) { slab <- paste("Study", seq_len(k)) slab.null <- TRUE } } else { if (length(slab) == 1L && is.na(slab)) { # slab=NA can be used to suppress study labels slab <- rep("", k) slab.null <- TRUE } } if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the number of outcomes (", k, ")."))) if (!is.null(ilab)) { if (is.null(dim(ilab))) ilab <- cbind(ilab) if (nrow(ilab) != k) stop(mstyle$stop(paste0("Length of the 'ilab' argument (", nrow(ilab), ") does not correspond to the number of outcomes (", k, ")."))) } pch <- .expand1(pch, k) # pch can be a single value (which is then repeated) if (length(pch) != k) stop(mstyle$stop(paste0("Length of the 'pch' argument (", length(pch), ") does not correspond to the number of outcomes (", k, ")."))) if (!is.null(psize)) { if (length(psize) == 1L) psize <- .expand1(psize, k) # psize can be a single value (which is then repeated) if (length(psize) != k) stop(mstyle$stop(paste0("Length of the 'psize' argument (", length(psize), ") does not correspond to the number of outcomes (", k, ")."))) } if (!is.null(col)) { col <- .expand1(col, k) # col can be a single value (which is then repeated) if (length(col) != k) stop(mstyle$stop(paste0("Length of the 'col' argument (", length(col), ") does not correspond to the number of outcomes (", k, ")."))) } else { col <- rep(par("fg"), k) } shade.type <- "none" if (is.character(shade)) { shade.type <- "character" shade <- shade[1] if (!is.element(shade, c("zebra", "zebra1", "zebra2", "all"))) stop(mstyle$stop("Unknown option specified for 'shade' argument.")) } if (is.logical(shade)) { if (length(shade) == 1L) { shade <- "zebra" shade.type <- "character" } else { shade.type <- "logical" shade <- .chksubset(shade, k, stoponk0=FALSE) } } if (is.numeric(shade)) shade.type <- "numeric" ### adjust subset if specified subset <- .chksubset(subset, k) ### sort the data if requested if (!is.null(order)) { if (length(order) == 1L) { order <- match.arg(order, c("obs", "yi", "prec", "vi")) if (order == "obs" || order == "yi") sort.vec <- order(yi) if (order == "prec" || order == "vi") sort.vec <- order(vi, yi) } else { if (length(order) != k) stop(mstyle$stop(paste0("Length of the 'order' argument (", length(order), ") does not correspond to the number of outcomes (", k, ")."))) if (grepl("^order\\(", deparse1(substitute(order)))) { sort.vec <- order } else { sort.vec <- order(order, decreasing=decreasing) } } yi <- yi[sort.vec] vi <- vi[sort.vec] ci.lb <- ci.lb[sort.vec] ci.ub <- ci.ub[sort.vec] slab <- slab[sort.vec] ilab <- ilab[sort.vec,,drop=FALSE] # if NULL, remains NULL pch <- pch[sort.vec] psize <- psize[sort.vec] # if NULL, remains NULL col <- col[sort.vec] subset <- subset[sort.vec] # if NULL, remains NULL if (shade.type == "logical") shade <- shade[sort.vec] } ### if a subset of studies is specified if (!is.null(subset)) { yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) ci.lb <- .getsubset(ci.lb, subset) ci.ub <- .getsubset(ci.ub, subset) slab <- .getsubset(slab, subset) ilab <- .getsubset(ilab, subset) # if NULL, remains NULL pch <- .getsubset(pch, subset) psize <- .getsubset(psize, subset) # if NULL, remains NULL col <- .getsubset(col, subset) if (shade.type == "logical") shade <- .getsubset(shade, subset) } k <- length(yi) # in case length of k has changed ### set rows value if (missing(rows)) { rows <- k:1 } else { if (length(rows) == 1L) # note: rows must be a single value or the same rows <- rows:(rows-k+1) # length of yi (including NAs) *after ordering/subsetting* } if (length(rows) != k) stop(mstyle$stop(paste0("Length of the 'rows' argument (", length(rows), ") does not correspond to the number of outcomes (", k, ")", ifelse(is.null(subset), ".", " after subsetting.")))) ### reverse order yi <- yi[k:1] vi <- vi[k:1] ci.lb <- ci.lb[k:1] ci.ub <- ci.ub[k:1] slab <- slab[k:1] ilab <- ilab[k:1,,drop=FALSE] # if NULL, remains NULL pch <- pch[k:1] psize <- psize[k:1] # if NULL, remains NULL col <- col[k:1] rows <- rows[k:1] if (shade.type == "logical") shade <- shade[k:1] ### check for NAs in yi/vi and act accordingly yivi.na <- is.na(yi) | is.na(vi) if (any(yivi.na)) { not.na <- !yivi.na if (na.act == "na.omit") { yi <- yi[not.na] vi <- vi[not.na] ci.lb <- ci.lb[not.na] ci.ub <- ci.ub[not.na] slab <- slab[not.na] ilab <- ilab[not.na,,drop=FALSE] # if NULL, remains NULL pch <- pch[not.na] psize <- psize[not.na] # if NULL, remains NULL col <- col[not.na] if (shade.type == "logical") shade <- shade[not.na] rows.new <- rows # rearrange rows due to NAs being omitted from plot rows.na <- rows[!not.na] # shift higher rows down according to number of NAs omitted for (j in seq_along(rows.na)) { rows.new[rows >= rows.na[j]] <- rows.new[rows >= rows.na[j]] - 1 } rows <- rows.new[not.na] } if (na.act == "na.fail") stop(mstyle$stop("Missing values in results.")) } # note: yi/vi may be NA if na.act == "na.exclude" or "na.pass" k <- length(yi) # in case length of k has changed ### if requested, apply transformation to yi's and CI bounds if (is.function(transf)) { if (is.null(targs)) { yi <- sapply(yi, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) yi <- sapply(yi, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ### apply observation/outcome limits if specified if (!is.null(olim)) { yi <- .applyolim(yi, olim) ci.lb <- .applyolim(ci.lb, olim) ci.ub <- .applyolim(ci.ub, olim) } if (showweights) { # inverse variance weights after ordering/subsetting and weights <- 1/vi # omitting NAs (so these weights always add up to 100%) weights <- 100 * weights / sum(weights, na.rm=TRUE) } ### set default point sizes (if not specified by user) if (is.null(psize)) { if (any(vi <= 0, na.rm=TRUE)) { # in case any vi value is zero psize <- rep(1, k) } else { # default psize is proportional to inverse standard error (only vi's that are still in the subset are considered) if (length(plim) < 2L) # note: vi's that are NA are ignored (but vi's whose yi is NA are NOT ignored; an unlikely case in practice) stop(mstyle$stop("Argument 'plim' must be of length 2 or 3.")) wi <- 1/sqrt(vi) if (!is.na(plim[1]) && !is.na(plim[2])) { rng <- max(wi, na.rm=TRUE) - min(wi, na.rm=TRUE) if (rng <= .Machine$double.eps^0.5) { psize <- rep(1, k) } else { psize <- (wi - min(wi, na.rm=TRUE)) / rng psize <- (psize * (plim[2] - plim[1])) + plim[1] } } if (is.na(plim[1]) && !is.na(plim[2])) { psize <- wi / max(wi, na.rm=TRUE) * plim[2] if (length(plim) == 3L) psize[psize <= plim[3]] <- plim[3] } if (!is.na(plim[1]) && is.na(plim[2])) { psize <- wi / min(wi, na.rm=TRUE) * plim[1] if (length(plim) == 3L) psize[psize >= plim[3]] <- plim[3] } if (all(is.na(psize))) # if k=1, then psize is NA, so catch this (and maybe some other problems) psize <- rep(1, k) } } ######################################################################### if (!is.null(at)) { if (anyNA(at)) stop(mstyle$stop("Argument 'at' cannot contain NAs.")) if (any(is.infinite(at))) stop(mstyle$stop("Argument 'at' cannot contain +-Inf values.")) } ### set x-axis limits (at argument overrides alim argument) alim.spec <- TRUE if (missing(alim)) { if (is.null(at)) { alim <- range(pretty(x=c(min(ci.lb, na.rm=TRUE), max(ci.ub, na.rm=TRUE)), n=steps-1)) alim.spec <- FALSE } else { alim <- range(at) } } alim <- sort(alim)[1:2] if (anyNA(alim)) stop(mstyle$stop("Argument 'alim' cannot contain NAs.")) ### generate x-axis positions if none are specified if (is.null(at)) { if (alim.spec) { at <- seq(from=alim[1], to=alim[2], length.out=steps) } else { at <- pretty(x=c(min(ci.lb, na.rm=TRUE), max(ci.ub, na.rm=TRUE)), n=steps-1) } } else { at[at < alim[1]] <- alim[1] # remove at values that are below or above the axis limits at[at > alim[2]] <- alim[2] at <- unique(at) } ### x-axis labels (apply transformation to axis labels if requested) if (is.null(ddd$at.lab)) { at.lab <- at if (is.function(atransf)) { if (is.null(targs)) { at.lab <- fmtx(sapply(at.lab, atransf), digits[[2]], drop0ifint=TRUE) } else { at.lab <- fmtx(sapply(at.lab, atransf, targs), digits[[2]], drop0ifint=TRUE) } } else { at.lab <- fmtx(at.lab, digits[[2]], drop0ifint=TRUE) } } else { at.lab <- ddd$at.lab } ### set plot limits (xlim) ncol.ilab <- ifelse(is.null(ilab), 0, ncol(ilab)) if (slab.null) { area.slab <- 25 } else { area.slab <- 40 } if (annotate) { if (showweights) { area.anno <- 30 } else { area.anno <- 25 } } else { area.anno <- 10 } iadd <- 5 area.slab <- area.slab + iadd*ncol.ilab #area.anno <- area.anno area.forest <- 100 + iadd*ncol.ilab - area.slab - area.anno area.slab <- area.slab / (100 + iadd*ncol.ilab) area.anno <- area.anno / (100 + iadd*ncol.ilab) area.forest <- area.forest / (100 + iadd*ncol.ilab) plot.multp.l <- area.slab / area.forest plot.multp.r <- area.anno / area.forest if (missing(xlim)) { if (min(ci.lb, na.rm=TRUE) < alim[1]) { f.1 <- alim[1] } else { f.1 <- min(ci.lb, na.rm=TRUE) } if (max(ci.ub, na.rm=TRUE) > alim[2]) { f.2 <- alim[2] } else { f.2 <- max(ci.ub, na.rm=TRUE) } rng <- f.2 - f.1 xlim <- c(f.1 - rng * plot.multp.l, f.2 + rng * plot.multp.r) xlim <- round(xlim, digits[[2]]) #xlim[1] <- xlim[1]*max(1, digits[[2]]/2) #xlim[2] <- xlim[2]*max(1, digits[[2]]/2) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' must be of length 2.")) } xlim <- sort(xlim) ### plot limits must always encompass the yi values (no longer done) #if (xlim[1] > min(yi, na.rm=TRUE)) { xlim[1] <- min(yi, na.rm=TRUE) } #if (xlim[2] < max(yi, na.rm=TRUE)) { xlim[2] <- max(yi, na.rm=TRUE) } ### x-axis limits must always encompass the yi values (no longer done) #if (alim[1] > min(yi, na.rm=TRUE)) { alim[1] <- min(yi, na.rm=TRUE) } #if (alim[2] < max(yi, na.rm=TRUE)) { alim[2] <- max(yi, na.rm=TRUE) } ### plot limits must always encompass the x-axis limits (no longer done) #if (alim[1] < xlim[1]) { xlim[1] <- alim[1] } #if (alim[2] > xlim[2]) { xlim[2] <- alim[2] } ### allow adjustment of position of study labels and annotations via textpos argument textpos <- .chkddd(ddd$textpos, xlim) if (length(textpos) != 2L) stop(mstyle$stop("Argument 'textpos' must be of length 2.")) if (is.na(textpos[1])) textpos[1] <- xlim[1] if (is.na(textpos[2])) textpos[2] <- xlim[2] ### set y-axis limits if (missing(ylim)) { ylim <- c(0, max(rows, na.rm=TRUE)+top) } else { if (length(ylim) == 1L) { ylim <- c(ylim, max(rows, na.rm=TRUE)+top) } else { ylim <- sort(ylim) } } ######################################################################### ### set/get fonts (1st for study labels, 2nd for annotations, 3rd for ilab) ### when passing a named vector, the names are for 'family' and the values are for 'font' if (missing(fonts)) { fonts <- rep(par("family"), 3L) } else { if (length(fonts) == 1L) fonts <- rep(fonts, 3L) if (length(fonts) == 2L) fonts <- c(fonts, fonts[1]) } if (is.null(names(fonts))) fonts <- setNames(c(1L,1L,1L), nm=fonts) par(family=names(fonts)[1], font=fonts[1]) ### adjust margins par.mar <- par("mar") par.mar.adj <- par.mar - c(0,3,1,1) par.mar.adj[par.mar.adj < 0] <- 0 par(mar=par.mar.adj) on.exit(par(mar=par.mar), add=TRUE) ### start plot lplot(NA, NA, xlim=xlim, ylim=ylim, xlab="", ylab="", yaxt="n", xaxt="n", xaxs="i", yaxs="i", bty="n", ...) ### add shading if (shade.type == "character") { if (shade == "zebra" || shade == "zebra1") tmp <- rep_len(c(TRUE,FALSE), k) if (shade == "zebra2") tmp <- rep_len(c(FALSE,TRUE), k) if (shade == "all") tmp <- rep_len(TRUE, k) shade <- tmp } if (shade.type %in% c("character","logical")) { for (i in seq_len(k)) { if (shade[i]) rect(xlim[1], rows[i]-0.5, xlim[2], rows[i]+0.5, border=colshade, col=colshade) } } if (shade.type == "numeric") { for (i in seq_along(shade)) { rect(xlim[1], shade[i]-0.5, xlim[2], shade[i]+0.5, border=colshade, col=colshade) } } ### horizontal title line labline(h=ylim[2]-(top-1), lty=lty[2], ...) ### get coordinates of the plotting region par.usr <- par("usr") ### add reference line if (is.numeric(refline)) lsegments(refline, par.usr[3], refline, ylim[2]-(top-1), lty="dotted", ...) ### set cex, cex.lab, and cex.axis sizes as a function of the height of the figure height <- par.usr[4] - par.usr[3] if (is.null(cex)) { lheight <- strheight("O") cex.adj <- ifelse(k * lheight > height * 0.8, height/(1.25 * k * lheight), 1) } if (is.null(cex)) { cex <- par("cex") * cex.adj } else { if (is.null(cex.lab)) cex.lab <- par("cex") * cex if (is.null(cex.axis)) cex.axis <- cex } if (is.null(cex.lab)) cex.lab <- par("cex") * cex.adj if (is.null(cex.axis)) cex.axis <- par("cex") * cex.adj ### add x-axis laxis(side=1, at=at, labels=at.lab, cex.axis=cex.axis, ...) ### add x-axis label if (missing(xlab)) xlab <- .setlab(measure, transf.char, atransf.char, gentype=1) if (!is.element(length(xlab), 1:3)) stop(mstyle$stop("Argument 'xlab' argument must be of length 1, 2, or 3.")) if (length(xlab) == 1L) lmtext(xlab, side=1, at=min(at) + (max(at)-min(at))/2, line=par("mgp")[1]-0.5, cex=cex.lab, font=xlabfont[1], ...) if (length(xlab) == 2L) { lmtext(xlab[1], side=1, at=min(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[1], font=xlabfont[1], ...) lmtext(xlab[2], side=1, at=max(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[2], font=xlabfont[1], ...) } if (length(xlab) == 3L) { lmtext(xlab[1], side=1, at=min(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[1], font=xlabfont[1], ...) lmtext(xlab[2], side=1, at=min(at) + (max(at)-min(at))/2, line=par("mgp")[1]-0.5, cex=cex.lab, font=xlabfont[2], ...) lmtext(xlab[3], side=1, at=max(at), line=par("mgp")[1]-0.5, cex=cex.lab, adj=xlabadj[2], font=xlabfont[1], ...) } ### add CI ends (either | or <> if outside of axis limits) ciendheight <- height / 150 * cex * efac[1] arrowwidth <- 1.4 / 100 * cex * (xlim[2]-xlim[1]) arrowheight <- height / 150 * cex * efac[2] for (i in seq_len(k)) { ### need to skip missings (if check below will otherwise throw an error) if (is.na(yi[i]) || is.na(ci.lb[i]) || is.na(ci.ub[i])) next ### if the lower bound is actually larger than upper x-axis limit, then everything is to the right and just draw a polygon pointing in that direction if (ci.lb[i] >= alim[2]) { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) next } ### if the upper bound is actually lower than lower x-axis limit, then everything is to the left and just draw a polygon pointing in that direction if (ci.ub[i] <= alim[1]) { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) next } lsegments(max(ci.lb[i], alim[1]), rows[i], min(ci.ub[i], alim[2]), rows[i], lty=lty[1], col=col[i], ...) if (ci.lb[i] >= alim[1]) { lsegments(ci.lb[i], rows[i]-ciendheight, ci.lb[i], rows[i]+ciendheight, col=col[i], ...) } else { lpolygon(x=c(alim[1], alim[1]+arrowwidth, alim[1]+arrowwidth, alim[1]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) } if (ci.ub[i] <= alim[2]) { lsegments(ci.ub[i], rows[i]-ciendheight, ci.ub[i], rows[i]+ciendheight, col=col[i], ...) } else { lpolygon(x=c(alim[2], alim[2]-arrowwidth, alim[2]-arrowwidth, alim[2]), y=c(rows[i], rows[i]+arrowheight, rows[i]-arrowheight, rows[i]), col=col[i], border=col[i], ...) } } ### add study labels on the left ltext(textpos[1], rows+rowadj[1], slab, pos=4, cex=cex, col=col, ...) ### add info labels if (!is.null(ilab)) { if (is.null(ilab.xpos)) { #stop(mstyle$stop("Must specify the 'ilab.xpos' argument when adding information with 'ilab'.")) dist <- min(ci.lb, na.rm=TRUE) - xlim[1] if (ncol.ilab == 1L) ilab.xpos <- xlim[1] + dist*0.75 if (ncol.ilab == 2L) ilab.xpos <- xlim[1] + dist*c(0.65, 0.85) if (ncol.ilab == 3L) ilab.xpos <- xlim[1] + dist*c(0.60, 0.75, 0.90) if (ncol.ilab >= 4L) ilab.xpos <- seq(xlim[1] + dist*0.5, xlim[1] + dist*0.9, length.out=ncol.ilab) } if (length(ilab.xpos) != ncol.ilab) stop(mstyle$stop(paste0("Number of 'ilab' columns (", ncol.ilab, ") does not match the length of the 'ilab.xpos' argument (", length(ilab.xpos), ")."))) if (!is.null(ilab.pos) && length(ilab.pos) == 1L) ilab.pos <- rep(ilab.pos, ncol.ilab) if (!is.null(ilab.lab) && length(ilab.lab) != ncol.ilab) stop(mstyle$stop(paste0("Number of 'ilab' columns (", ncol.ilab, ") does not match the length of the 'ilab.lab' argument (", length(ilab.lab), ")."))) par(family=names(fonts)[3], font=fonts[3]) for (l in seq_len(ncol.ilab)) { ltext(ilab.xpos[l], rows+rowadj[3], ilab[,l], pos=ilab.pos[l], cex=cex, ...) if (!is.null(ilab.lab)) ltext(ilab.xpos[l], ylim[2]-(top-1)+1+rowadj[3], ilab.lab[l], pos=ilab.pos[l], font=2, cex=cex, ...) } par(family=names(fonts)[1], font=fonts[1]) } ### add study annotations on the right: yi [LB, UB] if (annotate) { if (is.function(atransf)) { if (is.null(targs)) { annotext <- cbind(sapply(yi, atransf), sapply(ci.lb, atransf), sapply(ci.ub, atransf)) } else { annotext <- cbind(sapply(yi, atransf, targs), sapply(ci.lb, atransf, targs), sapply(ci.ub, atransf, targs)) } ### make sure order of intervals is always increasing tmp <- .psort(annotext[,2:3]) annotext[,2:3] <- tmp } else { annotext <- cbind(yi, ci.lb, ci.ub) } if (showweights) { annotext <- cbind(weights, annotext) annotext <- fmtx(annotext, c(digits[[3]], digits[[1]], digits[[1]], digits[[1]])) } else { annotext <- fmtx(annotext, digits[[1]]) } if (missing(width)) { width <- apply(annotext, 2, function(x) max(nchar(x))) } else { width <- .expand1(width, ncol(annotext)) if (length(width) != ncol(annotext)) stop(mstyle$stop(paste0("Length of the 'width' argument (", length(width), ") does not match the number of annotation columns (", ncol(annotext), ")."))) } for (j in seq_len(ncol(annotext))) { annotext[,j] <- formatC(annotext[,j], width=width[j]) } if (showweights) { annotext <- cbind(annotext[,1], paste0("%", paste0(rep(substr(annosym[1],1,1),3), collapse="")), annotext[,2], annosym[1], annotext[,3], annosym[2], annotext[,4], annosym[3]) } else { annotext <- cbind(annotext[,1], annosym[1], annotext[,2], annosym[2], annotext[,3], annosym[3]) } annotext <- apply(annotext, 1, paste, collapse="") annotext[grepl("NA", annotext, fixed=TRUE)] <- "" annotext <- gsub("-", annosym[4], annotext, fixed=TRUE) # [a] annotext <- gsub(" ", annosym[5], annotext, fixed=TRUE) par(family=names(fonts)[2], font=fonts[2]) ltext(textpos[2], rows+rowadj[2], labels=annotext, pos=2, cex=cex, col=col, ...) par(family=names(fonts)[1], font=fonts[1]) } else { width <- NULL } ### add yi points for (i in seq_len(k)) { ### need to skip missings (if check below will otherwise throw an error) if (is.na(yi[i])) next if (yi[i] >= alim[1] && yi[i] <= alim[2]) lpoints(x=yi[i], y=rows[i], pch=pch[i], cex=cex*psize[i], col=col[i], ...) } ### add header ltext(textpos[1], ylim[2]-(top-1)+1+rowadj[1], header.left, pos=4, font=2, cex=cex, ...) ltext(textpos[2], ylim[2]-(top-1)+1+rowadj[2], header.right, pos=2, font=2, cex=cex, ...) ######################################################################### ### return some information about plot invisibly res <- list(xlim=par("usr")[1:2], alim=alim, at=at, ylim=ylim, rows=rows, cex=cex, cex.lab=cex.lab, cex.axis=cex.axis, ilab.xpos=ilab.xpos, ilab.pos=ilab.pos, textpos=textpos) ### put some additional stuff into .metafor, so that it can be used by addpoly() sav <- c(res, list(level=level, annotate=annotate, digits=digits[[1]], width=width, transf=transf, atransf=atransf, targs=targs, alim=alim, olim=olim, rowadj=rowadj, fonts=fonts[1:2], annosym=annosym)) try(assign("forest", sav, envir=.metafor), silent=TRUE) invisible(res) } metafor/R/pairmat.r0000644000176200001440000000366015120213572013733 0ustar liggesuserspairmat <- function(x, btt, btt2, ...) { mstyle <- .get.mstyle() if (missing(x)) { x <- .getfromenv("pairmat", envir=.metafor) } else { if (is.atomic(x)) { btt <- x x <- .getfromenv("pairmat", envir=.metafor) } } if (is.null(x)) stop(mstyle$stop("Need to specify the 'x' argument."), call.=FALSE) .chkclass(class(x), must="rma") if (x$int.only) stop(mstyle$stop("Cannot construct contrast matrices for intercept-only models.")) if (missing(btt) || is.null(btt)) stop(mstyle$stop("Need to specify the 'btt' argument."), call.=FALSE) ddd <- list(...) .chkdots(ddd, c("fixed")) fixed <- .chkddd(ddd$fixed, FALSE, isTRUE(ddd$fixed)) ######################################################################### btt <- .set.btt(btt, x$p, x$int.incl, colnames(x$X), fixed=fixed) p <- length(btt) if (p == 1L) stop(mstyle$stop("Need to specify multiple coefficients via argument 'btt' for pairwise comparisons."), call.=FALSE) names <- rownames(x$beta) connames <- rep("", p*(p-1)/2) X <- matrix(0, nrow=p*(p-1)/2, ncol=x$p) row <- 0 for (i in 1:(p-1)) { btti <- btt[i] for (j in (i+1):p) { bttj <- btt[j] row <- row + 1 X[row,btti] <- -1 X[row,bttj] <- +1 connames[row] <- paste0(names[btti], "-", names[bttj]) } } rownames(X) <- connames ######################################################################### ### in case btt2 is specified, add these coefficients to X if (!missing(btt2)) { btt <- .set.btt(btt2, x$p, x$int.incl, colnames(x$X), fixed=fixed) p <- length(btt) Xadd <- matrix(0, nrow=p, ncol=x$p) for (i in 1:p) { Xadd[i,btt[i]] <- 1 } rownames(Xadd) <- names[btt] X <- rbind(Xadd, X) } ######################################################################### return(X) } metafor/R/plot.rma.uni.r0000644000176200001440000001041515120213572014620 0ustar liggesusersplot.rma.uni <- function(x, qqplot=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) .start.plot() # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < 4L) par(mfrow=n2mfrow(4)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) col.na <- .coladj(par("bg","fg"), dark=0.2, light=-0.2) ######################################################################### if (x$int.only) { ###################################################################### forest(x, ...) title("Forest Plot", ...) ###################################################################### funnel(x, ...) title("Funnel Plot", ...) ###################################################################### radial(x, ...) title("Radial Plot", ...) ###################################################################### if (qqplot) { qqnorm(x, ...) } else { options(na.action = "na.pass") z <- rstandard(x)$z options(na.action = na.act) not.na <- !is.na(z) if (na.act == "na.omit") { z <- z[not.na] ids <- x$ids[not.na] not.na <- not.na[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") ids <- x$ids k <- length(z) plot(NA, NA, xlim=c(1,k), ylim=c(min(z, -2, na.rm=TRUE), max(z, 2, na.rm=TRUE)), xaxt="n", xlab="Study", ylab="", bty="l", ...) lines(seq_len(k)[not.na], z[not.na], col=col.na, ...) lines(seq_len(k), z, ...) points(x=seq_len(k), y=z, pch=21, bg=bg, ...) axis(side=1, at=seq_len(k), labels=ids, ...) abline(h=0, lty="dashed", ...) abline(h=c(qnorm(0.025),qnorm(0.975)), lty="dotted", ...) title("Standardized Residuals", ...) } } else { ###################################################################### forest(x, ...) title("Forest Plot", ...) ###################################################################### funnel(x, ...) title("Residual Funnel Plot", ...) ###################################################################### options(na.action = "na.pass") z <- rstandard(x)$z pred <- fitted(x) options(na.action = na.act) plot(NA, NA, xlim=range(pred), ylim=c(min(z, -2, na.rm=TRUE), max(z, 2, na.rm=TRUE)), bty="l", xlab="Fitted Value", ylab="Standardized Residual", ...) abline(h=0, lty="dashed", ...) abline(h=c(qnorm(0.025),qnorm(0.975)), lty="dotted", ...) points(pred, z, pch=21, bg=bg, ...) title("Fitted vs. Standardized Residuals", ...) ###################################################################### if (qqplot) { qqnorm(x, ...) } else { options(na.action = "na.pass") z <- rstandard(x)$z options(na.action = na.act) not.na <- !is.na(z) if (na.act == "na.omit") { z <- z[not.na] ids <- x$ids[not.na] not.na <- not.na[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") ids <- x$ids k <- length(z) plot(NA, NA, xlim=c(1,k), ylim=c(min(z, -2, na.rm=TRUE), max(z, 2, na.rm=TRUE)), xaxt="n", xlab="Study", ylab="", bty="l", ...) lines(seq_len(k)[not.na], z[not.na], col=col.na, ...) lines(seq_len(k), z, ...) points(x=seq_len(k), y=z, pch=21, bg=bg, ...) axis(side=1, at=seq_len(k), labels=ids, ...) abline(h=0, lty="dashed", ...) abline(h=c(qnorm(0.025),qnorm(0.975)), lty="dotted", ...) title("Standardized Residuals", ...) } ###################################################################### } invisible() } metafor/R/methods.anova.rma.r0000644000176200001440000001070515120213572015620 0ustar liggesusers############################################################################ as.data.frame.anova.rma <- function(x, ...) { .chkclass(class(x), must="anova.rma") if (x$type == "Wald.btt") { tab <- data.frame(coefs = .format.btt(x$btt), QM = x$QM, df = round(x$QMdf[1], 2), pval = x$QMp) if (is.element(x$test, c("knha","adhoc","t"))) { names(tab)[2:3] <- c("Fval", "df1") tab <- cbind(tab[1:3], df2 = round(x$QMdf[2], 2), tab[4]) } } if (x$type == "Wald.att") { tab <- data.frame(coefs = .format.btt(x$att), QS = x$QS, df = round(x$QSdf[1], 2), pval = x$QSp) if (is.element(x$test, c("knha","adhoc","t"))) { names(tab)[2:3] <- c("Fval", "df1") tab <- cbind(tab[1:3], df2 = round(x$QSdf[2], 2), tab[4]) } } if (x$type == "Wald.Xb") { if (is.element(x$test, c("knha","adhoc","t"))) { tab <- data.frame(hyp=x$hyp[[1]], estimate=c(x$Xb), se=x$se, tval=x$zval, df=round(x$ddf,2), pval=x$pval) } else { tab <- data.frame(hyp=x$hyp[[1]], estimate=c(x$Xb), se=x$se, zval=x$zval, pval=x$pval) } rownames(tab) <- paste0(seq_len(x$m), ":") return(tab) } if (x$type == "Wald.Za") { if (is.element(x$test, c("knha","adhoc","t"))) { tab <- data.frame(hyp=x$hyp[[1]], estimate=c(x$Za), se=x$se, tval=x$zval, df=round(x$ddf,2), pval=x$pval) } else { tab <- data.frame(hyp=x$hyp[[1]], estimate=c(x$Za), se=x$se, zval=x$zval, pval=x$pval) } rownames(tab) <- paste0(seq_len(x$m), ":") return(tab) } if (x$type == "LRT") { tab <- data.frame(c(x$parms.f, x$parms.r), c(x$fit.stats.f["AIC"], x$fit.stats.r["AIC"]), c(x$fit.stats.f["BIC"], x$fit.stats.r["BIC"]), c(x$fit.stats.f["AICc"], x$fit.stats.r["AICc"]), c(x$fit.stats.f["ll"], x$fit.stats.r["ll"]), c(NA_real_, x$LRT), c(NA_real_, x$pval), c(x$QE.f, x$QE.r), c(x$tau2.f, x$tau2.r), c(NA_real_, NA_real_)) colnames(tab) <- c("df", "AIC", "BIC", "AICc", "logLik", "LRT", "pval", "QE", "tau^2", "R^2") rownames(tab) <- c("Full", "Reduced") tab["Full",c("LRT","pval")] <- NA_real_ tab["Full","R^2"] <- NA_real_ tab["Reduced","R^2"] <- x$R2 ### remove tau^2 column if full model is a FE/EE/CE model or tau2.f/tau2.r is NA if (is.element(x$method, c("FE","EE","CE")) || (is.na(x$tau2.f) || is.na(x$tau2.r))) tab <- tab[-which(names(tab) == "tau^2")] ### remove R^2 column if full model is a rma.mv or rma.ls model if (is.element("rma.mv", x$class.f) || is.element("rma.ls", x$class.f)) tab <- tab[-which(names(tab) == "R^2")] } return(tab) } as.data.frame.list.anova.rma <- function(x, ...) { .chkclass(class(x), must="list.anova.rma") if (x[[1]]$type == "Wald.btt") { tab <- data.frame(spec = names(x), coefs = sapply(x, function(x) .format.btt(x$btt)), QM = sapply(x, function(x) x$QM), df = sapply(x, function(x) round(x$QMdf[1], 2)), pval = sapply(x, function(x) x$QMp)) } if (x[[1]]$type == "Wald.att") { tab <- data.frame(spec = names(x), coefs = sapply(x, function(x) .format.btt(x$att)), QS = sapply(x, function(x) x$QS), df = sapply(x, function(x) round(x$QSdf[1], 2)), pval = sapply(x, function(x) x$QSp)) } if (is.element(x[[1]]$test, c("knha","adhoc","t"))) { names(tab)[3:4] <- c("Fval", "df1") if (x[[1]]$type == "Wald.btt") tab <- cbind(tab[1:4], df2 = sapply(x, function(x) round(x$QMdf[2], 2)), tab[5]) if (x[[1]]$type == "Wald.att") tab <- cbind(tab[1:4], df2 = sapply(x, function(x) round(x$QSdf[2], 2)), tab[5]) } # if all btt/att specifications are numeric, remove the 'spec' column if (all(substr(tab$spec, 1, 1) %in% as.character(1:9))) tab$spec <- NULL # just use numbers for row names rownames(tab) <- NULL return(tab) } ############################################################################ metafor/R/confint.rma.uni.selmodel.r0000644000176200001440000003716015120213572017113 0ustar liggesusersconfint.rma.uni.selmodel <- function(object, parm, level, fixed=FALSE, tau2, delta, digits, transf, targs, verbose=FALSE, control, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.uni.selmodel") if (!missing(parm)) warning(mstyle$warning("Argument 'parm' (currently) ignored."), call.=FALSE) x <- object if (x$betaspec) # TODO: consider providing CIs also for this case stop(mstyle$stop("Cannot obtain confidence intervals when one or more beta values were fixed.")) if (x$decreasing || x$type == "stepcon") stop(mstyle$stop("Method not currently implemented for this type of model.")) k <- x$k p <- x$p if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL funlist <- lapply(list(transf.exp.int, transf.ilogit.int, transf.iprobit.int, transf.ztor.int, transf.iarcsin.int, transf.iahw.int, transf.iabt.int, transf.dtocles.int, transf.exp.mode, transf.ilogit.mode, transf.iprobit.mode, transf.ztor.mode, transf.iarcsin.mode, transf.iahw.mode, transf.iabt.mode), deparse) if (is.null(targs) && any(sapply(funlist, identical, deparse(transf))) && inherits(x, c("rma.uni","rma.glmm")) && length(x$tau2 == 1L)) targs <- list(tau2=x$tau2) if (missing(control)) control <- list() ddd <- list(...) .chkdots(ddd, c("time", "xlim", "extint", "code1", "code2")) level <- .level(level, stopon100=isTRUE(ddd$extint)) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd$xlim)) { if (length(ddd$xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) control$vc.min <- ddd$xlim[1] control$vc.max <- ddd$xlim[2] } ### check if user has specified one of the tau2 or delta arguments random <- !all(missing(tau2), missing(delta)) if (!fixed && !random) { ### if both 'fixed' and 'random' are FALSE, obtain CIs for tau2 and all selection model parameters cl <- match.call() ### total number of non-fixed components comps <- ifelse(!is.element(x$method, c("FE","EE","CE")) && !x$tau2.fix, 1, 0) + sum(!x$delta.fix) if (comps == 0) stop(mstyle$stop("No components for which a CI can be obtained.")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) res.all <- list() j <- 0 if (!is.element(x$method, c("FE","EE","CE")) && !x$tau2.fix) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$tau2 <- 1 cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.uni.selmodel") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for tau2\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } if (any(!x$delta.fix)) { for (pos in seq_len(x$deltas)[!x$delta.fix]) { j <- j + 1 if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) cl.vc <- cl cl.vc$delta <- pos cl.vc$time <- FALSE #cl.vc$object <- quote(x) cl.vc[[1]] <- str2lang("metafor::confint.rma.uni.selmodel") if (verbose) cat(mstyle$verbose(paste("\nObtaining CI for delta =", pos, "\n"))) res.all[[j]] <- eval(cl.vc, envir=parent.frame()) } } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } if (length(res.all) == 1L) { return(res.all[[1]]) } else { res.all$digits <- digits class(res.all) <- "list.confint.rma" return(res.all) } } ######################################################################### ######################################################################### ######################################################################### if (random) { type <- "pl" ###################################################################### ### check if user has specified more than one of these arguments if (sum(!missing(tau2), !missing(delta)) > 1L) stop(mstyle$stop("Must specify only one of the 'tau2' or 'delta' arguments.")) ### check if model actually contains (at least one) such a component and that it was actually estimated if (!missing(tau2) && (is.element(x$method, c("FE","EE","CE")) || x$tau2.fix)) stop(mstyle$stop("Model does not contain an (estimated) 'tau2' component.")) if (!missing(delta) && all(x$delta.fix)) stop(mstyle$stop("Model does not contain any estimated 'delta' components.")) ### check if user specified more than one tau2 or delta component if (!missing(tau2) && (length(tau2) > 1L)) stop(mstyle$stop("Can only specify one 'tau2' component.")) if (!missing(delta) && (length(delta) > 1L)) stop(mstyle$stop("Can only specify one 'delta' component.")) ### check if user specified a logical if (!missing(tau2) && is.logical(tau2) && isTRUE(tau2)) tau2 <- 1 if (!missing(delta) && is.logical(delta)) stop(mstyle$stop("Must specify a number for the 'delta' component.")) ### check if user specified a component that does not exist if (!missing(tau2) && (tau2 > 1 || tau2 <= 0)) stop(mstyle$stop("No such 'tau2' component in the model.")) if (!missing(delta) && (delta > x$deltas || delta <= 0)) stop(mstyle$stop("No such 'delta' component in the model.")) ### check if user specified a component that was fixed if (!missing(tau2) && x$tau2.fix) stop(mstyle$stop("Specified 'tau2' component was fixed.")) if (!missing(delta) && x$delta.fix[delta]) stop(mstyle$stop("Specified 'delta' component was fixed.")) ### if everything is good so far, get value of the variance component and set 'comp' delta.pos <- NA_integer_ if (!missing(tau2)) { vc <- x$tau2 comp <- "tau2" tau2.pos <- 1 } if (!missing(delta)) { vc <- x$delta[delta] comp <- "delta" delta.pos <- delta } #return(list(comp=comp, vc=vc, tau2.pos=tau2.pos, delta.pos=delta.pos)) ###################################################################### ### set defaults for control parameters for uniroot() and replace with any user-defined values ### set vc.min and vc.max and possibly replace with any user-defined values con <- list(tol=.Machine$double.eps^0.25, maxiter=1000, verbose=FALSE, eptries=10) if (comp == "tau2") { con$vc.min <- 0 con$vc.max <- min(max(ifelse(vc <= .Machine$double.eps^0.5, 10, max(10, vc*100)), con$vc.min), x$tau2.max) } if (comp == "delta") { con$vc.min <- max(0, x$delta.min[delta]) con$vc.max <- min(max(ifelse(vc <= .Machine$double.eps^0.5, 10, max(10, vc*10)), con$vc.min), x$delta.max[delta]) } con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose ###################################################################### vc.lb <- NA_real_ vc.ub <- NA_real_ ci.null <- FALSE # logical if CI is a null set lb.conv <- FALSE # logical if search converged for lower bound (LB) ub.conv <- FALSE # logical if search converged for upper bound (UB) lb.sign <- "" # for sign in case LB must be below vc.min ("<") or above vc.max (">") ub.sign <- "" # for sign in case UB must be below vc.min ("<") or above vc.max (">") ###################################################################### ###################################################################### ###################################################################### ### Profile Likelihood method # TODO: could also provide Wald-type CIs (ci.lb.tau2, ci.ub.tau2) and (ci.lb.delta, ci.ub.delta) if (type == "pl") { if (con$vc.min > vc) stop(mstyle$stop("Lower bound of interval to be searched must be <= estimated value of component.")) if (con$vc.max < vc) stop(mstyle$stop("Upper bound of interval to be searched must be >= estimated value of component.")) objective <- qchisq(1-level, df=1) ################################################################### ### search for lower bound ### get diff value when setting component to vc.min; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the lower bound must be below vc.min epdiff <- abs(con$vc.min - vc) / con$eptries for (i in seq_len(con$eptries)) { res <- try(.profile.rma.uni.selmodel(con$vc.min, obj=x, comp=comp, delta.pos=delta.pos, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (!isTRUE(ddd$extint) && res < 0) { vc.lb <- con$vc.min lb.conv <- TRUE if (comp == "tau2" && con$vc.min > 0) lb.sign <- "<" if (comp == "delta" && con$vc.min > 0) lb.sign <- "<" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.uni.selmodel, interval=c(con$vc.min, vc), tol=con$tol, maxiter=con$maxiter, extendInt="downX", obj=x, comp=comp, delta.pos=delta.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.uni.selmodel, interval=c(con$vc.min, vc), tol=con$tol, maxiter=con$maxiter, obj=x, comp=comp, delta.pos=delta.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { vc.lb <- res lb.conv <- TRUE } } break } con$vc.min <- con$vc.min + epdiff } if (verbose) cat("\n") ################################################################### ### search for upper bound ### get diff value when setting component to vc.max; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the upper bound must be above vc.max epdiff <- abs(con$vc.max - vc) / con$eptries for (i in seq_len(con$eptries)) { res <- try(.profile.rma.uni.selmodel(con$vc.max, obj=x, comp=comp, delta.pos=delta.pos, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (!isTRUE(ddd$extint) && res < 0) { vc.ub <- con$vc.max ub.conv <- TRUE if (comp == "tau2") ub.sign <- ">" if (comp == "delta") ub.sign <- ">" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.uni.selmodel, interval=c(vc, con$vc.max), tol=con$tol, maxiter=con$maxiter, extendInt="upX", obj=x, comp=comp, delta.pos=delta.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.uni.selmodel, interval=c(vc, con$vc.max), tol=con$tol, maxiter=con$maxiter, obj=x, comp=comp, delta.pos=delta.pos, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { vc.ub <- res ub.conv <- TRUE } } break } con$vc.max <- con$vc.max - epdiff } ################################################################### } ###################################################################### ###################################################################### ###################################################################### if (!lb.conv) warning(mstyle$warning("Cannot obtain lower bound of profile likelihood CI due to convergence problems."), call.=FALSE) if (!ub.conv) warning(mstyle$warning("Cannot obtain upper bound of profile likelihood CI due to convergence problems."), call.=FALSE) ###################################################################### vc <- c(vc, vc.lb, vc.ub) if (comp == "tau2") { vcsqrt <- sqrt(ifelse(vc >= 0, vc, NA_real_)) res.random <- rbind(vc, vcsqrt) rownames(res.random) <- c("tau^2", "tau") } if (comp == "delta") { res.random <- rbind(vc) if (x$deltas == 1L) { rownames(res.random) <- "delta" } else { rownames(res.random) <- paste0("delta.", delta.pos) } } colnames(res.random) <- c("estimate", "ci.lb", "ci.ub") } ######################################################################### ######################################################################### ######################################################################### if (fixed) { if (is.element(x$test, c("knha","adhoc","t"))) { crit <- qt(level/2, df=x$ddf, lower.tail=FALSE) } else { crit <- qnorm(level/2, lower.tail=FALSE) } beta <- c(x$beta) ci.lb <- c(beta - crit * x$se) ci.ub <- c(beta + crit * x$se) if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] res.fixed <- cbind(estimate=beta, ci.lb=ci.lb, ci.ub=ci.ub) rownames(res.fixed) <- rownames(x$beta) } ######################################################################### ######################################################################### ######################################################################### res <- list() if (fixed) res$fixed <- res.fixed if (random) res$random <- res.random res$digits <- digits if (random) { res$ci.null <- ci.null res$lb.sign <- lb.sign res$ub.sign <- ub.sign #res$vc.min <- con$vc.min } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(res) <- "confint.rma" return(res) } metafor/R/formula.rma.r0000644000176200001440000000070515120213572014516 0ustar liggesusersformula.rma <- function(x, type="mods", ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma") type <- match.arg(type, c("mods", "yi", "scale")) if (type == "scale" && x$model != "rma.ls") stop(mstyle$stop("Can only use type='scale' for location-scale models.")) if (type == "mods") return(x$formula.mods) if (type == "yi") return(x$formula.yi) if (type == "scale") return(x$formula.scale) } metafor/R/predict.rma.r0000644000176200001440000007641415161227327014525 0ustar liggesuserspredict.rma <- function(object, newmods, intercept, tau2.levels, gamma2.levels, hetvar, addx=FALSE, level, adjust=FALSE, digits, transf, targs, vcov=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(object), must="rma", notav="rma.ls") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) x <- object mf <- match.call() # so that pairmat() works when the model object is not specified if (any(grepl("pairmat(", as.character(mf), fixed=TRUE))) { try(assign("pairmat", object, envir=.metafor), silent=TRUE) on.exit(suppressWarnings(rm("pairmat", envir=.metafor))) } if (missing(newmods)) newmods <- NULL if (missing(intercept)) { intercept <- x$intercept int.spec <- FALSE } else { int.spec <- TRUE } if (missing(tau2.levels)) tau2.levels <- NULL if (missing(gamma2.levels)) gamma2.levels <- NULL if (missing(hetvar)) { hetvar <- NULL } else { if (inherits(object, "rma.mv")) { if (!is.null(tau2.levels) || !is.null(gamma2.levels)) { tau2.levels <- NULL gamma2.levels <- NULL warning(mstyle$warning("Arguments 'tau2.levels' and 'gamma2.levels' ignored when specifying the 'hetvar' argument."), call.=FALSE) } } if (!is.numeric(hetvar)) stop(mstyle$stop("Argument 'hetvar' must be a numeric vector.")) } if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL funlist <- lapply(list(transf.exp.int, transf.ilogit.int, transf.iprobit.int, transf.ztor.int, transf.iarcsin.int, transf.iahw.int, transf.iabt.int, transf.dtocles.int, transf.exp.mode, transf.ilogit.mode, transf.iprobit.mode, transf.ztor.mode, transf.iarcsin.mode, transf.iahw.mode, transf.iabt.mode), deparse) if (is.null(targs) && any(sapply(funlist, identical, deparse(transf))) && inherits(x, c("rma.uni","rma.glmm")) && length(x$tau2 == 1L)) targs <- list(tau2=x$tau2) level <- .level(level) if (!is.logical(adjust)) stop(mstyle$stop("Argument 'adjust' must be a logical.")) ddd <- list(...) .chkdots(ddd, c("pi.type", "predtype", "newvi", "verbose")) pi.type <- .chkddd(ddd$pi.type, "default", tolower(ddd$pi.type)) predtype <- .chkddd(ddd$predtype, pi.type, tolower(ddd$predtype)) predtype <- match.arg(predtype, c("default","simple","riley","t")) if (x$int.only && !is.null(newmods)) stop(mstyle$stop("Cannot specify new moderator values for models without moderators.")) rnames <- NULL ######################################################################### # TODO: can this be simplified? (every time I sit down and stare at the mess below, it gives me a headache) if (is.null(newmods)) { # if no new moderator values are specified if (!inherits(object, "rma.mv") || (inherits(object, "rma.mv") && any(is.element(object$struct, c("GEN","GDIAG"))))) { # for rma.uni, rma.mh, rma.peto, and rma.glmm objects if (x$int.only) { # if intercept-only model predict only the intercept k.new <- 1L # X.new <- cbind(1) # } else { # otherwise predict for all k.f studies (including studies with NAs) k.new <- x$k.f # X.new <- x$X.f # } # } else { # for rma.mv objects if (x$int.only) { # if intercept-only model: if (!x$withG) { # # if there is no G structure (and hence also no H structure) k.new <- 1L # # then we just need to predict the intercept once X.new <- cbind(1) # } # if (x$withG && x$withH) { # # if there is both a G and H structure if (is.null(tau2.levels) && is.null(gamma2.levels)) { # # and user has not specified tau2s.levels and gamma2.levels k.new <- x$tau2s * x$gamma2s # # then we need to predict intercepts for all combinations of tau2 and gamma2 values X.new <- cbind(rep(1,k.new)) # if (x$tau2s == 1) { # # if there is only a single tau^2 tau2.levels <- rep(1,k.new) # # then tau2.levels should be 1 repeated k.new times } else { # tau2.levels <- rep(levels(x$mf.g.f$inner), each=x$gamma2s) # # otherwise repeat actual levels gamma2s times } # if (x$gamma2s == 1) { # # if there is only a single gamma^2 value gamma2.levels <- rep(1,k.new) # # then gamma2.levels should be 1 repeated k.new times } else { # gamma2.levels <- rep(levels(x$mf.h.f$inner), times=x$tau2s) # # otherwise repeat actual levels tau2s times } # } # if ((!is.null(tau2.levels) && is.null(gamma2.levels)) || # # if user specified only one of tau2.levels and gamma2.levels, throw an error (is.null(tau2.levels) && !is.null(gamma2.levels))) # stop(mstyle$stop("Either specify both of 'tau2.levels' and 'gamma2.levels' or neither.")) if (!is.null(tau2.levels) && !is.null(gamma2.levels)) { # # if user has specified both tau2s.levels and gamma2.levels if (length(tau2.levels) != length(gamma2.levels)) # stop(mstyle$stop("Length of 'tau2.levels' and 'gamma2.levels' are not the same.")) k.new <- length(tau2.levels) # # then we need to predict intercepts for those level combinations X.new <- cbind(rep(1,k.new)) # } # } # if (x$withG && !x$withH) { # # if there is only a G structure (and no H structure) if (is.null(tau2.levels)) { # # and user has not specified tau2.levels k.new <- x$tau2s # # then we need to predict intercepts for all tau2 values X.new <- cbind(rep(1,k.new)) # if (x$tau2s == 1) { # tau2.levels <- rep(1, k.new) # } else { # tau2.levels <- levels(x$mf.g.f$inner) # } # } else { # # and the user has specified tau2.levels k.new <- length(tau2.levels) # # then we need to predict intercepts for those levels X.new <- cbind(rep(1,k.new)) # } # gamma2.levels <- rep(1, k.new) # } # } else { # if not an intercept-only model k.new <- x$k.f # # then predict for all k.f studies (including studies with NAs) X.new <- x$X.f # if (!is.null(tau2.levels) || !is.null(gamma2.levels)) # warning(mstyle$warning("Arguments 'tau2.levels' and 'gamma2.levels' ignored when obtaining fitted values."), call.=FALSE) tau2.levels <- as.character(x$mf.g.f$inner) # gamma2.levels <- as.character(x$mf.h.f$inner) # } # } } else { # if new moderator values have been specified if (!(.is.vector(newmods) || inherits(newmods, "matrix"))) stop(mstyle$stop(paste0("Argument 'newmods' should be a vector or matrix, but is of class '", class(newmods)[1], "'."))) singlemod <- (NCOL(newmods) == 1L) && ((!x$int.incl && x$p == 1L) || (x$int.incl && x$p == 2L)) if (singlemod) { # if single moderator (multiple k.new possible) (either without or with intercept in the model) k.new <- length(newmods) # (but when specifying a matrix, it must be a column vector for this work) X.new <- cbind(c(newmods)) # if (.is.vector(newmods)) { # rnames <- names(newmods) # } else { # rnames <- rownames(newmods) # } # } else { # in case the model has more than one predictor: if (.is.vector(newmods) || nrow(newmods) == 1L) { # # if user gives one vector or one row matrix (only one k.new): k.new <- 1L # X.new <- rbind(newmods) # if (inherits(newmods, "matrix")) # rnames <- rownames(newmods) # } else { # # if user gives multiple rows and columns (multiple k.new): k.new <- nrow(newmods) # X.new <- cbind(newmods) # rnames <- rownames(newmods) # } # # allow matching of terms by names (note: only possible if all columns in X.new and x$X have colnames) if (!is.null(colnames(X.new)) && all(colnames(X.new) != "") && !is.null(colnames(x$X)) && all(colnames(x$X) != "")) { colnames.mod <- colnames(x$X) if (x$int.incl) colnames.mod <- colnames.mod[-1] pos <- sapply(colnames(X.new), function(colname) { d <- c(adist(colname, colnames.mod, costs=c(ins=1, sub=Inf, del=Inf))) # compute edit distances with Inf costs for substitutions/deletions if (all(is.infinite(d))) # if there is no match, then all elements are Inf stop(mstyle$stop(paste0("Could not find variable '", colname, "' in the model."))) d <- which(d == min(d)) # don't use which.min() since that only finds the first minimum if (length(d) > 1L) # if there is no unique match, then there is more than one minimum stop(mstyle$stop(paste0("Could not match up variable '", colname, "' uniquely to a variable in the model."))) return(d) }) if (anyDuplicated(pos)) { # if the same name is used more than once, then there will be duplicated pos values dups <- paste(unique(colnames(X.new)[duplicated(pos)]), collapse=", ") stop(mstyle$stop(paste0("Found multiple matches for the same variable name (", dups, ")."))) } if (length(pos) != length(colnames.mod)) { no.match <- colnames.mod[seq_along(colnames.mod)[-pos]] if (length(no.match) > 3L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for these variables: ", paste0(no.match[1:3], collapse=", "), ", ..."))) if (length(no.match) > 1L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for these variables: ", paste0(no.match, collapse=", ")))) if (length(no.match) == 1L) stop(mstyle$stop(paste0("Argument 'newmods' does not specify values for this variable: ", no.match))) } X.new <- X.new[,order(pos),drop=FALSE] colnames(X.new) <- colnames.mod } } if (inherits(X.new[1,1], "character")) stop(mstyle$stop("Argument 'newmods' should only contain numeric variables.")) # if the user has specified newmods and an intercept was included in the original model, add the intercept to X.new # but user can also decide to remove the intercept from the predictions with intercept=FALSE (but only do this when # newmods was not a matrix with p columns) if (!singlemod && ncol(X.new) == x$p) { if (int.spec) warning(mstyle$warning("Arguments 'intercept' ignored when 'newmods' includes 'p' columns."), call.=FALSE) } else { if (x$int.incl) { if (intercept) { X.new <- cbind(intrcpt=1, X.new) } else { X.new <- cbind(intrcpt=0, X.new) } } } if (ncol(X.new) != x$p) stop(mstyle$stop(paste0("Dimensions of 'newmods' (", ncol(X.new), ") do not the match dimensions of the model (", x$p, ")."))) } if (is.null(X.new)) stop(mstyle$stop("Matrix 'X.new' is NULL.")) #return(list(k.new=k.new, tau2=x$tau2, gamma2=x$gamma2, tau2.levels=tau2.levels, gamma2.levels=gamma2.levels)) ######################################################################### # for rma.mv models with multiple tau^2 values, must use tau2.levels argument when using newmods to obtain prediction intervals if (inherits(object, "rma.mv") && x$withG) { if (x$tau2s > 1L) { if (is.null(tau2.levels)) { #warning(mstyle$warning("Must specify the 'tau2.levels' argument to obtain prediction intervals."), call.=FALSE) } else { # if tau2.levels argument is a character vector, check that specified tau^2 values actually exist if (!is.numeric(tau2.levels) && anyNA(pmatch(tau2.levels, x$g.levels.f[[1]], duplicates.ok=TRUE))) stop(mstyle$stop("Non-existing levels specified via 'tau2.levels' argument.")) # if tau2.levels argument is numeric, check that specified tau^2 values actually exist if (is.numeric(tau2.levels)) { tau2.levels <- round(tau2.levels) if (any(tau2.levels < 1) || any(tau2.levels > x$g.nlevels.f[1])) stop(mstyle$stop("Non-existing tau^2 values specified via 'tau2.levels' argument.")) } # allow quick setting of all levels tau2.levels <- .expand1(tau2.levels, k.new) # check length of tau2.levels argument if (length(tau2.levels) != k.new) stop(mstyle$stop(paste0("Length of the 'tau2.levels' argument (", length(tau2.levels), ") does not match the number of predicted values (", k.new, ")."))) } } else { tau2.levels <- rep(1, k.new) } } # for rma.mv models with multiple gamma^2 values, must use gamma.levels argument when using newmods to obtain prediction intervals if (inherits(object, "rma.mv") && x$withH) { if (x$gamma2s > 1L) { if (is.null(gamma2.levels)) { #warning(mstyle$warning("Must specify the 'gamma2.levels' argument to obtain prediction intervals."), call.=FALSE) } else { # if gamma2.levels argument is a character vector, check that specified gamma^2 values actually exist if (!is.numeric(gamma2.levels) && anyNA(pmatch(gamma2.levels, x$h.levels.f[[1]], duplicates.ok=TRUE))) stop(mstyle$stop("Non-existing levels specified via 'gamma2.levels' argument.")) # if gamma2.levels argument is numeric, check that specified gamma^2 values actually exist if (is.numeric(gamma2.levels)) { gamma2.levels <- round(gamma2.levels) if (any(gamma2.levels < 1) || any(gamma2.levels > x$h.nlevels.f[1])) stop(mstyle$stop("Non-existing gamma^2 values specified via 'gamma2.levels' argument.")) } # allow quick setting of all levels gamma2.levels <- .expand1(gamma2.levels, k.new) # check length of gamma2.levels argument if (length(gamma2.levels) != k.new) stop(mstyle$stop(paste0("Length of the 'gamma2.levels' argument (", length(gamma2.levels), ") does not match the number of predicted values (", k.new, ")."))) } } else { gamma2.levels <- rep(1, k.new) } } ######################################################################### if (inherits(x, "robust.rma") && x$robumethod == "clubSandwich") { if (x$coef_test == "saddlepoint") stop(mstyle$stop("Cannot use method when saddlepoint correction was used.")) cs.lc <- try(clubSandwich::linear_contrast(x, cluster=x$cluster, vcov=x$vb, test=x$coef_test, contrasts=X.new, p_values=FALSE, level=1-level), silent=!isTRUE(ddd$verbose)) if (inherits(cs.lc, "try-error")) stop(mstyle$stop("Could not obtain the linear contrast(s) (use verbose=TRUE for more details).")) pred <- cs.lc$Est se <- cs.lc$SE vpred <- se^2 ddf <- cs.lc$df crit <- sapply(seq_along(ddf), function(j) if (ddf[j] > 0) qt(level/ifelse(adjust, 2*k.new, 2), df=ddf[j], lower.tail=FALSE) else NA_real_) #ci.lb <- cs.lc$CI_L #ci.ub <- cs.lc$CI_U ci.lb <- pred - crit * se ci.ub <- pred + crit * se x$test <- switch(x$coef_test, "z"="z", "naive-t"="t", "naive-tp"="t", "Satterthwaite"="t") } else { # ddf calculation for x$test %in% c("knha","adhoc","t") but also need this # for pi.ddf calculation when test="z" and predtype %in% c("riley","t") if (length(x$ddf) == 1L) { ddf <- rep(x$ddf, k.new) # when test="z", x$ddf is NA, so this then results in a vector of NAs } else { ddf <- rep(NA_integer_, k.new) for (j in seq_len(k.new)) { bn0 <- X.new[j,] != 0 # determine which coefficients are involved in the linear contrast ddf[j] <- min(x$ddf[bn0]) # take the smallest ddf value for those coefficients } } ddf[is.na(ddf)] <- x$k - x$p # when test="z", turn all NAs into the usual k-p dfs # predicted values, SEs, and confidence intervals pred <- rep(NA_real_, k.new) vpred <- rep(NA_real_, k.new) for (i in seq_len(k.new)) { Xi.new <- X.new[i,,drop=FALSE] pred[i] <- Xi.new %*% x$beta vpred[i] <- Xi.new %*% tcrossprod(x$vb, Xi.new) } if (is.element(x$test, c("knha","adhoc","t"))) { crit <- sapply(seq_along(ddf), function(j) if (ddf[j] > 0) qt(level/ifelse(adjust, 2*k.new, 2), df=ddf[j], lower.tail=FALSE) else NA_real_) } else { crit <- qnorm(level/ifelse(adjust, 2*k.new, 2), lower.tail=FALSE) } vpred[vpred < 0] <- NA_real_ se <- sqrt(vpred) ci.lb <- pred - crit * se ci.ub <- pred + crit * se } ######################################################################### if (vcov) vcovpred <- symmpart(X.new %*% x$vb %*% t(X.new)) if (predtype == "simple") { crit <- qnorm(level/ifelse(adjust, 2*k.new, 2), lower.tail=FALSE) vpred <- 0 } pi.ddf <- ddf if (is.element(predtype, c("riley","t"))) { if (predtype == "riley") pi.ddf <- ddf - x$parms + x$p if (predtype == "t") pi.ddf <- ddf pi.ddf[pi.ddf < 1] <- 1 crit <- sapply(seq_along(pi.ddf), function(j) if (pi.ddf[j] > 0) qt(level/ifelse(adjust, 2*k.new, 2), df=pi.ddf[j], lower.tail=FALSE) else NA_real_) } if (is.null(ddd$newvi)) { newvi <- 0 } else { newvi <- ddd$newvi newvi <- .expand1(newvi, k.new) if (length(newvi) != k.new) stop(mstyle$stop(paste0("Length of the 'newvi' argument (", length(newvi), ") does not match the number of predicted values (", k.new, ")."))) } ######################################################################### # prediction intervals pi.se <- NULL if (is.null(hetvar)) { if (!inherits(object, "rma.mv")) { # for rma.uni, rma.mh, rma.peto, and rma.glmm objects (in rma.mh and rma.peto, tau2 = 0 by default and stored as such) pi.se <- sqrt(vpred + x$tau2 + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se } else { # for rma.mv objects if (!x$withG) { # if there is no G structure (and hence no H structure), there are no tau2 and gamma2 values, so just add the sum of all of the sigma2 values pi.se <- sqrt(vpred + sum(x$sigma2) + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se } if (x$withG && !x$withH) { # if there is a G structure but no H structure if (x$tau2s == 1L) { # if there is only a single tau^2 value, always add that (in addition to the sum of all of the sigma^2 values) pi.se <- sqrt(vpred + sum(x$sigma2) + x$tau2 + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se } else { if (is.null(tau2.levels)) { # if user has not specified tau2.levels, cannot compute bounds pi.lb <- rep(NA_real_, k.new) pi.ub <- rep(NA_real_, k.new) tau2.levels <- rep(NA, k.new) } else { # if there are multiple tau^2 values, either let user define numerically which value(s) to use or # match the position of the specified tau2.levels to the levels of the inner factor in the model if (!is.numeric(tau2.levels)) tau2.levels <- pmatch(tau2.levels, x$g.levels.f[[1]], duplicates.ok=TRUE) pi.se <- sqrt(vpred + sum(x$sigma2) + x$tau2[tau2.levels] + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se tau2.levels <- x$g.levels.f[[1]][tau2.levels] } } } if (x$withG && x$withH) { # if there is a G structure and an H structure if (x$tau2s == 1L && x$gamma2s == 1L) { # if there is only a single tau^2 and gamma^2 value, always add that (in addition to the sum of all of the sigma^2 values) pi.se <- sqrt(vpred + sum(x$sigma2) + x$tau2 + x$gamma2 + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se } else { if (is.null(tau2.levels) || is.null(gamma2.levels)) { # if user has not specified tau2.levels and gamma2.levels, cannot compute bounds pi.lb <- rep(NA_real_, k.new) pi.ub <- rep(NA_real_, k.new) tau2.levels <- rep(NA, k.new) gamma2.levels <- rep(NA, k.new) } else { # if there are multiple tau^2 and/or gamma^2 values, either let user define numerically which value(s) to use or # match the position of the specified tau2.levels and gamma2.levels to the levels of the inner factors in the model if (!is.numeric(tau2.levels)) tau2.levels <- pmatch(tau2.levels, x$g.levels.f[[1]], duplicates.ok=TRUE) if (!is.numeric(gamma2.levels)) gamma2.levels <- pmatch(gamma2.levels, x$h.levels.f[[1]], duplicates.ok=TRUE) pi.se <- sqrt(vpred + sum(x$sigma2) + x$tau2[tau2.levels] + x$gamma2[gamma2.levels] + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se tau2.levels <- x$g.levels.f[[1]][tau2.levels] gamma2.levels <- x$h.levels.f[[1]][gamma2.levels] } } } } } else { hetvar <- .expand1(hetvar, k.new) if (length(hetvar) != k.new) stop(mstyle$stop(paste0("Length of the 'hetvar' argument (", length(newvi), ") does not match the number of predicted values (", k.new, ")."))) pi.se <- sqrt(vpred + hetvar + newvi) pi.lb <- pred - crit * pi.se pi.ub <- pred + crit * pi.se } ######################################################################### # apply transformation function if one has been specified if (is.function(transf)) { if (is.null(targs)) { pred <- sapply(pred, transf) se <- rep(NA_real_, k.new) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) pi.lb <- sapply(pi.lb, transf) pi.ub <- sapply(pi.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) pred <- sapply(pred, transf, targs) se <- rep(NA_real_, k.new) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) pi.lb <- sapply(pi.lb, transf, targs) pi.ub <- sapply(pi.ub, transf, targs) } do.transf <- TRUE } else { do.transf <- FALSE } # make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] tmp <- .psort(pi.lb, pi.ub) pi.lb <- tmp[,1] pi.ub <- tmp[,2] # use study labels from the object when the model has moderators and no new moderators have been specified # otherwise, just use consecutive numbers to label the predicted values if (is.null(newmods) && !x$int.only) { slab <- x$slab } else { slab <- seq_len(k.new) if (!is.null(rnames)) slab <- rnames } # add row/colnames to vcovpred if (vcov) rownames(vcovpred) <- colnames(vcovpred) <- slab # but when predicting just a single value, use "" as study label if (k.new == 1L && is.null(rnames)) slab <- "" # handle NAs not.na <- rep(TRUE, k.new) if (na.act == "na.omit") { if (is.null(newmods) && !x$int.only) { not.na <- x$not.na } else { not.na <- !is.na(pred) } } #if (na.act == "na.omit") { # not.na <- !is.na(pred) #} else { # not.na <- rep(TRUE, k.new) #} if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) out <- list(pred=pred[not.na], se=se[not.na], ci.lb=ci.lb[not.na], ci.ub=ci.ub[not.na], pi.lb=pi.lb[not.na], pi.ub=pi.ub[not.na], cr.lb=pi.lb[not.na], cr.ub=pi.ub[not.na]) if (vcov) vcovpred <- vcovpred[not.na,not.na,drop=FALSE] if (na.act == "na.exclude" && is.null(newmods) && !x$int.only) { out <- lapply(out, function(val) ifelse(x$not.na, val, NA_real_)) if (vcov) { vcovpred[!x$not.na,] <- NA_real_ vcovpred[,!x$not.na] <- NA_real_ } } # add tau2.levels values to list if (inherits(object, "rma.mv") && x$withG && x$tau2s > 1L) out$tau2.level <- tau2.levels # add gamma2.levels values to list if (inherits(object, "rma.mv") && x$withH && x$gamma2s > 1L) out$gamma2.level <- gamma2.levels # add X matrix to list if (addx) { out$X <- matrix(X.new[not.na,], ncol=x$p) colnames(out$X) <- colnames(x$X) } # add slab values to list out$slab <- slab[not.na] # add some additional info out$digits <- digits out$method <- x$method out$transf <- do.transf out$pred.type <- "location" if (x$test != "z") out$ddf <- ddf if ((x$test != "z" || is.element(predtype, c("riley","t"))) && predtype != "simple") { out$pi.dist <- "t" out$pi.ddf <- pi.ddf } else { out$pi.dist <- "norm" } out$pi.se <- pi.se # add some info to pi.lb attr(out$pi.lb, "level") <- level attr(out$pi.lb, "dist") <- out$pi.dist if (out$pi.dist == "t") { attr(out$pi.lb, "ddf") <- out$pi.ddf } attr(out$pi.lb, "se") <- pi.se # for rma.mv models with a GEN structure, remove PI bounds if (inherits(object, "rma.mv") && any(is.element(object$struct, c("GEN","GDIAG")))) { out$cr.lb <- NULL out$cr.ub <- NULL out$pi.lb <- NULL out$pi.ub <- NULL out$tau2.level <- NULL out$gamma2.level <- NULL } # for FE/EE/CE models, remove the PI bounds if (is.element(x$method, c("FE","EE","CE"))) { out$cr.lb <- NULL out$cr.ub <- NULL out$pi.lb <- NULL out$pi.ub <- NULL } # for certain transformations, remove the PI bounds funlist <- lapply(list(transf.exp.int, transf.ilogit.int, transf.iprobit.int, transf.ztor.int, transf.iarcsin.int, transf.iahw.int, transf.iabt.int, transf.dtocles.int, transf.exp.mode, transf.ilogit.mode, transf.iprobit.mode, transf.ztor.mode, transf.iarcsin.mode, transf.iahw.mode, transf.iabt.mode), deparse) if (do.transf && any(sapply(funlist, identical, deparse(transf)))) { out$cr.lb <- NULL out$cr.ub <- NULL out$pi.lb <- NULL out$pi.ub <- NULL } class(out) <- c("predict.rma", "list.rma") if (vcov & !do.transf) { out <- list(pred=out) if (!inherits(vcovpred, "sparseMatrix")) class(vcovpred) <- c("vcovmat", class(vcovpred)) out$vcov <- vcovpred } return(out) } metafor/R/weights.rma.uni.r0000644000176200001440000000326115120213572015315 0ustar liggesusersweights.rma.uni <- function(object, type="diagonal", ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.uni", notav=c("rma.gen", "rma.uni.selmodel")) if (is.null(object$not.na)) stop(mstyle$stop("Information needed to compute the weights is not available in the model object.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) type <- match.arg(type, c("diagonal", "matrix")) x <- object ######################################################################### if (x$weighted) { if (is.null(x$weights)) { W <- .diag(1/(x$vi + x$tau2)) } else { W <- .diag(x$weights) } } else { W <- .diag(1/x$k, dim=x$k) } ######################################################################### if (type == "diagonal") { wi <- as.vector(diag(W)) weight <- rep(NA_real_, x$k.f) weight[x$not.na] <- wi / sum(wi) * 100 names(weight) <- x$slab if (na.act == "na.omit") weight <- weight[x$not.na] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in weights.")) return(weight) } if (type == "matrix") { Wfull <- matrix(NA_real_, nrow=x$k.f, ncol=x$k.f) Wfull[x$not.na, x$not.na] <- W rownames(Wfull) <- x$slab colnames(Wfull) <- x$slab if (na.act == "na.omit") Wfull <- Wfull[x$not.na, x$not.na, drop=FALSE] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(Wfull) } } metafor/R/misc.func.hidden.r0000644000176200001440000022525015156004244015421 0ustar liggesusers############################################################################ ### function to set default 'btt' value(s) or check specified 'btt' values .set.btt <- function(btt, p, int.incl, Xnames, fixed=FALSE) { mstyle <- .get.mstyle() if (missing(btt) || is.null(btt)) { if (p > 1L) { # if the model matrix has more than one column if (int.incl) { btt <- seq.int(from=2, to=p) # and the model has an intercept term, test all coefficients except the intercept } else { btt <- seq_len(p) # and the model does not have an intercept term, test all coefficients } } else { btt <- 1L # if the model matrix has a single column, test that single coefficient } } else { if (is.character(btt)) { btt <- grep(btt, Xnames, fixed=fixed) if (length(btt) == 0L) stop(mstyle$stop("Cannot identify coefficient(s) corresponding to the specified 'btt' string."), call.=FALSE) } else { ### round, take unique values, sort, and turn into integer(s) btt <- as.integer(sort(unique(round(btt)))) ### check for mix of positive and negative values if (any(btt < 0) && any(btt > 0)) stop(mstyle$stop("Cannot mix positive and negative 'btt' values."), call.=FALSE) ### keep/remove from 1:p vector as specified btt <- seq_len(p)[btt] ### (1:5)[5:6] yields c(5, NA) so remove NAs if this happens btt <- btt[!is.na(btt)] ### make sure that at least one valid value is left if (length(btt) == 0L) stop(mstyle$stop("Non-existent coefficient(s) specified via 'btt'."), call.=FALSE) } } return(btt) } ### function to format 'btt' value(s) for printing .format.btt <- function(btt) { sav <- c() if (length(btt) > 1L) { btt <- sort(btt) while (length(btt) > 0L) { x <- rle(diff(btt)) if (x$values[1] == 1 && length(x$values) != 0L) { sav <- c(sav, c(btt[1], ":", btt[x$lengths[1] + 1])) btt <- btt[-c(1:(x$lengths[1] + 1))] #sav <- c(sav, ", ") # this adds a space between multiple a:b sets sav <- c(sav, ",") } else { sav <- c(sav, btt[1], ",") btt <- btt[-1] } } sav <- paste0(sav[-length(sav)], collapse="") } else { sav <- paste0(btt) } return(sav) } ############################################################################ ### pairwise sorting of the elements of two vectors #.psort.old <- function(x, y) { # # if (is.null(x) || length(x) == 0L) # need to catch this # return(NULL) # # if (missing(y)) { # if (is.matrix(x)) { # xy <- x # } else { # xy <- rbind(x) # in case x is just a vector # } # } else { # xy <- cbind(x,y) # } # # n <- nrow(xy) # # for (i in seq_len(n)) { # if (anyNA(xy[i,])) # next # xy[i,] <- sort(xy[i,]) # } # # colnames(xy) <- NULL # # return(xy) # #} .psort <- function(x, y, as.list=FALSE) { # simpler / vectorized version that also deals with x and y being matrices # (of the same dimensions) for elementwise swapping of pairs as needed # t(apply(xy, 1, sort)) would be okay, but problematic if there are NAs; # either they are removed completely (na.last=NA) or they are always put # first/last (na.last=FALSE/TRUE); but we just want to leave the NAs in # their position! if (is.null(x) || length(x) == 0L) # need to catch this return(NULL) if (missing(y)) { if (is.matrix(x)) { y <- x[,2] x <- x[,1] } else { y <- x[2] x <- x[1] } } flip <- x > y flip[is.na(flip)] <- FALSE x.flip <- x y.flip <- y x.flip[flip] <- y[flip] y.flip[flip] <- x[flip] if (as.list) { return(list(x=x.flip, y=y.flip)) } else { return(unname(cbind(x.flip, y.flip))) } } ############################################################################ ### function for applying observation limits .applyolim <- function(x, olim) { x[x < olim[1]] <- olim[1] x[x > olim[2]] <- olim[2] return(x) } ############################################################################ ### function to take the square root of a vector of numbers, giving NA for negative numbers (without a warning) .sqrt <- function(x) sapply(x, function(x) if (is.na(x) || x < 0) NA_real_ else sqrt(x)) ### function to construct a diagonal matrix that also works if x is a scalar .diag <- function(x, names=TRUE, dim) { if (missing(dim)) { k <- NROW(x) } else { k <- dim } diag(x, nrow=k, ncol=k, names=names) } ### function to obtain the trace of a matrix .tr <- function(X) return(sum(diag(X))) ### function to check if a matrix is square .is.square <- function(X) NROW(X) == NCOL(X) ### use NROW/NCOL to better deal with scalars; compare: ### (V <- list(matrix(1, nrow=2, ncol=2), 3, c(1,4), cbind(c(2,1)))); sapply(V, function(x) nrow(x) == ncol(x)); sapply(V, function(x) NROW(x) == NCOL(x)) ### function to test whether a vector is all equal to 1s (e.g., to find intercept(s) in a model matrix) .is.intercept <- function(x, eps=1e-08) return(all(abs(x - 1) < eps)) ### function to check if a formula is simply '~ 1' .is.tilde1 <- function(f) { # isTRUE(all.equal(f, ~ 1)) tt <- terms(f) length(attr(tt, "term.labels")) == 0L && attr(tt, "intercept") == 1L } ### function to test whether a vector is a dummy variable (i.e., consists of only 0s and 1s) .is.dummy <- function(x, eps=1e-08) return(all(abs(x) < eps | abs(x - 1) < eps)) #return(all(sapply(x, identical, 0) | sapply(x, identical, 1))) ### function to test whether something is a vector (in the sense of being atomic, not a matrix, and not NULL) .is.vector <- function(x) is.atomic(x) && !is.matrix(x) && !is.null(x) ### function to test if a string is an integer and to return the integer if so (otherwise return NA) .is.stringint <- function(x) { is.int <- grepl("^[0-9]+L?$", x) if (is.int) { x <- sub("L", "", x, fixed=TRUE) x <- as.integer(x) } else { x <- NA } return(x) } ### function to test if x is a matrix and that also covers Matrix objects .is.matrix <- function(x) is.matrix(x) || inherits(x, "Matrix") ### function to test if x is numeric but also allow a (vector of) NA .is.numeric <- function(x) { if (all(is.na(x))) return(TRUE) is.numeric(x) } ### function to test if two model matrices are nested .is.nested <- function(x1, x2) { if (nrow(x1) != nrow(x2)) return(FALSE) # compute ranks manually using qr() #qrx1 <- try(qr(x1), silent=TRUE) #qrx2 <- try(qr(x2), silent=TRUE) #qrx1x2 <- try(qr(cbind(x1, x2)), silent=TRUE) #if (inherits(qrx1, "try-error") || inherits(qrx2, "try-error") || inherits(qrx1x2, "try-error")) # return(FALSE) #rank.f <- max(qrx1$rank, qrx2$rank) #rank.c <- qrx1x2$rank # use Matrix::rankMatrix() rank.f <- c(max(rankMatrix(x1), rankMatrix(x2))) rank.c <- c(rankMatrix(cbind(x1,x2))) return(identical(rank.f, rank.c)) } ### sapply()-like function but for matrices that always preserves the matrix dimensions (used in traceplot.rma.uni()) .matapply <- function(x, FUN, targs=NULL) { if (is.null(x)) return(NULL) if (is.null(targs)) { x[] <- sapply(x, FUN) } else { x[] <- sapply(x, FUN, targs) } return(x) } ### check if ddd element is NULL; if so, return ifnull, otherwise return the ddd element or ifnot (if the latter is not NULL) .chkddd <- function(x, ifnull=NULL, ifnot=NULL) { if (is.null(x)) { return(ifnull) } else { if (is.null(ifnot)) { return(x) } else { return(ifnot) } } } ### function that expands a scalar to length k; can also expand a scalar to ### the maximum length of the list elements given to k .expand1 <- function(x, k) { if (is.list(k)) k <- max(lengths(k, use.names=FALSE)) if (length(x) == 1L) x <- rep(x, k) return(x) } ### function that takes a vector as input and creates an expanded vector of ### the length of 'fill' of all NAs but where the fill values are given by x ### (can also take an entire list as input) .expandna <- function(x, fill) { if (is.list(x)) { return(lapply(x, function(xi) .expandna(xi, fill))) } else { if (!is.logical(fill)) stop("Argument 'fill' is not a logical vector.") k <- length(fill) out <- rep(NA_real_, k) out[fill] <- x return(out) } } ############################################################################ ### function to format p-values (no longer used; use fmtp() instead) ### if showeq=FALSE, c(0.001, 0.00001) becomes c("0.0010", "<.0001") ### if showeq=TRUE, c(0.001, 0.00001) becomes c("=0.0010", "<.0001") ### if add0=FALSE, "<.0001"; if add0=TRUE, "<0.0001" .pval <- function(p, digits=4, showeq=FALSE, sep="", add0=FALSE) { digits <- max(digits, 1) cutoff <- paste(c(".", rep(0,digits-1),1), collapse="") ncutoff <- as.numeric(cutoff) ifelse(is.na(p), paste0(ifelse(showeq, "=", ""), sep, "NA"), ifelse(p >= ncutoff, paste0(ifelse(showeq, "=", ""), sep, formatC(p, digits=digits, format="f")), paste0("<", sep, ifelse(add0, "0", ""), cutoff))) } ### function to format/round values in general (no longer used; use fmtx() instead) .fcf <- function(x, digits) { if (all(is.na(x))) { # since formatC(NA, format="f", digits=2) fails rep("NA", length(x)) } else { trimws(formatC(x, format="f", digits=digits)) } } ### function to handle 'level' argument .level <- function(level, allow.vector=FALSE, argname="level", stopon100=FALSE) { if (is.null(level)) return(NULL) mstyle <- .get.mstyle() if (any(level > 100) || any(level < 0)) stop(mstyle$stop(paste0("Argument '", argname, "' must be between 0 and 100.")), call.=FALSE) if (isTRUE(stopon100) && any(level==100)) stop(mstyle$stop(paste0("Argument '", argname, "' cannot be equal to 100.")), call.=FALSE) if (!allow.vector && length(level) != 1L) stop(mstyle$stop(paste0("Argument '", argname, "' must specify a single value.")), call.=FALSE) if (!is.numeric(level)) stop(mstyle$stop(paste0("The '", argname, "' argument must be numeric.")), call.=FALSE) ifelse(level == 0, 1, ifelse(level >= 1, (100-level)/100, ifelse(level > 0.5, 1-level, level))) } ############################################################################ ### function to print a named (character) vector right aligned with ### a gap of two spaces between adjacent values and no padding .print.vector <- function(x, minfoot=NA, print.gap=2) { empty.last.colname <- colnames(x)[length(colnames(x))] == "" if (is.null(names(x))) names(x) <- seq_along(x) gap <- paste0(rep(" ", print.gap), collapse="") len.n <- nchar(names(x)) len.x <- nchar(x, keepNA=FALSE) len.max <- pmax(len.n, len.x) #format <- sapply(len.max, function(x) paste("%", x, "s", sep="")) #row.n <- paste(sprintf(format, names(x)), collapse=gap) # sprintf("%3s", "\u00b9") isn't right #row.x <- paste(sprintf(format, x), collapse=gap) #f <- function(x, n) # paste0(paste0(rep(" ", n-nchar(x)), collapse=""), x, collapse="") #row.n <- paste(mapply(f, names(x), len.max), collapse=gap) #row.x <- paste(mapply(f, unname(x), len.max), collapse=gap) if (is.na(minfoot)) { row.n <- paste(mapply(formatC, names(x), width=len.max), collapse=gap) # formatC("\u00b9", width=3) works row.x <- paste(mapply(formatC, x, width=len.max), collapse=gap) } else { row.n <- mapply(formatC, names(x), width=len.max) row.n[minfoot] <- paste0(" ", row.n[minfoot]) row.n <- paste(row.n, collapse=gap) row.x <- mapply(formatC, x, width=len.max) if (empty.last.colname) { row.x[length(row.x)] <- paste0(" ", row.x[length(row.x)]) } else { row.x[length(row.x)] <- paste0(row.x[length(row.x)], " ") } row.x <- paste(row.x, collapse=gap) } cat(row.n, "\n", row.x, "\n", sep="") } .addfootsym <- function(x, cols, footsym) { nc <- length(cols) if (length(footsym) == 1L) footsym <- rep(footsym, nc) if (length(footsym) != nc) stop(paste0("Length of 'cols' not the same as length of 'footsym' in .addfootsym()."), call.=FALSE) for (i in seq_along(cols)) { colnames(x)[cols[i]] <- paste0(colnames(x)[cols[i]], footsym[i]) x[[cols[i]]] <- paste0(x[[cols[i]]], " ") } return(x) } ############################################################################ .space <- function(x=TRUE) { if (exists(".rmspace")) { addspace <- FALSE } else { addspace <- isTRUE(getmfopt("space", default=TRUE)) } if (addspace && x) cat("\n") if (!addspace && !x) cat("\n") } .get.footsym <- function() { fs <- getmfopt("footsym") if (is.null(fs) || length(fs) != 6L) fs <- c("\u00b9", "1)", "\u00b2", "2)", "\u00b3", "3)") return(fs) } # setmfopt(footsym = c("\u00b9", "\u00b9\u207e", "\u00b2", "\u00b2\u207e", "\u00b3", "\u00b3\u207e")) ############################################################################ ### function that prints the model fitting time .print.time <- function(x) { mstyle <- .get.mstyle() hours <- floor(x/60/60) minutes <- floor(x/60) - hours*60 seconds <- round(x - minutes*60 - hours*60*60, ifelse(x > 60, 0, 2)) cat("\n") cat(mstyle$message(paste("Processing time:", hours, ifelse(hours == 0 || hours > 1, "hours,", "hour,"), minutes, ifelse(minutes == 0 || minutes > 1, "minutes,", "minute,"), seconds, ifelse(x < 60 || seconds == 0 || seconds > 1, "seconds", "second")))) cat("\n") } ############################################################################ ### function like make.unique(), but starts at .1 for the first instance ### of a repeated element .make.unique <- function(x) { if (is.null(x)) return(NULL) x <- as.character(x) ux <- unique(x) for (i in seq_along(ux)) { #xiTF <- x == ux[i] xiTF <- x %in% ux[i] # works also with NAs in vector (multiple NAs are then NA.1, NA.2, ...) xi <- x[xiTF] if (length(xi) == 1L) next x[xiTF] <- paste(xi, seq_along(xi), sep=".") } return(x) } ############################################################################ ### function to check if extra/superfluous arguments are specified via ... .chkdots <- function(ddd, okargs) { for (i in seq_along(okargs)) ddd[okargs[i]] <- NULL if (length(ddd) > 0L) { mstyle <- .get.mstyle() warning(mstyle$warning(paste0("Extra argument", ifelse(length(ddd) > 1L, "s ", " "), "(", paste0("'", names(ddd), "'", collapse=", "), ") disregarded.")), call.=FALSE) } } ############################################################################ .getx <- function(x, mf, data, enclos=sys.frame(sys.parent(n=2)), checknull=TRUE, checknumeric=FALSE, default) { mstyle <- .get.mstyle() mf.getx <- match.call() dname <- deparse1(mf.getx[[match("data", names(mf.getx))]]) dname <- deparse1(mf[[match(dname, names(mf))]]) mf.x <- mf[[match(x, names(mf))]] if (!is.null(dname) && dname %in% names(data) && grepl("$", deparse1(mf.x), fixed=TRUE) || grepl("[[", deparse1(mf.x), fixed=TRUE)) data <- NULL out <- try(eval(mf.x, data, enclos), silent=TRUE) # NULL if x was not specified if (inherits(out, "try-error") || is.function(out)) stop(mstyle$stop(paste0("Cannot find the object/variable ('", deparse(mf.x), "') specified for the '", x, "' argument.")), call.=FALSE) # note: is.function() check catches case where 'vi' is the utils::vi() function and other shenanigans # check if x is actually one of the elements in the call spec <- x %in% names(mf) # out could be NULL if it is not a specified argument; if so, apply default if there is one if (is.null(out) && !spec && !missing(default)) out <- default if (checknull) { # when using something like fun(dat$blah) and blah doesn't exist in dat, then get NULL if (spec && is.null(out)) { mf.txt <- deparse(mf.x) if (mf.txt == "NULL") { mf.txt <- " " } else { mf.txt <- paste0(" ('", mf.txt, "') ") } stop(mstyle$stop(paste0(deparse(mf)[1], ":\nThe object/variable", mf.txt, "specified for the '", x, "' argument is NULL.")), call.=FALSE) } } if (checknumeric && !is.null(out) && !is.list(out) && !.is.numeric(out[1])) # using [1] so is.numeric(Matrix(1:3)[1]) works stop(mstyle$stop(paste0("The object/variable specified for the '", x, "' argument is not numeric.")), call.=FALSE) return(out) } .getfromenv <- function(what, element, envir=.metafor, default=NULL) { x <- try(get(what, envir=envir, inherits=FALSE), silent=TRUE) if (inherits(x, "try-error")) { return(default) } else { if (missing(element)) { return(x) } else { x <- x[[element]] if (is.null(x)) { return(default) } else { return(x) } } } } ### a version of do.call() that allows for the arguments to be passed via ... (i.e., can either be a list or not) and removes NULL arguments .do.call <- function(fun, ...) { if (is.list(..1) && ...length() == 1L) { args <- c(...) } else { args <- list(...) } args <- args[!sapply(args, is.null)] do.call(fun, args) } ############################################################################ .chkclass <- function(class, must, notap, notav, type="Method") { mstyle <- .get.mstyle() obj <- as.character(match.call()[2]) obj <- substr(obj, 7, nchar(obj)-1) if (!missing(must) && !is.element(must, class)) stop(mstyle$stop(paste0("Argument '", obj, "' must be an object of class \"", must, "\".")), call.=FALSE) if (!missing(notap) && any(is.element(notap, class))) stop(mstyle$stop(paste0(type, " not applicable to objects of class \"", class[1], "\".")), call.=FALSE) #stop(mstyle$stop(paste0("Method not applicable to objects of class \"", paste0(class, collapse=", "), "\".")), call.=FALSE) if (!missing(notav) && any(is.element(notav, class))) stop(mstyle$stop(paste0(type, " not available for objects of class \"", class[1], "\".")), call.=FALSE) #stop(mstyle$stop(paste0("Method not available for objects of class \"", paste0(class, collapse=", "), "\".")), call.=FALSE) } ############################################################################ .chkviarg <- function(x) { runvicheck <- .getfromenv("runvicheck", default=TRUE) if (runvicheck) { x <- deparse(x) xl <- tolower(x) ok <- TRUE # starts with 'se' or 'std' if (any(grepl("^se", xl))) ok <- FALSE if (any(grepl("^std", xl))) ok <- FALSE # ends with 'se' or 'std' if (any(grepl("se$", xl))) ok <- FALSE if (any(grepl("std$", xl))) ok <- FALSE # catch cases where vi=$se and vi=$std if (any(grepl("^[[:alpha:]][[:alnum:]_.]*\\$se", xl))) ok <- FALSE if (any(grepl("^[[:alpha:]][[:alnum:]_.]*\\$std", xl))) ok <- FALSE # but if ^, *, or ( appears, don't issue a warning if (any(grepl("^", xl, fixed=TRUE))) ok <- TRUE if (any(grepl("*", xl, fixed=TRUE))) ok <- TRUE if (any(grepl("(", xl, fixed=TRUE))) ok <- TRUE if (!ok) { mstyle <- .get.mstyle() warning(mstyle$warning(paste0("The 'vi' argument should be used to specify sampling variances,\nbut '", x, "' sounds like this variable may contain standard\nerrors (maybe use 'sei=", x, "' instead?).")), call.=FALSE) try(assign("runvicheck", FALSE, envir=.metafor), silent=TRUE) } } } ############################################################################ ### check that the lengths of all non-zero length elements given via ... are equal to each other .equal.length <- function(...) { ddd <- list(...) ks <- lengths(ddd) # get the length of each element in ddd if (all(ks == 0L)) { # if all elements have length 0 (are NULL), return TRUE return(TRUE) } else { ks <- ks[ks > 0L] # keep the non-zero lengths return(length(unique(ks)) == 1L) # check that they are all identical } } ### check that all elements given via ... are not of length 0 (are not NULL) .all.specified <- function(...) { ddd <- list(...) #all(!sapply(ddd, is.null)) not0 <- lengths(ddd) != 0L all(not0) } ### get the maximum length of a bunch of vectors .maxlength <- function(...) max(lengths(list(...), use.names=FALSE)) ############################################################################ ### set axis label (for forest, funnel, and labbe functions) .setlab <- function(measure, transf.char, atransf.char, gentype, short=FALSE) { if (gentype == 1) lab <- "Observed Outcome" if (gentype == 2) lab <- "Overall Estimate" # for forest.cumul.rma() function if (gentype == 3) lab <- "Estimate" # for header ######################################################################### if (!is.null(measure)) { ###################################################################### if (is.element(measure, c("RR","MPRR"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[RR]", "Log Risk Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Risk Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Risk Ratio", "Risk Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Risk Ratio", "Risk Ratio") } } if (is.element(measure, c("OR","PETO","D2OR","D2ORN","D2ORL","MPOR","MPORC","MPPETO","MPORM"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[OR]", "Log Odds Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Odds Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Odds Ratio", "Odds Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Odds Ratio", "Odds Ratio") } } if (is.element(measure, c("RD","MPRD"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Risk Difference", "Risk Difference") } else { lab <- ifelse(short, lab, "Transformed Risk Difference") } } if (measure == "AS") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Arcsine RD", "Arcsine Transformed Risk Difference") } else { lab <- ifelse(short, lab, "Transformed Arcsine Transformed Risk Difference") } } if (measure == "PHI") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Phi", "Phi Coefficient") } else { lab <- ifelse(short, lab, "Transformed Phi Coefficient") } } if (measure == "ZPHI") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression('Fisher\'s ' * z[phi]), "Fisher's z Transformed Phi Coefficient") } else { lab <- ifelse(short, lab, "Transformed Fisher's z Transformed Phi Coefficient") funlist <- lapply(list(transf.ztor, transf.ztor.int, tanh), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Phi", "Phi Coefficient") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Phi", "Phi Coefficient") } } if (measure == "YUQ") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Yule's Q", "Yule's Q") } else { lab <- ifelse(short, lab, "Transformed Yule's Q") } } if (measure == "YUY") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Yule's Y", "Yule's Y") } else { lab <- ifelse(short, lab, "Transformed Yule's Y") } } ###################################################################### if (measure == "IRR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[IRR]", "Log Incidence Rate Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Incidence Rate Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Rate Ratio", "Incidence Rate Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Rate Ratio", "Incidence Rate Ratio") } } if (measure == "IRD") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "IRD", "Incidence Rate Difference") } else { lab <- ifelse(short, lab, "Transformed Incidence Rate Difference") } } if (measure == "IRSD") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "IRSD", "Square Root Transformed Incidence Rate Difference") } else { lab <- ifelse(short, lab, "Transformed Square Root Transformed Incidence Rate Difference") } } ###################################################################### if (measure == "MD") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "MD", "Mean Difference") } else { lab <- ifelse(short, lab, "Transformed Mean Difference") } } if (is.element(measure, c("SMD","SMDH","SMD1","SMD1H","PBIT","OR2D","OR2DN","OR2DL"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "SMD", "Standardized Mean Difference") } else { lab <- ifelse(short, lab, "Transformed Standardized Mean Difference") } } if (measure == "ROM") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[RoM]", "Log Ratio of Means") } else { lab <- ifelse(short, lab, "Transformed Log Ratio of Means") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Ratio of Means", "Ratio of Means (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Ratio of Means", "Ratio of Means") } } if (measure == "RPB") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Correlation", "Point-Biserial Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Point-Biserial Correlation Coefficient") } } if (measure == "ZPB") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression('Fisher\'s ' * z[phi]), "Fisher's z Transformed Point-Biserial Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Fisher's z Transformed Point-Biserial Correlation Coefficient") funlist <- lapply(list(transf.ztor, transf.ztor.int, tanh), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Correlation", "Point-Biserial Correlation Coefficient") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Correlation", "Point-Biserial Correlation Coefficient") } } if (measure == "VR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[VR]", "Log Variability Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Variability Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "VR", "Variability Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "VR", "Variability Ratio") } } if (measure == "CVR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[CVR]", "Log Coefficient of Variation Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Coefficient of Variation Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "CVR", "Coefficient of Variation Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "CVR", "Coefficient of Variation Ratio") } } ###################################################################### if (is.element(measure, c("COR","UCOR","RTET","RBIS"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Correlation", "Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Correlation Coefficient") } } if (is.element(measure, c("ZCOR","ZTET","ZBIS"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression('Fisher\'s ' * z[r]), "Fisher's z Transformed Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Fisher's z Transformed Correlation Coefficient") funlist <- lapply(list(transf.ztor, transf.ztor.int, tanh), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Correlation", "Correlation Coefficient") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Correlation", "Correlation Coefficient") } } ###################################################################### if (measure == "PCOR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Correlation", "Partial Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Partial Correlation Coefficient") } } if (measure == "ZPCOR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression('Fisher\'s ' * z[r]), "Fisher's z Transformed Partial Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Fisher's z Transformed Partial Correlation Coefficient") funlist <- lapply(list(transf.ztor, transf.ztor.int, tanh), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Correlation", "Partial Correlation Coefficient") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Correlation", "Partial Correlation Coefficient") } } if (measure == "SPCOR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Correlation", "Semi-Partial Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Semi-Partial Correlation Coefficient") } } if (measure == "ZSPCOR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression('Fisher\'s ' * z[r]), "Fisher's z Transformed Semi-Partial Correlation Coefficient") } else { lab <- ifelse(short, lab, "Transformed Fisher's z Transformed Semi-Partial Correlation Coefficient") funlist <- lapply(list(transf.ztor, transf.ztor.int, tanh), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Correlation", "Semi-Partial Correlation Coefficient") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Correlation", "Semi-Partial Correlation Coefficient") } } ###################################################################### if (is.element(measure, c("R2","R2F"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression(R^2), "Coefficient of Determination") } else { lab <- ifelse(short, lab, "Transformed Coefficient of Determination") } } if (is.element(measure, c("ZR2","ZR2F"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression(z[R^2]), "z Transformed Coefficient of Determination") } else { lab <- ifelse(short, lab, "Transformed z Transformed Coefficient of Determination") funlist <- lapply(list(transf.ztor2), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, expression(R^2), "Coefficient of Determination") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, expression(R^2), "Coefficient of Determination") } } ###################################################################### if (measure == "PR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Proportion", "Proportion") } else { lab <- ifelse(short, lab, "Transformed Proportion") } } if (measure == "PLN") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[Pr]", "Log Proportion") } else { lab <- ifelse(short, lab, "Transformed Log Proportion") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Proportion", "Proportion (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Proportion", "Proportion") } } if (measure == "PLO") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[Odds]", "Log Odds") } else { lab <- ifelse(short, lab, "Transformed Log Odds") funlist <- lapply(list(transf.ilogit, transf.ilogit.int, plogis), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Proportion", "Proportion (logit scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Proportion", "Proportion") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Odds", "Odds (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Odds", "Odds") } } if (measure == "PRZ") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression(Phi^{-1}*(p)), "Probit Transformed Proportion") # expression(z[p]) } else { lab <- ifelse(short, lab, "Transformed Probit Transformed Proportion") funlist <- lapply(list(transf.iprobit, transf.iprobit.int, pnorm), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Proportion", "Proportion (probit scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Proportion", "Proportion") } } if (measure == "PAS") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression(arcsin(sqrt(p))), "Arcsine Transformed Proportion") } else { lab <- ifelse(short, lab, "Transformed Arcsine Transformed Proportion") funlist <- lapply(list(transf.iarcsin, transf.iarcsin.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Proportion", "Proportion (arcsine scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Proportion", "Proportion") } } if (measure == "PFT") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "PFT", "Double Arcsine Transformed Proportion") } else { lab <- ifelse(short, lab, "Transformed Double Arcsine Transformed Proportion") funlist <- lapply(list(transf.ipft.hm), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Proportion", "Proportion") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Proportion", "Proportion") } } ###################################################################### if (measure == "IR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Rate", "Incidence Rate") } else { lab <- ifelse(short, lab, "Transformed Incidence Rate") } } if (measure == "IRLN") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[IR]", "Log Incidence Rate") } else { lab <- ifelse(short, lab, "Transformed Log Incidence Rate") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Rate", "Incidence Rate (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Rate", "Incidence Rate") } } if (measure == "IRS") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Sqrt[IR]", "Square Root Transformed Incidence Rate") } else { lab <- ifelse(short, lab, "Transformed Square Root Transformed Incidence Rate") funlist <- lapply(list(transf.isqrt, atransf.char), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Rate", "Incidence Rate (square root scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Rate", "Incidence Rate") } } if (measure == "IRFT") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "IRFT", "Freeman-Tukey Transformed Incidence Rate") } else { lab <- ifelse(short, lab, "Transformed Freeman-Tukey Transformed Incidence Rate") } } ###################################################################### if (measure == "MN") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Mean", "Mean") } else { lab <- ifelse(short, lab, "Transformed Mean") } } if (measure == "SMN") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Std. Mean", "Standardized Mean") } else { lab <- ifelse(short, lab, "Transformed Standardized Mean") } } if (measure == "MNLN") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[Mean]", "Log Mean") } else { lab <- ifelse(short, lab, "Transformed Log Mean") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Mean", "Mean (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Mean", "Mean") } } if (measure == "SDLN") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[SD]", "Log Standard Deviation") } else { lab <- ifelse(short, lab, "Transformed Log Standard Deviation") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "SD", "Standard Deviation (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "SD", "Standard Deviation") } } if (measure == "CVLN") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[CV]", "Log Coefficient of Variation") } else { lab <- ifelse(short, lab, "Transformed Log Coefficient of Variation") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "CV", "Coefficient of Variation (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "CV", "Coefficient of Variation") } } ###################################################################### if (measure == "MC") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Mean Change", "Mean Change") } else { lab <- ifelse(short, lab, "Transformed Mean Change") } } if (is.element(measure, c("SMCC","SMCR","SMCRH","SMCRP","SMCRPH"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "SMC", "Standardized Mean Change") } else { lab <- ifelse(short, lab, "Transformed Standardized Mean Change") } } if (measure == "ROMC") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[RoM]", "Log Ratio of Means") } else { lab <- ifelse(short, lab, "Transformed Log Ratio of Means") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Ratio of Means", "Ratio of Means (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Ratio of Means", "Ratio of Means") } } if (measure == "VRC") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[VR]", "Log Variability Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Variability Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "VR", "Variability Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "VR", "Variability Ratio") } } if (measure == "CVRC") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[CVR]", "Log Coefficient of Variation Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Coefficient of Variation Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "CVR", "Coefficient of Variation Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "CVR", "Coefficient of Variation Ratio") } } ###################################################################### if (measure == "ARAW") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Alpha", "Cronbach's alpha") } else { lab <- ifelse(short, lab, "Transformed Cronbach's alpha") } } if (measure == "AHW") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression('Alpha'[HW]), "Transformed Cronbach's alpha") } else { lab <- ifelse(short, lab, "Transformed Cronbach's alpha") funlist <- lapply(list(transf.iahw, transf.iahw.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Alpha", "Cronbach's alpha") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Alpha", "Cronbach's alpha") } } if (measure == "ABT") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, expression('Alpha'[B]), "Transformed Cronbach's alpha") } else { lab <- ifelse(short, lab, "Transformed Cronbach's alpha") funlist <- lapply(list(transf.iabt, transf.iabt.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "Alpha", "Cronbach's alpha") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "Alpha", "Cronbach's alpha") } } ###################################################################### if (measure == "REH") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[REH]", "Log Relative Excess Heterozygosity") } else { lab <- ifelse(short, lab, "Transformed Log Relative Excess Heterozygosity") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "REH", "Relative Excess Heterozygosity (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "REH", "Relative Excess Heterozygosity") } } ###################################################################### if (is.element(measure, c("CLES","CLESN","CLESCN"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "CLES", "Common Language Effect Size") } else { lab <- ifelse(short, lab, "Transformed Common Language Effect Size") } } ###################################################################### if (is.element(measure, c("AUC","AUCN","AUCCN"))) { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "AUC", "Area under the Curve") } else { lab <- ifelse(short, lab, "Transformed Area under the Curve") } } ###################################################################### if (measure == "HR") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "Log[HR]", "Log Hazard Ratio") } else { lab <- ifelse(short, lab, "Transformed Log Hazard Ratio") funlist <- lapply(list(exp, transf.exp.int), deparse) if (any(sapply(funlist, identical, atransf.char))) lab <- ifelse(short, "HR", "Hazard Ratio (log scale)") if (any(sapply(funlist, identical, transf.char))) lab <- ifelse(short, "HR", "Hazard Ratio") } } if (measure == "HD") { if (identical(transf.char, "FALSE") && identical(atransf.char, "FALSE")) { lab <- ifelse(short, "HD", "Hazard Difference") } else { lab <- ifelse(short, lab, "Transformed Hazard Difference") } } ###################################################################### } return(lab) } ############################################################################ ### stuff related to colored/styled output .get.mstyle <- function() { crayonloaded <- "crayon" %in% .packages() styleopt <- getmfopt("style") if (is.logical(styleopt)) { if (isTRUE(styleopt)) { styleopt <- NULL } else { crayonloaded <- FALSE } } if (crayonloaded) { if (exists(".mstyle")) { .mstyle <- get(".mstyle") } else { .mstyle <- list() } if (!is.null(styleopt)) .mstyle <- styleopt if (!is.list(.mstyle)) .mstyle <- list(.mstyle) if (is.null(.mstyle$section)) { section <- crayon::bold } else { section <- .mstyle$section } if (is.null(.mstyle$header)) { header <- crayon::underline } else { header <- .mstyle$header } if (is.null(.mstyle$body1)) { body1 <- crayon::reset } else { body1 <- .mstyle$body1 } if (is.null(.mstyle$body2)) { body2 <- crayon::reset } else { body2 <- .mstyle$body2 } if (is.null(.mstyle$na)) { na <- crayon::reset } else { na <- .mstyle$na } if (is.null(.mstyle$text)) { text <- crayon::reset } else { text <- .mstyle$text } if (is.null(.mstyle$result)) { result <- crayon::reset } else { result <- .mstyle$result } if (is.null(.mstyle$stop)) { stop <- crayon::combine_styles(crayon::red, crayon::bold) } else { stop <- .mstyle$stop } if (is.null(.mstyle$warning)) { warning <- crayon::yellow } else { warning <- .mstyle$warning } if (is.null(.mstyle$message)) { message <- crayon::green } else { message <- .mstyle$message } if (is.null(.mstyle$verbose)) { verbose <- crayon::cyan } else { verbose <- .mstyle$verbose } if (is.null(.mstyle$legend)) { legend <- crayon::silver #legend <- crayon::make_style("gray90") } else { legend <- .mstyle$legend } } else { tmp <- function(...) paste0(...) section <- tmp header <- tmp body1 <- tmp body2 <- tmp na <- tmp text <- tmp result <- tmp stop <- tmp warning <- tmp message <- tmp verbose <- tmp legend <- tmp } return(list(section=section, header=header, body1=body1, body2=body2, na=na, text=text, result=result, stop=stop, warning=warning, message=message, verbose=verbose, legend=legend)) } .print.output <- function(x, mstyle) { if (missing(mstyle)) { for (i in seq_along(x)) { cat(x[i], "\n") } } else { for (i in seq_along(x)) { cat(mstyle(x[i]), "\n") } } } .is.even <- function(x) x %% 2 == 0 .print.table <- function(x, mstyle) { is.header <- !grepl(" [-0-9]", x) & !grepl(" NA ", x, fixed=TRUE) #is.header <- !grepl("^\\s*[0-9]", x) has.header <- any(is.header) for (i in seq_along(x)) { if (is.header[i]) { #x[i] <- trimws(x[i], which="right") x[i] <- mstyle$header(x[i]) } else { x[i] <- gsub("NA", mstyle$na("NA"), x[i], fixed=TRUE) if (.is.even(i-has.header)) { x[i] <- mstyle$body2(x[i]) } else { x[i] <- mstyle$body1(x[i]) } } cat(x[i], "\n") } } .print.vcovmat <- function(x, mstyle) { for (i in seq_along(x)) { x[i] <- gsub("NA", mstyle$na("NA"), x[i], fixed=TRUE) x[i] <- gsub(" .", mstyle$legend(" ."), x[i], fixed=TRUE) #if (i == 1) { # x[i] <- mstyle$section(x[i]) #} else { # x[i] <- gsub("^( ?\\S+)", mstyle$section("\\1"), x[i]) #} cat(x[i], "\n") } } #.set.mstyle.1 <- str2lang(".mstyle <- list(section=make_style(\"gray90\")$bold, header=make_style(\"skyblue1\")$bold$underline, body=make_style(\"skyblue2\"), text=make_style(\"slateblue3\"), result=make_style(\"slateblue1\"))") #eval(metafor:::.set.mstyle.1) ############################################################################ .set.digits <- function(digits, dmiss) { res <- c(est=4, se=4, test=4, pval=4, ci=4, var=4, sevar=4, fit=4, het=4) if (exists(".digits")) { .digits <- get(".digits") if (is.null(names(.digits)) && length(.digits) == 1L) { # if .digits is a single unnamed scalar, set all digit values to that value res <- c(est=.digits, se=.digits, test=.digits, pval=.digits, ci=.digits, var=.digits, sevar=.digits, fit=.digits, het=.digits) } else if (any(names(.digits) != "") && any(names(.digits) == "")) { # if .digits has (at least) one unnamed element, use it to set all unnamed elements to that digits value pos <- pmatch(names(.digits), names(res)) res[c(na.omit(pos))] <- .digits[!is.na(pos)] otherval <- .digits[names(.digits) == ""][1] res[(1:9)[-c(na.omit(pos))]] <- otherval } else { pos <- pmatch(names(.digits), names(res)) res[c(na.omit(pos))] <- .digits[!is.na(pos)] } } if (!dmiss) { if (is.null(names(digits))) { res <- c(est=digits[[1]], se=digits[[1]], test=digits[[1]], pval=digits[[1]], ci=digits[[1]], var=digits[[1]], sevar=digits[[1]], fit=digits[[1]], het=digits[[1]]) } else { pos <- pmatch(names(digits), names(res)) res[c(na.omit(pos))] <- digits[!is.na(pos)] } } ### p-values are always given to at least 2 digits if (res["pval"] <= 1) res["pval"] <- 2 res } .get.digits <- function(digits, xdigits, dmiss) { res <- xdigits if (exists(".digits")) { .digits <- get(".digits") pos <- pmatch(names(.digits), names(res)) res[c(na.omit(pos))] <- .digits[!is.na(pos)] } if (!is.null(getmfopt("digits"))) { .digits <- getmfopt("digits") if (length(.digits) == 1L) .digits <- c(est=.digits[[1]], se=.digits[[1]], test=.digits[[1]], pval=.digits[[1]], ci=.digits[[1]], var=.digits[[1]], sevar=.digits[[1]], fit=.digits[[1]], het=.digits[[1]]) pos <- pmatch(names(.digits), names(res)) res[c(na.omit(pos))] <- .digits[!is.na(pos)] } if (!dmiss) { if (is.null(names(digits))) { res <- c(est=digits[[1]], se=digits[[1]], test=digits[[1]], pval=digits[[1]], ci=digits[[1]], var=digits[[1]], sevar=digits[[1]], fit=digits[[1]], het=digits[[1]]) } else { pos <- pmatch(names(digits), names(res)) res[c(na.omit(pos))] <- digits[!is.na(pos)] } } ### so we can still print objects created with older metafor versions (where xdigit is just an unnamed scalar) if (length(res) == 1L && is.null(names(res))) res <- c(est=res[[1]], se=res[[1]], test=res[[1]], pval=res[[1]], ci=res[[1]], var=res[[1]], sevar=res[[1]], fit=res[[1]], het=res[[1]]) ### p-values are always given to at least 2 digits if (!is.null(res["pval"]) && res["pval"] <= 1) res["pval"] <- 2 res } ############################################################################ ### check if x is logical and TRUE/FALSE (NAs and NULL always evaluate as FALSE) #isTRUE <- function(x) # !is.null(x) && is.logical(x) && !is.na(x) && x # #isFALSE <- function(x) # !is.null(x) && is.logical(x) && !is.na(x) && !x # not sure anymore why I implemented these; c(isTRUE(NULL), isTRUE(NA), isFALSE(NULL), isFALSE(NA)) are all FALSE ############################################################################ ### shorten a character vector so that elements remain distinguishable .shorten <- function(x, minlen) { y <- x x <- c(na.omit(x)) n <- length(unique(x)) maxlen <- max(nchar(unique(x))) for (l in seq_len(maxlen)) { tab <- table(x, substr(x, 1, l)) if (nrow(tab) == n && ncol(tab) == n && sum(tab[upper.tri(tab)]) == 0 && sum(tab[lower.tri(tab)]) == 0) break } if (!missing(minlen) && l < minlen) { if (minlen > maxlen) minlen <- maxlen l <- minlen } return(substr(y, 1, l)) } ############################################################################ ### simplified version of what mvtnorm::rmvnorm() does .mvrnorm <- function(n, mu, Sigma) { p <- nrow(Sigma) eS <- eigen(Sigma, symmetric = TRUE) eval <- eS$values evec <- eS$vectors Y <- matrix(rnorm(p * n), nrow = n, byrow = TRUE) %*% t(evec %*% (t(evec) * sqrt(pmax(eval, 0)))) Y <- sweep(Y, 2, mu, "+") return(Y) } ############################################################################ ### check subset argument (if logical, make sure it's of the right length and set NAs to FALSE; if ### numeric, remove NAs and 0's and check that values are not beyond k) .chksubset <- function(x, k, stoponk0=TRUE) { if (is.null(x)) # if x is NULL, return x (i.e., NULL) return(x) mstyle <- .get.mstyle() argname <- deparse(substitute(x)) if (length(x) == 0L) stop(mstyle$stop(paste0("Argument '", argname, "' is of length 0.")), call.=FALSE) if (is.character(x)) stop(mstyle$stop(paste0("Argument '", argname, "' is not a logical or numeric vector.")), call.=FALSE) if (is.logical(x)) { if (length(x) != k) stop(mstyle$stop(paste0("Length of the '", argname, "' argument (", length(x), ") is not of length k = ", k, ".")), call.=FALSE) #x <- x[seq_len(k)] # keep only elements 1:k from x if (anyNA(x)) # if x includes any NA elements x[is.na(x)] <- FALSE # set NA elements to FALSE } if (is.numeric(x)) { if (anyNA(x)) # if x includes any NA elements x <- x[!is.na(x)] # remove them x <- as.integer(round(x)) x <- x[x != 0L] # also remove any 0's if (any(x > 0L) && any(x < 0L)) stop(mstyle$stop(paste0("Cannot mix positive and negative values in '", argname, "' argument.")), call.=FALSE) if (all(x > 0L)) { if (any(x > k)) stop(mstyle$stop(paste0("Argument '", argname, "' includes values larger than k = ", k, ".")), call.=FALSE) x <- is.element(seq_len(k), x) } else { if (any(x < -k)) stop(mstyle$stop(paste0("Argument '", argname, "' includes values larger than k = ", k, ".")), call.=FALSE) x <- !is.element(seq_len(k), abs(x)) } } if (stoponk0 && !any(x)) stop(mstyle$stop(paste0("Stopped because k = 0 after subsetting.")), call.=FALSE) return(x) } ### get subset function that works for matrices and data frames (selecting rows by default but rows ### and columns when col=TRUE) and vectors and also checks that x is of the same length as subset .getsubset <- function(x, subset, col=FALSE, drop=FALSE) { if (is.null(x) || is.null(subset)) # if x or subset is NULL, return x return(x) mstyle <- .get.mstyle() xname <- deparse(substitute(x)) k <- length(subset) if (.is.matrix(x) || is.data.frame(x)) { if (nrow(x) != k) stop(mstyle$stop(paste0("Element '", xname, "' is not of length ", k, ".")), call.=FALSE) if (col) { x <- x[subset,subset,drop=drop] } else { x <- x[subset,,drop=drop] } } else { if (length(x) != k) stop(mstyle$stop(paste0("Element '", xname, "' is not of length ", k, ".")), call.=FALSE) x <- x[subset] } return(x) } ############################################################################ # function to compute a weighted mean (this one works a bit different than # stats:::weighted.mean.default) .wmean <- function (x, w, na.rm=FALSE) { if (na.rm) { i <- !(is.na(x) | is.na(w)) # only include x if x and w are not missing x <- x[i] w <- w[i] } sum(x*w) / sum(w) } ############################################################################ .chkopt <- function(optimizer, optcontrol, ineq=FALSE) { mstyle <- .get.mstyle() ### set NLOPT_LN_BOBYQA as the default algorithm for the nloptr optimizer when ineq=FALSE ### and otherwise use NLOPT_LN_COBYLA to allow for nonlinear inequality constraints ### and by default use a relative convergence criterion of 1e-8 on the function value if (optimizer == "nloptr" && !is.element("algorithm", names(optcontrol))) { if (ineq) { optcontrol$algorithm <- "NLOPT_LN_COBYLA" } else { optcontrol$algorithm <- "NLOPT_LN_BOBYQA" } } if (optimizer == "nloptr" && !is.element("ftol_rel", names(optcontrol))) optcontrol$ftol_rel <- 1e-8 ### for mads, set trace=FALSE and tol=1e-6 by default if (optimizer == "mads" && !is.element("trace", names(optcontrol))) optcontrol$trace <- FALSE if (optimizer == "mads" && !is.element("tol", names(optcontrol))) optcontrol$tol <- 1e-6 ### for subplex, set reltol=1e-8 by default (the default in subplex() is .Machine$double.eps) if (optimizer == "subplex" && !is.element("reltol", names(optcontrol))) optcontrol$reltol <- 1e-8 ### for BBoptim, set trace=FALSE by default if (optimizer == "BBoptim" && !is.element("trace", names(optcontrol))) optcontrol$trace <- FALSE ### for solnp, set trace=FALSE by default if (optimizer == "solnp" && !is.element("trace", names(optcontrol))) optcontrol$trace <- FALSE ### check that the required packages are installed if (is.element(optimizer, c("uobyqa","newuoa","bobyqa"))) { if (!requireNamespace("minqa", quietly=TRUE)) stop(mstyle$stop("Please install the 'minqa' package to use this optimizer."), call.=FALSE) } if (is.element(optimizer, c("nloptr","ucminf","lbfgsb3c","subplex","optimParallel"))) { if (!requireNamespace(optimizer, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", optimizer, "' package to use this optimizer.")), call.=FALSE) } if (is.element(optimizer, c("hjk","nmk","mads"))) { if (!requireNamespace("dfoptim", quietly=TRUE)) stop(mstyle$stop("Please install the 'dfoptim' package to use this optimizer."), call.=FALSE) } if (optimizer == "BBoptim") { if (!requireNamespace("BB", quietly=TRUE)) stop(mstyle$stop("Please install the 'BB' package to use this optimizer."), call.=FALSE) } if (optimizer == "solnp") { if (!requireNamespace("Rsolnp", quietly=TRUE)) stop(mstyle$stop("Please install the 'Rsolnp' package to use this optimizer."), call.=FALSE) } if (is.element(optimizer, c("constrOptim.nl","auglag"))) { if (!requireNamespace("alabama", quietly=TRUE)) stop(mstyle$stop("Please install the 'alabama' package to use this optimizer."), call.=FALSE) } if (is.element(optimizer, c("Rcgmin","Rvmmin"))) { if (!requireNamespace("optimx", quietly=TRUE)) stop(mstyle$stop(paste0("Please install the 'optimx' package to use this optimizer.")), call.=FALSE) } ######################################################################### if (is.element(optimizer, c("optim","constrOptim"))) { par.arg <- "par" ctrl.arg <- ", control=optcontrol" } if (optimizer == "nlminb") { par.arg <- "start" ctrl.arg <- ", control=optcontrol" } if (is.element(optimizer, c("uobyqa","newuoa","bobyqa"))) { par.arg <- "par" optimizer <- paste0("minqa::", optimizer) # need to use this since loading nloptr masks bobyqa() and newuoa() functions ctrl.arg <- ", control=optcontrol" } if (optimizer == "nloptr") { par.arg <- "x0" optimizer <- paste0("nloptr::nloptr") # need to use this due to requireNamespace() ctrl.arg <- ", opts=optcontrol" } if (optimizer == "nlm") { par.arg <- "p" # because of this, must use argument name pX for p (number of columns in X matrix) ctrl.arg <- paste(names(optcontrol), unlist(optcontrol), sep="=", collapse=", ") if (nchar(ctrl.arg) != 0L) ctrl.arg <- paste0(", ", ctrl.arg) } if (is.element(optimizer, c("hjk","nmk","mads"))) { par.arg <- "par" optimizer <- paste0("dfoptim::", optimizer) # need to use this so that the optimizers can be found ctrl.arg <- ", control=optcontrol" } if (is.element(optimizer, c("ucminf","lbfgsb3c","subplex"))) { par.arg <- "par" optimizer <- paste0(optimizer, "::", optimizer) # need to use this due to requireNamespace() ctrl.arg <- ", control=optcontrol" } if (optimizer == "BBoptim") { par.arg <- "par" optimizer <- "BB::BBoptim" ctrl.arg <- ", quiet=TRUE, control=optcontrol" } if (optimizer == "solnp") { par.arg <- "pars" optimizer <- "Rsolnp::solnp" ctrl.arg <- ", control=optcontrol" } if (is.element(optimizer, c("constrOptim.nl","auglag"))) { par.arg <- "par" optimizer <- paste0("alabama::", optimizer) if ("control.outer" %in% names(optcontrol)) { # can specify 'control.outer' to be passed to constrOptim.nl(), but when using # the 'method' argument, must escape " or use ' for this to work; for example: # control=list(optimizer="constrOptim.nl", control.outer=list(method="'Nelder-Mead'")) control.outer <- paste0("control.outer=list(", paste(names(optcontrol$control.outer), unlist(optcontrol$control.outer), sep="=", collapse=", "), ")") ctrl.arg <- paste0(", control.optim=optcontrol, ", control.outer) optcontrol$control.outer <- NULL } else { ctrl.arg <- ", control.optim=optcontrol, control.outer=list(trace=FALSE)" } } if (optimizer == "Rcgmin") { par.arg <- "par" optimizer <- "optimx::Rcgmin" ctrl.arg <- ", gr='grnd', control=optcontrol" #ctrl.arg <- ", control=optcontrol" } if (optimizer == "Rvmmin") { par.arg <- "par" optimizer <- "optimx::Rvmmin" ctrl.arg <- ", gr='grnd', control=optcontrol" #ctrl.arg <- ", control=optcontrol" } if (optimizer == "optimParallel") { par.arg <- "par" optimizer <- "optimParallel::optimParallel" ctrl.arg <- ", control=optcontrol, parallel=parallel" } return(list(optimizer=optimizer, optcontrol=optcontrol, par.arg=par.arg, ctrl.arg=ctrl.arg)) } .chkconv <- function(optimizer, opt.res, optcontrol, fun, verbose, paronly=TRUE) { mstyle <- .get.mstyle() if (optimizer == "optimParallel::optimParallel" && verbose) { tmp <- capture.output(print(opt.res$loginfo)) .print.output(tmp, mstyle$verbose) } ### convergence checks if (inherits(opt.res, "try-error")) stop(mstyle$stop(paste0("Error during the optimization. Use verbose=TRUE and see\n help(", fun, ") for more details on the optimization routines.")), call.=FALSE) if (optimizer == "lbfgsb3c::lbfgsb3c" && is.null(opt.res$convergence)) # special provision for lbfgsb3c in case 'convergence' is missing opt.res$convergence <- -99 if (is.element(optimizer, c("optim","constrOptim","nlminb","dfoptim::hjk","dfoptim::nmk","lbfgsb3c::lbfgsb3c","subplex::subplex","BB::BBoptim","Rsolnp::solnp","alabama::constrOptim.nl","alabama::auglag","optimx::Rcgmin","optimx:Rvmmin","optimParallel::optimParallel")) && opt.res$convergence != 0) stop(mstyle$stop(paste0("Optimizer (", optimizer, ") did not achieve convergence (convergence = ", opt.res$convergence, ").")), call.=FALSE) if (is.element(optimizer, c("dfoptim::mads")) && opt.res$convergence > optcontrol$tol) stop(mstyle$stop(paste0("Optimizer (", optimizer, ") did not achieve convergence (convergence = ", opt.res$convergence, ").")), call.=FALSE) if (is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa")) && opt.res$ierr != 0) stop(mstyle$stop(paste0("Optimizer (", optimizer, ") did not achieve convergence (ierr = ", opt.res$ierr, ").")), call.=FALSE) if (optimizer=="nloptr::nloptr" && !(opt.res$status >= 1 && opt.res$status <= 4)) stop(mstyle$stop(paste0("Optimizer (", optimizer, ") did not achieve convergence (status = ", opt.res$status, ").")), call.=FALSE) if (optimizer=="ucminf::ucminf" && !(opt.res$convergence == 1 || opt.res$convergence == 2)) stop(mstyle$stop(paste0("Optimizer (", optimizer, ") did not achieve convergence (convergence = ", opt.res$convergence, ").")), call.=FALSE) if (verbose > 2) { cat("\n") tmp <- capture.output(print(opt.res)) .print.output(tmp, mstyle$verbose) } ### copy estimated values to 'par' if (optimizer=="nloptr::nloptr") opt.res$par <- opt.res$solution if (optimizer=="nlm") opt.res$par <- opt.res$estimate if (optimizer=="Rsolnp::solnp") opt.res$par <- opt.res$pars ### copy function value to 'value' if (is.element(optimizer, c("nlminb", "nloptr::nloptr"))) opt.res$value <- opt.res$objective if (is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa"))) opt.res$value <- opt.res$fval if (optimizer=="nlm") opt.res$value <- opt.res$minimum if (optimizer=="Rsolnp::solnp") opt.res$value <- tail(opt.res$values, 1) if (paronly) { return(opt.res$par) } else { return(opt.res) } } ############################################################################ .coltail <- function(h, val, tail="upper", mult=1, col, border, freq, ...) { h$counts <- h$counts * mult h$density <- h$density * mult if (tail == "lower") { above <- which(h$breaks > val) if (length(above) > 0L) { pos <- above[1] h$breaks[pos] <- val } sel <- h$breaks <= val if (sum(sel) >= 2L) { h$breaks <- h$breaks[sel] h$counts <- h$counts[sel[-1]] h$density <- h$density[sel[-1]] h$mids <- h$mids[sel[-1]] lines(h, col=col, border=border, freq=freq, ...) } } else { below <- which(h$breaks < val) if (length(below) > 0L) { pos <- below[length(below)] h$breaks[pos] <- val } sel <- h$breaks >= val if (sum(sel) >= 2L) { len <- length(below) h$breaks <- h$breaks[sel] h$counts <- h$counts[sel[-len]] h$density <- h$density[sel[-len]] h$mids <- h$mids[sel[-len]] lines(h, col=col, border=border, freq=freq, ...) } } } ############################################################################ # theme="default" - uses the default par() of the plotting device # theme="light" - forces par(fg="black", bg="white", ...) # theme="dark" - forces par(fg="gray95", bg="gray10", ...) # theme="auto" - in RStudio, picks fg/bg based on theme that is set (outside RStudio, same as "default") # theme="custom" - uses getmfopt("fg") and getmfopt("bg") .start.plot <- function(x=TRUE) { if (!x) return() themeopt <- getmfopt("theme", default="default")[[1]] themeopt <- sub("2", "", themeopt, fixed=TRUE) if (!is.element(themeopt, c("default", "light", "dark", "auto", "custom"))) themeopt <- "default" if (exists(".darkplots")) themeopt <- "dark" if (isTRUE(themeopt == "light")) { fg <- "black" bg <- "white" #fg <- "gray5" #bg <- "gray95" } if (isTRUE(themeopt == "dark")) { fg <- "gray95" bg <- "gray10" } if (isTRUE(themeopt == "auto")) { rsapi <- try(rstudioapi::isAvailable(), silent=TRUE) if (inherits(rsapi, "try-error") || isFALSE(rsapi)) { themeopt <- "default" } else { fg <- .rsapicol2rgb(rstudioapi::getThemeInfo()$foreground) bg <- .rsapicol2rgb(rstudioapi::getThemeInfo()$background) } } if (isTRUE(themeopt == "custom")) { fgopt <- getmfopt("fg") bgopt <- getmfopt("bg") if (is.null(fgopt) || is.null(bgopt)) { themeopt <- "default" } else { fg <- fgopt bg <- bgopt } } if (themeopt != "default" && isFALSE(par("new"))) par(fg=fg, bg=bg, col=fg, col.axis=fg, col.lab=fg, col.main=fg, col.sub=fg) invisible() } # convert the string "rgb(val1, val2, val3)" into rgb(val1, val2, val3, maxColorValue=255) .rsapicol2rgb <- function(col) { col <- strsplit(col, ",")[[1]] col <- trimws(col) col1 <- as.numeric(sub("rgb(", "", col[1], fixed=TRUE)) col2 <- as.numeric(col[2]) col3 <- as.numeric(trimws(sub(")", "", col[3], fixed=TRUE))) col <- rgb(col1, col2, col3, maxColorValue=255) return(col) } .is.dark <- function() { rgb <- col2rgb(par("bg")) res <- sum(rgb) <= 384 # note: sum(col2rgb(rgb(0.5,0.5,0.5))) == 384 return(res) } .coladj <- function(col, dark, light) { themeopt <- getmfopt("theme", default="default") if (length(col) == 2L && substr(themeopt, nchar(themeopt), nchar(themeopt)) == "2") { pos <- 2 if (length(dark) == 1L) dark <- c(dark, ifelse(dark > 0, dark-1, dark+1)) if (length(light) == 1L) light <- c(light, ifelse(light > 0, light-1, light+1)) } else { pos <- 1 } col <- c(col2rgb(col[[pos]])) if (.is.dark()) { col <- col + round(dark*255)[[pos]] } else { col <- col + round(light*255)[[pos]] } col[col < 0] <- 0 col[col > 255] <- 255 col <- rgb(col[1], col[2], col[3], maxColorValue=255) return(col) } ############################################################################ .chkpd <- function(x, tol=.Machine$double.eps, corr=FALSE, nearpd=FALSE) { if (any(eigen(x, symmetric=TRUE, only.values=TRUE)$values <= tol)) { ispd <- FALSE if (nearpd) { tmp <- nearPD(x, corr=corr) x <- as.matrix(tmp$mat) if (tmp$converged) ispd <- TRUE } } else { ispd <- TRUE } if (nearpd) { return(list(ispd=ispd, x=x)) } else { return(ispd) } } ############################################################################ .trapezoid <- function(x,y) sum(diff(x)*(y[-1]+y[-length(y)]))/2 ############################################################################ metafor/R/print.profile.rma.r0000644000176200001440000000070215120213572015641 0ustar liggesusersprint.profile.rma <- function(x, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="profile.rma") ######################################################################### if (x$comps == 1) { res <- data.frame(x[1], x[2]) print(res) } else { x$comps <- NULL print(lapply(x, function(x) data.frame(x[1], x[2]))) } } metafor/R/rma.mv.r0000644000176200001440000032544715160477313013521 0ustar liggesusers# fixed/random/mixed-effects multivariate/multilevel model with: # - possibly one or multiple random intercepts (sigma2) with potentially known correlation matrices # - possibly correlated random effects for arms/groups/levels within studies (tau2 and rho for 1st term, gamma2 and phi for 2nd term) # model also allows for correlated sampling errors via non-diagonal V matrix # V = variance-covariance matrix of the sampling errors # sigma2 = (preset) value(s) for the variance of the random intercept(s) # tau2 = (preset) value(s) for the variance of the random effects # rho = (preset) value(s) for the correlation(s) between random effects # gamma2 = (preset) value(s) for the variance of the random effects # phi = (preset) value(s) for the correlation(s) between random effects # structures when there is an '~ inner | outer' term in the random argument: # - CS (compound symmetry) # - HCS (heteroscedastic compound symmetry) # - UN (general positive-definite matrix with no structure) # - UNR (general positive-definite correlation matrix with a single tau2/gamma2 value) # - AR (AR1 structure with a single tau2/gamma2 value and autocorrelation rho/phi) # - HAR (heteroscedastic AR1 structure with multiple tau2/gamma2 values and autocorrelation rho/phi) # - CAR (continuous time AR1 structure) # - ID (same as CS but with rho/phi=0) # - DIAG (same as HCS but with rho/phi=0) # - SPEXP/SPGAU/SPLIN/SPRAT/SPSPH (spatial structures: exponential, gaussian, linear, rational quadratic, spherical) # - GEN (general positive-definite matrix for an arbitrary number of predictors) # - PHYBM/PHYPL/PHYPD (phylogenetic structures: Brownian motion, Pagel's lambda, Pagel's delta) rma.mv <- function(yi, V, W, mods, data, slab, subset, random, struct="CS", intercept=TRUE, method="REML", test="z", dfs="residual", level=95, btt, R, Rscale="cor", sigma2, tau2, rho, gamma2, phi, cvvc=FALSE, sparse=FALSE, verbose=FALSE, digits, control, ...) { # add ni as argument in the future ######################################################################### ###### setup ### check argument specifications mstyle <- .get.mstyle() if (!is.element(method, c("FE","EE","CE","ML","REML"))) stop(mstyle$stop("Unknown 'method' specified.")) if (any(!is.element(struct, c("CS","HCS","UN","AR","HAR","CAR","ID","DIAG","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","GEN","GDIAG")))) # "UNR", "PHYBM","PHYPL","PHYPD")))) stop(mstyle$stop("Unknown 'struct' specified.")) if (length(struct) == 1L) struct <- c(struct, struct) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (missing(random)) random <- NULL if (missing(R)) R <- NULL if (missing(sigma2)) sigma2 <- NULL if (missing(tau2)) tau2 <- NULL if (missing(rho)) rho <- NULL if (missing(gamma2)) gamma2 <- NULL if (missing(phi)) phi <- NULL if (missing(control)) control <- list() ### set defaults for 'digits' if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } time.start <- proc.time() ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("tdist", "outlist", "time", "dist", "abbrev", "restart", "optbeta", "beta", "vccon", "retopt", "lambda1", "lambda2")) if (is.null(ddd$lambda1)) { lambda1 <- 0 } else { lambda1 <- ddd$lambda1 } if (is.null(ddd$lambda2)) { lambda2 <- 0 } else { lambda2 <- ddd$lambda2 } ### handle 'tdist' argument from ... (note: overrides test argument) if (isFALSE(ddd$tdist)) test <- "z" if (isTRUE(ddd$tdist)) test <- "t" test <- tolower(test) if (!is.element(test, c("z", "t", "knha", "hksj", "adhoc"))) stop(mstyle$stop("Unknown option specified for the 'test' argument.")) if (test == "hksj") test <- "knha" if (is.character(dfs)) dfs <- match.arg(dfs, c("residual", "contain")) if (test == "z") { # if test="z", switch to test="t" if dfs are numeric or dfs="contain" if (is.numeric(dfs)) { test <- "t" } else { if (dfs == "contain") test <- "t" } } ### handle Rscale argument (either character, logical, or integer) if (is.character(Rscale)) Rscale <- match.arg(Rscale, c("none", "cor", "cor0", "cov0")) if (is.logical(Rscale)) Rscale <- ifelse(Rscale, "cor", "none") if (is.numeric(Rscale)) { Rscale <- round(Rscale) if (Rscale > 3 | Rscale < 0) stop(mstyle$stop("Unknown 'Rscale' value specified.")) Rscale <- switch(as.character(Rscale), "0"="none", "1"="cor", "2"="cor0", "3"="cov0") } ### handle 'dist' argument from ... if (is.null(ddd$dist)) { ddd$dist <- list("euclidean", "euclidean") } else { if (is.data.frame(ddd$dist) || .is.matrix(ddd$dist)) ddd$dist <- list(ddd$dist) if (!inherits(ddd$dist, "list")) ddd$dist <- as.list(ddd$dist) if (length(ddd$dist) == 1L) ddd$dist <- c(ddd$dist, ddd$dist) dist.methods <- c("euclidean", "maximum", "manhattan", "gcd") for (j in 1:2) { if (is.data.frame(ddd$dist[[j]])) ddd$dist[[j]] <- as.matrix(ddd$dist[[j]]) if (!is.function(ddd$dist[[j]]) && !.is.matrix(ddd$dist[[j]])) { ddd$dist[[j]] <- charmatch(ddd$dist[[j]], dist.methods, nomatch = 0) if (ddd$dist[[j]] == 0) { stop(mstyle$stop("Argument 'dist' must be one of 'euclidean', 'maximum', 'manhattan', or 'gcd'.")) } else { ddd$dist[[j]] <- dist.methods[ddd$dist[[j]]] } } } if (any(ddd$dist == "gcd")) { if (!requireNamespace("sp", quietly=TRUE)) stop(mstyle$stop("Please install the 'sp' package to compute great-circle distances.")) } } if (is.null(ddd$vccon)) { vccon <- NULL } else { vccon <- ddd$vccon sigma2 <- .chkvccon(vccon$sigma2, sigma2) tau2 <- .chkvccon(vccon$tau2, tau2) rho <- .chkvccon(vccon$rho, rho) gamma2 <- .chkvccon(vccon$gamma2, gamma2) phi <- .chkvccon(vccon$phi, phi) } ### set defaults for formulas formula.yi <- NULL formula.mods <- NULL ### in case the user specified v (instead of V), verbose is set to v, which is non-sensical ### - if v is set to the name of a variable in 'data', it won't be found; can check for ### this with try() and inherits(verbose, "try-error") ### - if v is set to vi or var (or anything else that might be interpreted as a function), ### then can catch this by checking if verbose is a function verbose <- try(verbose, silent=TRUE) if (inherits(verbose, "try-error") || is.function(verbose) || length(verbose) != 1L || !(is.logical(verbose) || is.numeric(verbose))) stop(mstyle$stop("Argument 'verbose' must be a scalar (logical or numeric/integer).")) ### set defaults for control parameters (part 1) con <- list(verbose = FALSE, optimizer = "nlminb", # optimizer to use ("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","Rcgmin","Rvmmin") optmethod = "BFGS", # argument 'method' for optim() ("Nelder-Mead" and "BFGS" are sensible options) parallel = list(), # parallel argument for optimParallel() (note: 'cl' argument in parallel is not passed; this is directly specified via 'cl') cl = NULL, # arguments for optimParallel() ncpus = 1L, # arguments for optimParallel() REMLf = TRUE, # should the full REML likelihood be computed (including all constants) evtol = 1e-07, # lower bound for eigenvalues to determine if the model matrix is positive definite nearpd = FALSE, # to force the G, H, and M matrices to be positive definite hessianCtrl = NULL, # arguments passed on to 'method.args' of hessian(); see [c] hesstol = .Machine$double.eps^0.5, # threshold for detecting fixed elements in the Hessian hesspack = "numDeriv", # package for computing the Hessian (numDeriv or pracma) check.k.gtr.1 = TRUE, # check that s.nlevels > 1 and g.levels.k > 1 mfmaxit = Inf) # iteration limit (independent of the optimizer) ### replace defaults with any user-defined values con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose ### set options(warn=1) if verbose > 2 if (verbose > 2) { opwarn <- options(warn=1) on.exit(options(warn=opwarn$warn), add=TRUE) } ######################################################################### if (verbose > 1) .space() if (verbose > 1) message(mstyle$message("Extracting yi/V values ...")) ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() ### extract 'yi', 'V', 'W', 'ni', 'slab', 'subset', and 'mods' values, possibly from the data frame specified via 'data' (arguments not specified are NULL) yi <- .getx("yi", mf=mf, data=data) V <- .getx("V", mf=mf, data=data) W <- .getx("W", mf=mf, data=data) ni <- .getx("ni", mf=mf, data=data) # not yet possible to specify this slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) mods <- .getx("mods", mf=mf, data=data) ### if yi is a formula, extract yi and X (this overrides anything specified via the mods argument further below) if (inherits(yi, "formula")) { formula.yi <- yi formula.mods <- formula.yi[-2] options(na.action = "na.pass") # set na.action to na.pass, so that NAs are not filtered out (we'll do that later) mods <- model.matrix(yi, data=data) # extract the model matrix (now 'mods' is no longer a formula, so [a] further below is skipped) attr(mods, "assign") <- NULL # strip the 'assign' attribute (not used at the moment) attr(mods, "contrasts") <- NULL # strip the 'contrasts' attribute (not used at the moment) yi <- model.response(model.frame(yi, data=data)) # extract the 'yi' values from the model frame options(na.action = na.act) # set na.action back to na.act names(yi) <- NULL # strip names (1:k) from 'yi' (so res$yi is the same whether 'yi' is a formula or not) intercept <- FALSE # set 'intercept' to FALSE since the formula now controls whether the intercept is included } # note: code further below ([b]) actually checks whether the intercept is included ### in case the user passed a data frame to yi, convert it to a vector (if possible) if (is.data.frame(yi)) { if (ncol(yi) == 1L) { yi <- yi[[1]] } else { stop(mstyle$stop("The object/variable specified for the 'yi' argument is a data frame with multiple columns.")) } } ### in case the user passed a matrix to yi, convert it to a vector (if possible) if (.is.matrix(yi)) { if (nrow(yi) == 1L || ncol(yi) == 1L) { yi <- as.vector(yi) } else { stop(mstyle$stop("The object/variable specified for the 'yi' argument is a matrix with multiple rows/columns.")) } } ### check if yi is an array if (inherits(yi, "array")) stop(mstyle$stop("The object/variable specified for the 'yi' argument is an array.")) ### check if yi is numeric if (!is.numeric(yi)) stop(mstyle$stop("The object/variable specified for the 'yi' argument is not numeric.")) ### number of outcomes before subsetting k <- length(yi) k.all <- k ### set default measure argument measure <- "GEN" if (!is.null(attr(yi, "measure"))) # take 'measure' from yi (if it is there) measure <- attr(yi, "measure") ### add measure attribute (back) to the yi vector attr(yi, "measure") <- measure ### some checks on V (and turn V into a diagonal matrix if it is a column/row vector) if (is.null(V)) stop(mstyle$stop("Must specify the 'V' argument.")) ### catch cases where 'V' is the utils::vi() function if (identical(V, utils::vi)) stop(mstyle$stop("Variable specified for 'V' argument cannot be found.")) if (is.list(V) && !is.data.frame(V)) { ### list elements may be data frames (or scalars), so coerce to matrices V <- lapply(V, as.matrix) ### check that all elements are square if (any(!sapply(V, .is.square))) stop(mstyle$stop("All list elements in 'V' must be square matrices.")) ### turn list into block-diagonal (sparse) matrix if (sparse) { V <- bdiag(V) } else { V <- bldiag(V) } } ### check if user constrained V to 0 (can skip a lot of the steps below then) if ((.is.vector(V) && length(V) == 1L && V == 0) || (.is.vector(V) && length(V) == k && all(V == 0, na.rm=TRUE))) { V0 <- TRUE } else { V0 <- FALSE } ### turn V into a diagonal matrix if it is a column/row vector ### note: if V is a scalar (e.g., V=0), then this will turn V into a kxk ### matrix with the value of V along the diagonal if (V0 || .is.vector(V) || nrow(V) == 1L || ncol(V) == 1L) { if (sparse) { V <- Diagonal(k, as.vector(V)) } else { V <- .diag(as.vector(V), dim=k) } } ### turn V into a matrix if it is a data frame if (is.data.frame(V)) V <- as.matrix(V) ### remove row and column names (important for isSymmetric() function) ### (but only do this if V has row/column names to avoid making an unnecessary copy) if (!is.null(dimnames(V))) V <- unname(V) ### check whether V is square and symmetric (can skip when V0) if (!V0 && !.is.square(V)) stop(mstyle$stop("'V' must be a square matrix.")) if (!V0 && !isSymmetric(V)) # note: copy of V is made when doing this stop(mstyle$stop("'V' must be a symmetric matrix.")) ### check length of yi and V if (nrow(V) != k) stop(mstyle$stop(paste0("Length of 'yi' (", k, ") and the length/dimensions of 'V' (", nrow(V), ") are not the same."))) ### force V to be sparse when sparse=TRUE (and V is not yet sparse) if (sparse && inherits(V, "matrix")) V <- Matrix(V, sparse=TRUE) ### check if V is numeric (but only for 'regular' matrices, since this is always FALSE for sparse matrices) if (inherits(V, "matrix") && !is.numeric(V)) stop(mstyle$stop("The object/variable specified for the 'V' argument is not numeric.")) ### process W if it was specified (turned into matrix called 'A') if (!is.null(W)) { ### turn W into a diagonal matrix if it is a column/row vector ### in general, turn W into A (arbitrary weight matrix) if (.is.vector(W) || nrow(W) == 1L || ncol(W) == 1L) { W <- as.vector(W) ### allow easy setting of W to a single value W <- .expand1(W, k) A <- .diag(W) } else { A <- W } if (is.data.frame(A)) A <- as.matrix(A) ### remove row and column names (important for isSymmetric() function) ### (but only do this if A has row/column names to avoid making an unnecessary copy) if (!is.null(dimnames(A))) A <- unname(A) ### check whether A is square and symmetric if (!.is.square(A)) stop(mstyle$stop("'W' must be a square matrix.")) if (!isSymmetric(A)) stop(mstyle$stop("'W' must be a symmetric matrix.")) ### check length of yi and A if (nrow(A) != k) stop(mstyle$stop(paste0("Length of 'yi' (", k, ") and length/dimensions of 'W' (", nrow(A), ") are not the same."))) ### force A to be sparse when sparse=TRUE (and A is not yet sparse) if (sparse && inherits(A, "matrix")) A <- Matrix(A, sparse=TRUE) if (inherits(A, "matrix") && !is.numeric(A)) stop(mstyle$stop("The object/variable specified for the 'W' argument is not numeric.")) } else { A <- NULL } ### if ni has not been specified (and hence is NULL), try to get it from the attributes of yi ### note: currently ni argument removed, so this is the only way to pass ni to the function if (is.null(ni)) ni <- attr(yi, "ni") ### check length of yi and ni ### if there is a mismatch, then ni cannot be trusted, so set it to NULL if (!is.null(ni) && length(ni) != k) ni <- NULL ### if ni is now available, add it (back) as an attribute to yi ### this is currently pointless, but may be useful if function has an ni argument #if (!is.null(ni)) # attr(yi, "ni") <- ni ######################################################################### if (verbose > 1) message(mstyle$message("Creating model matrix ...")) ### convert mods formula to X matrix and set intercept equal to FALSE ### skipped if formula has already been specified via yi argument, since mods is then no longer a formula (see [a]) if (inherits(mods, "formula")) { formula.mods <- mods if (.is.tilde1(formula.mods)) { # needed so 'mods = ~ 1' without 'data' specified works mods <- matrix(1, nrow=k, ncol=1) intercept <- FALSE } else { options(na.action = "na.pass") # set na.action to na.pass, so that NAs are not filtered out (we'll do that later) mods <- model.matrix(mods, data=data) # extract the model matrix attr(mods, "assign") <- NULL # strip the 'assign' attribute (not used at the moment) attr(mods, "contrasts") <- NULL # strip the 'contrasts' attribute (not used at the moment) options(na.action = na.act) # set na.action back to na.act intercept <- FALSE # set 'intercept' to FALSE since the formula now controls whether the intercept is included } # note: code further below ([b]) actually checks whether the intercept is included } ### turn a vector for mods into a column vector if (.is.vector(mods)) mods <- cbind(mods) ### turn a mods data frame into a matrix if (is.data.frame(mods)) mods <- as.matrix(mods) ### check if the model matrix contains character variables if (is.character(mods)) stop(mstyle$stop("The model matrix contains character variables.")) ### check if the 'mods' matrix has the right number of rows if (!is.null(mods) && nrow(mods) != k) stop(mstyle$stop(paste0("Number of rows in the model matrix (", nrow(mods), ") does not match the length of the outcome vector (", k, ")."))) ######################################################################### ######################################################################### ######################################################################### ### process random argument if (!is.element(method, c("FE","EE","CE")) && !is.null(random)) { if (verbose > 1) message(mstyle$message("Processing 'random' argument ...")) ### make sure random argument is always a list (so lapply() below works) if (!is.list(random)) random <- list(random) ### check that all elements are formulas if (any(sapply(random, function(x) !inherits(x, "formula")))) stop(mstyle$stop("All elements of 'random' must be formulas.")) ### check that all formulas have a vertical bar has.vbar <- sapply(random, function(f) grepl("|", paste0(f, collapse=""), fixed=TRUE)) if (any(!has.vbar)) stop(mstyle$stop("All formulas in 'random' must contain a grouping variable after the | symbol.")) ### check if any formula have a $ has.dollar <- sapply(random, function(f) grepl("$", paste0(f, collapse=""), fixed=TRUE)) if (any(has.dollar)) stop(mstyle$stop("Cannot use '$' notation in formulas in the 'random' argument (use the 'data' argument instead).")) ### check if any formula have a : has.colon <- sapply(random, function(f) grepl(":", paste0(f, collapse=""), fixed=TRUE)) if (any(has.colon)) stop(mstyle$stop("Cannot use ':' notation in formulas in the 'random' argument (use 'interaction()' instead).")) ### check if any formula have a %in% has.in <- sapply(random, function(f) grepl("%in%", paste0(f, collapse=""), fixed=TRUE)) if (any(has.in)) stop(mstyle$stop("Cannot use '%in%' notation in formulas in the 'random' argument (use 'interaction()' instead).")) ### check which formulas have a || has.dblvbar <- sapply(random, function(f) grepl("||", paste0(f, collapse=""), fixed=TRUE)) ### replace || with | random <- lapply(random, function(f) { if (grepl("||", paste0(f, collapse=""), fixed=TRUE)) { f <- paste0(f, collapse="") f <- gsub("||", "|", f, fixed=TRUE) f <- as.formula(f) } return(f) }) ### check which formulas in random are '~ inner | outer' formulas formulas <- list(NULL, NULL) split.formulas <- sapply(random, function(f) strsplit(paste0(f, collapse=""), " | ", fixed=TRUE)) is.inner.outer <- sapply(split.formulas, function(f) f[1] != "~1") ### make sure that there are only up to two '~ inner | outer' formulas if (sum(is.inner.outer) > 2) stop(mstyle$stop("Only up to two '~ inner | outer' formulas allowed in the 'random' argument.")) ### get '~ inner | outer' formulas if (any(is.inner.outer)) formulas[[1]] <- random[is.inner.outer][1][[1]] if (sum(is.inner.outer) == 2) formulas[[2]] <- random[is.inner.outer][2][[1]] ### figure out if a formulas has a slash (as in '~ 1 | study/id') has.slash <- sapply(random, function(f) grepl("/", paste0(f, collapse=""), fixed=TRUE)) ### check if slash is used in combination with an '~ inner | outer' term if (any(is.inner.outer & has.slash)) stop(mstyle$stop("Cannot use '~ inner | outer1/outer2' type terms in the 'random' argument.")) ### substitute + for | in all formulas (so that model.frame() below works) random.plus <- lapply(random, function(f) formula(sub("\\|", "+", paste0(f, collapse="")))) ### get all model frames corresponding to the formulas in the random argument ### mf.r <- lapply(random, get_all_vars, data=data) ### note: get_all_vars() does not carry out any functions calls within the formula ### so use model.frame(), which allows for things like 'random = ~ factor(arm) | study' ### need to use na.pass so that NAs are passed through (checks for NAs are done later) #mf.r <- lapply(random.plus, model.frame, data=data, na.action=na.pass) mf.r <- list() io <- 0 for (j in seq_along(is.inner.outer)) { if (is.inner.outer[j]) { io <- io + 1 ### for an '~ inner | outer' term with struct="GEN", expand the inner formula to the ### model matrix and re-combine this with the outer variable if (is.element(struct[io], c("GEN","GDIAG"))) { f.inner <- as.formula(strsplit(paste(random[[j]], collapse=""), " | ", fixed=TRUE)[[1]][1]) f.outer <- as.formula(paste("~", strsplit(paste(random[[j]], collapse=""), " | ", fixed=TRUE)[[1]][2])) options(na.action = "na.pass") X.inner <- model.matrix(f.inner, data=data) options(na.action = na.act) is.int <- apply(X.inner, 2, .is.intercept) colnames(X.inner)[is.int] <- "intrcpt" mf.r[[j]] <- cbind(X.inner, model.frame(f.outer, data=data, na.action=na.pass)) if (has.dblvbar[j]) # change "GEN" to "GDIAG" if the formula had a || struct[io] <- "GDIAG" } else { mf.r[[j]] <- model.frame(random.plus[[j]], data=data, na.action=na.pass) } } else { mf.r[[j]] <- model.frame(random.plus[[j]], data=data, na.action=na.pass) } } ### count number of columns in each model frame mf.r.ncols <- sapply(mf.r, ncol) ### for formulas with slashes, create interaction terms for (j in seq_along(has.slash)) { if (!has.slash[j]) next ### need to go backwards; otherwise, with 3 or more terms (e.g., ~ 1 | var1/var2/var3), the third term would be an ### interaction between var1, var1:var2, and var3; by going backwards, we get var1, var1:var2, and var1:var2:var3 for (p in mf.r.ncols[j]:1) { mf.r[[j]][,p] <- interaction(mf.r[[j]][1:p], drop=TRUE, lex.order=TRUE, sep = "/") colnames(mf.r[[j]])[p] <- paste(colnames(mf.r[[j]])[1:p], collapse="/") } } ### create list where model frames with multiple columns based on slashes are flattened out if (any(has.slash)) { if (length(mf.r) == 1L) { ### if formula only has one element of the form ~ 1 | var1/var2/..., create a list of the data frames (each with one column) mf.r <- lapply(seq(ncol(mf.r[[1]])), function(x) mf.r[[1]][x]) } else { ### if there are non-slash elements, then this flattens things out (obviously ...) mf.r <- unlist(mapply(function(mf, sl) if (sl) lapply(seq(mf), function(x) mf[x]) else list(mf), mf.r, has.slash, SIMPLIFY=FALSE), recursive=FALSE, use.names=FALSE) } ### recount number of columns in each model frame mf.r.ncols <- sapply(mf.r, ncol) } #return(mf.r) ### separate mf.r into mf.s (~ 1 | id), mf.g (~ inner | outer), and mf.h (~ inner | outer) parts mf.s <- mf.r[which(mf.r.ncols == 1)] # if there is no '~ 1 | factor' term, this is list() ([] so that we get a list of data frames) mf.g <- mf.r[[which(mf.r.ncols >= 2)[1]]] # if there is no 1st '~ inner | outer' terms, this is NULL ([[]] so that we get a data frame, not a list) mf.h <- mf.r[[which(mf.r.ncols >= 2)[2]]] # if there is no 2nd '~ inner | outer' terms, this is NULL ([[]] so that we get a data frame, not a list) ### if there is no (~ 1 | factor) term, then mf.s is list(), so turn that into NULL if (length(mf.s) == 0L) mf.s <- NULL ### does the random argument include at least one (~ 1 | id) term? withS <- !is.null(mf.s) ### does the random argument include '~ inner | outer' terms? withG <- !is.null(mf.g) withH <- !is.null(mf.h) ### count number of rows in each model frame mf.r.nrows <- sapply(mf.r, nrow) ### make sure that rows in each model frame match the length of the data if (any(mf.r.nrows != k)) stop(mstyle$stop("Length of the variables specified via the 'random' argument does not match the length of the data.")) ### need this for profile(); with things like 'random = ~ factor(arm) | study', 'mf.r' contains variables 'factor(arm)' and 'study' ### but the former won't work when using the same formula for the refitting (same when using interaction() in the random formula) ### note: with ~ 1 | interaction(var1, var2), mf.r will have 2 columns, but is actually a 'one variable' term ### and with ~ interaction(var1, var2) | var3, mf.r will have 3 columns, but is actually a 'two variable' term ### mf.r.ncols above is correct even in these cases (since it is based on the model.frame() results), but need ### to be careful that this doesn't screw up anything in other functions (for now, mf.r.ncols is not used in any other function) mf.r <- lapply(random.plus, get_all_vars, data=data) } else { ### set defaults for some elements when method="FE/EE/CE" formulas <- list(NULL, NULL) mf.r <- NULL mf.s <- NULL mf.g <- NULL mf.h <- NULL withS <- FALSE withG <- FALSE withH <- FALSE } mf.r <- unname(mf.r) # to avoid problems when list elements in 'random' are named ### warn that 'struct' argument is disregarded if it has been specified, but model contains no '~ inner | outer' terms if (!withG && "struct" %in% names(mf)) warning(mstyle$warning("Model does not contain an '~ inner | outer' term, so 'struct' argument is disregaded."), call.=FALSE) ### warn that 'random' argument is disregarded if it has been specified, but method="FE/EE/CE" if (is.element(method, c("FE","EE","CE")) && "random" %in% names(mf)) warning(mstyle$warning(paste0("The 'random' argument is disregaded when method=\"", method, "\".")), call.=FALSE) #return(list(mf.r=mf.r, mf.s=mf.s, mf.g=mf.g, mf.h=mf.h)) ### note: checks on NAs in mf.s, mf.g, and mf.h after subsetting (since NAs may be removed by subsetting) ######################################################################### ######################################################################### ######################################################################### ### generate study labels if none are specified (or none can be found in yi argument) if (verbose > 1) message(mstyle$message("Generating/extracting study labels ...")) ### study ids (1:k sequence before subsetting) ids <- seq_len(k) ### if slab has not been specified but is an attribute of yi, get it if (is.null(slab)) { slab <- attr(yi, "slab") # will be NULL if there is no slab attribute ### check length of yi and slab (only if slab is now not NULL) ### if there is a mismatch, then slab cannot be trusted, so set it to NULL if (!is.null(slab) && length(slab) != k) slab <- NULL } if (is.null(slab)) { slab.null <- TRUE slab <- ids } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) if (is.factor(slab)) slab <- as.character(slab) slab.null <- FALSE } ### if a subset of studies is specified if (!is.null(subset)) { if (verbose > 1) message(mstyle$message("Subsetting ...")) subset <- .chksubset(subset, k) yi <- .getsubset(yi, subset) V <- .getsubset(V, subset, col=TRUE) A <- .getsubset(A, subset, col=TRUE) ni <- .getsubset(ni, subset) mods <- .getsubset(mods, subset) slab <- .getsubset(slab, subset) mf.r <- lapply(mf.r, .getsubset, subset) mf.s <- lapply(mf.s, .getsubset, subset) mf.g <- .getsubset(mf.g, subset) mf.h <- .getsubset(mf.h, subset) ids <- .getsubset(ids, subset) k <- length(yi) attr(yi, "measure") <- measure # add measure attribute back attr(yi, "ni") <- ni # add ni attribute back } ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) ### add the 'slab' attribute back to 'yi' attr(yi, "slab") <- slab ### get the sampling variances from the diagonal of V vi <- diag(V) ### save the full data (including potential NAs in yi/vi/V/W/ni/mods) yi.f <- yi vi.f <- vi V.f <- V W.f <- A ni.f <- ni mods.f <- mods #mf.g.f <- mf.g # copied further below #mf.h.f <- mf.h # copied further below #mf.s.f <- mf.s # copied further below k.f <- k # total number of observed outcomes including all NAs ######################################################################### ######################################################################### ######################################################################### ### stuff that need to be done after subsetting if (withS) { if (verbose > 1) message(mstyle$message(paste0("Processing '", paste0("~ 1 | ", sapply(mf.s, names), collapse=", "), "' term(s) ..."))) ### get variables names in mf.s s.names <- sapply(mf.s, names) # one name per term ### turn each variable in mf.s into a factor (and turn each column vector into just a vector) ### if a variable was a factor to begin with, this drops any unused levels, but order of existing levels is preserved mf.s <- lapply(mf.s, function(x) factor(x[[1]])) ### check if there are any NAs anywhere in mf.s if (any(sapply(mf.s, anyNA))) stop(mstyle$stop("No NAs allowed in variables specified in the 'random' argument.")) ### how many (~ 1 | id) terms does the random argument include? (0 if none, but if withS is TRUE, must be at least 1) sigma2s <- length(mf.s) ### set default value(s) for sigma2 argument if it is unspecified if (is.null(sigma2)) sigma2 <- rep(NA_real_, sigma2s) ### allow quickly setting all sigma2 values to a fixed value sigma2 <- .expand1(sigma2, sigma2s) ### check if sigma2 is of the correct length if (length(sigma2) != sigma2s) stop(mstyle$stop(paste0("Length of the 'sigma2' argument (", length(sigma2), ") does not match the actual number of variance components (", sigma2s, ")."))) ### checks on any fixed values of sigma2 argument if (any(sigma2 < 0, na.rm=TRUE)) stop(mstyle$stop("Specified value(s) of 'sigma2' must be non-negative.")) ### get number of levels of each variable in mf.s (vector with one value per term) s.nlevels <- sapply(mf.s, nlevels) ### get levels of each variable in mf.s (list with levels for each variable) s.levels <- lapply(mf.s, levels) ### checks on R (note: do this after subsetting, so user can filter out ids with no info in R) if (is.null(R)) { withR <- FALSE Rfix <- rep(FALSE, sigma2s) } else { if (verbose > 1) message(mstyle$message("Processing 'R' argument ...")) withR <- TRUE ### make sure R is always a list (so lapply() below works) if (is.data.frame(R) || !is.list(R)) R <- list(R) ### check if R list has no names at all or some names are missing ### (if only some elements of R have names, then names(R) is "" for the unnamed elements, so use nchar()==0 to check for that) if (is.null(names(R)) || any(nchar(names(R)) == 0L)) stop(mstyle$stop("Argument 'R' must be a *named* list.")) ### remove elements in R that are NULL (not sure why this is needed; why would anybody ever do this?) ### maybe this had something to do with functions that repeatedly call rma.mv(); so leave this be for now R <- R[!sapply(R, is.null)] ### turn all elements in R into matrices (this would fail with a NULL element) R <- lapply(R, as.matrix) ### match up R matrices based on the s.names (and correct names of R) ### so if a particular ~ 1 | id term has a matching id=R element, the corresponding R element is that R matrix ### if a particular ~ 1 | id term does not have a matching id=R element, the corresponding R element is NULL R <- R[s.names] ### NULL elements in R would have no name, so this makes sure that all R elements have the correct s.names names(R) <- s.names ### check for which components an R matrix has been specified Rfix <- !sapply(R, is.null) ### Rfix could be all FALSE (if user has used id names in R that are not actually in 'random') ### so only do the rest below if that is *not* the case if (any(Rfix)) { ### check if given R matrices are square and symmetric if (any(!sapply(R[Rfix], .is.square))) stop(mstyle$stop("Elements of 'R' must be square matrices.")) if (any(!sapply(R[Rfix], function(x) isSymmetric(unname(x))))) stop(mstyle$stop("Elements of 'R' must be symmetric matrices.")) for (j in seq_along(R)) { if (!Rfix[j]) next ### even if isSymmetric() is TRUE, there may still be minor numerical differences between the lower and upper triangular ### parts that could lead to isSymmetric() being FALSE once we do any potentially rescaling of the R matrices further ### below; this ensures strict symmetry to avoid this issue #R[[j]][lower.tri(R[[j]])] <- t(R[[j]])[lower.tri(R[[j]])] R[[j]] <- symmpart(R[[j]]) ### if rownames are missing, copy colnames to rownames and vice-versa if (is.null(rownames(R[[j]]))) rownames(R[[j]]) <- colnames(R[[j]]) if (is.null(colnames(R[[j]]))) colnames(R[[j]]) <- rownames(R[[j]]) ### if colnames are still missing at this point, R element did not have dimension names to begin with if (is.null(colnames(R[[j]]))) stop(mstyle$stop("Elements of 'R' must have dimension names.")) } ### if user specified the entire (k x k) correlation matrix, this removes the duplicate rows/columns #R[Rfix] <- lapply(R[Rfix], unique, MARGIN=1) #R[Rfix] <- lapply(R[Rfix], unique, MARGIN=2) ### no, the user can specify an entire (k x k) matrix; the problem is repeated dimension names ### so let's filter out rows/columns with the same dimension names R[Rfix] <- lapply(R[Rfix], function(x) x[!duplicated(rownames(x)), !duplicated(colnames(x)), drop=FALSE]) ### after the two commands above, this should always be FALSE, but leave for now just in case if (any(sapply(R[Rfix], function(x) length(colnames(x)) != length(unique(colnames(x)))))) stop(mstyle$stop("Each element of 'R' must have unique dimension names.")) ### check for R being positive definite ### skipped: even if R is not positive definite, the marginal var-cov matrix can still be; so just check for pd during optimization #if (any(sapply(R[Rfix], !.chkpd))) # stop(mstyle$stop("Matrix in R is not positive definite.")) for (j in seq_along(R)) { if (!Rfix[j]) next ### check if there are NAs in a matrix specified via R if (anyNA(R[[j]])) stop(mstyle$stop("No missing values allowed in matrices specified via 'R'.")) ### check if there are levels in s.levels which are not in R (if yes, issue an error and stop) if (any(!is.element(s.levels[[j]], colnames(R[[j]])))) stop(mstyle$stop(paste0("There are levels in '", s.names[j], "' for which there are no matching rows/columns in the corresponding 'R' matrix."))) ### check if there are levels in R which are not in s.levels (if yes, issue a warning) if (any(!is.element(colnames(R[[j]]), s.levels[[j]]))) warning(mstyle$warning(paste0("There are rows/columns in the 'R' matrix for '", s.names[j], "' for which there are no data.")), call.=FALSE) } } else { warning(mstyle$warning("Argument 'R' specified, but list name(s) not in 'random'."), call.=FALSE) withR <- FALSE Rfix <- rep(FALSE, sigma2s) R <- NULL } } } else { ### need one fixed sigma2 value for optimization function sigma2s <- 1 sigma2 <- 0 s.nlevels <- NULL s.levels <- NULL s.names <- NULL withR <- FALSE Rfix <- FALSE R <- NULL } #mf.s.f <- mf.s # not needed at the moment ### copy s.nlevels and s.levels (needed for ranef()) s.nlevels.f <- s.nlevels s.levels.f <- s.levels ######################################################################### ### stuff that need to be done after subsetting if (withG) { tmp <- .process.G.aftersub(mf.g, struct[1], formulas[[1]], tau2, rho, isG=TRUE, k, sparse, verbose) mf.g <- tmp$mf.g g.names <- tmp$g.names g.nlevels <- tmp$g.nlevels g.levels <- tmp$g.levels g.values <- tmp$g.values tau2s <- tmp$tau2s rhos <- tmp$rhos tau2 <- tmp$tau2 rho <- tmp$rho Z.G1 <- tmp$Z.G1 Z.G2 <- tmp$Z.G2 } else { ### need one fixed tau2 and rho value for optimization function tau2s <- 1 rhos <- 1 tau2 <- 0 rho <- 0 ### need Z.G1 and Z.G2 to exist further below and for optimization function Z.G1 <- NULL Z.G2 <- NULL g.nlevels <- NULL g.levels <- NULL g.values <- NULL g.names <- NULL } mf.g.f <- mf.g # needed for predict() ######################################################################### ### stuff that need to be done after subsetting if (withH) { tmp <- .process.G.aftersub(mf.h, struct[2], formulas[[2]], gamma2, phi, isG=FALSE, k, sparse, verbose) mf.h <- tmp$mf.g h.names <- tmp$g.names h.nlevels <- tmp$g.nlevels h.levels <- tmp$g.levels h.values <- tmp$g.values gamma2s <- tmp$tau2s phis <- tmp$rhos gamma2 <- tmp$tau2 phi <- tmp$rho Z.H1 <- tmp$Z.G1 Z.H2 <- tmp$Z.G2 } else { ### need one fixed gamma2 and phi value for optimization function gamma2s <- 1 phis <- 1 gamma2 <- 0 phi <- 0 ### need Z.H1 and Z.H2 to exist further below and for optimization function Z.H1 <- NULL Z.H2 <- NULL h.nlevels <- NULL h.levels <- NULL h.values <- NULL h.names <- NULL } mf.h.f <- mf.h # needed for predict() # return(list(Z.G1=Z.G1, Z.G2=Z.G2, g.nlevels=g.nlevels, g.levels=g.levels, g.values=g.values, tau2=tau2, rho=rho, # Z.H1=Z.H1, Z.H2=Z.H2, h.nlevels=h.nlevels, h.levels=h.levels, h.values=h.values, gamma2=gamma2, phi=phi)) ######################################################################### ######################################################################### ######################################################################### ### check for NAs and act accordingly has.na <- is.na(yi) | (if (is.null(mods)) FALSE else apply(is.na(mods), 1, any)) | (if (V0) FALSE else .anyNAv(V)) | (if (is.null(A)) FALSE else apply(is.na(A), 1, any)) not.na <- !has.na if (any(has.na)) { if (verbose > 1) message(mstyle$message("Handling NAs ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] V <- V[not.na,not.na,drop=FALSE] A <- A[not.na,not.na,drop=FALSE] vi <- vi[not.na] ni <- ni[not.na] mods <- mods[not.na,,drop=FALSE] mf.r <- lapply(mf.r, function(x) x[not.na,,drop=FALSE]) mf.s <- lapply(mf.s, function(x) x[not.na]) # note: mf.s is a list of vectors at this point mf.g <- mf.g[not.na,,drop=FALSE] mf.h <- mf.h[not.na,,drop=FALSE] if (is.element(struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { Z.G1 <- Z.G1[not.na,not.na,drop=FALSE] } else { Z.G1 <- Z.G1[not.na,,drop=FALSE] } Z.G2 <- Z.G2[not.na,,drop=FALSE] if (is.element(struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { Z.H1 <- Z.H1[not.na,not.na,drop=FALSE] } else { Z.H1 <- Z.H1[not.na,,drop=FALSE] } Z.H2 <- Z.H2[not.na,,drop=FALSE] k <- length(yi) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "rows", "row"), "with NAs omitted from model fitting.")), call.=FALSE) attr(yi, "measure") <- measure # add measure attribute back attr(yi, "ni") <- ni # add ni attribute back ### note: slab is always of the same length as the full yi vector (after subsetting), so missings are not removed and slab is not added back to yi } if (na.act == "na.fail") stop(mstyle$stop("Missing values in data.")) } ### more than one study left? if (k <= 1) stop(mstyle$stop("Processing terminated since k <= 1.")) ### check for non-positive sampling variances (and set negative values to 0) if (any(vi <= 0)) { allvipos <- FALSE if (!V0) warning(mstyle$warning("There are outcomes with non-positive sampling variances."), call.=FALSE) vi.neg <- vi < 0 if (any(vi.neg)) { V[vi.neg,] <- 0 # note: entire row set to 0 (so covariances are also 0) V[,vi.neg] <- 0 # note: entire col set to 0 (so covariances are also 0) vi[vi.neg] <- 0 warning(mstyle$warning("Negative sampling variances constrained to 0."), call.=FALSE) } } else { allvipos <- TRUE } ### check for V being positive definite (this should also cover non-positive variances) ### skipped: even if V is not positive definite, the marginal var-cov matrix can still be; so just check for pd during the optimization ### but at least issue a warning, since a fixed-effects model can then not be fitted and there is otherwise no indication why this is the case if (!V0 && !.chkpd(V)) warning(mstyle$warning("'V' appears to be not positive definite."), call.=FALSE) ### check ratio of largest to smallest sampling variance ### note: need to exclude some special cases (0/0 = NaN, max(vi)/0 = Inf) ### TODO: use the condition number of V here instead? vimaxmin <- max(vi) / min(vi) if (is.finite(vimaxmin) && vimaxmin >= 1e7) warning(mstyle$warning("Ratio of largest to smallest sampling variance extremely large. May not be able to obtain stable results."), call.=FALSE) ### make sure that there is at least one column in X ([b]) if (is.null(mods) && !intercept) { warning(mstyle$warning("Must either include an intercept and/or moderators in the model.\nCoerced an intercept into the model."), call.=FALSE) intercept <- TRUE } if (!is.null(mods) && ncol(mods) == 0L) { warning(mstyle$warning("Cannot fit model with an empty model matrix. Coerced an intercept into the model."), call.=FALSE) intercept <- TRUE } ### add vector of 1s to the X matrix for the intercept (if intercept=TRUE) if (intercept) { X <- cbind(intrcpt=rep(1,k), mods) X.f <- cbind(intrcpt=rep(1,k.f), mods.f) } else { X <- mods X.f <- mods.f } ### drop redundant predictors ### note: need to save coef.na for functions that modify the data/model and then refit the model (regtest() and the ### various function that leave out an observation); so we can check if there are redundant/dropped predictors then tmp <- try(lm(yi ~ 0 + X), silent=TRUE) if (inherits(tmp, "try-error")) { stop(mstyle$stop("Error in check for redundant predictors.")) } else { coef.na <- is.na(coef(tmp)) if (any(coef.na)) { warning(mstyle$warning("Redundant predictors dropped from the model."), call.=FALSE) X <- X[,!coef.na,drop=FALSE] X.f <- X.f[,!coef.na,drop=FALSE] } } ### check whether the intercept is included and if yes, move it to the first column (NAs already removed, so na.rm=TRUE for any() not necessary) is.int <- apply(X, 2, .is.intercept) if (any(is.int)) { int.incl <- TRUE int.indx <- which(is.int, arr.ind=TRUE) X <- cbind(intrcpt=1, X[,-int.indx, drop=FALSE]) # this removes any duplicate intercepts X.f <- cbind(intrcpt=1, X.f[,-int.indx, drop=FALSE]) # this removes any duplicate intercepts intercept <- TRUE # set intercept appropriately so that the predict() function works } else { int.incl <- FALSE } ### check whether the model matrix is of full rank if (!.chkpd(crossprod(X), tol=con$evtol)) stop(mstyle$stop("Model matrix not of full rank. Cannot fit model.")) ### number of columns in X (including the intercept if it is included) p <- NCOL(X) ### make sure variable names in X are unique colnames(X) <- colnames(X.f) <- .make.unique(colnames(X)) ### check whether this is an intercept-only model if ((p == 1L) && .is.intercept(X)) { int.only <- TRUE } else { int.only <- FALSE } ### check if there are too many parameters for given k (currently skipped) ### set/check 'btt' argument btt <- .set.btt(btt, p, int.incl, colnames(X)) m <- length(btt) # number of betas to test (m = p if all betas are tested) ### check which beta elements are estimated versus fixed if (is.null(ddd$beta)) { beta.arg <- rep(NA_real_, p) beta.est <- rep(TRUE, p) } else { beta.arg <- ddd$beta if (length(beta.arg) != p) stop(mstyle$stop(paste0("Length of the 'beta' argument (", length(beta.arg), ") does not match the actual number of fixed effects (", p, ")."))) beta.est <- is.na(beta.arg) } ### check whether we are optimizing over the beta coefficients as well optbeta <- .chkddd(ddd$optbeta, FALSE, isTRUE(ddd$optbeta)) if (optbeta && !is.null(A)) stop(mstyle$stop("Cannot use custom weights when 'optbeta=TRUE'.")) if (lambda1 > 0 || lambda2 > 0) optbeta <- TRUE ######################################################################### ######################################################################### ######################################################################### ### stuff that need to be done after subsetting and filtering out NAs if (withS) { ### redo: turn each variable in mf.s into a factor (reevaluates the levels present, but order of existing levels is preserved) mf.s <- lapply(mf.s, factor) ### redo: get number of levels of each variable in mf.s (vector with one value per term) s.nlevels <- sapply(mf.s, nlevels) ### redo: get levels of each variable in mf.s s.levels <- lapply(mf.s, levels) ### for any single-level factor with unfixed sigma2, fix the sigma2 value to 0 if (any(is.na(sigma2) & s.nlevels == 1) && con$check.k.gtr.1) { sigma2[is.na(sigma2) & s.nlevels == 1] <- 0 warning(mstyle$warning("Single-level factor(s) found in 'random' argument. Corresponding 'sigma2' value(s) fixed to 0."), call.=FALSE) } ### create model matrix for each element in mf.s Z.S <- vector(mode="list", length=sigma2s) for (j in seq_len(sigma2s)) { if (s.nlevels[j] == 1) { Z.S[[j]] <- cbind(rep(1,k)) } else { if (sparse) { Z.S[[j]] <- sparse.model.matrix(~ 0 + mf.s[[j]]) # cannot use this for factors with a single level } else { Z.S[[j]] <- model.matrix(~ 0 + mf.s[[j]]) # cannot use this for factors with a single level } } attr(Z.S[[j]], "assign") <- NULL attr(Z.S[[j]], "contrasts") <- NULL } } else { Z.S <- NULL } ######################################################################### ### stuff that need to be done after subsetting and filtering out NAs if (withR) { ### R may contain levels that are not in ids (that's fine; just filter them out) ### also, R may not be in the order that Z.S is in, so this fixes that up for (j in seq_along(R)) { if (!Rfix[j]) next R[[j]] <- R[[j]][s.levels[[j]], s.levels[[j]]] } ### TODO: allow Rscale to be a vector so that different Rs can be scaled differently ### force each element of R to be a correlation matrix (and do some checks on that) if (Rscale=="cor" || Rscale=="cor0") { R[Rfix] <- lapply(R[Rfix], function(x) { if (any(diag(x) <= 0)) stop(mstyle$stop("Cannot use Rscale=\"cor\" or Rscale=\"cor0\" with non-positive values on the diagonal of an 'R' matrix.")) tmp <- cov2cor(x) if (any(abs(tmp) > 1)) warning(mstyle$warning("Some values are larger than +-1 in an 'R' matrix after cov2cor() (see 'Rscale' argument)."), call.=FALSE) return(tmp) }) } ### rescale R so that entries are 0 to (max(R) - min(R)) / (1 - min(R)) ### this preserves the ultrametric properties of R and makes levels split at the root uncorrelated if (Rscale=="cor0") R[Rfix] <- lapply(R[Rfix], function(x) (x - min(x)) / (1 - min(x))) ### rescale R so that min(R) is zero (this is for the case that R is covariance matrix) if (Rscale=="cov0") R[Rfix] <- lapply(R[Rfix], function(x) (x - min(x))) } ######################################################################### ### create (kxk) indicator/correlation matrices for random intercepts if (withS) { D.S <- vector(mode="list", length=sigma2s) for (j in seq_len(sigma2s)) { if (Rfix[j]) { if (sparse) { D.S[[j]] <- Z.S[[j]] %*% Matrix(R[[j]], sparse=TRUE) %*% t(Z.S[[j]]) } else { D.S[[j]] <- Z.S[[j]] %*% R[[j]] %*% t(Z.S[[j]]) } # D.S[[j]] <- as.matrix(nearPD(D.S[[j]])$mat) ### this avoids that the full matrix becomes non-positive definite but adding ### a tiny amount to the diagonal of D.S[[j]] is easier and works just as well ### TODO: consider doing something like this by default } else { D.S[[j]] <- tcrossprod(Z.S[[j]]) } } } else { D.S <- NULL } ######################################################################### ### stuff that need to be done after subsetting and filtering out NAs if (withG) { tmp <- .process.G.afterrmna(mf.g, g.nlevels, g.levels, g.values, struct[1], formulas[[1]], tau2, rho, Z.G1, Z.G2, isG=TRUE, sparse, ddd$dist[[1]], con$check.k.gtr.1, verbose) mf.g <- tmp$mf.g g.nlevels <- tmp$g.nlevels g.nlevels.f <- tmp$g.nlevels.f g.levels <- tmp$g.levels g.levels.f <- tmp$g.levels.f g.levels.r <- tmp$g.levels.r g.levels.k <- tmp$g.levels.k g.levels.comb.k <- tmp$g.levels.comb.k tau2 <- tmp$tau2 rho <- tmp$rho G <- tmp$G g.Dmat <- tmp$Dmat g.rho.init <- tmp$rho.init } else { g.nlevels.f <- NULL g.levels.f <- NULL g.levels.r <- NULL g.levels.k <- NULL g.levels.comb.k <- NULL G <- NULL g.Dmat <- NULL g.rho.init <- NULL } ######################################################################### ### stuff that need to be done after subsetting and filtering out NAs if (withH) { tmp <- .process.G.afterrmna(mf.h, h.nlevels, h.levels, h.values, struct[2], formulas[[2]], gamma2, phi, Z.H1, Z.H2, isG=FALSE, sparse, ddd$dist[[2]], con$check.k.gtr.1, verbose) mf.h <- tmp$mf.g h.nlevels <- tmp$g.nlevels h.nlevels.f <- tmp$g.nlevels.f h.levels <- tmp$g.levels h.levels.f <- tmp$g.levels.f h.levels.r <- tmp$g.levels.r h.levels.k <- tmp$g.levels.k h.levels.comb.k <- tmp$g.levels.comb.k gamma2 <- tmp$tau2 phi <- tmp$rho H <- tmp$G h.Dmat <- tmp$Dmat h.phi.init <- tmp$rho.init } else { h.nlevels.f <- NULL h.levels.f <- NULL h.levels.r <- NULL h.levels.k <- NULL h.levels.comb.k <- NULL H <- NULL h.Dmat <- NULL h.phi.init <- NULL } ######################################################################### #return(list(Z.S=Z.S, sigma2=sigma2, Z.G1=Z.G1, Z.G2=Z.G2, tau2=tau2, rho=rho, G=G, Z.H1=Z.H1, Z.H2=Z.H2, gamma2=gamma2, phi=phi, H=H, Rfix=Rfix, R=R)) ######################################################################### ######################################################################### ######################################################################### Y <- as.matrix(yi) ### initial values for variance components (need to do something better here in the future; see rma.mv2() and rma.bv() for some general ideas) if (verbose > 1) message(mstyle$message("Extracting/computing initial values ...")) QE <- NA_real_ if (!V0) { # for V0 case, this always fails, so can skip it if (verbose > 1) { U <- try(chol(chol2inv(chol(V))), silent=FALSE) } else { U <- try(suppressWarnings(chol(chol2inv(chol(V)))), silent=TRUE) } } if (V0 || inherits(U, "try-error") || any(is.infinite(U))) { ### note: if V is sparse diagonal with 0 along the diagonal, U will not be a 'try-error' ### but have Inf along the diagonal, so need to check for this as well total <- sigma(lm(Y ~ 0 + X))^2 if (is.na(total)) # if X is a saturated model, then sigma() yields NaN total <- var(as.vector(Y)) / 100 } else { sX <- U %*% X sY <- U %*% Y beta.FE <- try(solve(crossprod(sX), crossprod(sX, sY)), silent=TRUE) if (inherits(beta.FE, "try-error")) { total <- var(as.vector(Y)) } else { ### TODO: consider a better way to set initial values #total <- max(0.001*(sigma2s + tau2s + gamma2s), var(c(Y - X %*% res.FE$beta)) - 1/mean(1/diag(V))) #total <- max(0.001*(sigma2s + tau2s + gamma2s), var(as.vector(sY - sX %*% beta)) - 1/mean(1/diag(V))) total <- max(0.001*(sigma2s + tau2s + gamma2s), var(as.vector(Y) - as.vector(X %*% beta.FE)) - 1/mean(1/diag(V))) #beta.FE <- ifelse(beta.est, beta.FE, beta.arg) QE <- sum(as.vector(sY - sX %*% beta.FE)^2) ### QEp calculated further below } } sigma2.init <- rep(total / (sigma2s + tau2s + gamma2s), sigma2s) tau2.init <- rep(total / (sigma2s + tau2s + gamma2s), tau2s) gamma2.init <- rep(total / (sigma2s + tau2s + gamma2s), gamma2s) if (is.null(g.rho.init)) { rho.init <- rep(0.50, rhos) } else { rho.init <- g.rho.init } if (is.null(h.phi.init)) { phi.init <- rep(0.50, phis) } else { phi.init <- h.phi.init } ######################################################################### ### set default control parameters (part 2) con <- c(con, list(sigma2.init = sigma2.init, # initial value(s) for sigma2 tau2.init = tau2.init, # initial value(s) for tau2 rho.init = rho.init, # initial value(s) for rho gamma2.init = gamma2.init, # initial value(s) for gamma2 phi.init = phi.init, # initial value(s) for phi cholesky = ifelse(is.element(struct, c("UN","UNR","GEN")), TRUE, FALSE))) # by default, use Cholesky factorization for G and H matrix for "UN", "UNR", and "GEN" structures ### replace defaults with any user-defined values con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] ### when restart=TRUE, restart at current estimates if (isTRUE(ddd$restart)) { ### check that the restart is done for a model that has the same type/number of var-cor components as the initial one okrestart <- TRUE if (withS && (is.null(.getfromenv("rma.mv", "sigma2")) || length(.getfromenv("rma.mv", "sigma2")) != sigma2s)) okrestart <- FALSE if (withG && (is.null(.getfromenv("rma.mv", "tau2")) || length(.getfromenv("rma.mv", "tau2")) != tau2s)) okrestart <- FALSE if (withG && (is.null(.getfromenv("rma.mv", "rho")) || length(.getfromenv("rma.mv", "rho")) != rhos)) okrestart <- FALSE if (withH && (is.null(.getfromenv("rma.mv", "gamma2")) || length(.getfromenv("rma.mv", "gamma2")) != gamma2s)) okrestart <- FALSE if (withH && (is.null(.getfromenv("rma.mv", "phi")) || length(.getfromenv("rma.mv", "phi")) != phis)) okrestart <- FALSE if (!okrestart) stop(mstyle$stop(paste0("Restarting for a different model than the initial one."))) con$sigma2.init <- .getfromenv("rma.mv", "sigma2", default=con$sigma2.init) con$tau2.init <- .getfromenv("rma.mv", "tau2", default=con$tau2.init) con$rho.init <- .getfromenv("rma.mv", "rho", default=con$rho.init) con$gamma2.init <- .getfromenv("rma.mv", "gamma2", default=con$gamma2.init) con$phi.init <- .getfromenv("rma.mv", "phi", default=con$phi.init) } ### check for missings in initial values if (anyNA(con$sigma2.init)) stop(mstyle$stop(paste0("No missing values allowed in 'sigma2.init'."))) if (anyNA(con$tau2.init)) stop(mstyle$stop(paste0("No missing values allowed in 'tau2.init'."))) if (anyNA(con$rho.init)) stop(mstyle$stop(paste0("No missing values allowed in 'rho.init'."))) if (anyNA(con$gamma2.init)) stop(mstyle$stop(paste0("No missing values allowed in 'gamma2.init'."))) if (anyNA(con$phi.init)) stop(mstyle$stop(paste0("No missing values allowed in 'phi.init'."))) ### expand initial values to correct length con$sigma2.init <- .expand1(con$sigma2.init, sigma2s) con$tau2.init <- .expand1(con$tau2.init, tau2s) con$rho.init <- .expand1(con$rho.init, rhos) con$gamma2.init <- .expand1(con$gamma2.init, gamma2s) con$phi.init <- .expand1(con$phi.init, phis) ### checks on initial values set by the user (the initial values computed by the function are replaced by the user defined ones at this point) if (withS && any(con$sigma2.init <= 0)) stop(mstyle$stop("Value(s) of 'sigma2.init' must be > 0.")) if (withG && any(con$tau2.init <= 0)) stop(mstyle$stop("Value(s) of 'tau2.init' must be > 0.")) if (withG && struct[1]=="CAR" && (con$rho.init <= 0 | con$rho.init >= 1)) stop(mstyle$stop("Value(s) of 'rho.init' must be in (0,1).")) if (withG && is.element(struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH")) && any(con$rho.init <= 0)) stop(mstyle$stop("Value(s) of 'rho.init' must be > 0.")) if (withG && is.element(struct[1], c("PHYPL","PHYPD")) && con$rho.init < 0) stop(mstyle$stop("Value(s) of 'rho.init' must be in >= 0.")) if (withG && !is.element(struct[1], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD")) && any(con$rho.init <= -1 | con$rho.init >= 1)) stop(mstyle$stop("Value(s) of 'rho.init' must be in (-1,1).")) if (withH && any(con$gamma2.init <= 0)) stop(mstyle$stop("Value(s) of 'gamma2.init' must be > 0.")) if (withH && struct[2]=="CAR" && (con$phi.init <= 0 | con$phi.init >= 1)) stop(mstyle$stop("Value(s) of 'phi.init' must be in (0,1).")) if (withH && is.element(struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH")) && any(con$phi.init <= 0)) stop(mstyle$stop("Value(s) of 'phi.init' must be > 0.")) if (withH && is.element(struct[2], c("PHYPL","PHYPD")) && con$phi.init < 0) stop(mstyle$stop("Value(s) of 'phi.init' must be in >= 0.")) if (withH && !is.element(struct[2], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD")) && any(con$phi.init <= -1 | con$phi.init >= 1)) stop(mstyle$stop("Value(s) of 'phi.init' must be in (-1,1).")) ### in case the user manually set con$cholesky and specified only a single value con$cholesky <- .expand1(con$cholesky, 2L) ### use of Cholesky factorization only applicable for models with "UN", "UNR", and "GEN" structure if (!withG) # in case the user set cholesky=TRUE and struct="UN", struct="UNR", or struct="GEN" even though there is no 1st 'inner | outer' term con$cholesky[1] <- FALSE if (con$cholesky[1] && !is.element(struct[1], c("UN","UNR","GEN"))) con$cholesky[1] <- FALSE if (!withH) # in case the user set cholesky=TRUE and struct="UN", struct="UNR", or struct="GEN" even though there is no 2nd 'inner | outer' term con$cholesky[2] <- FALSE if (con$cholesky[2] && !is.element(struct[2], c("UN","UNR","GEN"))) con$cholesky[2] <- FALSE ### copy initial values back (in case they were replaced by user-defined values); those values are ### then shown in the 'Variance Components in Model' table that is given when verbose=TRUE; cannot ### replace any fixed values, since that can lead to -Inf/+Inf below when transforming the initial ### values and then optim() throws an error and chol(G) and/or chol(H) is then likely to fail #sigma2.init <- ifelse(is.na(sigma2), con$sigma2.init, sigma2) #tau2.init <- ifelse(is.na(tau2), con$tau2.init, tau2) #rho.init <- ifelse(is.na(rho), con$rho.init, rho) sigma2.init <- con$sigma2.init tau2.init <- con$tau2.init rho.init <- con$rho.init gamma2.init <- con$gamma2.init phi.init <- con$phi.init ### plug in fixed values for sigma2, tau2, rho, gamma2, and phi and transform initial values con$sigma2.init <- log(sigma2.init) if (con$cholesky[1]) { if (struct[1] == "UNR") { G <- .con.vcov.UNR(tau2.init, rho.init) } else { G <- .con.vcov.UN(tau2.init, rho.init) } G <- try(chol(G), silent=TRUE) if (inherits(G, "try-error") || anyNA(G)) stop(mstyle$stop("Cannot take Choleski decomposition of initial 'G' matrix.")) if (struct[1] == "UNR") { con$tau2.init <- log(tau2.init) } else { con$tau2.init <- diag(G) # note: con$tau2.init and con$rho.init are the 'choled' values of the initial G matrix, so con$rho.init really con$rho.init <- t(G)[lower.tri(G)] # contains the 'choled' covariances; and these values are also passed on the .ll.rma.mv as the initial values } if (length(con$rho.init) == 0L) con$rho.init <- 0 } else { con$tau2.init <- log(tau2.init) if (struct[1] == "CAR") con$rho.init <- qlogis(rho.init) if (is.element(struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) con$rho.init <- log(rho.init) if (!is.element(struct[1], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) con$rho.init <- atanh(rho.init) } if (con$cholesky[2]) { H <- .con.vcov.UN(gamma2.init, phi.init) H <- try(chol(H), silent=TRUE) if (inherits(H, "try-error") || anyNA(H)) stop(mstyle$stop("Cannot take Choleski decomposition of initial 'H' matrix.")) con$gamma2.init <- diag(H) # note: con$gamma2.init and con$phi.init are the 'choled' values of the initial H matrix, so con$phi.init really con$phi.init <- t(H)[lower.tri(H)] # contains the 'choled' covariances; and these values are also passed on the .ll.rma.mv as the initial values if (length(con$phi.init) == 0L) con$phi.init <- 0 } else { con$gamma2.init <- log(gamma2.init) if (struct[2] == "CAR") con$phi.init <- qlogis(phi.init) if (is.element(struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) con$phi.init <- log(phi.init) if (!is.element(struct[2], c("CAR","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) con$phi.init <- atanh(phi.init) } optimizer <- match.arg(con$optimizer, c("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent","Rcgmin","Rvmmin")) optmethod <- match.arg(con$optmethod, c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) if (optimizer %in% c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) { optmethod <- optimizer optimizer <- "optim" } nearpd <- con$nearpd cholesky <- con$cholesky parallel <- con$parallel cl <- con$cl ncpus <- con$ncpus optcontrol <- control[is.na(con.pos)] # get arguments that are control arguments for optimizer if (length(optcontrol) == 0L) optcontrol <- list() ### if control argument 'ncpus' is larger than 1, automatically switch to the 'optimParallel' optimizer if (ncpus > 1L) optimizer <- "optimParallel" reml <- ifelse(method == "REML", TRUE, FALSE) ### checks on hesspack and hessianCtrl ([c]) con$hesspack <- match.arg(con$hesspack, c("numDeriv","pracma","calculus")) if ((isTRUE(cvvc) || cvvc %in% c("varcor","varcov","transf") || optbeta) && !requireNamespace(con$hesspack, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", con$hesspack, "' package to compute the Hessian."))) if (con$hesspack == "numDeriv") { if (is.null(con$hessianCtrl$r)) con$hessianCtrl$r <- 8 } if (con$hesspack == "pracma") { if (is.null(con$hessianCtrl$h)) con$hessianCtrl$h <- .Machine$double.eps^(1/4) } if (con$hesspack == "calculus") { if (is.null(con$hessianCtrl$accuracy)) con$hessianCtrl$accuracy <- 4 } ### check if length of sigma2.init, tau2.init, rho.init, gamma2.init, and phi.init matches the number of variance components ### note: if a particular component is not included, reset (transformed) initial values (in case the user still specified multiple initial values) if (withS) { if (length(con$sigma2.init) != sigma2s) stop(mstyle$stop(paste0("Length of the 'sigma2.init' argument (", length(con$sigma2.init), ") does not match the actual number of variance components (", sigma2s, ")."))) } else { con$sigma2.init <- 0 } if (withG) { if (length(con$tau2.init) != tau2s) stop(mstyle$stop(paste0("Length of the 'tau2.init' argument (", length(con$tau2.init), ") does not match the actual number of variance components (", tau2s, ")."))) } else { con$tau2.init <- 0 } if (withG) { if (length(con$rho.init) != rhos) stop(mstyle$stop(paste0("Length of the 'rho.init' argument (", length(con$rho.init), ") does not match the actual number of correlations (", rhos, ")."))) } else { con$rho.init <- 0 } if (withH) { if (length(con$gamma2.init) != gamma2s) stop(mstyle$stop(paste0("Length of the 'gamma2.init' argument (", length(con$gamma2.init), ") does not match the actual number of variance components (", gamma2s, ")."))) } else { con$gamma2.init <- 0 } if (withH) { if (length(con$phi.init) != phis) stop(mstyle$stop(paste0("Length of the 'phi.init' argument (", length(con$phi.init), ") does not match the actual number of correlations (", phis, ")."))) } else { con$phi.init <- 0 } ######################################################################### ### which variance components are fixed? (TRUE/FALSE or NA if not applicable = not included) if (withS) { sigma2.fix <- !is.na(sigma2) } else { sigma2.fix <- NA } if (withG) { tau2.fix <- !is.na(tau2) rho.fix <- !is.na(rho) } else { tau2.fix <- NA rho.fix <- NA } if (withH) { gamma2.fix <- !is.na(gamma2) phi.fix <- !is.na(phi) } else { gamma2.fix <- NA phi.fix <- NA } vc.fix <- list(sigma2=sigma2.fix, tau2=tau2.fix, rho=rho.fix, gamma2=gamma2.fix, phi=phi.fix) ### show which variance components are included in the model, their initial value, and their specified value (NA if not specified) if (verbose) { cat("\n") cat(mstyle$verbose("Variance Components in Model:")) if (!withS && !withG && !withH) { cat(mstyle$verbose(" none")) cat("\n\n") } else { cat("\n\n") vcs <- rbind(c("sigma2" = if (withS) round(sigma2.init, digits[["var"]]) else NA_real_, "tau2" = if (withG) round(tau2.init, digits[["var"]]) else NA_real_, "rho" = if (withG) round(rho.init, digits[["var"]]) else NA_real_, "gamma2" = if (withH) round(gamma2.init, digits[["var"]]) else NA_real_, "phi" = if (withH) round(phi.init, digits[["var"]]) else NA_real_), round(c( if (withS) sigma2 else NA_real_, if (withG) tau2 else NA_real_, if (withG) rho else NA_real_, if (withH) gamma2 else NA_real_, if (withH) phi else NA_real_), digits[["var"]])) vcs <- data.frame(vcs, stringsAsFactors=FALSE) rownames(vcs) <- c("initial", "specified") vcs <- rbind(included=ifelse(c(rep(withS, sigma2s), rep(withG, tau2s), rep(withG, rhos), rep(withH, gamma2s), rep(withH, phis)), "Yes", "No"), fixed=unlist(vc.fix), vcs) tmp <- capture.output(print(vcs, na.print="---")) .print.output(tmp, mstyle$verbose) cat("\n") } } level <- .level(level) #return(list(sigma2s, tau2s, rhos, gamma2s, phis)) ######################################################################### ######################################################################### ######################################################################### ###### model fitting, test statistics, and confidence intervals if (verbose > 1) message(mstyle$message("Model fitting ...\n")) ### estimate sigma2, tau2, rho, gamma2, and phi as needed tmp <- .chkopt(optimizer, optcontrol) optimizer <- tmp$optimizer optcontrol <- tmp$optcontrol par.arg <- tmp$par.arg ctrl.arg <- tmp$ctrl.arg if (optimizer == "optimParallel::optimParallel") { parallel$cl <- NULL if (is.null(cl)) { ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Control argument 'ncpus' must be >= 1.")) cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } else { if (!inherits(cl, "SOCKcluster")) stop(mstyle$stop("Specified cluster is not of class 'SOCKcluster'.")) } parallel$cl <- cl if (is.null(parallel$forward)) parallel$forward <- FALSE if (is.null(parallel$loginfo)) { if (verbose) { parallel$loginfo <- TRUE } else { parallel$loginfo <- FALSE } } } if (optbeta || (!is.element(method, c("FE","EE","CE")) && !is.null(random))) { if (optbeta) { # TODO: better start values for beta par.val <- "c(rep(0,p), con$sigma2.init, con$tau2.init, con$rho.init, con$gamma2.init, con$phi.init)" } else { par.val <- "c(con$sigma2.init, con$tau2.init, con$rho.init, con$gamma2.init, con$phi.init)" } if (anyNA(c(sigma2, tau2, rho, gamma2, phi)) || optbeta) { ### if at least one parameter needs to be estimated or optbeta=TRUE optcall <- paste0(optimizer, "(", par.arg, "=", par.val, ", .ll.rma.mv, reml=reml, ", ifelse(optimizer=="optim", "method=optmethod, ", ""), "Y=Y, M=V, A=NULL, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2, tau2.arg=tau2, rho.arg=rho, gamma2.arg=gamma2, phi.arg=phi, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=cholesky, nearpd=nearpd, vctransf=TRUE, vccov=FALSE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, mfmaxit=con$mfmaxit, dofit=FALSE, hessian=FALSE, optbeta=", optbeta, ", lambda1=", lambda1, ", lambda2=", lambda2, ", intercept=", intercept, ctrl.arg, ")\n") #return(optcall) iteration <- 0 try(assign("iteration", iteration, envir=.metafor), silent=TRUE) if (verbose) { opt.res <- try(eval(str2lang(optcall)), silent=!verbose) } else { opt.res <- try(suppressWarnings(eval(str2lang(optcall))), silent=!verbose) } if (isTRUE(ddd$retopt)) return(opt.res) ### convergence checks (if verbose print optimParallel log, if verbose > 2 print opt.res, and unify opt.res$par) opt.res$par <- .chkconv(optimizer=optimizer, opt.res=opt.res, optcontrol=optcontrol, fun="rma.mv", verbose=verbose) if (p == k) { ### when fitting a saturated model (with REML estimation), estimated values of variance components can remain stuck ### at their initial values; this ensures that the values are fixed to zero (unless values were fixed by the user) sigma2[is.na(sigma2)] <- 0 tau2[is.na(tau2)] <- 0 rho[is.na(rho)] <- 0 gamma2[is.na(gamma2)] <- 0 phi[is.na(phi)] <- 0 } } else { ### if all parameters are fixed to known values and optbeta=FALSE, can skip optimization opt.res <- list(par=c(sigma2, tau2, rho, gamma2, phi)) } ### save these for Hessian computation sigma2.arg <- sigma2 tau2.arg <- tau2 rho.arg <- rho gamma2.arg <- gamma2 phi.arg <- phi } else { opt.res <- list(par=c(0,0,0,0,0)) } ######################################################################### ### do the final model fit with estimated variance components fitcall <- .ll.rma.mv(opt.res$par, reml=reml, Y=Y, M=V, A=A, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2, tau2.arg=tau2, rho.arg=rho, gamma2.arg=gamma2, phi.arg=phi, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=cholesky, nearpd=nearpd, vctransf=TRUE, vccov=FALSE, vccon=vccon, verbose=FALSE, digits=digits, REMLf=con$REMLf, dofit=TRUE, optbeta=optbeta, lambda1=lambda1, lambda2=lambda2, intercept=intercept) ### extract elements beta <- as.matrix(fitcall$beta) vb <- matrix(NA_real_, nrow=p, ncol=p) hessian <- NA_real_ vvc <- NA_real_ if (optbeta) { if (verbose > 1) message(mstyle$message("Computing var-cov matrix ...\n")) if (con$hesspack == "numDeriv") hessian <- try(numDeriv::hessian(func=.ll.rma.mv, x=opt.res$par, method.args=con$hessianCtrl, reml=reml, Y=Y, M=V, A=A, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2, tau2.arg=tau2, rho.arg=rho, gamma2.arg=gamma2, phi.arg=phi, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=cholesky, nearpd=nearpd, vctransf=TRUE, vccov=FALSE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, dofit=FALSE, hessian=TRUE, optbeta=optbeta, lambda1=lambda1, lambda2=lambda2, intercept=intercept), silent=!verbose) if (con$hesspack == "pracma") hessian <- try(pracma::hessian(f=.ll.rma.mv, x0=opt.res$par, h=con$hessianCtrl$h, reml=reml, Y=Y, M=V, A=A, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2, tau2.arg=tau2, rho.arg=rho, gamma2.arg=gamma2, phi.arg=phi, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=cholesky, nearpd=nearpd, vctransf=TRUE, vccov=FALSE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, dofit=FALSE, hessian=TRUE, optbeta=optbeta, lambda1=lambda1, lambda2=lambda2, intercept=intercept), silent=!verbose) if (con$hesspack == "calculus") hessian <- try(calculus::hessian(f=.ll.rma.mv, var=opt.res$par, accuracy=con$hessianCtrl$accuracy, stepsize=con$hessianCtrl$stepsize, params = list(reml=reml, Y=Y, M=V, A=A, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2, tau2.arg=tau2, rho.arg=rho, gamma2.arg=gamma2, phi.arg=phi, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=cholesky, nearpd=nearpd, vctransf=TRUE, vccov=FALSE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, dofit=FALSE, hessian=TRUE, optbeta=optbeta, lambda1=lambda1, lambda2=lambda2, intercept=intercept)), silent=!verbose) if (inherits(hessian, "try-error")) { warning(mstyle$warning("Error when trying to compute the Hessian."), call.=FALSE) hessian <- NA_real_ } else { colnames(hessian) <- rep("", ncol(hessian)) if (int.incl) { colnames(hessian)[1:p] <- paste0("beta", 0:(p-1)) } else { colnames(hessian)[1:p] <- paste0("beta", 1:p) } rownames(hessian) <- colnames(hessian) ### detect rows/columns that are essentially all equal to 0 (fixed elements) and filter them out hest <- !apply(hessian, 1, function(x) all(abs(x) <= con$hesstol)) hessian <- hessian[hest, hest, drop=FALSE] ### try to invert Hessian if (any(hest)) { vvc <- try(suppressWarnings(chol2inv(chol(hessian))), silent=TRUE) if (inherits(vvc, "try-error") || anyNA(vvc) || any(is.infinite(vvc))) { warning(mstyle$warning("Error when trying to invert the Hessian."), call.=FALSE) } else { sel <- grep("beta", colnames(hessian), fixed=TRUE) vb[hest[1:p],hest[1:p]] <- vvc[sel,sel,drop=FALSE] } } else { vb <- matrix(NA_real_, nrow=p, ncol=p) } } if (verbose > 1) cat("\n") } else { vb <- as.matrix(fitcall$vb) vb[!beta.est,] <- NA_real_ vb[,!beta.est] <- NA_real_ } if (withS) sigma2 <- fitcall$sigma2 if (withG) { G <- as.matrix(fitcall$G) if (is.element(struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) colnames(G) <- rownames(G) <- seq_len(nrow(G)) if (is.element(struct[1], c("CS","HCS","UN","UNR","AR","HAR","CAR","ID","DIAG"))) colnames(G) <- rownames(G) <- g.levels.f[[1]] if (is.element(struct[1], c("GEN","GDIAG"))) colnames(G) <- rownames(G) <- g.names[-length(g.names)] tau2 <- fitcall$tau2 rho <- fitcall$rho cov1 <- G[lower.tri(G)] } else { cov1 <- 0 } if (withH) { H <- as.matrix(fitcall$H) if (is.element(struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) colnames(H) <- rownames(H) <- seq_len(nrow(H)) if (is.element(struct[2], c("CS","HCS","UN","UNR","AR","HAR","CAR","ID","DIAG"))) colnames(H) <- rownames(H) <- h.levels.f[[1]] if (is.element(struct[2], c("GEN","GDIAG"))) colnames(H) <- rownames(H) <- h.names[-length(h.names)] gamma2 <- fitcall$gamma2 phi <- fitcall$phi cov2 <- H[lower.tri(H)] } else { cov2 <- 0 } M <- fitcall$M ### remove row and column names of M (but only do this if M has row/column names) if (!is.null(dimnames(M))) M <- unname(M) #print(M[1:8,1:8]) if (verbose > 1) message(mstyle$message(ifelse(verbose > 2, "", "\n"), "Conducting tests of the fixed effects ...")) ### ddf calculation if (is.element(test, c("knha","adhoc","t"))) { ddf <- .ddf.calc(dfs, X=X, k=k, p=p, mf.s=mf.s, mf.g=mf.g, mf.h=mf.h) } else { ddf <- rep(NA_integer_, p) } ### the Knapp & Hartung method (this is experimental!) s2w <- 1 if (is.element(test, c("knha","adhoc"))) { knha.rma.mv.warn <- .getfromenv("knha.rma.mv.warn", default=TRUE) if (knha.rma.mv.warn) { warning(mstyle$warning("Use of the Knapp and Hartung method for 'rma.mv()' models is experimental.\nNote: This warning is only issued once per session (ignore at your peril)."), call.=FALSE) try(assign("knha.rma.mv.warn", FALSE, envir=.metafor), silent=TRUE) } RSS <- try(as.vector(t(Y - X %*% beta) %*% chol2inv(chol(M)) %*% (Y - X %*% beta)), silent=TRUE) if (inherits(RSS, "try-error")) stop(mstyle$stop(paste0("Failure when trying to compute adjustment factor for Knapp and Hartung method."))) if (RSS <= .Machine$double.eps) { s2w <- 0 } else { s2w <- as.vector(RSS / (k - p)) } } if (test == "adhoc") s2w[s2w < 1] <- 1 vb <- s2w * vb ### QM calculation QM <- try(as.vector(t(beta)[btt] %*% chol2inv(chol(vb[btt,btt])) %*% beta[btt]), silent=TRUE) if (inherits(QM, "try-error")) QM <- NA_real_ ### abbreviate certain coefficient names if (isTRUE(ddd$abbrev)) { tmp <- colnames(X) tmp <- gsub("relevel(factor(", "", tmp, fixed=TRUE) tmp <- gsub("\\), ref = \"[[:alnum:]]*\")", "", tmp) tmp <- gsub("poly(", "", tmp, fixed=TRUE) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]])", "^", tmp) tmp <- gsub("rcs\\([[:alnum:]]*, [[:digit:]]\\)", "", tmp) tmp <- gsub("factor(", "", tmp, fixed=TRUE) tmp <- gsub("I(", "", tmp, fixed=TRUE) tmp <- gsub(")", "", tmp, fixed=TRUE) colnames(X) <- tmp } rownames(beta) <- rownames(vb) <- colnames(vb) <- colnames(X.f) <- colnames(X) se <- sqrt(diag(vb)) names(se) <- NULL zval <- c(beta/se) if (is.element(test, c("knha","adhoc","t"))) { QM <- QM / m QMdf <- c(m, min(ddf[btt])) QMp <- if (QMdf[2] > 0) pf(QM, df1=QMdf[1], df2=QMdf[2], lower.tail=FALSE) else NA_real_ pval <- sapply(seq_along(ddf), function(j) if (ddf[j] > 0) 2*pt(abs(zval[j]), df=ddf[j], lower.tail=FALSE) else NA_real_) crit <- sapply(seq_along(ddf), function(j) if (ddf[j] > 0) qt(level/2, df=ddf[j], lower.tail=FALSE) else NA_real_) } else { QMdf <- c(m, NA_integer_) QMp <- pchisq(QM, df=QMdf[1], lower.tail=FALSE) pval <- 2*pnorm(abs(zval), lower.tail=FALSE) crit <- qnorm(level/2, lower.tail=FALSE) } ci.lb <- c(beta - crit * se) ci.ub <- c(beta + crit * se) ######################################################################### ### heterogeneity test (Wald-type test of the extra coefficients in the saturated model) if (verbose > 1) message(mstyle$message("Conducting heterogeneity test ...")) QEdf <- k - p if (QEdf > 0L) { ### if V is not positive definite, FE model fit will fail; then QE is NA ### otherwise compute the RSS (which is equal to the Q/QE-test statistic) QEp <- pchisq(QE, df=QEdf, lower.tail=FALSE) } else { ### if the user fits a saturated model, then fit must be perfect and QE = 0 and QEp = 1 QE <- 0 QEp <- 1 } ### log-likelihood under a saturated model with ML estimation ll.QE <- -1/2 * (k) * log(2*base::pi) - 1/2 * determinant(V, logarithm=TRUE)$modulus ######################################################################### ###### compute Hessian if (!optbeta && (!is.element(method, c("FE","EE","CE")) && !is.null(random)) && (isTRUE(cvvc) || cvvc %in% c("varcor","varcov","transf"))) { if (verbose > 1) message(mstyle$message("Computing the Hessian ...\n")) if (cvvc == "varcov" && (any(sigma2.fix, na.rm=TRUE) || any(tau2.fix, na.rm=TRUE) || any(rho.fix, na.rm=TRUE) || any(gamma2.fix, na.rm=TRUE) || any(phi.fix, na.rm=TRUE))) { warning(mstyle$warning("Cannot use cvvc='varcov' when one or more components are fixed. Setting cvvc='varcor'."), call.=FALSE) cvvc <- "varcor" } if (cvvc == "varcov" && any(!is.element(struct, c("UN","GEN")))) { warning(mstyle$warning("Cannot use cvvc='varcov' for the specified structure(s). Setting cvvc='varcor'."), call.=FALSE) cvvc <- "varcor" } if (cvvc == "varcov") { if (con$hesspack == "numDeriv") hessian <- try(numDeriv::hessian(func=.ll.rma.mv, x = c(sigma2, tau2, cov1, gamma2, cov2), method.args=con$hessianCtrl, reml=reml, Y=Y, M=V, A=NULL, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2.arg, tau2.arg=tau2.arg, rho.arg=rho.arg, gamma2.arg=gamma2.arg, phi.arg=phi.arg, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=c(FALSE,FALSE), nearpd=nearpd, vctransf=FALSE, vccov=TRUE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, hessian=TRUE), silent=TRUE) if (con$hesspack == "pracma") hessian <- try(pracma::hessian(f=.ll.rma.mv, x0 = c(sigma2, tau2, cov1, gamma2, cov2), h=con$hessianCtrl$h, reml=reml, Y=Y, M=V, A=NULL, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2.arg, tau2.arg=tau2.arg, rho.arg=rho.arg, gamma2.arg=gamma2.arg, phi.arg=phi.arg, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=c(FALSE,FALSE), nearpd=nearpd, vctransf=FALSE, vccov=TRUE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, hessian=TRUE), silent=TRUE) if (con$hesspack == "calculus") hessian <- try(calculus::hessian(f=.ll.rma.mv, var = c(sigma2, tau2, cov1, gamma2, cov2), accuracy=con$hessianCtrl$accuracy, stepsize=con$hessianCtrl$stepsize, params=list(reml=reml, Y=Y, M=V, A=NULL, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2.arg, tau2.arg=tau2.arg, rho.arg=rho.arg, gamma2.arg=gamma2.arg, phi.arg=phi.arg, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=c(FALSE,FALSE), nearpd=nearpd, vctransf=FALSE, vccov=TRUE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, hessian=TRUE)), silent=TRUE) # note: vctransf=FALSE and cholesky=c(FALSE,FALSE), so we get the Hessian for the raw/untransfored variances and covariances } else { if (con$hesspack == "numDeriv") hessian <- try(numDeriv::hessian(func=.ll.rma.mv, x = if (cvvc=="transf") opt.res$par else c(sigma2, tau2, rho, gamma2, phi), method.args=con$hessianCtrl, reml=reml, Y=Y, M=V, A=NULL, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2.arg, tau2.arg=tau2.arg, rho.arg=rho.arg, gamma2.arg=gamma2.arg, phi.arg=phi.arg, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=ifelse(c(cvvc=="transf",cvvc=="transf") & cholesky, TRUE, FALSE), nearpd=nearpd, vctransf=cvvc=="transf", vccov=FALSE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, hessian=TRUE), silent=TRUE) if (con$hesspack == "pracma") hessian <- try(pracma::hessian(f=.ll.rma.mv, x0 = if (cvvc=="transf") opt.res$par else c(sigma2, tau2, rho, gamma2, phi), h=con$hessianCtrl$h, reml=reml, Y=Y, M=V, A=NULL, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2.arg, tau2.arg=tau2.arg, rho.arg=rho.arg, gamma2.arg=gamma2.arg, phi.arg=phi.arg, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=ifelse(c(cvvc=="transf",cvvc=="transf") & cholesky, TRUE, FALSE), nearpd=nearpd, vctransf=cvvc=="transf", vccov=FALSE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, hessian=TRUE), silent=TRUE) if (con$hesspack == "calculus") hessian <- try(calculus::hessian(f=.ll.rma.mv, var = if (cvvc=="transf") opt.res$par else c(sigma2, tau2, rho, gamma2, phi), accuracy=con$hessianCtrl$accuracy, stepsize=con$hessianCtrl$stepsize, params=list(reml=reml, Y=Y, M=V, A=NULL, X=X, k=k, pX=p, D.S=D.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, g.Dmat=g.Dmat, h.Dmat=h.Dmat, sigma2.arg=sigma2.arg, tau2.arg=tau2.arg, rho.arg=rho.arg, gamma2.arg=gamma2.arg, phi.arg=phi.arg, beta.arg=beta.arg, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, withS=withS, withG=withG, withH=withH, struct=struct, g.levels.r=g.levels.r, h.levels.r=h.levels.r, g.values=g.values, h.values=h.values, sparse=sparse, cholesky=ifelse(c(cvvc=="transf",cvvc=="transf") & cholesky, TRUE, FALSE), nearpd=nearpd, vctransf=cvvc=="transf", vccov=FALSE, vccon=vccon, verbose=verbose, digits=digits, REMLf=con$REMLf, hessian=TRUE)), silent=TRUE) # note: when cvvc=TRUE/"covcor", get the Hessian for the (raw/untransfored) variances and correlations # when cvvc="transf", get the Hessian for the transformed variances (i.e., log(var)) and correlations (i.e., transf.rtoz(cor)) } if (inherits(hessian, "try-error")) { warning(mstyle$warning("Error when trying to compute the Hessian."), call.=FALSE) hessian <- NA_real_ } else { ### row/column names colnames(hessian) <- seq_len(ncol(hessian)) # need to do this, so the subsetting of colnames below works if (sigma2s == 1) { colnames(hessian)[1] <- "sigma^2" } else { colnames(hessian)[1:sigma2s] <- paste0("sigma^2.", seq_len(sigma2s)) } if (tau2s == 1) { colnames(hessian)[sigma2s+1] <- "tau^2" } else { colnames(hessian)[(sigma2s+1):(sigma2s+tau2s)] <- paste0("tau^2.", seq_len(tau2s)) } term <- ifelse(cvvc == "varcov", ifelse(withH, "cov1", "cov"), "rho") if (rhos == 1) { colnames(hessian)[sigma2s+tau2s+1] <- term } else { colnames(hessian)[(sigma2s+tau2s+1):(sigma2s+tau2s+rhos)] <- paste0(term, ".", outer(seq_len(g.nlevels.f[1]), seq_len(g.nlevels.f[1]), paste, sep=".")[lower.tri(matrix(NA,nrow=g.nlevels.f,ncol=g.nlevels.f))]) #colnames(hessian)[(sigma2s+tau2s+1):(sigma2s+tau2s+rhos)] <- paste0(term, ".", seq_len(rhos)) } if (gamma2s == 1) { colnames(hessian)[sigma2s+tau2s+rhos+1] <- "gamma^2" } else { colnames(hessian)[(sigma2s+tau2s+rhos+1):(sigma2s+tau2s+rhos+gamma2s)] <- paste0("gamma^2.", seq_len(gamma2s)) } term <- ifelse(cvvc == "varcov", "cov2", "phi") if (phis == 1) { colnames(hessian)[sigma2s+tau2s+rhos+gamma2s+1] <- term } else { colnames(hessian)[(sigma2s+tau2s+rhos+gamma2s+1):(sigma2s+tau2s+rhos+gamma2s+phis)] <- paste0(term, ".", outer(seq_len(h.nlevels.f[1]), seq_len(h.nlevels.f[1]), paste, sep=".")[lower.tri(matrix(NA,nrow=h.nlevels.f,ncol=h.nlevels.f))]) #colnames(hessian)[(sigma2s+tau2s+rhos+gamma2s+1):(sigma2s+tau2s+rhos+gamma2s+phis)] <- paste0(term, ".", seq_len(phis)) } rownames(hessian) <- colnames(hessian) ### select correct rows/columns from the Hessian depending on the components in the model ### FIXME: this isn't quite right, since "DIAG" and "ID" have a rho/phi element, but this is fixed to 0, so should also exclude this ### in fact, all fixed elements should be filtered out (this is now done below) #if (withS && withG && withH) #hessian <- hessian[1:nrow(hessian),1:ncol(hessian), drop=FALSE] if (withS && withG && !withH) hessian <- hessian[1:(nrow(hessian)-2),1:(ncol(hessian)-2), drop=FALSE] if (withS && !withG && !withH) hessian <- hessian[1:(nrow(hessian)-4),1:(ncol(hessian)-4), drop=FALSE] if (!withS && withG && withH) hessian <- hessian[2:nrow(hessian),2:ncol(hessian), drop=FALSE] if (!withS && withG && !withH) hessian <- hessian[2:(nrow(hessian)-2),2:(ncol(hessian)-2), drop=FALSE] if (!withS && !withG && !withH) hessian <- NA_real_ ### reorder hessian when cvvc="vccov" into the order of the lower triangular elements of G/H if (cvvc == "varcov" && withG) { posG <- matrix(NA_real_, nrow=tau2s, ncol=tau2s) diag(posG) <- 1:tau2s posG[lower.tri(posG)] <- (tau2s+1):(tau2s*(tau2s+1)/2) posG <- posG[lower.tri(posG, diag=TRUE)] if (withS) { pos <- c(1:sigma2s, sigma2s+posG) } else { pos <- posG } if (withH) { posH <- matrix(NA_real_, nrow=gamma2s, ncol=gamma2s) diag(posH) <- 1:gamma2s posH[lower.tri(posH)] <- (gamma2s+1):(gamma2s*(gamma2s+1)/2) posH <- posH[lower.tri(posH, diag=TRUE)] pos <- c(pos, max(pos)+posH) } hessian <- hessian[pos,pos] } ### detect rows/columns that are essentially all equal to 0 (fixed elements) and filter them out hest <- !apply(hessian, 1, function(x) all(abs(x) <= con$hesstol)) hessian <- hessian[hest, hest, drop=FALSE] ### try to invert Hessian vvc <- try(suppressWarnings(chol2inv(chol(hessian))), silent=TRUE) if (inherits(vvc, "try-error") || anyNA(vvc) || any(is.infinite(vvc))) { warning(mstyle$warning("Error when trying to invert the Hessian."), call.=FALSE) vvc <- NA_real_ } else { dimnames(vvc) <- dimnames(hessian) } } if (verbose > 1) cat("\n") } ######################################################################### ###### fit statistics if (verbose > 1) message(mstyle$message("Computing fit statistics and log-likelihood ...")) ### note: this only counts *estimated* variance components and correlations for the total number of parameters p <- sum(beta.est) if (is.null(vccon)) { parms <- p + ifelse(withS, sum(ifelse(sigma2.fix, 0, 1)), 0) + ifelse(withG, sum(ifelse(tau2.fix, 0, 1)), 0) + ifelse(withG, sum(ifelse(rho.fix, 0, 1)), 0) + ifelse(withH, sum(ifelse(gamma2.fix, 0, 1)), 0) + ifelse(withH, sum(ifelse(phi.fix, 0, 1)), 0) } else { parms <- p + ifelse(withS && !is.null(vccon$sigma2), length(unique(vccon$sigma2)) - sum(sigma2.fix), 0) + ifelse(withG && !is.null(vccon$tau2), length(unique(vccon$tau2)) - sum(tau2.fix), 0) + ifelse(withG && !is.null(vccon$rho), length(unique(vccon$rho)) - sum(rho.fix), 0) + ifelse(withH && !is.null(vccon$gamma2), length(unique(vccon$gamma2)) - sum(gamma2.fix), 0) + ifelse(withH && !is.null(vccon$phi), length(unique(vccon$phi)) - sum(phi.fix), 0) } ll.ML <- fitcall$llvals[1] ll.REML <- fitcall$llvals[2] if (allvipos) { dev.ML <- -2 * (ll.ML - ll.QE) } else { dev.ML <- -2 * ll.ML } AIC.ML <- -2 * ll.ML + 2*parms BIC.ML <- -2 * ll.ML + parms * log(k) AICc.ML <- -2 * ll.ML + 2*parms * max(k, parms+2) / (max(k, parms+2) - parms - 1) dev.REML <- -2 * (ll.REML - 0) # saturated model has ll = 0 when using the full REML likelihood AIC.REML <- -2 * ll.REML + 2*parms BIC.REML <- -2 * ll.REML + parms * log(k-p) AICc.REML <- -2 * ll.REML + 2*parms * max(k-p, parms+2) / (max(k-p, parms+2) - parms - 1) fit.stats <- matrix(c(ll.ML, dev.ML, AIC.ML, BIC.ML, AICc.ML, ll.REML, dev.REML, AIC.REML, BIC.REML, AICc.REML), ncol=2, byrow=FALSE) dimnames(fit.stats) <- list(c("ll","dev","AIC","BIC","AICc"), c("ML","REML")) fit.stats <- data.frame(fit.stats) ######################################################################### ### replace interaction() notation with : notation for nicer output (also for paste() and paste0()) replfun <- function(x) { if (grepl("interaction(", x, fixed=TRUE) || grepl("paste(", x, fixed=TRUE) || grepl("paste0(", x, fixed=TRUE)) { #x <- gsub("^interaction\\(", "", x) #x <- gsub(", ", ":", x, fixed=TRUE) #x <- gsub("\\)$", "", x, fixed=FALSE) #x <- gsub("(.*)interaction\\(\\s*(.*)\\s*,\\s*(.*)\\s*\\)(.*)", "\\1(\\2:\\3)\\4", x) #x <- gsub("interaction\\((.*)\\s*,\\s*(.*)\\)", "(\\1:\\2)", x) x <- gsub("interaction\\((.*)\\)", "(\\1)", x) x <- gsub("paste[0]?\\((.*)\\)", "(\\1)", x) x <- gsub(",", ":", x, fixed=TRUE) x <- gsub(" ", "", x, fixed=TRUE) x <- gsub("^\\((.*)\\)$", "\\1", x) # if a name is "(...)", then can remove the () } return(x) } s.names <- sapply(s.names, replfun) g.names <- sapply(g.names, replfun) h.names <- sapply(h.names, replfun) ############################################################################ ###### prepare output if (verbose > 1) message(mstyle$message("Preparing output ...")) p.eff <- p k.eff <- k weighted <- TRUE if (!inherits(M, "sparseMatrix")) class(M) <- c("vcovmat", class(M)) if (is.null(ddd$outlist) || ddd$outlist == "nodata") { res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, sigma2=sigma2, tau2=tau2, rho=rho, gamma2=gamma2, phi=phi, QE=QE, QEdf=QEdf, QEp=QEp, QM=QM, QMdf=QMdf, QMp=QMp, k=k, k.f=k.f, k.eff=k.eff, k.all=k.all, p=p, p.eff=p.eff, parms=parms, int.only=int.only, int.incl=int.incl, intercept=intercept, allvipos=allvipos, coef.na=coef.na, yi=yi, vi=vi, V=V, W=A, X=X, yi.f=yi.f, vi.f=vi.f, V.f=V.f, X.f=X.f, W.f=W.f, ni=ni, ni.f=ni.f, M=M, G=G, H=H, hessian=hessian, vvc=vvc, vccon=vccon, chksumyi=digest::digest(as.vector(yi)), chksumV=digest::digest(as.matrix(V)), chksumX=digest::digest(X), ids=ids, not.na=not.na, subset=subset, slab=slab, slab.null=slab.null, measure=measure, method=method, weighted=weighted, optbeta=optbeta, opt.res=opt.res, test=test, dfs=dfs, ddf=ddf, s2w=s2w, btt=btt, m=m, digits=digits, level=level, sparse=sparse, dist=ddd$dist, control=control, verbose=verbose, fit.stats=fit.stats, vc.fix=vc.fix, withS=withS, withG=withG, withH=withH, withR=withR, formulas=formulas, sigma2s=sigma2s, tau2s=tau2s, rhos=rhos, gamma2s=gamma2s, phis=phis, s.names=s.names, g.names=g.names, h.names=h.names, s.levels=s.levels, s.levels.f=s.levels.f, s.nlevels=s.nlevels, s.nlevels.f=s.nlevels.f, g.nlevels.f=g.nlevels.f, g.nlevels=g.nlevels, h.nlevels.f=h.nlevels.f, h.nlevels=h.nlevels, g.levels.f=g.levels.f, g.levels.k=g.levels.k, g.levels.comb.k=g.levels.comb.k, h.levels.f=h.levels.f, h.levels.k=h.levels.k, h.levels.comb.k=h.levels.comb.k, struct=struct, Rfix=Rfix, R=R, Rscale=Rscale, mf.r=mf.r, mf.s=mf.s, mf.g=mf.g, mf.g.f=mf.g.f, mf.h=mf.h, mf.h.f=mf.h.f, Z.S=Z.S, Z.G1=Z.G1, Z.G2=Z.G2, Z.H1=Z.H1, Z.H2=Z.H2, formula.yi=formula.yi, formula.mods=formula.mods, random=random, version=packageVersion("metafor"), call=mf) if (is.null(ddd$outlist)) res <- append(res, list(data=data), which(names(res) == "fit.stats")) } else { if (ddd$outlist == "minimal") { res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, sigma2=sigma2, tau2=tau2, rho=rho, gamma2=gamma2, phi=phi, QE=QE, QEdf=QEdf, QEp=QEp, QM=QM, QMdf=QMdf, QMp=QMp, k=k, k.f=k.f, k.eff=k.eff, k.all=k.all, p=p, p.eff=p.eff, parms=parms, int.only=int.only, int.incl=int.incl, intercept=intercept, chksumyi=digest::digest(as.vector(yi)), chksumV=digest::digest(as.matrix(V)), chksumX=digest::digest(X), measure=measure, method=method, weighted=weighted, optbeta=optbeta, test=test, dfs=dfs, ddf=ddf, btt=btt, m=m, digits=digits, level=level, fit.stats=fit.stats, vc.fix=vc.fix, withS=withS, withG=withG, withH=withH, withR=withR, s.names=s.names, g.names=g.names, h.names=h.names, s.nlevels=s.nlevels, g.nlevels.f=g.nlevels.f, g.nlevels=g.nlevels, h.nlevels.f=h.nlevels.f, h.nlevels=h.nlevels, g.levels.f=g.levels.f, g.levels.k=g.levels.k, g.levels.comb.k=g.levels.comb.k, h.levels.f=h.levels.f, h.levels.k=h.levels.k, h.levels.comb.k=h.levels.comb.k, struct=struct, Rfix=Rfix) } else { res <- eval(str2lang(paste0("list(", ddd$outlist, ")"))) } } time.end <- proc.time() res$time <- unname(time.end - time.start)[3] if (isTRUE(ddd$time)) .print.time(res$time) if (verbose || isTRUE(ddd$time)) cat("\n") class(res) <- c("rma.mv", "rma") return(res) } metafor/R/print.hc.rma.uni.r0000644000176200001440000000166715120213572015400 0ustar liggesusersprint.hc.rma.uni <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="hc.rma.uni") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) res.table <- data.frame(method = c(x$method.rma, x$method), tau2 = fmtx(c(x$tau2.rma, x$tau2), digits[["var"]]), estimate = fmtx(c(x$beta.rma, x$beta), digits[["est"]]), se = fmtx(c(x$se.rma, x$se), digits[["se"]]), ci.lb = fmtx(c(x$ci.lb.rma, x$ci.lb), digits[["ci"]]), ci.ub = fmtx(c(x$ci.ub.rma, x$ci.ub), digits[["ci"]]), stringsAsFactors=FALSE) if (is.na(x$se[1])) res.table$se <- NULL rownames(res.table) <- c("rma", "hc") .space() tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE)) .print.table(tmp, mstyle) .space() invisible(res.table) } metafor/R/zzz.r0000644000176200001440000000772115173342235013144 0ustar liggesusers.onAttach <- function(libname, pkgname) { ver <- "5.0-1" loadmsg <- paste0("\nLoading the 'metafor' package (version ", ver, "). For an\nintroduction to the package please type: help(metafor)\n") installed.ver <- as.numeric(strsplit(gsub("-", ".", ver, fixed=TRUE), ".", fixed=TRUE)[[1]]) # set default options mfopts <- getOption("metafor") if (is.null(mfopts) || !is.list(mfopts)) { options("metafor" = list(check=TRUE, silent=FALSE, space=TRUE, theme="default")) } else { if (is.null(mfopts$check)) mfopts$check <- TRUE if (is.null(mfopts$silent)) mfopts$silent <- FALSE if (is.null(mfopts$space)) mfopts$space <- TRUE if (is.null(mfopts$theme)) mfopts$theme <- "default" options("metafor" = mfopts) } # only run version check in an interactive session and if METAFOR_VERSION_CHECK is not FALSE verchk <- tolower(Sys.getenv("METAFOR_VERSION_CHECK")) # "" if unset checkopt <- getOption("metafor")$check if (!is.null(checkopt)) { if (is.logical(checkopt) && isFALSE(checkopt)) verchk <- "false" if (is.character(checkopt) && isTRUE(checkopt == "devel")) verchk <- "devel" } if (interactive() && verchk != "false") { #print("Version check ...") if (isTRUE(verchk == "devel")) { # pull version number from GitHub tmp <- suppressWarnings(try(readLines("https://raw.githubusercontent.com/wviechtb/metafor/master/DESCRIPTION", n=2), silent=TRUE)) if (!inherits(tmp, "try-error") && length(tmp) == 2L) { available.ver <- tmp[2] if (!is.na(available.ver) && length(available.ver) != 0L) available.ver <- substr(available.ver, 10, nchar(available.ver)) # strip 'Version: ' part } } else { # pull version number from CRAN #tmp <- suppressWarnings(try(readLines("https://cran.r-project.org/web/packages/metafor/index.html"), silent=TRUE)) #if (!inherits(tmp, "try-error")) { # available.ver <- tmp[grep("Version:", tmp, fixed=TRUE) + 1] # if (!is.na(available.ver) && length(available.ver) != 0L) # available.ver <- substr(available.ver, 5, nchar(available.ver)-5) # strip and #} tmp <- suppressWarnings(try(readLines("https://cran.r-project.org/web/packages/metafor/DESCRIPTION"), silent=TRUE)) if (!inherits(tmp, "try-error")) { available.ver <- tmp[grep("Version:", tmp, fixed=TRUE)] if (!is.na(available.ver) && length(available.ver) != 0L) available.ver <- substr(available.ver, 10, nchar(available.ver)) # strip Version: } } if (!inherits(tmp, "try-error")) { save.ver <- available.ver # need this below is message available.ver <- as.numeric(strsplit(gsub("-", ".", available.ver), ".", fixed=TRUE)[[1]]) installed.ver <- 100000 * installed.ver[1] + 1000 * installed.ver[2] + installed.ver[3] available.ver <- 100000 * available.ver[1] + 1000 * available.ver[2] + available.ver[3] if (isTRUE(installed.ver < available.ver)) { loadmsg <- paste0(loadmsg, "\nAn updated version of the package (version ", save.ver, ") is available!\nTo update to this version type: ") if (isTRUE(verchk == "devel")) { loadmsg <- paste0(loadmsg, "remotes::install_github(\"wviechtb/metafor\")\n") } else { loadmsg <- paste0(loadmsg, "install.packages(\"metafor\")\n") } } } } options("pboptions" = list( type = if (interactive()) "timer" else "none", char = "=", txt.width = 50, gui.width = 300, style = 3, initial = 0, title = "Progress Bar", label = "", nout = 100L, min_time = 2, use_lb = FALSE)) if (isFALSE(getOption("metafor")$silent)) packageStartupMessage(loadmsg, domain=NULL, appendLF=TRUE) } .metafor <- new.env() metafor/R/confint.rma.glmm.r0000644000176200001440000000025715120213572015446 0ustar liggesusersconfint.rma.glmm <- function(object, parm, level, digits, transf, targs, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.glmm", notav="rma.glmm") } metafor/R/rma.mh.r0000644000176200001440000006260215120213572013461 0ustar liggesusersrma.mh <- function(ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, measure="OR", data, slab, subset, add=1/2, to="only0", drop00=TRUE, # for add/to/drop00, 1st element for escalc(), 2nd for MH method correct=TRUE, level=95, verbose=FALSE, digits, ...) { ######################################################################### ###### setup mstyle <- .get.mstyle() ### check argument specifications if (!is.element(measure, c("OR","RR","RD","IRR","IRD"))) stop(mstyle$stop("Mantel-Haenszel method can only be used with measures OR, RR, RD, IRR, and IRD.")) if (length(add) == 1L) add <- c(add, 0) if (length(add) != 2L) stop(mstyle$stop("Argument 'add' should specify one or two values (see 'help(rma.mh)').")) if (length(to) == 1L) to <- c(to, "none") if (length(to) != 2L) stop(mstyle$stop("Argument 'to' should specify one or two values (see 'help(rma.mh)').")) if (length(drop00) == 1L) drop00 <- c(drop00, FALSE) if (length(drop00) != 2L) stop(mstyle$stop("Argument 'drop00' should specify one or two values (see 'help(rma.mh)').")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (!is.element(to[1], c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) if (!is.element(to[2], c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) time.start <- proc.time() ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("outlist", "onlyo1", "addyi", "addvi", "time")) ### set defaults or get 'onlyo1', 'addyi', and 'addvi' arguments onlyo1 <- .chkddd(ddd$onlyo1, FALSE) addyi <- .chkddd(ddd$addyi, TRUE) addvi <- .chkddd(ddd$addvi, TRUE) ### set defaults for 'digits' if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } ### set options(warn=1) if verbose > 2 if (verbose > 2) { opwarn <- options(warn=1) on.exit(options(warn=opwarn$warn), add=TRUE) } ######################################################################### if (verbose) .space() if (verbose) message(mstyle$message("Extracting the data and computing yi/vi values ...")) ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() ### extract slab and subset values, possibly from the data frame specified via data (arguments not specified are NULL) slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) ######################################################################### ### for RR, OR, and RD: extract/calculate ai,bi,ci,di,n1i,n2i values if (is.element(measure, c("RR","OR","RD"))) { x1i <- x2i <- t1i <- t2i <- NA_real_ ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (is.null(bi)) bi <- n1i - ai if (is.null(di)) di <- n2i - ci ni <- ai + bi + ci + di k <- length(ai) # number of outcomes before subsetting k.all <- k if (length(ai)==0L || length(bi)==0L || length(ci)==0L || length(di)==0L) stop(mstyle$stop("Must specify arguments ai, bi, ci, di (or ai, ci, n1i, n2i) for this measure.")) ids <- seq_len(k) ### generate study labels if none are specified if (verbose) message(mstyle$message("Generating/extracting the study labels ...")) if (is.null(slab)) { slab.null <- TRUE slab <- ids } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) if (is.factor(slab)) slab <- as.character(slab) slab.null <- FALSE } ### if a subset of studies is specified if (!is.null(subset)) { if (verbose) message(mstyle$message("Subsetting ...")) subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) ni <- .getsubset(ni, subset) slab <- .getsubset(slab, subset) ids <- .getsubset(ids, subset) k <- length(ai) } ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) ### calculate observed effect estimates and sampling variances dat <- .do.call(escalc, measure=measure, ai=ai, bi=bi, ci=ci, di=di, add=add[1], to=to[1], drop00=drop00[1], onlyo1=onlyo1, addyi=addyi, addvi=addvi) yi <- dat$yi # one or more yi/vi pairs may be NA/NA vi <- dat$vi # one or more yi/vi pairs may be NA/NA ### if drop00[2]=TRUE, set counts to NA for studies that have no events (or all events) in both arms if (drop00[2]) { id00 <- c(ai == 0L & ci == 0L) | c(bi == 0L & di == 0L) id00[is.na(id00)] <- FALSE ai[id00] <- NA_real_ bi[id00] <- NA_real_ ci[id00] <- NA_real_ di[id00] <- NA_real_ } ### save the actual cell frequencies and yi/vi values (including potential NAs) outdat.f <- list(ai=ai, bi=bi, ci=ci, di=di) yi.f <- yi vi.f <- vi ni.f <- ni k.f <- k # total number of tables including all NAs ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) not.na <- !has.na if (any(has.na)) { if (verbose) message(mstyle$message("Handling NAs in the table data ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] k <- length(ai) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### check for NAs in yi/vi and act accordingly yivi.na <- is.na(yi) | is.na(vi) not.na.yivi <- !yivi.na if (any(yivi.na)) { if (verbose) message(mstyle$message("Handling NAs in yi/vi ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na.yivi] vi <- vi[not.na.yivi] ni <- ni[not.na.yivi] warning(mstyle$warning("Some yi/vi values are NA."), call.=FALSE) attr(yi, "measure") <- measure # add measure attribute back attr(yi, "ni") <- ni # add ni attribute back } if (na.act == "na.fail") stop(mstyle$stop("Missing yi/vi values.")) } k.yi <- length(yi) # number of yi/vi pairs that are not NA (needed for QE df and fit.stats calculation) ### add/to procedures for the 2x2 tables for the actual meta-analysis ### note: technically, nothing needs to be added, but Stata/RevMan add 1/2 by default for only0 studies (but drop studies with no/all events) if (to[2] == "all") { ### always add to all cells in all studies ai <- ai + add[2] bi <- bi + add[2] ci <- ci + add[2] di <- di + add[2] } if (to[2] == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(ai == 0L | bi == 0L | ci == 0L | di == 0L) ai[id0] <- ai[id0] + add[2] bi[id0] <- bi[id0] + add[2] ci[id0] <- ci[id0] + add[2] di[id0] <- di[id0] + add[2] } if (to[2] == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(ai == 0L | bi == 0L | ci == 0L | di == 0L) if (any(id0)) { ai <- ai + add[2] bi <- bi + add[2] ci <- ci + add[2] di <- di + add[2] } } n1i <- ai + bi n2i <- ci + di Ni <- ai + bi + ci + di } ######################################################################### ### for IRR and IRD: extract/calculate x1i,x2i,t1i,t2i values if (is.element(measure, c("IRR","IRD"))) { ai <- bi <- ci <- di <- NA_real_ x1i <- .getx("x1i", mf=mf, data=data, checknumeric=TRUE) x2i <- .getx("x2i", mf=mf, data=data, checknumeric=TRUE) t1i <- .getx("t1i", mf=mf, data=data, checknumeric=TRUE) t2i <- .getx("t2i", mf=mf, data=data, checknumeric=TRUE) ni <- t1i + t2i k <- length(x1i) # number of outcomes before subsetting k.all <- k if (length(x1i)==0L || length(x2i)==0L || length(t1i)==0L || length(t2i)==0L) stop(mstyle$stop("Must specify arguments x1i, x2i, t1i, t2i for this measure.")) ids <- seq_len(k) ### generate study labels if none are specified if (verbose) message(mstyle$message("Generating/extracting the study labels ...")) if (is.null(slab)) { slab.null <- TRUE slab <- ids } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) slab.null <- FALSE } ### if a subset of studies is specified if (!is.null(subset)) { if (verbose) message(mstyle$message("Subsetting ...")) subset <- .chksubset(subset, k) x1i <- .getsubset(x1i, subset) x2i <- .getsubset(x2i, subset) t1i <- .getsubset(t1i, subset) t2i <- .getsubset(t2i, subset) ni <- .getsubset(ni, subset) slab <- .getsubset(slab, subset) ids <- .getsubset(ids, subset) k <- length(x1i) } ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) ### calculate observed effect estimates and sampling variances dat <- .do.call(escalc, measure=measure, x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, add=add[1], to=to[1], drop00=drop00[1], onlyo1=onlyo1, addyi=addyi, addvi=addvi) yi <- dat$yi # one or more yi/vi pairs may be NA/NA vi <- dat$vi # one or more yi/vi pairs may be NA/NA ### if drop00[2]=TRUE, set counts to NA for studies that have no events in both arms if (drop00[2]) { id00 <- c(x1i == 0L & x2i == 0L) id00[is.na(id00)] <- FALSE x1i[id00] <- NA_real_ x2i[id00] <- NA_real_ } ### save the actual cell frequencies and yi/vi values (including potential NAs) outdat.f <- list(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i) yi.f <- yi vi.f <- vi ni.f <- ni k.f <- k # total number of tables including all NAs ### check for NAs in table data and act accordingly has.na <- is.na(x1i) | is.na(x2i) | is.na(t1i) | is.na(t2i) not.na <- !has.na if (any(has.na)) { if (verbose) message(mstyle$message("Handling NAs in the table data ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { x1i <- x1i[not.na] x2i <- x2i[not.na] t1i <- t1i[not.na] t2i <- t2i[not.na] k <- length(x1i) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### check for NAs in yi/vi and act accordingly yivi.na <- is.na(yi) | is.na(vi) not.na.yivi <- !yivi.na if (any(yivi.na)) { if (verbose) message(mstyle$message("Handling NAs in yi/vi ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na.yivi] vi <- vi[not.na.yivi] ni <- ni[not.na.yivi] warning(mstyle$warning("Some yi/vi values are NA."), call.=FALSE) attr(yi, "measure") <- measure # add measure attribute back attr(yi, "ni") <- ni # add ni attribute back } if (na.act == "na.fail") stop(mstyle$stop("Missing yi/vi values.")) } k.yi <- length(yi) # number of yi/vi pairs that are not NA (needed for QE df and fitstats calculation) ### add/to procedures for the 2x2 tables for the actual meta-analysis ### note: technically, nothing needs to be added if (to[2] == "all") { ### always add to all cells in all studies x1i <- x1i + add[2] x2i <- x2i + add[2] } if (to[2] == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(x1i == 0L | x2i == 0L) x1i[id0] <- x1i[id0] + add[2] x2i[id0] <- x2i[id0] + add[2] } if (to[2] == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(x1i == 0L | x2i == 0L) if (any(id0)) { x1i <- x1i + add[2] x2i <- x2i + add[2] } } Ti <- t1i + t2i } ######################################################################### level <- .level(level) CO <- COp <- MH <- MHp <- BD <- BDp <- TA <- TAp <- NA_real_ k.pos <- NA_integer_ ###### model fitting, test statistics, and confidence intervals if (verbose) message(mstyle$message("Model fitting ...")) if (measure == "OR") { Pi <- ai/Ni + di/Ni Qi <- bi/Ni + ci/Ni Ri <- (ai/Ni) * di Si <- (bi/Ni) * ci R <- sum(Ri) S <- sum(Si) if (identical(R,0) || identical(S,0) || identical(R,0L) || identical(S,0L)) { beta.exp <- NA_real_ beta <- NA_real_ se <- NA_real_ zval <- NA_real_ pval <- NA_real_ ci.lb <- NA_real_ ci.ub <- NA_real_ } else { beta.exp <- R/S beta <- log(beta.exp) se <- sqrt(1/2 * (sum(Pi*Ri)/R^2 + sum(Pi*Si + Qi*Ri)/(R*S) + sum(Qi*Si)/S^2)) # based on Robins et al. (1986) zval <- beta / se pval <- 2*pnorm(abs(zval), lower.tail=FALSE) ci.lb <- beta - qnorm(level/2, lower.tail=FALSE) * se ci.ub <- beta + qnorm(level/2, lower.tail=FALSE) * se } names(beta) <- "intrcpt" vb <- matrix(se^2, dimnames=list("intrcpt", "intrcpt")) ### Cochran and Cochran-Mantel-Haenszel Statistics xt <- ai + ci yt <- bi + di if (identical(sum(xt),0) || identical(sum(yt),0) || identical(sum(xt),0L) || identical(sum(yt),0L)) { CO <- NA_real_ COp <- NA_real_ MH <- NA_real_ MHp <- NA_real_ } else { CO <- (abs(sum(ai - (n1i/Ni)*xt)) - ifelse(correct, 0.5, 0))^2 / sum((n1i/Ni)*(n2i/Ni)*(xt*(yt/Ni))) COp <- pchisq(CO, df=1, lower.tail=FALSE) MH <- (abs(sum(ai - (n1i/Ni)*xt)) - ifelse(correct, 0.5, 0))^2 / sum((n1i/Ni)*(n2i/Ni)*(xt*(yt/(Ni-1)))) MHp <- pchisq(MH, df=1, lower.tail=FALSE) } ### Breslow-Day and Tarone's Test for Heterogeneity if (is.na(beta)) { BD <- NA_real_ TA <- NA_real_ BDp <- NA_real_ TAp <- NA_real_ k.pos <- 0L } else { if (identical(beta.exp,1) || identical(beta.exp,1L)) { N11 <- (n1i/Ni)*xt } else { A <- beta.exp * (n1i + xt) + (n2i - xt) B <- sqrt(A^2 - 4*n1i*xt*beta.exp*(beta.exp-1)) N11 <- (A-B) / (2*(beta.exp-1)) } pos <- (N11 > 0) & (xt > 0) & (yt > 0) k.pos <- sum(pos) N11 <- N11[pos] N12 <- n1i[pos] - N11 N21 <- xt[pos] - N11 N22 <- N11 - n1i[pos] - xt[pos] + Ni[pos] BD <- max(0, sum((ai[pos]-N11)^2 / (1/N11 + 1/N12 + 1/N21 + 1/N22)^(-1))) TA <- max(0, BD - sum(ai[pos]-N11)^2 / sum((1/N11 + 1/N12 + 1/N21 + 1/N22)^(-1))) if (k.pos > 1L) { BDp <- pchisq(BD, df=k.pos-1L, lower.tail=FALSE) TAp <- pchisq(TA, df=k.pos-1L, lower.tail=FALSE) } else { BDp <- NA_real_ TAp <- NA_real_ } } } if (measure == "RR") { R <- sum(ai * (n2i/Ni)) S <- sum(ci * (n1i/Ni)) if (identical(sum(ai),0) || identical(sum(ci),0) || identical(sum(ai),0L) || identical(sum(ci),0L)) { beta.exp <- NA_real_ beta <- NA_real_ se <- NA_real_ zval <- NA_real_ pval <- NA_real_ ci.lb <- NA_real_ ci.ub <- NA_real_ } else { beta.exp <- R/S beta <- log(beta.exp) se <- sqrt(sum(((n1i/Ni)*(n2i/Ni)*(ai+ci) - (ai/Ni)*ci)) / (R*S)) zval <- beta / se pval <- 2*pnorm(abs(zval), lower.tail=FALSE) ci.lb <- beta - qnorm(level/2, lower.tail=FALSE) * se ci.ub <- beta + qnorm(level/2, lower.tail=FALSE) * se } names(beta) <- "intrcpt" vb <- matrix(se^2, dimnames=list("intrcpt", "intrcpt")) } if (measure == "RD") { beta <- sum(ai*(n2i/Ni) - ci*(n1i/Ni)) / sum(n1i*(n2i/Ni)) se <- sqrt((beta * (sum(ci*(n1i/Ni)^2 - ai*(n2i/Ni)^2 + (n1i/Ni)*(n2i/Ni)*(n2i-n1i)/2)) + sum(ai*(n2i-ci)/Ni + ci*(n1i-ai)/Ni)/2) / sum(n1i*(n2i/Ni))^2) # equation in: Sato, Greenland, & Robins (1989) #se <- sqrt(sum(((ai/Ni^2)*bi*(n2i^2/n1i) + (ci/Ni^2)*di*(n1i^2/n2i))) / sum(n1i*(n2i/Ni))^2) # equation in: Greenland & Robins (1985) zval <- beta / se pval <- 2*pnorm(abs(zval), lower.tail=FALSE) ci.lb <- beta - qnorm(level/2, lower.tail=FALSE) * se ci.ub <- beta + qnorm(level/2, lower.tail=FALSE) * se names(beta) <- "intrcpt" vb <- matrix(se^2, dimnames=list("intrcpt", "intrcpt")) } if (measure == "IRR") { R <- sum(x1i * (t2i/Ti)) S <- sum(x2i * (t1i/Ti)) if (identical(sum(x1i),0) || identical(sum(x2i),0) || identical(sum(x1i),0L) || identical(sum(x2i),0L)) { beta.exp <- NA_real_ beta <- NA_real_ se <- NA_real_ zval <- NA_real_ pval <- NA_real_ ci.lb <- NA_real_ ci.ub <- NA_real_ } else { beta.exp <- R/S beta <- log(beta.exp) se <- sqrt(sum((t1i/Ti)*(t2i/Ti)*(x1i+x2i)) / (R*S)) zval <- beta / se pval <- 2*pnorm(abs(zval), lower.tail=FALSE) ci.lb <- beta - qnorm(level/2, lower.tail=FALSE) * se ci.ub <- beta + qnorm(level/2, lower.tail=FALSE) * se } names(beta) <- "intrcpt" vb <- matrix(se^2, dimnames=list("intrcpt", "intrcpt")) ### Mantel-Haenszel Statistic xt <- x1i + x2i if (identical(sum(xt),0) || identical(sum(xt),0L)) { MH <- NA_real_ MHp <- NA_real_ } else { MH <- (abs(sum(x1i - xt*(t1i/Ti))) - ifelse(correct, 0.5, 0))^2 / sum(xt*(t1i/Ti)*(t2i/Ti)) MHp <- pchisq(MH, df=1, lower.tail=FALSE) } } if (measure == "IRD") { beta <- sum((x1i*t2i - x2i*t1i)/Ti) / sum((t1i/Ti)*t2i) se <- sqrt(sum(((t1i/Ti)*t2i)^2*(x1i/t1i^2+x2i/t2i^2))) / sum((t1i/Ti)*t2i) # from Rothland et al. (2008), chapter 15 zval <- beta / se pval <- 2*pnorm(abs(zval), lower.tail=FALSE) ci.lb <- beta - qnorm(level/2, lower.tail=FALSE) * se ci.ub <- beta + qnorm(level/2, lower.tail=FALSE) * se names(beta) <- "intrcpt" vb <- matrix(se^2, dimnames=list("intrcpt", "intrcpt")) } ######################################################################### ### heterogeneity test (inverse variance method) if (verbose) message(mstyle$message("Heterogeneity testing ...")) wi <- 1/vi if (k.yi > 1) { QE <- max(0, sum(wi*(yi-beta)^2)) QEp <- pchisq(QE, df=k.yi-1, lower.tail=FALSE) I2 <- max(0, 100 * (QE - (k.yi-1)) / QE) H2 <- QE / (k.yi-1) } else { QE <- 0 QEp <- 1 I2 <- 0 H2 <- 1 } ######################################################################### ###### fit statistics if (verbose) message(mstyle$message("Computing fit statistics and log-likelihood ...")) if (k.yi >= 1) { ll.ML <- -1/2 * (k.yi) * log(2*base::pi) - 1/2 * sum(log(vi)) - 1/2 * QE ll.REML <- -1/2 * (k.yi-1) * log(2*base::pi) + 1/2 * log(k.yi) - 1/2 * sum(log(vi)) - 1/2 * log(sum(wi)) - 1/2 * QE if (any(vi <= 0)) { dev.ML <- -2 * ll.ML } else { dev.ML <- -2 * (ll.ML - sum(dnorm(yi, mean=yi, sd=sqrt(vi), log=TRUE))) } AIC.ML <- -2 * ll.ML + 2 BIC.ML <- -2 * ll.ML + log(k.yi) AICc.ML <- -2 * ll.ML + 2 * max(k.yi, 3) / (max(k.yi, 3) - 2) dev.REML <- -2 * (ll.REML - 0) AIC.REML <- -2 * ll.REML + 2 BIC.REML <- -2 * ll.REML + log(k.yi-1) AICc.REML <- -2 * ll.REML + 2 * max(k.yi-1, 3) / (max(k.yi-1, 3) - 2) fit.stats <- matrix(c(ll.ML, dev.ML, AIC.ML, BIC.ML, AICc.ML, ll.REML, dev.REML, AIC.REML, BIC.REML, AICc.REML), ncol=2, byrow=FALSE) } else { fit.stats <- matrix(NA_real_, nrow=5, ncol=2, byrow=FALSE) } dimnames(fit.stats) <- list(c("ll","dev","AIC","BIC","AICc"), c("ML","REML")) fit.stats <- data.frame(fit.stats) ######################################################################### ###### prepare output if (verbose) message(mstyle$message("Preparing the output ...")) parms <- 1 p <- 1 p.eff <- 1 k.eff <- k tau2 <- 0 X.f <- cbind(rep(1,k.f)) intercept <- TRUE int.only <- TRUE btt <- 1 m <- 1 coef.na <- c(X=FALSE) method <- "FE" weighted <- TRUE test <- "z" ddf <- NA_integer_ if (is.null(ddd$outlist) || ddd$outlist == "nodata") { outdat <- list(ai=ai, bi=bi, ci=ci, di=di, x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i) res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, tau2.f=tau2, I2=I2, H2=H2, QE=QE, QEp=QEp, CO=CO, COp=COp, MH=MH, MHp=MHp, BD=BD, BDp=BDp, TA=TA, TAp=TAp, k=k, k.f=k.f, k.yi=k.yi, k.pos=k.pos, k.eff=k.eff, k.all=k.all, p=p, p.eff=p.eff, parms=parms, int.only=int.only, intercept=intercept, coef.na=coef.na, yi=yi, vi=vi, yi.f=yi.f, vi.f=vi.f, X.f=X.f, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.vector(vi)), outdat.f=outdat.f, outdat=outdat, ni=ni, ni.f=ni.f, ids=ids, not.na=not.na, subset=subset, not.na.yivi=not.na.yivi, slab=slab, slab.null=slab.null, measure=measure, method=method, weighted=weighted, test=test, ddf=ddf, dfs=ddf, btt=btt, m=m, digits=digits, level=level, add=add, to=to, drop00=drop00, correct=correct, fit.stats=fit.stats, formula.yi=NULL, formula.mods=NULL, version=packageVersion("metafor"), call=mf) if (is.null(ddd$outlist)) res <- append(res, list(data=data), which(names(res) == "fit.stats")) } else { if (ddd$outlist == "minimal") { res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, I2=I2, H2=H2, QE=QE, QEp=QEp, CO=CO, COp=COp, MH=MH, MHp=MHp, BD=BD, BDp=BDp, TA=TA, TAp=TAp, k=k, k.f=k.f, k.yi=k.yi, k.pos=k.pos, k.eff=k.eff, p=p, p.eff=p.eff, parms=parms, int.only=int.only, intercept=intercept, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.vector(vi)), measure=measure, method=method, test=test, ddf=ddf, dfs=ddf, btt=btt, m=m, digits=digits, level=level, fit.stats=fit.stats) } else { res <- eval(str2lang(paste0("list(", ddd$outlist, ")"))) } } time.end <- proc.time() res$time <- unname(time.end - time.start)[3] if (isTRUE(ddd$time)) .print.time(res$time) if (verbose || isTRUE(ddd$time)) cat("\n") class(res) <- c("rma.mh", "rma") return(res) } metafor/R/metafor.news.r0000644000176200001440000000006615120213572014703 0ustar liggesusersmetafor.news <- function() news(package="metafor") metafor/R/print.summary.rma.r0000644000176200001440000000104015120213572015672 0ustar liggesusersprint.summary.rma <- function(x, digits=x$digits, showfit=TRUE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="summary.rma") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) ### strip summary.rma class from object (otherwise get recursion) class(x) <- class(x)[-1] ### print with showfit=TRUE print(x, digits=digits, showfit=showfit, signif.stars=signif.stars, signif.legend=signif.legend, ...) invisible() } metafor/R/nobs.rma.r0000644000176200001440000000107215120213572014010 0ustar liggesusersnobs.rma <- function(object, all=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") if (all) { n.obs <- c(studies = object$k, data = object$k.all, subset = sum(object$subset), not.na = sum(object$not.na), effective = object$k.eff, df.residual = object$k.eff - object$p.eff) } else { #n.obs <- object$k.eff - ifelse(object$method == "REML", 1, 0) * object$p.eff n.obs <- object$k } return(n.obs) } metafor/R/print.fsn.r0000644000176200001440000000607615120213572014223 0ustar liggesusersprint.fsn <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="fsn") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() cat(mstyle$section(paste("Fail-safe N Calculation Using the", x$type, "Approach"))) cat("\n\n") if (x$type == "Rosenthal" || x$type == "Binomial") { cat(mstyle$text("Observed Significance Level: ")) cat(mstyle$result(fmtp(x$pval, digits[["pval"]]))) cat("\n") cat(mstyle$text("Target Significance Level: ")) cat(mstyle$result(round(x$alpha, digits[["pval"]]))) } if (x$type == "Orwin") { cat(mstyle$text("Average Effect Size: ")) cat(mstyle$result(fmtx(x$est, digits[["est"]]))) cat("\n") cat(mstyle$text("Target Effect Size: ")) cat(mstyle$result(fmtx(x$target, digits[["est"]]))) } if (x$type == "Rosenberg") { flag.left <- ifelse(isTRUE(x$est < 0), " ", "") cat(mstyle$text("Average Effect Size: ")) cat(mstyle$result(fmtx(x$est, digits[["est"]], flag=flag.left))) cat("\n") cat(mstyle$text("Observed Significance Level: ")) cat(flag.left) cat(mstyle$result(fmtp(x$pval, digits[["pval"]]))) cat("\n") cat(mstyle$text("Target Significance Level: ")) cat(flag.left) cat(mstyle$result(round(x$alpha, digits[["pval"]]))) } if (x$type == "General") { flag.left <- ifelse(isTRUE(x$est < 0), " ", "") flag.right <- ifelse(isTRUE(x$est.fsn < 0), " ", "") cat(mstyle$text("Average Effect Size: ")) cat(mstyle$result(fmtx(x$est, digits[["est"]], flag=flag.left))) if (x$fsnum > 0) { cat(mstyle$text(" (with file drawer: ")) cat(mstyle$result(fmtx(x$est.fsn, digits[["est"]], flag=flag.right))) cat(mstyle$text(")")) } cat("\n") if (!is.element(x$method, c("FE","EE","CE"))) { cat(mstyle$text("Amount of Heterogeneity: ")) cat(mstyle$result(fmtx(x$tau2, digits[["var"]], flag=flag.left))) if (x$fsnum > 0) { cat(mstyle$text(" (with file drawer: ")) cat(mstyle$result(fmtx(x$tau2.fsn, digits[["var"]], flag=flag.right))) cat(mstyle$text(")")) } cat("\n") } cat(mstyle$text("Observed Significance Level: ")) cat(flag.left) cat(mstyle$result(fmtp(x$pval, digits[["pval"]]))) if (x$fsnum > 0) { cat(mstyle$text(" (with file drawer: ")) cat(flag.right) cat(mstyle$result(fmtp(x$pval.fsn, digits[["pval"]]))) cat(mstyle$text(")")) } cat("\n") if (is.na(x$target)) { cat(mstyle$text("Target Significance Level: ")) cat(flag.left) cat(mstyle$result(round(x$alpha, digits[["pval"]]))) } else { cat(mstyle$text("Target Effect Size: ")) cat(mstyle$result(fmtx(x$target, digits[["est"]], , flag=flag.left))) } } cat("\n\n") cat(mstyle$text("Fail-safe N: ")) cat(mstyle$result(paste0(x$ub.sign, x$fsnum))) cat("\n") .space() invisible() } metafor/R/print.rma.glmm.r0000644000176200001440000001576415120213572015153 0ustar liggesusersprint.rma.glmm <- function(x, digits, showfit=FALSE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.glmm") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } ddd <- list(...) .chkdots(ddd, c("num")) .space() if (is.element(x$method, c("FE","EE","CE"))) { if (x$int.only) { cat(mstyle$section(sapply(x$method, switch, "FE"="Fixed-Effects Model", "EE"="Equal-Effects Model", "CE"="Common-Effects Model", USE.NAMES=FALSE))) } else { cat(mstyle$section("Fixed-Effects with Moderators Model")) } cat(mstyle$section(paste0(" (k = ", x$k, ")"))) } else { if (x$int.only) { cat(mstyle$section("Random-Effects Model")) } else { cat(mstyle$section("Mixed-Effects Model")) } cat(mstyle$section(paste0(" (k = ", x$k, "; "))) cat(mstyle$section(paste0("tau^2 estimator: ", x$method, ")"))) } if (is.element(x$measure, c("OR","IRR"))) { cat("\n") if (x$model == "UM.FS") cat(mstyle$section("Model Type: Unconditional Model with Fixed Study Effects")) if (x$model == "UM.RS") cat(mstyle$section("Model Type: Unconditional Model with Random Study Effects")) if (x$model == "CM.AL") cat(mstyle$section("Model Type: Conditional Model with Approximate Likelihood")) if (x$model == "CM.EL") cat(mstyle$section("Model Type: Conditional Model with Exact Likelihood")) } if (showfit) { cat("\n") fs <- fmtx(x$fit.stats$ML, digits[["fit"]]) names(fs) <- c("logLik", "deviance", "AIC", "BIC", "AICc") cat("\n") tmp <- capture.output(print(fs, quote=FALSE, print.gap=2)) #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) cat("\n") } else { cat("\n\n") } if (!is.element(x$method, c("FE","EE","CE"))) { if (x$int.only) { cat(mstyle$text("tau^2 (estimated amount of total heterogeneity): ")) cat(mstyle$result(paste0(fmtx(x$tau2, digits[["var"]], thresh=.Machine$double.eps*10), ifelse(is.na(x$se.tau2), "", paste0(" (SE = " , fmtx(x$se.tau2, digits[["sevar"]]), ")"))))) cat("\n") cat(mstyle$text("tau (square root of estimated tau^2 value): ")) cat(mstyle$result(fmtx(.sqrt(x$tau2), digits[["var"]], thresh=.Machine$double.eps*10))) cat("\n") cat(mstyle$text("I^2 (total heterogeneity / total variability): ")) cat(mstyle$result(paste0(fmtx(x$I2, 2), "%"))) cat("\n") cat(mstyle$text("H^2 (total variability / sampling variability): ")) cat(mstyle$result(fmtx(x$H2, 2))) } else { cat(mstyle$text("tau^2 (estimated amount of residual heterogeneity): ")) cat(mstyle$result(paste0(fmtx(x$tau2, digits[["var"]], thresh=.Machine$double.eps*10), ifelse(is.na(x$se.tau2), "", paste0(" (SE = " , fmtx(x$se.tau2, digits[["sevar"]]), ")"))))) cat("\n") cat(mstyle$text("tau (square root of estimated tau^2 value): ")) cat(mstyle$result(fmtx(.sqrt(x$tau2), digits[["var"]], thresh=.Machine$double.eps*10))) cat("\n") cat(mstyle$text("I^2 (residual heterogeneity / unaccounted variability): ")) cat(mstyle$result(paste0(fmtx(x$I2, 2), "%"))) cat("\n") cat(mstyle$text("H^2 (unaccounted variability / sampling variability): ")) cat(mstyle$result(fmtx(x$H2, 2))) } cat("\n\n") } if (!is.na(x$sigma2)) { cat(mstyle$text("sigma^2 (estimated amount of study level variability): ")) cat(mstyle$result(fmtx(x$sigma2, digits[["var"]], thresh=.Machine$double.eps*10))) cat("\n") cat(mstyle$text("sigma (square root of estimated sigma^2 value): ")) cat(mstyle$result(fmtx(.sqrt(x$sigma2), digits[["var"]], thresh=.Machine$double.eps*10))) cat("\n\n") } if (!is.na(x$QE.Wld) || !is.na(x$QE.LRT)) { QE.Wld <- fmtx(x$QE.Wld, digits[["test"]]) QE.LRT <- fmtx(x$QE.LRT, digits[["test"]]) nchar.Wld <- nchar(QE.Wld, keepNA=FALSE) nchar.LRT <- nchar(QE.LRT, keepNA=FALSE) if (nchar.Wld > nchar.LRT) QE.LRT <- paste0(paste(rep(" ", nchar.Wld - nchar.LRT), collapse=""), QE.LRT) if (nchar.LRT > nchar.Wld) QE.Wld <- paste0(paste(rep(" ", nchar.LRT - nchar.Wld), collapse=""), QE.Wld) if (x$int.only) { cat(mstyle$section("Tests for Heterogeneity:")) } else { cat(mstyle$section("Tests for Residual Heterogeneity:")) } cat("\n") cat(mstyle$result(fmtt(x$QE.Wld, "Wld", df=x$QE.df, pval=x$QEp.Wld, digits=digits))) cat("\n") cat(mstyle$result(fmtt(x$QE.LRT, "LRT", df=x$QE.df, pval=x$QEp.LRT, digits=digits))) cat("\n\n") } if (x$p > 1L && !is.na(x$QM)) { cat(mstyle$section(paste0("Test of Moderators (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):"))) cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QM, "F", df1=x$QMdf[1], df2=x$QMdf[2], pval=x$QMp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QM, "QM", df=x$QMdf[1], pval=x$QMp, digits=digits))) } cat("\n\n") } if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), tval=fmtx(x$zval, digits[["test"]]), df=round(x$ddf,2), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) } else { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) } rownames(res.table) <- rownames(x$beta) signif <- symnum(x$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } if (isTRUE(ddd$num)) { width <- nchar(nrow(res.table)) rownames(res.table) <- paste0(formatC(seq_len(nrow(res.table)), format="d", width=width), ") ", rownames(res.table)) } if (x$int.only) res.table <- res.table[1,] cat(mstyle$section("Model Results:")) cat("\n\n") if (x$int.only) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) if (signif.legend) { cat("\n") cat(mstyle$legend("---")) cat("\n") cat(mstyle$legend("Signif. codes: "), mstyle$legend(attr(signif, "legend"))) cat("\n") } .space() invisible() } metafor/R/plot.rma.glmm.r0000644000176200001440000000033215120213572014756 0ustar liggesusersplot.rma.glmm <- function(x, qqplot=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma.glmm", notav="rma.glmm") } metafor/R/methods.confint.rma.r0000644000176200001440000000151015120213572016146 0ustar liggesusers############################################################################ as.data.frame.confint.rma <- function(x, ...) { .chkclass(class(x), must="confint.rma") ddd <- list(...) .chkdots(ddd, c("fixed", "random")) fixed <- .chkddd(ddd$fixed, is.element("fixed", names(x))) random <- .chkddd(ddd$random, is.element("random", names(x))) if (fixed) { df <- x$fixed } else { df <- NULL } if (random && is.element("random", names(x))) df <- rbind(df, x$random) return(df) } as.data.frame.list.confint.rma <- function(x, ...) { .chkclass(class(x), must="list.confint.rma") x$digits <- NULL # remove digits elements df <- lapply(x, as.data.frame) df <- do.call(rbind, df) return(df) } ############################################################################ metafor/R/anova.rma.r0000644000176200001440000007153715121011417014163 0ustar liggesusersanova.rma <- function(object, object2, btt, X, att, Z, rhs, adjust, digits, refit=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma", notap=c("rma.mh", "rma.peto"), notav="rma.glmm") if (missing(digits)) { digits <- .get.digits(xdigits=object$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=object$digits, dmiss=FALSE) } ddd <- list(...) .chkdots(ddd, c("test", "L", "verbose", "fixed", "df", "abbrev")) if (!is.null(ddd$L)) # old 'L' argument overrules 'X' argument X <- ddd$L fixed <- .chkddd(ddd$fixed, FALSE, isTRUE(ddd$fixed)) if (!missing(att) && !inherits(object, "rma.ls")) stop(mstyle$stop("Can only specify 'att' for location-scale models.")) if (!missing(Z) && !inherits(object, "rma.ls")) stop(mstyle$stop("Can only specify 'Z' for location-scale models.")) if (missing(adjust)) { adjust <- NULL } else { if (is.logical(adjust)) { if (isTRUE(adjust)) { adjust <- "bonferroni" } else { adjust <- "none" } } adjust <- try(match.arg(adjust, choices=p.adjust.methods), silent=TRUE) if (inherits(adjust, "try-error")) stop(mstyle$stop("Unknown 'adjust' method specified (see 'help(p.adjust)' for options).")) } mf <- match.call() # so that pairmat() works when the model object is not specified if (any(grepl("pairmat(", as.character(mf), fixed=TRUE))) { try(assign("pairmat", object, envir=.metafor), silent=TRUE) on.exit(suppressWarnings(rm("pairmat", envir=.metafor))) } if (missing(object2)) { # if only 'object' was specified, can test one or multiple coefficients via the 'btt' (or 'att') # argument or one or more linear contrasts of the coefficients via the 'X' (or 'Z') argument x <- object if (missing(X) && missing(Z)) { # if 'X' (and 'Z') was not specified, then do a Wald-test via the 'btt' argument (can also use 'att' for location-scale models) if (inherits(object, "rma.ls") && !missing(att)) { if (!missing(btt)) stop(mstyle$stop("Can only specify either 'btt' or 'att', but not both.")) # set/check the 'att' argument if (missing(att) || is.null(att)) { att <- x$att } else { if (is.character(att) && length(att) > 1L) att <- as.list(att) if (is.list(att)) { if (!missing(rhs)) stop(mstyle$stop("Cannot use 'rhs' argument when specifying a list for 'att'.")) sav <- lapply(att, function(attj) anova(x, att=attj, digits=digits, fixed=fixed)) if (!is.null(adjust)) { QSp <- sapply(sav, function(x) x$QSp) QSp <- p.adjust(QSp, method=adjust) sav <- mapply(function(x,y) {x$QSp <- y; return(x)}, sav, QSp, SIMPLIFY=FALSE) } names(sav) <- sapply(att, .format.btt) class(sav) <- "list.anova.rma" return(sav) } att <- .set.btt(att, x$q, x$Z.int.incl, colnames(x$Z), fixed=fixed) } m <- length(att) if (missing(rhs)) { rhs <- rep(0, m) } else { rhs <- .expand1(rhs, m) if (length(rhs) != m) stop(mstyle$stop(paste0("Length of 'rhs' (", length(rhs), ") does not match the number of coefficients tested (", m, ")."))) } x$alpha[att,] <- x$alpha[att,] - rhs QS <- try(as.vector(t(x$alpha)[att] %*% chol2inv(chol(x$va[att,att])) %*% x$alpha[att]), silent=TRUE) if (inherits(QS, "try-error")) QS <- NA_real_ if (is.element(x$test, c("knha","adhoc","t"))) { QS <- QS / m QSdf <- c(m, x$QSdf[2]) QSp <- pf(QS, df1=QSdf[1], df2=QSdf[2], lower.tail=FALSE) } else { QSdf <- c(m, NA) QSp <- pchisq(QS, df=QSdf[1], lower.tail=FALSE) } if (!is.null(adjust)) QSp <- p.adjust(QSp, method=adjust) res <- list(QS=QS, QSdf=QSdf, QSp=QSp, att=att, k=x$k, q=x$q, m=m, test=x$test, digits=digits, type="Wald.att") } else { # set/check the 'btt' argument if (missing(btt) || is.null(btt)) { btt <- x$btt } else { if (is.character(btt) && length(btt) > 1L) btt <- as.list(btt) if (is.list(btt)) { if (!missing(rhs)) stop(mstyle$stop("Cannot use 'rhs' argument when specifying a list for 'btt'.")) sav <- lapply(btt, function(bttj) anova(x, btt=bttj, digits=digits, fixed=fixed)) if (!is.null(adjust)) { QMp <- sapply(sav, function(x) x$QMp) QMp <- p.adjust(QMp, method=adjust) sav <- mapply(function(x,y) {x$QMp <- y; return(x)}, sav, QMp, SIMPLIFY=FALSE) } names(sav) <- sapply(btt, .format.btt) class(sav) <- "list.anova.rma" return(sav) } btt <- .set.btt(btt, x$p, x$int.incl, colnames(x$X), fixed=fixed) } m <- length(btt) if (missing(rhs)) { rhs <- rep(0, m) } else { rhs <- .expand1(rhs, m) if (length(rhs) != m) stop(mstyle$stop(paste0("Length of 'rhs' (", length(rhs), ") does not match the number of coefficients tested (", m, ")."))) } x$b[btt,] <- x$beta[btt,] <- x$b[btt,] - rhs if (inherits(x, "robust.rma") && x$robumethod == "clubSandwich") { cs.wald <- try(clubSandwich::Wald_test(x, cluster=x$cluster, vcov=x$vb, test=x$wald_test, constraints=clubSandwich::constrain_zero(btt)), silent=!isTRUE(ddd$verbose)) if (inherits(cs.wald, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust Wald test (use verbose=TRUE for more details).")) QM <- max(0, cs.wald$Fstat) QMdf <- c(cs.wald$df_num, cs.wald$df_denom) QMp <- cs.wald$p_val } else { #QM <- try(as.vector(t((x$beta)[btt]-rhs) %*% chol2inv(chol(x$vb[btt,btt])) %*% (x$beta[btt]-rhs)), silent=TRUE) QM <- try(as.vector(t(x$beta)[btt] %*% chol2inv(chol(x$vb[btt,btt])) %*% x$beta[btt]), silent=TRUE) if (inherits(QM, "try-error")) QM <- NA_real_ if (is.element(x$test, c("knha","adhoc","t"))) { QM <- QM / m QMdf <- c(m, x$QMdf[2]) QMp <- pf(QM, df1=QMdf[1], df2=QMdf[2], lower.tail=FALSE) } else { QMdf <- c(m, NA_integer_) QMp <- pchisq(QM, df=QMdf[1], lower.tail=FALSE) } } if (!is.null(adjust)) QMp <- p.adjust(QMp, method=adjust) res <- list(QM=QM, QMdf=QMdf, QMp=QMp, btt=btt, k=x$k, p=x$p, m=m, test=x$test, digits=digits, type="Wald.btt", class=class(x)) } } else { if (inherits(object, "rma.ls") && !missing(Z)) { # if 'Z' was specified, then do Wald-type test(s) via the 'Z' argument if (!missing(X)) stop(mstyle$stop("Can only specify either 'X' or 'Z', but not both.")) if (.is.vector(Z)) Z <- rbind(Z) if (is.data.frame(Z)) Z <- as.matrix(Z) if (is.character(Z)) stop(mstyle$stop("Argument 'Z' must be a numeric vector/matrix.")) # if the model has an intercept term and Z has q-1 columns, assume the user left out the intercept and add it automatically if (x$Z.int.incl && ncol(Z) == (x$q-1)) Z <- cbind(1, Z) if (ncol(Z) != x$q) stop(mstyle$stop(paste0("Length or number of columns of 'Z' (", ncol(Z), ") does not match the number of scale coefficients (", x$q, ")."))) m <- nrow(Z) # specification of the right-hand side if (missing(rhs)) { rhs <- rep(0, m) } else { rhs <- .expand1(rhs, m) if (length(rhs) != m) stop(mstyle$stop(paste0("Length of 'rhs' (", length(rhs), ") does not match the number of linear combinations (", m, ")."))) } # test of individual hypotheses Za <- Z %*% x$alpha - rhs vZa <- Z %*% x$va %*% t(Z) se <- sqrt(diag(vZa)) zval <- c(Za/se) if (is.element(x$test, c("knha","adhoc","t"))) { pval <- if (x$ddf.alpha > 0) 2*pt(abs(zval), df=x$ddf.alpha, lower.tail=FALSE) else rep(NA_real_,m) } else { pval <- 2*pnorm(abs(zval), lower.tail=FALSE) } # omnibus test of all hypotheses (only possible if 'Z' is of full rank) QS <- NA_real_ # need this in case QS cannot be calculated below QSp <- NA_real_ # need this in case QSp cannot be calculated below if (rankMatrix(Z) == m) { QS <- try(as.vector(t(Za) %*% chol2inv(chol(vZa)) %*% Za), silent=TRUE) if (inherits(QS, "try-error")) QS <- NA_real_ if (is.element(x$test, c("knha","adhoc","t"))) { QS <- QS / m QSdf <- c(m, x$QSdf[2]) QSp <- if (QSdf[2] > 0) pf(QS, df1=QSdf[1], df2=QSdf[2], lower.tail=FALSE) else NA_real_ } else { QSdf <- c(m, NA_integer_) QSp <- pchisq(QS, df=QSdf[1], lower.tail=FALSE) } } # create a data frame with each row specifying the linear combination tested hyp <- rep("", m) for (j in seq_len(m)) { Zj <- round(Z[j,], digits[["est"]]) # coefficients for the jth contrast sel <- Zj != 0 # TRUE if coefficient is != 0 hyp[j] <- paste(paste(Zj[sel], rownames(x$alpha)[sel], sep="*"), collapse=" + ") # coefficient*variable + coefficient*variable ... hyp[j] <- gsub("1*", "", hyp[j], fixed=TRUE) # turn '+1' into '+' and '-1' into '-' hyp[j] <- gsub("+ -", "- ", hyp[j], fixed=TRUE) # turn '+ -' into '-' } if (identical(rhs, rep(0,m))) { hyp <- paste0(hyp, " = 0") # add '= 0' at the right } else { if (length(unique(rhs)) == 1L) { hyp <- paste0(hyp, " = ", round(rhs, digits=digits[["est"]])) # add '= rhs' at the right } else { hyp <- paste0(hyp, " = ", fmtx(rhs, digits=digits[["est"]])) # add '= rhs' at the right } } hyp <- data.frame(hyp, stringsAsFactors=FALSE) colnames(hyp) <- "" rownames(hyp) <- paste0(seq_len(m), ":") # add '1:', '2:', ... as row names # abbreviate some 'hyp' elements if (isTRUE(ddd$abbrev)) { hyp[,1] <- gsub("factor(", "", hyp[,1], fixed=TRUE) hyp[,1] <- gsub(")", "", hyp[,1], fixed=TRUE) } if (!is.null(adjust)) pval <- p.adjust(pval, method=adjust) res <- list(QS=QS, QSdf=QSdf, QSp=QSp, hyp=hyp, Za=Za, se=se, zval=zval, pval=pval, k=x$k, q=x$q, m=m, test=x$test, ddf=x$ddf.alpha, digits=digits, type="Wald.Za") } else { # if 'X' was specified, then do Wald-type test(s) via the 'X' argument if (.is.vector(X)) X <- rbind(X) if (is.data.frame(X)) X <- as.matrix(X) if (is.character(X)) stop(mstyle$stop("Argument 'X' must be a numeric vector/matrix.")) # if the model has an intercept term and X has p-1 columns, assume the user left out the intercept and add it automatically if (x$int.incl && ncol(X) == (x$p-1)) X <- cbind(1, X) if (ncol(X) != x$p) stop(mstyle$stop(paste0("Length or number of columns of 'X' (", ncol(X), ") does not match the number of ", ifelse(inherits(object, "rma.ls"), "location", "model"), " coefficients (", x$p, ")."))) m <- nrow(X) if (inherits(x, "robust.rma") && x$robumethod == "clubSandwich") { cs.lc <- try(clubSandwich::linear_contrast(x, cluster=x$cluster, vcov=x$vb, test=x$coef_test, contrasts=X, p_values=TRUE), silent=!isTRUE(ddd$verbose)) if (inherits(cs.lc, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust test(s) (use verbose=TRUE for more details).")) ddf <- cs.lc$df if (!missing(rhs)) warning(mstyle$warning("Cannot use 'rhs' argument for 'robust.rma' objects based on 'clubSandwich'."), call.=FALSE) rhs <- rep(0, m) Xb <- cs.lc$Est se <- cs.lc$SE zval <- c(Xb/se) pval <- cs.lc$p_val # omnibus test of all hypotheses (only possible if 'X' is of full rank) QM <- NA_real_ # need this in case QM cannot be calculated below QMp <- NA_real_ # need this in case QMp cannot be calculated below QMdf <- NA_integer_ # need this in case X is not of full rank if (rankMatrix(X) == m) { cs.wald <- try(clubSandwich::Wald_test(x, cluster=x$cluster, vcov=x$vb, test=x$wald_test, constraints=X), silent=!isTRUE(ddd$verbose)) if (inherits(cs.wald, "try-error")) stop(mstyle$stop("Could not obtain the cluster-robust omnibus Wald test (use verbose=TRUE for more details).")) QM <- max(0, cs.wald$Fstat) QMdf <- c(cs.wald$df_num, cs.wald$df_denom) QMp <- cs.wald$p_val } } else { # ddf calculation if (is.element(x$test, c("knha","adhoc","t"))) { if (length(x$ddf) == 1L) { ddf <- rep(x$ddf, m) } else { ddf <- rep(NA_integer_, m) for (j in seq_len(m)) { bn0 <- X[j,] != 0 ddf[j] <- min(x$ddf[bn0]) } } } else { ddf <- rep(NA_integer_, m) } # specification of the right-hand side if (missing(rhs)) { rhs <- rep(0, m) } else { rhs <- .expand1(rhs, m) if (length(rhs) != m) stop(mstyle$stop(paste0("Length of 'rhs' (", length(rhs), ") does not match the number of linear combinations (", m, ")."))) } # test of individual hypotheses Xb <- X %*% x$beta - rhs vXb <- X %*% x$vb %*% t(X) se <- sqrt(diag(vXb)) zval <- c(Xb/se) if (is.element(x$test, c("knha","adhoc","t"))) { pval <- sapply(seq_along(ddf), function(j) if (ddf[j] > 0) 2*pt(abs(zval[j]), df=ddf[j], lower.tail=FALSE) else NA_real_) } else { pval <- 2*pnorm(abs(zval), lower.tail=FALSE) } # omnibus test of all hypotheses (only possible if 'X' is of full rank) QM <- NA_real_ # need this in case QM cannot be calculated below QMp <- NA_real_ # need this in case QMp cannot be calculated below QMdf <- NA_integer_ # need this in case X is not of full rank if (rankMatrix(X) == m) { # use try(), since this could fail: this could happen when the var-cov matrix of the # fixed effects was estimated using robust() -- 'vb' is then only guaranteed to be # positive semidefinite, so for certain linear combinations, vXb could be singular # (see Cameron & Miller, 2015, p. 326) QM <- try(as.vector(t(Xb) %*% chol2inv(chol(vXb)) %*% Xb), silent=TRUE) if (inherits(QM, "try-error")) QM <- NA_real_ if (is.element(x$test, c("knha","adhoc","t"))) { QM <- QM / m QMdf <- c(m, min(ddf)) QMp <- if (QMdf[2] > 0) pf(QM, df1=QMdf[1], df2=QMdf[2], lower.tail=FALSE) else NA_real_ } else { QMdf <- c(m, NA_integer_) QMp <- pchisq(QM, df=QMdf[1], lower.tail=FALSE) } } } # create a data frame with each row specifying the linear combination tested hyp <- rep("", m) for (j in seq_len(m)) { Xj <- round(X[j,], digits[["est"]]) # coefficients for the jth contrast sel <- Xj != 0 # TRUE if coefficient is != 0 hyp[j] <- paste(paste(Xj[sel], rownames(x$beta)[sel], sep="*"), collapse=" + ") # coefficient*variable + coefficient*variable ... hyp[j] <- gsub("1*", "", hyp[j], fixed=TRUE) # turn '+1' into '+' and '-1' into '-' hyp[j] <- gsub("+ -", "- ", hyp[j], fixed=TRUE) # turn '+ -' into '-' } if (identical(rhs, rep(0,m))) { hyp <- paste0(hyp, " = 0") # add '= 0' at the right } else { if (length(unique(rhs)) == 1L) { hyp <- paste0(hyp, " = ", round(rhs, digits=digits[["est"]])) # add '= rhs' at the right } else { hyp <- paste0(hyp, " = ", fmtx(rhs, digits=digits[["est"]])) # add '= rhs' at the right } } hyp <- data.frame(hyp, stringsAsFactors=FALSE) colnames(hyp) <- "" rownames(hyp) <- paste0(seq_len(m), ":") # add '1:', '2:', ... as row names # abbreviate some 'hyp' elements if (isTRUE(ddd$abbrev)) { hyp[,1] <- gsub("factor(", "", hyp[,1], fixed=TRUE) hyp[,1] <- gsub(")", "", hyp[,1], fixed=TRUE) } if (!is.null(adjust)) pval <- p.adjust(pval, method=adjust) res <- list(QM=QM, QMdf=QMdf, QMp=QMp, hyp=hyp, Xb=Xb, se=se, zval=zval, pval=pval, k=x$k, p=x$p, m=m, test=x$test, ddf=ddf, digits=digits, type="Wald.Xb") } } } else { # if 'object' and 'object2' were specified, can use the function to # do model comparisons via a likelihood ratio test (and fit indices) if (!inherits(object2, "rma")) stop(mstyle$stop("Argument 'object2' must be an object of class \"rma\".")) if (inherits(object2, c("rma.mh","rma.peto"))) stop(mstyle$stop("Function not applicable to objects of class \"rma.mh\" or \"rma.peto\".")) if (inherits(object2, "rma.glmm")) stop(mstyle$stop("Method not available for objects of class \"rma.glmm\".")) if (!identical(class(object), class(object2))) stop(mstyle$stop("Class of 'object' must be the same as class of 'object2'.")) test <- .chkddd(ddd$test, "LRT", match.arg(ddd$test, c("LRT", "Wald"))) # get the 'df' value; can be used to adjust the degrees of freedom (i.e., number of # parameters) of the full model given via 'object1' (NULL if not specified); see [a] df <- ddd$df # assume 'object' is the full model and 'object2' is the reduced model model.f <- object model.r <- object2 # number of parameters in the models parms.f <- model.f$parms parms.r <- model.r$parms # check if they have the same number of parameters if (is.null(df) && parms.f == parms.r) stop(mstyle$stop("Models have the same number of parameters.")) # if parms.f < parms.r, then let 'object' be the reduced model and 'object2' be the full model (but only do this if 'df' was not specified) if (is.null(df) && parms.f < parms.r) { model.f <- object2 model.r <- object parms.f <- model.f$parms parms.r <- model.r$parms } # check if models are based on the same data (TODO: also check for the same weights?) if (inherits(object, "rma.uni")) { if (!identical(model.f$chksumyi, model.r$chksumyi) || !identical(model.f$chksumvi, model.r$chksumvi)) stop(mstyle$stop("The observed outcomes and/or sampling variances are not equal in the full and reduced model.")) } if (is.null(df)) { if (inherits(object, "rma.mv")) { if (!identical(model.f$chksumyi, model.r$chksumyi) || !identical(model.f$chksumV, model.r$chksumV)) stop(mstyle$stop("The observed outcomes and/or sampling variances/covariances are not equal in the full and reduced model.")) } } else { if (inherits(object, "rma.mv")) { if (!(identical(model.f$chksumyi, model.r$chksumyi))) stop(mstyle$stop("The observed outcomes are not equal in the full and reduced model.")) } } # for Wald-type tests, both models must have been fitted using the same method if (test == "Wald" && (model.f$method != model.r$method)) stop(mstyle$stop("Full and reduced model must use the same 'method' for the model fitting.")) # for LRTs, the reduced model may use method="FE/EE/CE" and the full model method="(RE)ML" but not the other way around if (is.element(model.f$method, c("FE","EE","CE")) && !is.element(model.r$method, c("FE","EE","CE"))) stop(mstyle$stop("Full model uses a fixed- and reduced model uses a random/mixed-effects model.")) # but have to check for a ML/REML mismatch if ((model.f$method == "ML" && model.r$method == "REML") || model.r$method == "ML" && model.f$method == "REML") stop(mstyle$stop(paste0("Mismatch between the use of ", model.f$method, " and ", model.r$method, " estimation in the full versus reduced model."))) # for LRTs, using anything besides ML/REML is strictly speaking incorrect if (test == "LRT" && (!is.element(model.f$method, c("FE","EE","CE","ML","REML")) || !is.element(model.r$method, c("FE","EE","CE","ML","REML")))) warning(mstyle$warning("LRTs should be based on ML/REML estimation."), call.=FALSE) # for LRTs based on REML estimation, check if the fixed effects differ if (test == "LRT" && model.f$method == "REML" && !identical(model.f$chksumX, model.r$chksumX)) { if (refit) { #message(mstyle$message("Refitting the models with ML (instead of REML) estimation ...")) if (inherits(model.f, "rma.uni") && model.f$model == "rma.uni") { #model.f <- try(update(model.f, method="ML", data=model.f$data), silent=TRUE) args <- list(yi=model.f$yi, vi=model.f$vi, weights=model.f$weights, mods=model.f$X, intercept=FALSE, method="ML", weighted=model.f$weighted, test=model.f$test, level=model.f$level, tau2=ifelse(model.f$tau2.fix, model.f$tau2, NA), control=model.f$control, skipr2=TRUE) model.f <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) } else { # note: this fails when building the docs with pkgdown; not sure why; the approach above at least works for 'rma.uni' objects and is more efficient as it skips the R^2 calculation model.f <- try(update(model.f, method="ML"), silent=TRUE) } if (inherits(model.f, "try-error")) stop(mstyle$stop("Refitting the full model with ML estimation failed.")) if (inherits(model.r, "rma.uni") && model.r$model == "rma.uni") { #model.r <- try(update(model.r, method="ML", data=model.r$data), silent=TRUE) args <- list(yi=model.r$yi, vi=model.r$vi, weights=model.r$weights, mods=model.r$X, intercept=FALSE, method="ML", weighted=model.r$weighted, test=model.r$test, level=model.r$level, tau2=ifelse(model.r$tau2.fix, model.r$tau2, NA), control=model.r$control, skipr2=TRUE) model.r <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) } else { model.r <- try(update(model.r, method="ML"), silent=TRUE) } if (inherits(model.r, "try-error")) stop(mstyle$stop("Refitting the reduced model with ML estimation failed.")) parms.f <- model.f$parms parms.r <- model.r$parms } else { warning(mstyle$warning("REML comparisons not meaningful for models with different fixed effects\n(use 'refit=TRUE' to refit both models based on ML estimation)."), call.=FALSE) } } # one could also consider just taking the ML deviances, but this is really ad-hoc; # there is some theory in Welham & Thompson (1997) about LRTs for fixed effects # when using REML estimation, but this seems to involve additional work if (test == "LRT" && !identical(model.f$chksumX, model.r$chksumX) && !.is.nested(model.f$X, model.r$X)) warning(mstyle$warning("The models being compared appear not to be nested."), call.=FALSE) ###################################################################### # for 'rma.uni' objects, calculate the pseudo R^2 value (based on the # proportional reduction in tau^2) comparing the full vs. reduced model if (inherits(object, "rma.uni") && !inherits(object, "rma.ls") && !inherits(object, "rma.gen")) { if (is.element(model.f$method, c("FE","EE","CE"))) { if (model.f$weighted) { if (is.null(model.f$weights)) { lm.f <- lm(model.f$yi ~ model.f$X, weights=1/model.f$vi) } else { lm.f <- lm(model.f$yi ~ model.f$X, weights=model.f$weights) } } else { lm.f <- lm(model.f$yi ~ model.f$X) } if (model.r$weighted) { if (is.null(model.r$weights)) { lm.r <- lm(model.r$yi ~ model.r$X, weights=1/model.r$vi) } else { lm.r <- lm(model.r$yi ~ model.r$X, weights=model.r$weights) } } else { lm.r <- lm(model.r$yi ~ model.r$X) } s2.f <- sigma(lm.f)^2 s2.r <- sigma(lm.r)^2 R2 <- 100 * max(0, (s2.r - s2.f) / s2.r) } else if (identical(model.r$tau2,0)) { R2 <- 0 } else { R2 <- 100 * max(0, (model.r$tau2 - model.f$tau2) / model.r$tau2) } } else { R2 <- NA_real_ } # for 'rma.uni' objects, extract the tau^2 estimates if (inherits(object, "rma.uni") && !inherits(object, "rma.ls") && !inherits(object, "rma.gen")) { tau2.f <- model.f$tau2 tau2.r <- model.r$tau2 } else { tau2.f <- NA_real_ tau2.r <- NA_real_ } if (test == "LRT") { if (is.null(df)) { parms.diff <- parms.f - parms.r } else { parms.f <- parms.f + df # [a] parms.diff <- df } if (model.f$method == "REML") { LRT <- model.r$fit.stats["dev","REML"] - model.f$fit.stats["dev","REML"] fit.stats.f <- t(model.f$fit.stats)["REML",] # to keep (row)names of fit.stats fit.stats.r <- t(model.r$fit.stats)["REML",] # to keep (row)names of fit.stats } else { LRT <- model.r$fit.stats["dev","ML"] - model.f$fit.stats["dev","ML"] fit.stats.f <- t(model.f$fit.stats)["ML",] fit.stats.r <- t(model.r$fit.stats)["ML",] } # set LRT to 0 if LRT < 0 (this should not happen, but could be due to numerical issues) LRT[LRT < 0] <- 0 pval <- pchisq(LRT, df=parms.diff, lower.tail=FALSE) res <- list(fit.stats.f=fit.stats.f, fit.stats.r=fit.stats.r, parms.f=parms.f, parms.r=parms.r, LRT=LRT, pval=pval, QE.f=model.f$QE, QE.r=model.r$QE, tau2.f=tau2.f, tau2.r=tau2.r, R2=R2, method=model.f$method, class.f=class(model.f), digits=digits, type="LRT") } if (test == "Wald") { btt <- setdiff(colnames(model.f$X), colnames(model.r$X)) if (length(btt) == 0L) stop(mstyle$stop("Full and reduced models appear to contain the same moderators.")) if (length(setdiff(colnames(model.r$X), colnames(model.f$X))) != 0L) stop(mstyle$stop("There are coefficients in the reduced model that are not in the full model.")) btt <- charmatch(btt, colnames(model.f$X)) if (anyNA(btt)) stop(mstyle$stop("Cannot identify coefficients to test.")) res <- anova(model.f, btt=btt) return(res) } } class(res) <- "anova.rma" return(res) } metafor/R/rstudent.rma.peto.r0000644000176200001440000000531515120213572015671 0ustar liggesusersrstudent.rma.peto <- function(model, digits, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.peto") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$outdat.f)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) x <- model if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } ddd <- list(...) .chkdots(ddd, c("time", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### delpred <- rep(NA_real_, x$k.f) vdelpred <- rep(NA_real_, x$k.f) ### elements that need to be returned outlist <- "beta=beta, vb=vb" ### note: skipping NA tables if (progbar) pbar <- pbapply::startpb(min=0, max=x$k.f) for (i in seq_len(x$k.f)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) if (!x$not.na[i]) next args <- list(ai=x$outdat.f$ai, bi=x$outdat.f$bi, ci=x$outdat.f$ci, di=x$outdat.f$di, add=x$add, to=x$to, drop00=x$drop00, level=x$level, subset=-i, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.peto, args)), silent=TRUE) if (inherits(res, "try-error")) next delpred[i] <- res$beta vdelpred[i] <- res$vb } if (progbar) pbapply::closepb(pbar) resid <- x$yi.f - delpred resid[abs(resid) < 100 * .Machine$double.eps] <- 0 #resid[abs(resid) < 100 * .Machine$double.eps * median(abs(resid), na.rm=TRUE)] <- 0 # see lm.influence seresid <- sqrt(x$vi.f + vdelpred) stresid <- resid / seresid ######################################################################### if (na.act == "na.omit") { out <- list(resid=resid[x$not.na.yivi], se=seresid[x$not.na.yivi], z=stresid[x$not.na.yivi]) out$slab <- x$slab[x$not.na.yivi] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(resid=resid, se=seresid, z=stresid) out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na.yivi)) stop(mstyle$stop("Missing values in results.")) out$digits <- digits if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- "list.rma" return(out) } metafor/R/vec2mat.r0000644000176200001440000000142415120213572013633 0ustar liggesusersvec2mat <- function(x, diag=FALSE, corr=!diag, dimnames) { mstyle <- .get.mstyle() p <- length(x) dims <- sqrt(2*p + 1/4) + ifelse(diag, -1/2, 1/2) if (abs(dims - round(dims)) >= .Machine$double.eps^0.5) stop(mstyle$stop("Length of 'x' does not correspond to a square matrix.")) dims <- round(dims) R <- matrix(NA_real_, nrow=dims, ncol=dims) if (!missing(dimnames)) { if (length(dimnames) != dims) stop(mstyle$stop(paste0("Length of 'dimnames' (", length(dimnames), ") does not correspond to the dimensions of the matrix (", dims, ")."))) rownames(R) <- colnames(R) <- dimnames } R[lower.tri(R, diag=diag)] <- x R[upper.tri(R, diag=diag)] <- t(R)[upper.tri(R, diag=diag)] if (corr) diag(R) <- 1 return(R) } metafor/R/print.permutest.rma.uni.r0000644000176200001440000001460515120213572017032 0ustar liggesusersprint.permutest.rma.uni <- function(x, digits=x$digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="permutest.rma.uni") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() ddd <- list(...) .chkdots(ddd, c("num", "legend")) if (is.null(ddd$legend)) { legend <- TRUE } else { if (is.na(ddd$legend)) { # can suppress legend and legend symbols with legend=NA legend <- FALSE footsym <- rep("", 6) } else { legend <- isTRUE(ddd$legend) } } footsym <- .get.footsym() if (!x$int.only) { if (inherits(x, "permutest.rma.ls")) { cat(mstyle$section(paste0("Test of Location Coefficients (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):", ifelse(x$skip.beta, "", footsym[1])))) } else { cat(mstyle$section(paste0("Test of Moderators (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):", ifelse(x$skip.beta, "", footsym[1])))) } cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QM, "F", df1=x$QMdf[1], df2=x$QMdf[2], pval=x$QMp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QM, "QM", df=x$QMdf[1], pval=x$QMp, digits=digits))) } cat("\n\n") } if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), tval=fmtx(x$zval, digits[["test"]]), df=round(x$ddf,2), "pval"=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) if (!x$skip.beta && footsym[1] != "") res.table <- .addfootsym(res.table, 5, footsym[1]) if (x$permci && footsym[1] != "") res.table <- .addfootsym(res.table, 6:7, footsym[1]) } else { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), "pval"=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) if (!x$skip.beta && footsym[1] != "") res.table <- .addfootsym(res.table, 4, footsym[1]) if (x$permci && footsym[1] != "") res.table <- .addfootsym(res.table, 5:6, footsym[1]) } rownames(res.table) <- rownames(x$beta) signif <- symnum(x$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } if (isTRUE(ddd$num)) { width <- nchar(nrow(res.table)) rownames(res.table) <- paste0(formatC(seq_len(nrow(res.table)), format="d", width=width), ") ", rownames(res.table)) } if (x$int.only) res.table <- res.table[1,] if (inherits(x, "permutest.rma.ls")) { cat(mstyle$section("Model Results (Location):")) } else { cat(mstyle$section("Model Results:")) } cat("\n\n") if (x$int.only) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) if (inherits(x, "permutest.rma.ls")) { cat("\n") if (!x$Z.int.only) { cat(mstyle$section(paste0("Test of Scale Coefficients (coefficient", ifelse(x$m.alpha == 1, " ", "s "), .format.btt(x$att),"):", ifelse(x$skip.alpha, "", footsym[1])))) cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QS, "F", df1=x$QSdf[1], df2=x$QSdf[2], pval=x$QSp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QS, "QS", df=x$QSdf[1], pval=x$QSp, digits=digits))) } cat("\n\n") } if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$alpha), digits[["est"]]), se=fmtx(x$se.alpha, digits[["se"]]), tval=fmtx(x$zval.alpha, digits[["test"]]), df=round(x$ddf.alpha,2), "pval"=fmtp(x$pval.alpha, digits[["pval"]]), ci.lb=fmtx(x$ci.lb.alpha, digits[["ci"]]), ci.ub=fmtx(x$ci.ub.alpha, digits[["ci"]]), stringsAsFactors=FALSE) if (!x$skip.alpha && footsym[1] != "") res.table <- .addfootsym(res.table, 5, footsym[1]) } else { res.table <- data.frame(estimate=fmtx(c(x$alpha), digits[["est"]]), se=fmtx(x$se.alpha, digits[["se"]]), zval=fmtx(x$zval.alpha, digits[["test"]]), "pval"=fmtp(x$pval.alpha, digits[["pval"]]), ci.lb=fmtx(x$ci.lb.alpha, digits[["ci"]]), ci.ub=fmtx(x$ci.ub.alpha, digits[["ci"]]), stringsAsFactors=FALSE) if (!x$skip.alpha && footsym[1] != "") res.table <- .addfootsym(res.table, 4, footsym[1]) } rownames(res.table) <- rownames(x$alpha) signif <- symnum(x$pval.alpha, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } if (isTRUE(ddd$num)) { width <- nchar(nrow(res.table)) rownames(res.table) <- paste0(formatC(seq_len(nrow(res.table)), format="d", width=width), ") ", rownames(res.table)) } if (x$Z.int.only) res.table <- res.table[1,] cat(mstyle$section("Model Results (Scale):")) cat("\n\n") if (x$Z.int.only) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) } if (signif.legend || legend) { cat("\n") cat(mstyle$legend("---")) } if (signif.legend) { cat("\n") cat(mstyle$legend("Signif. codes: "), mstyle$legend(attr(signif, "legend"))) cat("\n") } if (legend) { cat("\n") if (inherits(x, "permutest.rma.ls")) { cat(mstyle$legend(paste0(footsym[2], " p-values based on permutation testing"))) } else { cat(mstyle$legend(paste0(footsym[2], " p-value", ifelse(x$int.only, "", "s"), ifelse(x$permci, " and CI bounds", ""), " based on permutation testing"))) } cat("\n") } .space() invisible() } metafor/R/ranef.rma.uni.r0000644000176200001440000000725115120213572014741 0ustar liggesusersranef.rma.uni <- function(object, level, digits, transf, targs, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.uni", notav=c("rma.gen", "rma.uni.selmodel")) x <- object na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(x$yi.f) || is.null(x$vi.f) || is.null(x$X.f)) stop(mstyle$stop("Information needed to compute the BLUPs is not available in the model object.")) if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL level <- .level(level) if (is.element(x$test, c("knha","adhoc","t"))) { crit <- qt(level/2, df=x$ddf, lower.tail=FALSE) } else { crit <- qnorm(level/2, lower.tail=FALSE) } ### TODO: check computations for user-defined weights if (!is.null(x$weights) || !x$weighted) stop(mstyle$stop("Extraction of random effects not available for models with non-standard weights.")) ######################################################################### pred <- rep(NA_real_, x$k.f) vpred <- rep(NA_real_, x$k.f) ### see Appendix in: Raudenbush, S. W., & Bryk, A. S. (1985). Empirical ### Bayes meta-analysis. Journal of Educational Statistics, 10(2), 75-98 x$tau2.f <- .expand1(x$tau2.f, x$k.f) li <- ifelse(is.infinite(x$tau2.f), 1, x$tau2.f / (x$tau2.f + x$vi.f)) for (i in seq_len(x$k.f)[x$not.na]) { # note: skipping NA cases Xi <- matrix(x$X.f[i,], nrow=1) if (is.element(x$method, c("FE","EE","CE"))) { pred[i] <- 0 vpred[i] <- 0 } else { pred[i] <- li[i] * (x$yi.f[i] - Xi %*% x$beta) vpred[i] <- li[i] * x$vi.f[i] + li[i]^2 * Xi %*% tcrossprod(x$vb,Xi) } } se <- sqrt(vpred) pi.lb <- pred - crit * se pi.ub <- pred + crit * se ######################################################################### ### if requested, apply transformation function to 'pred' and interval bounds if (is.function(transf)) { if (is.null(targs)) { pred <- sapply(pred, transf) se <- rep(NA_real_, x$k.f) pi.lb <- sapply(pi.lb, transf) pi.ub <- sapply(pi.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) pred <- sapply(pred, transf, targs) se <- rep(NA_real_, x$k.f) pi.lb <- sapply(pi.lb, transf, targs) pi.ub <- sapply(pi.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(pi.lb, pi.ub) pi.lb <- tmp[,1] pi.ub <- tmp[,2] ######################################################################### if (na.act == "na.omit") { out <- list(pred=pred[x$not.na], se=se[x$not.na], pi.lb=pi.lb[x$not.na], pi.ub=pi.ub[x$not.na]) out$slab <- x$slab[x$not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(pred=pred, se=se, pi.lb=pi.lb, pi.ub=pi.ub) out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) ######################################################################### out$digits <- digits out$transf <- transf class(out) <- "list.rma" return(out) } metafor/R/methods.escalc.r0000644000176200001440000001562515120213572015176 0ustar liggesusers############################################################################ "[.escalc" <- function(x, i, ...) { mf <- paste0(deparse1(match.call()), collapse="") has.drop <- grepl("drop = T", mf, fixed=TRUE) || grepl("drop = F", mf, fixed=TRUE) if (!missing(i) && nargs()-has.drop > 2L) { mf <- match.call() i <- .getx("i", mf=mf, data=x) # TODO: enable this? # treat missings in a logical vector as FALSE when selecting rows #if (is.logical(i) && length(i) == nrow(x)) # i[is.na(i)] <- FALSE } dat <- NextMethod("[") ### find all 'yi' variables that are still part of the dataset yi.names <- attr(x, "yi.names") yi.names <- yi.names[is.element(yi.names, names(dat))] for (l in seq_along(yi.names)) { ### if selecting rows, subset ni and slab attributes accordingly and add them back to each yi variable if (!missing(i) && nargs()-has.drop > 2L) { attr(dat[[yi.names[l]]], "ni") <- attr(x[[yi.names[l]]], "ni")[i] attr(dat[[yi.names[l]]], "slab") <- attr(x[[yi.names[l]]], "slab")[i] } ### add measure attribute back to each yi variable attr(dat[[yi.names[l]]], "measure") <- attr(x[[yi.names[l]]], "measure") } ### add var.names and out.names attributes back to object (but only if they exist and only keep variables still in the dataset) all.names <- c("yi.names", "vi.names", "sei.names", "zi.names", "pval.names", "ci.lb.names", "ci.ub.names") for (l in seq_along(all.names)) { if (any(is.element(attr(x, all.names[l]), names(dat)))) # check if any of the variables still exist in the dataset attr(dat, all.names[l]) <- attr(x, all.names[l])[is.element(attr(x, all.names[l]), names(dat))] } ### add digits attribute back to object (but not to vectors) if (!is.null(attr(x, "digits")) && !is.null(dim(dat))) attr(dat, "digits") <- attr(x, "digits") return(dat) } "$<-.escalc" <- function(x, name, value) { dat <- NextMethod("$<-") ### for each attribute, only keep elements that are still part of the data frame (and remove empty attributes) ### (this is relevant when 'value' is NULL, so when a particular variable is getting removed) all.names <- c("yi.names", "vi.names", "sei.names", "zi.names", "pval.names", "ci.lb.names", "ci.ub.names") for (l in seq_along(all.names)) { if (!is.null(attr(dat, all.names[l]))) { attr(dat, all.names[l]) <- attr(dat, all.names[l])[is.element(attr(dat, all.names[l]), names(dat))] if (length(attr(dat, all.names[l])) == 0L) attr(dat, all.names[l]) <- NULL } } return(dat) } ############################################################################ cbind.escalc <- function (..., deparse.level=1) { dat <- data.frame(..., check.names = FALSE) allargs <- list(...) ### for each element, extract the 'var.names' and 'out.names' attributes and add entire set back to the object yi.names <- NULL vi.names <- NULL sei.names <- NULL zi.names <- NULL pval.names <- NULL ci.lb.names <- NULL ci.ub.names <- NULL for (arg in allargs) { yi.names <- c(attr(arg, "yi.names"), yi.names) vi.names <- c(attr(arg, "vi.names"), vi.names) sei.names <- c(attr(arg, "sei.names"), sei.names) zi.names <- c(attr(arg, "zi.names"), zi.names) pval.names <- c(attr(arg, "pval.names"), pval.names) ci.lb.names <- c(attr(arg, "ci.lb.names"), ci.lb.names) ci.ub.names <- c(attr(arg, "ci.ub.names"), ci.ub.names) } ### but only keep unique variable names attr(dat, "yi.names") <- unique(yi.names) attr(dat, "vi.names") <- unique(vi.names) attr(dat, "sei.names") <- unique(sei.names) attr(dat, "zi.names") <- unique(zi.names) attr(dat, "pval.names") <- unique(pval.names) attr(dat, "ci.lb.names") <- unique(ci.lb.names) attr(dat, "ci.ub.names") <- unique(ci.ub.names) ### add 'digits' attribute back (use the values from first element) attr(dat, "digits") <- attr(arg[1], "digits") class(dat) <- c("escalc", "data.frame") return(dat) } ############################################################################ rbind.escalc <- function (..., deparse.level=1) { dat <- rbind.data.frame(..., deparse.level = deparse.level) allargs <- list(...) yi.names <- attr(dat, "yi.names") yi.names <- yi.names[is.element(yi.names, names(dat))] for (i in seq_along(yi.names)) { ### get position (column number) of the 'yi' variable (in the first argument) #yi.pos <- which(names(allargs[[1]]) == yi.names[i]) ### get position (column number) of the 'yi' variable yi.pos <- sapply(allargs, function(x) which(names(x) == yi.names[i])[1]) yi.pos <- na.omit(yi.pos)[1] ### just in case if (length(yi.pos) == 0L) next ### get 'ni' attribute from all arguments (but only if argument has 'yi' variable) ni <- lapply(allargs, function(x) {if (isTRUE(names(x)[yi.pos] == yi.names[i])) attr(x[[yi.pos]], "ni")}) ### if none of them are missing, then combine and add back to variable ### otherwise remove 'ni' attribute, since it won't be of the right length if (all(sapply(ni, function(x) !is.null(x)))) { attr(dat[[yi.pos]], "ni") <- unlist(ni) } else { attr(dat[[yi.pos]], "ni") <- NULL } ### get 'slab' attribute from all arguments (but only if argument has 'yi' variable) slab <- lapply(allargs, function(x) {if (isTRUE(names(x)[yi.pos] == yi.names[i])) attr(x[[yi.pos]], "slab")}) ### if none of them are missing, then combine and add back to variable (and make sure they are unique) ### otherwise remove 'slab' attribute, since it won't be of the right length if (all(sapply(slab, function(x) !is.null(x)))) { attr(dat[[yi.pos]], "slab") <- .make.unique(unlist(slab)) } else { attr(dat[[yi.pos]], "slab") <- NULL } } return(dat) } ############################################################################ #as.data.frame.escalc <- function(x, row.names=NULL, optional=FALSE, ...) { # # ### strip measure, ni, and slab attributes from any yi elements # # yi.names <- attr(x, "yi.names") # yi.names <- yi.names[is.element(yi.names, names(x))] # # for (l in seq_along(yi.names)) { # # attr(x[[yi.names[l]]], "measure") <- NULL # attr(x[[yi.names[l]]], "ni") <- NULL # attr(x[[yi.names[l]]], "slab") <- NULL # # } # # ### strip other attributes that may be part of an 'escalc' object # # attr(x, "digits") <- NULL # # attr(x, "yi.names") <- NULL # attr(x, "vi.names") <- NULL # attr(x, "sei.names") <- NULL # attr(x, "zi.names") <- NULL # attr(x, "pval.names") <- NULL # attr(x, "ci.lb.names") <- NULL # attr(x, "ci.ub.names") <- NULL # # class(x) <- "data.frame" # # return(x) # #} ############################################################################ metafor/R/llplot.r0000644000176200001440000002521315120213572013602 0ustar liggesusersllplot <- function(measure, yi, vi, sei, ai, bi, ci, di, n1i, n2i, data, subset, drop00=TRUE, xvals=1000, xlim, ylim, xlab, ylab, scale=TRUE, lty, lwd, col, level=99.99, refline=0, ...) { ######################################################################### mstyle <- .get.mstyle() ### data setup if (missing(measure)) stop(mstyle$stop("Must specify an effect size or outcome measure via the 'measure' argument.")) .chkclass(class(measure), notap="rma", type="Function") if (!is.element(measure, c("GEN", "OR"))) stop(mstyle$stop("Currently only measure=\"GEN\" or measure=\"OR\" can be specified.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (measure == "OR" && !requireNamespace("BiasedUrn", quietly=TRUE)) stop(mstyle$stop("Please install the 'BiasedUrn' package to use this function.")) if (missing(xlab)) { if (measure == "GEN") xlab <- "Observed Outcome" if (measure == "OR") xlab <- "Log Odds Ratio" } if (missing(ylab)) { if (scale) { ylab <- "Scaled Likelihood" } else { ylab <- "Likelihood" } } level <- .level(level) ### get ... argument ddd <- list(...) ### set defaults or get 'onlyo1', 'addyi', and 'addvi' arguments onlyo1 <- .chkddd(ddd$onlyo1, FALSE) addyi <- .chkddd(ddd$addyi, TRUE) addvi <- .chkddd(ddd$addvi, TRUE) .start.plot() ######################################################################### ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } ### extract values, possibly from the data frame specified via data (arguments not specified are NULL) mf <- match.call() subset <- .getx("subset", mf=mf, data=data) lty <- .getx("lty", mf=mf, data=data) lwd <- .getx("lwd", mf=mf, data=data) col <- .getx("col", mf=mf, data=data) if (measure == "GEN") { yi <- .getx("yi", mf=mf, data=data, checknumeric=TRUE) vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) sei <- .getx("sei", mf=mf, data=data, checknumeric=TRUE) if (is.null(vi)) { if (is.null(sei)) { stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) } else { vi <- sei^2 } } if (!.all.specified(yi, vi)) stop(mstyle$stop("Cannot construct plot. Check that all of the required information is specified\n via the appropriate arguments (i.e., yi, vi).")) if (!.equal.length(yi, vi)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) k <- length(yi) # number of outcomes before subsetting ### subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) } } if (measure == "OR") { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (!.equal.length(ai, bi, ci, di, n1i, n2i)) stop(mstyle$stop("Supplied data vectors are not all of the same length.")) n1i.inc <- n1i != ai + bi n2i.inc <- n2i != ci + di if (any(n1i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n1i' values are not equal to 'ai + bi'.")) if (any(n2i.inc, na.rm=TRUE)) stop(mstyle$stop("One or more 'n2i' values are not equal to 'ci + di'.")) bi <- replmiss(bi, n1i-ai) di <- replmiss(di, n2i-ci) if (!.all.specified(ai, bi, ci, di)) stop(mstyle$stop("Cannot construct plot. Check that all of the required information is specified\n via the appropriate arguments (i.e., ai, bi, ci, di or ai, n1i, ci, n2i).")) n1i <- ai + bi n2i <- ci + di if (any(c(ai > n1i, ci > n2i), na.rm=TRUE)) stop(mstyle$stop("One or more event counts are larger than the corresponding group sizes.")) if (any(c(ai, bi, ci, di) < 0, na.rm=TRUE)) stop(mstyle$stop("One or more counts are negative.")) if (any(c(n1i < 0, n2i < 0), na.rm=TRUE)) stop(mstyle$stop("One or more group sizes are negative.")) k <- length(ai) # number of outcomes before subsetting ### note studies that have at least one zero cell id0 <- c(ai == 0L | bi == 0L | ci == 0L | di == 0L) id0[is.na(id0)] <- FALSE ### note studies that have no events or all events id00 <- c(ai == 0L & ci == 0L) | c(bi == 0L & di == 0L) id00[is.na(id00)] <- FALSE ### if drop00=TRUE, set counts to NA for studies that have no events (or all events) in both arms if (drop00) { ai[id00] <- NA_real_ bi[id00] <- NA_real_ ci[id00] <- NA_real_ di[id00] <- NA_real_ } ### subsetting if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) } dat <- .do.call(escalc, measure="OR", ai=ai, bi=bi, ci=ci, di=di, drop00=drop00, onlyo1=onlyo1, addyi=addyi, addvi=addvi) yi <- dat$yi # one or more yi/vi pairs may be NA/NA vi <- dat$vi # one or more yi/vi pairs may be NA/NA } ######################################################################### ### study ids (1:k sequence before subsetting) ids <- seq_len(k) ### setting of lty, lwd, and col arguments (if a single value, repeat k times) ### if any of these arguments is not a single value, it must have the same length as the data before subsetting if (!is.null(lty)) { lty <- .expand1(lty, k) if (length(lty) != k) stop(mstyle$stop(paste0("Length of the 'lty' argument (", length(lty), ") does not match the length of the data (", k, ")."))) } if (!is.null(lwd)) { lwd <- .expand1(lwd, k) if (length(lwd) != k) stop(mstyle$stop(paste0("Length of the 'lwd' argument (", length(lwd), ") does not match the length of the data (", k, ")."))) } if (!is.null(col)) { col <- .expand1(col, k) if (length(col) != k) stop(mstyle$stop(paste0("Length of the 'col' argument (", length(col), ") does not match the length of the data (", k, ")."))) } ### if a subset of studies is specified if (!is.null(subset)) { ids <- .getsubset(ids, subset) lty <- .getsubset(lty, subset) lwd <- .getsubset(lwd, subset) col <- .getsubset(col, subset) id0 <- .getsubset(id0, subset) id00 <- .getsubset(id00, subset) } ### number of outcomes after subsetting k <- length(yi) ### check for NAs and act accordingly if (measure == "GEN") { has.na <- is.na(yi) | is.na(vi) } if (measure == "OR") { has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) } not.na <- !has.na if (any(has.na)) { if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] vi <- vi[not.na] if (measure == "OR") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] id0 <- id0[not.na] id00 <- id00[not.na] } k <- length(yi) ids <- ids[not.na] lty <- lty[not.na] lwd <- lwd[not.na] col <- col[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from plotting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in studies.")) } ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ######################################################################### ### set default line types (id0 studies = dashed line, id00 studies = dotted line, all others = solid line) if (measure == "GEN") { if (is.null(lty)) lty <- rep("solid", k) } if (measure == "OR") { if (is.null(lty)) lty <- ifelse(id0 | id00, ifelse(id00, "dotted", "dashed"), "solid") } ### set default line widths (4.0 to 0.4 according to the rank of vi) if (is.null(lwd)) lwd <- seq(from=4.0, to=0.4, length.out=k)[rank(vi)] ### set default line color (darker to lighter according to the rank of vi) if (is.null(col)) { col <- sapply(seq(from=0.8, to=0.2, length.out=k), function(x) .coladj(par("bg","fg"), dark=x, light=-x)) col <- col[rank(vi)] } ### set x-axis limits ci.lb <- yi - qnorm(level/2, lower.tail=FALSE) * sqrt(vi) ci.ub <- yi + qnorm(level/2, lower.tail=FALSE) * sqrt(vi) if (missing(xlim)) { xlim <- c(min(ci.lb, na.rm=TRUE),max(ci.ub, na.rm=TRUE)) } else { xlim <- sort(xlim) } xs <- seq(from=xlim[1], to=xlim[2], length.out=xvals) lls <- matrix(NA_real_, nrow=k, ncol=xvals) out <- matrix(TRUE, nrow=k, ncol=xvals) if (measure == "GEN") { for (i in seq_len(k)) { for (j in seq_len(xvals)) { lls[i,j] <- dnorm(yi[i], xs[j], sqrt(vi[i])) if (xs[j] >= ci.lb[i] & xs[j] <= ci.ub[i]) out[i,j] <- FALSE } } } if (measure == "OR") { for (i in seq_len(k)) { for (j in seq_len(xvals)) { lls[i,j] <- .dnchgi(xs[j], ai=ai[i], bi=bi[i], ci=ci[i], di=di[i], random=FALSE, dnchgcalc="dFNCHypergeo", dnchgprec=1e-10) if (xs[j] >= ci.lb[i] & xs[j] <= ci.ub[i]) out[i,j] <- FALSE } } } if (scale) { lls.sum <- rep(NA_real_, k) for (i in seq_len(k)) { lls.sum[i] <- .trapezoid(xs[!is.na(lls[i,])], lls[i,!is.na(lls[i,])]) lls[i,] <- lls[i,] / lls.sum[i] } } lls[out] <- NA_real_ ### set y-axis limits if (missing(ylim)) { ylim <- c(0, max(lls, na.rm=TRUE)) } else { ylim <- sort(ylim) } plot(NA, NA, xlim=xlim, ylim=ylim, xlab=xlab, ylab=ylab, ...) for (i in seq_len(k)[order(1/vi)]) { lines(xs, lls[i,], lty=lty[i], lwd=lwd[i], col=col[i], ...) } if (is.numeric(refline)) abline(v=refline, lty="solid", lwd=2, ...) invisible(lls) } metafor/R/cooks.distance.rma.uni.r0000644000176200001440000000020215120213572016542 0ustar liggesuserscooks.distance.rma.uni <- function(model, progbar=FALSE, ...) influence(model, progbar=progbar, measure="cooks.distance", ...) metafor/R/print.rma.mv.r0000644000176200001440000004470115120213572014632 0ustar liggesusersprint.rma.mv <- function(x, digits, showfit=FALSE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.mv") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } footsym <- .get.footsym() ddd <- list(...) .chkdots(ddd, c("num", "legend")) if (is.null(ddd$legend)) { legend <- ifelse(inherits(x, "robust.rma"), TRUE, FALSE) } else { if (is.na(ddd$legend)) { # can suppress legend and legend symbols with legend=NA legend <- FALSE footsym <- rep("", 6) } else { legend <- isTRUE(ddd$legend) } } .space() cat(mstyle$section("Multivariate Meta-Analysis Model")) cat(mstyle$section(paste0(" (k = ", x$k, "; "))) cat(mstyle$section(paste0("method: ", x$method, ")"))) if (showfit) { cat("\n") if (x$method == "REML") { fs <- fmtx(x$fit.stats$REML, digits[["fit"]]) } else { fs <- fmtx(x$fit.stats$ML, digits[["fit"]]) } names(fs) <- c("logLik", "Deviance", "AIC", "BIC", "AICc") cat("\n") tmp <- capture.output(print(fs, quote=FALSE, print.gap=2)) #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) cat("\n") } else { cat("\n\n") } sigma2 <- fmtx(x$sigma2, digits[["var"]]) tau2 <- fmtx(x$tau2, digits[["var"]]) rho <- fmtx(x$rho, digits[["var"]]) gamma2 <- fmtx(x$gamma2, digits[["var"]]) phi <- fmtx(x$phi, digits[["var"]]) sigma <- fmtx(sqrt(x$sigma2), digits[["var"]]) tau <- fmtx(sqrt(x$tau2), digits[["var"]]) gamma <- fmtx(sqrt(x$gamma2), digits[["var"]]) cat(mstyle$section("Variance Components:")) right <- TRUE if (!x$withS && !x$withG && !x$withH) { cat(mstyle$text(" none")) cat("\n\n") } else { cat("\n\n") if (x$withS) { vc <- cbind(estim=sigma2, sqrt=sigma, nlvls=x$s.nlevels, fixed=ifelse(x$vc.fix$sigma2, "yes", "no"), factor=x$s.names, R=ifelse(x$Rfix, "yes", "no")) colnames(vc) <- c("estim", "sqrt", "nlvls", "fixed", "factor", "R") if (!x$withR) vc <- vc[,-6,drop=FALSE] if (length(x$sigma2) == 1L) { rownames(vc) <- "sigma^2 " } else { rownames(vc) <- paste0("sigma^2.", seq_along(x$sigma2)) } tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) cat("\n") } if (x$withG) { ### note: use g.nlevels.f[1] since the number of arms is based on all data (i.e., including NAs), but use ### g.nlevels[2] since the number of studies is based on what is actually available (i.e., excluding NAs) if (is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { inner <- trimws(paste0(strsplit(paste0(x$formulas[[1]], collapse=""), "|", fixed=TRUE)[[1]][1], collapse="")) if (nchar(inner) > 15) inner <- paste0(substr(inner, 1, 15), "[...]", collapse="") } else { inner <- x$g.names[1] } outer <- tail(x$g.names, 1) mng <- max(nchar(c(inner, outer))) cat(mstyle$text(paste0("outer factor: ", paste0(outer, paste(rep(" ", max(0,mng-nchar(outer))), collapse=""), collapse=""), " (nlvls = ", x$g.nlevels[2], ")"))) cat("\n") if (is.element(x$struct[1], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { cat(mstyle$text(paste0("inner term: ", paste0(inner, paste(rep(" ", max(0,mng-nchar(inner))), collapse=""), collapse=""), " (nlvls = ", x$g.nlevels.f[1], ")"))) } else { cat(mstyle$text(paste0("inner factor: ", paste0(inner, paste(rep(" ", max(0,mng-nchar(inner))), collapse=""), collapse=""), " (nlvls = ", x$g.nlevels.f[1], ")"))) } cat("\n\n") if (is.element(x$struct[1], c("CS","AR","CAR","ID","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { vc <- cbind(tau2, tau, ifelse(x$vc.fix$tau2, "yes", "no")) vc <- rbind(vc, c(rho, "", ifelse(x$vc.fix$rho, "yes", "no"))) colnames(vc) <- c("estim", "sqrt", "fixed") rownames(vc) <- c("tau^2 ", "rho") if (x$struct[1] == "ID") vc <- vc[1,,drop=FALSE] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[1], c("HCS","HAR","DIAG"))) { vc <- cbind(tau2, tau, x$g.levels.k, ifelse(x$vc.fix$tau2, "yes", "no"), x$g.levels.f[[1]]) vc <- rbind(vc, c(rho, "", "", ifelse(x$vc.fix$rho, "yes", "no"), "")) colnames(vc) <- c("estim", "sqrt", "k.lvl", "fixed", "level") if (length(x$tau2) == 1L) { rownames(vc) <- c("tau^2 ", "rho") } else { rownames(vc) <- c(paste0("tau^2.", seq_along(x$tau2), " "), "rho") } if (x$struct[1] == "DIAG") vc <- vc[seq_along(tau2),,drop=FALSE] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[1], c("UN","UNR"))) { if (x$struct[1] == "UN") { vc <- cbind(tau2, tau, x$g.levels.k, ifelse(x$vc.fix$tau2, "yes", "no"), x$g.levels.f[[1]]) } else { vc <- cbind(rep(tau2, length(x$g.levels.k)), rep(tau, length(x$g.levels.k)), x$g.levels.k, ifelse(rep(x$vc.fix$tau2,length(x$g.levels.k)), "yes", "no"), x$g.levels.f[[1]]) } colnames(vc) <- c("estim", "sqrt", "k.lvl", "fixed", "level") if (length(x$g.levels.k) == 1L) { rownames(vc) <- c("tau^2") } else { rownames(vc) <- paste0("tau^2.", seq_along(x$g.levels.k), " ") } tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) cat("\n") if (length(x$rho) == 1L) { G <- matrix(NA_real_, nrow=2, ncol=2) } else { G <- matrix(NA_real_, nrow=x$g.nlevels.f[1], ncol=x$g.nlevels.f[1]) } G[lower.tri(G)] <- rho G[upper.tri(G)] <- t(G)[upper.tri(G)] diag(G) <- 1 G[upper.tri(G)] <- "" if (length(x$rho) == 1L) { G.info <- matrix(NA_real_, nrow=2, ncol=2) } else { G.info <- matrix(NA_real_, nrow=x$g.nlevels.f[1], ncol=x$g.nlevels.f[1]) } G.info[lower.tri(G.info)] <- x$g.levels.comb.k G.info[upper.tri(G.info)] <- t(G.info)[upper.tri(G.info)] G.info[lower.tri(G.info)] <- ifelse(x$vc.fix$rho, "yes", "no") diag(G.info) <- "-" vc <- cbind(G, "", G.info) colnames(vc) <- c(paste0("rho.", abbreviate(x$g.levels.f[[1]])), "", abbreviate(x$g.levels.f[[1]])) # FIXME: x$g.levels.f[[1]] may be numeric, in which case a wrapping 'header' is not recognized rownames(vc) <- x$g.levels.f[[1]] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[1], c("GEN"))) { vc <- cbind(tau2, tau, ifelse(x$vc.fix$tau2, "yes", "no"), "") colnames(vc) <- c("estim", "sqrt", "fixed", "rho:") rownames(vc) <- x$g.names[-length(x$g.names)] G.info <- fmtx(cov2cor(x$G), digits[["var"]]) diag(G.info) <- "-" G.info[lower.tri(G.info)] <- ifelse(x$vc.fix$rho, "yes", "no") colnames(G.info) <- abbreviate(x$g.names[-length(x$g.names)]) vc <- cbind(vc, G.info) tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[1], c("GDIAG"))) { vc <- cbind(tau2, tau, ifelse(x$vc.fix$tau2, "yes", "no")) colnames(vc) <- c("estim", "sqrt", "fixed") rownames(vc) <- x$g.names[-length(x$g.names)] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } cat("\n") } if (x$withH) { ### note: use h.nlevels.f[1] since the number of arms is based on all data (i.e., including NAs), but use ### h.nlevels[2] since the number of studies is based on what is actually available (i.e., excluding NAs) if (is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { inner <- trimws(paste0(strsplit(paste0(x$formulas[[2]], collapse=""), "|", fixed=TRUE)[[1]][1], collapse="")) if (nchar(inner) > 15) inner <- paste0(substr(inner, 1, 15), "[...]", collapse="") } else { inner <- x$h.names[1] } outer <- tail(x$h.names, 1) mng <- max(nchar(c(inner, outer))) cat(mstyle$text(paste0("outer factor: ", paste0(outer, paste(rep(" ", max(0,mng-nchar(outer))), collapse=""), collapse=""), " (nlvls = ", x$h.nlevels[2], ")"))) cat("\n") if (is.element(x$struct[2], c("SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD","GEN","GDIAG"))) { cat(mstyle$text(paste0("inner term: ", paste0(inner, paste(rep(" ", max(0,mng-nchar(inner))), collapse=""), collapse=""), " (nlvls = ", x$h.nlevels.f[1], ")"))) } else { cat(mstyle$text(paste0("inner factor: ", paste0(inner, paste(rep(" ", max(0,mng-nchar(inner))), collapse=""), collapse=""), " (nlvls = ", x$h.nlevels.f[1], ")"))) } cat("\n\n") if (is.element(x$struct[2], c("CS","AR","CAR","ID","SPEXP","SPGAU","SPLIN","SPRAT","SPSPH","PHYBM","PHYPL","PHYPD"))) { vc <- cbind(gamma2, gamma, ifelse(x$vc.fix$gamma2, "yes", "no")) vc <- rbind(vc, c(phi, "", ifelse(x$vc.fix$phi, "yes", "no"))) colnames(vc) <- c("estim", "sqrt", "fixed") rownames(vc) <- c("gamma^2 ", "phi") if (x$struct[2] == "ID") vc <- vc[1,,drop=FALSE] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[2], c("HCS","HAR","DIAG"))) { vc <- cbind(gamma2, gamma, x$h.levels.k, ifelse(x$vc.fix$gamma2, "yes", "no"), x$h.levels.f[[1]]) vc <- rbind(vc, c(phi, "", "", ifelse(x$vc.fix$phi, "yes", "no"), "")) colnames(vc) <- c("estim", "sqrt", "k.lvl", "fixed", "level") if (length(x$gamma2) == 1L) { rownames(vc) <- c("gamma^2 ", "phi") } else { rownames(vc) <- c(paste0("gamma^2.", seq_along(x$gamma2), " "), "phi") } if (x$struct[2] == "DIAG") vc <- vc[seq_along(gamma2),,drop=FALSE] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[2], c("UN","UNR"))) { if (x$struct[2] == "UN") { vc <- cbind(gamma2, gamma, x$h.levels.k, ifelse(x$vc.fix$gamma2, "yes", "no"), x$h.levels.f[[1]]) } else { vc <- cbind(rep(gamma2, length(x$h.levels.k)), rep(gamma, length(x$h.levels.k)), x$h.levels.k, ifelse(rep(x$vc.fix$gamma2,length(x$h.levels.k)), "yes", "no"), x$h.levels.f[[1]]) } colnames(vc) <- c("estim", "sqrt", "k.lvl", "fixed", "level") if (length(x$h.levels.k) == 1L) { rownames(vc) <- c("gamma^2") } else { rownames(vc) <- paste0("gamma^2.", seq_along(x$h.levels.k), " ") } tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) cat("\n") if (length(x$phi) == 1L) { H <- matrix(NA_real_, nrow=2, ncol=2) } else { H <- matrix(NA_real_, nrow=x$h.nlevels.f[1], ncol=x$h.nlevels.f[1]) } H[lower.tri(H)] <- phi H[upper.tri(H)] <- t(H)[upper.tri(H)] diag(H) <- 1 #H[upper.tri(H)] <- "" if (length(x$phi) == 1L) { H.info <- matrix(NA_real_, nrow=2, ncol=2) } else { H.info <- matrix(NA_real_, nrow=x$h.nlevels.f[1], ncol=x$h.nlevels.f[1]) } H.info[lower.tri(H.info)] <- x$h.levels.comb.k H.info[upper.tri(H.info)] <- t(H.info)[upper.tri(H.info)] H.info[lower.tri(H.info)] <- ifelse(x$vc.fix$phi, "yes", "no") diag(H.info) <- "-" vc <- cbind(H, "", H.info) colnames(vc) <- c(paste0("phi.", abbreviate(x$h.levels.f[[1]])), "", abbreviate(x$h.levels.f[[1]])) # FIXME: x$h.levels.f[[1]] may be numeric, in which case a wrapping 'header' is not recognized rownames(vc) <- x$h.levels.f[[1]] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[2], c("GEN"))) { vc <- cbind(gamma2, gamma, ifelse(x$vc.fix$gamma2, "yes", "no"), "") colnames(vc) <- c("estim", "sqrt", "fixed", "phi:") rownames(vc) <- x$h.names[-length(x$h.names)] H.info <- fmtx(cov2cor(x$H), digits[["var"]]) diag(H.info) <- "-" H.info[lower.tri(H.info)] <- ifelse(x$vc.fix$phi, "yes", "no") colnames(H.info) <- abbreviate(x$h.names[-length(x$h.names)]) vc <- cbind(vc, H.info) tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } if (is.element(x$struct[2], c("GDIAG"))) { vc <- cbind(gamma2, gamma, ifelse(x$vc.fix$gamma2, "yes", "no")) colnames(vc) <- c("estim", "sqrt", "fixed") rownames(vc) <- x$h.names[-length(x$h.names)] tmp <- capture.output(print(vc, quote=FALSE, right=right, print.gap=2)) .print.table(tmp, mstyle) } cat("\n") } } if (!is.na(x$QE)) { if (x$int.only) { cat(mstyle$section("Test for Heterogeneity:")) cat("\n") cat(mstyle$result(fmtt(x$QE, "Q", df=x$QEdf, pval=x$QEp, digits=digits))) } else { cat(mstyle$section("Test for Residual Heterogeneity:")) cat("\n") cat(mstyle$result(fmtt(x$QE, "QE", df=x$QEdf, pval=x$QEp, digits=digits))) } cat("\n\n") } if (inherits(x, "robust.rma")) { cat(mstyle$text("Number of estimates: ")) cat(mstyle$result(x$k)) cat("\n") cat(mstyle$text("Number of clusters: ")) cat(mstyle$result(x$n)) cat("\n") cat(mstyle$text("Estimates per cluster: ")) if (all(x$tcl[1] == x$tcl)) { cat(mstyle$result(x$tcl[1])) } else { cat(mstyle$result(paste0(min(x$tcl), "-", max(x$tcl), " (mean: ", fmtx(mean(x$tcl), digits=2), ", median: ", round(median(x$tcl), digits=2), ")"))) } cat("\n\n") } if (x$p > 1L && !is.na(x$QM)) { cat(mstyle$section(paste0("Test of Moderators (coefficient", ifelse(x$m == 1, " ", "s "), .format.btt(x$btt),"):", ifelse(inherits(x, "robust.rma"), footsym[1], "")))) cat("\n") if (is.element(x$test, c("knha","adhoc","t"))) { cat(mstyle$result(fmtt(x$QM, "F", df1=x$QMdf[1], df2=x$QMdf[2], pval=x$QMp, digits=digits))) } else { cat(mstyle$result(fmtt(x$QM, "QM", df=x$QMdf[1], pval=x$QMp, digits=digits))) } cat("\n\n") } if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), tval=fmtx(x$zval, digits[["test"]]), df=round(x$ddf,2), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) if (inherits(x, "robust.rma") && footsym[1] != "") res.table <- .addfootsym(res.table, 2:7, footsym[1]) } else { res.table <- data.frame(estimate=fmtx(c(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]]), stringsAsFactors=FALSE) } rownames(res.table) <- rownames(x$beta) signif <- symnum(x$pval, corr=FALSE, na=FALSE, cutpoints=c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " ")) if (signif.stars) { res.table <- cbind(res.table, signif) colnames(res.table)[ncol(res.table)] <- "" } if (isTRUE(ddd$num)) { width <- nchar(nrow(res.table)) rownames(res.table) <- paste0(formatC(seq_len(nrow(res.table)), format="d", width=width), ") ", rownames(res.table)) } if (x$int.only) res.table <- res.table[1,] cat(mstyle$section("Model Results:")) cat("\n\n") if (x$int.only) { tmp <- capture.output(.print.vector(res.table)) } else { tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) } #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) if (signif.legend || legend) { cat("\n") cat(mstyle$legend("---")) } if (signif.legend) { cat("\n") cat(mstyle$legend("Signif. codes: "), mstyle$legend(attr(signif, "legend"))) cat("\n") } if (inherits(x, "robust.rma") && legend) { cat("\n") cat(mstyle$legend(paste0(footsym[2], " results based on cluster-robust inference (var-cov estimator: ", x$vbest))) if (x$robumethod == "default") { cat(mstyle$legend(",")) cat("\n") cat(mstyle$legend(paste0(" approx ", ifelse(x$int.only, "t-test and confidence interval", "t/F-tests and confidence intervals"), ", df: residual method)"))) } else { if (x$coef_test == "Satterthwaite" && x$conf_test == "Satterthwaite" && x$wald_test == "HTZ") { cat(mstyle$legend(",")) cat("\n") cat(mstyle$legend(paste0(" approx ", ifelse(x$int.only, "t-test and confidence interval", "t/F-tests and confidence intervals"), ", df: Satterthwaite approx)"))) } else { cat(mstyle$legend(")")) } } cat("\n") } .space() invisible() } metafor/R/permutest.rma.uni.r0000644000176200001440000004503515120213572015700 0ustar liggesuserspermutest.rma.uni <- function(x, exact=FALSE, iter=1000, btt=x$btt, permci=FALSE, progbar=TRUE, digits, control, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.uni", notav=c("robust.rma", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to carry out permutation test is not available in the model object.")) ddd <- list(...) .chkdots(ddd, c("tol", "time", "seed", "verbose", "fixed", "code1", "code2")) if (!is.null(ddd$tol)) # in case the user specified comptol in the old manner comptol <- ddd$tol fixed <- .chkddd(ddd$fixed, FALSE, isTRUE(ddd$fixed)) iter <- round(iter) if (iter <= 1) stop(mstyle$stop("Argument 'iter' must be >= 2.")) if (isTRUE(ddd$time)) time.start <- proc.time() if (!missing(btt)) { btt <- .set.btt(btt, x$p, x$int.incl, colnames(x$X), fixed=fixed) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=x$X, intercept=FALSE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=btt, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE) x <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) } ######################################################################### ######################################################################### ######################################################################### ### calculate number of permutations for an exact permutation test if (x$int.only) { ### for intercept-only models, there are 2^k possible permutations of the signs X.exact.iter <- 2^x$k } else { ### for meta-regression models, there are k! possible permutations of the rows of the model matrix #X.exact.iter <- round(exp(lfactorial(x$k))) # note: without round(), not exactly an integer! ### however, when there are duplicated rows in the model matrix, the number of *unique* permutations ### is lower; the code below below determines the number of unique permutations ### order the X matrix X <- as.data.frame(x$X)[do.call(order, as.data.frame(x$X)),] ### determine groupings X.indices <- cumsum(c(TRUE, !duplicated(X)[-1])) ### this turns 1,1,1,2,2,3,4,4,4 into 1,1,1,4,4,6,7,7,7 so that the actual row numbers can be permuted X.indices <- rep(cumsum(rle(X.indices)$lengths) - (rle(X.indices)$lengths - 1), rle(X.indices)$lengths) ### determine exact number of unique permutations ind.table <- table(X.indices) X.exact.iter <- round(prod((max(ind.table)+1):x$k) / prod(factorial(ind.table[-which.max(ind.table)]))) # cancel largest value in numerator and denominator to reduce overflow problems #X.exact.iter <- round(factorial(x$k) / prod(factorial(ind.table))) # definitional formula #X.exact.iter <- round(exp(lfactorial(x$k) - sum(lfactorial(ind.table)))) # using log of definitional formula and then round(exp()) if (is.na(X.exact.iter)) X.exact.iter <- Inf } if (is.character(exact) && exact == "i") return(X.exact.iter) ### if 'exact=TRUE' or if the number of iterations for an exact test are smaller ### than what is specified under 'iter', then carry out the exact test X.exact <- exact X.iter <- iter if (X.exact || (X.exact.iter <= X.iter)) { X.exact <- TRUE X.iter <- X.exact.iter } if (X.iter == Inf) stop(mstyle$stop("Too many iterations required for an exact permutation test.")) ######################################################################### ### generate seed (needed when X.exact=FALSE) if (!X.exact) seed <- as.integer(runif(1)*2e9) ### set defaults for control parameters and replace with any user-defined values if (missing(control)) control <- list() con <- list(comptol=.Machine$double.eps^0.5, tol=.Machine$double.eps^0.25, maxiter=100, alternative="two.sided", p2defn="abs", stat="test", cialt="one.sided", distfac=1, extendInt="no") con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] con$alternative <- match.arg(con$alternative, c("two.sided", "less", "greater")) con$p2defn <- match.arg(con$p2defn, c("abs", "px2")) con$stat <- match.arg(con$stat, c("test", "coef")) if (exists("comptol", inherits=FALSE)) con$comptol <- comptol if (!X.exact) { if (!is.null(ddd$seed)) { set.seed(ddd$seed) } else { set.seed(seed) } } ### elements that need to be returned outlist <- "beta=beta, zval=zval, QM=QM" ######################################################################### if (progbar) cat(mstyle$verbose(paste0("Running ", X.iter, " iterations for an ", ifelse(X.exact, "exact", "approximate"), " permutation test.\n"))) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) if (x$int.only) { ### permutation test for intercept-only model zval.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(zval.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) beta.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(beta.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) QM.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(QM.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) if (progbar) pbar <- pbapply::startpb(min=0, max=X.iter) if (X.exact) { # exact permutation test for intercept-only models signmat <- as.matrix(expand.grid(replicate(x$k, list(c(1,-1))), KEEP.OUT.ATTRS=FALSE)) for (i in seq_len(X.iter)) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=signmat[i,]*x$yi, vi=x$vi, weights=x$weights, intercept=TRUE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=1, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i] <- res$beta[,1] zval.perm[i] <- res$zval QM.perm[i] <- res$QM if (progbar) pbapply::setpb(pbar, i) } } else { # approximate permutation test for intercept-only models i <- 1 while (i <= X.iter) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) signs <- sample(c(-1,1), x$k, replace=TRUE) # easier to understand (a tad slower for small k, but faster for larger k) #signs <- 2*rbinom(x$k,1,0.5)-1 args <- list(yi=signs*x$yi, vi=x$vi, weights=x$weights, intercept=TRUE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=1, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i] <- res$beta[,1] zval.perm[i] <- res$zval QM.perm[i] <- res$QM i <- i + 1 if (progbar) pbapply::setpb(pbar, i) } } ### the first random permutation is always the observed data (avoids possibility of p=0) if (!X.exact) { beta.perm[1] <- x$beta[,1] zval.perm[1] <- x$zval QM.perm[1] <- x$QM } if (con$alternative == "two.sided") { if (con$p2defn == "abs") { ### absolute value definition of the two-sided p-value if (con$stat == "test") { pval <- mean(abs(zval.perm) >= abs(x$zval) - con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- mean(abs(beta.perm) >= abs(c(x$beta)) - con$comptol, na.rm=TRUE) # based on coefficient } } else { ### two times the one-sided p-value definition of the two-sided p-value if (con$stat == "test") { if (x$zval > median(zval.perm, na.rm=TRUE)) { pval <- 2*mean(zval.perm >= x$zval - con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- 2*mean(zval.perm <= x$zval + con$comptol, na.rm=TRUE) } } else { if (c(x$beta) > median(beta.perm, na.rm=TRUE)) { pval <- 2*mean(beta.perm >= c(x$beta) - con$comptol, na.rm=TRUE) # based on coefficient } else { pval <- 2*mean(beta.perm <= c(x$beta) + con$comptol, na.rm=TRUE) } } } } if (con$alternative == "less") { if (con$stat == "test") { pval <- mean(zval.perm <= x$zval + con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- mean(beta.perm <= c(x$beta) + con$comptol, na.rm=TRUE) # based on coefficient } } if (con$alternative == "greater") { if (con$stat == "test") { pval <- mean(zval.perm >= x$zval - con$comptol, na.rm=TRUE) # based on test statistic } else { pval <- mean(beta.perm >= c(x$beta) - con$comptol, na.rm=TRUE) # based on coefficient } } pval[pval > 1] <- 1 QMp <- mean(QM.perm >= x$QM - con$comptol, na.rm=TRUE) ######################################################################### } else { ### permutation test for meta-regression model zval.perm <- try(suppressWarnings(matrix(NA_real_, nrow=X.iter, ncol=x$p)), silent=TRUE) if (inherits(zval.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) beta.perm <- try(suppressWarnings(matrix(NA_real_, nrow=X.iter, ncol=x$p)), silent=TRUE) if (inherits(beta.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) QM.perm <- try(rep(NA_real_, X.iter), silent=TRUE) if (inherits(QM.perm, "try-error")) stop(mstyle$stop("Number of iterations requested too large.")) if (progbar) pbar <- pbapply::startpb(min=0, max=X.iter) if (X.exact) { # exact permutation test for meta-regression models #permmat <- .genperms(x$k) permmat <- .genuperms(X.indices) # use recursive algorithm to obtain all unique permutations for (i in seq_len(X.iter)) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=cbind(X[permmat[i,],]), intercept=FALSE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=x$btt, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i,] <- res$beta[,1] zval.perm[i,] <- res$zval QM.perm[i] <- res$QM if (progbar) pbapply::setpb(pbar, i) } } else { # approximate permutation test for meta-regression models i <- 1 while (i <= X.iter) { if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=cbind(X[sample(x$k),]), intercept=FALSE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, btt=x$btt, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, skipr2=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=!isTRUE(ddd$verbose)) if (inherits(res, "try-error")) next beta.perm[i,] <- res$beta[,1] zval.perm[i,] <- res$zval QM.perm[i] <- res$QM i <- i + 1 if (progbar) pbapply::setpb(pbar, i) } } ### the first random permutation is always the observed data (avoids possibility of p=0) if (!X.exact) { beta.perm[1,] <- x$beta[,1] zval.perm[1,] <- x$zval QM.perm[1] <- x$QM } if (con$alternative == "two.sided") { if (con$p2defn == "abs") { ### absolute value definition of the two-sided p-value if (con$stat == "test") { pval <- rowMeans(t(abs(zval.perm)) >= abs(x$zval) - con$comptol, na.rm=TRUE) # based on test statistics } else { pval <- rowMeans(t(abs(beta.perm)) >= abs(c(x$beta)) - con$comptol, na.rm=TRUE) # based on coefficients } } else { ### two times the one-sided p-value definition of the two-sided p-value pval <- rep(NA_real_, x$p) if (con$stat == "test") { for (j in seq_len(x$p)) { if (x$zval[j] > median(zval.perm[,j], na.rm=TRUE)) { pval[j] <- 2*mean(zval.perm[,j] >= x$zval[j] - con$comptol, na.rm=TRUE) } else { pval[j] <- 2*mean(zval.perm[,j] <= x$zval[j] + con$comptol, na.rm=TRUE) } } } else { for (j in seq_len(x$p)) { if (c(x$beta)[j] > median(beta.perm[,j], na.rm=TRUE)) { pval[j] <- 2*mean(beta.perm[,j] >= c(x$beta)[j] - con$comptol, na.rm=TRUE) } else { pval[j] <- 2*mean(beta.perm[,j] <= c(x$beta)[j] + con$comptol, na.rm=TRUE) } } } } } if (con$alternative == "less") { if (con$stat == "test") { pval <- rowMeans(t(zval.perm) <= x$zval + con$comptol, na.rm=TRUE) # based on test statistics } else { pval <- rowMeans(t(beta.perm) <= c(x$beta) + con$comptol, na.rm=TRUE) # based on coefficients } } if (con$alternative == "greater") { if (con$stat == "test") { pval <- rowMeans(t(zval.perm) >= x$zval - con$comptol, na.rm=TRUE) # based on test statistics } else { pval <- rowMeans(t(beta.perm) >= c(x$beta) - con$comptol, na.rm=TRUE) # based on coefficients } } pval[pval > 1] <- 1 QMp <- mean(QM.perm >= x$QM - con$comptol, na.rm=TRUE) } if (progbar) pbapply::closepb(pbar) ######################################################################### ######################################################################### ######################################################################### ### permutation-based CI ci.lb <- x$ci.lb ci.ub <- x$ci.ub if (isTRUE(permci) || is.numeric(permci)) { level <- .level(x$level) ### check if it is even possible to reject at level if (1/X.iter > level / ifelse(con$cialt == "one.sided", 1, 2)) { permci <- FALSE warning(mstyle$warning(paste0("Cannot obtain ", 100*(1-x$level), "% permutation-based CI; number of permutations (", X.iter, ") too low.")), call.=FALSE) } else { ### if permci is numeric, check if existing coefficients have been specified ### otherwise, CIs will be obtained for all model coefficients if (is.numeric(permci)) { coefs <- unique(round(permci)) if (any(coefs > x$p) || any(coefs < 1)) stop(mstyle$stop("Non-existent coefficients specified via 'permci'.")) permci <- TRUE } else { coefs <- seq_len(x$p) } ci.lb <- rep(NA_real_, x$p) ci.ub <- rep(NA_real_, x$p) for (j in coefs) { if (progbar) cat(mstyle$verbose(paste0("Searching for lower CI bound of coefficient ", j, ": \n"))) if (con$cialt == "one.sided") { con$alternative <- "greater" } else { con$alternative <- "two.sided" } tmp <- try(uniroot(.permci, interval=c(x$ci.lb[j] - con$distfac*(x$beta[j,1] - x$ci.lb[j]), x$beta[j,1]), extendInt=ifelse(con$extendInt == "no", "no", "upX"), tol=con$tol, maxiter=con$maxiter, obj=x, j=j, exact=X.exact, iter=X.iter, progbar=progbar, level=level, digits=digits, control=con)$root, silent=TRUE) if (inherits(tmp, "try-error")) { ci.lb[j] <- NA_real_ } else { ci.lb[j] <- tmp } if (progbar) cat(mstyle$verbose(paste0("Searching for upper CI bound of coefficient ", j, ": \n"))) if (con$cialt == "one.sided") { con$alternative <- "less" } else { con$alternative <- "two.sided" } tmp <- try(uniroot(.permci, interval=c(x$beta[j,1], x$ci.ub[j] + con$distfac*(x$ci.ub[j] - x$beta[j,1])), extendInt=ifelse(con$extendInt == "no", "no", "downX"), tol=con$tol, maxiter=con$maxiter, obj=x, j=j, exact=X.exact, iter=X.iter, progbar=progbar, level=level, digits=digits, control=con)$root, silent=TRUE) if (inherits(tmp, "try-error")) { ci.ub[j] <- NA_real_ } else { ci.ub[j] <- tmp } } } } ######################################################################### out <- list(pval=pval, QMdf=x$QMdf, QMp=QMp, beta=x$beta, se=x$se, zval=x$zval, ci.lb=ci.lb, ci.ub=ci.ub, QM=x$QM, k=x$k, p=x$p, btt=x$btt, m=x$m, test=x$test, dfs=x$dfs, ddf=x$ddf, int.only=x$int.only, int.incl=x$int.incl, digits=digits, exact.iter=X.exact.iter, permci=permci, alternative=con$alternative, p2defn=con$p2defn, stat=con$stat) out$skip.beta <- FALSE out$QM.perm <- QM.perm out$zval.perm <- data.frame(zval.perm) out$beta.perm <- data.frame(beta.perm) names(out$zval.perm) <- names(out$beta.perm) <- colnames(x$X) if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- "permutest.rma.uni" return(out) } metafor/R/rstandard.rma.mv.r0000644000176200001440000001215415120213572015455 0ustar liggesusersrstandard.rma.mv <- function(model, digits, cluster, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.mv", notav="robust.rma") na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$yi) || is.null(model$X)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) x <- model if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } misscluster <- ifelse(missing(cluster), TRUE, FALSE) if (misscluster) { cluster <- seq_len(x$k.all) } else { mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) } ######################################################################### ### process cluster variable ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster.f <- cluster cluster <- cluster[x$not.na] ### checks on cluster variable if (anyNA(cluster.f)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster.f) == 0L) stop(mstyle$stop(paste0("Cannot find 'cluster' variable (or it has zero length)."))) ######################################################################### options(na.action="na.omit") H <- hatvalues(x, type="matrix") options(na.action = na.act) ######################################################################### ImH <- diag(x$k) - H #ei <- ImH %*% cbind(x$yi) ei <- c(x$yi - x$X %*% x$beta) ei[abs(ei) < 100 * .Machine$double.eps] <- 0 #ei[abs(ei) < 100 * .Machine$double.eps * median(abs(ei), na.rm=TRUE)] <- 0 # see lm.influence ### don't allow this; the SEs of the residuals cannot be estimated consistently for "robust.rma" objects #if (inherits(x, "robust.rma")) { # ve <- ImH %*% tcrossprod(x$meat,ImH) #} else { # ve <- ImH %*% tcrossprod(x$M,ImH) #} ve <- ImH %*% tcrossprod(x$M,ImH) #ve <- x$M + x$X %*% x$vb %*% t(x$X) - 2*H%*%x$M sei <- sqrt(diag(ve)) ######################################################################### if (!misscluster) { ### cluster ids and number of clusters ids <- unique(cluster) n <- length(ids) X2 <- rep(NA_real_, n) k.id <- rep(NA_integer_, n) for (i in seq_len(n)) { incl <- cluster %in% ids[i] k.id[i] <- sum(incl) vei <- as.matrix(ve[incl,incl,drop=FALSE]) if (!.chkpd(crossprod(vei))) next sve <- try(chol2inv(chol(vei)), silent=TRUE) #sve <- try(solve(ve[incl,incl,drop=FALSE]), silent=TRUE) if (inherits(sve, "try-error")) next X2[i] <- rbind(ei[incl]) %*% sve %*% cbind(ei[incl]) } } ######################################################################### resid <- rep(NA_real_, x$k.f) seresid <- rep(NA_real_, x$k.f) stresid <- rep(NA_real_, x$k.f) resid[x$not.na] <- ei seresid[x$not.na] <- sei stresid[x$not.na] <- ei / sei ######################################################################### if (na.act == "na.omit") { out <- list(resid=resid[x$not.na], se=seresid[x$not.na], z=stresid[x$not.na]) if (!misscluster) out$cluster <- cluster.f[x$not.na] out$slab <- x$slab[x$not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(resid=resid, se=seresid, z=stresid) if (!misscluster) out$cluster <- cluster.f out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) if (misscluster) { out$digits <- digits class(out) <- "list.rma" return(out) } else { out <- list(out) if (na.act == "na.omit") { out[[2]] <- list(X2=X2[order(ids)], k=k.id[order(ids)], slab=ids[order(ids)]) } if (na.act == "na.exclude" || na.act == "na.pass") { ids.f <- unique(cluster.f) X2.f <- rep(NA_real_, length(ids.f)) X2.f[match(ids, ids.f)] <- X2 k.id.f <- sapply(ids.f, function(id) sum((id == cluster.f) & x$not.na)) out[[2]] <- list(X2=X2.f[order(ids.f)], k=k.id.f[order(ids.f)], slab=ids.f[order(ids.f)]) } out[[1]]$digits <- digits out[[2]]$digits <- digits names(out) <- c("obs", "cluster") class(out[[1]]) <- "list.rma" class(out[[2]]) <- "list.rma" attr(out[[1]], ".rmspace") <- TRUE attr(out[[2]], ".rmspace") <- TRUE return(out) } } metafor/R/print.vif.rma.r0000644000176200001440000001047615120213572014776 0ustar liggesusersprint.vif.rma <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="vif.rma") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) ddd <- list(...) .chkdots(ddd, c("num")) .space() if (!is.null(x$alpha)) { cat(mstyle$section(paste0("Location Coefficients:\n"))) print(x[[1]], digits=digits, ...) .space(FALSE) cat(mstyle$section(paste0("Scale Coefficients:\n"))) print(x[[2]], digits=digits, ...) } else { if (isTRUE(x$bttspec) || isTRUE(x$attspec)) { if (length(x$vif) == 1L) { if (x$vif[[1]]$m == 1) { cat(mstyle$section(paste0("Collinearity Diagnostics (coefficient ", x$vif[[1]]$coefs,"):\n"))) cat(mstyle$result(paste0("VIF = ", fmtx(x$vif[[1]]$vif, digits[["est"]]), ", SIF = ", fmtx(x$vif[[1]]$sif, digits[["est"]])))) } else { cat(mstyle$section(paste0("Collinearity Diagnostics (coefficients ", x$vif[[1]]$coefs,"):\n"))) cat(mstyle$result(paste0("GVIF = ", fmtx(x$vif[[1]]$vif, digits[["est"]]), ", GSIF = ", fmtx(x$vif[[1]]$sif, digits[["est"]])))) } if (!is.null(x$sim)) cat(mstyle$result(paste0(", prop = ", fmtx(x$prop, 2)))) cat("\n") } else { res.table <- do.call(rbind, x$vif) res.table$vif <- fmtx(res.table$vif, digits[["est"]]) res.table$sif <- fmtx(res.table$sif, digits[["est"]]) res.table$coefname <- NULL if (!is.null(x$sim)) res.table$prop <- fmtx(x$prop, 2) # if all btt/att specifications are numeric, remove the 'spec' column if (all(substr(res.table$spec, 1, 1) %in% as.character(1:9))) res.table$spec <- NULL # just use numbers for row names rownames(res.table) <- NULL tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=1)) .print.table(tmp, mstyle) } } else { vifs <- sapply(x$vif, function(x) x$vif) sifs <- sapply(x$vif, function(x) x$sif) if (is.null(x$table)) { if (is.null(x$sim)) { tmp <- fmtx(vifs, digits[["est"]]) tmp <- capture.output(.print.vector(tmp)) .print.table(tmp, mstyle) } else { res.table <- data.frame(vif=vifs) res.table$prop <- fmtx(x$prop, 2) res.table$vif <- fmtx(res.table$vif, digits[["est"]]) tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=2)) .print.table(tmp, mstyle) } } else { if (length(vifs) != length(x$table$estimate)) { vifs <- c(NA_real_, vifs) sifs <- c(NA_real_, sifs) x$prop <- c(NA_real_, x$prop) } if (is.element(x$test, c("knha","adhoc","t"))) { res.table <- data.frame(estimate=fmtx(x$table$estimate, digits[["est"]]), se=fmtx(x$table$se, digits[["se"]]), tval=fmtx(x$table$tval, digits[["test"]]), df=round(x$table$df,2), "pval"=fmtp(x$table$pval, digits[["pval"]]), ci.lb=fmtx(x$table$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$table$ci.ub, digits[["ci"]]), vif=fmtx(vifs, digits[["est"]]), sif=fmtx(sifs, digits[["est"]]), stringsAsFactors=FALSE) } else { res.table <- data.frame(estimate=fmtx(x$table$estimate, digits[["est"]]), se=fmtx(x$table$se, digits[["se"]]), zval=fmtx(x$table$zval, digits[["test"]]), "pval"=fmtp(x$table$pval, digits[["pval"]]), ci.lb=fmtx(x$table$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$table$ci.ub, digits[["ci"]]), vif=fmtx(vifs, digits[["est"]]), sif=fmtx(sifs, digits[["est"]]), stringsAsFactors=FALSE) } rownames(res.table) <- rownames(x$table) if (!is.null(x$sim)) res.table$prop <- fmtx(x$prop, 2) if (isTRUE(ddd$num)) { width <- nchar(nrow(res.table)) rownames(res.table) <- paste0(formatC(seq_len(nrow(res.table)), format="d", width=width), ") ", rownames(res.table)) } tmp <- capture.output(print(res.table, quote=FALSE, right=TRUE, print.gap=1)) .print.table(tmp, mstyle) } } .space() } invisible() } metafor/R/formatters.r0000644000176200001440000001450215121226422014460 0ustar liggesusers############################################################################ fmtp <- function(p, digits=4, pname="", equal=FALSE, sep=FALSE, add0=FALSE, quote=FALSE) { p[p < 0] <- 0 p[p > 1] <- 1 digits <- max(digits, 1) cutoff <- paste(c(".", rep(0,digits-1),1), collapse="") ncutoff <- as.numeric(cutoff) equal <- ifelse(equal, "=", "") if (sep) { if (pname != "") pname <- paste0(pname, " ") sep <- " " } else { sep <- "" } out <- ifelse(is.na(p), paste0(pname, equal, sep, "NA"), ifelse(p >= ncutoff, paste0(pname, equal, sep, formatC(p, digits=digits, format="f")), paste0(pname, "<", sep, ifelse(add0, "0", ""), cutoff))) if (!quote) out <- noquote(out) return(out) } fmtp2 <- function(p, cutoff=c(0.001,0.06), pname="p", sep=TRUE, add0=FALSE, quote=FALSE) { p[p < 0] <- 0 p[p > 1] <- 1 if (length(cutoff) == 1L) stop("Argument 'cutoff' must be of length 2.") cutoff <- sort(cutoff) if (cutoff[1] == 0) stop("The lower 'cutoff' value must be > 0.") digits1 <- nchar(formatC(cutoff[1], format="f", digits=10, drop0trailing=TRUE))-2 digits2 <- nchar(formatC(cutoff[2], format="f", digits=10, drop0trailing=TRUE))-2 if (sep) { if (pname != "") pname <- paste0(pname, " ") sep <- " " } else { sep <- "" } out <- sapply(p, function(x) { if (is.na(x)) return(paste0(pname, "=", sep, "NA")) if (x < cutoff[1]) { return(paste0(pname, "<", sep, formatC(cutoff[1], digits=digits1, format="f"))) } if (x < cutoff[2]) { return(paste0(pname, "=", sep, formatC(x, digits=digits1, format="f"))) } return(paste0(pname, "=", sep, formatC(x, digits=digits2, format="f"))) }) if (!add0) out <- gsub("0.", ".", fixed=TRUE, out) if (!quote) out <- noquote(out) return(out) } fmtx <- function(x, digits=4, flag="", quote=FALSE, ...) { # in case x is a data frame / matrix with two dimensions if (length(dim(x)) == 2L) { digits <- .expand1(digits, ncol(x)) out <- matrix("", nrow=nrow(x), ncol=ncol(x)) rownames(out) <- rownames(x) colnames(out) <- colnames(x) for (j in seq_len(ncol(x))) out[,j] <- fmtx(x[,j], digits=digits[[j]], flag=flag, ...) if (!quote) out <- noquote(out, right=TRUE) return(out) } ddd <- list(...) width <- .chkddd(ddd$addwidth, NULL, digits + ddd$addwidth) drop0ifint <- .chkddd(ddd$drop0ifint, FALSE) add0 <- .chkddd(ddd$add0, TRUE) if (!is.null(ddd$thresh)) { if (length(x) != 1L) stop("Can only use 'thresh' when 'x' is a scalar.") if (isTRUE(abs(x) <= ddd$thresh)) digits <- 0 } postfix <- .chkddd(ddd$postfix, "") out <- sapply(x, function(x) { if (is.na(x)) return(paste0("NA", postfix)) out <- formatC(x, format="f", digits=digits, flag=flag, width=width, drop0trailing=drop0ifint && is.integer(digits)) if (!add0) out <- gsub("0\\.", ".", out) out <- paste0(out, postfix) return(out) }) if (!quote) out <- noquote(out, right=TRUE) return(out) } ############################################################################ fmtt <- function(val, tname, df, df1, df2, pval, digits=4, pname="p-val", format=1, sep=TRUE, quote=FALSE, call=FALSE, ...) { if (length(val) != 1L) stop("Argument 'val' must be a scalar.") if (!is.element(format, c(1,2))) stop("Argument 'format' can only be equal to 1 or 2.") if (missing(pval)) stop("Must specify the 'pval' argument.") sepset <- sep if (sep) { sep <- " " } else { sep <- "" } ddd <- list(...) flag <- .chkddd(ddd$flag, "") if (length(digits) == 1L) digits <- c(test = digits, pval = digits) if (length(digits) == 2L) names(digits) <- c("test", "pval") if (any(!is.element(c("test","pval"), names(digits)))) stop("Argument 'digits' must have a 'test' and a 'pval' element.") if (format == 1) { if (missing(df)) { if (!missing(df1) && !missing(df2)) { out <- bquote(paste(.(tname), "(df1", .(sep), "=", .(sep), .(df1), ",", .(sep), "df2", .(sep), "=", .(sep), .(round(df2,2)), ")", .(sep), "=", .(sep), .(fmtx(val, digits[["test"]], flag=flag)), ", ", .(pname), .(sep), .(fmtp(pval, digits[["pval"]], equal=TRUE, sep=sepset)), sep="")) #paste0(tname, "(df1 = ", df1, ", df2 = ", round(df2,2), ") = ", fmtx(val, digits[["test"]]), ", ", pname, fmtp(pval, digits[["pval"]], equal=TRUE, sep=TRUE)) } else { out <- bquote(paste(.(tname), .(sep), "=", .(sep), .(fmtx(val, digits[["test"]], flag=flag)), ", ", .(pname), .(sep), .(fmtp(pval, digits[["pval"]], equal=TRUE, sep=sepset)), sep="")) } } else { out <- bquote(paste(.(tname), "(df", .(sep), "=", .(sep), .(df), ")", .(sep), "=", .(sep), .(fmtx(val, digits[["test"]], flag=flag)), ", ", .(pname), .(sep), .(fmtp(pval, digits[["pval"]], equal=TRUE, sep=sepset)), sep="")) #paste0(tname, "(df = ", df, ") = ", fmtx(val, digits[["test"]]), ", ", pname, fmtp(pval, digits[["pval"]], equal=TRUE, sep=TRUE)) } } if (format[[1]] == 2) { if (missing(df)) { if (!missing(df1) && !missing(df2)) { out <- bquote(paste(.(tname), .(sep), "=", .(sep), .(fmtx(val, digits[["test"]], flag=flag)), ", df1", .(sep), "=", .(sep), .(df1), ", df2", .(sep), "=", .(sep), .(round(df2,2)), ", ", .(pname), .(sep), .(fmtp(pval, digits[["pval"]], equal=TRUE, sep=sepset)), sep="")) } else { out <- bquote(paste(.(tname), .(sep), "=", .(sep), .(fmtx(val, digits[["test"]], flag=flag)), ", ", .(pname), .(sep), .(fmtp(pval, digits[["pval"]], equal=TRUE, sep=sepset)), sep="")) } } else { out <- bquote(paste(.(tname), .(sep), "=", .(sep), .(fmtx(val, digits[["test"]], flag=flag)), ", df", .(sep), "=", .(sep), .(df), ", ", .(pname), .(sep), .(fmtp(pval, digits[["pval"]], equal=TRUE, sep=sepset)), sep="")) } } if (call) { out$sep <- NULL return(out) } else { out <- eval(out) if (!quote) out <- noquote(out) return(out) } } ############################################################################ metafor/R/addpoly.r0000644000176200001440000000006415120213572013725 0ustar liggesusersaddpoly <- function(x, ...) UseMethod("addpoly") metafor/R/fitstats.r0000644000176200001440000000007415120213572014133 0ustar liggesusersfitstats <- function (object, ...) UseMethod("fitstats") metafor/R/vif.rma.r0000644000176200001440000002737315120213572013647 0ustar liggesusersvif.rma <- function(x, btt, att, table=FALSE, reestimate=FALSE, sim=FALSE, progbar=TRUE, seed=NULL, parallel="no", ncpus=1, cl, digits, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma") # allow vif() for 'rma.glmm', 'robust.rma', and 'rma.uni.selmodel' objects based on the same principle (but not sim/reestimate) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } ### determine for which types of coefficients (G)VIFs will be computed vif.loc <- !x$int.only if (inherits(x, "rma.ls") && !x$Z.int.only) { vif.scale <- TRUE } else { vif.scale <- FALSE } if (!vif.loc && !vif.scale) stop(mstyle$stop("VIFs not applicable to intercept-only models.")) if (!is.null(seed)) set.seed(seed) ddd <- list(...) .chkdots(ddd, c("fixed", "intercept", "time", "LB", "joinb", "joina")) fixed <- .chkddd(ddd$fixed, FALSE, isTRUE(ddd$fixed)) intercept <- .chkddd(ddd$intercept, FALSE, isTRUE(ddd$intercept)) joinb <- ddd$joinb joina <- ddd$joina if (isTRUE(ddd$time)) time.start <- proc.time() ### process 'sim' argument (if TRUE, set sim to 1000, otherwise use given value) if (is.logical(sim)) { sim <- ifelse(isTRUE(sim), 1000, 0) } else { sim <- round(sim) if (sim <= 1) stop(mstyle$stop("Argument 'sim' must be >= 2.")) } ### do not allow sim and reestimate for 'rma.glmm', 'robust.rma', and 'rma.uni.selmodel' objects if (sim >= 2 && inherits(x, "rma.glmm")) stop(mstyle$stop("Cannot use 'sim' with models of class 'rma.glmm'.")) if (sim >= 2 && inherits(x, "robust.rma")) stop(mstyle$stop("Cannot use 'sim' with models of class 'robust.rma'.")) if (sim >= 2 && inherits(x, "rma.uni.selmodel")) stop(mstyle$stop("Cannot use 'sim' with models of class 'rma.uni.selmodel'.")) if (reestimate && inherits(x, "rma.glmm")) stop(mstyle$stop("Cannot use 'restimate=TRUE' with models of class 'rma.glmm'.")) if (reestimate && inherits(x, "robust.rma")) stop(mstyle$stop("Cannot use 'restimate=TRUE' with models of class 'robust.rma'.")) if (reestimate && inherits(x, "rma.uni.selmodel")) stop(mstyle$stop("Cannot use 'restimate=TRUE' with models of class 'rma.uni.selmodel'.")) ### check if btt/att have been specified bttmiss <- missing(btt) || is.null(btt) attmiss <- missing(att) || is.null(att) if (!attmiss && !inherits(x, "rma.ls")) stop(mstyle$stop("Argument 'att' only relevant for location-scale models.")) ### handle parallel (and related) arguments parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (sim <= 1) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } ######################################################################### if (vif.loc) { ### process/set btt argument if (bttmiss) { if (x$intercept && !intercept) { btt <- as.list(2:x$p) } else { btt <- as.list(seq_len(x$p)) } } if (is.character(btt)) # turn btt=c("foo","bar") into list("foo","bar") btt <- as.list(btt) if (!is.list(btt)) btt <- list(btt) spec <- btt btt <- lapply(btt, .set.btt, x$p, x$int.incl, colnames(x$X), fixed=fixed) if (x$intercept && !intercept && any(sapply(btt, function(bttj) length(bttj) == 1L && bttj == 1L))) stop(mstyle$stop("Cannot compute VIF(s) for the specified 'btt' argument.")) ### get var-cov matrix of the fixed effects (location coefficients) vcov <- vcov(x, type="beta") ### compute (G)VIF for each element in the btt list obj <- if (reestimate) x else NULL res <- list() res$vif <- lapply(seq_along(btt), .compvif, btt=btt, vcov=vcov, xintercept=x$intercept, intercept=intercept, spec=spec, colnames=colnames(x$X), obj=obj, sim=FALSE) ### add coefficient names if (bttmiss) { names(res$vif) <- sapply(res$vif, function(x) x$coefname) } else { names(res$vif) <- sapply(res$vif, function(x) x$coefs) } ### add (G)VIFs as vector res$vifs <- sapply(res$vif, function(x) x$vif) ### add coefficient table if requested if (table && bttmiss) { res$table <- coef(summary(x), type="beta") res$test <- x$test } res$bttspec <- !bttmiss res$digits <- digits class(res) <- "vif.rma" ###################################################################### ### if sim >= 2, simulate corresponding (G)VIFs under independence sim.loc <- sim ### but skip this if all (G)VIFs are equal to 1 if (all(sapply(res$vif, function(x) x$vif) == 1, na.rm=TRUE)) sim.loc <- 0 if (sim >= 2 && any(x$coef.na)) { warning(mstyle$warning("Cannot use 'sim' when some redundant predictors were dropped from the model."), call.=FALSE) sim.loc <- 0 } if (sim.loc >= 2) { if (parallel == "no") vif.sim <- pbapply::pblapply(seq_len(sim.loc), .compvifsim, obj=x, coef="beta", btt=btt, att=NULL, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joinb=joinb) if (parallel == "multicore") vif.sim <- pbapply::pblapply(seq_len(sim.loc), .compvifsim, obj=x, coef="beta", btt=btt, att=NULL, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joinb=joinb, cl=ncpus) if (parallel == "snow") { if (isTRUE(ddd$LB)) { vif.sim <- parallel::parLapplyLB(cl, seq_len(sim.loc), .compvifsim, obj=x, coef="beta", btt=btt, att=NULL, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joinb=joinb) } else { vif.sim <- pbapply::pblapply(seq_len(sim.loc), .compvifsim, obj=x, coef="beta", btt=btt, att=NULL, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joinb=joinb, cl=cl) } } vif.sim <- do.call(rbind, vif.sim) rownames(vif.sim) <- seq_len(sim.loc) colnames(vif.sim) <- seq_along(btt) if (!is.null(joinb) || is.null(x$data) || is.null(x$formula.mods)) { attr(vif.sim, "type") <- "X" } else { attr(vif.sim, "type") <- "data" } res$sim <- vif.sim vifs <- sapply(res$vif, function(x) x$vif) res$prop <- apply(vifs >= t(vif.sim), 1, mean, na.rm=TRUE) } ###################################################################### } else { res <- NULL } ######################################################################### if (vif.scale) { res.loc <- res ### process/set att argument if (attmiss) { if (x$Z.intercept && !intercept) { att <- as.list(2:x$q) } else { att <- as.list(seq_len(x$q)) } } if (is.character(att)) att <- as.list(att) if (!is.list(att)) att <- list(att) spec <- att att <- lapply(att, .set.btt, x$q, x$Z.int.incl, colnames(x$Z), fixed=fixed) if (x$Z.intercept && !intercept && any(sapply(att, function(attj) length(attj) == 1L && attj == 1L))) stop(mstyle$stop("Cannot compute VIF(s) for the specified 'att' argument.")) ### get var-cov matrix of the fixed effects (scale coefficients) vcov <- vcov(x, type="alpha") ### compute (G)VIF for each element in the att list obj <- if (reestimate) x else NULL res.scale <- list() res.scale$vif <- lapply(seq_along(att), .compvif, btt=att, vcov=vcov, xintercept=x$Z.intercept, intercept=intercept, spec=spec, colnames=colnames(x$Z), obj=obj, coef="alpha", sim=FALSE) ### add coefficient names if (attmiss) { names(res.scale$vif) <- sapply(res.scale$vif, function(x) x$coefname) } else { names(res.scale$vif) <- sapply(res.scale$vif, function(x) x$coefs) } ### add (G)VIFs as vector res.scale$vifs <- sapply(res.scale$vif, function(x) x$vif) ### add coefficient table if requested if (table && attmiss) { res.scale$table <- coef(summary(x), type="alpha") res.scale$test <- x$test } res.scale$attspec <- !attmiss res.scale$digits <- digits class(res.scale) <- "vif.rma" ###################################################################### ### if sim >= 2, simulate corresponding (G)VIFs under independence sim.scale <- sim ### but skip this if all (G)VIFs are equal to 1 if (all(sapply(res.scale$vif, function(x) x$vif) == 1, na.rm=TRUE)) sim.scale <- 0 if (sim >= 2 && any(x$coef.na.Z)) { warning(mstyle$warning("Cannot use 'sim' when some redundant predictors were dropped from the model."), call.=FALSE) sim.scale <- 0 } if (sim.scale >= 2) { if (parallel == "no") vif.sim <- pbapply::pblapply(seq_len(sim.scale), .compvifsim, obj=x, coef="alpha", btt=NULL, att=att, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joina=joina) if (parallel == "multicore") vif.sim <- pbapply::pblapply(seq_len(sim.scale), .compvifsim, obj=x, coef="alpha", btt=NULL, att=att, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joina=joina, cl=ncpus) if (parallel == "snow") { if (isTRUE(ddd$LB)) { vif.sim <- parallel::parLapplyLB(cl, seq_len(sim.scale), .compvifsim, obj=x, coef="alpha", btt=NULL, att=att, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joina=joina) } else { vif.sim <- pbapply::pblapply(seq_len(sim.scale), .compvifsim, obj=x, coef="alpha", btt=NULL, att=att, reestimate=reestimate, intercept=intercept, parallel=parallel, seed=seed, joina=joina, cl=cl) } } vif.sim <- do.call(rbind, vif.sim) rownames(vif.sim) <- seq_len(sim.scale) colnames(vif.sim) <- seq_along(att) if (!is.null(joina) || is.null(x$data) || is.null(x$formula.scale)) { attr(vif.sim, "type") <- "X" } else { attr(vif.sim, "type") <- "data" } res.scale$sim <- vif.sim vifs <- sapply(res.scale$vif, function(x) x$vif) res.scale$prop <- apply(vifs >= t(vif.sim), 1, mean, na.rm=TRUE) } ###################################################################### if (vif.loc) { res <- list(beta=res.loc, alpha=res.scale) class(res) <- "vif.rma" } else { res <- res.scale } } ######################################################################### if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } return(res) } metafor/R/misc.func.hidden.selmodel.r0000644000176200001440000003214015120213572017213 0ustar liggesusers############################################################################ .selmodel.pval <- function(yi, vi, alternative) { zi <- yi / sqrt(vi) if (alternative == "two.sided") { pval <- 2 * pnorm(abs(zi), lower.tail=FALSE) } else { pval <- pnorm(zi, lower.tail=alternative=="less") } return(pval) } .selmodel.verbose <- function(ll, beta, tau2, delta, mstyle, digits) { cat(mstyle$verbose(paste0("ll = ", fmtx(ll, digits[["fit"]], flag=" "), " "))) cat(mstyle$verbose(paste0("beta =", paste(fmtx(beta, digits[["est"]], flag=" "), collapse=" "), " "))) cat(mstyle$verbose(paste0("tau2 =", fmtx(tau2, digits[["var"]], flag=" "), " "))) cat(mstyle$verbose(paste0("delta =", paste(fmtx(delta, digits[["est"]], flag=" "), collapse=" ")))) cat("\n") } .mapfun <- function(x, lb, ub, fun=NA) { if (is.na(fun)) { if (lb==0 && ub==1) { plogis(x) } else { lb + (ub-lb) / (1 + exp(-x)) # map (-inf,inf) to (lb,ub) } } else { x <- sapply(x, fun) pmin(pmax(x, lb), ub) } } .mapinvfun <- function(x, lb, ub, fun=NA) { if (is.na(fun)) { if (lb==0 && ub==1) { qlogis(x) } else { log((x-lb)/(ub-x)) # map (lb,ub) to (-inf,inf) } } else { sapply(x, fun) } } .ptable <- function(pvals, steps, subset) { pvals[!subset] <- NA pgrp <- sapply(pvals, function(p) which(p <= steps)[1]) psteps.l <- as.character(c(0,steps[-length(steps)])) psteps.r <- as.character(steps) len.l <- nchar(psteps.l) pad.l <- sapply(max(len.l) - len.l, function(x) paste0(rep(" ", x), collapse="")) psteps.l <- paste0(psteps.l, pad.l) psteps <- paste0(psteps.l, " < p <= ", psteps.r) ptable <- table(factor(pgrp, levels=seq_along(steps), labels=psteps)) ptable <- data.frame(k=as.vector(ptable), row.names=names(ptable)) return(list(pgrp=pgrp, ptable=ptable)) } ############################################################################ .selmodel.int <- function(yvals, yi, vi, preci, yhat, wi.fun, delta, tau2, alternative, pval.min, steps) { pval <- .selmodel.pval(yvals, vi, alternative) pval[pval < pval.min] <- pval.min pval[pval > (1-pval.min)] <- 1-pval.min wi.fun(pval, delta, yi, vi, preci, alternative, steps) * dnorm(yvals, yhat, sqrt(vi+tau2)) } .selmodel.ll.cont <- function(par, yi, vi, X, preci, subset, k, pX, pvals, deltas, delta.arg, delta.transf, mapfun, delta.min, delta.max, decreasing, tau2.arg, tau2.transf, tau2.max, beta.arg, wi.fun, steps, pgrp, alternative, pval.min, intCtrl, verbose, digits, dofit=FALSE) { mstyle <- .get.mstyle() beta <- par[1:pX] tau2 <- par[pX+1] delta <- par[(pX+2):(pX+1+deltas)] beta <- ifelse(is.na(beta.arg), beta, beta.arg) if (tau2.transf) tau2 <- exp(tau2) tau2[!is.na(tau2.arg)] <- tau2.arg tau2[tau2 < .Machine$double.eps*10] <- 0 tau2[tau2 > tau2.max] <- tau2.max if (delta.transf) delta <- mapply(.mapfun, delta, delta.min, delta.max, mapfun) delta <- ifelse(is.na(delta.arg), delta, delta.arg) yhat <- c(X %*% beta) Ai <- rep(NA_real_, k) for (i in seq_len(k)[subset]) { tmp <- try(integrate(.selmodel.int, lower=intCtrl$lower, upper=intCtrl$upper, yi=yi[i], vi=vi[i], preci=preci[i], yhat=yhat[i], wi.fun=wi.fun, delta=delta, tau2=tau2, alternative=alternative, pval.min=pval.min, steps=steps, subdivisions=intCtrl$subdivisions, rel.tol=intCtrl$rel.tol)$value, silent=TRUE) #tmp <- try(cubintegrate(.selmodel.int, lower=intCtrl$lower, upper=intCtrl$upper, # yi=yi[i], vi=vi[i], preci=preci[i], yhat=yhat[i], wi.fun=wi.fun, # delta=delta, tau2=tau2, alternative=alternative, pval.min=pval.min, steps=steps)$integral, silent=TRUE) if (inherits(tmp, "try-error")) stop(mstyle$stop(paste0("Could not integrate over density in study ", i, ".")), call.=FALSE) Ai[i] <- tmp } #llval <- sum(log(wi.fun(pvals, delta, yi, vi, preci, alternative, steps)) + dnorm(yi, yhat, sqrt(vi+tau2), log=TRUE) - log(Ai)) llval0 <- sum( dnorm(yi[!subset], yhat[!subset], sqrt(vi[!subset]+tau2), log=TRUE)) llval1 <- sum(log(wi.fun(pvals[ subset], delta, yi[ subset], vi[ subset], preci[ subset], alternative, steps)) + dnorm(yi[ subset], yhat[ subset], sqrt(vi[ subset]+tau2), log=TRUE) - log(Ai[subset])) llval <- llval0 + llval1 if (dofit) { res <- list(ll=llval, beta=beta, tau2=tau2, delta=delta) return(res) } if (verbose) .selmodel.verbose(ll=llval, beta=beta, tau2=tau2, delta=delta, mstyle=mstyle, digits=digits) if (verbose > 2) { xs <- seq(pval.min, 1-pval.min, length.out=1001) ys <- wi.fun(xs, delta, yi, vi, preci=1, alternative, steps) plot(xs, ys, type="l", lwd=2, xlab="p-value", ylab="Relative Likelihood of Selection") } return(-1*llval) } ############################################################################ .selmodel.ll.stepfun <- function(par, yi, vi, X, preci, subset, k, pX, pvals, deltas, delta.arg, delta.transf, mapfun, delta.min, delta.max, decreasing, tau2.arg, tau2.transf, tau2.max, beta.arg, wi.fun, steps, pgrp, alternative, pval.min, intCtrl, verbose, digits, dofit=FALSE) { mstyle <- .get.mstyle() beta <- par[1:pX] tau2 <- par[pX+1] delta <- par[(pX+2):(pX+1+deltas)] beta <- ifelse(is.na(beta.arg), beta, beta.arg) if (tau2.transf) tau2 <- exp(tau2) tau2[!is.na(tau2.arg)] <- tau2.arg tau2[tau2 < .Machine$double.eps*10] <- 0 tau2[tau2 > tau2.max] <- tau2.max if (decreasing) { if (delta.transf) { delta <- exp(delta) delta <- cumsum(c(0, -delta[-1])) delta <- exp(delta) } } else { if (delta.transf) delta <- mapply(.mapfun, delta, delta.min, delta.max, mapfun) } delta <- ifelse(is.na(delta.arg), delta, delta.arg) if (decreasing && any(!is.na(delta.arg[-1]))) delta <- rev(cummax(rev(delta))) yhat <- c(X %*% beta) sei <- sqrt(vi + tau2) N <- length(steps) Ai <- rep(NA_real_, k) if (alternative == "greater") { for (i in seq_len(k)[subset]) { Ai[i] <- pnorm(qnorm(steps[1], 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=FALSE) for (j in 2:N) { if (j < N) { Ai[i] <- Ai[i] + delta[j] / preci[i] * (pnorm(qnorm(steps[j], 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=FALSE) - pnorm(qnorm(steps[j-1], 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=FALSE)) } else { Ai[i] <- Ai[i] + delta[j] / preci[i] * pnorm(qnorm(steps[j-1], 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=TRUE) } } } } if (alternative == "less") { for (i in seq_len(k)[subset]) { Ai[i] <- pnorm(qnorm(steps[1], 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=TRUE) for (j in 2:N) { if (j < N) { Ai[i] <- Ai[i] + delta[j] / preci[i] * (pnorm(qnorm(steps[j], 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=TRUE) - pnorm(qnorm(steps[j-1], 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=TRUE)) } else { Ai[i] <- Ai[i] + delta[j] / preci[i] * pnorm(qnorm(steps[j-1], 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=FALSE) } } } } if (alternative == "two.sided") { for (i in seq_len(k)[subset]) { Ai[i] <- pnorm(qnorm(steps[1]/2, 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=FALSE) + pnorm(qnorm(steps[1]/2, 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=TRUE) for (j in 2:N) { if (j < N) { Ai[i] <- Ai[i] + delta[j] / preci[i] * ((pnorm(qnorm(steps[j]/2, 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=FALSE) - pnorm(qnorm(steps[j-1]/2, 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=FALSE)) + (pnorm(qnorm(steps[j]/2, 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=TRUE) - pnorm(qnorm(steps[j-1]/2, 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=TRUE))) } else { Ai[i] <- Ai[i] + delta[j] / preci[i] * (pnorm(qnorm(steps[j-1]/2, 0, sqrt(vi[i]), lower.tail=FALSE), yhat[i], sei[i], lower.tail=TRUE) - pnorm(qnorm(steps[j-1]/2, 0, sqrt(vi[i]), lower.tail=TRUE), yhat[i], sei[i], lower.tail=TRUE)) } } } } #llval <- sum(log(delta[pgrp] / preci) + dnorm(yi, yhat, sei, log=TRUE) - log(Ai)) llval0 <- sum( dnorm(yi[!subset], yhat[!subset], sei[!subset], log=TRUE)) llval1 <- sum(log(delta[pgrp[ subset]] / preci[ subset]) + dnorm(yi[ subset], yhat[ subset], sei[ subset], log=TRUE) - log(Ai[subset])) llval <- llval0 + llval1 if (dofit) { res <- list(ll=llval, beta=beta, tau2=tau2, delta=delta) return(res) } if (verbose) .selmodel.verbose(ll=llval, beta=beta, tau2=tau2, delta=delta, mstyle=mstyle, digits=digits) if (verbose > 2) { xs <- seq(0, 1, length.out=1001) ys <- wi.fun(xs, delta, yi, vi, preci=1, alternative, steps) plot(xs, ys, type="l", lwd=2, xlab="p-value", ylab="Relative Likelihood of Selection") } return(-1*llval) } ############################################################################ .selmodel.ll.trunc <- function(par, yi, vi, X, preci, subset, k, pX, pvals, deltas, delta.arg, delta.transf, mapfun, delta.min, delta.max, decreasing, tau2.arg, tau2.transf, tau2.max, beta.arg, wi.fun, steps, pgrp, alternative, pval.min, intCtrl, verbose, digits, dofit=FALSE) { mstyle <- .get.mstyle() beta <- par[1:pX] tau2 <- par[pX+1] delta <- par[(pX+2):(pX+1+deltas)] beta <- ifelse(is.na(beta.arg), beta, beta.arg) if (tau2.transf) tau2 <- exp(tau2) tau2[!is.na(tau2.arg)] <- tau2.arg tau2[tau2 < .Machine$double.eps*10] <- 0 tau2[tau2 > tau2.max] <- tau2.max if (delta.transf) delta <- mapply(.mapfun, delta, delta.min, delta.max, mapfun) delta <- ifelse(is.na(delta.arg), delta, delta.arg) yhat <- c(X %*% beta) sei <- sqrt(vi + tau2) if (is.na(steps)) steps <- delta[2] if (alternative == "greater") { ll0i <- dnorm(yi[!subset], yhat[!subset], sei[!subset], log=TRUE) ll1i <- ifelse(yi[subset] > steps, 0, log(delta[1])) + dnorm(yi[subset], yhat[subset], sei[subset], log=TRUE) - log(1 - (1-delta[1]) * pnorm(steps, yhat[subset], sei[subset], lower.tail=TRUE)) } if (alternative == "less") { ll0i <- dnorm(yi[!subset], yhat[!subset], sei[!subset], log=TRUE) ll1i <- ifelse(yi[subset] < steps, 0, log(delta[1])) + dnorm(yi[subset], yhat[subset], sei[subset], log=TRUE) - log(1 - (1-delta[1]) * pnorm(steps, yhat[subset], sei[subset], lower.tail=FALSE)) } llval <- sum(ll0i) + sum(ll1i) if (dofit) { res <- list(ll=llval, beta=beta, tau2=tau2, delta=delta) return(res) } if (verbose) .selmodel.verbose(ll=llval, beta=beta, tau2=tau2, delta=delta, mstyle=mstyle, digits=digits) return(-1*llval) } ############################################################################ .rma.selmodel.ineqfun.pos <- function(par, yi, vi, X, preci, subset, k, pX, pvals, deltas, delta.arg, delta.transf, mapfun, delta.min, delta.max, decreasing, tau2.arg, tau2.transf, tau2.max, beta.arg, wi.fun, steps, pgrp, alternative, pval.min, intCtrl, verbose, digits, dofit=FALSE) { delta <- par[-seq_len(pX+1)] if (delta.transf) delta <- mapply(.mapfun, delta, delta.min, delta.max, mapfun) delta <- ifelse(is.na(delta.arg), delta, delta.arg) diffs <- -diff(delta) # -1 * differences (delta1-delta2, delta2-delta3, ...) must be positive return(diffs) } .rma.selmodel.ineqfun.neg <- function(par, yi, vi, X, preci, subset, k, pX, pvals, deltas, delta.arg, delta.transf, mapfun, delta.min, delta.max, decreasing, tau2.arg, tau2.transf, tau2.max, beta.arg, wi.fun, steps, pgrp, alternative, pval.min, intCtrl, verbose, digits, dofit=FALSE) { delta <- par[-seq_len(pX+1)] if (delta.transf) delta <- mapply(.mapfun, delta, delta.min, delta.max, mapfun) delta <- ifelse(is.na(delta.arg), delta, delta.arg) diffs <- diff(delta) # differences (delta1-delta2, delta2-delta3, ...) must be negative return(diffs) } ############################################################################ metafor/R/ranktest.r0000644000176200001440000001013715120213572014126 0ustar liggesusersranktest <- function(x, vi, sei, subset, data, digits, ...) { ######################################################################### mstyle <- .get.mstyle() na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) ddd <- list(...) .chkdots(ddd, c("exact")) exact <- .chkddd(ddd$exact, TRUE) ######################################################################### ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() x <- .getx("x", mf=mf, data=data) ############################################################################ if (inherits(x, "rma")) { if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to carry out the test is not available in the model object.")) if (!missing(vi) || !missing(sei) || !missing(subset)) warning(mstyle$warning("Arguments 'vi', 'sei', and 'subset' ignored when 'x' is a model object."), call.=FALSE) if (!x$int.only) stop(mstyle$stop("Test only applicable to models without moderators.")) yi <- x$yi vi <- x$vi ### set defaults for digits if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } } else { if (!.is.vector(x)) stop(mstyle$stop("Argument 'x' must be a vector or an 'rma' model object.")) yi <- x ### check if yi is numeric if (!is.numeric(yi)) stop(mstyle$stop("The object/variable specified for the 'x' argument is not numeric.")) ### set defaults for digits if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) sei <- .getx("sei", mf=mf, data=data, checknumeric=TRUE) subset <- .getx("subset", mf=mf, data=data) if (is.null(vi)) { if (!is.null(sei)) vi <- sei^2 } if (is.null(vi)) stop(mstyle$stop("Must specify the 'vi' or 'sei' argument.")) ### check length of yi and vi if (length(yi) != length(vi)) stop(mstyle$stop("Length of 'yi' and 'vi' (or 'sei') are not the same.")) ### check 'vi' argument for potential misuse .chkviarg(mf$vi) ######################################################################### ### if a subset of studies is specified if (!is.null(subset)) { subset <- .chksubset(subset, length(yi)) yi <- .getsubset(yi, subset) vi <- .getsubset(vi, subset) } ### check for NAs and act accordingly has.na <- is.na(yi) | is.na(vi) if (any(has.na)) { not.na <- !has.na if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na] vi <- vi[not.na] warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from test.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in data.")) } } ######################################################################### wi <- 1/vi theta <- weighted.mean(yi, wi) vb <- 1 / sum(wi) vi.star <- vi - vb yi.star <- (yi - theta) / sqrt(vi.star) res <- suppressWarnings(cor.test(yi.star, vi, method="kendall", exact=exact)) # when k is large, using exact=TRUE can result in the p-value being NA if (is.na(res$p.value)) res <- suppressWarnings(cor.test(yi.star, vi, method="kendall", exact=FALSE)) pval <- res$p.value tau <- res$estimate res <- list(tau=tau, pval=pval, digits=digits) class(res) <- "ranktest" return(res) } metafor/R/radial.rma.r0000644000176200001440000002366415120213572014316 0ustar liggesusersradial.rma <- function(x, center=FALSE, xlim=NULL, zlim, xlab, zlab, atz, aty, steps=7, level=x$level, digits=2, transf, targs, pch=21, col, bg, back, arc.res=100, cex, cex.lab, cex.axis, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma", notav=c("robust.rma", "rma.mv", "rma.ls", "rma.gen", "rma.uni.selmodel")) if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to construct the plot is not available in the model object.")) if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL if (missing(atz)) atz <- NULL if (missing(aty)) aty <- NULL .start.plot() if (missing(back)) back <- .coladj(par("bg","fg"), dark=0.1, light=-0.1) if (missing(col)) col <- par("fg") if (missing(bg)) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) ######################################################################### ### radial plots only for intercept-only models if (x$int.only) { yi <- x$yi yi.c <- yi vi <- x$vi beta <- c(x$beta) ci.lb <- x$ci.lb ci.ub <- x$ci.ub tau2 <- 1/mean(1/x$tau2) # geometric mean of tau^2 values (hackish solution for models with multiple tau^2 values) # note: this works for 1/mean(1/0) = 0; TODO: consider something more sophisticated here if (is.null(aty)) { atyis <- range(yi) } else { atyis <- range(aty) aty.c <- aty } } else { stop(mstyle$stop("Radial plots only available for models without moderators.")) } if (center) { yi <- yi - c(x$beta) beta <- 0 ci.lb <- ci.lb - c(x$beta) ci.ub <- ci.ub - c(x$beta) atyis <- atyis - c(x$beta) if (!is.null(aty)) aty <- aty - c(x$beta) } ######################################################################### level <- .level(level) zcrit <- qnorm(level/2, lower.tail=FALSE) zi <- yi / sqrt(vi+tau2) xi <- 1 / sqrt(vi+tau2) ### if vi=0 and tau2=0, then zi and xi will be Inf if (any(is.infinite(c(xi,zi)))) stop(mstyle$stop("Setting 'xlim' and 'zlim' automatically not possible (must set axis limits manually).")) ### set x-axis limits if none are specified if (missing(xlim)) { xlims <- c(0, (1.30*max(xi))) # add 30% to upper bound } else { xlims <- sort(xlim) } ### x-axis position of the confidence interval ci.xpos <- xlims[2] + 0.12*(xlims[2]-xlims[1]) # add 12% of range to upper bound ### x-axis position of the y-axis on the right ya.xpos <- xlims[2] + 0.14*(xlims[2]-xlims[1]) # add 14% of range to upper bound xaxismax <- xlims[2] ### set z-axis limits if none are specified (these are the actual y-axis limits of the plot) if (missing(zlim)) { zlims <- c(min(-5, 1.10*min(zi), 1.10*ci.lb*ci.xpos, 1.10*min(atyis)*ya.xpos, 1.10*min(yi)*ya.xpos, -1.10*zcrit+xaxismax*beta), max(5, 1.10*max(zi), 1.10*ci.ub*ci.xpos, 1.10*max(atyis)*ya.xpos, 1.10*max(yi)*ya.xpos, 1.10*zcrit+xaxismax*beta)) } else { zlims <- sort(zlim) } ### adjust margins par.mar <- par("mar") par.mar.adj <- par.mar + c(0,4,0,6) par.mar.adj[par.mar.adj < 1] <- 1 par(mar=par.mar.adj) on.exit(par(mar=par.mar), add=TRUE) ### label for the x-axis if (missing(xlab)) { if (is.element(x$method, c("FE","EE","CE"))) { xlab <- expression(x[i]==1/sqrt(v[i]), ...) } else { xlab <- expression(x[i]==1/sqrt(v[i]+tau^2), ...) } } par.pty <- par("pty") par(pty="s") on.exit(par(pty = par.pty), add=TRUE) if (missing(cex)) { # this affects only the point sizes cex <- 1 } else { cex <- par("cex") * cex } if (missing(cex.lab)) { cex.lab <- 1 } else { cex.lab <- par("cex") * cex.lab } if (missing(cex.axis)) { cex.axis <- 1 } else { cex.axis <- par("cex") * cex.axis } plot(NA, NA, ylim=zlims, xlim=xlims, bty="n", xaxt="n", yaxt="n", xlab=xlab, ylab="", xaxs="i", yaxs="i", cex.lab=cex.lab, ...) ### add polygon and +-zcrit lines polygon(c(0,xaxismax,xaxismax,0), c(zcrit, zcrit+xaxismax*beta, -zcrit+xaxismax*beta, -zcrit), border=NA, col=back) segments(0, 0, xaxismax, xaxismax*beta, lty="solid", ...) segments(0, -zcrit, xaxismax, -zcrit+xaxismax*beta, lty="dotted", ...) segments(0, zcrit, xaxismax, zcrit+xaxismax*beta, lty="dotted", ...) ### add x-axis axis(side=1, cex.axis=cex.axis, ...) ### add z-axis if (is.null(atz)) { axis(side=2, at=seq(-4, 4, length.out=9), labels=NA, las=1, tcl=par("tcl")/2, cex.axis=cex.axis, ...) axis(side=2, at=seq(-2, 2, length.out=3), las=1, cex.axis=cex.axis, ...) } else { axis(side=2, at=atz, labels=atz, las=1, cex.axis=cex.axis, ...) } ### add label for the z-axis if (missing(zlab)) { if (center) { if (is.element(x$method, c("FE","EE","CE"))) { mtext(expression(z[i]==frac(y[i]-hat(theta),sqrt(v[i]))), side=2, line=par.mar.adj[2]-1, at=0, adj=0, las=1, cex=par("cex")*cex.lab, ...) } else { mtext(expression(z[i]==frac(y[i]-hat(mu),sqrt(v[i]+tau^2))), side=2, line=par.mar.adj[2]-1, adj=0, at=0, las=1, cex=par("cex")*cex.lab, ...) } } else { if (is.element(x$method, c("FE","EE","CE"))) { mtext(expression(z[i]==frac(y[i],sqrt(v[i]))), side=2, line=par.mar.adj[2]-2, at=0, adj=0, las=1, cex=par("cex")*cex.lab, ...) } else { mtext(expression(z[i]==frac(y[i],sqrt(v[i]+tau^2))), side=2, line=par.mar.adj[2]-1, at=0, adj=0, las=1, cex=par("cex")*cex.lab, ...) } } } else { mtext(zlab, side=2, line=par.mar.adj[2]-4, at=0, cex=par("cex")*cex.lab, ...) } ######################################################################### ### add y-axis arc and CI arc on the right par.xpd <- par("xpd") par(xpd=TRUE) par.usr <- par("usr") asp.rat <- (par.usr[4]-par.usr[3])/(par.usr[2]-par.usr[1]) if (length(arc.res) == 1L) arc.res <- c(arc.res, arc.res/4) ### add y-axis arc if (is.null(aty)) { atyis <- seq(min(yi), max(yi), length.out=arc.res[1]) } else { atyis <- seq(min(aty), max(aty), length.out=arc.res[1]) } len <- ya.xpos xis <- rep(NA_real_, length(atyis)) zis <- rep(NA_real_, length(atyis)) for (i in seq_along(atyis)) { xis[i] <- sqrt(len^2/(1+(atyis[i]/asp.rat)^2)) zis[i] <- xis[i]*atyis[i] } valid <- zis > zlims[1] & zis < zlims[2] lines(xis[valid], zis[valid], ...) ### add y-axis tick marks if (is.null(aty)) { atyis <- seq(min(yi), max(yi), length.out=steps) } else { atyis <- aty } len.l <- ya.xpos len.u <- ya.xpos + 0.015*(xlims[2]-xlims[1]) xis.l <- rep(NA_real_, length(atyis)) zis.l <- rep(NA_real_, length(atyis)) xis.u <- rep(NA_real_, length(atyis)) zis.u <- rep(NA_real_, length(atyis)) for (i in seq_along(atyis)) { xis.l[i] <- sqrt(len.l^2/(1+(atyis[i]/asp.rat)^2)) zis.l[i] <- xis.l[i]*atyis[i] xis.u[i] <- sqrt(len.u^2/(1+(atyis[i]/asp.rat)^2)) zis.u[i] <- xis.u[i]*atyis[i] } valid <- zis.l > zlims[1] & zis.u > zlims[1] & zis.l < zlims[2] & zis.u < zlims[2] if (any(valid)) segments(xis.l[valid], zis.l[valid], xis.u[valid], (xis.u*atyis)[valid], ...) ### add y-axis labels if (is.null(aty)) { atyis <- seq(min(yi), max(yi), length.out=steps) atyis.lab <- seq(min(yi.c), max(yi.c), length.out=steps) } else { atyis <- aty atyis.lab <- aty.c } len <- ya.xpos+0.02*(xlims[2]-xlims[1]) xis <- rep(NA_real_, length(atyis)) zis <- rep(NA_real_, length(atyis)) for (i in seq_along(atyis)) { xis[i] <- sqrt(len^2/(1+(atyis[i]/asp.rat)^2)) zis[i] <- xis[i]*atyis[i] } if (is.function(transf)) { if (is.null(targs)) { atyis.lab <- sapply(atyis.lab, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) atyis.lab <- sapply(atyis.lab, transf, targs) } } valid <- zis > zlims[1] & zis < zlims[2] if (any(valid)) text(xis[valid], zis[valid], fmtx(atyis.lab[valid], digits), pos=4, cex=cex.axis*0.85, offset=0.25, ...) ### add CI arc atyis <- seq(ci.lb, ci.ub, length.out=arc.res[2]) len <- ci.xpos xis <- rep(NA_real_, length(atyis)) zis <- rep(NA_real_, length(atyis)) for (i in seq_along(atyis)) { xis[i] <- sqrt(len^2/(1+(atyis[i]/asp.rat)^2)) zis[i] <- xis[i]*atyis[i] } valid <- zis > zlims[1] & zis < zlims[2] if (any(valid)) lines(xis[valid], zis[valid], ...) ### add CI tick marks atyis <- c(ci.lb, beta, ci.ub) len.l <- ci.xpos-0.007*(xlims[2]-xlims[1]) len.u <- ci.xpos+0.007*(xlims[2]-xlims[1]) xis.l <- rep(NA_real_, 3L) zis.l <- rep(NA_real_, 3L) xis.u <- rep(NA_real_, 3L) zis.u <- rep(NA_real_, 3L) for (i in seq_along(atyis)) { xis.l[i] <- sqrt(len.l^2/(1+(atyis[i]/asp.rat)^2)) zis.l[i] <- xis.l[i]*atyis[i] xis.u[i] <- sqrt(len.u^2/(1+(atyis[i]/asp.rat)^2)) zis.u[i] <- xis.u[i]*atyis[i] } valid <- zis.l > zlims[1] & zis.u > zlims[1] & zis.l < zlims[2] & zis.u < zlims[2] if (any(valid)) segments(xis.l[valid], zis.l[valid], xis.u[valid], (xis.u*atyis)[valid], ...) par(xpd=par.xpd) ######################################################################### ### add points to the plot points(x=xi, y=zi, pch=pch, cex=cex, col=col, bg=bg, ...) if (is.null(x$not.na.yivi)) { invisible(data.frame(x=xi, y=zi, ids=x$ids[x$not.na], slab=x$slab[x$not.na], stringsAsFactors=FALSE)) } else { invisible(data.frame(x=xi, y=zi, ids=x$ids[x$not.na.yivi], slab=x$slab[x$not.na.yivi], stringsAsFactors=FALSE)) } } metafor/R/regplot.rma.r0000644000176200001440000006136515120213572014536 0ustar liggesusersregplot.rma <- function(x, mod, pred=TRUE, ci=TRUE, pi=FALSE, shade=TRUE, xlim, ylim, predlim, olim, xlab, ylab, at, digits=2L, transf, atransf, targs, level=x$level, pch, psize, plim=c(0.5,3), col, bg, slab, grid=FALSE, refline, label=FALSE, offset=c(1,1), labsize=1, lcol, lwd, lty, legend=FALSE, xvals, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma", notav=c("rma.mh","rma.peto")) if (x$int.only) stop(mstyle$stop("Cannot draw plot for intercept-only models.")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (missing(transf)) transf <- FALSE if (missing(atransf)) atransf <- FALSE transf.char <- deparse(transf) atransf.char <- deparse(atransf) if (is.function(transf) && is.function(atransf)) stop(mstyle$stop("Use either 'transf' or 'atransf' to specify a transformation (not both).")) .start.plot() mf <- match.call() if (missing(pch)) { pch <- 21 } else { pch <- .getx("pch", mf=mf, data=x$data) } if (missing(psize)) { psize <- NULL } else { psize <- .getx("psize", mf=mf, data=x$data) } if (missing(col)) { col <- par("fg") } else { col <- .getx("col", mf=mf, data=x$data) } if (missing(bg)) { bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) } else { bg <- .getx("bg", mf=mf, data=x$data) } if (missing(slab)) { slab <- x$slab } else { slab <- .getx("slab", mf=mf, data=x$data) if (length(slab) != x$k.all) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) slab <- .getsubset(slab, x$subset) } if (missing(label)) { label <- NULL } else { label <- .getx("label", mf=mf, data=x$data) } if (missing(targs)) targs <- NULL if (missing(ylab)) ylab <- .setlab(x$measure, transf.char, atransf.char, gentype=1, short=FALSE) if (missing(at)) at <- NULL ### grid argument can either be a logical or a color if (is.logical(grid)) gridcol <- .coladj(par("bg","fg"), dark=c(0.2,-0.6), light=c(-0.2,0.6)) if (is.character(grid)) { gridcol <- grid grid <- TRUE } ### shade argument can either be a logical or a color vector (first for ci, second for pi) if (is.logical(shade)) shadecol <- c(.coladj(par("bg","fg"), dark=0.15, light=-0.15), .coladj(par("bg","fg"), dark=0.05, light=-0.05)) if (is.character(shade)) { if (length(shade) == 1L) shade <- c(shade, shade) shadecol <- shade shade <- TRUE } ### copy pred to addpred (since using pred below for predicted values) if (inherits(pred, "list.rma")) { addpred <- TRUE if (missing(xvals)) stop(mstyle$stop("Must specify the 'xvals' argument when passing an object from predict() to 'pred'.")) if (length(xvals) != length(pred$pred)) stop(mstyle$stop(paste0("Length of the 'xvals' argument (", length(xvals), ") does not correspond to the number of predicted values (", length(pred$pred), ")."))) } else { addpred <- pred } ### set refline to NA if it is not specified if (missing(refline)) refline <- NA_real_ ### set lcol, lty, and lwd (1 = reg line, 2 = ci bounds, 3 = pi bounds, 4 = refline) if (missing(lcol)) { lcol <- c(rep(par("fg"), 3), .coladj(par("bg","fg"), dark=0.5, light=-0.5)) } else { lcol <- .expand1(lcol, 4L) if (length(lcol) == 2L) lcol <- c(lcol[c(1,2,2)], .coladj(par("bg","fg"), dark=0.5, light=-0.5)) if (length(lcol) == 3L) lcol <- c(lcol, .coladj(par("bg","fg"), dark=0.5, light=-0.5)) } if (missing(lty)) { lty <- c("solid", "dashed", "dotted", "solid") } else { lty <- .expand1(lty, 4L) if (length(lty) == 2L) lty <- c(lty[c(1,2,2)], "solid") if (length(lty) == 3L) lty <- c(lty, "solid") } if (missing(lwd)) { lwd <- c(3,1,1,2) } else { lwd <- .expand1(lwd, 4L) if (length(lwd) == 2L) lwd <- c(lwd[c(1,2,2)], 2) if (length(lwd) == 3L) lwd <- c(lwd, 2) } level <- .level(level) ddd <- list(...) lplot <- function(..., grep, fixed, box.lty, at.lab) plot(...) laxis <- function(..., grep, fixed, box.lty, at.lab) axis(...) lpolygon <- function(..., grep, fixed, box.lty, at.lab) polygon(...) llines <- function(..., grep, fixed, box.lty, at.lab) lines(...) lpoints <- function(..., grep, fixed, box.lty, at.lab) points(...) labline <- function(..., grep, fixed, box.lty, at.lab) abline(...) lbox <- function(..., grep, fixed, box.lty, at.lab) box(...) ltext <- function(..., grep, fixed, box.lty, at.lab) text(...) grep <- .chkddd(ddd$grep, FALSE, isTRUE(ddd$grep)) fixed <- .chkddd(ddd$fixed, FALSE, isTRUE(ddd$fixed)) box.lty <- .chkddd(ddd$box.lty, par("lty")) ############################################################################ ### checks on mod argument if (missing(mod)) { if (x$p == 2L && x$int.incl) { mod <- 2 } else { if (x$p == 1L) { mod <- 1 } else { stop(mstyle$stop("Must specify the 'mod' argument for models with multiple predictors.")) } } } if (length(mod) != 1L) stop(mstyle$stop("Can only specify a single variable via argument 'mod'.")) if (!(is.character(mod) || is.numeric(mod))) stop(mstyle$stop("Argument 'mod' must either be a character string or a scalar.")) if (is.character(mod)) { if (grep) { mod.pos <- grep(mod, colnames(x$X), fixed=fixed) if (length(mod.pos) != 1L) stop(mstyle$stop("Could not find or uniquely identify the moderator variable specified via the 'mod' argument.")) } else { mod.pos <- charmatch(mod, colnames(x$X)) if (is.na(mod.pos) || mod.pos == 0L) stop(mstyle$stop("Could not find or uniquely identify the moderator variable specified via the 'mod' argument.")) } } else { mod.pos <- round(mod) if (mod.pos < 1 | mod.pos > x$p) stop(mstyle$stop("Specified position of 'mod' variable does not exist in the model.")) } ### extract the observed outcomes, corresponding sampling variances, model matrix, and ids yi <- c(x$yi.f) vi <- x$vi.f X <- x$X.f ids <- x$ids ### get weights options(na.action = "na.pass") # using na.pass to get the entire vector (length of yi.f) weights <- try(weights(x), silent=TRUE) # does not work for rma.glmm and rma.uni.selmodel objects if (inherits(weights, "try-error")) weights <- rep(1, x$k.f) options(na.action = na.act) ### note: pch, psize, col, and bg (if vectors) must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing of NAs as was ### done during the model fitting (note: NAs are removed further below) pch <- .expand1(pch, x$k.all) if (length(pch) != x$k.all) stop(mstyle$stop(paste0("Length of the 'pch' argument (", length(pch), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) pch <- .getsubset(pch, x$subset) psize.char <- FALSE if (!is.null(psize)) { if (is.character(psize)) { psize <- match.arg(psize, c("seinv", "vinv")) if (psize == "seinv") { psize <- 1 / sqrt(vi) } else { psize <- 1 / vi } psize.char <- TRUE } else { psize <- .expand1(psize, x$k.all) if (length(psize) != x$k.all) stop(mstyle$stop(paste0("Length of the 'psize' argument (", length(psize), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) psize <- .getsubset(psize, x$subset) } } col <- .expand1(col, x$k.all) if (length(col) != x$k.all) stop(mstyle$stop(paste0("Length of the 'col' argument (", length(col), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) col <- .getsubset(col, x$subset) bg <- .expand1(bg, x$k.all) if (length(bg) != x$k.all) stop(mstyle$stop(paste0("Length of the 'bg' argument (", length(bg), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) bg <- .getsubset(bg, x$subset) if (!is.null(label)) { if (is.character(label)) { label <- match.arg(label, c("all", "ciout", "piout")) if (label == "all") { label <- rep(TRUE, x$k.all) label <- .getsubset(label, x$subset) } } else if (is.logical(label)) { #if (!is.logical(label)) # stop(mstyle$stop("Argument 'label' must be a logical vector (or a single character string).")) label <- .expand1(label, x$k.all) if (length(label) != x$k.all) stop(mstyle$stop(paste0("Length of the 'label' argument (", length(label), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) label <- .getsubset(label, x$subset) } else if (is.numeric(label)) { label <- round(label) label <- seq(x$k.all) %in% label label <- .getsubset(label, x$subset) } } ############################################################################ has.na <- is.na(yi) | is.na(vi) | apply(is.na(X), 1, any) not.na <- !has.na if (any(has.na)) { yi <- yi[not.na] vi <- vi[not.na] X <- X[not.na,,drop=FALSE] slab <- slab[not.na] ids <- ids[not.na] weights <- weights[not.na] pch <- pch[not.na] psize <- psize[not.na] # if NULL, remains NULL col <- col[not.na] bg <- bg[not.na] if (!is.character(label)) label <- label[not.na] } k <- length(yi) ############################################################################ ### extract values for moderator of interest xi <- X[,mod.pos] if (inherits(pred, "list.rma")) { xs <- xvals ci.lb <- pred$ci.lb ci.ub <- pred$ci.ub if (is.null(pred$pi.lb) || anyNA(pred$pi.lb)) { pi.lb <- pred$ci.lb pi.ub <- pred$ci.ub if (pi) warning(mstyle$warning("Object passed to 'pred' argument does not contain prediction interval information."), call.=FALSE) pi <- FALSE } else { pi.lb <- pred$pi.lb pi.ub <- pred$pi.ub } pred <- pred$pred if (!is.null(label) && is.character(label) && label %in% c("ciout", "piout")) { warning(mstyle$stop("Cannot label points based on the confidence/prediction interval when passing an object to 'pred'."), call.=FALSE) label <- NULL } yi.pred <- NULL yi.ci.lb <- NULL yi.ci.ub <- NULL yi.pi.lb <- NULL yi.pi.ub <- NULL } else { ### get predicted values if (!missing(xvals)) { xs <- xvals len <- length(xs) predlim <- range(xs) } else { len <- 1000 if (missing(predlim)) { range.xi <- max(xi) - min(xi) predlim <- c(min(xi) - 0.04*range.xi, max(xi) + 0.04*range.xi) xs <- seq(predlim[1], predlim[2], length.out=len) } else { if (length(predlim) != 2L) stop(mstyle$stop("Argument 'predlim' must be of length 2.")) xs <- seq(predlim[1], predlim[2], length.out=len) } } Xnew <- rbind(colMeans(X))[rep(1,len),,drop=FALSE] Xnew[,mod.pos] <- xs if (x$int.incl) Xnew <- Xnew[,-1,drop=FALSE] predres <- predict(x, newmods=Xnew, level=level) pred <- predres$pred ci.lb <- predres$ci.lb ci.ub <- predres$ci.ub if (is.null(predres$pi.lb) || anyNA(predres$pi.lb)) { pi.lb <- ci.lb pi.ub <- ci.ub if (pi) warning(mstyle$warning("Cannot draw prediction interval for the given model."), call.=FALSE) pi <- FALSE } else { pi.lb <- predres$pi.lb pi.ub <- predres$pi.ub } Xnew <- rbind(colMeans(X))[rep(1,k),,drop=FALSE] Xnew[,mod.pos] <- xi if (x$int.incl) Xnew <- Xnew[,-1,drop=FALSE] predres <- predict(x, newmods=Xnew, level=level) yi.pred <- predres$pred yi.ci.lb <- predres$ci.lb yi.ci.ub <- predres$ci.ub if (is.null(predres$pi.lb) || anyNA(predres$pi.lb)) { yi.pi.lb <- yi.ci.lb yi.pi.ub <- yi.ci.ub if (!is.null(label) && is.character(label) && label == "piout") { warning(mstyle$warning("Cannot label points based on the prediction interval for the given model."), call.=FALSE) label <- NULL } } else { yi.pi.lb <- predres$pi.lb yi.pi.ub <- predres$pi.ub } } ############################################################################ ### if requested, apply transformation to yi's and CI/PI bounds if (is.function(transf)) { if (is.null(targs)) { yi <- sapply(yi, transf) pred <- sapply(pred, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) pi.lb <- sapply(pi.lb, transf) pi.ub <- sapply(pi.ub, transf) yi.pred <- sapply(yi.pred, transf) yi.ci.lb <- sapply(yi.ci.lb, transf) yi.ci.ub <- sapply(yi.ci.ub, transf) yi.pi.lb <- sapply(yi.pi.lb, transf) yi.pi.ub <- sapply(yi.pi.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) yi <- sapply(yi, transf, targs) pred <- sapply(pred, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) pi.lb <- sapply(pi.lb, transf, targs) pi.ub <- sapply(pi.ub, transf, targs) yi.pred <- sapply(yi.pred, transf, targs) yi.ci.lb <- sapply(yi.ci.lb, transf, targs) yi.ci.ub <- sapply(yi.ci.ub, transf, targs) yi.pi.lb <- sapply(yi.pi.lb, transf, targs) yi.pi.ub <- sapply(yi.pi.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] tmp <- .psort(pi.lb, pi.ub) pi.lb <- tmp[,1] pi.ub <- tmp[,2] tmp <- .psort(yi.ci.lb, yi.ci.ub) yi.ci.lb <- tmp[,1] yi.ci.ub <- tmp[,2] tmp <- .psort(yi.pi.lb, yi.pi.ub) yi.pi.lb <- tmp[,1] yi.pi.ub <- tmp[,2] ### apply observation/outcome limits if specified if (!missing(olim)) { if (length(olim) != 2L) stop(mstyle$stop("Argument 'olim' must be of length 2.")) olim <- sort(olim) yi <- .applyolim(yi, olim) ci.lb <- .applyolim(ci.lb, olim) ci.ub <- .applyolim(ci.ub, olim) pred <- .applyolim(pred, olim) pi.lb <- .applyolim(pi.lb, olim) pi.ub <- .applyolim(pi.ub, olim) } ### set default point sizes (if not specified by user) if (is.null(psize) || psize.char) { if (length(plim) < 2L) stop(mstyle$stop("Argument 'plim' must be of length 2 or 3.")) if (psize.char) { wi <- psize } else { wi <- sqrt(weights) } if (!is.na(plim[1]) && !is.na(plim[2])) { rng <- max(wi, na.rm=TRUE) - min(wi, na.rm=TRUE) if (rng <= .Machine$double.eps^0.5) { psize <- rep(1, k) } else { psize <- (wi - min(wi, na.rm=TRUE)) / rng psize <- (psize * (plim[2] - plim[1])) + plim[1] } } if (is.na(plim[1]) && !is.na(plim[2])) { psize <- wi / max(wi, na.rm=TRUE) * plim[2] if (length(plim) == 3L) psize[psize <= plim[3]] <- plim[3] } if (!is.na(plim[1]) && is.na(plim[2])) { psize <- wi / min(wi, na.rm=TRUE) * plim[1] if (length(plim) == 3L) psize[psize >= plim[3]] <- plim[3] } if (all(is.na(psize))) psize <- rep(1, k) } ############################################################################ if (missing(xlab)) xlab <- colnames(X)[mod.pos] if (!is.expression(xlab) && xlab == "") xlab <- "Moderator" if (missing(xlim)) { xlim <- range(xi) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' must be of length 2.")) } if (missing(ylim)) { if (pi) { ylim <- range(c(yi, pi.lb, pi.ub)) } else if (ci) { ylim <- range(c(yi, ci.lb, ci.ub)) } else { ylim <- range(yi) } } else { if (length(ylim) != 2L) stop(mstyle$stop("Argument 'ylim' must be of length 2.")) } ### if user has specified 'at' argument, make sure ylim actually contains the min and max 'at' values if (!is.null(at)) { ylim[1] <- min(c(ylim[1], at), na.rm=TRUE) ylim[2] <- max(c(ylim[2], at), na.rm=TRUE) } ############################################################################ ### set up plot lplot(NA, xlab=xlab, ylab=ylab, xlim=xlim, ylim=ylim, yaxt="n", ...) ### generate y-axis positions if none are specified if (is.null(at)) { at <- axTicks(side=2) } else { at <- at[at > par("usr")[3]] at <- at[at < par("usr")[4]] } ### y-axis labels (apply transformation to axis labels if requested) if (is.null(ddd$at.lab)) { at.lab <- at if (is.function(atransf)) { if (is.null(targs)) { at.lab <- fmtx(sapply(at.lab, atransf), digits[[1]], drop0ifint=TRUE) } else { at.lab <- fmtx(sapply(at.lab, atransf, targs), digits[[1]], drop0ifint=TRUE) } } else { at.lab <- fmtx(at.lab, digits[[1]], drop0ifint=TRUE) } } else { at.lab <- ddd$at.lab } ### add y-axis laxis(side=2, at=at, labels=at.lab, ...) ### add predicted values / CI bounds if (shade) { if (pi) lpolygon(c(xs, rev(xs)), c(pi.lb, rev(pi.ub)), border=NA, col=shadecol[2], ...) if (ci) lpolygon(c(xs, rev(xs)), c(ci.lb, rev(ci.ub)), border=NA, col=shadecol[1], ...) } if (ci) { llines(xs, ci.lb, col=lcol[2], lty=lty[2], lwd=lwd[2], ...) llines(xs, ci.ub, col=lcol[2], lty=lty[2], lwd=lwd[2], ...) } if (pi) { llines(xs, pi.lb, col=lcol[3], lty=lty[3], lwd=lwd[3], ...) llines(xs, pi.ub, col=lcol[3], lty=lty[3], lwd=lwd[3], ...) } ### add grid if (isTRUE(grid)) grid(col=gridcol) # grid needs to be at x and y tick positions also if using y-axis transformation ### add refline labline(h=refline, col=lcol[4], lty=lty[4], lwd=lwd[4], ...) ### add predicted line if (addpred) llines(xs, pred, col=lcol[1], lty=lty[1], lwd=lwd[1], ...) ### redraw box lbox(...) ### order points by psize for plotting order.vec <- order(psize, decreasing=TRUE) xi.o <- xi[order.vec] yi.o <- yi[order.vec] pch.o <- pch[order.vec] psize.o <- psize[order.vec] col.o <- col[order.vec] bg.o <- bg[order.vec] ### add points lpoints(x=xi.o, y=yi.o, pch=pch.o, col=col.o, bg=bg.o, cex=psize.o, ...) ### labeling of points if (!is.null(label)) { if (!is.null(label) && is.character(label) && label %in% c("ciout", "piout")) { if (label == "ciout") { label <- yi < yi.ci.lb | yi > yi.ci.ub label[xi < predlim[1] | xi > predlim[2]] <- FALSE } else { label <- yi < yi.pi.lb | yi > yi.pi.ub label[xi < predlim[1] | xi > predlim[2]] <- FALSE } } yrange <- ylim[2] - ylim[1] if (length(offset) == 2L) offset <- c(offset[1]/100 * yrange, offset[2]/100 * yrange, 1) if (length(offset) == 1L) offset <- c(0, offset/100 * yrange, 1) for (i in which(label)) { if (isTRUE(yi[i] > yi.pred[i])) { # yi.pred might be NULL, so use isTRUE() ltext(xi[i], yi[i] + offset[1] + offset[2]*psize[i]^offset[3], slab[i], cex=labsize, ...) } else { ltext(xi[i], yi[i] - offset[1] - offset[2]*psize[i]^offset[3], slab[i], cex=labsize, ...) } } } else { label <- rep(FALSE, k) } ### add legend (if requested) lopts <- list(x = "topright", y = NULL, inset = 0.01, cex = 1) if (is.list(legend)) { # replace defaults with any user-defined values lopts.pos <- pmatch(names(legend), names(lopts)) lopts[c(na.omit(lopts.pos))] <- legend[!is.na(lopts.pos)] legend <- TRUE } else { if (is.character(legend)) { lopts$x <- legend legend <- TRUE } else { if (!is.logical(legend)) stop(mstyle$stop("Argument 'legend' must either be logical, a string, or a list."), call.=FALSE) } } if (legend) { pch.l <- NULL col.l <- NULL bg.l <- NULL lty.l <- NULL lwd.l <- NULL tcol.l <- NULL ltxt <- NULL if (length(unique(pch)) == 1L && length(unique(col)) == 1L && length(unique(bg)) == 1L) { pch.l <- NA col.l <- NA bg.l <- NA lty.l <- "blank" lwd.l <- NA tcol.l <- "transparent" ltxt <- "Studies" } if (addpred) { pch.l <- c(pch.l, NA) col.l <- c(col.l, NA) bg.l <- c(bg.l, NA) lty.l <- c(lty.l, NA) lwd.l <- c(lwd.l, NA) tcol.l <- c(tcol.l, "transparent") ltxt <- c(ltxt, "Regression Line") } if (ci) { pch.l <- c(pch.l, 22) col.l <- c(col.l, lcol[2]) bg.l <- c(bg.l, shadecol[1]) lty.l <- c(lty.l, NA) lwd.l <- c(lwd.l, 1) tcol.l <- c(tcol.l, "transparent") ltxt <- c(ltxt, paste0(round(100*(1-level), digits[[1]]), "% Confidence Interval")) } if (pi) { pch.l <- c(pch.l, 22) col.l <- c(col.l, lcol[3]) bg.l <- c(bg.l, shadecol[2]) lty.l <- c(lty.l, NA) lwd.l <- c(lwd.l, 1) tcol.l <- c(tcol.l, "transparent") ltxt <- c(ltxt, paste0(round(100*(1-level), digits[[1]]), "% Prediction Interval")) } if (length(ltxt) >= 1L) legend(x=lopts$x, y=lopts$y, inset=lopts$inset, bg=.coladj(par("bg"), dark=0, light=0), pch=pch.l, col=col.l, pt.bg=bg.l, lty=lty.l, lwd=lwd.l*lopts$cex, text.col=tcol.l, pt.cex=1.5*lopts$cex, seg.len=3*lopts$cex, legend=ltxt, box.lty=box.lty, cex=lopts$cex) pch.l <- NULL col.l <- NULL bg.l <- NULL lty.l <- NULL lwd.l <- NULL tcol.l <- NULL ltxt <- NULL if (length(unique(pch)) == 1L && length(unique(col)) == 1L && length(unique(bg)) == 1L) { pch.l <- pch[1] col.l <- col[1] bg.l <- bg[1] lty.l <- "blank" lwd.l <- 1 tcol.l <- par("fg") ltxt <- "Studies" } if (addpred) { pch.l <- c(pch.l, NA) col.l <- c(col.l, lcol[1]) bg.l <- c(bg.l, NA) lty.l <- c(lty.l, lty[1]) lwd.l <- c(lwd.l, lwd[1]) tcol.l <- c(tcol.l, par("fg")) ltxt <- c(ltxt, "Regression Line") } if (ci) { pch.l <- c(pch.l, NA) col.l <- c(col.l, lcol[2]) bg.l <- c(bg.l, NA) lty.l <- c(lty.l, lty[2]) lwd.l <- c(lwd.l, lwd[2]) tcol.l <- c(tcol.l, par("fg")) ltxt <- c(ltxt, paste0(round(100*(1-level), digits[[1]]), "% Confidence Interval")) } if (pi) { pch.l <- c(pch.l, NA) col.l <- c(col.l, lcol[3]) bg.l <- c(bg.l, NA) lty.l <- c(lty.l, lty[3]) lwd.l <- c(lwd.l, lwd[3]) tcol.l <- c(tcol.l, par("fg")) ltxt <- c(ltxt, paste0(round(100*(1-level), digits[[1]]), "% Prediction Interval")) } if (length(ltxt) >= 1L) legend(x=lopts$x, y=lopts$y, inset=lopts$inset, bg=NA, pch=pch.l, col=col.l, pt.bg=bg.l, lty=lty.l, lwd=lwd.l*lopts$cex, text.col=tcol.l, pt.cex=1.5*lopts$cex, seg.len=3*lopts$cex, legend=ltxt, box.lty=box.lty, cex=lopts$cex) } ############################################################################ sav <- data.frame(slab, ids, xi, yi, pch, psize, col, bg, label, order=order.vec) if (length(yi.pred) != 0L) # yi.pred might be NULL or list() sav$pred <- yi.pred attr(sav, "offset") <- offset attr(sav, "labsize") <- labsize class(sav) <- "regplot" invisible(sav) } metafor/R/plot.gosh.rma.r0000644000176200001440000002537615120213572015001 0ustar liggesusersplot.gosh.rma <- function(x, het="I2", pch=16, cex, out, col, alpha, border, xlim, ylim, xhist=TRUE, yhist=TRUE, hh=0.3, breaks, adjust, lwd, labels, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="gosh.rma") het <- match.arg(het, c("QE", "I2", "I^2", "H2", "H^2", "tau2", "tau^2", "tau")) het <- sub("^", "", het, fixed=TRUE) if (is.element(het, c("tau2","tau")) && is.element(x$method, c("FE","EE","CE"))) stop(mstyle$stop("Cannot plot 'tau2' for equal/fixed-effects models.")) if (missing(cex)) { cex <- par("cex") * 0.5 } else { cex <- par("cex") * cex } ddd <- list(...) if (!is.null(ddd$trim)) { trim <- ddd$trim if (!is.list(trim)) { trim <- .expand1(trim, ncol(x$res)-4L) trim <- as.list(trim) } X <- cbind(x$res[,het], x$res[,7:ncol(x$res)]) del <- rep(FALSE, nrow(X)) for (i in seq_len(ncol(X))) { del[X[,i] < quantile(X[,i], trim[[i]][1], na.rm=TRUE) | X[,i] > quantile(X[,i], 1-trim[[i]][length(trim[[i]])], na.rm=TRUE)] <- TRUE } del[is.na(del)] <- TRUE x$res <- x$res[!del,] x$incl <- x$incl[!del,] } .start.plot() lplot <- function(..., trim) plot(...) lpairs <- function(..., trim) pairs(...) if (missing(alpha)) alpha <- nrow(x$res)^(-0.2) if (length(alpha) == 1L) alpha <- c(alpha, 0.5, 0.9) # 1st for points, 2nd for histograms, 3rd for density lines if (length(alpha) == 2L) alpha <- c(alpha[1], alpha[2], 0.9) missout <- ifelse(missing(out), TRUE, FALSE) # need this for panel.hist() if (missout) { if (missing(col)) col <- par("fg") col <- col2rgb(col) / 255 col.pnts <- rgb(col[1], col[2], col[3], alpha[1]) col.hist <- rgb(col[1], col[2], col[3], alpha[2]) col.line <- rgb(col[1], col[2], col[3], alpha[3]) } else { if (length(out) != 1L) stop(mstyle$stop("Argument 'out' should only specify a single study.")) out <- round(out) if (out > x$k || out < 1) stop(mstyle$stop("Non-existing study chosen as potential outlier.")) if (missing(col)) { if (.is.dark()) { col <- c("firebrick", "dodgerblue") } else { col <- c("red", "blue") } } if (length(col) != 2L) stop(mstyle$stop("Argument 'col' should specify two colors when argument 'out' is used.")) col.o <- col2rgb(col[1]) / 255 col.i <- col2rgb(col[2]) / 255 col.pnts.o <- rgb(col.o[1], col.o[2], col.o[3], alpha[1]) col.pnts.i <- rgb(col.i[1], col.i[2], col.i[3], alpha[1]) col.pnts <- ifelse(x$incl[,out], col.pnts.o, col.pnts.i) col.hist.o <- rgb(col.o[1], col.o[2], col.o[3], alpha[2]) col.hist.i <- rgb(col.i[1], col.i[2], col.i[3], alpha[2]) col.line.o <- rgb(col.o[1], col.o[2], col.o[3], alpha[3]) col.line.i <- rgb(col.i[1], col.i[2], col.i[3], alpha[3]) } if (missing(border)) border <- .coladj(par("bg"), dark=0.1, light=-0.1) if (length(border) == 1L) border <- c(border, border) if (length(hh) == 1L) hh <- c(hh, hh) if (x$int.only && (any(hh < 0) | any(hh > 1))) stop(mstyle$stop("Invalid value(s) specified for 'hh' argument.")) if (missing(breaks)) breaks <- "Sturges" if (length(breaks) == 1L) breaks <- list(breaks, breaks) # use list so can also specify two vectors (or two functions) if (missing(adjust)) adjust <- 1 if (length(adjust) == 1L) adjust <- c(adjust, adjust) if (missing(lwd)) lwd <- 2 if (length(lwd) == 1L) lwd <- c(lwd, lwd) if (missing(labels)) { if (het == "QE" && x$int.only) labels <- expression(Q) if (het == "QE" && !x$int.only) labels <- expression(Q[E]) if (het == "I2") labels <- expression(I^2) if (het == "H2") labels <- expression(H^2) if (het == "tau2") labels <- expression(tau^2) if (het == "tau") labels <- expression(tau) if (x$int.only) { labels <- c(.setlab(x$measure, transf.char="FALSE", atransf.char="FALSE", gentype=2), labels) } else { labels <- c(labels, colnames(x$res)[-seq_len(6)]) } } ######################################################################### if (x$int.only) { par.mar <- par("mar") par.mar.adj <- par.mar - c(0,-1,3.1,1.1) par.mar.adj[par.mar.adj < 0] <- 0 on.exit(par(mar=par.mar), add=TRUE) if (xhist & yhist) layout(mat=matrix(c(1,2,3,4), nrow=2, byrow=TRUE), widths=c(1-hh[2],hh[2]), heights=c(hh[1],1-hh[1])) if (xhist & !yhist) layout(mat=matrix(c(1,2), nrow=2, byrow=TRUE), heights=c(hh[1],1-hh[1])) if (!xhist & yhist) layout(mat=matrix(c(1,2), nrow=1, byrow=TRUE), widths=c(1-hh[2],hh[2])) hx <- hist(x$res[,"estimate"], breaks=breaks[[1]], plot=FALSE) hy <- hist(x$res[,het], breaks=breaks[[2]], plot=FALSE) if (missout) { if (missing(xlim)) xlim <- range(hx$breaks) if (missing(ylim)) ylim <- range(hy$breaks) if (xhist) { d <- density(x$res[,"estimate"], adjust=adjust[1], na.rm=TRUE) brks <- hx$breaks nB <- length(brks) y <- hx$density par(mar=c(0,par.mar.adj[2:4])) plot(NULL, xlim=xlim, ylim=c(0,max(hx$density,d$y)), xlab="", ylab="", xaxt="n", yaxt="n", bty="n") rect(brks[-nB], 0, brks[-1], y, col=col.hist, border=border[1]) if (lwd[1] > 0) lines(d$x, d$y, lwd=lwd[1], col=col.line) } } else { isout <- x$incl[,out] hx.o <- hist(x$res[isout,"estimate"], breaks=hx$breaks, plot=FALSE) hx.i <- hist(x$res[!isout,"estimate"], breaks=hx$breaks, plot=FALSE) hy.o <- hist(x$res[isout,het], breaks=hy$breaks, plot=FALSE) hy.i <- hist(x$res[!isout,het], breaks=hy$breaks, plot=FALSE) if (missing(xlim)) xlim <- c(min(hx.o$breaks, hx.i$breaks), max(hx.o$breaks, hx.i$breaks)) if (missing(ylim)) ylim <- c(min(hy.o$breaks, hy.i$breaks), max(hy.o$breaks, hy.i$breaks)) if (xhist) { d.o <- density(x$res[isout,"estimate"], adjust=adjust[1], na.rm=TRUE) d.i <- density(x$res[!isout,"estimate"], adjust=adjust[1], na.rm=TRUE) brks.o <- hx.o$breaks brks.i <- hx.i$breaks nB.o <- length(brks.o) nB.i <- length(brks.i) y.o <- hx.o$density y.i <- hx.i$density par(mar=c(0,par.mar.adj[2:4])) plot(NULL, xlim=xlim, ylim=c(0,max(hx.o$density,hx.i$density,d.o$y,d.i$y)), xlab="", ylab="", xaxt="n", yaxt="n", bty="n") rect(brks.i[-nB.i], 0, brks.i[-1], y.i, col=col.hist.i, border=border[1]) rect(brks.o[-nB.o], 0, brks.o[-1], y.o, col=col.hist.o, border=border[1]) if (lwd[1] > 0) { lines(d.i$x, d.i$y, lwd=lwd[1], col=col.line.i) lines(d.o$x, d.o$y, lwd=lwd[1], col=col.line.o) } } } if (xhist & yhist) plot.new() par(mar=par.mar.adj) lplot(x$res[,"estimate"], x$res[,het], xlim=xlim, ylim=ylim, pch=pch, cex=cex, col=col.pnts, bty="l", xlab=labels[1], ylab=labels[2], ...) if (missout) { if (yhist) { d <- density(x$res[,het], adjust=adjust[2], na.rm=TRUE) brks <- hy$breaks nB <- length(brks) y <- hy$density par(mar=c(par.mar.adj[1],0,par.mar.adj[3:4])) plot(NULL, xlim=c(0,max(hy$density,d$y)), ylim=ylim, xlab="", ylab="", xaxt="n", yaxt="n", bty="n") rect(0, brks[-nB], y, brks[-1], col=col.hist, border=border[2]) if (lwd[2] > 0) lines(d$y, d$x, lwd=lwd[2], col=col.line) } } else { if (yhist) { d.o <- density(x$res[isout,het], adjust=adjust[2], na.rm=TRUE) d.i <- density(x$res[!isout,het], adjust=adjust[2], na.rm=TRUE) brks.o <- hy.o$breaks brks.i <- hy.i$breaks nB.o <- length(brks.o) nB.i <- length(brks.i) y.o <- hy.o$density y.i <- hy.i$density par(mar=c(par.mar.adj[1],0,par.mar.adj[3:4])) plot(NULL, xlim=c(0,max(hy.o$density,hy.i$density,d.o$y,d.i$y)), ylim=ylim, xlab="", ylab="", xaxt="n", yaxt="n", bty="n") rect(0, brks.i[-nB.i], y.i, brks.i[-1], col=col.hist.i, border=border[2]) rect(0, brks.o[-nB.o], y.o, brks.o[-1], col=col.hist.o, border=border[2]) if (lwd[2] > 0) { lines(d.i$y, d.i$x, lwd=lwd[2], col=col.line.i) lines(d.o$y, d.o$x, lwd=lwd[2], col=col.line.o) } } } ### reset to a single figure if (xhist | yhist) layout(matrix(1)) } else { isout <- x$incl[,out] ### function for histograms with kernel density estimates on the diagonal panel.hist <- function(x, ...) { usr <- par("usr") on.exit(par(usr=usr)) par(usr = c(usr[1:2], 0, 1.2 + hh[1])) h <- hist(x, plot=FALSE, breaks=breaks[[1]]) if (missout) { brks <- h$breaks nB <- length(brks) y <- h$density z <- y / max(y) rect(brks[-nB], 0, brks[-1], z, col=col.hist, border=border[1]) res <- density(x, adjust=adjust[1], na.rm=TRUE) res$y <- res$y / max(y) if (lwd[1] > 0) lines(res, lwd=lwd[1], col=col.line) } else { h.o <- hist(x[isout], plot=FALSE, breaks=h$breaks) h.i <- hist(x[!isout], plot=FALSE, breaks=h$breaks) brks.o <- h.o$breaks brks.i <- h.i$breaks nB.o <- length(brks.o) nB.i <- length(brks.i) y.o <- h.o$density y.i <- h.i$density z.o <- y.o / max(y.o, y.i) z.i <- y.i / max(y.o, y.i) rect(brks.i[-nB.i], 0, brks.i[-1], z.i, col=col.hist.i, border=border[1]) rect(brks.o[-nB.o], 0, brks.o[-1], z.o, col=col.hist.o, border=border[1]) res.o <- density(x[isout], adjust=adjust[1], na.rm=TRUE) res.i <- density(x[!isout], adjust=adjust[1], na.rm=TRUE) res.o$y <- res.o$y / max(y.o, y.i) res.i$y <- res.i$y / max(y.o, y.i) if (lwd[1] > 0) { lines(res.i, lwd=lwd[1], col=col.line.i) lines(res.o, lwd=lwd[1], col=col.line.o) } } box() } ### draw scatterplot matrix X <- cbind(x$res[,het], x$res[,7:ncol(x$res)]) lpairs(X, pch=pch, cex=cex, diag.panel=panel.hist, col=col.pnts, labels=labels, ...) } ######################################################################### } metafor/R/AIC.rma.r0000644000176200001440000000264315120751473013457 0ustar liggesusersAIC.rma <- function(object, ..., k=2, correct=FALSE) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") if (missing(...)) { # if there is just 'object' if (object$method == "REML") { out <- ifelse(correct, object$fit.stats["AICc","REML"], object$fit.stats["AIC","REML"]) } else { out <- ifelse(correct, object$fit.stats["AICc","ML"], object$fit.stats["AIC","ML"]) } } else { # if there is 'object' and additional objects via ... if (object$method == "REML") { out <- sapply(list(object, ...), function(x) ifelse(correct, x$fit.stats["AICc","REML"], x$fit.stats["AIC","REML"])) } else { out <- sapply(list(object, ...), function(x) ifelse(correct, x$fit.stats["AICc","ML"], x$fit.stats["AIC","ML"])) } dfs <- sapply(list(object, ...), function(x) x$parms) out <- data.frame(df=dfs, AIC=out) if (correct) names(out)[2] <- "AICc" # get the names of the objects; same idea as in stats:::AIC.default cl <- match.call() cl$k <- NULL cl$correct <- NULL rownames(out) <- as.character(cl[-1L]) # check that all models were fitted to the same data chksums <- sapply(list(object, ...), function(x) x$chksumyi) if (any(chksums[1] != chksums)) warning(mstyle$warning("Models not all fitted to the same data."), call.=FALSE) } return(out) } metafor/R/plot.rma.peto.r0000644000176200001440000000425415120213572015000 0ustar liggesusersplot.rma.peto <- function(x, qqplot=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma.peto") na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) .start.plot() # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < 4L) par(mfrow=n2mfrow(4)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) bg <- .coladj(par("bg","fg"), dark=0.35, light=-0.35) col.na <- .coladj(par("bg","fg"), dark=0.2, light=-0.2) ######################################################################### forest(x, ...) title("Forest Plot", ...) ######################################################################### funnel(x, ...) title("Funnel Plot", ...) ######################################################################### radial(x, ...) title("Radial Plot", ...) ######################################################################### if (qqplot) { qqnorm(x, ...) } else { options(na.action = "na.pass") z <- rstandard(x)$z options(na.action = na.act) not.na <- !is.na(z) if (na.act == "na.omit") { z <- z[not.na] ids <- x$ids[not.na] not.na <- not.na[not.na] } if (na.act == "na.exclude" || na.act == "na.pass") ids <- x$ids k <- length(z) plot(NA, NA, xlim=c(1,k), ylim=c(min(z, -2, na.rm=TRUE), max(z, 2, na.rm=TRUE)), xaxt="n", xlab="Study", ylab="", bty="l", ...) lines(seq_len(k)[not.na], z[not.na], col=col.na, ...) lines(seq_len(k), z, ...) points(x=seq_len(k), y=z, pch=21, bg=bg, ...) axis(side=1, at=seq_len(k), labels=ids, ...) abline(h=0, lty="dashed", ...) abline(h=c(qnorm(0.025),qnorm(0.975)), lty="dotted", ...) title("Standardized Residuals", ...) } ######################################################################### invisible() } metafor/R/rma.peto.r0000644000176200001440000003305315120213572014022 0ustar liggesusersrma.peto <- function(ai, bi, ci, di, n1i, n2i, data, slab, subset, add=1/2, to="only0", drop00=TRUE, # for add/to/drop00, 1st element for escalc(), 2nd for Peto's method level=95, verbose=FALSE, digits, ...) { ######################################################################### ###### setup mstyle <- .get.mstyle() ### check argument specifications if (length(add) == 1L) add <- c(add, 0) if (length(add) != 2L) stop(mstyle$stop("Argument 'add' should specify one or two values (see 'help(rma.peto)').")) if (length(to) == 1L) to <- c(to, "none") if (length(to) != 2L) stop(mstyle$stop("Argument 'to' should specify one or two values (see 'help(rma.peto)').")) if (length(drop00) == 1L) drop00 <- c(drop00, FALSE) if (length(drop00) != 2L) stop(mstyle$stop("Argument 'drop00' should specify one or two values (see 'help(rma.peto)').")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (!is.element(to[1], c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) if (!is.element(to[2], c("all","only0","if0all","none"))) stop(mstyle$stop("Unknown 'to' argument specified.")) time.start <- proc.time() ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("outlist", "time")) measure <- "PETO" # set measure here so that it can be added below ### set defaults for 'digits' if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } ### set options(warn=1) if verbose > 2 if (verbose > 2) { opwarn <- options(warn=1) on.exit(options(warn=opwarn$warn), add=TRUE) } ######################################################################### if (verbose) .space() if (verbose) message(mstyle$message("Extracting the data and computing yi/vi values ...")) ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() ### extract slab and subset values, possibly from the data frame specified via data (arguments not specified are NULL) slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) ### extract/calculate ai,bi,ci,di,n1i,n2i values ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (is.null(bi)) bi <- n1i - ai if (is.null(di)) di <- n2i - ci ni <- ai + bi + ci + di k <- length(ai) # number of outcomes before subsetting k.all <- k if (length(ai)==0L || length(bi)==0L || length(ci)==0L || length(di)==0L) stop(mstyle$stop("Must specify arguments ai, bi, ci, di (or ai, ci, n1i, n2i).")) ids <- seq_len(k) ### generate study labels if none are specified if (verbose) message(mstyle$message("Generating/extracting the study labels ...")) if (is.null(slab)) { slab.null <- TRUE slab <- ids } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) if (is.factor(slab)) slab <- as.character(slab) slab.null <- FALSE } ### if a subset of studies is specified if (!is.null(subset)) { if (verbose) message(mstyle$message("Subsetting ...")) subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) ni <- .getsubset(ni, subset) slab <- .getsubset(slab, subset) ids <- .getsubset(ids, subset) k <- length(ai) } ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) ### calculate observed effect estimates and sampling variances dat <- .do.call(escalc, measure="PETO", ai=ai, bi=bi, ci=ci, di=di, add=add[1], to=to[1], drop00=drop00[1]) yi <- dat$yi # one or more yi/vi pairs may be NA/NA vi <- dat$vi # one or more yi/vi pairs may be NA/NA ### if drop00[2]=TRUE, set counts to NA for studies that have no events (or all events) in both arms if (drop00[2]) { id00 <- c(ai == 0L & ci == 0L) | c(bi == 0L & di == 0L) id00[is.na(id00)] <- FALSE ai[id00] <- NA_real_ bi[id00] <- NA_real_ ci[id00] <- NA_real_ di[id00] <- NA_real_ } ### save the actual cell frequencies and yi/vi values (including potential NAs) outdat.f <- list(ai=ai, bi=bi, ci=ci, di=di) yi.f <- yi vi.f <- vi ni.f <- ni k.f <- k # total number of tables including all NAs ### check for NAs in table data and act accordingly has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) not.na <- !has.na if (any(has.na)) { if (verbose) message(mstyle$message("Handling NAs in the table data ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] k <- length(ai) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in tables.")) } ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### check for NAs in yi/vi and act accordingly yivi.na <- is.na(yi) | is.na(vi) not.na.yivi <- !yivi.na if (any(yivi.na)) { if (verbose) message(mstyle$message("Handling NAs in yi/vi ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na.yivi] vi <- vi[not.na.yivi] ni <- ni[not.na.yivi] warning(mstyle$warning("Some yi/vi values are NA."), call.=FALSE) attr(yi, "measure") <- measure # add measure attribute back attr(yi, "ni") <- ni # add ni attribute back } if (na.act == "na.fail") stop(mstyle$stop("Missing yi/vi values.")) } k.yi <- length(yi) # number of yi/vi pairs that are not NA (needed for QE df and fit.stats calculation) ### add/to procedures for the 2x2 tables for the actual meta-analysis ### note: technically, nothing needs to be added, but Stata/RevMan add 1/2 by default for only0 studies (but drop studies with no/all events) if (to[2] == "all") { ### always add to all cells in all studies ai <- ai + add[2] bi <- bi + add[2] ci <- ci + add[2] di <- di + add[2] } if (to[2] == "only0") { ### add to cells in studies with at least one 0 entry id0 <- c(ai == 0L | bi == 0L | ci == 0L | di == 0L) ai[id0] <- ai[id0] + add[2] bi[id0] <- bi[id0] + add[2] ci[id0] <- ci[id0] + add[2] di[id0] <- di[id0] + add[2] } if (to[2] == "if0all") { ### add to cells in all studies if there is at least one 0 entry id0 <- c(ai == 0L | bi == 0L | ci == 0L | di == 0L) if (any(id0)) { ai <- ai + add[2] bi <- bi + add[2] ci <- ci + add[2] di <- di + add[2] } } n1i <- ai + bi n2i <- ci + di Ni <- ai + bi + ci + di ######################################################################### level <- .level(level) ###### model fitting, test statistics, and confidence intervals if (verbose) message(mstyle$message("Model fitting ...")) xt <- ai + ci # frequency of outcome1 in both groups combined yt <- bi + di # frequency of outcome2 in both groups combined Ei <- xt * n1i / Ni Vi <- xt * yt * (n1i/Ni) * (n2i/Ni) / (Ni - 1) # 0 when xt = 0 or yt = 0 in a table sumVi <- sum(Vi) if (sumVi == 0L) # sumVi = 0 when xt or yt = 0 in *all* tables stop(mstyle$stop("One of the two outcomes never occurred in any of the tables. Peto's method cannot be used.")) beta <- sum(ai - Ei) / sumVi se <- sqrt(1/sumVi) zval <- beta / se pval <- 2*pnorm(abs(zval), lower.tail=FALSE) ci.lb <- beta - qnorm(level/2, lower.tail=FALSE) * se ci.ub <- beta + qnorm(level/2, lower.tail=FALSE) * se names(beta) <- "intrcpt" vb <- matrix(se^2, dimnames=list("intrcpt", "intrcpt")) ######################################################################### ### heterogeneity test (Peto's method) if (verbose) message(mstyle$message("Heterogeneity testing ...")) k.pos <- sum(Vi > 0) # number of tables with positive sampling variance Vi[Vi == 0] <- NA_real_ # set 0 sampling variances to NA QE <- max(0, sum((ai - Ei)^2 / Vi, na.rm=TRUE) - sum(ai - Ei)^2 / sum(Vi, na.rm=TRUE)) if (k.pos > 1L) { QEp <- pchisq(QE, df=k.yi-1, lower.tail=FALSE) I2 <- max(0, 100 * (QE - (k.yi-1)) / QE) H2 <- QE / (k.yi-1) } else { QEp <- 1 I2 <- 0 H2 <- 1 } wi <- 1/vi RSS <- sum(wi*(yi-beta)^2) ######################################################################### ###### fit statistics if (verbose) message(mstyle$message("Computing fit statistics and log-likelihood ...")) ll.ML <- -1/2 * (k.yi) * log(2*base::pi) - 1/2 * sum(log(vi)) - 1/2 * RSS ll.REML <- -1/2 * (k.yi-1) * log(2*base::pi) + 1/2 * log(k.yi) - 1/2 * sum(log(vi)) - 1/2 * log(sum(wi)) - 1/2 * RSS if (any(vi <= 0)) { dev.ML <- -2 * ll.ML } else { dev.ML <- -2 * (ll.ML - sum(dnorm(yi, mean=yi, sd=sqrt(vi), log=TRUE))) } AIC.ML <- -2 * ll.ML + 2 BIC.ML <- -2 * ll.ML + log(k.yi) AICc.ML <- -2 * ll.ML + 2 * max(k.yi, 3) / (max(k.yi, 3) - 2) dev.REML <- -2 * (ll.REML - 0) AIC.REML <- -2 * ll.REML + 2 BIC.REML <- -2 * ll.REML + log(k.yi-1) AICc.REML <- -2 * ll.REML + 2 * max(k.yi-1, 3) / (max(k.yi-1, 3) - 2) fit.stats <- matrix(c(ll.ML, dev.ML, AIC.ML, BIC.ML, AICc.ML, ll.REML, dev.REML, AIC.REML, BIC.REML, AICc.REML), ncol=2, byrow=FALSE) dimnames(fit.stats) <- list(c("ll","dev","AIC","BIC","AICc"), c("ML","REML")) fit.stats <- data.frame(fit.stats) ######################################################################### ###### prepare output if (verbose) message(mstyle$message("Preparing the output ...")) parms <- 1 p <- 1 p.eff <- 1 k.eff <- k tau2 <- 0 X.f <- cbind(rep(1,k.f)) intercept <- TRUE int.only <- TRUE btt <- 1 m <- 1 coef.na <- c(X=FALSE) method <- "FE" weighted <- TRUE test <- "z" ddf <- NA_integer_ if (is.null(ddd$outlist) || ddd$outlist == "nodata") { outdat <- list(ai=ai, bi=bi, ci=ci, di=di) res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, tau2.f=tau2, I2=I2, H2=H2, QE=QE, QEp=QEp, k=k, k.f=k.f, k.yi=k.yi, k.pos=k.pos, k.eff=k.eff, k.all=k.all, p=p, p.eff=p.eff, parms=parms, int.only=int.only, intercept=intercept, coef.na=coef.na, yi=yi, vi=vi, yi.f=yi.f, vi.f=vi.f, X.f=X.f, outdat.f=outdat.f, outdat=outdat, ni=ni, ni.f=ni.f, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.vector(vi)), ids=ids, not.na=not.na, subset=subset, not.na.yivi=not.na.yivi, slab=slab, slab.null=slab.null, measure=measure, method=method, weighted=weighted, test=test, ddf=ddf, dfs=ddf, btt=btt, m=m, digits=digits, level=level, add=add, to=to, drop00=drop00, fit.stats=fit.stats, formula.yi=NULL, formula.mods=NULL, version=packageVersion("metafor"), call=mf) if (is.null(ddd$outlist)) res <- append(res, list(data=data), which(names(res) == "fit.stats")) } else { if (ddd$outlist == "minimal") { res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, I2=I2, H2=H2, QE=QE, QEp=QEp, k=k, k.f=k.f, k.pos=k.pos, k.eff=k.eff, p=p, p.eff=p.eff, parms=parms, int.only=int.only, intercept=intercept, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.vector(vi)), measure=measure, method=method, test=test, ddf=ddf, dfs=ddf, btt=btt, m=m, digits=digits, level=level, fit.stats=fit.stats) } else { res <- eval(str2lang(paste0("list(", ddd$outlist, ")"))) } } time.end <- proc.time() res$time <- unname(time.end - time.start)[3] if (isTRUE(ddd$time)) .print.time(res$time) if (verbose || isTRUE(ddd$time)) cat("\n") class(res) <- c("rma.peto", "rma") return(res) } metafor/R/print.ranktest.r0000644000176200001440000000101715120213572015256 0ustar liggesusersprint.ranktest <- function(x, digits=x$digits, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="ranktest") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() cat(mstyle$section("Rank Correlation Test for Funnel Plot Asymmetry")) cat("\n\n") cat(mstyle$result(paste0("Kendall's tau = ", fmtx(x$tau, digits[["est"]]), ", p ", fmtp(x$pval, digits[["pval"]], equal=TRUE, sep=TRUE)))) cat("\n") #cat("H0: true tau is equal to 0\n\n") .space() invisible() } metafor/R/weights.rma.mv.r0000644000176200001440000000405315120213572015144 0ustar liggesusersweights.rma.mv <- function(object, type="diagonal", ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.mv") if (is.null(object$not.na)) stop(mstyle$stop("Information needed to compute the weights is not available in the model object.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) type <- match.arg(type, c("diagonal", "matrix", "rowsum")) x <- object ######################################################################### if (is.null(x$W)) { W <- chol2inv(chol(x$M)) } else { W <- x$W } ######################################################################### if (type == "diagonal") { wi <- as.vector(diag(W)) weight <- rep(NA_real_, x$k.f) weight[x$not.na] <- wi / sum(wi) * 100 names(weight) <- x$slab if (na.act == "na.omit") weight <- weight[x$not.na] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in weights.")) return(weight) } if (type == "matrix") { Wfull <- matrix(NA_real_, nrow=x$k.f, ncol=x$k.f) Wfull[x$not.na, x$not.na] <- as.matrix(W) # as.matrix() needed when sparse=TRUE rownames(Wfull) <- x$slab colnames(Wfull) <- x$slab if (na.act == "na.omit") Wfull <- Wfull[x$not.na, x$not.na, drop=FALSE] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) return(Wfull) } if (type == "rowsum") { if (!x$int.only) stop("Row-sum weights are only meaningful for intercept-only models.") wi <- rowSums(W) weight <- rep(NA_real_, x$k.f) weight[x$not.na] <- wi / sum(wi) * 100 names(weight) <- x$slab if (na.act == "na.omit") weight <- weight[x$not.na] if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in weights.")) return(weight) } } metafor/R/misc.func.hidden.funnel.r0000644000176200001440000001057715120213572016710 0ustar liggesusers.funnel.legend <- function(legend, level, shade, back, yaxis, trimfill, pch, col, bg, pch.fill, pch.vec, col.vec, bg.vec, colci) { mstyle <- .get.mstyle() lopts <- list(x = "topright", y = NULL, inset = 0.01, bty = "o", bg = .coladj(par("bg","fg"), dark=c(0,-0.9), light=c(0,0.9)), studies = TRUE, show = "pvals", cex = c(1,2,1), x.intersp = 1, y.intersp = 1) if (is.list(legend)) { # replace defaults with any user-defined values lopts.pos <- pmatch(names(legend), names(lopts)) lopts[c(na.omit(lopts.pos))] <- legend[!is.na(lopts.pos)] legend <- TRUE if (length(lopts$cex) == 1L) lopts$cex <- c(lopts$cex, 2*lopts$cex, lopts$cex) if (length(lopts$cex) == 2L) lopts$cex <- c(lopts$cex[1], lopts$cex[2], lopts$cex[1]) } else { if (is.character(legend)) { lopts$x <- legend legend <- TRUE } else { if (!is.logical(legend)) stop(mstyle$stop("Argument 'legend' must either be logical, a string, or a list."), call.=FALSE) } } if (!is.na(lopts$show) && !is.element(lopts$show, c("pvals","cis"))) stop(mstyle$stop("Valid options for 'show' are 'pvals, 'cis', or NA."), call.=FALSE) # can only add p-values / CI regions if 'yaxis' is 'sei', 'vi', 'seinv', or 'vinv' if (legend && !is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) lopts$show <- NA # only add 'Studies' to legend if pch, col, and bg are not vectors if (pch.vec || col.vec || bg.vec) lopts$studies <- FALSE # if neither studies nor p-values / CI regions are shown, then omit the legend if (!lopts$studies && is.na(lopts$show)) legend <- FALSE if (legend) { ltxt <- NULL pch.l <- NULL col.l <- NULL pt.cex <- NULL pt.bg <- NULL if (isTRUE(lopts$show == "pvals")) { level <- c(level, 0) lvals <- length(level) scipen <- options(scipen=100) level <- signif(level, digits=8) lchars <- pmax(0, max(nchar(level))-2L) options(scipen=scipen$scipen) ltxt <- sapply(seq_len(lvals), function(i) { if (i == 1) return(as.expression(bquote(paste(.(pval1) < p, phantom() <= .(pval2)), list(pval1=fmtx(level[i], lchars), pval2=fmtx(1, lchars))))) if (i > 1 && i < lvals) return(as.expression(bquote(paste(.(pval1) < p, phantom() <= .(pval2)), list(pval1=fmtx(level[i], lchars), pval2=fmtx(level[i-1], lchars))))) if (i == lvals) return(as.expression(bquote(paste(.(pval1) < p, phantom() <= .(pval2)), list(pval1=fmtx(0, lchars), pval2=fmtx(level[i-1], lchars))))) }) pch.l <- rep(22, lvals) col.l <- rep(colci, lvals) pt.cex <- rep(lopts$cex[2], lvals) pt.bg <- c(shade, back) } if (isTRUE(lopts$show == "cis")) { level <- 100-100*level lvals <- length(level) scipen <- options(scipen=100) lchars <- pmax(0, max(nchar(level))-3L) options(scipen=scipen$scipen) ltxt <- sapply(seq_len(lvals), function(i) as.expression(bquote(paste(.(ci)*"% CI Region"), list(ci=fmtx(level[i], lchars))))) pch.l <- rep(22, lvals) col.l <- rep(colci, lvals) pt.cex <- rep(lopts$cex[2], lvals) pt.bg <- c(shade) } if (isTRUE(lopts$studies)) { if (trimfill) { ltxt <- c(ltxt, expression(plain(Observed~Studies))) } else { ltxt <- c(ltxt, expression(plain(Studies))) } pch.l <- c(pch.l, pch[1]) col.l <- c(col.l, col[1]) pt.cex <- c(pt.cex, lopts$cex[3]) pt.bg <- c(pt.bg, bg[1]) if (trimfill) { ltxt <- c(ltxt, expression(plain(Imputed~Studies))) pch.l <- c(pch.l, pch.fill[1]) col.l <- c(col.l, col[2]) pt.cex <- c(pt.cex, lopts$cex[3]) pt.bg <- c(pt.bg, bg[2]) } } legend(x=lopts$x, y=lopts$y, inset=lopts$inset, bty=lopts$bty, bg=lopts$bg, cex=lopts$cex[1], x.intersp=lopts$x.intersp, y.intersp=lopts$y.intersp, pch=pch.l, col=col.l, pt.cex=pt.cex, pt.bg=pt.bg, legend=ltxt) } } metafor/R/leave1out.rma.mh.r0000644000176200001440000001367215120213572015370 0ustar liggesusersleave1out.rma.mh <- function(x, cluster, digits, transf, targs, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.mh") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (!x$int.only) stop(mstyle$stop("Method only applicable to models without moderators.")) if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (is.null(x$outdat.f)) stop(mstyle$stop("Information needed to carry out a leave-one-out analysis is not available in the model object.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL ddd <- list(...) .chkdots(ddd, c("time", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### process cluster variable misscluster <- ifelse(missing(cluster), TRUE, FALSE) if (misscluster) { cluster <- seq_len(x$k.all) } else { mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) } ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster.f <- cluster cluster <- cluster[x$not.na] ### checks on cluster variable if (anyNA(cluster.f)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster.f) == 0L) stop(mstyle$stop(paste0("Cannot find 'cluster' variable (or it has zero length)."))) ### cluster ids and number of clusters ids <- unique(cluster) n <- length(ids) if (!misscluster) ids <- sort(ids) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### beta <- rep(NA_real_, n) se <- rep(NA_real_, n) zval <- rep(NA_real_, n) pval <- rep(NA_real_, n) ci.lb <- rep(NA_real_, n) ci.ub <- rep(NA_real_, n) QE <- rep(NA_real_, n) QEp <- rep(NA_real_, n) #tau2 <- rep(NA_real_, n) I2 <- rep(NA_real_, n) H2 <- rep(NA_real_, n) ### elements that need to be returned outlist <- "beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, QE=QE, QEp=QEp, tau2=tau2, I2=I2, H2=H2" if (progbar) pbar <- pbapply::startpb(min=0, max=n) for (i in seq_len(n)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) if (is.element(x$measure, c("RR","OR","RD"))) { args <- list(ai=x$outdat$ai, bi=x$outdat$bi, ci=x$outdat$ci, di=x$outdat$di, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=ids[i]!=cluster, outlist=outlist) } else { args <- list(x1i=x$outdat$x1i, x2i=x$outdat$x2i, t1i=x$outdat$t1i, t2i=x$outdat$t2i, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=ids[i]!=cluster, outlist=outlist) } res <- try(suppressWarnings(.do.call(rma.mh, args)), silent=TRUE) if (inherits(res, "try-error")) next beta[i] <- res$beta se[i] <- res$se zval[i] <- res$zval pval[i] <- res$pval ci.lb[i] <- res$ci.lb ci.ub[i] <- res$ci.ub QE[i] <- res$QE QEp[i] <- res$QEp I2[i] <- res$I2 H2[i] <- res$H2 } if (progbar) pbapply::closepb(pbar) ######################################################################### ### if requested, apply transformation function if (isTRUE(transf) && is.element(x$measure, c("OR","RR","IRR"))) # if transf=TRUE, apply exp transformation to ORs, RRs, and IRRs transf <- exp if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) se <- rep(NA_real_, n) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) se <- rep(NA_real_, n) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### out <- list(estimate=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, Q=QE, Qp=QEp, I2=I2, H2=H2) if (na.act == "na.omit") { if (misscluster) { out$slab <- paste0("-", x$slab[x$not.na]) } else { out$slab <- paste0("-", ids) } } if (na.act == "na.exclude" || na.act == "na.pass") { if (misscluster) { out <- .expandna(out, x$not.na) out$slab <- paste0("-", x$slab) } else { out$slab <- paste0("-", ids) } } out$digits <- digits out$transf <- transf if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- "list.rma" return(out) } metafor/R/rstandard.rma.peto.r0000644000176200001440000000312115120213572015774 0ustar liggesusersrstandard.rma.peto <- function(model, digits, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.peto") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$yi.f)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) x <- model if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } ######################################################################### resid <- c(x$yi.f - x$beta) resid[abs(resid) < 100 * .Machine$double.eps] <- 0 #resid[abs(resid) < 100 * .Machine$double.eps * median(abs(resid), na.rm=TRUE)] <- 0 # see lm.influence ### note: these are like Pearson (or semi-standardized) residuals seresid <- sqrt(x$vi.f) stresid <- resid / seresid ######################################################################### if (na.act == "na.omit") { out <- list(resid=resid[x$not.na.yivi], se=seresid[x$not.na.yivi], z=stresid[x$not.na.yivi]) out$slab <- x$slab[x$not.na.yivi] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(resid=resid, se=seresid, z=stresid) out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na.yivi)) stop(mstyle$stop("Missing values in results.")) out$digits <- digits class(out) <- "list.rma" return(out) } metafor/R/profile.rma.uni.selmodel.r0000644000176200001440000003134415120213572017111 0ustar liggesusersprofile.rma.uni.selmodel <- function(fitted, tau2, delta, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, ...) { mstyle <- .get.mstyle() .chkclass(class(fitted), must="rma.uni.selmodel") x <- fitted if (x$betaspec) # TODO: consider allowing profiling over beta values as well stop(mstyle$stop("Cannot profile when one or more beta values were fixed.")) if (x$decreasing || x$type == "stepcon") stop(mstyle$stop("Method not currently implemented for this type of model.")) if (anyNA(steps)) stop(mstyle$stop("No missing values allowed in 'steps' argument.")) if (length(steps) >= 2L) { if (missing(xlim)) xlim <- range(steps) stepseq <- TRUE } else { if (steps < 2) stop(mstyle$stop("Argument 'steps' must be >= 2.")) stepseq <- FALSE } parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } ddd <- list(...) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### check if user has not specified tau2 or delta argument if (missing(tau2) && missing(delta)) { mc <- match.call() ### total number of non-fixed components comps <- ifelse(!is.element(x$method, c("FE","EE","CE")) && !x$tau2.fix, 1, 0) + sum(!x$delta.fix) if (comps == 0) stop(mstyle$stop("No components in the model for which a profile likelihood can be constructed.")) if (!is.null(ddd[["code3"]])) eval(expr = parse(text = ddd[["code3"]])) if (plot) { if (comps > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < comps) par(mfrow=n2mfrow(comps)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } } sav <- list() j <- 0 if (!is.element(x$method, c("FE","EE","CE")) && !x$tau2.fix) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$tau2 <- 1 mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.uni.selmodel") if (progbar) cat(mstyle$verbose(paste("Profiling tau2\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } if (any(!x$delta.fix)) { for (pos in seq_len(x$deltas)[!x$delta.fix]) { j <- j + 1 if (!is.null(ddd[["code4"]])) eval(expr = parse(text = ddd[["code4"]])) mc.vc <- mc mc.vc$delta <- pos mc.vc$time <- FALSE #mc.vc$fitted <- quote(x) mc.vc[[1]] <- str2lang("metafor::profile.rma.uni.selmodel") if (progbar) cat(mstyle$verbose(paste("Profiling delta =", pos, "\n"))) sav[[j]] <- eval(mc.vc, envir=parent.frame()) } } ### if there is just one component, turn the list of lists into a simple list if (comps == 1) sav <- sav[[1]] sav$comps <- comps if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(sav) <- "profile.rma" return(invisible(sav)) } ######################################################################### ### round and take unique values if (!missing(delta) && is.numeric(delta)) delta <- unique(round(delta)) if (!missing(tau2) && is.numeric(tau2)) tau2 <- unique(round(tau2)) ### check if user has specified more than one of these arguments if (sum(!missing(tau2), !missing(delta)) > 1L) stop(mstyle$stop("Must specify only one of the 'tau2' or 'delta' arguments.")) ### check if model actually contains (at least one) such a component and that it was actually estimated if (!missing(tau2) && (is.element(x$method, c("FE","EE","CE")) || x$tau2.fix)) stop(mstyle$stop("Model does not contain an (estimated) 'tau2' component.")) if (!missing(delta) && all(x$delta.fix)) stop(mstyle$stop("Model does not contain any estimated 'delta' components.")) ### check if user specified more than one tau2 or delta component if (!missing(tau2) && (length(tau2) > 1L)) stop(mstyle$stop("Can only specify one 'tau2' component.")) if (!missing(delta) && (length(delta) > 1L)) stop(mstyle$stop("Can only specify one 'delta' component.")) ### check if user specified a logical if (!missing(tau2) && is.logical(tau2) && isTRUE(tau2)) tau2 <- 1 if (!missing(delta) && is.logical(delta)) stop(mstyle$stop("Must specify a number for the 'delta' component.")) ### check if user specified a component that does not exist if (!missing(tau2) && (tau2 > 1 || tau2 <= 0)) stop(mstyle$stop("No such 'tau2' component in the model.")) if (!missing(delta) && (delta > x$deltas || delta <= 0)) stop(mstyle$stop("No such 'delta' component in the model.")) ### check if user specified a component that was fixed if (!missing(tau2) && x$tau2.fix) stop(mstyle$stop("Specified 'tau2' component was fixed.")) if (!missing(delta) && x$delta.fix[delta]) stop(mstyle$stop("Specified 'delta' component was fixed.")) ### if everything is good so far, get value of the variance component and set 'comp' delta.pos <- NA_integer_ if (!missing(tau2)) { vc <- x$tau2 comp <- "tau2" tau2.pos <- 1 } if (!missing(delta)) { vc <- x$delta[delta] comp <- "delta" delta.pos <- delta } #return(list(comp=comp, vc=vc)) ######################################################################### if (missing(xlim) || is.null(xlim)) { ### if the user has not specified xlim, set it automatically if (comp == "tau2") { if (is.na(x$se.tau2)) { vc.lb <- max(0, vc/4) vc.ub <- min(max(0.1, vc*4), x$tau2.max) } else { vc.lb <- max(0, vc - qnorm(0.995) * x$se.tau2) vc.ub <- min(max(0.1, vc + qnorm(0.995) * x$se.tau2), x$tau2.max) } } if (comp == "delta") { if (is.na(x$se.delta[delta])) { vc.lb <- max(0, vc/4, x$delta.min[delta]) vc.ub <- min(max(0.1, vc*4), x$delta.max[delta]) } else { vc.lb <- max(0, vc - qnorm(0.995) * x$se.delta[delta], x$delta.min[delta]) vc.ub <- min(max(0.1, vc + qnorm(0.995) * x$se.delta[delta]), x$delta.max[delta]) } } ### if that fails, throw an error if (is.na(vc.lb) || is.na(vc.ub)) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) xlim <- c(vc.lb, vc.ub) } else { if (length(xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 2.")) xlim <- sort(xlim) if (comp == "tau2") { if (xlim[1] < 0) stop(mstyle$stop("Lower bound for profiling must be >= 0.")) } if (comp == "delta") { if (xlim[1] < x$delta.min[delta]) stop(mstyle$stop(paste0("Lower bound for profiling must be >= ", x$delta.min[delta], "."))) if (xlim[2] > x$delta.max[delta]) stop(mstyle$stop(paste0("Upper bound for profiling must be <= ", x$delta.max[delta], "."))) } } if (stepseq) { vcs <- steps } else { vcs <- seq(xlim[1], xlim[2], length.out=steps) } #return(vcs) if (length(vcs) <= 1L) stop(mstyle$stop("Cannot set 'xlim' automatically. Please set this argument manually.")) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) if (parallel == "no") res <- pbapply::pblapply(vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) if (parallel == "multicore") res <- pbapply::pblapply(vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, mc.cores=ncpus) if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterApplyLB(cl, vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.uni.selmodel, vcs, MoreArgs=list(obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2), .scheduling = "dynamic") } else { res <- pbapply::pblapply(vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterApply(cl, vcs, .profile.rma.uni.selmodel, obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2) #res <- parallel::clusterMap(cl, .profile.rma.uni.selmodel, vcs, MoreArgs=list(obj=x, comp=comp, delta.pos=delta.pos, parallel=parallel, profile=TRUE, code2=ddd$code2)) } } lls <- sapply(res, function(x) x$ll) beta <- do.call(rbind, lapply(res, function(x) t(x$beta))) ci.lb <- do.call(rbind, lapply(res, function(x) t(x$ci.lb))) ci.ub <- do.call(rbind, lapply(res, function(x) t(x$ci.ub))) beta <- data.frame(beta) ci.lb <- data.frame(ci.lb) ci.ub <- data.frame(ci.ub) names(beta) <- rownames(x$beta) names(ci.lb) <- rownames(x$beta) names(ci.ub) <- rownames(x$beta) ######################################################################### maxll <- c(logLik(x)) if (any(lls >= maxll + lltol, na.rm=TRUE)) warning(mstyle$warning("At least one profiled log-likelihood value is larger than the log-likelihood of the fitted model."), call.=FALSE) if (all(is.na(lls))) warning(mstyle$warning("All model fits failed. Cannot draw profile likelihood plot."), call.=FALSE) if (isTRUE(ddd$exp)) { lls <- exp(lls) maxll <- exp(maxll) } if (missing(ylim)) { if (any(is.finite(lls))) { if (xlim[1] <= vc && xlim[2] >= vc) { ylim <- range(c(maxll,lls[is.finite(lls)]), na.rm=TRUE) } else { ylim <- range(lls[is.finite(lls)], na.rm=TRUE) } } else { ylim <- rep(maxll, 2L) } if (!isTRUE(ddd$exp)) ylim <- ylim + c(-0.1, 0.1) } else { if (length(ylim) != 2L) stop(mstyle$stop("Argument 'ylim' should be a vector of length 2.")) ylim <- sort(ylim) } if (comp == "tau2") { xlab <- expression(paste(tau^2, " Value")) title <- expression(paste("Profile Plot for ", tau^2)) } if (comp == "delta") { if (x$deltas == 1L) { xlab <- expression(paste(delta, " Value")) title <- expression(paste("Profile Plot for ", delta)) } else { xlab <- bquote(delta[.(delta)] ~ "Value") title <- bquote("Profile Plot for" ~ delta[.(delta)]) } } sav <- list(vc=vcs, ll=lls, beta=beta, ci.lb=ci.lb, ci.ub=ci.ub, comps=1, ylim=ylim, method=x$method, vc=vc, maxll=maxll, xlab=xlab, title=title, exp=ddd$exp) names(sav)[1] <- switch(comp, tau2="tau2", delta="delta") class(sav) <- "profile.rma" ######################################################################### if (plot) plot(sav, ...) ######################################################################### if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } invisible(sav) } metafor/R/permutest.r0000644000176200001440000000007015120213572014316 0ustar liggesuserspermutest <- function(x, ...) UseMethod("permutest") metafor/R/rstudent.rma.mv.r0000644000176200001440000001556615120213572015355 0ustar liggesusersrstudent.rma.mv <- function(model, digits, progbar=FALSE, cluster, reestimate=TRUE, parallel="no", ncpus=1, cl, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.mv", notav="robust.rma") if (is.null(model$not.na)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$yi)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) x <- model parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } misscluster <- ifelse(missing(cluster), TRUE, FALSE) if (misscluster) { cluster <- seq_len(x$k.all) } else { mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) } ddd <- list(...) .chkdots(ddd, c("time", "LB", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### process cluster variable ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster.f <- cluster cluster <- cluster[x$not.na] ### checks on cluster variable if (anyNA(cluster.f)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster.f) == 0L) stop(mstyle$stop(paste0("Cannot find 'cluster' variable (or it has zero length)."))) ### cluster ids and number of clusters ids <- unique(cluster) n <- length(ids) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### if (parallel == "no") res <- pbapply::pblapply(seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) if (parallel == "multicore") res <- pbapply::pblapply(seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2, mc.cores=ncpus) if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) #res <- parallel::clusterApplyLB(cl, seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) } else { res <- pbapply::pblapply(seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) #res <- parallel::clusterApply(cl, seq_len(n), .rstudent.rma.mv, obj=x, parallel=parallel, cluster=cluster, ids=ids, reestimate=reestimate, code2=ddd$code2) } } delresid <- rep(NA_real_, x$k) sedelresid <- rep(NA_real_, x$k) pos <- unlist(sapply(res, function(x) x$pos)) delresid[pos] <- unlist(sapply(res, function(x) x$delresid)) sedelresid[pos] <- unlist(sapply(res, function(x) x$sedelresid)) X2 <- sapply(res, function(x) x$X2) k.id <- sapply(res, function(x) x$k.id) ######################################################################### delresid[abs(delresid) < 100 * .Machine$double.eps] <- 0 resid <- rep(NA_real_, x$k.f) seresid <- rep(NA_real_, x$k.f) resid[x$not.na] <- delresid seresid[x$not.na] <- sedelresid stresid <- resid / seresid ######################################################################### if (na.act == "na.omit") { out <- list(resid=resid[x$not.na], se=seresid[x$not.na], z=stresid[x$not.na]) if (!misscluster) out$cluster <- cluster.f[x$not.na] out$slab <- x$slab[x$not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(resid=resid, se=seresid, z=stresid) if (!misscluster) out$cluster <- cluster.f out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } if (misscluster) { out$digits <- digits class(out) <- "list.rma" return(out) } else { out <- list(out) if (na.act == "na.omit") { out[[2]] <- list(X2=X2[order(ids)], k=k.id[order(ids)], slab=ids[order(ids)]) } if (na.act == "na.exclude" || na.act == "na.pass") { ids.f <- unique(cluster.f) X2.f <- rep(NA_real_, length(ids.f)) X2.f[match(ids, ids.f)] <- X2 k.id.f <- sapply(ids.f, function(id) sum((id == cluster.f) & x$not.na)) out[[2]] <- list(X2=X2.f[order(ids.f)], k=k.id.f[order(ids.f)], slab=ids.f[order(ids.f)]) } out[[1]]$digits <- digits out[[2]]$digits <- digits names(out) <- c("obs", "cluster") class(out[[1]]) <- "list.rma" class(out[[2]]) <- "list.rma" attr(out[[1]], ".rmspace") <- TRUE attr(out[[2]], ".rmspace") <- TRUE return(out) } } metafor/R/rstudent.rma.mh.r0000644000176200001440000000610515120213572015324 0ustar liggesusersrstudent.rma.mh <- function(model, digits, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.mh") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$outdat.f)) stop(mstyle$stop("Information needed to compute the residuals is not available in the model object.")) x <- model if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } ddd <- list(...) .chkdots(ddd, c("time", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### delpred <- rep(NA_real_, x$k.f) vdelpred <- rep(NA_real_, x$k.f) ### elements that need to be returned outlist <- "beta=beta, vb=vb" ### note: skipping NA tables if (progbar) pbar <- pbapply::startpb(min=0, max=x$k.f) for (i in seq_len(x$k.f)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) if (!x$not.na[i]) next if (is.element(x$measure, c("RR","OR","RD"))) { args <- list(ai=x$outdat.f$ai, bi=x$outdat.f$bi, ci=x$outdat.f$ci, di=x$outdat.f$di, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=-i, outlist=outlist) } else { args <- list(x1i=x$outdat.f$x1i, x2i=x$outdat.f$x2i, t1i=x$outdat.f$t1i, t2i=x$outdat.f$t2i, measure=x$measure, add=x$add, to=x$to, drop00=x$drop00, correct=x$correct, level=x$level, subset=-i, outlist=outlist) } res <- try(suppressWarnings(.do.call(rma.mh, args)), silent=TRUE) if (inherits(res, "try-error")) next delpred[i] <- res$beta vdelpred[i] <- res$vb } if (progbar) pbapply::closepb(pbar) resid <- x$yi.f - delpred resid[abs(resid) < 100 * .Machine$double.eps] <- 0 #resid[abs(resid) < 100 * .Machine$double.eps * median(abs(resid), na.rm=TRUE)] <- 0 # see lm.influence seresid <- sqrt(x$vi.f + vdelpred) stresid <- resid / seresid ######################################################################### if (na.act == "na.omit") { out <- list(resid=resid[x$not.na.yivi], se=seresid[x$not.na.yivi], z=stresid[x$not.na.yivi]) out$slab <- x$slab[x$not.na.yivi] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(resid=resid, se=seresid, z=stresid) out$slab <- x$slab } if (na.act == "na.fail" && any(!x$not.na.yivi)) stop(mstyle$stop("Missing values in results.")) out$digits <- digits if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- "list.rma" return(out) } metafor/R/rcalc.r0000644000176200001440000002500015120213572013352 0ustar liggesusersrcalc <- function(x, ni, data, rtoz=FALSE, nfun="min", sparse=FALSE, ...) { mstyle <- .get.mstyle() if (!(inherits(x, "formula") || inherits(x, "matrix") || inherits(x, "list"))) stop(mstyle$stop("Argument 'x' must be either a formula, a matrix, or a list of matrices.")) if (missing(ni)) stop(mstyle$stop("Argument 'ni' must be specified.")) if (is.character(nfun)) nfun <- match.arg(nfun, c("min", "harmonic", "mean")) ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("upper", "simplify", "rowid", "vnames", "noid")) upper <- .chkddd(ddd$upper, FALSE) simplify <- .chkddd(ddd$simplify, TRUE) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) ############################################################################ ### in case x is a formula, process it if (inherits(x, "formula")) { if (missing(data)) stop(mstyle$stop("Must specify the 'data' argument when 'x' is a formula.")) if (!is.data.frame(data)) data <- data.frame(data) ### extract ni mf <- match.call() ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) ### get all variables from data options(na.action = "na.pass") dat <- get_all_vars(x, data=data) options(na.action = na.act) ### if no study id has been specified, assume it is a single study if (ncol(dat) == 3L) { dat[[4]] <- 1 noid <- TRUE } else { noid <- FALSE } vnames <- names(dat) ### check that there are really 4 variables if (ncol(dat) != 4L) stop(mstyle$stop(paste0("Formula should contain 4 variables, but contains ", ncol(dat), " variables."))) ### check that there are no missings in the variable identifiers if (anyNA(c(dat[[2]],dat[[3]]))) stop(mstyle$stop("No missing values allowed in variable identifiers.")) id <- dat[[4]] ### check that ni has the same length as there are rows in 'data' if (length(ni) != nrow(data)) stop(mstyle$stop("Argument 'ni' must be of the same length as the data frame specified via 'data'.")) ### check that there are no missings in the study identifier if (anyNA(id)) stop(mstyle$stop("No missing values allowed in study identifier.")) ### need these to correctly sort 'dat' and 'V' back into the original order at the end ### (and need to order within rows, so that matching works correctly) id.var1 <- paste0(id, ".", as.character(dat[[2]])) id.var2 <- paste0(id, ".", as.character(dat[[3]])) id.var1.id.var2 <- .psort(id.var1, id.var2) id.var1 <- id.var1.id.var2[,1] id.var2 <- id.var1.id.var2[,2] rowid <- paste0(id.var1, ".", id.var2) dat <- split(dat, id) ni <- split(ni, id) Rlist <- list() nmi <- rep(NA_real_, length(ni)) for (i in seq_along(dat)) { if (any(ni[[i]] <= 0, na.rm=TRUE)) stop(mstyle$stop(paste0("One or more sample sizes are <= 0 in study ", dat[[i]][[4]][[1]], "."))) if (is.function(nfun)) { nfunnmi <- nfun(ni[[i]]) if (length(nfunnmi) != 1L) stop(mstyle$stop("Function specified via 'nfun' does not return a single value.")) nmi[i] <- nfunnmi } else { if (nfun == "min") nmi[i] <- min(ni[[i]], na.rm=TRUE) if (nfun == "harmonic") nmi[i] <- 1 / mean(1/ni[[i]], na.rm=TRUE) if (nfun == "mean") nmi[i] <- mean(ni[[i]], na.rm=TRUE) } var1 <- as.character(dat[[i]][[2]]) var2 <- as.character(dat[[i]][[3]]) var1.var2 <- paste0(var1, ".", var2) var1.var2.eq <- var1 == var2 if (any(var1.var2.eq)) stop(mstyle$stop(paste0("Identical var1-var2 pair", ifelse(sum(var1.var2.eq) >= 2L, "s", ""), " (", paste0(var1.var2[var1.var2.eq], collapse=", "), ") in study ", dat[[i]][[4]][[1]], "."))) var1.var2.dup <- duplicated(var1.var2) if (any(var1.var2.dup)) stop(mstyle$stop(paste0("Duplicated var1-var2 pair", ifelse(sum(var1.var2.dup) >= 2L, "s", ""), " (", paste0(var1.var2[var1.var2.dup], collapse=", "), ") in study ", dat[[i]][[4]][[1]], "."))) ri <- dat[[i]][[1]] if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop(paste0("One or more correlations are > 1 or < -1 in study ", dat[[i]][[4]][[1]], "."))) vars <- sort(union(var1, var2)) Ri <- matrix(NA_real_, nrow=length(vars), ncol=length(vars)) diag(Ri) <- 1 rownames(Ri) <- colnames(Ri) <- vars for (j in seq_along(var1)) { Ri[var1[j],var2[j]] <- Ri[var2[j],var1[j]] <- ri[j] } Rlist[[i]] <- Ri } names(Rlist) <- names(dat) return(rcalc(Rlist, ni=nmi, simplify=simplify, rtoz=rtoz, sparse=sparse, rowid=rowid, vnames=vnames, noid=noid)) } ############################################################################ ### in case x is a list, need to loop through elements if (is.list(x)) { k <- length(x) if (length(x) != length(ni)) stop(mstyle$stop("Argument 'ni' must be of the same length as there are elements in 'x'.")) res <- list() for (i in seq_len(k)) { res[[i]] <- rcalc(x[[i]], ni[i], upper=upper, rtoz=rtoz, sparse=sparse, ...) } if (is.null(names(x))) names(x) <- seq_len(k) if (simplify) { ki <- sapply(res, function(x) NROW(x$dat)) dat <- cbind(id=rep(names(x), times=ki), do.call(rbind, lapply(res, "[[", "dat"))) if (sparse) { V <- bdiag(lapply(res, "[[", "V")) } else { V <- bldiag(lapply(res, "[[", "V")) } rownames(V) <- colnames(V) <- unlist(lapply(res, function(x) rownames(x$V))) if (!is.null(ddd$rowid)) { rowid <- match(ddd$rowid, paste0(dat[[1]], ".", as.character(dat[[2]]), ".", dat[[1]], ".", as.character(dat[[3]]))) dat <- dat[rowid,] V <- V[rowid,rowid] } if (!is.null(ddd$vnames)) { names(dat)[1:3] <- ddd$vnames[c(4,2,3)] names(dat)[4] <- paste0(ddd$vnames[2], ".", ddd$vnames[3]) } if (!is.null(ddd$noid) && ddd$noid) { dat[[1]] <- NULL } rownames(dat) <- seq_len(nrow(dat)) return(list(dat=dat, V=V)) } else { names(res) <- names(x) return(res) } } ############################################################################ ### check if x is square matrix if (!is.matrix(x)) stop(mstyle$stop("Argument 'x' must be a matrix.")) if (dim(x)[1] != dim(x)[2]) stop(mstyle$stop("Argument 'x' must be a square matrix.")) ### set default dimension names dimsx <- nrow(x) dnames <- paste0("x", seq_len(dimsx)) ### in case x has dimension names, use those if (!is.null(rownames(x))) dnames <- rownames(x) if (!is.null(colnames(x))) dnames <- colnames(x) ### in case x is a 1x1 (or 0x0) matrix, return nothing if (dimsx <= 1L) return(list(dat=NULL, V=NULL)) ### make x symmetric, depending on whether we use upper or lower part if (upper) { x[lower.tri(x)] <- t(x)[lower.tri(x)] } else { x[upper.tri(x)] <- t(x)[upper.tri(x)] } ### check if x is symmetric (can be skipped since x must now be symmetric) #if (!isSymmetric(x)) # stop(mstyle$stop("Argument 'x' must be a symmetric matrix.")) ### stack upper/lower triangular part of x into a column vector (this is always done column-wise!) if (upper) { ri <- cbind(x[upper.tri(x)]) } else { ri <- cbind(x[lower.tri(x)]) } ### check that correlations are in [-1,1] if (any(abs(ri) > 1, na.rm=TRUE)) stop(mstyle$stop("One or more correlations are > 1 or < -1.")) ### check that sample sizes are > 0 if (isTRUE(ni <= 0)) stop(mstyle$stop("One or more sample sizes are <= 0.")) ### apply r-to-z transformation if requested if (rtoz) ri <- 1/2 * log((1 + ri)/(1 - ri)) ### I and J are matrices with 1:dimsx for rows and columns, respectively I <- matrix(seq_len(dimsx), nrow=dimsx, ncol=dimsx) J <- matrix(seq_len(dimsx), nrow=dimsx, ncol=dimsx, byrow=TRUE) ### get upper/lower triangular elements of I and J if (upper) { I <- I[upper.tri(I)] J <- J[upper.tri(J)] } else { I <- I[lower.tri(I)] J <- J[lower.tri(J)] } ### dimensions in V (must be dimsx*(dimsx-1)/2) dimsV <- length(ri) ### set up V matrix V <- matrix(NA_real_, nrow=dimsV, ncol=dimsV) for (ro in seq_len(dimsV)) { for (co in seq_len(dimsV)) { i <- I[ro] j <- J[ro] k <- I[co] l <- J[co] ### Olkin & Finn (1995), equation 5, page 157 V[ro,co] <- 1/2 * x[i,j]*x[k,l] * (x[i,k]^2 + x[i,l]^2 + x[j,k]^2 + x[j,l]^2) + x[i,k]*x[j,l] + x[i,l]*x[j,k] - (x[i,j]*x[i,k]*x[i,l] + x[j,i]*x[j,k]*x[j,l] + x[k,i]*x[k,j]*x[k,l] + x[l,i]*x[l,j]*x[l,k]) ### Steiger (1980), equation 2, page 245 (provides the same result) #V[ro,co] <- 1/2 * ((x[i,k] - x[i,j]*x[j,k]) * (x[j,l] - x[j,k]*x[k,l]) + # (x[i,l] - x[i,k]*x[k,l]) * (x[j,k] - x[j,i]*x[i,k]) + # (x[i,k] - x[i,l]*x[l,k]) * (x[j,l] - x[j,i]*x[i,l]) + # (x[i,l] - x[i,j]*x[j,l]) * (x[j,k] - x[j,l]*x[l,k])) ### Steiger (1980), equation 11, page 247 for r-to-z transformed values if (rtoz) V[ro,co] <- V[ro,co] / ((1 - x[i,j]^2) * (1 - x[k,l]^2)) } } ### divide V by (n-1) for raw correlations and by (n-3) for r-to-z transformed correlations if (isTRUE(ni >= 5)) { if (rtoz) { V <- V/(ni-3) } else { V <- V/(ni-1) } } else { V <- NA_real_*V } ### create matrix with var1 and var2 names and sort rowwise dmat <- cbind(dnames[I], dnames[J]) dmat <- t(apply(dmat, 1, sort)) ### set row/column names for V var1.var2 <- paste0(dmat[,1], ".", dmat[,2]) rownames(V) <- colnames(V) <- var1.var2 if (!sparse) class(V) <- c("vcovmat", class(V)) #return(list(dat=data.frame(var1=dmat[,1], var2=dmat[,2], var1.var2=var1.var2, yi=ri, vi=unname(diag(V)), ni=ni, stringsAsFactors=FALSE), V=V)) return(list(dat=data.frame(var1=dmat[,1], var2=dmat[,2], var1.var2=var1.var2, yi=ri, ni=ni, stringsAsFactors=FALSE), V=V)) } metafor/R/simulate.rma.r0000644000176200001440000000457615120213572014706 0ustar liggesuserssimulate.rma <- function(object, nsim=1, seed=NULL, olim, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma", notav=c("rma.gen", "rma.glmm", "rma.mh", "rma.peto", "rma.uni.selmodel")) if (is.null(object$X)) stop(mstyle$stop("Information needed to simulate values is not available in the model object.")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) ### as in stats:::simulate.lm if (!exists(".Random.seed", envir = .GlobalEnv, inherits = FALSE)) runif(1) if (is.null(seed)) { RNGstate <- get(".Random.seed", envir = .GlobalEnv) } else { R.seed <- get(".Random.seed", envir = .GlobalEnv) set.seed(seed) RNGstate <- structure(seed, kind = as.list(RNGkind())) on.exit(assign(".Random.seed", R.seed, envir = .GlobalEnv), add=TRUE) } nsim <- round(nsim) if (nsim <= 0) stop(mstyle$stop("Argument 'nsim' must be >= 1.")) ddd <- list(...) ######################################################################### ### fitted values pred <- c(object$X %*% object$beta) if (isTRUE(ddd$withvb)) { vcovpred <- symmpart(object$X %*% object$vb %*% t(object$X)) } else { vcovpred <- matrix(0, nrow=nrow(object$X), ncol=nrow(object$X)) } ### simulate for rma.uni (and rma.ls) objects if (inherits(object, "rma.uni")) val <- t(.mvrnorm(nsim, mu=pred, Sigma=vcovpred+object$M)) #val <- replicate(nsim, rnorm(object$k, mean=pred, sd=sqrt(object$vi + object$tau2))) ### simulate for rma.mv objects if (inherits(object, "rma.mv")) val <- t(.mvrnorm(nsim, mu=pred, Sigma=vcovpred+object$M)) ### apply observation/outcome limits if specified if (!missing(olim)) { if (length(olim) != 2L) stop(mstyle$stop("Argument 'olim' must be of length 2.")) olim <- sort(olim) val <- .applyolim(val, olim) } ######################################################################### res <- matrix(NA_real_, nrow=object$k.f, ncol=nsim) res[object$not.na,] <- val res <- as.data.frame(res) rownames(res) <- object$slab colnames(res) <- paste0("sim_", seq_len(nsim)) if (na.act == "na.omit") res <- res[object$not.na,,drop=FALSE] attr(res, "seed") <- RNGstate return(res) } metafor/R/print.rma.peto.r0000644000176200001440000000402415120213572015151 0ustar liggesusersprint.rma.peto <- function(x, digits, showfit=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.peto") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } .space() cat(mstyle$section("Equal-Effects Model")) cat(mstyle$section(paste0(" (k = ", x$k, ")"))) cat("\n") if (showfit) { fs <- fmtx(x$fit.stats$ML, digits[["fit"]]) names(fs) <- c("logLik", "deviance", "AIC", "BIC", "AICc") cat("\n") tmp <- capture.output(print(fs, quote=FALSE, print.gap=2)) #tmp[1] <- paste0(tmp[1], "\u200b") .print.table(tmp, mstyle) } cat("\n") if (!is.na(x$I2)) { cat(mstyle$text("I^2 (total heterogeneity / total variability): ")) cat(mstyle$result(paste0(fmtx(x$I2, 2), "%"))) cat("\n") } if (!is.na(x$H2)) { cat(mstyle$text("H^2 (total variability / sampling variability): ")) cat(mstyle$result(fmtx(x$H2, 2))) cat("\n") } if (!is.na(x$QE)) { cat("\n") cat(mstyle$section("Test for Heterogeneity:"), "\n") cat(mstyle$result(fmtt(x$QE, "Q", df=x$k.pos-1, pval=x$QEp, digits=digits))) } if (any(!is.na(c(x$I2, x$H2, x$QE)))) cat("\n\n") res.table <- c(estimate=fmtx(unname(x$beta), digits[["est"]]), se=fmtx(x$se, digits[["se"]]), zval=fmtx(x$zval, digits[["test"]]), pval=fmtp(x$pval, digits[["pval"]]), ci.lb=fmtx(x$ci.lb, digits[["ci"]]), ci.ub=fmtx(x$ci.ub, digits[["ci"]])) res.table.exp <- c(estimate=fmtx(exp(unname(x$beta)), digits[["est"]]), ci.lb=fmtx(exp(x$ci.lb), digits[["ci"]]), ci.ub=fmtx(exp(x$ci.ub), digits[["ci"]])) cat(mstyle$section("Model Results (log scale):")) cat("\n\n") tmp <- capture.output(.print.vector(res.table)) .print.table(tmp, mstyle) cat("\n") cat(mstyle$section("Model Results (OR scale):")) cat("\n\n") tmp <- capture.output(.print.vector(res.table.exp)) .print.table(tmp, mstyle) .space() invisible() } metafor/R/df.residual.rma.r0000644000176200001440000000026415120213572015251 0ustar liggesusersdf.residual.rma <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") df.resid <- object$k.eff - object$p.eff return(df.resid) } metafor/R/addpoly.predict.rma.r0000644000176200001440000000446615120213572016146 0ustar liggesusersaddpoly.predict.rma <- function(x, rows=-2, annotate, addpred=FALSE, predstyle, predlim, digits, width, mlab, transf, atransf, targs, efac, col, border, lty, fonts, cex, constarea=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="predict.rma") if (x$pred.type == "scale") stop(mstyle$stop("Cannot add polygons based on predicted scale values.")) if (missing(annotate)) annotate <- .getfromenv("forest", "annotate", default=TRUE) if (missing(predstyle)) { predstyle <- "line" } else { predstyle <- match.arg(predstyle, c("line", "polygon", "bar", "shade", "dist")) addpred <- TRUE } if (missing(predlim)) predlim <- NULL if (missing(digits)) digits <- .getfromenv("forest", "digits", default=2) if (missing(width)) width <- .getfromenv("forest", "width") if (missing(mlab)) mlab <- NULL if (missing(transf)) transf <- .getfromenv("forest", "transf", default=FALSE) if (missing(atransf)) atransf <- .getfromenv("forest", "atransf", default=FALSE) if (missing(targs)) targs <- .getfromenv("forest", "targs") if (missing(efac)) efac <- .getfromenv("forest", "efac") if (missing(col)) col <- par("fg") if (missing(border)) border <- par("fg") if (missing(lty)) lty <- "dotted" if (missing(fonts)) fonts <- .getfromenv("forest", "fonts") if (missing(cex)) cex <- .getfromenv("forest", "cex") if (addpred) { pi.lb <- x$pi.lb pi.ub <- x$pi.ub if (is.null(pi.lb) || is.null(pi.ub)) warning(mstyle$warning("Could not extract prediction interval bounds."), call.=FALSE) } else { pi.lb <- rep(NA_real_, length(x$pred)) pi.ub <- rep(NA_real_, length(x$pred)) } ######################################################################### addpoly(x$pred, ci.lb=x$ci.lb, ci.ub=x$ci.ub, pi.lb=pi.lb, pi.ub=pi.ub, rows=rows, annotate=annotate, predstyle=predstyle, predlim=predlim, digits=digits, width=width, mlab=mlab, transf=transf, atransf=atransf, targs=targs, efac=efac, col=col, border=border, lty=lty, fonts=fonts, cex=cex, constarea=constarea, ...) } metafor/R/cooks.distance.rma.mv.r0000644000176200001440000001316415120213572016404 0ustar liggesuserscooks.distance.rma.mv <- function(model, progbar=FALSE, cluster, reestimate=TRUE, parallel="no", ncpus=1, cl, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.mv") #if (inherits(model, "robust.rma")) # can compute Cook's distance also for 'robust.rma' objects # stop(mstyle$stop("Method not available for objects of class \"robust.rma\".")) na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) x <- model parallel <- match.arg(parallel, c("no", "snow", "multicore")) if (parallel == "no" && ncpus > 1) parallel <- "snow" if (missing(cl)) cl <- NULL if (!is.null(cl) && inherits(cl, "SOCKcluster")) { parallel <- "snow" ncpus <- length(cl) } if (parallel == "snow" && ncpus < 2) parallel <- "no" if (parallel == "snow" || parallel == "multicore") { if (!requireNamespace("parallel", quietly=TRUE)) stop(mstyle$stop("Please install the 'parallel' package for parallel processing.")) ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Argument 'ncpus' must be >= 1.")) } if (!progbar) { pbo <- pbapply::pboptions(type="none") on.exit(pbapply::pboptions(pbo), add=TRUE) } misscluster <- ifelse(missing(cluster), TRUE, FALSE) if (misscluster) { cluster <- seq_len(x$k.all) } else { mf <- match.call() cluster <- .getx("cluster", mf=mf, data=x$data) } ddd <- list(...) .chkdots(ddd, c("btt", "time", "LB", "code1", "code2")) btt <- .set.btt(ddd$btt, x$p, int.incl=FALSE, Xnames=colnames(x$X)) m <- length(btt) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### ### process cluster variable ### note: cluster variable must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing ### of NAs as was done during model fitting if (length(cluster) != x$k.all) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of the data (", x$k.all, ")."))) cluster <- .getsubset(cluster, x$subset) cluster.f <- cluster cluster <- cluster[x$not.na] ### checks on cluster variable if (anyNA(cluster.f)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster.f) == 0L) stop(mstyle$stop(paste0("Cannot find 'cluster' variable (or it has zero length)."))) ### cluster ids and number of clusters ids <- unique(cluster) n <- length(ids) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### ### calculate inverse of variance-covariance matrix under the full model svb <- chol2inv(chol(x$vb[btt,btt,drop=FALSE])) if (parallel == "no") res <- pbapply::pblapply(seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2) if (parallel == "multicore") res <- pbapply::pblapply(seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2, cl=ncpus) #res <- parallel::mclapply(seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2, mc.cores=ncpus) if (parallel == "snow") { if (is.null(cl)) { cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } if (isTRUE(ddd$LB)) { res <- parallel::parLapplyLB(cl, seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2) #res <- parallel::clusterApplyLB(cl, seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2) } else { res <- pbapply::pblapply(seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2, cl=cl) #res <- parallel::parLapply(cl, seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2) #res <- parallel::clusterApply(cl, seq_len(n), .cooks.distance.rma.mv, obj=x, parallel=parallel, svb=svb, cluster=cluster, ids=ids, reestimate=reestimate, btt=btt, code2=ddd$code2) } } cook.d <- sapply(res, function(x) x$cook.d) ######################################################################### if (na.act == "na.omit") { out <- cook.d if (misscluster) { names(out) <- x$slab[x$not.na] } else { names(out) <- ids out <- out[order(ids)] } } if (na.act == "na.exclude" || na.act == "na.pass") { ids.f <- unique(cluster.f) out <- rep(NA_real_, length(ids.f)) out[match(ids, ids.f)] <- cook.d if (misscluster) { names(out) <- x$slab } else { names(out) <- ids.f out <- out[order(ids.f)] } } if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } return(out) } metafor/R/print.infl.rma.uni.r0000644000176200001440000000175015120213572015727 0ustar liggesusersprint.infl.rma.uni <- function(x, digits=x$digits, infonly=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="infl.rma.uni") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) if (x$p == 1) { out <- list(rstudent=x$inf$rstudent, dffits=x$inf$dffits, cook.d=x$inf$cook.d, cov.r=x$inf$cov.r, tau2.del=x$inf$tau2.del, QE.del=x$inf$QE.del, hat=x$inf$hat, weight=x$inf$weight, dfbs=x$dfbs[[1]], inf=x$inf$inf, slab=x$inf$slab, digits=digits) class(out) <- "list.rma" if (infonly) out[["select"]] <- !is.na(x$is.infl) & x$is.infl } else { out <- x[1:2] out$inf[["digits"]] <- digits out$dfbs[["digits"]] <- digits attr(out$inf, ".rmspace") <- TRUE attr(out$dfbs, ".rmspace") <- TRUE if (infonly) { out$inf[["select"]] <- !is.na(x$is.infl) & x$is.infl out$dfbs[["select"]] <- !is.na(x$is.infl) & x$is.infl } } print(out) } metafor/R/cumul.rma.peto.r0000644000176200001440000001425315120213572015147 0ustar liggesuserscumul.rma.peto <- function(x, order, digits, transf, targs, collapse=FALSE, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="rma.peto") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in data.")) if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL ddd <- list(...) .chkdots(ddd, c("time", "decreasing", "code1", "code2")) if (isTRUE(ddd$time)) time.start <- proc.time() decreasing <- .chkddd(ddd$decreasing, FALSE) ######################################################################### if (grepl("^order\\(", deparse1(substitute(order)))) warning(mstyle$warning("Use of order() in the 'order' argument is probably erroneous."), call.=FALSE) if (missing(order)) { orvar <- seq_len(x$k.all) collapse <- FALSE } else { mf <- match.call() orvar <- .getx("order", mf=mf, data=x$data) if (length(orvar) != x$k.all) stop(mstyle$stop(paste0("Length of the 'order' argument (", length(orvar), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) } ### note: order variable must be of the same length as the original dataset ### so apply the same subsetting as was done during the model fitting orvar <- .getsubset(orvar, x$subset) ### order data by the order variable (NAs in order variable are dropped) order <- base::order(orvar, decreasing=decreasing, na.last=NA) ai <- x$outdat.f$ai[order] bi <- x$outdat.f$bi[order] ci <- x$outdat.f$ci[order] di <- x$outdat.f$di[order] yi <- x$yi.f[order] vi <- x$vi.f[order] not.na <- x$not.na[order] slab <- x$slab[order] ids <- x$ids[order] orvar <- orvar[order] if (inherits(x$data, "environment")) { data <- NULL } else { data <- x$data[order,] } if (collapse) { uorvar <- unique(orvar) } else { uorvar <- orvar } k.o <- length(uorvar) if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) k <- rep(NA_integer_, k.o) beta <- rep(NA_real_, k.o) se <- rep(NA_real_, k.o) zval <- rep(NA_real_, k.o) pval <- rep(NA_real_, k.o) ci.lb <- rep(NA_real_, k.o) ci.ub <- rep(NA_real_, k.o) QE <- rep(NA_real_, k.o) QEp <- rep(NA_real_, k.o) I2 <- rep(NA_real_, k.o) H2 <- rep(NA_real_, k.o) show <- rep(TRUE, k.o) ### elements that need to be returned outlist <- "k=k, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, QE=QE, QEp=QEp, I2=I2, H2=H2" if (progbar) pbar <- pbapply::startpb(min=0, max=k.o) for (i in seq_len(k.o)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) if (collapse) { if (all(!not.na[is.element(orvar, uorvar[i])])) { if (na.act == "na.omit") show[i] <- FALSE # if all studies to be added are !not.na, don't show (but a fit failure is still shown) next } incl <- is.element(orvar, uorvar[1:i]) } else { if (!not.na[i]) { if (na.act == "na.omit") show[i] <- FALSE # if study to be added is !not.na, don't show (but a fit failure is still shown) next } incl <- 1:i } args <- list(ai=ai, bi=bi, ci=ci, di=di, add=x$add, to=x$to, drop00=x$drop00, level=x$level, subset=incl, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.peto, args)), silent=TRUE) if (inherits(res, "try-error")) next k[i] <- res$k beta[i] <- res$beta se[i] <- res$se zval[i] <- res$zval pval[i] <- res$pval ci.lb[i] <- res$ci.lb ci.ub[i] <- res$ci.ub QE[i] <- res$QE QEp[i] <- res$QEp I2[i] <- res$I2 H2[i] <- res$H2 } if (progbar) pbapply::closepb(pbar) ######################################################################### ### if requested, apply transformation function if (isTRUE(transf)) # if transf=TRUE, apply exp transformation to ORs transf <- exp if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) se <- rep(NA_real_, k.o) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) se <- rep(NA_real_, k.o) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } transf <- TRUE } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### out <- list(k=k[show], estimate=beta[show], se=se[show], zval=zval[show], pval=pval[show], ci.lb=ci.lb[show], ci.ub=ci.ub[show], Q=QE[show], Qp=QEp[show], I2=I2[show], H2=H2[show]) if (collapse) { out$slab <- uorvar[show] out$slab.null <- FALSE } else { out$slab <- slab[show] out$ids <- ids[show] out$data <- data[show,,drop=FALSE] out$slab.null <- x$slab.null } out$order <- uorvar[show] out$digits <- digits out$transf <- transf out$level <- x$level out$test <- x$test if (!transf) { out$measure <- x$measure attr(out$estimate, "measure") <- x$measure } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(out) <- c("list.rma", "cumul.rma") return(out) } metafor/R/funnel.rma.r0000644000176200001440000005600015120213572014337 0ustar liggesusersfunnel.rma <- function(x, yaxis="sei", xlim, ylim, xlab, ylab, slab, steps=5, at, atransf, targs, digits, level=x$level, addtau2=FALSE, type="rstandard", back, shade, hlines, refline, lty=3, pch, pch.fill, col, bg, label=FALSE, offset=0.4, legend=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="rma") na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (is.null(x$yi) || is.null(x$vi)) stop(mstyle$stop("Information needed to construct the plot is not available in the model object.")) yaxis <- match.arg(yaxis, c("sei", "vi", "seinv", "vinv", "ni", "ninv", "sqrtni", "sqrtninv", "lni", "wi")) type <- match.arg(type, c("rstandard", "rstudent")) if (missing(atransf)) atransf <- FALSE atransf.char <- deparse(atransf) if (anyNA(level) || is.null(level)) stop(mstyle$stop("Argument 'level' cannot be NA or NULL.")) .start.plot() mf <- match.call() if (missing(back)) back <- .coladj(par("bg","fg"), dark=0.1, light=-0.2) if (missing(shade)) shade <- .coladj(par("bg","fg"), dark=c(0.2,-0.8), light=c(0,1)) if (length(level) > 1L && length(shade) == 1L) { #shade <- rep(shade, length(level)) shade2 <- .coladj(par("bg","fg"), dark=c(0.5,-0.3), light=c(-0.5,0.3)) shade <- colorRampPalette(c(shade,shade2))(length(level)) shade[-1] <- rev(shade[-1]) } if (missing(hlines)) hlines <- .coladj(par("bg","fg"), dark=c(0,-0.8), light=c(0,1)) if (!missing(refline) && is.null(refline)) refline <- NA #print(c(back=back, shade=shade, hlines=hlines)) if (missing(pch)) { pch <- 19 } else { pch <- .getx("pch", mf=mf, data=x$data) } if (missing(pch.fill)) pch.fill <- 21 ### check if sample size information is available if plotting (some function of) the sample sizes on the y-axis if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni"))) { if (is.null(x$ni)) stop(mstyle$stop("No sample size information stored in model object.")) if (anyNA(x$ni)) warning(mstyle$warning("Sample size information stored in model object\ncontains NAs. Not all studies will be plotted."), call.=FALSE) } ### set y-axis label if not specified if (missing(ylab)) { if (yaxis == "sei") ylab <- "Standard Error" if (yaxis == "vi") ylab <- "Variance" if (yaxis == "seinv") ylab <- "Inverse Standard Error" if (yaxis == "vinv") ylab <- "Inverse Variance" if (yaxis == "ni") ylab <- "Sample Size" if (yaxis == "ninv") ylab <- "Inverse Sample Size" if (yaxis == "sqrtni") ylab <- "Square Root Sample Size" if (yaxis == "sqrtninv") ylab <- "Inverse Square Root Sample Size" if (yaxis == "lni") ylab <- "Log Sample Size" if (yaxis == "wi") ylab <- "Weight (in %)" } if (missing(at)) at <- NULL if (missing(targs)) targs <- NULL ### default number of digits (if not specified) if (missing(digits)) { if (yaxis == "sei") digits <- c(2L,3L) if (yaxis == "vi") digits <- c(2L,3L) if (yaxis == "seinv") digits <- c(2L,3L) if (yaxis == "vinv") digits <- c(2L,3L) if (yaxis == "ni") digits <- c(2L,0L) if (yaxis == "ninv") digits <- c(2L,3L) if (yaxis == "sqrtni") digits <- c(2L,3L) if (yaxis == "sqrtninv") digits <- c(2L,3L) if (yaxis == "lni") digits <- c(2L,3L) if (yaxis == "wi") digits <- c(2L,2L) } else { if (length(digits) == 1L) # digits[1] for x-axis labels digits <- c(digits,digits) # digits[2] for y-axis labels } ### note: digits can also be a list (e.g., digits=list(2L,3)); trailing 0's are dropped for integers lty <- .expand1(lty, 2L) # 1st value = funnel lines, 2nd value = reference line ### note: slab, pch, col, and bg (if vectors) must be of the same length as the original dataset ### so we have to apply the same subsetting (if necessary) and removing of NAs as was ### done during the model fitting (note: NAs are removed further below) if (missing(slab)) { slab <- x$slab } else { slab <- .getx("slab", mf=mf, data=x$data) if (length(slab) != x$k.all) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) slab <- .getsubset(slab, x$subset) } if (length(pch) == 1L) { pch.vec <- FALSE pch <- rep(pch, x$k.all) } else { pch.vec <- TRUE } if (length(pch) != x$k.all) stop(mstyle$stop(paste0("Length of the 'pch' argument (", length(pch), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) pch <- .getsubset(pch, x$subset) if (!inherits(x, "rma.uni.trimfill")) { if (missing(col)) { col <- par("fg") } else { col <- .getx("col", mf=mf, data=x$data) } if (length(col) == 1L) { col.vec <- FALSE col <- rep(col, x$k.all) } else { col.vec <- TRUE } if (length(col) != x$k.all) stop(mstyle$stop(paste0("Length of the 'col' argument (", length(col), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) col <- .getsubset(col, x$subset) if (missing(bg)) { bg <- .coladj(par("bg","fg"), dark=0.1, light=-0.1) } else { bg <- .getx("bg", mf=mf, data=x$data) } if (length(bg) == 1L) { bg.vec <- FALSE bg <- rep(bg, x$k.all) } else { bg.vec <- TRUE } if (length(bg) != x$k.all) stop(mstyle$stop(paste0("Length of the 'bg' argument (", length(bg), ") does not correspond to the size of the original dataset (", x$k.all, ")."))) bg <- .getsubset(bg, x$subset) } else { ### for trimfill objects, 'col' and 'bg' are used to specify the colors of the observed and imputed data if (missing(col)) col <- c(par("fg"), par("fg")) if (length(col) == 1L) col <- c(col, par("fg")) col.vec <- FALSE if (missing(bg)) bg <- c(.coladj(par("bg","fg"), dark=0.6, light=-0.6), .coladj(par("bg","fg"), dark=0.1, light=-0.1)) if (length(bg) == 1L) bg <- c(bg, .coladj(par("bg","fg"), dark=0.1, light=-0.1)) bg.vec <- FALSE } if (length(label) != 1L) stop(mstyle$stop("Argument 'label' should be of length 1.")) ddd <- list(...) if (!is.null(ddd$transf)) warning("Function does not have a 'transf' argument (use 'atransf' instead).", call.=FALSE, immediate.=TRUE) lplot <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) plot(...) labline <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) abline(...) lsegments <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) segments(...) laxis <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) axis(...) lpolygon <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) polygon(...) llines <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) lines(...) lpoints <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) points(...) lrect <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) rect(...) ltext <- function(..., refline2, level2, lty2, colci, colref, colbox, transf, ci.res, at.lab) text(...) ### refline2, level2, and lty2 for adding a second reference line / funnel refline2 <- ddd$refline2 level2 <- .chkddd(ddd$level2, x$level) lty2 <- .chkddd(ddd$lty2, 3) ### number of y-axis values at which to calculate the bounds of the pseudo confidence interval ci.res <- .chkddd(ddd$ci.res, 1000) ### to adjust color of reference line, region bounds, and the L box colref <- .chkddd(ddd$colref, .coladj(par("bg","fg"), dark=0.6, light=-0.6)) colci <- .chkddd(ddd$colci, .coladj(par("bg","fg"), dark=0.6, light=-0.6)) colbox <- .chkddd(ddd$colbox, .coladj(par("bg","fg"), dark=0.6, light=-0.6)) ######################################################################### ### get values for the x-axis (and corresponding vi, sei, and ni values) ### if int.only, get the observed values; otherwise, get the (deleted) residuals if (x$int.only) { if (missing(refline)) refline <- c(x$beta) if (inherits(x, "rma.mv") && addtau2) { warning(mstyle$warning("Argument 'addtau2' ignored for 'rma.mv' models."), call.=FALSE) addtau2 <- FALSE } yi <- x$yi # yi/vi/ni is already subsetted and NAs are removed vi <- x$vi ni <- x$ni # ni can be NULL (and there may be 'additional' NAs) sei <- sqrt(vi) if (!is.null(x$not.na.yivi)) x$not.na <- x$not.na.yivi slab <- slab[x$not.na] # slab is subsetted but NAs are not removed, so still need to do this here pch <- pch[x$not.na] # same for pch if (!inherits(x, "rma.uni.trimfill")) { col <- col[x$not.na] bg <- bg[x$not.na] } else { fill <- x$fill[x$not.na] } if (missing(xlab)) xlab <- .setlab(x$measure, transf.char="FALSE", atransf.char, gentype=1) } else { if (missing(refline)) refline <- 0 if (addtau2) { warning(mstyle$warning("Argument 'addtau2' ignored for models that contain moderators."), call.=FALSE) addtau2 <- FALSE } options(na.action = "na.pass") # note: subsetted but include the NAs (there may be more # NAs than the ones in x$not.na (rstudent() can fail), if (type == "rstandard") { # so we don't use x$not.na below res <- rstandard(x) } else { res <- rstudent(x) } options(na.action = na.act) ### need to check for missings here not.na <- !is.na(res$resid) # vector of residuals is of size k.f and can includes NAs yi <- res$resid[not.na] sei <- res$se[not.na] ni <- x$ni.f[not.na] # ni can be NULL and can still include NAs vi <- sei^2 slab <- slab[not.na] pch <- pch[not.na] col <- col[not.na] bg <- bg[not.na] if (missing(xlab)) xlab <- "Residual Value" } if (inherits(x, "rma.ls") && addtau2) { warning(mstyle$warning("Argument 'addtau2' ignored for 'rma.ls' models."), call.=FALSE) addtau2 <- FALSE } tau2 <- ifelse(addtau2, x$tau2, 0) ### get weights (omit any NAs) if (yaxis == "wi") { options(na.action = "na.omit") weights <- weights(x) options(na.action = na.act) } ######################################################################### ### set y-axis limits if (missing(ylim)) { ### 1st ylim value is always the lowest precision (should be at the bottom of the plot) ### 2nd ylim value is always the highest precision (should be at the top of the plot) if (yaxis == "sei") ylim <- c(max(sei), 0) if (yaxis == "vi") ylim <- c(max(vi), 0) if (yaxis == "seinv") ylim <- c(min(1/sei), max(1/sei)) if (yaxis == "vinv") ylim <- c(min(1/vi), max(1/vi)) if (yaxis == "ni") ylim <- c(min(ni, na.rm=TRUE), max(ni, na.rm=TRUE)) if (yaxis == "ninv") ylim <- c(max(1/ni, na.rm=TRUE), min(1/ni, na.rm=TRUE)) if (yaxis == "sqrtni") ylim <- c(min(sqrt(ni), na.rm=TRUE), max(sqrt(ni), na.rm=TRUE)) if (yaxis == "sqrtninv") ylim <- c(max(1/sqrt(ni), na.rm=TRUE), min(1/sqrt(ni), na.rm=TRUE)) if (yaxis == "lni") ylim <- c(min(log(ni), na.rm=TRUE), max(log(ni), na.rm=TRUE)) if (yaxis == "wi") ylim <- c(min(weights), max(weights)) ### infinite y-axis limits can happen with "seinv" and "vinv" when one or more sampling variances are 0 if (any(is.infinite(ylim))) stop(mstyle$stop("Setting 'ylim' automatically not possible (must set y-axis limits manually).")) } else { ### make sure that user supplied limits are in the right order if (is.element(yaxis, c("sei", "vi", "ninv", "sqrtninv"))) ylim <- c(max(ylim), min(ylim)) if (is.element(yaxis, c("seinv", "vinv", "ni", "sqrtni", "lni", "wi"))) ylim <- c(min(ylim), max(ylim)) ### make sure that user supplied limits are in the appropriate range if (is.element(yaxis, c("sei", "vi", "ni", "ninv", "sqrtni", "sqrtninv", "lni"))) { if (ylim[1] < 0 || ylim[2] < 0) stop(mstyle$stop("Both y-axis limits must be >= 0.")) } if (is.element(yaxis, c("seinv", "vinv"))) { if (ylim[1] <= 0 || ylim[2] <= 0) stop(mstyle$stop("Both y-axis limits must be > 0.")) } if (is.element(yaxis, c("wi"))) { if (ylim[1] < 0 || ylim[2] < 0) stop(mstyle$stop("Both y-axis limits must be >= 0.")) } } ######################################################################### ### set x-axis limits if (is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) { level <- .level(level, allow.vector=TRUE) # note: there may be multiple level values level2 <- .level(level2) level.min <- min(level) # note: smallest level is the widest CI lvals <- length(level) ### calculate the CI bounds at the bottom of the figure (for the widest CI if there are multiple) if (yaxis == "sei") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1]^2 + tau2) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1]^2 + tau2) } if (yaxis == "vi") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1] + tau2) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(ylim[1] + tau2) } if (yaxis == "seinv") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1]^2 + tau2) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1]^2 + tau2) } if (yaxis == "vinv") { x.lb.bot <- refline - qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1] + tau2) x.ub.bot <- refline + qnorm(level.min/2, lower.tail=FALSE) * sqrt(1/ylim[1] + tau2) } if (missing(xlim)) { xlim <- c(min(x.lb.bot,min(yi),na.rm=TRUE), max(x.ub.bot,max(yi),na.rm=TRUE)) # make sure x-axis not only includes widest CI, but also all yi values rxlim <- xlim[2] - xlim[1] # calculate range of the x-axis limits xlim[1] <- xlim[1] - (rxlim * 0.10) # subtract 10% of range from lower x-axis bound xlim[2] <- xlim[2] + (rxlim * 0.10) # add 10% of range to upper x-axis bound } else { xlim <- sort(xlim) # just in case the user supplies the limits in the wrong order } } if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni", "wi"))) { if (missing(xlim)) { xlim <- c(min(yi), max(yi)) rxlim <- xlim[2] - xlim[1] # calculate range of the x-axis limits xlim[1] <- xlim[1] - (rxlim * 0.10) # subtract 10% of range from lower x-axis bound xlim[2] <- xlim[2] + (rxlim * 0.10) # add 10% of range to upper x-axis bound } else { xlim <- sort(xlim) # just in case the user supplies the limits in the wrong order } } ### if user has specified 'at' argument, make sure xlim actually contains the min and max 'at' values if (!is.null(at)) { xlim[1] <- min(c(xlim[1], at), na.rm=TRUE) xlim[2] <- max(c(xlim[2], at), na.rm=TRUE) } ######################################################################### ### set up plot lplot(NA, NA, xlim=xlim, ylim=ylim, xlab=xlab, ylab=ylab, xaxt="n", yaxt="n", bty="n", ...) ### add background shading par.usr <- par("usr") lrect(par.usr[1], par.usr[3], par.usr[2], par.usr[4], col=back, border=NA, ...) ### add y-axis laxis(side=2, at=seq(from=ylim[1], to=ylim[2], length.out=steps), labels=fmtx(seq(from=ylim[1], to=ylim[2], length.out=steps), digits[[2]], drop0ifint=TRUE), ...) ### add horizontal lines labline(h=seq(from=ylim[1], to=ylim[2], length.out=steps), col=hlines, ...) ######################################################################### ### add CI region(s) if (is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) { ### add a bit to the top/bottom ylim so that the CI region(s) fill out the entire figure if (yaxis == "sei") { rylim <- ylim[1] - ylim[2] ylim[1] <- ylim[1] + (rylim * 0.10) ylim[2] <- max(0, ylim[2] - (rylim * 0.10)) } if (yaxis == "vi") { rylim <- ylim[1] - ylim[2] ylim[1] <- ylim[1] + (rylim * 0.10) ylim[2] <- max(0, ylim[2] - (rylim * 0.10)) } if (yaxis == "seinv") { rylim <- ylim[2] - ylim[1] #ylim[1] <- max(0.0001, ylim[1] - (rylim * 0.10)) # not clear how much to add to bottom ylim[2] <- ylim[2] + (rylim * 0.10) } if (yaxis == "vinv") { rylim <- ylim[2] - ylim[1] #ylim[1] <- max(0.0001, ylim[1] - (rylim * 0.10)) # not clear how much to add to bottom ylim[2] <- ylim[2] + (rylim * 0.10) } yi.vals <- seq(from=ylim[1], to=ylim[2], length.out=ci.res) if (yaxis == "sei") vi.vals <- yi.vals^2 if (yaxis == "vi") vi.vals <- yi.vals if (yaxis == "seinv") vi.vals <- 1/yi.vals^2 if (yaxis == "vinv") vi.vals <- 1/yi.vals for (m in lvals:1) { ci.left <- refline - qnorm(level[m]/2, lower.tail=FALSE) * sqrt(vi.vals + tau2) ci.right <- refline + qnorm(level[m]/2, lower.tail=FALSE) * sqrt(vi.vals + tau2) lpolygon(c(ci.left,ci.right[ci.res:1]), c(yi.vals,yi.vals[ci.res:1]), border=NA, col=shade[m], ...) llines(ci.left, yi.vals, lty=lty[1], col=colci, ...) llines(ci.right, yi.vals, lty=lty[1], col=colci, ...) } if (!is.null(refline2)) { ci.left <- refline2 - qnorm(level2/2, lower.tail=FALSE) * sqrt(vi.vals + tau2) ci.right <- refline2 + qnorm(level2/2, lower.tail=FALSE) * sqrt(vi.vals + tau2) llines(ci.left, yi.vals, lty=lty2, col=colci, ...) llines(ci.right, yi.vals, lty=lty2, col=colci, ...) } } ### add vertical reference line ### use segments so that line does not extent beyond tip of CI region if (is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) lsegments(refline, ylim[1], refline, ylim[2], lty=lty[2], col=colref, ...) if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni", "wi"))) labline(v=refline, lty=lty[2], col=colref, ...) if (!is.null(refline2)) { if (is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) lsegments(refline2, ylim[1], refline2, ylim[2], lty=lty2, col=colref, ...) if (is.element(yaxis, c("ni", "ninv", "sqrtni", "sqrtninv", "lni", "wi"))) labline(v=refline2, lty=lty2, col=colref, ...) } ######################################################################### ### add points xaxis.vals <- yi if (yaxis == "sei") yaxis.vals <- sei if (yaxis == "vi") yaxis.vals <- vi if (yaxis == "seinv") yaxis.vals <- 1/sei if (yaxis == "vinv") yaxis.vals <- 1/vi if (yaxis == "ni") yaxis.vals <- ni if (yaxis == "ninv") yaxis.vals <- 1/ni if (yaxis == "sqrtni") yaxis.vals <- sqrt(ni) if (yaxis == "sqrtninv") yaxis.vals <- 1/sqrt(ni) if (yaxis == "lni") yaxis.vals <- log(ni) if (yaxis == "wi") yaxis.vals <- weights if (!inherits(x, "rma.uni.trimfill")) { lpoints(x=xaxis.vals, y=yaxis.vals, pch=pch, col=col, bg=bg, ...) } else { lpoints(x=xaxis.vals[!fill], y=yaxis.vals[!fill], pch=pch, col=col[1], bg=bg[1], ...) lpoints(x=xaxis.vals[fill], y=yaxis.vals[fill], pch=pch.fill, col=col[2], bg=bg[2], ...) } ######################################################################### ### generate x-axis positions if none are specified if (is.null(at)) { at <- axTicks(side=1) #at <- pretty(x=c(alim[1], alim[2]), n=steps-1) #at <- pretty(x=c(min(ci.lb), max(ci.ub)), n=steps-1) } else { at <- at[at > par("usr")[1]] at <- at[at < par("usr")[2]] } if (is.null(ddd$at.lab)) { at.lab <- at if (is.function(atransf)) { if (is.null(targs)) { at.lab <- fmtx(sapply(at.lab, atransf), digits[[1]], drop0ifint=TRUE) } else { if (!is.primitive(atransf) && !is.null(targs) && length(formals(atransf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) at.lab <- fmtx(sapply(at.lab, atransf, targs), digits[[1]], drop0ifint=TRUE) } } else { at.lab <- fmtx(at.lab, digits[[1]], drop0ifint=TRUE) } } else { at.lab <- ddd$at.lab } ### add x-axis laxis(side=1, at=at, labels=at.lab, ...) ### add L-shaped box around plot if (!is.na(colbox)) box(bty="l", col=colbox) ############################################################################ ### labeling of points k <- length(yi) if (is.numeric(label) || is.character(label) || isTRUE(label)) { if (is.na(refline)) refline <- mean(yi, na.rm=TRUE) if (is.numeric(label)) { label <- round(label) if (label < 0) label <- 0 if (label > k) label <- k label <- order(abs(yi - refline), decreasing=TRUE)[seq_len(label)] } else if ((is.character(label) && label == "all") || isTRUE(label)) { label <- seq_len(k) } else if ((is.character(label) && label == "out")) { if (!is.element(yaxis, c("sei", "vi", "seinv", "vinv"))) { label <- seq_len(k) } else { label <- which(abs(yi - refline) / sqrt(vi + tau2) >= qnorm(level.min/2, lower.tail=FALSE)) } } else { label <- NULL } for (i in label) ltext(yi[i], yaxis.vals[i], slab[i], pos=ifelse(yi[i]-refline >= 0, 4, 2), offset=offset, ...) } ######################################################################### ### add legend (if requested) .funnel.legend(legend, level, shade, back, yaxis, trimfill=inherits(x, "rma.uni.trimfill"), pch, col, bg, pch.fill, pch.vec, col.vec, bg.vec, colci) ############################################################################ ### prepare data frame to return sav <- data.frame(x=xaxis.vals, y=yaxis.vals, slab=slab, stringsAsFactors=FALSE) if (inherits(x, "rma.uni.trimfill")) sav$fill <- fill invisible(sav) } metafor/R/deltamethod.r0000644000176200001440000001157615120213572014575 0ustar liggesusersdeltamethod <- function(x, vcov, fun, order=1, level, H0=0, digits) { mstyle <- .get.mstyle() if (!requireNamespace("calculus", quietly=TRUE)) stop(mstyle$stop("Please install the 'calculus' package to use this function.")) if (missing(vcov)) vcov <- NULL if (!is.function(fun)) stop(mstyle$stop("Argument 'fun' must be a function.")) if (!is.element(order, c(1,2))) stop(mstyle$stop("Argument 'order' must be equal to 1 or 2.")) ######################################################################### if (.is.vector(x)) { ### when x is a vector of coefficients coef <- x if (is.null(vcov)) stop(mstyle$stop("Must specify the 'vcov' argument when 'x' is a vector.")) } else { ### when x is not a vector (and then presumably a model object) coef <- try(coef(x)) if (inherits(coef, "try-error")) stop(mstyle$stop("Cannot extract coefficients via coef() from 'x'.")) if (!is.null(vcov)) warning(mstyle$warning("Argument 'vcov' ignored when 'x' is a model object.")) vcov <- try(vcov(x)) if (inherits(vcov, "try-error")) stop(mstyle$stop("Cannot extract var-cov matrix via vcov() from 'x'.")) if (is.list(coef) && names(coef)[1] == "beta") coef <- coef$beta if (is.list(vcov) && names(vcov)[1] == "beta") vcov <- vcov$beta } if (inherits(x, "rma")) { if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(level)) level <- x$level } else { if (missing(digits)) digits <- c(est=4, se=4, test=4, pval=4, ci=4) if (length(digits) == 1L) digits <- c(est=digits, se=digits, test=digits, pval=digits, ci=digits) if (missing(level)) level <- 95 } ######################################################################### if (.is.vector(vcov) || nrow(vcov) == 1L || ncol(vcov) == 1L) vcov <- .diag(as.vector(vcov)) if (!.is.square(vcov)) stop(mstyle$stop("Argument 'vcov' must be a square matrix.")) if (!is.null(dimnames(vcov))) vcov <- unname(vcov) if (!isSymmetric(vcov)) stop(mstyle$stop("Argument 'vcov' must be a symmetric matrix.")) p <- length(coef) pvcov <- nrow(vcov) if (p != pvcov) stop(mstyle$stop(paste0("Length of the 'coef' vector (", p, ") does not match the dimensions of 'vcov' (", pvcov, "x", pvcov, ")."))) args <- formalArgs(fun) if (length(args) == 1L) { coef <- unname(coef) coef.transf <- try(fun(coef)) } else { if (length(args) != p) stop(mstyle$stop(paste0("Number of function arguments (", length(args), ") does not match the number of coefficients (", p, ")."))) names(coef) <- args coef.transf <- try(do.call(fun, args=as.list(coef))) } if (inherits(coef.transf, "try-error")) stop(mstyle$stop("Error when applying the function to the coefficient(s).")) if (!.is.vector(coef.transf)) stop(mstyle$stop("Specified function does not return an atomic vector.")) grad <- try(calculus::derivative(fun, var=coef, drop=FALSE)) if (inherits(grad, "try-error")) stop(mstyle$stop("Error when computing the gradient.")) if (ncol(grad) != p) stop(mstyle$stop(paste0("Length of the gradient (", ncol(grad), ") does not match the dimensions of 'vcov' (", pvcov, "x", pvcov, ")."))) if (order == 2) { Hessian <- try(calculus::hessian(fun, var=coef, accuracy=4, drop=TRUE)) if (inherits(Hessian, "try-error")) stop(mstyle$stop("Error when computing the Hessian.")) } q <- length(coef.transf) if (length(H0) == 1L) H0 <- rep(H0, q) if (length(H0) != q) stop(mstyle$stop(paste0("Length of the 'H0' argument (", length(H0), ") does not match the number of transformed coefficients (", q, ")."))) ######################################################################### level <- .level(level) if (order == 1) { vcov.transf <- grad %*% vcov %*% t(grad) } else { vcov.transf <- grad %*% vcov %*% t(grad) + 1/2 * .tr(Hessian %*% vcov %*% vcov %*% Hessian) } rownames(vcov.transf) <- colnames(vcov.transf) <- names(coef.transf) crit <- qnorm(level/2, lower.tail=FALSE) se.transf <- sqrt(diag(vcov.transf)) ci.lb <- coef.transf - crit * se.transf ci.ub <- coef.transf + crit * se.transf zval <- (coef.transf - H0) / se.transf pval <- 2*pnorm(abs(zval), lower.tail=FALSE) ######################################################################### res <- list(tab = data.frame(coef=coef.transf, se=se.transf, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub), vcov=vcov.transf, level=level, digits=digits, test="z") rownames(res$tab) <- names(coef.transf) class(res) <- "deltamethod" return(res) } metafor/R/leave1out.r0000644000176200001440000000007015120213572014173 0ustar liggesusersleave1out <- function(x, ...) UseMethod("leave1out") metafor/R/plot.permutest.rma.uni.r0000644000176200001440000004004515120213572016651 0ustar liggesusersplot.permutest.rma.uni <- function(x, beta, alpha, QM=FALSE, QS=FALSE, breaks="Scott", freq=FALSE, col, border, col.out, col.ref, col.density, trim=0, adjust=1, lwd=c(2,0,0,4), legend=FALSE, ...) { ######################################################################### mstyle <- .get.mstyle() .chkclass(class(x), must="permutest.rma.uni") .start.plot() if (missing(col)) col <- .coladj(par("bg","fg"), dark=0.3, light=-0.3) if (missing(border)) border <- .coladj(par("bg"), dark=0.1, light=-0.1) if (missing(col.out)) col.out <- ifelse(.is.dark(), rgb(0.7,0.15,0.15,0.5), rgb(1,0,0,0.5)) if (missing(col.ref)) col.ref <- .coladj(par("fg"), dark=-0.3, light=0.3) if (missing(col.density)) col.density <- ifelse(.is.dark(), "dodgerblue", "blue") ddd <- list(...) alternative <- .chkddd(ddd$alternative, x$alternative, match.arg(ddd$alternative, c("two.sided", "less", "greater"))) p2defn <- .chkddd(ddd$p2defn, x$p2defn, match.arg(ddd$p2defn, c("abs", "px2"))) stat <- .chkddd(ddd$stat, x$stat, match.arg(ddd$stat, c("test", "coef"))) if (!is.null(ddd$layout)) warning(mstyle$warning("Argument 'layout' has been deprecated."), call.=FALSE) ### check trim if (trim >= 0.5) stop(mstyle$stop("The value of 'trim' must be < 0.5.")) # 1st: obs stat, 2nd: ref dist, 3rd: density, 4th: refline if (length(lwd) == 1L) lwd <- c(lwd[c(1,1,1)], 4) if (length(lwd) == 2L) lwd <- c(lwd[c(1,2,2)], 4) if (length(lwd) == 3L) lwd <- c(lwd[c(1,2,2,3)]) # cannot plot ref dist and density when freq=TRUE if (freq) lwd[c(2,3)] <- 0 lhist <- function(..., alternative, p2defn, stat, layout) hist(...) labline <- function(..., alternative, p2defn, stat, layout) abline(...) llines <- function(..., alternative, p2defn, stat, layout) lines(...) ############################################################################ if (x$skip.beta) { beta <- NULL } else { if (missing(beta)) { if (x$int.only) { beta <- 1 } else { if (x$int.incl) { beta <- 2:x$p } else { beta <- 1:x$p } } } else { if (all(is.na(beta))) { # set beta=NA to not plot any location coefficients beta <- NULL } else { beta <- .set.btt(beta, x$p, x$int.incl, names(x$zval.perm)) } } } if (stat == "test") { perm1 <- x$zval.perm[beta] obs1 <- x$zval[beta] } else { perm1 <- x$beta.perm[beta] obs1 <- x$beta[beta,1] } if (x$int.only || x$skip.beta) { QM.perm <- NULL } else { if (QM) { QM.perm <- x$QM.perm } else { QM.perm <- NULL } } if (inherits(x, "permutest.rma.ls") && !x$skip.alpha) { if (missing(alpha)) { if (x$Z.int.only) { alpha <- 1 } else { if (x$Z.int.incl) { alpha <- 2:x$q } else { alpha <- 1:x$q } } } else { if (all(is.na(alpha))) { # set alpha=NA to not plot any scale coefficients alpha <- NULL } else { alpha <- .set.btt(alpha, x$q, x$Z.int.incl, names(x$zval.perm.alpha)) } } if (stat == "test") { perm2 <- x$zval.alpha.perm[alpha] obs2 <- x$zval.alpha[alpha] } else { perm2 <- x$alpha.perm[alpha] obs2 <- x$alpha[alpha,1] } if (QS) { QS.perm <- x$QS.perm } else { QS.perm <- NULL } } else { alpha <- NULL QS.perm <- NULL } ############################################################################ ### function to add legend addlegend <- function(legend, cex) { lopts <- list(x = "topright", y = NULL, inset = 0.01, cex = 1) if (is.list(legend)) { # replace defaults with any user-defined values lopts.pos <- pmatch(names(legend), names(lopts)) lopts[c(na.omit(lopts.pos))] <- legend[!is.na(lopts.pos)] legend <- TRUE } else { if (is.character(legend)) { lopts$x <- legend legend <- TRUE } else { if (!is.logical(legend)) stop(mstyle$stop("Argument 'legend' must either be logical, a string, or a list."), call.=FALSE) } } if (legend && any(lwd[2:3] > 0)) { ltxt <- c("Kernel Density Estimate of\nthe Permutation Distribution", "Theoretical Null Distribution") lwds <- lwd[3:2] lcols <- c(col.density, col.ref) ltys <- c("solid", "solid") #pchs <- c("","","\u2506") # \u250a ltxt <- ltxt[lwds > 0] lcols <- lcols[lwds > 0] ltys <- ltys[lwds > 0] #pchs <- pchs[lwds > 0] lwds <- lwds[lwds > 0] legend(x=lopts$x, y=lopts$y, inset=lopts$inset, bg=.coladj(par("bg"), dark=0, light=0), lwd=lwds, col=lcols, lty=ltys, legend=ltxt, cex=lopts$cex) } return(FALSE) } ############################################################################ # determine number of plots and set mfrow appropriately if needed np <- length(beta) + length(alpha) + ifelse(is.null(QM.perm), 0L, 1L) + ifelse(is.null(QS.perm), 0L, 1L) if (np == 0L) stop(mstyle$stop("Must select at least one elements to plot.")) if (np > 1L) { # if no plotting device is open or mfrow is too small, set mfrow appropriately if (dev.cur() == 1L || prod(par("mfrow")) < np) par(mfrow=n2mfrow(np)) on.exit(par(mfrow=c(1L,1L)), add=TRUE) } ############################################################################ if (!is.null(QM.perm)) { pdist <- QM.perm if (is.na(x$ddf)) { xs <- seq(0, max(qchisq(0.995, df=length(x$btt)), max(pdist, na.rm=TRUE)), length.out=1000) ys <- dchisq(xs, df=length(x$btt)) } else { xs <- seq(0, max(qf(0.995, df1=length(x$btt), df2=x$ddf), max(pdist, na.rm=TRUE)), length.out=1000) ys <- df(xs, df1=length(x$btt), df2=x$ddf) } den <- density(pdist, adjust=adjust, na.rm=TRUE, n=8192) if (trim > 0) { bound <- quantile(pdist, probs=1-trim, na.rm=TRUE) pdist <- pdist[pdist <= bound] } if (lwd[2] == 0 && lwd[3] == 0) { tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main=ifelse(inherits(x, "permutest.rma.ls"), "Omnibus Test of Location Coefficients", "Omnibus Test of Coefficients"), xlab="Value of Test Statistic", freq=freq, ...) } else { tmp <- lhist(pdist, breaks=breaks, plot=FALSE) ylim <- c(0, max(ifelse(lwd[2] == 0, 0, max(ys)), ifelse(lwd[3] == 0, 0, max(den$y)), max(tmp$density))) tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main=ifelse(inherits(x, "permutest.rma.ls"), "Omnibus Test of Location Coefficients", "Omnibus Test of Coefficients"), xlab="Value of Test Statistic", freq=freq, ylim=ylim, ...) } .coltail(tmp, val=x$QM, tail="upper", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=x$QM, lwd=lwd[1], lty="dashed", ...) if (lwd[2] > 0) llines(xs, ys, lwd=lwd[2], col=col.ref, ...) if (lwd[3] > 0) llines(den, lwd=lwd[3], col=col.density, ...) legend <- addlegend(legend) } for (i in seq_len(ncol(perm1))) { pdist <- perm1[[i]] if (is.na(x$ddf)) { xs <- seq(min(-qnorm(0.995), min(pdist, na.rm=TRUE)), max(qnorm(0.995), max(pdist, na.rm=TRUE)), length.out=1000) ys <- dnorm(xs) } else { xs <- seq(min(-qt(0.995, df=x$ddf), min(pdist, na.rm=TRUE)), max(qt(0.995, df=x$ddf), max(pdist, na.rm=TRUE)), length.out=1000) ys <- dt(xs, df=x$ddf) } den <- density(pdist, adjust=adjust, na.rm=TRUE, n=8192) if (trim > 0) { bounds <- quantile(pdist, probs=c(trim/2, 1-trim/2), na.rm=TRUE) pdist <- pdist[pdist >= bounds[1] & pdist <= bounds[2]] } if (lwd[2] == 0 && lwd[3] == 0) { tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main=ifelse(np==1L, "", paste0(ifelse(inherits(x, "permutest.rma.ls"), "Location Coefficient: ", "Coefficient: "), names(perm1)[i])), xlab=ifelse(stat == "test", "Value of Test Statistic", "Value of Coefficient"), freq=freq, ...) } else { tmp <- lhist(pdist, breaks=breaks, plot=FALSE) ylim <- c(0, max(ifelse(lwd[2] == 0, 0, max(ys)), ifelse(lwd[3] == 0, 0, max(den$y)), max(tmp$density))) tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main=ifelse(np==1L, "", paste0(ifelse(inherits(x, "permutest.rma.ls"), "Location Coefficient: ", "Coefficient: "), names(perm1)[i])), xlab=ifelse(stat == "test", "Value of Test Statistic", "Value of Coefficient"), freq=freq, ylim=ylim, ...) } if (alternative == "two.sided") { if (p2defn == "abs") { .coltail(tmp, val=-abs(obs1[i]), tail="lower", col=col.out, border=border, freq=freq, ...) .coltail(tmp, val= abs(obs1[i]), tail="upper", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=c(-obs1[i],obs1[i]), lwd=lwd[1], lty="dashed", ...) } else { if (obs1[i] > median(pdist, na.rm=TRUE)) { .coltail(tmp, val= abs(obs1[i]), tail="upper", mult=2, col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=obs1[i], lwd=lwd[1], lty="dashed", ...) } else { .coltail(tmp, val=-abs(obs1[i]), tail="lower", mult=2, col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=-abs(obs1[i]), lwd=lwd[1], lty="dashed", ...) } } } if (alternative == "less") { .coltail(tmp, val=obs1[i], tail="lower", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=obs1[i], lwd=lwd[1], lty="dashed", ...) } if (alternative == "greater") { .coltail(tmp, val=obs1[i], tail="upper", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=obs1[i], lwd=lwd[1], lty="dashed", ...) } if (lwd[2] > 0) llines(xs, ys, lwd=lwd[2], col=col.ref, ...) if (lwd[3] > 0) llines(den, lwd=lwd[3], col=col.density, ...) if (lwd[4] > 0) labline(v=0, lwd=lwd[4], ...) legend <- addlegend(legend) } if (inherits(x, "permutest.rma.ls")) { if (!is.null(QS.perm)) { pdist <- QS.perm if (is.na(x$ddf.alpha)) { xs <- seq(0, max(qchisq(0.995, df=length(x$att)), max(pdist, na.rm=TRUE)), length.out=1000) ys <- dchisq(xs, df=length(x$att)) } else { xs <- seq(0, max(qf(0.995, df1=length(x$att), df2=x$ddf.alpha), max(pdist, na.rm=TRUE)), length.out=1000) ys <- df(xs, df1=length(x$att), df2=x$ddf.alpha) } den <- density(pdist, adjust=adjust, na.rm=TRUE, n=8192) if (trim > 0) { bound <- quantile(pdist, probs=1-trim, na.rm=TRUE) pdist <- pdist[pdist <= bound] } if (lwd[2] == 0 && lwd[3] == 0) { tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main="Omnibus Test of Scale Coefficients", xlab="Value of Test Statistic", freq=freq, ...) } else { tmp <- lhist(pdist, breaks=breaks, plot=FALSE) ylim <- c(0, max(ifelse(lwd[2] == 0, 0, max(ys)), ifelse(lwd[3] == 0, 0, max(den$y)), max(tmp$density))) tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main="Omnibus Test of Scale Coefficients", xlab="Value of Test Statistic", freq=freq, ylim=ylim, ...) } .coltail(tmp, val=x$QS, tail="upper", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=x$QS, lwd=lwd[1], lty="dashed", ...) if (lwd[2] > 0) llines(xs, ys, lwd=lwd[2], col=col.ref, ...) if (lwd[3] > 0) llines(den, lwd=lwd[3], col=col.density, ...) legend <- addlegend(legend) } for (i in seq_len(ncol(perm2))) { pdist <- perm2[[i]] if (is.na(x$ddf.alpha)) { xs <- seq(min(-qnorm(0.995), min(pdist, na.rm=TRUE)), max(qnorm(0.995), max(pdist, na.rm=TRUE)), length.out=1000) ys <- dnorm(xs) } else { xs <- seq(min(-qt(0.995, df=x$ddf.alpha), min(pdist, na.rm=TRUE)), max(qt(0.995, df=x$ddf.alpha), max(pdist, na.rm=TRUE)), length.out=1000) ys <- dt(xs, df=x$ddf.alpha) } den <- density(pdist, adjust=adjust, na.rm=TRUE, n=8192) if (trim > 0) { bounds <- quantile(pdist, probs=c(trim/2, 1-trim/2), na.rm=TRUE) pdist <- pdist[pdist >= bounds[1] & pdist <= bounds[2]] } if (lwd[2] == 0 && lwd[3] == 0) { tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main=ifelse(np==1L, "", paste0("Scale Coefficient: ", names(perm2)[i])), xlab=ifelse(stat == "test", "Value of Test Statistic", "Value of Coefficient"), freq=freq, ...) } else { tmp <- lhist(pdist, breaks=breaks, plot=FALSE) ylim <- c(0, max(ifelse(lwd[2] == 0, 0, max(ys)), ifelse(lwd[3] == 0, 0, max(den$y)), max(tmp$density))) tmp <- lhist(pdist, breaks=breaks, col=col, border=border, main=ifelse(np==1L, "", paste0("Scale Coefficient: ", names(perm2)[i])), xlab=ifelse(stat == "test", "Value of Test Statistic", "Value of Coefficient"), freq=freq, ylim=ylim, ...) } if (alternative == "two.sided") { if (p2defn == "abs") { .coltail(tmp, val=-abs(obs2[i]), tail="lower", col=col.out, border=border, freq=freq, ...) .coltail(tmp, val= abs(obs2[i]), tail="upper", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=c(-obs2[i],obs2[i]), lwd=lwd[1], lty="dashed", ...) } else { if (obs2[i] > median(pdist, na.rm=TRUE)) { .coltail(tmp, val= abs(obs2[i]), tail="upper", mult=2, col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=obs2[i], lwd=lwd[1], lty="dashed", ...) } else { .coltail(tmp, val=-abs(obs2[i]), tail="lower", mult=2, col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=-abs(obs2[i]), lwd=lwd[1], lty="dashed", ...) } } } if (alternative == "less") { .coltail(tmp, val=obs2[i], tail="lower", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=obs2[i], lwd=lwd[1], lty="dashed", ...) } if (alternative == "greater") { .coltail(tmp, val=obs2[i], tail="upper", col=col.out, border=border, freq=freq, ...) if (lwd[1] > 0) labline(v=obs2[i], lwd=lwd[1], lty="dashed", ...) } if (lwd[2] > 0) llines(xs, ys, lwd=lwd[2], col=col.ref, ...) if (lwd[3] > 0) llines(den, lwd=lwd[3], col=col.density, ...) if (lwd[4] > 0) labline(v=0, lwd=lwd[4], ...) legend <- addlegend(legend) } } ############################################################################ invisible() } metafor/R/misc.func.hidden.rma.ls.r0000644000176200001440000001335215130152406016606 0ustar liggesusers############################################################################ .mapfun.alpha <- function(x, lb, ub) { if (is.infinite(lb) || is.infinite(ub)) { x } else { lb + (ub-lb) / (1 + exp(-x)) # map (-inf,inf) to (lb,ub) } } .mapinvfun.alpha <- function(x, lb, ub) { if (is.infinite(lb) || is.infinite(ub)) { x } else { log((x-lb)/(ub-x)) } } ############################################################################ # -1 times the log-likelihood (regular or restricted) for location-scale models .ll.rma.ls <- function(par, yi, vi, X, Z, reml, alpha.arg, beta.arg, omega2.arg, verbose, digits, REMLf, link, mZ, alpha.min, alpha.max, alpha.transf, omega2.transf, tau2.min, tau2.max, optbeta, randhet, mfmaxit) { mstyle <- .get.mstyle() k <- length(yi) p <- ncol(X) if (randhet) { omega2 <- par[length(par)] if (omega2.transf) omega2 <- exp(omega2) omega2[!is.na(omega2.arg)] <- omega2.arg omega2[omega2 < .Machine$double.eps*10] <- 0 par <- par[-length(par)] } else { omega2 <- 0 } if (optbeta) { beta <- par[seq_len(p)] beta <- ifelse(is.na(beta.arg), beta, beta.arg) alpha <- par[-seq_len(p)] } else { alpha <- par } if (alpha.transf) alpha <- mapply(.mapfun.alpha, alpha, alpha.min, alpha.max) alpha <- ifelse(is.na(alpha.arg), alpha, alpha.arg) # compute predicted tau2 values if (link == "log") { tau2 <- exp(c(Z %*% alpha)) } else { tau2 <- c(Z %*% alpha) } if (anyNA(tau2) || any(tau2 < tau2.min) || any(tau2 > tau2.max) || is.na(omega2)) { llval <- -Inf llcomp <- FALSE } else { llcomp <- TRUE if (any(tau2 < 0)) { llval <- -Inf llcomp <- FALSE } else { if (omega2 <= sqrt(.Machine$double.eps)) randhet <- FALSE if (randhet) { llcomp <- FALSE lli <- rep(NA_real_, k) intfun <- function(hi, yi, vi, Xi, Zi, beta, alpha, omega2) dnorm(yi, mean = c(Xi %*% beta), sd = sqrt(vi + exp(c(Zi %*% alpha) + hi))) * dnorm(hi, mean = 0, sd = sqrt(omega2)) for (i in 1:k) { tmp <- try(integrate(intfun, lower=-Inf, upper=Inf, stop.on.error=FALSE, yi=yi[i], vi=vi[i], Xi=X[i,,drop=FALSE], Zi=Z[i,,drop=FALSE], beta=beta, alpha=alpha, omega2=omega2), silent=TRUE) if (inherits(tmp, "try-error")) { lli[i] <- Inf break } else { lli[i] <- tmp$value } } llval <- sum(log(lli), na.rm=TRUE) } else { # compute weights / weight matrix wi <- 1/(vi + tau2) W <- diag(wi, nrow=k, ncol=k) if (!optbeta) { stXWX <- try(.invcalc(X=X, W=W, k=k), silent=TRUE) if (inherits(stXWX, "try-error")) { llval <- -Inf llcomp <- FALSE } else { beta <- stXWX %*% crossprod(X,W) %*% as.matrix(yi) } } } } } if (llcomp) { # compute residual sum of squares RSS <- sum(wi*c(yi - X %*% beta)^2) # compute log-likelihood if (!reml) { llval <- -1/2 * (k) * log(2*base::pi) - 1/2 * sum(log(vi + tau2)) - 1/2 * RSS } else { llval <- -1/2 * (k-p) * log(2*base::pi) + ifelse(REMLf, 1/2 * determinant(crossprod(X), logarithm=TRUE)$modulus, 0) + -1/2 * sum(log(vi + tau2)) - 1/2 * determinant(crossprod(X,W) %*% X, logarithm=TRUE)$modulus - 1/2 * RSS } } if (!is.null(mZ)) alpha <- mZ %*% alpha iteration <- .getfromenv("iteration", default=NULL) if (isTRUE(iteration > mfmaxit)) stop(mstyle$stop(paste0("Maximum number of iterations (mfmaxit=", mfmaxit, ") reached.")), call.=FALSE) if (verbose) { if (!is.null(iteration)) cat(mstyle$verbose(paste0("Iteration ", formatC(iteration, width=5, flag="-", format="f", digits=0), " "))) cat(mstyle$verbose(paste0("ll = ", fmtx(llval, digits[["fit"]], flag=" ")))) if (optbeta) cat(mstyle$verbose(paste0(" beta = ", paste(fmtx(beta, digits[["est"]], flag=" "), collapse=" ")))) cat(mstyle$verbose(paste0(" alpha = ", paste(fmtx(alpha, digits[["est"]], flag=" "), collapse=" ")))) if (randhet) cat(mstyle$verbose(paste0(" omega2 = ", paste(fmtx(omega2, digits[["var"]]), collapse=" ")))) cat("\n") } try(assign("iteration", iteration+1, envir=.metafor), silent=TRUE) return(-1 * llval) } .rma.ls.ineqfun.pos <- function(par, yi, vi, X, Z, reml, alpha.arg, beta.arg, omega2.arg, verbose, digits, REMLf, link, mZ, alpha.min, alpha.max, alpha.transf, omega2.transf, tau2.min, tau2.max, optbeta, randhet, mfmaxit) { if (optbeta) { alpha <- par[-seq_len(ncol(X))] } else { alpha <- par } if (alpha.transf) alpha <- mapply(.mapfun.alpha, alpha, alpha.min, alpha.max) alpha <- ifelse(is.na(alpha.arg), alpha, alpha.arg) tau2 <- c(Z %*% alpha) return(tau2) } .rma.ls.ineqfun.neg <- function(par, yi, vi, X, Z, reml, alpha.arg, beta.arg, omega2.arg, verbose, digits, REMLf, link, mZ, alpha.min, alpha.max, alpha.transf, omega2.transf, tau2.min, tau2.max, optbeta, randhet, mfmaxit) { if (optbeta) { alpha <- par[-seq_len(ncol(X))] } else { alpha <- par } if (alpha.transf) alpha <- mapply(.mapfun.alpha, alpha, alpha.min, alpha.max) alpha <- ifelse(is.na(alpha.arg), alpha, alpha.arg) tau2 <- -c(Z %*% alpha) return(tau2) } ############################################################################ metafor/R/misc.func.hidden.escalc.r0000644000176200001440000002536015120213572016647 0ustar liggesusers############################################################################ ### c(m) calculation function for bias correction of SMDs or SMCC/SMCRs .cmicalc <- function(mi, correct=TRUE) { ### this can overflow if mi is 'large' (if mi >= 344) #cmi <- gamma(mi/2)/(sqrt(mi/2)*gamma((mi-1)/2)) ### catch those cases and apply the approximate formula (which is accurate then) #is.na <- is.na(cmi) #cmi[is.na] <- 1 - 3/(4*mi[is.na] - 1) if (correct) { # this avoids the problem with overflow altogether cmi <- ifelse(mi <= 1, NA_real_, exp(lgamma(mi/2) - log(sqrt(mi/2)) - lgamma((mi-1)/2))) } else { cmi <- rep(1, length(mi)) } return(cmi) } ############################################################################ ### function to compute the tetrachoric correlation coefficient and its sampling variance .rtet <- function(ai, bi, ci, di, maxcor=.9999) { mstyle <- .get.mstyle() if (!requireNamespace("mvtnorm", quietly=TRUE)) stop(mstyle$stop("Please install the 'mvtnorm' package to compute this measure."), call.=FALSE) fn <- function(par, ai, bi, ci, di, maxcor, fixcut=FALSE) { rho <- par[1] cut.row <- par[2] cut.col <- par[3] ### truncate rho values outside of specified bounds if (abs(rho) > maxcor) rho <- sign(rho) * maxcor ### to substitute fixed cut values if (fixcut) { cut.row <- qnorm((ai+bi)/ni) cut.col <- qnorm((ai+ci)/ni) } # │ ci | di # ci = lo X and hi Y di = hi X and hi Y # var Y │----+---- # # │ ai | bi # ai = lo X and lo Y bi = hi X and lo Y # ┼───────── # var X # # lo hi # +----+----+ # lo | ai | bi | # +----+----+ var Y # hi | ci | di | # +----+----+ # var X R <- matrix(c(1,rho,rho,1), nrow=2, ncol=2) p.ai <- mvtnorm::pmvnorm(lower=c(-Inf,-Inf), upper=c(cut.col,cut.row), corr=R) p.bi <- mvtnorm::pmvnorm(lower=c(cut.col,-Inf), upper=c(+Inf,cut.row), corr=R) p.ci <- mvtnorm::pmvnorm(lower=c(-Inf,cut.row), upper=c(cut.col,+Inf), corr=R) p.di <- mvtnorm::pmvnorm(lower=c(cut.col,cut.row), upper=c(+Inf,+Inf), corr=R) ### in principle, should be able to compute these values with the following code, but this ### leads to more numerical instabilities when optimizing (possibly due to negative values) #p.y.lo <- pnorm(cut.row) #p.x.lo <- pnorm(cut.col) #p.ai <- mvtnorm::pmvnorm(lower=c(-Inf,-Inf), upper=c(cut.col,cut.row), corr=R) #p.bi <- p.y.lo - p.ai #p.ci <- p.x.lo - p.ai #p.di <- 1 - p.ai - p.bi - p.ci if (any(p.ai <= 0 || p.bi <= 0 || p.ci <= 0 || p.di <= 0)) { ll <- -Inf } else { ll <- ai*log(p.ai) + bi*log(p.bi) + ci*log(p.ci) + di*log(p.di) } return(-ll) } ni <- ai + bi + ci + di ### if one of the margins is equal to zero, then r_tet could in principle be equal to any value, ### but we define it here to be zero (presuming independence until evidence of dependence is found) ### but with infinite variance if ((ai + bi) == 0L || (ci + di) == 0L || (ai + ci) == 0L || (bi + di) == 0L) return(list(yi=0, vi=Inf)) ### if bi and ci is zero, then r_tet must be +1 with zero variance if (bi == 0L && ci == 0L) return(list(yi=1, vi=0)) ### if ai and di is zero, then r_tet must be -1 with zero variance if (ai == 0L && di == 0L) return(list(yi=-1, vi=0)) ### cases where only one cell is equal to zero are handled further below ### in all other cases, first optimize over rho with cut values set to the sample values ### use suppressWarnings() to suppress "NA/Inf replaced by maximum positive value" warnings res <- try(suppressWarnings(optimize(fn, interval=c(-1,1), ai=ai, bi=bi, ci=ci, di=di, maxcor=maxcor, fixcut=TRUE)), silent=TRUE) ### check for non-convergence if (inherits(res, "try-error")) { warning(mstyle$warning("Could not estimate tetrachoric correlation coefficient."), call.=FALSE) return(list(yi=NA, vi=NA)) } ### then use the value as the starting point and maximize over rho and the cut values ### (Nelder-Mead seems to do fine here; using L-BFGS-B doesn't seem to improve on this) res <- try(optim(par=c(res$minimum,qnorm((ai+bi)/ni),qnorm((ai+ci)/ni)), fn, ai=ai, bi=bi, ci=ci, di=di, maxcor=maxcor, fixcut=FALSE, hessian=TRUE), silent=TRUE) #res <- try(optim(par=c(res$minimum,qnorm((ai+bi)/ni),qnorm((ai+ci)/ni)), fn, method="L-BFGS-B", lower=c(-1,-Inf,-Inf), upper=c(1,Inf,Inf), ai=ai, bi=bi, ci=ci, di=di, maxcor=maxcor, fixcut=FALSE, hessian=TRUE), silent=TRUE) ### check for non-convergence if (inherits(res, "try-error")) { warning(mstyle$warning("Could not estimate tetrachoric correlation coefficient."), call.=FALSE) return(list(yi=NA, vi=NA)) } ### take inverse of hessian and extract variance for estimate ### (using hessian() seems to lead to more problems, so stick with hessian from optim()) vi <- try(chol2inv(chol(res$hessian))[1,1], silent=TRUE) #res$hessian <- try(chol2inv(chol(numDeriv::hessian(fn, x=res$par, ai=ai, bi=bi, ci=ci, di=di, maxcor=maxcor, fixcut=FALSE))), silent=TRUE) ### check for problems with computing the inverse if (inherits(vi, "try-error")) { warning(mstyle$warning("Could not estimate sampling variance of tetrachoric correlation coefficient."), call.=FALSE) vi <- NA } ### extract estimate yi <- res$par[1] ### but if bi or ci is zero, then r_tet must be +1 if (bi == 0 || ci == 0) yi <- 1 ### but if ai or di is zero, then r_tet must be -1 if (ai == 0 || di == 0) yi <- -1 ### note: what is the right variance when there is one zero cell? ### vi as estimated gets smaller as the table becomes more and more like ### a table with 0 diagonal/off-diagonal, which intuitively makes sense ### return estimate and sampling variance (and SE) return(list(yi=yi, vi=vi, sei=sqrt(vi))) ### Could consider implementing the Fisher scoring algorithm; first derivatives and ### elements of the information matrix are given in Tallis (1962). Could also consider ### estimating the variance from the inverse of the information matrix. But constructing ### the information matrix takes a bit of extra work and it is not clear to me how to ### handle estimated cell probabilities that go to zero here. } ############################################################################ ### function to calculate the Gaussian hypergeometric (Hypergeometric2F1) function .Fcalc <- function(a, b, g, x) { mstyle <- .get.mstyle() if (!requireNamespace("gsl", quietly=TRUE)) stop(mstyle$stop("Please install the 'gsl' package to use measure='UCOR'."), call.=FALSE) k.g <- length(g) k.x <- length(x) k <- max(k.g, k.x) res <- rep(NA_real_, k) if (k.g == 1L) g <- rep(g, k) if (k.x == 1L) x <- rep(x, k) if (length(g) != length(x)) stop(mstyle$stop("Length of the 'g' and 'x' arguments are not the same.")) for (i in seq_len(k)) { if (!is.na(g[i]) && !is.na(x[i]) && g[i] > (a+b)) { res[i] <- gsl::hyperg_2F1(a, b, g[i], x[i]) } else { res[i] <- NA } } return(res) } ############################################################################ ### pdf of SMD (with or without bias correction) .dsmd <- function(x, n1, n2, theta, correct=TRUE, xisg=FALSE, warn=FALSE) { nt <- n1 * n2 / (n1 + n2) m <- n1 + n2 - 2 cm <- .cmicalc(m) if (xisg) x <- x / cm if (!correct) cm <- 1 if (warn) { res <- dt(x * sqrt(nt) / cm, df = m, ncp = sqrt(nt) * theta) * sqrt(nt) / cm } else { res <- suppressWarnings(dt(x * sqrt(nt) / cm, df = m, ncp = sqrt(nt) * theta) * sqrt(nt) / cm) } return(res) } #integrate(function(x) .dsmd(x, n1=4, n2=4, theta=.5), lower=-Inf, upper=Inf) #integrate(function(x) x*.dsmd(x, n1=4, n2=4, theta=.5), lower=-Inf, upper=Inf) ### pdf of COR .dcor <- function(x, n, rho) { x[x < -1] <- NA x[x > 1] <- NA ### only accurate for n >= 5 n[n <= 4] <- NA ### calculate density res <- exp(log(n-2) + lgamma(n-1) + (n-1)/2 * log(1 - rho^2) + (n-4)/2 * log(1 - x^2) - 1/2 * log(2*base::pi) - lgamma(n-1/2) - (n-3/2) * log(1 - rho*x)) * .Fcalc(1/2, 1/2, n-1/2, (rho*x + 1)/2) ### make sure that density is 0 for r = +-1 res[abs(x) == 1] <- 0 return(res) } #integrate(function(x) .dcor(x, n=5, rho=.8), lower=-1, upper=1) #integrate(function(x) x*.dcor(x, n=5, rho=.8), lower=-1, upper=1) # should not be rho due to bias! #integrate(function(x) x*.Fcalc(1/2, 1/2, (5-2)/2, 1-x^2)*.dcor(x, n=5, rho=.8), lower=-1, upper=1) # should be ~rho ### pdf of ZCOR .dzcor <- function(x, n, rho, zrho) { ### only accurate for n >= 5 n[n <= 4] <- NA ### if rho is missing, then back-transform zrho value(s) if (missing(rho)) rho <- tanh(zrho) ### copy x to z and back-transform z values (so x = correlation) z <- x x <- tanh(z) ### calculate density res <- exp(log(n-2) + lgamma(n-1) + (n-1)/2 * log(1 - rho^2) + (n-4)/2 * log(1 - x^2) - 1/2 * log(2*base::pi) - lgamma(n-1/2) - (n-3/2) * log(1 - rho*x) + log(4) + 2*z - 2*log(exp(2*z) + 1)) * .Fcalc(1/2, 1/2, n-1/2, (rho*x + 1)/2) ### make sure that density is 0 for r = +-1 res[abs(x) == 1] <- 0 return(res) } #integrate(function(x) .dzcor(x, n=5, rho=.8), lower=-100, upper=100) #integrate(function(x) x*.dzcor(x, n=5, rho=.8), lower=-100, upper=100) ### pdf of ARAW .daraw <- function(x, n, m, alpha) { res <- df((1-x)/(1-alpha), (n-1)*(m-1), (n-1)) / (1-alpha) res[alpha >= 1] <- 0 res[alpha <= -1] <- 0 return(res) } #integrate(function(x) .daraw(x, n=10, m=2, alpha=.8), lower=-Inf, upper=Inf) #integrate(function(x) x*.daraw(x, n=10, m=2, alpha=.8), lower=-Inf, upper=Inf) ############################################################################ ### function to convert p-values to t-statistics (need this to catch NULL ### since sign(NULL) and qt(NULL) throw errors) .convp2t <- function(pval, df) { if (is.null(pval)) return(NULL) df <- ifelse(df < 1, NA, df) pval <- ifelse(abs(pval) > 1, NA, pval) sign(pval) * qt(abs(pval)/2, df=df, lower.tail=FALSE) } ### function to convert p-values to F-statistics (need this to catch NULL ### since qf(NULL) throws an error) .convp2f <- function(pval, df1, df2) { if (is.null(pval)) return(NULL) df1 <- ifelse(df1 < 1, NA, df1) df2 <- ifelse(df2 < 1, NA, df2) pval <- ifelse(pval < 0, NA, pval) pval <- ifelse(pval > 1, NA, pval) qf(pval, df1=df1, df2=df2, lower.tail=FALSE) } ############################################################################ metafor/R/vcov.rma.r0000644000176200001440000000771015120213572014031 0ustar liggesusersvcov.rma <- function(object, type="fixed", ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) type <- match.arg(type, c("fixed", "beta", "alpha", "delta", "obs", "fitted", "resid")) ######################################################################### if (type=="fixed") { out <- object$vb if (inherits(object, "rma.ls")) out <- list(beta = object$vb, alpha = object$va) if (inherits(object, "rma.uni.selmodel")) out <- list(beta = object$vb, delta = object$vd) return(out) } if (type=="beta") { out <- object$vb return(out) } if (type=="alpha") { if (!inherits(object, "rma.ls")) stop(mstyle$stop("Can only extract var-cov matrix of alpha coefficients for location-scale models.")) out <- object$va return(out) } if (type=="delta") { if (!inherits(object, "rma.uni.selmodel")) stop(mstyle$stop("Can only extract var-cov matrix of delta coefficients for selection models.")) out <- object$vd return(out) } ######################################################################### if (type=="obs") { if (inherits(object, c("rma.uni","rma.mv"))) { out <- matrix(NA_real_, nrow=object$k.f, ncol=object$k.f) out[object$not.na, object$not.na] <- as.matrix(object$M) # as.matrix() needed when sparse=TRUE rownames(out) <- colnames(out) <- object$slab if (na.act == "na.omit") out <- out[object$not.na, object$not.na] if (na.act == "na.fail" && any(!object$not.na)) stop(mstyle$stop("Missing values in data.")) if (!inherits(out, "sparseMatrix")) class(out) <- c("vcovmat", class(out)) return(out) } else { stop(mstyle$stop("Extraction of marginal var-cov matrix not available for objects of this class.")) } } ######################################################################### if (type=="fitted") { out <- object$X.f %*% object$vb %*% t(object$X.f) rownames(out) <- colnames(out) <- object$slab if (na.act == "na.omit") out <- out[object$not.na, object$not.na] if (na.act == "na.exclude" || na.act == "na.pass") { out[!object$not.na,] <- NA_real_ out[,!object$not.na] <- NA_real_ } if (!inherits(out, "sparseMatrix")) class(out) <- c("vcovmat", class(out)) return(out) } ######################################################################### if (type=="resid") { ### the SEs of the residuals cannot be estimated consistently for "robust.rma" objects if (inherits(object, c("robust.rma", "rma.gen"))) stop(mstyle$stop("Extraction of var-cov matrix of the residuals not available for objects of this type.")) options(na.action="na.omit") H <- hatvalues(object, type="matrix") options(na.action = na.act) ImH <- diag(object$k) - H if (inherits(object, "robust.rma")) { ve <- ImH %*% tcrossprod(object$meat,ImH) } else { ve <- ImH %*% tcrossprod(as.matrix(object$M),ImH) # as.matrix() needed when sparse=TRUE } if (na.act == "na.omit") { out <- ve rownames(out) <- colnames(out) <- object$slab[object$not.na] } if (na.act == "na.exclude" || na.act == "na.pass") { out <- matrix(NA_real_, nrow=object$k.f, ncol=object$k.f) out[object$not.na, object$not.na] <- ve rownames(out) <- colnames(out) <- object$slab } if (!inherits(out, "sparseMatrix")) class(out) <- c("vcovmat", class(out)) return(out) } ######################################################################### } metafor/R/influence.rma.uni.r0000644000176200001440000002301215120213572015607 0ustar liggesusersinfluence.rma.uni <- function(model, digits, progbar=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(model), must="rma.uni", notav=c("rma.ls", "rma.gen", "rma.uni.selmodel")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (is.null(model$yi) || is.null(model$vi)) stop(mstyle$stop("Information needed is not available in the model object.")) x <- model if (x$k == 1L) stop(mstyle$stop("Stopped because k = 1.")) ddd <- list(...) .chkdots(ddd, c("btt", "measure", "time", "code1", "code2")) btt <- .set.btt(ddd$btt, x$p, int.incl=FALSE, Xnames=colnames(x$X)) # note: 1:p by default (also in models with intercept) m <- length(btt) measure <- .chkddd(ddd$measure, "all") if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (!measure == "cooks.distance" && inherits(model, "robust.rma")) stop(mstyle$stop("Method not available for objects of class \"robust.rma\".")) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd[["code1"]])) eval(expr = parse(text = ddd[["code1"]])) ######################################################################### tau2.del <- rep(NA_real_, x$k) delpred <- rep(NA_real_, x$k) vdelpred <- rep(NA_real_, x$k) s2w.del <- rep(NA_real_, x$k) QE.del <- rep(NA_real_, x$k) dffits <- rep(NA_real_, x$k) dfbs <- matrix(NA_real_, nrow=x$k, ncol=x$p) cook.d <- rep(NA_real_, x$k) cov.r <- rep(NA_real_, x$k) weight <- rep(NA_real_, x$k) ### predicted values under the full model pred.full <- x$X %*% x$beta ### calculate inverse of variance-covariance matrix under the full model (needed for the Cook's distances) svb <- chol2inv(chol(x$vb[btt,btt,drop=FALSE])) ### also need stXAX/stXX and H matrix for DFFITS calculation when not using the standard weights if (x$weighted) { if (!is.null(x$weights)) { A <- .diag(x$weights) stXAX <- .invcalc(X=x$X, W=A, k=x$k) H <- x$X %*% stXAX %*% t(x$X) %*% A } } else { stXX <- .invcalc(X=x$X, W=diag(x$k), k=x$k) H <- x$X %*% stXX %*% t(x$X) } ### hat values options(na.action = "na.omit") hat <- hatvalues(x) options(na.action = na.act) ### elements that need to be returned outlist <- "coef.na=coef.na, tau2=tau2, QE=QE, beta=beta, vb=vb, s2w=s2w" ### note: skipping NA cases ### also: it is possible that model fitting fails, so that generates more NAs (these NAs will always be shown in output) if (progbar) pbar <- pbapply::startpb(min=0, max=x$k) for (i in seq_len(x$k)) { if (progbar) pbapply::setpb(pbar, i) if (!is.null(ddd[["code2"]])) eval(expr = parse(text = ddd[["code2"]])) args <- list(yi=x$yi, vi=x$vi, weights=x$weights, mods=x$X, intercept=FALSE, method=x$method, weighted=x$weighted, test=x$test, level=x$level, tau2=ifelse(x$tau2.fix, x$tau2, NA), control=x$control, subset=-i, skipr2=TRUE, outlist=outlist) res <- try(suppressWarnings(.do.call(rma.uni, args)), silent=TRUE) if (inherits(res, "try-error")) next ### removing an observation could lead to a model coefficient becoming inestimable if (any(res$coef.na)) next ### save tau2.del and QE.del values tau2.del[i] <- res$tau2 QE.del[i] <- res$QE ### 'deleted' predicted value for the ith observation based on the model without the ith observation included Xi <- matrix(x$X[i,], nrow=1) delpred[i] <- Xi %*% res$beta vdelpred[i] <- Xi %*% tcrossprod(res$vb,Xi) s2w.del[i] <- res$s2w ### compute DFFITS if (x$weighted) { if (is.null(x$weights)) { dffits[i] <- (pred.full[i] - delpred[i]) / sqrt(res$s2w * hat[i] * (tau2.del[i] + x$vi[i])) } else { dffits[i] <- (pred.full[i] - delpred[i]) / sqrt(res$s2w * diag(H %*% .diag(tau2.del[i] + x$vi) %*% t(H)))[i] } } else { dffits[i] <- (pred.full[i] - delpred[i]) / sqrt(res$s2w * diag(H %*% .diag(tau2.del[i] + x$vi) %*% t(H)))[i] } #dffits[i] <- (pred.full[i] - delpred[i]) / sqrt(vdelpred[i]) ### compute var-cov matrix of the fixed effects for the full model, but with tau2.del[i] plugged in if (x$weighted) { if (is.null(x$weights)) { vb.del <- .invcalc(X=x$X, W=.diag(1/(x$vi+tau2.del[i])), k=x$k) } else { vb.del <- tcrossprod(stXAX,x$X) %*% A %*% .diag(x$vi+tau2.del[i]) %*% A %*% x$X %*% stXAX } } else { vb.del <- tcrossprod(stXX,x$X) %*% .diag(x$vi+tau2.del[i]) %*% x$X %*% stXX } ### compute DFBETA and DFBETAS dfb <- x$beta - res$beta dfbs[i,] <- dfb / sqrt(res$s2w * diag(vb.del)) #dfbs[i,] <- dfb / sqrt(diag(res$vb)) ### compute DFBETA (including coefficients as specified via btt) dfb <- x$beta[btt] - res$beta[btt] ### compute Cook's distance cook.d[i] <- crossprod(dfb,svb) %*% dfb # / x$p #cook.d[i] <- sum(1/(x$vi+tau2.del[i]) * (pred.full - x$X %*% res$beta)^2) # / x$p #cook.d[i] <- sum(1/(x$vi+x$tau2) * (pred.full - x$X %*% res$beta)^2) # / x$p ### compute covariance ratio cov.r[i] <- det(res$vb[btt,btt,drop=FALSE]) / det(x$vb[btt,btt,drop=FALSE]) } if (progbar) pbapply::closepb(pbar) ### calculate studentized residual resid <- x$yi - delpred resid[abs(resid) < 100 * .Machine$double.eps] <- 0 #resid[abs(resid) < 100 * .Machine$double.eps * median(abs(resid), na.rm=TRUE)] <- 0 # see lm.influence #seresid <- sqrt(x$vi + vdelpred + tau2.del) seresid <- sqrt(x$vi * s2w.del + vdelpred + tau2.del * s2w.del) # this yields the same results as a mean shift outlier model when using test="knha" stresid <- resid / seresid ### extract weights options(na.action="na.omit") weight <- weights(x) options(na.action = na.act) ######################################################################### inf <- matrix(NA_real_, nrow=x$k.f, ncol=8) inf[x$not.na,] <- cbind(stresid, dffits, cook.d, cov.r, tau2.del, QE.del, hat, weight) colnames(inf) <- c("rstudent", "dffits", "cook.d", "cov.r", "tau2.del", "QE.del", "hat", "weight") inf <- data.frame(inf) tmp <- dfbs dfbs <- matrix(NA_real_, nrow=x$k.f, ncol=x$p) dfbs[x$not.na,] <- tmp colnames(dfbs) <- rownames(x$beta) dfbs <- data.frame(dfbs) ######################################################################### ### determine "influential" cases is.infl <- #abs(inf$rstudent) > qnorm(0.975) | abs(inf$dffits) > 3*sqrt(x$p/(x$k-x$p)) | pchisq(inf$cook.d, df=m) > 0.50 | #inf$cov.r > 1 + 3*m/(x$k-m) | #inf$cov.r < 1 - 3*m/(x$k-m) | inf$hat > 3*x$p/x$k | apply(abs(dfbs) > 1, 1, any) # consider using rowAnys() from matrixStats package #print(is.infl) ######################################################################### if (na.act == "na.omit") { out <- list(rstudent=inf$rstudent[x$not.na], dffits=inf$dffits[x$not.na], cook.d=inf$cook.d[x$not.na], cov.r=inf$cov.r[x$not.na], tau2.del=inf$tau2.del[x$not.na], QE.del=inf$QE.del[x$not.na], hat=inf$hat[x$not.na], weight=inf$weight[x$not.na], inf=ifelse(is.infl & !is.na(is.infl), "*", "")[x$not.na], slab=x$slab[x$not.na], digits=digits) out <- list(inf=out) out$dfbs <- lapply(dfbs, function(z) z[x$not.na]) out$dfbs <- c(out$dfbs, list(slab=x$slab[x$not.na], digits=digits)) out <- c(out, list(ids=x$ids[x$not.na], not.na=x$not.na[x$not.na], is.infl=is.infl[x$not.na])) } if (na.act == "na.exclude" || na.act == "na.pass") { out <- list(rstudent=inf$rstudent, dffits=inf$dffits, cook.d=inf$cook.d, cov.r=inf$cov.r, tau2.del=inf$tau2.del, QE.del=inf$QE.del, hat=inf$hat, weight=inf$weight, inf=ifelse(is.infl & !is.na(is.infl), "*", ""), slab=x$slab, digits=digits) out <- list(inf=out) out$dfbs <- lapply(dfbs, function(z) z) out$dfbs <- c(out$dfbs, list(slab=x$slab, digits=digits)) out <- c(out, list(ids=x$ids, not.na=x$not.na, is.infl=is.infl)) } out <- c(out, list(tau2=x$tau2, QE=x$QE, k=x$k, p=x$p, m=m, digits=digits)) if (na.act == "na.fail" && any(!x$not.na)) stop(mstyle$stop("Missing values in results.")) class(out$inf) <- c("list.rma") class(out$dfbs) <- c("list.rma") class(out) <- c("infl.rma.uni") if (measure == "cooks.distance") { names(out$inf$cook.d) <- out$inf$slab out <- out$inf$cook.d } if (measure == "dfbetas") out <- out$dfbs if (measure == "rstudent") { if (na.act == "na.omit") { resid.f <- c(resid) seresid.f <- c(seresid) stresid.f <- c(stresid) } if (na.act == "na.exclude" || na.act == "na.pass") { resid.f <- rep(NA_real_, x$k.f) seresid.f <- rep(NA_real_, x$k.f) stresid.f <- rep(NA_real_, x$k.f) resid.f[x$not.na] <- c(resid) seresid.f[x$not.na] <- c(seresid) stresid.f[x$not.na] <- c(stresid) } out <- list(resid=resid.f, se=seresid.f, z=stresid.f, slab=out$inf$slab, digits=digits) class(out) <- c("list.rma") } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } return(out) } metafor/R/confint.rma.uni.r0000644000176200001440000005507115120213572015311 0ustar liggesusers# What would be most consistent is this: # if method='ML/REML': profile likelihood (PL) CI (based on the ML/REML likelihood) # if method='EB/PM/PMM': Q-profile (QP) CI # if method='GENQ/GENQM': generalized Q-statistic (GENQ) CI (which also covers method='DL/HE' as special cases) # if method='SJ': method by Sidik & Jonkman (2005) (but this performs poorly, except if tau^2 is very large) # if method='HS': not sure since this is an ad-hoc estimator with no obvious underlying statistical principle # Also can compute Wald-type CIs (but those perform poorly except when k is very large). # Too late to change how the function works (right now, type="GENQ" if method="GENQ/GENQM" and type="QP" otherwise). confint.rma.uni <- function(object, parm, level, fixed=FALSE, random=TRUE, type, digits, transf, targs, verbose=FALSE, control, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.uni", notav=c("robust.rma", "rma.ls", "rma.gen")) if (!missing(parm)) warning(mstyle$warning("Argument 'parm' (currently) ignored."), call.=FALSE) x <- object k <- x$k p <- x$p yi <- x$yi vi <- x$vi X <- x$X Y <- cbind(yi) weights <- x$weights if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL funlist <- lapply(list(transf.exp.int, transf.ilogit.int, transf.iprobit.int, transf.ztor.int, transf.iarcsin.int, transf.iahw.int, transf.iabt.int, transf.dtocles.int, transf.exp.mode, transf.ilogit.mode, transf.iprobit.mode, transf.ztor.mode, transf.iarcsin.mode, transf.iahw.mode, transf.iabt.mode), deparse) if (is.null(targs) && any(sapply(funlist, identical, deparse(transf))) && inherits(x, c("rma.uni","rma.glmm")) && length(x$tau2 == 1L)) targs <- list(tau2=x$tau2) if (missing(control)) control <- list() if (!fixed && !random) stop(mstyle$stop("At least one of the arguments 'fixed' and 'random' must be TRUE.")) ddd <- list(...) .chkdots(ddd, c("time", "xlim", "extint")) if (isTRUE(ddd$time)) time.start <- proc.time() if (!is.null(ddd$xlim)) { if (length(ddd$xlim) == 1L) ddd$xlim <- c(0, ddd$xlim) if (length(ddd$xlim) != 2L) stop(mstyle$stop("Argument 'xlim' should be a vector of length 1 or 2.")) control$tau2.min <- ddd$xlim[1] control$tau2.max <- ddd$xlim[2] } if (missing(type)) { if (x$method == "GENQ" || x$method == "GENQM") { type <- "genq" } else { type <- "qp" } } else { type <- tolower(type) if (!is.element(type, c("qp","genq","pl","ht","wald","wald.log","wald.sqrt"))) stop(mstyle$stop("Unknown 'type' specified.")) } level <- .level(level, stopon100=(type=="pl" && isTRUE(ddd$extint))) ######################################################################### ######################################################################### ######################################################################### if (random) { if (k == 1L) stop(mstyle$stop("Stopped because k = 1.")) if (is.element(x$method, c("FE","EE","CE"))) stop(mstyle$stop("Model does not contain a random-effects component.")) if (x$tau2.fix) stop(mstyle$stop("Model does not contain an estimated random-effects component.")) if (type == "genq" && !(is.element(x$method, c("GENQ","GENQM")))) stop(mstyle$stop("Model must be fitted with method=\"GENQ\" or method=\"GENQM\" to use this option.")) ###################################################################### ### set defaults for control parameters for uniroot() and replace with any user-defined values ### set tau2.min and tau2.max and replace with any user-defined values ### note: the default for tau2.min is the smaller of 0 and tau2, since tau2 could in principle be negative ### note: the default for tau2.max must be larger than tau2 and tau2.min and really should be much larger (at least 100) if (!is.null(x$control$tau2.min) && x$control$tau2.min == -min(x$vi)) x$control$tau2.min <- x$control$tau2.min + 0.0001 # push tau2.min just a bit above -min(vi) to avoid division by zero tau2.min <- ifelse(is.null(x$control$tau2.min), min(0, x$tau2), x$control$tau2.min) tau2.max <- ifelse(is.null(x$control$tau2.max), max(100, x$tau2*10, tau2.min*10), x$control$tau2.max) ### user can in principle set non-sensical limits (i.e., tau2.min > tau2.max), but this is handled properly by the methods below con <- list(tol=.Machine$double.eps^0.25, maxiter=1000, tau2.min=tau2.min, tau2.max=tau2.max, verbose=FALSE) con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose #return(con) ###################################################################### tau2.lb <- NA_real_ tau2.ub <- NA_real_ ci.null <- FALSE # logical if CI is a null set lb.conv <- FALSE # logical if search converged for lower bound (LB) ub.conv <- FALSE # logical if search converged for upper bound (UB) lb.sign <- "" # for sign in case LB must be below tau2.min ("<") or above tau2.max (">") ub.sign <- "" # for sign in case UB must be below tau2.min ("<") or above tau2.max (">") ###################################################################### ######################## ### Q-profile method ### ######################## if (type == "qp") { if (!x$allvipos) stop(mstyle$stop("Cannot compute CI for tau^2 when there are non-positive sampling variances in the data.")) crit.u <- qchisq(level/2, k-p, lower.tail=FALSE) # upper critical chi^2 value for df = k-p crit.l <- qchisq(level/2, k-p, lower.tail=TRUE) # lower critical chi^2 value for df = k-p QE.tau2.max <- .QE.func(con$tau2.max, Y=Y, vi=vi, X=X, k=k, objective=0) QE.tau2.min <- try(.QE.func(con$tau2.min, Y=Y, vi=vi, X=X, k=k, objective=0), silent=TRUE) #dfs <- 12; curve(dchisq(x, df=dfs), from=0, to=40, ylim=c(0,0.1), xlab="", ylab=""); abline(v=qchisq(c(0.025, 0.975), df=dfs)); text(qchisq(c(0.025, 0.975), df=dfs)+1.6, 0.1, c("crit.l", "crit.u")) ################################################################### ### start search for upper bound if (QE.tau2.min < crit.l) { ### if QE.tau2.min is to the left of the crit.l, then both bounds are below tau2.min tau2.lb <- con$tau2.min tau2.ub <- con$tau2.min lb.sign <- "<" ub.sign <- "<" lb.conv <- TRUE ub.conv <- TRUE ### and if tau2.min <= 0, then the CI is equal to the null set if (con$tau2.min <= 0) ci.null <- TRUE } else { if (QE.tau2.max > crit.l) { ### if QE.tau2.max is to the right of crit.l, then upper bound > tau2.max, so set tau2.ub to >tau2.max tau2.ub <- con$tau2.max ub.sign <- ">" ub.conv <- TRUE } else { ### now QE.tau2.min is to the right of crit.l and QE.tau2.max is to the left of crit.l, so upper bound can be found res <- try(uniroot(.QE.func, interval=c(con$tau2.min, con$tau2.max), tol=con$tol, maxiter=con$maxiter, Y=Y, vi=vi, X=X, k=k, objective=crit.l, verbose=verbose, digits=digits)$root, silent=TRUE) ### check if uniroot method converged if (!inherits(res, "try-error")) { tau2.ub <- res ub.conv <- TRUE } } } ### end search for upper bound ################################################################### ### start search for lower bound if (QE.tau2.max > crit.u) { ### if QE.tau2.max is to the right of the crit.u, then both bounds are above tau2.max tau2.lb <- con$tau2.max tau2.ub <- con$tau2.max lb.sign <- ">" ub.sign <- ">" lb.conv <- TRUE ub.conv <- TRUE } else { if (QE.tau2.min < crit.u) { ### if QE.tau2.min is to the left of crit.u, then lower bound < tau2.min, so set tau2.lb to 0) lb.sign <- "<" } else { ### now QE.tau2.min is to the right of crit.u and QE.tau2.max is to the left of crit.u, so lower bound can be found res <- try(uniroot(.QE.func, interval=c(con$tau2.min, con$tau2.max), tol=con$tol, maxiter=con$maxiter, Y=Y, vi=vi, X=X, k=k, objective=crit.u, verbose=verbose, digits=digits)$root, silent=TRUE) ### check if uniroot method converged if (!inherits(res, "try-error")) { tau2.lb <- res lb.conv <- TRUE } } } ### end search for lower bound ################################################################### } ###################################################################### ################### ### GENQ method ### ################### if (type == "genq") { if (!requireNamespace("CompQuadForm", quietly=TRUE)) stop(mstyle$stop("Please install the 'CompQuadForm' package when method='QGEN'.")) A <- .diag(weights) stXAX <- .invcalc(X=X, W=A, k=k) P <- A - A %*% X %*% stXAX %*% t(X) %*% A Q <- crossprod(Y,P) %*% Y ### note: .GENQ.func(tau2val, ..., Q=Q, level=0, getlower=TRUE) gives the area to the right of Q for a ### distribution with specified tau2val; and as we increase tau2val, so does the area to the right of Q GENQ.tau2.max <- .GENQ.func(con$tau2.max, P=P, vi=vi, Q=Q, level=0, k=k, p=p, getlower=TRUE) GENQ.tau2.min <- .GENQ.func(con$tau2.min, P=P, vi=vi, Q=Q, level=0, k=k, p=p, getlower=TRUE) ################################################################### ### start search for upper bound if (GENQ.tau2.min > 1 - level/2) { ### if GENQ.tau2.min is to the right of 1 - level/2, then both bounds are below tau2.min tau2.lb <- con$tau2.min tau2.ub <- con$tau2.min lb.sign <- "<" ub.sign <- "<" lb.conv <- TRUE ub.conv <- TRUE ### and if tau2.min = 0, then the CI is equal to the null set if (con$tau2.min <= 0) ci.null <- TRUE } else { if (GENQ.tau2.max < 1 - level/2) { ### if GENQ.tau2.max is to the left of 1 - level/2, then upper bound > tau2.max, so set tau2.ub to >tau2.max tau2.ub <- con$tau2.max ub.sign <- ">" ub.conv <- TRUE } else { ### now GENQ.tau2.min is to the left of 1 - level/2 and GENQ.tau2.max is to the right of 1 - level/2, so upper bound can be found res <- try(uniroot(.GENQ.func, c(con$tau2.min, con$tau2.max), P=P, vi=vi, Q=Q, level=level/2, k=k, p=p, getlower=FALSE, verbose=verbose, digits=digits)$root, silent=TRUE) ### check if uniroot method converged if (!inherits(res, "try-error")) { tau2.ub <- res ub.conv <- TRUE } } } ### end search for upper bound ################################################################### ### start search for lower bound if (GENQ.tau2.max < level/2) { ### if GENQ.tau2.max is to the left of level/2, then both bounds are abova tau2.max tau2.lb <- con$tau2.max tau2.ub <- con$tau2.max lb.sign <- ">" ub.sign <- ">" lb.conv <- TRUE ub.conv <- TRUE } else { if (GENQ.tau2.min > level/2) { ### if GENQ.tau2.min is to the right of level/2, then lower bound < tau2.min, so set tau2.lb to 0) lb.sign <- "<" } else { ### now GENQ.tau2.max is to the right of level/2 and GENQ.tau2.min is to the left of level/2, so lower bound can be found res <- try(uniroot(.GENQ.func, c(con$tau2.min, con$tau2.max), P=P, vi=vi, Q=Q, level=level/2, k=k, p=p, getlower=TRUE, verbose=verbose, digits=digits)$root, silent=TRUE) ### check if uniroot method converged if (!inherits(res, "try-error")) { tau2.lb <- res lb.conv <- TRUE } } } ### end search for lower bound ################################################################### } ###################################################################### ################# ### PL method ### ################# if (type == "pl") { if (con$tau2.min > x$tau2) stop(mstyle$stop("Lower bound of interval to be searched must be <= actual value of component.")) if (con$tau2.max < x$tau2) stop(mstyle$stop("Upper bound of interval to be searched must be >= actual value of component.")) objective <- qchisq(1-level, df=1) ################################################################### ### start search for lower bound ### get diff value when setting component to tau2.min; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the lower bound must be below tau2.min res <- try(.profile.rma.uni(con$tau2.min, obj=x, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (res < 0) { tau2.lb <- con$tau2.min lb.conv <- TRUE if (con$tau2.min > 0) lb.sign <- "<" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.uni, interval=c(con$tau2.min, x$tau2), tol=con$tol, maxiter=con$maxiter, extendInt="downX", obj=x, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.uni, interval=c(con$tau2.min, x$tau2), tol=con$tol, maxiter=con$maxiter, obj=x, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { tau2.lb <- res lb.conv <- TRUE } } } ### end search for lower bound ################################################################### ### start search for upper bound ### get diff value when setting component to tau2.max; this value should be positive (i.e., discrepancy must be larger than critical value) ### if it is not, then the upper bound must be above tau2.max res <- try(.profile.rma.uni(con$tau2.max, obj=x, confint=TRUE, objective=objective, verbose=verbose), silent=TRUE) if (!inherits(res, "try-error") && !is.na(res)) { if (!isTRUE(ddd$extint) && res < 0) { tau2.ub <- con$tau2.max ub.conv <- TRUE ub.sign <- ">" } else { if (isTRUE(ddd$extint)) { res <- try(uniroot(.profile.rma.uni, interval=c(x$tau2, con$tau2.max), tol=con$tol, maxiter=con$maxiter, extendInt="upX", obj=x, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } else { res <- try(uniroot(.profile.rma.uni, interval=c(x$tau2, con$tau2.max), tol=con$tol, maxiter=con$maxiter, obj=x, confint=TRUE, objective=objective, verbose=verbose, check.conv=TRUE)$root, silent=TRUE) } ### check if uniroot method converged if (!inherits(res, "try-error")) { tau2.ub <- res ub.conv <- TRUE } } } ### end search for upper bound ################################################################### } ###################################################################### ################# ### HT method ### ################# if (type == "ht") { if (!x$int.only) stop(mstyle$stop("Method only applicable to models without moderators.")) #if (x$method != "DL") # stop(mstyle$stop("Method only applicable when 'method=DL'.")) if (x$k <= 2) stop(mstyle$stop("Method only applicable when k > 2.")) if (x$QE > x$k) { se.lnH <- 1/2 * (log(x$QE) - log(x$k-1)) / (sqrt(2*x$QE) - sqrt(2*x$k-3)) } else { se.lnH <- sqrt(1 / (2*(x$k-2)) * (1 - 1/(3*(x$k-2)^2))) # as in Higgins and Thompson (2002), p. 1549 #se.lnH <- sqrt(1 / ((2*(x$k-2)) * (1 - 1/(3*(x$k-2)^2)))) # as in Borenstein et al. (2009), eq. 16.21 } crit <- qnorm(level/2, lower.tail=FALSE) lb.conv <- TRUE ub.conv <- TRUE #H2.lb <- exp(log(sqrt(x$H2)) - crit * se.lnH)^2 #H2.ub <- exp(log(sqrt(x$H2)) + crit * se.lnH)^2 H2.lb <- exp(log(x$H2) - crit * 2*se.lnH) # note: SE[log(H^2)] = 2*SE[log(H)] H2.ub <- exp(log(x$H2) + crit * 2*se.lnH) I2.lb <- (H2.lb - 1) / H2.lb I2.ub <- (H2.ub - 1) / H2.ub tau2.lb <- max(0, I2.lb * x$vt / (1 - I2.lb)) tau2.ub <- I2.ub * x$vt / (1 - I2.ub) } ###################################################################### if (is.element(type, c("wald","wald.log","wald.sqrt"))) { crit <- qnorm(level/2, lower.tail=FALSE) lb.conv <- TRUE ub.conv <- TRUE } ################### ### Wald method ### ################### if (type == "wald") { tau2.lb <- x$tau2 - crit * x$se.tau2 tau2.ub <- x$tau2 + crit * x$se.tau2 tau2.lb <- max(ifelse(is.null(x$control$tau2.min), 0, x$control$tau2.min), tau2.lb) } ####################### ### Wald.log method ### ####################### if (type == "wald.log") { if (x$tau2 >= 0) { tau2.lb <- exp(log(x$tau2) - crit * x$se.tau2 / x$tau2) tau2.ub <- exp(log(x$tau2) + crit * x$se.tau2 / x$tau2) tau2.ub <- max(x$tau2, tau2.ub) # if tau2 is 0, then CI is 0 to tau2 } } ######################## ### Wald.sqrt method ### ######################## if (type == "wald.sqrt") { if (x$tau2 >= 0) { tau2.lb <- (max(0, sqrt(x$tau2) - crit * x$se.tau2 / (2 * sqrt(x$tau2))))^2 tau2.ub <- (sqrt(x$tau2) + crit * x$se.tau2 / (2 * sqrt(x$tau2)))^2 } } ###################################################################### if (!lb.conv) warning(mstyle$warning("Error in iterative search for the lower bound."), call.=FALSE) if (!ub.conv) warning(mstyle$warning("Error in iterative search for the upper bound."), call.=FALSE) #if (lb.sign == "<" && con$tau2.min > 0) # warning(mstyle$warning("Lower bound < tau2.min. Try decreasing tau2.min (via the 'control' argument)."), call.=FALSE) #if (ub.sign == ">") # warning(mstyle$warning("Upper bound > tau2.max. Try increasing tau2.max (via the 'control' argument)."), call.=FALSE) ###################################################################### I2.lb <- 100 * tau2.lb / (x$vt + tau2.lb) I2.ub <- 100 * tau2.ub / (x$vt + tau2.ub) H2.lb <- tau2.lb / x$vt + 1 H2.ub <- tau2.ub / x$vt + 1 tau2 <- c(x$tau2, tau2.lb, tau2.ub) tau <- sqrt(c(ifelse(x$tau2 >= 0, x$tau2, NA_real_), ifelse(tau2.lb >= 0, tau2.lb, NA_real_), ifelse(tau2.ub >= 0, tau2.ub, NA_real_))) I2 <- c(x$I2, I2.lb, I2.ub) H2 <- c(x$H2, H2.lb, H2.ub) res.random <- rbind("tau^2"=tau2, "tau"=tau, "I^2(%)"=I2, "H^2"=H2) colnames(res.random) <- c("estimate", "ci.lb", "ci.ub") } ######################################################################### ######################################################################### ######################################################################### if (fixed) { if (is.element(x$test, c("knha","adhoc","t"))) { crit <- qt(level/2, df=x$ddf, lower.tail=FALSE) } else { crit <- qnorm(level/2, lower.tail=FALSE) } beta <- c(x$beta) ci.lb <- c(beta - crit * x$se) ci.ub <- c(beta + crit * x$se) if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] res.fixed <- cbind(estimate=beta, ci.lb=ci.lb, ci.ub=ci.ub) rownames(res.fixed) <- rownames(x$beta) } ######################################################################### ######################################################################### ######################################################################### res <- list() if (fixed) res$fixed <- res.fixed if (random) res$random <- res.random res$digits <- digits if (random) { res$ci.null <- ci.null res$lb.sign <- lb.sign res$ub.sign <- ub.sign res$tau2.min <- con$tau2.min } if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(res) <- "confint.rma" return(res) } metafor/R/model.matrix.rma.r0000644000176200001440000000225715120213572015460 0ustar liggesusersmodel.matrix.rma <- function(object, asdf=FALSE, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma") na.act <- getOption("na.action") if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) ### note: lm() always returns X (never the full model matrix, even with na.exclude or na.pass) ### but it seems a bit more logical to actually return X.f in that case if (na.act == "na.omit") out <- object$X if (na.act == "na.exclude" || na.act == "na.pass") out <- object$X.f if (na.act == "na.fail" && any(!object$not.na)) stop(mstyle$stop("Missing values in results.")) if (asdf) out <- as.data.frame(out) if (inherits(object, "rma.ls")) { out <- list(location = out) if (na.act == "na.omit") out$scale <- object$Z if (na.act == "na.exclude" || na.act == "na.pass") out$scale <- object$Z.f if (na.act == "na.fail" && any(!object$not.na)) stop(mstyle$stop("Missing values in results.")) if (asdf) out$scale <- as.data.frame(out$scale) } return(out) } metafor/R/vcalc.r0000644000176200001440000004601115120213572013363 0ustar liggesusersvcalc <- function(vi, cluster, subgroup, obs, type, time1, time2, grp1, grp2, w1, w2, data, rho, phi, rvars, checkpd=TRUE, nearpd=FALSE, sparse=FALSE, ...) { mstyle <- .get.mstyle() ############################################################################ if (missing(vi)) stop(mstyle$stop("Must specify the 'vi' variable.")) if (missing(cluster)) stop(mstyle$stop("Must specify the 'cluster' variable.")) ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("nearPD", "retdat")) if (isTRUE(ddd$nearPD)) nearpd <- TRUE ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data) && !missing(rvars)) stop(mstyle$stop("Must specify the 'data' argument when using 'rvars'.")) if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } subgroup.spec <- !missing(subgroup) type.spec <- !missing(type) obs.spec <- !missing(obs) grp1.spec <- !missing(grp1) grp2.spec <- !missing(grp2) time1.spec <- !missing(time1) time2.spec <- !missing(time2) w1.spec <- !missing(w1) w2.spec <- !missing(w2) mf <- match.call() vi <- .getx("vi", mf=mf, data=data, checknumeric=TRUE) cluster <- .getx("cluster", mf=mf, data=data) subgroup <- .getx("subgroup", mf=mf, data=data) type <- .getx("type", mf=mf, data=data) obs <- .getx("obs", mf=mf, data=data) grp1 <- .getx("grp1", mf=mf, data=data) grp2 <- .getx("grp2", mf=mf, data=data) time1 <- .getx("time1", mf=mf, data=data, checknumeric=TRUE) time2 <- .getx("time2", mf=mf, data=data, checknumeric=TRUE) w1 <- .getx("w1", mf=mf, data=data, checknumeric=TRUE) w2 <- .getx("w2", mf=mf, data=data, checknumeric=TRUE) ############################################################################ # to be able to quickly set vi to a constant (e.g., 1) for all rows if (length(vi) == 1L && length(cluster) > 1L) vi <- rep(vi, length(cluster)) k <- length(vi) if (k == 1L) stop(mstyle$stop("Processing terminated since k = 1.")) # could also do: return(matrix(vi, nrow=1, ncol=1)) ######################################################################### ### checks on cluster variable if (anyNA(cluster)) stop(mstyle$stop("No missing values allowed in 'cluster' variable.")) if (length(cluster) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'cluster' (", length(cluster), ") does not match the length of 'vi' (", k, ")."))) ### checks on subgroup variable if (subgroup.spec) { if (anyNA(subgroup)) stop(mstyle$stop("No missing values allowed in 'subgroup' variable.")) if (length(subgroup) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'subgroup' (", length(subgroup), ") does not match the length of 'vi' (", k, ")."))) cluster <- paste0(cluster, ".", subgroup) } ucluster <- unique(cluster) n <- length(ucluster) ######################################################################### if (missing(rvars)) { ############################################################################ ### process type variable if (type.spec) { if (missing(rho)) stop(mstyle$stop("Must specify 'rho' when 'type' is specified.")) } else { type <- rep(1, k) } if (anyNA(type)) stop(mstyle$stop("No missing values allowed in 'type' variable.")) if (length(type) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'type' (", length(type), ") does not match the length of 'vi' (", k, ")."))) ### process obs variable if (obs.spec) { if (missing(rho)) stop(mstyle$stop("Must specify 'rho' when 'obs' is specified.")) } else { #obs <- ave(cluster, cluster, FUN=seq_along) obs <- rep(1, k) } if (anyNA(obs)) stop(mstyle$stop("No missing values allowed in 'obs' variable.")) if (length(obs) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'obs' (", length(obs), ") does not match the length of 'vi' (", k, ")."))) ### process grp1 and grp2 variables #if ((grp1.spec && !grp2.spec) || (!grp1.spec && grp2.spec)) # stop(mstyle$stop("Either specify both 'grp1' and 'grp2' or neither.")) if ((grp2.spec && !grp1.spec)) stop(mstyle$stop("Either specify only 'grp1', both 'grp1' and 'grp2', or neither.")) if (!grp1.spec) grp1 <- rep(1, k) if (!grp2.spec) grp2 <- rep(2, k) if (anyNA(grp1)) stop(mstyle$stop("No missing values allowed in 'grp1' variable.")) if (anyNA(grp2)) stop(mstyle$stop("No missing values allowed in 'grp2' variable.")) if (length(grp1) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'grp1' (", length(grp1), ") does not match the length of 'vi' (", k, ")."))) if (length(grp2) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'grp2' (", length(grp2), ") does not match the length of 'vi' (", k, ")."))) ### process time1 and time2 variables if ((time2.spec && !time1.spec)) stop(mstyle$stop("Either specify only 'time1', both 'time1' and 'time2', or neither.")) if (time2.spec && !grp2.spec) stop(mstyle$stop("Must specify 'grp2' when 'time2' is specified.")) if (!time1.spec) time1 <- rep(1, k) if (!time2.spec) time2 <- time1 if (time1.spec || time2.spec) { if (missing(phi)) stop(mstyle$stop("Must specify 'phi' when 'time1' and/or 'time2' is specified.")) } else { phi <- 1 } if (abs(phi) > 1) stop(mstyle$stop("Value of argument 'phi' must be in [-1,1].")) if (anyNA(time1)) stop(mstyle$stop("No missing values allowed in 'time1' variable.")) if (anyNA(time2)) stop(mstyle$stop("No missing values allowed in 'time2' variable.")) if (length(time1) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'time1' (", length(time1), ") does not match the length of 'vi' (", k, ")."))) if (length(time2) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'time2' (", length(time2), ") does not match the length of 'vi' (", k, ")."))) if (!is.numeric(time1)) stop(mstyle$stop("Variable 'time1' must be a numeric variable.")) if (!is.numeric(time2)) stop(mstyle$stop("Variable 'time2' must be a numeric variable.")) ### process w1 and w2 variables if ((w2.spec && !w1.spec)) stop(mstyle$stop("Either specify only 'w1', both 'w1' and 'w2', or neither.")) if (w2.spec && !grp2.spec) stop(mstyle$stop("Must specify 'grp2' when 'w2' is specified.")) if (!w1.spec) w1 <- rep(1, k) if (!w2.spec) w2 <- w1 if (anyNA(w1)) stop(mstyle$stop("No missing values allowed in 'w1' variable.")) if (anyNA(w2)) stop(mstyle$stop("No missing values allowed in 'w2' variable.")) if (length(w1) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'w1' (", length(w1), ") does not match the length of 'vi' (", k, ")."))) if (length(w2) != k) stop(mstyle$stop(paste0("Length of the variable specified via 'w2' (", length(w2), ") does not match the length of 'vi' (", k, ")."))) if (!is.numeric(w1)) stop(mstyle$stop("Variable 'w1' must be a numeric variable.")) if (!is.numeric(w2)) stop(mstyle$stop("Variable 'w2' must be a numeric variable.")) ############################################################################ ### process/create rho if (!missing(rho) && !(.is.vector(rho) || is.matrix(rho) || is.list(rho))) stop(mstyle$stop("Argument 'rho' must either be a vector, a matrix, or a list.")) if (type.spec) { if (obs.spec) { # both type and obs are specified if (.is.vector(rho)) { if (length(rho) != 2L) stop(mstyle$stop("When 'type' and 'obs' are both specified, 'rho' must specify both the within- and between-construct correlations.")) rho <- as.list(rho) } else { if (is.matrix(rho)) { stop(mstyle$stop("When 'type' and 'obs' are both specified, 'rho' must specify both the within- and between-construct correlations.")) } else { if (length(rho) != 2L) stop(mstyle$stop("When 'type' and 'obs' are both specified and 'rho' is a list, then it must have two elements.")) } } } else { # only type is specified if (.is.vector(rho)) { if (length(rho) != 1L) stop(mstyle$stop("When only 'type' is specified, 'rho' must be a scalar.")) rho <- list(0, rho) } else { if (is.matrix(rho)) { rho <- list(0, rho) } else { if (length(rho) != 1L) stop(mstyle$stop("When only 'type' is specified, 'rho' must have a single list element.")) rho <- list(0, rho[[1]]) } } } } else { if (obs.spec) { # only obs is specified if (.is.vector(rho)) { if (length(rho) != 1L) stop(mstyle$stop("When only 'obs' is specified, 'rho' must be a scalar.")) rho <- list(rho, 0) } else { if (is.matrix(rho)) { rho <- list(rho, 0) } else { if (length(rho) != 1L) stop(mstyle$stop("When only 'obs' is specified, 'rho' must have a single list element.")) rho <- list(rho[[1]], 0) } } } else { # neither type nor obs is specified rho <- list(0, 0) } } if (length(rho[[1]]) == 1L) { rho[[1]] <- matrix(rho[[1]], nrow=length(unique(obs)), ncol=length(unique(obs))) diag(rho[[1]]) <- 1 rownames(rho[[1]]) <- colnames(rho[[1]]) <- unique(obs) } if (length(rho[[2]]) == 1L) { rho[[2]] <- matrix(rho[[2]], nrow=length(unique(type)), ncol=length(unique(type))) diag(rho[[2]]) <- 1 rownames(rho[[2]]) <- colnames(rho[[2]]) <- unique(type) } if (any(!sapply(rho, .is.square))) stop(mstyle$stop("All matrices specified via 'rho' argument must be square matrices.")) if (any(abs(rho[[1]]) > 1) || any(abs(rho[[2]]) > 1)) stop(mstyle$stop("All correlations specified via 'rho' must be in [-1,1].")) if (is.null(dimnames(rho[[1]])) || is.null(dimnames(rho[[2]]))) stop(mstyle$stop("Any matrices specified via 'rho' must have dimension names.")) if (is.null(rownames(rho[[1]]))) rownames(rho[[1]]) <- colnames(rho[[1]]) if (is.null(rownames(rho[[2]]))) rownames(rho[[2]]) <- colnames(rho[[2]]) if (is.null(colnames(rho[[1]]))) colnames(rho[[1]]) <- rownames(rho[[1]]) if (is.null(colnames(rho[[2]]))) colnames(rho[[2]]) <- rownames(rho[[2]]) if (!all(unique(obs) %in% rownames(rho[[1]]))) stop("There are 'obs' values with no corresponding row/column in the correlation matrix.") if (!all(unique(type) %in% rownames(rho[[2]]))) stop("There are 'type' values with no corresponding row/column in the correlation matrix.") #return(rho) ############################################################################ #### turn obs and type into character variables to that [obs[i],obs[j]] and [type[i],type[j]] below work correctly obs <- as.character(obs) type <- as.character(type) ### construct R matrix if (sparse) { R <- Matrix(0, nrow=k, ncol=k) } else { R <- matrix(0, nrow=k, ncol=k) } cluster_set <- unique(cluster) for (cl in cluster_set) { cl_i <- which(cl == cluster) k_c <- length(cl_i) R_c <- matrix(0, nrow=k_c, ncol=k_c) diag(R_c) <- 1 if (k_c > 1L) { for (i in 2:k_c) { for (j in 1:i) { ci <- cl_i[i] cj <- cl_i[j] R_c[i,j] <- ifelse(type[ci]==type[cj], ifelse(obs[ci]==obs[cj], 1, rho[[1]][obs[ci],obs[cj]]), rho[[2]][type[ci],type[cj]]) * (ifelse(grp1[ci]==grp1[cj], ifelse(time1[ci]==time1[cj], 1, phi^abs(time1[ci]-time1[cj])), 0) * sqrt(1/w1[ci] * 1/w1[cj]) - ifelse(grp1[ci]==grp2[cj], ifelse(time1[ci]==time2[cj], 1, phi^abs(time1[ci]-time2[cj])), 0) * sqrt(1/w1[ci] * 1/w2[cj]) - ifelse(grp2[ci]==grp1[cj], ifelse(time2[ci]==time1[cj], 1, phi^abs(time2[ci]-time1[cj])), 0) * sqrt(1/w2[ci] * 1/w1[cj]) + ifelse(grp2[ci]==grp2[cj], ifelse(time2[ci]==time2[cj], 1, phi^abs(time2[ci]-time2[cj])), 0) * sqrt(1/w2[ci] * 1/w2[cj])) / (sqrt(1/w1[ci] + 1/w2[ci] - 2*ifelse(grp1[ci]==grp2[ci], ifelse(time1[ci]==time2[ci], 1, phi^abs(time1[ci]-time2[ci])), 0) * sqrt(1/w1[ci] * 1/w2[ci])) * sqrt(1/w1[cj] + 1/w2[cj] - 2*ifelse(grp1[cj]==grp2[cj], ifelse(time1[cj]==time2[cj], 1, phi^abs(time1[cj]-time2[cj])), 0) * sqrt(1/w1[cj] * 1/w2[cj]))) } } } R_c[upper.tri(R_c)] <- t(R_c)[upper.tri(R_c)] R[cl_i, cl_i] <- R_c } # diag(R) <- 1 # # for (i in 2:k) { # for (j in 1:i) { # if (cluster[i] == cluster[j]) { # # R[i,j] <- ifelse(type[i]==type[j], ifelse(obs[i]==obs[j], 1, rho[[1]][obs[i],obs[j]]), rho[[2]][type[i],type[j]]) * # (ifelse(grp1[i]==grp1[j], ifelse(time1[i]==time1[j], 1, phi^abs(time1[i]-time1[j])), 0) * sqrt(1/w1[i] * 1/w1[j]) - # ifelse(grp1[i]==grp2[j], ifelse(time1[i]==time2[j], 1, phi^abs(time1[i]-time2[j])), 0) * sqrt(1/w1[i] * 1/w2[j]) - # ifelse(grp2[i]==grp1[j], ifelse(time2[i]==time1[j], 1, phi^abs(time2[i]-time1[j])), 0) * sqrt(1/w2[i] * 1/w1[j]) + # ifelse(grp2[i]==grp2[j], ifelse(time2[i]==time2[j], 1, phi^abs(time2[i]-time2[j])), 0) * sqrt(1/w2[i] * 1/w2[j])) / # (sqrt(1/w1[i] + 1/w2[i] - 2*ifelse(grp1[i]==grp2[i], ifelse(time1[i]==time2[i], 1, phi^abs(time1[i]-time2[i])), 0) * sqrt(1/w1[i] * 1/w2[i])) * # sqrt(1/w1[j] + 1/w2[j] - 2*ifelse(grp1[j]==grp2[j], ifelse(time1[j]==time2[j], 1, phi^abs(time1[j]-time2[j])), 0) * sqrt(1/w1[j] * 1/w2[j]))) # # } # } # } # # R[upper.tri(R)] <- t(R)[upper.tri(R)] } else { ### when rvars are specified ### warn user if non-relevant arguments have been specified not.miss <- c(type.spec, obs.spec, grp1.spec, grp2.spec, time1.spec, time2.spec, w1.spec, w2.spec, !missing(rho), !missing(phi)) if (any(not.miss)) { args <- c("type", "obs", "grp1", "grp2", "time1", "time2", "w1", "w2", "rho", "phi") warning(mstyle$warning("Argument", ifelse(sum(not.miss) > 1, "s", ""), " '", paste0(args[not.miss], collapse=","), "' ignored for when 'rvars' is specified."), call.=FALSE) } ### get position of rvars in data nl <- as.list(seq_along(data)) names(nl) <- names(data) rvars <- try(eval(substitute(rvars), envir=nl, enclos=NULL), silent=TRUE) if (inherits(rvars, "try-error")) stop(mstyle$stop("Could not find all variables specified via 'rvars' in 'data'.")) ### get rvars from data has.colon <- grepl(":", deparse1(substitute(rvars)), fixed=TRUE) if (has.colon && length(rvars) == 2L) { rvars <- data[seq(from = rvars[1], to = rvars[2])] } else { rvars <- data[rvars] } ### check that number of rvars makes sense given the k per cluster k.cluster <- tapply(cluster, cluster, length) if (max(k.cluster) > length(rvars)) stop(mstyle$stop(paste0("There ", ifelse(length(rvars) == 1L, "is 1 variable ", paste0("are ", length(rvars), " variables ")), "specified via 'rvars', but there are clusters with more rows."))) if (max(k.cluster) != length(rvars)) stop(mstyle$stop(paste0("There ", ifelse(length(rvars) == 1L, "is 1 variable ", paste0("are ", length(rvars), " variables ")), "specified via 'rvars', but no cluster with this many rows."))) ### construct R matrix based on rvars R <- list() for (i in seq_len(n)) { x <- rvars[cluster == ucluster[i],] x <- x[seq_len(nrow(x))] if (anyNA(x[lower.tri(x, diag=TRUE)])) warning(mstyle$warning(paste0("There are missing values in 'rvals' for cluster ", ucluster[i], ".")), call.=FALSE) x[upper.tri(x)] <- t(x)[upper.tri(x)] R[[i]] <- as.matrix(x) } names(R) <- ucluster #R <- lapply(split(rvars, cluster), function(x) { # k <- nrow(x) # x <- x[seq_len(k)] # x[upper.tri(x)] <- t(x)[upper.tri(x)] # as.matrix(x) # }) #R <- bldiag(R, order=cluster) R <- bldiag(R) R <- Matrix(R, sparse=TRUE) } #return(R) ############################################################################ ### check that 'R' is positive definite in each cluster if (checkpd || nearpd) { for (i in seq_len(n)) { Ri <- R[cluster == ucluster[i], cluster == ucluster[i]] if (!anyNA(Ri) && !.chkpd(Ri)) { if (nearpd) { Ri <- try(as.matrix(nearPD(Ri, corr=TRUE)$mat), silent=TRUE) if (inherits(Ri, "try-error")) { warning(mstyle$warning(paste0("Using nearPD() failed in cluster ", ucluster[i], ".")), call.=FALSE) } else { if (!anyNA(Ri) && !.chkpd(Ri)) warning(mstyle$warning(paste0("The var-cov matrix still appears to be not positive definite in cluster ", ucluster[i], " even after nearPD().")), call.=FALSE) R[cluster == ucluster[i], cluster == ucluster[i]] <- Ri } } else { warning(mstyle$warning(paste0("The var-cov matrix appears to be not positive definite in cluster ", ucluster[i], ".")), call.=FALSE) } } } } ############################################################################ ### turn R into V vi <- as.vector(vi) S <- Diagonal(k, sqrt(vi)) V <- S %*% R %*% S if (!sparse) V <- as.matrix(V) if (isTRUE(ddd$retdat)) V <- data.frame(cluster, type, obs, grp1, grp2, time1, time2, w1, w2, vi, V=V) if (!inherits(V, "sparseMatrix")) class(V) <- c("vcovmat", "matrix", "array") return(V) } metafor/R/confint.rma.mh.r0000644000176200001440000000420315120213572015111 0ustar liggesusersconfint.rma.mh <- function(object, parm, level, digits, transf, targs, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="rma.mh") if (!missing(parm)) warning(mstyle$warning("Argument 'parm' (currently) ignored."), call.=FALSE) x <- object if (missing(level)) level <- x$level if (missing(digits)) { digits <- .get.digits(xdigits=x$digits, dmiss=TRUE) } else { digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) } if (missing(transf)) transf <- FALSE if (missing(targs)) targs <- NULL ddd <- list(...) .chkdots(ddd, c("time")) if (isTRUE(ddd$time)) time.start <- proc.time() ######################################################################### level <- .level(level) crit <- qnorm(level/2, lower.tail=FALSE) beta <- x$beta ci.lb <- beta - crit * x$se ci.ub <- beta + crit * x$se ### if requested, apply transformation function if (isTRUE(transf) && is.element(x$measure, c("OR","RR","IRR"))) # if transf=TRUE, apply exp transformation to ORs, RRs, and IRRs transf <- exp if (is.function(transf)) { if (is.null(targs)) { beta <- sapply(beta, transf) ci.lb <- sapply(ci.lb, transf) ci.ub <- sapply(ci.ub, transf) } else { if (!is.primitive(transf) && !is.null(targs) && length(formals(transf)) == 1L) stop(mstyle$stop("Function specified via 'transf' does not appear to have an argument for 'targs'.")) beta <- sapply(beta, transf, targs) ci.lb <- sapply(ci.lb, transf, targs) ci.ub <- sapply(ci.ub, transf, targs) } } ### make sure order of intervals is always increasing tmp <- .psort(ci.lb, ci.ub) ci.lb <- tmp[,1] ci.ub <- tmp[,2] ######################################################################### res <- cbind(estimate=beta, ci.lb, ci.ub) res <- list(fixed=res) rownames(res$fixed) <- "" res$digits <- digits if (isTRUE(ddd$time)) { time.end <- proc.time() .print.time(unname(time.end - time.start)[3]) } class(res) <- "confint.rma" return(res) } metafor/R/qqnorm.rma.glmm.r0000644000176200001440000000020015120213572015307 0ustar liggesusersqqnorm.rma.glmm <- function(y, ...) { mstyle <- .get.mstyle() .chkclass(class(y), must="rma.glmm", notav="rma.glmm") } metafor/R/rma.glmm.r0000644000176200001440000035563615130422260014022 0ustar liggesusersrma.glmm <- function(ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, xi, mi, ti, ni, mods, measure, data, slab, subset, add=1/2, to="only0", drop00=TRUE, intercept=TRUE, model="UM.FS", method="ML", coding=1/2, cor=FALSE, test="z", level=95, btt, nAGQ=7, verbose=FALSE, digits, control, ...) { ######################################################################### ###### setup mstyle <- .get.mstyle() ### check argument specifications ### (arguments "to" and "vtype" are checked inside escalc function) if (missing(measure)) stop(mstyle$stop("Must specify the 'measure' argument.")) if (!is.element(measure, c("OR","IRR","PLO","IRLN", "PR","RR","RD","PLN"))) stop(mstyle$stop("Unknown 'measure' specified.")) if (!is.element(method, c("FE","EE","CE","ML"))) stop(mstyle$stop("Unknown 'method' specified.")) if (!is.element(coding, c(1/2, 1, 0))) stop(mstyle$stop("Unknown 'coding' option specified.")) ### in case the user specified more than one add/to value (as one can do with rma.mh() and rma.peto()) ### (never apply any kind of continuity correction to the data used in the actual model fitting for models implemented in this function) if (length(add) > 1L) add <- add[1] if (length(to) > 1L) to <- to[1] ### model argument only relevant for 2x2 table data (measure="OR") and for 2-group rate data (measure="IRR") ### UM.FS/UM.RS = unconditional GLMM with fixed/random study effects (logistic or poisson mixed-effects model with fixed/random intercepts) ### CM.EL/CM.AL = conditional GLMM (exact/approximate) (hypergeometric or conditional logistic model) ### BV/MV = bi/multivariate model (logistic or poisson mixed-effects model with unstructured covariance matrix) -- not implemented if (!is.element(model, c("UM.FS","UM.RS","CM.EL","CM.AL"))) stop(mstyle$stop("Unknown 'model' specified.")) ### no need for CM.AL for IRR -- use CM.EL if (model == "CM.AL" && measure == "IRR") model <- "CM.EL" ### check if user changed model for measures where this is not relevant; if so, issue a warning if (is.element(measure, c("PLO","PR","PLN","IRLN")) && !is.null(match.call()$model)) warning(mstyle$warning("Argument 'model' not relevant for this outcome measure."), call.=FALSE) ### warning about experimental measures if (!is.element(measure, c("OR","IRR","PLO","IRLN"))) warning(mstyle$warning("The use of this 'measure' is experimental - treat results with caution."), call.=FALSE) if (is.element(model, c("CM.EL","CM.AL")) && is.element(measure, c("RR","RD"))) stop(mstyle$stop("Cannot use this measure with model='CM.EL' or model='CM.AL'.")) na.act <- getOption("na.action") on.exit(options(na.action=na.act), add=TRUE) if (!is.element(na.act, c("na.omit", "na.exclude", "na.fail", "na.pass"))) stop(mstyle$stop("Unknown 'na.action' specified under options().")) if (missing(control)) control <- list() time.start <- proc.time() ### get ... argument and check for extra/superfluous arguments ddd <- list(...) .chkdots(ddd, c("vtype", "tdist", "outlist", "onlyo1", "addyi", "addvi", "time", "retdat", "family", "retfit", "skiphet", "i2def", "link")) if (is.null(ddd$vtype)) { vtype <- "LS" } else { vtype <- ddd$vtype } ### handle 'tdist' argument from ... (note: overrides test argument) if (isFALSE(ddd$tdist)) test <- "z" if (isTRUE(ddd$tdist)) test <- "t" if (!is.element(test, c("z", "t"))) stop(mstyle$stop("Unknown option specified for the 'test' argument.")) ### set defaults or get 'onlyo1', 'addyi', and 'addvi' arguments onlyo1 <- .chkddd(ddd$onlyo1, FALSE) addyi <- .chkddd(ddd$addyi, TRUE) addvi <- .chkddd(ddd$addvi, TRUE) ### set default for 'i2def' i2def <- .chkddd(ddd$i2def, "1") ### set defaults for 'digits' if (missing(digits)) { digits <- .set.digits(dmiss=TRUE) } else { digits <- .set.digits(digits, dmiss=FALSE) } ### set default for formula.mods formula.mods <- NULL ### set options(warn=1) if verbose > 2 if (verbose > 2) { opwarn <- options(warn=1) on.exit(options(warn=opwarn$warn), add=TRUE) } if (is.null(ddd$link)) { if (measure=="OR" || measure=="PLO") link <- "logit" if (measure=="RR" || measure=="PLN") link <- "log" if (measure=="RD" || measure=="PR") link <- "identity" if (measure=="IRR" || measure=="IRLN") link <- "log" } else { link <- ddd$link } ######################################################################### if (verbose) .space() if (verbose > 1) message(mstyle$message("Extracting the data and computing yi/vi values ...")) ### check if the 'data' argument was specified if (missing(data)) data <- NULL if (is.null(data)) { data <- sys.frame(sys.parent()) } else { if (!is.data.frame(data)) data <- data.frame(data) } mf <- match.call() ### extract slab, subset, and mods values, possibly from the data frame specified via data (arguments not specified are NULL) slab <- .getx("slab", mf=mf, data=data) subset <- .getx("subset", mf=mf, data=data) mods <- .getx("mods", mf=mf, data=data) ai <- bi <- ci <- di <- x1i <- x2i <- t1i <- t2i <- xi <- mi <- ti <- NA_real_ ### calculate yi and vi values if (is.element(measure, c("OR","RR","RD"))) { ai <- .getx("ai", mf=mf, data=data, checknumeric=TRUE) bi <- .getx("bi", mf=mf, data=data, checknumeric=TRUE) ci <- .getx("ci", mf=mf, data=data, checknumeric=TRUE) di <- .getx("di", mf=mf, data=data, checknumeric=TRUE) n1i <- .getx("n1i", mf=mf, data=data, checknumeric=TRUE) n2i <- .getx("n2i", mf=mf, data=data, checknumeric=TRUE) if (is.null(bi)) bi <- n1i - ai if (is.null(di)) di <- n2i - ci k <- length(ai) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) ai <- .getsubset(ai, subset) bi <- .getsubset(bi, subset) ci <- .getsubset(ci, subset) di <- .getsubset(di, subset) } args <- list(ai=ai, bi=bi, ci=ci, di=di, add=add, to=to, drop00=drop00, onlyo1=onlyo1, addyi=addyi, addvi=addvi) } if (is.element(measure, c("IRR"))) { x1i <- .getx("x1i", mf=mf, data=data, checknumeric=TRUE) x2i <- .getx("x2i", mf=mf, data=data, checknumeric=TRUE) t1i <- .getx("t1i", mf=mf, data=data, checknumeric=TRUE) t2i <- .getx("t2i", mf=mf, data=data, checknumeric=TRUE) k <- length(x1i) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) x1i <- .getsubset(x1i, subset) x2i <- .getsubset(x2i, subset) t1i <- .getsubset(t1i, subset) t2i <- .getsubset(t2i, subset) } args <- list(x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, add=add, to=to, drop00=drop00, onlyo1=onlyo1, addyi=addyi, addvi=addvi) } if (is.element(measure, c("PLO","PR","PLN"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) mi <- .getx("mi", mf=mf, data=data, checknumeric=TRUE) ni <- .getx("ni", mf=mf, data=data, checknumeric=TRUE) if (is.null(mi)) mi <- ni - xi k <- length(xi) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) mi <- .getsubset(mi, subset) } args <- list(xi=xi, mi=mi, add=add, to=to, onlyo1=onlyo1, addyi=addyi, addvi=addvi) } if (is.element(measure, c("IRLN"))) { xi <- .getx("xi", mf=mf, data=data, checknumeric=TRUE) ti <- .getx("ti", mf=mf, data=data, checknumeric=TRUE) k <- length(xi) # number of outcomes before subsetting k.all <- k if (!is.null(subset)) { subset <- .chksubset(subset, k) xi <- .getsubset(xi, subset) ti <- .getsubset(ti, subset) } args <- list(xi=xi, ti=ti, add=add, to=to, onlyo1=onlyo1, addyi=addyi, addvi=addvi) } args <- c(args, list(measure=measure, vtype=vtype)) dat <- .do.call(escalc, args) yi <- dat$yi # one or more yi/vi pairs may be NA/NA (note: yi/vi pairs that are NA/NA may still have 'valid' table data) vi <- dat$vi # one or more yi/vi pairs may be NA/NA (note: yi/vi pairs that are NA/NA may still have 'valid' table data) ni <- attr(yi, "ni") # unadjusted total sample sizes (ni.u in escalc) ### study ids (1:k sequence before subsetting) ids <- seq_len(k) ######################################################################### if (verbose > 1) message(mstyle$message("Creating the model matrix ...")) ### convert mods formula to X matrix and set intercept equal to FALSE if (inherits(mods, "formula")) { formula.mods <- mods if (.is.tilde1(formula.mods)) { # needed so 'mods = ~ 1' without 'data' specified works mods <- matrix(1, nrow=k, ncol=1) intercept <- FALSE } else { options(na.action = "na.pass") # set na.action to na.pass, so that NAs are not filtered out (we'll do that later) mods <- model.matrix(mods, data=data) # extract the model matrix attr(mods, "assign") <- NULL # strip the 'assign' attribute (not used at the moment) options(na.action = na.act) # set na.action back to na.act intercept <- FALSE # set 'intercept' to FALSE since the formula now controls whether the intercept is included } } ### turn a vector for mods into a column vector if (.is.vector(mods)) mods <- cbind(mods) ### turn a mods data frame into a matrix if (is.data.frame(mods)) mods <- as.matrix(mods) ### check if the model matrix contains character variables if (is.character(mods)) stop(mstyle$stop("The model matrix contains character variables.")) ### check if the 'mods' matrix has the right number of rows if (!is.null(mods) && nrow(mods) != k) stop(mstyle$stop(paste0("Number of rows in the model matrix (", nrow(mods), ") does not match the length of the the outcome vector (", k, ")."))) ### generate study labels if none are specified if (verbose > 1) message(mstyle$message("Generating/extracting the study labels ...")) if (is.null(slab)) { slab.null <- TRUE slab <- ids } else { if (anyNA(slab)) stop(mstyle$stop("NAs in study labels.")) if (length(slab) != k) stop(mstyle$stop(paste0("Length of the 'slab' argument (", length(slab), ") does not correspond to the size of the dataset (", k, ")."))) if (is.factor(slab)) slab <- as.character(slab) slab.null <- FALSE } ### if a subset of studies is specified (note: tables, yi/vi, and ni are already subsetted above) if (!is.null(subset)) { if (verbose > 1) message(mstyle$message("Subsetting ...")) mods <- .getsubset(mods, subset) slab <- .getsubset(slab, subset) ids <- .getsubset(ids, subset) } ### check if the study labels are unique; if not, make them unique if (anyDuplicated(slab)) slab <- .make.unique(slab) ### add the 'slab' attribute back to 'yi' attr(yi, "slab") <- slab k <- length(yi) # number of tables/outcomes after subsetting (can all still include NAs) ### if drop00=TRUE, set counts to NA for studies that have no events (or all events) in both arms (corresponding yi/vi will also be NA/NA then) if (is.element(measure, c("OR","RR","RD"))) { if (drop00) { id00 <- c(ai == 0L & ci == 0L) | c(bi == 0L & di == 0L) id00[is.na(id00)] <- FALSE ai[id00] <- NA_real_ bi[id00] <- NA_real_ ci[id00] <- NA_real_ di[id00] <- NA_real_ } } if (is.element(measure, c("IRR"))) { if (drop00) { id00 <- c(x1i == 0L & x2i == 0L) id00[is.na(id00)] <- FALSE x1i[id00] <- NA_real_ x2i[id00] <- NA_real_ } } ### save the full data (including potential NAs in table data, yi/vi/ni/mods) (after subsetting) outdat.f <- list(ai=ai, bi=bi, ci=ci, di=di, x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, xi=xi, mi=mi, ni=ni, ti=ti) yi.f <- yi vi.f <- vi ni.f <- ni mods.f <- mods k.f <- k # total number of tables/outcomes and rows in the model matrix (including all NAs) ### check for NAs in tables (and corresponding mods) and act accordingly if (is.element(measure, c("OR","RR","RD"))) { has.na <- is.na(ai) | is.na(bi) | is.na(ci) | is.na(di) | (if (is.null(mods)) FALSE else apply(is.na(mods), 1, any)) not.na <- !has.na if (any(has.na)) { if (verbose > 1) message(mstyle$message("Handling NAs in the table data ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { ai <- ai[not.na] bi <- bi[not.na] ci <- ci[not.na] di <- di[not.na] mods <- mods[not.na,,drop=FALSE] k <- length(ai) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in studies.")) } } if (is.element(measure, "IRR")) { has.na <- is.na(x1i) | is.na(x2i) | is.na(t1i) | is.na(t2i) | (if (is.null(mods)) FALSE else apply(is.na(mods), 1, any)) not.na <- !has.na if (any(has.na)) { if (verbose > 1) message(mstyle$message("Handling NAs in the table data ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { x1i <- x1i[not.na] x2i <- x2i[not.na] t1i <- t1i[not.na] t2i <- t2i[not.na] mods <- mods[not.na,,drop=FALSE] k <- length(x1i) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in studies.")) } } if (is.element(measure, c("PLO","PR","PLN"))) { has.na <- is.na(xi) | is.na(mi) | (if (is.null(mods)) FALSE else apply(is.na(mods), 1, any)) not.na <- !has.na if (any(has.na)) { if (verbose > 1) message(mstyle$message("Handling NAs in the table data ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { xi <- xi[not.na] mi <- mi[not.na] mods <- mods[not.na,,drop=FALSE] k <- length(xi) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in studies.")) } } if (is.element(measure, "IRLN")) { has.na <- is.na(xi) | is.na(ti) | (if (is.null(mods)) FALSE else apply(is.na(mods), 1, any)) not.na <- !has.na if (any(has.na)) { if (verbose > 1) message(mstyle$message("Handling NAs in the table data ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { xi <- xi[not.na] ti <- ti[not.na] mods <- mods[not.na,,drop=FALSE] k <- length(xi) warning(mstyle$warning(paste(sum(has.na), ifelse(sum(has.na) > 1, "studies", "study"), "with NAs omitted from model fitting.")), call.=FALSE) } if (na.act == "na.fail") stop(mstyle$stop("Missing values in studies.")) } } ### note: k = number of tables (and corresponding rows of 'mods') after removing NAs ### k.f = total number of tables/outcomes and rows in the model matrix (including all NAs) stored in .f elements ### at least one study left? if (k < 1L) stop(mstyle$stop("Processing terminated since k = 0.")) ### check for NAs in yi/vi and act accordingly (yi/vi pair can be NA/NA if add=0 is used) ### note: if a table was removed because of NAs in mods, must also remove the corresponding yi/vi pair; ### also, must use mods.f here, since NAs in mods were already removed above (and need a separate ### mods.yi element, so that dimensions of the model matrix and vi are guaranteed to match up) mods.yi <- mods.f yivi.na <- is.na(yi) | is.na(vi) | (if (is.null(mods.yi)) FALSE else apply(is.na(mods.yi), 1, any)) not.na.yivi <- !yivi.na if (any(yivi.na)) { if (verbose > 1) message(mstyle$message("Handling NAs in yi/vi ...")) if (na.act == "na.omit" || na.act == "na.exclude" || na.act == "na.pass") { yi <- yi[not.na.yivi] ni <- ni[not.na.yivi] vi <- vi[not.na.yivi] mods.yi <- mods.f[not.na.yivi,,drop=FALSE] warning(mstyle$warning("Some yi/vi values are NA."), call.=FALSE) attr(yi, "measure") <- measure # add measure attribute back attr(yi, "ni") <- ni # add ni attribute back } if (na.act == "na.fail") stop(mstyle$stop("Missing yi/vi values.")) } k.yi <- length(yi) # number of yi/vi pairs that are not NA ### make sure that there is at least one column in X if (is.null(mods) && !intercept) { warning(mstyle$warning("Must either include an intercept and/or moderators in the model.\nCoerced an intercept into the model."), call.=FALSE) intercept <- TRUE } if (!is.null(mods) && ncol(mods) == 0L) { warning(mstyle$warning("Cannot fit model with an empty model matrix. Coerced an intercept into the model."), call.=FALSE) intercept <- TRUE } ### add vector of 1s to the X matrix for the intercept (if intercept=TRUE) if (intercept) { X <- cbind(intrcpt=rep(1,k), mods) X.f <- cbind(intrcpt=rep(1,k.f), mods.f) X.yi <- cbind(intrcpt=rep(1,k.yi), mods.yi) } else { X <- mods X.f <- mods.f X.yi <- mods.yi } ### drop redundant predictors ### note: yi may have become shorter than X due to the omission of NAs, so just use a fake yi vector here tmp <- lm(rep(0,k) ~ 0 + X) coef.na <- is.na(coef(tmp)) if (any(coef.na)) { warning(mstyle$warning("Redundant predictors dropped from the model."), call.=FALSE) X <- X[,!coef.na,drop=FALSE] X.f <- X.f[,!coef.na,drop=FALSE] } ### need to do this separately for X.yi, since model matrix may have fewer rows due to removal of NA/NA pairs for yi/vi tmp <- lm(yi ~ 0 + X.yi) coef.na <- is.na(coef(tmp)) if (any(coef.na)) X.yi <- X.yi[,!coef.na,drop=FALSE] ### check whether the intercept is included and if yes, move it to the first column (NAs already removed, so na.rm=TRUE for any() not necessary) is.int <- apply(X, 2, .is.intercept) if (any(is.int)) { int.incl <- TRUE int.indx <- which(is.int, arr.ind=TRUE) X <- cbind(intrcpt=1, X[,-int.indx, drop=FALSE]) # note: this removes any duplicate intercepts X.f <- cbind(intrcpt=1, X.f[,-int.indx, drop=FALSE]) # note: this removes any duplicate intercepts intercept <- TRUE # set intercept appropriately so that the predict() function works } else { int.incl <- FALSE } ### need to do this separately for X.yi, since model matrix may have fewer rows due to removal of NA/NA pairs for yi/vi is.int <- apply(X.yi, 2, .is.intercept) if (any(is.int)) { int.indx <- which(is.int, arr.ind=TRUE) X.yi <- cbind(intrcpt=1, X.yi[,-int.indx, drop=FALSE]) # note: this removes any duplicate intercepts } p <- NCOL(X) # number of columns in X (including the intercept if it is included) ### note: number of columns in X.yi may be lower than p; but computation of I^2 below is based on p ### make sure variable names in X are unique colnames(X) <- colnames(X.f) <- .make.unique(colnames(X)) ### check whether this is an intercept-only model if ((p == 1L) && .is.intercept(X)) { int.only <- TRUE } else { int.only <- FALSE } ### check if there are too many parameters for given k if (is.element(method, c("FE","EE","CE")) && p > k) stop(mstyle$stop("Number of parameters to be estimated is larger than the number of observations.")) if (!is.element(method, c("FE","EE","CE")) && (p+1) > k) stop(mstyle$stop("Number of parameters to be estimated is larger than the number of observations.")) ### set/check 'btt' argument btt <- .set.btt(btt, p, int.incl, colnames(X)) m <- length(btt) # number of betas to test (m = p if all betas are tested) ######################################################################### ### set defaults for control parameters con <- list(verbose = FALSE, # also passed on to glm/glmer/optim/nlminb/minqa (uobyqa/newuoa/bobyqa) package="lme4", # package for fitting logistic mixed-effects models ("lme4", "GLMMadaptive", "glmmTMB") optimizer = "nlminb", # optimizer to use for CM.EL+OR ("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","clogit","clogistic","Rcgmin","Rvmmin") optmethod = "BFGS", # argument 'method' for optim() ("Nelder-Mead" and "BFGS" are sensible options) parallel = list(), # parallel argument for optimParallel() (note: 'cl' argument in parallel is not passed; this is directly specified via 'cl') cl = NULL, # arguments for optimParallel() ncpus = 1L, # arguments for optimParallel() scaleX = TRUE, # whether non-dummy variables in the X matrix should be rescaled before model fitting evtol = 1e-07, # lower bound for eigenvalues to determine if the model matrix is positive definite dnchgcalc = "dFNCHypergeo", # method for calculating dnchg ("dFNCHypergeo" from BiasedUrn package or "dnoncenhypergeom") dnchgprec = 1e-10, # precision for dFNCHypergeo() hesspack = "numDeriv", # package for computing the Hessian (numDeriv, pracma, or calculus) tau2tol = 1e-04) # for "CM.EL" + "ML", threshold for treating tau^2 values as effectively equal to 0 ### replace defaults with any user-defined values con.pos <- pmatch(names(control), names(con)) con[c(na.omit(con.pos))] <- control[!is.na(con.pos)] if (verbose) con$verbose <- verbose verbose <- con$verbose optimizer <- match.arg(con$optimizer, c("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","clogit","clogistic","Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent","Rcgmin","Rvmmin")) optmethod <- match.arg(con$optmethod, c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) if (optimizer %in% c("Nelder-Mead","BFGS","CG","L-BFGS-B","SANN","Brent")) { optmethod <- optimizer optimizer <- "optim" } package <- match.arg(con$package, c("lme4","GLMMadaptive","glmmTMB")) parallel <- con$parallel cl <- con$cl ncpus <- con$ncpus if (con$dnchgcalc != "dnoncenhypergeom" && con$dnchgcalc != "dFNCHypergeo") stop(mstyle$stop("Unknown dnchgcalc method specified.")) if (is.element(optimizer, c("clogit","clogistic")) && method == "ML") stop(mstyle$stop("Cannot use 'clogit' or 'clogistic' with method='ML'.")) if (package == "lme4" && is.element(measure, c("OR","RR","RD","IRR")) && model == "UM.RS" && method == "ML" && nAGQ > 1) { warning(mstyle$warning("Not possible to fit RE/ME model='UM.RS' with nAGQ > 1 with glmer(). nAGQ automatically set to 1."), call.=FALSE) nAGQ <- 1 } ### if control argument 'ncpus' is larger than 1, automatically switch to the 'optimParallel' optimizer if (ncpus > 1L) optimizer <- "optimParallel" pos.optCtrl <- pmatch(names(control), "optCtrl", nomatch=0) if (sum(pos.optCtrl) > 0) { optCtrl <- control[[which(pos.optCtrl == 1)]] } else { optCtrl <- list() } ### set NLOPT_LN_BOBYQA as the default algorithm for nloptr optimizer ### and by default use a relative convergence criterion of 1e-8 on the function value if (optimizer == "nloptr" && !is.element("algorithm", names(optCtrl))) optCtrl$algorithm <- "NLOPT_LN_BOBYQA" if (optimizer == "nloptr" && !is.element("ftol_rel", names(optCtrl))) optCtrl$ftol_rel <- 1e-8 ### for mads, set trace=FALSE and tol=1e-6 by default if (optimizer == "mads" && !is.element("trace", names(optCtrl))) optCtrl$trace <- FALSE if (optimizer == "mads" && !is.element("tol", names(optCtrl))) optCtrl$tol <- 1e-6 ### for subplex, set reltol=1e-8 by default (the default in subplex() is .Machine$double.eps) if (optimizer == "subplex" && !is.element("reltol", names(optCtrl))) optCtrl$reltol <- 1e-8 ### for BBoptim, set trace=FALSE by default if (optimizer == "BBoptim" && !is.element("trace", names(optCtrl))) optCtrl$trace <- FALSE if (optimizer == "optim") { con.pos <- pmatch(names(optCtrl), "REPORT", nomatch=0) # set REPORT to 1 if it is not already set by the user if (sum(con.pos) > 0) { names(optCtrl)[which(con.pos == 1)] <- "REPORT" } else { optCtrl$REPORT <- 1 } optCtrl$trace <- con$verbose # trace for optim is a non-negative integer } if (optimizer == "nlminb") optCtrl$trace <- ifelse(con$verbose > 0, 1, 0) # set trace to 1, so information is printed every iteration if (is.element(optimizer, c("uobyqa", "newuoa", "bobyqa"))) optCtrl$iprint <- ifelse(con$verbose > 0, 3, 0) # set iprint to 3 for maximum information pos.clogitCtrl <- pmatch(names(control), "clogitCtrl", nomatch=0) if (sum(pos.clogitCtrl) > 0) { clogitCtrl <- control[[which(pos.clogitCtrl == 1)]] } else { clogitCtrl <- list() } pos.clogisticCtrl <- pmatch(names(control), "clogisticCtrl", nomatch=0) if (sum(pos.clogisticCtrl) > 0) { clogisticCtrl <- control[[which(pos.clogisticCtrl == 1)]] } else { clogisticCtrl <- list() } pos.glmCtrl <- pmatch(names(control), "glmCtrl", nomatch=0) if (sum(pos.glmCtrl) > 0) { glmCtrl <- control[[which(pos.glmCtrl == 1)]] } else { glmCtrl <- list() } glmCtrl$trace <- ifelse(con$verbose > 0, TRUE, FALSE) # trace for glmCtrl is logical pos.glmerCtrl <- pmatch(names(control), "glmerCtrl", nomatch=0) if (sum(pos.glmerCtrl) > 0) { glmerCtrl <- control[[which(pos.glmerCtrl == 1)]] } else { glmerCtrl <- list() } pos.intCtrl <- pmatch(names(control), "intCtrl", nomatch=0) if (sum(pos.intCtrl) > 0) { intCtrl <- control[[which(pos.intCtrl == 1)]] } else { intCtrl <- list() } con.pos <- pmatch(names(intCtrl), "lower", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "lower" } else { intCtrl$lower <- -Inf } con.pos <- pmatch(names(intCtrl), "upper", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "upper" } else { intCtrl$upper <- Inf } con.pos <- pmatch(names(intCtrl), "subdivisions", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "subdivisions" } else { intCtrl$subdivisions <- 100L } con.pos <- pmatch(names(intCtrl), "rel.tol", nomatch=0) if (sum(con.pos) > 0) { names(intCtrl)[which(con.pos == 1)] <- "rel.tol" } else { intCtrl$rel.tol <- .Machine$double.eps^0.25 } con$hesspack <- match.arg(con$hesspack, c("numDeriv","pracma","calculus")) pos.hessianCtrl <- pmatch(names(control), "hessianCtrl", nomatch=0) if (sum(pos.hessianCtrl) > 0) { hessianCtrl <- control[[which(pos.hessianCtrl == 1)]] } else { hessianCtrl <- list() } if (con$hesspack == "numDeriv") { if (is.null(control$hessianCtrl$r)) hessianCtrl$r <- 16 } if (con$hesspack == "pracma") { if (is.null(control$hessianCtrl$h)) { hessianCtrl$h <- .Machine$double.eps^(1/4) } else { hessianCtrl$h <- control$hessianCtrl$h } } if (con$hesspack == "calculus") { if (is.null(control$hessianCtrl$accuracy)) { hessianCtrl$accuracy <- 4 } else { hessianCtrl$accuracy <- control$hessianCtrl$accuracy } } #return(list(verbose=verbose, optimizer=optimizer, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec, optCtrl=optCtrl, glmCtrl=glmCtrl, glmerCtrl=glmerCtrl, intCtrl=intCtrl, hessianCtrl=hessianCtrl)) ######################################################################### ### check that the required packages are installed if (is.element(measure, c("OR","RR","RD","IRR"))) { if ((model == "UM.FS" && method == "ML") || (model == "UM.RS") || (model == "CM.AL" && method == "ML") || (model == "CM.EL" && method == "ML")) { if (!requireNamespace(package, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", package, "' package to fit this model."))) } } if (is.element(measure, c("PLO","PR","PLN","IRLN")) && method == "ML") { if (!requireNamespace(package, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", package, "' package to fit this model."))) } if (measure == "OR" && model == "CM.EL") { if (is.element(optimizer, c("uobyqa","newuoa","bobyqa"))) { if (!requireNamespace("minqa", quietly=TRUE)) stop(mstyle$stop("Please install the 'minqa' package to fit this model.")) } if (is.element(optimizer, c("nloptr","ucminf","lbfgsb3c","subplex","optimParallel"))) { if (!requireNamespace(optimizer, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", optimizer, "' package to use this optimizer."))) } if (is.element(optimizer, c("hjk","nmk","mads"))) { if (!requireNamespace("dfoptim", quietly=TRUE)) stop(mstyle$stop("Please install the 'dfoptim' package to use this optimizer.")) } if (optimizer == "BBoptim") { if (!requireNamespace("BB", quietly=TRUE)) stop(mstyle$stop("Please install the 'BB' package to use this optimizer.")) } if (is.element(optimizer, c("Rcgmin","Rvmmin"))) { if (!requireNamespace("optimx", quietly=TRUE)) stop(mstyle$stop(paste0("Please install the 'optimx' package to use this optimizer."))) } if (is.element(optimizer, c("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","Rcgmin","Rvmmin"))) { if (!requireNamespace(con$hesspack, quietly=TRUE)) stop(mstyle$stop(paste0("Please install the '", con$hesspack, "' package to fit this model."))) if (con$dnchgcalc == "dFNCHypergeo") { if (!requireNamespace("BiasedUrn", quietly=TRUE)) stop(mstyle$stop("Please install the 'BiasedUrn' package to fit this model.")) } } if (optimizer == "clogit") { if (!requireNamespace("survival", quietly=TRUE)) stop(mstyle$stop("Please install the 'survival' package to fit this model.")) coxph <- survival::coxph Surv <- survival::Surv clogit <- survival::clogit strata <- survival::strata } if (optimizer == "clogistic") { if (!requireNamespace("Epi", quietly=TRUE)) stop(mstyle$stop("Please install the 'Epi' package to fit this model.")) } } ### check whether the model matrix is of full rank if (!.chkpd(crossprod(X), tol=con$evtol)) stop(mstyle$stop("Model matrix not of full rank. Cannot fit model.")) ######################################################################### ######################################################################### ######################################################################### se.tau2 <- ci.lb.tau2 <- ci.ub.tau2 <- I2 <- H2 <- QE <- QEp <- NA_real_ se.warn <- FALSE rho <- NA_real_ level <- .level(level) ###### model fitting, test statistics, and confidence intervals ### upgrade warnings to errors (for some testing) #o.warn <- getOption("warn") #on.exit(options(warn = o.warn), add=TRUE) #options(warn = 2) ### rescale X matrix (only for models with moderators and models including an intercept term) if (!int.only && int.incl && con$scaleX) { Xsave <- X meanX <- colMeans(X[, 2:p, drop=FALSE]) sdX <- apply(X[, 2:p, drop=FALSE], 2, sd) # consider using colSds() from matrixStats package is.d <- apply(X, 2, .is.dummy) # is each column a dummy variable (i.e., only 0s and 1s)? X[,!is.d] <- apply(X[, !is.d, drop=FALSE], 2, scale) # rescale the non-dummy variables } ######################################################################### ######################################################################### ######################################################################### ### two group outcomes (odds ratios and incidence rate ratios) if (is.element(measure, c("OR","RR","RD","IRR"))) { ###################################################################### if (is.element(model, c("UM.FS","UM.RS"))) { ### prepare data for the unconditional models if (is.element(measure, c("OR","RR","RD"))) { # xi mi study group1 group2 group12 offset intrcpt mod1 dat.grp <- cbind(xi=c(rbind(ai,ci)), mi=c(rbind(bi,di))) # grp-level outcome data ai bi i 1 0 +1/2 NULL 1 x1i # ci di i 0 1 -1/2 NULL 0 0 if (is.null(ddd$family)) { if (measure == "OR") dat.fam <- binomial(link=link) if (measure == "RR") dat.fam <- binomial(link=link) if (measure == "RD") #dat.fam <- eval(parse(text="binomial(link=\"identity\")")) dat.fam <- binomial(link=link) } else { dat.fam <- ddd$family } dat.off <- NULL } if (is.element(measure, c("IRR"))) { # xi ti study group1 group2 group12 offset intrcpt mod1 dat.grp <- c(rbind(x1i,x2i)) # grp-level outcome data x1i t1i i 1 0 +1/2 t1i 1 x1i # log(ti) for offset x2i t2i i 0 1 -1/2 t2i 0 0 if (is.null(ddd$family)) { dat.fam <- poisson(link=link) } else { dat.fam <- ddd$family } dat.off <- log(c(rbind(t1i,t2i))) } group1 <- rep(c(1,0), times=k) # group dummy for 1st group (ai,bi for group 1) group2 <- rep(c(0,1), times=k) # group dummy for 2nd group (ci,di for group 2) (not really needed) group12 <- rep(c(1/2,-1/2), times=k) # group dummy with +- 1/2 coding study <- factor(rep(seq_len(k), each=2L)) # study factor const <- cbind(rep(1,2*k)) # intercept for random study effects model X.fit <- X[rep(seq(k), each=2L),,drop=FALSE] # duplicate each row in X (drop=FALSE, so column names are preserved) X.fit <- cbind(group1*X.fit[,,drop=FALSE]) # then multiply by group1 dummy (intercept, if included, becomes the group1 dummy) if (coding == 1/2) group <- group12 if (coding == 1) group <- group1 if (coding == 0) group <- group2 rownames(X.fit) <- seq_len(2*k) if (isTRUE(ddd$retdat)) return(list(dat.grp=dat.grp, X.fit=X.fit, study=study, dat.off = if (!is.null(dat.off)) dat.off else NULL, const=const, group1=group1, group2=group2, group12=group12, group=group, dat.fam=dat.fam)) ################################################################### #################################################### ### unconditional model with fixed study effects ### #################################################### if (model == "UM.FS") { ### fit FE model if (verbose) message(mstyle$message("Fitting the FE model ...")) if (k > 1) { res.FE <- try(glm(dat.grp ~ 0 + X.fit + study, offset=dat.off, family=dat.fam, control=glmCtrl), silent=!verbose) } else { res.FE <- try(glm(dat.grp ~ 0 + X.fit + const, offset=dat.off, family=dat.fam, control=glmCtrl), silent=!verbose) } if (inherits(res.FE, "try-error")) stop(mstyle$stop(paste0("Cannot fit FE model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood #ll.FE <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, predict(res.FE, type="response"), log=TRUE))) # model has a NULL offset #ll.FE <- with(data.frame(dat.grp), sum(dpois(xi, predict(res.FE, type="response"), log=TRUE))) # offset already incorporated into predict() ll.FE <- c(logLik(res.FE)) # same as above ### fit saturated FE model (= QE model) QEconv <- FALSE ll.QE <- NA_real_ if (!isTRUE(ddd$skiphet)) { if (k > 1 && verbose) message(mstyle$message("Fitting the saturated model ...")) if (k > 1) { X.QE <- model.matrix(~ 0 + X.fit + study + study:group1) res.QE <- try(glm(dat.grp ~ 0 + X.QE, offset=dat.off, family=dat.fam, control=glmCtrl), silent=!verbose) } else { res.QE <- res.FE } if (inherits(res.QE, "try-error")) { warning(mstyle$warning(paste0("Cannot fit saturated model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details)."))), call.=FALSE) } else { QEconv <- TRUE ### log-likelihood #ll.QE <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, xi/(xi+mi), log=TRUE))) # model has a NULL offset #ll.QE <- with(data.frame(dat.grp), sum(dpois(xi, xi, log=TRUE))) # offset not relevant for saturated model ll.QE <- c(logLik(res.QE)) # same as above ### extract coefficients and variance-covariance matrix for Wald-type test for heterogeneity #b2.QE <- cbind(na.omit(coef(res.QE)[-seq_len(k+p)])) # coef() still includes aliased coefficients as NAs, so filter them out b2.QE <- cbind(coef(res.QE, complete=FALSE)[-seq_len(k+p)]) # aliased coefficients are removed by coef() when complete=FALSE vb2.QE <- vcov(res.QE, complete=FALSE)[-seq_len(k+p),-seq_len(k+p),drop=FALSE] # aliased coefficients are removed by vcov() when complete=FALSE } } if (method == "ML") { ### fit ML model if (verbose) message(mstyle$message("Fitting the ML model ...")) if (package == "lme4") { if (verbose) { res.ML <- try(lme4::glmer(dat.grp ~ 0 + X.fit + study + (0 + group | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose) } else { res.ML <- suppressMessages(try(lme4::glmer(dat.grp ~ 0 + X.fit + study + (0 + group | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose)) } } if (package == "GLMMadaptive") { if (is.element(measure, c("OR","RR","RD"))) { dat.mm <- data.frame(xi=dat.grp[,"xi"], mi=dat.grp[,"mi"], study=study, group=group) res.ML <- try(GLMMadaptive::mixed_model(cbind(xi,mi) ~ 0 + X.fit + study, random = ~ 0 + group | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } else { dat.mm <- data.frame(xi=dat.grp, study=study, group=group) res.ML <- try(GLMMadaptive::mixed_model(xi ~ 0 + X.fit + study + offset(dat.off), random = ~ 0 + group | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } } if (package == "glmmTMB") { if (verbose) { res.ML <- try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + study + (0 + group | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose) } else { res.ML <- suppressMessages(try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + study + (0 + group | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose)) } } if (inherits(res.ML, "try-error")) stop(mstyle$stop(paste0("Cannot fit ML model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood #ll.ML <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, fitted(res.ML), log=TRUE))) # not correct (since it does not incorporate the random effects; same as ll.FE if tau^2=0) #ll.ML <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, plogis(qlogis(fitted(res.ML)) + group12*unlist(ranef(res.ML))), log=TRUE))) # not correct (since one really has to integrate; same as ll.FE if tau^2=0) #ll.ML <- c(logLik(res.ML)) # this is not the same as ll.FE when tau^2 = 0 (not sure why) if (package == "lme4") { if (is.na(ll.QE)) { ll.ML <- c(logLik(res.ML)) } else { ll.ML <- ll.QE - 1/2 * deviance(res.ML) # this makes ll.ML comparable to ll.FE (same as ll.FE when tau^2=0) } } else { ll.ML <- c(logLik(res.ML)) # not 100% sure how comparable this is to ll.FE when tau^2 = 0 (seems correct for glmmTMB) } } #return(list(res.FE, res.QE, res.ML, ll.FE=ll.FE, ll.QE=ll.QE, ll.ML=ll.ML)) #res.FE <- res[[1]]; res.QE <- res[[2]]; res.ML <- res[[3]] if (is.element(method, c("FE","EE","CE"))) { beta <- cbind(coef(res.FE)[seq_len(p)]) vb <- vcov(res.FE)[seq_len(p),seq_len(p),drop=FALSE] tau2 <- 0 sigma2 <- NA_real_ parms <- p + k p.eff <- p + k k.eff <- 2*k } if (method == "ML") { if (package == "lme4") { beta <- cbind(lme4::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] tau2 <- lme4::VarCorr(res.ML)[[1]][1] } if (package == "GLMMadaptive") { beta <- cbind(GLMMadaptive::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] tau2 <- res.ML$D[1,1] } if (package == "glmmTMB") { beta <- cbind(glmmTMB::fixef(res.ML)$cond[seq_len(p)]) vb <- as.matrix(vcov(res.ML)$cond)[seq_len(p),seq_len(p),drop=FALSE] tau2 <- glmmTMB::VarCorr(res.ML)[[1]][[1]][[1]] } sigma2 <- NA_real_ parms <- p + k + 1 p.eff <- p + k k.eff <- 2*k } #return(list(beta=beta, vb=vb, tau2=tau2, sigma2=sigma2, parms=parms, p.eff=p.eff, k.eff=k.eff, b2.QE=b2.QE, vb2.QE=vb2.QE)) } ################################################################### ##################################################### ### unconditional model with random study effects ### ##################################################### if (model == "UM.RS") { ### fit FE model if (verbose) message(mstyle$message("Fitting the FE model ...")) if (package == "lme4") { if (verbose) { res.FE <- try(lme4::glmer(dat.grp ~ 0 + X.fit + const + (1 | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose) } else { res.FE <- suppressMessages(try(lme4::glmer(dat.grp ~ 0 + X.fit + const + (1 | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose)) } } if (package == "GLMMadaptive") { if (is.element(measure, c("OR","RR","RD"))) { dat.mm <- data.frame(xi=dat.grp[,"xi"], mi=dat.grp[,"mi"], study=study, const=const) res.FE <- try(GLMMadaptive::mixed_model(cbind(xi,mi) ~ 0 + X.fit + const, random = ~ 1 | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } else { dat.mm <- data.frame(xi=dat.grp, study=study, const=const) res.FE <- try(GLMMadaptive::mixed_model(xi ~ 0 + X.fit + const + offset(dat.off), random = ~ 1 | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } } if (package == "glmmTMB") { if (verbose) { res.FE <- try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + const + (1 | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose) } else { res.FE <- suppressMessages(try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + const + (1 | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose)) } } if (inherits(res.FE, "try-error")) stop(mstyle$stop(paste0("Cannot fit FE model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood ll.FE <- c(logLik(res.FE)) ### fit saturated FE model (= QE model) ### notes: 1) must remove aliased terms before fitting (for GLMMadaptive to work) ### 2) use the sigma^2 value from the FE model as the starting value for the study-level random effect QEconv <- FALSE ll.QE <- NA_real_ if (!isTRUE(ddd$skiphet)) { if (k > 1 && verbose) message(mstyle$message("Fitting the saturated model ...")) if (k > 1) { X.QE <- model.matrix(~ 0 + X.fit + const + study:group1) res.QE <- try(glm(dat.grp ~ 0 + X.QE, offset=dat.off, family=dat.fam, control=glmCtrl), silent=TRUE) X.QE <- X.QE[,!is.na(coef(res.QE)),drop=FALSE] if (package == "lme4") { if (verbose) { res.QE <- try(lme4::glmer(dat.grp ~ 0 + X.QE + (1 | study), offset=dat.off, family=dat.fam, start=c(sqrt(lme4::VarCorr(res.FE)[[1]][1])), nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose) } else { res.QE <- suppressMessages(try(lme4::glmer(dat.grp ~ 0 + X.QE + (1 | study), offset=dat.off, family=dat.fam, start=c(sqrt(lme4::VarCorr(res.FE)[[1]][1])), nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose)) } } if (package == "GLMMadaptive") { glmerCtrl$max_coef_value <- 50 if (is.element(measure, c("OR","RR","RD"))) { dat.mm <- data.frame(xi=dat.grp[,"xi"], mi=dat.grp[,"mi"], study=study) res.QE <- try(GLMMadaptive::mixed_model(cbind(xi,mi) ~ 0 + X.QE, random = ~ 1 | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl, initial_values=list(D=matrix(res.FE$D[1,1]))), silent=!verbose) } else { dat.mm <- data.frame(xi=dat.grp, study=study) res.QE <- try(GLMMadaptive::mixed_model(xi ~ 0 + X.QE + offset(dat.off), random = ~ 1 | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } } if (package == "glmmTMB") { if (verbose) { res.QE <- try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.QE + (1 | study), offset=dat.off, family=dat.fam, start=list(theta=sqrt(glmmTMB::VarCorr(res.FE)[[1]][[1]][[1]])), verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose) } else { res.QE <- suppressMessages(try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.QE + (1 | study), offset=dat.off, family=dat.fam, start=list(theta=sqrt(glmmTMB::VarCorr(res.FE)[[1]][[1]][[1]])), verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose)) } } } else { res.QE <- res.FE } if (inherits(res.QE, "try-error")) { warning(mstyle$warning(paste0("Cannot fit saturated model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details)."))), call.=FALSE) } else { QEconv <- TRUE ### log-likelihood ll.QE <- c(logLik(res.QE)) ### extract coefficients and variance-covariance matrix for Wald-type test for heterogeneity (aliased coefficients are already removed) if (package == "lme4") { b2.QE <- cbind(lme4::fixef(res.QE)[-seq_len(p+1)]) vb2.QE <- as.matrix(vcov(res.QE))[-seq_len(p+1),-seq_len(p+1),drop=FALSE] } if (package == "GLMMadaptive") { b2.QE <- cbind(GLMMadaptive::fixef(res.QE)[-seq_len(p+1)]) vb2.QE <- as.matrix(vcov(res.QE))[-seq_len(p+1),-seq_len(p+1),drop=FALSE] vb2.QE <- vb2.QE[-nrow(vb2.QE), -ncol(vb2.QE)] } if (package == "glmmTMB") { b2.QE <- cbind(glmmTMB::fixef(res.QE)$cond[-seq_len(p+1)]) vb2.QE <- as.matrix(vcov(res.QE)$cond)[-seq_len(p+1),-seq_len(p+1),drop=FALSE] } } } if (method == "ML") { ### fit ML model ### notes: 1) not recommended alternative: using group1 instead of group12 for the random effect (since that forces the variance in group 2 to be lower) ### 2) this approach is okay if we also allow group1 random effect and intercepts to correlate (in fact, this is identical to the bivariate model) ### 3) start=c(sqrt(lme4::VarCorr(res.FE)[[1]][1])) has no effect, since the start value for tau^2 is not specified (and using 0 is probably not ideal for that) if (verbose) message(mstyle$message("Fitting the ML model ...")) if (package == "lme4") { if (verbose) { if (cor) { res.ML <- try(lme4::glmer(dat.grp ~ 0 + X.fit + const + (group | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose) } else { res.ML <- try(lme4::glmer(dat.grp ~ 0 + X.fit + const + (group || study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose) } } else { if (cor) { res.ML <- suppressMessages(try(lme4::glmer(dat.grp ~ 0 + X.fit + const + (group | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose)) } else { res.ML <- suppressMessages(try(lme4::glmer(dat.grp ~ 0 + X.fit + const + (group || study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose)) } } } if (package == "GLMMadaptive") { if (is.element(measure, c("OR","RR","RD"))) { dat.mm <- data.frame(xi=dat.grp[,"xi"], mi=dat.grp[,"mi"], study=study, const=const, group=group) if (cor) { res.ML <- try(GLMMadaptive::mixed_model(cbind(xi,mi) ~ 0 + X.fit + const, random = ~ group | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } else { res.ML <- try(GLMMadaptive::mixed_model(cbind(xi,mi) ~ 0 + X.fit + const, random = ~ group || study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } } else { dat.mm <- data.frame(xi=dat.grp, study=study, const=const, group=group) if (cor) { res.ML <- try(GLMMadaptive::mixed_model(xi ~ 0 + X.fit + const + offset(dat.off), random = ~ group | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } else { res.ML <- try(GLMMadaptive::mixed_model(xi ~ 0 + X.fit + const + offset(dat.off), random = ~ group || study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } } } if (package == "glmmTMB") { if (verbose) { if (cor) { res.ML <- try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + const + (group | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose) } else { res.ML <- try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + const + (1 | study) + (0 + group | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose) } } else { if (cor) { res.ML <- suppressMessages(try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + const + (group | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose)) } else { res.ML <- suppressMessages(try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + const + (1 | study) + (0 + group | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose)) } } } if (inherits(res.ML, "try-error")) stop(mstyle$stop(paste0("Cannot fit ML model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood ll.ML <- c(logLik(res.ML)) } #return(list(res.FE, res.QE, res.ML, ll.FE=ll.FE, ll.QE=ll.QE, ll.ML=ll.ML)) #res.FE <- res[[1]]; res.QE <- res[[2]]; res.ML <- res[[3]] if (is.element(method, c("FE","EE","CE"))) { tau2 <- 0 if (package == "lme4") { beta <- cbind(lme4::fixef(res.FE)[seq_len(p)]) vb <- as.matrix(vcov(res.FE))[seq_len(p),seq_len(p),drop=FALSE] sigma2 <- lme4::VarCorr(res.FE)[[1]][1] } if (package == "GLMMadaptive") { beta <- cbind(GLMMadaptive::fixef(res.FE)[seq_len(p)]) vb <- as.matrix(vcov(res.FE))[seq_len(p),seq_len(p),drop=FALSE] sigma2 <- res.FE$D[1,1] } if (package == "glmmTMB") { beta <- cbind(glmmTMB::fixef(res.FE)$cond[seq_len(p)]) vb <- as.matrix(vcov(res.FE)$cond)[seq_len(p),seq_len(p),drop=FALSE] sigma2 <- glmmTMB::VarCorr(res.FE)[[1]][[1]][[1]] } parms <- p + 1 + 1 p.eff <- p + 1 k.eff <- 2*k } if (method == "ML") { if (package == "lme4") { beta <- cbind(lme4::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] if (cor) { tau2 <- lme4::VarCorr(res.ML)[[1]][2,2] sigma2 <- lme4::VarCorr(res.ML)[[1]][1,1] rho <- lme4::VarCorr(res.ML)[[1]][1,2] / sqrt(tau2 * sigma2) } else { tau2 <- lme4::VarCorr(res.ML)[[2]][1] sigma2 <- lme4::VarCorr(res.ML)[[1]][1] } } if (package == "GLMMadaptive") { beta <- cbind(GLMMadaptive::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] tau2 <- res.ML$D[2,2] sigma2 <- res.ML$D[1,1] if (cor) rho <- res.ML$D[1,2] / sqrt(tau2 * sigma2) } if (package == "glmmTMB") { beta <- cbind(glmmTMB::fixef(res.ML)$cond[seq_len(p)]) vb <- as.matrix(vcov(res.ML)$cond)[seq_len(p),seq_len(p),drop=FALSE] if (cor) { tau2 <- glmmTMB::VarCorr(res.ML)[[1]][[1]][2,2] sigma2 <- glmmTMB::VarCorr(res.ML)[[1]][[1]][1,1] rho <- glmmTMB::VarCorr(res.ML)[[1]][[1]][1,2] / sqrt(tau2 * sigma2) } else { tau2 <- glmmTMB::VarCorr(res.ML)[[1]][[2]][[1]] sigma2 <- glmmTMB::VarCorr(res.ML)[[1]][[1]][[1]] } } parms <- p + 1 + 2 p.eff <- p + 1 k.eff <- 2*k } #return(list(beta=beta, vb=vb, tau2=tau2, sigma2=sigma2, parms=parms, p.eff=p.eff, k.eff=k.eff, b2.QE=b2.QE, vb2.QE=vb2.QE)) } ################################################################### } ###################################################################### if ((measure=="IRR" && model == "CM.EL") || (measure=="OR" && model=="CM.AL") || (measure=="OR" && model=="CM.EL")) { ### prepare data for the conditional models if (measure == "OR") { dat.grp <- cbind(xi=ai, mi=ci) # conditional outcome data (number of cases in group 1 conditional on total number of cases) dat.off <- log((ai+bi)/(ci+di)) # log(n1i/n2i) for offset } if (measure == "IRR") { dat.grp <- cbind(xi=x1i, mi=x2i) # conditional outcome data (number of events in group 1 conditional on total number of events) dat.off <- log(t1i/t2i) # log(t1i/t1i) for offset } study <- factor(seq_len(k)) # study factor X.fit <- X if (isTRUE(ddd$retdat)) return(list(dat.grp=dat.grp, X.fit=X.fit, study=study, dat.off = if (!is.null(dat.off)) dat.off else NULL)) ################################################################### ############################################################### ### conditional model (approx. ll for ORs / exact for IRRs) ### ############################################################### ### fit FE model if (verbose) message(mstyle$message("Fitting the FE model ...")) res.FE <- try(glm(dat.grp ~ 0 + X.fit, offset=dat.off, family=binomial, control=glmCtrl), silent=!verbose) if (inherits(res.FE, "try-error")) stop(mstyle$stop(paste0("Cannot fit FE model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood #ll.FE <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, predict(res.FE, type="response"), log=TRUE))) # offset already incorporated into predict() #ll.FE <- with(data.frame(dat.grp), sum(dpois(xi, predict(res.FE, type="response"), log=TRUE))) # offset already incorporated into predict() ll.FE <- c(logLik(res.FE)) # same as above ### fit saturated FE model (= QE model) QEconv <- FALSE ll.QE <- NA_real_ if (!isTRUE(ddd$skiphet)) { if (k > 1 && verbose) message(mstyle$message("Fitting the saturated model ...")) if (k > 1) { X.QE <- model.matrix(~ 0 + X.fit + study) res.QE <- try(glm(dat.grp ~ 0 + X.QE, offset=dat.off, family=binomial, control=glmCtrl), silent=!verbose) } else { res.QE <- res.FE } if (inherits(res.QE, "try-error")) { warning(mstyle$warning(paste0("Cannot fit saturated model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details)."))), call.=FALSE) } else { QEconv <- TRUE ### log-likelihood #ll.QE <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, xi/(xi+mi), log=TRUE))) # offset not relevant for saturated model #ll.QE <- with(data.frame(dat.grp), sum(dpois(xi, xi, log=TRUE))) # offset not relevant for saturated model ll.QE <- c(logLik(res.QE)) # same as above ### extract coefficients and variance-covariance matrix for Wald-type test for heterogeneity #b2.QE <- cbind(na.omit(coef(res.QE)[-seq_len(p)])) # coef() still includes aliased coefficients as NAs, so filter them out b2.QE <- cbind(coef(res.QE, complete=FALSE)[-seq_len(p)]) # aliased coefficients are removed by coef() when complete=FALSE vb2.QE <- vcov(res.QE, complete=FALSE)[-seq_len(p),-seq_len(p),drop=FALSE] # aliased coefficients are removed by vcov() when complete=FALSE } #return(list(res.FE, res.QE, ll.FE, ll.QE)) #res.FE <- res[[1]]; res.QE <- res[[2]] } if (method == "ML") { ### fit ML model ### notes: 1) suppressMessages to suppress the 'one random effect per observation' warning if (verbose) message(mstyle$message("Fitting the ML model ...")) if (package == "lme4") { if (verbose) { res.ML <- try(lme4::glmer(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=binomial, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose) } else { res.ML <- suppressMessages(try(lme4::glmer(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=binomial, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose)) } } if (package == "GLMMadaptive") { dat.mm <- data.frame(xi=dat.grp[,"xi"], mi=dat.grp[,"mi"], study=study) res.ML <- try(GLMMadaptive::mixed_model(cbind(xi,mi) ~ 0 + X.fit + offset(dat.off), random = ~ 1 | study, data=dat.mm, family=binomial, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } if (package == "glmmTMB") { if (verbose) { res.ML <- try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=binomial, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose) } else { res.ML <- suppressMessages(try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=binomial, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose)) } } if (inherits(res.ML, "try-error")) stop(mstyle$stop(paste0("Cannot fit ML model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood if (package == "lme4") { if (is.na(ll.QE)) { ll.ML <- c(logLik(res.ML)) } else { if (verbose) { ll.ML <- ll.QE - 1/2 * deviance(res.ML) # this makes ll.ML comparable to ll.FE (same as ll.FE when tau^2=0) } else { ll.ML <- ll.QE - 1/2 * suppressWarnings(deviance(res.ML)) # suppressWarnings() to suppress 'Warning in sqrt(object$devResid()) : NaNs produced' } } } else { ll.ML <- c(logLik(res.ML)) # not 100% sure how comparable this is to ll.FE when tau^2 = 0 (seems correct for glmmTMB) } } #return(list(res.FE, res.QE, res.ML, ll.FE=ll.FE, ll.QE=ll.QE, ll.ML=ll.ML)) #res.FE <- res[[1]]; res.QE <- res[[2]]; res.ML <- res[[3]] if (is.element(method, c("FE","EE","CE"))) { beta <- cbind(coef(res.FE)[seq_len(p)]) vb <- vcov(res.FE)[seq_len(p),seq_len(p),drop=FALSE] tau2 <- 0 sigma2 <- NA_real_ parms <- p p.eff <- p k.eff <- k } if (method == "ML") { if (package == "lme4") { beta <- cbind(lme4::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] tau2 <- lme4::VarCorr(res.ML)[[1]][1] } if (package == "GLMMadaptive") { beta <- cbind(GLMMadaptive::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] tau2 <- res.ML$D[1,1] } if (package == "glmmTMB") { beta <- cbind(glmmTMB::fixef(res.ML)$cond[seq_len(p)]) vb <- as.matrix(vcov(res.ML)$cond)[seq_len(p),seq_len(p),drop=FALSE] tau2 <- glmmTMB::VarCorr(res.ML)[[1]][[1]][[1]] } sigma2 <- NA_real_ parms <- p + 1 p.eff <- p k.eff <- k } #return(list(beta=beta, vb=vb, tau2=tau2, sigma2=sigma2, parms=parms, p.eff=p.eff, k.eff=k.eff, b2.QE=b2.QE, vb2.QE=vb2.QE)) ################################################################### } if (measure=="OR" && model=="CM.EL") { #################################################### ### conditional model (exact likelihood for ORs) ### #################################################### if (verbose) message(mstyle$message("Fitting the FE model ...")) if (is.element(optimizer, c("optim","nlminb","uobyqa","newuoa","bobyqa","nloptr","nlm","hjk","nmk","mads","ucminf","lbfgsb3c","subplex","BBoptim","optimParallel","Rcgmin","Rvmmin"))) { if (optimizer == "optim") { par.arg <- "par" ctrl.arg <- ", control=optCtrl" } if (optimizer == "nlminb") { par.arg <- "start" ctrl.arg <- ", control=optCtrl" } if (is.element(optimizer, c("uobyqa","newuoa","bobyqa"))) { par.arg <- "par" optimizer <- paste0("minqa::", optimizer) ctrl.arg <- ", control=optCtrl" } if (optimizer == "nloptr") { par.arg <- "x0" optimizer <- paste0("nloptr::nloptr") ctrl.arg <- ", opts=optCtrl" } if (optimizer == "nlm") { par.arg <- "p" ctrl.arg <- paste(names(optCtrl), unlist(optCtrl), sep="=", collapse=", ") if (nchar(ctrl.arg) != 0L) ctrl.arg <- paste0(", ", ctrl.arg) } if (is.element(optimizer, c("hjk","nmk","mads"))) { par.arg <- "par" optimizer <- paste0("dfoptim::", optimizer) ctrl.arg <- ", control=optCtrl" } if (is.element(optimizer, c("ucminf","lbfgsb3c","subplex"))) { par.arg <- "par" optimizer <- paste0(optimizer, "::", optimizer) ctrl.arg <- ", control=optCtrl" } if (optimizer == "BBoptim") { par.arg <- "par" optimizer <- "BB::BBoptim" ctrl.arg <- ", quiet=TRUE, control=optCtrl" } if (optimizer == "Rcgmin") { par.arg <- "par" optimizer <- "optimx::Rcgmin" ctrl.arg <- ", gr='grnd', control=optCtrl" #ctrl.arg <- ", control=optCtrl" } if (optimizer == "Rvmmin") { par.arg <- "par" optimizer <- "optimx::Rvmmin" ctrl.arg <- ", gr='grnd', control=optCtrl" #ctrl.arg <- ", control=optCtrl" } if (optimizer == "optimParallel") { par.arg <- "par" optimizer <- paste0("optimParallel::optimParallel") ctrl.arg <- ", control=optCtrl, parallel=parallel" parallel$cl <- NULL if (is.null(cl)) { ncpus <- as.integer(ncpus) if (ncpus < 1L) stop(mstyle$stop("Control argument 'ncpus' must be >= 1.")) cl <- parallel::makePSOCKcluster(ncpus) on.exit(parallel::stopCluster(cl), add=TRUE) } else { if (!inherits(cl, "SOCKcluster")) stop(mstyle$stop("Specified cluster is not of class 'SOCKcluster'.")) } parallel$cl <- cl if (is.null(parallel$forward)) parallel$forward <- FALSE if (is.null(parallel$loginfo)) { if (verbose) { parallel$loginfo <- TRUE } else { parallel$loginfo <- FALSE } } } ### fit FE model ### notes: 1) this routine uses direct optimization over the non-central hypergeometric distribution ### 2) start values from CM.AL model (res.FE) and tau^2=0 (random=FALSE) ### 3) no integration needed for FE model, so intCtrl is not actually relevant ### 4) results can be sensitive to the scaling of moderators optcall <- paste0(optimizer, "(", par.arg, "=c(coef(res.FE)[seq_len(p)], 0), .dnchg, ", ifelse(optimizer=="optim", "method=optmethod, ", ""), "ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec, intCtrl=intCtrl", ctrl.arg, ")\n") #return(optcall) if (verbose) { res.FE <- try(eval(str2lang(optcall)), silent=!verbose) } else { res.FE <- try(suppressWarnings(eval(str2lang(optcall))), silent=!verbose) } #return(res.FE) if (optimizer == "optimParallel::optimParallel" && verbose) { tmp <- capture.output(print(res.FE$loginfo)) .print.output(tmp, mstyle$verbose) } if (inherits(res.FE, "try-error")) stop(mstyle$stop(paste0("Cannot fit FE model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### convergence checks if (is.element(optimizer, c("optim","nlminb","dfoptim::hjk","dfoptim::nmk","lbfgsb3c::lbfgsb3c","subplex::subplex","BB::BBoptim","optimx::Rcgmin","optimx::Rvmmin","optimParallel::optimParallel")) && res.FE$convergence != 0) stop(mstyle$stop(paste0("Cannot fit FE model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.FE$convergence, ")."))) if (is.element(optimizer, c("dfoptim::mads")) && res.FE$convergence > optCtrl$tol) stop(mstyle$stop(paste0("Cannot fit FE model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.FE$convergence, ")."))) if (is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa")) && res.FE$ierr != 0) stop(mstyle$stop(paste0("Cannot fit FE model. Optimizer (", optimizer, ") did not achieve convergence (ierr = ", res.FE$ierr, ")."))) if (optimizer=="nloptr::nloptr" && !(res.FE$status >= 1 && res.FE$status <= 4)) stop(mstyle$stop(paste0("Cannot fit FE model. Optimizer (", optimizer, ") did not achieve convergence (status = ", res.FE$status, ")."))) if (optimizer=="ucminf::ucminf" && !(res.FE$convergence == 1 || res.FE$convergence == 2)) stop(mstyle$stop(paste0("Cannot fit FE model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.FE$convergence, ")."))) if (verbose > 2) { cat("\n") tmp <- capture.output(print(res.FE)) .print.output(tmp, mstyle$verbose) } ### copy estimated values to 'par' if (optimizer=="nloptr::nloptr") res.FE$par <- res.FE$solution if (optimizer=="nlm") res.FE$par <- res.FE$estimate res.FE$par <- unname(res.FE$par) if (verbose > 1) message(mstyle$message("Computing the Hessian ...")) if (con$hesspack == "numDeriv") h.FE <- numDeriv::hessian(.dnchg, x=res.FE$par, method.args=hessianCtrl, ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec) if (con$hesspack == "pracma") h.FE <- pracma::hessian(.dnchg, x0=res.FE$par, h=hessianCtrl$h, ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec) if (con$hesspack == "calculus") h.FE <- calculus::hessian(.dnchg, var=res.FE$par, accuracy=hessianCtrl$accuracy, stepsize=hessianCtrl$stepsize, params=list(ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec)) #return(list(res.FE=res.FE, h.FE=h.FE)) ### log-likelihood if (is.element(optimizer, c("optim","dfoptim::hjk","dfoptim::nmk","dfoptim::mads","ucminf::ucminf","lbfgsb3c::lbfgsb3c","subplex::subplex","BB::BBoptim","optimx::Rcgmin","optimx::Rvmmin","optimParallel::optimParallel"))) ll.FE <- -1 * res.FE$value if (is.element(optimizer, c("nlminb","nloptr::nloptr"))) ll.FE <- -1 * res.FE$objective if (is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa"))) ll.FE <- -1 * res.FE$fval if (optimizer == "nlm") ll.FE <- -1 * res.FE$minimum ### fit saturated FE model (= QE model) ### notes: 1) must figure out which terms are aliased in saturated model and remove those terms before fitting ### 2) start values from CM.AL model (res.QE) and tau^2=0 (random=FALSE) ### 3) so only try to fit saturated model if this was possible with CM.AL ### 4) no integration needed for FE model, so intCtrl is not relevant if (QEconv) { # QEconv is FALSE when skiphet=TRUE so this then also gets skipped automatically if (k > 1 && verbose) message(mstyle$message("Fitting the saturated model ...")) if (k > 1) { b.QE <- coef(res.QE, complete=TRUE) # res.QE is from CM.AL model is.aliased <- is.na(b.QE) b.QE <- b.QE[!is.aliased] X.QE <- X.QE[,!is.aliased,drop=FALSE] optcall <- paste0(optimizer, "(", par.arg, "=c(b.QE, 0), .dnchg, ", ifelse(optimizer=="optim", "method=optmethod, ", ""), "ai=ai, bi=bi, ci=ci, di=di, X.fit=X.QE, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec, intCtrl=intCtrl", ctrl.arg, ")\n") #return(optcall) if (verbose) { res.QE <- try(eval(str2lang(optcall)), silent=!verbose) } else { res.QE <- try(suppressWarnings(eval(str2lang(optcall))), silent=!verbose) } #return(res.QE) if (optimizer == "optimParallel::optimParallel" && verbose) { tmp <- capture.output(print(res.QE$loginfo)) .print.output(tmp, mstyle$verbose) } if (inherits(res.QE, "try-error")) { warning(mstyle$warning(paste0("Cannot fit saturated model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details)."))), call.=FALSE) QEconv <- FALSE ll.QE <- NA_real_ } ### convergence checks if (QEconv && is.element(optimizer, c("optim","nlminb","dfoptim::hjk","dfoptim::nmk","lbfgsb3c::lbfgsb3c","subplex::subplex","BB::BBoptim","optimx::Rcgmin","optimx:Rvmmin","optimParallel::optimParallel")) && res.QE$convergence != 0) { warning(mstyle$warning(paste0("Cannot fit saturated model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.QE$convergence, ").")), call.=FALSE) QEconv <- FALSE ll.QE <- NA_real_ } if (QEconv && is.element(optimizer, c("dfoptim::mads")) && res.QE$convergence > optCtrl$tol) { warning(mstyle$warning(paste0("Cannot fit saturated model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.QE$convergence, ").")), call.=FALSE) QEconv <- FALSE ll.QE <- NA_real_ } if (QEconv && is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa")) && res.QE$ierr != 0) { warning(mstyle$warning(paste0("Cannot fit saturated model. Optimizer (", optimizer, ") did not achieve convergence (ierr = ", res.QE$ierr, ").")), call.=FALSE) QEconv <- FALSE ll.QE <- NA_real_ } if (QEconv && optimizer=="nloptr::nloptr" && !(res.QE$status >= 1 && res.QE$status <= 4)) { warning(mstyle$warning(paste0("Cannot fit saturated model. Optimizer (", optimizer, ") did not achieve convergence (status = ", res.QE$status, ").")), call.=FALSE) QEconv <- FALSE ll.QE <- NA_real_ } if (QEconv && optimizer=="ucminf::ucminf" && !(res.QE$convergence == 1 || res.QE$convergence == 2)) { warning(mstyle$warning(paste0("Cannot fit saturated model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.QE$convergence, ").")), call.=FALSE) QEconv <- FALSE ll.QE <- NA_real_ } if (verbose > 2) { cat("\n") tmp <- capture.output(print(res.QE)) .print.output(tmp, mstyle$verbose) } ### copy estimated values to 'par' if (QEconv && optimizer=="nloptr::nloptr") res.QE$par <- res.QE$solution if (QEconv && optimizer=="nlm") res.QE$par <- res.QE$estimate res.QE$par <- unname(res.QE$par) if (QEconv) { if (verbose > 1) message(mstyle$message("Computing the Hessian ...")) if (con$hesspack == "numDeriv") h.QE <- numDeriv::hessian(.dnchg, x=res.QE$par, method.args=hessianCtrl, ai=ai, bi=bi, ci=ci, di=di, X.fit=X.QE, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec) if (con$hesspack == "pracma") h.QE <- pracma::hessian(.dnchg, x0=res.QE$par, h=hessianCtrl$h, ai=ai, bi=bi, ci=ci, di=di, X.fit=X.QE, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec) if (con$hesspack == "calculus") h.QE <- calculus::hessian(.dnchg, var=res.QE$par, accuracy=hessianCtrl$accuracy, stepsize=hessianCtrl$stepsize, params=list(ai=ai, bi=bi, ci=ci, di=di, X.fit=X.QE, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec)) } } else { res.QE <- res.FE h.QE <- h.FE } #return(list(res.QE, h.QE)) } if (k > 1 && QEconv) { ### log-likelihood if (is.element(optimizer, c("optim","dfoptim::hjk","dfoptim::nmk","dfoptim::mads","ucminf::ucminf","lbfgsb3c::lbfgsb3c","subplex::subplex","BB::BBoptim","optimx::Rcgmin","optimx::Rvmmin","optimParallel::optimParallel"))) ll.QE <- -1 * res.QE$value if (is.element(optimizer, c("nlminb","nloptr::nloptr"))) ll.QE <- -1 * res.QE$objective if (is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa"))) ll.QE <- -1 * res.QE$fval if (optimizer == "nlm") ll.QE <- -1 * res.QE$minimum ### extract coefficients and variance-covariance matrix for Wald-type test for heterogeneity #return(res.QE) b2.QE <- res.QE$par # recall: aliased coefficients are already removed hessian <- h.QE # take hessian from hessian() (again, aliased coefs are already removed) #hessian <- res.QE$hessian # take hessian from optim() (again, aliased coefs are already removed) p.QE <- length(b2.QE) # how many parameters are left in saturated model? b2.QE <- b2.QE[-p.QE] # remove last element (for tau^2, constrained to 0) hessian <- hessian[-p.QE,-p.QE,drop=FALSE] # remove last row/column (for tau^2, constrained to 0) p.QE <- length(b2.QE) # how many parameters are now left? is.0 <- colSums(hessian == 0L) == p.QE # any columns in hessian entirely composed of 0s? b2.QE <- b2.QE[!is.0] # keep coefficients where this is not the case hessian <- hessian[!is.0,!is.0,drop=FALSE] # keep parts of hessian where this is not the case b2.QE <- cbind(b2.QE[-seq_len(p)]) # remove first p coefficients h.A <- hessian[seq_len(p),seq_len(p),drop=FALSE] # upper left part of hessian h.B <- hessian[seq_len(p),-seq_len(p),drop=FALSE] # upper right part of hessian h.C <- hessian[-seq_len(p),seq_len(p),drop=FALSE] # lower left part of hessian h.D <- hessian[-seq_len(p),-seq_len(p),drop=FALSE] # lower right part of hessian (of which we need the inverse) chol.h.A <- try(chol(h.A), silent=!verbose) # see if h.A can be inverted with chol() if (inherits(chol.h.A, "try-error") || anyNA(chol.h.A)) { warning(mstyle$warning("Cannot invert the Hessian for the saturated model."), call.=FALSE) QE.Wld <- NA_real_ } else { Ivb2.QE <- h.D-h.C%*%chol2inv(chol.h.A)%*%h.B # inverse of the inverse of the lower right part QE.Wld <- c(t(b2.QE) %*% Ivb2.QE %*% b2.QE) # Wald statistic (note: this approach only requires taking the inverse of h.A) } # see: https://en.wikipedia.org/wiki/Invertible_matrix#Blockwise_inversion #vb2.QE <- chol2inv(chol(hessian))[-seq_len(p),-seq_len(p),drop=FALSE] # take inverse, then take part relevant for QE test #QE.Wld <- c(t(b2.QE) %*% chol2inv(chol(vb2.QE)) %*% b2.QE) } } if (is.element(optimizer, c("clogit","clogistic"))) { ### fit FE model ### notes: 1) this routine uses either clogit() from the survival package or clogistic() from the Epi package ### 2) the dataset must be in group-level and IPD format (i.e., not in the conditional format) ### 3) if the studies are large, the IPD dataset may also be very large, and R may run out of memory ### 4) for larger datasets, run time is often excessive (and may essentially freeze R) ### 5) suppressMessages for clogit() to suppress the 'beta may be infinite' warning ### prepare IPD dataset # study event group1 intrcpt moderator # i 1 1 1 x1i (repeated ai times) event <- unlist(lapply(seq_len(k), function(i) c(rep.int(1,ai[i]), rep.int(0,bi[i]), rep.int(1,ci[i]), rep.int(0,di[i])))) # event dummy i 0 1 1 x1i (repeated bi times) group1 <- unlist(lapply(seq_len(k), function(i) c(rep.int(1,ai[i]), rep.int(1,bi[i]), rep.int(0,ci[i]), rep.int(0,di[i])))) # group1 dummy i 1 0 0 0 (repeated ci times) study.l <- factor(rep(seq_len(k), times=ni)) # study factor i 0 0 0 0 (repeated di times) X.fit.l <- X[rep(seq_len(k), times=ni),,drop=FALSE] # repeat each row in X ni times each X.fit.l <- cbind(group1*X.fit.l) # multiply by group1 dummy (including intercept, which becomes the group1 dummy) const <- rep(1,length(event)) if (isTRUE(ddd$retdat)) return(data.frame(event, group1, study.l, X.fit.l, const)) ### fit FE model if (k > 1) { if (optimizer == "clogit") { args.clogit <- clogitCtrl args.clogit$formula <- event ~ X.fit.l + strata(study.l) res.FE <- try(do.call(clogit, args.clogit), silent=!verbose) } if (optimizer == "clogistic") { args.clogistic <- clogisticCtrl args.clogistic$formula <- event ~ X.fit.l args.clogistic$strata <- study.l res.FE <- try(do.call(Epi::clogistic, args.clogistic), silent=!verbose) } } else { stop(mstyle$stop(paste0("Cannot use '", optimizer, "' optimizer when k=1."))) } if (inherits(res.FE, "try-error")) stop(mstyle$stop(paste0("Cannot fit FE model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### fit saturated FE model (= QE model) ### notes: 1) must figure out which terms are aliased in saturated model and remove those terms before fitting ### 2) fixed effects part does not include 'study' factor, since this is incorporated into the strata ### 3) however, for calculating the log-likelihood, we need to go back to the conditional data, so we need to reconstruct X.QE (the study.l:group1 coefficients are the study coefficients) if (QEconv) { # QEconv is FALSE when skiphet=TRUE so this then also gets skipped automatically if (verbose) message(mstyle$message("Fitting the saturated model ...")) b.QE <- coef(res.QE, complete=TRUE) # res.QE is from CM.AL model is.aliased <- is.na(b.QE) X.QE.l <- model.matrix(~ 0 + X.fit.l + study.l:group1) X.QE.l <- X.QE.l[,!is.aliased,drop=FALSE] X.QE <- X.QE[,!is.aliased,drop=FALSE] if (optimizer == "clogit") { args.clogit <- clogitCtrl args.clogit$formula <- event ~ X.QE.l + strata(study.l) #args.clogit$method <- "efron" # c("exact", "approximate", "efron", "breslow") if (verbose) { res.QE <- try(do.call(clogit, args.clogit), silent=!verbose) } else { res.QE <- try(suppressWarnings(do.call(clogit, args.clogit)), silent=!verbose) } } if (optimizer == "clogistic") { args.clogistic <- clogisticCtrl args.clogistic$formula <- event ~ X.QE.l args.clogistic$strata <- study.l res.QE <- try(do.call(Epi::clogistic, args.clogistic), silent=!verbose) } if (inherits(res.QE, "try-error")) stop(mstyle$stop(paste0("Cannot fit saturated model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood ll.FE <- -1 * .dnchg(c(cbind(coef(res.FE)),0), ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec) ll.QE <- -1 * .dnchg(c(cbind(coef(res.QE)),0), ai=ai, bi=bi, ci=ci, di=di, X.fit=X.QE, random=FALSE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec) ### extract coefficients and variance-covariance matrix for Wald-type test for heterogeneity b2.QE <- cbind(coef(res.QE)[-seq_len(p)]) # aliased coefficients are already removed vb2.QE <- vcov(res.QE)[-seq_len(p),-seq_len(p),drop=FALSE] # aliased coefficients are already removed } } #return(list(res.FE, res.QE, ll.FE=ll.FE, ll.QE=ll.QE)) #res.FE <- res[[1]]; res.QE <- res[[2]] if (method == "ML") { ### fit ML model ### notes: 1) cannot use clogit() or clogistic() for this (do not allow for the addition of random effects) ### 2) mclogit() from mclogit package may be an alternative (but it only provides a PQL method) ### 3) start values from CM.AL model (add 0.01 to tau^2 estimate, in case estimate of tau^2 is 0) ### 4) optimization involves integration, so intCtrl is relevant ### 5) results can be sensitive to the scaling of moderators if (verbose) message(mstyle$message("Fitting the ML model ...")) optcall <- paste0(optimizer, "(", par.arg, "=c(beta, log(tau2+0.01)), .dnchg, ", ifelse(optimizer=="optim", "method=optmethod, ", ""), "ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=TRUE, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec, intCtrl=intCtrl", ctrl.arg, ")\n") #return(optcall) if (verbose) { res.ML <- try(eval(str2lang(optcall)), silent=!verbose) } else { res.ML <- try(suppressWarnings(eval(str2lang(optcall))), silent=!verbose) } #return(res.ML) if (optimizer == "optimParallel::optimParallel" && verbose) { tmp <- capture.output(print(res.ML$loginfo)) .print.output(tmp, mstyle$verbose) } if (inherits(res.ML, "try-error")) stop(mstyle$stop(paste0("Cannot fit ML model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### convergence checks if (is.element(optimizer, c("optim","nlminb","dfoptim::hjk","dfoptim::nmk","lbfgsb3c::lbfgsb3c","subplex::subplex","BB::BBoptim","optimx::Rcgmin","optimx::Rvmmin","optimParallel::optimParallel")) && res.ML$convergence != 0) stop(mstyle$stop(paste0("Cannot fit ML model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.ML$convergence, ")."))) if (is.element(optimizer, c("dfoptim::mads")) && res.ML$convergence > optCtrl$tol) stop(mstyle$stop(paste0("Cannot fit ML model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.ML$convergence, ")."))) if (is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa")) && res.ML$ierr != 0) stop(mstyle$stop(paste0("Cannot fit ML model. Optimizer (", optimizer, ") did not achieve convergence (ierr = ", res.ML$ierr, ")."))) if (optimizer=="nloptr::nloptr" && !(res.ML$status >= 1 && res.ML$status <= 4)) stop(mstyle$stop(paste0("Cannot fit ML model. Optimizer (", optimizer, ") did not achieve convergence (status = ", res.ML$status, ")."))) if (optimizer=="ucminf::ucminf" && !(res.ML$convergence == 1 || res.ML$convergence == 2)) stop(mstyle$stop(paste0("Cannot fit ML model. Optimizer (", optimizer, ") did not achieve convergence (convergence = ", res.ML$convergence, ")."))) if (verbose > 2) { cat("\n") tmp <- capture.output(print(res.ML)) .print.output(tmp, mstyle$verbose) } ### copy estimated values to 'par' if (optimizer=="nloptr::nloptr") res.ML$par <- res.ML$solution if (optimizer=="nlm") res.ML$par <- res.ML$estimate res.ML$par <- unname(res.ML$par) if (verbose > 1) message(mstyle$message("Computing the Hessian ...")) tau2eff0 <- exp(res.ML$par[p+1]) < con$tau2tol if (tau2eff0) method <- "T0" if (con$hesspack == "numDeriv") h.ML <- numDeriv::hessian(.dnchg, x=res.ML$par, method.args=hessianCtrl, ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=!tau2eff0, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec, intCtrl=intCtrl) if (con$hesspack == "pracma") h.ML <- pracma::hessian(.dnchg, x0=res.ML$par, h=hessianCtrl$h, ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=!tau2eff0, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec, intCtrl=intCtrl) if (con$hesspack == "calculus") h.ML <- calculus::hessian(.dnchg, var=res.ML$par, accuracy=hessianCtrl$accuracy, stepsize=hessianCtrl$stepsize, params=list(ai=ai, bi=bi, ci=ci, di=di, X.fit=X.fit, random=!tau2eff0, verbose=verbose, digits=digits, dnchgcalc=con$dnchgcalc, dnchgprec=con$dnchgprec, intCtrl=intCtrl)) #return(list(res.ML, h.ML)) ### log-likelihood if (is.element(optimizer, c("optim","dfoptim::hjk","dfoptim::nmk","dfoptim::mads","ucminf::ucminf","lbfgsb3c::lbfgsb3c","subplex::subplex","BB::BBoptim","optimx::Rcgmin","optimx:Rvmmin","optimParallel::optimParallel"))) ll.ML <- -1 * res.ML$value if (is.element(optimizer, c("nlminb","nloptr::nloptr"))) ll.ML <- -1 * res.ML$objective if (is.element(optimizer, c("minqa::uobyqa","minqa::newuoa","minqa::bobyqa"))) ll.ML <- -1 * res.ML$fval if (optimizer == "nlm") ll.ML <- -1 * res.ML$minimum } #return(list(res.FE, res.QE, res.ML, ll.FE=ll.FE, ll.QE=ll.QE, ll.ML=ll.ML)) #res.FE <- res[[1]]; res.QE <- res[[2]]; res.ML <- res[[3]] if (is.element(method, c("FE","EE","CE","T0"))) { if (!is.element(optimizer, c("clogit","clogistic"))) { beta <- cbind(res.FE$par[seq_len(p)]) chol.h <- try(chol(h.FE[seq_len(p),seq_len(p)]), silent=!verbose) # see if Hessian can be inverted with chol() if (inherits(chol.h, "try-error") || anyNA(chol.h)) { if (anyNA(chol.h)) stop(mstyle$stop(paste0("Cannot invert the Hessian for the ", ifelse(method == "T0", "ML", method), " model."))) warning(mstyle$warning("Choleski factorization of Hessian failed. Trying inversion via QR decomposition."), call.=FALSE) vb <- try(qr.solve(h.FE[seq_len(p),seq_len(p)]), silent=!verbose) # see if Hessian can be inverted with qr.solve() if (inherits(vb, "try-error")) stop(mstyle$stop(paste0("Cannot invert the Hessian for the ", ifelse(method == "T0", "ML", method), " model."))) } else { vb <- chol2inv(chol.h) } } if (is.element(optimizer, c("clogit","clogistic"))) { beta <- cbind(coef(res.FE)[seq_len(p)]) vb <- vcov(res.FE)[seq_len(p),seq_len(p),drop=FALSE] } tau2 <- 0 sigma2 <- NA_real_ parms <- p p.eff <- p k.eff <- k } if (method == "ML") { beta <- cbind(res.ML$par[seq_len(p)]) chol.h <- try(chol(h.ML), silent=!verbose) # see if Hessian can be inverted with chol() if (inherits(chol.h, "try-error") || anyNA(chol.h)) { if (anyNA(chol.h)) stop(mstyle$stop("Cannot invert the Hessian for the ML model.")) warning(mstyle$warning("Choleski factorization of Hessian failed. Trying inversion via QR decomposition."), call.=FALSE) vb.f <- try(qr.solve(h.ML), silent=!verbose) # see if Hessian can be inverted with qr.solve() if (inherits(vb.f, "try-error")) stop(mstyle$stop("Cannot invert the Hessian for the ML model.")) } else { vb.f <- chol2inv(chol.h) } vb <- vb.f[seq_len(p),seq_len(p),drop=FALSE] if (any(diag(vb) <= 0)) stop(mstyle$stop("Cannot compute var-cov matrix of the fixed effects.")) tau2 <- exp(res.ML$par[p+1]) sigma2 <- NA_real_ parms <- p + 1 p.eff <- p k.eff <- k if (vb.f[p+1,p+1] >= 0) { se.tau2 <- sqrt(vb.f[p+1,p+1]) * tau2 # delta rule: vb[p+1,p+1] is the variance of log(tau2), so vb[p+1,p+1] * tau2^2 is the variance of exp(log(tau2)) crit <- qnorm(level/2, lower.tail=FALSE) ci.lb.tau2 <- exp(res.ML$par[p+1] - crit * sqrt(vb.f[p+1,p+1])) ci.ub.tau2 <- exp(res.ML$par[p+1] + crit * sqrt(vb.f[p+1,p+1])) } } if (is.element(method, c("ML","T0"))) { tmp <- try(rma.uni(measure="PETO", ai=ai, bi=bi, ci=ci, di=di, add=0, mods=X.fit, intercept=FALSE, skipr2=TRUE), silent=TRUE) if (!inherits(tmp, "try-error")) { gvar1 <- det(vcov(tmp)) gvar2 <- det(vb) ratio <- (gvar1 / gvar2)^(1/(2*m)) if (!is.na(ratio) && ratio >= 100) { warning(mstyle$warning("Standard errors of fixed effects appear to be unusually small. Treat results with caution."), call.=FALSE) se.warn <- TRUE } if (!is.na(ratio) && ratio <= 1/100) { warning(mstyle$warning("Standard errors of fixed effects appear to be unusually large. Treat results with caution."), call.=FALSE) se.warn <- TRUE } } } if (method == "T0") { tau2 <- exp(res.ML$par[p+1]) parms <- p + 1 se.tau2 <- 0 method <- "ML" } #return(list(beta=beta, vb=vb, tau2=tau2, sigma2=sigma2, parms=parms, p.eff=p.eff, k.eff=k.eff, b2.QE=b2.QE, vb2.QE=vb2.QE)) } } ######################################################################### ######################################################################### ######################################################################### ### one group outcomes (log odds and log transformed rates) if (is.element(measure, c("PLO","PR","PLN","IRLN"))) { ### prepare data if (is.element(measure, c("PLO","PR","PLN"))) { dat.grp <- cbind(xi=xi,mi=mi) if (is.null(ddd$family)) { if (measure == "PLO") dat.fam <- binomial(link=link) #dat.fam <- binomial(link="probit") if (measure == "PR") #dat.fam <- eval(parse(text="binomial(link=\"identity\")")) dat.fam <- binomial(link=link) if (measure == "PLN") dat.fam <- binomial(link=link) } else { dat.fam <- ddd$family } dat.off <- NULL } if (is.element(measure, c("IRLN"))) { dat.grp <- xi if (is.null(ddd$family)) { dat.fam <- poisson(link=link) } else { dat.fam <- ddd$family } dat.off <- log(ti) } study <- factor(seq_len(k)) # study factor X.fit <- X if (isTRUE(ddd$retdat)) return(list(dat.grp=dat.grp, X.fit=X.fit, study=study, dat.off = if (!is.null(dat.off)) dat.off else NULL, dat.fam=dat.fam)) ### fit FE model if (verbose) message(mstyle$message("Fitting the FE model ...")) res.FE <- try(glm(dat.grp ~ 0 + X.fit, offset=dat.off, family=dat.fam, control=glmCtrl), silent=!verbose) if (inherits(res.FE, "try-error")) stop(mstyle$stop(paste0("Cannot fit FE model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) ### log-likelihood #ll.FE <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, predict(res.FE, type="response"), log=TRUE))) # model has a NULL offset #ll.FE <- with(data.frame(dat.grp), sum(dpois(xi, predict(res.FE, type="response"), log=TRUE))) # offset already incorporated into predict() ll.FE <- c(logLik(res.FE)) # same as above ### fit saturated FE model (= QE model) ### notes: 1) suppressWarnings() to suppress warning "glm.fit: fitted probabilities numerically 0 or 1 occurred" QEconv <- FALSE ll.QE <- NA_real_ if (!isTRUE(ddd$skiphet)) { if (k > 1 && verbose) message(mstyle$message("Fitting the saturated model ...")) if (k > 1) { X.QE <- model.matrix(~ 0 + X.fit + study) if (verbose) { res.QE <- try(glm(dat.grp ~ 0 + X.QE, offset=dat.off, family=dat.fam, control=glmCtrl), silent=!verbose) } else { res.QE <- try(suppressWarnings(glm(dat.grp ~ 0 + X.QE, offset=dat.off, family=dat.fam, control=glmCtrl)), silent=!verbose) } } else { res.QE <- res.FE } if (inherits(res.QE, "try-error")) { warning(mstyle$warning(paste0("Cannot fit saturated model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details)."))), call.=FALSE) } else { QEconv <- TRUE ### log-likelihood #ll.QE <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, xi/(xi+mi), log=TRUE))) # model has a NULL offset #ll.QE <- with(data.frame(dat.grp), sum(dpois(xi, xi, log=TRUE))) # offset not relevant for saturated model ll.QE <- c(logLik(res.QE)) # same as above ### extract coefficients and variance-covariance matrix for Wald-type test for heterogeneity #b2.QE <- cbind(na.omit(coef(res.QE)[-seq_len(p)])) # coef() still includes aliased coefficients as NAs, so filter them out b2.QE <- cbind(coef(res.QE, complete=FALSE)[-seq_len(p)]) # aliased coefficients are removed by coef() when complete=FALSE vb2.QE <- vcov(res.QE, complete=FALSE)[-seq_len(p),-seq_len(p),drop=FALSE] # aliased coefficients are removed by vcov() when complete=FALSE } } if (method == "ML") { ### fit ML model ### notes: 1) suppressMessages to suppress the 'one random effect per observation' warning if (verbose) message(mstyle$message("Fitting the ML model ...")) if (package == "lme4") { if (verbose) { res.ML <- try(lme4::glmer(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose) } else { res.ML <- suppressMessages(try(lme4::glmer(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=do.call(lme4::glmerControl, glmerCtrl)), silent=!verbose)) } } if (package == "GLMMadaptive") { if (is.element(measure, c("PLO","PR","PLN"))) { dat.mm <- data.frame(xi=dat.grp[,"xi"], mi=dat.grp[,"mi"], study=study) res.ML <- try(GLMMadaptive::mixed_model(cbind(xi,mi) ~ 0 + X.fit, random = ~ 1 | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } else { dat.mm <- data.frame(xi=dat.grp, study=study) res.ML <- try(GLMMadaptive::mixed_model(xi ~ 0 + X.fit + offset(dat.off), random = ~ 1 | study, data=dat.mm, family=dat.fam, nAGQ=nAGQ, verbose=verbose, control=glmerCtrl), silent=!verbose) } } if (package == "glmmTMB") { if (verbose) { res.ML <- try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose) } else { res.ML <- suppressMessages(try(glmmTMB::glmmTMB(dat.grp ~ 0 + X.fit + (1 | study), offset=dat.off, family=dat.fam, verbose=verbose, data=NULL, control=do.call(glmmTMB::glmmTMBControl, glmerCtrl)), silent=!verbose)) } } if (inherits(res.ML, "try-error")) stop(mstyle$stop(paste0("Cannot fit ML model", ifelse(verbose, ".", " (set 'verbose=TRUE' to obtain further details).")))) #return(res.ML) ### log-likelihood #ll.ML <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, fitted(res.ML), log=TRUE))) # not correct (since it does not incorporate the random effects; same as ll.FE if tau^2=0) #ll.ML <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, plogis(qlogis(fitted(res.ML)) + group12*unlist(ranef(res.ML))), log=TRUE))) # not correct (since one really has to integrate; same as ll.FE if tau^2=0) #ll.ML <- with(data.frame(dat.grp), sum(dbinom(xi, xi+mi, plogis(predict(res.ML))))) # not correct (since one really has to integrate; same as ll.FE if tau^2=0) #ll.ML <- c(logLik(res.ML)) # this is not the same as ll.FE when tau^2 = 0 (not sure why) if (package == "lme4") { ll.ML <- ll.QE - 1/2 * deviance(res.ML) # this makes ll.ML comparable to ll.FE (same as ll.FE when tau^2=0) } else { ### FIXME: When using GLMMadaptive, ll is not comparable for FE model when tau^2 = 0 ll.ML <- c(logLik(res.ML)) } } #return(list(res.FE, res.QE, res.ML, ll.FE=ll.FE, ll.QE=ll.QE, ll.ML=ll.ML)) #res.FE <- res[[1]]; res.QE <- res[[2]]; res.ML <- res[[3]] if (is.element(method, c("FE","EE","CE"))) { beta <- cbind(coef(res.FE)[seq_len(p)]) vb <- vcov(res.FE)[seq_len(p),seq_len(p),drop=FALSE] tau2 <- 0 sigma2 <- NA_real_ parms <- p p.eff <- p k.eff <- k } if (method == "ML") { if (package == "lme4") { beta <- cbind(lme4::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] tau2 <- lme4::VarCorr(res.ML)[[1]][1] } if (package == "GLMMadaptive") { beta <- cbind(GLMMadaptive::fixef(res.ML)[seq_len(p)]) vb <- as.matrix(vcov(res.ML))[seq_len(p),seq_len(p),drop=FALSE] tau2 <- res.ML$D[1,1] } if (package == "glmmTMB") { beta <- cbind(glmmTMB::fixef(res.ML)$cond[seq_len(p)]) vb <- as.matrix(vcov(res.ML)$cond)[seq_len(p),seq_len(p),drop=FALSE] tau2 <- glmmTMB::VarCorr(res.ML)[[1]][[1]][[1]] } sigma2 <- NA_real_ parms <- p + 1 p.eff <- p k.eff <- k } #return(list(beta=beta, vb=vb, tau2=tau2, sigma2=sigma2, parms=parms, p.eff=p.eff, k.eff=k.eff, b2.QE=b2.QE, vb2.QE=vb2.QE)) } ######################################################################### ######################################################################### ######################################################################### ### heterogeneity tests (Wald-type and likelihood ratio tests of the extra coefficients in the saturated model) if (verbose > 1) message(mstyle$message("Conducting the heterogeneity tests ...")) if (k > 1 && QEconv) { ### for OR + CM.EL + NOT clogit/clogistic, QE.Wld is already calculated, so skip this part then if (!(measure == "OR" && model == "CM.EL" && !is.element(optimizer, c("clogit","clogistic")))) { if (nrow(vb2.QE) > 0) { chol.h <- try(chol(vb2.QE), silent=!verbose) # see if Hessian can be inverted with chol() if (inherits(chol.h, "try-error") || anyNA(chol.h)) { warning(mstyle$warning("Cannot invert the Hessian for the saturated model."), call.=FALSE) QE.Wld <- NA_real_ } else { QE.Wld <- try(c(t(b2.QE) %*% chol2inv(chol.h) %*% b2.QE), silent=!verbose) if (inherits(QE.Wld, "try-error")) { warning(mstyle$warning("Cannot invert the Hessian for the saturated model."), call.=FALSE) QE.Wld <- NA_real_ } } } else { QE.Wld <- 0 # if vb2.QE has 0x0 dims, then fitted model is the saturated model and QE.Wld must be 0 } } QE.LRT <- -2 * (ll.FE - ll.QE) QE.Wld[QE.Wld <= 0] <- 0 QE.LRT[QE.LRT <= 0] <- 0 #QE.df <- length(b2.QE) # removed coefficients are not counted if dfs are determined like this QE.df <- k-p # this yields always the same dfs regardless of how many coefficients are removed if (QE.df > 0L) { QEp.Wld <- pchisq(QE.Wld, df=QE.df, lower.tail=FALSE) QEp.LRT <- pchisq(QE.LRT, df=QE.df, lower.tail=FALSE) } else { QEp.Wld <- 1 QEp.LRT <- 1 } } else { QE.Wld <- NA_real_ QE.LRT <- NA_real_ QEp.Wld <- NA_real_ QEp.LRT <- NA_real_ QE.df <- NA_integer_ } ### calculation of I^2 and H^2 wi <- 1/vi W <- .diag(wi) stXWX <- .invcalc(X=X.yi, W=W, k=k.yi) P <- W - W %*% X.yi %*% stXWX %*% crossprod(X.yi,W) if (i2def == "1") vt <- (k.yi-p) / .tr(P) if (i2def == "2") vt <- 1/mean(wi) # harmonic mean of vi's (see Takkouche et al., 1999) #vt <- (k-1) / (sum(wi) - sum(wi^2)/sum(wi)) # this only applies to the RE model I2 <- 100 * tau2 / (vt + tau2) H2 <- tau2 / vt + 1 ### testing of the fixed effects in the model if (verbose > 1) message(mstyle$message("Conducting the tests of the fixed effects ...")) chol.h <- try(chol(vb[btt,btt]), silent=!verbose) # see if Hessian can be inverted with chol() if (inherits(chol.h, "try-error") || anyNA(chol.h)) { warning(mstyle$warning("Cannot invert the Hessian for the QM-test."), call.=FALSE) QM <- NA_real_ } else { QM <- as.vector(t(beta)[btt] %*% chol2inv(chol.h) %*% beta[btt]) } ### scale back beta and vb if (!int.only && int.incl && con$scaleX) { mX <- rbind(c(intrcpt=1, -1*ifelse(is.d[-1], 0, meanX/sdX)), cbind(0, diag(ifelse(is.d[-1], 1, 1/sdX), nrow=length(is.d)-1, ncol=length(is.d)-1))) beta <- mX %*% beta vb <- mX %*% vb %*% t(mX) X <- Xsave } ### ddf calculation if (test == "t") { ddf <- k-p } else { ddf <- NA_integer_ } ### abbreviate certain coefficient names if (isTRUE(ddd$abbrev)) { tmp <- colnames(X) tmp <- gsub("relevel(factor(", "", tmp, fixed=TRUE) tmp <- gsub("\\), ref = \"[[:alnum:]]*\")", "", tmp) tmp <- gsub("poly(", "", tmp, fixed=TRUE) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]], raw = TRUE)", "^", tmp) tmp <- gsub(", degree = [[:digit:]])", "^", tmp) tmp <- gsub("rcs\\([[:alnum:]]*, [[:digit:]]\\)", "", tmp) tmp <- gsub("factor(", "", tmp, fixed=TRUE) tmp <- gsub("I(", "", tmp, fixed=TRUE) tmp <- gsub(")", "", tmp, fixed=TRUE) colnames(X) <- tmp } rownames(beta) <- rownames(vb) <- colnames(vb) <- colnames(X.f) <- colnames(X) ve <- diag(vb) se <- ifelse(ve >= 0, sqrt(ve), NA_real_) names(se) <- NULL zval <- c(beta/se) if (test == "t") { QM <- QM / m QMdf <- c(m, k-p) QMp <- if (QMdf[2] > 0) pf(QM, df1=QMdf[1], df2=QMdf[2], lower.tail=FALSE) else NA_real_ pval <- if (ddf > 0) 2*pt(abs(zval), df=ddf, lower.tail=FALSE) else rep(NA_real_, p) crit <- if (ddf > 0) qt(level/2, df=ddf, lower.tail=FALSE) else rep(NA_real_, p) } else { QMdf <- c(m, NA_integer_) QMp <- pchisq(QM, df=QMdf[1], lower.tail=FALSE) pval <- 2*pnorm(abs(zval), lower.tail=FALSE) crit <- qnorm(level/2, lower.tail=FALSE) } ci.lb <- c(beta - crit * se) ci.ub <- c(beta + crit * se) #return(list(beta=beta, se=se, zval=zval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, QM=QM, QMp=QMp)) ######################################################################### ###### fit statistics if (verbose > 1) message(mstyle$message("Computing fit statistics and log-likelihood ...")) ll.ML <- ifelse(is.element(method, c("FE","EE","CE")), ll.FE, ll.ML) ll.REML <- NA_real_ dev.ML <- -2 * (ll.ML - ll.QE) AIC.ML <- -2 * ll.ML + 2*parms BIC.ML <- -2 * ll.ML + parms * log(k.eff) AICc.ML <- -2 * ll.ML + 2*parms * max(k.eff, parms+2) / (max(k.eff, parms+2) - parms - 1) dev.REML <- NA_real_ AIC.REML <- NA_real_ BIC.REML <- NA_real_ AICc.REML <- NA_real_ fit.stats <- matrix(c(ll.ML, dev.ML, AIC.ML, BIC.ML, AICc.ML, ll.REML, dev.REML, AIC.REML, BIC.REML, AICc.REML), ncol=2, byrow=FALSE) dimnames(fit.stats) <- list(c("ll","dev","AIC","BIC","AICc"), c("ML","REML")) fit.stats <- data.frame(fit.stats) ######################################################################### ###### prepare output if (verbose > 1) message(mstyle$message("Preparing the output ...")) weighted <- TRUE if (is.null(ddd$outlist) || ddd$outlist == "nodata") { outdat <- list(ai=ai, bi=bi, ci=ci, di=di, x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, xi=xi, mi=mi, ti=ti) res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, se.tau2=se.tau2, sigma2=sigma2, rho=rho, ci.lb.tau2=ci.lb.tau2, ci.ub.tau2=ci.ub.tau2, I2=I2, H2=H2, vt=vt, QE.Wld=QE.Wld, QEp.Wld=QEp.Wld, QE.LRT=QE.LRT, QEp.LRT=QEp.LRT, QE.df=QE.df, QM=QM, QMdf=QMdf, QMp=QMp, k=k, k.f=k.f, k.yi=k.yi, k.eff=k.eff, k.all=k.all, p=p, p.eff=p.eff, parms=parms, int.only=int.only, int.incl=int.incl, intercept=intercept, yi=yi, vi=vi, X=X, yi.f=yi.f, vi.f=vi.f, X.f=X.f, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.vector(vi)), chksumX=digest::digest(X), outdat.f=outdat.f, outdat=outdat, ni=ni, ni.f=ni.f, ids=ids, not.na=not.na, subset=subset, not.na.yivi=not.na.yivi, slab=slab, slab.null=slab.null, measure=measure, method=method, model=model, weighted=weighted, test=test, dfs=ddf, ddf=ddf, btt=btt, m=m, digits=digits, level=level, control=control, verbose=verbose, add=add, to=to, drop00=drop00, fit.stats=fit.stats, se.warn=se.warn, formula.yi=NULL, formula.mods=formula.mods, version=packageVersion("metafor"), call=mf) if (is.null(ddd$outlist)) res <- append(res, list(data=data), which(names(res) == "fit.stats")) } else { if (ddd$outlist == "minimal") { res <- list(b=beta, beta=beta, se=se, zval=zval, pval=pval, ci.lb=ci.lb, ci.ub=ci.ub, vb=vb, tau2=tau2, se.tau2=se.tau2, sigma2=sigma2, I2=I2, H2=H2, QE.Wld=QE.Wld, QEp.Wld=QEp.Wld, QE.LRT=QE.LRT, QEp.LRT=QEp.LRT, QE.df=QE.df, QEp=QEp, QM=QM, QMdf=QMdf, QMp=QMp, k=k, k.eff=k.eff, p=p, p.eff=p.eff, parms=parms, int.only=int.only, chksumyi=digest::digest(as.vector(yi)), chksumvi=digest::digest(as.vector(vi)), chksumX=digest::digest(X), measure=measure, method=method, model=model, test=test, dfs=ddf, ddf=ddf, btt=btt, m=m, digits=digits, level=level, fit.stats=fit.stats) } else { res <- eval(str2lang(paste0("list(", ddd$outlist, ")"))) } } if (isTRUE(ddd$retfit)) { res$res.FE <- res.FE if (!isTRUE(ddd$skiphet)) res$res.QE <- res.QE if (method == "ML") res$res.ML <- res.ML } time.end <- proc.time() res$time <- unname(time.end - time.start)[3] if (isTRUE(ddd$time)) .print.time(res$time) if (verbose || isTRUE(ddd$time)) cat("\n") class(res) <- c("rma.glmm", "rma") return(res) } metafor/R/to.wide.r0000644000176200001440000001630115120213572013643 0ustar liggesusersto.wide <- function(data, study, grp, ref, grpvars, postfix=c(".1",".2"), addid=TRUE, addcomp=TRUE, adddesign=TRUE, minlen=2, var.names=c("id","comp","design")) { mstyle <- .get.mstyle() if (missing(data)) stop(mstyle$stop("Argument 'data' must be specified.")) if (!is.data.frame(data)) data <- data.frame(data) # get variable names varnames <- names(data) # number of variables nvars <- length(varnames) # checks on the 'var.names' argument if (length(var.names) != 3L) stop(mstyle$stop("Argument 'var.names' must of length 3.")) if (!inherits(var.names, "character")) stop(mstyle$stop("Argument 'var.names' must of vector with character strings.")) if (any(var.names != make.names(var.names, unique=TRUE))) { var.names <- make.names(var.names, unique=TRUE) warning(mstyle$warning(paste0("Argument 'var.names' does not contain syntactically valid variable names.\nVariable names adjusted to: var.names = c('", var.names[1], "','", var.names[2], "','", var.names[3], "').")), call.=FALSE) } ############################################################################ # checks on the 'study' argument if (missing(study)) stop(mstyle$stop("Argument 'study' must be specified.")) if (length(study) != 1L) stop(mstyle$stop("Argument 'study' must of length 1.")) if (!(is.character(study) | is.numeric(study))) stop(mstyle$stop("Argument 'study' must either be a character string or a scalar.")) if (is.character(study)) { study.pos <- charmatch(study, varnames) if (is.na(study.pos) || study.pos == 0L) stop(mstyle$stop("Could not find or uniquely identify variable specified via the 'study' argument.")) } else { study.pos <- round(study) if (study.pos < 1 | study.pos > nvars) stop(mstyle$stop("Specified position of 'study' variable does not exist in the data frame.")) } # get study variable study <- data[[study.pos]] # make sure there are no missing values in study variable if (anyNA(study)) stop(mstyle$stop("Variable specified via 'study' argument should not contain missing values.")) ############################################################################ # checks on the 'grp' argument if (missing(grp)) stop(mstyle$stop("Argument 'grp' must be specified.")) if (length(grp) != 1L) stop(mstyle$stop("Argument 'grp' must of length 1.")) if (!(is.character(grp) || is.numeric(grp))) stop(mstyle$stop("Argument 'grp' must either be a character string or a scalar.")) if (is.character(grp)) { grp.pos <- charmatch(grp, varnames) if (is.na(grp.pos) || grp.pos == 0L) stop(mstyle$stop("Could not find or uniquely identify variable specified via the 'grp' argument.")) } else { grp.pos <- round(grp) if (grp.pos < 1 | grp.pos > nvars) stop(mstyle$stop("Specified position of 'grp' variable does not exist in the data frame.")) } # get grp variable grp <- data[[grp.pos]] # make sure there are no missing values in group variable if (anyNA(grp)) stop(mstyle$stop("Variable specified via 'grp' argument should not contain missing values.")) # get levels of the group variable if (is.factor(grp)) { lvls <- levels(grp) } else { lvls <- sort(unique(grp)) } ############################################################################ # checks on the 'ref' argument # if ref is not specified, use the most common group as the reference group if (missing(ref)) ref <- names(sort(table(grp), decreasing=TRUE)[1]) if (length(ref) != 1L) stop(mstyle$stop("Argument 'ref' must be of length one.")) ref.pos <- charmatch(ref, lvls) if (is.na(ref.pos) || ref.pos == 0L) stop(mstyle$stop("Could not find or uniquely identify reference group specified via the 'ref' argument.")) ############################################################################ # reorder levels and data so that the reference level is always last lvls <- c(lvls[-ref.pos], lvls[ref.pos]) data <- data[order(study, factor(grp, levels=lvls)),] # get study and group variables again study <- data[[study.pos]] grp <- data[[grp.pos]] ############################################################################ # checks on the 'grpvars' argument if (!(is.character(grpvars) || is.numeric(grpvars))) stop(mstyle$stop("Argument 'grpvars' must either be a string or numeric vector.")) if (is.character(grpvars)) { grpvars.pos <- unique(charmatch(grpvars, varnames)) if (anyNA(grpvars.pos) || any(grpvars.pos == 0L)) stop(mstyle$stop("Could not find or uniquely identify variable(s) specified via the 'grpvars' argument.")) } else { grpvars.pos <- unique(round(grpvars)) if (any(grpvars.pos < 1) | any(grpvars.pos > nvars)) stop(mstyle$stop("Specified positions of 'grpvars' variables do not exist in the data frame.")) } # in case the group variable is not specified as part of the group variables, add it if (!(grp.pos %in% grpvars.pos)) grpvars.pos <- c(grp.pos, grpvars.pos) # and make sure that grp.pos is always in the first position of grpvars.pos grpvars.pos <- union(grp.pos, grpvars.pos) ############################################################################ # restructure data set into wide format restruct <- function(x) { if (nrow(x) > 1L) { cbind(x[-nrow(x),], x[rep(nrow(x),nrow(x)-1L),grpvars.pos]) } else { # to handle one-arm studies unname(c(x, rep(NA, length(grpvars.pos)))) } } dat <- lapply(split(data, study), restruct) dat <- do.call(rbind, dat) # add postfix to outcome variable names names(dat)[grpvars.pos] <- paste0(names(dat)[grpvars.pos], postfix[1]) names(dat)[(nvars+1):ncol(dat)] <- paste0(names(dat)[(nvars+1):ncol(dat)], postfix[2]) # fix row names rownames(dat) <- seq_len(nrow(dat)) ############################################################################ # generate comp variable grps <- .shorten(as.character(data[[grp.pos]]), minlen=minlen) restruct <- function(x) { if (length(x) > 1L) { paste0(x[-length(x)], "-", x[length(x)]) } else { NA } } comp <- unlist(sapply(split(grps, study), restruct)) # generate design variable restruct <- function(x) { if (length(x) > 1L) { rep(paste0(x, collapse="-"), length(x)-1L) } else { NA } } design <- unlist(sapply(split(grps, study), restruct)) ############################################################################ # add row id to dataset if (addid) { dat[[var.names[1]]] <- seq_len(nrow(dat)) # make sure that row id variable is always the first variable in the dataset #id.pos <- which(names(dat) == "id") #dat <- dat[c(id.pos, seq_along(names(dat))[-id.pos])] } # add comp variable to dataset if (addcomp) dat[[var.names[2]]] <- comp # add design variable to dataset if (adddesign) dat[[var.names[3]]] <- design ############################################################################ return(dat) } metafor/R/print.regtest.r0000644000176200001440000000452215120213572015104 0ustar liggesusersprint.regtest <- function(x, digits=x$digits, ret.fit=x$ret.fit, ...) { mstyle <- .get.mstyle() .chkclass(class(x), must="regtest") digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE) .space() cat(mstyle$section("Regression Test for Funnel Plot Asymmetry")) cat("\n\n") if (x$model == "lm") { cat(mstyle$text("Model: weighted regression with multiplicative dispersion")) } else { cat(mstyle$text(paste("Model: ", ifelse(is.element(x$method, c("FE","EE","CE")), "fixed-effects", "mixed-effects"), "meta-regression model"))) } cat("\n") if (x$predictor == "sei") cat(mstyle$text("Predictor: standard error")) if (x$predictor == "vi") cat(mstyle$text("Predictor: sampling variance")) if (x$predictor == "ni") cat(mstyle$text("Predictor: sample size")) if (x$predictor == "ninv") cat(mstyle$text("Predictor: inverse of the sample size")) if (x$predictor == "sqrtni") cat(mstyle$text("Predictor: square root sample size")) if (x$predictor == "sqrtninv") cat(mstyle$text("Predictor: inverse of the square root sample size")) cat("\n") if (ret.fit) { if (x$model == "lm") { print(summary(x$fit)) } else { .space(FALSE) print(x$fit) .space(FALSE) } } else { cat("\n") } cat(mstyle$text("Test for Funnel Plot Asymmetry: ")) if (is.na(x$ddf)) { cat(mstyle$result(fmtt(x$zval, "z", pval=x$pval, pname="p", format=2, digits=digits, flag=ifelse(!is.null(x$est) && sign(x$zval)!=sign(x$est), " ", "")))) } else { cat(mstyle$result(fmtt(x$zval, "t", df=x$ddf, pval=x$pval, pname="p", format=2, digits=digits, flag=ifelse(!is.null(x$est) && sign(x$zval)!=sign(x$est), " ", "")))) } cat("\n") if (!is.null(x$est)) { if (x$predictor == "sei") cat(mstyle$text("Limit Estimate (as sei -> 0): ")) if (x$predictor == "vi") cat(mstyle$text("Limit Estimate (as vi -> 0): ")) if (x$predictor %in% c("ninv", "sqrtninv")) cat(mstyle$text("Limit Estimate (as ni -> inf): ")) cat(mstyle$result(paste0("b = ", fmtx(x$est, digits[["est"]], flag=ifelse(sign(x$zval)!=sign(x$est), " ", "")), " (CI: ", fmtx(x$ci.lb, digits[["est"]]), ", ", fmtx(x$ci.ub, digits[["est"]]), ")"))) cat("\n") } .space() invisible() } metafor/R/coef.deltamethod.r0000644000176200001440000000032615120213572015477 0ustar liggesuserscoef.deltamethod <- function(object, ...) { mstyle <- .get.mstyle() .chkclass(class(object), must="deltamethod") coefs <- c(object$tab$coef) names(coefs) <- rownames(object$tab) return(coefs) } metafor/vignettes/0000755000176200001440000000000015173350573013730 5ustar liggesusersmetafor/vignettes/metafor.pdf.asis0000644000176200001440000000015314513444712017011 0ustar liggesusers%\VignetteEngine{R.rsp::asis} %\VignetteIndexEntry{Conducting Meta-Analyses in R with the metafor Package} metafor/vignettes/diagram.pdf.asis0000644000176200001440000000014014513444713016755 0ustar liggesusers%\VignetteEngine{R.rsp::asis} %\VignetteIndexEntry{Diagram of Functions in the metafor Package} metafor/NAMESPACE0000644000176200001440000001054415116303706013134 0ustar liggesusersexportPattern("^[^\\.]") import(stats) import(utils) import(graphics) import(grDevices) import(methods) import(Matrix) importFrom(nlme, ranef) export(ranef) import(mathjaxr) import(metadat) import(numDeriv) import(digest) S3method("[", list.rma) S3method("[", vcovmat) S3method("$<-", list.rma) S3method("[", escalc) S3method("$<-", escalc) S3method(addpoly, default) S3method(addpoly, predict.rma) S3method(addpoly, rma) S3method(aggregate, escalc) S3method(AIC, matreg) S3method(AIC, rma) S3method(anova, rma) S3method(as.data.frame, anova.rma) S3method(as.data.frame, confint.rma) S3method(as.data.frame, vif.rma) S3method(as.data.frame, list.anova.rma) S3method(as.data.frame, list.confint.rma) S3method(as.data.frame, list.rma) S3method(as.matrix, list.rma) S3method(baujat, rma) S3method(BIC, matreg) S3method(BIC, rma) S3method(blup, rma.uni) S3method(cbind, escalc) S3method(coef, deltamethod) S3method(coef, matreg) S3method(coef, rma) S3method(coef, summary.rma) S3method(coef, permutest.rma.uni) S3method(confint, rma.glmm) S3method(confint, rma.mh) S3method(confint, rma.mv) S3method(confint, rma.peto) S3method(confint, rma.uni) S3method(confint, rma.uni.selmodel) S3method(confint, rma.ls) S3method(confint, matreg) S3method(cooks.distance, rma.mv) S3method(cooks.distance, rma.uni) S3method(cumul, rma.mh) S3method(cumul, rma.peto) S3method(cumul, rma.uni) S3method(deviance, rma) S3method(df.residual, rma) S3method(dfbetas, rma.mv) S3method(dfbetas, rma.uni) S3method(fitstats, rma) S3method(fitted, rma) S3method(forest, default) S3method(forest, rma) S3method(forest, cumul.rma) S3method(formula, rma) S3method(funnel, default) S3method(funnel, rma) S3method(gosh, rma) S3method(hatvalues, rma.mv) S3method(hatvalues, rma.uni) S3method(hc, rma.uni) S3method(influence, rma.uni) S3method(labbe, rma) S3method(leave1out, rma.mh) S3method(leave1out, rma.peto) S3method(leave1out, rma.uni) S3method(logLik, matreg) S3method(logLik, rma) S3method(regplot, rma) S3method(model.matrix, rma) S3method(nobs, rma) S3method(permutest, rma.uni) S3method(permutest, rma.ls) S3method(plot, cumul.rma) S3method(plot, gosh.rma) S3method(plot, infl.rma.uni) S3method(plot, permutest.rma.uni) S3method(plot, profile.rma) S3method(plot, vif.rma) S3method(plot, rma.glmm) S3method(plot, rma.mh) S3method(plot, rma.mv) S3method(plot, rma.peto) S3method(plot, rma.uni) S3method(plot, rma.uni.selmodel) S3method(points, regplot) S3method(predict, matreg) S3method(predict, rma) S3method(predict, rma.ls) S3method(print, anova.rma) S3method(print, confint.rma) S3method(print, confint.matreg) S3method(print, deltamethod) S3method(print, list.anova.rma) S3method(print, list.confint.rma) S3method(print, escalc) S3method(print, fsn) S3method(print, gosh.rma) S3method(print, infl.rma.uni) S3method(print, list.rma) S3method(head, list.rma) S3method(tail, list.rma) S3method(print, hc.rma.uni) S3method(print, matreg) S3method(print, permutest.rma.uni) S3method(print, profile.rma) S3method(print, ranktest) S3method(print, regtest) S3method(print, rma.glmm) S3method(print, rma.mh) S3method(print, rma.mv) S3method(print, rma.peto) S3method(print, rma.uni) S3method(print, summary.matreg) S3method(print, summary.rma) S3method(print, tes) S3method(print, vif.rma) S3method(print, vcovmat) S3method(profile, rma.mv) S3method(profile, rma.uni) S3method(profile, rma.uni.selmodel) S3method(profile, rma.ls) S3method(qqnorm, rma.glmm) S3method(qqnorm, rma.mh) S3method(qqnorm, rma.mv) S3method(qqnorm, rma.peto) S3method(qqnorm, rma.uni) S3method(radial, rma) S3method(ranef, rma.mv) S3method(ranef, rma.uni) S3method(rbind, escalc) S3method(reporter, rma.uni) S3method(residuals, rma) S3method(robust, rma.mv) S3method(robust, rma.uni) S3method(selmodel, rma.uni) S3method(rstandard, rma.mh) S3method(rstandard, rma.mv) S3method(rstandard, rma.peto) S3method(rstandard, rma.uni) S3method(rstudent, rma.mh) S3method(rstudent, rma.mv) S3method(rstudent, rma.peto) S3method(rstudent, rma.uni) S3method(se, default) S3method(se, rma) S3method(sigma, matreg) S3method(simulate, rma) S3method(summary, escalc) S3method(summary, matreg) S3method(summary, rma) #S3method(traceplot, rma.uni) S3method(trimfill, rma.uni) S3method(update, rma) S3method(vif, rma) S3method(vcov, deltamethod) S3method(vcov, matreg) S3method(vcov, rma) S3method(weights, rma.glmm) S3method(weights, rma.mh) S3method(weights, rma.mv) S3method(weights, rma.peto) S3method(weights, rma.uni) metafor/NEWS.md0000644000176200001440000027321315173342246013024 0ustar liggesusers# metafor 5.0-1 (2026-04-26) - argument `legend` can now be a list for `funnel()`, `labbe()`, `regplot()`, and `plot.permutest.rma.uni()` for more control over the look of the legend - added `hetvar` argument to `predict.rma()` to manually specify the amount of heterogeneity for computing prediction intervals - fixed how `intercept` (when unspecified) is set in `predict.rma.ls()` when using `newscale` - renamed `pi.type` argument to `predtype` (which is more consistent with the `predstyle` argument), but `pi.type` will continue to work for backwards compatibility - added `predstyle="polygon"` as another option for drawing the prediction interval (as a polygon like for the pooled estimate) - can now use the `preddist` argument in `forest.rma()` and `addpoly.default()` to provide the predictive distribution directly - fixed `permutest.rma.ls()` not running when `btt` and/or `att` is specified - `ranktest()` now also provides a p-value when the number of estimates is large - added various methods and a `predict.matreg()` function for `matreg` objects; can now also specify a formula for the `y` argument of `matreg()` - `deltamethod()` can now also do the second-order delta method - for measures `"ROM"`, `"ROMC"`, `"CVR"`, and `"CVRC"`, the bias corrections based on the second-order Taylor expansions are now applied by default in `escalc()` (use `correct=FALSE` to switch this off) - all `addpoly()` functions now respect `alim` and `olim` as set by `forest()` - some functions (e.g., `vcalc()` and `rcalc()`) can now return variance-covariances matrices as objects of class `"vcovmat"`; these are printed nicely with `print.vcovmat()` - `rma()` nows calculates R^2 as long as a standard random-effects model is nested within the fitted mixed-effects model - `conv.2x2()` can now reconstruct tables for diagnostic studies based on diagnostic statistics (sensitivity, specificity, positive predictive value, negative predictive value) - added some more transformation functions # metafor 4.8-0 (2025-01-28) - some general changes to the various `forest()` functions: argument `header` is now `TRUE` by default, the y-axis is now created with `yaxs="i"`, and the y-axis limits have been tweaked slightly in accordance - `forest.rma()` and the various `addpoly()` functions now provides multiple styles for drawing the prediction interval via the `predstyle` argument - `forest.rma()` and `addpoly.rma()` now write out the default label (instead of an abbreviation) for the model results; as before, the label can be changed via the `mlab` argument - added an `ilab.lab` argument to the various `forest()` functions for adding header labels to the plot for the additional study information columns - all plot functions that create multi-panel plots now behave in a consistent manner, setting `par(mfrow)` automatically when no plotting device is open or when the number of panels in an open plotting device is too small for the number of panels to be plotted; all multi-panel plots also set `par(mfrow)=c(1L,1L)` upon exit; argument `layout` has been deprecated from `plot.permutest.rma.uni()`, `plot.vif.rma()`, and `plot.infl.rma.uni()` - the `predict.rma()` and `predict.rma.ls()` functions now also accept a matrix as input that includes a column for the intercept term (in which case the `intercept` argument is ignored and the first column of the matrix controls whether the intercept term is included in calculating the predicted value(s)) - added extractor function `se()` for extracting standard errors from model objects - added function `pairmat()` to construct a matrix of pairwise contrasts - added function `deltamethod()` to apply the (multivariate) delta method to a set of estimates - `anova()` and `predict()` gain an `adjust` argument for adjusting p-values / interval bounds for multiple testing - fixed `predict()` ignoring the `level` argument for `robust.rma` objects obtained with `clubSandwich=TRUE` - `print.anova.rma()` and `print.list.anova.rma()` now also print significance stars for some tests (unless `getOption("show.signif.stars")` is `FALSE`) - added a `collapse` argument to the various `cumul()` functions (to specify whether studies with the same value of the `order` variable should be added simultaneously) - the various `leave1out()` functions gain a `cluster` argument - `rma.mv()` now counts the number of levels of a random effect more appropriately; this may trigger more often the check that the number of levels is equal to 1, in which case the corresponding variance component is automatically fixed to 0; this check can be omitted with `control=list(check.k.gtr.1=FALSE)` - made optimizers `Rcgmin` and `Rvmmin` available again via the `optimx` package - when unspecified, argument `shade` in `funnel()` now automatically uses a color gradient for the regions when multiple `level` values are specified - added `lim`, `ci`, `pi`, `legend`, and `flip` arguments to `labbe()` - `fsn(..., type="General")` now computes the final estimates after rounding the fail-safe N value (not before) - `permutest.rma.uni()` gains a `btt` argument and `permutest.rma.ls()` gains `btt` and `att` arguments - `selmodel()` gains a `subset` argument (to specify a subset of studies to which the selection function should apply); for the beta selection model, one can now also specify two `steps` values to fit a truncated beta selection model - `nobs()` now just returns the number of estimates, not the effective number of observations - some tweaks were made to `vcalc()` to speed up the calculations (by James Pustejovsky) - added measures `"PRZ"`, `"CLES"`, `"AUC"`, `"CLESN"`, `"AUCN"`, `"CLESCN"`, `"AUCCN"`, `"R2F"`, and `"ZR2F"` to `escalc()` - `escalc()` gains a `flip` argument - `escalc()` gains a `correct` argument (to specify whether a bias correction should be applied) - added transformation function `transf.dtoovl()` (for transforming standardized mean differences to overlapping coefficient values) and `transf.dtocliffd()` (for transforming standardized mean differences to Cliff's delta values) - `qqnorm.rma.uni()` now shades the pseudo confidence region; all `qqnorm()` functions gain a `grid` argument - better handling of `outlist="minimal"` - added more tests # metafor 4.6-0 (2024-03-28) - the `steps` argument in the various `profile()` functions can now also be a numeric vector to specify for which parameter values the likelihood should be evaluated - a few minor fixes to the dynamic theming of plots based on the foreground and background colors of the plotting device - slightly improved flexibility for setting package options - new measures added to `escalc()`: `"SMN"` for the single-group standardized mean / single-group standardized mean difference, `"SMCRP"` for the standardized mean change using raw score standardization with pooled standard deviations, and `"SMCRPH"` for the standardized mean change using raw score standardization with pooled standard deviations and heteroscedastic population variances at the two measurement occasions - calculation of the sampling variances for measures `"SMDH"`, `"SMD1H"`, and `"SMCRH"` was slightly adjusted for consistency - in `plot.gosh.rma()`, can also set `het="tau"` (to plot the square root of tau^2 as the measure of heterogeneity) - in the various `forest()` functions, argument `ylim` can now only be a single value to specify the lower bound (while the upper bound is still set automatically) - in `forest()` and `regplot()`, observation limits set via `olim` are now properly applied to all elements - various internal improvements to `selmodel()` - `selmodel()` no longer stops with an error when one or more intervals defined by the `steps` argument do not contain any observed p-values (instead a warning is issued and model fitting proceeds, but may fail) - added `decreasing` argument to `selmodel()` for enforcing that the delta estimates must be a monotonically decreasing function of the p-values in the step function model - added the undocumented argument `pval` to `selmodel()` for passing p-values directly to the function (doing this is highly experimental) - some internal refactoring of the code - improved the documentation a bit # metafor 4.4-0 (2023-09-27) - added `getmfopt()` and `setmfopt()` functions for getting and setting package options and made some of the options more flexible - removed argument `weighted` from `fsn()` (whether weighted or unweighted averages are used in Orwin's method is now simply determined by whether sampling variances are specified or not); added `type="General"` to `fsn()` as a generalization of the Orwin and Rosenberg methods (that allows for a fail-safe N calculation based on a random-effects model); can now pass an `rma` object to the `fsn()` function - further improved the theming of all plots based on the foreground and background colors; within RStudio, plot colors can also be automatically chosen based on the theme (with `setmfopt(theme="auto")`) - added additional/optional argument `tabfig` to the various `forest()` functions, for easily setting the `annosym` argument to an appropriate vector for exactly aligning numbers (when using a matching font) - added (for now undocumented) `vccon` argument to `rma.mv()` for setting equality constraints on variance/correlation components - `replace` argument in `conv.2x2()`, `conv.delta()`, `conv.fivenum()`, and `conv.wald()` can now also be a logical - added `summary.matreg()` and `print.summary.matreg()` methods for including additional statistics in the output (R^2 and the omnibus test) and added `coef.matreg()` and `vcov.matreg()` extractor functions - formatting functions `fmtp()`, `fmtx()`, and `fmtt()` gain a `quote` argument, which is set to `FALSE` by default - for measures `"PCOR"`, `"ZPCOR"`, `"SPCOR"`, and `"ZSPCOR"`, argument `mi` in `escalc()` now refers to the total number of predictors in the regression models (i.e., also counting the focal predictor of interest) - added measures `"R2"` and "`ZR2"` to `escalc()` - `addpoly.default()` and `addpoly.rma.predict()` gain a `constarea` argument (for the option to draw the polygons with a constant area) - `plot.rma.uni.selmodel()` gains a `shade` argument (for shading the confidence interval region) - `plot.permutest.rma.uni()` gains a `legend` argument - `vcalc()` gains a `sparse` argument - `aggregate.escalc` gains `var.names` argument - made the `legend` argument more flexible in `funnel()` - made the `append` argument more flexible in `to.long()` - added a few more transformation functions - small bug fixes - added automated visual comparison tests of plots - improved the documentation a bit # metafor 4.2-0 (2023-05-08) - improved the various plotting functions so they respect `par("fg")`; as a result, one can now create plots with a dark background and light plotting colors - also allow two or three values for `xlab` in the various `forest()` functions (for adding labels at the ends of the x-axis limits) - better default choices for `xlim` in the various `forest()` functions; also, argument `ilab.xpos` is now optional when using the `ilab` argument - added `shade` and `colshade` arguments to the various `forest()` functions - the various `forest()` functions no longer enforce that `xlim` must be at least as wide as `alim` - added `link` argument to `rma.glmm()` - `rma.glmm()` with `measure="OR", model="CM.EL", method="ML"` now treats tau^2 values below 1e-04 effectively as zero before computing the standard errors of the fixed effects; this helps to avoid numerical problems in approximating the Hessian; similarly, `selmodel()` now treats tau^2 values below 1e-04 or min(vi/10) effectively as zero before computing the standard errors - for measure `SMCC`, can now specify d-values, t-test statistics, and p-values via arguments `di`, `ti`, and `pi` - functions that issue a warning when omitting studies due to NAs now indicate how many were omitted - properly documented the `level` argument - added a few more transformation functions - small bug fixes - improved the documentation a bit # metafor 4.0-0 (2023-03-19) - added `conv.2x2()` function for reconstructing the cell frequencies in 2x2 tables based on other summary statistics - added `conv.wald()` function for converting Wald-type confidence intervals and test statistics to sampling variances - added `conv.fivenum()` function for estimating means and standard deviations from five-number summary values - added `conv.delta()` function for transforming observed effect sizes or outcomes and their sampling variances using the delta method - added `emmprep()` function to create a reference grid for use with the `emmeans()` function from the package of the same name - exposed formatter functions `fmtp()`, `fmtx()`, and `fmtt()` - package `numDeriv` moved from `Suggests` to `Depends` - `model.matrix.rma()` gains `asdf` argument - corrected bug in `vcalc()` (values for `obs` and `type` were taken directly as indices instead of using them as identifiers) - improved efficiency of `vif()` when `sim=TRUE` by reshuffling only the data needed in the model matrix; due to some edge cases, the simulation approach cannot be used when some redundant predictors were dropped from the original model; and when redundancies occur after reshuffling the data, the simulated (G)VIF value(s) are now set to `Inf` instead of `NA` - `selmodel()` gains `type='trunc'` and `type='truncest'` models (the latter should be considered experimental) - added `exact="i"` option in `permutest()` (to just return the number of iterations required for an exact permutation test) - `escalc()` now provides more informative error messages when not specifying all required arguments to compute a particular measure - added measures `"ZPHI"`, `"ZTET"`, `"ZPB"`, `"ZBIS"`, and `"ZSPCOR"` to `escalc()` (but note that Fisher's r-to-z transformation is not a variance-stabilizing transformation for these measures) - the variance of measure `ZPCOR` is now calculated with `1/(ni-mi-3)` (instead of `1/(ni-mi-1)`), which provides a better approximation in small samples (and analogous to how the variance of `ZCOR` is calculated with `1/(ni-3)`) - as with `measure="SMD"`, one can now also use arguments `di` and `ti` to specify d-values and t-test statistics for measures `RPB`, `RBIS`, `D2ORN`, and `D2ORL` in `escalc()` - for measures `COR`, `UCOR`, and `ZCOR`, can now use argument `ti` to specify t-test statistics in `escalc()` - can also specify (two-sided) p-values (of the respective t-tests) for these measures (and for measures `PCOR`, `ZPCOR`, `SPCOR`, and `ZSPCOR`) via argument `pi` (the sign of the p-value is taken to be the sign of the measure) - can also specify (semi-)partial correlations directly via argument `ri` for measures `PCOR`, `ZPCOR`, `SPCOR`, and `ZSPCOR` - when passing a correlation marix to `rcalc()`, it now orders the elements (columnwise) based on the lower triangular part of the matrix, not the upper one (which is more consistent with what `matreg()` expects as input when using the `V` argument) - optimizers `Rcgmin` and `Rvmmin` are now available in `rma.uni()`, `rma.mv()`, `rma.glmm()`, and `selmodel()` - improved the documentation a bit # metafor 3.8-1 (2022-08-26) - `funnel.default()`, `funnel.rma()`, and `regplot.rma()` gain `slab` argument - `vif()` was completely refactored and gains `reestimate`, `sim`, and `parallel` arguments; added `as.data.frame.vif.rma()` and `plot.vif.rma()` methods - `plot.permutest.rma.uni()` function sets the y-axis limits automatically and in a smarter way when also drawing the reference/null distribution and the density estimate - added possibility to specify a list for `btt` in `anova.rma()`; added `print.list.anova.rma()` to print the resulting object - added `as.data.frame.anova.rma()` and `as.data.frame.list.anova.rma()` methods - documented the possibility to use an identity link (with `link="identity"`) in `rma.uni()` when fitting location-scale models (although this will often lead to estimation problems); added `solnp()` as an additional optimizer for this case - optimizers `nloptr` and `constrOptim.nl` (the latter from the `alabama` package) are now available in `rma.uni()` for location-scale models when using an identity link - added measure `SMD1H` to `escalc()` - for `measure="SMD"`, `escalc()` now also allows the user to specify d-values and t-test statistics via arguments `di` and `ti`, respectively - `aggregate.escalc()` gains `addk` argument - added (experimental!) support for measures `"RR"`, `"RD"`, `"PLN"`, and `"PR"` to `rma.glmm()` (but using these measures will often lead to estimation problems) - `replmiss()` gains `data` argument - `cumul()` functions also store data, so that arguments `ilab`, `col`, `pch`, and `psize` in the `forest.cumul.rma()` function can look for variables therein - fixed issue with rendering Rmarkdown documents with `metafor` output due to the use of a zero-width space # metafor 3.4-0 (2022-04-21) - added `misc-models`, `misc-recs`, and `misc-options` help pages - added `as.data.frame.confint.rma()` and `as.data.frame.list.confint.rma` methods - `permutest()` can now also do permutation tests for location-scale models; it also always returns the permutation distributions; hence, argument `retpermdist` was removed - added `plot.permutest.rma.uni()` function to plot the permutation distributions - simplified `regtest()`, `ranktest()`, and `tes()` to single functions instead of using generics and methods; this way, a `data` argument could be added - added `vcalc()` and `blsplit()` functions - `robust()` gains `clubSandwich` argument; if set to `TRUE`, the methods from the `clubSandwich` package (https://cran.r-project.org/package=clubSandwich) are used to obtain the cluster-robust results; `anova.rma()` and `predict.rma()` updated to work appropriately in this case - results from `robust()` are no longer printed with `print.robust.rma()` but with the print methods `print.rma.uni()` and `print.rma.mv()` - `anova.rma()` now gives a warning when running LRTs not based on ML/REML estimation and gains `rhs` argument; it also now has a `refit` argument (to refit REML fits with ML in case the fixed effects of the models differ) - setting `dfs="contain"` in `rma.mv()` automatically sets `test="t"` for convenience - elements of `rho` and `phi` in `rma.mv()` are now based on the lower triangular part of the respective correlation matrix (instead of the upper triangular part) for consistency with other functions; note that this is in principle a backwards incompatible change, although this should only be a concern in very special circumstances - `rma.mv()` gains `cvvc` argument (for calculating the var-cov matrix of the variance/correlation/covariance components) - added measure `"MPORM"` to `escalc()` for computing marginal log odds ratios based on marginal 2x2 tables directly (which requires specification of the correlation coefficients in the paired tables for the calculation of the sampling variances via the `ri` argument) - added measure `"REH"` to `escalc()` for computing the (log transformed) relative excess heterozygosity (to assess deviations from the Hardy-Weinberg equilibrium) - `aggregate.escalc()` gains `checkpd` argument and `struct="CS+CAR"` - `rma.glmm()` now has entire array of optimizers available for `model="CM.EL"` and `measure="OR"`; switched the default from `optim()` with method `BFGS` to `nlminb()` for consistency with `rma.mv()`, `rma.uni()`, and `selmodel.rma.uni()` - `rma.glmm()` gains `coding` and `cor` arguments and hence more flexibility how the group variable should be coded in the random effects structure and whether the random study effects should be allowed to be correlated with the random group effects - `rma.uni()` now also provides R^2 for fixed-effects models - `matreg()` can now also analyze a covariance matrix with a corresponding `V` matrix; can also specify variable names (instead of indices) for arguments `x` and `y` - renamed argument `nearPD` to `nearpd` in `matreg()` (but `nearPD` continues to work) - `plot.profile.rma()` gains `refline` argument - added `addpoly.rma.predict()` method - `addpoly.default()` and `addpoly.rma()` gain `lty` and `annosym` arguments; if unspecified, arguments `annotate`, `digits`, `width`, `transf`, `atransf`, `targs`, `efac`, `fonts`, `cex`, and `annosym` are now automatically set equal to the same values that were used when creating the forest plot - documented `textpos` and `rowadj` arguments for the various `forest` functions and moved the `top` and `annosym` arguments to 'additional arguments' - fixed that `level` argument in `addpoly.rma()` did not affect the CI width - `points.regplot()` function now also redraws the labels (if there were any to begin with) - added `lbfgsb3c`, `subplex`, and `BBoptim` as possible optimizer in `rma.mv()`, `rma.glmm()`, `rma.uni()`, and `selmodel.rma.uni()` - the object returned by model fitting functions now includes the data frame specified via the `data` argument; various method functions now automatically look for specified variables within this data frame first - datasets moved to the `metadat` package (https://cran.r-project.org/package=metadat) - improved the documentation a bit # metafor 3.0-2 (2021-06-09) - the `metafor` package now makes use of the `mathjaxr` package to nicely render equations shown in the HTML help pages - `rma()` can now also fit location-scale models - added `selmodel()` for fitting a wide variety of selection models (and added the corresponding `plot.rma.uni.selmodel()` function for drawing the estimated selection function) - `rma.mv()` gains `dfs` argument and now provides an often better way for calculating the (denominator) degrees of freedom for approximate t- and F-tests when `dfs="contain"` - added `tes()` function for the test of excess significance - added `regplot()` function for drawing scatter plots / bubble plots based on meta-regression models - added `rcalc()` for calculating the variance-covariance matrix of correlation coefficients and `matreg()` for fitting regression models based on correlation/covariance matrices - added convenience functions `dfround()` and `vec2mat()` - added `aggregate.escalc()` function to aggregate multiple effect sizes or outcomes within studies/clusters - `regtest()` now shows the 'limit estimate' of the (average) true effect when using `sei`, `vi`, `ninv`, or `sqrtninv` as predictors (and the model does not contain any other moderators) - `vif()` gains `btt` argument and can now also compute generalized variance inflation factors; a proper `print.vif.rma()` function was also added - `anova.rma()` argument `L` renamed to `X` (the former still works, but is no longer documented) - argument `order` in `cumul()` should now just be a variable, not the order of the variable, to be used for ordering the studies and must be of the same length as the original dataset that was used in the model fitting - similarly, vector arguments in various plotting functions such as `forest.rma()` must now be of the same length as the original dataset that was used in the model fitting (any subsetting and removal of `NA`s is automatically applied) - the various `leave1out()` and `cumul()` functions now provide `I^2` and `H^2` also for fixed-effects models; accordingly, `plot.cumul.rma()` now also works with such models - fixed `level` not getting passed down to the various `cumul()` functions - `plot.cumul.rma()` argument `addgrid` renamed to `grid` (the former still works, but is no longer documented) - `forest.default()`, `forest.rma()`, and `labbe()` gain `plim` argument and now provide more flexibility in terms of the scaling of the points - `forest.rma()` gains `colout` argument (to adjust the color of the observed effect sizes or outcomes) - in the various `forest()` functions, the right header is now suppressed when `annotate=FALSE` and `header=TRUE` - `funnel.default()` and `funnel.rma()` gain `label` and `offset` arguments - `funnel.default()` and `funnel.rma()` gain `lty` argument; the reference line is now drawn by default as a dotted line (like the line for the pseudo confidence region) - the `forest` and `funnel` arguments of `reporter.rma.uni()` can now also be logicals to suppress the drawing of these plots - added `weighted` argument to `fsn()` (for Orwin's method) - added some more transformation functions - `bldiag()` now properly handles ?x0 or 0x? matrices - p-values are still given to 2 digits even when `digits=1` - `summary.escalc()` also provides the p-values (of the Wald-type tests); but when using the `transf` argument, the sampling variances, standard errors, test statistics, and p-values are no longer shown - `rma.uni()` no longer constrains a fixed tau^2 value to 0 when k=1 - slight speedup in functions that repeatedly fit `rma.uni()` models by skipping the computation of the pseudo R^2 statistic - started using the `pbapply` package for showing progress bars, also when using parallel processing - to avoid potential confusion, all references to 'credibility intervals' have been removed from the documentation; these intervals are now exclusively referred to as 'prediction intervals'; in the output, the bounds are therefore indicated now as `pi.lb` and `pi.ub` (instead of `cr.lb` and `cr.ub`); the corresponding argument names were changed in `addpoly.default()`; argument `addcred` was changed to `addpred` in `addpoly.rma()` and `forest.rma()`; however, code using the old arguments names should continue to work - one can now use `weights(..., type="rowsum")` for intercept-only `rma.mv` models (to obtain 'row-sum weights') - `simulate.rma()` gains `olim` argument; renamed the `clim` argument in `summary.escalc()` and the various `forest()` functions to `olim` for consistency (the old `clim` argument should continue to work) - show nicer network graphs for `dat.hasselblad1998` and `dat.senn2013` in the help files - added 24 datasets (`dat.anand1999`, `dat.assink2016`, `dat.baskerville2012`, `dat.bornmann2007`, `dat.cannon2006`, `dat.cohen1981`, `dat.craft2003`, `dat.crede2010`, `dat.dagostino1998`, `dat.damico2009`, `dat.dorn2007`, `dat.hahn2001`, `dat.kalaian1996`, `dat.kearon1998`, `dat.knapp2017`, `dat.landenberger2005`, `dat.lau1992`, `dat.lim2014`, `dat.lopez2019`, `dat.maire2019, `, `dat.moura2021` `dat.obrien2003`, `dat.vanhowe1999`, `dat.viechtbauer2021`) - the package now runs a version check on startup in interactive sessions; setting the environment variable `METAFOR_VERSION_CHECK` to `FALSE` disables this - refactored various functions (for cleaner/simpler code) - improved the documentation a bit # metafor 2.4-0 (2020-03-19) - version jump to 2.4-0 for CRAN release (from now on, even minor numbers for CRAN releases, odd numbers for development versions) - the various `forest()` functions gain `header` argument - `escalc()` gains `include` argument - setting `verbose=3` in model fitting functions sets `options(warn=1)` - `forest.rma()` and `forest.default()` now throw informative errors when misusing `order` and `subset` arguments - fixed failing tests due to the `stringsAsFactors=FALSE` change in the upcoming version of R - `print.infl.rma.uni()` gains `infonly` argument, to only show the influential studies - removed `MASS` from `Suggests` (no longer needed) - argument `btt` can now also take a string to grep for - added `optimParallel` as possible optimizer in `rma.mv()` - added (for now undocumented) option to fit models in `rma.glmm()` via the `GLMMadaptive` package (instead of `lme4`); to try this, use: `control=list(package="GLMMadaptive")` - started to use numbering scheme for devel version (the number after the dash indicates the devel version) - added `contrmat()` function (for creating a matrix that indicates which groups have been compared against each other in each row of a dataset) - added `to.wide()` function (for restructuring long format datasets into the wide format needed for contrast-based analyses) - `I^2` and `H^2` are also shown in output for fixed-effects models - argument `grid` in `baujat()` can now also be a color name - added (for now undocumented) `time` argument to more functions that are computationally expensive - added (for now undocumented) `textpos` argument to the various forest functions - added a new dataset (`dat.graves2010`) - added more tests # metafor 2.1-0 (2019-05-13) - added `formula()` method for objects of class `rma` - `llplot()` now also allows for `measure="GEN"`; also, the documentation and y-axis label have been corrected to indicate that the function plots likelihoods (not log likelihoods) - `confint.rma.mv()` now returns an object of class `list.confint.rma` when obtaining CIs for all variance and correlation components of the model; added corresponding `print.list.confint.rma()` function - moved `tol` argument in `permutest()` to `control` and renamed to `comptol` - added `PMM` and `GENQM` estimators in `rma.uni()` - added `vif()` function to get variance inflation factors - added `.glmulti` object for making the interaction with `glmulti` easier - added `reporter()` and `reporter.rma.uni()` for dynamically generating analysis reports for objects of class `rma.uni` - output is now styled/colored when `crayon` package is loaded (this only works on a 'proper' terminal with color support; also works in RStudio) - overhauled `plot.gosh.rma()`; when `out` is specified, it now shows two distributions, one for the values when the outlier is included and one for the values when for outlier is excluded; dropped the `hcol` argument and added `border` argument - refactored `influence.rma.uni()` to be more consistent internally with other functions; `print.infl.rma.uni()` and `plot.infl.rma.uni()` adjusted accordingly; functions `cooks.distance.rma.uni()`, `dfbetas.rma.uni()`, and `rstudent.rma.uni()` now call `influence.rma.uni()` for the computations - `rstudent.rma.uni()` now computes the SE of the deleted residuals in such a way that it will yield identical results to a mean shift outlier model even when that model is fitted with `test="knha"` - `rstandard.rma.uni()` gains `type` argument, and can now also compute conditional residuals (it still computes marginal residuals by default) - `cooks.distance.rma.mv()` gains `cluster` argument, so that the Cook's distances can be computed for groups of estimates - `cooks.distance.rma.mv()` gains `parallel`, `ncpus`, and `cl` arguments and can now make use of parallel processing - `cooks.distance.rma.mv()` should be faster by using the estimates from the full model as starting values when fitting the models with the ith study/cluster deleted from the dataset - `cooks.distance.rma.mv()` gains `reestimate` argument; when set to `FALSE`, variance/correlation components are not reestimated - `rstandard.rma.mv()` gains `cluster` argument for computing cluster-level multivariate standardized residuals - added `rstudent.rma.mv()` and `dfbetas.rma.mv()` - smarter matching of elements in `newmods` (when using a named vector) in `predict()` that also works for models with interactions (thanks to Nicole Erler for pointing out the problem) - `rma.uni()` and `rma.mv()` no longer issue (obvious) warnings when user constrains `vi` or `V` to 0 (i.e., `vi=0` or `V=0`, respectively) - `rma.mv()` does more intelligent filtering based on `NA`s in `V` matrix - `rma.mv()` now ensures strict symmetry of any (var-cov or correlation) matrices specified via the `R` argument - fixed `rma.mv()` so checks on `R` argument run as intended; also fixed an issue when multiple formulas with slashes are specified via `random` (thanks to Andrew Loignon for pointing out the problem) - suppressed showing calls on some warnings/errors in `rma.mv()` - `rma.mv()` now allows for a continuous-time autoregressive random effects structure (`struct="CAR"`) and various spatial correlation structures (`struct="SPEXP"`, `"SPGAU"`, `"SPLIN"`, `"SPRAT"`, and `"SPSPH"`) - `rma.mv()` now allows for `struct="GEN"` which models correlated random effects for any number of predictors, including continuous ones (i.e., this allows for 'random slopes') - in the various `forest()` functions, when `options(na.action="na.pass")` or `options(na.action="na.exclude")` and an annotation contains `NA`, this is now shown as a blank (instead of `NA [NA, NA]`) - the various `forest()` and `addpoly()` functions gain a `fonts` argument - the various `forest()` functions gain a `top` argument - the various `forest()` functions now show correct point sizes when the weights of the studies are exactly the same - `forest.cumul.rma()` gains a `col` argument - `funnel.default()` and `funnel.rma()` can now take vectors as input for the `col` and `bg` arguments (and also for `pch`); both functions also gain a `legend` argument - `addpoly()` functions can now also show prediction interval bounds - removed 'formula interface' from `escalc()`; until this actually adds some kind of extra functionality, this just makes `escalc()` more confusing to use - `escalc()` can now compute the coefficient of variation ratio and the variability ratio for pre-post or matched designs (`"CVRC"`, `"VRC"`) - `escalc()` does a bit more housekeeping - added (currently undocumented) arguments `onlyo1`, `addyi`, and `addvi` to `escalc()` that allow for more flexibility when computing certain bias corrections and when computing sampling variances for measures that make use of the `add` and `to` arguments - `escalc()` now sets `add=0` for measures where the use of such a bias correction makes little sense; this applies to the following measures: `"AS"`, `"PHI"`, `"RTET"`, `"IRSD"`, `"PAS"`, `"PFT"`, `"IRS"`, and `"IRFT"`; one can still force the use of the bias correction by explicitly setting the `add` argument to some non-zero value - added `clim` argument to `summary.escalc()` - added `ilim` argument to `trimfill()` - `labbe()` gains `lty` argument - `labbe()` now (invisibly) returns a data frame with the coordinates of the points that were drawn (which may be useful for manual labeling of points in the plot) - added a print method for `profile.rma` objects - `profile.rma.mv()` now check whether any of the profiled log-likelihood values is larger than the log-likelihood of the fitted model (using numerical tolerance given by `lltol`) and issues a warning if so - `profile.rma.uni()`, `profile.rma.mv()`, and `plot.profile.rma()` gain `cline` argument; `plot.profile.rma()` gains `xlim`, `ylab`, and `main` arguments - fixed an issue with `robust.rma.mv()` when the model was fitted with `sparse=TRUE` (thanks to Roger Martineau for noting the problem) - various method functions (`fitted()`, `resid()`, `predict()`, etc.) behave in a more consistent manner when model omitted studies with missings - `predict.rma()` gains `vcov` argument; when set to `TRUE`, the variance-covariance matrix of the predicted values is also returned - `vcov.rma()` can now also return the variance-covariance matrix of the fitted values (`type="fitted"`) and the residuals (`type="resid"`) - added `$<-` and `as.matrix()` methods for `list.rma` objects - fixed error in `simulate.rma()` that would generate too many samples for `rma.mv` models - added undocumented argument `time` to all model fitting functions; if set to `TRUE`, the model fitting time is printed - added more tests (also for parallel operations); also, all tests updated to use proper tolerances instead of rounding - reorganized the documentation a bit # metafor 2.0-0 (2017-06-22) - added `simulate()` method for `rma` objects; added `MASS` to `Suggests` (since simulating for `rma.mv` objects requires `mvrnorm()` from `MASS`) - `cooks.distance.rma.mv()` now works properly even when there are missing values in the data - `residuals()` gains `type` argument and can compute Pearson residuals - the `newmods` argument in `predict()` can now be a named vector or a matrix/data frame with column names that get properly matched up with the variables in the model - added `ranef.rma.mv()` for extracting the BLUPs of the random effects for `rma.mv` models - all functions that repeatedly refit models now have the option to show a progress bar - added `ranktest.default()`, so user can now pass the outcomes and corresponding sampling variances directly to the function - added `regtest.default()`, so user can now pass the outcomes and corresponding sampling variances directly to the function - `funnel.default()` gains `subset` argument - `funnel.default()` and `funnel.rma()` gain `col` and `bg` arguments - `plot.profile.rma()` gains `ylab` argument - more consistent handling of `robust.rma` objects - added a print method for `rma.gosh` objects - the (log) relative risk is now called the (log) risk ratio in all help files, plots, code, and comments - `escalc()` can now compute outcome measures based on paired binary data (`"MPRR"`, `"MPOR"`, `"MPRD"`, `"MPORC"`, and `"MPPETO"`) - `escalc()` can now compute (semi-)partial correlation coefficients (`"PCOR"`, `"ZPCOR"`, `"SPCOR"`) - `escalc()` can now compute measures of variability for single groups (`"CVLN"`, `"SDLN"`) and for the difference in variability between two groups (`"CVR"`, `"VR"`); also the log transformed mean (`"MNLN"`) has been added for consistency - `escalc()` can now compute the sampling variance for `measure="PHI"` for studies using stratified sampling (`vtpye="ST"`) - the `[` method for `escalc` objects now properly handles the `ni` and `slab` attributes and does a better job of cleaning out superfluous variable name information - added `rbind()` method for `escalc` objects - added `as.data.frame()` method for `list.rma` objects - added a new dataset (`dat.pagliaro1992`) for another illustration of a network meta-analysis - added a new dataset (`dat.laopaiboon2015`) on the effectiveness of azithromycin for treating lower respiratory tract infections - `rma.uni()` and `rma.mv()` now check if the ratio of the largest to smallest sampling variance is very large; results may not be stable then (and very large ratios typically indicate wrongly coded data) - model fitting functions now check if extra/superfluous arguments are specified via `...` and issues are warning if so - instead of defining own generic `ranef()`, import `ranef()` from `nlme` - improved output formatting - added more tests (but disabled a few tests on CRAN to avoid some issues when R is compiled with `--disable-long-double`) - some general code cleanup - renamed `diagram_metafor.pdf` vignette to just `diagram.pdf` - minor updates in the documentation # metafor 1.9-9 (2016-09-25) - started to use git as version control system, GitHub to host the repository (https://github.com/wviechtb/metafor) for the development version of the package, Travis CI as continuous integration service (https://travis-ci.org/wviechtb/metafor), and Codecov for automated code coverage reporting (https://app.codecov.io/gh/wviechtb/metafor) - argument `knha` in `rma.uni()` and argument `tdist` in `rma.glmm()` and `rma.mv()` are now superseded by argument `test` in all three functions; for backwards compatibility, the `knha` and `tdist` arguments still work, but are no longer documented - `rma(yi, vi, weights=1, test="knha")` now yields the same results as `rma(yi, vi, weighted=FALSE, test="knha")` (but use of the Knapp and Hartung method in the context of an unweighted analysis remains an experimental feature) - one can now pass an `escalc` object directly to `rma.uni()`, which then tries to automatically determine the `yi` and `vi` variables in the data frame (thanks to Christian Roever for the suggestion) - `escalc()` can now also be used to convert a regular data frame to an `escalc` object - for `measure="UCOR"`, the exact bias-correction is now used (instead of the approximation); when `vtype="UB"`, the exact equation is now used to compute the unbiased estimate of the variance of the bias-corrected correlation coefficient; hence `gsl` is now a suggested package (needed to compute the hypergeometric function) and is loaded when required - `cooks.distance()` now also works with `rma.mv` objects; and since model fitting can take some time, an option to show a progress bar has been added - fixed an issue with `robust.rma.mv()` throwing errors when the model was fitted with `sparse=TRUE` - fixed an error with `robust.rma.mv()` when the model was fitted with user-defined weights (or a user-defined weight matrix) - added `ranef()` for extracting the BLUPs of the random effects (only for `rma.uni` objects at the moment) - reverted back to the pre-1.1-0 way of computing p-values for individual coefficients in `permutest.rma.uni()`, that is, the p-value is computed with `mean(abs(z_perm) >= abs(z_obs) - tol)` (where `tol` is a numerical tolerance) - `permutest.rma.uni()` gains `permci` argument, which can be used to obtain permutation-based CIs of the model coefficients (note that this is computationally very demanding and may take a long time to complete) - `rma.glmm()` continues to work even when the saturated model cannot be fitted (although the tests for heterogeneity are not available then) - `rma.glmm()` now allows control over the arguments used for `method.args` (via `control=list(hessianCtrl=list(...))`) passed to `hessian()` (from the `numDeriv` package) when using `model="CM.EL"` and `measure="OR"` - in `rma.glmm()`, default `method.args` value for `r` passed to `hessian()` has been increased to 16 (while this slows things down a bit, this appears to improve the accuracy of the numerical approximation to the Hessian, especially when tau^2 is close to 0) - the various `forest()` and `addpoly()` functions now have a new argument called `width`, which provides manual control over the width of the annotation columns; this is useful when creating complex forest plots with a monospaced font and we want to ensure that all annotations are properly lined up at the decimal point - the annotations created by the various `forest()` and `addpoly()` functions are now a bit more compact by default - more flexible `efac` argument in the various `forest()` functions - trailing zeros in the axis labels are now dropped in forest and funnel plots by default; but trailing zeros can be retained by specifying a numeric (and not an integer) value for the `digits` argument - added `funnel.default()`, which directly takes as input a vector with the observed effect sizes or outcomes and the corresponding sampling variances, standard errors, and/or sample sizes - added `plot.profile.rma()`, a plot method for objects returned by the `profile.rma.uni()` and `profile.rma.mv()` functions - simplified `baujat.rma.uni()`, `baujat.rma.mh()`, and `baujat.rma.peto()` to `baujat.rma()`, which now handles objects of class `rma.uni`, `rma.mh`, and `rma.peto` - `baujat.rma()` gains argument `symbol` for more control over the plotting symbol - `labbe()` gains a `grid` argument - more logical placement of labels in `qqnorm.rma.uni()`, `qqnorm.rma.mh()`, and `qqnorm.rma.peto()` functions (and more control thereof) - `qqnorm.rma.uni()` gains `lty` argument - added `gosh.rma()` and `plot.gosh.rma()` for creating GOSH (i.e., graphical display of study heterogeneity) plots based on Olkin et al. (2012) - in the (rare) case where all observed outcomes are exactly equal to each other, `test="knha"` (i.e., `knha=TRUE`) in `rma()` now leads to more appropriate results - updated datasets so those containing precomputed effect size estimates or observed outcomes are already declared to be `escalc` objects - added new datasets (`dat.egger2001` and `dat.li2007`) on the effectiveness of intravenous magnesium in acute myocardial infarction - `methods` package is now under `Depends` (in addition to `Matrix`), so that `rma.mv(..., sparse=TRUE)` always works, even under Rscript - some general code cleanup - added more tests (and used a more consistent naming scheme for tests) # metafor 1.9-8 (2015-09-28) - due to more stringent package testing, it is increasingly difficult to ensure that the package passes all checks on older versions of R; from now on, the package will therefore require, and be checked under, only the current (and the development) version of R - added `graphics`, `grDevices`, and `methods` to `Imports` (due to recent change in how CRAN checks packages) - the `struct` argument for `rma.mv()` now also allows for `"ID"` and `"DIAG"`, which are identical to the `"CS"` and `"HCS"` structures, but with the correlation parameter fixed to 0 - added `robust()` for (cluster) robust tests and confidence intervals for `rma.uni` and `rma.mv` models (this uses a robust sandwich-type estimator of the variance-covariance matrix of the fixed effects along the lines of the Eicker-Huber-White method) - `confint()` now works for models fitted with the `rma.mv()` function; for variance and correlation parameters, the function provides profile likelihood confidence intervals; the output generated by the `confint()` function has been adjusted in general to make the formatting more consistent across the different model types - for objects of class `rma.mv`, `profile()` now provides profile plots for all (non-fixed) variance and correlation components of the model when no component is specified by the user (via the `sigma2`, `tau2`, `rho`, `gamma2`, or `phi` arguments) - for `measure="MD"` and `measure="ROM"`, one can now choose between `vtype="LS"` (the default) and `vtype="HO"`; the former computes the sampling variances without assuming homoscedasticity, while the latter assumes homoscedasticity - multiple model objects can now be passed to the `fitstats()`, `AIC()`, and `BIC()` functions - check for duplicates in the `slab` argument is now done *after* any subsetting is done (as suggested by Michael Dewey) - `rma.glmm()` now again works when using `add=0`, in which case some of the observed outcomes (e.g., log odds or log odds ratios) may be `NA` - when using `rma.glmm()` with `model="CM.EL"`, the saturated model (used to compute the Wald-type and likelihood ratio tests for the presence of (residual) heterogeneity) often fails to converge; the function now continues to run (instead of stopping with an error) and simply omits the test results from the output - when using `rma.glmm()` with `model="CM.EL"` and inversion of the Hessian fails via the Choleski factorization, the function now makes another attempt via the QR decomposition (even when this works, a warning is issued) - for `rma.glmm()`, BIC and AICc values were switched around; corrected - more use of `suppressWarnings()` is made when functions repeatedly need to fit the same model, such as `cumul()`, `influence()`, and `profile()`; that way, one does not get inundated with the same warning(s) - some (overdue) updates to the documentation # metafor 1.9-7 (2015-05-22) - default optimizer for `rma.mv()` changed to `nlminb()` (instead of `optim()` with `"Nelder-Mead"`); extensive testing indicated that `nlminb()` (and also `optim()` with `"BFGS"`) is typically quicker and more robust; note that this is in principle a non-backwards compatible change, but really a necessary one; and you can always revert to the old behavior with `control=list(optimizer="optim", optmethod="Nelder-Mead")` - all tests have been updated in accordance with the recommended syntax of the `testthat` package; for example, `expect_equivalent(x,y)` is used instead of `test_that(x, is_equivalent_to(y))` - changed a few `is_identical_to()` comparisons to `expect_equivalent()` ones (that failed on Sparc Solaris) # metafor 1.9-6 (2015-05-07) - `funnel()` now works again for `rma.glmm` objects (note to self: quit breaking things that work!) - `rma.glmm()` will now only issue a warning (and not an error) when the Hessian for the saturated model cannot be inverted (which is needed to compute the Wald-type test for heterogeneity, so the test statistic is then simply set to `NA`) - `rma.mv()` now allows for two terms of the form `~ inner | outer`; the variance components corresponding to such a structure are called `gamma2` and correlations are called `phi`; other functions that work with objects of class `rma.mv` have been updated accordingly - `rma.mv()` now provides (even) more optimizer choices: `nlm()` from the `stats` package, `hjk()` and `nmk()` from the `dfoptim` package, and `ucminf()` from the `ucminf` package; choose the desired optimizer via the control argument (e.g., `control=list(optimizer="nlm")`) - `profile.rma.uni()` and `profile.rma.mv()` now can do parallel processing (which is especially relevant for `rma.mv` objects, where profiling is crucial and model fitting can be slow) - the various `confint()` functions now have a `transf` argument (to apply some kind of transformation to the model coefficients and confidence interval bounds); coefficients and bounds for objects of class `rma.mh` and `rma.peto` are no longer automatically transformed - the various `forest()` functions no longer enforce that the actual x-axis limits (`alim`) encompass the observed outcomes to be plotted; also, outcomes below or above the actual x-axis limits are no longer shown - the various `forest()` functions now provide control over the horizontal lines (at the top/bottom) that are automatically added to the plot via the `lty` argument (this also allows for removing them); also, the vertical reference line is now placed *behind* the points/CIs - `forest.default()` now has argument `col` which can be used to specify the color(s) to be used for drawing the study labels, points, CIs, and annotations - the `efac` argument for `forest.rma()` now also allows two values, the first for the arrows and CI limits, the second for summary estimates - corrected some axis labels in various plots when `measure="PLO"` - axes in `labbe()` plots now have `"(Group 1)"` and `"(Group 2)"` added by default - `anova.rma()` gains argument `L` for specifying linear combinations of the coefficients in the model that should be tested to be zero - in case removal of a row of data would lead to one or more inestimable model coefficients, `baujat()`, `cooks.distance()`, `dfbetas()`, `influence()`, and `rstudent()` could fail for `rma.uni` objects; such cases are now handled properly - for models with moderators, the `predict()` function now shows the study labels when they have been specified by the user (and `newmods` is not used) - if there is only one fixed effect (model coefficient) in the model, the `print.infl.rma.uni()` function now shows the DFBETAS values with the other case diagnostics in a single table (for easier inspection); if there is more than one fixed effect, a separate table is still used for the DFBETAS values (with one column for each coefficient) - added `measure="SMCRH"` to the `escalc()` function for the standardized mean change using raw score standardization with heteroscedastic population variances at the two measurement occasions - added `measure="ROMC"` to the `escalc()` function for the (log transformed) ratio of means (response ratio) when the means reflect two measurement occasions (e.g., for a single group of people) and hence are correlated - added own function for computing/estimating the tetrachoric correlation coefficient (for `measure="RTET"`); package therefore no longer suggests `polycor` but now suggest `mvtnorm` (which is loaded as needed) - element `fill` returned by `trimfill.rma.uni()` is now a logical vector (instead of a 0/1 dummy variable) - `print.list.rma()` now also returns the printed results invisibly as a data frame - added a new dataset (`dat.senn2013`) as another illustration of a network meta-analysis - `metafor` now depends on at least version 3.1.0 of R # metafor 1.9-5 (2014-11-24) - moved the `stats` and `Matrix` packages from `Depends` to `Imports`; as a result, had to add `utils` to `Imports`; moved the `Formula` package from `Depends` to `Suggests` - added `update.rma()` function (for updating/refitting a model); model objects also now store and keep the call - the `vcov()` function now also extracts the marginal variance-covariance matrix of the observed effect sizes or outcomes from a fitted model (of class `rma.uni` or `rma.mv`) - `rma.mv()` now makes use of the Cholesky decomposition when there is a `random = ~ inner | outer` formula and `struct="UN"`; this is numerically more stable than the old approach that avoided non-positive definite solutions by forcing the log-likelihood to be -Inf in those cases; the old behavior can be restored with `control = list(cholesky=FALSE)` - `rma.mv()` now requires the `inner` variable in an `~ inner | outer` formula to be a factor or character variable (except when `struct` is `"AR"` or `"HAR"`); use `~ factor(inner) | outer` in case it isn't - `anova.rma.uni()` function changed to `anova.rma()` that works now for both `rma.uni` and `rma.mv` objects - the `profile.rma.mv()` function now omits the number of the variance or correlation component from the plot title and x-axis label when the model only includes one of the respective parameters - `profile()` functions now pass on the `...` argument also to the `title()` function used to create the figure titles (esp. relevant when using the `cex.main` argument) - the `drop00` argument of the `rma.mh()` and `rma.peto()` functions now also accepts a vector with two logicals, the first applies when calculating the observed outcomes, the second when applying the Mantel-Haenszel or Peto's method - `weights.rma.uni()` now shows the correct weights when `weighted=FALSE` - argument `showweight` renamed to `showweights` in the `forest.default()` and `forest.rma()` functions (more consistent with the naming of the various `weights()` functions) - added `model.matrix.rma()` function (to extract the model matrix from objects of class `rma`) - `funnel()` and `radial()` now (invisibly) return data frames with the coordinates of the points that were drawn (may be useful for manual labeling of points in the plots) - `permutest.rma.uni()` function now uses a numerical tolerance when making comparisons (>= or <=) between an observed test statistic and the test statistic under the permuted data; when using random permutations, the function now ensures that the very first permutation correspond to the original data - corrected some missing/redundant row/column labels in some output - most `require()` calls replaced with `requireNamespace()` to avoid altering the search path (hopefully this won't break stuff ...) - some non-visible changes including more use of some (non-exported) helper functions for common tasks - dataset `dat.collins91985a` updated (including all reported outcomes and some more information about the various trials) - oh, and guess what? I updated the documentation ... # metafor 1.9-4 (2014-07-30) - added `method="GENQ"` to `rma.uni()` for the generalized Q-statistic estimator of tau^2, which allows for used-defined weights (note: the DL and HE estimators are just special cases of this method) - when the model was fitted with `method="GENQ"`, then `confint()` will now use the generalized Q-statistic method to construct the corresponding confidence interval for tau^2 (thanks to Dan Jackson for the code); the iterative method used to obtain the CI makes use of Farebrother's algorithm as implemented in the `CompQuadForm` package - slight improvements in how the `rma.uni()` function handles non-positive sampling variances - `rma.uni()`, `rma.mv()`, and `rma.glmm()` now try to detect and remove any redundant predictors before the model fitting; therefore, if there are exact linear relationships among the predictor variables (i.e., perfect multicollinearity), terms are removed to obtain a set of predictors that is no longer perfectly multicollinear (a warning is issued when this happens); note that the order of how the variables are specified in the model formula can influence which terms are removed - the last update introduced an error in how hat values were computed when the model was fitted with the `rma()` function using the Knapp & Hartung method (i.e., when `knha=TRUE`); this has been fixed - `regtest()` no longer works (for now) with `rma.mv` objects (it wasn't meant to in the first place); if you want to run something along the same lines, just consider adding some measure of the precision of the observed outcomes (e.g., their standard errors) as a predictor to the model - added `"sqrtni"` and `"sqrtninv"` as possible options for the `predictor` argument of `regtest()` - more optimizers are now available for the `rma.mv()` function via the `nloptr` package by setting `control = list(optimizer="nloptr")`; when using this optimizer, the default is to use the BOBYQA implementation from that package with a relative convergence criterion of 1e-8 on the function value (see documentation on how to change these defaults) - `predict.rma()` function now works for `rma.mv` objects with multiple tau^2 values even if the user specifies the `newmods` argument but not the `tau2.levels` argument (but a warning is issued and the prediction intervals are not computed) - argument `var.names` now works properly in `escalc()` when the user has not made use of the `data` argument (thanks to Jarrett Byrnes for bringing this to my attention) - added `plot()` function for cumulative random-effects models results as obtained with the `cumul.rma.uni()` function; the plot shows the model estimate on the x-axis and the corresponding tau^2 estimate on the y-axis in the cumulative order of the results - fixed the omitted offset term in the underlying model fitted by the `rma.glmm()` function when `method="ML"`, `measure="IRR"`, and `model="UM.FS"`, that is, when fitting a mixed-effects Poisson regression model with fixed study effects to two-group event count data (thanks to Peter Konings for pointing out this error) - added two new datasets (`dat.bourassa1996`, `dat.riley2003`) - added function `replmiss()` (just a useful helper function) - package now uses `LazyData: TRUE` - some improvements to the documentation (do I still need to mention this every time?) # metafor 1.9-3 (2014-05-05) - some minor tweaks to `rma.uni()` that should be user transparent - `rma.uni()` now has a `weights` argument, allowing the user to specify arbitrary user-defined weights; all functions affected by this have been updated accordingly - better handling of mismatched length of `yi` and `ni` vectors in `rma.uni()` and `rma.mv()` functions - subsetting is now handled as early as possible within functions with subsetting capabilities; this avoids some (rare) cases where studies ultimately excluded by the subsetting could still affect the results - some general tweaks to `rma.mv()` that should make it a bit faster - argument `V` of `rma.mv()` now also accepts a list of var-cov matrices for the observed effects or outcomes; from the list elements, the full (block diagonal) var-cov matrix `V` is then automatically constructed - `rma.mv()` now has a new argument `W` allowing the user to specify arbitrary user-defined weights or an arbitrary weight matrix - `rma.mv()` now has a new argument `sparse`; by setting this to `TRUE`, the function uses sparse matrix objects to the extent possible; this can speed up model fitting substantially for certain models (hence, the `metafor` package now depends on the `Matrix` package) - `rma.mv()` now allows for `struct="AR"` and `struct="HAR"`, to fit models with (heteroscedastic) autoregressive (AR1) structures among the true effects (useful for meta-analyses of studies reporting outcomes at multiple time points) - `rma.mv()` now has a new argument `Rscale` which can be used to control how matrices specified via the `R` argument are scaled (see docs for more details) - `rma.mv()` now only checks for missing values in the rows of the lower triangular part of the `V` matrix (including the diagonal); this way, if `Vi = matrix(c(.5,NA,NA,NA), nrow=2, ncol=2)` is the var-cov matrix of the sampling errors for a particular study with two outcomes, then only the second row/column needs to be removed before the model fitting (and not the entire study) - added five new datasets (`dat.begg1989`, `dat.ishak2007`, `dat.fine1993`, `dat.konstantopoulos2011`, and `dat.hasselblad1998`) to provide further illustrations of the use of the `rma.mv()` function (for meta-analyses combining controlled and uncontrolled studies, for meta-analyses of longitudinal studies, for multilevel meta-analyses, and for network meta-analyses / mixed treatment comparison meta-analyses) - added `rstandard.rma.mv()` function to compute standardized residuals for models fitted with the `rma.mv()` function (`rstudent.rma.mv()` to be added at a later point); also added `hatvalues.rma.mv()` for computing the hat values and `weights.rma.uni()` for computing the weights (i.e., the diagonal elements of the weight matrix) - the various `weights()` functions now have a new argument `type` to indicate whether only the diagonal elements of the weight matrix (default) or the entire weight matrix should be returned - the various `hatvalues()` functions now have a new argument `type` to indicate whether only the diagonal elements of the hat matrix (default) or the entire hat matrix should be returned - `predict.rma()` function now works properly for `rma.mv` objects (also has a new argument `tau2.levels` to specify, where applicable, the levels of the inner factor when computing prediction intervals) - `forest.rma()` function now provides a bit more control over the color of the summary polygon and is now compatible with `rma.mv` objects; also, has a new argument `lty`, which provides more control over the line type for the individual CIs and the prediction interval - `addpoly.default()` and `addpoly.rma()` now have a `border` argument (for consistency with the `forest.rma()` function); `addpoly.rma()` now yields the correct CI bounds when the model was fitted with `knha=TRUE` - `forest.cumul.rma()` now provides the correct CI bounds when the models were fitted with the Knapp & Hartung method (i.e., when `knha=TRUE` in the original `rma()` function call) - the various `forest()` functions now return information about the chosen values for arguments `xlim`, `alim`, `at`, `ylim`, `rows`, `cex`, `cex.lab`, and `cex.axis` invisibly (useful for tweaking the default values); thanks to Michael Dewey for the suggestion - the various `forest()` functions now have a new argument, `clim`, to set limits for the confidence/prediction interval bounds - `cumul.mh()` and `cumul.peto()` now get the order of the studies right when there are missing values in the data - the `transf` argument of `leave1out.rma.mh()`, `leave1out.rma.peto()`, `cumul.rma.mh()`, and `cumul.rma.peto()` should now be used to specify the actual function for the transformation (the former behavior of setting this argument to `TRUE` to exponentiate log RRs, log ORs, or log IRRs still works for back-compatibility); this is more consistent with how the `cumul.rma.uni()` and `leave1out.rma.uni()` functions work and is also more flexible - added `bldiag()` function to construct a block diagonal matrix from (a list of) matrices (may be needed to construct the `V` matrix when using the `rma.mv()` function); `bdiag()` function from the `Matrix` package does the same thing, but creates sparse matrix objects - `profile.rma.mv()` now has a `startmethod` argument; by setting this to `"prev"`, successive model fits are started at the parameter estimates from the previous model fit; this may speed things up a bit; also, the method for automatically choosing the `xlim` values has been changed - slight improvement to `profile.rma.mv()` function, which would throw an error if the last model fit did not converge - added a new dataset (`dat.linde2005`) for replication of the analyses in Viechtbauer (2007) - added a new dataset (`dat.molloy2014`) for illustrating the meta-analysis of (r-to-z transformed) correlation coefficients - added a new dataset (`dat.gibson2002`) to illustrate the combined analysis of standardized mean differences and probit transformed risk differences - computations in `weights.mh()` slightly changed to prevent integer overflows for large counts - unnecessary warnings in `transf.ipft.hm()` are now suppressed (cases that raised those warnings were already handled correctly) - in `predict()`, `blup()`, `cumul()`, and `leave1out()`, when using the `transf` argument, the standard errors (which are `NA`) are no longer shown in the output - argument `slab` in various functions will now also accept non-unique study labels; `make.unique()` is used as needed to make them unique - `vignettes("metafor")` and `vignettes("metafor_diagram")` work again (yes, I know they are not true vignettes in the strict sense, but I think they should show up on the CRAN website for the package and using a minimal valid Sweave document that is recognized by the R build system makes that happen) - `escalc()` and its `summary()` method now keep better track when the data frame contains multiple columns with outcome or effect size values (and corresponding sampling variances) for print formatting; also simplified the class structure a bit (and hence, `print.summary.escalc()` removed) - `summary.escalc()` has a new argument `H0` to specify the value of the outcome under the null hypothesis for computing the test statistics - added measures `"OR2DN"` and `"D2ORN"` to `escalc()` for transforming log odds ratios to standardized mean differences and vice-versa, based on the method of Cox & Snell (1989), which assumes normally distributed response variables within the two groups before the dichotomization - `permutest.rma.uni()` function now catches an error when the number of permutations requested is too large (for R to even create the objects to store the results in) and produces a proper error message - `funnel.rma()` function now allows the `yaxis` argument to be set to `"wi"` so that the actual weights (in %) are placed on the y-axis (useful when arbitrary user-defined have been specified) - for `rma.glmm()`, the control argument `optCtrl` is now used for passing control arguments to all of the optimizers (hence, control arguments `nlminbCtrl` and `minqaCtrl` are now defunct) - `rma.glmm()` should not throw an error anymore when including only a single moderator/predictor in the model - `predict.rma()` now returns an object of class `list.rma` (therefore, function `print.predict.rma()` has been removed) - for `rma.list` objects, added `[`, `head()`, and `tail()` methods - automated testing using the `testthat` package (still many more tests to add, but finally made a start on this) - encoding changed to UTF-8 (to use 'foreign characters' in the docs and to make the HTML help files look a bit nicer) - guess what? some improvements to the documentation! (also combined some of the help files to reduce the size of the manual a bit; and yes, it's still way too big) # metafor 1.9-2 (2013-10-07) - added function `rma.mv()` to fit multivariate/multilevel meta-analytic models via appropriate linear (mixed-effects) models; this function allows for modeling of non-independent sampling errors and/or true effects and can be used for network meta-analyses, meta-analyses accounting for phylogenetic relatedness, and other complicated meta-analytic data structures - added the AICc to the information criteria computed by the various model fitting functions - if the value of tau^2 is fixed by the user via the corresponding argument in `rma.uni()`, then tau^2 is no longer counted as an additional parameter for the computation of the information criteria (i.e., AIC, BIC, and AICc) - `rma.uni()`, `rma.glmm()`, and `rma.mv()` now use a more stringent check whether the model matrix is of full rank - added `profile()` method functions for objects of class `rma.uni` and `rma.mv` (can be used to obtain a plot of the profiled log-likelihood as a function of a specific variance component or correlation parameter of the model) - `predict.rma()` function now has an `intercept` argument that allows the user to decide whether the intercept term should be included when calculating the predicted values (rare that this should be changed from the default) - for `rma.uni()`, `rma.glmm()`, and `rma.mv()`, the `control` argument can now also accept an integer value; values > 1 generate more verbose output about the progress inside of the function - `rma.glmm()` has been updated to work with `lme4` 1.0.x for fitting various models; as a result, `model="UM.RS"` can only use `nAGQ=1` at the moment (hopefully this will change in the future) - the `control` argument of `rma.glmm()` can now be used to pass all desired control arguments to the various functions and optimizers used for the model fitting (admittedly the use of lists within this argument is a bit unwieldy, but much more flexible) - `rma.mh()` and `rma.peto()` also now have a `verbose` argument (not really needed, but added for sake of consistency across functions) - fixed (silly) error that would prevent `rma.glmm()` from running for measures `"IRR"`, `"PLO"`, and `"IRLN"` when there are missing values in the data (lesson: add some missing values to datasets for the unit tests!) - a bit of code reorganization (should be user transparent) - vignettes (`"metafor"` and `"metafor_diagram"`) are now just 'other files' in the doc directory (as these were not true vignettes to begin with) - some improvements to the documentation (as always) # metafor 1.9-1 (2013-07-20) - `rma.mh()` now also implements the Mantel-Haenszel method for incidence rate differences (`measure="IRD"`) - when analyzing incidence rate ratios (`measure="IRR"`) with the `rma.mh()` function, the Mantel-Haenszel test for person-time data is now also provided - `rma.mh()` has a new argument `correct` (default is `TRUE`) to indicate whether the continuity correction should be applied when computing the (Cochran-)Mantel-Haenszel test statistic - renamed elements `CMH` and `CMHp` (for the Cochran-Mantel-Haenszel test statistic and corresponding p-value) to `MH` and `MHp` - added function `baujat()` to create Baujat plots - added a new dataset (`dat.pignon2000`) to illustrate the use of the `baujat()` function - added function `to.table()` to convert data from vector format into the corresponding table format - added function `to.long()` to convert data from vector format into the corresponding long format - `rma.glmm()` now even runs when k=1 (yielding trivial results) - for models with an intercept and moderators, `rma.glmm()` now internally rescales (non-dummy) variables to z-scores during the model fitting (this improves the stability of the model fitting, especially when `model="CM.EL"`); results are given after back-scaling, so this should be transparent to the user - in `rma.glmm()`, default number of quadrature points (`nAGQ`) is now 7 (setting this to 100 was a bit overkill) - a few more error checks here and there for misspecified arguments - some improvements to the documentation # metafor 1.9-0 (2013-06-21) - vignette renamed to `metafor` so `vignette("metafor")` works now - added a diagram to the documentation, showing the various functions in the `metafor` package (and how they relate to each other); can be loaded with `vignette("metafor_diagram")` - `anova.rma.uni()` function can now also be used to test (sub)sets of model coefficients with a Wald-type test when a single model is passed to the function - the pseudo R^2 statistic is now automatically calculated by the `rma.uni()` function and supplied in the output (only for mixed-effects models and when the model includes an intercept, so that the random- effects model is clearly nested within the mixed-effects model) - component `VAF` is now called `R2` in `anova.rma.uni()` function - added function `hc()` that carries out a random-effects model analysis using the method by Henmi and Copas (2010); thanks to Michael Dewey for the suggestion and providing the code - added new dataset (`dat.lee2004`), which was used in the article by Henmi and Copas (2010) to illustrate their method - fixed missing x-axis labels in the `forest()` functions - `rma.glmm()` now computes Hessian matrices via the `numDeriv` package when `model="CM.EL"` and `measure="OR"` (i.e., for the conditional logistic model with exact likelihood); so `numDeriv` is now a suggested package and is loaded within `rma.glmm()` when required - `trimfill.rma.uni()` now also implements the `"Q0"` estimator (although the `"L0"` and `"R0"` estimators are generally to be preferred) - `trimfill.rma.uni()` now also calculates the SE of the estimated number of missing studies and, for estimator `"R0"`, provides a formal test of the null hypothesis that the number of missing studies on a given side is zero - added new dataset (`dat.bangertdrowns2004`) - the `level` argument in various functions now either accepts a value representing a percentage or a proportion (values greater than 1 are assumed to be a percentage) - `summary.escalc()` now computes confidence intervals correctly when using the `transf` argument - computation of Cochran-Mantel-Haenszel statistic in `rma.mh()` changed slightly to avoid integer overflow with very big counts - some internal improvements with respect to object attributes that were getting discarded when subsetting - some general code cleanup - some improvements to the documentation # metafor 1.8-0 (2013-04-11) - added additional clarifications about the change score outcome measures (`"MC"`, `"SMCC"`, and `"SMCR"`) to the help file for the `escalc()` function and changed the code so that `"SMCR"` no longer expects argument `sd2i` to be specified (which is not needed anyways) (thanks to Markus Kösters for bringing this to my attention) - sampling variance for the biserial correlation coefficient (`"RBIS"`) is now calculated in a slightly more accurate way - `llplot()` now properly scales the log-likelihoods - argument `which` in the `plot.infl.rma.uni()` function has been replaced with argument `plotinf` which can now also be set to `FALSE` to suppress plotting of the various case diagnostics altogether - labeling of the axes in `labbe()` plots is now correct for odds ratios (and transformations thereof) - added two new datasets (`dat.nielweise2007` and `dat.nielweise2008`) to illustrate some methods/models from the `rma.glmm()` function - added a new dataset (`dat.yusuf1985`) to illustrate the use of `rma.peto()` - test for heterogeneity is now conducted by the `rma.peto()` function exactly as described by Yusuf et al. (1985) - in `rma.glmm()`, default number of quadrature points (`nAGQ`) is now 100 (which is quite a bit slower, but should provide more than sufficient accuracy in most cases) - the standard errors of the HS and DL estimators of tau^2 are now correctly computed when tau^2 is prespecified by the user in the `rma()` function; in addition, the standard error of the SJ estimator is also now provided when tau^2 is prespecified - `rma.uni()` and `rma.glmm()` now use a better method to check whether the model matrix is of full rank - I^2 and H^2 statistics are now also calculated for mixed-effects models by the `rma.uni()` and `rma.glmm()` function; `confint.rma.uni()` provides the corresponding confidence intervals for `rma.uni` models - various `print()` methods now have a new argument called `signif.stars`, which defaults to `getOption("show.signif.stars")` (which by default is `TRUE`) to determine whether the infamous 'significance stars' should be printed - slight changes in wording in the output produced by the `print.rma.uni()` and `print.rma.glmm()` functions - some improvements to the documentation # metafor 1.7-0 (2013-02-06) - added `rma.glmm()` function for fitting of appropriate generalized linear (mixed-effects) models when analyzing odds ratios, incidence rate ratios, proportions, or rates; the function makes use of the `lme4` and `BiasedUrn` packages; these are now suggested packages and loaded within `rma.glmm()` only when required (this makes for faster loading of the `metafor` package) - added several method functions for objects of class `rma.glmm` (not all methods yet implemented; to be completed in the future) - `rma.uni()` now allows the user to specify a formula for the `yi` argument, so instead of rma(yi, vi, mods=~mod1+mod2), one can specify the same model with rma(yi~mod1+mod2, vi) - `rma.uni()` now has a `weights` argument to specify the inverse of the sampling variances (instead of using the `vi` or `sei` arguments); for now, this is all this argument should be used for (in the future, this argument may potentially be used to allow the user to define alternative weights) - `rma.uni()` now checks whether the model matrix is not of full rank and issues an error accordingly (instead of the rather cryptic error that was issued before) - `rma.uni()` now has a `verbose` argument - `coef.rma()` now returns only the model coefficients (this change was necessary to make the package compatible with the `multcomp` package; see `help(rma)` for an example); use `coef(summary())` to obtain the full table of results - the `escalc()` function now does some more extensive error checking for misspecified data and some unusual cases - `append` argument is now `TRUE` by default in the `escalc()` function - objects generated by the `escalc()` function now have their own class - added `print()` and `summary()` methods for objects of class `escalc` - added `[` and `cbind()` methods for objects of class `escalc` - added a few additional arguments to the `escalc()` function (i.e., `slab`, `subset`, `var.names`, `replace`, `digits`) - added `drop00` argument to the `escalc()`, `rma.uni()`, `rma.mh()`, and `rma.peto()` functions - added `"MN"`, `"MC"`, `"SMCC"`, and `"SMCR"` measures to the `escalc()` and `rma.uni()` functions for the raw mean, the raw mean change, and the standardized mean change (with change score or raw score standardization) as possible outcome measures - the `"IRFT"` measure in the `escalc()` and `rma.uni()` functions is now computed with `1/2*(sqrt(xi/ti) + sqrt(xi/ti+1/ti))` which is more consistent with the definition of the Freeman-Tukey transformation for proportions - added `"RTET"` measure to the `escalc()` and `rma.uni()` functions to compute the tetrachoric correlation coefficient based on 2x2 table data (the `polycor` package is therefore now a suggested package, which is loaded within `escalc()` only when required) - added `"RPB"` and `"RBIS"` measures to the `escalc()` and `rma.uni()` functions to compute the point-biserial and biserial correlation coefficient based on means and standard deviations - added `"PBIT"` and `"OR2D"` measures to the `escalc()` and `rma.uni()` functions to compute the standardized mean difference based on 2x2 table data - added the `"D2OR"` measure to the `escalc()` and `rma.uni()` functions to compute the log odds ratio based on the standardized mean difference - added `"SMDH"` measure to the `escalc()` and `rma.uni()` functions to compute the standardized mean difference without assuming equal population variances - added `"ARAW"`, `"AHW"`, and `"ABT"` measures to the `escalc()` and `rma.uni()` functions for the raw value of Cronbach's alpha, the transformation suggested by Hakstian & Whalen (1976), and the transformation suggested by Bonett (2002) for the meta-analysis of reliability coefficients (see `help(escalc)` for details) - corrected a small mistake in the equation used to compute the sampling variance of the phi coefficient (`measure="PHI"`) in the `escalc()` function - the `permutest.rma.uni()` function now uses an algorithm to find only the unique permutations of the model matrix (which may be much smaller than the total number of permutations), making the exact permutation test feasible in a larger set of circumstances (thanks to John Hodgson for making me aware of this issue and to Hans-Jörg Viechtbauer for coming up with a recursive algorithm for finding the unique permutations) - prediction interval in `forest.rma()` is now indicated with a dotted (instead of a dashed) line; ends of the interval are now marked with vertical bars - completely rewrote the `funnel.rma()` function which now supports many more options for the values to put on the y-axis; `trimfill.rma.uni()` function was adapted accordingly - removed the `ni` argument from the `regtest.rma()` function; instead, sample sizes can now be explicitly specified via the `ni` argument when using the `rma.uni()` function (i.e., when `measure="GEN"`); the `escalc()` function also now adds information on the `ni` values to the resulting data frame (as an attribute of the `yi` variable), so, if possible, this information is passed on to `regtest.rma()` - added switch so that `regtest()` can also provide the full results from the fitted model (thanks to Michael Dewey for the suggestion) - `weights.rma.mh()` now shows the weights in % as intended (thanks to Gavin Stewart for pointing out this error) - more flexible handling of the `digits` argument in the various forest functions - forest functions now use `pretty()` by default to set the x-axis tick locations (`alim` and `at` arguments can still be used for complete control) - studies that are considered to be 'influential' are now marked with an asterisk when printing the results returned by the `influence.rma.uni()` function (see the documentation of this function for details on how such studies are identified) - added additional extractor functions for some of the influence measures (i.e., `cooks.distance()`, `dfbetas()`); unfortunately, the `covratio()` and `dffits()` functions in the `stats` package are not generic; so, to avoid masking, there are currently no extractor functions for these measures - better handling of missing values in some unusual situations - corrected small bug in `fsn()` that would not allow the user to specify the standard errors instead of the sampling variances (thanks to Bernd Weiss for pointing this out) - `plot.infl.rma.uni()` function now allows the user to specify which plots to draw (and the layout) and adds the option to show study labels on the x-axis - added proper `print()` method for objects generated by the `confint.rma.uni()`, `confint.rma.mh()`, and `confint.rma.peto()` functions - when `transf` or `atransf` argument was a monotonically *decreasing* function, then confidence and prediction interval bounds were in reversed order; various functions now check for this and order the bounds correctly - `trimfill.rma.uni()` now only prints information about the number of imputed studies when actually printing the model object - `qqnorm.rma.uni()`, `qqnorm.rma.mh()`, and `qqnorm.rma.peto()` functions now have a new argument called `label`, which allows for labeling of points; the functions also now return (invisibly) the x and y coordinates of the points drawn - `rma.mh()` with `measure="RD"` now computes the standard error of the estimated risk difference based on Sato, Greenland, & Robins (1989), which provides a consistent estimate under both large-stratum and sparse-data limiting models - the restricted maximum likelihood (REML) is now calculated using the full likelihood equation (without leaving out additive constants) - the model deviance is now calculated as -2 times the difference between the model log-likelihood and the log-likelihood under the saturated model (this is a more appropriate definition of the deviance than just taking -2 times the model log-likelihood) - naming scheme of illustrative datasets bundled with the package has been changed; now datasets are called ``; therefore, the datasets are now called (`old name -> new name`): - `dat.bcg -> dat.colditz1994` - `dat.warfarin -> dat.hart1999` - `dat.los -> dat.normand1999` - `dat.co2 -> dat.curtis1998` - `dat.empint -> dat.mcdaniel1994` - but `dat.bcg` has been kept as an alias for `dat.colditz1994`, as it has been referenced under that name in some publications - added new dataset (`dat.pritz1997`) to illustrate the meta-analysis of proportions (raw values and transformations thereof) - added new dataset (`dat.bonett2010`) to illustrate the meta-analysis of Cronbach's alpha values (raw values and transformations thereof) - added new datasets (`dat.hackshaw1998`, `dat.raudenbush1985`) - (approximate) standard error of the tau^2 estimate is now computed and shown for most of the (residual) heterogeneity estimators - added `nobs()` and `df.residual()` methods for objects of class `rma` - `metafor.news()` is now simply a wrapper for `news(package="metafor")` - the package code is now byte-compiled, which yields some modest increases in execution speed - some general code cleanup - the `metafor` package no longer depends on the `nlme` package - some improvements to the documentation # metafor 1.6-0 (2011-04-13) - `trimfill.rma.uni()` now returns a proper object even when the number of missing studies is estimated to be zero - added the (log transformed) ratio of means as a possible outcome measure to the `escalc()` and `rma.uni()` functions (`measure="ROM"`) - added new dataset (`dat.co2`) to illustrate the use of the ratio of means outcome measure - some additional error checking in the various forest functions (especially when using the `ilab` argument) - in `labbe.rma()`, the solid and dashed lines are now drawn behind (and not on top of) the points - slight change to `transf.ipft.hm()` so that missing values in `targs$ni` are ignored - some improvements to the documentation # metafor 1.5-0 (2010-12-16) - the `metafor` package now has its own project website at: https://www.metafor-project.org - added `labbe()` function to create L'Abbe plots - the `forest.default()` and `addpoly.default()` functions now allow the user to directly specify the lower and upper confidence interval bounds (this can be useful when the CI bounds have been calculated with other methods/functions) - added the incidence rate for a single group and for two groups (and transformations thereof) as possible outcome measures to the `escalc()` and `rma.uni()` functions (`measure="IRR"`, `"IRD"`, `"IRSD"`, `"IR"`, `"IRLN"`, `"IRS"`, and `"IRFT"`) - added the incidence rate ratio as a possible outcome measure to the `rma.mh()` function - added transformation functions related to incidence rates - added the Freeman-Tukey double arcsine transformation and its inverse to the transformation functions - added some additional error checking for out-of-range p-values in the `permutest.rma.uni()` function - added some additional checking for out-of-range values in several transformation functions - added `confint()` methods for `rma.mh` and `rma.peto` objects (only for completeness sake; print already provides CIs) - added new datasets (`dat.warfarin`, `dat.los`, `dat.empint`) - some improvements to the documentation # metafor 1.4-0 (2010-07-30) - a paper about the package has now been published in the Journal of Statistical Software (https://www.jstatsoft.org/v36/i03/) - added citation info; see: `citation("metafor")` - the `metafor` package now depends on the `nlme` package - added extractor functions for the AIC, BIC, and deviance - some updates to the documentation # metafor 1.3-0 (2010-06-25) - the `metafor` package now depends on the `Formula` package - made `escalc()` generic and implemented a default and a formula interface - added the (inverse) arcsine transformation to the set of transformation functions # metafor 1.2-0 (2010-05-18) - cases where k is very small (e.g., k equal to 1 or 2) are now handled more gracefully - added sanity check for cases where all observed outcomes are equal to each other (this led to division by zero when using the Knapp & Hartung method) - the "smarter way to set the number of iterations for permutation tests" (see notes for previous version below) now actually works like it is supposed to - the `permutest.rma.uni()` function now provides more sensible results when k is very small; the documentation for the function has also been updated with some notes about the use of permutation tests under those circumstances - made some general improvements to the various forest plot functions making them more flexible in particular when creating more complex displays; most importantly, added a `rows` argument and removed the `addrows` argument - some additional examples have been added to the help files for the forest and addpoly functions to demonstrate how to create more complex displays with these functions - added `showweight` argument to the `forest.default()` and `forest.rma()` functions - `cumul()` functions not showing all of the output columns when using fixed-effects models has been corrected - `weights.rma.uni()` function now handles `NA`s appropriately - `weights.rma.mh()` and `weights.rma.peto()` functions added - `logLik.rma()` function now behaves more like other `logLik()` functions (such as `logLik.lm()` and `logLik.lme()`) # metafor 1.1-0 (2010-04-28) - `cint()` generic removed and replaced with `confint()` method for objects of class `rma.uni` - slightly improved the code to set the x-axis title in the `forest()` and `funnel()` functions - added `coef()` method for `permutest.rma.uni` objects - added `append` argument to `escalc()` function - implemented a smarter way to set the number of iterations for permutation tests (i.e., the `permutest.rma.uni()` function will now switch to an exact test if the number of iterations required for an exact test is actually smaller than the requested number of iterations for an approximate test) - changed the way how p-values for individual coefficients are calculated in `permutest.rma.uni()` to 'two times the one-tailed area under the permutation distribution' (more consistent with the way we typically define two-tailed p-values) - added `retpermdist` argument to `permutest.rma.uni()` to return the permutation distributions of the test statistics - slight improvements to the various transformation functions to cope better with some extreme cases - p-values are now calculated in such a way that very small p-values stored in fitted model objects are no longer truncated to 0 (the printed results are still truncated depending on the number of digits specified) - changed the default number of iterations for the ML, REML, and EB estimators from 50 to 100 # metafor 1.0-1 (2010-02-02) - version jump in conjunction with the upcoming publication of a paper in the Journal of Statistical Software describing the `metafor` package - instead of specifying a model matrix, the user can now specify a model formula for the `mods` argument in the `rma()` function (e.g., like in the `lm()` function) - `permutest()` function now allows exact permutation tests (but this is only feasible when k is not too large) - `forest()` function now uses the `level` argument properly to adjust the CI level of the summary estimate for models without moderators (i.e., for fixed- and random-effets models) - `forest()` function can now also show the prediction interval as a dashed line for a random-effects model - information about the measure used is now passed on to the `forest()` and `funnel()` functions, which try to set an appropriate x-axis title accordingly - `funnel()` function now has more arguments (e.g., `atransf`, `at`) providing more control over the display of the x-axis - `predict()` function now has its own `print()` method and has a new argument called `addx`, which adds the values of the moderator variables to the returned object (when `addx=TRUE`) - functions now properly handle the `na.action` `"na.pass"` (treated essentially like `"na.exclude"`) - added method for `weights()` to extract the weights used when fitting models with `rma.uni()` - some small improvements to the documentation # metafor 0.5-7 (2009-12-06) - added `permutest()` function for permutation tests - added `metafor.news()` function to display the `NEWS` file of the `metafor` package within R (based on same idea in the `animate` package by Yihui Xie) - added some checks for values below machine precision - a bit of code reorganization (nothing that affects how the functions work) # metafor 0.5-6 (2009-10-19) - small changes to the computation of the DFFITS and DFBETAS values in the `influence()` function, so that these statistics are more in line with their definitions in regular linear regression models - added option to the plot function for objects returned by `influence()` to allow plotting the covariance ratios on a log scale (now the default) - slight adjustments to various `print()` functions (to catch some errors when certain values were `NA`) - added a control option to `rma()` to adjust the step length of the Fisher scoring algorithm by a constant factor (this may be useful when the algorithm does not converge) # metafor 0.5-5 (2009-10-08) - added the phi coefficient (`measure="PHI"`), Yule's Q (`"YUQ"`), and Yule's Y (`"YUY"`) as additional measures to the `escalc()` function for 2x2 table data - forest plots now order the studies so that the first study is at the top of the plot and the last study at the bottom (the order can still be set with the `order` or `subset` argument) - added `cumul()` function for cumulative meta-analyses (with a corresponding `forest()` method to plot the cumulative results) - added `leave1out()` function for leave-one-out diagnostics - added option to `qqnorm.rma.uni()` so that the user can choose whether to apply the Bonferroni correction to the bounds of the pseudo confidence envelope - some internal changes to the class and methods names - some small corrections to the documentation # metafor 0.5-4 (2009-09-18) - corrected the `trimfill()` function - improvements to various print functions - added a `regtest()` function for various regression tests of funnel plot asymmetry (e.g., Egger's regression test) - made `ranktest()` generic and added a method for objects of class `rma` so that the test can be carried out after fitting - added `anova()` function for full vs reduced model comparisons via fit statistics and likelihood ratio tests - added the Orwin and Rosenberg approaches to `fsn()` - added H^2 measure to the output for random-effects models - in `escalc()`, `measure="COR"` is now used for the (usual) raw correlation coefficient and `measure="UCOR"` for the bias corrected correlation coefficients - some small corrections to the documentation # metafor 0.5-3 (2009-07-31) - small changes to some of the examples - added the log transformed proportion (`measure="PLN"`) as another measure to the `escalc()` function; changed `"PL"` to `"PLO"` for the logit (i.e., log odds) transformation for proportions # metafor 0.5-2 (2009-07-06) - added an option in `plot.infl.rma.uni()` to open a new device for plotting the DFBETAS values - thanks to Jim Lemon, added a much better method for adjusting the size of the labels, annotations, and symbols in the `forest()` function when the number of studies is large # metafor 0.5-1 (2009-06-14) - made some small changes to the documentation (some typos corrected, some confusing points clarified) # metafor 0.5-0 (2009-06-05) - first version released on CRAN metafor/inst/0000755000176200001440000000000015173350572012674 5ustar liggesusersmetafor/inst/CITATION0000644000176200001440000000133514402657721014033 0ustar liggesuserscitHeader("To cite the metafor package in publications, please use:") bibentry(bibtype = "Article", title = "Conducting meta-analyses in {R} with the {metafor} package", author = person(given = "Wolfgang", family = "Viechtbauer"), journal = "Journal of Statistical Software", year = "2010", volume = "36", number = "3", pages = "1--48", doi = "10.18637/jss.v036.i03", textVersion = paste("Viechtbauer, W. (2010).", "Conducting meta-analyses in R with the metafor package.", "Journal of Statistical Software, 36(3), 1-48.", "https://doi.org/10.18637/jss.v036.i03") ) metafor/inst/reporter/0000755000176200001440000000000013713320160014522 5ustar liggesusersmetafor/inst/reporter/references.bib0000644000176200001440000001747315173347122017346 0ustar liggesusers@article{begg1994, author = {Begg, C. B. and Mazumdar, M.}, year = {1994}, title = {Operating characteristics of a rank correlation test for publication bias}, journal = {Biometrics}, volume = {50}, number = {4}, pages = {1088-1101}, doi = {10.2307/2533446} } @article{berkey1995, author = {Berkey, C. S. and Hoaglin, D. C. and Mosteller, F. and Colditz, G. A.}, year = {1995}, title = {A random-effects regression model for meta-analysis}, journal = {Statistics in Medicine}, volume = {14}, number = {4}, pages = {395-411}, doi = {10.1002/sim.4780140406} } @article{brannick2019, author = {Brannick, Michael T. and Potter, Sean M. and Benitez, Bryan and Morris, Scott B.}, year = {2019}, title = {Bias and precision of alternate estimators in meta-analysis: Benefits of blending {Schmidt--Hunter} and {Hedges} approaches}, journal = {Organizational Research Methods}, volume = {22}, number = {2}, pages = {490--514}, doi = {10.1177/1094428117741966} } @article{cochran1954, author = {Cochran, W. G.}, year = {1954}, title = {The combination of estimates from different experiments}, journal = {Biometrics}, volume = {10}, number = {1}, pages = {101-129}, doi = {10.2307/3001666} } @article{dersimonian1986, author = {DerSimonian, R. and Laird, N.}, year = {1986}, title = {Meta-analysis in clinical trials}, journal = {Controlled Clinical Trials}, volume = {7}, number = {3}, pages = {177-188}, doi = {10.1016/0197-2456(86)90046-2} } @article{dersimonian2007, author = {DerSimonian, R. and Kacker, R.}, year = {2007}, title = {Random-effects model for meta-analysis of clinical trials: An update}, journal = {Contemporary Clinical Trials}, volume = {28}, number = {2}, pages = {105-114}, doi = {10.1016/j.cct.2006.04.004} } @article{hardy1996, author = {Hardy, R. J. and Thompson, S. G.}, year = {1996}, title = {A likelihood approach to meta-analysis with random effects}, journal = {Statistics in Medicine}, volume = {15}, number = {6}, pages = {619-629}, doi = {10.1002/(SICI)1097-0258(19960330)15:6<619::AID-SIM188>3.0.CO;2-A} } @article{hedges1983, author = {Hedges, L. V. and Olkin, I.}, year = {1983}, title = {Regression models in research synthesis}, journal = {American Statistician}, volume = {37}, number = {2}, pages = {137-140}, doi = {10.2307/2685874} } @book{hedges1985, author = {Hedges, L. V. and Olkin, I.}, title = {Statistical methods for meta-analysis}, publisher = {Academic Press}, address = {San Diego, CA}, keywords = {meta-analysis}, year = {1985} } @article{hedges1992, author = {Hedges, L. V.}, year = {1992}, title = {Meta-analysis}, journal = {Journal of Educational Statistics}, volume = {17}, number = {4}, pages = {279-296}, doi = {10.3102/10769986017004279} } @article{higgins2002, author = {Higgins, J. P. T. and Thompson, S. G.}, year = {2002}, title = {Quantifying heterogeneity in a meta-analysis}, journal = {Statistics in Medicine}, volume = {21}, number = {11}, pages = {1539-1558}, doi = {10.1002/sim.1186} } @book{hunter1990, author = {Hunter, J. E. and Schmidt, F. L.}, title = {Methods of meta-analysis: Correcting error and bias in research findings}, publisher = {Sage}, address = {Newbury Park, CA}, year = {1990} } @article{jackson2014, author = {Jackson, D. and Turner, R. and Rhodes, K. and Viechtbauer, W.}, year = {2014}, title = {Methods for calculating confidence and credible intervals for the residual between-study variance in random effects meta-regression models}, journal = {BMC Medical Research Methodology}, volume = {14}, pages = {103}, doi = {10.1186/1471-2288-14-103} } @article{knapp2003, author = {Knapp, G. and Hartung, J.}, year = {2003}, title = {Improved tests for a random effects meta-regression with a single covariate}, journal = {Statistics in Medicine}, volume = {22}, number = {17}, pages = {2693-2710}, doi = {10.1002/sim.1482} } @article{morris1983, author = {Morris, C. N.}, year = {1983}, title = {Parametric empirical {Bayes} inference: Theory and applications}, journal = {Journal of the American Statistical Association}, volume = {78}, number = {381}, pages = {47-55}, doi = {10.2307/2287098} } @article{paule1982, author = {Paule, R. C. and Mandel, J.}, year = {1982}, title = {Consensus values and weighting factors}, journal = {Journal of Research of the National Bureau of Standards}, volume = {87}, number = {5}, pages = {377-385}, doi = {10.6028/jres.087.022} } @incollection{raudenbush2009, author = {Raudenbush, S. W.}, year = {2009}, title = {Analyzing effect sizes: Random-effects models}, booktitle = {The handbook of research synthesis and meta-analysis}, editor = {Cooper, H. and Hedges, L. V. and Valentine, J. C.}, publisher = {Russell Sage Foundation}, address = {New York}, edition = {2nd}, pages = {295-315} } @manual{rcore2020, title = {R: A Language and Environment for Statistical Computing}, author = {{R Core Team}}, organization = {R Foundation for Statistical Computing}, address = {Vienna, Austria}, year = {2020}, url = {https://www.R-project.org/}, } @article{riley2011, author = {Riley, R. D. and Higgins, J. P. T. and Deeks, J. J.}, year = {2011}, title = {Interpretation of random effects meta-analyses}, journal = {British Medical Journal}, volume = {342}, pages = {d549}, doi = {10.1136/bmj.d549} } @article{sidik2005, author = {Sidik, K. and Jonkman, J. N.}, year = {2005}, title = {Simple heterogeneity variance estimation for meta-analysis}, journal = {Applied Statistics}, volume = {54}, number = {2}, pages = {367-384}, doi = {10.1111/j.1467-9876.2005.00489.x} } @incollection{sterne2005, author = {Sterne, J. A. C. and Egger, M.}, year = {2005}, title = {Regression methods to detect publication and other bias in meta-analysis}, booktitle = {Publication bias in meta-analysis: Prevention, assessment and adjustment}, editor = {Rothstein, H. R. and Sutton, A. J. and Borenstein, M.}, publisher = {Wiley}, address = {Chichester}, pages = {99-110} } @article{viechtbauer2005, author = {Viechtbauer, W.}, year = {2005}, title = {Bias and efficiency of meta-analytic variance estimators in the random-effects model}, journal = {Journal of Educational and Behavioral Statistics}, volume = {30}, number = {3}, pages = {261-293}, doi = {10.3102/10769986030003261} } @article{viechtbauer2010a, author = {Viechtbauer, W.}, year = {2010}, title = {Conducting meta-analyses in {R} with the metafor package}, journal = {Journal of Statistical Software}, volume = {36}, number = {3}, pages = {1-48}, doi = {10.18637/jss.v036.i03} } @article{viechtbauer2010b, author = {Viechtbauer, W. and Cheung, M. W.-L.}, year = {2010}, title = {Outlier and influence diagnostics for meta-analysis}, journal = {Research Synthesis Methods}, volume = {1}, number = {2}, pages = {112-125}, doi = {10.1002/jrsm.11} } @article{viechtbauer2015, author = {Viechtbauer, W. and Lopez-Lopez, J. A. and Sanchez-Meca, J. and Marin-Martinez, F.}, year = {2015}, title = {A comparison of procedures to test for moderators in mixed-effects meta-regression models}, journal = {Psychological Methods}, volume = {20}, number = {3}, pages = {360-374}, doi = {10.1037/met0000023} } @unpublished{viechtbauer2021, title = {Median-unbiased estimators for the amount of heterogeneity in meta-analysis}, author = {Viechtbauer, W.}, year = {2021}, howpublished = {European Congress of Methodology, Valencia, Spain}, URL = {https://www.wvbauer.com/lib/exe/fetch.php/talks:2021_viechtbauer_eam_median_tau2.pdf} } metafor/inst/reporter/apa.csl0000644000176200001440000021037313713314420015776 0ustar liggesusers metafor/inst/doc/0000755000176200001440000000000015173350572013441 5ustar liggesusersmetafor/inst/doc/metafor.pdf.asis0000644000176200001440000000015314513444712016523 0ustar liggesusers%\VignetteEngine{R.rsp::asis} %\VignetteIndexEntry{Conducting Meta-Analyses in R with the metafor Package} metafor/inst/doc/diagram.pdf0000644000176200001440000053555415173350572015561 0ustar liggesusers%PDF-1.5 %¿÷¢þ 1 0 obj << /Type /ObjStm /Length 1530 /Filter /FlateDecode /N 21 /First 147 >> stream xœ­—mOÜ8Çßߧ𻶪èú9ΩB¶<lAÀAÛ/®Y¢[”d{ðíï?v²<õtZãñx<óó8HÆ™b6aš©T1ôJ˜eÆi†Vjæ˜M%KY¢œ9.™,Uœ HZ9&0`µ@‡InÑ&e‚Ö2iô&]j˜pL ®™H™R˜/±²M1(°4M–äÿíógÖø&eMƤ‚ƒ§¬wkò²èggïû¿K.5×B +­N>rùŽówì|¾ñ77œëç6Å£8O$Z¼KTl­…¬9Ï<ç↷ã Zõ»wÁ†_ÖWø£¨xÒMD¡½æÞIUŽ¦C}î±½Û²nêa•ß7,ýd8Îóf [;þé«Ÿ¹ÿ‡•7lwZ i÷5Ë ÖÜzv‡€ß`›'Ùðo„öCÅrZ4L°Þa>ªÙ_„"~ÕÅ<¦a¦[4¾hj&Û¼ ü(϶ËÌãøaÿÌhN³O² š]þN}]N«!,‘™/ÍÞYCûa|† ˜ùªžù6{'ý]8â˜ÜÜ\ôiÍýݼª Le3¹Õëûº™í®÷íû\ýDnÏÝmÙkCz6ÉGž‰Y¨¶¬÷µ¬î² p=Ъ燬©¦¾ól¾³vÊq5òU6ߌ°@Þ<~ hŒóº©‘´QyTôΦ÷÷G.ðÙjYíC\z?Ž;‡w²I~]åa/C_Œ²¢¡qJš]Ö¾ÃrD öº7öÉþu$79šòÏ"‡"2`OXXïÕõwúguã•#ÀËórï ?ÈîçkÃ×Kf°F°L~¹ P´¹ž9†é¤BnÈ%oz—ØŸÂ#%ªV’b“¨3ȤRuB#FB´ôÖ1Õµ º(VPFý»‚©è`C&’dIF¤³$§Žä”dÅÉŒRá=*dh®B „¬¢× ú6™ë$äs’¦aûè;šc$ù¡âšôPHNi -‚¬H_ëàkØY'™|u&ÄÂp*½ñŠM|gˆfgÃÞ&zÐOÅl.ÄFqć»t6x5+­ŽGÌCºqe{8v²û}Ÿo»áHcÃ6’ÚÛdcÔpcàYHàv,÷JP¨sqêUÔØÍ'ȹLæ¥àkvç×±;@õχ[Åg ŸÀ °`qY@l ãýÁùöÅñÜ^¨;·YÅ”\TÏ+IÐ(O ç‡>®ºp”ÜÚQê]æ£æ¶néå ?I—b›…ÐGæ·!› {2<™=¼ý;›Ûfž‡´Åwt2¨µÂ´o¬TK+BGD+t2Bß&+ñG'„¨¥ÓZ¬B'‚Nõ‰p¢Ÿ¸$¹£œèŽ­ tÕDs°}%‚¾>T Y¥f ·þ-àEŸsºDâ:ºô2Y¸tÂh‚“‰e¬ÒU¬V1XÁj×5êgHâng q÷ h½o­Ãg~º­ýý­í½n¹ír2z =»†žx=Å=€†c¨B æ¡(R…9rÏÿ,‚b,¡.áÔÙÐ-x6ž’/Ú ú(I¥T¬¨5t,Ä÷RÓ±:øÔ$Ùá{4è©V¸†JÇ>¥"Ñ&øFvVQ³Ào 5õ4jv5ÐQ3:˜XBM-|ÌDÔžÌý[yƒ÷¯ò–®óvxytúÇÅÒšqÅEêðQ¾F[¥NØר“/Pg¤›åW„|.æÜqª¯FFb”!K”»µ<9µ”'÷Lž>©“•d9×& W4M\N–ZMÖ {kÊpiü—”}ÿÖ?êÍV^O×EBò_/ú…t­‰•’áÜ‹ãÿÏÏ ‚ô耋N⽊K[lâ}#ZMZB%Ã¥ñ¶ oxOµrÇ„îÈjËÚ£Ì*KÏdôÍñ_¸jNSn×Ç?¢¥ã±ª“-¦“í×)Pigá_Y¬$Zendstream endobj 23 0 obj << /Subtype /XML /Type /Metadata /Length 1475 >> stream 2024-04-12T16:26:47+02:00 2024-04-12T16:26:47+02:00 Microsoft® PowerPoint® 2019 An Overview of Functions in the metafor PackageWolfgang Viechtbauer endstream endobj 24 0 obj << /Filter /FlateDecode /Length 99586 >> stream xœÌ½ËgÉu&ÆbϪ6¼Ô¢qw“5`¥n¼#F˜ÅcÃ0 X¶9ò˜1ŠÕYÍ–*«ÈzôP28^ Ђkþ³×Îÿ–#Î÷}q³²šlI tÝ“÷Üxœ8_ç­;Îñÿ}yÿôÏþ·v|ýþ©;¾~:þRüy)öÿ½»{úê_õ¿}ýô×O}tðŸ—÷Ç÷ã§çíéêñã—½çŽvüøÕS4êŽèÂmôGôí6øãÇ÷Oo¾ø¿ðųÿUoD|oc=ÏÚ?úñWOzóîþÅíÇ7ÏžûÛVC‹7ß<{în} >ßüìægϞ団ÿ%Üžþ¬7ÿæ¸{ö<Þžghîæ×jk9…›¯Çsÿ{n7öê›g¾?—Po~s÷Õ³çù6ûVÊÍógÏÏÛ\CêÝôFËmé,7/Þ|…î[(ýï®?–oÞõ¿¿½ÿ³ñ mÝ3¾o­úÑpì —ê/ ß½Z½º[Ï/ŸééÃûcŒ©ÕRÓÍýÛ¯€Ôbi7¯m஥›÷Ï~þãÿéésë¹;o+vöoßÎu»Ž©åÛ >wò¾yÛæõ¶ƒ;F õó¤ì\t¥Sç§z{¥ª1ë R8ó ÆöÅèÿÿÉj±õÿ´oét7c:âÊño·oðïŒ"¿òågçVRŸÍé›Þÿ8¹äÅÝ,ÛhôýßÞm ¾ñîý݇_¾ýʦ÷ˆl>WOs¢ßC(ugý×’Ã͇·cŒµ¶’Ê&–ZÏsôaçè]¼ù‹Aˆ’K½¹ûðö_¾ƒÎ)–0Ðû,“;£×¨e» ø›ãg7wßCšÏœR$Ùb_b÷Ï%td”Ç(ù‰ ~J~™9·uu?È×¹'„ ~°W ƒ "ýݯ‡}|H’O4QÈ®Õ Qþ¹T\qÞÿ× ö©âRŸCíëý³›_|óLºÿÍÛËP¡|¨Å¥êãðëúRŒù´šê>ŒìŸ!Óâé·ß<“Ž{ÿâÑióöÍ t.¹–.]õ˜¡5òüÏd¼ùGðÝý·ÆxõôiñØ¥õnËÔDƒëÄÏù6…n0ÔÚÇ„ÃŒäØþÿÄ„Æa±Þ~ž½ž·Þzîlsÿq_ªƒ×ºº;ãÍ·/Þ™ r¾Þ¼øp÷g÷]SµÞ@íŠy­ÜsL|'¬¹0çxÞßß Bt%Ð9ùÛþ\{±OöQ>ü,w êÃj§ï ÚÙkʃñY»MÕ¹ü‡y°KDççïe0Ï!8‡+á¶Dz?»yò_–Î6/à÷C<œë‹M!æþøÛþîw`ñª{?ßôäÛaKGó5;8 _þà‹/~òÀIÉî6‰?~°ñ®ù›mn×1wI«þœNÄ?}¦™Žþ|_ aéÿ®[ë?yòºÿÿ/†Ç"t×úxûò÷ýö‹ÿœÔ?Jñ*wÏ;IÂègY†ãØí‡c̦џþFêŽi÷7¾ì#øÓþ§ÁX)¤ ýŒ@eøÇ}4Úÿä‡c€çøS¶…øûNä?øâÿâÿñÿ-¤Þ·îŒüYÿokôg£Ý)ÂÝA™~á—ŸŸ FþO™àï@ÜÎv}_îoÌ\Ìð»'¿ío‡øpÓ™@k6†þ[£Ó…wþâÉ·sàÁ=Õ¾Þ_üûÍ@÷@/~B7ÊÁí|ÔüTœw/¾úÍg™Êw?gºÊ?ÝøÅ¿¿ð×tu‡3ø§x¹SÒÝƼSôêtwÝxæÓ?ÒM—Ž>ùÐrøž ßn.êOöAŠŸðx§ò`Ÿ2Ôueû_†Zè¶m²ã…W¾}ò»x\ß}2?Žÿ¢t»ísƒInÞ~øåÝ»ãYüíüÍW/>¼8l8g'Ø«¡°>À7øïüôíÆ*vKJ}î Ô#6ïz0{ÿÔu½}Z=×ög‡jìªâõÀnãmë£ þåÀ/·=F]7„ñ}ê›ú¹ûÉö}7ˆ­Ãeüóúé+´‘Fú¡÷p[F”[¬ÇÀøÚÐcwÄÐc² ¿Ç¡£%û>Ÿ£=ŸsŸHÿ>ufê_;Ãï ßÒ|z <ð/¦kDæÁ»ÚÛ ÍšèmõØÓàxÚ×ó½?ÙZŸ—ý¥O¢ãwߨSÿp5›mCËŽÍf’Ãè9÷%‹6öß\?¢ˆþ}.ÝRöáºêÙ@èNGˆÎ(l=v.­ÔÞJ§p9):Fè„=àÖQ]7N˜ÿè5|Çj]Yõ÷Y+œ«Á'VÄ?׿wkŽs,ö…ï†ÏzLþÖÙš´.ácÅÆØ{<ÔñÅ>÷ ŽyæÊú˜Êê³/‰ªyôÙfÌ" Œ±<®¤ñr¬R¸ì]Nä˜ ˜­…÷l-öþæ bî¹Ã ÍböѾˆâ9ëv›AÌ}âšAÌýÓºúŒùÌö>ÖÕg@ŸX§”{0[±N£Í”Ï‚U˜µªX¥ŽÆ\¥îkŸý¥îaÛûm•²G ƒ&$«˜mrêá~YŒÕû+xѾ0šD뱓̯þ:›ƒ¦®q~ß™Âòîjá”ÂꊹÐÉ·Ûîûþø¾«­¯‡3×=¶7pœÇ‡½“=|Š­»±]§Ñîæ ¿½³¨v¸zͼÂá™–âúßÍ[±Ä(Ü®»>{ýb„<çðmŽiÛ|=wL+QÓƒæiÞ†ZãxnÇ0Bt=âùºû‡¡;ßø›ïjÔÝü¨›Þþ”<Á.Ýc¼¿{#ú€Þ¼_¾Úž¶Rlæÿ>Ùõt¾ùwïô¬ŽOj™Måîä?ës±°?¶à43x0]éc _¿{ûñW#®`ÓïÔ{÷þYºùóÞôÙ½M§—æÖ·N·f¦œ7#k(ïóÃ{<Ç5ÒnHº‰é£8ó>Uÿ¬Üü¦·ÑC’# H 8ºìÃôfûë_¬(î±o="?Ì{Hµ‡‘>èB  0Ô³tC÷nxèÝçzc œ?|c‘ýAGØ8Z=°|oäï!ä¢Í¸MaߟõuY-=<Û8П#Ê ½sÃúò¼¸ÿƒ¢¢¼C—§søÏ؇|ùL¤ÿÙ³õº<…¸¿9\ÈÒzi!`‡Óh¯þãC Nz”4º ¾³ájfȈýÔN Ä‘=ÝôP€czgá\×·7™îAºË'ŒÞŒíy­Â‡Ùé±ù)Ã"Zn® ©as¬cÁÍ,Å‚4I¤ É–¢›£¤¥è ¾IdÝó¦–Äîj½ÓéíÇ–Eè:á¥p­3óÛû»ÎJåŒÉ ×w®ê‚ùþã»»Î¯Ý §¶¿üÝm§O©¬ÖÆ¡‚é£à#¢p|fÃ4Ãq‘b÷‹sêÑo—Û<w¾ÏþæoÞ[¦ÍŸ=ŠøÆÖÀ×D6íAþ§ºióþº¹*CMIÇÃÖV=nîÚj°ÄYÂü#´Þ2‘ºT¾ÿ`jñø›¯^ î.ÚÍW\8ùÀ`™®¼(VÝŵnÌoæ膇·9ßêø lÿÕ«»•ëxw÷æåÝû iÊÚPo¿FúÓŸþfCxûÕWÔ gÙ9*[S‡É{Œ›øG‹ºÂª}éw¦}ÖÊ Ó¡Êßÿ5F=Ò‹ÃJ]¨^ºâŠ»Ô¾}?´}Cn·ï,bÚ­uQ:Ójíæ«¥V[¯^™>.]Íݽ»{ƒÈ!…MßÑÊ í÷£Ý^¬Q6>Œ„Ò”:]w³‹òáíF¥\ZžÑÙžùÛ.ÁC¸0µzóáÅЭëˆoÞÀãî«]-ÁrõoÕ~ª)„¥ßdzô;ö§2ņ”¥I5ƒÚÛ·4åÃ͛ő_üŸ×(5ßúxú™ÍøÙ³gá!K§[%ò†©M>µÝÿÌ9Óci”„=…`éÌ°™Ú}z\®Ôÿþ«ù×·#¥7ÔMü9ßÁøo¾üÝÔÅÙa‘mr¶©{ ³afªöu¾¶ÐÝÛ⃴öȳÄŠzeæΡ º Ž¡—æl>ùÉÂÖ5Ï[Ó·c%ÞÙFEJŸ¯AU‰€“~m£œZCw3Õçb‰ÂsÄ5] † Ég³5@ï“éÃDB ÷%7pLwŒø™¼®Y7¦(Â÷f~g¾]öÓÅê¾ZCî´‰ïðüÍo°ÓÅ,f³–Š.u‘Òê­_Iá¯î~u÷æ«»7&Eây»+Gkr°ö.ÑUú ð¦»+€ïHpw»ÑÝîç})âèÿ²É2Öï;Þ3tóôÑ{\±'u7›[+¶«ööË‘E»{÷­<Œ‘;º•~i|cjþ~La´KפoßMåp›?É,œËq@kvoòúèFˆÐéýkwGk›=ß•Ô¶|χÞD0ófnÊÌ„ýíÝqëlÎé_c"ý¯ºæÇÿêa‚î.y5ÛÝ>Og›¹»ix2Gb鸿6·_î9Þ'gYß?][˜—„æÈ%Šº²ec÷äÉïžüQÔ'{3—ìàÏŸé«OÚ¸f Æÿ±‹ñIÆïÜ2~—ýo› ÷¿¯nÛÝáÖÿùÉoŸ)ñù÷–×–òüÁû/~º¶w*(#7ÚþdjÏ5¢krÍ{?ÔìÔMåÂïî–{â¼ïù 5 †Û‚ÌŸ>¢—Æâ¿ýËâÇ:MB/}3¶!~³¶â1Ò×vÖ`$ºãR,êÑÇ›a úG]¶Þ~0·µœÃDþë1•Ü—h÷6cðeÕlgoÄQòÞº' åáNû¬SnßÖúø†"TBÎÓÅ(Š»üjǶϦ¼ÝÍiõÝ4‡±ÿc¶´GK#~ìŒÐMâ_Cùöõí"xÞ¦ÖCÚ>º‹Þ{Œv¡‹DgS¿¼{׿‹g¨Óå6Ö9cœFym›AlSU q8c›kdÚÒœÄ6uæ¥áÔž¾ŒÍy#[ƒ»úsêkRÝØEÅþ×Ø<ùjìJÕn'ëc£wåv®Å?Y:h,Çèóîé–a©u¸Â¶byŒ¿‡8çmGî=fXñ÷[ú¿¥Áí^P÷'|Þɾqá¯ÖcÖ:³öèÏÞ—³3|«Ÿðcï9ÅÉ-ù1-ÿëÖ"’Ãv›ǫ̀Եõ/½ÌuéïðÂS©9}ÒK7í±¼ºð=ø¾ùÕ]÷Ž2v™,3ºýÑF£ò`EcNÝsXÑb¶+Úæ˜Íá=wnd,'ýÿ82|ýÚ"ͳvezÿp´~…Cß!ƒÝ¸wÙŠ7ï`°{D§qãÈQÿö†ºµÕ3‰¼èˆ›ûo/+8b¸k˜íû¼¼óUú×æ!Ë H§p>¯Á“tƒw—øéiÃO|Ǫ6\êõ¡bê+=vé κ¼t¿ãÚO?ü:»MÏ›ãp9y$¬zç?I?zßãIß¾Ÿ‚<>ßh{Jð_n=ÖÐΡúhC ·3q¶–††(þ­OKJ÷Ý2‰)YLµ Í ;ÎÑF–¦ÇW¦5rŒÈúõèÌëù@)¥+å.¯K™ ¡6ZApíaåƒÚØRS‚ãؼZâ{ÿâÃRGKSl$ÿ~q­l¤=ˆÔ5Èæ½}µïu?H=–±­ßÚw§sPñÕݼï±ùk;ŽÑºê¹¬>‚úâÔwñͱ«©î ¤mì–”utŒäá.n )Ýa]ÒØœÁöæüs|üÏþñ?Ÿþ¹‡Sþùñ.Ãã]†Ç» wéïÒ?Þ¥¼Kÿx—þñ.Ýã]ºÇ»twéïÒqÇzƒÇÎÞ„ÆÞc‡ÊØÕëAOÎ'ÞœÇËŽWF–À × ò€ˆ)èÒ~Þz·½ÆPgKkñ|ìþ±?ÆÇþ˜ûãc¥Ç:Ju”ë(=ÖQz¬£üXGù±ŽòcåÇ:ÊuTë¨<ÖQYuÅÙ­RžoÂØÿg3)Í ® ßý‘ïÞ‰½P•Œ½W¤—Öö`ß¼ýÀ|›÷7wÿz(ŸÛØiS»2~3Ž!îîSWQíäyÇ‘‰í.Ða Hϯ”¾¹ØÀŒÑ´ŽÛ9¡Ï¸ KëÝ¿¸Eîeø)8´×žÂmØ÷ü´ú¿^ΓÿæÉ7O¾géžüî‹¿ä¡B$> ‡žw§ìaÇæ¾Y>ëÛo_|âüï{×F¤ýÌgÙpí-}5lÈ®åññ=\Õ:2Qb¿}³¹™ó¥Ÿûqø~œJŸ£~ò³³L®õhcä>¦a^¤G&õf?8—¤{®[\ñ™%ù$пúVi õ± ‹î#ƒùŒØÌÎèÙÌšFÈjù¯“%«~øÅX]vøº›6ö“k/_0K½/ßÛ_üÕÝËïÿ´[÷Ã4óÏ®sf[-8¸ÿøáî½9^.žù»?›É”±¢äcKQÈÐÿ\+±Qñ]‰Ïù»i[W,É£o¸¸‘$é0ÎEÅ#2Gö¸q¹Ýü‚T/Ɖ„NÇt!*w©ÇìsJ «ñ6özºKù D+¹îÐc̯Ä×÷Ö3Õ-JºÐ@I÷(3of‰NË@þöõâ†ßú÷ÈŠV'Í€½ñWäüîòï*æ)N¦Ü¸o$ß‚¬CW?ù/£o2OÞ,nTã<Æ‘Þv¦Ü2~ªàÞ÷©—V¶ M‘{\»«ßü®"¼›‰pc±ï·Pc`ùj^~´óìŸNl‘ÚˆbEM£í³ÖëFÖï™b¯Vð4ÔJðí;×a5ð=§ŽýÖ#\8â-³ëÞd|„M/ËL£ì|Ÿ5ÊÖ›F¹Ç#£ü鲃Qýœ¦yñZg)œR0y¤Ï^}ä9^×ÃÆßÀkÆâí–.8"Yôøf}oš»¹»Ç&âheKÝ}eA1HAõ4Êþ€zÇ\ÿ€jÚóÈhù±¼ß!TŸZªa@eùòË9†¸qûÛo-ÓÞc HÉV/¾¦bÏ=?lGy*ë±òa¡¹ki£ÍǾ ÆñÞ經Ú[ˆþ»©YY.¹™ô¿Ü¸a î±zŽ¸ÓÚ'ž¢™-ýìæýÝšæñÕ[;>äFÕìV²ÑôÌÃM¾–ÛÔi;•lMüÛ7ƒûoþ—oDZ®1.㾮ܾýæÎ6õZl7ÿé0R™cÑòÍÿ0ôÍ[ø…1úñi“óܵ‹íéÜ|óæøðË;k¯kL±óô¦:óŽsè§e^5š¯úc7¬}:?W —-ªÁè·±ÄnŽþ♳dg½yñò¯-¿Þc”ÁÕŽ4Œ2œ»i³DÒ Œ¤BXc²•:î%P¯mŸ'œ„W¨c¬=øR=ëž™å5ó4ÈøóXÅ÷ã@Q—Þ»¯Vôc›gÏý(ØêÌýwø5qœ2]Éð¯?,se~£ï*³j]œpÚÖk›Ÿ ˜Æ.¬þ‹˜†ºrŽá1ýýluˆÏø䟷:4‹|Æ'/Ñ<ìrÛÇ/©êOòw¦£_}³\ùM÷Ë4o~SlˆŠ¶­™™ÀÅîe5®×&Ó/_Ît1è²¾r¸{–üͽùëæÁ6vØkûfÐÃÆê8;·²Åïï^oúkT•ÙL}È1|âD%zú¶b“ÁbƒÊÈqö{ت‘)ú§3ß?ÝV=âyæ7+,ëpÐ8>ž{7²º¬’N`Žó"##“FX×áQ&Ù¡Q‹Ó!7j®TtsœàèÁÁèÊ 4 ¶ê­; @\ƒGe×µ:­bÕw]¨F˜áŽÎ:ŒÑ&{—GU]Ûxç9^jNcÕÇœ ¾ñÖb}¬„ÖOWdxÁf7ö€‹QŽÃã-Æ1¤À =æiíx«P,¡©9V æ3Týju¼PŸÎÊ"m •Ñ™áF|›v〤Ð*€¬Ömýgô‘E‘ ؉"Ø(AAu†×· 4 xÛ–~ñM£çÚŸÒKãÙhGQlÇZ™¨áyû.[En Ôl¼mþV•ÊucËQüdí@B5êäđƸ)傸Z)KgÅ€~¢ b½2ôbÄdñie‡·É^6]ür.Kï$K[ϤXÄ86>‰Në{‘ÝT iµŠâçƹR:SƒdUðµPÕ3¥,l˜˜K¢n#GUöoê×`®K[6êÆlû ¦àdW ,»b¸X‰½ÜnYø.féؤÈõF»‘rN;s®ÑŽ•°}æ×àBmS9h³`8ï°"ü*Âj°MòÔ죂3,VÔ`˲øÄp+ÞBcõŽ‹qÙDàAÓEp¿ ò^Áì«Zl ,æm3(WÅÑ\Ë#K’÷AÖÓ>£0® ]YŽ+ï‚›34xŒz~«³gØÂꨟ2ß±gè˜z3¤¦žS®Ö¯S0hŒ°4á@·f»UŒÚ©TrÓ‚Ýö¶¨]Bé‚ -­v‹¾Ì ÓÆÍϹ”¬V —O'…ô¶ ,êAÀd´„…[Pı²•ÁvPÆ ÈÚLÔüú´À¯ÈÖ d6ƒÓ‹4m¶ï`_3$­€2µµ<© «™¡%e}é¡W'.5}ÃÛ*;`#ˆÒE¤«·¿Þà$:ª(_¾M  V!Â/ÍYÜÖ$ÂâšÄ¸¯IŒâ Ê£Ç*dHjD¹å’ÞrU< ›iÄ‚Ö$Aþ+Þ… ä¤ñ°*+4`†² ¬/‰ËvÛ¢n x—Ç^°ÚðEéÁúúx†W>¡°ûúv_Êjº$ÁÒ• h#€Û,€õ(ðCy/**À, Ö ë“@­¢ÕK eÁJ§Éïq™À*à™„+à§k1%%QÆæÛ|ŠÚ!nU?µm E£3Lj•t&Ä؈ì@jݤ4,V]2ó=å8ÁS_ú~¼é2ƒª´`‡`Q‹<‡ìMÓB ´n^üR壑ó*uÖÄ.¨™lzŸÝd%&ïW>„\T/)1LxžkP½ä+ ‚–Ã<¥x^ßQ¢ãÖNa;ÇÕ~Á¢ÄŒMÓpPƒU(à + HÚ¼`.v)é‚À#ž|K\µ ÿ³X;àïo³IÇh€‘2,ö¸A¢ 䶉' V¬Yïд z£À“lž+RàW5D^ÅmÏðËæ‰q³øÐÖƒ)|뺹Ž-7Ž4÷¶©÷ÁÛmêck)/{Þò²Ñ„ÛövZáˆÚ°aåzô€Ò±ÆVe÷ !­Ùè4ǶQ£³˜·Šc—ƒªxN p”Eý˜kã/P¾àá&¬¸ßúˆMÓú—mt‘#?®¼ î­ôô«Ê5˜û ×‚ÜY/ú|^«âÌ ˆj.£·ˆ-Ç3lg’DTÈãÁZÛh2#f`2&…άŒl¡Ïj’ßÉþ“ârë? ×Ê‚ 7ê[¾ h¶ÜcF²•ž/8tAsýÌCM¼® «=àpìPº@Eß®K†kƳi¦Ìñ€kLÙ¯€2øÀš\b:iM*bêš*9)Io‹¨eá¯jÙ*ëUa- V°Bª ¼!ƒ ·èÛŒ·å‚[ÕŽáÖ­Õºõ_ÕƒOWˉé=  i°›œ(ãÙž¥©"ÕyéŠq” Ð"Éž¡¸"ã>(z󶚸ÊüùõŒûÄ4¿œ–vµ“uËýp'\Ú膷ô/¬—*!·Ê£x /f<—å fÙü€êèkDÌ™^JÔšòžm^ô„䶺t{}/Ðl…¸ðÝðΩÇôéÞYeIì½{Y¯áÙnq+²€ ÆYd;Þ:@cÕÏ,Ûa˜ðá¸æ'm¬ÝqF+ZÕ&ü™Æ{ã¼Þ®£^æ©6¯6Úh´ÍؤAšF~س_vµaeÚIymX›ŠLK£ÔAß6hÆ©1=£¿Ú¥ÿÔUŸ\ã8/4¸.Ç¥ |ëðÖ2YϧÑðŒ·xŽ ]9˜W3Lø—æèP¶®ž§rlq§sFDКrnP8¶¼_k€2Ö€˜ÛŠdy%­êˈ·nÇÕ3×nor†;þ6¨É®‘w—eÙèû,¨m²ê öÇj ~|%§GÚÚφ˜¼’»Ì&Öïj•F‹ËzCBJ¥§E‹ŒÌ`CΨ6yWÆ…ç±y^ Qƒ8ý”¯›AÄmÛ[ÊÏ„¦Ä®S»oã6·Fg¸°ˆ WUlïuò‚è&}[EËEQ¨‚Ö4JS€÷–…¡Üß,lžO'~ªòÐaçxâû`4 }EÜÐxÒœœÑf„T&´ ~f½sÒ…ek·¢Ý}×Ч—91RÓÚ'Ç}ì6Xt0nE6ŒwfÊÆóXÉl¦Ì ¾Ã¸ƒiÍl¦Ì 8 hÔá&ÀñØ!~9èád¹œ/oãrܬ^ •­rÞì³FŸ5íú„·ð˜•n(738R+óÙ «Çœt›râIõhÑÇ6x—ô Àt9y·Y2“-ÛQ,® á¸ϼ)³á;öOýÁV¡ášÍ·Ê:“:Ó‘•´iàlæÊ5'x5 üšì1ëÔtÕv( ç*÷b¦…çN#iOi½ (?À­\ÐwŸRó îñ@+×È5 Ó¸p÷V¼­¢ŽA ›p=hj˜^ôÏZCá>‰)(Ïï¨Uf¶¢ÞkÓXè)¤}VRé-WÐbzÜUÍ—&ý-@›«V‹$kŒè¡r¿¨ò]pJRÄ~,wà*¬?9³Ò. Î5Ö?0Ö‰’Õ\J2ç™ Xå #œŠvÐ.w9BÏñB_øA@²|QÃK‰ë¢žgŒ"ÚzF0 ¼§5ƪø"©‹ÂÝV×OÉs€(¿lyÆgÉ>qiň{B§7乇×nö Û¥µòêóɈľÎ'4ž)3¾ƒÇ¿aÒ®úæh…1=}ülæE>}>ëôéóY…aÁsv°ÀFë@Y¸Å¢ÕŽx\Ö»½Qƒvœ;ff¦æXœtb¥ìè{‰vêõŒrLúäögr‘¾tˆ²&”f씽Óø`‡½OqÅ€¢â±8ãmÔÇYAýc&>(z €ÊŒT·H3ûA;;W´ž­MùþÄwˆÀŒ “½ÁŠx§öÇó­[}{øž{g2O/™4&P8 ®‹âÁíÏZ‹,ç—´•P8v/^ vŽ²%ôï{ÀcŒÖÛÒÿß>Ýሷ4zMš9ö¯2ö8+òÜ9a°•“ÖhÂx7(˜¼¾#¹Íõˆçù上úÆ]Zpê¹ÚGé.3¯ŠÜK7l³%ëÓéKBƒ#®Aã xÅŽ}äa¬©aæ°WØoÐ ö&rRÔ™f„—hiBƒì&nøÏQ6ÉR~Ü^ñÖ"î[T<šÆèpŸáè+ñ'öfrôzk£Uä3ÊÒZ*Ôç€kÞû¬£Þ7ÁÖ–Ñ:JÏ ÏFCèÄHÊÁWŒðÇìZƒ¢p3`‡·£ÍÐôe”…ÛÛšg<Ûw M¨âaЧ 6ßaŽU+ž5çzìP¾@ñ®ßÞ»V/².SfKxNÇšcÉŠ©¸£X‘Q àN<¡'‹Ùpo¡çݨ‡µsŸ¦ÌØrP¾œkWá%ZMŠ¼Õ'|ZíG8Q³Ê¶ÛÜÉ7lÂõ˜§;xc¿²S”§‘”IóÏu÷j3³Ð ªS÷,_yÁáò6] ri×IoE5ßt]â/;p† Êpþ+— ºÒÿÏ[4°´-3{Z¹퓽Ú-›W\Á |žƒ²H-ã“ ÎÊï&ÅKEz"‰Ó'"§CÙ›¹ “Ë‘½ÌÛ»*);K«UîJÕLЉӑw€fa¯rZ-zK¨ 2Ü*µþùθ^yÈç©‘™„ºMƒÕ65c]²ì)åé˜~ ö¡rP¬Ü°Þñg@ö¡™e—%¡¶ 5[ È´5¯(×iF´,ر¨õ˜Ù=§cÇ+¾kxë—µ¢ž™Öç€d]qbH6±ÒÊ5é+û{+Øẻº“yqM£. °<ŒÝÀ¬Š–Ú1I<çµI>eóú’oóš­·ŽxÛÔ'×4A††µF ~mnXk´CÞ–íÈp‡ì™RÕ<ø{ëÍÿÁžyC†:gYJì÷dtn¨zÉ8é¼AåÍo ÇcµdvªH]L¤æÖÕÌ° ˆùøÈÜS¿vzØFC­Ô?33ƒÈègœrnÌâ”s òLÑ;}Q9ÁSÐ)çûË[·CjŨÜÔê›o´x. <(ã§ç:ŒuGÍQóà˜ŒÑ¡î+ëLAC]X_¯ñ6!ÃñЙ֤1ÿªU?;ú“kà´ç ƒvð¼Cä!ÃKúí1KžáÇ9¬¹§šrf&¸9ÈÎÖ7?ÔækIÏì7GÿÖ² ûÃ8µ×œS.5 ×´èÏv‘Clt‹-ý­„Ì|sð·<ËÅcÇõ¾uxkZ~¦ƒo¨ÃN=eTö4fêÙ B´$Lm[AÝ2uoã>Cà>§h¬HNàœ#žI ø,aøv[“àµÒl%€VuÃôj%jõòÖªWDX.P•NÞ/ÓK·ÔÃÕ ú"¶é==ž“¢ÂQAÔ•óN/}ÆhÃ/ aÔ¢ vB e{ß'C[ñTD¦õigd˜X«EAÀ”våÛrªdÆp³úXÏÖ{Ö¸ ‹V²Á'j§µq³J“  vÔ—It4ˆ”1*ÂoΊ¼ÜÒЇyÊ£¬I6@ýrJ ŒV úç.[qjÓ ò ¤µ § s™üŽØÉ\U׸ YÀ Þñô_X­z¬o¡æ„N*Nº«hÇÊÍ~F̤Wk ûj¹ ;¢toÐ-áÁ ³Fþ²¡Ò$ëœjC­IFþ´%È–íoÔ ¦Aˆ”6H+¢v’p  ¸GK£…ÆB½ü… î©~¬×SoG»ÌUUqh¬Âs‰à6áõ * êO½¢1Wp[„¤U¶Ê™b}qþ Wè¢ÈÑ:µ /õw õï¹4{OEv6§a'Dß–Y'Lù%´Î)ˆƒ#yŸçß[tà‘‚‘EXÇ´F•åˆ^zÀæäe™mNA6cEc¶tºQªA¢IÕioû ˜ôÛj%@ä /É]Aíç±hü”¤C¡'4áa?眤 ¢]‡…IÓw4\úŽÈ %Ä̹—Úšƒ»]V’hP-‰[[¯m¾u̦v2Þ¦­Õ¶tq9¢†·ôuó)OœÅœ\滈Yf@ &µsÅÛ"-nP]ºZPTuÙ"}ÇàÙ*´³FL­ç”±ªy£Î ZQßZÕ"n Xó¥H¹¬¸„ú%)ñà‹D ?ʤN]Ä8‰Ê]ê¸ä<Éþ’óQ}-éµx˵À¨M¼Œ:柗e¹\C%øàNÃÚìi@&ü’8¥)ª ¾·8ü_üÞÐì}!f†.©«UUõ¶‹^¡!psÆÐVãNÐrŒ,ªô'gï` L·øÝfN8=ÕPÛq2¨Ex|:Ôp—HÆ®—ôÅØõ:·Ø3g…r£.AD½ &ÈpÁW|›Î—û"ÚMkÌÉ7haÜÎ’q6i@ÀfYcMÔíÒW-,,n1ÜrÂâ"ÃUNøuæD48gÔ>•S1êË Nž.Ïa<+z³Å÷ü…÷ âwÉ aäØŸ xànmB”…Çm¤ð Ÿ!7ÜñjŠ»™, »Z {ϵå¹ÁÉfn°0ck-gT\²ÏŒjqŽ/«†¤•+is²™†IùP4É|ê`[¢¶d¿TAÒ lj[3«q(³®Ev³@ƒ¡î¼1c[ì¹aÜàÀÒ4›1ýEHl'—*Ìj¼k€Æ ÔÏg¥7*Vzš&nÑ·ÕÕGu«÷ÊuÃÈ*W kQFí…›1wânLu¢ÚÄm‹¦ 2\Ð×1L¿VFÏyûFyõ€¼Šz‡ôi¤Ê¬T·{ïdAt_¡+Š@UJ,²±èZ7'N¡¿î±öÚ»m|2%iúeƒßðlüŽ-:a>;7ð³—u˜œo‡/^>”a)ËôûŒó΃ŽI&üŽ+WÅ8fáëÁXÄ0ÉéfËèé1¢IÂ$}+Þúµ8’UÞrd˜SÒ< ²Ëª”3ª¼nfÄ]ô>L‡äl[¢%q‚hGè† äÑ ]iÇô*pµ%Ä\:‹ÚPŸqµq'gQ;„gbÂÁi…–`ÙQ¯Õìu“?MO×.6œÏ·qÃŒ Ó`FFì#ÉCv€Òî¡ZÑib;~·cAi–W:á8©YÎ$¯,ªÂÍæ;³ˆXAìR(É׋€Ë!_¼œåçÝŸÕå;ùÌP9äO¨mt9ééZvÞ‰þ2 rPº¼-ˆ­³©9<[î–¤÷FÀ~šÕ;1GѼ°HCa»„Ø–ÖÚÒ'¼Í€Â±{ôD0kK5Ü?…(8GJ}VpRTSöV£¸¦·UiFHš;d¥ŠÃ*@/§¬ìЋšZ±8ÙG<‡ÍΗaƒíÚ\p•SW2 hLô<¡xÁäw>@íG´8ûŽ˜)ÇÅÑ{èÝ ˆökŠê›†:ãN/ç¢-Û†ù=àt0²Cn‡¬} .oÈQàÆÖ`;«b…Æwc ܳ÷t´†lp‘4p/¬À67z î¨Ì‘§ p;RkÓÛJ€œ¼+“›&o˼&\(ì¾omúÖÞVõBh¶c¸u÷+-;=Å iý Ý`-¹Ö'}Ì ¥ TÄ%„«$ø¤‡czxú.ÔÚM’e@ønqˆi–Sº$’[TÛ@?vÀmznÅàÕ§\N]‡¨þaqnú˜x†©/ͳDÔ31W+ÄÍ[«Ú>Ÿ…ÑÏàg:ÊÉÿý€973Z§§~5çêôœÍX¡qô&ü§·ñY×'rÆ azÑÖãm† ŠÇz‡ÓW›1ƒV±qz·Çz6ó+&š¹}§£'í“û%à¦12Ìg® ¶[Îà5CÈfèÉ¡¸™¡àPÕ‰[ÆõËĵˆI<Š[xµôüŠ®¬Ï5/IFçn›Ðö\4ú ¼¥ô§EŸ³G‚ò&oaös)ð]2y?@”%¦ä éÛNg9Q™ŽüQ~i…ëðÙ!<£U­I›oèñy~O¼´µªÒq]Oé|°-¯×>´ xòƒo+ÞVpº=“Ï1"Y›’[ Oi…=e ôÇ=æ’ýÂjAƒ›$¦CÐZXÎŽ®À7\ذ‰É7(Âz &°Aù‚K‰!fU/µmÏœ—½ñ 1ä5x|eÏßÀ›\dÀZ'ÎòÊì3œ3yã”Õ0Žw²(Ra}Ú.ÛPFâ7(±_¢¼Ê@ËEîás…ò€Ð*N‰-NqØ" Í€IÍôåhÓti¤î„=‰‘|ƒÛÎ ŽO +ê1ît\m*¬,n],Ù™EÖžŽ(Ê€2 ¬xF.©ÏwKòZÓ•›¸uàŽ½q=ê ³žãö¼cµ×±ï(©ï8à­4x7N–$í‰ûœçÛ²Þä.¸YíŽõ@•ž]{¢ž¯$ézÜòËkeOܵÊ+hOT¯—¤h NÁi™\¤ÔOfƒYç>`@fkAo›:Ö"‰™Nðò)p ×Ö¼-ܘ¸Æ­U¸fù8+xÿ±¬‘b³üD®D7Lè1_:™ŽœkªÅ‰›ÕRÄ 4@Y+»õZàý ’|—ûƸ¦ýd®“c`æ5j Jlo¡­pdàĉ%ñ!eÄú„ïHÏ€ùÈPÉ¥îúEo!ëÌT…H*àvEi°B-ˆØ…ùTVØè-²ƒSg⺨àµÌö{ʉEð@2#XÙLò¾‡ÞÈYÑxäŽ-6G…ü€·…i9sÔ³aa:ð~½@Q­küÖ*ŸÃâ/V‰œ·Ñ9Åíü!azÍÒ wL_)ó9‹»à ÙcFÁ*€‚p SN™ahKj}&)C\­µ]ÂpåÍ…­]Ù§ïc€Õøĉ˜iÛ¨Ó6ªVõNOž,ªÝ'Ô~“†‹Û[xch•Ùþ¶øŠÞ+¹ŽoÛ²!Aù>Tøóg"ÄËÁ㙾Hº 9¾ Kò@ÉÂHËŒÊÒ8rtr?$h­JÇÓ–dáÒY¼ü~¯ âÄè¨2ôR9è+Pk™³5ÅÖ·èï´. ¶…Ñ,jµ·öÂÞ¥Hµà)ër*.®Ë°œ-”½ï05Ç[úfm¦ã‰èKƬÔà ƒaÄeÏz›8èᤸõż þľwÁ&ò‰Ýt\ÜÎÑÒVÃRÓ‡ ,¤¶,,=j(-.ÏmG«™+.Qe峓b•`ÀOœ (ª3=S`[ϺáÁÿX˜Uýq †¿ùb/Ÿ¾zêÓ`æép5ø°ç6žmEÜ`ÑÀóI³ö[y@Pä…› Æ»<žmÒ  µ§«-ºèðììý¡BÀ`8;/€ë¶·³b»a¶ ¨l£ ·ûÈqRÄà˜sæ—áXT ~y'¾3L3b'/Cñ¤~+Àíp¡âyŒáT(Ž+€P,`sÝ!ˆ 0Ôn{!7aš„Áño€o¹M«ŠV°RPu!‹þˆ?BᜈFç8Áa 7—uJEôŠ]ƒ›µ<¨h‹=ŸÑ#¨ÍqóMU Êøf® (‘¹.·©s‡_ÃÁ8‰[¼m€Ò€ø†8¬EâóX?¨ÿà´.v±×þ6Ê€¢ ↭U³àÛ-.…­wcøÙsÅ @Q˜œAÂ[Ìí{͵ ׃o A]œÛ .h¤½BpÆ78h:œÿ ŽÑCN6 Ñ¿Aå5áF¬”ÛÞ&Ìí&ͽ&µË56Êz=sfn[Ε3Á¥Eë%oÔÌ¢HäµZpÜÖ2keÑ eÎ.épÁX#¨G^…öqU¸ ³nÀb£[ï<öÇ Ž€Þz“r%dg®xÖGÐÞ&A2YelžÎ_ä(ƒü.ö<Æ„ ‡ü —Àt3¬V Ê€h ˆÞ²RÁ~3Ì ˆ­Ú»k‚uÁµ59ä›,Ö×ó8䪮îqÈ>‡t’Su4ã‚* I◷镸mk×k P-´â×&L¾^c„èd‡Ì¶œlç ×o@f!2¾„w”‹Vœ¸¤)="Úu' ït’/äƒpýí]Òê›ÏŠ\„+ÒÈÃ?ã¼ÍëÈÀ¤_!ÞÊäNXE$7j.~Â!ÝÊô- íq4ËÙ¥t;”·noÛþ¬VÒų* OS;þ¸ú¶–‰t¸ *ðLV—6Ø<¾q¸e*TÐ{K‚ÌÂæê‚ ¹ ªä²DO±BSœ¢ ûð;U"}ló$ýdøô½Áå±Êo6LhùÉý'áÂ#ÀÅ ðcp`PþO‰ËÿÙ1³Z1‹mNÿ+ný'mús+2€Þ! ¾0 ÔÀźЧæCiÁ„@Ó¥ .´Gä:±‡höŸ°Æ]”—OY½ædïèïe¾¥Æ¬jؽ?\e"_lAUWÊöX)àâ¹¢‡¢µw€#VŸc»ò)8gfƒåï'Àc–‚°Ž8Qø[Ë;œ/¸ñXí*VB¶$à'‚‹©Þy÷3†?¥ÀïCù”C¶"Dù?ȆèñÎZ…w…ßy Q~2Š‘m@˜æð}!J÷#÷¢½ƒè9?ÀK[+ðŸ:üz_ˆNÞ ¤9ËÂRšó”fBñå]ò1¥ µ¥#Xap ¯î`¼fþ“iˆs÷Ù ½x{ ¼üÄâv /µLÿ•P“¿”WÒÿ(ô[#žƒ</xú- JpËÞŽZu€L›yq3et°ù=à Øø -á8©+”`ž²q…_ÏÁÏÂaRuªôp¡´c­¸ÌÆÁô…*ïŠ-àÇ4Ò?¼±A^¸€·wùö å fV;ßÆ# Ÿ)󸱺¿·X4MÞ4>ÌPÈ”÷ÆšŒ“ðŠÍ+ý sê\=;c.PŒé?UarþDßTp rN÷3!Bî£uÅ0uÆèc¼˜r@ZÌÙ¥ñ6^̼2 G\R³fcc`Ü4^FÛˆ5*cmD•1r¦~ ~ƒ, ½æpóò†Ëw6:èïAÀdz»åKÀ†¿œÓaè9l{8œ‡žcå r¿ßõ1Oƒ6àÔuàM@{Ào™'±ç$:“0ßf­ý‚´bÂE̲ ~‰üŽ0Ée+ôµæ¡~YFY Qä\´Km®²F±"(qÊŸ_³§¡<ÞUh‹”EWø)ƒŸ‘A«Œ9’FêäïWÈIÖw8Û”3†d²¿Âø ñd)Šˆ îE‰½C"„A3/f¸ lÂ:¸ß ŽA¤µJMÃÒ*Ì"Q«äsé5檨s¸r›fUÖØáNjx÷Cç †x‚03žf·½¢Ñ/TF(ŠxÀ×1ÿ ß`æròGí˜Ù[f—`\f.9 1 1鑦™«¦5lòJÓ13]ØPY¸„‰Ë¨aoWv"‡1¼Æ·¶!vËrX¶ Šh>—•«Œ øÍ̘yY-ŽŽV ­È¦µ5ÖÚÖLh+IIÐÊNº¶STÇ*@еBíÔ .1½=Ã[‚Ï’õš|'(€+ñöi'.˜ c£—n÷>௴Í{³yDÙ y·Ð0ؙ۠ ˆ¾çèÁýøî¸ú#ðPšÙÅhsïÀcì’iƒL;z<£TÚDœòrV0Ð!jr£W<§&7 ‹8ìp#]ÄåG7ÒÅ3H?5#®Jr¸‘.žA_Åšõ‰l¼žË†Ç² Çê]£ñÒ¹ƒ³ì×»Õ4’'€­%Ä™p6\+£jë“Ñ)"¹Vö¸¿¶Š¼äVYÛ,ÛIûsFÒ¦½ÜwÈéK7 j2f­Q&3Y#E&HsPÞÊŸY™–xLjR˜™±IæÍÜ1W¶ÉŸŒqèw‹S ‚&yÐÊk׸Œò<8™ñY—ÇcÛçkuíû-y‡Þ²ú lå}o>kŒÞ%´¸ï 6¾³ï‚ve¥M”{ xËLPD‹Ü¦æÁίô‰lpóËS÷DYaiMåñš—6ÝC«âé— îÚšpˆŽ|å±lÊS"Šâ¼³õäÙÏ9Ko[“âï8+'Í ™³š©×€Í¯¨Ð¨ðu­6¼ÛÆ\¿wäôéŸáÊõÞ‹= zÆ*";D/ϸßc«1ðW Ç<0Sb¤bªÐ{zÇŒ½÷’²Ñ»§÷ZUÍÁp£æhTMàdÏàgÖÖyOk<Ý.?Í{J³4Þgù~ö¶,úâ÷çâ…Y$¥oÓ*‚ˆ[%Ѫjg<³UàaíaÞ¼§LÌ®ÊK¸ÓíeÔãKp©¼Osôô7=ŽöEpzO vâÛ†~Àážòì¶çSÔ'æ)ÌŒµX#ªjãhÇÊÅ9³¹ªEoµ"`‡*ଞ8Î0“xÎÖvæÏ£ 4ð7†Œ¯VæQZÉøMü¨|¦wÜi3qôÙà븤gà ÊmÚ;ÏV 5moñœ–Ôü 亠´üIJ.<£F>+œxÅ-É  "=o gx唿ùìZóó”å2ÜS6ô#Wz¸‘;ž+4çtBk%´hú Žß¥ˆ.+ðЄôúí]›>xô§s”¸è¤õÜœ/׎V˜X z8Gj"®§ö¸O:bI/+‡µÄyÕh§Òïo\² w,\ñbÊâ“€·|2¨Žó*ÑÓ7õ)ÁtÆNNĵ ûP2ázƒƒ&8 üœõѼqÊFZgV@!Ã…ôÁ“õv嘾ƒ“_é‹Ö…öØ-¾Ã¡Åè½ü³$Mágn†ýµ7ÊAX"Ü ›©c`«£ÍÀÞí‘>š8 .Ì~Çl}=H ö™åEÅéï`~Xjù)Ø[÷8µïQ¼±gïƒÇsuÅ"c+Ó[U{·§Ftð¨oQÙŒÙÚ— ‚M‰iùqƒJ¿ŠDï)d­ Ž„NÈík–IÏŠgzWPV0½Ê1nl*x”£Äì×h*಼ʼü»˜%çã—b&Bàç=ÎUÅ,/ '«"v= fÒV1GI‚Ó·oËjܽH‚úðêC–š’lGˇvð­£;¦¤’—(›Q> NðáKkÙVöÄxÀŸÂļqô EÞyW;y΃^!MO9† )µ7~yãR×êŸÑƒßz¾|LšCxEUÕŽ‰>>..GÁ²xÜËkÆÙƈ‹}| ?Ó@§rÐ1Ì"í é³$Ó£xFï‘žôRôÂôÐÎ ­€Ë"­vÅÛ´{T‘ž›üј—¥5(Ó“$ β´Ìh·‚ÊQÖ„kâ`MÖ«a¼¦¯à‘NC.|8ÔžÐ11µ/ëqÑHĶ”ÇåH527EU×zd #Šj ò~nƒmôÐ8…áþxüF[LòÁp."â: _ÁÉ8 æ+|2»õ+Œ+J<ù¥×ÛQu´ùÑwÄ3Ã&ˆZ†{Û¾°Wä9°/Qðà û„åÃ1 ˆCm¾Ð^ÁVã¸jL’œþŠ88îqÂ+âÀ¼Ç¹­˜+àhEÄkß&ÅŠfr¢rY¨«ŠØæôPú²'ØCŒ:ë±q~Æã÷W#Š '$ÚÆ)+?ÌLÄd=êc‰êßÞ!{†¦ca›ˆØx£±ÍÙÞBKát\ä>NäÅÊ»™<*#Žæx$å'êT7×k@¼ñdâ Zõb˜Ò4HæÇŠ±sÕë䉫§>1³Âç`ÏÆKU:l¡GØðØB`zm»¨W[s€ (êK⦭%ðz©ê…g%=îpŒ6ì{ŒÊ­•ÁáÈ¡ÙÄÓ pƺxƒÀÑÖFÀ>¢¦L…›k JãŒbÄáI›ˆ#Îúé]^\® «•L‰™{‡iò–Ëë'aïßóT.k¢ FQïêÖ[U ƒØŒúÄãÄG:áEèÆi –&!6l°HlâŒfm€¾¶ [J8«5 ,=dp—ÙHš´ ñ<¿kB r‡¦H<„ŠÄC?˦ÂÆ"c›ìÆæae#5 T&äK¦SÒÙ.¤UVéd J†u&·Äh1ãyH*«&Õ² »çQ}â‘$dŒ“NG°À'Ùa.Ô]Íçü/ V©Ïì!ª‡\Øs^?e!L‡YÜãÐ2¶âUÝiÖñ` Ï;×X¾C¤W‚2ìH‡€p_B:¥—Qågö& R06ð@(„€GM1Zd† F' Þ1âL@@E+õM`¶ŒÇ£˜ÍÓ ª! zæ[O9eyoÛôT`³ :ù¢Þí+Ú6žu øMCZÉ€ýáÈ£\ÌOKO¿ÍÅ÷‘G ½1Иn÷ü);å3ùÍw¬;?ÀcI§ìŒË’ó™ÀÇ8ÆâìyáÂ+A?Ë÷¦±ï•¸—µ`¦G xònï…¿?Æ4 x™ÃKžcµA%Ïnú† w…±”*¦7š|U=¾cK,TeÀ~@ ÜMÁÇCeÙ‰E¹H\&Ý4púb¾­û³õÎ嵎/í‹×€à:ýÖÄ‚DA’æ‡ËÛt¬v²<^PˆWY8Ä ¼°)ÒeùÉ%,`ô'FXÅAP’7ï“۬ݦ˜¡Š¢µœÁµPÄ/«p+`ðûþ¬Vˆ‰5‹sãÖGÀ¬›r”êdÛ3CËcŸ)á&®€½ˆ„û»)­’¬z}i-7@õq‹†pø*ñ "š¤û¶Ó$ŠºÉdaF;I÷øNëËvµúp³ÿi$e=$5­‘ºSüzÑÊ’çÏŠgØmÍ>ÃÂ7PÆl…µX A¼tõwžZ2(&ÃÞUÒ)'êÛ4Në$¨ñÎt¶G+IúœzËÞfŒ ñ%2ù‰§à .²¸5X¦² 9{ÁÄ4úa:ÐwŽ a58¾ªuÂV`òçŒÖ‘&JV63x ù„,­'ähxÔ9eEáÈh$e ÐL*ý_%i9œMÉŽê@ xÂ锼0á/±¸iÀ¤2cBÜÃÈR$^¬Sí®…`‘™õçXM#r¬Ð!1‚æ©‹*pYvŽUÐ~þ&^:„ó¥)ÌBó ü†\f FK뇯©É£ú‡žçµ84=qݳBBí”l(”Övè zò,!˜PÒ ÇË[¨îÑͶë J‹;¼¬²aÉmåF¥C‡¢“ö´D7ÇK ½pJ‡GÚ“öÐY¤+ÌcÚÆÝíPé ÃMâýzè¸÷ù+îÖ,¦«Ç\'Ý_Ž«7:GÊî¡ž9á§É&Äb7âÊ–¥)cìHöA*:dϳh7ÔÙÜô“P=šì²̸K*šK¬°I“’ìÎÁ$–\¡†yBé‚™ÔªµÊ©Ä>€ ½™àkc )±t‰Ç„ ë&$2™¤W¼Ùç@=#OÉÝÄ. %+¾Â…QC?jØüK™%ƒÐA™Å¹°&3K5–Xœ»SfqgÆ3Ɖôu*,RÅ|™ñN¨mÈM'>£T<áz`ɵ2ã,Ly^u‘1VJÀÔÃÔÌЖ­5Í N²B¶Ây²–8Ëó̤ŽP"ÏžPI­¹¨nW¶³ùYQýWXdÞ°«%ËP¦0Íð÷ÕÔ-Iö%`5­?'\Øy^kF½ƒ ‚ñPÛ5X4jæÍO¦žŽò²€ÙVº˜…9µ=41/ ¢&Æ% Yôõ»¦Å9K—&^‰¥‘2ç¯Uô¸$ò{å\ð2J2S³{?ª6¾G Š=×CÅ“©ñ| RRca'4mã±vp )’Ç‘ cÀ{b™9*So f1U¬ç°¸ù¨¤,.‹[jWyt8±¤~AàÏf½°Ð†ïŠ¾«€’ZÍ€ã±ÆSÔªä‰ ˆ³F;‹5k¤ Ve¡Ã³až˜“ò58´´òÑTY íVå¡¢Ú=ÕíZŠ±H|\y‚ŽÅ¿©šOe£¤·…¿Ù~ä-K*µ+/²4Ó­—,rJ`(2%f·9Û¬Ve`Pí5`ãm›?¼˜Äãà*ú’p:Öw¤M•>š½äcÚ~¤I¯Uã~Câù³Ð(wˆ»´•D%¥(\J¢qô./ûk”Ií31É Q¬¯\k´ÓA˜ÐxžOôˆ¥QÞ@P–¶…‡5Å.µJ¥Æ›P¼@YˆßÖí-¼k{Z¤—«³ 6šž©ñ¢_^+¯þ@URM)‹bSUÙ;žŸ‘{™{x(p9x‰AõPÁè€Ð?öoÏègAA_7m-Áª¨§^’bó/øK;Šy ËäñÔù&بL5lïâ9éìDÀ†gâ¥&8^Ó!ðÍÔj8`‘ªÍ,ã/z×òWß­\ƒZ×Æ KÓX°hîª-¨Û©KpÄIzFuÐ ´PÓ ^¢ù¥1`i–f›Ï°-Š©×ÛÙÎn¯Ì~ÙÑÞl)ùûÕaÓÐáWy%Yõî,ÅÈç^®Y0â8GV-ð ^Â6eÄϥƣ€ð¼ø›Ä:–œx< ¿ã—¸us6Ù´‹äBÒÍ›ä‹xVqqñh˜§íãñzÚLôÎL›~@-ÛàõAge30!_`Έ¤Xæ*âW^`é S|þ°¨3ŠÈ†'UåF$åÌgdΉÛe̸VVŽGTÆm¸U-C¦êÃ0‹ZõöŽ­â9a¬E˜ôZÞÒ/±ï(ÛXSdüé—DO‹mG_åLÜ$ÚíP¸@î‚ ŽUK<Ä^Áqé2V–ZéJjqÜNW'ª'ٔ㰲‹çÈ¥,+2Ãï\…‹­(£©è8,ž8Õ8—…UЋvÄeãÙð؃½që‹“±¢Úö[*,*k(%^c<§0ÉC6 PÂéK²MJ¯åp ¦šäK7yœ¦ïè×µåñ,O+Ù¼ü!Ó“QþéÉͪÐZí`I¬é´Œ˜6”†8©Ý¡‚ɬÒ(£fVqÄ.i†ªŠü-Á“E›ÖU>›hڀ˂üòüÉr3'¿À‘d­_ÞÒPù”Ü¡8£t ¿O²xxZZ† Ÿ`ðû„'‹ œ ‚±9@™#ÄYUY•Žç“ ÄòÉ \ð{õ'K±açµ+.^i“s"ÖÇmP’~G†‚¢qâ"5òn%uâH'.Qɼ´Ö9=†(›3c³×X#rTV¤o¤¨$NO2*)Í,¦'4© ØË¢8è¯v¨ˆ5»¤1À»à5øÉŒ?"ÍŸ=ëßYžš¶*³ÔEL?2±E‘u£'   Ç‚ C”„;¼£@1Õ‘S•‡§Y†EÌÔdˆ9%ÑÛœ´¤¿Zñ{Ä9 ”\ôé%\Ũw†ë/¸N¸m­rÓ*—c8× Š}'9ÌÕÁj7@´áÖ dÏ™— ]´Õ;ž¨ÛವƒÒóQƒ™u[kŒÔWY£+Xûˆyy@Uó²·U|ã‘^ P½l&M”÷( ZþNNmÉv’ÅÇ©j´ðOSÏÏñ]ùœŒ[,gß?U‘OfáÂÊB? Ž—·þX­žÂt%k6 §".)κéå)æ74¼…¦4úá×4³vñ#®%Î,|ÀµÄ’ßLéfe% ¬ v‡Š¯3Fì%fýPÄ…ÐÒÈØÝ ø×_Z‚9Pžt,%;òÖZIvœ’ù 4ýbÂùØ¿¬KcÄ©/Ì®'µS™Œ<“÷°B¼ "ÒÐÃØüwúôî#µ$¼É?|.^>Cpð1àä(/s˜s@VŽé.P¸b¢÷Šwiµ%”ãŠÜ±»™³´21yü\•Ëe0[D=XÖØWfuâäJÆùƒˆýÔœ¹_‹½ƒeÒs\Ïıø&\Z zÛ¨`[±û<Þ¼ÄLüÄg ¼›yãDÄ …ÌÂRl³e•Ž:} žÄ¶[μ*  ½dÄ‚™û(·0}DiwKËQ†Q3­".J0±LHó®?¦äã”XÌäÝvÕ6±J¿ØÛr¨LeqvnŽr¨ 1GÈ’—äuàw$2T6Ju:݇*ÄO­}Ää4ÚÓzë—Æ#Òà™EþØ‘Êa–gYÌ }‡öÈ‘ådÐú‘…hÐRQë…ºÀÌKYjZúû;Ò¸õ>³4{=Š""™›#ï Œ¸§2<ŠkkÅ1«J½Ã¢Wj–@1*‘ ªY1…áIxw Çýø’ꪕE»|Æ ùU¯\uWÍqbÎèª2îÂ3F¢ÜÒð&3Ö&=›.nõ˱¾dQ4¤E¿++µ$‹ 9Vp¶Í)ðÜ‚fó(±ðéÁ7A+eoµŽã™³B<£_…eaaF(qÞ/• Û,‚[|]ÇcJD`‰ù˜ùfce¤B"*âÅ×´Í“¯q IFA…,lôÇ´˜1¨UO ]âÑÚs§P³Ð»´ß$^^C,èêGÝ„1CªS“þ½Îô ÂÒ•0Y'¥b¦¦Žò…<¬t%ž9J¬}žwq³<°uYÞƒ404Š3*â"~²$gž·¸²7ób\Ÿ›Y¸-+ /'™æ[DP šíж8õcP—žËË_Äe®<Á±…;à1æq®%ãdIÄÆk®²œØ–Íx6>^“3yî&á¼NfÁ2ÎÙdÛÁ œ¬]øØ k“Ïö Ö¿“4¡Y²F(_ ¸µ®Ro~…›rÛ!3ßÛk´Ýʤ6r d®ÑêÃnô”Éûÿ¸:—dYRY÷k9‚²à ã9f×þÆÞóïÞ }î@Vk¥¯ BB{S Þœ%åèÙà×bÝ~-ÓökB´kÒ¼*H(ê’Ù;†IÉ⯼f˧¸=ýãÀ¨Îí©érºw¯Ú#ŠK*çþž ŽÃ}ºïo!+ÖÝk }¤¯Ä{¢LÍM{šWhû8]ëUÁ •?e—kr(ØÖƒ:³¤€¸.·Å§»µjƒzm * ¦’Œ‚ ‡÷s 4<Æ*;Í—.týÞsµq»ê™?ßÙaŠh§µø-+°Ûcª=ÜÛ¬ðPF„ß{¢¤Æ5øiõÌ.P9Ô"'hÓæo:Ë‚/´ÿo,‚HOS¹íJøoí§ÃÖ‹yÖ–ëõºl; õ´¨®j[ÊVÛZO3(Þd4ÌM&ã‘á²æÀƒ~m=â.²*ˆŸ4…fø0×coþÙ¼²›“:òB)z\Úþr4z_7pptô%»Áã$]u]Oç©)ÐÛoü¢+±ŸéŠÇWÇQ¹â Û‡­FÄœt§*ae(͇´å‘Ï~J)?ð±¥_툒ƒßª/ƒsÖzlãþðfE2$cIŠK’·ÌAÝ_-–7©¤$X¾wr³ºžqä›Ú>›Çæ’’)”têìñø^·7@ãhuÛ¯¿â>•. P*'ÑÇ´&IºŸ.be.”ï²͹÷2í|§/òî$ž=–ZoÔho¬ô‡Ø'?ù…zk&y|ÖçWû}„’<âäëï?ŽR_ ‡æ¸©/¸.¦ª¾´£QLãtñm³¿ýžhª±ØÃmcT—ó¥>e“jDªŸ ç ŠiòpÂοtúNÜŸ;ï MÂlßÕ’Øî»9  ú~ûDÖØ¾÷@AxKešNÓÄ:¿Õnd¹‚4Š}(Ìp׊´"]iW€ƒÎòðýmD&Ò([ÝËWö©UëÛWTa]fY+ ù®s¯©³Ç–‡×iÞf2¾G}Ö]Îë²|¢{£ie§Wtìf×ãPÞnOѦ³Fü=›ÎÈÐC[žÖQU+èa¾™ PýͳéDÏ8…w<óq¢Ýù[.œyºÕõƒºË çS¯hÕ†±\21w…~ôk^ÑD}O†Çuhnô‘>{íñýβh)æGô Àgd©oÙ”%úÐî­H4é[-æÕ»‚Òúµwjiïi/¼LöÓìÝÑú8ˆüÔûliše 5³t·÷Q_qp‘¾:ÆŠõÆw¶(½MÒXßhfâj:óŒTϼt!ÑÖóÙ¼Rt?6šÒ¢àRêo.iÀâ|JdµoCà˽C¹.G0ü‚ÆóX &0œÐg¾¿ \+ørñl=”'ŠÎ ¶ î EÙ¹ý´™k {ã6ÌîCnNä<âû·\¤¨âþÈ õ g7ñɵܺJ7Ç%kD.tò\s6ïP;Ñ›—’eÀëÖÖ¡³1ÏŽhíýÑ`æª÷GAw²„>X,~ÚÏ®GÒ²ž]xسùé2'ÓÒz)™¼‘ -UäX¦ Ã3”iqB®Lz“™¯Œì,–ˆôœùk–³*#Ý]²0z“Z5¶õsϳˆAa‡ˆ Óˆ~r¨ÚÁRlжà ~p³T¡G¼ë•#ÄAªþÆvg8/![çÀ#làáüŽ’…V³cäóBí?eëUOQ{>í¸¾ÿ¼¨Kàe(5æ2¯%#Ï13ÇYËþâÖ˜sáˆòuÖ£  i9Êé =‘—™‚°×Wv­šs¸N64¦3øõ¸,\SAC:Q^JŸô=IM§». ÏilEkÖût‚»Jw ÞZåÓãè5…l£–ê5üŽ,¹\ºoJjd mò¸¿-Øb–r37ùjàié?¼Bw°Ï›e°Ü~Ñt¶¦Û=“ÃRwž‘EÍìçñ—-EøÓ…a$Õ+d®‘¡nà©5œ(…¯8ÛmpzÖ¢Ó¡¼”–/Ýçý wGH»Yc‡äÈÖè0U>ÝÈÎ<ä8^Þ~dÍkÜPâ üX†JüÙ6 2<€­«ìàûmk‰ñÅpRø³geÔçÒ“NZ× %7:¨|N½[ÇC‚ÕäšÞö×¼õÍáLA%/꥖ ´¶¶7ª×;~Xƒ3 ÒÀZ ({ÆT Øj êž½9xº.”J2[uÏj­ ê/ÂãYÓ#<^Ožì!gÿ2LM¬Ò‘­“°2‡Ò™°‡Qð„Éö4õ:‚4:iLÖ‰ÐÎBIzóHåÒ¢GÊG;o¬ ræ )%ÅÃJ¼¾ßY‹Ù/רVíæ)ÅÚh]¢õÇzi©æäƒñߘ …6#îW”5§d7).G´ºõÄàäÙeƒÿªèL>(˜¯•ÌÃÚ.ã±fZ­Aòl}®ößþwK’ÆHÖ“ ß>¡pë‘òGá1[©Ò™Yy†¢‘GœØü—ÀŸøý~Eòl†F÷N»×‹+O'(ÞuʵH!N¯Äî¶øŽEóÞž­ïh Þƒr›‚‡i·ó56±£*¼æZÉÆÀe¢$#.÷fÌIƒŒ& Å´‹yi}Sˆ¹ËšÊn…"Ò›%K¾#\´ÌïúqpÑpž+·]©{6Y.¹ Ó;N’ >y‡07êEgr#ë°¥ ‡—}U7ÃY’0Fþ­ùš~3P¿jM®…•ÞÄßu _$ÍJÈÇΨ †ªªµz øžiÏFUxñ0,— ¾­`äÁïKvž­ Ÿ§k¿§ú]çt[3¨NÛÌÏÜv‚‘è#zE“[g<‚ÖÑÊ8ú8õ( Áhæ蛌öÖÙáÒø+6®ö+T‚—]hþ”MF‘Úà®5¹5ËóÔ\ñÞòLÇU4¿x½+P“ï⎨ðjä:|¹WøÙ•|"T¬Ýó þÒ4Ϭ48 ÞC£Y§Äch0­„ß{øÜÍçoœ+¿T~PûOÙñótíZ­ÿ’?bð^ÁsC)D0Üî]Ž×Vg'>`Kœ‰Ãwfô$ú‘sz»~³>%™!×S]kµŸ$ÓAœ›w.[]Á"pSRÂt.¤]»?㆙Teý4Ò¶KFÛ9NâO$qiÄ8¶AÐÔ·ø„{yü~(ÅT¹¸³*? ± ®Ù)'v6¥‡‡ÿ®éwßu¿6}©né{šãFÚÏAäƒ7áNt'È aC:š‚îàLJ7ELü°´–_.òkž™U²€oI{iE;%IÌ\9²Þ÷j$VBû(\õ‹¤}€8SÜH¯èp¸¶X»ð}ÏJe0”à†t-à %à¡Žnœ! %tÀÌ6^ÑýŽ]‹ßZϨ¯C6y¼/ÆÔØ!…œã=‚¶F¸Ú½<Þeá=Fñ›_þ+Û‰˜õ¹i¢€4ẇÝ^ î þ[AqÃÑáo!G7ý®n˜oÞßQ”ãÁª?%5®5výÉíÒ¹›‚>F(¹ÿQ[5˜ˆÆØ´¼@É´Üxs2” åÄ'Ór†2´oîT jÑ¡ßc§ ŠxL÷ÁK}@‘õÔÓ‡¿! ¯¦mw(I’«ÒÚ ÷R $ÇÒ¡3ù{hý¶éZcjXIMôWYª‘=D¡}†4Á׺ig‚TÐX÷ãÌ»3ÎxöšÍ#2<­€*e«ßtHŽ¸IÇÚ¼[`.Ù’#ýDÏCú_QÛüXyùî–}¬öúÙXýÚ{¬ *ÌÝnÁdž£â-™–‹:–(¸<ÆAyÔ~-:8ßO?®S9N:›˜!·>Ù¸’¨Ëf0’Kf¨õý:'ˆCîʲüÀ1{Vÿ^ "k÷©PGhÇÙ“z–vÂz–õ­+dMÜÛÜDÖC9|fñóòoY£“»kßßüä[Ë|”õF48ŸÍ_Ò‹~~K£9¸þ<íŸS‹vâaóÍ 6u\ƒÇÛt,X 3),.ó–h#S2¹d,„™´¢N…ÌJf¯£ Ê©ã#|àfR(w°ŒiËiçäf¦²©Q¿›ëP¹¦¯K׈Qôš¿ œ‚r&¡>üýGAKÃe ºäúeß1âÈê 9%5PsÙ .¶îSñ–4n9ÝŽ¥0#øÃRå’&ß1rŒã†Õ@å#§¬@Ye}Ây+ÞR8; ûiȵkpÖ@˜ÁÒoÙ«v2|!»]¬#R;%? …Ÿ²1(lu‡¾Qw»…c4ýÔi:b‹<äúBþX;0¦X.GÙa âí)µ‡ÝñCfËY!B/$9®iWl#µ@ò‡5ŒÙCŽfEz37¹ºd§žp ç‹”„;(l¡4ÚööÜaŸŸ.û¥Â r©µ”Y“ Tÿœ¤ ¹æëd`‰SטBÚ¦ÜÆý[mÁë`Êyò< ^˜ø-þ.μos»ê î’óð>.]œJsBø0ü-Êf¾Ènüâ“[t;G"3él¸çb=7BŽrªÇ‹²ÕÜqñtü ùŸ²ëª©¹ÞñƒºgY«óh@ç¢ÖÜÇ ‡æuÊ"râµ¹ÃLU+™â2ë!êDƒÖê pbødzÓªBÓ?ÍU[BVëÆŸCÿ Éç½()T­ÅZôµ®Öã²ì€Ã©­ŠçZ¯±‰’ŒåuóØúQ(ËËe\²Àƒ†VùDð)¸oúDW¡,S„™êk¹i’™šYwé*˜dÊî ñƒ–ß ¬p‘ÊçÔ›Îwx¼¿3ôPâ·Z}LRñ‹:¦RL@3»—ÐÇÌ ^yi7Wh#ÊYnÀ«¦’Zpº1å‚T–‹n2x@Uõµÿ”w=®µ}ØH§Xåh ½š|´S‡)\ç8uÔÂveYS;ÊâÔ! Ñ9“ôï~³XN[2•À‚ÁSɺÆËv a3ï –rF óËôì Hžáù|D¡ôw…Ìd‰J?“åéMR€e‚É ×»´.…7Z[¢,´‘äÇѹŒj&Á¨ ro”ÞGÉ!Ý.œÞ _ŒÑ“®f©:š{)W¶q¨h´t2+ÇÇigµqèàÌ^áœA›c˜jxëPM”¼(“œ™¦¾±iZ=š‡C}x›ú±/лJÇrÛ¨‚Të¢OE^_zSk‘Y}O¯&bKn…PK âµNI¾’\V(_È<åà»Þç|?éäËmU¢Æ!ú”C:+> ¯Ši“ í¡jÓ×&œZ/­<¨EZxú¡*чdÿvD~›R\7VÀ@xë$bnú†¯B?•0½rºõ­«üÙ{"L¿n ¡n§­Mý,ÖÂÕëÐu¥4ëäZ!Òf³×öü8Ôn:þ_©<ó-A/-8¨G§¤½ifµ' “ñ@š%¹ä€‡E=ìõ”‚¤Åos ´ôY&½^w't˜5Y}ð<ÉÞïqµ‚®f…®8šUÁK±¼§’g`òi¶:Xs)tq+çÿV0ÝT .Üœrnº¥ƒäEµ (È‹Ê(0^â’êk×ïfªX`õmPÏ ßIÒ=*…ñdÇ,hßÖO·_4S6Å›÷oŸZ°Ç›reÖS9Ok^²wŸPÈÙmš‡5qžbé³KþùGXAK…9’\Ó Z“T’¶ýÈÝf AÈŽ&¨gÛq;jI»$mW üX *$iÑ éYÕ+ô#%Óãù‹(Ǿ0RlLq•«FÕã/,:á{ÌoãÛ*©vÊÕW£ÎAðŽ&Ÿ‘pqœœ›ãÔ¸{‡Å~úl¼cÛvo1ñuŒ"Ó·ÃËutbÀ;ÐT:ÎZ& yFgÝ.±)Ç¡xf9ĹÚ,85™Ë…£½-–n¤œœE®ÄÈEbÝå¦=‹u< QSéÇØÎN¥1[â:Þ±³… ŸÀutæ&TÍcÄÏ8YÌÚ4_ë^§pË{;¸…•™‡ë”>ºŸ–ëÍî7›Êú+›7¹͵,SUÛ-Ýœ<Ÿžç¦¿Ó_îœ6GÆôÄÈ°úùö"ÆÇMÕy¯ɽÇ4/¤7÷îfs•bŽÃﵧýuÐ]²Áµ§]ß¿*;N/䶫ޗtÆiïÑé8¥Ëä{Fµ?ãXÏÒhŠn‹Wo§bíåt^RšËJ#èÐéBVÍÏ¡aÓ7Lr˜lŠ—#wóªJ^Õ|­Œ$ƒÅ´ÿi_Ò…ÊáJ_…éuVïÇÅIì( K蓵¹VíŒáÔâU*K~ q ¬´/ÉÉ*™jÍÌó*ío\\UU­±æ!‰£hss¤àðËÜI»<á7]:%’‚5V›Ë2JÔD¨ÐÄ@­Ó§þçg ©VàÁësžøŒŽ¾‰IPØ™o4dãÞçDY{uËàkÚå›ä½§ÒfD¯å«!‰Û‹©>g]EZ¤ÚøHÇ‘\“–3> G tÉ9g[’¶Ð¼bÑ4Ò*L×Sxž˜?:Øÿþùÿؽð &ðÕÊÆ{n’+â‹>vR|œobà­û÷7`2\ ñÝ}÷7`-a%Ý%ó»S2Fä‘Ûa¸bJ x/¹™oÊá¬ðM¹§Z.~÷⨗ÃïƒÆUVtׄ[AQÉL f ÿm[r·bÓè3Öî¨Òÿ Ê w‡4ƒS~P£<’ŸGy —}ø&î š¡±LãY»g‹åðº¢~gÏU<Ù#EË9W¥÷lÓFykïŠÑxR?$žÜóûÜfWò8Å &æ mòxß±ªúݮߕ÷ba> øÙèú-;ŒÞËWr¯áûØ#h·$ÙŨèíy{v«Ar\zßÓa)ßkrkzhÔˆ„R_ÄѧR½Bå¬úT¹<ó{ð øqƒT¶ü<Í?o¦»^?]gÌCÓæzpâó&;¿5ã«ÎÎ/Ô~иˎçÔC<¨¿7—ù-¾«’ÃœW%ƒïÅØðËcÌš9.æíÈbsGŠ|9,[Ø"<¨›8²Ò÷5É­}QÓF»ž°,ŒH—SœL¾2 wÀ$˜×Z–9|F‡’o)3Oâê9ó¤G•õý ¯?œsË‘èYr3~Ûí“ôA>úGîYMr5XÕ§fN QÍœ&ÈáÑÒ®^3EþÈ3í±Ä ×¥GRÉß÷°iƒU iI’D*;]öý*Adh¸$IÂS;ìÃ6Ç/õÍ¡3rÈ-ú‘e—|]F¤²¬S9­á&íñìyYp.Å:‘AaI†Ä,¦gó»Ä»pe‚4“œ!Ù†&ŸiäÒ£ÀÏfT?Ö xvøh’ë$êQzÇE.HR¥ˆòþûç+q Ç`Kp‚#ü3¾SŽlÀ—ä`LØ곶>ˆ¶½vÈkF^LP¬`ÏŸ±BØs”´GðY[{…/…§jW…¦.jšÓõŠç*D N)÷tÌÏlnï¦tš*>‚“ˆôâ%‡~¤úÚz¦7ýH8¹9YC7!Ýþ-HWïÒ£èÉÁô(ÐvÜ2ùž?f”°‡ôÝœüýGá_Ä>„´àI.Up‡Td«˜ÓS‘“o½Tôûýf±ÎÉcRX.‚T²åb|Ñs„±?)¸ö ½ÙAÙey÷s¾ñ¸­ ´ÛÚÀåêÉCß:mUÈBRð3Ç d8V'Ç<“\gIp—ä‹ãòIûáG$…¿ã­˜|cÉ DÊr¤²FÅ›Þkb¤IYšKTŸ’œ·ƒC¥´u“÷ͤ~tžM÷1Þ“½8PnärÍ(¦qæµð¦ƒ’C‘â÷­½$_IËHdw—v|r/)—²‚y:([: éëš9é ÐÛ”A6ÔdŸ„ÁýØ /ŸÐbÌ# ÞõbgK¯gÑQgú(¶`)]ö&z!KWK‡Êïþ²ûjZq©.YÀ¢ÖÊø–«ì¶p©žŸ•¥ŒîÉù‘Ÿ"0F+Rá3¢rgü••*)½‚F@ ZõïK¿Têi. Ohæ…Ò!#…CÌ’’žÝT ÝrŠú]ƒAµ~&ŸMýž×oèVR §ƒòTòšö©þÌV=e·Øí œŒ'¡ ›²÷Ós‚⫉`…1¥õÛÊIøH«y`,HJg…÷ÔQ²[ï\‡Ò$Œã¿'Ê–Ÿ§ùçÍtjÅ¿9ùÆÙS úªÕÖ ÚVÆnŸ´\6Þm—(°¿è±s‹ºË.бe&ß "kfªÃOãMÙ9+¼Øn•ÀÚ)hýË’ÙÌ Ž+Õm?hÉ"™®§æü®§Ö/%Or’§§¹óûLlB':“Ó7z¿@9¹³c*Or¥%êî‹(‡„‘c-†­¾IDl"óÀD©O˜˜ç£UÛý^5—M›7L’:%˜ì$ÎeÅöÓöóf¹ê(é)¶Ö/Ý¡^'¥T!J8±Eœ¨Ìɾ“¨áÝbä9²kböIMÞ‰“¸LñÏù$¸n»J>.ùˆz(ù˜ÒíéP!Ô´ûÎ9G “!Ž±žX_„*&…æ,vò„þ*©Ú>±D=H…%U¸˜(=¹^­“ñÇ3zÎÝW«húâTBîûFs•ªTj-¯)™éžMQ¾x2¤ŠËí¾¼KÍŒ_èðSkóûLITéþݲ¿-½)Œ¿ZúUëÞ•¹^hÛݶ÷Îÿ1†dão®±ÿÕnäý¦½D\¶_õtiôïtÛñ´3é ’~kw 4½÷xû?’{õŽÕˆ] ýÖ•1¥'¡jW®³OŒîi[Íeç€öþ²„ã³™œß8ÎRX¦ÿüã“‹tÎ&H–•]Þ]¼_Uz®ƒÊUÖ«úàyÕ»Ð,P½Z4¼}{=§÷± 4¼²ÚO~GË¡æiˉöIëg½ö{‚ö{£&tÙo9pOÎé©]þU¶ÿ qê E³ý¾: +™[‡)Îé‰DIÝ–´×w)uÙ}‚?j¯ˆ–ÐûY%!I´'…†z½~gÛG„Ù•àõ•0všÖÚ:´7X3õã4ÖßðV¶^ö¶ž›­IïœÒm½šÄšBb‹5ß éˆç)ùö|¶¾S×­EmŸ <í ÈLUá™ÙÏšùjúl-ŸÁ„);ÂÓ³} ¼m­³c,OòW1²ÀXR ›ût׺yÏ’®«pê*-€ZÑ5ºí)âó]¡åX>9°ý—&¤O`ÈMK1{ŒÄÙ¥‚½^Y èuÐÓïýK^\Ýïã䉧G"òu÷ñwÛ^u ?Û+4‚*“I1='Ôñ‰a69‚\áXIÎàx·$; 'ó õ&mîA¨Ö†Q”ÄΞV×hã-Ë- )N{ÿüZ™1xÛ€‘‡uOèýŠ7Ç]oÿ"ä‹@“} "Ð/Éå˜ßÅo’v01%®³P°bâÚ”Iv­4ÜË$ ƒ†—BÂà^ˆÙ%qBú†[¤DÔ’/y2É‚µ¥Í¸ÕÀ¡g­4Ë–îšHŠ,ÚZëPŒ’µQ…²=•ßíèŒCuBe0´ùd~‡¬–z½k‡'èþ!ÝQZÏÑh$Äm–ý1n%(Øá<[?e•ª¨yuÄ›ßË­É{­‘pÉkÔú–ó1{Ç'í—v†±½ûÒ>§fsÇ¥T h ÎaÁntµ£ý¡xŽ)ii;ö´çi¿Þ›WÞØ?Æ{’PNrˆ¤©tèp¾bbÖMSi Os§3H f:àôq˜aR åC›œMk’Ë?)ì’ÄF‰unŸO%Hr6¥+€S\éñZbÏéuÏUë1'ß–¢Pß„oÖ$•k ÷`ÿÖùŠ8“¤üÜ͵.¯|x¨81&×´Êéת^wÒ[§xDÚ² ÷É Ã9†ø¸‚'R²€Ö….‰–Áås£öƒ†ËÆ»ª'¾±ü^õ»Eéù(YËû[Rúî¼O²H?•¨Ù›e}æ0?;²ôM$¨~œb&ë|ŒÈŸœ¶ì5•“R«íe9-;ÿÍ›òà<›´NïMÃrß‹‘ƒÁ\mX/RPÄFЉ˪äÛÏLZ rJdÇ{¿ üR&•YiBðÉY „þ.<Í ü!X5s'öÄ£%'/iDGÅß$ûÔRáÿ×Óòófâ h xdç,¯ãY (¾_x¦^÷ I©{·µª EfŸ O²àgN6R8‰Þ+§leÎbimMŽ²r9Y xGn}Ìo2Wb(­LNÝ’]4À7áô¦ˆ§3«Ý2¡ ·TÎmk 9wsy•œ¶‡½½Â÷brD˜K¶E‡5[ÜÖ÷·ÒV1SEüÄós׎g P§-eš¿£QôAhÇ iO¹n9(ù *+®zH±ÃÁX®Å’!ÞD³â°.×b‰2@Ëeß^a¡ÜH“«’F0§µZâ@ãUš&+ *´žµã ø“ì©»l»ûÚí*ÅFŽ…ù÷4á\”ä‡Ù*ÅßLÌÏ–kš¯ü9s Éšà–<-σBDÛi¤ºlà=×n{×»ÛÀ Vê#d}fÓðŽn‚bÇ=Úiº7~£q·QÙκa¥&qN%,š”­Ö0àñLü„eKš FòK{-8Õlj/2KTi X·Q²Z*¿a%ñÞ£œäe<‘$¨,K’y•æé/¼½ 7`NÚ_^}>É ã ]A9)(ý1§Î.;×q¸¨8¼êÍÖ°8˜ÍJ8ÅñNVb(<åsÞü·›J\uAQå£Ðýàò?œ5èvj/7[Vj /ª?ˆïà“÷âô9Háv —-໦á7\iª,(JŠ·u~7x+Áü¦.›oÖ¥\êM:CÂ䆃\*Ï´2çÇዹXbÚöºÅ¨›ÌJ5‘}^­€Æëiûy³Þõ"6s¿ü'0»H~·­»æ¾ß„—÷â}B zÿö)„Þ„ò=›Ÿó5ù™ìÖ|É6wýñÛû¨q|œ-+Yɳo©Vª“Œ“é¿hŠñ»˜G%p=LiX$ú<ü¬ÿ”?hùÒ6¡Ü©»&­—io&ŽHt=GíY+T€¿tÆ™¬#RÖZéÛzíÚÎÍSIR“½’ö;}ÑÎë<ÛÚn—£á*Q‚4Ú1Ok+¸¶¦ªPPõÙÑx“<]™‹1&K*im¬’Ñ­³F?:åhÖ6ã‰)Å“e‘ÞÊ1„õƱÇ~ãÔY]oߣP<ÃÓÚ¨hHzª3ÉZ«í»'ª±íü. ­Kï í ü÷ìf¿ûWŸ:«¨m˜£$?x]6ÆÚß½*æ1>Ïá>N+Ö=VÉ<²ãé4 Nµ˜[ÅðæÉïYÊ|(2NVߌSgÓL¢)âöBÛœ‚#÷é²Ã«ÿí^,æøôfg?™-ÆÈïÇo½u8ÿýĨž›R]À³”lFß·Íä5+±‘ÚŠ§ÌÄäžíI¢¤ Y ŠZhx¬´&=ÒãÏhÖù&æøLÚΉÔQ2¡9²Z4Â2’t*ÿÎÌÎúAÃ(æ•Õ~ž×D¾%§ëiPÀ8í=Ô-Q§[4H?WÏÕ6Q^ÏuËð ’|Ï•^-¨s1ŽùÈaÇ—*D>×õï%™«6m´\¶2Wés£|Ê:Šëm{…,ÐFH•íÙujUÍÏþ‚ô¼“^É/š¬ÆN;%ß4]AÕ”ÚmvQÔâɦ(ÕÓŽŽ¦Z5kÝ»*éT¡‰H¹D‰²#­'‡ê‡–Éq¼ûo¾úXZ,ãKöv¥NwzÌ×;£¼•’’ÉI¶ µ $s,ÞE ™ÜmÁÏËZTì-–$KüþHÿÑžà’UlÏÌeqÒ:¼:Kžï$[e;‰7½*Qª"D#ms‘¤ß½Š§xÈy Ëb,)<·Ý Ê’õVÒg…YªŸ­[°ÞÔ¬7U4ˆjžéXÒ/æ….} SÏêá«¡‘¢ N9WrÔºxoëž‹¾-i©±ª²Òª±nœÏŠÄvUÓ[ëͦx< *bå¨$¢êBíÔúò<<#KDj½ÌŸ´þ…oî0àÙ«6J"Û9D›ÄålΖŸ ”ýn?éÍvñ.¯Sø3‡l“¸™ÌÁÙW?¢ìæñ´Ã‘ÓþmÉ ‡—ÌO-Ú<” &–Ée)e[1ÙVŒî“-xIJÉšR¦ÙÿC~½ÿ øûÏ–…J:õ;!_£¤ò„XŽKk~}ŠÙrê_šì¿‹ÚþšÀ ü-¶¸´¾prp¡Â»pµÈ#{¡ë·|«ö›!iÖ£gQ’ïñ·ãÌ⎥òf.\þ–"ÈÅ”•×Œ´ðÃ-¨§ ¶_Š¸íBÀ, b/˜eþ½/b6—¸þ½Ó%^Ç—g*[Ê–”ïz¥Õð ™ÜTZØ”Î7JÑÎYzI³&ÇgQÚ_#|Ä&‰>Šokœ¶ ãTÑÞuö‹DÙ ö¢níâß7m¿ßc“¢5V´6êþº0tFôe©¢ôfÊÙ+°Cù³[#{7†2fëÿì~”íJg<¨ÏeŸê ö”7-LÜÏŠN·q{)ÄÊNüôŠã´.\žæý”Ì®§ƒô^%—-Èr•M —Ÿ‘³øNæ‰ÂTt.Ž£WщåJG‚Q%¡ý„¥rI'Ñx@ùúL”· %#Êžg$±LÄßÑu’Ïä]“¶Œ(˜K•N®èª€ƒŠÞÜ+{ÿ×ïuJ‰2TCUê¼öÃU”Ê®pIÅdË\ðJŸ¸-–j([ï‚÷»dYÁh816–š]¶›vO¨€&¨Jò¢Ohj#ÉÈúó´»ËÏâÌŠ“(dÆêrc^ëÚP¿Gr¿¤µ÷ÓZ6ÃóçÄA¼8Úe¾æÐRcµ>¬òz¤RõÉ#ÑÊ¥ékP[Óþ‚õ×¼ŠØ_¹’0ä2q!«¶ÄŒ:Æ¿—lm’ÕŒ¶âJð .(a“)­»$Iû\ ~ÎþÂ-GC².ŽûJXÏÿ¾x^9ÆB*_YBÉ(§:b5/ Ê÷Ø¢¼»H¼_ØB-Îc‹-î‹Ü‚¢´H,_ÞÐæ…Ÿeé²6¬4@Ñ.ôB”†Å‰/Ï¢$Rþ”m?H_ˆ’ŒÔ7Ý E=Ìîa ¢ÁÛ~cjilz ÁÛ ¸øk¥—~X¬úö[²R-ü Jßß ZZ”…Ï6ép+I.Æà- Ð+‰be_Xϲvz »Œ×ë™ü–FÈ·ÐR' ‚ sD±|>¾ŸÒr#쎲ŽÃ6Ïz‹¿Ï mön”Ž!Ím©­È>¼»v¿æ‚ßHÄk­(êj©}>ó#uLië–=²‡âfZœÓôå÷y îÏ>C—/µS|ƒðħ´Àì&APì¶-yML Lb’­´À6Ú,í×…3~¯£ÍNÛõ}ù{¾ù„‹l_ëœtÿÓ2‹{õŽ–ÒݪÇsÏœRiÃ%a•ÆXrzn½¡b\e¥‚ç*³â¬Xaá)a±øóÏÖdÖüØÞSÖg[ž;Ù—Ö´$4.´íFñæú©gÝšÓònûmMÕÎKT•½„§õñù¼µ¢ŒKë¬qY ÆÌê\HÒO룈ª.„'×Ǻšm}Š­sée#YòêÏÓèc«žk}wMlPK˜ß]©EitqZ.²¥çV¶튒¡GE³ÿþwLÏ"£*û0áeÈιLÅå^Iò>÷›ÅšZ†»nš¬– ••-3¬9ú†É/V]?tÖµó@ºî……|•5}IRH'FÒW§9r=»âwÖ³¹ÄÞýuxHpUlX˜pÖ#™¾Ì-áToR‡…çCáâ£õ,¾WÌ©;í ̪ åusÕe™Óxº¥QÔ錣 ߊB0Ý„[H$½ð ,£y7Œ‰²ˆG-\làþNßþoïUk–]i‘´¤â&´ˆ¨8.­§ð[;Òò¯pBz¼ôœµ{¦Uç®_D¶Vìrª×›[ÒÅÀUì}‹d(磅1¨æzæ/Þ-|•‡k’$Vµ§šöá• íÄ+{žõ’ø­½ö—-ÝjÞô¤Z›e]žFMI§¶UÑ%hnš­ä™š\ãYÓ.™XÓ(©w4*h‚´ßéÉü¹Q¿Êzº¨óżçnâ·]ó^™Ã4¡~$нmõí+^‹¤ðâ·¬*¹­ÃØ6‹ 5Pó ¨¦ræª<Ÿ_z…‚ÙF׸ìõ/8›Ÿ* ‚·ÇWŒà õTÿS6]µ>~S’§©,(JÂ×èü­ Ù%áÝ â";72ó‹²ek”D…p^Ô…‰[d/˶"Ò·&y½ù¹÷oö`køûɵêiP½k…ÿÕPîÃÊebU^ø×$N¶‘lgP&›ˆÄ96*?e§¹ÛÍÏù¦ÇÏmZ”¬Ô‡ßAÓ›¢DÓIúr%ų8yµäz´j-æÒº§ùÜûâ ZùÙœ¼\\ba¿Êö4N­ÿǬ¼5Wódæ¾âA!š©ø¡@ku*}kÆ—cq[qwX侬UÖæÅf¸aÿgð;ûMk.H{á PKõ›±ZÙ)4~Ð.[Áùª5ûÍ j?-b´›x@¢Þ`*Õù~4•c÷Õ67y{Šró¨U5ÂÈõ*Ž ÍÔeyW]6oÞ·êº~Ï7Š’ÓµêiÿAõ®•sôº-Ô @Å’£õ[±ähMV¼ÙÉ‘*6–»¬x³/î0¨öf_9êŒÝÀÂi·âlº¼5ìšQ²¿_| µ|W·E%‘Õ²¥“¯Vø²PñÞÞzCÔÕÒ©µšÖ¢de† µ†ëÜVŸ¨¹'Ü/¶²æË7Ó_}ݪŒ]Ò}À ÿºŠ)aá3R9ùZ5ó[³)”ö“X.û÷¸J5ÞWmwô%Ee.¬4°0èÕ¤ßQ‹lj ß•š‚n˜_ ‹©5™ß0ìõõ]_=Ô$ÙÅûlna”¬I² ~CàÛ¿¤²åçi¾ß¼k%ÊùÜÀa1ÑÃ9²--Õ+?nTPÿOÙ»¦Žû›=ž*bvSPQ VjüVÉfþµ6j•E§QK;e'k“é©Ž{‘êÅ™§õu#•?O§kÂ*ö~!èʉ‘úN×ZyîþâäOŸ°ì5‡P¬¸Ï¬$mÌ'OÞ+áqFXc_Ôකëè›o{pq_YÉ눨óÊ¥+g˪GÈȱÍÞš`Þp!ü0×›÷¿:«Á—€¢ÿóú½îR¯zè÷ËUï-M‘¯D=Ô þ nÆ:(ƒˆÇ'«Î/z¿C ê‚õ×ÙÝjF‘ÃÊ…»@ÅÔ³8毾}qýUýpuB¢"­ú¶÷…r]¹úÆò€£Ò %—§Äuj—¬§Vaµ $s h·5ƒÓÕ“â1 þ3ŽΠô9#™Íç5îðÏ‘æ F'¹ÖAIö¸wTLC‹–:–çKxR«Êæ„]Ø°F´Å3¦ è¸å£ž¹}ÛŽÝÏc‹MD:væÚÚÄ1FÈ~4Ó°¶wpŒ=z*™VÙ¿£&tÕ!Ù7]%ý^W‰§P5÷ó’£9‚seÌØÒJ »€¥iB-¹†i¯jLà¶5yôBþ 5KJmùÜHRµxœUVxüÒ”eó©÷;]Zk®K‹Ö~|áºnŒ*±‡ ƒU­²å.œÞ+"wõÏ-” Þ<\N§Ÿ:¥{÷fÙ©:­-Ñ6ÉÜ(¹uà(‡ÕE»fÜhÙ5ã#Sí{´z¶.ýÍÖ¸„úʶŸ§§Öl­;©¤Ñ;ÚÖÁ3h[ ¢drKOÕÊ?½Ò7âë5Åê‹(ùXi<ÍŸ½èÚ!$ï~ÖÓ&©©}‡ì–~·Ÿ§ãM—šÊç|¡¨­í‚ÔÒ.WK‹Û]@ý§WÅý¸ö^ø}Uß¿ÇGt¤ýÝ=ªÖ<Z5[ÝóÈÖ;æu^OØ{víõ| ¨oT͹4ƒÝ{{N¬¶¼Çˆ…qÚ»8î¬Õ=Ò6Èî;©÷Íë˜á­œ§®wà+n oíÚ¶ý¤ƒö~Ëåè“O™Ì¿Û´„÷¤WDëÚ4—MþºöcªiÛÖ‘Æ \ŽTÅUÏò¿­_ù¢sC6®µ?–¸T\¶ƒÛgKÜ.ÙˆÖgö“k*×›{_@Ï»ü0Ѭ5¢|£Ï´0×Ö¡VÀA½å]ä`×x¸=fÓ#a¤/JÂav©ø­/L+Õ±n~—ºE,oåÐÅ{Ïé]‚4ÍY?{‡+íF-õ©Z¨ô)b~+©j9ê´î jåœla‚­$ÝZ܆õj‰ÿûgïh­_JŸ”>’AíÖVæÖOÚš?e7ÚsãZ/ý—#öÚu‹Ôâp³âαú–“ç·ø n¡ßôð ­ýŠ:T{ç÷„ŠÄÍÔ’æ’Ash¥]f+A7ÅéÐÕºx$#Ó7?æ*›@ã³%r·•Ir˜ó!Ëლ‘Ê–Ÿ§ùé+ý^³ÎvåU»D‘¬Ú•­OvP»õdܲ.´.TLwz·üÔTüf|³ž² \—Y{ðRÉjæ{HSŽàÍË8x4Ÿ[ýð†ž<ŽÏ¶^-S¸©mÊùþM–2âÊçiÉBÖO­/Es]ãøå/x‚ßž²yªœ!¯ÙùM‹ÈnUqK¸ÐøAí?eË®g^õÛ¾íÖ ½{<8~¯Ëz9þWâO*iM›³º¼VØŽU’þ,V%=Ð"6¥:÷Ôb;V¹´w±»Ð4Š²pãó4f¯ñ»Þµ§QãHõ¥i‹+GBk¬{nçsz_yTo”…MW®.^:_^;:ƒçÀx£ç”t.Ë¥sü¹¿YÌ“£=ãæåczoúr¢1-!ÞžqZK(¿ëŒzet`áZ}ëÜb»Qéî"\y£ôŸ²Ï]Y0ë”.+.my+‡K;.Ñ]]m³M–è”JÑ¿°Né‡Õ{wfAöì ¿?`ÍRì ´Æc6MÓÚÁMÏnþܨþ”.+¼v­HmÏSÝDIhdÙn¯5-múKã×E˜gãhVÖÿÆ-:h.¢]7¨¬7.³ù04øqq¡f¤²ýçéé”c1wï˜/ï4ÑaIµ¾ƒ³Äs>Eäæ–©ýÈôñX¦gÓÒülk.{¶.qÇKuÙÅ£ž5ÊýÛV)$ܨ~ïP:´ÁÖÝ:ÌhÖL +dœvNªWRg4¢N¤/Ž!e÷©›+tž^#juÌÅâ£PÕgÄzIŸ˜ÿÓû†³À1ãÚ-ž˜Ã¢¸·´ÏÀbvFæEtJÃì}¡éw_êI*Éov5—¬à»žÎ�×T{ºK¾T–°QÓÒpÛm~:@Ú¥.мö› GPí0F_í/[²U–]uÓ™*;Ê -#íøÒõ4ÑÂå]d1’Ìõ¦UÝ !™ÕÈc¿ˆÌl:¿zem«Öï ÉVCò ÊÁS…Ê–A M‘,–Fš‡E&ɶÏ1¢6Y,¯-K†Çî±eë¢È¤‰Sÿ€ßaþ^0ê†ßûÂM«¥uäm;ã25Ú’âyZîggŽ£½¢øÁ+[R¬àƒ¯q§×Zé·-dAoÙ–Ä|Ãø¾P&èW è…×y[»E€S“OAKÍ7D,DHC=]K#ÍÞÿ èïU…›ç…wK“]fiþvk5X×7M–BIA*;Á隷y•œži$^+­èYç‹´@êÕr{¢­ð aN_ä’»åÁÝ£Å&?PñhüïŸÀPÏ4n4AÕ%8}š®u2Óe£&ÕÓ˜¹|¾ŸÛþ>s^N/ä%¥þæ=¦“o`!иqäãñöýAžeܽ‡ÆÑÙ"K3¼3Êè•ýÛ †söZ‰ßpï)N–¼ Húù-¯`Õ“·žëZñÆlÉv´)NÆ(lŽnØöi0ÎsîÙÐW¦¥¤¸œ4Çb¾ðJÆR291ê[~gæäÈzs›®Y°_ »æV¶¦8 fí’ÅÓƵGoÄl-n[keZ‡˜æ•Ñ†$>ªÖ‚˜ŒêÍùîT3ï,xwÚr¼Õ­oLPÈÛx2¤õÇoqÐS%·‘¤ãG.HR@Íqˆð÷Ÿ=[£/s6‚cÔä™+G: µ4Eâ¡ß´âyc¤¤íÀ£‹z[X÷{Һž&¿9½ò5n‰¹,|s°‚ó¡$ûä½­…ßF?‚:èQ¬zéSÈùxçÏÞ5yh=ÖdŸâz¢øÌ3|x4ÊEÒV¨Ÿ²‡×#åùIŒb±,Œùz>[.Z_óÆLQØ2_œ(Η6ÿŠAù"ô…Ȭ胘²/Š%õEïïdm`Û+"°õwt½%CQ 4@óu¿9Áís£r#—|ß óþô^¥»=qá[  zÛŽ\kHñÀ¬§ñæàw¼‡þûbP”ƒ 6x=ÊbkÝßGNG„E òƒ²‘ʦë)kü y׫ÙêXÞgðDŽÄ¸/K•ê–*o›"’(ä4A]–è;âˆ0é¦hLmHW£b‰’®²h`²?K;rî¬'ÚeáŠaÕôoëêÆœ?ú=8ú‚_”_­ió´Ô9~ÜîYYd[nM’ÉÓ²%õ‚#Ƙq =8Ph¾…ßN¾ôžñàiµŸ²å·ìUgò{Éœõ´&4‘iIÒAZç¢ é[KOùõË#µS:ܤ¤ô;Vdzuùâ² 5I§œhFÝõªÝõêiûy³œzÅ%c“&M~y…š öÙœnGl ÂÚ>hÝ¿ì‡:\Ïò{â4Ée¸nÛv=¹,œã;ïR8–ó¾£[—ÃÑ¢É^͵¦e,}Í÷f,Œd£`kR²§cMä¶Æ«$´.[û¬þ†jÕÈ.FZœQc2¯>÷ªy—¯¶2óä®´Ø·å“™ÇH¶Ñ¸õžm¿¡oVøÇ@Ï n¢ÙƒÚuJŽ!Mž\oÐF7g©È·qq!lfDæ´aj.Boò>!¯{Ãû'¡rïƒÈ±¸0@ï¯\2õ•²Aáß=2güýÇk¥Çcï:â÷Øk¬ëVY¯ÀA^=B;¼v»"˜X×=¬*^ñý¿™Ô’%“á=|ð Ðá$ýI擶šñ»]¿ËæE=üïýûqK„”$Ái‹Üè[’ë®…/†ÇMÚ†é⋾¿Ùæ4ERîà·dÖ³¿cÁ÷ÅÙ8J¢¡„M8Ðò³(Ëž¢udy×Ë~|" rw»ßß”+”cg>­qÞØfåY¼WÿýEÃ%ã Íõ©ìí²ÂëzŠÖn›Ý½ è|;–b bDIÚºŸŽ é H\~ùF ½—@»mQV³Ú‚Š8ÙÞýÒ{7Ì©X‹s‚òÍz79—gôÞ²œÚ·`sºÇ™óý6‹Fëàöó4_(kç~p½jUÉ=4—Œž$žåC9¯ Î÷·{ü TýëŒÄ˜¦q64Î,®·ç­~¤_ó?L+pÄ~¨V™\ƒ¦ãÍ ½,P5wñÒH´ÁxæǨŸµ8Œ‡“Ö¼åeºöÝ–µäõ¼í<òmXâÞÃJŸ•ï¬‚sÛ £ìní‹â~¬?ÿÈjfÅ?èÓ Ü‘¤4A´¬{–tܨü þŸ²óªwúÍÒØÐDz‡ÑŽª^öÐ!^µ?²wV~÷­ý#$õ+’‹’Hؽ§™–wì@Ò’墵…¾Oœ°ã^OûÏ›ãÔ{éæ±ü³%$pÔ€jb}r_*HZvºžvÚP­soDZ }Í„¯f䙾vÇýœlÙä;£eýý‹Î7³÷ðhú=á7JìÓõ^ZÖ bÍö4õ”ß…ï¿mW¼Zà N<}[“Q\2Ò“%w7}1Ï¢¤ìÐH²<%Ò(](ÓË3Â{BÚa é©ÛRÂxÑÚ¼-Á=Øœ9Í·Ÿæ-‹^×m îéÞÁ÷[Gdk×ÙŽPÄÖé½[ÇÒü<ÌÛ±‚we²¡géŒ1ÃÅýË ›b{–þJïseœ2¿5JAE¢À|•+|»x< ß–Ìü%Jfת§õµSëKפvé¡r¿tMzêžÑIíÒ3<ÏϬµüŽ™k¢ý˜²ÞUHû›Ö£BžPVeÓ µÎLSÖ} ­úª ì²ùp R½köû[ü5Hê¸ý¤_ïl®BF|{´G˜lÏðX²‚»‡äHïÙ»¢=ÝR¼_às_´h™÷†xàÀGÂ2UÅÕ—k‡*ˆ!í ž ö¤r·\ÔNØBOÈÀ*b‰—,ÚcþEŒñƒÜ#f¢?¶¢ÿñÅïZ~/Á¡*¨]œ¦ÇæÛ¡‡Ùñ‹Š×­j%>ð!¾™’÷*Zm{Ï×ÏzcïØ\’{wõgIâá}¶¤Ycߌºv–KÜpjªàÓC½IÒLûxEfŒ–×?ü*N£¦·gEm§Ÿeï:¡Ø2hëÛ/Ù=ãÓ_d=Eý¬Ì';ä^ቷ÷j.È^»Gž·?{ÏÖkñŽ~€æç<³6wðøœšàPìÒ{íç;¬âE½“7‡Ëƾ½×½Ç¬ öÙó[­i±íAÞÖ…–ëÞå柧Õ5qAë)^ÿ·!ÅáÀ-)kævZ ÷U3W>¶¼ô7#G/¶»ÉÜÛÀ¶^ tÍköJ4Ö¬7¸m¦ÖÍi›øëÇ4ïÑ{¶%!‹3%‚xlé#møŒ@b…ÄšÍF‰5›XKÅR<¶Î[¬‡Îa%> ½õâá#$ƒ¤¬#+‹$½¸Ûsx]ð¬ä73\JoÖÃÁ’×+é9Ýq;iÕõêE”ÝcÀ7¯ñ¨ÚGˆÃ·ö#ñÖ¸¸½tÇj® ·³Üß™´ûgþ¹ÚîK+ô¿@G•qpŽ)ê%&ªGXù_°ÖýÛrÌÿ½Âwˆ®êûÔæàÂÓiŽqžY;¸_õ>~³Á—–Ë°ÊfPÔ O•VàÎ<­¬½ ÒÊl*{Ö%G$pIrk÷â}™·{ÁVÓ4‚P(Þq½ø¼´­«$\å ­üm»}¿Ò»Î5IËÑ{·) ñƒ¦ß}¿ÚõŒß¬èêoÉŸz&¿[ü>%;X%ßñèË2.Ä©#c[š¨&ÈÒòE²3³.†,Ûh~Ãô­4.þ秬¨‘.Û¶ë ªæâØØ~U—ÁÙH˜5tNADæxŠiZÏ‚š*%ÑЉÖõw¢%ǃvwôxÐüɾ:·ž0”ñh¥]%÷:i Æ¨€ ÞÍ1ÕÓ‹wdözß—ùÁW×ç¤Z[‹Y×êYÖËðçì *Ê_¢|$ê2G~ »v’äZï‹‘2rïéGC¦O( Ö>í©À‘gŸ{í½Ô4ÙãOÚeÁŒ¾¼T0ÑA¢—““hûÜãÏ>b"¯ºhiy®&™@ÜNèwð}Ñû c ÕŠ@—U›<´}`I!d»Ÿ1à‘ÓzloMŸáÕ64&ìG‡F:#Ö Ï"ùÉ¥k]§0¤}ì:ð3[¤Çb¤£}Ë£~ê4gðï¯cñš¹y{=çËëQíÑÛeZ%óâõtú=ú4ï'ŸbŸx-r™wŸH‚©’´’ ïLGœƒ÷‰Œå¤»Ï©%\¯Ov#x}¿#1]R#óö—“m}š+sÒÝ'™“î>Ùã‹ûE.Ù˜¥|=CλïLü•¤Z¡„zÚ:ö AÆÔS(ªÒÿúC}hAƒˆé =ÄK­‘ Éf ëMö~÷á3Õ.΋­U«lx=òïe%Çu®"N£µ#Y9< ¤ªíC<‚¯ê<ª±’tvÙªÇ2xZÙl¶h~–wöÓTH4)‹Á„ƒiw_àn‰z:|P x&åüsÒ²§ú;ÜZíìÿ ‹CJZ4Ð@’$óÀbIc­â+“µö#­ê)ÖwzÁç‘Ùc_ÁGSOÝ|“ßÈŠóU2ÿ¼wIÕ³‰£ˆimþ‚ø[sz-¯ßßû—ôó]*F7a­á±èý¾­déµóYаÿY×°#m{ÃrS’=7þÈ#£óá¹<2=BO±eÿîà‚Ó@ãBö!tYøþÉ£ ;ãÒ4ŠÏãÕ†‚… oåQØ¿6JÓÌÅo¾Ý,•šÓâ³xâ'GaN¬Ø(È_RËð,Êö«dؽ.”O­ÿ:HŒ²ì9øìŒL!vläêoæ@÷Xf€æ EIëù¢¹„”Åõt$Ñu2…4— Ùs=à±W½iËî.fDœE£œá,óŒó³ÜŸÑˆ,¨^%‡9ÍÜÚâ¡ÉÅoŸKr:f-Ìû®¹WÝÖs$ËÄÄ¡‚4¯Ö(Ù,ƒÏ0âexðÙ9‡weñtzÏVàW’«ÐÄ\G²®Ç­é Ýà{ÌÀÃ>dI~v¤B2..;Ù¹9èæî’|¶ªqËÈÅiJ‚‰gNSAuÏ¢l<ëÐReä*<Ãç/AŽðÿûÏþjSkßñjÓmo ~·]^äK%ráýz3Mp—Ëhœþâí0Ú° ‰ï Ë—wý4vt… +ü.®sõÅø£AzƒÑÚiéWúQAéŒr³å©õbr<UBmS%ú@¢‰µ ¥Å“t(-ž¡¿Ÿ£"ð#Õg8´ Y7Úo¹ÿ¢å •žûEŸMÕµžV¾ß®Å”²@íPQµ7¥hLÛxššMÉ ´<ÃïnFõâ_2ª9:ž"CV} Œªù@n«þš ‰æ´Ð~/´½Ä¸•÷IþW¨¿¨P¿ì~‰@ÛGY_„$ˆÿ¢=Þ“²èjqnðEÌx´­¤ô¸´€Û1F˜wMÆçmkR‹ÄA'Ÿ#L¬ Þ„^±ô'nàaì²1´·@ù«£}ï7‰ÛskãÀ"z2>’ëêYȦÁˆA1q£°@*+¹ßOäcÒ¤ÚôèpÌQõÓÌL,ê…JråY½~Ù˜ž²ÿ¯ÈÒþ³åi¦\V ¦|µC¿›hÅõDo“Z=$õÕ%÷î#kòxöÞ¤ƒ'O£5ß…ñÌ.™ÁªGúX3UgÛˆñ†áÊêgãüúO}^ÖèúÕæMÑ𻬾J×+×xîu¿%Î3á)4Âq3æµAy…²Ò¶DÒ ´%‹ÛÊú.õ¦;t¶„o÷—ò]+|»ûFó*9Ý«~§Ö ¯¶L ú½öñ›Äh±Û©jm5W˦æ´9`ÂcgÄ V›Þj>TÕÁåPGÝ;Î*ž×ÍöŽ°jç†t(¶Õã< –ö|Š"g-¶+’rg”qK^ J~ï³ n_:s$(ÈF×' $f: žškv}SÜÔ»'lY£bŸÀ&¦“õlìÓ]lk[jå‹×ÊBµ¹¶,X£=¶|…LgtÙŽfß,SG«n!òž¶Ç“¶{ö‘±µÃ†nòµ]T¯#S›l‚h[m·tÉ:t¢4Fó)ºõ d¿¤íA[Ãb‚'ψíñß!^9ÀJßo³XÒ`?˜’o/fH/Nl»N„¬€‰,Å¿æ”ßÁªLÌpÜü±¥Ul8£o«»VÄÛ’N.æG \(ùÖIÜã~OTd9ןϖ€mY:6’ú×ö\$b ¿èý½g‰ÖÜ@úkÂÃbtxž£{-s¦5â ä‹X÷½ñûÏnÙøžY NÔ§T#bøųµKÆ›ãáÙ` (F[Ü!qb5<ɾòžÉÝ“ö"f&t²D6¸1àVœØ¡C";8мÊöSO”í®©ñ´]-è~SýŠžDá\±Í ÔAÓqzùEüŽ_Pžµ¼1g„ oŒ14O .›Â7ctøþFüÌEqÉÎL©ÖÊ,PÌ~óHA9?“M Ô2þ¢4Ä–Ä-æœ[Æ·~´¾~z&9ÙÖÑÅûÖ´î° I.ví4êÃÔĤbÌÂ<{„¾\’9Й.îùcpF²º9™¬­.'I%/ûí´•×\m T¶8›uÎx«¡=0£D %¼°ÇÖ‚/KGëFÒW„šGþ.»Tw[ È’-ÇÁÍßöLÍ­Ý.ïØë73­{>G·qLN‰ ibpç¡^ Uëèœåì§Ùo2S=¯åøbg½^šVÖ­µZÛ׈‡Þ»‘¾OÐãÍ?‡Š#éDŒe…R:hÑRÉ@töÁ¾@#=ú=îcœ²’4‹7—Êò{zW3? ™Èx_óÆLrZ4Cÿ¯ÀßÒïe‰¿Ýý›–¸ü‰s¬*A ü"M¥÷ljr ’8·šx9&δf² ÒÕ£qî(Þ|üfM•½cªk‘FQ2¸Úõ´‚(ßµÖλ¯€g²réx(8¢½ïè×é^Å{ÓµÎxµï$f}̹ÔO¼ µtïBfMWÉïMиÛSC¡Ç¶¡qÁœ-Ž‰Q&~Ä‰Ì ?âDÖi‹£ö³VkH ÔA4\v‚c¢­Ñ§á:—µ®r—£uP'™ë|yû›÷{†*ÿrvü\§,PxOY®Ð‡gÞtß}żJFQÖû&ö3Á{ØÌ4ozJãìG÷5Ó™è‹(-y©•˜ò¥ãZndñ÷[ÇŸ¾/ ïßy>^Op†ù -‘Ë{>âY\Vø¨d1/~©¢ÐVÎ[RÙ\‚^qWÅä'éŠôywë|LkUÏ&Ü7ñ^-¾˜Ì§­{[€î|Ä©…l‰6ÿ¯æ=ëÔ»¹.&·Lƒ;]‘ªd¥ÚÊõ…Ä$]ŸX¥Ü×13ÿ_}¿®#/½‰ï’'é¢Ä&‰;ñÙšÚ¤‹[ãÙ[sƒNumb³æ¡lÅõÕ«¬W«kÍ~úŽ}ÓwÑÚ½ÿ]¼ûxuPPq¬òkÿ7ÀÚÿUP5׫Ëu—ŒZ´v—w´ªu¯¸>{ãï÷Lj{½5=c5B™¡ÈìõÕÒÙýEÙ §_g4tåæÞÏIhWvP¿Þ¬ÿûÃlp2]ÖÉY–ym]²#Lï7᱃³­`¶Í.d}Ú#0¼þ+hñ–<©Þ͸œùjÚƒoŠ…†»xäÒ¾/°™™3¼Q§¬Ó]2ªÀ+|fNxêWIk€§«Öá7óG2öW‹Ð»ä>6<¨æ¶ñãqjÉŽ·ÕÌØÓð`›:c /ªeAÛ² $7ªËfpŽ§×ïùïFQrºV=íGÂHèÔÊed¯´ŠœN©Ô#+¹ÆcVÚƒÞwd¥8³¤žôwPqÙ ¾kŠ/zìÜI¤Xü¹ºeˆ´‡‰$ˆ·æ¥½ÎªóéD,é¬Xÿˆ4]ŽKÔ¯(ýp.Cƒ7*7§(›S¨ìï›ãÔúR4þ 3ˆì/¸þÄï·¦Ïó[M„Éîæz°*§gk¶t½æOËY»$뙶k'ü5X÷&kpº9„ÊJ† ž¯×@é¬Þ_ÏšWö #J²¦bùü÷ÀoÙì~&PôK­É®5ÚZ,Ã&¨À™%¼YÌO’ßÌpp—eÎôEQ[ÔšM“W»C3ģʺg— 'ÅkêT¨wë¾ï·»4Zë#þMÌL§Á{:õ¤›¿? NPcm£Uy¨¥Ö½Bã©V+´íu–¼çŸ^iÚ©WlÙí1Ý{ßl¹§°¤Yì£ESÅûaÍ?͔߬2>ÞÿÚ­ÕsÏnxví±áBÝ:±1ü´"iûðMëcÐíØm}ûöjíø‡ur¶Ï!KÊ;.ØhͶq‘—}å«Ho÷9#u"9õÛI ÙŒ\I–’±ÎÞzÈÐd‹‹lH²ÆL[̉JžS%Güfޘѹ­:¤>ePíg²*ÕŸ²Ýõl“j Ë•Fõí`X®Ð“†ìEÿzÚׯ~îÙÚ3 Ó$²íOÝ಩®sþ.[N‡²5—ÝëÎ8SO†Ç\µ¶Ýé¢èäæGc‰Ö‰“Õ{¤ñò5ÑrʧïVEÔ$~ =s‡ÔYVWVS>2_:-‘hp$­ûź”†2ŽÌÃçš5e™áÊhvIré6Ú…›6Í‹ôTûçyñ,¯Ñ>ü•àKúsð·«'QvëõïoG¿´°e͵Q RéªÑöŠ묋>ànúC\Ù3;z×òÌÞ­ç-è̶W2Ípk{)˜|v“È£„‡ø|ãZ2ÞsJÿÍøˆLr€eÎ&™»2ž&Ó17ùÑ:Ž=g~2«8S²Á ê]+YŸò#ÎÄþœœß‡oák>kž“’)‹79Ñßõ7^Í+쥘%ÎÉNviŒlÄãîÅïâ©7;^@øØÍnï| ®§÷›Pé>_[Éï.ž23üΞ%J‚bX™ëäBßî–ÇëqOOUO|á±txKNv¿=Èa½ã7»÷6s‰;ñ¬0’ùU—,çéͨe¹¤æGõLP»ÚmÞ¤^Æ™ñEÀG5¦ŽôøëtÈ©d¼ñæð™%Yç nb5(‹ßÔºgª[Î-h)žŠ®–¥W”dßGd\‡e‡ægºÉ&p¬N×8¡›S­á‹SyÛÑ “l€‰h„I¤”©wZ>,É>xž±f¾ßÕ|ÏÕzkœ¬2Ф7a:’çzÆœÂÆ™Ñé“]Í✚EZQÎŒÎM¥êÝ8­rÏʦSióPæ@*Ìéѯni:ó45ŒWM²V§©ÙÚC" <ñ°™ÃzÛGž3é‡h†Ø>4¥kÏ¡zµÐ9ûs´£7Ú*û¢°±µ§e¹ÐMe! DUð~óÒb ¶¿~ä[œÙvé+nA7„ÌdÞ.ÛÀÚÒë±LXHâ÷­U,—ƒV¼»5·=b©Ý\ÿ°Oˆˆ¹]Öb…×£ÝÉ÷kšºôÿqIÆEäN$à}LÿJGžöÞc=ÒH/§3?3¿7Ù­¤‘¥—tR¬§t¾2ÁÑ··–”-á3¨yö*˜}õ¨äˆß–Õ\#™Šû•~P6 ú!1÷yÚ\S }C;nm–Ý=ä’•j[:oRûkÀPÛzë9Á3° £3×Ö‰:sŸ™Á iMtbÐÐ¥e­ì:7·aæ¡ÅÆ×üFZVƒj‹GOɯ9E#ɳxßœÍ_÷îWˆ8é iˆÛjM‹‡¿4+;‚³Ë¦1?{w"Þ U:´‚m±ÒdÄÇ’¥†Ð2Š²Ùï¸Õ%aÈÿ<³6MÉN–ñùó.ˆË2'qŸiŠO@1³{<ê…,ÿÄ;ÅËg3—Ÿ§Öuµ`0óðÖ%î‰î´|vD¶í©³^ɒņñ[k[óѼVœ¼ýýÇzÚ*ËR0ƒ¤Ñ½e˖˺†}Zº¦@[î.ç¸Èøٽ׋þy×ÛdôX]_‚òB7áoœq^(ßè§dù©§è½.I½[“)IÉ8æ ô®jçbÌxÞ¯8ô}Ñûû¡ÝºzõqKuùëÃI³I•E-J¾|d¡Å‹;-´vñ.ùwäG|m?­?o–]çž©,;«®Ä,ðÇ¥ËÙákè׫X¯ :óRLzá*¶v¡‹¬‚Æ4uñ/;V%=-溜Íeu±&º ’´nÏm%x-pKü~¹„s#ç‘Ùx~ö{òoÇ{xek#ÌüG­ÉÉZÌð\IÇ ¹Ãê[’ÃÚpÌ,ÈùŸçfõÀœbß…$×ïîÙÌ–°zº,ao´¿Â»Ÿó…æ÷:¨ü´Gµ$|×pùœQûÅÅÙ¦ö„‹œ"Y—>Úõi‡(Y–Ÿ-Ë*hX²EYä"§¢ÚM^¨©lºŸîß o½õX?&Š’Kÿ€ë^¥IÉè3ö¡y·‡)¹–NµÊýÛò~ãzÕSlM>Üe·§úû}ó¬4öÉhè¨\ mk6&ÛÒ½vüËè¦àú±•Üô<ÆGMKN]§lÛû…ª‘ÊöŸ§»¦@úÆ–„Í£õ'ðµj’{]AêWµ¼×êÇãtŽé•·dN]ûm}Ÿ+¶wÉR\RüG;ƒ|?¸„íûº ´`óœâqè1qÙu}Ì12nNDF¨¤´ÎŽžHºÔ‘ó£õ[«Á Ïbý[ª†œÍøÆrqåßs­"žî¿Z®Åú"f¯OKÏ·õXUrÖõò¡eüVW„TÆh…Aê‹t]t”Ô:‹Èœ.sÉb ÷‹œfü@–£3^‹³øŒÿöÂ"Ÿãò¦&=%ëz/"Þü ÎÚ2gÔËç{ÿ¤EüÆ·åÙè£FOò)XBêNÏyh!q†e5½(ŒT’D¤O)ûY·\O~wËY¢P2>³Ë 3Y—iÏ5Íy&ÆlÕÍÝÐ9ªx*´«³N]ÖY·õƒ¢ÿ+TQ…º’¶Ù“Mš•ì»Òºä¯­ ‘[³oÊR…¾Ö¦í/é£ë/µîK´ (.Zú¶äØÓ&´7éC‚JËáíÎÐb‰‚ÿ«å×Ì`./‰ŒZC#5>ºdìû[W·•£)UÉ»ðöýYOZap£ØªÿýgëR]òuMf˜~y~µÂ¢ýúÍèÚ¾—ÉvÍ¥ê{þû÷È™"ÍNLºÁ}eœ(Hê´VtÓ¬ý}z)&ÅO‡¥-´`)/ÅË>? ª‘ô¬áæ¶(¬Ò¯üÑ5ÃÑçX§ËóÜÎ DÃ1ÕjWÿur?º*Ù5­oN ;<êb¥VVÑ`ž H¼°zEMâ0­Ÿ²âíª‰«füøH5ç Kœ°ùMíæF™^Òÿ¬u=ájhN ]ˆ³sçÆÎÂÏØ‘äÄÌt×Ù™¹É«xÑš˜Eµsšè”²y¡nJŠ¾§½º=N=F©ByÓ»¦]vÖØ„f5O{Ei ÿh·˜Ó¾¨3ÑÒ·‡k¹Ýý£téââë£KE÷¨’ÿ-g]\¦eÖŲKc̈ãõ›Ïåœ{”£¦qÏÀž=ÓÜ¥®wØRf1ÊäÁ]öHΤzï7=ü®Þ¦çšœ×Λ÷¯ØÃ÷œvI¢>j “ÌœYÝðA <íÄvÿûÜÅk-•vw7ÐZwqë“")‰¢Øu©zFøö<çÍ=ž$HÄ×—ãnùÂ0BìÏÔ‚N!’¹9÷¶M]ñw1_g+´²Ô“ò·5™²_äÛ3ýþj)¦iÅÇ•'¢ÍDŸÍ+Þìø°Þ:gÊZçµÇm™è}õlmæ©61þ‹ù&.^íÓÛ¿Í‘Q¾9NzêJ7ijä‰çk»ѬÖÝ®b뤀süõô&šð{m¾ºÝwÏW=×KT·J„ÜÛqä*q›ï7ãqD¯ÿ Ýçä‹ïÏhý Æ=³ÚÔGŒþó÷B&óˆ$!ô|²îTvH¦ãìSâHo»Ù_hšVãq¿\?àFÓ®¿å»gˆÖó¨û1_ºyâí£={&hzdÆèMFv|¶µ¶¹bVsËl̪äqKüì6_ü\Tñ«»§¥[ÌŽÊ·,[µåí¹Ú=¯Æg—÷IõS鞃M’+¶é ¾j‰ ùÖÌÙ‡ôJ26Íåör×òoôæj‰U­±xLO§úUÏüd¨$ú^Ó1 §l¬Ó) «Xæ˜òçÑcÒ¿sZs#]^ ×À²£RÚHǬ3ׂ}<áÙn¼ W‹äiy÷„ÇGO:jg5uŶ;|®`{‘諵\–µ4,ÃE›ZÝûµhÙêæ´ Ž½åÔȲvOkùf¿[&ÛAkËñÑ£R[#ßö¯Ð:ô¾_Ý*«§Œ¿ÙD3­'z5lY%Z=!£Õ±1ôÀŒ,Žm“a¥åCë5=›Ñqz†O2OÁ‘Å•z:@òq}Hùá`Òñ‘ŒÕÓ~šëäcɬP͉¸y˜R¡…%¼ÂA'"Xô;òá€õ9Ñ°žH¦®ç×ãw—wD^–· žÝÚÐ3ŒÏÐ wpjY=ïˆÕ¬g.Ÿ(°Ñû* {ïI”c‰F=k$Ý­§“Û •cÖÐH?í = «±:a¥¸ Xû~0i˜v³ÕqôpÐûè®'™Xm¿¨¨nÚÐ{ӪɂvÙp˜¿Ž—oz³ô(¦Õꊯ=J­žÐÊJý$¹ÖéÑþÑ£v™”÷Ë+zÐYܘÒtšsµNè û!˜–ÎM*ÏÂFûæZŒ/÷€vq xù.¶ånh‰ymZ‚‘Å­B®ë­Ð¹ÙæX8x õŠO2‘»üu`Ý4áy®¢3Ò·¯¯å@¶Å^<Ž|ÿÌ2ma°é{•&ZÒiÁûŽù\;³ˆhåµZ軕mäËþwµ#MˆO^;Ü_ éÌÅvµ”áÇ÷ z"§“’ÀfþF¸ÑžÔ¾@rð%‰ÔÄ——VÜOZV~òdùs¯„Û××þ…ÖmÝ9"}\–û­i†è[ÎP­Œà妵HÊü“šf z?ò|”vX´’ìCœò¡uË‹l7a§_´%ËÞÏ8¿®/t¿ùþßX†O+Ómô÷Ûr_6çw`©Žm@™(k•c¥'¤ÿO:ÿ¾Gœú²•‹Ï3G™~êêû1•O<¨r¢rÐz/JAu¹KST—˜À•Kä—ïzÕ®`–[•_Ñýên[‹Ò—ξ;a©¹»ìÕH·WŽÖ5]V'zEçkZ­õ½C[èô'Wy½8îR8ô,!Ú&ôdá^ÏIî©,ÉÄcE^s÷b½™=Eûâk¥Ðö„õÀúì‘k™¯6Ñ<®¯öë[ûI:ˆë¦¥ÓýÑã¨?¨j¾d»†J´};ıœ6pÑîÑ~?éýø¢äã²VOé©Aã³)yù°:nÛ¯ã•ïþ£ÅRvNƒtŽˆwo]æ4¥Ð8~7-¡•ërmÇGOi&ZFís Ãß&ÚF¿ÓsV±DÇïàd=•Bç:‹ËG–*ïb»¡Njš)·‰±Ò3)¼mX§ô;ö†žf Ë>#ªfåˆáÒ©îlÖÅ›v;_-þ¢bÚÃ4bŸÅùx—Så´ÛùÊzëo}·ß)®¶—fµ<îô—x´»o‹uÊÃkŸ|P0y æ¸6u¤uÎÚfèñ1Î&à³]–Xí5?ïL+ïDóù»ö5¤_´›¢Ù#¹²å=ƒo›Tá«R‘+ï—ãèÔ÷d®¨õ  û!‹¬{o«2î‹o壇^÷·¾w¬Ú—d‹È͵|J˽ &|S·û£ge²ÞÝò›V¥äÿdûúGÏߥ,=š'©:­k²oÚGøl©8¶5sY_¥Ü/‡ž+ÖzÍýô°ÌÞIÚ“©¦íÖãëë:~yhWÙŽz\ééŠßàøèé‘Dó£°·ŸeÚRñi·yêP[æ’$æ>…zÀ„¹¥ †K–á~ª™v|ô„Ô‹°Ãõèß²äßÒ6—RUWêP]Û¤,ªíG=e …à‰‘tŒÞ€t>0ô<„5Ó@Négè¹ôýÐC >×'Ôë5Çi9ÏmŸ?¥LË%Yó3lƒ'j¶²ó—Ö¤°Ù…¨¨©sq ®=áb{&»ˆ%Z‡x†“˜”ãÞÒŽ¹é±ÓÝ¿Ù£Zý»­uV;¦Kë§fœÒ4ªóD ZÖ ö$¢Ð|åù>›Ç³(?œ);YKM[¶~2ŽuM½ä>i]»·ÉsíG[žq\sæ‡e×´U¿ôœÉc9.Ù”œSâpí³Ò•½Èx“ftMçy®'èXhUáyÜo—ÎûUÏ õA-ó ³TOÞu[ Ù‘Y6 -—”TÏ#5j ÔqzªË³„c¹‹­q÷.â¬ê1µ-ç4mcdî/4’VRwmÎ)Qq)IÛÓ`ô•“xAùܦ¥5|+´%-ˆp«Ã<5?zŒ|sX¯†ûä6mùè±ómôm#¬M—U0?zR}Û½ÚÚ茊(A¶p„â }çªù¦£¦[멦·y"{@_³ç²&Ýý‚n¾<6µê­X¼¢•|õÑ“kÉ}zºV½×kÉ—ÒbÃ|š3È/=ëù¬Gåïà2®KîyîÍÛsqR×Â<­ðu€†yuË;=:)ß‚ì¥íw âƳùÂy2FÛ÷ÁÏüáÕ%«W>™²—·÷ÉØk¦¤d÷q„%,ÈÒ÷~{‹Ž¸Fó f‚Š%zÖ ’¿YK”7OíÌðsï® Úk×ãÀûTL}zcUÆÛS}œ’_kæô¤pºy5}#¯“m" ©gotú¯]˜í!‘û7òоü#<_Ï}%ßçÔRÿ E—Ï•SoÊïk(x¿ìÙïÖø²Ô“ë#Ë)û¸€†û\´²$Ö›ë¯?þíÿçr}žõ¿¿~þ—ýãßýõúÌ?¯úù×ûã_®?/þ‰OùüËÏÇÚ3£ê‡Û+ÿúûÿóÿö?þóþ¿þù/凨Œ|~Rí'§hÿø¯ï_ÿËþþÃcw­ÿø÷ÿíþþç¿üÈ£5£þƒämþã?þ÷ÿ÷þ³?¿¸žŒžC‘»Ä?þÝ?Mðd¢?þ×ÿñþù#W½æ?ÞrþÓNýõÏù©FYó§¼ÿþþù¿üç>µë#3«Ï_ûúÇx þýûçÿõ¯ÿÛÿë¿þñ¿ÿer¥y>“ï7XÁdú')Í„'M²á°J?Ò,ÊT‡‰µ÷úu|]Ç]µ=P%—‡rp>ó|/mWÐØ"|Y5¥ç‹žióÒ"8wN?Ò4te˜ ž»<]þ] ~®xé?×A £¿ù„ó .|&"hšži¼½Òa0ÊPÕTCoSv_Ö Z¹“Ž+¬÷®§.†ÊãʇlÓàp˜¼í¥Ó>cÚ nr(¹RŸÁ ¡›Ó5VYÏäFé—kþäªÐ8j•B'¯¥¾ c˜YÛè…9 ‡\Z¡ö+\SºIaœ­Šþ^ÿ}ÐË·±C3)®XO÷~8¨5» "Ôz8¤Aì°MŒ¨ƒ,ErŸøLx¯sù9'O8˜Ï¤Î}‡?(¦MŽ®Éí/ZmõHé¢ruN ÏÒ@¤|‹r¢v Ür¿#%7Ðp(¢ ¯ôË´ý³GQ—¿=w„fUÉ>pßÍÿ8Âż½,4]&üð`–“ãµ\ÃDõlY\,ÅM8 ê·÷»¸¥1Fùµz4ƒ¬³›[v˜­,ﲬ bNzh›x·äµõQ˜ü²|=>)%Unr-ž¡‹šêÚv÷ (\ÜVïtТ—ó[W_u‚µ¤CC8H×=<_ H£@Z‚ÖÞÉ•H¤{Z^Ô—n4çpq“Ï„®¼wÊtɸ»‰W¦BUTk‡òÊÒÛ@Á:–d>’-ݺ£ð4*!iò´óu¼c  r4O¼/Ὲù3ò}š|äs™RúAt[{ìÚ¤ke8´Á¼Å«ª{ÙíÊÞ·n}6ˆÂ×÷ƒ‡=£ðH6¤£ð(ùzÒ ¾§žV¸HdˆjõÔÑQÝ{ (X­ ã@Ó¿”íþ­8!Ã|µWßÄÖvÊ5Lp~ E;¦có¤_OdÜ‘ð¯BÛ6kœ ŒÖ²Ê«¿’±W2*|W}%n¿-3Wùsk± šDÿhÆ ÉjBQ 뛎ìýœ?C³IáÞ¦u3rc s†UÁƒÀL[‹ÿ© J^ßÃ!Êæõ7Û¨ÀÁÕò·¼·iGsL2ö‚3Jg•G…®ý/òb¸oWw<#´Ð¥i|DYÔ} ñ–É>_î.†!íÑZ ¼ÜùÖ? g—(Ã6ZÖV€YÚ œ5Qˆºp=ÅWY¦BÃ#Ï™Å\›·sî̵˜÷ôìR@>4—‹W÷Z࣯Tûùöœ‚f.´R#…BÎÜXíT¸åu䉭´Ä½—´Šê2Д ž4h\˜^ºJŠ¢±rè×@.häâårJkh믜]­šÌµ-ëÀªÒ 3f]¥2£¿–í@R;Œ^˜2\×…m+.kÇ\ª¯´®X·„·Å~Q 5ω®`ŽÌ5(îpÏدn-Ô—Ç ïÒåã¿ËuŽj§…)Fvi½¹lñÔ¢žý£ ÞápѺØ;¨âM‹áÐêE}½rYሃð=’¥ \ó]ƒ ã-ID«€X±¬UB}õdh•§ â“éz¢‡þT(âûó=§r–éâëJ¿½ßV°ù”§•Ç D ±Šyçö3?9sEš‡i¢ÜH¶ây6õ¤ .–áÐ6—ô,¿}Qé· ¬9òÔẙ!™ëÖåGº!…"»nϦZ¦Í¶\Èi4^¹ÜŸÙ–rêîRξ.XêSÏ!Hs3c Ú˜@«Hç yUñâöõµÞ|š¤1¥ Á\>³ÐukjWÊyöáéç[6ÜY£[6Üù[î«æo…‹¬XTÏUòUYcß ~¹*/æŠü]Z‘yqyéêÁæ¦tRL”ùä¼Th’Uq]ˆ&Èúæ­ ‡óت·ä¦êÞ=ÆûÕTWätS›˜C YÌÝ«!‡¤¹Z±.€ã¬ÀQÕPê“vi<´;QqÝ{Ù’DåD¦”´]Æ¡€jŽß’¸ÉEÉŠªo…¾‘=²@Ê«§bÈZ©Ë´å£øZÜχt­Øa <Ö.S­ŽÏ^W¨—_tŸ«ŽV¼'oß½¨™¶¿c¢¨×ǃ!žüäã1ô³ÂG†FZO7\–8ÝßÄÍó‹öuó¶*MÞR®õåõ¸^™&÷›Ä ‡’.pë“G³žR`ÖÆðˆÜjŒfOóè`åýÎP@Õ¦óMdžxñü¼¿„›œ¯æÓ.u8ßjïìjÃó íÒxb+P³±®Q¨ØÆÚgõV ÿ–žnØ0î£ÜKÉ A«H"Ê6omÍÓ$EÚŸç«<½Òû7êÕÍÅB˳!iõèQ~çÊ<ƒUðSÒMäT?芑d_wŽeËMÀXé½5[ ¢š~ò1 Ò¦ëó­[Ѷ<>0Sœý‡qT?´µHžÒÊ‘×%fpèòåL5u?È÷é"äÌ ‘W6gN¨ïs]´3}Xô|WÔ÷ù.ÓIY]â#å¹n} øí™OuK²Õ5KÊâVÍωnТoªi…û×Wýrúq1Ñ?½v¢Jûâzóm=Û–(í‹Âˆ`‘]Åý…%›ÐB׎yr(t±x]æ6?z””iíä.—.‰®K¶‘®‰®¼2U°…‘h›qæZýË,_5׊_Á ÖE¨¨P€ žqî~fîDõsÐR*O7f—3Ó´f˜w×Øs9uæ^Xp%Qæz‘fŒÊ­_~Ba3v:yDëž ö1Ùi{Ú4¿P7R‹õË™_Êùþ.)çûËDÍ%†®ÌåÏ]³á¶–/„*›"Ûke õ÷‹õc·÷~ÐÇ»Fó.^ç-jSláÝ›’‡{oïþLÍóêݪl}ó®’ú"¼«T÷¸”y™âãUÒDöMÝsK6˼Ñz:ñì±Õr]^ߨÚê¦=Âu¢yä[ö‰ +ìì´¢.éÔžõúëµ½®ê3¦øB´Ï†Öž½?}p¦K÷žNÿè°½OšW9ŸžtZýÚ<Ëõ/¤ßid«‘Çç@áßi?Ž|ôšÊ¯Îu˜ö>Z²QŽs;ûJhÿ½˜oŠÇA+ÍâQ3WyDuºx•£e©rê[’zWB×¢½Ó*™¬=PóÁü¦Âèz=$ýVæ°¶yWrèÍéfÓ›^ס•r?Íy¬­“ÞýœWÓIýÁL®×òê°ÏW‹šŸ“V6p®rmV°~ôˆ¤ÎmÔL«ÌÊS¿+oÝGÖZ¥X®_^¦ìÒ“–Ù¥õºÚQH?)~S‘\ì•jI\¼RMZ=êºQ3JÚúþ6Ñ:P;Ê–%¤zµ¯:7·ý¢óâ/4Crÿ}è)n ®-%ºÑô½5i¥–Õ^@ê,턵8y|^í¿lÉ4j¶ÚGüFòñ¿ö±Eöè÷¿þ°½Æ#¥¶äløiÂj«§kóíÞ2±¶ñZIɊݶɰ¥R7ªml9} /ZSbgbCÚ×6lc©¦·çe(¨óäÛ–•u‹æÌóµß”Ó;ßÜÞ¿\öm?¾!^T?zòZã±\¶^׶mUúm+4iU[,Ö¥V¢×-Ý-Ësݶ<³.[t›6ÐÏíøZl‡¢¡M9·Î—å[IYÌ^Ùºn‡ÞÜÆ Ûöœù(=ñ°ýÇH꛸a£eKá/Æ­ºŒP@¤y‹w§ì×T6p[ný Z½‘²HƼ£˜¨‚‚_¦ààkŽÖ}P.· ëd‰'oÒ…òðU×¥uÐ4凞›W9oà”™¾“¿Áaì½³9ý»l7x±Zž=ŠîÝ©9‡)["öXãM­ÐYáÍá\YãÍùñz|ÎiÊ º½zÏ_.¾òø¼Î0YÙϹwΘ3:Í!×åéu#꺑Êè=eþî̵÷à&hGª™íqO鞉 yÞ¾P?yi|Õœ¹n"­uRw®ÁšJeЄg–iÅC¹â™nqk38HfXƒSVe &i­ƒÄ_ãó¦»è¨[w]7n_´uç¹×‰YOV).›Ln! !‹YÌtÇù½õñ äz{ò€`?3¾$Êúp}†ÖF¬£Ûa-˜Î¶›f -±E¦BL†͘¦ ö…ºi…ççüå} k–²dÙ–ÍS’’ë6Fæ¼Âð=Ï^º3ýZ;ü†!Ý{Ùv×ì¶a°çf×Þk¸<Ø~ö@òy¨²¤k îì:q JœÞ{ZÄ©y½˜Wýö^ÓS›qÙ‚d†rîX/ÆŸsGÿr4ï˜ÑΡ}yæà褓Ò#LPÕ™›¸Þy›ƒ1$ÔîÞwºò—Èå‹wzíf$¥õí…fÌd¬ÝÉ9¸HÍé½8õ:'ê 9ñ<ªgõœÙ‹w–Wý¹hÙ{ sïÏÀé›\•ÿA±­Ê9Ãó®ï/Œ+~cÚÿ™Ó§Òþ¹\ÛöÈ,¶d:­²ÍÃÈâ`Ög˜·È°SÎÅ[Çv_¤cóQv„í#tìh§Ž™c/òÕ/¯7×~»]‹YáÚÁ…Ú³cdů<+9óâÖ/ð?õéâ¡ý%Éœ¬$º8 :òÔþîЉ'_oÐý]ýXœëto¾jƈö¦ÅI¹Üæü¦ù‹Æèj£-N”ÝœXϾL;èÛ´Go½_UJ…iéËäW×[×õÛöŠù«Ë©6É.æ¦ø­ËÞ ·¼ÚŠœæ…àê{rMo'<µ×@þë¯åš>ÛÛ’G*ÚWÅa‹™Sáð*­÷ò{_H«6^ƒÔvÎZLËŽ¢Ëó^!¥`ñ°tŒøÆu-âU$›$ÉŸ­;íOa 4Øuåyd©×íð­Öû÷ËqBâ*‚\Ͼ5WŽï°fM í,°×Ò}[[!µQ7»WÚí’w7:h½ýÖmÇW剆b×yâÅE€DS¼Öá­<+~x ÿ­YÐDxÚþ Ÿ4þ§³x'>¨Qa&c s•@·TŸùœWáÊÀ©O[¯:«÷dÓꯜ²ur¢©µõlÖlìÚÖåv‰Rm¾ßWˆ/>ÕÔJ¤,¯Z¤}¯Åï•Q’;èKóJƒ‹DYá±ñÙ§<•1Õ¹NõêY';Uk(Í€ë<jÖÞ:=jì~UÆ …kS™q·ëš˜U[ö[cÞ0«Ö;«ò²‚p¶3.sõÍ“[B{2ô±×¶´GØ „qÞˆz‡eùs{_A"=-Äþ)Ÿ\ñwíðÿž ‰„ßÿÓÆ¿¤ÙSÈ.noXÉ>j¶'eé´mÛ4Ë’DIÒméLF¯|^ÔM+ɲL›\ÀZP¥Ôj{ªÀ;·-ºê;ᳬѡ¤'.•‹–`öUæ;À–vÜ”˜Õ+>îUÌŠ½"ýòø÷TÄžöÓyBlY˓ͳ¡ ¹Ã2›g»tO²ç˜óaà Ç¡i¬)…µ|ìQº_¾°FË¿• ~Œ¨öœì…Q’"ÕΣ¢Ð–vh8iCd\]o˜Ô¶ÐwhQ÷jÒaWVÜÛ˜9Å ø´½_¹;biðŽc‰—ÓHWàg49‘ ®Æ#i,ä>GcéFÅ«g,l6粜ánÑX<•¸{œ4ò·)?Ž¯jÛº«ºí”ý´ÝÊãócyÞq§i,¤YâHt3JY[ǹ¡’X_ó—è4n·ŒÕ_û&szG{p‹ê@Ý”Âóëëú¼¹LS6z³å³fpÝtߥæbëg\íA~pŽ'´Úuæ&ÁØ;Ä<¡=´œÎÃ?Hc›_lµ<Þ®C'éÜ>7û^ø³ ß|1?É/„óßqãá#îÚgiwaUóèæäü’P ?ȧ+Ô}^ìfäJzap‡f^;nAÌ =¥õà•3C— d&^´Š»cóÚ³¦‘Îv´ÍÅS:fe+îOCÔ Ôï Hûöéj»­YŸ¡ê$i^:™PË/ïÿg½d“uzH'U¤µ`§¿öZ°‚§-¶k¯o÷¤´ìkcºgwúµÞÔƒýëëxí¾+^Ý}¿£@ùqžþ\›ÓBŽŽu·Î#Ço^z§0‹Å3ö›%hPâÁ× z¥×´ç.¡U~0ÏÇYð*÷qî“Õ!›ŽžÇ÷rFeðÅüy2’øáO/¿¨™V¸|Ž_:ÇËk •¦Ð!μ]ÑjΠÑò-­ì]4÷Å*Áso³ÑL;Þ>¾XcV4’Š§r§žIÌY´x¡_<Ö<Ø;/¯©f~¾UÍð'Ý4SÄ=¹}—³ê«)¹…¦Á?fÜ¢Dªs+oSªôfùv;×°dœ’’ènÉÛÖH^ˆüÁØÅøŒ[cshPtj*ÈŸ^z¸å7¸Ÿ’¸=3´ÆÍÁÍô¤±Eys äOÕ‚’‰¬ý±…N|Qù¢ Óf¾9§FîºñŒî^Góçœ_¾è>h-'œOó׬-+iÇÃ^`®ëE£áR’Ö6¢sZÎ)ëÀÞJ^ëþá8óÅã±=´÷Š·Ç˜ÙǤLu=ˆšq'aLqDîŽéõ(žöƒ{Çõ¹}3&víTÉö€ãÞƘس?L—ð·Á}eÍ–Á}eͤ1 ¥šKÊíqgÌ­ÿÊŸj{j²´?‡öÖ¹S:Ʊ“¹èa¾2ãýÝØå_/ç•’o¤c“Ý÷ÏíÔÑÑsƒ™Õe52‚ÝkÓÔlÞæ’´©™%ã&- ±æ„¯ÈôËZ¤ù›¤D9h‘狾à®ßp‚ú$nȨE]û+Û¦÷‚ëž9¤I¹Î¹¿$Q¤$Ñò77Ã'ÜøC¥£©´¿nËÝeZ¤ÄçMÿNÒ»›r"ë_%ùÏ2Ú›ëÖo}°<× U÷•ôâÑ*k¢C£¦Žm¸A6‹²‚š=*¯Eò"(5þ¤÷x›jPûÏͳ¬þUGÚ}ZÊê!ÙÆê[üÇ>ÑÀSyp/Œ0­9‚Ôë°$/$_\/ÈRn¶¡d5jª}„¶,«\Çzè‡k_ ²’DéùõDñòUÑ~ƒüOd™ùþ®e~°3'›¿«ÒÌ{€V“çÇ”m€¬ÊÐG?È~â’.˸@+ùˆ6ôÝôºô-¥®ì° aiÔýË„5Æ}çŠ÷ÕØ'„ø£¹~·¬*ôÅ­|uמÛ[ƒ{ÄGç9í’ä"TÛ†+#Z–#?(xJ¬œ¼S÷¢¥¤Š¤ZÃÃe¤ƒê.#]k³þéЊóùhõ94ë0nŽ¼ƒ—:b¹…~¸-éxFyèyëÄö´t Ñ7œG؃‰–´ÜšCç(ˆûê©{b1bhf€˜o7-ãúÏÈ“Æ0ÏŠ4ôuì±ôº*|FKĈŸº¥ÞYª·xžÐ ‰4ú>÷¸5£™'°*{qRóî>MZt ÷ëìñî´xtßÆ) ΑCßs¦7rŸã÷ƒs/cà/Þ8\ÌS~Þà …ýuù—BÃù$-ãË~JKÁÿck^¤{¦+uL×´ÄÜeקáM4ŠÎWgÀ#üô¤“Ž}ïÒœ'}½ïr­¨_y&pn88møÄÎQgŒÃ7øÞ†ƒÙV‘—ùTÆnoé®)vWžúîž+ÌMÎC‡n:î^ç´¸q²jZN]‡O=~œ‰6<±]NsßúrÖ;òì7Ñ zúŽÓëá=½Æ‰òHÇÇD“~ž j¦½=*'êÇ/‹ÛÆüLgÇD ”ÜÖN>à!ÍÁN]ãäàæÂ×J&%ßö#¿ÁÓØ3í@a¤yXÁ– ý^¶«•ëi¡wyûc“÷[–Rʶ~{´nÐx­îÜ¡Ö*ã²Ö.–vçVÜÅÞ€ö´|»¨.æMîåí´w¿&hË/áùE{¹6S‚lPý¼u“åÞx™‘ÿîïüã~áî“KÊFOÚó¶‚ÈUtŒ;ÜÄ=ÇÁ]žöÜD䜺È%gÔe)5‘Þiµ¼2 ÏÅUP¶pyž²7s¡S«øl!}6r®à‰¬Øh~Þ|¦åŸÊ™Î·‚RnÒí•É?¦¯¥dr×-…;õÞÝk؆e'jždRO̲´Ïb»#G¾çfÙ/ð2N4¾Pé·íëk¥u1œ¯¬‹”›=·ÍuÐ Ê|¦óäD?á1Û‰ÜÔ¸IÞ‡ìÌ–W‰ëkþò¦ô°ÝôÔh^XMÙ 5ߨ›Rx~}]Ÿ#ñJ–1Ë[6^¶®—#¶|ïN[ÿà‰.JÚÉØv(ç«:8iŸ^œkëÌîX¤ÛÒ8l ÿ¦>±Û#Ï–­RñÒ’tFf`ÛÍYË: -?}!ÎÊ rë¾¾†ùŽš/qtPJRV¾xÔ˜ =E¢g{ç$¼ásÜ—g#îî¯Í9=µ-•þÂíÔœ˜[uŠö|‘Ó²3ÖѤ½åc ´/ŸÊ1£/Ö\·ÚÞ ¹ÝSI;h;‰Ü…éºÁÀÎÉÓsÛ^»Ý“¶mû²eG>Þ#–D_¬“iõj5es¯”.ƒÑñÞÍÆë¨Z͵Ûò= éMdKiô¢yx_R+2ŸÅCŽ¼ ˯y¡áßÕoqÒèž–½Œ[>_ùð&é¾-¯~ÛBâ±ñ~o»l€ÚgÏ›»6Zç¼ìÙõ/ÔL+\>ï/›gÊ-Ó°òí_(@šGZŒLÙÑs^Hv¬hûWOËþ¬“ìè›ô¶0“eå£o4#¹ÅÙ}P6Z_)K‚ßÉÚ Í_ëž…iQŠsÐ=-ùX6ë@:Ý/ÕTÙÝòîvŽÅ’²Ij[¤)™µwÚðqì3Ë·OFçÔ§hX|wzO[±V^§U} di—Öð’ê{$ô»‡CbùwÔï¡žÏ$ªš.™È²½3røǨ~Óù Ñ_4¾j0œÏàksKU·9i+µ]æ;x«·Wð„'¨ƒ ¨Yßé·97šú®Ô¸zÎrª¶ÆÊ[ãŠMß­o+V|Gscãuí°H«Ä¡eÚضÙu¨‰<ãž–³ãÛÒ‘/QR6ÒÅíJ ÷kf†äJãwæGé|ö/Úsk¯§KÕî­]P—ðüš_h˜¶€©%³>÷þIË')üŽ@hõ«¶?wûœ}^IËJå—æN§)¬Ö¾L¹-óøúzÐâYÿæZnÿ¶ïµ€kSnÿòöúc¹•^}¸?ˆØÒ½_Ù òO½NÌ’ž.o‰²ôkA+i̹Ðû´0kbº¶hGö—ZA˲KÔ ÒªÛ–,ñÎòi´çSu¾9Wã³­ö+[Ñ,6ga¥÷ávÝ ¬©'=ßžm`õl©ghyÄ øþx5Õû"½ {ÕSÁsÝÒñ5Q7o‰Þ2í|í¾¼ã@†%N›¶ý§ñüìµ@›^ ”ÏûmyGB¿e”šÒ©зÃö ÷±z†{ê@:5 œè[w»~Œu°g0Рܰxס•HJZfÍ‹æe=ò¬Î³Â5KJtú?ýALöž‡ùÂêŸ'¯ÎHU¯ªàŒ®’‡]%ån~÷¸[Zø÷çü²u­ùH“ÇpžÍëºÂ×Im“V5‡×;rsÎÖÕ.ägÕ}„)'I›çzçYZDÅ+¹´É´’›¤ÇÉ7ÁÞdl»OúlÛ)Ol±"kòwXr’CÛÎ㦅-VnHb1¦>R ¶4?j×õδäŒNÛ[g„Ö¯Æôç&U’ðì Þœ´7¼Ä+‰n¤ #€?ÙÏØ=ßrÄ™‹xývÇ®mÛ‡Û<.»# À^ÝOC\×ÞZVöÔ_Í Mo$HWê´_\V?¯ñé]—L¾ÐÓÒóþì|šmtiÉ]î©#•·6õë!Nm[´é‘lŒ@µV,`­ h¾<ᨰ^±ŠyaÄcͼ-­Ý5žÒFZ 7q©øb¯ÛÃzB¼×éµí‰|kïÈ©¶¢ê¶‡Ê;ùÝ:¬n 6î…u¢"ãÊÛ=ψ~ƒ§q¢j ¢þÄæîÜhx õçä©á]·çþvAdÏFÔ¸¸ÑVé›þÅO#ˆÕðƒ üÆ/ ¤ã[û¢l®(ӆܹ6—1¹6I™óŽº'ZG7j¦î__({Ò/Ž¯¯”ý\MÙ™²D™}Þœ+¶ø…üšù}D^Õê—$ÍBh\± ñŒí—9×~ Ë—´ Åè¯×‚­äà%ÎÄ~¹|2­UGÞúåÉ¥Ý/lªM#V9ôˆöÍŠz„t¡w´vAÛpVÙx¨_Õ+)õë2ms_&RÏÊ2ÊúÄi ©geí\:ÝfŸîÚgßX?êév»œÞ– P;¾ô×zº¶Íªü‡-¯öŽ†ëåÑÀ?ªçý/0vÎÃ×›Âò¸U³ëdŸ»›á «î»á·º<x³¢s7¼áGöƒÌ™™’\|*üÏz ó{æÒ<‹¨‚ÒJª®+sƒØýŠ/T¿ioÅs3@{Î7°r­ êãtö0VÑ¥¸X{&!ÙðVëÜÞqï_òôqßéáñWøtOÕ~±âÁã³sª ѲãL4׆o¤çê‹6m€•oXF¾´Þ…u¾œºTÎÝO½…&ß.&zìÎ4§$yˆ‘hºÑSJb$žùõH_þ½—G^‰Ÿvâ1:Ç/<öéøãu³ºŸ+¨¾:ln.-Χl2-wbzYD.’ų!yU·a;ê6N4ßvá—ÿöwÜ[]:Ïè*ßgQHôÀ§]¶ELí®tréÞÍé í ,лKÓ'üì„ÄdEØ3ÏiÛf–-¾l‡ìÌF>ØtXƒ1×K›ø>¾Ý_¿Ûö©rÅÀž is§4æíÙ6±2žiÿkÏ“ 2ºx4ˆW+~Nâ ÜykøhÄ7(¹çÆrÙ(Œ t>úª|žHÜy楉]">Ò®)þÔáxó7œ‚ø¼me›Ð8ùr"8ßØ æxË'à(Û¡<ówhnzÅz‘jj||cî’ÇžÊ_Ìr¢c6ÞzPóJç†; r›ÏiMy™Ó„±y»°nêŽõ4Í£ÈuPÛºc#ÍõM9üË”Î7éI}“^Y›ÏsŠÕ 7DÂ7dÞ`æm<Å$Î.¦½S¾Ïûr’Š—gÓà«ê Ý—’ åmÉ]ÜæÒ\ßÒöçWF—œ[‚ÛÖÀ§6&ç*‘î–<¢__ã µ¯\ù¶WÞ½:d¯ŽžßæÑï½â í‚h4›tm®ü¢õ­—4ÐؤÿzÊðÍ“6;èÞš>Ú²¦˜ Q"7µ.5ºÏ´åGPï½jÒ×qäº×;+×töZlïk,fIšç¿¬åBVÓí/[*F5×篤ÿèÐz†šîó<"—^ÍžM¼Û؈ûä;6ˆcÙˆ0¡9Š ¯éy‹':+Yî%†NÞ¼¿oçlïÝÞSJWŒ­«"ϯ°¾£ËŠÎòö é4d˼©éLÁGâœÀ§0róæMx,óG:„èà“tH´@íA¤¡ÃFà4ÿ@ñ…ê7íñ-WÊQò/.Í· O•®Éùæe‘vÒV^´o1fy Aïj¬™UnÔør÷¥Ýš'^ߪâ"¶›^åÖpÃg,©±¥³SΖ‡UPæ[Ïy$›¾iÜsˆÁÉ‹ìóa_\ÞµŒ'V¦­õŽ”ãÉè^™-qåËŠáæ¬m£~X\Í3^óQçÞ¬¶ÂoQ6Þ§‹>4“I·Ïžã}늰Œi¯DЩ<÷˜¢ûük6K«c'Kg/2-£§±ÊȲçeîßZ@se¼r_·ˆ¤ÙÂ2oŠ£Ø=BîKª\|ñ`mù=‘H·91GdsiÒjþ ë5²òVÑšM’ÿááçÖU¤›ÈodÛ2N4¾Ð¦•l__ (ÞV¯Vy‡4t·è³ZIg.ö9—´­ìKˆŸr_=]^ŸôËkOoVY·5Ó²ƒI¯Óº­Ü‘u[·e-4L+¼^»»Ž3½GTÒáIn¹‚™R§uêúÀgRvBpÊt a¤ßn#‘lŠG/1šæ^p~Da |ƒ÷ÚÿF,ž¤½A¬Äg8Ú"-+Jy¢‰9n½ÈþŠÇK9O,ˆ˜vÚN#™_ÔMÙÀíëkaŠòI#§]6ÚËõÚñ¿ƒó¹eôðqpæ—~˺üÒo™/ÞË bÑz`“D®Àk.A)ˆ×~Бn£Dº¼_ë‘ksª\~å7§ž)“ï44Íwß|ÍV/ZÉ\ò½°ÀÏ'2Ôk¢§¶%ÇÎMÀ“(xã3ð! ¢ÅsÓ#Š¤kàìZ^`Á­¬Àï+|Ë) s€½Ð nmäN郜NÊþE¦l r…¹RUâšÇ)ŠÚjˇ_ø_"ÚþgHg‡Æ¼¸ºQ®2œÏ5ß|ƒ±»¯ð ©øÓ½5x})ˆ¾¼GDœKjAöƉKs"-›*¶¸îOl§Î/vOã۰哵m7¼ôØ”¢l¼¤Øöžo“6íäžú`têZmTZ"{·ÐÊûµ…÷ŽªÖ·W÷Ú·ÂÙã]'_»hÇk¯¢cIãfXì{DZ›ëöÚ}1¶c§½{h:ô¿QûÊÓû%²êËQºn&jµ_öY3M­vh'_«ý²×ÞÅ{hêÒIOÏžcí_öz¾~¡~Ì­ë·ŒÁ™þ³y.%eó/;_×â‹2\"ߎ9ù ñ7Úu”®yökw½µþ)»ÅÝ}36í6çÁnÕFŸ·,ÛÆå‹’•£JðûÈíîžË‹¯Ž›¯Í½Ïõ¸;"ÍÄ°loÜ\‰k®åvÓ6ç@Î2q®v¥ã*ž!¹’ÂyNç úr¬Ö8)ˆkçL(• µZßåwµ¨]Ð i>É ÍÁøìõÚ¥•×p„iמƒûëÍêQüúΗ3£Ð!ʧÄ!±¬'¸±Ü£õjÌþO]Q&ÁôÿA)k‘å¶Öív!µeq^h&úËo=/*Þzò¦]ÎGÚPrAÖ™fì²¾ÔvÙX´ebW¼ó x¡eËŒÌWËbËðæ˜íߨŒº{z[–׶%¨Ø–ìïˆÉÒä&äªiÇçµ,ôKYóÕk¢màþÙÖ®í—m•ÉJK=Üò>Àop€ }VüÕ–G³o6K‹Š›æƒžt¡tb¯ï¸40vÉÓ+­o›%Ù6-(umÚ˜cœè¶E“8°a6jç²m?•!kOå‡kFïXã®ó k´|þj+’C(Ymúí½{db·Üô³xzÑ“Ø~%LJƒä÷˶VBºWyv4^°…Õ÷.xc§¾-,Žu_4ÝwÂ7ù¤%ÀyÀöµÍâÙš66Ž(¨8¥xv²+Ëñ©§cO;ó—ð)ÞóÍ;æ²V'bÏâó'½èÕ‘iˆJ¼=ߨïUUsL+­^8úAJçº&ç;()sŽï¯9‡Ú‚ïñTàê¡Ëe>_£Ò*æm¯#e±ÅU9¼ŽÀkŠíïˆ öòô”êæ wŸ~ìy¼ŒéIýrÀÏxyá.÷Ðâ'Ýr¯òáà.yj€ÿßÍ“z=­Äë §»`&¹Nï ôÔ¼‹ë é÷šŽ\r×­Ú´7*ä°ÏÏþeÇ®V¾Þ×:°ò-ï êú"¿µäÑvŒ‹æ>èïø 4þ•m |þrñEãè3_èq•@´GŽ *NSÉ;“ùBçÖÁß-(Y“Š÷\·׼ƒ·.ÇÉÍÃß’¶šV+üÛ9åÚ\´íØ— UuÓJ{ª×Öã÷ž•Õë`ÉÍå ô|ýyçøÖW¢Wˆß¹¥Ô|§Ärh%Ç,çU• ‚B–#’2ܚشZƒÞÌ“°ÆÐÌ8´¯Y»ùu"­Ö9>õ>CÒ„]sì õ—y‡ü‹òòfŽT{9Uc*Ç÷½éœ‡soØVõ`[‘ëîÁaÞ4ã]½1‚ì¾17¹úÁ @\}?>£žø <ÀI_¨™V¿-ÆÉÍ7H¼=AâfÆ¥°2nŒYZ‡øÆsÕ*)'ù¨WrÇí [±gH57ñjÕsîIgŠ²Ñö2nG<ó‚Ͳ'M7ꦞ__ïÏ›K3å¢Ë;v«ÞõÒÙ_ttMÕÍÐÀø¹Plª?id—Z»åýT± ‰–ú„#¶ô+n4æ|ÃO ĵ âp¶æ5ˆ8©1ÚðL6_ùµŒx¢Y>ëÁñÓÎðoö-vÍó9Í¥ŠëapR›#¦Y^ÇeôÔ5Rþ" 9°ŒˆÿÇÁRå¢Ø–ÛŽ‹¥]Ìçbô¯×hÞ%Et†'ýî¥î/Ù{Ãûªäe‰ Ÿ·a›ãÍwrŸ’líô‘ö|+Júk[ôÓý·%ˆw‡áów'»áÝ“®oß¾hïn ÷¯¯*¥¹ßEoÿª¡\ç;ø½7^.|ˆö ¡ÓÂíÕƒ¸·ó»àHìM?ù…åg§Cšÿ¦Î÷)½BAÌü¬êˆ½Ú8ÝyÄ2]<#²µô>Ñfq\ß³%æK›íM_ õ/£­çWÒY·=wTJw® ¤úT£l+‹h–¬;"ŽÙÔþ”Äå8{™»Á.ÖÇ%ù¦”’”È2%ö,LÊ‚›[ü8R"dˆŽ»Cœ‰½?ÄÓAÏLf›÷u‰¢H€­—ö2Bš‰™GÙÈJ4Qs›#YrX_ Ëó ÒI¹u'º40WB—ÿþÃ}ZcœA‰O$Úeù]<-Íh~5Æ"òïà~çZE™œçº%g0/ñ­~3&ð1!äÕ/prØC{‹k2öã>Kß³é¤Tg=:¥b·ºísJüŽ;ÝÏ¥L·LSçl×x²u“oš#IYÜÒ¤,j«¾Ñ)±û¿^º1€ë»û‚ ?Ù÷š¦}{êøªR¨š¶ƒËQ‡ëóÖî’LçöUuĘÓR"pEUmΧÍpÛt¿ÅAɹà”TðΫø–øuÁ…ÆMÜʼn‹Y#ö”fµ,Ð<ɹÁÌœ[.äZN+'!ê³w”Ç8çƒ4^ž]Þ—]_ØmI˽H£ˆS\S­ÕŽ®XÈðáö%m²GöÎ 7¬‚›¤Í/±ƒtiwéå$ïù„vwê}[‡6Æq¡}‘ýPô‹J—^Âã[çAUkò‘½¥ô ×–‘út¾º(Cþ?ù|rd†KH.ãJN­Eâwâ¥ýÙ :-Ÿ’zÓs2L çDå¥ä%Ö'Ðr<º\œI •®šÚ§NÍŽEz<锩Õ1ó:§5•Xüø‚<ò ÒÊ3W¯„Ö>Ñ8~§ý‚žlPy¾&¸ºS Øh¦ë*Ú›–d©šÓæ©sÑŸþõÏî9ÞW Wí;íßߨ«~W'r/ŠÊøA|Ëtá<±¨&²³íÍ…3½'Öó´t<ÑÐMÓúÒ=N#M'‹d‰+_;ã-ÚšgMÙ5ã*Y¢öùæSÉÇçkWŒéÀSœh~¡nô×–VÇWå4‘¾-É2WNý4{º¤e®¹xtZ´œ6?¨öÂð1®{O-Ù¿ÖqùkMPöJñÊB3†ÝŸÍ/tÑrz÷"J!®A÷£Xg®<€¥§û_XSƒ­§…RO¿\‚¦~¿yÎŽõ6O<‰v¾<•ÂôAhÆm}àØö x\_%e‡}‚Ë¥)£H²­š2ùkþ)Z¡ñ…´\ϯ¤“¿‡å‰JH)Õ`ü)Új´eñó½5$1íjšôGCÂñJöó¨²$ìSjS/#‰2PEJ­$ qOÄg,öv Ùå좤m‡W"Ê·EèOYåj}ùœ(¾Ðøí:¾*=Ü÷¢œoÿºBó [A]±šlkõi‰Ò¿Ð0Òo—+ ®Ï“ƒìgßñ¨á‰«à uå¹ä-Ãü’˜­FbÚõ‹1ånm­n»/ÅÚûk‰r×Á³ÆžXexX(-»HéqP5Ùn¤¹Ý zÎI¢ZîZˆ²“N:¬œþHäì]¬.¼K<›z±µš´×kŸ.pÊ›t}-ð¸_K2yïÆvŠ=Ö½°:ñlâr¿y‘ É³ tÃÛŒYOU¬þ‰,ÉžÁ’ö)a¤RUSZZ ˲æ<Û+!‹ä¥l^¬Iy^'®àòZº­öqS”tB9Öšfìop€ŸºãÉúÿøZÀOÏò‚qe牛‰hqÏjÁ¢æ%éØ¡,ºK ÊÄ…¯ñ…ŠQÒVýö„/z)±+NÊöõµºÌ Бê#Úr´¥} 4¼ØNxv¨ƒh™6ñ |¬mvÉ:µŒ7ßl3ò‚( •X[=²f–;Dú¨…•b\¤:Njk•>&ÈOâü*K$÷!{“…á•"眕ÓS‚½(ŒDÛŒ3'zÝ¥°Npô6Â&e {ÎcÞœ¨Eo‘÷¦~`ݹÑç¥ô õÅý-ñŽ·Cµçðƒ³¯+ß²gÑæœ V¿}Ò¹ÃPñƒìøITvg ò”h˜¶¡uÐ0R»Û××r ùþ2i'µÝ_ûQÊt>Ó´å¨ï|[F³Ê­Âî%×V#Ìܸ‰Y7^i9гVâãƒ]/¯×dÍz¯u¾t¼X/ŸÊq‰~RG·ØM­Å«µ%n¯ìõöÍ#„‘Óö Ã.‘ï©ìÏ [&éú¢u¦½Ÿ·Ü7‡}#Ÿ…©QõNÿ¯•$ÿ×Ìþ*SÜÂÊVÖV¹6Éî¾öìÕ>w%ša,qêîQVÒE6ºxœ3ÑUüËøêÑÛûÐôî×í{»ª;Ž±ÙhüvùÖ¯:l$û¿m‘Ô¾´{êÅ“¯õíã…i›Çî@¤Ã2R”¬|Ä ”#0Í©mËåXa©Ýáê̵¿k$¬ðâ±ô‡WhûnÖy¼ííõ£7^ZnHƽµTÇŠ§¾©¹bkZ'­C§QÊw,ÇÅç ´¥#” û¼!ØñªuÙzÁ¬²CDüìxÑÖº,Ý/¯6;_h€ôKI®âµhJ®â_ ©Lµº=é?¿Qÿ¦|™è>rm®í´LlÆAðÖ·îÍù¢;‰Ü^ó Ž_Èþ½v?ô÷ žªõzêKÖõ*· ¯æ'šW_;:»€Šµ{ûx¿ ¬ÖþZ7u[7ª1š3àéÊ>dH#S~`­âkOpõm3àQ³ç0aÙs¾å×ñç¶=ÕcÆubáo›…Vû´sêZ‹v0\¯Ý´Ì9×wãþyKé.¥~dA ¢ÕÖ÷çÛ²ÅÖ%¢XI±õû¨€ÓNÈUDYhV"¥–e;ßáZ,žÆï:E~iž7_ÙçýˆÂ{/[eyåeá ñk¹Cî.”»¿óòÉé–—^Î诎ÿc!â liwY¨±®ˆD{ÝR|þÞy¦ÜÚWOMPníˆWj6½nʺa¦1’­`å”-<öª o¶h Uxí¥»½¬¶÷ʳô¥UÓ gXAY¼RŸ^P.r½)XÓ¨½½LNRu/îŽ/è:ä^™:ÇÙh|¡0í7¾¨léZæÚr·LIÚE.%ê=Í ÜÀ,Dåq‰¦C0âD{Ý(ZéúBÝH+Ç“¶ÑvÚ±óeL\j|Õ7Ô.çÛÜË£î^®‘bn™àwï­¬â3±ð¨k`¬ݡ…cØß{¸ÉûkÐzÌ}æò½wÅõÕû‰tNïÝÝyægd|›._3p×5çË­“?,jÖAMtí“ ÖäÜóúýjŒmËô©©/Ö¬øNWîs3§úì¿Wå™ßÆN¡_®mA°¦¹XÍ6V–òh*Yz*ÞZáy^¹÷Føcµí/$i¥å¹ÀÞkk¬Ÿþóª:^ÂʽàQ¤u}¹=«ñÉ/xCm„®dÊŸ;לÿZIKï5ø„c¦×ÕpÐǺIý­ ¤à‹Ü–Oý0Á úCƱ–.÷±ÒÚÒ?[¯¨¹…£>xWÚ–²Dë.÷i9”ÛóQZ‡ ^H+íίyÜ?^«N×­…–¹ï×~Žfmæêm 1¢Ú‰«Ãz¡|¼v-7|',zA¼7ß1eU^xKTY–'ì# ƒ É{n·°Þm7ò^Ŧ<ÆQÅ_ äÉàïÄ ç·Äk>Ða[àeYZ/í22|ÞqÄ›»p6Ù‰D\ûx~—á³^¼:Á"ýÔ/ PR†)³vqPÂ/eÚ‚Ç×8JhÎeš¶‚_ßV9­^~1ù^;­^"M™áœòˆÃRnp/7/:ïcn!un•aÛ¶WP–U¨?ö_näþ I‚[94)}n›² s {•Eg•¡>ðþši§¥Û0¶ì+czgì¦ÄåõG§Å¬ *ÒˆWÛ€÷ÎòŠh' ûãõQÍ3©Pc¬ýZHkÕE/;׋|¶i Ñæ/ûiQí"«ÕýX¿TiG=-«J'¶F>³xqûú¯­4¶mªr¦ó=zÞõÛë ômÆÒ|úÏJp¢ö…Âè/hxñu’û” <ÕééÉN?«…û‹< öƒºsEÛÌ®|¨_7‡g¾ÖÃâqâ‹ò¤I¢òÙsÃQK=säó¢ö…Ê-|ó¢uäkëJ³nîù ը«°ÌégkvñŠg¥Çç‡-ÔƒXäø´y³XúܯŒoYˆ¶ÅÃø{<ÒŠ¼ ˆ[¸Ùºå¶×–êÝRý†ç_]`¯î.<¸òµy&1i–‰¶¿3ï9ÏÝí|Ç!7*òÊÒùb»TÉÜCw¡Íð¾/ùàƣͺ›W.ú@/´§<ŸôS ÷ÃJ“.c6ö˜ÕCm×~ðKä ¾î…˜?¿6¾gqÍ Á¹Ü%ö)zkI» %SNž~Ð'xºí'í•)§GE§oì|”>×yjûÔ…–†ì]$Jl›Oõ»m·eNhXn¯b0ub¦—vìÌý ;·5Ñ+–ìª÷tºå¾8¾Ùà †R÷~L€´W“ß¼ÛÅ^HѾì¥îÝ™ *gok—ïEó ÝµrÚ;9ôîú”:w¾‰>Þo)ux¿¥ƒ–w’ X#*ZŠv÷A5,ItŒ¶ß€°îöWzúEã+ßjÚññyÜ®oq»Âã;ŽþºèKíÑí1×$'\Ÿmës‡Å+¿žÔ¹!XxuFk*óŒìÖæ• «¯Ò´/Çë4XëÇ ³uÅ»ÉÅZo@»O£e;Å®sß”™µ­™˜o}ËBG:†¬w´o÷3ÊBtJÄ^ ÔÙoñû”ðL×N%öTG·q[¢8¢ƒu‡ü Ò¶ì’ÎpPSäï¶Ô”ÿ·K÷lå¬Ûh®w"z½_P2BÁª/삇 Ïàe?J¢Â’,Oœä"!|Kx†ãY¸IÕy‘ ð–KŸ[ÊLçš#ÍêPep/“Ç÷’è«!Þ×bˆ÷Ð槞æ€gš^¹éƒ1jìõŒ·¥a…⻇Ñ…[—Ö8j«rñ;”<2—Ü·ÐA˲9ÇaÁ{ãÔIœÁ?½àÍd-¹½m´ã–Ï6&Z/g„½®µËþИöËÞmiTÑI]õ—­%=T¼’[ÖâAf%:=HÝ'=+^E5lÏqy:}R²O„‚Þ“DŸïñcD9Ç+éÚùŒ(·OŠncϸè6ÆsêX.ï‡qvYtû‚óÑ¢Ûxj]¾ÃÂc¶?8´þ§u—ÖÿŒÓ´úm3¶5si7«ãºÃ#1¯l’Rïf>Þõg-~ÝÈ4ÆáºY¹ ®Ûúk溇¿æ/ÅsƒôðÊüß{´/í½¼(L+<¾¾®Ï›µ6¥œ¥# \3÷vâS—¼éóô4ѤKîêq¥pw©óF¹ìÍ…?]!RÛó¸ýOz0²‘i—À~ /¬tNÞËÅÚ뉄_|î¿y‰Ý$N— 1:ôK±–ã»ɼU°¢y5 ø<ß5×iwiJɺ²ïäÛhwK ·Ñ:/·.Inï™ÁLô×pNYò²SwÖ¡ÚÊRÃ>ÜÈéü%Z¿È²´¸€TMÙÀÁ×ÒÅr_ýŪjÐ[Ò­ún[t·ûrÛp¥¿[1?h÷£t[{ͽ¼Ó¯MÞÜëïï†K€h5ë(Ÿ÷­sDfÚ—z«§óJH©ùÒŽ4¶¹xÿÊrh#¥© ~¦ksyO16ÕzÿŽÂ«”}Þ¤;œZAų#ó¡÷ñŸ-M ™C䇎GG!F°'ê_hÓ —ÏûËâ¹2AË´¬|;h¼óÊñ{yˆý§ÇoK 41o.v^+:åÅ˵ktõ4¾î!ù¦¦°¯Lçîe)’hq¾Åo-uü*àÈ…õD'r)¶×ð,|úv‰¯Ñ?+%”rœÈ§õRYv K¼Û9ËÊ%¹‰N¿£\¶PVJDFN-Ð)Ç©OSÃŽ|ʧ^¹góûÁi=\ÜÜ͸Øé>”¥äÖúB r£s#4ªßÞéÄ%'*Bï¡<xsÊyõ”™iÊ×Èá)~i¿éE÷Akyá|ºsÍÚ"\¢×ÄV¼t*h„4­ùL9-ö¥U‡UŒò›wò@äÃ1ĉ¼–ê›VÙµOþî -§tø¯] Î 2èµ\ßuƒ"y‹|°y—j`;muPƒ3¦sIΗðΊK'PÌðkc6]Ëûsºî™x´kÒÝ3ú¦RŽ©’•~ÔÜ/îç,1wŽ/ÚêwsËÊfÎ\Å=¤á @þäËŒªKðËñ®R_º[„Ľòn2õÚw‘p—n«-æ1ç:ïô\ŽøÔñ»†åÑø¢ Óp•ÌºxÅ|—8­‰nòÑzëæwS–RŽÆÞF“\Ú«žúÖhÿUj—m]yò ~ÓöNÙ_ºj¶åóµ÷Ìgwî–äÔ*Ço}µ§¹åÑ>úŒ}×¾Ù5%¯.¯<5†i%ÝŒšO¨Ç27t,¬ör ‘:à!ì-øMëÁojÝ™s Ý73:›åþܵøw£¯å]Þ¸¼î‹ÞI;{“;×ís9´ÿu—Cû^:ÛÇóñº½‹—àuKÞw~ÉNÉšN'%¼ Jâ_:×$žïuÛ¼™©7ú‹Ë×-)7iUµlOÉoJ+ 77}öü—¤JJþqIª¥U=¸/4HÚŠ$M=DíÁý¹kê¬wpÛîš÷çMç¬Ü;Bnˆ2ûëÈg˜vkÑn ¢Úp«wpÏÿò¹‡kN\:·Š¸t_úKÊ+wo‹ïÈEÜ›Á¾+7T~͈ù.ÒàÎê?ÖdÜÓéððƒúî?¾×9¿2ã4Já3 â_}ë­‡3t æ¹uuëâ7_#£$uâ>_¼ËÑy©ïêHB¢i_Ž ׉R}õ´–àèÎŽÅB~õ-ùбº;„ÝóSƒm÷\ûæNê3b¬vüZÚ°m§Ë¯Àtn^±uäMÏdþ¬öÖ‚j²*ÂÑ.É¡Û<ÚAÙk’õó=nýñoô+¾¨+÷Ƀ'x|uP€èá¯Ä\òë“~Zܯ “hAÙÈ5 Ì1_­f®h·Õ.Ñ¢W:Óum?hf}ˆµä¹ß/V$+]º;Æñz8ë%%ò¶_Øì+u:K¥ºÒ1¦?‹ƒŸ4º¾_ìk®tïî…DÔŒ =¾åJã@ݹ$eÎ7J黥+o<%í„6Lûô%þ«ÐœH,Ýè§=+¥µle¦i¯èèóŒáÚaèD ”´Å”…žËv(Gzˆ4/÷çý}Õ±§¼‚[p{$2 egéSW¿HL«w_Üø:A´@Ô所¶Râ<é¬A/Ùc¬ÅAPfùö±£·Òá-ÑíoIÎ)iÿ, ¬r¥´©C¯¥ã’Z‘”C_?³?ûb¿Ô¡œî©örwÀìÔ®Xæï´ WÚ—'_(þFÛ¾¾žùNåKºU9‰J¬9¶ŒoðÍèjFjŒ’¯Æg÷¤<ž–?h—y3ã³>ÌMùjô‹ÕåÊóý~qÇl5æ8¯ð=reXv´W"Y²Ìü%;V«Ý¢½•ïí¯7(åWu:)iG\ù…1QzþîÌ£ýYüUï]z€R®ÂWiavŽß~G–÷0Wc,y‘e5Æ™»Ô§–Ï“ò%»ÕúAùÓåKîÏœMì®t›>Q5­p9¾—²õÇcôòÄÙ˜©~?(%ÿLó¬³!œh=(û‹oý‘¸´…¯ON"=¡¼Èu@™¶êÌ ÕΑj"i©›|ÔÒ›_Îœ'Ä š·¹;qÞ‹oYWäù‹v®ÂÊ•ß1F*ƒ³q÷ÁÊ蘿?èažls5µr]õ¨÷Êñ~a{¬ IŒí±®ò­‰¯bZþšœ×¸´€³•´YþÅûÎë"×Ü@ùA©¥óïO[ÙÁ]:ßìlÿ`x‡uͺè N$–^Ú¸ As{öÉþlžË´)o–u¶föDczŒUSi×u£³ß.ôÜí9¿uSöDCvÅ;CkHîhæùWçh;-EÿË*™߬ôKÎ-[žv=–"û<óƒyyÁ­²¡ þ-IÊ- j[°ªW^ï…K·Bûs”õÉoŒPZI½poi)J}bIì§|nD¡Õͬ‰‡–û¤ô×ùu÷ßÓ²ªåøq¼¦où[Y\¢ÍÕLÑìBôš•ÏtŽ Ð<ƯÔzf7(dÑÞ‹Ùö“‰ëç@oºÜ;Oãùæ÷¸ á=ÒØs+»ø7øµú qëVžæM·%{¾½½U*cðÔ(I«†êN„–•#=ÑN¡4 ö(þ~ëb•ÇmÂ¥—OÜ¿¾f ¶öB› éÛbÚ¹CíÕ¡‰ËÞeì‡ú 9©½¹¼­Ý¹)”´’îHÑÑ,E'(,—“¶Y.ì— »lIiñÓ(®[–¯5+]^/¡'“ör+¡e ê‘TËùí™ò ó£KfM1¶}t»–["hQ-óJYoØðƒ ݹnš¨»?‹çV/ÞûêþF)Ž\åu.DfM4BÓ5Kº©¯¤oZ$ÊåfÍÖÑËsfSsÏŒôyó°.ë‘iKq}¾ùŽåý­™.¸¿·d›å^ËœÝrä6’ĜລÌÚ7í‘ÏðïbË*j y­2ç–ís—­S»aÙä4¬3(e`æ*‰‡Þœô 7eædmÊ-š9Ý{Dñ™S’:áb[¶X6®GN’º*Å2/Mf¦Äîáý“'çn[ïI÷×"ìÝiÉ/ðÀFó‹òÍaï¾Ü í· ú8öq ^õÚÇ)Üš\—Wˆ]|ÆëÒØ}Ù cŒ»d#VE×~ÔMî×Fíw¾NP|¡ú7Zå :r]{¯?Ï™þL?sr='«nb•ÍVbwË+Φç@êáÃ6ÇS?öƒçðšï®9ÐÿxÐÍAo³»??à«úŒÝè´gøìÞ‡AŠÌ~[Ý Éuýî•Ös\î¯N‰…ÔmóÅ¢î >Ë_bWqsŽnΨ”ò”Èç9àæý©ò`á)Ÿ¢<«%þ¡ýy!y6í`[`]–:«ør.iÖëIKwÊ_ØܘÍò{Z#Pl'w. o»xˆŸu¾Sˆ…íÛ¹x½íbNb^Zür?£>‘¸ ‹ ˆ¹¼r^Z7<=@,»¹}K+¯Ù國qÅ‹á§HOúQ”“>Ç23B¾‰vÚ.R>“u; sªŒcn1ÛðMŸòŒîûÙc­ù”ÇK‰åª$q ²Óˆ9¾”¾=/í™ä/_p6óð¹jÖ®FO=´˜Ãâ˜=&…Þ-ïÎNÍ9¾ÉSTbý´s?õÕœ÷ Ô¥%î6 Nq2ˆñã|næ6ç~£Ð?ìÕ½2 œÀ‹c¹C58¿LÜáȾæ¨ÌÕ7Ô~F;žùÄhªŒê}õclÌ}þj÷P…ß&s¨V·[iêåÕ²Š¼a§yTæ6g^£×ŽªŒõº-HZà  r éçoÙ]áî³SOiôCíh¾‘âÌEh¸:¼0£Eì²Q§QØ î9^Ž†´5ÊFë—ÍmâæßhÌ6nÆŒ†DÅÛëh^CJ·µ!Í·ô\¤Øn>I/ /Û”îzÉÒ¸!ÝÜh­zÌeWÒ\¦0áÀÓ¶Í .¤¸õ|CåVv„¾ËëžcóžseÆ왹é î:_8æ°g™æ{5 JIt÷"˜‘!E&¹n~làW%ê"Îùé‘c~fn»Ó;B:5sYzhÃÏà^åpsSz®à&ÎlÁ-kŸüFýg´ÏœNÿr€v‚ö4íâý¤5WXõ›{Õ•3üÁî5Pi•“ Õz%ÎrÖz)n8àÐ>P7­VLõõDù ¥7Úä|µò:ùnû˜ð0!“¿B^/ZvOGl“6©Hç¬Rð{xaÒ$óWÝÙƒE%R¶ÒcU’}µ£ŠÝ{ÄvÊx;{ üN»s9\^u=‡ÏGÕ¹FZ&šü¨Ðá;eÄÝÞ…àý%µØåÞº)—Ç\$MµjYºg)R‹=ïžIZ.Õš+~Y<×E[ð_iî×@²x6.¯ûwÌJД ZyäùìUnÛá¶ûBºÝ…ƒò S~fÔ3ó&#Gg«áø:p¹gk\ ù1Aò&“ozmiÈýÂ|D$ÃàŸ8ZlYç\yò­–(Wø'â_µÌùöO@ ="i-«<£±e‡#•ðr;J±M€d,ÌPî\ŒÂ< —V2ÔþF;Þh³KÙãîÚd×­‰Rí$í¼{*íùsš³Ú=Ÿ’Æ­ÁƒÝ#”¬ecnéD¹`¡%VÖ%ÝZ´=¸n54c5JƒpÌ=µêXßú{öÌ:o¾ÎÕ¹„îü%ƒØ‡*X Yë·Ìw33¯i$^¾ù™”f©ÖÕäQoÎÊÍü2\¶Æ²ß²¡`)eìV¯sÖ ,¡åµ&ÊFZ1îY«º†L9o½fÔ]8&z4ïc+º„öèÏÐOɵ ”ÕŸ^IÕ»§ZµV) RÚ´\•‘Àýªí¿Óúr[Ù-ë„&6]CË®žÖØãå•^Ægò…^² šNÄlUpÏ=W­cžñö­êmÉLl‰b+÷i¶€4zÌ6ŠÔÀ¯„hÛË«ÝÚM+ ‹Œûž#a‘¤&ú?#a_/eøÌ?óÞlpŽŸyA>v öå%¦†vÑ®´¢ï¨v–’¥|GÊlj–ñ<6ú e#¹œ›Ž÷X²vù¸×–9{‰þjÊÕL#.­,Ä÷*Q{€IçÀ„‘‹úe¶Òiæhí r³–À¯Š36×Už9ZîhÉ„O«qÀ‰¼'¾”uòÁ­Ü›Q¥‡H´ØQÜÊœŠnAeíï–?¹È)ëZuÐ.®oW„7p!Uù¦Ú£½ñxK}æ«5hŽ]ÆXÒÝ5`î÷v¶˜\[æ¯ægk+Hëõßt߆žîÜÊx¨ëœ¬´5Pqé·‘Oô^Ÿ“ﺾOç:@'½^¨©<èÚ#¿˜µ”㪲բЙÔ;8¢Ð¢òàÝ$2?sc<ã¡upCœ ‰±âTÔÒêÍYq¾ä›ϼƒ{ Y§TÜIÈ:Ï:lÙã9xp· ãUØs/ÂÌÑNæP&ßþ˜kÈ@¿å" âšÃ¤"×2 vø¾²ç7b3'³#³&Pÿä=¿°Žò`v­–å“1»V7ÿ³öÇc!ÃÛ$*Ç=:8¸:[ÿª¶!D+ë„œ´«Í½ð¼¼rŒlKMû‹)¡ÉŒ…yÛöÌíS6yä¢z3Ïu.%IîôbHqɬ)Dï3Rx %Pc¤Î×S3 )t²©¾ ÿ+ù†vPF‰úPÞGFFi_?cÉKWøtËØ«›óÖYtXœZ½ ¸W¨ï•Îù¬’bfG>mÏäá›Ý™›F#KÖ¢ÕË]k+FNº)6a>eɲ´‘¤Z:]³N3“xû6³N§%±õtëÉnÚî¹Óè©ö Uyêad{Â"À»‹µßsäË)™8¸y‰ÔãÑøçfr&Ñ9o̼dé§íHN(ú‰ÜâôàºQÐ×îÔjÚ R™Œï¬Î7J-ä”⛺2×xsÞO´ÍŒº­ÙÃ}ñ~êÜ?s ½ŸØÜ4ï'ºW'ýÔ.jž¢ŽudOùFjÏÆõ-µ¿¡ázž«Ï×ìúü•Ç¯GµÀ ÂH¿£¢%Cš)ay 稣϶~íè&¬ü8Öü¤\‡m4á '†æ’†glf¾yx‚ïyÙ'}4¤ål»µ»XnvÐÅ/mé Uûdt£öø¥×ø¼6í³ªë»Q>ß÷l]É./|5â*³pöü $óÅ<:Í‘y”I´SÄç|Ï‚MÙ9vÏÓ“™55Ñl÷NÁt&Ê{r®Æù™úøö ïlX’Wí":%)IvGœ ””m' ePŒr!j8PC;Ÿ -þm䄶àžlÑþÕ¡@Ñ=ò¸+¨oK¨èºïwâ níwëŸ@Òr îY´ÃåÂ[Dâ»fÍB|·ÿö!.ÌPvózÐ6óÒ³TåSù]äQ͹AUÈCß¾­ b¾à›O.Ä÷j«ÏFƒ»@æÃÎ9iá=H<{‚ƒgß¾i[öL8O#µ‚Êʦ¥”GZ¢|åšÜŸaK÷Ø6ˆÚD 5»¢M‡Ç-9ÏÄ Ò Z¿ëæ9fTïpþ]z,8%Ð[¯öI¯¢5û¼û¿OÓ­¹[in»Q{PV•/õGîpÖ]vv=ëÍMÜ.’”íÝüŽ¯›«Å+-öj:·n ûÈ}È‚+ìV»O[ØåæFõæ°ë+q ‡ñ—¥ÛÑáåóåo¸ž÷]þÕWϘ@'3«Rº,OÑÏÑAêMX8á´;ànŹM'<Å®~—׸Àç¶ Ë1ùŽ&¿ó9Ö^á­í¶öÌÇS²&äæ4 •7ÔžómNëvH^ž ì‡|Ú%°_⥽”«á½ëRÒ´E´¾ïÝ›@Ú?J¢ô®Ð꛼whïE›Ó®^&6»MêmsícÅQtVw4Iã¢]£Ð,¬4yRÊa]M ‰Ÿfí\Òó›èÆEÑɦóaçÚ(ßåm¶^¤J«74‹öQ²µPäÔÐPùÖéè2v_¤Û¤¹ËÖ‚Öã¥ÝZ<ôe~yÏïÚª?£Í/kZvw®ê©W¬ù*=¼õ¡°Pä1ÐÖåñ­s7=?øίw»K¤I–/û.·Þl’íȺv"h“d³ã®l ¬(™VeF*ß‹s¸›Ù}Ƕ4I,¬¾Ö­¿6iKd”†dç-EiÒ­q[x…Ðýî¢p7»x‰— ÔFûÌ û†;Á¥¡ †-ÏVõ+HÆÁ·Ú¥<‹ÛÕH- h£¯ c-ÆãÒ²û±‚’{òk±ÐÁ§äD•]¾®Ú—‰3®_ë–ª_.>¬²¨7ÚiP¢K•ls•ÑüKä1•ú ×fZq_hl½–47òJ¹T}×ø6¥x©rÒ‚’™Gt‚~zVVÙH†•7”ßiù°rtÍ5Uß%­šy?Š•­j´ò|Ú%.Îám§í’&»¤{V³·…LÉo¨Yú#oˇ—Vý´NhÝûg ¹ª¶rËàS’ ‹ò†­²vKõmÁ5õÖÖ ñìak ïZÇ°‹XˆçuÛF¦ìÈ©óNXùOM…îâ•i/xP ÜÀ«t²Ãî©i«$N*;wºKgçŠsøB¼ŸÎ­íÂË…^±ÌñÌÖãŒþBì V¯hx×Ð+6'½&¾K|»ü°Ó:gûÔÞÐøíùÈ)óu³\ã=F;ZŸie´¤Óƨkì$í6jï¨t${E¾ð>«sƒÏãé;t…à­…M[M;Ÿú¬²bæ¤Éuh‡k+ÍìྙgÖ ¾Åf½ز¢tõ–¬ÍVñLL’h•*Ý”M¿Š6¶áãw’XpzƒxµÝ»GYõ”ª¬1¸·Y8•»%}£Ÿy¥¦ámWÈ?úž± M¿çHhÝôä­þxÍê/Æ;æO1?H·³ѵ2\¥ëvX’ŒÃ{«ŸF~î0 ­öi=ÞàYÅ_è±ÚåÍᵂ†Ž:2˜WNÖ_œ~tß}-œ±õÞ¤Á¸ÉÐ;#uZÛEmN­°uFZ¸§ß;<ʼn\Cà i¯û$åÔÎå„®s“·œÍ´ŒÜ©ñPÚ|mÍ~v¾U¾vÁxܲ…p£üNûº¿áòÄæø½ÜáÀ8Ë+£Ù ŠÞl.3ÅøЛމ»cy21–H³>îq ßwVÓOœ6PpÓx¤ÉÖÂ2%ÝÍË „÷F…—`«âXÍ‚7IØÙg{„$y¶…¥u·¢KÛ¶à@µç,•ÏkTkÊvZÆü>m›GrG«±" ¼Ù *[ç@iÙRö÷C‹‡<‘T@‹·l«¾"±šóH3ÕM²-?ä©÷5µ®©Ó룆ŒÔl-³¬jħNƤ‘O±æHà“ÑíÔ¹A›“ù€Ýn‚nôVÌ_ƒþ‘–®Üfìq!ê 8JºF»&Õ)äSMÒžÚ­Ú«%ÒÐsW;«vuªVU{@Ü)®±;Tã $áëËz´jÿ)R/¤¾ËP²‹å‡µl©´iÚD­W‹ŽîMа¦ Zì.´a=¤ ƒ²YŠ²ZF®Ç´¾³Çñ„R:uR;éÔ¸±R&³©aÉpêÓZ…Wm›Y¸5ìÜü´…×læÕH÷ý÷‚÷Ã^™Ý§Æ†•5±)º_|•sØr 8v¿<"î1µ4–EtÆ7çÜVÞ´üKŽ½…“Ù[T>3Û¾M7­tC|#=$}û»­ gzçÄå~HáMMÏz½ZxSÓ33K§ÚIƒß³îÛ,…Wu;•Ùí_bÏfï°àµ´gÏÜßÝ¿Ržô]F è.@ÖhmTL+,ˆ_ÒwÎ׺avP¥ü”@‘Ö]Õ]?ÑNÜ‘Ù­ò¾ndôµ{éO|’nÏ|Ew r#-êZݯ$.DžáÅÚ<š«96i¼ÊzÎç/=ÒÛbw ήo¸·uÛô |§þ©ð$=‰Æ怉ÍÔáÂdkªØ²à%nç6{Á³±×3cZ>)Ïç\:ž¹l«ªZ¢kdcãkÂ3ûÜ2 ÛZé·^âU[祚ç@óúR·5–¦F‡ûÀeÒ3­n¾BÿÅ؜ҧ!» ÚrMyDë7´L=Ú[é–«mËkÕt€NPzjtÚbù‘®:9ð[iœ˜§5Ö¤tÒ‡èk´€[ßÅØWÞZ åE+©ß^O”Ÿè²RƒäY½ëT´¬ÎRc£û ¸‚}±Ü‹:IEY¥µX&Ö"év-Z»—yuÓ z7Iûýµè[9&åóŠoqøUÐiÊ´¥p-Øñ“@Ã(hç¤Ôú†²óY´Úµ‹ðÏwoÆ–ÝçÛ*É´EvHηbí• oª•÷›{¶D²Nx*/b:~<+ïO:êá´4Ìݬ‡âúÁÎ'‰ghwzðLkì•v–e’ĬܿX¡1®ïÕB|ÿV|ÝöäÙ¥SÌ$îª|ø¦4IÖª“Ð$Îê¾Ñ‰gE­@ DvO”DI)ØIN-®ÁU×`€3©QóÌ/Ñâ){´°[\É’ŽïºÝæt÷AwR¨Ò¯'è½_iñ»ƒhŽ{´&ø1oo”ßh‘$ÎéP}àˆ·òyyÕñãµ9+ÁY§Ó†-R¥ÎÛzM–|Ërnîé(³ñ¶š_DYÌuií Zà\ñ5ú…ûªi ä 8rIž=ó¬P~b~VÛÚ¯Ô š ˜±–g‡,YäïÞ@ó»õÒõ…´ñ²€mž«mün+%½¶¶Áf±o; &ö0Ãèç¯67WÝb17Wä‰fWì >Q}νš<Û„Äù¡…²WK*GMëD$¹î=T÷÷¥:þjÒª+(e‡«ünTH“õ3d¼í VÝ"h]ë+­µÌM9Ýu_}¢ Ø~ÖcµT'GëÍúúf-B>ããce”Uƒ¦QЪJÕZðä{—”HqÞº×,»€•XœÐÖa=§^4¿´W¬á¶f«òqlÍWÚ³V¬¢ŒÑh·NÔªI©Ú·­o¨üŒ6½è‘«yXçj±ãýùa!´pÂF Žö¸‘4ñÆåuÿ²ú—ÛÁ6Ñ>M<Ü\¶‰vj¸ÙW\Í9~ÕîÇ¡ÛÞU;'Ç*G{«¼©¨‰xh¿§®NBà]ß±/ÒxýQ9«"@mPFy½PŒA^¯ÚOh»mž°OÛD3s¯Ååë Õû—²Nòe„ùžðPä2͵…š'6·jÕF'“¾…Q3}{ 'ãô˜5£‘|²ê¼ñP‰BX"¢Ýz'KgFš´¢Jvmž©ŒUŠ™Ànï·<ÛìçÞ³Hv·Ez–uˆÌÞÙ){õVèGÉÓè7­¢‚nx5­VsŒÛK«ÓS4 1ŽjÕS¨ß¿ƒS¼>ðÑ7jõNë[±fY”­¹MÁ©ìdËjíMâ-¿j/ŽøCU·*ü êœ+©ÌÓ¶XÐjo|ç„Љ\‚wž3Ks-ÙŠa·M'.²‡4›dIµlŸ<׶í¨=In%Wí‚&Ï ÿ’þOq…î$¤é’͈†n²•×µý˜¯ûûM§ùõþ%² Ÿý@«H«ù¦³çë!ŽÌ¥'$óÝþ N÷Ü=´ î8´³] z\² ߬¿UwG[­xæèÜr“T&´ëžÝÜ’ª•À뺤{dz~¾ÃÚ1N ¹?Vu/­#Þ;¶N˜î匦©Œ@~½Ï)f™ÎƒÂ¼ýò†Wtr¤ºkŸèðÚ˜ˆ¦+ôl|ç[£Å.çZ/%rùH|—§æ;¥£4é jŽÏª€/芴¥e4<ξPóËÇŠ/,‚>*o(½Ó>òIÏGIµ.©6Ô-}|Ö›•‘ß’Ö3"—­÷¨›§‚’U“8p½Ýs)ý>NÑ*oœ÷xAìÖ¹cØjí¨æ÷Uk¦m®Å³¢G‰˜xo³•·½Í7E+¾µñŽ*ïm…ô°+,;¸‘ÖbüóW¶‘†¨€ (ƒ²~kúë|Cý²8Ry ö)yßNÙhaƒŽ5PÔ­;ת̣ R+…4'5•M6)ßú’ÙI Ó@ $içåé\…Ê£ ÝRªDgÝü9Æò–ÁC+u¤‘NMSö˜·×ÞUЉ—Q~бC–Ä7í‘ßÞ] Öcï=?¯ç+èm'@ü¨=ƒQmÙ 4G3'kobµ4ÿ2ƒ°$LY‘'i 4^Ï´ö3Úzçƒ?~—qXÿ«çBÏ|¦OdêmBjKE^—·rºgi-–á1<·û-Û=ïÇ›¼–AÒ‰’ʳ!-‹õ…äe¿k§½réÏSRA>j¶|fõdÙîçnw,˜ª}vi,ëöɬ;tËxkö/â–wŒ«N¬ÛÔ7NÔìl}¬a vú˾~Ý°@Úº]ÜâX)„ú”˜ÉÝçØ) /’»Ší”È·>,“†7JY&{æu`µuïÁ¬xnZI/7|^VÞu7ß›ó¨p{OÖ ©æí3ä—Ë(.£ÙêQ)²Ú£¶Å%&ÓR&iêY êaû¨†7‚v¨׆ ꆖU©mµÕ©BK{Z:C«f4î½ÚFÛ=VÑ[“ ¥wÚœM[°-Ò]Š-”ÓÖ‹ö§ÇÃ&X(è»9l½ c-Àeñ·1k³ÍGs'åÆ:ßh;iÑ;Ëùà;»§BÿÈ+÷w§˜íw¨Í7o”ÓĶ¸µjëÎwm‡UÍ©æ´=ûê´õ´K + Êm׶nú4û§nÜmD³oÜm±q² ZU,Ša¤ðdÝâ¡a ø]³$Ãnt7FñK·êÀžl“œ¤•X»ÒJÉùŽ[÷¬º[»E;¤ù”ëÖþ!ú&¹ý¾Oß²v…ôî×\Îë†OÊÆß^­øõ·G žY7*F¬zÐhÊ©ú—õ^KÙ+‘×]§¸g}éµ\u¯æ&¸ © (½ö*s¸Ÿ%Çbó`¯Uyki™æW‘^Ù¡d£A6:ßh‡óÍ ö(exî5ÛŒmB¯t­Iª, 8Z6ªt„ì…DšìâŠæñþ¶êɦÌ„ Ê^³ÉÆﯽ‚Ã[þFý^ßàHÍð{¿õ`k÷ìëÌ 4#ß垧­¸®¬”[ñji2û潚³ÇOË|Ç·|x6&d 3õæ̘qâ®D Î[óù†¿GO3•“šÖwÞ«³Y´UV¼¬°†·ñ¶<:4ü7Þð´šø¦—‰> TßPÿí|ä“ᦃï]zPÊ.GªVÙÞ±gr ¤\ÅYÈÕ*®ƒ'x×غ<¤´*=©k·NðÒ³ùåG#ŠfëØ7jo¨þŒ6¿å¤|ƒ»½_¥uNèÓ¥µµ&âE@Ò|HéX•UϼR2 ñ½J$šY+MÞVÀŸº(y=Žj°q 8F»õÜLn¼gË'Pz£-Î)h‹9A»ü Å.å\¼qÛðך(‘ÙÚƒ_w×w¤Åk׆§G¶Ã‚åD½qÎ…Ð ´ú8Ûl¬cBˆ6Twfsi…•¯~ùÌ—èÅc…ýÜ‹GrÑ)Ôv‘PWa߬ ²%Ö þ=o‹Ÿ›8 ¬û<Y áʶ@it@É<°ç`–˜KÞ¬4F£±Æ«PPôÆ´Õcu:5úQ{!Þû .“µÑèî&C5ëÏñà=FO´jý’´·FT‚Vô¢®ñ6¿ÅmŸ@”AÍH¿-àDjz î|á|Tìœèw—Ò]ƒ l¦\µÇûTË{+ôtñŠŸRdw!8¤0š…9StŠÔ¸ÇD5ePÔ ð ïsë¤tÛÎ74ßh%÷ ß™¨xö‡<”÷:Ïv–,x+jɱ­7É•ÐïÍ–ßìY.5ÿª¡¨î»÷¼$ ºK金6æì¸÷Ç‚vxÿl’:AãæÙnËŽ××-Ò/èÍÞh§÷ìÎ×õ7´óÕoË[Nù.Å{M§ ­º§‘×¼ÅsO4ÉÇá´]'iõÈyÚÙ{ØŽ‘Æ…$éQLÛ2Áë|Œ^ÿ®4æ‘jÐOÛ<ÌÈÐJaHwÉRÁûhkºÐ85´Dð~èa$‰PL;‘J·DÐ/ýººi‡¯27µ¨uäS»†¾íÚk)ÇÒ¶]û0øàíÚ¥‰K+­Ò0ÑÏ]{=qHÉ¥hÿ(ëÎEÓž•´Ñ°¬Aæ|jü'² ¨¾¡­y‚>ÎÌkâ¼Qf æÚ‰VíRjÞ­\›8«ý•)9Ç\áÝTãíA›’lÚ)lø–\B£qT³¾©¤“÷8x§déÉ;2KH¢O!6-ïoÀCô›KjKpíãlÎ5[a'…×Ԉ͠MÔ=ò9hÕª+þâiqðÊ_–'ÝoÚÝßã:PÜÓk£=íN¨›oK7íóâ1ºqÞ²j€dÏÑ&¬TN¾YDmÚÜŽlÃS&K¾…h×ê9¿„ ýܽkq“%a_è~ŒoÀ7^–ïTd‘²;é„·éT%UU~”ÑýKõ?½—XÝ”…ß™2¼äß•·\½Ê{ʵԊï¨ë$΂›ß캲WËí$–…w»|²Å¹vãÂîƒÄw´ñp¯¢³–Ì©‘c­¯{HÉ«{Þl6î%˜?<öàÏöÁNåÝ9Ý£l¥3(Õ¿»{m¨|ª¬“n`40$­'²ÑðŠâ¼Ç³«Ö‹™‘,¡emfú³çÚ o‰7o á9…T-ÇSZû%T‹3–‚ÅÌ}ÆíëÆÍ Ì« ì¶*=$[é1;¦q?«á?Å£D$ˆç„V›¿8Æ÷ôk Ç HRŽÕªkjÍÕœªAy“²Òõ­·œ/zibÀëHkÉC[ØJµ"j ç,“¹V–›_ÃY×!·Ì|Ç(ôcŠRçÖ´iOp}=Q~=u-ºW»ÎñŠì x˜§uPUd"úW»wÈÈ…hµ;‹ÕÛ]»ÒxAçríB|dëiÊŽ\i^»n!$­ê¹¸šŸÈßA‰ÝÇò'u7%;+;WÝ-Èò½äþMÎÏ·½ÂMX[(x!¶…r 0ysˆëˆbdŽø¶}²Zr48*¨ê“Ûï.é OŠÊ#«&ë[{\îÌsµu1q}Ç%IzvH£6®ødŽÑZ×Iàq8ÏbÚ¨?ÒàF Dó2 |!¥E]š§ÓT&iWí8þ{¢aJáþ–Zw®uÎëB'ýu©Ü†ärT ]ÓÈG”i}÷Æíöwp&5~'ÊøVŠêÕÊ™×=õ=uvçš©y§v‰ºnTýKFõ‘Ïá\ÅyJ;Í'CµG©Þ’fuzoŒwÑ ÷mÅÖ¹mÚB_%KͼûµáɃÝÆášF9hÅgkTÜ8@¾O‹ÃÊ-ÞG/Þ nèš3#¹5Ó(¹zFR2¥±VÁ7{#O#Î@;¼'ƒvÈ./Nô÷±6)Ëü¶d¥o{`ÊFb'Pº&q‡fö7{ ãq–«ZŸ¿Úó#.™}'kͳŠ]´†y¾zíRÞR5[ÒÃØ¥œž“Ô@ZÉHFt¬… ì¶ÇHiš¡]+4êÇ*‡È']çG^çôcX3EmmóUÿ2dr¾k¿úD÷©Šü•vÝ·â z×î}<k]'ÞöuÐuK:Yw¼ŒNç#Úó-§Ó¿ŒR¦ëÀâ}»5ïÛ­ÕŠîƒõ¼móÖˆ¬×–ø®OÝÏA)5=ÐaíÝßÒÂBcçj©¯Ûjí' !ëiÏZ7E.Ú>hÕFÒÁÆ/ýŠ7/o6VIÕnôÊç ¸ù—Uö:€78Ûî5Ù&^m®‡­ ÂêГÜz™^ñ …-A_•Ó¥¬\õN—÷½ ÛHpLQï¥f²hæ¦Ä"ÍA©ul‚²ÙÙ”óƒ2+O¾iQaõ—‹Ko/¯w»vS³n9õ²×VHÍ»…öÒ ûK¼BîE'~ª¯ût Ù–ëÑÃûì áTç^óy窑ä‚çº÷YF×y“j«W•Ñ–†K§ÌŠ Õ¹GV\WÈWÈ=¦³)|3‘–ý»ö²Ì¬ŽÀ€À«ÆI–œŠWŠê›[/$u"Ö©}ZmÈ®HÖ9aVnPs5?P%´Ã‘Ïú–åªïü B:Æç£Ûo¿Ý~Ç ÎÔê½3dÿwsôá•tÌ)Öe7ªo´É9)u>òÕêE{¿?&\Ëm½(-fPÚsŠš¯¬vp:^Á÷^Ï¢½gÓé@’켸tí¨ ­nÔÞPým~ËIù†„Ó´ŽwQ®ö/^&º"Wx[gï¼®I˱Ýâ›Ó#ΫQNµåz'WnHà¾'WûíÆ¡Î…WÍãP,W|fã,óD#æaèóuÁ2¤JÈCžªx×Q-5VmF±4ê7*çý;Ëm®pºý<0i¸²‰ÚóC”Ïšt½Òç’fÃÑR´P:v0çYƒñº€«˜ ‡V™§AÛÝÇùu#¬>ÓêæÄÎIús°bP)´knKc²Jÿг‰\´Öì–¥_áÂr¯´¤üb®ëœkÞÚn–ù~+‚ ¼eÑß2óo^çJ¾¢¡xÉ‚+Átzlßù]¯ÄX't|óZ¥ã»½9bÇw°WÂM«ëeKàß–Õ̢쒉Œ,g3u2ï»VmÖHÉËÝ¿DÙ—Í”ÈáWéæõ=øÕc^1Ó8gª§âêá rk Í&îÓv<2Öé?'p•÷1¿ñ»\[kÿV½Ûi)\Á`Ýý×î5oÛëãøz®hâ&öŽšV§ð(ª£râÞJ£PÇþjÎaX;÷{…¯ñ:¥o«¹õ¶%¼n¯Z ,b²-£¶ìžü˜ê_ónÑCFTk>µ's¹' ±0†Ò'#ž­!4³ ©¨/kx‰v #Ð&ðQá{ K¬M³Éò+!uÏ—­Âzîº"£‡ì×Órx¾l¿Õ±mäêôy¾e]•TœÏ‘""À–ÉûŽô: ž yËv^·à.2Zµ9*Óþ˜×šGÒ:Åý”²§Ø5á$¼žÃò`Ï)fÙTKVÿ¬Y†EU4Â_åÊm&\åÚÝ#ì8Wn(PêB¬±O¬Ÿ÷®ˆz¸3X¶ §A[Á‰ÔüDo”õ-ŸêßPr ‚–>—*î—-áÜ¡6½½ê¼Ê¨ é62ßkŒxéQ}‹Ž`L¹6,Nwy6(T!òáûÜßOšæÜ„2(ƒsÞ-ðhæ3ødWÙg»Ç8Pð§WʧÐâAίxˆÒp쟫c\õ“°iƒ4jwʱhŒ¤<»gRz”o.:÷|‰|=—¨k²!Z´·Pû˜÷Ì{&o¾™÷ åu Ï£¹¢¶{ÜdU…^ÂJMÅkržÔÄì¦èòh×¹;QyËÒñ_¹ܹ½QýR 7ç =¾ÇÇór¼å3ü»†š®ÁCõrk¯.MGOwïÊhöó† —y=o¸{\ßne…²J†ð=°U'è|J›ÞH‹¾€GoTÞ)?ŠV¨ï¼rÖ,?§¥E¹õ‰äÁ9ŸÒâôž‡d‰Ö€â£nKQ´Ý9RÇ#ßჾ?Ñ œq×Sœ%kT3–çå;!c2¯žÞqäÕ^åe=A½¶Œæ]S=}^ûj´æ=¾û«ðxäùËðN»û1ÓÇÝÚ¦íÖgZ{JÓÞµ‘ )ÏÚXZ™wV·F¯Å¬–N.H™fº.i Jæ›J?ÕËxi Þxö©U<{l3[ëÄFÆf×½û§O­¸äY§³ƒÎôFHÖ-fñÊiÓf¤â ÔüÚ’6ôëàÕG;[_ÀÁ÷—GˆèKŠ‡¼®Mûƒ=Õ÷°ÚàÖõrS4A Ô¡E²ðb”ðÆ2¨ƒ´Hʸx(=QPBÇŒp.Ý%VPmZÕ5h±y¸{FØTõ@ÐJ ´­Ý¿”ÜIΗqâmà ®iHº‘òC² <<†,IVIØFC{2~ý8ÉëÛÏÆÊo´Ý¿œši¨Pƒ­¤iìxÈL2z!¾3”p"·‡NÎâ5m qÄiZz’<³Ç±H-ãþ*(eu×5~×@Ýv‰ÚE;ã–~#h¬l£èŸÉt÷WÔèpêÊ7–07:]ÖüuPCxO냎Z«û -VÕ_ô-žßÝ6ûctUÕaÕûƒ3å…47'(ä|n„¦°ÿrÂFžåž·5aåVê‚ô— ªèâþ©hX<«×êýÖ“žå®´í§*‰9R­å𵎛´@ 4_Û~«>‡çÎÏr¶·eiew‚@µ>¬©Ä¥×•7Ô~F;9M× 2îùYƒv8§›+ú)^ôn>·Vj;,íÅQ²þ ¨<{¡±Z“fÀ‡4¡2Žo°TmŧÛV•½ŠÇ³óíæêz[ ð8ú¦å­}¼¦è¯mãÞ¨ùw¢}æ:¼ŽIp†Ú©|%““SÕâ"zÈ–£ÄŽ"¯ë67Úr˜ ”Ñž©¯­ï6M'ÜÇíÈÊ›Å>Å‹º ×ç0ÎÌœù@âxù†$§y|p£â/{ðƸ:òÀЙ=>5 ¥õY®9×-ëФ¼º5€ô&Û@›Ñ›‰Tzž2úƒgÆ‘Ì3ç-/´~ã¾Rµ‡ô®»¼¦êS’¯eämwIwz¬½¬Éºï•³ÆÒ/ñAàRú ì4¢È4Wb î±Ô>,›é•X¢XËœ´ë®Ë‚¼¦®}Ëm­ 2ôÚ´&mäÚ™õ=š¹SöÖâ•šõ×Öÿ½c«t[þÝGäÓnÛ„•àCoËŠQÏ4ì!t<ßZ5ÛF¬—®´õnµró~ðö¶vI—A\ÖÊ]ûŠ®}ZfŸ¾úÝW—U‰‡©ˆ¢ûea|Åêó²2ñÝëÖ )F'÷Ÿ/ŒÏ½°(/„'§°'/¤(Ùxý»°â<Õ•¦ØŽK^¶kÐqãñB;âtZiŠ»¹l£ )^d2­¢T®~¸žôbUYÀxÝì_Xq®V‰ŠøW//T©uNñ2WŽŠ`@û†bCé=å…ñÆ‹…@å¥H—½Ø¡Å¯\,­VQ š¦]5ŠÂoTüË@¬Y/[^#ÂÛ›…Ý–ë[QS—\ 4Œâ—ã¥Ôò†Ò³OzwN«]ñÂW'*uhÝ{}ÇL- ì¾ :üVÕFEÓ‹%g òRÔVQ¦—"º^H|E¯+êœÞÎÖ˜´×7ÚiÚÀÏ\'¹V}…Ìò,ü›ˆù›àæú†&ñƒëƒ+0”)Ÿ˜Š*\<›W¸Z(£«¢ gϦÂo³çÚp$æ@'¨˜ötçz|³ò¸óIε;2ô]b÷#Ã/Q|‡ïq§.ú €­n îvòK—r>þË&{ !ažùÂÃÉôRüâOH­Å]qµ*dZ­Vò&c hñµg!‚÷â¼,Pä›TWy3Ñ(æíä—¤i#ðjõ‰4”Ïô52ó¶¸1ç õëžÿïòx­¦·” ctIhÇ=¹j™fc î:DÿÍ—bœ†,úð#vžû鶵[îÇùÆþå]N=9sµl”‡å-]Íû„óŸúɘà‘à–¢ø à¨åBØ\±\ -”ù–uNPÍ׎¼üÀ4$æv®çžû§¼AKŠ»DN ?WŬ²ž¿µ¢Ãé5.³]H‘1’ëèpËVß–Ý—ëwÅ|ªqˆ§ÔB ú„[„]oU.̼)ôCQ¾±‡WKW¾Š>×/4TÊún.ƒ\×}Mês}#âÂä…¡ ŽfýÂ…Í EJhNEðhÖ׊N(}½zµÂ|OFRŒÝ„&GºÄ>E ˜ÍÊQqtšZ‘·¤‹ç-u¢5ôocF8ÂùAë&{ÞefmU|xô™¢|tëô¬è¼1sy.R¬Þ=B!14&ʳ3ã…´+Ïz¼¿4fù‡ R$öÎHÖæš×—"ÁnŽì¶ñðLÌÕ—z6IÇ3¾-UéQùèoÌ“ˆ'Ü°\Å”:a':¦)|­¦Õr )¶ISô¸˜i™¤¹¥è5§ìEz¯Ó­Lw9UñãßðÅÍYßHn,e£¢`¬žS4·æ<<¤\Å}ðlU\¸A)Š;wZŠH'MK‘v÷¹$ž¢ÇÆlÏÖ k®ß[¹]+ûà•þHmÖñ»j.&WŽP™eë³9Ð@Ùœ[­ƒ¯óݲ¬ˆ¬äšÕë=ÊÄw’û ¯KôeÐ*òm±Ô˜÷ÜÍÒ¼æÊœ½ë+™¨Zçädž¨¤N¸©ßr©ÚöÍ;øɼ‰Ó¨i…×$vÌ¢tÏrÉ0Gú±µã>èáŒmZÑÙøìéòcP©ð„~Yv ¥ä±Mw©E±‡¤±µëÖã¥HIÁ=§ÛUÓÝâ‡Ö«ÒåÙ[ÏÙÅ|S´í¨æp¯¼å!;^7Ê j? \)H·ÂzJ>ËWò»]àn¨p êBÔ¯xÝÊl"ýÒ/(mÖo_ñ=ßoQ•G;ª ”ϲñµ€Æý²ð¥0Ÿ‘bý¥(/"µ#E¡µ[Š*¦Ÿdܪef‡Lq ²u¢c”TÆ ·ÚŸ(™6°,‹ݤ?òõj­)>Îa™Û@ ´j”l÷7EAn)BMÂþ#öŠg¢ã²`ï9žË¼5€Þ‰ný¤e ›»Éÿ¼÷'!‰nTÞP~§%mµ* —‘_;ŽtWlÈÞµ®wü®»®ò£ÏŒQdí„nv|ëf÷²04i’®T$šv@×æˆü-í<î4źÑ.C<´âÕ%£ÇNPµ–«w«êp‹C§5÷t\z)ÚNè¸ñRü™@Å£ýúäi¼|ðž(»9'[êâ]ÙÔå¥z¢ÍÌ‚‡ÅŸÙ[sä¥n›îyÇ댞±‘¥³ùJÒ.Ãa-eµ)J³&¬ŽƒLݧo’g)J³z*d óHöG9žv¿^dGÿg°,’I‰ïU^pW˜(|!iXŸÅ¹“065óó´&8HßÐ0m»GøFå eÓê·‰TYÞÊ7›§‚í÷>S÷àm<×}èð·_øóNs{^ŠÝwçSÔ?·í52·œfe­=°o(·dúÜ1ÂhŸÎ…Òêѹeø K L–ÿÔ|Ëû™ž2T‘×óbþ]mMí­ÎiY,ÔŸ”ç´dVêCŠŸ’÷Ö7ÜEŠ®žïJO™.}ÀZ¹K#°óÔ¥Ï;i¤W_¿;rxq– +ž;7}ÇS<ßP2m`öüKÖÀÎ×癀úK1ÁVÝ_;.I´¤¾—$Rãwô^›m&u¼§dqòKq½‚«£ô ×*˜lVÆV1š—b4=Q}Cù–´hSr®õ¥ØQÏ°‡Ž¯œIŠ_îøâ`OÑmf¿Âýq¸Ô[YÖrÇA¯w1sÞ#Ð_òõ¨¼[+P2’=<©Šx¢_nÿâÓ\pî2›kíRü´Í…ŠÇ©v±8¢ÞÅ}§V÷V¿5ÃÁî'/sú>ïêŠý%ЈT¾ó“›øC–Ø4÷JVx»>uä![T´²~½ˆo´KñÌ“-ˆíÓw§îºNðùÚÚ?•×ÖŒis¶ä_yêƤ9! »º¯bncAé 4±sÓ•ÒÝÿ奸¢´‚ÎgS³vcg/^ï>ä~>ßõB–ž„²4¬ÐÜ«EãrkÙ\Ò ÛÎ’®’Åå^ØÕì×l;‹ûð<î $Û*~Én]1Gqk™ÇžNPÔaš¶»íÕ8Ðx£Ï|Ïâ~a­È='VÀÂZƒžÈxÖ§Qci‡âS^饆VÙßw.ÒNÍ¥Òï¤Õ´Ê.Öy•4÷‰y š3»mŸn­«>œÙvmÐ÷¾h‹-âLjÔèà[¶óiÊ~øêʦmæ@Øç¯]^¶Uw¯àȹW'ŸïÚ%8r¾­B§Ö‹§uýÆ”ùÚk §UvÊLÉó+ì”é¸ë±;3“¬†Ê·ftôÂtÜõÕà@õ‰ü”§ç~¤!Ó™ûSgâÌýy Ïè¼ÒØ!ù¨x~mó o¯@Z£N,¡"Ú—×ó@Š§·ïõA7 SD¸“ïúèá©èôÿ<´êŒ1žøqìöh“ROÚ«Ý =ù.î'ímTúi‚ý[Œ½¯TÝÐ/u*ꩤòWÏè|>jw¡ìz¬Ò°•fÚû k,RñÊšÑOÅ6k#µ¾¼+±Qÿm§vÅc“(e¾î„™YÚ콆ôzçUíùIÏÞó“ž?,‹Ï—â¹êF·d~¤æ'r.·¼§ï+Æ;‰DH‹US”¤ˆ:S’VñF’5ƒb€±&ŽS;‹ŠffI:vÜí ž/Åíðj°ùÎÀ)o¦³xí¨>¿ï]ÇñRÜ;Wöe]¢×>ÞL¼¡ ÜÁ!W‡·ðÍìçwó¶ ¦Öúnþ½èÎmIÌ8Û/‚ë›_eϽÃ6HÈ­!bÖ+ödòI¶]b®É:9(!{!Ú÷»Êzãþ>¦åNž¨½¡bZý6“ªµ‰ê6â”$Vܸ"·$±|Îq“qÊÃMDk¸ÞÑ|3c*ÖIÜ# ´lሲpÍ<ÃŒá:)^Tc$ç¡hRÞVä©H’¼¹m›2;—ÝK¢‘Y-ë1ñ~Ԙᆆ4Ä°–wT:Ú¯•±4 ‹Ì¶°|ÙÅ2ûB•ïà¤Å¨¦„ƒV³|eŠV>7‡w¹8ûo¼õšò°8à}EåŒTUÌÚUÕ?èySŒÚ ÃqŽ®ZIÐËNs4­˜Vê² "žU‡š¢ot‚çVœïªCSTß‘#²¦ˆNñÕ°×åß7“;ŽåqaE'F*Íôø>ü;ÆIñ‹*:ðŽ²rÕ¾Cñ¾’v û€ŠH£ºòÒënÕ)¯Øqâ9OÆbgáú’í@Ñê8{Üi^C߸‘Z^ò„¾ÐKÓU¿ ^#©Úft¢öB²ö_¦¢ýdvGco„s²Õ®5Z>›¼Rã{  ôÚ‘ª¢ôÛFŸô—âjª bÚl¼Ðã»8Qç£Ôúȵ¸>ðýØ^Ø¥±­¼ünf×…äÉ·Øh¯›hÙ /EÓ¹¾Å(£«äñÖÖt­4E+Á²®Éy2¤ÇtþÆ‹)üõ†e4©k·¥´Z­¡)àÜEšòÖí[ªSþÀã¼L/Oýç[²üN;o[-MS‚‚C\Âtm¨Yþ wRËK~ÍUÐiÚVKb¬Ù²ôüì¬ÙëøáÞê Ý[ó%oòÛ"ÈÌ(郼­…àgæžü³gv-xÓ ZFÈ©Ø7*ÎG´äKZ”VËžÑ7– |>Ú5Ýqáá î¡?n‹h÷ª=ÔËV”šù´«“m Åîå¦ô¬š²–‹Ç«ª*û¬'dÑix—¦vÿVsfó$·Š)‘¹¥ú1ïÆ]sG‚µ$×É]èã5ƒQ÷¸ñ¸%öP¤y8æN£~7>IUâjõÐÚ]71æP¬w¬ðÁ*ªb…(bµ53´ÚŒòµþæû} ¿˜„C4^{¶ga®²ÚÒùd¬Ï]®ÓÅïXe¨¯nTŒÔ“í-uì<µ‘Ý¢½Oº*yÏ¡‚‹Ké·Œ¯¬àBp‹ØZ[¥SgUV†´°O¬¦úT©Ù» + ݹÊZ¨ÈLÙ#y:‡÷Jdƒîÿ°« £6AÃãû°Öj²Õ'›@–xª˜vºn[2¼fŽà%¯š‡b8Åžc ö"¯ž¨šV8?S_w.Šsuð‚Wbw™áúͶeÅ&Rqžó%ðKþ¿­¯ñm¦î³(ù°ºSËJÎG:zºklâXcÛã±9¨NÖ2§ü_# ÏlÚ§…çäàÅó%¿ÕúkÇ¿eyÉÿr üRdQ ··Ôñ†NÓFNåu—Àbfà'[6UP}Ç–S]ŽQzôIw+£L¬î3‘rÍDEL°ý-™û{È5ö·¼wNïƒË¿ïdgm(þÔù>xÇ– [ƽPËÉ#­¹ªˆKWiÈëƒù¯¸åG}C¶a¸Ú¸9‘ðÎwñí±-7äñÎ;¢b¡¾¡i¬—u_‚›‘sÛcH3¾O÷Bè:V†ÃÑ èÙ4>qá>HÖøÍ šÈ¤ô†B÷KÎ(ÆL'e¼ÑMç¨5ŒòÔ¦¾Õ$~©5ŒÒ20ëð)+»šRñ˜Ø}Sä©,™(kÞ;u±.ËìváÕìB¯½zËî7E¥ÊÙkF¡ú†ŠiõÛôÈ•°4—ᤤ÷óŽ‹™áõÌøÇØ ¡Í¡òúŽ¥:ä—_Ü<ÄIPö7.CCƒï 7Šãäí¿Ã ÎmOdºþR;­Þt¸w¹ÙzaJ«ž7«Žñ Õ#ªÀj÷Kñ¢‡êkÇA»åÝ–£ÄJÌ)’=ý¥Èx¡mË=Ÿ':á°¥ªx¾:ëŠÔ—Í/…MtÍ^ù,{+°Ö7¡¥dã í”ø¥Ö/NûXßÐp®¢%Ÿ•¦I ‰µîØ®‡"žÅñõ…´‚ Ÿ‡Îj’ü*:­!îê‘d1|·×íH‡¹­‘:A«>)úŽÞàm®óž8JºSÚ]}ävº”µÅË_ür¯Ý¨¢X#”ÎY‰¼ò¿nŽ|r8j–¯¯k\Ì»Ðö1ÞU§È7v_?ƒ+8Ñš"ŸsjYíÍ}3w 1@üÝü{Ñç¿ÐK¾¬cÆÿÝqlŸ}1Âs{Â;ä=U{õæ……Ï—¹¤ÆóóPíÃöþKc¿6P‘/¾Ã~jÏ›3¸¾ž¨½ÑŽËOà+¶ŸJ„78ñ®1…?ƒÏ—#)¼W<—ƒ“úëæÈòÙ9Eîï›GÞ¾¦UõÅ7ô‘å]»Å/ÛM匛Γ<ù6Ýö >îºNæM./Es JÛ\+å°m„ÇÎ)nÀ_í¤õòa·š.´#^œOÎÄ—¸f-k‚¢g|ÝKbN|þÊû•xÇ÷~%^ì½? ºõÔúøVÔ ß ˜ÛçþÜ2‘èCìPÖá[†Dˆ¬ƒó¼YM)É:á€líßÀÒ÷â—(£˜;dQŒ—üvêæ[Õ>ÿ¦üxëÆòªKκó•ŽW™Ù2Q:$Iò릱pŽ¤;I£~;Ö7Zw£êßAé|©ä³¹kG›=òÖÔñrŒØ#Ci­/GÙüž<¼õ)¥çŒMsG68òüFM”è^dÆòm2m~9ÒÍ‘µ‚È¥¨™Ëq ø3x‚ÛîUâ­¿uG­dÅ@ Õi!wH3¶>óÌŠÂZ©ùð ¦[Ÿœ^ß„¶™/G:Šâ¼ÉËôQ3Ú‘jÂCêQuNQrGœAnÍŠn$‰•M{"Ï”Ú^ò¦¿ü©\÷<ˆ$ϵþzשhY¢G:ñqüˆe (î¾h&ÿîòù|(úžÚÖEۣ߯û¡Ø îiòÚŒÖnòïl^RŒ™†Æiõg´Éù-½E‰ön½q£Ó”Ãm|¢º:¹ò¢Ž5†—…ð{4ùÈ-ÎÞŠ^JÖäQsYŠötà=|!ÅöÿëGÝzT´ÝZöú–O{t¬b5m ¬ØAÒÏUÖ3¯LÛЕ‰T¤­#²Ï¡XFݺQ‘Žd¯úßõGq8_Õ!¢,Šâ¦ÞÓ¼è¶PóŽK0±ÉêËQ6ê÷| Ú˜™1Îþ•ßeÛÒe{iÎ̶@‡ëŠôS¤©Š%[àÊ*[­_Õ~ø¾"ýÛª2E>¬=ìu× –íq›yÝ>íÅϪuy»F:ÍûX7î;ŸÁLW òž|ùÐîÔUµ /ÏÇòzT«yÐ5—t¡¿k´°¹MØ^vo`±¥¨÷»(éÃ(Y[䇿Þ<Õ©Ì{~÷ð..9÷,Y†ßïK«ÖŸXœ/û½·L®XÄyG(⧻·éOc–UïiJqM’V‚«µÛúeOmFtŠ#oÉQ°Tµ6JEÚa-óðµçC·vÔú&n`DËc}s€gä¸û3ä8µ,Š‹$}¤ècż–W'óËѪX%–hU¶RI¿S¼HÛÚœFÔ!9ɼÌBÇüñRR¾Oä³´“¦Ø2Êñ‡úD«Ÿ‚îÑ Š‘oZáÀMh° ¥ÖEÖÛM~Á³(ŸcäKÉmÚ¸¾¥¦Ç/›¶¼{d—z ý·FEÃŽa®¡cÇžQ«·´W‰wý#"æìY3ºgÑEÂóþ¡¨CU±8E%ªôCÄIÃïþ¡XFò̘¹HZüŠ5SÄA«ÞáŠ?°_ø@ÕH´ù™úȳ¸ ”Þ%m¦VƒÒÖeÊÒ“.H߈H§sqY±DU캂ý( ×è5P6¿Fªø‰9Q*FÕš}ãtëòKw¾Ùü…uUö<ˆ_&êŽÅP¬ÿð T‹ø m^’-”ù 6óL”ÿƉœ@›O«øi ¾ÅzÛ¸?(± s²X&Só¯îÈ7¡$ÌYU1jàŠFª‡uIÌùäևƅó+û4qâ¸{¦zÿO›µ2£Ô‹•Ý *‹&o+ûåè:‹8¹Ýöw…W»V%î];¢uI |0)Ò¡x²Dïx 8Ôx––ZO¯;ÊÇÑg.RÄZ"0îl^*¶­Ö=Š|Û°?·M·DÈêÉÎÜÑ*È­ô íÕ´‘ZM›Aã‘ëp°¿! Þ9t'ö…åþvš´BK=¨9Oé¤òÚtìH_¤ß%k:­D'zP-‘Vœn×'tm¹{oìf ¤~­âî mÆŽÓ2@ÔL[ï±¾QzÒš²˜cî\»sMæ­ ´,>ÃûËÚí÷/‰Ø³S’ÛŒuM;¶5ß_ï¶Ö‰öc-ëd:‚Ö+¾«gãBž§«”Y=oW ¦"@±—¥¸wÕ»^x†Ø©Ùs¼ÚsÆϼKGJW¬5®kнú, áº­,Rl¥)ù 7)æPµ%>…¢§-Д^ûôƉ|ækÛ‹SžÒΟÑ>óÍÎw€è…SÜiM sWéüýSYâ][©Ü]Ý©âåv>A[S#U¿ŒYÙüKÕI-Ú€;ºµ  NYOÖŠ£§µ·‚kaOÙ]ÖŠß÷Œ½M+ E,.ÖíŠå¦{F7ÊOZSÂÖr®Ý¹Vvf“¢-ƳÉ/ 3§ã~É…uœ¡_ßØÂz‡|aøú Ç¸§U´ÓÏ<,ÓÜÊM±¢=ynP”I[ðFt!K±ºº YYfwïM§©§3ø|y<ËDÞp¯éª”é®Ï¥Ÿ&”ÓúzÒ®lÍ_hõÀ.HôOƺˆ4K&Ýë9¤“Ù·<¤ùAéåúFqc¦¦|¯cSuéh¼$MŠ5œÆmu$óNèã„<´*§#WöìÓ-®Ìþ„æLF**Úv¶UìÁŒ´UÀ¼µSÐöw“±¥6wéqf|¿¥m‹?¢”à±Ãedø*ß5ºVn±âHŠ—E)Ytè…4ùŽžÒÜI:'}-%tlÜB¿SÄì¤stî?¤8G‘KŒý$OÖáÔhÕûžosJ³ŒžŠ}¡A?ÝÆò(‡ñÑm«5©aäŒí¾cn¤}ò«æ.¿kÎõ¤ ´ì€ÄØ®OZm>¶®SK±:³eÎw¯ÓšÅÀCGl @b6Ë9iÙš¦Ü–ÍëaÕàÉim&9˜…øP\ÍÄ<—ÔNç-ýÓ¸µLqÄ )»¯Ý3L{N`F?/ô˜»Òš»ÄL¬9‡¸ð°õ>=â²ØÅ|ÜtnùTî=2tÿÑ_».‡æg2§Ïô†ô®Ìô~K2i¸Ã'xŠWz$ë‰ôq1’ÍÚîTÙ¡úeØÒ;WÙ–*SÖã!ûivx?·OõàlTÖšZ6i16TZoÄèÅŸ»§Þæ3-6#r9ñ…á˜M~Å÷ÒÜìHœã\(J(‘ò9ñî­ÄÝ€ ä UdâÕpé±^JD!+ÜIIxŸ(œ¥%^ùÛ œ©±â} î|‚¶Ó$-~Ö]Â;Yéâù„ï²—=ePü2ìÔ2ÍzbºÐú–L<ãÛtÁe%.Ûª d"y<åea^Ò´pFðHk?£}æš-‡;ˆösbRNÍ'N7ʉlã伜k×YG9›Êˆ§Hg¤ñ«˜å)ž[B^òJ¾×~3ãÁ¹bñ-™‹'–Åp8-lú#ËòÑš1Åf܅˳¦œø'nÅN»0¼ÄÝĦ2£U‰\«s=@ÑW1;K\w¹l+F˜?g¤j–à…JæžSåÄ»eÈõÜ·”×L9xkYäg'pyKM_ªÇ½cÈ]Ê TAó¶ÏâÕî ÅkÂê™Ìúì}Ë/T´Œ8e€œq¯HËÉ9ßlÔ¥I‘‹O$¹¹+ÎÙ¨{¥ÛAÙ´}óÕη;_ñã‘·ŒFbèNÌ¡QȼšFñKì6§fÛžB\D9vž…ÒÎÍQõ¨®Kq]*©ç¶m¾l¶tNyËîö2§J’§L tÍ?Jl¶ž;H+ˆjZáüL}|'Ïÿf ¤\óÖ?)7ë*µŠy-W/béG ù;u)ok’ÄKð2O—Шkõàöz¦2ãùåChÏ.q¦LtU)|¯rÇ¡LÛ¹œ®Z2p–]&ýË«½"?CO$Îûóû€NRjÓMdX"µ#ß„Òƒ‡SÙ³!tcÛ3êM‡¢U’3î–| Zu%BAY'ª‰†ÒµË“8³,Ä]Nì6”¸±H´Ô§ Ñ®4ÚÑ‘âvÈÃ^àb¼Ðã»Ý¿ JÚÈýÖÄYÓ.¿¡aw]¹ªU ‹nàä©t­½R“ €ÖoÒúXó­¢aÕ*ôúÀ–håÖªD,)#;Ïe¬Ñà<°p.žV¤‘âôT‹ßpZQº€¨  4zÍ¿k.žª´w µ8ç)nä$§(Òó…‹5÷êUÞ,b;Ê´·™VöHí_ró(ù£ølÞå?Üu ¶xªK²ªÑS}5ÎXvU\à ^Fvú8•0­"ÌíœÚxí>ip¡j׬‘ëêMb³'â7â¶'b(ßJ%J`ÔñÀRš,ÍîïOØ®,ûT¿›·MÚ²%º±.–|j’ëÌ—æùÂæÂé’¤gáT!áCìn® iFO=äg·-‰Î¹zmTéñÊŒF%èÜ:®„ÿ'Ö•Œò#MÚ)ó]šn¸Ë“ÎS]¶f‘ uFæeYÒÛv”TQk2F=Ñ·}H•,)¢ÞÌ–0Ò1Jmw_Kæji8ü‡¯×® dµt\?[O[ÿf}~øó××Ogk«_~ÓVeZûðÍ÷w%^ê—~§QËùIº†o×äªû¥BÏqÆ(Fé_¤ÍWm\™îº|øÇÿíëßþóϘçÊyÑTvUðªëȾ|ó1ªp景Ž|tÁ/ Z«·ÅpÊãÿýõWÕÒâ°öáþÍ?ü×ÿðÓÂKÜ~ø‡ÿçþÆñLþá‡{PÞ¾ÿß•ÇÕµé¼áÊáßü*åÿuQªJw³~³nù®Ü=1Œ)Æo±\½š¥–òŸm÷Å åÌ÷h÷‹[_kÔV÷÷’?|ÜtUhÃüðý]¡¹j³Ü!æˆnÿñ²&¢6Ÿ¯Ér\¬r ÿÁ ÇXóŒ9p­þ>üåO‘ÿìWû¿ýæ§ï˜—ºøðí¿e°Å3¯ß®—Gk %úÿÃÿ§?¯Q>VJºZ5æPÊkýý7ëge%^ùÕõþŒÄ”÷¯.A<ü7uÕ鑘ü,¬ßÕ¨ëïÿão¿ú_®z–t×’òÒPG;ãc¬’ëëÏ¿ÿê**—/ì1é.«!¼®O<%?_8Þ™z†]àœ„²®¥ —¾5~+Üâõ»r*-<†ª¡ÕÒ¨‡ðõ[jijZàœ„(çéÿÍ’èÿé’ÚW·}¼ÓW—}¼ÒgôPMGê¯÷?ýÝu̾ú_¯™ËùÝ|ýþ×_¿þòq©·[ó-ûäÒq6)½÷ÝŸ˜Võ¸¦ØçPM}ÖŸ¬7Ö4®1 .£áfÛ˜äæè߬úùâûߤ©ýôÍçO{>8ƒkÔÑßÊ`ùazdp ØOß,’ÆY?|þee–¨_ËëiÇ[^Ÿ.AZ¢äóÃ_?þ§«™—¬øEžë6ãÏ?Ë3®ŸþZ†¿ûã_¿ûþ/_/iY.ýùå9/C+Íù·sî¥_Ë<_JàÃÿÿ?”Ädt+2ücB=²øëÇo¿é\/ûãóOßì:­=ËÕØKÝÏUú/C9sW;Ç×/7æ¾Jf'¢à½„'¡‹fC ¾pì™zòZR9ɵ¯px)á·ÂÜÚ%§ðW»r*øP˜DÕCøú-µ45-pNFz‚zÉ¡¿·&ÿ+$ÌŽëœy=›•„ùówß|Ý–Þ>Îß~¼8±¬yrYÿFBYvðwk2þª´YkÒµ[~ ‹·">]ß×ì9LJÿº§ÌeæË>íG—U¾~ÕKúðù¿œÁµýËgJɱF«¬¥¾lœÃ5Y)±‘pÉâÐœÆ }úªà"Vøó…ç×ÿYädD9W]Á×j ÅdÜc³I9‚(©œâJª‡ðU.µ45-pNB”3åï­ÉÿŠ™RÖåâúŠû7ž)_¾ óúªï‡Ë¤þ9®z¿ªõòÏ'Å3·/¸gÂeTül&<)ÿôÝO?ü²àkÅÿk³q]$|S`oÙýþó—¿1›þs“{ícüJ#îéü_b0ç×ÔãÊÕ—Gìl¥RÂÄ;#[*ó–yü#|IÏãxàÌû'ådD9ËÌç.©mÌå"åÄFË-»z€/»PµµZ@Nõ­¨þÞšü¯1…שÄeÔ¯Pš~¿ûãO?}÷-«Õœòmn]Vf[Ælù§?÷í?±ýrœóAÛ>Ö¶Ü,mÒúüÈZþôKCö|.fUë2ïÙðM™×*áÃ÷ßýî—úÚžûYF×ܹš¹•g¬ôe£úË—¿|þ…Þ>öEôÿÃ,ŒkB©‡€ü²ñÀñý%d7+q1t3^žqÅîf<¼! —õº©9£®ÝOã#îN|¾1AÉIþê)fÊ«¸j¼ ]¡j®<Œt;#ÌÁ¿¦þkÌÀuhyuC\°’øã¿ý ›µ¾|,5¼'ZúØÙÜÿãOß|ÿí7þz~øv“­Ó•'Å_¾-°0%¿ûþ§_j¯«wÛ/˜zÛ’Õõ‡o~ú+ëÎV/Cð/ßýøKÝu̓_Õ]}m³>òûOßýñ÷±•y–öá?ýÈŽYí)\nò?~ÿ»%-b#¶\Mai~ Oýðݳ“ òów(Èóìþú]ú!~Ž}ýÓ¿D[¶ïÒ6SÃŒ­Ä%j1j+áyp³u#®áfë6ãÀ\¸ìX9™­…ÏóäX|­?ŒõBf½ü$¯¾Þ]¢PE^eSÿá*œªîÐŽÐÅÅ|þ{mú¿b~ÇFí¹ €ÕÚó‡kŠK#^ËÙO~=ÞíÍßI#Žñáû﵉\®©ûyÿf5ãfñàð‹ÅÓ‡ú§ù/õ_‰}¿­KËRÌçßÔ¥ßþñ›»èßÔgÙÿñ?Þ~ÿßiʆ—¡¿Y༺öiÿÓ7ùç0.ÆYסĹN8ú:3úE;:¦ü¯´ã!_~ÿÃ`‹Ôú«ûCcé{C)׿ÿÓç~úùæÐņǯ섽óCtëq„8ŽøÁÊò_¾NŽy‘ïE£õ`‰£lëHÞœìùW­¶ç_™qSQ8–Ù9QŽ}×½h\8A(§µ©›Ž£ ëdjâ?¬ucTtÿ@­PnFºLv¯•ÿ®šý¯Z/·mRTÙsøÿøé»o;û§‡­ÐŸ¦ûÅú¿¿(ºí㾓~úó¿üîŸiÿå];oÜ0 Þû+2º@ø-kl3èÒ½‹›8é¡ö9¸Kè¿/?>$;ò=d¼-ôY”äˆ"?’¢ðÝR³ÚW⹆©e,~&No„Õ’¶´Ï‹MÎ5.Cÿ4ƒ7­‘Ó¾±;a /§ã~ƒG2ÙJg­àÅq'?„²ùqÓíÎ-Chy]râi X­S ÜT C¸®¸dZXízKcXíZgÖT²Ô;RNFI?ÈQºäd‚1Ð…Þé)œŠFokzê-´:¡©_¥¾­3PNJI?,à×6åwwÍÆëVdÛ¢ +±yHåÌÝvç&Šë–ûÌéa>%í=f»½ÍðI¸…þýžá+ÐÐù °{‰X¶Λ⃎/ÂE¬±k`Lr~j…ø™÷Fb'áŠÚJDsF¥ ©S ¼ŒrzÐèÆk„Ñ|‡¢qjÌWÅýÅ‘ˆ< [Ò*Â4„Y$}8]ëÔ/ðzÝEp œTPmûr K‹ž¤’Pá[)`©œ ôƒ’+½ŽxeÓÔþ08z‰ï bHRÉY«iñYõH3¦/S!¦¹iP—€óúo(¹V·ÒœKƒh¥‹’oG`Náo=å¯tÙµÖRéRBRuËqðP{QŠŒ,†>€óE†©l Ê,’Z… ~§+œö;“ƒO‰ÕÐIº`e/µ…ùï5 ltIë€N/nZ‚ÂÙ3AÄzÔ¿*®mVKúÛ‡¿ßS/Ðendstream endobj 25 0 obj << /Filter /FlateDecode /Length 417 >> stream xœ]“An¤0E÷œ‚taÀî–¢Úd6YL4š™ SD,B#ÒYäöcþÇD¤~ˆ×ü*Û¢.Ï/?^–ùQ_~m÷ôÇõ4/ãf÷Ï-Y=ØÛ¼T«Ç9=Ž'0½Çµº<ÿŒë߯Õêü‚M|~ïvùín0 3é>ÚÇ“mqy³êIò¥OS¾´²eüïïÎ15L߯·zÒ‰Buz²k §'»ÊMz²»AuŒ#ToúMz‘½ßU#{aR|C5i¡xÕˆŠo©¢Šï¨L Å÷PâÙ±G­žµjõ¬u¥µP<öØä[¡øH•´Pü@…Õ{®>A…^ ÅT^ Å:vœ ®èJ*t%ðpnظŸ-6Jàá X(‡“L òpRÐB ØvÛïR\¢òZ(í@´PÚHuÕBqFuÓƒNœ§ŠzÐå}Q z0«c¦³:1éÁ¬pªm@0 è‚ 8–~Ä(ßåo½PÚóSe¥}.ËÖésÛly`x1œûP΋ó½Þ×=Uç_õúPý=endstream endobj 26 0 obj << /Filter /FlateDecode /Length 67 >> stream xœ“`P```d`à```b``@ Œ J Vƒ ƒ' ƒGP C#†JB€ý3Æ%ë@²y£` ¿AHendstream endobj 27 0 obj << /Filter /FlateDecode /Length 14383 >> stream xœí}|ÇùöÌîõÞ‹NÒÝé¤S9I§† éÔBq  ‰jQE3ÝƸÈ&¶ã÷8& .§Œ÷·\âÞbçŸÄU.‰í8¶‘¾wvv„À8ùåK¾ÿï; Ï=ÏÌÎÎ;;óλ³÷³F©ÐÄ#OÏúµžÃ«^™%w!$½ѪÅË·½Å!$[‚6°¸ïüEHø+þBÙyKv÷~Õ|~¡7ê¡°p hïŽFÈ|-ä“—,_»‘Ö¿iBe¯ô­ìé¦ùŨ>sy÷ÆUÙZ!Ô‚BϪ•ýkG]èbÈ¿"ä×,\e^œä„üWÐ܇ÉoFhä4þoZ†ú¡ÿ;à¼Ýèôz-@;AíA·¢;Ñ/P=‚žD/£ãßÈùÒåHÃB2dFhôëÑá‘;CRݸ’k g–xN•ŒF?>£ìã‘kF #C2R çj¹ç¡ô/øäè×\9É’‹ä}ÝPÐ=® +â¢ÚÓëD<]B5Ïé5CPsÑ5C´fh¬&6xJQiV¦§Æ牯öy†ðìÖvл«}žÈ° ›-ñ -d¼^8ÃSãXRí‰à.OM¤vý’š®jhoP­ªòU-Tee¢A•¤T$Í·j§•aApi59¤Ð’¯ð)5ݽ‘i­í5Õ.¯·C(CUB[YUD.´åYJúŒ.÷ f>ö8"M1ø<_ è¼oø£ÓKºÅYŠá D$¹Ä13Áq¦ô z×çõ’¾\>B ÙÑÚNó´ÀE¡` #Âu‘#³#Ö09²ƒ;½Ëç%·ª¦Kü·~‰#²c'+¬/üKpÜáý] z–î^8à«®¦v›Ñ Uƒu‹×Z3˜„úÝ]pK‰ZÛ#AߪˆÅWI+@‡Üƒ¥míÂ)âiKUuõˆgE‚5Õ¤_žš®jÚAÒ–¯µý0Ê}{°ÀãÚŸ PéGÄV7Å_3ÐÞ»(âîrõÂø\äiwy#¡0_‡¯}a¹K>C$ýmø:¯ðÂYpmgÔf•É•ËSžvÎÅw»žZøðU–ÂÜ.!Kîhe©§»«ß"Ö ê´v çTÕ“C<9µªÞåíðÒ¿¿Ó%—Ø'iJD1®-Œõ‰~Ï9»Fk“¥{jVëàiJÅŠ­½Ÿ±…øÅp†‚ÜÎzvˆO™ e4#‘»èðDÐ4O»o¡¯Ãc(4­\±µp›Ú|M­³Û…»-Ž’§åèñbš‹ /f® Æ`mÀÅn«¯òcÙú37°Ã>Ò¯ÞAħ¡ìÄ‚V]Þi tø" >/égVæ i¼3ºª`®Ö‚»óÕvû<Oí@÷Ð莃¡ÐÀªš®%a^ øz|mí¥.¡óÓÛ·º6‘ï6¡&Ü4£šâPå _Ú:—¶Ín?l€¸ýÒíQsU]•ƒÉp¬ý°¡PÊ‘RRH2’!-M‡ŒB¨ï:Bh‡pT"ùž!Œ„2+ègˆ£eúE~á‹Bˆƒ#z$ÄjK LAËvÐÚibm1#G,$H8Hÿ1pH% )BʆÓr`RR…’#PW‰Ñ~ Öb× ´9](Â;•!×a¡¥ébÍP“”í+ƒž“jã‚ï£>uáÙíû5Ú>¡F%ùƒQèXcÖ“O/[:– tuïl0VáŽ`_Šp¾2è±LQùVFÔ¾JR^NÊËi¹Œ”Ëaäc†›Mœî@—1̘väÂt®ñ¤IÏÐèèŒvïq×p‡æÒ\Àìöˆ2‹›4¥êÕtAq]dGO7é ·“så) =0/YƒP¥!¢„”b P£V8‡Ì78©ÆZ·OP ®cGG¤#@¾´}i‡0_ Tùi›R?ù¢`ǀɗ'8˜ëª”K)¡o¨­–¸ _ÖA$×@Ï{|p¨§ËCÇHÌeºX¨\´d!ø|‰¡•K<ˆÈeñ)j­*¢Ì†áÑêlâs¤)òŽÚy!w‰X¾ÛQCüãL)žÖC ¤/ðïè*©úi¦uM÷m×I:-´$‡ÃmJC7¬nô|5”øŠÙÉ âÕbÇh©œ\¹ì.aht¯ï|ï¸?ðdõ#ã¹ÃDEgDæ²2g–j…â…öì'P{)´c,r)=dU&Nož²Tú¹©±À>XA¸tx˜>^Oo©]ž&ø²sVÂã*‘eZh|À0‰å°˜£7s ²øôì’±l-ƒ)Ù4†€K!¾ÆÊ2W¤F&«BîˆgÀcðMô‘áä:‚.¸IcÓ†?Œ:2ivôxÚÀ`‡k»jHˆÚÓ-šMü¦ÈŠÀiM¼À0x !r9‘Ó<]ž.Mqk»×ë‚ÙìYqª¯›,ÓèõL›-„*Ýdˆ#ˆT:\9,L‹ºú¼°‚Dˆ¢Ö'}”ˆÓ¹|aÞÖBehÞÓ®ü[ðu/$!ô"A/έ…î Ö!­¹j|0—B±`K0¸¾ä£g€è]°„qÀ4à)Ü «‡Äß3³ –*²"y„[Ýí‚¡ä: !ZQ™B*Ò)@z³<0Ø)O9U"ü[ •B«Ð³éí‘i¬Š0ŸˆXˆpöb8H.OŸÝÎüO7€yC0ª\älO„›Ñ.Þáürª‹Ý0z”kˆ8¿ÆV¶ÍuMÏYQÉÐÂÇT·~óõ×·*?"%ãÿ$•¤Ä•OÌ´ñ°fP]‚©0ùCÈa(þFd?í»ƒJ¾¢{‚{ #7÷¸Èo¢bî5æ^~ø‘_~øàß?üðCÀ?|? # ÷:*Ìðcªpà€-a¤†ó1²p¢j@/`-àZ€ê>Çî€1òpP:p# šL\ÈÄLì`b;Û˜ØÊÄ&63±‰‰ó™ØÈÄ&Ö3±Ž‰µLô3±š‰UL¬dbË™ècâ<&–1±”‰%L,fb ™èe¢‡‰Lt3ÑÅÄ|&æ1ÑÉÄ\&æ01›‰&Ú™˜ÅÄL&ÂLÌ`¢‰éL´21‰&¦2ÑÌÄ&š˜hd¢‰z&꘨e¢†‰j&ª˜¨d¢‚‰åL”11™‰R&&11‘‰&Š™(b¢‰ L0‘ÏD¹Lä0d"›‰,&2™0‘ÁD:iL¤2ág"…‰d&|L$1áeÂÄ›‰D&˜ˆgÂÅDN&LØ™°1ae„™ F& Lè™Ð1¡eBÄš J&LÈ™1!eBÂÏÇf‰21ÂÄI&¾eâ&¾fâoL|ÅÄ_™ø’‰/˜øœ‰¿0ñg&>câS&>aâc&†™øˆ‰™ø€‰÷™x‰w™ødâLü¿gâ&ÞfâwL¼ÅÄ›L¼ÁÄëL¼ÆÄ«L¼ÂÄËL¼ÄÄ‹L¼ÀÄo™xž‰ç˜x–‰g˜8ÁÄq&žfâ7L<ÅÄ“L<ÁÄãL<Æį™8Æį˜x”‰G˜x˜‰‡˜x‰˜¸Ÿ‰£Laâ0CLbâ>&2q€‰ýLD™d"ÂĽLÜÃÄÝLÜÅÄ>&~ÉÄ/˜ø9{™¸“‰Ÿ1q?eâv&ncâV&naâf&nbâF&~ÂÄ™ØÃʸ‰ë™¸Ž‰k™¸†‰2q5W1q%?`b7W0q9L\ÆÄ¥L\ÂÄÅLìb‚…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=˜…=x ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,þÁ,ìÁ,ìÁ,ìÁ,ÚÁ,ÚÁ,ÚÁ,ÚÁ,ÚÁ,ÚÁ,ÚÁ,ÚÁ,ÚÁUû‰â.Š&–¹!fŽ&Z.¤¹ ¢‰vÐÜvJÛ¢‰ ­4·…ÒfJ›(M¨ÚM¨Ú@i=¥uôØZšë§´†®Ž&T­¢´’Ò Ze9¥>JçEãk€–QZJi ¥Å”Eã«Ò\/¥J (uSê¢4ŸÒm%R.¥ÚXR6=/‹R&¥¥ Jé”Ò(¥Ò¦ý”Rh›É”|”’hÓ^Jzž›R"¥Jñ”\”â¢qSœ”Ѹ ;%-´R²ÐB3%%#=f ¤§…:JZJzLMIEII)(É)É¢Îi@Ò¨³HB‰§…ÍaJH £ô)=ö Í}Li˜ÒGô؇”> …ïSzÒ»”þD«ü‘æþ@sÿCs¿§ô¥·é±ßQz‹¾Ié J¯SzVy•æ^¡ôrÔ> 襨}&Ћ”^ …¿¥ô<¥ç(=K«J) ´?j+ŠFms€)E(ÝKéJwSº‹Ò>J¿ŒÚÀ_ã_ÐV~Ni/=v'¥ŸQºƒÒO)ÝNé6J·Rº…6v3må&J7Òc?¡ôcJ{(ýˆžpÍ]Oé:J×Òc×ÐV~Héjzì*JWRú¥Ý”® 5/§¹J—Qº”Ò%”.ŽZ»vE­ €.¢´3j]t!¥ ¢Ö0ÐŽ¨œ1Þµm£´•ž¾…ž·™Ò¦¨µè|zúFJ(­§´ŽÒZJý´é5ôôÕ”VE­=@+ic+hÍå”ú(Gi¥¥ô¼%”Óž-¢§/¤ÔKköPZ@©›R¥ù”æÑ‹î¤=›Ki½èÙ´éúEí”fÑîΤ_¦­Ì ÔFi:¥Ö¨%4-j!ßеá=5jÙ ÔµdM¡Uš(5F-àš«§TG k£–m@5QË%@ÕQËv ª¨ePeÔT TA)D©œRYÔë;žLs¥QcÐ$J£F24J(Gu@EQc;PaÔ8h=V@)?jÌÊ£5s£Fra9Q#™›AJÙôô,ú ™”´± Jé´±4J©”ü”R¢Fb¥dJ>ÚfmÓKóÐVÜ”éy ”â)¹(ÅQrF @Ž¨a=j˜d£d¥d¡d¦d¢'é Z¨§¤£¤¥¤¡5Õ´¦Š*))(É)ÉhM)­)¡…<%Ž¦„B£ún‚}û¤¾×ý-èo_þe_AÙ__¾|åüŽ}ùOŸ> CùG€áØðà]ÀŸt‹ÝÔ-qÿð?€ßÞ²·x ð&äß~ðàUÀ+ÚóÜ/ksÝ/¿¨ís¿ õ» xôsÚ€ûYÀ3€pü8”=­]îþ è§@? ú í2÷ãÚ¥îÇ´KÜ¿Ö.vƒsí= x}><x@³Ú}¿fû¨¦ß}D³Ö}08å÷±pl?”Eƒ€à^õùî{Ô›Üw«·¸ïRouïSosÿð ÀÏ{w~¦ÎrßüSÀípÎmÀ·ªÏsßúfÐ7nýhëÇÐÖhëGPvàzÀu€k×~ç] í]¥šê¾RÕâþj±{·êgî+T{Ý»ø÷E|±{'.v_Þ¾`ߎðöðÖð¶}[Ãê­X½Õµµiëæ­û¶¾¾5d’©¶„7…7ïÛ>?¼!¼q߆ðîb´ˆÛ* ¯ß·.,YgY·vÿù:¼o®^‡sÖa­3¬ó¬ã5kÃkÂýûÖ„Ñšikv¬‰¬‘LŠ¬y{ ‡Ö`ÕÐèÃû׸kC[Öh µ«Ã+ëö­ ¯X´<¼ :¸´xqxɾÅáEŽá…ûzÃ=Å ÂÝÅ]áùÅáyû:Ãs‹g‡çì›î(nÏ‚ú3‹g„Ãûf„ÛŠ[ÃÓ÷µ†[Š§†§BysqSxʾ¦pcq}¸a_}¸®¸6\â ñžxÞ@:05z‚\¸2Çr½íúÔ%A®ˆëaoÒǹã¸t½Wµ8ñJçvç•N^ïxÆÁ…陵zû3ößÙ?±KÌ!{zv-²lo%×fkžQ+py5åÜ Âµºm>­ÞŠõV·•«ùÄŠ/F<ö`Œ°ˆW@Øê®åÀäÕ‘a|šhR éMÅ´9|i$¥|†ZgGd—FPxöœöAŒÐ!üî!b!?\ò»vïF •M‘„¶ö(ë­ •M‘D‡B‚%A•ŽÀ¼þuýöÐdd|Ûø©‘·>dxÆÀéõX¯Õs!=t^¯së8ò1ªãCºÜ¢Z½Ö­åÈǨ–·…´PB®/U3mF­^íVsáru‹š ©Ë«jC꬜Úï\ç~rô›kçÁǼþµáä:ð:’ Rò¯-äIZ'äQàïþÑj@óûáo-+\û÷Ïúýÿ·;ð¿ÿþZ¨b”»õr;.ìllllllœØØXXX 謬¬¬,ôÎ,,,,,,ôz Ý€.À|À<@'`.``6 Ð˜˜ fÚÓ­€i€ÀT@3`   ÐhÔêµ€@5  P ¨„å€2Àd@)``" P (& ù€<@. d²™€ H¤ü€@2ÀHx€HÄ\€8€àØ6€`˜&€`è:€ ¨*€ È2€ ©…OÀ0¡^ expð-àÀ×€¿¾üð%à À瀿þ ø ð)àÀÇ€aÀG€Þ¼xð'Àüà÷€wo~x ð&à Àë€×¯^¼ x ð"àÀoÏž< xppð4à7€§Ož<x ðkÀ1À¯< xð àÀý€£€#€Ã€!À!À}€ƒ€€ý€(`Ü ¸p7à.À>À/¿ü°p'àg€;?ܸ p+àÀÍ€›7~ø1`àG€×®\ ¸ðCÀÕ€«W~Ø ¸p9`pàRÀ%€‹»PoÅ óÃüÇ0ÿ1Ì óÃüÇ0ÿ1Ì óÃüÇ0ÿ1Ì óÃüÇ0ÿ1Ì óÃüÇkà0ø >ƒÀà0ø >ƒÀà0ø >ƒÀà0ø >ƒÀà0ø >ƒÀà0ø >ƒÀà0ø >ƒÀà0ø >ƒÀ0ÿ1Ì óÃÜÇ0÷1Ì} sÃÜÇ0÷1Ì} sÃÜÇ0÷ÿÛ~øù_Ç»ÿËÿPÿ¸ÀŒü9æÏ#Ñ.é矗êä¨5£©è†È®@ûýH #݆&⃭ÕÕŠ,ùƒ0Š9äy €¹*¤—pÚCqqå¾Cd»yc<ø(—ï_~ò­“'‚'ß6•‡qðÍwÞzÇðÙ cI0ÿÞÉ…ˆß§=Ô§Nðê›ÀËv÷ñÆrr~HÙWâä»û Gy îDàD0p"Írr;°Ñk`Ñqr¹EæKÊæ&¤ú óóóʸ ~_’ŽÊ ‹Êøü¼DŽ·°’2Žä1ÿü·³ù–“2n›¯|f¾41NoÑʤ\¼Ã”Ušbh›“Rš çå2^ª§U&5õÕ$½&7&Xm &…”`³&å'_—ê¾þ³T÷M•¤ï›kyÙ¤¹åÉüT N"“ %:œ“¼ 3õfƒDm6m ¹É¨I«ž{òbk)aº), £òòrSII0ØÙi´—Aó ÃyÆüÜèGP à %B“š”ÏûÆ·9¾kh¬™´7/Åf“ w,•÷ò:Þ—ä÷az›ìrS`CŠÛbVJVžüÓ2^eöÅ'¤è±G%Zgj¢'#N'ÙŒ‡lsé$¼\£Ä“FžTj•©Îe“DÕ:Ï+ôêÝ'7Ã\÷è§4Æ´0ž÷Ç£I°è~nþt¿^àökþx¿Fà÷öƒÙB°¥CD^äÇ™Qs›ä(Î@PÎT΄þÂ0¾#˜ÆðÒ1Öƒ^ÇîïóšýC8ó@Ÿ¹m‚dgìï› Ì!›c}p&Œêcb‹N6ntʬâh%ãØjIäÈ°&æ‘h8©Âš¿¹aÛo®ln»þ¹íÅËf׺R^¢P+ty-«[fîî-šÐsÕœæþÖ½\%ã&%=Õ5ãŽÏnºíÛ{çZ=.9Îd‰7+Sƒ©5?²eóÛ+üA¿Ì˜H~Wy×è׸F¢u{*··ØïµóH´m&°Và/‰Íh3tCÕèǬ¸Ye˜. ) Pûäætºö …0>è•Óyi'¦·+,^§#É¢PZ½v§×¢ˆShäR©\£¼Æí¥,Þª½Dz2t•­*ã´99ö`P•ípĉÝ»'v7NìnœØݸ!΃9W£Q9 ¤ÇzòU*¨¥r@¹"ØNryÉ…­j‡]täfËÜi­î0›6å&éùp­/ˆ ãÝ0¦Œ%“ƒùùdu‚Û;kŽSœf&Ó& öOÙ‹x;˜18ŸÌÁt²€ÂâvÚ½f7’Ï«­ k¢EÍÔa…ÅãtxÌòL×ON²C‰7HñÅê8·ß¹\ï2kNYxñ7×ÊUr^#\Úž±ò;3’5qi®ogñw&f8ÕJs‚îAÝè0ß#õ¢œF=V8*=¸ž ÑØDÖ,½bˆË òBf ž’2‚ÊKÎÓ¸ä\1¾Ë` pŠ‹Ü×xØ;°ß%Œ³‡÷;E¶P¾Oo„èK“}§¢"¤ÂþÚè)ÂE!µO1’½QEÆ"£­tkV¸¤ém¶!œ>(…I Èp- ƒ´À@®²`ÿ5¤C©©z„5ˆx4QýÉè׊¬¦,Xfâ§YŒö_£C7éጠpAAvEÆv…ôÏ&á¤$IÂÙ“ßÐ4KP,‰¨:‡äsõ¼N¶þ Ìë, R§“W’›3|VmÇö_÷‘ö’„m}( –kh3;ჾìFÍä7úH»Ž WcÍŸ× M:?D–k¿ÂÙ©E*Æ,w*Ì*“HNG­-?¯°ˆ/7Ä»âܺIW·Öõ·f•­ýùÒ-¶Ü©%“»r5 R"wUÎ\TÐ}é ÿ»«{+ÝÓ*VNvh42™F3»¼6¥vQÅ”U)µÓ&¸| ƒSïLˆó%˜3ÃÛf³g•§×¶UVÃ=Ú÷èEéj”&£ûÈ=: ŽÊ[(:úBÑŠV'yÁê…Cø«Ë0‘ßCVrd„ €S…”Ȫ*œà•Haá–ÞçotÕ¦”€”6¿Q7Â^ÞB\þÇ,ßé:DÏó“!œ¥§Jɹàš×PÖ¶—œò \ªõ;ë¡‘FFrÑÞr£ÍF|ÿb~ÏU†ÚÚT…ÉeµÄ›dr³Çáô˜iMõõi .Ÿ•vµ`fÈSªI­ÞRUÖ^äÄï®;zQ­Ñ?1}xv‰<»´œŠ„x–“L/ö¦îŒ¬«¹°w²)£2odOÛ¬ÒžÍÄÌ{ø'!ðy‚Xx0^ð¾4x[ŒÞ;@–ÇTqÝM×ÝT1¤JÍü9!uˆS‡´AÖ9ßu‡TÚzwòæ˜ùsÉF¼R[Ÿ›9„eƒÊfe†…줖>FìLž 4nç»}´3iáPŸ¹1—ÿ°4r4¢$­@ÈÕLC.!æ:{Ð%£ŽW6>äâ=œTî,mjv_¿pBÅê=Öê ¥Œ3iõ©¥á‰¶{C¥%3˲rÞntµÎ”Shóþu»Ú4É—äЙ¦T·7Í{èžY;ÛÉŸÂœ#· ¬z£t9Dü%è~Á»¸Ë'aµ«„ø””u°„ŒÆ28KŽâ¿!„‚ÔæAÑÔAÑÔAÑÏESÉV™½µê’T—D—A†ž£”d¿®Y:üî°0|ËYô*Žb:~C*v¢ƒœy ÏѨ#çèNo†ïi±Êx‘g³bÞïÌñ7ÊñòT·gNϳÒò\=¿egHnq“1¬¼³jku9ŒXÁÞÉ¡ÚT'°šg6ï\°öèEu5UœZ®%ŠV~²Æê‚-¡ê ÂØ­Êëv‚u÷€ï ô`ÝŒ`ayáÊBÞLf»Ù&3›½™$ÊÈ$ÖÍ$fϼ8Œ™¿¬ÜàÈ#ÂAâ $âP—ˆ#ZÈ«¦n\Bìíõf>¾Cr•„{X‚Ÿ•`‰$>ø†¿ÑñA—n•ŽÓ)?ˆ†s§èÁW¯a®;ïÍÚÄï qr(I’ùxßz¡ ð ð :Ç}HgÐqz^¯ü /žŽi⮿ÝI# ™Ï;n[Oçœ5µP¸r~Oªód4±vUk¨·!¨‘«e<ÇËÕ…3W‡Vî]3±tõ­=Ë®ëʺ“?Ãä¹eIÇ¥z›6Î̶ÆYå:§IkÖkÔN‡¹lÓЦµ‡/¨©îÿI»ùÂk³§,,"#eôkîbéFˆÏ/%¶Ú ÄU.Â%zdóÄ.ÑU»Äë"?çÊÉ€§×gC&„v)ªáº8ÿpN½gŠ¡žÛÃyå`¹À±üϨ7È'Ï]!c¡j¸jæø‡ûĺ$¨ä•‹½hle¥¶‘ùÆÅ԰̱ÕM°•„»â™Üš˜îJ)ðèžT¨•R“þIxZ§Û â9·ûê—7ú*“57èÍvT©V:ò['.ãÌÉžo?$!yBã­ždsœQÞ9ï’™éZ½ÆìBˆGF®á/ãŸ@eh*šmÂHµš²êȬ¯S€Yê<3žR—_>4ú1S¹8ßß¾*—·€ iõ&<¥Å%Ñçðùr9Á¦‡´ ²òå.—ÕÚö^i¼”¿4_\ùj_q£gΫ}ðƒ”ÓÄðØØ wÊf£ë£?UNÚf·'òÖq;E¤ ŸÔýxól¸À?””qæjªŽsüefý¾ø¼ÎS‹z\&{Eá‡U«¦gœwçêå{d¼¹žÜ`^Š;¹`îSÒëÜØ`4ŽŒ,ìÌ© ÚÎÉ­ÚÛæ·¾ïIw(/Zß´°Ìůõ¹“g§nlËL°™²}ÙœŠóNî˜T¶*œ›ê(ð–ç;S2'wùS:+›7ÍÈR*¼#ŸÍ]ì)nHëXä.ª?9ob9§pf¥§Y+ªrÊÈLÚ3ú5+Ä7yè&26”à ³8SÌl ™Å)dç–™7öD5YDÔį©‰‡S ÎMMŽ©Pˆ<´ÃÓœÖÇCYɵÎ)¢@b¸¯â#; i„a†3‹T†hf¬ºðÌ ÷ëôgya•¿ÌÐxÝÊߪ0Ñ`Å‘ÝS¶¥²Â*‹aê®j˜½yŠ×Éf§ožWÜ>y9+¸45L^tY7‰×w~[¥AdE^´—î^øZ|+}¼MŒ½m¢„¼Y`ašØÄ9e k;Ê­FñÈJ­iϲŠG­ÌìV0å}*wÎ$?³:à446|i8 úuqM<ú “T:ØGké œuÄLB2–aã²3mcÎœ41@0fþ"9µ…çLÌH/ nôÅ‘kp/Ø"å {…¯–<²#(„_À&W”Â/²UH.-…ü= Ab½q»;ôŠÇ¶yÀG‡TN'ÊË&WOÄeûÓÜ ˆ¥‚§óóÙ“ µ±Â8'-[0œ %g@DLgþcä°‰ô´Çda¶žÃ<­‰¡Þ:O–žïx¹R.óÙ½ÁDóÐÄVI“2ô½›g*­Ñ¤5ÅäRKV}¿ï»fçÛ˜oh¿à‹5å…8=ç†L¸¢Êg3äŠÁ@.±“F`!È=Ê¥¢$¤­¥§£F4£F´ž†LÁ8[V"Æ£SÑ–¤–¦5Ä×Ù44•À4„`žè„U.ïm6’ 8P¯í«M©ø,ÓOÜf…eOŽ±ÍÆoQ˜“â\>‡^6rљà ÏP˜œIg’U©ÕÁ+´ê82åx¹V‰ÿ<¢ýîDüöy¼^¥UòD(5ÃÈ‘‘£U´(.‹ZQëØŽâJaGñì;ˆ§Æþê€ÊP+ØCHt±–^ôÙw¿3cœßí+í•ôYˆ§áDá>»LâQ‰ŸôÈvQªƒ|®šŽkÇy×1·K¼†Yôfq¶^71Ñ211î {‰Â6¢à|U0oM#{^ÓÊRÅfÇ=}zƳ“` Ô£ø+pÿxŽijL&X[ÑXV›UÜ5Å9n´å™Åò%â.¤±„í½.üvÇ5ØDÜø¾¦Æ ¡5]ßéͱáD–âàØÏåé­âÎŒ8à¤ÏR‡oVX2«³Kúkȵ{Ír[fUvÉÚ1ÿ/3ÅÛm ù”+Š;ªs Y­MuɳÖ7¸O­¾’3V‚ï–ðA ÆóJµbC¸%.X‘–[a†%b [Má®ç¡!á®ëé]'âÂzæ×Ó3GÙ*!¨³ÒÍ*aÛJØ1§ûVgÝ­j0´œs·êïoVÁ™ÿh³ê,ÃîÜ›U?œ—V]J7þ,V—Iž>¥¹5kÁÙ¬Ê6«jS«7U•uÅá÷×ß¿³ÎTà)c^[ò> Cž‡y~FYºuÊE÷®«¹ ·Ôœ^•;òã¶öÒÞ-t†s{…=[a¿úÀª دMª-©g¦Õ‹6×ÓšPÈLVcpΈØÅÅSBÊ@£_oõ4X§ ÑÍ ËràTd<*ªúNÕtˆôŒçγÍUÁh2n/'S*ö„d«3gÂDß™35¥bbI‚Ö›œ ‘ð˜_`K4*•J…%{JÑÉÈwçêÎÂêT=¯P©”:ؤut˜;6iÀӛʛZš¶7ÝÛ$÷²æKñ%0K+ÈŸùŒ—8ÂËüFÈMßØïjˆÓ_؇w2k]Gð—Â+3 o4!!ä¬Ú+×Ü«á4Ùo©>4N3vWyúbæuòö¤Ñö¬c¯dÄ2K!3.®¥e¿ÙgT}؇Œ£ÇÈëxñ¥Ìë™F©í=6ŒÇ^Ç]“å w"Þ…SsfÕäØTòÆ%P>³8£:Ï•šn ¥¦Oß<=¹~bºUÎC$¤’)“ ‚¡tkZhz¸-”Šu5}0JìNK²Û ¡¨Ëã2ù Süiî¤@ÙÌÒ Ý ™“Õ ÑÛ F§AnsÚ̾œøÔ iž¤ŒÒ$žòŽ~Â-—Ü&¢Ë„žŽŒ¾,ñ®e‰w3K¼›Y¢ïÍG~è»6kØWŸ ¶×ç’ˆ]N]çq2´óÅ]ÀãÇ„ Vhz¸êÚCvípŸ½^ž+ìrÑmÆŽ³EIrö]”Ó÷Zll_Š[®0xÒ³íµ½¡„mz“T¡UleÛ»äIÿnQ=9Þ¢*¥’9 IR–ÒÔ?•ÓÑm”—äPK¢Ô€6ZFTó•*¥Tç]KöVùûÇÖy7¬îêT2^SÉxM%ï®R…ˆ,Õ „^øo÷Ñ™ï-è-ü•à+ˆ &t3çág„›< )ÍY ©j©³B*é© VâXL66€é«RSÜ8‘ŠDl­aÙr*XØ$²‘ü(¥DÄ FœjÀiRœ”““pröYîÅÉ^ìJ=8ÙƒSõx½{É– Òh­÷zÀ“xÉE% n/ÙË%9r¿¼¤} œèMkðªãÔÔm“!Ð_¯t ñ@€þ#ïÅßµ÷×AäÅ©ðEjø¢±6èëǸ ÑiÈÇ^ËŸŠìf{‘YüÉÑfÌñÜÈq‰6.-11Í©“ŒœH±Âì¶'øÌJɈ„ÿ†S™½.{¢QÎß"Qª4òoA^>J:?KcRòðhÊÁ‡òdœFÃýI©QðœB-܈ ¶À}IF«é}qÁ5O 6uátv1ì×ê¸T%Ž#xbvOrbwƒSenP5IZP“øðPF Ps³+ã+‰dXzy:‹Ì~*öŒ½ƒ5 Ïê6‹œËß(ËÍ‹ó9Ù¥yHaHNLL²(¥ó_ÉŒIžød£lä Á(ÕXt¸DbRñs­”Wèµ'³¹—Ìj)Ìb¹ÒŒ‘·p?z¹P‚°¬¶Ç#à dOq¿:Úax!î¸8YärzGŠÌc¿óê—éìÆˤZ³Ól´«°d—Ú‘çL¶«¯tdg9OÈUOÈ5 lÞáòd2ƒâ³ú‘ßáÝüuÝQ±ð¾+Ùr”kA~Þ6T¹9R= ‡nÀÌ~áÇ 3IaHÁ8R~–`ÒxöîV:ÓÜž4‡RéHó¸ÓœJ™Ön¼Tª59MB‡wjìÉNt˜÷x2]jµ+Ó“”E8ëd³p O+Tr ‰°qìàŽŽþU¼†T”'\² q›©}ð<¡¯GåÇËgOœü}¤,¤'»åqP|ŽÞŸöºïôûÌüwû›æ¥^oŒç¸,¸»7@/WÀÝU£tÚGù5Lb™’‡i  :Ž+ÔÄ€Å`qá¦ÇëÜýGp-?‰|ƒ°óµ©ôRðg8HF@T’ nì,^€Ÿ”;kmeź™9¹3×Uçr;ÉgäªúgåæÎ\KF×®‘½ø/ÒËaîåÑ·Y< ±xò`ÀÈ€x«[½ •ÁÿПTEIÞQ$ß)ƒPÑdû•h6/Üizûñ'ó;çÏ‘b]‚ÓgÖð…Ó‹ãÝ%Óó±Òo³Ç8é‚'G:^zydöo4Fµ”“)¤‹ž{åÍÕ«ßxõùÅ™Œ—© ¤‡› ‡ïB½¨Š®Ÿ&³˜Ä(šðAÒS“ðó2µð,H{È»L Ä.“ÛÉ~ÊZhšPÀ¥úÅxÀfÂïÆ·òsœ).A‹¥sçÍ›'á ñvk¼QÁ-^Ç9W¿ùÊs‹¤ 'U5Oá½/¿„÷>©4¨ ·2Éñ‘wóp1߀´0òÊ„q‡tr«ú~¬Bd„O"/äÀžÂ8”¨‡°ê@ŸÄá0‚ìsÀ%/ÓØûaê²¼y6ãi9þ&»þ$ ¶bÀ/¡]ÿ>}‰ÿ)Ø\;+d½§¾ë¬(†ûñÏ`ܹÜS§ƒ÷¢ÖïîäýOúyí÷Œýsá–bˆ!†bøþÀ£(ƒKFõ€£œÝ ½]eWr¾] üGñ-z„[Žv6ÅÃÿï€ù0/–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–b)–þK #„dߌÜ{d¾¾ô äTÿÕ£nyšðË Z¾ùúäåGŠBÈ*'Fÿª¶ endstream endobj 28 0 obj << /Filter /FlateDecode /Length 456 >> stream xœ]“½nã0„{=…ÞÀ?¤fÀ`“4)rr÷²D*" ŠSäíofœ\qÅ›\î·#–ùÚî^¶Ëð»^Ûi^Æ­~\>·¡¶çú6/ÍáØŽópýv^‡÷~mvÏýúçk­-7Ôéæõïu÷šn¿ng†ËX?Ö~¨[¿¼Õæ´ß—Ó4•¦.ãå¸8Oß[Ü*í÷\i£X´!{W,Ú;ÙûbÑÞËÅ¢dÇbÑŽ²µX´Uv*-;;%Þ™|oÒ½éP,Úƒì±X´GÙ\,Ú,Û‹¶—=‹ö,Ë’ÛHj#³jvå¬Ê™e²Ke•Ê„ËÌìØQç®:uÕ¥bÑ&Y‹´`U¸2Tìîê<Ÿ…΂wÂ÷B÷¢+m'˪pe¸2€S€R„›„š€S€R'Oš8 xÐ4À|àŒ ŒÀÁÀÆægeægeœDx¡iYü!Þ k˜7Äd ó†xƒ¬aÞo5Ìâ ²†yC¼AÖ0oˆ7Èæ ñYü!Þ k˜—«>ñŸoY_»žÍÏ+i‡Ïm«ËÕoËoGof^ê¿ç·^Vj©æ/êÁè|endstream endobj 29 0 obj << /Filter /FlateDecode /Length1 71860 /Length 19949 >> stream xœí½ |\µµ?.Ý;ûâÙ<‹=¶çŽÇkÆ[lDZ³y/±;v¼$v'Û“Øa¼ÄKB ìJ¡Ji¡Ð–BÛ´0vb–ÚG¡´ PÊÚ…÷Ú²5-Ý([ìÿ‘te³ðhÿ}¿÷úùÌÈ瞯t%]éèèèH÷FÑA$¢æ¦ÖüBD/5ÀeCï`p„Å_¸!üíÞÝãÒý#/.„—R>´}dÇà…¯ŠKR}*ñïïÝÎò\…ÐÒGúCÁ¾÷÷Fv€Ä’~H0~7é$B¶G!žÖ?8~¾ü¼;Zõbx¸7Èâ_­…ìƒçä3J ÿ›( C_ùðoÛŠ× T062<6>ëFW TEê—FFC#¶© ¿ª!õWš¹EÿšÑN4ý=å®E7 ‡Ñ¯PºÐ-ètúŠ  'Ð è_ø›Ù«Dñ8R!B³Ξœ¹ hZ•rÄl i>eÖ<û‡ÓÒþ0sìyfZeE:ZÖ(<©Á§f?ÊI|¶„Ä…+›h‰?©¿2sïÌݧÉ`=Ú„6£-¨ u£ ô¿õ£Ìy(ŒÑ Á½pݱm«r<Ÿk¢q4vC<&ÇȽ]4>ö@8íEûÐ~t] _÷ДpgŸt!ºFæbt Eœ³”KÑeèrµ+ÑUèêOŒ]=‡¡kÐg`œ?‹®;'¾vAìzŸCŸ}¸Ý„¾€¾zñetëi©7Óô/¡¯ ÛAgȽ› åvŠÈ݇Ðcèº݋ì©1‰p¹l§2€^Õb&¿=sÒºúNúvHîéù~IT‰Ý²IÎK!'«…©å‚Ó$q=ôáù±ØM´ÿó©ÑRù¤T.[£$óe#èôÔsá/ Û`~®Dª} 0C·Sþ•¹¼wÐø×Ñè0wSÄ9K¹ ðÝè›0·¿£ï@˜Çшñ{ÐwéÈEÐ$šBGÐQÉûÐq4MÓ?éÞÙÒÈéSs)÷£Ѓ !ßG€¥ù!žò=H{XN}”¦±øÑ@œäb±ÇÐã`¡~‚~Š~†žB?‚Ø“ôúcˆ=žA¿@/`# Ÿ£·àz =­ü ŠC`³9ߊ¶Bøü)‘Ý1ûþìžÙ÷ÅZ´·áŸ\¿Rù Æ`7æ~؃tŠÿDñèèì{âàY§~©ìŸùÚì›®¸||lt×ÈðÐ`ø¼ý;¶‡úz¶míÚ²ySgG{[kËúæ¦u këëj×ÔTWU®®”¯Z¹bù²²Ò¥%Kòórs²2ÒÓ|©W¼Ål2êuZZ¥TˆF9Õ¾šn)’ÑQdøjksIÜ„„`TBwD‚¤š…y"R7Í&-Ì€œÛOË`9s9±YZVäæHÕ>)r¢Ê'MãMë;_[åë”"')n¤X‘A#Fˆx½PBªvõWIÜ-UGjv÷ªî®‚ú&õºJ_eH—›ƒ&uz€z@‘,ßÈ$ÎZ…)²ª—M Hc$ˆéÕÁ¾HóúŽê*·×ÛIÓP%­+¢ªŒ¨i]Òi3ºFšÌyäÐg¦Í¨§Ûoèóõ·tDÄ :$V:teÄâdûª"Ùû~ã‚.‡"9¾ªêˆß•­m™{Ž(ÓÍ>éÐß4Þwò÷ S‚rŠ*Ýü7D é✘à>ÇÚ-„þy½¤-×LPD"×w°¸„zÜS(ïïŒÝäÎ#üŽ½Ü9ÈïÌïöyÉPUwË»û]‘ƒ=RnHŸþ¥ÃÜ—"bFwOo?áÁÐ!_U“[[G$P ”ûZ=YùƒÝЉ"†õ‘|ßH$Þ·še€‰ŒÁ@k-"‹ÄWFPw¯\*’_]EÚ%Uê®b $uùÖwÜŠf_›,–ÜGŠP1ê$íˆ8*aP2ªuômxºÝ} ŸÛ¥·7èñuú:Bd”|æHökð8/}"-};-7ÏLz®N×H‚[ì$£ R \|«WÀ 3 ’]½BêÀnijÁSä-¨"bze-¹%’¢•µno§—ý>¡In¹MÊôˆ&ª.3$̵‰=çœMc¹Iƒ²¥êPUTTª”(×vöv Dòƒ¡„† g-¿%¦ÃÌ…4ª¡Id]R5K¾¯Ó:hî }#²¦ã»¶Õ·vý¦:Ú²–´-ˆ±û¥,A^¸Í#B%è`ß͇•Æ×Ðø\´ö´Ûuü¶´ëС¾I$¦UvOb ”•×tFšü¾Hßç%íÌÍ™Ô ƒ·­»æj ˜;_MÐ'™¥šCÁéÙƒ=‡&C#ÕÝýË`^òÕõòµv¬pÓÆ·t\àÞGžmEkñÚ¶ÕP•€VOúðUë'øªÖM÷›Áo¿ª­cJÀBe÷êÎÉ4¸×q¿„P€¦ $•$’ˆD"¤¦ˆhh~÷ý„Ò» š@ã½ÓÑ4 OèwZ`ifö  ú àŽ‚Ý ðÜ HÓ°´ƒ,w–œ[wÌäÎDo²ß$"è”M@0FDJ’¦ åÈ«Å舱{êl¡ÉÓøà¤6ྟÖÔ"ç<9IÚÁ¹4h9ÉU˜NÒhZ“nGŒéuAXÝXy=¤øJya 1‚z¹ŽGYªšôÜr“0={·o¯7궃¬~Dÿû~˜¨¨óÐé ‘ÍþÜÍé©Fš|èÆxöL^㧉Bz/Y€…£ú&U“¥ÒW?)¬óSŽ)?TïƒDH'ŽŽÓÇ+õu’\ÐäfjËΙ Ge"Ë4­üy9a9ÆóPdÇÂhÿ\´†8ƒéẏ€®[ º²Ó ƒfò,dD¤C’Ù·ÌG.´ðBÝ0HsÓÔ´ŽLšƒ½RG(;TXÓ}¨æqQ{ƒ²Øä'E†ü ª„yAy "ÒÈÁf©»SêׯïðzÝ0KÛÁOõÉRÐÌúÓ¼‰º*ÁCDÅx*íÁÏ +H„X &}ÒF…FÇtÚÂGo¾äþ8´bJŽ*iohOæú„¬…¬?Aú I먑Ԅ|¤®½ÛhœŽ9/î¦m¥² ý%çÑ;dI±ZÇiŸØ3‡hziK‡èSÆè8ÕÑQÙ)Az:Jû(QÎÆb€ö‰ÉbŒjÅÔ”õ•ŒØˆœÎŸ2õ„©|FäVAÊ }*«sŒJj¾ä‰#´/ü¼œÉ–µ=Lµ†hB¿¬¹¤Uäl˜œ¹ÓØk®×Lfì)l‡ä~ SÙöÐœó-Žî‘Úù´ëõyÏ£s7z43imƒ´†½Tò,–7×¾!Y“IÿÙ¸ŒRmà:¢cM4wd®7¬;ä½`#´{n”‚TGÈ \Ð/nyz¡%Aúü^ùùyÔºì cEîœi¯–Ñë ²æpÍ/Z Árœ[ÓÇé3û¨&’§œ77ó3óL;¹CÖ둹ÜDsÙˆAþÕÿ7öV³¸ÿ6·ZÒ‹²è,Ë–ïKh ÕŠaÚ²qÄ^-ï.îS«–G-íBíÉ“u.ð^ªC;¨‘±Ù ©ä­ “1¯•Õ¦m -ØN[Ëì«ël::Fõ|„öI—#£ÚIŸÁ,Í^*i&™ñ¹Ñæ¹¹]è•m7™å9T$߈¬Ñvz„ÊuH¶¬–Ê69D-Êí!k]måÓGl\.ÁôgôŒ”ís}ÈùT–€­ }T¦ãòêÃæ'{nÎÜsNï³¢{ä·‹ýçÙ¹§t¦…éœb3ÿLÙ“2leÉ‚üÙ 4øìµ³6ü³²žlu—äõyœŽ\ï‚uòô̯Š§·ky”ž°¾0oÛÊÑ9Ï£®½CÔŽÏÙS¦{ÁZÅìÁ°|e½bx‚ÎfŸúè:6 ÛVɦÖÿÜ:ʬø<2óµó2åUôS{7 Ë™Xu#µ—!¹ÜÃàR^¨Õ9td‚÷!î_nçNŸ Y§Ù…µÓ{¨G1@GŸŒjÒˆ„v@~/_®sÛi¶3[ž½óÖbÞà­ùGV§O¹HI§ÕÑÀë’ç´™¼½gãĵ†y'ay™×îOZá¸Vž{•##×<7sÆ¢|6ÞL Bò³˜Å’Ç=‡öyT^}¸_Áü¢ò8s=fz5"û;ì ÃÔïÒ~rM ¢ùUþt{ö?0s Ò¾¹ ȶ¾Ož«½²¯=DÛ½fPo|Œê¦ÜÆs-àÖ…ë<Œvv”Œú¢vÑóáSׇæw5<÷Ù­[ÎiÖËþôÒaº+8­ß¼]ó>Øü¬™_‰øæ ¾;#»0EiÈÝ…©¾õG­°¬Õ=´-!y¥š˜Ëh[ÂÆ0_ñ1:KÂsmàóz¡.}z©F¯ð¬—Ñ+ÍBž—Ä*ÇÁrùj0Aw—L2¡¨ôÑ+yæ¼\vBŽÞ¨µcüì1³ü}´|Å[¶ÀŠ3ol7Ågóº‡èÁW™èý_'ÎfS–£¶‚UÜﳯ¹ÁsŒèè\ïǨ–ÑÚÙ,:sçûÏj_ßjQ5½Û„j ¶VËšRiXѸ³bUZ)™£U¾ŸIGj#]‡j!_;]ãX-p]ñNjãjDã$¶ò¯ƒºHÙjÔAŸQ µµÒœ-´îFHm^-ç#%*!¥â¯¡V=o”b{ˆ:yMd-mƒti®‡ [UGŸÈ[Ö±¨¿V¾[u×ÑúHûÉók(^7×ι¥TF¤fRg%´¨ÆHj;ðfÈ×JŸ_AûÌZ»Žö¡î³¾TÓ'çÉ}eùˆ|6ÈwÈ‘ö5@˜ïU•A-mͼü*7CËIýkàn]!š díi+•^µ,3ÒÛ›ï©JÚ"U"ƒ*À@kæd×B¯¬--Qµ-”ÝFz>ë_…|­¤’k¢16•4ÖFÇŠÜ͑Dz…öãô§n¤šXMsUзÎiH Õ^Öz®ìMQ-aÏ#cÝ®ÕÒ'ÌV ¿ß.ô™r!R¯ 2!íj{ò¹j†¹ù-©°`q©Ô8Ð;:<6¼}\ª Ž åIá°Ô2°£|Lj …Fw‡úòŒµ¡žÑЩi$4Ô¶w$$5÷OŒKáá½RïðÈÞQRB"5I„-Í‘Z‚á‘~©68Ô;Ü{¤Ö÷Iµ}cä9mýcR8ºžíãÒêžð@o0,ÉO„<ÃðPilxb´7$‘æî Ž†¤‰¡¾Ð¨4Þ’ëÚ¤†ÞÐÐXh¹4 I¡ÁžP__¨O ³T©/4Ö;:0BºGŸÑ„Çò*ƒážÑòŒ 48 Âs‚CcPËèÀvi{pp ¼WÚ30Þ/MôŒ‡CÒè0©µl®Ã¸ô2…ä zÈëZN%5O9ALÉ(™9}Ã{†ÂÃÁ¾…Ò 2QfAw`ø˜+Ð"Ý$yúCá‘…»ºË²“ ó¤ g`œØ'c4yû0™-¤É²¨s¤žà´uxhÎRðAÈ’u!4”·g༑Pß@0oxtG>‰åCÎm²MɆá¥jAç©æìFðlÆë9GÉñ "æÃÐ'"˜Ka0lTÜ Í$åCi46“Á£“ú "A)PlL_Ž´}Œ™"0w@Ÿ‰ŒAV0¢P\îc7D„¤†šëÙ§ïiPpll¸w Hô昬¡ñ ³§aL©qAo¥VÙRÿ"›¶¨ZC6gÍGí,IŽR·YÝHëùíðè){6©k”­Tð:‰Hsˆ-ØNxˆ dd:4ÖO',TÝ3A&ïI”µz˜ =<2À,ê9›Ê&<<’MYÒ´{ú‡?¡dLŒAcB´‚¾a°¡´-;C½ã\Áæõ”¿o€N¼eLÅÁŒíE-¸CÃãdÊ0c> Oc¦)ò­±~²ô„ÌÜ`TGGÉãÇÆA™`ˆæVžO™oµÕRkSMÛÆŠ–j©®UjniÚPWU]%eV´B<3GÚX×VÛÔÞ&AŽ–ŠumRST±®SZ[·®*Gªîhn©nm•šZ¤ºÆ憺jH«[WÙÐ^U·n´Ê­k‚u½f"TÚÖ$‘ÊUÕU·’Ê«[*k!Z±º®¡®­3Gª©k[Gê¬J+¤æŠ–¶ºÊö†Š©¹½¥¹©µ_Õ®«[WÓO©n¬^×Kî:H“ª7@Dj­­hh ªh‡Ö·ÐöU65w¶Ô­©m“j›ªª!qu5´¬buC5{tª²¡¢®1Gªªh¬XSMK5A--4›ÜºµÕ4 žW•muMëH7*›Öµµ@4zÙÒ6Wtc]kuŽTÑR×JRÓÒÕqB‰&Z ”[WÍj!¢–Œd!ñöÖêù¶TUW4@]­¤ptæz9èá ÈA7Û8ØÊA[8ØÌÁ&:9èà`#8hç ƒVZ8XÏA3M¬ã ‘ƒÖrPÏAµ¬á †ƒjª8¨ä`58(ç`+9XÁÁr–qPÆA)K9(á` ÅqPÈÁb 8Èç ƒ\r8ðs°ˆƒl²8Èä ƒƒtÒ8ðqÊ—‰)$sÄ›ƒD8pqàäÀÁƒxlX9°p`æÀÄAF è9Ðq å@ÚJˆ` ð,3œâàc>âàC>àà}þÎÁ{üƒ¿rðþÌÁŸ8x—ƒ?rðNrð{ÞáàmÞâàMÞààwü–ƒßpð_ü'¯sð¿æàU^áàe~ÅÁ/9x‰ƒ9xƒç9xŽƒg9øÏpðsžæà)žäà?ãà§ü„ƒ'8ø1sð?âàQþƒƒrðáàa¾ÏÁ÷8xˆƒ9x€ƒû9˜æà8÷qpŒƒ£á`ŠƒI"ÜËÁ=|—ƒïpp˜ƒosð-¾ÉÁÝÜÅÁ78¸“ƒ¯sð5¾ÊÁÜÎÁW8¸ƒ[9ø2_âà¾ÈÁÍ|ƒ›8¸‘ƒ8ø<Ÿãàz®ãà³\ËÁg8¸†ƒC\ÍÁU\ÉÁ\Îw{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{0w{ð(ÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜÿÁÜíÁÜíÁÜíÁÜÛÁÜÛÁÜÛÁÜÛÁÜÛÁÜÛÁÜÛÁÜÛÁÜÛÁ•G˜.›JYåŸy*Åì»x*e°ƒ,vcN¥€]ÀbÛÏØ>ÆöN%W;*¹ØÆv36Áî³Øc£,q×Tòj`#Œ 36IJ 2f켩¤j`;`¬Ÿ±ŒmŸJªb±>Æzëa,ÈX7cÛÛÊÊu±ØÆ63¶‰±NÆ:ÛÈØÆÚkc¬•±ÆÖ3ÖÌXcëkd¬±µŒÕO¹ë€Õ1V;家†±š)÷Z`ÕSî`UŒU2¶šÝ«`匕³r«[ÉØ –s9cËXñ2ÆJ[ÊX cKXeÅŒ±Z [ÌX«,Ÿ±Åb3öc²{°ØûŒý±÷ûÛ”« Ø_§\­ÀþÂbfìOŒ½Ëîý‘ÅþÀØIÆ~Ïî½ÃØÛ,ñ-ÆÞdì Æ~Dzü–Å~ÃbÿÅbÿÉØ댽Æîýš±WYâ+Œ½Ìدû%Ëò‹½ÈØ SÎÀžŸrnöcϲÄ_0ö c?gìi–å)Æžd‰'ûc?eì',ËŒý˜%>ÎØcŒýˆ±Gû–ó‡,öÆaìavïûŒ}%>Ä؃Œ=ÀØýŒM³œÇYì>ÆŽ1v”±#SŽr`SSŽÍÀ&‹0v/c÷0ö]ƾÃØaƾ=å{¿Åjù&cw³{w1ö ÆîdìëŒ}±¯2vc·³Ê¾Âj¹±[Ù½/3ö%Æna심ÀÍ,öÆnbìFvïVËçû»w=c×1öYÆ®eì3,ç5,vˆ±«»Š±+»bÊvù”½ØeŒ]:eßìÆ.ž²·;8ecŒ/š²—»± Xñ¬Ü~ÆöMÙû€íeÅÏglc»›`lœ±1Võ(+¾‹±‘){/°aVÙË9ÈX˜±óÛÉØ+×ÏØÖ²í¬xˆ±>–³—±Æ‚Œu3¶±­¬Ó]¬e[ÛÌ:½‰UÝÉÔÁØFÖÜ ìAí¬–6ÆZkalýT|XóTVg*«ÓË*“X-ÆRX¹dÆ’s3–ÈX”¹ ˜kʼ˜sʼ ˜ƒ1;cñŒÙ³²VÀÌMŒÅ1fdÌÀrêYNKÔ2¦aL͘ŠåT²œ –(2&0†CYS‡ÐŒ©×sÊÔçùðG@}iïCÚßÞúÐ_!ý/@†{‚ø»@úÐIHÿ=Ð;pïmˆ¿ô&Ð@¿‹Ûáùm\¿ç7@ÿôŸ@¯CÚkÀ ô*Ð+ø¯€~ ôЋÆóÏwõ<ßÑ_à9¬¿Ðóm o}èn »€¾¡ÏõÜ üë@_ƒ2_~‡þ<Ï퀿ø6 [êúÔu ÔõEH»è @7ÝtÐç¡Üç ¾ëuë<×éš<ŸÕíð\«û†ç3º»=—‹éžËÄRÏ¥¸ÔsIûÁö‹l¿¨ý‚ö _Ю¿ë/p_°ö‚ý¾àW¬*Ýö}íûïkßÛ¾§ýüÃ{Ú®@Û…Ë+ÚwžhWLÄOŒOˆÀ‡'pÕ.˜Àš0OH¢a¼}´}ìðh;m=8U,Œ¾6* Q¬›ž}äȨ;¥xàÀ¨Ñ\³«}¸}äðpûÐöÁöÐÀÒíý‡w´o/íkîkï-íi–v·o+íjßz¸«}Ké¦ö͇7µw–v´o„üJÛÚÛ·µ·–®oo9¼¾½©t]û:Ho,]ÛÞpxm{}im{ÝáÚö5¥5íÕÐy”dN’’D3iÀº$h rãÕî€û5÷»nrGܸE«)Ñ“(d›peSN¸(áºÑäzÊ%\Ù95&çSÎ_;ÿèTØÎì¼ä0;$‡h'}s4¶ÕP^^Åøâ%´¯‡/£ÆdÇ&»Ç.TÿÑŽ¯@"–0FØ LÔ@ž£Øî©¿‡É,I‰0¾µù×NkPËÚˆ¦ys_Io%×ÀúMÕUÔ¾isÇ$ÆŸí¤ÿ­ÅH<ùeÒøå×^‹’W¯$·vL‰wÜ‘¼ºsmä Áų#ÈÒéß:61æï¬D–×,ïZDûÃæ§Ì‚É„M¦Y“0AãMqž8\fãÄ@Üâ¥5&£Ç(ˬQtŒBú—ihn«1é=z¡½\ߤúòÊš€>· æŒ~!ýdOöo…ËÖ±q?ýƒX'ž Q?I%cã'a‚Æ‘ÿ,°mcðç‰ãŸ\êÿúÿo7àßÿÇþ ¥³Âe¨O¸è ‹]t!Ð@€öíÚ t>РÝ@@ã@c@»€F€††€Â@çíêÚ´(ÔÔ ÔêÚ´¨ h Ðf M@@@6µµµµ­jjZÔÔ´¨¨¨h P P5PP%Ðj   P9Ð* •@+€–-**Z T´¨¨¨h1PP>PP.PhP6PP&PP:P(È $y€R€’’€Ü@‰@ @. 'Èd²Y€Ì@& 8 #H¤Òi€Ô@* %¢b®"„êÆg€N} ôЇ@½ôw ÷€þôW ¿ýèO@ïýè@'~ôÐÛ@o½ ôÐï€~ ô ÿúO ×^ú5Ы@¯½ ô+ _½ô"Ð @Ï=ô,Ð/€žú9ÐÓ@O= tèg@?ú Ð@?zè1 = ô@?úÐ#@}è{@=ôÐý@Ó@Çî:tèÐÐ$Pè^ {€¾ ô Ã@ßúÐ7îº è@w}èk@_ºèv ¯Ýt+З¾t ÐnúÐM@7Ýôy Ï]tÐg®ú Ð5@‡€®º èJ +€.G}1Ì óÃüÇ0ÿ1Ì óÃüÇ0ÿ1Ì óÃüÇ0ÿ1Ì óÃüÇ0ÿ1Ì ó À`0Ø 6ƒ À`0Ø 6ƒ À`0Ø 6ƒ À`0Ø 6ƒ À`0Ø 6ƒ À`0Ø 6ƒ À`0Ø 6ƒ À`0Ø 6ÃüÇ0ÿ1Ì sÃÜÇ0÷1Ì} sÃÜÇ0÷1Ì} sÃÜÿ߶Ãÿæ¿Îÿíü›ÿÐØX”cF~®m[‰·‹fÆÄg”qHDjT†Ñ:tsärÇCÈšî@Ëð±cöª*M®úû Å’`hÀE® ˜‚ñxbb¹ïøÕµ¢¥6þGËÕׂ…/?õê©'óO½zÒZ–ç¿òú«¯›ÿô¤¥,¿èõg__ |¢ñxŠ.ñ/U׆EK9)ІË‚úÚ0Tâ*÷'>é2ßÿ¤ªñ,îį…R|œ VÇ«|©yÂ’ÌŒ’¢¢ÂUÂ’â _jœ@ÓŠK–®‹ S1ž§¬H‹Ï|¼Il:¥.ô•o(R¦$šâ*¥ä²æ®H7·nN_‘—¬Õ*Q©Qg-]º6\úKµ%ÙîH¶j4Öd‡=Ù¢>õ+e܇VÆ}T©t£¨Z¾¥Ñ«˜Ð`sºÇ“nÓ*†Oýn§¨³ù’’ÓMXƒ§Æ„ÌiQbœb?þ5þáJ‡;N!ª Z¼|æ ­Q«PƹŠ)}œF5&ýµ§öƒd¿ƒâ:Ðk+ò /É’˽Øæ2ãF›Ù—x#\¬¸¸@T¶ò!Kœ}óäH 1ÉÜHù{G ”¿yr'>n¹°a*n½{gL*ÛPùÉrÐöש°želqA—{2Î5 GÃqë•$çT²‚r—S•& êMÍXb).)ò‚(ÔÅy‚Ïg!­¸nÃ7Þ½kæÎìl'Nÿæ›·­?V<üí+î<ðíÑ2áKßüè-žLÅ%™ž_ó–c—ÕlYuð°…ýèT3èT>úé÷ÑòÅØg˜f3È3È3È3È3L –@’3MOä¤'rÒ›!›^yôDNúiÁp¢€7¢€\ÌXp9Én~Üs.jI›Æ9Ó#ü´j[~×®“å8dE$ÅäUh–9Ü‘E-V>Œ Ø!NÓ²üm[»üåD·ø4ã0å)o‡4Íšx¯+QŠ×œ:(Á•¯Ñħº¼ñ¡Q/%º%j j¥RmЫNýcÅ/9:õ¡ â˜üwžAÚâã gI(ÝNä=™¦’…­’…­’…­’…­’…­"ÂvZ’‰¬“‰¬“Í#nH–à^2yÕˆ,éÓXwD¥2ø¦±þˆ}½ÈN6«LÅææžT‘ÜÇÂÝNò Ó ¬9 J¤ã‹’U:E”Ò‰ö|÷ü´6o‘Ê¢Dl_Ô80Ø}lùÆ®œÛ¿¼nGMšxCðÖ¡3ys²ùvVªÚY¾eïƦÅq§>ÈZÓ Z¸fö¤Ø«ô¢:œÅìZ˜3¨ Y”›en œJ¥bZÈ ø ¶xÜP°€+L+4¸]¤¬›(£Ûl&(â&é~¶D4Ï *H40AæñŒßg" jÈ{g¢¥H‡3z‹´/ è ¸ÁBNPt-µ,µ8VÀL=VáVf·:¦qö¤r™Ô`ÆNZˆMóû»Ì'ÍDôóke7øtwO.Í#çÚa‹æúñ0­5›T{E%öVîùjWÅðÆåN½BcÐÄ5ïª/íªL+lêo)Z>ð¹6ÿÆÆ6•BUzµ>¿ªkYIsqbaëΡ­Eø¼ÍŸí-tH©®t,pêÔ,_ÊÒ梥ë–/.ZÕ¶«iýErM ›Þâ²Y“lÚ$_rrÁêô’u+ ‹V¶î"ÿÅóT°5ý`kÒÐÌƦi`H²Òp"á‰8ˉ3Œ8'ç¸p´¬UwñV’”àJpe¤{Z\Jk 5Ö²r‹3!£®.ÜÕÕË’ûø\6ÍGlY[ò™Ö—º¸à"ºÌÀú£Ž+â2“^—Å g:5Øš•šäµjx ãQŸ–âI3Šš²–`…R£×(¦èj£1ê>zXQNÒÉjCfþÐðrñ'¨Ð{´÷’iµguþjQ¯u@?‹‰º%-6“^Oã¿âPf¦ a"3-“µÑ~£ÌõŒSÉ,›4x‹óG¨Ø\,,¤£b\\œW±h»¦§Sqjª"ùí¼ú•/(Ÿ¬Bĸž´P»µ‹¯Iú·v•å3{QX¶¸`k—;`Ô;q±óGaR_*­ÐF©°¨CyÉo‡óê +_“z]ùdÉ’.©ÚßE-/YÔ32–,a‹;ÕÔ¢%ÅLGå5¾j¦µŽ¢Â’¥b¹9Éè‰[þ¹õkÆÖç®ÿæÀÇâue+ƒu‹ ƒV¡v¯Þ°½8xU[Æ×Võ­öt6W ¯t `Ú ›ÊkÒk¶W4ŒÔ§×7/q'û’5æSBr¢/Ù–Ó~aÛ£ÎÜòìšÖÕU0F·À=§Ü…¡•è>2FÇÊ˱Î["[âÙ•ÈR'q*õ’iü~Àm÷ÿÀ/A?E?±Ô~2nþiAÐ"»®d‰W¡,˜ÆÊû2êÝ5æ†2€“ÊFb7ˆ¥v–qCퟗ|—û8+—A ‚ÓËŠ*IY0 Ô4«í,›· B¦ý̵ùOjYÞj‹ÃAøsE½×wùëjj25V·=>ɪRÛ$W‚dÕd­­­Íê¹fcÖ=öâ iU :³ê@媎¥ ø‰/«±d,ËîP€aW–‚QQËrê·Ù¥>óºK#Õ—ô­´.Z]8sKëƽû‰ Ø2–Ä'Ðôcºþ%Qëk¦Ö÷5"]Dtć2å…1S^ÿ C¦,~ào“™Ó‚>`ÌÃq ox:c­üᨭ^|g19®×kçLcÕ¤}êYÿIzÁù]LÒÊ bÀàIx#Ì*°‘Ž‡mõ‹Åw¤’c¤-©e*¬¥"‡bôÂ< UÔÆ,¯Š^@Ì.Óí…$(Õ +Övä¿ZR±ë–Nÿúª%.­J°M™+Ú—í¹ÈèZQ¶¡ÜoPëÔâ×, cBz²5°ÿÈÄåï[nNLuÅÙ\ÖL7Ë{üž—vøÓü>-4·¤z«röeè!j]<å˱Þ]FlJñÇÊÈ:XF´±Œ(gÙƒøð`ó™ÌóeQçˢΗíL¾,ê|¢À:›·F_–éVÄ-"ªçª¥8רl nUßòÓÏ­O«Ih ‹Ý}b˨ÍgÛ¬'ä’ÌàÍÌe'Ó‹Œ×‚-:õUTê³lÔ™¿nïÐX™³âÊ«+Xu  ¢ 0£Ô܇Ys}ݦý Þ>sSãÖª´ŽöS×ð”hÇemÝÊíW‰¿~ùì‡x½2Ù‘ÝM¤u¼Ü×äö‰Ù÷vÈr¢qåtš8ä9åëxPØû};“¦].e—ïÚ¹Øí Êûtž”$cM0×Q>Ò/ÛuyMeÇD $Ó±0Ë¢{Ì¿Pn²˜lÄ!º JŒW.[Îòe~BsÒ/S3Y¨qÁ²EÙe@H˜}næܲHCè^"‹#M…äܺ_ÀÿLz”Î/r Hº–N¾X÷œÉ=G¼ÇHÐ%$ Â<Ò{د:’å©‹aRI-ÈÀRTÄw&LD G¡LVP’à³™ÿ)2Q.Ø&ÓÙzñ¬O ô­‘r]°¿ÕZµÊçôæ§Äq MdµÈ¿|ù"Sßþ6¿Fg´XÖD³ZŸ[['>Slò|;󭡶ØP^‚³ãÅ+n¯òi*†Å²3°˜ÈÉ@9u?(d¢Td¥uî38˜‚‰ŽÜ\D„Ǧ¢#U¯ÌªKª±ðih-ƒiÎ*ìèè*Wø×$pôѹ]rö(mÊÄg™~òa,,{jŒñ€Æ–šèö¹Lª™ËNW3ܦ±&¤ºRíZ£iæ˜3ìcÖÖ§ l¬¨_U“[Z—Û¥-ѧÓeÏ2ûm)“ 9µáô ÷äZbƆ×ÖWÐÚâ «ãê$Ÿ`’a?—¥·Ë'3²Â)Ÿfߦ‰Ï©Ê+«&Ô鵩9•yeãsö_eMr:’Íê†ëêJ;« ̹ë×®IÛ¸»Î3¿øÊN[ ÎL/GMµzÍžö¦ÄüŠ¬ÅU‹l°D4ðÕF½MÓQ7±Q'ya=}dåõôt ‡)z³™¯¯ô =ê ¿\^béš©Ë­_”VLJ‹xQsk,?á•GÈ=É–Y}8ª ;ÿoÇc¡øϽÐÎ úæÆÿf¡] Lb7YgÉyÀ« EÊDOP9&•gã,+ζ³À ÎÐà 5^$âl§ÈÕY¨)²ñL‘wR)²PSÈ*%_‡uñä&žˆ4žìÕâÉM<‘kü‚Žœ7¡ÆÎò]­©Þ;ùH†œÈbå‡ÄbÊ?÷¤‰96Õ+I¡¹³˜è ß*ñC¾m_]6öÝÑáo •”}g øÒ{Ü«v6Õ TyÝå;›jwVIø·C÷_±võ…GG×?PwIOYñ¶Kë/ –o½„Hï–™Åç@zäÄj’ŸXyKt²®éd]Óq;¨“壣NVÑc+zbÎέÎzZUgn:çiÕ'VAÉÿî°ê,jwîêÏoͪª¤Eé_¼ÝmUg74®Ïí9D«ŠèaUMfÕ¾ÊUKñ[»ºt9µØ7³Š[mÅ[ †¢ ¹wѪl{Ãe÷NT_ܷ–]¹xæK­+úSî­²t3Ëâõèýdšúu~ÐGͱŸœ¨,BEL‹d-’íy‘¬¸EòÑ{z~¥ß£0çù$Ö—’s#ñzÎ~¢ÂTx¹Ä?Y±¤/Ï䢞ù;ZaÇ‚•‹å]¸›ž‹ÓwGG–à “¬¶&YX&®¾&Y¯MD}­ò+EXÑc”ZÐúë3Lv©Îހ䥌º>þùÝǤŸfÔ…çsºäUê´½ýÙì!UL•p· Òj4Îä4{BÁ’e¾Ó­azŲ²d£7-Ù ±ØãH±hµZM|^ÃÒS‘3íá¥%U™&Q£ÓiãÜ “õ³'…'A&uØÌüÆüµåk›Ö^´ö޵ʨbïÉ/¨¢UcTÛi/Êè 2ürÀÃÞŠÑ÷aDmå—b䀄XF÷ø=b :âBÔ­„hÔWn¸× ò^Yª{ÇÒl鶌XDöòëWä U½ãMfæ^{É/½ºÈ›Ú¨—^Q{—@úÒ¼WÂÝ;ad1[$‹'Ê/¾~EßzÕ+orS1÷Ê‹œLý3o½„'‹¶^²®`cuC§ oµüåJUº3Ííë™Ù-û[Òj—eÛÕ"x›:•6µ¤.Q Ûžhio dâ¸ê0h‰3!>Ícwß-¹­¾’ôŒâ,OªÕ†K‚u9«Ýl09Ì–³Ú‘à°ù ’2—dI©‹V´ ÷ÎþQT|-CWS ÏF_®†¼Î€Óx2ì¬U/¦›"µ¼4%šOð…_qö“ª…çY~ö' jÌRvž³¦/|¡ÉªÔ5p§ø òÆjzcégZR¼F©U*6'§šã´ªôµcë„8vTõ¼r)´ô0kF×µM«Ó*ã\ £ÉùµøÐœ/åJŸIô5“èk&y?˜IÍl¦™º·øƒûØÌ÷ÈôÈþ>µz¸ñðÈ3ÂCö›Z[n]¦^™Pn«rþ›nqç˜Ù\­\ .šÜù£kRæl'×ó›%jYK–Οaߪ¶&ÛÉUã¨Ó¤Žg›Lg~mÁªýÕêx«vΗÚÓ¾nÅŽ«{„Tn0Nýµi[ezG»0ÁSä÷«â~b6²·è¾YXåÉÖã!×tNa ;diØe?¿!¡Ü*s ùç{9Äæ›mŽÚ9{r„jHu6hÉpd¢BÚ?-ì?®Kñ%4(Mµ¨üDù â7ð>’0‘w–‰|ŽÖ/øØùŒvŸ?³½Y^–àõ抗˜ £{3´rFW²YUä›:ò£Vƒ ôÿ€ µ6 6ÐƱςæá‡òW­È#4¸&?¯ˆÌ <ó†¨S~Ù‘“ÖjV¢ü|òùW~>Ôá”ÇA>–VSaŒO¶'x­ •Ð¥0ÚRìà¨*”2š4 µÑfTí7š´ 'ñFR5>*ä +‘ IÔCGjýI"ŸM½<ªÐŸ “ošæÞ‰³ÖÒé‘gµÌlµÂ &™âÉÈHQY¡ÞËgîÆQ^ƒ|lÄv‘z‘l¹D:E»G9*χqcN‘¸«œt «À ·:羄ÎéDeÄÜÖµm³Ç%'Xm±¤¥4ÉSÖR„µæ$‡3É,({ž˜é|þ…™M?5XôJA¥Qnÿù‹¯ìÚõòKÏìP¨T`fͤçû …o@ ½¨’Ù+ó­òþ„ðc¤¥Vúq¤žî²Y‹ý…r“I‚Üd2%øzQb]R,dfÈk´ÃŠßH*]_"l‰ÖÄd#VnÙºu«B0'9íI°cBHØõÊ‹?߮Ԩ%Ø–Ÿà»_xßý„Ö¬ƒÖª'fš ½×ˆÛq™r4ÁM­‡Ò¼´Šh”2PÖ¨9eùñNU›\VkBœÚ©³{.¯]‹Å+æŽ,ž¢¯#´ìÝZØ‹<®ôÂLóc=·„ÓŽ#Óùqd.qfÒMBcw.Ž:h$§öñdßO>Îwô ‹’ØöN’Å+ɧC’¼yþ&™-àA“ÿVe@«“P ‘~ï%_æèšt¢~µ‰¾èg«°s CºÜ7ùÏ ˜ZÉ×½ò'©'翈„ÕÎüzWôI±Ÿ®„ógš¤øÑ°©UI*˜ûôôgšŠ¨ƒ#…øxþ`äâ}wo÷„#÷Ĺý+ Úw®t¤T„jKÛW‚=ÝôÞdpã·þ~ǧü;Á/ín_šÐü™‡ÂŸûéÁei•[G/'ºyBâíJ'ÊÃ: ii)8-§%aŸ§%â´L}'Φ£c%~PýF HFDø([ÞQgË"Ï–÷‹Ù²È³eG+›|^—â"…\zrÕ[ˆ7m¢[ g@ùKµ¨ôGHt‹¤…wX°ÅfÆåG|-Ùæi¬žTµÑuùÔ z"B~'È'&ô%œÿGTöÈ?ï?w¹Ø>Rñ0T¡"uL…Umò²=·0‚ ’ÇÁ k¬ŠùÂKÓåW$º¡¹]¥3ªOmQô*•Ö¨Áq’JD,,‹«Ë ;LÕÛš8­²Šl¨Í‰6k¢E+¾x“NaLqZ\fƒêaQ¡À µ^õÑuZjÑFaLn…¹± ý„Ž‰1»ûSpv2Ù±ˆðDøì ³ÁAœC¢~¬{_Q:T&HÙÂEHÏD¨'û=yïa)-“¤2мûŠª¼VsÙ4Îârd§Lùôu&9Ñ;AÔš*2•$݉¸³*òHm˜Õ¢"ÕÌ‹’+åG½èä%û‡Ó>IUÉ?ÁrOl>@kÒžZg7©EÉðÑÆ2kÒ’æbúA*8´ A©q-ï!iLze=ù,ZmNqħ8F¬Ûòùó{üþÆe©©Y©kŠÝä0ÇÙÓ|®%[öU¯Úݽ£Ïk­nb‘ `÷ð e Sø½f³ÎÛ¢c_iƒè‹NÊ{¿|ŠEþùÏ ?û “çi?÷‘L·™V©GÕéâ•ú ùG>ó‡·sƒ‹ç§ˆû°WüE¼õóšxvv{êmƒÙk¥NŸQÚRrR¼‹SÌŸ·Øg¾*ÌlÆwãoÆÌ»üH›Uæ—-%Ái­òÁ¬ÿ?æÞ:µŒŒÙV\*Þ&Ö!#xº«˜W§¶ëÂ:¤@¸ºùð VþôŸc(ôÔð*\. ±Üaq8Ìás8, bâmNÓ)ƒÉoþjÆ¢˜åñd¥¥¦Îl$'é©©°þ<ÌÊðÖ§ ÂÿẢ ϧ·Å¹ƒrø\AåUýìÌ ÞÏ‚fÙYÂSÿÚ ýõ™A7AÃGgú›I0h¸f>¯ˆË^~|ö`ÚcÚcÎ6aÁò¥3ƒ5çŸ O-ؾ+öåöo,ÄB,D…ÍŽï9ÍÎåŸ2œn>GxÓø‡Âè¿OH(ID‰&>è¾éÿ|x-b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!b!þw"?üÏáDÊŸE*ôù÷Îh³œ"ÿÄ/ˆŠQÔ.ŽŠbXü½xRüÄßʵQÜ€¢BŽ*èÕ%ÇrÐÂßFzÝJ¯cè,?,`6ãDœ‚³p3Þ„»ðãa†Á?ÀáÇñÏà™ÏÓ'+HÏÞÝ7; W‰\!NÚóïÙ+Òz„¯GJ¤9[gù–ï]ôîìÂfȉ›'üð¯"ß¿”~¾ó/¥ÿ(õÜ$~­ùW“âJQŒþŸC[þQR£[Ä´éÓäíŽ&ñ#ÔõiHØ…Òÿ/“ø(ZòiˆÈŠ~]þÑÛ³Ïs¿2— î•T}óÏ:+•Âxü#4_¶[ø º%šD/ZÿiH¸yÿ_´óÆOKâm(U9–œNâ”-ÞóâtÊF1ŠQŒb£ð,Z$¤¡Z %ºù_I¢᳑0†ªÿ!D—íûŸ"ü(º&Fÿz‚}z-Ð=@£2Äèÿ‰£­± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ± ±ð¿È¿oW-{}2rïÛL+þ†Ø?ˆðä_Ó£êö4}ôᩃÚßkJ ªEû÷ðÿyq›2endstream endobj 30 0 obj << /Filter /FlateDecode /Length 404 >> stream xœ]“1nÂ@E{ŸÂ7ÀÀz$4 i(EI.`ÖëÈÆrH‘ÛçÿO’"Å_é1kͼհ:žNÓx«WÏË5¿–[=ŒS¿”ëç’K}.ïãT­7u?æÛéÌ—n®VÇÇn~ûšK e¸óSw)«—íZ¿¬ïßäk_>æ.—¥›ÞKuhš8 CTeêÿ•Rsÿâ<ü\Ýà*Ó48»P€;â>àž˜Cfb X€Ûu(Mƒ¸ ¸&T’ª‰Õ„JR5©º ¸%Z(@#b„¤1ÇH!iŒÄ1Ò ·6­ŒZzšúûzšúûzšúûZ ˜ˆm(À–ˆ‰LS§2èD<›ééŒOg˜×4³qfëBvÄs(À36&#£‘õ¡{"ÞØôÎÆw6¸š|¾W—¯Ó×áêòuú:\]¾N_‡«Ë×éëpuù:}®._§¯ÃÕåëôu¸º|¾W—¯Ó×áêòÅÉÍû]1.!·ùwyëü¹,eºiåµÒ\åq*ÿŠù:ó«©¾×*Ðëendstream endobj 31 0 obj << /Filter /FlateDecode /Length1 63988 /Length 15744 >> stream xœí} `\UÕÿ}ïÍ’Ùg’Ìd²¿d²Ïd&{šn™¬Ído–6¡¤Í$™6CÓLÈ$ -êÂb±‚²‰ "ŠU™¦Â" TP¡êDAñS”".’üϽçM–.XÐÏÿçÿ?¹9ïw÷{î9çž{ï›iJ8BˆŽì'ioëtöó`<6 îòŽaúþ«áîÜ=!V>Ðó:düœÅUÛÇvìúÒï«¿AˆrˆUÌŽ‘=Û±~O3!y¯û¼C?ÏG yç!È,† ݃IÏb¼Òû&.’ƃþ×½˜þŒ_¶i—÷¢±œ¯YPÿ )Žzwù~Yý,”¡¿‚«ÇÁ‰…Dr!U ´|lÜ7öŽûAHbyøº…ùëÈÒÏG |"÷ÈwÈȳäÏœšô“ËÉ#ä×ä÷ä-ò.G8%gæ’¸\ò/û™ÿ˜|Ñ ‰#dáäÂków-¼Fˆ\¿,ç:HÅɲ–r¢fOÍ›¿n~fþ‡ 1²¶Fþ)È}“›]8ÉWÒôBMóWÒ8kñ¦ò–ù»ço]ÁÎ'“ä"²‡ì%“}äRrùÈñJrùÈâ2ˆ_M>I’O‘kȵäÓä3ä:r=¹ÜHn"Ÿ%7“ϑσ¿Hn!·Je4} „Y)-¹ÜIî"ßü2¹ƒ|…|•| Ò_éƒ| ò0Óß„œÛÈ— ÷NÈ¥µhÞÝBä0™&GÈQЦéò(¹—Üx?hóAòù6yôø(hö1–GsÂé³×Äçãäù.y‚÷p/×Å= Ñ“ÐÔ(ç&·É·’ò±…¿ré ’oXx]vráu®pám¢n¶Ã:xEÖL.q×oÛÚwþ–óz{º»:;6¶·µ¶475z6Ô×ÕÖTW¹+ׯ[»fuŪò²R—3ß‘“•™aKOµÆšŒF­ŠR*ä2爣ÎVß/†²úC²,[CC>MÛ¼á]–Ñ!«~eØϪ‰+kº¡æöSjº±¦{±&g×’µù±Î&†Ž×ÚÄî¼=?XkëC³,ÞÂâ²,–ÐA"- ZˆuÖáZ1Äõ‹u¡úÝÃêúk¡¿Ãu­Æ§ÎwÃj D5 åØÆs9ë9ásêVæI”Ž2ë¼C¡ö=uµ‰ii½,Ô°¾BŠš’õ%ú)Ïäjñ°ãÑŸœ1’~»vÈ6ä=¿'$x¡Ñ¡îÀ+C&{(×VÊÝûª¦ì 9lµu!» :kêX€ É36ñÀ_0o›}}eŽWÊQdÿBh”NqQLPŽà 8„ù¥¥Q^®žq“H„öoìÁ´H§‰Ûeï ñý´äÑp‰¹›–ì—,6ï·¥QUÕõK¿»‡­¡ýb¾¤Ï~3áÊÅÕ?08LÑë;`«­E¹uõ„ܵq{¥¹Ö.pA}o?LÂOÅ°±'ä²…bmÕX2Dªgk"5 ÅÖ„Hÿ Ô*䪫¥|‰uúk‘AÚ—mcÏý¤xáåÃ%bâ‘bRBz)!K (%«î@ÏÐöPjâØçv±'1-äîñõÚz|½TK6c(÷e.ÈZÁÜN©®Lg®ÌŒ{øD¡—j 2Äzxت×BÔÅ’T£ÕkÅ.‘„«Á(R [Ñ$„ÌšZ$Ц5 ‰i½iøó>,%J<É3CQËú2BÆ"O8ÎYYÃÚ”¡\±ÎW»ŒÁÊ%¥ÞÎÌ'Oe! -¢¨:ÂEB&¬\Èã¡–EµhC¤]ì±ùl½6°!w{•5ÓoS§­iãy=LÛ’•t­Haù*L…H‡| Ø`½=1¬V–ÞÀҋɆSŠ=ábñ@”­©óíÜ&uHDXA0iE–Ç{õªèXšõàÝlõ^›hëxgö8ìv«ë^Mû°y†Ø:{Ö&2^;zö%î¥CE“&®©«:ß¾§ú°»jãa7wUçy=÷ÃYZ¼ª«gšçøšþêÞÃPÖs¿Hˆ›åò4—fÒ„H´§HD±ú‰÷» ÙÏJe,ƒ¥g8Âò¢Âyœá1ÏÎã!O†yn–G@IÖa1¸Û:qˆªç’Þáý½tq ¨~¹g[OB¼mýaŽWhCj›¯:¤±UÓüJš_‰ù š¯À½„C}Ò~ø)0¨’È¡) ´Kqfa¡«'íxâlo˜Úù@çõ„TvðýòÌF¨·R?doíôR>Hwm«Ìô ö‚Ù†;„*ž zPI=@zÖ†š#4Ý€Yûýíï õÚé =þ^fÎÆi°­µcŸò,:«÷@´­ˆ­MX êÌ+)¨€7ÒÙƒ9‰„ÁzQHJ-p>hƒ¢Á~¤-#ƒ`êèKÕ‰˜ã—(Ëò1R'J…„NKÈÔèÔ!•:„_×8é’”g*{{‘y–ºRªcCà(k™(¥ (òP^à÷J`•Výífã é°]ž…2ÍzRBqH—éñ‚óÇöȱ­ 7Ž¢>B#õq s•tæZ»Ù5³ðUÛž´e?ùݨa’ÄûÁ°IïS3B[ìùŽ¨Ssu,ûÀ(Ý™ ¼¢t‹™L®¨ó„;¦¾íÝN^¡N 9Ë„?ÒœÄ<¸á®*ÀB0ÜÕ‰öïp·çYý|>V¥õy#6#´o=KÑ8œ"dÏIq8e!).#VÙR\ñ_HqÄÿ*Å•d7ܲ1Eò䟑â*"*o”âjþ¶Å±4d“ò^)®%yQZ)®Ó+¢Ê¤¸ž4Bi®\”e­çˆ2®VŠóDfýªHœõz).#Zë­R\ñCR\ñû¤¸’¬±>.Å£ˆÙR#ÅUÄh—âj®}q, ±Ç른–˜ã+¤¸N)Ä·Jq=É„:ád*`.Zþq)ŽrÆ8Êã(gŒ£œ1ŽrÆ8Êã(gŒ£œ1ŽrÆ8Êã(gŒ£œ1®Ó[ÅRå|I) …dÄZˆŸ ’q A ídòj 6NÆØÓ 9~ˆ'”TÁ=b°òva( ²”еwÃsjêHÄ ÇG¦ Fôæƒ>ºÈI3ô¼úd#Ž@lãD @=Ð6<†¸Ès)†XÖbªœ8Øø^èa êŠ0®Æ¡} ’RÝFH C.-þ‚‹óé‚|?›ÃÈYùÙÎä ’jHÓ{Íõ2)¬œ#öf*²Q&¡tÍ7,Ý)h;Îr&¡Ö“šùÃ,¯…x€'*?k7Ê了µ÷±>² ƤRbOQâ(\WdùA¦S?ðÖÞÒfOÿ¬Žxáÿ/Ü œ ’¶òr¥r‘l`V`œM@ >l5œø\P`žÎɼïJëqJ6ç‚øfC;˜QÝì\/ðŽ2÷Š}Ž0(Û·èû°¯3ÙhÙù›;J!ÜŽjµ—Þg“4JfbQÛáÚa_1(ùsºòL´Þ˜dË}÷“ë¨ä3°Ÿ”öJ~ÚǼŒŸÍ¹`|„µ|ªÆ&¤h?ã§ål_œƒãœ<îCL¦ÒŽ„ëÇu,Žsê гN19 ²õt&™MI3õ³•6ÂÖ®üÓeOÛàn“õsWXð™{G>¬l—¯ÜñEiÏž`š\±wž:ƒ¥òT¾Ö,³:œ ž ¾r|ñ42ÄöãQæG¼g)Úžw…U¡?HOœÆ'ÙzAÿ4Äö6¿ä[°Zs„yÿ³Û(zñQI3K½‡WˆÙIc˜ù;¿$gêÕuÌ_ú¤9„Oa)¯´jÓŒ—ŇHøÌuªŸ;u%äœâ|ÌOO±S†ŸiŸjÕ yTB; F¸Ì%õ¹íß™+­Þ%o±tBsóAv§sÜ Ä¤Súh÷!&/Zó‡z [ žXF¤]dɺßo‡ [åÙw9ª¹öÅ•\vFA}£ø¤±ÐcJzw°9K»Oø\g¥’žÃvŒv5&ƒp„;‹{Ù<Öâ%K»ü©þì@‹ò²¹S¹ù%_?$­ÕAéü=Êx]¾gúÙ =ÈlSâñ캅xçÊ}´»LFCËn Ë×Ã9÷G–n:áÚgönŽS¼[Xö§¶a7ÿ)óóµt[Z5K;QX‡¾±Ñ›Y8í[f!cìN6ÂìmxÙ‹\0^|ÒN5¹¨Ëå¾uè’4d«dd‘‡ðº^iKç.Õå;<ÎrùN³Ò¦—$1Åä¸ëCê1¼L²'JÆ·Œƒ!ö¤c.Éå¨1¸lï˜xŒžˆÍ ¼ã­^áÅñ4¶›ÅÏtêe{Dx—Y~g ïgò)+[™¯@] Hó>óžë=‹FÇgdV:ÊzÇUtúmøÃZ@xk u¬´ÔCj3ì–,Çy"xÑ(Ù©ZÈ­…œl¨Ñ)•g3MmfûPÔëf{öÑÏVH÷2WOD–¦©&¨ß }Ѷu¤‡Q½u²š¬ïÈm¬“êÑ5Ó ißÀ¼ Ž× ­ðá‘öDä´ òÅÅ®äÊÃF sÖ©è¿A*­‚¾=¬?Ê?¿žÅ[ù¬—8­b2¢=Ó>k€£f–¢¹Ý€íP¯“_ÅæŒÜ¶²9ÔC9Î¥Žq@GvJsÅzT>›¤ª#Ê_3„¥YU140n–äWØœÓþ7@iÛ!Ú e-›i'“^$3:Ûf–Zšjª†Í†J•Ê â-@e×ÁžÈKDzÞVÊn3+_ª…ó«’ž5Lrm,…Ú¨a©.¦+ZêtÙÁæqꨛ™%Ö±ZUlÆ‹RϬ¹['ŽÑ¶Œêv9/a«ßg`/áònIӧ˅J½ŠÉ„òÕ¹8òÙz†µy—XTP¸JlñŽ‚íbM`|,0îðFbÕȈØáß1<;|AßønßS×à÷M‰mc¾Ñ®=c>±Ù»'09!ŽvøÅÁÀØžqÚB¤=‹YÊb‡wdlXlðŽwBnc`xTl˜ Òqº†ýAqdy?Ûãbµ`Ä?襡NƒÉñAŸHÙòŽûÄÉÑ!߸81ì[<]b³Ð7ô­ƒ>ŸèÛ5àò ‰#˜+ù‚ƒãþ1:=6ÆoÂë :k¼#þq?Ã+î @‡0Žw4½Œû·‹Û½»ü#{Ä)ÿÄ°œ˜ñ‰ã×?º˜‚ª¾]Ðrt0>ê:EÏ„¸Ýç˜÷ÅqÌÂ?c bp—ä:èƒ8m²krdÂ?]ŽNîòCÍ o‚uÇÆ  Ê-ô>2˜‡A¸¢טwpBôŠTÖÀ49ŽÂXíâ€ëšð]4ý;}NQšfvPÜåÝ#N‚J‘o*¾Qò¸æ2îR‰ú¼»ÄÉ1: ô¸r‚þ½P}"ÚM§äA»p,j<ƒÃÞq`Ì7î\4¨Õá1ÅêÀÈÐ& }™³¨XÊϧù+Ä?1îòíòŽï¤saj]´Î õ1š=Œú}Agóä`Ž7˜ š7ŒÃcÁÕ.×P`0èÜné„®‰=cãÞ±á=.ïØ­ 5G&½ÁíQ:ÔZ,8966âã¡eN±70 RÛ#N‚MPƒ¥ÙTƒ Þ ŸCòÇÀˆQ©cã~(„*>@/¨Ò7¾Ë?1Ý ìa³ ›$ˆ l'0Žl§#8NŸ;ØÂÐäà„ƒšänhë m€Ž¦†ýƒÃË8›‚Aý£ƒ#“`ÿKÜFÁZrü¹¸4–U‡Þ[\I`ï ûàĸ2<³Åp_k˜rü0 ¬ êNÆéê LŽ¼C+¥çEQuÁt@}4291ž`ÈG§Ië ûFÆVJ|Ø/V§ ñ³µ2ìðOP¥ë–·芡,K¢vˆÞ ð]ôa%äH¶àuNùwúÇ|C~¯30¾ÃES.¨¹Mò+¹ ^flÐnÎìÏäÀž‘j4ÓÏR1_€9QÑÀzçÆĽÒURQ®p–:];UN-$˜7ˆÀ­À°A2Cqû88>ºD`1î€9Sƒ¬@£Ð\ €Ã¥Bñ2g¶³sŸeÈ ý^j°ÎÀmNxѧúG@29´Ç³;%oýl.ãhˆyDÔÃë1_K³—™›C27Ê}¸xÄvŠcÓ¾Æq·‚Ø"¢3tPîßNÑÇ26  ³ ]LÒŤ™’•À ]0ñ ºéÀ˜½êYYÅC⢑$͘˜ìzŸ9Òe09> ÌøXC𣌗 |ƒa[²c0þ!?[x«ÑÄÁíö-ÛtGtÉ C÷KË-E* Ó=aÀ·båz—MtœœcòƒŠwŸ÷]o ubg[}×檎:ÑÓ)¶w´mòÔÖÕŠÙUÎvˆ›=] mÝ]"Ôè¨jíêÛêŪÖ^±ÉÓZëëzÚ;ê:;ŶÑÓÒÞ쩃"ˆ|Dùˆ òÁ©Þ<ò1ÁÊ ÂÒ‰|Tù¨ òQÁÿº `mâ¿A dÁJÿÁé?Ó*áUÉý6þ¡ žW äó@<‘ .24tH&ä ydIÚ…¼éU©@ò £@£iË®¿ŸE’ÄúªAa-Y%¬!ÝÂjÀ ÀU€å€e€¥€%€Å€6ÀtÀ4@* »@ÿéÑNúÖa¤Ö@^†PHº€x+‘RoÉH¬Mj^€ël¨ƒ9@ºèÐÛ@QÀz:ôX#rÐV„Ú l .   )øw¦S’Sgø¿O§Øþ6âø+Â_ÞƲ?cê-„?!¼‰ð±æ,Âë˜ù„ß#¼†ð;„ß"ü7Âo^NQüS¿Bxe:9àåéäx€_N'»~ðÂÏ^Ä*/`êg?Exá9„Ÿ œ@xá„ÿBø1Â~ˆLGxá)„à°ßÇšßCxá „ï"Cxá1„ï <Šðöù0·1ó!„@¸aá>„{îA8ŠpaáðtR@áîé¤b€o!|ᇾ>TpÂ×°ÝWîDø Â_F¸› á6„[nAø"°ëÏ#|›ßŒðY„›nD¸Û]pÂg>p-Â5ŸÂ®bóO"\páWaƒ+®@¸áãCøètb ÀGö#\†p)Â>„K.FØ‹°á"„)„Ý“A„q„ ÆÓ ¥£»Fv"\€àGFØ°Á‡0„0ˆ0€àEèG؆°¡á|„-ç!ôNÇ—ô lFØ„ÐЅЉа¡¡ ¡¡¡¡ ¡ÁƒÐ€°¡¡¡¡¡¡ ÁP‰°aÂZ„5«*¦­«ÊÊJJŠŠ  Ü´Õ )f:òv„<„\„„l„,„Ìé¸5¶é8jÐéÓq«Ò0SDHEHAHFHBHDH@ˆG°"Ä!XÌ8B,Žƒ™Ñ&#‚A CÐ"hÔ*ì3 A‰™ 9‚ A@à8€[@˜G˜Cxá]„“ï üáolXî¯lFÜ_0óm„?#¼…ð'„7Þ@ø#Â,Âë@ø=Âk¿Cø-Ž÷ßÓÀo^¶€q¿FøÕ´eÀ+/O[j~9m©øÂK?Ÿ¶Ô¼8m©xág?Å®ŸGx;û vváY„g°³ÿÂv?FøÂŽ#<ð¶ûvý}„ï!óO"<ã}wÚR p <Ž=†\;{ᄇ¾ðƒ`×÷c×3Øõ}Øõ½÷ ÅŽ L#ÆaCw#| »þ&Â7!|á®i3ø]îkÓæ*€¯"Ü9mnøÊ´¹àŽisÀ—§Í·O›Ý_Â*·a•[±Ê-Xå‹Xö¬ùyL}kÞŒðYlpÂÓæv€°ùõ×!|Yú4Ö¼k^ƒð©ióF€ƒXó“W#˜ŽíøÄtl/ÀUÓ±ç\9ÛpÅtl#ÀåÓ±[>ŽeÚÅ*qß ø¦¡.õ }CêËÚÖÔÇ€¾ô(Ð#šM©Ó@‡B@w} è›@ß:ôu »€¾ôU ;¾tЗnúÐm@·Ý¢NýÐÍ@Ÿº èF €®ºè3@ŸºV5œz Ч€}¨JÅ¿ÇŸ„«d*ÿ.à0Iå.›Ž¡ËñÒéhjZÁi5­q„ Æ£»Fv"\€°aÍ´‘Âj„ „Uåe¥%ÅEÓj§…Ñ&#‚A ›¥ÌpZ ‚A…… œÖQU+Ü[ÿ4 ô:Ѐ~ô¨ó—@¿z èç@/½ô3PËOžzèÛ@=ôÐA_šáö£¤÷N›¨ÉïAá\„0…°a¡¡åP…àF¨DX°§lFˆEˆ¡p¿ ü´;õŽ‡.w<9$y¹¡µÞœmDhGhChEhAhFhBhDð 4 l@¨G¨C¨EHGHCæE„T„„d„$„D„„x+N3Áâþ<àÐ{@ïzüw ¿ýè/@oý´úП€~ ôß@¿zè×@¿z´{èi §€~ô} ï= ôÐwŽ=4thü^ {€Žú<Õ>?‡2Þ‡p ‚ÚG!naŠe;‚aaaÁ‹Ð° a+BÂù[ÎCèEèAØŒ° ¡¡ Á…àDQç#8ìy¹9ÙY™¨› ‚A† ð®Hâ¾phèw Øç€~tèY g€þ èÇ@?ú!ú~ Ë…ÌÔ ÎÔqÎÔ6ìïþÈ¡ýÝ—5ìë¾ôоn;5ûšö š}‰ï;´ïÅ}ŠKöv_|ho·loì^^½§aªû¢CSÝš)N»»a²»kòÕÉ·'…ØɮɡɉÉë'O@†òŽÉ£“Ç&…™…GÝÑ“«ÖÔv’…ržLrš6©Ñ×O4ŒwwËÆKÆù5os/s|Á8×>Þ?ÎC­#ã9õ´vé¸%¡Þ8^0î.lt t·Ë· È/ \àï†ï¨tõ£ »º¹‹#ñ Äô(¿0-¨òô/0¼ÁÏ»¸ € @~çŽîáC;º·;‡º}‡†ºÝ^g÷6g_÷ÖC}Ýç;ÏëÞrè¼î^gO÷f¨¿ÉÙÕÝ}¨«»Ó¹±»ãÐÆî6gkw+ä·8›º›5u7:º=‡ºÛ¸ Îúî:¡,v’¿c)ûSÞL‘iú“Ç’ù±ä—“ßLÆ’ÞLâ/Kä —%\“ àÁã#>5þšø[ãXDÐŽEïæÇLûM|Émú±ée“Œ˜n3ñ†k ·î6m†m†7 ÙÝîný#úé…6ý6}@/ô4-Ýzga½A—ªsop鄵.]¥®M'\£ãÜ:gQ½[—‘]_©mÓnÓ ·j9·6+·þ õ‚šw«¡à Õ‚Š_PqDàDŽ#œ@ˆÝåÌ©õ·9úÇ*ä„ã®%]ö¦åBGS(ª}Kˆ»*”ÙIŸîç…W…H÷y[zsܧzs|MW(–þ-!–¾üàA’\ÝJîì™n»-¹º·)´ŸÆÝn_ qUzí[ƒ“Áà„=h‡ÐÖ äLLÂ/ž€“´d"H Šý,?´FÂ$«œÜ6 }@dY6MmeUÎÖÇ¿õç¬3ùwüpÿ7ÿÿû‡€!S«.7Dj `§A붭ø7iÈ|Px‘ý-%© -ô£‡ˆŽû"‰#«¹§ŽÖÖFå+†$ODî)«õ‹î¯KL¬´•*>)l4y*•Ÿä»HåÜ/^zÇ£+\Ç9×K³ÏÍçž0U¸fOÌr¦4£X=¯T*¶t'_šUV\\´ž/-ɲ¥ëy–WRV¾^(.Já…ØpÎzž¦9áÅ÷Ú„º¹ ~OÚšÎB9gÏŒK‰ŠRSt™Å¢¡©ÅV–“ —E)y”2»¬ÚÖ=Õ˜þCµ5;)9ÛªLNœ{L®?ù–\ÿîfYí»ñ¿«èYŸ¡Ø£ÓðrUÔsRÌ…Iëšt\Ÿ—¤Œ2éÕy Þ¹›2ãÔê¸Ì„¤LÚWæÜHÜÂIÙãòX’N²ÈKÔ7u÷ÜO2~wTcàšm3 ¿s'ÓX¦Vg³êˆ…Ó[²4j[ºšÈlœÉ–• »½;Å­!Z.ZÐj³“3l¶µÎBléVetrGt·¼›X+++£ã*V™ŠM Øm[ûŠf‹¸x×Ö>ëñ¢â}W;ÆYmíÃhA!x®Ä•<ÜC#ÿÄX…v{o¦Å‚:ËÒ”zÁ–ž•UVΡ¢â”6!MvX«°¬*,®HÑÊ6Ï'tÈtÉ¥vgI¬BË]£0ÚÖ¯©Ï6)ãîãyf¹ 2ê8Ùœ>F#SÄåÙd—˜ÌAÐXbž˜{lñ !²2°Êb'«ÈòM寻'Ac6k}×ëÈ*¦o?5 Ùpà9RX¨Ì˜‘æ‡$·Ê¸±ÄJS%ô8åVvÁüf핳v˜Ülçš-rÍ‚}FW€}&þp½ö‚IËliéY¥¦’²â4ˆ™ÚxŠÀ•8y›ÍD ¼~ûÂkòxy&‰» wXþ1ØNSà©&ñÒʈ‡û"0Ôi³¢/¦ É7-úwFp×çØ ¬ïe›¢¼dåâ‘Ç·ßòÚÍ7½rcàç®{妖ù×Å–ýýÞ¶§‰Íû½ù¿4¸¯íö“‡¾ønhkëí»wûW§ª<{¿¼å‚».ªl¸ä+0GжL€•‘DrÉ¥ÒÚÈP<È_GL$™ÿŽ[EL™ŒIØWìG ­mfqËáìGÝæÚ°¹R7 s=1kd àÞÔ.=.1;Aûeâbc¾¬M*ÊÈ(LÖŒÅÄÈ!+Ñ2µ1»>G¯’ÉÞJ¶Å(•QJSæ{‡:.'¹Ü5ç¤g?z"äŸq•'çÄ©›¶|b‹SgÐÅÓïÌ%Î_'Ü.Þ(¤6r¯|_˺µßïäR:9k'×ù§ãf.Î̳ÑÌÌæþUÂ;kòDGõCÕ<©æª¯j4láŒÂ–§ÝbÛÀ0*gûú¢+*ÙvKw^Hö=Ç€m‰îîåk¹<öÒÐk«Ÿ®æeÕœáý†ßºÄÀŠñûÂû¨ÄbÁ]++[~Ö—"˜—SËádPRÆžèiÒŠ,\IÖâI€ÞŽ³²³õ‚”n·ý–˜ï'ºì­fmL±ógÍSí«'îžÿÒ—)­ Õî*³ÛòÊ®êÈkIãMæùo·{2WeF·oÈZ•³¦¡òHBjŒÂw~EkA¬Ð_à´®KkÝÓi7ëu–äL>JȬٺ¶zrSQ†»·4mmyQ\\›k7Û6ài½¸;_­rÌ¿ÓÐo¯H­m³æ•ÏmÊ/àå161ÅXT—å¢wÇKáîø œ)ŠÈÎð EÃo›.Ê‹áû¤äÅÃ6nœáZÜ*w~cF}|3zdé€K} »LŸSõ•7*¶¯)M§ØÕüø3ڤŒÌÂ$mLFEVÁ@iø|ƪ+=[öµ¤§‡ ž›«j,M®¯™»;œ³ülà®\;|õ õÕ;á&xPÞ G§4R¾ÿXøGà²`†•š¤rßãŽ7zùçf—n:§ñ–C÷mj5`.ÜÞSùŽYßÕ½f]w×ÚEÎ…½°ÛŸ0‡‚æÕ«<Ík*¿ðâüuÜmÀg) }aeòLÛµ|ØÑøxRäœá.>’“ꉥŸ¢ºåhú•ÏÍšŠ‹éÁ„q}äýë-Í@&Y8{¥yæÉÌðŒ6æ®NPËx!J%ONȲjµIÒÌè¬èìdþöæk´ÑqÉqI™µÜh+_+\wú$%;|ì°„xú(-¤-<-ÄÆß{$?ߢžáïsëÝÄ’®‘çx’êM‹–]AÏ° t§›5νJÝŠæLµ–i*›;ƒÙIoÁK+9ÎbÔ$åä§E+çŸ?U…\TTlZaVfqªÖ`˜—sj5ijƒJ.£oŸ›Ï9Ýßû7¨f¹CzÌüOçóc“¥ùs{aþf²^òÆ™ƒÓ¢FÍ駑®ûékŠzœ ¾¦`™¾Ä#áÜ3¿¬8ÍôÒOgLâA¡‚ÓK;¹Kº+×ÇÐ]2%¥HM¿éؾ>›Þ5ŠˆqÙŸnj\þ¦±ÔSÕ¸¾>•'¿9~¹à—^Tœ ï+éKGXJÿL_ÿÀ“œÍµ˜ÑµÄIšV¨¨áf$kL¶ÒÌüóË@LTL¦ô² çù‹G›*æÅ©¯k/ï©+2å´45e÷îmÅÉ›òOq=§ç—„c;ÚÛãìk3íë³cÖî8вèAEä2Iy1Tä)Ì)“ð®oó²Ú°—Õ€—Í‹Ïð,Š(š Hz[óhxnÚü<ô¢Ànîüz…P@^ðÏ pÛ•,Ny?5ÉÞOM®|?•àV_7%-»œžåýÔû58‡÷S2ÙÚ½3O…&V­Û{ßÅ…‚«æçÌE•«ºÊ-…]ë+ºÊ¸×ƺª±úÒ™Ýãß¾²±êÒ™T:œ¹m €ù¹­z£Ÿ¿AF`ŽËoôieêðþò÷»Ñ{Œmÿìþt±üFõŸíF«­ÙUëÖŠ‹vŸ›š7ûì¦ÖN׽џ4åÖÅÒ}IaÃÌÍN=rEƒ!Õ™:~Ø%É~6 κÜØ–+¦§*ü…z£¡ÆS´q;½§Îß <-I0|OMÕØé=5Óû–9Ó£YgO•áù;Ù%3¡q›û*vÉ4¶°Ýð,÷ÔÙÅrK2Ñ›–,*®ôìUiÕdÐ7 T^%CŸéϬ­õ84ñ9bJ®U}ÚeuþÑ°Ô¸¯¥²×ìÂj€+7,ÆùŸJ7ÖÒ•yþAö¦pTò8YØiÜZ’`P§ª]jA'¨éœ\•:Ýj·½1Ë`=fæ2$g¼Þ4I¾Fý«Ÿr1:“saÖ¥à„[ :*6>%Úœ—.æ×b[¿jU’.E´jäpiÊp&¨éE(c­cîÄéÎ%PT•e”*µÖL? ð,¼Æ¿s÷߆ÏUU¼óžŒ¢Œ"-\kÝpú99ç«å° «k*wSZ.–óB¹©Üd1¬åÖ‚Cv'RXûjU¢<·Ñb¤/-‰…3Ê,o…WHÇN§>kï3UT¸\ÛúìÆÙ>ø¥‹4šæ°—þâÿì`KB—…?µv*–Þ4­ø KÁ¿U1ü©Î¢- ­,J«ÒØÝÝeé¥Ù±™ëZ6¶¬Ë,ÚzeW^›Û%¥6J•UÑT^$³Ö·ml[ŸÅ¥4O´fâ¬æ|G²Í¬ŒOIÐ'ä$¤ØŤt‡û¼J÷ÎæÁ›š'&¥9ܽ £¸…×ùOÉ“ÕäÓ¨£ûL&Ýš\b˧'’8]~xEæÃüˆ­!YÎÐÑ7oq …ôÛ†n%ÊÖåq¶%Ï+2ák‘ûIþ‡è÷HÙ™/ñ+¯ú–ðëþSšh›«<©i´!}gL,5É 4ɸw>¦f÷üÇkbÅx“R¡QÈ÷:\1pVÎj»¨ƒû>Þ⟄e.—Ã2ïùó}R¥Tš3@V{è;;á 8=ø¥µ¬ÉÆv©ü6·!&ß“­‘Ç{2¬áóÕÊwktm2§Ç|žþjŸé=ÜÒIš9´²ò¥7rOÓ ÜWãÍçïkIcS‡Å ÇoyøM\úò³Àð'¶ó‹óQõìàÀo çÀ¬-pf:³vVÉÿÓRgø5§)Òl3|Ÿ[CÜi9ž4M‚G#9¡J.Þ•`¥ïÅŒôó½ï” ÒbQr足¹e®;&®š‘ N°ÎðA·Á­OHõÄ«c<ê&Yi _Ò–Œ‹­1úu*:qíëÂÌÓô å1YYÙ\VIxÎÅ1ìm„%VÉlDÕÞ’S`å•S:³|þ¸ÎZá²%é•Ï*båöŠÄ¨ùcñ¥ÑjâìŠx½PbË4G Úø¸¹C¼7ÁeÉŒ§»ÊüϹ;¹4’Ḣp³þÔ‘hM\1ž8ð‰‚ÂLöõ®°¿ºugTt’ù ¥Éšžœaää{é%™¶¢4ÃLNÕêòäGÕú(ðJF {KzžE©´ÐSƾ…?ÃX9DCTÓ*¡™T§ý/{™rgUW—»ª»Ó}mŸ»²g«»’Ê~çü­|’üZb#éî$8q#÷QŸ8bNÕ\N*]œkî¹Ùçè·Ò°ÕDÇYb¥/79öÆ—×µis‡Â’Ÿ“”“hÊÚKËÚJy­5WÌpZyÏãóÞ^œ|ÂgŒ’)5ÊágŸñ±Ÿ?á—G)¥ÞüxŸhà'dÐoL§£Íò-IåÞ=bNP#CôÛrŒ#*@ü‚UIyYti Ÿ%ùK4PÚV&s’ró-ŠÎÍ›ºåB|~fjN‚Fá.|ñùg‡Y°tŒ»õŸ[×YôÀL”ü™ùNàçzB„<Ž8Éé}‰N•Ë©r¸¨lŽ‹æ ØçǾÅ]À $w†ÿÌ‘«Æ4³ð‹{ Ó=Ãís«l¹#§‘é×ÖÃ_²€ÅZT9†`?~¬x”(ÒÇÑ÷,nkn— Ã,‰pÝH¶õa7}}áïp„?d†í^^³””M¿×Ǿ#¨ƒ¹)/ËšjÑG•ÉÎfªwŸÕX³Ar= ¹‡ä™d=g”$§—98™S­æTœÆ ¢»„DÜœe†ÿã½Å™HÅü‰fá÷n5-ÒpA“7Ãùï5­ªÅŠDé†>8%B™[WlQ8;‹WÌÞ¥/²á Õξ·V1ËÑäí³ÇÑC‚Ä·öQa%ºcV0L„áÀT-[û¤ÁVª¥ÖÏ)Ÿþ+ŠÃ_‹S²¯Ü<‹]=gµˆ±*…1>ö嚧ɜ»>oÍ–:§N¥‹’ u|ÍÀn·ï¦¡Bkóñ›¸yØ’;“s4Qq[š+Óf~³>¸­=#m#>%3U›äJK3Y3mÖâ-û*÷~¶ ˆQ|íô ¬Á¥?C¸é_T_8=¨ãYØu–ð2 š~n_ ÚAík˃nËYÂ{º÷ô_0$HáõÓƒñ£*Ì)˜üÑI‹áë1q‘ ‘pÆÐÂÂð¿0„bþþÿnˆ½Á< ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘ ‘pöÀþ‹`žþ&ð+ý_ÂÏyP$ç…ÿwáðp©pÃn ›þx¦ÿwxñGFL$šÅ²ØÓÅžëÙ³‰l~߶ðÃñœ3r \ —õsçq}œŸáÜ$·›ÛÇ}‚»šû$w-÷9îîQî;ÜÜ“0â 6®ŒÎëÍ= ðéÒ2Bþ#çDy'ܵDN¢þQïÒÏ)õÞ$o.¬dBšŠ~‰¸þŒÄ}`º„”­%mÿJ¾Aþ#âÓ?< œä~ÒþAHV r‰P„þHø3ÙðAIÖD.zIùÔmZAJÒx.Ä_Eâÿ7“ðI<¢² ÷7²óƒ¯Yøy˜„çAæAÙIñÑ¥±ÎH- BKm›øŸ’K—“PH<çBü$îßEÀçžs%áûÄ"ÿ+±JÂ7‰(ü€X"¡E(B:Wâ°…ÉFöý¯¤Ká\q)ñFè?à®~=鉄Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hˆ„Hx߀ÿv\±ú•Ã¡»ØfXûÿØüÁ?\ò4Åç=Sï¾0WªNˆj‡º*Âã¿5ÿ?@·–endstream endobj 32 0 obj << /Filter /FlateDecode /Length 198 >> stream xœ]½ €wž‚7(U[—æ]:hŒú‡aÒÁ·÷¸¶ß%Üå~šÃxƒ/²¹ähnX¤óÁf|Ç)”|ú Ú´Þ”Å8š—N¢9œtºJJ@7ûY¿°¹n·üÒÎ5&Z|'m0ëðD1(ƒs 0Ø¿¯ý\ðpKfߣEÒÒ®j i_ÕCj«:`H©×°ß£EÒ0¤;ždíY‡ªÛ­ËH3匡ð xźšø»RŠ©VIB|ãf²endstream endobj 33 0 obj << /Filter /FlateDecode /Length1 45624 /Length 10626 >> stream xœí |“ÕùøÏû¾¹7é¶PÚ¾%miiš”(¤é%!Ò–6š&im“,JQ&›s*^pC7ïºé¼ 7BQWœ›¨Lçç]ç¼O7oUæm›ú{ÎyÞôøñççÿûý÷û,=}ò=÷óœçyÎy“ÅÂBtd'H[k‡©Š°Ÿ ´ð²Þ=è bùü³àå÷Öˆè|¢µò/¢¸½7Ø7ø“wn'Dy>!ꌾá^ìßù8!š¦~¯Ëós·ßJÈ­\ÒÉgeDI½ÊEýƒ‘mÒzBJ¯¸]XvgRÜ?èÚësÌÐÿTŠ~× wÏõ¯C[ê«„TŽáÈx*ù>!õ—Ñö`ȼHùÐA(ßAHv.èu!ÇöÉŸ ù¹†ì%w’»É}ää)ò§!Ýä\r/ù y‡|H>ç§äfqs¹2òÿìçØ9òA¢É&dü³ñ·Ý6þ6!òä)5{ ”-+™¬O›YwlϱÑc)’H*›Ê?µG¹±ñÏø:Z_BËüy4ÏFU^wl߱맩³vì'°Æ·HéƒRˆl#ÛÉ™dù69¢á°È÷Éyäx½ˆ\L.!»ÉÈÉr¹œüˆü˜\A®$W‘«Áš×’ë þGP¾ŽµÖrù)¹™ÜJ~Nn'¿ ¿$?òä&ò3r ÔÞõ{¡| ë±WêsÔÜ u·I£ö‘Ù/µa~„ w€÷öÍ(ÿŠŒ’ƒä.‰w“_“{ÈoÈoÁ«‡ÀÏ÷K¯Ø2µþä#%ÃäwäAòù=ybå¨;B#<®þDuñ¾'Ÿåqòy"ðiò y–0m6jñŸ3 hÜÜ =I£žðÆ30ËÓÓ¬ù:yZ¨Ýhûó¬åfåW˜•ß€ö¿2/Ð^hßçÀ¿ÏNÌpô} Æ> ~y’õ¢^ûíó0ôºÚ_–<÷y¼E}ö”þù{ØÍô&hL}ù©íQh9 ÷ÕÇàÙÈß!÷äiºj>yj?€>¡}Þ½Ž‚Fï?¯ÿZþùOÉ>>#ŸCŽ¶¼-Ÿ²òçdœ#ãp+rÏ POó„ùöÿ%hs zã8ò%'p2N÷§ "GÃ%qZˆ:’Õà,U<ô¢m*VÃú“NôOáR¹4.Ëà2á΂Y“¡.Ë‘ZÔñ.ê’§ôŸE«›ÍÍ\>'r…ä1¸Éóɧßs!ÂEn´ò\øùN‘]Ê•q•\5·FqÅ°ô•\§‡šb®„›,‡ýAÄs+ ¥žkâ,Ð:θ%pVrÖÝùü•pØÜßÏË“99Üÿ÷ó-d”Ÿƒ¼´‘N²™œ.‹Ôlݲù´S7mìêt::Ú×µµ¶¬m^³Ún[eµ456Ô›ëVž²byí²¥5K›Œ†Ò’â"ý¼‚œÌ´Ô]’F­R*ä2çˆÁ¢·v‹±’Do³UвÞ®)Ý1ª¬ÓûÄÄnÖMœÞÓ ={gô4cOóDO.U\AVTD‹^ŒiÒ‹£ÜÆu¿¸Iß%ÆÆX~-ËËJXA…ÂB!Zrú›Ä×-ZbÖ­ý»,ÝM0ßþ$M£¾Ñ«©0ýš$È&A.VªîçJWr,×Zj÷óD¥£ËÆ„b‹Ëk[×iiÊ-,ìbu¤‘ÍS4Æ”l.ÑGu&Šû ‡v]4šJzºËµ½ÇujgLpÁ ]‚e×®óbiå±2}S¬lû9°eoÌ o²ÄÊõ0Ùšö‰¸˜¼8U/îú„€òú±÷¦×¸¤Eqê'„fé'Ìíñ<Ý@CØ_a!ÕåÂQ3éBlçºN,‹¤'w„˜Må]1¾›¶Š·ÌrÒ–ñ–‰áÝúBê*K·ô»µ?'¶³G¬0€õÙo1üB»Jº{Üý”.ï.}SÚÍÑ37AÆì’öjÙ_i‚þ®nØ„ša]g̤Æ2õ Ø*Dê_G'" ‹e6ÆH·[3Yš¨^¢eWw*HçÒ¯ë{ÅÎܘ¹ Ì×¥ïôvQ/éSce¯Âr…lE6 ö6£w¼3ݹ²X%vò¹BõTˆVxÑ7¬€†Tp+R6¬;¹\ï«H=hnÚéà]¾œ Ïç^|ž%º,øüÏÞ¨’ ~¼ ì=Y*FóIf%šçI–ìY)/²˜”—‘ÙƒR^NrdïIy)’ˤ¼’l•—JyY ¿]Ê«‰¨ŒÏ£áo˜X+‰¬W>.åµdªDÊë’ª6)ŸLVCNÚ£*k½”çˆ2{³”çIRÎ}R^ ù9¿”ò2’‘sPÊˉ6çQ)¯ é9ÏKy%YžóŽ”W‘YY§Iy5I],å5\ÛÄZI¤|öb)¯%³fwKyR˜•òɤú„“©A¹tùuRíŒy´3æÑΘG;cíŒy´3æÑΘG;cíŒy´3æÑΘG;c^—œ#n“òhçÛˆHªH%YH–Bn-ñ7 ‘ ƒô’Ô5B.D‚ìÕ5>Èù‰ZêÉ$‘´C]釶0+y^è½^=ÐSGlë/|>I+Ìæ…9d˜åDÒ 3üQ¶âäú˜&"ý_j†al| qBçJR ¹’‰R œº¾ fB_ÖuÁ:t7|ZǾ«¡Ôµ´5 ú…'öã€zÛÃÀIõéevI”{ …Öº˜¦ïç H;Ù*Qhu³ýÆ­;cC¬& ½<Ìj"Ô÷³ºµÄ:QëøØ8?³ër6ÞËzxÉ ¬I­ìa¯¢¤Q¼¯ÈêÃ̧>Ð%î½É}Ðöhბa°B#ÛíÄ7±È Œ@ q?.¶†(ùÚ3ÒY]ÐÎ5 ¥!ÈE˜°¿È0BÌt¿>xí“,…³FØžpM?Û‘›iêg«„™ŸìÌ+½PCã1Ê,fóz%_øØžÐaa˜Õ%Å+õXPª¯2ó 0û%-ýP3ÈVÅ9ÃÌR“Ѓl/x6â¶EÝXÔÐHè—"—j5}]°~„•üÌ×ñ¸F›á*èG¿´¯³më9©ñÔQ«mcãp×g@ÙÈÎîToÎg³ ²†™¢Ò)jïxôù¥H¦ûG¿„X4ÄcÔË|M#78±Ô±Oê†Òviöì=´uÂK.#ô NÛWüæqƒ&.¶¾[Zßx‚ªö¸}ÒÓ€²GòT<ÖK1?K`¾*¸C¦®˜=uìÉÏE„ièaqKµ=cÂc“çøø[µO:Á‰Þ4Î1>üÐßË"íçvÖ$îçÿ3÷s3hâ&¥ìL–Ií"YÅ¢"À4‹@¢·[-¼4A{€ÝFv/O£s&ȳêcQD}3 µ.ÐmŸç`:P z™¶x+â\'ŠÑ0‹ó Û;Z!>Žzµ‹­÷Ò0³4Z&2áíxïø-â–nzz'˜ h¿ Soõ ³«_ºMp¯TvI7¸—Ý?>¶CÔ®‡é÷òLE¤?¡ãjz'ö`øZ7>C<̦éY…ç×5L¬3sxç1;¹Ùy:‘͆¤úØI`g Oþñ¶§cð9T ý˦Eð‰gG¾©m§ž|/ JOóóœ{ÚSuæ&Ÿ¡3õZ>%èNp/øÞ"~W†&Þ§xØ“ÚÏî×IwŠ±çšUx¤WÜæ£ì¼àýäaO=Ÿt·à<´ç»ýO£x‹û%ÏLÎ?!¾)ïAúÙ}ç“ìLou»/½ÒâïGâVžÕæË{HüÝØÌ{næI(q/xÙ==ÄÞø˜÷©W]PG-Ô=âm&iÎ-3îÎ2éôNÞ“ïâÚüwžN_ói Î1Gs|1o"šO‡:ôSñ÷ø.ªOòs<Ž1®‚Ò{"\!ÀÞ¥»Ø>ã‘â"“Où™÷Ùÿ€/&,äb{§vóIw½G:«n鹟é:õ™écïÝÃ,6%Oî[ÈwL΃·Ë¦ØÈ3åóÄÔóðµç#“Ÿâ½O|»fÜnqÛÏ=À>Cøfì;®×ä{°ÉS3ù$ŠûÐ@âŸåèg¶xÙ;%B‚ìÓÚ‹·þ)OXÔº‡éâ•žTÑ _N½KЇ&ÉãavJ&tˆŸëé±ôõ­:õ »œú¤™Ó“–bvü†~Œ? ¢ì³(ZÆ;E{¥kNÚåtèážòìˆ|Å}Œ7¿‡í þÄ«v‹ã»±­,¢wÝ~öŒˆ?e¦~š‹?'Nt§LfwúªGÚ÷‰Ÿ¹®“x44±û0‹R?›OÑñŸ“¿iÄŸo6ba­­Ä ¥ ð´lg5v¨ám‡–õPj‚Ú&¨™=:¤öùÌSØsÈýœì‡s´Ãk ”»Øg%"+ÓÒèßsѱÒÉÖ°Àl¬g;›{-Ô6-R?:¢jœP¦ùUìÄõZ`~†°KÏDÔÔõâħkeg+Æ5[ ¥v˜ß&µÖÃÜv6ÕŸ®oeù– =­’¦õÌFtf:g#hÔÌJ´Ö lƒ~lýz¶gÔ¶…íÁ í¸ Ó€®l”öŠý¨}ÖK-ÔGT¿fH“»ªg6°1m&í×lÍéü« ÕÁž­0²‰í´ƒYÏ"ٌ•&w…žjd»¡V¥6h‚üZU¶kg¯¨Kû”Ù¦ÛnkŸì…û«—^™åZY ½ÑÈJæ+Új|ÙÎö1sÕ ,-¬W=ÛqÇD„XYô¢öñèÄ5Z§h‚ëQßNÕ%ÕâWœœ%Þî”<}¼]¨Õë™M¨^+Ÿlf8›·‰U• —Šk}îP èˆP0rE|¿Q¬Û}}ý‘°Øî {C[½£Îæí y‡ÄÖ ×ïzÅf×p }>·è‡Ct„Hg®¬K(j b»k Ø/Ú\~wÀ}Ô®ôûE[Ô¦ë8ú}aq`ê<½Øàëð¹]¢´"ô À¢b8 ¹½"UwÈòŠQ¿Ç#ý^q­Ý!6ûÜ^Ø»\ {½¢w°Çëñx=âÖŠoØòéöØoÄå]¾ž®á0!¬ãò‡a–¯Wìu ú†Å!_¤_ G{"^1€u}þ>P ºF¼ƒ0Òï„üÞPØ(Ú#b¯×‰†¼a1ä…]ø"°†;lÃ.°«Û„<2ˆø‚0¥?:è AÏ°7Â&‹ÁP¼Aµ…ÙCb?Wô ]îˆèó‹jkÐ †Àý°V Wìñõ±‰q¡ˆw[ûÎðEi›óÃâ Ë?,º£àRÔ›šÏF¹`/!_˜ZÔë£Aº ÌØ5aßvè À†¶Ò-¹DpÀ ®EƒÇÝï bÞq" jãkŠ lŠa=Xˆz`‰±ªZj® ÍØ:Í‘Ëãt…Πc>žÕ>pAV»`¿Ï66GÝ¥®p¸U\ "ý‘H0\k2yî°q0>ÒL‘á` /ä ö›\=x´+ôˆº]áÞ€<½& GƒÁDm3Š](˜pXŒBLEhôÒjj7ø:â5ˆ_8†|Ðê†.^  üê ú"˜®g˜í*Ÿ`;¤@(žé¥+Žß;†'êŽh|n…±:&¾8l¨ßçÙ,êó»¢p&µø!tJ}exN¦t‡¾J[×rfR¬‡„Þ-!z”-™ çé’)÷²°`‡‚Nsâ[ñD·Ù“RfÚã)jæÓ°'j8\pÓ1sO¿7©)§Ýœ:]uN˜'Ø7˜À £ °Á2ƒØ‚[8™}°gjc°x†‹¸ýüÔ(.vsÇãìëï‚*ä ‡nŸ‹Æœ3¸Ãü^°¾°L)qÚnÅéê~ªŒiäa×#úá„ýØÅK«§„›A 7ª}¼yÀqŠkÓ¹Bøè‚Ø!¢;4ÐËÝ×Kée FaCá~v`aêž(=¼aZ)E ìÐ{éúðŠ=©ªxàaI<4’¥™CýÁ¯Ø#=Ñ”ñ² <¸T™.§{Ý‘x€MÆ1¿ÇÇ^-†8\c[½SžÀþ@„¼Ý}Ò1ÆH‘šÂýôÑãvr]S6¢Ë‡#L>pÑÄ£è« @Ï›Í"v´ZêÛ-¢½Clko]oo²4‰óë; <ß n°;l­N‡=Úë[]b«U¬oé×Ø[š ¢¥³­ÝÒÑ!¶¶‹öµmÍv ÔÙ[›Mö–UbŒki…½N"Lêhé‚ÒTvKl­¥½ÑÅú{³ÝÑe­vG Ó “Ö‹mõí{£³¹¾]ls¶·µvX`ù&˜¶ÅÞbm‡U,k--x·@hY±ÃVßÜÌ–ªw‚öíL¿ÆÖ¶®vû*›C´µ67Y ²ÁšÕ74[p)ØTcs½}­Alª_[¿ÊÂFµÂ,í¬›¤Ý›…UÁzõðÛè°·¶Ðm4¶¶8Ú¡h€]¶;&†n°wX b}»½ƒÄÚÞ ÓSsˆV6 Œk±à,ÔÔâ4@ZvvX&ui²Ô7Ã\tðÔÎF]â{‚Ä÷ÿ Û&¾'øŸûž@Ã$ñ]ÁÿÍï Ð{‰ï ß$¾/H|_0ó6O|g0ý;ƒ¸uß$¾7H|oðo÷½œMöÿÿ$‡þmƒãö«…QþÆ‘ÜE£üÕ#s.A„Ff×¾…"NÉY؄؈Ðd/ÌC"DD"‘‡˜‹˜ÈEä ²G²¬£ÜkˆW¯ ^F¼„xñgÄ ˆ?!žG<‡xñâÄÓˆ'O G<†8‚xñ∇¿G<„xqñâ~Ä}ˆ»GfQüqd–p1Šø⮑YÀˆ;#ˆß1‹F *Õˆ*ÄBD%ÂÄ|+±¤É7’øÏGò*Ÿ!þ‰øâSÄ'ˆ!>D¼02·ð'ÄóˆçÏ žF<…8ˆºh1Ü~…xñâ.ĈQ ÅŸ"~‚¸q'â:ijˆk×c´^„¸qØ÷±t."€!|!â<Ä bqâtîDt!:뻈uˆk-ˆómˆVÄZD3ƒ‚¥Õˆ5ˆ,Dü,„ÑŽÈDd ÒiˆTD "¡ChI ÂPcШ»£.c)1‘‹˜ÈAÈ0Ü ·¿aØüñ&â ÄC!"~‡8ŒQðâˆÛ{1–æ Ã— y#ÜLk! •˜…ÈDd ÒiˆT‡êTwñ%â Äë¨îkˆW¯ ^F¼„xñgÄý¸£û‡÷"~‹ø âįw#nÃMߊ¸q3âgˆ›Aƒ\Ž¸ ñÄnÄ ý"¶#†ÛCˆK[QDFôàéØ‚ØŒ8 áB,B¯T#ª •ˆn„ aDT Ê eˆD1¢QŠ˜ˆÇ6`ŠøñâCÄßG ÞGŒ!ÞC¼‹xñ6â-ÄßE¼‰øñâ/ˆ×1>+0ê ˆrÄD¢1QŒÐ#æ!  †°¡B( á¿cDE|€x1†xñâmÄ[ˆ?bD>†xñ8ââQ Å? Fül –F0cˆ}ˆ_"®B\‰¸ñâç ‚ƒïGˆs;ßAœø6‹¡xáCôc¼ô"<ˆý †h@Ô#̈:Ä÷ßEü±±±Q‹X†°#V!¬ˆ¥ˆ„ CX‰8¡@È2„€bžC4!q&Æà8âVöaéKĈϟ!þ…ø'â·øDø âįûG2/Äø耳¸|óC© ÿH¶| ò‰nuÁë ¯¼ªm)øÈa@î¹äȽIë ~ rÈý 1} ¿ùÈí {A~rÈ­ ·€Ü ò3›@nù‰¦¿àëA®¹ä«A®¹ä ƒüärõPÁ@.Ù r ÈA¡Ch3kÖ\ …‹ÔÞ‚zµÐ.´Áéa’ûéHFlú'ˆFÒ© ®GüqéHš°q âbÄEˆ » ÎGœ‡hA¬ãŽr͈5ˆÕ;†X…°",ˆ¦‘  Ñ€ÈCÌEä"æ f#rFÀ—£\6" 1 ‘‰È@¤€§G¹4óàÇ |òw£ €¼äe—@^ù3È ï=ò{@î9òSðÒeàˆQîJ4ö¦чèEx„уp!º‹‹ÐLÕˆ*ÄBD%„0"*Ð>„¡@È) ­BËÈò‚E÷ ðÑÄ"Œ‚Ê2ƒõ ˤgYG¹_Œdd ÛG2r{?ÉÐnCÜŠ¸7~3âgˆ›7"~ŒøârÄe{?DlAlÆýŸ†8± ±Ñ…èDl@¬G8D¢±цhE”# Ë¥ˆùˆD1¢¡GÌC¢¡EDB†<‚Có9¥ã Ç@¾ùäsÏ ,ÿòO÷@Þyäm·@þòWÏ7AÞù ÈA9ò(È# yä÷ <2 ò+á»@îåö¡G~‰¸q-âôÈÕˆ«ßGœ;’f|­w⻈ï v"ÎF|±qâLÄvÄ0bb±EDaDñ-D@øƒˆD=ÂŒN«C¬Dœ‚XXŽ¨E,C,EÔ  — R)ˆd„¡E$á¤A¨*³ 8yäYg@žy äI'@/íËæ‡ìÂ9ºÙû8W(.øž`,8‡3|׶Óù½;gÛv8¿½w‡3iÇòkvI;rgîØ»ãÏ;gÙ¶;ÏÜ»Ý)Ûž¹× Û†œÛö9“†8íV[Ô鈾ý8*dFQO4½,ú4T(oŠÞ=FǙӣK—[wF/ò™ÐΓ(—B«ÅhR²5b 9Ã{CNY¨(ä ËŽ†8ÞâºCÁ„ŠJ­´sn(kŽU ™Cm!á[¶€3¸7àôÛ r©õÁIDÇA’"8ÈnÁaçÉ@p€WŸ»õûœý{ûœ½FÓ»×ãt{œ.c·s‹ñ4ç潧9O5ntnÚ»ÑÙeìtn€þë§s¯ÃÙa\çlß»ÎÙjlq¶@ýZãgóÞ5ÎÕF›Ó¾×æl³q«ŒV§EXROR’¿ÁüùGóeIÝyÁ<>˜÷jÞÑϺbOV i­ðê­‚õË"~«ØÔoË*Š³ Ò•Ül¹~N’©¡4]—gÒ—Ô–ÍQ¨”2…F©š_Ó0ÏÒ×4ïØ#2U²:¹\œ«ÏPÈÔ)Iº²Â9ó2”ÇJäÉŸ}(Oþ|ƒ¬éó{„´%Þ–jÅ°.‰—«U·ææW.ÏÏ,ÎKӥ蒓•s æ*•é)ý)ë¾¼N=WÌÓè’Õ©³´Iyùšd­*%ëËB0ÔÊñ·e³…çH XsÏÝ‚M°“Îrz‰9;¨óTù£|ù%óK–«èÿìCJŽò·™µêåóód%D(´/ o&ç¬^o&ï4'¯šKËsêêæŒÕÕ=³—q¦±§_«N«NK[¶¬ra®9éë®\ØUw@² ™WV]••-™XÉ•”€;d³2óyêžÁ#«9¥`~Ž’Ÿ›Ò°q°¶ítsnNUËàÅ];+S¡-¿4[Å{Bï\ºÀº¤,W§Î)-0œÚvJrá¬tjêÝâªÚ’¥[¶7Ö]~Ù§×YZg¥ËÕ)šc×Ô”6vnq•å/Y0{ñ¦a ý+MËÇßëÉ r`ºõîZPU£õ(¿Ç¬Ö§ió…ÌL½i”ßmžOôiiÚªwÔÿ‚-ÜaÈ®ÈXמ‘‘œ’f(/Ñhs2u¥ígoh¼òòóûV–¯ÚÔXº¸è”Ó¬¢…„_}l`–oƒ~패LÏO+ø5¿ â5 Œ™f_a3Û—›íYYvórY …O"ZV寀Ï'w-/(J·Ù–Ð*sQ«d…Ã[_®ãL‡³áÄ›LiP‘:ЃDûug@ ʨ±˜…”h@™^/P¹)‰‘Eg^²êjéâÈÎÊÌ‚\•”¬Rd䤋¦y9ª”Ÿ¦h•69#é¦kÓ–o<³e‘U#— uR²ZÕ)´—úÇA­NPjR3tþŒÔ•›Îl™³h¨PÈ勹óŠ 2JEúü•åͳ4bqQ~ÆG;¾í,OU)’uŠ¹…PÁ |Fi]4-G#çe¸;×—ËÕZ…<þ5²’ñÏyÛ›ÈMÓ=`Înª¨0.ËΚWØ2oÓ¦$¢Y:/©cuZ)|Ø4Ï5ÛW/5fkHVEÒ¼M-MË’«WÚ«›ç6Ëñt×Õ¥g/«›æãÀô‡«ÒªÁü‡Óª«ŽTCìàLE/ ÚšŒ%KK+|EÚ_©”ü€˜•©PʯçSÄ…ÅE•sÔÂ2…¾¢t}ë)ºuXiš£æOWÈ‹ ñÊ‚ª¢bS®Š?ÀërËó æg)ù¼YÖ.ßÒZgMž,{UWuKí•jž&E#—à Ÿ]‘mª]Ô5Ôxl`JåÂlòé•ÂMŠZN/Ÿ=z{mqAÍêò"[mñ|ËiKô«ŠáöYw7eqN÷ѽp;ÝMrH¼jI|ÏX]ǘ•ñË`Œ^Íc,àOÜ>%ºãQ,ÇÇ_ü¾•ÉHní¦³oêóîé©œÌû"mþ)†ª¶:c~òdŽÙ®øÁÙ®¥¦Mç®·]qéwºi®oA}EÎü† ÝîŠ kÜàêÁØ´°³j24#ö2JÓÒòÒç’¼¹)Ú­I+è8ñ[Ì©æŠÕésÓJóæ+²çÙ³1@XxŒÑ+b bŒ&é„则çúdQ“%he*mJF’:=kNÚ¼µÖmÛdLŒðÉñ˜˜›S·ª¹8¥ w–B!Ü®,ª¬6ÀÓY¹Èù­•ÇÇûû’rÛâ|™B-W€-6¿Ç¿)ÛO,3ŸÏæ¼%†òšò•º^]_£./¯¬É®É&• ¶šú*Ü^wªË —ØRF¹öæÂɇÀ²±ª#Ë–Áù;Bßñ¤/£fIÝqÞáé `Ÿ»¾î q;é…“?B&n=~âÖc÷$ìIIM÷€C—”åÌ›®R%©t©juÑÂ¥sWlZYÀËå†V™:'ýŒR°+žJ¾ô¾4­p¹¦ ¨(/ãØi)eºÒb¥Z™’–QYQ¬V§j•³—8V$剅:î@ZNZÍâ’‡4©IryRªæ¡,úŸXÜšHÿé‰[õ ÓÇÇ'þÎ×$|Fúè«’løäI>/‘)‘)‘)‘)‘)‘)‘)‘)‘)‘)‘)‘)‘)‘)‘)‘)‘þ³ûWl9ö'm2ñßç%V¢ U@Éäxéß¿ÍçJ§ý›¿Q,w¡ÿ°ŒØØ¿{+£sŒÃ«‹¾BY/_wöï s—9Qè¯îœàgF¿£äèø´ Ü‘%'$! ù—edåÿ¦ï“å_GøóÇ×$ä¿' ?)ù*‘-%+¾©ðO’o$’͉”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰”H‰ô–裨¨}mlßÝ[RV|BfãÔøëwÏz”ò9û6ñ³m_^¬¹QÕF¢&ÒMù_CY§Bendstream endobj 34 0 obj << /Filter /FlateDecode /Length 267 >> stream xœ]‘1nÃ0 EwŸB7°l'f\Ò%C‹¢í‰ž^Oi^]ýQ–ð%«›æ‹Ü–{ âÎr™SÕ´.Îa}ÕpsUßÆüý“Å¡A¦ßÇ«ÔŸ·—f› K”[ƒ”1]¤¼çaš¸’ÿ}5/ÛÄyz´¶hÕx œØÄüÐ7lñزØ*vlvŠ{¶÷Š=[€½â-Àƒb` 0(F¶£¢°(Š0êͪW+‚/™3©3ÁˆÌŠÔŠ`DfEjE;¶wŠ$“$•$‘Y¡ê¾ž‹ÑÕé ž+wá^Š¤Õe‡ÐÌIþn™—¬S©~yŠzendstream endobj 35 0 obj << /Filter /FlateDecode /Length1 49360 /Length 12463 >> stream xœí} `[GµöÜ«}µäE^d[×QìØ–—ØI¼$N,/r,ï±­ÄJšÔ²,ÛJdK‘ä¤i›6”n¸¥@S¶²• ²ÚBZJ[ Àc)¥¥¯ðXÚBYK ,…¦ø?3çJ–§~Þûÿ“Çs¿™3gfÎœsæÌ\)u GÑ‘DB†Gjë û¹‹>v{g=!¬ß9F÷ððußü ~@ˆ,{*4=ûÈé«žòK0ÈúéÀ±)äwu’û‰ŸgòO‹W™ÇßĆ èîͳ’• õõ3³Ñ«Äù`ü*{ èõ`=ã•ÎÌz® ½+sø›€(Ìyf}Ï*/ƒ:ðo|{(‰.ÈÍ„t¼DÛCa_èÆçÏB±Ó@ˆ±ŽÅ{ ¹p’¤þ ‘ƒ$ë=ýÞHN’ÇÈ÷Éy=”ÞIî!!÷’ù<ù*ùù'þ\8&›%ZÉgˆœd²ôêÒÙ |Z¦O¡œ„Z–TX¦,–~³Šö› '— NË3‰šõÕñOõÜù¥WùVZ_j uþ(g°¿S¼÷§.|t…8=¤ŒÙMö7$‡È.ÒOö“+‰‡xÉ$ñ‘)2MfˆôuˆÈ,™ƒ%|.×¥ûÈ'ɧ ,’ûɃäÓä3ät²þÔ–Û㌒àY›þ0ù,ó‚ÇÈãÌþ_$gí1(=$¶>&¶<ÌÊ_ _(ôuò òùøÎWXþ:ù&øÇSäiˆZ? ωô,ó +g#ß"OIËÈwezN&yœ| WAý;ü;ÁDö¢·»o¾) çf‡úg¦§|WØž½î1×èÈð®¡Áþ¾Þg÷Î.GgG{›½uÇö–m[››¶ÔÖTW•—•®·®³äe :Z¥TÈeR Ï‘*‡µk\ˆ•Ç¤eÖîîjZ·z€àI!ŒÇ u­ä‰ ãŒMXÉiΩUœvä´'99ƒÐBZª«‡Uˆ=ÑiNs{wAùV·;ËÊý¬,-cTJJ ‡àÈ›ébܸàˆu™YpŒwÂx‹u‡µÃ§®®"‹j 5PŠ•[C‹\ùŽørÇÖEž(utÚ˜¤Ôᙌ ístšKJÜŒF:ØX1yGLÁÆüTfr›°XõøÂí§ dbܦ´Nz®‹I<ÐiAâXX¸%f´Å*¬±Š«’KöŪ¬Ž˜Í ƒõ''àb²RƒUXx™€ðÖ³¿^Iñˆy©áeB‹t‰I5A{¢L@6ÖWRBe¹í´L@%vb×Ö2aŽ{­ÍãÇiË㉖m9‘hIv·–PS9ÆÅß#3y±BuhŸý–Â/´ 1IÙø„w†¢Ç·`íìD½ŽÅìP°{ĵ:7Ö¿gá§jØ5«µ†bÙÖvd‚@màc]Än±ìŽ÷Š½bµŽN*—àXïDéXÖ]c‘MK/,nÌ÷o"›‰›Ê3u€QÊ c“S1˸yüsJ3—ÄìnPŸÛ:æsS+Y ±Š`º6#ëk[Å`¦+W”*…1Þ,qSkA肇µ½ `.V¥moÆ83I°Á,"-­*’ÒŽnÚ$¡];ºÍ%îüy ‘Ì¢L²Ò˜2e,’2á<— ¹©@‚Ã×™"àŠAe¢€âhkËÉS]ˆC%5gw¢IR ;h< ÃHÔŠyBŒ cVŸÕm²ѵQ]3ûöŽX{wícÖ½dtE Û›°#%Ðœ¨ðàƒ]6s¬¬¾“Õ“ÕîUÍÎD³•Êµ°0¹H$¥Ô•Í‹+È:nsÇmnklÂf-¡rVW-*‰¶dt¼öj„;k—Ç*„®Ïé¥ ‹vûBÈ1>³öÅ‚Õ9¹`k13á‡ÇŽ›¯¦sg’^®w´†âIû¢•»u×¢»udïØCpÿn‹óß1Þî^\mc „Ø•§TJ¤VèHÃPQ2~óCvBN°V)#°º÷4GM™ qÄ{šGš'*cÙ -Rl±'¸¥@S"ír—‹ÜJh1Ж‡ $„5âÏ"¡ ¶«ev¥]e×ò:TJIq < ¼*ŽÜ¯åtœyÆfäÓ܉E•ÝüiXä<œ”v"IÉ)[Ê@0.ܵ¼×Þ±ûµÆgOàh§?à…y3àCpž8„Iê׺gÆÝ4zø*ür1κƒÄxëX®©­¾ö˜ÆÚNé­”ÞŠt9¥+Àó9ƦAwaÜ vÌ1s¸×$tHáôÒÒèXÉæ³îØKW@Þ;SÙàp“•ößNšÇ¼3vÂë¡r×í«(uzÝ°/‹3¦‚TâÀÑÅúÐý¼àk++BÇ wÌm£“ŽùÝl¿b¤Ûº5&/Ã1eet¢Z÷B¦µžØëêÒ[(¨@622†3Ta27*I¡ɽVhòŽ è##°—ñ°P›‘⃘/-ó±¬6‹„.KRªÑ©cª~iYSCcŽ¬Táv£ð¬v‹Èsb¨,E•bÐ49©,ð{ ˆJY?O‡Ùuš [¯‚ÐI…f#) 9¦+uzàtÃþ X›•4jÄ1Î UAW®½CH8½ôQë±’”ˆôô£þGÌÁF%î…Õ„Ø>[u•r5UÇÈ JÝÚP_J]‘/õÒS:ó7kÏ"?`cÈ1\è±ÂÙÁ—Ò W lœaÒM¹@Ø!Å.ÉÄ¥0Ñš ¾`Ø–¨qb ͸›^YIV»h†k`i Þ`4Ê‚—4Çà“ j aA0X·ZéƒuÞIó8˜'¹!ÀñÁßèv9áÆ&ÀÍaÀ®ñ…®z9õzD…‰3Åæl+†„ÁÛÀ@t9±C¸[‡K)·k¬¤Ä ûP˜‚ªÕC!\ÏÐ^vIñ,Pç&pGq›c 8’¦<>k œ1{PûTF©¸aˆyaÁºc;¶ ˜aø2ØpN ð²Y=>zyž¢wgëÛâ2íÐÑÌ+ìb™.Aqô&èû@¯æûÇm  ãBæ‚мÁw?œÒ2ïîq8¤èY$0S{ÌP%8iÍ !£ª”2¢óSifm‹û¥Ëö´!³’ ’ ņ,l'ÑÂa[ŒÏm‚FºxnxïX"BIh³Ôk¯2ÓÞBŒÍÃú;iWsÂ`Ø (ìôwVòœIœ@W˜A§—¤Ã±FääáΨïyuó«u¶’pw§~€"™¥<™÷“gˆØˆ ©…÷f¢Þf¬ƒýT­š_GY)?oÀn9¢g5Zæ‰Vú¬X–ziL,KI¡ôËbYFò¤?Ër ¿*–äˆÌ$–•¤Rv·XV~êÅÊjþžä\²[ñ¨XÖ’Je¶XÖéåÊbYOz€‡Ã5rJS§Xæˆ"·O,óDž÷)±,!ùyïËR¢Ïû¨X–mÞƒbYôÏ‹eÙ–÷¤XV’S¯XVC¾Z,«¹¡ä\bË/ËZ’“ïË:…$¯XÖ“Rà‘Nªá2e·‹eÔ3–QÏXF=cõŒeÔ3–QÏXF=cõŒeÔ3–QÏXF=cõŒe>OØ/–QÏ÷Ô“¤Ž4A©Ÿø‰—„ID O‘(Ð: &!öôÅ¥9R-m$I Ã@£ŸÒE¡­ù}À}ž“À©#ÝPšŠŽAÍcŒ’c¬$>ùŒ;Ïf @išI"@¦Ÿõƒ¾‰9„¤ÌÉ&(•%k¤ŠÍïBÀ+À¼˜‡Žá%‡Dި͕¶Îƒ|‘äzFÙ'&Á¥ä™bzH;Ô' …R=L +׈ãÅ• l–yhõ²õ&´{ú†e¸&™Ö Ï0Z?q‚LT;~ÖoŽéuëïc>2 sR-O²§ J”à=ÂlêYÖ[^m‚ôÓ½h¡ƒ­ÆÏVâO®Ãyz „¸›Cmí‡é¨ñ“ÂcP; ¥(³CÖ7å“)ÌtA×ë‡ç´¨)5ÊÖ„sαy™¤sl–³““Ye (öid˜­Q`ˆ¶ð³5¡."Ì+"0ªGôWj±HOÌ2 ã˜~B¢”s@™e³â˜¦©e èŒ!¶Ü Ý¢ìæ5ÔfDÏ¥RÑÏRé'ÛQV›c¶Nø5ê gA;Ήë 2ÝN0Îe‰SWDµv뇫>õ¶wS­¹6ËF8Æô0/îÒT}'¼oNôdº~´K˜yCÂG}ÌÖÔsCÉÕ ŒÓ"OjW‹£Gah¡#I+y˜Ð0»b]‰ÈãIJrS¯Fo˜~ó«ÿžX¬NGã™hÜ’xI9Ûb»@v2¯2ɢ웯ì‚ZH“L·´çìEÞS#ú\-”1šf^Dms ¨uœÇ 0¨SLZŒ8ÖZ>a~bkG-$úQ«ºÙ…Ž1M£f¢Ik'¸1Ã+Æuª˜(_HôŠÔbzcŽâë1^ûX´ñ³¢tLŽ„•W[,*ö@ÿ _D™J®¡ê²"ž“L§QñdÂý‰óV%çY½Œ°G™ž¼l?­¥³£âJýl§ØžÂ±îiZ^éÕUÌ2Vž$‰»×ê8·z'”¯Š >§²Û†ŸYŸZÕ4ª¡iàH´ÕŠc^¹*vVˆ»w9Z,ßÒü=§ÓežBáª1úcEIo>4´SÂkðæO‘eï~­.á•—>å¨å†’;'’rOA{£øĹ0bωv¯bk‹§Oâ^w¦iÑÎ ?F¿ ‰w!œ!Èîä¶Î„§xÈò)¿:žýØ"©![;Õ›_Œõ“â^õŠ÷ð9&kê™ég7õóMQÆKÛÊ#+Ïy°vEŠŽ&SÞR÷ÃeG–ßxÜkG·ªUÑ-¡ûÕ½ìÁ¿jÝ ¹–ï`Ë»fù$JØ°Š$ÞÜèZ¢îKñ{7 0›I9aQê &‹O<©æ“¶L%hÃZÑâ¶KIûz¥/]¾VSOx\eêI³Ò§—5q”éqö´câ4˜gož¨_Š“ìIç\ÖËAàð¦œÑ׈Çù'Ù 'ÞÖQocGXy­[÷;#§Lê»[âœX+¦¬ìa±m5!®{í3×s ‹†“«0/c£ã.ºø­øõ€ÄùÖM¬utAmœ–ÃŒâšQtZvC­¨@Ù#bûf©=ìê>;ãpŒax@ÝÍb\XÖzÆ¢}dŒÍá€ÑFç0»¨}€‘öèŠ ê´¼“EAœþ7|‡pŠg"J: t!¹Â•R9ÙŒ Éú¡6 ãw‹­m0¶“Gå§ów±ò@RÎ.QÒ6¦#:2³$êc5Juß›¿­¥`kè‚v\‹ƒI@g®׊|T?»Åj#*_¤åUµ1t3i–õ×ÁþÕŸ›¿ZGÙ 1=;ÙJG˜ö¢ÎèjûXmyUh©¶ªUªƒN(÷CÞ™ÔÝ0{¢,Ã)£­ÔÝ־̅ëkŸLsƒ¬†Öè`µQf+ÚZ%Úr˜­cõ¬{˜':W[ñHÒCº˜÷¢ô ïÄ9S$Áù¨mSeIxµð{GI´»DK_¬ªõ6¦*×HræK {ó^¡~c]“Ðï÷†ƒ‘àTTè†CÁ°'êÎÕm€0쟞‰F„a_Ä>⛬Ñuû&¾£Â`È77z,äú<Ç‚óQ!œö{o0t,L{t䛄2 U°'šº=sÞ ÷P{‚3sB÷üd„Î3:ãÔq¦‚a¡Ý?ð{=Aœx‚0© ·½>Š{Ôö ós“¾°ñ ýÎQ¡ÏïõÍE|Û„ˆÏ'øf'|““¾I!€TaÒñ†ý!º<6Ǥ/êñ"5ž€"ì§sx„Ù óxæ"0JØ?%LyfýcÂQtFˆÌOD>!„yýsÓ °F}³Ðsnžó…#5‚3*Lù<Ñù°/"„}° æðFª„Ȭôêõ„ L»Ì΢þ 97?ë gÄeD„P8Ö ÒÂè@ð¨0Êü³!7*øç„(Õ5H]`s0WpJ˜ðO³q¢¨ïª(töòÕâ27D„YÏÜ1Á;&E¹©úæ@Éa¬%ìPú<³Â|ˆN#N%â¿Ø£AXк$˜Å¹¨óxgÊñmªæƒAXU ì©8¦î•á’ªrEÀÔ醨q"l+ÁºA>èŽ š™¬¦Âüè 9 k¦:]E¡»œ€ 7G•âa;ág—¿ *' zýê°Ï tÍE=WýÐL9qÅj…1b»‚I4É¢"ÚaM>o)9ÅݪDw£Ò'š~ðSœ›ŽÆ f`›ˆ®°ŠÆtÿESHh™a†ž˜§›7B‰¢—À kaá ÕÁ#ë%EÅ Sâ¦5Í„8:œ}5Òm0ža|l€É ÄR&ËAŸ7šp°e?çŸô³·]ÂØ_ÊÁ;ŒÒ-ƒAÝ/ncô±)2CÏ… ߊëIYh˜N‰‚3ùÁDÉèµ@÷[·CìÝÓ6ìœ#ÂÐðàng§£SØÐ6õ UÂçh÷ kTŽá¶Q·0Ø%´ ¸…^ç@g•àvŒŒƒÃ‚³¨Ïéšs £ÏÕéØ)´C¿A8ß°aÐÑAN(åtŒÐÁúÃÝPmkwö9GÝUB—st€ŽÙƒ¶ CmãÎW_Û°0äqÀô0ì€s kfqô;FáèšàØ a¤»­¯MÕæ釙|ƒCîaçÎîQ¡{°¯ÓÄvHÖÖÞçÀ©`Q}mÎþ*¡³­¿m§ƒõ„Q†›(Ýžn#Á|mðÛ1ê Ëè†j¬rx4ÙusÄQ%´ ;G¨Bº†axªNè1È~…ªZXa`¡u׈cY–NG[Œ5B;§2×èÒ_¤¿ø;t›þzà¿îë5Ëé¯þ5¿"@륿&HMþš ý5Áêhžþª`åW í¤¿.H]þºàÜ×°7é¿ó_zrý»ÿ,ª$§ù«ãÅ;,§ùcWÅ‹5GŽÄ‹·Ì#D‘%/ÞŽ·F!ãÅÛæf±CáP¼¨ à ‚?^Ô0/ê˜F˜Bð!L"x±Ãvð ŒcÛ•â…€ýW ìCØ‹àFC؃°Á…0Š0Œ° aaa ^Ø Ðµ>„^„'B7ÂN„.BgÜì舛{ÚÚìqs/@+ÂŽ¸¹`;B Â6„­#Í8fB#Ö€°a3Ž¹ ¡ûÕ!lD¨E¨A¨ÆÁª°» ûUb[B9Âä,C(Åë¬Øor– „b„¢xÁ@!‚9^0P€‡m¹&$æ d#da[&‚‰¬e 葨CÐ"hÔªxþ€2ž¿ @ G!H‘E‚5C ¸%„ çYî¯Xû «ç^Aø3Ÿây#/#ü1ž7 ð„ß#üá%dù-Âoxá׿Bø%²üá?~Žm?Cø)ÂO^D–#ü‰/ <ðÂã¹»~€ðýxî€ï!ü¿‹ð$>‹ðïÏ |YžÆÚSXû“Hü&Âß@ø:Â×ó«ÿ†Ä¯ |áKgâ&ˆKÜã¦V€/ |>nÚð8Âc"|á„Ï"<ŒýB8ÄÏ |áA„îGˆ#,b¿Êò)¬}á>dùÂ)„#Ü‹ð1ì÷Qìð$~áCDøÂûîAxÂ{ã9ïAxw<Ç ð®xÎ$ÀÝñÀ;ã9Sï@x;ÂÛÞŠpÂI„;ã9€·à˜oÆ1ß„cÞðFúvìpÂr¾Ynç¸nÁÁnÆÁnB¸9_£Ü€Ý_‡páz„ëŽ#\‹p ÂÕñˆÉÜ1œá*ú(Âœae‰"Dp¾0v?ŒB"Ì!Ì"áRâ|~„™xNÀ4ÂT<û_<›úîd<ûzo<›ö›@¢'žmGâ•H<Ͼ`<ûõWijoØÏ‚C˜ÛÏ*p#ŒÅ³Ô{vdzà˜ç\ñ,8ß¹Q„„áxóÜ®xìÜÂ`<“J=ÏìèGèCb/BÝ;ã™pnr]Èâ@b'BGܸ =n¤›²-n°Çn€Ö¸q/À„íq#õÖ„m[šãF@SÜXÐ764 l‰éD›q¢Mõq#Õ`ÂƸ‘*²¡e©F¨B‘l(R%BŠTŽ°…(C(EX`Åë³EP ÎWŒP„œ…fì^€‡œ¹&0!å̉2ŒØÏ€ GÐ!‹kš¸a?€:n8 Š®P"(ä2ä”"§‰<‡@ìK€KÀwð<ä¿Bþ äWv:¾å?Cþä—!ÿ1cÂòÈ¿ÏðZ~—1iy òo!ÿòY ÿò¯ í—Pÿäÿ„üsÈ?úO!ÿÊ/þò€ï¨?ù9È?„üÈ߇ü=ý´å?ô3–ïBþäg!ÿ;Оü6ä§!?õo> ù›Ÿ€ü È_‡ü5È_…üoºC–¯è–/ë*-_<£«²|h_€òçu³ûÒ㺃–Çt~Ë£ºËç å]峆üö°å´6lùŒ6bù´6jyòï‡zpxb?ù“ïƒü ȧ ò½šë,Ó\mù¨æ˜å#€Ö\kùæ¸åƒ@ÿä÷C¾òû ¿ò{ ¿ò» ß­©¶¼ò;Ôµ¼]ýaËÛß ù.È'!ß©ž±¼E}ƒåÍêwYÞ¤~åõû,oúío’”Zn”4Y^Ï5Ynpp½îÔ ×õ®ã®ëNwiŽsšãæã½Ç¯9~êø÷Û3åêk]W»®9uµë˜ë¨ëªSG]óo Sü­öבSó.é|ö|t^òÇyîÔ<×9Ïmœçx2o˜æ%Ú¨+슜 »Hx(|" K·ÅÂ/„yæÔ§—¿?l.î´_Öº»‚®Ð© knjÖuô7M»fNM»¦š&]¾S“.oÓ„ËÓ4i¿ëÀ©ý®+šöºöÚër7¹öÿî¦Q—ëÔ¨k¤i—køÔ.×`Ó€kèýM½®¾S½®ž¦n—óT·kgS—Ë‹'…†B¡Pb  ‚$Ä̵o4ÛÍ/˜_2K‰9f~Ü,ÉÌ(°ðù\Ç`>Ì¿>ÿMù’Œ¼'óx{^EUWFÏçþ6WšeÏ­¨é"&ƒI0IrèÚLý£] [;붰µZLÖ²®Œ.#Ç’Ã;~›ÃÝL$œÀq„3H”Àó—cé’<ÂÑÿ^ZF8îÍ‹£#6[ïiÅÒpoL9´/ÆÝ+¡Oû®½1ù­1âÚ»ol‘ãîp³¿´˦*‡ÕozãM\;)jïŒÅ%÷ÜSÔîî e»•—h™‹›°Ê¢‰´»m"óÛ˜}‡’_0¾d”ä÷ÃýÏýð À'¸Úž}ö¬áü³g3››kkë œè€Ûìy­ÐAäßXçæŒ%F–³õ¼B!—[×Õð ›6Õïà·l®á­ëô˶lÞÁ7îlª/æ+r2*0Sªä{Ý'[+ã™%W¹}°&+£dKy¹½Ö¢PËy™R®¬ØÚ¹®óÀÖ‚ J…Z0™ ô2©B«T ùYùzé….™þÕßËôéþr—¤nóôpƒìj%/•Ë1ç–në*É· YY­^–eÊ”+²25eÛ{ÎߦÌ-ÈU¨Õ ­A­ÊË3)Uj¹Öp¾ T¹ké¬äG’¯‘2Ðù¨¾æ¯çO1 \®±ûUEÊbxz lCÙ6%¼B}†d”qY’²ºÓ|±=7‹¨¶m(*“KJœ•ç z^±ëû%}嶼ÖÖ‚þ³­g[3s›¹Ú³Ï\y`ÿÏn2n2œ567S#˜.£cÝF·Ùž¿ÌXPy.PУox%Àx‚ÚZ[m ¯4a/½D´†tS½)W´ˆBQVÖ“ædóÔš’*éúÊì ¯ëÜÞ6äß‘›SÛ{ðv·ûúú,iYy¶Ù å¾];ÛÙ°§£Î1³ÁÖïÉÌ7ê¥ êãBŸ½²éŠèö¦;îº=ØÑݺϠ—(µŠ_;›F…窬ŽfëöÀc éí éoÉ“jÒN¾{±¦í™cQ±E°6656f63 ÕqaQÝÜ´NªØtnCOa¦Q#ÕçvéûZ^±+ú©¾¨ºèâ[Ï2]?s¶ÖH}üýüÉä˜Æ .¦ø"äß°é\ µ‡¢å•tYV¾ ûÙPÿ°¤°76°ÝPÖÈáþPHô+JâR(L&0Tò-S]Ï¡Ûöì=QŸÉo(¯,”rj^•S’ŸWœ)å†dúŒ ¹Á±®©ewKi¶ò>uQcMCh¼×XRèÜ<ÚY_bäolyËÉÛµuÚÇŒzC†¬I©UJ¥ð¸0WÐÔX—iím­¶tvï¬2wµTì˜=¹ç#ŽöCÓ‡Ãpž÷UvK¾J¶‡ÖðþÂBb¤F(*ßüçr‹Œ“©ÿTÛ#ü©œäòyµ$?ûU{©¨¿óÏðrÛÙV(€×Ÿifñ¦ðïíÊÔŸ+Ûü瀬Vý§@mO¾ð§@~iö«ÒŠ?Ã2*§ÞŽ®MÕ ÞmÊÉÖË1LI©â%»ú,­¾¸®w«ÝëÜX¬ÛënÛßViPª¤*]^Ëàuï_Ný@ømžòž¶-E É@fY‰©h}ñW`nºlú P!dèµ%ÖâüõEYúÀö·œ\8d×™J 2é_´é=¾âH i!^¬ÉOWÖ7Ê¥Duš×ÛUV£¶X’m­=Íëì9Ä*´±±²ØhÔÖ?UÙ£}Þ^œtIµÆÌæÚ³Ô±s›!‚ä2κŒ^L“yòG"keýSÊžbíóâ•>l»$Õi•ËW¨’W¤FpéÍeÌ)‡ä=ö[Ÿ¹ë Bæ Ú§z7ªT*©R§Ôn¬wßì®ÊoØ}ôÝ£ó½ëîêi›ìo4Nùßè²ò?…C¡²d‡yò`–)K§U¨´¹YÚò‘kGÛÞzçÍS;*Ûw5nj­îó5T·Â-m¿pRR'» NÇ3kxkf±ÑòYî§ÉÜOíVgK·Ý¹Íî4™œömRR©}q`gqË‹Û,ë3»»^´¯L(ì ŽçÏ´‚–ÏäÂ)YKUšNF묿ÝU= }1œÝ-/w}Ë`NU5ía;ÓjKF‹D@@EK­V U58 ßÅX•pæMâ©›k2Iêx‰\©–+r ËrmÛ«Š5ƯjtR¹J£W|í”që蜣ºY!•J¤À¥Pè2r •ÛmEÚPkàÈÕêÔ×åZ\ÁÓÆ ‹\.—5J9¹Ùpâ* G›÷f5y¹9õ_?1zÍ® z¹L«–fQ‰D Û$õºLenž)Ss|øš¡ 2•V.Ë„Ýкô*÷[Y-É"ä][ê Kv1D÷ »Fm).ζTH×çgœæv~Zf_ïÌÏÁçúÏYLö™³4¦ƒ%>ó7x™T"“Œr}& ²¥—ß´ÅpN¸Æˆµ,1js¿ +‹‹Ê2y™<Ó ¥Ò,þŸyuvI^¾Å(ãïç ˜ŸENú °€Z[VXXš¯Rå—þ¥N©¡aX£”ܨÀ€¬€xK5ó;8sÈÁ5Î@CÑØÕD£‘Ê ]2\ÓAÁ›ê©+j.nd‹N¥§,—)Þ’ÇÑÏ–—8m,F)—ŸxùA‰e?‡È¶ü| ‰›;««kšsMëJÖí#û@ ¸©›ÖiFzŒåçìΞ¦š’\51UkÖíèlÖoÚáÜÔWØ'Jg'œgZ9Øvgà0nª‡ÝwàËP¢F·—ü½c1¬ƒ^Îòs×è–¢(ñ?ÓJ/Q ?hhØ"†9ÉkD¥*Ä]‰“-WȦ9uNIèVÎeŠºíõ‡Æ{ŒC< r.¨Õ·l:ˆÄ„EäTYEÙ9æ )·.ÃqÅlsËîÆIvצŽ½MyJEÒL|UÑæ{ßöC'w_˜[&oÍßî\I”Ü.(¡7³O¬ƒó`­µ¯µ²¬}l³µs=A+Kb`å­ä¾5¬\VWP`.“ê%$ƒË–dèKsÎÙzJÍziAF]™R°9…>•h´¥Ôœ`¤M»žý 9çk0¦š‹Y‹…PùßaIL©8 /à¦ýoÞ¾%xeï%õßyàðvªuþYÐÓùo.+Ù²Õ´½÷5•\ÑAo½p/x ôšKjɵkö!¸;Xì*’gÈã³$yëéeK£-z9«§âÅ”«éYñ%â,U£úâf¦6]VÑˬEÅ‹«o¨©gÍòž¸0±óE*yª°yìèÛ÷¿a¬Ò¼u+¹+?™S7ØÔ2Ñß\šiªhÚî¡%>Òs÷›®;ÐX3vbWÏÝw\ ±vìÄÞú¡Æb›s"8ßT?ÔTlë™E ¿ôÊ…»$ß‚õW’VòÍ5{{à­cÜ 2Õjœ˜­n$w¬ñŽkÍΪø,û‹¼ë¸ó÷çåѬv½=«ÆiUf9³{õƒâŠù2¨êLsíò«¬vM>¦ÈM+îZ •ƒ;*Ø[RY(NRV–ŒY›vH˜[š$”ÊJfn¿p^žYPšo¶fòš?¾•çàxf‹QÁÍó;&GwZxMÎzsu±äCš\õ¾/}ç—¯»ð>%ø—L›­çš%Am¶‚‹D¢Ð«Ï¯ÛóÀCŸóЀ­%ÜÒá ?—<-{Þ¡š©†!9|6ÑÀMJz¿Ú Ñó×QÑkkáÚô, ªñ•dXLnbìÈdÊV”(Œy–óº N)¹WaÌr Öe(~§ËPJº,üH£Ðfë@÷ŸM§ÿí‰ ]*ñÛøç/$w^œ¤Sÿmé;Éú–“¼Uþ«Ô¤8´vRV³ôeLªw\œÔî$i¤—‘ÞšNé”Nÿ„ôl:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥S:¥Ó?;±ÿS<Çþ¤\6ûËò4‘ú È^‘r‰IàµZÿ9?ÏepÀb®œÕ÷³g›çŽpǹ7@ùvîÍÜÝ܃"ÿWˆ”> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 37 /ID [<656314be7cffab3c4ddc57dafc236341><438c8e60664d0d18176bbfa8ff6020c8>] >> stream xœcb&F~0ù‰ $À8ä¶ü7@6›(Ð Œ­> —0½‘Œ] Ò¢,"’õw‹ß‘v7Ál>©u¬&Dr0Üÿ  endstream endobj startxref 178700 %%EOF metafor/inst/doc/metafor.pdf0000644000176200001440000176500415173350572015606 0ustar liggesusers%PDF-1.5 %¿÷¢þ 1 0 obj << /Type /ObjStm /Length 4748 /Filter /FlateDecode /N 90 /First 750 >> stream xœÍÔÀ™‚ž}R€>EÚýß?ÿIØ^½¨N«E ´HØëëÅx4©ç@ö±|PCA§Âñ_W5aÛP<='¿ü»ØžÕÕb4<©5ùéÉ?€²—Ü n¤ôçâoœÿíç\o:ƒ*Õ§Ñ)Ù£äå^Oö¦§_k|0›ž^ŸÔÐúùÁ.y~1/æ'³ÑÕ‚Ê-T8-ÆÐÃöÞ¡à?7 M¯' ¤9öjt:'ÿŽÆqÈ4¶FËg›Ï.Ÿ}ªíl>§ûŠç^\yÒæ.>—2Ÿós˜ÊXÖ2—ósSÊ*•mîß™\NíUÈíC©—Þ§yº¯E¾ïÒûµMãÒÆçs®oËóÔÎp•Ï.ßÏp¹ü\¥ç!cKõ‚–t©‘NEj*x>¥‡ å$bÊ“³5™L8)©£¤ <Ÿ3™.M¼É“ö'w²¨'ЃU™<·gÓ«ÇÓ/Ð%vb‚¡8w^ \ð‰ýtTu*øÖóƒjV#½¤Þëùôzv#´O¿,ž-JMHøbÏ(…Ì(³éÉQ½€¾ÙÁ“g„í\Â`·aäõ—vþîõÇßëlÆûË/m¬¬R¬…ÎG³ù‚ä7íVpm|È cÍ'õ|ÑP4{÷¯÷ 2(Èr.©Š›\ÇøÚ}|½ÑÈ4ÂÌÛ™gv&‹È]ÈÄ ëlÅQööp§º«¤[?],Wÿ`ìóçÏô÷9 f>=[Ðéìœý‡öx:;vM˜æq¾b„ÿÚ•T‚0vœÓò ˜ž†Âî{P—Póèúã"¾}w4ù£i§€zó«b!#*ÓdÄ”QÔIÔA‚: ò‚« ”TŽr iÕ K•T€‘NST³ƒ€j¨;K‰,$²ŒÈ"!K‚,|"¼,Ž²4ÊÂh•ÞÍ÷¤w«D‹Þ­’ëé=Óùz²n°*1‰†,ìDr" µÕqÚï9N‘åg§ÈRp³q¶`wßv§Z ;}È﬘Î.«1Ø{À<ìøYÌ®ëR{ù¶Ò¤š×ñ…ìùû탷Oþ•/TœœLOG“s BQ–m_T3ÔFàɨ½Áf)ãRàÌ%ƒá»E!½í·Ñéâ"js´Qj åµUú¾zîÿÊlå@¯£nW ØTTnÍxŠg¬=ô¹mêld‡üâÀÊu`‘ƒ™f ØŸ ,èçu|¦@'‘`±`ç}± –}:;4–a¤±“ú ëš‚Ú7 -ýo€‡fh¥–3š0å~(–eQ‘šŸã}4Ah^DO¹‡`àØ7o#÷CÃùó¤_„ Ç«õèü¢a¶‘>b[ì1ÛfOØSöŒ=g/Ø{É^±]¶ÇöÙkvÀÞ°CvÄŽÙ[ö+û½cÿbïYŪ“ëEͪ˫z6¯&§ì#;a'£ÙÉõåÙ¸þÂN¦ãéþ_^V씎êY=ÍYÍ"¬žœVó Vÿy]Ù;ÿ‹Ÿjv÷€ÓØ9»`]]Ô6b¿³?ؘ]²Ëêd]Ã,e6e`Ʋ+v…œ:®Ïéjß°áøñ<šž²«ñõœýÉþ¼ª.¦‹úôã86+…Ô2––÷ÓÍ›³y}9Jc›×Ÿ®ùè ›q, ¶¸˜Õ5[|ž²kö‰}f_Ø_ì?ì?õlúsT„q.IÄþ³quŽ†}dªÇI=‚^| Ë·'éCzþl4®qÕä—bf¿º¬»œ¿ ƒÑÉÖäÌ (îæs‘_#U°£E}ù+Áu[‹£[ 'YŽ÷ž=…þwVEKÑI·Š––ù”E‹(Z,0£ƒØDý»ùO³ã× —Þ¸ ‡³¢wðÖUºÆšíÞœF –ÎàÒÔGñ‘ž(\%Šº™À’4L+…¥ôKfÉ/Öw[Äu•T“‘¸„‚÷$œ@¿‹tÈKvÉ«3ãCé L‹»Ð×Þó×o^ÁÛŽŽÓ—]#ízËûÁôe­½u~ÓrÄjÓ’\kéÀ£+\„÷BÛÒ¤±Ø¢“dƒVl±"QäísÏv—œí9o¹qÒœwfaàœóÕ)‡±v}s2-—d²âTÒ¯Ùù—½~9$îª*Ò)‡/JÔ‚¤ E:åPE”E:¥æ:G!rÐ"‡Rs“šgÏyö¸ Îó¹r ‚ç¸NŽÓž]Ž9Î!xv9òÜO‰V”àEiQb¹¿ì©BNçÜŸÈýeóWÈÜ_Vô"ǃDµÈ=W§þ®! Q¸2¹:e‰õmä0äuÏQ¢¶×Ý(E½]¯»œj‡]OЬ)®0MT(³¡×=ÇÀlŽ]¥fŸsv9¯âÿ»ºÔ]Û£îîâP¿wì[Cµ0Kìûca` Fö€³’*Ñ Äè )º P%:ôCòœrŽ š:Œ²+I…G²uÔøûX †Ià¤ú%LÆQ°²$ÞÉ)C-ˆÀîÜ9A:¼¸¥Ü-#{FxŠ¹,?¨´ÎMÚñçbãþª¢·ý’MÙlÕfo÷Yb@»çQo%V&÷W“CžúnNõígï¶Þmø¼­ ñ˜~NÓ}„xJ„¥ü\t9¹r4"õDÛ}z»‹4%ï¬Kâ+qÞDu¢Ã´“T`YÑùŠ#u›½d{Ñ•º„¾aßwƒ„7ïâwzë·pù¿±„‰ÛúTˆj´ã—R}-ŸòælʘKÙdQVó“Ñ(¥Q¦ëÅh|ZÃ%æ Îÿ`Õ‚}d«Y/Ùêt:Ãí&¿²$V®ÏI¹Wãz>ž€µ6“2åLÞWf¤ 1ÔÈôÔ` NÐIãT-IÐaÍ® ¨¾´æqU,àºýzìû~×›§ûoÞ»÷VUŠ/ºn™Ä%{]Û~zŠ* lÛÆÐM ßò¶…¢s‚—•·Y$7ÿJ†µËÉÍë~^ \Q/Ë<ÙD. }‹nÆ¢4.ÃqKfìÉ¥T°´{Jg»Ú8‰n˘`i:NS›%f!£î{~¬`]Œ2kÕ…]³\^¯¤Z%ú®®Â±Y‹ºæ ÊôÔã6ÄžŠ3½$—q Õph” ˲:<Øzöò¦û»§µØîÊÉ ÞT¤sÛÁãÿžtv+æm*6»&ƒ¤•=rcîˆlrG¬1Ö÷ L¹5ñ]I륎¬àtà”{Ý:c›ìû8š^Ö§8ªY5¦@ÖLh'@ zÏ,3|£Mc28Šè°ÆSîB³Z·VñÎ ôþ(è§A ñh)®ÊaeHq?´5–ú.µM`¿¡ð¨šTã¿æ£y„}3TKjÐ i4Õ)œzt¶Y€> Ý 7Üíí}zøèj6Å’q/áUuòGu^ÿÿÉôªšo8º™€7æsÁÈnòþŸ…;S‡jÀôßBÊjí@¸[†ÀîËçoŸG÷Éñ7­.ËÖ¸;84tLŸòóQåz¹n…)¸[ÚÞ,5»v]_iÿp¼R²¹£²DtAéh·áýTÛp\UÜÙ´[›&Vמ¢ëÌÀ´Ôߢƒì–dÔO]F“7¶.©Áéø²Ž¸ïeõæ}¨–›¸ÍñCéÝåædÉÂÐY<ÉÒ¡àɻѱ€Ií¹€[—óVPèßQÚãç l¹Æïl”kKdé)x’s­n7ÈõZü¬ÄW^Ý}ÅÝ÷IRœ¸ÛHãînå~c€r%c˜3”ÒÔôS¯EÊM3u#nCû¦úéóh±²©vR>P?Ça(~k`¹{ÜQîÀø`‹ÞNjߌ1¿M⸢ø •{‡u^m®î .fm+E5XV`áPáðû+†âg%¾—ÚD†V6°ã€ÖÖuüÀÔÊvwüüRk»>LYîyÉòy‹~ú DÙ¿ÿ0ãZÛéKÏó=endstream endobj 92 0 obj << /Subtype /XML /Type /Metadata /Length 1337 >> stream 2013-02-06T10:52:28+01:00 2013-02-06T10:52:28+01:00 David M. Jones CMR10 endstream endobj 93 0 obj << /Type /ObjStm /Length 3241 /Filter /FlateDecode /N 90 /First 829 >> stream xœÅ[Ûr7}߯ÀcR)ã~¤²©µ•u╸ä8É&åZIL$RKR¾ì×ï9 I‘’CjE±$r0˜™žƒîFßf/´ÈAØdEŽ"òÐшÜc.fa\‰ÖÂÑ0ÂÄаÂ4– '¬np£öÂZÇHº†OEaƒKh$acÃÇaçÑÈÂæÄŒÎXB0xM¶…Ï"{GéQÔe02Ù îÂÌà(`0ÇJÆU¡HÖð~ŠÍ“Y’Œ†- 7•>Ê;“ƒQS˜da¤X-¤g¢¥ù)™`¨=Ej”B¤DIJ&Sž1Q^šWÉq›I…Bð ßEˆÑ³E¹FÞ]DÈ¡ä(#"ç¨Yg¨ªÎQ ¨HÎS£Yß=Ki4”d*̇žšF“û|Žêé N:Þ×¹® ûê+¡FãÙTü^”E‹£¢+Ý1wGp¾;šz´õèºc®ý¹ë-ÔÁx4kG ƒ/}ê`2¾|2þ€×XÈArš4ÞHh'ž8lß+74K×_ & (*µ£v:¾š·SÁüóÃìÛ—³Á¬„ÐÝðp»³“ññËvÚêÅ7O…ú©ý0ѯ¿FóãeKê§-NWøá*\僯|ðu¼¾òÁW>x_¡c=V¾úJÏWz¡Ò •^¨ôB¥WyG5^¨ôB¥*½XéÅJ/Þ$ð òˆ~Y1ÜAOÓ¶<®Ž~{öòû_¼:úåàl0:n'Ÿ?"Îg³Á9Þ::¿ŽN…úe8z<šO‡“é ÏL`²:,ß´ÓãÉðr6žÐ[PÏõ_õòêͬ@! Óãêpü2|;;£†`®‰Õ?×û–®Z~;ß;Ûõ[¿|$ž¶ÓÝ]Îö´#&÷빶N)ö©ƒÁåwíðôl&,‰â`ÈåÏÔ¿ÔK5PǪU'j¨ÎÕHÕDMÕL]©÷Ÿ EnÊ# •UOϧSÎv:Ã2ä'"<‚Ý)·$h`‡¢\~:á­m$é5•ñQ60Ÿ.Xß:X áb!â^@!–GÌ”×Q2ÓÙ¨¦¼ME+ <&—[âT°–!îTo¯T‰Áwo¯ƒ‘ õw+½dŒôHËVmcL’©TÊj/Ó~!Y(Ð2"§%ÃÐ{Àdú“Š©È‰©1!Ž@–×/¤8N'é[K¯Ö0î)Ðvì@B€]Íkêdš\R8Ù°6à›n"r‚Ì~PYˆI#û£Jà#‚ûGUsÁë@–o_eUÎ2 ²¸© B`ÊxÌá^­ùæ  APp»…¸-Á}ïÔ6a XÅd¨G…HRF j¿¨¼I°ßyŠ1K\ƒ*"°d©jÕõ¥Ý¯4Ñ9áž•:d2å=ò.É;9aeSÚ¨Z[XÆä 'Û¤uêd€1@¨‡Ð¶][iš€y‰˜7ß«QØ”ƒÿÍ,¯õ àµKa÷êçç0ûk×@9,¬Ûõ `à÷ /gźbâdLÅ'$,ÒäuƒÌJÂS¦+nö *™™ƒ ዤۀ:*Åíòʾ‡«¶Ï¢X:«Õ8žà-‹+Qô…Ž#–wk$YÕ®m–Ãû›2ÍÄò«î<ÇbÐ’ûUÇ #Ñq¥ØQÃŽÃK®1ìvâß ù?×zP´Œ ¤¹P[Dž m ÑÓfÏ  Ðv ™“4»Á´MjΨÛ,tÊ;#¤¼_TÞÁÅ•E®Š* Wت 7LrXO\|´H¥âTŸoj^äþùéãï¾=üâàð(nXÓöy­2ÊõºëEí6¬iGŒü¶ÏZÕ9Ååªsw:¯:Ÿ ßµêd|5QãQ«¦í»v¤¦Ãjv6i[5{?¾Vy6}á9†³º\wÖårhtyÃëëEç:ÏEçk üT9èyËÍ%æ5ñüøâ§ßH=/‰‡+jŒ¹TŒ¹A*kK ˆ6K AOTئ¸ŸÍÿúû(ð£Ebwåà6y Åvßz©Å㢷ÿã"t*K…e1"õ}®kvÝ\ÉÊYyg¹†þ”nÃYÞ†«x»#§œŸ÷Ä<¯¨›z_ý^óÊ8û>¾5Ôi¯*q ×–NºÓ¹?VOÔSõz¦¾WÏÕ¡úQ½P?©Wj Þ¨cu<¾¸¨·ªUåau¢Nø?TåêªÎÔÙÇË3¨þPý¡þTçêBÔhˆ1.óâR]²‚{ޞ̺֤Pºl'DÇãpüV]ž_MÕÊ¢Íô|0=+K7ïÔ{õA}Tÿ½6‘ˆ¿›I+«7.wWé†9Ê•‰”W'Ò5Ußp"±Ìõé™t×zŸóH0ôz*í£LØ4`;8ƒ YœÜuòPˆ)J y qGd ùa@#uZOÅ€Uû°•ü8³gPˆâý’ø¼öˆ‘ܺe-‹ëÖ²¬Ž9„ÙKnb¸È2Û~@Df]´‚ ¦A&íwjóJ–*®[Ô:‰CDæ©ù)–rÀž¢×žD·@Åe¿äwƒj]Õñ6çÖãDăÜ]ÕƒòÙuÚ«6ÕkU5ת€ÚxÍI’ä¦6ë³dyq7÷ÜXÚ š¿LÎ"šg5»b¢1…BîÓ &á–8ÏthÎ'Ÿ‘•Ò½bêªÃ4ק‡‘Ý-ëoŽ7`rQr"tÛ±‚ ˆ¦Ù¦Æ ;¬˜¬†1àŠÎƒ`ºmé›f’B‡É®†ýbòP ˜Ì“·°Sv'˜¶Y„1åê2nó\òª²I7Âjú}­U_ÌJh*BŸ-v¨6µÎh™¸Ïµ‚rQcòíˆUƒ¢5Ò N¹&Ê`vé-‚‡TËΩ ŠñAtvÏ ª9ïAõöü@}j£@Ù<Æ íP».>ÚβŸº3PÜGDÓa¼–zÓ%¦øÜþÔí””í±¯Ó_+íÔ ¸TÚqñZf÷.ñ¿¦Ô‡ƒÙdX*WR›nœ‹Öëåú)]«ÿp¯ãøÕhˆ··TucIÈà ,ª»XÒ`Y«ò„'IÄž€Õݯú³X†Ò%úØX b·/‹ð§}{u‰äqÊK¡^=›Kïx6º®ÏÎf³Ë/•:8züƒ¹hgƒÏ‹,oŸæÚüƒkA.¡òÜpÒ×q“Ž0«.êî8Rç ÉG¤Ò™¿QAhš0+"ìG³élØ÷û÷ïå›áø¢}ËjÓdp.ÇÊødÁ7*+{è—©s°2HB¸¡,nh\¶A~áwj/ù«ž.:Fé͆H÷³èˆ6Wßî2»È²÷ïÞ ®ÚIó6 c0¤ LfîTLIFÍÚ0ʆ‰å=Ì&N¦“ñdèÆtÞ©B—F¸¡»òÓª²ÅùÞÕòél0›ŽO:äïœWCm¶â¶×ÐOnKƒ[ŽÔœ~+fÊÒÇØ€ÿrQŽE ڔͣ^oXÎúKăáùlü%”øKŠ¼2dà eäeš¢×Üvw`£î:áŒÎ2òw}`¬åN7_w¼!³D~²kØ*ã7i¹‚,?U¬Új˜è{ö´„:¸ Öíqr¯½/¿‡”üñÛ'qoº²»k«$8Ï­þ_ÆW7xƒo†''í¤ñG¿wi‰†_÷Ù‡ÂK‹¡ŸX˜^¡g„:9ÁgHÈ\»™ðÿïÑÈ endstream endobj 184 0 obj << /Type /ObjStm /Length 3395 /Filter /FlateDecode /N 90 /First 835 >> stream xœÍ[msÛ6þ~¿Ûéï¯7½Î$NÒä.Î¥v’&¹ÉÕ¦m5²ä“ä8¹_Ï‚ D‰rJ»²Õ‘e‚"¹x°ØÅ> €*:&™Šžiçq ,8cdÉÒï‰)­QHøzIEw94ÓR Ó*Ð%Ë´µx:9¦}¤{ 6Hº'0M@!2P›J‰ep#„ñ¨TÌXcH*3.* 3A',31PÁ1+-]òÌj ñ20ký™õø§eb6\R’9eQ³R(xÔ¥4sPµ2Ì9Ê2ç=Ýãê¤{cÿÉ–.ÙA6ôú˜ò‘̼>ªrÔåhòñ#{“ñ¼CŠ÷õ5±7\<š|XzØ%Ç5Z­âðK<±_k7ÄÖõWƒ)2[K;¨f“ËéQ5c„øÉ—ùχóÁ¼Ê~’ox ÙYòÙ«éäè°šC¶xõø)¯«/sýé'¿^T$ý´ÂéjûÉÅr»”)G[Ž®}9†rŒåXô¤‹žtÑ“.òt‘§‹<]äé"OyºÈÓEž)òL‘gŠö¥}éãâºô“.m¦Á¥>ú }êîU/>¶õâÓ-ôòh0«òãâý‡÷¯?<úaoÿð=Æñd|49ŽOóèW×2œÎæ{gƒ)Ns•«ÙÑtx1ŸL3UÈ7½”{ÆqxùÛ ŽOGYÇþp6ƒíä.fQPΫó·ÑÛFÐ2 Æ'ÓãjZÜBfçÊ'ª>Ád×M´z÷þ¨jTàûÇ—£ÝyPÑQr  "ÈE{ix$ö§w`[&úb8þԀˣŷ1©æ¤ÁÃTTÖ)=o]‡ÂÁ=x„qKp kw Æ'ûBZxíÛg??Ü;D?ì?-§…wŽgÃåKï…ºîk;î›z»/˜rÐ+fÙ²yy31‰záj~s9bןYEÀøÜñ$4£íIÑ´=é‰x*öÅŠßÅ'q!.ÅUÛ3(ß(žºÐv ù2èoÌ•¬yGX÷ŽÕ^éëˆ4›C¼+-¢D«4ù ÝÍ7¿(I¾Æ‚3¹r†èå— —íèÄål®9CþSˆè]ižÉ©`S&ÉM™²±6Š~\ˆSۃѭ>°î. æ©"ÐkNé¹GÛœÃí)ý¾=(dªœì`*jî¦Þ(ÐYÔÚX 5‰øb¼å6Qªì8Œ ëÚhï”Õå¢^‚rÇܨëlÊ)tW‚Æ$…0±–nŒATˆ;2)€H Z &¯x€ŸnS7R¹%¨„¦ÓÄÕª;½§“âŠò~ØwDÔÕ¸=R† šìƒÕÞË×o޿ʤÁ¯0ÌÏ—1 u®‚4 ´£è¦Nˆš¼!·Â°\ƨQË€ª¯‡šÜi…út>.¦Ãóª0®åQ4µeòÓka¢•ÕabU=õú›j©îw?¿yIíÉ»5F¯×õ»”ž&ÙVõM7õ¢Jº®ve[·²­ÙÙåùù`>¤,ê˼’Юg«ùbÊ3-«z²£çUEôÇH™{jzÿŸïž½Êñ>­(Z®+Zo2ìÔ!_›,{“¦ifq×9Í·>.Ï°t?6Éo³·|º0’Ob>¸ŸWÌC_o Úoàj‹¡fa«}×Ó6Â8áFv¶JÈ!ÛÄÎl5S½©Í4CmÎtž,oÎËòM‰.¯Å<‰Þ—ðÝU@V yÔ°_¯ðàpždf »‰ÈÒro˜@BA§Ô=aºŽã`:µÀdAd-Pì“#§‰(d¿ÄÐïTÿÄßzÍ¥Ub­àkš'€ñJÉl•¡ß|6"‚˜ÓêB3ŒºwêÛÞs9K×ʦÎÙvä&Xš#‡+bp  ~Aï”6ÐPÒKP.q#ï ”GŽBk‰ë¾Š)PÖ{Ptµ[PÖGäS-PIó ïÔ œÒc çÛ)¨Æù¬åQSÆ,´ìKó Úì“‚b /AYÏiþ.@é¨/óìëvž'(— ¬¡ÞS»eå´²¼Ó’Þì¶ûA¦€ZØù.A5vn×”Ù7AeØ.&ÙÁdÁO(ö¯ç^æy±Ñ#w ŠfZbŠ>O…Ü&8™ H‘&7ÝSòbõ[ÇÔõ="â\—tJš’*\@VeЛ’(ƒ‘0À­ÎáÝ•7ÐI ú/F'¨z;ŸAøMÎ.@YÜî³7î”uV¤– 0DXÊ?ï”#Bi;ºO4¯ñ ã&íà´/„–êRp;eWmPHWº PeËÊ (<@w(‚<éÚ€2&qZ]ß)(cƽåmMù¶êdÃ'­‘ÚV<¶ÒóíÚyL%›žhÇ[½òL=HÕN0) /.-A!@Ê;Á´q<×½ÓÏEyP7ëqÚ«C•ÞîxД¨¤ÌT°à1n º«2~ ªY•A?Ñ"v‡%$P:ZB–ŒÔ$0ô2´L{¡z˜72ñæàùâ†#š…¯úîl>¿ø»{_òƒÓÉï¨O¦§âbpôipZý㼚N&ÓïóÖ¢ëU¯VB]€:‰¸J[|oô7¬NX£–f ù¶Ö×OQßnÂbiæ—÷/Þ>ÿaoÿõsZ/h­Í¡Ëµð„ÎÚL3G¿\›Ñ}÷µÑÎyçð…'G›u+ë/} m™ÏÛ6]Ïý4>FÚ•^—óŽÖL“)0Ð$2z8–3™÷£Ò1ä]òrñä¦!°®þ6e#—çF.Ïi«il4!ô}aóK¥]¾Ó‰6¸|m}}ˆÐµÖ‡êÓÅúÐ#±'žŠgâ¹ø—x!öÅ¿Å+ñ‹8‡âµˆßÄ‘€'ı¨Ä‰8¡¿¡ ¿‘8gâìëÅY5.{ƒFâ\ŒÅD\`À˜VãQu2¯KSªYLÅLÌFƒÙ™˜‹KñY\‰/â«øßÊf"§6¯M=€]竉v<ºÎÚe³2»XžZ³ßÞk—¾ïÚå›_Ÿ~xŒ Vüã[;È܆Õb·¾ƒÌõ]-¶qÃZ w«{"]»¯çW“M ñÞÑN‰õÅxke~~MÑf]Ñ«zè©gÿjÞÚ:àµc,mŽ&{jÎB~íbÃÐùç7mm˜­³Hºê0%—Éb±<$zÅ)‹§wc@l¶»ëç i'kJ+Ë-yá€êNø`´åôJJg¥œˆP´Hê@w%88Í­€Ó%µ#PFR^°ÄDë~ñn mè=ÊÁ»ó*´…ž¼#rzŠxd yLæîS–˜¬³ÜÛ&0. o¼L›òrcxt]PArzGk—wl-6ìÌË­®{öU¸3pñüæV™’&ŒòÎ÷7§À:hNoÚÁ®$m³£)ÍüZ[€;î’ñPôÑ@Â(&•¿$ ‘ôúGý¦È€H´÷ÍHß îÆwvÜѽíÐéÍ›Ð_ œûƒùt˜ƒ*`ÕÙë²ô±ÍIÒJä7+ûòâ}͆&ÞÚ×Ý#|öJDÖ‚$­(7›¶¯É/Z4é”èñð䤚һ³Ú!h“)£nÛâÆÛH£}~yÏá–äÑv[’ ±ù­¶ö> [¼¨KZ¾œ‚Ä”µ_j¡¤²yQ¥~i¨¼½²%x”Ôœà;ÄwDåáfÉÿ ,Zendstream endobj 275 0 obj << /Type /ObjStm /Length 2891 /Filter /FlateDecode /N 90 /First 829 >> stream xœÅZYoG~ß_Ñ»X¸ïÈv´ ÖÎ’ã\È%¤)R!GŽ_¿_õœáeJ”(ØâôÌôtU]]gëà™d:¦#]#sJãšXÐ2?KÆ㪘R/¢fÊøˆ†aÊ9ze™ ֢ᘊɠ§ÒRgŒª ƒŒ¡¯Ó–ÞÓSoðUR4+:'ú3’~˜‘(Yf´vh8f¬ÁÈÉ£áðE Ì8O_Df!N‰™ˆ'FJf¥’h(f•Ãc©™õV¡a@u”–9­0†tÌG_y朥¯£J°Â{j$æ¢ÂÌÔE`6J1—$54óÒQÃ0¯1Q–a*Œ£ó>`R|é#‘‚ù|RÔ'² =¨T™ËÀVЃ†B#dºYp†^‚´e!ŽDI˜µgQ;P¡úD­¢>‰Eoñ 8j 3š%‰u0`hÒ4HJDŠ1D}WôÛoÑür[ÐèWn—ø’úSCªé§ºJ§?$¤t’V؃NR«ô„ÃÒ“úô(¹=ª–KÒ «tŃҥü€®°]±¡+­¡+”.-ûtiµ]¦f ©êº¢<(]v@—}]=ìê Øݻۻ>,öÁ> úØ_NgŬÁ!³åUß¼.æU6võпüú(àÀ˜òvMîÆcêyRœSO8‰\b ½²\Cµ <¶{¸T™¸Ó»³*ãxSN>¶˜²\?(­$p„:PÆroÍS€²f\ îà,.²Rr ÇÍéÈœk÷0šRž “ œJ‡É+'í 05Ö¦É:•‚Q¼b ÁÁVÑq¸|Ì&É•&LàÅ-&’/8šO‚I¯ ¹6œÜçPŽG Räžb7pp2­R®ø³`B8È%ùÚ-&«yD pLyR¸¶JI¼†R@dz‹Hæy e%Iu ɨÜí>˜^]f¤ùk#1BÔŽ€´¶m¤ù¿›œO/ÊÉUqj£QÎæ}E~mC^Ö& ¡,´ýÿ£~þvTÍÊl¬ .UMu×BŸ7£þHVBip™þ4)1{­ÓÌ]ãÏfKü\^T×äÑXÁl§2='ÄÓ௟(Äi®a*nÔÛîñ¼ïn Àb{ƒ)6ˆpQ·&þ$g'R;¥3lºY®[åÀíªÖ@̽¢œ„å ̳›ˆ¬P«5vGeâäbw¨é×ø¨Öl%OXÆeVË-%,Ì9„ÑDØo ÷¶ª}LÖJnC\€òp&bº'¨Ñ¼¨Åþøèä—Ó×ÿ~õöôÍû÷Ý;;br4™—‹‹­jl½m€þ|VÞVÓYÎwe»P/ïBµaË9M‘?ýÖ­Eû1þäÒÝæÑÛwË}äƯ_ôw¥àq餿NoÍÏÉu÷P,âèÓUfuî!^n¿/Ê«k¼„ÿ’6¹éÿGâ¥x%^‹ïıøA¼oÅâDœŠ÷â'ñAü*Fb4?/˪_hVŬœgâl4g³Ñy1..«º5£ñsócQuÑ®_œ‹óéx:ÁïÍÍH\ˆ‹éxŒA ‘q‰âÏ»ÑX\ŠËòS!.sˆ+q5+kÌĵ¸þr{]LD)>Š±ó¹¸1)'…˜Š)~oÅ-Å-yÚܪ'½-fĺ–Ó q;¾›‹?ÅŸwÓª¸8‹™˜‹yñ #ÏËÏb>ͯE%ªëYQˆê¯©¸ŸÄ_â³ø"þ³é¿òÞÍL~¡á?‹ãñèjÎRØ°ˆµókŸó°¶5eÇå6É7É»üèÇÑM±f?þPÆåùÑäj\°ôàíèso5ß–ó96gïÉiUÜ|¨7ßb³õ6ªø¥Y~kõ6+‡ý¬š¤áŠ™ÛѲQZU¶w Ë&Nô_k'ÍÓ¶)‡ß‡Ñ‹iš‹¤\n?G÷ÜÏL½¿#± O·ZžÎ[jmt“0Φ'*.á¯Á§U¿Áxž4U["w)§ÄáDG,,w »žµîÔ&ÑÚBk'3{û#>%îÖ˜~„ ‹ƒM‚nKˆðC`nãT¿yb/i*ø¾Ãd%Üò•îƒiw½ÍÆ?‡ƒîwvЮÌé‡wÿ=ú‘T篱OˆKË„ÈUïE¹%ï’½ê¼ô†-£öÍ’¯ûçŒÚòv×TØY¶ö¤öì{}ÛÙ÷›r“7½-&gª–pVÞ=;&[#fËL³òpKæ+.›¯áôm—\¶URv¶ŠÌÚZ[µM“‚ ­±gD¦°œ¾`hÄL®Ášî.äjë^ÁÚšD˜Rµ+y0ìv™ ¾xh¼¸ÉuÛˆMµ£Â}dD”Ýq°§ $-SNÔÝ ÒWWó!ž‡¢µHfízÒàm•mweÙÄ,JºžÆ4ˆ‡%—rnŠ~ˆ›ò` qGÊô-‹ˆˆÜél„ÏѲ¦nùâÓGÍlíŽIGb¯ê0aq™Ôý@-YN§>­3œ.,Û3 èt)p ½·å¤¡¶Φª¿Áp†íy­½Ó-:u°ÏèˆÑn“íí´¦hodsmŠÃfMq8¶èeú‡èèÊwžòŠÛ°R_²Éreé<ãÁ`õtöã¡ ³Î~Ú·SgÂ4WtœËÐrêäéÉ«K )ðC½À„n‘N íj9¸2ý¼ž¢tº£r ¢,¿Zô‚_ké %ç yõX¾|ì vxWT3ü}1þTTåùh ™4[’r›zñr:¾r×Ñîõ  C½aM>@ÖÞÙ|ŠìÁ¡ð•í$â°°bO%]™w‰iÃ!XTt*Ï'N‡Ÿ¶z³“Ñ/pµEòÜý@íjã|›¸z·µzs`·ÙëÜâgÒù:Ò¸ƒä.la£àHêWmŸ=¨í³­‡S´‰fûVô§í‰ ÜAž¶—«ÆOÂøÑùÔ”¸¶‰Y:lîVÕV𵺎=T ¡O°u +Æ&)¼®µ:X­€.oÄwÆÔ©âŸO>ÿï{×ïߧ= 5¶‘ë½ 5Ã"Çæ‚ÉÚȆç÷ÿwßBζÐ2²û—Sèå"Ý2(—œåšÇrµ£©stq.eL7Ö/¨n1(XT]iâË°ÚT¬å áë·±ëj9¢·Îç En9Ÿ³S%"į"  ¹±” A»€ô9ÿØÞQ{}Æy˜ì¡<"&ß”úé¶éo£ÛË×àÄÙª¹o3<[²Ši5ïù„çv·WC¿Ë»|Zþ«Ñ›[s¤<öhrË’æX¥{:Kåv¶Tt‰Ž—j﹄eОÃxå<‰òOQGÙ}3,y)[~Âëòò²À²Ð:üž½8r ÿh èvÂÚÎPoþ€¶Ø«7O¶Ãu/éóú9ñýˆÀ†äâF.¬<% êIŒÇ>Þü{­ÔWÆÿ?]0endstream endobj 366 0 obj << /Type /ObjStm /Length 2498 /Filter /FlateDecode /N 90 /First 824 >> stream xœÅ[ÛŽ7}߯àP¬ o@ ¶“¼$€1ÞEö‚¿[Þ»ÿ5£î¦Ù„?»Éë»ùr:ǯ úd÷&¯w¾ºûŒÇþƒ®xÎÆnò`/Þøqúav»õ@ÙøýííÝ°Âäfz÷°x?½w†äÛÏËïß-o—Óf„íï Yb»z»¸{ÿnºíÉÛ7ß¹É?§Ÿ— úõטþõçÔ¨ÿ6ÅåÖ¾JßWÑ>Æ>¦>æ=û­Ýo©›û­áEûíØÍ⇑û(}Ô>Æ>¦>æ>–~äNëBü0ß²æ‡9˜ðÃüAÛ÷ýqécç“t>Á cç—t~Iç—t~I§'žtzÒéi§§žvzÚéi§§žvzÚéi§§uè¢rˆaSI^$‡H{ö×Ýoî'>g?7p÷ŽFƒ½1÷=RŨ®.;Óê¢ ŽðH)¬.à—«¬®gGrðÑH/h¼‚–Qþ7öÖ¸ü uŒ¯î¦‹Î«Ð8Ž /ÞLï—ÍáwbÿþÏ]!*•<ÁÌ>~´o¦ïÛƒE=[Ú³O–k„àT°»êÍUãÉw¿,«~˜ÍÿÙÖD,¦¸ÆD,Þr: JpÞ[¨D}-jŠ>g –:¸³W¤#¡Úˆ~¥G¿Ú£BØ£­rÙ¨@›Q¡ðs´|#ÙÔm%}Z/Ÿ£‰f¯‰¡É}-õУø OÍÂ>ÀCo ]sô y²wð¼ÂôØW¨$ÌЇ| ÐO ª‚ñŠh‰Wô–jñ4®‚ˆ8ù)bðS´WuNêìÖšs”àÑQ|¶º as›9ù`©`ç–Õ Ì ïÎ,TL>ÁP¶@qLPV”Ž˜JŒ$µ˜'=·?IØ KטŒŸÈ|.ê 5–Pi… Û”2WÅ„ÐâªØ(XAŠy¨×¿ß.Ì.ÿ–ÆR7óãßÎßß}˜ÍkEÛf‹û¥½åìÙ^ &: Èöïçáþ·ËŬ…àlg=Ã3?ÜnRZa5”‚áî_óVŸÂDºqø[šü4û°ü}Èæ<·¨s©0#­…2Òøbú³Q ñž /Äë(Á¡´KÏâ¦N£_mnQ‚¯Ö÷Š¥mk'wŠ>X“¡ ÃJÖ@`ÁÅ&Þô0%^³4]–¥ùKË3Xz¸Žˆk`~™¾8Xošæ#c´^õ!Ÿˆãëž\FP$‹ÈêJq5¾%)ZXzYò ›žž•E´’Õ0lÇi¤KÖ…‘ ž€sò¨- µÉ[«ù„UÚ*"PËN &BÜÀbøÙ:~°ë×öBf4¦{ÑÆžÒfIc}âSyÃ퀮ΰtKÌkØ©#¹T0¡hVÕf«QOBñ¥ÇSf‡ƒBùéÛÁB¥ÈÚ,xœÔØ]ÛL}²úª;QC‚‰ŸŒ ¬]ÀtePQa&#¨ˆÐ–ítä" Rø¤ì©&oÇ0AZ ɬÞT_€ÍrÅ«`bÔ„>{ E!ŠS€ú²?ãêÉ"VH²?‘Ö{JV7[*b'oðffÓûÂÍi›tÇwâ0·ƒÄc¢â bߺÉÚïÛ9Û0öæ2õæroÏØ[;D;aÆ}óECìDo#Fp<[Œ >B·Idç¶7¦„­r ɵ=¥­ñ©)ã-=©=Œ)ÕÖ”]aªÅkº&x´Ä» jõÚŽ¥PÈ}„3¾ (.X­î¤qð¼žbZƒŒ§áÔŽã£Í¬¨·ß&„¸§CZ™¬ûƒüþC@"ìóØKŒ§åUØeV$èÏ®7¶ŽKü¯Ú§1{ í» XÀ•@q ­Õ²Æ‚QgÀtDkŠÌ¹¥±Ãj:6|UrÅ®¯šF骭ÙÙ©ÿQ˜nï§C¥ùî¯O¿Ü}|T wÇü¨d¥GõéÅ"ò—ŽÍ÷Žªv0kß•¼¬¾Ì ™ua¬ ÿ¤PÈÉ>aT CêCöÁ‰¥‹å¤ýÍ#* Þ¾°a-S=Æ"¹Úu@iH¨‰i ŒUü  Ž¨<þG֠Ƴ¨«‚êgQ †ådß&YË×p¬1]©ò Ô 3X*Ú*ë‚*^Š+PlzoÁåô öÂHõu·/ËHõ"ËêxS<ƒ}v‘ãÍ'@I*¨ÌÖ˜*ûöaÛé1íÉé¢Åþ²“Óm¹ÚÀg9s=i@}½‚„!íÊ-‹Oy'`µSßØà µ*&DpÉòß\¯j8ëÔ5(5'ÏjÓ”ÒÜážsƬy êä®\”jFÌ[‹ÏšÔVàÔ®’|%|Û Jh‹ Vß_\Ôè B:â!ú"Ô *¤WDDCy0b‚W5ŸÓ®é)¢ÝtSa‘fÿFm—®Š‰‘çÄkL‚˜ù˜ödZ[Þ½Ço*†“ŸòYôé`L>^ËNdì–^@v(a<ÕÝOF’ù‚5&eÄ—¢WŤ¦?íKüŽ žÝ¢Ëvk×g|N ýA)ðeOï®ÕƒHLÛí(ÑÚ5Gû£ôªßgZGT9o~¸§!n½†UwaòÓlþÍü~¶¾ñföë¯ÓÅtn-b;ïv“O³ùý³?^™|z°¿Žp“å탱kàÏêݾÀc í¸½õŸæ…ÿ(וéendstream endobj 457 0 obj << /Type /ObjStm /Length 3203 /Filter /FlateDecode /N 90 /First 823 >> stream xœÅ›mo$· Çß÷SèÈ’(ŠPH.M4i_‹¦-ò¹Û$n¯öÁöɷz½Æúaw_œg´3#ýD‘)é*kH¡r¥âÚRসæ Òp-!§RqC! njÈVªCnœqÓpÓ:n$d»Ñ{±jPmUR(Åê‘ >— —‚µ-5”–íE¬ ”>ý"˜ªh ’К!bðh Ä ïhÔ*i $ðJzE=Š†SG ”BS<&û£¨‚ ÏÕpÕ^¶*ÚµÖnÿ:~î%p¶&:¦dÏ+n2>í¸æ–ìFËô‹ŽÐãS|Ù ˜9åÐ2´4‚´8QhLöN MŠ=âÐzA­©á¦¢AÔ.©Úç¤4{ÔƒÔŒs bÈÙ0 â“^0¬™pCö¨M-ã±Ú pnAmPU¨ £KÚľêAUh·šÁÔs¶›Àe7zÞ©¡O­}jÜ]¡D\$ôŽ–jÑ{µ—;T+¥I’vg¿QÆ]NvŃ¡ÿF.Ií7¨^™¤DнbLP>ˆ]‡ræ¢è £“¹tè'Ú Œž›‚e*Pv®hƒ*ÄËa&fÐUÓn±|3éôÛÉ ¢š¦ßÄîzÿÃÿÎ>¿ºº¾» ÿž?…óIï—×¾¼âãå5O×Ãٛ뫻ž’¼|vöææúã׿¡û;Gè~К#ºŒ/¾[¼¿¼X{AWžqƒ C]Öv¾¸½þtónqŒðO¿Ý}ýöîân1™ÛôÂW×ö2Æz*}sýîíâuŸ}ÿåWáìo‹ßîPégŸáö÷ «ý—Šký•:úÅãÚÆuÈA†dÈA‡4kW×QŸŽútÔ§£>õiß"Ç|T9ö´*Çž_$Ç^¶ô§·?ô ?õeýã×Çøõ1~}Œ__ŽŸù¿Í~Ó1ûmž÷¾ßæ~_Ðoó¨S¿2kWW×Ñÿ’Æ5kW×Q_á-rªG•­ê»yåÇätöÃ_úÏâÝÝäÈíÅí‚;Ïͼïh9Û„¡£Ps?ç¹Å¡y¤Î ^šˆ¼TQš+!x{ª}”àGf1Ã`ÇpŒÖWDÉG5µÆ«¦ÖÚ3Tî\mzZíÍ9³µ»0m®õÂ1[`²Uæ¤ü¨ì¾¸¾y¿¸rH“bN…¼,|¹¸µŽÌ.ì‡þ šs?w‰u]}úðÁÞ<7-±7[,6sŒRRd ¤DˆÙÞ|û駻Iß^^ýw–Édz/†jUcZG*@j\ÍH̱'9Ò9•–¢X4Cõ†öHrêš·…ø;²E^ 6ˆ2ªA€ð£Õs,ôDIm3³g¹¬{cz´»y.ŒîZ:æýÍèQ³TErL0ïuÊ5T£p‹–4ä·„¨‘yÌèÇ+ŽBÑQ¨ Šˆßס õ„覎„YŸ2E“ r¯˜œŠ )µ”r†Œ öPsp¿jÙE¢¶ }Í\bB|[2† Š”rl`CZ/t"¦’0Z¦Rƒ o¥Ã0m¼ÜÛäÚ6¯DLt0z•"!Â0¾­: P­9îŒk=RƒSCrµŽ$«¥²R %Ï'EªµÅ,ŽÔzìðIGB*6so ²W¨q›‘ð·".:qŽ²)Á‡ó´mm¬×h¹qF|bë%§a‚ÚÛ¤7˜»@ÝùL•¶Ø\mxpM1MS\ÁÔ–m‘SØrØúi˜2•H¶’4CaÎL‡€Êi3 ‚ž`˜xcô¨Ms\N˜ã–‹™ â):@ßN…¨ OK|K(äËQ&Ñíµ54{Fγž¹Gf‰{xôŒ@¯­LʦI¥Õ]^Q½ ¦ÂLh)BÚb¨MË í?[|k ä®87Ã#͸ÏÎÓÈo?™í£p Í"Þœá¬j«—4C„Ò°It%ÚâÊÍ`U…ú+\¨SYÚé T[lÓüyÙ€Zw­ÝÒ¥z/¶7“yÜɉ ¨?Qò‘Ü=#|*´™‰[@SïElÑቡÁ—1¥m_èIPY[zà4²Yÿ¼àŒ’ø¹ºý’èÇWóÀ±WWóloîé«yo~½¸±–u_P­Ïm]½»~yõË´ÿ´lêòæöÎ> xujø‹e?2’Ùd±OÙ™=ùîâîærêcLy9íÜßáo/Vªrå0FÂåúïW—h}©.—°ýÔÙ³\¾¿ûu¹4õíék&kj±ª†Þ¶ mQcÇjÊý |+ìi¬°çm; zTÉ«;nœŸ³ã¶o±âQ!æHcªK¼é¾q ,…XáJm•ˆ H™é¾AÄëcÙRŒY%d°xÍrLÖÈú[,éU±Š®„\ŠHkšVºnYXƒˆìøC¥.ãù\§½è) Û io —Zx…¿ö±ÛP›5²¼(m[§Êã Ì s ôl'$0”›ºŽ©³Ô,d믂µGBR C³™Ø«bþÎ6Ý;ìUbGxasj}]eßjøô^£¸È“8‘…cXk=RÎáf$Ê–Ÿ†ôM¸»ù„ÿ<®oñÖÍÅÕíG‹Rßý>óõÍõ§ÞïÂÙ_®oþwña~|·Î¡õ7oÃÏnñìÍç,|úÆ»gï.Æ£­_åí_dض°Ëˆ}ÎÍð¼@RÎŽ #ô`dŒRæÈ]Hñ`Q’”â%;&I^ê(Í #öqÌÆJÙTz©q:ÛÙ§c¾87°³ Ør–rÄ>âkcŒ‰S|mŒ,ä,r 9 æ!g°³Àæ¥: 2©Îÿ` ®s ,ÕYÄÎ: ¢d©Îg,ÕY+KuŒšTgÁ@‰¯–2ü˜°³À•‹çø ½YÁÂ΂R> stream xœÅZ[sÛÆ~ï¯ØÇdC{¿Ìd2c+Q’ÖŽɹµñLBЀ c÷×÷;K€MµVõ áÂÅžoÏùÎm£ãÌ΄Ñ8 &MÀQ2å<ŽŠI÷5³ñh˜óGË‚28:&8þã™î&”Æ”Sj‡¹¬ÀÜYÉ„ xÚ*&¼Æ`«¢;†Iî$N,“"ÐSŽI¥è'ϤÖ'°aÇ™t"ÐzI'’ÉÌÆ)¦85N3% †3L)C'–)MØcÊ ºã±H 4@©‡Ï™æcœ4¡—LKÌJ Ð*ÐÍ´xʦ­¢1–i§è'Ç´‡&Œ÷LZ²ÇJ-0@žÖ˜™Öohž@pI !ŽÃ„ø³\Ó`ì G1Î*M?9fÉ(&xœ@:²4½…"¬ãø íâQ.™ã–~RÌIG'š9M³rØÏj‰Ëœ(‹'ç˜.äyËŽ¼˜^Á°VHæ Šyïhæ=I‡`@ ‹)‚àô¸cA3–‚&t"°@T³°Y°´)XðJÉB åJpƒ è…ø&¸„v¬48ÓÐŒ•–øF¸%1Ï)šÔãÞÓ$àžà h§3°Õ‚BBHÀ$Sá ÿ­‚ ³üåË/ÙÉi½­ZöD³“¯‹MËþ ¬ðˆsvòëoÿ`^dœHÕvµboØÉYÙ`­#{žÇ+µ»ú¡xßFw‰W¯ò¦À䶻jŠwÌíÎ_—íª`Ÿ½(ÚüI^å«›rÃÖõ²Xm>g_}‘Ý…ŒÈ åO'RŒDšè×·‚ÎójY¯Ÿ——Å¢í$}T0<Ó0E"IÎKŠËÛ«¥_`ù¾X+àHc¹àb¦¥H媃rÅHîÙHî»MÆš¨“õÐDãÂÛ‘ÕѳGt9^;MÎ.˶-««½ŒŽoö€4©Uÿ˜0Î ×km§œ~ŽÆ¥Tx}]°5xwY7ì&_ü‘_)83çp-™†§àìœåCp6áfï Ó|µØ®rÒ«·í¢^À|³mŠÓ¤x”·™C”HÈâ‘f$òe"†‘2ä{ÉÚü-~_æm>•ìSÉ\gÞM$ûyÉElâ–2ð’mZüÏ›eùïbI *¶,AQÌ°˜ê@º ==ϼÔ)’p‰›EÒÂO6ÐÆ@uÓd˜ºÂ9|¦\”˜é@H°™H5Ó“â<~„çUSßÔ ‰ÞŒqå»{í5´S_N¡¤ü°®‹\”ºn"}ì#gJ²²j‹æ2_—£‚Ë„qéšå<õ;©cV~ó>_߬x£t)¥™ÆÝÄ­y£ycJÐ$›Æѽî”T\¤Ñ!dbjùq>Ük¥rqS,ÊË$fõ¾©$#EF`"ÉÌKê§ÉÍNÒó”P ÙI¤ÎfíAÁãˆ÷r]•o· 1ɨ/†›!¹h¦žˆG—)Rñî ø1ÏN󶸪›r‘¯â¢›¼Eø{—7%E¿#0¨ 39PÁRDZîïU~s}ù»¼i·Pz¾ü×vÓ®ñhJy}@¸„áêò”òaHy'‡”wê ååA/¼ˆ+vƒç6¿>Áè&!šóŒO²” 1ŽKÂט{Wï@Eá,ß|Xƒ›Í‡ƒ6©¡ÈsO™éùA c÷xݔ먃Ësì|b*85jõŒ:ýD°8(x.O·ëØ“¼Û5Kû&}"ÜNÒ‚ö™˜´^î“®¹ïÉGÚr––Ú¦IÂZ—y“¶ë^<›ÏË?ŠUy]×pH*´c…r„haÑ€ø”m^=N»¯ ”Üí®Ù¸Cjš(òI9I ‰˜qà{F“­ÊªÈ¶­Þ–pþ%ë ¹âÔ³&k èmøt/`æ“xûºX\W1.Á¦rf—'ÝÑp`5Ñè8ÈÚü¤«þ9_•Ë:QaR}›6ûwI–ÜdN¦I߇»Eûqp;­×¨hË D¿-Ú?‹¢êeß.ûiU!’AÙÍ'»ùd7Ÿìæ“Ý|²›OvóÉÝ|o¨^@;ˆþ—6Aw >E—ú¬~eÐ ƒÒœza¦ êÂ/À«<à¿wÊì,w^lêmƒŽŸ‘†¾yß~{‡(âÆfpV“æU@›zqQ O^}}í“Þ@Á8ýpSÐìWEbl3ÙÅ0\Á‰&ýñؾ.±oµXm7#wyV7¨íºuò¨­x!vý&Ê XdqÈÕp'”·{ùç¨OÉïPåsÜ– .ÖO›ž^ãÚ¡„‰0òbû¶ë|^VôkŽ¼º'(1Êdv°ÉÕ’¨ø…¶hAP t*VaI¢<§ò( ÀXу‚¦4ÂÏC€’PR@Šœ˜O+—9z»ƒj‘^X4­¨$múG‚dm‚¿Åcz{aBºˆNxòÓÅËß~yý×ÓÏ~­O¾©õ’¶N~)«§Õ¦¼½{†Ókdä¼èÄ¿hÊê„è%Ͼ•ØÚC!¢Ç²ýK¹l¯)t:.£¿ïêfý6 w>Ío¾+Ê«ëþ³R øìäüó¨¸8˜ÏVùÕ†Þ,¡ÆŽ“?»U.=ýf÷ËY¹*Ÿ¸D?äëbFß·È<‹§ÕB._”› ´A#ØàÎE[¬fÁ W5PH·žsT]Èßßq G·§=°.| èCôyêm˜èAÔëÕ|¨\éÏéþ\Ç7oÝœœ÷çàíH*é“‚ï.NçBYÔ^¼1`½hÚikO;Ô´A Õ”ì{=¿ÈÛ¦Œ6@ù.vÜߟ½°$Î4¢‰Â¡þ UªG(ª/@昣‘‡n©sËêoŸýöòo?˜/¾·GRZp31!½‚s:Ž:ŠÔôÂiBj;&µ‘ºú‰ØÓZ(Aï!Ǽ¦ß˜ES$ÌÖ)³ÇÊ8’Öæ#´Ô=]ÝÁÍL}aþ¯õ·Ãú‚÷Eæ}ê‹ã¢µT}VCk[[}ª•ÈÈa< š²¿Ë¨ ¢7cN»O™@Ž‡¤tˆQ{PNeÜßÓLT;ÂXjö?Yú² ¿@,ìû¡Q¤E·};¨‘}l9ú-ÃÀF Ø¢„“Ð £°ä¸ÎxtãOf%­&V’–úl1IóÞ¢p¤€œÅ/J¤Œon­“™ÿ¤Ä9’ú"BÛX— yŒÛGÖ„ eîã`Üg&݃RÕcø R>Ñw({T‚8£Hf¢œÔzTaÓ'4ð±øaM€ã#B-á{]ö[e2ú®)å¹ Ð•c <÷à99~ :³Ÿ–æÇcRŽšty‹)„Ì ÞxP|Zckä©ñ¸Ñý“¶ ½Û#cBçáéÛ¯“¨þíã/~Xƒ4«¤Î§oîNÁ˜Ê"q?tyËñ3}«¶å Nû  fr®ñ L@!ÿP›ÓƒRÍ òG¥bÞ»5ôÙàC˜oºa"àùôŽ)M2q<œ†>zC±âdTð=&!Q)¡@؃ÒÃÕÀ:2 » j#z#Ñ9úÜí¿Á1HäIý(˜¤ð}Á¸Ç„lG,Lså.èk/{– 'Êc\λ̠S `e>íÜ=@y”-¢¥Ò‰5³³$mMë`ÔR†ö&}L,ÌÎ|ÊźáQ@)á2¥ü-(*Îu¸¨û¶+To³ÙÞ…>àf³ a¾¿8¦«îÙ¤ÎG‡ŠöQíÜFÒ|{5³Gôõí÷{d6Ú¬‰Eoz=ï÷RðÀÌ+$ðendstream endobj 634 0 obj << /Filter /FlateDecode /Length 5924 >> stream xœ­\KsGrŽðÒ˜›g"8­z?ö¦õc½»¡ðZ¢½¯M`Ä@@÷×;õÈjLC¤­ÐAÍfuUfÖ—™_fÕðÇšôFáåÿ—.¾ù>¹Íátñã¾øpá³7S ð|מ“ÓiÊðBõÇ›‹?oî/ôæ_jšsSþwùaóÛ·8¯‡7SVYoÞ¾¿àõ&éM4fR!oÞ~¸øïívjR9Ĭýöxv:Ú˜àq¯&ŸsŒæÞþáâ_Þ^üÇÅ›”ݲ£©‚×SÊ ,rГIEŸ¸ùç# W ›NÑOÚl¢Ov²ac­sSJ“á[6×ï×€qÆy'0ÊL:‚aòÖ%ŽÏ÷óÝnotžrvÛãûúl·?<ÍO·§§ÛË> n8¾ú8?^ïP»o¾Ïjïƒ ¸Ò^ƒ–>¦Í …滂5¾Ýx’Ý>ƒ™Lò.›ía§'¥“Ñå¥3!lOð¨ULÆoŸv{ëãdtÜ´¨VÊE»Uø¬rRÆä­^û‹7øq˜"|ü_;°cT*lbô,d“‹N®þÄœR ÛkžA©¸µ0"-}Ü1Å0€Z¿ÇÙr@“ Äã3ͬT ¶Í¬‡™'2€Ô6ÔŒhçב:X¿î3Ì1­Üäœá¾aÑM6m J+•]žĘߠNʦ¨·ßˆ×òù# Œ§áqßL€¯´ÆÖªèýW2tÖ!.¶¹-?¯ˆHÃu &Ö=¤!ïqÂìÀ‡ÑS\Ž~Ü×Yå+ò²”éF¾WSú^ ñußËf£·£ïeœfTâŠæ-ù'\ÞåœrQÁh ÖqÛû«çË'Œ'9ª`¶·bÔýÀŽÜ~W°RFL¡Ò*¸Ä¶ðð¬X” Qiÿ--ÁŽÛ{~í²CGàÙuÞ~·9jSPœ}T~˜úÄ«GXñ–¦ &mïk pRoã:èN!à{v­œl*£G+¥É;]ð:€µ}ê&ºaA@lV—¸²–U‚\%FNe™B³kÆRŽ',¯g*ÙDˆˆ7§ T¤íññu}ö:éÉC¢€¨9exÁ?í¬Q!]мYãöß*Þò·]0€bKÛ¦2h ›u ­!t‡íKõ`Q˜ß{C‹<£±›½3Sp¡ß?ï²…éM‰`Vk Å?˜Õv#«K Öê#X §¦Áñ”ì ï „rímMƒÿƒB \‚yÃOàsObæw4uò°©Ñò€¹j?öA¬ß"CTÚÃÿ1ƒ°zßÑÆe Ùó|"ÙÀ¬ÙZT¶Ò4LŒÂA„G‰['Ó`ö ¤„\é´£0b­Å·ÿyO1=A¨–_ý„ca3ªÆ<€ç7ÂÌI¼¾%/2. 4ðÂüú©$™ì[ÈÓæ#Džß] %Œç ö1ýw?¬Çœt& ˜˜AÁ¸q€Å KÌù–åƒèg·ïh 8ƒ?ŸÜ ì’I³l`¶ó¥H~bLÛ*I ÁY`à×.©Ì[õVÌ{Có:ï 6-„î´}*Kz«—> Á‰|¶<>‰×³“° ¤â² ÆhsFdÀê*ôY„23LÀÍÁ;=$à{Ûù€9È”Wîc)Á磫ÁWà<˜Î)ð(¸j_]‹ Áøª Dhé¸B&‚R¶à¾}u)¾z¢hîmôeÁ ÷}Š:¯&F‹àë1µœ-?$1y•çþ–gåS*kS‚k‹l)¥‘^!Æ祅øóž ÎF¾'J†á»n¹O ZèÖúŠ" <[˜‘eÒ`vÏ´Ä˼ý‰3ÈWÓù W9–09#ÉÄë%È„q‰r¡`œ6®àÅ‚Ì+ØB9ƒsìÊ8W†€á|‰"}‰ê A‹Ò£å„°[mÙ|Ñ…ÌÛÕ‰¾ì®µe„’ù •8HþïÅhÆ!D‹PmI¯9ÙSv’"émw6~ ñ>ÒÜELÅ7‘‚­"ºþuS@@ë³PÀrrìMpÍ:AÈá“ á|Tbûçá°mÙ ^Gçe]3VM’Ÿ))XŸG/à€€v_lÄK]ñË ƒŒ3óy_=~è Ú) H–QÑû•ü{œ,Fp—Ë…iZMòDr  5à-"[™â®[KL±PPúç¾JYp_rˆÜ;ìZ¼ý8Ô ÀZpóÜd‚[¤X$!{#¯ß-áöôwéÂE04 „Û.}憲‰*m~Ž26¢-+ Ø&À-æ>öRq;‹½920ºQQrd –·ä—"Íïú6£.3™$oÿ²íp?-âx­¿Ÿ›-… Ÿ:ò÷¤.DÇökE7šÕ‡+ÑÒ£w,F?—Kd[áš…1n ö&•4õÒpcîÀ}‹ŠŒ¿ìÊjÙ- íÚËPÃè-ZÀà¸=‰™¯» ÿﮃ뚃ÊÆDl_´³ÄwÄrÎc€ªÏ{Áœ˜Æ‚îãðÃc¯Ü¯»ÕO#<Ú3³e[°Žm/¥K *ÞÃN RA1ðIj×'¹îÛ€ÐËþ"ÎÍäZk"¬rxÉ0P$9¾Êa5—d¬t‚òœx^̉c̥מªž¾ƒ V‰AZìp|á€ìËØiCucr¿fP(Ý5V¢³Ø|_µPà:Pxëš, ˜4:V·‘ß•¼N=½%a]É"Â&/Â~Yoò†P¢ W‚·Œ¶' d Ðð7ÇâºúÛ§]²X ¡3El‚ÿu—P+ppžS uÖY7Jêt\p”‰Ô€¸Bò• ™ª|üÌ&[ü7Åhp“¡qàÜÂ"p‹Œÿo³ %]ékﾶˆµ(hZ_zÖj.#¤²d±Ï5Þö»lÅ(X~ˆä/×åÜlѯ¦9ü¡H”1¬2½±\«å®{Ì"£³(»†+ÕïçËy¨Âæ‘¿“²Ñ)&›b¿´-l°ÕNJ« O —D½’Ù*±DgÏ!ŽjQÄ ½Ö¸ø!¶¬8ßâÔNDÁŽâwg]E(¾V$,$¯¡©A/G‘ìÌ4PmeRÖƒt2,ÎN ê{lmöÆ3# ¯þH"X¥¹²Ë°ÿ6«Ù¹â*'*t~Õ¤O¹ž¦æBàËÛç=c8w€ã€Š{ÝJðß”ɱöärk@€¶ ã|È«0¤ÚB¯&‰ßQ@€ÍŠ$¹Q6øæ¾$y-µ—Ð%aëMAŸÄpCXH#1•—á:zT ÂTrí¸óÍyÕn»x?÷Gy’tÅt«¿ý`“>ä+¢ ¨äðšÃ¦7¹œ`B’ >JôJIZœ)+ãó06Õ¬)ÃûdaÌ° Ü'>%Uª°Bj1®ö2Ø KÊ#î«ŒÒòð­Wøº åkütØ[tSÎ(ÆML¨’±¬æ ¾ /–ž/,Ž9fåœá,ä’â‘¢j;éÃã=ø;ºTPŽ÷ê_=Þ3í ˆf8ßsq2Áo ÏMÆ–ó=Z Öƒ^Ñ5‚íïÉIõ‡€ñœ!ð—uá[œ½2ߦïx¡ÿÍíN¢sà`t»0úÄ^‡@)”®¸*UYŸ²%Å2à®Åkî¾›¬LžÑó%ƒŒÈ©¼EîÁJ6‚"b”é> ƒ¹\@*Ý5//è('ÈkGÀ¸v¦`JçÑcÔÚÒ”LÉÖA_æ#ZÛ\J\MÁûoþµû@ço®(¼ Ïl`3&íË… ºÜôG!±S:þü7²€¶~áXÕÙÏ% Ð+¤ME¶ÁCwˆµ:·ë°y#ØÕ§ÅÄ£Ž&MÖÔªu yÀîÞþµ_åù2CYÔÉ- ”–”ñ¼} È dûv‡îíC°•ó•ÍE6iuÎ+áï½LÝ9«©~Ý‚Á-àâ<ºçðV_-ô0¶4Ð+]œ…÷±ŒÎ* ±Š‹Š¾aP¤ Ìf\6©È„é¸LË/B&(eÅÜŠ:è‘´äs¨Š,óá`ÈÜ|¥£’bõNU ^XNäÐÒ‹1>ãû 2r2Tȱ/˹ÃËhà˜Ä™‹«ß÷Ç«: 52yw¨3¦T’ªèeL:ñ—˜^g‘hÂ85NT,^Ïå覈Ø藺ۀ¸×d¶/"- ²ß\yb—²:¥A™Zã¹°pª¶&šKæ•éLÈ(»j‹ T¬ˆ;SJV†«›³sü’ê²ýZ¶x?0)Pbö‹d†’ =嬳d}È»þݼÂh—À0—ý5÷ûŠ ã=¥;ß{>-j&À¬ÇÄÄ$ÕÎS*Â!^Ñ}Q!kŸï1–‰O~@©Ì,b™YD¥KÄG¬ÝtgXÌa#³Gá[í:• Û¯Ä˜[w@ÇòoÂâö”ÜþC9Æð:•Ã3Mù~ágøš‰}ÿ”•<¹j¿ÛÕ–_ ×+ û»xÝÄëóÑ´˜àl<Ë‘ß G›Rx‡Ž°¿€‚µA0¶ZODèk¶$DËr´¬©>wKf2‹/»o —âÆLQJ‘»>b~ä©£ÊbŠãC÷ìóÓ±k=È5|i„s5àL¹&“¥²<]¾’]-„äí¼¬ûŠÙE´?ˆù„+Z¼É9$˜âh4‰ŒTœ=$Äax¹;•ôBpž`¬À-…õ¶$ÜyŽ`À‚³,ýJgƒÖ|QŠôJ·t “øÛPóW¦“YOY’Á›ÈŽYÒ¿7ÑZþ¶ p›Ñka#ýn¸{ýå„ v`eIØr¤»Y¿V1çX{ PÊÉ4 ¾CcŒ-Tab“gؾ™¯pY¯Íj,DZGMUº¤ˆ&À K‹Ä30ª“i‡J\¶Š«©_XœŽîˆô 7Ò/Y”ÑÑ°G¢eéhÛÇ‘ýÔãT­²_$Ž¯;Eº??âŠgÆ6×|âù°šù5:ŠôärM*†áµÌ“MSðv¬V¸Ílt‹ÐÄ*‰×m‹8½lpJû <I]R-ÒÃóùbà'é -*ñ€à(YNĦ crµ‡ÆÀ¨vó©žús‹eE‘f;[“ä'~9– ÒȃÎCåÍy ªWoúE%ÒÒô¿¼¢Ö%0Rãèe`ä2ü|¡º`±Õâå¶yÄM¯oVšA×k´q‘ËXבæŽsíÐIìÄ]][¬‰´X<É.5ßßšŠWU\Ù·*€òy5R ü:w}ç²Ùñű„'dåî‰7¬b$åÑÇM¯˜æ²™)A: toB¦“r#Sû~Œ´ìU$d]bxë+•y*HÄÍÜd½Eß`"}ÑŽÃê÷ßRîÜ'¾}'‚ýs·ˆû¢Ô?o$ŒkDN”{ѫܽæɼð›+–»{%eÖ½NYöæ2Ô<ˆÒkÁß|ƪR¦<ˆu®]d¼Dhñˆ ò©Š­Fm~îuÆÐyz؉êe:¡""Ói\‡æ5¯‚a¨\‚£Žz;œéçgšZ6¤u„>™¾UåÖT1Ñ(B!Ê~¾óSë Ø¢.å¦ •KtŸi\á­ú-Y#°,)hÀZ?@NFÐãGÑ䪬†äq '%#6ŒÇÌEG<p20*ÆW´ãùãqy¬¡02aÑZjýõ+þ*¹²È%+>-X×’d£°1»&(Ú™<ªÔ¥=dËæ/.²;C' S9XM½R÷vþUvé=ìl½ÃTèÉ Yé¡ëV¸šwzh w"E­W´¿]£ŸsQ/ÛŸ{éóI8®xOûŠ,;Ååª'• 2¹L=.¦]m‡wÇ«``Óg[DâZÎ"÷,:ÉW"aèB ÿQ÷bgi•!'ÑP„â oƒ2¯V½/Ñb÷™a–š•«:ô3‡ÿƃ(7Îm µ¸zoiAårE ÕÇ‘ßæW#=쎢ÄJòÅ?rÈ)ŸÕõxÇÓâõfy‰¨þP=PdO ~¼ÐZðvh 1³‘eÂ؇*{ͳj=øãÙpvâÁ˜CÄùËpùHúÙqÙ¦­Œôª”hÚA~ÎL_²“ÕI^u“ôŠî¯@I—ìkÞ1ÅÄ ÄkÍÖ—¥±ä—-ÊèH¨”¥sˆ+pó Aú,NSçdב†Ðç½Â3눧YMN+¾·Hè8;vÐWl³Ü³å±X]»&²Hâd×ü˺K槒^iã/õW:§+ÿz}¶¨4ÛŽ[™_W:zW} Fu¦óLq?¥ä–w¤BÂ^öà}ÊÍ6˜6Ö/êЯ“ýâ«¥B ù‹AüçXr+uùáqö¨ÓçøÁCjCI^rD#ÈRt±y„gûßúõ³ó%kg)}WúÅôkC+:'¿Ð¼¥ß½à=Ó{ñÎk¹©ôw^Ë/`áóÿ\Ë}I @¹¼éeÆÙN[ùõ)ºE}„‰vCOç¬Ê#¹‘¥ÝgF’_, ¨e‹ÿý/´ÅÖ endstream endobj 635 0 obj << /Filter /FlateDecode /Length 6426 >> stream xœÅ\[s7v~Wªò¦öa«§Jl7R)zãÄQlÇ‘äh+fFMÉ&9ZQ¶¢è!=ç‚0ݼDÒ¦ü ¸‰Áõà;ß¹ÙL£ÚLø_þ÷ôòÁ£Ýœ_?øËüpùÀ%§Çà¡|QÊѪ8&ø0ÕâËÏ6Wðá~©¨ÍMþçôróÕShWy ŸÆ4%µyúóîQm´N£Q~\“q›§—~m§qJ^=샲t„ò›íÑ4†i²q¸‚¯&ڤ㰻أǨ԰ÿËfô“žà•×. o¡¨¦)LPËS :Nzxe­&ããpm›óWÖÈ*§¢JíÔÉŽ°ÿ z×ÐÿÛ­Ðk4û­öcœTvo°¹dTÐÃYmî?Ÿ>•wrtÒ£‡Í˜6O_<lØ>ýåÁ‘µjsdܽÇÏ? ±˜š‚5Ù_Cã.êÃÜx²ÁÁZÁ@¬R~x¾=‚¢‹&A¨›¢wF.ë9Ì*êá;\Ý šÅÉaÅ`Äñ¯ fb†ãâûîêå&íq¡ر4üíâäMPßhœ)©¹\º8ü.GôÖÅá·ºŠb@8L?Y Åß±.l„³°)X!ÅäòÖ«5ìN.E;¼ä¼² J<æ䇓¡Šž¦éd+öy,Mòf„¨šÝ0q4NónüD ¤4”·öƃQÃÿ‚Q„áÔ¢Â+’áÉ% ›Áí§I6ïÔ`Áçæ¿Ü9›`û=¯i¾.¢è— *mBÈ C+wM«" ø‡¹èäàëéÎóÔŒ¤Î,œn:ÞãDTp^ ,à)j«›fß‘<ႈæÞlabF)ÜGhX)A [ÊØ›½¬ÉÇȧBˆ,¤yŠµ'Ñþá`©qUA¸Ó¨‚Ù)3Âj^Íã­¶°(Þj„¤µ)­$Ý\Y~Obè`t´€pT´1íºé'0…áß·ÁãZäqúd"Ë®OÉÀZa J›FÚYSÏWؘQòƒ®Ÿ—à Æqâ ¨ “QÍ ÅnTLp h®eE`¨@«vQf8–øÇ8â¥Á¡š”V ü‘M0TÝêY׊WÁ=ÄV@Ä£–`)Nü•˜Ã \*XÊØ!I+ma» $ï®*ÞÒï¢ö‰»››¿«wœ× õÄ«}K'òë§þíŒÔÒ››ÔX\Rc&ÁoµÝ$À¿¬Å^¢TÀ~FV@‡Å×T„£àÄ—â‹Åw·ÇZ¼¬Å³Z|[‹»Å^ÕâU-^×â¾^lwÜò1LvÞåc#‹ì)ÕóÖ¦ÜlKÊc¥âb#n í¹˜7@)8ãÁn|²c Šw uPØPÅÄÍ‘Ö¨'4(Ér Æ)Ú½|~èldü–Ü@*Yq"@&á#ž á›Çâ°?äïxNä™ýäÝ#Jr÷TY÷WŽ æÃñ#B«ÀrkÀå+BGØèqO J ðäùa8ÍaW©S‚‚#ùˆåÎq ßå.AÿK]*»y±Ü §JÚz;€Ö¥V,C§‘ݹ՘:€¶Ecþ –à·ºÏ+0_‚âóÍOQCa  urÞ7À/´® _èûÍ@§¹Ù¬ñ„Ev‡ˆ*#‘5rš@êäSÏj-0xV½ ©˜þÅ“j«XY°ã-¨ôƒUq1$ådÀ«•ƒú3 l·m„ÿ_gMè¢A”©qiP0¨‡S¼oã)ÂÕSÜÂuÕºåP9j° J+Ÿ—•VG•ºkb¯š‹ýî ¹Ö½Teéí¥ªñ¯Øf;ÛbÆ¿,Rz–ÜâlÊÁÐÓ­ð=”fq1}D„ir'‘•ؤˆé¸X…øÝ÷ò‡Y"l²+0ØÑ©Þø£tr’h Øž£ jãŒGSG†S(Rðv±øº¿¬Å/‹ïn+Žµx]‹»Å¯¢.C9EwöµxY‹äИQ»ué‚Êzª³‹ŸÆÙ£ÔÐ ¡‚"O>NÐrMÍÁuvµâQrÈãONf•ÛBÛ”(h“O^O—Ø1üV|ÝÕ“·˜;aÆ  R~¹=ò¨Pºφ\p™ ‘áqR|€ß5¤ Ø4›ì‡Ù#1 ¦] =SÑÇ;=ÑÎ=€êöA XA‡™îô­Ã™Öwlæä@-Ï•_WðÚ±\O» t®Ï°;Gî *Ä`ø½7jE\=FkkI~,ì8ùAÅôÂÙ4Läjijÿô±]›Ð17VÊ('Ѩ€ŠbÜ¥“‰ nêy%ƒ…E>ý©×âq-~¿?¢.,u@ÁŠÀø¦Eö—Z<뱬GÙq±Ñî¹».ÖMÅ]- ¸üu±‚hì¬ÿnZE…·²±ÜlÖú›àP`ÎÕà£:k€+-ÿ=¹GR9e#WÂÝŽ\?*š×Ü#ÂeÜzJ¨Bc˜æh…›‚<“Â[óEÑt£ü~Vî!WPáÛÆLÎafÄeylw4 0ò+Sû–›H‡ Xæ>á^téøâôøF,™ €€µ`XSò™¤£èD™@+Âê‰p-‡‰É«%¬£‹J _ðϦè:úëp\ÖµöU1ÖÚt*'ß\mám$¥\ãt-‘ß«¦&šxè¯FJ8ÙmqA܆83ë ƒŽ°¸–Îe&¿y³5FJ–:áàE¼Fª%ˆŽ2§û°¡¼ æ5¡0øŒn±&ðT˜ Â µ—‚õ&gù”ô œ”^ÁݯTTƺƨ+ÎQ;bêó8Û’Óä“&šòê~U«ç4£m&ô°Óú"Þ…0ÿ¥Œêaþ8Å&Ò*Oe! \ñ]´ò‡ßÓ×Þ†t;:F9™–±¤ONŽ¹Ÿï÷LrœŠ–“ñÀ¼º¿Ï] öWDO£i=º¥”ç>@™É¤©¾×"©ÇèC>Ò¤:?¾2Õ“ MF#%P\¤Ø'P¢ lSÆñˆÎþ 'µÉ’YÊÿ|]‹/…UÝxf…s)$²þ3yRÉ¡!X¿âœË‹B_Q3ÏÇÍÙ•‡)M¶PKð":7g£°È¯özÀ„Û38"jºìÙ½bdª8äܺCÎJ'\ÔæC<ôÈAµqÒæã`T£) ÂÑÀ(¾QÝE5Ù$=ŠbkpøTÆÝ3¨Ò:À<•µ”Çpr"¼j"ØAð¬f_‹V„ýŒûEÿø7ìßÎI+ñ°NÞŸK㛣*Auá˧{0+ D•Õl°½\AÈØNùq¶cŸ ÛqM<¬¥…s¶&H`Ÿúü.'.ÔÛâcîL÷ŒýÒÌI˜DÌ99Ÿá}*‘ã,èsr:ùÛ‘ôÈxд¶ó†1 æ4×@-·+¤/^ø4  ÑZT‰(Ä'°á)‰Ã¨ñ#MuØŸ¥·OÁL«ŽòsäWïTHd?lðó…ƒEÀ+òvZ"I¦¾ì›Y¶2n%ŠÑ%6ç ÊûyÝ<ó=éTé“âÐQrHuS©ì ¤Ú{Æ8ô¢> îõÀWCÇEi· ±?0±Æú&ÉøÉÍ«a`‹¼ŸG¼-X°rzLêEíAó ¹>dñ¦j³fôÕ)Æ8 ?¾=‡? ¶~ÁÖ1å™Ø‚åL‘àÒZ—‚ˆaÉaæl£Ã»°¿‘„8Œ5 "¯—œq¾±i®É\·ÔœÚŠ`Ü\\78TÕ{zFêÜ}z4ÀæÂH?öz ;”zGÑ9 ‰H2VU…+Œï…´‰Ÿs‡Ò(B»ó=ýÔ#•!’oaòÑ‘/ûóùaù`}ÿ*nÀÿc˜âõâ×›"½?ï“]ËãÃÔJÚ._ËHÌXW1-S$4–vo³›Jc¬‚rÀæOtí¡ä×è/ödv8îoMv´Ñ‡˜z+ðqDz X Ö¾/ú³Ò¨IÿŒ¹~ ÷.rVgŒŸ/®‹A¥)ɵ2‘ Ý<[b&b¨ÉT+ŒÕ×7Ã#]q“>,Ÿ4]bmnWÍ“Swø6 ÙÌId2J‘2;|ûÕAËG1þÈ@êþ¢Ú¬"/E2x•P Yu9\9,ÉY÷ÂëÑ{ß´h­tUúßþœï Sï3Dr¡eÍÆh4þÿ¹ ¸®Å&@pËWÑÂgï¢oFûf±úènTTåX9[@i²Éa´m3SPäÀ†A©ò1plP„ñï`Á¶^6À<¦Ú½¨}סÒ%/ë1÷Ýö¡á’{YBÃ7¸ý•Q£åêÊÁE)‚’3åÞW¥È¨n®JIÃV@.Ðà@€Û-´}_ J|Ì ÆÓ1MG;̽õ²á±aP]ÖÁ™Í#ÁUWz8+.®ØV1`dy/×áˆøëŒÏŒ)Ÿ³!¶h&â`?x·MÞÏ÷ÄbCÌ/órN¦i÷e­qÆ5¦I/éIrÿ3ëÌ·¨Èc0™1¸¢¼ëÊ0ÓóÖMLâSÙí7šYxÕ; M4_Ä’t[¤–5w«ws*°•1ÀÅ ÙÖeܼßíM i•S9Ãâfê&ºzã=ŸÕØ‹ Ú¥{Ç (Ÿ‹?wgÑ ]¢ýÇ@œ¡4—° qe!rݨÐ×U›8?'¼ã )˜¨®1_MÑuXô^%ÛóL•!Žu5Fͦ”݇ÿˆTA¡ñ#ƒ]Õ]ÕŽ½¤Á^p_6¿÷/b¤v/7àš‰ùÖ?WhÛ¿ÉLª‰Ðòì"¨“5o$›^ä5r½©—sî˜ïÂÕ›rÙÈPªpìB:´œÊÞ÷®Qçî›Qá}ã×c?¢K¹PÁ•ç_¾Äs©èÐòû$’|±›ü–yÈ<ÝfŠ·ÝXä©w##-iÛçk™È8¥Ô6ùÜèf“72 òñµå…M)ìÇÿU=5möR÷[ `¼ÔwÂá$Ê:¹ˆ«Ú8;ñšH¶p~VÝ%]+õ ±l—T4Kɺ÷‘ů…¸¾ .šÊö¬8EÈ%ÅJÊÛ9•”ïºö¹¤Íícã¢i>õó¸oßùëiˆMÁÇG°LÁ FûF°¤-FôV‚ŒB“!8Øȯ‚ák[)iባ;)ªK´˜É‰`Y4ƒügâ„·5}Ü»&ówN˜ƒx…jV4æÁË%ìv{>[“χœ.ú‡K꽩b]qª¿žôJRFャº3}«–î¬ïò«:4–¬dK]› õ¼Ð‡–ºK7˜XåZá­¾ðX×|‰Õé„÷K–Þ.1Gá.o—àJ§6‚ÔXÀ%QZMt‘ów³//³\K™+ÝI÷ƒ, º±ú4H]ç‡l|øÔä¬tï–àåf€i|·jÔê»%…¯E{ïòpI­}Kú!Þ7™‚`>šžls,^p·äïE—Òíàÿ3(©²„zœÀqÅ0…êY=ÉÍC'‹¾Ú÷ÜQ€%û#7’4Œ÷R‘‰Lƒï,ϯÕ7-·ŸÖŸ@)ºÖšýßÜT[zóñàÒóÍb¢‘6Zéhs휀«‰•"AYÜ6 =güf#l*'´+ƒ9¸_oéZ²WmâèQׇŸ­ƒÁ[ß'D¢õ†_µ‰ÄGþš 8t“ŽŽ|-DˆÆ²šºæßÙ©}ÛkÇ\’.€µÊ)¯ çsb»ù·¢¦xtYXðÂÛÓ\K6Àcl“ ˆÖ±_¢ ‰t9‹w½p‹)ÅõÂÊ­©‚—‚±6³‰þZÉy.îË[@= J§ÆÞj”ycpd©¸BIíÖwζãiµ>£)àüŽó‹zÙa™Ô‡äîtÜñ»] müà#¿ŒCï©Ó L¾œ1IÞ/XkmÙµ¸{ÎÏD€rÈlŽ1à&/"½‡;ÝþÈÏMÑÌfWÅ’^ŒK Õ/O_ñŽ¢×D4bEµŠÏÂÞo_ ÅÆ‚*Q’šÚ½@ñ&‚;½uˇŽWõwÑ3?Pk1½²ÛÒ² õõõn=ЇuRë¹4X¡æÒpÌ2G\M¦i¤x|ÎZ´ÚÒÁuà9X¼û&ÌÉÃQ’?‘ì¬ÁmÛÛÀ¯¦Ê‹Ϫ!˜kòjä‘Äsâ{kqý´aú‘¥T|ñú”ÐœŒ1Ó*8ZꆳyHJ, 1¤ÏæÆ|“dÓê´ù¡¡ ŸµÀ´­0¼Õ4¶Ÿß}1«&™Ä]öÍ)’cÍÍÇU·…¬Ì9·É¢©-ø _± pËb2HÎ>ï€%ä 󩜻ýÅ×Ãl Rüø_O‹ó@«åÛ®âuØëÅÆÄã¯ËÏÇrûclÑô¯-óM@Š£‰»„¿×¢H-ש¯jñ㎠˜ÅÚlz$\Z ¢SËøßÿÈ<ê“endstream endobj 636 0 obj << /Filter /FlateDecode /Length 6393 >> stream xœÅ\Ûr7’}×Dì70ö©:B]*ÜEì%{flË­$[±;܇IQ²x‘IÊ ~ó‚*$ÐUMÒ—Ýðƒ¡"@áròäÉDý¼7ôjoÀÿòÿÏ ü«ÔÖÔøj`éá¯ãܼ,]rõzu×F»Þzom\¡%úѳ48«`ПÄäá@ý0£Æ&¼ MN„wÿßv€‰pÝjC뺇ü&Q>¯tZŠWج…Ÿ'‹+Híºhº¯ho‚êžäyQª;èèyr1USwD+sk¹Åü¸§îµõ¶;Xå…ýA­äÅÓààoÐjÔq°~ƒËbr<i¨f;¨9møbå/WNAYÁ&/[ÿpÚâ×b¯Ò\$£`ŠW°~ù+Ø70|\'Þ}>E Ks¼R´ïB4ÞTü` „:Ûí¯´…íxãèAÁŽ®Û†é‰v®cµÔyJptFÁ¢çÉLƒšf£Á …Û5³Ñã¹ J¡{%šÞœ— ÿ—ë¼|/ê_Й6éX­ææ¼}îç¥öAÑÑZ›vQ {k˜A•œÉ‡ã3‹ ÊTwZæ¼9Ö»ñ±¨RµoaÇ¥¼ã¼òJã´k;8Xå]WŸq"bžçK:?&h× .£Õy¯å§´ô¼²sK¨#NiІ„hMG[bù6tnpÛùa÷ÄŠŸ–ƒ÷¥L“\Ì¥†€ÃrøºÏ3C—ãM®×>Ú îÄimö§î•òÓË}*ø¾9\i½jÛ}\9G#¤J+ç£û+Ày õéÅ.‹- Q'@ ‰laØ€K¦Ó½ØÊÃ&´)ÂX]÷ÃËrŸÑk~ýúÁ>€öÈö^.›j|™[mj÷| }  ö?áHAÅ+Éx»ø©—â£ÙâÓR|YŠû¥ø¼ûŸ&¯z›ÜÞ@ÂYÀ̼`XÏ[›´ÖÖö9“‡›hsçâE)þTŠÇ¥xXŠ×¥Ø϶ Ú=)ÅG¥(Æ°™íâãlnÌÅ8ŽŒŠÿQŠ—¥x6[÷º7b7Ü›±Áaêe8=˜yÞµ9[+„&¨Ãg/Š°â›Ãl‘ 9Þä*|{ÚÍÃàSÞñ °RÚr´Z1‚Õ±Š°q]ŽÞà#8ï~Ć&?c‰´æ¡—ø«çÌUvä+2QNE¶"XNç7ßaZ`迶æVi?xâu0 @58yÔFŠ· ƒ;ð¼Ï¿‡Ù©É'á° Ë0ÔfsY,½€ „Äz Iœ„‹w\öƒªáwšBöÈ:à@Ù SØçkF¨L…䮸5$¿<Ó8eˆdÁÎPQ×}Œu%î×ô™§NáZ㾆 ökÄÙÏbÑÞNü[씋ÞPÏÑ þ!ë\4$zúTÆ–¤¹ß'ÂìÑlÂiÜ\±ý‡ÝÅ­²lSì¹y"°µ“äOû¹µuy°­3Ø“|Ü—Ç£±kȦ‚5Õ㬾ÔE’IÁí„£õ¡¶Tp&à*ú(jð¾bê ï&y Î8ƒðŽæJ…@gvä®Ge ʾ¥f£‡Õ—‹±¯fÍö`z˜ÅñŶŒ¼²@“5c]=ñía¾iXpm¦*¾Í§>À±×’3z«n lÎ÷†ö vðSèyJÏ‘BØåpGÐh©Œ±¯ç±Œ PwßÈÈi0¡ö”þ…gFêýzÊÍjÞRëüWÉ=ÕŽÜ“O¼œxMð^péhtåÞ^‹iY±k—¢ŠÄŒÍ8:pöåo?ásx¡%¼Á7PÁy…Ýâ›FKlÑËÑJGâ˜ÿn’ÿ}ô´îýgSag…[îÍÊ;òW03&ŽÙCcÍhpô‰)?nHöˆª&iIû¡f„ãt17f`—ÑŠõŽ‹‡zPò‡À‚ÕkÈÛ«²ó”¨àþˆ€ÑjË~ä&TË掼¸P9üí&Ë»þ¸ìúMý¼´ÞS?©À½qÓœ~+¹âz:'ŸËT_<[ô¨ =à$ò͘`#úî]~JÆ· ±r~Íc†Z4QÏ[‡mÄóYÍà¢ÔØ5$Oœâéd€7ó?;DÝÐ5sRÆëˬ@ÀÓoÄòÊß Å`aœò1Ï(ñ#ùxÁ$jìÝ Øâm  —-€Õ»,da‚J7Àš[ `4lHí½@X€‹|ìS ú‹Šˆ „âpý­Xˇ\ÝFÉ…?—s&Ì‹(2­T°nq—‹zòcBa>¬­ U€-ì]º?|U(¦ä£›²}ä+ØÆ€„Söòe|1Öò~øJ ½êÛ2TáƒoСò=ŽÞw«QŽöØÚ€œ`Ï"ÛY6äã˲qEßNùYn8¤T©K™’ŠŒÐ¦iš¦Àø?ÿ–6«[ V¢ÚœÜPpf©¤½kh³—‹ÛåßìK ’XȈ«ÞñÒOµ[iÉ+˜Õ1©QéñÚ«¯ɱ ÍŒs>ñÜã‰X·r¶‡gµ’¦g]?9ë;ÉÁŸ “lróÖ ËÂ<ª,TïV³Þ—]]¹SR#¥æl$ã¸À§¶'Lœ¨ŸšÓ:½dåFa{0™**‹ A£ày±uäÉçx[†zZfŠÍfÀi=,ÞÜN§Š×ÌÎxN°z'–xH÷´„_jÝv’d+ŠÃoÀ†v'ï¹G&ˆ÷j½òªaùô ^üBœl‘ k1µbÀk®¿î¶é3=^ðÇ2âá<;‰‰ÅF<êàPÚŠð0º%5„E¢Lí‘æ¸:§-´Í  EŒ¢±Ù”Y 5¶à)]Fí 5­á®=Åa Ð`ïçÄÍ(°)`cpÜŽÝI®„?p<×K Úá$¾çVa ëb…‘ ÉxÁ(h8äÐ`HŽäC1Öi‹æª€]'c£"2ËB‚­+&"£k5Iè ÙíGLë}ä4Ù9„o3¥4êÅ(£%òþ‡ÈÅIá£=p›ûVj1é²BJE!>.ÅG³Å_o+ ‰öm)~d|*ž•¢~Jñp¶ÂùjN`bì¦OK±/ÅÃR¼(E¡á>*EUŠ¶Ãl…Q÷#®ËSQŒ³EÑ[š}ªxŒT×Âf¨6E#k§¨Î¢â!ù.ûMܵƟÓZ!·„©4:?ø €¿Ñ*¢iãdʳè{pðiˆI¨qOVƒYÞl“x¡ ±VЗ֢³¬-â„é¾`|F$è¿©¬Ð‡Bi™z¿Sö°Äs¥‘Ýàð’Ñ/ÒIŽ¿²àšKû¼‰w•Ð4«†Š>%ù8 ®Ê¨T‡ÐM8»º"äl൯+_°Ø&"CÊq„6+HG¼ª¶Åþ§B‹D î”É…‹¸â# ò4‚ÿ˜îJbn‹üÏ[L n#Ô¬uR@…鸯 PkÔ ¸qh%”‹¼š(œ¼ìV"( >jPÌ}Ç”yRå²OçP(·[æ›ÎVÖs¼Í+Áº®EYVߥ+£<þ[“öʼn¸*L\²‡b²+5yz¿j‰Qι%µdÖØG×{›î.;¸aba’âáyNuç‘aŽ_^È6Ü8—ýMpV<¬î\ÈÞ^HØc`†FØMÉÎ/tK,w…àÁKúÉBj YT³“Ú½ ÷1±eø†´kóç^í¡áÜ*åë úda"‹óÂĺdV¡=J0ÚÖßNdÍd ”i˜ú0:ïÛºúqIœ¬Ûª9ÉòB©5¥`šøjJŠ8ç±(RøKÝc®ÂîÄ.µeœ¶ZmÙ)0°iÊXÀÃ*GnQœ¥0êïLlHSÉÍ´ˆ‰_zŽÈûÅ$·ào< ^CÞa±’KM†Ã­Ñ0(×&\j‹Ïuÿ-è&¿YŒœ ô:ñøÊgW²z>h“UŽ¸€—¿aÝè­Ë-cÅŒ» <<5J.B7Òý<Ñß_V“0±˜ðFMG`õO¸k u6&%¶&E¡IוsÖ²k•:ËÊ•/Á^ñX¼¶†c"çò/â%µ^¸w•ß'r‚–Ññô¦•¡L¶»,óNùä=@'+gÖnzð‹â[ô0÷ÖjÉ8Œî9û?ìî éAŸ%6ç›1¡Å†C1³BÑ?*;LLò5¾=¼µ¡ > j¬ >E«ÒdÉå“7­¨4œ šL^ÃñxÃïXPÃhÁït#gÑ^›û~ªÛ­* 4Õ«BŸçoÄIwt8ŽgJóð/}®òsL ìvÔÓ`»†O} Rê©ÍV@Q¯„®E_VSæBð %ÔIŠßk°nVÍ™\[²2L?Š›J>”æ”3 ‰I“säKD{[üßi7óòµ‰žì¯Á&æ+ŒäYn½ZÉõÊF‘;´®“*'¸µV&I÷ë7zvá.&Ѷ‰U,öxSßÇV¼(sƒ]Z»Þ?h ãKáÊoÕ²â:¦R½•ŽÜlÊ7ì`«†œCRZ{ÃÃíW aÞ²~µ/îQÎã¿\È„ºÑÆíP3­´¬¿à™SoÙî¸[᡺¿lÉ4Ê ¾öîÄI³xJ}jL­fžk’S|«ÝÐíaqSHZæ©”n8"äU¹bÉ\λ ³"…«>×€]£“»1Êå'è¦Ü.·‰”ÝÐ;-Æ´ý&_Êꯈt %çénœÍ|ŒDê•Óç'ž‹+#¿òC oð_Œ;Æä<£?û×^šÍ2\¥êþ¹¶Þ(Þµ­Ÿfõ!×±NÝâ±°æsåÔí¿[öµÎ¢k}UÉŸu:TéëSáÉbD:Ôä÷ó OŠ€¡kÆc ÷M‡ÂŸÙ»~–àNкçFÉnÖÙ¿ÕâKLéÉDØû ƒŠÒ4¢ã¤[°‡§>É:ôÑl3Ô_z! j”_{§ÛDuf“:ÒÊÒÒe¨óˆ2½TZË<"à!¤;]OÝ…ÀÖ`òÂ=ôµrsTý†›£#Ý^Õ‚»I±ý LóA‹uPÚºFš?ãƒð¹Á$ôDËW0äå9IŸ(»]¥P“*Î|ŠI»­HD×þ«ëÚ ¿­êLý: Ä?EŒ¯h3í˜,ÊXA×R'­L ;?³õÍ#°é~8Û€Ô‡Œ®q%ãú1æÇxLäGi…ïaz`¼ä v‰Šœ¬¯,q‰Z'ÓÆ9¯~î"4عRŠ½¦ã—‰6 âÁJ UN+ óœÊºíš, »†…çË&Ü°hî’+ød¶‚¾Û pX¨qVU<¯®1/HP·P¯\UÃ:[MÊÜ'‰tA¯Ëh¥bR¯Þ<_ÃKYâëEun{PçùÛ-'`ú’¢ðW¾Ó¡RbXÙ#7qHR~l2(&‹E¡Ää‰ P°ÿ oa]òs?ªTÛñàåËÜ"Æ7Alvþ‘ ÊdÜSì&El¿WvlT¶¢˜å lóÌ­R<áûè? Er!“­J,?Ý—s{U8àœÀ.æu[ Cƒ’g$g’.; ø9OP;ùŽ&@k 6‚SD@rÒʪQš²¥ÿðÏå{ø2‚ÿç{/KñOøÐO{WC\ÐW<Ä·yý®/ë‡êQ=³­“6 ë,{ osj¦­­´H>†a"‰,S~Sàð!׈ôí½[>¯ƒ•½·c%µÇÆB¢¨ÆâHpì?:ºS8Þa}ϪŒ­"V2¬¿awq°®½KË€ù{Ãã¡žm'bTL@“ƒš/}`*™ÇÄ(nîžWx@=“|ÿ.ÏÊྷ³9g|Ŭ¹u9üϲFî&³¬¨uãóê()ÕÉ€YþœMzüڦ†F¾ »OûaAF6„´¤ð•/“I§X8E9Í¢i¬™p‘–‚_xpÖ Ã+ÁJ±sxóqÒíÿ }ý*êÆ1C g^ˆ»ÉTÛÓGØÄ9-ÇÜÌ~¹rêñÝjÒv§¾6QŸ'º;û%·­û0–\ì}n ÏÜÿaŽg,a§týg¼iè¢ðIÉ×¼õ.邽¥ÛI@ÈC#5,åw·BT¾ÕÏ÷xŒÜ¥÷òŸ•íšý¨&SJÎ2û²šÂS´­ºÚˆzKW>oÍRÙòw=þ”È9Lg€/»Á¢T ody'ùB"¤ˆ¡Í†È€Ö˜ßö9ŒâÖšÛ>ŒAY#i6D¶äàªí²·]qhÌxï]°FrÙÂƼ*ÐÆ_²€×’ŸÅøŸÍ}ß(©­{+!Ð7$^ ·•à$‡y¯¹üœ™4µÏ~xÁ½8 õ Áˆª£µá"ÆnDÞ‰ ÈT_Àº8Ìù vUªL9å9vžÉòÅ<lÅ»¤•Op.#¹PÛž†øHÀ8üu:v;ê¨ÛzR â`Ô kƒ×š£nDÙïu3¶%ˆ- LcЄnX§ÖO¬N­Ÿö§êScúÚVµ§oùÉ;v¿5œ>wdaa,F¡ï-wu~én: ÑýÀݘöʱlüïø-‡endstream endobj 637 0 obj << /Filter /FlateDecode /Length 6152 >> stream xœµ\YÝÆr~×½Èoø!át˜Þ—û6¶•ë–íX‚À GšÑâ;‹¬±l(óçSK“]Ý$gQèAGT³×ª¯ª¾ªæ¯GjÔG ÿ”¿_^<ú×’;z}ýè×Gøàâ‘ÏÞŒ1Àïóùwr:¨úóÍ£ŸŽ.áÁkxSSŸG寗GŸ?Ç~=<³Êúèù«G< >Jú(ú8fëž_<œÛ=ÿë`šÖ¦˜à…ç§~.v{5šœS ÃþV9¹8ü¶ScÒÆÆ8^ác›“õa¸ÚéQ©lÍðŸúœc4ÿõükÆÉaœñÓ0Ûí³c¾À×tÎ:¦áêFqÊ«8œÖÞ†;Φ4¼#ãŒT†~ ?V6¤z€ú<¼Þí­5cN~xŠïE¥\‚5a¿Ñ[G=h¥¢JÃa/–}|IÂüÍp8ÇÿHJkþãnžê5v“‚uŽw©LêÇ´ð¯nR‹­ Í ÀÑÃÿN{óC’›·§»·ÆA™£½õc‚žè¥/i;T°QóŒœR ù×¢¬qvxF{-Lÿ-mHNÙÃãÖ˜¨iÿë®óüMPa8Às4îONåìSãcÚä†oÜ>¥Ë˜!à)bŸâð-w§q2ìæ.tNád‡ÿN&)˜äí”Y‹ÃÉÉSì3çS³Ëâèo;8<¬›ƒðÏgîå-50.Ðcœ§Mý±ñì[)=¯³.xâ©X%Ü‚¤òð|—`¸Þ÷U4ù=—@¦Äìå”Ç:åÏv,YIÙ°€ÉL‚ôŬ8WU“éŒá”`²°‘õ÷û×°Ù^¶…{m†s!gØfd耳Ãsb°ó^ŠøåÀoIBœ ¶¤„æÐ k²ƒ†}Š¶µÈT9fzY[«]û’ÔBP œƒk ¤uµŸïq¯n95êæLUÈG{mGï²Á·†ÈPÚvF­§Ž¥œÛ"ä¤ÜàMôIÇx#¬1Y“Øë8ê]íA"ÒRÉ?Tmþ}çî,‰˜ ˆÔZjû×øNL·ºg”òeZA8c˜„Sqtï9—20É7„Ë võûrÚ6B\^ˆþ7´0èŽ ¦xÊ35ù·‡ŽX»“Iä°)Nçé®5JK x#„î  5¡™Õr¬sûŒ Ø3ü;i6[Kžr€Ýûêþ­av?T!»jFœ»¾îçTÀ쬃£`ßÄ ”„ îŽË1á.<«->ˆ…‘ÅA…á‰ÐœØjÔGê."[´y´{€6ŸVØÌ®@‘Î+Ö(°Ý­ ãÉiõå²”Á*¬Äš•ÛÛzcë*»­]j¬ÌÆð ðØö1ÞYËaAíN—U ´°~•§u~/ ćºäð΋D0&_‘Ðø%ƒ:<Âä‘„»`eÛ+Ñ…(€ÜN‹5ÙÙXvwÍHª@5ê"ROéiŒÐö¬Îø7aŽîq<8-Påãq0^ ÷ìAGÀ*1úcµš×BxÅ”éq¶9;ž›+äÖ²ù€Þå<¯?ÅÓ…*+a[áŒÙ2W(ÝÙŽ!ƒ©C_W”ó#ÊÇò÷EÅnM¢P‚¶Yˆ~ëgá`^ç)Ÿ¨Ì¶%*_Îàì™ÞQÂw C%„ý}P_ð''Çå%0 ßÒ1Û‚—1=ÌÈ•%$ã㦧 œqö<áá¿ë‘¬º7"l¢7À‰íÝ|ŒÞø7BÀ×dý_¦ý¿ÝÓaŽz:7´ŽœõpõŠ÷̃Ÿpü’8†è›häêáô3ºh'D¸ÄCl…±]@ð£‡@¿„WtLp2Ý B e¾¯z Äô…8Èó*CË(Š„ï 5O´ÁØÕ©K `w«q`·+‚ ‡kžŠÓ¾ó[èE8É»ÝÌ?-Þ¼L§ÁoóyöÛPkQoR–f’8•;)µÆ_ÆW9ÝXZ´k±±Êoj‹3nÎ2ú}ËÐÚPò˜A­Õp aŠô@¸Z»‰sAµ¶nÓDcißVÏHX½â ]CÚr2ÎLÞž`·ŽÕdáO`i‘¯v½'‹jTŒðz º1ÉuŸfÍJP]ݧŧ©Ø„<s~·ƒ†Y‹UËÅÛÆÉŠX5囼ˆTÑAƒb’‚}€IÂð$ù[L†²*mš$„¼m¬“%„’£èb4šÁ¢s„s%ƒPÒ ½ØÍ ›Qå mSN4oŒ‘î ˜Õ-ðüCoÞñ1Ø 0scÆ)tk 1ÿüŽ›a\ò}Ï4ëg û ½¥†Ä%ÏNeAÈy·Ò&‹€%OEð~)®zC’ÅÀ#ê Á—ûžm!èU*hN3âÀ¹¨’ÄPŒ‘Š+ øLqjt£u3‹"Xl]Õ"@®'Åf’ÙÎL–.®^õk@Y6&U?@HœŒR7,Rãê!£ȉV¨!¹ Ä3ãéIý2»§2ø¿Þ5<@‘Õ»,ÆX6Æ8bHŽªaØÉŽ-­1ߧy‹5¦`ü¥5&­1NÑ©ÎÅ({ÿ4k<ë˜ íň2Æ&£Ï7ã&Ÿ€ú‹º…sìÖ²®ÕFÑœ˜˜MÌ5ˆöõ=MEÀ †9üóh"´†e‡ma; “2…5dmF¬!,Ñyã@‰xÈ’°^EðEÁ2°‰ðÅIQÑë×gBŸÞ3s…aþSÞžlƒfn‹–'-ÆÅBºÈñò†i5ìùï»9Ø–êq%% r@¨uÚ¥§-zOpŽ²Åû‰k$ûq!ý`Uâé†VŸî&Ž}£ã/¸7£ÂLµ!± xû,KezIA-œƒqÅIu€È¤ Ø¯“6í²Ð·)Ü[= Ï_Ô'ßkg±"›êI<2œ$ÌB'´Dd+fѦÒ45JVa™6œš4¦…yéh0Hp™x<ÌNI(a…èk üo‘Y{·@Õ'Ïåqá5¤ŒÖ¨V¾Ïä…Å`~+F:Ÿh÷0ëÕP䫱ˆÁ“p+ð×ägfï;Ù7»E'¢vz<Ä–êœ"Áš½­#¬FçÜSP¾‘?A SžÍ–¨Æí©MÙö)$ÀFÜ•„t»°çyi;{æú.üÌÜ pÑè¨Un4Z¸éÁäТ…M„…Æ „3÷É$yÖŒ`îI>šç܉Št³tÕd£*Ïw¤`8ˆÃ÷Àa áÂ¥àAI²Fz3|¸Œêpõ¢ú݇•¦9ÜÒzÂOÖ;™Õ°¤L@H 26øîú‘ÖkŠ§A„¬Cßܵ• ì€ÂrÐù't§³ö¦õª„-i33„K°ðßÊàÉ”Áq]¹‘çêHÇËÎÎ…'&}óΉãu¥z…AbÖ˜Úœät½^ƒßò&3Öú)š‚ž%1WåLÐ MÀ +‹©ã™6ü€b_ˆ[>¯z!mûa"qÈ؆H³´u·ÖìB´3.2”…õVÖ†Ò%p(¦ÏÝF €NkÎï:®xo€4éje™ ˜’Ò7ðƒáÃ:ã™y¶˜Prõ,ðã¼â‡Lí a–fͺCŠ8Ë ÿœ„Ã|hËâ áÜL´vá3¦!ö¸\#EÍ0`çç&/¨8Ïpr"Ñà/‹¹PQëXа˜d‰ á:ý*» €½‹’!xfñ(…jø鸪|úî„Å•(kºløÕ‡ eó[ŸJO@À{qg'í3Þõ>]½Pº¼,ñ…0¨ìáðï()‡Ø;¯óç1y/EÑk*cøf§QdaÓ~¬c|Õznܼn÷uæ!º°ˆRäà³t`RÄ0fN Ë0lÂ"23•`Rs—uhãrá3£yI†ûu(`B7ø«ÿs*‚Õ\½µç´Q.ç<‘ºÓàX‚ å¿ÚÍ<ÎvjszübvÂ*5*"ß`·øŽdÆÁÀèÛ€Ñ+ÖV¦ölÍË{¿#ÃM‰‘é­7Ü«¦Ð°Nöãnf€¶rÎ »ápP¶Ë‚Ïaý5¯(«p[â·2Å)r¥ÀzîRöxDze*¬Ä?Ä©‡oqJQ2JÏÇŽZ’w0æib£q.P@hÚˆžÛ1˜¡W¹²±oÅy"ºÕ­!ëS:M#ä{îú]5ë]2š HŒ±ñÆx;gœMã„ :«39•EtàÓ]FŽƒ0áXU¸¨k–’…ƒ1át^ÕzˆÞ içVM@<Û\?|ËÜ*%êþà ô2ü€¨Hïó]nÍW7ŸæºXcïóõXõ —ƒé)«ø%Â옎‘›÷‰Èh‘Ó«~²Üé—H؃?_"‰²©—ÜCPMm×1†ßѹ§/Aˆ499ùצ°ÄBð ~OËàHZë5OQÚ]²î ˤ§qV‰Üέ~Æ ‚­ès‹>ÉÂYÔヨ±’¼/ú½8U¬™{ÂBBCþ¥Â²Ô­QüóëÒKÊSá3kC“ÏSé(á! ö÷#çŠkñÈfjs&qîdö°£ º3ÄÌ*@àWHURpfU€ÿ¶½Ÿ‰Ã¯Z,Í­ø¸Æ¬Þêk{•bõ®Ü[ÝÉ{Õ‰Fkn@uzmOdBSG­VugŒzrYŠS.³˜t¤ÜÄÞfOÛÃ(P/üRü„5•Y’YŠ J]N¦ðM¹[Œö…³ÿ÷A{Zm÷ª×v¯¸ä‡RnX±d½TÏ’S‰Vµtþ«Ý”j‘àÙ„Š\Rlt[}ÍÓtJK–„µ¨Ym@¿ç±jL7÷®xcàäÓžîÀÑañz¾f#WcùRGôž{Ä°¡K:Òð* åßçY© æµ\ôWœ^Ì0ˆLdþB,·Ô†ÀIM ³qÿ¡`°v…™rƒSvhX*Ÿ£ÖRèèçà™ÄWˆ¡oÊ-eÕ#«ÇÒËZ^ñc€Å·% uœÖžÒ)T°·ðÞúRG@yïÍ-\f †¤­ŠNäfÏM=!ëТ «B‡¢€ â:ÌÂL@x ÆÓÆó¾µEÜo ò\œàBÃitîàÔ… SL÷y‹õ&ok˜×§‘0Ô¸š_rLR꯵¤©¤-‡@ùÃuù''ß5µ:‚ágÀ‘Õ‰ëY×sËõZn`5©ùN"ÅìvT#o8ɨ¢ÈÄ€ET¾!C¯+å!`jýÑ&^ó"ãóÕ|IñûnÎÙm§²)ìêÈ ÑzÉÎÔbL™[eª¨»"†ñÚ¤fË2ûÃeá'^r™$T:mA\ž–íƒÍ‘þÛû*~’å”󻮞äÝnź»µnÓó]ÄÚ=+ç6F^ã~UA¶M¿ª`b[*O54ÚÜ™¯àòƒ8<œÁ”iuK¶:=È©½1i"Xß3gJ&¦óψgf"ðëˆz)ý“%y‡ \Ç%²6¢Qd¡ÿ¨ŽöŒûuš©üˆö?ÂBöMŒ=ãûê,H¿@T½ÜÉà€úKÓ-€eÖD(¢#é7q^G’¨r[Ø<-p*â-Ȧ¸ZIJ¨–V‘«›m äøíg款x:‘¾›OYê{ ð¯¹)×”ÕàNf˜%;ru]üª4‚^MrÊÕ9Äét),› ïsÏX –B2ˆ¿ã¶ê[^‘{§$ÿœžrF’Á×6š¾>v­Æûî„óÚ­0É¡nЛ™g,TÎaÚ¶{yEó•åÜ3e§Aà“ÛF3tòn˜µKN4•–³žU v)æ~¶ŽkàEÃÖ}‚ãuÿKŠEõÒN¦”o@FΖ³#ìÄÿ³e,ˆ:ˆC”Å ¦ÔevS‘&tK訽+—ˆ¥e/ ‡‚zÆc`\w,iFf‰œÕ'À‰’Òœ­5åŒÄŒÓÚšUÌ­¢åÂS ²çs‹&rj˜—Ù3Û(c‹qŒv¡{Ô” ‰¥´=VŸvWvƒ§êû–íǧQ©kmE96@ËÕU”Ðœ‹æÖïÿ®\¾ä.õTÌÕ‚Šâ#P"ÌÅãEä´¼‰ÅêŒ9õõ[ËM5©Á¸ /ºõÞšÍÆÎÙ”Ö{[–š/bÑ·³kö€”²GJB}BJùç!ÍY~¨CælZ¯0‡U›0Q‹ìs‹ =Í%F¯H{%jf_P.¥a¦„`c0 @a‹ñò¬rH‹á¼÷sfI>,ü\AäO 7…›g­÷ j:¶t¹*YXVWÙû‚R£A¹>5:[l 9Vñ©á܈ˆº.ƒƒ“"<%‰wÂÃÛ¨\ìk,‹½þ ~ÎÃâ™üÞ¬iéyßhŽ+çUýµé âº:—79¢ ©ãÙŒV– B‹wË´`µ§íjò §,0ï: SÁéí€ü{ØIb~½¾þî Ú"­ÍY¢{ŠÂÖÜ´/nDƒÕ„€ÿ7¢Ñ*Ib¯LXfh,;a<·ZéG©_ªçhÂÌw3îIüb_!úØÒ\w}âA™1?¤>O°÷z¥>Ïn×ç¹´æJ™Íï=˜t£mè]) bPÖÝ¢'ªk²<ïš™%KÕÍóQýÈO—_[‰¡/Ãó1‘trÒr ®%Zæ\°9ßà¨Á¹e¹•¸7Ò\Bäšà‰ _¹Ï¹ÚóâÂ¥¢Hð^ÉTW{´–ìâ Ö½®ïᘮ\´ÔÄ—5¹œœ½íBßYuÞœêx<:kÒjŒ–7ˆðàFU«CŸˆ³ȇ[¥ÝU“u x}Ëâ=W¿¨ã ìÛ4¿·£ö IŸgH¸HN›¼Åcµ_Ÿâ|ßjå\ ¨Ÿ’Íü=Jçãä^yŒYj¾½Ic3î?.*±íÕL«*F„7£­=Z+]ìM`9U§J•|Ì“ê #Eiìï;ïI8_¯5Ñ"ÇüSé[ò2mç'Šê–;”î/2áC¬;m²bÒ9á·Zs,Òêèv@ˆ÷+,/HsC¿«cßç£3[7±KÝÝ+|^’›*yÅkWòFÝú×b^—­§{üýJˆ¯þP ré›ktõÇrì:.²™ÂÃðY‘¿ÒG5ø «S{5O-.O°U66á ‚MÊÁ*Ý%¯*§¨Ùý™w+“SJv;&§^´»“Ê™Ùóm*Ç åû¢PQ–mÊÛaå”Yøx«6芾bCÌ×·EU²éÎd–v,æÖmbìi}‘,w¦š™TÂK_ÈXxc(™O½”{E¥ðà1?© +&l„KBeθ ››’Sþ Õò þíÖSjñ]ºR)B8æñ§g±h!`-¾úën5¾š·0Š±K‰û:<¶Ê tñd,äV ¹ñq„­W(Ÿ±_EI+y)@."DüXN„àIEÞ6ÇŒ·C5¾6R-wƒ$ŽnulÝ}+,8ñtA׋Z{i¹k¯Áé¼óš(±½Û·r牼é³&DäÅH•]øå»òM¨+hñÚ­`3ka\W|'?tC…á§S¯ún½‹2/PÌ?¤œ y[[2ðùN¤GçÙ\V¡:ˆ¢™ü–Æo|Φ&FÞ¤óöv^ðå|«NÌæawoñƒb1þÉ)€nà »W¯ß"Rê͆ ø©­•@Kÿïç¼øÚW#¤s½e2Àfšû~ æ`šº ªH¹¥mÁÐÑ ßâÄ2ÑWíò÷\zÞ:go,V²0M_ˆxòüÑПÿRSendstream endobj 638 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 8700 >> stream xœµzxWÖöaÍÐœ`e‚ ddJ轄B ½ƒ©Æ½áÞ„»-YåHrïE’-dc°iL‡@Ø„N ´MHHHÈç:»ß•l“ì·ÙÍþû|?<Tfî=ç¼ç=ï{Õ½%D V®›8Áò¯aü?°ÿŽÐë~‘·¥Ø@o!ôî¾{à˜«v¼{_ÔôÚø&%‚#R„„Æ„ïðõ‹tá9ÒqâŒÓÆ8Nš0a†ã¼ ïðžîÁŽ+Ý#ý¼ƒÜ#É›@Çõ!ž;¼#cGÌö‹Œ 9~|TTÔ8÷ ˆq!á¾ïãµ#ÒÏqw„wøNo/ÇE!Á‘Ž«Üƒ¼­›g}]*ôw\âåLQÔæyÁ›ç‡lYºua؇á‹"G.‘.ݹ,Ê}y´ÇŠÏ•±^«¼Wû¬ñ]ë·nÇzÿ Nƒ6Nê=¦ÏظqãÝ&Lœ4yÊÔÁïM›>cæ¬wÅÃ\æ wñöÜ‘½l)j0µššA ¡ÖP3©¡ÔZjõ.µŽF­§†S¨”5’ÚH¢6Q£©ÍÔ|j µ…Z@¥¶R ©qÔ6êCj<µˆš@-¦&RK¨IÔRj2µŒšB-§¦R+¨÷¨•Ô4j5êM¥RAT*˜²¥B¨7¨7©yT_ÊŽSoQ,õ6Eõ£ì)ª?5€H‰¨Š¦)Žb¨TJF9R==½¨-¤–TwJ#è/xÖͯÛ'­Â/ºïè~Êf´Mƒhˆ(Ñ-Ì&¦¬Çü•=~îÔóR/Uï½ïõÑÛŽ´MyÃá Ù›ÞŒìÛ­¯¶/o·Ü®E<ø­>oeW¼Ýóm¯~ïô“õûÉ>ßAì°Æá|ÿ¬«¸<0vàÉwÜÞ‘¾£~§öÜ8Î̽’ø;örôôö ýàñƒs‡pCö ùëÐ%ïö}wÖ°^ÃÆ vdø¢áÆáûGL¡¹~ÔZ^iÛ–f´ÅÌ/Õ êÚæ ùÁm+ØôBUvÄRžž€=Û¿¶Ùìï¤fé Í~m#˜¡UU§>Ú{ˆ™ÞnªÒiò4ZÉ!ÔÏè8«Qhå pZ¡\ ݨû öÀ~8¤nQY.‰¡WCB¶¬žÁF>E6ø¦ –ŠlùV0ó6-R£êvy_î'>ˆº¡ç,6Ð.2XBnÔ 9¦­†*²ö—Èà ­ ¼rêâ…|§uNø—¿Ýá ÞÅ õ4<s`cB©¿~-Ìg·•ŒøÆO4$³ ¤Å?ËIÛ*±f¥M`T¶­òÃø·YôÚn¬Û]÷Hã`¦½ÔΪpð„mà©#w¤÷©Rˆ„d•*M†ExŽ=f‘“J—žP`,ݯaÌ´Ÿr>xC ¬Ôøh-W•Ó'¡<­<­Àf{<§'Dm$ešm=4ÁIhTZw¿][ e«ËÈÎGƒ‘=š„Sµ ”$u³Ô¦Aw•$ºåu¢£IÐ;3wš۶ͤƗŒh¯ÙIî¡3Ïç¿è'æQ8ßEjº^›}˜CoŠž7¼·qùÖiX(y’Â>/¿|®1ÇßÅosíÝ+E7´2_I{%-þÉW%{Ÿ‹äŠÃãG}8ã:HVâ[,î+rVe×KPZC×2nÉÂM3†Jly¥ÌÄO0 jî¡]÷„|ògÑ[Ã_á>¸ï(,À}1ûãhÔõùþ[$æpvfÝÀÕz(üœ‡FØ '*T:lØ`¿´Ê­Ê Ö’Tú‚“ÔUê⼘×C÷ùŸùûlÓù³u@ò¨òT‡’¼¯Õ†i¬Õj.‰Ž’Ér ž x)ú(-´é`0eäÌ´/)”¸Ãv»µPeô§#+ C>øk{¼‰îŒ_Ô¨»Bö¶®t–)’~_™·W‚œhÛ6©¹m¬ÙîÔK> !ÜÔOüìúšÅžè=<­BÓ¾EÄäAv¢ äÉj.qœÀ¬Â›w£cñ÷¨mÚ} MÀÃôœ6”EÀ”€Î AÉt)dË HJå¶ÌóiÜ|t48ˆŸáÕx*žŒÝHº[ñF3cäZÂMv¯.£’{ýÄÏÑ|oö‡Zp~%[î*ßi÷ëj˜ÝšVmTÃ1UÃï›k6KgƵ8} êõã·ˆEâQßáîñó9àî%et¸˜Etí±#µÇ€¹z~2¶Á}>œ6ÏÓ[ß*I0€ôŒ-`7ÿ7³à²‰_iòÚ²Ùùä«l¦DQ\û‘ KmL¢ld³ëšN›(jwhÇi2PCªCl&8Þ]TŠô6á¢T,‰‹Wƒ§‹lÛ2:ËÎ=àÅ/„ msÙÀJº «]Hí&B³‡F 5h€&â¹üÖ¯Ž¬¬üžŽx!ú.K-Ü¿&w*Ì,Œ^í»5*tÝÚa^|egNG™¢ôv»ï¡ÂPwø7ϳxñ¿Ï!ZJ{O°?¯Iô¸0kfÂoã¾Ï‡!†Tà3hÞo¬et(Ńhˆ ‘F$&„:3Õ#D£^ŸÝ»v»eÊFÂI³IŸ3£úÝ4ðÚjB£M:“ ¼ÉvÅyMÔ‚òIŠÂñ¸Èùø’"‡Î†Ô?¦Ÿç¼'1¡²pÑTYà(n"Ju´>+Bc¡zC –0&Q’Ú´Ÿëêw[~@-¿ºôêA?ñ 4 }É¢n4–XpdeKñÁßHz¯æ°¶öÁaØgí‰ô"©%~]þ-®ÊÙl—ÌŠ¾¥ëŒL)›Í…Yö|‹ìx/ÜêÜs=[iÝs¥ÌÀ÷7 Êù!?=`s+J÷_²(”HU°:"`»6¶cR6©ó#!RT …ì]œc»£:y!®Ö¡j/”p©×«"!<5AÖYI_€ ya Š‘}V‚6½ !#7# "Oj<ƒºó;Í‚fÔ| D'Ñvü–õå‹áŒ/×Z°«ª1D"Ý‘à:ïÊêG?\ýìz¾D“C–ÛÍðkèæ"¸@VtUy«Étž ÞÖÀéo!ÑУOGXeûwôˆ-;j.l°„%%aI!\´Ña5ª1ä½Té‰p®ýT§(P[@õ^Г5‚Õ›UÁ]Q5A‰*/1Sž”=§ÛAúô²±Œ®+:ò €ߎ+ŽB² ÙáŸí3t©–/%tt_ÈO&m[uᘦ^³Q 8k¥õ1«Kb‰KV«Ò“†aµ="£"O•Aº°ª ʹŽÅþž>"±ù¡QíûôÄy¢tCÈ¢åNÌZt™9#Ç%LUtId”41È¥Å÷è…æÓ§+9[~ ™`õO›L¥·éi‚Éb—z `M»Ûr<÷‚Ú·óPʃ ‘ +‹ª©Ò—îútîÞ÷qßñ˜ÂorâŸð[ß pí_‡zçå%ƒ’0¨\Å[–䌘ß8y?š*±ýeDg_9Öð•w„HÞ6’M1*Éæ<çµÖQÒ¡à<Ôjj[XGºôåP8\-á54’ÿÚ-31“àÕ!t9ùHÝÖÇ^Ó~EÔÕUMºO­^å/Ðôû®â+»:Ï…¨ÓbpHû9{’0ño-&ô1©vþ]67ßBxLa*Äpø*QìS‰bÏú¡¼ u#¢G$Âuí}Rd ‚t‡„lRtöÕD¦àž;]1C‚ê)ꚘVPwêèxþÍ“ìR ÿmfáü=Äq ÜèVåd¹Çà‘˜ÅâoG ²/ÂÁݦ:ºcwš€E%‹ Úæ"u³¸*bOX³ò4‡MÚsµ æ=õ'Q´Ä›]òcÉ>c~çÖð3j„(¾m›R ÖD“…Þ¬ƒ^]¬®PjÔÍ´—ÿI%JéÌt:CÎinŸ›¤QgSÙåþ] ‡_„ú©·ªüÁ¶jý:@ýœC%íséÌÐ|£ñÉ)—­ ëŽ2Ù,4ò¾i70/óð/ NÙÉ¢:‘Q†ïœž“îcÆÅ}%sýE ƒíA$,ÏKÕ¦§¨ä©*ÎoèDH†-à¹+²)è#¸$ê2iUÛ´*Q®/…mÞè)‹ÜðhbN—áÅx,ž‚=ˆ¬‡' Eh&#‰¿bGãþ_¡"T€†}zï!²çâ2üδñ[tÆJ¶hÊý£u¿ôô¡-à°ˆ¡¿ú裺bH+æ’1‰ÎD–DU×ë+›|ê7~øÞÆA¦gÞÂ7þÌC\G"3ÝaƒöT¡ Ó÷~)DQè2‹æˆPoDÝyñ툯ð;üêwG2Z”¨”E&ð‘M†A[4òdËÉö¨@ëÎܯ@PaWÓuÍ¿ÞÐêz¦Ÿøg G°SàEEµ¦®Ø$É)¨¨ÙÌCªˆ—¤&E†x 1^,d@E©~oH³²˜g—/ßhŠk ¯4înÌ,³=€N-S¤Ë ‰‰-L*É+Ï®(MªóŠr•{¸sîõî:)0ã-zßÕèmÚ)IŒñ?FÜFA`¡·9jul€x2 ¾Û€lQÏÝlH8¶¹†ÛX³V¾tƒ4M@ÆN36Š/³Ã;~hOÓä¬èêSnIôSÞøò² ½aäkMv§^³‹†7¿|nî'þ;…®—°NzÜý* X"Ç;OŸ£SqÎœ$Ý  ;ßœz¨¸ÖP¿÷„Ñ}m¾¤9šE=‰Þ4šù'ع ÑÄM,37dåÖrâ¿ÉÆ6à‡räp,òe)êÔdµDîääξ;â"ÓqrhåA‡¢n_°ÿÿ §ëêXo½ü=AÙ¶EJ˜Ç¨Õl‡¸Hlæ¾ü¦ªŸø‰^±¨€† (0êò´µ æ1ê®Àï.Š˜‰GH^$²Ï+ož‡›Ì7Xtçð_þ½ÿû¸©Ke!šÿZBd`ÃŽ=¾K`x6{7ûž”ïæféÝš,ÈO”AJIÝB¿˜pØ ©Çž%Þ¶¹¸µ~C9±»¬6õyewýÕ‡—ú‰Ÿ¡ùU,v´øI®œ0°±+MušÚJ£ ]iZªÈÜ+ŸÁïaë !ÒаPc˜¹Æd¨#£´Ujn›Pcwª*ì"úôâF’«èÞžÅo™W{€3Ÿ8Í2âé.YœFòüN_Œ¶[gšZ”Æù­ ªõhžDŒ§pÚäAÓÏ¿*ÉWKú,–?«NÛ•VãcË#ÔÊ,ܲ`ZðÜÌ#¹µ'”Õê¼TPv¹vg«kÏÖhó³9ÐètõÇÍ;.ú>"¬ÇíoQ7‰ø*¼Xzwšž¤ä ‘&%_ñÖ¬x>mýiÙ%K1},ycÉË\‹ør¤]R¦.O„Â0®8C_ÕLUŒ>$$&*lÓ©Ó×?¾ø„‚¶qÝk#*ƒƒ#"‚ƒ+#jk++k‰®ö!YŸa@óš&”ó嘄mãÚf°íHm=+BS‹ëÑh(#°ÌS ƒH†`b$ æ<Eͺàùûš­˜ð¤CÑnËX'+*ËÈ'€.'ÅþExªõ´£C£°Á«KÂW¯¥žn-ì‚}ê}ªßå%}ñäA-ë!Æ!:VM~W£9«5q[«®íøHÁû8£ÅöjmzŒWÎåå\8Ö¢5XDs°2Bˆ=X©Mè˜xåê<$BTB±ƒ°­=ù”BÓ¯Ci¶™-J3ŽÅƒGÍãŒ{šÐ:Žïû§n¢!“[ úñ3$*åtzÈ…} ºJ×ÃAË öUoSí?ئõýÝ ¶6B›€0‰ð’}ضŒý½Î.¥_'ë¸Ö&2ÿ›~Ç*–Ú)Û¶MØ&àï²EMÕµŸj:Ï -^ãõt«ÚFt^ªR®’ãåí;íñz^+/²ZëÚÓ`²C/"¡m·®~b³Þ(¾ýûìèLe!”‚63³ˆÌókÿøìÄzqäÿòñÉÿk&<œ—ïòú±Ë×]Žt”þ—‚Ž–ý!üeI`Ùéýy{-f H¨&~–w%ð/j½?Dƒ\™J8ªÝÃOáÕª,ââw*k[Ñá¦õè¸æ4 À×ø¡=–´ÏÃSy™ZG$šî_þþ:d¤ø çö6{]Š.¹H}²3 Ñ >ÓÍlÏêøСãS‹¬šn@÷¡Czo³OÈE±¥VTz}4$HpªAyTD'p¸×Ó ÑEª*Aä(¢õz(/"¬©ä/½¼|ñì…¹òg+£ª‚B¤Ò£´f—¾ª’CNo×H!AQaú°]5Fc ×ù ͸Ñ-'¶hÅS iE÷ø¡ì¡ìD ®ø÷æ…4¶K‰S“?à ¾§V© aî‰lDß=Ø÷ñ®ÆäH=ç¡’‡@ã_•X^QQ²ë솖yãp¯ÍXÀaÑ?¹?^Ý I›a'ÃNÔ:È`÷õ-R×UÃ^Œhöô‹ + m,)ÈÊÉã´ZF°–XŽµtLvzFºlú\Üsu¥Ëþ†²ê*Ë.¤Æ6{£`ï=”sOÈ»¡«,ÜN¿íwmû73JÜa5Ìó°(}Ì‚2&6ÏÝ?ójÔ8_|]w9ó&Üb°/¾ÊzÁSÌ7²sðÎÂE¸”s¢õºžk"†êRLùˆ¼õ0VN_,[?f]‹åñ‹’Ô¹É|@/@¡×„èpÛ[l%h#¹•Ë'C0´žÜªµŠi/&]œ4‘ °ˆý‡ÄC샇b?€ž¨Ìo²Hz¸~úé{³ÝÑŸë“›%¾Á¾z‰& îÜ xá€Doc[l3oü¤õGAWÚPÐ\Så—ªµ’«øäDÓ`žìŸ9cÖ–ÙVJðì/³øÞñO<-ªAó‰éMJsMŽOK]JÆ£eÿÒš+ˆèï ÔóûMv-¨û{? YOç¾ì'ÆÚ~bïVŸùŒdèîäS£‡Í]=×ß]kÖk:Cr©°˜æ“Ò‰Iªµa®’ m;”áêTu„* RÕijHfÄí2Y6”rDw›Ä»º}PzÖOÒn6¦1Tà:áÙR$@¶OžüÀ‘¥áC  Fýͼ;Éðá$Ãh;Å"=çq;-2£•ÈË8Þ)3:ÙÃæáü6’û¬¸¥åé>×¾ƒÐ92‘ÆPŠ’ïac uû­0¢~÷ìŽ~·ÍŒ¢ûÄ;¡í,ê5㦶¹Åùùrh­—קÕ-öÆgO ³”™ij(Ó%Q)[£–€'lÏv6¤êT$ÓL2¤ÆIð:R‹²µº¬ .¿¤éÄhÓöœ˜­laÄ¿ù¾:Â=ÂË'l;:ëŽÇžÕÊ'ú²¾ÔTYkòOðKÛ>õò(Ô]"þ1?|ƒÄ€ð+7½²«G½¥Æk–—~â¿¡±üö\ÄA·.†ÒåeŪÕh4Àh!A¶`ÅJIRÙ¡ÒÊRù÷¾@=9´ñíÿæ2kæøÁ÷žì#€yŒ¼ž.{ÜOÜŽìѶ’&²ÿÍÆc•-òF.Þ\+ã%»r÷žsýh:~ À,“ˆÁzÄ,|†„_ÿ•\'žô râöÅà³9jƒzáëì :'/Ž9 ·¡Œ¹Y÷âqÉ!XiæÊ|`3± Û`K¬oÐêíDÞZAlà?¹!8eúú©å_±¹²00X!¶ *T”3á"ìA„«®$÷BaAvÖM($õôÉâfcÔ"à%ð.) Ë¡Cp0;FÃIÝÉœE|ÜÑ)è/§Q)‰ùhäTu ò¨åéõ4~;»}—b7”2ç?i¹rõâ¦뼶­öãŒñìçMGZáótÒé ÃgΣuiqæò“šÂMļ\f¸;‹Þ˜S}8V9Ìû`ÓŒ© >¾w¦îâ—‡;Òßøô~?Ô’þeO‘×c l…è @ãÄ!Û×Æ:iw‡rrjKÍÅÒ¸ ¯%'<¾D,±áQÉ>2búÓI¶Æ¸¸q.‘îðƒû~5uçÄ?Ÿ‡æ–Š3 ~ó}6¶Cà…˜&8 ¾º§°èúú¥.+`;3}ǨɜuP ÎYÁÛþó°À7ÿÀhXÇ-úÀr¥ÝƒWÑÍßÿñÕâgÑíB–èõ9Ë祥þÈÏo#¦VuÍ© ÙZÐh¸lM¾6'Û¢?×6‚錂S£u&4Óò*l›G¦UV®VYÖi•œž–&ç¶,^:>„•¦ ­Ñ¥;‹ …Ï]8 ÷À}>ŸyýêéG¨{ÞÙ*ùÄçhz#|ÇÌYµ}»Ó¯S!Ý2äòRòò´ù9œ‰ÇF--D3ѬO ÇÍŒ©M 6IøÕíÃÿð RŸÅ,¢×<\ø¿Ö´Ê®l´F€<Ð*!ß«­7››“LYLYL¼L&Wp¸7[cc9B3ǫ́Ä(h¹·ç`Bçj„m+PV9{¹¿ 8Á¦c{ß÷é¡[{/Yl€ÊI-'BcZׄC¦èp’µR²a”Ëb·‰ÅÄ´¼ãŠèç>ý‚@úPܽ…+çmäžµ a7a”Ëö°Ppr˜rwÅw_žÝ_ßÄ]^}6î#’¡ §µ˜voÔ̆ÞVž3s_]Ã9¢Z:sJDç6‹5:í_YÒ¸©Égùº•i!ÀL|~âÎîÆ­VÒk2Üi¥"ÅøôÇËb)"úݲ2KÄÈa·Opªm¬°mºÍw ÛöoDB¶XÂ7²’7^ÒþWQ|—ĵ¨‘.b}ÐÁ©<òø/9Õ²á.iƒÆX´Íµó7dú/¡éÿNÙwª³ïÎÑ}œÆZ¤Yl)î‹ìÐZ@cÍ߃æ£7PßÂΛ(tò䉋±x ·wKÂBâŽæäã>'±Í9üƃeyÀdeè²­U9e\F¿ ùùü)ÖŒ $2^Ý1 ËO>5ÚzjxµÌôüQ( iY@vϯ4TUë ÐÂœñ¼Gbjåâe;**,ºCg>~¦¸…°²{­‰‹‰‰‘,] «2Oå…[Ɖ݇§þ‘í Å‘h[Ž…›2Ôg²YÞ˜úI20r…BNdhyŒäÛ§ñdÀÞ€çúà…øMl—ØQFy†"+ïñ§H|–;†º !Ü'Ä»CÊgDÈû\zöPÈo°ü§ÚLü#zôÑáƒxŒÜè·{ýWoE:Ü´>3˜1˜Ù„©ÿTÆ#Ÿ?=y&Æí‹lèçw[>9R NMǪ¢,çrMxuŠ2R ‰Á4ÝiÅ­ìi}§%étaÇdüÿ6ÌK¹U‘ ÛâûÔjÃ&¯óŒá"Üõ[€‹{Oö§Á÷?p> stream xœµy xTU¶ueŠ bTBö½L2( ¨‚ŠˆLB‚˜y¤2ÏI¥¦Ô\»æ)óP™S!!! *EíÖ»ûu·CŸ[ž¼ÿ½ShiÛþí÷þ/_¾@’ssöÞk¯µö¾\Σ8\.wôÊ [×.^äÿçlv*—}lû+^26ÏúJƒ`Æ=ÐþØœòñìÄGQÅÃ(âËÍÈS­ÌÈ,ÊNIJÎ67nÞ´ÅK—>7ÚÓ‹-¶"-!;%.&}Ú†˜Üä„´˜\òŸÔi[2âRr‹¦ÍýMrnn沧ž*((X“–³0#;éÅyó§¤ä&OÛœ“Ÿ?íµŒôÜicÒ¦ÜnáÈ—•i™y¹ ÙÓ6dÄ'd§s8œW¤¿’±2óÕUÙ¯åä®É[›¿® f}aìëEqâ7&„&†%%oNÙ²{«h[êö´ðqóZ°ð©E‹Ÿ~æ×K–.›;ïAg'”3“Æ™ÅÙÄyœ3›³…3‡³•³3³ó'œó$gçÎ|Ng%gg'çUÎBÎ*ÎSœ×8‹8«9‹9k8k9ÏpÖqžå¬çüšó:g gç9ÎFÎóœ4ÎCœtN0çaÎ#œG9ã9!œ œ‰œIœ)œ©œ1œ±Ü±œ—H8p<Ü-ÜoF­u’'æýéwƒÖòCø®ÑcGcªe =¦l성>X<.û¡§ ^ŒŽ|äùGþò¨wüøñY!£CÊ',ðgÁ»c'-žtx²\1eԔܩ£¦²ýîWG~õ_ô·Ì“ÌzFÅüqZòô¹ÓßQ2sÌLûÌf-˜¥zÜÉê‚}bð¢^vM÷”ï!ÚŠ‚Ñ/Ek“õrƒ¡ ”ÎXꦛ ÍÜ ^èеÃนÖr¨u+AidÔÆ$ù¾ÓZ款‚ÆOF…|7^T#‹–Ë PVfºzÍ=Ð{uþö2¨)W‚8\çhÖ3Ñ>¾Ác0‹A(­J-§R1OЀoá~0{Jîax¸(imâ¡b´R`õØê­žò£`¬n«hìÿàPM‘ù¢ðƒ’8Fš¢+…|*ª5éð—hžÕ¥•ô%ZZ™™9oPù†ÊŠ&W³£‘©;Þ‡€“ÔÇ[=;—¾Z(¥UGRÚ£! rÅi…qÒ0ÐS XËF•®¹\{Ä T3¤ËźB­˜y׫ Р厒º²j{­öm!é|׃öydz·—úÛI!_²vXàÜk‡=@¡±ü[®Õ©K^|ó<™D¥Üòþ§ð!u%ìæÒø_,'‰s@­·Šu ×JA yðÛp >Ñ{e°ñ:N0ÝC‡Û÷u¤5*,:o–(”Iߺ#r'PÁ¾¨<¯o—‹žøŒç;ê[.0ZŒ6°P&ƒC¡×€¼”~}Eô¥MU ıX„ó° ?ÿ·YˆFላvv)@£VRÇìÀËñ£ëŸê¹gÞF3Î4¡Å7Ð(æâï?ð!Pßí}òÙ,tŒ¿,n³±ÚB“ˆðv/šˆŠ ½ÀûO(S•ºxUJ¨²jìL o+t@§Î@ o™$;Àæ²Ù›-UÌ^4Û^Ü{ „ä>¢¹hÞßB„îŒNJIgd'#˲*Ô Ve0§rŽÎ3×ߪߵY“‰L_ÏȲ£Wíj“â¶Ãl4›L°O ^×Ëõ­ù„‡^¾*P¦ÒõCmOóÑ&´¥ <4sÙ_±€Áç×':»ìF¬?òo^Ä“ÂÒqè’9ÌÎͯƼԬû ì[FyÚ‹ötr}ëºy¾—L`4™`¤Ü2БnÏ-¥7a:y~(|ßÙK¨5è3þE»8Se(Q¦3 ×«AGÉ\`s›M5ú-”é LÂ2h¥ ËWÓ…¯æ-j{ü—¢GùˆÓ”öj¦^ªËa C©ÿ)n°T-5&º­27«!„ÃIübIíPw”¥PiKó>è…>Ý>ÿ!»_6UP° N±*˜ ¨)µð×âº_pÔö@÷ÜÕ§†Ðâ!ëb§ L6‚H3åVV¤©Ò•zúܯ)}©TX˜‘žTdéÁ=C{>oºÈ8ê­PK îöF/LÆsÕ#cª°ÐoËW'r»uY9ŠLI<“µ*k„SÏžL?q¼³½½‘®Ùv@] ÝPßTé­é);I¨Á§¦%[ _O* Z*îÖ†ŒPå;lÄ"R›ó)Œ+ÀâZ&bt± ÑæX´¤Ènèl#ÙÕ“ÞbðcÃ}ÊÝ¥Ê5 Ì/…"¹]otCôÁ]o E~IPBÁ°»` ¤(únŠ U¼á± vœ KæMÏÍÎÍ•ÚU6ݘe»‘± [ðèmòÁ=';>k¹B[«l•?3;©K Baµè\ú)ô›ôŸÍDÑ!ˆS@"5îióÑMeé[wï,TÐy§w:²š³ OÊ   ŒUV¦åÓcûzj«ÍË‘í,Mdä±­üMñºüBA9P\Ñîp6A%Õœo“fgçïŽßŸ;pxOO{5]·ùˆ¼¨¯¢)uw«/Ö0™¿Žˆª ³ìX£û€£“qï¯<ãØSq¬å­C`†&¨’P÷%îç¢Ñï Ì <ô¶o±`ÄùPþÆÔ) =W)3È P(”» â°I¥Ðé¤` ç3"„Ïí_}=€Æ 'пÏLHɥкá`Aöîú:»ÚŸ±7‚©²®­·§³ç§¼d°oô]±§xìDö³Ëæº ”kD+å„ AèÞ$]cŽûyXª—ùb©lÕ×h2-nb‰«ÓÉ ºB-z:Sx‘ß×Ýç-Ù"SyüÆ€‡U'÷ŒÿÛéC•oO ùùš x銨 ÞôXĪ¯µ¬ª¨z±»H¯ÞÞ—òÖ7_|ýMôŸXÚh3 Þ¯A‡‚Bþ®Š ›ú?•bHÀÛX^>RKÔs½dŠ¹ÍcW³ "Ô$[zJì7´4zzŽDw¯¿7Í=µö·hÂ'®´*ÝJ­Á PÒ+<­-j[vÿÉã-ß6föžìê'ܯ¯Œ¥‚¿Ÿ0R w¿ÿ ïûGÿÑPù·˜Áøy®ò"üåð™É[Ø“zž€Wˆ…?5N.“lIEê…J¹¡¨Ô¦³3íÐiöúyôîXCšµLe”1›Múf¨$¸µYªmlä m*U%ËÁj·¹Ù1>.ù6ž>|öÇÐMz¸èºÿ•ypüЂå±'~A#lÂÒofK ‰ô>Ý{°þH/óó9ºÒÖÈ„5’Qoã [ú'¶u@ƒ¡&Ã%v¥C!è Z=±–~—7ºÄâå²7UçÞ6·)s™±Ú¡µ–2©°› "H1§úC׌Э“9¦w *Õ«ôJ©6ISÙ‡w N;ŸSþ#Ü~»fè— !ž;ü™AO†½Pî,©­/¯v›iKešhoÙî9÷M5uÎ^þßØî­INNK%uNËóJ÷ c^.[„¸Ÿû•“Øëv‡ÉN>: ¨s‚jíÂmÛ˜´ôˆÜÕ@Íæ£P‰ÍØ{ñ3¸J]é~”ÆÕ?þÝç¾ ‡ó¨*qøû‰WJt¥’-Œ|—V…ÔŠ!ÑÙ[íß9ìz›TjÐÈttñ–4Q*Piº–Žfs£¹™17XB=¼¼G¿·Fj"¼9MxûÐ[1O aÑ-4Sp_–Ò3Ÿ$YRJŒ-Íå{Ê»™sè%W©Z­ð­„¦Ä)xžæ)uîiþ2 ¥šÜyºªI{^º[F>„’-é7*¾1öØ=è ò; ›+h*pHò3 2²ë”u­µmĉŸÊóúµrÑQÔEžoì?î5ƒ¼”ŽÜáUc¡Ò‡1—|Ž÷l?™ÉØtu¥öˆdò±‡®ºÈ-qçAµhùœ§_~yï7 Ö³›“ÑD ç.µLï0'èUñ¥j«Öf7š\Ú]ÖÜá*ïÞv®äP¤«yh ߦêËê`²½2óüÖBkªScJ©,î€>êãwûNëêY•66H‚îÛ5øËyƒuÒœ| %ŸÞõɤat ]!ð·TAu(íÀ–¹ÛñÕ=¿j£›Îöž!ºÉ”W4²Dš?ü¨t{üò ,‰Coìr›;Àú÷NìÎ?xíÆùÛõtÈ×hŠo© 5Ï&ËÎÉÉ‘º ›ú6÷Sdã¡wP¨ –H¡¹Ìd³yˆ% ("'Š¨­T¯Öú_9 ÆŸnøŽKÍå¡ì³¸>C´;mwVMqs§wO{à-¤¹þû-uÜ:öKûï ½,kâT(Õº’RzøàÿYIZ^ЪR—Ãf®túæy|“ 9‹ÎŸå±ÇX• Wƒ&bÁÊva~(½sa4^ OS©€4åÝ;}èñótß—=èi¸IácÃ*(ºî£?@‡»®0ÝœðtÕ·7mýŠUxoô|&oWÄŽp2z±b2¼ˆ[Çe#}‚{LïP[Ôjƒ¡DF¿8k•*]§ñ³}1EÄÜRyÄÖuˆÆc‡Ó•"¥b9•#E&3)súÍà èþ}{®1£äK¡Ø(5æ™ÕF¢ó6“Óhñÿí¼Ëv*ó }$Ð¥íhœÍ|‡æ¿/üôjŸ·-üì‹3€½üÄr)J­Õú;Ô®`N,u,U€ U8Z"!Z¤£TÍFßD3>£Ñ(´Ö‹¶ÂßHoù~X }è ¨ó“·Ð·Ðì[<ö=¢Ð7GöÙ~vy‘_}K#¯¹å:è>ÚK†ˆf¨*ÊÕBv€ç›k÷ˆjˆŽ‰IK,¤ócUIÙx"…%ü=èUg•£Ê^ÑÑ>•Ð¦«-‘ëÒK 5p¬¥ÁÓq(¼n ~L4ï ]0+h­ÿú=5{ex¬t4\+ªs$áÉÿZšo Iè©vz] BþjüµdEñzyŽP£HÚ¸  ÀRRÑ`­­…¦À¹ÌÜ<ÑŽ“âžK'Oõyè¦Ã•Ç]Ç©à<»ÒrLU>ŽqöŽ½ø =öçêÆñ8ÇãpþžQð¦endstream endobj 640 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 4474 >> stream xœXXT׶>ã0sŽ€Ør¢žÁÞ£×’ÄXP¬$Ø –ФƒtÊÌbÀ¡JoŠ€ƒˆÂËEÔ¨±Ä½IÔè5æE£IŒ®3nrßÝh|)ïË{߆2kÎÚ«ýÿ¿FÂXô`$ ëä2oÝä7Ì¿ŽIÄÁ=Ä!R ™ƒ-BLI2°–‚µÅÁÁæôÃïû"ôÆ }©D¦v Üìãåj?fëXûÉ3gNŸ`ÿ†£ãLû¹þžÁ>[Uö.ªPoOU(ýÃÏ~eàVÏÐ(û1o{‡†nÓÁ!""b’Ê?dR`°×;c'ØGø„zÛ¯ð ñ ÷ô°w µWåïißu½I]?œý·‡…zÛ»zx0 ã07 Ðiû‚`çаÅáªH÷¨­.žÛ\½¼Wø¬òõ[ã¿Özâ$‡ÉoL™úioZÙ0Ì0æ=Æ•Á,gF1+™ÑÌ*f5³†ǬeÖ1ó˜õŒ³™ÏLb0ÎÌBf2³ˆYÌLa–0ÿ`–1.Ìtæ]fãÏØ0½™>L?¦?óÃ3˜Ì ‰¥ÄŠq¤Ie,˜ædät=ô=HçKïYŒ±ˆ³h— “•Ï“ß`°ç9îtÏi=ËzvX®¶l¥µž`aýa/÷^ù½D›‚Þ“{êýQïïú íãÕ竾Ûû¶÷[ßï‹þ}û}-UL·1Ý#:Å%åq³i&¯.Õì `Фª£HFÇ3[u4hÓƒÓÓ ¸(¥|î,ÔB |UšZ7²aà ù™¹ Óeµã[¬Ÿ'Ž²‰Jù>ÝCh‚}ðìî4À’oÄh9Ò,#±r“ Œ¢¥A‚R”àf”HŽx†ÿÞýéáäâ=ÇGÐb9™•,S²ç²ÁCA>uV²UºÏ`/=/ü;£‹Ìõö *Bf ¤æÏLXñLJ£øºARÖX€ÖR±yäðˆL&Ó§'ÈÀûq2NÿæöˆŽ,çÉÀž7À?Ë•‡>(5‡и½$°Ü Ö‚7GxÁÆÔoĵ帤Ý’s8TÌh‘šMSù*È æ8­<º¨z.Ø‘d2‰Œ$Ûˆ;Ž%cQƒÎÈ¢ Z–¤dÄ$&B‚V‘D&~ídXSJWž÷nò= (ÀEŸ9uáÚã¼£p °—ªŽÌ×%åBpU «VÐ$’5Fi6JžÐ<êit¸ŸŒçq•|wXkðYàpȳ¯q “î’A®ë"|·*Ž³dî˼väü1iÎb3àh{ñAà.žq%¶d¤Óº¥Jeå?ê2œöL‹‹JpÚâLð¬âUòp2vÛ,28âˆ-gäòÜg+Z°N%Ÿ“¨/¸b1:Êq"–žk‘`¢¬ãåÓŽûC•&™ÜFÜÒÕOžüŒœ=0Œ7dãì)Ä&¨w@çnر{·¡¤¹mí^··}œU±´E¤r2ã÷-rR 7 º³þSYÓZzåZúÕ}å)ôÊ–¦Y|ÇÝ.ïòZÊá´Ã]8Öù&b‡µ'Ù9[æuE0/yËxaÖâp9NÝó I/ø^ŠA´¯“4}‚ÑŸHÅ^âl¾ ²cR4#¤¥'¨SÓ‹·é½€ó'〠†}ÂêS5©†”,8”t(TÜ;Ž¾nYñÃ@!¥\›±¸pHU–uQ¶ŠË…=exŸ€R°;‰} Ðîh!¢TáÞà£_·4ÿ½|8Ê]¼ (Õ/Ö q9æþ¨€Ì*…¸˜v>kÄÙå’Ÿh{ôj‘¢—8’ÇF2WªäÚ1ncƤsïß õìЛ¡Ÿ]m=uUhW­eûø½—ªh‹ËhŒ\ÛosŠOÅwù_ÇÎÞüî¬9i»O ø€%οÕ"‘})àYõU¸a2Þ”ã\½ÌȺ¨á B´ #9û¡Q‚ÃÑVŠ{My´0ʽ4£AEÏhðÒÑ2(Ñ¢ã!±P²ºÇÐBÏchì*ù ÷R+DÞ(“E>»(+çT³Úû‚øwÛãÄŽ¾ÙQYêJ°Ë§Í)Š¥¶OIqn˜ùO»JÈÔg—r6¢1Å€î58Õ i %r7©ó÷ç#CWËÔéª}Q5uµMeêÒù‚!·Ê€û¤Ùs¦b+KÞ S¶©#r—¿8ÖÒZ®ØÊ…6yETV$A¬bYCG$§ø‰Ó£|7¸‹Lý;Z:VÏi ï!P\G»ü]¹9_ƒ‘]I«àCÓ«„À®•U¤ª)©h4Š©cÇ`/YË‹ˆýau·ÍÉ ŠÅ£ãcÕê`§dÏêtPOG¹öv±MdøÎì ÈÈÎQUPGn_ä@Ay(à„Îdà@˜}F“ªÕj5ZEzz\ sª†»+šv¹IXýjâ¼€²Kqr=rÙ‚ÍóãÝ;úˆøÄì¤ûóD-îO¢mN·bé%9„iµAiQšmp¡Jy•îËNbùª›CYsFB2²´Pɉ'3XÜÝñlg‚>±ìJ@Ÿ·3ëL=l3:R`®Ñ=zž@MçÛ‡ŠŸ‰IνZhsôz3<=6Í{ O›Ù°²-µÎ4úa£¦{2üÑ4´;y¤ÌpP±–Eçß Id‰¤ã¯zw]EkÒ°ÿÇ”ý+›õ§Îè« Z£ [hÁóRqe-¾Ó¥&’îKÅuÄWéawúÚ¦# UËÊ]ËÍ8m$éGìvÄñ8þƒ§%E1­MKQ-YîF-FjqÐ)E­…®9ã`EcÙ¾ý•Fx¹Ä:c=gƒ:g C¨@’=¹k&D3pËÄêgù“‹ ù:­F/Ä$&í€pn뾨=•E­Í^-ó‰Ô“pÂȹʫäù_b.}zQ¶Í„ØàP)%·Ó<¾#Ç·¾»ý32n“™ŠŽ ´¨; ò4Òó j»êÀâëâC`æÂÅ08(ˆÛ)!ž!›öá÷¯íøIýM yª¿)Ÿ„?t ŠÌsvò‹OÛãóµÅÕY%ºôTª.ã¸ðÂÈ={ Ë*ª£ö©”îáQá‚{µGî:š'aÕ; üòÜ[|;"£¼)ö*«¶UD‡¤¸„ Îõâ"\†oÞ:qíÎòÚàÁ­z)L¡ v ¤f(³ã›(ÖådåïâÐJÏO…ˇÃåo¾çM›Àyªâqã?ÿ4n­·÷r*rl½N5]8EŠÚÔÜV"OGm˜ïoÖ?È_”Óÿoyjºo7â6ûuÖ£ ‡ì#îÁï¨Lm4|'¸ÇÃn¡Cö² O: òË‹‚à¶ÿ1´’‚}ñ•Au>T°/¢Ç½Íç¸÷Mm%p?Ü+,IÎŒ‹Ôªã´ŠÔõ~á°Ô—’ïsýcRÚÕW c  QΓžØH„Ó3gº®ÒN%o)lð"í±íGaîF)†˜¤|óûõî~>žžõ>Í õÍ™OÓÁ;óŠ»LW…½p¡»ñ\Äñ4Ø*šÚ;Ç%ø%%~“]:~- ‰²y.JrnãàntÜ!ã•ò뺟éèÿ‚ë]¬?^¼s¥9ÓsINýÕÅ@èfÆy)ÞFý~*ÈËϽl¦¡ Mlƒ X ¡]\Pžœ–’Fiˆ,!£d¢’ýcÍw®Ë/+ø:[\P´«²{GÛìdŠ^Z.1b%[­û˜š¶A!´tñS4D@BFlfZfB!×™5ña[WÊüÇ?]ήt:»òJ/ÜKª0YQÍámbxý®¬¼«À•å~'H¦<1ÿE$•T®îMHµ%ªoâ'&ʾ3Ê}5ãé:æ c ¸Óꋵ¿ZåFäj‹Íª&r+8›ç³^Ù»¶t}KM·isß÷8N,Fm\è-Dß^X´ÆÃZ—p7îo/b’ÇϨ ›õþ7LX›ÁÚ® <¯ÿ›Ï.Õéo™Ùt=U+(M΃îRÞX-hÒ’äíŽd¡è'ûÞœI4~0®ÛìÛL2¤ƒ!ÎÔà¿ŒòÍXŠ ¾0¡;E·XLú•ÓïÈ4ë,ª©²õÅ8OTÙ¢S‡JÝùß2Ø™•]Æu‚>?þ9ZW˜—ô U},®âÓȈÇ,•#–y‡ò!¢NðKŒ n[MHƒaoUÓÉͧG9™àCz £~åß•Ÿãv·^ë­ ×þìuq•¼V8ÿ¾¤Û¥xçó÷I»kî2:–·p„#?ëœJ÷ýÜÝ ~;§Ò É™ÏW–KΉ‹¥b’i¿³²@Ç•ÆæÅE¦ÅǦÖÿžšOu†Æ.ª0qWYV~‘ÞüFÚ(™ÆÖr Æ¢LŠL,_«_aîR"5©,“ï‡vý¡]\G%Q(ÙÝ/p„ž§Ýó@†˜wo@K¼€vmFÉ)´CW|M*êЗî‹éájטÄdõ,ˆ¡0ï oÚ÷í¿ŠòQúõ'mð€CKû+”eã–NXcŒ©ªo¬8ÜâWá—%:ÜžUÜýÖ9N³Ö8¹+ÄŸD$&ÑÁŒ²Û!Î0»Œ?tì·ÿ¾ÖÒ(ù{ ‹™á ñ]3`¸ÛfJ˜ðÅ™ n cnQ=Ôq͵•ÃãÕØg~õíãcÁ߇áNÍGçà+îšÓy¢ 3]ß\0zOíþ²ÃU‰ ³…–æO@Ü]pö÷OÛDUcOÆS¯Ð¦iRÒA iÜ=”w¥“Ò·ù³üÂÌ' p2ÿÐ8Nœ+ß­Í ŽÒ@L¼@v¼'SâÚ/%[«{D!¾u«ŸqT¤ˆ<¹B +Ê+Ø'~DY}(sÍËÔ$±˜oH®¡d[ Â¥æú²ãP¿ âµHM6EoHXI§É-c‰Z—®K.w(H+Ý9Êóty9BAacëmše˜ø¶ '½·-+üÐGѾëPecPÍ6ÿ÷£6Nýj:Zᤇw±ÚÌø† Ùê–ì«Tt^ ‰áZîm”A½°¿çá¿yø(óÜÞ•-m/R^nL¯öL‹„íœWMè¾=†’Ö³[?Fú’Y³Há" E˜ˆ¶?|‰öh?î*±ŠX Ó¶ (!gù¥|"-'Ö×!—ÃÞíÇÏ<‚·F·† ]ó€Ž/gBäþ8¤ÝâƒbñRruN·Yt‰%Stù­Jóß lmXtƒ'–d”±Rü¯ÓîñâŒ|J]R@a~):¾¿:9=GHHØA¥(}taÕål'„ã¯Ç>ÇÞ¥Ýw5ƒ‘iôߣ·–Åù­T­Ëjt"#ã(2ý½»þß1ëמI4˜»×®—ìÓDÕþI1á4–ðœÈ²Ž¢W|èš‹[Êó ädS6k´D‰•`i1½ÜºgC®µ5Jª¬{eXÛ0̆“2endstream endobj 641 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 3083 >> stream xœ­VipSW–~BÖ{Ï` ÔØ!‘d6Ó„}_2¡±±™†%AØx‘lKF’W xòtžä/lÆòŠwa›õ±„ö&MBÍÐ[’&“ÄI'©®>Ï\gf®dә饪«kþ¨¤Ò¹÷žóï|ß‘1^#™LƇ͟çþ6]š$“^!½*¢}nW€|¼z^ñ=ýž‡cpÛXF.“éMùÁ†Ô,cb|‚Y3#槚ùË—/¥Y0oÞrÍê11&J¯ ‹2'èR¢ÌôG²f‹!&QgÎÒÌx=ÁlN]1wnFFÆœ¨Óƒ1þŸÎÒd$š4oéL:cº.VjЛ5£RtOrs<ŸÁ†”Ô4³Î¨ 3ÄêŒz†aÔ«õ; Á©kBŒ¡&sÚ›éQ™Y1a±º¸„··$§lŸÍ0“™MÌr&œ™Êlf¦1Ó™-L óoÌVf3“ÙÎ1o3ï0k˜9LʬeÞd2ë˜EL³‘YÆø2 ãÅä0ŸË,²þ1#>•Ï—Ë?óZæõPá¯Ð+:XÖÆMâêyÜ{œw²÷‘‹GþzÔÔQ|ä>ÎÑ‹G¯“Š}, â$QÚZ+“,Ræ7æ Y¹¿—$ ~ãW”c+ÖgXͼ–kzí§á,¼km°]ñ™"r!P-vG…ºå 4°"™¤X¦e]ŽßC/ôÀ#p»—päºô–ò)9¡ Y_é]%¹KöY\Š¬\ÊÄ»ÊG¦ˆt’@e(†°­¦®ƒÝÀãÈï~¯aàœß¯ˆ¨ýú8õ9Ž„¸{j¡Êz² ƒ,ûk„J”m€¿Ú»žŒ!šíÛÞ‰LniÍTû”5ž¢ú ¾‹òÎ ¥öÙ`ßl­Äs¸_E˜C4èM–©ÉäÆ+¥¾?páž¾ccÃîÛÈarÁSdÒ–0}°Ä)tXºD¬¼æ¾u2z‹ò›•Z6ü$c&YüTìªc¿(‰ R‹Ø©eƒ,‘óTiXù ‹sáÈòcÄ‹Ùd<¤l£©|JS9OgaÕÐ,º=£¥¥ÝÙû~xÓÎ]Q¦MSÙ¾`ÉŠÿ;]”})s>Ô‹cj1UÄUµ²Oý\”ã)@‰£E2·hYÛRa§[øø{¤™#ÌÇé÷Ùòà¶êºv+·u_‚>îŸTQÖÒe×ÿ,Nøž´Qùë­\pÂÆõlu×Tø5GÖÿØ…\à/ ýMïÁƒn•°–Å2…È…BZbè˜ óqÓ#ЯºÉNo DýžbsíÊg8¡òHiùoÁ_䒬Ѷ,0ÂÛvÃPTlÇóBfúý ÅEwqo[c©xïâíî€N È´ý™{¨úk¹Vûe&7¬Î!ÇÒ ûã—ßc2F±K˶ ÷ìMÐç­žˆµn¸‰Ö%Ýe'‘“K!’·²ü„½üÞÿÆ|—ýÀPJÂU8h+Ê›z 1>Ü„s êýßÿ›¸Ï (H3­;˜îoØ_ y`,±²ºcÐÉw˜ úÌXmwÄõ_^ùP¬¡¸„SkÓ+ë ã;ÇÉñ]i–2¿ w˜ùýø`uÓëÄoñ<¢!3úWÒ°WÚЫêè~È˱ØZT…iëWS#J®ËêÉê±]€Kü]À±Okª¬ÅÇU¾Ï×½ÉkR5}B2à%Ù"Ùòë‹©ÔtT+n³6SqZq:Ÿ¡eO ¢Ý§á’ÕåÁ,ƒK‡t{¡`t€u¼Ô)ph|\z ä ük¡äHi5fKßú ƒ¿ñÏ'TÅ{àSèò0|¶Ô÷L$±ôºxù¡ œàÂÍ×=µowáE·~Z8Ñí0OF®$3Ȭ¯W¡üLÏ‘Sêh×ÿ8xä;د4ÇÇ" ôºs;áµÍ^¸VÝu¬·£ñ ´+§YG_£ò±¡W ›ñ—ri&ê•å©¾xês‰rþBŠó´?,Ɖøò…ïœ5™P”m-Ú_¤6mÜœCóñwKÝá%\u ÷ø/L1«}ñ¦‡á˜ê’}…Ì|IŽ»©.=g|Ç¢÷o„*G ØJTy…û³a/¿»+³©µÝyælÂ…à¹S£ «š¾Y{“|ÿ·e~x—rƒõ×ëÔš1; *>a‡<Õƒßà•~Ÿ‚\—QÄ6¶‰/y¼5gOŸ#¥ã*û¯ß‡‡ü÷3?%o¨ÈgCnK›í^{á÷/šmÜøËŸ±µÐ ºÚ$0AlKyZË ”çÝþëÃϪê)ƒ³,…ûljKd†Ñ@‡¹ðFÁ½âúC—l~|NîX׶zž¨ê”+±í'ÁÚ5¡B^¥`·R°¿½Þ‡ód_"#ÇDéåùøÎ¨Ý »ww%œ;ëê<¯"H0åÓ­?h›pÙ~–¦tu˜ÒaR [º7ý×9Ùûýhï—KÉ/6'›-ͬJMíØub3’q! ‰W¸3²yºw§«àIZ}QO^™õrÚ‰·!š'cíŠ5ħ5…*[ ”¦½ð½uß«„ºzÕ©S7#?*ìüÉ/¾Â‘·3/;ÕQ7b+–8 則sK軩õ]j¸ñkI€®TåÈ)¥">l~¾ëC%G¬SþeÃÛi7ÏÑñâ°Î¹»ù©ÿî}Áwì?r'v{ª*óÉJGÃŽhý&þÿi/ÿ‡¨ö¼¦À9ÀŠ²ç‹¤AêyöòGnýÝc±™©L,R=ŠÏ5C'œÊ%“Wú‘@)Tñ;·­.j«aë±ÕGÜY2v Ý×ÿîÿ÷ÈÒ}¥ùõàªí‡ëqŠôº5Ê•eÙ%ù à_e¥Ô(ñ3 ê—Ua[0HÙOjfr¾¹URxF8+«X²«œG"3J5Òki­wo¹2>£_†ùã73 endstream endobj 642 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2206 >> stream xœE• PgÇ{¦»58ƵgŒ‚!A ‰ ^H­â…Æ18$ÜÃ1rŠÎÌ®OTâŒÈÑhT$ٳىÑÒ¬e‚ÙÄ5±b¢¯ÉGínƒ•Ýêªþº«¾~ïýÞÿÿ½–Q.ã(™LÆ,]µ$*0`ôÑKœ*§§Ë¡xøïëà*W—öiã5îXî†I/bÔ$J.“¥fí]ššfÈHŒOÐk|b|5!!Ás5¯„h'Çe$ÆèR4«tú„¸d^zù@³>5&1NoÐø,LÐëÓÞœ7/''Ç_—œéŸšÿŽï\MN¢>A——‘«Yžš¢×¬Ö%Çižçÿ|Yššœ–¥ËЬJËH¡(ÊmqF¦^·#& ðµ×ƒæ/~#„¢^¡ÖS¨Ôj)µŒr£Ü)5™â¨—(êej åI¹Kà” •O}'³Ê¾÷Þ¸¯åóå‡äC.›]Fk¿ÒFú&ƒù·hRƒ€Þ‚¸¢^Ö9|J.¦ qÅ'‹`¤Â¾={ Ä:òËËÆ|ÓžP`³µ´ÓÚWÖ ípΚ.¸ÎsÔYËk¬Võœ¨Àú¯Ä[1WÚXþº ¾ûØÆWò“˜Ä!MZ$—VŠÉRÞ:œ¹¡ßý)ROQé¡êÁh|À¡‚!oîQh™«6ˆU“«ËµŒÝÚSÖ N¸Ž±XA¸”Qݺ~•y‹Å)쎶œ––¶†ŽK[6óªž0ˆÙ¢`•â£CœÚæî<§û ‹¤›‡êÆ£À½o[Q {õG8vÓ™²¡’·æ[K€m‚ÊFõæTö™!7–O¯K¨Š6™øñˆ©O«ß¥îHpo°ª!‡ñfáZÏEó kFú`W_z° €Í£^MdL.”µ•Á¡Þ Ç•—õ&]„z`[Ñл+ǞЬVÝŠmIªz»Nªt½±ÿ#`h½ì Ò8A?gpä£ù.ë«ozùKÚ(&<)3u\kä±Exãz-c™ý®‰g”â£#YÀ5§ÑÏáÞ†ãßA7 BÚC•-N¸Å}Û~ãûèúÐÔX…êÕV¨ƒF“˜¡eŸßH¢Ü÷z´=÷Tk[ùӹGLe|sU›õ°7íºPu"£–™ˆ­„xyÎÁI†/yUö:Ÿcwa 7—™3¯0#*ÆÞ¾vðB9¯v—ªi§;pݨÆ4VâdU>î½8ìeHØÿDy$0ç¯(Tç÷ì?¿qh*ú>y€jœâ÷ñR«ò—À–”̶ŠôsXÁœ²÷µô‹J ô°!=V²c[q„Aìå݇¤Fî7vˆ/vÈœ8— ›GÄ9œ!Ïœ %ìŸx÷ [µŽ„/& aÉ”Ÿæ¢?.8¬í`ì6XÌ…¥|zÄÖÜ(`‰pvïÀ—³1™êÔJñF±CüÁ!ë‘âçâd¹xop,¸‡‰ÑBJ|}¬$¸· w=æI)¸xX¼p°ä"üýp>ßñÀÐõš&8 ¹Ç¢¼3 ÖCÀÞÍþÉ AÜA4 Ýõ2,ÂäølX·šôb3ì-á߉œÙÀæhëéÃÐoýä;r¨µLwùS8/]O¡{ìœ 3IrÁÎp ²œ…Ë‘—‹1ƒÓÒ¦œ’•{‹‹ O"M í»z>DúÞ5²ÈÌüšÌ ýV®íËojë8~á¢îp~ßÒä¬u{¿7|Ñò¸ð°ej²è ‹À 9S ââÑ”Å]m臊ö8ÝÙîÞ‡~d¢$(Ó¥ÕÏCE(üç¾l€ûì­Ð«RžÞ^ùÖöÖ4gω¶³o¬ÝgåíÍÝû[ýGùÊ…â1Ó¨Þa6[J-»-æÝ`dU#ņ8ÊwÓ(ß(-xÍLß\qz«úÃê' “íIjÖ%¤E>Zƒ†>þ—CÊ}âÕú¼Ã(Ä0©Åƒ’MÄuÀ=^CèSæÊÔl‹%¿ˆ'¿ŽüE¡ÅN"#.ZÆYþÃØHûîÿ#–>"@#àgŠ1îOqÎr<ÀIîèùÆ%܉¯x¨žI ßÆ!³ðG⓲ɔ¤åñe¦¹´Ö|F2²÷?QqÂf®-2Y`_±:2k“q;„¦céÕ%å« Ø(ÎS“Æ…ÇëÊ*öÛøöÞË5ÀÁëo©U,ÙÄ53¢r@Ç;ÊZš$öKÛeæo.Y½àöœÄ«žaÐÏP9æÝ.|âèÃI'Geáq5ºipš‡j#ð!wŒ¤ºl‡š„ËŽOá(œ15êãK iÌ&6¦¶·7t^Õ}6ƒL#!óI%¯úV¿Õ¹\ý&󺄢þ×·è‰ïA2Q­É’,­ e'Ÿq›!­}Ïá¼6„£,º]ú¢ÙÞ°Ø›­©A¬B7Ù5áÛQzĹšZ(;K¶Óz ³+ *²+,ÕæVK'›B k¾©««(«­º G¤´oÓVÌ!.KÉT >S®@Õa¡òo|/}å}6¡ú‹†Oìì¼xW⾿ñ&¹¹ñþè¿`«˜ÉåU§3ìõ¶Ž{v„¿›žÂwgp×­Ýð1ûk@¡‰:láœè£·£yÕPðûÑ‘‹=%/SQ’µ‚î~ã ÞmæIh8g7iýtgœÍ†­l°_^¤oäG·o_ê²×Áv5 Ûy>`šF:›kpú¨E°ÖA"‘îÌ+‹kŵÕø^CM-M¶ÙaÒ/ð\‚ë]ÇwØ\]‘nvhuURÔ%(y‡endstream endobj 643 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 763 >> stream xœ%{HSqÅ×»Ý-[Ë”êîVþ1#6_$Jj[Yóþ‘Ø®vÕ©sv½ÓÌ$ÿ(¨®I‚©=Ì(0ÄÙ×T–Szh‚"{@/Êï¿„VýuÎùãp·@Š0D„*=3''.ö¯–—òŠ0y%)¹‚‘A›RÒ’Fq#X K`ÏbÈ‹@$A8]‡ÓUu‚½¤Td E1l\rrÒ:6>66™Muð‚½ˆ«d39±”wpb(T°9Î";/Ö±† ¥¢X•b2ÕÖÖ9GµÑ)”lŠYÇÖÚÅR6›¯æ…~/›á¬Ùœƒgÿ3þ—t§£Ê%ò›éÜË •!*Uä¬Ù9­F»PŠC (©BXH,èú@ˆjâƒ|T4J­°­_Ž÷ò)/ Zè {æ-ÊÔk°)ÁG½Â6å,…³ÁMã&ê)˜[ýצZºtMTsC‹ÐnVka¾ñ LÌy‰£$¤ËKiX5€WATŽJÌšÄ^j§gËpàþ%÷%¦Þ¿¯¦üP¹¤+nèìÓke±q¢ûÀä'|£À‘òè¡¿§L–‚úª|æ”ùA×=÷]Iw§»(UoSáµÇp'%¨mWRf<›o0%/Ua-í—ûþÊ:þx£¤Þ]ÐÞ€õ-·šõÚ`dˆ±u|ýÄçi ágh"~½Åœáfô¸yÞòz(`à; aÏw¬ß°ÝŒUú‚Òu¡þÝApÿëOrŒÓ?:ŸHê/˜˜Ák|dÞ2 ˆ§ÀŠÊwÔï­²–7D«@=dݼy›‡‡h¸†å¯CDÿ8Ü'e>h¤s¯ç^H“ÔXŸc°y¸nNßSà;äo˜ª9s´Cðh+“ljs®9¶0îÌHs0åmǒ–Í~ƒ°§½®‹úü{e§MíYžú“ŽË‡O9¯J>µÿá£ÙÉÞ²Š.Fëj“­ ¯í|… Ï©ÃÇ2áŠ$¯fÁà fì¬fB ÄV›endstream endobj 644 0 obj << /Filter /FlateDecode /Length 9007 >> stream xœÍ=Û’·uï´+ß°•§Ù”wÔh z’§âĪr$&J•”‡!—Z1¢8´–”D}Î œƒf‡še*¥ {»q98÷þz5íÍÕ„ÿåÿ?ÿáÉ'_Dwuwÿä¯OðÁO|òó>,ðûUù‰û¦úó»'_]½†wð¥¡1¯òÿžÿpõû§8®‡'û4%sõôÛ'<¡¹Šæ*ø°OÖ_=ýáÉn¾~ú?ð®YfõòìöaöðÁÓÛ'_ï~¸¾™ösJ1.»ø{JÑ…ÝÛëiÍlCؾÅÇ6Eë—ÝñÚì§)Ùy÷#>õ)…0ÿ÷Ó¥yœœÇÍ{W§ùÇëçì>îþ€Ÿ™”Lˆ»ãk˜ÅM~ »Û:ÚîÝ5NgcÜ=3㊦´Ì0õKø9›É.qG#À}ÚÝ]ßX;ïSô»Ïñ»0M.žpÜà­£Ì4…)î7bÛŸ½¦ aýóîð ÿ'c`ú÷×e©÷8L\¬s ¥¼¨{œÓ¿šEm@³¨#€£‡©WØ|A«M1y~[îa.^ÝX¿0}óÍŽ7à™áØ`_ûú“–é¦i‚óca™¿»¾™—°Ç7¢ ï¾#0è»Ùø—Ý®ç๸ÝO×s€f»î>¹ààç4Fíwôý ä^ªc½%(/YÎaSbYvZM sœ,ß\óÀxRÇùÃ`7ÊÈGø2Í“áYâ¼$B£Œh¸DûãŸ1(2Àåã¾- –‡§.÷-—Í˃³4°±&@ª‚Hïé(ìâB¡ ù’Þ˜Ýâ$ª•Ã y¿««:¼e€Ä%ÐúCü|øe­ÛÛ°â^>57i áêñ9œ–Úù/´Ì%ÁÆ bvrv™åê_+1&Í05‚° óKsTC36"f¹C wiŠ³#ººÉ[¹1vïa<ÞÑÛJ«íäá_ £˜â¼VHÐ+¼,oŒ5Â}‚àÍÏ pA>ÆãXÌâ3Àu s;~Ë¿}jH±’ ­Ú!3Üòé “ÛÂBÅêÔQ2†‚:«ë5O¿LËÏß!"éǼK@f§èûžë`<9¶BÜfk¬` Ppê…Ce Ï+:‹Ñù²pS&ƒÓDùÝN÷LˆÉ¦•<ꥮˆtßbsœü$!‘ôK!h÷ä"¶"H`ÏâXîU0ó»}¡G skHfgdÂÏìAãob1SZ “ZŒ: rA¾j²Ó³ÂVxŽT aÏ «°wŠ2×4…÷ÀgéÀz5AhÎó ­Çö2íÓ ¯ÕÚhŒÅ8Æhü=ùS·úqˆ`³ªTpèxŸ…¼OYó P‡’„)×(“oitœ#<¼œô§k3­ÎÉ;Å#ïî€k‹?¢4Jp +¥ ÞžÇpð3‹NÄpI^ TúÚWJbdÍ#߀:=­ Óç„Q°¯4#¡U*ðÀ:! ¯fKña¯¹ýóx «ŽoI¢âcàGj@9Ê_1€Ôq÷ŒXïb ¬u¼óN•¦‰Šóù)hî€&w‚[ÊOïü…7ÑÉYµÂ‹ô–à,UQ#½b6Z3ŽÊ²^oãÛº-ƒeB)Üb ¥îøe?9`°ßñx°‰<¹A€j! QJ‹yvúTÌþ#£mL{¡?•_UÆ|36t¬OÙ°ä#¤LÅ€XðF7ëäZãѸ"Pyar ´/ø;HÈŒŽRë-7s ¤íå¯"õ+äÜiA“e¥y»¬4ï椈þðLl… bfT Áñ€n9åÊÌzK¬§I£›gɳoóò'ÍL‚†åówõx æü¨-ÆÎ!3€Bg%n¾ª›}ω ¼]ä2 à• øY˜¾/+d¶˜ç€6‘{"4æhg²Y`ƒ‘ d“ ¬TM)Æ{Siç]s­™ƒ‰>…b¢7hŠzàÖÏ!`M©ìV3œj¬Õ˳aÇh£ÒxpašÑÓDK“M^(1[=lÁ ˜6òn´Š"íäE¬•(Xi¸{Q©SëE_Ѧðs,?“å3Y¤¿i}kC, i#åžgd×CQy_óS/T(eVP~ŸWœŒrŒ|OÀ˜æ¹Õ îøC@ºg½W:<9оþ©ÊM‰gÌC¬ ê<×sq9!šs^2ë iWj/ä%§þ.›DÁÒxÃ3£A°ò݆ 2ÑàžÑòvVý]ã;ÁµÊÿ!¦‘àÞñY~lÔÒ²xž;<ÔoiSÁâInœgY]ˆ£¬çó¾µ€90¬@T2«]?æ ÇƒúGšòF­&iSNé[æYS¼£ã· ­ûYë [ÆÝb?z…ÐG6…€ѳ‘ígwv‡‘«A¢-Hж±'xÜŠ%£õpà—SjÏÁc‡æ"9l໘NYÆë2ºŠP3äc’Ì(]|ÈEÁ Ú­³Åy á$ò¼»Ösð–Ä*ÅîPu¢Ÿ´oà@Æüb·R’‹{[ýMc¹e±6fù ËD˜/ò2¢¢ù_ê± µ)+ ‹óC=ö^Ñfy|Û’FÞ‘†|Ý­h7Eƒ$+å9¯oQ|Jb:ZE±j¢íqÒrŽè(t}Œ—6Ò»*‡HJûŸ²ÕL`$z]W!=ÇrÊ\ÎsQò¼"ˆ ðA{ÀKäF>©Á¤ÿDž|+"Þ0iÔÎöL‰‹M˜}ËÝ@ZmÊ‹ÐjÓj(uŸ³#SVÄÂBÎyfÒVÛ:¥à¡­¥r—Ï MWE±ç:¥/[õe,Å“¨\Å—àD31LžŒ8ÚÖ4q¸ÇÍ»Ãj~Ž81úzÏ@¦Ü2(½VɆÎð®ÿ²J"ˆ€@r+ ¬cË‘& ÅrbqeB8Ì÷< ÛzÞÈ.YoŠ{?…ª7•±~C rÖtvA ýÈ )ÒÔá„ŒÝr®ãb¦~Zõ°~•&ˆ )Ÿ(ïUëJÏ…‘A>Có]Ù²òŠzV 8tˆnó`‘7º=§XþĸlÚÓo'zÈѵÐ)?¦ÒúºE–ç´ÑÐ À ýEyÆÏ`s`æÎ'ŒcTr6Ò]ÚD+ø”ퟭü¢­…¼ÃhVÊF.k2ZªÌcÏÙ= jÕ— º~_œu5Ó<ò› ßÒ÷<[HA‡N™¦[Úì:ÈŸWÞõb‹qZ”ê±±Çã=k$))Š“-s0u ¢“3N€¥#Æ)»bÅï¥`û;–ç‚”˜Ã‚Ôü™e™EJ$4:« •sp¨:ŸRˆÈPYµéú?–•8^ChýƒD|r˜‚¬H´³p)1¦¡:¹B5™M|ë Þ¿‘`B÷y®ˆ³`xEÂd#jš-áJL¿+K¿ýñé“Â;þêÇ͵A’rËråQóZ &Ü|½û½Ô 3Ê&;ÜÞÈÔÖDf2Úú¥k±‡^<èóìôâ?­êì#€-X=þ? uY¨îj³õ ÁøZÁ vŒ­™…vQX)öü{ÅÙÊ€‚Ὺ,³ ‚ñ—‚Úø‰æÊ/ -˜™AÁá+fè¼ð‰˜åSZ.³%«±E§§ïNDPf€ h{»o¾‘@æòaYlÅ4©1`á­„¾æ Ï“b€@;CpÝn2RÐÍmy@×k]6Ÿ« ²mþýP꫺lí²ÇyüúZDᙬn²{ýî»Â½¿<k«ãÏÐ@ƒDø2êgƒm(o³4¾Zu€#ŸÂÀ¾¢ûØu°³8NËÞ¬Á~ÿPVÍŒ9%\ásªRFR%e[/ÅìHÂ="Yü®Î©üX4ˆ%I1“ÝäòTx\3¯yÙÈI+‡£ì&z£YšH&©v!(Ó(mX.Ëùbp(ѦCJ¼6Jg¨ñÿªæ¶Y‰3zƒÔŸoy Xø(`KΞ siI“FÉ ¼éEIyh WÈ`#{9fØe‰2i?cO“4Ö Ú1øAãQ ž¬ÃFf]YoD' ä¥i îVáw5æø@é´¢BFFP•EGÌÏ‚•óÛ0Yë¬àô B¶N. ïfLÙR•0öa4´`ÑíåF:$œG§ŸØl°a‚ŠÝ%wçD?§¨á„ÏY…:^ñZC²ƒµ~#òEÆð™Š$B X'0aZQ¡MŽËÆG2Šw³ËˆÅJ¿^L&IýØä'ôx·ÄnRr h“ü’'çä—Õ£/û8M&©IÑ©§,ž)Såf^fÒNؤô³FãÃ&8 ¶,¦™ˆ•õð‚Gt“•#¿U¾\(Ž‚™4þAy§,@`ñ–CSºÄ}þÐ(Cecù0Êœ“¡Õä ,œÇ"™S(Áf² g+º“°“~[…Ñyš i¥>ÆHô¯O‘–!SöJø}œ‹_¯az8°º‘Ÿ­jìyÊo4ž§›&ížS¾FY÷8%ºœehM8]á—IÁw< ¼©Ú ÒgäotøÚ…‚¾2ÿâ¶Ak»Ì•ióÅ1³JçB°È=V­I™D0V`ÕMÁaUz3´\_å`Ó²Ò ¸•±tf2ó…FÑ £—°:ʸ÷•_í³×)6%GV[EI»Âê².×&üÚÄ”,¦Ýå?ÔDâSÁaü6*°¡»‘£’ T¯¶±®áHªàίÏç¸Ù”|+`p @1_ÿJ<ïG´{Å"«JÚ(“E]{“32¦ùÊO áÆ–,Õ®dû#+)Y‚Ë®¢Ò aBøï®3ø&]“ M­5œÈä>b~ÆÓZH¦Ê+fz“µ†å’’]Lr€9ÁgÈ¡Ñ?añÔ¯µù-8\9°£f—ŠÉÚ.×ÉoBYúD5êÌq4]üÁzåq«ºã\‹¬o¢±ªÕ+2Ä…J5°M”ßÚÂz0—-£0@é¡0i7ÂãðÙuqg¼–,»`Ë8Ê;z_)³Ÿ©~ßR[s .í'ç?Xƒ"×ëÃÝúý2gûý6ê„NéÊ’»GK`œÈGÒÄ ç¢ì ã>‡ üÇ ƒmb]Ê 7S„"»À:…Bˆy2c]‡ò¤ºm\††{ψ&…T€†’"_µCˆâ, ‰§éxÿI†OŠÆ&ñ \/¦;eM¸Qâ±;Îéó|P$Åbõn?ÙZD˜‹EèË/Ä(ÒMÈÁh jåoüŒ©53I¹†’ù¥2V²@•žGüՇñ²N(¤B= ërJœÙÎl@Æ©§×x@~YZ3Šæ´&¾Óê<ò}? tì#æ¡ÆΙ{ø,P­¹nÙ|lâSåý£&õ_Il6¤½GUáòÈ,0Z01CÙC¼„=`…•×+.Èä[·ey.-ö6)ÛQ¨öM{œÄ+Úì âÒU{[YLkv$K!ci­ ð â}£Ñž\e¸ßaá¢È+k*g#>m.>_’×Wá<^-™t "¸$ÆsFe›ÈEßÝñ,m¹¬ðSÉ!.pŒ å±É2˜c"µÿY´N ¡brå hP¾}HÓà2uˆÊrySN"Íú¦SwØâž^âj èt1Ž Óß·Å52õ?w”ÌÊQ¸7±è<Â1|ìWPéŒå ¶(¥ëŠU©‚mQù¦ê7ª¬’Õë:vA¥8 ^gBá]i1ªR…_V½1Co1Ê?ÕØy[ïÎÀƒû‡*Kjåb7Ì óGx3äA/~?Ó樓éþCfš–F—ÅÈzéÞ—!Ö"·??yú_ïþx] H~ÙN€IéÙé¶À2˜ú9r˜r³X]£ömAý· Ø«Lt?h—4|½w5VC/Rü”8ã¬r¤Œœ;"f±}” ùɤ~­B›Šï.F½ñK…‹*=î¦ÃÔÄå¶"oÁ‚³Y…OÖµMN‹©ª-ñ–Ó¨xB»0f\'ÞMÒ.=àÌ즣:gÁÉD0‘2VY©úy>…8KãA9f„-6 x®á0r«¥¶ÉÛû{«‡çMjQûùŸ2iNîþ봞΋êùdMŠEÜåš”1f¿øtåf‹bukL~Q´Þ3õXqãÏy`žËNگĩŽ?›s`©Í¿ò;’÷ ð^åŠß{¬û†*†Òd¶ê(|Ðå[ Œ±(\¸ö¤ UÄÑ7M0jô™µ.ÎS2hEûÞ¸M4™sæ·]•b'£ÕÚ×0^ºRðMß‘%#yÞŠ †D0gÏý¢ø¤r¿e¯Ü«–5ÍƇ“ÙNΚ=¶`*åU:¯Ä½ê CÿΉ', }©ZóДÙF3œâ#h»O”¢G– ½"eä=§šb*í¨ðPª ÖïàˆVñ Ö¸øWÎŒòT{“ÈÈ9Ù$EÛº°~QBé0sbö…~Y‘xQ<ï2°²–>ÇsöˆD s6ÇÚõ¯Ù52-ò€*yHólE“Ù÷M·¯™ÑÀ|Â%ÌÇc7¶àô:›$I˜,ÐK2 ˜1̼L8pÊÒoóJ:4‘цÈð•¢·Â~1·Ú  ÔLŽ(¸õ#¨( ¤Ûy¹Â¤°ËiI›{<€%ª¬A£lO,Ë„òèKEÃLiŒ^Š`Å”âr®üä ’Š˜à¯ËÒ¡¥¿µYnúKå¨ëŸÒ¥ÔÓ¬±lCÞ˜M Ÿû4ﾪJËŠ¬Q‚}[ŽÝöfm3á!›K,*½Žä;¶6uӠÂ¥¾n÷’±m²¿VW¤ËŽKœ] W~¸¶`Œr] u[VE ˜&vçŸÇúPßÏh­/¤ä§/é§Çüß_êÏõçíuØàPKµ¼/#ÖtYä`’xÒ¨¤J‹¼ ™(%Š4Š„cnºú¡ôÅ,Òø2%U&+½:¬qSP÷=°àJgEã1µ•w ‘Ör´ÆQ,ý³/ÄØQŒkÁ7EuC—_W$Ì« ƒýLh_jÒÙªï3øs[Ùô¸úTEЂùaÌËò€(á³/Ù¨ÁÞ ®Á×Gµºb‚ÊD.¶.G`óËŽf‘†À»Õ%*"Æb/*°VêCTÛÿc‘*Z;gE_Á# ;ÏTè=HT{TÙ1ìbÔF«Áñ:ï øÆ¿1ÎX‘m•]×%2›½tu Fë‘Q”1WÓ-N:¡ÖLÌÉvA« j¾(ÆŠºI zM ð,<Ë/û¨‘seý°F’r–©ýðLÈ ×#á=`{ý*Ü1Yh›šátð l’äD;¨¿†lòõ‚u%tôêv5‰—?Li”)Œ›$/Q™Æ(6Ôxªã‹áÎQ]¾m<¨¾h²§{+T—.vìu‡¥Tö Žf?;#òåÎ\Oíaz˜TßJÑ£(ãT°¨ôNÌÎImFƒ€ózè+|zç}›¬„½€ñDq@×é"—¶ hÜì'»¨¸8Rß*±„}Åœ;XK>—`º®;»‹_!Þ’íéÍ.ÏŠ{Ô>’ç$8êΤ€#Ø•ÌcY›¶© úª¸üíz-§ÑÜL9:ol²›vP|Â` ¸¦š…O—jSâ‡ÄV—7•È{lÑžÛrlΑ•”Þ9Zl4°Ä«öYâÞÌIƒàÏRmeŸ#ðoßðĤKÛx¹+àh¼ÝœHqè€óq‘ÞWýUOÔ®bŠbòjõÜ4PtBÜø¹zèš;#í¤%»³»,úÂsÏ UKIY¼ì¨ .%¶®©F}E¬ËÊ…±…£úDÌîá–Ó¶-…ê£RX(«¨§¼çã éD2U~á1:ÝÐXMQÞ ñenÐóû–‡Ã~YÊÈåÜþ= y•ÁŒ)e¶£žf:6C–V9r,Õ’ ª_*¬(h*z‹Ê`5Ð67ÆN™Œ—d9Ï`r†`åx_oSÑ‹)ˆ¦hmÃÌ•?FÀŒÔÅiVÅHGx3çléA%¸ìø¹ñ®Õ檶m¦dµ‘«Je{<Ôy”úg!nM¶Ÿ–“›M3àš:N——6èF^÷v\³€Ò.!4nMN*ÝùË*Nö 7˜Ïl“w2’k©YWͽH´ÒmrGP¿fE‘‘ñáÌÞ‚â÷A’{Í¡AøÈúQB€û+jA™Xû­5QcœÝ·=*4Eö¼Ðhû½l7ÌÜ»{HAø‚3}µþ¯ˆ¢2Uг(ËikÔyC:(e6MV#1F„8œ6k|ÁNèn[®ÚLÎÏãZ„^ª©J 'Ò+䟮ç~<ØE,; Ò#q~6®So ­'•$ä™ A*¸Þ‘ð–ÇH%7Š¢ nÔrÙÐŽº¿zéäé:{„Â(°EdÜžhWèB+è=1&*ÝÓI´ì«!y¶ÐQV®L¢…TÀâ1K'Žƒ~ƒžQt0ó&iù5[uxáÇ\XÂoÅÈt]Ä 4ZéÍh,"˜m³à¬PÞÖ;3VZ^ʱz^«Ö3Û‰YÈ܉.Š­£ÞO¦Bï`cçQ$_—¸!u¾LÑ—°(îy Ìì—Æ |{{-‘×c6îÜ{°šg)Û”ë~Ÿ¸ï9°q4 …ÚȘæä¼h##c~²ØâWEƬٛL»ÈlÅâú°(€|úˆ·p³X5¾ˆ ÌJ¸D­ÀÜ¿;a¸NÁ~mF7p \Ó×Pљdz²=Ü9ŸEO_¹tØwVÃOD.‘bV‘qJzW¦û–Ü´}jÙÛ÷‚^ÐwÌéþ=•½mâžÂŸy¤4ÃàrÇ´ëgùÐm ØŒ:ê Há^>´NÅlB¶-‰¨Sô°wÖ‹µtoÔ:ë¢vT8ùÚŽŠê8·í¨ð±3¢&/œrþÐxãKM»‡)¯Ü««ºï—fžÜÃóߵm$7(†ä~ê¡Ü­·¢0Ëb0Kƒ¼nk=qT›oTfY†öÅý±'è,_ñú1T(ªºqFv^ZsW _15ë1÷Ö¦5<‹Ú¤86yçÔÁD¡¼ñ¡T$n{¶%Súþ±åö»5T¤o›{W-DYÖ¸v¥û q5Ñ®à´jU.0”Ì©Û–J£Li'‰NÉ‹"Ì5ü)Õ¬T“Ý!VÙ–¿äÛåâ›)Û¾Ë7ØÄ—‘»¶²‹F«x+L§¸¶«É#P½›e"{ÅQÀÛäÕÉ¢{㸓E×»¹½T‘WwfÐï¤?àŽ õߟ øÿa‘=gõʺÓy/E°üÌ903vîÄ·ü+’èNAÃlùñCu2ç]uN:8Žl\‹`½öpOå~7É°†4¡z%}Uä·Š§‡ú“ôøõ÷u7Ùûã¶ôGëD@%²T  U~bÇ~b! kXÑ#˜‹ÞÝ2Ñ5ŽjÝZ¥[“Ñgë\4ÿÁ|'óD&}lÄ‚¼BrUѤw‚YÚäÍ„Mëeñ¹;Å  5P{º¨âƒØRš> i¨p/8Ùq+ÐMaÙÍ÷G~5¿E†Ó»v?2c^ORÝì5‰öM÷ü²£[Sül¯Ü4æÅÇè"ÿ0—>å•4¼çÚ¦ð®èUƒFu/ò:ÇumR ͧÇî¤6 ÛÝòUÙ ¶÷+Öm{ ]vÔ ÿ¤”:¢¡ ˆ[•'’QR{wWBó·ë¶F­²ã%kä_•"îúXœÏMuk¿9*æ·Æ)vÊî·Å]_6NEœÕ®ì·bÑH†{7Šq𙉘€ÛªeÙCô„<æ 呤ø×ÄÊ–Ý=›Û~:ÑvQå/(™Í¯Ë5Žè­û%íŒ0c¿ 8êQAÕ=Á_˜çN*-RšrB‰<Li\X «™Ùüÿ8µ—K®ðG»ÎtVˆËÞ—kCj.¿-þ‘¸¼sÓ¿PÃWø iéçÂIˆŸã•b‹|úKZ:x ì;¨ ¢ê›BYKïkk™ Õ&¼èu{vô®¹)äfN\=:vÓ¬l²«èºzn–GSÉE?ÅÓCý™5]þ=ÐtÁæ,-3¾~¼ÒxÜts±ó¯n#&Žë‡7•hÓ=¿Õîk&ÏóÛÓY¦N—?ÕžcÒ÷%B(*bµv§noX‡ê7u7P×~[7¥î­ì{„+™‡˜º7/å’ôÓ7/QšAtâé—…j mšnÍSEûC÷ˆ0 Nvo–tA´´q΢cܦ Ÿ£jû‘{Ñ-†<`ÃK:jŠ›Ô¼Ø²ß$/Ü Ú¶.ŠF&‘èbˆ”}Ìýð>wÁSc÷¯ìúW<ô¡þ•<Í·Å c÷ʸ7‰›°Á\ ŸœÕŠá„._Ñ0ì^>­Æ®È`Ø”!²0ìÝÿš‘ÏÇ6q ãäønÇrõûQÌ»?ñkÌæ Õb0ãÍ<‹jeóµ“vë&5áÑ»ÞÝd„lHWy…ôDc"MmèƒÌa•ðùº»·¼LßÞn=FÝÖµ8ô3<_”¯ÖÃ#ùäpÃK“6Õñ0˜F¾‹˜ða°aï®?ÍçQ¾\¥pIÉ¡EÆ&÷ÑÓÒ×m}PùcNäÚ±¦ ¦Ô>Gë dŸ•yCþ}À럯K#ÇMÎ˦¼¼‰ç¶p¿A\EµLl²Òk†|Ž·Õ¨«¯pèÞGôaîÉ%]L´¾æZ6quŽ¤ÆõÆUÏaqù϶ym[æÛ¦b=´ìimÙtª5åšd§O)¤Ò/N~Pñrl †NH–¬bä+¢mxv›ˆ¦³W@'ÕÿEæõ¼| $Eðá:ò I¢••n*;·úä>¼*Cꂽ@ø=ü`û°³Y°”Ò<ò¶î± °¹±Z]âD[X`šNܪÎ ï;眳T{ƽÛx6[1]vƒÕ)¡å÷ Ö¯À•°Ñèñ¹×ŽÉV·r”#»BÉçqÓLNùî\8LL›‰Z…êΗ‹bÒ4„ßD{ñoÝ@VЀ,ß»‘½xy4Û¶&ÂÇÁŒn–|Á/¸öþµ.Ûä«~&E˜‘‚G”ø&-Þ•N‘7bKÄíÞ0vÈ]¥ß'_ ly‹xÝPÒå6õCqU͸Ûâ†|šú‚|,]-÷^³ üï“&nendstream endobj 645 0 obj << /Filter /FlateDecode /Length 6236 >> stream xœÍ\[s·r~WªòÂÊCj¶J;ÆýâªTŠ¶eË>’â#1vN™yXQI‹äê’Y>}Á ³3$%ËIÊ‚‡týõû÷=Õë=…ÿ•.î}ñ4¹½“ë{¿‡.îùìM´ÏÇvr:õ¨Ú<½÷óÞ%<875¹Wþ9ºØûêÆÕÁÁ£>«¬÷^Þãõž1¹·:ìEûlýÞÁŽ_ºVªW9kºí[h;e´¯VkÕG¥\ê.á©M.›ÔmÎWkkMŸ´î¶/±mû t÷ _ÔÁøܽ¦V**èm•¢IÊtgÐ6ZÙºkÛæd}è¸ ôpVv9]ê¤^N„ó+˜ÝÀüoV&¬ÉvïV&ôIéØm®p¸lu4Ýqî¿~À÷rƒL6}€ÃP{/îuή~…>Ùìi×[ öYŸzcãÞÚú>…€]éžâÀ*§¨ì0‹Òú’&7Q…æ1®Ée¥uÛûòèþRô:óöÄ «]ìZ' ±½‰ò¾dà¥öß«µó¾ÉtîcÛÁ–¤îo+x3'cº·ÜÁ§Ô=zLÛ˜³ º»ÏÏ“¶Ý÷° ÌØîn©Î9v¸HŸSð¶{oyx»»¡·º'ãÛ®;À?Ã;:–ãvJùìºFÂðóCÀÅŒC‘ôh§m(£öJ‡î¡X×ã*˜ÛÕŽ]iíeøš;[†¿\d¢ïêkùï!ùî°«Òj” ‡+!Žýj’…ICwxø ¾—²§m”Fw¿áFÁ. ëÎñð•Otêu]ØŸ¸³¡‘HP0Ä)TZYV ½âƒ^ §•»Ÿø­%­P(éñ¬Nø¢jHÑ?¯œi” 6kÜq”0®½µ¶½÷,Nƒr)k5 a ¤˜ÞùÌ óK÷ø{’>¥ ɶƒïè¬ßªñÕ/Q·‰ç×bí…gÞBáôG¡)û—]ôÝ)}²ÉÊ4/ëc)‚¸àÄ£9=k#ÈŒï¾]Á¡ÃÃ(1Žö‘šc×OG£a„—„­QÃm¯x+óãvfŸ£·®ÖµØŸ}Bè ¨oZ±x¿Jä`ná Jò5OiS.pA°5ŸDyqÃ*ëA&%n3(ãÇÙ],ûo›ÞRÚ7|†)Y„yØ)@gȳ+×}CR›=à\+›ž¾'À!þóªH¥’²eC±Lƒl}Eûe² °¡0§Ž>ôëV>×N:ºÄâV®ˆ4¿@¢¦`º`žÊ‘Ô‰·ÿhåu¯Hí†0þÖðç¥ì)þ>ÒÒî|f[@1åùñ´Ÿ"Ç‚=‹‚] ºu…„Ѐ2¶Œ±N&Û»ŒËr†”öÅ…!m캩]OFqºd üï†Òl"B}cÒàFp‹Ôq뵶=l‡qŠÔ„¡ÈŸc×÷²žÉÏ$ Æ'‘B@Œ¹Q´r÷/µ)ý5áK€b¤#ôvÝ9໺5Ì02Êkš@b°l̼E’gA…§$`ð¼ï¢[”3lÅ+ö[C’üd ‚ÔHOúÙjŒÞQEÃvûîávsr^!ùlT´Kî4úaÕEA“ÁCÂp¿Ì“"ù e¡[©SlE£3FßsyjãÔÇÕ¶^ñȶìÛÕ(ˆbÕ’lT¨-9ÌYEnaÌç¡á0»ïpèr—º}~ª»´ÇïD‚"Ð"äB‡û¼˜yÉÔËålÑ’€þFðW¤Ïþ€I Eþ»€ ª]#ÃGõì߈£¸æùž8ÞõÅ“«Âl"0ÏÑbˆ¾¡gUŦ1"Ð!Ók3‘wrBl›ƒqºù|•YØÑî¼›!¸”`9ìaˆhŠá$r3Skiõ\[þ·ž¶"=õªâ@_÷y×_ñ3©ç?ÃÐZ0„)Ùá}~ŠÁ´ÞÀ<â¼Ç3¸æî(ìèUOÞC”:9a8EÑ!ÈñM/=Ô2ªŸ àÛ7µÇé<ÄJ/{sßë-qð«§yêï¤è˜t£ˆQ÷&ŒìõkrÐ5¸y!Îäuƒ† :û¶)xÑ€†íSI%€“kšÜ€Sê~ct*ÃÙÀÖÙ…ä0ìqí ’ÅNP°n]w,õ  ZN,ûžWöû^`VeàgÍM°lâ–254X„Gð8Ç €ü´Š>¡¯ª³°ÙعMáú>ÁÔÇs`ë@ ÅA"œcʼ=q×ÉØ7¸"˜·´ID:at3Aµ!ëwHc&ÃÍn¡Ñ²)u˜4ü êX)ÿßð'$÷¨ÒÁÁæ&pÿos{ó©;1ñ¦6‡¬XpòéålßóÚ|_Õéº6ÏfŸ~\nï$ÉœâlL{ Sƒ&’:-[V)KŽÑ^¢êX%ìmµ›cýƹ¢CK)íJ‹ñ.ڜƧ  ”k¯FíXèÐ+¢÷>²6ø&Ì(ÇûI”Š1Œc#ÃTDIÿìz/ Yn!‰rÉCàÔb’ý22FTmÉ1BgRM7GÝò‹ðaÝþSÞ•ÒÔðÄ©á‰Ä¶°@ª”¬€µI²Êëh58g§™uªD_á3½®®‹¨q¾Í¯µy<ë‰ÀD?;‚÷D:JcS¬a3;Å«Ù'³+û×Rîh=_Mü<";òò¨¬ñumnjóús;ZðçÀ6ßZëèw%JL½a4H±$¸ÒÕb[<†T%Ò1žû>wh󖛈6?”§ÃAGì(:ÎÙñçœôpŽ«:Þ@›§•ÕyBvJÕËò5ˆÝ|Ú¸Zó™råï³V8èÞÄ|wÿÁ ܇…ë*»½™J³XNô¬œäӯŔÉãí‡e$ÛÉ wc¢m%_òÖ²b"ÿæâ8¼£—¢#òŽ¤\ë ²%?-G@V€¬ñðP’çíwq4ôF>Ýioâì8œj€$³ÄE›Ä›¿‰ÕD¢>Ë“Ežp…NxxÕqq8k@›n¹_²=äâp­…\&Û\W²x/s¬ªöeè÷b&ºˆaÂk1{< Lñ¿4Þ]‚­<7{ë楊¤¢:o×!ÂÏûHïÀë’o,³æ´Ó¤ÊšJ§*¦Êâø"ëÁY\NAS‰µi¯%U(ž"ÁڡĆšõ'”Z[¬b—àVð1.VëBâz‡•ËØÀÌ¥Jbt-„; 9àå}šzÇûüý噺qm}6Å""P—ä!à›$åú¶²šapÛRÖ)…£Ç¯f=Ÿ÷I‰˜ƒë‚•1¡­ w…ó¯àgqzßÃø 0m"ä·°ø·µ‡À¢•·6ümy¿*_>m[©>L!Ê\›ØþHÏäž<çB'0KNâ #@(„A&þ$&Ü©Ø_Tõ†ŠÝâç‹Kžƒ4À—”O«ŽPAÅm!F“üŽ4®Ñ9¬Ž%åÅ!È >ºE¢1"‰²â,…¡0È `%§ÍñI5úŽ» ÿ4–koŽ„ÜóÐT,±`(ŽyJ¬Á:Ž°/„ƒŽ¹HR÷ãŽQÝ&~ãÛëqjÆjøyÎ% ‡ÅáåþºN ¾pžßrKë¨Z[Yòw^{+îáœÍ*^ñÎ\~×pˆ6\·èA•é7bÎ÷UmÚòe|¥ ÇÓ–ÃqónX¬µD­yÇ¿cõâbjÎb Ãó‰“%¯ßëluSnÜüX-ø«€ÃËâ~’”zÄ+‡ EI³Pü&ÊùvG²ˆ.ÊWéÂß…™7äèËÇÑú¡† d}í ¶ãx9ï^®Æ¢Ç…K½0 Q®9¿,OÓôî2®eȸ¢ U cùÚE€¦ºb”[æt/pÖ/¥UF}³‹³/„W\š‘NN-dlj²çîåLKÄKÞ¯½ä#/¥ìË5?"‘âk¨¾&RâØÒóÝs?{[;/Q àt€§îœЩ4Éö/øGÛWxUGS"D–ç}Sç¿Ï=0z0'Lün†ŒK‹•W w‚#ÊgÜÄ µ‰Ã5x‡|]ó– bx;ÅÌ^›u–…ÈYe¤,õ´ª““ÃX›€Eè€pËU¦ï;Àö}?âžìpH˜¢ñ>%CŒ@p5/~§1V*Ì1N ®UŠ“H.Çû¼WâÆj¸ímÁŸÕÉ^^MÃÚ“á}bz¯+ý“?í‚~9Š](¡³±z“ŸÂ)<܈ˆ˜ Y|M×Ãó‰ix"™ô;V*´BÍå³qDaÊM—Ïf•x%&¼©Ká>,+÷©  ‚}?ê B(¥´ §¯¹7:¿27ô‚Þ4Û, pçÊõû™°èâ°øØß*Ž-!2_öSV:V$,#9‰Ð?[+“GŸ‰:’Bß9ày]¿ObÛ.é¥fA”­Ù朆w‰¦^ùøIÑ‘€ 9ñ PR_ì’Ê?À[Ó8(ì©ŽZ/¡xÙ´H  bü‘6 •ž®dÔtè0Qy U„©Êë•Ž"jt!_Ê|ùß|ú 8‹‚;àNï$dh#@Èd J\}š†Bê ß@–OµEXV.yš`fî)ðÞˆãf™éÚd a¡R¥‰ÆÜ„„?®ùÍfçk„çˆj‰rH""‚uã¢ÅB~BBÆ­?^³¶.÷ÞÇÿGLåÓ|®×äžw+Mïr¿].ÿ^¾~Ü®„›<ýLÃìð5™gù ~<@ù¾ð1™çðúi¿éó)‰¦Û®Ë¯`ý$ÊBe>øßÿŸ ¦endstream endobj 646 0 obj << /Filter /FlateDecode /Length 6439 >> stream xœÍ\KsGr¾ÃGÿ„/ê‰àŒºÞUºA2%JKÉ»eGxH€ WF €¤¸øóÎGuWVu÷`@Éal{ê™ùå—ê÷uÜãŸü÷ËˣϟE{|qsô#l¸úùø .à—Šú<ν¼<þò9ô«¼…¦Mê“:~þêˆGTÇZ§Qþ8¸°IÆ?¿<ú¥ûnÕoúäµÑÝî<Û^Gx¾^­ûMè{»+h5Ñ&»íÛÕÚ½‰Ju»Wøl6¾WÝøCåµKÝ-<ª¾=¼Ï} :öº{ÏZõÆÇîû6)ç;~Þ°F¾òR¼Rur ¿‡Ñ5Œ»ÒF¦û°Ò~{ºí5v—Œ º;/Ýý×óïpçÜ ôÆÃaôÇÏÏŽ:ëVÏÿ~´¶V¯ÛDï±ù—î õh”êƒïÞcç0UgaÚ¸U)&×½¥ÀÚu~¤ÅÀè&À¼»Çiö1™î„›¼xÚÑ $S§R§+Ú¯¼ÒÝfµ¶pj!¥îôô{ZpJÆ«nû;õ¯}ïå¾]âò}Òª{Wvê’3½éžŠÉþJ›–Œ… ö—`ìjÚâÕ×$AyßíVk\„‚!ÄãáUêN~[G÷v‘{¦ãˆVƒœm_Ò4Q¸^—iŠCB¡-ƒsµãV8ðÿ\E »g ó(©´½‚þºíU‘e)LÃYô¶û ›óë»KxD *‹“†e¹èºèDÎî wΪÞÁäøaJi%*DÛ8JŒ·ñ!KØ/õ‰á» þ^³Â(åM°ò˜Æ¸ØÙÚ$ààŽ×Êl(&wš—l’ãó0 ¶8²†±xí¨µ{-I™V˜W•lÈÂÛÃ{ºÖ\ùõ᜻¿NŽV¡4ï^Ð$\ » ë”bÄcF™øQ éãÛÿ¶b%M}…bFáž[ˆ¸…«âeᣠ$õ°°h"OŠ‡¹'½-/#®x ‹P² „5¯6´ï[UJp¨ ¨ãçühè±v |Éw—EöPRô‰&Q g—+@wÐ#gsųáåÊ|åÄÛx@z!ë)qCg­ª¾)P8;vÞ ¯"¬:챎{ËØÌÏ®·ðÃÝÊ‘9è Wjó<€áÁ©¥ä]à9ä…ÈWv$ÁÁ¹‹³™…fŠÞ¹áÔáÛï*Æ,#Q¾í7Á +KU …z5×¹‚Ã×fx;1.ǸÈ0œ÷†5öÜèþnÅZ`8••0FçØ÷>Ñ{<àñZã¾çמFXx à÷ŒÓZPÍ ©)‚1Á[±{ºRØM €| þ(ú©±1M,GŒ0´'Wü+¦ç'B/“B÷¢`¯Àú-+¥³&T wƳAsÿ•­]qëœéÁ,U6Eâïm¡ Âáüp⯄­¹ÎÍ ÃÂòo%„°µñ (ÅÃ"ÞC|U~xÁK€­{<^<ÿfd1Ïq“´@t*ùTöY³¹,´SÁÿÈ“A*õ ÍÀ[33ZÙ|- ü§ñƒðnߊAÞ$ÿg9† ê¬ÃrNSûór:4ö…O ˜›¬rÞ‰<+g!v¢i{›…ˆ¯bD\@|ë7®wªF|ºñIòòá9äド¹Vz rN@—)"Ð_¯ ˜ó±5øçzÙ ÂoV´“aÕ@œ¨zÆ]©l!…¡ã­×pð#Ÿ~Y,…°/;9¾«} {Q~ô±>¸ ¾Y¤ç¾OÒyì2k*èøÓݱÂμÅ&㳇GLÞœƒõéΆñÑyoHÚ´Fõ‰ ýRÛˆÿ’ùˆ[Á8JÓ;<Ìî¤ò>Kf‡!éÔ¸­(7 í¯¼¯óÁýÇGÛÚ ¾)Í(½ÜNÐÅ·£xð#QçG=´ÔáÅ®¡Jk’FuÇ‹þJ äÉ^Þô‰K@É4j‰­a´Zg–½3àQÕñ²qË¿ne âéÐõL™¶e#‡È•Gçôôk’38ßÊ8ý^8ƒ`,gbã×<˜†)H§’<Þˆ‡&ý©íU±g»%aY‹gòÙþ‹h¾Ÿ;å_¯û¾ÒFrÈ­é¤Vøx¢‹†áäe}¿š›iq¦÷Ûõ¨'WRV™ië-Y»¬È7dI@F@£t…󫨀¾ÆÚn#èÉ<9Ðh¦Ó®Sc‹ê¡¤±]7 a{@x—?5Ƀë,8ÄØg†J5a•Mp™:HHÞdxÔ^` ™GòrSNdçÀ èµ;œ˜”Wg0Övç7ÚƒÁlœ&Z–]4üÑßF¶†_)µÎ³cd3À°@ôòâ‚þ­7ÙQ »KNŒ€†\ÐOÕ=À†#Ž ²ùµ8ÅÚ¡¨ XzšC. Œ‰Ñá‹|íp|’áy3Ø}†¥ÁÏHô7!ÜÄ^³¥á°R¯œŒy ÏŒ<#˜•*G¥îŽ3¿àE#p>9o0èŽ2•R‹0Åî‚L”2ˆ=Šf1&ù3=ó1ïD2-ž@«g;Ž°¬ZZ€c¢³]‹ÀØÉÕ¸támUÐRzy“aÆn¬ñA¾°)³jf z·‡¸áðç #¼ç b眦èƒ0h'ès+4Ó»²/@ Eßy˜Ÿ•8sň¢Á7ö¼" $Z^I½&à›¡éjœÂù,÷€%ÈòDù¥Ó£[¡–Ý «çÐE)Ò¨¼] p§œ‹|é=h¸kÌ¡ã Œ€!Ù‡àaÀ+€kÆ!˜FƹG@ãÐc«™ß7¹9M0ƶc" *ÐýÓÓ*¸#>ÚK`)±Ž¢QEPê°•]½®`‚ÞÀq/(FV>×&G ß œÌ¡EÂäºJ,~7B@ñï (ƒÌ^ÝäIÔ|½š9 •gcÇKXš¥“¯2¸ÀÚÃ.×cÏG]z(Èå˜"#pkTx–)€"F~ 6(ǵTuœ.ž–)ùÌ‹£„QÎk`þÞ°;È¡Û I¾%XIz³Ï‹u v_pNÑ.ÀÑ 'ˆÛoY5nôèÿ”˜‡µÈ8V6”ç7@éï+Ç^I¹®#öýÙŽ²3_¬ÖÞ`ê7‚S?àYCÌ׸TxŽBuÆDNÍdX“³½Àõ£ PEϧÍæ„ØZ@lÛuÞ6`·uÒkìø ßðÈN»/i½àr{¹Þíôdê irIkôǶiÒg8;‡áb!¼•`"»"Aí¹”QàêÖ"{+i^ Sg‘ã­í1ù._¹ „•ö÷;u ÑÁk¼²–qBצðÃÅ:8ÄêH±©ŠÊ×Ó“ÉgŽhl8ª 1¶CLÍÌYÝrÈBí^¬Æ4¨RÆìãÐGÆE©v]×süZTJ@¤LKÔP±N© ®Q2Ã]½ïd\‹ ±~à>„\ó´CÂàÚøžÄgBp¾Ïø@o‰¤ÛCÝO¯0œ/ýܯ‡kàT)ø8Á±¤èæééô`Fç{ÆV¥2bõ¬èà–x,¸^7“ÎeÒi;ƒfP™Z„6N5W‹0&$i¿Cw’‰«Ç¬ýÅN`Q#ߨdˆuÀ´ '!2>JRA€—”Ž pÆx"eäxÂE'¹}•º§â{\ð_¾÷”]8cÍU:º×f©VC¬P® cÀ 8¹CXPx C°Y¯À(«* ,²/ÅÈçÜÆveô¸ ¡RDu` 1ˆl’sˆX Œ82§@G‹âïÉ£'²m߀­Có,Ǿ—çj­6€þÃé=_ϸÓÉ6['M˜0¸óõ ’}p5™sN/³à} 7V÷IU5ì‡ØR…Ø%CUwj’Ü3 ¸žo\ð¿Ð øÎ¥`.ª’îFªé²U.TPúÃ#n¹ú#ÅxØÊoUŽ‡0J£Qµ0°@4—QD˜î ¡vo *l¥÷Ån›·ÑUÉ…ת«ß÷ƒçTŠ wò‘q–x¾vYT<î$P“}ËVN?Ùj켿ZÝuZ’y`¡Ï0åLHá!ØŽ€_åÅÆb­Ev2ÍH1²ã›kêЭñ^&– æ¬rçB³ÂŽÊ(£eï¹¼);Iuþè›®ª˜b;¬°ksÔ)P,¢)mÑ)"„±£Âe Ufjꦻö4š ĺ…Híö:¿þÇEFp FÇvÖ¹,*zIÚâ`YïŠ"õM±ä³)î6žñTŒ&{C¯-X Õ† 6ò°}=bž´ôÅsôÙÇ’µt„Ÿ KvI§y³ªZC áz¿àÌ}äÉ#&,»U¼NdX¸qø¦þ0ÐøÚÞ甀ÁÀ¢ÈkõÀãG¾”ª„t±KýÁ“!>lr|¸!UvIÛtN•Ú’Èq³±à¬/§*§YØîoØ7¦ïŒ¬ÜzÄ­­m1—w…ò·©ƒÚè1ÖL}ĺ¸8–iÛÆàZ4X¢o…_Ù†™§¾ÕÍœRÀ„{Í,GV„³eÀI¢Œ“0,7ëÐÓíé ˆ<ˆ¿÷|©%L9˜Çº,¤Ÿcš„šÓ$c¬‡==Ù×dð¶.áæs²Ý­@)Y}ú¸„ê`æè'|l„¢>f ÛšÂ(_­Vxš =Ü%ä{‘Ž`‘ëvØy¾§p‡øg]õ:¼«Ý‰nAߥ?’­Åt¯ø‡^¹‰±ÀöP/báZ˜òìäw¯ŠÝÙÄZn5j WcpI¸,L8‚Yç°­¨·žåB :E}ï>îb«æ’goíÿjÉs Á¸ªTèdàòç÷¡ š×œW 0BiUòeè|ΘÔýL»Ók]]ZäÝJD¸)`íª ©2eá,ìñKئgXaŒN§kÙDlÙ„§¢nd'7£ã ³="t("cuM m&°Õÿ.­•£R»i<†ô=nÆòQÓQ¼*hWÙ½Òñg8‹HeFmŒop“ÆR8îIöu=–²ˆÚ+)J¿bÈŠ 1䩱¾¡•£’’àm”µ2È® °pe,ºXùbSF™Ñ`1 pžà¥9s˜Á‘¾®ô‹Âª‹_³G* %Gb…NÃR)^[~ö‘~(c—ò ¬Á”.ÿB\ö%/Å€NÜZÚŽ÷…„W÷ Æ}À<ü‡oy|<úàjñdø!‡•‹KÖIr Ô–[ԪǰO#[⢰¬Ý$—2im¦%ƒ×‰Î9‚3ðï©ûX;ëñŽdŽc6uêûw.nzk«ÈØŸE÷Ý3xŸVØiDÅÓðäç)SÄ2è4 ¸Õý*ÅKîN¥¡Æ$óú˜÷­‘|úÙjL žÈôÌ‹•ŽjþוÍÕŠôi6«XyBIúDXMmRÓR•?Ɉ‰µl-t¡âz4¼¹D±©Û†v%.§}VôïñdGgÛÍ¥Â"Taú°p¿ð#ÚÈ&ƒ&…° +~P¢Ÿ»wZ{Š]r¶òV×e؃5²æ ü1‡Iexþd„,Üe¡S€ª0Qô•¼ó 'ñ„S$ÄÜÊÞKƼ8GïM¦Õ7eðœI0g7ÚÖ“â{_‡äq§ubB9ÛHûÚ¤€wec:¸LhL_q€ À¾‰¡¤'uNJªýýÇê¶J$# ^Š’= º+u¼NŸ%“Ùƒá) Bw[ºÅ¢µ½WwR MA5•EO·¢~ZðtºDéþO±ïHå§]vÌS€ÛT¶…ò…¯l\ç¾á\¿æDZF¨Ü–ëa©Å>ÓTþbÀzä·QÎyþVU|E\*ùCßü©••ð¾2j)AÙ«OÒŒ­7ܦÖÚ¯ @3VT_4¸D€—Å-eöEA¼$×l§èÞïyŠN~FF•ØGóx{¤¾Ü/J—‹àèühge^8I¹ÆWIæßæƒWjÉI˜–ŸiÆ*¹*·0X8,ã"{2vBò„˜Nnø'`3f,AuâxÍæÛÕÿ” q[r `ÎúÜšä†û’E¥©ÎÔà–ëyžª&÷~s ff]2ˆµ dµý¶ ]ösíWf®Ó/5z»K=–¾Àî÷Ý¥xïUUìðÊz(FâÚ&•Œ–/ËÉÝòêø[b¸zxRùúŽ>¦“&…Ð\#ÚTlãR`± ²(QѨ|#‚bKüaYæ<Ä"Ššíîû²Œwn(lf{ðÍH\ÌbÉ”»3}öÁšÆ`Ú{×O·ïÚhÎMü[ÑïøäÚ|êÁIûIîi°l—š¶"£xYhg\C~ÃýÙá’T>ѯ°Ù‘ƒ^×ä&ùÍ»VßnzW¼ðÙ¯ŸIŸ¾6N#mÍ™p²±4ÇÃr(0ãCR(°zLPS¬ƒ‚Køsy×ä». w*Õ&h6?²}; ^VLI£€Î™ÄôÅä¾\Y…MÛ\[ÞaB£‰^Wž­Èõ½çŶ_æ!Éqx(p³P¡š?ØcÅ—"h*µCþ.†‹i!X׈š‚õ=te¾ä~é3‡’Žl‹ Éïͳƒœl|);à{i1dò:ÌG*Õ^oáïþ=¤°+Û`Œ,=®Ž¢ØwÑ…µœÌ_Tà¶ßËŒWN“,' á³å„®îûºŽsèñS È/?M¶§wîÓd‹¶Äº;7-¿ iãBhÃ#ò²Ã:lð‘«òo¤Ì)Ò·ÇÚèEŠD)[ŒÊeã‚˜Õ ¼ïL< |š”8©6aæ”Íó¯±IE&ícAP×Ú½ PQá)渓E?"dñ x‡—ôKéÓxMV„9ªÀDu7 ×~³2·Ê5šãæ˜úN­¬Ë^øy ƒr{¾Ã™ð#1vœ§]× · ÎùÿÁBL–žësÙ€8ŒKR)üÕˆjƒ•öþÏÅæuñ×û&^’ƒ´Ú½p„#a>qýg}‹l¾üòax@8¶BŒ(º§phO4Öôýb­¿ éló¤xH)¬-M4DÜg¹x-ª‡Ÿ€ú—ˆûɃÇÏÕ>â70X*¿7Ê´Ã…ÊïûÜh>ØÅd gMá2äý’›MïÚÙ¶sßETJZŠÿdU1I‡Â„}jMÕ´¢ŒÀ+c÷SñáÄgé¼°8¦¥Bâ5Ö$â- 9Ÿ—d‡ÀLÈ Ý‚WWŠ9ÎËlŸIGÄ[ËýcåN¾_õ3usìÔSNýê:âé­NÞœDšÜãl «Ï§i–R(2–b×°1)â1iìVܲtŽÓÈOª¨1WK‚ìI²vVk÷Ú  3íU¯ŸØsÈ~ÁœG"sé²ôä2ôUMæ-jV;2ðQ°·Õ%‡lÊ–¾È(®îµ×*øÊ·ÚŒÊ_Ýs3R¸s7D²Ü\ؤ üó?„¥9endstream endobj 647 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1037 >> stream xœ­’_LSwÇïåÒËEK‘-3²öŠÁAþÈ61CaÃÄC€¦60¨€Pn-*0&PZÚž,ÿDþ ùSÁÑH–¸1%aÙËH¶ìïËö°„EÏ•ßÃv]âãö´§sÎÃÉ÷{¾ŸCSMÓÁé™i¹§âŸ‘Ò~Z ^cÀ¶“þ,[J”³áµ/am–†¢~ÅÐôå:Gº`ª3——–‰üáâ(>!99)†?ŸÌŸ0ÌåÅEU|f‘Xf0‰òPÉç Å屎?|¬LM)qq‹%¶ÈX+˜KߎŠá-åbŸc¨6˜k %|†P%òYEFÿÂ^ì‹&]0šjDƒ™ÏJ æ*Š¢‚³Xd¸h¤¨l*—Ê£Ò¨ ê$•EqòT ¥§ÒÑô7'æ™&É¡’6m ÒË>zCq•Œôö«qoÌcFtÑ$Z.ÜÏ'1 þÀýøª†,‹:¾½?ˆAƒ Úñ‡Æ?î «©l$Á¦3Z1?¯º8•d?öáAZ ÃP;ñŠº}ä¾l‡µµ¾*¹â™«#³sK+çGu§Î]x¯B3ð„³ZuŠOFÀâ—³Y›O¾R¼Ë¶êSîUÏ<,À*Üu¬(^÷+^gUR®mÿòcê0!¨`Ð'Pã!¶Û¯ ‡ØiÌUè؆¸L>Â[¸¸X=¹å¨'´ìKÙ7×g½Ýšñ9OoßOœŽµWØÞo¶4\ëÍÀéa¾¿<íZ•ô™Í‡…SxÄG?À`tÈRÒø+C7`r¨¬-:÷@ç2í7´îî®EOoÇHç4ôr 7H|19‘•£53s¾—z=V¯ÜŽpsí÷:go~ IöÊ6QaÓ;SMïTŸ=Y\,îµúŸ®lux4.»Ë v.½mZó&~¨¶ m‚]°í¦²*£¹¤E6ZX>¶03ù;ê½²Ó[r"§g0ÅG)#õþÆHN¬ROxaƒÒVKÎÆ’HB‚MÅ<úèéGƒu`ÿÀaonÕž+Îq,`èƪoÚæ`º<×|\çŒúÚí1ùv·5˜“×ØVájѪðOñ¶M>ZJÄ0ï??èŸøCØ!Tô>ö/¯Á¾npC‡S¨s\‚VîâTÃØôüø²O¸wœ„%d&6jê(Ž³2öoÙ3dû?pïä€_b|ô³d˜(\U·B'ôskÂ2¡HpVb«]cÿôòR=Ýfã\ìÀ6Iû—Ÿšñ¬¹oÃ]øÂ9é’EdÛlßÖ(ʇùqu¸ÙnKyØœWµ:rç^R5õHÙ×Q?âíaÉ…® ÿ.TîÖì LVûz”J·REQ¤Kendstream endobj 648 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 3049 >> stream xœ}V pç¹ÝE¶Ø€qsi4Z'4\H¹¹¥’HCc‡b°±Œ…%Ëɶdc[ïÝýVoÉo,˶lkýÌ«ÄIÚ’´ÜfšhÉ\h‡>Rò¯óÓ™®°§íÜIïìH+Íèû÷ÓùÎwÎ!‰¤I’37lË~eåŠÄÇÅâBRüî ñ1ƒ ¾6NîO†¤$Å¿;'0EÿU| íy”‘¤Þhß /3UhÒ—Xš¾rõêUO§?»bÅêôu:u…æ@~iú¶|C±Z—o¾hÓ³õ4jƒ)}ÉÚbƒ¡lÍòåÕÕÕËòu•Ëô_\útzµÆPœž¥®TWT© Ó7êK éÛóuêô©î–MÝ6èueFƒº"}›¾P]QJÄüu¥ú •ã–ê|Óm…ꢃšlí3kâ b‘I|È&^%v¯ß'vë‰\â%bñ2±‘ØDl&¶ÏÛˆTb!‘&aA$ä&²{Æ 3.Ê ²ëII·’OÈsä÷gfS ©ÑGT³¬³¾œO!S¤ì™ÔI+h fDÈÁÉ2±i2CÁtrÞZ¨—ËV‹ß~p'͘_\¾X ×ÈZ¨.þ¤ûDà=¶Ÿ;—²ÈO¶îôŽÁÝ£#Ç{ÆÛû)ò>¼”gx+0ÊC[¡BÅ٘Ü•ñüŒÂ›pšc¥Z>äiåƒT­|°aÇ0…·Š~Åþ8å©âDe”3ß—!3ú½¢ã^ÔèÔ&¿Õê,³ÄZ§ŽfL ÇÚõȧ6m˜¿èŽA .°Ã‰Ö|Bòôz£ž88<å ?ïmêx¤zoÛhÝIkð^‡º¶R:ÿ›Oñµßõ´Óm·½1ÿQèP~˜Û¸l׺ò:UªÈ4öŠ+¢ä;×ÑédbHöÂ'˜ÀOàTLc墈’)P zR…›°]¡_F)ÇZÐ á<=~ýª·¨Áu8É`ÃDq­ÍzU›Têd‘Q˜|F qO6Ü¢:<Ã2¬Šå'ËîÚ–f³Çtñö@Þå¬È pÎÇ9Ø„·"%NAÿýáUaü§ôç7šïO…í¼“±•UÙuµë^Ú±cw–YzÖJœre´zþ ô(}öÊgwB)ÒßÙ8é÷4o ‚ܯ‡JNݹ%Cô…¢ãKœj5qË9•À¸ª¥“âÀΘè<ÜåP»œë@ÉÉ%ˆOð§ÝÒaŸqƒ ¸Ã|“;LÕÈ·7ø£­ƒèe_„î¸|òÎ@q3kí&¨¦t½ö–ÞžH|°¬»pkîk9•ðªÆ¨øƒNòæE”}Q&>%>¯p‡¤=”ŸñÙ\,Ôש¬RŽCýû ^ÂeQÑÊ×5톈™î3Äg¬§¬ï4ÀvJSñÒã¹™hŽCŵƒ¯,À1ŒÉ€¤±V`ÁEÙ½®€ç#]*¿¯µÅç‹iF-Ç%|Þ¿0ZÛkê Kãå¾]á¼Pvœ£x¸‰¾Ýy VÔ³õÀ¨¬!ÎÓÄû;@KË#A£#Ñw®ÈÄ~q»+,,Ôq§dXW0gcwh˜*º Ïuhm9û÷)KJ´-Pë¹ÑNßÉ{é tï -F<Ïe¤jK6ÔPÛ…ý¹ý“ß„ý*ž;¼ Í »¡çy¥Çí핆‘ÙàësCÀsDj+lŒN $±J 'ÐL™X/~¥Œ5Ãð iûØ|nè¡Œ×C%ÁÍY%Õ°QÃò‹'Aç–©¥ô`·yÉ+¹¹ ¬‚ì€á‚—ó€¨c}Âp¬ºKWµ¯.sëå]7ïüù½¿tÐÒþ4v‰ òÓÉ—e“«ÐmEìüPó?¶‘ÕsFÐBž»–—XèÐ%{Î2jVZ'Ž–Ï2Ž‘Þ]x¥íF=œ‡9¼rðMˆ¨$U(ãv³åà€¾Ô(×öB„”»Oë­Æs±3-5IEàþGQ·™­•¸˜Ë릊Þ·#P¤¼‚ÿà­ñ8›AÙÞ ¿-AGÓ.á!¯ œ­ loÀßL%´&ŠL]hu”|ë#ÄþR&6¢'®r{>cµéjêë€2Ú£áи»…öv£y¥>ÜtnÕâM[²Ía£0ÐÝÓ3µTò*aäRS¨·â{÷Xì»\ Ír,8¼Úg¯…eÔ‹¨={ûÌÕÖ jã›–®Ë‘šUž>è?Fá5>…SçÔª‹*+‹ÍÅ@í/é?ÉZŠêÂÒ{p~T¼.ÌM™¨•@ï99Ð5î–&¬eC)”ÃîÃÓ€†]%õ¶z§•ÆcWêâ¼l¼Êøtªø d!JÇe³ÐÁ¾| ²wÁç j•7ñŸÜV^¢…$79ËM•†Í¡h€Ïá¶ostR±ê`­Qo.*)ýɉ?J M3{ÑÐÿí%ß¿ÊîÈÄÄyŠÖY*Poç‰+âø1œ‚çKò-ÿíÿˆœGsBA»Ûiã؇êЦ¬C;ÊÝ6‚´ð×hþ—­lñúõ&I<öu¦ }9ùŸ g7Ç—IÊó¼|Ú»äï…íUvÖÊÙèUW¥-ïIPN{ë?î‚(üœz«\¹.Ü!>H.&órôØßHOƒÛÒÊ0øC¾ úëdj/êÁζa ( =êù—®÷áóO£­’¿Rïzx¿tÜm1îô6]eT.ñ¯•W‚ «ñ/¼6¥ÏDQÑùþ5™ø3ÉzðÜo‚)u?ˆK,íš3ëA‰çá4< /Ƴ?}ùÎKo´e+Rü[EØÒ¯`j€3Wi‹ö–îª0£>”<~•½p±û$P7º×;¤5dé©ÙéºÐú(ùîu¤íǨVÑ“üNOÚÁO¡YknÀ q²ôš“~»æ¯è[?Gò‰VVë²8U¯/_Û(Mä͈ˆûGZ(Š9nT]¯JûE¹7ÌÔÚÍ+ž^üÜ9$oñfU“”q9§™QipÞôÀ(g0Àóá êôÛQé½_Íÿ3zÍŠ°çÕ§iÝhIpG›:œVí;²»µj‡á<õÑÕn!Ùø7sÍP«²€­ÙããÝRhHÀ4I’C¨E†Nÿÿ»ø܃ŽEdH ³ _:ÇF$f½’ø$øo¢äê—¡«ˆUà#rËÎdtDžxà}¤¿OÞ‘fŠhmö^§3¶W Cýñ¸êUü±b°¢µJS¦Ó: ñ!6¬J5FÅ ¨´É•ã‚æ™Â¬k³U³’VER‰†RRâ﫧¦Úendstream endobj 649 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1039 >> stream xœ-RmL[U¾··÷x·•» ìLÃh/ºEP>ËFE˜ ËØ0ãKCˆq…•1h--愬ÛZz€Ê×:p¤T27ÔEçBPLˆé¾0èp Dz,&î‡nï½; Þºåýñžóžó>ç}žóДRAÑ4ÍeæìJL®·Šá´¸Y!F0˜´KJGX¬b°J9ô`(š6Båz(Ù@14mqÏ4[¬U•6!ª,ZHLI1Äú„„!½Æd­*3Ö ¹F[¥©Æh“7…sY•ÉÖ D¥UÚl–çããGœ±¦.Îl­x!:FpTÙ*…|SÉZoÚ/d›kmÂ+Æ“ðhº¸G9Ó\c±ÛLV!×¼ßd­¥(j]ºÍ¸go~AaQl†ÑÇd{‘]«Y¡Y‚«Í3°4yßO?Ï@¸I ‘È7É’Hô„±ÙÈBÂØm¨)]Dïä;6qùƒŽóß÷½?¦uMUX+obM³ö´uµvèxÑÖ< [¾ý=;­¿0b)ŒªÛ{q7>É]-™LÎ,®·¿¡u׺x\#g¿˜ÁܹMyîÛÓèqá 7)w`²™;äMýýôw¿˜Ñ¶q7´8¹ŸQ1lR7¤>ƒc®ø`à£kÕ5Ò&?{ψ2;¢Åÿé“(™¾z/è=‰=Ö” ^ •…˜„á Z¼·À€¾TC­6Þ~qŽ„èHÛÃÞe)4¨È­ï/¥¦Ç­N†—42ÈØ4œ”Aþ]`Ä·áWùÒg—ïàyn9é" Ó’c–Ðp‰…$ùÈ%ŒñžBÀ~ýjáΗ $RG¶"^·_ï^ !yª¯3â_R¼ºð\I_æHáÈz¢¨í.ªÖ}b:stêÐÕ·ú]~›¿®ÃŠë¹ŒtÖ=;SùÚêÔqã‚ù:Ö@,„Àpš¾ÒøÔÒ™0Xzb÷)|…»2ÿÓ³£ ¯ky) ˆ^¦!MR0bŸ¤T/#öy|˜ êeWþF‡sXV[åê-D4«J™/eÚ'¤ÇeÓD,3Rƒ,öôôJ¹…„>»s;Öäe»7è=ÝêÕÝËY}ðÈÕè9Ž-²æ†Avc¸,DœÕò°E“ô8 1ðxÕ¤?è4è—q“ö~ºS¼Éˆ7¥u§wàV»©ù˜ÓéÒ®|þO6ömÆÇ4M=Ο·«§CËÛâÞSðZà½"¥¾Ç¦×^[§]«4øUk¦½*Eý†ßàæendstream endobj 650 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 7123 >> stream xœy\SWûÿÀÍ­Ré- ö^ꮶÖ]WU\ëÀ­ *²W „0Âæ°÷N˜Qĺ'Ž ¶ÆÙÚjm«mmµ­ísÛÃû¾ÿ“!}ëÿ÷ûñaÝœ“sžóŒï÷ûœˆ(Ë>”H$/pqu8Áðï(aˆHÚGxË"G {þt¶BÖÈÚ²ièÁFX6šÀ†”…Hž¸ (8Rêãåæ0fû;gÌøà]‡I&Ìpp ð”úl÷tpñóö ð#þ«ƒ¶ûx†E:Œ™í<óý÷e2Ùx€ÐñAR¯9ï¼ë ó óvXåê)ðÜá°8(0Ìa¹G€§ƒÉºñ¦? ‚‚ÃÃ<¥.A;<¥E­p \??hAðÆ…!‹¤‹C? [îá,óo[¹Ý%jÇrÏw®ðZé½Êgµ¯«ßÿµëƽûžÛø÷'LŒž49fÊÔiL6cæˆY#gúpÌ;óÆRÔ0êcj5œZA VR³¨‘Ô*jµšM¹Rc¨5Ô;ÔZj,µŽG­§æS¨Ô{ÔFj!5žÚD-¢Þ§S¨¨‰ÔjåDM¦œ©)ÔRj*µŒšF¹PPË©é”5õ:ÕŸšK  Rƒ(j %¡Þ Ü)–z“²¥ì({Ê‚L ¡¬¨¡M½E‰)ŽzêK½Mõ£V’°Q–T$õ»H!zÑçƒ>uƒ-äW,§Y°l•N ›Ä´8Cü/f1SÏüñZFßÁ}kú ìçÑ冀£õÃ×¼~¤ÿ;ýUý p ˜0hÄ 2G›*‰“¤í »7ªÞø7;­ysÙ›ÏmgÙ*mkl¿³Û͵˰»koa8¸Ï`ŸÁ7†¸ùq¨ãÐCoõ«ü­[\>÷Ç_u(søêí1oG¼- +ªû ÕH÷›ôwE ‚¯è…»¬jŸ2Ã"Ryâ×»4vJ†’Òâ’’âQ P*¸_èÊZÔ´K†¼øšß¬`]3ÜÊK†üjQ%ÿ ]QšJ’ csø¤¬p¼@g3è+Xo…íhã¦Ð¡sÕÙ<Õƒ«ÞVòÌÞ`›QÙvn>­’…êQ)w¸÷>Ádº”¬»KŠ¼;,¢%GžÝÚwòtiÐÇ–íç5æ½g>/š~¾þÐlNòÅäæ#—3ƽ¥N´Op³€Ãð% VfUM—Þ‚¢ùát´ø× ~!5FY©kЮ&©i(„ Õ£2¾†kŽíq…U8­%{בW3-ŠÂøÇ°ög¼Ö*,üïC†º=¡7ÍwzˆÖo"N`ŠpŒ…Aô7Õ.¾ÛüœÆò#hXÄ^®>| u07—ßÃŽ •êP9ßÐ¥¤%/‚Í\”NƒÕÅÎ;úMWfVñN¸˜ÅˆŽþ¦i¾ÛÆ+¦ðdã$|¡ÓCÞBð²ãøŸ±%¶?Â’Þ…>Ðç‡Á†Ãx*ëèrûÉwW®\¿qÙyÂx—yŽ†%âtB¾N´_W/Zrá[Žê"“㓹´”#õÕnQ¯'agɺƒ±3^ ä/¼ Ì·v‡¢8U Lãß™º 1¦þcá¿w^<»ef)Ÿ•©hBL Ò¨ ›a©Þ×ÁÕîtÉ%žº 3¡‚½pþô¥[ççO·ÈyчÞsx”åCªfÄ€èé “~z{“[¤¿/yÚ˜Vêù·äêÒþÿ’‹îI’‹zØK¼´S8Ä–¡\TÈì Gr? }|ùùb9 ßc0”; Eb|¯+2>%¡x{ŸjTÅÁ zw^A3ÿX\…ª}¼Q„Œ[€µâžÕïé¡RoqQ¶ÛŽ2¾ºKN÷<Á6l‚L…)Sa,¶ç±¸ë+(ƒU;I>¿¶Àf~ºe L ±ÚUp`MGyrÁÛêW‘ˆXŽ|KðÀïÇBŸ«G[k4<öÛ(6&|-É(˜E—ÕXÁo¤°«6Θáè|íÑãkú¯n™ãÄ™R7\îÆpØêè7“üõTÇôZ.ð¦£wö}1V‹%]¶âmHѲUWqOº‡Û8l îñèMñ®¤B®ëµÞ¢k2‡xO‹ØJŽ€–³ß_ø^ç2B+duˆ©V—7¨cN_¿4r™+/ùbi)܇î9é]Ü1³÷ J{«[tïâkøý¢‡¡äŒ0´, ¥_iûPð…¬WØ>¨×#»»”¾f‘ßëèuô˪´¹¡ƒX¿ÎVòNB>–-Ë’æfTŒ>aê›wýðui@H—•µ«»@ôbCí…¦(Ó8w;’“Ï ›áõþ‹¨ÇJ^ò¤-᫘µƒwîô°yuÑ)—\™R‚CDø±b’6”g´sm^§Ó´¤p&5}œ—ÄÓïÑ=™6cŠ‰ °û§Òã®zݼu÷Pg%Òxû¦GDqé.«âÃ3ªãÍ Xô@Þä„N†ëÌÖ6;cvÃÞàö÷Ñø¯ëRJ{Ÿ _ï,)ao!5K9óQS¸2û%%Êá¯f6ÃOƒ*s“.¯3:\É»Á=Ú˜[ãI†gÆúÍF»›9¨ÿsF=Nz““È …­Ú^9qç ñPf5°¯·è€êRbÊìyŸÙ<Ê`yÊ)¸­Õ ÁÂ|—&3ç¼Ö{`-Eø6Ám+íßfô8¬‰1~Rì£Fd_…jPÑnS ©:ÑõNXLb3ŽXÚôÒħ^Ãîu§§ÍH–'lBõ\vNv*gjåjiXx´ß²O7?ë¼{æ;C2¥hÀQ:Q¹g!l1˜¬!ë…¢H‚¯td¨‘ý«ø6z>I¤ZJ}ÌÑØ‘—R‹¼Q<)°¸ðÔÄí˜K‘1éô:8iÕfCaHÞóv jâ/âÎì°¬èýÈ~?Ê*¨ÔÕ=Ì(ͪf2èœu­øµì„â¨JTŒZQVyv5ó2þuÏt6gõ[;Á…ä@„Ч™­ö?ž¾1Új“ñˆÏÉJàÁ_|}Í}°¤,Ð0Æj?]Úð2ðÝ­F ¼ã¨¹Ï­ê»Í3Ž„tK±ý4ôÅcð@<Õj{ï«ðš)üÈŸÿtâVA/UëÙc{wUht`ÕCþÑD+Ú±àüÏ$ïÊ¥e(‚`†ºŽ“´y R`ˆ™à%Ñ›[¤?ƒ7XÞÿC>ô–„HI¤*“\k7;ó´ÞTmíRîì}¬_²I]‚A²ÂvI¢Çr°G':ôà)Ø'fgRd¢¿}:\¥Ò$V‡D»ºW×É.†á?³ãQJ·GiÒ1Ò@W¯´èt”‘“J˜ºÈJipTdˆÇžímÏŽ€]Q6×£ûnê!´“(±Ú@”¤ˆO“%rI1òÍŽˆ™¶àÚwǵ †!šOŠÏð®RÖ"¦VSÑxs8rÃó>ÆC'cëïG‚ ð{~ªèN“ázhÒ‰®µC]»¬ØX/U`R )Žøc“¡8-7¾VŠ”ˆYm:¯5ó]J±_D÷aî½L?^Ém¹Œ]³còÃJBqÌÔËá xãEÇ7­‘'Ö7p1yÕ³ˆN@1(!ÓÐùÄ–Æ•¦«Q&ÊÎ,Í.d ¾ÄŽžwèpeAs³š¯+/@7Ó Vhªû¼­£m ¯ùÃ<faž-«@U¹²½qÕ|BIäžÄ’Õ•-wsÏ ÏÐQæŸ RÒŒ2Š¸Ü˜Ó£3Sòc‹P9Ñ“oÀJÖžˆdÚø3ª“è*:ƒÚÑ…ÇKÎV«£N¤*r.XOŽµaO™2õß7‰É2¯šõ3ƒ¾Ñ¥Îñ®%]”}Qg…ꬼ3“½ŸôXÙngpdFZž´å‘ñZ”Ób°ñ®>¼sÔ"]#A‡Z†ÑÅ-¨¥ÅÅòx §‹Q‹·7òŽåðp52ɘ貨Šæ_Î@ÝŽOÜ·‡øy6JwçæedæV€Úk¢va‚…0ƒØÑkÄuºgS2IðÓ´]Á^á9›—„R Ǧ¥«’q'»è„„Å$úÕfçfäs¿wü¾¼T•‰r‘}mas^…*;6ÏÈ`0HDŒdw:ØÖ€z?O©¿ÿΦæ}u»v,™®ù3L-:/¼k!¸ý9€Í+Ï@(Ÿ©Œ®…'FÇ$qøë-NT¤#”`Y¥®Î++ÉíhÑ =|B 4Ð Þ–[Ü[Ž6^û.ÿÛB°|ƒ$–7p:C_£ô?ߺyí<qÆ}?4ñ¬Ð_÷ M2©ÇËÝ—Êò¤ØØdÎsÚº8yš"=" 1ÒÊ䲪¹ûs]3'ˆ{É-»7I&Ð=‡2úÏ!lO\ÿ5WlGd™S·¡QoñÙyV•”Œ”Œá~ƒÇ¦¶®¾[ô˃8¬¢/œüñö¡ý—Ú^F_1`=ê6îûΞ1m§6®BSS¡-N.QåqeGí:‹˜{_l™¼hãJ'WÓµ9d^4\ùîü¸‚õÛ M<,àÛ¾W{anÍÿ ‹±õ¢M‹}ë”jÃb¥I…©YÜ®]× ýÕ^nÑÞÁá¼_ˆ4Í+mUJ4BŒäWºrGéŸO.Y¹|õ² Ûç ásròHÏÒs2ééJ‚á¶ß<~ÂIž¢ë›/85*Bˆkç+6àW[É7‚“ð9[]®ˆKJNJä‚BJR– 1Å1%2 FAŠ°(Yt`8ŠdeŠò¢ÜœÜ<®I[_^Š ‰6(‰-‰QGìA H[^S¡.k¬F•Ý0Fé„×Ô¢Æk m·Ø©¬*†ô¯2Æ· q9˜r1*KzcéÔÞ§ wê‰ù>\Š’Ócd žÕÅ° …_¬ð/b£“Û遼©D9t®ÕC:qòÐ$سÞÈ=q[8« ±·×ÁÕ´o¢ÊÇUâHÖ\™S˜Ï54¨X=¹÷á$Â:´.ÊmøëŒv´Éti¹é¹i¹ BéÙˆ|e tÂzxz^Z‘O|~÷ôÇ©N«ÍÒ­:Ñaý9Rª¯pÆŽx™F¸£D¾-E\´Â{0_wA]™™‰Jƒ‡HñÓI呆".ç=ºeDU·DƒLl!)­w5|ê`¸¹| eÐÅÎw9Ò~ªýø—wÎmZ·ÊÅ}>ÿ¥?ûUÑ6tŽ¹7í?˜=sÕÑ _†p’_çE,]1oðØ'“aØ<~øô¶óG 77³ÓÚõºó—¾{|nÙòÅN«§êîÂ1Ѩ˜‹Ô÷~°øuç?”p™Í:擃ä(0.˽»ÛeDgEhQʩ̨0}ëÿ<Ãt˜ÐJ"§_× 1w Õ9êÙx<ðÃ1ãCyeD”gçää¢ ¦6R"•EøU.$=‘)­A°‘„’°…þ]l1j:‰%ýpÐ==…NU9ÀàÙì̵ŸÝzp½ýÆ!m˜¬œ¯÷-^oDô4”Œ’³HŸ®Y5368õ·`ùOäÆ,_æt·îƒëýH›ó——v~£ûù–¡þ¥£ÐÈ~sÈ ­GëÝ6/c–ƒ‚ÅÑb·ÜmÕÑ's³ óQ £ ­©¼R¶L??˜8n§ANïjBuåÜ>1ô¯:ù-º†Ú‚~Æ#É¿OÃñî”Êòõñ ɱ(†!¶AS[Üú…ë Ü·k5Šh$UpžbÜ'fé\äˆBs1³ý™k–« ×îE'Ññãû; ¯†0žÝÀ¬ƒV\0|òÊóKž¬è²dcÖxÊ£’R•‰HadÜêÏ€å§Íž^!A>AÞmF§tÀ°Hí€á¢–öŽößÉ…°àÏAlvaf©Û…&Ê Ûàú-J‰OKF‰öòrEUm^eQ6ßüÆÞÚyaÆ+[Wœ8Ñzá7e!+o8|¸ª¡¸¸*ØÝ]Lø{ ¡®;;Ú7mô\9ïÃOVoÛwþ¶i¦öðʦ’’Ê€mîò XC&·kwµI¬lQ^I>ªbjäÅ UjºJÉá{x»*)&ÉíQL~\a"|‹=íJUYé„Ê«ŠkªÈ«y<ÞNV¦¾©ƒ7u"­>·ý~;Ø‘#~ Ðì®^}ÿ¥¯àƒúN ^£ÙvIvæù t^ñù kÜFoÍ[­YÆ%$¬\š–.Ux£-ÌÜc >?u yß.®\~h=AÇO¯ß‚ÒBÒB’ùwyŒíDžGUÅšõÑÂ:/ƒ±lô©ôÓDJœ¯¯¯Þ“¹Déµa5'Ölž¢Ê·4¬zGŽª"tçZ¯d%bÜâ/5/*>vÊXãë®Ý»&Ú'¸Z.ðŒ-ÞMäÑN¤ä‰ˆWî$òh·A“½Àï²¥­dÄ× œþ¢c}ÉH+Ñ­dš?C ý;>ÏYâ²ÄìÈb<ðþ°G`‰žíW^”—ʘüduH ÞŠípîwtbËîôüÛ«kSŸ£Î7[l/Q&/à‹ ß–GÞ'Öޜ׊i’,!º(1'•‡éXT†§’>zôNÌã!¢II h&!WV×[ L˜nbOê ‰ünÿ®‘("ÙÔL£¦žå<[á~×fÞjûñ 8^A À ñP<Ûâ%ø#èíÁáÑýsÚ •Šâãyo?Ï8Ò›Rc‚aðÎó_~Õ‰_^Ã/Å×ÙÍïÜ?zöà‘Ã+gÎt[µÕpžGša~r \º®¶¹*ØaÙ§¶’ÃÈeu>;Õ×<™(1ê’ʲŠØ‚´ ^ZñÑîR .Øç•ä‘,ÍFÛ9> stream xœ•Witeº®¦Y AgN;‰KUÁåŽE‰ ˆBXcÒIw‡N§—ô’­÷îê~{ß“t–J:Ng%™"(„UˆÎp.EæŽz‡{9_Åb®·8˽3çÞùѧºút}ßû=ïó<ïS—Ÿü JÎB³‹Ù¥ª…ö:c…Ö™xÝ?³B&sÆp“F;9ÆG× "oÈ÷Àtt4÷ÆcÇÁ‡M@özŠ¨ß¨]Y ¸Ú룣û‚d7Âô¿9têß÷t¤¸ÞÄ¡Ba¬²èÈ,Þ° vâ,v©v/Zv}vÈœÚñãÖ„ŽýñZÏmþ6º,ðÑá¡Û¨ëuf… ,[Ù¹EêÐ àpÙTÒ]¥€?Ç{}ÃûÐ<2Òão„6|\2Tô?Z¼2œ¸Õ…Af©áª¹C¿ „ø“ŠÎÇ÷ÁÙ¢kÍkœ‡±“]ÇúÛ‹îƒýøûUM5 ‡ß2CB[@\¹@^(/‰ŠßZÕs¤;ö6r”ûŽ}‰Š§] u}x™¾@ï ü]—Ï‚:¡½AfÓ(@ySåtoËÈÁõâ|QJO(N¿®üá ¬@1]tÐã¹Éþë§ý€·˜òwÕ¬*csÈÚûËÇÙÜùG—}ƒþìzÔo Xm‡ÙJ,{ŒåðLŸõF]é¦ã¤Ÿ £…ךºß—¬?Ìþ ¼Í®4[ð‡ó 4fR ÞKÿI3÷^â3¯ûhñQô(z Ð[8úÕCc°»Ø*VÃÖ³KÑÌGÐ/ýÞÈ0aÏã°nÀ+à…‹èÎýhM$`ñØÍ›ÕA(_ÉWˆ¸)Z—4~‚³ùAÁ iñoá+8Ó…~þ Â&ÿxu/7%¿›|½ïÑB¶]öi0Nrþ^P´y“Æo'y ¨¯€=#»GFG[•këœN£”¤à™è7} Ýû%ï±=ÜÄšš%h«oVUUÉ«´5==Äò‚hŠÓF2Øö|󯣶¨íFÒ,ßÎâµ;ò ¨ñ­ý¢ýW‡ÐüÐÍáTн!Y[x%Ü‘ð7v甽˜Svø Æs³ †Ë¨ò$Ÿyˆ«¨µ>®TIURMcmG2Ù•$ØmZ"Ð.ß²a#ç*u  õ¸¶´á͆Ö*E¥º¼d¤zÿÙ+‡¾M—™¾6hOö‘âÍó7Ü.:ärµ‰Äñ½Çß¼±Å^|+=e2qŽ6ǾŠÒ¨l”‡ö|8q…F¦– ¦Ù®ZavÈ ³Óà®AÓ~·ÅHPvþI{=×Dk¶ªÍŠ5…¢~ÂGyþD?õ¯µ°,`§Œ½C|ýHÉÁždóM$Æ"ïÿÍ<׬Pr©QÛŒ{;¼Í¤7^Ão¤ž¤[z{;:÷Ú»çðƒ ÜΨÃA«Û N·c e*ýMîJÑÃ=ª¾í²mæçs ±°´DX‡g~?ãÖÈššw¬éÔßÍz.wtŸ?A•åçœÖ×áS.oSúÐ׿|³fj«€3,/¸ðˆ)d°X(+E°ßýWž ˜àÌ6„L‘˜'÷s~ËîjGoÐÌâ6ªEÿ!ðµs©Í‡ÇõáJæ™ö7>¡ô\9Žìºˆ>Þmñ¸ o(vp7ZÔ[5noƒ³0<ÞÙÚ>$ûG1±æuÝú·¯¢ºÚþϘ¸•]§ßl(¦ŒÙNÛ–'—¾YÙ÷^*ÐèæÄ!æÄ1Ù‹&iÞèiÔšÏla(Ái"ç³$»ˆ`uO¤Xþ×è!´ ÁcÄOµ]ù(ùÎÐáqÀßñ¯ÙPd.T>Fš*†mêg…¹¢•Â¢€KÔ©+£þ‰®o¸}VëÛl‚‡ö1shÙìØ ôwªAK²}³5P ;¶JÊe[ÀŠ;Á º½A?ñΧG¸Yˆ_œ½€ýØ®·ªÁžmÔÒ}¾î&×ZJÛ™þ6ÞEñ§–06AÔðAäf(Xˆï²›ÙúlÐmÃý³¸Áx$ŠD,>½Ÿ¼A#׬Læ[ÐŽ~E£èFùhÞ3æ]ÄNò˜ñâsZpþÍKóeµrñfÉ›k—³Ïüi^–Óî³!Û C“¯•<…üôççÐ3(²'v­ãÆØ,Î{™ï¸7Ø Ì£‚H„ËRÜo÷›­v›ÅJpñ9X‚~jN¨e:ª<x¾|SýtBn¿ÏM6 ÷zý\nïYßÑ»¬—Å'8Ìf¶† gÝV”Õoå€x½Ò¡pïÃÑÒÎÙ1)½ùKÀ'’c>‡ßÈQÖHq¦¡¨ÕB!¬D¶êOñÌjšÉDbHJÏf‹#sÒwœ»“¸cæ’¶Œ¹ F†ý7Àt_endstream endobj 652 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1318 >> stream xœ“yPSWÆ_x$y"Z¡}"Š/Q±ÅiT  bq¥…ÚNqÁÊ4@„@ˆ ÁðL@Ä„b5á@@AöFEÜ.2j‹ŠKµ¸L‘–êhÑû˜ë Ì7sçžîw¾ß9—G¸»<µaÙÄe!7‡Çù¹qsIÐqåãËøàI‚§ûQ?þ‡Þ(Ý IßAf$§Þa פgiSS¬8 q‘8(44D" ¯Q˵©‰²4q”ŒUÈÕ2ÖU¨Ä5‰©r6K¦`ÙôåK—êõú%2uÆ6eå"‰XŸÊ*Äär­Nž$ŽÐ¤±âõ2µ\<ÑÚ’‰#\£NßÉʵâ(M’\›FÄ”À à>þäÓP‚ð"¼‰w‰÷š˜Iø³ˆÙ„‡+áN‰«¼¼‹n>n]äzò„{gšÎ9tŽq¯ý)ª}Jr9h€†7Æ~åÕø'Ëk6öéâMÊZslu–÷»>;³æVæè‚G¶îç­–§ÐOa÷Ó©Q¥3öÂœ‡ð›õRõË»eõpnì²–o‚Õ ß@a£n~DŽ(—78¹#ÎÓv2Ü#ѵq/ºÑ\ÎlKŒÉ¥6ÂE¸ÒH½-&› F¡´[A§K¡ÝÔí¹À©JLå­¢‰§ cÿ:yÆû7‰Ž¡ºÊÖᬪü¥·ïüE¡©ÜÁ^Ø3,08öÄÞÊê[Ûù­``šn^«?Ô³®°kWaì¡rJá3 ù8¹8ÁÛ$njϡíP¢Û“ŸŸ“Ëà·‰|%:¶ÌEϸ’a•‚!K!ôºTC“ôXáJ“µUôðµsžp5ǧßòñAád²±ç(Âè¡r;I$æúèŠý's;€B^ƒOlÖ½–}f3ìû^”´[jØìšl¬MUž[l†| ö€1K„ϳÀPUb)*)fÊmm=Cp¥¥™‡R ¥Éù›5ñ™êDU |_·³ý–üP”£æpKkZ…>k{nBÐÝ@$D^¯GÑ D…¼Â[¿ËN•‹&{ä| ŸlàEE#$bП4<˜]Œø¿Ÿêì©cðìHZ iÕ;[ÙV×Çî>èhl¯?~Ä~®AÓ:˾êØ‚ §Â$ÁÌtWÌpÒ”•T °Ì*tz Ne<ÜCìžSÅžžƒUžÓâf‰"endstream endobj 653 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2574 >> stream xœ­VkpSe>!m8ÐÚ.¸YZ.çd…ÜA.îŠÀ.qQ Jb¹H(¡IoiÓ6m.M/iHzÞ“´MzIÓ6é%¥é%¤-k(7[E•uUtÜEvTðÂ"êÀwÂ×ÙZfè¬Îèœ?çÌœçûžï}ž÷y?1…Ó¶<±kû¦Ë˸9nînžð¾¹wB»#!ZÑ}s£oÏDžH‹öÿ† ¹K‚2G£R¤Éó%‹S”¬xì±UK$/_þ˜d}–L¥H•fK¶Hóå²,i>ÿ‘)IR¦*dùÉâ5òüüœÕË–.•få-UªÒÖ=¸DR¨È—K¶Éòd*µì d£2;_²Uš%“Ü#¸ôÞK‚2+§ _¦’lQ”©² ‚øíúleBŽ*/_-Õl‘É·)2³’"ˆˆDâYbñ‘Dl'vÉÄD ±”ØHl"þD'¼‘q1R*š.újêÞ©wÈ/¦åLûhzÔᨓœ%&t ‚èAn—GšZ'¶tZlYPe W ÆoÄ•jJ5 Y¬…l´nºŽÚzaŽYúádô|‡|-02r¶6þš‰ô"–™s™Bˆ/˜€µÑ'à¤m†!hÃêZx˜ô´AT:0²%V†­t‘8‘KwãžHœ"Š QÆpÌ·Bô* Ší¾Ñ/®ydE‰{q¬f]®²ðLɤSég¿AsZ  /: 3eÌÍY² ÈÃåÐÒZ×éôÓýÃh:Œ‘—Ÿí^£Þ7Q…c‰ °T Ca®Ôf²Ø ®–õÚ)G_Ë~ ìÆü¢J£YGoÀf=TÂáøÌŽ’Vûqëi'Ã}:Añ6 v$r×P¿ø» pNY„Ç3¼û4ŠBÏßD«ÑL àZ±|wó»ƒ(Â{†ö½1Úw È£'´æâÕN:{sRú. cBokƒ!QP€V¡9Â;óB‹«\`–l,=õÈS›ßY *ˆÇA¼3XŽ·£EO¢Åï}Ü~þCúÊ;mŸA-.…¾Ê-Ôn¼ÿ.y dÀæš^Ü;硆½hû§ˆ¸øÉuïÛ@ÞxyíCYTÐúzðx­à©ï "zBƒâÛÂkx–جg˜, õ¼®%u¦Zº zm>8 ‹?¬«·C³–-+Ök ‡Ðº^eÀÜñhÍ7|f£¨U/þy람¢<ºè辦ƒ?»øßéÄV;ØXÇñ±!Wíþâm;ä8¶TI+þ¸]Ÿ rP¶•#c¸Jc+jCd Oy3Š¢7Ñ»âšöáþõÐÁxt{ÕŒ”ßKåV÷ ø{‡Ïìf^ï® ûÐ3—„ÜJn®X¦…4°ð›ê¼Þ~ÏÈ+I}kÖÊsô*]Y¸2aå¿´=¦ÓegÊ`/ÉÀLöÀ‘tÊnrÃËä@†C{Hž²ùBÚõ®7Ù³Ôé~ÏÐmþC¾ìvUõκ¬šè'YøðV]òÚy2bÞš‘Aô”G€î»)D¯p¿,jn¾ÛxÅôQÝq›³¦ÝÞYÿ8Èv­[i™ö”Pixaäj‘†XÓ .úï¢'q¯Y`Šß<¦8‡¦¾…èæ°¹ Fg¤¤‹S4¹@–—°Ýn«£ª‰Žá|=V~‹–¡¹Bî4'¿¿¯±H~(--¯±¬ÎHyŠÝjÈ"ÍR|G$_êí½â}‹ªóVÕC39º«oÇüaè*(cºæ/ K*í'\Ð$®¬ cÜ¿MªÏ2_Ñ8vö(Š­ï¢ý×_quòíÐUPŸÊ›ñU¼/Є„=“q_ý×BîS.v‚Y5Ù“× 6½Àì4P xÐRbÖg©âyZ~Íç+ƒmçüŸu¼A×z«~fQ2Q&@¹ü‚üò1_c‹*Z±eÙ:(‡|¶°Ñeïn…r Ó¡IÍHß¿óŒâ}4 ÿ}½ƒŠ¹3Aî³ àÎpˆàɱ¬Ûzž›ôŠžÆ›Ey|Äàã­qrMæN“5‡Ÿ"­fÒ'm¢zèd,‹ãSÂœc*­T[T@êø_̶âfºŽÙ`†,wG‡{ŠåiP—G£y\0’]ÿÀ¦®6¶A¼jêê\Ü<îË8–ÁÔøs1Ãh˜øFÇ”YpwkCýázúe±Ÿ0–áuk'×¥ Den5ñq¶$Ú@+yWNA²^¢#([|¥¢Î%Öó9…gᥘxû¯hFÏk6÷)úlëà 4ŽÂŽ2‹**¨õ.„b “²û^óÚkýtm@Üx²®Û×Û婉χ¡öœŒxl¥ï™%Ž ¸D~~] -³ÕÖ¨·†)fp¬)®”‘MjZ ¶¡…a(¼`üÃÉXQ¹5GªO4Pç‘ÕÞ5úåUˆÿåƒoWªN¾ŸŠ }£ QOõgrýh Q³îׇ„èšMó]¹WI4 Ïò?@áË?¢ñüñ‹qrüPpŠŸô'á´eäGÕ¸ˆ|q÷ܹ.ÂZQQ¡¢ É•ü%€Ä4ßÒw³ï;'ÿi‘ M”.%7;È´ÊîÎ&p8ÿIÛAÔ÷ëá˜z(±“ÄsÚÄ‹E‹o)–wÍ°è£O`­Z¿ð@šž\¦MH1M ¸¯;P´#C³ÅEmY‡ yŽGíë÷ûRX7Þ.6é,ÆŸ¬¬Óîe­ô稼¦ÉæWüÿïNC…Š©¤cÐÏ ®Þü¹v7MFï3çÒGƒ^¿ÇIýt>ÅÜÙ0„¡þ^œTfmé~ZŠ×˜òÊR¡âîøj¬>å¤^GŒÝ7öÅ翆Ïß+U(¨‚KËAÍ?›`ÓÆ_á²57¢m Åü wCÜÐêl³’®f¶Ënª7ÐJÈ´dC*° ÏXÈ»¶ì¶™².š™Š]ã[p;ܶN«âÛ›ÀÇB³šÞ Ï[vƒ^°£Ê‹&½nñì'S»0§âïÃȪN–G¶ñ©è,­.¥÷L"÷M ïî7l†pWŽýGgU±&´@4v FnkܱñM6¥á¯D¨c]^>›F _ ®¡¼)P‚¸X[MGU“£l$³.¦p–H L¥)Ÿ©à³E-à¢b´Íܳ$c;šExŸcjpúí(jz„F=-PÍFÇÄ8lIendstream endobj 654 0 obj << /Filter /FlateDecode /Length 7258 >> stream xœ½]K“Çq¾ÃºØ…>løÂ;êzW™¡ƒ¶BRX´L!BÒ‡!XÐv ,@ üõÎGuWfu×ì.;tаÑ]¬||ùªýëÅt0þ¯þÿÓ×~ùuö×·þú¼~J°‡á÷«åwö& <˜ÚÏþrq®áKCc^Ôÿ{úúâ7O`\=<:”©˜‹'ÏñŒæÂÚrp&^¤Å…‹'¯}³ûÃ~:L%Zgw§÷ðÛO6Ãï·ûËé¦ÉçÝ ýf÷Ç°¥äw§ý%LS² »+ZQr)ϳŸÂîN>…\,lw:„,¼|Ø_Æë3~÷Û}vðìé}áG¥$XóSx3…i:•£IäÛ@S  œSÞUºL¹À!½åç0«å…Z4ü‚ÿò»?î— oŽ@1u ÏöË|¯ˆ?àßÃîž&»ß¥‰qêaÉ#ÿ‰6–"PI¾ýŠWš§€³/G{ÅCq»?á){c“úî`à/p­%ÏôHðŽE:-l-?¤uO¾„0äHùú›JIÅL]ב}ê¶s9í‘áœ÷x‰웶§0siðFžÄñ•ÜȲ„¿‡±;Ýý° ¾ú~ùêUc“ãwb9â¹ÜÛƒÔ˜œq¹—óz/;|^öo‰§'[³!ìvÒ<{äñmœ¢œêóº/»ÇûË:#¤ŽÙ±8\¼ üÏþ#î^ò~0éõüvNêm¢i†‰@K0¢:MôYðRˆ®ÄgÏšÄÝòÀôÜm>¡™ŽQ©MñÝ›Žì&ƒ¸€Ô¾ÃW,èž’Ššd'‚ho“Â-(ÊO·ù\+­É¿Ý5©}.Ùñ-ÏžŒ¢¿ç'p”üý†–1F¬³œh®Û)~òux šÿ9‹@€sšÒ,'Å÷Ëh·M74yL#¦Ø¦ØÍöyŠÅ‹ÑŽ‚x‚XêzYræeãªá©•v”¬Ã'b<0"™+`ÖTâç~’†‘ÜOS±ývÏßcçÅxÿ ŸfØK<Ï2tNO…bDØ`ú–‡Fžéù„6†T®ð¶)<}núÖÝbJy.×u“%Hãò¢Y‹g¼(ŠfËêºjtçw¥ ¡EƒJù™˜&QuÄ­8rÊi¸ÝÓwWàòlñQ*Wa×¾ofð¦Ì5Ï&X™[–W!åYÄf{Žª*ãx}#$«·Uu}ð$Šö^ˆ:ã3s¥^€áK€8¾ÊC]µ6 õü€ñù €&ç{1®oÜ2`„*x´°Y­¹ß7>îÍV•µO|!Çàj¢ûøü?‘í§yà8Հ߷̯ Ží 'îM­±åâÉY(| ¾àîô¦=Vã-ä­(0`£ÚoÇÇ®mòٌƃY„Kn[xÎÌ$9»:3óuå òõþÖ8BJ¿4 J&¯šv&."¨±Ôâ28¨·Èáš>sHGCnúÐ#¦¢#xéY@3ä*Ðø€•9ÒŒ4£1vW^5`{XŒùfœº™!)¼¬DøHŠƒãÌëÿïhî¬ ¢ž@$K‰{ÈiÙýîôžÝ?EXd XŽ…<Á¶×”Áê–àôùtîxª˜Ðù´¤ÇùÂTÀ'ñàÜ–P4Öû´òÑ^2z†¯ÛÎïÒÛ¥-#ô¹L<Þ6ú¢×©è”aÀ÷H´ò D”îl¾á’å-}»o€]˜/w&_³©EË匛M pè͈@B‹Þò¤D–V† ^ãþKƒbGä3~ÃQŒ²¹b}T :ý·ü¶§$»oùy2FíEŽ‚™Ž:àÝ×½žT…0€N1nxÙÆù4O(´Êàrã:ø;Ób\ƒãM¦lÇ¥ÄÒžóÈ0æÚ¬"#;B<•ÚïÛk_Óe+°DÕÄ4$4Š¥T7•hè"Z ×ë 4†)› $Xˆï‚ ~s nS¨’Å1ü00GÑ"ù´„Vîå3/" œ1!æ/X6dÀÕ¡ª ”Èg•ju'¾‹¾W¤¦‹e§4õÈ`ófª‡WÀGÝÚ:bÐéK èWà„Zrævf¿=<ú çú7KGÒî_ñg„ŸŠ§üóËöÂË~zQ.|Êb ›amæå„5x’«Á&F¯Aå)ˆÓÐÎKïû“Ý;/õÃ$âÒ…ø©¹Ä"¹3tÌIqËbT)e©Ž\*Áq9X>’˜'™³Á(¤•´Álr]œëîr ´–’*×x.¢zK)9&šQ–KÈ ËM†ÙG¦Q†ªeQÒVHš+U@&ÃWÃd¿,G²·¸ÏQãJåPŽkåÎ;ô¥ÑCdDÚ‹)uLÓãùúYÿ˜Ð"€Ãb(¹´¹i*ÞñávÞHÖ­ ô0O¹&:ÄPYçCÛþüM¸H‡’&ú$€’ÏT¼yˆ–)¼áÓ¦â"”g`Éo~Õ;Býâ àa¿h»h¤Ù^Ì0•‡­+`ApŽz]ÿr׺è§2çZÃëeM€ïZU7V1ñÒËÒÞÕ Â¶f!‰#ƒ|Ž/ru¤2<‚Î\O}Ê"ë0À³U‘°@9ÛJ—Q–·w`¦œ—óž\)¨ Lâ¶v ;Õ/Ô7ƒzy6(TØ¡ª#·‚SW<,uG}#bŸ¨q”…V:À‰”6sÔ„ÔÏ2‰Ö>2î¶h¢wüaήSÑ<œ;Aï%H368Ô.ß‹¦ )/',#©<}B¸÷¢-Je›{ò¾¹'ÂÖØ#?#Åwlß­9À'KsŽ”UÝ®øl¬#€Ïâd¢æ³qe)Ñ0ÊÄÚ¦èóGÔ>ÌV ìF°çì2ÌŽþŠåL,?_ ˜sÓFnEjUP ºhÑ!›I¼'Sæ"û¾ç·Vpf6’ ƒJýÒGœëãš H.ª ÚŒ¥ ¦<@Mç uâZO5P>XR[Ý7Òe÷>R á¸_È:3do“– ŒYÄíÚB®Û–й4ÞzªSžÆÊNVÙ§X:"ÿâ. ^̼°¯îr«JðN˜Î¦¦m¿ª`´"ç Çê‡.«I€™~P")ˆ¦¤°Q¯«T™2ìîÉ ^ˆëTÿV}*çHGf3àQœ“¬qŽ“ètΉ%Øâã”­ÞöOáÔxfݺŽgª.;Qgw¹$&"æ$ë¸yßT@•`”ñU_©@¹[ž‹Š¢Vj˜…gÜT ^¾î¼1a(äa˜Ôø/VëGA!탰IßQ†4Á Z\Ït4ÒP‚žÉB­º<°WAëÓy¾—û%O ƒ‘mÉ íb!å Tm¨÷üßösjB¯ç>ÑÊ^R|_Â8‘98ÝÔý7V0ó¶N’^ͺ¨bK"#è´¨¾Y«£H®ÉÁ…ß*Fn„N¿p2v -qæë}¬qÚ%œð¡ØÞÐa1a¢%1o.Y²ÚR8Âæ‚áüí>‡µ+>æúz<É{ÆE®y­>%'ƒö½y–’;°½Pø—T›˜ðÚ€rw‡°ä©:ƒ5ì¶q¬)ô© I¿3ViwïŒ'Ä[¤‡/2Tr©rMÏ—#XÛ#ƨeýÀªëSléþÒV=ë‘ê•qyxy[׎L¥aCWGÓ.l¿ª®< ôÜÕz\ÎëfÛ°€¯j^•.°ˆ_IuÊK´in†;.ÚIz§“J7 v,…q kSÛ?ã}¯Ó›ˆñ‚€®e×÷y×Vœí :‰qny–Zç)„º>ÖíçGÑtWÓŸ(É ,œíãFl°ÏÓŠ<4C’ÙÜ cñ¹è|…À‡Fkqeù]Z&×åõ¹²Ž„ NTʺètM³o‡lÎ ¥(ó®±™±XŠ ox!˜=Û÷[—/CBKU„ºþDšÖÛZ}t­¨Ê„Çüi*«û&Äí1õÝûi˧8_l~¸2ß·…JhÙœ9ÞÎKXÆ¡U@&@Kñ|Î=`¯åD?aYÌ:ðˆ²øM?¡•ž É\²Fá‚{¤[ÓtXwÉãóâ5¬aQÎxÉLßòÕ çèN Óö.¾œ™!u Fë<ª:·»?ßm†·h¨ÀØ'Ö]Y˜:… QƒÕ{–\+5ŸRIé]>X—ôà}³’ÌX]ôÂà\AÑÐ0JÞK§qûVy\U3ëÝU2\·ö2ªÛ'‹ë¿t°7 ÿŠÂ}8–Äx`PÀù9a2λ¹ž?€º¢6ƒ>š§Â}c z½7W'%;Ì8¿®£8à§KÞØoÀôÂÎÏ1~üôø –îcÙ붰¹t[8ä§\@(Àn šÃ°s¾Eà$ só‹ÚCñŽã9gY³%µšDÇçêâ÷°/ÈÚД5š"Z6Èï~6?*ðs’¹Š÷dŠÃË¿CWª#ªÀ„£éÑ3©±ìYu?J¨ù/ãþdŠ™aÿÕñ‡7ð–¬Åp|ÉI§ðT§èT (Ý?>Ý\uKÔè-ÀÍUÝQùÌŒ¾¯®üÃlú{Òˆ…V7¯ðá81Ô=cdÜóÙ7Ÿ-IÎí ¯.g?^(Á õ‚)Ü„Ùåø ‹-ÙÕBã+ÓYáÍH}‹E±=¡ÛŒ¢»rû6­¥7¢¥cÄØ‹Î>®")ú»ÏËÚ™üEiªŽËMkøßSŽúÀÚ…ëd¡õf¡¹f¼ß*lLÁM1ëQÜæ$ @G÷^PçtQ[_Ѐd`‹ß~û¢9bk¼D¨rÀò§®a‘ìú•KY¬ø?í±u.ŒÃ¨.¶È±·¦%*Ý âÚµs·ŠL‹¹¼«f`~÷¡E1óÈR@×åHý‚­7IX^qØ?"M8*¶D Vñ›º_é®vÑOŸ>°ÊŸ>K%k ¤©BYË°ªÇÞ€o‘<©JhQJ)¯™„;ýqz¼<³»¶‚’¦*ª³Ð nú“*ý®Ž[´˜ð|yVÝw‘Úm­Æ8Ï0^³¬ýAý”˜ÈX8Ì©‹¿ Åv»ññªÍØîi3-p£Æ’€[ˆ ÿ} ~Ô¨LÝ…k„’;I q©Äh”+]ËÍm¦ô—y~ôu¶K|&í®¿oÎƪ‚®òpmGGbÖÿUf‡96¬yÍ ö@;“^]zßÊ1\ÐT¼®{`ÕëÏ«ã8(]Á ]r»úõa¥«ïû±õžãÁz<Ð;ö¼Q»:`,Ý]»šŒ¿X×®Úqíª9,}ùŸ¹to5HF üoxëD’IØUQSZꎗ~qãbÝørx_õëZ×4am¯*jª•s.júÇFàùˤ«šÀX^8˜«{jÈ…@¥¹ÙÄsH ¹—ê›ù°i‘Ø©c'ògÏ·Ú}Ì­H¨×0¥…¡õ\`’s©xtØïà§7^ÂÃÛè=ÅFLŸP÷ʈ÷.PZ_ŽsŃôæÚã…íY·²/[‘QŠQ@f´åÅQ¸Â ½©ƒ|ª£ÿÎ!6¦Xˆ˜.d!âà 'ïpïFA8©@xFg¢ê–y9¼\±ŒâgÇ.È»®T‡`[ŸÔÏÏË/˜É¶tñÖ¼”3e-5l4¬jQF|µÖk ­€ˆä_f+´üÇÑüç’…üSsÓn¡üc‡Ã¥úÝÿXêlƒ:FØ|¢Ër®OÈxHŠ”{\ŠOýäÇñ ££Ö(S9ðž³ó7WÝ=­>¸êX]?¿ý¸^”TÌ9-VÉvìï!̆&åÔ9Ý€Ž¤4ù^ž¿«j×5dÕß–¤¤ÅåâW!¹l„/ØÞ/z¡´É” aq¥O WŽB03ìã‹ï÷Ú= ”]]KmÇ-/§/v‡ ŠJÕ­fË w´ÇŠX/%{îoêÝßÜ—šš»¸vrØþЦτwíÔuõÍéKËú9wDÌYÙ%÷Œæ !q€Dm)ôÑËYä§ô4ä,/Poø·¦ÔõŽ-N_ç à’KÔ> stream xœÍ][—·q~§}ü ò°'/™ÉÑŒw y¢Ävb%ŽÄc=Xyî.—´Èõ.)ŠúùÙ© Ð( »C.å“£5{Ñ@¡P¨úêÌ_Ϧ½:›ð¿üÿó7O¾ü:Ú³«»'}‚/Þn¨˜ K›«íνOÑm¾ÂïÂ4ÙsÂ~ƒ3–zPÓ¦¸9ìÄ´Ÿ^Ó€@¿Þ^ã⤠ÿa;“z‡ÝDo¬e.e¢îpLÿêˆZ°Æ7+K-¼ùºÉÍÛÕÝé÷F§³qû=ÑGÌŽäbÚ¼$p¶;cð4 iÈÜÉ%»9¼Ù"?tPqs#8ý'“‚æëäS­Ûü°un¯á¯›Ã-6LV'%¿9ÈÎὟô¤*=¾c4PÁ'å­ZŠÉm½ši :NzÁ{èåD2¿5rͤ”hÖiÒÚò‡ßm+%{Ös¥¼^Îóº­Æp*›_QÏ8~dX>lŽï°1Ç}ž˜”ùuì6!M |ò0J3ïÃøí•8Y‡§M±é»Í̘¸‡E/âwY Ù á¿Ú#o&0½ùûû˜¥ÄK±Þ—A/›#µVΛZ^ã—*å €LT •µg!wµá÷Ü0‹.êÆø‹^£æ‰s¿Zév9™ ^VŠÄ%‚Š…'ÈòS¨œÒæßhyð¯ÿ¹ç—Ûùq@Ç?¬~˜uV4ÎJv¡-BCëÌïé,PU÷K]Ë X R/Þ¯é÷`$¹—ÍOlËÚaÒ>(Ð-e ¡K:ñ`î±tDùBM–c”]‘[ J‡jlÒ‘•!ØC;Ú~¯ë.ÊšÌMV¹fÇkîźé}»Óa?ñ{ôWÔb²Æë¦õ«*¢õõV{/°n]Ðt0Þ„û«Ý°ý& ¹Ó™7aŒÌåçUêÒÈ䯓­ŽüÒfïynø¤>͈Ðö½ä>LtUcv‚]°fsx^—™{Ô~jô»ç§Ûh}:,#‚|n¡"!PÊ›`;ÀyéhH[m÷ `yYiƒˆ¸˜B±ehqîZÉÁ“2žF³kÀšIÆÜäšš•o„ľ߂Lª¨u]{Y€F@PÈò:UeKÿy³0dü(Ç»©Úñ-§”¼ rÕª„©+Àf$Øš‘ïékãm°Î¦¶yÀwr,È5ƒ;Py‘(5ÄRu5o¶b£ÏÖ‚×5 å»®›eƧ¶Ý 3’;ø ÄAnrÞÙN§ =clä‹URôÖ1„&VØ4¡šÍ›å/9@&r/½®{IjµýV{Ù@¨5ãÊè!m¹†–Ŧ90f/§e}Dª7™ü)Ÿùá”ãÛ:ï½÷“Z5$ h•è AëgÂíz9i Èh–þJl¿ ÎœUü [L ózÉ @’MÊo6hõq;‚· fh|ŠÅpŸTÚ|ài oÛ*+|ëÒزâßM2ã­Áž¨ß4ãã~›Þîb+èûÞ˜.Tx•>èШéŒUDLñ$a÷Áh4#ÍGEL`öO;·p-Š«ï >jyÒŒ¶¬¡ÔlôȶHvOü•=âiò)ûÚ(‡ê²d€ ›¾y]À:Ô´Öa4A·Q›v=A6Жô›DR¹fÓ~Á“DÕµ¾½‘‚÷5;.d²îø;˜-9õ‘Ü=»XÐ7’ŠQr¬)Y£ší!¬W»khê>µºõsEˆxfAì£Æ9j?Ò1ÅF™yYØ¢ÁI|„MK~Ô!„>ÉsÍÊ6ÛOåÞ>רà®ÐÐ:cª1»[ʧp@¥ÜZâÐ_‹Q­K€úQ•ÝñÂxG+Ê•»eriú0ÅJ{Ñä¼[H‡ú.¶b¹kÌ+ãŠwIÂ}ɯS·Î\ š±•>wAâ게nûX ¾và†5^ûuõ ~Y·È-<^~Mjx¢(fcPÔ”Mr.KLR.†»Ê õËLŠ@|Qäz¡¡pƒ-éÌÏ|ˆÖï«ÈÄÛH@çž`QÑêìŽ=’Q¦œÁ•¤ŒBÀ˜¬ÿ3&`cœ±tJŒ²‹ÿCØd1eòæné¿áÆð—^ó–׿;}*U£ø@uü2Ñ:\Ôÿ"Æ×Y£+0 gÁ˜íIØ ¢‰(¶øÚ+MÊ ­„« qé 2yæ~2ÝF²Ö¬Ú- œùµTkž°Û0ùÔa=›FK‘q#mˆ»Ÿ³P'n? zÙ¨àâ†-4mþþçÖ´%p’¦¥ÆÓXs~>M‹#™´;½ P6ªNÚÒ’ÀºM0UuXŠÍ¬êÖ`M¦DÕiºy¿êJ‰½È0#â$\Í#oÈàƒ+5ôx"¤ƒäqÂŽ¬ˆzwÁWæCkN„Pï¶!ùV®#òCö°f R²¡B %ðXÏÄ4ÐçñAéõ@è? =QŸèùŠx,sy^³Œî,6¥Í0»­+9Ú#çe—S‹Fx’Æ%ý©çÔ´ð(!Ô„Çú Å ¹k€º XRÜÃ…ƒ®˜K"¶‰mü(ÈyUÃB¶DùÀ]„nÅà'$=K'«*«(ÝUK$²dsoÏ;cÆ:`€U.xh‡yӻ̦Úìf^²”l¨z˜“ßÞ·iL šå®=¶€û…¤»Íß5þB秵À%“ÐZŠQžc^:Æ0¬ qê¤ üZ$ï”@ž”SDA2±þÝ‘‚ °î=*SØÑ¡Y€(’ŸBèUr[=¹Ùc_IúD „抒ꇛj[nf•<‹ÔéÍ¥eðõßO²øšGóSnêüHitžÐ¸¸“ëÐú|ó—çUêÝÚ»¡FÎ’Mdò0ŠZÜÌ©Î;³ôH’Y‘\G#KjîZ_T¥vDÑ ¹ÚfØJrðŽZ`ÖIjà_lûôášbÎó¬è/¹1zz•&ó 5ø%ÚÒAB÷ãµ;õǪ ŒCW´L&&¡‡ÈJ®o§A²‚ÓarãØ·Tr{}Èì+å ,H‡>»&qÆŒi±úVR~ØäOYÿÆ}P+ê÷Ž¿ïB³ƒj-¯¯w•û‹Ä“ÄêLDë:ŽÀY>—ÅôúEŇBu˨jÓÂUJ ¾«ÀþWBàÎ;yÏ4µ®-¹nÊK7 µÐÐV±y+nŸÀ&€Y>RÞfmy]7€,Ö¸«ûEt1”¶B§Ó D:—…g02õv2£2!™®ïÄlâI¹JßmÖ©¾Û ˜"üÿ×,׈ã¢^qÙ¤ÀÕPÀ0˜¹' Ÿ"øÆ-öF|OìPƒYœÛãÌ1i¹n–xkäy´àd£žm¯ÌóäÜÀzE) ,hË‘á• 6EŒ0 TÛDV'–Ì)>ï¼vÂñïpD’ýyp96òy½Ò2YÐ1Âdzb—´Œß8#ìá,` ¢Aè##¿.%pPû_žç@¡Û;=ƒíŠ-3ÉSìZýpÕéï€`däéÕAT<È),2yðÏ&É@3D0Qd“""ý¥Ü¤9RÚ).«¦K¡í@µpQ†ÕMJ“#¯Gjª¦³f6em&ÖcNÈEó·/Äb‰ÿ_U€ó"5ŠýóV¢ätQ0^ÜÛò±E€Ð9XÿfE€“&¶^Éa[†ûÐíB¬™|µŠ ª†ÑJ”þQ¥SSËÕày7ðû@u†\‘Ôê±2ˆð_ªëø†ÿ®“Ù©6¸A¡¸èÌañ5}ÎKºV[>|R¡Ñí9Üx˜ciठÉLh˯™AíöÞªø0m5+“¬ðZG£†aµH[¹†¤ÛÚè0Ûì›YË|àÆaQ²…o=É“0pb“­‡]Îr‡Ÿq¾èïvyAq¢$ÇnÎè°­¦ŒÎeÖ£2õ<1Ý(~ÈYñSa_žÏ À€sBpûÛm4X3ç$Ò¸àùa¬£§Œ¼^û=[{MqŸ•ÍWÕ ±€%Û¡µõheàaÌBjCTOøAšd!Ö½u`Xöd‹Üa ð¶®áA B±*Œ/òt—‡ `e”†Åt%δÁ læE±å*²- ¶æ”8LÐyf YŽ3Fˆúõp‹þr;'0?îò¬>%ßL{_=e0M¨˜þ€Õ0Ç°ù#§I ï$ÂcE‚T\²d•ñÃÌs‚^îfq"l´…ïøKŒ`4!L¶Ðà7É·)#ö=ØÉ( 2¢{ â‡íZ±](êá ÞÈ{eJ5ûB® õáS“>€&²¤L¦N_ógƒm/XZ§s½2{š<ãŸ?› šHÞ´pÁJ™ü¡.»#ÄKfãn¹u˜ä) ®‹Þ? ºæÆ.µ‡ Ž"È^³~ì¬K ­)Ï…ÝÈDí†H õ.¥÷—SÊ QÕ .ýzÛÚ$ÆÄãc¡÷"ó’á¾Ü­—Õ÷' 9±ÍÏ”(K üœÔºR„Íù˜…DUîÓÒ9Çߥ2Œ ì(§¹¬µïŽˆýKç)Wa„8 -'ˆn7Žl^ÿ8Á¸Ëìƒ]æwUµ•211 ù5¤²{Ø šOz¯Ñ3øÿ” î-N¤^‘Qvþ+lþ´?$Ú`é,EQ´åà à¥ÊÁc ±ÝUk#C¦is¤OãH –j ¢Å ~]ªr/‘uÁ¡úØÜð8°Cé`X(P] «×is ­W؇ÒÚ¸,£CÝêùjøÃÞF þH!@’‡ü'Ø~d¢…Ð-ÓÌ Ú±Aˆr§/•·ãÛصTçá[?Ùñæ.ƒäuo›ã²;»~Þ¿D¥Þ6(g7 ô‹™¸ãm/^]©¶Ú«Ypei0+f\X¨"^e6ZuJ$”î›Òµµœ<ó c(a„GÅÁ1Q8¬ ¾¨vgãü(­"è]/í”"K-CÆ“È°©ý©±éƒ=¯Ú¢‹—drÈ×ä‘…|í·«Ê¼;ý¬Û¦¶sy>‹`~wùÁà2zK‘,™1 CL`fƒ”æFÞS¯éW î´ ]¡xÄø]v™ÁyL%àEµþË*ÈLubRçý‰ÒMÁû nв©ºÄ—¶;J|XDÛè¬ô½%(1w;È‹“÷Œ“ź…âÃ}àwq ü¹@š’žá}ÌÐû2áÌ­¸ð‰û"©@Er°I±…Œ ¶*š0ßS9øxzd-<>ÆwÚDrWØ–Nr†zõ ¶Ëë˜õ+N‡e‚Wô/-$ë_*zzHïÀyßGcšöŠ"Vi¡ˆƒ¡ÀŸt–˜Y°íût6îNY [tì=ž`Èž P'-Sê±L«@ý"SAÛJ,¾$ÿUjógv›uÚÔÂË#Ùt¾ ¦Òª¡ÙCƒ© 4aMx’­ÃÂÞﱟ6Óo_ª6½Ë®Ï?P¯VÜÚ$?  ¨]uq_g¨Î´íæs‡"µ%!m|½/IV¬fŠ×mÈ ª$ ¯À²‚º{n x@÷ž£åm"ÜF ~-vÕo¶TœÚü6;'1J” õùyåù€ÂËâë´N¥›Àbbv®ð•"­óÇ-”¹‡r; Æö‡Æù„Å dTŠ·{E¾æuu8f¥(zUË=Ou—Ö„uÇI%Þ‹ì‡"‰9ÃÒ¦B°2G¡>üÓgÿøgŒ+;8ÅyGß—MXº¸R08BCQÕ8‰”à^Ï|õ…gKØ È¸ËA£šüÐýíÔ]µ¤{7t7ûð\ï…sj„…¸Ø“Š‰æH˺ -Ì…{ôªDI›=£žÓŒA&øù,pøeœF„-Œ¶òQSÌ®R¬V{B¥YŠÒóãÛúx Ç¨4ŠýšuØâbÕ¨]…Ãb|–\·ÃSï—õñm}Ãß®¶½Z%Êb6¡Ö›þ|D=¯¯VÜ­Óçö}Ô€¾Eôú°s÷Ö©>^·˜†Mij #ÏvSYez|[«ooëã«úøf}FÊ,£J“&é°ž¸âD—¢êë{¯ž›¦f a«¸ZÜöMÝo…Ûà^ò­y‹÷µ÷NÈ‹7g>dþ ›ÿë³'ÿý„¯Htg·{¹¡¶4]8ô§Q o8Dú+CF)¡šþ´6>ƒèR8cë=ó2Â#àß°Ô~,™xsOGä?oé ¿XÎÉ.]§ŽÇ(4? þ=£ÄB?”Ëkä:r…p&=†3vò«oéê0.ýƒ"ó®ÂEqñB›Ì]JjºÕË aæÜq»rúÔŽfvOˆã£7÷ü˜ÁÁ=Ÿ2 2èÒȹ‚R:¢‹Ý\Gá KW8½G¯…Âêã2ilk¹àu·–áÅ|¿qT—:Ž0ÌÁÑC‡8¢uÁøN ¥ñi„f›ÂèœßG¥jÛ°SÑø£íõ:­¦î'VôðÓJÏ7s8fUÛª}2R|^mki}¦ñLÌt:äé7.\«ÕJ§ÅI‰+Yø»À]©ÙîXú̶$æFŸÈç•{±Køëʦý¬ VU|XN@¢Ôk,ýTàfÞ‡Ð2NÖìÐɲ§«9´):¬©¹?Ö5ç׌ľéù¸˜°Mêѳ£rVz¤Ä´hH®µ7x~Í'i2Ü„Eýãõ˜^,éšÓMÜø£µƒL÷ÖØåy¼&æÆá{ƒ…`ǻܾ-‹$„úN2^iÏ%—”‘ˆ\ð }TL.å#5ž²î;³÷>sÿÌB( ² ø$(ÿP¢I‹«gð5FÀ¿PŒû&¼ÔŸ®gc$¤øTU kò›™}^-Žn”ŠVÛA=FÁa…ÙÔSÝ*8ã ùi]Í,ËI›lÀë˜ÔÉñ¥6)äaÇÙ ÂKÕÝy8)4ð¼ ?ÄCVß„Z”•W…A}Æ$W®ü4Ãü>ƒP Èåôh4ök¼¢ñ|_ï{_à¨]>@Þ±ÆPHqqªìÄâ VkëˆuK">ÄëÈÎÚã׈l<ÃK%•²Y!IìͧË,Ö,Ž‘‚¥cžŽ.xl<ÖÄ*µäð¹J·ÇÿIU$¢Ž’>Ä£ ^k]¨>ûFÛ¹ÌðëÍt„«½qÖq×£ßí‘Ù¨r?ÇàB»Î£Ÿ|c_VòdÁéKy–'€Föi¹Ö±Üó|} Qz/‚=ݯæsÁëŽgïÇ¿}·Šâž½y¢lýæ7¯Ÿ|3\<öä qðr𜮆õAݬX_…Ùò¯êèÉŸÅ}òÞò¯ê(‡?©þHùIÿÊ‚ ôÐ^‡Ó¨ì€ qÍ! ÌÁi¾)9( ÈÝÈ6ÚG6jJ Å=h8Š”l¤–¾ª²cº^UÏ?|L›¦2Æ9±=©˜˜8¼Eœƒ0ã)fóºJøŒç*7ðÒJøË™¬cÉœ@rcUåf >Ö¼ûñyãÖ•Ós*Ø°Æv`‡×”}Qi_¡* 6¨ S‰²f€uåG¹V(ùêiB˜Æ)X'«p?)žÚ.ŸH ßaŒiâZ†ô*Q ˜ªÓùSkÑa¾´CQïþ ]t‚…–OY¿§¸ùj»: ]\øi\#>Èmøcp'“@l»a0VT e¯‚ED¾x‚x‰Ëøy0WÕûLFÃ*ûf•Þ‰ˆ·šÐŽ6¶”QÀØ1ñ% ø›ñkdàq6áûÞ*æpTÎÑ5ŸŒg¸íñ"®—µíq!’“MÅïÊÏ· &—R>ì”3±Ô©}ôi&oß²\“¸·Ë~Á8º$® Ûš{ˆU&ŸŒ Èôz`J;¾Âj È|~MŠ¹Óöu;çéY4/ûô-£º¨à™e£1“•zW6ÁyE…‡¢¸RÓ¹…G+H§åámœ¯“Öžì6º)”kphÏ'“óã+¡Üiä«Qf ºshÇKå©Ð_ÑÞ¤QÇwt–6‹í+ÒPxÆ!Ö[VÏyªeg7ræÒÒÂa®£Ìu݈"K;QƒàM3™Ì>K·ÌMn3ûTK‡åöm5rAÏë~|×NaæÔam1xó]–H îÏ—õ…hÞ®/v§§òÈ4åexÎS¿M™)J©mÆ,û³kR_uz‚ þ÷›´endstream endobj 656 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2429 >> stream xœUkp×^aÛÔuŽyL¤Í$ÓhšÒ4Ð<3 °yù%KkYX–d=lɲž«]=ŽdëmÙ’õðÛØc0&ghH MÚ1é@§í$mÒI;mÚ\Qu&]Cš´;çϽ{î=ß9ç»ç[¶|Æáp*Û¨¤^¤“jëë_#%²]Z‘|ÉóT¶˜“]³,ûHÞÚœçŽûÎ +²‚| òó ybÍ}±Õwx«²_ÞŸýø{¡|œÎYZË|òé§×•(UµLZ¯%~¸iÓ&¢Ö@|í!¶“™TA|Ÿ]4“r¥ª‘Th7H’ÐÖ“DLN%ûJìÚ»“X»so±“Tj‘œ(ÕÕÊebâU™˜ThÈ'‰:¥šßÛb¥B"ÓÊ” Íb«†)–±—H½˜T-9Ö*RÝ(ÓhØ5!ÓRµH¡%%„VIÈb¹N²Ï~¯S*´„J­dý¬‡ UªÔh5bµL¥%XÄÒí;î娭i—p52ÖM(ëØ“¥X·TÍ7>­H¦ÐZR¯]©% ‰L£’‹ ,.J¥–ÝMA§‘)¤ß¢¯#Ô¤T¤–ÈIÍݸK]ù¶>⿪©TrÃݻʻ§¾Á—i5¤¼nÛpâ?ä¯Kìê‰%‚eâÿõ}ËÖÿdža÷+”jV·»E$&ëdä¶+Å`±2¬{;Œmöc;°Ønl#ööûh°åXû3gçÚ²Ëþ‘§\^³<·âàŠó\ÓÊ5+©•_ UA¶Æ˜Ê>œâ ç“¼dA«>j÷vAQ°ƒ¡Ú(R‘ã uÏ:[A¦sÔ0“¾1ýþÅàÿ‰ýN· p§ƒcÉÂYôñ¨#`nÓÙµRÁZ©ÜVëþ9„ð pXKꪷ è¦w†;¼aÂOSÍúçÕϵ›ÝFïPd7Ï¢Û³œß-"ÉbÊeÀÃEiõžcUÁZ|ï¸d~h(Ò7#¸04ÖßÓ7yiôs¸_ª;].8TÁ›ì—왩 •û¥rðÚ¦‰+ÿå¿/,@ó¶ºõçcoqøWèôxodŠ2£z´#ŸñõÊg4ÛUz™Úd³RÞÏí¡1oüx€ö;Ì?ª©Û+p©. |P 8L&[…¥† þ¡y ý~–ƒ»zþjÞômžÇî¡€ÆkFÏž˜ŽõŒ ÆOÍÁ˜p„œ”eLIÀLJGÆ{VeF0>K¶ôé#JÀ·­ß¸KלV /Ôí Æ¥•"‰®µ3c8ºÝÝžq+E1NÅØ; @16¾”Kb1Û´¯ÐjÞËU ­&ÀÍÆtWbqàïÂ.oü0éåw@Ä÷æçäúc—Ò·õ6ÊÕæp8)åtºÖL{˜f»Øî¡Á¸†ë(ÕáV“ËÍ8 ÞÇáf¸å95˹oH×'3ק>ø“€}NæTöÁçšçM¥“¡NÀCÊj¶Õv Õh%(pegs¼»'ž+¸ÊA[ÙNEÑgÐÓÙÏ’ƒn^(÷„Â.NCÐÛ´Y­f³©¦Âd0oª0–ƒ—fÔ£¦>½-°w¶@^蕦šÇÑjt¹Ð³ƒT¢5*P;ì.©1ÒÔÞ *Ø¥~±vO}Ùa‘ðSrpºûâ»è¨Pe·º¤vZï4¹ìÒ\¾M'³èGÈ2‰¼¸Õ–œN\šöOg†._Æ#+Á>Onå-”»°Ï«öâ…k¼V;8Š[Áê¢mm-•Ú­xAöys ýs†æ¼¬=ÄÛr¤ÍΊ†ƒ uô¡e§P‘0Úík÷‹ÖwÔ@-èMFi³Hn6Õ‰D¹bØŒ‹7ôgÆR£U[%# nP‘N€¹_ †“½ñÓCx®¼—WZÓØjÜh뽿ÞEØ÷f&==p‚9Eµ¼ìÐzZͨé&ã²0v\þh¾‚þ’º›Z!*ä½t°\Ù¸´yèܹÎw’³ÂÔüÀà0ôALï¯~kœïõ³ÌxñiÝ`½ÁêÔH[*ŒmºZeYósðþ³AÙ̹[“×?Ü |sŠƒæ>ÈË>€ámÙ}LI‚šŽgÜ…á7†FÒ g/IÁøI]º^gdÌZ©“©š5d¥,·Œ-¼ôDÝ܇S}$ÈÉÁK|9s{ðD´UsDÕHìXœœçjÖ>Ú8Š&.®.|ý ]ãµC¢ž3£üC^+XØé¬ð\CÁî €˜{‚ž¹ÄoñSÞØ"Ý+»”™%¹Í6/ÃÎ8^8Ô}wؽE´“vº=: ß馜ƒ÷sß÷°±!å-2î¥UúûrCÚªçÀ¯ªÃÖæbvÊj·R–Œ+ÊÎÄ øãááøÜùÁ“ø‰©S¿íýdý$zÆŸ {: X÷”1Y;oxÀç ;™»îôx©¤»ƒ5?æár9m£–„ÇÎnYsãA]ؘiÀoü«€·î°ÛcfçßMDÚ“ŒpÕE&ÙN€ép´–?¸IàV.ŒúY!( uгËÔ¶_X‘+a»£Æ5cWb06>/Hv² ûÃH€}»5Ûg³o³‚.yïóż³åU?v²bVw ŠÐzôZ… ÏÓ[ßn»bIÀ4~íüå…©nÞ¨àÝYúÍÆÁr(z<÷wmUúø[UÂëe=*¨Ä_ܲccMurD%hî¥ÒÔÙ¯»ðÕEzñx&Š­Ï]RE9Yí¶Û;»„á•á•Ðó*Ÿ@¾Žž÷œeå!â §çùÍ~«× bh0«©[ÛÌRJ£Ûl«.ɽË÷ЬxÓxcB¸íÜL £ÕŸà-©lq =—âž»ïæw_ççcØ¿,êêendstream endobj 657 0 obj << /Filter /FlateDecode /Length 5586 >> stream xœÍ\YsÜF’~çnìoèØ'ô†®ûPÄF,}Ç¡õÈmÅìhÚ”HÑ&Ù–µúó›G•…HÉÒ8&üàT²2¿Ìü2Ñ_©^¯þWþ|qðé÷É­Noþ~€.|ö¦Æçã89ú T¾:x¶º„ §ð¤¦9WåÇ«ÏŽp^Wú¬²^ð‚z•ô*úØgëWGK룟áfLs·…-&xàèÅÁߺ‹õFõ&ç”B÷Ç*'»Ûµê“66Æn{‚—mNÖ‡n·Ö½RÙšî¯úœc4ÿ{ô -ãä2ÎôÎøa™Gës¶OÝçø˜ÎYÇÔí.a§¼ŠÝ‹:[w·ÆålJݱXw¤r0°ô V6¤Žf€ô¹;]o¬5}N¾ûo|.*å¼Î½u4ƒV*ªÔm7âµ/iAØ¿é¶çø‡¤´†å߬ǭÞà4)XçXJeS7¸¦…M6µ'šÐœ=üuÍ÷uI¾½=Ý5¾ʬ6Ö÷ f¢‡~]{ßX®ÛÂr6dXÐt_ïîÖ&€Dbî^ã¦E)xÛ×]ž‘rÊž¤ò6 ºÓòzÙE¼^fÝןÃ=–wºû„/G”ÝõDÔ Ä*H ÀÑÇyÃÏÁ ¿¯ª6Ì–m÷TGgš«gu‹7ô¢9°REX;9ù÷c|± n"’¶úЈҮ­¶V;ÒVpHF±EX#ôË5਻eÔg8«ÚLÓ¦š*»ä=†Œ<‡“ ‘^ÙÑã|2EÕœäÝ¡Þ…QFýšÖpz~rPc‡» Mxß® ‰‡£´„e ;1ÇTúm0®çmø,™ ÊC½Ú˜Q0ÿ‘mLÅÁ–Ah©*è§]%XÕóSÕðíÝ ••C…sN÷!§îœKÙ?MhèË;ªhT¯Mî{þh¡+@à"˜Üö†'³™ý®†Š—ÁSv_Òæ@eu÷oÂHŽÉŽ¬òâ—|ëÇÖß”ÝÃ"»“²Jö÷ƒ  `¢0Iy8„À:ùö¼CŸ•Ö-é—„ˆ®þ¸NeX‹à„«ƒZ7îÙUж—¿d‰ão\ž°žíB@ø–b°¼/îaºFs­a[zÐÑÖið©d±Ä«êj„ä ”ƒ1DSÀ<%¦€d´^Q{Ðé.w$ëdS$2~I^Û&À™Æ›%Ô`½mn| ˜5<+}Éà0I '£(T,¿Xjp‚ºÂÆ7„i>Á⻊N’ª¯ !ü’P1ÃË–Ž÷BiMÆã•3œàÕ‰|úE/„ϸ«ÀyåÍ/xÏ`2Ýg¤ÿ&;] ¿ªÏ‰)~­Â¨/6t½ö(88v6ðža(Þ²gÚŒ›àLÄí0Šz݈0çVLs6Z»Ù¥rØ5í÷bÒ;û È /wÛÑo¨÷óvÏo¨ˆÎý0eÏoDœS(~Û?ÀqpUùÓÔm„©Û(h>ä<Ü4ŒSi'j˜kN^T}Ú.D6”‰¤5†}Lú ʳ‡ÅoµèaR‚éZcÜñe×WëÆΊ½ßò 2Í&ÊÁcÏ´y½ ¥ÖƒòÀñ98¾Èš!€ب£oê-Ù=l݃•Û‘Øñ›ÀŽŒÊPtSß’ìR“|¿ör${†—…P/è%á<Ï ÞN듺²nNA)Èãz>Û­ð·e@D¢J(ˆ¯ÃçAWÅyÐë%› „({±6ï¦fRÒµ¾(á¸Hnxy<ô"„fˆ÷yºÜË‘4:§ÈŽ©$:YéQÑ'À©Sõˆ³=Ç_Xÿ ¸ƒÇ„_|w B4Øõ2k6…¤B›9¾«`Ü‘:ûEG‰ng‡Wuø¨?¾~hØÏ^Þõ' Œãð®_Öáõì¼Ç2®‡r¿U”ïÍs‡½Ì'nɇq’‹‰OÔ àŸÏ…eï*sò¯³Ä–L=82&bgüÃ\÷gñ]â[Y™uÈÉ®×cö%8ÉQÞ”yíNÖ#7¶+o¹š˜ºùX8¬Ó¢DmáºÝ]MæhwN3qE@É—çïk¦Ýbˆ^$ûû§Üew:•’M.›ö}Ïjà~‹««  ò¦¼ËȈ”¤†“ˆÜè<ß“³lĺ*l=ÎçL•9aÌrᄽ1^¦²œÏiXíáÜ!¶räOÈߊ1‡ÎѽD D(1¿SãþqL j§uÆ¿S##ž=¢Æ«Ô5äKÂrÀmbqí×%^eÖPP56¾…÷d£Âm³KNà\î?‚©Á@~ë“Þƒ+šGÙìáOëú'Ø;d%°{ˆÑŸÍdFD¸‚P9ùIÆôÕt ̱,³¾¸H÷»#ä>ˆ3o« qÓc ¬\O‘ gÃ;ž0À€Rî®*ìPœLȲXѾvEq!0C8jM¾” ׄIíR1áL -’V M(RØUo([Ádh‰ÿGÍØëcµzæ§ñòCôÔýÌüXŸêÅ–æa’I Ú5…<Îü­W¾ˆ‰ÈaØ„-Ù¹è¦à!.Œ:H@k]xÊêv"d"ÆQ®qÙ ]õç,è ›9N Ò2ôÜŠ;$z¾"ô4™*w#\]TÀ&xMÉ…´¯ÌÆ(düÖ ‹AŠ§ï#U| Äé^¢cžÝ)ÉI·Ô©R¸Y²¨l/€t1—Êeï›ÙÞe£4^ÕI¢‡âDmUòMF1~Â,æ”´ËDÐç(ªHã­sø 1L×òîØÀ6ÜFì¿lIï…ý&¿ jlÁ4Û»?’¤×€'Š¸ÀY0Î8Á~­¦l ì%ˆ?y[d†½»dW³u~T/gJá§\•†w² ó»ë)ÖÊÜ‚¹‡%TîQÈï]„Ÿb_òÑKf^`\o‘Äвž°ü¸ÈÁY÷ËÚ;´¼n‹ñ'ÝÙHm.|®‰º¼쮑#¤A/±3­0"†5ÙÕ¤u/þÛ›£›¼z·N awC›«Ìãëx]ðj¿pš!]yá€d£;¥—Âó¿‚þ…†5Hݯ‡ œ“…eUŒP˜#j‹¤Ü´|0¤í¤Ï%oGŠÀG½ò&á¶dâN~çvvxU‡êðÓÙáçuø}Öá·uØÏÞ»ÁÜÀÙ[Ɉ]$ã?סHçEâ.è‡~v1ïi &Bìa;»Ä/³7œÎîì?ëðbö†ÛÙÉN¶þ!ôƒ·½³¹Õ„)ÿ ÝÓèÏÖÉ¢®ULdl%Â:hº(;}.¢ ô  åXÑ°)@tÓä êz2Üæ\[/¦¾˜̶ûL á7¼8î£ñ`ð×i× ÖÆ°oæùóöííT‚êðRÉ-S¸Ô»ow¢ÌuQã‡í9߉æwã"wˆ.ˆ`y¡Ž*Bz±Ü“õX+©6¤,Er²^ô¥¼L4Ëo5:˜(I’:±ìÇè íñ5ôA^M—ë>!ÄÔD,Æé†öý‚žTÁbL+³žíÐßæš>)‘­´…Ó±„ar1»DC¤ÞE=z¡'BoÄÞ¬GÎF$þ¯¬ïšØ}¼»²Â§õ¹6¾ÆÒuŒ ñõÃU…&j¥Å|”œÅCd³‚\?Øß”v–{,ÛùBo‚Ñú½QÞz·OB@‚&œé³‡Jd!«OÉ—DmäÞÇÞ¿…¬ rB %}ÈCH&pÓ$3c@ð‰eã\W€jˆû!‰Ä–9|ÊaëNYƒ’ÎÈ>EÀ©öUï16©ñÞ¿"²à>äcNÞðÖ#`y'²-CP›Ç Xz~NP¿À0 ŽQÏô³Qg‰§(ñ—!âÁΙi͆hCäJãšNQ‡‘Ž@…™XRâ&¿d™Y ½ˆ +òæ°Jè¦gT¤D=ˆêêBÜ)d4i¬miÏ„±@2š{õbãw{MDÜks·§ÞÚ\¶Ú†”Â~sÂNÀ«R³«–DÿÎõþ‹¤>Çc139Q˜;¬*¡6nBvNVú÷¾Æç =-.A.jÜïÀ>ŒýÞ{ÔÎÐdñÏÒH{¿Y¿‹]ÐïÂ,;3êƉ2RC.(læÐ{Ý‹}½ åÆ2cJDEœÁàÈ‘i ËìÓ± c3qOëÍŸàÕÇE.,<À­€ôÏ€POù =ŸðU<£ÇÜÏmÀ1w¯…ÞŸU½¿á»k‰ï+ -vÑtû³2Óø¾6t¢‰Ç™m׶ŠãÌh8YÚ˜r®–túJ„¥ßLyÛA²%5 ž×rûšò#w”š¼]vÔ½ä=Z;†ð<²ù- ƒ7vq¤锧C/:iyÆ£$™ú‰  ‹5½MÓ»`@rð“t_äMoFßW÷Ä·ÎÆ&“ÞrÃFŠz vþÊ3gtó”=+mOÄE(÷üù—Õ•ÿVáb¡ dÁÜE÷‚·IÅ·ÎÊ‹äÌç¼÷ûBÀZìZîÇPh\LxŠÁeÜÿ \K|› aozZ=Ötú¯á”dp %ùÉ•@Ä«Ù›_–WK *æÁ—ø|i:´‘©ÊÓ×äí~qos}ÁÈÎa>°)dF㼧E_·¥ sKØŠnÝgŽ“Ú& Úã‘ØÏ£}#O# |¬ 0µøñ‡eG˜ƒšé‡Æß6·Á$Fi›ß¡mþ «´v³2—J£š‹K{õò×Âèäû‘£³Ø·¼Ð`NmßÀÁRzÙ›NîÞ7¡Ùc©è„ì¯Óo)™ >h|ô^LjÆòq…Ÿ>ZTëÙfLÊ7ÅðªÕ᧳Ã× û:üYf·s og¯Š{wux2{o¿+Π2{æ§ñPKi‡¬é´E­ê×:´uèfï-÷ªµ¼÷ª1:Àù+¿B6 Íwƒ‚æš~¯ä±sr°‰Ñ«Gã CâfŠhKô ™‡4Ø°ûñ`æ®xûryK*bVž-ÚåŒMsø¶ó{oˆÊí—ê?fÍ[y ý‡¨íj,|ÂŒ"׌JTN´ãiåêKÛìÖO>x"VÈËÓ´ämß­m  nTÞ®,#Ènö|Öá×d"K+ïý"@&ÄTÇ1gKà1¢ùåÀy×®›ý‚k'säÓ7CÔ˜—¾Î]øZ|‰‚•‰Ë­ÿö+¿¹qQ¼(SÁ´”Ó¿£ãßjwÎrßk~×ҶaÊùLç.ÄqVCÝcžÂ•~-gËѸþæ º‡?r^ ì§Ÿ ]"×5á)G„}Õ’èÙŠ”g¸”Bë¨Ð˜íVF¼“¢×³¼¨”~µzÑ ÒÿAôî.qð£ŠÄ}úíu)š•NäTZ¦8û˜1¹'ˆKý½ÈRþBQ§‹‘3RéÔ|wø68ýoUžA3 ‰óˆ‹< Rh_”«ô Æf¬B£,ç>¦œOí í|û’HÞŽDŒöj-û·ùóûîÛ¦¼Þ¯*0.P&m™Fj©P÷ìQ|b, %ºÖZ¸XãQãŒ>´ Å7ZÚe»»×³Žù§:ü¯:|ðÞmÞÕáË:ÁhC9–ø8¼ø×E̯ùƒÌ8\±jl‹µízµ»çõCÃþ#ÑGú,{7V¯áÔþtY„YøM·Æß2¦þóüàéý ÒÌ/<=XO‘< ú›ÝÝõ%±®:S •46ÝÓÛííÙÍíÙ1Ýê´õÓÝÉíëíõË‘àÇ®x©ÙÒ}’õOŸÌÝ{]‡§ò->Ѐm@â‘…*~$EF™?‘ Z—R ‚JÝüW. m/jàñÓè¤EÄÐÆ(’ Æ;,¨Üá´gµÐK~LT.y–Ж ee½ 'ïE?OÑ407p5™hüZÇÕÝáÞo¸Œ?˜µ1ŽŽ¾Å-N-meWû>†IåЃsjÿ>‹ú‡æÕÂ`.~Ÿqý¡ƒ?Ëf‹úq,ÒŠ<°müÄïÙ0ÄQ Ê²€%CNAÁÝÍ[„/²Ø¦_òRâ'%ÈW _$M×â “Uôåµü®ú%õfeÓ|!ý¨­iìõø{XTÀ6ýÂ?y‰*âs•8wc3Cýä+¼»ÉŸÞ‰l[ÈJ¤£È¹Ï‹ÈQÈ°£Ã5Ñ Vßøÿ±Üt% ıhækñdárï ¯²Ðª‘E²0®j*zøŒ2©~ø'zøïà¿ÿ—žôˆendstream endobj 658 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1084 >> stream xœ%‘}LSgÆïm¡½h'íÔ9oï6ØÐ!n|m3› 2`‚,©´”¥¥-%ˆXJ†…(á›0°+mqÞ‘€A„Íf2™e‰S3]Þë^“­u9ÉÉ9ÿœçy~‡$¼xI’Þ±I©ž!€ÛBroð¸­|0p7ŸGyƒˆ"/×?ÓþHé‡2}ÑþW >IªJ«cÕš ­RQ g‚ò¶1aÑÑ‘ÁLøÎŅ̃*¹V™'-a’¤ú¹Jªw/ÅLš:O)×W0Aèõš˜ÐÐòòò©J¢Ö*vo fÊ•ú&U®“k r¯.Ñ3ÉR•œñ8 ñ´XµJS¦—k™$µL®-!B¾ëý"" ŸXOl ÄÄkÄFbA¹3^D 1Mî'GxŸóîð㸺u–³±ã6 .ó~î+¶›AE'$‚(™p®Âì0õ¢QXÇè\™`ºi.ºk¦Í¢·Ù\at9%žS+èDÜcÉŸÚŸð¹Q”"ÎÔW™ŽV]U@áÚðÔ5toaľÙn›„Ÿ(䇽oà×±8,bGƵ§¾í=}ò˜ãÝ?9wæ:PÏ.~óÙW{â%Ø„U&“ÅÅ›¹½·¤áô<"‰‘Ï.8ÉÕ¿‘ñùèº+¾;“ˆy Y{4Í—r$lÓ7ƒ0D¹tý…Õi⥡õ(èÑê£i7ñZ;ýëàÂܦní˜Å"ìžë4Ú‡zGGÊz5Mô¹©ûÐÔä‚.ê@ñ{ïÖJ*,šú0Yª-p”ªì€ú%LäÇr6’#–øÜŠ³Ø‡KöC‹¶¢¾ÎXCãÇ/²½eháC7Oc$]"ØXÇaÔÙ,ž%ÂHètJn £¸wÄø_<,|™“£È÷~§ûQYÔ÷˜vsSbgͨÙ'Ýߘíi¿2}T—Éj®³€¹šVTeTíƒLHoËé15™Í@UAu¥_co›µ©µ…>åw-…|o/’Õ¥–˳+s!âÏè.ohf¡“2 ×H ýmòG[õù!AèS,ÞwР)¢ÿwèëX\u:Éù¿Ëí/Ý7L4.^ÿåª}úá¬y@_[[ •Tio™Ý~âÄÈ\öD ÅÁx Vb3òF›ØkÍ—çh‡ƒý~—y!y¦Àqh4â C¡ü‚Bøº¿ èvyæöÊ”ÝP4 –A| ñõJežNUT™”ÇR7¹â!VöÏ]㞈ÛÚ¡†)Ü!8 º™5Ójl8>@å XíýÀÚ×~¹»£µyºÝD ‚êªôD]Év쳿8˜ª¬ÏÃÙ.zXèÀØŸ³Ô:·Fl7R··ö °´CÈ®YZK¯ñŠ´‰|-"ÑRè‚ø jîendstream endobj 659 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5343 >> stream xœ­XTT×Ö¾ãÈÜ+"¨x’¼;(ö®)J4&ö^±+(R•ƒ4‘)3³gè0éC¥ ìc4Q/Æä%1FcM4Å}Éá½õŸŒñeå%yoý\Ö0¬uÏ>çìóíïûö‘0½{1‰ÄbβÕΦ/#Ä%âK½Ä¿I=Iêσ»,ÀJ V½ë^zÑo þ456èÒŸ‘J$!Ê9AÁQ¡;||Ž£jt_k†ʬ`œ˜•Ì*f5ãÂŒdÖ0k™ÑÌ:f ³žÙÀÌfÆ1™9Ìxf3—™Àlfæ1ó™IÌf2³YÄ,f–0¯2K™×˜eÌrÆŠ `ú1ÖŒ ÓŸÈ f˜Ó‡±”XJú2¯Ñü2½™T‰ƒ$_ÒÝ+¾J·K?èÙûˆÅv‹wd²tv5{Ÿ+ëÒç[˹–×ú¾Ò÷²ÕX«Æ~ýûyô{ÏzšMoÍÝþKû°qÀ…–?´}Éöˆí“A}ä9¨Ž_Â4Ø×n¢Úî¦}•C¨²îÊ#n6Š J$u]«¥âø®%|rž*+b@”CüºoÛÇíTøÎÔpþlSj4B=”iN«Z9ÙÕÚh#C¶.]—~y{ÔËN’±iñZ$;¸@ˆà϶§‡h‡Tø\eÍ.ev|5G¦âZž(eh‰ŸZX‹Á(Zc ±÷Uô¾jgÛŽËQÏÿô÷ãçßÉÛ´B 1¬«ш‡tÅÚÃpò4'z–±BAcäp ŸCMP½¢Ú+o#L€mócƒ8ÌöÚ– WZø³—²7ÉIÉ ´H rë.?š”÷ ØhˆN_àåûó¾µ³1BD¾N—yHÀÁ²‡-o¬˜¹pþx9™,Cµ’ÿ¶äÃóp•»9ö3b/tsþå²k:¥·¼»ŒõV+g ™íâ0¾x÷ë;·^ùˆHõr²\ç·¨3ëäX«XäšG/Ÿ¹âÍark1GY-Ž1Hjn`à ©‰;x´súØÛŽdðÃ(´AÛGÐF d¿Ü ŠæVÍ šéFè4´Ô;ZÐÐâW²£Ü]»ÜÁV…n rupŽf›¬3â8ƒ8Ø]=ðÉU,»ag»á×|Ý™S%­À}rv2aˆlÁ˯»yUÖ‡É÷”€Š¹½+Cêv^ûb¯ûh‡GG,×n ßî%·=pž%£Ly¾œ‘´MÞíû'y›Ÿ.bXµ¤î–]•ŠÃð ¿åúêl_àˆ%‘Œ%vÄöñ(ìÓz¬àT›œÌýãˆâéPÖ•tò)»ƒC·¹û­nÖÒ›hÜåϯ}Ò1m uÄ/@{rùÉMÌæcß’‹#Q&hXµ&&¸àÒèòÒò‚Úýµn+ÜÝ—)Ž~`ÉÐßÁÑ ]žö„ Íyój"ØÙªÜF ¤)H‡ŒØQ'AÇ[¸©Z*ÞïšÁwŸy†âgøhO=Gï ܆zs™ø±“RôrTßbäú½&¯Æ¢ ÙkJ¿1ÂdL—õàp  ǃÁ¥\µÌZ­4ˆ“Ê$uÇpÏ1)>_ç÷Av\²âöjuBBR²™ÆšZû³7ø凔‡Ëëü›%‹ß§*‹ÎÙkˆ/îå;<äË“q‚*G“\,ì’“Al4$è3´Úâ"!-#7/=½u{‡Ê@‘`Óvåb{DUx¹|ÇŸÌYù!é³ó “Û_Þz™Ìi¡:AIyÀåCf1=' o[#N+‘üt_¨–â'â0ÞH†ãÒ V3ÕwØú©aIïÏ'.Ö¿wYè ZËÎò÷ñY7‹¬e{xëœëŒæÌž¿%E–'ç1V֨˽&”en*p¥ ¸¥ÒŒú—³¿­ÉöÔÓ4çpÚÍ9W°3ÕôÜ0Ï“ü?{K,cÿd&ZeJC,[믜&:ât~ÊÆ%s¦%·ð –Œ5ꨦÈɃ{‡oMDKâA8GÊkÎr¶‘Úi2•kad$d‘#>c¡µ(c—Äœ)F‹øþSÁ`”mW-€môYÛÍ‹2°Ÿêâ|LÛ÷QÇMBýe-©— >— Å¼±PvºZß`ªKe©ø‚QR"ª¥¸‘We¨3 “«l€bÁÈnS+4[ÁÁǘ=D% ÀG´ÏˆÉReC6dé2÷áKø™}é±z}½–3²*7PCøkƒtæQ5ê}»!â5ê¥I··îŠ~:m×*i×üŠ/{·%­Ô4ÖC¥†à±àÑ3c›&?" ^¤JœHRíG`UrU˜T‡J£®’®ÑUµ*˜?]£_ψýP¢ÉÍVæy€ ÔÉJÐ8“pûq˜—T@y-Í¡ªÙ¼7Wº7:W ìèG)F­ß<ùÉ>=.5¾ -7-ç1°ÿžH‹OS€C¤æ¤åp&â6DÔ£¡æn½a`Û'›ïàô«Wªíl7+ñÞ>ݽƧ 8Ãù‚O姃ְJØè㇠œÃR®®skñ>°¹`#pSç¹/ñ/®¬*.©lÛš®‘WUήîX§×Ëò¬m%³VýVòB¿9¾áëÁƒs~|Q s|M§ò«¹„ø1olݲµîè…Îq|†`ÝuðWˆ÷Å›üùwÎi÷™R¨Úñ&uкõKµ¦`DÂ^ÕÞäDrƒ¼küÎÿBE½É¢5eá¤8K™½”žE™óíÔ£ÔTRÞ;f~Ÿ] ±Ù~d~iOqhfjI¾˜+Å3Î'fƒ–>ºOîeeëê*ÞíÙA0=./ÊùOÁQ ÎÛKÁ“ LNZ2Ãþo³Õ:Èt}®¾Ü4ÂK¢1q5xöŒøtꎕßÞ>¤ƒŽ«¬ƒRZP›ÔwZrÏrÝÅj}0NéfíCW†¯ \°B!:O¥ËÒVgAWY¨Š vkõ>þ~Û™S.§çVµ¼§s0²~*Øó=t6ï¤:”*úϳžfq¸QløLÚåÖ%ðZE÷Ågp6õ"åˆ ¸ ç_-È Ù.H„Ä(¢è~Ïž(ij{K4º`p 3žÙ‚d66§õqJ—¯=B}Næd‡Ãá*¹¸ŸÕjQóO&}OZ‚r!=;-›l T‹ÖI›ߥG<\tâ³sMôÆÄC´@þ!S’iÕ²ŒÇEhA±Ó[F껹ºgê×c²ŠëÙ>\m$‹'Ò=ÈjúÈ~²ÁfäÒ¬.SäŠhe²ZªÝ»üÝ\#=¨ÖxT„´†´©ß¡%s(ãDåÁ²ý-ÆÐ wUyéc@‘\ê»|r†Û‰7h`ÇÑ„'¾}?jo+-¢À]ÂâØgJ'þð<Š­EWz®¾8ÓìŒU—Ln1Š/K‡Òï]îQ[l5Þ‰ô'v?Ž¤Tc}äIyfrFB¼*1E#ß1|Šz7l†íUŠºG4g¡•ÓVðÙ8áVa5œ‚³îZ2ˆ£$^Ó5¹FÒùXT<–vEá7ÉT²•lÅId íK–ã$œ‚[r|Á ò›˜‹*tºþà:Í *’Kä/[cOSƒ:ƒ-.ßùZŠ'ÌV§/Z°·´·åä¨Sr„øj9C¹â(CUQqe“×5o8¯)v†ÿuòñŸ¸L¼J‹{µC Õxž"sè-<ûX*:áEuÿÛa_¹œßéIþ[DZ*<ÚÓëÜ—¡3^nnôƒ¼.'Ã(rÈö*\zþÓ*L¬’ÔœÆÝ×êNKq.à 1ÆÝÀÝ»réú‘ º=ùòƒ ‡@ÉTL ŠSfF–çæ”Ç=Ý”>¾Bp™g>mGÆÍY0cC­Oán¹ZäK9gG¡OUÔ†oØÂÍýv5B›O\k‰|Û»Bp©_ã(¿ûÁ^]`FdÅZazAv÷8…Ÿ˪tuû*ä%UÕÀÝ‚1 Œ™,ï 3ùýh£y}õL·ñ£g:U˜sᆼ§ë4ÃZÒcѤ¸¤k1ÿ v…áYq믊ó7g¶BÛlÖüšžÌî„0­Ïa2×Ú?ü²£ùR*5¾ÔzSQÑ®íÑ >‘úÍȘ= {)‘䆻ìÌRK‹¿Ç•ÿ™…²dÉì7ùþí;»ÙZ8ô˜*èZõnÍfØ{´.=“=†ÍÁròK^ýÚÈUÄ¢ fütIZM4#Å¥á8û4GþíÂãÁów/>¦_;Û#æëd>9zöT‘ç¼?÷/…ð—^~®¾‚ê»*<ô®06¹­‹{Ç£a*L‡Mëw¹r¶ŸiÊþ«{›ƒKñDž,‘ˆÖmÒ®uTòK¡´,bä¤ ›e…P¾ vÅ ¤™4³±ôkx1Ê‘þ'£ÇWF_ΰ™ýå6 Ü­5PxáNšÕâ|>FC@­QÓ^„#ÖØKöÃÝúÎò¦¤0ƒà™’äq\@EtyUiquçšöé#‰ÕZGXüÿþ!àÇø*{(cÏv9)ûã7Å^,=n²¶ßBF‚‹ Ôwò´iq~sNJ2µB.9#13÷³khùAH£§odpppqp½¡ @Kr—“äb•›pŽT-3…ê&2RÜp’¯ 3Ðò üµ¼)姖þìR"é¤âú®Í|j¶.Íä+â2bR”q)yü¯™ªu ¤8ìÖ'f¦åêÓLii)D\“bg—-oÐèB…eK&ÒÞŒZåbxNVrÝ´ÙVÅMüLLð5-Ô¸õ”üØ *}£éN,¼%énÑîsɱú"#Æß’þ€ù(Pæg¥¦egµ­‡+Ž÷ÈXä&vwô„•°°1ìª2Ô™À•Ôä5Ë‚wÅyLúx"J±ß÷±?ö{õ["Ù¼)ÆÇWŽÙÚc²Ñtµqåë¼ì¤´d55H ò-‘®{Ý©ÍqËr-ŽOWS?ÃÅA|tÏêºlhËw2ä0V9ig{ ß7ñÅŠ*häÞÿ°ùµskçÍ[áê¡ 1üÑŠŽÂgÜÝñ§&u~k¢W¾OE °/2#åŒ7gûõËî+—;¿0äÇ…È ÷ðÈ<˜u8´PPfÅer÷ñ8ðòÝGý`¹ÃŒé›g¼2ûÜçWŽžý°A0/¤ñ›/ ⺘ۋï`Àm;Û'¢ ^âÃYêK¤ÛV+6¤ÒdYêæ,8ÈUF•EF,:±íòô±Ç Áög¬ V&vøÓÜ7cÑB°}òäº{à”¾UhÜ’Á‹’vLvdñ^ZZ¦=‡—‰söa`nF™Œl׳FË«}ËÞSK¬ú2¬¬®Zõc˜ÿ\’r™endstream endobj 660 0 obj << /Filter /FlateDecode /Length 159 >> stream xœ31Õ3R0P0U0S01¡C.=C Âɹ\… Æ&`AÃˆÍ ÀRNž\úž¾ %E¥©\úá@i.}0éà¬`È¥ï 43–KßMßÙÙ È °±Ñ÷VÐÊ8çç”ææÛÙqyº(¨-> stream xœ]O1ƒ0 Üó ÿ ÀP ]ZUm?eÀ‰Búû’:œ¥óÝÉgÙ×mù_ÁXÖ·$i²,Ê ´Åx°> stream xœÅ]K“Çq¾¯|± t˜ãŒÍÖûa…Ba;lKɲe„u}b(`À"¡_ï|TWgUwÍÎp)9xàl£ºYY™_¾ªßoÔAoþWþÿüíÍ—¿Mns÷póþ¼½ñÙ›C ðûMýœN‡ ÔüóÕÍï6÷ðàÞÔÔç¦üïùÛÍ?=Ã~=<9d•õæÙËPo’ÞDÙúͳ·7[·{ö ´ÕÁ4;Dãá…g·7¿ß¾ÝíÕÁäœRؾÀß*'·wê´±1n/ñ±ÍÉú°=íôA©lÍö>õ9Çhþ÷Ù¿Ó8NŽãÌÁÍÃüÃnïœ=¤í?ãk:gÓöt£8åUÜÞνm?íp8›Òö¹g¤r00ôkøi´²!m©X¡ÏÛ»ÝÞZsÈÉoïE¥\‚5a¿Ñ[G=h¥¢JÛã^,ûïi@˜¿Ùßà?$¥5 ÿyW§ú€Ý¤`c*•I=à˜þê&µ Mh¶¶†žhó[šmNÙsëvs÷ÖÀ,\Úì­?$èh±m4²²*»íwü3ø:Íì¢ê"•LVf»oö[‚rÈô£ž ʛω|NÇX6 û”ë²á§œÈi·76@ç2b´15ݽ¡ùAfûoWÌq{÷šìâw&Bc›÷î¹±ÏaûõÆ€ÅXØž–n:Ù†Ê@¯?÷FR¶L·¿Áwœ‚‘Üô’ßÀ‘‰ŠÞñ {˜7{}6ØòÒkf'í¢[Û!œŽŽpÈä;?›ùh}vúà&ø«ˤ(æ:älºy)¢R:¯Î+´Ê¶óúûÇæE?Ÿ4-ÝO«älf;­ïh_rVau_ÂÁXãcûÒÎÎR²•Â‹Y-‰ü)ħC$Ž¦Ÿ~züyætkน ž¼9-Í4ì¾FšTYÒ;žNv9òKF©‡—@ÑÞ˜`RÞøŠ^ðY½ Ö§e:P>¸…6D/ÞS£ÝüÄž>6WØ2ÔcsméíAàá™è¦zá?=º0ç§b…Y;"ZP¸¾eÀŸžg„±2ÏWÛݤ½íW;|1+§­Å7÷¤ªJ“,tüÆ·$»•2À±¯P&˜vØ #èÌøXYãy¼¾hÀ<Ót®9Ñ ‘@¤dï›i'µ^]ì¼>–rDnØP0iÉŽT–à Nˆ7äv¶¼ñL›„bæ8?|ÓC½Ž)Е0óìºx,çõ^‘ê$9Nw=µ%&(_ÏFÜG$“ÊQ£d#2™‰¤ÊZ²ðg²ßíX9àÔÐ £²S`çö:7'”’R( F&˜€•£lË6 Þ^o×Nš†CÉj{–<9¯I€ÀûZj·õ®Ñ‰¯gøfn!šÃŸyÉ(h>¾Ÿ{»ã&Jå±þd²5ð„Y"„"Åë±Á[8 ’ZckoE |7e<íjè:É&~-¢³¸ÙÈ"öÕU¯ŸÊ[ ·G9ôóYž>Í÷¾z>VÔ,uËÝExy,;§Gâ0¯YB¸ ôjNˆÎê* Ÿü€ŸgÛC'u6.¸™ê½\˜ž•R]n%dz‘L Ž²Öå˜Ñkßñi™ª}U=G‰ÅÜî×é4s퉢¸(Æ¡Ú,` I r«v¿£aBvƒU4ªòÛGî§ÉÓyðé2ô•~Ç ËäÔ\÷åYR8²¶"ò–yкþvr_ú®ë õe3ÛDמ|- üä_ Ͻðµ`–”¥/x 6Ï +laóðxüi½¿¡™¼BŒãŽvÛ›ÆYLÇ@;À¢yF`(ïÄÔfýP| ÆRT´SÆ'mJT StÞÜñ¡w(˜×.À}rê—™î-¬53Ae4NAO–ÀPMÀëGPÚf„Ç`ºÀ_aû¯W¼Ó.E\éwÅòÚ3S$ono÷/*Ÿa‘.œµ‰€—Ÿ,£ZÅç!:€/èŒ#¬1¼­ä“s8lár1.`f–p+0@"¨mnO45›IæϾÄ5iÀ+®yüš–jlp+ –´k “m¬_.¤t$"‡‚ƒdq±’ìò MDäÅòÖ`·¡†qóìW7Ïþî÷ Fî4ØPâò «Žë‘¯ŸsbÇ/ûΰ¾’¬]ɲ›=Q @JëâZ5¿0{ 3Ã^_ç$Hâ—Ž"õ~½±Œ·Ü…d§õ,Ž‡‘9èdfšêrüX5u&®Ï`j5þ$F€„Î…??óp€+Šý ´âñ™¬¹Õ ¤°)²áÄW,¹T2U;»ÃZ…,ŒD£¡\À54i@2&À9fôSže—tÕ¼ѳ-)v™ù×Æ.ÒS­ÙTºîDç~"„¿£ó b g0œ}¤|£ vÍž®(ù;~ Ç’˜É€®”æeKÌŽjÉäWˆIož9u8ÉpD(é°¬_œÈk †î+ŽZò÷Q"Ê»bN{.5±Ó¢ž ÅlõNÿn–溆ØJ'b¤ÆJÇ)ÙÔû£[þ/Ómõ™ÌføÑl^ÉÇ%m Ö’åÖ{WÓÏÎ86¿G±1^ÈÝâìDd a‘¬*æ”範F 1e.uyr+MöÉ…9¸ägWØȇ$MF#÷®°Þ³T=a½Fþž°')ä ܸõñÏgxGŒ–3°£ÇØ5˜£&F&ü3Ô‡Dj<óÙãiÛè–l‰´xâ‘wóT¡×F§æ=äh›ñvÂÞß´¦8îâ9î„‘öK ³Ð=ÿhX¶mv ãKØkn%4X“ÈB¹=ôrŒ/Â.ž<ß]|ŃÀͨn'Ê.3m¢»\ߣ_¨o C>:ª«="e±mÁ.K~ªéô¾£¾à8ãÞ¢1±'R¯ò€ ÚVœò®0ªŸù´$/e°¢õ"í¹9yŽWnd… 7Ëæ²ÌqÌëÈÝ‚ÙŒ†),SÕ)ös2Å7xS`‚dùÁY™Òˆ%¢ÐÑ/Ùf¤ƒõ²Ì‡B$"Wg-<~÷Š˜XéF[÷ O½YäzlÏ#µÎ*J;âýü"ƒ0å¼iBÍ=Ö>,¡º½Œ¯âÓFî’Á¬;¨ƒ³ƒ…ËÃY'}γÛc“¹äXÑ¡A];'ÜtYå¦Dí×Aã!B®Pz aÊ´ží¥W e"d霨@û²à§B{‹Ê´ú§ψPÎç5…ÁØG3x¦(Ž—¾®$}$Á¬ø»ä¡oQ €¨2”.»ýq)xéÜhJØè7{X|-qq%€šΣ ³¤Ž%ƒ×Í;‹BPæ›|¬8‡÷±â–—ßùÏÉ3Hhj[°óÀRŠ©µÉyr9­€)Ý6j}}Nr}隊ÑHdÿÌN›ooÔæßn€ûo¬ùty{cÑù S}òæ濇¾‚Ž “¯­a§7΃Z›|WÓ /¤¬V:\IÙ¬£…yk'uøH¶wŽUè‰to7N÷vð?÷HHÝø«Qfõä Qtð«6ì¢Ü !A+¹Éæ nPÏ#ãñwe èn£ êãl ´°©Ñ=‹œ°z 4è÷äΠ¯qü`$ôï·»Aö‰pgÌsÎçœÓª¾'ªx(‰é­êŸH Ǫ|'&!¢\Ï+8M©‚Ó¦8N(ÝÏ<ùغ7[óŒZdÕ: ßWƒL¸;(g'(RT23eõÅ°z®Ì¸æ¬öIÇ£BÊÓ]ÎñÏÅIôúÌÀ6„•Õ™ýį̀ÿצ†œÓ麩Iù\ßéãgÎâ(©Ã¿!ÒGW€YßgüáSÚM“uÛ6‡›+û@RˆGd#ç; E Dž”.¶GZžäj”]¼—îf“¯Æ·0[˜ÎóD½?†"(jKÊí= §Ø:ÖZ•)Â1s,N)ÆZmÖØï½I%ƒuÒÓ:9±RZ€-°“°Ð:p êe`+_ŽT_ DDæü–5ÞOGUcý±|l™¶âõ`kJO¿¥ÕÃÜc …YA€VàÌ\"äcIê“sȧŸj…> øƒ›Á&†>QƒUopÎk$/ xÀ¯Á~€Ùg.L铜˞8ëAJÓ€ 8l¾;ÈSeZ$Á„µ_Ò}­gß=Yg¤I@i¢[œ³óÇ•“Q²s=-m>˜=æaù¯J}»$E»ø¡Ÿ–¢MrÀÿÀÁHka °Õ`Ï Mˆ-u”aÁù4ËlÝ$ãNaO~½›­ß…ÔãJ­A†Ä@ TÅe1R©ž©tŒÁ›¥R r5=pÍ°yëQ&·S92´Îx¬«s#§¢&[Õ-ófåñ‘»¡Ü”4 ç çƒR~¬þ±¤â¡§×^50ï;B\ö¾ƒß=7êè§Q…•ŊWHám©IÁL…pÄ„L¹Tuˆ/KX˜Î,‹|Ë•ÿ¹¼ÍHv§âµëfèŽI8~ ". ·‘‹kˆHxj:4°n-Å' ®5Õ„ø4¸ž4s}æœjönØŸœjoÁŒÈTŒ(½Ó}Nœ!àü’TJ¢kaWÉ ŠY>D·}ÌÆØ r›ÖÓ‚\@wj-á:r²#`ò©.MxS•Ñ|,?“ï¹5¥ý®‡åÐ<${.FI}3„cBùs ö\õ †éá0ô†z©Ib,gOþ;جl•l®Wõ\Š~Ÿïˆ0ž hœïd¸|Òjèò ç[j´˜› üF™ Míoý9Ž´"aú¢ƒ&ÒJĉÛ.ÒZI6CÿW³ìzÁ-0bPSÜ\8Ú:Åï9ÚÊUm¥Cøx´•$&ªÔÛ¬’µQŒgÅeutál‘ìÛ†Žr.9? 0ê”r\T߉ŸÂVuá[|Ši˜ôcÐ{U+2/„«œ²sa¦˜F#NÒ±‡µ%HÝDxD~è¤0E^ùÅÞóœÖê2f©;©¹æõIaDÆxuR’1ÿ‰a¨fR·¢>1LEò×ü§ÀKl©ùÆÖN/UqèZðx—»‰ kuæ‰Ù@Á`âxcÝ"ÎÏôõUþø&ƧÖc]ÇYfb&*µjnÝ.+¨œÊ (¤ö¥Š›‡|FÏ`ƒ¬'èCvUS+Ì'%º`Û(e=ºmÕ®IÑ7ŠuIý‰î3+E€$~(ùÍc‡ív,‹Å –×Eê ¥êóGuîq\ÀPÖÚÖKÔ¥ ðžCž9 1>º˜kpŸ]Í<Õ— `L™“Š<Å_¯v\Y#ôáèÂF°Ü–M®ÁŒÉ¥Xj~×î@7:„»Ÿ–- ‹%µ-1’ ;û¤D.qŸÊj€öÌM(M3¨ñwe—#ßw•û%§«!£¿Ï²ˆw)¥xð¬Æ3GäJð3em`Õ|£;=Ù–¥ö®ŽSqãB4rŽ}ÑqŸç$‚!mZ4ìóòr‰æ¼ãˆXˆ>:ïu¡¯¹ `{‡zˆ.:´–$X–µO§¥{Ò@ÄêFõ;ã³j3–Ž¤F¿4+mÔË´’´5þ :U‰Kœ¹zdÀ@ÆY_$"-âJ§¨›Ã#êÚîç^åÙ)*‚æ `šähQç; u6"Í{V.xȨÏrº±žb MÎáí,W yŠ~MèÓ×u¯íyïÂ8»ãäàë̦ҢD‚žš›‹ ƒ®5Tkî ˜Ñzf ¢3Ê:OÛgóíóµ3}5%,3– V5IÞ' ˜–Z¤_¯Í¹oŠ"§{SŠSF SÌ>œ/ö",&s•)êƒÂÙš[‹¨-hlµi±Ø2ûrÎäÉDÛõ;O^pLõy/ðá§Ê{moxŠ‚÷M(ÿLªº|Þ'ª;Â+°“‚ÛäFwŠ ’®\­<;Ôi“²Ù¾»+Ëg{áñÔƒiˆkSh´¸†» ºû¬@<º©æ,ý5:, ˆž²æ¶Ÿ…³rÉ R™'Ž±´vŽR—ô˜Â"¦ˆ‹”÷ý4éVWü@ÕdÓ52$&vXÀâWz¼¸›¶©q!®„F‘¶z‰kô¢ß½XMŸphÔ@«iL­‡ÕlYWWÒÔýùì@#Rk“ÚÛ[˜²šÆÅêuÖï~,òžœå­?¦¶õQ­}·X›ýñ¢³Ï\U•ts;ÓiªµŠ£›+ÙØÂp\Oy|Š5µ"°]ÎpMyt-\»Ûc¢{]JïöGwêñ̵3oÅ=`‚_›Õ°*šd¼äQm;mO{©.-Ë™p¯k™ztUÖ´>,Î\‡í;IÍÜ8 ïE¦FPj׺ÃIÖü4¦{\È0ýÓL–SñæØJƒ\T4»ŸVÜ ª&¶ÿ‹ÝÇ`£ÞÇpîÒmxÑPô«wHa¾opƒ\Ýõ;î"^361€Œ¯ˆ°ËÇV­Ý›‚hŠuôФØqMbÎJTÙY’4HŒ‹-]Ø ªt±Á,qóÔ>.Ðä¥mŸÎ-kÉbòîù>=oê¼Ñ4²nò’;ùNÂIØ]¦àƒ'¿ç/çý¹çQQP„Ñ`G~àæŸÓ'šC~;£ï._²½Ú‚*êÃlÿ_g «›õuªBc&‰Ú˜ ýH½àQÜн> ï®:¼[¯te’²Jý>sW&ðås÷€ÒLÊÃm¾ÌýÌnøÊΗüÛ?:ÀÕõà¸MYwÊ·÷go(¢4=8F¼üy§NÜû”9¼Z5Ù3&K«Á¤ÙÚ¥SDL#.Ô‰æP¯ ¬@{žû¡É{ßûj¢Y–h¯ Ûëo+Œœy×y øtnƒ£YäiOø!Ë´»¤ºKcäÝ•ÜSŒ,$íÜHO%Qî¾!ò}ƒÕÊR¤‰—§Ê¤ßÔEßòs4l$U ¥»€Òªî›à[cµáûúÚ¬IÓY×Y¬ÂDu×ù_W /Ò…o*ã›'z` ÞŠoÚ{ÅúÂH¼ŠÞÔÂHû= #ù“œ¬×‘­Ü¨Pù%TÊú,¦"_îSMŸ¨¨z ˜Ix6˜°EîoðlS‹*¹:Ÿ™5ÁÕ{Ë·•&ÛKë(,ñèD[ܶrˬÈÝ”ÅÓûuŸÞÍî¡Ù«-§m•cýjâB¯RNS²èhÛõ0p}uøѲ:” |öèR&´0³“¬Üà[ñ¬Ä‘Ï‘\AE'eG‰Oðª.½¦½äßÿoÎ}ŠÞ”îÉ;Üe“M+¸4 gE½ÝN9Íé:íêw隀]}‹Ðþ÷ ’“qš¦»äO`ŽAfûÈ+Ѻë«?TC•JE('}ºå´KJw*Ë0!sF °EMý+ûWœ…9µŽcq+¿¼ÿÍtÁI’þäÆmTÆ™½~«Ÿ/Á&œþÞÙ&“HÁaº\Qg±Öò)u¥ØÝ9Õ:„¦®Ÿ”„KÍòšÔöS“×ל:•¾à;Ø“v l^#O“@ÅwJ…lßœC»d}\ˆÈ¶³4;~äëcV])Åj§8N[Ｘäb‘öSf~Ù5å‰/Ǿ!nä±k¯ÛØãw£R‡‹¾«Xûˆ#q(ÏÍ‘²jøsïOæ‘\`³í«~_ ›½¿E¼¤ë=‰;—¾˜òIŒÄ™ƒÛ%8 IAçõïk,  U×KÖÚOI² Å6/ýu;ñµbP§l­ªYÌ«ÿ›ø.zâæ߆6Ça­Ø¿äKûVÇHçX'C4ñ t0|†ñ`¥åXŸœ¿@ÉÏ*Nf*œmœ¾Fq0€5:èÝT_6éÈòÇ©ð³&xã`­”¥Oñ*0Z"è¹&ÌÆa‘gøÇ’yãtU'z‡ '=•Ÿ¯™5Þ¨ˆ¡˜ Ø %/Ûè¬éš°:ÎÑœnv‡³ªÉg‹°<$¾1Ë`9„‚Îh¾ËÈX³“SúÈ–Y '¾,U,ñån¢Q4‚Ñ°oMÉ ç×( ´â£j“è†Ý¥ÙZÝ”¼+X#LוR©òݧúÂ[XçK’„a;â[2ÑtPº!íGf¶©Ì/Q …> 8àaø¦ghb¦{ÂÊ0hþ9,€jžâF•Ÿ¢¿2%§}Óø=)gëcnWÉ[l~³\úÔï •O_É>Ĭÿ2 ;Í“~YˆZ.ºL|Bʹ5FBÿ…s¹a$̧„ç—r’?Œmi•»Š“pb3'5-îå›|0c2±9DfåóÁ¶Cч’ÓlÑM¼'¹úÇï`†ÅB² z}ž‘™ÍŸÜbðžqlnX‡é;8 €ë2dh5}È"ã7µ<9¯@Òã§æ~/{Ï$>¼›=©äZº ç.5ó‹U®ãÿ÷ÐÂhendstream endobj 663 0 obj << /Filter /FlateDecode /Length 8866 >> stream xœµ}ÉrÉ•à*ëãœæëK'f„,ß—’éP­žµL#M—8­ƒzÆ,‹ ÁI€µüý¼Å=ü=Ï0A Œ:"=|yþöÅãû3³·gÿµÿ_¼{öå7%œ]Ý=ûþ>x÷,Öèö9AûíÒ.Á–}…f4_?ûëÙ5<¸‚7-yÖþ{ñî쟟ø6x´¯¦Ú³ç¯žñŒö̹º÷6å˜÷Õdzçïžým÷‡s³759ïv7¡Œ+о=¿0ûlL(»kxêK¨®ìoÏ/¼wûbíîæ¶ý>»û ¾h“‹u÷šÖ˜l 7¶MÉ®·ûÚΟÊîÇöµø˜vÜz/»¼]ƤQN„ó˜ÝÁüÎ]†Y‹ßýxîÒ¾›w‡[®z›Ýîåîÿ>ÿB>J¹êö Ãœ=¿|¶‹çÏÿþì"{vá㾤„OÿÆ«Æh¥¶zãA'Øìs[tëñ×n¼ÅZc©»×£s[R 9îp¥0˜uË{Ð &Á#¨¥Fœ›G+r¾~Z«‚®èðŠN.ÛÄ@죽ÅÎ&ä¬@þíxOô]Ö³{¿§š%$8Ûî^ããXkˆÃÚ.-ÙÝ%?HäXïåS9òNhs}h~ĶV ë|Mûs©n¯hAÙã–‡ËVÍ­;ó®“ìÀÇÀü(6Ú»…e»_#¢¹ö!DF¬¿©/Îqˆè*N À*æå¤ô÷ñ*JñZ‡·„“.¤À̧ú3¿Xlû»yGoÑ%8ª+9Îõàò1ñ†å`Úýî†øDªÅ‡¾è;¾°~gðÆ%ÒJ¦ðëó‹”›kØ )a,飓^¬ˆ{ˆ0´0©È"bìku8Kç[Éœ+–èœîÌ[¸š*!xÙ^„§—ëè$™”±xPº7Žá+°ÍknG åMä뉯ïxŽ$ßi%ØVqjÜWmÄ9&n@㾚A¢˜tñh,¨Ý-óÅ-XÈ£b.iœÛ˜„ ›aŘÏ2Ä#ïÂ>eß G.ý†Æ²9*9ðO4qB¬"®UŒj!~ ¢Á–.Ój0AkLsÅ‹«í˜L-!oœÒ¥xí0:h'}+L¥ðŽLg!ÒëÁV”d ‹+0æ™—&ä¥awCLÉÇÓ à=_ⶈéó¾!PÔº¥¼Å× @ ˜Ê A…/?¾”Gˆ`2°¤MP*~T< ŸºÛŸ_dc§íî_ù¡Ë40NžìÄ£\…H|认Û¶òes’¡ CðŠuܵAGˆ"ñ4·ŸÎzeF¹dD‘TA‰/æÞAleo^’s8&ŽD‡Ù‰ãª<¦”Ðæ}©ˆv‘4}§Æï¾Ëùið,Mž ¸h˜”zBƒQ½-L3¦ýla¦ƒD‹ËEzßÈ£¾ Š­®*ð+у7Hžw?’Ñ°ˆòHâD}­¤6Fö뮀†QD1)˜ÿãù³Æê~<»ÝVÔµºèéÖ¢âx–ŠÝçXOÿý|4 ~ñXv·Ýñ:hÄ iÖŽ/ù1r‡ÿ8/xš×ò©Ï5×Zædçb'Ý‚ÊöUïà?wƒ,$oâ>ÁÐbŠaAåýs PØÿóœ1 úÞ‡úÜKLûh¼žùfÀ‹”9¶œfÞ:äÿu>øæ̘¬ -És~+Ä"ã?¨œ &ï3¡bØÇX~Iœé°µ`Æ óœ…äíRt!¿Ðc˸oÑá0À›èý ãÄÊ,Ñ!"¡‰ÒpZÀ•ÂÜX Gƒ%8Î J&ƒ¢õ €1ç…‡è3ØÀ¾ÀcÞæ&౤ýÀCïÜîújü±jC4–ç|öü¿ým÷om~K¾€ °0PEiRRôŠ)²‚\Ð&.K?WIÉ_j.ë’Gùµ­ÏàäøUŒ ±|ê6RpÕJ{™=,»îÚ[`ì½;";í²¸]ˆÞ=˜°¶4û¹‘ÉÏç‹ *ÞÕî œ6©µVäŠßÒžÙ2‡m»±l7‚}ä¿ Æž›.ÅCo´›½zÜ,8ÿ-“TìwŽS–qtlpŸt·xámVæÑØ°C_Ú™V²úήØ¥Hjs®ó¤¶ÂHf¤<¦ï7»^‡7Zô¦‰ÈŠ:QKëø»q$?‰±{”ºÄÅx³)ÿ¼u­u¬GGѯΗ}ÈÇ|!û樀c95ÓÕU`þ$™2èé€ãkHf»½zänzÛ^uæÇsÜQLÉKòa¤NÞ‚}5WG“j—à Bb±ÑÂç6Y“ZÙd+â Ù /%ëè Wå‹Fw²öxÎ÷âPÞ=}ÛØÃñÐm¼% 6¬¨N’ƒP¶6sÇÃÁ~6 ŠÃ‡v5+/Æ˶/à臙©Æ *OJg’Ig\')‰°“…M§×]ŒÝ7üvN–Åp%t¾92”ÁNE3”ð Zäƒkƒð£Ì1 oîž‹¯GIM¾èÛжñ †/Ç© þi™ÀÊ#Z•Ò€éêØÒ 7ï³4Œ#ÏÜléÜu9˜¨ùë5?ŸŒÒmnØQháÊ+^ï-û˜ › ´§Â6so¸i/y™¨J¿èÝ`÷¼FçÎm@Ø —×påߌŸï†dPëa¢p{ëB'Š÷caÉÞ”–Räæ@Þö•¸žqdr?±† Žé tö}-ó ÎÐ|FBqÙЮq•Á¶|;)lJ†(Ð…é ¬?œ^Š£3¦>BC‹DI9‰N7¥!“lLd@ö¸ûW¦`‚(¥À^>Þš)¦³Œ@nâ #T­JZ¸¦”0dŸ.DFÀ‘Háì]ÐùƒnSK8ÅÀìë߈HNÃl‰¢,‹—šÊjžqVyÖ¢:T±„†n®˜¶Éù·¡)!N1±dÑwŒ“ƒy/w(`?Þâ)Øðtéð륛 ¶xe/$ ·xkÿ+ ¤÷îù,ïñT±wÚƒ†/‚Q ÇXºEÔ™°f‘„}Uʃ%_`uS´ŒaÓ1MœÃ&Ÿ•÷W уè¢U=D–ÔãPMÂñ ¡„°“¾â¥ïªàc0+šË¾¢‚¨ß“h­ä¥«qzà$/ï1‡ šu¶‡Ð߀öІ ·áÀ”t%ás#&ƒoP*©>°^$>¡Qå‚œQΰƒC‹@º@× ƒô€£ÆI#Q««ÉU¶hTÒáÑsôäZ$Ù8 0œOõØŽ#¶rÕÂ(†Ø£‚ÒUà\ Uö‚£2,À€ÞI À2Ç2VÝÍÂÂ욤EoA§Ý ÿ¶íŠ÷Bc„a¿ÐW¨+'£SD6¥növr‘JÃ"ÚMš+€!r+͆¼ôMñä]!Åc«LÅžïÛ‚µ˜{‰ôh@›Eu`Ëíñªƒõ`—8³pÖ¦ææ>†o²Êbdø¦`#…½3»“^MÏ#àÄ_Äc¥M°®ÁÛ øG« û‚¨ñ"»X!ë-“jÑèQ¿$R-6•dZ áâ‰t8½`”…Btç~|À\ƒúÔð ±p²G;;´ ÒîÏBsüâÍù$ð†˜Ñ#Xvø÷cŽ;T pÒúÍXËhßLn?Í°¡} D佫Eïìai죑¢³+::¹¥¸t…˜ìRÅA"rì3X .r„0v€cRí=NÖŠ.·ûê`—ðúœ®$ù‹‹jMÖþ(áEÕ~”‹»À_‚M垨)M.˵º ¤ëSÛxèóKÓ(QÚb·„þ1(IòžJ<3L)™Hƒ@èP%UˆÙÑh7=Šv#Xí)é]?-ñ¢éì'¸jâzÂ`}Oj:ûü˘ΠÚk­Ç¦3RkŸ0|}BfÞ“0‰ˆ7´ A¡ÌÌ}ŠŠÓQ6¨5¶`*cR¤ÎÔ`'W¶ Ÿ“‡ &e6µfå‰íÍE[`Âe;划°„Ÿž&]Âx´×Þ 8áwp|ÃKË%…]S$¾ô¡ÕJJ V̨C´VÀ£ø¸x{‰gPûÓVûcµ L|«iäs×^Ã>E»BBËÕ1d+ ÉɆ§40ÀHë´@@g©Ezkä{’Ö-¸7l¢ÍË…ª$ú®%r•¼8ˆS .þ¼˜ü‹¨¤7ÉØðzöSSÃzÂVð–Ô‰ý`Þý‚Û+ˆÄ®LÛÛT«Å»óEà +~Y¡¹1s²iEhM{ 1ã]ZÚºE¯RŠK®ñ°¼Jb¼›WÇHA:‡}q~Æ$LXÙuð+vÀÄ“?‘FA 9‰Òâ@å6M8ý™,ÂjUÉ\•EÉ$³*¯6}û½ÃûñT& tŠ´vXPÔªJ§»å7“Á¨ôkI‹#c:¢Ì›ÜÊÀM¥)›m55óšå:†¹n¾®r™>× Ž¨öZiEßkLÝý‹kà­Ú‹q±Q‘t,ÉìœE ½Y‹úqJu´’s l‡kŽï{Ìk]ŠÅ.¹e ¿”D¨/Ηô¸O3€)–ÂZ”~ Öû7aËc±AÂoæ$}?Úî‰MÈJ~7ˆVÕ.ˆÒIJ©Q¸ŠxAÿ—üø”šýkî:RRùUÖ®ðméŠl|Õá†Ñ(µ¬U,âæ7²¼.yLM%þÂp]—’ ƒÖ«,à&&­Š6Q´%rÏà˜4`‰€aϺAÊNõÒ/iˆÔuC¤†. V 0Ö ‘J€>ŠjݶD³&YeGRMá¢Ål$JIîü~ú _É ¹NÕP ˆs)Ù‰&†¤ËªŠ&r9¢äŒ½,˜RH±$ÙOµÂúî,éî±S«WF¸x·_*#TýÏðÃÄÌZ é?7¼ °+<]xùvÒ3‹ÅY+ÚØJ»™²g‹Àbª˜FÉêñ1 _ñæâkõŽÂ¯`;«N•òøL’@z!‹ïqR3(K2ø¼%ëÄÞÅ:ædyZ“õƒ@L×ÕËJWÒÉÃ>0âþ—ÛÊ…Çáb°¦=›nÞ¾ˆ©šåB ½ûx}NI§q‰R ;+^ôj­\y}™]D`¸Gîë¨:9€'ªŸÄ¦â?Ø´€VZ@Ø-:ßã” 9綉eU@ q‹ú™MtÍ€òà‚0ÉE¨A‘µŽó(6‘WT‘Û¤>¶ x)qdpn³¨bá»_¾ó¬×ylälŠÝSºA§eñØùÇuèJ€x#Y½·‹¾é¢“>à¶Lùšo %srÃH‡ûÚ„GIŒ–£•›¹Ô 7ì}át…\ô]i­“Å僊ÔÐ ¥í@7Ð`ìM_ D ²¯AÝÀ$ÌZ&Aæsx}‹Us«÷ç0ˆ©øö„ðt …4ÉpB?UJHvñÇÿó¿âÊSãL}T¸[Ö»;Z_Á™j/™ë}>ªƒïJ‘°¤¤©u\ù Š–¶ ×+_%ɾK:áF¨ÞU´º¬¬—+»¨ÌêB¨ŽÀrí¨á­pÃççKÙæ܆Ù%—&*!ßrß"É ?òZ KT¹x6jWT]ÌÕ6iÃû•Òf÷{vLjó À"ÉIr böfÖÛÐqŠ¯˜£ï|Õ¦H{“L ð÷¬»Ö¶>`zU >¿Eø 1lfª=tL«-ÉVŠ!鲪éúzÑÛ£þm@­x~7hæ§ÑܾFkm\(¤Q{•ª´‹÷»q+‘;±bÒe®?R1÷ÞÌ•­8aw‹-rð“Y!³f—9Yë¤xú²3¢un{49õ‹žÈ»5v+.9Rg÷O’¨VñØûòi‰2þûlÞÎîÞäð2‹Ö[û¥Öî™ïÀ ryê„v` {ÐHÏ|M{`G'$´o:›3 ¤…µ¾q :žÚŸeGè"coÊt÷œ‚üØLwæÀxê&•®WLâU&hî~ÍKEar"7ÓŠÃŽ8ÁÃvÍ–:¶qÝ潌ÂSZ# –ËÃ|RÞÑkû‰•ƒîÄÈÀ£6\—´šgຑ/NÅО™Ô %õ{FêP^ºU¨_v|©'†8©s¸G}EÐèë)DùÔF5–æ¬}’û®ïì{©/_RÆ¥yÓfê¯ì_÷‚<žWLã¨{£ÓåL -|‹±YOérKñïBgBá>Ù:ÆJµ”øûÙeäjVK~ââ°€¡S1f±åÃcrӳDŽ½fÍ£dȪâÍTƒ!«~gî\ïÍÒOC)“BFßÍ€nÂl†/ã3o ˜:Tz7ƒÔaû*Iîš/.M³3)PîAx°µO/bÞIœ—«•ÀSõ¥3èu©ÊeŒ÷®§œ"b´E×êùå>/B_=%4â6hv71NIß`ÛUØ%Õ`£`ôr€B%­ '¤¸à:«Ñn6NZ¡,ñ£¬•åb‘¶"= L”>\Ä&NwÑ7£õü>¼ìkÑ€U·ýÆâpØwPTøè†{b’ù–ÆÀFuúÖ¶(@÷U-árjw›ÚÓ‘—§×§…6¿ç¤ó¿ž/÷¦¯_òº¯çÓ}$¥ø#„ã+²µ„G¬ëÚ÷@„êXõó{7œSMø=Î0ºäµ7 }ÕÔÙm'\4«>8x J[ž¼›ã;!yƒZœÅSÆÐðÛµ ˜wQá>>]’Ø£çO¼¸HaÞ{B».’+öI˜óãå‹”I¶¢u èÍìi˜Åjû‚Vœ:ŸÁÌ›Bá9y»ê1BP5žFó¾æÏ6#œíå~¥•£Šóíov<ì‰ppLÖ8æ„xe•TÌ×Uâ-^Gpa³i™ã” ˆ> &…-ôq×cè;ÖÞpã·É©ãÌJ$Äö“­¾†mV¨|Z#k»Ö2F~ŠÙd*©Ê‚í)V ô=…Ö3 Nã”=ÙUß~#òeYÁwt’/B;ù‚õ€·X: €MÃÙ؜ޚv¿ºÇAKra!^¤€Q=o ®ðøõˆÒѶ°mMrÜè°E_°Ë½ 7=XL®½=¦ºF@=¼Ç•"  OYÛ# @;>­moŽ‹£ëý°ø{EÞceÅy“C¯ýžÑo´£[Ü(·‹w­¸¡ÜÈŒ7‚ò‘z ¤ÝÒKþÙÙ`4 5O”÷egÐtŸ,ûÉ1°Ýxð+:n æ™åd§J »G´X #”«à9`OËåŸs‚ÏZBLc?)´Â%qý€°È×""è/@§®¼OW\¸¾aß(N´¡/ÐР?]ÕKÏñMuïàé«~’ùŽ>¼Z÷>㜷5y«™‡ò»€w Èf-%ÏÀì÷š:-n´lüž?…¡ˆ¹KŸ¬¸ÐhC•º\²lDMòè ëÓ/B‚u]×ÐœGvšÐ?O,ƒ {ºlêNHÔ°— òBûÀ›uì»ÀÏÔ ÛSü¬ré†â>9£p`Œ¥$ïaS¨V»} î]Õ¯Þôµúì/4ÆVïûðp¥äu»P6¨e#añ¿­wþ(v¿¯]S%fU§å–$žï¢¾ArÇOñíþ|± ƒLí6hІL"u¤=Ï߯æ㳶µ!eánἩmß uÖ"êÐÖøŽ¾S.oÀ½¯|ïþ¨ŽU&ò‹’¶ gêt¡æ·ëÏ)|à©Kí¾~J,Zù|8Õ_êχӚ­Õ™‚ ]+¿æ}³Î‡uÆ-ã?Þâ¿T­è=õ¥j~ÃQÙ¢Ð{ãz²Prºöf&×ðVu«´ÙIGôûZÎ~Uñ>+ "Z¬Üiõ~ËË“·Ïþ²©L:ü2ÀR}ß•É Æ¬Á‡¥­^¦7ñ4{á~:+ûšRàÂ}1C$Q¯Ï¡{#€î=Qà]ötÙ ë0ÌòP€•#xB1f–.ý‡Íçk#GÑC5¶C÷>æG­; _S~ IoA湪GÉËq”ÃFçc›F2z÷õŠ§r¦Œ7°s©8š+`Ć®¯å >êmI>¤^™‡WŒu¦Us1#ʉôÁ²wÅY¶æ²qNý.Û´ú@ß[ïÌ-.WvpŠ‡êG«"GGNw‹·×.q܈" *´k¹Ó˸<îϯylK™Løɺ0¯h€–uXW"&øu}½ ðéÅ!9GàÈ~!h|’¦€f—|E ê}à7S òH¾gÀá5Çb··/»0­m³- c-l ²8Çúð46®\¾pùÀz™ -1Í 4¯zÛﳤ}«ª5TJ r±÷–7êÀd˜ðþRþ!ˆƒ4€ K†s› uÖ$ß¿ ØÎç'R»ã°f‡yçt²Ç¯Ä,ò9‘ 31Ê£½Cß1Ý!VÑé(g½9Ú‘fäà¨ÁPËî÷4 –¢½Œa+I{ܱò(oZ@¡†âè¢"*uf/X˜hIlá®\Ëj{U¼¢u±dN‰ç&; Í/HÇæÞxcÄbÛVtCßÊî< ØŶ}¶ÜÓ ‹q@õšÇhÕ<ŸØƒ„/;º[®ºw–Äu5ðPnÑ ŸûI BçcϬ^v4Œ÷>ÄäRÊÞmÌBä 6a¨›Ìcpír•QE«%KXá¡°=ÂDµ¨\aâ±M·›Îh\±ib¤°X‡ŸéìÓù#ö¹/k¬¦YÎ"³µ±ªÅ´‹`•¬xÇaœ™˜F0³›¦R•ÊqClIö¸ãu„žÔ8`³pæd!ÑáíÐ~n#:…¯7<{)q’¸ØoÙUħhå p ÌzºdPâiœu\\–ËüÀ«LÍ)v £wL¬tcÙgT;×ÒÂqÛó¡ÛJÿO ¥­‚HNL¡Õ OqŠgíÇ*¥ÿý é¶endstream endobj 664 0 obj << /Filter /FlateDecode /Length 6929 >> stream xœµ]Ks$¹qŽð‘Ò`èÔ´‡µ…7 $[Rر²Ã:È>ôîX$›’»;úõÎ H  MrFŠ=,¶‰‰|~H`ÿz:OêtÆò¿/ïN¾ù}´§7'=ÁîN\rz Ú·¥­ŠS‚æÚüîäO§÷ðà |©hÌÓü¯Ë»Ó_]à¸~™ÒœÔéŇžPFu\˜’q§w';vñÐWyÝtÖv ÚÁW'ÞÝÏ“N)F¿»Æöœ¢ »§³yŠJ›vûø³IÑ8¿;œ©iž“Ñ»Oø«K)ý¿ÿAóX9Õ“­ÓüüìÜZ3ÅÝ¿âg*%âîp³ØÙÍawUGÛ=Ÿát&ÆÝ¥˜)š“×0õGhj5w4¬Ð¥ÝÍÙ¹1zJÑí~‡ß…y¶Ö„ãg, æ9Ìq·?Ëþå=MôëÝþÿg¥`úÏg…ÔG&zc-s)õˆsø¯Ž¨k|³°õ0õ›ßµ)&ǽÛÍ=7¨°ñôܸ)Â@ôÍžYg*$ϳO™ä8?˜d§µ[HN6¸J²¦#ó‚ ±ë1O^yë»?B.ÍäG®õýÙ¹0I™ÕÑ;ƒÛ‰“¸d:¾àm¼™ÉÅ´ûNì<öU1)ˆGîkbØ=ˆ{øí¼¨›ÄM;ˆ¿š’sÙi ŸK§ßž\üóŸw9€Bø3 Û¢ÔNáJfe¬ÁŸÝŒÿåAtéߤjO,‡¸¸»Å1¢ŸuØ]>Ó^ÀF­¸Èè‚OŽ rna‹>Š.÷(´ÁÂ÷ T«þþüT)¸”¸;+ÍküÔM轫Ë`¦Ì³ÖïIà­², ~Õi÷üIŒ‡{æÁð(ƒ'1rjSA £Száܯ»ûãtò»b¯´) ôÞ Y:$6;˜›Ur…þìX7=èã@ÃPïqèÔú"jžu ¹·S×I›Ž4)î¡`pAÂîV‹13ììSÞeïZ àT2Á{T>øìøLÚWŒÄgb²ñÎ23³lòÊ´õVš‘w0}BAu‹ÔÑЮ"`Ó€*à“Ý‹X—KCpó‰Wž”Þý´ÚÁOÕøqß96]ïëlÍ ™Nfä:uÃYÙ›E‘œY–dyðãØÝáégÓèçO£| ?øâ ZSŸ‰M’abûÿÖ‚Mg؈\³Hö6±*-úĪ:[mzûNƒÃ&eÙR¸3LŠÖfÙB—) ®ï|Yà¹Chcäuf'íùnÎÆJ?¡Œ¨ wDZbR,ÁT-VÙûÞÆ—ÍÉsÖ~äo…Õ½¯$ÝðÜèNåp{d@!¥a¾­ƒ Ý3çwߟ9GŠ²Û aåu÷B!.›½.†FÊ"Øh«Ä+a÷ï^°“ÿÀ3zÐRáú¥¿!ë§ ¨o/Ûø!„Mïý02¡½ø5SÏ,,ØÕÎì 7<“lßWŠ.«gšÞ,ö™xvÅsIcæ0€,ÃB›pËUæ wÅ“¸ÔŒLŒö)j›— ²ŽŽL Âç³hpYSšB4ÀE T{¶(w,ªÕ’Ë,û;v?Öx âQzÜV‘ Ži\p ØHîésºXwòRIw¯W¨Ë^ÚŒ5<Ê9Ô»õ*_ÁŽéöW©•Øµ¿×Õ¬h·UWòÔŠl ~.nw`ËÀ¦ë<iC»ð—±1w‡ÕÉ®˜~²”¢wÖ©&bjâlTˆ’Õâ­.:ˆ “”.'óò6q«f›ÉM ä5 xÍ%CÌJÀŒ7ýM|xÍÓ€'Èv)b–)¡ÜDcMÖ“cKy®ùK«ÖæÂ[ÞBþ$C?Û±ò"-ždzÁ E¦•‰Ý8`*#wó 5aD.më’®dšÉQm4ÁG#©ÃìD‘{É&¯ ô¥6]£¨ÉAnc‹×²hïâ"PÎ6N{œ·õ‰9å\`1²ä¤X•„rŸ…+ÍsöÒ¿ÐÙæÚ—"«>PÞªæÁ’)‡ûŽ+ä(0!1JAJi_ÐyM ±Š²=ÜI¿nàKÀïmé½ éÍ€t=0+6aB.^4¦q‘¤~zÍd#¦ÝåËÏOè¾À.#à6’€þÙPÀ-¼—àƆ!Ù˜Y$&”’²ÑÄ1©–¹Kî(”q0®Ìö—¤wÞÆ^,iôêXôÉúûEôÉVán¦%3§p¾^3€Ži|¬&¾PádÞýZGÉPÀØSˆÉ°qÆJ“WØfý¡@Ö&ÇDŒzžÙ.͸%"jÏé&ÀÌÅd¤i9 Ø/'4¶‹N‹oºCÉòI« HØ’b- ^I•ú a˜òiðþ7‘Qô0üÂV¸E÷öÏug„ÙYXø”ôw7 ¼Ô¨ÿšb{Ò–ÑfBdåïœWi„ØßöòäšÎ=ñÐÞ­5·p‘:Ø5êL ©ZôȤšqÖ†&k2„RyE¶}8ˆëÈË´AN ŸOÁ:‘Ppe¢IGía,Xf—tÔ[ͫѱ©†£w<5›PSÑýûÛ뺘«ýÓ¶9;EŸ´ À:¼F­ þ;A5Ï®IåeŒ#u¡åêA︽³Üµ†`þNÆðW—z›Ñø5C£ŒÌ‘¬aßö߬J´3Œ÷š6XíÎEiz.O/~pàòþø)¯¬ —õ‚êø\†òòAå]æWS-YçÆ×K̶tP@ÎÍ•?1‹tr›lZ.Q|&`Dz&»2yHÅEèø} ô››'¯0n8GJG0Å¥ÇøMŒó…ò¡[T}HY*…FT¦‡‹Î¨Þ0Ì>mߦ¦D#rÙ©4À#hQÃÉX¶3>4Ú¸Ô”¿é’r£\sëÞ¹(Þi;™^®Ö_Hu)ùÌ×"¿±z‚|¼ÿýöüÑZÚ…:ÿòËWÌŸ@.nç•ñÊ­` `ÓA˜…ˆä_¾BDðüFzµˆè q³›¼”âÙq²^’I×åq Y¦oE拦/"§¿:. eúFb¾lúE>äô£Òíµ|¸Ù@Â'å#ÿòvùˆÀFmñ)2&âï^:š0&Y#Rƒ"(5Y@;CÃóD_c‹÷¯ý-ƒ»’ý\¾rºO7ï6‹Ù> ˆXÛ">ÇæiH•»ƒ»2"‚?tÉ¿ †NÜÇ'­¹ÃkN[èÔ.$» ÊɯþzV*VŸ›P@Â¥[·Rš¨½E.¿pÖ]3=Êl|<±½•uÞ8ÅW‹¾ðÖ‹'V:Ÿï guEÄÆ2,»<¦’@7nêRÖ™K'š¬£¾uS8Û'»8D[}qØlCQHYð,Ît)ËòœôÞ<Ôš‚ u»d:ß@} Zz†Eæ ²œ[ÔL­Þì¹½¼ï™/­)—¯-ZzBJfí?VaßîÅ–¾|ÇE%qV=si¹êÄMTÜ·yGõ‰ûæk`Ðr "[ÉrÌÜÔ­$Œ3ÎZûÑiç“áU’f`»üH”óA"T¼(ÌÎV}s~$0Î̸êFÔlÈjȇ…‹Ñg.;8Õ‡}ö©ZÍÂð‰Jj%ÃCí¢Ëh2-Ùc6ãª?g)Inˆèœj}»h™:§õ °:t'MíÆÂ9ƒ¢} ­5ºøœ'¯Ê= ¾eØÀÂ#˜‰OòU9F·~A ~÷òñ‘ÐïY~¨ÈN®ý}-=|#ïlòŒQ·²RVp¸å±¾¼“…b‘%@Õ†ŽtN^œøXÙöXŠV3ÛF¶D5¼|œ Oö!¨BΫe›†‘ŒüóŒm%÷¡=ÇéÑ!6ÅP|Éb ÷ÆóM²0'o¯gËBLè0õuÏú&­(ýYi»Ð¶[eL.ùaºÆ+d:ÕÀãf*îê¯\è@Ê{÷õ2ªC%Ð]}xY½¶ ñÈÆõ÷³‰S_ôGVT‡n+Öº:T|Ï'Å¡ô±ë¡êßšF•¡o©{ê»0òIÀ{¦Ó+¾IžI>ò®%u™ó›nøe¥ìã¥$I?Ï÷°QD«Yžhœ<ù"dj:”i}à +ìk@bn6žÍ ÂM=9êŒÏbCTåÓ‘€ñ|!¹5üÇ3vK`8a«ŽîÆ­Ë®`•Ÿùï¬m\N2Y/Õ¯NI-æêý͈<×ø’Á“áãN:“Î@¡£¢à×HÅ#wG-XV:®ÜÈwtmì+¨Ú,Tk½R9h+B‰ÿËysã|Šž—~YI³Ýò‚C§ýÅÞÖ0ʇXCœß–%Û¼«o˜É£‹w52c¡ÍsÈ‚MQôÌï]&¬{–Çà?Ö“ƒ¥ÚâC1ƒçPûàyF^šÑ€ËûÖkô R¿~ÀȺ‡Gô™öüîÀ¿b©cçjÛ­SÌùÖySüÅïÚ øK~ 4ÉyxI•™é Î.¯%^*õ5¯Ò ­à¥µO¬ð#>\ý%-¯p?V—"ž? /mÁ”bé ŸÏOÚ‘²4€ÓòØdœs´Dó;üíqT˜”©w=_ª&%£6TÍâ#ŽužÓF2øzìaÐ*HDÄÒ÷•–Mª]ŸXÂgx¹ì¡¹+ ¿š^Fû3fŒ#Ôxéߣ¼ óÄ#,Pc›/¹“fN¼@%õƒøVNºfPÇAš=8–“OvÑá5ù©}SLtŸ¶]µé};6¾ÇÞÆ¡CÚm’„ýeÐMÆŠa"ncL·ê±ˆÇ\¾¢'gJ4_'{ y™æ摲&¾-‚&…@ïFXÅT#…VÅåMññB|é4Õ­l¢ƒ a7z×>Ÿ]ãÃÑòyÓF#cpÖgª9–g9‡mïÜô¡ —zIgÑÉß.Å©ßûªë1â«^l?^AFÇiûÂY^¼ø——Ÿ‘Ù|˜rcŒ£Ãhõ¶r^™(©Þ¤-ùåÛ>mÍ,íÊcZÀ#ŸãŽÞr%ˆ-øÇ¥€ÉŒŸ -Q¿,€¼qS_+¬‘ A-/¸f›ÿo$2³7A5)írƒÖõõåN±¸Ž²‚Ü`yŽ¡@ÞŒnÐ’çþ?B®¹‡¥ûÜøÖ²‹ ¨‡ÆõŠx@ÀSæwÕŒ¶é ÄSn7 II7fü+ªñ;TÄçÜg3»ÈÌØNÑ·&KoJòâbNuC~J¨ÃÈaKƒ¢­š3JË…ßÍÿê‚÷i¦z ÎjݤôKQQ—¿Áúš*¼Îælñþlj³t¸uÉvvu¼þ*è’Þ±Gðx)Îta©ãg…1ô®BØÉ Ÿ(ÁúæH’_Qô -)„¥^+oÇCæ|ÏÎÔ¿->+ºÿ=Æ AW‘vHÈý–‡À×·o¼óuædM[Ãûª×N ÍÞ^™B+KíkÞxÝ„ñP9è¿Q¨$‰Ç…;<.Æóú£¯äÈjÍX{Uàþ ®3·‘CþJ>$s0‘–¥ša(T‡;ßúD¬…Xf9o¯ÉêyuŠFøÏÿ8]endstream endobj 665 0 obj << /Filter /FlateDecode /Length 6983 >> stream xœÅ][\7rò8þ¿¤Ûë>æýbÀÞìÉbãMlFàM€ÖŒ4Òz4-i$+ÒK^ó³SUä9,òÝ=’À¦Z<¼ëòÕ…Ô«K1ÉKÿåÿ_½¸øêû`.oî/^]à/.l´jòÚ·K;¦?ˆÒ|vñãåüp_Jó2ÿïêÅåïÁ¸ÒøiŠ"ÊËGO/ÒŒòR©8ié.½õSÔöòÑ‹‹Ÿ6ÚŠID§´ÚÞBÛ ýz»“„Íüªƒ‰*lö·ÛÖj RnO±­''äæüP:eãæ 4¥^@ol‹àUjóÚJ íÂæÇÖ1hë6© ô0šw¹b]ʤ–O„ó ˜]Áüo¶ÊìAoÞm•›‚~³ÃE-½Ú<)ÃýÇ£?!å-'ŠjrpâòÑõÅÆoýíbgŒ¼Üi;çðן68œ^ÂÔ´PƒÈ{1Bm6?owg‡uþuCd6D\?z×swÍæºC§y»Ñx;w×vs[(òš6gõæ?ô“ >/ʹyólIK×æXðœc€Eþº¥Eã:äæKøÒDú’é3ìncô‰¨8¶/c… ó*àw\û2®Yø5l>ßU„¦Ë;¥˸쉔>˜ŠMx—¼x#ïï ›\§u e«=-<õ$QÖS±Ÿ·å¤wpRl³IF¼LKÅI@Ž`ä6¹IJ™¸ë'.Y{ÚŠðZÔBñ´ü|HË°p"/¨Š«zÙw¢W:Œämaˆ#GËS^†j–4ôjòÓ‡$ØÍ4ØI=YP%‰$%p Òä¹² M$_ ;js3‘48ØÜ— ¹qÈ?>ºø·‹¤Qíåë±.¬%}V… +€Óí%œÿdUÒ„ÿH³ }-wE4Ÿ—uw«2úN+ì#3³eš}µŒð§Íï+î.㥳 ÀL|Fvrwih°XYܲ?tÇ (o‚¬vLŸ¥`ÆÐ(24ìSyä>Z€—q,1=Ñx’¾3R%¶­7ŸÔzRÞ¿ed#¢£Ôhì/ql0ÖÇ„ûI"·D6¦¥ðCø›ØÍ·Ëùñ-Ò1æ“vÚÔË|‰òQù½,Ô¸Å`}$üü>­Ç73"=ƒñ#‚’ªp1(£’Ù’.TvKû ŽiÖ,û-.8H8¸çÛž“r2rÿ/Ëj»ÃƒN+hæîÏ^«‡ Â6w¿:kxØð3d=JÀ…iµî¬; ó¢Îª(„4Ú5ÍîÀjŒf·“pf™$@‰—šÊlÞ0ÊLöbÈ8kî¿É@[^„þ3 ~ºÒ·…oÞ' ábw‹ÞMN[U³XœáÖ:ç¶èÙαÁ†¢¬íÔèÕ±Ýè¹ó n(%YšƒyZÎx:Ñ·à(sáƒíL®Î™y)ŠÊÔè)lá„ {@Ñë É8"g`‘Ã˹LûpT–x€#Mß¡ÒyZGaEsªÍ°»o`¼)Êeù/ÊvŸ”æ¾4ïKómi¾æŸõ¨$qÆÅ…1 ¶¹áª§wQûîCh& m†Å1™èª ¯tk×pAüºÕTÊW(‰ür+ÐÀJä'üú RNÁ‡E<>/âñ}·ùy—R¨Ø˜¶ùºâ§ Rž¿la(ÉÄá&Ó)ú’nuÊÈWûý)‰#ÌÄCØÔÕc¸¡ü9­'ˆÖ1Át°Õ¹¾Ú."ò¶ØÁäõÁR·v·ìdÙêRÂq¿±¯xÉfц„Q×ð¼4¿*Í‘¾Zš„¸ÖßñI®ŽLBÖñ®4·™K&éñTÅ8s:ÉôèçéÕÎHø(¦ÿËÿ'Ó³€ÀÂ+_çš›ƒ…‡îq¸p^ËÓI%3¿õUÑßoiÁÂXUEOÎ`éJ}“à€Ä FÙ©:ƒ©Á [{>SQš×ËÉO¼bõcììäžÏ¾ßÍ̾æ“uö~;ö=#ŠC8dí´G x?©açy.{ZÏš¿Oèl†ho îª8¼:¬ž„þÍíÎ*¦ß•æ¹Š¶D&é‚Ap±¬-C¼-£Bžø4=ûmiþðpF ÏLaUë©É=³ýWÄh"¨ŠY‰+Sø2qš×¾‚1ÆÙ±0+ü £ˆÜ(¨p¦q2Ž…ªD¬—äŸÿ¦AIÚvÔÍ2ðW“¢g!ìí£x‘#ðÂÛYr-1á8&ÓøîÌÁ½/Íç¥yWšy±mçW¥ùº4ßô¿»êNòUw>ÕíËçP‰€”FÔˆ5 ƒù>Ýúôø¨Òq A]Ú±IÑÂïqò©pü0á¬ê?K&µõß”;!1õÀ„ì¯~â<}µ¥€5¥š`G |‘^H¤‰¢N×Là÷.ú‹\Ôc Ç0" L1¯–Ða|S5ðG†Rµ°“Óº"ðâp0¬ÿtòkðAÀ€³Rüˆû±kÖrr¡Y3ˆ—vzO€Ÿ`Ì=6B •#¦t|ý,×{o·<¼ZGq…Q¦ q¤ ÁÕ£¬bnwã£ÏYˆõ>õEíÚ„iÔ’ Ì[˜S"y»°wÌ€–.eú]1I )ÄIM2ƒçðÂðÒ å8Î{±2(`(#F‹ùLþBPÁö}öÙီÝ•“-ƒP•û)2KÍßµø¹U?Øœ;«®‹²\"kÉSN8(à†uÏ¿<‰Þ%¢÷OEÿZš,ÍG¥É¼Ó>TÒ4ÒÇpÒ;‘bµ›fㄈâ,‡ÔÑ©ž‘¯M}…¬u'Ë”ô#ŠÄ›)ÁW Ýà(ÛÂþÞ±æórʵ«š:k 8Å蔯FK’”j þ~;çóØ^ׂAåMÑ©Y€„Ë…ŠJ–uê_[G7‰.­U°cŸæ¿o ÖÜ–Ý7joÁ­M¨¹¶aSåjf|²`8eǂѸS›j°}˜Œò9©²‘ ±Ÿ`4Œ‡Ã´±&B²ÐY¶~b>Ì6’•uá⟂r ®Ñ¨‰m¨†bèAN¾ä¿8F«’Dºâ º).¿~Qš ÄÉ#€¯õ"áí{>Èâ±~QšoNuyÅ'úÛS«ïoû?ùȽ©¹ÃÀüçì/Mæ%4®Á©€‘6(¬,#€t÷»¤»%ˆo£»OÔ:t9Ðh¬ÃYŒOådkƒÆÍ–]›z}S¸¬Ï§¿+Í“ù5+'Ã’*'òkŽ%&0D±õôl};BY_¨£ƒ½õ¹ÚÀI¶>ƒhk]šs43§Ñ—X–}×åîo ¿;- Ý $h$xÒ; ^™dúj i Y‘¹ëàÀˆ¥H¬ªçIDpxÊY7{V° †™ï8|ÕØáê•q†Óߧé@S§r ‡XALÞ¨@é¾–¡Òar¾q♲O+§°ÑþMÎ?èÁà5ë°€§·Ýž‡-Ï!Ù}7Ù•à±u•ñ{XjµvÖœ9]F–ÝIîÒ$È1ù ]Êtâu¾íh0~ºÏ)PÀthßÒðF¸Tó# ~~ì0áУh³Ît`¡’ô«œ~Lí{¦Î‹0¤rK )ÈXyMw©+àâäaÂ:mðGRˆ´‘uÚ”(s^Ú´„5Vƒ#’¸H,+mTcZ»<–ÊT«°ñ²£–µer Ïam¬¤žÊlÞRq%¬ól^³®´œ UDRôNð[銴•º<ªë¸sÚe2cö‚—1—1¸¶Ëî98Ϋ°Ùn^[ Eì¹/„¥õ -­f5j^>Ȫyr僗J¯#Üy–ÄpÑÊ º u•'™«+Œ ^Å5î–£CβÈi7›Ä8«PŠÅhL# Ë`ÌÑ¥Š¸ŽXvªZe¿"–à»ËRÅö¡="š¹C:Y[Þ«P~\Ìü¹aÑʆTA€«°9™Ñ©á#.74¦ãÐUGæ]œÅ¬•YÅUè ‡Ö6×UÒé¬ë*±aÍóy¥µE¾Ê\‡¹L娋Y“ͶvܲÕ2UÅÍašŠ’ “°¢&o&3"òzôç‹G_ü´ùI"–¬Z‘%´“í¨+`\Ä`Â`ø‹8šB:nÈFr|›zû8³Iâá®ÚŽâÓ’KÒ*øÀˆM«\hþƒC‚«-ÿµæ³Üçï@m‘¶‡¶Çð"t<Š½+)'íÜù±w0Z’ß×»ß+,%Ðq-jÉ ÚÏGj8uü R"ÝÍTp¸-‚ÑØÑÄõ,‰8}áŽLê‘ŒÃ`Q›ó!AtªÊÇÃðˆºÏ—ètI®` 7‚ÊÍÚ8#˜ª¢ºúЄcjS³Ú¶d"¯î“É6¶vâ”w&ä˜B¤JÔó¼0èL(±£ S”nt¯sÏêRæÞ€4+ =I#a9Š=Â,0–Tž[5›»·á’H H`ù]v3³SÊ® Þ—WÀêh1jýEBzèæR>/X–ïiiŠÒdÂÛmöU™8'U¬°ŠmëäÛ0P$í5™4Ç4òMœ5ÙÕŽh¥S:yÍ›#¬R Ò5FLkÎ…*–n shœ(x@·mˆ†_šFÅ}¤KŠ úS¡<àœàÍU±õÛÔS¤×è»cÉ–€÷ããH­a•¾rªQkåªâ »ha+µüâéÌnàZ¯u]øR¯À mG®À OÖØÅÃzu'° ºj¨ÎD¥ÐžlÁ¬¨tÙéqaóº 6ƒ7Weuë™ ý>muÄ»-RÝ:7,zc´š0V!W² éüCëQâ¯(ƒy™qhöu„6õ†ÕXì„M3t¨øÈ€È]6«+ŒÈq]¾Z|N胴HÕ˜²ŽI’Îr GBI‘Sò»=˜ 퇾€.G#$`žÆ|ŸîïòmmHŠtP5̾gÍÕ˔ոᨈlù1öäŽ÷íýÊ®Ÿ@0Þ€/Ҷr¸]«ÀNAÕÞªEÿF«'».f¢ö÷é¼1ß$†ôH»;¹o2?© Wõ½„nеدa :Pôí»Cæ» 2¨Îþm»Ô ÛR 5ŠiË”™'•&©ö‘ÊŠWvLY3E[W*á¦ký5æ^¸`¡Âö) -@šÁýùk/,>ÂiÛ2ÏΪl»¹«[óòYò¹{7„½ј2\¨M5ýŠÉõ*ÎÊjGù ôšGºiø‡í#®o›¤È=0] —Åö+¾ÙS77‰J"ce\  òͅ¦z•õÊÂÑÉÑj,`_ÖÌG},°%Ä´*NIõ]Í=q"&°y±%ñÈ0÷œŽ¬ô:ëÒfÖš„_ÀG_ÌÉÛªA4Èû°rCZI y÷ ×Ì.皸ߧë\KP¡xY®k,8QX¶à>͇ÄŠI·”Þ°”ëÆÕ‡Ö[6‚j‰ö'WÑ:ÚHï$ÝÕúe»d–Ùàt/*œ(í=)ƒÇ‹ÚzŸ~Äb®ÕÁ,*Žå˜–Õ€³«<ÙÌ5ð§!Pë.ÇzÌáñüž"KbD©D67g«9éZ·ë $RªŒÉ–!ןQ$9ÓpÉ÷¶ÒÂNç>/?žìbA—ÁÝ.´)­ì¹âÉñ:9û•v_#6öžw£˜Ôrø}[¸¼ÂIÜÙX:€Þßò¥x🷽`àÓQ Ì—òÇUôŽÞ–«^^%3ßqç%!½ëÇ0Q×Û×\…vƵ_a&e—dØwy}{Î2Í£UõÕZÀÐ=Z|á o‘tÖ–jÖ¬Ë*ôû­‰TƱ‡î¶€Ë7ˆÇAi¿?,Ö›‚ƺ~þá þÔWHþ¹ ¼ç‹ü«LÌÐç0æõóÏžä=Ðóî*õÂÊÍûÑÁR¨<—5¹X‚9;ÁŸñCÅs¢·G 1tS‘C‹\¸rÖ Sw¬â‘±ïðù®SÈÄyýªp[e[¿&ÔúÕ½Zb¢²zl«rÍc¨„_FNÑJù±m ùuNBŽ¯žŠÉ‘É9úPÙß3oÝÍBû`eúyˆÈùØO3™±ïnÓhm8ò³-GD}7"§Ý-?žÏý°åÅ@óš.ÂyØl ŶuÃóÇžwkª²N¿Kę±’tº•ÀÈ›=»î—8¯.’&eû¾à îÂ3L_z\/âsTi-Bַ柳ó&õˆ"eWiåQ×¢±ˆWúÉÀzãu!ÓìZàhBåû_bß>ó“à¸-Ì°‹‹&‘æ;lQÍÝ¡ü5ó^ÿ«@ΗUASO‚ØF‚ÊÝÎ|»M ïnªÊ€· ^&¡±ŒQ©Ñ[jôª«å€ë§)óËýôY]¶_¸è¡¾4¿Ô¶Ëëm.À'õˆÉÔl!ÃTRéñ,øƒîFŒ·é3¼^~S×ί/p‡‡UÒm°@8½UJ£øÂÕ‹¼‡Ü5XÎDU uÿ!È*z[%ªpÍÂ}¨LlMêÜÊÑ$ºaú™;°5e–È%¿˜Ï–ÞºœÊD7,eBÀ’PíZI-ˆ›b¶k·uŽå2b·¬•µ ÿ0_œÂcK*’cVóVüÄcíÕ”žëû’ŽÆËu@í¡ìPÙS­s¦#­f˜*¤¼®Ÿ²_±(ùC73tu¾ƒHéÄds0}¼O¯É íç?s²®C;«ÈßJ÷V/?·§d<>±1€šßlž~ÄA•æ•/‹$wŠð(UØ&xQÖ?¾„zéËÃgEµ2M\§é$µ‡8t)º|SÓsž®–‘òH ñ¶’“·¦ã9•ÇÙ~ŽäÐÓ›Ú0,}¹$ß0#Ñ<‚úi—’—0®£‡Üíü€;\8?‘#¢‚ÏQT—í…㻦f§£ %”LAÈp©¤EÓÀ^&ÎR4áÍM ÆUÍ/c Æë”:òõ½¯:€Ì+¸Ò¢±––™76FóC­TèKó€|9p¼ë'7 À£åJ ªF.±öBçɇQÖž–œÇÞÊEÙ ª÷,èÉ‹’iÒEîZß&ÛÈ¡o³˜ëDó”Ÿ*öô~²¦âƒªÑŸ. ä}έŠ#µÚyÅ#Ϧ®f¦áŒŒ9¥î cÊ3;fÌä+3žÓ&xÏضéÿª•A_.vŽ3䉫Á:Lª\¦g÷ã¯K³º ß=w‡q“ØpJØÌ&C©cìϯ8ÿ‘J8-‰è#kWËÉ ä@£Ø84ãý¨ôžsr Þ›’½»—þ¡Ukûæiº­zß°}£C-u=˜êÔMà|áhy[¦_åø1 ÏrÍhf;J¯A4jëkhÇy­R{=|ýÈØ(²êËc}{JßÒíMæ4;=%®Js<{P]níÝ[æÒ¼gï¸p„Eª¾¨õ{¡oP~ÀbƉûT. *H9-ÐJSÖ7 Ì×–oxþ„;â]#pò‰ CÖUòÉ~!è_Jóÿâ}Ï:f«©Jcx·4_íÆK¨êªd;7AÛtz¿ö«¶}ð=§S0¦÷tçCÐGó&ÆÉ8±îÏ}ÚK±?|$SaÊ\1žò&…4ð•ªn ×ìŠ,ÏÒÖ—¦ œs¹¿3ˆgØòY˜×F3ºQT'¤Ҝŧ,¾ÓÅc6ÅIСoÞÔ jT+¿£i¨ÊžÁ§ ã¤fÁ¯üÕ›ó™Öæ¾Çßê^Úì™LöŽÌËSŒF¶‹L}™J…=EƒJ$g]ÚGÀ Àé§/1.SnN>d‰;|NËúÐXÊæ$¥tG0õˆ Ì—ž¿äq`Ñù¦ð¿Ã¨ÙGI a¦eÍyœ3Ý/…é΃z4 ÖQ_v.v÷>À[8Þãk‚”»9 Wy‰Ò~ù÷—pºÑã‹ÊOåÅ4þ³BŒÞ Ö××ùË2ƒ€l}I·¼×Øj!šsf1z_ †|§J/ø¹á`ˆ‹ñ-«yî8hu*OÌKØXØꥅ”LáAžlªK1f_ Ãc ÒÂG†ð_ ú˜QÐ6œ×qgG,ñ8A“~±WJï걫Óж<ïÑÏŸ‚“LNÄ' —n«ÉŸâJtlë~prÊD÷KÍëÛïàLû”F—›’`z¼MV¯±8Ü ¹Ù)Ò?°„Žq;øLâ4*ÕÄB¬S²i3'÷™1š»l/l»7ÏP¡@—*Ô²\ß‘¾½?ÎÕpë_äJ²~­LýŠ\—Ìuïm]/£=ëÚO¯.í®”^è@„=.Êhžêƒ[¶lkªekåW)•×ôïÐà#¤XÐN±ÒªÃe%uÕÜîD* ½*Íðx«ËlþÒO8ü¼íE0‚ÆôÄä§<¦ ðE¨zGM‰Ï\ÂþcÒKÎK•o¾-ÐóqúÆNÑê¾ÿRpË›Ò|ß6O ¨û¦4?/þ\š?”æÙW7£¤'$βADjüïnÎendstream endobj 666 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 778 >> stream xœU]HSaÇßw³¹l­XlXÛ¹ ‹ti]„}ÙQF¤T¦‚cžrÔ6;;vœRÎΚºÇ³/Ý1u6cK/"†EHAtS]FYÒµ¼çt,:Ë’â}žçÏóùè@ƒ0Æ…UÕ5uåùp£TŒ¥õiƒ~ÖÊs²}´`(¸+XKú×+«»é0ö¶A«ò¶ú×ù–ÚäÜLUTVî(¥¶•—WRûÜ4ãr:—ÛuÑÁ „ [uX³™£bPºƒû‘^ÅFÈ…ž¡Ï؉ŸâYÍ^©×(¿ýY;þ½&ßÈãZÉòã›I9 Y‚£!èKBàK«ÌW»UÙ«E®'â©áшâ©[8hNtÆ`F O Kg¿ï5'†! ‚>É'»ø`¨“·å1È‘Û92ÆÒ²œV*#¯LdB—ƒtÚ6e‚du£0Îqàï´*“Êda‡8n R62©ÜV&uKZšû·Og$wIÝ<þ8¯%µ$bÊú2Ïçñd|Ùl&“Íï—ªÓ˜”Hœ H&LJ©ïêx°tw_ …>1`# J£¢Z Ð×AK y-9 CCVR¯>§â‰P,Cƒ¢ÑÞ˜-,(ÛIEÝcr”5Çâ#7bñ~!…„^ä»øžž@ ¿ý^ŽØóÏÈeZy¿´Ë”ºùçü…¹E¬4ŒÚ¤¯ fÓo°ö|æ‹®“[&§LKÈ{òu:éÈá÷ÑÊ%¤ãŸ¢ûÿYfˆqfñ€sä“éÖõ$âƒíakÏ–#µáÔO:3}zú0è|BÑ”_¸ýb$±E‰æ݃ð6=jzÜø¤ñ5è ~N4³6£/#ï¹¥SŠÅÂ\Qn…µ¨`ݹ.ÃòܨÁ ÚJ„~1Mendstream endobj 667 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1944 >> stream xœ}• l÷ÇmœºWHÃVæ5nÙéVJ×1膄"(……• Þ¼póÛ±}qâø¿íûݱãGb“8ãà$ІBC[ À(lP -¨+ÛÔ—&MÛßጴ#mš¶ê¤Óô¿»Ï÷ÿû~¿'Ì…BqIiék?{p5?÷¬07wFî"-Wyïúä†Ç P…™¹˜ÿ)Ôü]T=mûŽ@$*µ¶U£^S_[GÊÖ,’½¸råŠÅ²åË–­”­QÈ5õ5UJYiY'WT‘üÍÙUM½œÔËþ¼Ž$W-]ÚÜܼ¤J¡]¢ÒÔ®^´XÖ\OÖÉÊäZ¹F'ß'[§R’²MU ¹l nÉÔ¹D¥hl"åY©jŸ\£3×®kj.-«oØ/lÌ,lì,¼$Ø Ø(ø¥`¯PP ˜¦f´Šæ‰þ\pö±Œx…øÄãí9OQnÛ–E?N爴0·é¦è]îI‰}¿×^˜É-¶ËO„ÁÇÞ€kÐí ÂDá}qHÆL`Ù P0ñQ=ADÉÁÚ÷C³Ñ÷Ðsèùo6^zåW»«JB÷Ñz°B-hHÃroÛð`¶ »=JûúƒxôTâì(`}ARkuk½vâšAâï&ž8:>–l"¹kïM2Åë„zëîŠrÀ^5Ü 2LÍE“IÈ¢³Y”NZ‘QÂø˜ø0†Š˜Ú(O“ßÈÍ/ß­ŒÛ ¶1€ ´3íLà ê/þ§øzܲŸƒCEx]”“Ç¢hs,º|ø{HN³liØîw˜)G« oþE£ñeÀˆÏ#{h„fFAŠ–‰QáQíK:—ZKÐÕ£C] ž@«i?ÿ1¿4f=žï·ðiŠB›oÑíåalàò:)÷L>[l“{ík{´ŠÈ÷ í ¬hò'¼ÈãY46"DWЧ’¿‹oû JXj‚rSöÜ`ŽGØp”å¹h†-õyÂf‹×fñðܤ~9`/ˆ/"ÿ#îb4kHó²Î¥þVî°Xo½1]ÁØ47ëågé¢Üž6Nš?ôŸÜnÖíîe¡‡@¸8Ix“€ñO%ù7étv`H¢‘õ°áe|q¬(ÇY§‡f^åf!¡ÄÕR^²°]­#ãç†ïöœ!Â}lØéŠÌž…ÕÜ<Ë´kaïÿÓñì0`ñ•$m¤¹Ž¨šg«„ZlÑ õ¹ß>ï÷áåãú8©·‚ñƒ#±x[ÜA‹ÅëR;qóN}Y5`¤-™î úˆ@_ü¼/qð“âÀ@ä°¾æ€ÅÔdÓ:ð¢Iö!æ¬ëhí5´åo¢œý^èí{¸°Î©ÙcÁÍÛÝ-Æ2›ÜRJpÑvpaTãª×jövÞx'uéð-<ÜÿÕÜ™V£³“=±o~T`Ϧ¼Úù.\ÅÓ[/ZÆà.û,1|øÒ0zÎa7÷‚[«R«M{Ð…wX3ØJÕbÕvÕΆº€UÔ§>ì¦cgˆ¢{~Èæîg…÷*rßHÂo2¡«€¥"üløéœDÜ07çŸÌÿ¶xyî‚»b åž}0ý~ì̃›¢²R4ÃÐ1âCñ_¡—¯,›¢mõèi%tŒ—…ø™íç2ªK;²èdÈ>•»ðù¡¯ŸžcÌç&%¡!šåÛå–øö§ºUäÚ= Äîú²¶Í|!Ì#³A‚f~ù1ü»³èGàÜÉÿ¥ø™üб%S }ø5ÏvÈø6¶K¨³xÎ;èûâ»éÝÕ&‡Ê¥#ìJk è±Õ—nÜý:ù ¦m››Â›ÖUꔀ½áNg³ã¾,áË@Âp~ßð¶n¬ÝŸò!’üEøÇ+Ù«"tj²@Òcè$ÕJ­¢©Óê?Ô›Á¹ùy‘d+‡»Œ. ´Jw­}ï«Q$‹†í¬ÃâuX=8ùJu5_ì‹ 7˜ˆáð@ÇÀà­âP*2]ØDÍðŽª8™ùßMñö@°XØ¥²R&«‚(Ê­á*ӹϧpŒ_ ’ð‹ÖÿŽc§¿i2pñmõ˜½&>˯¯üàXÿ`2Š÷é<Ï'zGz7n.W¯çÿKjgÏ@”ŽøSíóuBÜþQbGðHÏÐP$zúýñ#'! O»u«ÊšºŒ=™žÑ!íÈÎÍÛ+ÊÊðÍeš6ƒ+ÒuçJ¨±[ÌU†?<óæ,|fÁŠƒ…O¤}……Á¿Q:mendstream endobj 668 0 obj << /Filter /FlateDecode /Length 164 >> stream xœ]O»ƒ0 ÜóþƒðªVB,tahUµýà8(NÂп/ СÃY:ß|–]íÙFàðEŒehvK@‚FË¢¬@[Œ;Ë'å…ìnÊ¿?ž`5Ùø]M$ŸçÓ%¯Ê-„NÓìRP<’hŠ¢mŒi±þ“öÀ`vg½:ª¢®²ÿPR4•8n.!ÇÜ47I,Óïï|JÁ ñ38S2endstream endobj 669 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 298 >> stream xœcd`ab`dddsö Ž4±ÔH3þaú!ËÜÝýýúì=<ŒÝ<ÌÝ<, ¿/úž,ø=ÿ{¬ #c^qS»s~AeQfzF‰‚F²¦‚¡¥¥¹Ž‚‘¥‚cnjQfrbž‚obIFjnb “£œŸœ™ZR© a“QRR`¥¯_^^®—˜[¬—_”n§©£PžY’¡”ZœZT–š¢à–ŸW¢à—˜›ªvž˜tÎÏ-(-I-RðÍOI-Ê+(ÊÌMe```4``ìb`bdd±ùÑÁ÷ƒqÓ‚ÅóO|ŸÅüýÜ,ÑI³z§uOäX•¿4+¹>£¶]î·Â‡ÎÖŽæîvɪÍÍ=Sú§Lî—ã+^üÓ~ ÛoÅéìû¹ösï_ÀÃļ 4liŸendstream endobj 670 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 361 >> stream xœcd`ab`dddwöu041ÕH3þaú!ËÜý¯æWu7kc7s7˲ï…¾ç ~Ïæÿž!ÀÀÂȘ_Ú2Ñ9¿ ²(3=£DA#YSÁÐÒÒ\GÁÈÀÀRÁ17µ(391OÁ7±$#57±ÈÉQÎOÎL-©TаÉ())°Ò×///×KÌ-ÖË/J·ÓÔQ(Ï,ÉPJ-N-*KMQpËÏ+QðKÌMU€¸OB9çç”–¤)ø槤å—æ‚ŒªM­(a``` ``ìb`bddÉûÑÁ÷kó¿šC¿d73þ°ü³Jô÷÷?ÞÍ]Ýí’ SºçÊý¼Èöð{/k[‘ƒ‡ŸY^u›[ñoõnŽ?¶lßßÿpœ4¥·¯»_²»¿«§uÊï›?‚$~(°}gëþ^Õrñ·?Ç6Óïu¬/²tuåÈó•Ïg“ù]9Ÿ}×.n9.–Ê|ÎÍ“xx€˜—Øȇ8endstream endobj 671 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 675 >> stream xœPÝKSq½×Íu³aø ÙõÒ)šZ=ÈB$DNìR[åeÞ}`ûðÞ;çt›s¶íºŸknε!sN¯¢M,±ÈR„E©å³ÐCPÿÀïÊ|hùr8ç<Î9(".@P•ÈŠ;²ÿì‚pÊ „³"0$ÌÜ-RŠ—JNÃîøô$l?…ˆQÔÀ¸Ür£ÉJë4Z–¨TUWd²†âj}½ŒhÖS´NEÉj)=ÉæÅ â¡Q¥£X+QÙ¨eYÓõº:‹ÅRKê™Z#­iªª!,:VK< Šî£º‰[FK´’zŠ8êV{„r£Þdf)šP»)ÚÀ’fAD}=åòiA}Gs12ˆ¶¡I+¼N^¸Ä£°pvý f¡°tGpѽ&Ö ¹ñ:Üz±ç-9&‡Ý;ñõXvå7>•L‚i,£^é¬VåÎ ¹B\(2Œð™Ÿk™4À‡eÀku1šjæèÀ.ïölÃÆ-¸ý /RNnþšâ¡:ÂÌîç?"¸vPYˆ?`a÷¸Ë~mdÔ‚ûœ>0€9"`j¼tyÁ¨ÇŠçÎþðÚÁ(àÊ£Žørh11ŽoÀûßÝYè(nàål>/gN¬í=ùqunv1Žó«±­|ö8væS<¸£¾­˜›OòÁù1…?è ^ƒ› Má¥éäL*•Í¦×7óV”›p=ó:ÕÀŽõÇøÙTüÃ2³¬líìì"ñ'J†QbÅBûÐ <üŠÂOùa³$ú¼7ƒþŠ\ZÂ-P*M&Í#0‚9#àÕ„ß?Ä3{_@`û’‹¹}-¿ÈSf ;’‹“sӼ؜ä‘H“’9ö¦hï^$nHHóA©Aþ%äendstream endobj 672 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5718 >> stream xœµY XSgº>1ik›ŽérmÕª­[kmí´¶UëÒºï+Šì²‡Ù—“/ Y! A@vYTPÛ‚KWµ­v±wZ§Ó¹w:™?éaæ¹@»]Ÿ>ÎõÞçáyB€?ÿùßï}ßïý~8ÄØ1‡Ã·dõ¦•óž};-ð'ðð˜À#ÜÖüC\Pá\[ÿ03 }{/‚»Ñö{.‡“ž­Z’ž‘'LJHEN™9oáÂ瞊|zîÜ…‘¯¦Æ “b¢Ó"WG‹ãR£EøMJäÆô˜¤8Q^äôE¢ŒæÌÉÍÍš5;]˜°hÆS‘¹I¢ÄÈ qYqÂœ¸ØÈeéi¢È5Ñ©q‘£O7{ôeIzjF¶(N¹:=6N˜FÄÜ´ÅéK2„˲D+²WæäF¿!Þ·*/fu~lÜÚøu ë7$mÜ¿)9%5ü©‰³æLŸqWA¬%'ÖSˆõÄFâ b±™˜Al!f[‰mÄbâ)b;±„˜Eì –³‰ÄkÄ2b.±œ˜G¬ ž&Vϯó‰7ˆg‰UÄjb ‘JL$Òˆâb<13s1ÃJŒ%ê9/rìcówÕXþX[ö^Õ¸Éã¬äòËñ_LðÜ5ý®–ðÍá=Í‹"þp÷²»½÷<ÏÀ½Û&Ñ“NÜWz?uÿ5~Ü‘|ÿ»¸É+”`ǃË,z°ë¡‰íz8ý‘î€."Ð+÷æx8ð~ï[\d@Õ|‹÷ºÿO@öÀöüÕ{Øðü´B¨U@¹ó`jÇõ4ÃlW€Vª×h)ERƼ@(­¾jçA›‡®¹ÐtÞ&‹Ž.Z½+!j?¥ëNiÞ "È”çìÇ­†T3v§Áà³Pe•M@Ö@šT¬ÍÖÒ‹Ùnm!èA+Ú¤>G…ÛLE—‚}àA~N`è*•_æç)@,·Bå:¨AǨiö‘á#ŠDµr F~iƒr}ÈC qˆ÷÷K뎾ä ÿQõåUø’üpÓ;,‡bÕì9þid¶·Z¡h<ï²{]ôü§±<š]Éþ?MopšÁhvÑ¢–0ô2ï’wõ¶Çžñ(Ðâ†ÆœE%g¹5jàÿÆÛ¯°ì$öQv:K¼·ù<Š@“ÐãhÅëåG'5¿ßSÆ4¾E·œí«o²¯f׆½YlXò&zßÒmÂD #‚ërüÁ9~š~™l.âLI» F õúտ6ŠMdE¬œ]„ÆÌB÷!ÎåKV}í‹ò/C¯µR«Wè¨(v;þ¥Ù@Î]x=\çD/‹¤û>øê¯Dü–ÞSÀˆt´bœÂÅ£¡Cб[ühÎ(7Vœá~ÉÞÏW¦¨Ôq@Êä VZ™bºüÆZ¨‡ÆÇ·”@…S yÙ™Pf7X{Ñ*Ú!<Ø‹wáàÌFS¯í~gÙª­o¨4´âh‚7é¶H‘£- ßÌçÛžºzÈæÊø-“Ø{s£éÄ×ö¥§¹ZýG ‘ÉhÃ5™+¯B/¸ðϸÈEŨo*éFwÅPÞ­¸„dN¹²¬¢¶´¹o¹5}w\öÖxJ1°·,ãMÑÊ^ÁI˜¢Çð×AD—ùŸñÎ8 Ò%ê ŒÆ•Óà”Ù¡Øi4¹LÔÛHæƒK¨PK‰_‘ŸòEÞ;Èe?d54`*Žãý­:u¹P—§ÑL!0 Y^¦ U^|`0 œJȧ†_çåßàûIPÊuÀà‡dnÿ¹`¦[ ÝØ p˜iÕËî„J‡$´š›žQ¢G¦È=§>BóÏö{8]Boå&Æò´L*hI™µÐãsW4õÄ´¾Á†'NÝ_™c—SnI¥æ°ü€¦O ›ÈŒ¬gØ1 Û]½2êˆog$«òlEÊXí¦5o%~€"»÷ÄKËw:© K‚ ºÉïûW:ü9ÉV*]²zØceM8ÉEöÀ4þ§<·3Kùô‹¼v4Ï`4ØÁ(°«ÊÄBE6ö Xv^ØÞš¿Â[ÂvhrAŠ+´»6ú䟡éÅ!ǒ陆’¦ÄÎx;V¡µ±Ìì3—ÑÁý¸vïøQ‹ŸónР¦|{“ÅvH·ï¬ ñLÄCœ1!„Rök÷YÅZÂØ:Þ ÒŒ.ÜþÒ_W¨V‡ ÅØ ÍÐÆ -²Öª`#Øì´±ìj Cu¼¬÷ßXg3Œ¸ÀÞÎ5ë­Ê~n€ üŽovÌd™Ô^”®ê¨%l'&¸œÑr£ãw¥èn<ôï,m󗂇lÏjÝ17‰}B­ÑÒ`r™)[}Í7oYâÔd å™9ëé䧋¶A,9o ëhç!O{åŒ=˜sÚÀã/õ»•¼&r´“èEj*÷yqb:ÙšªÊu „ƒ?æçœüžˆù¶&‡uÈ*>”´t<Ä2Wˆ5Æß@6Of÷¨d ¨µ’ Z jÕrÊo „±1¶@+´3-?"¤qz¸-`4Úñ¾[n 4û­Š~4ñ*7 Lä÷å–扅b‘¨ÁŒ÷e˜âABfîfKØñÛ »Úßnºî;EÙªo–«M€trêEI'z¡ý³»usç·ÝýŸ¿…–ã½' E|Uª> ”daÊs›×ËŽ7u¹¿¦Ê:ÌŽÛÜkÿ<Ù.H g|”ÝWÓdl¦¼kO©ká"´½W{¾¬£=ƒä­±É‘ñ9›“wn2tÌ:kmi?m­¯¸`ó[8» x”6*!v²Ÿº"qšHL⛜`ÂàT–æ%«bÒëŽI%¸yqØq¸1M{ºwÕû5Ý­´sM·ÜwÛäØXÁWg®]°È-Ì¥’c hBy;]sº»ï0ƒÖ§Uz ,må(…Egùh šûù¹«ß$°ìp“YMeC&#‚TH6¦Ýԧ¦7Ó¥z‡Š O*S©uŒ^Ïè´:½^«elßä+hèÿ[ç6[}Z@ã1ñolk±w• 5‘ªäú¼ÐbªšŒp\Œi¤ãÅv•AJ§ŠlÒr„Èeç‘üã§o¸È Äžäg«‹ò ÷Ç>ػə¶=e_F%kL9´È'¶³‚Ü›œcy1í»xäH>Ÿd§H£L¡5ÙIìCŒR–$ÜȆ<—ßf­†²²Ð‘Ÿ™›Ó•×ÞÑPÛé¥lY5QX²îCÏH9É×Ð9ËwmÚd´º§¢ÊÖPr”¶xÖºÊ!ÏÐ nÖUPQHÞ”!Jªç ^?Ê8ÃE}ÁgøF«Á„I…*Ñ?¡˜\¨Wè!ÄÎï: ¹†Qé5Ô´áŠÈ™à©#›N£±( ÍE‡âÇö}1 Å ßÅ*<ÑÙæl÷þ69Œ“ÃÑvjèø­vž$šøßÞbµ_Ò:Ú”” ¤c š‰Xˆ1ÆÝ^ÝCM*0W°¸/¢ÔÉ8¾X0Ý­j“J¦× TÚ½ì]ì òBÔf´­Ø—ÒÙ½ž¾ Ç~˾Gt¸˜=¢L‰Ù¸wêÛ‡ë½åå”|t[â¶ä¨„œDÈ€ôRUË£!ÔØËd®\U ³~[Ûþ¾ï¯ýý›jj¤j¨óãÞÑhw‰XÏê³ÅE ½»£ÅÒßݲæfRžzjí'èž«qY•65˜BImYòJzÈo2ºnæ¦Á£M‡ÁÇÁµ“Œø-Hð_¿êÔ¡ŒÀŽçå€äöúð‡“7Î0^½! ;ÎDÞ-f††=ù+v2©Œ@ƒU5¢û:8hôãX{ðF¬ ©JiPÓ©†t+4Ãm@Z'xoÿ`u% ÀɬØV‹Ì>6üÞ/…n¢› Ùx ½eTèÖ[4æ)òÁ2ryÊ9h1šÎ_¾<êUìúJ\)J¬TYumk8 ¼Én¡+ï <îóÙÔF¥L¯Sèè¬årÓ! ,¥ÉåRœt ÓÖÓÙÝÝþÍç_ *H›ðiõE**cWAa.¶y¹5ï€ÄWèIrɾÙbL3¿ÃL;ë›*ýà·Â¥nËÅý2S ärò¦×È3d÷]X›‹Ñü[ÚTêµÔ:VQØ ôｓPZ\g*¥7UòUkŸ½e8e™­£u…a£|zÐK˜¼3HÓÄEù¨€­4©;¾uÝã,=•]:­Éç¿d!}ƒ…+—º¬uŽ6Úâá·£gþ쨲ݗžɾɸÅ(r|Á½4íj á7è lࣩ PK±»Ù=¬‚•°S¾`Ç" í@ѨI©ádž×ñŸ^Eœò¡ç¯ qô{¼ÒyÈOß_ÉþŽÝÊÒl»’Ž@DZà+>Èýhþ9¯‡“1„ÎqÑŠ/ýŠ_æÙ[šÝŸØ»œÇZ0ú Lœ¤Rg€Œ»änŸ¯¢±-Ö·ïI!û@’ŠÊa9a«~èÞÒa®t-£¬È¢¥»@ BCQE‹Õ\¶C‰òöǶˆ:®ôâiöÙƒ8¥<‰órg5ŽÌœàÝW¸hã£YjƒÿìÛ6%Pê÷wùvÂzØ‘’°ýN.ÛKÊ­+et´¢™–Å^KU±×Ñr¿zÒm’\¼$^ɺ1:`2[ÑÍûù@ïHN¹2ru7óBýHRùæä©K£YmÿÙ\Â6ß_JýVÀ«0W˜Ýôet>Ì® ÅJy¶ƒÓÞíù¶ô še0ÒR4ò ("‹ì®vã9–Y,oi ûP%žñË”³xx¼tUÑu¶@™"Ýy;){Çæ*ôÊ·4ö;.ÚXÆÏ_µvwŒ?+–ŸÖ¬.v£ (óªã“3ÒSҫ䕾2—Á€9ÿ3@æ_ð„ pOrƒÜà|¾±4Ì®‚ª€— z½&O™põ6à“b'1jµÔ!y•ü‡ÁTõÃFÇ¸Æ |Œâ›ŠÍÖú•™\£’k¨áŽ-×…ô¥ÁAît[ÅxáÖ\õÃ&ö¦÷pQ«åãj{~mÔ9@4|Ò˜…|¨ÀíÔV¹|cÔÖ¸a²;¶°uÀÒ°Ú±®,Ú·âðjæbCh¸þñS?íæ"PÁWãážÆ*£O> stream xœcd`ab`dddsö 24±ÔH3þaú!ËÜÝýÃç§.kc7s7ËÚïW…¾Ç ~âÿ.ÀÀÌȘWÜäœ_PY”™žQ¢ ‘¬©`hii®£`d``©à˜›Z”™œ˜§à›X’‘š›Xää(ç'g¦–T*hØd””Xéë———ë%æëå¥Ûiê(”g–d(¥§•¥¦(¸åç•(ø%æ¦*€]§&ós JKR‹|óSR‹ò„˜YŠtðý¨í¾ôý×Ëï¬+÷¼üžuù‡ÏwÑR¶ŽªæÆê–¦ îÜnŽß¾lË8½tñwï ‡÷w¿ãøÎnpã7Çow ÓˆíÝ} –ÎZ½¼b^~SgwW‡Ü¼ówžéæx°ßEß,Ê1È[þwÜï2ÖâŒì|e ~8Ïúž?uò¶ß‰ÓØWpá–ãb1ŸÏÃ9 Ï™Ù<¼ ©h…ìendstream endobj 674 0 obj << /Filter /FlateDecode /Length 162 >> stream xœ]O1ƒ0 Üó ÿ @ ]ZUm?eÀ‰Búû’:œ¥óÝÉgÙ×mù_ÁXÖ·$i²,Ê ´Åx°¥`ƒøJ—Sƒendstream endobj 675 0 obj << /Filter /FlateDecode /Length 5904 >> stream xœÍ\YsGr~‡ú ˆ}qÏ®¦Y÷±~6¬Ð:䬅bÖü0$@‰! P+èøg;3«º+«ºz€Àµƒ,ôTב•Ç—GõûS1ÊSÿòÿ/Þž<û>˜ÓËë“÷'øàí‰VÞAûÍÜF†1ÂQš¯Nþzz.áMIcžæÿ^¼=ýò ǵðdŒ"ÊÓ³—'iByä©·~ŒÚžž½=Âæì¿¡¯tªê¬Ìè•…ÎÎO~Þn¶bT1†à† l‹Œn6b Riï‡ÝK|¬cÐÖ û…ˆZ ð©Ñ{õ_gÿJó>Q£)Óüq³5Faø¾&c”> û+˜Å+üp^F>np:Âð‚ÍŒ+Ñ)˜ú54•Ú…F€Ú8\n¶Z«1;ü¾ç…0ö„ãz« …ð" »-ÛöW4!¬_ »7øCRÂô·›y©×8LpÚ˜D¥¼¨kœSÃ_Í¢¤qÕÀÑÃÔm¾§ÕÆmê]îVE5oO·ÚŽ¢w®ñ#„fؽÝàn•—axÇèø—¢ò.(æ5l (¦¬†¥èá—µ£‚ÃîC!½& vå¬ò©Dãm&/ŒçqIʤ ŽÔÕVq‘&ÑAVǹ£ÕEeœ©ž¤åÉ ­?/zG§¼ BUpžFwÂÏ +ì8yp‰N8|1õFΣÅ: üM<UÍÈÈp™÷`„ጰã²C„wB ™F6Äjó»wD@€ù)©‚Q dK9d_5üJ#HØ ?9šN £J‘Òiox—=c½a™“˜Ù _0jßlÍ´ƒÝ{9ñ`:Ǽ ÜI Ä$#˜¨æ#°Â(ͧüW-ãÌ 3ëåßo7AÁf€.ŸÑÂl§%l¥-Ì‘V’ä<ù†W…U/’ gd¡§W8·‘z:|zÈÖÖðAaÛó¤+lÕc<\'Õ -£=‚|âü:AÁ_ÃþeZµƒÍ3åóª0ê¼­#ùêN òl…*Q䔹*ÜÈů»‘ZBáUzîD²o•‡uÛ´Pù°¿ýó²æ´m ¼÷šxÐÁpW¸0Ó©D7üHÀEÀcò© zµÔ±«Mmž~âï_àE ¨TÉ´åæmi¾+MX’UÌœþ¹4W:üPš_–æï6=õíî'Nëkxö½²Ð]ŽÑZEÚ¤{4ÖŸnÁ~j£' a"rÇ°ºh+à Vð0­n>l,Ð3ÔÒ×/÷É2 ¯o/ð7¾ÄóØŠ¾À‡@s8«ÜY04Žx*ov7¯Q™Ls¼HÃhD4(΋ÏØ»/^_\Ý\wI äk9=ûæäì÷?NÖ6¡ ®ÖÙ‰&-5_TGÆùÙæ%i#Ö”´¦ÎUâû¾Øk¦$xP•H%ßofû “¹Ñ‡j„…5‘Þ%%‚цì?vYþEшûhá›:è%þš¤ìº—]s1 4zÉ:ì?äeP"0pÑ«ÆfPªB»t4¸s²ÏHöÛBŸu„S6öê:œÞ[Õ~Ó¸‚Ù'•(ÓTÆè".àýY j°E®ƒ,TZ>²1Nˆ»:R]B*Ymå3fdSoPsT˜ð0­žì´ŠbZX¹¼ÞdåBHËÎú ØÄE²‘M€+ØWáš“ªÓæl¨ °ØÒ¯³jmðîFsÎߧ1`V¡÷* JÀ´†ˆ•üá:Ü7qÔAqîa}ÐJ¤5ÊTz¸¬FÎÄÈæ5Å®çæz„zÀ ? ¥ “øDQ‡¼b•’ù5øÓ& B\¨ êÌlt…Y-éŠD‘`C­þˆy,ý´ßç‰ÿn Õn7¨ÜDô¸ :újm©«U°«t( éõ[„uá :µp~:a¡î’&Y¶ës)IâQQ@Ž>!C¶Ê$3y$3v²àÌCAý`T”Ó”B8@ýÏ»¾C ð¶}PvÄYx—±œàåHJ$ Eü¼rÒþåìäßO’·oO?ë§KëFáÃ)XŽ1ƒÎú€$Š"æ0ZpVW2qÍÏÔžð~:c‡:·vHqÛ€‡ wÜ°-»v…xpIµv‹Y¶á€úª‡¯9÷U†k~ dà'¨§hAR´ pÜF¸5©dÌ|^‘…vjD¥Žöi8„>L½càu€¢×…ô¸­8a<%B+=Ëçˆ6ÑCGþŒ.ý3A<ØÄuF<û”­Q¦ˆ&¡x˃¹¸¶žØ¥ ¸Ù’ %w³ûÊ&Hâ,ö"4ŽÞ‹lY0ùÄð0 饭åòžš5ù[“¥'±™,½¬ÆûŒ ž´*T væwGn?O¾K†¤™TŒ9ûìërŽ]Ï.8­þ ìxq{fÕº–Œo%Å¡Ér•”rÁc&«ï‘^s“šCJ*CžWî^kí¥güºØíß6sT§^õ ÏÇFNUˆU\Mªn—;ö… :üÏ3­ lŒs°$¹‚Yâð§Òü¶4¿/;WSƒÍgÁQ@= 2ãpÖÇ…(pP–Ã¥$qPQâðw°Uãsôœ$Ì;Xpt cÜ@g;ö¢À›×›Ö Sï,WaM: õ!d  ]7š9‡³ê` òf´ÆÕ(#p5ÿ¾pG5orWákóÑ]Œì) çßSÓ[°˜zê¾›¶kÙHÑoj2ÉXÆuIÔV¨zž†¶Qq‚Z> ÕiAÙÚEŒw~,kàjíÅfvЙIÚ˜ A`ÞúÑ´6Zé¼Ç3þJ§+µ±M©ãÃZÕIÐÄ^ÕÑ’ǛҼ-Íw¥9G\‰þ„,òt¸ß”æ_Jó@ôÇznÜ5âUuÀ#–’<âõ€àì£3gšñª@•Ë4nkŸsDp~-GIxêˆà '®ÓpèM5þiÑL=°Âj|¿LžOWr1%FFNÃoá•ÝJ"w·!{ý°*[Á >©ë°?îËÂ2.[¯Dj|Y70æÈL Mà€Ô”À”Ê»ÂæL¿ïgýžÚÙ*Ú¿®El6×(a1‚™qM>]¨õ<[6ƒ.¤;ƶKOÜ»Ór»  +…‰I"ÙºÝU¢…CÌTeGæCZ#€]| 1æ ï½™xP*!Š#Û¥#€"–zZd:õóÈ/йâÈwQ ?†MS¸F{çê°×EŒë¼j ½¬õåvš»JÝ™zyLÖ‘…s(ÄèB›¦È>=OS46‡Â&ýtËÿM’"œÓ¢@Ò Þ‡ÒÁ®em§ÈžÜ”æmi¾+Í‹bœúvê‡Òüò.;åÕ¨çuü4®{|¸Ã0AÊžZtT¤K!ƒ¯kšNÿËÎÑ¢3ÈöQa ãàLš%PÔ"Ù…eZ¦q´ƒÍløÅJ?ÈWøáÑnƒa)uÄc°l׸ µóç-â…G¤MyúGCÖ_óûŠ÷@ÚD@AÁ\h;q(쥸€H?’¼3ÚÀM?­‡ƒ“D)·…ôýób f©T?Ú³sy>g$nñ!FÖBë÷“ñ1(‹ï²ei–™tËú›é*g?ÙŠûûÚCI ½î×Âï2º¥_›ú¦ã`+-ÂÁmtŸØ­…I"˜C¤pÅÙÁ…JöåÛyÌÁø™%,Òj¤ W8Ö#y¥Õyyú;ˆº“Ø0÷Mê‹{iãÂü"ŽRÅzCM˜ÀÅ©¿¸Ü5À;²É™,,%¨ @bê“€ŸcœtrÈ,ö®áìã7ØŸ±þ“laßT™4[h‘0r…“„±^!¤Â´( s—†e•Ú*»ØúÒûÌm¤`ÃÓ |ìi:X7ô%&%ÍÉ>ôҾȴV_Gís¶R‡*Ç9[†&F„Å4nNQfãS¼°ÜFšN€\‘Kêâ‰N)æ`•²2³ä±5À¦ã+ÿêÛjO1?².¸uÎOçXWå~[^ASéëÐ!ÙC”*ä”Èùtˆ­Ó·â 'kî` þÝÓUFF{8”èôjܨfß<w>Uunʘû¸ÉýâܲŒëïLŒd&ù:tvþóéãìèAž¾Ú̾³;IuI@¨*É&žÿ§Íœödg•U|Е•  Zm”“Ëß[³7zîËK«äÚ7óÅŒÄÑfö~Kt¯§‰˜ s*¡*¦ÉQ»]¿Ê¤©ƒÎ ÒÜWÃhƒY…PÓžbÒ›†2 ‡êÉ)ñ| Ç( ·-Ú±À ºT±ð¹ù[“3Ê.A“¡Ìkæš$Ñ1•Z³•r-õ’{-Bh#} e‚UœÕñL ‚½ƒ[Æns-AéøJùtK#ï›=w¤y+-29DÖV#>Mþ'ĸÏj(­É«ÔËøÖŽrÃî¼0 —‚rË0æXÄ|¸9SÁÿcy|“Æ@G•Â4^ä™Î/XTåÐ56k3®s(΂’YšEÐëÚ®Ë÷!½ç›:ÐØ´µ•p¢ÓF²J’nºª@™ˆµÐ1©@¤º¿Ðwdï#¯Éêæ•®EÈñmðÆé¤ `n0¥YZkÕ½5a®3I¡ÒT}õ~d L{ ê@Ev»*{ÇãF³q§c¯Š>çc‡e¢˜©å£üA#Ç`]½°Ö4†R›gL–_qáË_+°°ßüö»à±…5õv^ÊÊ€—Ú¤# 8Õ3>‰—‘q>±¿(¤ßA‘Xiön¾º2ÝRÄ/¦\O7SÔ½®ÂÐ{o‰A@4:Ol 0ä¯.>ÐA1„ùªËË{ÜgIÅ*³ê+z‹²ÎŠªÖ£àRQ¼µÍ¥ˆ ¨"›iR¶ŒËðó\æ ê`êÊ‚¬Z²Çï¦w£‘çµÉªÜìR!Ú‰*,\SüÇj·¸]çoçIÝpÉò;û›n 庬ñ^)Ùtv­îq-¼ëô:+B{ŒmÁØ\jňs^v›(Q¡À-К K›(‹¸%×Bh¼¸õ±CºåÕE€i+àMÅ5Œ{¾Æ¼LóœðvZ} Áž¤L«Z Vµªu‰áq>¼ì·ˆóU FP!ÄZ’ —aµ'S/JSå— 8ȺŽ}ÚHð|#©Ñb™Bc!Ù?ƒó¨5œpÀ=ÅO—%òÂ.¼‰†~-H¸JV4c¹=«%kHЉ§¥|¤¥ó‘;îô–kXw«FÏ2/R¸3ßЫ®§ÉËç~xËK.¢¹š )ôDH’ªB²!d’¬œ²~ M‚È`•ËÁ·¢‹ë_¥,¹T{‹X!cŽB·ð´sX¦Ô¸0L?“7(mUi{›–€ä*fÏÊnYÖ° +ª;âÕ†\û2]Ý/€Ìc`µ]ÿÆY¦%üªôÌs¯]ÖœŽA61öÉÞæ›&ÊÝ—C~q*Å­ÁW+Å@)¢¯Ry\ O›Š’‡ØôDn‘™ù|“OEøʪr¶-x=ºÓòÜâ P·´xO)•v,]ŠÒv®‚9YaOÞ뢡Fù:íÔíûï}žŠà0Ñþª !ó£®ák듲^§}é[ƒ/R.ìÁŒ¶\dêj¤EÕœ„4£üʱûJáy(WLŽÊož̑—Sª«L2Õ'­‚‹ç,KKë@ØDäW£DÒþ·0y‹ÖF¬Dà>¤0PF‰ ‘’žübcÒ.±­]éñKY=ÛëÌu掙ý…OëÀ핪AXLâ~%#ÁÈÌ`µI˜&© ‹6+ÎB¢°ŠB­r›¤”KŸŒY79ØKzø,)”ÑÇ¡ºÐ8¢Ýäqñ.ýËÔFÜ^1”B¼«`y½6Êøðø¹Y;OÓaZãÀª¼%.ó<ðJaèƒ*¢¬”4ñØT{€÷hi :ÉAb¡•«WÄz‹ n®7–@ëb^ÊW–VâÕܼËmï"â^Gã_8!êðEØgY—Mõ/1.kÇUiZp:À Þà%l§_Š­˜„âØ»rËT©­`ºI[Š:×¯È /Ów¤§zû·Xô¨K42i_ Ýûj TØš>Üš‘¼¤Žê¥q탊Y”ú«u#¨[žu¿Ë()¥|'Š‰ã²1=ŠÅX(±¾°‹[k.uµN¥§™¨Ú šJta?}”À8Jõ1ik5R‡Ç œ{$ ÿjw“·ùhûô°¹®¹/}™œ³¯Qu Ǧì>ñJœ¥6l,^û7¤œ ºr+áH3C±äœ±£B~_^ê˜ÕÅç˜=e3¬…íî(µX´ib¾‚ªThñ]iÞ}í¬Ÿ3UM}”oýÖéDãn˜c‡K¿*aî›Ì¶»Â&ùÆFU¦9}a/Üóúfº„-k}²rQ?ŒÆ÷Qt/ˆ~'ú­/õÞUe£°v0ÆGÝ(`gÿMi~{'´·ïË•õ•TUا÷²ƒ¬V²§ûd 7ßz¿ûR>‹x짒¯¨ò•-B¨}ÏÌ«Q¸Ps/Uˆ¾.Íg¥™S@Ô¾âçœmK³?ÚJ(}áLV|ð*M’(“_>ìÞ=ãü/Jó/Çs~¤›Â‡xŒ’©ª˜šxdVû)©±n!;ÀSjçIƒ·»–§%X'˜„˜ÚºìµVLm]º¹›V„ ‰GiápBW«æ–oÇî²°…ô¿¼ôÛ†93=ÌtY½ž+¯j<(ÓI–{¼yzÏ/iN„¬‹´R¸:ŽÎÍÐ|YÕëŒeúȆÃe\À)£2þØ+óÓÕÇ°üæÈôuËžb«°Qþ¾ef’fÃbã²âpü&»b(¯»F•YRž™fß—&ËLßôß;Îr“ÜŽ€%™þ¹Ó¤‹0Fÿtší«Ò<;^³a+†á?0TlW×ãáU¨¨b·ˆÂM^úJÂíCzÕÍc4ˆJ—Š?]™gÙØeš«ïþ~å²8#^hln~õ`ç+—îÎðI¸ýÀùP”»»éi¬‘ûÊÈesçvºpåƒåÎyš»½bÝ8¨®róÿ4ת$3عîÈDVÀ˜(]ƒñ†ÊG[e‰Ïñ#‚g8rHš°tÈY-Wû·Eo>êšÌl\½Á§½}J T Ÿo‡ TKþ}+²Yu{9ÌЗ&V‹‘蔕Ì_‡f‡Ù½ƒT‰ûb;/ÒKiIYåÅ~î~›â IA®g%ËsöÉyéIJ¦Ö2ÔÆ2õGñˆÝSÜò(t²¨åÐ#…k~â¿­Á­‡B'[Üq(‹ßÿÑ÷@X#öÀ:¼Œ¨Ç®4ÿ Þ¹B-½@¹Šex»÷æß¡qç³ò-gó¥)K‡¼•ã}Ù»‡ËˆO™qX§G/ÊÎ>•1vìþû_\“TÄendstream endobj 676 0 obj << /Filter /FlateDecode /Length 5717 >> stream xœÕ\Yo$GrüHÿ BFµ¡®Íû€a’ ÙXì¶DX€%?ôÎhH6Å&5ÁðowDfVedvT79Cíz¡¥JÙyÄùÅ‘üùTŒòTà?åßç7'ø6˜Ó«ÝÉÏ'øáæÄF«Fï`|=ƒ‘aŒðAÔᛓïOoáÃüR¦5OË¿ÎoN¿<ƒu¥3ðiŒ"ÊÓ³×'yGyªTµt§Þú1j{zvsòÃðÇ•EtJ«aûc#T€ñýj-F/„ Ã-|ÕÁD†Íõj­µƒ”Ãö5Žõ脾ÃJ§l`(…ðfãX¯‚PÃ[+)´ Ã×Ö1hë†<fM§œ“)uSK7Âýì®`ÿ‡•ò°kÐÃû•rcÒ›{\.jéÕpY—ûï³?"å-%ŠjtÀ qzvq2ÄÕÙO'kcäéZÛ18‡_¾¸Ú¤ ¢ÀŠ6F«ç3vuÃoy£h¼…Mq†‘Þx-œ¶yª®ˆÿ;8«§ã¥_]§=lˆjÀ{àBPe­4ùoh¤¶™v1Âܺ¡!]u——2RM¤MŸ7·HÚ8â¯Vk ¢ xð4YG=ÜUz×;¼ª„O§•ÊÁÕ ‡ø좴jOPªbˆùúð3û«µqî†ïQz¢PÊ oêÖtéÛyóÌIéBÃJ£GoBfå‰DH!¸Þ* ¤Ã?×águ¦¯Ùág+Nx@™à”qÚ±ƒÈ8jˆÑY_nÊ%)yYY›$ …oh]N|³EÞówöê@B­¥š’¯¤òò ç$whu5¼¹ »HFAÛ(|NòäàFY:ƒñ@yö¼k(­=]K=Z°/yó_Óa1ÎÁVÚdwfñæ6Y-­.ŽHI0“è&mVîàVN1tAÅñ ˆhh2ë‚°(-“€—ýƒnö£ƒŸLë½ëÛítnšœ¬¦ËMc5“Ñ–^û˜R†DÓ.“¦Yí|cyAë¬E­‹­ÖQáà j#5w,a½NªÑºmÞ²Z÷¡Å1]té$ÕEÁq(ê–ÞtúåQ’ݤ‹ÚÒÅ2—ø^ýèµíT1û‚YU”°µ^ÐDüÕOÖD˜nèßmõë×uÁyÉ@LË°½/¢$ì‰+8m¨:?ö›GPdÆñ¤cìZÏ»ÖJQš¢ó!äk¾ÇYJ³¥,p㲈¼Ð¦¸ ö:6–ú†ÁÏRðëQ-7#jÇ4[±»¼(¢Ì3ŒH»|ËR ÜÐ6Îúç$~Q‚SZ#&ðE\ÿ¿ZP+5ô¤àăðŸîI#`Sué9:ý¶_³Úû‘®¬Œ–Zõ|·ÕÔ;Xê'©÷4÷¨zë1‚Ýü(õæ[uPÌSõ§£§mÝRþJo™œ`bë•ÀjÂFú‰^)Ž€÷¢mÜRæ…uη”„î¢ßÖ£¿ÈP7‹|Þžv Ú1Jߣ„WÕÕQ&>de 3Y= ºÐ=Àë¼~¿Â}à°ú€×ÃÉÍ$…{S·¦Z› €a“E ÐX³žÁÝçc KÏ–A~ÖõÖÛ§Ù å¶*mÞÅÂ.r1¢j˜P¯ø¡,†$YÞblÞV0ßêNvàD7ù¢:iÇ|n«¢£aãvš¬ž¨{6ÁÜÞárÊKÞ«hÐ?µ–¾˜ %Slµ|Ž¥‡;¶–þÐòr4©Nó“5ݺ¸•p™YÀP–d«Ðó¯xm ÜÀwOÂú³¶ÕNÛb§Ó„[:—ûzY‡¼E¤^eå´”ª.ÆÈcE˜ª 6ï_TWz1ØÕ³;p!Ü! äsÆUs<êQ™¤Ã˜¥°må¨Ô»Å-DRµ]ž­CÜ×øÄTÝ”Œ¦ÉlóÑn.*Üú‰Lyl¶aõuÿ„ÅSƒS7* e÷(„'×pò›4¨àT&á|°&fi=™¡­‹À6Š£õ§˜ÅHña†oV0EµÅ[™(’ùñL™¶@x ôÛÛ‡Ë$²€¦RÃëÍùÊD fD¨¹àÄÁ­œžýéäìÎŽ‚WÞvˆÛ=Iíe•ý]ž×᦯٠?d¼âs(Ó½N§õXM­qJøÁ4šdQV+Á7R¢K2TP6 ƒÊÖ6ÏÀƒÝ‘}R‚.…Ú‚â‹®B$‰² ¬¹h|ÅìŸwy] ÛmæS4¹¢$TŽˆ¯¦J¼!ÓÉî¿ ú)¡R䛀÷ïý”HÈ6¿Á«¸:G8ùM^HÚšù¤á&>áÄtçÍyQäp4÷2oG‚¹;’ë›×¢9×l@S2 ID\ú! Ä`£óM°Ÿ÷êw: `sÿJ2Ð çݬrDcÒ¦ßíªö ©µÓ¡ÐÁKXŒ$>–Ä”L!È$O-UL.(æ&Ï–à`¶P(cd«Ç¤$@wŸ-—?&,|äµ³ÁÛ“ ô½“YâxHB§¬az蟶SúI"4+þæœ Íé²€Î7 Áæ)K¦Ì*ˆ‡ŠA¼¬}W‡çuø,SFâkb#ÉÄ\>Öá=û³Ï+–x]¿nÙŸÝ°ë’ •Ä}Ÿ×8ø}ýzIã<¼ªÃ7uHâë»î»ñÃÂqO ŽªÐåZžƒ·dð‡:T,=(=¹Å>c ~Ë’v)éÇæ–d…;Ê‘#©‹?ÕáwìÆ žu=;)CÔ¥h„.ÊÆœµ+–èf‡çLë\f#×3K?ºÅ¡­Å…ÁÀ–J—Q ^QG¾o˜R5Š¦5^Axï 0áÖ1Ð%+wDrëðžþŒðvs¼ô4.¡‘ä8m€…$X ¸Dœ¤+»Å ­a¢Ÿ—Ëhœ+ªQ¸p•—²M` s®«Ùpß½¦B"1Å(ö™­ýmP6Dg^2¦i :›j%Rú™k ¼ÕmÓƒm) '"Ö~žÃý ½÷c=F‰1MÚ×^× b£ ¾³JÔß'¦f‡TNœŠ;µ¶’bÞRä²%¦h|)¬!æ芜j ÊD¿gp ¢h²âM½’ªäEŽ¨Á#jˆÁ?-8ï)„ÍÖS ¾_!zsÃ*Vã‹"cokn€–ij¡È™¤vöÜêÂNX+îUuB!‰d››i :½â×g'ÿq’‹ìéýrKP—¨,AÚx`¦?µ2Œnêú¯zÁF£P‹$Œ¤j“ÖlÔ¸ËLÃäô†ä¬ /ñ"_Fâç--ìVsRŠÒc“,“ÚUÑ4¬•óƒ…&Ï%št! -íÍë“ úê²Óv À,VÚˆ;,!¯Æ–k ÙÌjéì$èÒ”LU A£³ü¿gC¤·uxU‡oêýÝ’×Üw^‡ƒ§½ÛIúÞ¸¼0æZ‰ÝÆX9Ñ!*ëã #üpE|Å?w1[ü—„<*–û7Þ9í¦µus’s~vÛΕn#éeöÒFÁðçŠÛ2 ×A}É¡*|1 ©*áRñçŒ2xQŽ1¢}´oq»Ù‘æ"Òrô@¿²9T;Fš´Ïl²†•í[†&YFZ—¿Iµ;9^mÛÚf§Æ©¡/ˆ÷¢”v"`å;+b£†Xîò*%”³³JÙ œt:‹8͹d£©¬¶8Q^¦ž¸Mb!4ø48uS7od«Ä/›6LËåVÀš€JA¡Ž¡íàÌê€Y)RˆZ Nò1VãÓΖVˆ~éÝ,5ì˜W}|†_÷ BwŠÜ ù 9ÜLîT0’â+ÈJs)Ñdäörå/•Ÿ@Ç­^"=̉¢IElÞ%ƇN6nÃéTq^Œ!q1lÊ[ö³;å³;BÈŠm¶,qH®ú¼·,MIÚúëXýû:$uxW@þ§w¬³ ?#àîoú´ÄiÚ’ç±½Ê.e(÷+RS®ñ GGâG±×–IŠ÷u¸­CR¹¹ãm$j¸^h}0b!Sî9‘Ìä§&àÐéS“íšà«ëŠÝ)äKy~ýÔ”Þr\çu1ÍO+¥ªëhj‡h„Òtñb0®ØÞ§¸U./j NÀòhÓû•Œ/˜\Òd7Ó3õWâ¯l8¸¬ItT£ãéñòÊ%PðñZšÔâ†b3ÖÆD†rIÀtŠR7ù¾"ì$`^î XQRÒ›³ HîŒi i½<œÈ×H4*º+î6È&@Êa…ñºAæTÀQð$ „? x€€²qÙƒi¡“™¦Iý-Iö÷q¤_a›]vÓ"&?g&áˆE™Ä ¦m|¾Lj={y±ƒÐb0Ô–ÚtË ([R,æí6˜íPÑJ—Ö‡[‚µž}v×.,±$dg‹y¤]ØȈéìYJ DTTdY¸vå#+ÇÎt•‚û| Ÿ*sŸÞõR’K™i;!ÛJBsâñu|Z»týaι‚ †¡—ÑpU­å–îUY°ðRîå#g'J:ÞÖáÇgñmå§%eÎüJ3†½&küjÚ7 -ÛXOØ3žZ•*³»ª”Ì–ûŪRÒ$I_6C2»F.×Cw[xHò)iÄL\Û?…Kt9”øIGúxâgûØÙg™cJ¹ìhµH…„I’®+9¯yhUÁi¾¸ÍGßÕÜð×Õ”ïÚ$ BëÐ4-^Sœ9Ñ?v\kÐ)¡{¸Zú’±wM‡s¬XŠè!ôÀum }©:wøüi¯Yœ0¼É‰òyÎøÜ|,§žiœ0ÇßÇ{Û$þÌý'TÜRoõ^¿Û3Z&ô»%»Ì÷$_ÑbTàK¯ìÜ Ý©D¢‰<¤¥­°‰2³xšÄg;IÊ¥µ%±ä”ÖXx¹Ñƒ¨Ò”NÜ`kæ^Ž*ÂôÒù„MÌ~÷5ˆ5m¾žŽº$kÑɤk\ÿÀ€Ï DË25‘Y!54¾Dø_nøº0Ge]Tˆ.1Õ'¥Å“_(ËÝ%)]ÛùVBö{¹–í¶|¬0¯U.ôÝU¹•ù|M¥â¢‰¯Ws#KyvR“ÎAâ ÐZ>»«Êº\AÖ.¦žR2y/‹¥Wî9íÕ¸®9(ÄØÍ#]³m£Þä5z÷H^<ä!æ¿,`Ñ(CðóSw&@¿R´”Ø4ûØ&å¹–5‚ŸÇ:|ņ}WK˜åš«gÕ²¥ ^ØÉCò3zÚ=²ðª6{Œô—¸½ªÌ•‰ÔÎÔL0v|¥Ýà8Rg†âC’OªìA“[TÁÎÇÎ-n‹½tµvTêÝœ½¤.ëï;,ŽOx¶À÷]fk—š¼ègÁMÝ׈ý^OÖŸy.Ô;Ý/+ ýŠÈÈ¿–bŒˆ B˜Ök½ŸÜ¶â’ýëüò©La!-ÿ„ˆ¢®’hŸ;¿÷ýéy'ÅAÜR’e²§@8ׇV?±•Å[|ÞsªMññvo|U¢-y[ðO:òÛVg 5~kÅh‚ç0JRïIáê’ÿHP“éǯ׫¶:V,{N @å¯Ð€xüC4ÛÌâ4è…jÈñãj¶ û©bÿ·9TúýgêkN7ý¶Fÿ2e‘=íá'Í#¯ê4Õoد¤¨E[ÿIÇ8ÿ à]øhg?Y·´s—WFü-/ؽø,\âè#K>ò0âŠ]—táß±[öŽõ‚äMÂÑy¾ œˆp´±u¿³~NBb¹&á+‘¾[–¾”//Ê Âr"}ïûuû¿x²9FàË—oê„/êÅðõ­™œxn<(ĨÄ'å’j^ò¬}Àý@¿ò©tòùZXlعdÝ;v] œÆBÒ¹·ìWuÝóg¬{þŒuÉ-ÌÜ{WTªr˜bÀ<8ýzÍIQâ5‡¦!ä¿×áY¥éŸ{7‰›lžm¡4¯4¼´u±Àò*°Câ {†øŒuÉÏÔ’ }1ßHøþëÃø„Õoì„KÖp~ÙÏí™ùË×wÏ€ŸaÝ®4ž£¿`ýeW [h–WªRÚ¿¯ÖvôÒ µÏ´»Ñ{Ö)9v±ÈZ={l…6@äà ¦ÝøCòMÈ—”}GÜy s>«%á«Ä²–Ã肆Ⱥc™Iæ’à»ßÉ›™cÈÅÕÅx#lØa`×%d]—æ—ŽÎÙØðW`|‚6ÂL¾“È€ªâý{É1Øß³†‚¤ûøÎƸ?]ù›øïHˆIVÐmÆaÿgšú3êQÿ*Ü&H‰p[ÿi¼c½¯gWhœö‚uà]9³Ÿàüÿ…Û©Šÿü`Ïk‡endstream endobj 677 0 obj << /Filter /FlateDecode /Length 3546 >> stream xœ½[KoǾù #‡a¤÷ûÄ’À`("QðAÎaùfLîJ\R ¿=UÝ3SÕÃZ.i'*7kª««¿zu÷~Z¨^/þ7ü{rsðõÛäÛƒO8psà³7} @_Otr:õ‘—?.Ö0p_ê"s1üsr³øÓÈÕÁÁPŸUÖ‹£óƒ:£^“{«Ã"úØgëG7ºïU¯r0Öt›{ 2 èÛÃ¥ê£R.ukµÉe“ºÕõáÒZÓ'­»Í9Ò¶JwïðCŒÏÝZ©¨€i•¢IÊtW@­lHÝeÛœ¬]eg9Ë c¡I=ŸçW0»ùïM„Y“í¾šÐ'¥c·ºEqÙêhº3÷÷£ïÑòžÈdÓØ µ8:=è´><úð˜œ8ÓÒ9½XZߧïC÷&È98—»?.½±=¬»;-£`ºÜ­ˆ¼#²'òœÈ"Kä†È{.l˜-t¿§Ñ%ž‹:œˆêÔ)|J¹»%ò§N>#ò£Ì|"Eä+qôõ¨}â£Ëðþz¹?Šßý¼—ãZ´ÐçB&m"Œ" ©âìÃðUùûv”å»oˆSúŸàSL¾QùæàèwlVŒR&Ç!yAzõc Ô;/kê*yq‰rTŒ¡`Ði¯&&Ì¡òéoÊ`´1tXBÍ”ü8;P²à°[>§à1gbžÎ)ûîâ³ ÓʼY1YÌŒð‘kÔÞVl CBGeÏâ—ÈíÁ,5"‡uX€êå <é2ŽÕºTÑ‚¼‹3¶¨Ó*0”¢yV¼ŠÖ’|Á˜OÁ:×hUW–S,ÞŸ”ÁÈÊÂp’ãÃ%0šB „_£|Ê£„äMµÎYÃ6ôHC-¡Sª`С©4Ôˆ¾%Â"ä\a¸QƲ7Cä® 1ô}$†¥€V.öP=#xï™Ôn¢»{ivÎHj5Ê<"òZKÐÔ¹"hr¾ê fŸ€%‘š”bdžÄúQ¨…þ¹ÕJeßC…ÙÄõUYnŸ,YACd*bQ–'YfŸµÂôUØ÷ÓÀÒ´Š“£¬(Ê’-cž´qÚ'‰iÅ$E"dîžÂqCÅê§?¢÷g!(•°ªr2…ÕÑû«¸Y­ŽBätÀÜ9*«ŒY’¸†ü¼òüß/pðÉ’)Ë×÷bMð æë/bngKó—âl[ö ‘çb æø$ª³·¼Z‰³½¤*cšÝPÉÀJa6ÊÊŽU-V`˺±XÙÒßå¤z•ÕoE²­»%OXŽš,§Z¢¶vHÁNåQÓ1T"9S´Ý渤`>Pzn4X•Õë¹SÍÒ]HXèYº{ ,_KŒ}ϸ’r¦O›‚MSîZŠÑŽ•fI$3‘,^ÊÙÅrrò4y6ÆË"žÉD«uDF"‘^ ”F4ƒ{4ï|Ôî3Yàä3hÑÒnŸ´H>*%úgÁŠº°5²ÕDñ3Í—°ÇnÇg’\¶Õ y¨ˆr/0ƒ{Ž^dhöwبGÕ\nY¥IËa1V4Pn“ÊÚô1ØJŽ¯RKB·”Ð÷FŽGz=–Ûæùh‘¡§Å­ba‘#ˆ¤zN?úÝa²P-ißm ù²€£¨çM$·M™Ÿ÷^µcLɦҞÌ7¥i„äEÙÙ#‰ÙcwµÂÍ9@χҙÌÚk•Žó¡6x×hV³V Ñ—žÔ%hÓtɾÃy/?5Æ:Fgã ™]ÇEÕT|ªRŒ! :®ÐGÆ[æH¥=:I§Z Ó°Ö“åT,`l‚]Më‰vŠÊeï»sÞÈÓk åxcïÚë`£Ãº¡®RáÃÒ›£ö١ؽ©¯¦÷—n”±xâO³ßÕJÈÈîz¬„Ê¡þv‘Ï÷Dòe•áÚQCÝe½®gåZaØ<ï(Ç!'ã¦þ;c_@J5cm¿K!ƒ@LÃAQè’Ö?;à_Ž«h Žj°rÄÒ¬b•],ç(ÂP=õª‡Q7·•#¤4œNxc<¯°¸…  è0Е®Ìæ2¨>:VA'tÚ6^ËŠ>Ž¨Õ=aa\W曺ÆMp`Á¼§5Yì<ç¼,DغÕIk»¢œ ³ûðT<ÿÙåuÓ>2×Á–+¨à’¯áCçŸ]Ãð¸–Í^V%`íÉÛ4¶ÔMUƒWvŠW@+o ö^Á‚¤ªdaÇ’ÃFפáË‚ÍáÒì¬ÊµDW§ä Ÿ½/Ü*Áò [fà^]L;ÊÑÊðI?ÿƒ¾íÏyC4¡$t¿ ¾zƒ›’ X‹ÍSÖ*–€aV5Ç zrЪ­o`"1Ú¸qf„áꄱ`<Cg€Áùœžy÷Þò]n5FS=#"ÖtQˆa)F Ô]ÛùàwAeŽÅéä´Y3è„\ŽÉú(:G_Ñ!nßÁ‹’§¶¡¤¡ÁXÂ$Ï%k˜œoXxÒÚþa/Š†Ù¶Ùa×Ýë ÐH&ü‰ã´ÎOÈG^9'#|4?À%óDpOnÃը̈™¦$`• WiK békG¢ºè§Øòº=ï]Ž«n“È_”‹khpOðdy†!£“{Ê©;ĵRáw±Í —È ¾_<õѶGËÚP&…³®B‚r,ө¦þÏÐYDÜqÆÏSg["j-صÉ%U2øÖ»¨•GuÊê2&äj‡þS®)êzž3”•›F§Ûîª÷Æec»gÙüñasæD03”a!Ïá6Ñ%—k@P.×)çk~¬^”±lœ’s~æ}׬êèŠçÐ$ÅI*y‚Kñ°Ûó#Ñå8ÙÎ Àcýš ““9¼ëÛ¦á†ú†KÇõ¤ÖÅ8™öåa¸´RnßË¥Sât¹Êâ Ul{kYæ©eÈ=:4÷jµËHº™—5›éÍqÇ,ûªL„Õ󠉼Óè£>h؉ª‘²±­žx D=4 ¯«1Ç]ÀeÍÇd¬Äý€Wóåï j®ö¢«¦j!@bðcÉ0×tõØäʶ.¨U€áFÔÎÒ&Þ&ß.ƒW%ÃwÙ•ÚŠ·“·4a‹;®ãÔZ÷o‚ËÉé (0—NN±wˆáX8<­×+^i }06(ü¿ ôpû§jFt)b ¹>´ªÖ:ÇÅð©5àAØ|FðÕrüLìalQÚµŠ¥4D£ë"â_¬®×Ù‰=>nžžNˆŽX¾˜™ zfØ (,–ãe¬3f¸ÿÞOþ[âm.†a«í€0x u¶÷¬']Sêsˆt™×õ,5u}Ñsë]<ú1zW[ÃBÍvXlÖó:‡¡0/ž 2'øá†}þJm§»Va¥µ§;ájGÉÌu+³Ûí í´ÙÙ:ž{A¸Œ]­ÜÉ®@ؽ»b:ØM:´ãÖÁC§òn‡³®§ºqWiÖ&‰i3Xö…µH•œkzšÉ’¬ëc‚WÛ=¦„Þê[Ÿçö,G‡7D®ˆä—z;ldàizΛv Î:ȶæ aSÁ•p­´&æ­r¥'Zµ5Pöïy` ÜÌŸV°0Zmíxß8S·Ëwžµwl¸çI³µÍê³½“—ÿgB-2–‘¸gßüí >³õ‹ÛÝdÛßÇâ³·lìBgÓCL¯ïc õõš{˜ãÅÂñ4 2U#|Žœ!È\Nñ¼˜fÕó+V‡ÖÎÙ`¤‚„˜ ]ÊëóÑø3ïkÎJU=¶à'JlæÍ0‰ã'x›5M8,Å;=Œ€UÌÔ–­WÓ&|ž/ÇSh¬TÇR帶¶áôJ…,ÝöÕÁÞ ÁŽùÙmÿšHö┑ã5]%|ÞÇÀž*œíãeY‚%v/?8”ßúÉ §ûX"Ò/à5ûxo^ ÷ærÙ}ÿ)‘šÈ+"_ïy0À˜¦ÿ|b†rÕü ›ASÞö¸DfËØÛ\öÀ…=[Ûï7Dþ@¦}Oä‘üõOC~álò[6{ʪ°‘á#— )yD oE}¿ÝGöF|Eä±øüäbx_AuïÃÔº½¡¿3rDÛÀÛÞ-¡…¼c)2Ý=ÂðžÈ7")ÑM±u¸wïLÜöðÿ/âŽ0ˆÉ?(`x=å¤4‹W_‹‘I~£½Ù§:{‚ÍÍ~ÀÞ‡©§äù/îˆ| ò#‘Í(mì­CÛ;"›,<Æ ï€MäåŽh%!ð+bxKä·DþU#ûŒá’ýÔàQR~Þ;JdÐüÂøñÔÏQæ£×âÄìÉŠßµå_‰+–:19‹`¼Ûú¾¸/ô‰öŽ€Çb ‹‚æ¿ä~¦Q–Ÿ¶Wâlß‘iÿ(¦¾wû°Â2›JØîÝŠ¼2‚®E(È[ùÏZø/¬†N¼t\øßùû×endstream endobj 678 0 obj << /Filter /FlateDecode /Length 6424 >> stream xœ½\K“Çq¾C ÿ6tš±9íz?ìд Ë Ò“ó@ùÐÜ P\töÏvfVuUVuõì0ƒzkê™Ï/3ëÇ 1É ÿåÿ_¾yòO_squóäÇ'øáÍ­š¼ƒöëÒF†)ÂQ›/Ÿ|{q ®à—’ƼÈÿ»|sñÅ3×—)Š(/ž½x’&”A^x맨íų7OvRíŸý:K§šÞ–àÏŽO¾Û½ÙĤb Áížc[Ä`üîý^LA*íýn~Ÿu ÚºÝi/'!¢V»wøÕÆè½úŸg¤i ŸÆ¨É(»LóÏûƒ1z »ÅŸÉ¥»Ó5Ìb„~w¬£í>ìq:Âî’ÍŒ+Ñ)˜ú4•Ú…´qwµ?h­¦ìî+üÂØŽë­64‚‹°›lÛŸ_Ó„°~µ›_ウ¿Ý—¥Þà0ÁicÒ)åEÝàœþÕ-ju4®¹¸zøër6_×)S÷övZÙÉ uqÐv 0ýè/´!Tô»—¸þ`¢ ip…O9X…Á¿ÓÉÀÍïøÉÐW#ý²%èkw?×M¿¥Ãõšt,>†hwsšÃx¯óñS>Æq™Ðî¾ß”‡£Ó1_EpVÃpå°N¸LøjÒ–òÔS&Ê¡È)Z«ðPpL‡çóå“gÿðÝî›·{ ä!…‚Y°%ŒÜ]¾zqûêÉ‚¾ØÝû—Ïó?¤Úç÷ó~tÞJL.Ä° ýl|Ð8R¤Íïˆ?œ!J¢]#T*egsÉÎ&ѱ•RKN3À 4 ƒu×sšë×æ ËÜê$78‰}FCGí¤wù." Ø‘húótÄy§ë´%äîÏ´×h„I*s^?€9ëž\.Þ§uNCBK‰%½QŠˆ4D˜Æá®&`è,H_ƒˆ»Ó‹<špœ•_²Å=O½Ûßì™d©Ÿ‘ÓÓЪaé_5»[kjwK¿Œ2¦CÏŸ_ç(¤üW¢,$5狨Í×´;½KC¸ w'¾ªt(ùµÖÂh§Ê(pŸíç²Ô$ÜÒw\ÆaYÇAê ؈³P‹Ð&-Î;¼^á¥éPr”sÆNxíGÛ³?ô¶±¹ëëôȲS:8†Œ@×ióѽ7zNDG‡<3I”ä3PUÌòÙ*eWòÙ )ÉÝŸv•fž×uO•\¯˜ÐÙ}†¿ ð/ß««´ Ø'.dH%²Ñ^Ç Ëä°ƒt¬–O{ ^!ÙqVáÜ›çöÑ5ô•~ ¿4:I4|ö¹Ìt¬š‘ÍóW6?¨reap9ZØDlÇ ¼`"o ÜäBÞl––‡ê,iqŒ^³H©ë¿$Á¥A ô÷XÚåtž<áØ d¸^ˆ8šAèa+ ¬ó5Xa”î%W݇eÄ: øÓV/k,d`-WpÇNà²R8cÑÂjçw$îŒÔ–s£è?íëg Qç I­ÿ$òw@0­6‰Î7 !É& êî&Ž ¯ (øzòx:Tüm#ÈƾzÞN‘6ÇFÀQLh.¡Oi¸#7£¸y[xf½"8­VÖ´gD?Nbp¾ï+oÜt‹ÎJ±pÉOxô@mžä1…”~b ÍÜP^ÃJªEñýÞ䛀æO‰_ÀŽ½_ù¥šTi{1x¦^~1(7YÐŒó¶(”‹@zRy˜ddâH4$Mé?'Þ±`3]ñkI”¢½k¹ÈÕÃÊРʄëÞH‰‰“”Éx†¶- $mÒÏÐCûéÈ_ A¶п™òÖŒŠ²#ÿ…O/‰Íé¿HV´„h¶Yä1¹yc‰l« zqSYáù]\î£1ò0EY7¨ÿJРÿ ˆ{tˆ¾eæêËr~­a…Ç`ƒå챈GË»òSUí¤HXÁK¶·Ã“îðvè#À¿!Nä–»·ÎWÂDþä÷✠…›Ô×Ç ªŽ„@‚¬‚M {ÅøY 0Ú-Þu:*ëce‚K4ŒŒ—㹨ä–ûý>á!Œ“Œd„÷c¹¬(Rb!@jεyS›jóÿÙÁ* ƒºÝokó7•šÿ­6ŸÖæÔæo†äN¬ö¾`YÜËâxNBN”kœ‘ŒPÙP*ÉÍ¢›¡2ç~èÖ±ù\dÅ î}¨äÌœº–ÕJ{* !‘VÃoÑp“KûýœÄ`>8nÐpß9 g­Œn¤ãœºË úJ PÝ s]2 ›$ur‘Îm)ì€çÇyæ8à‚{cT0 Í¡Í?àšå"«/€}Ñõžs±¤ ]Q=¦ߧŸÅsbTÌö›Ú¼¬Í¹6_;÷-íý_ ò«+s&ºxʇ42& yÞ ÀN&Ü× (üƒ£û$æEÍ1Š?ñûÎln‰mEM¥î9ñ,9ÃL ܦyYàãÞ ™å§ÅL¡ßé‘(]goLË^51o!MŽ>þ‡±|+ãªFÔÀßœÚóq9\þ~ZáÉ\F[®#´Öò¯ÆLÔæÍÑmÔ´ìyuËV¼\a¥äU›€ªl!ès°i>ÿ-Ø”¯*i Bú¹«°,+qZ²DÎÒ|^\k®oÒ<´à_öŒç{àq-‚ŠåÆÞ%âÊ\¾* þ‹ˆg¬uœ>7ÿ¹9ˆãEPY[ÞoÅ?Ò‚Çã:û¿Ü¿4ˆa0‰õ†‘ÑÊqZˆêÑðÛašâ2\³ˆÔW­£¸ÄWÏXxý ~6A·„"úQz¡÷ ³çXçkàáj@ψ$F°e€sŒK¤]Œë¬þò°w§bk¤’òaªŒ)-¦Õ>Ôæ;þ³aÔ zÛœ»’ØÊËΆÊú\’ ‚ýMÉ•áÖ&~5çÌ)6uv‚ãèV@déÍõ~E;<4ÔXØ!ŽÓJÒ lÑ/ éÞ¦9ü9Ó¡%tØ0J¹ÞVhŸ¶‘ÒOÁ˜ÞŒ5ð•0£½^Ó ±q9\çª&´"?Åæ€;dñð3¯4s1oî üc!FèGÞBg`/#!çŸvÎèj¦0!FTtÜû:üi<ú.£å¡‘Lûá´•Hcª“²SP.È&§Ë&cz”ôPR)ý—’Áƒæ,'aMþ¾.:K‡à/ü";¥0&¿ƒaÁ2Ê•²Ñ ãC“ÖRY7?bðÙ8¤÷<ÂuŒŸî 6‘S¼ —ú2ur•ü×X©T{›ËÝBNq'ÆÔ9 ø#ª&ƒ’¥Z#ýYJáÚÍo«zäú=YLVcRJqr~¦!´³†ßCÜFpò: D“{ø%íH‰Ã£Ä—yïR2Ú1 ‡Ž}g .Ÿ¬«þ°›ð²FQÑïtl‚Cmz\½¦„:Ó4qlîœçÿvžŒƒ$¯ÎÓzúìÉ=IöâÝCk+4ÅõÃ…1ü¬¯øn÷ß »n­´xáX_Žþ}•P3‹B¥+ÀÖ»|Ôp· ®gÏÿÐU!â\ͪ»§’`?mc€Ëýe³YšfyUMPPœÛ7R3WDGÌKèR· sç2±ªR´åÖÆ݈-1çu#d{ºja?<P]m4ŸeL¼Ç»‡½jâKÊÔ0M_–¨ÆŒÚ{¨ÁC¿n*â±'Ï9!Š&•œ²xµJóTQ@­jrÃcE~½µÄÉÔɈÊ#“ÖÀbÕe`V*CNÞ×æËÚ<Õæ¥ÓXK%?I‚[ºŠ.ñŒUàljÁvóZ6…DÐ ˆ’\”AC‹ýÿ.U_-¬Lâk²öoª+ö‡Úü¦6ÇÙè±ÄÑRÕõ‡'ª@{!ð LƒÛ¦ßT›Š×. mÚWU1!Áh~ ×Û•gx®\y\õw¨˜R8#ɸyO}­­‹§`0÷úª•BÕpêOŠÏÿÏ“rêQ'õ»Úüò±'õ;"Oë—[ôùÍØxâîþlÌR9‘9§a¬o¹‹  k‡³8E<>PY¬jéÎÞ‡Ôu0ÉñÇÇ^ÇÆY«h\VÚ”àUÈ`ŽFKš<+ôæb~¨ªª9²ëtîNô‘°_üÜ)1¾ú|ðÑ»D(eþ™+³Æï2ඥMðV«é="&+Œ¡¯Éi0†š†RÑ´XC{eq]jÊY–¸?ÆðK‹¯¯‡‚þ!—© ¬w}—Ù[^éܺ¢ŒXWС6,M5´Ãü”bÖð)ÊfoÜY¸5nÃ*’’xv…O%‚iñ©u•Nƒ“—Ù^V#â é¤t²_ÞF0v’H2#j½|ñXŽºº /£n & ´¾P—\¸ã/ø)% ]¡ï'æ^¢÷NxäŒè=XHûÈíäïrýœ㨠aLÁzÊ“À!± äÔ\ŽyëýÒýܦ 9W1ÈÈ؆•Ñï£äµ`LÀ† ßèœ8œÓšP´¼&9s£¸’1çÊZ¼Úçz`ºDì“ÇÒ×sÙÙËIŽŽFoå¡`|Ä:JlÞô±C¤¤ëŠ‘&µaàLïN½•9qà66^!K]²—Ÿ0Fü)êèx€Î&,ß{Ù99Ç°$cü¶6Y6á÷µÉr8®‡ƒñä;g–µÉ2Bîü™zðÏÈžÓµ¹•âådJê»Îgãdùö“ó†¨IAäAý©6ÙÂ嶟gyâÔÙ|bðhÀE–÷žTÝǹì+j †O|_ª>׊Ú{daRÚ öT›ÇÚÔãU‚ 2®ìõ“?*¡½!±Ý&öã“1hþµ¯½ÂºEnÁ÷éÊŽ¸IÃav 7ðK·-Ëß]s“^I¡š›Öšh¬*oÈûìSœ=¦8Ÿ-Ëõ:‡'‡þÙ0k´¬Þ<,ŸŽ•¹¬Ô….x]iõ™Òy¤”Ïæ<…‡ÆßÈJ<¿Íƒúƒé˜‘pÏrš”¹¸”µ¬“JÚWJaqÁæ˜a’^ ¡b0N¾)?VEªhÉ‘±>åž/ ›Ua÷… ¨„¸KK^žìJù ·pF-Y¦@ôC3*ñg¡KèÊá÷KèÊÅq&ü&ç)gÎðlÚò=r×Þåx=é€T„¯Ž¨*$YúK›¨z¾æÀSF=Ék­ØY•w±ê-VˆÌ:¼­Í÷ÃìÍßן×æ—µùMm>Šøè'É°Òü3"LàɧÊ}÷©z$VKO\¤ØG>&!ZÐf÷lgí½ÊeÖLïl>ÔÈ}H°å °´m æÄ>Ú«Æë{½¸Dª‡Wbz=‰I친ç®q¦ùü.»`]ãfB1.ÚQuηx‹­)Z©.åŒþªªÒ1zžžÂ$¹.\ÏŸ%ø9ýì®' {·³}¹ ¿¢GûèT8<’Ö#Î<’êXJ=ëx{©ú9ÙUÇ|G¤WÅ4]P αD‘Á4ªrõHh=¥zx1_¶W矜Xgb­ËˆÐÔÂ÷¯lÌå%aŸLiw00•(èÝQžæ8®­%U™úu5'™½™™Ô» øFo°µðœkÛ§Üc…B±Ý¯ª˜eõ\Ì¡¹G= ªš¸ÄQÒûåJŽlqV²·N³bë};^/{oæEm2m\pða8Ç<wãHB˜,sV:{©Å‹Mó‚K•Š?1 •¤ Õ®vé•F¦×kûÇË«`Þi«Œ«ÂïônÅ>ùÕQ潧?tKã¡bœlâÞzUs×{Ô´‡Gëû±¥= ,ö–#ùTgÞ‰=”¨ô|ØW¸¬y_'¥ ½Ý¤pœsy‰sZ‚Ïñ†Ò²2;3×[º¿±Í×Ùà¥þƃUy|×Á¡ùãÆ»äLšŽóWz”Ô[zùá‘9˜.<`ÚrÒkÍëG%ZÂN¢lÒBR¾:yc« á}ŒLŸÒGd¬¹6O×`ÈMžºiœ@c†soN_þƒv<Á¦]j"AĨé‚m½þ Ö„©´ôØ–ÄOœqÒýZ™êñña6©š§ÌÉBÓÒZÛD¶‡±Ò¶ê°¿ÕÆΡ6ký1,NÆú¾ªYÛwœï§6 =åðüG¢£{\)kß|Êù¨Ÿ1‰qTS­ƒÁpVÑ£×ÿž vüJü¥#ORÞ;çUa8=ùÞ—pñÒý³¤+1’ÁJ†«ö»­,Å4èiõÖ9ŠѾu>Hø>½äÑ wcˆ%E„sî}qßð ¶üèFkñḘžÁjN0w¢yè¹ÏëÚ¬céô_ŸµÁ7üBfB„Q¦É›a©U·y㘣s¬×±-ªh;²ÕYyþ¹Yì KHëXNôÖs§RéL7ýÌN§*ÃZe{6~H1mX ðPtÌ”œ0''¯ŠŒøv_¼­—ãõ³•>âY—ìb¥w]¨#üMžÝ°´ÒpßÓû9¢Oaº3?‰œ?dHß[Ë•'H u€`¯†惵¬Ã¦nZ4F®À1a/_?ÖüÿŸtü„¶~–Ÿ¨ò±)J_IqÄäz'êrØá-at wËêŒAF7 Û³gŒT÷ÂiþŠ±${f¹E¥ê*céÅåFWµ]ĸ}æ"¨¹±»a§Š<üïÿqô˜5endstream endobj 679 0 obj << /Filter /FlateDecode /Length 6429 >> stream xœÅ\[s7vÎ3íò/HUXyšI<íÆHÅ©ònÙë]§j+ SûàÍȤ(9$GI¯õ’ßžsAènr(É•Òƒ —ƒsùÎøùtÔéˆòßç7'_½ˆöôêîäçüpsâ’ÓCðо.íhU|kóõÉ_NoáÃüRј§ù¯ó›ÓßÁ¸Ê[ø4¤1©Ó³W'<£:Õ: FùÓàÂŒ;=»9ùqó§í8ŒÉk£7‡hÛQGh¿ÛîÆ!Œ£›[øj¢M:nö×Û1zˆJm¯°m?ªÍâ•×.mî¡©Æ1ŒÐÛc :ŽzóÚZÆÇÍŽmR4Îo¸ ô°Fv9]ê¤NN„ó0»†ùï·:À¬Ñlþ¶Õ~ˆ£ ›ý;.ôæ²÷ßgBÊ;I ôàá0ÆÓ³‹“2Û³ŸNvÖªÓqCô?ÿÈËS‘$0žK)ÀØçðÙ+£RÚ\×¢Çݶ4ßYSLns¸¥½¨í櫼ÀdƒÛüŠŒ>úDc»½3<6稱aép6@2:'gÔ!j§äbÚ¼ƒ\r ¬<ƒ[$ªUÏúÆ”¼ Ðœ±$°½oNKzó–ø) Ç=/(>=Ø ötƒé8†8†LZ6ìæj¸® t@’©ä“âÒà”~ô6ºÍ ‡·yYöúž?†fÌוí.óò’gÚGo¬…î`)^E$&²˜öÒ.2KýØPˆùH!µ?oÆ-=ÊÂÂæ _²£Ý˜¡U@#œ-&ä…2mX_E=&7õæ¯:ôhC3Ç@«NЛ«¡êË: ŠòQJJòƒµ¦lë~˜RT:lµyQ›ppN›aÝæk¢ËÎŽôŠ>Ý)38P*<ÐÿNýBÓ[8 ´PÊcRSM}ýæŸkó¦vXþ™þ°Ÿ™Úw75#¬aI( ÄÓn¢NÕER³ A¾` ê’`yF¸8Ÿ”Í{À±Rtzó ¶@ÛÐq¢^´$^‚W[Á†&hŽQi#vYåJè~Rn£Õ6ΛU×=O‘àäŽldà£ßüuK\‰*O/NâI,2‘q§üàF˜šßÀDÊ#H+‹M0!‚²$†…ãIr ‚;ÜC £+v€Ôìgb5üK2L’J]X]:ÚTB©ò±øeä>ÀšT3ã¥4 ô³½Tæû[þì’Õ#T}5p¶B3ˆCjΫÕ µ}žÛ¡,'8›|ä´Ý ,Š¸JH}?1ñ;AÉÞÔæ¾6I¿äöûÚ|S›_V¹ùå©‹sÜ˯¥ï×Ïø™˜B(­ËÚ¼¯Í×+ZM¨²ÒüÇÚá»Úü¶6EàùEô¡Â µšÂ`MP¶¾—‡LÚ?zëYí6¨×8Œ6tꕱÆh" üá ÀÈ`VÊöˆ²­±È£¨·Ëåö2#ÆŠ4¼ãÑÒȪ9S®Q6~Dû¡J¼°å¬J©5™m9€èHx]F¤¼¯˜·µì‚Øy¡IhqAv¡M¯^/¡V!Å] hÂy™cc¹«Bþ a¹š7ÂV¿®¨—¡ ¶.xXÝ ÔÙËsÊÇéø „ù™&1ÞYXA´3QO|¹g=£i•ÏfàÔ%°'Ês³µ~¤äU{¥{%H j%‰äÐÌPÁ'7z¨šŸ{a]–˜¤eÚ"KKŒ¼Ó‹Êl—™l#Ø1æFìøÆ üZªY€]@ÙgþÓ~QãZY5¦  ø¸¬Í7µyU›¯kó~ñg¾|]›gµÃ‹Úü¯ª.¿]ÔTÑ pÙ´P²á™ß‡¼s°Îß\íÄ•®Ò—Ø)P'‰tø‰ÔÆŠ4"çmëS„‹wLjÙ¦qoya0bÇcÐÙÀé5¸hÝ«›{^Äà&ÎM±cžnGfw,3&‚ñÞ§àå] (¯ ]²}[ Ì5Ï¢&ËšI.&Î~À8¶37±õŒ;ÞÔðHHÏüKŒ³ÃØ…2®3KÙE·6~%iË+ F”ö {¤ÊKG¶_½Ð¦VCrNÓÂ``öÓ³?9û§7¾¹}óò˜F_ÞÝOÿòì,Û„€\ü¨0ìñ›NùÜß\Þ_@vðk­W6¬a_ +¦Y¿ÛFƒ§ãظ4ÀÞe@¥u$ٸÕQl™¬¨-i\¯«ñ˜³¯E¼&W< ÂÜç ^á=°°‚!vÀù°F¥àA±€5"aõd´6IÛÅž x(ÒxÇ6ì›,9$mü‰z£Ææ@IÂ^s±\pØ# >-ÑI?ê '¤6€2ý|A²ÃVF“~AîLÒi!¨@§,D–˜Ñ ñ/ÜúKþÚ†X:–pâ´´Ìç 5«Ùí´¢ô9vÓ–Z»›É«ìD^âå}6ªiT2 0£¼Uv/ƒ¬ÁmQ`‡|žÝ)ËšÁMZp “zˆŒÜ»™m”NÍâ[zbÒ¬AoH øéð?Ÿ9o1œ†ì7õ4ñÌà·,ÿhd›2ª tVà ™Óæ7äÕͽÎYÔP“G,¼ÕâíϤ Ð5ÌUED2ËBð©wŒ.6ætë´4ÈuqÑWhâ!µÍ‚x£·ä¿%F€¯™àƒT3&x¬šad&Bo§P 8nª ¡ ¢7OøEDÁŠJ>´ºðê]…郃 „ ¦÷Rñx‚¢¨È÷Û%þÖ ·š–ø[ƒèy³Ä߀ù,l¯åïéPC't~.DÕˆÃýãÅN=¾¬8XZ¾]Ö×5œµ¬ 4ºe]° åy½Ô„e—÷{ë‚” ºœ+C7cz„n™àíéGo3+:Ï¡ÇñÔÁ‚'ÿgмÿS˜‰~\uèâ&*)$:VÀ2àƒjh™Ù “$·UÎøUÖV’!‹18ᣴé(§ OVùD•p®W9° ÛOýiTN)!Ôá-EEôˆŽhõýó<6a…QwÄ‘tÇš Röt›@të: „¾Ÿô”n·-z f"ßç8ü—+ÞÆ6ÖUÆδë Ìç—8 û¦Ì\†¤qäT~ƨ2*Míâé=MˆØÈtòrÂ/˜ªjœLõd|»¨’3>¬dËš{ó†_½òë0šV™ÂsYöȬMXVuÙÉ:¤á¤å¤ f„A¢T W¸ ôŸ^|ƒ… ä¨*F*Å›ÍoKÀý>gm½=B×H.ÛW™„ÿI£ZÐ÷윂óþ%²„R†ø‹Ý ø¶ÏGŠhJ ãžØ;Kß }%šï»øõDŒV¬¦†á8Õ L¬šè/ @E£^‰8…ˆ9š È`v0¤”;NŠšÆ¥ï¼VÄgZQãpv +@Ûç8ÝòÜjî~}j„\ØéŽçkX -߇”ŽöœaKè–qì‰BÇ]ì ;¤°.4Çž¬œ/ŽïËíRbç~-þâthB×9ôpõP茣£¶9Í5À Ü f,LÑ=Åóá\;sûk‰ìiŽ8p]ÕŒüáSùwp‡`MK’>u¿˜©:¯rÊŽÚ¦6¿ä =Ø oÙ9w<‘Ý–¤üJK9LÅèÕÜ·CŸú¶¨aJ\6prÊ¢k½–‘’¦ê‚;º’2uà¯)‡¡Š˜?ôb^‡¥˜ã”õêsøïy¾Ø9 ÌæнnjÝ“6§¸Ï…@j™¹lZ³n›ÅCµweˆv¶i´cÔK);xfˆ‰I?†fm,|cý  »è¤;j3ÀCÆ 6ÑíùQq:’™I°Š-Ë1õÚ|§ý÷­2†…ÆÁ@®/k™¢(ÒШ)UΡŶëšÐ6M€©òþÜÛÈæ§Ô1tÞ†Õ¸Ü>-eµ&ûôÌ(òSaµ‹i$+»^µØÁP©Á2\‰p”Õƒþ´Ô׺?#}…EN¤R­ÇÁkXMòÕ1¦òɹ Ó ‡Vv…N+{m,0׎P¥Èêbi Í¢o”£í¸gC8Rü?$ÀLsô‘ÒBä£òO»iï-þ[bÝà±Ëe^ÍeFG'Š´žR6¿ßß_Rhaº¢ówhÅALÏ·”!R†KS©“ÛÜèsD>½|‡m§(ï{ øODJûœ;Òàý›ýËëËGHA•ÕÆQcn‚)9z”Œ:ã"Ú¤d¼Ê6%©±-iÂëd 㢬çád~Ù:G8p\Xª(dkÿ’d>{)³]1Žÿšeqi»4.LBŽí§—Ð|£í}Xüúˆ¥ÇÿGoý™ Œ~{ML»¨úˆÓ™·/ê8öÒXæ FÂkÕ¦¨‘.U…ïóV£4˜†Á Ž`ÿ¶*5igD‰ÒAtÉlI8›÷g#,tWI”M(¯²ý&á/¾ÆƒЪ(CÜ$ð’Úÿ¡øŠ<.ŠÅ¥:BJDTej9`²nöLÔTO܈œ¬qö,¯‰œ×TiÔÚ7>ö5‰ÙÇ™‘žÅ.ÄZÞÒbUˆgɼß·`.Ó ‘ë¢DGì÷UB“E¦!àg„³]yFDÛöQqÐ RºZ†Ý‡D£¢€T‡é ­xe‚ÞHúaJÏNÏ”4Ë/ C'2?#¦dAÉ›’Ú• QŸ'?380Úš&˜ˆž­ÆÌÚüYH¸ž€ŠÏ#ú–±où»‹¶±¿*¬;’¥1P„9?ð×ôXÒØJ „ bz”c¹¼³¤æ¢&/~ ÌK“sLQ/ÛTöµu“!,«`ó‰\Ó#.ï´Ó=wÆâ”g‡H#_ iï°qÔQÃY#׬G„+öíÑ°¥8\1=mV‘ž|æš‹5›º%² ‹CG+•áäh-—æ_)u¼«ŽH›\ ·¯ÍóÚ%vâ²À»ÚÌn/ÇIÞ IrÊì¶Kr‹z—µzt¡’0V ${V»RÆpàÏ)ºV+K¿°+=G¹Ö€X¦&¾èt'Ö×D¡Õým ¹q 䶆Â*G4ëÎNî°R*#8½œ ÇÀ*¯½(H•ÞW#ÏüyûÐ]L+‘ú&"DáAKšÕ'.ú¦œÑ#‘ŠÛÞnÛHý"²èM§Ü@Õåhûzw³l$8ÏÀŃÛÔ#ó% ÀŽ*á‘FH†òËõ³ wÉu™_ÒÈ6cs[fV˜ï¤T­U¹‚W™Ãþœt@“}uÇ÷tº* ò5ærž¶þEÞØáñb.ªè÷°Ä "ò"ZJÝÔ9dÑ»¨Ü8ÆÓýNÙP¼›ÛýÛ·“K‹‚{QË!¿ÇSQÙ{Yyÿp{E?Ùì/~z¸»¿¹¼]Ƀצi'Ž ¢ÅKwfͧ¯Wö½]W\2ÔÀ<–×gz0¹`R`+ Ö•Ëãâ’Ê^–ÓÚ5z¶‘“†A»3<Š-¾ãY¾W‹ó¹h7«Q,ê1»¯¹„î›L`a>ñµOÂß»æI°"õ· ËŒT¦@ç[¾¢yŸkŒ€y•©Vf‘*ÏFG–#"¢@jß’S,c9vÌü䢆ú^½=Q* ªË¶4\¤œ9Í”‘^Á¹P¶òÖŽ¸@·â–¬8[rP³C¢ãô-ú`iòXgQt"x’Ñ^ã1AÏèC´¾æ%ƱdQÇžJÉÏYô†"á„pže¶>Š¢(î/«€DÊ°×<6bésÑb»j€ëÛ[É­ãÌ0÷å²ìÑï·¹lɨဘ•ëNËP@ìu\ãe ”û˜R¤•‰æÈ” QvfeqÉè{ jÑÉgwã‘“o=‡¼+é9Ð?ûi^ô‡FxÚÿ?ä°jZ©¹Ú…xj4"i¦ØzÉ-^ø±§»æGMyAÇO*™¦tà1~¢Žâ§,‘Ê-³Fñeîb‚v­õl¨9'ur@bˆªƒ¨+9ùe|%-ò{Ë3fTT_Äuú”®Ôâej1‚Ôy”’„!Lslq‹k…™ßã €V±sPP¦S2Ø}Z*ÈS-½jïÍÀWøß*žÅÿÞñï1Ø )·zû üð ¡Vž2hÂŒò~y½t0â‰7UËvp¹ó …£rR{PU†ÑŸ‰HëAz²¤ó[¾=;ù~ˆÅ¾[B¥;Öü‚JT§_a±†Où¬X°ÁÜ¿-zÑ´·ÄÏi|,„¸à;/˜^øžïU*ðv +²¬-“ˆ];´7»æ *åOظ6Úǧ³(ým°ïà•®,Ûÿ³-%H·µùº6—/ªŸÕ/jóÉ›—àÍî+“óîœÇÙ3)žßà«T–ÂÛû‹ùi[â«Á€¢{ÖËÊg4TjÄëpmD?¦â]-TZà2c_P†Ç5:ïm_òR%KÀhqxóâHRU¢óA&¡îZØ]Þ÷·IEÏ¡+ÞÄ5Z… = ÚWœÇÅ÷æ‘&åMhÃèÓôv9 uTÙnŸŒ™GJDÝ.þÜ2¾“‡¹|à’'áåù–Ê1Ñ‚×î\ËÐÅÛ†ûè‡vl*ü×{Þå7kõ°•LY¬•¤Ñ¶5Rïx@Ÿìº+^—Ÿ‰Ëù‹WÝz–äämœJÊ•ÃhK©?ääN,K¦a½)€ë£éÓ>DΨ×ňW+lïš@õ¼'C|•÷¦S8º-ß ÁgJjdøï«í]†È`à‡ÏÈTm©=f¹ÇŒaJ×—,(6e¨ð}žtäÕEuy︷UójA3ŒK‰Ÿ @°X»Ø³F³VŠºV’¶­'NûY\:…DMÀJ€·qà>Е ‡h,XÊ$þ‘ÔK˜<¬,u¹€xž¿§$Øu½ä³Š\edŠkìý 2£b&šY(æD»Y»;û98Ý}vÄe:çÕ'œ&´,~1v9{ï¢LFÎ,`¦ ÉÛù”‘O´ñ§Sº”CG;–¢5Áz3³s¹;¹¤1‰z±¥:ùùBD)‰Œ«ñæ`Ï'ƒ‚ z'W¬>èé¥V«‚ `«³ï>ê6ŠøÔýïªíXÑÙàfL¯æKy¼°%ý›†`ðÉOâ®ÇD…Š„¨à¨1Q¹R!|œÇ^êÖ°Þs4d:ñÙ2vmGh™ÖJ0­t§ÿÿ¨‹fyã‹BúX9±Ægát_N,sgÌÄ| ¥‡6¹Îø zŽê%öfñÁ†Î^:§rŽî期uÀßÁ’¾Û–8Óÿ³Ðâ‚Ô§‘Z˜ÍL¯‡.‡…0MX³+ÞÍòè µ,× Îcdñx0ÖÛOª0£þ4*Á&r›øÁ•ðñ*èùtÏ©Û0&ùØð³Ãy†^vzäé’é9ËLâþº=<º‰«fwãjö¥‹â;›Þ·×k€Ý,AR Òø¼’àk"’ËYúsr¾öÊZUoª>½_¨¼ãù°ZàTû®W‰ -FõXº(ŽóÜëâ“š}T"_Ø,Pz´O‚੽žÉµé[ìôm.éN´Š¡­M˜R¨±rõÊñÈÚâæºÇ¿¦ Âõ(ìDµ¶Õž…L ¿åÎ.¥y6Ÿ¢¦Æ()?ó*> stream xœÝ\Ko$Ç‘Þ3åŸàC_®ÖN—óýÐz ØÆØ‚á9H&àƒdÍçP&Ù69šñÁ¿Ý‘Y•‘ÕYÝ$=2° &•ÌGd䯬ˆ~¿½\ü/ÿ{zsôËoƒY\nÞaÇÍ‘VõÞAûzl#C¡C”滣¿,n¡ãfJZs‘ÿ9½Yüö×µÐÓGåâøâ(m(A.¼õ}Ôvq|sÔI·<þK§ªÑH 0áøìè»îf¹½Š1×c[Ä`|÷°}J{ß­/°[Ç ­ë6KÙ µêî±×Æè½úëñi÷1ª7ÊÛ|µ\£ûÐý§É¥Ýæv1 ߕպÇ%n§CèNÙÎH‘ˆNÁÖWÐTRh:Zhcw¹\i­úl÷çy!L€3áºÞjC+H!¼ÝzÅŽý›[ÚèWÝúÿ„”°ý§åHê— N“¸”‰ÚâžþoBÔk\upõð×7ß–-Ópeáze­U8|¥•íP‹•¶}€¥hÖ[:“QvWÏ—¸›wg«ó/òÿÁÝ> …&Âv®»Ù,±‚îÎί—i¯I Øf•^ÿéèøËïºß,•ï…´x·Ò¨–¦»ÆƒJDX·ÝYä„QÀt­a´ïî肼®ïqf4 Hfëm.Òh'†KŽ6Äî]™xžè &½ãæiž•R˪wÔBIÛ\žÁ+Íoˆâ`bŒp‡ˆ›"®GGþ ˆÔ +YY'ÖÍþ~²\)kUH–í¢Õ¶4ÍɹÉ|@=,àâ¬ÏÇ6p¾r[¾¿oÊRêä§?-§g+—;ñpjHRG§V²XÆÁ{‚•6®7~øšŽ…‘Zwºé=Ü1“ª~¹í=°ö÷Ë aÊãXb‡Èr±ûH‚é¢éÖt'ZFXË#® køÄWµ¨­BWR÷Ö„èÍ÷!É5ތŕLæepVw_LõgFÞ) ©žƒšìäˆ/6Ë-v!`=lb Ûá%!E¸yÁHþ-ÝbP ã¸ þCZÎ ?,­‚@‡¬OÙ† 0ZsêIeŠ6AŠâ¼|ÐÐÉDßÊÉ ¡îN˜* ¢-T¡Ñ õlð\pÞUK§Sk06–‹áÙ( ŒN†ynÖÄð ¬sø’@JÀéô~™€;ã興z’ö+Ê·†öö]­Ò€9£Â…–„=_ìyÑÀë-#–õ3±Íˆ®`}B†ÙXYñ*ÙIÒS‰ÿ:Aó)Ô' cR'ÊÐýñslØLn‘ï º2£½ BU\Jú܆`C½(òL€)ù¸-,U«?@pWä!ÞÎéd4`ït…`y…ÌZ0³™cÐa¤°•ºF/Ž:îwsQIr'ònJ›“¢¶*ÉK'·pqš“_œ›D´ ïuÚøW-žŒ5¨`ضØ?~„û|7ÁN Q^¯’²Ú€Á<3ª0ê}ŸdÁ½K3ÈѺ€žÔ;lâBÖYgÝ7ð)íᶻ"àé‚ÀA2»àò)¸Ë⸱Ël«œ„ýLdÂ~Tû }׌jò]8 K?» ¼tœ‰`¾ã#4ñ%fMJpÝ\:„ wIåÁÊè!]Ñ(+ßàßÁšDW«¹ñè'¤Ål°5ò|˜Ç¢t¯‹ºOØ‘ÖhÏ™»Mû¢ûû}WðÜ}s|ôÍQŠ‡ìâþ¹‘Œò`Š|\8ÛzŒf¾Sûgl˜S‹Ûr¶ý¾î8v CÃ’ü\JÁ´Á)ý~Y.üðSo—£‚Û0Ü$h1frv$uôfÑ hßã5q#RÙ@‰šÉp4œZ8!ÐøI«1&@Âdô¶›ñ"§ÎJ ϼHrVóôV²©Àù3›$³á =8(Þu;JP!Ù!gÉ 4<n>¥¾Ž/Öé6À¾W·¡C“vŠ}XêJ'rSxÉeü,m€<|Ë4Ô…Êga·Q‡ì¸· O4Zs`ö_Ѓ†È½–r 3ÓS ÿÖdð‚²ƒ&Ú·¼6€YÑ„Å8ÑÀèÁ3ëxWâ¨ÍœùŸ]zÃ6["èÐj°D'É^›X.Ýv?+8,àäöüªXÑɃz(éŸä hï*~}dV‰1š»O«bù²YJ×.Ù9Cü_„ د]eG€=J'%Í‘³!&GtIÏ–Í ú:M'w7Ò¤Á§Õà‘E»î5¹Œ3(ºL»QSÑ’þ¢`”Ð/²mñþ6üц0†JZ$>dÎ}eÕ}m#Z‡¼™©di ê,uÛ¨¸¿Âr2ÆŒ¦·H› g–sÔ¡;€‡®Š[*d}Ÿèp)J$994ÈÁlä4p‰ u*~ŒÍ« ̳›¹Mëé() ¡kªòõŠ9W-[½är—xÃCŸmQýÎsZ Ür¯V ‡àÁ•^á¾’AäÕý4)¸¥ÀÚ.Nd'77·Ã×ýªô®J/›vSšëÒwil*Í«Ò|UVûph@Ú¤B­Ò<+Í‘àн.ÍÓ2à¤4¯Jó¶¹X¦Úëæ×Í¥ùªñ©ôž7§Ý³—Í%Îm·ngZÊçiÔ„íAcxEŸ”æ++á. ®Ó38FÛ“ð|» E«åËHùÙ–æó°7NûŸ—aï'ÀÛtÇÚýφ·5UpJ*Ÿ›óC—ð’û,Ô>íhÚzÏ“=  µUÊæ×Ú€¤o'¶fì-”?z©É‚ÒdÃœšïñ*-[=‰¯§.se™ þ4®;|²iÞ(²oË\•æÇÒdwrÆ¥ml¾)Í‹f“­pZšM~[z7ÍÙb×eè¿7!+ 8uiþoP~l>–æßJS•iLÚ¶MQ`F覹ËÔ“ׯÊnß–Þ7¥ù¶4ÿ´#ƒ( qÁ‡r±ëÒ|,Í¿Fª6+!m]'Ó’mõûÀ÷`÷}ÑÔå;OùËÔÒc“Õ×M•ÛÖßl…[~Yã lìEé}×TÄÍÞûæƗͱ·ÍÞ«æÌp?ƒáH”Þ¾4%o’«­eŸn³«f‘C†µì€ êþsi¾)#^—&[¢/Íjá±iJÓ–f†õj m÷ƒW ߣµáHfð}_š q‡ÐÉü® êç Ëõp~|÷|lK/½PXþ/ƒZO›„"•ñ !§Ë$½ãW©|ˆ8¼¥O "5·¥É ÂLCÍ}ðí!eÊ@ÁLßcS™2+øus݇iïêš¾jù€ß–½)Í,•Ôf'f’öº4e J@ѬʈPš}ijnðƦ-M¶óœïÊ9W¥ùá$½>WÑl2ÍìVý9èl+²çø]LA¶ú¦9vÛv'N§ó¦8»h6úN›½müò…ÿLE… ˆ4µ4J­‰!6ƒ;ó´Ÿw†ÊŒ3„²Á}³—IŒi  lÿ³W¼Y0‘Êfʾi¤rý eûȧµàÌƦ;¶²7ÆÅl"ÆgíÖ„—»ÅÚ9×Ç šø¨é0³2vÿxÂ}(m/¿Æù±yݶ,õ|ìØ<)[¤idY¯J“yx¥y’ü·‘‰•ÿÆbÐ[®¾Æ&S(LsÜq.®¤õ²’© àL.˜–7Í^ ‹ ƒ׸ ÅébS(ÇÒ´¼w\lÕœÖvÅU³—-Ö^!6·Ð¼·EŽ;D;oiʺ¶¹1ƒsñ™ã/ù€†RežýIi^—f%TÛÃiÁ¾ÙÛvDÁÖÎ {Lv¥äZLWMNû&÷<ßâÚŠÖÕäT²çâY¯)ÍÐ$gßbÓˆ¯ü1t~Yz¿á`0|š€iðw_téÁkgMfTãË®ÝðK›¬ð4y¼yà®CsšãÍݵj.¶Ã’=¬›½¾áǮʭUÍFñçòwf3.§æcjyYlÖaÇÝãýVÞ»“ôت­¬rk„êCÌÙcÝ/†*†êAÖöN;?>²|YÖ¯šíõ}/Q1î[_Ê^ãƒoõˆóÔ°£¹«6=~Í9t(/e}(Zsî$àhµÑtùä“̯BoÃ~žUw$Ó˜É2¶÷ÒËøY)¶Ÿ‰âþ§¥xŽ±˜kÝ0÷IÀ`4Ûß"TïEN®‡E‰žúƒÏJƒ|EáÀ×>ý¤çü "„Š)÷J‚”%îLNl/ßxÒ'ugmõg&‰¾ÌK ð­ÁÄm¬#ºþ³¡Â„à@ ù¸šrhqtˆ©©²AN?å\¿’!@¿QÁð™:"JÍ„…}4sIDu®H+ånsyÎ>IÕ ð)9 †*H€k†2Ëq÷ày¦Ç6õêè«Þ/Çäü*m6!È*ÇshÁLÆˆß 2Z‚®Ð=fù ðúyIþ†ûŒð‚F;¬"’jDÙ¡)*¥kMëë"4Á¨-V| ³ö EÅO¨’±×ÎŒT}5ÍÙ¨·{û5kRŠ€ ÑaZ…tçÔ¼¼älM¹¡˜eÉ3KÖJºÏˆ9i— yXðÒNÐçõ,ùUÝõVÛ*[‘'ÄÎq!baM.€m¹Ði©UÖEBM>UJ§FÖþ×þE¡Ô 3­X“i{¦°¾,ö©´Aepü®ðY`•6FvXà–ç¼Þ¿CèM`ÕEĈ•òszàQTi¡;gÿÓÇ#è›Kbo'ÉŠ<åÿ^eUÙ‡)©?/u•¹y,ù_¹ÀSõf8´ã[·3^ymãO¡|õn(åÄNÝqaͳÛMú¯‚æ…EN8=gikLz½à•÷™$i1sÌÿ¬TÀ*Ú/¹øp¦ †•'>;¬}o«rê„W†Ò ü ºûOt{*™ð ¡óy‰–ìž«œ¿M*˜Ô2Ù;Ú»¶!·iK[';ÎÐÜ"JÏeݱ|Ntù(óîë ZÀÕ—SóI”Ð,£¯*BXª;æf„TÎñãoÛ:W'P³âº„ad½oîÛµ7”™k5X^3:òŒ°&ž@.«‹Ži5̤þzÙ²—àÔÃ8p´$x’ šƒÿ·×bºÞ/ªñ;æo¢ÑÎ.èwÝϦYbSƒEœÐ$÷Ób «Øš®×è’ªW,^y]¼‹9ºÐà Òd˺2à2+?­å9)ò¶ò‰0SšgM£’ƒ‘ª½´ÇÂBµWDÊxßpiº]Ö:8¡–íÎ5Ñ6-¢CU:ëyÓ`ÜdZa³{ÚB{´‹ßìÞ†e·GV:hº XÞUåÄ©š~0.aQÍÀ»°#ê•jÆÅ»QúEþƒ¯¦ Œ¢¢)P)ð0ž€dŠ.FÅÓ<‹…xEŽDÑ1HµtjgÇéy`*Øáaê]š*@gýj¿«d﵈-+Â3˜U ™K¢£ZgIÉV…ŒI­*¬%û”ÀåÁ äŠO2ëÜŸÞ¤áTbÈR¿+{? ¹N¬=äž¹ÈÝéù´úAÀÖw…¢»ÊAáiî(‚"ê*_=y«Õ´°•UvS£ì1õ±òíÁ„M ~ ÞÖÈ¢aB•ÒÈŒñ%+Xfj€iE“÷XI¾¢$+Ó.´h”ô“'3S-Í-Øx€¬à`¬ÂÝWÓ))IŸ¯]×µb‡ž£]áÄHü˜/s'B°úñ"Á‰°ÏuWôû³EìÓס”ã)¢l úÎ<–]¥â XTº¢¯<“qᾸL¯RÝ*F§%°LŽ¯¢²Œ¶;a†Á´Ì/Oq'@ë#Í¢šsØ¥€ˆ+š§›n‡Y=5]\ ß{§B¬ébñ™x5TIû‰_—/‚ÕeqG}'I~r4ð1ÁN¹úWº´ÊÀÂ}fP˜£CœZ‡ÖRö|øÐãT+³%ëÔg­½YRÞ¦ üÈžö’üi¯æ™&×4¨ÝñQœŒš h"G£6wL…ûîøÙ^¸Q{•Î‰.Æåù*(5ö8 °H‹âÏ1b&)ÔŽªÎÛRˆ_h”ŒÏ“B(‰"²+…<«|*„à³I÷ ÿYLuÃ÷œd¤°+ƒ]6—d ‰ÃDCI‹àÝŽª‡DÐI,Ìžªž(z#M3O†€t@Ñ“1¤˜W(õ *¾‚ÐUq†Úñ‰¢‚SU4n&‚‰lôú¼·Ñ¢¢È. 7ŠBw®)°‰²Ýw–,ÑæN]óý!ÁlçÔª uxé5n_øá5Tä˜-=rx9¼3äðk»¬«·“žIÏ5©|›• ÐœÑúïýTùC](>vï¾¥…ôSO"Ò|ýDéhjÇpÔC—·µ¦Êˆcæmò„¡<}xH ‡`ŸüáË“°/ þ<Øhšô&LÒøÙ‡þ@ ®Laæ\…™èΨÉ­Ö‡¢?à”sÏþL¯Øçv ¹oNÏC ïÒ\°²£? M›ƒvÒ”ãÿ{ÁŸL?§u7þÿ˜™ïg'“õ/á%à‹8÷zZ~G‰ Øó‹I³O°p@0fí_‰Øýð"ð½ÑN¢¼ÉÔz"ëûôkØg{¬ß9·iqMOõìáû!ÿD¡~rƒ*Ý6;¿a’ÊÚ™Š9k?ø3ZêÀGOŒ{j>ãÞ6Ê}Á_¦ú™OÅ4¾‘T¿kBÝø;W3×ýýýšú—ñÆ yæ|t©KkŠT•¸'Ž:Ò“±I?ÓY>9´ý"sëE¡2ÂI6be!Ÿ+³ß¹à!h¥è7mð¿_œÐÞendstream endobj 681 0 obj << /Filter /FlateDecode /Length 5182 >> stream xœí\YÉq~ïOðCC0àj›]ÊûX` ¬Ɇ°‚!z?ìꡇÓÒÛ3̓«ù÷þ"2³*²»šC.`C……ÄdLTq|qdZ©Q¯ýWÿ|s{ñë×É­n.~º Âí…ÏÞŒ1`¼ŸÆÉé4fÔ<|wñ_«;nð¥æ9Wõ7·«½¤y=(cVY¯.ß^”õ*éUôqÌÖ¯.o/Ö—ÿ fLÇm±Å„.¯/¾n×5šœS ÃŽÆ*'‡Çµ“66Æaû–È6'ëÃpXëQ©lÍpOTŸsŒæO—¿çeœ\Æ™Ñß–ùz½qÎŽiø }¦sÖ1 ‡;¬â”Wq¸žgžÖ´œMix#V¦© –~¡Ñʆ4ð 8 ÏÃÍzc­sòÃ軨”K8ͽu<ƒV*ª4l7âØßÞñ‚Ø¿¶{úARZcùçõ´Õš&ë\‘RÝÔ­iñ·£Mˆ&t€êñÓ&›×ó’ÄþÛË‹?â¿Ÿ.Œ2 ‡•W>&€œÎzô3e?QBöa„Þ÷ÓW3¥™ýwS¯ÿíŒqApÚxçW?î~ÿ‘ ÙàW0WçC”gamÐÔÊG7ê˜ÉêÌêòþbØË£Ïìh\6|nÛY·Ú`óÖjC§—œfô.è@œ› Ç ë1dÑsÂƽa#óP3~¾É°V‡M1úѺ'¤)uòcPd£Žç>bÕ:‰‡i-ô³ñЙvú˜Õ£)“jìØ„8úãɬdx+ñZ7*Pð‡V'súQ»l-1FhÔ‚ccØ]:ætcpž„Íœ9¶61Œ.æ“ÕY*ºí4Œ)û¤°t&3âÿoÊŒV“Öø¥õëFa¶Ð¬ƒ|7ž“˜u²b¸ŽaVÎgÜÛDœ(û‰­%¯¥}5SŠÇñØ8's6ò2V¸‹MPŠÂ]þsk¦h;†Ê1J®‰2sYØ>D$Wœ(‚ëhr_3×äžç ß: »jÒ…– V—òè5yà÷ƒQë×ÉÆ vÇÁ‰±Wë l& Ñ¶vE\drÂ¥«£™)W4it’©$OP‘ðZ05JÇeunH®Jé¸EF%wÕ(WfTFrUJÇ•Ü|£t\U6‚KHë Õ¨°>ïµ Go˜=ù‘Zy$Êfv-Àa!D\H®C!kœ©)§ä¯ "vW¢]öX‚1˜L%Ö…°ë­¯Ä0¹öq˜¹= Wû…põÅr1 Ûó0oxŒ a†o¯û§ÇÝê»íãûǧë]ÝéjC_i² X[Bd0Å^ïöàü¸†|rF²±[½~ÿðãú1Ø~¦²Ä¢( ó ‘’ l “ñë­92á™Rb„´Ú‚‚-dæIÅ”ƒËXŸyqŒ˜ØE ³dDì@¸È|åÉf‘ü ’9¦x;bïöˆˆA˜¢8üRÕ̃`EЬw£e¢O °ö,S¶,<"2g£… =3‹EÌ a"wCÊL„”H†Hñ<u?!s0°ÂBxi½ :á(h‹¤Á"¨ñ_cæu5&WÌL$Œ ÿ óx+v¶ä˜'–O@üóD²7̬pŽÄAÞ†y4äŒéÉ›LÄÒN2–)XƒVO$óƒQnIèÌc‘ÚxJØHèÌÓ"V„Ô-ó8Gä# Y(¶ÐâRÌâ¡Z<à™ÇC3(g| L€LÄ$ã( | Ág¦$E°íÉÎÙª-Å‹ƒ’æ‰He°8™9µMðZ…¥<ÉYZô$3g;Aãœdç…€t Bñdæ(°eO*ñdæ™ Ø:q(CY97Î ¯ñdä– „¼X‡lÜ1‹d #ÈÎÙN0›#¯ñ¶ü„RLˆ‚ËJi˜ÇzªQ@! Œ‚ßØF„ÿ`ßvõ'€ÃõŒ N©%4òl4õòÑ&hPÙ%2(zèAUƒ¢r1J`þVÿlÀ€ØS´>ƒ¢œÌJ` ô0°™Ç ”R'*0ø ›ŠA œ&UªÈàI‹Ö h@Ñì«Ë¶¤-£ª,îX±Æ•]£®#aÌØÀ~æ4xE¸ PéUwmÐÇ3àu¶@lß(|:‰ Ñ"v¸c‰ ѹrè ¢ÎÕÎ.Hk‰ äv&\@eZ}¡á´DB¸àÉo¬ÄÕgm¸€`Çx=Á^§,à‹ó6XpÍ6'X°l˜&X2v#1)ø=a9’× W°¥b*LPÇ” o ï+Ø×0A…¡&LP¦zE×o{—á•É PpY¥2oCÇ&â*8Bb#Q%™ªWTpÑ#Ÿ Ál,™åTôhèÎXáÿQM¢þ)2±P›ÿGrX%düÄ &ï¢@€ÏŠZ"@ÂÆŠÃ4H´E/ hYÇPø(< BN£šsä;â§Ü¾KKðjÔnÉ ²Æß–xí«ŸµìbF^'ÓGÖ-;0(­D¤.Õ¦ìÀÀxKÎTQ e*ÐU:F²Õy± 4üÄ{ ±Ä sh ¼Gm.0€á³¼†€w]CxÅ@7ö©ºMuÎ9×ÈÕ@€<¦$ rt™' Ãñ1'È~òúŠj.‰IÃlkܘp Sl0µ*;Á:÷&HÀ—r¨ )PÉ0$Ø0+fÊ R ÎHô[3ÿš$ C42;HT€™$Û¥ɘ &-5 ÷Œ8e ©¦¨îà9 ^U²‚Ów*DD‰ûY ¬â•3]/ãÐÀ ê:Q…ŵßFSr€Cc?Ë¥¹éG\Z¢¼Û…ÒvÒ\E’0"¼þò;PìúçëÿªÌu@²c.Õßï¨1 qæXz´*'•†›'êº"/© ÷ÔV)YêsG Ì×ë Ù\L®ôhUΰ,n)#Ù, û¹é»}ä6nÎÁ—…4¢ˆ2ÊN¤© Ìbê²`²kü@ß;`nvÃ¥—“oË6lç·hf?‰ÞùÕz¥ó=÷©ËzF×õÔŸ¸{®é€â$¹“²A,cJ³›*T*5Ø‘ÃyîÀ“ßá0oç¡\ü´‹¯#ªyöÃ]™ˆÕ léG'8êÅ'èâŠ/‚›ŽûPN‰0áêÙùæ@jnW6â4$B `)ä<Ýclù‰œÈ)Ô»‚¢èŒ‘3Ëk:3üMè4tû+“+äw®Óêõt#ò\>^tƒÖÚèNØ[9ß‘´§¹Çþöáׯ ’.áY–0cCÂU1Aü3–TÙ#©þŒ™1—R™÷T‡Ûy£ôˆ¡ ›þfþjføVòNÇyxX\âi>ÎÃݼÄwLö·íððq¾_¤>ÍÃëy¸›‡¿š‡¯Új庨R÷‹ _ͼßÌC1ÙëÅÕ–'[>ÅG9ôÄëEÞ‡yø㙳‘E ®A©mÒ/ÿ©Sü²¶µ­g†W3õjQƒÏ/ÙËþ%U†Ã<¼yIþÏ‹óþ°žäà›ŠD©6üK›*J¼Ÿ‡wÒ6—¬û‡a«yøõ< ‹ Bfêýâr׋+ÿÃ<ü0ø~Ñ ¯%âêýÕÊä͢ߌ‹®yõ’! ‡}~É…¬…Ë ‡}÷’ŠNí÷ÿ©Šžþ*TÔEÓ#ü<ÅIm½ûˆk¼ÑçÄsXðã—‹¹ ˜ a_¯ÿ‘h¡nô›íãnŠ ‹ÃÍ,Ê+Ëù꛵£&¶üÂÃ2“nLFâ?\ïîiìµ÷È›ðíÆÒ_•>nËSd¤”Fm¯ö»‡º¾¡{˜ZûÐnþ°¦ŒUÓ:-?Óþ(#¤6²Õ9—×4åÅÊVæÈ|“A•‚Àê¨&NÈìyWÈò?Pî4 _3íZ°pNˆz„Òuæ¦Ôž\‡*yo[¦ˆ’[™.í.R´©mW¬ti&™ˆÎÆA<0‡*Ÿ 9M)¼°# —wgeA[ŒgÞùœÿJ¾ùA d}‡rÈi$ëb]‘9?ÓZ‘ò_uYW»VFédŽ*ZÙ¤íÛZ?¥ëã ä wQF<ТÅìÎœïm©;,µ»B«;ªb„:ùÉ–UÎS§Q‡Ç“ ŸVcëÔ¢Î=`PHNq °t ×);Õ¿xº.óŸ|ñ´i»ßL)OÂj«tP‹µU%΃ .uõ4`òº¸ƒ–®ùdÑƹÒçxïïc!ÓUpµ]ÔH¹/¨X:0蟉—zýZ–·l+˜"Bû·´åL7×Lž°¬ òW³„ž¥Tås´›"%t[ú!;)aiõ×e• û¾‰#„*$^qYaà JÀlà´8ã¥xž÷ŽÏkB¿UQˆKòÛ‰¹BŒµwŠ)– Áž«à¯ä¦¤­>—Ô)7Í%>ðŠÊùs–Hù¾ËˆuÊËÆwHx6û/¬Âߟ˜fë@´qñ‚ºáÍTBѾ¯fKܶN‹²Ušu µÚ˜á ¶´FŒ“˜~)Äí8#˜3½ ñ´¥ÂÞ±ŸAù¡¬AÆʽ‰¤Ø¤¶eâœs³.þ°F  gI´àI#ŒZ>>=0äf ÅË>" ¯ W«ûàQ;­Éò1’Þ ‘UÙöVüÓz²þ§å]Ü‘(b)Àò”Ÿœ@,ünûFtÑú®Ñ¢\veº“¸PΦöÙ ¼£wõݱÙfR‘®ï[[Œ¸[«£XMˆò<ãþC¿aвMä“ö?D”(xÆÄݱõ—ö!àC ¬QÏmF2x9~?+AøŠŠ0rÑž|$Í(2 j’Q ÏöØ (4kS~™ÒD¶;"SRû•0ÇB¦ÔÌÇä±)E»ËO—%$ãL‡éR¨·¦áÃ~V—tÚ¶þ2wÙ7!´üääñò‡YwÛãüSÃ.l¨¯§ùhBèM¾)"<’)Ð…´ì ‹f¨€Û#³¦ôDÇnGð¶K0=qÔF,¿ù3K–Ïð¦s<Ào#½>G´ÎqøÝ:Y‚ÂXpÃð31yÎ? ëÞ²:Õd¹Bô„gMòËWÅN(Eû™ÎIJ?Ä–m3ãö$]ªgë}å«Ùøkãæv2*(s8Ìûîò¬ã̾Ý@,Ù’Î2¥úD¨à[Rþ¦¿ZâŒï¼«¨ßëPÃ6…øŠò‘D;V>·ÇõBøI•×î¸-öô‰L¼5äÇrщñäw&ºØ l”úˆ+\¨ˆ¢KKûYOîG,v»|sîû÷ue© ܈Šµ9 Ÿ«BS]&{*pØè² ÀX5Z‹é®DfOG¿Úpr[PW¥ãaÜ~Ãa©§!:>·óPt:dËây½Ôê}Š/1\/®ñ(©K]‘å>è^ˆV’èþ,·ÃNN¶Ôkª§?^y¿8=Ñûfq(+÷‹KÜÍÃå6Îíâd?¬»ñÂÝÁßìà/Ô–ç]nÑ ›¹{I&Ëwf †ò7ëø ¶±ŸçEê²Æo_’ÉûÅí|ÚPNš®fì„02%)ý ÀO’?J–‘K,s–RÌî=CI8¸¢¹G©9/’¯#d¸žkƒ…fêÔŽ¢2Éö•¼L¹ˆÁ)}nÁ]Ù3R*ÎpˆÛç>ÁYªÚ¯!¦þ×éÝúÔbüÅf¹¤ì ÈÓ³ ѺSQ.-²é¼ µ=,}~¦QêënÊ”ŽKÇ’˜W=û4ë9ö¹Ö]¡ãÓÏêUŸiJ”¹Qj^q2æK盈¶¼Ø!©.‘=ÜÈF+·-Kµ¨» Jf{Ü„BêY²zMêX0®…ôÅBûœ†;3×­ ò@ÑèìD͹uá­—+÷Y4­ q9­È@ß”iñi×Ìš.0Îü¦ð¼s· ×ç¬g®K¤;/?|ºi'ÕŸ¨5xÿÊþâ}ui:üa€x|å íµÈ•Þ™‡Q»Ù…ü?®½‡¤W‘¥GUë'¯>÷¤è¡ˆÃ²8fŸ=4)…32JçrVŠƒãDó*ö­â"ðßÜRÖtù4Û¢—‰Æó«ÙMk^Îß×馥J“ ùöoêtM¢¦R:0u·0±Ò*ÊÎöק-øzµGs˜¬L×­-GÃäQ.xTŽƒê?–ø3‚—®oÀ½{núË{60Gè<–<&ž½ë{¦×{¸iÒóÙI§;‹ÙÜä'o›º>ÛþN¢œFwì²piØYÈR‹ ¿Bày3…éûº îÝL¸z¥aãhM–!¸®ñAD“ÀÑ]9Reû¡ìîǺ0Õ±|GxÜ ®f{6R7O¯W€åhýåÇBËH‡é5+ݾ[ôØ(=a:}â„8 Xš5¤_¼ÉD>Ï›ødš•i<§6}7j >Fr”DÁ*¸WÔø |A¾ŒÖ}Çš¶}ðTt©Içç†õ]a ªCÚ3bJ:øKºðù0çf&çž2ÛCmÐ*ÖåkÖþa qÖšt&ÛåëÑÓ¿4Ð,þ4û{¤Þ!*榙³+ ¨»Â­)WJ·úÌJóÐüjÓ}tæÞµwþÇ&¬êD,”t('†C½ ^W_ÛÌ!pñ>Q¨ãÜ5þ‘3!ûsáZ¶¥·Âw»‡ÊgÚâÏ}x«Oõÿxñ?’Å4endstream endobj 682 0 obj << /Filter /FlateDecode /Length 6259 >> stream xœÕ]Ks7’ž3wc~Õku-Þoh#f7½<ø/ÿ~wòïoƒ9]?ü|‚w'6ZÕ{åÛ±Œ }„ QŠ×'ÿ8½‡Š5|)©ÏÓüßùÝéa¿jú(¢<=»:IÊÓ O½õ}Ôöôìî¤SbqöK§ªÖH ðÁÙÅÉ÷ÝÝb)zc®»Ä²ˆÁøîy!ú •ö¾[]aµŽA[×m²"jÕ=b­Ñ{õ?g¡a ƨÞ(; óåbiŒîC÷ßø™ŒQúÐmîa#¬ðÝEé­{Yàp:„‰è }E%…v¡£`‚6vëÅRkÕÇ`»oñ;/„ 0'ì×[m¨)„¡[-Ù´ÿtOýª[Ýâ/‚†ÿ°I}Ân‚ÓƤUÊD=á˜~šµµ4®ÚØzøí°6oË©y½»K­lï„:]jÛè‰>:£ ¡¢ï®‘þ`¢ ‰8#„€ù>bµÐÊèæh¼í®¨µr±Û` Š²jñ*$„‹H5=,ß©êƒHÒÅI÷c欠+Jeo­átÉÚ~ßý+vç„€Š¼ÁŸ›zA_¹^z)â)|í´&}$ÒÁ|ukQB?òö¯kšaQs½ê•ÕrXó?L›O»7 y‡:Ñœ­í5š18°\ ѶúÓ=l”‹CãèlÎñÈ­8gø”øÉkàèŠ[¯ “_æ 25 Kï`óØw¬ã» „òxŸ$)x„ª:¹H}2u«…r(Iªûe¡<ð™ÒUÓÄZJ*Ó­Ö™&øUw[„`³Î3Œ:aE‘G'Œ2Uc  ÷#ÂÂx’$ Œ(&£Oƒ;ÇEî‰÷SjêÃÀëä™=UKÉ¥9Á BÞ ƒ ‹‚ØSÁÇ9‡Hp•w‡S‘f¡Œ3¥àCX‹<4Ìÿ~:xVCð¬…ÑŽ dH–Da‰Oü´º¥Á\4iQaB°ý›ÅVpÅ@JÒ÷¶ßh>½ § À¸Ìcº_Q ‚ŒXZÐü@¤aCn·ÖBz —µòwƹ;`ZN@Û)~'iˆû0TE!*g–w Dñ $í”6]H®÷j‘/cøÄõªTÏ륓 ºŽõ²ÚŲ^¹#ýt$¤“N{ÃÙ˜4+Öä;›¤ÆÓÍt¿¦ßØ@P颒&œ#9)#Š6µ 69†%mjìÖ5VRk/=›ÒÂ*Ø…½»%0DŒõe²¨ŒÔ%œPV?ÚŒ!¤uMx™F …„ÀxªVlU3=‘ÔŽ–†Ð~ˆóýDá‚#dį €ïª¶:†Î~­ š²ì¤0$ ˆCÅÖ-®×¾1®¶ U§  °Ä¡’iÊÝÆûXÕÍÙ…GWA+R DŸ«4™‘Áz[Õrf{<Ǿl‰ÏÙèÜ\eÛ8@?°ðù¢žBÙÜÑ8Èv8°®Cà×ÒðWZ¹J+h¦F+†ÏætÔµ·`û0Þ¿a4gùÔ&8휦û¡köÐÓÂD-«>zÖâUš©ó’0Ñ»^y°¾ŒkƒÙ³óëzo•×§Õ7_ÔŽ˜°ý€ß—p¹›p`§ mõÍë©G31Æ—5+íÄŒùCÚ¨hŬQn¥Ûk”ƒ+Wiy3ŸÔNpµYL‚`X}0_ÊÐŒ†Ó¨”ïE»^;­?³÷bÅGªgÄ«D|ºöT8p$ L9.˜sx˜ç¾ vnc˜ñU˜ÒQŒ”æ@ÓÄUQõƒûL® vÀž ¶D#jâ©P5x•§RÆMêO",^K‚Ãb"°^ãˆ4éPû8O‹Ê–ß>»èÖéCØÚ©ÚL0¼­5ÑOÙÖšCk²L$ò•qIôígö_4`¤E¶©ý© ö<ž$zˆ"–,KÓCÏŽ:Ìph‚SW}óE-ãþJ‡É±ÿ“ÈV»ÉFè×*yäI&H6wöõ±( 'Ä—€K.¬ÈÝâƒ/¤œú§&!¾ß«" ñ‹­õ™ÖÉ”3¨ãX"Y†ˆˆ;O¯9œ:ð±o´ý·_È9(J‡SjìÖáT ¸WÅ{ÙvŠ,è=qŠÊð4J¬NuæQŸïåR¡1ääÄWË Ø‚‰ „Ýr€ d?Kg§4I'gI#`¸QGkQQÖ„|¨½&}lôÃ\"°Ö ÅaIšAX³Ã½™l¥ó–Äà~:ô"t„ëÞlÔ¡Æs…L.kõF[ þxœ1-@8¬FM.çnÓŒf¼ÎJH¨)¨úns•ÊÐÁ›E ¸µ’=š  }3o³‡>PÉ5p¹H5|DXW.tð%„oËÍ“%q1cSÌR…g NêéšSsG“’ÚãÙípV-ìI¼êSˆ YpQ@=éÓ%ˆw¯´ŸxAƒáÉL>ÏÊtëä¤[ Å&L¢k!oÀþ.6°nÈM*Jœ zÐD€ðÞ5WÓZè ¨Òï¶WÓ²Õ ½‹DÓj†(òÅÔ·ÙT󦩩Ð@#UÇ¿yòÈ™3‡‰€ø°u¥¼¼5iEÕ7@ŒÍ >@\ˆÝÕ(á͹˜ìãq¹Ø,Ô«=|«4|Zæó€Í*ÌÜvÁ¶˜Æ@sg¯Ÿ°\FfŒ. Aw)ÌáJc½¾,¿8À»›: [À“b5²ïl“ËÔ ž!>ŠÇ¬‘Œ"Me74ÅSHDV,;Ý:E¬ò%ê¤Õ‚Éîm*˜OßF‹ÔTÇÐãH‰.¼…»h6Ø:Oåä\è^º‰)q_lÄ ¼%à9®¸WUÛl’Õ¤œ¨\æ¹aæöö2„¢ƒ¥áÆ ¿gNt©(Tåà]¦Ku˜yö5I¯«>RyüE¥FN‰U›aöÈe9°Ü|Ðò¾øæs7O‰kŠ|ˆeKì[<ü4]#Ò†§é€€ÐÈÖ¸w£ÐqBo ÷ÞW22ª†~‚ œppÊ¢ŸɃߘvöד³û¾û†Ø˜›î~õ²¤­ÀP1h’›H§&oÈŠ*éÇE[JuÏ/÷kú¤[]¼yz¾»¼^´0HÙàY ÃÎG7èhãïÛ,õÛb Ù@NÅl‹·Dµé?Þg#²g¦hj ˜¤æî$¸dB³—ðOi@Œ(™ Šæ.ž/KÄ\°‰¹f}6hžË7 ˯ã ÇCê§5½øÈÕoèzGKð8“cJŠ·ÁÛõuÞ#¼½(Vú{ÚòÖÎÜ$Óòá­´™`-]TØVÊh«&cH*]x"N`k î†./95€{–ègNÄ~c'f£\'»/“WÛ}dë´õA¸R†9nH•Å cÖ [ü›> B×ØYkTê»öÁ™k˜ãïQõrNfìûs)2Ž{ÞÇŒ“¯›L}¼°ì€‡Ë}Ì÷ÈÛ¶pé#…åÿ3S3´…‹Dæoß«!HZž½G¾JuËt–§†|‡‰B¤âS)2VaªqÍciðv˜2¦`ªï¥ ¦L ¾iöû<­ý½¶éKZãQ<“ú®,ÙW¥˜¥’ÊlÆLÒ˜]KƒbV-TiáJ±çªm,ŠRÔ¥hJ‘ÒerËRüeŸø¼ÞÇ£¢Ydpªü–l£×1ÆCŶ&ß4Û>µmˆóéwSæºjË7kÛLËØ“»! ¹k¡Jõ«&Œ°Z3JçÛa·þ¼‹Ù©È`C6¹š±'ãÉJ\ƒœä°iöÍi²¢o²*ó«>]\Ž‘WŠ–7Ø–æólš[Ñv2öÂö ÿ¬%#¬mf£Ð=ËÊ&Û0ŸÕ¥H±â˜Å;£ĄÚÎîŒÑöBñ ÝÛö¼(Û›RdFßm)¾;â³þYºu‘û0_öž#âXdÅÀèoÛR ãã ã1”ˆM”Pé{¼›o÷À$‰‰OàÅ¥´^Î÷À°­AÄ>ló3FŽ+=,Ë·­xWŠ¶™é®Ë„d³‡¶ÅÏFó-“âªì*³ùϧ۾CKqÕT™V­"ë‚qN†ÿºò¾/š½Ý¨:çP(—Í}i³Ã=ÆvßÖëf¬_3Ýúäøf¿Œ—åÒÀ:«D«Å‰m>bÃlþÄ<Úƒ}FŸVO…lÚ—m§êìæ~ë[•:Þd*èC³vË]8ì §2ÍF4ß«´^{8ó2Qu;±³:ëhu¶;C³Xuv8v†Æñ/ã±ÈqÃVm[à<0l> ®ÎO“¾+ÅÛ)RbÊÕ^xÍ=ª@cÏb·õÛ.ÛD+µoç\³ §­»Ñ›¢¹a?ª3V´¼³fD¾Øÿ`„ÄT½œžïÕx¨‹¡ëÂtÇV‡ùæ^† ¾hÃ×:„³èj.k)¼]†¶‚2I9ïYb¸[jb‚©Q¶ö«%U²×96ÌJý˜Ä©ê>8éÙ­fÞ—¬ˆŒñ¾NÉ*áÆûH»>tÿÓVó:³%ôÞ`Õ\.ã”y%F¼Õ‘² …ÚŒ¨¬-ù=8Uc)g%¦‡7ðÁ•™Øƒ5ÅÀVI[Õ'd„|yö#îÑs)Ž'ïµóëL–1´ªq µ °SÂï~rƒxs¢–_FYåÇEdKx$«a*l.Œ3wrº‘ÚM9I‚uHœžCïRŠ*m¦µ9ÍD`Tóiœ6“ N›É>€ÓªäLΉӠ']Lj²èÓ‘Ó,ã´áAŠŒ£Ýq1(£f5ö’ŒV#È'îR²(ýò)…wbd  Nàìh;µ Ðzj]ðØÂQˆ.RkGèý"¿Î‡÷š@ZaKš´T9*?éû´d¶¹!zÔ˜ÛF,CbÄÌËD;–½•ÔûŽuQž/kG|‘HàRHYE¤ÑEPïJ[°mš†dŒiôӠűÌsGxL‹Óœ_ºØ'…E^¦Vá–9¤mç ¤AYXƒ`àÑ~O‰vŒ#l-«^“˜Äiæ=åqù÷Eff’¥)»Ã6Š5žDÄW8²¦_;rçÙHÁ4ž!fÑZnfÿ‘ „ŽÜ>JllµóC «¶\hl[¥,Åmð¹‚îO“Í1ö³IÍ`¥{Xž7{ǽNî€n]a„*bŒÝöT×:ccv0†MMß;ãFó‚ñÔ“S,EÉÎÇJCC§1,V4±½Íu›šxzfÈü£ðË,H·œ!¨­=úÀ0™ `D1Ë•8*åŸTU^ KO Ú†ƬèW¶);0äç<2/{9xd‡¦ŠTG¥:|›Dºq2ÍÄ|séÕ‘ ‚˜o^"h>&mqGÆ_@ád)Z”89T± [«­¼Àˆ,/wªæ[ð!ŽÈlDOGE«jr>P'ˆÌ)-JÖyJè‘Ü|ÓÓ@">½AØ•iä¦ëuÉS¸á8 rÓÈýà£-±iæ9§™PrIýÐ)­yãÕ¨ž¾36„Ùˆrä^l¿¤úÃãgL¢½y~߇±g[íöŠ³ó56<ñŽ½iÒL¨ÈAgi&µ®e†l'§úí×S(·jƤ{­‹goÊÞª1ªàï\Y†Dæ^pâb- A¥Œ1[Ù¤¥¬Ü 6½  ¼ #蛑7˜!¾â*ˆr#š¼[OŸ õoVÌ>N,ˆ ž,K`ÊbøүƼœQ¾/ì6cò3ÞÞzYxd4…ö@6˜ñ «D«ÔX؉¬ȳµµé½)sÁK°ññÍœP å€:Øͬ©\çWf8[Ñœšgç“)økíÇE,Þ؉ÿ‰OÌ<ùAê&·ÎãËêÉ„— ZyžÎ8âCk¬ÚoüptæY)뉯¾ÔÎÀzN•VÞi÷ðnÊ™’¿°•B¯´L²W±1°I·®lò´›\gÊ}¬©¿†·ý/RvDÛÁ>¦Úàs*=÷‡T xEq ƒúfœTy|#뎩F¶Ú‘Ûâk¢lb×ø8m¥×HÕn;öI€pôJß×å˜b [xVöL&(ëv˜šž1¥7/Eí­¯GMïÄZIùáóiQ@)zûg£}²³éȳÎΚ~š€ÝCdj«åB²W(y ×EJ^]I$es5åá<àvHó6c?øúÄ·(ÅÑ$šcœ:Xív¥œs]ߌ6Bó‰â<}¼ØºÈ©Ø¦wjt=*(^¥Æ1b¬Ã ™Ã:TÀÎe4i ‹MUÖO gñ3¦q?L9>ÓÉïÀf^â¹£‡ ã$+6õM/mÍ=D5}’XàÑ—IÇ? :dï´ÿ4ʲ°´Z!뻺9UŸðBzëd:R…þüF4ú»û.  ^§™àËl“¿d@AvÆŘ{hsì!Š²-'Š=;9µòÓ"îz7A$æçÇ{Ü/Lî:ý­Mí½ÐôŒöã´$FW ¯ |È‹ýÀô°Åp‰ç ­<ƒPiÒB åØ°£ýìœ"âÓó<žža™‘–J³¦“Jgl˜; ggåù%ña.‡Øõìa–ÊFa«#‡Ï(=Ð àŒÍüyö¤s ÖmŸŠNÆ¿<–J)?q©´«¼ùŸêUšúÖ£ém9‡Î¬‡ûÔjþÚ7>ØsÚsŽÄ,ôpß~ø;9;Þ¡wrêÛÉék)ikØ íûâÉdh•¤Fo€W'(N2_{ùÕ›¯9brŽP¹Ëñ*” š—㵦À])®¾:;ùŽþýqÁ[vendstream endobj 683 0 obj << /Filter /FlateDecode /Length 162 >> stream xœ]O1ƒ0 ÜóŠü €T‘±Ð…¡UÕöÁqPœ(„¡¿/ ¡C‡³t¾;ù,†ñ:’\<‚ƒFn,逫Û Ÿp¶Äê†k ±°£i[ÈþSIÑTâ¼Éa )榹I*` ÏxçSŠï`_LrS†endstream endobj 684 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 6423 >> stream xœ•YtWÖ!4 %ô ÈŒÁBï5@B ½:Ø€ÁÆE.r‘,Y²,Yå©Y–,Kr‘‹ÜÀSl²„‚„€²!¤,„„tò&ç‘sþ' ²›ý÷ì±}Àž§ûnùîw¿+ñˆöí×qî²5K×®76ðË®?ÐŽ{‘Ÿƒ$Ü¿/€.|Ð¥½oÀ@OnzØÔ nïNðy¼t‰n®(M’‘¸'AýòÎaÑã¦M›22züرӢg§Äg$îŒK^'NˆO‰ã_’£×ˆv&Æ‹%Ñ/ÏH‹Ó¦“““3:.%s´(cϬa#£sÅ Ñ«ã3ã3²ãwE/¥Š£—Ç¥ÄG?óoô³ÿÌ¥¤e‰ã3¢—‰vÅg¤±pvêÑƹióÒçg,Èg-ÊΉËݱT²s™t×òøÝ{V'®Y›´.ù”Í#Fn5zÌؼq²ñò ù'Mž2uдé/ ž1sÖËÆÄ bC¬$¦/«ˆÁÄjb±†J¬%ÖoÉõÄb±‘˜KŒ"6óˆÑÄfb>1†X@¼N,$ˆÅÄDb±”˜L,#¦ˉDâbÑ•èFt'z[ˆžÄV¢±èMl'h¢Ñ—ˆ"„ŸèGô'I¼H0Kt$:‰E¸HD{BÂðļ7ÛjWÅÌ—ðmokÿ‹@A -tØÑá4O}Ñqgǯ:Íèt¶s¿Îg»ŒìÒòÂàT/üÚõX·EÝþè×£WmOaOÐóF¯É½~î=©·½÷5º7=ÞDÛè;}6ôiéóUßÍ}EeDÝξÕïµ~uý{õOïÿh@Ì€G/ª_¼Êtg62u̬‘«îÊUÿ/~î…*7Žû”ÖûtÎx@©H)Èù{Ñî'¾¨LR–öŠ@û˜tÕƒ}™@ÄýE'‘¶A6)KI©õÀ…»}`C&HfQ?®í:è9VRO“H$FERF!!¼^õó¸Ñ×ø\{?½=pCRª›€£HO¾"ÈÙ]ä~¸ÍvÄX *…··ì{}ýölÑn˜L6`¥'˜9»C®µ’Ð%Á¦Kã#-ÕÁ Ňœõµ§ÏžðêxInªÚoа!_²ýpvgÅ5>œÄAú¹Ñjrú¹ )¨†„ÝÿñÛçþo/v³ßؼE}°éÊË b—Ó°y×¾"gã–¹CØÁäft„>³ðEòkëTÙÒµ‹Ç®Óøám?ï~l¾ÊçÌÐNÃö³nŒB=PÔ±ˆúdáW°ì ;Ã)ÐVzávÿÍß>»{çƒ7×Î5+f\ÈgNŽÞÇ¢}¤»']òÙ˜gŽºÙyˆ¿,=®0Wh õ^ƒ=í«(ˆj¨}~Ržö4¤rò;t!-¤’yÏê ;‡*8šC6Ã%|§ÒÏ•øyŸã’}Ìݦ£ ˜(w+GZT¨T3E¥T«NÜ[¾Ph4ˆ–£õˆ¹HΠ/`7¿SãIU屆MCüÒd@MÞpï'8‡:¶k½œcbƬýÞÒbŸ…Á7¢ ?BÊ6\š9§éêŒæÔ €‚/À.°#Û¿vsìê­é¹élpíú3&\_ÚìF`¡js­²$½|»šQxÍř캢ŽüÛ¯>ºq樻‚M@{o„»¾êÊ4X,‰fâÀ–m:sûñ×÷¾ú¨òµEª…9›¶dåÚ…€ Á=Ë·ûyp/l¥aÒP¤“€"*ë-k°–Uš™òŸLìŒIh×U&%ëå±jõ![àvÔ‘º,õ. ¥2+‹ÜM¦² 㼆]7ãÓÁŽ|Ò1œñº`‚ âXò 0ZígLeÎ6PL‘¢—e1ÊùTù”.aצøéɺp •n imö<2;«ïòÙc`ÜÙ¨uÊWéõŸ #.•ËY“ËRóŒ!P»ðõ=½`oà›S` û“Ú *µØšLÿGSi0ü€{IzéÎ"õ'À½hú¯á÷#°!~|>Æ„»j+ùœ `?Ì÷ó¹…Üd:¾ú ÃEŸ7sôûyßå±ÇÕï€XJ^AC¶n,½®d´^½;¤}¡ê }¾bPSR§¢¢Â\¼¿Šys×àÅ òê¡ïNΩO©b“ªEÖ™ÎöÕv°ªi8ÉÏŒÉ2#c(Rí:šÉY|ÐRWr ˜)‡ºB,ÖÈÔ:&äÜUÿÏU<øn½CIÃá*  ¤ëÓ”¤èód:&oŒ`l8þOÉ]H©“âì*„Ó/‹.ÿ|ýÃk”fh2´ŒüµyÚ|@-ûÝÅÀd.gŸ]Ƀ$n ×ãYKü;Óg#Z6R“'Û³e×b@-Ö{Ëm%oZ|¬µÁÒ`mpÞˆÂñœüËWî@Æ GJá°ACËñâÆcŒ9µxu3’Âm/Ä áC‡Ãÿ9Xa$ˆ(qk8G/¬h½ð1¶¢Äùk u*P°¨cx¦Öh ºµÞì {:²é#ϣŠ• «@ð4SÏ Ã¨wøœ'`¼æ)°Pç0µŸ"‡¢·¿¨LuSuÃ`O‰@[¼x#Dá¿;Œe ìÀߺĀCà]ýAê\x¢`kA?ꀗ5‰ «ŒbÓRð:XJaÔu{€ÇÅ8ç!m?@¥$(9ŽWlo ZTg ªêÿ~Þ-\ÖTxžöÉ MC|03Í+÷–´ZÎ0ÕÖP¨_-+eZ}ŽAËÎ×!{@é%g×<|ë¢Ów„©HÛ_tPõ¡&Wæk»úZ“¨ËÛ““ž¿£0Pë÷Ô|v={˜ÙçtÂíÄ:Azž5¢BÜâ•ìØ!+4ÕüEÞ’_£—Ñ4I°-\-H…’“rØÇ°Û5ÔMý¬ø <Ëg÷Cà$A(úýPðt„•qç°6áfûwpN}¢Õåapj…zq{ÁióŸÞ[èþÿ4À` FòÅ€÷O<9”Á6¼ƒ”‹žþëüg¦Æ¨Õ¤èåé!¦VGX.ìÉ%ûy÷ø‘ðæ·cØt5‰:£Â”eºZ`Ò4×A hüë“>òSÍJœƒhc§¨ä;–îÖK V›Õì”[U•*MTnÝÑ(:zçÒï40Ïôñ5hý'ŸË…<Ú¥redi5y*F›µ PÓ7_¼Övö€Œ³ è¬Ñ`Ô% G=Í¥G®Ž›Ñ¢‰hä —¯Ã9ž}èeÂÝÏ)h{Eq™µŒ2’3Ÿ¤ ¤áî¿ó ÙìN.(wþ† |–‹¦ Qâ-©«ä ”Ô½ K´6U¥äjÅ3V³ÔÿµÙ9‘ÀHš“KK6;_-N´¤ï5g7àqSÜÍTßeA;ŽPGÕæ€<="SA¡V“lP©6âÙžÚŠ›L%ì aO(ô®¢ 0ä 3«›áx¸Ö&»uŸ¥¦äfÍŸä\k}!Ыc)TCFùî㊎ÿšžÓФ¼ÊÝ+€kÚ.¨ŠAíoÍypú„·ùk(2耊 „Êü‰rÑF ½jÛé ï«~v³òõlmQJáfV>mþëÏ„K°$UƦ»*r®ÊiÕûeæ4 œù0çû8<ŒsÉp©8Ó?<)²fX‡ÐFâÌ뾧ü5à"ìíçÝ»›qì±p Ýäÿ€F¶ÌCQ¨hQHðå (€}.ßó!¨+’°é;6çÆjÙ¬Cß³eéÚ¶¶ó7õLÍT½Aýœ °àÁ«Û3bÄv$-^£ÃRU| ¡õ#`Žm@¹›œÏÍÒÛw*”,Vgʼ1TL8ûß× ˆ¤Àº°ÉÁ¾•\„³ß}ç"Üz‘ç:äÔ^àÃ?]ˆw´B¥Ì½e•&3ëQ6ÉŽêû{_>¬ÕT«*Øwµ¹ÌhÍð:åõ–×—+ZV‹ãŠR¶°éÞD{ O?f'Ù¤esÅò½X£h@¦[Õ•=áoWËÛúö’qá;ôÇÇZ®‚w¨ëkn"ƒý?pŒ\¹rƒj³×™»äGŽ-MQ†¡U.*O½úfÖáëŸÕb~PËd µˆ1TÛ²ñÊ®¶Ô;­–:ÖRk­eT/¨ÖܽŸB‚z^Ðâ òó– qëV/özw¼°Ä;ûŸÊ]¦ks«EÉbQFº7Û×XW×È QOL4ê‘3a8 %ÿo†rR¿hPĺEÏwFØë Ô^ás­Þs5Š" @/íh]kß……o‡‘‡¯¯Ue³ i>ÍǹïåERTïñÔòs'ä .à;·É lL`QRÉ€¬Ñª2Ðx  Šà*‹ýp%slÏå[xhÒ_@â«÷ä—±iõ¹–˜º\k²McJvfÖCÔ…÷Ï߆ãÄÔ<ÝRgsT[˜‘}}ÿ«ÜïOfâ¶ÑìQ¾Ô•ºÐQ³¯QXXï7¹),õšˆufvXNn}¾ôÀÎ8Qwa §|ÁÑ0ÐèðŒÜG¢hÄ»ð›È´/—çDð®Èåptärhrš«KN=ø0ê!ùÆ ì®jÚÓºés•ÏƉ8²d¥>‘ûÝjô|Ê‚¹‹pãŽã–›ÉÉ^€ÿß Ë& Q»› ¾€üûøΑ÷þÿÒÎh|¸Ÿa÷ÞîÇ;Z¢{ÀóB/ׂíÜö†½x)dÅ|,ê‹®(Ó¶ Žêl!–Àµ ^ý¹~U©ÜŸŸ~óI…yw9hÂj|´l_ÄÐÝzŽU~:#óùz4 "ÖڌɥÄWóþ±–€r¸ {T&ü8äüÕùÒ›e7œ7mÇ@1ðPx´¼¶fÇN¥ŠQI*Í ± M¬­Ï l†Oß‹ª l€è³ÃŒrï¿_}Ÿêÿ=û>ð÷h86¢J @6%#ê%QX…0êƒ3.ŒÈð@†ïxáÌ68«Šw[ˇßÂZ%À ÕfY ­˜#MÂryEvJQjžÉ@#h(©H €“…ÈL4‹ Ð ¥.‰·ÉÚè0ßôa½°ìÁƒ»á >Üo¤EË7Ë¥!Wr(EiŽ÷MØþãŸNŠZ·Å¦ïIÚãËn.1£™ G7æ÷hÚXl´bž haÔ‡ˆ÷GŒ@шqkÛx¿qcù\2Ž,Öõ°ï„ìɇ÷®ÒMâú„ÄÄ”ø”ê´ƒ--M‡ƒžxWñþÆÕð¹÷~ïF[mpP•yžÜ\µ¢@Í×Èõ¦!½ò£øk5ŠCQWþ_„ýáZ¸Anô%½h×g?Ã¥?Ãè/oš4 – Uþ-ð̓rÜÆý¹‹´¥Æv²&ªÔglÆyÉ>$c´ŒMCÓuÙªhN¨Ê0$‹j n×/ú-ùt]>«IP­rj4좸ìÁ0¨5LŠq´6g›Éå85£ì—Ö§•_n.yÓäz*Õºúªâq#Œª„KåΖª•-#ËØ:{®FfÈÖƒJY,õj­¨nb<™,ÑíæðÂ6™|žR(‚+ùÜ°ßûÑF»Ñ„íršR”‚1†È?æè•@‹÷‰K@T‰ñ)µèCè>t¶ñ¹Îp; ©ÏÞ¹ >§¾yõoƒf öË3ª¤ÕõÞš:‡Æ©µ25GϾ ¨>Hzm(ê8YŠ±_Þ)‹ \ê‹d9¨Åµ&Gñ!P|ãNž¶`7äŸÒÿq0ý˜ÖÊñÞg§ Že ó0E †b¦ÉðÐbèuyéh\hŠhÀÞòôzÉŠÔ‚Xm–^%Ÿ¤—êäz™N¦Þ¡Ù†é)ež2{᩼aª>;×\|Àþ÷jÈDáˆO—͔¥ÆÜØi”åǘN™L%ÀÄ¡Mïs_¹[±rºߦ¿Þ¿zë‚Ù³†J'˜ÞÎ`-f—ÔP¾wÖf°¡`ÄãÝßÀè_ÿð–èìŠ}Ì×o—|Ô…uWQG4bݼ ÍêÒšÚÊFg‘ ™ƒ-mF7 .MÛ•šŸÊîNKÑ'êWjå\æ`ΰœváÁ9ð Ÿkæ>¢Ëò+%EZµŠ‘)v$‰A!ÐØ y•ÒÊD°ìÎP&e‰e@BÉË$Žâb³…q•ž!¢ ò‹ä ï)áR‚Á¢)ózØIJ+£ä*ôƒe„F%löÃI~Þ­¯`-N«) t:ÞKf…A“‹ÊBåÕR2»¼Æc6ÛíÌ©Ó—¬M€jk^·vĨ9cã6zNÈY‡ÍáÁƒ B^“º¬/˜pwÃ×°ìñ#ìýpñ혴íÚ¬Í!®€‡.Ái˜.>„ÕøæÅðú ìõëƒo€x n…¦H¥bJì–ÔWûÊN^ܸoŒáŸ:4ìöÂoaØý[8èÖš‡ˆZ±.3%žù¤E ÕžÝ(«V¶^9L'þ·ùÄ«õxëU@}Q3ow̸¹3‚òr‡‚[ò)Z«:~ê7—"¯œYå O“¥ÖcfZáÆ_à8 öqØËݳÉl)Á\bæOHµG‚ ‘ty:‰^¡Þ‰—À†rUƒS¦§Qšüp«Ÿw½ žÅ­ ïÒUß< nQ·æ_AíP¿aÃ_™þh¯MÏÌÈž°Œ¢Æþcl_ú ¶xvÏ;3|Ìì&zÙêýçηýôöñíÛWÎ]7OÏËôì5'Þ»ùñÕ÷®Ú4ç•Ág oŘf¶AÁ{PÀ‡ïs~Úh6Ù•*ϯM‰ÕÆ) LÚ¤— ô ­¹ÎìñX(†±ÿýT(˜i— Îìr ú0­„Õô.4`ØÔ‰8 {A®Ën·:±z÷Ê«DYéÊ-ó®f_Cát8ºaÌüëÃð:MACf©¿ý½üÐ )¡'fÝ8Û}ûÁÇßÔÍ Õ+ ZV¹¡(Éü ¯†ög¼{-Âs‹ëËuú÷™µ]øƒÌ‘S]ôã”D½óßçs}¸·é·5MYÅñrUaQ’2qãiÓ[m[Îq0ÖFs0~šNš®eôJ]®A¿ ùzÔ!gî+`Xqd$rw!yÔD¸ˆyÑb4™M®2‹ #×åÉÞVÉÆ¿·é®Š)aŨ¥$Ne…ÏRe72–*“Ã\Û•~ý%x>Y~aŠ‹Zá¢×ØãñTz÷ý“—J)j¤÷i.ˆÁ2°rõºyò@üS/ÁA— îŒ¹Äƒ=Ï}p΃øÜA<žK\À†}Œ’ìB™gá¯ÊqItÁñì)-uÚø+Œ¦ý)Çb×­Ÿ5iþ½‡.œ¾û 3p]¨ªðÝÂã²$)×%m“°ã9Ž¾”r4nÕ¦éS´$¾púÓO™ƒiUaeÝ»-ÇÜeÖTÙI[%ÀórÛ1U5py´£ØåÀV-)“j õê|=Aq¹Jµ )SYµð Šr>Ÿ *Ê]U6µ•EÎÐ'tp}Û§m¼¸T>g‚?Ð¥-X¼ÄtÛ÷d^@¼4Æê'h$í ÈšäÀD*ñ“ÃøIØ—XCW–ÚJ Tä;ŠÌè Œ’9”XRy¹ ±ÄYh+b¡SÉm´´@#/aVE~y‰Ýl-  fš÷÷LŒ˜Tܯ¯­£«°Xa|;¶ÃËüF¸¦À>Å» ¸(g¡'k'*C¯¢#qÖ &0 ;/¬hT]qU 6õ565ŠëBƒãš/Wý3­u…_¨ MN¡¼DãT±?ͪDíÀ<ðŠmD©¨¯F‹©ONZs|‡pçÌ„ÇnÝ÷rýªx¿pÓoY´³¸ÂŽç]•¼D®Òé5Ju^\»&° Ë \’‚Œ¢„"F‚º|/ß^„a–4G"/V—©ÙïW¢Î«©d UÖ܇ ƒ˜Ý®f!J'Ç<_$”–¸Kkl VÆhµ1ÚíW¢¾]‚ë¬xŸ(¯ªð¨ŠUVvèEAWe)7×_-UzH$±uðwºÖ™éÔ^"êÒ‘ þ·–œendstream endobj 685 0 obj << /Filter /FlateDecode /Length 5050 >> stream xœÕ\_o¹‘îQ¸!Á¡çâéãß&i\Ø]lî.H€;G—}Øäa<’eÙ#W²ìø>}ªH6YäTk$ï®±\â°ÉbÕ¯ŠUìbÿp*Fy*ð_þ{}òo/¼9½¼;ùá®Ol°jtлB{#ý ATòõÉw§7Ðp OÊ8æiþo{}úõŽk¡e "ÈÓ³W'iByê婳n Úžž]Ÿ R¬ÎÞ@g9©¦·=&CÎû˜Å+Üp^GîW8ö~Ø’™‘#&S_©¤Ð“â°@†ËÕZk5o‡?âsNãaM8®³ÚĤNøa³&Ëþê&Nü«a³Ã¼¦ÿ´*¬Þá0~ÒÆ$)e¦îpN uLˆfj4ª‡_gÙ¼¨S¦î­v×ZÙqêt­íèa¤øÐ×Þp:«BdE*¬÷*²¯…2 ^“ÓÎÏìãldßø+K7X†×M_üÝ€ÄH‡[—˜&ºd”›¶–1ÁòÕ#h5™‡ºÆÆ)(9¼\­‘”N6¼¤Q•nŸÁX¬UÊa‡ʃډþ^¸ì ?j;¢¥¿¬y¯¼0ºü¦~žø·Þ ïX,¾$­;œÇ;>•Eëæ=™’ôÈÇy&!^ÊJ(Ý@jƒËQ VÐ&áµY|Á|QДU[arDT“óMã Ä—û7S˜ÑwÑØXê+LŒ®e à…TEs^ÖÛ ¬ý´`'몊¨P¬‘É;iᤒH¥œ´3½D©µ­çõ­¥­ *-s“`gù>2< ჌kö ¤¥06Ž ƒÆ@ò‰ÈŽ3@—aÿ*ÑÖ›Ö¢5 -U˜1äDª‘æyPúòVÖ‚J4`h›Ý,·QZr B©‰ªõ‰°ø?ƒ6”ådÛJIX¾5°4í†7D³Ñ;ÁÞ]ðçwIÂf曬¤;ÅG7xK—Ý^œ£`ìš}Z뾎…JrÀ]x~`”Á§’½˜QÚi¶bûû»N´JoLZŠnó]†„W‹½“ pÓ½"{χäB]EE -ƒÀPURí]®«õdËH+I–á}¶ ªýÈp# É=nFƒh[ãÆ$œ›æÍÓ½JËÑ)7²¬pdàD!÷•L©ßñ`^mË 6J`§Wj–™ü¦’•¼ä'Wq“̓€6•¢ê¶×î  ~ò¬ãÌijD÷LÛÕß?EÀ6láÁu{6£? qJDà€s½Bt+'=mM“€y¨¼é-û¹ãÀ:£ÖÞA$ƒþ95 »¼-aQ#€}ôŸ:8úXë~—W[#ukÝÔ×ë¸(z>@6šäf[Ð;¾¼[:> æ®r|ÈV ²¥;^r{“€]áMrÆ» êËr”Ѐ0’Ô¡FC5Bç]·…%ëKÛ: 3¶¼œ'ÞF¨OÆÌÖÉ}%—­Põ™æçU;ýOaS‘‡ìo² ÐÙþtÈ–ä'«g‘ÇÎIäVJ-; dâ0ß´&X€9®Ö“w êá¿cR3Ãàñ0lΩÔLvà@ß]HSž#xÀÖL 7/S\£„Ì`õ7ž¸e…)´¸MáÄéƒXÿáÆÚ›}u!ò›‡Ã€Ç Šƒ" ßsgx’XíËOñ) ‹œÑŒmŸ p`;È4ß‘Ik:ùžyC^ÊéÖ:€Ç‘6™¨MõYVÎÃ.“sÚÙ» ¥ð€+iÆk1Ò’ãxݶv‘c'Iìâá²5:u“ž´G8øÔ0§qJÇ«MÅAÊ>šž?: µÀþp8¹£[Ìõb8½‰%¦VOŽÎM}ëMjž€Ñ—5í)sS ÿ­Žû. H{¸Ã磃aSü^uœ§õO²;·È€èLšKúR€ŒTY›'rõƒÊ±Šª•0á)!Ï?=|’—ȹ³ªç•ôdòe5Æ]/ýÉøV ÏÒ^Úáòªx°ÐÙ™p^ fê³kÿÔr¼v0¹…ÀSc”&£gäÈöë"¨ß€Šqô²ë°.~’²âàßžüŸ~<§ÿyÀó£:màÓ§×'´ Þ¸´ìNþôÄpˆqDÈ‹¥™ð¹ÇS „8 /ÆÌé5Ýï#ï[G¾¬3~ÔÀpiAc¸‹• ÇAÎ…–町Bø6Gî‘ÜW2íI à[Ga*S¥áó™ÒFBP³ÌÔM%/*yI˜r“š,LÍ „©YÿÎLs—†ÏÓ¾=µF±>1ݽnˆ›˜îòÏâö»ÖZ¥CÐ6Cµž÷c”NYÝ~ŽÒ S ~ŒÒ˜z¼Ò+S- ¨Ò­À÷CTë¹åéj‡Œ×*ð+à·"Ïyûw*U„0Nâ}äwå&lJ'Ä1&ÀÇ,x^ò’ê"µB¢òšàc»Žco<yWwTvçÿ°* ¥aò=›Îuç3ƒÌÅ8šñò ©fwÄœ–ײ‘¨µg¹û¸J¨¸Ä"ò´¡1È}ÕNÁã!ìÝ,Æ6µ¸I NR5'º±ÑtiȮƺ´=…<ñg—âoê×å1½F –¢é) R!„ 6i“Rh|“Q'M“ôr§´)rηç=ÇÙ3 9L C ïQ½AøÝI¿Ú)KcëK0)) ›ÿFÞ 'o<ðM_‚‘t!^Å8DXŒUšóy˜ÐÇ—£ Ü(ïRg/'2žK¾Mœwi´Æ^Ô”S“š3ªˆŽ¥D2ó†(¥Ù#Íi/1ÁÁN0;#¢î¬¤Ämô? C²ïOiP—WêSö–ù\L‰ÉJöù……ÂSÓÈ’¦åp=¾)Þw©^dv$¥¹tß¼ôIî3í¼2ŠZíˆÇVw¹á»•×ø:"Ä£ž.ohV2ÿm¹O±±E§æÙ\ü’wÑ'#d!1M"t‘CÞ¡‘è›xŠþõy|L¾šA>jCì¾'ov¥:õe¾=èïÒãøŠ/‚  ÛÔçаû÷Øt)—)íëEb–´€œ¸¤·hªKAŠÀgÂ…‹ç}^`mÒ0)Â$çüûŪqÿÇj±ˆhåäySÉ÷s‡iø÷Úº®­äÀú®’[v°Û!:˜L_Wò‚‚Ìq_£¬[{eÖüðÛJþªvxÁ’¤Ã³úئ¶^±ã>"áÆ}ù„q—âJnÜíÃãÚÜÁKå2¿‘ÜWò®’Ï¢·Ìç· 9˜ÔŠ`G¡(\®*~[ÉG¼ß(ä³úØ Iëál>?WN”FÄ8V’H{L¢VÁïXM³Z=c¡÷•ü¶’°»Îâ>þ!Ó%/o©Z8IRÃ;*ö勇ˆ#8fѦ’Ï+éHçU¥ÿÊê€X7±¬¬n‰ˆê®Y}ݱJú]íðU%ÿPÉ?=¤¯Ã—~­ï}_x[É«J6îrí<ÖyÚJÜ÷kVF·uYŸXlؾ¤•ØÊnÁÄÖZ,Ø£­;–$œmãl!³ýÍUnú@›P¦ñ•§ñ]À#A:ZG_ô‹2Û U:ÇÎM]¼¬­¡’¦’¾:AC;¬Õ„ªÍn´ay8gy¸®<¬k«`aîY’ð«+){2ŠVS²ì¢¶Žl_UIË’¾’¦’®’}¬¸8Lê’…¨Y³)öûQ1ÙBî+IbRKsS÷©$1æ«'ø‹£ $¶¶ÚŸ $„‘ÎÆ„´j¶ƒgu5 ÁV`1ÀƒD²¤¢­D†®®æ«b¢x‚~ó{]ÉÖå¶íìã׸;‡‰Z1ç3Ô…ÑvãÍ8WãúÇzÙcp0 qN…ÀŒ8ŠÀv°‡Q©©Âý/V«Äc¼À ô~„GË'z`sä#B-Ž’œóø²h1,IúZ–äÍ9C iUl«`Çå;4Û³Ãتx²Ãð‘3IH‰£!Ñ2 †ÿÈ>¶cÉP?¡ûil¸J6­R,LYÝH|IØ!àã£íæ±ÇÇ4Š…Y™é;*þñˆ#N©Ù‚âaá$FY yì‘V×°žGh£×©îeÄù0T4‰ç¾¾@üÛD ñï/ L6d‡#;òATL–Ù£â)î‹áðH_‚&_bW£â?W“=ŽD9ÍÑL!?°­|\}ñEýPø¢Áñ8E|BEBVEÉ#ÈP,IÕ#ÜH!ILU‘é¨u“FÃ;«üŸJžUe’miÃÊ”—ÿÑħ "¶š¯âÙ¿ðOZyÛ潯•£)ñÑȃ^ùP¸ zÂÛPMÿ›Þ»÷6L6ÿg;\°È×}ß oX¥½}BDNMˆÙ¹/zjbXÎøþ 9LD>+ #sÖlk““qc\aG'ãµ×楸¬šÿ¸é²\J—çHC6ï(…$œ‘s>Ä g@ÛÏK­ۗϽNôûx`ñÁ/ŸM5Çq1¶Å+ƒ¡\6§6)tÍúƒ×¢‰p'¬8_pM$}"h{Ïö%/ÞþLñ‡a7'ÿ Àï°4KòǼ§}=®ž²§ñGqü™âÈ 1n*— ÁógoU©mÑqKë$nõ?ªÈÞ÷ëÉ{£Ú¿}‚g#çÂr¿0¥ø³Ë®íÀÉõH9êÎø3AþEƒÈ…hr´õÜÑ·6»³üØ¢;Óÿ`îlúe€éÑîŒÑΚÀÙ£ž‘m’8.Ãö%­ÍëCw–¿Ó}ŽÄü ‰9]§7¿!¡ìwX奄´éʘ`œîÝüíR›µðZ£”Š¦¬Ömoz—sé¢b¼gœ`e)Á%W]HÉé|S«-ÛÚ°Å›ñjtSÆ÷>ÕA†¶Èö.±¡3°r+­ŽM“[üÅžð”)b…Y¬^—–ÎB‹ûö¹9góéî†rbúÛ¤UÜ›fð¥oŽä1šrIln %I™Y½CE¯=_årE¬Ï.QZsyež(ê½îåJŠ&Éeº"îåE”’Å4‡pMIb½ ¸X0\/6kZ¾B²žÚÆÍE¸µÆ¢k¯›ïø¤Oàäoy uÖßÆ/¼`a¯Ôd½›T<,Çž.ÞƒŠÍøù†¬Q+MR9ôðÅ‹ôªÞóô0+µ—¾ú+ZÛöºW;*ÇR`|L¸È¸iEÚB½ãâÓ‹4¶‰g´©Z%ˆör¹ƒ*XÛEÉkðÃV¥zûccýø½«öžwµKcý»)WŽüÈÍ\rZÖ@ªr«ô2B㲚OŽ”òô·©¯ îà"$6‹Ùw2±“>Ý\ê‰ØxÌ÷ï1ÝBÂu¹ ßöÙÓKŽäàØ]ISV“Ñ]TómD‰ý¢)a'FL±š¼¿ BE牲 áW©^UÌn7^"ŒÕñ6sðÔžösa­ÉsÄêùMWEÜÔÆ[ï̤ç;z®¿ÉÞt%W+» ëf½m?PF † vɳ—"g³dWlQò8‹Kß—²ëöÊäq6þ™4§o°áµËG9g)¡÷>qîªþÓ†Óëb«Ý­Òù{nRg‰†æËÇ>L@øY(íîñ=³³Ž·ˆçxª^[ŒšÅ˜Ý6SÞ­Z‘ºøu­>  ]ÜæZŸP®fׯXwO7îÌE_*>ê­ êŠ}gçÍÙÛ¶V“X“=¯µÍëjëÝÍ™ÃËlÞ/(¯3›â&ÒsáÿŽíK==—@¶¾ß„Ìsß³?þM î ZãÅÝ^­I·Š‹r×L… ²l .ÅÕøå‘Ýq\^Ž„\‡Ÿ§ƒ¥ë¦Ksÿárf/øf¯iBÈÌ>µv²{Ìp 7¥É°é“k%ãÇ»àŠÜá¯Ã³×ñ~X•» ÷¼›f›¯};C$šÃ®Ñ+‘RüÐ^’ñjÙ*kŽ@¿õð¼&Ââç.ŽU“¤¿ùÀ—pãsRÈŸ¤?©{¬äËJnûé¢%þº’$k'oXHÏ›8)?·Ÿwo„cüU%¯‰÷ŽLqËöåk;©ãÏGHÝ5yõ‰­!ÅŠwËŽ»gDù¹e9~Çw&ç&Ï+ù¶’¤°ž/'l¾fWGÎsñ>¥ãq ½½P ¯~bò׬Íõ¿;¶W,[–ŸXa ›)¹tƶ=~fßo~t_ª~òÜÛ£=v¬„HåEaT“§ùhþý®žþñ×›²,#ý«Jž±­Ïê¤õ¶/óx½ÿýD½uendstream endobj 686 0 obj << /Filter /FlateDecode /Length 161 >> stream xœ]O1ƒ0 Üó ÿ À• ]ZUm?eÀ‰Búû’:œ¥óÝÉgÙ×mù_ÁXÖ·$i²,Ê ´Åx°> stream xœ]OA ¼ó ~@»ÕCÃ¥^zÐõ–†CPzð÷µÆx˜Mfwf3Ãúá> stream xœŽOkA†gºén±qÕJ¥šÌA¡’M¢‘¢”oiÁžÖ´ rºÕÈ9ÞÒ“ì Lfç´A½UºHž96#³ºEÉÕ¹ÜËŽåúŒz¤ê,RÏv\j/øõ:e®gZ!$!5Ðg¼‰%0NdëßEK~ó ÄýhBŠæx:èÂñ±ë™ó?òºŒuá £Š/?Bþ/Ä¿Bþ7”Ä2ßNqEÄr,kZ¬ÄÊ@ã2—®¤ã…øAªXéõzý~¯R(T*ÅŒÊOOÄÊ!þÊ›ï;õáãÎ.ì|³ºNíñª™ŽoŸ—›¯¡›ã°Ñ~·×ê¼Ý‚-؆6ì~Q'ÑÓ#9Nï+áµp4ì$“»ŽÐH¬gendstream endobj 689 0 obj << /Filter /FlateDecode /Length 5295 >> stream xœÕ\KGröyì³O> Û-«kóýEöBe¬Ëx»^ 9ïÕpšâÌKýzGDfeFVeuOS”Ì©ÎGdfÄϪOÅ OþËÿŸ¿9ùõ«`N¯N~<ÁoNl´jðÚw¥Œ C„¢6oNþpz®a¤¤9OóçoNÿã çµðdˆ"ÊÓ³«“´ < òÔ[?DmOÏÞœ¬¤YŸý:K§šÞH 0àìâä«7ëTŒ!¸Õ%¶E Ư×bRiïWÛ+|¬cÐÖ­vk9µZ½Ã§6FïÕÿœý-cø2F FÙq™¯×côV¿Áa2FéÃjw«a…_]ÔÙVOk\N‡°:g+#E":KßBSI¡]XÑ °AW×ëÖjˆÁ®¾Çq^`O8¯·ÚÐ R/Âj»aÛþ÷{ZèW«íþ„”°üÇu!õ§ N“N)õ€kjøkBÔìh\spõðëx6¯ê’©»Šwßhe'ÔéFÛ!ÀTyôˆÎ˜¸ú·õÆ* ÷âáVð)l=ÒÎsóaìàVßÔ§›ú” {S›ÛÚüÓªûø¶Nñ¢6k‡·µ¹£¦ !ÒiææWã°°z]ŸÞÖ§/jó±v¸¯ÍËÚ¼îÎ{~h^Öámm¤÷âˆy¡7Í ÒçóQSó‘?Í}m]Í.Cža¼t‰ã`-À…Íøl#õ`MT‰­þe½Q"ÚA(Î —ÝۨͧÚlX°Çÿ\;¼ê6Y‡?­‰~"1„ӳߞœ}y,ï'¡j!S©A„ Ç QÒÈ®5IŽEH’n„wôØô‹$ô6ê JpƒquCH䵧qØÁH™qÃ*eWÛ Ô"X!pìžö%Œ’nîmpÖC©ò Nâ£Ï8H§ëÐlL[ÁGB6È¢ªAœÉokó¾6/¦¢=…Mm~[›WÝ&»°óÚ|ä×XøçûîÂÝÉîê° a$m?tåUÖº6ÿµ @ÛÚ|ªÍ?צªÃ˜Ä3$a“ÝÖæ›î¬/ƒ¥wµùu]íU}úmm~_›¿­Í,^Ê£Ú/âõؽú§Úüs=`5;à¹öîóöÆyä“•5Ø…_uÎn:Ãô(ïêIm»ÇΘÝì=¿Œ2ë{UŸÞtÁþ±ûô]wáënß¾¹í.ñ±¹äŸˆútè2~__Ã…“rÑ~P®X”¿¯ÊçÛ®¢µÃP›²6]·ij3³íf\¹UaKì[gTÆ?vuØãÌwÓåÙãeaø_b¾>T”…¿ežµÝf¬Mß3"¾›â5UŸM¾ø94…6¦”Þw;0ö»ívxÝ=Ê»ÃÜ3^ŸøõùèoŒMØÕ«.Ǩnó bä—ÇðÆÿÇÕO;ÜuŸ2ØÕÿº6?:ë›nv[›ÚìÛ6Œ»Ï1rÞw¡é]wám—æg1æ™ð†´^Br­ÖçP›®gU†¸¬Í‡ÚdƒY¸Œ5ÞÕ/¹ÆèÝÛ%Ö›ìºÛ÷¾ût‰5Ø9 Dmš6ü»ºµÌöÌþ§&ÃAæçɺ„ªM¸–mwÜÐ}ª»MQ›Ì¯f¾=ãÚ>û1ÍøMm2.‡š’ñÎx’ß×#Ûu²ï¹¼ê^fßû¾ë^1ëûu§—¹44×µsþäëÂSå0ÀV?=ãôSß& ³Ü7,š@OO´™‚|}Ä°'> OÏbàrݹ©Ç%j“ñ­¯MÆî†s~)ÆÂCw›,Öf€„ñ8s¿õt²¹Tš†7 9ßtæB0!gêXô'sÝfìNvÐa34j£¥Á8ìêKzJŽEÓ$£\5IŒ÷³«nšôüýTˆ¨y]› ª™”]ñ++HÀb#CÌ—“9¦µnBÒB !š üÕ˜8h¢BvpÚy5úy_Öù›f~?H<”}óK9h«ã8ÿb÷ílUmŒ¥Ú”—²Ý͹´9­öOšv"Ÿ½“òUlØfÍÉÔg2 ²°—ñ³Rl?ÅÃ/KñÒÁ³;ëƱ¿Jc Ù ˆÂ/rÂ&%zÚ€òFƒ|Eá(0´ìcššE“YVˆ$VG'eà=rº+oW[ -„Ñó„z¯×cII6aèº Ì=¬Å.—iŽ’Õ¢µ9œt¶dÝh#‚G˜·) RÔ¦Æ.ÒÌ€ ­•Ã¼œ0ª„ÒMW4lµPR™Õöz¤HØsO+îh³@PåîÎ5s°ø|>:gפåÞ#ö]v-MŒu|`óþºú6Ã÷žê("0‚”†O뒘Ĝ"öÒñ$zÕ:&ð13×…¾à°Œ6#›þ#Ý›pT½”Dˆ®Àç‹iV ¾Mï¥÷ßM{·sÃY[òG" d˜­ô–,ã»oFÐgZÖü°—ÆŽì,“›‘ÑÑ~‘ÏZÊ”0˜NÏcÉL' ÂDºÿ'hîÄAè%Òƒ´sŸBùJSÚÆh\-ë_ÊÀŒi:` ?É%Y² 4`,ȸctU==/HSI)¼'gÚDÀcé) ¸ìœžcšÄS;3ÛƵ â©ZñÌTeЂåa&B»\)Rffºë²ê+FÙŽºH­eFˆÌkÓ˜Õy}Ík?8Ð?®ÉY Á6*"‘`!ÉqÀ3±…ŽùãêÏ0 µIôî*µiÈä1‘V©Di£1òI߯YeTQ^ÔXè‰é_¦Ke¤0†Ö&•=ݧ,£l.r›9ˆSÑ ç0BsŽÌÒÁ^¥ø0Sº’qÅ–dÔv=N‡®ÜöaœÚìá{ªìâ‡Aå£ÁK7ZjÔÜË- ”¬“3n¡ãð©´ÖSù*ƒx&æ?¤¾hŠ~`õ´©³rÂ-Ydè ŒU0Éèô¾ïY•äÁÀA…¢Å¶ç {DBr¥ÙÛN¶^ÖD|6¶†ø\5Ö Ñ ,œ«ëà’À©¨þ>^Á›Òy9 DÚ@«‰nÒ4p!«[UŒ!·Úq«f½§@#C…“^‘Aù²¨6 ÀçE²*@y å8dfQ|%€jê)8jƒÒÜŒ™êĉuƒpBºI,A@¯Þ øù†hßx ` ‘«¬ £³a¼eÂÜâv—ó5ó[º†^ÊÀƒâvöÇZãØûü¥øF­ÀárVE·ä)^¤ym¤ºµ¢€úÖ‡¶`ÁñŸzá?Š{ùìà‹¬´êˆè‹ñcøQ/zó¶=GYHÑ5£7LÃ÷Ö©"øo?€=ƒÙÑ}¤+œ1‚µ'ñ©”ƒ¤Ê‡H‘Ò¡%g£Ñ7X!æ; I–‘E¨è'È(@ÈÒÑfÔ³Å&ÛÉHKø‰† Ž [‡ûVJ-¹GÉ ~wM~–4Z¶Š9=ÖòmàÑQ1/‚!†ÖÎ@’l¶=»º,íVñŒ §ÎɨYP 6ã’»HÑcæq‘ÃF%"¬M¸‹ƒt fOÂÿZˆÄŽÊË05²R¡#ڱżȗΜ¯]>`šI´Çµ zyÁ5pÙ6–Hï?UÍ×Õƒ tå ¦aVbŠö ò»Þk0pºiƼ@r=9CËŽ—9*¦Ë„<5•G<°òÎÁ¨ÿ{P£(5ZfFEÉÐ]$Ûh%É`k+ÝKg^áh!02yI!Z©=Æ'tk­OlXÒtML´LÖ—×eŠËzd¨*¡“C‡§$ì>‰Š{µ­;ÚMt-瘘ǒœ4;Ô\^îêÜ1ã¡+Ú@/ºn@/…49lÍ5-s͸o`³çÊ=®S1A±7«ºJ{iýµH9tò3Åá"r VÖDI3>ä"sMªÅ‚ÇTc©ò³çBq‘¦Dåñºg#±ßžüî$½ñhOßû®¢@”J` i/,þqõ’,ç(Áošo ȳ¤çR†/Î4qìB¯Jº=;D7Å8Üqvz[=]Έ,äÉöwìÆ` íƦ&æÏ;;Ü |äK¬ÐšAóê©Ö͹)Õë*Óè—©ˆ³…f¼ÞµjÚÿ(§ßµ¡Š©Š³ƒ[É¥â`´TèÜ5ƒ– f ‘ŸMç£À…}ÖE²¦ˆ6&a²æijÝ&A[³nät²ÂQÜ9&&X A·o϶…-¸Ý’‚Ù |$‡Á]Éb±¨3á”òØdÑ}ƒý]T’…RN&òÈtVÆÐ6–ß¡353&pø¥a¸ û á›SLÚÍMˆóyÍðJ˜9Û׈ЀÓ¾5¾ï3ùÁï ¦ »œ¿oì•w•F¡xÀ‡-ýS{«i•ðÙ”kÊ)¦›”͇FúGÀL1” :Çó!¸©Ç4 "Õ ÐΓ—¸©ØÕ;.(‰ÉaˆÁ\\ nõL|_ÉŸ©ÏËJ‹žX2·Há:ú<ï¬UèYs+‰vg)"¾ôªhÒVµÈedÖIü‘,\´!ÁÊÂ_H"€xŒ qC;À[Ù)ä ÓkSôŒ£}÷sž)}]ÍræÛ×50ŒÚfÅÓ¹,f®Y1À‚ñül®HT7L‹cùÏ–j‚²¾17ê½qÕÑPšÂ¯¨¤‹œÔž<]ßzíãyó=µ(Tg¤NBòg‰ôÖËÆb¡¨[L©:,®u*Çx²êYZ> Ú`&uÃǼÀhVY„ìÈ‚±¢°¦æ‡e§Qšü–wºn­&æp-ÀØ5~ÓØ’p¬ÖR³ÑéåkŠ ÏK^¦ä~6¬jðý“ ¨å¸rÑ:D Q%ÿ².ÓÛ[òŽ„Ä-ÿ¶!1E[Üðžê°'7+¸å‰Ñ¤_‚v©/’¾ ¤mOÌñpfG É „Ö“¨ /½¢ÞcÜSGŸB`É̤o¬™ª›â®qå™ÔMø쨛Ž‹,ƒ¤7Ó³ÍimxLb.ðØ?0³ã:0)`oÜbò±Ÿ¼È ʱÜÆŠ¦êˆ—õî¦!+'AëÈâf¢´ŒÞ½¥Møn¬e®‰xô¿²å¨ÕÜÀœXE1±²ÚŨ9³6(¹:³6ª­ø|ó©õÉMÊÇ,×Ëb$Ç5º'!Ñ’î1úÈ ªëx˜E5hDåS®lo36ç…~¤»wUˆØUsÁa±ê¹¢¡ÜëBmåÃ,N¯Õ«©Õú PFåqÌyJÂ9?OKu^j5&wP–‰JS‘i®`"ùBîŽ ÿi jÊ&,jg²Ku›,d&¸Û$ApÜã!Î$4¦W'å‚©þž§¢Yüï§5³ë½à«Š˜ê%±à„×8`E˜$£ï1Vžƒü}(A=c©RD-I–Â"2ÿ Jˆ¸ÆˆµœðU1§ûÑ´Žá‹HióyÈOt„œ®ß“¼7ê#çäIŠ)õ‡ 8VÎΓZªVß2©ãqï˺ ¦>bŠÔ;û²‹¹óRuü [ ErÀÐðÜÜ&5j¼×íz´ ˜c€­“‘æ÷1V,ì«×QTÕVu?s™k|n±¶.mL'2í¨¢Cr;­Ì­ÃT;¦÷êœDZ[Mñ5nY“b“Kê·m1O¹ËaüœàÈ,JaÄ€|d!ëeõ‘7¬Àq"Ÿ³ïìå±í+\ýõßÄdïr²8o»ØÓükK_1«×Ïù¢Y£,è”E–Œìên3?a¤¤1ƒÓÓ'ȶÉëÀñ•ýZ{6Uí€,Iã‚Ðìf¥‡A1 ²Ö VâÆñ«zc9 ¡üC±{/ú6×}¼Id<1a“å<&«ÊlßZ„87²Ú7 @'Ö£´¼ö¹?›5¾¾}Þ½XÞ¾ß;æÍøMÙ׬Öûˆ/Šoæ÷_‚go³ËîSÅ_wîÍ »Íæ}ø2Cÿeuy¨i{ï‚/~™j|½O®í6Ù[ÿþІÙá°Ï °7ãÅ¡ 7ïþ–&ûX€.¶‡¾°Tší–8ÂjØ.~ „5›ï+”×çC·ÃÐ=ÓÙ§FÆè|dÈwÌu;°ÏËÈÞg©?=4~£ÿY¶ ¶Ë>ç°DØî ìéì«*ù²Ë14,p€sú'’¾ÎE‰kü÷¿ÏpПendstream endobj 690 0 obj << /Filter /FlateDecode /Length 151 >> stream xœ31Ó³´P0P0´T06P0²P05WH1ä2Ð30Š!Œ‘œËU¨`aS027iÆ`9'O.}O_…’¢ÒT.ýp .} *.}§gC.}—h ™±\únúÎÎn@n€¾·‚.PÆ9?§47¯XÁÂÎŽËÓEAmGTaý?ß ÿ p«ƒ¡ËÕS! B)Éendstream endobj 691 0 obj << /Filter /FlateDecode /Length 161 >> stream xœ]O1ƒ0 Üó ÿ €T•±Ð¥C«ªí‚ã  8QC_B‡gé|wòY×Ë•mù_ÁXÖ·$i²,ê´ÅXXž8+/äpSþýñ›ÌÎïj&ùlOm^Õ{¦Å+¤ x"ÑUUßÓ bý'•ÀhŠ³9÷ fÿ¡¤h*qÜ\C Ž¹in’ X¦ß3Þù”‚ â FJSsendstream endobj 692 0 obj << /Filter /FlateDecode /Length 6171 >> stream xœÍU$›,v³g$?Ç—"«Šõ®"µß/XÏ ÿIŸ—·gxéÔâêpöýNÜži¯Eo Œwyìw½‡ V†×g_/î`â vòs‘>.o/Î.7 ¦zÏ<_œ¿>‹ùBßKnVÛÞK½8¿=»è>_²žy#¤èö0VL8ß/W¬·Œ)×ÝÁ¬tÊ ×­wË•”¢wœwû×8–½a¼û 7r#´ï`ȳ Vã˜9+Ý ŒgҸ¥wR›..JÒ%—dIAª)"ÄÏ»üKa«“ÝKazǸíÖ÷ÎKnE·-à¾9ÿ9¯)ƒ„½a°Åùæ¬ãzyþÝÙŸÏϾ„¾?³^÷Œ‹…Zõ  „Ä©<³Ë3Èï%L ›òDší5cÌ-~™|ÿ~w÷ò¯g߃jxü_VëXV•N,Œ—¬w2“`òÌîì«Å— ØýÕ™tÌ¿ZZ×+¤Y:ë{8­VLõi–^ópŠ´fWÖHP>†3¯Ÿ&+¢Ñ ÏhtBÃ3š²fWÖ4<0©ŸÓf©äÂ!bP]V¤Ç%vXŠÒ~xèt÷òÏ‹/ö›í®£±Q"ÊD„FJ„6ÌìòŒ•2JmØ”'~ž¥â¾×:)òKI&/ÒL”ã‰@ò ÷G±Jõ²2Ì\…êyuœaæ #™ HÖퟤ&R]T@;‘\x½\ ιCX®¸uU¦C*ßЇt ÿ„žÃ÷¸Å þ_qѽÜîÖ7ï–pnï¥ï¶‹—7‡7‹WÝnµ8\®wÛWË°óÿ•?‘ÎŒ,Ö`?Áp¿)ËÌ1:”‹¶Nf °™'þŒw’gŽ"A¤½Â-Ρ#:”fNb9„É™±Ìôz¢ˆO8,bYakÜ`aCž @ÃÌh׳Nv|” ¥+Ï$Úw \%Q‰…€ý9¬ìm™9N-«²ZÄt´GJ4ã-@ÒÌ @ŒbA~¬ÇG‰¢…•™“€@üŠžr˜ñ\öZ§[Þ d˜9ˆŒêˆœÉÝÊ ö4sÇ{)‰3Ç™#yRð@†™“€0ÞØ™H–ÏÐ÷–™S€0p[B,(XR:Š±/2Pr4©ca¥±Nbv4Ìœ„ƒÕÚ$ƒû#õ$á-@2%'ŒÙ(™‡ˆ€xDœfN‚ ¶ˆ@°°ÉØ/2Pr †ÞÃ(07El<9ä´c°ÇØŒ7)” DkƒVh0·(ë½ßßöw¸NË õ¹‡z+á¾¹ÝoV_ìw»íýÓÀ/º¿­a£D’ŒîÍW×[†%7Ýè Ûíø0M¾²Bd5‰¶¥@A*Ñmï¯á ˆææv¹…ˆq«j ˜Z9)…£Yq¨.˜“a•°øÄ7‰*û•c‘ÄÐŒZ'…JÏã7ÂGª:îLÚÄ=ø•» _Ù|*ðYž˜ YÀAPdâÝyÚ¡Î[¤œð¯3btºFN5½˜—p`ø8ìA`ùÄ$r *y‘8ÅiƒÊËá¼å«„>£,¦û8°pJ•U–M¡EÙ iŸÐÒŽ½ã²2ÝL’4 ÿ¸ÔñÛ©$„pS`’± VŽ¥DOlô‚hÆT1ä }¨½d J @S|´Ô,JËè)=JϨžòSÔig3{¤cµÈRv¼G‰ô•ÈÏ»ýâEe¹Ÿêa\'°ã &U+¢uB·™(¤tÓ“ úaÁ-µ÷qS qPD!Å _@½˜3dÃýŒþrf ¯mTÒ OVG‘À5Ô‘UŒK“$¤)>¸¨¨¸¡-vjjÌjñ Œ7Çõcã–´ënøOÊ”–=¢¢Y¬p  ±×n~¼7fñÍľzmÂia鵬Ö$¶2¬–$\´úö*ÈÁq W)9ÅÇz##>hb¬)4ø/""\Ép’`a s›nBbxEñÁª&$!i°Á)Ú§SñtŸäMš"6ùŽŠ¬ô°PiR3ÜT‘\Fª’ô8dŒüÚù?ÂO§$‹<ø}TN(<‚ÐÚ*p5 !ð&Iá'v=÷Û³×gŠ3Ý›ÐÕX`.¦÷ø%c¸8,’^ºØ´ºçvõöKðÜ¿O‹¬4Ø"ÒΩÞFtØâ>$n:ïྔ½Žÿ‰Ô``õ¨š‘@úƒŸa„a`/¨#زEÙC6Á'Y„y5 2Š:XEHŸàtù@ ]-£­jþ?ÀA¼1Z÷Ö/$^â‘áá¤EJ"‡á~g G>¹^r-¤\À,€8Ë®Â<ìeá"_«É%Hòï¸èâ“nÜ4ø˜Ø:n܆™ç|Œš÷1"4¶ùÂ2‹öñ2âüÅG²:à$ãð‡ä´à"†üé­ ß`’ 4dGžTHͱüp¾[_^ÞÜ­¶›°´1 ¾ ,› †»‡û¥@Ï«d·ß…Å+È{žbåϨÄaí§¡´`ÑAz½¿Õ^-Y/þµtø‡’2q„ 0,%^§¦’t1ráõïŸýý›ênÙòKÞ×·»Ãõ·Cïö~ pü/x?Ì€!6Þ<3(w\wõ¯•™ó¼Ã+dÉœ“¯ö8½îøAL!—ˆ“°•ënO®Ì·K´8æD¼ë{Ô^uB]®{î±­„Bm¶Aù Ò $„ÓBèîWhˆÂVtû¥°Ý8öiGº4†™pQŸ.ǯ"µ€—^ÈS@ÛˆJqÕ7LA¶TÝÒãÀ4$äFÈÀàâ ðá½<âÖNAâšè€2,È€e #0$y£m D0Á»M¡ÿ¦`‰$åtÄ®‚ÙÄáp’ËÚõ-.†\ÌúšàŽœ§¹ƒånÂ/¼å³ñEx ìÊßo“bC)‹&Ahø10qgècƒî2,Ñ`t.¡ì>W¬)°»JLp .AØ•@ƒ6&v X¤çH¯Þ>¬†C¬ðâA¹tù‚à³%FrHM÷W|zNªýwK­AÓ¥çRD™jxGˆV¤! a®ÏÁ-½OI,7&˜ NÛ` euxµá´”™òû]xáá­OŒrFKÀÜSP¥“{À]Ë ‚ŠH â‘ þv¹h&ZAátt`aªz”Õ PEd„{jî‘›½@ÚÙƒ¼T|ÍrNìø:°*øÈ/léCr€ö㜹¾6Øëb°{d’OR¹C܇æ?ï ±E˜Zµc´”BóÁ$æžüP=ˆ™¤ÞuæuЛ¸ØqŸž!u¼[×ÂŒ*ÿXx…¢´è=©U¦ï„Á,“›£*°+¾aKà$2:#²ÜUÔEkJçÖäS¿ˆÄj ¯£Åð" …I5uc=Þßa6€ŽÀRϘfÁè¾ëZ¶qX]0q÷høZrÔò6 7óÑx†j±™˜qˆ žT5üPPƒccÙ[º/ëâ~wAÙÛ]‘3í#bé‚_‰¤›¹Y4,®ˆˆÉoÚv…[œx›õnW¬usDô ¦$ *€(™$JI||–<&bS14G ª—e:°œë®&Þ¨qå‰]M¡’F áüÇz÷”}¤CûÐ-ëÀ7„ÚËA\¹± K¬øÔ±‡SîzÈI€<‚•Vt]ÕJò¬‘ùQÂV'>>‹’¦C¤¹»®5!žV‹Ê‚[S”$Û!«ƒÀ›Sˆ ë8^ôq}WÞBnr Ùß’ ¾ª2”¿?Oš2z¢_ˆæs¹.dZòd .¨=T#|N IÒØçaÐy-Öàçÿu4¥ä×åÕ)Ñ—KŒ#Àü~¥˜ ni]ÇCœVÝ÷Q)FzLmz©²Ç¼EróŽæIc´ËÃ+î—Fe±)ù¾+ÓH’‘ôº"7zÀDdoÏ{;X®ªøúã2G.šy?àZ e”ÉqËÈMÎdðæ†ÓµòØ×qÉtU9Q²ŽKŒ´jäë20nÍ1·uÝß°RÅÖŒ¨Ô(«í$—[ÆÇ@³á¸¯Z1.†Š ùf¸›·¾ ‡à‹J^ERã‰÷ ªÏÅwõ+ùÚÁ ÓRi—•û±íIäà8BŠ ;AÀU)T]‚50^JÏ°RB]6Ÿ´|ÄqÊŒ°…ÜPk Y¥Íì:_;züIbT›Ez´¯„R|Èjpæ9šS6’à;òæi‘5 Wa f?*…Î"CÜŠyölF=À®1¶ÒÁ‡¸xRöâäÑÄÛ1ƒS†{5“ß‘iR&¤G€xmaòUWz0ñ'ÜÉê7\¥Í½Ž/ šÖ/(@ˆûÁiõ'Ú.×bÙFòš„Ý«´` ^öX¤dG/äÇ%åŒë=«ÈÚ•òÃú•D•}ÙØ<v…oCLPŽÎƒm–·¾[!;ùÓxßè·'  2±¹ 7~ÈøÛÖ»ºª•x•}\̼æu#±å½ævTý^’Ú6B!:È| SbÖ(·j••ëosžER‹mL„ѯÛF05Ñ1äýý"þÒ 2%]­'}­`K Im)– »Ž%JF²¸«’©?ÕcÁû$U—¸ÙÔKœ+¡ŸÐwL€Gm(ªEÜà£7dâŸbB nøŠ¸äõÛ,z â‡i?Ë*„‚­®jMäå$‚9VnŽW¿£âø!B€-4?a¬ýÈaW,×R^ŸÚç®*…ÂAзPØ‘~ö>qË™è_j 98o÷e‘Fœ0 ÅíT…IH#»ý·¥š‹¸ýK”D™¤ÒuÒš¸aðPÉ¿OB`º‘÷NjªX˜m¥§]ӃnjÜ÷ ¾gO³‚ÑHv‘:°­·ÍцÎN‚V¸@ W?xóyê}òØšp ‘l¼úÇ–¸¾Ô42~ðWB™i&\8c'˜jC¥CQ¬ ÛÑpôÏHy¹+å%MNÞÄWE•€}˜ˆá¯Ž–äȧž•à$YØ®ôx1Žg aAºpÝ4S÷ÖF5œbÞÔ_Ÿ"¤qUÃ'š>‡|ÌŠ@Ù—á}nËðP†eúPÆËe+âÕw †$£yä]Ngúu/6ëøPkdh}ôƒ až1ôûˆNO~Ž:b”“½”â×áÓ³ûfi,¤ƒ™‘¥^ªë~Úi‹Ú"G>šúN*‡ÿX¢XÈ *Aø[—/ÁÅ1ZsC’¦ð¢ø½Nå· ¿&«ËŒ*`ǯÕ6¶9” ·"$Ô½MÅŸåUJÅMÈafz3W§þaÉrÒU‚õyT¼Ü¬‚è]œÇFWÍÉðh¢qw†÷±UK.»UÊëº\…%ÃÂQ-s<Æ )w¡Òë éi´ŸuÜçCKn¿g: ‰ªÞHw¶¥,ËB–é öP ^=ŽxšŸüAGAíÕBb¡ÃQ;žCœîØ!¾ô^y /8öÁ ÐEY4U[]ñ¾Ã,‹èÇ´õ?ní¥^?¹ÿGP°@VŸhzñpK3ŸÄù¨RV™Ùë¦ö}Ô&Â3ÌÑ ³‘)‡ÕQ»€”*ƒ$ÿ9aJ,/-òIL“¢º’;â`.ÄÞI«!ÜSèxY»Y|Ú¯Ë\ᨅBƒpì~áÏ«s^9nP¦þí´A™ô¨ªz”w¡Ay3žprÙ@X3SP”ñ½‰Ã%DÊußÍ!Ñ_G!z\µ²•›ùNì 43Ít§lªq§¤¥ z §a9È v>}}œ@Ó›&råQ3¹ZM--ðíƒÝ!ëÖ##¥jÑÖC¤¥SE닽›õ[»¸ÏúêÂ$CSèÍZÕÕž<½bÈêŸ „Ë9ÒÙ$-‰÷òn½)>s†Ò, zÛº\ͦӯÿä™ëÿ¢!Ñ•Z-‰x·ÄŸ¯!È Ê[šþÏ\!Ý.Ï´¥bê’øÖ'çuºPƒ®?á·Ó‰j­ouægýõNêùuJ´â £×™}®§•D)ÄÕÉy`Ðh”2¡&º#ãÏü  ~Š6të·¤£þ\.`È;‹É#=Ñ[^§XUx!µAÝÑC€àðç˜$ùÏ\¶+Ø©’&{ÓL ùD¹’ÞÑ»»lL¹[Ý]Å,ø.QeH©Kþ©ðߟÜi#§"Ï>ž¨Àê»Ap~&ƒ¹¸‘[Í´G} ÄÅÜÍhQäHƒrJMžVÆ6wu™jµÚ]RŒZÐx)|ÕY C@Šùô7î,Cj«@‡þ{¹ÒᕳMM¨‡&IޗᶠeøP†©Irܾ̆ÎîÊp]†ß–µŸ”áÛe—ÏôoH£†¶r6Mdßo› ›k¯Ë°ÝeÊGv'!~ß<Æú9‡æ¶·eÁ'eø› ³ñÉvðŒƒm„ðš ì¥÷ÐqE›ÚËÂo@B¯b*à›2¼m ø²­Z«2äehšªEfáõ W³¿Å›]S¬Wm…ºlO³2웳º)Âö6ñÜ6ÞœU„´e{<Ç––¦­‹Ü•á¡ _Eú¤ ·eÁeø6jšÃ`›.€üõä0WGz¢[D‹Nq—tAK%ïÊpÓÖÃMñ‡¿mò¸-¢O‡¦Nqdö®iúW?Å寊ËNQ«n¸ƒõR¼=MIò°/Câ·Þ6£ãá'ú-?F÷„5¯Ê¬{nynqmÄ3îà²)‹›³íµìºAn!pDɵ”=•FföŸ(ƒG¹ÁXÊ÷mÁy‘\åǦlYSQÚ‡#ükß@ oÇ1áÔ<{fNÑòL3§?V[ÃP7©¡ÛÜs ~5måωc&L“4è¼ _”áG͵ð³V?‘4„¸zÞÊà^”ïWeHvÑ/©Ý(Çâðÿµ&•šXßqJ©›ÄxÁ‘ÚÕÖàçµëŸÍˆxÙÞ4ýE;ß¼i"n+ÚgÏ{§<¼o®Ý5±òÌ_ÇRmMùM™ý´ ›D<[ïQá×ÏZi6a÷¦,øWS¸íâ¯-ç¹L­oÔD^UFõË îç‹èes;Ã#D‹zGÙ›Ùð²i}D„oÊÚ‹2ë›açwe-±³¿—á7¿¤§CvØOÉð¤|©JÄÊŠêoiþòìß*"Œendstream endobj 693 0 obj << /Filter /FlateDecode /Length 160 >> stream xœ]O1ƒ0 Üó ÿ ÀÒVB,tahUµý@p”' aèïKBèÐá,ïN>Ë~¸l#ÈGpø¢Ʋ´¸5 ÁH“eQ7 -ÆÂòÄYy!û›òï'Ø dv~W3ÉçùRåU½‡ÐiZ¼B Š'mUu­1 ÖR Œ¦8›SWÐ`öJŠ¦ÇMÀ5☛æ&©€eú=ãO)Ø ¾CÖSoendstream endobj 694 0 obj << /Filter /FlateDecode /Length 7336 >> stream xœ½=Ûn\Éq~¦|Aø`C[<îûe° Û±‘ˆM#Öy DŠRLr´iµòק.}NW÷ô™Jkc¶5êSÝ]÷ª®j}s®&}®ð¿òÿWg?ÿcrçw»³oÎð‡‡3Ÿ½™b€ñý2NN§)êߜý÷ù#üp_j‚y^þ÷êáüWWW?MYe}~õúŒWÔçÆäÉêp}œ²õçWg_oþp¡&•ƒ±f³ýc§L‚ñÓÅ¥š¢R.máW›\6is}qi­™’Ö›íkÛ)(½ù~¨ƒñyó†Z©¨`6ŽUŠ&)³y c£• i³CØ6'ëƧÀ gå”WbJ]ÔË…p}«Xÿý…‰°j²›&LI鸹~BpÙêh6·Üÿ^ý1ï%‚L6Sb¨ó«›³ŽWÿwvéœ>¿´~J!àÏ_o®ˆQÊä¸ySq°MÒø'‰´Û Ü›Õ&óqR>» c˜†÷õ´„„œ}¢É ÖxKÐrʾÐä77„hc’^ÑrÞ†Øb]lN,ò?ô9G@ L‡)€ í6×<;ç°Ù>V^X€X½~IGÔVç¼¹ãº~%qW°*„µÄ^ ÐÃ_6×/ë®%—mÙ.¹B‚=^g¼¯he\f›³ÓrIñ¡×"‡·ª6ÈsÖèI9Ã<öõfK¼r2Îl{9¥öì;ÂM ÑoÞ¸8y ¿$ÌM]{á›"R9¹¸ÙVz^*g û“ˆ‹Ë÷×’(w·‹ÿËŽVF Ïå|²Km'"Áüc1{•G"—&—¼EäJ@NVÎñ“ó6ëe_!Ĥ” CˆvRV¥0ÏV´â_6•ï³ÿ þÍÜæ×Bœã2io™î¼ðâí²«ÞžÓÅxôœ^¥æœÄ«Ç¬“•æc éÞ^ ÷mÒëšnßZ§ô%ûîésò¾ý_.˜ô·"ɇ(q:ÈFâv…†pÔV à¯À×0\ï#))Ÿ£·®ê—¢<ËÛ >#ƒæ('—BrË“X¿k¢œ¼Ù|‹#Ð_óZ´óe­ë»[†Šš@¨üíÓm¨ôhžZšY›{°Æ@~‹¸WËMIò¶j<© ÿJ(µ^›ÍtqéRˆ`ÚØW´ÁÛB@ùk2:Ù:®¥=&ªdãBcÃ:íÈ ¨Ù}g„/µÄ:_ôFJÌó°ó‚y2u¨BFÈ x…4Ô;m½dÿ²Lv 6»Ft66ÓÄšã²}ämx°È-8€ÉÆ´Žö,ð´[2-‹(y-Uü/6ŒJYÑvsz $4‹o…Ñ~ ],t "³‚X¯qÇ k¿”>ÎdS˜E˜ì‚± B¡moÈõ¼}ÁWÙólX‹Î\‹ïؾ‚ß—ò¬_ö両‘Ï*)$¢x"’ ÿ‚™Ã×ðÕðÝÔƒ69ãÏ™’Mkþ¯Çç¤àI7„f>fkl¿½ð·aözÉš±È¦©øöŒ]Ôy‘8 ¦ªnÑßð)º`ÙaÒ d@¬b ‘@Ãщtås/DdÊ«lámÎ_Bh˜Jæ~Aï‡fîâ3JT¾@VtRgoï«¡kYL˜Že6jåîLêÅ 7ú‰IÞª6¤Íˆšx·|¶}¬’ÂxN¨Ed´DÚ €4~i9T‚ 1[D b³×P­}GøÊpÀÍ5éptl0$zÒ¶ð¹oYpœt³à, ’ö¦U04R7Å©"³ 7@©1ˆ÷ö—ägÖ.!ÖöEŒ+Ì€SŽV ƒXÒUÝ—½P¬ÀHöÆxɈ75jíÁ 9ËøJ؉-)/•½C=Ö{(Yƒæx¬"ù˜²kQ×-Ï°¹a¢”=ñß= ³ç æþõZ&v\B}ÐÌ/p@ä(áÏ—ÀþÀKšVÑvÞG-éžgîËÚOUrŠ5¶w·"È㿈ΘnñΠcƒ93"¸3^ƒøÃF~ËŒí "VF\ŒƒÐÛ7CÐ+–`ré á½ÊÏf'’TöÚÀª uaçα-ÃÛ:¼¡!pûÇeøªß×! ò<¾¸9îÞ·,~»PBR%S‚"P²@ò¹½îìü($·©AÇ#ƒÃ¡mowÑˆØ qp‡K‚½§uv=ˆÞ¬§`â|®GÂhå•4üX‡u¸­Ã›:Ü ±çì¤ÁyYÜásÝ}¨&¥¼x•…Q98­(¦¡ã6rƒ¿eP­‹ÿŽ4Fk—Øy“ƒTˆDÏŒ>ê'^!B ³ŠP\ÎÜgšhú d†|æ„®c^‰y ƈ!œª÷fwŽ}ິø¸ÞiÞGb¯G2Ò SÝ<K`¶w°V£’Ù$ YLc{¿ÈBîžêðºëpW‡¯‡Œe#F玱Èﻓ”Øç,’ÌÂYšt¡qàÆ6‰À¿‚6•8æ-Ðz·q•–æÃK  ®yˆJTΩѕ¡`Ë>(ó$ô..‹.ÖÀ|ìÉóXpóukñ8µÁ»ÎudŒÈà>Z‰DºOl”ÁÕ0±+œ±7ÇÅC5/ØL*PzÑP…Ã%0*Z·p¼‰Vœ7ç tdcç¥Yñ‚«É‘-ÃwuX¬ÇÖêÒi[MÑ,ŒÍa³UÜK> ݉tŒfmš˜MZ_~eÕH˜ðÅçì-¸{Âô±¿—‚·ãD†XúPB‚·TÒW¸íþ %nyj{éÄ’êHèp TjZ‘‡“~½@Sû!mNØç»l¦èáÄœ×Þie¦m9Èì`€í òWö˽&Âƈió«ª-?•´`Ï.j¶åþE^%¾W® M1¼k²ÂU¨¼~3~¯±¨ÌÍ/êðªNøcþ¹3”›`¦R/£@@pZ"˜Ã¾+H]ž´wÕdÚD=PÄë ¢£Xª½Ã[FÔ1ÒÆÝòϘõl2{ûÌp4IxÃ׋>73JP"Ù’Àèíÿ””$øˆ?Ñ瘠B—Pà%õAQÅó=7œÍ›„»-›ã<Õ³\7Æ}Z· )ox²ïb;^9£‚—s2ïñV$hYè¬Æ´Òoq`AP“WºU]&òZý•937•N€7‡±Ôâm  Ÿúk“» ¯œ L©F>2‹.…sÿ:Ëöl {ò¶?7ôC>è‹yA:©bîÇ:|¨Ãm¿µ)`©*®TvI^ÖáÛ:!šVŽQ‚¸oÆ“_×áSŠØîa¸M]'¨:|Q'¼—ÀFÂ1âøŸ†:^Wm®X`À|i»äðȺ• /†Ÿå:Œ˜t¯ÎÏ•EZÿ3ÐIâC0òùñÍÂ[¿¨CÁ[ßÕ¡Á’b‰›~HhünHˆ«:áuøç:üàœ‹±Ñ6`71¾oÅ÷A]6¿“.µr¨á¥Ì Ižêð¾_øŒ6?Õá)eÝg½,ˆÏî?ï³vµïÿ3œ;–ô÷Ã%ÄÂïäÜ#K\UÌýpÂ0…©?Õ¡\„×öÄb³pH#6ºjuUu½ o®C[‡®}e¡ÿ¬¿þ²þª†|ãë0 —°‚BpI¹cÚŠ:5¤ƒ€ ‡r…`†Ü4Ü@pàx"ž!|$·šûR{ºË8E)"ËÄ¿Ÿ]ýôkØÓâÅ:Tuh¾˜xº'Háš#ŠÂ‡áñìŽF’td,Çä÷käï‰g¾”x” `òÙcäh¶Ãaü<ò¹!ù„¤‡cÂ_!Ÿ@dí1ò©ág*Ø#Ÿýò!ÍÜ1š ܪò}ÍÌPþ4<î‡X4Çh¦‡hÀÒ1‚Cì %÷hæ¾”fþÍìf‚’éóh6.ý š¹!êÜ30®‡oæ„£²>3ÿ¥4 ÇhfŽ‘ï3åL—P’’§ÓÌñuÔ´)I#¦m alÏB¡§Yøší—²—0„MÝzͺ³‘ê{ûd,¥»8¼§eèœ tO ¯Š(WÃÃ-c‡©1\X§¦Þ®M©Í;;Z±wJZg¥bŒv '|^'í,íãì ìZ0ÄÇôÏK`ãGNQUó’°Ç¥°l–¼µˆ’D%’$7cnÂØÅ‘W Ä àý™¨C§ñÍÃÊÕ×|Ü—|;M—³¢ß¤½‘ï¤Å‰ñzc&ÚZBp^£)>5.¢ORî²ÞíqÄ–2 ¥OtÈú#q Z.t`Y=`ÈQeóÀpf.F°#½ZÅô£úéJÆwå®ô–a÷w” 7¶Œ¶*’Ŭ¤‰á€m mDà(jPc:,9\±M†axám&ë—zŽýº…NôdmÌ'oåñ­ºl²m™TSm¨ñJܼ©wÍ·Ì…»‡}P+gãûR7 DÜdô…Q2¾ý%»yy[êÝ‘×%ŠxH¥¿sŽ½)4ÞN®­ü¬;‹\x4eâøúÕIŠº^î-¾ÄíîZOÎ6Úî6ðc|5%n{EWѧrU”ãðîªZËoùò€ xYŒµKq­În¹¬Í ›}ÚÉu²Ô Û÷ó™V/ýEùW8[îyÖ ggµ6V¨uo‹ez‹%t"I(òþ«Å2Ùª¾Xæsª°¤¤‹n—ß\ý×÷wúó§™)žÃ^¢j3C&í2üo57fZÚRšñUVXݱjô9¨ëIùÀP51:8ðÒÙBì×zDTªÐzDø¶ã´:é—hÞ‚p‰\¨xD43¦Þg¢Ý(·ÇÑ I§”âß }+VüÑÅRãÑõ?˜H š‚D¥Ã§º;!¨î/UÙY=PÞÔ¦q ÐMÌåËÖªÚxÀ¿ÕŽ±Î,­t½¸Ñs¸L/8¼¡Éùtn§Œ¤ãŸZÆë9+N°/ôŽä7§5^^¶Ž¹‘¬7h$Øk{ªvJB«c&ª¢ÈÓBÔKþú5ªÁÎM8ã«ö–B³€Ú¼1BjZLO½YªŽkkæ ¦ãÌ9O¦þ ¯ØCW0Òµ€<„•ÊV> %íwD“‡x½Ò5ÝÕÇÒ1yä±/.™ñMeI*ÐhQ·5LŽyµg÷uõOWŠ›J½e•í²wBÔCS±&gù,?·íˆa—F¶Z¬…§SåFÕþ5í< LÚ7º•ˆNXº¦ÿç¶~yÃÁ éëKù†6O©–‚ x[9ù’e\8öz5§mPø‰UJÆ]å:—wÔÊ5Ýuë<É3¾½X !Ç=¢Ùçú^êrðò¸½X²µˆ ·}Û·7T8ÙU¨¹.r܇Ÿé¶×㛋Å5úÐSµÖË,…ŸèÑkªˆÜüÛu1€¦©’\´Â’‹eÄZ÷€Íu¶«²¤]Î-+D徉f Ë>®'“,±bE®wÕSß{W€$ã®zÖŸxAˆý¤F–>“ì×xZêäDý˜\û‡5¼–~ÿ~%!;»r\T\»™ò¾ëK,“=NLs›'˜U”l©¿ßÒñ…I¨f˜õ'ny†­úwŸ±;m •N&Α …)ÈØ4ìæ— â„óïÆþ¦,a]ör:Éa_0e‹Ã0ô¢A:íÊ1µ?蹓-®wsü¥Öê/_wä{¤Õˆ!ÇÀ–j[O1`x¾='u®¨“u}ûLßa»Ä ^®—ØM7/8ÈFGB“Î>t`®Ðë½#ÚœjÕ=š`Q¢ mc™I.µÃdcXïä]åÒ*o`B±ô:0¹HfÚaCž—Áÿ¾$Æ?d ã‹æf~(`Õu;`‡Œ]é‡Ó¢­œ[î[©CäèMXº Nºõß“Ðy®t> tôÂ)•Õ45¦\RI‘Þ"ötØ€äWLP|­ÿØË7/öH뤎xóÛ…[t÷fÁ«Jƒ¢7NS›T)9²¶Nu±&}·Hàèi1¹ÑÑ÷Cs>La Y쬌ðÂDÆk[T>aÑÄñ­ÎìßF¨:³ÍXɘÿ:a­ÝË’û¶aNà{ºª¹°š Z 1„+±rC#ª©¯wUŸðGfµJš­@ªÍó{/Å>þÕ\Jà|UŽ&“6åm(#j™ÅdçJ8?·Y!ð3f¹ÊeÜÆ5–bÎ}ýžQŸ¨¡ŒBSs.®Öè&ºôj%Ãô~1·ÞêÍo/–¼àÇ»Þj¯GpÁ礷Æ9(’¨¿úüQƒ/Ê|fN õ¡NYÂ+ª Û­ô£¥jã¼jN‘Š•‹•Cæ„3 ÑoénÙÃòž)…/ÖÆóîh—Ä M>ëKî ÷€PËè½+öŸétÜu7Ÿî`¯]oòé1¬²4*üç<ÀµèÜù€ßOhYº«À¿ÔšîŸ;}z /jfn_ðÝ5·è€h®Ïˆr!užCÏcxëþ\Ž˜wv4]º8.;þQÔ=Ç°¤}’o °)Éä<Χq{·CË› l)´kÞšYoãœóðè>¼{ný”-ÿzøŽgØìZ׶}úîFÆ}ˆŸ:|Ïá.ªv¿\Vt]žŒKùúÇ÷üÚÛŠ+rW´·ˆTsÝÝbuXå÷2Eå°2*û¹Ö¸™¯©ãKÆšR`ð¯é Éu¡Ãäú £û±¶w ÿÞäVJÖž 軾B"ý-þáÅ°]ºÉmÖDÑŽ8}bÏ-hõ À yp‹Bùš•Þ~)0…˜W"Þ;Æ(Vu5k³Ê§ñŽ*R†Ge¼jÅÏ…¾/5à†ãˆÿͲ³Vt@P1=ÐVŒtöŠ=Jyù¼›÷ãf‡Ýÿ OŽ7efdðw¹Ü'žê@È¢75óIÛ¸ø·ÉbˆâK_ž›B²+7hÍó—[ArŠ=²»À~2ª\`¬År!í( ¶R¡"W¡ÒÊ‹+æ“VŸ„ZÍ‹âþ@Y·í÷ªŸR©_¦×l|²ò§¨E¸mŽÀè³MÀ xªÃÖ›Xlô †| F°ûØ7y;¼ãbù’+ñ)›X“t€°¤t옷ÈOW-‚“1ZÕ–ëðúÏ·ú½ð–ñHB½d«ƒLÝ·[VB‹ø‘µ¸®Ï²’›7L§–¼)íÿ™/lÈ4²ƒ JfÜg‡½Ê)Œd•§ˆ¨6‹¹øcÈFw4 ¿v¼ »÷¥ KìJú–>K¥¼‹Uôøñea0y„ü¦}W[$ê;0º„-àÅN´ÞfÞYu®NQAC‡D‹?tó‚uŸ šOÚÚùr…pÅDàq½Wz•L¦B¢’¶Ò¢ßí[ZÖ×oÛæª'yß*ný˜p.FÛwy ïK&KÖ¥ñ]J/|hÊ,ö?ñm×yM•ÒQÏÉ™/ï¸ÞÕõ©¿^Ö_ÿqíÛ}U”h.þ>ºú;µo‹’ú¯êðh»ô¸;&?+mÍ=ˆ‹Í¨î~Wž(€@2ˆgÑF}ÚÇ´¹(­ÕZ+Øc–öoqœhªø¹dÔeø͉VØL°çõpòëðÛž•gô/ýxhø‰Þ®‡@ÿIV?rúµv¬eÂÏêPt­ü´%w y[9ç²ä„Û¯B²§ÿ| D¬(xõ»g®ø9Ë^íQ…+:ÜÅ;ßoŠ /‡Ë!ˆ=N°‡ž›!•„Êùq~:ŠJ¡µÄzBû¾9ölE„]?œ°îòoC²P¦ æÎ?ž©óß%­Îµ·zRæüáÌø—_îÏþ´z%ŇÉ1È+ ž‡ñçËÕ½, ÕX=]nH çàƒ§Æ7¤ÚãõhRËõèU¹SM±þàçëRf8'¨Ø<IÁ`FœªTüVnL0õ)­Àe/‘–¢ð¿‚@löíœGù‡›µ¯Ÿæ«aŸÅ!"FR}gƒ.—·e8Õá}Î -R¨j y‚JCbò²É”9‹tRf´#I·[§5”-ÑpªÃuxÊ–nä>n9 JàC“nRÚCI]@áÊMf×øI%&byl= wN.¬Ò#s)ê<ƒƒás–Ð>ÈÕ{”Ô?JcëEýö5ÿk¼Ò¯ø«£§‚ůï$´æOà:§ «‡Q6Éïé!1„¨;Ï5Q"ýT õ r]Ò×áOÊö3ß›ñ9‹Û9Î/Ñ x8ÎùP²Ñ/6 )Ôò|cãÁ‹·¥¼Ì¡Íf¥5ýÃ= ïD)0gé0 ¼G:®î I <å tÇà%þî너‰éfä/,Á~«©{–ó˜L’ùY3ÐG1ca 0)=/wï^§ewŠ²œ G5RËê"y+…‰’›` çÊÄEA`œu.à¢ZÎõÊ«ù݇VSxÄ=nªÂÁeðß´ù¸®Ù`8:Öðßò| ‘Vº9#zo3p†Ã³ñWUòÝe'o:IÅ)Fy‰©'–'e¢1ÜÊ4OZ“9_°¦˜-¸_j‡½ YT$œ0øÐ,ZK~$§Ò%¡v½×ˆo•œSí”BKWÒß…ë0 \‹b>dÅúÆŸ8ñf%ËT¹Æ|?=$nW”ZååÄ8Çû˜ÐÈb´]nåeaÈwCÅ×è †"BÔ®å‰˦ð/8zIB,±ÑÒoDÿl D-…›C+P/µCI²‚ô<8Èm¹vB;hZñPĸ §®h‚ïQxÌ"íÊÏzVÀY§Ü~·lôg9@bÎÍrR­º¥ï@ÜCXSÈæ~Ï+A‰ÐÑÇC> ~·ük KÎÓñ(:EÉ;ÁâBë5ô’Ìܧ@I¥òÀfYJ"8‰Šaˆ·{W#+ “o©¿zå”´vô2keÊÅÇË«rS[‰½„ó—ß̧¶0¡ ˜:Ù*³oÝÖšÈðig|l¤°QWOR’§zŠ%E„ÿý?T‡endstream endobj 695 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2448 >> stream xœ•U PSW¾—„› R¥µ×¥ÛöÞôå ¢µÔú¢Uk+ñÝV!$I ‘$¼~Pˆ<#’B€ ¸"-­Ò.>S꣑jÝmëjÛµÖquvÏíœÎ¸7`Ŷ;;³3™;9sÎùÿïÿþïûIˆ½’$©°ˆyþMçŸ$ù§¼ø§EÅØÀÛ ÷?ø‰÷=5©â1Ôù(ʘ‚¢ý Iª2 ÂÔš,­2)Y' ”;´hÑ‚ iðܹ‹¤¡ér­R¯’FÄë’åéñ:a‘&Ý –)åº,ià«É:fñ‹/ †9ñésÔÚ¤%3‚¤¥.Yº^ž!×fÊ¥+Õ*tM|º\:nÎØ7L®ÑëäZi„:Q®Uñ¤J­ÍÐé3ã²d‰r…2-=höœàœgŸ-pADk‰ ÄF"Šˆ&Þ&–aD ±‚xXI¼A„Äâb21…˜Jl&D„7Á>„/ñ”@ !&tD?ù8ÙáEy¥y-5‹ÃÄMÞ>Þ Þ'))•@Ý“„H¶Hò%?Ò«éŸu>Ÿo}CøæÉ|3¸Ðqù7ZëñËÑæVÌ‘Eq›Œ)rÖQÖ˜À.¥²ÕšÒV®mžX¡ùTƒœ]0s›Q(õãèþÁÁ†Œµ,ÎH•d«„SÏ©™¢„|%.4â"?v£&!Ÿ¥1Èö-ì½gbìc&#ñ›ÈŸÅ2<—YùùõkgN=w:"ø¥Èå˹qÈC.Ít‹­fn|ƒv‡ÂQTt‹½ÑÑ”{dáúÕQ±\§¤«°ZÉb1e‡½›û…L¬Ðª¡C€§àaѾ .Tãñ¡ü3ŒÚSu%¹Eï±ò¦0ÃÌsÕÑ}u…\w¦£äŽ©mûåx‡NS%ÏZ#³7°E¶íµj  3ps%fÐ8­ Ç.öÃäa°·~wp0­3ÃÊÉöj+g[ã«VÕB/Ýæt|ûí¥¾œ­P·Ã. {¡¥‰ÇtÜuÇF¢Yõ¼ƒ^ž ¿|…j‚…'!²PbÒ@Jª§G_a3õÜ…äóßœ=áÞ¿òL†ÒÔ2¶4V¦W C­¢?Pÿ3ÆÙ¯ú® ,ÉU.ŽN5K~¿¿“š=²õ‹ý}•û³;Óm°èÑßöÝŽî¸ÈV^#â— ð;(ëø¶‰Ã¾Ô¹´QÏc×óÈåÝöP_|'úÕA!/|µNÑvx¢ öB]=^ÂK®ï\ä17Ò E,A=Ì¥ÈKXºi:,S5gµîî¬ú€uìØÕ@_HYÃáR3è¥g#nÖÂÁ!¶U9]@;Z¡Ë)À2g‚ez–dÊ IÆwa;Ðkºúow#ÿòûÌq!¯1òÊ…¾¼Êú{ò~ʺ^¡—6¶3ý`V¿ ÑÍè14é•ÛXoT%sxªøøñÁ“g¿1/8üÍå+¯e…Øàâ÷ºÈÃîqÒÁ•»*,ÐL;Õ`d1E…L9UÙÖí\e©@Äà™êWò”%ºŒ*ê0Ýz. qV¬ªŠúJK-Xi¡À,Ï]“Àû¶º‚ê÷„»B×ÐÓøn@yéÎ\(ƒ2Ý«f•^¦ÊÓ–ZšJ÷kk²€VgmÓÈ:·=7tê›î]λQÚ÷"^HÆn®Öçdƒ¾€-2ã_zþʳW?êü7z¼±¡ vr¶Òò²ò‚ÊöüÝ@·Ûlí_€8º?ù2žüc š‚žë¼eý»Ýcì Òü/ìâ Jß$k‰l)š5 ?Š§\Ÿ‰ˆ#‡{z¸40þ™ý•CÑ4&êÝÅËV®ýìê5×Èç'>|;ŠOÅœAº„jFEüb´Ž±5ÃD‡ÿ€<9è< ûß D£?¹Þê©1;G¨‘ËXÿäÁ:XÐm¸A—Ÿašþzúà_àÚdYFÿ2ªŸ0­Â}T{|ëóo}¨ÏO–ïcwhì&;ÐMm ÎS‹À¼dñ–¹wfMøø&š>aÔ1aŽéÔ/Y.ÿ“DB?Ì8t-jµN§V·èŽ–‹#ñ4fbêyã!<ù¡Q>4ðYô5ÆòX\^/@,…ŽþB>žO™5½6Oœi?ëñ´‡ÖW)k»g«ÇÕÓ #?:(ÏOÄoF3Í€ÄÁù±ðN[ºsÛ@”`°”BÕÖí–2®ösxH’¬¿ÏÀõñÈzHæÐ ÉW‡úlõÙ,6J T÷«8ÿñ¸‹³#_4•D±(P„œL‰>Kþ'cÁ{YÅ §ÍÖ¬&çcH<¬8—¨MOQ´kz-–òò 5È~‘ü„Ÿ+â ;S{z( —Ã#Tžò^¨{¨ÆƒO¡Ë§™Þ´öT…&-UÑ©qö¶w:ïœç"~ªÜ¢‘SLaQQ˜iOXôwª«zW7×!Ÿì™ë©cH|moKoÏ…¸E£I—„GÓ'$d¾Ì™oµµ5î³ZJ*ÙÆþþ¶€þÒ½é•×£"e)0¼ ù“ü*ÞÍ4š9EE¬9[•± òa{¥qwnÁ®„ Ðäª3ã¥ùOwë-–êjÖÚÐÑÚ5°³¤ÑT—kËì†Vh¯sØßï­¨ÒÑ;ª²‘÷ó9â‡+?ˆî_Þ#øóÌ~U½1;© v[ã*´Õ¹-ð„ êêÊ[i´)þ×¾u¡ý„ )®¡H× 9üÙ]×ÏDè~€9PÜglH(.),„L:m¯É^ßmé?-ûÿ¡–= ñ¼Ù) 1± &Ìo…Áˆé FÏhi¬—$UmÙc>ZUY]{è¶L›Ö”V¸%l`z,W8oM—Ú­B”ÛÖs£ð5œL¼†ÚèðzfCml7|=Îþ õ´ ;˜ÓÙ}[ 6%nz+gŒ„¿¸HöòÑ"~5ºÉÔöºH„lߤ²A®èZÝÁALÃA8Лy橼$A1¡«÷'ðÎ/ÆݪhvçWXpÀÕÄÂ]µ»šôz¿ÓRYU µtM±M£[°nÞ6z¡1VÀ› AŸ †]ŽÜ+ ×*[Íý˜k†Iä\ü/4ÌÀHöU7b.¼vb«0ÏKô…¦š¢êbÌ;„Yx–f†ëß•-IˆK+,.ɇº *³½å«á«Ÿ°ÇþÖx ÎÓ“ójù°]hY-…·UI\¾îI¬¯8Kíçãòósû=Bÿ7„§Gendstream endobj 696 0 obj << /Filter /FlateDecode /Length 162 >> stream xœ]O»ƒ0 ÜóþƒR_b¡ C«ªíÇAp¢†þ}I€ÎÒùîä³l»kÇ6‚|‡/Š`,ë@“›ô4XeÚbÜXž8*/d{Sþýñ‹ÌÊïj$ù<Ÿ.yU®!tš&¯‚âD]MmL#ˆõŸ´z³9ØdT\ý»’¢©Ä~p8榹I*`™~ÏxçS ˆ/v³Tendstream endobj 697 0 obj << /Filter /FlateDecode /Length 4482 >> stream xœíËŽ·ñ¾ÎG ŒzM‡ïGH;Ža/ƒ“Ãh’‚{v%G>äÛSÅ"›Å^öÎÈ‘â TæÉb±Þ¬žoVb”+ÿå/vg¿ý[0«çwgßœáÀîÌF«Fï¾™à`d# ˆ ¾8ûûêžÃL™Ö\å.v«?úÒ£ˆru~}F;Ê•RqÔÒ­¼õcÔvu¾;ûjøl-FÒjØ¿Ø>¬7bôB˜0ܨ&ª0loÖ­Õ¤ö×ëÑ 9|‰¥S6÷J!¼l„Eð*5¼XI¡]îpmƒ¶n À0š£\0”º©åáþvW°ÿýZyØ5èáÛµrcÒÛ.µôj¸ªËýóü3ä¼å RQ.C¬Î/Ï×çÿ:Û#WmÇàKÃ"J}&˜iË%pêE¢ÎkùC´À¿ °otÀ³LG4ÞÛ $ÚÁ]Á<À°£ v¸©<àȯÓ£Íè ­ì£žÕ­·‰¿F ãý²â†ýmÞβÍ"ÌõpÏ4ZC{»ÄœCH†Œ RwŽ“°™’ˆÒ»iâð lŒ.l‡×è…µp° €N¼Åéï"ßEGr˜Ž¢"ÀNÃå/|‰Âu\Ú8i¸„“Þ¿þ±®kŒë"Éà_;ß²¥is#E–ê 2Nk3²€}5l‰Š´ß >¸C]?&E¸¢¡[E(’ÿ+¶ñ= 8Ô–f ©›ÛÁ³Ê¨ ÈÚmÕ ç7ˆÊ"C˜«È¦¼‘z´ üD9¿æÄ@¡HÙ¿ tv.p¸—Š þ6ïÑ £@c>h†ëÌ‹tÕ Ð>ó2ÚñHZØo²O"ƒŒyǤsE‰Ê–Û㨉Íè ÆÙD)¨yŒ ;¯2Qæ ;s·%”ä}»F&[ç4· $ŸÞ(•Ô_ þñYláV1Ð,G£%鈋JoÊñ ã*²Åƒ((¤²{¦Kš‡šsŒ¼—ΡaªöƒÎdá¶ô°gôÁ€„©†Oê¡^NŠ¨Z8Ô§¤2ŽÎ«¢Üê£H‘VªÆ;s؈ÈO”œ e¢-'’ͬZØÞi¾<Çu›ÚѪè–,†äg´ÔZ¼ˆ¢P¤DùؤD!Ðé™>¸Z‰6¯½Yt}€9¶fDg—›Q ~̈m“ Vøá¦Þ±Éjç“ö€¿Ö!ö\™WvA Ècª— „kX~vþÑWÃß`fŒÎ€ÿÃzc•Á>¦ƒÂB dOà}ÝE+xè"ÜVm±¯à®Ðà†ß×ÑM}YG¯+x•@pm19® ÞU!üc¨ðe·¼¯à¯»7]p_Á‹BpžÖѧuôÃ:zènqÛ%’m±« [ìIÝBvGcÄ:iø$áïW ØèMw…«®ðÜÛøê4‰I'¾î ÄONbúëÞwigÒu{Œt6í‘¢ðHŽÖNÞ„ ‚/µ)m4ò¾„쮂oº£}yÛÛ˜Y‹Çå-ü åQù¦;Ú—¡Ý1Ò_rrú¢—„ \8ì"d² Ù$š¶#zó\qSÖÙ$¨³OߦXB›‚-ô³U5µ™Þ’ƒ·ÉU×aŠ5œMòwÞ;_!W û½;¯hsÉf›N±Ë×,ä ØE„ ÃÂ2<éú`Ãçaž¢ÐS5a 7.÷:°—¦ ®0Æ4O§`X"OJ§>΄œ<+AÁá´c©*EáÄÒ—´P¹œÅå<ï¤pHñ~ÌõMEÖعáafãI5¯!°=XhĬã]Å}ZA¦CϺJÖ)¸µaz:v}È÷ŒP˜éoñpiGix;3×q»jƒ¶¼¯àË ^4öŠY´G¼æo /ÑŽ¹(÷0B:M]t¾æ+ô$ë“ŠðÇ ~^Á/+øq—ãGÝØ–û£Ó§-ØzTåR푹j »³z2®Bk¤µÓ­mß‚'€$ ÌPHUªTfäÙß¾©â0X 3<§i1,ed¸ .–,'«ÁM%áoóýTû Q‚º­[O{ÌJw©§£iSÓ-«ã1ðÍ:h0¬&Ý‘p ¹Iâ‘JôE,‰Ç*VâDªÌM ø¬¾BÇÓ­ îeëtoÒÍÌ1öÉ×_wïÿ¢+ Ìò0 Á­Û‚°˜0FÈûùžÙuqN¦bzª?.¸M–Ñï§j-c_oŽqdË+‘©¼ Q³l¹ŽÅÊH+U•‘H¬@vCSR̆GÈÑ«yñ0³Ä«hpÚ. A’J²Œ“nt=îOÝÍþ§š§w+žo¾s©žÚ,äj?¤þ8I‰JR5€íuå¹)—Q»v 7MÛuª;3³aˆý#f1À<ùñI€aö7I´•¾í§=Êm­9Æ•A%ùË«qróøjÍ‚Øi;f)Yè½Ú6ö|:ö³¤êø •OjÐs=ãïl¸‡Š<½)¸h–ʨ—Õ£Íuyf®p[…˜S*åÉ\°Ð¢Ÿz3}<šzã¤ϲårø¬‡ïêèëešÂ¦¯ß—©‹¡ÇuO3ŸÍ§Íý±‚¯*øŒŒîÄE4º6§¥ÕBŽX³ˆVc@ô¼n_ ò¶Î§*÷§{< ·SùèA™<§OxHL’Yl7 q®[Þ¤zeërAFzZ•xfò¢¦쥢_ç ,ÚÛ‹G Eˆ`fÂ;)Y^aMS¢Zh\L²ë±ËSXð“¹ÂdžæÑ`_È“nÖþˆ£¬Àâ£+Œõ CŒÄ¬m©NAÕe¬ùL½göa’Ð6}˜¼X»Å¨Ã.ZJ°ùh¡åìP»¢kLôšúâ¬eNÚV˜sàúÂáËòâæ‚sò…U~%Ó‘ú½22+ð²Ã>|h2¿¸.ˆÓ×uÝ-ï„Ú²ž°«ù•RQ±íœ,u&€‘üîTË­±i›æßeÍ£DæbŽ·¤ÝдImé e=P¼’z·îɵçëŸeåð½=Ðýô^Ï&ð{6 ä7³GË›:ö·­½O+xÉ&M[l.(/vSpŒûñxªR¶æì›õäL_ͬm’_¯­MMºÅ£€ÅnÛÉsÐ'GÞ>÷( žüR›ïÈØû¬ÍÓAï¶ O=%]{³žZ¾©+ä©I#œ–·eÿù£*¾ŸœåñâûäJǶøã󳿞ÑW@vuxäûàW~ }¾ù°RmIü~¾c(Á2¶ÃcŸ…Þ§A–7àve¤eÏ«ö^UÕuØ ?Ó¬ë:úÅ1Õë û…Ÿ}—)/7óysgqÝûâewæò¸Þ0Mg‹¿¬±ÊÍ“ êy‚×+ËþµÞÁÌ['ø²{̼±"X¥­Á`eUVGótÝQV˜eF˜½–°bÔâÃIÇb-âö«`TvªK“‰ðËãÒÿü¸4åV/«ÔÝrÛ0ý¦¡¶SÈÈxB÷—¥ÇŠ¸?Ê¥æ)©\8þÀ@fÂŽ^›í^…åüŸ•Ëç+~+½QõÏ¡KC_tŽÈu·Põ@¬iº//¶‚ƒ?†÷¢býŽ>*ꮩ9úHÔÌqaÆÈG,[¡oÞæe¨‘¸Ó%C[ìÁyIŒ]K"×SÔªAkWßBðúç³A«´ µÚAÞoôÓÈÍÙ—‹á­feÙ;ÝF=¹Œq£±. 8B%dªIàLd.ì›>uQb•‘##M¶É ²ðß±¤l <É+Ž’d' c3Ô÷4-ˆDia@ª‰Ç@ˆw~8Ð!D€¬Éz>™¢¬ÞPˆž ²H—_¾JW.xºp‡ m2dAâçј§ŸqØ4«I8¼$–ÐvØðƒÒÉb %=^™%Ã>¸T™@‡LGÁeñü®²k¢Â/fTêAƒ oë­Óc…Ó©<¬ÈªÂÄ„í|—™¯s¦?‰)WÄF(‡Ä~HãÝpÕ kÍ…+N“¹+¬1`¸ 3$zxpvÔéá®ÑFCÄ“žç¯i&³^Ù`fk,ˆU¨7ø`™¸ ’pÊíƒ7ù ,EùQ‡e;` Ø=U+™B_Uð¦;úúî &ÁØÑe3£˜>wªæŒ8e΢—¬ÚÑïN$WÓÜĶ‘ í ¸ÜÇ}Ì€rĘهI'¹"àKÇrŠö´þŒÁ´{ÂpQ}?ýÄ=MôïH‘N0°ÄJóà”ptn£^¤«‹ÂRµ¹pòò{yªö”…ø!iÍtš¤#Ö»òŒÂ{“U¸!J­Hâ˜<¨‚””¬øs¨ð6-\‰“N‚ĪaJO‰ð·O¼²­9kKØ™ÀmKá7|YAV¹}½€@Ö$àÏôÄbMøGAs_}YÁR “SáDNulùþlÀ» 2¶ÝýÔA—Zc/*˜‹f .\–åÐiôª‚×ái?¬lÚ¶‚·¼ìÒ³«à‡GI»ìîqÏG{T.M“)"7KY9b›e”#Z…a§IÿmH·žÒïЀJ©ÆĽÆ?;ˆÚ ÏdÑ:é¬ýäGŸ'C–,³i‡Ëu±€š‡Á\CsলH‹%ÚXGÁ>ñð°ñóÜî] Ý ›^^䉹I£‰ƒˆêm¥šalò#Ä’I? 7è§yÂýzzR‹A§Fƒ ©c ·1!ùýG­¼÷ÜI²y”º"ÝST†‘®Á‡T~9(çuF>]z[ï^‚è6›` }–½äofò8ót¦Ã-~j‡ÐÖÇ*jz¦78*–Þ¿âëд1KšØ6‡¼ÌŸU+4âêaúæ£J펈 Q2ýté=ÒÆÉ9ÛXÒk-“K}Êmd¹„TŒ¬Q9Ì®$’çËh”üÀÕ'ÿÜ—×óì>ÝwtFr±€dªxàÿ»¿Î¤endstream endobj 698 0 obj << /Filter /FlateDecode /Length 5491 >> stream xœí\Yod¹u~—çÙOy?T%]×—;™ÄÆð‰3 %~hO€j•Z-·¤êÑÒêvÿž³ð’‡·xµÌŒ æaØ/—ó|ga}<êxÄÿòÿO¯Ž~ùm´Çç·GßaÇÕ‘KNÁCû²´£UqHÐ1Ö滣?_CÇ9|©hÎãü¿Ó«ã_ŸÀ¼Ê[èÒ˜ÔñÉÛ#^Qk£üqpaHÆŸ\½^ýn=còÚèÕþÚvÔÚ7ëÍ8„q´qu ½&Ú¤ãj{¹Þ£‡¨ÔjÿÛfð£Zý~¨¼viuM5Ža„ÑØcÐqÔ« hk5W·8·IÑ8¿â!0Â9äT ©‹:¹®?ÂêÖ¿[ë«F³zXk?ÄQ…Õö§KF½:«Ó}wò;¤¼“ÒI.c<>Ù­´ZŸü Æèå µêxcܽÇq¯WßÂ)ykÓêקÍç^} ^ ]Z}¬Ímm^Ö¦š>󫨽›Úû’ÉôS“ÝP¯‹1AJóCmþqUÛßÔæ—µùjš-ÂÞKïø‚æ×k¼e,u|òõÑÉß,‘òm=ƾ6oê‰ò†©û¢v_ÔÞëÚ«jïßÉ+(ÍñM8F™ø¿èDxŒ¿]oô˜Üüþ©»³Ç.&ï·äÒ¼{Xuaš]v¶ö2-Í×òD¥ùÝ wÕ]Mãse”‹.×}|jÀUíÝ×æ®6oëØ_Õ槧æ3lkóNööæ}ò³þÖϺcß-œ-ÏàêÂnõ×4 *V¿©Í¯kS 6)í_ǘ¨¡#±F|9†þþ±6·µyY›¯kS×æw4ífšwƒòïxòÈ™úÿ9óÿ>g¾’úË(‹Ü³zßU—ïä–;þUmžÔßÖæ¿×æWâ,í_ÔæÎÉwY›¯kS×æwò@j´aøòߥ³owžuUAòì†"¥),Þеƒ®klþ÷Ž¡ªc`Dx<† °|³g kGï^$³LŒx×ÌV Óˆ¥¿‹ ~CFo‚š`k²Á‘²2£VÚfL^LO19¢nuPqµ¿Æn ðÖÈ°Eg€¿Á!Ä,úÕ×[¤"L%òßá¶Âà%~-¨[{X¿¿‘ÆØßð)}²3o{-ÈùŒî¥@«[Pð!j-“¼‚É_ᇉ܂7`B<ì*6P¼¤‚Ó Ž~_½<£ãÑLø(·”o+Æ°°ÑëºÑ†Ö:zPÉ̦‡òà,HæÕÂnÝd]ùjc4Ì(ÈsVžB%$×Gôoô8*¹ay›»LZ2æ°hCf0Ú¥¤ /go‰…`;»y{vœUsÏi“w¾)øÀŸ€Î·ù²Fc3x3š+oŒ'Bá*õvܲq~/ú³'çá"ñ …M¢$go¹…gLàí±W Èì*‰˜,Þß—Rtš´†+tVò÷ŽO«çå€íêõ£jÁ[‹ƒ6,à³L·° h°=c(^Ž˜h2z Œ( Öe€’Š§~kdçÓz³«­4!Ö­x•k/Ýè,j Îb˜;z°LR¾n<œ%Éé¼S¾‘Ñyogž\EŸs¸ˆ¬&© Ɔÿé ‚‚?0âËDlŸ€vmA{Mèã_ŠxK^$UR)¨ƒ¡¹¹’à~½ú§-#^&/Gš6²äŸóò¨Œ¶»‚ÿ$s~‘ âO_È™]¹b¯OYôãh 8µ/|ræ{É…»2¿åÙÐ:´Ò€'q±qe½:š"¶GZ£†š€‚Þsf„œÜò–Pw¾ Áy^Cé¾¾å#Æ÷”5@Øk4öÁ¾»ÃIP¢WέääïIÀ¿ÀÜÝ2åF§\7ŠŒ­Kêöd –˜Õö É·uª£…üxN?DŽÑaˆäo¬([ÿý…6&D1Ýë̤Pç!!o s3˜¾± µKd/Y¡Ä¨f6òôõ<>V0o¹³ªx Œ8bA¶]LD`p„>®ECÓn醊brÝ8wB/ žF­õ<Ü:õ<œ‰½à#d‡Äƒ–o]x_ò€¤ 0y2Ž›Ìõ´ÿnt}x2‡+Ø\^g‚&?‹0c/\P€4ª‹0Sû·kIï²ãÝt;`ÞÒÚ Àí‚C+ô"Cò”àŽÃ |QYU iz8ð0&Óú~k€p+µ)Mo¦cTéÀýÍLzÉ¢>N,_³ ÚÍ ¶u‘¹˜‘JK˜šâ…Áy0Ïù4‘™i8YȲÏÜ…¦)ELéÞ Ô}Và¦00  ÀMÝ”,µè†h@žIr†ïíüžÈ"wbÀ\EªXiŸZ°û”0n§K ü¶ÚîçïO-Qä–ˆQRqóhm:¹äÁ ¢ô‰ŠþÀ×p”~ꇄFÁebãÇ6Þ›¹ÑçxCÍSáÞ2ä×iÔ Õo+Ú”"±«£‡¢¬™÷4¬/Àh}ï‘Ù„þ6Ï­QbïîÎÖ6¡D‚ü凛µC»¯Q?@ ¶ªäâôŽÿG$·žÚ~õq{yvÛÏ_¢NP±Zí¥ÀÓtø®‚Zç’”šÃ‹»nS¤|wµ)ó¼ ’êHs«gI*9"ψ9ì©.ŒÍq¼*ýaÆYN£Ê_ôÏ*ðÜñ€±U¼çnªìzSeŽ¥R'Û³¯åK¦G )ÿ¢nI.(-‹t黎+¸\w23•ƒ_YÒ mtûƒ²}ÃzPw9OVEP6¦°Óû:w@€Âh„í;áâ »~sÁ“°"cô0'ñ 5£úì@­|æËÞè®_ jˆ›Ú<«Í]WŒN»bô-hó“Ë‹ñøƶ¹xଜS.„: ’î9 ç#±lù`*Ê4|ÞK6ÎàmxÄPwô²ûI,™ÅõOnÉv¸Ô$ƒÐá‘Šöoª*”z¸Ag8°ÿBÆ°•ßâë/dL…;Ù"µi‘—!5ü qˬh»Ãè–P«P["¼ô¢möfÉ,Ì_-Óáj>µBƒú¢c¿©#¶,å¤zL¬ÉØ⽉ÍW¾haû»z}‡&+À®fëé˜ ÏEçX·ëÁ¿8öRRÈÂ4}³_«aÂD\Á׬ã,"Ó§Âpöç3Š–ï¬/Q´~°b–¨˜å×AG¨Yˆ{£UÂd9°…¢Áêrœý·\»…|‹F¼‰0+8<(éÉ«>ZÒC_¾ÊRc¯¾Ïx;¶Î¹± 3,>G_¥ùíÏ€£1:\¿´3J´\sXFýX]?m1óÎ?‚9®° !¼5gÜ«CÛžçL²}:z鉾¬É+»íÕ›‰ÄÉ{‰I›7«=~ž: µA¨©¾:—N:Ðô¦ØÌC¬ö^:ÖËenø{ €z·µ)ë³Ú¢§q*´lJ“Å#)Ö}yoËõ÷?[K€Vºs| ”Xõº-ÁP\ýÅÙWü0ðWœØ`‡ÉÏî¦YqÖÛ ¡ÚŸól˜î–/3LáƒÌ•‰—0TZ/˜R¤ùD”ó}ã)0%Ô,àIÝy.ö¸æÁ.6ƒ¥h°…À &~[ ‡ôäp’bÚ3}M„KĵˆàmÊË° Ã©†_ô6¨qÀƒåB¾¹’hŸÈ0i üý‡./D)-«ƒÊ¶å,Ó±[§YT‹ˆ¯ôÞ³Ñ p·×Jm{á FôôžDXîj¥ÛcùX‰loñgÍ4>íÁÆ@çÓhüEÜb¢¤tõ®Oׄt9C-á>ÀüŒÖœ1ÅF¦<7¡'/þS=š(©—øp)<Ù«5Ü>#‡ÕžýBŠWTäñ†Ë>ö+)ýðáíú§²?F¾ª³}|jÀ_êi½ø÷øO üÅ"®KÐ#Ã]÷³þÃm1ÃÛ.q„“&~Ú@8týŸ6^Üy·W·ÿC ú€þ4Ãœ*¥ÏHÜ–Ÿ®¸•ô,”;íÞŽxƒ.ž®¿yÁg÷Ï¢to…W<Ô¦øy‚—|v/?+¿ÞK1ÉX)2Ô¦­ÍTéôMÝù—õúôÅ/ÙاƆÚçcçç?]äêXÕëd³[Ìc: UŒmâlÙÕåè@ç+z¾;øç–kz(|ñçn!O®ú1€¿o/v÷ÛËGŠzj)îïÉŒ*ü‘-§K9,àAi»Ni½u/MÑVþ(ÀVdy·"¦‹Z5ûá åœÖe¯‹ÒâaòŠ§¸¬¦ú2ï/Æ%ŸX䌛Ç3ôNq—3^ñ-Eµaæ¤zÕÈ|*QÇ•G£k±åIÆYµ«xSöÀ#Tj³)Ã=§¥q&quÛ>”ëWüŠÃ,Ì’Üñ†±˜õÅfdF±Ê5!°¦.—ïÐàÛ•zØö ¡Ì‰¿2gBùX ±*|Ì5u²8àŒ{Ñ} LˆÉL–ž[ÕR[\"¿…=€û…ˆXäàq‹Q:Íã28¡ªÛ²£ë¼Èh–]>^ó^¥…Š%å5ûüÐæßþ£UÔ¼2ºŒfO^BËÅ›˜MϹ¸ä5°Pa!g)Ybû¬J Þt“ç’5LW™¤cË–€QN$hh$–”/¸I³7B8_¶TÒ-×ÌM÷³kD¡zZÛÙÛ–Í´¹6.ñбøEúR¢nŸêc”¥À|ÃDÝ•éNlšF¼ðï?;¦X·rôB›C^–Lä#™e)ó!5ÜV–Jò„ •Dj²º¿ŸùÏhõZöÄ^,ÜŸyIS÷*;~ËÒ›«î½ ;-¤Bš‚YE~TFò`_é_×çå¼Â°\—(ÛBQªxþ6]ôì­vSÉ<ý2ÍhU¯Æã­ ‹ÃIæ›W l}ïòMxîðu.Ù¨[>eÍ.`÷Ÿ†mé…¿W*Í«]èåþ÷?é¥(%endstream endobj 699 0 obj << /Filter /FlateDecode /Length 4780 >> stream xœÍ<ÙneÇqï´‘/Èß|n0<ê}ÉØŠØD&à‡Q€Ü!9Z3÷Ž†œ‘©/Èg§–îÓÕgá%%'ô0­f/UÕµWûý¹õ¹ÂÿÊ¿Wξú&¹óÛû³ïÏpâÙÏÞŒ1Àøý4NN§1ÄjÃwg:?ÀÄ-ìÔtæyùçêÃùo.á\LYe}~ùöŒoÔçÆäÑêp}³õç—Î^Ø©Qå`¬ŽŸaì”I0þ´»PcTÊ¥á³6¹lÒ°¿»°ÖŒIëáøÇv JÄ:Ÿ‡j¥¢‚Õ8V)š¤Ìpc£• i¸Ç³mNÖ‡—À gå’+±¤]êåEx¿‚Û Üÿ°3nMvøag˜”ŽÃþ—­Žf¸iÇýçåò^Èd3x u~y}6»»üóÙ…súüÂú1…€Ó¯‡kº;Ú˜ðl¼;çlxZ%g¢DàG¾1»èáv5ú [#,†#ý´<«B(NÁ[¦ŒS VÓaž ºÆiŸsTðlZ—×ðnŒÙoé‘¢†óŽŸxÀö|ŸR¡;[Rýs#©¼ç‘IÚÈ'}× š\Œ6®›f LÈ“| „ >ìŠØ …‡ËÉO7ÇÜ1 ãMÃÛÛË=‘Ï*ŸP†9Ï`nXí·–H´*ttr Ö9¹ö³8²)  ¯‹îÛ,0P†¹ëuG {Þå@œâØã¥~)Ekš¥ÌÉÅ Ð÷{@Ù³[Tü@ÓÀÁôv @à/*ôÚŽ”#A›MÎ)¿í.è錗"r#  0¨o‚<û”¥¸Œm(7Ò4¼,¼Ö+>#æNÌXe à’—‚£g¡›ÝðÀŒðž– ³N€ªóþþ¾]wGZ1ã ܃K^êÊow´Ïëäøº ©A-yêæßÎ.ÿîõð»]²€¨4Wã4À®¥*ø îN $€$Ü’K 6> >AÈtÊZE¹(Ü0Fxšßý”!¢M ß²Èë˜:-4‘ÁýíåÙœ±Áò矶MM¯H«¥UØžJcdhƒJµœúâã’³sò¼×’ í Œ¯ÚcuFi&‹ø N¹ Í€ºW¤œ^¤î¼=¿/–'Kƒ6u¨-òæÄ×…I€Mµå1ÜÙ7)Ð/h Ñ¿á•¥ôM3— }òÉliñîˆiAB/D…u‘´ÚGäÙ¨Á å§È¼Pb•Ê"•|!»Š…,„-¯ê•ëA&¦•#öa–«0Á4ÇÞQi‚7ñM'ÃþÍn2?B;€²qYÎHs“þÑVƒ‘ßtNˆŽdÿ_ø†JÁ ý€#2ö=!ÑiÊqÓ”+:“àä°eN`•ñ•:+î‹q €Óe5ü9o8ö µ5aì,4)ëWg\Ú:Zð‡<ôŠðè¤3Pd"d£¥—Ó»Ÿ´Tï²bA'Óà´ÃŸ;Ï‹¬¹ó£1՘˹e\¤Ÿp Ú‚¦dÓ ¼g.7®2oFæÒ’©‹*Ý#¡96ºm¹È{Cþ±qŸði™øÀ¨™ex]Ù"plŽ7<Õ#˜S“øÆ46˜¥m~Ç€uÆÒ"•·†“ÍR­{¢¼ ßGà€¸¥×[!ëVü‚d2׫ͫæ<=ð¶ b2sÈŠ8÷¥;AÂ(Û)Qr›ÁÉÊaA—ªM§gøȬLÀg–cº†^*ñªÍ$F¹åËáÄÍЬ H ´C³RåàÝ. Ú¯ŒÞÆbÈâ>Ûá*€ʳR\%ÁÍûïÚÚÎÞ ©ã}álIA=w/]^²`%¬= C8íÈŘs>²Ì4{ÓA¡¯3 ½â†Ôlr›ÏUžÁ?é¹bÒñü-˜öx+ÿÀA;¼žïÖ ¦˜Yá£?–ÛÖý¡y ×<:l;TrÐÔ…´5 `ÒbÜw@¡Áµä©Ãi l[#_¯ÛÉÍeí¿ôrOðž·ƒlCd`EÿKOAøAûÂá'rÚ¶-uñoçñÜ k²ÏÞ=¸.ZøK¾¦Rm5#ë’ëõ[¡X¢™[“ ›¡WíšbQ—^: )à|©ë¥[…>`¶À"~–¢ÙšS©û¦#xŒ•.ˆUoüEDDºØPh(„çÈ—ä,ï8–¥ Îo˜a­ÇÇÉDÁU“ ÇU¯ múß'ÿôÀ'øìŸTû A½º™d¡ã¢Ê}JƒE]9ßëz ˜‚”¶Å—.×=ü…àÏÀ?r߆¥Vd/]š÷MÏ:nY—} Æäôšoµ^” É÷?Ǵᾠ)©UÆmx׆¯Úi_N-à;À8¢¶š†×m8œ†jë¶àMÞµáaõ°;÷«G¼_]ðІ¯möfuÛ'qónõˆëS×íWÑ_lKÚIJ†påájôóLF¹oÇ6ü܆׫LuXÝ&e‹ÛbË9=«'ðœÀè¿€pdqò´; 1È?“’\€ª „€¦ñGºø¢^ÔŒzw¡}‡[ªmÛÐœæÆêë'Ä6tm˜Ú0ì0§OÁ@ÌÛ0¶a" ‘L;ë¢pµ´1{µÐ†~aÛN8 ŽkøØ6Tr¶bi_€¥=…exÁúÕÛô °ô ½Š¥šäÚW©v«èêÕóÅ­yuV½Ý(©´Æ'Áq«8Š÷5M¡ÇÍ£ÿ©Á !dÅPˆ†EžÇ‰â ãV©V_ñ©§›¦åak„1O6—é ¹£bù\jè¦ü…X§†–ϹF wŠi•ž©;áiÜ*ÞQWP³§´¥`Ú¼:kN¡fW·¹î„ Ãúë Ñ^×ef·Z¹G¦ªZõ[1YÉ ra× Æ: u;µà¦—ìFsO)dð^Á?>f¡hI.<–%ªÏ›.l¥„µš+Éã{ Ë:‘Æ4ά\„+<Ä_X.¢%pãérîÂ\Ùj¶QDu[½ë¹Õ>¬´ø¯¶M”0J‚¢N©síW ,ÚJ…b`Cì’ ËÖ ,ÉQÇAú}ÉÊ 6¶†ž¥Jq› û$„þ^N¥Wƒ½£ oß1öab§e¶²¾€¶Ž·»’oa(û| S#êš.(üÿ¼ÇB„räB¡êøF\ˆ ‘ùŽWÆ<”þ•@Ór¦µ{)‹?òNl)҆ǹO•.«”X–ÿ6ŠºžrWíÍŽ"Ë)j¡l#"VQŸ*5Àhû§zä Ÿªâß­¶Ode7q¼°0±ÿÇÒéàŸ¨p¾%ŒaJáÏ ÎS$$± Bp>Í2,S¾q£ƒKÖ·ú"^ƒ æ…6â¢×jâó¶’(uÒù ‘%Ó=h:œ¶¶$[ˆ}€#ØTªs®çSßUŸ€ZcóF=\ÅÊ{zά™hè9Ù¦ä‰ÂUÄäûO.c!&q†¦³\}öî˜fÆåTwžLH‘èilÈ.úÑp:’´=£¾4 ËÆ\TŒ±³¯SLD~›gùG! D3ÎlK\º¯GµÄ8wSQ¶ðW'*¸Mg|j•sëôšvI.œWQ[uQ9–„ÐQA5bÝÄJ öž7ÆĶWä´è^cSóÒ•iÌM@Ûœ¸±©•¾úÆ@ä¥õ˜½7è”]T: ³¿g&Çïé½]t (ß~ú|sx¸ãÊW3>=V³±tsS§AßíoÇû‡»«ûu†ÀúÕü5&:}’ ]³Ì¤‘džøz;V–|® ]2Uš¸¾»:¹ Ò‘öž[Ó˜f'4™áà¾óg)‹ü–ÇxÅjÃNzÀešV¦ø #'øûfL?wò0­µ¤«žWÎŽnâ Ã¼E1U½K(Ê BùËÂJt÷…ÄIoÖé&ÁÜâa+• l÷е?|˜É÷û´ê2¾Œ*lj õ¦£WzFYB´mJ-'òãBÚgâyQñëÍ\ßTz¦E @ú†Óääy`kfÍ,´12@镆›#©ë®ÕQQÉÖOä,…ŒIOJµu¿nLs‘|wi Ç[°¼¼çÙ©ÿù”ééÜR܉-—#7ñ'ºr¸Â>eXÛÔÅfBu?Î\l~À¾&ŠG`}fË6]ï¤ÂFˆœZÔ£3>už×£W5ýVšÃ$;ºÉc”NÙ›Eä[!%Q³NÓW- íbmí Td¹ìP9l»ÛcÖóD÷ÓÌ+µj©8J?tòäˆÞÁžÇµ2œÎÛžØD¬ÄfGß/lŠ…hÜ(÷=±Ø&SÔŸŠ´V¼)<9¦UCå¬\ðf !nxrÑ™ôBîY­Ïê´Œw˜ó. «DÕ²˜ÉÄ>ÑÂlÓ}ÏÒáÔº¡ºÚ¼Ðe\çe­ÄC ž†KSÿ×»©d¹ŸùqD°´EJÎ ŸªÖ¡çz-Ê/t…ïûÞCOVã(Ô£<°ÝxÕn\Ÿ †½¥ø®¢ûH(붘‰(š±Ë p6ô¸å؈ÓoØñB1~nCgçõ†õá–CÓŒ"&ç9 ~›IlP;œõ™ú&@Zÿp;6Z¼š¦~¿¼ñ ‚ÁC€?ªh¹Áý7]@Û$]0¦0«Ÿ&å5·ËaPÛ÷iqÝÉ \`§ ‡;rá꛾Ö}Í>!—VåÚÐùa.vϘ=ÒaÕªú±‘ˆ³ŠkGQÍ£ÓUÝs_ú'µ››¼Ò>Ø%$7â³fÅšûr7Å=ÂuŒBml”ô$nžEø‰ºLº«4$bÜp‰Ó…VïŠÁjý_‹6g}Ÿêrnp VC¾mÃ÷mø¹ oV·]­.(í²d.k$ÅLuÑ&Iv˜H¶•%yÝyX À¾ç4ò)¯Š±÷—ÆŽ ¶Z8¡÷Ü™e«_¹ê„–¾1™écö§ž/Y¾˜>Çûd«~† l4~ÑËk-y|ë] Åß©^û;Ñ[·!Wõc¿´)Ú{qˆ|'ö*0¼îó£D›´èñÇé¨ãÑ ‘ìt2׌jê†À· ÿºš‰:JB}ï›$Io‘¯Ï¹û`´Æ?jS3‰è]ª¿¿Ÿçád)?àðá‡ïÜÐG©Ãá¿Ñ{XX58'¦¹¶ öµ°.­Àâëvðžc¥Qa_‘$œ¾JÊü¯½æÊë·ônªM†¿ŸüueQmþXô‚wÒToÔuÁLj?Æ1Q¯—×›Ÿ`¨žŽCvhëd%°|@5Çþ¶ÉS]Ïã˜áÉñröÜ¢§Òï“ &[s½Òhe/ºM?tnfý.©÷¡ ŸgNÁúÖ@"GþpQÇ/ýMˆòã}É’ü½Ìe´ße˜ÒŒ¤grÞþ »‚ÞgQ*¸Œ¢ZYî•òú ƒà€ÂùÅÊä$[n”À;%<ñ»ÊMÅùÔͬ¬_¶*Ì9zÞß‚ó!›.Mtò£L6Ïʘ0<ムÆÑ­¬v!ý^ÏFVõx+’Šµî# ú휠%¿þ‘òNï€ â‹¹êwŸVÏ$hrTkêF6–È” ã\€7ÝÅ‹ŸÍ ›Ÿ!ÊÓàÿñk©‚endstream endobj 700 0 obj << /Filter /FlateDecode /Length 6102 >> stream xœí=]o$ÇqÈKhýBH€Ùä8éï;p±Ï@+°N‚@òÃyäÑ&wO·Ç“ο>U]=ÓÕ½=Ë¥Èrèáš³=Ý5õ]ÕU­ïOÅ(Oþ—ÿ½¸;ù§×Áœ^ïN¾?Áw'6Z5zãÛyŒ c„¢ ßüçé\Û2­yšÿ¹¸;ý×s\ד1Š(OϯNhCyä©·~ŒÚžžß Ê­Îÿ“¥SÕl xáüòäÛánu&Fcnx‹cƒñÃÇ•ƒTÚûa}…u Úºa»’£Q«á>µ1z¯þxþïi÷1j4ÊNÛürufŒÃð|MÆ(}¶ØÅ+üpYVîW¸a¸`;#D":[ßÀPI¡]Ò ð6׫3­Õƒ¾Â÷¼&À7áºÞj“VBx†õûì—›´!À¯†õ-þ„”°ýçÕ ê— NCXÊ@ípO 5@í¡ÆUÒïn^—-izMÝ3­ìè„:=Óv °Rzi‡/!|Ø»„Fa£ú(‡(Ãé …PÑãdÌñцH¯I¯=b)MÐ0÷"C87}g4Þ¦ÏwÒYøä{F©[DPˆ²^wÚMW¸VððùeÙí]ÞKª˜²l‚Æ–¸Œ(¹&nñèwYȾå|VqóL²_´LžÉw‘˜Ãªè8sÌØŠ•tlá1âVóÝùjˆ %àcÔðæF ¬v[ø‚x1}â:ÓI ŸÒÆí2_#8B ùÀ BÀ I€º,F*hUi‰CfáAÎÒÒÖÌ¢_öàâ÷9/,ͰΛD™‘ ÕÄ “–»RJy8ß +®ShÔ{s–ÀÙ?ÄQZ=+\è!qj®ËpS†»2¼ZuEˇ0ŸžI ˜‰ŠöXãÊ*åpÍù?ÑEz±’ŽÍJyÀ¤DÌœi'Ǽ}Á&ë¦çNÊa}½NtQ™8äPtß$þrÒK\\;•à¾)'èÛ$ÞÁâ—Ó–3ñ6CBò8¿÷ž6µ±$Œ ¯j®Àõ|Hœ  d‚ϸ/Zˆ)À´´“ô(í²ÝÐ×"r~@³#¬sºâ‘›¤g@HÐ$üjÀ ïžõÌšIÇÀÕls¶L¹$Ê/lšŒà NçËE÷5R‘zÐÂÀ|@x1¢òÄ­‹š"-„ã:¡XØ9aÂp\ñ ×é«¥ÓÞp˜Öù—¤/Œ2É´LL˜ù=„"S€>iBcж_W¼œµM¢óeöe%Ò3É8­])=…fC[nAÁYÍÁ§•µ CA&‹v?€ºf"´år› |P.r‚ptÿ*¯!+^jÔÎÐðÕûtRHRqGÇzæÉKZÄFY±ý®¤2ü·¤…¼3aö3Púè1èò(°.‚Ý#EWѪŸbÜĺÿ‘”§ @‚—]å)ß´š­Éw«Á8Û4zQYx”‘µŠ<ïúx Vb„Ï£þ™Ìƒ¸ÝnQ“šˆ W÷›‹7Û "ÁŒ`˜¾®=ð‡(Z»/¦ßpöæíí‹üz@ìÂ&j°—7ëò z—Ó.nøúìëi 9lH7˜¤î‹¥iÃ{€lŸÚCˆ’£Rúôü÷'çÿðípÎü¯w‰ÿÀ¾¢;ùm´F¬\C,¦ô‚wÃ`ª¥òtM>{Rm`uå¤Û jP ü&gR¿/b¼&ý€ÿL"¦akd4E›Ì™5ù3è'|JÆM;[)®õ°Ëë‚9Z°nŸÐ¶*¡ô’Ä$âÀô5ó7÷ÄÿÈ€b[› :nè·ZøòX-ȀⰮ¹ŽX]úV:£7=ežã–Öð°Hւԣ߆Òh€“ ) x ˸ŠF˜ x:T€ŸÂyŠ|†LÈ*Ç4²™u(EIUQf·êùIObÐ#õ°êLƒÂIÆÌöTmÔ‘[¸*ô[kn‹'N‘_ÉL`a•²MDt6›APwÆBp Šã›Ê~γËècõ´åbˆï|Õ”Kºæßö>Á ¦< ì$74ª%‹.¸Û·áp}3Ó÷J/lã¹;²¡©m4D˜žVÌ73ÈMg‚!Ä¥ø¹€±%’s¨1þu­w«]ÒÛ ¶Ûîpß*ŸqŠŽŒ×“Øæ­“mìS·s÷ý¤¬ôØýŠ})÷[3 »·Ms:r]³žè f§'ìÅRgÓ'ÕáÍK ‚hjîh­“… €^›Y"¨ê,Mmãa#i}xØø—þ:  ø¨ Ä‡íÍvÙ»éf-&Aéz4ÞuÔDЫäЀ¹BÂÍÃeø¶ weø± S,;û>øÞÚÈ÷|ºA"4HÇ—C#”?£ ÂõP¤šmêT¬ÒxÀôÞ‘–+Ñ?Ö‘#é'1›“¦@lqVË*躘yi ±ŠÏ1ºöŽ26ü9%—ü[zó4[#k0W(‡?5³³æÚ'2ŸäŸõŠ9Ø‘A51Bì2I|²Êý]ò%ð ÿ’ëûâ|UŒWaòÕùÉ×'”j·§›$WàÈ eNmð˜ãI™r‰‰ò¼ì£×¦ÁX†­· R|úrCu§_–\ÞåŸ2dp¢PÆ(€?ÄýStp9LÕqi8Êi`YÉD!‹$•‹ðLkbœÄ\ÅmíM.) ØuQ%äUþpGO1Æà˽+6´²·3ÿl&.=ä+‚Á ˆ³J|&+•sr¨ ®s–UˆÓ÷}ãÉÜ< ¥7ܺS €yC6æ lÓ)|½o«3f†ž²[B9Y­“«Ë]^Uú=ÏÐíè 0ÆÜ(g"9CNr¢¯xyKÐùbÅl@eg(g5Ù-²oó~){œ…Ò ¢w€ó=û:¼HIŽð*}–[<¿Àß!_`8çdÞÙ„*.ž•æ%wfa¡h !š{äGc¤£0Üåf`ü¥ ³3BQë“ F¥féi Éê ðÎs›œÄçNÆãŽ({©Ûl=wgsÎLè9º*ætÿ(ë}òlÐqé(’Ïé€kSXOdœNGA< ÜÓµy:S} “4ÿÛ)±©ë°½G($»‘2ªiÔàWÃv“’ÄÇhÍŸ%fš¥®‰”x>;Áü¤*"RÇCñ®NÚ&œluBª¾Q¶üÒÉpºÑ—3i:4JÎËîð}nËðv5Ÿ*}.ÃÐx!6\¨ ëØ YÕccr7›àñƒŽoc¥W~ö3¸f‚ À.W+’¨Y9 ;GŽùÐyòàR…ÜRcå’Ä0W³¹$ªn‹¬)ƒ'šó1UJ䓃œr1ŸÉ]<¥ëmÁÔŽÞÄã¶)ºÿ³j¡SvNU市›œÙi)‰ˆÚáŸU+æ~¤IŽ‚Þìw½+BJi€Ä89Bv&žÝ°­¹ô÷=Af<÷Ïä“Yãk0áþLP`Âôˆ\ÜÕì›Ö»­ê“‡ã/F¶EàF•“±–gòñ^•ÄL–LêdÌ-ÉáÆ:ÆáÙÔxp‰{Û`mŒ'PÛXpBFmɲ»áy5ÊÌÒÙåŽ1‡®BK+W†2«õ¢©[:®ž…¥ò´˜ƒ’óï„b›rib©ú¦ÄÇd‚’Þ†]ŽÌÁ¯6GDæKö¥ Æs[Y¢èûþz3Dõ#9=^Hâ½)wÍ?JÅ“`¾ã„!O«jŒ^6µNîÎkŒ$],ûœƒ?gáQ~#VÉ•tg£PG;>H_“ÔHKÙI;%)âE.µÏ:“‘œ¤€¯c3»Àj`åú¬:Ÿ¦yá½ËZÁRH<2s23{ƒR¶´ƒÓÐúk¸2úk$î)Õ11õ"Oï‹ÆÊ=ÑráŸ_'‡Â‡YY…ûùgÎb^–áº;ùïÊðsޔዠ4wìbɉúT†7e8/¸sö± ?”!›°)Ã]^•Å~]†oË„»žƒásëôµðÞu·¸(2®Óø¬ uŽeh»@ÈòÔU.æ<~‘4@>#ÞùG`Eí(TMŠ™V¿.ÃÛ.G]÷æ¢ÿX”áØ}j»#ºxP@ {jºOÙbl·Œ¾½1{‘qÇó?v·óKM´MŠqºLÄÍßtiþ¾;·¯/ÞöIþig²zß•ëweÈ"­]L]v×e‹±™¿í¾Ößb×}í}—à_vWø²OÎ.«÷%E>SîŸËÓ³ò”½v×¥ §ÜƒŠüÓCîºäb„Ù=$oº"µé.ÆåhÝ]â¶;ácŸa¥u÷;|íA23ùëSœI׃ÄÌbŒžL•/x{«µ&–¡’‘ŽÍý«Ë§ò çfDýÐÛð(a]wQ̆Œ2Ì´2Eý¹øDZG£q½ÂƒŠï¦Kæ3}è¾VѶ§û»ý<œÀC.S±1º ¾Ó—e(ËP”÷~Û%àuKá}‘}Ð\U‚3OømwÝë‡Xà'Â`ÿWaèÈüœ–9Šõ}¤T«ge;Rè8ôýfÆ2/Ëð¾»ó»Vµ¨âjuWa¢'‡•‰ž'üWÝ}?«Oý~®½oúžþUwïÇîbªúäà ÿ§RÜ?™Ì¯»;÷µ‚ùVŸ8‰æ¯͵| þ\æ~[ž²†Éêß—¹¿)Oÿ­ ÿøœ\ º+<‰ øéÍQfÿM—ÌÉÚtéÆyã]×V°Ðyá4‰²E­6oOÄäh}}$µ¯L6}ÎmÿË7a´¬oà`‰\ªUáÝ'” ¶Rêýs0ëRŽžO?¦®=:µÔ(¹ØÚ4çf7ý,ß-­E9G–(,{©Wn>èy†B§˜JkN1S¬¤ŠßÓi”ñ°óõ»t RÓ ÁêóåKzŒÅ·Ø;¯±Þ.œsŒRÒ_ZU?þW~1˜ûÜÇ~§x‚ìëïüU•j}"ˆ£R "¿é—'²ì7¯”ÚT"‰ôîÎ'T‡á À\_³¼ùzÕ5€¨Ë§ Í♥­?)ùAt^õ¢Ôe¥ ½y0WÚª-¢:ªº¶(êÄG,_žj˜á± TÄœK1ÞÒS¬¯š»eø‹§“€ßt({Åj¹Rã,íçâ´4/®¸fÜ¿¥ÑÔ;¾\¸aÏù¾±ˆ‡üh¨í±Îºg>I«›,ð5éC]:a)Ÿ°%ôJÓœ‰öJ‹[õt„u½Ð´ÇWµ‰Ø®é01ðp¨ÖøØ50§£*0ÈYÿÓu:F-ç¥ëÒ›°™xg¯Âa–.jÞ4¨qwÝB2´T¸ç|òf5Û±¦:’Ê@ÖgR·…¹+>/HÙ²híô^“+…‡·ùqõv4Ï°ÉÐÖ3”?FéN56;cÞÝtéÀT(Aˆ÷ÚJ^ÉÇy;3É¡!õ¼ïõFÑTÆ[ èDöä>ÈO£TìÔË6÷+3—v›îàEŸ¯R@­hŸRÊk"*àQM)¯dz@ÈïVA¡ú#­XJÅ6?õ¾€‰öÁñË…b`Vñ´eÓi8×À}ÒÞ+O•tZj-«JÂH«:—— 1ìHý¢<­šèë3æi6Û£©9Å6ŸÐžNØZ¢®¼w!ѵ®¶Ø&9LLü2 ^zOuÎذ߇˜Ø+ä¥ÀÃD [>UÓé†i…j/×H‹`WLR¸`¬Š3ƒB³«®+^K2™ÿÿR”ý6uWëª>üTB.±{tÕ ¥ª¢ü ÖeÏw´_ ¦ù±¶ˆ] `‹} ·\¬Ít‚8E·d5‹’š.7Àú™…^lVjÔô¾oˆš×¹8ðFÁËÜ鞘3s1!7H[DS›Û™ñùä-³€ ×ìâ ^%?&ÂD\¾ôXÈÕºnœÇ¶üç{'˜¿õýj®\ær¼®™îЬPz.‡Øæk10¼HVëx…¬9¼‚Öz º¶m,`Å2›U^—ë*>­¬AÑxJmíì¤a‚Œ.ûù üªl?ÝÐÐí¶œÑö`±ßzº=BYVtfÁHzð_fLÀðP[u*ãáw¼×†ýûóE„auÏÃ¥ÎØÜïC{taà,¯»¼t8ºž<Sm¸`äfÃ|?Δí…?“{{ë½Â9aA<“³,Ó_ÄH2mz ªI&æîz2án`ѪvÉiI€¢«P×®1¯}ÆÿÒä°MKp m™}±š"´Ç_"‰šõ!X»h*1[¸ *LHó¡*,d&¬º`¯™Y¦OæέÃØûë羉|¹SômŸQyV?ÖÔ\Û!ñ¯…[hšÎ)MNß,ÍrId#ô¥Ð~¹ô/“&¬ï\™\ ýv˜”ÊÛÑ{:ÔnÝ4 §YÈOTóÌÙ¤h%g¥¨¯µ ›ÃÊ¿%ü`©x/l£„NqƒÌå]E,£±V̉Ê_6Õ{M:vZL“‡8]½×Àˆ©?Ç@spE ºD”K:¾)´ŋי@ð„÷2%²Íõç“Ô-Ç[Â-¦y*ë>Fr6愨¦e9¤s-~·¾õ¸ÛqSí§ÑH^)$‘ÂS±.îˆwp«ÎY¾²¼ùK«;/˜v—Á—½Ö’”za‹dÓ)zwøì™NÖhÇÒÏ·´¶„’'·lÁ+Nê8J·ßË4bÁnð΄`›ˆ½k*êˆ×ÀÖœ}õë$sbxAmÿò—½ÒY›ÜÂÇ™/~YÏŸo™+DZöbºPãP÷Î0‡.bH3ƧEúfäÉÞ n=U÷ïÙ#þ%¬„á¦rÅo+Ρ½u¹> stream xœÝ\[s7r~gü#NåiNÊg<¸Ùlª²UÎŵ®¬eVò Ý‡#’¢´&yd‘²­}Ù¿¾_£1ƒÆœŠ4©T’R¹ â`€F£/_wcæÇÍЫÍ@ÿÊÿÏ®O¾zíæòöäÇê¸>qÉé>x´¯¦v´*ö Cm¾9ùïÍ :.ñ¤ÊsnÊÿή7¿;żÊ[tõiHjsúú„WT­So”ßúdÜæôúäe÷Ívè‡äµÑÝáÚvÐí÷ÛÝЇa°±»A¯‰6éØí¯¶;ct•ê¯©mz?¨î{zPyíRw‡¦†0`4µ‡tt÷m­ãcwKs›óÁkä31¤.êäB´þ€Õ5Ö¿Ûê€U£é~ÞjßÇA…nÿž¦KFÝ]Ôéþtú qÞIé¤{Ã6§ç'NÛÓ?Ÿ|}zòþÅ*mfã\Š½W8(0(·Æž«©Ç§èúÑ3>U{Æc£ï/KãÅ¿­"˜ï†Á„ÍÏ8¾oðߟAµñnc{ƒ=ky®*©>Z¿ñÊ÷J[:Wüþþ¤»¢ì4Ä&âØw6õÞi“7™Ò`ŠV ‹3Pâ‡Ã3J§Í|‚rõ'5è^göY0_ü°ãMRëðBËŸœÂ©¡gçðPÐAL‡Ìà7 O+ãÅ3>ô΃ƒ;kqP’ì±}Ð Ôݧ`býÉšÞŒÓAŠ X(ÐÌ°ƒ’ë( ¦ ´gxf²!)NÈv‚˜A¹~ÐSÏÕÔŒSÑQž™þæãÇžf§:É2X)gÞC.…˜}¿0¨ö8?r1õÉÉQS¥ë­—£¦ž: êY’¬©GŒÒ°6ÊQSe!)ÉQSÕn[ð¡Ž™ÔhÍk6]0Û5ª‚Ó ¡rª`ÙîTï¶;5$ý1Ô?†ü‹‰¦W¶ò/>Ø^Ó®üa:5ý@m·%“eg2qp½ÓÄáÑ, | £`¡žzä(?€toĨ±§‹Ôà ˆQ¥§åtö2bTéiFZÅ(Aý€˜¿SyXê#öä‘£§# BCû0±ªÍd¶ëA;³à Ræû¯Gƒ{}d¸¯ ÷}ôÛM$úm#?`|ó&(X“˜úû›óÃõîëׯ·p*ÐÛ]œÝÝn¾=œ_\mÙáÌåQõÚÀzî0òŸ²Ñ9}sqxq÷ölµùîÃþæîíÕÅ-¢‰yÉôƒƒõ‚Ï…ñ5´|÷ýþúÝÕEûÀgr^÷Y¯q!ÈÞÕu‚JØwʼ~‰±‚üšç0^ ۷²*Wì =N´xëŠåÊ=ÁÁÔ¢'ÀiÒ01õ`‹‹„šrðM`£’Ç/¤£ÕòÏære*ÛŒd ¨'¢¡+°4.÷訉Þ@4áõÐGË[C>šz@+íÐ;¬i‰fB Z}Pä>Y›´ÇÎIËÉŸ±U¸óÄ{õ 3E+öê5ùG+öê dÍ9±WoÀéää^-heŠÆ½ºdÇž²W 5zZì5‹ú(ö ˆ£b¯Aërª€b©wÕÏ}ŸåΘäˆ;Uî$?ï’»±§JÙøÔÿh²ÆcûùÁ7MØfò`ØN+!`¤ pXŠ ŒXŽcX˜R‘ZãˆáKÎa¦s°ù! Äâz®Ù€œhZ`¢`ÿ­CÚ0NÇ4«ÀœôƒÇô;¬cà r B8e $ž¦_Fp£H?àœ¡Ð{ Ú0Ò(„S œìl›Êæ`Rl&‚ È4öL¢3>ôpÌd`È]U1³û$d&Lüñ¨ÚS!… VÚSGY˜pM±âÔ#Fi A#Ní£,¿4vˆ1æÂ*9hê£f»–|x:h2)ó2hzj2+ I»5M¶#s ÂËõ<¦ìÔƒ,ÄN|wFyÓN#¥‚Üi"j¢Ø)p±g?Ȉé¹s€m†kÔJŒEáBþ+åÈ \)pöml‰ÝåN­ÁDªŽÒhfˆ€ó”F3‰p¡ ÿ¸Ý%ø…8„î;JùhÃÐs:¥Ûó¢ÈD<ÚDbñÝ#(Îñatˆª{G#€*CÐ@˜:LØîÊ„Iw¯sJ2(ïó„Ôí±äž›)Ì])9l)7•¢éÎkúP¤»²xR÷3u#–Q •ó‘Àí^f5߈䙂䵱æ}%°Ïæ¥aÄ€ ±vÝÖPëÈD+çK±´óŠö5¥/oin‰ä»?v•>ð`S·r™SbÆÈ£‘{ÿ»--¯K5ÝgG9ZèU,¤Ð/Äb2Ô¤œ;}9ñä­2›äÌÑ1þq;2-Ì÷@ÝØŽ”Ù«V 0‹‘[:d ‰ó*neádƒëÆ4ò ù”¥Ü+ð ó?6œr Ú÷¯Go1ÂÅ`½éY6±SŒù †dQQ01™Ï”!·Jñ®9·½–«Ëùh7`wdõM–Rë·ejHÞ£DeRm[:²aòÈ&eLNÎñ”í~ÉR› Y–'R+Ù»¬Üapz&nR i´ÓiAܸ"qËDáô«ÐRƦÍôÕYr)IúýÉé?¼ì^å9=£<Ázc¹²0$›De鎈÷ùº±Á“9È M˜’ky–¹›îÔð%þˆ&Ï?Pó“šÓ„o«}¼|S¨=ñüdÈv›±Ê¶vM½`Ê< @¿9Ta ny*’E!·7‹ÂºVÌY)øÈI.yXMŒ˜äì¦Úü³e–»Þ“¦úÁ)Ü» gWÔÆ®ÈÙAêŠð7l °ö£ Ö]–º ÷¬"Û‘#KÞ» q,H)ò„“Q}µ%§•†™¬Í[ÙÜ9m€]÷ÛÚ¶KÅ.à4€&]çeâ#ÓG{ÅW ’­²Å´Ñ¦b•rå‹s§ åŒM ²1HÁÎúYÚ­~*Ð0UôóÑHeÔË)îáò«»/^M ØŠVÿO9öêÂ3<ƒ)í(˜î%Ë LŽˆb=ÎÍÃ6ËŸ·…¸ÍQ¶çFóÔ>ü3¤KZªl±#Œš‡Kcäe#Œý Ú /çzË_Ì t²ùð{T¾@>FIÉHíʘðĻ:\xÊFë¤*‘é þèdvÁ4,óEíS[fvÁ“Îa%í5eT™ùÄ53z0h.#.šÆÍ.0éôë< ‰¯ª‡:9÷ * aÔå{àm>³†Y›©Ødg«°Z[Ø;Â*£Ëé´v/<ò|È–;‘Ù*RXwÄlꆿÞsüYÇSS.É›×iÐ3¬;ù–óëN§ ¤é–÷f=Ð_ñH6L~ø‚39˜`®F„ø3³â*­Ì4¦³r’ ž„„ýªúKö˜…îdLî¦0’dAÌð¡ N»«<±E\”'µIˆ2gVYLÂRVW8wØYˆ p83š ™‡ ô<"Ãî”íð´ÏX.¢ˆ-!]ú‡ªŠ·xVK!÷Ñà¹Eêf—Fvãž²‚8ÞØ(çùQ£­‘vw/™Ÿû£N‘5Ô%2ÝtÀÎ{#ñÇŒ"ia£Ž%ÎZ%„± Á¬ø:E´~É §èû4*Y19­'ÿê¶Üà×G*Sßþ"‹ª·!ÿ<Â6¶8ÖaH™o¥9AßýSíÝÕ^ñØumîk3‡7¥ý±6ßÖæ—u¶Ÿ>5༪Y£q¢·Œ›ÅO?\”AЈ¬îãÔ•2Ѽ©ÍCm.³GòdïK»_æð[IÄ4ö·µù÷uŸ/qS›‚S‡Ú¼®Í]m~]›¯›µy¶ÈöÛzDß..|¾8ÙUmŠ½•3ü¿.âןbÄí¢ˆ ¿ªÍ·Ÿ:äBû\"^-2{Uw¦ö—駫ªûÿ«¨ß.žá/‹ê Xö¿^;áœ\.e'çò º ¦¼Ðé68¸:Ö‹Û;ˆŸ¥ 3hµ¹,×½þpssAÀÏ ùœß]åluº¿ýx}}q— •ƒ´†R.ÞC¥&"òô¿`9K%ñY>›Ñ…B€@Ê(˜&W$òÆûn3¬œ'ö*6PE¤z0h‡™Åtr‘xœÙHÉ{:Í‹ëÄ"¼Y…ÍDRÔh‚Á ÂfQ&dÊè=OGQu;0]æ²  ç&I¶€¼2s¸¼®ôhH ½‘íþ]…ï TµO÷]i¦Iâ°šÂ$«Ü„G“”}Ù‚ù’¥ðä=Ão%1q!.sí/o˜äŒ‹·[‘U¬!ÇMü²rïlÎ2Ÿ‹”òqEº}ÎRæl8|ÆÔ…Ð6è¤Cñ¤GœµÈ)嬈.'†sVÂÚ|è,9ºÊÌù“<ö#³ k“ !&5>¬fç7¼$]wU—‘ü”I aBÊwÖÿcK÷C¼6]™‚tTȸ¼¨.b²#ò<•Éç µ’®‘sPrĆ¾¡­ðÈ«yî£&c—kÇÊ?å21ñÿaA.P Íâ³\Ж^ñhÊ ­Õµ¾bÛ‹AªI4•l¬½Õj~r@a0—Íê,“Ú"ºËHÑÿ¢Š~£¼9N ™;¦"Á9ˆ,Ó'óáMº -ÎQ¨osªllƒD 9r-ÀGŸI ÚÌ¢*—}W5â!ŠÒ¾ºqœ§œû–¼¶c°RœÒ¼’Ç q&'ËÒ’t“øz2±²¢|ÁóRUlöú‡¥ c ¼$Ï´\ðÁeׂÁTe[æÁtüð¦k“lSÉé#Sb³»ÏK‰ùÖ7zoB¯ È™t‘ÓˆÕáDOÉÃÐu kG]h× r¼²Ù+Ò†Á4)Æ‹#CÁ%àýN Úsroôj£ÿ¸²6+J'»¹S &èNSÉP± iS»ÓƒGî¤l÷!9Ì·"!žÏœ’¬VæúöS¦ä#ÿ¢9’Æ,óR->,êÐÏc8:„ü cCVRÅ+8!S8™³RÛð W¯„¼ µà-8C†,ïtˆT‘§›IœîAj´¥×Óö<"¥£R×Ó*1”œÝhzc‰jCT;ù=K• pØ—o¶ù5$NzZcÀqSlc³sî&7þ±?6ž.4bÅXó>gjß!Ì+íVl÷±û¤{ t)¹Ùçoªkz:'I÷µi˜½ÅÇš·’½ir©c#osnûëí”·¾¼œ§Ç$mÁƒžÈ’úÛi¨îSÊm“¸Ñ”õëm¿iò“O,šv´@q}%r Æ©ÆÇ Ä-¢7iWÞV§23u_½Hüª‚‘%hX.¨q).PÌ‘?"_bW‚Ž~²‹Ai +W%•O‡ážp¼fg1»¡a-Ãæÿ\ 8ÕmûôÉUPeM®a“åRëdó3TºE–« VňÖcSošE&KØÖ`VîN1A±¹d ííwQî9¾öôPË B_GÆ(5«øÓ›&Ê6 /+¿3À.ºñ`“¸œØõsS´™³.£,éÚWP_k”Ž$9\|ì'ª“6¹>ÇÃ+—·V?Í¡Ý„hÇ/‡£›^ Q(IˆœE9´Ó€š† ŠìD'pˆK?„aë p*‚Âsé¾k0)Ë…eEàdÎËL7zˆ¾!!€ b‰W:2 L”ëzüíÉL~²‹™—ë‹ÜÝZ›Š|·u4],¤½$Bqµ®8 ñ€ëç©-SŠØº²q/3Oíu7šÎ5ÉŽCåâ'e\èÑ‘#,”µHV–K½t0“×ðp’8ZÊ;Ò»b M’9AÉlF@I¡{©h›o”k£Ç7Hò$÷ܺ2|?駭sÙ²5ÁšÌ¨ÜÆ9j­¨Æ—}÷ ,șЅbÐÉãbvD¤ÆîÍ®kÂó›Ms©(ZΛ$¿â XÆÉÏÓi¯éµEå ~kìe÷»­¸O´²KÄÇG/1h¿üüKÖn«?»„M#’5í½²±$G.à ù„|2ùv?Ïœš!À¢ƒ\¢ƒÀÚ'‹ô΋µsª·Ì×÷-³{ wåvBÙG:z)€ñzrx)™9ßãÔÉüÆi–Þ8—ÞçÊîDúÒIê­+oërþœR£©-ŠT5})©`Àx\“ šÞŸÍaÃ’ ¿6wcàXœi7#ƒ§gÈÞØ\Ë•KÜ>é‚·7ù]Ó–êöž»U)g)ÄɈ{­+é #ùŠëº N1Ã¥:ºeø€Ë¬â¥QÖzÈ[²ÅÖ²zˆG¯yA¼È³5x„éL<‹Wp$q+Å€÷eº¤×kêô™°ÒQ¤W®¼«ÎîøÂ… /\hÝÝòÂT1"?’â²%Ç«%O^þù-9˜Ž5b»ñgF ð©VËžZ: ËÚ̉éê/ŸQ4¨ô¬m[þ°âÊ ó˜1ÛÌ¿ïe‚³XJ8ù²Äì5ž¹æïè; ihÎ €Ö”µ¥ ð”O¿Êe~içy ÜéCVJéÞ8÷Yœ¢¯"i¹ÿ$gl¯f4 ÷œê¯èz ³\ì\ªÑííMöèNÁ“É4Xû¢îè9q=e(Ó„'–„!²0”>·0è±’^”†ç2š>kÖòó©Ò  ålæT&w@HAÝ.VªÊs´@¤¯·PÃYGPÀåò¿æ¯}eë`b7ñÛKY):#€ãp¼+šî 5@³ÎDˆ°çUMP=ž JŸS€€Ìû¨Õ\€âSð}}ÔÞ+?på uß‹šOÍÓ°›‘4zh‚‘ùâí¢MI0¾Æ?R êËbO$’u>‘°ôžqs‘HO KŸìrsª·SÌ–_…¤‹â¶;ÝN¯ ÎÊœÕ7cAMÙ®Á œUÎÕxù‰oùpÜL&¥½y:+‰¿ëx+º95TÝUÆü0¾@n8â¿çMÆßël®uRRÖ,Áñˆ.ÞÀkn²·)æ|ãÑ?4Ål<}yz-7rü"÷X0¤e¨ì7+HÐâƒ]¨-7±Ô·™‡‘uC)õdúÕú¥Ù2:<þûGx.ŽWv'Ö,ñQ’ÿ¦f¯ŒI 0a4{^ƒÞëžIåèºÅG¸gp+ً󑛟+—›ù›‹,"e±˜Ù™Ì ýûYó#endstream endobj 702 0 obj << /Filter /FlateDecode /Length 4706 >> stream xœ½[[o9v~WÞó”‡F^R¸ky¿I€ÝÙ ^dÇ£d< -ɲw$µÇ²fâŸï¬âa5Ë­ÞLÃE‘çç~aý¸£ÜúW~^Ý_üêU0›ÛÇ‹/hâþÂF«Fï0¾›ÇÁÈ0FLˆ:|wñ§Í&n±S&˜›òãê~óÕ%Áµ˜£ˆrsùö"#”› 7Þú1j»¹¼¿tØ^þ‹¥SÍj#l¸¼¾x=ÜowbT1†à†‹Œ>mŤÒÞû·4­cÐÖ ‡­…ˆZ iÖÆè½úóå7 áhŒ²šÚîŒÑc~CÛdŒÒ‡áð,FXá‡ë mxÚ:ÂpÅ0Ó‰Dt ¨ßc¨¤Ð. .hãp»Ýi­ÆìðÚç…0w"¸Þj“ H!¼Ã~Ç®ý뇄çWÃþŽþ„”@ÿy;õ‘À§ÉT*‡z$œ¿-uD×p¬Ç_'Ú¼ª(iù×—ßâXo½£ÙXܨôF…€ó€ÈјQØÍÇ› ɉ­Bm~†|ƒÿ¹È²òê÷?BqÇŠ„€u+‹x*0rrcƒŒàÕ¦ÎxéÝhB_³ÝÞŽe}ÉxìÔ(È|ˆò#ä7¬;9Z>k¦ÙÞZ‘ךÑùhló7Á7xhGž´Ù`•ÓBÓaU~Ù‘¤ÃŸ¬Ý8—ö’ûzxy¸Ý¼º¹ÛzÿÓVAi¢ƒ5Û¼zÿøöQ)Ô%Ñô@5j´ÄŽiænžñJ±{ÚUg²…îhÞèŒ@ÜN«#L‰ÌµÃÙ´×r„ uÆÃœ=S&(FÂ4P”²`ïyP¤‡uã@´ÙÏ„ûXÃHƒöLó2Añ0‚Ñr(Þ$å8 ŠñaÔª¥mÕ3MÃL[PR™–¶q î<(QÊÑD%BÎì3MÃÅY16rt”3HXÚ ‘šÉ"%3g‘Ô£8Ñ^O^ŽCÁ홌Âî9”¦é¸´˜ÕWvM'ôÎB¿a“ 9zTÁ!ô:¶ J¶ &9zÈ(ÁÐ~¼îŠEK»÷8vSd…n³Óˆ×Èä^/ÖJü0k˜@d°l ˆÉV³~Ôˆ.\B"¡íZûÍB¥õ1’†®‡Ä` x˜8ãÈ­U¸UÄ‹Qà}ÐÇ7±PÔµ›(¢™#¸u„D#”‹=w¥ÀPD©à¨'Ç°Üh‰¶>arÐo³SÃà(`ÀÝuÆ1qÄV­ X”ïžì‚ö8˜FO+ÚóP¬‡u…Ò‘ÍrÎbŒ+ÜñÄQG" I=´É¡¾Clq'°ÉS龜ÁðJ—/iâÈÉÈU l ¼"×jÄT*'â‹SEG ƒLŸ®´›îkŠ&¥~S¥¯\'Þ|D›%&<—x¸IjÞø±­.9¡¥ŠMë}âm”ƒ14‰ÑÝI}q¨""HÍ‹`$ÁÐ/Ã÷C*wEÈÝð!A˜‚SÀ!04µ¶õý6Ÿ”û–-9|Ìó^~AÅ€SÇAê¼TˆØjzȼќöÇ÷õpzËê4¢¿ÿ®eµý=Ý ‘y" ‘Æéò²ÕÎmº‹}‰¬•œõåbÉlÝdäzq¦¿iêÏB®žQiü)kŠ’$铦pÈÙ°áVËá,ü3a&ßN’% >ªº.•›ˆ'Áÿzäßlgü}†æ™;‹XZH3쯪mäwz_­ØCÃüiEÖ™r»¬3S|ò6sëdZvXœžÔˆÆ,Î*õ@³ “[чÖ?28­B£¤OŒHÅàåÌ\±é,½*ÂzsÀ=Yf8tD¥Ú.°cCÖÆ¢;?³v^­„/L4m„\×9Z@n-ùe0¯¸µ`Ö³uk-EÓ‚ë ÎBõ‹ hG…l:¦Ãžº ¯÷óÜÈ3Vî³+‡Iü9IuŽØ3_îCwס¸Êüµ™]JòIQK0…»”S *Ãü‰©Ça’‡ØèL®˜dwèŒm-ÁUÕþÌZTÁÌ¡ÜÛbõج6å®­«)×”fâ}’é›Ü1À=‰ÍVÂÙÙü$Qg&‘ ¥ʃîM²„üÁ¬\ã &;{d\2¥~—ÿøzŽãpâp“­âÆ6ÁÅÝžùEn¸Ð)Ø™ûw-á[ñr³º-•V«õšå¸ÎøÀ³"° ÉžÛÿ}ÂHÑÂ,mdG…ÏNõûeÐZœ ßÔ| °}Moé‡^<ÉIô÷„…jÖM›©ÃVAƒT’fßœéNKƒß,’”Ò5 šüTfPvî¨ýmºJŒÂ™¼¼M ªžjúeu+Hlâ—‰…-TE§E—Û@ì„Ÿ?Ô^ÚuÃÏ™ÉqGiURÜEL¼qm¼“gGâ;‰H_†ZÕLͶÔ;škYKaž(TdÐt11õÉŽM\¸É“ËÐyÿçhMs§yû÷³a}˜R~!É×+A\PFqóIÞ°éýJ’3+Ë6‰ZR¢~fØò/’‰fÞi5¼Ú†I³¹Y±™üƹH¡ò}½áåÂòCbWJD™È·YÖlKJÞ(±ªpßcúQR–|ý]9ÈŽªô¹·DMVJå1qø×íÎRAdû˜f=y”›:|œ¸áŸëì®Î²m÷u¸¯Ã0”ñç:|_‡/*´ŸN-¸N³ &iø‰Ï–µªÓðä68 "àìµ²CèSêM=Ù]>Õá‡þí×(\o'sç.j3_ãŽ!Qæâ‡S€)asTQ $MZ*Iá}¥ÄX‡wuøf¹-Íö·=ñm9*(h‚ ¤jîžDÔáX‡¡»€ U‘>ÓÝùp†ÀŽ#»À\½¡¨C]‡¾ÞMti$NAP‰r$„ªK§þÁTÚîZŠNº Aw)}ò8±ÞÇt‡¢ªè®KF2Û6(&’é3D‹‰“2׌“¢¥»³á ’…®4°[ª3H&»ÀýÝL2s†”é.õü$“]`žÓÿ¯ÒF6ô\\z$“§H¦ê°áÊD2{†”1Å Ý ›S$S]24„쑬ŒGtïnO°>'ÙäPíäNG ì!⧖†šièœ;ÎΘ*/ywƘœ±®ÎøäU%§qO¿OšDÕ… »¼;y×¥[£ê'(¯»C¶Öl{YP üDÌ_ ¨Õ¦yñêŽÕ©Á¡½Ÿˆ)ͧ±›Ë ½üV¦$òËo>·ìOäSÇssñ àË @‚Ës^e³¬ã‡ºÿ±lC µH*èdG實 “4esMzB“aï̲rÌ:;Þ"±ùR[â¨n|›L);¯ŸRî5W™óñÌ2É,W-Y•ôî¨d5©h0=…­É}ÍX&šÈEé:³V—þËnÒ‚[^Õlûs¼B›z‹ù•±ýRµß*´T¡ðù ©_8ÈÚ³<¿÷hS¤Íὦ¼…¿fÝzá² ƒ¯XщÉo.®¤fÉž I^¡,òúÏÔ²c¶IiY§ˆ?h>ï3P*)S|d…Ô`¦­ ßÜp¹©™õÅ Mæj›Þ¤8;¼{HÊ]ö]íÝa0¥LÕ4oFKV2_ÓQ'ÞÀ ˜T1J¶ÎÚL=paŸc!àתÈ%â"@é†V©%$§›]2iÈ•õTCgÒšž9¤ÇR‹i&+ïÕe1²F³‰jžŦ¯CfoÑ” 3ûÒK—»jþraB¿ZÒžkûÙ®¦RÅ@/¸8[’ºu7y‰^”‡Ù)Wd²a?› é¡o1XEÝ1:©n­žÊzج`Í´qcŸ}K:ÇችÓùCøâóŠ•4·×·S|—46#J­Åˆ÷ŦÓÛ¸¹]8³B?‰¡·sº1Ú¬ß綾ús ~Ñr™HðÔÌÎTd²ÉP¯é³›®Á÷jp2ØÅn´Ÿ…ÑX-7ݯ´¦â›M ]ìîÛD1 í™bíjžZ%6¤ùqFò¢}–Í LŽH²ílìõ‹’+‰e,¶Œ6´MØ= j›ð¼‘GO5¬a*L1aŠ1„yfžŸ'eÚNoé'Qf¸Þî h±Åq(³Á¬«wîGUn óõ3¹\ÔN í}²ê})­óòý’§ZÒËÈØÆG)'â®>GÆÏûÈŽ'^TÎ@¸Oñéw+=¥›LzöÃûû,V|\°zV7îmjöõÓ¡NÞkÁØã§Ixÿèëó*À j»œìÚï¹óÊw‚kmŸ¥¤ˆE kH ‘øi×!n©L ÎT|H}>¿ˆ¨x€žC1Óæ<¥×¦×¤»Úí ÄŠKaïP˜N~®79ùYæz¦1´«#JzúÚæ—T…ƒZõ˪HiÛ&uúÌÔø¯.² ¦ Uså縢ê%ó®Ïѹ',Û@h\¤âÊÀÛÁ-宿óùöÊ üzk–‰Pú„*.}®)Ó‚ãâÍ{ Åü׉°†^Œ¾ÈË=Äõ· žpÚËáå´<º&2¿ÎËéÕÜwUľɋCŠ”»ûòÉÑ—ßÔðÕcÆHåšüî'då†ygÃûwÕCMËýÆÑË °õH$,u5ëÝG‘*Q»fÇâ©K¦½yîS"›“©´–¶’]õmì!¿‰–&vvÕü1Áâêü뾜‘×Gü£kæú«>,4mñÚ$¡~¹4”“¬&ÿMš­ =CÔ óÿ‡dä *6É ¦÷ú ç+]}]‰ôùô4w^>¿¼(¶Ó,Å&_oçw!_Ѭ)f5¯µÝž[ú}v(PÓ¼¯{Ì(Ë)¬‰Àø´¤Úä“ÒZz6ÜV˜h¶¼»ß|³f”ÒÅÃô,G5!­‚¶R–n“ŸšÎ07@NzUšhÜH¿Ks”Öæg«8L´+K´Z™Ò–¬Ðú#ÝþÛ‡ÐB…Öe!dòÅe¥á¾‹ËÊãU—e±tª^ÏuYµåÒ<{)®|{ñ?ˆ{ò*endstream endobj 703 0 obj << /Filter /FlateDecode /Length 5611 >> stream xœÕ][s¹u~§Sù |œIiz4€ü¶v—SÞªÄQâ‡MF¤DÉKr$Q7ú×ç ø€HI9µ¥b{ºq9øÎýûáT òTð¿ùïÙÕÉvúôâæäà ?¸:1Þ¨a²Ô¾Lm§¥<=¹ùöä/§×ôà‚¾”¡ÏÓùÏÙÕéï^r¿†ž ^xyúòÍIPž:y:™ið£9}yu²Qjûò¯ô²´ªx{¤):úàåùÉÏ›«íN Ê{çìæ5·…wzÚ|ÚŠÁI5NÓfÿ†ÞÆn[9áGµùÈO÷Ó¤þ÷å¿…a4£Õ •Y†ùív§õ8¸Íïù3齜ÜæpM£haÄ´9Ͻm>oy¸Ñ¹ÍŒÌ3Þ*ú5•£u›Ð-ÐøÍÅv7ŽjðÎl~âï&!´£5q¿“uèA 1 ·Ùï`Ù?^‡iþj³¿äœ’†¿Ý¦©Þp7ÎŽZG*Í“ºá1Gú¯jR+ÒØbhëé×…6ÎCÆ×ËÝÝÒjò§»Qó4ãGÿºuã „4D®Lº¸K]-´óz23팔£ÄyýwÆÍìæŸÃÂŽ“¬(+'Kàf|äq„’JSLkï¼Ù¼ç§n¢Õ"­«©?Aóæ•þËË“ÿ8iÇN¿Úÿpâ!ZûÓIz58féì`Ìòàòä?»!­k±„§©ñtžHd™-~ÓôÞÒHasó]hh| âÜü”›ÿ³övÛÚ*) M7þ†W«…0>‚O8å„7ûˆ{E¤'à'ï?fØžG0[šlÞ]ž­rZU`Sõ y®‘ˆV\LD[%Ú¼Í#¶;êDH%‘ì„Ý-kÜÉq0Ú«e©‰Ÿsó*S šûÜü˜›·O¡4±-³ª#R#ô^·! ü¹Ù·‘ú…©ª„¹fq-nf‚ÅÎçåFXú>én: ãpŽoa2¼–Vî¦ÆËÞË{f^¿% ¤:d‰Ø†Ñ§L?+Z/=£e˜‚¡Ï3CÇɇï¡Gò2I>ŧ^*œB”<¬Qö{Fh¢Ð;²ámÒ†ÞÂÛ@׳RÞ.퇠ӹ³ ÉCn¾Î({S€¯8åhIÂ/€#XÓàü‚² i¿e•Û–à²?[‰„H¦©'ø_nw"ïëøÂH»RnEÅÛQÂùì’¤|©ÆlÞ° /^ŸáèF”RøÝeün"¼â.-⤄Í?BÏøö»L2x¹)Ñ€õ‚ )iè ‡nÚ4Ò÷AœZïéuîÙ¥µ+hö>¬Ð 1κi=_hÓÓëÁÚ ¥{?vàÞ鎄<˸j˜d’_•Ô%•O,¨e„±‰ï Ì@˜%lÍKe…‹Q 8iz¢±ÔSñm’;ÕºÓ)âl" )”7MévÏ#¾H}Ì,íÆRÒ“Ù8é…RAÅÎ[lêRb™M¿l r %$LdyߣÙ>Û,I(Ó ‹fWhƒDç¹æÏ scY«¶!Š³9Wè7¢/ñ#¨·ùÁãµñâàÌ^ÉðÐÛd8HvÀ;X‡—ÏdfÛ/…é¾F2+¡ÛÒ9$ÆU„R­Äü8瑶ôÇšZµYt¹nÒ° ~’Ýp”ÌNÞ×uF3ˆm Ñm$¾¶)B‹êA/ÕPØ7±šø[Û†Ùó섲âv+mõÿçvnnáë&ždÝï:·ËIÐßfWùÙwýøÂÃz{pÜÏ0xÈ“"hæ‘(\2àˆr+°Ù¾oŸü­UFi±ajyšIé”áªN–3‘º^‹Âz¯Ì¤£p¼˜/o3x÷MCĪ-Ùè€î_W4 ƒÓýE´7¢ýƒ‰$öäˆ; ²wr•ïrθn4?Í5#cðúùh`ÀÃ%朾' ‡Øú–ÛÇÀ¯MC¬ƒ‹Ü|Ûu¿.ˆ|å#2•Fï», .Þy#dÙ[¤Y7÷*ºÚÅ 2)"Ùì´$Ã{ÑpëÈ–ùIð“[‚±Ìî<&[3®s2Š÷J ЉgÍŽJ`† v»E3ÝmÑ¥GzÆd‚„ì%Dº[Ñ”]?gª! ½]À臧º¸çþœÓ1ªÜ[àxP _š[&sóÐÜÿ'Y?kª‘°‡C+f y “D‹’[X…R´9_B ô¨c–ö*- ò =ýÄ+!€¸ÅsÄø%ãí6÷ЛÜÍß¾€Qñ-³IǦù!‹Ù2r›»Žkœ¬-¨ŠÛñ›°j’%oœeÛ°%RýÑI™$¬oÖcCrtðzÖó“Ç»ÖÚKb½ CíÅÇ&Ó´/dzǛmª[9ÔUÆ Wg9RPJ|0EÛðp½ ‡’(õ×M\>ÓÂ×e,߯{R:9=źÌFá‘4hyŒ`i·£ãmKû)“ó,ä †Œùqt¹þÀ¯8«+ŒWÙÎ]¿Kò§cEa¾ëYp•TÒ‡LÈMdÆF»z M£G2p§ƒ”s“0ªp>d‘Œž[pˆë|GtŒP[EÇÚÀB è9‘:ö<1ëƒuûÌX‡¤X °Ojµ¶Í¦Y«ÈAÞ‡_¨Ô¥àH/wÒ#øè ðžG㔩0wXñ`_´«Ë`Cf#þðj»3š =¹ùkžg©2kÓRNÆÊdžV’ªZÝ€í¡õ¤jÖ{¥øƒ2i3p»RIèıÌ9ÇjÓ÷Á»2ì”7M¬˜Ã2à9ßAÝé>7WJ ôŸ¬“ £FÓ¬é‚åÉŒá¯Vé€ à_š<ÿ,´C“ªûËp >\ˆ}ÂÉj×3«2¿{ùæÎ>Vûϸ™äôÉ“qß©5*’g:W$;Æzˆ0òrFÄ2Š£u䪪èDCòöqÑ£všéâï¤ãELU:ëëTRŠÉvü9ôÖÛq÷^-„ zšŸÞ–zo ‘£MÙ%jX9n3xJd°ãUéVÜMt½Mòémó)C¡} 7+Á —Íæñ‰kòÎi•{]ÍÛ&ºU±àDƒ¬N[‚Q¼-ûÇ!°@ºöd“Ò*ð¼ÐòäñÒž0ªŽƒ¸o¸¾oWž+Õ…'¹ž«ÔXÓúX?.U:G V¦æcBמ‡˜îç/SØFa¬)àŒZQûÌcÄšþ¬Î•uráeR ´Ü™SbÇ-Œ'¦jÊ`yOäŠD³Š8\t6¯^:$ yô©ü½:S˜ÔÊŸN^þSÇ ÈÉÉ’xGÖ´•üz¼âÇVšBø½ËÚò[nvŠZÊ@Wª ýM'þUº0-ÄÑÂ{â\© „É÷¨Ù¤ô¦ÏHÑxX;i!z73’Ôe¥Xš}­ O5ëuÐÙa\}š§a6æl ¾\žæI‰>à4@ûäˆpgöÉÂôUòæEÃíÀù¨Az•q™{LBŠóŽ‚åãÃ~ ,Ú'!!ð$ejJ+¯}ÖÓv|³¸w~gÎxŒ<äé~—u:JŸyëB~²¡[É•ŸÀÅzŸÏH©O'U8Æöøý.K ÂTè+Ÿ «µû5˜µOÑ?5bIÈöœýSP÷ûxˆOÄiÁøP¾)õdãÜl'F†IéUT#Ô'\×I°âdwÇk~À9Í*U9§zªc„imÝ“–8j*òVÅ«Yþ½Í†Pï¤ÄÃ…Ýw·‘ngF¿ƒü¾][\ ¢!AËeüS’ ª tNZ&›´.„é¿$y\õÃC´8÷+*ñõ÷––ÝUµKÂÒ ãpË“»<³îå&jrƒŒ—›ü¼y¹u!+LLµ½6²J (oXXläo·»Iñ…&SqoFÊhtãÜÉÆÊ °næA¼[ôÌ|™ ?eññ„óÿÈ}q[Ã#Œâï¯r©Ïi„É*þŽµX/ß6ŽÒR‘Á»‡¥8ÛÅ­…,í¬àU2,où¡æ;kºÖqStZÊN"#ú“i1 §ÐÜç曟só:7ßåæ,œb»-œˆŒÖº2ð?;§ üGË£sV`(Ô;ú2Ü´3¤\¬Pk•¾ßD‚Žšû)ØØœ£q¨Éo—fŽºþÉgÐ_U!·9ãŠE*WYæôlѳy”€pÖŒEq{”âôƒ,úÏn\fû³ªç¦Q¨ ®êsÂX;VAß%È÷ø\ú:3ìE$(G »g›vHoó€Oð‚yΣ—åŒø  9kP#™žöE Å2ÂI"5ùúÄ\BˆŽŒÚÖ© ”ÃT%q’n*^¹Wa{ôGækŒ.²kVˆ ( –ŸŽIhš4Iï±ld>ÁmõºÀª¾—áE¼°crõÈÛÌ4¼r§CI]¬õ6JÍ9Ob{Zò!F.ý᳕‡mF}iîLV!½ôz‹€°p:„>=÷×f6)R¾1d_ Ò> ¼[\¼µ‡š±¢ž+­ŠàKk:.v,ª‚r,mb‚yKHu¬îy Á­Ä-•éÇ€‰ÁþTdÒCSÒûŒ½8²ŒG˨Ã,á/2ÝŠeæ—ÿ¶MI«úÒ174Ló‘´=&1åýI€¾XqL\ë:yA #µ«°M@ \R{_z~éõÞ ¾¼ ‹Ø!"¯J[µò…\Ï&@ò9Adԛ؟±ö\OºNc­"kEéhuG‰aÀª·y•Ëëæ”$ÿ$¢ÎH²[K„ìH].eÄÁ’4•–¡@ºÇE£â7G^oV¼ŠµñÚ9Ýß9 °Ž,6w7I³é¾ ž£‚isîçÑœÍùi®dÃÄÊdK¥m"”¾,Ç›FÊ0($8г qqUã:`1Gsê¤âú‚‚ÀQ5±mÑÌ˽…¼ÔãÃâº;i5‘ªÖ]Ñg Q¦…åÄ“AÍf\¤µrDA»ù‘Ô.ùiBªÂ7(ìszƒùFErϬ”î(ÉÍ®î%¹Œï;ï¼ORa:¦¾û3ܤ|8ÛílÈF”‚?ŽÎ§tóböÛÏãë,˜ÜŽUh¡o“4{Š)ÎøÚ× ùåîƒqX®„q\ujå1¿K¦ý±çûJ Gß Œ•óÈZÔ)¤HŽ‚'¢_Ä—Eè|+èºd¹·­Zi$cÆíaF°˜›*¢ `ÍE]3O§Ô5g€ë墯1Y]$Š|%ããÖÌ÷|ÍLçÒÑ(ñ¼ZMéNQ}ßeŽu{ qŠÛõlE¼Ã+áà¦`Q¨+à+˜&“rÿÍ"ZëÃ(å ¢„Íf’K3©-úRMc¸!à:è ¿J¼ÖtïþÏ+»/ÜܘæfŠC^pIaoúNãéŒ>;§E̳´t»µŠ ˆ©…v±Ñyî£b¨@}ƒó‚*Ù(‚ÅÁŠƒ]a\>:ÉÎsp«îÊI«o<àc¢|qÞŒ°Õ¡2¨Š÷ç_ ¨á'4KaS†<ë pÇ– àì$smG¼IÙœ~<öd²¬¾ïØ„ô` â¥;³g)Ƚ:ü2SWø^–hŽšî²”Eá8¢ôÙ6d¡ ÅÅ«v°ÀEŒ^ñm‚Ä j t8–R{æîS9Ò_3W°‹ivAÙ1\#cB ¡ü4çBf¥ˆÄ°F&#àmŽiF0‡LÐ¥áæH]ebcìµt\æ*¼ ÚÚµÙÅÃÚ}0îŠjê0Ó²U…KïÒÀóDïÔÞå»f4ß"÷vΤµÆ<2K˜ 6ßF p~ÚæÞª"Ì€.¹¾4µ*X*¾ŒÎ|ŠòBÛA™$/æb{! èøÂR'…D¨’µ Ù¸\FÆø'&Ðïºc >{÷ý®”°Ó0’£knhù梔"Úû2¢|G ëW&ç–ÏBs^ClwÖ@Î"©õœùJ°B«;ªW?uNâ•`ä*h¶W;wTuó2@¦ ·hᲕPæÇV–6{"Ïr½Ç2p7½Û©%(½VœéŽ[â²|i“7KhtÒw|Wn8Æ]†MÁÑÉ]LC(šlåb¢_YàçÇQ7èi´õ,/ÖN6\R#U´MùàÆË c,´Éi†L+ÚŠ§µóÆ—K|,ù]Óèž“éŠÈgtêŽHU|cʶyy}ý*ýw¸>HÀífij¬œt,Æ— ÎßÄy°ëˆPH7©0¬{ÿÉn¨~‚ªãpÓ—"Þò-†Ž™Nøû6~é¤+|ƒx«y‰nÙ A÷üÜðûÑ…@Ë5mDËB/"‰¦2Ê”‡­2ðÄëjpµ½Š¼)0ŽvLikNžC’¡ü_¤càk Y<˜Æ¾®–!èq¿s˜ö*–ª’”-ÒòáuÆð)¢M±˜4²¨n9 Γ²`jU ú€!Pš1èÙCïTø<(‘€Ì°2ÇAñ8Á(i¥w¬]ÈÎñ2Ô±‡ôB• £ ÓQWåD&¹Iyòt«Jú ƒrY+e¤brË(XLL ‚ Ô…V€ÄÊÅëyC¥ì²5Ò«RmÁ«âÿ¦­Óendstream endobj 704 0 obj << /Filter /FlateDecode /Length 161 >> stream xœ]O1ƒ0 Üó ÿ ÀÒ ˆ…. ­ª¶Žƒ2àD! ý}I€ÎÒùîä³ì‡ëÀ.|D/J`›H‹_#Œ49uÆa:X™8ë dÓáý ›ìÎïz&ùTª.«z¡7´5O$ÚªêZk;Alþ¤#0ÚéTWÐ\.Xü§’£¹Äyp‘8•¦¥I.à˜~Ïr 6ˆ/IúS‚endstream endobj 705 0 obj << /Filter /FlateDecode /Length 4763 >> stream xœÝ\Ûr$G}þæÂ=„§©û…"lc&¸„0³ÒjV°«Y¯¤µÅðÙdVUweõdÏh´’ˆ}ØÚVUÖíÔÉ“Y¥ýn!z¹ø§ü}öæäçß³Ø\Ÿ|w‚ÞœØhUï”_å`dè#|µøê䯋+ø°–2Ù\”¿ÎÞ,>;E»¾ôQD¹8½8ÉÊE o}µ]œ¾9é”Yžþ*K§šÚ† ÁéùÉߺ7Ë•èUŒ!¸î%–E Æw7KÑ©´÷Ýú?ë´uÝv){!¢VÝ;üjcô^ýýôw©C»1ª7ÊÝüb¹2F÷¡û›É¥Ýö z1 ßWkÝí»Ó!tg¤g‘ˆNA×—PTRhºd&hc·Y®´V} ¶û¶óB˜sB»Þj“,H!¼ÝzE¦ýéUêƯºõküARB÷wËq¨×h&8mL^¥2¨kìSÿ&ƒÚY×ìl=ütX›oj—¹ºžV_i{ßVÚöLA«îßyo'@;>ÈÁp^²hCì^¥uòÚ㊤1)aÕǯ—iÉbˆ¶[oÒÆèàaÜiEp]ƒˆÃÔ£ñ¶{ó`[5ŸßÀga†¡ù|µT»tt†Õƒ¥Þ^ä^l ´Æ+‹—¹†Ž¦ù¼¾)û(¢`^'3Òio«0“!›ôC¿vÖtŸäq,2 U’{„µ…†ß·a;VÊôÁjùx÷ýR9„Œ/øÎjº…›Wy½…¥¶ÆõŽÝ·]ýÜ"7Oºû)YÊo—e‰%X¾L‡ÂÁ.¼ÇAÀù‘å*÷kB—m[Ïf³˜ãáçÖm_Ô=¸&G ûpÒ;Ó»z¼ßã<•pŽá¼Ža{[­‘ž)±l²^jÐÌÙ>¯½­E2Œ¼„&=ðŒtÓ »Zí.,m Pû¼Y£qpã¡TÝGKDŸÖ®·ÞRI`”rœ2©ÏðfßòÏJ;8 &l}TÙâ—Ë a¥[˜¸Šà½¤oÎø•.×ô$¾]’a# -ñ ÄnwQ‰‡vsƒ•#¬Ÿw5V&&Æ Fªæä_Ö“M9í//* ÔtÔÐþ‚B˜hmóy×#IoD°àPðhÑ¡ ©÷ì#¶ pP¿'ž1ï”rÂMƒ•-rôÌ)Ù¾®H¼%@Ëx0R»ºj’nG¢K¼BH&ÉÝ{£…~;ñäš)}c}›ª"ÈHqÕÉ¿ ÃÄÉ= VºèeœÂ:ghpY©C'Ðo'R²YêuÁ“ƒ]_—ý‚ÁÞãàŒäR¦²’@2&„<£Á=8­Œnv‹?PѨ(ó¶e÷‘=À‘R{úhÀñžð® I;à«í‹é h¶ÌÒ°L‘púì)"œ7’led²dÁ×›$sœNè¶×¬Ì"8:&#'’ÛiÐiOƹ­<@h6ùa”i´Ã½N+ÈT Ôý&¢ó‹Óߟœþ õü$:cb÷ëåÊ* Š×§- "É ±x=TpÝ/ë×UýJš½©Åu-&O\ÊwµxY‹ŸTkïUÈ}Ø<´­ÅóZº_ÕâY­ð¢/kñŠ5VÆžÊkÖÄk¶ÂM-~RqW¿¾d›½#=/Y燺[³Óßi¡/ÍRºCà¤óÕ~ ¹ªÅ‹C@™k6_×â-‹EÒ쌭@¡¶ç‚ºÂÔíÃ&œZ+tÛ“öU:¹@Ô¦(! d¯ “föu£[É°>',8œM%ÄD¶ ¼õDãÁ‚'l¤ñŽ4JŠ{p¦•äTÀ!aj`Ÿ†Ï_Ví8ÆD R}KÕçvIèYÜ„‡yNÜD"ê³Úúèp\â·[A= _8RDõ·oïß²øÜÖâ ¿ƒh'œvL笱Õ9õ§ìßÔâ_jñ‹Ó°ÎÅã šAH uqÑ:#IÎEqï Ø¨ëWco+6‰vÛR‰1‘&"¤Ü|H‰ÿ Œ˜œ >ªwÓ0ž÷r¹hÙÍÇ{¹côiÖ&‘Ž …–¾‘ %†‹Ö¤  ÛaÀôX²çd&ɃF7#·ì"M¢F4¨ck$ÇF5Ÿ5G0)c«{ïÍ Œ)ƒ•%B’0n@¦ñw¿Iˆ°¡ZÍa}†ƒ2 à¼åÓé2 Üô¾ûôÏ­8Z ÃiÕ-Ù¥×ã\ng™pÈ3¬›_ŽÊõáüFæ<«”mHÿŒ`;稢WÚ×\M&H‡pW{e'ìÍ$(ØTD]S kŠv%ö3”/*4ó’B‘–4û¦ˆëf°a»ll,HÄw?"4ù`à £ìÈC©S)^ÙÜžÉN'„Öi¢­/NO¾>Éyj»xwl†YJ× k&¸„L3kLh³GÛS–ÌS{k,íKÙðe Íœi6±MŠ+æQ4¬Ê.Å%m@ûÃd"D³âñ¤* ¥“{Hl.rJ=dMKæ:Zp@º°y2µ—ÍKÈæ"¢0‡b`Ý°Ar)9|>Ã!úNLŒSB%0£;6¢&”_Ye\鹃³1¡ÒÁ |q¾„½§ù·Ô_è|*î¤gqsàˆI]hTöÚ°KB‚)û ]Q%G£~Ø'©ä=î!È3]F×K?MP ›ŒBI›®÷ë¹>§Ô8ÙÃâoFŸnÉõBÊÎÐSæ€(ÍJ™—ÎZGÝ^Zü»b ¥£’…Þ=sr Cô, Ñ·âèHÉg2™zBîrßAê‰XÇ<¶‰“lrº*ÛGáy•e¹Z4sÛLVæ@Ê$±:ê…q<=Õô9_†à)ÕÖ0²Ò¿Í¦ñÀÁx_Rd²7N6Îû•ïc"ž½MÞðÕ¬$hC’Š[l‡Âd÷xætZ“àcYeªtŠÁö¬¥Ï¶ÄÝy|»ºÉl™^”­†X•¨W0gÖÆ6‰K$!‘{S¡d{ÉÚ夑ÕÎÏ4£Éµr%Y‰°”³X×vÌä¾el™7„°Áäl›Ò,òø.÷飥A]si•E‚PŠË•§eWg#Jʸºs—c­´ õíÅ(£ËfÐMäJÀG5`õÇ5 ªû Ô‹TTƒP^/À90 Gªœxr@[`z"j±jÚ¤¼O9–éÖÀ£äJ§ñ‚¦‘Ïx¯åÀš9,à·„z²,5¬î—”N^jÂnc v™ä8z™Sh‡Æ_Ë|K.؉+¢PȵÓ5ÆÄC¥]…³ÆÈ¢)„ðÖ—¹¦–d^ÕÞIåt2LͪP¼¦Àp7’D²xŠ$c&FÃj×´u¦?›j¼ÒÉl„œíÅrÕ µ¡§=@27y®-0¨ÿg=§×n®sC¼Uà£Ó¹cJ•M»•¸8VeÒlS+¯ªŒÛŽ¨¥áyi§cœ™í%;~ºYSl·-æv_ w.HöÙŠlÇ]¹²´Ž’ŽvvþXÀ$Dݟƨéª`m¼Ófba¬€‚±hh Á®žsŽïòd½l>Õ,Y&ÇIn½½$-ƒoe_v`26×AŒÓ—)—?z«¹ìcrCc,Lá®”†CŸǃm°˜šìúPg˜B×úPÖ‘­Û5Öy7"Ž[φô$b™lG¦íÍË<£Qq Ú(}=ðr$]Qâ½4X Ê•lo«é"3‹ËÀ YXÀÂôm=ùv´uºº"‚*=£ÁÁà4¡ß<`úwE6ê 9qýõ¢2Ël õ¼Ì®ª,él)œ„ N÷øÊçxÒ'ÅMKõ5%ž !N÷4>ÂCùL”)µN‚ä(è@¿}WQKböÑ~V@³FÃg‹˜ñùÖ×â©n6üW‚ñ`õ?h#ª±›üxuši<ѶÝqȲ}zrµ$`ªß³ÚTÆ™¹ñ‘ˆ«<ðzçd‘ð4¹K¯ hN«MߥN¢ûm™p43§šÌ>& ‰ÜÍ°ÀCŸ/Ç´QKàL+P?^Ï•½„î…‰Ã9iüjmv]eÅgÃåär„ìÆ„î3˜¦I„„8fªñ¥ÃÁdÞ®¿ÈÓhý9xØ &OÈ7ôÇp¦0=_zL×ÔoK³”YŸ‚mIííäÝFP‰ºÁ´ ®õ>Ɇ9l6á|ø¹ßi•mÍ *œ(R¢17„€Û„%ö=„¯³ \}š!'/F¶Ã¡%îÆ‘î}¾‡5FÖ/êH²» ÖhËgºÛ·4ÃXÉåÝš8nfBíI}ØûÍú²:Ý«’ígYsÓЗ¡Mp›At‚/FÐxõzÚΪïYS¥5“¥*× yÀ4¶¿£ÑÕ¨– {ÒWé9ºüÉÓ0ð‚é)ÏìÅlª;#u6‚ÄßJYš™I~&GZ’Aͼ£¼Wšˆdøñ‰psù ðšõNˆ{QA^x'ôQÆÁ÷?a+<ðÇ1½ù؃KHƒ¯~‰Ò–ãñgåZŠåeô-QbMÎö:[Ð{rk#ª«–›5ò.iݼƻ*8ü\3#~w59£.{¨]·jMÖÂöRÁ)égÐ^ùrÌ5¯.^èz©ñj¼®›?Ž3ÑÍœÐDs[æC½-£ïVµÂ·¾}¤)g¹˜ìBDÉt}Ÿ»Æq-¶Ó¼”¼Ôü8æ™g…IoMnŒ´R)Mó_/s÷¦£éɈ)Üi~ ‚„9Û2ðÖ_\7Ò*%q垇Þ·;ħ@b=jB?µå.G¨BØQlwèÇ_DÁÔÁzx8Öƒ™dþoŸÃ>Ö{Ðθ÷ãÈ×ì:‘ ¿g+ÈZ$ÝȻϙwusÛÂ-Î ÛŒ <ú%C/Ø%#äûC-ÝÊëDòÄxÃ~½¡cà:Ö {OÅ4( ¹W<Ón㇬ÁÔºÒ+i½ìKô¸ûõ_ìvh9Ka0B—Œø¶¶.ól›,YOëMÿf·M3íÀÿËÿØ\àÓE²ÅãÐɃiòŒú¶ú¼¹ÝWì×ßÒ¯É {GÂF94ˆ¨ËÙ×¢©ÅX‹ºnÈë×OëXѺœ]_‹ª®€ª++Øå3ÅͲÍÍ<+ƒ\mF¾Z¶nÏVtd>ã´çš-ŽC·e7§ˆ5è6ø0¦‰-Y«Ö–§C˜âr°ÛæóÔ!dÚ)‚RQ|02‹ÌƒXùpd:Š•û#“Z²È4Ôî1fá‰IpÕ`C&©Ë[°2 ‹LÞéŒÔ2Ý®@&©`™ñY9ÓÑÌÓ‘q€æ9“7FêFÚÅ“s&‹<™  dÚ#8“T°SÀÏp¦9™š?™vZ|*™"ÓÓâý‘Iiªè"s¬ËVx*N Fœ&O”‚…VC„ ™ø X™y„-Më–—»ÙX G{„¸t´ø¡p$J•H-óôpjÐã9\—e*‘–lÐ3øòpc6‘ùý‘iÙ}Úàt ÒÛA¶"(6ÔØ(-ygO,D:7b÷ÉáH<1c`+ðÔF873¦32yž¶šX Z¯À §ÅGLV:ºeÏ©'ªWÏöƧ„,ÛEÏ~´Ù“{mfD–&+Y¯ÍëɃÉJÒÙÞÀ;ÛLV¢¦öŸ7oIìz† ç˜P˜wá¼´$]DÖ!J^§>ƒ çA:çÂ2½ïUЙäç÷wá•cç™”ø˜%p m<ôýAªØÎ$R»Qõ0ˆ†œ$®"}‚$ßgŒàlÐú ,{“~zrm²‡v÷çQÇAÔ³¶&H–ÀR 2Î^? ¤Ç8ûƒ %¾ñ¿—G;H>^ç=Ò§º¤äAjŽ©æ@jX[AJ†°s}žþ»üó›)J)endstream endobj 706 0 obj << /Filter /FlateDecode /Length 5646 >> stream xœí]Ë’ÇqÝÁ‹»sO„§]²e…µ2EDxic@€Ò0ñ %}½OVWVe?†¾Å¹3$ƒ }ÏtŸ®ÎªÌª“ÙoNjÖ'EÿÕ_¾½ú—?$wzýñê›+Þ^ùìͶïÚvr:Í€ê›o®þûôÀk© ç©þóòíé7ÏÀ«ƒ4g•õéÙWWËõɘ<[NÑÇ9[zööêùôûk5«Œ5ÓûÏØvÊ$l¸¾QsTÊ¥éP›\6izqw}c­™“ÖÓû¯hÛÎAééK:Pãóô ›Z©¨°7m«MRfúÛF+Òô‘¸mNÖ‡iÙ{8+wy)vé'õòDt~…³œÿÓµ‰8k²Ów×&ÌIé8½ø@tÙêh¦WîOÏ~O–÷Ò@&›9 3ÔéÙíÕdüõ³?_ýöÙÕøäÝŒÝtH'g µò䃳u§¯NÔqöÊ9{úÖþ=þÿóÕÒ%øÝÕ7èôœ³ K7ÌJ)ïxÀT~FŸúáÔX'ˆèð/O_Œ’äg‡ƒ!q1ÍQK’ŠŒ„¤gc%IEFHR²sô’¤"$lÆN²6ìÒMîw&‹^ÄMóÕÕr"ŒµÓ ùUÖÚÂÐvÎ8{ñ©s}£#<òF_ßåÌœ'…-k¡ºlz´g2×4$Ëp;Ï*Zc¬ãz0¶Ólø÷ÿŽÚãHš vH;†, ¹O9ÏÚŸŒðb z‹ß>ñ ?ÃVî”Ðì¬\±®&eÃñGchj¡a[}¸Ö8u†ŸüôùöÕ»OÝOá}p(LšB˜ýÆ>C ü[áZm:‹Á?§,(à°Ñ#Œ 8¼q³–—ÂÀGˆv†Ÿt8’13~v8rÔs°‚ƒó9ŒÆPKF 8LTäyƒ§3…ðÎÁÀ‡ b|4`€#âX'…Žµ `ÅqvLŽËü½3r!š“§`–ë:Wûˆ”&S6ݬìdË&Bwœ\ßÁ÷Bß!öRß!cÓdDr3ix¥í¬uÙN´‹6e;Бڮã"²›2 .·Dõ0ÍÀ]ÅÝœâÅË1Y–„ÏO–WŒ'Ѩӟ`Û‡¯MÚdÎSÎj.Ž½ІzÂ3+É«“.¿‡¦v¬KLì p»–ÖÓ¬Oûsç‡è4R›}v_ïz¤õ‘:žŽ›6‡9B8 †6sLKàYöi!ËûÙ’Z¼‰tU´†kÑ#âhCGµXà¨GÊ*€= BŸÂ~šÁãË>Õë¢ÖXøæ•×ýj’Iî DŠÖ¢ßQ< þ„!™|ò÷Ä#O>Žàu¢x„Åχ«éŽ„-LXN:Ðaƒ4Hû‹F[n`MÃuõŒóÄ ›?€]â°ÌÝs¡œŠÛ#@E1.Ûª€…—Uþ Yˆ²*„.êì}{Á«{ˆ³=äÞSÑkd/¨JäÔ—é„IŒJ ¿é–'ZB‡ÙÑj!´¨.F"ßóYRçˆÃ–-FFHlƼ$IEFH‚+úATd„$¥<§UK*2@R­Ø9Vf} ø³ ñÍÐäMy“TÅÖÆÁ£-BÛ˜×Ò")îhGJÐB%Ñ.úLù×;¹.¼Âò¦¯ÇîÐå^7ÂÙ @«´§Øø¸ Ð)‹°¥œn¿úêëOŸÒåŒE·%iI!ÊTߎ¢篅­Mq¥ç0Àá±6”z«!ùÕÀjÀG²n¥·0À‘“]é­œÏá4&’,ôV8 FÔ[ àpV¯ôV80SRšªs00ÀM^é­ p$Êþ‰ñÑ€ó96&€Kê>k°Pé÷ë¾¢ålp;ÝWv}‡î+;4ÝÏÐ}f§ûˆ±Ü³]÷!zc]mºîc «<>æ±uß~nsÍj~ÖÅL‹nA[‘‹é¶Ž±¢¥á%‚k¢ei€*S(ºãNDBÖ-ŒQÞÙЪƒR× -ÄDèŽ@û´€‘iþ¢ËjîÕÂìh¸7gŽÙÕÛ<“L¬ÈÄÍϲ«ÂŠ½&*´ñš_M²3ÉCõÅO>šÍ¼,V¶²$ÇôÒ²àµ>ï%ÍM,çߪ&D(`{ Ù`Ë­,,FNîIã/y±1µ'iÈùëJN* FHjR02@RS—‚„‘’ší$Œ Ô© aä|Ωv’† Ô4¬ ad€¤fn #$5Ù+H © bAÂÈIÍ) FÎ'Ùº›@.)§¸Âõýrê§UáêrŠ+Z]N1Òŵ—SSãjÓw››äô}ÁR”ÇZžæ¡½Ë”Àuo]¤Ù ×]ºà¸ãMç¢ìâmÒµ:ÒB<)kQvñÁ£w(»x´§UýΛœf-ë.>X»¨öÈ›D èN xÖ5㥨_I.UŠò´LÊḅÈcw:e¹ÐÏFŽè€UÚÞÛW«ZXAQA¼Få·‡è 8ÆnÅȨks:V8‹wúH@AFg•ö’ Öw9•¶l‚žµG¥-’ä¥|„‚Ôª¬8A„¹ƒT¤(Had§Å{ήát®á02B0 ÚIEFHbJäO‚¤"#$9xŠ(‚¤"#E:í è,ÒUd„¤ö… YõÎUÇè3¾÷èNÃLϦMtË]ù…9_Ó/7X³¤$ë HZeÌY˜ÅzYÛ!ý Me̪T¦…^cäî V¶)§]¬23:jv‰‹§O/>›ùöÕÓztÉ< ƒ×¼ÝÚxc ˜¨—,ãÙµ1ÁÁÈIM’ FHjbU02@Rs±‚„‘’š¾$Œ ÔŒ¯ aä|N‹QÂÈIÍ+ FHj*Z02@R³×‚„‘’šð$Œ lœM +’Š9®Ñ,Pn±ùÔÆ`’Ü+•0Fzm !ßÎò9µ<îcj6¥rSXŸž*pñú˜Â¸ôYV„¿>‹’Í>R"²×„l¤úH”5!¸Z}bŠCH\̈),ò¢Õ„ŒIKª´Õ„ ̪&dÄMÉc·šU.VÔ„lrU$õñî¨Ðòƒjd¿ “\¬N†MŒ÷=†+SûRë¦Õ3Qí¹+œÔïT—èñªm¥ªP9Gfß—ÉòõîÖÂ@/$AÇ< †©}Y¯P!Ð@ï©`Y¸îa£ ªv·B²–ó]%³å†Ë³J†Ö "4´íÐT’d),12BÐQVV§!IÞ’ ’ŠŒýTÀê<Ë¢_EFHªÉÊ°”a\l³– Aµ.dhÆ¥{ª­™Œ)Û˜õd\ÅM˜Lû¤Á¢[_©p³ …V†kJ¬™b‡ìµÙVŠõ¢[gû2Ü^®]¨èFoñ‰+uöÅoŸX›qöRÚ|Iü ˆ³=ICÎ_§rÖT02@R­‚„‘’š›$Œ Ôt® ad€¤¦€ #ç“pÖ¸“4d€¤&š #$57-H ©élAÂÈIÍ€ FHjÒ\0r>ÉÖÝrIyƵ¶ï—g?­Z[—g\Yëò¬UßXµÝãʳ>Û@ rÛꌴ ¯µñÊ^Ü|@ª¤,ÚƹŠp¨ŠXø- KfY£´ â1´(,u웤Cy:¯•Å±4^®³ù]ÆÑå·V°Vô>:ùŒ½¦a)#µáíÑ·^¨üj’I.UkCëqR{Ïs_‘^åq¤„(¿»÷o/q†ÌÝ?¯åp æPèa9¨³:*jqì÷78’ÒCï¹àã6ìôYyŒ¬¼0q×% ìR:x KT‡ò Âzuå#”Ú(›`¶[ž¸Ô¦³SKEˆ“R:ïu{.12@b¨—›Â™„‘§ËÇ‚¤"#$ô&/Bcd„d±¢àf} 6ã™NY{‡¿h\SûHÞûOËÞ {Ð×𜢔L\¾©—³OyzC§ñ9Çå#x´7|›„¦àíô×Ò(ØÉO÷‰æÕæmÜôNн-›«mRqúHgI ÷ÕWßõïöÝ–O šW_ë»g!›éé¿–—Òšw»œ©- aõwjfˆ½üÀ <}öÐb¦KË5é²[}¤ðŸq „6,¦/ß+Ì^']»V;äæÒõZŸ•íœuLÓ—Kå§o¯!CèúÅù>÷/¾*S¸u45Ò@…Ï<——Q›“TžþNPOüž¾/@klþ¥›íŸV^,#㶟îëër¯¹F¤Yº ^‘ë—1cí±j¬—ǽ°1Ò…Üð•@ÏξçË'ig‡¦›€™Hg2/ã‘G„3°ºè¸]cª•Ñ©*Å> 6 ¤/Z"nøéýbḺӗékã|v÷}¢òm1=Qª'Ò:Øè¶V¡»üÑïòs•Ë'(5- EüXSæîþÇ>rxwº##GUöèg¬·è¹NLŸË!¦œX)ÝÑG.3&v̵åXý ïú7?oÒ½'ˆAøiÙ9%ŸŸ_æ럗ó8¬s¿*Ñ"bÍ8½ÿPÛšÍôÇ©Ÿô’à×ýßHïÜ´?[,°t=…®|<•^uíÌôþõ«rz‹Î\ÅO‹V•/™ªõHqv3}'œüMÿ«lÈ»e D] ¿xIt«y9§ÔÒ0¶:e6eºS.cmÀ¼´D§hcª‘£lþ¾náTqÓÁ„Rk·Ý‘úàí2N©ZDŽË՘׾¥-ƒI7¼]¨|ròï:*¦:ÑÄÝÇkƒrÅÓ Éšœewb˜‚-Ð!ÿ\>S‚wãMK+½ø(­¤X–hº™^¿¡«G˜Xy^3¤ßýbu•äΛ™ž.ÉâÔÚ.{£qÇnúYwÛÜ@X{ψ ~ž¤4½ˆÆqÔúk±/Þ’…’‚¤ØôÝÑÜþ®[ù5º¶Úb™‚ÖþW¬¢ôªiÿpÝ\NÂ/wцæîU@ª#o÷´áwÑ[¿‹@¶LsÕÅ£übå#ɦ-Ë`tívE{XŒµßˆ)¥Îìeáø»e/9?¾>Å“)ÍWŬYÃQ|âÕòµf\Òv0uÔvú_Ѩ2÷¦%±ºúb*cÞ˜Š¯^O÷ôùë¥j=x…“ýyLœÌ}‹PÙ¥Ÿ{/ÝÏï÷Ì<ózREÂWÿG0»Wendstream endobj 707 0 obj << /Filter /FlateDecode /Length 161 >> stream xœ]O1ƒ0 Üó ÿ ÀÒ ˆ…. ­ª¶Žƒ2àD! ý}I€ÎÒùîä³ì‡ëÀ.|D/J`›H‹_#Œ49uÆa:X™8ë dÓáý ›ìÎïz&ùTJ•U½‡ÐZ‚FŠš'mUu­µ 6ÒíáTª+h.,þSÉÑ\â¼ ¸ÆHœJÓÒ$pL¿g‚9ÄNLS‰endstream endobj 708 0 obj << /Filter /FlateDecode /Length 7450 >> stream xœí]msHqþ.ò#öK’U»™÷¾Š« ¶ *uÇaíùÌ­,åƒÊ¯Ïóô¼®fmKœ ¤Ê\Q’žéî™éééîéÿi£öz£ø_ýùòæâßž%·yõöâOn.|öf~?öß“ÓiŸ¨ñë7¿Ý¼ð =µÐÜÔ/o6?yº:8@û¬²Þ¼øú¢pÔcòÞê°‰>î³õ›7_ny©ö*cÍöö~wÊ$ü~w¹Sû¨”KÛ7@mrÙ¤íÕñrg­Ù'­··_ów»JoŸ³£Æçí=~ÕJE…Öü]¥h’2Û×øÝheCÚ¾%m›“õa[š …³s“—S“ÁÔÏŒÈ_»ÿûKÁ5ÙíŸ/MØ'¥ãöêŽä²ÕÑlƒÜï^ü’3ïç 2ÙìCm^\_lM¼|ñ‡‹Ÿ½¸ø5þÃkïöÙo¼J™?o.\Š~¯rìHTÎï3©õHY¶¸÷Jé¼ù3Vå—øÿ.ÊÒ=ûÅÅŸ6z¯ð¿¦(™ÿóM[ A· 1Å}2] Û‘ãÅóMYYië™;¶¥½ 9v$êÐD®½ò=E6ÞŠuž"Ä°Ù¹=Z7¤ˆüT*1§’ßë4SéÈã©XãâÞåyDyò~¥O ñ`&gd¦R–êîý¶Â:»IdÃ@[1ñ„ÅÀà,檆íS-6¬¿Ü™h±½,þ2üK%2ß²»üë•·®üåhËüÖ(þÉý= ÛeÒØq_nŸŽW÷¯¿»4PÀ·‡Í³×o¿Ý|µ=Þ¾Ú¼}yu<|u)ÿÑ6¥ÕFïVß'Ú®‚ÅæÑyÔZv*Ó¶™‘‹  Ò9w*y…SÆ£OˆÖ“TB²ûاñžÃ˜‘¬öé‘TãN¤O ¡uädøŽ9Ù°:saò4*.q³ÏEz$•Î¹SéÈã©à¨ô{c‘|â¢rn½Y*ò4*NÅH ûðÈenŒ‘<ˆ¥²Ç£÷eR\U)ÀÓhÀ²ØÍ À°úÇšöʶÑèÀh`Û¢KP0ÅIhDY’ <\³™ìk÷Hm§Ñ€GÓ0Üv6m‚¶Ðt™Ó乶x C¿wøó‘kÛØVx :…`k ^¶¯22§x mŠžvÛYëG’Æ·éÀˆ¨,Ö"Xcá Ëòæ,Ë[‘§QÁ¾OebòXm'Ñ‘G’0 'N=< qË`:â@žD.þ> •NJ~$•ÆyPé²Ç°Oo~‡_¯^» ¬æðú4ÇñWm])w² @Ú@ȽOˆ¾aó»e ¨õAZÁüþp§ÐN­ú (žB‹­$B9ÛÊxi¥½´rï¡lá˜E.¥f¹ªV0Ø.Si¥Ý{8*i¥’pôê|+G´z­Thy#1–3r£+c,aÕÎËU8ª2_°º”¾ÈåÞ3«®Ì„¶E®ºŽ¢„pŠ EÏ$ ÖÝæ8-Z®ðÝáâkØ\g¸~>Ǽ+|Yþö³4ÒˆHl‰ßRØ0‹AMÃO_˜ óŒ‡"ç¤ý¬D C#Ÿ±/tÜÀaó sŽŸ“4ÆÐDÁ]Ç™æ˜è*œÚÏÂ,J¿8Q1%¾Žãg!¤x—ðbd¬ígUâÜà³áVÓ™bÊêU1-C½àÙgéðgê4¾ßžGÈâo{¾è]ˆ¢+¶jTßñ¿b_4Ø9Ñ:± ÿJÜm„'Úh/j¦½¥vXx^‚ c:²ŽÁ°¥{Žqµ&ÇÞÄFCGŒóËÇYJ23¹’Ja—»©Íq´~Iò_µ=í.Å4·èÿï‡Wwœ}÷)ïdˆÐ¡Xc/þ Ù‚L7UìŸëç†^—ùh•1‘@j1UΕGj<Âhsm„ϧš ìDãËLØu&LJ%ÛcTâØ_†ÒžQh»$&{‹co¡S(IÍMGa’*‰Ô˜„T¹¤Æ%åÞæ8ÚŸO5Üã¡L‡?™p3tƒ:U?äÇ—’†¿/çöî«íÛ¯.7pp6ÿ}™èM$8(pˆè…DhÎðÒL’G®ùã/³ÿçÍOÿsœ»añÌv»4Ý°4dÜ°°Ë§¼±;½j3‰ÍÁV+8>’yÿ9o´”BXZîÊÜ×´}õ®\„©”õ–—^V¥d/½œ+~ë~OQ9†| ’`àoo§K¾úù NåvÎÁAÍn{OØ(àòG¹y‹6¦íQºå·µ t¤åqvm¿a Ÿq™íí¥‰Û?À¡¡Ñ½\ó™ ‚\-Öë¼WEZ:ÆÓâLèPX9í¶Êwz¯È«Ìúë$n¡Œ0@†)ÔÀ7‰äs{«m•NpP€®r"èfA£†ÊèíõÿõàRD .ùÂÅ‚K¬3,#ùËh{uÃÆÉøæûÏ7Ó¸ ë„æi™/^°Är‡Š£+bºúç‡zÓ‚dLÙ_Î2ü€LÕ0_n_J‹0Ñ$ûŽ¬ˆ3üLìÍÉ2a@Úb±OämÓÆ:Ý8€´Ÿè'·µ»6ˆÆ¹TC¢ŸLøé%=S¸°ýâ$ìãˆyùîÒ{hº Û«—c)ëÕrvBÙE>eS§VôûPHpã|-wßQ‡ »ÅâÔ ˜™?Nã•kæä­í‚ éïäJF¬ÎS ˆÜÞpòœ¶mà¬O—}^_ Ÿ÷û‰ñï/wt%Ë&],6˜«k)çŽÇ¡P·ón/‚Äbú|í/w^1 æ·/¦]üÌŒ ¹LWVŸÈqjGc.Ý<Ú›i¯¦&“b]×9G ΩË0/MóÉ–*£Æ2]½jË—Ü@ën€ê¾Žcñk¥‚‡±”=Òâê¡v6±ï)jø¶H ƒ ŒßiB-¼£òŒ¹Œpä„?Üöêͨ¼¸+U´¿-Êï‹ä^•ŠÎÁõ‰Þvõ{UÔ2³hbÆË”¡íµÔoX¨àÕï…¿WñdÙnC#f*k=ÓAIœÊe>Ëd\ÍöRì˜+3ký»!÷õ©‘'=¸¬ 8(«Óï3’×bïmJï­"™+Mf=½.}e±Xi’Üé!4›¦*GÝ}Ss;vÖ¤Û›BëpR.ó1Úÿ4™w£Êåälï#ß s¥uJ'WäÉKX§Y,a|¹ƒe²¨#ÇŽØçÃ2þ¨Ð\—&«?çfÿEûȳdcY¯ájùÀ38r·7»Ÿ}ýõ¥f¶ s}xyÿvóÅíõáxYÊsè_2rS¬R=XÒ 2붲 ~uûjÓ /S+j~J£äÈ8Í=‡@!fñGŸßCŠ«»ëÍÏîî`ØOë}2§ ´-D`QRA\d²ÞdH LAÀA$Ê]“Ô¡UÊ…»¥… <q)Jh5ìb,–¶›/qÚ³lgÀ8Ï!>ô¢e„ý”adäXÜaõzN¢yÚÜ1 Ø/U6RØ/K 2föKJdÆŒÁ~Éé2fÖJnÇÌÃZ‰…«#ÖJ§ia­téÕVY¬låÐ Y¸wmý*Ü»FÁ~EE×:Ø/_è4Í4¶ØÜ¡½°_Zèt "™õ¾ `Ðx;8¶‰±å*¢o$1g.­@Ê`ûf„y“¡oWX7#4Ú† ¥{}ËÃÚyÚÚn cÊÑÌ€ThTÃãçJ—jz`û”ÈÑŒ€@sÝÍŒ¡)-š…3Îx(«³z:«7´zL«Wµz^«w¶zp‹—·8‚««¸8“‹»¹8¤‹Ëº8µ‹Û»8Æ‹ë¼8׋û½8è‹ ¿xùK °† K0±„kD²F-kd³F?k„´FQk¤µFckĶFukä·F‡k¹F™g"чÑêÑž‰z×Èxž×{Â×H}æ׈ÿLV`ɬم5±f)ÖLÆší8“Y²&kfe;¬š3Yœ‡™ž5t&c´f•Îdž–ìÔšÁ:“åZ2ak¶lͨ­Y·3™¹%{·føÎd—LášM<“q\²’kæò4»ÉƒðÜqù9öûû}Žý>Ç~›Ï±ßçØï>ö{þ÷¸Ìn£7ËëñÌëóâÌÉÞ¯a#ŒþX«@9Z«”¥*tjÕ‘Ñ ;Úq/M;2µz Å,×hõÔ î^«!¾(¤çfw¡Üoï`/w]nwZþ /ðdV¹y~åoy—ÝÕ÷üèXFý@0`ÄgؾAs2`¬ƒc$ ×Àe) ÁçwÛ#ËAv,–Ž ‡ ‹kŒ”Ë'šfqûÎzÖŽvŸ­ÂN¡ï㜟@u5lÿf‡í€Ý”§>|ƒÄÁ~°Pqæ²ÃŠfØÃÍŽÖ*[7>±g¸x<*q.ÏÄ`±GDv§çO,«ÜÍfç v[?°ŠV7h;p,pÄyY >dG«›0x÷OúÊË\ù¾½= ;£ˆ±½2vsëõ‰*$º€œT}ñú/Rr¤¬Ù®¥‰ß_dîG+ø]ä¥éÙáíëëwWÇÍo.£$¨ôöêøîpZ~dq”ÁÖ>¶üÈÒÅÃ"?EªÐÇÆiÈØ&­×ÓÊòzoùѧ]ÓØì&ѨL#5 çZy;#'­zýJo5Õ¯ôV­~¥7õ+½M¯_é¦ú•‡’ŽVŸ¤ÉŠrKR´'Hé¤ɦ0 eûÁ¤O«{(@Z°‘ýðöVZÀÞèC Ø}pÇ`Ï Y¦Àd¶Z’•PÀOå÷ì¥Ms’ ²†Ä2m7-ËèÀùÉCt))æá®ÙšÚTz5§Ïz&5üäZ& Ë »Þ&óëiû´Œ6e͘ò>ªõ0xqvcÈ—Ú†§k%˜aËH„É[$yÝjËh˜iñîs[æX™pïn¹õ5™Þ=wœîº"Õ¹·LÞ Òü ¹ -D@¼X)·(Â2)L¤6ÀPaŠE€EWl(k:"+NR˜B ò­Ñـ߄r œ€”ä~­°¥ä[É#øJ¯ØGäÛ»#„³ü«ðjažeÒ2÷HÐò='®`m¨ëÕ#JË°B¾ÈÚBN QÆÕ£R0wòµÚ¹ZÒ«·6*]zµø×òjAxµÙJð¦8HiµñË·7G8ÄÄô^¶¶±2ïâúÛXvÓHX¦Œ(OO!ØèeW4À=3R6Cíé 庨§4, ´|Ñ·§=€ˆu虡6ŽÜ‰YŒ`Ï®ðºå_lâ7㔢"{³gqàÙÒ¤æyˆ]è™ ~}CØ´\&¶¤g“,=téRóMÞ ˆÚ2R6ÑÄÄ‘³²|…JºÔ¬–eær´¼œ #-Zf̦T†Ûrg¢ÈѲk6ñYŽ8òo6+#£í):›µ|õ~¤ñ€”yî©>Ëh…Œz:Ðfø“”¡<£G:=­ˆS¡LdO=ÚL 9§'mæ*Ï)L~»@²{=ÍÉo`”^-ʯYœ¦Kbâ~N©:ˆvN»:ZF5§f¡l¹ -}ëT”4çHñ:U¸4°Óå›Â#U Þ¤¥“Œõk€ç$º>õâg‚tÊVR-sfàÍ,¶;³LcPú(ä#¦‰à†™çŠW#zžNW2(K*…H&Ñn×B$/ ×B¤O\Oñ7(D’z~+Õ¡0UK!’æ¿~¢ä5ÙNj‡øˆ£‚Ó´ãK´‰/)¶ø%_•åœ˜¹DÆÙðiÕæ#mjªì¡K[´ ?Øa`Õ7;ÇÐÌLeBbl ÿÝ¢½Qó;ž Dvš/·é©Lˆˆc ÔŽïíªYhJÀO4ßùšêùj#©%®’;%Æi€oGrTk1ÒÿÙ;ÚÂNh÷W¾Óhùʵ6[ÿ£ËO œU|§GW>}*ëÍüëÙ7÷Ž…Z:y£®¼ø–µŠòX•¯'¾n7’çíø]7>JXšäNÞh»•'¯r²^ìZy¿ç¹Çóï^ÝNO\Ý |pRF„Æ+'Œé,Ê‹‹g9çßæ·¸nÖŒHäµ3ºø˜Ï¯¶CŽÑñÍ⺿mw;wòdb ïá"ÝüøXy÷ŒY6= "ÄùFsà3™òB¿k”]{¢îúäu°éEËþrÝW—uÆ =^‘#ìÛjÒ{I–ÕTéýlN^Û5áæ§èd¥g]Çz„þ„§vò„gy_¯ÌÅ+/ ¤[>3×ßÃ,º®c}­>ןFÓ^™;ûï ž¼2÷ð‰¸€áÌô®Þ¶çò{•ýììLï,ž" Ä£Ž'š6éóôVè_†Ø§Ïößwò@h„ÃwÂ~Õ:y³sÕ:ù§û[OÜWÓlCÓúXö}ÓYûë‹ÿQ¿×endstream endobj 709 0 obj << /Filter /FlateDecode /Length 9257 >> stream xœí][\Çq~ßø'äa‘—ÌÆžIß/IÀ lÀ"?È °â’K:»\‰Iô¯O}UÝ}ªÏœ.%: ‚@0|XS§»ººî]}ö›Ks°—ÿµÿvñ·_”pyûöâ› î/bî=ßçl9T˜åñåÅï/_à–Þ´<æeû¿g÷—ÿôãF‚ª©öòé‹ ™Ð^{™c>T/ŸÞ_ì\¹zúGB¶ÉMØžH,ôÂÓ›‹/w÷W{spµ–’vÏñlj y÷îÊŠu>çÝõ €}->¦ÝÕ=S½Û½4Öš³û÷§ÿÂÓ=Mp‡àbŸæï®ö!øCÙý3^³µÚ\v¯i–`¢É»›e´Ýû+LçKÙ=S3ƒ"S“£©_Ñ£³Æ§²ãh±în¯öÞ»C-q÷[¼— …Ö„qsôG°ÆdSv×{µì_¼æ ‰~·»¾ÃÅXKÓ¸¤¾Å0%ù„K¨·˜ÓÓ¿VD±&M;@[O¿vÞ|±L ô_>½øý÷ÍE‰á@/D›AÉ76Œ»Éž6Õ ½3þÝE ÿ½9-O´®ËBk‚–' Øy™Š?Ô˜!T_î~õêû+Z‹±ž˜{³ÿå‹W•°ˆ »çÏÞ½½üíÃÍó»+Y·þ2cXHä‹ ˆ‡Ö_îm(‡‚o.vß‹5Õ1ª?DB;¸bLa´W‚ˆP=â!{`hÌŸ/*ÌxÙx+<ßYà0£ó!J¾üŽVý/ô¿?6f}ñë G/R¾$ÙqGüw J€`¡åwOäÊÁ'Ñ–3ŽÏ àX™ éàð…F€Øê1Šq¼GÎÚ Ã6À“3û4-ªo”3é™ÒHtA÷¿ý®³\Ã% H–±šýøçü3Ç ºø ¤‰Û6»Ëã’ÁñV,•¨î³$Ò'Š1‹#IvQÏJ:ÔDçvmüVÛxˆ‘¹û%aaRœ§Ç›£)î×4<ù8ÕO>³Î>b‰zŸl:„ª¶êÉÖ!;Ù±R®X€Â…UIfsÖX²`9ò¤áš®QX+Z5õ Ö#LqŸUa2Y´éÁÑÉÄ£Ådr>¦Àï"l2A´É;K`Oj °ü)윹fx ²ò1*&ò"O¶°<ñPAf¬XyÆÈŒU⡤ K ³4Zw0VƒÌX],ÌX)ÂŒ%«’Qœ±2a%ÚÑ6@ÆÞõè6ÑÞƒd[^Éÿ$¶åöOÞhŸÂø=i’è ô‰úà9?˜`é DE¥‚ð@Û`y%6Ø6€åW›6²‘7¨0á¥--S Ï[­D (b®]¬•‚߃vºF ú—€¹%©ÉcЊX¤ˆf@B ®§Å,$>uJi-$ècZ ‰.xù4(Î6 1€û †¥ÂÚÆ0,P ö¸(…ÅÜ7 ¯×² à¡r0“3i*çK, DÅþ â@èc@  :Bxƒèè¯X°îÀä.¶´–Lo¶YÈ>!M£ø|ÚaUq4Þ‰ÃB¨ya#ía ªÃé±!b¶Ÿ¬×=ìŒq ƒ’SRç “p/šÇ€ Úûd-Ó„“d¾4y}"› î’©çÈÒe², ™L4­ô^¶9+íwÉ? ‚ HÆl!i#Èñ›%‰¡ôxÊ!h‹:p~Éfpkå§gí£V±­m$Åëê) q‚dßKD>Bxd–RdÕs#þeOC±ŠñúÃIµ‡î*$ïÀ_Båh[,R®ñ ªÙ°H{G?½C E$gèyîêÊ¿¿.Ðc’'¶Ë+$·6PdCT§‘cÝ5 .œîÉíPØ—Ÿhƒ'WDÓÍ?ì¹ÔNïPÐ;Odaµ‰$²IyžgÔüH¬-‚Ò¥bÉp ü[*V2*Tý¥ÏSfö$´†÷TfþâúõÍÃ=——Qmv6>¦¼Lk|ly™móç.1sâü %æ`)‹Je)1KÑh-ºÄ,)>²)Oû!80/ € m¯K9XŠÎæG>¹ÀÞú˜óãùJK$n)Ì/w?½Ú[ Â]Ù½S{¬&(8c¡·\+RŒ*É"Д†! \LY@ NNv±f²˜¯þÖ§•²Ç[tÝD5û ¶ýcöBé-'Ìã-ãZ>y¶ =Њ¸iÿ*!ÖQM{=Ëý%Oµ‚'ŸÝPyÈceƒYh%4ËGjÜg8×ÏšF5ÅMŽx Õ>„©ˆŒwÌ[šIËä4®CØd¢¨LöƒËÖ\ƒ HEU!ré‚c™Bl¤ 4Ý \fæBvn¤Ø(d#íHBÙ› Iª)¨!ÇÂBÆr—ÉIi»½Å4ü£»F sù,è‚ãÜQì&H–‘)êlôHÉŸk$\(„ó*(sN âeœÔªÌØv$É[y¬"y‹B¾FFdH–’w(”j3ÍÕ÷Ù)×f ké#'®Þ°m ™cqgƒÈîTÚ¹Ò EpP{ÑÊ8ÄCß LY¬~Ìže¿ª/R"H`š+q·Ñ“…«•¦Üf©S˜™¿±¢Z,bä-¢«ÍU„Ï5)¬ÄÉ\8`l/R Ù!rD_«í+¥Ø‡i&›Ù!LO"]ÂCÆÔá½Hfá˜Èp¿ÍEs$ïN2¾ÕFvŽ!è$È[!õ•Ö(^í'H’ÙQ®i8Y(L­Î žO†Œ‘év IRÌ 8KÁÁÌ€0=¥ÞÄÊÈ8Øh8ŽÇ¡è\R’ÇÈ|`•ÐïÒGò–3R¶gHaH«%„šÈ÷;©P„¥… uŒ“˜â' i^'.ôd¡0µjA„?ˆhÀàÑâø­AªŒL’U„ß*툃!LBÀÁºœ±ý-+|v¦tš­’:Û÷ ÐìP8ȬÞ…­+HUoAZ\H}¥‚Øù-®NLsõšÜBOÎê-¦¹õ–õRt ±¯½r®`0$qSN+™ ¢ª¶¼þxÇ[l(žnç NÊf~@ø-ß*k¼ËX…'mª =Yî>{zÈ*‡aœÞšÁréEÜX„çÊíô‡¥—é![ÕÇ]¦Ì£·xlù½ÀšAu_,’Söj™›ïÅ’Š‡=í[[¼{Ñq¶]áŽU‹hp惾{ìÛ{‚ص’u`9¶‘‰¢{Od=︑Êd€õgÉ-±5­›±¬p %úø€óØi„¥U)žl•­´ âÕ( ŒR¼k•ºÔKg£oQ¶CÀˆ“°V²µx 0:×Uxtbd~ §£sÑ4ÑÂ]·1_Už6×È&¡ì.Û]ƒÔáþ @à Åæ¤Óp]1‹S\^”à§Ïn j5ÃÙ;§–ŽÀE°3K}äÄ] ìÌú8Y …ð=ÔÅ¡twíb ຜ2‚?³£Ê#Dµ1©›Kôð\y8Eì:;!7p²ŒL.Õ†"¤6Wåaw2Œ,‚†ì仄4°[rÝ™!h—Ó‚vTÁ Eèáb…ò¶=”ð¬ú‘œ1¯™³´Ó +‹Ñ2= z"ëµ<¾ ÷(ô[Àüg(o}þz=J…déÁòžŽ¨z=™b.Êïq˜×§ÕÞÉÉdJÉ6ÎõzDJ•¶auêªØkü¢»8Fé™#ÿ‚”Â1jIÓ<\Ê$^ï‰GdåU)Ÿ~!;AI+Œ]KQ[ÁÃÑ<{õ†­Fv#ao‚hà\øâĬØ#6®¶àÜ0xMvÇ¢„Mú=²×¹`ÿßs•À¢‹™xpØlzë7ZÜ)¬Yw»ß¾W½ûoÐJoH[ÐyϽñÁÚ]ú»«=ú—ȽI·;)(e#»ënß'ŽZ="šðñj±~÷õÒà·`<¼“fÿB¾PÓ?¼xªaw½ÜøÉ2È÷¼ݹ‘_± p¿¾ÑPþâ g¯¡Æ8ï(³LV®PlNÓ_ó…²›Æâ¢À¼ú…@a[J+T»Twú–ÆžÀ‰’†º¢NS †D ·6¨ó•|θ¸PÊîãUŸnwì‘ [g§ l!ùW½‡ùÚÂ]m¤„—¨ç´Ó—v·ÁcC»MYùz·Ñ&ŒÝþÃîjö‡Ù†Ý¯N>*2:ªÍ”ý×ÝW+És”U{bì«åÝ2àK…ý‡+œ«&b™b¶•ˆÑ›%S˜ãÀ.èi”ï®ÐÉclnlVbŸX`€¡«X/WZøñö–·-¢.Ƚ2¡±èë)³d2¡äói¹8¿±Îï>4êMìú„K;¼O Ù“˜ãL¥,q”{årRœß=¼_œŸ¬ÝÕ˜Žîß®+.+Æ(D‹¶£Úâ_¿JÑ79Xvø[<Ñb³pXÓn9I Y±co;»WC'ø†¢§$ˆ ·ÂEc ùœµç Îé¡´ãfgiÐõ<9ÙYRè›ïŠ DÊSàKYèe»cÈŽuû–¡o<B'Ri‡Ú,ÉÌͪ÷ËãÁ²Ò†¶<Íx=,¸šáZÀaÃ^ËŸ .¬âp1“Ò)‰QÑųµ¦5¾ˆ¦U'ìéÒk< zÏž³qÞ&Ž;(+3ùø*+&. :´·d’%ÊÔfî®ß,wQe]ôvÍÑJ¼ ßÈ`(怛´ï“œþê Y)%è÷¢EŸƒJ&¢üE½¨n™2Ý,†h@Í&yÒãÝ-rø3YA.yVå­÷úõÚ¢M¿CíR}ˆXÇ÷x¼Y_m"Ü-¬<ýùª‡ÍîÍífÜè}±è¼NŽ^ÂÅfÒhæd¬³-PÊ¢ùw-öÜÄ”‚6#o…™ˆG•dœIªl“gÑŠõr ^†µüŽw—|“íê†Ã²ÉÜ2§ö®¢…ªù¶øÏæQŽ4~6 8\*ù„ÿ†8ëÂÚ!n£‘ÙcaÜXí©t ÍŒ­‘›Þѹ¨‘¯õÂ$1Co.ÔB\•ÔÓ”¸aÞ˜Àáä5Š¬e‹°jeÓ™ÒzZö…ESø,ã5Ï3öóOúÞ¾p±N:Åy6Êsä访gëoœ›ÆPÄi¢0Ëã Ç….øœ@ÜÙ¦<¶x­=$дٮuεÓz”zš5nä§É4»ýõbcFðÉ—¾£Pñקu¾\´*óå-Šš z0:ä\zE¤®=Eï¶qR~;¬|_`$J+®v0í®P¬…ów(!^dœ” ‡-“ÊMAƒœz¡+äºRˆt};eVhK+»Ù-Ê V»êm‰Úþ„ˆ;›-…ð­šY§pA_*G7,Žrð¶x2D;yäçêùÍ’xžŒ'ÑPÊá©&AäÞ7{Üöö6—¦aXðÖ=[á9uÎ1×ÍbÄ´Ãg°É~Ö­—ªTs#3"ž}¬¦I<תðJÍñFËôžöbwH[jšj[9Ê×\ ‚5{˜Vº¯¾ÃAS×’õW3´ÙÙ¬q]+“¨XqÖ’r‘ÖÄ/ËÓðúcÿR³ª±¤l špôó\°ƒíBE¤Q%ÚŽ2›U dïr³ªÂ¢ÙªÎAi£}J»Áµ#t¬dšeåG­³Á…²“ꦹu¸.Gnða6¢ÇÆËò[Æ+UR¿mÒ±­ÆkëuΰûÛu‹†TÚ Ž‹Ü÷ãŸ?À’ÓˆDFÄoáGZrÍŒÇYò)¦GÿºìŒ0î¶$³*cN¥€‚sÚ­Ó Çn_^q4îá÷sþÎ¥i™ÎiÅŒû1™¬›T𢵧ÔÀ>{.ÕV¤ŸhŠaêdäÙ®>kë®a¥UÜz­åúqôÚ>íóz˜ µ ¿ÀXž\”×TžpÛ«{#BQ\pÈ"ºØiûþÈÓUòr«„j8‚í,ùF¬œGƒ‹Ÿ L[Ä{¡ž2’©º3'Â/|dùVÓßϾú(Õ9¶ Û $aý±ž¥вgWÌzÓ5ÇÁ[Ø•@šä–bÆ嘄·"ëJ½¼•r¨¼AÊѧ<…"*‡Ha–̾.ÁñÙ݃:Ù’’¹êVüÉ2ØéÞÆádG'Ýqkÿ®êÏÅLÿº­lÝÆ‘ÞqÕ[kz\.*Èçj3ܨXW­”w‹kšOçžO™7ÈFuÇG» C¥Åý¸:ðVnö¿|ú›‹§ƒCœÎâC‚»¼ÚG'µ9ö%ÆW¹=¾íi÷ t¿@Õk÷Ëãõò؃ùùÃòøjyüÙ2Ú·CPÇÐêìù†6ÜBqÐxüèk?[pïèóMÜ—ËãÃòx³9ñ_-¿Z¹<*„vT>ÒàGî–âõÍ&ûÂÝö¾œÚû­ØÞe5Ýë÷çËã6#T+Á÷›lW·ßäß‹ÍG5³Í=|»lÑoOlçÖ`ªÉáxãþ_·þÇtë‹MÙP;û›i\ü¿«o_lnÐëMYWLW{õ¿^õÖ‘<<Ò⶧§c˜^MÜnŒ¢0%öoà¹ûfáù7šýãñas‡Õj8AyDlSGýölq-QJ6EFFKQÁQyÍV®¤z ¥{£¤¬ø»«^SÖaìï0Iák :¦YZmt,ŠÌ$åzæÊÊ”yÈÔ:ˆ’ÄAÔ”çâ"4 b6^ôêHÿº1õ_µc i<ÔîlæŠpBÞ^mUžÚ±<ÍÇ&Ì ¬ïD Àõ­œ¤I~ñ¨ÎÌ^õœ{H[løÐYZðšä¸Ðº,­þÌÆ>ðG'Ö=%sU/Øê«.ÂO äZDqÔzj) „ëçªdÕ1’t Ë¡›ô‰|†r@Lør³ã¼rîþ{Tèmui.àÝ‚(¤?*ìžvÿ¤ªz­Eøo¤èÄ@ú`k åc!£Åá –¤µ\©U}êrp2‰¿£ÖÃgá-5¡Ø_–<ÝTŽçBŠo…„¡ic«pJ†õ6ãüˆ>ÆñG^däz¦jÕ§>n$9ʼ[“Ÿ©~ªè7Ug·Jؘ$ËeŒo®Fewj¨j‡8A7U+å:]Wõ\Wá-eG,šÆñÎè„[õ7ë‚3ò”l¢PëqEÙx‡¯‹o÷¶šõ•®÷‹W˜Žxç&Ù˜9ÖÏ'»%<•¬Þ1ÝŠ©JI(£ãÃÒþäð½Ö2UddÙœïŸkžÄ„(KÞ^«½~½m†ß þ¹ÞÏFÿéƒËѾ¥ê­ÄšÊn.E1»h"cÜ®N«®çe?^ÄØTG´à†h>•Å×aK>}øÁ‡\%öK€ëˆï‡—þè5Íßë»M’?,z% Ëm±}'~v$º#Q¤ØûäK¯“ád÷l`a«=÷¨ïƒ›ö6µè5?ƒ=N1N£ÿ-Ö}[☊U_Ë$±¤3–¤Ê¨+ôª6–'D[ÂÙ=¾ô‹j㣠ôU"0ŸE3_j™kjã’È‹Iœà£ƒ5'úŬqïß³I¦Š°Ç1KkORã}T7è$ÛÜÃ|À<Œs³± e*cŸ(… i°s”Ôé9­M†µl=»ÜJ’p6žêåŸ]\##vgÑWuú"ˆäJƒ ‰·ÐVUg~å6Å!=úÀ)x½}X_ Ñ¿ôºnPíD½Á^;Kî&âiNuÅ šÒ£¦läËQSÔ*WnôK-ÈÜ/åñ¥©Gß­¹uhÀ¾iß¾ÐBZ‘øÃaŠã>éŦS/Fèt­‚>äu¹¸mB!èugö”Ñœð6šÝK{ÐÃ2„®ÿjmù GÖÓ"ÿ´ªbl_ ›ygâ‰nu$0„2Jl€Ïè·và•£4 D,×Í­âÑâµâ$ÍàgIØ4ÍçÏ=‰¯m×Ì%L™oýŒ¨m°¶…†xóüý¸Pèø4út¸aG_SïOéлÖð†o5í-ã–!쬑›šòý¢6S{–ŒaìtÖ§¼è‰¦Û s[+Zœ¬ã´xµø‡{rºUS ôúº¾ßCŽIÕ–T€€¶:`xÎhw¦Ý­j“Û¾^òz™O5º=æÃÒ@jót‘êèã%„ƒ^œ°…ªÝìzñJúVGÚ´K¤¢ñ”Ä­:Ž~ìg"ði¡r‰¯ò…غé§?÷*L¢ Ø=ügc‡qG_G)’“¶¾û¾Œ©{u|9ã«qSeë.ö­l/‚%ÚY÷cJ-0®–Øù‚!pÅI¾ž^!ÔŠ)ùãæSËÙâåµÌß_ñç\½_óôy>³îUIOK\"Ó§ø?‹Æáo+™õ…KeÈFõKîádnÊ×¥Úk¾“S¸M÷«¥ùú¹@‘>[Ѫ­©ÎëÝmiÂÚsаˆÿ¾[öE “ ›qÿe_Þ9gÑW½]fÇG ý(y«ûǪüÿõ•:@Ø,ù'ú}Ôêuƒö­ŠâÄ5¾½“¥SzôU”#‘ö¢Ëîñ„ocYF@ã…ÏÛ[ëM0 q,ø«¡Ú l9àr$s½–æ& Kš´R׌š}"k3<݉jÞÆuž˜·÷ü—‚ÂQÕ`¿Ý/ëG>By·<¾Ü<{º |±<þÛòøËMÖfüÕâE õG–N߇|_xªih+0%ýSw›¥«»È/¢á$ït‰•ï5„S‘[ÈTÉÕªMmõµNšTàFFŽ¥hÓª¿9²ÜR‚ö¶±‚p¯ç^¦Óz€m7¨OÑø ñêÔÕ“Wë§L¿¯d©¨î$˜žøÚÓÙŠeúÄã¯U…àm߉º{ÒîáS飱Tqÿëm¼Ä—ê„EŽjð…äèWÁá“EÔNôy­8¹i¡Ï:Dœ\L’~ÂW­7Ô÷FË0‰/USÝêTüëåQŽþÕò¨NÅ߯ßkVuëÈúýòøñãâpø±uèúи“J:©ê·¾_®2g%ñ«£›ŒëT%Ÿ κNü½Å¨ÀÖIÿ[ý¸é:ñMÔä>‡ï¯ƒ¸‚‡˯N\ñ7Óì:ÜÖá;¡¾¼?óx–vǦ=êèp虘>ÚÙ3Áa_Ósñßu™°endstream endobj 710 0 obj << /Filter /FlateDecode /Length 5723 >> stream xœµ<Ùr¹‘ïô|cžº7ÔíÂY€¯šÝpÈá1~˜Ù‡/qL²5lR‡¿~ó@ ª)fCLU£€D"ïLÔO§ÃVø/ý=¿;ùõwÁž^N~:Áw'.:½=À·V…m„Cßœüëô\ÛŠæt_»~nÀ¡ Þp_Àû.’bÀEw‰Û5·2[ì{zöêä쿾_½-ôО•8ÁöTÎ øXÀ}ª#ftýÂXñt'™$¿vèüò¶å­´÷L§>Mÿ#Ç"q@p†&Úügz\ý¾€CYk[À±€¶ûT¼ö¢ììm_Àþb^ׇuWž¨®|Þß’ôÛaŒ%R¨àƒÏšJŠ{Cje4c˜TE´£C%hŒ‚¹ ë)$\¬FÒÔ.ZB£CTD{œÖnõ„#  jèúú’~.èæÕ¢¬íL&Ç|,ÚÙÀGÚÀ j¹‚—Z.Í šÓ ÞÃŒ!hÌÒïF láSPIRy¿x_ò+»€{ñƒÕ¶ÖèoQ½Á@4‰Ðy‹\T£óJ*ýw¨Åõ  /¨açTÐBú’”d”¢ lž’Iëݦ³‹(*å½[:ØxXí¥y’;x‘Ȥ4Úd0£™ Ù@|¿D&²ŸÑÁQ¿á-øÁ¥í;&>›p¶Èç‚ Õ$JOy»·…^eÞÌ3©À¸<•Åj‹Ë»N~ÍG…<ÒXÈÍ´ã *OWm†QÕDô$];ÉÈRN.pQOÔxO; :Žéðͨ0"݃M%${d{ëQ¦ÞÎŒEËì؃)2Å Ûß‹Û®7Öyà¿:ÃÇ*S²60AûX–qEˆä]É‘ù)ÕJÛê13*,`+a •î^ô|Œ#þ°º&E=l¤ 1["RL3ÐŽ¤Ós[Dœ üªåàžbT–¬Iâ!á{ä%˜`ðÌŒwVó¢aç1q`QIû–í¶0á$?bðE¥f@¡(§ X{WAå¥B`RyÒ’„°A[-uÒõNþp‘Hà/yášqTX”×®dÎ'm•dž0)/ÚñèG'GH¦ßæCdC§A•ÚFç4Y:àtGÙÒ­GX\ Ì­<ùÎ ÎÃ8Ø‘ZíîQmDGgõzøØR–ô Êåã›ýš~0xÂ]û Çœ.ˉfÙ¡`Oˆa"úç|{ÇI:¬ñULpǃuKq,ü܃‹ðU1Ò‚µum-ÜÜVÖ•m¡°ô{Ð~xàª,š0Åÿ[XzÇ Ú4anös¼$mÌ.ëŠ]¶³f”Dˆ¯mƒ%Á´[ý°êŽÝñÚ#ØÕ¿‹pnÄz¯‹å¬ –oéûaÍkF"HÞdÄ :ìD°xMÛL‡zYxúõ‡UÚHyæù)F|¤ uc¶®¨¢¼x¯ö%`^Ao s#ÅOå@…A̼Y)Ïà-HÄ~S¶Är¬å:9;j„xø [ 9r—COÀ‘AŒCW Q×7âô/ÏNþ~Âùwú°Ù×r8ö „r§ÎnZq`ÿ"Ýà àöT¸þÝÚÙ-ÆÌVc–!NÌäÀÕ'd ™)Ö)¬v*Ùà]mŽ.Šq"Ô(Ç´ËÏÝž†Á¶ÞÈR4™¿œ‚©©(¸‚­;Lü\´Ðq5Ú¿­ôù"íÁ¿ ±^±~Í™4ƒ_Bö·ÞÍñ‰V°s+˜õ ñz¶»ÚdgÅ°_ùîÑü»½¿°¡Qhž2SÏ;Ò‚éRÊ­¿€>&Ÿݰ庰%o7J\%aR f¡˯j%Ú儾›Ì—VYh%)&+tÏO!Ül}|ŠVy!@¨Åºâ¤"íy“s*wXát0Ž8:s¿\J2JæbfRdÇêAÆëÓ€{t”aC•¾ãx(•^Á\0Q*±FxT†3š "xo¬•ÆZF ]²ñqf°‘ÕînŠµ>T£³çZÅæÙ†_O”eL,½õ;‘Ä® n]Íà»d‰OwJ(˜]…û’VÝQ´ÌAÑÇ>Úìkëí´_Çʯ(¡k>*äi ÚÛlø Ò‹!sz_àbiËßæeâƒcÄO‹<ÀCbŽKì*Qn"Þ]í1TѯË쎒G2nþP@°‹ÒФ>€S>ÇÙõºcY½suR…“#Q •°p²Húœ3˜àPÖŸz¥'?5mZØP¬Ë%uÀÇh&ÙC”Ä‘,Ô4ú’BÝ°ò6QYùOJ a~ °±³5r…óÞ,áô rƼ §¢íÍ;_Þ8 êòì%ßç·vUŠ‘rƒa0M2)éFÊF„ŸÄE‰ÃCš®ö¯‹¿_[‹¬Ù¥ ¥¤…h1sœ$„·T[“‹¢¼gÁÇ0äìxʯîÅ¡ÎÑJòí&Ù qÙ†ð6Ý*•†0ÙGÞñ}|ŒµÀŽ“’))P-™§„FŒÔð‡IbB›8ɱˆ8IùĵŽDÿçåƒ nÛƒ\L‹MU‘ì|Ú;‰!ÄNDË“ò0)ª'n«£z:2ªy,ÈUáWc·£±Â–`î*†QÈWUUL䢮“‚âÈ>òq–*v/%ï°îY‚²º[È<±$$ìÒ­¿ãPd]•ùÜ“€ÃK•)¡9"ð ™5 mc•¤á²r=‘€ùP¼:Í‹#4XÌDà{h*ö C Z2#Â͸Ȍµ—‡½ižíý¯fü@4Ÿ×¨¦}à¥MPµx1{€°Ö9̪|d}™‚»]÷rª%_Ge B[ki½²Ÿ‹ÒŽ´ÚÑ{!79Ñê]U¨˜;*²NñÈ¡R’ñDŽЖ2´¢hQ¥töÒ ÊxŒ&\0,Ò@‘ІE2u8Kªâ¶–])>MS×»N}¸(##cÄô©ÖP‚G¡•Ò{.ŽÒ  bÇÇXs©b zš3Ô²hf@F¦uªhp8¡GhÕ£)‰‡°Ud Œ@XÑñÀéz8Õ #Å~«˜å„¿³>œ¸L8tŽ± PÎW?ü@I(ð¸üb`z¿_XøšßËe'Ïá¢BúW¦§Ä4Iµ›f&oj$ResqUè<÷Ø(­uÉtDïrŸ ÜœA­êºJ–€S”\$C˜«µû#Ãæ_­EäRs”oGÃÕ<·X£!5 00”ä_a*ƒ1OMƒÊT¤µFt‘W¯gAq§X9a¤ zg#UÞ#M¨X1$¡S” ° uRWا]/+°(Ú×)ÞÅ*ŽTÈ8RË&”Í’+çF]¬(¦¢ñ® ¨ÆR‡ð»4¨ð¬bÝ‘«. Ì òOÌÒÖn½‰KËÔ¯1ZÍæV¶J‡}>;YÒ˜(-ʃUUMz• ÎäS‘ áYÉYXòµ†¯Sêù„X¦È:ÕbQØ{¡Å€"z*ËëÅrÑùšTøXGz;Ö|& ±)åïxn¬a‘ϳ\Ë>¥ ŸÁPN¾= cðÌêƒÈ¥^©²8¿ÀµÉÀy”OÑîî!­ÆáJÚJâ9Ж*íÊlä–?xKLääTtjÎ×¹ø´ÔÈg„5ˆ‘¦›K|UÎ"Ç"1w]-U`õ8U)ÿxEµNIAòúÀðÂÕú³ŸºlõÕÉZåû祽̱¦#˜Â§, rù•XƒeЈ5¤›¶á÷Œbw §ÁÏÓý?øáEà™ë¨ŸA¨¶¯m¿ÀñEÙ°Ž\òV8pæažý†Çn¹&½ˆ–`Isñ»i5Vm']lØ‹Òcj$ð¦€w¼ê¸í‚¤A&xÝ-Ã{Ç ΉEàð…œØ–× d’ëîÑÜ ŠÛš,Ôx¤;„‡Äx „õ'u}ÕdÐJc«»Ht_óþbLDF©KR]Á¾JúX E¬|‘bhKâÄu›ø™Ó…”–Ù Qº©ûD¦ER"µ Ø„êè u¤ÂsüL¡®ZªÂ‹kßsõÏb£^I°§ J%3áòï¥Ĥx’£e!é nÔŽã~)|¥b9¿@ò~ϳarüý:÷;UÅŒM¯™©N†âÒÇÄ·ƒéî„àý÷³‰Ü eå—<^nÑw¡¹¤%ncU•Î¥´.®2(ÎîÐewøLLÿÒ˜°S iyy±oªêÇRÕ'OÎiÙ$"+¿x9ª}îât£š{"ë\ `¢Ý—ÜwJÖšá™Ðoöj“…©Ÿq™ ‘xì §Fï1“öË‚=¼fÕ¤)›ÎËñGåˆr>ß8¥¥¾C£?b¤!™äŽç0ÃøóNœ`œª96Òݪ~qsáRcS¸É(§¬<ø5liQ¾•:$ë³Çz§Œ(=ÂŽïޞžV 太e¦—#–¯›9JQ·}i´JŒ ÁL÷ä¬[Ÿ¯1ÙíèŸë½‘)ãŒ{㤒Órëð]%L±‚ÕtRÎåDm­39ÐzWÄ@$ôÄ ^P$éòµžôX Î%ˆê*.µ:¹”ö”]1ÀMÛÚ¶‰¨á‘±ª¶íû•ï·À™iù³uÎ |W@‘Ú{Ù÷ÝývtÅñ©Ã}lŽ”®Ú_å'NJò÷ž1Çkô V䪹½(Þ.E¥mIÔy*/ì5µª/¶dÊ…e»„L6QÒZE,9—^œm%n"ôG“ÓÒ¢áçºê.kw!p$# » GÓqó£¾FÚvW¥ZkVjUÛ§h“ÚÔO8]sF?¶y½JÕSÁ^É¢d%Ô<ßÜÜüÞ+ B8¦‹¨UàÈþg º*èXéül4wôÐ »Åü”¨†Tµ4qݲ«à+‚äP'6|ƒ¡žÓ#5Áo1ɯU !Š ßÜÀRð‘,ÆûÙ›çr'›N×…¬M¿à;#Ø3R%öxwvÖŒÏ=uÚJñ£Ç”%}‚y?„1uÍRÜÈl+ø©ãó+øDQ+«¤õ=†öÊ‚‚Ÿ´IˆÿX· –Z®ôñYÿI ügÎ;Pcݧ‰U¾ê$Ú7[JfA9—Uä>v¢<¹NÆà=3Ízô$¹‹Ü&kƒzt[ÄÂÉì±h±3`©Fš¡½ï;a»XÇcü´âøÂõD^#6çŽO)¦úãÚ™¢¹©Bt¨òêŸð¥±#«b žÒ EáºvËÉYªŸÞ`ä<›J®Ñ÷(_â˜Mí¥æVï~8¶¤AÝÞ^dþÜË‹Õ}úÄBøä~í´½#WßR¡J»¥˜kúêÛÔ´€•* û"??¯T¥Þ?6ϪýêÜT²ßu»c÷sV@®*Ñ|—.çÝëK#Œ·M7³¸¹*]̲Aµ_…)³–›>4ùYu¿ÎÖv7éÚþ׺õ„Z ©N7 UÏöìÚ9Knj%LÛ¶­Ôû7»áã" FSù)ÃaIÌ_XZøÈC%HóOUôo®±§$+ ˜Ý« Ü ÑÍÔÄèrDBÉÃ?””¢ÁªN‹Üñ»òtSžŠ×ú)ÙØñqÝK‡ˆwÏ ýªì®Ûæðìký¦Šþ§ß°úì_oaÑ%òÍZD½6’Ô¥Ð|#ðÙÓ]-WÏ–ûÐ%õ/н³ÄHí>?s‹y¸ò…½—eÂCEÓÒç4 UŸ¼Ì4¼/OŸº“½îÎ ÚŒöÝ›}óÓ>My_Àën’àÜ'É®½Éª‰> stream xœ½[[o$·•~×úGôcuà®ð~I xïbç!3òàä¡FÒhäHj[=²wüë÷;$‹<¬®ÖŒ,m0ˆÍf‘ç~¾sXýÓFŒr#è_ù{qwöû7Ál®g?ÑÄÝ™VÞa|[ÇÁÈ0FLˆ6üpö·Í=&®ñ¤L{nÊŸ‹»ÍžÓ¾3cQnÎߟåå&È·~ŒÚnÎïέ¶ç?`±tª[­AbÀç—gßwÛUŒ!¸áŠÆ"ã‡[1©´÷Ãôž¦u Úºa¿•£Q«áfmŒÞ«œÿ9cø1FFÙù˜?lwÆè1 ¢ÇdŒÒ‡aSŒ°Â—m·áqKÇé† v2Q$¢S8úC%…vaH;€A‡ëíNk5Æ`‡¿Ðs^Àíë­6i)„a˜vŒíoîÓ _ Ó-}„”8þÓ¶’z m‚ÓÆd)¢t¦Æ§QG¢q z|;ËæM;’–{~öWüƒê½×£´ð,Dy™F=ª:q;Ox j|ž©³)Ñ¿‡Óö¤Þ(VHÇ J9jpŠɪ¾¾Û_oÞ\ÝNo~Þ*;\mÞÜþ¹%Êé‘=+ƒ£µ‹¿~²Æ·§ûËéáróíÃÃþ,³2ª ò …ŒÁ£ÔØ&nç µùÈüL›)¬ŽA9éÕæxþ—'ɨÌ'•»½y¸:{ÿʲ÷œÀô/êŸñÿ‡¢7ÿݨÑVL|W®‚w°vlòvu›éVyGíùª2ÃW9úN¶jžéV™è)T°Ue¦[Uhe«õÏ5½jCJXH6¤°—vÙöàÕZlwJi3*ÖøùcÀGí,ÿVÅ?âmça¯ixÇz–ú·ªçù˜'8/zR3}Oªo^ô¤öæELy™ò-Õ¨H.)Š8ÀD¤½Úò•™hÒh~êöì}3þåò¶e[þöì{,6IsaóŒ/¿ˆ”·GG¯¯ú—{úl4wG¦w{lzP’2’ÆÍ>µÇÈÄϬj3VÖUÞ!u{¾ªÎ´UZAvÄN¬3lÕ‚ NW[õ›³Žt8ÔCÑ~Î:;5Âñ•È,nØÉô)@¹6yövg‘ÚG!úæÿÍÉ+KU³ë¼!N-mì:X¿è@›ò ÂC Î#|¥\©6çgÃ-åÈΗF¸ ¢`ˆø Ä¿p´z³ÐR]¿Ù!¥>4£AÖ«Ó9"Etõ££'Ûð 8Šßà¯7ü0›¦™] 4 †êWÁŒ>@qHñ€.žïf³¿íÊ þ•¡, ZwnŠÑ`AиŽM8¿÷’r‚ ”Õfv ›vJ²g`‚N£Ó|¡}¥Ggè\ˆ2í a sÄiØfØ `ÏÉÆ%K¿Éu$}ˆ*ÝI=Ú$yòc­ÐqõX£Z=6z|l2ì™_l°¹‘HsIùaa¯)¯ê‘ÿšjHʈb@n J"+u#ÿE(]=ì׬üx j@„ ©xHðÞH9T0™ÃƒMòÄ›J#½öèrAA9y®¢ñRHJjø±Õ-©âð1D;ì?–FšáªÀ„uNƒÒº"×0Þ(5|Èká5ÃW«»Ý&Qî¨R%Úx¥Å« ›Tì@©D~Ý™¯žxÕŠ­wíðé@Ë6št¦Î`Ée–#ÍîËæNX^}h›T¡óï³Rœã²¸Ë;iì4qé_žL)ìŠ"<†©þÕÂh7K ia®6©þ²‰6€W²–³{ÀJW T¹Ö#ƾ£º/pËÜéü4²3ð9bÞì/Ø!FgLľuxÙ†Wiˆz6qa•F|u(ë,[phÃGþX~\]û‡Ä¥òÄôæü»³óß}_vMÚðcÞ´çïÚpZ=‹´êÉŒ{Er$?ïiÖ†‡ŸÛpjÃÛymLÞóÙµ""©á¢ÍÞ´áÈ×Öá»g<öÈ#áÙÑK'(¿R¢ÍªÝ5a‰6›TÆ6”md#­—„lD›ù‚:ÔmøìXÀÓ»6ë—›%N\Š6´mè9ÿ¾*ñ¹¡\’³\À6Ó«”uD~ùfŠÓpb3- áwi6Håûavë>ßìªâ‘Aƒ-Ným È&ŠX!!ì`‚f¥0hõ”J¬ ‘bz cûÔC‚Š®)ØÛˆ¨)ûå5ý\åý ‚!O9< §p*ÔŽç>ÞÌ^:íÍ"edZ}×üú·®uXCgß´KOFá‡ýû²K4}ào4yµµÈ° tº`S:êÈu91eÛ¸&ÃÊ,ÒøG1ËKMÄM}v Œùvyó!oâ Æ_X3KR!ѳØ>n}JΉÙ'’ô hÈ@áSrK¹F#×h7çšC-§>çkeœY6A±¯¾[œl&¡ S0KZͳ{Ú/@`s}Èûi ž.—Vóá‚Ë?x¥¹ÉÜ°YU‘ôóuŸ,w3×)|š2óEzÒ„…± | ϨÀ ·z²gÁ9Gv·‰ÅüÄè@›ÙÄâÒ[ w—žuzÐÃÂŽ:Ò‰Ìcñ¦³/¥?æ*oh }ÇVƒÕiE¤;íC‰›Þx{WmvqÁOz0ŠŽ›*½bO™ê‚W„kûGW׳%ñDx•wÑ¥gS»ÏŠ%ŒïÄE+P:åÒb=G–”K„ò ´Ÿ 6WRWzð¸[¥CXZ íáƒí›U•&2Z!¨®ñó‰„mÉòèEƒDKѺzΧùð@¿ÆíË™/ÙYo{aàݺ…‚'` õ¨è›jûÊ;ÏS†˜ÞÁµ¿®"-õŒ4ØvEN!ê…JU*UÜŒºû„Ù÷$­‘]~¯\ŸèV%(c$pw{ªç§Š¹R†Ý…ì!°P¿ @©ïu:òðÿû7±{ïîØ©g\ÁX û›mN)êdÿ=,wìC{º¸¨2ÿ±Q‚²„Ú ÌðÏVK^S0Räæ–äŽ6Þ»WÈUQ‘ëo]2*•sKz×¥$Ï)kÖ;T2°]EÖe9DïuXØ_ÔŸxÊ»DšF¼xÛL5sõ@;*E“Ȭ¬Ð¢%¶ý•ùwˇ¬j}€ƒ¸e"z®l@ 5ö²ä¨\~Mgx{_ZHÁM¹Øûoã¬r~ÑÄ”p"IÐ’â£íòåaËoøÒÖfï¯Y}Ûyçò¯ê*˜Q¡†•sö2Á˜~‹™“/AõK·BtpIÀ}éÜ\ºÃ¥ â#o÷ä÷½È‹W ò’B=Ó»á’×ö.«)No¡õå*ç-üÅ6ÉOR4Jn¤©šÂ\®PÚû`¿&秅Ÿ‡L¹ƒy@Qâ%Ö®¨ÙGw©œVX{Rq ð¶ôÞ@‰¤KhU]¥¾AÁõs ÉÚÙ\®[ß!ïKhtºÌP|%HuäQ,Ü°‚¬ä ¤¢Tš§íº|~”Ãó»yÌl÷)Ì ©zxVhÓÑs»/*ð *Ԏ؉=ú»fåÌ[\öÄõÄä)ÙO—mú‡õZÿT7íÔ»ˆ)¹Jc“-ôɵpíUá"(H£ÆuÓ©TêëË‚ }ÛMÜ Äê*ñ ±¦]Sá´µ5Y}j¶Æ]nºèRèçz(œ0LvAxèRL…M'`ÿñ;ŸÒ['—øl¾Cä<—[¹ ù¥\ikg—1cUnܾù ƨê‹'ïfyüþPüM¹š…ªî}½çKÄ8ºX4=Á‹¶óËD‚Ô1:íø Dµ|A“‚^Ñ3ÖöD'°”aÁѳÂb)éuÛü Ì>m°ClC*+×Qz¼{L¯ìRŽ61‡‹«ÓnºŸn?n« •^ö®ÂÿS€9uãÉ#5ý^×QÒ-ZésÏOEÃwÛ%ÄY#½© ±HvŽþ3¥pH"µÆé8Ü®-áÉ l2à˜ƒ\Ê ÇA®˜ë2Èw–ÙKß0#¨â/HÐâäò¦äsíîÓWm…9›oÉÒæO6T°‚n &†š¤xÉ0Þ ÎÊcϾ ©Ô—¯‰æ¨³Ú¨kvÊ’t©Û*dê„ëŠ'—€›¸./%¬¼iÿSÝ챓EÅŸ©‹æiƒþv!ñ&çwWXï|&·OÞs>zΫZ;žßᆛυ˜Q‡©OæÒ5ÔtÙELÞâ©Þu™—ϯѴþÍÆ9鯷)Ë)÷ >×/ò&ÑA p‹Ô|.¦ûq›Þ*™ûBycÖQzöuÐ,Є©µ£´]UXwfæ_Ð¬× hß,aÍ{: ›$Ä«]ê~íYµ|ƒ>”ÕpÚ×Ȧ#½%+uDP7][!Õ“–Á­— B÷U}m#$^¢âdWjønzÌ,’1ØÔ/IÆ–ÞÜñ¦ç䯙Œuøé³lžÈï¯b¢è²¿ýB)]£È,5ìŒNP——ÈÉ Qµ(]²p2­S])$¾¼3IξäÖÂÒï \Ï[‰,Ðâèw:²‡Tì’¡xGî4 &Ì5Ï3ó"Cît),‘Jàx¼•tU¦…<Õcy<¶Öå¥ú§¼ á?ÖÕÙ³XÕŠXö&É_Š-r ñN¯$°ÈòQ¦+„yè84?_mÜ}þGjŒY+F Ó!ΣÜ5®WJcÛ€à‰–Ôí(?×cÙ¸\_åŒdæ|ÍÁù`@³>A&IQ÷ð­XÞ8wp¤O›0I…E3êµÒ¦± &ua®êz¤hòK…%TêñXåô{¹ð§’åS~ŽînÞ5ëÈ/Âyö½Ï‹-"Ä«[i½õZ¶HM ö9¿‘xìTf¤Ù:œ™Ò¯]0È£I\îÔ… Ï'^s¸,â‘gößîDÉRéí ±vŸRt-äî”95¯ŽS¤z È×–_¦ü­>N¼ÀÁX>Ñ8žŠ0a¡”:üË’®qlOïéb1D§õ=ä=g×¹'¯ºïã¶`ò’lâV‚±Ååz~{«ý€îÁÿmÙˆ9 7ëlfÂ9ËëHv7Ì®n×ð¹/±¤(]÷×7H˜šžÕwåþÁÞ5jo¡,ß H¦{²¨–°wê¼õ:³.÷Þ©Ó5wWöc 8, Oµ1ùD¹ø¤÷B'NoVj½ä¾2ÒÉ[ÊY÷iöóêý²ÔMK»Û1"WÈõòïÄÅéÂÊ/TþzöÖV` endstream endobj 712 0 obj << /Filter /FlateDecode /Length 5420 >> stream xœÍÂ÷’›™Õ¶÷RÏ.ï/^v?ÌYϼRt›G+&Œ·óë-cÊu0+òÂuËõ|!¥èçÝæ Žeoï~¹Úw{rÆ,ƒÕ8fÎ ÇDwcÁ™4®Û!léÔ¦‹K`…’tÉYR6Õt#ÜŸÁîößÏ……]ì~ Ó;Æm·Ü"8/¹ݪ€{}ùR^S /zÌ`³Ëë‹NÊùå/¼¼ø3üs­z¯gZÀ¿Â£”³ºgefg, ßK˜Ê‘i¶×Œq?ûxòüÿËEdÜ‹?]¼ŸñžÁŸAL<þу¬Dxjf<ƒ-eFBæ™õÅO³„0“a­r°·Ð¸ õÌä™už±R&„ÓCyâ ÆÉ^¸D#HH/x¯yž‰Ÿ %Ïp2É ï}…Ë0s©\¯<…2ÌœÅHMA„çÊ°q2Lœƒ³-ì«Çý8‘'΢<Ç)X.Àôžxœ¸q2`r îmØ×wHaø|ú=£àAÅɬ‰Û0†Ïg€?ì‹E²‘€¥Ïç(tBENäJÜu1|>Úƒbhì4„4dâ<JÀ¶tÂÈÏ1l:@ȧBàÊâyãSüÓçó@$->Zߟè†=“†¤O§?Ï™EµÁ4nÜЙ󠀵u‘ÃŒ7½=U´†3”¿Úÿ-PZp×­VçÛÕö—åÛð;Džy±Ù­ö·ËuAÏðbL,d-êþ´_Ý=ÀÖ϶›‡ÝæjI!f|¿ ‡´Fw«íÍ#¬E–ßݯ¢´€+§UÕi}Hâ:\¹\8y R‰òH¿†áõ)Yq¬NØ!+® ÿV(ðvŒ)ª©‚çôz©fOgXãš½>$¬Òq•«Œ¢«A/°ôqX¦‚¥kX|X%Â*HÂ*q/WÙ X<ÂraÄ0MìÁÓ„U&®Òí¥Œ«"öÊ·w”6®ŠTÕvVÚQFìy/añ¸JËjU’»|Æ°Šã!^gñ“ì!D_ÀxÛƒdÿƒrøw»ºxs!…s¡p¢$Þ¸ÿ‹_I¡Ä½±ÞÙê+,ÂÖÚ‚pK@ßkA´vàÊõøQŽÑ(„î)Q}¥âb„ó|ôØ0 䯠‹õWÜpt$ÖõÎ5PèP1X9¶éÉŠ Ýø½–¡Z@!3Èh $2Ÿ)?ÂÔãù5!‘%_Më¨ú¼ç²@iî|ô\Ï¢=»~g³}Õí^Íg`ùg;´*Ît+pQ¡¨^"¹Y¬Ý¦ŠRª$½ôú÷³çß¿®ê¹¸íoYl¯KÉñ ¢UÚKe<ÑwXŒfLxËÜ |ˆënc ›9Ï;¬WCÊá¤ÃzµÂ›™Îÿ81Žu8@°ø Þ»ÛÄⶉŠÛ^YKëŠ1íÁo#_çºw8­=¸kÑ­çЭuZ  ËAø¬—”Ûyn°¶®Pt¿â!…u©j/@r»²ÍM<™^ Ü’éÒ‹ttch¡¾Âo&$øCð¦ërK@ÒÝ›p_a9€Ëp7÷ñ{á|·L˜qS]3„Ë'RÝ=ÔxÁ»ÇÂYï¦o6>à=„`BÆÃîj÷ð½ ¡Ôj|ó/^–‹0Ï ‚á¾%_} ŒÃ _ñ—ݧ ?åê&Ñ€¤SE‰·$xZ lå2J„X\ÝÁ0mŒª|‘ÎÑ#p¨\«,ž Lt•KEÞUb#¤6ÝÇ€#„]¶[²8¡-¢Ž—M§étÙä N6 ^;\$z L bÊpÀ/aˆ90pÝï„ðÀ=SiÌUXZ ®æ© HSh•£'ƒ¼ÜWTÝÅ[+ÅduUV)C¾ÌÊ8wß<ŸÃð°8ð§Á!BÌ6àÖ-ò΀­D9Z8‡!0’ OoÈ4Ø’0o`þ]A‰Ü†2%ÔHÂó†8«xbI:ÞWƒJÞÄÍÀŒÐµeߟ£Ès0ëÊ2IÐ%x]¼&u3Öp¦N¡†dÂõ¸"R9 qÚyüT#Ï[¢,¢ÔRd$ B÷Þh›4TY°…²xíÚ0AB£XjH~x²IÃC™ $ÜÄïðigçN”3ðZpR€©'–x”\GÀÚY¼†&»aÚ„ ŸS;—€lCtZ „êÞF-çª[Þ$ú¢§$Š2aüÊŠ›øã¢AàéÂÁ~T1ä„È0aŠúç"ê@Þ7g×eøª#ãx£7&Édl‚ùŽäÊ­0•‚?”hàŠxâQ‰”m2c@Õ57¡{á’èómÑg4‘:jãš‘ƈ‡¢çWJZoBöIÝËòmhXpÎý).–Nb¡&¸SYù"ÊÅ´$»{Bh³Í‚Z»ø°ØsSõEÜU‹ÖDOLšö€] p€bõ¤ÙøA†#´€SS‡&%㸠åU×ñ9 ŒØ€ÕÑ)yË»_Û¼ÅUWÑH×»ÉÎÏ|”F¿•­#>sŸÔ:¯ÝFhh+ZìC c=:éšYóñAqu‚g!TXΣJèuHešhB-G;AÝzÓœ0>D¹Ù6-B|å…¯ ÿïF6-…>S¢ŒBæT2 {l?h´OG¯ d]È *@ U!æ WÓ)B‚‡ˆ ¤ÕíláI!mDüå‘,W€•¡AÁ²¶ýi‰:[nS”l«“•·1º÷F "ú¶iYHc—"Ð$ÎÊöa„ueX€Ò]ÖuQù"9Gbm,Žç6ãHáy{$‘ȪCÉó)ɱÒÕc]:Áeí,%Hô`}$±±<mônäF¦ýà;šÎO€lêlB6Á‰Aà郦áu®è‚¦ß‡€?\’þ†º·CKT*Ybnbfo!³ò;°EÌͳ ºÀ*ì>-D†”µWE~Û2†‚€»îbÇ€‰¡!Úy=ì BV JTk‚µIgQ4È_BXJlDx®>í&΂oÉ=ÞCש 9^3G¼ø5d] Ä2¦0)‹ûYô¬·ÍÅ”â4Sç«°îäMÌÖ1ºsÝÍ]Žº?­«MbAÀõªD7åüÔwU"P%êŠë^K•ÔħglÊSXµ#ã€_,­pQ4é6R†–¨& ä6®ŽÑs‰¶6iÞ$l§ø6J1Iy­CÀ|ËBÄü—pâ&â Ð^‚o«z]‰YP—kÂÈOóœÂgCå]ŽÁªÕ½-º$©Ïm¶Ù«H%àåD®N5ŠU­Ž'-œú@­3¸¡zDpÞG‘k)Š:9!Çù(}]Õr9´’G’Hú8Æ (‹”ÐkT¤É‘}<s‚ŠkŒÆÒÙj¯b{¬›°\€ƒFc *’׃€X“¢y•‡7ÝNèBÈIè›âUÚˆ¸]îË0¥_qÜN¿”ïÁ³zºg*×K»>›údÒ>Õ+Gm+µOwE/c Ú)š‘4%-®‹ºQˆuŽ°¤mçã@)”ÈBD’êT'T‰3NçÖ~RÕP|Óî[Ì->3àVø°²ë^ñ€ DK¢Rÿ»¹ñ\󃸉jõGb«R–A*2µ yòi’+á+Y^øPÓ€ [´N7ì/‚D¥|÷`æ–sí¤P§¦û÷2»(³ä±û2\¶àSÞ•áÓíÃçĈO;7ì†{:›Öºî›2üìcOËÚ]™]7û¹¹Å»æÚ]s·U&òŒŸ{l>w[†›2Ü6ñ©¹]Ü"ƒ¶e˜Ó á0»Š®Åà-¯¢õ²ôý7eøU™Ó7®B-ÈuôYé¼*ÃÇÏIgµ¶%¨dvÝ–ÙÏ{"m¦\79±mJÑyšRôYYÿç2<&${Ì«1²0{äÿº¸ü—)Öý¶>tJZìøØd.1,÷eí7c¡9 ë¢ MSãd›VdE›Û&åšFäMSjï>–á;ŠÃÀ.=0ëk¾‡$¨µÞ7)²n²ð¦Í¡«ö4+þ ysá!+‡èËP”¡nRºýX{-oΊ67§´Í×1- âLäý#¥|“l‹24M ê悯Ê쳦ÆoÇŒ>fhv%ZBNdøº,øëFç«&oˆdo(>-ÝPMoš¾û&°Z(ù¿=Çå³ùEsg¢ÄË&wåp(‹òé_”Ù;Jö<|[Ö¾,³¾©€¿/kŸ—ÙïËðõo)¢ ዤàØZŽ·£I —um''‡u’Pæ!˜P¨ò¡XÝí‡YÃÄt±HÏÇUlcÔZ×eΈ’Ñ:Õ9}ŸÉáíú&-ð¬nh 5’áºճ”q¶£^œõ©]+ôØ£ÞÄš©×Ê4/!ò»Š±ÇUkçn· §b†yZ„n8Þ¡}íü64îUZKá½Ä|Ðz¬Á›î¿71µÖ<^GFMäÛKBîcµfì_?–t»ºÈÃOñAëªúÔ2U’}]¦%µÝ€´N 9v{OÜ’ü]È›IC(žåz{®ž-G×=7*\UeUìÔDj×u"Z?}†óðJ S’•UÄ“Š°¹jŠ%.+þæ¹LNžÃÒ…±ÓÚx´úäxoðÕ_V.ON®'LÖe@àή.‹ôã{uƒµ1H²xŒ ¡qtû+TS7gñÒ…IKk¥MÂqlÓUù”'äðM³-zgÌ$„zéhXC³ ,Q-Ó›HüŃi­ÅþXóY‡÷s«Îö° Œôöã­ÁÛ_Uˆb ‚Qø4¼®[¢õ ×yDÝ?Ex¸yª‚iuäò€¶ËÒpU»š÷V‰QŠÿs¼K3<ì©`‰Ï}ªXÄm\žLjŒT  ²î‘ù¢|ªH+ñ âÿ¢H›šc” ž®{ch'j‹ íѺ¹$ÔS~c¿GM9uØŠ®Ã>¯üS=ˆ­®&á`q{r‡/Aœù<ÒæøÛpÒ“ú-k"Üë-ßKó®é?Ã’¤"¢Øþí«šMœf¼¾`мž75úªv›Zc@`U¾<¤.o¢[²j)Kˆ¼wvÜ®5[,Jnn‹Gw½åS½¶‡÷lÜË/ ðK.µ:µúÇe¾Í†æ¤°€tmQsB®3ÉŠ›ˆ&ý° -“í붺ô_.ÇmŽøÂvÝ$µ6tÓÂövuçî26À¤8,{xÄ„~ÊS¬"é°†ö¹T§M4˜hÂ!²6ÙC6`¹‹ÂÈâ+Z‡m-çv¢#\äzù  ‡CˆI•xCºi‰*Q4F½ÍÛǽ4i†Ú{„¢!Gøå 4V¦]hXë’QñZC³7Í®ÞÏsD:–+y¥ ïsò“®wP}I[l˜ía³!Çü1`b8&wsïk P·¶ïaÖ§úðXx÷b·_îïvû»«];â¬dËùCÏ×Gz®”Áߊ’Uø¼Óž§{w-DõúÀÑŸªÊïÓû©ª¡­·Q¬î¨ ­10ÝÍuoŒÁ·4¶5fÿ@› hÿÉ„»ŽP ÓÁ¯2X58!ük·A øZÉúBz\‚!Åäö…S»ðL x¤®7Á9?ñšZºóˆLxu‡—Ô@ÉïñÁ¨ÞëêwI¢ÏfÃÚÄ1õ4ïÄ—¯¼ Á×T÷)2k(¤u"&­(1v€¿6£˜¦¥Q´¥4‰TŠÈ›j}Ö䕪¡åsNš »Í͇YJBµ·­wmª¥Xìƒ / e«@F¤—éil½­;œ2¶ Tª7D4êέpˆ±‘㜉*'ÄŸ`(¹Á?un‰7ø/§yNþDÉZÇ‚¡›x±lŸSl×¾WðJ 3{øÍßƨÎÔb(ñ,vÐÐT¡ôÉV-³y K>]`–ÌzF´0¾ úFžF,ot‡²ˆ«Þ¡ @€-^áûTáQ}Ö%¿Ì å“Yl."F[ê‚É6ÇFÚÔŠN1ÊãÑ[FémÔ?_üs—>þendstream endobj 713 0 obj << /Filter /FlateDecode /Length 7310 >> stream xœÍ=ÛŽ\·‘‹}T‚ý‚; {á>9¼“Á:€lØHÎnl â‡x´f¤ÙÒ´â‘dëï·.<‡E6Ù3#ÙɦÎðZ¬{«ÿ~6OêlÆÿòÿ/^>úíWÑž]Ý>úû#üðò‘KNOÁCûÅÚŽVÅ)Á‡¹4¯}}v®`¤¢9Ïòÿ.^ž}rŽó:ø2¥9©³ógxAuÕYpaJÆ¿|´1v{þ-tV^W½ l1€óËGݼÜîæI§£ß<Åöœ¢ ›×ÛyŠJ›6ûgøÙ¤hœß¶jšçdôæ{üêR AÿïùÑ2V.cõdµ[–ùÝvg­™âæS¦RR!n7°ŠÝ6—e¶Í›-.gbÜ\ˆ•qGsò–~M­fãã†f€º´¹ÚîŒÑSŠnó'æÙF8Îœ±4ƒšç0ÇÍ~'Žýø†„ýëÍþþ!ÎJÁòï¶ëVoqšèµ ¥¼©[\ÓÀ¿šMÆW7W]`óUY’»×·»3ÚM~Ög;ã¦3Ñ s:À<ë6׸ÿh“ÆãîŒR°!‚¢UÁ„j?pm0,:=òA’ ŽÎç•w+ “‹‰ï˜áÈdzp!Æqg§”QÔÑ;ƒ×‰Ûðp³/ \WüyVzCp)&—§†kÑ›ï¶:À©´©6GSÌ°¡ Ê×åêÛŒƒi•l®›ˆrØ-µ³®ÐëðºelùUúHXVQfóÍF`㶎€¯b#oʦoÅ$O üÁÃaEçgb‡ïñ;ÞFªö½AHª­·Õw^P×ÊØ¿Þ"Še&mü‚€}Ô%‚B<Œ N c¸2²Á2°ëõ\ŒÔá­ &±ˆ„ÍEä‹Éo>©Ý ÿ±°¥Oë,Å]p©Ö’övËQwð$Â'þD?M·È ó„#À^m¾Ù:øˆYKZÝBL °g@V·<‡‰ >OýÑnÔ ×ò)¯6_`o°Î'Èôy¡%ÂâYEw =bÐqÖ² p]šÛ­¤·ÒíÏÁËÁn·òº+¬‡Þ.yIþ:«ØpÉ»Eç{ìZL’i4’5jkqs ÿªÈ–¥{8yfêíArYsf&Zä!šV€ËO¶Ç{ãd\±º«I:¯i‡a¢6?)ÇÜYû$û^lµÇÀ?¯£. ¬÷Äì<»D»ØYU„((.ÿ=2Çö)j«™©ÌVÛXñðì

 #!4A$ÿ§6Âx)y÷ŠÒ‚9ðÜÁêJúÏG¥ ×Aþ,e÷žÑÛƒ”¬Õ\¼Vg ª¹ë%HMñû¼o@b±‘›üu¶'ä!t@áôA"éÓᚊy}¸³ÍáYiË3\—)Þ $“€9ø¸~¤Ìj8ß¾ÒÌ™? ÍŒÕyœŠ©Ë ¥™çMÎú|ÛL¶òz~+ÿA‚86›©e¼³ Š­'ÞUw\ºü‚¤‹MÎUŸ/Š¶!A¸ÊÁXÙFÈN<°5S«:e:¡¤Jn;µÊ½v@„À Ó$ÂÂŒˆï‹GçÿñW”û$ì Öóïž¾x~}ØÚ뇭›Q³t'Ôö\hظ¼ýå/õ }zûúvÛ#{ û²Ï >¾å¹i‰.‡]äD’L*#L]U¥ í™`UÔAâÃ[©Úã*&Z9ó¿Â?6_o£A‚ñÕ.ò¡õŒØM_Ï·Šœ³x¡Õ}%ƒWpÔô|`{Q !ƒÔš.h'ø5âN }OÀ¬:³î<&¢(¥Îs /a½­¤ÄŠMµº–ak6+óË`¿-ÿ&RÑ< ™GR Â9?‚OËlâ@k ‘z»UHn ÏÖîrZ á·ÛÕ0Ls¿e+ o¶æ~L²).j7³‚’‰@mÕu•×Ey_Õ Ñ˜¯PèrC­û‚v“üˆÜ*݇ô<‡@v.b³Ò™] <´«õ¼!# ¤Ö$…ÛÇJ)±íÁåÒ÷["ØSß”æ¡4ß–¦èKúóÒÞv™(ö(sYh@9Lˆ÷óIz¦ìƒÈëÍùq”aÓŠr†ªÿ‰Ö¦é\íì‹AÅæ°%áâtÇëêZî~Ò3…$ ‚üYi¤m@ämDNŸ± ôYCkªäA1{Þ?!áGæÊAÂ@Œd#™ÉúÔèçÕPÅ 0B¨9Õ/Ë××øÕ­úJg¢š±¦¥ šItúW†ÍJзyy T¦pQ?#± í¢˜ÿ¯ˆ4qO)ƒ-ùÁY9šú¼OîWó­³gv)ÕôXã!ô8òV1êDØKŸÏK`¼¢Û¹é+"»~^DPíQ僄‰\„ýdðOž»à E­ó¢ ˆu+3mcõ¤W L¾Ñ@^†³ébtâPÃr¨QÈ Qèsà„:Â}p—OYSÌÿ °x‚hæ2g Xîâͪ©Ëë`½É8@äw¨MROn,Ђ‰íõRÄ6Ïîì!Ÿì©Å*I}~à¼Eðšù%Nê“V#gÓkîÁ{B7ä¢ãý±nþDj ïü%wGùKÜ ŽæjGn-úøìJ:ûѺ Ç`°â²ëÄ&¯n+RÛË0OˆèÛ²¹Üižüº¨‡Z$r[6Ú }l™£ ¿›¡Dé:Š°Ö.Ö¼2á°«vÐÄ«v ãà¶C£‹T\zXeÇN£ÄÊÄ=“·Z¦98!MSÞ› Ϋ–̵®T.á)¸m.æMsëÆwì¤ôس– ´¾A< 𛢴‚ÀU‚Òöx,¼ •ÞŒÔoQé‰÷òI^z äZfŠ·)¿Æ„ÁÝkÈ°2ò¤ÓEÐÛŒBf2"trì±\`+þ¯ Ðð%ûȬñµƒ{_ô»QxDèV"¬ó¢eðùTµé!uõ:|G,|6dS#Q£#ÿäóÂäoJ+‡Ì0ЀGVˆ’gH‹‰¹(Fw©Q’'2;SÞÛj¼´{Åî¾Åex¹JÙ0vÀ0DA°Jñáâ‡èbõÔYÕǵÃ/_a±½qé låÞçÚ×T½œÓJ3ðÈ/ Ú\S^å bY‘ÂJ…€Ê(@°Îú¼Ðóz"Upêüc±@Z_¨ŠðÕ°ì}ÙÑ ¿Øn9[­£Ü+™0sùSË&NŒº°®œ¬Nªêü4hà‡•‰L¨Ø…¶Øá’@¨wL¦‡ŽCl‰•8âØÛ­s¤ï!?ÛUax¾°ÊVA w£ ë‘ ´ÇýrZw:Z³:CºÑé !­~¨^ãb麟Ü]¶ö@wâ°û ©ä»F÷ÍAp£§¼†Úe…4¦aˆ~½jU}þa‹cÔ ¤.bÈÅâÓ5ßÆÊXÒ]Ž)EÑþG²ÈŒSºæ¼]Šq%Ëgÿ‡;»²¿ŸÜ;™pª˜ö7[îÓÏ#pVÖ]#@Èí‡÷ù6ÂpäšÚ-÷6Ï~”Š"| ~åfû* 3í‰þ†f÷ ~2º/SPÐs”OwÚ}gf™”õ3ºïó¼ÿ™¼wèĤcuxU˜å̯֙_­¶ÏØÞŒ)`¹]Ð'†=ðˆ? Ó%¯w¡ÅG}QtË|WsºG\î¦HtÀÍqØ¡ìu”.ÇÂÝó\ƒ{ÖúSÍà»Î–6Hxð^áxc(uà–AN껯8fþ’‰…øÑ)«“"}…~ÒR_ èê8°1åS_Ì‚(@ä^ˆ”¶½L›Çè&øeS ?Š`\˃µÇ±ÈT±!ï52øQ¹·6m~¿Ý9²a­;3Âäæmiª¥¯ßügùº+_Å /Ks_š™¿Pû]i>/ÍÊloOwˆy–³]–æméûqi^”OJóy—cŠÉ$oÜw§xÑíðºb©k[œãò®qûî9îÖßmT:ä¾Ô¼.ÍCi^²qâµÍêZ·à6¿.]ÿTš_”¦èåÉn™­ÖaÞ%õÿ3”üg\eÛ÷z@½…]:ü©4¿(MÑ!_à*Nñà›Ò<”æÛ;/ãì¨wE÷@™²Ü¢â4Ê”uS0s:Û-l“Ý®ë¸gȲ1£?n—¯,ÍOK‡O ÿXšÐA¹€ùÒ’kˆëºêÞ†`RßÁ3˜ D‡¯Jó¼,ñª|íë}”eåÑÓ·ù²|ý f˜-ŠvÉ)ö¥ù¦4ÿVšºìì/åëãÒüœÁ åŠ|^ðéMi¾Í¶¦\»îâÅTš¦4C·o2ÓNF™KÓw›º€nW¾†ÒœºÃbi:9lMD'PÞN»‡©»„é6UáÞs¹’©4ÅWSšV6ñúÚZš—í ô.ºtyYऻðOw]¦hÎ]¹Ðï @f»W1w@åe*yÛwÜ«hºî¼©;Cꋲ¹ÎÐG‡yp ±³uÕ]­6ñµf³D³%æ ºþ¢D„Ó¥»h(æB{ÅW½¿éš²»eOÌ畾óýÍl( ‘³c}•^,ld§3Çl®×®¨\d7Ýbº‚]xý±½ß¦59¼°̲øÃ"ƪÄa ,؆'&o|ȧ›ÙôˆÞ›LÜ”¬ ðIŽù]åt9ÊgöÓ Æðzµ¿d«yŽIõó™U˜j¶¥ØÓ5JhSð:¦z[³× SHgƬìˆ0øèúYßnOríàn]ìÁVô%OŒÎPYvu¶wš«;@-·>døBľÚL½QQN>+kò:ý¤ÒB_ζÝQ Ê}y=ÑÞ_=;€ ¿¦û%ÿQkLÖ'Ra2Un û5ž­Öhoe'íMèA-×>$ÇGryè+ V?¨ü»SÏë4lm1[CøÅd=·›¬såì¿;=a)`ù){Ð{5£+ÚoöW{¹aìt1ŒÜZWWOËFÐÑãH6« ÖeIþT‚úÀ,º¦ç“þ‘•Ÿ‰töÚUƒ“˜åÈÝþ‘ž¡XÎœ#`xú‹çíç­ÉÓÅó–k{b,Í­ŽäÜ«|ØÝ'€UÎwïmÝ8ƒt•Ø.=˜”-‚ˆì:™¢ôj7§Šz;éHÕ1ÇÕGùOšiådºÅ½ƒ3M O¾ @ö—÷¹Â¤Pÿ3¾{ÂgYI·Ÿª¤ÄÕeJi‰¸s%ó¨}ŒoõÃŒ0xtN–(Ä2uŸ r8«×G¨àò“þ]óÖ‰h^ F• ¹ð›øïÞx‰¬Ç'ݾÀ¯JUÎuD…/x›øyæÃ,ßqj0v°YmÊYWÌâr¢N7z(òaŽ$”š*ÉŽ¢‘@2Ò©¯Û%~\1Y£†9uÕ[6€•šIѧ'p!™£'f‰¢Fc™€›Æ§*?ѺŠðÐtê'_·ùÞ@_cŽï¥Šb½YÕél ÙꬃÝ=Ëbjrj_Ò›ø@»Ú—g·šÆ2fa•ÃUz4Or𢢯ô yÏCŽ+`”#â`J³–X+_h”ÞÝrþZxä~Ã;Ô®Ì%çªæÚ®úø¿–ˆwW ‡‹ kg¤Ag€J€6þÖ7$ð¡ª.õ,~U„éÃX¶48ì©Œ3PÐ Îv€—W*gÀJÞvO§¤À„•@lÖKcþåŽÃ«i^­(8pÏÀëQ•@ú=NÜ}x~ÇòÍ?ÏÌ)ôí'è *B¬Œ|na¢ãëSÙ£‹Ž\O '0XßåN¨øäÌCð ý`°à OãA»ùWUÁ„jGx`ºêd&æ±rMO|QAI#b0a (ô ¿t õ—@0èš*¸añ}舨-cƳÝ×Ö(ñž²MC9ýS–oW«¾ßš+Ò—£qÒŸQK™C¶Ý8ç4wø©ËVp9MØ3–ô¨½Ì*èꆷ<Êb8ì}™rz¬úYë(t ¸aø-Ï »õ)2|ï'oáèî£:¼†x›3Ô|Öµë{üˆ^°»FWí)ôÚÝã© &ÛÏ\W­šÖzk…ŸW蘣"K£Õ½Mg²¬fƒ¯5HôÙTÏøsƶ‹v¤{ ã6§i§ú(k‘ý–ÕË™WE¤ª®ƒ‘¯Êµßõ\RTx IZÁ‰ƒ(ão8=õy²T¿a8‘­n¦¦<Ô!§kƒùý*©J¦[ÇÑ“Ûa±aúdƒƒóØNk&ª´8è”Ger¢úPY–9…»åTµ* 9ÞlPÍ“x‘Ø$Ñõ8Ù+ Ñ)¸vlxäÚJ{9ò¢pðCyH–G4§r¸&³ºMf¿¨`ƒÃàS&ó²õòŽ÷Ûu}|7VålWs˜*¨¼š`^µ]”ç8®r”5W¥™Iw‚pUæÙîá²èUhÓÖWa{*õV¹áJ è {U¸éÊ++›xÍ;–w+<çb‚cî²äú—¦ªäàSÞIõ¼ûug¦ñÒ¡%ê´v\ªÂQÜXVƉåÜ9by–»]sßó‚¾-™´B Ÿ¢ù¾9ø´–ºgî%3Üû-;oyt% ¯Ú!Ÿ3Tõ³F¯cˆÎß«Ë2uùaÛ ìÆ^@…Ü;d¸ê†Ÿ5nÚöÙnÃlËDá‰Áƒšüb)0³u\aàŒÄÙüè?óã $ùúRpcùTæX¡UvM¦üwAkøø[a°t9¶h;p„¸ö½ÇøÖë©UcîƒnôÓZÚ­7XkïóªAãééÀfFLÂ$Õº™@Nzâê§në $Édw<Ì({ôæW™Ö'–û±Pyc^Û˜vLdvµr,aÉï;ȹ¿ÍÛ‹êÁÁe{üzÁ“ª1ÁÀpˆå¨$ÞS^®”ª¸£:ÞZíCWÜÀÕžº{>¨–,G: ›ìµFÅ€2ÔšéP=¿®T)«ÖilŽªÆJ¥ï}t¹´g¹ß«ü‹ñjr V1°A¦|çéZ7)2º)Èâ½t®×¥y]š"íó²äe=, µËrâ¤}±wmÌ R}‚Ÿ>V¤`~ö~çŠ ‰s=ב/‘âD­ì€AÖ¾ü½û}‰à$b¹ªJÔ}‚žylÆ]Qö†Tá®E2¸¶4§ëk£¬®‡g²ƒ!êѯÓÐåÇ%q™/’’?/hûYiö¯ÌD…g}¥¶Rðÿ’ÿƒöž(d×}¿'‰›ucæQ…j®›M%æN|Ä` ³u Zº k%i©Ba)樊!ÝÿÉBvØÃÐcÈ"z«jÒ‹Q(X¬}ñÇ!q/8öZ/˽jgË%³¶Ê~J9vÂÓò¾1"9´ÁúÇ ØÄÉP¬B“*?Í “ý´-‘’ëhá/C¤Ä„°tÐR4®zz uIìÈ‘ˆŸâéAa#¢BS*¸IÆîær’ÍF Ñ^ýfD§âˆÀ ™™j}‰ý¤ ¸†¾ÐÖ—­eÑÊWȲR¢¬1-Š| ¢g¬f9¨*òF`O—ÊÞå«*nà&óWb’·Ýò8“*z;ÆsR¸ÇlÎ*ÄxÕ"ÀdÅT§J·iÆ/*³üŒ'á°âȃ²lõ|ÅÆF2_Uû·Š ¡ü*“®¡[åqP(H„¨HDÅ@9d£øÆSî‚Ü3iaÁA/‘÷kvî»Cû‹A´l¬½¥Œ3 álAìalªH×½Œ*W¹Ëë}q¦Y&ð» ßs@°ãøYùsÆ,€ÿ·êfe€d_¾yîÉ‚O…+î? 0VÚ솟s½TTkŽTw ’È´)¶Q 2–h»Íâ^¾ÿ™H ôЪ—¦a€gt[­jÖp›_{O”Up¢_i“Ç•9ÖL•ð“KlàX 3ßs×Z“QÚìzË@E« ©/ØÔ{FÛ0)ë•ÿ ÂWW¬îP™.yå¨G¬Æ1˘Ž@¼ÿCqaÕÒ¼fþT0.bÙá&‡ÌòXt0»j ä~ö0ÁD;é0F„ª‚Óv©IZ¥I-·R½°+¯äªxoVkéæX NŽEcMÚnrdftµ,¡u‹· Ëkôø¥ÎUC'`WY¿;æ‹øé<…ÝÈ”r.'9õ=hÔÙ¤Õ8|ÁÓF¥«ôŠe\ù1úüo4³r:Ž’oñwö$éüLOª;*…›÷GIik¹ l\ß *`Ò2Æ›õ7ˆÐá%ò8¥£©:ʉ“1š¯±r`åò£4ØÕ%,óé»ýýÒ¥Ùîï‘ÓCüúÆdˆ}"«šdøóv ˆPÿ¦]k³yÔT[§õ€…‹oÒä©Ò<ùRf­+Ït©!ü.Ÿ[qiöå‚%~q °[Ý2É›@ÿäa»'Êp Ê龚]ïé*è.w ÒŠö·59xÅÿþÃëˆæendstream endobj 714 0 obj << /Filter /FlateDecode /Length 10426 >> stream xœµ}]s\É‘]„¹ GØ~òC‡Ÿ¡uë»Ê¿Œ¥•W+{G×û íF€†ährF³¿ÞçdVÝ›ÕèÆ3²&ìNÔÍúÊ“YY·¿Ù-·[ø_ÿ÷õû¿ø}»7/¾yAÂû©%(Ÿo×Ï5ºzh ,ÛÇ·/þiwÂ<é„ç®ÿóúýî‹—àëréЖæv/¿z¡=º÷í\Þ•T-¤ÝË÷/þ¸ÿÍÅrXZöÁïï?ás\|Åç—Ë¡,K¬û;PCÍ×ýÕíÅeþPÛßÅÏá·ÿtÙ§¶ÿˆnYÊ‚Öü¼Ôâëâ÷ïðÙ»%äº ïÐjHy¯MÐ"Ûäµi²ušlGìAïý¼ð½Ö°ÿîÂçC]\Ù_} »\ñû›Ý?¿ü W>ÙòÍ26cÙ½¼~±åâ忾øÕË¿ÃXâÐâ¡Ö]r3kب˜C:¸¸RnWJ ý€0Z cÓø߇ó;bØÕÂu—ã§%Œí+ضÒvÉC4ð¯lßÿ½È Ô°LŸnv÷_í^^85uaóðq÷‡Wß=||÷úB'¾v¥ dÃÿÊî’Râ»l;,ðÁy‘ý/oîÞ}ü~]“rH^Û}¹ú þÿ¯}V¿ÿõ‹ov:bßEœ±Ò]Þ½ ùPÜ.¥±1\HWÝÁÇ•rûâ»ß=›ËFYògsɱj´\VÊçs .A%‹á²QžÁ%SŒìŒ6Êçs9^KK™¸üÉ[†N¡RÊEð.ãÅeò±JÚ_z|N½¥ý‚0 $ûícñùyz®”*Ú–]:ÔÝF(.…Cù¬¥8ÁZ¸žÃ#£Å!xÃdPžÅöË`¹tʳ¸èº+–K§<‡K_Èɼ²?$§íF·@©Ï0žÚ(j~ñ{<µûå½|ÈãCêøÐú‡¼Œn|ðãCâø08çÁ9Îyp΃sœËà\ç28—Á¹ Îep.ƒsœËà\ç:8×Á¹Îup®ƒsœëà\ç:8·Á¹ ÎmpnƒsœÛàÜç68·Á¹uÎШñÁ~|ãCÒøLJ2>Ôñapvƒ³œÝàìg78»ÁÙ Înpvƒ³œýàìg?8ûÁÙÎ~pöƒ³œýàìç08‡Á9 ÎapƒsœÃàç08‡Á9ÎqpŽƒsœãàç88ÇÁ9ÎqpNƒsœÓàœç48ÌCóÐÁnθ!ü(msƸY¾ÓVû%ÄC²ß!‰JÉÏ5 ã«sN€R¦ÿBÇ‚$!dO7!}¤çu‚°Ç3‹H(‡(À˜6ª26<$!´Nhðn$iÓ‡{,Õ! Á+x4 hôïpE¾Öþw„ž“f`CBDïUUœ±Ã"!ö©ÅŒa‘úºDĉ„,a?¿b9åiƒŽÀÙ8}ÞFâ–â£öë|($$¯¾ÔsÄŒð¤)¥ãâêB/¡ŒŒ È)¥ah 4,@#Ï. ç°úXT¥$ />Eô h4¶øC6 ÛÁ‘Ò¥˜„sÐ=ØËxȲr•c%`cƒ,nEp`°X¡SÚ‚O $¬ ¢×\QæòV™{ƒ˜ÃAéÛ!)¥b„ TÊ—4, FX@Á:5¥GÀ•€WhBè-(üKVJÅIÁ¿‚>‚[ {-Ž¤DÎYœUÓ\l"¥ÁaýS]ÿŽ°a²eàqbßM'>chÕÄW ­ÚÁ‡¡U;¡0´f'r`ëmaB¨]3‹'H&z[à#ófB̉ãØ6*Dl«kf3CB¯ÕìwHŽ`D;¢^#5`ã`úäMò<˜XˆU:×hj•à[+±Jy€3±jB(˜íÄP–PŠ;1Ô)”VÔNt… Ò Éœ‰Z‰®°¡rÞ~SéÐJˆ•èJ«ÔNt³"r±Ýp„V²Ú 1,fW­D7Åpžþ°’lŒ<+Od—·ùP)ƆÀN:A|æsÈP„-<²ÚÊ# !æ•G,Îà!I¢HÍÈÛ¢¹XÄ Á)¡ òÞ/åm•\ZD# ½ã\+v9YoK‹šy¤ÂUÕ™Ðú#ÒiÅÖé}P5§îÑû°+4£43Ó KÚ9èâTXßÌzÒ)YMlåPti{ꄬ„Ö9eÃ1–em›Þ¸Fï¹ ÀÑõ§åMí6^¿øE¿é_a¾“ýÃÜ:¹Sªs?™Ë,ßÅG.0+~50 ”|×çkÓç[v+:%ˆKups¾ä ‡±3ꦑG˜R,ÎG{Ô 2`/AbÞuà…µNP¦0eÝ1”Ð:¯pÄÁÖ+Ðy”Øy„Þ ¼òˆ͵¥óHý‘V;•VåS¼ç ÞS}í=‡ìÔÆ%´ÎC½1¡úÄf"v'“CŸ-Зò~`ƃþS«úµàG0¥H- DÁBH}pŠÊ¡#W”Σh‹£›ºûnYxÄE¾ba…4\Q'&$îEÁ}¿<û£ïJFà<”CÓyÒ, ‡äõkUIa.œ“<Ÿ:rf–KžÏ]&U³¦Žœ[ë>³÷ÿ¤O!¡äŒø÷’;P¦´Ìí{¹)÷j ,‡pÒWäŒi‰Olã‘”°„,mÌNy´>ñ˜5ËT–ñúoBˆ*W±ÆŽ®û\# =y×!}¢wBWê´¨o.>èä“ëÝwÅK^u ¹#tâMbì ž{¨(ì•ðÈ¢^¤ÀÏÐõ–"rM pe(ÒÄ_—ƃ¡ÀÕd¢zZ1¥ÀÛΧW Ök‘X xs”è"Öã¬G"%­ýÄ eP ¾Â‡±¡R0OáOí¼RšðiX4)‰OƒÍј‚ÈŠ|´J2c¦D*-JÀ%ÑÊ¢|T!…R¼ÐÚw>ʧŽh…’>˜ž£Î1ZÁ§Äø»é:¥‘O^ÂàÖ'¹Þ— G¶á1t…ˆlÓ–ã@g/qg<'¬)¯"0RòˆŒJ•%žå~“Ãu×)Uø@%8?Rꈧâ1R°âäCë5¦d|êOUÌ”|=¨Rè—I)q´Akòde[R°.äÃä®S fJ>QÑžPªð‰IVWâ»,|"R~;Æw–þf*úêOÔfF|K½c]$ô²HAkòI°°M£BÌ”|æÕãDZÂ}ö6t³¤ÓôX2Kœ⿤`¦ä“a¬¼R IâM7øЄ’‚;%Éó9c¦Y#Е´  •D©Ð³¼F©äS¸ËR…OC+Ja|C Œ…†p –ð¡d)˓¤}§4å“%6%ÅKl› ¤¥S˜›JsÈŒbS¥0Ò'’ÕŸJ2²LÛÒ#kØÿHŠ“I6’OÅ,’¶ÁL)šÜ)Uù0E¥láCÛ"F3ÂÒ•‚™ Ÿ6zgM> Ô)½’Os2K„ž4Ò÷©÷Ž @ø´à%ÉÈ@)+¥*ŒYgÁ³Ç6qfÚêÔ†’]”Oí”ÆÖY$K)6Oí#h”C  ×¹–éxÖYþpιiA(Uljй3•P{R ·½ ÂöÎúª®j èm!…VT)˜©ðÁÞê:3ÐO¤`ÿûSpÂz¯s—\)¡©ô‚R”OëR>@j:ÂÀ¤)Ω„ ƒŒuM¥ÞC2ç{Ê´íb*J²2ŸF›$ •LÛù`¦ÂÚÔ)6áèP)€sÂgzGȇ £§Qð‰|ð˜Z P*C€!?+zV›Gjb3•ä‹Z&R0SòIU‚C¡4áC«µ(’D>< =A…ObjEÓ1IÂ6ØÕ¢V4DøHòΌSª¤lbXÓ:˜)ùÄ% >˜©$zJQÛ+‰ò ´uQ)Ì>dn’- çøê˜eÉ¡E žø&3”iðtnËx$HfÈö)!9#Œ-‡ ¹#¦>èE×ì¼'x8,roÁœ*|1“hJ(^™!WUL±øø<@LŽ0 «‹¡1Üb4˜4E ¼¨=eÅÈZHGñ Œ†=)JÁìé4†R%Ähô)=³•%Ö©è°h vP2[´½J!Ð&²çº€<$†eÉ=V$V©¡‘‚ç…5®gȼòŸWŠx §ø°vJÕ„ÚêxŠÓ ° \¨!’EcfC)Ø$™¶&„¦l ,1œÔ"”E³`%Eå|ŸCÎ.=î â¢Hpu¤ëª2a,+„ª U´çï‚òXŽ¦Ÿ%|imz¯ žëy|V Á÷£ª±t`Áƒð¨=ÇGï%doéúz: Y'è#%t±?‚‰•NHJ¨‡FËÑÁ:*¸£_‚&„}_`©)ß[0=¥ùŠú¤ù$éÃcjÊASPÑGß9,=) x&z^ „Ú“Ê­·È¬H®Ly`jÙ¤£'ŒL[¶ „Öy(Kf Ò–¹‹a™lÍÒDž¹Ä‰àGj[s›Vä˜ÐF¾ZG­è‰ßN ÷ ûN˜°$K@/ƒGPB]yÈŠ2£>xÈ",=Mίɭ 즄Ö9äž“ò&+ “±J뚎±-+07IðÈr5›‚XÖ$8P‹ôkëÏwùM1ö惜ÍÉTk.&I>ε¥—ä°ÿ³Š5óAêä—Ìñ< rAgÑ’¨xõpóáâÒ3lmÿíõ§„¼¿¹Þi!'\Á(ä”B(8aX¯´»d|± °xy >ßÞ°ÌB Sx¢Ìó¨Nó3« úa\¡"F©´"ò̃p»$Ò° Ÿß­„·G5£°á3j¿ˆ¶Ê¢ø‘•UÐË è^}féAç–éb’å6(G;ÿcö™ùÂÃ^øœêú>ÿý}>b¸½l7‹Þ°Ýw7·»^L»ûöêýÕÇuŸ×íýí‹—ÿU7øË †Ñ>¦‰Éû r®¸ý'nùýÝî—Øw4àR#pÚ¿{uáD"Zàïže›‹ƒ=¤åîúêÃõîÿÜÖ®ìß_­ã›‹ðþÚåésñõ¨Nw’µj»HT픕ü[Öp/:±­:üÍ'Ösq—ÂJuXû¥ÖPYæÍŠt8Ž[þÛÅe!˜oyÿ%ËÃáË(o°SýA„Ì«J÷Ø׋^bšËQlòzyÊ*Ì•°nšiN¥ÿ@<™\¢† Ä×ï^#>\œ¼Œ ;@ãß^°Ì Áˆ,~d²¥¥Í‰d *ÅÈ®g ݤç×âÒâ'mù‹®Ì²äf%Ó²¹äÔ²$?éðßæú$$° É”&*ÉÁƒS®8nZ£8÷¢‹ƒ?>ã÷oOâ9¨>óäu©OHºì]þÉå:ù=}ÄU&‰}hn*{\?~Ú>þyû(.}|¾8¹¡ynƒ»Ñ‹ T¡Ã‘Iú¸Ý 5EÂÊ¥è,®n7ÑîtåŒ5+¨ZѸ=î…ŽÍ9¿œÒ:ýªƒ¬:ûÎÙ°1íÆí6ƒÓÖÕ²¸Z…»Ú Üi»>eЯ¤oÂâ0ñ3"%¾µEKmÝ·Õ:@ãê0Ä g²]¡‚¾p#Í-¥¯vÍ)L¸mŠ†ZbY” ü;Â/DZ”ûí?~iºyØ 2$ ϲL0‹}çgúÛ§ßãy£ BKs̳:šOëâkº~lž³by¯$´¥í»ôÈ©½¢ã‡ˆ !,¤Ö{AßÅE¸GlÆyž±öoȘÚ÷”¤Ê @<ö(ZÁ(ó™HìZW"<|Q>‚•OVf5ÆMŽuè¸Ylñæ[¿Û¼ÝÛÓâûš«½•äÁ £_¡N¢¨ëžZ¸2Aß‘Ô«Œh¬º¶7ªøýq0Õ§2ƒ>‰yˆZšÅo7u¹Ñ¿Mül£žw)lœy9zӜًl®ãõæQ |PqÑ+è2¸:ÅÓ£{fÜA3/ºfaÉ®î¶ðáZÉyiO-±Ze6Ú? <'ħBËBŸ“+g;Zù±ÙŽõ¡9ËBÃ9ÌÛêW³úi€ªRœÐÕbÝ…4Å+V0¯e~µ)­}ìa€·\^{XW<Õµ®XBdö…‘“\ÔÈ›gõû¯µ±,nú)‹ËS)þÿ­­gáOÎ'×–’|ÿj3DêERIR=ÌFA¦]Û3âþ)g”Žg.‰—n7 KY®=Õ㥜C—|E*ù%Çz;nòý´Ó3\èUñB‹ˆ$Þ¨„0ë0%CǪ³8ÆÏ^¯Bv£úØó0.Ð8Ýo™åV”Yª,ÓìL»ÜƤýHÒØÏس[j«#:oÖJ>N8¥'çø(X$& %—ݹ¦Ñœ  ³RóŠý‹› 㣵eÐçˆ/^ ;ëQôb„à^›`€SN˜Ôèá'.ćcÿ¾Ý4ÜÌôL0iÉ?ÒðeF‡j°,¬”]ˆ,»í(iN‘þX­c½®ç¿93e=§5)Ì>Ï(ÆlåMß ¥3û€ÍŽÌ/L·òdöÚìªIô­ûar½ƒ¦%*óõ„@ÆfõLô±ä˜f+bƒÛs©<ÕÐdIECÓ£ çŒ!M²sûLT“˜¼mGŠ2TT¶'N fΘ¤–ì¥ÛÿJc}ÝÚ °¯6^¢çüæiå·ÃP,ùŽ¢ï5‡„µfÞ4'y‘ÔùC+ÞZòäW¢®³zÐ6'„Š C‹lŒo·æÞº<¶~=’Y»;ó~*“+yø‹‡ì¹Ÿ¦ì+ÝzBò¥Š ‰›Ž³Ë{¾måß²!©9†¼”“笅ÿÛMÏœ‰+Oš*³¾s(,^¸ýðÎÍhÛb¦ãvÚØ_ê“ØêcW)JŒõ^홨㻠BÿeÓø3›w¹ Ñê!a Žò0V×þæbuº–Ü£Âæ£2®o$-§#=72ÛJwU2¡žð@ø¾ÌGvF5¿Ù<Ý3 ÒW}9rÁ&ùcåë'¢CVP:@{ÇRX¾$̯¯ûX–5M>oÜþxNXþ #M’ ÛÈÃO9+–`G.Ñz]äýø¼¢JÊùó“ųÁà½â0_ÏËòhˆè£Ô5ù{.èŸÎ¼OeÃ4)犫tž8ê’ǬQ4Rýd6L¥,Ž Çv†Ô¥=eÆyC·ù½±"çÜñÕ¥±ý k¼`pÂ9¬-ôÞÇ<ŸMÉ/_fÒÆéôÏ”¾ïtè°»}–'ÃßÏÀÜz¸c|Â`Xò¸ø)Ye³+0Ëv%µ¬Di*kËD[ƒûÜútòËlÏ·'¼D±£û¹N¸º2'Äæ¤ëb9¾Ø ìqæmœœŒOç¤wJÏKx µ“=©^ÍÇÜÊÏÄ7´ysÕ龸څTÎ8¥TêÆôHY&‘ŸðÅ ±Þ@WJNl*õžÒ¶VHGï5Mî󓦻8˜e=H2½o˜Ö¬Ìt„läÕ:×®"óf×åM›Kƒh=Êßö1ÌÕè–Å®t‹UÏ1ÏŸ!T=P~ž;µ¢-Ǭiš«õbNÒ¢)}JL¬²ð 9Ø™²ö'ãë}?ôët d³îgJ¦LÈaø™ãŠÇ%Pr¨ðØõhÉ‹™ÌfžÜùU©Ç¸•WÄ]~>n…€(n-|5àgàÖ|ˆÑ·²›žy&nžŽð~¨¾«oXYš‰Fßèi•$xV©ÌçbÁyÿMzfÝ»¾.œ­\¶urjŸyHmôÑó~‚?ÖÇ×GJHž)Yþﺩ€‹9 $õs§§maÒ)•j–IkN’¥é¡®e¨ÿ$û¸0§cÕåo¼DÌ95xÙÓMg÷VÝÇsàg pîm¹â•=¼ÒÃ(O]¸QæÜ «WÝ!BÔæ#IiR{Íài›/<ÒÓž Cš‹D;õ‰£œuŸÍs”×ÂQ¿ÿÓŸŒ™zûH6™¯:sšù5ËUB”7ƒîÿ‹2gIà™Óö·[tuõ¹°{›Âdá/{´q0))ÚÏ9˜ä*eÇ¿«×ã«m²Á¸" K›Ù½Ia¬’5ŸV^c½>ê§N+{ß6}£ñh«Kr|¼\"Õ”TV±ZohùVPcåvÎÇ^ò}F'в¬Ž{ yµ$(Ô è‰]\Âì‰Õ d6þ˶£ëú=}“ad©åÝá5âßêÎÅû¢½&&Ÿöƒ‘wYbô‘']\IÙ õÑÐûYe=ëêñÔ€·´*_1nÑÕW¬¹ïøšr²?}C=ç[maïIçÊËÏèÿ,ë#áÈhn¿\qàè¹&ÖÏ ßÇ5±í¨ö²3XùîfN`YÂãü ·zª«¼ÙL™ÉÁvirÉêš¡ª=¼I\Ó½Ö~ótÂ$B¯Þý¡ç||~?û€q¢=¸7ëD¶¥Ÿø”2±µsÖݙƧ£^sh…ßÚŸ?oîçÌ1³™—­.y½-ÃIárµßßø\à¶<;ßÈ+µ?)Ý8…Ö1HñÎÙòé5èbñd%ÞØ®Ï* ò*ƒ'nIœ—²?MRfûébFçÇ7P‘ǽ]c–®·‰™å»íãƒtΓ!5Ôù æ³ê›!:‹šêóù‚k†å&…¤ÿrqZºxÓ­%ÿIÄ«1-~úzV;æõrÆØ”üd6‹¯ºq~Ç·$@ÂxKà_Æ%ib^# æîrkÛ…]Ýç)öð|­Ô ñ /¹/Ùêöøôz“_±ˆ³šã›©öþÍ|Š2Ò³vÇLZ»GÛ’˜º”K¡K;gÖä C‹dÌá‹6æ[Bd™# ç+Ø„£ÃæüŠG}ºùx×md:¬1Áû;«åBŽkNFÈSMÜÚ÷-Ü!p¼7ä÷ÿ°jÎòM­ ÙŽF¾|eM¹Nwgή›Ìî&œ)øù1­ Åë‘ýNAƒÜ™ÓcÙQh¹âMÃÿtŒ_™4=B!dø<âáXs8í)й?¾™3Ë‹ç‹áÉ3®YГÉÌïµm™]?ŒAä¤sÌPÊÒ@'“Iã†qÆìñÕKniÇfoÉ'=$ä;˜¬üVÎ]½³2hÕ—3¦6}{”#>¾Ó!‹Ã»@áL´ÕªM¸MÛ›­³Óiÿ£»|kyÊ9ÌuT#Bæúv§ãJ`iQMÕ”/éã3£6èÿÄUFœç")²foÙ¸®$Âéòþd™ÏSÐOŽŽÏ"]àkrŽ«ul„xœ¤|yy³ótÃpÒf$vÉט‡£*Øçß±XÁøEîÀýɽ÷Y”¹€,D°Þáø¨»÷‡ÎÏIÕšÁ‚k^O Ïޓ꣸õh_Õu¿Û-Ï2ß¼îËÔöOBçG øyÐy…è\aŸªMÇœ¹$hRû&ú³âlXGÝrÙï¬È¯”}ÿ²…ÙJ9ååk–j:”š»†æãtvõaTø›(3mUlsX$}Æ®ÓèÚÜ&í&¦#³Û1ƒd·úêXúú1Øä:.OÜ”x£#åÕ9ñM…\ëcW¦œ{¾C¸â±uâN !ºj~7E‚?\qÆÆãkñ³Áã»Â°¶žUoñš.ÔhŽÔž§²íœünºhKIe³ô òø2í?Ê Ã@znÃÚr?þÔ6W?U·­Kp”å™n*˜áåQPÈW„.ÍÖd²¤ÏG©Í³Je îç«R£õtñ\ÉËRg”6mžJÀX3†ñÖvhòÕ'áâ9ËiP¯58dQ°acV†-áž¡èÍHN³ød{1­íúQKbƒ*J¥ÇÝÄozNÞu—øy¿%Ǥ:„Iש¿Ûm«¯Î¬ºX@¹Úø ³ ÍOdíXËz°;xÛµù 2åx€9 [òe5…¢1|›­Ö2v&¿í¶)Áþ£"&µ¾Ta/8჌º%¾éëÚ‡˜(тͺÁ~Çõ³à:¾xççz*”¼›š¼“ÝI)•³"cÓ æùc"<ä;üÛ @ðùVñMêw°ÜOh»xX¸Šä“œ¯lk¯{ïfù?z”üÉ'bøè»8ˆZ!ùt4®•G¿Ý]±O~èC÷^Êð ²ÓUL­Çeølã½5k/¾º¶ëø®M^]ß3Z[K‡Vaçv4ȳWg Š÷þœ _JU3¾>%Ã÷"§ŽxUìtw=Ód²¶¯å—×kÔòÜû ¾iÔéíÃ61püQ#c[5•»ˆá,52Ο“ä²óyZajsòžÅç,Âd‡¹§Íë{ NX±ž’Ìu6%«ÈÉÛ èŸ9Ž±¥=¿zÎT‹.ô7ãœèò£F}ü !/ ÓÍR>Çߌ‰Z`Îij“¯9cpï¹¼œewЮ˜Šð’bx &&í97,fi`‚o€­ j;` ã…˜=vj}z"”þ&òµ*±›vP²i“•Ÿl“ïâìÉ ûa¶NÿKv„uh8Gðá[#R"Ê9ñìb“ñY7(O/ ßn‰¡ìøNKê7(µØÈ2ýÓW^^ÛÜ…Û,[Û>Öí£ÓÍoX¤Ÿ2=¾½¤yz›FHD†-† JÙCY´†š`ÜÁŽ~möä®Ëo‰`‰\™ý‹mA„½ŒÎnÛ%/×å&þ0À¿?«¬³R²5³qO¨¶L ´©Ÿ/Œ ÿVc+ïCê¾[>~))L@ßËÃ9bZVø;o&¤&;zÇ /Œþ'fÕûjs9çcÆwŠLÆŒf¡b¦£M’š3® /M_>Ü dq™e †Zþvãx›ý §êüÁ¬Òp„Gð‹“ˆ°½Ï†_'VÜ,Õ÷*¾iN¶ûºi¶Ödß›ý>ƒ š€ïÊÜZŸï/ä·tjÕúi¥šWòþîÅÿÍC÷¼endstream endobj 715 0 obj << /Filter /FlateDecode /Length 5769 >> stream xœí\Ks$7rŽðq¼?bB§n[]‹w–#Öí†Úµ­ c+zHN“‡="gFýzçUH Pݤ+s ¦…G"Ÿ_&êÛ—jÐ/þË/ß¼øí—ѽ<<¾øö>xóÂ'o†1@ûnnG§ãà*Í›yyð¦¦1_æ?—o^þËŽëáÉTÒ//^¿à õ˨_Ž~’õ//Þ¼ØXµ½ø:ë`ªÞ–á…‹«ݼÙîÔ`RŠ1l®±­RtãæÝV Q;Ž›ýk|lS´>lŽ[=(•¬Ù<àSŸÒ8šÿ¹øwšÆÉiœœñÓ4¿ÛCÜü+¾¦SÒcÜïa§¼7We´Íû-NgcÜ\Š™qE*SßBÓheCÜаAŸ6‡íÎZ3¤è7Â÷F¥\„=ḣ·ŽFÐJ*nö;±íßßÓ„°~³ÙßáQi ÓÜÎK}Äab°Î1•ò¢qN ÿkµ M¨NŽ~hóe™’»×§»³ÆA™—;ë‡#ÑK{˜ÙyØ­…#4aÉh \¡â.>&­ÆLºäc’«|K¤-ìŽ6=¦˜|î42@},o7{"Ž&*ÜéÜûÃÖŒƒQ ‰b]€ñà$çaÅdøŽSÊ'ï`Á0²žh™Üè¡ ©Œ6®ê}K‡`=lø…f ÊÊÔ"yí6›ã·Gí'¦3iZ5 r|Ím žû¦ð—è¼É£@ ÔSp*¸p³'Ž€3T9læ*d0ôñs ²]öç<ñì¥Ü «mal:üBy"¼v»Eþ²& Þ»‰û§“³$xy³bW<îàŒ®J¯¶Ä¶)?n>ÅAhŒF ˜¢&s *–GZ/i¢¹{³›bÁåP‚â¦Úó¼NÜÛnÚÜNÛÁ»dx´(xYU²I»±)€àñ8ÀqÊÎü}¬ø“UIÊH¯{€48­q±;PLjxO‡¼Ù#sšäLÒR†ö¯h4à'Ï횇°ÉIù•{ßÓ, TAUU,[‘#Û_¾_9݇¢6³`‡(ìŠGÛߎæ¹ac!« ê|\IèÇicv¢ˆÕe©øø†éèÈL&>•€¢u”Ú¨–P©™¢Œ ›¶=Ö);ŸY\Ü8ØYW¿‚UŒÈr½¬tb´µ.¢ÃTpjfÒŸ^9c—[˜Ø#ÏÌòtäÁçwDF¥ñ q¯6[×5öf——Ì2#¯\¨{i&^¸+R"Ø4(oÃØZ™UQ/»@Ê 4}[LÐþ‘»8ÝX|hÓ(—'ؘS OÕ.„¤$’Ðù4$ åWAL¶ÝN«Píüp¸.F]Jï6éì‚û‰ç‘…ƒíDgLÓ·¡sÕŸ9 1˜IV< >…š—;»š¨ë©__u"-_D+Ï!˜!ÌÑâ5?uú„­ñvÍ#U$ÚÄfcÍþ̽ ’iØàG!‚ ÍÒNk~Ç“ª]ÜÊÙáU y/ýþox`»«EäàA%°LÒ·¸.¶UxFU z+üdÂÖ`xˆD ’ì¦H#jkˆ¾ò „;À[š ‘I}ÍÔ‘æÿÀäK¨ƒäsV6Áw£øZt¼ԣ¬+°”/ÊxN>2& ^Ô¶ÑbíÙƒb³‘\qÜÑ '·Ô³DïC kt1 v}Ðæ64ïk¬NÁ¶ý85«ó1§üš¼ê½Xö¡ íKcÁmAWáAS9 y4rWiÑú„#OŒP++ÑMŸ=”S¹£C-C\°¯Y¿ºq7Í æxÜ\¡$ƒs“¤æ¡4¬rÿ¾4᜼±øäç§ÇÒ¼êÎqW^û¬4?)„‚S´ó¾4?)Íy œÈOºàª4oKó²kŽr°yŠÏJS¬á±;Ûí¹õÞ˾½)þ\:üwi~ÑmŠq‡ò”›Q›Q6WìóOšÜïκYZ©óºlj5¦à²ñ&¢d^=B÷@ÍþA ­YB~"¥ŠÅù¡HVµÓ6¬èÐ+Â'ÝM>è´†ƒßM@ÃÌ0²èz]频[±üžG·nóÛ)fºoÔÌ!þ (r-„àÕ'ðŽ¬ƒ!˜¡³°0¥Sú3O¸–ŠéºÎ31žè}ÅÇET”0IßA,~9´+.†,ÀéH¡ÃA3Û¸ÕYOjY`_JøM¦ci^•æuiÞu…mF&M0&C°ƒ$2££6•¨UYš™íÑ~†4Œp¢Rˆ™"Šg »óq¬sºÞùOWô¤žîJS(úOº “ié…3Kéû-cbZÏÁØÓ1Œ­$]‰mõÖÝ¡]ŽÇ±$S ¨µï¸H­ùPrÖ”»HQË*vFÏ}ÏëID£’Há¼9`Dø~‘oQEé._ÕѸÔs÷8µN#¶Y×I%ÑfÇ3-rž ŒÅˆ¾iJr=yœU{õ˜½M¶AÂ'Œ>¥>£k783Ö|NžÒ/àдñ÷ ˧AéâO6,ï@'!˯;öØqÕ\ˆÀ› ¹ûW<ráß²H€– ÑË3‹è=ˆ*ìrÕ‡Ÿ&YNâ¬{Æ¢â¯B‚ [VÕ`ìGÄÊþ s—û|^:¬ÚŸiE2á³—Ñšà‹cã}H4ú:§~Áw±s¥Ä§5Ö ƒŒ@Þ*þYlÑ#GâXÑÂ{¹y¹¥†Oï€UÇ ìJk‚Õo:fI¦anVìVOmcEª“[¬o ¶œzw.8”æM7ô¨"–Þúø’V[±>Ìýˆ]çvNƒj@iïgíòM™õ¾»Â}?hƒ-\µZtSNþŠSNÂ~,3&“îòyJ©SÉ6è€ù§~yxZ©¡Ù”bé.s$݇ìnÇÀjhÄT>¡‡pjÄ.~Sæ+¢[Zç7'²ÑbGY†Œ»dÅÎõ;c±¤14^åûÚLr…á› åP×#bsŽ ´x¹'CƒûQº642Vr„_®õ¡Fjd¬D…,Å ÔÕQ] ¯–/u°BÉ1hžÏÍlåV²»òñë¹óqÃ<¿S”S‹~ÍkÆ*¯&ÄdrÂGݳÊTºZýcîZÃ_G>ˆ”\˜2Ê4¹®ÝºS%Óȱ­ ¨ÌP^åC¶JFTrûÕ®¤WN8w|®áI1í»ªbz»èšì Îæ>—DäÕ׎ ô+¸˜Î* ê÷Å5‘ÆJŠ*åd­ þ~éÑ›Lx* ¨ "Ķ¹ rö—&ÅrJ¯Lº ù:õ— ŠT½+ÉwSØC–¹‰Üè¿´TXB”Y69b¢ž°‰z§à?†ªü‰ËŒ©ºI¼øé¶ PUé@"øWš7¥Ya9`ð%vð9v _–æç¥ù§Òü¢4ûaD¢”½nònSÁL•!†¨op‹j»ÕŒÈl=2xÍžÝ24åOÖ–“"Ê<3 ø³e/½ÇR“^0ö²€3ä¿’,éæ¿bé´pLx>Ò‡)uP{|zÚáæë²mÙ›UÔfX8Î; þ”KÀ[˜ÕY¯'µ­Tq¶˜rYŸHUš¢â_VÛ<ðÈcí>æùt¨â‘yæ^1½ç ‚œíG]G XBzyT.‰“š^ø.ìE, 1¦9}Ë88P˜¯\r’É!!¬W³äÀ©´¦øa%S<ñ}{'H0LšŠi ~*p×Æ`\÷7ãµôá‡î¸+¶Ü ÙHP#äOh<, ~f jU:OyàÑhVEd3+°wM»äEi›€ª®ÿkÌ"Ê6ÖFÒõÐ?‘’xÙõÎŽr°3Â~ÿ §«D˜U­c|p`sú}W{Zuº.ržÖ««Éà"Íü¦­¯ˆê“Š•lË«GGpê3ê´àäðöǯ.Q÷ÝqÅS!rkŠ9P a-Û„ÇuJΦ㪫Ìs鉬2ï–ˆk:>Üÿë<¯~ʼ|ÏÖy5Ú™çY­1ï&y1µí•]ˆø¼ñäòÐË„=¸jH?Qà ?xÕ¦K{.­Y5$w©F‹O —>í2|ϯ^K¨ ]™£Y$É^VÈî»Ô!g.‹áw«×*0ÿ®œƒ˜èã6-"D—ˆª@b/ó}÷L‡ ÍŠboØ}âKŽšÁÀðu½9åÁlâFŒîyQ>r-6¹Ò>¶ÕƒF8a§ Þâ\\9«î©’^rï?H?ž.ˆ+“›®Ç<·J?â²Ú#ˆƒ‚æ4F°ïº‘ïW¬[¿˜üHPâUúFÀŒôåדª0| 0ÆTêÖ ‹ÉCŸ"ÌÙ[ïªÌ48‘O¢ôívvó»‰ØÏTZnqàh€ÈLËìêKóóÒüsiöU<¥OçÌ…PÏÍES)žªUÄ]"7?!QK•Q^cBY¼_ñÜžèÝyÌ`m{CÁØV¡tœÄ¦¥Ía­±nr:ï·8™œ*.j¥FÈAÕwÃ+#ùjE)©î,„ñó\Ä0Ó®Þ ©,ˆ³Ë#ÈØ 0 Î6jlÂAàë«ûíü)ˆ‰œYØ©ÑU]j–ŒÛ¾ó4 ¡‰ù×ÒÀ2è_^§•—‹¿æin*>§KGð™\h ‘ZR‰ŠªÌ÷+Žè7ò¥ùyiŠªÌ¾b‰i°cIÿ”,§å5C‚^á{3ý¢È§€ƒg“œÒí˜ÑÃP‡z;ƒ5Zgp0[°ºÝá7fT¦|_ Ëú]ÓV"§ÇE¯´ ׌çQººÇ´Åýòn- 4ãQ,ÝÜÖCLæ”ãMβÕw Df¯büˆÌš7tña®2¦ÔBê§!qØ¿*€yo)[µRo7“ëí0ü¬½æ"zöTÁ¸r¦âŽ³–~H¥@b¦J ÏNæÓÇq­²Aо‘]ä”üF‚w •]>õ‘W,8™ªç(ÁÚ`çÏxuu×1ùfпæù ¯Ë|ÇWDÀ·Ð!ßÃk§ÐºéâÅò»Ó%×&wJ÷WB›•ˆ Õ-Ǭï¾CCWEÖsšL€S÷¤ò`ϸæq”Ž…;Ž[Ò—­ÈQÿËNUÔ–™1„5¥[gS~û¥Iu9Vï›qªÞç´!Õ/þódÜÆ•¤Ùc)Zü§òtWžž­_”ù³Ò½˜›â®È‡s,$ìù;ù´g¹Ï¾–3{³Ïõ|Jý éŵ#èâ§[ǧ[·ä銗;ôêß,:»CѼíîð¾ìåâ<™ç¾¯»ƒ=”(O…Kxßm^KÊÍôüÏ.=6ù®ôý}×ýØ=†¾7+x÷AŽ€ÇD·À /ê•©yÕžUf•¹ù;tõè6h.\l)-H0ÿ¤ﵫ®ò[;t·Ö¿®+š·]¢ß¢×í+ySú ¢ v¸ë¾&{ÛíÛ°ûŠHôý 7ßSe·]:¼íÒì¡íÛæ(¦¯@¡ýÉÐïâkt@øÙò;K•T·b/t‘à”Ë.{T2)9p┾òì_S¿êvxæq¯Û-±ip®Yã½+fá³ÒÜ•Qui¥éJSuûÚÖž¾î^,ÐÝÁÄo»æQ•MŠ‚º4c·9öË~Ñ&øYûü#5ͬ #¥e<¶§Vhï1jÂQ» ÖŽÊ×Ù©#wainK%-Aéø{ÒqSÁ†ü”ê#çœÖ‘³.ª.;*Þï¿…¥g èÃÉÑa fûÑ÷W⛢¢³FÛ/M)Q¦!3B×[ûߌ;[p!«QÄ~Ÿñ‹Ð¡ÊX«´ÕL’¦ÆŒ· ë Š4~“( Ș@ÿŽÏÒËxmqï$ß‹àïŸæûD{Q+*¥? ǽ[‚}Ùd¼²õtÓ¯R9 ƒQ¥Ä³¯°š˜æûô“Àdæ—`ëÏÜÔ,À£¨Ø Êtý§Â5\­U”® -?N xxåÃxu!3™ÅàšñblS ª¸Ä}$ßü¥™£¼„'F«?^°`á}>ç¨B'8η˜ôÓ‚s²c¹‹@).àZÏùÖ”7-Ñ Ö(£ž¸,SU¹éïh0„™ÝµÉ\¬ÍxB2ãxÝ~Ã1÷õí‡[Oõø³á}¡¾6ºRÊY±4£ì¾pªŠhλ€X%û°'N£æI~pâ׆ÄãÛ®Ë$ÜÉ·­CÚºÖâK ¯¤Þó©„OßÝq/Ï+:Oÿìz¯ž1îsÖ+ ©D²ú|Ú+™Z{ô`Äýœd‚¹(ÉϤšøG!•ü ÌÊ?qö"~xߺüùµ3u¿ì6E‡8ÓÌ•<£3GP±Wï`Ä`ò;UûîwÝïºú±{øâ5QEeA‹=Dèÿ‚ööÜk§ØŸ¿í©h›ï¡“ÿ¶ýzhÛç/þ‹þý/M² ­endstream endobj 716 0 obj << /Filter /FlateDecode /Length 6109 >> stream xœå\I\9r¾× |ô¹n“%(_s_c`3ƒ1`w—áCÛ‡¬EËŒT©VIjÉ¿ÞA>2È$³²ZÕ€C±^òq ÆòÅÂ÷Ó¹Xä¹Àùÿë·gß|ÌùËû³ŸÎðÁÛ3­Z¼ƒö›ÒF†%ÂQ›¯Îþóü¼„7%yžÿ»~{þ/—0®t-QDy~ùâ,Í(Ï•Š‹–îÜ[¿DmÏ/ßžý¸ùË…XDtJ«Íþ#´PÚï/¶bñB˜°¹ƒ§:˜¨Âf÷æb«µZ‚”›ý lëÅ ¹ù_”NÙ¸ùM)„ÐÛ"x„Ú¼†¶’B»°¹Ç±u ÚºMê=Œæ]®Y—:©åáüfW0ÿ‡ åaÖ 7?_(·!ýf÷‡‹Zzµ¹­Ãý÷å_ò–HEµ88 q~ys¶Ñöâòog[cäùVÛ%8‡dCßÂÈ6gõæ Ž„.b[ »ø¨6»{l; ¦N[ŒÑ†¸yEË÷Ú\uM\3ß5‡S›wÄ<Ò#×Åè¬ßì“ ëœéD(1˜Ú\e!´DUÜ!oǧò©NÎÛ \ Ê(ÜÓ6oj+õbA5¤½%• `{~ÕÕozè˜7AUøõ̧“1BØÔ…$NécaÊryÙqJ$F4^¨Iïו=¯‰ÜV;ßL¸”¸Ké¯@OþõìòÙ›ï.‚FÒX¢¼ ôð. {¢s 2ópI/I<#`-‰‰a |ò3!„Š>]ûv圄¤¦uÐAD" ‚ã $a*Œ¡“’ŽÒ['qcEgr yÓxÐlÄzE¿÷犻‘øtÈmIÁ(© ,;DÔ2$[0‹ ¡Ä=ÞjÓÙè ç!?ùLwºëª£vŒ$‰ÞA“MÎ÷r“ÏyÍrDN5"H3)*ÁªU ¥I{¢Q€U64j¹=³Ò]íñ—àæÌ>Áø,èôûíº{Ù*‰Ž2 B^Þ±cͲ»KbŸ·‘ä>&÷^äsarßX;è¬yÕŒŽïxãt#$ŒS>!€c›{“sd‰ëk¿¹X5Tó82¬ÃÓùx"`#ôióÚ|øŸ: ã>/f$Ù÷È*®;û¾Üjí³§Ý0 äÄ¥c-¨óË D Êõtyz0V›:ÁІa“ý¶êÉ O”Œ&qå´„˜dÐ dòq‘F3~^W5Xq±Z‚&ͽ?]X ¼« Ûá²l¡GW±h\¬̃fŠ Œ»M£!“¶êü Ò#þ àIûÒ›ñ™4«ð g—3ž½K¢4´|€sk°ÁG÷Òqr̘\ç6r³»æÜX–Ñ©—rN/„˜]¬Æ>yS‰»ƒ£ÂO¨Œ”Pú€sÈ¥p‡œ³ÂÅ%9á ÃÉú Àzt´í¯ë©Ó°:öEÅõ+crpÞ`ÛnÂ'·iTÑÜ2¦ ³a„F#ÑNCä#?b¡sˆ¦“q¢-ÈOöI"€~Õ†ÁãDòx€Çó|'vˆ§’PºY\E5§ëº6¦R(ˆhœ uK„Ç ]#@ãn^¼td\è¡£À 5¬½c&€Ñ™ëŠIõcÝ-SÔ;6ÍH1êñÞ¤÷‚ð܃fá7Þùðˆ@…¶ÂÍœWÞù.I)Á¼´oà“VUàSGŒö׎–ö'W{ ,“Dõ`™‘­ k=Ò`…0š‚ÐáT­,©ä9„¦ò8„vjµ FÅÝ÷ÊF³!Ch…«¡a #ü1 #‡d·ZzO…ÐÐ;Šþñ)zÜ¿ ‹ÂèèÅ0%šP<÷â”]4~æ{çùØWá”  õY5Ã)@d aŠò†Ò™7â‚:"#‰Éžã·6)o˜{¸Ìà4gˆè_"{q×­£K_"ši<ßâoK8™m€uîQ6 N#½Â7x­AêÐe ág–' Fs÷¬Ö"|‰¨*r²sdqSØ ?{X¨‹þ#áůƒø]öÉ >í–³tŠ„O"ää"|g,Ș†§L˜u†¯Ä„ÞTsð%ù ÊS¼[FØ`Ìv9šÌ‰S\çFb˜$ ¯·‹–æ clçjÓ y”¢ý@W`^SøàÆzdOÁ¯Qó,$iáV>Ä…°D¥[”Æž )µžB  l<ˆöe­ ƒ¼õ^Æ/ÒãZxÞ¸‡‡åeÂ.ºTKþ½GdZÀ;QÖôd¬úœ(Èq±À] ²ÄÔÞ׺\'¹LmY\ƒªùµg­ÑÈþ=e¡ˆ»Ä«<÷Ôûƒ)æK¦Äµ_Ò{0 ÏÉ‘´ÐE“pm]’²®%l0àkHt½yË8⨃šƒµæbRy„a­pªæ”‹eÔ¶B‘ÐHØü!Jdå½™d&Ÿì/S®5‡Ššœ Ï+ ‚“*Ï(…2©Ú* #µNÔ l“¬ì!—áEí½o”;·Z¸}¼.õrŸÂÚÊîÖL.ù¡Rž“ªè2_¢öÉÀ<¢—¯j2‡ó\¾ÃêsĨw½‘ëÜmÙ\TKp+¨`{¸•sTÇA\·âž7.šÃ%šêxí_)Tdé¥!¾;r'¦\œQ¾¨‚ÙùŠ0Ћ€ÉÅf¦Öè¯Ì·µ%Ë¡ÅM$Ò ¶B¯6¶€u)CQ²pÌOìaCÂJ‚A¬ákÞ(G"·åžqNÒ½©éMÌrþb³µíSÅÃû/i— E"dÓ©Ü“Û¾Û´ÇTJU3—eëŽ'§ù,l±ãؼw€%üÓÅæ¿«þ@Í€ Ì¿Öæµ9Ó{°³Ú@›m‹ŸÇJ¯)V£úK>cb­¾RZªecå¥ ìSc^`kQ-ð˜Ò…öeÂY&’ê¥{¨»œËx‘&É]ñz³¡ÌV’ڡα~’½ü"^0Ó»¯T=]°8°ÉØ2eÀÅ‘† ”♌ˆúÇð‡œrV]u9‘I‰±¤vïM0¿K¾UPŽZäͲ ãzÌFA÷‘Züì®HÞݑʵ¶¢€z•2áVe½ýnkAt§T e·´[º±)~ÚMô@Wkx€œàÌ©¹±\³ °pøý‡¸(g‚é*–01:+Ú.lÀÄùà“À¨7®PFÒÅþ.ÂbT7Vb„W½•À[ƒ mfÌœ*¬Ö‘G “¨(èK;#.B¶EC6. é"”8 ^©éCœÄ‡!Î>*p„ˆñ_|®;5vBŒ9Ü¿½"Û›4¶íng§…-^^É469Æã]OÎàG $Þ­„ ¦-bÂñöKV'r˜?¨.›@ĽEt<_ÔÍs*ìÃkÑÔ#BCŽW¾¾F¸5’˜Aª;(€ðz‰ªuí¸û?< ³(]£Æé$œ1ëIPó¶6߯fÞU‹ï6’:x¬d“æ0·B1óWE, â°Éu›Å8ìªÐ²ÐD:S§û{#j’KqÉbίÊhs·®óž°ó¾õð¸÷”–ÏnaM¬c-9rJ‹cEn‚¾˜ó4µ?[­â’>ER¯U:±Ø<î6½G…ŽwiIójßuÁÌJíxýqî‚cÓÒæ|9 ›î9­ž‚Žåa`Ç ‡MÀàù>óõ…£R[ÄñËw ×ãÝ&IR™#ê‰*ÏË/‘½"kˆ̆5Aײ T`8 Þßã±Æd£)™|i|˶š*–^¼îâ‰W¾ éaüGÜùš}" ¾’â•í·cVW%·Â6Ô‘Aàe¶øµæ*ÀBDQµ|©^=ß©§“ü<*’ž¤›«/Å%ML‡aÃ/‰|ìjù«¡D·ÒÇŬ…»Ykð¸(«zêaƃ<'Nhd+c­7’tþµ\.µ+”·nÛ#Âñ,c:io”:4’~²²Ã}V9Kï5kSQ¶— `YqñZ œ¿šT…zGóƒô7ad‹4…º›×ùò<ï|<• 0K@5YcP4­÷¿h@ù뛾¯¦þŸWûîs]+YòÛÚ¼¯àŸêÓm}Ê^{[›»ÚÌ%®ÔþR›¯kóyíÓCnª²pÅþt®xðµ\|[æ¥Þ )5&ÄÇÚü0!ð¨'Úì`Fäa>Oã)Š.+–¢M3~ûX›w}³?uöôeÝa¨O"µ©jß×ÿýF†ËÙ÷+ËeÝ…r/êÓ=·¥Ã/Œº}}ú˜å_×{W'~L!{ºˆ–®ü®çþ¯õ„÷µyS›ì$ÞÔSûþ!~ÿÈ_ëû-­ËÊżpF ôžGAH!;ý±nk¸j«%¸±¡Ð-Úü>i¤Oh姟†G$ÖË%‡Åè[šÏ` -¸Éœ^ó£½vuÚkÀýX›W)#TÊÜPæW2Ùf.&“¶ëÚ|ÇÉY(°­O™‹¹Ô¦êS›KI'#ȺW_›±6Ca[Ÿê!eãp0ÛÝrúÄ°Éi‡Ë‘ æ†Í8l¼2Ý@œ x³ ö¬>}v±æ‘¶•šf±¸±ØŠê^>d+^ð.š„qÓÞ7é—oùQ%g•o=…ÞWþ0îïð»¸FÐ.N”\]guüg“AA¦ôzûh2(VY]¼”ÇqÒpVmO:ÜIÖ=_¹yòN&ËÇø@P§/–L}ºa,€q'ŽóXÚÛ'Zñ2]±uúá×ÏöŒW<#,p¸3%ðú»$Uð4'×0Q‘×#ÓzZçx«Á>Jð±Ñ k õ‹U9¼ÉOew¬G“ÜâWÛ[ëd¥Ë^q9šÿÊnV+³8ä›<˜@—…7Kbz »õ£Ä)c5 KæÅéÒeWvó§õ‚?÷ (•\Z¾+ìã´^ÂnB®aú¾F ®ˆçÍ;ßvîd 6ÓÿHëæžD” Má¢ÆÊcKà іAìÖ¯ÙFÝ¥IÖ/´/®¤+n}|·¹á¶Ý©)߬•§•(ͯI…͉2üT(Ú¾i&…O˜A-”ÿ¶Í›õÃ;À¾«ÂÒVŠïxÅ‹¥ôW1<}1å¤Kf,4[Ã4é+ùT«‰´‰KÔ}Eg{ÿ FY¢\«>•>œvÿ Óú!þÊ×ÏÖ%55ÃàU]Q_áFcÄÐrW!“é+åü ô%áuS¸}ÏCEé3òøU).þŠ¼‘ëWäë‹'\=-ap,»Žšª“›‘Œ’øŒ´L§îX­‰‚×O‘¤RNº/Ð^Ž._cÀmxüHN:àÙWP>WæmS£%·íh˜‹*ZÒNôÎ ž«JÒêÛ8åˆèÊÎ’dŒêÿ¢€,âÁB,Èw?Œm1G÷ª6™Ï{7Œ_Òß ‡x3ìÀÂ#Ïë"¾Ô§·Ã×Xd‡Òš‡C> stream xœ]O»ƒ0 ÜóþƒRb¡ C«ªíÇAp¢†þ}›:t8K结ϲ.Ûò>)‚±¬-n H0ÒdYÔ h‹±°> stream xœÅ\Ýs7r¯Ê#ãÊßÀr]Õí*ÞÉàsW.U¾”]ÉÅ~°ÍKt÷°$EJw$—%Ùº¿þº ð³KJr®üàˆi4ПènìO§ã NGþ/ýÿâöäß~púôúá䧸=1ÞÈa²ßdØiáOc_žüßé \Ó—"àû MVV³‘è胳˓ç«Ûõf¤÷ÎÙÕ †Gïô´z³'¤š¦ÕöŠ‡•wÊØÕn-†qôJ®^ó¨ñ~šäŸÏþ–ѸŒ–ƒ–f^æËõFk5¸ÕògÂ{1¹ÕîŽVÑ£§ÕeÁ¶z»æå”s« X™)½•´ô+¥•u«€6hüêz½QJÞ™ÕwüÝ4ŽÚÑžïd”Ä8N£[m7°í¯î‚D¿\moøn‚–¿Î¤>0g•Öñ”Q¼¦¢5Dí­8@¬§¿ÎgóCY2N—Þáô’f°£<Ý(38B•¾¢ÞjíWÿ±Þ©ˆ/Óê>ŒÒÖ}Øy_ð¶; sfdvõïetSFŸ²ÄÛ¾YXAã܆ó} ºŸÓg£7Ã(ÓgÁ'¿*àPÀ·<>;hÖ#>ÐW…µà*ßÌ Ø“{<Ð|›®Øƒ¶˜®Š7bÔ#Íò-²VÀ} Žfd›îg€ ¢:Ùd} ¾û™Á…{äØc”†©K¤.xa®j‘YÐt8!›ZÖ¹h¶EÎ xSÀJ¿’l;°Cw¸ípB–­= í‘õãrÙ=tÙ=é©{z.qDú6·áU¥,?âgt]r! |» ÃÑŒìYfüûÖð·“uÈ&ô(‹·ê?ŒÅÔ`xœn{ðÕu?ktûø äØšœ¥ µTÝÑ©¸ö¢Å›Â¶ ìÄV?–¿ƒƒ¸n}Eëq¯98Ø CÀUL‰@£êÌÈ(çÓ=uõÛ9U]Í`•ä|—}Vð?[@JnR)y)ÍQFùéQ6W"Ü]Uéó8Çv2 Qï$…Ë;‘‡‘ƈGïd|éãŸYÅ"9ÌiИaœº:J±V¦Ø|"Š‡£ø˜´,,I¸5Y|µŠ¾!°Ÿ‘Ã4¦d!! ôÔùß¼Ž#kN ÈY?p^Qã¨ôêå:€ÆkÒXi9KêV?‡$è8J?…L¦4G¥L+mÂÇÏĤ&BkÁ©NH5Z;§B½žLÐs+¬1–"Õ’Ìå‚Hã„xój6XåèÌé¶ý:[¢g{aãìj{ïÃ|i}!cÞ‘\ý¿Þ‘åkƒõvõjû&$[Éæ™)n‰©à”Å8D¿“U~7.!…Ô„„'x)B žrΘRÛs“tc• Þåp.ωé‡*ÍM³±ÖFö¤üsD(íh+$/Ó µ"2Æ1þs)"÷÷¦••3ífÔRÑ—1cHŠ`sþ>¦ê‘¢ óL¼›ÇŠÁö‰ËpêIxK‚·½èíÓ%¹`Mj}o²P¸/˜‘R˜‘äú:tWDxÇ‘¬§@–„Ä¥x;+ k úyÁrS(à‹¥÷A'jMÉø@€"ÃI÷§ ÔhXPÂL“Ìä,½Ò‰vÌZJ‚çF1­vAòB½ä¦L½Œ,m 3ëËOef(¬¸Q›J@_c±$ R¤s 3»ýU1åeÑþ; ÍÙX•Ÿ¤RƒÙvþS[ühJ[´ŠÉÆoLÖØM§t6Ó8Oñœï #j&'"Zx0ŽÂëZúÚ‘Šnª°¶ „+„5i{(Ÿ7‘CYŒÏÀ<…sZ¨Z‚Cîktd´âHJ+A»Ö«¯#í$â·³¡&¶K§äêúe9àÚdõœ™èEU?ÛÅ*W€/ª}° £,Ñ°!í¯‚Kmõ\± ¤´ê'-y¶)©Ÿ‰'ºe‰”^K"†­í¤™ÊÊAD², ‘EGNŠ7¡6mK‘ð5ë2¢³)HEBÓ0üX"#«Ë*vßÑÁìP 6ñ;I'¼…SHd¯T"¯W‰WÐ?R?£ƒL Ê×eá(+qÊ?¯Y-µ7¦Þ¯šŠÉXì6QB'Ui÷:äã96,¾î\‘ûAƒ‡bÁFÌi’â LTÙíBÅ4OÐ`÷Ñ‚¤t¾ñ|³•èN-kôÞÁÃEïíÈà6Þ;9¯ K~$½UIÞÙc¡¸¢·IÖÞüÄã¯Ã1' éT[>Gð÷±*ÏrÜ3edŒÉÊeGýnmL'.eó>¹²Jဳì{ìÄê×jj&ã¼ß‚¸ŽHÈŠÿÁ³é"3‡AåÀà •ÇÌìŠåù‚…Ð:UF8å¬6®%ÍڂȦÓ!¦ûçR´önMÊ G2ÀˆK Ò’ˆÓ‰`Tö2› œ}'³C®(e¥›„ò1ÜÌüضátRÿŒìÊ.Žz/kkƒÜ ǤI³/JÒ-¢»·ÞIDÜv©"«x=V’ÚÆ6&² $pÆu$csDGWs?Þ&;™Î}⌠÷"=KñŽjjÕ÷EõÒù˜â)0õ«ZóêwlHñ+‡ÑzE­7ÕpÔ2)´GP“W{ÂÞ‚CŽÈBž†Ø)Õœ¦ù=Hÿ{ÎÄQ”èfÉ6RÖ$D‚ mFâyÒ½_:Äbmúõz(±<¥ø!È)UežýÝÜÉ.Ñ?ðüzÝ!yô<ø':>'ÄÏLʤœÿô׿s‡ë‘a…ÄH²I`Œ³Y€¹çÝ6) W.ç…RðéáwUhÛ&ËÅÙ»¦Y=°ÛßÔh¬ÕíMóÀ!Äù0å¢^•Éb+w{ ѫ̸]¼h ‰0¤ú®½2ÆàŒ ¢çFJ¹£“5|¹˜Äê/ )ÐÙöY¦;™ÉГâ쳘æ£K©MËÞq€3nUdÞSíl1ž…$Èã^ci’Þ;Ž°ôh1UÞ„D\{cô:ÜdQ·ñö’"˜ÊO·m—•£ó~ð¢7+nè]¡î m Ö}D#TÏ9QT>“E£¹B¤[¡Lð}Yê»~<…šNZ–ÄL{ÉõÑO@P2~4lbCñŸ‘iUX÷°FùF5äÉVè&Êe¼v.docz'\í =ÝÀ/"åÕòå1ýýSÜ»Nm×4o$³Ò´ —ÅA¼ŠÙ0Š‡|:2EŠ5Ÿ ™4m`^àÚ‰§ɨš¬Ù`¶“ë{dl&²f߬b‹aR>…W¬\Ó/@gTG§ÙÔà½2ÿŽä¨Œoz$J߬³Yê®ÃìÈ·´þÕò볓ïOb»½9}ýÔFyI–‘ÎåTYA2ïC·|L.&¼OFHq$""|Ž×Q´ï±ZáÝT]%CDÃîñ GNûÇÏ‚˜Ç‹ÑRĸ»Fa„ V2 Qbô0IÆÛGÇÂ1 AxT4õraéÝU£–™À=Ì\‚ÊÕÉCé$„Ã鲘ŠsøŽãž©.[JC,ͯÃaé;óÓ-”-(,¯JVé¼µ¿nÒ–¤jÑœ…$c]%Š¨e•ÿY¸áÄ'-«l!kΉ/B¢§‰»ê '„ýÐ}5ïQ¨å"J9ïÆŽs&4ƒ Z ³´&gȃa¤zi²áÒ‚AÁ™¤üÐf—ãWt^|#[qÓRúõ®eãl6ù¡ÊÖH1ZÁ9ƒ sd‹¡6‡sïâŒ9JÞÏ!!ñåÆ–×w¡ÍüAŒÓfë(‘,™&kÉ×û¿Ö‰µ:Æ3QR+¬ÓaPÇ7¦Ñ§óéΈJ?ÊU[¼^§âñŒ\ËyŸ°Õ (]WY”,â!s7ÊI4Zð"îO‘†³QaÔÆébÆ3Øß}’|CϸWM$Cèðµ‰Í{Ù+¦ñpX0<*¬˜W¢—3˜Œâã²Wf01o“â.aÏŠÓ$bó}âË•ºv,ßp"{ìê³²Þ5”Ójä+WW¿¾ùñÛÜgð3,øØšìËþ…‹ IYâë0pÑãDÿªîõ[`(kˆ°¡Ó\žJª2Nñ¹ÆP/ä6ê¬eøpÊ—ÕTM«…šéKf!Ô‹=¼ Ñ÷áI´|`çë\.ì“ѤïøìžfzøÝßá IÎÐìil¢¯ªl>ïHÚgrmGìÕ·ø^±¬a” ™”Åä\ÿR:W(Bøu)¥po[P_h½Û\ÝN-‘ÒÚM´†=9‡ˆ_i[ ;/v.z³›À"ÔBW¸ LÃÅ8ŽæOØ¡±XFŽUöV²^7Š”$£[òR jšª’_“~É‚£rSß+ùñ¹®ø¥ÕXcn`°£[rXõ•# ¨ËJU·Ìž#„Ån‡êÆ—u,d’ÛMò}ü}O)rK§j¤ IÉ¿í)£kßs(cGÏEß½j»—uä³lîꕯYÊ("#»ª?ó?¶Jxæã® HpßÇÁºm•»”š§Ús:ÛÚ…k@L†L’O±v‚säÀ^0æC’ÍÂ6R(|z_*CòûlPlžz“^Šî€WãÊë¥<}m³xî(i;QÇ$êüweçáÎW²1ePШ0eõYl9ú2Ïï>1}£ªóî^ý¾\-æeß,~Š×ÂüMŸž¿rfG3ø¼€ð¤ZüÿŒrýò¼‹Vƒ7d-àñÇéðB¢ÿ ýêØÂ?u—ø¦Løª€ßðÇ~ ÇšÝël¾æÆ—ÆáÉÂMáEÛí¼®)$|ý–d'À›š~Q¾ƒÑô¼4ÍHµ‹H[nükyt÷¾+-Õ‹ÃÞRxÿ€’¯]àahÿ <–K„×ß¹…×Ùð¤ð®ËÌÏË„Ï»BoÁoºKœÃû¿ÝÏ<‡'äP¾êû—Þwç¹?âhfö¶€0 "÷plHßç•@uÒô#˜óc2/mÀÈ¡ ½ëJݯ`[+wÔ´Ág?ð²+1òx_þþ˜ÌÁb€Ì˜¼ìÊ|Ègÿ±ìì[ Xãç^v0T|tG`²àåök$òØ6.»{îÿ~ÁmwsWݹ;ü¬·Oxô@¦@v]Aê‚t‰àò¯«ìIú¤ú2[3ÛðZýçw7ÇŒÆuW¨‘â˵CníÀ‘ÂÖ!æ5Ý>á§àÉ.þŒÄSLôS´÷¡>ýŽwÝïú?ó¾øé1ò‡ù›>âçz§ýkÅÈȺO¥$ÿ_ºq4¸ƒQÑÝæ?F7Ú$FóKߦÚв®Ñ(n;ð†Â˜P÷øè€7bÛÐnÛ÷q2÷x´%¤8.Wÿ3ŒBŒSU‚Ù' ÐëH\hÂ5Óòûuìý,圮õ•êÒfhäf/ñ°DÒÉÃM¡ëðc𩔸]`¿¦ß¾fjÍk [ý.Â~ þΤ\O4QuùRbuÀk(Û|k®Tì7ï¾*ˆ»¦@¬n;ÛbÐqÙeDGÿʿ ¸}¹êê·íý˜p|ë𨮶yM“–Ôl,*a Âj§ÁM9?ÿ¸_€èz> stream xœ]O1ƒ0 Üó ÿ ÀBÄB†VUÛÇAp¢†þ¾$„ÎÒùîä³ÆëÈ6‚|‡/Š`,ë@«ÛL4[uÚb,,O\”r¸)ÿþx‚Ý@æàwµ|^Ú6¯ê#„NÓêRP<“說ïŒé±þ“J`2ÅÙ´}AƒÙ*)šJœ7·ˆcnš›¤–é÷Œw>¥`‡øFêStendstream endobj 720 0 obj << /BBox [ 1366.23 5611.96 1399.33 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 721 0 obj << /BBox [ 1391.83 5611.96 1424.93 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 722 0 obj << /BBox [ 1417.33 5611.96 1450.43 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 723 0 obj << /BBox [ 1442.93 5611.96 1476.04 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 724 0 obj << /BBox [ 1468.44 5611.96 1501.54 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 725 0 obj << /BBox [ 1494.04 5611.96 1527.14 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 726 0 obj << /BBox [ 1519.54 5611.96 1552.64 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 727 0 obj << /BBox [ 1545.14 5611.96 1578.25 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 728 0 obj << /BBox [ 1570.75 5611.96 1603.85 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 729 0 obj << /BBox [ 1596.25 5611.96 1629.35 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 730 0 obj << /BBox [ 1621.85 5611.96 1654.95 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 731 0 obj << /BBox [ 1647.35 5611.96 1680.45 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 732 0 obj << /BBox [ 1672.95 5611.96 1706.05 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 733 0 obj << /BBox [ 1698.45 5611.96 1731.56 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 734 0 obj << /BBox [ 1724.06 5611.96 1757.16 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 735 0 obj << /BBox [ 1749.56 5611.96 1782.66 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 157 >> stream xœeŽAÂ@E÷œ‚ Ì æ&îZÀhiMZ^_Ú‰5Q ¼ð?ì:Õ„ý&œŠ :¡ 8BÒXHâF†ä J\œ|T_rƒ>€ÉŠ¥høß̽«4Rô[«²`PjXdœ/p…LÊœ ¾@ðàuÆ%»=L(ÄaLÅÃtÎcõ V} Çúžm`øÝXÞ=b -¼ö€5endstream endobj 736 0 obj << /BBox [ 1775.16 5611.96 1808.26 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 155 >> stream xœeKÂ@†÷œ‚ L‡sw­ `´Æ´&m^_ÚÆi¢øÂÏãЪFìfAR2Ê‚ê„‚àQ«LRÒ’‚(qvòUíä|“e‹•á2uû®ÚUI0(Õ,52N7¸C"eŽß xòxãâíFb·°¦ìfº×a›k¶Í5AŒ#ÅúߎåÜ36ÐÀÿ‰5+endstream endobj 737 0 obj << /BBox [ 1800.76 5611.96 1833.86 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 158 >> stream xœeŽMÂ@…÷œ‚ Ì æ&îZÀhiMª ¯/ÓjMôøÂÏÛtª ûL 9AuBAp„¤±Ä• +ÉA”¸8ùl}Éx&+–¢áqïAŒ©ÿj|+ ¥†¥AÆû ÎI™SÁ'î<¯ÀX£Û„Bì 3`*.Ó¹9ŽËÝdË]à "W[o0üNT»{l¡…òÚ4ýendstream endobj 738 0 obj << /BBox [ 1826.27 5611.96 1859.37 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 157 >> stream xœeÎQ Â0 à÷œâ?ALÚfmO ø¶ùàD'² Ó¯o6q‚&Ú$dÓ™%ôšHs.\æÂA1R²XYã*Ã*9¨±T—ÏÔW.tÀ„K-)ü?î=i‰Â`OeE0nDî':SfIORì¼®$˜³ÛÒeñ WbËç8úÞPÞ{ f0c[aøí˜ÏÝ£¥–^õÀ5endstream endobj 739 0 obj << /BBox [ 1851.87 5611.96 1884.97 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 156 >> stream xœeŽA Â@ E÷9Å?AL¦“Næ‚»Ö…­H+´.¼¾Ó+èä‘ÿÉ®5‹èž4’¦äœVÅ@ѪÌZm¤ßH j,¹ëKntƒ„={¬ÿÃÔ‘º×VWR„²‰ÖLºRb‰/RJßI0W»§ÊR œ‹Ü–å<¬¹–×\Ç \Y7Ðÿ^ÌïÑPCoúÞ5endstream endobj 740 0 obj << /BBox [ 1877.37 5611.96 1910.47 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 158 >> stream xœeAÂ@E÷œ‚ L‡8‰»Ö…0ZcZ“êÂëKk¬‰~B/|›N5cÿ€ ¤V#Ô ”GÈÚ8I³’a%5‰{ëK.pÀ0™[n ÿ‹{b&$ µ„« &¥ÂªÈx?Á*)sv|‚à.ò Œst[˜PˆCiL2]šãøÞW,{-^çBeÃïÄ|î[há÷±5endstream endobj 741 0 obj << /BBox [ 1902.97 5611.96 1936.07 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 158 >> stream xœeŽM Â@ …÷9Å;ALf&ósÁ]ëˆV¤ª ¯ï´¥ô…@ò‘÷È®5 è^4’¦”¹(¬vŠ‚ùÂê7Òo$95–RÉêú’ð á\rðÿó#-99X¬®¤pÆQ4Bð¼Ð•›H(x“âPûN‚©Ú=P–*7áR•m^ÎÃ’Ë’›1ïد{ÿ{0}{DC }Âç4Üendstream endobj 742 0 obj << /BBox [ 1928.47 5611.96 1961.57 5627.16 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÌA Â@ Ð}N‘Ä$3éLN ¸k]xÑi…êÂë;mmLÌ<øטElŸ0‚¤”É­©àÑ‚“„MúM’Š{‘5õ•Nx¦ì9†ŒÿG âAI­*©$¨FK…‰‡Òÿ¸Àst|à¡Ü §mö0¢—ј¼L¶ùs–vñ¥=ãVš7è@Ù k䱆Þóˆ9šendstream endobj 743 0 obj << /BBox [ 1954.07 5611.96 1987.18 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeŒA Â@ E÷9EN“™ÉLrÁ]눶H+¨ ¯ï´¥Uð‡@þ#ÿïZÕ„Ý  ¥¹ VBAp„¤ÑIâF†” J앬©/éá„w`2· ÿgâZÈj®©"”2KÆHÆ\êË®PH™“ãuoÀ8M»‡ qU˜“W™Îæ<.íÅ—và X¤´úáÇ;åÙoôpÄø{9Xendstream endobj 744 0 obj << /BBox [ 1979.58 5611.96 2012.68 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 158 >> stream xœeAÂ@E÷œ‚ Ì æ&îZÀhiMÚ.¼¾´Úš(„ù?°kT¶ 9AuBA°‡¤±ÄtÉA”¸8YU_rƒ>€ÉŠ¥høߌ-H±HÑ+WeÁ T±TÈ8^à ™”9|‚àÁëŒs6{Pˆ=˜Š‡é2œûïÛÖüƒÀì×­s÷³Ÿo=b 5¼Yq4qendstream endobj 745 0 obj << /BBox [ 2005.18 5611.96 2038.28 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeŒM Â@ F÷9EN“™Éüœ@p׺ð¢-Ò Õ…×7Ú*˜a ï‘ïÛµª»'L )e*‚j†œàA}!ñ›6“œ(q1³¦¾¦‡Þ)—|ÆÿåÑc¶”5GK%A§Y"zÊÌÉN.p…DÊ ¾@ð`ÿŒók÷0¡Û¸*˜ŠMÖ çñÓ¾”gœÙÒ•‡.+¯÷ ÷pÄx ¢8²endstream endobj 746 0 obj << /BBox [ 2030.78 5611.96 2063.88 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 156 >> stream xœeŽM Â@ …÷9Å;ALf&ósÁ]ëˆV¤ª ¯ï´Ú šÈûÂ{dÓštISÊ\V ;Å@Á|aõ+éW’œK©dq}É…¸‘p.9øŒÿåÞ‘Øjr¬®¤pÆQ4Bp?Ñ™›H(x’bWçJ‚©Û-P–ZnÂ¥V¶Y‡Oî;6cÒQXÝÿܧ_÷h¨¡Og4Iendstream endobj 747 0 obj << /BBox [ 2056.29 5611.96 2089.39 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 156 >> stream xœeŽM Â@ …÷9Å;AL¦“ù9à®uáD+Ò ­ ¯ïL¥ñ…@ò…÷È®3óèŸ4‘Ƙ8+¬vŠ‘¼5™µÙÈ°‘èÔXr!«ëKntƒ„SN¾Iøæžœañ°P\Qጃh€`¾Ð•"›ˆÏx‘âPúN‚ZÝž&(K‘[€p.J¶,çqÉý„&Ô-•\]Áðs®ÑRKo±ë3¹endstream endobj 748 0 obj << /BBox [ 2081.89 5611.96 2114.99 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏ] Â0 ð÷œ"'ˆI×´é ß6<€è†l‚úàõÍ>ÜS ÍþÙ5ªÛ<@r6*‚êBAp€¨U!©VéWÉA”¸¸|S›tpÂ;0Y±Xþ?ž-6¥Q“§²`ðŽ%aEÆœýË®I™cÁ7üÞ€q<Í(Ä^a¦âe:5ça™.ótóE‚ˆŒ ,ÐÿB¡4™¡ƒ#ÖPÃîõ9oendstream endobj 749 0 obj << /BBox [ 2107.39 5611.96 2140.49 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÍQ Â0 à÷œ"'ˆIÛ´é ß6<€è†lÂôÁëÛus &Úüé®U Ø=aIÉ( jr‚#õ™Äo2l’œ(q.òI}¥‡ÞɲoøytàD„$ Æ’J‚N)²DôdÌ©Œ\à ‰”9d|à¡œ0ÎÝîaB!.å*0åR¦õq×í²l7œÁÇù›†_È+l‘z8b ¼ä9Zendstream endobj 750 0 obj << /BBox [ 2132.99 5611.96 2166.09 5627.16 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌQ‚0 à÷ž¢'¨í¶®Û L|<€QˆàÁë;ÐÄ6M¶/ùÿC­°™`1K”µ9Á‚úLâwév1'Jœ‹l©¯´pÁ'0¥œ‚Oøÿpâ#Y@%e‚N)²D42ö¥¼ÁŒ”9d|à©Üç­0 —q 0å2I—ϵ_ÛåÓžp†èÈïÐý€ó¤ l‘Z8c¼ëÉ9fendstream endobj 751 0 obj << /BBox [ 2158.49 5611.96 2191.59 5627.16 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÌA Â@ Ð}N‘Ä$3ifN ¸k]xÑi…êÂë;­mLÌ<øטElŸ0‚¸'Ê‚V„Tp€h!“„MúM\ňs‘5õ•Nx¦”S ÿT*%hUI¹ U,:9‡Òÿ¸ÀœŒ9f|à¡Ü §mö0¢—јr™dóç<,íòiO8ArJô? l†5²@G¬¡†7ê09lendstream endobj 752 0 obj << /BBox [ 2184.09 5611.96 2217.2 5627.16 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÚ,í ß6<€è†lÂæƒ×·›s ¦ÒþºkÌ"¶AÜeA+B*8@´IÂ&ý&®bĹÈ'õ•Nx¦”S ÿ—©•ä”"ZUR.¨FK…NΡôO¸‚“1ÇŒO<”{Æù4{QˆËèL¹L²åqÖvy·§òU 7è@Ù [d…ŽXC /ò49wendstream endobj 753 0 obj << /BBox [ 2209.6 5611.96 2242.7 5634.86 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÎQ Â0 à÷œ"'ˆIÚ¬í ß6<€è†lÂôÁë›Ím ¦šþ]c±}Â’R¦"h.¤‚D …$lÒo’TŒ¸¸¬©¯tpÂ;0å’cÈøÿy´ *‚¡UžJ‚jT±TèSd ø¸Às,øÁƒ÷ §×ìaD!öÒ˜ŠW¶y8ËvùlÏ8Að#u…þ‚ΰFèàˆ5Ôðä>9Wendstream endobj 754 0 obj << /BBox [ 2235.2 5611.96 2268.3 5638.66 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeÌM Â@ à}N‘Ä$3™ŸîZ@´EZ¡uáõŽ¶ fÈûàeךyì0Ę( ZRÁ¼¹Lâ66‰*Fœ‹¬­¯ôpÂ;0¥œ¼Kø¿Ì¨ºÒ2´PZQPK@ɤìç \!’1ûŒO<”Æåµ{˜PˆËh¦\&Y çñs]ß×.<ÙÃ8«q-ÔØÃhà ?8¿endstream endobj 755 0 obj << /BBox [ 2260.8 5611.96 2293.9 5638.66 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeÌM Â@ à}N‘Ä$3™ŸîZ@´EZ¡uáõŽ¶ fÈûàeךyì0Ę( ZRÁ¼¹Lâ66‰*Fœ‹¬­¯ôpÂ;0¥œ¼Kø¿Ì¨Ofh¡´¢ –€’I٠θB$cöŸ x(ÿŒËk÷0¡—Ñ L¹L²Îã纾¯'\ 3ÉÃ8«q-ÔØÃhà×8¦endstream endobj 756 0 obj << /BBox [ 2286.3 5611.96 2319.4 5627.16 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÚ¬í ß6<€è†lÂæƒ×7›s ¦ÒþºkÌ"¶ARÊTÍ…Tp€h¡„MúM’Š—Oê+œðL¹ä2þ/S ª…‰ ­òTT£Š¥ÂD‰ƒ÷O¸B"cŽŸ xð{Æù4{Qˆ}t¦â“myœ‡µ]ßíÙ?¢Á—jƒþ4Í°EVèàˆ5ÔðèL9_endstream endobj 757 0 obj << /BBox [ 2311.9 5611.96 2345 5657.86 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÏQÂ0ÐNÁ hYÛ˜ø·ùáŒn1›ÉôÃëËæ6M„4…—BÒ]c±}Â’R¦"h.¤‚D …$lÒo’TŒ¸¸¬S_éà„w`Ê%Çñ¿x´ Á_W†VùÕ;– C¦Èðq+$2æXð‚?7`œ²ÙÈBì¡30lss–íúÙžq‚(¤ô?0ýl†udŽXC oê9bendstream endobj 758 0 obj << /BBox [ 2337.41 5611.96 2370.51 5638.66 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeÌM Â@ à}N‘Ä$3™ŸîZ@´EZ¡uáõŽ¶ fÈûàeךyì0Ę( ZRÁ¼¹Lâ66‰*Fœ‹¬­¯ôpÂ;0¥œ¼Kø¿Ì¨óBÐBiEA5 \²dRv‚ó®ɘ}Æ'Ê¿ãòÚ=L(Äe´S.“¬†óø¹®ïë âÃ8«q-ÔØÃhàû8£endstream endobj 759 0 obj << /BBox [ 2363.01 5611.96 2396.11 5665.57 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÌAÂ@Ð=§à33œÀÄuጶ1­Iuáõk[M„ÀK>›F5aû€$çB.¨U(4:I\¥_%Qb¯²¤¾ÒÁoÀT¼¤Xð¹·¢eCµšÊ‚AÉX “‘°*ÞÏpLÊœŸ ¸«sÆw7[Qˆk… ˜¼VÑé8 ó÷ðù^ð (®Ðÿ€ ùKd†¸‡=¼õØ9‘endstream endobj 760 0 obj << /BBox [ 2388.51 5611.96 2421.61 5673.27 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏK Â@ à}N‘Ä$3™Ç w­  Ú"­ÐºðúNk3&üìZ3Ý&eA+B*8‚7—I\•¡JT1â\ä“úJ'¼SÊÉ»„ÿŸ¹uYIZ(©(¨F¥ÌŽûˆó®ɘ}Æ'J߀qyí&âRºS.•lÎã¶Ý½·§rˆz‰”* ?2…jdƒŽØ@/õÊ9™endstream endobj 761 0 obj << /BBox [ 2414.11 5611.96 2447.21 5700.17 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeÌAÂ@Ð=§à3ÃÀœÀÄuጶ1­Iuáõk[M„ÀK>›F5aû€ÄÌ©j ‚$…$®Ò¯bA”¸TYR_éàˆ7`òâ):þ/÷B#Ϩ¹¦L0(e–ŒÎdlx?ÃŒ”9|‚à®ÎßÝlaD!®&`*µ\§ã4ÌÏãç¹ãR¤´Bÿ%“N°Dfèà€{Øà ¼¶9dendstream endobj 762 0 obj << /BBox [ 2439.61 5611.96 2472.71 5700.17 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÎM Â@ à}NñN“™Éüœ@pg]xÑi…êÂë;Ö¶ & $¼0›Æ, }ÐHšR械*ìó…Õ¯Ò¯’œK©²¤¾ÒÑ7Î%Ÿñ?Ü[r!xök*)œqÈÂIîgºPb ORìê»’àÝÍ–F(K-7p©•mZNÃ|ÜŽg¼!Ö?®Ðÿ@‰l,‘::`O{z»#9jendstream endobj 763 0 obj << /BBox [ 2465.21 5611.96 2498.32 5692.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeÌQÂ0àwNÁ ÚÒ L|s>x£[Ìf2}ðúÖ¹M!$í~6jÂö#H)F.¨U(4:I\¥_¥Qb¯²¤¾ÒÁoÀdn)þ?î-„”k*£æš*‚A)³d,‘˜£ãý (¤ÌÉñ ‚»:W`|w³…¥.2‡ ˜¼–éô9 óõø¹nøO¤+ô?`6Ù¡ƒîa/ÿs9¿endstream endobj 764 0 obj << /BBox [ 2490.82 5611.96 2523.92 5727.07 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÏA‚@ Ð}OÑÔ¶3¥3'0q.<€Qˆtáõ@`a'“´/ùMzhÌ"¶oAÜeA+B*8@´IÂ&ý&®bĹȚڥƒ >)åCÂÿæÕ‚ÆÉ­*)T£ŠÍPا_7¸ƒ“1ÇŒ<•ÿÆé5GQˆKé L¹T²y¸¿íaÙžÊ!jÊó! ô;¸Š¬‘:8c 5|ó9yendstream endobj 765 0 obj << /BBox [ 2516.32 5611.96 2549.42 5742.47 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÍ;Â0 àݧð ŒÄur$¶– h…Z¤ÂÀõqK±,%Ÿü;‡F5aû†Ä,ST ‚$…$nÒobA”¸¸¬©]:¸à˜rÉ)fü¿¼Z˜ØP+O™`PªX*”‰ÙGnp#eN? xò~ãTÍFŸc30?YçÇuX¶ÇßöŒ$ÿ`ƒ~‹y%²Bg¬¡†/åÏ9pendstream endobj 766 0 obj << /BBox [ 2541.92 5611.96 2575.02 5742.47 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeÌKÂ@à=§à3C™9‰»Ö…0ÚÆ´&Õ…×—Ö>2!¾ðshT¶oAÌ2Au¡ 8@ÒXHâ&ý&D‰‹ËšÚ¥ƒ >)—œbÆÿÏ«… I©2ÔÊS&|b©PB$f_¹ÁŒ”9ü€àÉûŒÓkŽ0¢øs˜©xe‡ë°\¿ë'0¡°A¿ƒÅ¼ÀY¡ƒ3ÖPÃñ:9endstream endobj 767 0 obj << /BBox [ 2567.43 5611.96 2600.53 5834.77 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌ=Â0 àݧð ŒÄù9[ËÀ´B-RËÀõqKIEr>å½C«°{Á’R¦"¨&äGê ‰¯2TIN”¸˜üR»ôpÁ'0å’ƒÏø¿Ì8MB’Q£¥’ SŠ,—oýó îH™CÁ7žì>€q9í&b·S±Éº>®ãÖ¾í(‘R…a‡ìí§¬²eªôpÆøb×9áendstream endobj 768 0 obj << /BBox [ 2593.03 5611.96 2626.13 5857.88 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÏÁ Â0 à{ž"O“´iÓ'¼©@tC6azðõ­Óuí ›ƒYÄî HÎNEЪ Ž-’Ðdh’UŒ¸TYR«ôpÂ;0yñÿÔJ¢ìh©¦² %–„œ¢D|\à ™Œ9|à®Î ?}Ø„B\Kg`*µÜæÏyümßí^ѤJ¡Á°‚/—µL“Ž¸‡=¼oþ9ÿendstream endobj 769 0 obj << /BBox [ 2618.53 5611.96 2651.63 5892.48 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÌ1Â0 Ðݧð Lìĉs$¶– h…Z¤–ë“–’8²?éûЪì^0§d”µ ãA}&öU†*IXÉå"¿Ô.=\ð Ž,[ð†ÿŸ¹‰"$†K*1ŠRtQ’§eÎ7¸C"u.d|ã©ô.¯=„L®”¬à(—2]—ë¸]ßë† „DVaØÁÌÈd•-S¥‡36ÐÀeÒ:endstream endobj 770 0 obj << /BBox [ 2644.13 5611.96 2677.23 5957.78 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏÁ Â0 à{ž"O“¶iÓ'¼m|Ñ Ù„Íƒ¯o7gw0¡|ðzhUv/˜@R2Ê‚Z„œàA}&ñU†*ɉç"¿Ô.=\ð L–-xÃÿaîÀÅÈ 5–TtJ‘%¢÷FÞá|ƒ;$Ræñ ‚§òÀ¸t{„ …¸”[)—2]—ë¸ßㆠ$O¡Â°C.·Ê–©ÒÃhà6h9Öendstream endobj 771 0 obj << /BBox [ 2669.63 5611.96 2702.73 5996.28 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÎÁ Â0 à{ž"O“¶i›'¼m|Ñ Ù„Íƒ¯o7gw0!~ð‡ZÕ€Ý &”2™ !'8BPo$¾ÊP%9Qb+òKíÒßÀ”-Ÿñ™;p1y*«Æ’J‚N)²Dô)Rv8ßà‰”9¾AðTæŒK·G˜PˆK¹˜¬TÖõq·ãá{<ãVþXaØÁÌQt«l™*=œ±>:9ñendstream endobj 772 0 obj << /BBox [ 2695.23 5611.96 2728.34 6046.18 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 169 >> stream xœeÏK Â@ à}N‘Ä$MæqÁ]눶H+´.¼¾cícaÂ@òÁ˜Cãnؾ`‰1Qô"¤‚˜W™¤Ú¤ß$ª8q.²¦véà‚O`J9Y•ð˜ZÐK*¡‡’Š‚êXšŠZátƒ;DrfËøÁSy`üvs„…¸”ÎÀ”K%Ÿ—ë°\·ßõT>¢QÜWè7lJ®_Y2»tpÆjøwK:endstream endobj 773 0 obj << /BBox [ 2720.84 5611.96 2753.94 6030.88 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÍÁÂ0à;OÁ °Ò–'0ñ¶yðŒn1›ÉôàëÛMíBšÀ—üt×™ìŸ0ƒ¤”É­©àÁ'iªŒU’Š{‘_j“Nx¦ì94ÿ‡Gš49Z,©$¨F‘%b¡ Š \!‘1ÇÊ»ãÒÝfâRº“—ʶ.çé{Ý>×3.`LRa¬Y•ÿÆšÙd€#¶ÐÂb@9Õendstream endobj 774 0 obj << /BBox [ 2746.34 5611.96 2779.44 6173.09 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÍ;Â0 àݧð ŒÄyœ‰­eàZ¡©eàú¸-¤Ž"9ŸòÛ‡V5`÷‚ $¥LEPMÈ ŽÔ_e¨’œ(q1ù¥véá‚O`Ê%Ÿñ¿™;pIyù­ÑRIÐ)E–h›> stream xœeÏK Â@ à}N‘Ä$3™Ç w­  Ú"­ÐºðúNk.̘|ðrhÍó‹l™]z8c |l/9öendstream endobj 776 0 obj << /BBox [ 2797.44 5611.96 2830.54 6496.01 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌÁÂ0à;OÁ ´¥´O`âmóàÝb6“̓¯o·iwB_òshUv/˜@ÌeA-BNp„ >“ø*Cs¢Ä¹È/µK|SÊ)ø„ÿËÜK,$5–” :¥È1Y$ †ó î`¤Ì!ãOeÀ¸t{„ …¸”[)—Jº×ñû]·ï p‘¬ÂP!†ìÈÇU¶Ì.=œ±>læ9þendstream endobj 777 0 obj << /BBox [ 2823.04 5611.96 2856.15 6434.5 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÎÁ‚0 à{Ÿ¢OPÛmݺ'0ñ|£&ÀÁ×w€ÀÁ.Kº/ùÿìT«l&@R2Ê‚Z„œ`A}&ñ»t»$'Jœ‹l©CZ¸á˜,[ð†ÿËØ€3)eÔXRIÐ)EVE›K‚ÇñOH¤Ì!ã/å¾€q>õâ2n¦\ÆtyÜû_»®í†3¨#7èvˆÁ—oé"kæ®XA_p»:endstream endobj 778 0 obj << /BBox [ 2848.55 5611.96 2881.65 6469.11 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÍÁ‚0 à{Ÿ¢OPÛ±nݘx>€Qˆðàë[ ÀÁ.Kº/ùÿÕˆíFœŠ ºP jUHª]ú]r%..[ênø&++Ãÿej!˜òâä¡,”KB‹…RTœð„LÊ ~Aðâ÷ŒóiÎ0¢û„˜Šéò¸kyеÝp†œÉÒý)&%ÿ¯ß3‡tpÅjø8ò9êendstream endobj 779 0 obj << /BBox [ 2874.15 5611.96 2907.25 6492.21 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 169 >> stream xœeÏA‚@ Ð}OÑÔv˜N;'0q.<€Qˆpáõ@aa›IÚ—ü&shT#¶/AÌœ² ¡ 8@Ô*“T›ô›X%ÎE~©]:¸à˜<{¬ÿ‡©…àf”QS ™`PJ, ÝYL8ÝàFÊ3¾AðTÞçnŽ0¢— 0åR®ËrÖãžÖë^þ2W7è7HÑTgùfvéàŒ5ÔðAG:endstream endobj 780 0 obj << /BBox [ 2899.65 5611.96 2932.75 6611.41 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÎÁ Â0 à{ž"O“¶i›'¼m|Ñ Ù„éÁ×7Ûp;˜h>øC­jÂî H)•LP](Ž4IÜdؤQbsù¥véá‚O`ªVS¬øÿyuŒ#%Ôì¡"”2KF3!K†¯Ü¡2ûðÁ“÷ç×aB!ö 0™WÕe¸Žëò˜×íg~ãÃ9s¡’Y3»ôpÆø9p9ëendstream endobj 781 0 obj << /BBox [ 2925.25 5611.96 2958.36 6565.21 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÎÁ Â0 à{ž"O“®i›'¼m|Ñ Ù„Íƒ¯o6±;˜RÚ|ð‡:Õˆý fœ ™ ºPœ jc$M•±J¢ÄæòKí2ÀŸÀT¬Ä¦àÿgé!X0Ôä‘,”KB‹Þ*.7¸C&eŽ†o<ù}ãzº#Ì(Ä^a&ó*º5×iìû¤ïð‚+øòZa¬\Öw¬™]8c -|ß9`endstream endobj 782 0 obj << /BBox [ 2950.86 5611.96 2983.96 6772.82 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÏÁ Â0 à{ž"O“vIÛ'¼m|Ñ Ù„éÁ×7Û°;˜Rh?øÿÒC§Ú`ÿ†$¥LEP](NÐh,$±ÊX%QââòKí2ÀŸÀ”KnbÆÿë‡P¼Ñü-óT JÆb(¢‘¢áëwH¤ÌMÁž|?€qYÝfbŸ°Sñɺ^®ÓÖ®¶µg\ 3I…±‚%óÿ¤U¶Ì.œ±…¾k»:endstream endobj 783 0 obj << /BBox [ 2976.36 5611.96 3009.46 6830.52 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 169 >> stream xœeÏÁ Â0 à{ž"O“viÓ'¼m|Ñ Ù„éÁ×7›¬;˜Rh?ú'ôЩ6Ø¿aÉÙ¨ª Á …$V«ä J\\¶Ô.\ð LV¬‰†ÿ‡W¡“ø¬ä©,”KB "Ä _7¸C&en ~@ðäûŒËêŽ0£?ó +0/Óõr~ݽËÚÝü#‘ÙT+$ ‰l‘-³Ëgl¡…/^Â9ðendstream endobj 784 0 obj << /BBox [ 3001.96 5611.96 3035.06 6684.41 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÍQÂ0ÐNÁ ÚBÛ˜ø·ùáŒn1›ÉôÃëÛu±ûÒ/zÕ€ÃeA-BNp† >“ø&S“èD‰s‘ßÖ.#\ð L)§àþ7¯<³R,™ÔꔌÅPØeÅ× îI™CÆžÊ{ãšýâ®S.‘´×y»nq»žp/äL ÌS´*ÛÎ.#œ±ƒ¾_9ßendstream endobj 785 0 obj << /BBox [ 3027.46 5611.96 3060.56 6734.42 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÌ1Â0 Ðݧð ŒÄqr$¶– h…Z¤ÂÀõIZ‘8Šœ<éÿC¯pxÃb–( jr‚3õ™Ä7™š˜%ÎE~©]F¸à˜RNÁ'ü¼ðì¥6j,)tJ‘%¢ˆÊ_7¸ƒ‘2‡Œ<•ûÆzú#,(ÄeÜ L¹LÒõs·v±­=ad ¦Ñ<×=µÌ.#œ±ƒ¾[*9Üendstream endobj 786 0 obj << /BBox [ 3053.06 5611.96 3086.16 6807.42 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÍ1Â0 Ðݧð ŒÔ±s$¶– h…Z¤ÂÀõI[‘ØŠ”<ù;‡NµÁþ 3ˆ™SÔ"'h4f’Xe¬bA”8ù¥và‚O`òìMtü¿¼zˆ¬‰¼ü•JʃRbI(âF9áëw0Ræ&ãOå<€qéî3 q©°S.åº>®Ó¶ÝlÛŠÆ É9.“cÍì2À[há l¡:endstream endobj 787 0 obj << /BBox [ 3078.57 5611.96 3111.67 6892.03 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÏA Â@ Ð}N‘Ä$Ó4™îZ@´EZ¡ºðúŽ­¶ ’?0»Ö¬Âî ˆ{P´"¤‚#T–2IZeXÅUŒ8ù¥6éá„w`ŠU ü$¥¤huI¹ Õ,5Šº’9>.p'c®2¾@ðPÞ ?ÝîaB!.¥30åRaór—ëêËõ(IÂN±Â°B”fùf6éሠ4ðe­:endstream endobj 788 0 obj << /BBox [ 3104.17 5611.96 3137.27 6953.53 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌÁÂ0à;OÁ ´¥-O`âmóàÝb6“éÁ×·[cwB_òsèUoX@RÊd‚Z„œà A½‘ø&S“äD‰­È/µË|S¶|Æÿå5€Nd5–TtJ‘%¢xˆ¾np‡DÊ ? x*óƵû#,(Ä¥ÜLV*ëv\çú=§ú=ã ÞSh05ˆŒr•šÙe„3vÐÁdä:endstream endobj 789 0 obj << /BBox [ 3129.67 5611.96 3162.77 6938.13 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÎK Â@ à}N‘Äd2™Ç w­  Ú"­P]x}§œ.LH>øÃz3ÃeA+BNpošI´ÉÔ$:1â\ä—Úe„ >)åä5áÿð@E•¼C %Q` (*‰BÄ× îɘ}ÆžÊ{ãÚýâRn¦\*Ù¶\çz]c½žp+Ÿl05Y=ù*5³Ëgì ƒ/f:endstream endobj 790 0 obj << /BBox [ 3155.27 5611.96 3188.38 7026.63 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 169 >> stream xœeÎA‚@ Ð}OÑÔvfJgN`â\x£&àÂë[ ÀÂ6“´/ù͜ՄíF³LEP](4’¸K¿‹Qââ²¥éà†o`Ê%§˜ñ˜Zˆ¢…8 Vž2Á T±*Jb#1œð#eN¿ xñ÷ƹ›3Œ(Ä^a¦â•uYîÃ|ÝÿdëõŒ3äDš7èw0Áˬ™C:¸b 5üi^: endstream endobj 791 0 obj << /BBox [ 3180.88 5611.96 3213.98 6845.92 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 169 >> stream xœeÏÁ Â0 à{ž"O“´iÓ'¼9>€è†lÂæÁ×·sºL)¤ü?tטElŸ0‚äìT­ ©àÑB! «ô«d#.U~©M:8㘼x ŽÿËÔB”jsª©,¨F‰%¡¨&Š §+Ü “1Ç‚/<Ô{Æù4{Qˆëè˜J·Ïã2,íæK»×&Y¡_!yTÒ<Ë7³I'<ÂÞdÏ9êendstream endobj 792 0 obj << /BBox [ 3206.38 5611.96 3239.48 7011.23 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÍ1Â0 Ðݧð ŒÔM|$¶– h…Z¤ÂÀõqS‘8Š”<ézÕ‡7, )e2Au¡ 8C£ÑHb•©J ¢ÄæòKí2ŸÀ”-71ãÿã5@ Â¥¹õT J-K‹M(%|Ýà‰”¹1ü€àÉï×ÓaA!ö ˜Ì'kù\ç­óÖžq…è *L³o±"[f—ÎØA_]Z9Úendstream endobj 793 0 obj << /BBox [ 3231.98 5611.96 3265.08 6826.72 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌ=Â0 àݧð ŒíÄù9[ËÀ´B-Raàú¤HlYJ>é½CoæqxÃc¢,hEHgðæ2‰k25‰*Fœ‹üR»ŒpÁ'0¥œ¼Køÿx àÔÅÒJ* ªQ` (Ê‘4àëwˆdÌ>ãOåÀ¸n„…¸ŒnÀ”Ë$Û>×¹¶‡TÛ®„´ÁÔ $uÄUjf—ÎØA_cR9ëendstream endobj 794 0 obj << /BBox [ 3257.48 5611.96 3290.58 6907.43 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌ1Â0 Ðݧð ŒÔ‰}$¶– h…Z¤ÂÀõI[‘8Šœ<éÿC§Ú`ÿ†$g#Ô"'h4:I¬2VÉA”Ø‹üR» pÁ'0™[ ÿ¯bHB¡4§’Ê‚A)±$”`™<áëwȤÌãOå>€q9Ýfâ2a&/cº~®ÓÖ.¶µ.`‰r…±BrŽËkf—ÎØB _kH: endstream endobj 795 0 obj << /BBox [ 3283.08 5611.96 3316.18 6822.82 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 169 >> stream xœeÏM Â@ à}N‘Äd2?™îZ@´EZ¡ºðúÆVÛ…f>x²kSŠØ=a)Ũ & ‚#Ĥ•DWV)Aquù¥6éá„w`²jQ ÿ4X&óæì©"e–ŒXI3>.p…B‰9V|àÁï ?§ÝÄBìf`ª>–æÏy\Ú‹-í拨J ]aX!›ø>³|3›ôpÄxi=:endstream endobj 796 0 obj << /BBox [ 3308.58 5611.96 3341.68 6807.42 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÌ1Â0 Ðݧð Œ7±s$¶– h…Z¤ÂÀõI[‘ز”<éÿCcƒýf3§,‹Pœ ‰šI´ÊXÅ‚Dâ\ä—Úe€ >ɳ7êøÿxõ *´4§’2Á)±$q£œðuƒ;Eæ&ãOåÀ¸lw„…¸LX)—ñ¸~®ÓÖ|kw\@¼ÂX!9+™­²evàŒ-´ðgb9ýendstream endobj 797 0 obj << /BBox [ 3334.19 5611.96 3367.29 6769.02 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌAÂ@Ð=§àaN`â®uጶ1­Iuáõ¶qºB/ù:Õˆýf³L.¨E¨œ jp’Pe¬b(±ù¥và‚O`ÊžcÈø¿¼z!yDM%e‚RbI(4áëw0RæèøÁS™0.ÝaF!.Õ¬À䥲®ÇuÚ¾gß¾g\ ŠÆ É’R°U¶Ì.œ±…¾qŸ:endstream endobj 798 0 obj << /BBox [ 3359.69 5611.96 3392.79 6715.22 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÎÁ Â0 à{ž"O“µi›'¼m|Ñ Ù„éÁ×7Û°;˜h>øCjÄþ 3HÎ…LP]¨œ j0’Pe¬’Qbsù¥và‚O`*Vb(øÿyõB #jòTl”KBaó9áëwȤÌÑð‚'ï0.¯;ÂŒBìÕ¬Àd^E×á:mÛƒmÛ .PüÈ c…”EHó*[f—ÎØB _o×:endstream endobj 799 0 obj << /BBox [ 3385.29 5611.96 3418.39 6669.02 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 170 >> stream xœeÏÁ Â0 à{ž"O“µi›'¼m|Ñ Ù„éÁ×7›ÚL)4ü!Ýuªû'Ì 92Au¡Fp‚¨ÁHB•±JnD‰Íå—Úd€Þ©X‰¡àÿãÑCň#jòTl”KBáh¤Š \!“²÷øÁƒß0.§ÛÃŒBìÕ¬Àd^E×æ<-Ó}'ûL/þ‘%’V+¤””B^ä›Ùd€#¶ÐÂpó:#endstream endobj 800 0 obj << /BBox [ 3410.89 5611.96 3443.99 6588.31 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÎÁ Â0 à{ž"O“.iÓ'¼m|Ñ Ù„éÁ×·Û°;˜PH>øC™bÿ†$%§,hE(N Öd’¦ÊX%1â\ä—Úe€ >ɳkãø?¼zhT”¢¢Å’J‚Á(²DÌÑÉ-àëwHdÌšñ‚§òÀ¸tw„…¸TX)—r[—ë´]·¼]w\@™¤ÂX!š—ÄU¶Ì.œ±…¾nÕ: endstream endobj 801 0 obj << /BBox [ 3436.39 5611.96 3469.5 6507.61 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÎÁ Â0 à{ž"O“µiÓ'¼m|Ñ Ù„éÁ×7ëp;˜Ph?ø“:ÕˆýfœŠ ºP#8AÔPHÂ&ã&¹%..¿Ô.\ð LV,ÃÿË«‡#“DÔä©,Ø(%–„fæ¬øºÁ2)s,øÁ“Ÿ0.ÝaF!öj*0/Óú¸NëtÿKn¸@òŒ$å@E«¬™]8c -|i¥9þendstream endobj 802 0 obj << /BBox [ 3462 5611.96 3495.1 6380.7 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÌ1Â0 Ðݧð ŒÄq|$¶– h…Z¤ÂÀõI[µ 8Š”ÿ”ïC«š°{ÃbVȵ Á’F'‰» »X%ö*[ë'=\ð LÅKŠÿ¯bÊJ¦¨¹¶L0(e–Œ–…Âüåw0RæäøÁS½`œO{„ …¸NX€Éë]Âu\·g_·œÁ…â–‡-çhF¬ ¬ŸôpÆøü9¥endstream endobj 803 0 obj << /BBox [ 3487.5 5611.96 3520.6 6326.9 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeMÂ@…÷œ‚ Ì á&îZÀhÓšT^_ìïBÉ{_x$Õ„íFœ ™ :¡ 8@Òh$q#ýFr%6'kj'\ð LÅJŠÿÅ«…˜L((jå©,”*VÅÌ™¦•Ü!“2'Þ|Àøëæ# ±W˜“yÌu˜¯‹Í׋?U*‹ïW_Å)¤X;éàŒ5ÔðøK9Žendstream endobj 804 0 obj << /BBox [ 3513.1 5611.96 3546.2 6199.99 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeŒM Â@ …÷9Å;ALf&ósÁºð¢-Ò ­ ¯ï´ÚvaB ßïíNfÍ‹Ò”2…UÃNÑS0_XýjºÕ$§ÆRªYR›ié‚' ç’ƒÏøƆ¼iäl°XSIጣh„eaóŠñFwJl"¡àMŠC½ ¦=íi€²Ôq³.ujÝ×þ×þ-Ϙ88 w G-‘}˜ÅØDKgéH’9(endstream endobj 805 0 obj << /BBox [ 3538.6 5611.96 3571.7 6130.79 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœe1Â0 EwŸÂ'0v'ñ ØZ€ j‘J®OZH;`Ë’ÿ“ÿ—|hUv3L )e2A-„œàA½‘ø IN”Ø ©®ôpÁ'0eËÁgü_^x Ž¼¢ÆâJ‚N)²DTò®œÜà‰”9¾AðTæŒK·G˜PˆK¹0Y©¬«¸Ž¿ôoxÆEÇDVõPu—–g†jØAgl }&9endstream endobj 806 0 obj << /BBox [ 3564.2 5611.96 3597.3 6034.68 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeŒM Â@ F÷9EN“™Éüœ@p׺ð¢-Ò ­ ¯o:ÚvaB ïÁ÷ZÕ€Ý &”2A5CNp„ ¾øÍ ›IN”¸˜YS»éá‚O`Ê%Ÿñÿ™;ðE–J‚N)²D †Îyœop‡DÊ ¾Aðd÷ÆeÛ#L(Ä6® ¦b“µÂuüµË3.\<éÊÃÊ‘½µ¸*j`=œ±>…\9$endstream endobj 807 0 obj << /BBox [ 3589.71 5611.96 3622.81 5938.58 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeAÂ@E÷œ‚à0 3à Lܵ.<€Ñ6FMZ^_ZÛºBÂáÿ„]«š°{Á\J%cT'TŒX6rßH‰¬ÌÉêú‘Nø„@Õj’ŠÿËب ¥ŒšÝU£RœQØã¹àx+Ò’á>78u»‡™‚WœA óª:‹ócIÿ†WÿC2Ûªî‹2Idq’Ëñz8b |¢Ù8xendstream endobj 808 0 obj << /BBox [ 3615.31 5611.96 3648.41 5938.58 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌ1Â0 Ðݧð ŒÄI|$¶– h…Z¤¶×' j;à(’ÿ“¾O­jÀn $¥L&¨EÈ ŽÔ‰ßeØ%9Qb+²µéá†o`Ê–ƒÏø¿Ìø(FQci%A§Y"úÂ" ç> stream xœeÏA‚@ Ð}OÑÔv˜v:'0q.<€Qˆpáõaa›IÚ—ü&shT#¶/ARrÊ‚Z„‚àQ«LRmÒo’‚(q.òKíÒÁŸÀäÙcåø?L-T#™¡ZI%Á d,†Á™LN7¸C"eŽß x*ïŒs7GQˆK…˜r)×e¹ëuù^wœ!ñüú<Å°ÈšÙ¤ƒ3ÖPÃjK9ùendstream endobj 810 0 obj << /BBox [ 3666.41 5611.96 3699.52 5815.57 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÎÁ‚0 à{Ÿ¢OP[¶në˜x>€Qˆðàë[á`—%ë—üíjÄö#HÎ…LP]¨ j0’°I¿I®D‰Íå—Ú¥ƒ >©X‰¡àÿcj!¤Ì$ 5y* VJ‰½K$>eºÁ2)s4|ƒàÉïçÓaD!öª`2¯¢KsÖéò^p[Ö¬ÐïPDæß÷{f“ÎXC h9ïendstream endobj 811 0 obj << /BBox [ 3692.02 5611.96 3725.12 5800.17 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÏÁ Â0 à{ž"O“µiÚ'¼m|Ñ Ù„éÁ×7›ÚL)4ü¡Ùuªû'Ì f™Š ºP#8AÔPHB•±Š5¢ÄÅå—Úd€Þ)—CÆÿÇ£‡Š’jò” 6J‰%¡döVðq+)s,øÁƒß0.§ÛÃŒBìÕ¬ÀT¼²®ÍyúN—Ïôì‹ÿ… ãVé²YÍTàˆ-´ðmí:endstream endobj 812 0 obj << /BBox [ 3717.52 5611.96 3750.62 5746.37 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÌ;Â0 àݧð ŒÄqr$¶– h…Z¤¶×'-} 8²ä|òïS­°™`1K”µ9Á‚úLâwév1'Jœ‹l©CZ¸á˜RNÁ'üÆ|Y'g¨±¤LÐ)E–ˆâ"eŽ8>à FÊ2~@ðRúŒó«Ï0 —r 0åRI—Ͻ_¯ËïzÂB¤´Cw€G¶ÀÙ …+VPÁñf9„endstream endobj 813 0 obj << /BBox [ 3743.12 5611.96 3776.22 5707.87 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏK 1 à}N‘Ĥmšô‚»@tDatáõíŒóX˜PH>øݵª »7 fNEP«Pì!i,$q•Ç*D‰K•%µÉ Nø&/ž¢ãÿðê ZÊ䆚kʃRfÉèN‰sÄ×®`¤Ì©àõÝqìv q­0S©å:-ç~¾.¿ëŽ#X ´Âcãú³ æÈ78b |þŒ9˜endstream endobj 814 0 obj << /BBox [ 3768.62 5611.96 3801.72 5704.07 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÌKÂ@à=§à3CN`â®uጶ1­IuáõÖ>2! _òshT¶oAÌ2¹ ¡ 8@Òè$q“~ ¢Ä^dMíÒÁŸÀ”=§˜ñÿój!šŠ†Z•” ¥Š¥ÂœÊTÅ× î`¤ÌÉñ‚§Ò`œ^s„…¸T˜ÉKe—ë°\—ßõŒ¸‘‡úŒ™Ò Kd…ÎXC _üO9›endstream endobj 815 0 obj << /BBox [ 3794.22 5611.96 3827.32 5692.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏ] Â0 ð÷œ"'ˆIÛ,É ߦ@ü@6aóÁë[7‚-ôGþ®¶ªÏw@ÌœBP«Pì¡h’¼H·ˆ%Qâ¨òI}å{¼“‡—ìøߌgÈFa¨MM™`RjX´LÌ9p< Œ”¹>@pSë Œ¯»]ÀR™ÓLQëô8ôïíiÞîõ#ÙS&] û÷–È.°ÃZx§9Èendstream endobj 816 0 obj << /BBox [ 3819.72 5611.96 3852.83 5704.07 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 162 >> stream xœeÌKÂ@à=§à3ÐaN`âN]x£mLkÒºðúNß ™†/ù9\Ìëô )9eA+BA°µ˜Iâ&í&)ˆç"kj—nø&Ï®Ññÿ3Ô=DÒ„V•T F›¡ë<‡> stream xœeÌQÂ0àwNÁ ÚÒ L|s>x£[Ìf2}ðúÖ¹M!$í~6jÂö#H)F.¨U(4:I\¥_¥Qb¯²¤¾ÒÁoÀdn)þ?î-DKNl¨¹¦Š`PÊ,•‰9:ÞÏpBÊœŸ ¸«sÆw7[Qê"s˜€Ék™NŸÓ0_Ÿë†o(‰ò ýä–È p{xù 9§endstream endobj 818 0 obj << /BBox [ 3870.93 5611.96 3904.03 5665.57 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 168 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ´é ß6<€è†l¶¯o7ç&˜Ph?øCz¨U6 )eA-BN°‡ >“øMºM’%ÎE¾©]Z¸à˜,[ð†ÿ—±o)P4ÔXRIÐ)E–ˆ!’°*Ž7¸C"e_ x*çŒs×GPˆK¹˜r)Óåqí×éî3ÝÊG|f&·A÷Qh^z¬ÐÂ+¨à ù9•endstream endobj 819 0 obj << /BBox [ 3896.43 5611.96 3929.53 5650.27 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÍ]‚0 ð÷ž¢'¨í¶îã&¾À(Ä€ ðàõ-hb›%Û/ýw‡Z5`3Á’R¦"¨&ä{ê ‰ß¥Û%9Qâb²¥¾ÒŸÀ”K>ãÿelÀf’Œ-•Rd‰èmˆCÂñwH¤Ì¡à OvÀ8w}„…ØÊ-ÀT¬².k¿nwŸíg°ÒÝ„Hq-²B g¬ ‚7ï:9endstream endobj 820 0 obj << /BBox [ 3922.03 5611.96 3955.13 5638.66 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 164 >> stream xœeÌQ Â0 à÷œ"'ˆIÛ¬Í ß6<€è†lÂæƒ×·«® ¦òðgשì0ƒÄ˜È5 9Á ‚z#ñUÆ*щ[–­õ•Nx¦d)ø„ÿËÒƒ7§j“[Q0§†¥A1rì— \!’2Ã'ò¿ãúº=Ì(Äy\&Ë“´„óô¹îÞ×® B¾Âø^KÜ %pÄZx)8Ìendstream endobj 821 0 obj << /BBox [ 3947.54 5611.96 3980.64 5634.86 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 165 >> stream xœeÌQÂ0àwNÁ Ú²–˜ø¶ùàŒn1›ÉôÁëËæ6M¤!)_øÙ5ª Û'Œ 92Au¡ 8@Òh$q“~“D‰ÍeM}¥ƒÞ©XI±àÿçÑB4 †Zy* ¥Š¥BŸ‡ˆ \!“2'üoÀ8½f# ±W˜É¼ŠÎÃyX®ÇÏõ‚äŠÊýDßœa,ÐÁk¨á ôÙ9Žendstream endobj 822 0 obj << /BBox [ 3973.14 5611.96 4006.24 5642.56 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÏ]‚0 à÷ž¢'¨í¶îç&¾À(Ä€ ðàõ-ˆ`b—eë—¶ÙµjÀf‚$¥LEPMÈ öÔ¿I·Ir¢ÄÅäÛµK |S.9øŒÿ—±_R´5ZWtJ‘%¢ó$ó9Þà‰”9|àÉöçUa@!¶p 0‹¬Krí×éþ3=ϱJ t?àíõ{Ë -œ±‚ Þú˜9¡endstream endobj 823 0 obj << /BBox [ 3998.64 5611.96 4031.74 5642.56 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ¬Í ß6<€è†lÂôÁë›Ím ¦”´ü¡Ý5ª Û'Œ 92Au¡ 8@Òh$q“~“D‰ÍeM}¥ƒÞ©XI±àÿáÑBb µòT JK…!’Lýq+dRædøÁƒï0N«ÙÈBìf`2¯¢óå<,Óãgz™>Â!“mÐÿ@ô×Ï°Fèàˆ5ÔðæH9qendstream endobj 824 0 obj << /BBox [ 4024.24 5611.96 4057.34 5630.96 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ¬Í ß6<€è†lÂôÁë›Ím ¶Òþ?tר&lŸ0‚ä\ÈÕ…‚àI£‘ÄMúMr%6—5õ•Nx¦b%Å‚ÿã…Ä!“jå©,”*– EH9>.p…ì3'ÃüÜ€qÚÍFb_aö*³¢óå<,íñÓ^¦°FÒ úð—q†5²@G¬¡†7ó§9„endstream endobj 825 0 obj << /BBox [ 4049.74 5611.96 4082.84 5642.56 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ‚0 à÷ž¢'¨í¶²õ&¾À(Ä€ úàõ-hb—eÛ—ýͶkT¶OAr.d‚êBAp€¤ÑHâ&ý&9ˆ›ËšúJ'¼S±’bÁÿÍ£…Ä)jå©,”*– C$™ÖÇ®I™ýÒ >oÀ8f# ±W˜É¼ŠÎ‡ó°tŸîeúg#Þ ÿ诟a,ÐÁk¨á ìë9‚endstream endobj 826 0 obj << /BBox [ 4075.34 5611.96 4108.45 5627.16 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ,í ß6<€è†lÂæƒ×·³ ¦Úþ?tשì0ƒ˜EJ‚š…œàA}"ñUÆ*æD‰S–Oê+œðL1Åà#þ–[*¯µÉ)tJ KƒFÆ>÷/¸‚‘2‡„O<ä}Ʋº=Ì(ÄyÜ L)OÔõrž¶vÿnå#š ã8OZ F6àˆ-´ðñü9xendstream endobj 827 0 obj << /BBox [ 4100.95 5611.96 4134.05 5634.86 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏK Â@ à}N‘Äd&™Ç w­  Ú"­Ðváõ¶¶ fL>ø9ÔfŠÍHŒ‰² !'؃šÏ$~—n—èĈs‘-õ•.ø¦”“ú„ÿŸ±VŠh¡„¢ 3 ,ˤì<Ž7¸C$cÖŒ/<•~ãüê# (Ä¥ÜL¹T²e¸öëòà×íi¾C<“Û¡û/äØ"háŒTð©9endstream endobj 828 0 obj << /BBox [ 4126.45 5611.96 4159.55 5627.16 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ,í ß6<€è†lÂôÁë›mn ¦Úþ¿tר&lŸ0‚˜e*‚êBAp€¤±ÄMúM,ˆ—5õ•Nx¦\rŠÿ’D¦€ZyȃRÅR¡‘qôúÇ®`¤Ì©à ¾oÀ8­f# ±O˜©ød/ça)—´´çé¢þÌý„H:Ãù@G¬¡†7¬ª91endstream endobj 829 0 obj << /BBox [ 4152.05 5611.96 4185.15 5630.96 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 166 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ¬É ß6<€è†lÂôÁëÛmn &Òþ@wjÂö #HÎF.¨E(4:Iܤß$Qb/²¦¾ÒÁ ïÀdn)þ/’¨’¡V%”ƒRÅR¡)GÇÇ®ËÎÉñ‚‡27`œºÙÈB\*ÌÀä¥LçÇyXŽç´\·ébBqƒþB¦8Ãù@G¬¡†7·$9Pendstream endobj 830 0 obj << /BBox [ 4177.55 5611.96 4210.66 5630.96 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeA Â@ E÷9EN“éd&sÁ]눶H+´.¼¾±ÕZ0!ðóà’]£±}À’³QT'ˆZ’j%ýJr%.N¾®éà„w`²b±2üS QLȃ“›²`PJ, EH¹*8]à Ù5Ç‚O<øÜ€ñÝÍFb¯0¦âe:/ça qI·÷Ù ú ÙÏè7–èàˆ5Ôð²*9Dendstream endobj 831 0 obj << /BBox [ 4203.16 5611.96 4236.26 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 157 >> stream xœeKÂ@†÷œ‚ 00˜¸k]x£5¦5i]x}§m¬‰BHà ?]ënØ=aI)SôJH0…$l¤ßHRqâRÉGõ%78á˜rÉ2þ'S¦—]±ª’ :E–ˆŒÓ®È™­à 5îÀ8{»‡…¸š.€©T˾ça›m›ç4(ÙúߎùÜ#6ÐÀóé4üendstream endobj 832 0 obj << /BBox [ 4228.66 5611.96 4261.76 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ¬Í ß6<€è†lÂôÁë›mXS éGÿ”î:Õ„ýfœ ™ ºPœ i4’Xe¬’ƒ(±¹|R_à„w`*VR,øß> stream xœeÏQ Â0 à÷œ"'ˆIÛ´É ß6<€è†l‚úàõí66S éGÿ”îZÕ„Ý  ¥¹ V¡ 8BÒè$q“a“D‰½ÊšúJ'¼“¹¥høß<;HA¸¾•kª¥Ì’1’1—zåW(¤ÌÉñ ‚‡ºoÀ8­vâZa&¯e:Îã4½§eºM Iu…áœò [dŽØ@ö9¢endstream endobj 834 0 obj << /BBox [ 4279.76 5611.96 4312.86 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 158 >> stream xœeKÂ@†÷œ‚ Ì æ&îZÀhiMZ^_¦5Q |áç±ëTöO˜@r6*‚ê„‚àIc!‰6’ƒ(qqòQ}É Nø&+–¢á2÷‚ERßÕ¸* ¥†¥AÆùWȤ̩à w`¬ÞíaB!v `*n¦Kq×¹I×¹V_ˆ\ˆ70üvÔsØB oõ‘5endstream endobj 835 0 obj << /BBox [ 4305.36 5611.96 4338.46 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏ] Â0 ð÷œ"'ˆIÛôã‚o›@tC6aúàõÍ:¬‚)…ôGó/Ýõª‡', )e*‚jBNp† ¾ø&S“äD‰‹Égê+#œðL¹äà3þ7‚g˱·¢M%A§Y"zÊÌÉ®\à ‰”9|àÁö ×ÕïaA!¶r˜ŠUÖz8Ï[:ë–ž×x(6˜~¡P¬ÐF6áˆtððc9ˆendstream endobj 836 0 obj << /BBox [ 4330.96 5611.96 4364.07 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 157 >> stream xœeKÂ@@÷œ‚ Ì ó9‰»Ö…0ZcZ“Ö…×—iã˜(„/|w½jÀá 3HJ™Š !'8AP_H|#c#ɉ#Ÿ®/¹Á À”K>ã° ¼”lW´.óN)²Dd\.p…DÊ ¾@ð`vƪýfb·¦b’uMÎÓ67ê67×|dr Œ¿õÜ#vÐÁôy4ÿendstream endobj 837 0 obj << /BBox [ 4356.47 5611.96 4389.57 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆIÛ´é ß6<€è†lÂôÁë›m8S éGÿ”îZÕ„Ý&RŒª ºP!i¬$q“a“D‰«Ë'õ•Nx&«–¢áóè ÅÌjöT J™%c$c.~åW(¤Ì©â ¾oÀ8¯v ±WX€©z™.‡ó¸N]§Ûü‘hþÌÃ/TÊ l‘z8b ¼ñ¦9‘endstream endobj 838 0 obj << /BBox [ 4382.07 5611.96 4415.17 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 158 >> stream xœeAÂ@E÷œ‚ Ì 3Ì Lܵ.<€ÑÓšT^_Ú¦5Q^øv­jÂî#H)FUPP i¬$q#ýFJ%®NVÕ—Üà„`²j)þÏ<)Y@Í®*‚A)³dd|^à …”9U|ƒàÁ㌓·{QˆÝ ˜ª›éÜœ‡eoÑe¯M/$ŠyýïÄtîhàúò5endstream endobj 839 0 obj << /BBox [ 4407.57 5611.96 4440.67 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 159 >> stream xœeAÂ@E÷œ‚ ÌÀ sw­ `´Æ´&Õ…×wÚ¦5Q ¼ð`ך)v/Arv*‚V ÁÔb!‰é7’ƒq©dU}É Nø&/®Ññ¿yv *B1 ¥ªÊ‚Á(±$d|^à ™ŒY ¾AðPëŒS¶{Qˆk„0•nópß`‹¯O/hLäiýïÆtîhàïË4óendstream endobj 840 0 obj << /BBox [ 4433.17 5611.96 4466.27 5623.26 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 167 >> stream xœeÏQ Â0 à÷œ"'ˆI›´é ß6<€è†lÂôÁëÛm8 íGþ@w­™b÷„ $g§"hU(Ž  IÜdØ$1âRå“úJ'¼“×èøyt •€–j* £Ä’0’3ç:r+d2f-øÁC=7`œ»ÝÄB\+,ÀTj¹-ó¸n÷´n÷ù#šéÃ/J l‘z8b ¼úà9¨endstream endobj 841 0 obj << /BBox [ 4458.68 5611.96 4491.78 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 158 >> stream xœeMÂ@…÷œ‚ ÌÀüœÀÄ]ë­1­IëÂëKÛX…ÀÞ ìZ3Åî #HÎ…ª 9¡ 8€Z¬$q#ýFr#®N>ª/¹Á ÀTjÑXð¿™:PMÔ“«²`0J, § \!“1kżîÀ8g»‡…Ø#,€©z[†ó°úÆ´ú–ù-™êúßùÜ#6ÐÀ÷Ï5endstream endobj 842 0 obj << /BBox [ 4484.28 5611.96 4517.38 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 159 >> stream xœeAÂ@E÷œ‚ Ì 3pw­ `´Æ´&m^ßi5Q ¼ð`ת&ìfAJ1rA­„‚àI£“Äô)A”Ø+ù¨¾ä'|“¹¥høßL¤dF\sUÁ ”Y22N¸B!eNŽO<Ôºã’íFâaL^ÃtÎÃâ[ÈóÛ×Ö$’n ÿÝXÎ=b ¼ûÜ5"endstream endobj 843 0 obj << /BBox [ 4509.78 5611.96 4542.88 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 156 >> stream xœeM Â@ …÷9EN“™Éüœ@p׺ð¢i…¶ ¯oÚÒ4!|ä=’C«°›aI)ST#äê ‰¯¤¯$9QâbdW}É.ø¦\rðÿ›©3ñ¤æM•Rd‰È8Ýà‰”9|ƒàÉê ŒK¶GQˆ-Ü ˜ŠEÖu¸›oˆ›oÞ_à úßåÜ36ÐÀôf5endstream endobj 844 0 obj << /BBox [ 4535.38 5611.96 4568.48 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 155 >> stream xœeM Â@ …÷9Å;AL¦“ù9à®uáD+R…¶ ¯ï´Úô…@ò‘’]cæюԓƘ8+¬vŠy«2kµ’n%Ñ©±äB×Fnt“„SN¾Jø/†vÛŠ+*œq  ºRdñ/RJÞI0E³§ÊRäf œ‹’ÍÍù{±„ÏÞ4¿<‡¸€îwb:÷ˆšjzø³5endstream endobj 845 0 obj << /BBox [ 4560.98 5611.96 4594.09 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 846 0 obj << /BBox [ 4586.48 5611.96 4619.59 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 847 0 obj << /BBox [ 4612.09 5611.96 4645.19 5619.46 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 82 >> stream xœÓ255QH/æ*ä247·Ð³4T0Šè*är™˜[êÃErà"æF†¦z–@˜.„HW¸B—ž…¥…‰±…&£(+ çL©endstream endobj 848 0 obj << /BBox [ 2174.59 6938.33 2744.34 7176.54 ] /Filter /FlateDecode /FormType 1 /Group 526 0 R /Matrix [ 1 0 0 1 0 0 ] /Subtype /Form /Type /XObject /Length 161 >> stream xœEÎAÂ@Ð=§à:3'0q׺ðFÛ˜ÖD]x}iµ#dóÂ'ìzwÃá”2A!œÁ¼)$M•©JRqâ²¥þ2Â ï ¸ôs•h ÛbJœÑ[%5Em˜’ÄȮș­à;r‡x7`\ºßÃ…8JW`*QÙ×Ïyþm—ïvÉq´&cr«2UI’”– ·P…ŽØA¤ª5endstream endobj 849 0 obj << /Filter /FlateDecode /Length 8719 >> stream xœ½=Ë’\·uYÓ®|AS©,zN ïGRYÄ9ŠË.Wl&YØY49ä69MqHIôä³s¸À˜iŠTJ ]ÞÁÎûþöBíõ…ÂÿÊÿŸ½yôÕï’»¸¹{ôí#|ñæ‘ÏÞìc€ç×õ99ö^¨öøòÑ_Ü‹øRÓœåÏÞ\üâ Ì«ƒƒWû¬²¾xò⯨/ŒÉ{«ÃEôqŸ­¿xòæÑv¿ºT{•ƒ±fwüÏN™Ïï.¯Ô>*åÒîÞÚä²I»ÃëË+kÍ>i½;¾Àg»Jï~ê`|Þ½‡G­TT0ŸUŠ&)³{ÏF+Òîç¶9Yv<F8+‡<CÚ¢^.„ë+XÝÀúï/M„U“Ý}iÂ>)w‡w8]¶:šÝó6Ýÿ<ùbÞK™löC]<¹~´³ùòÉŸ]9§/®¬ß§ðõvop“sJÓŸiÅd"Ì­ö>§à-n̤î“:ÚXvë”òÙ!<Àø&ù}Љ‘³Oy÷Gûœ#C#ìû—¸¥LŽ€%<™œ²‡©q¬Îvüð¢­Î‘%½ÙE¿;"ž¬JÉ&y· Ó7 µR| ñ«SÚÝð§Z«䧂$Xo.‘¢²³z÷fÌ€Zñ=ŽPuÄÑHi&äžàDh2ÆØHM„S…»Å„°;>m´ñ¡NÚÓÍ•µ„öØ6úŽ¡·q¯´Ñˆ+  ù)Xç:š'Æ 9gà=R›µðuôL]xÇß]z‡­]m&)@““äÌÛG"ѻíÀöuCÖ‡¶ŒD!¦±X]è5Ñ£Ù}l¯q'WÛV®´Ý{¼£g…²”u»ã-2–…}À“QÆnð¹ñmÜîF¾§}dü×î[Àïƶ#DœN¨m£ wnc_7Ä~äÉ"LöÇN‘át"ñþ×OýÇ#–ÄþâÝZ†öb¡:Âá†tG½÷†%è7Áß1Æà7"Ö.E ›xDψº°Ó°ÅKߧf@m;Àþ©JŠÏ߸±x6¡›_¨I‘·P …ÂxqÉ¡ é鈹3rTF:®zèšOÒ/há@¸ÐÑÛ¶ ¤o Eú%, 7|zmÔ{Ôªrû¼ll¿¿¼r† î—•ÿ?òžPý]7LH\½ºUh_ÉŽ,\¢3†ÅfEh‹ÊHÀ'j¢c•ÁmZÑ;-¦x%–cmŸr$“|¥™„ò:äž9 K"ÂXR¤$d¬©Hl;ïPIVÍ„òƒuW Þ󈬬Ա á€Ìy»©S§GžCƪ EjU“(%0`»e6l{”åq“¸†bDõúl{}'™g¶»oä‘_“ص¨?Ÿ •\ð…ÛÁüM3ê¶ÑñœŽ¨h0Ú9¾³{ØyA¦aP:»™‰žö´ƒ\|Ò¸)4¬%Ëtø`»…g¯‚EÒ$ ¼,}ØNÌp­.Np0ÄÖ’CÒËÝÖþŠN›2à(´ÞPçÆØ@="X‹D‚T³Ç7 ­EoC¨Tqªs£}Á¥ÅóÊ™îË£ÀJã¦#¯¢]5£­Û)ãí~¨$Ù&@=ëÀ3†¥žÐÙ‚JÒ¡8¤FOhn˜šY×O<9Z&9MÏIhþgÓ¹rˆÐ ‰Jf.,­;ñß‚cvOÉiðÉfÉÂïx‚BžÜç ÖDO¡Èƒ…Ñ<8ÕÕ,' šd!.ƒºuàXä3¯â!À‡ªA—õ#@ìÞk¯ 3uøÐT ó“ Šü*œ‚ìîJP+¯Of`P X^2\(„ƒ%Åø‘:弑Œ|Ý>|Ú|·çÊÊéä‘ý5y¥œè.è ÔÐsV=>ÃvòƦåü•¯;îc· ©ÝŽErI~Ø…;ĉz27UFŠÐȽcV ëÍ­tÍåËy #ìg‚z2Ý„)MeµA¥ItbyËœç¥J*V&˜ÄZ’´8q63a¸G3¡„Í BrÈÓƒ&cå‰ÇøY$¸…´>Ù¡Tª‡—Í>6x-¨£,QPô^ ‚ìú‰,±^ß+K:”%:bàe£%—û¿oõäÜi+€MQ‚&›³úL”•ƒ‡ÍlT~”…;^ÃQÏš…J:‘VÏUèyâ;ÛÇIÞŠ¿× \÷ó¹å&0ÿÝe•ÿbÛ‡Kfˆ²‘Þb+8ßs0·6ÿ£(hðð¥m"1˜ŠÜ<À¥ºõñ¶=¾oï¦c__ÎT»£ÜE»-#yè¦W2ÕÁ”üP¨H³ ¶æM›lžýX‚¨ªw’;«Œx<áY23n.§˜º …¢¹@Š5(Æ‚sèñ¶=ž±+o,…Çþ¹=¾n^µÇ»éI>:}}hÚ£iûé »Oi{Kï7ÐRƒ2–‡öøº=~hÏÛãã6Ãûööe{|7ýìn:ö8]øú'‚÷Ít†8ÃǤ)’¾…K UaƒwÛ´¾Áè ŒôÕ¡=¾nä´õtèŒó®¶5‰lA5òÒß³…IQ÷ÑÂ,á t$•ÆðtS/êË‚ý'm”Þ>¨ }ƒ“¢è¥?¸M=e»Î@Ö c•LßL ]²Â#(>ÚÿB "’É2œ·@QÁÞI¨ÚŒ—à5‰¢'SËð9#cÚó(»Thoy0êŸÎ¯` T÷¹ >;Ãј$(½0&H¿œê…]1hl\0ªÐ~&Œ¨ã¥Þ£Åâv2 ¦}ʧËi‘–±,ýßb ¾áY,ì¼³B eÝO~×ôÅ‘5­F ÓçÎÁÚL–HÁ$ Ÿ;S©ä ¢4ïx%V6ì­»Ù-/ÞïdÇ*ØŸØÿPà ïDète’ óöšAbWasãä"üw¥}g +än°Yt6.¸–êã}41˜`£Ã³0ٯƨÁ1¸M|ŽÅÅš¥×¦‚Áà)$Ó[.£BºL(šwÓ±¯§Cè!Ùï¦óásÏ!¯ßNÅüu{üÓÿƒvÐIƒrpiÌGgDÅg$ClãTÜg7†{Æ©jF¤äŽhÑGGäaAòk ¨A\§´˜h€–}Ÿ€¢Á1l "CôKå^žµ½<ç0V½ŒªoîçGšù-Ú­"s"¥tso湇l Huàe·ûwâ!~}ÛF¿!.WÔ1Ü• ë ñ¼ÔŒ ßmˆr£:Ç,O‰m^,÷°\ûEyNvK4ƒo„:BaIÜN"ú1¦Ij¢(p9“≢`ÂÂSe¬ÀÖ(ŽOéHœ×Ò5;¼ITqôcÛ2¼?/ª˜ŠÉ÷Á´ì—pðÖîʧ‹Ia {[è§SY}'?›‰í'mÀïÚã¶Ç¯< ÙªÊUÏx_Õ7‡^ÖpæaŸ0hÍA)&@…1LÚa‰ hZ2Á,ɾµŒÀâ\ØÆå;¯AJ­Â§Ç›Þg®Q(ùZ„!¨²˜¬„5¦^½ ƒhî5sÙ‹‰z(ˆ:ŠøÔÏ Rw'ý/YŽE§7™Œ_!2h’¬»z¬_ñM²ïà½íÑ»%|ºdÕïÉÝ StÃSô‚Ïä5™+0ÆѺà’ï¼ìº}Œ- ;Rß°è‰à:ñY*R”–0Ü›må¤ù˜a“ ‘>ÃVS‘xš`¤z¦šô¥š†örfˆÊ…LS¤Ž:Avm1©“BÀвc¾ ™$e1]ˆ±æ1^©­Ù°%VD‡¤{µJA@Ô5Yׇ#’Ç.%.âMÏçV¸Æ~¼ýþl®¦½à¿9Ò߸ßãS1gØý’éW{öÑ>Ø¢üå|¡„Çͪÿækz B<É×c£˜ÜÿJ¤Z3éݯ7?"¥ãΪAi:® *;RûŸÃU3Ãú^®"™Álec PÉ{3»8$L‚w¥Ø °~ˆÇzÞÖ^ÕaÉ \®¯i¨‰Bføiå ±TL·Q¥J·ºÀä=!‘€A '©søAQþð/mìʲBjF!«O¨æw¿aTdXi÷ëÇüGÿß3¿n"ÿ7—•¤x°†Áñ„Šƒ¢¬¯ÅÞÁ¯MÎgQñƒ–Ú"ËN@EjQñüœ±Äß?>hHøSq¶8ÜI¨×éC…|*$âŽ0•¯.ÏÍÉ$ rê}Á.w Çaõ`mEñ+£ªk^¹Ö“‚y.¼#?ç‚ùŒýVÊY€àUf(ßò‡–ÅY"­ü´=WqyœÓ=S 0ñ ‡1Ù•}o±MV&Ïsž„y:Ý­}d㇪®„t]ØDgÉKÜ Æ—©/”ËcYŽE—½²¾‰\,–ÜŠAŽBï ŸJ×£©åù2¸«€f›ßRFLæ,"Géqó²§e!ì±ÆÊèãVñPÛ·åòå¬%ÂPÊ@¹Þ}mlå€?/†2y Xñ ÃÚ©âxî³I:ùåf=?Æ+M¡³sQr94Ï ‘æ ßb›ïëqÁd¾åˆ¾©I˜ÑÃðŽºã¬#¿… שmÆ\²÷ˆê ás+ɵ¾¢1£ƒå!º+:’}TCKŽî{—¦6»Áš¥Áf?³œòl›ü=­›]îíÛË|e)Tg]*b:¾™À±/U`×Ò›™WÝ6ÌúO¯=·m˱ö|Z—¼&:L®çÇaGÀ6XDíµôZ™­Ð×@š=¶7|~2y<ó)¿H.G¼9Q*`Úã¾=¾™.wû% –i8cæ±Ës›ezF¬Ý"Þìµ³Xgïw‹„ždJÒ(*X˳>dÕ—(8j ³»oD›—¬àúcV÷w…¶°6ØN!ûn¸PSë¼;éìãÃKS™ú8¶Šâ7¹ýàý²=¼ï³H÷@Zä·u—S•¯×IüÄaÖ1Š¶•HýMƒsiuÅ „•´5?Ad‹ÖFÛjЬͫµ¬Ÿk…­–Uåj/]ó @ KøóÛÇ\À(O»Ê4²X\XZÛÉbGJïÿõq Ä“î ¬ß79>m×dðªy©‚8?ƒs@&Ä Ôj*|áæD“ö6f¹ÄdƒÃvæ µG…;B}‰5 ÄÏ]¨ˆäL´W­€Þú´R|\-Â]P2§p¬Õ" ‡JdJ°ú16¾ÅéV5r9!û ‰E¬Í•„pIúd"_ÑT÷îzIÙPîT›;2<’¡’kØýDÚ¼Þë†Êúj> Ó÷–×Àô¬daJq†B™ £Á)ÆùЀUÀ]ø€- ”ÀƒÃ àÚÂu_SIÇÛk{£®k=.}ÚÞKö׳ 0õËŸ¤›¼ q® E°C\–Û<±¶> =Ì¢À`Õ½ñš>ƒø‡û£UFTs DNÏ+±œ;‹lôÅ2˜´x>ÉsÑÇZ¥.„€$÷yl×öð3Ñeï×l×¢Á%¾ë`ZS¬®M£° A"À¢ŽvÈä ¾ç÷X¶ÿ£ëÞeV”¹L“`ßÇ…9òä0á…8e‚ðmSwožSGºð³Æ;ÒÉzÝ|£e(Z“|ŽVt+FwÃÛ‡^™À¡óLMHc–Åg (Àþ—f(}h†R—°¤õ]¯]îÊ[Ï)Û“x$°Rp¾3€žÎNíšáGqúSÙJè¾¢¥N&ÆXçþ—µË1dà©ðÜS‡ƒè›<í‚×Ïê÷ûàB3[7Ìs_-ÃgI.Öÿ ë† \óu_H4Þ<3töÍ},õ ¥I¥ùNÃ-”û'ORf•è>®Í¦|’”ƒ’”Ꭽ»,©(#Ž¥Ä—*®J§HÌÝÝ6?ˆ&Êd¨«¦ŸU[Cš©„Iî1 )ìâVûí±/¾­áß/f±YKùöO6Ù¨ûÆœ$°`º­ÚB4jân“_ha™[~Ýô»\u¦öf,¤lm‹SCºžPØ:ÂÕDÑmƒx©Û%Iž–$ƒ„ö¡v9qhŠÊoß´GQµ[bL÷è¼vÚw+Ð çv+pSåº]¡ïµ rƒÊÚ~Kò9ºœguœ!{©XoN©n‹/â5_–n²:#bˆƒ}Þª$IÅw.™$úr¥‘ Š±ÎÇh8Æî:‚e) Æó馕jÞt±”·ó»ÎáªÖEFÀ(‡¸Š@ÜÛ%ûúÄ\NÁŽŽ´cw€ŽCo,ðëEE[©A%³sQ~,˜é0Vh87e¤/ô±ÍÜcY}ü‚áÔ‹‘dü]uŠ¬ª™N{Ì‹èÖW¶ ÕÝ/'ÅÝ}&ĦQ&õš¦@ÜÛŸRÓ”üÐäØâš<¦<ª€ˆ „|N¥Õh*jy8IuËS÷FnçÞÑßÁè’<Aº7ld1§ÐWHñ‹6¡âÝ-zÓc¦”™þJ¤“&ç)zÜg "Ñ ¶©`| ÙÕ`ì6|“†[ôom¨ùT]W™:Áé %NÍ5LRÅÐuýÒ gx(rHêä‹ÜØ¥œâ¦Oo¦¹n|Zq¨¶¥À“7Ö›cçõl•˜ZÇ:ÕâGíPÐ!èzî\W:` dNöÄ.ëúï[|d^O)üXÄ2ئ‰¹X=)‹òpŒF4Í4Gι=0¹OþÄ°JÄêÞ›¼æO®|×üQÁÿOgöšgµ©¯ç9òJ»ŸÙÙQ î +îÊO{ÑŸ°¨o”òËKìÔÀBg’ ˆælºZŠy}‹µPuÜWãµL…ÆØÔÖ\Iò©]܆í–üì²ïi/¯Y-¹hûž£T>#bC[üO¯ÜÑ]Hµ[vŸdpo4Êx‰Ñ>9«Ù½gVûóÜéák•°¡ÞÔhéOP¤Ç3 —§ZŸölOWi+ï'f zA‹Õɀ³îìâÁ}egoÙ,õVŽ¹~øVSQ$=çuš¼”e­lok‹uNŒcaË5°j$ °G}xG na˵FŽÓ8!ØÓðàÖn%çϹÕã’ÖO @ª‡£ÓXǽÈ~¨‹ þhÄݬTÁR(`ÔßA…Í[ÖÕê/vG^%ó»Ò†FeJÄjÇ @¸qå…!gw‘>f;ó_2÷¡²Áû‚0{³´¾•ÉïZ…$@8c×½J˜Ëi°@·¦öEö³Z_çmžé‘<èâ_¢§²=\¶5¯ fù^DÙNªÖð³î2à­{Zi‡ðÊDðÊŠ™ümlĸ¡t¨›¦pˆÚÈ:¯ ‰D@èçm„XdîŠwFÛã-P·,ÿ”ăÈö7éâ‘Ïчp€{À°þ”Ô2߃u CþQž­HóÍØ#ð ”çüvu\”%„õ:Ÿ¾¦´ÄLýpë’Å»R—ÉŽžLÓÇÀ^ƒº¶b®—ˆQ©öXÿ‘Õ Ø4vI•œf°Iuñ Ê©HÅÀ«Ó¬*BL-Ã΋hŠ/‹^7%#–›ß>×Ñ¥Ž˜…ñ|dz¹ñ†Äiû°8'é5·[“O"5†([ö<ß Š3ÒœãAb)H‰cö-Œ¸NÉäÔ+ßt–ÜöóÚèœtÍ“<ÞÒùµ40Êxå‘×ÅláÁ?¼!Íp²%­_+âºä‡µ¯A—æWW¨Ã”¤l%Aj€èÍ£‘[;‰U“‰)R2ñíÀd§ô]̃҂‰¬í´ ]™‚¼=`°€R,ÕVß­õg¸ƒ4¥=ÿ†L¼×cf©’|ª™c·ºqj‰#L W*¾Ê¥èhöI]‹çB&.ªYçüzÃ(AãC^ó:¿pSR^óJë ëo‰ Рµ “Jqi§²n,Ø‘uz‘1·ÛF,væëG5ÊöEÊDúróËÆÄQ‰<¤`³£ˆ”nÞá¹ÍËdïêïnŠ™‰qŠ[9zª|Äe@‹D¾ ›ŠûxŽcñPI‹Ô/õ2ZÚ7ù²}¿â‘+Yýƒ¶¯v]zœK{ðÇJž¯ü¾Â"Ï×p:ÇÕ$þõ£'ÿ‡þ÷xj…´äÝ4VäYÝ‚¤¢so ®-É8ÛöUª?Ì„ya‘s>œVjÍú«ø'"ÑúækO½‘{»^K±Æ¡©7L7ñ9掋)1ï3?ÞJQZª$ì"Í¯Ê A*ó›7ÍÝzx×ËJB®½wÒ팋>QÁžàÐvÎÜpò+Wøç>¼/“/'õô5ÿØúW¿‹*—c&T3åNWÐëø#Yÿ‹eW'uU +´jžâžæ”ˆö~×Ç;)"h:jQD°] ÓªÄ"ÒP©’Åm:w f§×Iìç‚cß)Þ‚%cg—nj̫W~WUê6Ú‹0lqªc,°Øö³ôvq§ë©ûfñKS’|L·¾D pÆœŸq'¹§÷#N®$¨Ý’‘šHŒà*C÷ü ~»]Úyï5 y¶˜™KaØ9¢;vÓË®Ð+1 @Ó“7róóI”>é=`kPýËKÕ·âÞΔ£© [Sq¹Ì‹¶F¡ð¥éûœXÈŽ]¿Ó9îx0ÿ~„Ô¿=_}RSaÈÀ‹Dç\=)âÊáO´E™ªác_³·Òf9ï8§¿ÝT _ØP]žéÓcHa([­'T»CPÞ\|ÿH]üÛ£¤Õ…vFï»xóÈø‹õÍëG¿_6{€{}áap ²Ù#ƒçdÀÆ›³Mù³KÅT6*\¤}ÁÑ/rìµÇ|p’M›Oƒ}àÉ•ò°¡Z;¬p2Eg*p­]*úlÿÀ“óÀÅ–½rœ[.2Ð`Þ›\ö0\±hrðDw³ * t—[p8„µÊ£û(Ÿ,8qH=$×òÇqßäл¯èuÊÔ§…kçŠV@ü¡X_p2$)“ÖŽã;49}zÅÅýŒxÍÏÄ$„DÍ·e‚ƒG—YDe…‡”²)ÌÈœ‹naÿÑ?´óšÁbp¶¿r¦-™Ê#e«v¼A rŒ„cfpå=H 3r”8ë#ã=Õ¤vŽ|‡ÓtHÄ9t—×îÝ ‘ºÉW’":zÇIš\:(Ž¡³;tôà“&InÀd1±ŸK@7Àùj!*ÒT®âÀÇrs™] Ð,þÎC £o@ÍŠ~H¡ ã`Tw ™ ZÌâ²SçJX¢”Ž½{‘bÑ1ôÓZ˜+ ¦ŸïÕåÆRâ³n:!¬¤È»ã©mù Í™03¾çÑX¹%Þ"¯àk=,É¢ÂàEW7 7ÈÄr­šAËÇI,Yãc ²Xc<]x²Æ€ÁË•ÔèþÅ‘=’vf÷‡Ç±:-JÙ›Ù0H%XIŒWÃ{öe·Ì]cÔÝ«&ñ8ØhÐÿ\ê¶Í²Hî& 9®RHåçrjg¶ÕÉWa 9‚⦞MùQL c¡GØMMeòMA6ÙPú¼èñC{4í‘o 7l»)ˆ_µÇÛË©âУ®&ÏŸprµþ>hô”…',„dº×¬9¼÷±ãÚ›&q^"‡+¥;âÝóqãÿcdŸŒ=SfUI2¢æ‰M÷â ÉrEÈóÅvù’.þvy¼mÛOø|Ýíñ}{ü»öøÝtâÚ¾×–Ø–\U"¶Oa‚öù í‹©vG–­ž’° K¬S'Ž¾ã_tðx‡e˜(öT+ÍO¥sÛeé~Q·Öâm½ýNÞ'h˾œìm ôåÐP½ê¾ H׌£W;ÈÉÐLø7-ˆFê`öð„^J›üVé^…!•(墎¥)€Ãr«NfÞ2ϯï>׃@™ðÔR4Ë]Ò|øK׆%vQï äFã:°ærJ *fÎaY¡yBÅDr¥cc÷Ûÿ¾.8‰ûVéNÚp#N†QƒEOR€̘Lƒör1qØ0´Õ—ЉMB 5+§ºr³“QgS¢üÜ FIr/ŠÞJæ{'Ùù…üID¼•Ú †—Å’H'@ttÂ~ ±kþ(—»… …«¿—СFN'% ×CúdMwðO‰9‚J›"èUsñ¨¢Çd€#|NçüÛT´kbmT6bG£U¡DŠÚ‰;› gF3lEj3òûwrƒ‡Ë*»z8„ÅR¤Hèù–ŠÄÑ¢“““ík ¦1æð FíÖ<–}›¡†ð¿ÿ˜Eendstream endobj 850 0 obj << /Filter /FlateDecode /Length 7739 >> stream xœÅ]IsÉuŽð‘šðÅWpS·CݪÜ3íÓX^$[aIŒP8F>4 C DSI‘óëý–¬Ê÷²*A€ ì˜Ã4 Õ¹¾å{kÿùb:š‹ ÿ«ÿþúÉÏ›ýÅÕí“??Á¯Ÿ„ì1Eø|½|ÎÞäcSûøÓß_ÜÀƒ+ø¦¡1/êÿž¿¾øç§8n€'Ç2sñôåžÐ\ds‘B:.ž¾~²óvÿôð²‰V½í`‰¾ðôòÉ÷»×ûÃt´¥äw/ðóT²O»wûé˜u)íN/ñ±+Ù…¸;ïÍqšŠ³»·ø4”’’ýŸ§ÿAÓx9·GoÃ<Í?îÞ»cÞý¿fJ1)ïÎ70‹ŸÂ”v—m´Ýû=NçrÞ=3㊦-Lý >Z3¹˜w4l0”ÝÕþàœ=–vßá÷Ò4ù {ÂqSpžF0Ó”¦¼;Ķ¿½¡ aývwºÆ?äɘþÓ~Yê-“£óžO©.êçtð¯nQ«£‰êàêá¯óÙü¶MɯëÛ=8Žq²ŽF¢/ÑtpWÓÆtEÏæầ2Ïö–ÖéL ÝÝÃÇì­…cjOOL%ä²µ4›.;ý‡ý~~{wܲÏ@Cq÷oûì`­&ìÎ@4>&¸šÄôÃwtb:(ÁG ¼Ðä<äúÝZëeü¤'ßz1ÏéÚƒ-Q^û-Nk6jïçýÁF Wg'r’£]Óaö¬$„Ÿía2psIÎñƒ dÃOS(~ófpDHÛ¬8¼žgpÙµ›®Çj3°ÌåÝ4bí1ƬIÄÆ)>~MÀ¾L ‰¼i|z¾‡SÙúÝŸö!À;íªc/$o/‘cñ;É¡g¢`ܿ𫦄žA•1ðµ’%³¾†±¸arÚW™¼qŽ^á ALÑؾx~¹âíì4·IxÜjÜ1øbyß_Åöüµt¢:Mô­B$Ð…;"ódþŽ¥µO“™©GŸlÁC(Ä‚üR•©®Ã'•J†3ù„[ðÇ4þˆÙÅàå1œð…ËUÒÿиñ¿àJÚý ½0E—L•¯9'9úw(Qsœ@“¨£<ÇB—.F.ƒ„H»ÉËÃpdgÙýúôJÜ:ÑgŽ>d¤kÜW4®»vĤ˜‚dÍWí<ðÖÓd“Éxë°œlž,I¨yÀß¾$˜4uáä!F§ø›h$È™EïᯠT3J.%†TÏøÑÈ¥nr#|ÛÚòEra÷rÑ©¼—±b m]L÷bMã™5‰r’/ãm¸)g7³#h„Jd^ÙÉ›»$º(~Z©Q<1oŒbØí?ìm‚'uvujï¢VܸYК°½4óa®ì1Kä ðÀšHŒÏR±Êƒ?±ôš÷t°¨ö“AEcQ2$MçWM„>oR×^.ë#ïT+o FTÌ)Å.Cr)s'FÓlÄœ.›2aQàžO×|¡©›ñº s¸ $+@&? ÈåZ`uLOÁ¹~)é„‚L"Nÿ5kzdò¶nð ü4?¸'ùçÔæõ’È [v‚p€x…¼[áUf‡-½„Ö(äê¥ %^6\R•ì̽+½dX`kÛY‰›zÓ‹_¶¾ž6 Nߺng Hv÷tG|ÆNHþl~è¾î´º/$ m zæW@Rih°p|…€·ñçÀòº§Þýú§$i,…Ý·ÏÄá=ÛÃ~@/šÝßí}‚5†`“%@!–#0ËÛ@¹eX<«bFlב>§ã*2V(µX·e§Ïˆ×/zNœ”­¢Çï!΄÷P½ÛÓ+pÚ I Ë_ӬɺTõ(ÞЀPÙTNÜÀ$èQúB7§:xv¿èôœ;¼ðìiAJðž- œ]SJÙmLª ªHe$Û¬¾Æïºdƒ¼øk~®cQ¢‰…8<)£”ÃUK/vi>Â÷‹¢;óÓÉôªòÞÞÇð…Þ€‡ ~$tïÄý¸1W¢4 nø)@¶G*læ ›HDŠï½ïdF,° +aBõ-¡ Dy:yÒß¿ÒèÐ4îoxnVzËÈg94™ýÙ#Z9]·×Ç€@‰ É•ë|:×YüÏÌ$èÚ3ÂýtT‡þRçgË óû¤7 Ì+»à’GðÆ€ø•9__Þ½_Z0þsúßX’ËÿÕ)þøeJ·· @îÂCh„*Ÿn‹a °…³æ¡6ùØÄr z›dŒ·iÉÓ¼øÂGeB°/ ô ðVÜâ×вÎk·Î̦8.è?`ÂFû·ûV«‚ÞêD>:óý S:œèÈ5+Èûå~vúâÑ\Ï© ,m›Îˆi¸âð®I@æBOr£[<©‡yƒ…iµòÑÊÆI—ÕãøBæÍMVÀû 4Þ´¿‰YÁñ©sóß ›(pQ?~hOíãÛý¦¯ÖÍÍÜŒœ+IÂcº6VÌâ@Äí z_`?ë=49£íäæ]šŸí¥ù½C‹F¹où©«*fÓ•¹ÈO4Šmí3ô?K[š}¸¶dà(¬áÐYÉ~T‡èÍÔsú÷DS5*Ò%<2«6)D#Æ.Ê9Z…Y韢–ü÷ªÍåH,‘É,Qo…ìd]}^vIþîz>q*mkv÷Mäc›\ƒ¤E]éÐM{å'¤°} a$¤ûô–‚·*Íå™['4!Øh/Gç%5〦`Ká©ïöËê${~l¥ý$ËçCƒz[Z5Ô½¬c™‹³G¡‰yýÒˆßO6ÈX™$R­:€^"‚D×*VI\ ”öÙ C»³P0ÛÖšts]álúhº$+&B@œ 7Ù•Ð[/x©í-ÉCÊ£X#Á¡ò’6X8dãÖÞ2Åz¤íhŽ˜äLÖÆ•úÀµ&¸ÛA¤m÷s¹!ùå3;ÆR¶·q³ƒbóç÷ý—‹ R+1ÃÌ€¦~jÌ åMÅÂõJ@â¹I})LP’Ó5O:,2 Ÿãú$UˆÓÿÔËýº(m¶j\ìS#&ù¦ÑŒåâãJ:grÞ ãËÑôOïë +ö8ÅAŃawÚk%8óÅ€8ʼn¬Ýo/›¯áÃ>ø#iA¸òV…ܺœÏ)­öXý[ƒ —"ÆeÑ·õnÈW4£:ÀòA!½›6ÜO2™!slêà뺈œ4³Ö/Æ(…Äß %$ß~ÕОxû¯Êƒ%ÀÑ-O‡æ_p˜Í^6cÀÃv8©ZŒ>(oî'¦X¤Éx‡ìN™Uø¨‘‰„ŽMø¼=~ÁcãMk}ƒá‚fâ­ ò&ꬢÿ·<*ºÛ%Æ3•Ü_îåØ´"%n¸g{‡«†fôŸËÔ•pzÓDñ|¿©ðÙåòô—'±'ž¯) Á¾y#=Q sþqÛ…Ò§7Ldöù1Dg¥k ÌÇ3ãz=†Ñ±ðFE›¶¢¯¬¬1³Bl«QúIºO$È:w¹K‡ymZ7ÿ|W¢r/¢‡Îœ=/Òš–_=Ó+£ôÃSŒ¡Ã ñ˜`{{ƒ4»‰Ê#²Ô.yiO–ëÐú”ö4õl=oÛ!'DåíLör°,ÁÖ_?yúßï¾­ x¥Ë®âtR’ç>¯L4Á ?ÿôj/›§,Ü_J€QøÍ„ÉFUÉ Úbl÷^}u !ÌöÁõÆÉ uÙP5[x!Nͱ'&»×ÂS$¯äv…UÊé†9×¥Y2ÒÆBŒ3 ü‘ÕŠ®Øüˉý›ó,rS7óY¤>üÌÀêœr;ÎÒ”f½ ŠÊ¶Û2J T±”aiÁªO÷™hÜÍGسAçyd¤¦;á"w«Pþ¬}D°Ãô|9Þ÷Ì=é.7þè<òÐË'0Õ˜±‚oò‰Ï!âæŠ $† ÿ•v¿À‹1 Œ3/hO67ϯÛëïo™´àˆ–$|«¿ ÞÙL>5¬dÇÖ#·Ÿs¡ºÀٰ¡¹ û;cµ¨y>À`(¹³’Ü5Î!اSG!óz4³ãS?­`0Á*GR·ð K£®Båxžyˆ‰µÿBéoÜß'B­£šMq=†‚tó¸W"ÉuT"]F×¼N„®rnJš²nCm“ûr{qòå¿ðŠ IøŒ–ÀXWÍl) ‰½Éÿ´x¼%S+ÁØÄ?.°W%ë¼åý£££­Sz"õ2ïʾK0 ØÊ°[r3–ÄÃ0Ph¬–]rSþ¬ew ð˜]¿ÝˆÀ ô¹’H@w6>N:mè¬M |$­öv Ô¾Í_,óxų É0´·óì7ܗ䜸/…T¸å96Ü+;©ËÐ&ÉB ‹Aý[iú;Âø}h!¯#.„4œÃS±ÚÆ^ðÈÍ’ÉE¦¨Üãó¶Ç÷yàÐ%”RRûÙT5åíLE]gŸaI’1T×çÞ>_òn⦠#>èññœŽÉ"{*ÎØûS;K¹›û±l 9€¾C>èld\D)ÑûBp¼~<µdBžÐÜ[a3(‚Æw Š†[œacy˜Œfu"æ Ñõ†ÀüIÆÅ.#…Â'5%‡ùôº±RS:èKÁtEoy´ôñxÎ)¯@ÊQ»\†®„B>nÞ¾fËÊø„§¡Ìê*Ž¬çJw¤Ñ~Ž÷‰Ä#eÓ«v*÷YÐWòê׃~ÍÚî„ÅLE÷òE‰<+,«»”ZX ex•ðÀÖubs§p6|¥X¤r[QÎ{E lñu…"³¸µ5°òî¡.Ho1CFAˆÓ\ðÕÅù6- x• DÁëy¨¶Ê€AÁ©×Vyß³Û”ñ-œr£ptÝA6ªøƒÓXéÃRiÁoëÖv«­¹ˆ›ÛÇ•¼l7Œý-Ù<÷,ÛZü¤* A;œ [aÀÏÕpuvØ¡®žÓD’ãM|ËeJ9ŽüO|òÎz§$!— L`+¸ªÐ¸+LÙ"F<ò‚Hæ«bCK Rú+ñT‚:ãA¸S0t„H–ÞúMXÝ•TK©ˆwÐjAÜ­5ÇGÒYÆ&‡Ü× –Ѷ!f+@íÅ,Õ6ÜòAúéÁökþ^^!p3HÄîgì¨jgA.]lƒ¿¹à#Ðô@OÓRϵqš§gMzt¶k½ÔËž¶ªSµ ×¥£5#$5ÿ]¾O5ÓœL¦FBщ¥‰«cö™àÌ’ï´Ê/O+ÙÅD,-ÿþÕlÊ[Í°œ>2”†Bd÷_ìGµiÈ7gN´»øE¬¨ØK~óÀÂÄ`—àä ãR˜¼© 1öF* b9…Õ=ËfòWÎ:¶ ž¥|Öö1$v=îzsw×¼²lò ”Õ×Ë] ÂX¼?lŠz¹¨L å1eBŽój§ÿ¤ì¹Gz1¿zÒãÿ7ú%a'nd?qù:}\‹êümgŽ>´@Ì‹»bDÆR3KП^ 2:j`·J.,¤[ÞvxŒ+3£e Î KÆH+³SPAŸW)ò[ˆ„úÏwû…ùØù¦  TÃå¡äâ_ȱ†X(k,ÖßO¯99RÈ“,CŽ]î⟫ —½oûµ×Â…¥’Ž&/,å$N½JõYžÞ7C½3³-ÖT6o›×!çÙ¼¦§öñ¸ùÂícµ¿ùó¶ýíÁ°¿—ñ}¿†2¦†Uc £|ñWì£yW)"‡>þ#èg„00Bô¢^òÇî”…ì.õ0ù!曞…OTèy*aR+:g€óÐ)Þì;ÈW©x¥"· ÃTÆd²Í‡é•ËË섈~í‹^Ù:«G@CLBÞÍD„Ûy¶$\Ò¦”—ÿ3xÙÒlËË‚o„t9Ik~ˆâû‰û˜b¥?íçâÃyS­"“#ÁÞÄB~,`âO¸ ¨ÑltÆS']ÒêHžõ^83î±tb</ôæø u¹Q™Y5#4}.!v;³ë Û;ˆHQW»-.Þw}ªóÍ6WÅDÁF±d° u–Fà@ SÙâS7ÊDµ÷g£WOuy(êW•3øES´CÁS¨ÐßÏ¡à)%³ÏžŸó´æ9FEI›~á š,{Jìi>†M”¼•Z÷ˆÜ Âw•6:.{YOÔÜ €ã¾Ø‡p¢_€Œm»ÞÙŠdàÅ»å/z²_ÕýøSìcó]˜c!øŵµŠr:ŠU[WÑsA[âëÀ"Ž?_—”ã”<(Uw4Ê•ní}¢ó"´9ò¥Ãåj_úÒÅzÌjÐÞô%aç3=P&§¹ðÿ±¾të –ÊCâkë¨KãÿƒË˜ïÝv]>ði(q,JîLÌ2ùwá·‡xŒß´/ÚÇwíãyÿ?rÄÎi©Ëã"xr_WòÊØù’cÄjPG ãIØehPž#§ºÉ´áŽb¥ôio½ŠŽk¶kˆiÔtªƒî—lÉùpâ…ÒÄ–—?²P£Š3EPË«ð*ŒÖà4ãó^^U£|^ÉC{÷·ÐåÛ;bô$ÕÑ=`»ÎŽËpµ>„ŒsG}òºËù!yÙÚƒƒ3äQ=egÕÏ+û¼+»”7šv¿ªŽß| faÕ,d/}'£bš.”)F݉ª[(iè?köý`ŒUcËîʺ£*«œ÷+½^ïѮҦYYèèÅÁ–©&\·ÇÌ0ŒjrÍô ¨º¦#díó’˜ë‘'ƒ_¨i:™—É$¿î¯ÏQAÜÑ|hÐøÏÍ‚~¿-\6]ç^NÇÔ·²ÖøX6`epx¥$E…îVµ²ëý4ƒ|qNO¦ä¼FꢹŒÐ†B‰wèg±k΢5‚È3ÿÊyxSc’À6š“c’ø÷ýR:#2´w§¦\öíTf] Sòæ¢ïÁãß ôÔP¥>¢¬$Ûô8ÏôDE´jÃwtí¶Øµ;„®?ßœŠc|u3ê*²Tnù)Ì¡™|°ÜôÜA°%Â'£õ4œî+sæŽÒ­Q s§_ðWõÉ€eù¶ƒô4_ ŠãçxW×ÐEët ›Ï =ØÂï!TIá"ûé>•>Îð :{´æöÐ2±Ü¬ÑñVö aC߈.M $Àyª6vù±‘Íe»¿ýÂr­V%d \°2BQµWé ë&ݼƮ› Ÿ^×ÍEö=÷¨E+,ÎÓ À¬4Á‹ÖÀJj~}õïTWŽJQYDÕ!ß 'ó®¢JæYV7ÊnN—Mb×-œëô¯ÈÍÒÛA³aÇlþ½¬qu.!1SÒ°f÷ü¦Q FÂì~ÍH¶-vÑÐbMwIëuªò ¤ž/ºÏˆºp•¨QÏz[±=ßÞÇûžÄVyq˜è~Ä«NyuË÷õ·Vª½W§yz™ñ!åÕxYk/‘݆Dìý5sóÀdðWÑ-²¼Ajw·—Û.ÈÁ·«fÇÆ¿hè¨7¾×SͽI¤+ÍD3?(ØPðžÝªÈ~èE‹¯c¶Š<¾¼qLïvœº~WAG¿{¨ÒÍÙÜ^²Åˆö‡ò~ãßÈM_»~K´Uès‘·QÎ×ÞSìý–ȳYöÞÇuÃwœ6<´T@«û½åÿƒvRáͤzF«£ê†iï8t˜çˆ\%¤šÎ;÷56]ò71ëu‹ÃduXs$óÌÀکê–ª’EÓD¨ÖýOí*Ãõ^-[25®|³È÷sûXשG±j@ÁÕaˆTƒ#\½ëKî:À«uáþÜO”ï kû<Õ~ìS€A­ø°MÿÃYBÈÏ븰¥`­r×Z]TÝè>q›ê¹CTŸëÇ3šÕOùæmÿõ4j¡Ÿâù«öJÕ•üúøßÿ4Ëðëendstream endobj 851 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 363 >> stream xœcd`ab`ddätö vŠ04qÔH3þaú!ËÜÝýSñ§kc7s7Ëšï·„¾§ ~Oæÿž ÀÀÌÈXXÙáœ_PY”™žQ¢ ‘¬©`hii®£`d``©à˜›Z”™œ˜§à›X’‘š›Xää(ç'g¦–T*hØd””Xéë———ë%æëå¥Ûiê(”g–d(¥§•¥¦(¸åç•(ø%æ¦*À¨c8çç”–¤)ø槤å1000103012²äÿèàûÔ½àû¶ËßK2>û®ò}þwyæå߯ˆžšõjc÷wŽï‘¿s»ãä~·°¥×7¤ÉÿyÅž>­~ƒÜn¶Sg¬“ÿ>û;3ûw‹ß›gOë^Ø-yŒmþœî•ò̾ý^ú]Œý;Ç‚XÏ€ÚÐßüò|¥ ÄÍùž¿íwÒtö—\ße¸å¸XÌçóp~—™ÆÃÛÃÃÇÀç`ˆ:endstream endobj 852 0 obj << /BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter /DCTDecode /Height 196 /Subtype /Image /Width 269 /Length 6121 >> stream ÿØÿîAdobedÿÛC    %,'..+'+*17F;14B4*+=S>BHJNON/;V\UL[FMNKÿÛC $$K2+2KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKÿÀÄ "ÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÄ ÿĵw!1AQaq"2B‘¡±Á #3RðbrÑ $4á%ñ&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz‚ƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚâãäåæçèéêòóôõö÷øùúÿÚ ? R˜P ¶#8éCBÜñÛ½oÌŽöR„ÏAX‚}EïÞ# S,@.5ÚǑʹAÅCª])#FsÒ—Ë#µk˜PtQùP±¨ì*}ªBölÉò‹u¥/ÙØÖ¶ÁéHRj?fÌ£nè£ì¯Ž•©åÑ·Új„à̯²?\Rý•ºÖ°_öhÙì)û@å2£_²µkÿdQ³Ô ^Ñ#2>Êô V­ƒÒGŽ¢—µCölËÄS¾ÌkL§Gp)ûPäfrÛûQöjÐÀ‚4{Q{3?ìçÒœ 8éWÕA§í\t£Ú ÀÌò¥8Â}+CbúPTv§íÏÔ~”ï š¾iÛaKÚ”Î0i±ZA@íJW¡Ÿ´!’Ð7¥'Þ•¨Ëè) J= ¹ ï%½(8 W=©vƒÚ“ª>C<@çµ/þ‡ò­ ˜»p1€j}¨ùTQZeªÛÈDz“R€1U¯Î,¦Àþ\ÞÔéTÎzÍ’XçfÁ.ø-ßÅu®ã:W§YÈO\“ú×jNàÔf²©&ž‡BŠkR3JL¥#4Ò+/hÑãÚŒ i¤wH£.ìW’Mì|ˆéFzÏY&Ô_äÝ ?xŒ<ŸOAZ})J¤–€©¦8££É§sQíd?eÀ q íQ~Æ—´‘^Î#Ž)'CŠ{FÍ)6Jh8§ƒÍWµböHaAšB‚¤â€ šj¬‰tÕQOÚ4åAK´b©U‘>Íìȣ˩0)ŒU*¬^Íc¥8 Í8 p^Ñ“ìÈüºvߥ9˜(Ë£Ôš¬Ú…¢Ë剃0;yëŠ~ч³D¬€Óv­S»Ölmƒn”»àE$šŽÛXŠã£xŒå¿Â—´r"ñAž´*j¥ý­i¿nç¦â„ žKÛh"2É2÷f“¨ÃÙ¢}¸£o½eKâ |…·ŽIØú wöËŸ’Ð(øßô‡6·²l¸­L|ÈÝOu"” l¬ž€O’}ƒž=ÎJÇäó£nÍ]…œ›¬ -×`®Ú.¦ášë´9Lúr ýÂVª¬بI%©}›ž”›Á…çfÞëv#ç˜3u95²Ÿbý¤M<Ö%íìO¬¬7…¶€#±z«öK^cš›ko⑲ ükJÏÃV¶ñâLÌç’I<ÖŠŸ.âsL´5+FRVæ"?ßVç^³ˆü¯æöMfx£Oµ±²I!…RFp3“\›‚{ pÃÅ«±:¡éVwðÞB²ÄÃ±àŠ›Í@yeüëŽÐî6BÍÈáIüð¥iÍuÌXê¯àjÖR«4ì]½×Öí!—VÆçÝŒ~)Ö­W©aíÇø×?ªî%Ç c¥u– “ZE DåAéQR„RÑ ŽÚ²€Öþhígqê«‘SYê)w1‰RDu!Æ+H!õ¥òÏ\ŠËÙ?å4ö«¹ IÍMåÜRyMíQìgØ~Ö#©¤Ï4ÿ)½E3ëOØÏ°½¬{€n8¥Í&ÆÇ$TsH&ù¥T¦Ÿ±Ÿa{X÷$Éæ¢[Ër¬ñ½~aÅrú¾¶ewŠÞC°wŒýj;!¶ 2Hd gš¯dÒ»)Jæÿöâ’Þ\E€<ØÈõªÒj÷r͈äŽ$ÆJíä~5Œ©'$pG¶LüÅøçëE®Ÿuu‰.$ò`çw÷¿T 6Yº»Žé¤ównqùÔ «Ã sŸî­2ém-𠌻÷¤9çéÒ«i¶?k½\„æB0µ§$R»&íè‘¥ûLI[wdUÜ]Ž03Ï$V¦ÙÄxmß´®X’úûTñ[Ú¼±C a"„ùŒ:‚=Ôÿ*uô‰tΊv†ã#µa*ŠÚ©»êQº³"ÊT‡e#8­djvi°Ä¼·l;Ü×G{r¥UGDV~–é%Ä×.74gbÐqÍM9É{Ï¡n ÖFœ†ÎÞÒÜ/–€GƲ¦Ô%ó¶·óûÇ8Å2úñY±œàãêj º ÅrÄw#¯ùö¢4ï¬Ü¬¬…Õ­Owð$Õ-']Òr¤}ßjÂÁ§Á>ƽ^DyW2`}°ûŠ–;ë«we¶•ÑsØàU{oõ³IŽ•ÐE¦¥¼A¤ÃJÃ$ú{ ‹jlådd™/o1ç]I·ýâÿ^·t½?F€‡’Cq/ûCŠÍ¸Î*ž3øUr¦G3;Õº…,*Tb˜·Ð4«ó½Îc­q/vmT–—Ç ž¿ZŽßREžIÙe_»·øk9%\“:/¡m5tY*ä ‚µ§s«5ì-—,êÝ×µgÆ2ƒEè]¬ih£÷ ?Ùqÿ š¶ùݮꡥ·ÈW¸,AVåg[….NOàjŒå¸ÍCpïòàçë]–Œ¸Ò­³ÿ<Çò®þpÒùyàVÜ~+¶†$‰íE|µ2Mdudzi5ËBãÆ>†œ¾)‹þz¥O+&çOº“Ì÷®px’&é,tïíø»H‡ñªåb¹ÐïÏ4»…sÃ[‹3'?íSLj-Y“ó§ÊMÍüƒXÚæ=ëþì+®8 Äbˆõûû×(?²šÅ‰ý&/®êm®qz«iò"\Aå†ë´æ¤±¼žÞ2-‹ydô WO¨¾“©¦%š"à`6êÌû €Ïï _÷XóùV3šÙ›Â-”þÛ0“Ìu2q¸·éL¸Õ$t1®äcÆvÿõéò$hÄF[þÄŠ«$GUcž}iEÅëbÜd*£ ý¥Ž{mZ¿§Æ‰ºDãÌ žzb²qx„mŽF #ŠÔÓ®%pë<>PÚ1ŒúÔT½)Úö±p\:#mÊî8éÚš'(x9>”ƽÇ# e<#šk2©” Ã##±®{>¨è{‚™Î03RYbÓL_•ä%ñßžŸ ª“a㺊–Y ¸ò¦—‰P`zJ«+[¡÷Ð¥t§z*äÊÍ”}ãÐUëë3äZı'šˆLŸ(?1ÿëƒT.n§æFÀº€ãÇz’[—¸Ù)t.WæÔëMEhrII½H­`?ŠOûæ›&±lѺÂy‚±ä…dúšvÃ0=Gº.aÈ !þ+Ë6+Vm~ÉãUÌ‚€NÞ3Ypü¶1Œ`¹&©´J‹Ù–áÌ7Ôl˜äÉ'ýñL{Øf×s7«ŒY» 8aFSr‚A!2±,I$òOSLØ)Ç­)úÔ–4 ¥\@Î2QÿCU3K¬„€äàúS@jØ#FåÈ; SƒWÀ܇¦JÇžãKÊ1„€µ¢·*öÞ`À 1ØúPg$fÜÎíøåU<¡ÜÕ™OȾç?Ê¡éI³D´zPUGju‚—4˜¥ï@ÅüèÛõ S©Â™¡A^„Óéh %u4äõ ŠZZwÜQs'÷¨ûDž´Ü 0(²ìÒîH.æþõ<_KžqUñJ;ÑʇÏ.äÆé›ï*ŸÂœnݱœñUñŠ^Ô¬ƒšDßi~àÓ~Ô} GLlSåBç‘cí_Zi¹ö5_"š|¨9äD~”à7m^ìi¤f§°Ì¸ ßuy­ ‹· °Åà"Š¨õbúLÜ=?¥Tg¬ú–žƒ{ÑÞ“4Òiˆu!jny¤ÝT+Ž¤Í74™¢À?5bÚàFŽ0F{ö5S4´X “ÜFëF¸$÷9ÍEº¡Í(4šmÞÔg54íÔXc©EFZœ•€’€i›¨Í¸üÓ¨·bÔX.Kš\Ô!è E‚äÙÅE¼Q¾‹Çîì)A¨KÑ»4XD»¸¤ÝíQ¤ÝNÁrmôÂÕh&‹“4ÒsMÍ@Zž(£„w±Àæ’Ë8qíš’HT$”¶?º¹§)† Da¹îÕôäoó1Ü=©›SÒžì‹zö¦ŠEÈý?ZO*?OÖŒóšPhžLyïùÐmãîçJ´îsEØ ðú7çMž£ˆ‘»qéÍH*¼ÒyŒ}š»bvH‚ŒóÒŒÒZŽ¢“4P1sKºš)G4ìÒƒLÍ¢À?8£q=ê2}èÝE€ySBœ÷Å$q¼­„RM^³ÓÖY•$Œñ‘@+”ÉÅ&ã[W>¹Œ…ÖUôʲ'‚X%ÿ´1H÷PZšzÒsLCòi J  Í¦š(Ù¢Ði€ê3IHx  ÙÍÒ¡’m­ØÖI\ÖäþQØXœRCjòc äô\«Kncó"¶@e_7' rHíŸj\ˆ””UÊ_a)·r¸ã'œRÿg33*º–^ U݈֕ØÊ1Ç”LÒ°9Ûß¿·³‰ƒ©'¹Uläl€0W®E#[ºƒ¼/嶶ºfš#ó¤É¡Â"I3ìÆXeØvH‹üCØÖlc"º­NÌiæSœŸð®zî³ÞÍèŽ@úV+FÑП2¹HRR“ƒGzЖ%-!¥ Í:›W-àÂ4¬xUÏ®(TæƒZ1=®T ™Ôž ÛÇó­Û;M–×|Ò<„ð¿å@¬ÒÜ1X‘˜Ž¸*Ͷž²Ü¤‘£n˜+×Ú»«5†ÉØF€ò°P7}}ë+X´Sœs&á@¹µ3ŒImŠ$ÛŽz“ïUàm“ƒèÙ«SKæ r~oºÙö*¦Ü6j Ž²)7F¬Q"Ç:çE‘fª:lÛíñžA«FeP2@©ÕÑ•wá«iIkiZÿ |²®èï~_î¯ÿª¬y3Ïl~¹¤•W˜Ýã>‡š°š…Ò&Væ´Sò2t»3i¢œgý!¸ÿd…>ÂÎa¨ÛM,„†r=ª6‹Mqw?"9Æüp+£/bÏ$ ¾ÔÔó)h'¯‰$Y¢JõöÍsZ™Ý©Üóœ6?!]½D2®rߦ9®bä0½¸Þ>míšÏíÓøJ’”ÒV€fŠÔÒ,–i”ȹïƒÚ† -¬.n¹Š"G©àVÝžG‹—ÜHåGJØØ£ qUoHQN2j™V#—G³š[†ü³\M¾ñqÐ^jÀÛƘ*UAçÓüŠ•ñ‘="SÕãó-˜W+© )'üö…\ýqƒü«¨Õ7«nÏîñÈÏJæµ_øùŽ<çË…Tÿ?ëJî³úRRô¤­X×|Š£¹ÒèCsÌÞ„\ý vO`Oé[ž =Í) `òG¥cë2ݽŠñùÖ”™¤ï‘Eå¢^Bcc†«z‚¶)A.úõrX Ë€´,ÑÈ0ÈpjÊÜ`Œ~gšL£P®ôÚkÚÆîEaÏ\r?Î_{éNV4ÜÇ¥Sº+f¾uÑó%n‘ç¯ÿZœ]‰’›J’NäSBŸ0 ƒíšÉ:ÕÁ|ì‹g÷JÔ¿Û(”³T”¼à\UY‹˜Í¼Àº˜ÑÏó¦;qM9bI9'­.xéTH¥²)´b’€ÚŠ´”RÐQKI@-%-0,8;@àzúQ–\`œõ« J UžxïLU%ö¨ ÆsY\ÝÅÜšÊÞ`1vèò¥ÔÇ‘L~u~™Î0zT°ˆy‘I²E#;}j†¡6ù6Žƒ­B»‘¤­•*ý¬>\~c™ú}*µ´>t ¸9cZ.C£ è*æúAu(Jv\oÇÅwš ¿h°óOÞ8SŽœóù×r™\×Aà»­°]ÂÍÀ°{v§ŒÎ¢Ñ—õ¹¶”Fû¼³}ròHÒÈò9Ë1$Ö÷ˆnnzEŽ½ÉÿëW?Àž€TKY3JJÐFiûÆPzš+c6>Ù ?…hé“n ·CYu,O»8aКΙ$žfｎ?­iDÛ”Œšç-îP²œà`dVµ¼Á!$ZÅ«hÌýQü½I€î£4ß–8Lîrª9ç­:öÎk‹¶Ÿ•‹»M¼ò#E´ó%f‘1n€vÀõªH†ìT›T•ÿÕÿ²9üë>Fi³1b{““Z"Ö8/¹ñ‚¿…Qšˆó÷{ƪ"dFEB—t£¥ŠJ\P¹£PKIŠZ ¹¤êy ¥¢’˜êqÛ†5RÏœgµQ{ÇÈ QKq$¼1ãÐV* êubXžäG•Œåä*–I>¤ÑŠ³ey7·Ý_ÔÕ¤¢Œœ™n¼ˆÀþ#É¥ä¶iÄçÖyõ5K É†QºÔºÊZÜ·˜J¤ŠQˆíÜΚø#]Skæ©=œnijrd`Û³Ïô›vûaÀ?{Š™›yý8Jõ÷HtQDºŽNÈ‚ŒÑElbÍÒ€hË+ À9†´4ýFKv3ŸT= fÑC@vú” Fÿ#ž6ž*Ž¹n±ˆf#-Èyê½Gõ¬×9ÇCÜU™ïÞ{)ÉbH9=…M†Mç[Èlz¯q:˜¼´ä ª æŠlŠJ*„RÒz ÒPÒŠ´RRô ’Š(i -&i€”ÓE€+NÕBÀ˜ïÍTOb¡¹"ŽiAëE‘Ð2N´ÃEÉbZÍ”æF'ÖŠ+HÏa(ÇQVf%-PAéE SE”v¢Š¥ô¢Š1Á£4Q@1(¢ŠQKŠ( –Š(”Q@z^´Q@ÿÙendstream endobj 853 0 obj << /Filter /FlateDecode /Length 162 >> stream xœ]O1ƒ0 ÜóŠü @2 º0´ªÚ~ 8Ê€…0ô÷%!tèp–Îw'ŸÅ0^G²‘‹GpðÂÈ%pu[äΖXÝpm!–',Ê31Ü”<òÝ€æàwµ xJyÉ«úÓ¸zÍȺªê;cz†¤ÿ¤˜LqJÙg4m Ù*)šJœ79l! ÅÜ47I,áïï|Jñì K6S„endstream endobj 854 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 399 >> stream xœcd`ab`dddsöõõ4±ÔH3þaú!ËÜÝøCä§kc7s7ËÊï¿„¾Ç ~âÿ.ÀÀÌȘWÜäœ_PY”™žQ¢ ‘¬©`hii®£`d``©à˜›Z”™œ˜§à›X’‘š›Xää(ç'g¦–T*hØd””Xéë———ë%æëå¥Ûiê(”g–d(¥§•¥¦(¸åç•(ø%æ¦*€]§&ós JKR‹|óSR‹ò3¼˜Yfüèàûظú‡øêï" Îgü.qcÙuæï~²ˆ.®œ]RW˜W4·fáê%+—Èùÿþ(Ú?uÊâþ)}Sú§vÏá8¹*R5ê·Di[ÓÌ™}§ôÉ-s`ÑònŽù“êJÊ[k:[äËÔçuwÖeJÖå¶ÕuWqDìL?ôaïw‰…½]Ó+k»Ú*Zåª#’ü#º9*›¦/ž?qÖŒUò|e ~8O6í{Á¶ß SÙ×q=à–ãb1ŸÏù®Ÿ‡‡j—¬endstream endobj 855 0 obj << /Filter /FlateDecode /Length 4388 >> stream xœÍ[Ks·®Ê‘ñ-`OÉlÊ;Æû‘œ;‰íÈñC¬òÁÎaEÚ¤ljW&)Éô¯O74°3|I®¤|04‹ÁýøúëFóç•åJàùÿ'/Ž>ø:˜ÕÙÕÑÏGøàÅ‘VÞÁøb#Ãá¨Ãó£oV;xpoÊ´æ*ÿïäÅêoÇ°®tQD¹:þሾ(WJÅQK·òÖQÛÕñ‹£o‡ÏÖbÑ)­†ý+¡Œ/×1z!LvðTU¶ëÖj Rûp¬G'äð_”NÙ8\ÃP áÌƱ^¡†ç0VRh†+\[Ç ­h Ì0šO9aSêG-ÿ~_À×|ÿz­<|5èáÍZ¹1é‡í%.µôjø¾.÷ŸãÏPò– HE5:P†XŸ F®„9Ññ9 ïWm`)‰S¿^àÂ*Æ|†Á(Û©O·8Îù!É× ?ìA¾Ú©0†û-a‚“£Ò‘¤ ÆÀkpø¨½st:ƒ2*ÉÓ…¨bù°Š&ùïÇG_é1†Õ°-Çÿò`,£±h20…éÉÅÑÓE ‹bÎÀB¥ +Ø üäɾ>Gëèa¿¶ðŠ„Ñ)nMÄhC„ÍËQˆ&‡j¶n´! ï¥Ó ؼϒ`c£ô¬…´cSÎÖsvb Î&HmIÖC´8yS~ÝÈâ 4çëiÍô)¨ð|3!\LÚ²1z0°t¢<Þ$xa'»‹ÆÛá÷žm4ÒûbéiJr†h¥Ô^ßXÈ~½;ŒAFø&ú‚× þ‹´Y­Â5Àò\Ípƒ¢ŸùN°.zøç½&8=|ûªu,©G ¸òäèøÏß_gË{¶»´Y+M#ª=Yq²ÜM#Ÿ zŠÜˆL´¶9æ ›Br“Þºw&·>6®¸Xø©-ù=ņ¤º ½Ü`‹ä>)çšF[ÎjŽÏû3|î¤Ñ2+ämÒc þ¡5a%³†­%Âñ•¯zÁ¢3ì–öç´7ˆjøܨ˜ô¯EÁëµµ íLfëAà™ õ>N_rx‚…ÃÖg ž¡ìP` dØšEKC Rf³È(3ïbòýä©^Z¡ÜðÉ–Û®šǯI ÞyÛYÅ'ˆr=˜Û(£Ž„[‚€wÃùä h“  Øé) +¸Ñ©âfÑßÃànùýv{C™}‰T~è­­Ð?¡fõ Ø^‘©håâ'aŸs'¿‹.9¾TN™Ñ½4Ú5ߘ\‰jNI‘”EµòäñQM׉Ô¾d2¸HúTQ`„«qíö°å¬Š÷[ [«…¨•ì‚Vа$0%î‹ÜX[÷&ÃzxY-þ‚9&gpMàwý¿‰&õd¯˜ê7NÊÀ}vÁ9_²ñ2D‰\ìàVæCþöž˜?„Ù˜y:!ÃJbÀÚRÝ[iètïBi‡N‡{~B8a$„ËŸ±)ÏÖ@pÓã?¬ ±pܹÀ»ïΕCMìë‡Ý@Ô|ìv¿J»õ¢"§_;1Ü’ö,Î&®‚ôò1J€’÷QB»i8¬ŸwáU£0ûòäÑxg(Ï뇲ø˵• SŒÄ hÈQò’8¿7äÓ32JPzóœ°V8g‘¼0§C§J@® q>깄ëç°r¾ ì¶ælýˆRÛ(€öHN.ÎÈ`\Œ¸èó 2œæׄ¶¤q ¬¥s$ŽÙâ–SÞžvy‰–†å|±AL>8ià©:˜C”L“ÑyM¼ŒçïéˆQ×xéÙ¥I€Ëa8H¾aÅ•£ãDD¯[AnjÑ”“¬ezp0š9Ý  ‹‹ó—˜ iamg@…`÷ŠÜï ¾¡‹LD'!& ¯,¼j¬/gæÇeb­ÀKL[*á CúT#® ˹¨dÞH:'Cœëjî9a ²Äõ~.)Óc‚3­¢lb1£Ûÿ¯©ñ¬1 À°iƒæüA2È7Œ`r’Ë“GC²Ñ`Î&VŽ×>¦n1ÍHG[ÖÙ”ó€Å)0׳úâ e?jÏ;Dz3™/Ðœ²)Z{²¶ ƒ¢àððöi"m:„f*éD¡VQÉ‹üºn7FRj¦€W”fÉŒâ=jH`Ì™È/¿6˜ÿ¯J¸º·èV:è "â%Z#xÊ )ÐN&ç–ýŽ þ޽™òשHøcúˆ—Î -ÞLCîó}A0Û1á›èB`Ñ,PÞIm Œ¼>y^‰àO½Sõ5± ùb³ˆ 2ëkËSJ¿Ï’”z!ý_*o 8¥:ŠöáÌ‘Íù$›N¡|¶GõdlçÛÖA¾cÄŽdQ°=(Ïôøœµ•÷ª _|4¸§VÓýòäѸ$kô*çÞ_$@ðX âqÞ°QÜ'<¶£c³•Ð(øÁ$”_3$dLxÂU¹MÕ4PÂëÎj’±ñc¿«ä•«iCT'EÓ|ãµ%9"UOö¥Cߤ!à¤iìšìDÛ@f-\)e¾U>;ïþµjù)Ë]Ó\p]Áw—ló¯*XÖÛ kPMÐÿžDA®‰èŒVoϨ <òàÞ·AØàf3÷J¥Š±wQ€‡"Š³Ët\º:›utFH–ÛÕ”>³¬‹‘“¤-·½-I©\§Me½Þ~I=<öä<¤Ôý–µp”áñ:¤T\ß¹Kmò‡1Ó ãÉ7…lf`wœÜ«vÜ0y­8Eôå$Ÿ9àR[¾½›:‡3ÔƒÒipÚž‡MñíïüÀÊü»û|lªB¦¯zicWåOr…,•®o)9¥§6j sB™dv#=g)öòÚ®Lü¨Ë—Ã7yÌÓ./˘ÎXJ{ã4e&MªX¹Ç®ð÷vwvÒ¥;»…ð»xêb~sY6 ð×fÙêö,Û©QÚpg–ÝDpI~—œþy[Üïz‰ûr¥¿—%×)¦º}–,ÑXÙç³0…‚`ç ´Iô¹F^RxBlزâ Ó%‘ìt³‘Ô «;á¨é!%wÛó*“´ŒY&LI6å†+é9w›iȶAßðØðœ·)>À~üêÞT»7ž wFÒö8( f-\aCoÓÜPª?³·XŸ®5ÞoHW¿'ÀÐÔžfŸ*éÙ·A ˜ŒK‘±Y9‘¼DÓ“‘üÉ€äÍ9cÃÜîJWÆhÔ™ùÄGYõf{‚ÜÑ@n•îS—Ï: [°9F#Ln5g’®i«Ù3NÀ¸B®›…1(ÕÕÍxñ|ô¤X²Ù!dFL D­mJtñçî{ÄÛ(Ì´øMe3ÉgƒUª%ØWôMÝ×õ:þ(‚\ÐV_øº3ÒVm`¤£È2yÄ/šAÿÞ“L¬ ¦Ãëé.Ë Âôï†ê¸ò»5­As_¤cºØ”YfÜÐ!1~¯Nø¥ò;þmR¤ô°¥M§9úŠ\}“ ͪè8ÄLÆþ+^tÂí)ÄÍðPv¡z§—«ßè[!話Ì2è¡TÜSÉ-®cã‹emøúiƒÔÓ¹XåiƒªLª*# ß18/A?¡F[viÌkÉ x’ÎURI– ”ø„“‘\ûpm?Ãþ¬§T9×aŒª-5†ó Š¤!í•å‹ŸOå–ù¾¶ð:J ‘؇â <åÚSàM™•ð¸KßžÖb¦A+~±“øõVÚÕårWä<ÕÀ¶>íJi3ºrÝõ³âL¬Á[Kä¨1<ç ¥¹‘³ß/‰{aúCBÆîI¦xi#%j¡¬;ßÓøëº ëÙð˜¦AÉqÍ$ôPÑ€]€—µ’Inʾ¹)Ú¦EMáÉŒ‰èPcVé4ºçà[¸øÆ&øf¦’í>µ†åæœæC úžÒlY0y–U¦›"`íª²åîÂ.!v5ßi\dÖÍXÉmÊÖoâØuÆÛÝ®JÍÃtÑŠva–­ŒßSO—G”‡Ü­‹öÖÞÑAÀ&%_ïlOy8{xUCÈ”³²=â2¡ñÉtÞŠç{ÅëdÛ©Ú'6¶È’§÷†XØHÈ–”¦e>¤"‰ð©Ág£€²†Jù‘ß0 88·´GÀ׌T³ŽôÀQÀ{Ò^\x¥†1žý:UÈ!}~CS•°‡¶YBíA.Ý tг½hº¸1xjŒžŽn}êÕ>ŽÙµ±i¯8ÈŒïâ<{öTóé—InXÂ]ªî0 á•ÃZ/ôt¶IýÓ±!~VõÇeÌ‘þ²fˆ¯gK:§ù²í¥cÉatÿ¢÷P`Mïo´øm…Œ|š&m¤mp‘Šü ‰MåKû†ùÜö5Ó¥š~ê4á}$´Ø[#Å-÷ƒù‡ùLÔ€ž¦t%c]ý7Úñ÷˜ o)]oÊ¡Ú¼¹$u60[Q>¤lœS~^Ðn«­³Ìç”VAV²ÐQ2é¦ëšì™®9Ëì™æãÚaWFênsÑ´0ìŸç³¯k2ÊÅL“»~¤[‹Vx%È骇Գþmâ7Âé0 ¯ëp[‡g³swu˜ö_ÆëÙ]ˆá&ø)÷gW‡ªÈĸ31ùñvøÉĵ4è bѦ]È%Þ]•ÌÞMW—·å™™üa¿W«/ˆ³ÞÛV]A–Þ=^×á¶Ç:¼ªÃWuøbvÈV¸¬Ãç³fëfÝÓx^÷m 7ÕÙámc^ÍY@ºa:éÁRþ ‡ma2%÷÷´"K÷äÁNöEØã6#dœ}üÎûçä÷rú6‘XXrZ¾•Ö€ZUÊëªvü)ƒï.7±*1¹&¾°æ›|º(—b ¾)ódùùÒÉÌjY5HÉ·8®§ÊÔÙ¸.EÀ÷áÅ`ÒŸDªu©_ª¶ÎmFo&Xú]ËçšaG¼à™Z£ TˆÒ‹‚vË8M{÷‚gÐ` M´b/sIhºöÜÏ}„ioÄó[³¿w8³ÑZ¡/±e&F,{ë* ] T‚C¦`©Ò"é\rÊ…0²+g@öcÃÙX¹)jÇéTŒå·Åg¸ M™Ô|hmÛfû›2S$›‡ÝéÈš¢þÆö§Ä­lùãJ÷i;R$b°°“Ž+kÛ_Ÿe(cy)}ìWuN™”DÝýw`|éV!:ÂE:9øûÞ"Œí¯Ã]æØNã^3n¢•ý-e·Y;BX“"¡'u¸Ÿ%¡ìµûðQ¼]U|ßÊâ çAù¹»þjÏX éècŽó²/gOöòaÇÁ«!gê{w°!)±ö7º7þë]Ö»ò_Ïq?®Ã§uøäA µ߃L€*yoIÔ?¯ÃOnÝyº¤Àÿþ µ‰Jšendstream endobj 856 0 obj << /Type /XRef /Length 577 /Filter /FlateDecode /DecodeParms << /Columns 5 /Predictor 12 >> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 857 /ID [<56c577c7ca28943dd532144d90f4d889><05d0980cc2471b847a2896b41ab8f883>] >> stream xœí˜MHTQÇß½:¡¢:ŽŽŸ‰â¦M¸\D-„Zâ×ÂQsôÍe ´ìCÄEm\Ö¢r3 Ý RID„6mmj£ $„Îÿÿ†Þ©÷Š\{gñãð¿çžsî½ÿ·m᧕eÉ#KCP††¿ñÌ ©Å\˜ƒO¶O ý}rýÖbÎ!ŸëŒC ýró²µabèï®,²öÐ8ÄÐß!Ý«pÈÊãC‡ôÞƒC2AãËÊ3+ú,“‹#ix öy›ì[úrTóˆ+wÁ²Xü,è¯=aþ{°îX8 –Þq°áX¾^y –Ø`ã[Ôo¾Oe¬nà®0Ü ªò+xõ#;~ë‡Xù%'áäEÇÌüN¾õW‚5ËTÖéö,úFÙñ5lå)FÉ v¿ VÍRùÀšYÆSÔ Ý©Ô)+soF}ùµª"ãŒy^þ{P’u«UnrÖ€‘f’z(ÃÕ·WhŸgéç)X¿‰go}LýXÁW¨žfGÞj{€«;¬Üævw»³©ð…¨ôÿçð~†ó†5 ©l—y…^ÒQ‘Ÿ B_)RÛnœÏ§KUL¬òô¤è’J\ÄI1ƒ\{ö:JJÄŽžó8JRd&D¤È·Å´r—·²ì(ï!å™Í‰ÓnœWbž3:}'Ä„ñ?gð™ÇöÔw¨å‹Øž½‰Æ2sÄs'£Yuô1%ï¢a—j:¤elš¡ò >¯}Î~/š_JEÚ:uÏM endstream endobj startxref 464508 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:40:07+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:40:07+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:00deaf3c-516a-4320-b313-1e9b586e2fc2 application/pdf CMR10 endstream endobj 857 0 obj <>stream hÞ>stream hÞ¼ÐÁNÃ0 àWɳ'MÒi«TvBB:8M=t%Œ1­©BFÅÛÓHˆ+HH,ÛëÿdÖF`m…4¹;¡˜Äj…õ\[|lnñácôX÷醼_½¤4¾-7M}ÍbŒáÕ÷ B<àØõ§îà×gŸºç¯« oB|òqGs µ¸™)d‹Í|²Óƒ&'d)¡p, f(K#˜4(×âö²O9üî8œ¾ÃRUý“Ïi!­¥\þ°É\Å꯾iš`zßw¡güI£¬kÍ7§ Xë_p>SŽ? endstream endobj 859 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><35F6EAD9465C6C40A56291CF844B9551>]/Index[3 1 8 1 92 1 246 3 857 3]/Info 3 0 R/Length 48/Prev 464508/Root 2 0 R/Size 860/Type/XRef/W[1 3 1]>>stream hÞbbb`Žd`bF¦ÿìbåÿ™¾ê‚‰ÀÄU2þÙLa qF'€òÕŸ endstream endobj startxref 469594 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:42:17+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:42:17+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:e6e5b563-4512-481b-9273-76bcd984539d application/pdf CMR10 endstream endobj 860 0 obj <>stream hÞ¼‘MkÂ@†ÿÊÞLwf6›ý¬‚´(H´'ñ`“¥†–¬lÖBÿ}7XzìÑÃÀÌ0Ï;S0dJ2’S%+ÙlËàαõÝê]¶š ¤*ÂR3F!Žò{•ÙêüÕ6lËÙ‹ï\ŸÃÖ7B¡%))HQÜwÁ7·Ú…l½Û°õÅ÷±¯C{ÌrT9Úøé²å¶"Ìçó„³H¶‡×êßW‹z`âì㵟4¾å>¼!'2 Hjš$V3Q“r˜O>4.1ÉÅ,“CŒNP¹:…Õ¼T&ÀpÔ–%•ÜZÅ”Fn´>Áþö‡Í›¶ûøeè:g‘[JÏ‘ŠeJ âÒèĪ¸ÿ ý0ƒøj endstream endobj 861 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889>]/Index[3 1 64 2 92 1 860 2]/Info 3 0 R/Length 36/Prev 469594/Root 2 0 R/Size 862/Type/XRef/W[1 3 1]>>stream hÞbbb`Ža`bF(ùŸ]#æÍ÷ $ÎTÅ`<"t endstream endobj startxref 473892 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:43:02+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:43:02+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:323a54c5-4848-4e18-9cf2-0b4825aed03b application/pdf CMR10 endstream endobj 862 0 obj <>stream hÞÄOk1 Å¿Šn™%D–üG;i`» ¡%[Â$=…=¸³&™&§K¾}½¤ôØöÖƒ‘zz¿g"ÀÖ€,A{ Ò‚ujc(C7¡Äfs®‰ i&§u{J|Bt²xßJ¹Ù„öŸÓç…Ú¦ýo¡²Ú±Øzà”ô»ð&§ýkssus Wi.sŸ‡©€G’…ºÊslÖÛŽiqyYqVõݪ¯Ý'u÷6Eµêlǹy,ešÏ•:øK8 cx~›‡ûô¢ªZ}Lyó=Õ´´SëÚ0ðNu±/÷54:gkj‹–¬¶ìk4^vêöõ[9:^ãÓ/ïqLå¡ÖÝê vgSNß«¦ü ¦Ð?…‡ø¡OS˜ÿ†g´ ;0KBf õïÑ{Ój$¿üßtžÐ³ãh`ÍhÛ%q(ò'ºŸ Eê·¢ endstream endobj 863 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><843BA3FEB2822148A8CEBF40253BC86F>]/Index[3 1 66 3 92 1 862 2]/Info 3 0 R/Length 37/Prev 473892/Root 2 0 R/Size 864/Type/XRef/W[1 3 1]>>stream hÞbbb`Žc`bFò?»¥ð_ ›ïH–i@€<v endstream endobj startxref 478227 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:44:01+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:44:01+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:9a5c1353-cecf-4812-942e-eb7407127e2d application/pdf CMR10 endstream endobj 864 0 obj <>stream hÞ¬nÛâÊ:‰ôï»’Ò‡3p®Š!K"&´bÛ-dÎÔÔÙ>¯ÉùF¢P(1I¹Z¢X .Â˺ ¯ï]Ë Î^loÆ Ûþ eŒZF"ÖÅåCxt¶½5Æûãí¯v¤±qÝ@lÍ1áÜÑ· ²¢¦©¯³ów‚×òÎ?ƒ]3w›ÿàJ4Œ€išøçH5ö¸upW&ààɺָ úXAæ`¢‚Ò4tñøJSRrT’éµâˆš)¥ùJUpº½Ñzèú¯¿ø¾·”¦¿ DVè endstream endobj 865 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><063683B3A39B314B8C5A467D5601F359>]/Index[3 1 75 1 92 1 864 2]/Info 3 0 R/Length 36/Prev 478227/Root 2 0 R/Size 866/Type/XRef/W[1 3 1]>>stream hÞbbb`N``bF¦ÿì^Œÿl¾O Æ€6§ endstream endobj startxref 482475 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:45:29+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:45:29+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:956780b9-5dbb-48b8-ada9-323b57e15db1 application/pdf CMR10 endstream endobj 866 0 obj <>stream hÞ<ËÑ ƒ Ð_¹o)A^o)kD/ Á˜c? )$Œæöý{ö~N à ¦\‰i7®f®„²EB-Q]j”bÅO•23î=Øni6ù$)©;E}tÆ%'ÿYCfór‡yKG9Ößú5ÏX^Mö!‘ãO€˜/(ï endstream endobj 867 0 obj <>stream hÞ¼ÐMKA à¿’£63™ÌDêBíI[=•=lÛ¥ÖâβŽÿ½SñäA !É!äá%fÐ@€¼”ÁR™YÀ‚ÙLÍK-Õss¯ž>Ç^Í7yŸ†Ó~õ’óø~£Ô¢™?bSSzí7Ó´Sc·9t»þvzësw]×ê.MÛ~ZéòK·jQjUSVÎt:‹CòÞašQœ´jù±Î§ßûá𣆔ëú_x¢QÈÇÒuãç‹Ö`s©n›öß$ÒHYQ‰½2&ÆJ*s&Í;>0XkÑ ø’§gºTv<Åv&‡¢CgŒe´d€„ÑÑ_ž/sü¹N endstream endobj 868 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889>]/Index[3 1 92 1 166 4 866 3]/Info 3 0 R/Length 49/Prev 482475/Root 2 0 R/Size 869/Type/XRef/W[1 3 1]>>stream hÞbbb`Nb`úÏ5‰ñç²l& `D!ÿ³g´ÿ²Ÿd™R ôi¾ endstream endobj startxref 486965 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:46:22+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:46:22+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:aa3e5c8e-38ad-4712-a39b-f005098d4147 application/pdf CMR10 endstream endobj 869 0 obj <>stream hÞ´AkÂ@…ÿÊÜLvgvÍnVD° H‹‚¨=‰‡4ÙbhÍÊfmè¿ïŠ¥Go= ÌÀ{¼ïM$h Ìf¼ð¶ ­ëÊ*ؤœ $‰a&D>F!ŽÒ»Êù¤¬¾ÚÖ ^\gû”¯]óg '"#5QBŒQÜïškm}²Ü¬`yr}èkß^†*åû6|Ú¤Xo Óù<â,âìøëö™ï¿/–/êÛíNN!\ú)çÃ0°³ ÕÐv½{¬vg½üÉùÆúÆ’xäE\èÈ·¶™–‰4fŒP@ìÆŒQ I3Ìõ‘ï®oá–·j»ßä®sá‘ 2C”‘ñˆ2¦5EBÉ2™? ú`žÑ‚ó endstream endobj 870 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><590E661C6D7DE8409BF7DCE94CB80645>]/Index[3 1 78 2 92 1 869 2]/Info 3 0 R/Length 36/Prev 486965/Root 2 0 R/Size 871/Type/XRef/W[1 3 1]>>stream hÞbbb`Ne`bF(ùŸ=GûÍ÷ $ÎXÆ`>…‹ endstream endobj startxref 491256 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:50:18+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:50:18+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:a57c0bee-639c-4ad4-99c0-885864925f52 application/pdf CMR10 endstream endobj 871 0 obj <>stream hÞÄ”_OÛ0Å¿Ê}£Õ´k_ÿ7bH]+¡M€PaO¨YêÑŒ5ŽCµo¿[(<ŽN„Ëv”«ûó9'Ö !H £!¨ €cø¥=^ód!xH’ã59''bÚ§ª4¹U%fÇJ’–J:’V©ðAÒ‘”Gãç¯r?šUÍ.¾æ6 cq‘—¯…ÊI£,9+‰ ÕsáUŸ—uêGgWçp¶ÊCê¾é D”n,nšò+¦s’ãÓSÆ™ð¸ßæ_ÄÍï.‰I½eÛîG«RºáXˆÍfƒC5`ׂkÄçÜ/S+Y¹S^ÐBÌS]n‰·ÕÀGBò¬±hœYˆë‡ïeÛç¼iïwÛ6—=Q¦óÉ%Î?v}þÉÝ0÷w¢«êûê.}Z§R½Eg¢B£X’h#+Ž1:ž5êß™.JŒ¤ÁDÚ„m´PrʬŒ¨µ>îÉÅnØÏÆ¡´sœ÷*”öÃá6þËNm¥Ó„Î2™Á Ã!)U©öK·!4ü+krè¢å4rv@sÊ÷‡Âôéq]µLR¯úªMOjÚù-, z³½iF¾{^Ü"ÅÒ)õ^X;ã¢Ã( f(ÅŒœnÿ·4ÿ`ຎŽ endstream endobj 872 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><165FB2C67C8E2D4894C4A60F92E819AC>]/Index[3 1 80 8 92 1 871 2]/Info 3 0 R/Length 37/Prev 491256/Root 2 0 R/Size 873/Type/XRef/W[1 3 1]>>stream hÞbbb`Ng`bFÈÿìµ÷~Ù|Ÿ@z™¬ [á# endstream endobj startxref 495730 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:51:13+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:51:13+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:ba251770-68ef-4de7-890a-1f6a91f11f15 application/pdf CMR10 endstream endobj 873 0 obj <>stream hÞ<ËÑ Â Ð_ñmÊ`Þ{M©{™0ˆ„ý€l„˜¡Ö÷÷0èýÅ€õ½sð5¦Ýú¸½ ƒ ‰Î-`ЈC¥Ì­ÿÆ•¹ŽÝÒŠ.­ÿHN¤ÑhDÕqÎiý,!ói¾³iK¥–%Çwe—ŒÏX_î †á'À–(å endstream endobj 874 0 obj <>stream hÞÄ=OÃ0†ÿŠG8ûâó£)tBB )LU‡4¤¥­G‰ÛˆÏE0S$†Ó} ÷>zÐgÊ(ôV!IyRÖt§Èy5›éBj¡_ËGýòÑ5º¨Ó.¶Ó~õžR7Üi=Ž#Œçuujz¨ãQ_ç¹~ˆý[Ó/ü6+=—®tÙÔi™*¶‰·Þ› XîÁù•^œÖiÊzÚµ‡ïÔ¶)Ï…3/‹g(oº>î% b¿Õ]UªmslRµ‰ý%@DN ¸ŒÀû[eYÙ-ƒgûWÀÉ×~HUâæ‹ïlIï ^4GÆ@`T–˜IÅ``1€8û?° \hE”ÊäÌÎLœÈð\Ÿ €¹Í endstream endobj 875 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><19495D5783D654478EFB79771EAB5D21>]/Index[3 1 92 1 172 4 873 3]/Info 3 0 R/Length 49/Prev 495730/Root 2 0 R/Size 876/Type/XRef/W[1 3 1]>>stream hÞbbb`Îd`úÏÞÎÀÄø³h0¢ÿÙçxü²Ÿ‚d™Š õ3Ç endstream endobj startxref 500234 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:51:48+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:51:48+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:410b9307-449e-4c0e-b7a3-961260ed2c3d application/pdf CMR10 endstream endobj 876 0 obj <>stream hÞ<ËÑ Â Ð_ñmJ0ï½›R1ö2a #ú™BBÌPëû ½ŸÓ1`à §\i3®nÎØFPDÇ`Ј]¥ÌûDÏlË.i EH›ü?’†žj…ý/Ò—œü{ ™ÏË•ÍTjYs|UvjA yõødob¿ —¾(í endstream endobj 877 0 obj <>stream hެнNÃ@ àWñ‹}¾Ëý¡*RaBbjaª2¤i€¶j®J\"Þž; ‰ :0X¶û³Ù{PÀ>W&ç:X,h™cM/«Gzþ<÷´ìdŸ†Òß¼‹œ§;¢yžqþض—~Ä.趮é>»~ܨ>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889>]/Index[3 1 92 1 177 3 876 3]/Info 3 0 R/Length 49/Prev 500234/Root 2 0 R/Size 879/Type/XRef/W[1 3 1]>>stream hÞbbb`Îa`úϾà'ãÏ& `„’ÿÙ×½úd3>‰3Z1èF B endstream endobj startxref 504694 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:52:57+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:52:57+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:c5a31ec2-753e-4858-b405-b8c0162dbeaf application/pdf CMR10 endstream endobj 879 0 obj <>stream hÞ¼‘Ak1…ÿÊÜÜEš™$»1+"XiQµ'ñ »CëfIb¥ÿ¾±=ö00óÞ|‘@ %ðB‚.@’‚ѧޢuíìM6 â’)N¥ºO¼GÔËï[Îg³Ã§m`ÉàÕµ&ä¸tÍC(¢äªå Oâ.\y×\jã³ùjó“ 1ÔÞv*F*Ç­&›.לòñ8áLRmðmý‚Û¯Îा±Ýæìc†ˆ×ë•Ùã™ÕîŒÝ{ ºžBLIB´uH^øì|cüŽRhÚã45øצŽ»¢¬¤R CAÊʪJh¦U±ÇÍåo÷¶}ÿ%i[ÿ±"Vq ²L‹ô´D¦Ê\0MúÀo˜ endstream endobj 880 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889>]/Index[3 1 83 2 92 1 879 2]/Info 3 0 R/Length 36/Prev 504694/Root 2 0 R/Size 881/Type/XRef/W[1 3 1]>>stream hÞbbb`Îg`bF(ùŸ}cÒ? ›ïHœ©ž ÀFç endstream endobj startxref 508994 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:56:23+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:56:23+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:7d141171-5e1b-487a-a286-cdfc6b8396d3 application/pdf CMR10 endstream endobj 881 0 obj <>stream hÞÄ’MK$1†ÿJÝìA¶RtGTÐdÔ“Ì¡í ÚëÚiÒqaÿ½»§]¨·òÔ[¥@ààZÁµ ÄÐ2ÔÖC+à¸ãc³L¡ËCW]ÕêHˆ•„“i‰ˆïU1U«î×°ƒ5Âeü0ë¸ûŠ£Z,;ëDIÞ…×)î^ûª‹ë+¸xŠsžû4L<’[˜Û!ÿ Õr½aZœžœ³7ænóÝÜþž‚9ë÷lûwõ”ó4Ó§nÄômJñGè3Æôh¦®îÃI§n.}ÌyL»î©ŒO[³, oͦîU²m™ʘè½mÉ7[sóú÷__ ãóÄ8ÆüŸè<¡gµ‹ÀÂX· ¨³èÜ¿¤{ ¹û\ík)ž1¡õüéEmýÓ}XWûµnAö -‡oÉ£ªþîM€*ìû endstream endobj 882 0 obj <>stream hÞ¼Ž?oÂ0Å¿ÊtàÎ6þ“« 0UbJèeHS‹RT;2fè·Ç‘˜žÞ{ûûIkA€´¤aX¯i[ÔÒgóAÇÿÉÓvÌçæ¾øÉyº¾i˜–SŠ¿~ÌÓ‰¦a¼ '¿I>ouM»˜¾}êD¹-zÚ— AöÔ”A§B-*°¬Q F)d¶à„EÖÜS{ûÊóïÃ9\!Ä\×/Ác,W`«âÂÒ6…VaÅê Ý]€¢ÿb³ endstream endobj 883 0 obj <>stream hÞ¼½nÃ0 „_…c:„¤(Ù–ƒÄ€“©@§¤ ®«ü‘ Uúö•Î;pîøáÄ”À ¦U2l·ÔfèíøL¯ß³£vL·à—{uMiþÜqð×s w7& ñBó0NÃÅí. 矚†ö!~¸ØqnçžÙ(P=s¤3… a ªVXXBëºaƒÚötúzOË󗛟~1¼©iþ‰Ï22P•E­m^Ç¢” .£ýß cö endstream endobj 884 0 obj <>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><596D95CFDA7D254F9B613069791E7F9D>]/Index[3 1 67 2 81 2 92 1 166 2 246 2 881 4]/Info 3 0 R/Length 53/Prev 508994/Root 2 0 R/Size 885/Type/XRef/W[1 3 1]>>stream hÞbbb`.d`bF,äöCr˜Ú=FRÃø.{ÄfÚ’e”“ „) q endstream endobj startxref 513909 %%EOF 92 0 obj <>stream GPL Ghostscript 9.06 2026-04-25T16:56:55+02:00 2013-02-06T10:52:28+01:00 David M. Jones 2026-04-25T16:56:55+02:00 uuid:6a6cbb23-729e-11e2-0000-82dcdd1d7e19 uuid:4f82e89c-cc8a-489d-84b1-b4ad39632510 application/pdf CMR10 endstream endobj 885 0 obj <>stream hÞ<ËÑ Â Ð_¹oSóz—R1ö2a #ú™Â„˜¡Ö÷÷0èýœ†AL9¸Ón\ Ì\ e„Z¢":·(Ć*efÜ7z°ÜÒ 6ù$'RR+­T‹tÄ%'ÿYCfór‡yK¥–5Çw…K‡š‹g¬¯À&ûÈÇñ'À˜n(ð endstream endobj 886 0 obj <>stream hÞ,Ž½ …_…Q¹E SIª“‰S«SÓkm‚×Á·—&'9ßp~˜â¤ UuV —æçotP[ƒŸyñ@Œï-€MÆÓ´Š)>/Filter/FlateDecode/ID[<56C577C7CA28943DD532144D90F4D889><88F677061E28C1419498359B773F2939>]/Index[3 1 92 1 173 1 885 3]/Info 3 0 R/Length 37/Prev 513909/Root 2 0 R/Size 888/Type/XRef/W[1 3 0]>>stream hÞbbb`.eúÏ~5Ÿ‰ñ§ö$ ëqãSñ À‚Q² endstream endobj startxref 518325 %%EOF metafor/inst/doc/diagram.pdf.asis0000644000176200001440000000014014513444713016467 0ustar liggesusers%\VignetteEngine{R.rsp::asis} %\VignetteIndexEntry{Diagram of Functions in the metafor Package} metafor/README.md0000644000176200001440000003142215173350506013175 0ustar liggesusersmetafor: A Meta-Analysis Package for R ====================================== [![License: GPL (>=2)](https://img.shields.io/badge/license-GPL-blue)](https://www.gnu.org/licenses/old-licenses/gpl-2.0.en.html) [![R build status](https://github.com/wviechtb/metafor/workflows/R-CMD-check/badge.svg)](https://github.com/wviechtb/metafor/actions) [![Code Coverage](https://codecov.io/gh/wviechtb/metafor/branch/master/graph/badge.svg)](https://app.codecov.io/gh/wviechtb/metafor) [![CRAN Version](https://www.r-pkg.org/badges/version/metafor)](https://cran.r-project.org/package=metafor) [![devel Version](https://img.shields.io/badge/devel-5.1--0-brightgreen.svg)](https://www.metafor-project.org/doku.php/installation#development_version) [![Monthly Downloads](https://cranlogs.r-pkg.org/badges/metafor)](https://cranlogs.r-pkg.org/badges/metafor) [![Total Downloads](https://cranlogs.r-pkg.org/badges/grand-total/metafor)](https://cranlogs.r-pkg.org/badges/grand-total/metafor) ## Description The `metafor` package is a comprehensive collection of functions for conducting meta-analyses in R. The package includes functions to calculate various effect sizes or outcome measures, fit equal-, fixed-, random-, and mixed-effects models to such data, carry out moderator and meta-regression analyses, and create various types of meta-analytical plots (e.g., forest, funnel, radial, L'Abbé, Baujat, bubble, and GOSH plots). For meta-analyses of binomial and person-time data, the package also provides functions that implement specialized methods, including the Mantel-Haenszel method, Peto's method, and a variety of suitable generalized linear (mixed-effects) models (i.e., mixed-effects logistic and Poisson regression models). Finally, the package provides functionality for fitting meta-analytic multivariate/multilevel models that account for non-independent sampling errors and/or true effects (e.g., due to the inclusion of multiple treatment studies, multiple endpoints, or other forms of clustering). Network meta-analyses and meta-analyses accounting for known correlation structures (e.g., due to phylogenetic relatedness) can also be conducted. ## Package Website The `metafor` package website can be found at [https://www.metafor-project.org](https://www.metafor-project.org). On the website, you can find: * some [news](https://www.metafor-project.org/doku.php/news:news) concerning the package and/or its development, * a more detailed description of the [package features](https://www.metafor-project.org/doku.php/features), * a log of the [package updates](https://www.metafor-project.org/doku.php/updates) that have been made over the years, * a [to-do list](https://www.metafor-project.org/doku.php/todo) and a description of planned features to be implemented in the future, * information on how to [download and install](https://www.metafor-project.org/doku.php/installation) the package, * information on how to obtain [documentation and help](https://www.metafor-project.org/doku.php/help) with using the package, * some [analysis examples](https://www.metafor-project.org/doku.php/analyses) that illustrate various models, methods, and techniques, * a little showcase of [plots and figures](https://www.metafor-project.org/doku.php/plots) that can be created with the package, * some [tips and notes](https://www.metafor-project.org/doku.php/tips) that may be useful when working with the package, * a list of people that have in some shape or form [contributed](https://www.metafor-project.org/doku.php/contributors) to the development of the package, * a [frequently asked questions](https://www.metafor-project.org/doku.php/faq) section, and * some [links](https://www.metafor-project.org/doku.php/links) to other websites related to software for meta-analysis. ## Documentation A good starting place for those interested in using the `metafor` package is the following paper: Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. *Journal of Statistical Software, 36*(3), 1-48. [https://doi.org/10.18637/jss.v036.i03](https://doi.org/10.18637/jss.v036.i03) In addition to reading the paper, carefully read the [package intro](https://wviechtb.github.io/metafor/reference/metafor-package.html) and then the help pages for the [`escalc`](https://wviechtb.github.io/metafor/reference/escalc.html) and the [`rma.uni`](https://wviechtb.github.io/metafor/reference/rma.uni.html) functions (or the [`rma.mh`](https://wviechtb.github.io/metafor/reference/rma.mh.html), [`rma.peto`](https://wviechtb.github.io/metafor/reference/rma.peto.html), [`rma.glmm`](https://wviechtb.github.io/metafor/reference/rma.glmm.html), [`rma.mv`](https://wviechtb.github.io/metafor/reference/rma.mv.html) functions if you intend to use these methods). The help pages for these functions provide links to many additional functions, which can be used after fitting a model. You can also read the entire documentation online at [https://wviechtb.github.io/metafor/](https://wviechtb.github.io/metafor/) (where it is nicely formatted, equations are shown correctly, and the output from all examples is provided). Note that the documentation provided at [https://wviechtb.github.io/metafor/](https://wviechtb.github.io/metafor/) is based on the development version of the package (see below). Therefore, if an example from the documentation does not work as intended, try out the development version first. ## Installation The current official (i.e., [CRAN](https://cran.r-project.org/package=metafor)) release can be installed within R with: ```r install.packages("metafor") ``` The development version of the package can be installed with: ```r install.packages("remotes") remotes::install_github("wviechtb/metafor") ``` This builds the package from source based on the current version on [GitHub](https://github.com/wviechtb/metafor). ## Example ```r # load the metafor package library(metafor) # examine the BCG vaccine dataset dat.bcg ``` ``` ## trial author year tpos tneg cpos cneg ablat alloc ## 1 1 Aronson 1948 4 119 11 128 44 random ## 2 2 Ferguson & Simes 1949 6 300 29 274 55 random ## 3 3 Rosenthal et al 1960 3 228 11 209 42 random ## 4 4 Hart & Sutherland 1977 62 13536 248 12619 52 random ## 5 5 Frimodt-Moller et al 1973 33 5036 47 5761 13 alternate ## 6 6 Stein & Aronson 1953 180 1361 372 1079 44 alternate ## 7 7 Vandiviere et al 1973 8 2537 10 619 19 random ## 8 8 TPT Madras 1980 505 87886 499 87892 13 random ## 9 9 Coetzee & Berjak 1968 29 7470 45 7232 27 random ## 10 10 Rosenthal et al 1961 17 1699 65 1600 42 systematic ## 11 11 Comstock et al 1974 186 50448 141 27197 18 systematic ## 12 12 Comstock & Webster 1969 5 2493 3 2338 33 systematic ## 13 13 Comstock et al 1976 27 16886 29 17825 33 systematic ``` ```r # tpos - number of TB positive cases in the treated (vaccinated) group # tneg - number of TB negative cases in the treated (vaccinated) group # cpos - number of TB positive cases in the control (non-vaccinated) group # cneg - number of TB negative cases in the control (non-vaccinated) group # # these variables denote the values in 2x2 tables of the form: # # TB+ TB- # +------+------+ # treated | tpos | tneg | # +------+------+ # control | cpos | cneg | # +------+------+ # # year - publication year of the study # ablat - absolute latitude of the study location (in degrees) # alloc - method of treatment allocation (random, alternate, or systematic assignment) # calculate log risk ratios and corresponding sampling variances for the BCG vaccine dataset dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) # also add study labels dat ``` ``` ## trial author year tpos tneg cpos cneg ablat alloc yi vi ## 1 1 Aronson 1948 4 119 11 128 44 random -0.8893 0.3256 ## 2 2 Ferguson & Simes 1949 6 300 29 274 55 random -1.5854 0.1946 ## 3 3 Rosenthal et al 1960 3 228 11 209 42 random -1.3481 0.4154 ## 4 4 Hart & Sutherland 1977 62 13536 248 12619 52 random -1.4416 0.0200 ## 5 5 Frimodt-Moller et al 1973 33 5036 47 5761 13 alternate -0.2175 0.0512 ## 6 6 Stein & Aronson 1953 180 1361 372 1079 44 alternate -0.7861 0.0069 ## 7 7 Vandiviere et al 1973 8 2537 10 619 19 random -1.6209 0.2230 ## 8 8 TPT Madras 1980 505 87886 499 87892 13 random 0.0120 0.0040 ## 9 9 Coetzee & Berjak 1968 29 7470 45 7232 27 random -0.4694 0.0564 ## 10 10 Rosenthal et al 1961 17 1699 65 1600 42 systematic -1.3713 0.0730 ## 11 11 Comstock et al 1974 186 50448 141 27197 18 systematic -0.3394 0.0124 ## 12 12 Comstock & Webster 1969 5 2493 3 2338 33 systematic 0.4459 0.5325 ## 13 13 Comstock et al 1976 27 16886 29 17825 33 systematic -0.0173 0.0714 ``` ```r # the dataset now includes two new variables: # yi - the observed log risk ratios # vi - the corresponding sampling variances ``` ```r # fit a random-effects model (with REML estimation and using the Knapp & Hartung method for # testing the pooled estimate and for constructing confidence/prediction intervals) res <- rma(yi, vi, data=dat, test="knha") res ``` ``` ## Random-Effects Model (k = 13; tau^2 estimator: REML) ## ## tau^2 (estimated amount of total heterogeneity): 0.3132 (SE = 0.1664) ## tau (square root of estimated tau^2 value): 0.5597 ## I^2 (total heterogeneity / total variability): 92.22% ## H^2 (total variability / sampling variability): 12.86 ## ## Test for Heterogeneity: ## Q(df = 12) = 152.2330, p-val < .0001 ## ## Model Results: ## ## estimate se tval df pval ci.lb ci.ub ## -0.7145 0.1808 -3.9522 12 0.0019 -1.1084 -0.3206 ** ## ## --- ## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 ``` ```r # predicted pooled risk ratio (with 95% confidence/prediction intervals) predict(res, transf=exp, digits=2) ``` ``` ## pred ci.lb ci.ub pi.lb pi.ub ## 0.49 0.33 0.73 0.14 1.76 ``` ```r # forest plot forest(res, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16, 6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.xpos=c(-9.5, -8, -6, -4.5), header="Author(s) and Year", ilab.lab=c("TB+", "TB-", "TB+", "TB-"), shade="zebra") text(c(-8.75, -5.25), 15.8, c("Vaccinated", "Control"), font=2) ``` ![](man/figures/ex_forest_plot.png){ width=40% } ```r # contour-enhanced funnel plot funnel(res, ylim=c(0, 0.8), level=c(90, 95, 99), refline=0, las=1, legend=TRUE) ``` ![](man/figures/ex_funnel_plot.png){ width=40% } ```r # regression test for funnel plot asymmetry regtest(res) ``` ``` ## Regression Test for Funnel Plot Asymmetry ## ## Model: mixed-effects meta-regression model ## Predictor: standard error ## ## Test for Funnel Plot Asymmetry: t = -0.7812, df = 11, p = 0.4512 ## Limit Estimate (as sei -> 0): b = -0.5104 (CI: -1.2123, 0.1915) ``` ```r # mixed-effects meta-regression model with absolute latitude as moderator res <- rma(yi, vi, mods = ~ ablat, data=dat, test="knha") res ``` ``` ## Mixed-Effects Model (k = 13; tau^2 estimator: REML) ## ## tau^2 (estimated amount of residual heterogeneity): 0.0764 (SE = 0.0591) ## tau (square root of estimated tau^2 value): 0.2763 ## I^2 (residual heterogeneity / unaccounted variability): 68.39% ## H^2 (unaccounted variability / sampling variability): 3.16 ## R^2 (amount of heterogeneity accounted for): 75.62% ## ## Test for Residual Heterogeneity: ## QE(df = 11) = 30.7331, p-val = 0.0012 ## ## Test of Moderators (coefficient 2): ## F(df1 = 1, df2 = 11) = 12.5905, p-val = 0.0046 ## ## Model Results: ## ## estimate se tval df pval ci.lb ci.ub ## intrcpt 0.2515 0.2839 0.8857 11 0.3948 -0.3735 0.8764 ## ablat -0.0291 0.0082 -3.5483 11 0.0046 -0.0472 -0.0111 ** ## ## --- ## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 ``` ```r # bubble plot regplot(res, mod="ablat", pi=TRUE, xlab="Absolute Latitude", xlim=c(0, 60), predlim=c(0, 60), transf=exp, refline=1, legend=TRUE, bty="l", las=1, digits=1) ``` ![](man/figures/ex_bubble_plot.png){ width=40% } ## Meta The metafor package was written by [Wolfgang Viechtbauer](https://www.wvbauer.com/). It is licensed under the [GNU General Public License](https://www.gnu.org/licenses/old-licenses/gpl-2.0.txt). For citation info, type `citation(package='metafor')` in R. To report any issues or bugs or to suggest enhancements to the package, please go [here](https://github.com/wviechtb/metafor/issues). metafor/build/0000755000176200001440000000000015173350572013016 5ustar liggesusersmetafor/build/vignette.rds0000644000176200001440000000040415173350572015353 0ustar liggesusers‹uMkÃ0 †Õ%ý…Aÿ€ïc9î>rƒRzØUÄNjšØ%v ½õ—7S»KÊv°,=Ö‹^ë{ON)”+ :/‡y›s‰y…etäY„FÏKa1ÓÕ/ê^ãNÇtÆ’“J­ÔÊ0©˜Ý æ´lƒésá$ïk­ø‰:Uξ¨ãíCaq6â&Û²ZÚýŸêáàçžaz^ºá~¬n¼{‡Þý[6rú±ÂRøL YøÏwÒÞ‹`'.m]2ÅQ(î÷;ûçZWTÍ+]G~زuv¡Ð4ÍõÑQZ ñŽ<\p´e´žvmך3¯ômetafor/build/stage23.rdb0000644000176200001440000346243115173350561014772 0ustar liggesusers‹ì½œÇu&¾ i‘A1§æ‚fÉÙÙ€ pI$@$.@"—¤zgzw˜™v÷ìb B–EI–dK¢²dYÑ V´r°¨`ÉA9Ù²eYòélÙ>ɶÎ:ß綠®¯gjf»gÑÕÕ=Äýþú©ù=ÌôÎ{UïÕ«WéÕ©ÞŽŽŽ®Žž%ì¿ÝD^Âþ³·££›ðü»“á{:–1\£OMÙÆ”î9ÃÉëÅ|GGO—ðýâ±Â#®>Eo ŸöÜ·lo󛎷IÆo%ý‹óêX¼ ôeMµ„ýÕ¤Y4èG;øÿ~ÖôJ÷þr¾‰ÿ¢{OØÞôÞR£œ· fyª©ˆ//*ë%ÃiúÙ¥ûk¿Ðñ‹¦?Xæšì\½Ta­¢/ö|ÿÜ£?š˜ZÙüËù¢îø¿Üåóø±Oå]¿®¼ºl–RelM¢ítK•Á1öŸÒŽ½#›òƒcU³X™Ø>\66o߶ybh°d¸ú¤e–ôò`³^sc…&V]³…&&·D`Âe÷å_ö˦ŸôöJÍ`Äêl~kÑ8¯ ú²ë—MÖå?—בÞëfïõüòBÙ6Kgoˆ='÷Ÿ:"Æâ‘#¨y.«©1L¬zKl‹½¸ô±¹.׋¦î„ðí®½6}­ûuâQ¤•§yÁÊé†BºaºKeM7¢rº¡îF›M[9ÄþJñ(RÎÎ=¾r´#Õ¢kVŠ†¶rÒÈ»Ú ó1ÃÑ,[;VuósçÚý¦;m–µnµ`NÄrô@u„{@ïQ¨F×t‹Až¯ª#Ü zoúj$öûÄ#©ÆEqÅa?бJ@<1kåsš¦¨–ó®i•5×Òj-_+ùÆepãr|ã²|ãš0ŠVyŠ…ô‡î´¡9¬'ÓfksZ†½(~Z4fŒ¢fMjûSÍbŸÛZ¾Xu\æ˜ÑmSŸ(ýšY&)·òãÍM˜e£ !ÈÓ"V¢ß£~ôçâVb×ä¸9ynÚ-ÏŸ?aœ­Øچêϵ YSM£¶Q.öCçŽì9yס=§Æ¹÷Äþ}wÕnÐNÌ9¹)Ã5Ê3™¾¦¯ûúwiµZ½ŽwÍI-sCù±ü´ngÄïúûçýLß´ëVœƒƒùB9wÚ)EsÆΕ w°\)±Ë>­ŸÝ½yÐ5ΔJÅ<•½Ø·K;Î~Š~™cê+å( Êô¬¼ÿWÞßÔÞÏj=†ê ßÛ¾¨eOPú¹~mÃmžä¼˜ðÇÇÇ™ÊÏÝêäm³âÞv„ýÐ!ý¬6ªcWªîNíܤUfàó(³ùcNgŸ±¯r¹Aö_ˆAQbz«/{þü®[Á¬´‚1ÉL•©´Õß7”ø¶Úœß¨EÇ`5Àjj(ÓT á·Çû6fT”eenø¡þóçCl}«¦±#{ö 1øÏ¿ ú«Q ¾1þ/éyÛjz}ÅxÑÒ ¨ ÁëÑub=TWm÷kBQ¾&S±[í’샛EŒÍ”Õb0W²ï¤¸6Ü1þj°Ã[óV¹lxÝÙm!¿ÙE#Åy¿·¼0Çbfþ@Ñ› X‰Îa]‹Âv3·ŸdYWýr¾ ñbQ´¯ÕEÊ_1^0¸Q²Ú‰`Ä9B|,ÕùŠŽÝQü®‡Øw ¯ëÙWœ•ÅG<1k¥›5§ˆ‚¬‚J…‰=Å]`çY ±zÄ#Ùõu7‰s‰^f^þ4MuX“š·Ò"So+׃¾>Î0©AÀ¥}¼sî‹ÚÊIœ ÀÐÊZù¢ñ¼UjäÄNæ@çâ7òœ„RÄ£¬ô¦k”BØö‡@¥ïâˆý°€xÒ÷)«¹E{˜œOY‚°MB¸^àÐk”ÕÛg˜SᓲNÅÈ›“sÞälÀ¬–1rS¹,ŸÈíjé«ÁŸðèCÉ[újX7áÝ ïNßÒ‰ýañ¤oék`Ýkµô—HHÓöú¦^Ž’fÞ<Ô¾Ýòfô¢lï$°V±Ì²ëh«\œÓlÑÏèeW›6Ê2Õì?G먨³]Qèí‹ÜáÒK÷ŸúYÉw¸ôÒ1 ZݺB‡W­43̃Î+ ƒö¸EV+§‚~4­ø»alÐvl­,ÊÒZœ„büíC³ g•*æfYÅ<ø|ÐÏOG1g/ý‚øÍ%r·Mïüð… _˜|·M/õ_úEéwÛô΋Ä“~·-l)J°Ûî¶&¢î!z+@KM {% ×.˜ŽËÂÒªéL3zrÒ° ÖI3É {¦qC@㮄’¡;U›½¡»õíõn_E¯O•°øÐ/QæÂVקw¥<Iõ*àÛ@¿-yOFì^ ümпÝOFüß|èw$ïɈ]ð ß™¾'#öïOúžl·lœ¾»OB¬^ÕNß•j~L·§ª%rXMão]ÎyË'µ’îÚæYšðƒ¿ªièÂ.b÷ð ã‡][5ÓѪë{.@ë¼¾XOÕÁ‘Ì¿| ôSÉ;8b×ü èϤïàˆýgÄ“¾ƒC#ðý@B®u³j%[oG}"ÓŠ’^ne“LUÚ¥§ç]Ú³äÚØÿyÁæâç´Y¾U¹²afR˦·[T¢ Ö_Po銼]OßÁ;"fôC/> úÉä}±û5àËA¿<~`yF†ø¿øJЯT¨‘}'¤4ò›À7‚~c:yðM ßÔ&¼øÐoQ¦‘ERÓ–ôKï¾ô{ÓQÉ[ïý¾6©äýÀ€þ€2•HO[Ò} øh•1G ­ü.ð3 ãÇRÓ–$Âg_ý¥Š‘ìÓ}ø-ÐßJG1_~ô·c+fIN;a2ªùð{ ¿§L5Kî0\Ý,F0£Ÿú!ð@ÿƒ2Å,wî©Zn˜jþøcÐ?Ž§G¥ûOÒ£b×ü'Ðÿ¿ôQG)ÄþŸÄ“þ(åÜ¢=LpBÙž¶$ëÆŸPn^>0£«µ¡FÞ²m£¨{gÜZ>0èp´ŒÌ¼0•e5ð$è“ÊÑraÛoÔn‚$zh€6’ï&ˆÝ½ÀIГmˆªˆÿpôtû£*Ç΀žIG+&p´Ü l;™¨ŠD8 |ôãíªHœ'€/-µ]1ç¿ú×c+ænUíÓËš^t,mÂÐt‘|ækBœå${ËÐóÓ¾_ŒPA~øg ÿ,ù €ØõÿôŸ§ûï ˆ'ý àRÞ6¯;^àGA­iëNІŸ‹ã:Ù“ÞˆŽEse·î¡x‰ý¨Xî4ÅUªvÅrŒ\TDÊùWŽ]«8Ý%Õ{Çs‹ëÑR}TÓYd˜[¤*4Ë•ªËTî¸ÜMŽÓæFHH˜‰åcÄ·¤ï´!q[AoM¾»~à6ÐÛbën·~o#±Œ~¶÷Þ§¼طߓͤ~×ÍOçX͸÷hÿÎzJÔ>öï>šd)™µù,ïÖÊ–?#£â1à«@«\ßj¡âÃÀWƒ–Zß dÛ"{1¼øÐñW´þŒ)­ÀÆ®·Ã“ëuÖOLU‹ºíM³ˆœú,‹I*Ì;ðü©âˆ;«MT]îw û²åj³–}&§+žf¡Q9øW3˜CXh1§6y°Ðô€ß©D>NuúZŽENwJMy+÷bð1N¦`â%à9NwJyn¨…µ~W#Î’8ƒÓ„ªÃY©+NI¦×ßÄi¤ÃYb÷Jà›9M˜†¼øNÆ4K„p–rÍIšÈ[át§Ôa“àv¼ÿ,¹œÈÓ»$ÍSÀ/rš0•.£ó£À?à4aL=Ýèfù8¢¬™EŠîm!u‡éDŽ½IÂ?þ˜Ó RãEã&®õª‰½— öŽ(Ì@è_̽D™1/p^hŸDÒ¬>ô3’w9Än)ðRЗÆÖÌ©úD@~x¾”X;|>Ø4ž?ôÓ/Dµ;*ÕeÀè6¬}o„•ù¨Äü;Èg伪2=ÿé²ÀÐ1øÒM@õÎÛZoѼ†·m»b3ÕàOM»ùe¿wª’Å©lÈQÀ_°ðÖ¨ì?e—†QLÍž¦«Þ¬ˆÎ~aQá HŽæé–¡—PƒOrTtÛ5ófE÷n©±™e0‰ghazÚŸ©–M×;ÕÙ¯y×ØPlk›,8fòb^q¶Ã/ô`mzãeðàÝKV3'éUÎÙ¶f¼ãWâ¼H=ùà’^4ø*Ã#ªg9šc0¹Ùk4UéÒºYйT Ñýê˜hYyžMº³ÞÓ*[D3æ :ÈéN¹|-“1JäÏðnÇß¡+úYòÎØýð¿sš0fóÿ´gõٽІ6/±?Îòó 9>ƒí¸ìÇt»Ð2­†™3rYüA-C@ÑÐYƒw­²_e-”v^ðv#´:6ÔM-}êŽ*îß9v}€Ó]ñ7DöŸý0lÕøÏ÷rÿ‰©TÝñ›\€çd ”ä­Ûu³ë š\Ž˜è“®0Ÿ)ÛªV¼©_ßá¾ÚÚŠ{ý¶0dñ ;¸ŒÏ3¯É›/7 VƸ_p_rÍ3Ì»¡P~B$£à¥ñL,ïVi߃*iÂpgy?F}BùLÙš-×=›5é²÷Ø+Å"ó±g¼ÙR£PÍ{{릪†Ã'&ÈÊ^üs3ŒäfR3<¡TJý@OØ"÷o¨$I> ü(§ “ö€Äî}Àqš0f6xˆÆ”ëíæÊ"¢3nOm¢fÆþIäŠnÚÞ–ËðôC2©ˆçØu§ U÷~©ˆI¢€·pºKê”idÝw] Ìrš0¦×\ÉϠ랯¢ý~š3W*”¤£¾dÛŸÓŽHöž5u’-úFW?ƒiN¶ŠþÈ›±$·Ç¢< ¢úÑ)£Ì>/šÍëJëS¬Þ¡FÔ¢ ^¶–4.ºv pìÞÁiÂöú¥îÝÀ½œ&LÁ6»w÷qº[nùDüvj^Â>mbΛ`÷6 ø»ó2õT2´®Zžr§i\Ò¸Ö÷Eý5_çwF‘£(*äÀ÷pš0í(ên25TE­¥(Jip£»BKn/G´bºÞ*ümë ðÆ`MÜÛ=i¡ã©ç ŠOê2Œ<-Ý“ttº²¶ø ë ÛX=g#F6‚8<—š%ŒØà("ª% Ud©29Ý)•þO}æ\é àzN&íˆÝ:àœ&ŒÙ^¶Õ;®2ë:ªVÕðÔI»XmcŠ¹~‡rFÕ;±¬Ì œ„¾ ø § U¹øðŒÓ-µ8,pº3…¶Änhpº3þ Û1v°9U«§\oËu­SÃ$ Ð’¦ÓdS?OŠS¥ÍË’c *Ï$ðœî”Kx\–Ñðg¿ÏiÂ44üIà8MSç›÷Êc°)¸Þ¦k?…„¯x¾­#pp*ÚGäLÚTÎ/rì# îÆ·Cãæ¤QtŒsÓn©xþܸQªLŸ;?΂åsã™õÃãýçéÃGËçÖŸ?·~äüyÿWç9gºþ¿zæ1öz,»÷Äþ±#{ö .”’îæ4a´BÑ+æ½1^:Í䌶’==º2ºörï‘‘Û{°E}­é¤–$Åô½ã®åñþ°ê¹oÿØÞ$å æJ晸Rü­]!fã·€6ÕL°)·h‡íÒ•×Sæº^-Ñ&ÓÐB½Ž=†ÙQö·Í£/ñìy£ÿÏEdJe}úàƒœîŠƒ¶É§ rËȭƧ+#x&>}£œSW"Xd§®N+ 9õZ#hSÕgAlÕÛ¥­p·ž×ܺšV#~»,ë'`ˆáK Gjԫĵ÷šã®qÖ=çNûŸt›î´¬o7€ç8Ýyi›|ûã‚ÜËÈ­Æ·+#з¯ÏÔ-åÞ•ÈÙ½«SÌBî]lmªàÓáͱ]ê ÷ïÉq]À¿«i9â·Wû -8·"ÎòÄð0¯€¯i›Ç_;gå9/NÔ,¡ObÌÕ¼ø NwEžzl“ïÿ¤ ÷'eäVãû•ˆèûŸ1žiV¹T DÂÈ=€:õ,ÔÌomª£àáGëæÙ.Å…÷Éq] /PÓ’®ìŽ/ÊS婶yýµMÆ]›ÌY »’žÏù ðo8MxQøý¿äþ[¹Õø}%búýKçù}É™%"Fvüêô³ãhmª¤àëh¡íR]¸ëOŽë®_Mc¿½$[Û=:eΰÿNÈ죩 ö3ö³¶uã•ióás7;Ú€6¯<îÿÑ•Þ=Cd¯ú&ù¸l¯ñß9Ò–>¢£oíkO¯A{}¹½ý‘åVÒk¨#°×f½F ‘éQÔˆµGQ¨»…z”ˆ¬M(zä¦Þ.=‡v? rmÝý(j•â·Ù÷|‹—!qY™‘ÜØ]ÎršP‘òZm부g9MSuOÓ=ßTÈ9àßpº;~˜yÏ÷7™ª9xÿMkl/8¯M×ó΅а>l—­CGãxr5Ú$^ÛG.N7œ·¼€œ¸~~Ú†ÝÚ$0ÏØ+qKuGøÐ_PÖˆW×Ý"³O›¤ú2ðÏAKÝt­A»/¿ú{±ë¦ Ñ^b5qS¨„þþøAÿ_eú“Ú´ËDéì.át§TŠèJûØ.å4aÜñ[};55Ö ‹¹×è*ê\¼šÓ„ªúI‰³Q$IðFNËCˆ¬¡Îk€7qš0¦†¤&WI„ À›9MØÆØ…$nâ4a:¹¸™Ó„1uÒŸÔNus ð!N¶i.DÑNu*ÌÃÀG9Mø´ŸÏ ymAn[FîøóÊÄP¼S]™\‘&*Ô*%™êêelà*±S=i]O6$˵Ådƒº&ÓÐBe{b_”ˆ2Ó6®l§:gøœŽž{²M>ý%‚Ü/‘‘[OW"†êêÊ‹ìÔÕi%¡êê…l0™êIk+Ü­'Çu·®¦ÕˆßJïTÅy5Ä‘¿Ùõé³SÊóàû8MxQøö÷ r¿_Fn5¾]‰ ìTW&[d÷®N1ÉíTW/§ø–ÄNõ¤Õîߓ㺀WÓrÄoîTücøÇmóøIìT§’} øcNGÏ;Ý&ßÿ‚Üÿ(#·߯DŒÄvª+“0r N=IïTW/­ø–äNõ¤Þ$Çu¾@MKjh¸²S8¾(?(?i›×Of§:•í§IJ¢ /¿ßµ¶.7ÑÑåVâ÷Õˆ‘ÜNue"Fuü õ“øNuõâŠoÉîTOZu¡®?A®­]¿¢Æ$~«`§º(Øz¶¾mÁíãö´¥Ý¢e†iÛ,£û5™½ëóæfMé~vª®¯ç4áEÑ·ü¦ ÷oÊÈ­¦oQ"FðM…¬o‰gGR=‘’Eî‰Ôis¡ž(vãlS•†l×Wà"Úe á[r\èÜÔ´fñÛ®ÈûœE9Þ9Þ[ŽÈûœ¹¹ÕPÍ>ç>MÓö]Ã.ë.ëë龟˜Éž‡ aè>eNXØG|³Ì>b’ªëšÝž)ds±[Üz{låݼà>bo—ªÄ‚ɹ8zB™¥6“(&°º˜ŽæòÀèRlÍIÍ®e  ÚV¦”nk‘ÑÉðhu™zZêÄ>úñØ:yFmƒ·#½Ã›$:|ô“êT$±Ã›$y-ðõ Õuß-Uôrào‚þÍö5›7ß úÍêt"±Ã›$y'ðw@ÿN::y ðÝ ß['‰íð&1ßüèïH‹«d?àiWÜxZjÝŠó'Àƒ¾Ö IÞäþG¹ãñ•‰Ñj?ài‰åBe‚E««ÕÊí<y•P½ ¦Òª)¶K[Ácéd¹¶K+c¬¦;öEù èö­.å½Q8ÈCÿ”uì?åعˆÓ„ƒcï\\—›èèr+qìjľ$ÊwìëÊ$‹êÙªe!Ï^omª›°CE-Zc»ôêÛäÚÚ·+j8â·Wù{ýŒ<9e¢ˆá_®‡|×+kØ’ÓÞ™_ § SujÀ~NwöÇW”6Qu›“¸8²Šº¸Ó„Š%;é×yx„Ó„ihêàQNÆÔ”‚uuèPç4a›‚§ÁÀ…ºÓ+u§Åuô«Å±Óõ±Ó’«æTÀq:ú Ðm ¼>.Èýq¹Õ^JÄlö›B²À…[‰T|¦¤‘ã3uÚ[(>‹ÜÔÚT…ÂK4øvé:<¶KŽë±š¶)~ÛŸ ½;8ö”mMÜ¿†¸ݶîIå”mçßÿÓ„EósAîŸËÈ­¦ƒQ"FS¶j‹Üq¨ÓJrS¶Š…l0É)ÛDµîú“㺀ëWÓjj^rʶ&Êÿ‚(ÿ«mnOUmt¦l7J;öÿÍ‘¶(Mx18ö®uu¹‰Ž.·Ç®FŒ–S¶å<»É¢zv…j¹°)Û2®]±” oµlíÒW¨oOkkß®¨áˆß^ƒ)[Es5  ဲ¦-9iÛµ¸•Ó„Š”Õj*°+ÜÆé.© £ p…7i«dn½k;𧻎)S“ì”m×}Àgrš0 =>Ài˜zR3eK—ÄzXât—üÒ.|›<ÕÒRŽ‡ï\(Lê*ã4¡‚0i “œdã¤s‚àçdW')#°•.åç’¤b$%REŽ‘Ô©¤³^'ÁFÓÂäÛU/á±Hr\ˆEÔ§øí@Öh&6ÍXù]ù]Ò"?¦»~øN^£ÑÏ rVFn5^V‰ L3ª,²£U§•ä¦ Ù`*’ÓŒ‰j+Üý'Çu÷¯¦Õ4Ô¼ä4cM”/@”/´Í­/ÃôÊF5óŒ]_þ%§ / ÏþAîÈȭƳ+#г¯¬Í3Êí U#Zdß®N/ ùv¡%´©rÏ4&©°p÷ž×Ü»š¦#~«z¦Ñ—ð? á(kܲ3¿àHΔhBEÊj9ƒõ?Á¶“ÓÝñø_åõÄŠÕݼšÓÝên/’kìîÞÄén©{„"kªûàNÆÔ”š¹ÆîÀœ&lSµËK†2NŠu‚sº,¸U´Ïû‰Æ*jvŒvï¾…Ó„C<ÖýVAî·ÊÈ­$S#F '¸y–ä G&‚SS˜¨œBM.ÁÅj‰mªÎÀ‚Èûƒv©?4LkëxPQÓ¿žTI”ãmãm±åˆœTi˜ÛX •$Uê\¥iÚ³¬)’9é¥åÑón•>ÐΔ­YgÞÄx†¢4ÖõçýfgtÛÔÙ?ûksæÞÀÝôîñ­MžkÉM딲DÓ+Û:KŸÓOz7ÎZ“ýõŒN ?š6-?s^u¶ûÛ<«áNáFv%‹ýQÅf¿ãx£ØL*G/UŠt#±aÛÝ0Âi¶(äY@Ó’G)U¥ê"I¦§9M˜†B&€g8MS!‹³2K@$Cø(§Þà*“«‹$9 |ŒÓêöe´TŠ <ÇéN©Ìz p-ëå Íœ*³®ÐŸÓŽZ.Å›º+§u>|§ cè*p w&¯ó¢½ønN*S sÏ„°}3ð=œ&LÃV^|/§ cÚÊÍÚdµœ÷F4v˜0´ªc4×bƒ“2Ê4§Ê†$ºŒá¼ø]N¶5ÀÿAý' µýð¯8MSmº?r#3fÚ šOö†m“Eã¬9aMwÎ[ÀpÆm4ö³ªll:WaÂF~£b” lPjNN;a²nâ¯9vÝÆiBEÚ^ºÿ, ;°è§…T]»ŽršPÙŒsO•ùÖÆ·qZrǶøí¬}­YO£¬±šEºÇÍæóÞÞt"Oфǧ»œØ’Fž¢Ùĵ^C5y¯ŸÔ4í sc†^  ª:ÔÌòŒa;Æ@mdÖ0§¦]ú*cæŒ\…Á)£lØzÑ|Œ¹Ä¢¡SÊåG«¬suú¹‡,M˜e£iê„–LÙ˜wì9B¦mÃÚª6£&Ÿý¤²VµÊ/çè=‡OìêPI¨×ßúíÉ;Tb÷rà;@¿#¶¥ü.Ýy;;m²žŽ&JštJñ”άFŸb†Ð¤`ïßVÕe-rN4%½HOM7O:õ©¾úï;ðÐ&û}bƾ)5W?Ã^3Ëè™ç½?r+§Êz'Go|úNŽi·ò-°aÕ´ò/³V~ŒæAùçD‘&0' ÇëÙÏ”ÅêÕ›!e¡Ž>5eSì /àñôÄ•ÊûŒQÌi{çXï8©W‹nV+WK†mæ™:Œ)ö õŸCÑD²ZÑš2YD‹‰]Í|2s¦Q,‰CÖwW,Û÷à«s+ªðË ¿¬Ì=ôœ»7²S Q¾üÐ’¼S v_þ)è?mXŸÆ>Š~>Êõº]f>–gkµøI0:#7źü´nëy·ÁÙŸN²Ï¼sÒ{Ébɤmáû¾l_AwõܤÍ\i_T—Bâ] Ü zsò.…Ø]ÜZÊ“5ÔÊA¾ÆB¾D7Ë|ä™qŒ"Ó£Q臊 ;£"c+ðÙ Ÿ~ó¼væ£/1ÄÚõÕh¦×¥2OKµÇ'¿i@^¨§±Ž(õ($%=«¥ö¸ž˜¢}\a먯oÕ>\6VxĪÐH²©+G½äx³—(ˆÿ¬£\Aæýò6à= ïIÞ»aàè±Ø¦¾¼6ŒìHÀ‡@?¤¬{ÁPHH-涎¶FľKÀx‘Áâ¸âÜN-I@<1kåJæ ï·Š“S: (ï3ü´;¡WY¯‘‰(Þn(ŠðJÐW* .Ÿ™Ø]b±$óÓÛ"·³ì) !on­î ÏÅãF‰»!|¯nÿÏè—ˆÿàNÐ;•)éúi×­8;gggs”²½~·ð<\GEÊê¯ÚaªÚ|ô#±UÕ}u…xpô„²â/׫î´e‡8j½{:Úê~‰}—€m˜1 õ&²|ijVN0÷+xݬvNËŒ õç´}V¹PÍ{#}jLzY/Î9,Ô7ËÚX=4ECÓ*zþŒ>eä´ˆÛž-·Ë5Ð'²ª6œ'\Ý5—æ°´Ö¤;«Ûa[[ ûð,è³ C³SkÄî$pô\ü7ñ x´ÜÖ¾ ]umÚ*!ÏsO€~B¡:&¬b!„íãÀç~^lu¬ÈlêÏjÛ·K5¢çŸý¤2ÅÜäw¬ˤŽtpx(7¼}ë¦mƒ§'73´ikÎÚ±{%Q_ ü4èO+ÔÝŒaO„°}9ð)ÐO¥ß»ûψGQé—³wèÐ|Þß]6¯/!7{GG[{Xbß%`›8ûÙÓ+ ž¸‘ëa# r*!ìÝ«1žN’šõ8€÷/­òDYÈöäÐáe ¥¦~£M‰»àå ¥0›òZxËåõMÊ´Xcºyžäº8 zX™Ûom!¡óß$Ìvà(èÑtt5¼ ôm±uÕ‹9Úè+[$ÇíÀ»@Kc äºtÜ1 Z¯ qdä3îìh«{'ö]ÆsïÛ.TœP»$%,OÌj¹yýúõZÞªÌi´fÄ÷5ndäFo"ß8«—h7-}YàƒÐáÍ åÖËÅo¯g²h·H¹3tBg"W¬jÑrØÀo8²”‡ áõ ¯-åªiC/d˜Œ,"î,ÔÝ„pèUÉ5P9ƒ·jšâ²¹Ú‚›°L•·åÚfÞåKoYMwœj‰ï÷ÏE¸µ3ï‘Ëtå8ÒHÇ,Ó^*?~ïu¥jÑ5ét„æ¸Õ‚i8ƒN~Ú¢Ý7ØùRË@ï—6rAŽBxB?$Þ» »™b¨}Õôí«¡£¾´YDí;xGSQ¡pf”ö¦F·õcp7èݱ‹ÑÃä,Êq°'ìÝÓ†fwxû¨¦Ù%èêÇ $¡:W™àêuÚt†yø­‘…fåb=üŽèV‚¶ÓÃß Þ>ª1µ djeË5vÂÂL/KÊF‘oDPYØû áÐb »ÜÛÍCªŒ®Æû!árÐñƒ²èj<Þ>ªQc?©‘ö¼ûZ$—¡k¬_¨u›»o—QdyŸ  ûA÷Ç™ÂaèN®¾JN±@(«@_ÕVS{R<ØfSoÕ˜Z¶fju«‚½Å÷ALÂ,èll‘·ÀÚ¸p™’¡;UÛí;q„"¢9stÎÌj3æè *Ô¨”Ú†¼„ÂQ­6â#â‘6â³ÀÛG5†x¸qpÒ¸ éçæNtmß DÅUÛ»S*r‘tƒP{Å,Ò¯mññ†˜'ÌŠ`„Â×Dõ†ähÖ¤6”‹rM@vB|OìräZM<­d5{Úe2G·ë<%Ìεg R{ÂvD ðöQMË=VCóŒdúýûjø ø¾Ú)€ÈâNBD èLlqwÝGFÇe%_ÞdoÖ„3JçZëN>† NAjBa¿xÜ‘ß5œûFï‹.ð4„$T7ò“j4&Ø›mn4§ÁÛG5æ¸ßhô6oÊɘœ¤ÝØŽùóåÞ;NÅ*êgù|“wFÚšŒ\¬3( áqÐÇÕ«`°^‰Ÿº0¦õÓË¥Q*ê–Š¹XE¥¨´X9¯Ëµ„ìïBj—y…,t ‚ªëªîií訣LzÂp·—Ï0{Ì’¦ú£{“2ÊB(L‚=}ÝŸ! Ûìþ*`OØN÷÷(xû¨Æý PƒbÍ|ZgÞ‹f#r&£ÏŒ müÓÆ9”È2Û“pô@l™/æ/kÒF–Í<„—‚–ڲР۽ Uši‘µiÓ6¼ÅýÑ>ªW6ž5 3º=Úç5öÏ™\™u&kî}sf_¶oÆìëÏF.›‹ò 3‘qæZãÿ˜à”ek”Ò3dò™‘ìæìÖìö~æ2›²[²Û²;ú%|Uòª˜ku›yв †ñ½¯Y2ú³Es¢j µØb^!ˆyƒé0cÈÌ™2âÍB$Â+@Ç>ìÞq™mÍzöéÍp Gï=|8²pg!¡º•ƒ•õ•ƒíÑÍnr®#ut7ÿxû˜ÈÒp´Ù—=c1§_Ρ„ê–†Dš~)kzÕµæŽ;"æq€ðè± sçÅRþÚ0SIw]£ôŸ¬V™6ÙÀXb½ìV8Vqá•Þ@)kNJ´ê¦"¬²ËÂ*WxiiÀ-aªªÚ¢üÍ&ZOºd¥!Eåû EÖMò‘lV¹8·€|¼ 4ÑÖâ׺ÇMñëKB Ï»3L´§f;Ùf'óõ¾Þ(Ø®­ /Àà—;Õ ‡Ì°T¦×fC÷`4× áämsBÔÇÚy2–5ä&—¬7'ËC,s_`1Äó=¡&Ê¿§jöÝKÆ/Ð7Rï\ž+u,lr+aN˜åIÆ Ëÿû«CF’Êi,3ë3Ͳ ãÿh=è¸,¸¨šÅÂCç\:â°sçαÂ#ôå#!Ó·~¸/«õ­aÿµû2ë7õ÷õŸGîå’z(ìiõǑ⸎>[4o®æÞ“fqó—üó¥Äª²sÏ÷{áƒÿõ‡¯jœvù¶sü؉ƒ§ò®¯TïŸn½®{› N[%cpv†§¤´ ÆÌ 3­ÛÆàXa^9‡ !rþ0zyóÜ2è–*ƒcì?¥{G6åǼº™Ø>\66o߶ybhY+u?ot½„®1. {%pÐ_ûö’q¤Å¸Côa5{ºò‚íÉl~åXm8Õ¢ëŒÚ…l˜!A„G?êÙS ]£!¶ùtú‚'?æÕE÷øñ15e¿y^Ùç7œãc™õÃ%ÖÅô~r% ð\‡õ“Æ)¡ WÈô&ÿúò¢îgÏŸó..?Ç9œ?þ'Ê8„rúéÌv*+£çyÔ­B£nʾO$æá6¼%&ΉD/}SP±­©¢NáŠb*×»ÆÚ™¤ûè™~ÙŠ·E"=ª¤‰vTS¶®õÂ„˜¯&Œ©—¥ãûÆöõæ¨Tˆ¾Õ‹bÎù)Oè·scb±AøÓQ¦s47æ)+ ¸ëPDÂ# (ÑÆ8L C—¹*ÈŸÍÌO *•°È”[4ºk™Wº•~§y’‡Thõ¶èÝ¥7 w2W£ì„Âa—xõâx˜Ç£ù’Ššº¸3º¿%îŠ;‡ûYêݬX)·£"ýˆ"“g%ªÒÔL­ ®ŠÓÈŽ 8?!ò,±˜ 8àÄ‚æPS¿«Fýâªß;¦T»Q~‡A?Û¿¯öÝÁÁrÁô&6¢c%šæM ÄLr©¨‚Û£WŸc /ý (1¡pæO/ì/X¦šr\€#dÌÂK9€’ 4¶ÿ˜:^çëøˆnz™ç EzÞ]Ï¥šáµp#JN(œ=R „MW-Øs°>ó´ãMpª¨º¬&N»¥"‹iµüÜy>ja=ÃxÿyúðÑrX8,ÜJ”nCýÔÔKîúµ³—©ššÚ45U4'lÝž,éîôiý¬=8m+þ<>¼8&ª3Si´”ÑÕPK9·~$ÐZ–ÂBý„VûëÖr^I‹š×ZÜÆ:¸ðùÞyu°ŸÕAm@å· ú,°NF¨Nè[þû°iÁQ¥p¤]¾bšÓ¬ Êja·X …€jðÊÿ +ÿC å/´¨aæ@L½ ¾b¼hé´Y%ãê®I¡œ!½ŽMɘì‡ÎÙsò®C{N=rï‰ýûî8JDOÌ9¹)Ã5Ê3™¾¦¯ûúwiµZ½ŽwÍI-sCù1ºÂ1#~×ß?ïgúüy|¡œ;íÐY«;W6ÜÁr¥ä»´Ý›™žJ¥â@žÊÇ^ìÛ¥g?E?ùyrG™¾‚•÷ÿÊû›ÚûY?aôhŸï=}QËž ôsýÚ† Ú<Éy%0á7Ž{t+Ÿ×¾íû¡CúYmT;Ç>®TÝÚ¹I«ÌÀç1@J+1æôñqöû*—dÿ¯¹pQbz«/{þü®[Á¬èf7ÃÖ˜E¶úû†ßVû‘ó5r¬XM ešŠ!üöxßÆlƒŠ²¬Ì ?ÔØD¡Y0ìú5N*òä( Ê:‹››: x„aòuŸÖM,CI=gÓ1/üTà ‚²jÃ5¨˜`îaÀ”¯šÞP&ÞŒò4Tí¢q3ïL«™À\áÕä£äTvÕ^jŒP­%y~ïÑ©ìö?yî‰&2ÏS®ÅŸü£§mü2´ef¡Æ*rÍÓÚì—©Õ5¶A²Bšé²!ùrPŽçÇs.^ (ª)ë¥Ü—L{«7ŸÊ ¥À"u Oå‹”¦‘q8+çÍDmNµ“:¸'¬Ö êÝDÅ6*ºímPó\ÀíÿÚáÿ‰ÑMÕp]ÈezÙš¡›Kõí‡åÏ'Í-®½:†Së ûrIó_.Ý_ßö‹ùãîsþhbj¥*ïwkduùõù´u|jö÷à¶l±kêèëùEÜbãŠ!¶kÄ#!FàU‚žÖ"¶j‚K+@¯)km ZËpBÌÒÖ±_% E‘öKÝÐD7Þ_*k¯µ"vÖ‚¡¦­b¿N@<Š´²õ°y† ɧ-« ÑéV/ÍËýz±0@‡°´“†ãòüÉ™æ6jÇxòúˆeèÚGA*T!¶9òíÞú¶ôUHìo¤ —Ňó«”oçâ·7jšv€îqŸµ´L™™ ]çËÏ‹J_Ðì÷M+"ª+5Úø^u46J¨æojÕ±ƒé°÷)¥½a—¼ÖÇ¿œ4]Íñï¬sЫXïl¯ S~9í~Êþ§k‹Ê‹þÞt4ï<Ó¤i²ìK¯›ð²—Ñß«l5•,Û¨ dLNšy“NKÑWE³lè6É9a–½t Þà¶Áþšý~^·möë}F¾³Œž»8vÞÅéλâªáÿŸtÿÿ'ÝÓ›tŸŸs‚UÓØ‘=ûÆŽ|çAàINwžŒjðôÆŠæ7š¯jžš†A»‡ª'zsí¼Wþ^éÅ>¤;H²^lfqt¤¬ƒ¹òã×Ép œM[qkÞ*—ùaÉÛB~ÅËxáÿBs~ŠÐ²ðçÉ%Hxº(Ú½õG‘n›ÎAÄ9A|ôà ç•&&°½“ùôvÄpñÝ ±ï0žì‹+ø^! ž˜µ"qß­¸14à¾[Eîx1oð²õWwÌK†Ñ7w]—èeø!é97lðFÐO‡97’ç`ŠsnÄî&`{çÜH‚-À§Ñœ‰s;0Å97b·¨lέ£3'¡”»Ä£¬ôž°ø ПH¿'ü¤€xÒïãWq‹ö0¹>¾{Â:¤#zÂðNÑî%~߮ͰŽu´PÊŽ³~ŸT×_Aí§Œü|‰vŽ9/3?ݸþêL[ÕbA› ‹<óÅjÁ(h¸ø¼q)7§í£´÷EÇ¢wuÊK«$ªf5ð  ßËŸ®>MÙ”Ê"²d¿|/è÷*lÔ„oýÖ§EÜNï|ø!ÐJ>n_ƒvDøaÐN>n§—Þüè´1n§w> ü èÏ´»·£wþø5Ð_K£·£×> ü:è¯ÇÖÎ`ó,$¾)Zy/¶àÞç*2Žœ ¿ü? ÿò¦½ýÑ…óîq"\ÍiÿVƒ„[w'Ž—u‚&L£uÿ_°]Ëiÿ–—Xûh¢†KÄðNwJ팊.ÑK=`û Nû¥.ûKëè?é‡KâiØ~HˆÕ+`¼_óôæË’ø„P ÿ¨RVß:Þ§ø–d‡H¼øÐïI£C$†¿|/h©IÕ4;Dö}ÀïƒþþÓ¥C$¡þøÐ?I¾C$v?þôO“ï‰Ý_ÿô¿´¡C$þÿ ü7Ðÿ–|‡Hìz€?ý³ô;DbÿßÄ“~‡¸Ž·£Úñ÷„æì騖êí¨ï“Œ7°¼I sµ.‘|›îu…õ™ïÒ/~$Ÿ:4Ûœšv¦i‚c ¿,Ó Ñ鹊Åþá˜ßÉ@ýßÆà|‹ØCffL]FC«/ý"eÝ_‹µØÐ )$É“ÀW€~Eòž‹Ø½øJЯŒÝfd6 ‘¯¾ôkÕ©$|²­¥JÞ| è·¤£’×ß ZnKüvCÿB§˜eÛÑÛ€ Zn0ÒZOK•}C@Füÿø7 ÿ&yHìz€ úoÓ÷Äþ‡âIß^ÆíÙCµ>°#T=!iHŒ^`|¿×ÜP×Xž‹ó‡åNT›%©Ö5ÐZò6{ì”ðÐ7¤o³Ä¾O@<ŠJß;^SKïå0ÍËxÒ®‚Ëaã>â‘l-—Åç ´¥·U5ˆ±…y‘“bÖà<Ÿ  A$ïímÃ@@“[³úœ³3ªèWB‰„[@oI_¡WµjìJ‹7·Ç÷ÃfÜz!1V ˆ'mõ\ƒšð±mê¹̯U¢žŽ¨=±íú— È%‡¿Z0C7_ˆ®McKTÚ2àvÐê²MµÎv“0·ï}Gòa7±ÛÜzl Þמà=jfõ,ßÒj:¡¹$[éùð  å6°®ñšÿ6ÊŒü/Çé¦ÖswdèÜÎóã»´ñ ÃÕ9wZgÝ–÷¥ëž›pÝóçµQm(ÛÑñú³«ïzdhgýÝ¿{á )ý¦ÿJ`M´L©MÕð[ÀýÓ¨ÕAoÌK©]¿ä²Ö*ÈN‹KdÓ&ÿMü_do¾ƒ$Û4þ`D=?V„ÖÊ Ì5$¡u2Õ'©Ä¿Šnìí©Â&ᥛ\{t½hœ··”Ù.ïK’qã^š‰³#/‹Âü„‘[Ú£o}ÏýªvþwW…7ØÝÚy&'ëàÿ'ÇNf®Þ2^ä%ª@_»ñ>)ÿÞ9P—Û[Ó’ZZë€cZ ˜%½%)F`÷rÝx&Ü Æû£{5²FíI*j¡ž¤e³iOmvÜxÛ¥ÌО"A®­{ EíLüöKÞŠ( ØÿïZõ³pZfb®¶dã¯.…ý! :Í©2tæõ²[œ¦—¼µVÚ½™Õ&ª®7ˆ¡ )ÝJ^勳´¨kž`ˆ9˜­Õæ¿£6ÿU™×jq€¤ÕH¶ó?ÿ—=¬îü_©Œd;dÜÉúÿÎÿÛ¬ºûsQ'‡®Å» »:y]P=¤=GuWg ÕÌQ½QÓ´ƒl<¯Û®™¯u;ëíÞ2­êÅÅÛz¹`•üåVÿð¢™3rYÿ_´àÊzîZ¶Ó]Òìÿ´ Ïk%þô€×6ùLÐ6ýoø„~?b]j!|#è7¶1Ll9±ò¹: >ðÆj><©,$RYßüèo]A"ÉûmAîoËÈ?HT&Fhj‘ƒDe²F Õ*já 1¼Ñ´©¶å¼À¦Û.U‡ˆÉrm"ªke Å”8,%Jò§ ÿ´m]Äåó¬½Tú‡ÜÈð™dçð]ŽÞÛïr¼:‡Î®ºÜDG—[Iç FŒÀÎáê€Î«Z¦gP#hÔžA¡–êBÛJ›ª*PÈ i±íRbhŸ ×Ö}‚¢Æ%|ÛyKλÚ#žƒv|ÖÇ&Ynž*•Í‰ªS”èlp 4]óÌw¾niœõ²ò¹ Úñmç 6ŽNš6û5áúé‹éí$mΆè1󶄗-áwÂÞÄÙ o/¸(:^v¼„gª×CMÎÈã`Aa]YNweÓk¼ÙÕPÍ8øA6ÞSdZ #ò3Fq.[›*ée6.Î5œ ð“d¥ïu±™˜¦èˈ¼…"|ôƒÊz™D$É°º ÌG„λq Úˆ­é.-#¡Iàè)e YI³Í5£‘­|ôã ½wè!lb8 <ú|lÝ\×_›7ånÜ8«—*E#Ë÷ôKTγo­.áY/kH£ù̦ìæ°h­e{zð½ Už2mÑž~ ø>ÐR§LzÜò”EîÝiÓ.xç6&­ªí6]éQ;ÍÄû$ÝžŸ#˜Â`&ó»Ü)š.?†èTXWÍ[RPgÜð§”֡츆^ Ïî÷âñÃ_N6`A)‹'£BIïçØùAN¶×Åw~ø)N¦`’þ§ cº‘5¤\®åuLj¨ê_űûIN*²Å¥ûyG=LNÒ¼øN¦2w¿øVNÆÎDÇDŸÝ¿Íi´Çñ}\§5T3Ž`ãø¡9wÅÂÎu=Ä$= <.L¿KBíî½;ùЀØmî½'y÷NìrÀ½ ÷ƶž«k'{tI[Ù|ôCê:b‰Ü–$I8 z2M= œ-7{"~+l°2)Sû¿^´¦¬ªCóuåùI<š&ìÒ®ûݯÜÞ*Þ4ðK ¥n¤S²°8×¾^¬LÏÛ|©ûÛö÷Ë×Þ¥ :6̇ÔGËõGªŒ/s켆ÓWE­z#åõG’÷ÚºÜWËÈýQ™!dæ¯?¶¶’Èë’Ê Ì5d]R­öZ—ŒÞÔÚS…­ÈDiðíÒuðòe²\[,_ªk›â·K³rdDin„4}më}®nÑ`xëæÛœdÓyðAöÞ‘t0ã‚ܧdäVÓÁ(#°ƒ¹žu0ᆠՙ(6rg¢NS u&­[N{ª+°ã¸ðöÛ.u†÷Éq] ¿PÓÔÄoo¹ÐS2Ñ=ˆ¿?7¶À‘§‰näFWC5ÓD©9nsÂnÐÝÒ¾²#ÔU‡¤æ ¶=À‹'5I» ø´IÍAÂÜL15±ÛT—šã’þØSU$Ðà)Ч”))ú$Ç#âIC?Ï> ô³bëgY­íHhEš Miqºðm6BHï‡ó]ËÄæ$øi  ÚU›S~'¹àœ® ‚Weœ+#ØwŽgŽƒ+“)R ®V!ºK É„›{»j%8”M–k‹PVaŠßΉ3özÀµU{m¾+•õŠ<ãoc¢*ù4Tbñú'ÒÅ—OCuãü£rf±`œ;{žg¼áYnø»k½y¾³â’ý§½3ê?å¨È£'˜qŠÎÕ':ºàA¤A²L@Æ©•DN3¥Lú¨N7: ›ø¸0cnS½J|ÁMª=j Í(•,ÛÖ݆Æ*2J‰Âl†0›c;qÙ óe5k÷Mg%ýsçà]œ&TàŸ“ 'y r”‘[IÀ­FŒàs´Ü -ËÄÝjD‹Ü¨ÓËB]€ÐÚT9b…6Åvé*Ü­'Çu·®¦Õˆßþ3MBêZƶfû…Û5½©n½äߦI›c½»l½Ã$ჰQƒŒ§†(¡Â»6qšP‘›’ÉE’ìÞÊiÂ&ìº6G9MÓòv÷‡n¬.é®mž%; ºTYò¸'Ið<§»Î+S§Ôìk×óêè?i(óÙÀçsš0¦2×5Üémï“PÏ €¯åt—Ü}•ô­úÑþ©ÐÑþ©ø£ý®×ÿœÓ„Åh¿ë{‚àß“<ÆhÿTÜѾ飆z ÔYÔÑþ©x£}Å%ߺà&Õµ¶í'ȶuX¨†qãj'Fû†žŸÖXlH}q ïðOìŸÚ>ò?Uù‡uØ úêþ‚Ó]¿¸8FþôïšÜ¿”‘[ÉÈ_ ŒüOIüÕˆ¹;P§— ùŸ’ù+S|+´)¶KWá.>9® ¸x5­Füv'ÔÙðÊi<#0ToÌýÂpAþîíøNÝæ$Ét÷íÀ=œîNá0±ÛÜËéî½qٹĿ¼ž¦k³†éÍÀxw¾ÓA,¦×VÓ;ÂÌ îÆý”JË›ñáƒtÓ;ê5Ió.¶^>Óôkþ•Eüôü1=MBÑî;*ä´Ãoå…[ì­ Wg¯È2%%ìãØsÓ„1¬2È:—Tl£`†îk!\OxšÓª2Ðú!ÓÕ¿l’xÅ(DÎÙ%]Bìû€:§{tY±çýòqàN÷œI¥Åö9ÝSŒízòDµ{¾ä­ò$û¸œG ¼fý©L-K¸ZFdôò P-=óM/÷'@OÄÕKçQïZ?£>“S›¤óZgŒ¢9mYͦár©;Ùï7=LßÔÛeN;Ùðo6ú`Æ :eæµÊõä7(讞­½&®䋺ã]íQ†e>ôð&Ø‹Lò”ô3ôƒeÇÈi{ŠŽ•¥/o iÙrµ’¡—™¬“Õ"m6(ãüØØþ#‡5š„*ñÅ'bÔXlÿôÆB†]ò‡K¦­Mšg™þŠVo.KÂÀó½¤áù•IÃ{Ù+¦;zrìÞý6îå'ü<§ S°q/w8áïsš0¦ß¤éU×"%ç½K?¼jqšUÍm¢Á"ú}câ‰ð ˞》^oä™-J•½õ~[¯TŠŒÍM{–Vo'`ã¤giË8'wäð`“5f5Ç¢´ÁŽÅZ‚7ß)šjÉp§Y³œÕZÆkösMEârÛ†S-²â £w&ksžÕ ûÅÈ©è »þžÓ„iG`7s»¯aÛ"°[Àœ0VȵwÜ(³Ð†¹á fsu¹nâI[Ä~‘€xÒ#‹Ú÷QI¬d&1àÿ/ªHÂœyÇJÐ+Ó¯™XûضÆ2æƒqK»a ¢•®½*jçðN„A¯_-#xüIFÒµ<Õ,×3\ê Süö6*¢}GþÚ³Ñ} ,l4"ŒE1ZQûé<u¼@2lOÒãb7Üz[lm]ÊRpmt[Œ§+ m-·Ù@Í0’ã„€xÒÐÐàIÐrS8â·+´ iˆÙ$s/ðY ŸÕæ¦3% ž4£§AO+ˆ’ͲV)êyCâ‰b« «mn2 ˆ' ÍÌσ–;=*~»Zs\ºhÖ²Ï8Ñ\H˜gôo¤?‚⊭¡ô&ëÒñ‚áêfÑ à|¸ Ç寈}—€x$ÛÈ£qÅéà >>â‰Y+—ÑͽeÏÏ{{Äi&X‹(Û&h‰ð2З)s'Ëûô²5£ÓÎ徨Ž…$º¸ôÆä ±»˜‰­¬ûsp–¦ÙøGÓËsÚ$]#jØÂjwQÚÏá »E‘ Õüп¢LÛ2·ä‘$/¾ô ÓÑòs€/ý¢ØZîÑ¢_‰J¼øÐ/Q§‰û’H’W_ú5é¨ä¥Àׂ–O8à{ Ö‚°†i:þ…´ßZ7˵;â­bÑšå›ýK«LmogTOexð¯@ÿUì²HÌ!næ6áaü-ÔN˜ÜsDB®^àrÐËeä ”çvo Öqu—)ØÌûë¥ó?Õ÷nŠ»:s…Y< ZjÒ`Bö“»àÐGÒ¶ˆýQñ¤oë[`ß[µõž{Ž&%$ë®-µ²(Ñ g” Æ”mð ß&Q°JQíy Þ#=”¼=o ƒNßž‰ýˆ€xÒ·ç­°á­‰Ús÷=G*‚õW€^¡Ìœ/k4çÊ€—S,ª “l«7‚¾1yÞ »%¼ ôMéÛ0±ß žômxìv[²6>ðh%X/P½ ïhºu³ñz¾9kb. (‰jæÛ`Ú„w‚¾3y3ßÓ&¼ tü܇‘ÍœØOúf¾¦½=Q3ï<#!V¯€xy¶žžÀªºl´dÐy¨|±Z`ÖƒQtòjÎ1#‡Ô$ñJ @'m×ÛaË„;@ïHß®‰ýNñ¤o×;`Ë;’µëŠ„X½ªµëÛÄ´¡™U¹¥û³^6€¼Qqû£ZúX7á!Ї’·tÁº;î}wú–Nì ˆ'}Kß ëÞ™¬¥—$ÄêP­¥o µôF//FÙ «&Ü zoò¾VM¸ô¾ô-œØß! žô-|¬z—r o½¹­`¹AK…»`Í„«@¯RfÙ|G¸^(˜´o[/jFÑð–Q½Ñdäx„¤\ =”¼ ï‚ݶqJ„؈'¦K™ {‹b¥¹ÆK¸´ÜrªªE,’d5p-èµ ­#dÅ„Ø-®½.¶Zd±H‚K€—V·Š,³ˆE’\ ¼ôõé¨är Z‹­’!o›_¯BR¹À¥,ÙM$í Àã +Sßš>.'¿€Äº8 z2]Þœ-µç¬1‰LVLå‹nÉÓ¡”#œ>ôs•©-ÎÞ ’èEÀW‚~e:{ø*ЯŠ­±kü†ÆÚ`Ápò¶9ÁBc}š1"ï#É^ ü è¦ß¡r}×PÍ>­µ~‡.{ÃÇm…p-h©~TÑÞF’ã ñ$mÆÄnðJÐWÆÖÎ iIÓÙA%¸ øè‡Ú1ø¹ÖDøtÚAòôÕ+xDät°QGKTšUÀ{Aß›üh‰Øõï}_úΕØß/ žô~7 }w¢F/³!b7Lð"رïu¤¶!b7l˜°£b?" šÑ¿„=ï ïIÔž%6Dì >]7Dl«)nˆØ»%lã†b¿AÀ¶mˆØ »Ý›¬ OÏEµá½°Û½‰ØpŽœ*â}æA™6ùÞˆ¨¶½öL(ÌÅ%mÛ{aÏ„£ GÓ·mb›€xÒ·í}°ç}‰Úvש ¹zêƒì>¾¢Ðª£š3ɹ 8z0ysɼ(§§C2ʉgÎÄ~X@<é›ó0á;’5gÿ„}$¹zêÍù6\,t» ¶mÙ*íúØ2ávÐ)l깶L¸ôŽôíZ\n릞ý°åý‰ÚuÏcÌ/JHÖ T?,¼¥q6D¥eïÇ{û¡×5²ºfÙûaÍ„ÂRqÚ–MìoOú–}Ö| YË®D·ì°æ‰Xöå#ÄÈV|ïn-5HŠfÅ`¹„AKôgÅÄ># ž´Å¸v룚¥™qiFÈåHy?k§S\¸ ¥"=ÞwqÌ “sË'M7G½Ž“‹:MJ‚õŸúʼÆî¢55PO_›Õ ÆŒ©—óFVÛsp_VÛKÿ¡t¯ì_ùZ.Yïf9Ï‚¢º*ÅåÀû@KMÏGs/Ä®x?èøÓñ‘Û5±?% žô­þ,ýPZVoKØ Toõû¤¬Þ6 Õ¼Q3üC0vÂg‚~fò†ÆNøèÒ7|bÿ €xÒ7ü»aìw'jøK*º]Šîêß÷{9*2úõÞL<½d¸†];Ð ïÑï; ¥FÖÑ [8¯ îòNÛ°‰ý.ñ¤o؇ȧÓ0ì¨Þü0Œùp"†}s+ÃŽå´ƒ#¡°½5iÛ> {&lãš±¿MÀ¶­)=IÔ¶»”¬¨~½,äZ‰ÚäUTk&)Ws sÉ[óX0á èÁô­™Ø ˆ'}k> >š¨5ËLP… ªŸ R³…á(Þ#¼ ´Ô^‚hF|†K¸´Ô´X<#&öÄ“¾ƒáKÖˆïÙ9ˆ>Ã=–ˆÞMé}JãÄ ³p³PÕ‹ýÚ4Å!Ö”Q6LwN›´­RÌHûÞ#|´Ô *šéƒ¹ŽƒŽ?UÙô‰ýCâIßôÃÜ'núQÃìã0÷㉘þ±Ø¦+?Ž÷ýpòÖOøèGÒ·~bÿ,ñ¤oý÷ÀâïIÔú»zu$²ë¿6O¸ôjiû_Ú$S/n•Š~ɳx5è«¥•ç—Åã¬b ‘¿åE.$ü5À›AßµôFÚ¹À·‚ß"#xÍ*º:$/rQ&Fð vt3©6òe.Êä ær™‹Z¥tÖk%Ø´4ûvÕLð….Érmq¡‹:¿½Fó†yñ¯£%}@Yê:º'¬M‡ $AŽ‚>ª0& 9Hìî},¶¦yQœ„JŽOv¨¾xviŸ]Òs¥™>Å<œ=‘ŽbîæAçc+f¶dDÞËCb€EÐÅäCfb×,.¥2û²€xҙǸe{˜tÈuÈH2õŸN!3ɳxцÌ$ü5À‹*d&ooSȬL Å!³2¹"…Ìj•’LÈœt͇ÌÉrm2«3PñÛë›CæÆy3-Fc>ú`;£fä8Pˆ“ΈÝ! @·#j&ö'€÷ƒ–ÛŽ¨4j&q ts 8 z²}Q3‰1´@[ÉGÍÄ®X]I?j&ö ˆ'ý¨ù·lO?Ã>'ï4oŸ–‘(ô*  ÚmgB‚œ>:…'‰]xôùöô!$³ÏýÜö÷!$΋€O‚~2Å<|9è—ÇVLÖïCúsü^ê¼^¦«¨mcJ·)7²—‘±âÕBäkIÒW?ú3mávÉ oIòÏ¿ úËÃð–þŠ øWd?¼U&F` ^2ž“Û**ÒØV­FÛ¶0øvUKðÀ6Y®-¶êLSüö„°{$3¦W Fy¢êLgµ‘¡¡Ìŵ\ƒ‡0®ðApIŸÓÊ–K^wÆ°ç(²©Ú:{¯Z.Ñ³Ü 뼆ӄm𺡹,äs;¯nà4áEás;7 ‚o”\‰ÏU#F Ï]4ž9#ãqÕˆÕã*ÔÇB7üÖ¢6UJ¨¿Mkk«È,Åo—ÓP°¨ÛS†Ì€¯&Ð0V8úîx½½òð?R1à !â6à>Nwî‰eÁ uwØò$³ä;<Ξ;ØsT¥í–ó!\G€÷pºóXlZ­®¦sÔGoŽ|± 3|ªãa…£Á¹4êå{ÀVçtç#±ë"ò\±Ÿ¨£WÏŠ-†Ä\ÚInàªKkÝ ‡\ûBbôWu<ݯ}!)ׇ:R»öå$l˜p´œŽeÃÄ~D@$‰¾üè$Ý×€ú¯b[˜Ì-z$Á_ú‡ÊT³ÒWÍØ~Iåüøï ÿ=åüðç [9×xíoþ ¯YI(ípì\ËiBÕíiÿ~•u^ìãtg_**ë\\Ïi˜*ëÕ2¬AI*¨óFৠ)ÈÛz?:$£›ÍÀœ&LC79àNNwÆÏœõŽ~Þm!­G­KôzIÓÑ&têQY/«kùisÀy´Jƒí‚鸶9Qõú_O±Ã¸ªG¸©'«±4=ï²î´8§•Ù‡õÍ4ËsºêøÛœ¼=Nìµúb-”–1sF.+c6»€ÃiBɪjÓ)þo?å4a´BÐi/’Àÿ"þ/2‚Ç_2T&†âSÊä æ²n¨V)ÉœBHºf‚“åÚbñPŠßºlXÃü­C>›|éÚt{ÎßZ÷­NEÏÓ~Œ‚Á}p™F.Ós‹ýÃa®?ã0w~Ÿiä§Ý ½jØÞ~mYÏg—,ê W7‹NäaºPò® N¦=\~죚QûÝl|ÊF—ŽWO3ºí%¨rnÓPÒ«>ú¨hœõSzgt§aˆ(1÷ A(dLáò7ßb*!Û)àC R5Õçïæ±>ÜQ;+‘t°FìýHlÓÚR›ôèo˜õÀl³oË8k»%½\¦ð‰š°„¢ž|èW)ë7—î?«“Ù;R½øvÐoWè¥{ª–¦ÉWßú±5ÙÝi’ïþèßQhÉåàòŸâJ¬eûoÓÔ&±ï¤U.Ž+y°eâ‰Y+WÒMVqrJ/O‰=oäm@CQ„W‚¾RY¾|vfb7‹!tÖà Tl‹¶Úç,{JBÈ€Û@oSfЋٸ€E'!|¯n-u•Uãa˜È£T⿸´Ü€>HI×O»nÅÙ988;;›‹ ¬Øœ„Ü he±yÕSÕ.à# ãw£Ηxp´TÄÒýèUwÚ²CM'JßF÷K컌ç~o+UÿJñĬ•)æ~ïÒíÂ\VËi‡rYmƒvršEéŽUÎj'rÚ9-3¼cÇÖþœ¶G\XÒ+¬aéùišÝ¢¦6 —õ⡼Hž/iX-Š|\‡Ú §@O)ó—¨_ªÆ¢Ç#FÁ̛娫ó$[øè''!s<Änø<ÐÏkƒ+'þϾô ”©¨kx‹„îÌ姭¢55'QŽ_~ôç“ïψݯôï·¡?#þ_~ôÕõg[7KÈóàWAKm|‰ÖŸ»?~ ´ÔžÃ†â¯È ³þlx``8zgF’|ø=ÐßS¦˜LPg¶ióöÁ¡¡¡mÃÃCÃC§¶ŒŒlݾ-bEÒþ ÇÎÅœ&Lºƒ"¶¶K8ÝÿYäžØ/­£ÿ¤-F+¼†j:(‰S-˜ª=ÕÂßVpFD[¼ô%2"ª>£F]ìcÏeìÑ”µ¤°3jÄ­¸ô ±MgY–±µ=Ñ·w7³¨ùü‚a´æˆnñýå.C)U÷tð3H£ÊlhËä™r²Ý¤ó#»;¼$È)˜Ñp¬ƒg´;ÛŒgµr6tHKÇ:â$@uB'¾øÖr~š5ö#F>êq!•[Çé¾L-•Ö-ЀVœÐcIVžíàÓ.N*æóL ‹ç½ÃOrɬÄoߘõfúîÓËZÁ(kG-Ëv§t×Èj÷{ë† ÷óÖf6ÂÚÏSäÒ8g…Msg®9ÃHk–_lHŸóý©´ê߸i¼q¨µSÛ£9f©Zä¿é¸ÕÂ\äðªæ1ŽÔ5T;TnhMoøEò_ ¼¯ƒo½'ùá±»xßþ:Ö†áñ?dßI‘åÓüáWhüÞBžg™¯è|=RWIE~;8=ï6kðR[F÷Ò{ïMC›·Ë4°Î<ÐêðÅwžV¦™¾ ñûßàDÉ©ä†G††F"Ž¼HÎàkÙó({^‘üÈ‹ØU€¯ëðÒˆt¾2ý!±};_ÅŸ´Å˜äª®¡š‘×sÙÈKLÆt"‡îÉËÉ´‡V £)@Þß°¾å1ÃÙÉþ¢q¾'—–irqŸÅ†$¬›;ìÍ%Þe¦ ‡ú@¦Óô¢^4Êmj™ý'×Ù­ ‹W^êÃΕ©7Ó6öiV¼ Ë:C]ëX ÝÎOkÎ\[½iPqN¢/>ú©äû%b÷ð3 ¥Ž6TØ(3VFÅ9•JNÙ±e``ÓðÊèeÌjÏ´ì3Ì^ªŽc‹Ú }ÊÐx{I¥Nf’èŸþoÐRkñšâ4ÌÎG5MñAÖâÄ¡m¬*ïªo¨¥3|[hŪøÞ¼c† ö¹ƒ2Q(Ba;èE’üÀ7€~Cò-Ø ôoµ!$þo¾ ´ºEË®­Cò¼øNÐïL>$vo¾ ô»E€#´ž<$ÕÀ~øQÐU¦™ ÌÀm9µuóÐæ¨a ûiàAKN»ÿôߥïô‰ýOÚbœæú®¡š¾çDpß3<ÔOñœ·/œ¢@¡W1¼…ß±ú)ìÔ*zþ ëæ#7‰3( á Ð'”5‰ë…¾FìZNX“î¬nGÝ©DB>< úlò ±; œ=׆Ž…ø?<úœºŽeÓV yž |´Êc! ±{ø<Ðñ7Ž­Èlâ+»3 $ÉóO‚~R™bn êW¶oÝ´mð´ãäf†6mÍ™C›"ö*$êkŸýéä{b÷ràS ¥añÜ9±ÿŒ€xңȵ]C5½Êeó{šˆ([ ò^ú2i›foª_é%Ñ®f@oQõJ/ t p {ú;¼ôbŠWØ q»¸ôæØÖ´+½˜ŒŒ°Àä°•÷F¿ëÉ ÿ¤w°4Öè—ÄÞ´Pq%eNôª1FéDmF鈗ã#ê<É7|Y¿›å%É!Ä®|²ƒïÒ~iü DJM/¾U𤺠d8´#k!Ïë”ÃŒ:²×%„»W߀*y}lu`»ôŽmÛ†·Héæ·€ïA}H3 ÔÍ aÛ¥OÛN)7¼ekÔ‘-‰ù!à·Ùó»^Ö·¤cb÷^àwØónö|+ýΟØÿ‰€ßæ¢Ò/gï6ë)üãºóáP^îPyD®bß% Iƒ]WêvzijV$¶ÙU ÂøÛì:CôJP-›­^Z*2 i¶!Ù*Páå /WÈ6$±ë^úŠØ6±È›m—¨ø+ׂ¾V¹UÈ¥ˆ ™n‚LÇ(nJÇ(®ƒŽm{Q´Ÿ&ÂË·5iºb„=;m²v^ZL²¥ûõbaÀ«XªÂµiµô‘Wý¨l#À—~Yú]Ä£ÜDkض­Ï6˜&ç“¥ÒŠ“H}À  ¥ 6>åiÅm¼Gx=èëeEŸ÷˽À 7&ïˆ]0:Û^¯ªeÛóª[ãé)e:’«¸ô^åf+]8‰f« «é˜³ªtá$ú1à$èIef}8z&³Þœ=Û¬·ÕÌí^HÊüÈ] }øÐPVgKÇàtN!# ê(œŽ¶Ž³ˆ}—€x$ýÄ…Šš†•æÌ– ˆ'fµì[¿~=‹{ŠyÚŸchEkJ³Mç ’ø²¼e3£ª° ˆVJgE„Ÿê͉\’*”ZE›èä³$G™±k·hͱæ3%Cwª¶1Ú76Ö—ÕtsÔ­XNV›`DÙ˜Êjys4ï}R`„÷ 5–QöŸÜD~ª?r¡fP£ &gµ¡rÌ‚·jZϵd&X#)|Ã~ÊÈ2ž…\„ׂ–”‰ßÞ¬t˜,€ùÂÌœ™Õf̺R³ší=ºvç %á- o‰?¢%‰#Ëòø.½¨ –v¼}TciÏô--àÊlᘵêgû)ä„c«ä¼˜Ïr«ƒßˆT(š|ÕE›3t;ºÎG™Ÿ ú™±Ë·—é|¤ÙJYqmT{¶¦O°Bh·x+3Þóžp/h¹ðµÙxG"Ëòlðv›÷WÀÛG5ÆÛOÆÛ8«àŸŠj´ÚÈò>2öƒî-ï /V§K@F¢›Õ¯B  W´A•ÏoÕ¨rˆT©]Ã.ëÞ·YÝË)ìTŒ¼99G©•…C\Ï‘Å~¢ŠoufµS£ö„Y.dò™¡ìpv¨ŸE=Œbttu?2>O©FW÷óÁÛG5êÎxqpC¤x“Ndq_ 3 ãÏm¬«©y8«É5ß_ƒ0„ë@¯kƒ>_Þ>ªÑç-Áž˜îG*³¾•’Q³¦á…‘%~¤$T ^ÓØró™áì¦-ÙáÛ†$ë‹!á5 åï—W·j”{€”KWÿár¦Ÿ&A¬ W7Ëu¯<_ÓZÆ MOî;½R <ú@ìÂôù…àš/³ 2ýËkÿ%Ž°t_´ÿRðöQö7ÍoÚŽ×3^ò¯½G·^i 7–ÚÖ ù@S÷:çá¬c<ʺå­CÙ‰¹ÑaÖKKjýIÈI8z  Z9xû¨F뻼xÌ»G‡oœ«]³Räú§îº¶½¯Už4lÛ*›6E.Á+ 5á.лb—àÖÚÏ¢¨£}¬4c¾WBlÂ[AßÚcxxû¨Ærd áÓt1SŒÁÖ«!(at.¶Ð‡˜æ7]ÐÈŸ^,Zye3¯A!>¤d`SdY^ þ„íœxxû˜ø ÀFO§½»¿,;²¼¯‡Œ„êÆ_—֜Ҧ¬6ả›wn‰n_¿ y/}itúðöQNï šeÇ5ôBÀ@Þb>ÈÌ›FÙÕÊÕÒ„a;YmÊ6*^?Õçi½/rQ~ âÞúŽØE¹²YÝ/ºÊß™¯}eTþ&ðöQÊo&•CÏÞ Q‡×ŽY½mÔt{ªZb*,ð›!$áÍ å²¹‰ß^߬X93’Ý”¥]½od„׃¾¾ ê}+xûxñ“oƒÔ„ê‚É\K}Ç‚ª‹€¢«ÿíàí£õY¯ð‘Ëô”ƒðè#m¨Ûw‚·jêön¯i•5ƒß{EýeÁ¢&åÝÇþuáWÄE.Ñ»P Âx÷Á‰ß^´5àŒÅ½ìZ«Z´Ê>YÊßd„ê\ënæ 0¸È•fjã ä;§Æ°ö8.²Í»ƒN~Ú²ŠõFtñnˆN¸ôî6˜ñ{ÀÛG5fìí‹ \ðÃy¿*ŠÆ yÎ7ëÈ%y/¤'T·/æfC1,#«9æTI¥µ££{$b‰÷¡,„÷€¾'v¹ÖÖz@od(º\ï‡,„kA¯mƒ¼}TcÁ{´`®iuöû»pè=O'û=º'+3±úA”åƒO3ûýdùP›í÷Ãàí£ûÝßÒ~', …^NYÖEVÕ)ÎE.ËG ?á~Ðûc—冖ï}? Ùo}ÃÓÀ&?Y>Öf›ü8xûøÿÂÀá(a;ŸoÕÔí¡¦ƒY,²,µz6xеYË>3Y´fÙXaÆ*ÎЇyzÁ°lk‚òf‡w#èS(¡ºéñË„qƒî8fù .l,ÜïA ÂË@_Ö­¼}T£õÞÖ§JÛ¨¦q†ALáêMŘØö€îiƒM~¼}Tc“;CÃRGÜêšF.À!ô•êôî€Xô¬2þLÀ „ê&èâG­YÕE­JjZrÌúG(Å=Íjú!Ë+­éèÎáKàí£çPؚۘò¥#ž ¦²®kªòˆg’ö²øYê#æË(áÐbf‹£ÏxÖë•+½)–aÿœ8ÁÌyÖÌOž»wtƒø ä%ÜzKüŽ‹ÉY”¯‚=a;;®¯·jls„l“Wt£9©mdqíQÙ¨Q¥U,—n;ЋõS‘ÿ:„%=ˆEÕ6N¡ ÅUß@1Õ ÒiZß„¼ßlÓúØ«ÍMëÛàí£š¦u’šV™5 ž3ÏŒ²U¢½Ç–ݯ&ÚÖ«T6™ÆµÞ<&eg {N+Z³¬Ë·Äü‘‹ö‡ð$h¹K”ÄoOPѼ¸:°Ö••å¸63ÙYËv§çvQÖÖÖ c3˜3  Ú„e¹4—S©°¯"—ìOPÂøù¶»/ÔˆÂRðýiOŒâ#ž˜½®hNغ=—¡ £¬ ¡í=L®ï¢j×^[®;i3ã#¤ùGò³pU´ në&ÔŒÖèG3l+3²“RB 1“6ŒÂèðȦ͑ óg(á ï”)L ×¥ã«Ì¬·¢^âöçJ]DtWEü»Ä£¨–cž5(Ó¡‹b/*ËÀñ=”ÚGéÎÙÆ7™D”é/:xƒ'\ zµB»jõ:Þ5'µÌ åÇòÓº¿ëïŸ÷3µk°ó…rî´ÃF¥æŒ+î`¹RbA£;}Z?»{ó kœ(•Šy*{±o—vœýý„3ç¸F)GÑ^¦¯`åý¿òþ¦ö~Ö¿òn´ßÛ¾¨eOPú¹~mÃmžä¼˜ðÇÇÇ­ª{îV'o›÷6ºõ~VÕα+Uw§vnÒ*3ðy ”Ù|‰1§³ÏØW¹Ü û¿/Ä (1½Õ—=~×­ƒ`VZngИúG[ý}C‰o«ýÈùí¬XM ešŠ!üöxßÆlƒŠ²¬Ì ?Ôþ|ج «¦±#{ö 1ø;c Ç¢<½±¢ùãEK/ ?EÁW¿ê¡ê‘h®'éOÈH/zÐî É>x±™UÄðSY-s%“NŠkàœÄŠ[óV¹lxý÷m­ætÂf`BËÒÍy’E $^„$Šv¢þ(ÒíŠñ‚ÁmŽUuH|&ι4ÍÙ¶³bH¤.ñHºŽe±gÖ—?1# ŒI3gCï( hjÛûнÒÔ,6ýràjÐrcuñÛ®è ÖËð"áZÐRƒó˜"è@¾--Ø /0¯Ò˜|E®-5 ”©;zÚþåPÖrüäÚÉ)…@®KÆùÞ©ÆÀg€~Flk9H ølÑ,eµ9ï¿g‹úÑôß¼Á¾tæJVq´Ï,PD=e›o ®mkjB·Gì9|bt/@å¸øè‡ÒóÄöaàè‰vx ,€.(œ÷©:lÒ-ø«ñZ½ømäÞ’Øw ¯·¼>®8+!ŠxbÖŠÄ]BâÀ]BŠœrçY ±zlÚ Ñ7oN¹D/cîKzêk”·Š[ƒG_gà¦`ê‹dÙ¼ôÍ22E›ú"vðзĶåÎœ„F²âQVzÓ5J!l{€ Ò÷oÄ>' žôÊjnÎ&çPz(– K¼æÚÛ!¹v(уgô³¦£1¹L×Éi'µj™çº2B–ïG÷çäÃu¼Oþˆ¦ê«d°¯ËŽ9Q4´½X5œ¨-a5Þ#< útò-a5¬Ÿð è3é·b_Oú-a ¬M²-a.zKXë_“LK˜“i sI´„5“bKXë_ÓÞ–°ÖïcÛZ‚p$)Ù>AŸ¬¨¾%Œy‹áµ}êÜÙ_Hƒ`ñ©w·b›´pëµ ï·¢6a¾§C­'ßÖÂè '@ÇõFnÄ>/ žôÀ:ýºdÀ\ô°F¿.0—~X‡÷Ö¥ÛÖÁè×µ·¬ƒÑûضã¨í’J¦tç¨ —Àæ W€–šˆ ¨ÏjÒª¿ž§ƒ;ÆÙŠÎBfçJïñjãjæENNÈh[[dÐfL]‹(àUPáÕ ¯VÖï†î‰ ís¯‚Ùú¨Ö„Cû\bw p=èõ±õ”ÑJ”ÃÑp]Mšn-÷4&%¦IÊwƒ¾;–Ò#TÊÿQ-›Â> úa…,šå3!lÇ€€~$Ã9 |ègÅÖB÷€·ªu8zB¹I,ö2)†M6·’ͺ Ýt,ÂVAWÓ±ˆ§Ü(–’QT ×’î…À—~Y:fñ\à“ ŸLÇ,¾ôËc›ÅŠÚž'56!I^|#è7¦± Q‡ÂÀñ=,DB.ÃÕôbNËŒ ôÓ$FÅrX¬kSŸ*[Žkæ1•miÃõî°ª6¥Y¶&µiö‰mMeÖ]Ïy× ®> —õâý!å‡ÍyÁ˜÷4âànß²k›Uo¿ûCÏOc¢“‡ÖŒaëÅbÔF} êˆð= ß#]_~úªì¸9I§Üý F©2}î¼wÐ}<³~x¼ÿ<}øhùÜúáóç}Uß"zËÃì$÷{ýѨòÓó³//v˜ŒuŸEfUçØIà ‚LFðÚÈ·kÁ8© I1‚gÊÆ3÷Œ÷‡ÕLÈÙte"s 9›®VBï|¼'ÌØÛU)ž¡§Ìu ¼D¢f)|Û9ÅÓ;®îšž£¦mv.™ÒÿÔO0ŸêT¹6Ë“Å*¥Ëor¿™‚1i–©p°z©— º]0cŸ9Vu›aÁœD²}6|sg £Üà³é²gïÞ˜ ú&Ý?Åþ¶8€Tüðy#=öûáçìÇzi9_¬Òb’É»>B4ËSý~¹üý„ÔÅ8:Ýu4WñJäõ7yÆ– /Y§V¨æÙOM̱°énjþ3-Å’€ ÊÓ]ñf @I¨ 0Çé®\òq%±ërš0鸒Ø]â4aÌði©–áɸ%ê~¸Ó]ê²e-ç'ºGûöïï «§°‰%’èvàAN¦¡žÀCœ&Œ©žîþÈ$ÀÝÀ#œ&|ZLLá4a-ö$ðYœ&LÃ$ŽuNwIm׎?A@"L'9Mø4™ ©àcœ&LÃ,JÀsœî’š5‰nSÀÇ9MÓ,vÕ'¼0„uöeÊd†[ð Fš‡80Žª„ºÎ?ÁiBE¾¿uΓ–nÿ³À/rºKjWte~øœîŠ¿§kyM™‘'{H?~“Ó„iOö\Ë5[C5“=×Q.Pæýx^þ†E ;¾r]×H?=‚[èà0h©C Ñ|"±» 8z$ùfDì®n½)ö òõƒX™Ùi“ éf6Œâ÷@Õ†JdQt»Z}ìDS¶ám‚ò<*7¸~~ºË,ºV¥ ¡Å¹Ú£A£5¹²Q¤7ÞdcPžm‚Þî3ü´Ë|˜eF†F†ûwzC? o=÷í]bëT¬rÁñ]µ?l=nè¶ÃÊeÓíUlØG¬u C±² ñ rÐE WØwfž5µA´8¾ ß? ÇG¹²àÈŽld3Çοà4aÚîzx Õx¸2MgÏùû븽U,ºF‡Ÿv K²ÀÍØYm‚ÕºU6<óóö©îº'ës >k±ÌÊIX]VÖó¯ôÓfI™ ™ªÀ_ý«É{.bgŸ ú¹±Í`R˘“Z#µë3ºÉþÉ7®¼®·&Ñõ“/óMÀßØ©7”ñöHt˜TÆ'€?ýcu_Ëb-õþ/Àýïéèý?ýsŽ¿õŠ_u>Eç‡)Šç[Ñ%ôõ?8v^ÂiBEú’9F’\¼†Ó„)(«óÀk9MSY‹µŒcÈ4¢Îë€ë9Ý)·©åü ï4$dnátç…ê :‰ÝÍÀ­œ&LÃ*nnã4aL«¸Â‹‹*–Ãs½X^6^§?r˜CRmã4¡¢JY:^`1®é_n6o/#õì7t¨Œl"XľK@<’ eu\qú:xþGÕ¤¾Å{{¼ÍÚ¤M«>^]¿~gT1×CaëÆß¡,±ýF0'LîtMädŒ$N¯€ñ’16‹³MX¡Ì[^•u—ï/"y¯kŸe-?¦ÏIb%pè} fÈîwb×¼ôé;b¿_@<é›øM0ë›’5ñ9 ±zLÀÄç7ñ›`Ö7¥kâ7Á¬oj¯‰ß³ö±m&¾f½!Qï6 QCÕ 0lBõ¹n.UqÚD[ \Z*ÒfÂ`¶„‚ÇNÛ„7À|}Ä“¾ o„ÙnLÔ„{œèùÊ6Ân Wv¨>í¾¶yâ/ªýnÄ{„h-yûo´kã;bß' ž˜blbö{Ôr ÞAzG©ë±?ëQmíÚeoª|Ƥä\äc6N¸ ´ÔZJ ×ÅãÞäȉxõw´uØH컌7l\Wš×X& ž˜µr%3£û­âä”^žj\JŠ(Þ-P¡?î¿Rº¶š]Ðå³3»qñ@ŶhŠ:gÙSBÞÜZj¢&Ä¢’nCø^ÜZn“›ømô3_Äp'èÊ”t½·àììl.‚²B¶C“»ƒ~X™²zÆ«v˜ªvýHüh#ú´ ð,àè eÅ_2®WÝiºÖ;ÐÑPëÍv´Õýû.ã¹ßËâŠ3ÐÁC+ñĬ•w×eµ½¹¬vDŸ6²Ú>F7§ÊV9«Ê gÿÜ Ýe‹ôŽ%å´=Ú”­W¦½ì+|›«7alœee›ÖèZDr g§¶§R)²¿öïÃÕÅïMo¾u‹æÚ¦Î">-buå`8„ïýnežæ²þö~‡Êu„v˜eCBÆÿô* KCŽã»÷ÿôµ¡3 þ üè/)SQ×È°„<ß~ ô·ªcÂ*BØ~ømÐߎ­Žu™áíýYmdëæá‘­[F¤ZÐw€ÿôQ¦Íï« –I}óàðPn˜ù•AÇ,å†G•ÒY“”ÿıs§;¥¢ÓåÍöDÛm/§;¥f(ãuÄ~yý'm1¹¢k¨¦ç>Áú(adÕî÷ú á!Öí³Ê…jÞÛÒйW«ï§D0è_ ¹- ¡0„'@ŸP·²ØP™o}«u,ìŸ'¬IwV·£v+$äÀ³ Ï&ß­»“À9ÐsmèVˆÿcÀs ã¥hgÓV yž |ôÉw+Äîqàó@?/¶:Vd6±^…u)›·K5¢çŸý¤2ÅÜÔ¡lߺiÛàiÇÉÍ mÚš3‡6EìUHÔ×? úÓÉ÷*ÄîåÀ§@?•¾;'öŸOÚb sm×PM¯b÷*#ìW9âmDÌOù3Ô³4Ž\¼«2Ê4º+§ÈO—ÌBV;ÉH×<]6Ê4T:˜ÓÆrÚýÓ¦kh™ý'ýðÛ Jh¶”5–+ïÒË… Ë:C]NCÙ$Äœ¾ôK“ïkˆ]ø2Ð/‹mY-S©ä´‘á,dÞ²™Â^+¯kcºKá‡wjûÆöiÇi/}dçG’> ü4h)OráÎ…Hƒ;¶mÞ4¼exxÇæÈÎDýðïAÿ}òÎØ=üÐÿ¾×!ö?¢Ò/gïð A׸Žk«mš#ö]â‘4ÚqÅ¡³½ªIM(±»*!Œ¿«ø¼Õ¼GxèË6Û­¯[ B!ãª2¶![_‰]ð ÐW´aÔAü¯^ú*å&!wXdÚÌ‚Vyo ‹¸8z ‹¸˜‹m‹¼a?ÜZî0`‡ÕIªÝÀ;Aß™ŽYìÞú®tÌb3ð 胱ÍâoÉ£~`ݵè4`íX/ûŽ×Db7ÚBèø‡*ÙÏê´Ÿ0j7H%8| è—¤lå¦XC51ŠDo¼ Ì “ë—Õ’3Iˆw#0 :ï»ú—Í‹£5¡srÁÄ6¼çoVXÓ!¹…)ð—{ Sèˆ]0:~ïp×Ôy&x~Š±ž©1zšK’mxôaeU³tÜ1 :TaSóÙÞÑÖq±ï0޸゗ÞCûí`ÏrñĬ–Mëׯ×òVeÎß9g•°ê.&ê§ý,m#{icdÉwB‰„±¶Ð5.3Y´[Hî\Å“˜,Ü.´«£á ›¤¬-TŽ[ÁÛG5V¿ÇS¯^ÌW‹”vÏÏ¿WЊ֔6­?¦ÛͦÍ<Í£—*EšmœÑmS§yÈå…ì„{@ï‰]Ž«™–oœ3Iß´ž–)Ð^‘c¥ýƒ÷õG–ð6HE/w¿øí•$áL“„Ã2òÝ™¯}e,r7xû¨Æ"ûÉ"÷ØÔ“A‹õÝ6‘嬭¶k¶?¶¼[mÃ!¥²Ð%3gfµö«õ,dÖËj´g}Ô>ºÒ÷B`B!¨M]éûÀÛG5J¿ÜsCÞPC…D–îHD(\ðSºí8O3ëØiah#4·Q;æ%·ŒºË²j#=ªP…®éƒœ]ÔF(Lݦ­Bb»€x$U¸$®8‹:x4á#ž˜µòŸ”ÜOòìZ^æ´*]×CVäVõ ¬"Xfïá{;ýþÈÜË“1€vóškW gƒÖó1ÃËmU]öóŒÎLÌ£ ³Ü”\ßK Ló¯Î²ø™¥‘š_X×ï«ÍTñÕþ_õóuRÞè•|Qw-¢üð?Aÿ§²&½¬­µ/긕=]À^N‹‡Áb6ÓÐ%mzþØ.çtgüdŒWùɶ½©FäÙÖ Û¶lnu;¤EJÃff£MXUÊÎíeùõR7ÛÖŒY0 ‘·LSyVâ4a¼ruMŽ›“þ•'Œ³ûAVÆjÑuFíB–•qʵ J‰þй#{NÞuhÏ©±Gî=±ßGi‚æÄœ“›2\£<“ékúº¯—Vû¨ÕëxלÔ27”ËOëvFü®¿ÞÏôùÛ»ó…rî´S0ŠæŒ+î`¹Rb¶;}Z?»{ó kœ(•Šy*{±o—vœý”7³4ç¸F)GÁq¦¯`åý¿òþ¦ö~Ö?!7Ú‡ïm_Ô²'(ý\¿¶aƒ6Or^ LøããÞ%Œ·RŽøŠ{ÛöC‡ô³Ú¨vŽ}Ì|ÚNíÜ$s;5ŸÇ@٘͗súø8ûŒ}•Ë ²ÿûB ŠÓ[}ÙóçwÝ:`EÉÆ [cêmõ÷ %¾­ö#ç7jtQ%)v¡LS1„ßïÛ˜mPQ–•¹á‡úÏŸ›|juÏ$úÃ@“ÓfTƒ§7æÝ3¹b¼héT€àûÈ[$.›$©O ÒŸ–‘^ôÊÝA’}ðb3«ˆÑº²Z ær1¥®s7+neaA™/ÜÖjî+l¦*´,ÝÌ‘'Y” A⎢h§ë"Ý®ç×rxišCÂVq‚ªij»³®ÈG<’®cYìeµ¥ÁÖj) â3gC„Š³ u½ ¢tJ‹CÕÓ_,7h ¿LxVÖ1fmtE_¢/WWƒ^Üp4TŽ^èÀG©–´pÜj.¤!-Gí®-5(‘ä¤åPᥠ¥f`¹.çBûó´—¾,¶½ôQ.3F1«Ì)Óu²l”­—I†º=åDoà$àåÀí ·§×ÀÅ­­£ ¥¦—â6pà6àí oW8ÏUuØÐ&Äß‹3êò Zü6r7Hì»Œ× ^Wœ•ÅGù5ñ[‰« €Šümäü$N¯€MÇQ#:Ûî&q.ÑËþå–²ód« <ÂëA_gD¦hžŒäÙÌÎ)kæ¡ódÄN‚ŒßÊsZ²Ò‡$#&v=ÀaÐÃéû8b?" žôÊjnÒ&çTy‚„h½õ·i«MLÇr´\-¶™Ç݇þõˆCÞ„îðÐ->ø® w&6Ìñz¥’º4ŠÊ´ø0臕ù¤ži#rº,’Ä΂žUØ[œÏ[9Z2ünV’Û> úQY¹çýò#À³ ÏÆn£Ç½µ\ÖÔŸÓNjÕ2Ö©Œ¿ ·ERþpºÝS?Ã/ˆÄ-t@ŠþɻŨ~—J3üè/)Ôsˆß%v=À/ƒþrú~—ØE@<éû]þÇäüîb>2“­(8aEÃç÷ðvÎÜ'ùÑ)Ãnö´üv ÷ ìÃ{±RÔó†×ø1rîéÏ –­4gÚª ÞeÀ´òF mi7-zgðÓ ?|ÓZƒæDøè§ÒoZôÎgÄ“~ÓZ‹æ´6Ù¦Å';$dëí¨÷ýñšÖ¢&™ŒZÓªß:j ×ÆN +¸ø–]j¼Úßò@QPóZvÆÈMå"§„Y‹–@8zFY¨ÓËË1jœ­D‘@ç/ý‚äÇ_Änøk -v;Y¾K£0ÔÛj ¡ _úÊ$ßN^|è7%ÎcûJà›A¿9¶n¼²ÐyêwÖ#Uè÷ª‘¨o~ ô×’ïtˆ]ðë ¿ž~§Cì¿! žô;uÜô=LpíͬKˆÖ T?ŽÞ9¯Ïq´²a°Œî¥÷6Ìù½NÍü5 Ðl™*ö;“C ¥ä§B;æà} ïK¾!vwï}üæÕùûSâIÚù»à3A?3}çCìOúÎöì·O…ÎGj!þ¨ßá47Ô5<¿PÍÛDµYú͵@ ´–¼Í^;%¼ô éÛ,±ï¢Ò÷Ž×ÔÀÛß,ãƒhÓúâ3`ã>â‘l-WƇö,PÍ.›ËèòØKgÂv˜[Çn}EÓq锩VÖ)ke­oäÅ“ÍΞK'&Y>Ê%–ˆCHÚ)࣠՜¢¡_Ô~,y@ìž}.vºþDxøÐÏQn­KÐ,%„{ð­ ßšŽ¹®…È’öúàë@¿N™½þðm ß–Ž½þ*ð·Aÿvz0âÿvà;@¿#ýl=·ðªéÁΠËÓò%¦ÙðÙ,Tõ¢£eøù ™¦KF¬ Ç°gjÝW@úÈÚ±!ž‚RªK»…$<úL,'!¾µÖöWjÈžºá†ä²ÏýÜä›±+ŸýDl;X̧%Tô<à‹@¿H™ŠÖ¹sc´O0Í>= |+h•¾¼…Ž^ |h)Óuÿß¾ôÛÓw]7qåÖPëúmæºö?ÊüÔ€EãrÝ‚¥•­Ú^1T륿õn¾½ÌsNÞácæªÃÿûY³X¤OkºÌfÂÐ bãkN„›å1¾é–C¾‘˜úSê+j*gtÕÙ!Ûå©âI¦Ï¿ú Oû(ž¤ý ð÷@ÿž’¨ˆ~ñ=À/‚þbò®eš2á€þƒöDñ$¿ Zj>5‰(ž„úðŸ@ÿÓÓ?Š'qÿ øCÐ?Tf¯ßþ3èNÇ^¿üo ÿ[ºBâÿàOAÿ4ý®p#·ðªé ×±®ðþiƒ¶ü­ÑåÊ@Âu ×)‹ä$O’‘0W¯}]ò&Kì.^úúØ:zEí|O»0ÿ¬«^©é( âŒÀèôEã†Ó¦#é<²™—’Ýö<ËlæÖ£ Ñ€ý!e6ÒutŒ}|ø)ПJÇ>> ü=ÐR1ECùoöôKŠ²J<¬ ¢ý]3P ¾åE($ù?ÿô¿G-½1ï"”%ã¥Ó“R°JÚHœK2ú($ðÏÁ.#¸÷`ƒúÓI IŠerEêùÔ*e¡ž¯µÙ·«f‚;¿d¹¶èüÔ¨ømôUQŽO‚–Ö…´OêDØ^ûèPÙ£EîX‰}—€x$ÝÄâ¸âäسL@<1kåJZ+²Š“SzyJ»Ï4òÓî„^5l-Q¼A(ŠðJÐW*sª—ÏÎLì.®>iÙÛò²O[ö”„7·Þ¦Ì ³G7‹!|¯nï¨Û #Ï¡ÿÀ åNh)ézÿúÙÙÙÙ\e…8}r7ðaÐ+túU;LU»€€~$¶ªºû#;_àYÀ Ð {½êN[vˆ£ÁÉÝvº_bß%`<÷{]\qè”êJñĬ•3÷{7]¥lgµ±œv4—Õ6hwéöŒY,²!×9mONË ïØ>ÜŸÓîʼn­²áðÍ·³Ö€wµ?0ò`×m³æ—7 UÛà;ÛJÞ9œãÜèþîR©ZfC4¾­×,k'\F³ßÌ;YZ@¶ì9ïwx7è…_\Vw#°"ƒVpw IÈóàgAVa\3a !l?üèÏÅ6¡u™áMl0=<²yÇÀÀðÈÖáȨ“<Ÿ~ô·•©§ßï –I½ÀàðPnxhûÐàЦ­ÃC;F¶³l÷þ± q¿Ç‘ ŠhBeZœ1쉶ßÛNNw¶Á=û®:úOÚbl⯡šÎânæÇôjÁ(OTé¬v"§Ýï¹Æ½öÜ™,ùÄÜ-nanq}‚IŸc~Ž"½¬çÓ‰Ü6£„wƒ–J·Øn8dUm:UÁÜ÷þB•»\öϺÕw hƒ¶6‚)bwè€vÚÐX]mcÏBr<<ú|ò= ±›>ô³c«cef„u,Û¶ ìØ.ÕŽ~øë åös\h§²ixh„ᶭ;vlß:4<4442´mKÄN…Ä}ð÷@Kï¿ðN…ØýðÓ ¥nFŠç͉ýSâI[Œ-\ã5TÓ©œ¢NÅš0ËŽUÎjwæ´»½>d…Ö'i!ƒÖ%xvá)ˢŠ³<µÓÛ@)Ä×Ìq7&FˆÜ2¶¢D„§@KÝ Ø2.©u%Ô­äM£œš5†{ø(hé³ÎÞ§»gmÐR]YÌ>…ø;@´«L?[%Ä9' ž¤»bW>Znw¢øíÊÌ0UX—²iDªáœ¾ô‹”)榠qÊÈðæAÇÞ¶mhxxÇH¨òBºõIàGA4ùî„ؽø1ÐKßû ˆ'm1¶qm×PMwr‚u'„y–P´Ì‹;úiF¥Ì‚{—6ä £Û[«§×éV¡ )#rƒØŽÂž-•À-x:W«4t*Ö¤;«G¾?—„|x´Ôm±Ñzbw8z® ½ ñ x´\¾À‘ʦ¨Ý Éñ\à ¥ŽGëVˆÝãÀç~^lu¬ÈxS`›£TH’çŸýd²½Êö­›¶ žvœÜÌЦ­9shSÄ^…D}-ðÓ UÞ£Ò«»—Ÿ݆ѱÿŒ€x•~ù8{Ç°)lÊå;Ìuì­œµqq„Øw ˆGÒhWćÖ{ijV$2?ï‚Jãg~=„Ü:GH+áÖ/}™Âf’rnB(\Ý¢ŒmÈxb×.”ˆi{ý wõNš®Ÿ®¾æ—`ó톔à•r6œumvF^‡%ù¯>Z.—Z¬&v+¬ÙG5ŽG¢‰‚ùh²MLîœ? uðFÐ7&ÒÄ”žóÅ{„Wƒ¾ZVìy¿Ü ¼ ôMÉ7~b×ÜzClk•ÊKA"lÞZ겨Lû‡@JÇ\cdQ!i·÷‚Þ«ÌZG:j9Î=Z:×y4k̓>ÛZðú"¿›rø!coS|ãž÷¦,¡ %•lG€ïýNåM@* /‰ôà'@"ù˜ˆØ½øIÐ*w¶¶0´w?úS± íNÏÐô†ˆH´4Í·«¦uŒ¨ â÷8zû/~£¢:\:î†^t¬á±º­£­ƒ0bß%`¼AØ¥*NèQ×Û;øv>â‰Y-ûÖ¯_Ï¢èb¾ZÔ™A­)Í63Ìz˜­qwÔtç^ª‰˜ÑmS§qtä’ì†R ÷Þ»$G º«Ý: 'S2t§j£}cc}YM7GÝŠådµ F”©¬–7GóÞ'FxŸÐu£ì?¹‰üTäBíAA‚>šœÕ†Ê±¼}TÓz™4l½ñOm5[ ÏJ¤Ãý4¦ë‹\Á::€>»0×Ò~If),6ÊÌ™YmƬ+?ºâï€\„ׂ¾¶ ŠßÞ>ªQü0)žw1P¸kWS÷dèlHîe]Œ,· ×ÚüÛpl¹/›(V+ÛKÚè%_5ÎV¢+÷NDxh©I˜Ê®WP¨Ü#¤\³X¬:¬Ž˜÷w¦mPÑ–c¦k®tךÕí‚ãi>S;¡Ù¯U¬ õÞžäÃf¹LQÂ# <Í÷!ÈuHi㾂ŒÓ“Ò·ÒþiÀYD&íÜ8ÁÂʬ6’Þ"þ»H ·`Ñ܉„aA\BaÏwLÑÇ]㬛Émuª¬[tÙp<3­»™Rµt´Te$+ƒéÐŒµ)acÆÿ«~è!Væþ~¦¼qvt8z…-!ÞE; Зgi¤¸Lz;ØìPD¡û.ãÐçÍùò%§ˆ2ÑES½ÀÕ W+œ69cÌÍZvÐÞ‹{¡ˆ{kãaÚJ!ökÄ#WóÞê *ºÿ¿ûPì{¤7VÑ+ñ+ëøgkè³þ£ë~ ùÈ`®­ËšöCr­l.ͶA·Tcÿ)íØ;²)?86Q5‹…‘‰íÃ…acóöm›'†±)m°¤—©¯ËùúBú¹Uôs·ÿk­B«n*j6¤,Ï[åIºý´Å2CÈ.ªá%Àµ ;ñk¼ãgü³Eóüâ½' àZüËæÉjáË%óÑþrÞ¢¹¬z].%ɼÂïùþ¹G41µ²Ébü\0KŽ;qðTÞõ Èû§[ÿ¡Þff·EUŠP£5Ý,oþÕ["üj£ÕÌkKX˜4‹F‹W.8áCí ÓyšöŸum‹4ý²”±s—à‘#pEz‹Ø ¨ËZ \z•ŒP\ëESêÁ»P„«A¯N_']µæÅ"ÄðNÝÐE7lv©¬ÍFÔ‹°åB4Ö´õBìŸ! EzY-ú¸­BtÓ}^ú²tÓ}^úòôuƒV5Ä£H7«DÝ”¦#ªfÔAx)èKSPÍ"¨cQGà4mZªYËðñri RÍQ5õ"*g1²’-••.¢rüÎwqGà$eZÊ¡çJñ$¡œ©b©Q9K %)+ÇÁ—´W9K Õ*§Ñ©ÍDTÍRáIÓ©-…:пµË©-m´HÅN튦X çEoâ%¢’–ABÂëA_Ÿ‚’–A1„h-}%y³ÙâI¢ý„O‰…¨¦êèM¹ýôB½ím?Ø_CµígÃ>RM´hý»L¼%ùLYµc”Ÿ-ê,ær¨‰pô€B•¹¦[ š*X5æ@çÒW±¤ÊÅgEŸðOÌZù º 8hûj¾nQfƒEÕïÆÉ[Æä¤Ié\'[Û æý‚UæÒÎ1‹.ÖÔ*º­— öCÞÙú&"×Ì×’”E¬Š–ð7@ÿFÜéš7'ý$Ï'Œ³ûAÛpªE×µ Y/Û¨m” †ýй#{NÞuhÏ©±Gî=±ßGi)ÿÄœ“›bÅ,Ïdúš¾îëߥÕ>jõ:Þ5'µÌ åÇòÓº¿ëïŸ÷3}þ Ä|¡œ;í°Ú4gì\ÙpË•Ò`Iw§Oëgwot³¥Rq Oåc/öíÒŽ³Ÿ¢Ÿpæ×(åh0ÓW°òþ_yS{?ëŸcíÃ÷¶/jÙ”~®_Û°A›'9¯&üÆñq/mö­NÞ6+îmGØÒÏj£Ú9~ÝÕNíܤUfàó(³ùcNgŸ±¯r¹Aö_ˆAQbz«/{þü®[Á¬èÎ(fŠLý£­þ¾¡Ä·Õ~äüFrù²`55”i*†ðÛã}³ *ʲ27üPÿùó!¶Þ2)8áK€¾_˜ÁÓ󒂯/Zz x-ö®²Ìà„¯¤½ŒôbØ$Ù/6³ŠG)«Å`®! Ä•p¥7æ­W­¸•õ4eÃë€n ùo½/lu.´,ÝÌ‘'Y” Aâuñ¢h¯¯?Št»b¼`p›cU`PQV›ÖóÛY1$R—€x$]ÇÆ 't×Åê ûˆGRž0'»ÐjRHeÑ;Ë€«A¯–.X(¹sÑk` „W€–ša äºd¼ä¥­ aŒMA9Ë%Ãæ­ËRQýÚ;µ¦eÀ¤¢ùÐ-dB O7š¦Fóû.` Â1§Jú5ù*û¯=meµ)½ä}T™6£ÏG\)<Öñ"™Q}Ù5Ðaè¾Ø¶3t¾Œû0VU®Ýq‘¸ëc Ç.Çu-*š° Ž‹Øn¶Õq‘£Àv:®ë ŸVŽëúŽúþÇ„B¯ÈçaI–uÀTC¯ë¡Bu¡×Íà®ôbeZÂQ‘ W÷‚Þ{Ñ8* ULØGEl·Ûê¨H€Q`,GÈvñxÕѧ‚vN®FßÐ×1‰ßF^®'ö]â‘4ƒqÅ¡8e…€xbÖŠDZåõP a@ZeEýÆbîœ$dë®î˜—² b·±ºI¦Kô²ÆÅ¢¤Rù¢î82•·x#è¥+¯¹Ò–õ!"ï‹ÚÖIž[€›@oRÖÖCÓŒ»›€›AoŽmÔÑïÕ&½<øèT·–)­èÀiÐÓéhåA  Úl“VNÏ€>£L+ëúš'{¤ôcŸýD:ú)Ÿúy±õ³(«Y¶ŒŠž|è)n8EGJ1O_ úµé(æÅÀ×–ÛJ/~»+ç]„ÊÓtIjÙrµÌœáök&%£|mFÁ;Äc9'V0÷zàŸ€þÅý-K)ôûÀÿú¿¤£Ð?þôâÜrjù¯âQVzÓ5J!l{€úïÓ¶ûOúãĹM{˜Ü8±‡&¯$$뮽Rz”ØÝ$Ñ^wš®f¶§ªäjÈM¶á9:T¨»æ„Y4ݹúíšSFÙ°Í|ýZ‰ò¬ÞúžX~HáL. õ0°º °5†Ü›AìN ÐFò.Ø'AOÆn}×fµ‰ªgJ™|Õ¶™YçXw6U¶l£Õ=’hSÀ'@« ÃBÜ#±ë>tü0,²{$öÏOúîñ&ÞÄüРP)w”RÊWßýt”ò‡Ào‚þfüfÒ5#þß~ô·“ˆ]ð; ¿“~FìÿD@<éanÎ&8Háç$dëƤô4O@Qä4Å¢ !èªß_/!ê:`tNZŸþuÙqs’2[ùYÏŒReúÜy/¹ÕxfýðxÿyúðÑò¹õÃçÏão–Ž{uýpXe·ÌcEâo}{ÔbÐóòX-/v˜¨‚±t‡‹L +x· ønÁk¦ÒÕ±Ð>GÒD’bv3+Æ3¾rÇûÃ*($;•2É‚¹†d§R«a?ø´é¦ß®ºñÌ>e®Kà:5RñÛÍõD’!s<õ‰kÂÕM‰‰Qr´“|Ì@ìz€.h7ý˜ØWÄ“~ÌÐßÁÛ a’7z5jÄ@õãOÜ$1ôã=Â,èl["†Å㬦åâ~¸ ô®‹!^ o¿UFðøñ‚21‚wÛ°xÁSmähA™\‘¢µJY(Zhmöíª™àX!Y®-bu*~›F¬ Jn¶’ˆ]°º’~¬@ìOú±ÂÍh„ÉÅ Ýö´%!X/ph©³Gɇ $âjà- oiK¨Ð3^Ñ-= Üz{Ô"´#P w‚ï<~  LŒà]Ö,P`Š&(“*R˜ V% … ­L¾]õ$$˵E Î8Åo· ABØšwü0A”½ ºœ|˜@ìz€h©è$^˜@ì+âI?L¸-0ÁežcIB¶ÞŽz×û4^† ×Û½ áյܴ‰?¼½ã"Z† w ‚ï–<~´ LŒÐe(7rÄ L²HƒZµ,¼ ÑÚôÛU7ÁQC²\[D êŒTü6©Qò—!ˆ]°Ëľ*`Û–!²¼ &8µP™6%ë>ͧHÄÕÀvO-„WtË`!+<ÕÔ ºC¼MS ÊÄZ`Š((“*R  V% O-´ð-mª—à !Y®-‚uÆ)~›F J^]L>H v=ÀèRúA±/ ˆ'ý aí0Á#‰^öS Ñz«:âIL4L ׺ aÂâñVUÝ2P ÁsÀ[AGNBØŽ@•<~  LŒÐÍ žj#‡ ÊäŠ*¨UÊ›Zz˜6ÕLp°,×Á‚:¿M#X%¯€®$,»࣠ãïˆ,{[@<é 9´@ƒ/±„h½À§y°@"®í¨÷µí ZUuË`!'<U°@‚Ž ‚·)XP&Fh°à©6r° L®HÁ‚Z¥,,´ô0mª™à`!Y®-‚u*~›F° J^éH-X v=À6 ÄÞ°mÁ Z a‚Á‚w…„h½ÀøÁBw“HGËÕ’—Û™sÕ`–ìÎFYÒôrAjÎbÔ ¼RiÇ0dª}-ðaÐ+ëXz(¯„D.pô¬ÂöXÏ·ú—Mâ®-™N~€'q$ä6€‚–jпüð,è³±Ûèq/$-ÌkþœvpR«–¹¡™F!ëÙZÁ˜Ô«E/­³BW?cxsK´­’÷Ož$5ªß¥ÒÌ¿úKÉû]b×ü2è/§ïw‰ýWÄ“¾ßâÍÖ÷Šñ Y$dë®îPVëmµÄAÃ5²kæ˜'اÖ$ky³Ä^¬õ¼áµ>”£·lÃaM¤!ÑœU-X ’z“¢zZüè$ߤ†ÐŒ? Z.EK¬&Eì?& žô›Ô0šÑp²MŠßm$![/0~“ZÔ$ÓT­IÕ’Û mJ¯§¯%Ó÷Ä·ìRXæFŠjε)G˹©\äBÃh „gAËu £g^’Qãl%¬å„%­!~øBÐ/TØ`C’Ö»9à‹@¿(vKY¾K£T/:–Œ‚^ |èW)S|Kyð- ß’H:í«oýÖغðÊBÔ½VÉú¤ª}M¢¾ ø ÐßH¾Û!v=Ào‚þfúݱÿ–€xÒïvF¸é{˜àÚ»JOB´^ úôÎy½Ž£• ƒ…`ÚäjýNÍü5 Ñ"ç=#ù×>”’Ÿ íDH˜{€÷¾/ùN„ØÝ ¼´Ô Gñ®r ö§Ä“´ó!v=Àg‚~fú·Ø? žôÏ&nÏ&ç|–àO ázk@¯Qôþf‹ôÌVÕ­T]alè]ä Óõ23×T±­)6„ô®˜¡3{cß›3HMY¶éN—x¯L?Ïç¸Ã¦YxÜ4”¨§K€ïý>eîm‘wëjTïF²|ø ПHÞ»»÷? ú“±Ö†ˆ>IKB| ø9ПS¦—%wð9@ ¡¾ühuQß’q瞪冩æóÀo‚V÷Eíxˆý·Ä“tÇCìz€ßýíô;bÿñ¤ßñlæía‚®Š–®¸¦#nÇÓ÷NM‡ß3˅㓈õÛ0‚º’ùÃ@¿»Àë¶Á2Žj3$%tAË© \M:Zs‘$:|èç¤á¥ˆaø« 5}/EìŸ+ ž¤½±ë>ú‰ô½±ž€xÒ÷R[¸9{¨ÖKµÞNr<‰Ñ Œ?on§k,~5‰?j³$ÕZ ZKÞf·ÀN o}Cú6KìûÄ£¨ô½ã5µðîƒinâI» ¶ÂÆ}Ä#ÙZ⊳ -ÄG<1kå(ó"û"^f•×ËâV'šÞr ×»Ç$b™¶C»„GAUÖS÷zwŠž»7òxºø0臓ï»cÀG@?[Ç“Þ"…TÝ,Ë'#«NU/j÷ëÅÂ]¦#ßùª2½ï­¢8ÓÖl™æÊZÅf¯ù÷ÕLš®7ƒà-÷ç¢Ú3•ñYÀ?ý‡é·ò0;Õ85«c^ÿSÛ:˜qú…í×'Í «`TŒrmŽ†·D^Ý;£s'ŠF¨ƒÖÓ¯í]`í£šÚ–…nsÂø¡ÐlÜz!1V ˆ'ýzE]Œ*©—Ž¨Ñ±í.½4v=\¦Pp‹6É´ xèë”uVËü{ëû¢öU$ÏMõ³F7uH͈ÖW»ë;ê»–¯ïˆ“–Êÿö’º÷«];,¡§AàÐ{bé)p.ê’î(ð$è“ •²žOìîÞ úÞtld/ð>ÐR‹‚ U¢¶’šódÆÌÑ÷òPî¾ô»¥ Ö¦Dï$ü{€ŸyuÞHû8 ü)AðOÉ^›8èZ°³ 9¥L ʼnޕÉÌ5ä8”Z¥,|J&Ñ{Ò5|*Y®-ŽC©3PñÛkûΈ"~ôw•µ¡åüe©)’èÀ¿ý÷ét™üÐÿWgWû£zÚð]_ïÏi'§…~“}[Óimݦ8§ájÙS÷þúžŠmMšÅÚe¶Vý;¾µ h>Æ~âžÇe?á¸fÞ3s—n»Uf'4%qwY¯T²ÚÈÐЖ]Ú}¦‘Ÿv'ôªa{mÛ¥ÒógêåG††7Õþ©®¦sÞ§›Q‚¢îÒé<&¿^u-ÚH˜×‹LpoË‚7uQAÏêŽ?wá…˜ûcŽ]]œ&Td±+y=ÊÝÒJ2aˆÒu)§ S°Ù®nàeœ&Œégz$®% .^ÅiBEÊY%*爔vnæ8Ý%5bŠ®«ƒœ&Œ;ÃÅ’ж]Þð¼¦f–YÓ,j|é%¯;†“ÓösçÀ<Ç ×ic½fœÕónh/¡ú!à“œ&¼èBò®—ßÌi‹"$ïz‹ ø[dW’«C}H®F®¨!¹B¥$’'Z3¡!y‚\[‡äŠ Tüöäxy¬;àEV%Zù0&'½O/îqx¤ä(íº»G€  / ×Ý}› øm2‚+qÝjÄž®Ï”óÛj„Šê·jd!¿ÝÂàÛU-¡N;A®­¶"Ólh ž§ŽÑX÷B”½íñ“wÉûÉ}À£œ&¼8üä1Aðc2‚«ñ“JÄó“wIúI%BEö“ê4² Ÿ 7øvUK¸ŸLŽë~RiŠßn©oEÂäM#šSSfÙÑ6° Ö*U0K84BG[LŠFc4î' ºüVávşϾŒÓ„‡_}RüIÁÕøU%b¨Ž?•Ù¯ªÓHBñg’ÕîW“㺀_Ucš -A6þôEyD‘Ë‘±¦£}ñç«oá4áÅá'ß*þVÁÕøI%b¨Ž?•ÙOªÓHBñg’Õî'“㺀ŸTcšâ·}^üY²Ê–k•Í|Sºo?iŒ–üÈù…¶8ÑxKUÝ_~›ÓÝ‘·Ë~Gü;2‚«ñ£JÄP¿T¥F®È®TR[ªJ´f½ir\ð¦j Tüö-#d|ÍjÙ‚EÁ~Á~«å& ñ;E­Ç'zqÚC5Êj™6xÕ¨'pNz_z÷¿Áéî_È >ï—ÿU²˜Ó„ʪ$|×K÷Û%œ&Œi½Z6<ïܲgÏRàFN{؆á”ü´SO¸‰Ó^ a@ÏfAðÍ2‚+ Ôˆ¡xÚIPQc…IfÚ)Ñj äÚ:Pdš -ArÚ©&Êvˆ"eh›¦zvïà´‡…ŸÜ/¾_Fp5~R‰Š§ÔÙOªÓH2ÓN‰VK¸ŸLŽë~RiŠßöÕ—=½}Ò9íXÙðNÞ𬠆«ÅhÉ“sRYZFi$FûŽî kÚ-öÅ÷”€UN{˜ü¡g 8Ãiã©m»!S×üs2EóŒQ4§-« p»{Ï,ðœö0ý1ÞbÏï?Ãi/ŠNñ³‚àŸ•\M§¨D õsˆjäŠÜ/ªSJbsˆ‰ÖLxט׺F5*~{–¡1DÞ²méXå<ÝwPzÆ—ð/ á_´ÅÆ™ù>ð¿rÚˉþ½ øßˮƉ*Cõ Œ¡"{PuIh&Éj wŸÉq]À}ª1͆– ;ã‹òOåŸÚã'cÌÀø ÿƒÓ^~ò?ÁÿCFp5~R‰ªg`”ÙOªÓHB30IVK¸ŸLŽë~RiŠßŽ÷g‘­qÖ¿8£dÙÞâŸc:.Ý+WËQVu ÚtäðàØþ#‡5ÃqM¾?(«MT½[0Ê–‹ï27ä %\4ÆiÕ4>™œæ$ɃÀ‡9M¨LÙ¡9͉á à#œ&Œ©ì{ús^–@~VÖS,kûÞ?mݵlÇφc¶gk™¥Xñgç= øAN*Ò0fçî:Ùæö[ÌÎ-úðsœ&T¤çV³s‹>ü<§ cjùY:)¬ºcHæ\ôûÀ?å4¡"E­u™ï˜Ð)›O™!!Þ_ÂiÂtÚåw?å4aLÒ2ÈrðàAR^èÉŸZ×ò\´kWƒ³‹ÈÎ,úŽ‹pš° ño¼ùÖÅwïåôâÈi Û/¾Oü>Á•„ÀjÄP?ߪF®¨Q°B¥$6ßšhÍ„ rm+2PñÛ.™ü¨59î‡ò×2¶iVuñ)`žÓ„‡«,‚dWã*•ˆ¡xVUP‘ý¤:$3«šhµ„;Éä¸.à$Õ˜f÷YÉiÕš,&d1Ûã(å§UŸV9½8òîv9ÊAðÁÕ8J%b(žVU#TdG©N#ÉL«&Z-áŽ29® 8J5¦)~û>êÍ“íµlƒÔ SÌê;´#«å§õ eôÞÚŸÓî²fJ \¶\š²Ñ]ö6ÚÇÄ€kPÖ:6êŸ3bà+‡ÿm¨s-K+ë¶mÍÖóׯ h¼€±(êö”ùn#¡â–d8M³â$®s¹ öOØ º[Ú¹t„ú¶ë\ˆmðév É´ xèë”ùÝ¥Þu.¥™¾°* ›n%qnfAg•5öÐéVbw=pô@lM)¸Í…ÊwƒÞKM“ \[²ŽS¨«Ë\ˆÝÀ O¤c"{€'AK]]ÓPó/.s ôÜä´Å‹ü›‚i—rMÏ趩ӟԶ„½…7F—*VÙ»±‰N½µšœ¶§È~»ŒÜöõ…›ªÜrUǽÀÿ ZÝö¡ÅŽ9UÒÃâ”–^ä¿ÿ ô¿¥c"üèŸÅ6‘èÓOÄÿ¿ÿô¿+ÓI«W¥4òŸÀ_€þE:ù9ð— ÙPìáa'§ i¤Ûž¶$Ò¹ØËéN©ûT#+¤³ ¸œÓ„mQÈ àJNªr[SzIÎmu>x%§ ÓÐÉ*àUœî”»5¢]Vâ ájàõœ&TÕN*Ó¦ŒN63œî”ËD׉ìçtg\t>·~8 Š‘7'ç„{YýhbPŒ$jw¸†\7çLûûƒü@…kç¼Ð‚Ç,¶¨sÆõIÞb5 K5×,,.ѳ ü#NÊI>ï—? ü§ Sð]ï~›Ó]ñ³ÕÜ^kOýd÷%ýŒ¡9U»6 eøw&ÔF(Þ5ÛFÙ1'ŠÑçHøïpì^ÃiÂôçnçmÄÃ6ÌÛ ºy£ Þ¼‘c î!Å µåç‘HÆeÀ蜲{-pŽÉí ܵ'Á¶€>|ƒ$vƒÀ;Aß[‡ f”H »€€~@y²Ô×—„tSÀ2èr"]Ê<¶:Ðm¥c$+ +±äÖ8sJúzø>Ðï“.A›ö’ðï~ô§£‚ÞH{ —~Jü)Áã¯á*Cñ¾@ers YÆU«”dö&]3Á+¹Érm±’«Î@ÅoßÄs9úG&¦ /06ù beÿ s±µe¿7KOÓöÍa˜8æ ™ Ï³á$ÍÑ ù5‚Fã¼%=9ê¨ó™œ&¼è õ àg8M˜ÀœË¼iü+¦ñÅy>‰2üð£œ&”+ü_~ ð³œ&L¡u= ü§ c¶³”'ôIøÏÁé®_Ä.„Ä„þnÞZ±íª›Ð¿Å›Ð/Zyo™vÀÉëECѬ> º ¸ ô&eßZtú¢öy$ÎNàÐ{’o‹Än3p/è½±Õ§`.ŸÚ¼t¼¹ÝŠÜ $Ôp´º1BèT>±š Ítlä>àiЧcÛÈ·ãnåNAÝìRs ÞôóÊ#oªÎ3;wqšPUä­+Ó‘#o’e/ð§;SXQ$v·ïätgüÅÿ×#oª­»€ÿÁi§GäÍ„êºx5§ Óˆ¼7Ð ÉÑt­ã4¡‚x›õ üò5œ&L£uýO°½–Ó„W¼MÂ_ç4aúñöÞF<Œor]êÅÙæcAz$ÙÎ=õ'ftFÕ±_$ ž´ÅØ‹º÷OL1,fÔWðˆõ]š“f9Bßà™:S¤íÅ"Þʘm.hÂ8´z ø|A'¤‚°ú¼[qرˆBxHâøöFéyêð\C9cŽ«•+vÙr š$ |‡:IþàZ•jªíEã†=ÌD“J< ‘~ø}AÆ¡Ó/ èDø0?JiVÅ-‹3¬é`›gôYâ䔲mÚ†SÝaïÍF-›µâ¢CM]ä|fT/&ip3R)ˆ#XĊ͈)²O(8*XõÒЊ^·¸}×›F¨žÀìÒL?©›pfq Ny¢Ò~» CIª× ä;Ñ~Ø!»Íÿ6ðˆöva®UT3¢]ÁF´÷‘2*ŽWËåÚYW€^q± :I¨5ÀAßý “Ø­ÞZ*Œæ ˆÝeÀu åo•ÆÛÄ!ßR ­€YW];í\/3_P¶Mrð •Ë–é;y£ÚLY(6Ló{ºcnÓ"Ó´è†IyÆŠù«X›#¬u5Þ—ÕØãð}—uÒ“Ú‘ø„‰Çêw2Ãs†¹—`æivÓó|{.—„>6l0ÏÔ§[äà´œa󅢂Yd,’^æ39ªw’¦p’ðŸl@nÙäÃ+™ø†´™˜˜4¡¢VS‚us$Çc5ôžŒ;qø\A†ôs$öê“Ͼ@Ðr †Í²SF!/«¡÷Ä¡'€/4aH…¼WsÌÑ’ÓÃЪ½zc¡{M·k <ˆ èÄÖò–!îÜ`®…s£†?úÀ_g]Û(3y)0f¡ ±`‡V—YË.šï*ƒù©š~C`çA*²šÎ»wI˜MçvàAwîˆÅl:7MÒlŒ/œzCà„n—Š5Yê\ x˜¢KFŽÅ°º=IŠcІŽ„}¼Tá¦#sy q'ðm‚&T5› qyË»rü   é|šK"ˆáÛ4aH­wõŽæI€?*h¸£ù½B¡UTÍ'ö³h~¯Y"ƒMQøC ä>Ùh[ÄLUÊâ:Ö„z…yV{º¡Ϩ©·V=^½gÁÌ%ÛðøH{Ä°­´vĤOñwøÞÜøçXDDã²)G˜hNYÏ©–!!ÿ\¿TõÚ¥J¡ÐgË.ßÁÐ<¿‡ÏAð¯)ÛNÕ)><8ƒÌÕyTHé)ûM(©Î0{ÈæïOõŸh!þ´[ÈHö;÷ :øì~úDÜ[ÈHàû}‚ß/#8Bm!S&Fóý0CI®ÙÀ;È”‰Õœk‹dju2Ó²i¾]Ó|Y´\§Ù@¦Î<ýoWPÌ­W¿ÛÈür™ËTÖlV™£c…É>6r·Y7fù)ÏV%hÞ‰g_&h…ƒ¬i"'bxørA+fÍ×òº«ŽžHˆß¾JЄŠjaÁPÞpuÓËÉ«ã¼Í_‡Â€)xÜFì;}ˆGÒZ¯ +Å |ˆ'd­¬daä®öRHo¥¸Z"\ z¥²†½¸›‡p%—Ò8»ƒŽ}ï•Ï±tOôc_bw%ðfÐ7‡V×N1W uñ¤cZ¬ñ¬Áþ1ºnkî„¥CG˜,±è;ðÍ%$ûzàhu;å玘g¼Œ:- Ú‰G&Ð-·ºŽÌ}2$B8 zR™Væ‰ËOeÔò<à A¿0µ<|è…VËšžÚn¥«À¼ìxi[PÏM½øNÐï -¤DÆòs„¾9†ß!HýaÓoÞ¡0Ò-.½<Ô8Âÿ©‡<©êNŠ×r–12bæL¦ØTó“a«“ ü¬ß–òÓ¥½è€VéÇZìÒ$vs€.èð~,p0Cì+>Ä“¸ Íà®H›ÄÜœ™. Kˆ¶¸ôeía˜ëžhMfÊ‚šõ]h¼„›AoŽÞ¬ï‚)n½%~³&ö[}ˆ'~³>S>¹YW‚šõ˜òhÌZÌq«6ë0åñšõ˜òöšõ˜²‡jÌ:°wÃ=T3/pÒK‹ÛÓ(Òk¹½§X)¸f¹à[qÄJÆ”™ìHú ÊExôIeÁýŠn.f8M‚ÀqÐãÑúÄîp´\fŒÿíêŽ44ôܘà -Jèí,ð)ÐO)Ó[¸’éuÀw€~G<*{ð Ã{®ñÚšîÐ>¨œmÓN(Ê× <ÅI’½ øÐ_‰ß¯¯¢¿–ÅF‘Î"v"2Ɔ@”>Cóe›¼›üÉ÷@VÂ,èl(›odp1%D;¼´º¥—i7¯äû¬„ð·>$+ü”oÞ ¼ôýÑ{b7|ô¡ ü6ßÉ£l›ÛqÕäÉ‘Óâ‡6B£ôÐ÷À‘üßúÊ ~±î¤ùŠ ZBį¿úûñþêÁ:ÁC6€÷¿ZÊ/7ýæ·ZjEðð&àAÿ0t¸´Ö‚v9$È ú§ÊêaÞß)Õ„ï~aïü*Í6.íûNâ‘lÈGÊC½Ó|â Y+W{¬Tøz½®íÞ/snöQ¨ŠðjÐRg¸´óÜlþàÍ ¯ÈÑ'âNz"×û_/#xø¤'eb(>7[™\͹¶ÈzR«”™²žäÎÍŽºfš§=EËuš´'uê»Rœò°I¿l·‚¾UYã¹Ä»Bª»U£n57@òÜ<ú`ô±Û<úPhU­“qþ•> 5Ý=<;ºðaÐÏ–ŽÎö nË®¦£S"F¹wtê”]GeÍ´îè¢ã:CG§Æ@ýoŸÛß*ŽØÅwqÐÔ ¶¸²‘6LàÔL~+½¹§×;ÑR––ÖöYƸa§ªWÑ.½ÑŠnë%× Ýv·eCìØÂ)â/«§¬U]¸¼IÌtBþHºöù— špVøïÄ>Á¯\‰ÿV#†zÿ­F® þ[¡R"óß‘ÖLKÿ!×éý·"õ¿}uõü² 3ïŽyÙ»÷óý4íݸµš¹ôêj=ç ¿O‡ éðùžNk÷VÏ aδ͜^ÐnÓ'icµ­Ò+£÷co¼¿±l¹ð»Z1ïFż{6ºï÷?)hÂÙá¾?åüS2‚«qßJĈÀ}+‘+°ûV§”èÜw”5ÓÚ}GÇu÷­Æ@ýoo'eygdÕR”“fÚH§pjSˆ&ýcˆúceméRµvï¹­»U+Ÿfâ)ñ—ÀtBê ÏÀO‰Ÿ.hº“9Z†$øGà? šPµjRÍìì4aªù°ít§\ΪÿíºžêˆÖ(ѱôN-þ 7QÈï ¼YÐòsÍí‹T:1)ݹUЄ³"RéÜæ|›ŒàJ"5b¨TÔÈ4RQ¨”È"•Hk¦e¤!×é#Eê»šÏ : “ƒI¹¼‚ª|G ße hQ­”ê;‚î4bé;GMRc×Ôfbk³°=i‘"¡³QàóM¨Hg‹=ݱçî{¤”öRàkM‡Ò^|FЄ!•ö„6¡ûïñ‡çŸä?úŒ5Áê;Þ=Râ0ß‚ùûÝ=½Ž«»& yrÞl;?0Ê‹Ž0ïãÔGFÆñZ]«M8뢮«=‚îê™%aQ×Í>Áo–\IX¤F õa‘¹‚†E •YXiÍ´ ‹"ä:}X¤È@ëÞʆ@UYú KŸ²Æ²ÄßJA]›€»MCÚÕ¼]Є!õ3:]$f×ÜÕwxÏ»¼îŸƒ3ðol¤ˆ·v·-}…c¸2‡bQ!÷ß'è.¹3ç›f†¹“eƒEÀwIéþ£ÀÏ º+†™ˆÝûŸtWø™Ö÷Ô«"ªf ]r3A]ŸþAξçÿþ›  gGÈóKŸà¿”\MÈ£DŒB%ryÔ)%º'ÊšiòDÇu†GúßvÞxä—ãß!‡ÜUÅþ·wÜÜ {òPÍ>$…;nŽA(ÂY»ã†„¿8«vÜÀë}‚·iÇ21÷*Êä Ô«¨UJ4½JÔ5Ó¼W‰–ë4½Š:õ¿U³ãÆ/Û­ÏŽ’çàÁŽØvÜ»]ÀCªvÜìM5Þ¢q·AÕ²Éé\ ÕÞ|´ü|{˜ÎqþñþT¦_î~’þµÀw~×léßíüÝ2‚«é•ˆÑ<†ÂOº•ê•¸{T§•™ºÇ ¿]UÓºŒŽë ý£õ¿Ý¨%-;Uu¥¾ï˜7¦ün³h8a§µü¢ÿ´\æ ½mãä'À¿ýw³ÅÅþ½Oð¿—\‹U"F%rö°ê”Ý$Êšií`£ã:ƒƒUc þ·fJ\KL{ùºm0'j÷ˆÃ÷ý'ŒÖ®¾.èüÂ’U«]M÷ãŠR÷ŸûŠ›8"脺|©kêï?×+ÙtQ?+yë9‰ø °"è„Ô Ï‡9‰£ÀqA†4ˆ¾´vG‡ñœß‚âåêHV­üºWÂw :!wRâ…ªÕ,…Pëûß4aj}ð›‚& ©Ö»ÓÚVÅkÄü‚àrAŸdCRÞ¸q."s¼®4sD›d?S²&˜Ð]þ _óLó£§Â©,ßعRЄ!Ëx*ü>a2UT3~]O¨`ç~HDxè«”5|§8x‡ÄY¼ ôMÑ7b· ¸tø[¿ÿ%UY6ö÷;ÍÓj—p7½.¡z!‚ãÝÍ3ÓܦÞ,‰ó“½è ³H¬IÒ…äì·ýÕM¯¢[®}{É¿™úe¾5#>ËF­¾’hÙÕƒÂ!•ÖW,§¡ŠøåͧÛe§Ü[ΰá¸ÊÊ ®Õ q\»’s+Ì™äÆ,ö÷<)MKV+}Æ×/5vI¬¬}¬ ìHuPdoI«M¨¨&ë:¨ñ\­{Jiô“t BâjÀ;MC+í\ Ü'h­ôjºöÔ± Q¨Ýg‹}S>føb“[³Ån(ÇwYv²aR—:9~1kÑgÍ/W`&j{-Ì›dÈ·hL›]Ëe ¹T)‹æèÚ¦!| §úDYªûÌkì¹#1ù Í%‘çÉë¹ÎÁ͹s¿À®œ  ™óÕuæl”yAå-¸ë4ð AÆ`Á]yà Ý%u›S]ŬMÕŽšö<ã°Aúf®™×RàŠ|ð=‚&Œ;†z@˜A/®êAHD¨>†Zá­„¥£À]LàhŠ[ìݽ•»UÀ èLh­Éì& ²À 7*Žr Ž”^vwƒŽ!ý—ØmÞ:|úï£=' äyçXEcJÌV sÃ,n&ñö°øeÐ_–®6M¾“ð_~ô÷‚‚>÷ä; ü}Ÿàß—<üä»21O¾+“«9דïj•Íä{Ô5Ó|ò=Z®ÓL¾«3PÿÛΔ¢½þôÚä-Yøãê²Þò‡ÀŸþÙlñ–áü/dWã-•ˆÑÒ[rÕJyK%rö–ê”2³·œÎìÛU3­½et\gð–j ´îmJæ i¿,ÿôÿh“ÇÔ å1iùÿÿ ô¬Ø³DÿÒ'ø/eWã1•ˆÑÒcrÕJyL%rö˜ê”2³ÇœÎìÛU3­=ft\gð˜j Ôÿv¬¶D•tzz|+(£´Ô·ŽâŸÇ"SmúÚ6Ävrê=„=Rk,¾Ò&N:qBYsÜ|k,)-Ü„5IŸ¾AЄ1L%Nß(è„ÜÍlþ·Á··ÿ7ß,hÂrž>., ŠJæ£;p£dí¼wjÓŸ1#ÖŽ†-ÖŒ³zÎÕ*¥¼!fÉtÇ©Ë|uÕ›X³ÙZÅ^þ½Eó¬‘ï5FFøÜ7ŸXv¼³0Kt×Z“g¼XË«Ðê“5ìö8î¶tí kÀü5‡ÉÆÏ)fž?gÑú}‚Ò8Jš£ËZ‚ðVbæöÓ8ÖÌ),ù…¥y§æð¤½Ì*ä,_c?kög»$Žåqdöÿ AkCTï‚&lK„&=HŸ#h‹?B#ïò ~—Œàá#4eb(žT&W M­R¢™ŒºfšGhÑr&BSg ¾·‰…bm†^–ϵ’ëMk‡š§$‘K¦œÑÇ óÓÌDJ _êaîÞ6¸·FÏ3É|¹E½Ô°1¦›â°zžCQû^›xjÕ-¥9<ßaR+ê“´ìc–ô\®bÓö 7:Ô!‰îÄËøå&ÉÌ]2^rÅ)kû:ÃËåù=Oš˜zøLàðçÎ{M¨,úbUÜÌ Ž èPnzˆ}§ñHºËyaÅ¡xôâ Y+«èŒ«02ª³àâ˜iäÆÜa½ÂBªd@ñNAQ„«@¯RÖ¹\91>|+ uûP¸H iË•òzàfЛ•ô<Öñêf¡ßÕÀ- ·„O^Ú þ[Û@oS¦¤5c®[v¶õõMLL¤(«EçGBÞ < ú¤Âίb·RÕv ©ª®žÀΗ˜?=¬°Ö+l@e·p4 0l£û%ö> ç~÷†GgÏbâ Y+˜û½Íb9ëÃÍRJ;ÀF£ûŒü(õùw¥µcô£9:jRÆð,\IkGÙ¯nÒ³0þd_ZKfûû·²fÀ" C¹„@Pæ ®ÝO3DyÄL,ö"Ы—ôÂ$ Y$D= ,ƒ.+ŒDZŒ˜ˆÝÝÀ‡A?¾ÏMk»ù~0¦A;¥ÝûœmÚ}, ì"H,ø2Ð/‹¿¥æ`;ªq£¬iìÓíüdJ;œfÆOftÌ*–:FñHZ»ƒ~fëÖMÌðwùmãë¹±)6'Bd1)„É'p£É£€„£ G•5š•G¼ñOS>`äÍœY2$d,_úÑ·b7|´TvqÈ(‡ø¿ø"Ð/R¦¢ÎÌF y~ø ЯP¨Ža«oÁöÅÀW‚~ehu,MnêIi›2[{{7e·J5Ÿ'¿ú·”éæ¨æ-“"ξL:ÓߟíK:¬õdú·nîíÏnÜÂýFÿÀ@Ofã¶M7ìfåÙ¶M7ó½ŽYÌlÙrãÀžt:gmÏö]U£’½øŸ ÿS¡¶Ç {¸Ûßþ ô¯âï ˆýùOÜbÂ8ª¨¦Kz£è’ÜJi4…é9%Öݤx_Ä‚°|ýfeF̼A±¼ÜÞZþ¯^´J£½£¶U)×ökao›U2z'ôɆ> ;mxïU)Wô‚fضo\ðnl•BøFÐr+\ÍÚaïVÅf½.ÍCU{4öã¡‚^âË4…¶¿4BÓX¹ ½1ð» ¿}ïFø&à÷@¯ ½}Ó÷áÒ›i®+“Ý,!ПúGÑwoô‡?þ´ü‰2ÞÛåÉLo–up™›{{3›7K5¬Ÿÿ´ÔEtMÕssÓ.³©ïtú´S6Ó̱Žkkº °Û"ÎÿK`âAFÝmÑþl¯4aÜý±¿®†Þ·¾…Ânë$u[Íf¦ §˜ùdYvOE/¹æÈ$yê1Êl±hUÞt'©ŸÒëUÈÊEèM5IMëE8€"Ù à# ‰¾‹!v§€ç@ŸkCCüž}^Ý*›‘ÇP¾´ÔþÑ`= ±{ ø"ÐrãHÿÛÉL†w0l•Ù¸q‹T z1ðu _§L=Z«1¥3™-›v,$åo¿ú‹Ñw,ÄîõÀ/þRüØÙ‡xâÊ®¢šŽå·YÇr§ž;ûÛyÿ‘`ýÇîéÆ?Æ;a¥^Ç­ä'ëF@£žº¹;q£Š—F·˜í¶rc6]C_×CU؃÷L§Q1§a¥ ŠÚÕêÆØÙ©™,Q+Ô‘Ô&!绀_-eÚÁz'b÷à—A‡7åà½ñÿ ð« ¿ªLM‰ â|ˇx¢îœˆÝ×€ßýíÐÚXš`}S6ÛßÛ›•˜Ý#a¾üSЪL5=Íz&Ö!õ9™ì–ÍzÙ8¨·?›ÙÚ;°‹"q&0±@ЄQwQÄöG`{‰  ãîN‹¿ñÐ{âãŒÐxÕtQß­ï¢RÚÑŠ]¢U·ÃŒ>Ìœ/­´>‡†|Ù/)í>Ñ›m`½œ4ïÀrz!W¡3œX_ä›å£é,&DžïøŸÚåÙÌÙçiÖ.Xßg£ì/Z>ùÊÛcõHø]ÐRSeÍ#ÅÛì#,V´jï&ªË*X£-›á4Òþð_Aÿkôý±ûðß@+¸Ë&p¿Fü üwÐrwÙ4_¶ Ú±ð„¿ýëè;6b÷É\‰& ©ŽùlÄÕ? Ó€h@‰ù‚&T¤“d«-³as†uÀ[¶ôf6ô2¹ög$íàFA'¤Î ÖŸÐ}ntbSü ±ß\Cï‰[Œ¢PxÕôgì?kÒQõožiØ¥­Š8 qÊŒ^¸ù¼ÊF8 zXYQ3ŸG²™ÀÇ@?}ÏBìrÀç‚~nzâÿ<àã W׳d[N M#ÏK€/ýÒè{b÷|àË@‡O—Zœ¤é¼Í½½³RçåÀׂ~­ºmº©¼ìÆÖA‹~…¤ü-à@!ú~…ؽøEÐR3ˆá:±ÿ’ñÄ-†%]E5ýÊ‘æýJ¦_ô+<“y|]…ÁòáÚ¾d|ke6ÜÒGÀm¡ŒÂz[@ÔF¿¦EJÂkÄÐí = ù ð,è³Ñ÷(Ĺ¯“ 'ÛУÿG€ç@Ë­T5íQ‚ö($Çó/­2ã±EBì>:|Æã"> —éíÝ|mˆ$y!ðIÐO*SÌÍ:”-›6÷vœôxÿÀ¦´x´B¢¾ø9ÐRWtëUˆÝSÀσþ|üîœØÁ‡xâãa¡í*ªéUVNíUh¦- l6ä!\ z¥´M³O6ìÐíxãîúÚÇÊÆ#½$D¼˜}“ŒˆM7_z—Å%³ä[¤£`{Ø3 ¬qÍb£Í\¯n½!´5måÙ+»x`’¥<•»¬ßØÚë°žÜðuà·å„Ò’Ø›*®¨Ì‰ª[$ùƯdÛÁ“Ë£Bˆ]ød‡ˆ_>‘RÓSÀW¡ žT„dZvdÓÈózà:DG&•—,!v¯¾UòúÐê@žÿV6®ÝœÙ(¥›7õ!w’z3Ý\ßj`{ÚvŠéÌÆMÙ€1‰ù %Õ~¨C塧-cb÷>àÙóÞžÏwçOìÿЇ?èL)nÊõÒ!ö‘éí4a® ýv8*#Àu@ì;}ˆGÒ`W„‡\ùBâ Y+], (H*!ìݪ!7kÐóqè¿„pË€+AKE†-šmÁ,iÁv!ðJÐW*dÛâT2b7xh¹‹üoƒþ‰ÿ*àjЫ•›Ä<~—Ö˜„lë€)Щx,âz`/èÞx,âj`tºMÑìݯÜ"E” ×’nx;èÛ㱉ÍÀ= ÷Äcà^Ð{Ûdw÷–»¶jF›-‹ÒÝ =Mž}"›Ø< úd›lâð¡Žê'‘ôã²6h;‹: x,Bº ÝÐ!w|xÅ÷ìX… õ¬±»•|õ )¹æýˆMˆ[":äo‰ðÞö6iÞEÚP7¨=ÆJP Fî5÷àêrö‚–šy©þ‚·‡jÔ¿k¦ö]ÝZ¨ª‰¿²î½«ÍMüÅãÅmnâ/oÕèøÞÄ+— ÆYËVÒS¿âÞZj Z¾b­)§‹ãÕ֌ͫԞ3Ú£¸E'çö996þ)ø"¹3t‚^r­²U)XN¶?“ n /Cq‚>Úkx9x{¨Æî kð‘bŒ)‚þiövU7Ó$”U2JnðAÀo „w€¾Czxµð‚G{-r~S|IÕä?¬(ëv²8b[ƒ¹d6•éii}­äzª†pèá»H(œÜcJsÌÑ¢žÌ0Ê5ÊÎà†~6Ä#WS>Õy¸Yѽÿ~Åî±GúÄú„·p0kýnŽøÒ¿†|ÈLñdû!¹7–fgŸ[,÷fÿ·Þ–Èõ®˜…|vxK&Ÿ16lÙ¼a¸¿g¿ôõR:0ž²êÕëKè[—зÞò‹j½2Ž]TâÕ-šÊöMãéìÙl@'Nµ<¸ô’šÞ¼Zïøñ»¹S|ã½G÷öâzÖy¿nÊÿrþ”†´§”³(-§VŸ H2^ò]?:÷ð_.n°šNüíüCì¿?çzFÄtk_´°‘Ùv Åðê¬jåÒƯ\à+ëÍfJ#˜ÏH°lù‘ Í,éÅf9€¾.‚ûD §æ§bòL‰Ž:Çè=b¨lÔi-.-U9M¹ÎÒ ¦Þ¬ïDMtv4í.âR ±_îÆî" Ræ4ˆ£6ªÂk»BAÛkWŒRÎ4x"V@i»  Âu ×IWZÞö™#,Ò0ιÅÂùsü4‡s燬Š{n(¹63Ôsž~ùpéÜÚÌùsk³çÏãïfµ!×,²’dñ›®ÖöwɽGö>°k÷áƒ-Ê•î½3h¹è‹¦`ñ4ݧ#âѬÍ¡ÒKèãŸÜ·ÈÈ]íÐ;!aGK×✠eb4õ,K†’5Eõô/ÊdkΕ¬4rÅ$:Z4µ!´©všÊ5Msl—ºx[Œ™ë|ø·H[NCí¨>\ºJy“= ÷(«…yÌDÝB«JH÷‚ÞWLìïð!I/¶ ¬8ü/ñ!žµ2 iÚ^ì¡] ¶/@ •Ž #¡‚„¹P!áèiÁ/ž ʳx'è;gA@ò>Ç'÷sdä$(#‚ A™l‚µŠ‰.HP/§ÿSABÔêj$DËuš A]Ëñ¿]¯¹<ÛÌJ¢SRR‹cˆÐ\éS–Sí`#ƒ’ÁG ;[| _ŽjµxÔ²,]Ì‘GY”f‚„‹ùE{~íQ¤ÛECyCØ«ê#ÁDÇ”µ„‹¡b¼)lñHºŽy¡“hmñ„ •¶{kI˦\LöœÍ²JôdèúÉ1èÚr§läXg\g¿eÿ.Á¨‡p;èí¡Kp¯æýÇss.O(JiyÛ*÷g¼tWOif)W¨ä%=¦iEËÌ%»u³;Õ=Lÿä蟼Ùݼl— <\"Ð÷†.ÛMÕ²éå2 QÛ(ô‹‡Ì‘’ÞÝò°–Â.„€„7¾IÚ´;Z—ó–Ûl}ŠØ®®½>t]uÏ&RÀ^н2‚´˜¬8,jmÑ”©Î/íáõÂ{8bßéÃpnsXq5BÖŠÄéG¾í­ÍN? X/­ÂÙ.æp%[\Zª†š ´Ëâ½´^ÐÆ™¥·¼[…¬|Þñβ˜rØ?့ÓÅY <ú ²æ7wÈdƒËlç>ë#¼Ç‡xâ7÷%0ñ%‘š{g`k_ '¼ô¥Ê¬}oKk/™ÌÊ‘3gÒ6^•&ï[íà÷k£6yÿbËQÐGã7yb¯ñÄoòKaæK#5ù.IK†¼Ò<üÑ–6ŸtÌÑ’‘ïÑrcf¯ópE· ß,©Ê°Ô÷ ×0ê°VO˜‹¿û¼ñÄß–Áê—EÚ:Ÿ–º FO¨Þé¯m´{q4?¿¼ùHp{¦Ï,öƒîÞž—Á† 3 3ñÛ3}&ëC<ñÛórØðòHí¹«” jÐËaÄ„ê=úáFƒ.êö¨I>GGÕ¶yZ7g Êyà{@ Ç¥u1z5bÚì¾”9ô öOåZ |ôCÑÛÿrØ<¡Zßþ‰ý°ñÄoÿ+`ó+"¶ÿÀÍ ØüŠHìÿˆûw(O(/ÝVÀèWÀ—ÊZb°°F¿V7G‰ånÄ>çC<ñ7XG‡—bM˜C3á’-úfpµ€Ý-czÕtÍqöJCøËð9ÂàGoñØÀñh©±s8‹'öG}ˆ'~‹¿V~yÄ_6r’-ÆjñLT“¦mT[üåøÜåñZüå°òËÛkñ—ÃÊ=l›Å_+¿"R‹ï*—Ç%[Täj=UiqOgãy3ÇÉq½PQkýTª¥À“ OFoýWÀâ O>¿õû‡|ˆ'~ë_ ‹_­õ—[ÿJXüʘ­¿dŒêÑ[ÿJXüÊx­%,~e{­%,ÞöYÿ•°ø+#µþùÈ!‘n!pYGuS²t5õtµ¬Q3Ç0ÉšZ%6ÖH¹ˆ&µ‰1ƒç;7ŸÌŸ`P½* w< »†³ÎñRhh œÙÀØ5KÓÔ’Ô‚òƈ^)¸šéȨï2à»@¿KZ}S‚TÊ‹iÕÂZe(~ô‡6ì×æ»w?ú#¡[TgOP¿Fü? üèEï׈ÝàÇA<~¿Fì?áC<ñûµ«„9sŒÎ¯ÍÙp²-.í˜râM@·viƒL=ž7kâ¹·’§1Üy7™*]Üz›:_3ÍPK_C¢ìÞúöè} ±ÛÜZjÛk½¯ |ç(ñß ¼´üþÓ SÓjänà= ¥Òo‚kdð0h©™9< ZnLp=­BŽO€>Bîž-Þ×UÀ%üÖ>BIèåpô¨:½´ÜM«—° º^Æ€ƒ~8´^6Qèj<\½N¿Æ”Ñœ1«RÈÓ¢ÔK–YP2Ø%™mà»A¿»½Á.‰òAàG@KEÁµøàGA´ Á.ñÿðã ¥¢Î`Á.±›üèðQfà`—ØÒ‡xâvW sæá’íöl!Pý’ÅÕ<‰¦ÐYí|p­›%>AåÄÍw-šãFÉ›´ÒíÑJ‘§¡êÃÖxàÕéUøá ˆÞðWÁØ ý`ü†OìûOü†¿ƾ:Rß NÂ-.ë;{Õ(Ôùªí'½ëuK̨m3×SƪùJ^eØ1øMjÞH°vxÓ³\j}¸ïØ#´¹¬F!_ ú•Ñ7—Õh"„O‚~2þæBìŸò!žø›‹ïÀì›Ë%Õm€â-®è¨æ7I6˜ÆéÞÇé Y¯]·â1bUlÍ(¢3hh/¼Þµž¤vC¡¯MLm½÷!v€÷¾/´Ý­JêÂ.·b—˜Ò\kThµºN_ßû`…>dŸC%ºø>ÐïS§c™)å£ÀO€–òuÁuü~à'A‡÷mÁ{âÿ)à§A:ú†ØÍ~ôgâïaˆýg}ˆ'þæZaÎ#iâ á—u„i^Ò ÔÆZàL·Ç•Fi Ù¤Û³&¹7ÉÈ]õ°3:úw(#‚» ”ÉÖœk‹sˆÕ*Æëý=²ÿ¯äï2P/§ÿSwD­®æwDËuš» ÔµÿÛßÛÖp‚-ßôi[ìEÍq‹™LêÜ1ÝÕ:áÂK˜È[ZÉrµ¼IzøÄIÙ²›ß„“ÖŽòï5¯xwèè…‚5á4NáÓÊ˨P*Æ…^³´õ×å¯@‡$îÇ»EC¨¢šèæ8ëÇ÷—´²n³º©t;¥é«4Ch±:èöŸUB£:Ý÷'\Í“míª?ûDq[ЮE¡ƒnK‚Ô `Ná´u!Çÿ“n1ð2ЗI{ÖBX«$1VúOH¥­ÒZýP¼¡>ÂU WI«²£¥ûgΧ÷ÕÀkA_ÞsÈTÂu>ÄRŒ´]t×8Ë"iæ[)Ê®¹Ù/ÇΟÓäîû ×»AL6 Ÿç`>Ͷ žçòÂIÔ÷ZŸØkeÄ®‹žýŸºB `Æœ²ž3n>ןÎEùê -gÓêËÁW¿õº´Aþ€Ñœ²|«ÕkbÓ“·Eky‹¸åÝdòö‹ÑàƦ1¸yBìÿ?µ3ÿ§¤ºè*ašAÌìg¬®â×Öžƒ—€ë@Ë_Bî½½²ºöªeSÕ“×ËTM¸³Cò&ñPUs ð6зµÇ>vûÏìˆënÞ:pÞJ{âº}>±÷ɈS\ZζÅuJj8p«N¯QÅuÑYž’¸.Bƒ‹&®{6Ø™ÿSRÝGt•0Cx5»««ø}µ'Æàe?ð.Ðr;üo›Çu½2Us˜‹µjòÀQÐr^„¶1â™q ,€.ÌŽ¸®è»(#vLq]h9Û×)©áÀý­:½F×EgyJ⺠.š¸îÙ`gþOIuÑU áÕìf¬®â‹µ'Æà¥|tøCªáZ*ÙÅWxôyåõÑ5”³[0 ø<ÐÏ oA×ljýã>ÄR Z¯ÆÛ™ó¨7ñÏ\zUl&K\WÛ¸>Nì¯óá¬Y'×»;fÍú8‰»Ö'öź>®DζÄÛÊj8P¤V¯QÄÛÑZ^èx;bƒSo?[ìÌÿ)©î#ºJ˜&ìýŒÕU|üëãÄõ ºõq©JHúd%46†NÝl!OË}È$H°t¿2«l¹™Øõ3 3¡Õ±8Lò)‰’î_’q½x[GÛ’ˆýnΚ$øvà,JR q÷ùľX“”ÈÙ¶àZI zÔé5ªà::ËS\GhpÑ×Ï;óJªûˆ®fˆqg7cu’qÝT—¤ U |ˆGUp=,\Þ úÞx‚ë»Ç:Bè¥6¸¾˜_¦qÍÛ˜)BìÇ|8k2EH`8‹2EHÜ¢Oì‹5SD‰œm ®•Ôpà G^£ ®£³<%Áu„Mpýl°3ÿ§¤ºè*a†wv3VWññgŠ×P]¦ˆT%Ø>Ä£(¸î*e¤¢ëIà9Ðç≮࣠m>Îûb£l‘®CL>¯£mé:ÄþqF›®8=~0tŽ«@¯ŠÍo×ÕÀ6¦ëûë|ˆçâôÀk€Ý³&]‡Ä]ëûbM×Q"g[=Êj8P0ªV¯Q z¢µ¼Ðƒžˆ Ný çÙbgþOIuÑUÂ4cÙÏX]ÅÇŸ®ãKÑigº±NúPqºN.ð˜‡éöwÄ–®Cìz€Iº‰’îìˆ;]‡¸Þ¼­£mé:Ä~·gMº |;p¥ë¸û|b_¬é:Jäl[p­¤†=êôUpå) ®#4¸h‚ëgƒù?%Õ}DW 3ĸ³›±ºŠ?]‡¸î¶1]‡Øð¡ât¼Tp}cº±»x¬ã¢H×!QîÆŸ®C\óÀ6¦ëû1ΚtØ΢t·èûbM×Q"gÛ‚k%58èQ§×¨‚ëè,OIp¡ÁE\?ìÌÿ)©î#ºJ˜!ÆÝŒÕU|üé:ĵTy°K¸`Ξïˆù`búðymË!öûP]¦ˆïÀy%ùg®½*6“%®«mÌ!ö×ùÏÅo“Àk€Ý³&S„Ä]ëûbÍQ"g[âme5(R«×(âíh-/t¼±Á©·Ÿ-væÿ”T÷]%LöÎ~Æê*>þLâzCG-M£M™"Éæd%LMÏžÍ& ú€ÐR9ÍÙ¶šÍ&v=À,èl[Ç?$É@GõÖNïŒÕ>oÞÖѶLb¿Û‡³&S„¾8‹2EHÜ}>±/ÖL%r¶-¸VRÃuz*¸ŽÎò”×\4Áõ³ÁÎüŸ’ê>¢«„bÜÙÍX]ÅÇŸ)B\÷UÞ>£ä¶hê0×÷í3Ä5lc’±óá¬IR Mà,JR q‹>±/Ö$%r¶-®SRÃû[uz*®‹Îò”Äu\4qݳÁÎüŸ’ê>¢«„«ÙÍX]ÅÇŸ¤@\KÀ6ž)Bìm⑬„)À%©9ÓIà# Qf•ÓΙ:Às Õd²€Œ RÐí&œi¶|8? ZÁa&AÓ3ˆýyâ )Æ%lL11fØFP»ìÖÄñЗ¨³Ë৴÷àƒ„ËA/Þ.‰ÝBà Ð+B«¥3%£Ë€—ƒ¾\>‚ìI‚\ ¼ô5ñèã ൠÃ'êÈéã:àÐkÔé#ø¶h䦎Úå›:$ƒëC먭wi²‹~uoSš^ÊËèÄ{Ò5T¥“à»iH€ÀM 7Å£“>àfЛCë$§å’åš;fh9£PÐFlãáŠQÊ™†£%Í´‘Nñw¥JqØ°5kD3KysÜÌWô‚£è…‚Ye¿s-M×ʺíš9ê’µœî£–=Ù#Õ·ßú Ê.s IòVàÛA¿=¿øÐï­ñžV%ÔòNàûA¿_™Zæêæz¹îêcÀOþT<ŠùðÓ ?Þ=öȺÇÏ¿ú‹ [Kðü ’äwßýx”ò%à7A³­­å[Àïƒþ¾ÒÖ"LüwàAÿ8ÅüøÐ? ­˜Ó¬µØ¢Û*êö¨YÒ "euJ–ÍïoÈû,— —W³JüÕˆi³¨¹9FÎbà‹˜ÒØÇÊFÎ5ǤtÀòS‰½‚&lßàŸ9¼[Є1è=qð   CêýzÍt¸ ÅþG/– †æ˜ò-5qX4¡"u]Êû5ÖX×Kš‰ àã‚NHíí®·‡Ï4aH½-ë¡vHŠsÜJ~2t&…¤yðU‚&Œ{Bçf¡ã*â )Ư4MÛ˼–q–›sJ3G|'µ"Dgf?aiysd„¹²’«ÚV¥Ìbt#=J1ºm°ˆ›92Ãv*ŽÆœšk[RT¿*˃w Íš@bÚ°ë£öf.sLw4+—«Ø6ûz&$“Åcšg<ÇRŒ“š¾Ö´JNŠ ÌB…|³¥™Å²mZ¥”7„Sær™ü=|\Q Ú\×£Ò úWm0IÀ9‚&Œº™RüØÎ4aHK¼¥fl-}f©^“ÂSÚpÅ•ÐfÂÃÛMØÆè•$yð€  cÐfbðnAËõÑõ˱ÔYJ¨ä ð0ºîà Ub¹=<.hBe1Šå±l‡MR#¿1s»‚ëö·ªZ¼Óü/'Æ,Öw” Û4J9楧‰~k}AZÆ2NÿVЄ’–qICͬº[LC颸EC/ÑÌ_BÌØ9_Єíõ)K€ËMƒOé\\.èN©Å•º èEÎ>a±N¾ð) t XçOj ®»ÎÀ‚& ¡»¦y†“Ó 9 ÙÐ3t4¡2-ÌÒ™lÑ3tÞ#hÂ8ŒçàaAwÊuþ·Ëµ‘J)Gq¢–”ZÁ$qà•;s‚î”ÏTÕ¸O ‚îT—ð1­~òÀ¢ ;åò,üo/©†z)ÇM¨j¾KjüL²œ>.èÎÆÏÄnø|Aw†?'z$4ò‚z²Ò[…|‹Þ÷‚í‚& YúÎÀóÄÿ…À š0îù‚”°æ*ª™/˜Ô4mÿºó¹-o±KÃrÛ([¶Ût-O’¦÷™–shcfnLËé%m˜ýªläÌ“¦L]¦?ïE‘ 'AO*s s¡$È󀃎Á'»G€ÏÞ'Ü®éöh¥6™Â'ˆª³á9«RbzŽ@£/þèßSØŸ!Iþø=Ðß‹G¥ß~ô÷C«t®ÌŠ‰ðàþ£¶E$ÉO€úÏâÑÉÿôŸ‡ÖÉïV›™Ó#V„>°æÓ§Ž«»¦ãš9ÖÞlZ;²Ø¸œ[1þqÅ¢Ÿédη¨OR+,[ŽcÒ œ}ʦ(ǵ+¹æŽ;­e¿-³¯¦AV5|æó±%·0©é…‚5AþÜô–¾lÃ?.ËéŽál ÚqQþL`â‚N„O>ܦ…AVQMÿÙ|SV˜vî’nc׆­c©ñÄ_/ý¨‹~%õÒѲś®QlÁ~pè¡ëá2Š®ø$Z>ïh6-lÈÔË%À«A_--XÞÞÜ°Sïª:¾63tâ<û)o<\:·6sþÜÚìùóø‹kÖµ¡[ÏÓO™Zþ”yþÜ0#rŒÀgëæÍy³/9lÞœ3[3¦Ý$C¥¼xôÁ ¥¥OLÙ$3¨xšÊå3•›HàC>ÁÉΟé&œ´¡ãÓ©aèD+©[lñQ&us®-¶øDSW-´9½á¶©¾šJzAͧ=ªœ;$ÚNÌl§Ù¦¤Œq ,š”>S²&Jˆµš¦³b 䋸Ø8(y›U2\7¥eûû7÷¤µƒU—ï(4ù ýEÐ_T [và$ù]`ŒIzÄîK@uIz—VôÀÓD$È·€úÛGe„b9¶!Ž"¶s€ê⨫¼8ª<Æü¶eŒŒ˜¬!–§ T—5ÐZ‚©»†¨ ½’Ö«yÝÒ¹!çaÛ=W:u.cžO–N™½‚ìa­ý†‘=ÕïÜŒïLò^¤Wt"ZŸ†¯Ê˜7'Kì¯2fÏÍl .~Èš=­ºÀiÃ4ª¿ëýÁÙ¦‘Àò þ!Ág Ó W©àÀa²R 뢩ÛVaÚ&Ô¦úmZ2Å ¹=FÒ2`Œ–í4£2ÆuÊzô‚F}T7›…ìOµ¼a›ã<í‘Ž‡êû8uÑ£¯7 šPQôØb[Eí¡ÛŽUZçø?ãòL7ž g” öO)gT[»êå0*ò%Àó Ï«Ù ¾ôB’<|h©…ï`“Ø=|1臵ļ†N¾ˆÝU‘fÆü²^ ôuìbmkЂÍ7áÊ/xj ­í³&ŒqÃNµ6ÃêÒ{N·íIfs#–]ä=‚¦[HÝtÌÑ’·û¡A:¾º#RéRÚ¸^¨°¯Sb”/˜øMA¶×(OŸ4a F™xðµ‚& é˜~V5JÏlÊ–cÒŽ1¾=ÂÕ‰NiÂÓT—çªÞFl”ð ‚/æ\n$imWÁ±è/™¥WZGÔ›ÛNéÂ力¢Áœ›î8L¢¼ÈŸe¿šÐž‹Y¡XE|Ó´íƒ\¥`H"Ðr!¥›¥ŠéNjÉJ©`8s¿¨v_'’ˆ&Tdn‹!ïàÞ]wÙ#axpK/4a †×yørA†4¼GX”9]Ÿh W„°Väû8Z¹—û•”f• n°bóã°ž;Ó[ï9›~©0žà&Ñù»æ ºKnsJ3“èy˜Iê<œÜ¢íLiù‘ÁLJc-Í°Ó®n„µ´šŒŸÎ\º7š0séòp£  CšKð¤9â¿ ¸YÐ]áϘh„Ö9† h›r]8d”˜·´™Ý7áÝ×!"Ø ž•x…ŸØÏõ!ž¸ÅØ€Ú÷PIFb˜™ÄÑÉ2ë ´Ëº~©=Õ$¥¨_m꜒ì…ÏÇõˆþ½²qÖµu>Xçƒ/[rÂd±ÅzíJä!$ëd Û¥à0oŒÚ†!rn<çH»ÅÆÂ$Oí¡ ä^Écœel˜{-LòµRò¾Ztií0ýLJ’ÕöN˜´Ñ'_a‘)O(Ê›«²²."ÒaÃ001Á¾¾B}Q+…¶ô¾~j‚ùy'pÓßÝn$íš0nsÛ1 rø¨ RÇ„‹÷‰]x^Ð ¹YCÿÛ˸é $yÊ ôðIAÆí!¶ÁN |;h©ƒòš ¾`&©¦©Öw?ú ùÿPS¶ðƒ Ã/\>£AGbq’,¯~.¼~3AÝž„©ç;Þnj‡Lƒuˆ%×*æ9p›¶s“w C;fØVÉr>Âúfr.^úzéÞV$Æ >Ä·í„ÆZË }ÅaħþŠÃg‹ù?%Õ}DW Ó·³Ÿ±ºŠ_Y{b ^®®½ZA0GÇÄÈsWo}S¬õ±x3h¹Ý1¡b½ñÌŽ`.ìÝ7;‚¹~ŸØý2bÇÌ…–³mÁœ’ÜɪÓkTÁ\t–§$˜‹Ðà¢ æž væÿ”T÷]%ÌSÍnÆê*¾¿öļd€ØIÚ!µß aK«w‡€T,·x è[”WG×PÎnÁüVàm o oA§K‰ýnâ aóÿhwêú Z¹F`üÓ¥Äu1pYGÛ¦K‰ýrΚéRxpM—’¸+}b_¬Ó¥JälK„­¬†E>jõE„­å…Ž°#68õö³ÅÎüŸ’ê>¢«„iÝÙÏX]ÅÇ?]J\¯ª›.•ª„«}ˆG²C§n¶§åΤ¸ôZeVÙrç±»xèð›Ç9ÄÿFàM ã›³&®ë€mœ³&öë}8kæ¬Ià°¯cÖÌY“¸ý>±ûeÄŽ)¢-gÛ"j%58ÒQ§×¨"êè,OID¡ÁEQ?ìÌÿ)©î#ºJ˜!°ÝŒÕU|GÜsÖÄ5T7g-U }ˆGUD=,Qï‚Œ'¢ÞÜ zg{Ôq‹ñ(¶É ÄôV [Aˆõn*_8è ª•Ý´9Æ¿p@\—u´má€Ø/÷á¬Y8 Wgщ»Ò'öźp Dζ s”Õp ðS­^£æDky¡‡9œúaγÅÎüŸ’ê>¢«„iF³Ÿ±ºŠး^ l㱿ڇŠr‡9$H70Æ…bw ° ÄÿF`ü Äu° Ä~½gÍ œöuÌš…·ß'v¿ŒØ1EÔ¡ål[D­¤†G:êôUDå)‰¨#4¸h"êgƒù?%Õ}DW 3¶³›±ºŠïïˆ{းf€m\8 ö}¨xá /QïƸp@ì6C-4e»€Œ RÐí&œo¥Æη€¾%¼!®ß Q<ÄR L×OÐ)ïAMóvaPÃO×+È#A.^Zê ›`¦Iì¯~b–7J–k8 §„ó£½+|œ”ŒÒVw€Þ¡NiÁ"o‡Mß^OÇ¡´AàÐ{B+MkPÖˆÎzØÚÚ 4@ê´|>…)‹ ‹ñhkX] ­­šjË;~Üç¦Kh̾ ô«ÚÙ_“ ¯¾ôâÑØ«oýÆÐ[ÓÌVø`_îMÀÏ‚þlü]û¡é*â í‹ø¸‚K\!âèÅr®ø{ÄÐ’¥Ü É5К2Ë^Y¢ÛˆuS[¯ Ó?9ú'¸µ“pë€;@KuoÁ¬Ø]-×Õɾžê9õWÁ8ü"\j¦q‚b­YToø£4Œà½•b'ð… _¨LÓ]¥Œ”Zø ЯˆG­/¾ô+C«õêTU­5•Ñ6ršzø; G¡¦‚ßI’|ø1ЋGSï~ôÇCkª§Çw=‚ïøRß… ÔüÒRzû𧠪Lo«,Îôf&µÖ§%‡‰Ì™=2Úükàþ¯x´ùgÀÿúÿ„ÖæX6aU y~•r¥zãn“‹ÄY´^#mzž¹w”¹î°qš“³ÍaúaØ7G!{!/Ä!è„\ï8 ¹CXRÕD!{ErP´!‹®“ÓÆXͦÄõ=Íù+î¿“k_û ÿ¾Žº¸åâŠUH¸ÀaÐÃÑ7®}Ð1at.´žW W©±–Âc~C¯´îòÀó Ï+ÓÝ$ Ðó‹ºP_`¿H²=|è×Å£ºÇ€¯ýúЪ[ÉTç]öNmo~ô‡ª ÈÔVíΨÁI©í“Àoƒþv*oæ8É/† ¡ÄßþèR¦ÄËËåñú¦7,§Ã_ L\"hÂ8tø °](h¯‡ ¡ÃdO ÷'Š) …zL\ Ì šP•K\¢-æäÛbb+ð.AÆ ÇÄð€  CêñÃ=µyuÈ`:ÕëÖ|á¦ÿ®Vzò 3kqgZÛÅ/Ð¥«†ùíoî˜mø.B¨ÔݤP½Ü³hèNÅ6ÄÔÝÇÙüŽ-Á"hlHµu7ðÿ:> ¢îÆXE%!jç§0QVb­Ogm/g¤hA¬„Ë ›V°m”-Û5ò"èÁ]œôÂõî‰ößØÌï£ÛzK.]jI†á]¦L$X˜üöñ†+YéòÔæ+±ˆ£Ye×,š‹*î˜%îÿm>¨Á•Ž%®˜[ï&çɺ{œ½2úJÞòg^ö¢Y"IŒ¼WHqMèhE§+ÛŒæ‰Û¢…tünj2|~©Û­UÞ´IÓ`?éZ®`94!ææÆRšÁþž'tº1ŽH®ªw¦IÇ\6ýS.Sk›_DÊÛíûKÍ M[~»WK(³5´\½’”þÊÕ ìó®ÿÇjÍN5.öÆüB,­Ÿ.NͤµÛ&ÙsD¯\¯;àæ°ñ܉s'™<¼ú§”õ —æm«ÜŸÄ·PýJÛDS® †ò†ËúS§ g ÜîVj+€Øwú¤³¼1¬8©Ö|ˆ'd­,¬- ”ç4C¸´Ü¸iÂ7]´7!Q–/Cʱ»xèð)_kX??Z)Rˆ?¡‹ØóreÛ2êZ ÜZ®§i¦®E<ÄÍîÝuבÀ‰´¸´Ôü|pµmÞúŽÐj»9ÅF%â–C[gƒ‹ Ó…qÝ6iàáhø“‰HÎ}À‡A?¬Lƒ—0ñÒ%&±#£¾³Àç~^<곃~<¼ú„ÂfŽÂ‡z$çóïý¾ø{µ{„¦s'º‘€²ÿÃø9!°]‰²¸¬#ĹÁŒ™ØÍ.þœËxÏQë5$2I À@Ëí]m:O€nCfž€$ZÜZj/DpMÝÜzShMõùRK,ÛÙ]¾^Ät˜;r+v‰¦–äÚf Z]æð¢j×qüô 5€ 'âQãð,è³ Ü`r$xhF2Lý˜´,a¯°_3ägÝs§ÏkCfI:—IiC…¼E©ƒ††¼]N=­±ÐÒé4{+µ’Jý\àW@%héé1_tOò~Õ'÷Weäæ·½tºi-/ºW&FÓ¦}ýP²Þê­áüPO«Zk±‰T™¸Í¹¶ØDªVWÞfåÎÖ4c jS•56H;n—Ry#Ž™ë4;bÕ59ÿÛËzøqu˜H* á’þèÿÖþxúÇÀ?ýgñtïüsÐZEse#èŸÿô_+SÊÛ(ôœ1ØmŽ”ônõü=ð?@ÿG<êùàÿý¿¨')|ý'ðÿ‚þ¿ÊÔ³ØSÔÄ“)1¸\Ð ©QapíülWš0¤v^á¥Ïó4–¢é8fiÔK–0‘"Su~XL§ºËצd Ç5‹:MÇø×C“bÃrÙb_ÉþVì“áÉŦþJ+µo–›|£º¸ øA^$#¨Ä»4a V’x+ðc‚NHíí¨«‰ky'˜Gª OH©Ž‚O¹‘h~_Є!E <åvDh¼Šíœr; þG;¢˜r«º»nÖÈwF$Óbà*Ы¢7db7¸tøÓò¤:#ájàÐkÔyO;2Óm$ÒMÀ h©”‰àÊÑ€YÐÙÐÊYéõE”ÅUë‚$´5ÜzßÅÑ'H‚~0mí}<´¶Fp"‰>ݒ̤·+gËžNç !R"oƺ<ÑßXM×”Ôþð+ ÕM¼„Öþ7úãÑþWᆟþ·Ë½ÌQ„Œ£ç€úo”ÕƼ!n@Møjí¸·Ce·8ú ö>Ä#i§óŠsŒ=—øOÈZYÅ‚¡û¬ÂȨÎÆÇL#7æëÃ|®Á}Pá*ÐR1HÓV}åÄøð­EÃÕ™#ê-ÛÖi#ç¦-{TBÈë›AoVhÑFQ7 -ø®n½%´î:oh!þ[Û@oS¦¤5c®[v¶õõMLL¤(«Åä( y+ð$è“Ê”5g¨b·RÕvà)ЧB«J"Õx8 zXYñçéw̲[8j½÷w´ÕýûN†s¿ZXqèã*ñ„¬•‡˜û½Í*®›ÒnOkw¤µd¶¿sOZ;jë%‡ö8ÑdOí¤ìmÉY¶møf‡gÔÜzõ’^˜¤íL´ÃE·sci-`)„¾„Á%*rWì*¶Iáæ!g27f¬QÓq%Dž}NaŒÖb¹ØéÀGA?ÚNüÏ-·æÝt'¦¬„^0ó´üÿÉu¬²U)Xìw‹OܤÑ ¬b#†:¬A¤µÃ¾mãl°“Õβ‡ýŠ~âÔ®Øý1b[ź¡P…¯„Ó\t}‡ýûÛدéÀˆJÁ5I*ÁE7iç>­t³¾MϹ^¿Öëõk4zb¼;‰ê%üÐRó¥M[çêÃÔiG&K¬Ì$éqN„œÿ gIüƒÀ¨û8bû?Àvž r+¨þ·Áû8â?¸@Ð ¹ý€M/Æh|O#ÎÒzOÔ]±»¸LЄ!µ±8™a=Üæ-½½[7È´ÊÒáx­  )æúV½ÛiÛ)2jS&`÷FbÞ¼]ЄQwoÄî:àA'¹¸_!ö{kè=q‹qJhºŠjº·#Ô½ÕCRÚ}¢·êg½Õn«”GOåë6Ä:øáZÆæ¿5ÖÅœÑGÀá!†Ð—£¨1¬¹“ üh«Œ5¢UÇMìÇ#Öˆ;¡ÛAGM$¤7ext £&bw8 º£&âÿ0‚QÓÀ& yžŒqÔDìª5-âsr™ÞÞ [¤Ñ O‚~R™bnlÖ£lÙ4°¹ï´ã¤Çû6¥Íþ€½ ‰úZàç@.ú^…Ø=ü¾ÎÉsÒxºUq4cdÄ`Cv~Àuõ°·aÝáççÉÔUÀûAß/]Œ°ÛGfµ!×,²òd½6’=›mQ¤i7†RyZ ­ å¢Oļ1”ä-ûä.ËÈÍŸPC•‰Ñ|ßÑP²¦èÀ»@•ÉÖœk‹] j3Ó.PChSí4•kšæØ.u5ßß-×iöwªk9þ·‹±6IûYgQùEz´TÚFS® †à#N[ÄM¢ä;ÚMûN†‹&‡.Tœ–)ÖtŠÆ¥>IJZ¬Uø_à2@½„@ˆNÕ-åoÕ˜Ü.V%ZÞ(ŠÕ™y‡7œø‹ƒy™£D›°ì3NàrŒAvÂ] w….Ç>*G’.Ýæ?nÚ,i¶5Á:›”6 Ž‘ß Ò뜲UÂf::*Y|NËô.Ž‰"ú®T Yœ“Ìj;z…[äÛü’º9˜KlJݽKüß“Ò†éW[ê~•£_eûý¿ÊÓ¯¶nñý*p!O£`„¾…°…ܯMù¹2Qµò˜É17f:sª$~Qʳ„Á•ve Üzèò䙶n¨–àxöiqž4Ζ“bì™ÄÈf°ûàánf’æ nrM›B{&×Xž€)ýÓsäytQ¤¢2õ𲡀‡öíVB©Q(B_†kÈž r»;¾ÁWDþ›4]˜,ê®mžMæ’n’}öx&•Ù¶á݆Vbžd9œáI"hWaOÏ Ž7/UÆÊEè[óYÆ­TÆ’y<ËרŒ´¾A…!¥1uðËGæ€ynˆå· 3áVÐ[CËßÃåÏ ­å.o2ö€îQ$ov:ysrò> V*/mXì 瀞ӆpÉoÕ„K›(Ìð_Ï0%§’¦¹CŽÀ»˜pèM¡…¿A“~<͸¤m2ž¢³õ«ýVJ;ËzUîèx[2EËÑá²Çç¹—­‚òz›ïm­Žƒýx›mu¼=Tc«{ÉV_«"®¤Cøö«å1?m ÎôkbzFw´‚n s Ü :|îÀpË€¸¿IDÜß$$n÷‡ Š'Q8Bo>`xÅ  „Ïò øŠGø¬ ŠE¡Ÿ­Añy”‹p6ÅAfÂÙ?2Ά øyñyJå½8‚¨ÇQBuAT†ÊÆb†‚9:æÖ.]›ô¦Ç´|Åà”Q»7K£å~>d%̀δ!âzx{¨&⺣~2ÕÐ&(¬ò.:ã’é7ÐÕl¶8Íšß5GgyŒVªÇ¸.Í(¡ïŠê¥ÙвëÊlÞÄû®ìÞwmÎò¾+“ÝÜ_q 7€ÞZôþÖÙŸÞ¸7 ,ä­0ˉ,`K3øÚVƒ&Ê >Ãý"”ƒPÝŠÁñ -S?•©ÁÂhXZ=ì/Öà^ŒRú¶6†,áЖp#+à…”Ð,Q† sÇì7‹ø‹0Ü~Æpžê¥àí¡Ou¬ÑSñ`­ð5ž‹3*·â¿3{‡+ü¢=/rãõ\¤«õRðøËP Âc ….ÜQÞïNŸnèOmâÿoè&:}9ŠCè;^0dÑöU›Å½µ#ëµ’Œ×J2Âxš¬_Ì \œß@Õ-sí¯+Δ†š´’òü&Ê@¨n°¼y¿¼=TÓ¼ÓÍ»âT/V]‡\W½I+°Ð¯„ „iÐéÐBg]}˜mµf·¤2R™l*³¥y ,ø“–0 :Zp½µ¿aEjp$Ô$k~”>$¦ä`jrÖagdÅt'½–+cÝO¡l„^³ºœ··h­ÿQcÝmuƒJÇó*ˆOx;h©XuEÉM«²”'¼8 zªIcVÅU«´W£t„¾tè°³À”¦Ì¿>ª›>rÁ…iT¡:ƒ| JCnï–ÿmðžãðöPíøU Ôs4 úªIÙå^žhXø×B`Bu \7—™4­ýp9Í…• ç^! o}sø~ºê†æT’ ÀÓ#ƒ™”V°& ;M×Á† ýzJ¨®Ÿ^á%°Äo€”„ëA¯oCãz#x{¨¦qµ7‘ñM(a;ß Þª©Û+óõ¹Šb*›Pò¦>Z²¸'£è'á· 6áÐ;B¡¿I¼1µY]øûÛ•°th±ç0±‹ò°'lçÒû[ÁÛC5Ƹ«Ñùé&üÞ†šéÕ;áY"|_9¦´‚Ï9¾ ²î½+t96æY{á«`LÇ´šwB»™“ÙTö„Ö§%ů³µ_Ë,Ô¼òn½1´ì׊#Íý²¯¯ XÆw@.ÂkAË_Q'cÙrêw½æÕi`ß ¹Þ©TÆ%%’Ï©yX¨wAÂ% —„*UAhÙY©=ÊtÅ\÷bå-¸È„)Щ6ø¦÷€·‡j#üi}SuåÏÛ‡Xø÷B`Bu¾æÐJš¿½ôy¦y\Ê÷üD#Ô@k Ä,9OLøʪ˜Y 1ßÑÞ§VÌry\kQ›™”„˜ï‡hïW+fÉ'fCmfeÄüDû€R1——4áË¥}å! árÐËC˵¹ê+©ñ Ò?)n ƒôOŠŒ`=)ªæÁ'¤Üæ‡ 1áfÐRçï‡t›oÕ¸Í;y6å˜5!–Êøumî˜mMbn}ĪØõ£‹ê©¥4R2Œ¼ÄjëGPÂ;Aß©`îáBÍBÊ> A ÕÍ=Ì$tHþý˜R¡SÍ„VÕê>1 Õ+>‘Õ;ŠO@ÌO(9¸£ø$x{¨ÆQ ^ØD]|šÒÈûÜDà2| r‚ ]†ëø¸¯:‘Êãkæ×FM×”˜<ý4#¼ôuá…ôbA!¤hVòB~‚}F±ˆ!$oHòB~‚}V­^(„äm<„Ÿƒ`ŸS+d©NÈRH!?Á>¯TÈHÇ¥_€˜„êüf\áá!1a;ÃÃ/·‡Ï†©ý/£„¡¦ö›²½dˆš«f€ÝW”Vgà“0ˆ}§ñHˆÑìt˜¹E½d–ŠôÕqfáÐR3_M¹.:cLNXv³³¿ =.½4~|Ÿó\LùTçáfE÷þûŠÝ!cŽô‰%ô‰Åø–âwËèwsÄ—®ø5ä#{¹¶&kÜɵ¸±4ÛûÜb¹ï0û§¸õ¶ì@®ïðpÅ,ä³Ã[2ùŒ±aËæ Ãý}8ĶÙvŸ×¤½J}ɯaµ‰[~Q­TÆ®‹Š»ºE3YÈ¿&o\½•©´8K‰*y>phŸ©x•Þñ/âws§xÆ{îíÅ¥{ó~ÝØz}/çOiG{J9‹ö2ÔªsIÆ˾ëGçþëáÑÅ FÓ‰¿èà‘ý÷ç\φøní‹62”Ò ¯Ðªf.müÒõ¾´Þn¦´‚ù¬Œ˜cš\èé‚tKk E{O“)®WÇäšÐ¨«ˆGB µí€º­Àå ¥ª§)×yCzÁÔ›õ⨋Îúz‰[-ÄÞzEj9U½vO;8ìö8zïgN11 zVÜœÅ÷?‹%YÓÖŽPìC‰ñÇhw/ë¿›‚”Œ«¶ ú%=¢P×®éš5AßñªþC¥âÖ5±ó!I]Ï +õ0K|ˆ'd­”5MÛë;òÔ­Z åY ïÔSnÖT t< obÜÍàR”ÀghÏ…þ Ë ËaKÝ92dŽx'¤1Ζíã¸ueÐΧW5m£”7ìçì:ºïÎ]÷>uï‘=»o¿›Æ÷G&ô¨á¥ñdwÃëîžíZõWÓ}Ÿ5G´äõ¥Grcºô¿ëé™ò5ÝÞyß¹|)}ÚaµjŽÛé’áö•ÊEÖ»c§õ³·nès³½Åb¡7GåcìÞ®b_Å×}&×(¦©Mvç­œ÷WüoªŸOy· vã½í‰Zâ‚Ò×õh7ݤM‘\T~ÝÐ?sv‡“³Í²»óû¢;õ³Ú vŽýº\q·içF¬GoɘÈsúõ!ö;ö*îcÿ{Bôù%¦Ou§ÎŸß¾£,ÀŠ™ÛˆÁ,ÒÎ N÷÷u%ÞYý’óë4:]’Õ«©þdC1|ß=Ô½.U§¢+sÝõœ?ßj¸:Ýñ¹dèýhPƒ§OL9>wÑPÁÒó¨Ÿgòú²ÆÞHæ]’ú¼Oúó2ÒûûÇ®f’}x¶™UÀ KY-6çÚâœ]%\›Žöí`ñfIì:Ø9Ýh¹ÕضeYº˜#²(Í ×ûE;_{évÑPÞ6ǪºE‘è˜2Ò¹*Æ ¯=Ä#é:æ„ž†¥þâ o«¼’“fJ§ãpÒBŠv·*y#…0,EñTšªNJã›ôó<±6¥ÙF¹ çXmŽ”ôî–WÆ´,ÜhŽðècÒ•ÝÑr·Üf£9b{ð8èã¡ë¶3øœ? 0<ÑQ½ UÙ§â°8ª…qQ_¦†os— y®Í­ +M@/ò!žµ"qÙÇ¥P a“Ë>ÖK««sÒ”kaGíèjÐÁåj*OvœuÑl€W½ElÆ!`ZBþ%À[@ߢ¬¹Í2Ùð¦Û9À[Aßk#ö»|ˆ'~ó^“^­y5oÛWoÞ™Fó®³MSSç0‚Z÷"X4áNÐ;£·îE°èEhTsdU8ë^„Æåá­J™„u{Qéâh­»ÔºâGbÝSœ·k¹zAXµáyn‘J[ÊÌàæ½&½¸#Vç½&½¸£­Î›p—Ûæ¼—À¤—DjÞt\m˵¡i$[è3»"¿ÓâƒZfÓ$šÆXåèfÉ›jöŽWr´QsÜÚì×Þ9"Ž¦[ãFPÃ_‚Ï>úè ß?Ùÿ èã7|b܇xâ7ü¥0ö¥‘þ|ŒÁ%„[\z™2ÛŸ¬Ú~²`ò»r™«/1£¶Í\×Ϭ2âÌ‘Iáæ+,|ç™ÿpø|sñĘ™Cá-õˆ[Uœ1«RÈkìQé¶mÒñ 7hSYŠ¾ôË£o*KÑ<ôoÄßTˆýoúOüMešÇ²H›ÊìKLj¾,]]ËjÓ$õrà­ oÞ¦/‡Mî>I.°MûÛ|ˆGQéUÕÖ„÷B˜îÀ6íì¸mÀC<’­iKXqV¢f<IJVæ3/s4xç|%ÔBèmÄ™ªsn:)–*%d»¸ ô*… ·`–δ`»¸ôêèã:b·x5è«C›ÅîZ PN/U3Ø€˜®Û¬¸†¦kf^$.î$-v7&1åL‘ùCÅÓ“²£æ‰ºZ´h™ãD|ÿÎËe¯ú˜ÎÇ‚¤„(ÅhÚ»ÏJ2½õô¿Ê„jεÅ!!j5â‹›ÚÌ4ß®jáÆ3×ù𑚦ÿí¬§a¡‘Ñr¸/'WÖ•Y¯dÒ•œ¶¸²N&ƒÊ_˜AËïx åiÇå=íqàè‘ÙâiG}‚Ê®ÆÓ*£•§—ô´J„ ìiÕidFOÛÚàÛU-­=mt\gð´jLÓÿvý…l˜àãÓÀkˆ~ŸýT[¼é¼ŠpZ5»ê«€oý–ÙâPßêü­2‚«q¨JÄh~ŽðPR¨Vʧ*‘+°OU§”™|êôfß®šiíV£ã:ƒ[Uc þ·›µ ³P  Áiv¶ù‚XšH1‚ïÃð ÿßAÿwiá»ð¶?€‹=·6[u³ F’C¹¼åöxR$ÓÒN÷O€?8{¡©ÓÇœn´>÷}rÿ£ŒÜj|®1šúÜEäs…ž¥¼®É{]ujñ¼ng 鵂6ÕMssž¦-¶K[­{‚è¸ÎШi6þ·k)מ_}é-눬XS~«…OP¾sñ*jßÓŸªÐ23„Á¢qâA*R[Ë\b·x­  C*M¯fƈ¥¹)#"oëùÌ=;Ô_òÖ~ób‹Fp•'®>&hÂ6Œ¥.gumÈ5i3þÈ:`žÌJvò‰çß(hÂY1²J¼É'ø›dWÒË«£©¸ŠOUMQ´L¯FÊ =¾BÍ4Î Ò$ÚUO-ûÚ¹Nß×*2^ÿÛòèª4o‡4oo‹wû‘u¨ï~LЄ³Ã¡~Ü'øÇeWãP•ˆÑÔ¡^ʆMë¤çªÔ؇ªÓÊL>tÃoWÕ´v›ÑqÁmª1QÿÛ«±Úêà\Û×]sœ¹!šòw!àw¥¼˜&¤ßþµ  gÄTâo|rÿŒÜj<«1¢˜R#Y`תN-NH)–²Ž«Ü„T¤Újíí£ã:ƒ·WÓlüo—híÅæGCè2ɈU™þ2ýK[BåɈ‰ÿü¿‚NüßÙ&ÿÚ'ø¯eWãÌ•ˆ¡8QPý¸:D“Œiµ´v˜ÑqÁaª1MÿÛ=-¶g`BwJÔŒc±õBaRþ¸_Q:w š0D+kê†Fm=èî’èAà A*Ò®‡ØÒ_7F2¬jo§Š–ùð>AwJ™Ñô›ïž4¡²Êh½êÑy;ð”  Cúe5Û®ž)QÓmA*êfÒÿt‹S“Àç š059ÀÇMRM ½ûqï®!9ž|¹ ;¥NÇ·»fµPmÕì®±°—4ä­ÏÍ”;^;õ†/Ñš¶ãÖÎQÁw´X¸ Xè«QPB ´¥¬eH.Ú’0ãÀs ÏEß.ˆ]ø(h¹[zýoˆ~ºnïí˜Î:d=Ÿ7q}Euç¼·s tC¯ÉSQοú[ÒêíhY£-N‹ ¶ß~´ü¼›÷öµ¾eð}Ö„1nØ)-_1¼{mŠz©dØtnMõV§yuóC†«ãN~~ô$Õ}Ér…Žøi@ì×:í¤uÙwÑŽY4ÀÚ·àºùžÀ„!è„qQÄR$Ñ£Àç šðbŽ¥HT8)hB±}cøÄ#iû¡£Ø`ñ„žÆÑ´ýRã š!ôŽ{“;̬é8Fæ(]e9Ðwö_ÔžØ] ¼´ÔÑ™ afÕ3LðÄõÍ?›‹„[ Üzƒ2u-×N îÝuבÀ'è“HÛ{AÇàЉÝFà Ã;ô«R,PóÝh!{…Iµx ô)eúº*—ô.Ku“´i.mwŒîF€çAŸGwýXhÝ]]»;°vl5-¡ñ Áž |=è׫knÕ£«gNȨì-À÷~_<*{ðý ßZe‹µ$vyŠH(éÀÏ€þŒº.Læ1åËÀ¯þZ<Êù,ðë ¿Z9ózdο!~ømÐߎ¢éd¥šÎ€?Ã]—Äî;ÀŸ‚þiû›ÎŸÿôß)l:×¼‘(ÿ üWÐÿrþøo ÿ-´rï©Íðø·÷5[Jl~7íÌ×ÏV÷ê4×ëäls˜~¶ÆàÃE*þ/&ÆÐv½°¦*ª;Σ¤€²tƒ7~Nlç‰DY \zYôm„ØÍ.½<´V.ã£Ú H¢¯!Vo}ƒ2]ŠQ‘̵b$ÑzàFÐãÑÔÀM 7…ÖT_Jì>æ[¶9jÒ²¬od:ÕKäÒ’ m3ÐniÕÿ©PÁ6‰TN€–:û9¸G€gAŸ ­ÆüvìÚMçÁoô!y&/-w²®R—øðiÐOÇ£¡—_ú5¡5$ue/‰ð ð  ß L)Kp“×`·9RÒGu$Ô[ýÁxÔóFà‡@Hz’ÁgîH„?úãÊÔ³ØSÔÔÉô9à7@#í|øMÐß ­wõ ›â7ÎMdzwe _¥­:?Ê%ª^R'«'ÅFñ²ÅX±ïÃåÚéºV2&jåf¢¨Ž¾%ßÃü­Ù{˜£èàóG® ±³€ ZA®ÍzÞ9æóâŽú+ÔÒÚ³ht›òEL™ø†§Ó¾_Ð ¹©3å3"$ÒÇ€_4a*üðK‚&¼â›Ä—?4a›ã›ÄŸ,hÂ84ôCàOš*Sß$~ ü A^4ñMâoÿ&è„ÔôQpõü%ð—‚&lS|“øw௻1’ø¦³¸DЄqhç¿Àv©  Cjç½ â›&óˆ^"\ӉĸB^PÂO šð"é;¿ü¶ ;¥3Pçg€ß4aHºvº'èL-‰öûÀ¿4aHO¯¯b;'Œoÿ:¢˜0®zÂnÖÈ÷S$Óbà*Ы¢7db7¸´Ô•|áû)ájàÐkÔyO;2“Å$ÒMÀ èL<ÊÑ€YÐÙÐÊYéuSÌL}½“„¶€û@ï»8†½$ÒAàƒ ¥.x ®­ýÀã ·'"'†€~èâè°I¤Q  ÚŽG9:Ðí„VN¦.ŠKiƸ!n ç7Fâ˜B·º]U®•¹Àw€~ÇÅÓÊÞü$èOÆ£Èw?úSíkeŸ~ôç/žVö5àwA7å|ø=Ðß ­œåS~.†TCaçûÀŸþ™²Ú˜7Ä[w¾k„Zù"oí‰}§ñHÚé¼°âPðt‰ñ„¬•UlDpŸUÕÙàù˜iäÆÜa½bØZ2 xë (ÂU ¥ñ¦­úʉñá[‹†«³^¢·l[§œKåJy=p3èÍ -Ú(êf¡ßÕÀ- ·„Ö]gJ“(ÿVà6ÐÛ”)iwñÄÄD:€²ZœÏDBÞ < ú¤2eͪحTµx ô©Ðªê ž¹F<=¬¬øó‡ôŠ;fÙ- µÞdG[Ý/±ïôa8÷»(¬8=brÁCu#½zI/L:b¾åpmÒ]Lõħ %…Â}D]ox§U±)¡ÐÑŽx…ýxÄq'ØøWBØgAK¥Îk6Äî(pôd"âÿðh©Ã˜šG1°IBžç_ú Õ1lò-Ø> |ô¡Õ±(9ГÒ2½½¶H5¢Ÿý¤2ÅÜè…”yˤ²/ÓŸÎlÙ4°¹ï4s¨ãý›Òfÿ@ÀÀ’D}-ðs ?§PwÌë·`ûðó åæ=üo»sbÿâQTúK‡Øg Û %ØQ¹ÙÞŽ¶Æ–ľӇmÚ§;Ä^uñ„s°6  }P aè®P¹é),b‹¯„lË€W€–ÚÎÞ¢Õ¶8…¥ú \ z¥B¶-¦‰Ýà• ¯ m;ø,»^;‹Åµ¼“zy²ƒUqêƒ,ºS±±{KB_W€]5ÝË’7 ®Î"Á1+èùr$ØCÀÓ OÇcPÏ€>A@BÔÝM J¯fU¬\“'Ѹt4S”&4Å?¦9?FÔ`q‘}"ø‰ÊR~ôg•Uå‚!Ç0ô‚cµðØäû;ÚÚûN†ëÇ>r¡â´\?¡EþK}ˆ'dµX«ð¿ÀeÊB½„@ˆNÕ-åoÕ˜Ü0«q¯U(Xü@7ã,?͉¶ …ŠãÚÔxùqOô1:GAÕ5è$•ãtwßïNOà‚n@á‡A‡.èCTÐIÓ(äYçÐIx&?„ÞÌIsÖÏ1åP¶ ?X•&h¦«îD=^´zí­'b™dðbnDÑýPìjx{¨Æ®NQu{¡EÁ5ݺ=(eÛ*[¶¨RŠ-fÜÎ7œ°¼S—r3JFx ô©Ð¥ìƒö' vºë`wJ;kæ’S™,U—ˆÞПÚÒßÜF¶@RB_l»loÕØȽ~±õ I« íM!,cÊCx/è{C—mcžù‰½Ú9¬Ò>¶CÞíõþ$¤ì´Ÿ#°(;Àžpè9m0ÕAðöP©æÈTkmƒCÃá¨tMà6‘®ŽŽ©é†—/Ⱥ‘~Î{Ë:¯\ù;Q:Âè\è’öç¬Òxš÷íIf7Lš)J§¾aœ¡(ð €4¯„àbßQ û;ªatì†r+x{¨ÆP®#C©]l³Ž2Ñ×UÌ ,ä.FxèëÂÚ|:&ýŽ ëƒìŸ¦ZNiÕ¬*æ­º'Í´Ûê'ðZ·¡ „wƒ¾» °¼=Tc²Ö/!½‘›q–V˜M¬›4×ñ®mÝ8#„W,÷í•0Z*­ºNî]Á¢.s?¸ìì{ê =v;Ø Þª±ƒuG„¾¤«Økmx{¨¦ÖNÿiTÇUu]¥v{öàỽ 5¼îסd„R^·óæ#llÁ>[Òò户 Q;Q*p÷£\„'@Ÿ]ƃTF~‰‰*B]¯lèf­O³ò,¼°éƒÁýÇ( áAÐÃG¼¡.׋v‹s=)ÍÉ3ŠþaQ/£Ø“ ,ûs /¡ºˆ÷9Z‹ÿŠY&{–Ëž%Ù‰,1ª”õyÇt‰bÀR>³uëÖà^ð.”â®úÒÅÞž}s[ Ûóð”öì[r˜¡ÙRË·*Þ¼SE/hÃ&‹ ycà³Í|×fà‚úB…óKwa"­ä&ðпñt ·9LSôÀEòµb¿=…,Ò¶cØ#nWݬAhB߀<ì$T«f-׶Sžé‰MÛÁ›ú=(á)ЧB—r_€À-ïZV"^ªÐñÛaÐ Äî¹|¹[³ ~; Û¿ùæºÖwƒt§“XDðíåjðƒµCýŒá4½-p‘Ž¡„êÜ`𪽼=TSµÇ§º-¾Àø~”Šð8èð›6‡ ŒË{Ñ;l:†m2Câ/±p¸„ T(-á@c_Ê´¦º/}Òú CJ¾¿m²¯öý²Ø[õx{ø¬ }#ÝgK€|Å œ•²/\|È¡du¨  íòpMQµ‡ –u‡ÐÆîÅ| Z¡koŠŽoõ«­):yðöPMÝÞÃCj­hÑ-Á}Øâ9^€íŒ‰¬bé±vųw{7ë]òâ -q2Ràr( ¡o ²\‡©\eÖ¬t[x~Ç5Ê }û~L~æ ]!s¹©F#( ¡o4»áŒ‚·‡j çZtOµ‹”’”$19˜Ù¶)x4¹¯}møùþZo“¡Lˆlº u÷.ÿÿ=èAsÉþôÖS_–ø»lŠ½ÌlØè{¸Œ&ÊE¨n¾ÿD]šKfÒÙ&Åà,½ìßФŒüÝ@Šu²™¡Êxå:­´Œ»«etÇõ“•‰—Mg² åÈW_²ÿûÓ›Ã”ä ¤'ô­å†,ÉöjIt³**•fSµÃu/6n‘.ARúry”• W'h&SÓC݋ͤKP„ÔE¥%x¨ZËö Êjã&Q†‚5a4¾eMk@¼­”ËSÞnL³$UÌŠFøPG5H YÌ[kŠbqsƒ°ìÿôÏs-wê»-›$2/,ˆNx+è[CC*_¬ ö„íÌ{¼=TÓõ.§Ø†w¶š;Y6œmå²! árÐËC˵äÊôÐ`Ʋ]Ç7ÏvävGs¬Z¢7 ¨øõñ,~Ì›4¦cCöÚ‘ª‹ã „êÖ ŽRq²µâðyæÞêÑb.‘Â,å ºò†n-uÝîöº†ãjI*ü¨mUÊâ üàÊEqÕìžCE¨/Út1pMKáKTA)Õ-I?H%ÚÐÃÍY®U䥓¸%×,UhóYMMµYiü• ÒôiÈ“=›Õ\úLàŽ£P„¾éÒ¢n U@¦ÒZf‡˜ßߺñFm÷þÀEœ@±Õ…y|Ŧ͵ ~²2•N˜Zí¬äja™-Ö•M;dè¶ÃzeÛ¢óz‹¿GØ7O¸˜gQ4‡:TuÌÁ»‘IðöPM7r¬ÙäpÍc–Øs×TÙ¦ëTóãùPiñZ&¥eSü# ÷ Dè[c›=³§ç 4¡ºÙÓcò³§®9Hã$ˆç ÉàÞúQèQ¥Ú‘ ê΃=a;ƒºÇÀÛC5­qÿô °go¿Û¿zãµKqŠ©×'µ Ëó\”PÝØÑ „5A6þÕM>Úf@cISlÝüyÝEÁ­÷y(¡ºèIÊzûÇÛl½Ïo/4òÕ ½÷ÖKã†-‚þƒ‡y±{m…½>Ù´u3©m \Рp„à‡Ctf]+§Uq-›L8]äóü‡Êð Ÿ&ð™sà2<¹ }{ÂöSº,S1u4lÆ |.ÚŒÁQbNà…šP]ß(Õ_ö/js|1x{¨¦­k€b9’·Àêx³WmˆÍz’àMî%(¡:wÛãor¢ddŽÌRÈ7¯—BFÂÐ=¡åÝ;5\kØàÂÄv­<ò$6?ñ­O2Míe(á^Ð{ÛÓÔ^ö/osSû ðöPMSÛNMÍ6Š´Õ’·©-*²®‹Ûcu¬êОMÖàJ£†­• #oäƒ+õ7!5¡ºð´ç’ Kíêî{ïº+°`¯€0„+@¯P#˜¨FYÁ^ a^©T°à¶÷$x{¨Æöî~”°›ÅX c„)Ûi½Û6}~~Sà²=…òªÛÕ~¸ÅˆŠl6B°l›ïi§E ÿ(¡Î…ÚÜ…ÚR>ôU( áaЇÛãC_ ö„íô¡Oƒ·‡ ÓNfW|“wÓÇ*Ámø5( ¡º´“{¦Æ*6%…ÙÓd…Q, . xeyFi¹¤Løµ`ÿÚ6›ðëÀÛC5&¼¹! `>• •†¯‡Ä„¾ƒfBJ¿ŒzZ&ªt?ûˆò†êpT!U¡¬Xo„(oT*Vp›{x{¨Ææö’Í•,ßå‘|Ï¿éð.¿`¸Fí몛DÖ[¡ }ŠÍ›QÂ6-~ ì ÛéS~¼=T£_~¼ÃˆéòMNWôB¯80ÓÑŠëM´Æ0¸*ßY 3 3¡å^k›e?‹ãÛ»÷ì‘Èi~+¤#ô]X»¦ßÞªÑt{sšßŽr¶3§ùàí¡Âಭ9ÍïDYÕa{å4ûcçœÅüˆ™3¥6>¾  TçýƒË»ÁÛC5Æ¢6ù=‹P]óÚêD"‚“é u™¯rI‡ï…t„êÜëMM3u·l )ìï@@›@ßZث–ÇêRVûÓÙÍÒ²¾òÞúÆвÞP••Ÿé·u •Ù’y·YiQßñ}÷0‡m‘ãÌþß”i–ãÌþØ$W‚@jÂèsœIЭÍrœ)ýw³\ >©?¨´Óä8óDæ-›Zä8ó·üìÈf9ÎTéL¿D1?„¢>ú¡ÐŪ%Ädj Ù¸!i²ÁÃKÓÞ¼uê˜ç¦ÔæÒ­éÃ(¡o;¯º"f}¥È¤7×Ñ÷r“ÈSoØßwS[¼-Ácò XQZD©àGÁž°Á·‡j¢’ð)Þ‡,„ËA/-׆†ïÆIZ_ YM% ,ú' .¡ï¼î¢ï¸ tn/s›Ðûú·iö˜¥ jý‹ðIˆMè;¼6¬/@Úv]0Þ4Ý·>ýÞšqýÁ<Å6ø°àS(Ö§”ú‚ç Û¯%ù +¥u{Ô,ñC8*lD#2O]Ëe¿q0ÈcU¸DŸF)Õe¦ßÑ,q{ØrÇ|ÓÄQ¤¡% ôë²4û‘£}¡¥Q—sþY”ðNÐw¶Áá¼=Tãð¼àdl¿»>)›¿Î.àçQ(BuûvδºKKd´¶[—À,·üN¸ôÎöD*_{ÂvF*_oÕî‘é3߶ÿHcJB³3”|k¹Á·|¥! wצÿíöKER½‡à+šPÝ(ðè´{.ì–Ð9Ø_EqÛœƒý5°ÿZ›[â×ÁÛC5-qG]N D'º«ä¸v%'Ò°«E¨M¿ ± Õ¸ÛýéTÖ/°è¯Ú1L=8G¾‡ø=Hý{J›œ”]~ì¿Ñf»ü&x{¨Æ.OÎÐCÝs´±‡p ×ÖY€I×=5ë$(¼ÙÀÛàIÊßBÁO‚>¾lÕY°ÒŵÛåÛ( ¡ºnPÊ¢¿ößi³Eÿ>x{¨Æ¢#ßí<íP8ÂaÐá ïn—ïBnÂY¹Ûå{š°Í»]¾ößosüx{¨¦ê­ÒG½ë>§ïEh¦¯Iƒ Óþ~ˆ²ê õÐåŒnëËBFÂÐ=¡å½ë¶¾ØL3é²Ø¯¯.óõ¿¡„êŽá”j}öÔæÖ÷Çàí¡šÖç˜ÿ© /ª 0aW€^¡F°p`þÂü©RÁ‚ÛÞÀÛC5¶·/@¬ÿˆîÐ9°?FÕ1$å]~ö„íô.?oÕhxàÂr`C¿þg–PÝ)æQdÁþ9¤#lgìÏÀÛC5ºnoì_ „¡²`›²½dÈ»ëº ë Øý¥Òê |Å;±ïô! 1.¨gnQ/™å€"ý{—€^¢L) †Î“–oÁ9\ ziü:ù+|ÎCfÛ}µaYÚ«Ö—üv›¸åÕje »¨À×´h(—TçWZÙʱ=‡ok¢7ªåù5Så´Ïd½Zïøñ»¹S\ã½G÷ön/çýº±ùú^ΟÒö”r¥ÔêsIÆ‹¾ëGçþëáÑÅ VÓ‰¿èà‘ý÷ç\ψøní‹62Û!¥ªÏª^.müÎõ¾³Þn¦´‚ù¬Œ˜cš\˜wš;Dãàzöže5ôôüš˜\±]îC<b(mÔk-.-U;M¹ÎÒ ¦Þ¬ïDUtv4M±‹K+Ä~…ñ(ÒÊÞݘԾ)¦÷èdÙÐØoFÌ.rA;Ÿbe5m:ÛÕ>qîÀ®£ûîÜuÿáS÷Ù³ûö»i¢èȤ“5\£4žìnxÝݳ]«þjºã³æˆ–¼¾ôHnL·“þw==S¾¦{ÌuËζ¾¾\¾”>í°@È·Ó%Ãí+•‹¬vÇNëgoÝÐçg{‹ÅBoŽÊÇ>ؽ];ľŠ¾Â™t\£˜¦Þ3Ù·rÞ_ñ¿©~>¥•õܪƒn¼·=QK\Púºí¦›´)’‹J`¯²*î¹NÎ6ËîÎì‹îÔÏjƒÚ9öërÅݦ±J <½%c"WdÌéׇØïØ«tºýï Ñç—˜>Õ:~ûŽ>°+-oŒ¶ÆÔ?8ÝßוxgõKίӌ‚c°`5ÕŸl(†ï»‡º×¥êT”be®û¢žóç[UY5>°k÷áƒ- þ%ÀWƒ~uPƒ§O,jüÄ¢¡‚¥çQ>‡E=Y³¾hUDs}Ú'ýÓ2Òû{Ç®f’}x¶™UÀKY-6çJ&צC½E;XßR÷Øíœn¨Üj`Û²,]Ì‘GY”f‚„ëÝý¢=]{évÑPÞ6ǪºEl‘è˜2̹*Æ ®=Ä#é:æ…žƒ¥Ñýâ †m¯Kî@fr:RÚ#<»Ìÿ-‰Yí Ær…JÞ¾ê¼ê!l²š'Y‚dmµ¹`Œ…Á­½3–X9ƌܙÁ£‡ïÝ\ÜK "g:ZÜlMÜêÒwŠî­dñ´v 9RÒYWTð…–0 :+m¹-§+ò–Ûl`Ll€›Ao]oÁWOH€-À­ ·*FV”¶h©Tç—v„pjá±ïôa8–+΢æOÈZébí(  ^/AèñKÖK«hµ«Ôl!ph©j*PvœÄ¿á_c¿Úà;[æ²L§{€‡AV¦i×0§UÉÀ OÄ£’#À“ O†VÉAÆ¡Æ»÷ š0¤çÊL*‘O:!5¯ÖB)ãrJÉGG)'c‚&Œ=D'þ&ð´  £ÑÉëÏÛ3‚Nœ‰?D'ö…zOü!ú*aÎ#\ô{P%d[\Úvѧñ¬ší3ÌEøR®Ê¶5næYè=nê2Ý;`ð.ÐwIW²’ø˜D9<úXôÞ‡ØÞZª'ª«Cµu»ZZm¸»dÐõ}£B«ÕÐá{—l]§Â--¯%­Ra’ýX0ÆuÖí°À¡¤U/)[B÷_ ú¥íH”'¯­îX¦i5ø2àÓ ¥N ª«ëjñ¿iÄ—5/×è^ü(h¹>N}£û ð+ ¥_‚«ìcÀ¯‚þjh•­×ô‚mèùIÍ8k:.©©>(ïIkG C¶µ} øsÐ?W¦¿¹ÇÈ™KˆôKà‚þOeª›?äÜS±ÜVÊûGà¯@ÿ*´òVkŽ8¯:-ÛðrCƒÆq$× ¤‰G¢•N@¶ˆãˆí°])hã8be ½'þ8îjaèÕÆq„-ÕÓâ(c!0|’Bc ^Æç‚k;¨‚Ú,Iµ¨Ö¢·Ù«a³„׃¾>~›%öÝ>Ä£¨ô ‡ªjiÂ{Ló ž¸«àظ‡x$[Ë aŹ-ÄCéM¸õƒ.æEŽï|¯ƒZ½³Ìæ‡ê|›Î7Š¥H Ù.®½Jaíí™Âv p5èÕÑÇmÄnðjÐW‡6‹Ýµ®œ^¢!å)úoáÕµ 3/ w’³$Ôv ð$è“Êâ¹eH¯ðnšdBRÇAÇÚÃSÀ Ðaõ›x{ZÛgMãt+ÅÞf‰)Õaá‡+¦]¯èœaÓFåjÅyó¯¦S³‘¢>©•,Ckº¾1_½O­aë¾v/R^ýÖœiç*EÇåI+)±~ˤ©¥È&JnLÓ) ‚4¬Ï‚iz<ûXåÌÔÿÒÃEfâêã,žå™5î˜îzÆŽ“æY)ªwóòLÄ2nº< ‡É€+ EAé/½W/é…IÇd¥$ŸZ®ØeË©æ𔙨4v­ÖšÉ3‡FôœY0]q')ûcêÂIíÈ@Î ì\-èN)ÿ®›Z#_ÕtÞ;ÑMÕ¶ðL–i ®0É3˜šëöÖ³!')¯ºR° ä&Ü zçEÒ»‘LÏ}(úÞØíÞZê„­`½±»xôáÐÖtuÍŽtGø>Ù5Aì°º¨¬×’šó#Q\àh©#¸ªJÀ³ åö•øßöWpäS™{Dòœ—Y.NÑðMJèoøÐïQ¦¿ÎISF{~ô‡ãÑÞ{-µÐ>ɇDø(ð“ å–½šªd\J%_~ôãQɧ€_ý¥Ð*Y¡%+%ÖPœÚdº„~¾ üè(ÓüÄ9Éó'ÀŸþYïh6M‘òIÄ‚5êÿUOZ;Ƴl„Ouð‰C‚&TdÓ4]ÐnŽC‚&ŒÁ.÷OZrˉÿí.:S¥nN¹ádˆÆå—ê1’§~ø'¿%hBE* qê ôNàM‡Zø!A†Tëòºû 'UætG¦/M|øeAJŠåݧž2GèŽPïþX£X;wž_:”\›ê9O¿|¸tnmæüyüÍe“§LmPI¹ÆY—îª<ßÓ¢0Ó^J%ù ð'‚& V"úÄ”ËAçO;LjŸ]R¬ÝüÐÁà÷‚’À?õ þSÁ«¡oçŒI2¤”(ÅhÚp¯J6ÑóP+M·ºýS™Í¹¶¸ýS­†|Ë4Mm(@ƒhW5ñÆ3×ùð-‘šnCšñ ¾Ÿ×/Ì_A˜¿’¦Ë[žàYÏ­ÍV½ëfF¹¼åöxR$ÓÒîõ¯ÿ[Є Üë<æ^£õ®ÿé“û?eäVã]•ˆÑÔ».Jzz–r©J$ ìRÕ©Ås©- §Ö ÚT7ÍÍyš¶Ø.mµöìÑqÁ³«i6þ·kxFLÝùaÕQÍMÉ»˜Î«MØöQlç h†;«€7 š0¤Â:/ÿ›€ëMRŽÀ¸7 …VQÍîSb÷€eϬӛž×žÜ½_¤ŸéãÛ¥Ú´NëMÎ"¥¬þâ¾Ýû›ÎáÖ. X-7¡*Ÿ-5oªð(]’åuÀ7~Sô †Ø½ øfÐom!Rù$ÂoßúmJµü$]’å½À€þ@A¨{|J¥¾xNЉGfÁ0”ä}Ô'÷9¹ÃC•‰ÑÔ+¬“|-Ì!ðÈT™°F¦j55ÓÈtúöÓžêjT®·K©Í°Ñrf«®Áùß^GçIˆ+,}åÁñc®Cø¦×CF¹eÔ† ‰·i©î·ÙóŽXB…Ä€ïB}¼3´¾VÖ…s=)¹™e’éÝÀÏC¾ÏIËfÍ®‹5|ÙÞû Ào¢ßPÒ{G¼FGË'ø7eWÓ}+£iK?”dz•ê¦•¸›V§‘™Öä¦1øvUKëŽ.:®3ttjLÓÿV÷fj§¤"7¤*cóä§/&iðMÃ6yGÐÙ#ŠÙ™l‹^z Õy3p‡(LçöYâŠ;}‚ï\‰+V#FSW¼d(nà¤F¶ Y¡bfòÈ3›»j§¥cŽëôŽY‘¡úßÞì9æ†#®^Êëv^3l›n••›…®Ê;y iyCçOxãr‹ÿÊzÜQàc(Üy%7ò©«Îçúä~LFn5W‰­2(mkl—¾ZwÑq¡PÓpüoïö:n9)ƒX+îÇÊGµS(QÖyAË›tÂípE»"•eî/Óï£LßiK>'“ÞºI¶;øàŸ¢2[ðùÿSÁÕôJÄh¾­x(IŠ•ê ”H¸/P§’™BïéL¾]õÒÚçFÇuŸ«Æ8ýo¯ÀP[7Þ¨íÞßÃ3uGìíŸ Ú?†Ž¯onpÜgg>óùÌ|“ÈúÎqžæ>T0FÜäЈ­çΉ„wž'r^ëÕª?†Ù—dÙÏ´¯­ºRv~È6GÇÜž“Y|ãMâ“Iþ ì øŸöh}Z2{³ˆzèÓ’Îú»N‹Šë2•9ë|¤ÎºëLMpþ¼™g¨†Ž«ÓæЉà¾EMƒúÜj¶Uü­²µ´©v›–+\›mEÌÊ·ìn"d;}w£†qnÞá]N³ëÃzîL/´R)ˆ›ÌÉWóE“¾e鞦“òN³Yùê9$Nõ Õ»Ð}55g‰¨©9‹•Eg>‘ WW²çrñ³2Sm½Î=g)ðJQœ}8‹¹Êw5‰wü¾c¸³·Iª«€}0ZºÀÙÛë„Š«¨&{{\doÓÑ9t5y¹`¤(}Û1óÞ­æV¡`Mq£þD³² C;¼û(šdõ<Á&§‚Òç6êo Zö$ÊK8z<~ô€µ‡ò* öºè‚ÅiѱЊÙRâ Y+k˜žµ½\Ýi~²h’e™dcfÛ@*¨ëQO„k@¯ -ämÊ´ñÜI»¶ËÍ%³)íî])mCOJ+U›Ùº!¥e¶°w6õ.J âîþž–E)r\è-¢(›yQ¼ßfû3TönÆàEé…ø½J‹¢O- µzÞè¹ÐTŒþô¦ T VæX˜—©½À‹J¹ì{‘Ig³üEOÐb¦Q4B´º˜÷£…ˆ³Þ’8"z°ûàá›ƒUKdúʘƒ%Aæ¼LƒìE–^p’Ú û'péúP"ÂûA‡¿¢–N_ *I?¸Î='BÿÜBŒ X{¨¦‹<¸–Ù±p5#|J­¡Š†Y³vaÚÂŽù“&‡q3h¡²(áAÐU*ÃÊx-5;@?mÝàý<°…~Ù_}÷®º{ûÓ7ö÷³VÛ¿%³%h¡PÕ…ÊŠ²Ô Í~ÃÏ[ÄOäŠ4îw4îdüe´PP J u÷ZMˆ_-„Æu´aSõçÍüçªæ¦jjÓVÐþô† ›–i#ÊAx7軕•Ù‡øñ?l(Õ"ÄñØ««ÒÀ±?äCð  L-sùÈNF%ü hu§‘M«’ ú§¡U2/%q ü+ÐrG‘5U j˨åï€ÿZ*ý ¸ZþøO ÿ)´ZÞ)KÙ½ŸVÊ|‰nu{ýù6“ ཛSŠ=›IRîÄÝáå?B€/|g™£eÛägú#ç£é5_þ ôtËÁgþ©Š~!0ñ´  ãî.· “«b¸™ÿa'º¶wˆÙ~ñ„¬•{òº›¥‰Mº.=ÁÌ&iUÜÁj?”ëáƒÜò*üÝÕ&1SZíPÜÀš;P³„÷€¾'t±æR±‚Š2ö„sAÏÐîZˆ±¬=|VÌhÞ‚‚}PE¡Ú9£y+ r«êB…›Ñì¥Y¿MìW™Lf h¡v¡ »”ª½3š·¡„m˜ÑÜîc¯®JwhÄþñÄ-ÆnÔ€‡jüÛå°kB~pw;¤!¼ôåÊÂU‰ Mäjà5 ¯‰>V%vW¯-5þH8á:`7ènu* >gI‚ôo}s<*Y \z}h•\×'ųÝh”P0\#ð4É–î~^5°ñå6(ô/÷ ÿ²¿z% ¨hžËˆO‰Ñ*ñq8lerÊ¥‚1nd/ Ú‹â}Lá4É´A,'€:h©|‹` ‚ØÝ=ZË'/a%Uòƒém6fÃ`Z13r®E·w‹«/òæÈ.—\ï*+1®ýšWlð‹®©l9à—A9þu,ÍC5 êZÑ n›Ôòƈ^)¸ZÒL锸æ1 ˆû áµ åz¬¦[ýscFîÌàÑÃ÷î Ú:H €½ {£oÄî:`t:¬Ê:ßדª?µ:§Û6™»U!?h[•Ñ1×MèSn©YâçñÙ¢º[íµ½Pp´$wgù¯ “=Ú˜^™àWF¹¦™˜¯ÅœTË3ÇÄM“†žÃ—~'Šõº=Ð!‰ù4—š'}§µ]ìWv‰–Xk7§"BuùÊ8u‡^“kåüâzSx~þÕ¬ýÃUÐAÇf)oæDzºNURÖmפŒu»¾Ë¨?‹Óž2;§û}Š˜¡«¿m‡öéψçW|[ã†6Á…_ǃ唪?c12y®ŠÁ×^¨~©>?åN® `.Ø2õ ÜYÖX§ÇaÃt™ 8Ž9\˜dÅ6iHÏå*6 —Övóºód§»îKÂTxš=¿Î¯~@Þ—ìÝ€ØÕRCéHÒˆ&ŒÛÕî‡ïòP‰«MÂÕÞ76¥EQ¥Ó,°¿E%õjú<ÒÃ…a‰Ã4¸©yD;B7b.™¦Šø×z=ÅD0?\´lç|j+þoÓMžŒÕ›aý®–md’®SˆT_Xj~µc)sÝ®^‹LvîAP¾:o§W\‹Ö+7fì‹wªgè2æA»¬;¡Þ;IA‚N„?f$ø6ȸ±kÒdßÐrëãšÆmT“&í¡Â*¹=T3#À?4a°¢OĽç‘þ®OðïÊΟéö<ÞvÁ{[¨.ð>GeåjεÅ>Çhj³³…¾Ã6‡6ÕhÓ²H6Êö¨¿å¦ÆhÙN³©Qãú·–]ëyG\Öc˜¶ãRU˜ôúĆ;3CÌï+Vçu‚&T4V’cU™¼Í¹¶˜W«,ߪBSs’k&íª±æ3ÇÑrfæXAשDé¥k~?úcÊä40 óYà—@I™ÆZN»¿ úË¡õuÛ”K×¼«®®š°zéðµ|µû­îS•ÐéW&:M؆^.· ÷‘MfhåìИ‰’cyô|O+×;S›èšpVô·‰ >Á7È®¤¿U#FÓ¦Ÿº`åËô¼j$Úó*TÛL=oئӮºkÙGÈuú>X‘‘ûß.¼:Ó/ÍvH# RØK….æ”Ë[nLj~“–vÇ;€ÇM¨ÀG{¯É{ŸOîûdäV㕈ÑÔ/eÞ¸¦l)‡«D¸ÀWffJù©k mªžæ· MÛ&Û¥²Ö~>:®3øy5ÍÇÿö>-o”,)ž¹J‘çèŒõwUSC­‘¯›B¸¨ påšnü)“Ä¢a¨–ø¢  • Õ féL ¶ª%¾$èD<#ÄÄ_4aH+¢ã4ê&bo&¶~ˆˆ!η71‹|j§R.¼d0oÿRàͯT2Œ;¯t§Ô^Ó¦&6‡‚V‰Ù€ÎµÀ›Mƒ®;¯®4aH]Km%’À”  U)¥,©”à&AwJ­éWJ/p³ ;7‡VJð³ÜˆÿàVA†”#ðÒPgÕ¬!="ÖvaÊ›Ž‚Ÿáùªþ©G³„[¯æ³ê—–’æˆF»}°÷©`:-Këfvé÷ˆi±€å?2>úéò‡™éº¹~¢œbÉ“çz3çÅ°½6”ïËJ ®¨€ç€8hÇ\ üAŸà”<üèJ™M=hºqmi:õ|)“=ÐàK­âfší ß|ÚU{ÍÇAÑrf¤ÎÐýoeç»üÒ|ô'¤¥ ;ßµ¬fVu“^—V-7óE¥û$ðG ¤Ä9G;óEòþØ'÷eäV㛕ˆÑÔ7_.f¾üj—òÀJ$ ìÕ©g¦é¯©£MuÔ|rnæ&Ú.åµî¢ã:C ¦5ùß>Q7öpE/¹fÁ·)óZôÒä§,^šØL“f=‘Íšùj"qRЄªgÍ–˜5#‘Î-AF=kFì `YЄQÚ‰Ý)àÂ& “H^Á¿.#x³QIýÎÍf{ê[+'ðze¥ODPw­â‰`æݦúk*y€FÖ·Ü#-Ûéƒ5Œëqã4ÿê²7ïúEý[ˆú·ÊFGI’ ÿü…  ãè”ÿ'ðŸMReWŠÃ˜Â^¼KBý‹À΂& )\àéõ“BÃUTsÓBïŒZ†ÃÉx<ìMº_ÐÔº8”ËtÄiEâ«\of~ÊíC=t*¿3fMxG…éŽS)òÐÂgõœ[}¯wXšN¾ô¶’X¥‚o/‰·‰ÐÛ:bðÀ Ö]ÔÂÄѹI°BŒY…¼–4Ò£Á#úSÐÁ)¡K¢=JècÞîa~í9•³¾i}ú]Óé¥,M/Ñ[êǼ?¨FuóËÚ-ÝŸñ¢°2ë]ß/ªï%¢6*ö¥À´  Emn}ÔÖª_ŸËk*¸â}>Éûd$¿àÉäê¸U§­LÈ@Ñríb–%ÓiME&ÀWk)²s’j+¨±b%«~!ðddÔfÚ|ððl6SòäÿÏ¡ý?‡6%`ð‚&œ%!Ï»|’¿KFò ¢UOç!”ØCDÇu¡„i$!:K ò¨« iBžR!O”fÚ:äy¶š©dÈóÿڳѡùßìÁ™×t½n±Hç]Óî:æ—,šåq˜æ©.òºÖÈHíÀxLïߎî/Ô¿¢PÿzQ†;‘Íðü›ÀΫM8;ÂÎU5ɉ.y "5BõrmíÔ0"ÜQh)aÂ…¤z†'R3mîÄ·¾“Öú°¿„¹Ôm‹«ßõ™Ÿº™Í?÷ç.gæ’Ki×؆H3˜–7­é¤XÜ’Ó½<¦Úev4™éMX궡Ùôk±ù”þ&#xøÜeb4mÉó‡’L¯óZ” Õœk‹¼µ™)¯eƒoWµ4Ïi‰–ë49-êLÓÿv=?J§sŒÐ¨"G¾K©-r»4j4l[âÎk¿À¯‚À¯Š$÷(¬ÎC5#9‰ûσ9aè.e–3Ã×``>§öÄ­ b?ׇmºóú1T¿‡jlb ³‰ƒeRí†NiVI(ï à ù\F¸ôe}Q¢4¤$9nò!ž¨CJb§×GÅ_T¯¡¹~¯ˆÈür-—9>>chŽùˆw‰ÁN>ãq”®%Ói"F³‚1^¤á~´‚:Zžl`X|3ó¤ñó–—RÚpÅ3* z/Ä ÖÂj'³$¦íø)¡bÓÙ½y[Ÿ i"þ°dЬåÖnÞ”°¶¤ÀÄA'䎣šîÔÁyBÔà²ññájA*³¼G‰»¥À«MƒÁó‘=á5‚NÈ]Oã{]mY“&È.õüéŠã:’Ö’¸¸MЄªæˆ&õ³¦#៻€{P·R?­º¶÷ :~…þt"mÁ Yeá"øôq¹õÕû+[x•ê&Âwðbö-¸Yy²—*¹'pXGå¼øaA*ªæCyÃe}§ çk…©t<¯Ce¯8x ö>Ä#iûÛŠóx_Œ¯"žµBøí‘q χfq€]‡ÜvMçhÍ>¨g Q–/-5SÌ3»KW€¾BA”Yõ ºX ªÞ¼-1wI­n½A™ºéå²QÊîÝuב=2jÛÜ ZʳWÛFà Ãç:]•b¯Æ“ÂÉç ºø°$’jðèSÊôuU.Ù-2v»SݵöîVSVÓênxôùxt÷ð1Ð…ÖÝÕˆª',±&;\`½,ye¾æŽ{.ðõ _¯®¹1ñÒ%¦0çxæ„ŒÊÞ|è÷Å£²7ßúý¡U¶XK²aWÞÑ+WFI~ôgÔuaÝ“f·Œr¾ üh•§mO£œÏ¿úë¡•3¯Gæ†H’áwßýí(šNVªéüøÐ?‰G;ßþôOÛßtþ øw ÿNaÓ—k:ÿ üWÐRçíWÎßÿ ô¿…VÎ zj3p9è塵r™8­´:,’èmH À@ß LE—b\tôð½‡E$ÑzàFÐãÑÔÀM 7…ÖTŸ/ƒÃ²ÍQ³DcÕ†I| ´[±K8˜_B‹›hãâ·I¤pôDwG"|øqÐW¦žÅžz¤&ïH¦Ï¿úñhçÀo‚þfhí<îÊñneâiôŽHÀgî¯êüxb½¨»¼/Z/[ìφi™9XØΑ°Œo Lì4¡"ËèªfŒ²‡Ä!àaAÆ`‰;GMÒ6ñs]˜š¡SCLhðeü Ó¡«»JÆDÍ"äæ Iæ£À— šð" ^Oß(hÂ8´ù2à›MR›ëyð’÷öÁàN/€¦µ#fÑ,è6%ô?ë—}3ð‚NHyAõsV$Òw*hÂ8TøMàw¯’ø3ñcà?š°Íñgâ)hÂ84ôsà¿ š°Mñgâ?€ÿ%è„Üþ›hâÏÎ.à2AÆ¡žÿ¶ËÝ~ÆD6þìÄIçJA^,ñgçµÀAÆ Î+7 š0¤v>¨ þl2ÏÛ¸ótêlo\qN'&´:ÿDЄI'ÙùçÀ¿t§ÔrFp+úSàß š0¤];]œt:Dû] ÝÕ†ëK_(4^ÅvÎê¿ü_ÔŬ~Õv³F¸³"™W^½!»ùÀÕ ¥2wÃwV$ÂÕÀ5 ×¨ó2žvdfôI¤›€Йx”£³ ³¡•³²z»J¡àë¢$´5ÜZî4 åc_é ðAÐÆ£­ýÀã å7§† ËI„!àC º8:lihƒ¶ãQŽt@;¡•“© åRš1Κí3ái"4«]T$×Ê\à;@¿ãâieï~ô'ãQä;Ÿý©öµ²O?úóO+ûð» ¿r¾üèï…VÎrïLŒ«‡Â$Î÷?ý3eµ1oˆ·î&|jíxq‡ÊØ7pNì;}ˆGÒNç„ç%"ÌôOÈZ‘ØïûR¨„0Ô~ߦíwù.m²ó<\¯Ôvýo!p5h•›ê†­B¾Û9À«AKmªó×FâyÛ´=gsFÙ­mÃ3rg¼½NÕ°Rb”hñ˜Õ0 ¦;I#â¼ávÑ,4ÑßìH‘úýœµýtì ù ‚eÛ¤{“MºYpÔ¤Î:g•è^&~£Ã$ÿ ŸÁñzÂK©?¥‹npøE̦ãš9‡ypt—ÓþŠ.-àKƒµvïw´>üåÔ¹œ´ï‡rk¦*OìE-WlºÁ¡š*˜gŒ¯¡IÓ(äYÍ•£äðÓÇ„<]&iÿ´nD´Òõ#æΛyÌ— ¾¬£­“Øwú0œÇœVJ0¹Ä‡xBÖÊ*æ1ï³ #£:³¹c¦‘s‡õ 3­ GÄýE¸ ´ÔÔES?zåÄøð­EÃÕ™í÷²VyÚȹiË•òzàfЛÆFQ7 -ø®n½%´î‚Gü··V·!x͘ë–m}}éÊjqr y+ð$è“Ê”5g¨b·RÕvà)ЧÂ&Á²I€‡€Ã ‡•þ GÆ,»…£¡Öû›mu¿Ä¾Ó‡áÜï…„ÝBœWtˆéXñ„¬•#Ìýú¼nJ»/­Ñ­'ý=im·UÊWXìÂ35¦^½¤&1Ow¸¶b„†¦•Yœ ²ø!`Á^ -—{ÓÔ'ÜiUlÊfð/Lb?±FÜ iIû ð,h©¼ØI‹LjÝQà$èÉ6øoâÿðèsÊtÕ9°IBžç_úÑNˆÝ£À'@?Z‹’=)-ÓÛ»a‹T#z!ðIÐO*SÌ^Çš·LêHû2ýéÌ–M›ûN;Nz¼`SÚìؽ’¨¯~ôçênÜ°‡[°} øyÐróeþ·Ý9±ÿ‚ñ(*ý¥C6ÇFÇ´5;"ãBÇÜRÚØÃûN†ëaCO ‘%,ô!žø§„^•ª™jzÈ’ØÁ/!Û2à ¥N«hÑj[²ô*èƒp%è• Ù¶˜J~•°+ŽW‚¾2´IlÅÙ´Õ©!×Ò°—’'ÉXÇŸç­áV´àó'$öUÀC )«µCŽaèÇjÑ–Èl_ÝÑVCì;}ÎÃl¾PqZ®ˆÐþ K}ˆ'dµ¬^»v-¥µö$3~ÄNø,àk +ÂÕ Ãgbº”ûaÊ GÙt)%07cþC…ÿPxTËò¼e Üz{ ù`ÿÆ6ò›ÀÛC5†|`­Âÿ—éÍ(áÐÚP·¿Þª©Û¢«*ÒåFA¶è2r¯·Ò†uºC«q·í¾ƒµþ\ŽVÚ¨9FpCýmN¸ôÎÐ…¸ªÖ¥‡s£ÇS¹dvÛæžÅ{ D"¼ ´Ü¡›ô[Áþ­mnÒooÕ˜Ý ™º²4W˜TJ›¨½Œ+ˆ{pUû]E/húdà2¼r‚TDe¦»+Ù-[t£#Jƨ¸$™ÿ&Ïþ›oGnY¢w „ê‚(º½0X–w‚?á\ÐÞRŽw·‡j,5M–Ê¢„¼Uìc@‡y˼QÐFLº’ 9ùŽ0àÀB¿‚¦A§C ½†EnÜ4í¢žœ4SÚ¸Y³¶Lps{$#\zMxs#)Ëò^ðo›ÍíwÀÛC5ævŒÌ­dMð³Í-Çwß\ölVsùv¾ýƒ’R(ûÍ6Ê–MvhŠÔmw.N)÷þ8páÞ‡}LMáÄu¼4”@Áº€J!O7öêŽc‡i+R5ððŸ¢î/ªïd÷À…{? ô~¥…£s7³ ƒj§R,êöd’·ºàÍtwhAó$èñ\’Î3LiÝ|˜¢2ÜÝsbš2TLÆÙrOÏ4߸¨Dñó ó¡‹ÚÏ3eIôlÏq~+bÒ÷mpP£ˆ"w[vw`±?Q ûA÷‡û!®!Å’L)¯vQ¹©nºX Bó‹ “ôqŠ;FM×Ì7Ä£h„~(t1בÜ7Œ›0¸ì ŽQ£áäÝ÷ÞuW`i? ×õÄ«äZ|¨A±+¯wÖ$˜ŸÖÖkä1ȉŸ(À ^Ï…´„ BK®¡ÁgR™l3“m›R[·eú… ݽ+°˜ƒh„h-´˜×BÌ )š~bn‘–ñã‹ðZÐ׆–1 ³ÛR·mIeú·eXµPµnS¥Ÿ€ˆ„IÐÉÐâ®­ÚìñëM']Ò¹ü7ÅJKúIHG¸tø»iè‘ ,˧ÀŸ°±à§ÁÛC5±à…K,ÖAœ£eø¬m†¹‘ªåÔ""žž\?ÇÛâÜPä".âgP,Â!ÐC¡‹ø`C7p©·†*áÖ7j»÷.àgQ(Âã ÃoÔ nKŸoÕدhïF«êÌJuÁsÄ´׿ìÙ¸$@UÝ|E p?B>Zj#f]o¡ÖÎHðöx†E?‹k±' mLoO.Å 9á- o ]Š»¼ADè9%‰(ï‹(á] ïj“gÿø¶Ó³¼=TÓïáa³à]_=¤Y³krH…¸¶ä\×_AYï}OèrôÌ·Õjÿ×[ãÿ¦4Ÿ Ò?)­4H±ŠÏˆÃ­Ð}#< úd› úkàÿµ6ô×ÁÛÃY1Kú»”Pí,i¶Õ,©„ÿü=HF¸ô%³¤ÁÍíàÿ6›Û7ÁÛC5ævœ¯Z–&Y·7â¥UjÆ;a4MèˆH™«—ïò#’nE kÔ<_/”â%÷þ@&œùJE¨.nä±?ŸÝóܱR#š  9³¨ÓÅ‘:+÷v>Áܬø8+ß-‰";Ú„7»J·ó\ûÀEü6ŠE*öoÊö’!,77ËŒ}ì¾£Ô~ç­ûNâ‘£éʼnE½d–Šôû"ë’p è%Ê”²`èŒ1I;•[pN—‚^¿N~Ÿó\LùTçáfE÷þû»CÆéKè‹ñ-+Äï–Ñïæˆ/]ñkÈGörmMÖ¸’kqcivô¹ÅrßaöOqëmÙ\ßááŠYÈg‡·dòcÖ͆ûû° ©Ùv_5L{µú’_Ãl·ü¢Z«Œ_•·»U;ÉUŠ•–·Ð¶ØÖ@<x)h_Š§Wáÿ"~7wŠW¼÷èÞ^ìÍœ÷ëF‰|/çOiC{J9‹r­*d¼Ø»~tîá¿]Ü`0øÛù‡ÙÎõì‡ÿèÖ¾ha#³-uBuYÕǥ߷>À÷Õ›ËãŸÏŒŸ vŒi>rÁÄõb³´p_Ïб¨†žŽ_“G"¶‹}Ø°%0€ʬŸ:ªÀE ¥j¦)×yCzÁÔ›õÛ¨†Îú*‰[#Ä~‰ñ(ÒÈbцØð!])™5Óm^úò4ãÛÀÂ7Œ$:ê6ŒÄ¥b¿Ò‡xifQM3ű€Š™eb§0aäŠñeùqƒHÈD8ÅÌ]xx…´}4=¼¹¦˜²áZU3ê˜ ¹ÈÊP5¾47Ô„´±†R ±¿Ò‡x©ææݤÝ5Ç íí/ßÅ÷—›bò|SÙ:íà0ÝÐêŽ÷Vrσª3 3 Õæšn¡YXàõÉ„YÐÙøÕFÏ€ñHªm~Xq(^âCù>ÑÿöjMÓöú÷Ïé¶=I·¡hºPÀPáÕ ¯VfæWåjfî;FÁ jÔ$Ý Àí ·+3êùCÎ=•æ§!Ãk€;@ï­¿}): Ë6Ê)^˜ä·Õs§ªWò‰I]=Ï—éT-Z`›ÔtR³kƒŸ6A¥>ú‰°¥é2GιÅÂùsCGŒ³eû8¦Ãí|ÊqõQcÐ6JyÃ>qîÀ®£ûîÜuÿáS÷Ù³ûö»i>øȤ“5\£4žìnxÝݳ]«þjºã³æˆ–¼¾ôHnL·“þw==S¾¦ÛÛÔŸË—Ò§VÏæ¸.n_©\dC6wì´~öÖ }®q¶·X,ôæ¨|ìƒÝÛµCì«è+œIÇ5Šil%»óVÎû+þ7Õϧ¼£A»ñÞöD-qAéëz´›nÒ¦H.* ¿nhhˆ5îs;謲²»óû¢;õ³Ú vŽýº\q·içF¬GoɘÈsúõ!ö;ö*îcÿ{Bôù%¦Ou§ÎŸß¾£,ÀŠ®¸5l©pº¿¯+ñÎê—œ_§Ç`5Àjª?ÙP ßwu¯KÕ©(ÅÊ\÷E=çÏ·°õKX5>°k÷áƒ- þ…À';¦œ qaOŸXÔø‰ECKÏ£|?Mo7¡ê‘h®Où¤JFz¿oîj&Ù‡g›YŒc•Õbs®CÕ‹¾Ôsm:!¸hGÎ*• Þùïlñ-|BµÕôg˲t1GeQš .¼ò‹öTíQ¤ÛECâxÈríèÐ)Áå`ÃzI;+†ñHºŽå¡—&BIâ G]ÂÃËäÙ–G9µ”çRTö¥>õ]"]?­Øå-·Ù÷RTa“õ$Éêè ¾ŒN,.½,ºQ[K9|ÉòMiÆNxúYÝMi1Ldq=\´¦"ÍŸaBs¡–W‚–š$i1 bƒµ1«Ù¢œÊýJÐrÓ"þ·»¨ [vžá;'¼d$†º=Ê~ÌY…‚^vpÕ «mktX·½ƒáUÀûAߟ |xô‰v8“ÀS O] o Û’HÞ¼é竧‘i°É Pѵ»%hk„êfEãow$ÿ•Àû@ß_»#¶÷‡@µ£Ý‘'€'AŸ¼8ÚÝR´µ¥‘´»3-GL#Õ2à• ¥:ž -o)Za“s*fMË#ùWý@|-Ø>< ZÎàC¶<àð!Ð)3¤yCGm6•¼¶³¬#lˆëxdHŸéôa¸‘᪰Ⱑ%ú=IJV$Î\•69wR‘CNœ•k¡Îå èŒ׳.ÓKšÅ—ù%)Ýqdêm1p è5ÒõÖX_—tc|Ô´™“<7Ó ÓÊšyËC3‰ìÝÞÍ>¬šø÷3 ¥–›ªeA·ˆž¥´²x è[âÑJx+è[Cke.õà2ŠÙÜz2Å,ìöÂ+)Õܼô½ñ¨f/ðècá»Å´„Zîó!e¥7]£Ø‚íàý å¦!êJ´&öøOü½0lšct½ð\xKˆ¶jζ©H®ÅWô‚Æ‚ÿJÑ(ñÂ"`’ηõÖ#vØú÷ÝNÐ&ÇaC +؇ª÷|µHÂÚF°Àñ ÐRéÁÚÎ7çøBÐ/Œ¿ûùOümÄ—¯a™'F¥²-.½TY#ùj#1K®1jØþ6B–^ª‡ÙoY,[¿o‹>Wk/e›þ<_ݵåŒyÛ¶° ,M7›WJÕL±É+oŒè´±Íä_çêgüËòkæø‘ <œÚ´¨¾V?úsÑ7­ËÑœ?úóñ7-bÿ≿iùr´£lZb¢GB¶…ÀðMknƒL£3ô?þãú…ø–- ^d©å,cdÄÌ™ìÅNzjb6ßé).lLéÑtàaÌh „gAŸ•VÈ”h¹vÂZÐh™z.ð% _}´Lì&/ýÒÐ-åÒíšc]g £ —Ÿý´2É·”7ßú- uÓâšb÷à[A¿5´nz{¦öF%_Ç5štNë¸$jêmÀï‚þnôÝŽËÃ÷@/þn‡Ø߇xâïv| zQŽzøº‚„h¸oFÁ¨§«A¤mSzG+íÃo¼A¸–M!Zài’9ðNÐwÆä§Zv"$Ì=Àc ¥æ>‚u"Äî9Àû@Ë­Áúßžr!ö÷ûOÔ·ØÍ>:ü\G`çCìô!žø/‹'Bç³À[Í”n!p9èåÊ¢Þk”߈é‹u'Æ ~½wmVw}ò ÁÅhÏ—ŸK”årà= ïQ惦Ôjé‚®DÃ# •Ì»ÃÀ Ãç?m­M“ÕÆôzžºÇ,²±»^2¬ŠS˜Ô’ z Mž>úušä+ü2š|3ð­ ¥ÂÏàš|-ðm ßZ“=A{âÿvà;@¿#úÞÄw1¿”aŽÀ¸{bÿ.≿7ñeÈDØ›ÌG.Œ„p Ë@/SÌÞ9Mg¢óìÛp‰íóNŒš(…uGWA"Â!ÐrYmêÜÉ’Ž‚Þ»À1ÐcmpGÄßž}:zwDìæÏ€>¿;"öâ‰ß­öÌQ­;’J‚#1Õ¯!.ûÿ±÷&ðm×ý8R­Ã’cÙ–lkEÙ à!ÉÖaÚ–eÙ’mù|›¶³–äZÚ]¢%Nœ£Mš£Is8m~Isµ¹ï«Iš¦Iz¤MÛ´IÓ6Wü’¶iúkÓö×»ùÏ›ù.0 Ò;;» ýûû“Í÷ Xâ½™÷æÍ›ó9Â×Cé°6KR­ ømöØ)áVÐ[“·Ybß'!M¥ï­«¥ïõ0ÍMÀí ÜbkÙUœÍh!*ï}kŽèò„ðûv.…Zƒƒ+´õ±êûÜHžµÀ`’ncüýlp)áE £ŸêÃò©—“––3Svèû-H¾‹û@ïÓ¦¶¶Û9çU× âIB]ûAŒ¬®ŒrÍóù º ®G¥¹¦OY2vÞÊç ËSÅ°NÕÌR¿Á³€·ºÆ8:Õ7•êFàS ŸJÞ}^&,¤Žz¼ø:毎Ž7–eC u9!\z¾±Ò¤ɲ¸ ô¦øÁåx‘p3hµ»näo¦e‡›µ]$˜?ä—"ó9(³P`ÕÅïyá7tۮت\Lï¸ö„M‹!HÖº\Ž6@8z*ùv°f žvpk÷OZy3«ùFï0¾S7 á ¯èpã YvvÕwŽsz þÆA쮂Œ¬´39ì‘j(Ìô<æÈø-õcõ™t>·^²*þ${¡ek §M±Ò]OæP¿øžÚU†ï[¡ô¡T„-’$t¤,`‚ÞÄî ¾ ïµ oMNSA=6p ´ZÚú&èà`ô=Çï ½.A2þ4èŸNFMÓÀ—‚~id5í@G©¯Éù2àGA+Åš[اŸý¹dT÷1à¯þ5 ÙºGlxÐæ] ¡û’ðóÀïVêZr]9Z´|Ó.µšÀ®ŽÝÖ¥³Ë Ýóû´„x­öæ¨âWÖ¨çÖ³¬#>ùÜö•ÐáFÐJóÆ-ø%…L_Éö|º|œÒc‘÷eÃ6z’ï2àÐ{âoôÄî"àÕ ¯Ž¬ºkóÆ=õ3B|ä`P-Q ?Ö²*ÁcœupδH;X®²°ªâ{ûÃI~ ÐíF.ÂìU°.ÂoV8© V¯„ÑnV˜-ÎÎÆQ´ s¶+…R­ØöªÃ$ׯ}ÆÑf™–Øõ÷‚Þ›¼‹'öû$Ä“¼YKÙîãÜ7kyl4e—“‡’®}ßìl©. ¤*“ñÌ +K÷Ï3we…¶gñYÀAЃñÛóvØ0áhµ2"Ù3±–Oòöœ gbµçtèàX/¡toª&K¾|V¢m|M·hX®ë¸¡M™d\ Ü zgü¦œùæ@ç’7ebß/!žäM9 óÍÆjÊ=gØ[A²^àÐkâ2fŸyi²hŸ…˜v!´1gñ^ª<_UáŒ9 &̃Î'oÌÄ~@B<ÉóðŽx¹Þ˜wÀ€wÄbÌ5sµ_¬Ì„µâxð*ÐWÅoÅ;`¹„R¤‘´ûŒ„x’·â°Ü±Zñ2žmZA´Þ®F‡­wSn–äÙ8· `2–÷Ç)EtÁªß“Ú°IÜõÀ} •Bá {'Œ™p?èýÉ6±? !žä ;cÎÅnص°†ƒ1çâ1ìZµ‹aç`̹d [ œ;iØ9s€3ì~s¬†º[A¬^ õNÛågÅÌõjþ93òI‹Yµ3aU,ÛŸ kÙ$óà~ÐJ&βûaÍý0§-&Ú²‰ýµâIÞ²ó°æ|¬–¾»ª W/PÿL‡¦xš„[ ¼´Ò–Ép6,ùŠFÀ¤m˜Ø_%!žämxv;« ÷øfmXA²^ þQá¡Æ̳Yf¡Ç\§ldœ ¥ÔdŽ»Õé/ôQμGxôñø-~VNxô‰ä-žØß#!žä-~V>«Å§†µ÷AØ8at¯Ý3Kž^ìGeV® ×Z`qEý„VßæFíqJê$|µÊÕɳçx^ÏÑ̶¡Ñì9úðTå춡sçe}´]¥Î›½“$¿¸ ô¶°% 7ædï\1Z~ÜcRJÑÝÆ Tw’ÀWH‚_¡"xÝ$Ò] 6&%Ä)FË-+F3L¯£ÙvuÓ&§6¡Zsm“ŽS¯FR*ii3ó|§ª…{Â\WÀWÄjšò·¡¯ “Ÿ¢ñÄݵ»ž®Æ9›³Äþ* ;Ìu‰¶Dc×~$l×NòôS×Nò¬v¸k?¢Öµ“ä—T×N_! Þ¡®]›íºö# ]»6¡Buíz5²`×ÞÞà;U-­»öx¹ÎÓµë3MùÛÐ]»,F‚]»´“¬“];±¿JÂŽuíÃhK„1.©$t!‘zїǺg‰´¶Ñ»+¿!™Ö/}¹6ÿ®vüf&M˜ÕØ¢ÚìÄ'v[€;@ïˆlÊ—4ŽßdìñƉÄгƒ$ÖNà!Їâ÷3Ä®xè›’÷3Äþ°„x’÷3»„™sÔëgæÏÚ\ôFbô£û–Ùí7êEo$Õz Ñ•ØEo»`§„[AoMÞf‰}Ÿ„x’c7¬4@=Gæú‚[RÐ-tYUçCCʹ²íéj:w­©+ZI ë#}~_ØÞˆÄÉAÆß»mÀ Â~j |~Oâ? Üz—6­œ'´r²2i*)f?ð&ÐJ=SxÅì½'RSÌÍÀ[@ߢ[1“'½Ç•sðÐ:ó-Ì£˜#ÀA?Y1J¹WI„‡€vEÉAÞJ7«…nÌâ¤SPRŽ¬‚®&£œÇ€§@ŸŠ¬œ¸–@A=.ð4h}ɾæ;®1¯Zž|è$£–à“ ŸŒ¬–óèÄ1]Od…¾Ñƒy!ð _¡O5¾¢j^ |è7$£šWŸýTdÕ ÕïÂGÃùõSL[®å×ÜÊÜtH¡¯† qßü2è/'ô^-´_G=Aï z›ÏÕ‹Ìh|—P¥XOøY¿%¤Ô×@RÂAЃ‘¬¿å¬ SA´;€ÇA×Ø ¹îÖýd–¼ëF¸ÀùàžÉG€·¾MUò9¿<'·g 6CÀ{@Gß)uc£Í÷80lnÄAúZº¤Nºü.Çïá*˜ºcOÕÚï¾ôë´[ûÓË“Ðy.´‚ˆŸþèßJÆê/i<Šõ¿ ø)ПÒfýoþ6èßNÆú_ü2èèLQ²þƒdü´ ¿Z¢Ûv'Å )rK¨'an—ñœ7 ºutŒ®[Qœ¡þŽ@Z•":XÒØ>–‹Â†—-…î uBÐ)®ož†±~DHœ¯_ö£ ûàm‚NiëR{€÷:¥ä™C7‰Ôð^AFlëYK(ù–[áö]š =CAâÜ4¡fûí¡Vª Ù /4aBÁ “7’ízÀç šP“í–?%èT‰¦‰Ýð§MÑvsÜóër™æwûŽ1e{5³dŸ±dgz„C’¾ø1A§”®-nÉuù(_ÏmÁ÷ aüüN$}CšÐ#+bŸ–b«^Uœ}]"MJ€x"Öʆ`u£æ}H¹öCC„@oˆäüšÞRËLÂ\¼ôåñ·qbwp è-‘uô:C$u7¿ÏÍS>ëfìÆyž‚cÛ›g¦a»8P,Z ÎãÔ±¸MoÖ=ü:Mq+ªå‹d#ÄKÁN àǺꗡk²“ôUlä3ÀÏ‚þl26òqூþÕÈ6²ƒë—å”ÅÊd=tæjœš_­…¿‚›äüð¯AÿµÆjª8~«jÚ'”Ì×v° öi ;Ü Ð ßUâ‰X+—P'à”Æ'Læ¤?fÖ,×È„oŠ"¼ô%ÚÚøEÓSc7Ðè“y¿þªëÐÔdÞq'„ÜÚÕ˜*ÛÚ¥ó¶Çå£VÙ´KmønîýºÇðë©#h]„ûA«]ËÐJI[&}¿ê혞žÎ‡PV›­¾$ä ÀGA+-0¶æ:ZsÛ©êð1ÐEVUwø<\$À³c Ç´ŨYó'·£¡Ö{]WGÝ/±OKÍý^Uœë»Ä ìñD¬•G˜û=4i–Ê–ëåŒ{òÆ¡|θʸݬåŒ[óFfhß¾]Ù¼q¬>ïæÛƒ‚¼Z©&îÓ(L2ÏÍ/Ä5 lH.r&»6]c„,â P6á# Ñ涟.a²M:E.õ1«È?:n‰d4 B/­”  MŒÒæ̱ œÒË@¿¬øÿ ðå _®Mg©aq~NB<Ú´1攊mؾøZЯ¬u™álκz¨¿èša¥æô:àÛA¿]›jvmѱ©sÌ ]sÍÀྫ‡‡÷ïÛ588LÿÛ²ß%yßüè¯iÔá”厵aûà×A=ùn‡Øÿ±„x’ã PyõtÂ/gÝ ú–œq¢0Y¶‹9ÖåGx¯3«#â½ÏÖûj·ÄÓ%4õ9ÆXÍ.1¿nMáâ2ꢬÓ̉–Lw†ý¹ðõ6Z ÝžnD5¾´>WgÜêÔÜŠÈev((Ôá*+FÙvJÎÄŒ‚´?üèÄß/»W? ú£è—ˆÿÇ€ýqmÊJïÞ« Ïg¿ Ziê%\ÇDì>üèÏEVÇšÌë˜vïéïßsR3ú5àï‚þ]mšÉµê–‡®Ü»oOÿî]{®ÎìÛ¼ºÿLÈŽ‰$þ#àÿ€þŸø;&b÷àO@ÿ$ùáFáñ ž¤Å8¾‡ºšäˆ(Æ Ö1I³O9ã~Öý 3+¡îÇ©kžRê~Äçxc&ŒªY8iN„ï^nBaO€VZío=7"u/ò@è„3îO³ÞPA؇€§A+íî ×»»{€3 g:лÿ3À³ Ïêë]v]­ Ï €O‚VÚb®w!vϾô #«cuf {úûwïUjD/¾ ô«´)æÊVËÞ«w]3ð¸çå§w]·w…ìUHÔ×? úÓñ÷*ÄîgŸý™äÝ9±ÿ¬„x4•þ¼QöŽåÒH ÕÁÎë…Žù£Î4û´„x6òBÏÍ]âˆk€Ê—òF=| TBý°Þ½y$Ó6`´Ò]ümZmœ{ónÁ{„hCUö9¿Ü ÌvÕ³£h«•6ëÚÄ®(åjˆh±»ùäYß´JŠ®9-oH•6±z*ÉuIâÀGA+­1iß¾G=ø<ÐÏKÆÀ#nß#‰Og@+‰-Ù>ú‰dÌû1àóA+íGlªåý0ï¢=λH¿¾uOìî ’4Œ]u3Éýà§Aë‹pVŽz–E»ÛteÔkéêhOìÓFëàsOWœ¶ÛŽv‰+ðıZmÛ¶N$È^,£äL®í4\²'ágåg3ËÕüöŠÑB—äV(•PšˆX’Š¦o\ÛoX'S¶L¯æZ#}Ç÷å Óñ«Ž—3ÆQ±&rFÁ)ðOŠŒ OBã6ˆNxè"cÄhúιŒ°ÿ˘Ð^É©šžo fÄR|Îèãÿ›±L7› ]†Û!7¡´'®¶ÖVŽcà ž6÷¸í·¼†<´Œw@.ÂË@_YÆí¬m‘Ù².33cç˜?ÏÕ•NÆ9aûÞÈ®ðš½J‰R×ì]à ÍÞÀÝV»%¦Lp”—.Ù¢>±Z+ÙÑEò–ºwCô»µ6ö‹x2ÌrBØ5éŽC"‹@«_G|»­¥t9ì(±NWÃK*M’ÖSÕk¸›0´÷€w€zÌò:2K³X¬gœ®O4³nÓšc††G{r|³b95¯4º÷BpÂë@_¹à ªõžN©dV=käžã÷o÷AXÂaÐð‚ûÁ;@=Vp;YÁœEo²‚ ‹¯²MVãÅ1³â[¥þ#¦UñÎX%úI§ºH „RïÕß6z©|y2àêAˆNxC—.{K„à*JgüJ@(M%nïƒw€ìvqhG!¡¾0KWO+mq\ä=í£Ž°“=ícàà’ìiŸ Á —TOkBXÂNö´cà +¸~žÖ)½æžö.Ëw¶{ªk’^úúÈ¥Ø-u®U&_&Žµq wƒÞYô£†Ñ¡.ÕB‚>ÚÃïc—:¹_—: ‰w—jC:ÂNv©ƒw€K²K= Á —T—Z‚°„ìRËà +8Æ»Tó¤¸ bÜv=Öª€Q¶=Þ—ÒâÍ®J3‹qj>· cø@è2UPBiN8b™î¤2ùÁÌõkçëWÎS¶ilçæ²®5ª•¨Ø¥¿©h¼ÑJVeŸ ]*%!¼ôz¦L3¬#¥‚Ôÿz–Àðjc ý@O®Uv¦ÄN¦æ ]†.RÅ Ô7Í°Š„´ tQAÍwèÚº1sÆ(Ò­j¸…Q´òl}™?´ü§ 3á>Ðû"Ë>«þ+f쇇¡x¡År!Š[ÿŽQâ¼k ÂRFú‡£„c„%ÔçåN\öàQ ÒFêÄ[²]5j¦Ò–[ׂ8µÖ¥Óc‡^Ù&öi ñ(ˆÑ2u•[y!…šê;¦ð~¯ªå·äºrô¤53Í̦ çp=èõÉk…ØoZÌy+}¼Uуÿ¦Qì.ƒ¤7ÖÒkð+ú|ú¬Gü膟@>²˜Ë²&ý\kf—fï€_®gÿWÞwãð®ÂÀq~ mxlïPqÈÚ½÷šÝcƒ8)0P6+b“SP£?E¿·–~ïú¨×(ãÕMeÝÔ¦•œÇÂ%ßM¥¡´Ù{LU¼¢a§œ–ì5¨ò®‹Ï–ÍñŒ÷Þss?ŽB-ÿÉ,¹ä/WÌiE‡+‡v4*s%IÆ ðÏΞúÞØÄšY&ä6\q×'Ž>Pð âÿô?Ô;›Ùuaµ"Õh]7çÍþÕ!~µÙlæ4‚¬ŒÛ%kžWžö6õ Xçh:x647.ÒôS y&b+gäã †æ–@×JàÐJõÓ’ëòQ³d›­úñ4*#Ý\1Ië…Ø?KB<šôråÁjµ$¢íÌ16зù¸É·²ÆM¤0ÜÆRänh‰0:§Qc¾í—Zµ$i'zW?èþä5FìóâQÔز¨âPO±VB<kåvÃ0n–¶_› ;*7Ùoø˜Šç/òûâØ5¸‘.üm$Ë [ÂÃRµ¥ÇGíñ 'ï 6qƮڷ˜ó|sÂq­ ’.ÓWt Á_ñ¿©¿Ÿ OŽôá{7µÂ¥ŸËW]eÌ‘\T~ûè(Ïr|­WpíªÝ1öC·š§㬸…n¿qvÜ©0xôW¬éB™1§ïbŸ±¯òùö¿@ˆYbz«/wîÜkÀ¬˜Ž[®ÁÔ?2ßß7•øºúœÛnPVK³Š!ýöhßö\“Šr¬ÌM?”=w®Ýr¾4ÎdèÇ€€~ ¬ÁÓsÒ8¯-9f y©Ók>¯ Ë™¤~P’þAé嬻•d\jf2 ÒV‹­¹¶Éú¬…kËñØêk N¥bñäºùƳíFŸmËÒÍyœEi%H´.ZíÁÆ£I·«G‹–°9VÕm„TלÁÈb¨˜ ¢ëHG^¡QøJ ñDŒ¥öJƒ£Ìéœ1Up¦r4ëÌ匒5e•rÆ‘Á‘Á`7ü¬èJè†0¸G{¯6;[>ZóX„Цڈת(ÝšVÁ‚ŒfM£ŠC“Ÿ«%ıVN󞕶8;•µ R§Äê•pÖiç§/VËÄác–-²ûS¬rܦ!‰ÁÏ߉åNd»â7'OOÚ…I|Þt6žX§}×,øXlT(ï`tEÛHÉ›9 ë3Hšð,è³*Rµ™ks²’Ø9Àç€~Nt—‘WÐÉ9 ñh+}›ÎÄ®ø\ÐÏMÞaûçIˆ'yµZ4Çø^X“&\ÜzWü&½fL¸ôîäMšp„x’7éµ0ãµ±šô2>›¤ ZoWcé´&£>W©•-×.ˆý 4RC4æ÷:Y¾å–íŠE±×·,÷ÓKžU`ÁV¿¸ i±{|ƒ xú»¢5nÖJZ~œÉ/™Ew—¾–$ï’ÜW¨È]÷ÓiHØÕÖƒµÉ¢MŒ–#ÄóG3²¶GÛ­w´Û@©MºÖ\Ûl Ô«šÔÝ|s{èPý´@æm•Òo’ s]_k’¿} Ÿ(ŸzÓ²us èk”% Ž æB¸ýÀ½§ªªž}/ð èƒZ<û æÙ½x]û’à7ª®Çµk£¥k_6š©*ùs-"…öçúô‘jTHë=“팽S•ÒÞaÆÇu‡©Ç,åowHAƒM|{gó]24øŒÐšO‚>©­…ß·Cr¸âÑ6Ôm³„Ø•€h/²Ú6ÁØ’/ˆ”Ô7>ðE _Ô‘^nùè {¢m~•»ºôÏ-•®îµ’à¯U\OW§EŒ–m´—b¸j•ú;-r…îïô)e¡þn~³ïTÍ´ïôâãº@§§Ç@åo7£„¹+tÚñûA¿_Y¾¨SD½Uc”uæ¬+¯“ôÕÓUUÇúà—@I‹cvè7$¹CEn=~U‹-ýêZ6„¨+ZÉ·j‘-´oÕ§˜…æ†ä†Ð¡Úi½Ñ²}s씺Ú;üø¸.àðõ´ùÛkçÙ‹a܃¤R‚N©-ì„=·3ßÐ'…¹þÔy‚N)m=ôI¥«Š~èsm}èÃwç„×Nj p“  ;9*Mmm`ð$¡šÍÀ>AFTÍAÚ³Á+6& ¦_ù¬Íç†Ä¥µõýݦçÕÈSû“¦Ê 6µ X4aGµùxƒ' m'R›j‘¿Ý>÷lŸl˜¦{„}—oȯ…? DBbB$õjAjÒ™êÑ_’æ)à›M˜„æ^|‹  #jn™J`áï4¡.½(Ü"iÞ ü°  “ÐË;4aD½LÌ>°Õât=i.äáÊŠØ•J§õrŠKê£Ó›Ö×'ªF,it‹é+M˜€ÚÓèÓW š0¢Ú/jLÖ25á,l6tcê*ൂ&Œ(\è-: ×QÏÆ%Å-:!aç·è¬ÏŒŠŽŸ ¤ÏäÛy¼y§_¨8+—¾,l±:0ýBò^.É}¹ŠÜѧ_´‰ÑÒ¡­Íz=ù¢M²P“/zÕ²ÐäK£t¨nZ›ó±q?ïå¢Ï°Èr^úzmÍ{žÃÐmÃ’äfàÐGâWˆÝ À£ FVØùõp%'†ï ê¹ø è•¥J~ÿÉý°:ô¤BËÎ7æEe¸( ^T\Oï«E }û§´‰ºÛÕ§íû§â®”ö½[|\èÝô˜¥üí}†]©Ö|o ~ÖÃÈÓž¦A™¨JVcøÇç8iVÏyòû[Æš÷ªŠ„\F„–ÿ)ПZb.÷W€_ý…¥âr¿( þEÁõ¸\-bèu¹ZD írõé#—g¥´w¹ñq]Àåê1KùÛál°dëZ~Í­Ð"Ep9CÓ§¦ï”íBVý€,÷¿€þ—θÓSªîôÿú'KÄR[ çthÁµ¸S=b´s§§TÜ©‘ºSúXж3öNUJ[w#×ùÝ©&³”¿Ý…D”ŽK©”©æž9Kõ§Ìb]Ë3Ô›ujXЄŠ‚G¥_7Þt¸2˜¬_Å>柨Îاvïtê-.7öûÔ½’Ü÷ªÈ­Çãj£¥Ç½€ÏØË:Wò¿Z íõig¡‰û9 £CUÔR¸›g§4×¾“ˆë„ž–$û`ø} H3Þ²s1j<ߺÚܽxïCñÞ§ì(Úµ„›‚\cV%?mŸ´«VÑ6óŽ;1@ÿàùW/n“S >V”¾Q°ÓÿUЄššÏ%r¦º¦»#ðÓM¨É°—Nò—Z²}?Ø^ hˆfÝgd¬üD>Çì¸bÐuU÷™¦ë猡}ûöfU?ÒÏîtZýšÕ ÔÙ1+Ôá1ÎÃ,Æy„bœb‹ ç±Qß:퟽ÏtÏ=<Ë­?bŒ£s¬d³¾Ùnð…[CœL þÑòÕ®®'øXœ1x¸î™é—ÿòuŸ­ÿ{{ðKò‡ŠÑUújàWþŠ¶m1Öð*ý‡’࿧"x«T“d…чcV÷è#á½™ž‚‡—b¨îv½Düm¬3U>«°º[zgLfÙh±m¤#Ûù#5=Œgm¤›¦ëeŽêO Ì×:6Dß8o§³ZGwò§»{ýuöüÏÒ¬w/“äþ‰ŠÜZëzÄhÙ™mʹ郊9ÃöA•´PÔ¶¥t¦¦ZvO§½vJ‡mû„¹Îß'hjZò·—༻ÇGÜ®Y¤³j cuñ.Ãwu¬—йݺûrà.ö\Ìžþ%Òì–äΫȭ§?Ð"FÛ­õHºЧ–·[k–²‰«ÚvëXµÕÞ×ÇÇu_¯§ÙÈß®5,ºݤk¢Ã¨•e:™tÌÁk¾ò– u#ðö\Ëžû—ˆ›T’û¹õ¸y-bÄrå­6éB»z}ªYÈÕG¹òV¿¤Í @åÊÛ¸uÖÞáÇÇu‡¯§Éßà;5ZlÒhŠõ±AÎ,•f"-¾Õ ðàÕ‘<@+[ê-2I§Lßž ›$‰äúð“ìy{>¬M³ó&IZɪ¶P+Õ<‘ß|/{ÞÌžwªŠ<ç—ß ü{žbÏG4VFû3IĊ㯰ç5ìùhd#¿ aßõìI 5ýiàWØó1öü¦²ñ¶sÑ;ƒ•ã‚kVònÕuxv'Z;®š…“æ„5²©Ìã-¿dbtÿ{þM›`À=8ݳ’}þŸâmfÖ~=˜*€³e/vÿÃîÈfÖk@G¡ç“½@Z—îaÏšÈò„>œ‘ÐlõÎ_iÆý ©»/†„+A¯Ô1®ày0G†Û™N»Ãš$Í:à… /Œß1»UÀ 7FVÍ‹¤+•Ú§E¾è¼q3O½e#»êîºlDDE¥MÃB ôÏGe†ß$ñ–˜pƨ?îš…³Œïð9C°£ë_¬s™#-GþÇ‘,&Ðï¿öÊX œ±Âï 8¢4KJÚú©× šî+Ò0|Žy ü††à©ŸS|ÁMo}Fds ½‹C[Í…TÇ£¯vÛpÑY˵¼Ä\QgL²í.‘xÙÎ3i ±Ž]"²0ÿ ¼1rÇ­:=œ:Ò Ôú3ºâã»ÙÃ"Tè¡wËþ,Þé`’÷=’Ü¿¤"wôé`mb´;$w$ô°6‘BwWúô±PwÕÖÖc¯”E&Nµwßñq]À}ëi%ò·Ù¦ G,Ïcƒ·`èeýO÷ îïwÌÁk^ÿ£B} øØóìùáqøÿ Éýw*rëqøZĈeýO›t¡}¿>ÕĹþ§_Òæ ²þ·ÎÚ÷ñq] /ÐÓ€äoÓ¡çªe9þrü(²¡çª/vTG=sÕwFóz¨YòœÆ¢èýf©ØïÏT-ƒý ×-œÊ¸Í:Ԃų³»¬ÿôŒq>Sz„´ !¼ôÊ…Jþê’û.àƒ ÔÒGÆ|u ü$øC*‚Gï$µ‰¡ïêm"…êõêCûÕ!qWJë®'^®ót=úÌRþöÒy®1"´ßèš¾†S²¦¬v.¥íJ!ÉòࠟЦ®¶+…Än ø|ÐϬ¬×"Õ- Ò„¬ÿó]§„ãýsúBƒ×]è(ƒ¤ðó ?¯­òVŽY¼i—¼œG±¹Kg`:¾!öi ñ(Zô…QŹ´K,ˆ'b­ldáÖÁJÆ7 %Ó }AÐeÐáFÐjkã­ÿš>¾.ÖÂûÂ:ˤ'ÛÀ¸±¹¸ôŽÈêºVøf¨‹ç÷)ÙžÏ]€iW‚}ãN©äLÓ¿(pv*t¯éþ°G’\‚nfp!¹EØ Zm¯Ð|ƒónßS¬¸´R‚´–½Ð4Š¦oã.3}±O£í–Žœáùl(dºì3×u\Ú Â¾¤O}fv}Pí§‰Ez—§œv¦-w V­ZnËNcÌ©UŠ^^¡FÖ_ úÕ›í[å6l{€¯}‘-´‹&ö?'!žä[Ì´’-±¶˜ù2Í'Y/p h¥}v-%º6®¨°¦¾ïÞú¶øM} Ì›ðvз'oêÄþ˜„x’7uæmh7õù犎ß*v5`Ó„kA¯Õf߆簮À,mšc^Ú*YüÒòáÚÃÚ0I¹8z0~6`·„C ‡’·ab?,!ž¤ÅØ « PÏpgó¨®åÕJ4QêRXè2WÇWYPu©³/6"‹r÷AÖ>T]J¹úæÛ–·Œ‹© Ú àý õš÷ Ɇ.p^²(=ð.Ðw© ?ç—÷ý@üC!b· ø èè“WÛëKyã°ÈÉè¸õÏ<ÉJµ¢’U?|ôÚ­º‡rF*HöàÛ@¿-£^?BòF´é—ßúMÚlú%À·ƒ~{26ý|à;@«e[mb§’ø•Dx'ðÝ ß­ßb‚}’èËÀ¯€þJRKòF´ØO´Òq³–¿ü!àïþ½d,ö=Àßýû‘-6üê5ñÿàWAU[ñ—òH¸ßK…QwmëÒf…Žöˆ}ZB<Š­uyTq®è'™Ä±V.¡gNi|¬L÷ÙVaÒ3k–kdBŠw%Ex èK"ù6ù­‹¦§Æn`ÞÁd±|ÒSAÈ­Àk@_£Ñ¢­²i—ÚðÝÜ zoô3Ê¿¸ô~mJڜȞžÎ‡PV›…cò࣠Õ¦¬žÑšÛNU€~,²ªºÃ'¡&ž =¦­ø+FÍëkÝ6Ž†ZïU]u¿Ä>-a4÷»:ª8Û»Ä4h€x"Ö ó¾³oÄ>˜7îÏ~1vÞ)eú"4@Úø…½™rÕw|» ­W(ˆ¸x´ÒÅGm‚ª6Û…ˆÝVൠ£çtïχÌò˜k'¬œqïmûÿ4î­ØS–ëÙþŒq—ky^h@¢ŽmÐvò 1 ; P?8Á,_Š7rÜ臇™Ñr*ÅZÁ§UQêFúÍŠYšñè8tÅ8Þ˜CS¿I lcÙž}B_ox«Ssiæ×7N…ýó„3îO›nØWHȇ€§AŸŽ¿Ù»{€3 g:¹ÿ3À³ ÏjÓUz×Õ ò¼ø$è'5ªcÌ)Û°}ð… _Y«3»²9c¨¿÷^¥Fô"à«@¿J›b® BÊ¢có›]†óC{¯ÞuÍÀãÌ¡N îº:oî X’¨¯~ô§5êŽyý±6løПIÞûÏJˆGSéÏeïX.íPhµè¶]è˜ïPé`lIìÓF‹-{¢Š“ëËâ‰:æ¿DÛ•F_¢m7AÙ[p*˜ðSï|à% •&Ú´ÜÆ4嶽ÀM 7idÛf°_ØÇÍ 7G6‹3üÀ…Ù8¶á;†Y­–fxL•©U‚ÜEÙæ›mØkΘg¹S´c|œvµyö”Qâך_pÊ–䮲]Ã3ËÕ’œ¸*|üKå¾øZЯÕVí+G=Ë¢#+m$Ù~¾«£nŠØ§%Œæ¦?]qÚnÐ`Ïyâ‰X-Ƕiü/t™¡^Âc £o _·Cà “»„U‰Qpª3bƒ¢]a­x;#·‡–o2F›ß•¿½Éb\ÛOÒå ®9îî -Û.ÈCx!h¥{Æ"êp7x¨G‡#B‡ÏwÙ ˜+Ò³|îj™o¥½s³6ÍñÄ%“/®‡.ÃÈM8z$röúå*éÙ¥»3®m<—d2v Ï1<¿VœÉ{¤bçxGØÿeC‹5D&Ü :úLûy÷‘ð¬ WÜZ¢k áy £;Íuh8$#CK%Õ ßú›˜x“ÙÞêi27R“¡ŒõÜÊòÜƸïcaØ}RŸD*Zží²FÜåÇZ?ƒ¾Ýì‡ð„7‚¾1rAÈW_Ñ(S¸?Óôy.´´ a0›QÚ‡ÙˆCTßH!Ógœ‰|ÕrÇûrFŸé9åú?h{ãz¾®ÿƒ¾®ÿ ÿG6¼#¸¥"|ôÃ0pɇj4ð«ÈÀ›º¬?pÊý"2÷Œ2R”B {$ –®Š,ì˜ËFäüËf¾<•™aþ¾Iè#¬#½Láß4 ¿ÞAˆNp¤ïÞ;ú¢t×£p„c Ç"´‡4´(7€=aèžêAðP¡^G†Êª…«­æZõ]üE6®4+M±Jà¢wŸÞˆ&t!$Ï+sÄB\|œÌwÊ* 3±2´Á.ʤà”A$BéÊÞˆâÝà:Ó“ ¿3dz$hÁ)5ý3Ó'ûÚÀ³Ž¸/|1n‚è75›oÄb\àÒA¦ÌqÖ®í Û÷Fv…—ì0¤!”N±'Þ˜nïõ4¦kùH`Ò*œd¡ ‹ÿDÌb³(‡ ¸IJIÃ=>c¼q ÞêQö#¤ìqÛgÞs‚–iªŽ÷ê"vÝNmz»azÁän§¾=ǵðíâüàvjåüÍ* tm Ã÷R·¢\„€~$r·’›·&2C9cxÿîœq|„µþûFêÖÞ&nƒl„[Aoí€MÜÞ걉kÈ&<“+›–ÄmÏ«ùRšim&[Ÿâ -½4&_#J“,]½Í’3`RgÜ¡ Ý]9wwÎÝ“s¯ÎgCåˆO(õ[Qão6Òi ZHÞzï„€„úâï›™°žåßÁc‚BÆsJSVæøÃýC¹þ¡G²Æ•;®4Ž?Líý+g`äÖ—C”Ч:»  ”\uÄÂtŸ /ÉÝàNmY+šS8Þêq Ãä„ Wu(@ðÍ“´(CVJ“&…ØÕZøÙ"iwLÄdò·»Ãú•öÄ%”æg£Æª³Û¿Þ*ï…4„úbÕ5öûP€û:ÞØï÷û;ÜØïõ4öÎ.–=ˆrvr±ì!ðPOÝÞv¡Åí÷þ3M—DZ{‘æ)åÞ3b±ô¬±BB}kl‡ÔÖ…r†ë;gFî9~ïáðB¾È2Ke‰èQHA¸x–ˆƒ$„ë@¯ë@c6x¸d—ˆLOx#è#$®%¢1HHøÌ\"* T„\"*‚w€‹z‰È‚€„Ïè%¢qn¼«ãKD`OØÉ%¢IðP£'–…„õDZ‡Ø³üi˪n†Ú}ŽBéxpÆ„%p'ì䘰 Þ.™   „%Ô7´m£Ò@HG\ °-²¤ÙÙ äašL™ÕD~$¼iV!#at¶#丟êp#qÁ;ÀgÂĉ‡rFš8iÉvÕ¨uš¶Û·)7TF¸ô>êóm¿ÔªII¡´|H iõûâQTߊ¨âô ¸Vµ153bô›¥s­…À¨ê‡Ò‰À¨jž¥|¡î2è‘°Å)#…¶ÐÎO‘É+wðÐ÷h3ôyïrŒ ñaàm oS•xÎ/_¼ô½ë¢ÍÉmb·xèû"[wcrgÜuÊÜpq÷M°"Í÷Rßúõ~à“ ŸŒ*rz|ÔRé°NW݇qËõˆ[Ìy>“|„5Ë¢å>röØÁ{ŽÜzðãÝ{âð¡›î Õ€3^~Âò­ÊT¦oÖ×}ÙFý£ù^Ç»ö¸‘ÙZ9S˜4ÝŒü]6;çgú‚;G ÅJþqÞö”›¯Xþ@¥Zf1Ÿ?ù¸yú†Ý¾uº¿\.õ¨|ìžÆ]ì§è'¼Ï·ÊyŠÕ2}E§üÿ›úû¹@{#}øÞ D­pAéç²ÆUWs$•À„ß>:Ê“^ë\»ê_wŒýЭæicÄ8Ë>®ÖüýÆÙq§Â àÑ_±¦ ´’FßÅ>c_åóì²ÄôV_îܹ×€XEò©SÿÈ|ßTâëê?rn»A ÔX °šÌÌ*†ôÛ£}ÛsM*ʱ27ýPöܹvó"óå_$C!ð• _Öàé9ùW–³ˆ üâºùfeÚÍ¡´-K7säq¥• Ñ"LY´W5Mº]=Z´„ÍÕG"sâÛTלAõb¨˜`0 E×ñ´/?j;7N3I+%œ•.O1XÚ„A~ætΠ ¹Ï¹ùàí'·½z®­€+Qû„›@oR®°®¶Ád›D5Äv3p è-‘ë'~ˆ0€[AoÕ8‚®y,jc Tç«¢´¥èífÚJ€ÑÚMoTqh±BJe<kEáÒ0iÇb«uÃõÒ.HJV«WÂY—ª=}±¸8ݳĹÀŒœŠ“[ÜZ­]·ÌÆÓç–;°Mœd¹ ¸ôŽøÇËÄÎî½3z Ï+h$'!m¥o“d‹ØõûA÷'ï߈}^B<É;”ÕÂœ9ÆçPV *P.p¹çƒ>_›[yIÉ™à·ûŽáU­‚=>cLOZþ$?Å-²‚ÑüûO0—±D>%«˜¥S?te²gx“N­T¤¼ÓõÄa“VEL†EgMˆfÄ>çq³VâÉj*·¬w=ú)}®ŒÇma]ÉòàÛA¿]ccnãʈÝïý ÑZX_Füß ü%п¿/#v=À_ýËÉû2bÿ. ñ$ïË‚‘¡^_¦4– ì®íš“ô2¢÷Ê;ÜQ™îDçº{§íR‰;##Ñ) ¾2£°èB¸xèë"9™–“q§Š¡ÓÊÞ¼ôýÛšþÂÛ€wƒ¾[Uâ9¿|øè4ÖE·Kx=ðAÐFnð½Ì… ü°º¿û%ìA“w¿„–„x4•¾w´îaZðîí^v-°C³Ä>-a´Ù‚ QÅY×UßÞm4Üì}º6¤0çC-„ÁäÎ íþŽú:žkVòM™¨‚…·¼g›eƒó¡WÂk@_£"뉚K§wöo}ƒF3É_jÉv%ð 胑 ëÉú¶MǪNµV2ë™^D\1nì’íSFx\{[®Ö|ŒÆíÒMsÌ_Ø”ŠEì Ês›­¯¥sÓ®Y­òØ…î§R Oè_ýÅEžÐ;ü6èo/êð„Þù*ð ¿¡%<¡·øÐ߉?<¡—¾ü.èïFn%´Ø¢PÓü1èG²Úêo;v§—þøÐ?IFKÿ$ïLÿ'µ´¾á¶æŠNªè(…î2µ^ЩõÚt¤6QL²\ ¼TЄ h(µx™  #jè!Lå{¼a=ÈXIÚX2}ßróƽ•’åylüjË÷+Ò˜Ö0‹E›!ë`¤¡¯Ò—Êu9pZЄ‹£I½ø*A.îN$õBàKM¨§I=ø³‚&LÂøO_-hˆƿ«Þ‰ä¸m{v™’ÁPJ›GV,>’sÅ(Zõk€_4aÇØïÿ@ЄIèð7€_4aD^¬E"ÿNEUKü¾  5ûžù¿¦Ó‚N+ §u?A0ñï‚&Ôä~~„ºètZiN9¼éþl{î‰lº74œK†2IUê{™Ådrð-&“ f…æ’…wâI©Â«%½ x“ Ó7E²rù­U}ÌXèÜŠŠ?Jß ¼GÐi¥ÃMÕp<¨²A!¶}Óê#<O'æ›v¥éŠ¥vcöйè<÷ß)hBMÕ¹r´h1ÙK­æ× ³àËœ$öi ñ(ÚyäôÙ´¯”PÏ&¿å†a¬!e‘.Û¬ïÏ\¾\ýÚà… /Œßà<Ç 7FVͦzHâáVÑ›Q‰KH®‹€ƒ Řˆ~çfàQÐGuPB’Ž>¤*ñœ_¾x+è[“1Þ!àm •ŽŽéžX#n> úQmNFub~Ëž}2-=,.EÖRo=ó{ØÞˆä(§@O%ßG?Kh¶ŽzB…[°(7'äâ1ü™*m0c#|F×hC†MYxÊc,Øâ¯z&VºVβ8†$Ô#ÀhËñú=5Izð!ÐiñÔô‹w‹ •ö„óÄîЭ´' ùÚÝÆ°­VAWµÕÃòÑ)³TkUÐ86vut€@ìÓF ì*Eu+$ıVÞÁ|áý l~ÍñÏê>vÔz—N¸å¸g€eÑ­£üB 6NõèÞY»È‡¶ÙºLá^#^¹zàz3ö¸ôá4‹‰ÇmŸïÌ%o²ª¤Ìa|‹iªKu‹i+»’ 7Ò燾8ï~ôGâ÷+ÄîÀ‚þhdÃI·=&6ŸV>ü8èkÓÊyB+'+“᧺I¢Ïôo&£˜O ôouH1¿ ü2è/ëVÌäIïq%Å|øMÐßLF1¿üèoEV̲œÁ<£‚n¾ ü СM7«…nÌâ¤SPRÎ_ÿ ô?%£œ¿þ3莬œÓéÓ¶gµëØL—ú±q»bû3Ù¼qGL ¦G7³Ò_óÝXÇ7¯y¾atålÉ2x S¿¨iî/çx’2“u­ßf?‚Ëh3V~"Ÿã'noŒÚ'þ‹ÀÔ;ŠÖ'¶2¨åâ~òð²¥> ü„  c|Ìa‹þ8õIA&`À)ôÇ©O š0¢¿ZX$_&‹A›Wf#YÖÆa‚ÁI>¬Í˜´¯Ò¹PdæÛS–áðÓúì—î¬X|%‰§w©_7î˜]³–°A«ZhêWÒâÑiµ™ªV–¹18îžÏ³6UáeÈ*8½ôqà„ Ó‰ØLúvठ £† ¡‡„Äß>.h¤‡f—×QÏñmÁXhÎè„5Z‰óšŽšcóÚ|! FË–éQ ç`Öˆ¾«ç¡ÌLOÚ…Iéì!ß’ËZª¡3F ‘‰ŸóŒiêQÄ®]E¯/ÝÆÐõ6ÐoÓïõ-Ò)ÈöAàÇ@,~¯OìÞ ü8h¥aH¸LìÞüh¥>nÖìóÁ°…êÿ$ð×Aÿº6w»m!¬%i~øû ?í|ø ÿ ²v¾WßîÈg4¨3å)Œ ¦Z¸ŸÉæĦ¤ÖîŬV]§*RÔŒ™…“ýõ|jâMš;1§L»dŽ•¬,… ¬“¦Í”ÑØtýz66‹Ò9‘ƒá^Å ã,‚B«ß¥}ÿ5Öݳ‰ ñ`S‰8-Í>¢B(˜ÝW¦>*è”ÚlD ³à$Ô— h­{ÞôÏ‚“¤Ÿþ¦ SÊSs~ùÓÀ¯ Zm#^è–˜úðM±%.Wí=SüAjr‘ëü™ª5Ò'²Ñ{Vèñ7Iõ]àM˜„‚þø÷‚&L<%þÿø‚&L:Ý,4[G=¡è–(ë“îfÉs ßåŽ` ž{îÆŽ01*cÎ>d.…Ø„# G”‹Ü,ŸµÇéËàvS«\<{Ž_b9šÙ64š=GžªœÝ6tî\}MÈ7k·‘ÞÛ*Iø뀷ƒ¾=l!è9·U®-?î1A¥¦L´Ü#£pQ% |Lü˜ŠàüÁYÏ.> =Ä)FK_×;šªm7ânw”T›\­¹¶¹R¯R¤(¥¥ÙÌoöªnò s]§«Êß~’oª.³pÙ¨ºVÁö¬ÒLΰ}CŸªÑ„¯ë8~¶Ý¢åtól?(+r/”íÓV±9•d–ÎÕ²w„Ÿ¶é¤ ªé¨T=¦æc}Šª™0EÇoëK§;oåsâUu/“êtJmoz+ÞÈ8ÒÁCG3$Øy@ÐIœ—#VË€— ZÃy¹šý ¯!~²p« SJ—GÎ;0Zýä±WAÈk€‡:¼¨H$i¸[ЄHô‹àÍ‚&LÂbû€·:¥¶LþöŽ,Í$qÏB£ü™`zb̦U‚"­gñy Ìj¶ž†ˆâRG€¯4¡&ït>"/ ÁS¢«ø¦_¾GЄIhúuÀ÷ š°C¾é}À šP·oòjå²éÎDðM¿üš  ¹oú,ð ‚&Ôä›>üº  “°ØÿXЄ-6ǧ›™wâ«íX ÇÚ¸?éxV”eq’ôù±Éot)›ŒaYœdZ|–  c0è9lW/t:S6Ä®¸QЄmÇÉR4l˨:žÇï.ðYSÛ­fTf/¨;X/›•ÿ#šÐ§?וÌ/}ðE‚&ÔÔñ]Ò´æíÙeSqÙ›äûàÛNà®Pb÷bà;Ž~Wè#ÃŒÁÚ/W‚®æR‰ù¾øEA§£ÝkÔT7\m*úúàï š0 }} ø‚&Œª/ÚU*9ÓAPZp*S´UŠ=+Mw¦¿ ü?‚&\tÁL7Æ¥”x†hÂÅ̤ÿ §Ý­Ô“¶üåÿ‹_~– »uöƒóó?€í…‚îVꛃ~u%eÚ#èÕh´%öj5&œ‚[£Ù<(ènõ«æ:7‘ß}#ð.A†+½Ñ‰üî»%ÁïV\ËD¾1ôOäë‘«5×öù•ÛD~¬5Óv"?F®óOäk2PùÛÕõ°=z)Y–hF–(ôRòe°¬õ,%Ú0Œg‚ܹVÉ lé3¸‚œ6öš¾)63ÒV_y×’ãÚ¸|„/|`o#ûÆéYÞ¥YŒ·&ù_:FÑ‘w#ƒ´Ã˜óä¥FS—£Ò? úÓÚ\߬ÄLÎgìñÐC)î×ß­|uçÓfˆÝg€Zm/‹üíJ>ß놎THŠ?þ9è?צ©n¦µüø7 ÿ&µüðoAÿmdµ<"‚KºJ4âq—òÞŠ ¢‚½Ìõt¸S¦kÓÖA6 Ê{—gµr1ÍÚ»RÑ~(*ˆÖ°`Ú»n†RG=ÞõQæ]ÊGW1iW¦œmæv­b­R4™gÃÊ›ãi¨Ý]§Z%Û¼Àœ)Ö,…»» ”‹ðQÐjkVë]³r’:»`³ÎöÂI¬ à4h¥Ë;Û„ÞÝ5ÇoÕʈácÀÓ OGÖý‹ƒm»MÇ£YÇFS8eÓjG\«ìLÑ™º‘P¯ÉœÆ¬q‡,°tãdèæHu0üÐÿ£ÑÑUZ«à"˜ãV­Í/´ öi ñ(¶åQÅécÏ* ñD¬•Kè ‹SŸ0™µÜg[…I̬Y®‘ )Þ6(ŠðЗhó'MOÝP¶|“Ù¶œ|@AÈ­Àk@+%hÉu9g›v© ßMÀ½ ÷FÖ]øãÛÄp?èýÚ”´%H1==¡¬6c]ò࣠•z¨6cÝšÛNU€~,²ªºÃ4I€gÇ@iìÍš?é¸m µÞ+º:ê~‰}ZÂhîweTq®ì—ˆ'b­œ`îWòº9ãþ¼‘dCßCN¥X+ðq45¦~q< Z):k‘´™(%v÷g@ÏtÀÿ3À³ ÏjÓUz×Õ ò¼ø$è'5ªcÌ)Û°}ð… _Y«3»X”>Ôß¿{¯R#zðU _¥M1WkѱyÊ¥¡ÁüÐÞ«w]3ð¸çå§w]·w…ì^IÔ×? Zi¬î(%l¶? ü èÏ$ß»ûÏJˆGSéÏ­O›zmúr³Û»:ÚÃû´„ÑzXûéŠÓv^vÈž'!žˆÕrhÛ¶m´]£P+Ñ©Ø’3a¸¶wÒpi+ªÇ—X Ž+ŽÖ©³õÌr•Wå“]¤ÂÐ%ÉB©„‡@+] Û¼ñ¶húƵý†8BŸÁ±é‘¾ãÇûr†iøUÇËcŒ¨X9£`ø'EFðOøD4û¿üXa"ºP;PÂ;@ߟն•c'x¨§õÜHf2nû"ÖréžÏ£I\3Gá–9æ9¥šÏÓØØ~­hñcÓÁ\]è‚ä <á oŒ\&»GVâ–ÍÌŒ3¦ØÃÊà#ÆsY ˜è Coý³¿™Ž(s«ÐÈò`OØ:z…ðö8Þê±ÇMÜmñ¥¶Ykp¡„P„Ò-ìóÌ)î°ÔåÒÍVÈϷ·7®!GŒBû: ÑaðPFo!¶IÊ`dšIˆt|ýµÞWäö­ðµº % Œv™°üíF{Ü`:?U³]+ƒm`ÙðÂí†@„AoŒ,\Ž «!S†™iŽ/{#}C¬£œu”>¼È{ &¡ä·ҫÁ;@=Vz=Y)_ë3źú7J(ÂO(¦y³2·G ]Šk 9áõ ¯\Šû!µðJk= á=zžµB×>-^0½â¸ðYWð’VkxS±NW)€š°}odWx[Ù‹ÞZ)›yD[ÙÞ걕=O'f*•œ‚8õ5n*…Iû!ïþæ¶k˜DBG “@N‡Iׂ=a'äðpÑ…I×A(B}aÒ³æ†IáÍIrŒr¢ƒÄuxx¨G‡×͉ulºÕÊq‘´`•˜s±ì‰Iš]ˆƒü`³ÎG<$5ÆC7=ýx(‡šõè|~£Òâ$iâ£ë&Ð7uÀh%Þö¾…–Ãk52|K]ÿPðkõÝØr¾’£@„÷¾o±óÍèf­Æ<¢dÌ\ V,˜4Üx¤nÅGÀ;@=V|ׂѾ0enÄ À·ÿÕ/!µ[€Cë(ŠBxè»"k7Ëq›Ú¡,}p±?éZ-8µjøÀêVˆK( c#Š~G›‘KÁ)ã&?{ô’Í>Ü?ôˆ®Ëm(¡¾IÞ}í •Ø•c¶×í™Pô$Þ\w€zšëqµIêJQ†ÉsÖá­^2Š®ã GI.8imìŒ>*»òêI*ÊîêªûºŽŽÊîïݨL²±Å6*“vËttTvx¨G‡×¨¸¡¥¿J“‹#‚•Bê¥2=-M3vtzúðPU>mzš÷…m¢ÂÐ%|¥"|ôÑKx9ïã FŸ=}‚^úòÈBŽµ èžö »îÈOÒß/›êRÜ/ÑîGÁ;@=v´mD}#ÑiHa×¾c æŒ]ƒâ=ƒAê•Ðåye ”FkË3ØjõØôGJ¶çgxaFØà`0Ç °g0«à¹…¨„ƒ ;`w€ñwÎ^àÅèVX¿Ë'¼òŸ ‰ ]çlB B}óÞy:ç±™‘>^Ÿ::jÉIÉ넉[h¼Ôc¡<ÝŽº@÷²µêª…ÉÎî±C¯ˆ"J1IÄâí âµšRŠÞc[’PÚsµi×cÙ•bFòµÚ;æq”P_ÞÎ'À;@=v~l›ÆÿB—iå ”¦œ¯[¼ÔS·¼‘œêŒ8™nWXT³‘Û¹S°N›e»¢8ïü8„|\k#»;tim¹P4+¶UÚ·owhñNB$B)EqDñz'-³˜Qš:+AÂ^н0´2x¨ÇÐN4ïwû}§ÿŒ!ïÆã[ÄK&?âØ3^Ai£Ã’¿½ºÍžñ‡ÝI»Æ]{ĵYw`Tì(3«&¼ôÕ0*x¨Ç<®&óhqK¿z‰ ímkš‡„î(vü§ ð)­•xp¾©u!i†Ï6ôŸ3¤ ÙáÁ…ì„AŒ\¥ivì ;9Íîƒw€‹nš½¡õñ)Gغ¯ïõhôˆÒq©sRÝ$~E ”¶,Žþ "\"³ðg &a'gáÏ‚w€zÌôPûÁ½l‹sV‰¢Ì¶?Òê;SwðéïL?Ã:Ì(ÃásP_ïÞ2ž Þ걌óNL6ï»iœÂ[Äó 5¡´ázqø¬' ¡>Ÿ5ÐÆgQêp[χ¤„ :`œ/ïõçö§å¶Ââ“08Ó½=²´÷´qM.fìsƒÌ91GÌ eµ{«¢8„Ò>ƒÄ âEà ƒàXìR©æ±êòù5lÁ}ÚÛ‹ãbši;¿U{ýöÿðæñbÈK¨oÛѡƸ._žZhh'RÍñ/†Œçž_+ÎäB—ä%žP_¨ÓŸú Œ6uý?Ôë”q£”Dj–l³UÇF=¤›ë$i•ûuâѤ’‡êÛ‹ýj'ì3ØŽvgÍ/P‚Ñcb5=ìÝöÝÐá0èazóm¿Ôª)uCW„Ò¥@IëØï–¢Þ–E§V zË–¿} ÚoîùgßÆæÚ!âÔ¼`¤Ç­Êq F…-ž‘!S«›æÙj’I"(#û…²S)ÍÔss4ÝúZÓe°Â×~]ÔºIÚãA†¸Öéªû0+^­ä{#n1çùæ„5âZ•¢å>röØÁ{ŽÜzðãÝ{âð¡›î ‘û‰/?aùVe*Ó7ëë¾ì£þÑ|¯ã]õm­œ)LšnFþ.›ó3}Á¬…b%ÿ¸W´Jö”›¯Xþ@¥Zf½®?ù¸yú†Ý¾uº¿\.õ¨|ìžÆ]ì§è'¼Ï·Êyê.3}E§üÿ›úû¹à"ç‘>|ï¢V¸ ôsY㪫Œ9’‹J`Âoå9÷®õ ®]õ¯;Æ~èVó´1bœeWkþ~ãì¸Saðè¯XÓ…reϬøw±ÏØWùüû_ Ä€,1½Õ—;wîÀµ`Vt‘åLý#óý}S‰¯«ÿȹí%c5Àjj03«ÒoömÏ5©(ÇÊÜôCÙsçÚIçË(H†þzà[A¿5¬ÁÓs2 ®-9f ù/ê½t¥$©ß&Iÿ6éå±»•d\jf2¬ÒV‹­¹¶É>¨…kË!Ýêk N¥bñ®èºù†Äí°mËÒÍyœEi%H´Î^ímG“nW-as¬ªÛ„©®9ãšÅP1A@ E×q^äik˯”OĨìºæm°tk2]˜Lw%Ó"iΨ Ñÿ ³ÿ;MÔi¢|¢|F….ÄJhˆð:Ð×E/„1ë¿2 X&Q½âÿ^úЦ-¾LzöŒ³§ªPˆU|•ÖBìœ]ªß曑sF°šéY KûÓåË¢#J¼CZžd‚•Ì1V§%»ÊèÚ˜gù9nJµ¢^àó $a‹Ã6‹Å‘¡afÎH iAÕuªƒƒ#7¼ýÄá𯆫µ ¼O‰UÛO09ùØ§à‹¥¹ÐrJFõlb[#Ë9Èi²€Y¶¼‘B¦oÆîËõMÙ}ÙUx>Øh¯XÁòTÓ0h¥)‚ÖQ­²ñ–;]«Z2 õÅO¾S¤mb’¶¯ƒë"[Äü™¬‹ŽßjJjš:áèÈõ•¿žF ‡@©Òfn§æ±¡a›þ2U[1´ˆFÐ;i £…¯‹*Îú.á£Ä±VºY )Ȇ®F¬&MÃ)ÖK»1ã xázçƒ>_E8.ÔªYB=f4Ma|Áù.²; E:hi2¬Å\XsÌjÌ£Œ•ŸÈ‡N¡´bž}*ʹyÕ¨ïı›úÂ: ’å4ð9 Ÿ£Íi´M(Lì\à9Ðç¢;M%•<ø<ÐÏÓ¦’å⬛ŠN^ |è—%£“'€?úg:¤“—_úÚtÒÓ§¨‘×ßú Éhä•À§@?Y#+²yã„:: ñFà[@¿E›ZVÜdù¦] »žE¼ øÐЦ˜yr5Ã_~ô#«æü˜BÕñ<{¬Äº£jãÐï¤3]¿êÔ¨XVQìmc}U•®®àiÒ­’%ßr±@—Æ“B³~Mt‡6ukvÞbÝšè±yÜ)•œiê9ë»9{bŽìÑÙ¼‚Ö>$05!èÔ„ÆædûV¹ Û°tj2ù@•ØÛ ž¤Å@+¬£ž°]!@•î/Ô Îv,WÝ3iy–d¼UË¥­Üd¿¸Ú–dî€ÐhÁm’> L8z0yÓ!öCâIZŒ a,vÌ‚7‚ùF-ÌÞl9ÄJ›¶‚\½Àó@Ÿ§"—§g–<çOYtÌ£‘XAºµÀË@_¦¬¾n|;8jÓJn°ÊO-éì9¾˜;šÙ64š=GžªœÝ6tîì¶ásçðw½Ãƨo—-Ï aøôp›"Í»K幸tèM&ôÆœ…Üå£åǙ蒭t·±•%\’w$÷¹ëÖ’^p>­Ó&FËî`íh¦¡èÑl»*j³>«M¶Ö\Û¬ÏêULj7#7„ÕNK¹æiŽRo‹ s]ÿkË‘¿½ÒðMŒŒÓ!«R°iX­ÊÂ(£dûüt}è€,ꃠŒ@ìz€~(ùÀ…Ø?,!žä—‹D;ãcà26p!yz‹/p!©ÖŸI •çràR \HÞ=’Ü \´‰Cà¢M¶P‹^Åĸè—S~K!p‰[]­—x¹Î¸èk9ò·Wµ\\Ê¡¹È²>Z)„¹»àࣇ ¡#b?*!žä#éfÒ8#—BØÈ…äé.¾È…¤Z |&E.TžËK)r!y÷Hrw(rÑ&F ‘‹6ÙBE.z_ä¢_Nù-…È%nuµŽ\âå:O䢯åÈ߶œr)9Ó‘¦\dQœr!v=ÀN¹û‡%ìØ”Ë%¢qŒ1p)† \Hž^àâ \HªµÀgRàB幸”’w$w‡mbĸh“-Tà¢W1ñ.úå”ßR\âVWëÀ%^®ó.úZŽümË)¸D˜r‘eMpÊ…Øõ;8åBìG%ìØ”‹tbŒ‘Kwe(lèBõWƒV:jÑR kg‡.n»ž/^`Ÿ‡¶t*Á:à­ oßÒ7Áº o}[ò–Nìo—Oò–¾Ö½9fKké›aÝ›c±ô‘–îY§RŒ`ê›aÞ›asëTm.œ©o†yo†}õh±±Ð¦NìIˆ'yS¿æ}i¼¦~:´S¿æ}i,¦>0ÛÔ+µò‹RœqÚâÛ„e_Ú¸/…AŽ€‰ß¸/…A^úºä›Ø_/!žäû2ôe1wh?~ ú²XŒ{paã–Ýwhë¾ }Ìlª™…³îË`Ñ—Á¤z´˜Uhë&ö7Hˆ'yë¾}y¼Öí‡vݗâ/ź‡f[7IèX‡çTúÅlD$ç}9LúrØÙ:U; gޗä/‡Mõh±«ÐæMìJˆ'yóÞ“Þ³y‡vÞ[`Ò[b1ïá§cÞ‘Ü÷ØôÚ:UC gß[`Ó[`T=Z +´}û%Ä“¼}°i#^û.‡vßlÚHƾEz.ÙcÓX“ ݨ:vÅmßlÚHÖ¾ Ø´ÑYû6`Óv̾¥KbµïÐþ{+lzk,ö½«}Ë.;¢o…Qo…¥­Sµ´p¾F½VգŲB8±?$!žä ¼FÝ«÷ÐÅz ’õ×€^£ÍÂo˜mážoVŠ¦[4ŠÖ”<åýyÞ#¼ôñ›{Lœð.Ðw%oîÄþn ñ$oîÛ`âÛâ6÷Ð}L|[,æ~ði™»F÷¾ ïmƒá¯jxáì}l|Œ¬G‹¡…¶wb\B<ÉÛû°ñ+bµ÷ôé°Ö~,œ0úF­Ùòì™míòR>®„ᓈôžE×òü°N¢¯ÞZ)’gáWÀª Ž9„¶pb“„x’·ð+aÕWÆkáå°~%¬úÊX,ü¡§aát«RÉ*ÃÌ[Ú¼|ÒÂãó ?l3¸¦O8:k®„é⤮\ƒDìm ñ$ß ®‚é_o3pÃ6ƒ«`úWÅÒ úg7לnÊ’Yp¬ñq›µŠŠÚ²¯‚5î½?~˾ ÖLxôä-›Ø_+!žä-[J§eûa-{;¬y{,–½÷iÌ “óî§ÏÍû¶çÛ…ÐF¾†Mxôáø|; ›ðfÐ7'oäÄþ ñ$oäA.×L¼F>ÖÈ30ìL,FÞ7ÛÈoŽjΘ0áèøÍ9&=˜¼9û! ñ$oÎY˜p6^s®†5ç,L8›Œ9g<{¢b³FµÊ,Õ¬Ð朅 g“5ç,L8ÛYs΄ì˜9K â\òBŸwÛ&Ô¿ tÅÓ˜4 kÑ$é:à0èáø-z¬˜pè]É[4±ß-!žä-ZJë§E»¡§Áwv5òE·èžYE=Á¤H!¼¼«¾ÃJQAFë\ˆœÁéÍîã·~Þ³š$ùàСóÌÐsÎj®-?îÅwXs§ôìh ¢a¤»kj£õò£¦×Ч4µ Õšk›Sšz5’jTIk_ÒÞà;U-­OCÆËužÓúLSþv¥¡ºÊÒ 70Øô;ØÑûÝv¬£Ï¡IÆ8«„íçIž^ þ‘ض9‘+%ý¶¤³`aí™] =¿=ç`ÄC £BÛ3±–OòöÜîמgÂÚs?l¸?{ž³ßÔó,wª9KŠ'¥I mÞý0iÂëA_¿y÷ä o}CòæMìJرóy˜t>^óž kÞy˜t>óžs†/áyU§R¤œ=Üy1eº¶Y)„·î<,šð:Ð×ÅoÝyXt¾«£‡½òh\Þ ¥‘)X÷,z Vëîö¬°æ=ÐUÏ~ÃZ†SéµÀ§@+µ£–\çÉ,N _|#èè-g“áYÜqu–¦Á¢È¸Ö¯‘\?ü(èÆï׈]ðc ?–¼_#ö—OÒbìf^G<ɻ׫Áœ0º{ÝrÏ“¼{Ò¬ùÔ6sUg,×áw {§Æ^uíW(R/ðÐwh4ð6Ûc®†QÞ úÎä-‹Øß%!ž¤Å¸¶`Ç |/˜ïÕbàíâ‡n³XT¬}â}Ù,eÃI§Ò_±&Lßžª_!8+X0ËÔÚèS&?A£!æ ÑssH­QÄ e],.ió2+n=¡‚P5àYÐg“ˆˆaøÐωÜ6–Ì¡ª(æðù Ÿ¯M1=wÔ+ ”D/¾ôË“ÒÊ €¯ýŠèŽ3lxFì_)!ž¸Ã3b×|èW%ßmûŸ•OòÝÆ>aÎãôó’QŠ|ôRÊó/ýmJYÙgª6•Ÿ¾ ô«’ÑÊ“ÀŸ½_ÆG! Šy5ðu _§M1ËûØøÊRRË›€oýÖdÔòzàÛ@¿-²ZVd•Fƒ$ÄÛïýîNI˜?úSIŒ;ˆá{€¿úW’wûOKˆ'îq±ë~ôg’wûÏJˆ'ùqÇ~aÑc\&.ºNupPA¶^ຮ¨ËijW»Þ!m¸£ŠcLÏò‚d´Ñ‚E.âÓ,- 9ì=~âÅ“Âa*t•Ä|¬zõ>V âꨪ6?Zm¹A£«#a>üè/%áêˆá'€¿ú7’wuÄþ7%Ä·«#v=Àßý[É»:bÿÛâIZŒžëر‚kÁœPÿ Xnž°à¦Âš/.”»ÐE÷÷€Þ£ÑŽÛ,tIÛ#åE¯¤ ˆØ_#!ž¤ÅÉØ1;¾̯ÓbÇí"‡eSþL5ìœþu0Nµ ×j ¬ù'-ù rLf¾%fÎq*z³¾¦Ý6M…ŽŸŠºX]ëtÇOÂ<øBÐ/L¢ã'†SÀ~Qò?±±„xâîø‰]ð% _’¼§"ö?%!žä=Õõ¢9Ƹ¥5+„Ý KBõÏïÒ½¥Ï™gcc¶é›¶zI3ùUÚû] ¢†vc#Ã7ÃZãf­ä¶§¢™ €Ï­q9øžã÷n×xÚM˜]K%|è—il³m&ÌˆÝ €?ZmG£üm:t2âÿrà+@¿"~—Eìpd—¯@÷t)®BGsYÄþUâIZŒ„1×±c1ÞA0'Lv·ßIï¸eÓ÷±gß9ìµoì¿;ˆ¡¢ôïèJl·ÞA5á ïLÞ²ˆý]âIZŒaKvÌÀù!-Þ.4XÅÂÿ|…kØú ”pè ÊÁÁì={¿ÝÆ4›Ÿv Kd3ðfl¨Ac Ž×O`.8¥ÉwŒ-ø3 ÝHÑt°ßtC–¨:/~ô·õ…}3v_Ø°ƒDùð ØAì¾ükй!*m $þø#Ð?Ò¨”)5¥ü3ð_Aÿk2Jù{à¿þ·Ä‚Äÿßÿú?â‰]ð?Aÿgò}±ÿ/ ñ$ßGÝ$Ì™c|}Ôyf±˜Ça-{Ïý,m½ÔÃóaë½Çì]hˆ!¥ƒšÞ»ƒUÞ)ô"à)Ч´¹¨U}¨þÐ~Šä9 |ôñû)bçŸZmô.{gV½ Á{M3ª%êÇ Åz%¼ŸVYkžX_µYÜÁ3†Þ^E…yð@ÿ>/ Ϋão¿ ú»Éèø«À?ýç‘u|Q0+Ƥ9E³ÞL[t#ògÑüø¤Y™°„ëí›*-lFBÿ…ÀÔE‚&Œ»#¶=`{±  “îÀˆý% žä;°Ã¢!pŒq‰Y­Z•°§¢H¦^ຮ¨{Lf÷]æé»fõNU×™²©ãš²M•#ÑT€ ÀÛAß®/|žç2¬¶.‹D9¼ô}ñ»,bw x?èû#Ûý‹ëóTR¨QŸò ¡Õ§m(#…ë*L°S<ü6h#]• vå{ÀGºÄî;@}#Ýðƒ*âÿ7À¿ý·ñ÷IÄ®øCÐ?L¾O"ö'!žäû¤›…9sŒqMеª%³v@EBõÏ&xÁ,¡æ锬Ӕ Œ{ ~âj<ü6ø›Á–ð h}ç­Ú_ÝÖá G€GAßá»·‚V:å}jD¸ x'è;õ©¤íÇóªä>àý •ºèð*¹ øè"«d‹K¡ä{6@½“ö »lœ3e² ‚o VÐãƒÀWƒ~µ6=ž'è•N$z ø6ÐJç=Â+ô5À·ƒ~{d…fëë’FÍ’k™Å™à¾UO%F'1ßü è¯tÚ5~ øuÐ_OFm¿ücÐÜ9×ø à7A³Ó®ñ/ú¯’QÉ·€ßý½È*Y׸8oWQÎÿþèÒ¦œÕpÍÊï?¦– š0 5ý3Ø.4aD5jffsÌÙ•êWŒÎŠƒ)Ëvmß·*ŠªM­tJ)(k©Ú5jo>xû ݦîŽ š0ݦn>"hˆº]‘‡•ôó(°(蔾Óøé;ª(å$°$è”Ò•>á•bË‚N•#+¥ovkjD‰Š7"’|à+M¨I_J7"’(oþ‚  5ilžÝßÄðUÀ7 š0¢Îô݈Hrý/à'M÷õ=`ûIA&=Dì?ÕÀàI~ èaèã<újOØ~Ø_$S/p]—߮_ôjW|kbî=m¸½…Eöa™½ÈÝßÖ¸ÚµêÒŸ™óòøN,iÐëÐU=EÔ*â—m«˜3fÍfïÎte—Xð•.ú¡=]žÏšX‘O¨;5_ü$Å!lקޱÇY»Ž“¥Q¨ê À¿ý÷Ú¡DAã®S6,“ÅHt‹ÈŒQ®y>ýÝ©{‹‡AÔwx5ö‚iL›3àGü‚4׎AeNL¸t¿.û±w \e‹²n²h➟“©3ËmÂ1©7Ç-üRIrFf,‹PŒg“áÓÝ3UË“¯ñR^äø×™‚ø »"NåÐ8¨¾e…¤³ì Í44mëwj^»íÁ>d(¸ö%аJ¬ã-³*']‡E˜”'8Ь^NÄ.ÀÆö‹ÆtšÕmd‚N)]ÑÑúî.VD³ThçúÚMy0¿ü#AÆ=åAì~ ø5AFt7ç5£„mé$È×ß4aÒþïvØH€zÜð æpî o°Ç á ÐJc„ÖçýçßÞÖbIšµÀgVÚ Îb‰ÝJà… /Œ¬™Ÿjìø"o³à¥³·&s¿Þ*퉑ñØXUx»Àµî#/šƒ¯‹T0À7V›þj9uk†^Ò"AÞ|èw$cÿ øNÐïŒl«˜º\§61©¢–_~ôô©¥¢¤–?Zç4ä%Ö`ˆÖ¸£´µ—D9 ¬š0Ûá«1„Ž  #ÚN!#g[Ž>ÑnÕµ¦¸5ÆÙŠÝ{ª üCAjR¹Ê¥å$ÉŸ¿)è”ÒF‰ðÿ#à·+²ÆÃߺLü¿ üŽ  uyï¶÷òÏ«ÿ ü¾  “ÐÇw?@<®´{»y€¤êS ü‘  u Úæ½³t^½ü3ðßM˜„^þø‚N)Õmªƒ_•ú3ŒËÑ{òí‹EËäÇø¨;ÈÙ3C£|žËGxOÓ_y¯š¥F*.þ+žÓ¸ @JüSÿ±Ä>[–yÊ Y4æî³yãf»b–J39•Iª»ÿ˜þ¤ Ój‘Iè›ìæ3§ôç€_4aæ”FÈ‘þ¢  #šÓɦÕìÞ–¯ºPFɹ§`¤QT0Ó“1'Lšrjca÷TÐ/ ì4aÒs w飞9†ÇiŽÁ æëXXðµ‚Ï©N¸Ù:ÞšƒY·ÆˆVuÞíN”‘ðqÐësájón$Ì)àè©øÛ±; œ=Y÷ëón9cÚâª+Š}5Û›djô§-æ„›LÍsX&ñO? ºÛLî‚5ر+†îsÂø¶™t—J%ÁÖ×^§"h{T…‘$Ä“¼ÂŽCIÇ#+Lþ6?j[%Ï:Kóô¹³£vÁ+ˆO'ýrI|8yî¬qî\™WÝ{âðñc¿³à=À CÏ Ó«çT &Yaw+\Æ §Pß+%±Wªˆ]·Ãô,‘.e}ØÙÑI¯j¬góCVY½z#ËÙ²z—qcèjß‘­›%»¾ïðñã¬áÖ\©†c×kjÓë¡´¨,o5·¼«¬²W=° nrƒ[.ÄþÔÎä·RF§Œª%×è0ž‘ŒõUüÊÆ£huµµBßkÃ}p5h¥ôʳδe†²*±¸ôúD+bðBÐÑc»1MÏç÷SÚ±6CS A¾IëtÕrmš]  ƒýš²QlÅdc]þ¡S(Ô\Z¼Í"]Oè‰`*ÖF`´ÒÊǼ•Û=ZpÛ0w€§@«]@ÖÔÒ†êÄÞ•Oò¡ú‰.ž.©P»o9.¡PÄ])‰½XCu-rv$T×VáB(½z#T×ò"‡ê1œþPý™bgò[¡#Æx+ažˆyé3ÖWñɇêÄuPk¨>:T'֓Չ렾PýÎú–n±ÇÜÒËпç»VeŸ |MÏs ¶Ø˜¬EP€_ß^:@§ÂlA«ï–jW¥mtbj'@O$ ûI ñ$ ßÓ%‚rÂ% “À=À% “¸+%±k€®EÎŽèÚj8Tà¤W¯qèñZ^ä=fƒÓ ?SìL~+tœo%Ì'/}Æú*>ù¸®j Ðw…ÐI„5Àät⺨/@?lxµr™Øg,±ù²~²‰6hÆÜô}À×|¾1“21LÙEÚLš‡¿–Š°ø臒 ˉéÃÀG@?’|XNì•Oòaù½]"'\Ra9 Ü\Ba9‰»R{±†åZäìHX®­†C…KzõGX¯åEËc68ýaù3ÅÎä·BG‡ñVÂ<ÑñÒg¬¯â“ˉë* Ö°|wè°œDXL>,'®€úÂòÑàŠ˜™ ª°+t^îL”,}¸1 8s\°š&Î˦_˜´ŠUÓ¦ëóøa+ôeOT²ÀS •6š´äº’êµV2[…ê´ý;ˆð\Ðnò¡:±÷$Ä“´÷u‰à<@=§è’£›Å¥BtiŽÎá¹MWîÔÏŠÔoÇ{ZgFØ/”ìÏ×Æö‰3óòà2gˆ|GžÅ‘]\õDo¦çYž‡3E¸eOÖ¯'òBŸL¹HˆK~ºÔ.ù‰¤ÓÀ:ÀŽLyÌ ÕÉh p]WÇO¦$Ä“¼Â‚’Š¬0ùÛ†í$pp ÛIÜ•’Ø‹uØ®EÎŽ ÛµÕp¨á”^½Æ1l×ò"Ûc68ýÃögŠÉo…=Æ[ 󌞗>c}Ÿü°¸®j¶›¡‡í$Â`òÃv⺨oØ~/Ÿ‹»oúöTãf(#cå'ò9Ã,óËPøeúU6úñø^8¯1У›¦\“ßüJXÙЛޤ5~ÂÆ®(÷(´«Ø6«kÄô$° ºœü¸ŠØW$Ä“|˜þp—Í —T˜N÷—P˜Nâ®”Ä^¬aº9;¦k«áPá“^½Æ¦Çky‘Ãô˜ N˜þL±3ù­ÐÑb¼•0O´¼ôë«øäÃt⺠¨5L ¦“k€É‡éÄuP_˜~„nsµ “Žï”馳̘]1Ý™ìœpݵʶˆÑ§,×coVœÆgá#s*ÅÆ®ú–3N«m=SˆÌ‰é£Àgƒ~vò‘9±7%Ä“|d>Ú%¢qÂ%™“À=À%™“¸+%±kd®EÎŽDæÚj8TĤW¯qDæñZ^äÈùÈœ¸®jÌ ¡#sa 0ùÈœ¸nê‹Ìo¥Ü:Á¹5Å/¯RNZ»lµŠí‘y#gÙžpM»b‰g,ÓͪœI¡rl>ú±¤bsbúlàè±äcsb_Oò±ù#]"'\R±9 Ü\B±9‰»R{±ÆæZäìHl®­†CÅLzõGl¯åEŽÍc68ý±ù3ÅÎä·B‡ˆñVÂ_¸¡Ä?¦Q5]ߦ|4î¬<Ñ=zl”X˜ä/‡¬²ÇPM„ïý>å†='‚Ê eÛHÔ6E ‰òQà'@B[kj›¢†Ø½øIПŒl<<­Wnó‰¢Y×ȵ<î&.¤ù‡ède/b¿Ö¼ÖW_âSÓý§¦®4¡6Ý›*ºOíæÊ'¢ûÔ•ÀA§”xS ÜÍd³ÞëÇ ç» °å–K…Ä_TœAà‚&LÚ-?~%ÀŽ 3Áœ0¾CayºÖþN$;hŸLáži§ÿ~ÎõSf>ÝöœŠ§P†ó# G”‡&FÕ-‰qƒ„x’6±1h3@-&–úuƒÿw´Â:îÊŒÜõÒÝÔ‚'³Dùþ(ÕßL…ºxˆ¾a:¯•|¦w×)×vŠ s\÷–È)Ýû/ܽH© ×¼”³nÿ/Z¬C¡0{° ŸÒðÔƒ&"øÏ:¸Ñ¨ž,`ʦؕ"“‡9{¢B‘%1ˆ Ï eÀ³wøN3c®ä «\-93+ʴ㞤MݵJ‘E2“öÄd°©„…Jýtªç‘$E›g}ÏUË©–¬³b—Y|4P-™4ÎÊæÉ©ÁX•)Ûu*¢°k"'q³à3)ñë>å©6*Žü)ûeæ)ùÔ:^Aù&hBmQ}É®œlÃöà³M÷`‚Øš‚NEßø[˜ 2ž6e« Ò [̪ˬ³ç¦ìµ±å &!Ëo4…¬rÀÐ1ŠA ñ,`n¸ôî¥Ìí‘ÄÞ£"vBÁ\d9;Ìi©áЬ>½ÆÌÅgyZ‚¹ .ž`î™`gò[JÝG|•°@Lµ´ë«ø='Áàåjà>Ðû"W³Z­ž(ÔË~à1ÐÇ­—;€wƒ¾»3Æq\BËÓÔÅhpñuÏ;“ßRê>â«„b«¥ÍX_Åßßx ^> úáÈ•°[ ùîF…úN€žÐ^m¢ÓIàã ÕîŽm²‰°+áÄþ¤„x"ŠÑX Ú «šÇù;“_ '®€\ —®^Z+á$ðEÀ%´Nân–Ä^¬+áZäìHœ­­†CÅ?zõGœ¯åEŽ³c68ýqö3ÅÎä·”ºø*ažpwé3ÖWñɯ„×K[ºt­„+U‚!!ÅJ˜ÝºËCvÚžà$I¶³ ³Ú̲í¦kb·¸ôŽÎèc§„x4Êp «cÛˆý „x–FD=\BÛHÜ=’Ø‹u;‚9;Qk©áБŽ>½ÆQÇgyZ"ê .žˆú™`gò[JÝG|•°@`»´ë«øä·#׫ûºtmGPª„ýâÑQ÷xEµú ð&Ð7%R}8²BV*žÚ")nÜžâz°ƒ{Bˆýq ñ,Èúð¾®%³'„Ľ_{±î Ñ"gÇ"k-5:âѧ׸"ëø,OKd£ÁÅY?ìL~K©ûˆ¯p—6c}ŸüžâúPßž¥J•¦Èº»¢X€h+™Àúà8èñÎècBB<š²ÍÆbŠÍ8ܘC¬OJÏƜᰪ9) œcòsˆë`7æûâYüƒø"ম%³1‡ÄÝ,‰½X7æh‘³#ƒm5*Õ«×8;ñZ^äÁŅ°óL±3ù-¥î#¾J˜g̱ôë«øä7æ×K[º:¶1‡ØâÑ5Ø)‡ì$ÛÙ®Ä6æ»­ÀnÌ!ö;%Lvcqͺ:¶1‡ØJˆgiDÔCÀ%´1‡ÄÝ#‰½X7æh‘³cµ–éèÓk\u|–§%¢ŽÑà≨Ÿ v&¿¥Ô}ÄW ¶K›±¾ŠO~cq½¸¯«csˆý~ µoÌQ ©ܘCì;¿1‡¤¸˜üÆâz°ƒsˆýq ñ,Èúð¾®%³1‡Ä½_{±nÌÑ"gÇ"k-5:âѧ׸"ëø,OKd£ÁÅY?ìL~K©ûˆ¯p—6c}ŸüÆâúðᮎmÌ!ö£êÞ˜£X€ nÌ!vÇ»"lÌiÉv¾<ÎäW{Áy´Ú^œ&K»æ$D OD1ÖÕ·ÃLOZnè „J¨8®½NŸy*œq&I6/}qüæY‹„—€¾$²v–ñ4Q :Ù¼ôåuÞe$W·ƒÞžŒN¶3 3‘u²“g…k$œ³ŠÈè䪯çàÊ©h. <ú„6Í)o"Q>ú‘dTwðQÐv®9=,€.èTŠZ{zX]NF)E`t%ŽöÔ"/^NUuð)ÐOi žÔšÓ[€oýÖd4÷FàÛ@¿­sÍéíÀ_ýË hI’?úCÉèä]Àƒþpd ±6Sq|Ñ *µò˜åRÇÔHÜê1ڰ̤è¤Bga&q?ü+Е|4\ʯ£ž,ÌÊ©'+pèUÚ¬:×”{ù&{|œ…ê•‚ÅuyÈ¢<å%ãžÀ·0£ ùùÀ h´þ1§Tlöx-èk“7#b?"!ž¤Åp`2ê±æÖ­ùÎqŸ2ÄÛŸŽÇ“1;ž™Ö©EÉ Æ,Ú²æ$NžM–}m»F¦çÃôDšZלI£¿›ã¿tëöÄÌMoP_BoeJ΄Á~¶âQNZ«˜e?ÈBòb"ÎÎ0'æ³T²Ä_Є¬ð**™ð‡ ¨­½®­§Öæ¢+ÈöÏS)A§”Œ¡%×£ÞÝ5ÖA´aüw`œ4aD+<’å3¶ñZÉpj~Á)[AÎp¦*ì_¾ÙoVÌÒÌJcäç#*JT,Ùld¬üD>gÜè°ºð|Ëfc‚áÁÁ}Ù\X7G‚]|ôssSBû;àæˆm/°ƒnŽØ¯“P¯›[ÖwBÁÏ‘,›@ë;p×ÖÏMáEÂÍ Õι5Û§¢Ÿ#1.^ú mš¹t¾µ‚¤;7ƒ¾9~‡Gì®Þú–ÈúZodŽXÅ ËËCûö…ws$Îà ;è榅ò9vÀÍÛ^`ݱ_'¡^7·œÜÜ‘Ð~Ž„ÙÜ ZÉá„ósÓx‘ðRЗvÎÏ‘—¯}å¢ôs$ax h%‡ÎÏ»«€G@‰¬¯b~vÒò-×ñ VÑô|»`Tj­$’¼N™®m+³æv37:Ë÷y(¸W5 ¤þ<èŸïœ§<-̇c<%±ívÐSûuÆà)‡B{Jf#0AOy/.OIb\\Üž’$Ìô”Äî* >Où ¶9’ÆfU -ŠñErVcc3M VR¶llòò¬‚S)â ±ŒÂ6*ÖQà/‚þEmú_Á›fø(†¤ùeàûA¿?™¶ùVà@ ²®¯«·MÏ,[ÆXÍúÝdødÿ ðG Ô¹pFXÇt€Ä¶ØÁد“Po¸¬ïøÇB·1’e#0Á‘¼H¸fDHŒKúgD.Ÿµ‡`ÖYw€VêŠÂõ€ÄîJàQÐG#klG0'bX¾a–ò45²oßãvóq«V±<Ï¢!ÀÐP6ô‚;Éy+ÐíuΞvÁ1’lÉu%÷|,¼jÁ™ÖþzÁ¹·ñDu~aõAìÏ“OÒbœEݨg½xgÓˆ =Îyv¹Zš k8Ï„;A«ïèÆ·ƒ³N†S£?{NfÎlÍž£OUÎn:wvÛð¹sø»‹2£¾uÚ?[²Ïõƒ¶Ïeƒæ‘a_ô³O²mJ9ï‰T*bx/è{Õޘs"uùhùqVš®†ÖyЗä½O’û>¹ùô?Êi㡵‰Ñ²Û<ši£ûÑvÊnwW› ­¹¶9È«WKÁñt;jÛP:TU-…\°¹vJƒ¼­&Ìuž#ÈúZ–üížþÛ%kÁݨÔyLØSV…f"ø¦—‚~iǺ¾6­b@Ð^ÑÞ\S7Íö©joò2à@a‰ô&_”äþ¢ŠÜzz-b´ìM®jÛ›H¦ Ô±h‘9tÇ¢Oa u,O§ u¨ÖZÊû´r§Ú¾Ÿ‰ëýŒž6×ômÞ¸Ùqnè·Aÿ¶¶ö¿Û°G”¶ñLüèoiSPÛI+b÷eà·A;²zÒ¡fÿï¿ ú»ëÓË ÇcŒ£Þ)—ýÁ¸kÎÂSUÈS eƒ×Ø¿6vÁ·ÃMßÓ·ŒQý/wJ¯5˜`ì7b–ÉdØ{ì'vÐo‹Ÿfo‹†ÙYcÀ WvÒ§ÃYå¡éŸ Lý¬  —B0‘zuCn¢ÃË­%˜Ð#FKgrj4“¨ ªÄ%zŠ6.Ѩû…â’„Ý@‡вè18£NYRÛ€(F®óDšüF“¿ 5 º«ŽSjyÁÃÜÛSŒŒéyµ2œtÊõZÛŸ ^n¹r«{ÅN§M¨É]®•c¯ð«ò$Ô*àFA&|¥» š°ÁWúbà%‚&ìPðu ­×íggyÖÆOl•½WÝk5¼Õ°jÀ”Þ|ž  —BÀ”~B’û ¹µLzÄh鮟'`ZØnTÂ=… þhÔäBáO¤†Ø¡êlYewÐ)í· Ybä:È¢‡q“V*AÈâªÑ‘m×qü î0§,ל°êA]IQr¦)T¡í0Okƒ Sì û³™ÿ›NóG(³Ún³ã•ð;|I¨Øt·¾ ,æWþlÓ‚îV‹ášØ©\rE" tê^!hBMêYפ¥x²{-ðRAw+m…­Ÿî•ÀËM؉x²ûràAv(ž¼¸¹ktUø¾½CûkŠ » àm‚&\ Qa÷í’Ü·«È­%*Ô#Fëmú³£Â†öUB>=’† ù4ªi¡¯}[éP]µ”ráÛ)¶ Übä:঩qÉß®62tâ~Å°ª.ÑýHýÊyýaU÷£À“‚&L¢Û~Xtw)²–Vä §¢´7³» ôÝ­¶ÇXÛe¼$Êà9AwŸKF->ð¹‚&Œ¨–ÍFŲŠ]ñ7Ɔ>U«`ÛVQ5~ð)AêSUøÛwI”·ß&èn¥kpëêÀ· š0¢ªÖÒÕž¨8®U ¿YŸdyðÂ&Œ(SèÍáç„jë¨gsøšúæp…¥€çB Â5 ×h³ÛhÛ0H¦g ÐFüLìÖ·‚ÞYKßËadz}{Ê2Æl³~<}ÞÍ™;oåé6SÃ49“Ve»g)³T³²Ô(Ìšï”Mߦ+BgŒ‚ãºVÁg¿CñZ¥@“29cƶJEš½'c¶³.É'ì²]2]š®á3@³äL85OH 4ÃCü«Õ’ ~ Æ×'0µLЄq áç H¨ÕÀKRZˆ m}©7 :ýβõM÷숞F q6w :¥vL$†X‘„^/hÂ$T•Þ hˆªºpö5>*á‰tx¯ SúÎjD’#©F š0 }Ý<)è”Ò¢9¶Ï÷ÓAk •€®  uu¼ðÑ#7¼ýÄaýÌ_$hÂ$ôã_,hˆúÉó>̳f÷]Œf-Åý¬—,LÒåàãã¡#K’õ%À š0éÈòyÂê¸"Ë' aœ‘¥Ê©t’éY@£+±È’Ø­ê‹,sõ{áiÏ]àOš<K¡äx–Kó®Ç-›%ÛŸÉG‚Ü)ì…€ Ñ*ŽOQ“ Z£y žBCÝ1¦²‚Neµy$•Ä$É pXЄ D ©À]‚&Œh5J»FH„ÝÀ½‚&Ô¦“ðk$ÉõÀƒ‚&LB'û€7 :ucdüؘ4§(Y ŸqdÖžà`Å7 þ¬fFœÖ§(Lô±Âó%Ѥž"½‚Yª»Jíáåp»Ü˜ÃF¿"Àô&Z©H]Ÿç4+3ÓæL6oÜ!ò´1`¶œF¤4GÁ\"Ϲ$É—™u_Ïžœaª‰Mf{³F­Rb_©à!éÝ‚&\#p’éðA§u^CØÞÓ{€GŽ~ a:ô¨šøÞ*èt²=_赎‹`TýˆA¸ØÖkH¦g®ÄFÕÄn-PÛ¨:u8gØãõ›3=ÞõÈÔ*²}UNVœé ÷–EJHé•ã;`iÝ„¹HïØÂÔ縃ežŽy gÊr\ òòÆQ±–S0=¸ÒÿÆÈÌZ3òD‚²¢MΉ¹|sÊ´KæóíH—Á~r†¿âZUÇ¥ˆ‹õr©²ü fÕ‚I´úâ9«™Fú'ëî˜4¡&ëN·½`>“N•A§*‰˜tjèš0¢ãùef@ÁQ2»â÷Ù,·Í’è‰K0茜Q\ùZ¬•Ë3b77J»õÀßöMÞÏIŠV•'Hôë ,Ž7‘\LV“ª ¤#[D+Ýji5®ŠÕ¤/n4aVÃŽ‚N+ùߦòŸ®[ßi—¿gŒ»N™YåÚ­+œúÈçœ`ž‚}°9¿ß§œduW—¤·ß hB]Và+YÁ›o4aVððV»kYþöOåž÷:l+Öï‚ùn Tš^¸V„~á›B÷ Òî¢ 55…A‹¦ ™¦!IΨÚ#ýƒùÁ¡½9£2d 2&l7_<_ÃY¶xµ  h8Ë0‚[v  #úç]b[k u{˜[³‹ðê^¶ø¸ —)íÚh}‰?Óê5W_½[E‹§€Ó‚&LB‹'§MQ‹+hïúzqbø_ae‡æ˜>mº¬Ä.•jžïÖ¯)©y<Ð ç= û{Àÿ4aGãñåÝÀA&á)þl— z¹Ú&×&v*K.$B€½‚^®vU»¾ØuùzàA& ’åç/4aD•¬®)¼ÐÞ$ ¦N—oôr¥ƒhÞO µÖqLx¿bêŸð^].æ»I¤g·€VRZ8ë%vkh#²’.iŒ™ “ –ƒy@…mî½O›Âz§ü™*S×í'”Ôuð(è£É¨k?ðVÐÑײ.02Ô'­q³Vò³*½ tðÐhWÔ‘;•U–A—“QÔ£À h¥¹þ¦+ó,hˆæpßÓЫé1sñ ®=&VúîÚÈ»>ÐØiÅ<úÐ5JÊN?$hBÍMÿÞ•týIàçM˜„®? üuAFÔõý²®kÚaÇj±š5ñF`0oËÞ7«eïRSöv_"hBÍÊ>xŸŠ²ùÕP„YAwgQv÷&àAFTö»ŸFÃæÙ_Ÿ–ó§\±ÕRmb"˜éoõ{ö˘¶ì‰IÚ\CjÇ¢T}Õ-0'¥ƒ«TO;_4¡îAÉ ’ý|ø=A&a?_þoAF´Ÿ7= û©UŠØ”V©•JÆäL•6±y¶G1†<ø˜i‘d%byÆr¬ñÁ‹)mþR°ùw†ÞR0™ï ìy  5™LÄ£é$ÔO_'hŽñ›MÏ“À× šc4³QËôB2¼ø&AsÔ=XS9J2½øAAsL@=ÿ ø!A÷¨…Dò·:k=ˆPz¾,hŽ‹a°ÖóUàŸ šcêúà7Í1šºž—Ä`m¨Ò5¥@VŠìz¾%pÙC‚^¦42Šaºp™ |\ÐjûBŲ‡'½,úmO<­![ÛÉAn?•J­<ÆúßbcèfŽÓü] ³ã#>WJY§Rìw\ âî1gJ̹X§«fÅ#ýÏòÍ>]¥fÿ#pyYÐË•¦ìcö-÷çM˜€,¯Ÿ+hÂÈ=Fç€[Á±ÆÇÙ'´÷•}Äÿ’›‚¼ –Ì‚ëx^ã4Kx£Xþ<à z¹ZSh¹t[7 µ>cEp  “0 4“ç š0¢YüE¬fAa ?â‰DEÍFad<Ë2î0Ošæ´YïL†‡w‰«þÅÆ"/ðKXI¢ÄGN'¨*t¨{F<žV³8eV|sÂrj^øë©z×ÿQЄ«9ônŠ «­£žÝ‡ë»)n2}æòý›âiÃP,íÈgÍ„ÃY 9Å77Û¡G/†ø„‡AŽÔ”[Þ+ÆäÎó*E G„|hƒ¶56jÖ¤à­ûÉ,ÉWÐ~H&½‚ÄÇ€~@Uâ9¿|;ðqÐ ÅÄîfàIÐуâðYˆ X-i97DöZ¨¹¾í1sÝ« ã“ÀW~Õ¢7×3À'@?¡Í\}àÏ‚þÙd̵|5èWG6×åJ3ß$Ãk€oíüZ[“°Ç<§2<88¬ ãûŸýéEo²ï¾ô{´™ì›Ÿý™dLö)àgA6º‡ cÿ_~ôç’±^"l¼Žzb¬Uõ+¤8?W^¥mÈsÅ11×íñÈú>~¼Ú¦Ë“Œ›+. ŸÜZéF 6f<攊mØöwƒÞ¼ùû=âIZŒŸ†©¨ÇŠ?_·â£6袃‰esF,¶Ñ–ÄB 3Fò‚|ü_ÊOË—“±sçnmGümq×Í|ÛöÄÉÅ ]H)ÞÌ6n£”$Êwid¸ht‘¹UT9ròRTáçA+mèhÙúÖK…eQïËÀ?­oõbŨwwÍñ[õÄð×ß}ýâW³M7™dZL í¡Õ^ë»…‚S«øbV@286å«Æ%kÊ*-`<²qJ3Þ¬) º›`N~åè¶õ-©§M¨É¶.o;ý¢hh©·?'è”R߬`h|ï+ᯠš0¢¡ÝR74“Lm¼Vj\ ÖÖè&­úS°°¦P‹Ÿ˜^!è´¾´†+P„vg»™K’f-ðY‚&Œ;ì$v+ š0¢f×5®a0]kØn“„Ù¼BЄI÷Þ/ê­c‡cП„ÑcÐó£Ö‰q„x:U;/G¼\KítµmG¶o•Û°ï®½6ºÉªÔÂ: ñhòm=}÷ï ëØH”ÀK@_¿c{9^$Ü:z¾•Uª‰±¸ ô6mŠÙ:+¬2¢†´$æà­ •·µQZ›ƉÝÀÛ@GÏ¥˜Î…õmÄÿvà1ÐÇ:çÛ^!Tα¾Øö;èÛˆý: õú¶e}‡œɲ¸ ´’— çÜ^ 7ƒÞÜ9çFb\ ¼´Z¼ÖJ3ùÙÎM똊dÞ |´òRÝÓ÷tÄîJàƒ ŒîéBO÷ÿ‡€ƒŽ~@IÙÓ½RèŸc$O×’ëJîáì3­š…±½àÜÛx’sûó$Ä“´¯Bݨgè³¾n˜ðk? Q׃^ßÙð–D¹¸´’+×» ÀKA_YAx‡zF…ôg$ÏeÀ<è¼²\Q“ ]&%H¡T»A†žn=H+´–Þ¡oèãl›Ï›XˆJ;,€.„-5½‘pb!’·(É]T‘›?‘ i£õà¨)±Ð\3ZH›¸­¹¶I-¤WWÁ>‚tkZ åt¨ÂZŠúôÚo§”Ù:½P¼\çI/¤¯©Éß^i4®C¥£Jü¦ßzöà®ÞÎé§@ÿ”¾Î^%õ:‰òJà«A¿:™Îþ§¯­v-ŠümøÝwÄÿ瀯ýZ ŸÛ‡Dùà›A¿9¼øÐoéF~øVÐoÕ¦‘îŠZyð= •7f…SÈÛ€ïýÞÈ QÛñG2¼øaÐÖ¨µVò)à§AëÜß7R>ü h¥­t³)¸+«~-£Š‚> ü=п§OA iãH’¯¿úÉ(è÷úO"+HéSáOßým:Qk4ß~ô÷“ÑÉw€?ýƒÈ:ÙÄOŠØ”Æ¢#8Ù|”9˜¿˜J :¥65¤oždY \-hÂT•Jךp1L¤Ö·š°C“034”-›þ¤Sµ*ì/JÖ¸ŸÁÿÏ`RÛQ—î¦É£e»X,YFóËÃM™në/ äŒxÒ³›h€(Fˆì׳ú žŠVu²‡Ö®8~FЩнZg&{RŸ•äþ¬ŠÜZ&{ôˆÑÒœ“=17•‰$=Uv"I£,4‘ÔÁÖß!e´¬†ð>¨SFÓvÂ*F®óOXirò·þÂyk‘²¶~Lºž«ÖÈœ°*6Ý¿Ð8=ØH`ëâ¾Ü«UóØJ%O šP“£Œ–Ç–dºxHЄ \é!àM‚&Œh +òÆý ÉÇIˆÃÀÛVÛ¬¤ù6%è8ðaA«]:^9·GMQ9ÕæÛ”9J[Þ†àZ³"gékq1öÐ.qŒ ©íÒ•¨Ãƒâª&+xø»‚N+¥ŽÑº$þ#à š0 ýø A§•æ0´L&¤ÿø-AvzŒšþ+àVׇ×Ê·-hˆZ¹°ù¶wuú7Àÿ4¡&-E¹cŠIÔÝ\+hÂ$tõ?`»NЄuõ‹ð™’+ÄMþWî$MÃ+Qø,…@9£ÌÜ­]-Í—Çú“¶[é²íÓt­å–±ch`8âŽ*dÖöøu%žo™ÅÐ{Ö¨zÎ~PЄ«)ô©W £«#žˆb(o{ D \z•¶Ö´­éˆò ß)Lò›†Œµªå²žÔög>8 zXc#ksB™ØõwV:Ízˆýn ñ$-ÆÏÁRÔcÄ÷Õø`ÅáÉQ§M~°H->.ÒKY+ëç?;m~‚”¼Lý’óe{-ÊCxèû´µˆÍ,Ð,3W2+5º@Ûb¥)ø†Wß_JÐÇ€3 g4®Ûžë$†÷Ï€VKz,{“‘9tûáY#s¬p‹kNW÷;• ~å0?ÃÉtœôÄåUt]XýV{…$¦T‚³À_ý«Ê%éÁ·‡Gíñ³%&ÑéÆÔö9ú¬åø0MÓ·4;üÁ®ú<øÊ»2×û{éߣ~ã“Æ­ ?ï´4•üsÀÿ :ôâôÆœié£åÇýæyiöZËi®e¼²t÷}Iòï«H>gB2ÕFÄ…*¹Ý¼›6)CÍ»Å˵›YkœL絕5 ½¦’îR\ÃÐ[A³+fíh¦áB/*Äm§­žÉvJîüÿwi ¦òŒtiò·¿‚„}ÁÝ8,˜ ŽÝbiÁe#f§\š¡«û=á²Ñ’'_e2n»ž{yÙŠý¿!ÞéW‚!µ¸ÔCFÀ1ž¾L ÿ¼‹ã÷3lèÆbê¬êz³  ë/os!¶aTêÅè(õà»M¨):òâ[µ'ß- þnÁµôxzÄh=£:šy@¥£Ó#RØŽN£>òìm½S•ÒÖ¥ÇÈužÕa}fÙdŽ*k²(ï‡(ï|PÕC~øIA. ù)IðO©®ÇCj£‡|PÉCj)´‡Ô§=d;cïT¥´÷ñq]ÀCê1KùÛ|¸ù¶UÌÓ|Þ®Xr®jÊD¡E2_YæX&ó¶C.c§1:îš…³CçΟ3èã‘ÆŒÞÖÆ@~þ/’~oh`¸ñµ¢'ÿ@J8Kt:ôå=m=yÌ3´…&œo«Qºvèi¹ŽuÚ±è>¬c‰‘kûÑ´¦qLj´ (Á€Æ š]1WÊ„mŒW%XˆÕ|Û ÏXóU›7LІìtþǧÑräo¿4{Q”Ö¾‹VÅ· "¿.…S¦k™RòÞBͲŒÌÁ{e¥O]«`ÙSìNÕ¢Û°*FaÒdÞÁ·\›ï×È¿“ýþÚÊOäE:'Ó(ÚæDÅáïøt¥8û°ì0YÆ\Ç,–fðÖ˜]1Ý£P2=Ï·-7ËÇÊj«óAUòÍN·u©nvjiÚ§RpÜ"í •§eà Ù}10/hBmaû|+ó|ဠ #ÚŸ.ô{>³ RµÐ3·¢M¿˜š]‹·b`u õ5|¶  ;1 r¯bèÜmtwèôJšé>) ~REp-q1ÚM‚Ü«×è)l\£Q N‚´3öNUJÛ.;F®óO‚h2KùÛ£îG nÇÌJ¥ÿþIÛ¯X3ƽ¢+Å}šôSú)e¡£žâígîhc×9$Þk ™ÊcCƨo—-Ϩ<6Lel¤wäWN‹oÝñßtwè-Ýq¼GmIÞoIrKEn=ÞX‹-½ñU£™…mBÉ]k‘9´»Ö§°…ÎÄ>¶Ô¡Zk)o¸Ý)Ͷïsâãº@Ÿ£§ñÉßv‡Ïš+ òòÈ‚„Þiþ:aXuÔ³ÓüÍ\Xb8™ê ü€Ks"ÝiXTÏ\e¹®ãzY~PådÅ™®äšrׇJ”¹°ß¬˜¥™38(l¦Ÿ¦ã-Á©™•ôzT á›A¿9’ÇnÕžW¸e3_«Ø ½øaÐÖÖ”ä,‘sؾøÐÑȶÍa,b÷àGA4²½¾Ï¯Uø «¼qÄ™¶¦,7G{²ª4Gc¬¿?‘ ÈKöI«ÄÏLXž_Ërë¹¹ùÖ2~Ç¢kUןcôÁ”ŒØöE'¼¼q´"òFÓö/Á† :¸œQœmÇßOÙ¦ªõ~L`Ê4¡¦x#m¶3ضçøHI -蔈é¤Æ€ :}¸þv@âXtª¤M*·’$°&hÂ$RN š0¢BÔn$¦Ï4¡6¥„¿èŒ$yø"A&¡”sÀ š0¢R.®ä‡U-_EC/>%h)×b’¤¼vŸŠ²Þ|Ÿ  “PÖït„ÝmÁ·xàeªÙ¬ãa*+…¾$˜äùð×M¨IWkêºb«’ª~øG‚&LBUŸ~MЄQ]6O!¶‚z¾ü3A§”R£ê¾#…ú àß š0 Ý|øCAFÔÍd‹;RÚ]¯¨ß‘R?·‡5Í>d£›ÌðààÕY#Ã7“NÑØÍ~m¬æcD£ ý¿˜>!hB]Ž4Ãþ¡l†uy , ýpBЄ X@úठӓ‘-`??+Ím â”íŠéÓj­gxµ‰ Ëãšž1M:Ò}7CûT[tÚ¾UЄštåÒ’è]À:Ì81ý6àGŽ>Nœœ·Ïm¿GÌJÉšáϱ–]22Cûöoýàß³mN˜Ì\T›tC¼îKÝ­–w&ž&ݽ 8(hÂ, û2à  #ZÀs[5é _®Ÿ×*˜#àç¹øœÎ Ñœ]cG×&Ø<$Õ³±}:Ë®oÝü56ê¯çí oÝÃÀšP×п¬2¨éþ8ð‚&LÂ>ü¤ »£o·>Á爦'íÂd mË0‹×<_$Yö˜•x×kãéù†‹|o}+•éyµ2Ï4Þh[EÓ7ùŒ2š t] ¹åŠã–Ík‘EÛó™2¸‹æ¡™çô#Eý˜-Þ2ÊÌ€JÙÆDWOýŒVSÙõ5f6*©`tÌY­)~—¥4dË7ó¼ŽtJ•¸±!qè-ùO¡®  úÇÚÚ÷º¦1ñ¡»~’êߦV:¥”Ò=\c'¶ÿ¶+MØñA1ɳ ¸IÐ)µÜÇóO`0ÛTÒUj+0/hÂt•Ú 4aD]eĺ õ¤æ)÷¦*Í-5¼_Єº& 2T$Ÿ-hÂ$Ôöдâ’B;•‰[a 8.hBm: ?qK’”Ž  “ÐÉ°*h¨M #ž=Zä¦t øAjR›R1åÍÀ· :¥4†¯·§€o4a§ÚÒÛ¿,hB}JQkL~XЄI(å]À:¥4kÑTWäZ­GoH~CÐ)µû}u­&’$ßþ¹  “PÙŸÿBЄjG ü¾ OÊêZL$I~ü?‚&LB'?þƒ  £êDe†”DøGà¿šP“N"¬y@ÿ%0½LЄI¨æÿ‚írAFSM*}̓þ‚_¶Ôï‰m[fµê:§iN£þ¢åÚS˜¬Jlôu‘L0¯jìª_¢,ßžìÙtðˆÏÇ•jûçD…¦pؾâ#ô’éùâeö͘k’¸Þ¤S+i^Î n`¶ ‚ý†nÔy樂¼Å)ò€é*ãˆ]³\qÑæ`„uÒÔ 4‘G4¡& ^ÆçxŒ·{pDЄ o÷.àu‚&ì¯ï¾xHЄڴ2¬¨•[wš0 ­Ü¼SЄµò¾3î^6oâž#ØÑÙj¯Ý‚ûK‹íëv|1«h“NÙñ V‘ß¡M·ÅÁ%4þbÎ £´_pZá²}ªª»€ÿ%hBͽґ;Uz¥žnàjA÷$»êá¿Áv  #šP wíÏÑ/Í¿sÕó a›ö%—J˜’÷FóC½f©P+™õÅ›æÆ>+{ViÊ"Ë<詤,¡"¯¾@Ðõ˜BcÏ̉c7)YÃO_+hŽñ[CÏ“À× šc4k¸qÖì~°×6˜ã°iß8ÍJW¡{‘–áHþ×ÿDÐ=j ][.ÃU†=ßþ¹ 9& Ï?þ… {¢Ñ®g­»qv 2&vE«jUèľpþÔNûùÑ¿¨ÊÄàn™!èe†>eú*Ê\¶˜4aÊ\†ƒeYAFTæ1>E2@?X`M'Þ§~Ï.2ªÚÜnÕÔ¯ãH¼ÐlävºlpJЄºT[URí9àsM˜„j§Ï4aDÕ~,‡µr“õ±ØæPp*,vòyÚ¦ÈÙÝj¦ROÈ»g³æ;4,ðõ\Ñu{sºuÖß);øúÑ ÀÓ7¯öÎáÕ„ž¸|· —«%ÑtØ‚9¼VЄ ˜Ðò=ÀA/W6ß fdøðYdnä±Y“/¯¬å×G½\-7žÎEˆåภ—+-g…W×#À A/WÚv©e@½|Xôr}ÇcT!–{À)A/WêÂ+ ‰Ë§MQ)Õú™nlÀü®È§=]Wkµ#‡ Žæúâ°{‰¨´§?ôr¥Œ|Ѷ4½QOõliZ®”DìçÁÿçñï”@MöwÞ¨WóÄi æÌ2»V€ùŠÆ“´>ˆýJ ñ$-Æ/ úì¤Y¼ üßÕ,æ½a{fh,k4%š»‰Eq‹Äœšg܇Ôž‚ð÷Þ§"<ÿË·GÕ+‰q­„x’6¯ÿ5¨Å¼R½ãøîÕIqÌá—Š|_"S«eº,0Ïx5 ÏEd5i™%Z@©ÐdH‘ßyçl>‚u¹é/0ÉT”wc²a¸=ekô÷8)m[ߢ –†!eÄ%vì·=gÖÞN1¢ç>û ÆF~ÓN}ŠÆv|b`a®2ñD>ËFº:3l{3tðf¡K¢vඟÞáà2’á`-xøôp›"Í{…•ç<àVA†+½‘ð>$oŸ$wŸŠÜu¯‘îR¼ÂG›í2M5úªm²µæÚ檽ŠY誹!t¨vZÊ5Os씺Zß¿/×yîßÑ×räo×>õ?¬ëØþ°ý®,Ö0ÄŽ,–rÖà·Û⸠ô*í‘ÝŠRÿ§ ÜÀK@_¢Ü„ŽG ™HŒK%ÄÙ¢fÿR¬_„Ú׃^¯¬Â®¶í›~¾0z8«R %ÄQŒ|>i#ì‚GaTsPÅ>œc}¿¹ñ$¼\ ÜzKäJ8Ï`6_pÊ–1¤Rpè‰VÇN`t¾361 !ž¥Ë wÞµ4b¹Ý’Ø»UÄN(–‹,gÇb9-5ºÕ§×¸b¹ø,OK,£ÁÅË=ìL~K©ûˆ¯©–6c}¿»ñ$¼ìî½Wc,7¬Rû€‡@«Ÿ×Q©Ž›€·€¾¥36qDBºG næŸ úÙÑm"ìú7±7%ÄQŒÆú·¸©&ôœé[ù;׃^Ÿ˜©× À®û.™õoø"àZÿ&q7Kb/Öõo-rv$ÎÖVáâ½z#ÎŽ×ò"ÇÙ1œþ8û™bgò[JÝG|•0O¸»ôë«øä׿‰ë¥À-]ºÖ¿•*Áb%Ìn G™IíÀ è.: v[YÐÙΨc‡„x´ÉÀnB öâYõ p mB qwKb/ÖMZäìX@­¥†C:úôW@Ÿåi ¨c4¸xêg‚Éo)uñUÂqíÒf¬¯â“ß„@\÷õmBPª„}âÑP)Ô7‚>˜L@½x#è;£ŽCâIÐ&ovp'±?"á’Ù B.¡ $î1IìźD‹œ ¨µÔpè@GŸ^ã ¨ã³<-uŒO@ýL°3ù-¥î#¾JX ®]ÚŒõU|ò;Aˆë@};A”*Ḅx4Ô*¹oH’ƒ~8™ˆúp´ÚE–‘õñˆ„x4e›í8ÄôQà³»:¶‡Ø›Ƴ'ô¶÷· ç˜üvâºØÁí8Ä~£„xÿ`‡¾¸„¶ã¸›%±ëv-rvd°£­†C¡zõÇ`'^Ë‹<؉Ùàôvž)v&¿¥Ô}ÄW óŒ9–>c}Ÿüvâz)pKWǶã{CB<š;éBè± ²˜àvb·˜íêØvb¿CÂd·ã×À|WǶãû ñ,€z¸„¶ã¸»%±ëv-rv, ÖRá}z+ ŽÏò´Ô1\<õ3ÁÎä·”ºø*a¸vi3ÖWñÉoÇ!®{€ÜŽCì÷IˆGW@>+# r0Áí8Än?ðÆ®ŽmÇ!ö‡$Ä“ MÞìàvbDÂ%³‡> \BÛqHÜc’Ø‹u;Ž9;Pk©áÐŽ>½ÆPÇgyZê .ž€ú™`gò[JÝG|•°@\»´ë«øä·ã×;€ÜŽCìKˆGS@Ý] Ÿ¸“$y˜àvbwi;NK¶+É j%ÓmÁù-ìéçG@«íÀi²„°›`ˆý£â‰(ƺú&˜éI˵šçÛ…Qq\z¾ñ^øóÌ$ÈFàE /Šß:ߎ /}qdå¤s*ú¸¸ ´ÚâbK}„?C‚löîKF›Û@oë>®^ úJ}ú¿ÀH‚ä€ý û“ÑÇUÀ<èèkkËs*É°I†ànÐêuæ¨HÀkA'NžØ펀‰¬“q£hUß™ä­RÉw­S5«R ,¥;oåE¦ÓJ­¡<‰úYà߀þ›äcâwÅ×O41º¿Q‰ov\Ã:m–«”Ó®P¾dËç陽;eVwE£ÀüÏäì»6«â\ýrGjÁÎò²9c0†Ìßù¯}ßµL¿L9–éµjÉ,XcÎ@Á©ø®S–ãÉ )‡ü”UšÉñüÏR¾îfÉUzôokŠ~‹;SŸÅñžod¬üSu‘ñ™Ìñ Ï%&&%¤g2Ž›v©Fæáv¹ê:S–Q«I®ëƺ;h”-ßì7™ÁÎx<‹|=§¼kUYC¦šg¥Vb­_Nü²¿ Ù o}£r9OÚw*Ï!àƒ  [.z#á´ï$ïC’Ü©ÈÝ´X2ß4kÛ´ïÚĈ!í»6ÙZsm³þ¡W1Á:[ºé¨§}×/§ü–BÚ÷¸ÕÕ:í{¼\çY¦Ñ×räoÿM¤}÷(Îa•1ÆâÖ›WØÿxXá±pÉe}Ñgñ šÐÓ—Y¨Áºx‚žB‰õ ˆŽx”@¹cdXOí°_.•¬¢øÎ*™ßò—²¢ûvŠEO¼Ÿkü}À®`åëXl|Sðl&•wªFC×a1"‹*‹aÊŒÁ¬? ¢¸›K–íyÆUÆ–ËŠœ1<8¸/ôÌžTû©»R[jÝ:»žàê?þ…ÏNZnxáR÷tJi±¤uŽûã5KQ¨g‹Ôcì±t6ÏJ¡ ×ãÀ A÷ˆ­„E«,Ì-å…ñdó|¤hVfÑìÜVA ¨bY̸)šf;{|¦õ,Ù”mò/*xø»(îïè›Ø ¿C‚üðkìùCñï¸çSˆÝW€_G]|-²ÊÃOþÿ?~²ü±>}„_Œ!A¾ü.{¾-þ„>þø程ïvHüKÈòúô~1†ùàß²ç¯Å¿“ÐÇ_ˆºøÛÈúP[Œ!þøçôé$üb òoÀgÏ¿Š'¡“ÿuñï‘u’g1ÒDfk<#C=T‰Þ+f0£H=…y5ÏRíoþS`:#äNoïp“²'/þ€îÒYਠbß ÿ–î‚,ÃöoéýÀìÙ'þ„>v¯E]è>F€×AµV]‹Ž$Éaà-칉=7'£ëGPÑ(w8é£À; ú®B«Ž$ɽ@6PK3©Ó÷%£”; 25'üª"‰ò ЂXÅÈ"…žq—Plõ̸_VŸq¿‡&9ª|%Ž/·(t½ï†X„—¾L›¯À 5¬%“4Ww€V:¿Î’‰ÝåÀ wFÖ׳ê–,¤Wö‡µ$’(¼ôõÉô{`!ê1èUuƒ)Î{!á*Ы”w{ÔÚ!1.O§jç}¨‘÷i©®¶Éö­rö½Àµ ×F7Y•ZX'!M®§ïøñ¾°ÞDÙ¼ô%ñ{·÷áEÂM £ß´Jµç!16£í¬m¹^Wr&¤Ùv¯}F µYÂ$vW÷‚Ž~ö: ëȈÿ>à~ÐJÃ-=ŽìýB¿;àȈm/°ƒŽŒØ¯“P·#»3¼##Q6tdïÇ‹„‹À‘‘›19²ÆJ¦‚l;€ :2bw°“ŽŒøï.Gö¡_ŽpdĶØAGFì×I¨="»)´##Q6tdÀ‹„‹À‘‘›úÙºY»(„ÛÜ ZÉ¥„ódÄî à>Ðû:àɈÿ~àÐѧ¢•=Ù…‚9vÀ“Û^`=±_'¡nOvðDhOF¢l&èÉ>ˆ '#16õ{²ûÅ„ß|ôñ{:bwðAÐF÷tFF¡ø­t-@ûáH(8z\E8ûáH˜ÇUöØìq´L»ýpÄmx t5²½œß¼.t?IÒ¸ÀçC²':×O~Hh™cúIbÛ ì`?Iì×I¨·Ÿ\Þw×á{î ÝS’0›A+Ý[®§ü^$¼ô¥ë)IŒË€W‚Öw¯@´É ’)ÜZ)ö×»«€ûAGŸ4ØmXžo—MŸÅüÌÜ]–ïl÷èÌÔ¤S42Ö¼ÚxÝù íÛ»'ü²7I|X]éœóû°°Ž‘œ_K®+¹Ó³Ï´jd´× ν'ªß «bž„x’ã#¨ûõ¬Ú®©›ÅíÌjCŠôQˆA¸ôe‘¢žáÛ:ê[§ý³Õ!ûœ1bˆ˜ö¹AUØÇxq5{…½aÚí÷LÍ{ÆÊ»xè›Â–›ÞHøŒÉ{X’û°ŠÜõ¸7½`<ÓÆ5k£eouåhfAC}ôO›Èm‚óÖGÿôêk¡£O£ýt¨ÒZŠûtZq§ÔÙúh`¼\ç9¨¯ÁÉß*Ýò"‹rôÑŽwÃ’É&?,uÃdlflmwt.ØeÜ |ôK¤Ëx¾$÷óUäÖÓehc.£½!(uZDÝeèÓ×Óí2æi?ª´6]Æ­¸SêlßeÄÇu.COƒ“¿}¡|\Õuø}"t˜¼ùÖ·Y·ÑØ•V·â4߇”§mÔâΙæ=c†-.)ªÕ‡ìê0Õ#hÂõX›GYñ¤w Ñ³•Óì»öa;§µP_•ZÜ#hÂ¥ÐW¥®–ä¾ZEn-}•1ZöU[X_ÕÞTz)=†í¥4jj¡^jÞ6Ó¡êjÝ?=–Û)E¶íŸbä:ÿ¤©‘ÉßnÊÕ{Æ|·j¯Q—ïNÈwgÇz—Q -›þ¤Sµ*ì/JÖ¸ŸÁÿ»fál£uœ;;Ô/ýkÔµ'&ý¬1Z¶‹Å’5`´ø«á¦¿–ÿJ g](9Lò@$ªä 7öÌP?ƒlv Ãþ”ÿ‹YV¹çºK`ºGÐéÐ}ugz®ô²†ÜD‡—[KÏ¥GŒ–=×+EϵHÌP¥§ÔS9a{J–±PO¹¨üD‡ÔÓ²bT½U§Œ©mo#×ù{kMŽEþvsË ÁT»ëº€[ à–Žu×6Ú•ÔX‚jf“Ñ)öixXÐéÃK¤¼Y’ûf¹õôZÄhÙ?^"/\IzWê©´ˆº§Ò§£…zª6M¤CÕzàü µSÚkß5ÄÇu®AO›’¿½^ýZHÕî#(Ä Qˆv¬ûÁÚ-+ö¹Ì¨wÊõå°-ÛßökŠÈ‚YÄ-ô}†¾Íðx§_ú7E<ªÝÏ‹€+ètè›Æ:ÔýüP’û‡*rëé~´ˆÑ²û9t?Šv£ÔMi)NènJŸ.ê¦"6ÅUhË¢(:„Ni¿}7׺9=mWþöhÞ8aY†¼ëÔÈð]§õÄbíË –ÙZMoÒ™ºGìÞ%hBM®h-.QÛNBíÞ"èn¥ûÅÚ¸ç6{‰ÝnàAwGN,žúc9GF =Û3|ó¤Uר´Ü„=òµÙÓ“vaÒ(³¿ðÚ\Glx3å²å»vÅKNýÆ ÿ%)ÑCÁqiÁÕ©ð›¼ëI8Š¶Çþl¬&î¯âRR˜Å'qx¾’ ³Ì’íÏäƒ%KÃ/³ŸµÙ/°ll†sUB5V v‘ò¾ð|;ŽqÈa?½Ý3& 'ùì½ÁuÌrr‘Æ5Ì”;Ƴù¥ãSf©fñ…hJ.æ5ªüé¯T{FÉt',W^³¦ÈŠS$ ±vzO8ÙÔQË.4aD÷zòÇDc­£ž=Èo¬ïA>DW_3…ºtí5¯[Ó8c¹«ÃZÅî gê+YefÛ…œÁ÷ˆÄ?Ë›·50+,r 6 ¯L6Q`vë›ìבŠ‰®ßö‚†²~>Ž:!|#è7vl /© •ççý¡%¸“¼–äþ°ŠÜÑwmbÄÔD›l¡¢p½ŠY( WOj¢_Nù-…¤&q««uØ/×yÂf}-GþvWÔ„õ×&õÏeÖ³{N‰1¢`ß ›É÷+Ȳàßý=mM¾×wFúœJif0tpLýøÏ ÿ9þà˜Øýoà¿€þ—ÈŠ¼ÌȈœ}ã&‹'‘0F„qá3’‘hÿW`jƒ  5©¬Û,t•º¸YЩ·» €— :ýpëú&]QÓ ¯ŸÔeÀ~AêÒÏÐ@;_<¯~v¯4aúɯtJé:°fŸrÀ`£8óT¢ÞÔ^àAAjRL $ºxLЄÚú+ïîZ]¨9ŒoÞ!hˆªÙšå=U±(‘–ÉFó¨7Q²AŽÃ‚VKøºgN÷w :­¶Dþ6zÜ”ÆÔ\úFA§oìtÜÄ3ÍÞ&hÂ$´sx»  [Ü”>|\Єτ¸)}ø|A.‰¸é’Ü/P‘[OܤEŒ˜â&-²…Ž›ô)&Þ¸I¯œò[ŠqSœêj7ÅÇu¸IOË‘¿íGÜ”ã E´ü,öò±~Úå›ñšf¨"øœ÷Cä÷?Cú€¿$ètèY¥õ¿!Éý*rëé´ˆS E¶Ð}€>ÅÄÛè•S~K±ˆS]íû€ø¸.Ðèi9ò·[Eм9—EþtÁ÷i_m?ó}ˆù}m | §+¬;êS®ýø/‚N+mX ?\ûðÿ š0¢Öz ÇUQÌ¿ÿCЄš³Œ G”ÒýÕÝËM˜„Rþl— š0¢R¾nLšü<¦° k|Ü*øû;6°~¼æù<×46¥;cžåNÑh›·¾q×:U³*[ìa,›E+oÜdU-q8ÃáÍ:äQß _4}3'ö8–Í Ùø(žN5x´rlF´ë ¢;öžS(Ô\÷-ð3!Ä&<öÕÿ•ðVÖ½øMAj²²ôULì/%hÂL¬û[Àï º[m¿¨üíEÙàÐç׊üPÕ”„Í›Ýÿ)hBMJZaÚ#[ÉÐgW :À¸5õ_`»JЄñÐ=½À5‚æ¨I-cöHQQ-˜ïÙ$è¥$b¡ÕÒ³¸YÐ=J{e›*áCÜCŽYü”]´pŒ‹}P«Ø:–fò£cæs¶Â—Ûg¬àôpéÜï]§Zåçj…Ézk¤Àc.ZDØcs·äJËÌõ“;ͱ'&ìŠ'eSÚ—¥«NéRSqªHcmæ±=åð«çRàï š£:Š=88rÏñ{«ØÑ¿-èždöô|øA÷Dßg0Ì罹Ǫ5ÙÁ´]*‘Åp2Mªu¤=߸ì|AsìdGºì"àÅ‚&L@ËÖ/4aDým02vÞb-°l{kfá³ú<›€;MQ®Ð'8?!”[G='8×OpÞÄbKfÀÞ¬ãÂ^²o„c¤ÓË3U‹Ÿ®ºÎ”M¾Î½ûIˆOxt´Û˜ZvƒLîüXaBA¸‡&hS£õ—ìÊIñ废̖˜õ'&“ZAâãÀ@+'¬œóË·Ç@Åï ˆÝÍÀèBdSOçTì´´@[Úíô|²Ó‚Sb†áÑ ¦‚”g/ýÒEo°.ð4èÓÚ ¶|è—%c°ãÀŸý32Ø—_ú±옂”o~ôG½Áþ<ðAÿ¢6ƒ}-ð£ ?šŒÁ¾ø1ÐëÁ~ˆÜ„š v ¬51a¹ÃƒƒC "~ø§ ÿtÑ[ë_ýemÖú«À?ýgÉXkð|³±Öo¿ Zi`;¯µ®&k´+ó­û$ü'àÿ€þŸEo¬ üÐÿ ÍX¿ü èŸ$c¬ßH㢠;a¬) ²RiAj6Ö d¬%Ó©šö˜ãT†‡ö(Èy10+hÂÅm²©uÀ M¨ÇdS«€;M˜€É¦º;Š>áf²9`¿ #ÞÐzj“LÖ²X,°[AÀCÀc‚Öx:=.[ݼAЄšlu7ðA«˜o«yà‚Žž%š­Þ¼[Єšmµ—ÛªÍLõù&€UA.rS}Xtª¨ÍTž4a¦zè š°#¦ê}A§üxYÌ*ŠäXU‚€—_'hÂEn­Ï¾DЄš¬óy©× š0 k­ß hÂŽXëSÀ7 :¥vã|Öºž¬µb[¥iËö,EÿúA௠šp‘[ì/ß'hBMû‹ÀÏ š0 ‹Å¬\ê×MÑb—çT²c“ _þ–  ãð±3tg4Í»*ˆ LÿVÐ)}7hÇe±_~SÐ)¥yŸ–¿üûÀ š0 ‹ýmàß š0ª ½¤Müü{AF”#ô’ö§„‰×QÏ’öùõ%í£JWÿ $ù•úû¥Z<çY¨<ëÛAo[.z#áó,$oF’;£"7"gÑ&F çY´ÉÖšk›ó,zßyýrÊo)œg‰[]­Ï³ÄËužó,úZŽüí­ØQo{FÅñ sÊ´KüƒŒãÒKúpÌâ»2+žïÖ ¾UÌñ |ÖiJ€“0ŠDPžS •¦æõV2¹§òó×<Ò=ø"Ð/Š%Ì›Ãö4ðÅ _DEì\àK@+ ÛêþߌñZ¥@wJ‹t,&ßï9#ŽÏ6g%¨ŸÍhÞ6Ç”7N.(×EÅ·Ü)³$Ž[P: 2D~œY1,Ó³K3dHsý¦ìo¿>+ ‰POë1eº¶I|3ôqÁ)ñÄ´iÅ Ÿ®å™2ŠSi ?%0õB¥ÔÀ× :ütTgB%š*ªËýz¹µ„JzĈ'TÒ#[ØPI£bb •4Ë)¿¥*Ū®¶¡RŒ\ç•4µùÛ•h#wV$S {ê²½²½W{سŠ‡=Óf©Ý5Mó‰÷)àç­u²}Ü“úð×­6 :î¡É[Ž_4aDCY[{Tæ@I–/¿*hBEiçÜn˜ôýª·``zz:OóŠ,j꯺ÎãVÁÏ;îÄ@Ñ9YËW'«¾ÍÞ3=Ï*Qdô™ÿcŽ«àþD`ú"Ajr‰=tª3|=§7/4¡6“›ä/µ¬ˆ?ÛËMÑä`W »Tª±qÏw8P´½BÍóê©m/ô'‰¹x‹ ÓJ¹£Íq~Z(½Žzæ8—‹ β|ü?ƒ§j2œóF½Ú˜gq÷Ñ‚ù›Ø³ÌW4ž¤õAìWJˆ'i1>‹ê°“fñ«àÿ«QÍb^¿}yf¨5Ži+©Õž¢‹Q†@OAæ €ƒ •½r9ª:IŒ]âIÚª>í¨ÅªRvcA¥b”­"OÚIñUµ‹VÙvJÎÿ,8+òfòÓƒÓN=í§/rhzFÆÊOäs†ïZ¦o)ËõjžÁŒTYÀ^÷r†uºêxò+ÁR&Ïl®žë”Ž%6es-t@Ñ·Ü2O iq“ãI)½àd(Å•ZyÌrëo0ÞbÆÄc…rJ¿Êìµ<ãL·hÓ\NeÜt¹«ó²†Ãä£td–뛌YÕrm§È;.&HžŸ¬œ{~’‰NÓ.¬jp4Ý Wé× â_#% šPÓ8û|VÏ©ôS!øÐ!¼t´Ý‰ãóÒy‡^ÛT>Äðqà M±1îÊ=¯V–úöŽÉ3~NÖ7¸ÐTÞþ°Í—~ø1A§¢ŸÊYUo¾!Åù<Ì‹pèUÚû…e¥ûOA´ €VÊ÷Eõ»$Æ& ñDTÜzcö!Åúu(p=èõÊ ìjÇ}Ô7ÇÚpß¼´Ò6ùfݨTÂF ñD#ÌQ—X—uúÜÙQ»àÑ\uóÌ5ûpòÜYãܹ62Ï; ýë°í_‡A]¤bTôÆœIèLÒl»)èe¼p õ½Y{³j[¨ÏAËo](–&½ªY°vœÌYeõê,gËê]Æ¡«}Ϻn–üíj¸ÍŒ„¶nÓœ[OaëÕkjÓSYýˆ×òVsË»Ê*{Õ‹Ñà&ç1¸åBìÿGíL~K©ûˆ¯æY XúŒõUüæÆ“`ðr)p è-‘+aÃœq¦J­À!ÐC‰ÖÊ0pè=1«%ij4Bºk€ûAï_!ÝIì*b'ÒE–³c!–ÝÕêÓk\!]|–§%¤‹Ñàâ éž v&¿¥Ô}ÄW DVK›±¾Š?Ðx ^®^úúÈ•pá;¾Y2äÉr…j¹xôqíÕÒ=ZpÛ0?¼ô½ÑM#ì *±¿OB<ÅhÌ ò¥'c(¬j¾Àߘü *qÝìà *±ß(á’™A%/.¡Tw³$öbAÕ"gGÂmm5* Ò«×8Âíx-/r¸³Áé·Ÿ)v&¿¥Ô}ÄW óD½KŸ±¾ŠO~•¸^ ÜÒ¥kU© ñ(VÂœ §‡ì6µ½^Ÿ$ÙÌ‚Îj3˶;ƉÝVàÐ;"ëc…ÚÎb'ptrÓØÄuØÁilbµ„Kf›¾¸„¦±IÜ’Ø‹u[‹œ‹«µÔpèxGŸ^㊫ã³<-quŒO\ýL°3ù-¥î#¾JX ¼]ÚŒõU|òÓØÄõZàõ]º¦±•*á ñ芫}µ¸úàQÐG“‰«o}kgôq›„x4e›Ebz;ðÐwD¯ƒ°‹ÄþN ñDcö"ÂpXÕ|Q8Çäˆë`ˆýF —Ì" |p -"¸›%±ë"‚9;2ØÑVá‚P½zc°¯åEìÄlpú;Ï;“ßRê>â«„yÆKŸ±¾ŠO~¸^ ÜÒÕ±EboHˆG×`çôpèÁI²˜à"±Û ìø" ±˜ü"qvpØ_-á’YD ¯.¡E÷€$öb]DÐ"gÇâj-5:Þѧ׸âêø,OK\£ÁÅW?ìL~K©ûˆ¯o—6c}Ÿü"q½x}WLjý âÑWûjqõ-ÀˆÝA`¤E„–lW’ÔJ¦Û‚3]YÒ Î·V[7h²„°S÷Äþv ñDc]}ê~šîY kž_FÅqèu‡}á׸H’À‹A_¿y~ /^ú’ÈÚY¦rÉ(‰° x9èË5ê$¼Ë I®n­/¯Â¼:ÙÌ€ÎDÖÉq£hUßjy)Zýr+ÛõüúÅ÷eX(ŠÅ1~[•î€œ²J3J™´¨$X–òüÓ½Ù¼q3¿~ÚbòÏ®C‘I‰*Æ£š¡àÓŸiÙ„ÄNÙ¦Jú‹ßDÛøM²n¸Ï·vt0H’¼ øAÆí|‰ÝÛ€ïtZ-H;•‘DxðC‚&ìà`$ù$ðWM˜„N> ü´  #êäFæP&jeÞjZ§9›{÷—©7²ôg€ÿ-hÂFL’îàrAw+Å\áú?`»BÐÝѳ%¨6²î•ÀÕ‚&ì`ÔI’\¼PÐÝJ[ZCë„Ó„MQ'«,tI’\ì4aÒ!äo ½ÖQKÙu™B²~¿Ê/Û眂cùmˆExèË´ñ D#a ™¤¹¸´Òvšÿ½7Œ£:ÒÇgF>° 0˜Ë6ÁF2’,|ÉÆ€OlÀ6Øæ8$­™–Ôx4=t÷H–r‡$$¹7›s“û>I6!É&›û¾r›ìfwsgóïïUõt<#ѯßtÛùý³;|Ÿ5-Uõ«÷ªÞY/ZE†¸%Œ3¿8¶½N¯UdÑõŒTŽœu3^Æü²ä+ô§¹†ø¨¦BK'âÿwV8ù<éÊ{fÜÒ BÈŸ´Jç3\"ŸQR:™¦Ét±&âÛOf~rü*+S !ä"7{éν{—FuoÐe!ã9ÌÕímêÞ>ÃÏe.·eµ¾~J†¨±ˆñBæ*³ÌY¸ ¸Ñ@^BË‹73߬ÐVM®Š…¸eŒ[˜o‰m«\wTŸù[·1ß–žOû,YZ` > bÛSôißBõ>mkdŸ]2&èÓ>ËŸ51ª÷ig7C”PóbÆ-Ì¥¼K4§qË·2ßš‚SƒümŒÛ™oOÏ©}ŽL-0§±íŒ):5ˆï¡Z§6Çsjû¢{5(³ñ\æRî%šWû?\Ä|Qz^ j,f\Æ|™2ÓôG^1‘P¿›ñó­÷v·œñÑÌßÛEž ƒü[Ãü1éy»ÏSËÛ5”z‚ðræáF­ ãòv–Ü|’žDøù!äOÒj|ËÞG5s9'ÕªÅÕFä½5_d5€'1?IZ¥6þ¶oÊé,4×#·Ó¢Î útÝŽÞV>rAÿíG.Èß~;ÿÞ\ã{Ä´ûÍÛµýë÷•D]ò£'ã!ïïÛ•Í×R¦=&‚w>™qóQßOuLdα[½×ËXåéè»3¤÷N½ÅÇ?}3}'¦‰³U¦FÃuÑÎGPt5+»&'m”)ÝXj““6j-æŸèÊ5©S¨¥Tl ~dm9-“Š†œ°Ôi ©kváo¥–cêìb¾+ýà‘Wû|Píóáà‘.ïU¸¦‹¾3ÝŒOgþôã$x<#¤÷3dôV<”¨1Sð˜¦2H%JGê,öˆƒÇt­(¥bk<A[Nˤ̓Gë¤Î<Ô4»ð·#áÝÊÖcØãGÍ%ˆmʆ^¥M¯b(m-m¶j„͹k¬RÅÒ ÓÕb¸ºß2ÿmjáiñïEÃ}Ú•¡–ÖåWf<ƒoWâÇÍüÓŒé? ³ÏFžO'0e—zƒG×[I`R£FÃÀt¾˜¦«2!IºQC’B[Í’fh9)Xã`ôˆÚoZÆlŒZ(uú`¤¨©…¿]6ñÙPRSu'«º3µPrf¨-ô„Ú‚ðE~"?²W2:ÄÇEüpCz»2z«‰JÔh?έ› Û^*r(Q4räPg¥™"GÓ†’RQ5TrÆæš–›‡‹ÖI!\¨iYáo7Å9F&Jü×x'¿Æ;S %Ë8·ÙÞ3A;ñJݼæâ?|¾Ý›®¦òƒ”ì»ÿHx\™?…ôþ“ŒÞj‚Œ5™./È<’Z!r”¨9䨳ÙL!ç6¨” ®¡Ê‘šuZ¶mŒZ'u†`¤¦†¿}{¯¶›æÑt7˜s4W?h”ýcâJOŒš…QmÌ{С³ÖSN'kÎäؘáÚfAÓm«ê…¼>ølé–(ŸŽŽè•SMÇ{t¨*Žz m0W²ÃÆÑæ2Îq—Lw2òΘP¹åÞ@³Ü"ïÄø5ƒò'¦_¨íÄØ'ë;ÔA8lØV(m‰[¶6d¹£~€‚^ÆAúŠm •Œ1Ï …nM$/2ERY#Ë÷j›Šâü«g=Ï&%qßÕË.ìÔ8s’ã=ëU1Ï´ŽUbkX…^íLÏF,Õ/sI¿Àü ÊÂR»km\j•K“}K›ÅËf{ ¡Ð×ÀüÊÜDÓ=…_¦Š.ð‡Ì»–-Ö:a×¢1¬{-·‹¦;ÄYgYÂd3þóÿSf²6½X”°Uv6ã\âY©ãÆÑmõw{q`L[Zg+4½èöÉÎc<›8P•}úWæeì£1.%ž]šˆ}²ç0^@Ó>í4/ÈiŽyƒ.ô¸±‡8P‘af¡ ¡ÑÆAâ@e}!çÚjM©£÷2®'žŸÆöä.©ŠEÊ3#QwϪۜ&“"šìa¼–80‰v³“q/q`LãHm‚ ûo Tf“èÙ É-Œ%LÂ&72êÄ1mr…†Î‘Ÿ°Éá¨è¼êãÆÌÝPéN_vˆñuÄŠ¬z:}^·V¦Ë—} 㻉“0íëßCÓ´±;yÙ÷2~‚80åNÞg?O˜„u>ÉøâÀ˜Ö9)n â1Bö»Ä)ª3þ”80 Û|ñgÄiªŸ3þš80å@õߌÿK˜„Mþƒñ÷Ä1m²PL6•J~Œ’; ÌH<§.Ô|Äs¸O2ôˆ¿ \L˜€±r'1.!L=ôäÎcì!žS7L’ =¹UŒkˆ“°’rk‰S=¹uŒ[‰çäΆ+ =¹«wÏI(ˆn›mŒ»‰S =¹=ŒûˆÓ =¹›Ï©<Ê;Mö3>šx.þQÞƒSBO·˜þ㦠Þl‹ìåÞ ©dèŽ+†IxxòÎå÷jû ×Å„¼„åy,šû7â@E–Ÿ‡xVöÔ•ŠfŸgü:q`öÿã7ˆcÚ¬%a˜o2~‡8P‘af{Þ{cŸŒQ~Äø3â9©Îrt£|—ñçÄ1òmTw‚ ØÆð°Qp×k»-/²ÝZu\‘ÇW³j§ -kéE£WÛjT J kqFë)+¡þ~ä©î¦e/$ÕöÚ»ˆ¢H¹í`Mlh’š{'»,ª UÜd€_§•SȡΑ÷µm àdcñ/Û>H¨¨’åvo’¨amc|ˆ80Öö!ÆƬa'võjW› ±’Ý2mŸ`ü"q ¤Fq÷kµçµtGÞéùCù&¯4í,¼Ï—N¼-r[Æ oÁ‚¾¿éý ½ãoÁR¦FÃ{òÎÀБ÷Y)Ó­±Ô&û¬Ôf¦}Vá†Ré4Ôkšæ˜–¹oj­Ôi¶N©k9áoÏÕ\}¨äuõCꮽ‚³ÚˆUõĽqñFo&Õé›ÕÎxq­ɳf1. .0ž½^,ú\õ·‡Ðu"Õ²Y¦‹BÌq¯³6äyêâfÞG}DÑ“+ÚV¥‚^˜S-ŒÖ ¥ãuúÈE ^³1¯/éuÐzé*ÞvUÄ(Îëì9Ò·Y§3¾‰¸@5Õe>Þ¯¯oãþ½×m“©0ïd|¸À*Ì›?L\`¼ “G†ýKБ«3ø„éê‘èõ,)ןõÆÿ".0Í>ø¬?2þ‰¸Àì÷;Æ?Ï~ѳ¨Aþ_ÿJ\`<="ïý ³†jöŠn«íÝêE,¯Â:GÝgB) ‡=À“Cd³¯ØÖ¸Y¤[•"¾ÊWY}à6ær©…Ã]´©5ýDOïÞQÝvû%4¼™q˜ù°Â*_2ËéËŽ¿OQ{®-tOu ÷2ÞÈüFYúËW3Ž0i}ó‡¸íŒ£ÌGc×w©Ùp¨`2Ž1S^_OE}-›FiÂ0·}I¨y'ã=Ìï9æ+íaÆ;˜ß¡¬ÒºŒ÷2¿7™J[f¼ù})Ä,È¿ŸñÌ_|ÌúUóª‰Ys¤²~åÿ%TT#æpªC|)aᢰð¹Á'i{@ü !äOÒj|ƒ‹ßÇ4«Å7Yþ7ãV‹i§‰º;û‹]Ú~ÿ4/:Vûvm÷3îÙKWÉ]oŒžë ÛÑ%Þ`ã¥Ì/•yñ›Å5.ÔØBþ$]ǾŶôQIË>¹Ö]ÞY{ ¯G/ë¥IÇ¿zS\Z.XU\ƒZ¿¶`•]ë¹Á-¹´ Ë—Ä£BèÚmU½ìš.ÍðêÈ>Ú,dLÐþ>j,a<~| ´íaLÐBÜEŒê|àÒÀ–¬Ïý™…z/y†ú]Ï8Á|"=/ø0Õ ±¼`C©ÓÝS†®p;KNñž2ˆŸ”î)û—½j†Oÿ]«›1‘I;¹#˜%Ói†€÷7h^»7¼:>†TW¼í«~ŽŒ¦$†MÛqƒ–QKæOßÒ”+O‰†&b1Æ¥®Di2hFFQ¤R+ñ̨Q°ÊEúãþìný߶J%kBU{ü16ð¿™ÿwòöÿ ‹öQý·Ôì¿©ävY̲—&»Ø.<%îOL‹u_䧬 â.bÜÂ\~QÐÿVõ5h·•±À¼žÇûÕ)x<ˆmgLÑãA|G[áñ¢oPƒ6 ôx¿âǀǃKUÝzôxw£:§~;ôÛÊh07Òóy¿¦z 0–Ïk(uºíhÅ·³ä·£Aüü¦´í?¸ì}Ts¢ø´Ðv¤’Ôn´éVŒÃ{Ó°élºýiœ¦vÚ5ìG´]Í5íw«ý†mñ”&q`ÒÕã·¬†j&ŸT1CŽ”bf©Tõ LwÉ¡×þ)k:˜=ÝY_ÌÏ<; ÒÇHôôŸ\Àç0N¬`Øp¡‰sFÌ!Ç*çûúò:¾šñmÌߦ0ªÏšM_Âø æ¯Õø¨¿|ãÛ™¿½õ]8ˆ{.ã;˜K§Ž™5òßÉø.æïJÞ“ü·Õx¹ô(¿cù¿ãg Õˆ²æ|3C™r~—I5kÄŸ”²æ„vb+¬mÑëÄÿ°p`s©Ä´2uB‡b,|VðIÚ?;„üIZÿåâ÷1µ:ñ{þû¸ubÚ S=ù.mïÄßE ë´î½Ÿ±f“ãXSjO¤W8…ñæ—ȼ‚PýÔ¸¦…—…?I×°?°1}TRÃrgS0ÚNž$ÆÖ°k”µªCÛ@œÉ2†Cȸ\—ÚÈ8¤{£ƒiØä,DŸÖëå‘Ú¹ŒBüê  î20c äg8rüLCEäK*Tmï×]ìû-WzÕ gvøyL/›•j‰ÿΤ§@Å°Mlh0l§É DrTv[Ýš.î$ô˜’Óˆ“#ã³éªŽxW¼g¢vª&m»¹B ¦LÎÛ$dUªvÅrŒ^íCdÆ ÊTMg´ö¦5‰âï£|õJ¥dÄŸ׉ˆdNAaà‘Zx¯zôÐénø‹µ_Â_›éVñ/5šRôdpmÌ<„"@F©È]¶?r•ü#*{Œ³“o%b5|L³Ëög–ÿçLÌ.Û íòzW½Þï÷Úp…ñ²#ñ /ÍÄÍh·1®q¡Æ¦ò'é:ö¶¥jæŸî¨M0 ­yç5†n;Ø4jcÜ_¬Üž1 ~®‹òB³ ,XÆð°Y0±£‹|Ä09ç™üq§7öDtiþŸrFÍJg®s9!_áý1Ó¡›Ñ¼ÊæyGÛ¸­JÎZ„ ¾»ij9T̺}½¢žêÁÙ¿ÀK © ™ºÓ#^¶à}ä£Y)@¿ížï5ì‹Íîq­žÃu3+M~/²Ãû+[þ¯°q`Ò•ño¬†j^~J6;Ì„úÖ™’9¶‡NFuŽÿǺóÌóÒÎqªSÌÙf³¹f«føsƒŒë™¯oý” ~i€qó ±í·ŽoiõZwžhæWŸhVÿ¹ƒ aÅKæŽ:+–¥¬x˜ñó#ÉXÑe|óÇŶâšîÀÓÕîpô±J‰n?qè Œ˜Û®!ùvÆ·3»2Ên»Æß|㇙8C¾ƒñ#Ì?Û*¶]ãïþ+ãW˜%ùxów²q ÓÝv é"òç±:ó¤+oÜm×B¦¼í:ËÆÉf•”N¦icj¼KGˆmg<9“Ö.!¾#@Å»tf/ݲgïÒˆîMè²ñâÀ»7!îÆsù—â—“Ý£#ÔXÄx!q "Ëœ;MwGBÑ‹·—»(§‰¹oÔâ–1n'Œi®ÈÛ­…ü+wÏÄOã*íÖrdl)¸5ˆmgLÑ­A|G€ÊO“\'ã× ÌBÆäN“q§0¦šD¨±˜Qýi…~ v3n'.ç`¢ù5ˆ[Îxq`Lsݨ“E0œé:šS2GF]­lŒÐæ”´ÎZúã¶*a¾wÛjö”zÿ]®]c뮋3Ö«×uEö–x«Œ/'LË[ò* À¼%Ķ3¦è-!¾#@åÞò&o e2&è-ÛèAê¼ål‰ÛÔ… ‹Ï'Td–‰‰`‰èd¼‰¸ÂÔKM=(Ä-e¼™80¦ OÕ:©Äàúòý]Q'Å…:KÄ3¥ô\ß,ªc¹¾†R§Ù±-&ÚYrz;¶…øù¦´c[¤†Ê¨hÒH¯U‹Ó/ ™ŽV-,[eº'ËR¼¡[âë¤Ýk]ØíõÌ^£·;juãE^:¿¦.ýš9þ¶;Bv/?³×ÅîcLm£f{ÿ=àÜf»GÊëÑò·k+ùýÞ?½¯oÉßÞä%§Ë÷%Þpˆñ>âѯWÄGåûš{`ìV§e ¿„Â÷‡¿_FñÚŠvnÆNQ÷­L†aoåÎöšLò¥6ΦØr¡-ì ë–‚”Vñ5ÌÐÕb©Í3t)¬êáo/é¢MãºYªíÑrG-'Ø ÖéÞýšk8.¶Äð_ä7ø¢ôÄMÚxÎ×8äÙqûcúŽ¬¿ýÀí€=j‰ÊÚÇOtìxLßúð%ü—EçáK‰D• |K:f¹·áë-¸Ô®äØþ] ýû’Í+Œ;W£kTw®ÐP¾;Ï5©JÓ5š”J«¡ž°é¦eʦ¡¥…R§-ŠZYøÛž.Úᄽ¼þæ&Š,ãz©ê–qSÖócø§~æýÊCÎ5›yªfSPø¬cd>¨ÌxM§ ðÉ3®g.µÛªnåâôka´¶Ë¢nÂG\«zô†šf¢Â÷D WË´•²St(Ì‘Ú6ĺa#í‹ô~E?ˆÿŠô‰S!$Ρ{|­riÒß”Ý㈞•®kõª²þnz2´MR k[\a7æM¨ªÂVd*l®ÈhÏI%ˆ\as·0Æô5íÕvXÆ8f܉cõ£kV´<#–-׳°mOzõ8È)«Y<QW)ÑÑ­ÕK­;ûFE^Ú2§± ~/T»ºúKµŠØI ulȨ­§t‰¹•Ð®ß&5½¾aqÚÛè517BØ6D¨¨&.7pª¢ÐÉÛÕ6Š]ÝZÅÜØÓ×Û·¶[+›úšõ­¦«­m&ãsˆ¨­mÆçƬ­KµIÓ(=Ç,¨…,5´j»›ñmÄŠl:×3ÝÀÀêU2F{/ãƒÄIííŒ&Œi´¶è³øPà#Œ%Œ©HäYã¹dRÍŸT·µ=¢J'°JÀ“X¥“”ÕדêœOÔZ NgÔˆg´Ö×Zˆ;™ñ|â’+xuâ$v£ –2.'®0åÓÉ5ëHíŒR=Œë‰'p¾@ˆ»ˆqqç Îzœ…Q ]Mÿä„É.aÜO\îBƆ&kÇaÆK¯Þ'e®›‹ÄI˜ë:Fƒ¸‚”WŸ¤qKÑÖ«%·«¶­©êTõ’VòÆFŸ+Ð+Û:dr÷Òp¬±JÕ¿Ï` "Žƒ‰¼4¼RV)UGFü48Øecƒ³[MϬ94(«mÃéÏ÷æ×b#ÎfË6ÊŽk˜t Â`—¬?&Ìv3ïV^¹6]/S¹²Œ—0—:á¹reÙe72ß»r}ìÔ’Ú ¤k–cë*=Õ#ΞOØͅц7bÒGj™·:ë ÎTÝð+~•ë•ìd/%Ìeˆ•n@n.ãâ9©#‘ëVŽ{F¹Ó‰cÖ­…Aœ·uq°‰n®ÜŒ+ˆû}R¶êg\O<—LŸ w1ãâ¹ø}‚Û KCðe¹Z*i£“Kä•p 8=kWëgÉÄ<Úk ¶Õ%ÛjsÜ×Ƚ‘8ð˜éæÞÁøâÀ$ªÂ›ÿ•8ð˜i¶eü:q âf{Ýf)[}ñgÄIØêŒ?'Œi«§‡›mµL]·ZnK§–ܲA×Ï1ŒÐuTëi3]—%bì!½à;:½XËŽûÑ')P ¿ l«&=I1ª–Š&)¶Õ&)¶R®É+âž&Q–Xvðê²ð“òI"ñêâU€ÛøU¤9M›$ò$‰+õ²i”ú›ÍÎM§åÍŒ·ÏH]?Ô¤ñ)O)4ÝËx#q œÆGýå«Ïl½#‚¸íŒ%â vùJMù@…1ÆÛˆ×Y‘Øt Ér'ó}ý25öiŒ÷ã5öñŒO&TTc1ÞG\á6´ik¬Íx?q`Ì9±©ÿÆ&´æS÷QQк£nf½.×Æ­Ò8"×Xµäš÷wŠá¦Iiäx]×ÖéD—mù=V [CDt1%NéÈ¥¼ƒKáå¾c¶uE ÕžÍø<âÀ¸Œ£Ä>ñùÄ­n÷DÆ{ˆcVÇùµ]‘›)¹—ñŸˆ“n¦¼Â䣢f*•Ì.{2ër2ý[è2GYÕ˜!×,¾ÍeáéåâO0¥üÃÙ6EÇ1P-Na]N‰[-¦Ý¾yqg~¨AŽÃ­AzKÙ‡BñŒ3µD…Ñ_@üæþ¸¶Å3—è’®b§²YOUZÅÞXë Üàç!±tqÙÆÔôª¦È-N/Û4Oa(Éi¦0t•1j‹¡FÅÁ€Iš”ÑM±©âU'äŽÃe±ÑϲÇHŸˆ%v—ð\br“‹ø6î!ð…öô“i®’Ÿö ÞçMŒ#Œö^x"áƒÐ÷¡ÞÉè]k×¹ŒäAej4—è yã¿2ÝKm²ñ_­afÚøn)•NC½¦iŽi™«ñæþÖJfs¿º–ú6{¡&Rzw{¡¥`TÜÚ¥HH·­OŠM¶CØ„[(ºÍ©¼ õI˵l«Z©M†ãø¦®ÂYoý/zµ]–mXbƒ¯XÜOs‚qW1yÃaœ‚m9Nw½˜Èû*Äh¹l™z©«6/2‹ûŸÊµ%pÿÛ#f;lý×ó¾±\ïï…ÒFÒѹa‘ì{h’È!4 lßúuW2î"<úu»Cjï–Q;¡~]l=Së×))áÈñV][Õ¯k]ÍSÒ¯ka…kM¿î¡ž…Ÿ’ ­+„ºWÇ·`u¿;ø$ØyÙø—8°%ýº™¢ÙÇh&X4·2Ž¦Q?ÊúŸã£_g1ÚÄÇC¿Î ©íȨP¿.¶ž©õë””päx«Î®­ê×µ®æ)é×µ°Âµ¦_÷PÏÂOI…Ö ݫã[°º‚w‚O‚—q‚80f!œÈ;.d_1ÞI¨¸<Úì&ŸÌøTâÀ¸u"ê*9Ä?-@ÿS`•¼Öëî1›z¦x†ð<â ®’CªÆ˜â*9Ä_àñ³J…—1G«äP·+¤v—ŒÚ ôº•è™J¯[Y Gê ©µk+zÝ­­y±{Ý-®pê{Ýÿ(õ,ü”Tøh]!LÓù=þ«+ø®Lҫ亂QÝ*¹T!ôè$ á¨ÄÖºÙDŸ¦Ye ÈjÆ5ÄŠjeÓ÷·’q-q`Lsœg *TYǸ•x‚[ ucŠ[ ~g€ÇÏV(|%ãq´Uêî©o©±µëØz¦Ö¹VR‘;=êìÚªÎuëjž’Îu +\k:×ÿõ,ü”Tøh]!ÌÐÇ=¾«+øÝ™¤·*@êƽU[¤ a_€þGUçzHªs}ãÍÄåîKŽÞ¹ÞÏx€80íÎõ£Mâ îÔ[SÜ/ñåŸý"PØb´3ÇÍ~¨ë„Ô>V÷‹(Ñ3µÎµ’ŽÜéQg×Vu®[Wó”t®[XáZÓ¹þG¨g᧤ÂGë a†>îñ-X]Á'¿_R]FuûE¤ áP€þGQ纭Ü/Õ»~㉓è]O2>‰80 {Ü ÿQ\)›lÚÐ'3>5“Ú¦ˆZ€‰lÚ‰¼Uþ,ªîÏ#žà¦HÕSÜ´ñxülÚÂË£M;P·+¤v—ŒÚ }”è™ÊÐGY Gê’ªµk+†>­­y±‡>-®pê‡>ÿ(õ,ü”Tøh]!L39þ«+ø®LÒ›v ucŠ›v ¾7@Õ›v ‘G>Pd5ãšLb›v n%ã1²iª¬cL~Ó¤ncLqÓÄï ðøÙ´…¯d<Ž6í@ÝÝ!µ¥×|è\ÇÖ3µÎµ’ŽÜéQg×Vu®[Wó”t®[XáZÓ¹þG¨g᧤ÂGë a†>îñ-X]ÁïÎ$½iR÷0îͤ¶iâ÷¨zÓNQªs}c‚›v n?ã1²iª<šÑÌ$½iRoeLqÓÄ—<~6í@a‹ÑÎ7›v ®RûXÝ´£DÏÔ:×JJ8r§G][Õ¹n]ÍSÒ¹na…kMçú¡ž…Ÿ’ ­+„ú¸Ç·`uŸü¦HuSÜ´ñ‡T¾i'/Õ»~c‚›v n’ñI™›vŠ=µ·í4ŒkWÚYòÄ%÷éÔÕ„¨[e þÉúŸ˜jtÔ†t7TD¥Î¦J%°ƒ8PÕØ/úih(²ñLâÀV×γéAgñ/Û8¹n{œÍxq *{D?@Îg\J˜„=Îe¼€¸‚MSrö¸qq *{D_x„"ÝŒ=Äåd£Ûc9c/qÉغo»Åz6YɸŠ8P•M¢ÏWA‘ Œ—&a“ÕŒ‰Ë]a\÷þÃZÑ([.]¾[0J%mØ6n«å‚i8þõ„ø®\2lºú®hŽ›Åª^r´a½„« qžU ^AwËžì’µù¥Œ¯"TÖŠ¾÷š¼ñÄå.þnôW3¾‰80¦ÑgËÚäÍŒo'L±k MÞÇøâÀ$lòÆÆ´ÉâÊHq¶5A¹%ÈwtB¥1~‘80é¾ï9d`ýOL5n©õ}÷{¥T5µ‚e ›ž§*»ÁլŢ£Ù¸C\hÁ³Ê¥I­êEmÌ¿[w;ŽU0Åeãâψïx.¿#ð~Ç[¤ßñع ïóÆ*q`´÷ ß}ÇCzËè]7™8Ý4DÓ›À•©Ñ‚›À•éÖdf¦ñü Zôî&põz†Ÿ’¸ ¼Õæj|xk¥N3©®å„¾Í¶ñ•ÙâÞæN£wÄëÎn/¦ãh˵͆íõ^»µ|_ß`W¯+%Ýu½n®é„ú²^ôЋãzÙÕG «êàRhÍtñLÑ´‚ë}ï…ïy!Éëë¥*‚Ì«›e/ì Û֘済Jæ÷oÿ†o­ÓûKEÃ)Øæ÷cÃe¶§É£ª%ã"G»VD5þÇ£´N°n­°?O—{ëŢɉ+Žllˆì!ærs˜øö˜ŠlÙIÆç2îñÙ²w‡ô¾[Fo%‘M­‰ljt‹Ù¦¥‘M±žá§ä"[KÍÕ4²µPêô‘MQË }›}¨.²é%wÔªŽŒb 4)‚CÙr5w²bô’?ü1Ë^œpõÝ‹“Žáx‘f»YÆ÷ˆiNu 1ÉÕ]1’r',/ÀF-×óÂ^íp®C±§àVÅ_ö1{Æ ÛñÂŽCb,k8Keñ«å¢t'!趪RM׋Sã†æxjb ¯±*øa«TòÆȺ6dŠºxY{Ì‹‚EÓ‹²æP¡¯«›ƒ´7¶´Šå8&‡gÃñÚ‘îÏyY¶m”(Xî„a”k"ë4 äWRÎ{Èð‚º÷ú¶Y¨ûCáiç5^\w¬2w_ßí*Ó>¾v +òø>T“Úöo“Û»þ6òø~¹•ï·{½<É•È1jgÁý^N·W<£†7Ö÷ êTŒ‚9<ÙxsÜÔÅßq1¿#0Þø^ÑR1‡‰[=Ûqa!ŒiëèK3?Êh±7RÁR©0ÞF˜„=ne´‰+Øí!g‡Ñ%žqÕÙ#úR9Âø8âÀ$ìQe¼xæöØö[*ƒg¼“xŒ% –Ê È3ŸE˜„MžÌxq`L›ôzýž‘ê˜Ó½~ "TÉ5ì²è …ˆTÐËèiÉÆ›g3¾Ÿ80Ýxó¯Œ%LÂv`üq`*þí!Ʀëß>ÃøYâÀ$ìñ ÆϦbÏ3~8P‘=d–„¡É׿I˜„A¾Èø-âÀÔη@¨Ì(Ñׄ¡ÉÏA˜„Q~ÈøKâÀ˜F9?ˆ8<=mU\1¼Æ´®dùav>óùÊì5—‡g6ËžÆxs©Ýx‘m–=‘ñlægǶÙé5›ù úåõQÇ×ÐèÆæ=Éó—}T4ÌŸ'{:îš|ì¤Z࣢¸/t(‡XÙм‚³¼¦sØ°-¯YUÑ  G=\2pºèè#·½âÈIÄëâîã“;ŒÓ¨¡œÄvß(µTnb&žÄaˆÛÏ8B\Áa‘³hsõXÕqEò!¤Çz$ 6Êøâ@Ek‡c߸t_ô …žÊø\âÀ$¬uãÝÄ1­5K“kJÏc¼—8P±e¶ì“²ÌK_M˜„eîc| q`L˼]ê‚Œò¹QvÂq«E–ŽZÞ:èJ\à=]°-ÇéqŒ'àacÕ’k–­1S/uÕòt‹óŸxG$¼GŸÇôïéeÍëþ˜žãÞïx²$çNPj¯%Ì>šù£•Õ¦Ù¢6IT¤l‘q”¹T0Ž\‘²·0šÌMÁ·¶ÇÕôº®:Ÿx©¥µp £Æ˜WÃÌáa¯>kvDÇ'‰¹¶uõj»k]Øè6ÎÞÊøAærI¸¦óWKyŒìÇ?Ãü3ÉúCŒŸeþÙ؆>íÕµ /൒yP¦)f?Çø=æß;F{ö'Œ¿aþ›dÌô}Æß2ÿml3EŸ®„üÿdü/æÿ•üØ`ÕGEcƒmµ±Á&åÃ¥±6rÅ`Ë¢ð'˜£Š{ÕHäü±­q³H™"¾ÊÅü*Àmü*ÛbÕôF5þOíÞ!«j뎣÷®‘ÐòfÆ[‰•U{Ïý¤/;þ>Eõ¹H=á©/¡ñ^Ɖå4>ê/_Íxxæ`ë]Ämg,Ï”Rp?ÆX&®àžÈ. ›ÛM·R0GjÕ¤‡ué¡ ]æ(«ó8Õ!î87ŽGç²ð¹Á'i{@ü úŸ¤ÕèeSôÕb%ë²2nµ˜6¿ÓòÎ|±KÛå¯à Ï¼Ë<äÅ¢ë9ñŒ¶Çº/`\Ç’¥ˆßŒkV¨±!@ÿ“tíêc‹ö©¬]mÔú7P*1Ò-XeÇëSØG%±¡qž£µƒ¢è–ðÔ$gO¢ÕgÔ¬ɉ¹ºùÌù?¤Ä„AÞ¦Zf\1ô¯=USÃRu©Ž £º­\Ã6×,ôj;˾®ŽágUÂh 4I?ÇxξWÝQËöäè^÷É6*–í}UÓíIïïOã¯y*;ÕÂ(¦a¡”§EYhè=P.êvÑ+qÎ]È9¤XQJ¼€i^3ÈÐ4b[ÕŠ£ua1c1DI€¥­òF››u”2rÐé3˵éö {9V95TÅ2ËnÏéx¡—š'xÚï °/jõª.¼–îk<5ãÔôR5+z%<ÜTo1eâ'ÛÒ¦Ûj˜m ©(¦K¶uŒåÚj”^kæ¢çÖÜ í³*Xëì_µA»R/XCHóy½iFÝ!½Šïò}ýk£'Þêg‡ÑfN˜´ßʳy¥QqEÍoíð| µjÄGeØŠ¨ïë ôÇx+” ÿÛÆ¢'m€&ýŒÌå–Ô£uú!êbÆUÄ%/±¨'³©*¬f$.wD¨‰M¢çl€&—3n&LÂ&ë·Æ´ÉŵÙNÏùö8e2"Q+r (º•±L\rÄÖðp³S”kNUÆCÄåî;‹n:‹q’80­æt˜ññÄêŒ"מžÂøtâÀ$ŒòÆgªoOGw©ì5Pô™Œï$Tå %R A“0~ˆ80 ˽‹ñAâÀ´šÓ‡?F\2ý—ªŒBÐäÓŒŸ!žI`Aâbü,ñLü͵ÖÔø>'¯ÏgèÞèLD(%)‡ ÿç³Ì;”T6å´Yȸˆ¹ÔnÿÈFÅ<ŸÀÅÌÇ6ªŠ”CÐh c?óþä8«ÈÆ>*àHo£_Íêç±:ó¤+ï)qKj,0í”Ck¸tÖ()LÓÆÔäĶ3žœIíÄw¨üDèÞk6/êÞ ËBÆO„®¡™: Æ"Fõ™:–?²éA /f¼†8P™åšlv†¸eŒ×Wp|)zÈß˸¸äžÚú$éá֒ݦàá ¶1Eñª?&ºygô *Š€#µ¸³¶‘¨ì4ÙlDgD«åƒek‚ŠVl‹â“*Áþ BqÅKpLÄ—½„_8Â/+WæÄ%=P¤Ìh¶Ú[CÜ(c…80ö”ƒŒ=nc´‰K^¨Õж”=&&a‡ñq`*öxãíÄ%/ÔjhWÊOf| q`öx<ãS‰ãv2»%ŽçB…§1>‹¸Ü5^MR‘2Éóï!LÂ$w1ÞK\ò˜rèÛìÍá v~dÛ;ÅæX>Eéu­s‹åõ½Îg‘ïïêžf—ª¶Üž`ã-]CîýE³\4*†÷Ÿ²Kg6±¹Ç5WTÇÁVÚJ_cîOMù„Ïôv7L§@OµÎ~½Kët­:t,ú·øCbqÙs•z0¾Nµ¶¯3¬4΋M¹þ®ÐNzã®™&§œèÛ®ÜcH$»€B·3>•¹Ô%º¡'ŸÆüi± ;ÙÔy:ã ™¿ð ¹Ù—3¾Žùë’1Ó‹_Ïüõñg"÷ê!ÿ Œ0OáðÖedTõêåŽ4_κ\NÿÎ$zÒ}e†Nº_žIõ¤;ÄŸ`Z'Ý7±)6)­mÑëÄfVØÆŠ´%T'2¿‡b,|VðIÚ?;@ÿ“´[Ø[Ò®[Y‘­qëÄ´©Vtti{øx|]„µ³ ÚâÐœ„þ§0òïH‚…ާƵ+Ô¸$@ÿ“tõâüD>ª©^Ù§ób¯ç¶Þ}tÞƒ ³TÂbx0o81jF­‘‹éB˳>ŽÒkÈ Ô£{±Iç÷édòdSˆæá`\G¹ j9 ð äWlœw'ëϼðaÌ^älŠÑÉgœn÷z÷UÓ­U¯OÜ 6ÔT¼1@AœÒ¯©[Ÿ<ì i0¬?†ïyïëŸü³±Íþ®mT½"½¥©åtg r§uŠqði;ÈÁ6„ÛÞÄ ó‡E^A$¦ó~Ñ¥}!"DãïwSl¦iŽdmÉíaü"q ¢ÚÒ5}m í—‘Pû[„m9âÀd*ΗXpñ6¹I–ð·ßéi冭BUÒ±JX—´ÊµÕ)±³˜ÆÃSóìÕ*¡•¬‘ðæòF•M myØîç¾ëÜ­ô†ÒºfxcåR¯È¼¶zƒ¶W¯zýÖ¡ª7®^®m¶'"]Ûºµ]t‹¨uü'¨—g•=¥tõÚf1~Ÿ80Ý®EÛON˜@kûã/ˆcV5©“+Pá—Œ¿!LµgÑö¿Œ¿'LÂ$¿eüq`L“¼˜Ú63Xœïñ¨ö}TÓþ“;$S¿ §]ô%ƒDãÇØVô/† šYóª46vÑ÷ä¡\þH8ëyÄIO\E•ÌGEÓS‹ë¦b¦Ú¹šU.f+kQ²©v Í…Œ+ˆË倌֬ n ãÅÄ3RG‚ê ¡£.ÕNä,;P¦›Ñ?³(53¯.ï⊲Ki]–>ˆ¼›ÕÎcuæI×ÛeqKj,0í,;{¸tö()LÓvÔ$Ķ3žœI-Äw¨8Ŭ¥»v/êØ ÊBƳ‰[íØöЃÏá_’Êí£&Ô8—ñâ¹Mw s‚?á,¡Õ Æ~â@e¶ir â.dÌ—<þ6zÈ`\E\Aºaiv YV` . bÛStaß òDaû$|tYȘ`¢°kèAÇ@¢0¨±ˆQ}¢°‹g˜°ê f¬º$¿˜ñ:âÀV»9ˆ[Æx=q`ânòo`¼‘¸ÜÝPjÜܵd|)¸9ˆmgLÑÍA|G€Ê³…íÚ}ut?e2&˜-ìZzPà1- j,fTŸ-ìôFÓIv3^F\.…K4‡qË/'LÜ¡Aþ&ÆÍÄånBPãÐö’•¦àÐ ¶1E‡ñ*whû¶J84(³1A‡¶—x 84¨±˜Q½C[:óÒ—„¾ÝŒ»ˆgÔ­M7uo·œq7q‰£»7ÈßÃx q¹ä¶jÜÛ>²¹ÀÜĶ3¦èÞ ¾#@åîmËõî Ê,dLнí£î j,fTïÞ:韄ÖÝŒÌår8Gsrµœq?ñÌþøN.òz%ä_Çx=qƒci'·Ÿ,/0–“k(uº,¯ˆ4í,¹=øÄõoQíñóL+ËëulFÿSµj!}¸üzV ÈnBr¹KÕÞhrã"âr^8šó‡¸Ó—\>ûqìŽòowõ·/5Þ´W»#®¶ñ“30M¹ÞóŸ(‘´^šaÛ¸¤Õ ¥DìÕ6•«»>­Ÿ’v#HÔ©%Œ*ªS'ײIõ- Ô/O˜Dõúãˆgâïó¹VœCã­½¸ÎU1Çq´bR3n«ÒüZœ ™²GëÛqºµ¡ª+RsYUW¦‚×ù#¡8áóGBISçøõrüT÷sØ(9Æ‘Qw¬tûûÜ~ÀÓõÈÎ útÝŽÞV>rAÿí·ûÕ£'¯°G-í@©h¹ÍOÍ»n߶½»6mÙ»§ñKaFàóÈ9:ñĉSŸ˜{`ìVÇS8ôÎ8WÛpQïÝÙÑâ£2Š‹oé‡6MúbÊÔhØþO;ÐYoâ]ÍŠéúm{7·R¿ÆRQ?[nœlP: «Ï#ki•h KËÎ$ÁM÷~CàÎ; cF…§i^ß`¬[sL/‚‹N—v—&ƒk»½h!²buÒ¼ ƒî74œ6調œÝï Ðáõy¨ÅÛ°†»D( %—ŒÀüà”u:s‡"Ïc@‘2~Œ¸Ü]ÆÑš÷AƇˆcV$©3>Pá㌟"Te’èg| È¿H<#u41ºI>Íø%âÀ˜&yU·×¢ÊV-1vã+CÃ6rÁŒrÅ„êøG‰]Ëõšrã?ƒ–íß ¿09õ¬ñβãz¿Ç %*Ì— ³UæÕ”+LöqŒ·3¿=‘ #2}Ïüñ±+ÌÉÁ=&¸Â$ºm²O`¼‹ù]êl=_¹‡ñ^æR‰+¢ÛæÙŒ÷1¿/¶mnš:?ܸŠP\´Ä¼n­eMÚ5§+–°óýŒ¿e.7 k¸£ÌÜX6{¤¢iö÷Œcþ·d¬ýŸŒÿÇüÿb[ûÌ®^'þгÀÜÄŠL%{âÚ,b\J˜€¥r / ž‹ŸþùôºâX|äcÐèBƵÄI0M6öQÑCzeúV8Õ™']y»ã–ÔX`ÚÇþÃ¥ó%¥“iÚ˜šlN‚ØvÆ“3©mN‚øŽ•û»fïÒ¨Þ ª,d<;“ر¿ÇЃcPã\FõÇþNƱ?äë´l‰ HÐiãZâ)wÛÄBM½ îBÆuÄ1-}—%ä2®'®à¹´#{,ÙW` Ž bÛStdß òÃ×Hl„€. <ü÷XzPà1pøj,bTø›,¥½ô»˜q+q`«½Ä-cÜF<³-¯ùÛ¯ LË«édk)x5ˆmgLÑ«A|G€-ðj{"{5è²1A¯¦Óƒ¯51ª÷j‹<¯fºjü4¼˜q;q`«ýÄ-c¼‚¸²ÀŸsƒÛ·ŠE§+²£ƒB;o"LËÑ ‘ù¦àè ¶1EGñªwt{oŠìè ËBÆÝ=(ðptPc£zG·ØskCª<T¼˜ñ âr.'š§ƒ¸eŒ;ˆgäv膿ރƒüŒWWp§´c+¹¦àØ ¶1EÇñªwl›¢ß*]2&èØ ô ÀcÀ±AEŒêÛ Ý.8fÙМ۪X×°-K‘—ƒ¾3î'.w/š—ƒ¸eŒ×—K…SWLËüþ ¨—Gª%Ýž²ÿ5z*^Ïx˜80-GX¤ê!0G±íŒ):BˆïP½#ÜýÞNè²1AGX¤Žj,bTï¶Û†1¦—{öW“ZѪŠ£sì•xD(~1㣉[í!nã-Äå®ó®ŸÐÔ:¹Ä´åš(3$p_Ý=±3ôz ã!âÀ´Ü A•C`,7ØPêt¥aœv–œâAiˆŸ`Z¥‡ÙŒþ'¦WÔªÅkÂ7ìnáŽlCw°ÿ¦h:…ª{Ö¾Âè„n6ìðQÉÁ.™ °#ü2@ÿb;¹Y¦Æûô3wˆ§÷~ìÝÞ+I趋q/ñ̵2º5<;0g¯eÈét#&¿Ð|”²F8ë€Q.4‘ºƒñ挪)7::µÝ6¢*”ÏwQ?{/­áGjhkXƒ«/±ÐÆýicØR_Œì}ñ®?ÅïýoÉ·öQn £J[ûµµÖ~“a[ZÁ(•4£ìÚ8̀ݯCâ6P¯ôÑ…/ˆ".¶‹‹?§ÞVÚ«Ý€›P"¾–ɯeR›¯%Õ¶_ïZ—âb”¾È]J(t#£NØê.¥I>Fàû›¡Øf^¬u¢=a½Zr¹u‰œ h_&+0>8P‘ÉÚôbQÆVOe|:ñŒÔŬÑmuã3ˆcÚêÔ:[ÁƒIØ癌/&TeŸþ•yû¼‚ñUÄIØç%Œ¯&ŒiŸö "„cDŸA×0¾™8P‘afí®œŽ¤Ñ{ßO¨È0Óœæ†À·0~€¸ä´ð·'w‰¶ŠE:Ÿ'Qdüq•g°¢oä‡"_`Lð Ä}šñKUg°¤ŽÅA…/3~8P•I¢Ÿ¤"ßcü>q`&ùãˆcšä,º3:ÿ+Ý (a¥2þ‘80݆ówBô'Ï$c¥?±Ø,óø]ôYZô´RÐ Ç8›ùì”ÛMöDÆ“˜Ÿ”ˆE²>žÌ<þ”ùˆ2HUB”é“ød;/`®n_ø ø襒̰'»‚±Ÿy2†º1Ï<ÛP±:ÙÆMÌ7¥=ÐA®W2—ÚÝ:›¯b~Ul뜳³†ËáÞÈ\îF u1 >–ùc“1Í£uæRÓJ:kز"p˜ùpÚAgŒ±Ì¼œŒIF-æVl“,Ä„»çÑý®š|Ô©0>…ùS”Ùh>¢Ž9Ü'xîb¼ŸùýÉ‹§Ž²/`þ‚c!ð¼ñµÌ_›zàyã[˜¿%ëü ã[™¿5¶un O}›¢ŸbP4Á·z#Q›÷°«• ÝqEV‘ÔƒøèÚaL›“%Ò¿â½ÞF˜k'ž“[ÐTÅr§2žF˜€sóÏÅ?R,9rÊÎx&q`ªA,·„ñ<âÀ$,r£F<§Å¶H{¯¶Ïp]‰|7Ðã|ÆÄsR—#7´Ë<®²×¸eÂV®Ÿq80 ó\̸žx.þÑUÙ³ñRâ@E†™í¹é}2FÙƸ“80 £\Æx%ñ\ü}ÛŸÖFuÇO9nhÆð°Qp×k»-/„ÝZu\‘qÃ@5ʇ.²×^m«H(‡vg•éÉúÕÛZf+$­Cç…óÞ•¨ÊûãÈ«ã EöÐ$…¼NÞsV¡Pµn?ózµäRZtÄDïk¬½KñrW¶N¨ÊïÞ$Q¯ÚÎe\D¼-|ûwãbâÀ˜õª-úF4(À±¨M#Þ¦ÅV$òVˆ[Éš>úŸ˜jl«m…ØêµÇp­`Ùt•€h9hHé(nð*¶;Y1DªNø(z“_å ¿ p¿ŠÜ¡á)™®ëgZ<½{+¶éî\+¡âÍŒþ¾uŸg(™åƒôeÇߧè=›y<Ý%4ÞËx#q¹ÛNþå«G‰g¤’PGs·Ñ$ž1cWø\ä„g+#óÌAåµµµµh ÙU³œïë”Pò‰ŒÏ%<Æëë!ÆÇ*ª¯6ãÝÄIÔ×ãóˆS©¯Ïg¼‡8Pq}=õuT/—«cù¾|Ÿ„Ž¯g|7qà1^]ÿ™ñµÄ3R³S ÿò‹ßC˜Du½—ñ½Ä1«ëœn™Itèð>ƉWÙÓPe ¶éèÃÕRÉ”¬¶_aü qà1^mÿñ‹ÄåwÓõ—?ÎøSâÀ$ªí‡F×ËF@þÏA˜ô¨ DõÜGE£¹[ÆX—1ú·ÐeŽ²1Ãe80—…§xÄŸ`Z—Q”Ùåc ZX¬‹·ZL{ŒΔË(¶‰ŒÇ[¬j¹ùýFÓè¼€±%öÉèìß^ÏœPc @ÿ“t­ª°%+JkÕKjS¸1Aø‡+üÃþýˆÁ½†‡F·KðêUÃËÇ \Ž×AádØT •wLÜÆ| ÐKbõcÂOI¬lA‘W2¾Šx{Ð!¯&®`ºÔþ ¨ðÆת2‰+e’·2¾80 “¼ñíÄ1Mâ6½cB´0NH/æÊmÜ?Yw“DÅ°«Üãšc†Xlözæ§^¡ :Þø„ÙåÌ—+«²YСMãs)—¹d/b\Å|Uìj " :4Z͸ƒyüvî°:Ày¬Î<éÊ»$né@¦ÝåÒq•”N¦icj’›bÛOΤ–›â;Tž}gô,èPe!ãٙIJ »ô Àc :Ô8—Q}ôÓÝ,Ì¢¸ãÅÖ#„ƒ^+7*³R“Ì#w!ã%Äܨ=ãäod¼”80-gV% LÁ™Al;cŠÎ â;TìÌæxÎL":”YÈx.q¹”GÑÜY•¸ˆIjç…w53.#Tdš%SS¡Çrmб›q'q`«]Ä-g¼’¸‚$–Ñ]ä_Åx5q`Z®mœì-0×±íŒ)º6ˆïPy¹{£'Ó„. Ì!7N <rÈAEŒêsÈ-o–D3–‡ƒ®3^CØjq˯%.™º&ümtù{÷¦åá&ÈîSðpÛΘ¢‡ƒøŽ[Ðy“H“ e2&Øy› 7¨±˜Q}ç­³>M¦2'm»÷—kåÑœÄ-gÜO\.Iq‹rcB¯ëËÄ3åôœß!ªc9¿†R§Ë‰yÈv–œbnLˆŸ`Z¹1'ÙŒ5sקժEmu=¢^‡Y/ài¬×iÊ|Ô%T9›qq9ï-(@ÜÆÅÄ3ñ5H-ŒB…%ŒK‰g–*Õ-P¦‹±—80 ³\À¸’80¦YÞ%ö/è%Ǫmb[‚d‡±n긞õt»èy¸)ÑÒ´­sßνNW7ç(ª;îtÔb«éˆ#K8”1D·„ãð‚ÛàÙ^m'd*èŽÑ][¿“jÛ}Œ?&TT$¶<@‘_1þš80‰*ôÆÿ L«eÿ†ñwĪL}Ëù㟉“0É3þ…80¦I¾"–¸ý-IþF¡º† ›5my8/%Î5ú-ö™hîhæâ/#s¯39æ9 Û,x?±ªÞ_ëïÖL‘³êTõRiR³p|±‚LÀ¶éõ«¡Kȯ§˜:£*dðU¾Ç?)QÃþJ˜ý<óϱ#û5Æo3ÿv"µ,ûÆï0ÿNìZv¾pùfaTÔ‰£êC_ä!Ôû.ãߘÿ-ù.ê²·Šº¨Õº¨ûü”~HT!Îìr«;:¯s·&v™¢=ù£êé!zµMEq*Rל1¤Ð(Xe„ïÚQäF!Y׆Û*kŽUªb'=ì}ÃÊÈ%µy—$ð!.ɇ”µÁ9¤¡Ð¿3~…8°Õíâ>ÎøUâÀ˜5Kii¨ö5ÆßW˜e2Ü@“?1þ…¸\ˆŒn«ÿfü+q`L[ÅÎ! uþFˆ<‚Ÿ¤Î>9¤¡ÉéŒ ™/LÄ>"s$ðLærù`ÂßÊç†g1žÏü|u9¤¡É Ææ=Ê 3Mi\ÊØË\j„¬0‡4tYÉx s¹ =ŠÆ€Pd ãVæ[“i6·1—Ëkþ¶ŸrsÕhcõ¨>n„{9Ò=‰ìvÆqæãÊÌ'”êÜÎødæONƈŒOa.—,0ümÌÜxPæ©Œ÷2¿7ížCö%Œ/cþ²d¬sã?1ÿ§ØÖ‰•”ª¼œñæ¤íýÞÎøæïHÆ4od|'ówÆ6š  Ðé]ŒŸfþie6Š“}‘ñÛ̘µ€8¤‰Y‹Ϩ˜µPàå¾Ëø+æ¿JÝËýŽñ˜ÿO2Öù5ãÿ2ÿßô½Üï s9âÀT½\nc;q¹,¢‘M“kcœO<©÷º¸9Yë:’Ù&ñJ'2>–8P‘‰å³MBŸF‹80 KëŒâÀ˜––É6 nct‰ç\e†‘Ë6 ]Ž0>80 £Tï Œi”¯Èd›l4×{çD‰>‘°m?ñ6¹=OŠòNB‘›&PÃÚ®c|4q`Ì&‘w ÜÂøXâÀ˜ŠD^±¹¬écFÍŠ\*‘dz.§gÍ0ã…‘aæñ™T3Ì@ü ¦•aæ lŠ'(­mÑëĬ°iKªNl…b,|VðIÚ?;@ÿ“´OdS<1í:ñ$VäIqëÄ´)‡ú:Wui{8´×eÚ2ª—G ôôvénaÔ‹Ç×è¦5 Ñ“è9—ñï\&óBû“âZjlÐÿ$]ÉîdÛÞ©´’}âÒTªvÅ¢;¸§^¬NÚØkCù„D/LC!<^ ³c@æ çŽNPÔiôŽôzC;cØâN >츿۵ z™^©–‹ÞÝ t½ž¨-:ŸþNýÁ¢¡—ÐùÀ1®hT4ï+Ç);‘ûOæÂ~ WîêÉX6~ «ñ¥6–ës<•uyj&fŸcZ_ÒÙ¹JŸ’¾ìÚª^vMWG*‘ ‰¬¢ú§’<ëY¶Ô• â7Ÿ×°Pcc€þ'éúõ4¶éÓTÖ¯ìkk»nð3‘Q"uG„‚i³’Ñã!—á¯ó™µthEMì!òbÍmášáô’ÁãA}—Ùu×o-7lGäQ“IÖ0ýïM*y¿PÕGü±¯æ ÅZ§îyßáÙª7ðíêÖx¯Tç”ÍR]´gžZ8ô@­Ä—]u9ݼA÷”¡±÷K›ÂAÃÆјuë6hW˜CCPÚp5½Ô‹ŸlЮÖo5ªe”]·–ïëïß í²lÛt𯾾.•9ÝžÎuåéq•à¯U6.në<ó MÞÄø–Lb×RAÜ¿0¾5£êZ*©ÎPámŒïbþ.…6ÉKÙ䃌20›¼›ñÃÌ?Û&k»ëgº¨5ë.ån›°üÆJ–BA~%r¢r(ýÆß3ÿ½2+ÎrŠrMëo„ˆÔàÀ$Ìø›%ž‹ßß‘mZb}8‡xN¾»ÓÀ(Rm+wã)Ä %7—ñTâÀ˜FY]Ûj\ÏJ­±ù1Ûë/Œ›º+Û²pÀíÄŠŒ˜³¥L¸‹q7q`&¼‚qq`Lî¯7aIÉëÓ¸wûBþñ‘øMÉfz 㫈礻6¶pYÊÂo`|€xNjLt ¿šñÄ1-¼¢faG«xut‡•$#…žÜwË}8P‘Ýd“‘B›ï2þˆ80 ã}ñÇÄsrgÃߪHF ~ÂøGâÀ¤Ç©Ï û¨hDúœÿ3Yà‹x $#…ç2ªOFÚ1eîIB¹Œëˆ•™¨Ižˆ»q80¦‰¢'³‚üõŒˆË%bUãÉî" LÁ“Al;cŠž â;TžÌjß®-Ñ}”YȘ`2«»èAÇ@2+¨±˜Q}2«³ê¦Íå´ëfÜBØj§qË·ÏH~ª+”K8c¯q:,aEcàÎF³õ]‘Ý!4ßÆxq`ZîðÙTG¦à!¶1Ewñ¶ÂFOãe2&èŸM <Ü!ÔXÌxìºCh×͘ ;„¸åŒêÜa?»Ct{›øÂð:ftu·1V‰ÓòÏ¡Š!0±íŒ)ú@ˆïP±œ+|àŽÈNÚ,d\D<‰\vÏ¡.æ_Zœž„K—cNÚõ0n%.ç¢9Aˆ»ˆqñLü“é›Ñ Š­i£†kØ–S0Šºãš­bUª¼h"v” ÆÌ«$ž?µÊ†ëŠþo¾ñ_‰Óò§Ï¥:&0 ±íŒ)úSˆï°%þôšÈþÚ,dLП>—x øS¨±„ñØõ§Ð®‡1A q1ªó§û™?­XV©ñF­s‹…?aèUøÉ|_t?‰7ÚÎø"âÀ´üäÝTw¦à'!¶1E? ñ*ö“'ŸŒÞñ„: —óXÑåÝô À%üKKÒs”Pã<Æ‹ˆ1G íz·—óXÑ%Äu2n'Œi«—Äv”ØrsLôKQ0W0þ80-û<ª‚Sð·ÛΘ¢¿…øŽ•ûÛ-WoÛ·%z†[¨³1AûÞ‹£ÁŽéÅìÈGZïce±²r3ø¶¿í;`%Ç82ꎕn?"Úö‘ÛXU÷ÈÎ útÝŽÞV>rAÿíG.Èß~»ß,¸Æ!÷ÈX¿y{Ó¼é9×ûqOóó˜ó®Û·mï®M[öîiòšŒ»ˆ£½&ž8ñ¨'ŒÝê½I&pÃÈ2ÒpÃ2 CÂ<»Czï–Ñ[|8ãÀ =™&NX™ ãÔÙ:Úý@W³Òº~ÛÞÍ­T³±TÔß–Û(›™>;D“&’RA5Tq††š–õD+MXê\v„-mSáoûÅ]A%ƒÄ7ž/F¸1Ç ‘U0†Gz<«ýøÔÆÒÆž£k%q§X‹'ur­ìZéýT6†<ñ=ÄÇE yoHï÷Êè­&†(Q£ñÅê:g® RE‰Î‘Š:ƒÍPIJ©ÔêûˆrZmcZ'u†£¦ÍÕ}Û«m>_ÖåC¬Ë‡”µÿ“yEn£ÜY(õã‰[=q2~‰80¦}r‘“D@þ—¿B\îž6%A}8ð<ÚFí€s›íýÿÈsR·äµ‹5ÿßyñï-À5Ç ‡~l{®>ôOñ[õ?ð~Í—ÖíÉñÄ@J'žOÐß]a›+ðãøQ³ø1c¿á«„Ù óÊñÑoÈÞè-xd½•ôÔ¨ÑÐoÜê=[]ÛdújÞ;jßC¡Ñgê{$ÕÒS*ù†ï¬ÂߤUgšvoZ(uúî"×þv5†Çáás°Yk'bY5tòÑé«?1œëk˜¿¦5½¡èGé ÔßÇü}‰ô†NQàû™¿?¶9¥RŸA…0~˜ù‡•™§£Î<Ñ7[B«O0~…¹Tw-º}>ÂøUæ_M§·*nô~¹|f⸽ճêcX‡øûvö÷ÍSÎÔ{Ì~ƒP\6ô Âã¡÷˜›è ]o%½G5j4lÈ‹¦öC½‰Ø­FÓ¨ý=…fš©¿×¼­¤TV µœ¹Å¦eæý¯J¾ÿ¥¨qÕ?eA”ëTÕô9‰õ9©EQ;úY2hu:ãRâ¹¥‰DíÜÉŒÏÉí“­'Ù«Ê]ÈØI¨È>§ÔÛGª[•[Éx)q`êb¼Œ80nUîrÆMÄ)u«64š¶õÂô· þÄù¡‘öÔ¡v—¶RËËNçå63þ qàqÑ!{]Hï×Éè­¦C¦D†>à²ÆÓy°ÞHõÙ”¼Lä>›:KÎÔg‹ÕS*Ά/"íÒ²~óÞ^ë¤ÎÐÛSÓrÃß>­6Ûv[9zmËrýi6}Ü°q¼Ã?‚‡ël½Ÿ–‹ïø­Æ¾Q$ÙÉ÷õåéÀŠîý¶e[Õ‘Q­h:…ªã„æîü‹” F]žnyoÚÖK¨ÈIf„2«×o“ºá'r¦ûMmˆ·ÅOY)ÛÃl»„ñrâ@•f‘šNm»‚ñjâÀ$̲‰qñ¶ø̶էýóïê¡ŒèÓ8ˆµK¹m7ãó‰Sêšž{À{ÏЮ™•¡]3üȉxÂûnå˜ü¢qÛ=Œ#<z™m…ô~HFo%½L5j4ôçy½ÌæU@¦©FÙ¨½H…–š©9m›I©¸*úHZnZ†lÚ!l¡Ôé;„ŠYøÛî®^m³©;t£Js4à’ÌJ¥dÒ}æµâbx§ß²Æ¿=zm¿gü q`݃ÿdü+q`ÓNmcü?âmÿw tÙfÍfl'>KêD[t›üÅÎ'>+þ 6)›Ì:‘ñ$â³ÔM¤Ë&·„6<>ëⳤnQˆl”Y<>ë\ⳤŽ*+0Ê"ÆÅĪ4ŠÔªÆ,žÓŸµ‚¸ÀŒ²„ñbâÓ0J7cqjŒ"Ž ê¬bÜ@|–Ô<ºUz/!.0žUæH]‹62n&>k³Â¸"•öÊìdÜM\`vÙ¸‡¸Àxv9A«–K¸ú\Â2×0Þ@\ ËœÄýÆÛ7]½o›Œna¼•¸À t#ãAâãè ½Ú¦R‰'>ÐÅÊ¢;iTѧ.ˆ ¨1qÚðæx­Ó©9Û¬¸ŽÖ/šb^\¥æOæ²åÒ‰Ãaï÷\ñˆc,Äu÷ÞW:ÝÀÆóBC“t7"Ä™å‘è©PN%ÂÙg¯¼"õ¿ŸêŸþ'¦wÕŽúï,k[÷Æ@¾ÁÚv½rõFGº6f‚iÍ2 •¶§êãºY"kÚÖX³{ĽTÁ«TÉfNxuÛ“W-év·fGmÛ/àòÝA@Em[æŠlhrã}Ä­nÑ÷lÆû‰cV ©Iq¨ðÆ—*³Iôk|¡Á+_M˜„M^ÊøâÀ˜6)ÏV-,[ånm¨Ji"¤è(šLžÇ´Še»ž#4‘’+hq¢‰Nv“wE{/x¿ï®ŒÅ_K˜=ù i·Âlã©ÌOMÄâÙyŒ§1?-¶ÅÀ…Š˜6®—ª†d›Ì.`\Æ|YÚm2ÛÍØË\jE3º…–3®d¾2¶….…ú´Î1ý ’Ã"º‘ÁµÌ 1Ù(bQÓ#wg¡yãAær}7‰dÓšÓf<ÄüP2æ,1N2ŸŒmÎm"‰¯Y& ')×ïµ¼ÿØž½ŸzýÍr± _Ç¢“9²“Åx…ÃŒ2P™]¥®/…*gü7æÿ–ŒQ?Ìø)æŸJ­/“ý4ãç˜N™Q$gð¡ÌW¿Åü[ɘåóŒßfþíøf‘ìög¿Ãøæ?P×V¦ÙŠ?­Q~ÆøKæ¿LÆ(?düó_Å6Jô‰IÈÿ5ã0ÿ•‘ IÿÃøæHÆ"¿aü#óø¸ËMJB‡?1þsu‹]9[Æ&¹ÙŒsˆ“°ÉßYì\âÀ˜61Äá9Þ†#4%c±Ü Œ%â¹Rê®1ç0Ž&`ôÜãq`L£ŸÕ`06äueìtˆñ¹Ä);ÌÜýŒ/"LÂNw3¾˜80¥î^î%Œ/'L×_òÌŠØýÚŒÊÝ×ÓšäŸ_G¨b£²9ñ(IÆ@¯güq ÊþxôÝP棌Ÿ$LÂHdü7â9©ÑY]Ì÷:öHU\5#aœO1~™80m—ö-Æï&aš¯0~80¦i6¡Ë ܪ^òº ˜Œ(FÝ™’€“ºÞãVÙ{´vƒ„A¿OØvq`Ê}‰6ž¿kë"LÀ mã âmRÛNêJà9õW5oàc&âB§¾.‘Zµ0 +V²9Œ\±×pÜFýÌN“:šËq›>äŒZÕ’×iñº®N­Ç)×Ól»˜ñ½Äi׎3~”80‰Úñ>ÆW°3µÖÓìòB¦YFÊý­bü6ñ6¹y›dB„R3þ–¸ÜÙèã $±õ;„1-¶«»6rÛjÃ;§bÌáÉæ’ÅXÂѼ&'ú¶ý!6‹MHŠú®MsŸNgÚY[·Ÿµ-Óκ”q;qñL;¢ñ•+ngD×ĵ}m{ÐÅþÜöG×iìzùÄþ §b•‹Xr'¬Ç,bÓK£Ïº‚ñMÄ*2º+eôw2¾‹¸ÀŒþfÆwÏè³4)o;ë=Œï'>K.«XC‹T¤,ò¯Œ%>+™˜8ëŒ#>+~LüU·†Æ„sã†çX;©‹¤‹õV­ 4Ë"~Nm3ùàÚÒŸ¡ WËâ@H7Äö4*¯ÖzYø|¯GU6Ft¨ÖE½6Zàu§üîLt½#½23ð³8ÌÏ~3qj*^§áôR¡³>ÚwkscO_o_ÿºn­ln\Ý×%Q=g¿‹ñ;Ä TÏÙoaü.ñÙRÃ)¹'M£TÄv9¿&Ì`mԉ膞ý=Â9§*2ô\Ïœ«úÖIØqÎÙŒçŸ#5VŒlÇ9¼±eŽF|ŽÛŽmÑ·ˆBó/ >'~Þ£È[D_H&õÑÿÄTãoµ-¢µˆç] Ýœ1lƒ@owûm Užjò8»S‘WaÈ,™î¤ï C?’ ½pN¢ žä=Äbç¯ÓE³‹žwÄÀVëœrF¼+8$Þx­Æ“"ÞÆóv¸ÁY"WËØÀ¿± þ¦¬}ž.Eñ.ÑÕËú¸ùBe uîçÚªå6jª/¢_‚Ïd~fìªùÁ.?öŠš×¹Ï(›^ 0\¯Röb&%߇ðmñôBÁªzuJÜ?Z_C…k.^·b†ª®Ë6 ¦¨¿^¢ËN1ËRÛJJ•SEÍÊžÅøeæê&X—„^¦þ]d«ÙwÿÄüO U3‘¥øgæŽ]Ͷժ™ŽŠ6\-Õ–0šU9l«K‘¼¯¯ðÂÜeĪ"=¿@ÔHm¶3^M<—@~ˆ»œqq`L»vCoo±>j¸…2»ÏIÝç/꿘Ì룢¨/}5èKXàS˜ØuTž°¨éŸù€ø䚪ë C—͌ۉg¤VÑ£ ˆ»„ñ âÀ˜¶”Í-v0î!Td˜x™C ÓõŒCÄIèÆq`LÍíÕnÀò­„}ŠŒ·ÏHeOihŸöqw²bl\zõ>©ÖsãaâÀ$Œsñq`LãT´N‘ÈÚÖ«%·‹7 ŠÕlxÁšºŸ1›R½Ô7c)]3n«òÂJž³¹ ÐäxÝ´)òiçûºdö·ámÇø+â¹#pÎ^}G8Tùãÿ&aÿ_3þž80¦ý¥NR@…?0þ…xF*Ëd“˜¶EÎ*Ùãæs’±Ê_Yì\æñŸQ¿FÚ"Q‡ÀEÌåÆf¬4¿æ@óR¶º€±‡yO"¶Ê.fìeÞÛVbŸr…yr…«‚½ù¡Š,V=–]4lm¿>Y‚ v^¶0n'.·%vÚ]^¦P®`¼8Pq¡´(ØM„ßÈxqG"O£BüÍúŸ˜jÓ¨0Q¿|§ûõâÂãj ŸÃxM£BÝ%!µÕiT%z¦ÒßTV‘újíÚŠþfkk^ìþf‹+œúþæ?J= ?¹ÛÓÚB˜¦Ûwü VWðÉO£BêyŒK3©M£Bü&< ©2ª›F•*„Îýd!•ÕS7›èÓt<YÉØG¨¨i6Ýq]ŒýÄ1Í1Wnw”È3®#žà\6¤2¦8— ñ<~没ð¥ŒÇÑ\6ÔÝR{³ŒÚ -bë™ÚØBI Gîó©³k«Æ­«yJÆ-¬p­[ü#Ô³ðSRá£u…0Cÿø¬®à7g’žË†Ô-Œêæ²¥ áŠýªnõT·z7ãâr¢w«w0^C˜†9® Ðÿ(®“M– t/ã~â™ýñË êRÄ_ ÿ‰©F³¥„È«=o z.ðlâÇÇR>‡ñ8ZJ€ºKBj«K JôL¥»¯¬„#uÃÔÚµÝýÖÖ¼ØÝýW8õÝý”z~*r„om!LÓë>þ«+øä— õ<Æ¥™Ô– þ‚^J€Ô S\J€øÎU/%"y ÈJƾLbK ×ŘúR”È3&¿”©ƒŒ).%@üÆŸ¥(|)ãq´”u7‡ÔÞ,£vBc‹Øz¦6¶PR‘û|êìÚª±Eëjž’±E +\kÆÿõ,ü”Tøh]!ÌÐÅ?¾«+øÍ™¤— u cŠK E€ª—¢_ Ev3îÉ$¶”q;¯ÉÄXJh(öT‚jI·HF“v–|-qÉÕƒºŠuâ÷èbªÑQ›ÀŸ5¢§x€ê”Àâ /‘Ø?E2žI\.N´Úù=(ð,þ¥³b'ù²dÈ?›ñâ’yw-™80¦U®÷ãzÞà:]sÌò2ëâúe$XtªC·\Õl‹ûzøîpdÚuÂß÷j›JŽ%ÅžÂøMâÀ”ÛÞÃŒ?!LÆÊßbü)q`ZmïgŒ¿"®ò~ɶ÷?Œ LÆ*¿fü#q`L«¼I3GF]Í{Âí Wžû·«»ÒÞjËÄéFïHo·×N‡-ocêîtÙ®mè.îaîêÕv–½¯&µ‚ît;¥ÕÆ¥1Nµ0ZK®Í7r{¿iÛH®‹D»Óí³¬—(Éj¬Ôª(ª?ŠÌá"ŒYdÒ©UßHUPà<â@ÉÊì=©.µêé <R«BsT”Z5˜2ß›Ø|À6_‡´ù2ͤ7™ª{='pÿ΂ØEyªâOÐÿÄT#uF(|ãYÄ£Ï^à‰dסîÙ!µÏ–Q;uF%z6,ÞV¯3*+á&͹ñúZ»¶b±µ5/ö:c‹+œúuÆ”z~J*|´®¦Yî;þ«+ø³ƒO‚—sg$U'‡²:Éuç–0^L˜`‰t3®$L£ZôèŽî\?ã*âÑ'¸Óéέ©½ZF턺s±õL­;§¤„#‡YuvmUw®u5OIw®…®5ݹ„z~J*|´®fèUß‚Õüêà“`çe ã q¹;*ë a¾üÉZ(²žq+q ââhrøB·1^A\r÷Z]•ˆ:g ñ;ô?1ÕæLéðsD¥Þ,ž!ì žàœé›é9)ΙBüé?s¦Pø ÆãhÎêžR[íÌ•ºN¶=Séd++áHµvmE'»µ5/v'»ÅN}'û¥ž…Ÿ’ ­+„iúºÇ¿`uv&é9SH=‡QÝœ©T!, 0æá÷£â»n^}Ã5tYÆØE¨¨b6ÝL qç1® LÃ"謖݌+3©M\C|_€ÇÏÄ5îg<Ž&®¡îêÚÇêĵ=SëS+)áÈ}uvmUŸºu5OIŸº…®5}ê„z~J*|´®fèÚß‚Õ|ò׺†q0£jâZªÖèTõ© æÅÑhA—MŒÛˆg¶%Ó§ÞÀ¸x'Ð!þŠcž@oV-›, @èÆ+‰ã–AÔˆ¿*@ÿSú„È+;o¡ .°ƒx‚ o¡ç¦¸€ñ§xü, @á3£¨{vHíx€­ì(Ñ3•ÁŽ²ŽÔ Uk×V vZ[óbvZ\áÔvþQêYø)©ðѺB˜fÌqü VWðgg’^@€ÔsS\@€ø%¶`!z†貌±+“ØÄǘâÄ_` Ú͸2“ÚÄ÷xü, @á~Æãhꮩ}¬. (Ñ3µ>µ’ŽÜ×Qg×Võ©[Wó”ô©[XáZÓ§þG¨g᧤ÂGë a†®íñ-X]Á'¿€©k3©- @üúU/ É, @—MŒ . @ÜÆX  ÅN—3ÉIÚYòÄÓØ÷ñ;T´ï¿3”3Õ,Œj¦ãgâqô1Jǣ鎦G­¹o¥ú&°“¸ä ø¶¿í›ÒÁ6Æ*£Gn§>açýºnÇo+¹ ÿö#佞!ý^{^;€GŽ–÷—hò‡ò2QïÓÅxq ‚(>çÀØ­žê¡öª²s}/é}¹ŒÞu£éÜêla™VªÑС| 30ô®ˆýeºEêï¨5Œß¯Î5©:á†Ré4Ôkšæ˜–¹D[LXê4Ý2e‚ëÊýZξ&²˜NXÕRQÓmÓ14³dp³Æ*ÞË#+ VÙµuÇõ¸Èg–‹FÅðþSv)£Ó5ª…_ën~­»“®o£:é£ÿ‰©ÆâZpÝïT«âšVÙAL6¢Šog‹YE¹iÞF p;UÛˆÚ„62® .7Õ­7qKã%õ»Û«ü#Õ1‘Q4³TÕ¿êµC«\PŽ6¤;FQ³Ê˜S²ê¶9‹!Þ¥›q’80é¦ð®gïPÚ¤“)¾“ÕÎcuæIWû3ã–ÔX ÿI«tÞÅ¥ó.%¥“iÚ M×k"¾ñdâÀ¤‡Éß ÿQäç,ÝuÍÞ½K£zF(³ñ\âÀV{Æwуñ/-Šm’3kQ«>³„¡3*2Ô™5'\²F4¯sP³u/æJ(¹žñâ ogi:4‚¸UŒ×Wp5K®;ª‡ƒü½ŒûˆÓòpï&C LÁÃAl;cŠâ;l‡ÛÝÃA™…Œ z¸wÓƒ9¥3¶ÚÃYÅ¢#åá ÜzÆk2‰y8ˆ[ئ‡ƒü½ŒÇ€‡{Z` bÛSôpß`+úp[#{8(³1A÷zPà1çá ÔbFõ‡ý7ÿ†‚B³‰‰é´\Ïx-q9_ÍÅAÜ*ƽÄ\l—‹<­ùû÷ÏìOÏŽ—,-0–‹k(õáÚÌÚÆéí,¹=ø$=©ñóô?I«ñ>¶£¢¹‡kÕbŸah›ÂAÜR.j›õ’>âêŽÖÙ?88ÐÕ­m©Ú®YÖ WÓK½Zg¾¯/ïýt[iȪÚecêÏ·ë#†] ¾è_å}±KŸÿJk´ìXeñç×z?ßmL¬±!Cü`÷ƒ}®QÓÃûû»è¢µ›¬ª´¶K¸Å¢éªŽ#&hiÔ ¦ú"7¿÷s9ær~8ys€Õø€Rs+Õþ «ĵìCJ‚t8|ÕÆïñŸ·t Æ‚ÓžÓþ0—·•”N&êxbÛSA|G€ŠÇCsŌϖÈ"h³qq¹‘I4ÇøazPàbþ¥øG\æÉ-¨±„q9q "ÛœS°ÊEQ5î<ôëaÜN\áž¹¦ƒ ˆ»ˆñ â 6ÌEŸçüŒ;‰Óòk![ LÁ¯Al;cŠ~ â;Tì×NðüÚ5Ûöï‰ìØ ÎBÆÅÄå‰ù“bÛçr8q§bÌáÉ©Ž´Î…â†vÇ5ô"<1ÿü°„5ïdü(ó¦mÍO1~šù§“±æÇÿù¿Ç¶æ™Ý^”õl¨—c7¹Ï0>ÌüauFªH錿dþËdŒô#Æ_1ÿUl#iS›œÉ*–Í]©.Höׄ¹ùÄsr‚º NtÅr§3.!ž“šŒè‚äNd<80öØ}`Ãî‚ 4ËEsÜ,VõMì}é¢1ãPÅ°Mì2) û‹bâ×\ïoxÎN³×èí–°uNctˆçe¶>í—ÐêqŒw&ch—ñÉÄ1 ÝÓj¡±‚Di<…ñâ@I¥Ž£ÊxŸ{ß@í½ðDÂG•¡ï!½Ñ[|bUV¦F Ž*+Ó­±Ô&G•Õ¦uG•Õë~Jâ¨r«ÍÕø¨rk¥NsTY]Ë »Œæ€º´j¹hØÚåŽj®mè.zÌNŒøì«úyVõóÊù‚Š¹Q7WvŠË.éÚ›µôéºÒ¹¯1þœ80®tî Œ¿ ŒiÃtõj›ë'Cé£fë´b¢SÌné…ƒ=½T¨–Ä¢ ÏX§ÎoúÓ’GÏAöj»-—O½ãÉq½äõšýnÄÔVïzËMÛº EüÍQbrµTûía©¡@î—„mŸ"LutÝÆfoû"q`µ­íÓŒ_"ŒYÛf‹šÝ$m_fü:q`ªcé¶ï1~Ÿ80 “|ƒñÄ1Mrn/Ö1tN›^›G²í´ýñ/Ä©¶ñ À6â>¶ÚPe±³ˆcj–&e‘Y³O .0ͦ3«ƒñâ[o‘YóO%.0žEöb¯l¹Ú°¡SÜ¡Ž®˜ã^Ttkëøœ v[xQï¨ðG;€‡"ïÁûœÆX .P‘}wo’±ï­Œ‰ LÀ¾EÆñY¥Øö~ÈòÇËÄg•cëyáûdLýOL5æHí6ù$ëòIú·ÐeŽ²1ÿ€Sr¼.¥×7m üÕÎeásƒOÒö€øô?I«ñolŠSZ-ڢ׉O±"À6VD]\ž¡N< Š±ðYÁ'ic@üìýOÒj|šMñé´ëÄ¿³"ÿ·NL;…ÕݹºKÛ#vâìá%…]þ9ôxw®Þ³ÉiN:‘kþž¸gƒÌÍψkY¨qi€þ'é ö¶ëg”V°—R,"Kub óŽ÷š¬0³qiª¡h‰œ¿“JÖ½~˜Yv-êµé®1bÙ&þä5nôâ|X6´¢álsÈûÓbŽÂë ²Ë‰Üiø,—ð¥\B/MÞPŸc5>§ÔPr†Ï³.ŸÏÄì4Lï ¶ØVyH/Œ^äÙ·TÕÅìÄ~[/;ȲË[áöÓ’¥Ä,`¼”åKµ>ñ›Ëãjl Ðÿ$]ǾÀvý‚Ò:öìÚŽÌ]µîšÞ®íˆÍzɱ0Àòg%õ‘ÛñÚ·vT%ð'±ßq¬ZrÍŠ7²CâMÓ”ûÑÔMx•ªç+&5O-öùJ¤eþ" ðÙ\$ÏV6„ë´’©ó~Ó£lØzÉq "³ÌCüAWB­NÆ>âr—{61L“­¡·”±Ÿx¦_çàÎQTG5òŒë‰KÞV¯Ž¤#û*YX` Ž bÛStdß bG6{é¦ÑýtYÈxq`«ýØWéAçò/I¹Ïø~ *,bÔˆg4eV9«6P˜2Þ‘Ðò"ÆK‰ËMçFskw>ãeÄ1í´Hël6$Šìé ÙåŒ7¦åé¾Fu@` žbÛSôtß zO·ydO]2&èé¾F LÙÓA…EŒZæXõtÐî"Æ=ÄϨÎÓZ?!Ôymê\Îx q¹¼üjÜÛ×Éðc¹·†R§K݃!y;KN1uÄÏ0­Ô=ß`;0*šÆy V-êÏBLì41µŠé0¯¥cÞ“ö;”Ì‘QÌ¢ú ÚÝ c‹×œÐ†…¡É`JóµÔ@Šf¯@i¢E£á|AÈ[ aò×ÄñN2±À¾É|€ ì”ûÞÐåíŒï&luD‚¸72¾‡80fÝ9£»AU‘±Ò{?C(©ZÜs·gô÷tö÷pCîݼ½ë–#ý+ü/O_êf×-ÞO»š¼è´§qñ–Ÿeüq`´·Å ŸÆ…¾éýg½k[Kr3öu›Dlej4lÒgèlhþÈs•©ÙXj“ƒ¹jm”ÍL¿‘©IKI© ªøÈÚkZFl|\·µR§9®«®i…¿=¶-ÅnÜ,_’:âÒ,{ó“RYB—ÓÏb~V"q<{2ãÙÌÏ>fâxöÆ^潩ÅñÓz”¬‘:Åß´÷ÐzÓCØ3ðìJÆýÌ#§™L'€g¯ é}ŒÞJ¸5¶å…:¶»LôV£cÔè­Ð@3EïFí#¥RjœöcÆVš–õš†íJ>l+jPáoí‡mÞ{l”éÃÑÓþÙm:1f•-×*›±MÙ,{"t‡N‡«å‚ëgúáºÞÆüm©E–yµÃ?h¾vÆ@Â383)ø'Ž“@òÉÞŸ”Ñ[M Q¢FÃ@rÒΚ™¥â‡Õ"Çuv™)~„ZAJ…ÓP­æm1-c5­“:C¸PÓlêŠ=òGXcþo±õˆ<§þ-ªC>*šSßV›SߤuWG®ëúd ®%¾ ÍHÉ>Y1r+¶5né|_ÄWù6¿ p¿Ê¶X±á”Š§vÇ>g of%žU8j.™eNüÐñ÷)ŠÏÅÉ#Oy ÷2ÞH(§ñQùjF“xÆTXMf n;ã­Ä‰;È?ÈX"ž‰Ÿ=#²ø·šï(urP¿Ëº|—þ‘>€ÚPê  >Ÿ¡¬ßͤšµâO0­¬ßcS|ï¨ßg]¾·ZLÛ¡[v [õ’XŠÝgŒ™=þ¶„îèP}ãZ¼Vº³7תPc}€þ'éÊõ6èTV®ì•A§£d´¢Nw0ã¾c\¤\ûùþQk¬"nLö¾à›Å·tµrmÙ^ õ‘’Þë§TBõÃAýðÐ4Sc}úƒÃ¢ßƒSV†S-¹|ÖÙ6F¼;âh°°•{Éñà°U¨ŠcÏÞ—:R:Žy$ô !au9ºõ‚m9Žzšn %„ ]2¤æœíÙž?„˜_©l(šs› iš.N@‘k÷2ßÛú®Ä]Ÿù¾ØÍ«¯vHÎ…q\,ä¸f¡–ëÕíÁN—J0ºõÄÄðNæRYЯ.y•X:ÅUîb¼›ùÝ G‡MºCà“ŸÇüy±-¸ì4Úȇ©¡âóßÍüÝê]ôƒ»PäCŒ20™F÷Æ3ÿpl“-¯5ºð™ÚÚm^äY¥löÆŸ0ÿ‰:›E?E~ÍøÌÿ#›ý”ñ7ÌÛfÏ¥åzq98W]±¢Yp-»–Û¸AØ-XÕ²ëÇhᵂ߫o©CUW$0ƒâ§£âý˰Ǻ¤Îà£~K˜› ž“»¾a¢v;/S/rg¼ƒ80z‘;ÄøDâÀ˜õBúX¨ñ$ÆgJª“ão»#¬»øK,m{oÉ7Q~Ú5hþ,Æû‰£½ž8jeî±[Ö-²@á„ŒâñY”©Ñ8ÏÀNÏ®‘—W”)ÕXj“åµ M¯6¾]¢y…O«X/d´Vê4 êªføÛMµtÃÍâ$~ìv½pGCÓÒ¤@âÖf \c4ô¯ók¨Ë3Üi¹ïš-{ö.•‰ƒßcü5q`qðŒÿA<'Õ-‹Ëü†ñ¿ˆ™ç”šyn’·Ï Ûæo“š´nŸß±Øˆ·ÅŸ¤=SMn(5ñ<â@U1K27´YÎØM˜€¥Ú4ÆâÀ˜–R‘õ2n"Œ©Yä¹Ø‡ÉÆ>ª™‹•?k÷#V8Õ™']y—Ä-¨± À´sãü˜KçÇJJ'Ó´159h ±íŒ'gR;h ñ*Ï#‰ ÌBÆsãü˜¨.7Žôˆj,f\F¨È4çÍ°â"¡l7ã•Ä3RËÑÆ”·œñ*âÀ˜&ËEN"ùW3î"LË·ý„ .0ß±íŒ)ú6ˆïP±o›»ô&)çm2.".çe¢9·ŸÐƒó/-Žm©4Pa ãR♥Êì²a»éŒöEŽf÷¸VÏáºÝåj^ ‹±@<#uyQ4§q0‰wzo0¦åô~J•A` NbÛStzß r§'7·m2&èô~J Tçô¤{tPc ãrâ@E¶¹ð‘l¤‘и‡ñârÙc¢y8ˆ»ˆñZâÀÄ=äïeÜG<Š´‡ûY]` bÛSôpß bw‚ìô)ÔYȸ˜¸œ¯‰æâ~F \¿´$~T8ñâ@E†¹|º~] \Þb£I\é–ú&®â.d¼•x*[ê!ÿ £º-õÒ®ïçT#Ær} ¥N—7 Ó•í,9ża??À´ò†ý‚íÀ˜Q3ÅÜTŸ7Ì1GʵåÓNÑÈ»fÜ)l"S6™e¤ ] _ÿ÷xq6tm´©Ëôê~ÉE|6ɳ•¹=‰»Pä^Æûˆ[‰ î9Œ÷Ƭ¯¯-õj›JŽå§~¡("LM5‚‹9† M¯TJ&Ýj5d¹£¡mÚ¦[[l×k÷8®¸eŠv–×ÿEÄ™ª]d‹bzaö2æ—%ß ŵ÷WJôõ½s¸ÁvëúÝÖ] 6H4ÛŽLåƒek‚¬‚;ƒ¤ØK(„MX=Ž8ùXéáV~Ô‰IñmöëŽâoÒ~T ÷¾;j95WQ[¬ŒXοær>Ìåü°:/ý"s(ò Æ_¶ÚK@ÜE³¾ýµWÛaMã†Ýí9yÜG®] ´¢eÐuçݶ‘Q"hâúU bŽ_!§ÖZìG5ðçË|õOð{!ÇÐÕ}Ô_ªUÄNÏ}F}'UÆ ~æ¸Ñå§ÈÀ |S·i¤ë4zGz#oœFÉÿšPôîÕÄÃ)è¥Bgm7ŠLukscO_oßÚnmÌܸº[+›úº$*­ØäŒýCçÏ%ƒù×ÔñbÏ%ž‹Ÿƒy…6i¥"®\ôëAÃ0=É ô\ĸx.ÞñíðSs=C¬iz^{:ãå®fÜK˜€ñrÛ÷ÏÅŸÄi‹žŠ ìg¼ž80éˆÿdREüçŸO ª¼ÞwÐoÞƒÅà ®O= âòY>ÇðÝgíâµØøßp¡ŸË…ò\uáÙŽž¡ÈýŒ/ luc¸»_H³rô‡:ñ"ÛÏ‹xÃÕåc6‰ÃAÝR;_¡î‹?E(©vœÓ'0\ý–üc*MÞ`Ú#PÿÓŒß"Œöx"é#PøÛ!Å¿-£¸øÄ:b L†­øľq#Ÿ3P¦Yc©MΨ5ËLç fªúi•Mãí•:Íau•4ômv¾?¦ö£«g ͹­êÅÕ¢]Áõ‘ µý”Áâïh¶EõÄE¥¸D¼èýÒóùj}ȱJ8Oã-ìÓ OÛ©—¼¡uud4á\õˆ0ï·J¥à0ý4.XâšÖ‚žÖ³Ä0,4”‹Þ/ DìeøvFö$iøÛÈý²ßR“òQQ¿,•ôQÿɯl]ú¨‘>J/YOHhx3ã0q¹½+M”úäQÐt/£ÚäQø‹W3Ž¶º« qÛG‰ËåÒù&ã­Ä¬¸EnþÿÅm†QQó—Ëô;Öåwôo¡Ëe5b†äQßÏPò¨ßeRMñ'˜Vò¨ÿfSü÷1P-þ‡uùŸ¸ÕbÚäQ‹·„ç8½¨´•Wóô ÂDRyãJ¸Rºüè¸Ö„ùýOÒ•êÙÿ«´R]WëjìáU¯çP±½^¤‰¬zɱÂ)œŒúÉlÏÐÅ°¡ýþlÄWû=¿ð:~µëR™ Í3ͯgÔ‰ýI(<R|HFñø“ÊÔP™g@™R‘Æÿj-2Óø_"Ï@«‹¥ñпµR§ú««šáo_ä¯O¯ÔööðŸÔ¥YC®.6ˆ yºæ¶I) ¼!Š¡Û²ŒÖ–R ÿôqCw5LàzÏaøm”¬‰®^m»˜N0å¾ ÏŸ¹xþ¬¬åÊäîñ4Ér4ɶ1okýÐð;‹ù¬ØõDzß:Ô˜Íxó“Ž·˜*®7ž‘¼ê(¥˜*.?ò?GFq%1UŠcª¥¢ÆT…iMLmi±4©-”:}LUT5Ãß.)wÌÀ¤¦çæ”5!‰“Pd3ãæ[‰mÙK·2ßÛ^+YŽI‰„‚Ðsc™yYݢ癄"UÆqæãÉØÍbœ`.—X1üm°"1äØÆÎ29%y¤’ô?x×CŒ?a®.ǨlúhókÆß1ÿ]2ৌÿÍü¿cWé ÑÿææÏ¥0cü²±ŠfÕ¤Ìü‘ÕÎcuæIWÞ%qKj,0íô?âÒù“’ÒÉ4mLMÎRBl;ãÉ™ÔÎRB|G€ŠÏRÎZº7¿4ªwƒ* Ï&žQבlêÝþD <‡Ijg±š!7Ô8—ñâ ÏRj¶>1ußG1Æ* ´\Á¸“8P™ÍšŒJ!îBÆ+‰Ë%šÒ•œ0ÝÑP¾j ¸¶¡»´Cßöú‘ÖXäãäÐó*F—xÆMÏþ™j†À\ Ķ3¦è!¾#@Å.pöÒ›$| tYÈxq9gÍþ™x.ÿRücgÖ|`ý¾# ;-bÌ—\:md§• •+tPzq„¸Ò-6M$Ä 0ŽW±Å&²ãƒ|“QÝiÇ÷ªSp|ÛΘ¢ãƒøŽ•;¾½ùí‘tYȘ ãû =(Pã“îüAEŒ£?hy1ã•Ä“Hýq˯"® õc×Ì¿aóQŒì¡æÕŒ.ñ4û~¥Š!0±íŒ)º@ˆïPyöÛ›d| ”YȘ`öÛ¿ÒƒÕe¿UÔùƒR‹ˆgŽ—Δ^Ï8J\éEÅM$Ä­b4‰Ë%0Š¹¿òoe/®×f 8&$$A1ÚxNâ)þ8é]KC?V-¹¦ø%×Ðʘ ,iEÓqmÓÑ@ï~6t/Äá Ò¤7ò¹æ6<ë%ü-y;ëRâ@EÎm%ë¹1tî)º‚³®`|qªj®smÕr›ÔÜY—1ÞD\`¼®J¡‹kלi2óŠ­Í¢‚÷j»,Û°Äõu‹TC· »vUf]uÖÍŒ".PîESZWõ 㧈 ŒßÁiýºê¬O‡ÿ´ŒâJz8jÔP¼®ªF©¨=…iͺjK‹¥iÿ¡…R§ï?(ªšáo†÷–­rÏaö¢îl®Óíû¬Û÷cëygsŽ+£ÿ‰©Æu;›é¯w4›në;3Ნš*~¥ßx#¿ºMµ§ -ãôO —Îh¶¾btˆcšý¬®`³t5Ü–(—ñYÄŠÌ&•HOèò|Æû‰™ªéˆ»‹ñÄ1 %µc*¼ñ¥Ä3rgñÔåöʼŠñuÄI˜åeŒ¯'Œi–å½ÚÏCv7;W ·õ:¾ñóÄc$+H£‹Î‰ ~›8ðØï¢ão}'¤øwdßEW¦†Ê.º2¥"uÑÕZ¤]ôVKã.zk¥NÓEWW5Ãß¾6Ü­äÃZEmHÇdE(+m”h2dÔ¬hC†;aô5úõ£ìÚzIÛÞS7‘†ÐiºNøÓÔ*º­!©¡¸©ªv[ôZÂ߇Ë̵„Ê*ûDâÀãË‘gŸÄølâÀã‘gŸRü92Š+qäjÔPìÈÕ(Õ‘+´HkyK‹¥©#o¡Ôé¹¢ªþv Ëëû—ç–-74[=5Å,-ܘ2ƒÍšâaÅ?¢¬MµyJK(ôIÆOϪ›.›Ö·ü+㧉cpûÉFöa¾÷XLEžLƒÎÿN˜Ë0ÏÄÖ=òdÚ,®ŒŠ&Ó×&Ó®'SE °†Ã>#6›U.fW}h¾„±‹x¦ëxèC@á!ÅWÈ(¿¡L •}eJEêC¨µH ú­.–Æ}ˆÖJ¦¡®j†¿}‡?,èe\r:äîŒ/ìŒÓL›7D41šÓ*–ã˜PÞhn8tS……ß,%Ú;a‰ì_^…ÁQÃûÆâOŒT½!`Ù5ŒÐ}Ų°na8.¶–IžÂ1Ùçýr76o®Þ£—õÒ¤cŠi¾®å;\pß9î¼úwNx|xõ_„ÿ…Œâj¼º5T{u%JEöêê,Ò"¯ÞÊbiîÕ['u¯®¦j†¿}ÙÑ^]ìÅÃÎ=¤Ì6‡›ùߢ9<ì9ý²K[ç°z¯u’šÔ VÙqí*MÖéŽV²¼Á o nÔöwYy¿ãTýDÜ¥IÚq9ÍY¸ˆ²O!Lzü2‡ë7£¢ñË™[EpÝ´Ðe.ý[è2GYuÀ©z#¨BpùL]Ú¹ÿAfá¡OÒö€Øô?I«q›â„c ZÌc]æÅ­Ón_²W¬ ŒÚ¶CÃq¼žšë¹‰Ã“#è»MJè¼€±%öI¤q͉ïô?Iתv.÷v•µ*{Vm²ä&Ó)yÞÚð:ê¥^­3ß×ßߥ §`›C´ {TdZ§%Û–| ãˆY2X?¸bÛî¥2öü(ãçˆ'pi´÷AÆÏWpi´%f¾tmÄ(˜V™:Ⴝþ••´ª`EÊ#SÑÇ vZÛNl {ÙO)cûŽn3•lÑ_ Ì^J¨¨ä&#O{B‘mŒÛ‰0~ö2Æ+ˆcCИý4Qõ3= Ë2»ƒñIĪ 9.eÈg0>“80 CÞÉø,âY¹ÜáoW†ìä‰lÇõLªÛ^“´m$ýŠa·»ßE¨ÈnmŽ!e8öƒÙ‰“0Ü»?LÓp‹j†ëò“ÆÕî–ŽÚû†faü6ñlü³°‘¼ÜïczCͳY`ÒÓb$6‹…§8ýñ³Lkúá6Å9i׉sY‘sãÖ‰i§:öˆþÒ&nÚŽ„’§0.áßY"£¤š _PãüýOÒuhô"¥u¨ƒ—ºüðQ)>'°ƒ•êPg9%}(j|„* Ï&lu|\Ì•xÿÒ9±ÍóOš?Éãïlê9H»4¯€Œ’S[¾o6þ›çÃyÄð…ò9X|*ǽŽè ‘º#vU!›˜Ñ;ÒÛ-$‰¿R»mÐß˵gï[쯔,·«7´ø=f:õ£ùJ­Ú¯N†uÂhK/•¬ £9ü£àÏ%ÌžA˜t3]Âõx‰ÒfÚÌFÔç<ÖèïmW×B‡Kf%j …*§2žNØê qóÏ ž‰_Aάõ`±}Ã(còNbÂç<öZÀnöZr»#šiÿÞë¶É˜i€q q`fêa\KÏLÙË»§zRÔ\òBæHm3ÎtþSœ®¦Ýuìæ1 zI7D*FïobÏTçdà%i3ïk’œQ«Z*â/@ƒŠçéD³® `ëe”½b^*áGÝß!mÂsÏàÿéÞî'7àƒõâ­UGä‘,xÏãÉÒdô#9°Þ:Âìq`ÒÞXãÆÀ˜º7>Ÿõª÷ÆsĬÙZ^Ó†eNe\HØê†qóÏ$Œi›§Ô·¤p×É(¡m„û,¢o2a–JxÎ,JUÞ¾%n¹VÏl©¨èD@Ý…¶‡ž¥þÓ¨×mê–™eBœÅøRâ sCÎå7“©¯b|=q¹,ÑëÅËß@³^Lõ¢¶Ê†úà4ñÕþ€_;j‡B:ÍaX'7^¾È­ûR,&x¿@ád,ºßÄK?@˜ežMa°¹”«cz°"ÀÄ'±0âŸÅÂSœÄ‚øÙ¦5‰u!›â¸u¢¡Ô W7KÎÑ’ý½¹eJkcä€ø\€þGÒKç㪳²S¦bü q ª®ÆÒIs©„9³9ÆÙijR3‘ÑÍùW;‡80%7™Ë8ŸxVjÈÓÄ(ãrF9ñ âr_"%{"ãBâY¹)¾ð·§ÓU†X~3†u$µˆ¾†Îd\A˜ôȦ› ̨hd³F6S(õ’mèÅI–Ï™âzÄšœSÝ ˆ—3#¾X¿p¿˜T_Vq°>71¶º!@Ü~ÆñL!¶¯í+ ]sÜ•>Õ´L‰‹ª'lÓu½î¹ØŽ$aÛ"ãˆK.¾6²í‰¶Q)éCj•ÞÆøAârA=ºy`üq`Ló^X»æÊ {»®^m³tÒAhø ã‰Ùî$ßvÛ7]½OÊx?güâÀ$Œ÷0ãÿÆ4Þ™H7èuþü ÷è´#lIØë÷„ˆžà@UC®Ý›$Œ”]Àx:ñl3!î$Æ3ˆ+ع» æ¹âFßRÜC]ÜÍéL¾#ÑËÖeTÔ‘èãlÁz!]'$¶þáx«m–ÁkÓïµ^ÉZûXë¾Xµ»Q-Ÿ-Ô”PíjÆkˆ•ÕóiRY´Q(Ü+•ûúndÜI(§÷Qy-ãµÄ­nù×ϸ—80fÍîíÏ“Ø£ eö1êÄ3ºòŠ;שŽéö¤„rO`| ñŒTªûèU·c#«,_yËŒ#.7±Öð/2>•80‰Ê;Äø4âÀ˜•÷úú$/¡ý«Ö†vâ ›Eº7ÇsÐö¸:ÿ$í m]ßgHµ§3~—8Pq8™“…ËW¨_2þ8°Má(±?fü#q`µí{Œ"ŒYÛVPNtd¼Ð‹EÕΫ:d–Ðq0<$a?f/ TÔ¹=Áßÿµ‹ uV0ö&`½ì…ŒyâÀ˜ÖkçÎ[ôì»Ðc€ñâÀ¤{¶}lZFE=Û½ží ’½Ö~ÖèçŽ7&k8Ç¥ŒØ¸D­ÙžüéÔëf\E\é†ÅiÂÿ©kJËùkè|6cqù{ñŽúË W—ÛO­QCÜIŒkˆË«+ç7×ü.]j ΃ù%ÜŠÑô¤×;—8O±8ì‚ b:jÛé;{:¯R(ᤗ]ÛD5T2ºÐ©°E¿ÄɆ!³\¿¥0$.²ãAY­eü1q "SÍ9 ¦dÈ]έ0¯ÔÓDvxŸ 0æò¥qÕÁv¡¹*J»œgü:Å+Á²Cµ\4"w(V±lM ¢…üªôéa\M< çq1®!®Àùè¡ã©ÎdÙÕ=GT Ý^Ã2‹SLÚ‹•¨²¸ ÀŠuŠÉú3¤ŽUÛÒ ¾‰ì/V±¿¾€ýÅ ’o·«¹Ê¬Vê>–â¬EÉëkWGFë4±,Óë^Ãz®!ï ô\ª¬‘´yc„¨Íšt1ú›&¸mâ.`ì&.yž¾®Ø1M*a’Æ>ö}êLÒ¿2/c’µŒƒÜ¦“1I?ãzâÀ˜&y"¥$)¶˜ác›Nø‚2¾òkÈÔÚCNÓ+tÍFÉt]\2f”½‡1אּú«»îÌ/ͺ”i÷µJÔ‡ Œ ®0µçl¯‰nì“©eüq`5⃌Ÿ$Œ;§ÁÉô r#8µ¼rµO¾]עîßÿ‹8P‘éf-Ý´o©ŒåþÈøâr›Ä¢[îwŒ%Œi¹\ä+¾ ÿoŒÿGÜié5;vʘ›âÎ#LÂ$g±íÄýnNÒ&ÁŽ8'W¸ª=géM²6YÀxq¹û#ÛD¬lÏ&LÅ&ç0žK¨Ì&{÷oÛ/e“¥Œ&a“EŒÄ,êËÙ„;Æbº+#»K±I;‘µ ÷Ѳ̳R£Êè6¹˜q-ñlìœO’6YÇ8H<+Õ3nb“{÷m•²ÉåŒÛˆg·%c“õŒÛ‰S±ÉŒ;ˆÕ…x¹^Wvã>âÙNsAÜNÆýijñOsÉ™ä:Æë‰Õ™d»œçz4£N<+µk#ºIn`"LÅ$Æ"ñlQ¡I<Ï%e’ƒŒq`&1+Ä1M2GêÚZèpã8q Â€"ÙTng|q¹»¢Ûe‚ñNâY©{`êÊ`ÝœƒU2ÇņÏaË.ÔÝO:uîghR3UJfÁtKÁ~k‰õb¼Ì“¿D¨ÈÀ’®Ùo2~›¸\üèÖý2ãwˆcZ÷’ºëvÄÒeÙ*÷6l‹'ÉÅ!,QÔ2ÛÈÞÍ¿Kˆäý‚«#–ß+5Àv_K˜Q³´y…âsÆ\™œW¯çï}ô?1Kålì ±JÃ#ºWY®7¨;¤W ;òÙÌA6ðl6šÜÀ¾Q³?sb|èrÜyëù²žŠm‰ Â,{DBÉó×—ˤÛPêœƘn–šÈ=‡qñ̺úD?ȸž¸ä‚C##7êºgýÊ•½Œuý¶½››({9ã-ÄŠŒ5ë@Õnfª Œ!Œiª¶èg6¡Àc‡ˆ+<»7÷€^uG-»‰£i×gRu¿Ÿ 0žû¿KÔƒ“ô?1KÅëÝ–Ñ­mêÕvõjù¾þU]½È7hŒUL[dÓ6Ëã†×“ÑEGÍë¿UtÛ5½/êv<‰¥>WïÑËziÒ1Å¡{Ñ¿+鼉UäŒê2.áÚ´¹6ØÊ\Æâ+­*V¡ì¸pΣ×8“…Q«dLJ¨:Éxq ²îŠg‘Ñ&bÆû‰wîÿƪêx÷¯ê—Pè匯 Tf!«Tl"öEŒ¯$Œi“:û»ºµUk{zÖ¬’jD¯b| q "Ótûq·h™ˆ³+ûûzûûÖõ­ìëËçûú{=¯2лnõ@_¾© ›ahünÆ—;AÛĆã†=ÔDì[&L:Aüô?I«±‘Ψ("êcO·¶\Ûlv·¶¹W»’‚QžƒQh¯+¶ƒØƈm8âQÅ6Š&Ò‚"·“KùE~Q¹ÄÚI_(Øl+V ~\Ä,ÖfcT7-ÄŸ}®÷…o Í6>N§ý­Œ/"luü¸"㋉?ÿÆ—W˜²?7°VBŸW1¾š8°Õáâ^ÆøâÀ˜æèèÌ{á'¿v]OO~p­TÃz-ã;‰Ù¦³AèïË{¸vÍààº5ý}ƒkû¢hûƇ‰ËEhÁâÞÅø#âix}ˆÿq€þ'i5.cƒ3* >×|öZc‡<¶ôjWPøè¢ËØy=jð¨¦Ñð'r‹¸œ_ x-¿–Ôùî†-b j0»Ï*˜†;)b'¸÷Í –}P„ž½†cèvaTând|&ñŒÊ늛DˆÛËø,â™ø×G6㳉Ù/»JB{ô?­6÷ÆûˆË y§›U^°ìëéYÕ·ZªiÝÏøjâr·¡i–56«ó«VÞê86 uòMÍ×$Ò@Õ?OØêHq¯aüq`Ò.â¿ ÿIZMlmFE‘æ•^¤Ù¬XN·v â BÍnó U²*Vµ„{±æ*nú½p³Ë“¸Ü@,f|üg1ÞE¨ÈŒ¹ÈË?ÐãÆ{‰'1$‚¸g3ÞG\ÁèšójñF+šÃÆmˆÛÚ£6™«ùµ·ñkßvlŨvˆñ.âr‹Ñâ ÄÙŒÏ&.¹;,ümôxùÏa|.q…N-×u›ô¸ŸñÄåFxÑâ ÄÝÍøBâ’G“Âßvt`M&ïdòë¤ZÏ‹ÿ…8P‘m´fGïëë_³¦?jœ–ofü,q`«ã ĽŽñsÄI;xˆÿ|€þ'i5v±¡[9€éïóâÌõ¼W,<6V{ø¾oÄL™f%S2K¦;¹Iìæ÷£¨¦3&8€¸›ÓÀ@þc+0Qw‘A'0Þ‘Ilq“Œê0<5¶f]OÏÀºèûž¡Ì“ï&L  àÔx>b@–/`|7q`« Ä=ñ=ÄI{rˆo€þ'i5ö°¡[oPḆYîæÄbä²-œ2@¤ ·Ê®Y®ZU‡íw–µ˜:³*Øpµ„zµFqY¿—cWÚÄ¥’_3´ÎmE§·+²»†ßhó{ÛÊšÊ*laõFZC–uÓy6± #Âx¬nû¶ÄL2¾‘¸Üj^´8q㛈cV˜^ýÀ \±·[«Tz½>u?úÔ«½ ³Û˜ÐeÙ×k{«Žc”JÚ>}Äж[Uo +•U ª¿™ñ—ÄI7=>ô壢¦wÐkz[FͲ×êöQ«C?n“×àÄ*¨5<ÏEòê§f½Nœ8€´^S[#o[ìÃÕ{ù…ù…*ks ƒÅN¨º ‡Â=!¡£Íø4ö R7HFkUWb|:q`â½;Èã3‰Kn%mÜ»k:èœFŸç1>Ÿ8°Õ½;ˆ{ã=Ä1ÍqZgóÓýùµ^ÿ® _ªÝËøâ 7q^Ý°ƒ'Ö>×öôåW¯ ¯«p}> ^eýzÝ,öxîeíºU—ôöõ¬ ùž±ˆA¼Ñÿ@\éÍ¡M:ƒ÷ZÆ?—»94^(€ø?è’VcW FEé­""YÝ^¯®ï½þÏz»RìôÜ¡ÛF©[ÛC³ƒÓ-›â$³÷´Îו៶Q0LìøDw‘7ïŒê¶^À-zˆZ¡j‹è…Ç+è‰á{2s¤lÙâê¬1ÓqÄ‘8™]£û¹Ô€oåR{«ºQWýI¸ð9…½Æ¸iLHhûƯ¶:ÀAÜÛ¿N˜x€ƒüo0~“8PU€[ugôøã‰+MoÔ$ÀAÜ·&®`?F‡HQÕ¿:ßÓÓ¿6zŽ(ó#Æÿ"®ð.Ÿ¥ÍŽ(˜eÇîíÏç×6µ]“˜=ÿHˆ+DÀ安³ öw,öâÀ¤ƒÄŸ ÿIZëØÔŒŠbÖˆYÖ¨á¢BÇà"ªv=«<ƒU;CY}^k µƒà~¬ ¶‚:˜¼/4½KsºwXÄx-q¹,%ÑÂÄ-dÜKÓªëj³ ž1w˜¥’SÔKF·¶ûÊõÚÕú„X׶٥!½:¦mräIqèWyCë}ŒÏ$®à@^ä¦qך”6!Ñ4ª6­UÅz‘×mË‹I†JŶù[¨Åå™^ý´Í¡ªŸ7T4©‹­ø˜ :dHM`–{œª¸2]+Ž×%‹>¯p#¿'pˆßsHY;»sy×Võ²k¢Áy]É]¡%/é³¢PÖd|.q¹…ùh â Œw—\"½ùÏcŒ5°o2Ñ°FBŸ1¾˜¸\»hý0ˆ»‡ñ%ıûaXFZÕ¿®§gU>ú,”y)ãˆË’iÜžéé\—_éÞ6Véí_Ó»ª·âé±3eßÆk€­3q0~ƒ80iWñß Ðÿ$­Æ£ØÞŒŠ"Îrq‰X³WLì+¥R·¶­–¤`0z\κ.WVËÏÜJÊÃÇS1» ¡dãâÀVG ˆ»ˆq+q`L;^î~]m•‹Vy½¶eT¯Œée1T*EîjAÃmŒ£Ä3£ÉWü›¹ ܬ´â? ¿Š%šnm»Wñ·•†pìË@K@3ØTr½¢›zÞmW]N¨‚5æU?tÈ*º7(tH,tTºPò¾Ç Âëªé%Ü ¿s½¶™ª¬Uu½? ±3ôðY\ rYúZ·ÖÝžÏø/ÄåößEk\wãëˆï‚Aþëß@\a˜Ï5Ïô=>oc|;q`«»`÷ã;ˆcšã´ÎþÕØÚ¿ ›CûWG?Ž}ÞÉøqâ@Eæi¼™§/¿Ò1Çzûó}MûÏMº_Ðò3Œ¿"lu÷ â>ÁøkâÀ¤Ý?ÄÿG€þ'i5͆fT…ð¢P8òˆ>X]èéÖv˜##fÙ³e×ôjû½…× –‘þˆ‹äº;°£áëzÝ,‰ô» "—¸OdÜ*‹ XQŒZÏcðÚVNÓqªQê.°[¸Ýg3²ó& mšÄp[Å,c¦Ì¼T};ã׈'±~qodü:ñTÖo ÿŒßÌ(_¿ˆ´ Ç\¿¸o1>œQ¼~³ª¯§§Uôˆe~Ĩ~ýæ†kp`¥y«±r ¿×û¿U}£4ý#!Ö.Ä ŽÔF´¨±¿c±‹ˆ“¿8@ÿ“´ac3*ŠZwzQk»>bØ%o¸#v Þà«'‹†íbsBÐÕº~Ðyyý‹¯öÞ€gÌ(¢HB5 Ív$TtÓöžô†XÖ’ªWl«â;©´ºå‚ÞÉqç16f‚nÏd|9q`«ÃÄ=™ñŸ‰?ÿ ÆWW˜ù87õø6ôx=c¬1\´ðq¯b|€¸‚„FÞ˜i ÆLëV{(¿nmôÐçŒ"LbÌ´¦UÔ)khùãˆË]ó-ú@܃Œ?&žÆµÿ“ýOÒjèlhFEÑGCô1Qœ`ØÛ+Æ8ýƒy¤ˆÞS–¹Ózˆµj¬¥¦¬bŸìE­!±ΰmÿJÎHºu1®!žY£¬Ï=P¼¶Úøšf<Ÿ1Öeºu…q)hz݉Çú‹,5¯kP-xAضƼ'1½TÒ‘e,²Ç‚îë«Ä%“ú52ìo˜l[e ÇøDârgÛ¢Åxˆg|q`â1òïd|2q "“d£Ž0¡Æ³ô?­ñ÷Æ»ˆK&s;Ï^öô ä¥Úɳã%Und”óýÈ>Z,õâܖגˆ»2¿jUßÊþÕýk#†v¨ùRƶ:´CÜýŒ".Ùÿ©«²Qc*Ä? ÿIZ[šQQh¿¡½d˜Ív^Í÷VÚ%“7 6;èè·F-×Kø¤c‘Kx—ÂÊZN'¡ùÓßOØêxqOdüq`ÌêsÔIÇdt_=Ð’“ŽEr;ÿÈ®(…ã-WCiCFC´ C¬Cìê ˵ýՃƤhˆ7ˆN÷jìLÜoëeÇkƒ”ÉÑDW<))TKº-**þíÜVÕmC³-˨†ù]̪Õ¦rSOS¯°Nô cŒÏ&.—§(ZÛÂ/Ž0>‡80ñ¾þÒsï&®0cBô5püÅ0ƺB=Zg¿ø<Æ—Ìwþ–¶!®éÕåýÑ·!âϾ˜ñuÄ%÷I<ÒmˆýùþU+ukÌYÙß¿víÚüàÚÕk"vü ö-Œ_%.wÇV´Ž~ñõŒ_#.·*ÏÑã}=@ÿ“´#loFEñæ¹^¼¹Â²°Î½·WìÁòzk†¸·¢¶5q«>nRÏpWpiŶ /Ÿç¹ë×ó‚aã®>|yÈë š” — å¹êS“„äÒ jÞÏønâJ³Ã4 Lw7ã{ˆ+È=0Aþ{ßG¨*05ß^=>aüWâÀV&ˆ{?ãG‰c&‘·o-rŒ¬¾Î e>ÆøEâ’·•Êe ï_××7ài14AÝo¢íƒ[š öK,6K<ßGŽ Ÿ Ðÿ$­†ÉgŒš2wàÛ'!4YE$vC!>Xo–‡ {¤[ÛI‘¨–·ÃÇ呦þ´|çÞ=[ºèÌ<ÜËVùá;î.cðTóëµMeÍsŸ¦-†¸g6z¢¿[¹€Oâr¸CYR³Ö ÝžÁøOšwxiëCÄÝÉøò Í;¼,…ùÿÌø .‚—+3Q¶é”ê4ê¼.@‘ªãµ­@÷JÆ×S‰H&i Kh™c¢Ÿ”‡2o`|/—‡Tçè_[[ç^µv.ðhž¨±Iø®fIJ3æ§n}ø¸÷1b‰:©Eöx~â (Ý9í–ŠFFc^øÙ¡ôü-¦â6ùC¡F1wÝ­íïÅI-/­]#R‘ìqü+™FÊæ°E°¯ ›­Ä<¹Y.lÀòï^ ¯ÅF÷”ø•cüÊcÊÚÊItXÜëw0êé.¨ä2ÞA\.F 0Wf|"q¹K£ÈãÄîw‹~_,ôx&㳈'±Ò qOf¼‹¸‚•Öº/¶y£O¾A™g3¾„¸äÁäGœ‹¥¯oíÊÍÛûòùÁþu‘wòBÏW2~Œ8°ÕÑâ^Êøq`Ònâ? ÿIZ v¯>*Š.OÑ¥\âeM"¶ì*ì6pz$¸§H°‰K-üý¶Òžš6LIÃBàÈm§ÌÅÀ~UƒœmÔvæíÕ‹R'G ÎÓï&.·Ö-Ú@Ü“ŸG˜x´üç3ÞC\2§c#«´õ¯ŠºwŠ¼˜ñ¥Ä•/›„ˆ»—ñeÄ /OGGò^´X#Õ`þ‰ñ ÄžD]Ù0ñתu+m¿!õzÆëíï]Û·f`íª¨YÀ ôÛ¿O\îjîh‘â`üq¹ûã¹|ˆÿa€þ'i5,¶;£¢ÈóTy°c¨¤»ùØ¢¿C‡öë`bmõQ§î½ ãxبE¢¢©”-ZÄ©’^­þ.ŠÍÕRÉç%ûû×Ò1¬5¸’ymôke*\À§rY=`óûyRZò’ûD–E¡æmŒÏ#.×›ŠÖ‰ƒ¸ƒŒÏ'.™®+ümôNäßÃx/q "ke×H¨ó’ýO«»pwãK‰ËõÌôc»N>zØ2/c|€¸Â³ô3¯ŠöyÿŸ÷þ1è@Ý·3~‹8°ÕAâÞÈømâÀ¤½=Ä'@ÿ“´[œQQÐytà“¶'<Ú›¹y¸üŠÀGó+>ZYóXظ7)¡c‘q’xf²õÁânaT,3>“¸Ü] Ñâ Ä2>‹¸d~Ûð·Ñã äßÅølârç÷Ç›µ«$ô¹—ñ>ârçô£Åˆ{ãýıã vi®Z3èY$î3‚2/`| q…·õMoòý=ƒ}Þ?×®êè]9yô}#ãW‰'q† â^Ëø5âiœaƒø¯˜Ö¶I69£¢x315ÞtkWTmcÜt £Ý|l@$nuDR¼}´¾9XÛZ3eÓ6œŠUv º8VìµæÈ<oh}=jË9Ì/ô–3w[A&Ò@™Ç3>™¸Òé˜&‘â1>…¸‚é˜è‘òŸÊø4âr7ã6¹9¯OBŸç0>—¸Ò tšDˆ{:ãÝ™»¨ê^ÿTqTº¿™ï¼ÿFßBužÇø â@EÖ¹¬Q¬Y7ØçÅšþ|ÏàšÕëÈMô­ë»/±~ÿ®M{öî}t¾·¯wËž ùˆ/ñ:ÆŸ¶:AÜ+F˜´ç‡øŸè’Vã×FEè6 £“…ïµÆt‡"ÐJÀdó¿ªcGä ß…ü­f·xþ}Ät»Á(!~]O™öDžœÚe²_ûqüÚ@ÄmÊÒà«0jëåPÎ1¢›t\Êå¡ÙâRW^zB¦Ydÿñb¬Äkb|+q¹Ki£+ˆ³ßF³Ò\¾8f˨Y5¼òò*ÈuW­×n0KFô|;ãWˆ™¹v‚ʵuqùJoí.¼§oûˆnº~›Pàý6a«Ý"Ä~•Åf‰§q€âs¦u€÷v67£"·ødÏ-^©¬!Ñï—#˜FaÔÒ«¨ç7P~êµG-]‹K>M¬V{½ípŽJìŽ2]'˜+×½gpÎ þûâ½¾z]>rz<—÷ƒEIHõ‡6¡söú‰ÄöÕ‰ñÅ‹z>‹ñÕÄ­v…÷Æ×—ý‡¿Þo‡ü×2þ qɬ ·LEM$5Þ ÿiu·â^ÇøâÀØDbËÔš~¯×¾®Oª½•ñAâ’y§Mj9õï­¶ƒ;~"_±5?Îøâr›£Åˆû0ãO‰Ëâ9~ˆÿY€þ'i5žÀ–fT–yñç*£\Ôq­â.ºcÑ­ê¶Û͹«×Jt¥ï`UËXÕeʪ÷U¬ïEŽ¦ÇÚŠþþa쾯m°õ†V©W˯×v–‡ ºã¹¶w=ëQ³"ñbÝŒãÄ­Ž(·œq‚¸ä¬XøÛóµÎUî(w®ƒ”»ô˜Y*éÑ“NB½CŒ/$.—Ã.^Cá“w>*j(U4Ó>(2~m¦¦1¤u/WÇ J‹¢—a‡»j¢æzR>•N×ð†…QËû¥®º\èÌ{ä†÷$~u ¿çE]RñXGÞ¡ÒãŸNØê¦ó$j¡ŸÁ­ö)tÆ ÿ™Œ±Ž˜7¹?$jo z<Ÿ1Ö¡Èh½1ˆ»‹ñ^â’»ùÂßò‘÷Õ8ò¾&úv(s㫈Ùf¦#ïý‘»cÐó ŒÿNØêñ3ÄI»wˆÿl€þ'i5øž&E™Ã^”¹Z¿Õ¨– Çñ':Å@è ‘WãÄÌ"íÑ&L/ÆûñÅë)‰œÜÕ’köŒØVµ¢ $c‰> À¼j'¹w[áJ”y"ãÓˆË-UE 2w„ñéÄåb[Ì ùÏ`|&q¹-1Šö±Cç1>Ÿ¸Üá±hAâžÅxqÉÿáoOëì'ÝûV!Ìô­Ž¾ úÜËøâ ·…4õc©®¿¿§oU~ ·?b˜šodü q9-Ì@Ük?K< ÿñŸ Ðÿ$­ÆSØÒŒŠÂŒÙ4ÌàDûfS÷/?¬Û~ˆØã9å)áFìý(ÔvÇ›Z~*¿.Ðä×5ÓŽ*P¦Â8N<‰Q?ÄÝÊ8A\Á¨?zTüCŒ“ÄîžÎ ®‘ÐçÆ'WzKU“¨q‡ŸD\Á-U§v®Aeõ•5R-æNÆ{ˆ+ÌnÓ<¨¬êɯêËG*PóÅŒï'®ôJ—&AâîeüqWºDöæÿÁýOÒj<-ͨ(¨X^PÙ¥OŠEKºéJk´ì`Ç Hš/vb%sK³;u‹æ0OÔŠ…¡QËYÖíÉX—ì>_hñK[ÊŠšÄÃÐmœñYÄ•&"li ®Âxq‰£GÈ6ãsˆK^Ó8÷}ÔH=îc¼Ÿ¸Üæòh‘âžËøâÀøãjúó¸wª_"[ôy!ãë‰ËGjhž½ÍV-;÷íܲ³«¿opmO_ž6®íèëê_³¾Ý%x¡õë7íÜÚ³oç®5—ðÞÞ"Æ&¼×[ Å~—·f$÷»D‹Mû›#žÆþˆo Ðÿ$­Æ3¸j0*ŠM×"6®°õ‰níª^mm´Ê#¸^ÜïÕª¼8Á‹[à½O wƒá¶p’ˆÚâbä¶óL~-àµüZת‹>JNðB·LjË%LŽ} n/c™x¦œBô|‹±B¨ÈDmýýMûÊÓ(4Á8I\iVŽ&áânc‹3k¢ÏA™#ŒÏ .¹Ž'Û®gx×Dð@á»ßO<‰Ä=“ñÄÓð@ìLkÀó,¶9£¢ ‚Åš]Þg¦öѦ€|__ßÔÜv¼À‹eÜÓâÅ‘¢ÈUŒÌÃå)£ )Ë;eÍ6*†y¿åTm‰c½wñûß•iÅbÍúͶé…ÅQ-t¼·î’JÌ%ÖÆGÞ¿¥ÏüBÿ'2¾ŸxÂÞÅÎç.nLG”4¦èê.nMÀqkúºñÑê¨9& ÇCŒ'.—l&Z€‚¸?A\ArJdÜÁQô,EPå“Œ_&Td™†WV¬Zç…§¾µýÞ ©¯õ`ÿ꾈¡ Ê~‹P+øa«CÄ~…Åf‰§q¬à.fù˜Ö±‚g³½…¦çO Mâ†Jcß(fãö҈NjUy176$ŽªÔ"N¬JqõIì(8*&ÑÁƒ gm/p¤÷<‡Ëø|.—ç+kQgÔ˜äÎ@µ1¾‰8°ÕÑâîa|3q¹ô1£ä¿…ñ­ÄåNš5>_Ð4Ÿç4ê¼'@ÿÓê`qoc|/qI¤;(õ­FJÖè£%(ó>ÆO*2M£”¬b´Ôß·.ß3¸nðP¯ÈÞõ¦0¨û9Æ߶: AÜ¿1þ80éHñ Ðÿ$­ÆsÙ⌊Ò‡¼€´[?¨è:BR·vU-™"u{þ×Ùî »Êûç^Ã,{ιHÿÚV¹mÜ:t‹U¥«õÓ9\;«`”MËgvŽJÉO›¯½ÁØzm[°UË·Jb˜†å%9‰(U7ų!cÒ*#7¿»¹â"T×O÷£"3ohÊnó_EBÛ‡D\ha âdü1qãEcÿÆŸ—ç»s¼û_òùî|½ªoÏôÎNÔÕÕ=ðãCï÷i§wÞ«zïU½J¯>.hK*áû1âÿ à'-·Û$`ü¸<ÒBž?~AЄq÷cÄîSÀ/ š0òø‰ß®§œ ë7†?öDÂ| øA*ÒÔ‰9f)ËÆ|a‡O$å€ÿ)h¥]±û.ð¿­`""t_@ìÿXGïIZŒ‡¡h ¢.ië’v÷ÑJÖv>¯w©Y.ó ·×ïˆÞVÏïãhlèSmðo€ô„› ý&uý…’ ä$ÛÀ=‚îØAì6¯4aâýñ¿x ;®S¦¢®‰bZtðAÆÝa»ëº %¯ÂòŠ-ëiKĆðn$LX´ÂÝýG´|mŠXvS <|§ å¼‡ë;ˆÝ~à»M˜t£Mì©£÷$-Æ¡s ¢¾ã¦Æ¾c§­».ï<®ãÇzš„»Æ» ʘ•8oØ®î;%Û;.üRΛPÆ7¡¥HuH^à×|Jzk¹L#²Æ½áÒ¢“˜ðe‚–»#\gCìn¾\Є‰w6Äÿnà=‚–Ì9Ô|p²YBžûZîzŒp} ±{ð5‚&TÒ× ÑIÙ!)OzøA*ÒMÓ} ÃCët«ä mܸqpÃÆàYÒ€~†„}/ðAËåÝ ×Ï»w¿%èväÙ!öß®£÷$-f‚ܼv Ç]i`cv¨8œö0 ›#aW¯4aÜÝÜÛп^‰þåÊäûbU½'i1Þ}us;X7·K¯Œr®êLð»bøEöÌ>¾C\ÜÇ»‰ß6­7ts¤X?cSÚÞBî@¡v(s‡Ó}Y!.)TÅñª($æµÀIA'‘Ž•ØíN º-éX‰ÿ4p¦Cy:Ö¡Àð»…<·oïH,+±;¼£CU:Vqñûð:šøÛ>  s'ð5‚–œ<Òs·k‡‡nÜ°yó¦ ƒCÃk™ô!»÷ ÀÏ š0î®…Ø=üSA&ݦû/ÔÑ{’ãÐ8PQ×BÛvYîDI#(º6÷6ÙÀGœaZ­]¡S¯³‡Ò¶òít›Â_ùõ.HO¨~{Â1WZÃ.kFÅ,%S&u vðjAË%à ×k»ÍÀ]‚&Œ¨ÕÍZz­íÝ‹Ks—lôX¬L˜úí ³R1ËyËué‚Ü¢©—JuhÒ2£úJ/{7ð•‚–¼¶(’o<›xD©ot1ß)È»!a‘K’IfÞI¦=ËÜ;nãoïúâGY›)!ÛÑÀ%‚îX,#[G3¸¡Ê: ø5TœºÔejÎE‘lßþ]‡Ø·”@Æ$b÷uàߣzþ® ñÿ%ðWª3&u‡ÝæNrüÀê)“þ¿øb÷kà?£*þIQ`³qx¨¿ãÚð ó/Àg!Øÿ)ÓMËsQk×g¸ˆk˜”)ÏêY0ÎŒ?®yè39®•’»ŸÞÿi耂د©#_Ñ[¼ï…¢í‹k… „ñÅ5‹wñåü„q ÿJ#vS‰v4ð8Aw«,ºY´[$Ù‰À3:Ĥ@oì!qëž)hâÑvŽAŒD œ<òô)7ŸeWêöß_îgà24HH9¼€=ì‘Ê%ÓÔ‚–0±L!œ)'ÛEÀO݃V6tp't}‡Á‚Œv)„%êàj \»ªCö0a++ZºmBÏñi¦)ËÉ[Ž%!äMÀ"{^Ìž uFDÂYQd³€/aϾ¾F€Ý<Ô!6ÌD6¢+ù^ @Qn¾Kø§Ÿg‘0Ëlä`x×æ',×*ñ›=¬ª›·JMò¦‡å¨(·ÿ¬C¬pEY(§$:‰ö@й‘ŸÇ?"vß²Oqý‹6 „ˆÿ¯€´gœ Ê Èšîñ ;"1þ©Ž¿OÜã b÷à?ÃþAÁ8ˆòC¬[·©¿݆ðÙI˜ÒßИP]îÃÃf@¿>»)».ˤ9 z"Âl‡H‘˜@òØG1 "¤€„R$¶!y,±¬c»’Ç> ˆh'F㤾2]£XœÉh—±_lÍUûwé…‚^ dç˜É )ýãž0úNŒ Frv˜„:x± ;¶) \$g‡I˜YàÙqiGa/qÛ ¼JÐ ÂÞû3ȉ5DS¾t6ͪ:tôÎtŠ”M¸öQ.i¦ÊØü1*FêT\ÌKÛ$ßßÿ·CôüÿàCì~ü?TÑÿ¶!ð!þÏ ¤æ…ë³ÊÔÔ94^:\ÁqAG„Ãá"b‡¦6u4ú‰ "Úƒºnãùl ŸëqÑãq<‚I­uÉ,m¯ ñ˜§/èà'÷RçÇñ»•À QS$jû­uä¢\˜¼O@Ó@Eekœ•å¾i|B}¾ŸŠN¦ï2&MÇt©ƒây§+ øše³Œ÷¾ë]h“iý™Pf½!’â‡vª÷¡‚ÕgkT×/‘|ï~JÐr7U†ë—ˆÝ[€Ÿ´‚k^Ã÷KÄÿ3ÀÏ šPY¿¸¾ÕBž/¿"h¹)œpý±ûð«‚–\C÷êel\Ûß¿^bDNÂ| ø—‚&L¦_Z7¸[. _"1 üߎ¡V¸~‰Øýðÿ-¹~ëÿ4t‡@쟭£÷$-Æû¡i ¢~iõKV…º Ë²Ú%ühÝк¾ZN6€Éñ›V Û¶l/HÎìwØpJ/RoÄÆPõ&^ ü€$\¡ä(0á>xŸ2'‘?ÌMòØÀƒ‚&Œ»_!vEàKM˜x¿Büo4aÛÆ;$ÇË€/´\²pý ±{)ðnAFTÇòôðxÖnZ×ß¿vsø„ö$Î=À7Zncsˆ¹ÞúqnöÏáþµY&}ȆÄ};ð«‚–ë¥Ãõ0ÄîÀ¯ š0é¦Ø½ŽÞ“´„ÆŠz˜wPã~êîÊ,¿l[•ÖäŪô%ÅŠ7‡Ñ‡/dý‰Qœ0ÌŽ{‹Óß–µoB·]þ[Å´ÞÐìû-ùBã¤UœäÂmËqú-¦xÍ¥žÊÙ‚aDm™Ïtœª~ZîIÔá;PKïPæagm§«eï`¸ÿ¼¸üy?õ½Àoš0î‹Ø½øMA&Þcÿg€ß´dZ½¦=ÖºA y¾üKAËEÿáz,b÷mà_ š0rµRo¤Ë¿ØÏðɈIœ¿þZÐrÉÆšj§7¨Ç2÷…™ÊÚuas“œÿ$’¥MwWEl¶Ë-w“K´>‚د¨£÷$-Ƈ j ¢®ªÄºª=º+®S¹Td^7;e½/‡VÁtØw¹†—6Ë*³>­jU1ÃÆM[´–Yvûs&FK¾¡Qh?y E&,¡ÈêN:*OILbºÀ× š0î>‡Ø•¯4aâ}ñø°  Uõ9¡ïK!9Þ|»  ãîsˆÝ€ï´d°äÿT¬ m\Ûß¿a0üì óNàM¨H7G’xxÓƵƒ!»ö£À ZiŽÔ€n‡Ø= ü± äH ÝÞûŸÔÑ{’ãi訨Ûy%ëv®Õózÿeºîà0=nÜeYWb)[â¸Q6l½hÀúÎ%Ó•¢eÓ`‡w8â¶/ï„š8˜Æ'ít¾W“ßrÌ: C³}ß©óq’æ¸Õ‚)1ú0*„𕨹œM§ü9²¨—mܧY+©„Ø?)h¹Û¬ÂuNÄîUÀO ZnE*bçDü? üŒ  UuNëÃnÖ$9¾ü²  ãÝg_´ä¦bÿ§‹x¾ü ýýÃágïH’¯¿#h…7y5½˜…õGƒƒCk‡6¬[·yÓàúM샃Ã!{'øék¢•^gÐ;Ûï‚m· \gº[ öóêè=I‹ñ訨wÚM½Óì­ |òmPÜ3ÉZhÞµ”æá´]âø³·IV‡*z~Ÿ>>áýGQ0ÂÝ(Ønenqšo’­6ÜáùíÇÜ)Ý{ š„|pZÐ Ï|ö-ÄnpFÐ }„ï[ˆÿàAAË­Ž5ï[Önçà‚&Œ»o!v/Þ%hÂÈ} |(}øÓÐ$ÉË€Za ž³šõ-›6¬Ý8°×q²“ƒk7dÍÁ°ûHÔ‡Ÿ´Ò<½ ±{ ðÓ‚V°ƒ'tsNì?SGïIZŒAÛ@E½Êu¬W¹¡Z4øíkĶƒáú¶ïbaÖ$‹ñ ßýæ8VÞœ= çNYšîŠËZ$Æ/Gá¯CáÔ]S˜öõ,¾{Sfõ1ü ©o¾LÐI\÷E쮾\Ðm¹î‹øß Œáº¯açÖHŽût$vݱ{ð5ê®û¢õœõ7÷÷oX?,åPßÑ¡úº¯Óšô2Ãk7 ¯]784ô/$ä{_´Òqg@ÿBìÞ üŠ Œ;C7ìÄþ«uôž¤Åøô TÔ¿¼‹÷/NuLäõÝi¸V†ï.¸Â˜2‘Sa›U,šeGü~µ¶»h˜ã.{Y$˜§ËŠ/b#-W´Ø¸¥`hôC´Þ3F¤”f¬¼nhiÇ,év^LÌm-k´ñ`Ò4¦¼¦ßf„SÑb;BhÏú$ê‰ð]¨§w)ó¬Þ¶5N;ùhè¶ÊdMêN¾ZÔmíbÓa}pØqÉùðÏMw'Eì~CÐr{"vRÄÿ›ÀgM¨ª“{é Éñ=à÷Mw'Eì¾üKAKîtö*C­]»¾¿íÆðwR’0ü{A*ÒMÓ-C~òà†áÁ4k\6 ²ö‡½™’DþtN‡è”T½p]±ý%Ø®4aÒ}±?©ŽÞ“´Ÿ‚ÖŠº¬ûY—õ"Ó/üŒP†vÍ"SýµYÊ[n‹Æ>ïhßü¶½J!¼•r¿2§:ó"›õA.ëšÊyÖñÖ Q_¼ÇKÄ(!ñCÀOš0îŠØ=ü¤ åŸ"öPÄÿS@Ð’Óͯ »„ø"ðË‚Nb«_¿"hḸ6yhóFZ ßE‘0_~_ÐrÝuˆ}Ülå ®_·¹ph°hxóúþÀ¬Y݉û#|AæGj/º 螈í_‚ích´ïýrùàC‡ž1|èþ®gXuMJz=ìùF°õ}ÍîKv]¹uÛ®åº8.hÂpå¢7Íyc´´—‰îsrÀfîÓM¥—ÐÇ„Oî ¹ùƒ¤«\ÂŽ@›˜áP&FÓveÉhº®èѾÃTe²5çJV»b¼·3ÀtüŽÐ¦Úi*W wl—º¸/&Ìu>Ú·X=Çÿé9šKg¢-§;t7@Y³X`×â*§vÒ8thåøAü`ò¡Õ—`mÀö…V_† „ñ…V‹xh5fNåjIBÂeÀ“ñ7'Ç^»à)‚–±yxE캫MÑ0~Ü$¼"•¶«‘Vú™Zr>›Ô‹Uæ~ì­’¡—1¨qÙOÝ.hcÒÄÒLºlÚ§F_WªT]ƒŸ/¥Ä¸èßús¦N†1 …xZ虢mÞwòÍnÄÊw‰¢à*V„°¹›q <ÜÆÛÀG}¡›ªÚS4aÒMÀWà'_iwðUòÕX›€£y0¥{‹¡Ä[<£rœàÿ_…ÿ®„ÿKsÂùÿWáÿ„'Áÿ£o[2ZøÿuL%ýîL…²1–ÇÌ‚!‡»†=IY>È ]Ãq}.ýµ£Ó­ïx¿ %wçEòË?ƒñþY»ýòä±úå¼I‰9úoÀ% Åß¿K~.Ix\ò¸ø]òpIÂãá’ÇG¶»y߈‰Gú¨R±­i³¤³è–œËs¸þ¼UK¦Â>´Íi S FÅ(|W}ÏqâÐIå=x %±ErÈoÂj¿Ùn‡|‚<¯CÚù ò™dò8ä3É:ä3pÈg”:d¾¥C†ñÀ€ôâá=ðx á ømø á‰ðA©áqô$ÂJà*AKÎ]µ²Š£È*J“² 4aFq&pPЄIÅ©À!AF4Š{ÄVlƲ¨™.?Hä5Òk˜uÖâꬹÖ÷‰@‰úÏ*k~[ hÒш¶šföø}EsG7}4mh–+U7tëMµ0 ü„ åïDk½ÿÆ l_ëý„0¾Ö[øé„„lË€ÇáoTF2~Jìz€Ç ZiŸà§Ä®x‚ åúŒˆ[ë‰ÿ‰À•‚–ÜÔÑrƒ YDÅp- éVûM˜„MhÀ¬  “°‰“€‚–ë©f{cF¦G'ëݱ>»/–® ’T· š0 »8x¹  “°‹ À š0¢]l<|ŸÎûsÇ,™”à÷ÀáP$ôÀ;M¨¨ÎŒ:†¡« çÏÃà¾Ó¡²× ÝùûÎ:FUÊñ}Èñ}¥&GuË5jc¶Ujr£gn†ÒÔ˜Ó= ®¦Ejèu}´†^ç z~F³ÆB—é/Q¦¿TZ·[¨Lm{ óóyº.Ûô®’3&2Ÿ·¡¤8Õœa³‘„E¥d5ÍåÇCà¯PÂ-(À–ÈX +Î_CÂ'úÈámõãJmuéµ6üã7Ëòó¾ØÍA‘ÈáÆ{¡KòC”„pJ²-rI®b ÖÎë×ÄŠ4v²ŒôîÚÕË"*sÄ­XNFË1¢lŒg´¼9’ç¿)0‚ÿ†Ó§åªb"}xzXlµdîX-»/RÙrE±Îåi™Cè§(áå(T|<«@—Ql£RÔóÆÈ¥[¯Ø}I†¡®lZÇqt‘®f¦V"üi!tq~†â^†â\¹8Ç3|ñЖ¡áÌÐà–¡¡©¹jkhá~á‡pÑW`VpáÖfÖmÙ(+Ø/ á ¶¢= ×ßB”¿UÚpÝ ªcÈ̶êð}Äß¡|„7 |7´§ªÿ¢ü½ÒªßGürUF5f±Xu\›Âšú^ÕZŽá5N5çîÞ&­1Ëùbµ`°ÙãUÊ:>ªùJB¨.ªÙ­$œ¡í¼TÚ‘¡-›í¯Q2Âh™úýŸîQT2¨N®h¿AÑ÷ h{Úà¿…¿Uêé7 ^x ‹Û³e½d8uc-îï .aâ¦#‹›SdµŽäӽŲm÷fzÙïzûÂÛÇ?  „94×ûøGÈñJíãŒföáõ\Óøÿ )áT*ïÃ,I/ŒØ‡‡.Æ?¡„¢F.ƈ6뿆&šUüHEw\c0­WÝ ËÎh½üÿC·%Œ÷ŸQ”a¤=áÆ¿@Âv†ÿ 9þU©ÝH~Ć.ÆîBVÕ­°a[Ѳö9ükŒj#91Øaº6Šbç¸ÏŒF³-õkjí„.ã¿¡Œ„7¢Œ7ª)£ÿ¨å(¥–Ž–v­qƒû«]äZ®^sE†x)³½Ì¤µÍl_]ÆߣŒ¿WZÆ•eD;Þõþò®„|+#Ë7Ÿ¹Þ™3fhiþiçCšùmð¾ÿ€ÿ¡Ôû®#­¹&m:¡ÍùØE¨ó jºTD«ÒÙÔÜ Î¦ÖÍÎå3Æ´°R“®ÿe¿ 4•¢¾ûO”Ž0Úµ#þOO"¥…êy¨sæ¤Þ"ÿ Òžé¢o`o„Tjí]Îúo”‰°ËYÿ9þGiÝnäK8ƒ¦k¶1Î'Y±ÀE]›kQ×µFgk4+·—µ ¡¥ÿ_HO¸ÒoŒry‹qlø+Öã®0+Ž1C¹·Í¢ÃZ JzJ9÷ðéÕÙ¡ŒVÑÇ mhí`è2üÊ@¨.äºÑ/O”Ê«3§ÍùoÆäåêÌ®]›ÑØÏaþs3ÿ9D?‡6ÒÏ ë2Zí¥¡õüƒüÝÁÁð壽uT&Žêfæn™[¾IQ>&æ¦u\Úµë9ˆR ®¿ÜÈK2$~9„rm^+ÞÿÚ°Q¢˜h8Þ‚bÞ¹˜çÍ-¦¸E•‰;ûÿ¡ÚÿEèDÏC΋\„ æÖ–ºN™JÁ4ÁªŸý\ϲÿ×ñÿÙ?7„šua3'Ç PŠ Ú24ëÂpŒ£º¡ÙhÀ€}÷•Ó€Ö¡XfÒ™4ýóëõ!pºw7'm¿x {ß,ôÑX~Üt‘µák{ŠH8Š"Ž¶§¶‚(G)­íСB†þ¿†uawÇHaXS¶Gb¤Ð,OîwÁúh¥ÕvïgßYLj{×RM†Ÿ,0*‡ Ùq9.4¡"µ,ÝgÌLYv“ Üœc ¸ZYž¼VˆýŠ:z\Ìy«sW“¢{ÿu-D±;d ’ÞXBo,Æ·@êeô»nñ¥+ž…|d1«ê²&ý\‹K³yÀ-Uv±¥Í ¯ÍìÊUÍba8·i¨0d¬Û´q]npY”ôò€è®²^•ÞC_¸„¾ð‚®Õ)cÖE…]à& ÆX7åênà¥Í’u`V†ãÐKê*ó*¼ã_ÅïæÍi¯Ùsi?®g9êÙ¡üΟãC—”óíîªWå’Œ—|ëîÿ»Ü£5L§×(ìܱ{ûõy׳þO·þE=ÌÎ «¯:kZYØø•ç„øÊÙ3Çþç3û3‹F‹WŽtw8-A¨Ù{–ÖÑSóÛ“i”8Ûe>Ä#!†J kp)h©ÊiÊõ¨Q½hêMúïŒ*8új%i¥ûå>Ä£H)G­ñ+Ì}!UÒ5.½8•øλ‰&¸cVs˜”Jº`‰.•µÈæ~ÂS´•ó÷p(¥ŠèNØO|C–vúI7|ÃCµ~Òµuû¶ú˜ö€îI@ÙrôB½…ÉëƒØ/ò!Uú¸(´>Ž‚ŽJX^ÏzT{õqtà¡Z}t—­\ØŽ}>”0³@¶bB*Ä·ÜÉk!%]‘Bìû"…,,ŒemÃ1 U=0¯w€^øžuŒ]/¾“4^Bg¤õBìõ!EzYTºØ%=¤bŽ†TG£‚ÈVPHÅx3XG£6RÒ5I1ôÙq>Ä£H1="–P‹¯3áQÇ‚ÉÈ#¤Z0•ÕáÍ!ùfc’TK¬ÑÃcd­²¹¿xÑ°„b|J¢þâëåÛé/ á#ªõ—ù,"–ÐÉ"èp h©!\Hø:úvN±,Â{âQ¥“‹¤tâÂ'ªo yq{u²ïy¨V' (2–PŠO‰ç}ó*íÎûå>T;œ_ê‹Ž%tãÓ?¸· cÖÁ½Øtãs’fö’Ò ±?чxéf󥦫í®ç+§mÁÛ}»8·Ù¦kØ&ߘ©­a¿]£íà»ËÇŸÅXÍ^úB…ZtM·Øl¶ßçU[AoM^‹ôÎE>Ä#©ÅùQÅñ;û’ú±VÆ4M»´žÇÒŒi×Ö‘‰”EüýEsŸQ4',«Ñ¼P3£±Ø&£]D?ÈúØ¿òµÊ´]Pìfä[䋺ãh!Ëê‹Ö;Æ@)s y½Ì)zD Ú)Áe)÷ƒÞ¯Ì‚#qvã@´Yía¯Áæü  Ú*Gçب9æ],·Û˜®Ø/f½Nµè:#v!ãÐΉ›ÒÝÚ7¼rëžË.ßzý®›¯Ù}ɶ‹¯¢R»gœì¸áåÉtoÃǽ}çjµ_µzïšcZúôòü„n§ýŸõõÍùš^ïÊî|¡œÝë˜{LÚÙ²á”+¥ÖOìÕ§/\7àÓý¥R±?Oåc/öž«íd_E_áÌ8®QÊÒ¢iº·`彿âS{ŸöÔæ÷Qôâs۵̥¯ëÓV¯ÖæH.* ¿ft”_Õwž“·ÍŠ{þ•ì‹.קµí 8r³E;8f•x<úËÆT¾Ä˜Ó¯w²ß±²Ùö¿'Ä€_bz«7sèÐ¹ç €X±ÖbŒ.ݱó#­þ~V‰Ï¯}É¡5]Ê¥álWC1|ß=Ú»&3KEVæY_ÔwèP€­·ºuzxèÛÂ<½1çÖÁE£EK/ |í{WÕ݃\êÛ}Òß.#½¿íj&Ù“Ï7³ Ç*«Åæ\›_O¨†+½1goÏ¢óòV¹lðÞþü€oá{£¼ohÜÉX–.ÖÇY”f‚D‹§ü¢Ý^évÑhÁ6Ǫ: šKÕýÝ{ž ãoŠ:ëdÓqò‘Šxù×|K/# åÞ:CZ«Yeå:•~\GÓ’!ë©#00,Xn³±îqÐ7áñ ¥ÆسÃÐ;Ź'O-7Úf'ÇCJ¹Ôa;ãÃîÒ ð*ª•£;êwhÝ!9mÔü.×s4-:Ƨºc:$g¿›r?*îg `Œ‰™fY$íåhi?>Á÷œVǤü˜ØiÀ3AŸ¹:d´]—\yExo&1Îf@gÚàÍ'Â2<ŒÇ›³½/ÀuVvÿ%\Zj*F•/“ ËÇ€V·×—WB3„êVò–Ö|™l8¼G“4ÇÏ}FrMlϦA§#WŠDÏLôÏ}¶úñpû1Œö$xÎIÏ‘ñ$|ÕI ÷ˆ'ÁsÕõˆQ½ˆ¤9èõg%çEÄv5ðlÐrÆÑ‹H€s€ÐíèO†exOØj#o€ßКG‚–Ú§¨Ê‘I%Àeµ¥Úøù¨…0ÚÐÿ©|hKr¬žú¤ä\øX+ái å"kÿ§Çg´}#Ñc;ïJ&åBiÀõ ×«w§û°¬w\hÕsÅVÁ…V%íN«àB«ž#î´ .´ª=î´ .´J©;Iôˆ«à.„§ƒ>]™A5Zuôñfk¡ÞãÔŽ¨= ÿÓФľӇx$Í`YTqÈùPþà‚ÿÓð7¯q3H}'ÑTÙ…÷JÈÖ\ z©t£ÚÕ Ó1z{¤·<`+:jÓ?œ–›R·åd98z@™Ÿny vgAFwó¬„F†|ˆGYéM×(°íƒN¾‘#ök}ˆ'ùVåtaÎÕ¶*R0‰Ñ\Z~î¯qW؀ŠõbqF+Y¶Áo-3 ¸ÂÌÛV•¶ÊìsÚÞ'Q—Ë€¾@Y#ÓS[Rë ÛÒ@—w€ÞKCì.î½3zDö†JÎÿjà.лÔ5þlH/§’€7‚¾1•ìÞú¦È*‘º ’Ëp3°º N-ɪeÐm%£X]Q0öÛ)ÿý@´§Lìºh'ùN™Ø»>Ä“|§Ü+ì™c|¡~7M\KHÖ\ z±tÿ|tƒDŸ/Zãf^/ÒNi§bäͱmjB$ò¦Ó^¢WÖ5SbÛÌSï]ßC]K¤¬9VµX¨eZfßgå\7²ŽTsfï🕧;ü³ÚÅƘNÛeéïqgâãÂ!H5N¯s¸ÄK¢6—¿ úÛÊZÀî=»®¹$lH¢ü%ð HìþøCÐ?ŒìzÝ´›WB'ü èŸ(ÓIëáuK­ü=ð· ›ŒV~ üèßEÖÊrmJw¼Ð›çç—PÑ?ÿôÿ(SÑbáå#½Ô<öJh*Õ\*hÂ$4õ¿`»LЄ55O&¬#–tJݹßy|=BF+§5A§´D´’:xº SR3¹³Ï¤‹[¦LÇà‘$½À~AÆàËn°Í Ú›0J2À#öuôžä¼3„esŒ/ÀK…ÝyEâôødt7¯Aœ­åj‰ÅU8ËæñøµÍFY/º3 mº8Ug­°agµ=죂ô´Dq¯}¥²–¨kßÈpØvˆ$Ù¼ôµñ·CÄî*àu ¯‹l÷§ôi¦¸MˆOÉóÀ²2h» CÆ!®: åF€þéG»/H Û€w€¾C¡ÆŠfy_ÛÀ;Aß™Œ¡¸À»@ßÙPVðÉT>áZ0Ø(¬è„í¶Hž—ýPüݱë> úáä»-bÿâI¾Û:SøÇøº­ùØz"!\pYÇœ¤Þ7vÜ|„SitV}4I‚Ôçè(wŸorÇÁBX‡8bî½?~‡8N@hƒ¶“wbïø¢Ò÷ŒÖ®ÜmÂû4ØýYÀ6í’8 ä!IW<>ª8«;ÄÉ1Õœ"›Oé¯íZ›\.5£ÎaŽ($Îàq Õm€ìÓ×@k:"f‹™U ·e4ÝáVížÅt}f¶O.ÅÝ€§ç'°*[a¡¥˜ÁåS·˜à͆5P*ý À‡@KEÑüÄw5±ÂÖCÒOú @_,~ÒúðO —ôÁ3­î°M —ôÁ3}Gb#*æ82ï¨{—H¤ã€>ZUsÖ+ôÔ+£¨AàFГQ”wÚfèM‘ÅÚ¦ŠmMštåÄáš1ïâXÑ>Ôléãé"­w m…Æؘ™7Y$‘vúB7YTÂÍÀ·€~KòMÖÙÂhjØÖ&ë@C×~˜³V¾@â,&ص»@u]ûZêÚgÏÕÕzw>¢q*V™;J-9jX›"On½=yÓÎÀ‚?ìBÕÚéÀ¿ý×Ę̂³0&cE?þ ôÏ’±¢úç‘­hU×'©gŽ}„î™H´_ÿôÿ)«™£F¹y7á»Z(¶#Û¡²+ Ý#ûNâ‘´ÔÈY9Ä—ÔOÄZ9‡uÐ×ê6]X3PbmMö5ø¸‘¿£kª#ôŪ’{7ÚeFÍ1Ê×çår4J•‰ƒ‡xʾÑôC£}‡è—ûËÏ:t¨fj®^½i8@þ–¹ùHø p è-a AoÌÉÍ7´´×a‚úl„Öšî^“HËGŸëü\ÁkK‡;Ä@zˆSŒæçFÓBµ£}AÕoO™\͹äÛS«ßÒnóók-;]5ÃM>a®óÑhÄj þO3Ô€ŠkÖJæ´Qè7ÆÆø‰D]¶üù%=É¥š®<Ú%=[-›Â9ÀÐ3 £©€=Ä®<ú@üA±}0²ñ|Ÿq6õÆÕ2ŸKc1z¡`ŠÓZMâpº·Z°17wE!«m-:V{¾™AjžA6°’ü~͘4Ê´ L›Àiô@;F}[ÃCŸT¥/˜Ú)hBe-[n3WàG0Û{ûNF‹=Š*ëCøçâ‰X++YìyU×™½\kù 7§WÙp3ì˜r-E¸ôJeAÆ S“¹ q?qŶh#kÙãBžÜZÝÁQ,ÓÍbß“€›@G_$òøon­.<ÍK•>55• ¡¬€ ˆ„¼xè›AU;HUço}sdUu…_n!næ@çFczՠ˾›64ä½ë:ÚÚüûNFk~D‡’-ö!žˆµ²›†þõV7£]—ÕÒÃCƒ}Ym›U.Tó|œ©_g¡ÇŒcð˜`W}FŽæÝúª‡ P1ánлյ —[U›b&µÔn±aÿÜm¹S,ì‘öEÀiÐÓ #’€4±Ûœ-QGl¿‰ÿàAÐr±nÓ‰Ûµ$ä¹x'h•Û‚sV±Y¦(b÷à] £o ^”^ۗцúû×m’r¢—ý€2Åœåu¬ˤŽt`h0;´iÃÚ{';9¸vCÖ\²{%Q~ ô§ênÒ°sl_ü4èO'ß»ûÏø¢Ò/µéÞ £œ7šíÙ\/tÌCÐ6ö°Ä¾Ó‡ÑzØeQÅ¡À¸Ç‡Ò§}¢n+ß •FßV®xrg3Þ#<ôñ Ý6`rg3Bxh©»öÂMî»nà‰ £ß6¾ã%þ+'–ÏdG‘I”&$d[Ì€–ÊXÞ"Nú”“°ˆ“YÐÙ6YÄpô r‹X@Q1\KBºàÅ /NÆ&6/}I261¼ô¥m²‰/}Y<61^,•$¤»8 z4›Ø¼ôÉØÄvàM ¥fd–"nªÉ,Ü{LJȶ8 z2«Øœ=•ŒUÀiÐRó³j^\¾;æ¿X•rúxˌ쳩 3?q¤‰~´¼^ž}/l(MÅ›þô’`lVZC5㉈þ\0'Œ/¢Ÿ§—­I]B´S€ZG-Qy þ·ôÙy{F¸À­nün!ô2àJÐ+e…žóÍ=ÀÓ;jÉ7ãnˆ]7°todK]Ë}_¯§c C^Ìêú³„Ùäþšk8®ÚÓIà3€×€¾FY}-u C/:VΛàGçu¨tîÐm ±ïô!I×^y¤âne¥H{¡ñD¬–mgœqFm¿ª[³MgŸ0oÿ°±£—*E"&±±Ð ]’ó¡TÂm ·E.ÉUÝ¥K‘ ‡Š“.ºSµ‘Þ]»zYleŽ¸ËÉh9F”ñŒ–7Gòü7FðßÐæêö#›Ë‡Of Bxè«â³Ú@9.oÕxÏJ2±åiöf§Ðòm…L[;¢.çû?=‡YèiŸu9é3£Mšu…f4/ÓÙ•Wô†×ìE’0úVWyÍú\E¡fw‘f›ìbë€zαŠUjX{àV o*Õ\ÑÌ‹ØrÆÐmÚZDÄ Ëß\ŒÂî½+rÁ.b&1ÜhLJGÑnec%ÒÎáâ+³”K ü%³­&qK¹¼=Tc)'ó®Â*Ut»1µhh _©}RE”ð¸Zæpj2”;u8¼/ƒ<„¾Ëy×âvðöP%-Î>ç^}—CÂcAG?D¾XÐæÊ ¯¶BÂÅ £ï£ðÉ$aJW@Ž+”ÊÞ”®oÕ˜Ò2%ïhlx#òEIüÄeªCò „YB-õ’4£„p)è¥j¥’0¤d§R©ÂÒÕàí¡C:• Éw¤b :ó(¥„ÒCÔîx:5²Ëèúƒ(ýŠoþ€cÔº›-Vý>;JŠ^È=lÚº»(bÝ]Q®‰ZwMÙ=jLÓ°¶éžŠ°»V©É‡žŽ ö>Œ61gŠ_L)‡”‰Rlö—vD¸ +`ŽhŸ13eÙÍ6j]E\§Ô—B+…Ø/÷!¹ ˜óVç®fE÷þ»Åî±Gzc ½áE%+Äï–ÑïºÅ—®xò‘Á¬ªËšôCr-n,͹n©2°‹ý(m¾hxm~`W®j ùMC…!cݦërƒØÁ:PÒËÞÐ ëUê=ô•<î¸àŸk•ÊØuQqO ð“%ìë ÇÍ"ùa¹쌣Šö2^ Ú6{ßñ¯âwóæ4×ì¹´Ûûz¶q‘À÷áü9¾tI9oÑü]½Jd¼ü[xpÿßå}¨Áp¼C¹ówîؽýú¼ëÙÿ§[ÿ¢žFf[CëfV¥Ö4´°ñ‹Ï ñųígŽ7ÌgÞ0f¯ña#½Ôlæß×W4F¾3¡&ŠØïC<b¨÷êÃ-UEM¹5ªM½Y—Þ‰úèìhzQzRª!ö'ø"Õ¬º”«FÛY´è®7\ñ¢]É'¸úBŠÚíž úL…šrM·Ø̉|kªµD¤g%¯)b¿Ú‡x$5Õ˜/>´8ÔO,ñ!žˆµr¥sò/(Ú- ×*܌IJã¸IçAƒ§ú£¹ÓÐÛÚçA—„Þ:ßyQKÐ96jŽy©#vÓûÅLtº×hÄ.dXï?nŒØF¹`Ø7¼rëžË.ßzý®›¯Ù}ɶ‹¯¢yâÝ3NvÜpòdº·áãÞ¾sµÚ¯Z½ŽwÍ1-}zù@~B·ÓþÏúúæ|M¯·?_(g÷:, 7'ílÙpÊ•ë݉½úô…ë\cº¿T*öç©|ìÅÞsµì«è+œÇ5JYêÎÒ½+ïýÿ›Úûï ÏH/>·=QË\Púº>mõjmŽä¢˜ðkFGy2Žóœ¼mVÜó¯d_t¹>­hÙ¯+Uw‹vpÌ*3ðxô—©|‰1§_ïd¿ce³ìOˆ¿ÄôVoæСsÏ °¢» [cêiõ÷³J|~íK­Ñ(CåXuÁtC1|ß=Ú»&3KEVæY_ÔwèPÐ(²Uª2ôàe / kðôÆœT#‹F‹–^@øZêUTå!©·û¤ß.#½¿§êj&Ù“Ï7³ î(«Åæ\Ò’(áÚt ¶è¼¼U.¼Ã8¿Õ6hÄX–.ÖÇY”f‚Dë’ý¢m¯?Št»h´`›cU¤:æŒ;ž ãºâ‘l:EžÁ¦1÷6$p)OP#{”ˆšBÖÉr4p h©¸®ùu‡¤µj9ðÐR£”¦\çŠ÷Æ)à‰ O”Ò”ÿÓ“ÓÓb+€c˜´ ([Ìq¨æ2¡m‰$[ ôÒS¬,áMü§—Ë–Ë"p>“Ÿ¡Ë4¦¦ s|‚…³ün¸Œ6aè,˜Ÿ‡þhT)g zCdá3~ºh–2šÎZüçŒøËJâgd}x‘{ &¡/¥mD‘³¹hLÅ‘Íëib¬h–‘AÚ6n² ¾"£M™w"¼Ð !(at6²Ð›jõ¬3ûuøO³ö3[§¦ù&7NZüE™ÐÛ™¹)²øë ¾e(9SͱÑdFsm½ìŒ‘•€pu{œ‰OyNËî[q¯åœXYô!ˆÎÓüÈUå'ØÇ<`0`6>’Of×g†²ëûh1®^î%•pô’á=ýçL°FƒKªèΈ8šUtÞ˜æ?„¡O›Này¥À",…Ø„ÑÆ÷­¬¦w×ÛàVÐ[#×`gøuKà"à6ÐÛd ˜7«:l@å¤joK„у?z§Ó‡Ñ‚¿;¢ŠC¡Ë"â‰X+ÇFVtÔ#ì&ÇF¡©i ±z|ØpP>düÙÝ ÎòI6T´x¾é¢QŸ‘ÄZ \z•´ú¢äœ ¼p´åÉ}*p è52£´¤ÓÍ’ÀiŸàiÁkvÑyØV= YŽ21š²Mï iV™H¡¦tÔê#U¯·ë¶©Rš'™—k‹$³êÌÒÿi¦žˆËbÁ±=YËê©Q¬éPÞwfy«d„¾eÔ/ñnл•UUॊĮ¸ôžäƒbñ$ø.¾( sÒ”«¸ôB¹â èK—O}êó( ¹O¦A§Ÿa}OŸOð>Á£‡ÊÄP()T VÊÀ¸+¥y/×a€:³ôzNÐ AsÏá†üï@€>c£bÛøÎOÅt9FØ0€ê.-5[ÂjÌ“9 ±–O}Úó( ¹5`è¾çC@ŸíülÁ£‡ÊÄP()T VÊÀ¸+¥y/×a€:³ôzq`àêå‚n4ö-ÛÑÒtõÅÍ*gØûÓòB'󗤺¤ÌÁ‚‡¥‹)$ˆ ¬‚®* XRø»2pôddvkáoN% ¦€@P¦‘!BK•Ü¼ôɨä ð.ÐwEVÉÊŒV6ŒO³–34§bäÍ1Ó(ô…¬I¬—ß ú­ñGÖÄ®ø6ÐoK>²&öo÷!žä#kß©›#ëy|‘„h=õ;´{:¢ìôêQ[“X˧ƒ>ýy[“ܽÀs@ŸVþvÄÖ$pÆ'xFFðè±µ21ÔÅÖÊD [«Õ‡òØ:îJi[Ç˵El­Î,ýŸ^[­)漊cfn\Ð̲kØ“zQËYÕrÁÉjWY.Œ£‰àëh§ñ5 rØ䘸‚9bç_ú%m‰¯I‚CÀÛ@ßÖÖøš$¹ø ЯHF%·ï}od•£™N=ªÎj» CFC¯¾´TdÝü挋 W7C§Á aÞ|è÷)l««Íï³$†o¾ôû£üa‡;Äþ>Ä÷p‡Øu?úƒÉwˆý“>Ä“üpçxaÑãîTÃwH¤àsp¸Cb->‡;$w/ðy5Ü!3>ÁÛ4ÜQ&†ºáŽ2‘B wÔêCùp'îJi>܉—k‹áŽ:³ô8Ü©V*qwü¥yN wHÀ‡;Äζw¸CÞÖñ\î$wî»ÛÏ©á ôJàsf¸C¼˜èp‡¾ ØÆá±ÿ€î»n`‡;ÄþIâI~¸s‚°hŽñ wx§°%¤ÃU–|8ÑÓ1+3dÈHª«AªÝEkœßvíZhaf´© ƒõé¶wlœßåLXÕb3õõÚìuê÷)—“–& )¨¥’(à±À1ÐcÊš¦n:Ó¶÷ QJÀ èJü½±î½?²Gt†^u&þ6Ð-`…k—ˆ]7Ðí&ß.ûªñ$ß.ùRUÄØ.-ô¥ƒ°èÛ㩨i*¶hš¨ÅiÒ<Ñ=Pl°‘/Òý"ôŽYž4lǨmmÖPШmÖ‰°Â;@ß¡¬ÍšÇ³r„m´H–Wï}_ü±»øjЯnC£Eüï>úø-ß•Ïü¢ønI7ZÄþAâI¾ÑZ)ì™c|ÖQ"a„l=À¥s²ŒGl¯®kÑ^å­bµTæivÌòx¬ánpôD{Ã)ÅÚ íø[&bgÐróDþOoéËjÛô²èkH¥¸¤KPm Ë> ]1—ßDaSßS7‚4­4ÐöÚÚKVÙÝîQé\àwA7þvØu¿ú{É·{Äþû>Ä“|»w’pŽñµ{Ý” KB²àbЋ¥[½F‰NX¶yÀ*»¬ác²™,¶ÂNqÞ˜ÙÆ8 вÚö1­Z®Maeø µ;GƒýýÆ÷]ü¯ñ…äOVÉ`ï•3W4pKXO9 ïÞ Zjr.œ§œï |%èW&ï)ÄþU>Ä“¼§øni‹ÓSôðžr2¼ãäX<åf²ðé~JƒÃ>R·˜õGª¼ád¼GX]ŽßN†Z ­ä½ØW|ˆ'yo8pJ¼Þ`…÷†Sà§Äâ »u{¼Z2Ê®?ZùIø˜~)I]¥lyA·HV£ÖNÁ{„9йø=àX=at>y öâIÞVÁêWÅë3á=`¬~U,ðÔ´ÏÌjÚ}‘Ó‘ö 3GÔ74ŒX6þð>äc¸bÂ÷)óEz-=5aÅ,šXÏ¿¦•H×,ùßèU×*1we£ÞâLè‘Ë*¼Gø3Ð?‹ßÿVÁçúçÉû±ÿ…ñ$ï§ÂçNÕÿ:uWB®`ôäAò¼¾b9&w%8‚,fÌû´’nïkve}QÏÅ#Ûj_¥y¼œñ ªb8ªš%Àw~Wüt*¼†ðÐ$ïAÄþÝ>Ä“¼¯9-VšÇ³]KˆÖ\Òu¿lã”g‰Ì¼\-å ¾gÖç;t½Ï«ç4×÷1'/[¶Q 9Ò²èöúø-b× lãB ±Їx’o´4aÔcl´x.| Ñz€ê-5X†mæþæ wÊ`-Ð ïï›íc奚Ӫm^.ëÑC7TTÌåÀý å¶}4ßMoØa÷‘$wï­r¦´h–±c{é³ â.)™N¾ßâÔ„ííHÞià] ¥²94ýføJÐÑ'q—ð~² 6O†?‘,¯¾ôãoH‰]7ðM ß”|CJìßìC<É7¤§wˆÆ“0¾†t¾-®‘®¸ ô2馴ñ¾É ³›ÒÆuO+¯ûGX“†Í§ d*øàe #Ý7« GÛtq5ïb] ¼ô ÊܯÅîeb¸ø"Ð/ŠlùWkd^sú´A©ï!eÒ‡y½ÌóÙT+6*vXlž›¡ñ®KƒcwÂt4ÿ¬®D}¾øè'ÔÅëWm ¯“ OŸýtüñ:±{ðà?Y½ýs€õ½ z¡ •˜ºÍJQè9ô<‰úàÏAKM©…뉈]7ð ‘|ODìÿÖ‡x’ï‰z…ÝsŒqÉJB¶àÒŽ¨{¯ŽnéÕ™s¶ÞÔç& ì—%¾¯@Ï|njÂÌOÌÙIJƒ€úĦëfOÖ7oÙ4%ÎZÁˆ[¶¨NVßúíêZ¾á+¶|$È{€ïýÞø[>b÷࣠ìHÏÙ°U?åíNYLÇÁ4®i;7Íå³ ñ5ŽÁ†…Æi0˜SšOyIÉcSšP‘‘,ó_ (³Çĺx SRYC›LêBൂ&Œh2×dx¨Ã-Ƴšƒ4íB]O±¨2fbבNñ2…Cìï½F)mddz¡³fR‘®>!è”ÂxHªUH=|ZЩâ!b÷>à‡Š9}ü’@“g>?`ØkúÇ\-ð¼œ÷4]°­JÅðç&º×fŒä à#;׺SÝ-E©a ýwfëè= è¿3 4aDýŸÖDÿLÑ6ÍÅ”Ãï%!áW š0î˜:…n°Ý!h¤#`b¿³ŽÞ“||†0tŽ1Njó \%DëFŸÔnéb”µY¾H¸¤—«´3ƒðöV±Åƒ‹î´âXBÓ0†µY¦8êíñ¾Ø²g‡Píè´QKdÌц©þ¥¿Ð3TgËŸýÙø½ë xáç@.yï"öŸ÷!žä½ëLxÔ™±zW7ÝD,!YPýN­Ï¸¦[4:ÿ#ÙB1d¥ÂbÛÔ]æ^bƒ û®#’ Û0h\"¶„°±¥Å_àGEh®£]8´Á†‹9gã0Ul íkgâ=Âo‚þfü¾v&ü‹ðÐÏ$ïkÄþ[>Ä“¼¯ÿ:+^_sÂûÚY𯳔øZãm.gÖ:2øÏ1“÷Ä÷|±»x?èû#«uœ¯LX4$›26ä2K|¹± Ís¶Á‚Ìï0Íò,egµ=VmÕ“Á®ÿh‹¶TÈ€ýe:—X´%Aþø ÿ/¥ÿðYÐÏF_Ãïg‰ÖØCï‰;x§RwƒmJЄIïľ³ŽÞ“|ð¾õNcðn†ÞI¢ úòÁ†à=£•tÖÏLghÒ¨ »:ëWhªˆ ‰'M~¢‚gÍÚÄ ïKb¢HϱFL-‰ÎŒÑl¼Û"mFXOY÷< ¾žBØÆÃàÄþU>lÛað5ðŽ5±zÊò”lxoY!TŸ{ïÊš·ÌÉ Â½i1]Ú×8úåɬrE#íôiãæ¤Qæ'$$Šv,ðз(ë¸[5M]7‰2Ü zoü]7±Óû@ïK¾ë&öE≻A"vÝÀèRò ±/ûOò RZX3Çø¤£yƒ4]±Ân£"±z€+@¯PÖ"½¸Ö"ÕÖ¯›f4òçiÁ¡-jŒ¼}¾*Ú'*àq@ ´ÕÞö‰D™΀ž‰¿}"vàÐrwuÎòаí±?èCÝâä1|ðƒ ?˜|(GìŸô!ž¸Û4b× üè%ߦû§|ˆ'ù6íaÑc<®ãTsŽ”¬¢•l=À¥Që4Ê´·Ö¨¥½¤É,|س/`Ð)ÊA\Àœ0¿4¬~ÉL SyW‚N`”sÜ°£bȇmådà™x]õYP9&![0ºk4©~iÍ5š%HÔ}ë÷–&Ä·ì7w‘<‘:s‘9±Y«à;Ù$Ï(dà#„€~@YÿÞ#J8bLWˆH ‡ïýŽøDÄî5Àw‚~gdZ(òŠððMBAï¾´Ô[M$ïAO?úã uSO/2‡íûŸý‰Èºéo2-û|S,h²Ñ¨LŠRõ“À_‚þeüݱëþ ô¯’ý¯}ˆ'ùî¨_˜>ÇS|èRÞDBõ—u¨Nñq“t4ûÌ+õE³—Èt7ý’°º¢¬5[¨Ë÷7$ÑðvзÇßß»ýÀ;@ßÑÎþ†¹xèûÚÜß,¯¾ôãïoˆÝ«o=QR¬ý ‰úfàWA5þþ†Øu¿úkÉ÷7Äþë>Ä“|“¦Ï1ÆÙN—5éaçÎH¤`ôÙÎÆÞfÓœÞÆñî‰ÎÍ4°š•T¢Ë—V—Rªu+Ø…0;€{@ !vÛ×€–ÊÜ0{Kâi’àZà  oP¦•Ã„W-Õr p ôX2jypôxô61l@ì'|ˆ'îØuMÐfò=±ßëC<É÷ 9Ƹ£Ø¶¦Âv$QPýŽâ_5l˜&ùEj%Ë6´q£lØtâ=3;¡tß;IóÁÈTgÔ&É{5ÂlfÞ>‘&È»£„ç²’n–éûëp6¿@¡,XS'fùJ¿EA·¹4ì[CÒÀ{„ý‡ø½ržHø ÿ#y¯$öÿéC<É{å V_˜çLè…°ƒ”õðÂ胔Æ)Ÿƒ½'âmµžF+T"¬24Ü/-Ñ[S—K å¬RaoMÂL_ZÝ´K‹Þz=‚ðèè/¡{kb«ñÄÝB»nàKA¿4ùŠØßæC<É·P„EsŒñ`6ëód)’ªý`v£T­wÕÞô ¥°–N ¼ôåñ[úX7á A¿0yK'öWøOò–¾Ö½1VKï*º3‚õÕ/¾8‡5r~Gž;S©/È4Y =ÂëãÅñu‰ X ¼´Üø±iÿÜëXE³Ðä?A“$Í=ÀWƒ~µB· ˜ô vwï}dYD±¢¶ý"I¾´Ô•¥áÚ/b× | è·$ß~û·úOòí×&aÛcKŒYáW.I¤ ú±Ä¡#Y“ìõÞÚ—83ûª3~[­ZPáYÓæX´-ºTË÷Vw@*É ‰ò:ààŽ¿!#v¯¾ô";Næ0ùS¸ H# Ißüè/Åßлnà—A9ù†ŽØŇx’oè6 Ãç碔š»•`=@õˆûš4sÔPaÏLã–µ0ñ˜ÎþÉþ6çí ëTà¥ÀÐ3ñ;Æf8áÐ RÈ…u bЇÒ)ä¢:Æ8ÖXc>s ‰¤³[à[ð~´óœÁÎÑtë¦ïà&.*JÎ9¶@dÂC ¥æÓÂ9Ç8á­ ¥æÏ¢9±©ñ$ïçÂ!ÎÕ9sIH×T?‘U¥I×·Î:$àô‰Ëfç‘ YÞ QF½ åŽQ6i+“FЖÀÉ’e?° :Œ¹Änpôddտ鬦K Zš©Ó—¬(š¬3„ù-_M7Ïôñ+£èl‰? ÉhVÙðhùç çæKÓ”ŸÄ]T/SSË’Šï]"FrœXGïIÀLR+€+MÑL^PëÉ)Sö¸Á;wîÞb±ÊïâŽ^ªðËÑyªXfV‘tš: x‹  é´sÒ”Qê8pBÐ)•‡Ú[(Uš‚N™‘•z¾O©V°:]½\ÐmÖ Ø¶eGÓå^à{M¨H—]Ž!¥ÌŸ4aÊ|ø!A§¢#ÚXW¦8 Û´Yç×ýY¥JÕ»ïOF‹O-è”|fµ.|:âF܃g ×nÅ=yæfS­”´7ÌÛ¦{HuöÛîÁÉ›ÍCl°I¯œH¯|áCì zaÖçM Þò>]*õovž%èÎ3ÖžÞ˜sŸîQ£¥½ñ]§Kò®®ËÍŸÐr×Æz‡r\§«LŒ¦MÀi£éæú¢]eÂ6çpÑ®ZMy“þÉÿ_µöŸöTWƒ r^Ü.¥6¿(8^®-. VçpþOdèX•-Ô¤é‡4ii¢Ü¦ÞÅÌI²ýïÌ7£›”´ÿ1ߧNoñ ¾YFp5€1šo3ã€TC¯D¨Ð ½:¤êUÒ|©=ØàÛU-ÁMe|\ÓTª1Mÿ§gi,·\Ãi:ÙáÝ7Á™o‚¨7¶-ï1G]cÚ=èNÔZW6®m]oVQ6÷y]Oúä®ÊÈ­¦qU"FÓÆuÉhº®h©6V‰l¡ÛXuŠ9\0íw„6ÕNó¶?ØÛ¥®à¶?>®‡iûÕxŽÿÓbÿkèTå~iAù+]"…É“òaò­ÀW ÷<_Âä{}‚¿BFp5-¹1‚ÂäIÉ0Y‰P¡›pu9l˜lðíª–à¦2>®‡i*Õ˜¦ÿÓÁ#YFÒÒ´w‚ÏhGðëO@j©{c"7©=‘' ;? ü& óçKËúŒOðoÊ®¦eU"FPŒqÂY‰l¡XuŠ9\{xóoWí·³ñq=L;«ÆPýŸžÃ/7>ÌoŸ8ÁÁÿÿAZਓ ¼ ‹X8mrÿS`×RQ¸®%JšÜØg%º–ÕåæOh¹•´¸jÄhÚâ.M{š–ioÕH¶½U¨–ÃÍIÔý MuÓüúÌ–ÞØ.}ö1rmÝ(rÿ§Wy=€^©ØV…EÖ.ë ˜2x* ‘Æ”oîÓë½B™Î浂IG~sUqJWê6™nD™¤²FŽÃ»‡²›7Hv]7÷¢æó$ïÚç|¯Œàjú%b4팦I±R}©B÷êTr¸Ø»•É·«^‚ÛÜø¸¦ÍUcœþOo×Fh›×Ÿ¥mÛÞ—Õ¶]Ã.ë®9iÐ3´5:¯—Yky·8Óÿ(ðâeù˜µBþ ùue8/of‹¹ V¡ÅVÌ®¿~Ÿ=Ξï)Óx«­˜]ßþ%ªãû‘õ=OrüÔõWÀ¿8rui¥*¥•_ÉžŸ³çï“ÑÊ€¿Buü2²Vù£…=vC’üøoê_#KúôÏV¡Ùâ‰(†ÄQÆ‹Àœ0¾“¾+·V*Åš Ðµ=³n)•w0 :-ÝÏ.ªFãâIÚš¶Aqª±¦¥ÿï:ï0AH¡.† ‹ŠæôReÍ äýš$ÌñÀ“AŸ;x1^$<ô)‘ô™Z;˜ 8E½×ì ÂA.9£~‹°w®À¡ýMNÕtu:·îËj—²PȘ¦µ##²ó×®&*ZãšU`ßi““‹‹·Ê":ÂÅ^Ræ´ øÐ?PfN=ò·~“@?þôo’1© ú·‘MêjÊR`å\Ý,ÓM%³·~˜´vqb]µ!°wnPBÍ¿˜:WЄŠÔ,{ÿ+Isð2A§¤î ­ãÔyÀí‚&Œ¨ã g%¯¬¹ûÜÌ⦾z®7É©"’þrà+M¨H¥ õH®›zø&A&¡Ö{otJ*ä쨷oðl÷*z ð½‚Vx¢¯u_ÝJ¦Ÿ4¡2åÜàFì~XЄ•sŸHÄN=©H§ÁšÇ±j±î}"c¢×¹:Þ~bÖ]ÓNDÊÚ®k%ÃÕûõ²^œqL܉þ×Á­²f±XuØwº¢í¥6Xä{g„ü˜‰ªâ#;· š0é(÷aZ5lÛ˜éR0'Œ4fjÊuá¨Se\¾>:š3äèóîú“´2ˆý<âIZŒ ú=l›M\æ—Eµ‰–ãècvØC\ü0¦ív«Ó›<ë2¼GØ ºWz½2ªIŒ³|ˆ'i;Ú•y¨ÆŽfÄÚÿª—L×Äu€)”´D«B!YŽ¢Ø¿ÒfÖÈú/3IxÑ3tWw — ÑŠE¶UŠzž}û”®(YüËQdÂÐ3ÒŲš—Ú zË¥<’ûðNÐw†•ŸÞHz)¾Ë'ø]2‚G_ÊS&Fó)ëÑô¾ÐëxÊDjÎ5`O­>·Žhìíª”æ‹xñrm±ˆ§Î,ýŸž4ëøZ£*Ùlzò½ô[ÛÒlvíë’m8ß| ôcÏ—†óqŸàË®¦áT"FÐù¦W©¦S‰P¡›Nu9\ÓÙÂàÛU-Ág|\Óxª1Mÿ§E±¥Ø±4JW-»fQÜ{£{*­˜ù ÚVIëA,kf‘ÖÈ ƒ±î`^,<%¹âä+qê8AªŠb¸xA DÐ#Ér PtJS¦þÀ)Fbw<ðtAFTþÂÚ$Ò–°,¤˜tJ>cˆô8ï…B±5T3Î;JŒóBÊrø_§Jšë¢¨UsÞóO[ªæJTÇ•Jª¦#Ð{rÛùÀ… F7V™ZXäC<ŠÚ³…¼=éµrNoØV$:¸ ôªø[5b·x*èS#ëeÝ–ÀY™\@jÓLXç"‰OMÎuêªö8×Up¨«Úë\WÁ¡4’êµÀÇA?®LYݶ5¤¨–ø!à‡AKíL ïO?ú#‘õ4xƒ2U–¶l­d±XaÜ(¶^¤ö•>d «É7Èôñ 5µ §¡ïxK×h~ê±P Q%„Û¼ôõ $à±»è£ãöKbu)ðE _Ùª¶úÎKÓá<¾sßÊsOÅ‘/~§¸îÖo «Ÿ«ï£$þ‹oýlah}ŒÙöÍ[¼Ì ŸË¢á}7˜·q.‹ØÏóa›æ²FQý¶Í&|ó±æ<)ì­:µÙé–É:çÝtñ²„¸Ë€Ñsž¬ŒªFã¶)çÉMPœ‡j¬iUã‰-ïÏoRÄ›!á*ÐR»¤š/ãVœÚ€#zI–3iÐRÆ®w%v§û@÷EÕVêiÁ½LÉ)¼9>o™ˆœMÜrNsFz½wÅ|mÌ1žÿR(Ø,O²Ùh¼$·ÏûƒÚê’˜æšÒg2b…J|“á ‰ã¤éTiÙÊ{Ç*™eŠÎ1kEd–̬¤ïóZˆYBÏ8@>ïã÷ öÔ0!t! eµlLÅ"‚­}Ûœž½íÛõ´1µqÔaŽO¸|.nF›âCCVvÃœä×_Ѭ-ª÷‹;æVò‚QÌj—YScÖ\1ŒE^ç7Í[" âsÁ%Vs|R¯ö6)ZÂûÎØy¼  yß|Vm¥Ý(á«€gš0ÿë<x¦ \y? ¶ÿÛã*4F7IrÜ&hB¥–ÒØåÀ‚&LBc¯4aD=Õ¶RëÂüÎ;ŽÌÚ Û(ò]LpL´ˆ¼écí«V´Êã”ð¤–õ¦-ƒÿ+¼F‚µN•µ#º×l«}AíåÆæ `8¦mêY„$6OQ…íØÕ-è.¹ [±u-.t—ÔƒÐVÔ5¸BЄ­¨›ô^-]Çt—ºæ¸óª­2AKÜuª  “ÐZâ®ÓMQ#×QãõÜ:¶%CÅzž)‘¶Qgæ¶ö =uIŸ¡ÙMŸÍˆOó¹ÉµÄ]/>+è®gŸ ÖÐíá"AwKmüm 4ýÃq± 9¶¥%î^\.èn¹ínêZâî+Í1¬ž$hŽÑ4r­LKÜ$|ŽÜwŸ ¬šcÛƒ n´ˆÝ‡Í1EïÞ*hŽÑýˆ qCïëo‰ùGüë Ç¡­2|&Á,Ó½ì몦3!r±ò¤A©åÙ°žµæ{,MŸ´Lo”æº4·ü¤åöî— œ·]ÐUZ×Zëš·x­  °®yλNЄ­k7cÐv¹<Ÿ*™e³Ä÷Æx­Dèå!òzà­‚žÝBOÞÞ"Ô^ö-è`N˜øòÍ wƒy—‡ˆý<¶iy(‡ê÷°m6‘ó|T›h¹<´h÷„Î÷:ï > ÒJÂeÀ“AKe1ç’-‹ª9ãTâIÚ€ Е‡j (b|‚.½TYW9^§tä%Ér<ð$ÐRo¸ŽÒÀ‹FT«Ue_üÚX•jElö–{øz m^kÜ'Eáå üš  #ZÊÆàÓ†ëmgjf!’Ð$×oèéúëÀgz¶c¼1a ÷Ó8©ÌÛ8î§/šçÃ6ûÇQýJÛšr]0Z0\Ý,:M8ŸnQ9G«bßéC<Šçº¯ª¥á8bÉLöôƒ–Z³âµ¢L¼ç!žˆúº‡µÔ+Õ6ܱÏÁ¥gFY¤ñá·i;Ø«ÏŠ즫ݩ’ÑrU—2a¿lä ÇÑíq‡6ãÖ#ç ›_°•7í|µDúdÒ]í…ÅÞúžä­wX{¨Æ‰Þݨ6 û)míÚe(¨ùYòü„Å4ç)Í,Oš¤Å™¬¶“ â±!Ûtfý1û'nä¡M“Z-øSíL‡y¦A‹RnÕ§ÂÖTµCønÐïN^a%°öP‰ÂR×1…mó',2Ì"TðŽj;ÚþªébÓÛ‡@WŒeü÷‹!µðL)ÇB2xí¹Å×WÅÌ’?Á–mè,°Üí2ËÈOÔ6ÓÒ­)³\°¦hMÍ¥°•vãê3â.ŠmMšƒoO㫲zA,©™ãUöï4Í!z¥¿cŸš1ŽóûñÆhfHŸµËim&Ó°ÂËŠ; ʆ o´h{®a3ÙÄ7~­´ced¦ËPh™T"è”ÜbTÓ¤Ûyc:l˜L’ܼEЄq‡ÉÄîz .hˆÎÖúò;âŸæM¨j)Dæì+I³X4aJ)÷ š0¢RŽÊÈÜÒM2ØÀ)A*U2ÅÐUŠ2š¹ø2A&¡™iàËMQ3õ›&Å”oy½›ïüq}±œî»ã-dè–¤¿øA§¢Ï“…îa-a5T½¿ÞÃâ,ŠV2t‡z+>V§à”ý¹îÎêY×˯÷¥œ…âöN¾±¨ˆ=I+Þç9Ã2˜‚ú‡¸ÎÊøŽŽ4u¿9ÔùÚ× ª‰ðý ß¯Ì»­¢Y ë‰$ʇ-5Ή݀ýñÈÆãÎJ·‡=%LQ,PÖXݘÌAÓ­®ž³½ˆ‡/tôʘÎ4SÄ¿ 7I“Ÿ÷…ö^*ñ'ÒÕD·ãŠ€ý0?Õxï| hB cCÂù å²ù6çŠîLX· I–—^¿[»Àå å6­ú?-ÏžöäûáxÖ*ÌjÓŠðó—¢Q~} „ßç*f¼½—vÜiîLŨŸÙ+˜l”A™f·mg&¡üÀ—‚~©ºØ±×aÍb¡WÆ^|èW%c·ï}_dØGIÈqÔ·oÖ½`Þ\Ï¥ú’T‰ÏhˆG‰Ÿ«®E³ b 97_ˆŒö_ üOÐÿùœÐþ³Só’š4¯ýÿÛ£MQûÇú´®·Ê^M©ùÀ“’ÛEÞ\M¹¢^Þ'£&ºï‡ãA& ¦ÔÉÀ´ SR§ËgUÂ21ËS²è ±>° iú€›’JþÙ”ë‚Ñà•S¨´ÃéPK„iˆ}§ñHÚ(ýu3[]åËø¹Ã›!ßê CŠL Ðz€«A¯–™‹:?j ’}>ÄQ‘׉ ÐKlIC:½^‡sWD_ãÍêŽSïbjs“I«°LB_¾TUAf6› Û|‘$7o}Küͱ»¨ƒŽ>i¸ZKOÐØ)#'`ÜDaf.gL_4çúB5’1¼ôÝ‘e•XJŸ„ÅFß.½<ª§’K|ˆ'ùz™B]L)©— F·Ëµ*‚õ–:ÙT w#áom­Â5&zÕKV•¹h‰¨¢ç -MiQ »Ä÷ëÖ×hIýmÑÐYßo”*îJ÷mîõf·(l×Eqd=DV`/Ÿ‹Ô×µG­jl)ð)ÐO)lŽnÊ"vÝÀ§A?|ô@ì?ìC<É{Ô4¼h:VšOí³34_ØJ¸à2Ðˤ½ª±œ©OHò¸;¡­›³Šì÷bœjŒ±NÅÖóû 7Ã>¨è6Ÿã‹#6%åð>®-±zc\ßìg‘¨†c€¯ýJe±ÄŠ|ºW{qoFÃÿ7öö… -H°€~$þЂؽ ønÐÑÿ÷gµmÞ¼•YΫ|E{3LY5,³-kŸ×j–ÌrÕ)düI'½mÁ:–¦½7ÍñrèI *îŸäWòþIG”+y»\v^‘ÅPA+Ó-Dã;} {;"ìô­Ý ¾Œ£xKæ÷T@Z^áNòŸÌ :• [z#é+ÜIàŸà2‚ÏRaG g\á®LŒæ»ÐGÓý¡/pW&Rs®¸«ÕGª^!M-&ÐØÛU)ͯo—k‹ëÛãÑÆÜ §ã6ýâž%Üwp“ éQ4Œ6âœ[ÇÔfñ¨3r>€ëðŽú~TYC½À( a%¤zHg1>Ä©õú ¼?‘>ü{ë=ãÿt¢¯¶ Åw•°y¥HCôÚÀœ.ç+‹$~ƤÎtÎS㺶XµÄ¢XµR{Iÿ˜í\Z1CR~Z åˤªî<]™ò³óÌ_°£Õáá¡aPƒƒÃRcŽÎ³ty‹¢;¯IdÌAI>9^ÏÝv^ÙBV#õkÐgÅ‘qî΀·¢š^ò\pîλ¯fÏËØ£n­»µsw¾x?{±'új÷å­Füy_n™úÁ÷Úõbo²ì5lTŽ€?@eþ•2õµ£ê^läeÜògÀ¿gÏOØó·É¸å¿dÏ_³çï"ëvy}+ ø*úð?P#ÿIEMg×ĪVØå@&%qåØÃJê:ñUÜEBuñ`»ÑÿÃðèd,ä?Áv£ÿ JÑBή/æ º6¯ÉvQgÚY Ü ªªk2ï>&“^>Ò›‘ê»F€;ØÃBå®+Qd×FàNö¬gÏU‘ÙÙvƒø_ Ü…*Ø©°ø 4ûçyínA“‹zƒØï©#¯]‘ÅXÀ˜ÖÍ1¾Œ£\=7fŽKÈÖ\ z©ôpþ䙆›® ¦½ÜÚPFÎPZµ}Þ¡s ùW·V˜<¾õ¢P`»CÒ\Ü Z¥ã´;ÄîbàÕ £;žÝ°Ç‘§„ðò?РqÊ,kIÞù•¾µ[}±§;VÉ8èÊ Ë›AÀé¼Ð«OTÞ]À/‚þ¢2#XÊ«ZÔm ÃPßþ´º [ &ˆá—€:ú•ƒ§eµk¹5æªú”¨ÿZÝ5¼ ¼Q¼„§Ðd§:¥2ðláÀÿ ¶G Zîò߆\vi] ÕûdŽÌ͈¾—㉂&T©"š^‘QÑiÀÕ‚&L@E©•À5‚–Ûb;{½ˆ©(ôä ‰f-yrFåä I³xž  iïhù€ãˆ  £j†æÆe4s>ð"AªŒJf¤¢’ÔvàA&á1Û€;MQ/iJÙàLXS<ĤáuKÃS¨“”W§šVÜÚ ­•jí^ |¹ åNê†×Ý ðnA§¢o7•níî¾JÐ)©IÙæ>ÅZ»‚îLHõzà›’ºwU¦±»øAFTÌQÒÂ[ï4ás!@x ø¤  “p™G€tJ*‹§—y øQA>„Ï¿"h¹ãú2>ó1àW-—ºoV5œÔçu=kt=_þ\Єυ±Ð¯ÿ$hÂ$üèÀ4aûÇBÿ|VЩgU7ueTÔéábA& "ö+KMQEݤ¢ðzé\ \!hBEzY„ôP’­]çÉÀÕ‚îT7LmÝÚñ®tgäjêÎUèÚ`Ó)&ÌêŠ5f:í-HŒŠA-¡UF‚uö;Ú]Ò°%„þ>s´mzÑÌÙ&wÌmº]4]+£ Ñüð°·»hʲ÷ëû“ÝV•RZìÖËkéwê”å¤liW°t‚;ƒifúp­÷=”Ü«þ]Û¬R¥êöÀô§Ú•ÌÜm±¥a·1nÚ5Û3ÍD`o3wY9‹^ßÁJ,„IÓ?KúLÎж²j*öeêÌé²Ú> .ŠA Êè·4¨™2ŠE‘XPä«s´jÙ5h>ìú©]ït—Ôîó€f!`ý‡ Ý`û'‚&ŒØ,„^ÿ!öï©£÷DCbýç€hR8Æx€…2(U¬°ÓÓ$TpYGÔ,ó„úRC¾èúA–áÆÃa|¿™#Ï1Ž„µ‡[YÁ†9Ùxžÿ¡1ÛçGdÄ…·sxál­8<ÃþN¢Fþ%è¿T7P–»ÿ¤ù1ðoA'°ë…Øýðï@Gßõrf3{ðôÆDÉ©íïÒT?ÑrSþ-Ôþî<’f)ð8Aˤ ­6¾Ax¼  £6áa;0bB½'îŒL¡lO´äŠÇ¬Ò‡íÀˆýÊ:zOòØAaÐcÜÀ`[Sza¯„l=À¥Q704fŒ¸?°ÿâ1})f}ÇíX'Ì“94ëÈ2­V¦Ö”±îÛÖg¥'N›cè"MìÁ”¨œÀw€~‡²6­Û”ÈAJ¢¼ø8èÇãoЈÝ;O€~"²/Ù|4„ ]$¸äC³lô»Õrmß (Ï¥H5E—‹̱1æ°Ç{‹RÐ& ‘û#-‚”Ú JÂÞ'0µJЄŠ, +8Þleü^ÂÕ‚NbÝ–Ø \#hë¶ ¼Ý-áÕ—n MA-M”ŒMB²ó€šP™z¶Ü» À M˜„U · š0¢U,¬m¹ ½e“¹x…  ãŽx¨™èÛ+’Ú(-â!öWÕÑ{’x^"¼‰£ú‹bŽ-NÞ6sÍLrªx OÒª öó|(}MLS®­²§¹¨ïCÀ6eO#ö>Ä#ÙDUœ[Én|ˆ'b­¬¤;N­âظÎB•kM#?áæôªa‡ÎøðR(Šp%h¹±J³Žì„©ÉÜ…%ÃÕYtÕ_±­½Ìx²–v³3 w:p#èÊlú¨Q£¤›Å¾'7–ÊDñV⿸´Ô±å¦J:mÂu+Ζ©©©leü'!/Þú&eÊê­ÚAª:x3蛣÷@á³W’·s sÊŠ?T¯º–ÐÐ÷ÞÖÑÖæ—Øwú0Zó»,ª8·wˆ»°<ıV(äÆ”éd´Ýl·ZÛVÔí}FF»2«¥‡‡ÄñiÃqùĵ³EÛS;píbª{ʲ µ9×6 '«…,ÜP3¡úL'\d³q­3¡]iø5’—[U›r%„¼ è‚vFÆybˆÝõ@_¢ÈÄÛnâ? œ­îâ’®µÃÃÝ ¼ ôm õ‘³Š…¶ÓÀÛAßYǦ7®ìËhCë6nîïZ·iPÊ‹¼çõuT¤¡>¯w-X&õ¦CƒÙ¡¡µr¥½Y¦½, Kâ‡ìgIÌ·¿úK õ8iع¶¿ úËÉw3Äþ+>Ä“´w ×PM§»›u/¾ >£]Ç»•¡AÊèb• Õ¯í¶ÆÜ)Ý»W‡„|p´ÔÞïp] ±Ûœ=Ó†.†ø}P™®:×nçà ïŒ¿‡!v/úèˆêX”^KÝKÿºMRNô2à P¦˜³šõ,›6¬Ý8°×q²“ƒk7dÍÁµ!{õaà§@*þ^…ؽøiПN¾9'öŸñ!E¥_8ÊÞ¡5£¼wuÎP%+iãŽØwú¤Ñ.Š*ÎË;ÄÚ°‡x¢ìÃO-ß •F_LZú9jŒ%d[<´ÊÝ&‹?wC„ǃ>^!Û€Åb× <´Ôî’Y5¯‰däeÍbmÔ¤iLyÛ&uÛ´ª¡·“t'7‚–š´”°“ÀE\æ|à6ÐRiÂklðbÐGÖØIµå:±ÏÐà{.ø® ]]¼ ´ÔœeKßî:ËÚ%]B¾}@´Ê9”þm« ¥æPÂ[ËÍÀIГ‘­EdSÓëY•\K+Øú”6曨CžL‘à¢bYEƒÌÊ5K´_¾bgÆ­rè)a*Çðó ?Ÿ|Ç~0ɪ‰/$zÒW€9a|=é|½P I· xRqã º;b¡ñD¬–mgœq†–׋ù*Ý ­qÍ6}¿*ûëÖ;¹Im¶CG“ˆ ˜M§qVè’¼ J%ÜZ.1•ÿÓ º«×Ïú*N7AôîÚÕ›Ñts„€d´#ÊÆxFË›#yþ›#è7¡‹qD'¼ô…Ñ‹¡ÍúJa?²¹<Ú)깑Šî¸FZ,Rf´C·ùí&#”·¯/t1^ Ñ_­´áíû~ðöPÛo"ûöÂøDoäQ»Þ¹ÁòC‹ÿD&Ü:úF†„ÈifgΘ2‡3'ÍðJ~ $"<tôñ\x%?ÞªQò\ɦmð4kþ“SÛ¶ãîÐ’¾ÒžúŒÈ’kUy#åTK%Ýž!½†Wæë á± Q4˜ZÞÌs#LÞ39ÅQ­ý¢š /÷ë!+áè¡6áCàí¡#ÜCFÈw˜îDº¯™!atwSê“–YÐ&ôIlV° ~—2U{6›åS#¼Û%"tÑFq÷€Þ}€‰I˜Aš&aíPxx„"< ´ÜåÀÑlààí¡ØJ6Ъ—ñÇVi×ÖËiјS孒ᄯÏ7Av­ £ïÒ>7@áMÈ3˜^ŸÊ¬Ë öõ…·æ·CzBuc›Ó­yh0³©O‚ßÙO}z,øàí¡ î% .éû žÌ‚ßààˆó†z‰ý0¡}„#ìÝû¼4ÑG ý#JMôìÖ&šÑ*TíR­í»!$áÙ Ïnƒ­þ x{¨ÆVÏ'[å7’%ó‰õ0žåW9Þ¿F¹à5Åòãš÷@pÂóAŸÿ¼´ã÷Bú÷*µãá#´ãŒfŒéù‘A {~ƒnƒ=?Þª±ç+ÂD|37™™[vÁ°Ù 91vßµ+¼u?Žb^ZêŒ`Û­û Hÿ„RëÎκ¹Fz™²dæßA ³ ³m°ì÷ƒ·‡j,ûZ–­ç«X¥©vöû8|$òˆðZÐ×>/müƒþƒí°q=Ç4 aãOBÐ'ÛlãoÕØø0Ù8ŸáWZ"]ý^ôúöŠÚüVhÁŸ‚°„‘º¿¦lõ„nÂú•`÷´Ò: ½´Hì;}ˆGBŒf«òó&¨q )Ò‡;Ä‚8áÐK”)eÁè>cfŠù]çp)è¥ÉëäÃxÏCƒñª¾ã_ÅïæÍi¯Ùsi?Vz¶Ñ‡}ΟãM—”ó-Æ×+uIÆ˾õ‡÷ÿ]îчL§;çŽÝۯϻž%ñºõ/êid6"©V¡5Í,lüÒsB|élë™ã ó™/Œ™E£Å+Gº§¬—šmàñuËëè)ú‘„(¸v ñHˆ¡Ö¨óZ\Zªzšr=jT/šz³¾¼uÑ9»^’V ±÷§nãH-kpÄy'ß9™¾Òp'¬ÆÖ0M­Ñvä(…€ÓRè.è‰0 :«PgldSlæJ¾­ˆ ’×±ô!I5&Æ -õK|ˆ'b­lbŸK}»ótµ©1{+.’%Lˆ³ù¢î„Þ„?z$l²ñ%¢ÌëevÞvˆA²\Üz›2ûÜêIì6/}qdEv†>Gü/^ úÒ¨rtŽšc'ÜRñÐÁÑÝÆtÅ~1³$€9#v!ã¸ú¸1be6´¾ñà•[÷\vùÖëwÝ|ÍîK¶]|íxÙ=ãdÇ ×(O¦{>îí;W«ýªÕëx×ÓÒ§—ЕÜiÿg}}s¾¦×;À—/”³{‚Q4'ílÙpÊ• W܉½úô…ë\cº¿T*öç©|ìÅÞsµì«øVÇ5JYŠ1Ò½+ïýÿ›ÚûïðH/>·=QË\Púº>mõjmŽä¢˜ðkFGG­ª{ð¿ö%‡ÖhFÑ14¾1q0ÝP ßwö®ÉÌRQ†•yÖõ:4®gÕ´ëÊ­Ûví0øwÞÖàéEo,-Zzàk§¼î¾±½ê¦ê‘p×Ý>éwËHïoA»šIöäóͬBÆ¡Êj±9W2鸸6/:/o•Ë"Üù­¦‚&ËÒÅò8‹ÒLh’_´ÝõG‘n!ç`% ë^7ŠÒ0|.TŒ7ñdÓ±8ò¤4M‚,ð!Iy‚Y¹¼$ËÑÀ% ¥Âì¦2u…?rˆ‘2Çc@K ›r?Zâ£ÅÆ)`“ Ä’qª–žÎx黑=»®¹$CG’ÆLWü#´1‘xÇ×^YLoŸÎ®ÙFaäÒ­Wìf’í¸3EÀѦ‹^ñ›‚é¸á?uÊÙŽ,øN7{Nt‡ã ?aè´¤%WÍ=p è5‘¥]ï[{[E3šÅÎðŸT»â#7ÂæÑ…—p=èõ‘e_ ًƤQ™>“c}Çè 7Yõ_‘Ѧ̂;^òE–p-赑%?¿VëzNÊh%þÓ¬ýÌÖ©i~Š“D….„×—žúüÈ…È |ÖÛr\[‡f¿Ðíq&¶mMIˆ¼bf@g"‹¼"ó=AC̺óØ)ÄÛ¤³ë3CÙõ}-oY0É1£åD)C—c)d'l²eV²çÕÚÖ p AÝ1`Ÿ7¦ùaHDЮßÀœJEX± Ï}žT¨÷윭)Xn³ dzi¸tôì ¿£€^º¸ ´ºÙª£F«Ž>ÞlºÊ[½ò5¤âÚè1,±ïôa´ö•QÅ¡¸|‘ñD¬‰3üˆ2969ï(–önð%V²… £»Ä9†²Ãðié iŒd8žú´(Ó) &¤é›VÏ}¶ŒLM\À„4±Ó€ç€>'º‡g%4’ñ!e¥¸¹ØuûA÷G/}Ø…Øg}ˆ'ùÅ7Ô‹±AYà %¤ë.-µŽÜ´]Ù]´ÆùŽzßÕŠS¿gÔQ®!͸ˆçñížiwö¥Šôž±:*j—ºið¶Y"JÀ èJüͱî½_Aä¶]"þ6ÐíÄß.»n  Ú\üÐí±¯úOòíÒqÂœ9Æ×.%æ¢$dë.í˜s‡^ÈVi^ƒLµh•Äíh³Óc¥iÁ¾Äœª(6˜S6ú§­»–íôiü‚5×¥ñèâigÎÌz;ƶŽªkð“ ?ÙÞ¶ŽDùSà—@)þ¶ŽØ} øeÐ_Žìeóû²Ún#ôÝj$ÄW€ßýMej™±áêfÑ‘êûÀ¿ý7ÊÓâxbø ðG ”|tLììCà@¿¡M*y#ðM ß¤.ºêå ùRJy'ð½ ß›ŒRÞ |ô£‘•2ÎþËèå1àûA¿_aC[̤Ôòaà'@"µ|øIÐrÓzþOÏ¥;×D’L=—³ISw Q\~ ›;aò|æŽE;é7ü¸;ÁþFB™Ÿþ;è. ÿ#0•tJjFxeþl;MQ™ÇjzÕµJ:Ï_EÙx 7ôIÔ<^ЄŠ´´ÈÛù)3‹L"­¦J'¢«Ô À>A&=Ø$¶g×Ñ{âlún J#蔂m a›Ä>SGïI~°y¢°jŽ1.ä{ %¤ëF_Èo”ê*‹Óà¹ñ‘‚iÊb‚Q2x’GK+éåªhz|#PoÐ9ÉÆ2& RsUúš°@e:¨ƒÖãwß½!üÆóîŽY7ž'åÄ>ïC<É;ÀJýÊX`¡o§½„€=@ßÆIhœ¯íaæë›lháéœÄÍK¸]”Kg.Qöfïk™Ì¼„ÔZ¡*æsè¾[ZFæëËô›ˆsüT1'½èú1uP©9~’åIà‡A8þ¾Ø=üèDö*É9~â£ÀOƒþ´2½HÎñ“0_~ô7”)¦Å?1ü ð› åÖËýŸ†»ˆý3>Äw¯Cìºßý­ä{bÿmâI¾×ñÝWç>%q˜KB¶àÒŽ¨û”wO^×¢ÃÉ[Åj©Ì ±~!Ö”T¸À ÐÊ'©]E$Š´AÛñ÷ÄÎ: ¥v.Ϊ[0ÃR V_Ø™4ò.%œ½°S4Æ\‘¼š¢‰º¤)±L¹è{É*¡÷gRé\àwA7þvØu¿ú{É·{Äþû>Ä“|»w²pŽñµ{ÝtRTB²àbЋ• 5NX¶yÀ*»|°Y2E’¤Zcfã4‚Ô¶iÕ²p Ó(dDžT/ñŸþ¢ßø¾‹ÿ5¾Óšì½²cæŠ6n†õ”“ñá½ ¥Ö•ÂyÊÉðÂW‚~eòžBì_åC<É{Ê)ðŽSâõ=¼§œï8%O¹™,\\þÃ>R·˜õGª¼á¼GX]ŽßNZ ­ä½ØW|ˆ'yoXX¯7Xá½a<`U,Þ0Z›¢Ôíñ*ÍKúÃ&1ÇÂgg0Íè3eËó Ý7È…u…Uxpè}ñ»Â*˜?at1yW ö%âIÞN…ùŸ¯+Ì„w…Saþ§Æâ Amü̬6ÞBi'1sDDÃÐÅaïCþ7†¸E§hM±á ¿=GKOM˜E1Z­Tj¿f¼×,ùßÌZÎ =„9ïþ ôÏâ÷¿Sás„?ýóäýØÿ‡x’÷¿Óàs§Åêó‘ÔFB¸ಎ¨›ûçn®hÙq˜í˜ÍWÊh¾'ôv‹Ó:êÇðo}“tµ7V÷2_Î&©]4$–tAKÄ 7yCìnVAG?xzV™ØOúOÜM±ëNžJ¾i"öÓ>Ä“|Ó¤ Ëæ_ÓÔ©‡]Æ'yz€ A/T¼¾b9&oWÐì` ÈúÙ}ZI·÷9|Z1oÙ¶áT¬2M+jE=gxhYû*Íãå ˆoP5ΤªY|èwÅïA¼†ðÐ$ïAÄþÝ>Ä“¼¯9=VšÇ“ÔIˆÖ\Ò1çZˆ]{‰Ì¼\-åXäJnT÷ï¾&xUãºËú>æDãe‹î$ãýº8l/áƒÍš{i“¦Î?—(úrà!Ї”õýÁíY`oO‚Ü|è—ÅßÛ»[/ýòÈnÒS‹æÂ6Z$ÇÝÀ@?£E캯ýšä-bÿ ñ$ßhõ £æc£ÅSWJˆÖTßhÝÌ,Ã6ó™ç wÊ`-Ð ïï‡G'y«nÌÙNXŸË(°_–ø^)=oð`ljÂÌOÌ9Þ@#‚úD¦÷fO)Ö7¤Ú´ºÇZÁˆÛP©NVßúíêZ¾á+¶|$È{€ïÀ!mb÷࣠£Ò~xÎ&T4}8êÓq0íkÚÎœ­@3ò¦Å|$¾Æ1Ø0³Ð8msJË,}Q¥<&0u  É2ÿ% 2û–I¬Kך0“I]¼VЄMæš u¸Åxv@s–¦]ð†nP,ªŒ™Øu¤S¼Lá^ö,KKÙñlèü T¤ë€O:¥0’jROŸt*xˆØ½øaA§¢ÇCN¿Ä,’®¶Åšþ1çÝ´´×a2úL¥+ÈT$."'Ï÷ ~¾Œà5Séì8ÜÅ|¤‚8Åhžd4½o´/¨f.W&Rs®—‹«ÕGª^!Ío‚ 2övU 7ô„¹ÎG+«Yú?½\sÜjÁ4 ¸¶)æÁi—Žäó?›©µ´´5!‚·ß únenx¯`à|Éñjâ‰{¾‚Øݼôý‘Õ:Jã.Ç,ñ5:€6ÁÙå¶ä½¤Yž¥á¬¶Çª-Õâo28µm¥–Jöðw §LÑ+µ$È¿ÿ ô¿%£éþôï£Ç¬a#vbÿï>ÄwÄNìºý‡ä#vbÿ>Ä“|Äž¶Ì1ƈ½>b'‰z€êGÇN-bŸ“µÜœÓá¼õ©eî™} Ù ¤k««ü›ÂzHïÞúŽø=$ ¯ ¼ôÉ{±¿Ë‡x’÷>xE_¼b†÷>xE_,r°aL›Ñ˜ÝÛæ4Ï^Ð]…[4ƒZ±­I“LÒ ³6ŸËF½%1ªçè‚>qñ(gµÛ*CVXOéÃ{„ æ}éƒw¶1ï ±•Û–÷ålxÇÙ±zÊò”lxo9B=!oã~þ+›ô'þ¹ ´XEèkœšÔmSÏ´Ó‡$¤tÐH¢hÇo}‹²Ð¶UÓÜ’(ãÀ½ ¥îa Ü;¸´T¢hÁ-±/úOÜ ±ë–@—’oˆ}Ù‡x’oÎÖÌ1¾éhÞ MW¬°» I¬àŠŽ¨×Q5¶H/®µHµmM“úS²áì#5FÞöwíð8 ÚjoûD¢Lg@ÏÄß>» ðh¹‹ fyhØö‰Øô!ž¸Û'ÜZÀñ% ¥®ŒÖ>ûC>Ä“|û”ÖÌ1î€)|óDRõÕL×cg5,Þ®¡Œ6œÑÖòƺ¾Æ†J/šãe>ù§²m¢Ò ÜZ.bPÖ6‘(6° Z*3J¸¶‰Ø“ '#»Å¨–ÖJ†^vDvÜŒ¶ÿYsI©F¡¯ù|Ê새y£ìíu”ËTA%›~ôwâoöˆ]7ð» ¿›|³Gì¿çC<É7{ýÂQ8ƸßͲÃ''‘z€K:Tú¾?xÒÑ×ÖMXS³fKê%¼Dt'XÃ>´ƒZN§ÓmÝâ@#1|ðƒ ?˜|(GìŸô!ž¸Û4b× üè%ߦû§|ˆ'ù6-+,šcŒ§Ø\›õœc²õ—vD=ÅÖxœúÁ–™õtßÚ½¥ ñ-ÛK ÐpÏN¦q•%Ã/Ú1p~…}.²aÕRaÔ2_ðŒ•Žä‘ª—ÀG@?¢¬]ë…1¦+aAèqàÓ 8»BìÞ ü0èègWž«QbÞmI(è#ÀÏþœ2É;ÕW€ß­î6~’9l?ü&èèwñô7‰¿Ë>w 9, —I¾L¢>ü/ÐÿEìºýÇä{(bÿß>Ä“|5 LŸc|=Ô|]Ê›H¨à²Õ?n’î¢f¥Þgöi™îfRV@W”µf uùþ†$šÞúöøûb·xè;ÚÙß wï}_›û’åuÀ7‚~cüý ±{5ðM ßôÜîoHÔ7¿ ú«ñ÷7Ä®ø5Ð_K¾¿!ö_÷!žäû›AaúcœåqY“v΀DêFŸåiìm6Íém­l‘xhö6±YéE%J±xhu¦Z·R] ³¸ôžø»b·x h©D³gïi!BB+×o}ƒ2­&¼j©–[€c Ç’QË‹€ã Ç£·‰a{b?áCæjCÞ ^Õ‰-¦,{s¾r«õS’QÌÊðE‚mÛ^» ¦# J“ô]5©ZžÚ?,›9ßíg)²Ks4Ëùbµ@lǬªíNhFÑðæ_|ù=&xBªÆ»w¬r­ê"_Â3Œ÷¦¾%hBEqÙѵKxÂFf$Ï÷?4aÜ‘±û6ð'‚&ŒØü, 1{Ùr%”“ú)ð—‚&T5”é¥ü ½2šùGà¿ š0 Íü øo‚NI Œ3ûß×Ñ{âîÉM»Áöß’:­w&ö¨£÷$ß;¯öÌ1¾Þ¹«’›Šê.½Hºsž³y¹ç:3¥œÅOáUz6›9KÇYí¢¯ëÍPwci!ÙÙ_¥øÕ›I”ÙõB\ 4AËâÒÌn£D6 Ù&A«ÜÇ0)Lì*À—€–ÚÇ®e$v{‡@Gß·»–•Å7 âʇàInß! |+ðIÐOÆß–»n`÷èû§|ˆ'ù¶tð;Ž1ÎHWó@Ø´ü$R0úŒt£Hš{¤ÙÔo‚4’ÞiÕÐ6Û¨ëÿSjp}kªêĶ‹^æYÕFÕ¶ø§ ÿ4~[§"üè/$ï`Äþ‹>Ä“¼ƒ­‡S­ÕÁº+á/—]Ÿ"T>•ÐqQà +fÇÈ+9Ì},¯ãze¿›¤MÿÕsåY¼ôÕÊL-›°ÀñÉr=pôhüQ±Û¼ô‘­ÿX~ýµ×ÈõIEŽ$ÑMÀý ÷+S’ä~iæð6з)ÓR‹ýÒÄÐÞZjsI´q-±¿Ã‡xâî*ˆ]7ðNÐw&ßUû»|ˆ'ù®bƒ°hŽ1î—Î[ÅZR¹P²õ—vDÝ/Ý(ÓMGt‰ŽëÙŠ›bÍb¨°î@e\´@[ñ»Ã¸at%yw öû}ˆ'ywØØ«;t1‹’¬}š§Q óå|Á[g(ËRà ¯ˆßÖ7¾ ¯}eò¶Nì¯ò!žäm}ì{S¬¶~TNæüß&˜ø¦Ž8šþKŽØÜ…ðJ¬žŠ²x-èkã·úM°tÂë@_—¼Õûë}ˆ'y«ß Kß«ÕÏs&ôBØɧÍ0tÂè“OSù7=¿”!]´Æù2<ûÆÑ}Þ@šf¡¨DØbRKÏ“„É É¨ˆË%Ð¥vÉH˜IàK@«›No1$#†eà!ÐÑ'ÔCɈý­>Äw Eìº/ýÒä[(b›ñ$ßBmÍ1¾jëÓd)’ª=I£T[žª Þ´8¥°–N ¼ôåñ[úX7á A¿0yK'öWøOò–~.¬ûÜX-½«èÎHÖT¿¨îÖÈù}ÉîL¥¾ÐÞdÜ]"÷‡†OÒM_ ¼´Ü$aÓþ¹×±Šf¡7È‚f¶Iš{€¯ýj…n0³MìîÞúþÈþ²ˆN¡`§DØö‹$yøfÐoŽ¿ý"vÝÀ·€~Kòí±«ñ$ß~'l›cŒc‰1+üŽ©¨~,qèˆÐ${½·ö]‘™}í­·…—ß'1+mqÚ‹v>‹ª`9ð>Ð÷)kˤ2‹‘(¯> úáø2b÷jà@¿!²ãd“4Œ›€äR’ôÀ/þRü ±ë~ô—“oèˆýW|ˆ'ù†nD>Ç8§Å kZZ ÖT?-¾¯I3G öB6žWéìŸìosÞñ °ŽA^ œ=¿cŒÀ€V75¬cûƒ>”ΛÕ1·3œ«cÌgŽ!‘iý|8Äùx?Z2`çhznÇ—µ—V&ççCdÂC ¥æÓÂ9ÇùpÂ[AKÍŸEsbÿRâIÞ9.€C\«s, ç ;“®¨~"«xÄÞá]Ÿœ{P‰¾´”„s à„·¾-y÷ ö·ûOòîq!\âBåîAبž‚å&çˆÓŒ>blô‡ebc-GX›%©–5ÐZü6{!ì”ðtЧ'o³Ä¾×‡x•¾g´¦–&¼WÀ4·ñ$][aãâ‘ô–s£Šs<ÄC¥©éÎìÃ_NŸ¸'oÙì«ÌW“C–÷b”‘p/h¹MgڊƤ´3+p2‡dÙ¬‚N M<±Ûœ=Yõ·žÕt©AK3uún(¡ ‡&ë ¡F~ãkÓí‘}â4~Ó/åwZ¥JÕ»„TƦ€ÿZþ”j> q7÷Á3†k÷sŸ®‡i*Õ˜¦ÿÓ³Øà¬l¹†Ó4Tg9ÿ}gÞQåÓFÁ{ÌQ— KºµÖ•+d[×"ð”-ô¹O‘‘[I‹«FŒ¦-î¢Ñ´§i™öVdaÛ[…j9ÜœDÝÚT7Í3”´ôÆvé+°ˆ‘kë@‘ãø?½ÊëôJŶ*,²vYoÀ”ÁQˆä¨|k‰^ïÊt2¬¨Íºˆ@îH™ö¢Lf[âðî¡ìæ ²Ý6uN¡“Ï“¼sÚ'ø”Œàjú%b4팦I±R}©B÷êTr¸Ø»•É·«^‚ÛÜø¸¦ÍUcœþO—‰Ëc´ÍëÏÒ¶mïˆÝrê—êHuwd©Bï|½¶å¡š¯Ûø/sÂøN¹h—ì¯êÅ~>ÚÅ~X¥þKø.\G»’2z‡=ýr)Þ#= íì‹£j“Äö!ž¤êП‡jŒênÿw)¹]Y3êŠÔ5[¨Ò€*Erö´™5X43Æo¢#Ýò½±¬Ñæÿ´uײ¾ îrêwLºÑIé2šc• פÍØ,„¢Ý×,tª–Jº=Ö°/CÞ ZÎÑ›ÎûL½ÄFüB=|ôC ãÀ]ÄðàॎìϪ…¿ÍP¬H…té9O9èº,âõî´lÃqùNü ߊïÝ9X±,Ò.ûÐ,QÔœÓÚÊQö%ùOó-Õ|‚Å =× ¦]À¾ö…^F†¢1æØü^0£0ÎìÊdïçõÚå‡Á´aë·„†ß 0u@Ð)¹#ÆÍϘ¦^ ÜàO’ܼSЄŠl.pƒ?±;¼KЄ-nžÌt‰ð2à+-¹ÜtÞ2EhKµ ) E¢®:µT˽À‡’jfÕÁ´ï’ê<ë%rÏ—Ñp?_ZÔT_ó„¤ÚŶÎÛ‡F?ßçTÙ Ûpqÿµcˆ{$,áaKM¨jµ„c¦;réÖ+v_"aÇ5Awj‰ØCçRàé‚îŒ~D°3t\Nü{gš0éj»Pk Û—_æ„‘âò¦\Ž:ÕœcðÓÙñl7˜wן¤•AìçùOÒb¼ÕïaÛlâ 0¿"ªM´«õï¬_œºÝ ‰(šW1p»ïžú<éÛyQUKb\àC"d‰ˆ'Õ\+hÂú¶Ôà:AFÔÏ[ëÉçæ½ôÍ4b‘1O‹ã…Âf¹lØ^.» ØØ™°ªÅ}kŶ&ù UÚ1i@|…—¦`²ÙÖ F‰d,©3¨T5ë!è”\ˆLŸ¶±£Ed›ú™  ŸíÏ}‚ÿ\Fp5­1bèh•Èº£U§”ø:Ú8k&¸£ëa:Z5êÿ´_t´" {}ñ—_Hš§l]fÙ‰2‚ñDî\,hÂ64¬ FÇõRI—nZi•Šã©‚&|^4­§ù?MFp%M«1‚¶Í{Ê•i\ÕH¶qU¨–Ã5®‡3ývÕM`ó#×ÖÍ«"#õuSéˆtÎsaÓ9 Ü$hÂÆ1àfAFÔÏ‹ëã :˜žøx†WŠFyÜІçܯE>#Ÿ³Ü‰YCGÜgÉ»O mo¾NЄ´ÝTëoI÷AàGM¨Léõùà¥Ï6¶ï#9k—t ±ß |Ÿ  åÄžóÍo~TЄIxÁë4aD/Îx‹XNm̪dðŽoožXØ ½½„äý8ð7‚&Œ(wè…ÞÂ#j¨f¡÷z±Ð»½ì¸†^ vaÖVË&ºÓ°¶˜õ_ßS)síÞN”ˆðzÐr·$7k9–QAw¦hŒô’̽a;ëf`t9~—!v7-ÐVdgú2šÅG³_ù Ëb>¢c>Šw&TOüº1‰~Ÿ$­ß Zê~¾¦z<º¦G¾ ø8èÇ“Qà[€O€~"²Özþ-a[ä}À‚–jû£5fW åÖPMcv”hÌBʲ üwáß)’&{|ÔªÙ…÷<ÄÓ–ªÙêØ­¤j:½'à b;¸ôÂèÆ*S ‹|ˆGQ›vŒ¯o¶œÐÝIv ð,ÐgÅߺ»ÅÀÕ å«üŸŽo Œ=XŒGáI™!eÚÒdâ®!oCSÎ(ZS³¶8y—5É„õK*äà} ïk“_î/îi_î/îi¯_î/z¨Ö/—úü2§Û¡}rüðtÐR»ãÃùäø!a/èÞȺ¹î}Rc5£R¡Î΀ži“^¿»¦=>x üîšöúà5ð;ÕúàrŸ:z!üÀíxÞ5°–cÆí…×ÀóÏ}fdíŒ /$ã^§Ó3Qä‘eÇtgèWzžÇ <]_í,d7ìì4f¥ í”TƳ€÷‚¾·MNy-ñÚö8åµpÄkÛë”×Â=Të”þÉ2œÐ>y-ü°´TÎ'¯…ž:ò1±Ô<á“l,nÚ>åë$q¶Ø6ÆéúwÖWÎXøU³Î{ñ麨º»Ûú̹¾oA‡K‡ìsã|À°--=kgÑÔ„Áo!lv~šÉV±XÃ@B³ï(ã:Ñ}üÐ-Ô9ëZ‘ŽCÓ÷ô;jIH˜ÐSª¤‚3¦Ò‚&lK“qš‰ë¢6M¹.àM…y ™AîB qOÒs1Ä~ñ$-†oÖWá”ãÍo3Sö6ò94õéx ›‡q;¾¦ÆÝ ¶ŸºÝv½~T/—-W§/pÄ!˜¿…%t@;ÏÖšÄ:|èWÄßZ;x/èèQÅh}æÛw¸ÜÖËã¼1 Þ¾ýŸ-â¤z›.9UN%{%ð— ©Lï|±´h–dÔýÀýoɨûWÀ߃þ}duWjåYí*‹¯êBåèÓ¼n¸¤ÏhÌ‹iñ|ÒLÏÙ™[´òÜËØßV Ïûý&º¤Òþ»ÀTAЩBòMï‹„ýÔPMÓ»ÂkzY£Zf­oø^ YW€^ÉCn+ ¡úkA«ÜÓ¶÷4àÙ Ï–{Î7¯®-µ[?\ËA쎮½>²ñ>äßO`åh/i`´0ÔEdµË¬)cÒ°}½¨}r‚z—’^®’ÓðÞ¥¶ÑGBÙ€ßý e]Ì’„ÛÇ8ßþô’±”oú‡‘-åµ´;aús׌U‹t6¾±wЦXàèº \¯”²L÷×ØÍ* qT‘ý™·© ;™5wÊÒŒ¢ÁåˆÈuÌ´ÙkøÜÛ²1Ý Æi:FÞaÎN{%¦ƒLÃËÅg_Vömþd¥¶Hjšó-Ðœ”UŸ;@õ²šjÖ|/k…ë&/¶^kÌô|¾JM@‘êÕK‰j Ï×­…OBÚ<]`ª"hÂ瀧¦€· š0Oí¾TЄ¢cêÇ_¼CBM©Û€ šP‘šæUÌl1'££7ß*hÂ$tôZàÛMQGRÙI„·4¡B­T¥´ò8ð‚&LB+ï~PЄµ²R\neUĶÖîÁd4õ$ðk‚&T¥)¾_FSß~WЄIhêëÀï š0¢¦n¬o*hÒyóúéˈÙ[/he‘¬¾ÏàZOü†k©hßØ9$h¤ÃÚ›„©ÔPMX+‘mîf0'L<!%dëó6f $öó|ئ „· ú=l›Mè`®Gµ‰–¿Òpõþ]Æ8å{%×–J5¨ã=³@Kí§T“#žÄHûOÒ¦”ƒÖÕ&ZŽ¹Vn­TŠ3Ô¸êÚ[/;ctQeÝRB‰» ˜-5Îáb.ªFãâIÚš& 8ÕXÓR,Vz‡B eBÂ¥ —ª \nFa{DæxàÉ ÕÝØ#šx‘ðЧDVЯj¡‘OX¬ùµ'馫ª›·J´}µñ8ÕìQf¦é¸TÌpŠ«Å[l}E åzî̾•Ÿ#á;œªéê´GÎ[»û^±ƒ€re>¦æWÑ׬ûN›Ú{aøš%í*0¼US]‚NÉ7i†×# Þúö”b/jCWìm´”â-_¸Æ4?Ϥ‹5½¬gņбº7‡_ §‚~L`×é‚î’J†m(µWN Û60ß愉OÖPÛÑ æmœ¬!öó|ئɚ"ªßöÙD ÌKQm¢ådÍ1;h*w¥îv«Ó»:^Â{„½ {eåžU$ÆY>Ä“´•¡2ÕØÑŒ˜¦i\šv„âø¦&¾6ÂÆçc¶ÅÂ2«B}5®ÒÆÊyý°ÖÂE»_Ð]6ørkÁ|¥¨çÅ9o›µ÷!‹o¡È„3 g¤‹%_zj_€è-¥“Ü€w‚¾3¬üôFÒ‰ÒIà»|‚ß%#xÍ;;$¥+£ù†ÇÑô¾ÐÒ•‰Ôœk@†tµúðZlj1ÆÞ®Již=^®-R£«3Kÿ§'eüG«jªd³éÉ÷VÐR{Ú#7›]ûú‡dηzX×®†óqŸàË®¦áT"Fó9,ÖpöI5J„ ÝtªÓÈášÎß®j n<ããz˜ÆSiú?-ŠÅ'ÇÒèðYµìšE‘_A÷T_J÷zLZbY3‹s²^ŒÕ*Ûðbá)ÉeM_‰ùêÂãUE1R¾H–S€š ½Œ`qÎ2»ã§ :}Ê&Bêj¤˜4aÒ㼊Pl ÕŒóärWíÿýøwJ ¤¹žµjöã=ñ´¥jlT‡­¤j:½'  ±lc&@b¿È‡j3.äíÙH¯•szöj$Ñ1ÀU WÅߪ»ÅÀSAŸY/ë¶ÎÊäfvo„u.’ø4à.лÚä\Êis9p(§½ÎåÀ¡<ŒÇ¹ÆÌð9Û8”“¬s9p(G©s Ö¹fo{ ëXœ‰ð*ÐWµÉ±\8“ÛÇráLn{Ë…3y¨Ö±Á±*¶‘íY.¼É…‰#kâá<Ë…7¹°ÏÅ’)XfÕÄÆÃy–ik­øÒrѤn›”O:¼ƒ‘ÐðZÐ׶ÉÁªpªj{¬ §ª¶×Áªp*Õ:Øb8˜m8f!´‡UáUU˜ú1²¦Îêðª* tq‡‚lC[Ûw9æ/³ó6^eU½ÞÉHîÓ/ý¢69Ù$k²=N6 Çšl¯“M±è7aÙ溆 X ô¼Ì}žý8ø×á„Wvj!0'èT®íÍA ö—* :ULDÏ©<°$h¹œ³gdd]Crtr”iewAI<M˜„f\à‚&Œ¨™ËëÖT£«‰kb¨/šãe[Kj÷Nà7M¨T»’~÷]à’ºÚ+¼vŸþ  #jw} vY$¥MzÁ°}¹§y8zœL"ÿH 1'š0é¨õa5lçnú;ÁÿÎË9AÃ"™£j$ÑBàÐK¤G<‹$º}ßC9^µ9—¿9µ–¤v“Ðœ”`:æøÍU…Úµs%C/#Ëð¬$¸0¹–òשæyt(Q˯ýuÿ´Äµ¹$Ê€oýæø b÷ ð- ¥¦g'ã }S+ñ+ðm ß¦N#º¤Fþø(èG“ÑÈÛ~¬Myøè'”i¤Sš´i©§€Oƒ~:}¼øaÐn“>>ü(è¶w°B¢|øyПOF#þ)è?m“F¾ü"è/*Óˆü\ÉógÀï€þN2jùð» ¿=ËÈ\¼@2|øÐ?hÿ(ƒÄùðW •Œf~ü5è_GÕ³Jùñ(*}ר9Àt>ð· ›ü0…Øÿ·x’ã.aÍ5lçhéeàÿ²ŽçÚh‰$ZŒ>ZJFÂãÅP¨# >{^)ÉY‚d] Ì‚ÎF’ÙÿÖ q¡¥³EÜg4²ipPB¾!àE /RæüóGÅð3€ñrà6ÐÛânuˆÙ|àÅ /NÞ݉ý%>Ä“´/UÃv¶:wƒÿÝϵV‡$ZŒÞêt6H”õÍÑ4¹nÌ*E^vŠ!¶ÈÔêràù Ï—®Õù ²_XÐ]í¼~Í ÜÁùtÉÐVŒ‘Þ]»zYthŽ¸º Lj²1žÑòæHžÿ¦ÀúM ½´UTŠ+¯ýªÈöz¡6ë?‡Å#Ýq´^u',;£Í:ûé•V®Þ¾ _a?²¹üx_ØRÜë&¼ô…‘K±ŠYéÂ.éé3£Mšu1C‹ø ˆE¸ ôªÈ"^&:Ô´MWXøï#Ìh437’O÷mÈldõ«»#Ž±?Ý¿63œÉÍŒ ±_9zÁo‡-ͽ(áe /‹\š+`/4æÉçÌr!-ìÆÎi2s&|mÈHeÜœ]ŸÑú7±g{Öe×÷….Ñ+Q Â+@_¹D×úJ”å¥J÷î¹è²ù=õ ¨ý‹•*oL f7²Òˆ¥‹‘Þ­ÜaÒNÞÀܦ7´í½ å!¼ôµ‘˶ƒa§Yíoâ÷¯Ï³z§½ògî;g8Ë´Á {­žÏ›eÝ5 TÊmVÙµ­âì’Ž±_Ž ‡.Ô}(áÐ;”;‹G™+‰ý:Lö€†óö¼¬/èìèÃÄZÄt>˜v‚îL>È!ö]>Ä“´÷£ê=lg¬õø?Ðg¬5¯ÈßĨVý ´¦”,ˆ‘(o&¸Áؽ¨nƒ{øÉeâÿ6àÛA¿]FdÄH”÷ýX2yðqзI#Oßú}Ê4"± F‚< ü0h©•©ðúx?ð# ¥®q´´·ÈÂ*§vÏlcM•tðë ¿®¾±f5“­–M áþø#Ð?Š¿±&vü1è'c·ü èŸD¶ÛL­ îãìÔ²>µàY¦„~~*§’øi‡l*‰fFs¢Yž4lÇè÷nð/eêàÙ‚&T6aæ\]µÜ…ò\„çš0¢B7ié\Uì'­ŠYÖ*†goŸh/ÐPDoè*5ŽyA§¤"¥–-ÃQÔ2”&%d««‚&L aHíN :5™HÃ*§MÍŽRÇ׆̬®Š «–Œ‘‡v¦>·Ø™"^DjŸ¬v3~ìÕ?¤ÎÌqíjÞ¥)L“õU33OYþDÒ?Öë±mšL—÷f^×V¿š|ú†ªSåϺ_moÕaPL¼ÕWÛVã…˜²È,DÓL,HåÎþU4ò$/¥3¢˜îŒf%,qZ`ç}‚&TÝJ·|? hÂÜdé³ /ÈYæàb¿ ø'‚&”{Î7¿øAA&àÀ¯>)hˆA?Tq*®n’‰—!R¾Pb6ÝsJèàCÀ ºS*jjÏ© ½}­ÆWGïIBs?þ½  #jîxž«˜zn—:îŠÛo•YÓ&¡¢_ÿ[ЄŠT´ Wô̽šêê-hÂ$4õ?`Û#è®èiÍVŠ®)ÃúB_Êa‰¬Ò$bÁ®3M¨HYÇú‡ê½”R¯Z’RÜÙÀA& ¸®3ç š0¢âóÄWÞ¶\ e]|¡  )k)ÓO?Süp¦k0'hÂD†3]Wó‚î’ø?íê =H ît×XdABO¾C趆j¦%R÷¾Ì »@K­f4åz˜tÎ/%ÁÀ¼éœ‰ý<¶)ó»Pý¶Í&óG¢ÚDË=W+·h,æÍ]î´XD£í6aµGða´Ô¥(\Ì•QÕHbœãCVûƒÚ‡î_0Ó6 õ³Ä`™*h+ðoMø°šßÿYЄIXÍßÿEЄ­¦›ô,¡–þ»  ©¥óª­2ùàÿ š0 üø‚Ný_d\—¡åqû¦má]!ûÕ†ãJ~V`ç5‚&lÛ9 Ì ºSݤG+Mw^ Ì º3ú”ÇAÞÇ2Åi¿Fçd¨XÏ3%ÒE9Å™¹­{CÏ\Ògh/‹ÇfÄ'ÙÆ»ñ¢µÄàOÝ)·'Aµ5ü=ðw˜™—:cÞ~ üA¶§%îüGà? š°­-qçÿSЄIhä_€ÿ%hˆ¹V¦%n.Gnˆ;ÿ(°k‡  Ûu¡Eì4aŠîÚ ¼QÐ]7FVô7"6Ä ½¯¿%æñ¯7‡.Câ›ÌrÁäÓeUÓ™à·%ÙV w6”ÇÌ‚AÛœø²à$wÍ2kÍ÷Xš>i™Þ¨Ìuiäu=Š*ò&ÝiAwËÝBl]ke¬«{¸^Ðã·®î>àAsŒf]k2hC Úš§ñ‘V2Ëf‰ïÈ÷Z‰Ð«$äFà‚îŽî ¡ç&ß#Ô^öÍt¿Ì _ý  ân0oã걟çÃ6­~<Šê÷°m6ñ˜?Õ&Z®~,Ú=¡óÛ,w_öÛJÂeÀ“AŸ,#!—lyTÍ‘§úOÒô8tå¡ZŠ’aŸ€ „KA/UÖUÎã‡XÃv”$ËñÀ“@ŸGù^|"ªÕΪ‚r-Ù™o¬Jµ".‡ÄÒOד5Þ„EዯéOñ®ï„ü„nëy2Ñ~Tö 'ôqy*ë)ÀW€~…ºH©÷€‘³õ^xø臒1€{ƒ~8²ôhi‡n ŸäŽäxð ß©L9=õæ2úyø!ÐJF?ï>ú©Èú™×G·ºJ¨æiàÇ@«Ëåµ@øÍ°”ã|øeÐ_NF1~ôW"+æjj÷ªŽ¡ñÊèwÜ6¤t•¤W·ùÞ \׋™Š1ÓfCV:WfäiÁ‡îÛá?IAÅùªÀÔ ‚&TÕ7ö²Q³Œ†S§{êMDég:%·ÃÓÿéC SQ4« ®L¶…¦éÎΆù^7¸Ôµ¢5N'1HÝeö†mæµI6¼Ú÷n  9Ÿú¡7‰B©NÎ~BЄªÚ‚¼U”¢RŸ~UЄIXÊ'_4aDKÙ|ÿ«ázׂ25³Ih’ë7ôô ýuೂN=›üHá}Âjض¡æûÁœ0ñé®uƒy§ˆý<¶iúá¨~¥m¢)×£8eÓ„óEàöA¥Öºˆ}§ñ(žö辪¶?üˆ%{’==ÀÅ ËHÆ%Úµ¢žÄ{≨¯{¼ÌmÞ><Öð:"©·c”“æû'õbÕp4ÈȺãZºïŒF§{ÍÚjBÙÈŽ£Û3â®g~ôQãfAÞ°™I24í|µÄâ½r^"½Æ‡`±„¾F’¶Þ§ÀÚC5Nôh£Rô¼+N’Ú†[µËPPóô yJ±Pö”f–'MÒâLVÛi›el{6Y̪cÕ"fu­ƒ‹¦Ã<Ó U¢õÁZÖ´þàéÓ¨!Bß¼«ªêäj‘êCÀƒþ¸²&¸Åábøð å"Lÿ§‡SH€O? úÓÉ;Ó‡aªq¦åÌ™(Ã@ýr‚b}¢.½\™Õv;ùŠI”'ƒ–šÓ 7 v+€§€>%²‚æÉ$’&VO-•§G]Öu% <´ÔŒðJéf@g"+å®~ºlêĨ[„‘ü©xè딩®«’ŸÑÜMÀ[@ß’Œæ®ê õÈš Ÿ/Ÿøç€yÐѲ¦Ì*¾Ôy’e/° ºœŒJ @ ´Õ&•T€ûAïW§Ë.¶ŒJ¦/ý’dTb>Y%Góë Â/·_úåÊ4sÍwU]ÕÜ|ôƒÉ¨ænàkA¿6²jjéZß#¡œ×ßúmêÜFj–dùàc KF7o>:úuEoáY@jò"Àá>žò,ÇÆ_õcâŸã°@Ïêæj«Ý|í´h”Ç]ä4x–oͲÍq³ÌǺö‡õT¯³r ÖGÆÜTÌ1™=T3OL]*hBU!$GÂVRWw š0[I½xµ  #ÚÊÖ'÷§tGÌì›"=—§åºV¹ •ìˆ'«ä AºŸ`Nq'å†ã_Ã,‘›Ì˜M¶ÄWû²ÚÖòŒÆ矅¡yØFÉš¹ÀhÝÐ4'¸d:j1UÂ,»êZ4'"Ò~é•JѬ[`3ûž4uÌlÕÂáУoªõ];· š0éÑ÷G…×PÉè;u}oîY®–r†í׫ñýUÓÅFtï HÎ(R^ýzÒRqÓ3SÊYEsŒ”ƒ\߶l–*–#æ,™ÎlC/dµÝ®m¸ù ï¸?Ÿ»š2ËkŠ6={ª¦/åX±­I³@'“y’*ú±çYÜl‘¦ ;X^¤¿‹ÓµiºqšØÔÇhëŽ>+Ë8R$œiØ‚ÏŠ; ʆ‰X £Ó̆MfÈ¿É(q+#ÓÖ} ý©DÐ)…c®|àÅ—MIrðAÆÝԻ뺠Sísÿ0/舙*ýoÍg ‘¹‹¤Ù ¬š0 ¥€û’íÌúTê†2’ÁN Z2qeóe¦}Ú š£n©™[/4aš™¾\Ð)¹ÑŽÿÓ }“G!ò–+³VŒÐè‹óýÆ4Îl‡îaIú»_t*úF¦Ð=ìÇ…AÔPÍüöûë=,rsk¸ÀH„\3±?×ÝY] ëzsVµL[*ÒFv<›'¿ŠHΪâóœáNLAýC\ç e|™6š¿:Èߤën¼½±UI YeŸ@5úv-¨ŠÑ-‰ëgI”?Zj`8O$v~´Ô*Õ¬xi=FgŽ‡C?ÈÒÎêÆdšnžþ\?ÿ5@w ™" òŽ‚ñH†²ÀÓyƒÂhþ­ÜTø€¯~¡êõ'µ±ŽI;ò'a‰ªqäÕXõEba¢Ðš.ýÓÖiÚ]*òûä#\ zµÂÈÏ*†u ’¤8z ~"vk€ƒ #+ím³w°ñ£tK·A‘¦;¦¬ÚëßnVo?Em‹›8²Ëo²ÁYM±Ùµé‹tβöIïiÕ%Œeø-ÐßRf,ǘ|¿ïH/ÊÙ+c<ßþ ô¯’1žo Zê‚Øè+Ÿ$Âo€ÿú•éh©OG9Ý–ÒÏï¦:M˜„~þ?°ít*úåXá‡uÄ¿8OÐ ³}Ñê€Äùwfp¹ SRBë$åá AËå›UC;…}£4*ÌpÑXÊù¿zƒp›  ©ðè_{“ÔâåÀ]‚&LB‹w š0¢Oàúu!T%Û_¥ö÷ šP‘®–ûÚB¾ô#ÓÒDÇÛM˜„Îöï4a[ZÃ;w š°½±gê•ÀûM˜„B^|µ  #*d°v'¢/Ú¬VÄz…m¾¨sŠî‘QßýÀÏ š°ýÙ—&hÂ$4ø9à7Mئ0õMàŸ šP¥ZÂgA!aþ ø#A§T^{ÖB-ü±  #ªå…µCeµaW}û;]Zeص”£Ífx‹Ú8Åhãü¢IÉí';Ó‚îT—ãf™¯G£¬>2Zçð|A& æÎ>à‚&lG‡Öy!p«  ÛÛ¡u^¼\ЄI(ä"à Ý)wÛ„ÿÓ¾àm̪ھþLBoW]AwºÏž¬ó ð6A&¡º*ðvAwJŤ ½×>Òy3´€rŠºøA¶½oë|;ðÝ‚&LBQoþ‰ å®›U§7L'ê9kÒÈEkJ;`Ø–”ÊÞüŠ ;å×U¶NJeÏ¿#hÂ$TöUàwMQeë}Gï*–Ã÷¼Ð•´këe§¢Û4ûœ«]Ð'µîM"O`×A>¦=º–Ot—T¶†Ðš¤À8ž(hÂÈ#¶À¹|‡®rÄž5|>µI»x™  )Q"Ç* ²¸SЄIho;ðjAwEßÐx‚VÒ÷Ѷ5Wóy^èELjpBÐ]‘… ½ˆùi¡áªYÄœEÌÂ|Î=_]`]tgÂZ.I²¸ ô²ø-—Ø-.-wØÐÿéäáW)›ÏÍ^­ô«-Aº3•Ú¦nJ;iªzQÛ¶ÝÑÒF°x7軕Áü^Ç*š…ÐC^’æÕÀ×~]2†pðõ _Ù^0;Nh²È(ÏmDÖëu87kèn¼Ó.³ûÕNÔÐùª…û<,“G]T¦Èf³a0’ä&à-‰¥ v×Õ¥X­¥'hÇ/0f¼-¾4˜Èålƒé‹N*m k‘$cx7èè­Dj¼?…ÅFϾ<ª§’K|ˆ'ùzùêâ Jê%¨Ñír­Š„`=ÀE I7­½›ˆzÚQ:*êÏ:Êó––¬j™_WêTô¼¡¥éxªa—øºpýÔ#¥®ì£¿-:ëýRÅñòÛ²rûs†{g2xž•_Sž0ô‚a;}"—©w ®éhkƒÚ£V5¶øè§6G¦k”ØvŸýtòѱÿ°ñ$ïQ_„}1VšOí³3S’®¸ ô2i¯jlgêÓNH°Vä|-²ß‹±ª1Æ:[Ïï3Ü û ¢Ûüd’XÚ°énOïãÚÁ`oœë;9<ÇY$ªáà+A¿RY,±"ŸîÕ^Ü›Ñðÿ½}aC ìAà# ‰?´ v¯¾´ÔŠè¬úØŸÕ¶y³“f9_¬òsØë˜y`B²a»oѲöÕ.‰6ËU¦ ÚMCdô²ë8Pí½iŽ—COcPqÿD`ê8AJšCW€ËÎ+²*èch´ïýrùàC‡y-s@Ž¾f÷%»®Üºm׎€rœÌ :• [zcQãóGK{&ãh ›Š)¡€Ÿà2‚ÏRaG g’ â£yœÑtÿhP#Õ}í%».ŠS¤æ\Gkù’bÔGª^!M-&ÐØÛU)ÜÐæ:­DbÚ˜ôtÜÆ£±_Üó „ûnn4=Š†ÁæÑBœsëÈo{߬Ò<Êù®CÀóÚ’”y4;b¤+>ÄžXb!S‚Oiô{;doÛð:‘:4ëá§*E¢×æ…ôᵋƤN¡ªx*[,r[bѬZ©½Íz•y·8“›»ÑÇ ½gŽrùiÉ¢¨“ê¢×f1æž3¾`?F«ƒƒƒ`ýýƒRcŽä-Àû;øöt¹ÛÖC9’7`ëÝÒÝæ-d“6Å«wÐ_¶+S¹“Ÿb’ •©ºr'_| {^ÊžWÅT¹“/¾–=ÙóêȪ;2߈?ﻲ¶~Ÿž·½µ¼ðm2ê} ø(̯+SïÂU÷N#/S-ÿ ø½~å}òoâ©–ß~Ÿ=ΞïFÖíêú†%K*¸#‰óàÿC‰ü[$5]«Za—™P]ÀnöPR{mTÅ­óeò¿Hv)ãÿÝÁ÷µÆa!ÿd—1þï"×-ä–ú"aΣX}sƒ¡s&¡åÀm¢¨:·(«ÝWÀdR¢–÷d¤ZàÎaà ö°®rç±XÙ¹x’=[Ùs<²"“é° ”þ=À‘õ›Š0höÏ«µ§W°©8ô%ºŽ¼F"‹!±€ñyaÝ[·€±ÐÕsc渄lÝÀ•à+¥‡ó×Í’i°éª`Ê»²RÈhƒº­p(íÝe'!ÿà~ðýÊ|Ð%…ýIsx\eÅ ð;”ÜÀ{À£W<{Ö.G~Ó¤w­$ yôaŒ÷4½H£z[Ç eìë{Š±cÕg8Æ,o1eC¯>Q~G€¿ þÛÊŒ`%«XÕ¢n#´mØ> õ‡Ào€#ŽÁÄç}Ï7ëÑÖgµûx-ŠÅÃÔYЧDé| ø_àÿ¥nèâ%*p.;±Xð„ÊŽç<ø'Hv‰à ©Žg£k)] ÕÓ2Þ>/Ú^Ž×ž;á¨"š^‘QÑzà&Á cPQbp³à„U´€âóË(&Ìž»ÐHåä I³¸GpÂXü-pœ0ªfhn\F3·÷ N¨²W2#Õ+Ižœ0Ž³xRpˆzIÑm΄5U'³½fipv³$¡º{€Ó‚'¦{»!)o÷àËco?%7|¹à ööK{»'€¯+xâYÕ®n»ŒŠ’.œ0±_ \!8aDu‘ŠÂë%¹¸FpBEzY†K$½]ò:à&Á“ꆩó{;žÂÍ‚'#Tq®B¯Ð›N1aVW¬1ÓÝ`Þ‚dÁ¨ˆ bÏóÑî’Y[Bèé3Gۯ͜mòŠ¹_·‹¦ke´šôvMYöùݾ?9eUé"†SzÙaþ—þð¤Nws”-í(ûA§¸3˜f¦‡¼ï¡+©êßµß*Uª®a÷¥?ÕŽÑMbKÃ)cÜ2´{gš‰ÀÞfŽX9‹^?Ár,„á÷í•ô™œ¡íeÅTLgê‰Ó7dµ|\dƒ®Õ¢ßÒ fÊ(3ZŽßRoò»¿ªe× eø°ë?¤zLt¾[pBen!`ý‡f±ºì/ Þ=WèõJþ—ëè=ÅXÿù‚p)[·þ³ˆîý©Xa§§I¨n઎¨XÌê󵕟ÙYgãûÍüèò»\sW‹":ß™`˜±ßÎâ?4&‚îe43kd3sÓÂÙZqx†ýD‰^üø×Ô T§Y†x$l¤ùKà߀ǰ녒û:ð»àß\ ojfžÞø‘(9µ}O Mõ—›òŸGm᣺‘4+W .w’&´ÚøáÕ‚Fuáa0J~m½§Õ ™B’½FpɆ܇mÀ(ùuuôžø°ßͱ…lkJ/œ“­¸²#ê†Ù#^Ø~ñƒ˜¾‹Qn×px0‡f Yf¶×ÊÔdO»¶®™tµXIw6›c³®Ð•(œ5Àw€¿C™Oë2%nÎ$Q~ø>p©ë¶Ã94JîOƒ?¹.Ù|4„Nº¸–‘M̲ÑëV˵=v~ƒ ÛE (~·rÁ3x`Rï- ýA›(Dì”è¤ÔUð~‰'TdÁýÍù qp“àq¬ÛRr77 ®`Ýv±·»%¼ZøÒ-aŸà„ÔÒ´‚’±IH¶x»à„ÊÔ°å–’Û¼CpÂ8¬¢¸Wð„\œzÿ§Kk[nCoÙ$Aö NØ깉.${Lð„ÔFÙh=Jþx½'þÏïŠÚÄ1R§iªKF †“·Í\3“ü,Tñ»@6ݱª6åJyè‚» {Æqb(¹€Uðj|7¥? œŸR¦£Î¡ÁA ž|!ø ê#g ÉNüg"ëãÊÔö¡þþtFز}goïÀ–ýRµèEÀ7‚Ë¢o¦¡´×º,“ZÓ¾þìÀÀж¾\é\–i/KÈ’ø!ÛY÷­Àσ^¡' ;움_ÿBüÍ %ÿ;>Ä·,4^C5îyÖ¼Œ˜Ec&£dµ;Y sÈ7iÒùHV;™ÕNóFçNÃ8/~u„7;Ôì¦+ *¶!¦©yXNÖÈX%Íc:G£^¯ÎüøŒ#Ñäü 2Ixüüs­É!álààO´¾É¡äŠÀW€¿¢ M¥ÿ$ð•àê‚:vm Ûä ¯þ,ø϶¾É¡ä^|#xôFg´ÂÖ-;¥jΛ€o›2­hó53$oÈÖ…¤|7ð·Á¥Žf†k](¹·?.Õ¨Esë”ü|ˆ'n1¾$]C5­Ë)Öºø¦Œ2Úý¢õè§xaV¹PÍó  í-—Œˆ…/ŒTÌh=^7B×…/#3„§ÀO)« ëÑjPãwŠÚA‡/öj§¬1wJ·Ãî%!NƒK, ךPr§3à3mhM(ýÇÀ/(ÓUrh›„uèÃwÙIþà'Á?—ýë kض.ûŸ#qÂvÙõBY­ÆØe§äº1vÙ)¹. º.û@“±0Ó†7æuÎW½B×(wð0øae¥E‡ º-©IÊ {ý ¥•(t]¦ä“>Ä#Y…^|¹âÎøQ`ä¥>ıXnܸѿþlÖÂ@­qÍ6ó¿-Õ©Å¢{œzk{œÈ©‡ÎÌ7¡WƒàÑ{¨w3{×öôj¬áO• Ý©ÚÆpÏÈH뤘Ãø#£å)ã-oçùo ŒðßtWf?²¹üx&tŽ¾…\Þ ~wäõiõÿœ¢ž®èŽk¤ÄÎôŒ6cè6¿Òv˜.aJ§CKý—”°¼¯uu-PŽo#mÕÔùýdÜ^ôŸ7 2qêÊV,«h4öªYÒ]#tN¾é ÷ƒËEÛ÷ºLHŸb?Â+ù¯ á2p©kÍ#*ùÿCÚªQòRò,­ÑÛšÒzvóЦØVC·¦k燆˜öm«:>¡±ÏëqpBg译 Â#àG"gèeˆîŠ«ËÜÏMóü­L\wÊBñJí¦xßíïÔ5 ;Þ™ÃvÂ{²¿ANO€Ÿˆœ«~ÊåÂ[ÔÃ;ì®ÉJùå—ä¿u0´Øß…¨„ýàý‘ž’'kQ*ºš®†OÜ{ |üÄ!¼üÊ颒ʣë©éáÞÙÖ ÷ìؖѬmÞš9cz¸?Ëþ·ŠÃ=¶Qè /þ÷!2áðègóS™Z•ðâü".—‹Bäÿ4¼;û[¤í¡wv3Õ“|ý.Q nâz%OXŽQ-ëßA>›ÁoŽ,ë55±X‰ÒBý=D"¼<úi‰'^hyþ2._ÒûG¤í¡Ân‘cL¶^lœƒ1‹ÅªãÚõ«Ï(Xka¼^ˆ•ð%ú!=ás¤[ôOƒP]·èÚºH RC7§öe†$:çÿ ¡¯—[dóš n™*öpOÅ6òÍÄ!"a <YÜÍ—×Ê9Òþ $$Ü =ØÍ%¥ÕsEÝ /í á”JÞ!ýi{¨Æ! Cò|Ì”>Ãg¯èâ ʦJ|’ˤW“=õ…¬„àŠëz¡@’Jvÿ Bý›Òº¾Á/ Iç¸3EƒÕp1K(Qmþ²nßYΗSt_ó©V{òç{2=S¦kÈLxü?ÈL¸|gdùo?§Ûeü‹ðð"˸>@FgB/Rþ'$#\¾>²”7HY0WBÈÿ‚`„7‚ßØ¿ù¤í¡¿y'ïÈùÃUN˜mæªÜozwSo¦è“͵®\è¬ü7Ä'¼<úЫH2>ÒYëÒýä!¼ \jûtƒl½£Ì‡8EVrlÀíQ£®±ÿE¤Ë¬Uu‡úÙé!'a/¸Ô¾¡™·“Ì7ÍÔ…²e—RüßÓ­dèåá¼eŒñÎhNa˜Šü¦Š™uŒðÒ? ‰ ·ƒËmŽn(ñù¼€ø ÑaÊTh™IDúÁQ]‰‡v 8„Ï!(p ;øD›µJ•ÅÝŽEôªt~“}yœ~ß¡ÅOB|BuÓBªæXöæ¨nNa¿'ÞM¼l7Š ¨¯JW¶êE>eÐUâ|ÆFËÍx“8¡sÒ…œª;ï¦ù·žªÃz(ì|„åŲù€¿þ͸!&–½„{,Bþ ÂÝÈÁîÈ9¸Þï%¦1ØÌ l ï† !"áõñú‰¸#3 ÑR$AÄEJE¼¶™ˆÛ2[$Äl,Guƒ˜ðŽSv*r¬|Ú¬6Cf ˜”^vÆꡇSe ŸèÎL©d¸{ÿa-gUË 'Öœt+­ú»ü*Y6¦+l ë÷ïÚ^7f¨ƒ¬À¾‰–e†Âg`)2@¸ ‹§Í$0Áç¡"“¸»‰IèA6ºý‡­Ìá¢e×jF¾d—#G„ê6ÜÙ0¥1Ë6ŠÖx*ŸêÏöoÍôg·f2[2ƒÌ“ù f»„ßX¬ªR„7’•c¥R#YÇGi¬‡0eÐu)ŽôÐ+± ò®ƒ|ëÚ¯òéЋ̉ÕÈÊj¥*ߌ­2þ‰ìŒ¿ìåfçk -a§_Ø„é¡"½ÑïÅ ¬§G3BòVŠnŽêæ\Ò~+å÷fº.Ýp&7{Ä&ì‡Øý‘ÅÞÛlêpg†|_ó¡cº¾k‡å§'¼)cï"ǽÈÇÞèC+*™¯u¢É×Àö…£éiì`„ÎË&ä…P]§á&äEi«‰'G˜aìµÛÊÒË<ÑüÓ›²“šØ'ÆQ]ïñ Ïw«Ì¬i ?œÃ2pj†*èVù¼¶—ŒŸ¯ÓP^FÄ¥>þ_†Î ¦9ª«¹whÿõì-º†MÚð‹í)c N‡× ÌžãÈÆ‘³!{8qÄ!lãIàÄí¨¨[v@Ó4ÄI`¾µH„[ʲ±}=ð‚]Ó:ÚÚÔm:uª¥’nËô× VŽêf¥öx£P¾inÂ6ŒZÿ’Æ›rq$'˜nçxG‡ªžÙéfSl,›ÈòI ¿ùWóqcx ¾[ÜwÈÌWOÂg Û48žFÖN·ÁbrÄCEþ󄈋Të¿1¢7NÆñŸC&oÄý s£Õ¢kI£HÛ«y·J¨r!t®°_„ã äêDä\ÝC¹šb½Qy~Ö«#› 86ü´TnF«Í,ºÖ¸ÁBy¡»áok'ŽòÔ²H8Oä…ã=È×=‘óµΉœÎyÖZ¹,¬éª-‡.… -åIHI¸R®Wé}²¥ÉšÂí´´“d@{NçÝ>'?aYEŸƒ 0GuÞçPã Öï5{î„ðä5½Œdè§xfvù’ð8#È!aɸåþOo,ðÎä æØu.nòD—=ŽØ¦`›õªBáa&çmZÿ#$lx‹†‡æ¸ b­Š^ïøÂ$(5°‹o«Kk·jùj‰sS…Bø»RÞ«´Þí¬Ïå¹ùóì¥ìgíai¼Âê\>ÅÚLÚ“¡¥*68çs‘¬%ÍÈœV¼òb^RA‹þæ^L[oÅ0ýðO`—ôéý.}«Dd£fâ9ª;:¼SÏQÇ#5ÁŠ›d{˜6®óªÆ%MkÃÃÚà#Z/­›ݙគE{ª$öÃ<ùPZüÒó`BÂv΃=9€ŠzHwˆâFVØXQÏO [„Þ˜CâSüZ±Ö5~4DãaBgãadƒðŽU­Ù]s+×6oYBw²8T‘ÓéPŬÆA»ùfmPÛ0¬õ‡7ŽQä†#6…¼—Œ¢ãÚì"Ìo éG”ÚCØHÞ<ùd#FòNÌgÁuÓCŠt¦ƒÇŸç¸BpBEJYÜ:ÞWÒË}¸÷^±>ñ,ì6qûkåÊì¤ ÷T”nöEl„Gî:ÈXî2¦bFðþþ¢FcñŠ¢ãÑïÌñ÷ž>Ø‹þÅÂgg×_߇‹æÔ¤å¼E±‰ëº˜$ãyßû }7÷ž7Í2›$þvÑɧ?w=+âÿtë_Ô­B3(Кf–ÎþÒ[C|i£åÌ©‹X=3‹Æ<¯\žZ0ZfCûE{Ïê:zŠþ¥xœ“W­kˆGB µõ€®ÅÀÕàRÅÓ4Õ…£zÑÔ›µãI”E²±\âV %…ñ(RK×XÉ­„TH'”@¸|i ñ]éÓly,.…PòË}ˆG‘BBCj¤ ZèBÉ,–-™AŒ&Ž^Ï@®("i„’_áC< «ÈtH…,€Ä\ErŠc«È؃‡j«)$pè …P˜â5¬ Û«…P‚‡jrÅA¯m×z×ß…ptBx-øµ õãšn±YßËë`â<;aÜúñ‚›yˆGR? ¢ŠC¥¿Â‡òÕÿ逦ÕíWµ1³©ÅÀvg*âj«êVª®“ÕBŠ½ ä‰D;96jŽ]˜pKÅ‹FOÓûa62¤`ˆÃv!ã¸ú¸1lå‚a?ráØÞÓ‡Žì}`ä콧ì¿ó8M‹Ÿšq²ã†k”'S=³>îIïÖj¿šïu¼kŽi© åÇóºò–NÏùšž ×­8»úúò…röœS0Šæ¤-n_¹Rb£(wâœ>}Ç–>טî-•Š½yÊ{±g·v’}}…Ãw†fiè“ê)Xyï¯øßÔÞÏh=žÊ ŸÛž¨e.(}]ZÛ´I›#¹(&üæÑÑQ¦ò {œ¼mVÜÛŽ±/:¢OkÃÚa »´ ´…s—æ¥Ñ[6¦ò¥±³ó$ûû(›ícÿ{Bôù%¦·z2/îÞÓ‡$PbN‹©x¾¿oÈñmµ/¹¸Y3Šð¾È‚ôÑéÃhmâP?b™ñD,•NV·B â…¥%ô-Q(š»Y±·—„N’IÈÖ \ ¾VZ¶0‹Gµˆ¾èFàð ÊjтѼUhV‰(¹k€=à=‘Íe?l-¡”ÀÍà›•)eÞ¤yµ’‚Æ£•p|(²Vè8xhlñ!e¹7J•‰€d»€[Á·ÆïØ)ùm>Ä·¾;¢6s¡±9FwèÉŽæ3f‰Š„XÝ>Ä^¬¦âlq­iúw*qyRÎм…¬„ÀË}àRý߀ZeºF) Ù.`?xüæLÉøOüæ|5Løê–šóB1N’­¸|¥´MwÎ’éaº9•õ´. ,WK9ƒ›zý²¤µJQÏ ƒŸš0óü-Tg‚ŸheÁ¦ã£¬hÃwÄ(ƒk€Eð¢ÊŽX)hE<°É'Qà$ødë›|J®œŸŠ\/Ü ¿>>G§ëžL\T¨±±|°p³­Gi ˆ…«w(& õîx@xáytkºšÞœ4Š3aý!åxøàÿÐzHÉuÿüã÷‡”üÿõ!žøý¡/NP ýá‚J}·g(Ñ0Dk¶A>¤;œ=”¼]\Â#à 1\§K%ÇÌiú•Ï̵”‘ÏŠ³ýîýIÑ.3{ÐÖI‘ ÷_þÂÖ;)J® ø3à?¿“¢ä_äC<ñ;©k…ásl“ꢭ)’u—ƒKmÆoꥎÍë¥úçkÂk³a–I7øJ¬7^‹÷GÁ¥FWêÖI”

¹ìψ`RV¹8CQ!Š¦áh¼Ãåï‚Q´)£hM)ésQ&€ï_ëÝ%×|üéøÝ%ÿ~â‰ßù§´rxÂ7 IˆÖ T?<¹{V[šÂ-¸þÙzž“‚¨›VB/`Q†V¸õ¦Ìp\ΉF2}Jþâ‰ßôq!'Ç.` ÿ(![7peGÔ¬Ù2¥/ÖÆÍI>Ëܺ‹Ta ›¤]Ü ¾³õ†}=Œ™pø®ø ›’ßíCãC<Êr°gŠ’ëö‚Gß“ºòRòYâ‰[Œõ–kØ6¢!qÂî™ ŒÃ0XÝ>T»g*]ßiPk¨•ìœ"q—·‚Km ×>k¨O„ÛÀ·ÅoÔ”üvâ‰ß¨7À7´Ô¨»è¬„dÝ@õSH»uŽjëyŠè€MèzêÞ¡ý’U`M9Í)9tÜÕ,³±–D³¾ï?©YoºY@½_B¸û€K€ªaÑ,ŸHöàð3­ïWPrwÏ‚Ÿ^ûÃú>JþQâiµï£äº€:¸Ü¶ˆ†Ü‡õ}”|·xâ£GT¢¶­_±‰>gÇ&$\7PëhÅØ$ôæNœ)áãØd#L—°cJ>ãØÆ&”\°cJ>ëÃ6Mn¶\öù›‘8a ·+L†Þ×Cu£oW˜-Ðͳö2‹µ¡ˆ#u%p\êÀV¸ÖùfÔ&Â-àR´¢™4%¿Õ‡xâ7éM0ãM-5é®ÄæM0dBõ«A[æ L¼û$ªwY£å‡µq’|5ðNð;[oã›`ׄÀÄoã”üAâ‰ßÆ7î7·ÔÆ“…°K>›aÔ„KÁ¥BI6•ç‹‡ãÑ‹ðמyŒqÛáñÆ¡+”ûfTSÂcàÇZoì›aà„ÇÁÇoì”ü â‰ßØ}Ñ]ZÙG)Œ HÖ TßG9`í|:U§¹ÕVÙ=åg%ððZo÷)Ø:áƒàÆo÷”üC>ĿݧaëéVÛý „`Ý@õv4ÐË—­](ßBËOÃÚÓÐûJY݇³ü4¬ðap©Í4Ñ,Ÿ’õ!žø-ÿXû--µü®Jøaé-0wÂè‹ ³%ê÷ïTÌ[6¨µÄEœBŒfÞ·à=ÂÛÁoo½yß“&¼üŽøÍ›’ßëC<ñ›÷­0é[[jÞ ÅD†„lÝÀ•Q7mÍ>f»È0ùæD ¡Ö¯¿FºÀ欜õûgIŽõ>Ä£¬Ì Sr뀸ـeÊúæ¯ùæªÔ!™W!Mž8r30.5—ÞýŸ!gO½רíæ æÖ·ôŽ›“FÃ…Y3œ)³L×eö™c8iRº>æÍB;„mV(û½À€ õÍ %×üUð_¿Y¡ä?èC<ñ7+Q•8¶°×Dá2%$ëªï5=8Ï.x2îúNxnæâ†ìíڴGƒG} ìQå`Õ/l=Èà= ð‰Ö׃ lŸÐ7㯔ü9≿ôÂö{•×ÂŽ@õÄhí…ÁªŸô_…[p½Åú°6KR­jàZëmÖ·ìß^·ÍRò=>Ä£(÷Ý£5µ4I{ L3 T³º²°qñHÖ–-QÅéC ñPzWj㸃y‘Ó¡ÃôôC-„¾Ûus¥Žl’(+€«ÁW·¾§KÉ-®_Y-/ÕÆpç‘æêç©k[6¨í-±Ú¬z¸EÖ4›åJÕåÐù±M‡Úö’7/’Ÿ°Öÿ»LÄ£«mœÐ]q1x‰µò^ô £¸øfð7+3ŠeýgR½Bú´Œq¼ø^ð÷Æco¾\êlCI,öBmIèçià‡Á?¬L? éF†þÐ3$Ì'€¿þñhæ#ÀßÿÍÈšY ³Dø-àçÁ?¯L-‹½«dóÀ¯€%Å|ø§àY1tIH-<'ua è:9Õxßé <¹Ðì«K'TUÁöÈV°Ä*àU‚Æ Gêâp¼Zpˆz<•Îj'XSHa;Ǫ6ïáç«Žk•ÌÇÅìΔ.‚uŠÛº¼Å/4s¦ãóNš:ÿ,¼’k¦à ¹A¥º(;$Kè žpãÑñ9`Upˆ:NÊÔ»Ä$pJð„\tئ*™/úÚ¼*y>ðE‚Æ¡’ià‹'l‹J^|©à„ŠT2O”¯yò*àk'ŒC!/¾Vp¶(ä)àë'T5b›'¢Ñ¼Aï8ñó‚Æ¡‘×ß*8aD,ÌÈÜêA2¼ øNÁ Uy®ù³Ì«–÷? xBå¢ÅI®Ýfx;ÈzøZÕ¡¶ÔɛԿ§8e‹¶*²ôé½· ¶U©ð­ò¶nòÖ÷qö-%þ\ˆ°¡¡ãwÁ7’) ¾CB}ø ðo(4§€à;”Ü¿ þÍx¬ø÷€ßÿVd+îL‡v¶$À_¿þøíVaH5l«³Ý[ãlƒN0:[e0FgKÉ-ªs¶•ÙÎV×Èçlðýýš¯M1טÑÌ1 =¯çŠû'BÌÙENK„Þü¡Œþ¯¾üEÊô|}^í¿ø$ø“ñhÿÅÀW‚K]¿ÓÓžÚUÒZýÐ/5y—8 é×gèAeàUÀ?ÿcuƒ„àSÖójôÏ€_ÿz<ýàŸƒKÍOÌÚ;#±~B"üð/ÁÿR¥Netò]à÷Á¿N¾ üø"ëä±tí^›ÆC—Þ, }*zjÝÞE»Ÿø, {'«ž²XulÌ Ã5µ×ø°n’uDÉój)ôq%7cPvÿV`âÁRò›ï¸™÷ à|&8 ,Nƒ $‚'ŒÈ&p¡æ0Ó>žñ…“oâaCœ³"Û¡/ éC<’µ¡+ª8;:D_ÏC<KåëŽïõ…šE8åÚÔ°oƒ—¸æ@ÛWŸL™Y#›÷{„ÌÍNè•ðø!e®f)_ª>¸÷è©aý Itø øƒ­÷7”ÜaàCàÑà 273÷†j4Ê–Ûô~–°fIò> |¸ÔÅŒMS]8ÊÍ. :Ñìêh«“ ä“>Œæ$º£ŠC÷h,ò!žˆ¥²cv1…&šCŠµ "\ .5TV7z'Q®^~]ë«9%·è»&¢‚ò4Ç)ΗÎsµ~î”6üæ ­êcÕ¢¨ÿz¡àuD¼Ý-ð™Ÿà­„Êo¾ü‘TÞTõ®16ôIô*àkÁ_«P󳚔ÜË€O?Á½ø:p¹ŠþO¯«õ7Åz/¿œž ³(Cy=ðýàr×»Íg(‹ÉY˜îÀßÿ­xŒå#ÀÏ‚6cùðsàŸ‹l,«<äÅ •ÐÁo¿þe­Ç¼Vçm>þiª$¼‚þømðoGVP2t¯Òÿð¯ÀÿJaö˵¶sº7Ôwîhk§’Oú0Z§oaTqncÏâ‰X*ëX§ï~«86®³Z{Ÿiä'Üœ^eCÄTHñn‡¢ׯSV}×NMæî(®ÎKoŶαlÖ²ÃÞæBÂmn—ºð&`c”t³îµÀà;¢WèÐ(ýÀ]àr÷6SÒú ×­8»úú¦¦¦²!”uß‘}ÂÞ<~F™²ºF«vªvÏ‚Ÿ¬*‰õaàQ`<§,û‹Fõª;aÙŽ&òn£û¥ä“>Œæ~Ggo‡ˆ6ä!žˆ¥rŠ¹_Ÿ×Íh÷gµÔ`ÿ@:«í·Ê…jžw§¨2õêe½8ãˆ-`#õ¹;T4­¢çÏëãFV ™±}P1á)ðSê|‹ Wõ"ÍwŸòf©Ù?OYcî”n‡yOB>œŸVØ# ¸o„’; œŸiƒÿ¦ô^¿ LWÉ¡mò¼øbp©““êÈYÅB@²Ï¾ü%‘Õ±,5”Îh½½[vHU¢—ŸJ™bnöÖ‚eRCÚ7Пرmh{ß9ÇÉNömËšýC!›WõÍÀOJ¡î& ;ì뀟ÿtü­ %ÿâQ”û¥£ìZÂÍÍ–¾ö wìïhk KÉ'}­…½örÅ mßÙ!îyðOÄb¹z#ˆ(UŠd Ñq¹T:´p '«Á¯Ž,\/—&Ÿ¢C_ƒqökóBbeëôȽ2šŒ$¼Ì!'a/xod™w†9£ñ@ü·áå¿ 2îßYþý’òg4ǨHæÄ·øY«õû#çäxäœdhE _2S‡‘ÂãàÇ[çÆå8‚´=TãNë~£æ6%üÆÝèn¥~ãn!ŽPýV®úþ“›Á–Á¡ ?"`û‚mü—[‡w6XHøE.Ž6æ.vµCÚªV{­¹˜–P»¯>(T{†K“O  ÆŠ*ŸÑ†8Ù’ŽÒZœ€˜„¾è¿E^‘{™}D’ï$d"Œ6Ãèÿtc€|n‹îÑzÂKz¤#ܾ± 5di{زâJÔß\ƒÂ’âÒ f·0§ØóxOF£k9†û³ý[wÖ´;^ÜÓ‘Ðw‡”q‡æŠË¼ú¶(âÞ ïU*nŸ¿t]&nal˜šOêÁÁ¡Á(RßI ûÀûI=(uÿàÀŽ(RßIïW*õÎPR{Àdä2ªëf‹Rß²-KB÷܃ ìôK$ ’>Ø‚R¿\©£”úCù!¥¥¾‡Ë¿#»¬æ €ä,Œ mõû—Cµ|äSƒ™¡tø,< ± }›¿"fáù,ÔõÁ^£ÿដDû=Š¼úÚòˆùUœ/1Šã»_Ãgñdë‘Æì*šÿZ2êõ¦y(¹3*{%¡g¿(ù¤£Í~ÍÙoRÒËf%¤Hg;Dˆr‚û7Muñèycfʲ›Í¨Ÿ…W‚¯Œ_'gñž‡xä `Î[É‘fY÷þ{Ùî1Gzc½±ß²Füný®K|éšg!ÙË uYã~H®å³s3Üç–*}#ìGiç¾Á¡|ßH®j ƒ¹…cËŽí[rý}Xjìc¶Ýçm>µ¬W¬O< »MÜþÃZ±²;)Ã×T”Î1§d%+T¾Þéà%àKêóÊ»ãGâw æ8Å{OìÅö‹…Ïή¸¾Í©BÊy‹vÐÖKr1IÆ3½÷ûnî=oše/Iüí¢“'N~ ïzæÃÿéÖ¿¨{vbÛB«Ä)×t±tö·ÝâÛmeŽå/b–?fy^¹ì`µMys4ì=Ýuô4ü+1¹#Jv©g-H„C‘åSµØ .U.MS]8ªM½Y“D!$ $n}PòË|ˆG‘>n=¨›ÅÞSú˜¡×öòͦ£¥2K×î´õ)îý6RðNèŠp°£Q™Þ\Ó-6«G¾ ‹üQuâÖ%¿Å‡x$õ6ûÈÐâPû°Â‡x"–Ê1MÓúbMæ­R¥êŠccdYŽ°¬”^t,~@ƒÂ¦iäHµ‚0/Ý3¯Ðû@¹„¾yñhYJŽšc&ÜRñâ…ÑSÆtÅ~Xœ1q†íBÆqõqcØ6ÊÃ~ä±½§ÙûÀÈÙ{OØçqmO¯vjÆÉŽ®QžLõÌú¸'½[«ýj¾×ñ®9¦¥6”§Œ)ÿgéôœ¯éñöJä åì9‡ÂtNÚÙ²áö•+¥>:pNŸ¾cKŸkL÷–JÅÞ<å½Ø³[;ɾŠ¾Â™q\£”%ͤz VÞû+þ7µ÷3ÞŽ«á|n{¢–¹ ôuimÓ&mŽä¢˜ð›GGG­ª{a“·ÍŠ{Û1öEGôimX» ŽçìÒ.ŒYe^½ec*_ê¡aÙ=É~Ç>ÊfûØÿž}~‰é­žÌÅ‹»÷ô! $E§;™Å1õÏ÷÷ 9¾­ö%7kFÑ1X °’êOÍʆï»G{6gT”aynø¢ôÅ‹AƒHVL#Çöî9`ðÇ‚?Öàée³ßX6Z´ô Àçv¨Ñiz8‰ŠG¢º>ä“þ!éý Yg3Éžùi3«½!e¥ØÓždÃLclŒ}¤9æãyȦ³ÿlx*¸^fïÑ-:¢‘/êNè o”ŸåÀûÀïS6-³ Ç.é=a=ÉòPוy†À“»”ÜýÀx.ºcÈJh$ïC<Êrp3%×,€¢ç>¬¢ä â‰ßy?ÂÖù¡ä¤)!W7p)¸ÔtnG³>äðl7ÔÏ¡…a"“ºmêtBBK™ãeËf~Ê“)âÀ#àG”ùž@èwïñ!žVû»#à#‘M~-®Ó‰Ø>žšàf›Û ÐwãÑÓ9`¼YOÉtØ‚p8>¥0û ap|:röC7„3>ıBØ3ÇÖ5l-!vŸø»­ŠZˆ#—h!\½\ÐmÖmµmËfÍÅ Ù¥Yå⌸@ÜOëNY¡ÐR~V@ºÀ/¿%ôC$ÈYà£à¶ÞQrup©îqãT¸>ìIàrµ¦?¯JŠÀ2x9•Œ-p+²JÖe´²aÐÅ‚s*FÞ3BèƒÄªŸ¢õ-†öை¿Å äŸô!žø[Œ•ÂÈ9¶®ÅX(¦[%dëú¸¢Fãq—R/j©¢5΃H0oƒÛaÒÞÜ]šÄmšñ|P‹á¸Õ‚éÝÒçLx÷—UƒGãÍ^ÌW‹â2˜cÊûà+Á_)­£èc’ãõ>ÄÓj‡Fɽ øð7 þl<Êü±@~RìÇ£ö”e”’@K•H N¨Ö æ {\F1‰%À+'ŒA1‰Nà•‚FTÌ‚ŒÄ|&‰ppà„Št³¤ç.£lØríSB¦O¤âÑ̵À´à„ωö)q pà‰=Êô$Õ>%ö×Ñ{âÐÏ0ðNÁ Ÿ“4$ÔàÂ'ä†ê&iH–pLpÂ8ô4 <1YO×Q˜aqKŒžËÙƤ©ÓíPÚ)C¦gž˜¾HpBU…;ý÷È…ê•À× N¨HY‹F{ªÍ¯0 _ |½à„QÇÖag(ù7ÔÑ{Z=³@ý¤.$û³‚Æ=³@É¿±ŽÞÿÌÂaÑ[7³°€ï‡—­¸¢cNȉˆsj‰}ùb§¾V4&bmº 6ÔÎhµþf†_8„.¦œÆ¶ž5,Ùþ­¡'—×À, ÏŸk}MXƒš@xü|ü5’/úOü5Fâm`nQMX(ÌNB¶nàÊŽ¨Ë—³e:äU…IfÛㆈî¡×j7« a ÿ ¨ðAð&—¯€±¶qr™’؇m›\¾Æ~ek _‰„lÝÀ膿d–Lû.{z¹Äº¾¬}0]ïÎ šd–¸IìJ˜9á)ðSʺ¢+h|Xz~%*á8¸TG>Üø’; œŸˆ\Öi)sL«–kÛŠ2ša2UJ©Ìþ øÏ(SÙž‘ÇŽJ©ê à«Á_ª^| øk"«j»–«_éŒFÆ[Ç¡-1Sº#6ðfÇ«‚—˓Я~ü Ê)7d'Yþø%ð/Å£Çß~üË‘õ¸\¸É´Ô Dù ðÛàߎ¤¦ƒu¦¤lµlJ÷Àÿ…j ¸„“’ûðGà?ŠÇ:¾ü1øXµ—X` ÛU$QþU _ÞøW­î*R²]H6!8aÜ]EJ>YG«x•¨R[8[ÀÏ¥KˆÖ T?[pÑÛ×éëNM¼?AMÑxÃHÈ·‰3§SÃe•ÅY{-•«²UÑš2ì4?áZ©ØÖ´YÒ]C|6FakØg¾ ¡+ Öx8¾\eç  ²\…ÊBøðèƒÐ•…’­ñÄ_Y®F¹º¥•eâ6H× \ÕQÛ¼&Y]foˆ>3OuÁåîõ*"êŽ+ª U&V%ÆmÃq¼­:þº 3èºRVÀ+Ï•A 5| øKZßÆSr_ þÒȵdõœ Q U½ ø&ð7©ë£óØ&2zðÁ1 ½øNðwFÖPø½Ï”þ»€ïwë[J® øKà¿kBÉÿ²ñÄßš¬ö̱…³t"ì„lÝÀ•ª§§'j³tfÙ5Æ9'iÊÕRŽ–1æxò¬/UÔ*Eï³÷¦&ÌüZúó‚†8‘¾ȶªå‚Q[1(·k€3à3­¯kQ<þŠAÉ_ð!žø+Æ5¨ ×(¯„ê @u ìŸPý8d•ÅûPµ]ýam–¤Z ÔÀµÖÛì5°S àâ·YJ¾Ç‡xå¾{´¦–&i{±©×ñÄ]ë`ã⑬-›¢Šs-jˆ‡Òq§Äèe^ä4íñ÷bçÅF">‰ìZµ…!3|”GØ Þ«¬‹ºÔw.AB°mÀ;ÀïPfÝóì(¢³À½à{#+±œ³ÿ¦“+fÙ,UK¾ÖÞ;7+Ö­iU \-k ¼X;àü{ÇÌõBAŽƒR8„+QØû€ÿ tž½‹2£æE/ö"[Óï.òÆ£©£é‹ôËÇÊ6\¼èÕ¹ó¢Ï¤˜ä~ø ðO„•ŸÞ˜¤xÑhéœÃdô95ËMIÄ'&?éü“2‚×Ú×ä%›yRA+Åh>PMM•L@Ìae"5O5 æ°Z}øÖmš6 2öv 7ô˜S]/ÑR³ô}š¯‡(°h«DyÜ@lœr¾XupªN§Ùo½×») «¦é;Óñ<6cœµ”YfNÇñ¼sªy·Ênsœ{š;ÿ²ø"³\0ó¬Ù†o§¿óœ}mž½á°Q­…°Ù(ÑrÙH/Wu\J³RÍé»H„œ©;ZÊ;hÙ%MwÖ‘+кt}1Ú×M±N8“Y›À! !b’—LÇa¿Ogy¿«´½áÂyW˜ÔOjÊ|Еͮ/a2 Ü#xRê$ƒD—$¹8,8aÄzp=3 Ítau+d¶À½]ž9L˜<”ßÌP+anT4UA]U‹ý¡[µ…1™<ô”£ÙVin%;-LÑ'À­ªÃÂ:õ³°“Þ Ê×PQ:HN#y³R4<èU„<'6]”,þÚæÎúÔ6‚挢5•ÕŽ[¼Í0Ûv>(8¡"ãÝ?ûjrCÌ°Â5W¬·¡Â×]*©§¿ðê|øNÁ • ­ƒ;"ß%8aÄÎ÷CÓlšÒJzy¦fÓ%òŸ¬Ý܈k{DkF+:ÝžA…lØ"åëÝÀÿœ0îqóõÂÈj¨fø~’ TO” ^é±;­B‡‘dâ%§&ÍÐ-È È áIð“Ê*aø“f$Çý>Ä£¬,µPr÷— ½çÿ´/Í7I_V˜YIÝ=|9øË•éN"^ òàkÁ_òž>þTdåÝÀ:„•Íù(©ª×?þeª’ $H’üð£àGW¿ ü¸T¤ƒ†H¥½QDmÂOIðx’òãÀï€GÝ_jÃ(Éò}à߃ÿ}<Šû+à?€ÿCdŽ0«ÝOƒ;jóÈêØg/ô–ñí¼÷ºÞÔ.²–ÿËÖ]ŠÕÌÙÚ&ojPc#Ê^n šÍê°Uê§ãíS Û  Üÿ£@šˆ îMHÄÙ¹QXS ÕôE$–ÞÖ#qÂÖ­I¯ªÇÓŽÉœ!Y÷Ö7rɪ%QµG"ôøOÜF¤A_ª1¢ë5þßiÿ!Joº#R ŠÐ×ýVä~W‰m[òQ•H¬ÀAðÁÖ{bJîàøPd½ý¤¾ã”Ïk´|¹Å7¡h…j^L(¦¬²ÑKÓ F!M·”æÌ2Íâ™ãesÌÌSW'uáì+½“z±j¤EÝvMʃí?ÕëŸXñ‡æ9‰õ?*ø-éÐ;qïð»Š^Á|'¥ç³ÅÄVàNÁ c°ÅDp—à„gÙŽÖ¶7h©lÿVßá LŸú£¹™¾©ßS®Ue ¼½ÙñŸÐfDæ kqø°ŒýaÃWÝ]¥vnß™öOm¹ s¶Û,±E|ã[’X pyR¦Ãº"|ã«mèŽUv2mêæxÞ-ñ¦äêIóy4>åÆgÙòE&ûj½ÈŒž}\›˜ÒgüS˜ÔfNŒ’cgƒËjÞ™©ÐaF3o„îá&w L¾Lp¸§¸{ÛÖÃÙˆÄ #õpš¦ºt”Î\õH=„.$ÞUâV%¿À‡xâã&¿‡m³‰›‘øÍQmbÞ^ï2qÌ^ªÇ{3Þ#¼ü:éïÕQ5GbÜèCÁ½ØšÇÓMƒpôÕbpð¯G¸Þ™ÑRº½OKEœ˜X%8¡"ã›?æÉ|f—X ¼^ð„Ôø/´Ù%Voœ0¢Ùíªujçìhè† º ;†Ò˜ ¯ËÄÀûOH­¡¨Z AÎÏ N‡>*8aD=.àë*цà‰ö^$D’eÁåxt2´'Œ¨“§ÓÞò¾/ØG㘭a׃ÏõzÞ{Wk^×Ù-FoS¦c4|qÕAb–Ù÷8F¯· §ÍN›¡ds¢"0y­à„mwÌ|s á&l®Ù‹ñ$¯‚F4ž¯Õgš‘0™†&wʤ}4†X`ð–žj ôó7àsÒ,ˆeƒZJÌL±tYò¦ÍÇývÎtmÝžá“<%½ÈÆþŽV4tt/üûZÐiÁδºHáí,™þàIù]ñog&¹ÿW`ç"Á ÃÉOoĽ™^\œxxÁkCµd‡ävfeb¨ÛάL¤æ©lgV«åÛ™[](Í·3·6Õy¶3«3Kÿ§ëXÏšv]á¨mð T®E¨¼ÄÓž­sçf`FpÂZçNt :{ï”;åÿtJ´x¢Ýå{·È×ði…¿ù¹><Ïñ=êkqm16ÏÞÜ8×¹i³FטÔË®º?üµz”é,ðÝ‚wJ‘WmOŸœ0Cø%à‡'Œhº6¡‹¾¶U©XŽÉtEË‚~)ŽВ̬núp&ø¦÷iŸvÕµJºgcE³R‘Ø—JÙû°À®5‚FÌfèIÍ”°—¶mV<Ä c_)¡™å.$ÞÆ•J~Û´Rr ŠßöÙÄ­HüÖ¨6qûƒ(F·ÜjÉ­xp}GÛ÷‘=>Ä·e /[³?ˆkMrŤR¶vÔ}C$ÖFà`Glûƒ(¹€Êö%v>7VM.c'fò柅¡EïP¡>9XÛ4Ú¸O4ÎÝE¤¶-ùíªâR»‹H8%8a –œ(§÷N”D°äÄ¥v,ÌÔÝUj°Ÿny˜µ?HW«)~ÓªŸ#([6Å(*˜j~ŽÖíõ˜¡N®Sg+f}—RpY껌 &m€2¨z˜ŽowPÙ/šãtÅeèŽ.ÿŒÀäŒà„q·GYxxÛÖ©éCℱwt©SÐ…ÄÛØÑ¥äø°MÝ~¿‡m³‰$>Õ&æíè®ðîÛêæà=ÂÀ¥Öµ;”Dþ!14â‰Û„¡-Õ˜Ðó¼n®éøû{a‚ÍÇ®"ö6…2Ï^¿[Å×Þ8†¡Ýgù 7§W ›œþàÖí«GÍG/Hæ¶Á!äšðyàÏSÖ㜻"a^ |ü‰Öw9(¹‹ÀW€¿"r—ãàœ•EÖb›îÿ_ô¨µürzÒ¤Ã'&þDp¶ö¤I–¯¿!8a føð›‚Ftr^ª']»“Ù󖨽›à]‚Æ q ´Âñà„5>ZÓx=¸i´<{ËDó—s'ß¹-¤ªüðgxm'ß-xRÝ’Ër¡ía¹ÛyH¦§<Ã…î”Ü/?.x2ú…î½éÞÉC¢~ø=Á U9i©#Ö$Ë?(8aÚû>ð_'Œ¨½e¨z¼)¡œÿGpÉMA³öB¨¸’‡ ÕÙ \%8¡2-\ÉCÉuW N‡qü/’]#8aDãØì¿’'XRìWF¬çèʹæÎ+€;'TT©—z®ùÀ™ªÝyðˆà„1h¯sðnÁ #jï¼×Ø6µöºZ^·zÆ4Šta­áÐ9G“šß´fˆ‹óŠbLÁÜzmäY;GzÎ2zøQÁ ãÜoæSC5ƒû%bp8ô.‘­p ø’v´·âE«À¯j}• äºWwÔ8Ò^ŃL6Ù¿‹®ËsaÄ­n­þic­ÀÄ&Á Ûn¡‰^à à„1Xhb3pHðDô@ ÿ9 ½þ5&=gMâxAÌgÊáà›'lïÀ™„y;ð]‚Æ¡õ·ß-xBnXéÿôßÀùþ=+’ê—€Ÿœð9г"‰~øG‚Æ¡®ÏÿXpˆêzi‹zV|v¿‚Çv8:ä„îsQü‰Àä)Á ãîsm†UC5}®ïÕ÷ ùÏ^é´³“€±fWÓ‹ã–ÍŠ´$Â~x¾C3³fšY»[©ºº¸c¨8£Ó£ìÐ7¼Aå¿äã!F¶H˜ñe˺ÕQ,ÚGgmGñ~\ÝäI7¿±røôȽ¡oL#þøoàÿÖzg@É}øïàÿÙô^0W¿Mîòl¸¯“Û©o+FÎp§ ï$Ù”¸5ƒÆu㧺B/çQæÿŸÀDUpBÉBˆr’«k ÿÌöéç=ÌE¢O_$8a¸,Ðqæ"_ìüÅ2‚×–Ø“’‡¹”‰ÑÔ/,M‘bCŸçR&UóTÎs©UÉ¥ÎsÍgòí*—æGºZ›ê qŸV76ºmÀ¸µ?Èbæk_~LðD ëK”Üû<}})º§KéøIÁ ãîéî€#ð°m»Ïv"qÂØw$Òþ­.$ÞƉ”ü¶iGâ.¿‡Ò6Ñ4ÕÅ£â§IÊ×"µÝJ­1tPòIâ‘ô—·F‡ö@,ö!žˆ¥r5«£{#‡†–¯—›o¾ö=æ„õE²ÜÜÐQ‹4Ûê–…’[ ì¦{Ä@ jâ0‹¦ãÒ‘`V‹Êµ™«Èqô/š °Êt§–rh6ž©VL”ôš*ÐðF î(Ópòø^õ>¼.uioxõºÀçËm1õ:Dµ™gj×{é• ]êņÒ^ToÕ„Þӻºø"ðƒàlG›Ð?ÇÖm0 ɺËÁ—G`ùߺ¦a9¤6ú®îÛðáfp©ØA†pï1%×L§âo”)ù´ñÄoÆ·Ãtoo©/`-_µ$!Z7pE‡ê{»¯›50õÍF‡5ep5ðVp©°˜áLùv˜/a\*¬H4S¦ä{}ˆ'~S¾æ{GKM¹Óp‚ÖË笸 |™2C¾ãÒ[潊3¬µS.Vƒo½µß '<~"~k§äOúOüÖ¾¾·¥ÖÞåêÕA ɺêûwò¨µý8zɪ–ùˆoÂp Û¢ó\¦;£Öä÷â=ÂSàR ¹áL~/Ìœð4øéøMž’¿×‡xâ7ù}0ó}­5ùʤv™iÌ|_KLþ&ÿivœýª™463„5é}xp\j/U8“Þ3&ܾ%~“¦ä·úOü&½f¼¿¥&=ïѸùDëªï~oàGk»#±qÒwø0¬A“˜«à­7èý0bÂAðÁø š’ò!žø úNñ-5èù÷­Î'[7p%øJeöE%ž·;Ö²IÜ5À]àRw:…³ì;aÍ„»ÁåoF²lJ~ñÄoÙ`ÍZjÙ‹X×6;æ”%„ë®_¥Ì´ —bò]sõ‹½šõº½›³,Çð6Mûn*[+@VÂIðÉÖ׊¨ „SàR‘—¢Õ J~Ú‡xâ¯Q¶´VÈ C¢ªï“O\Þ04öjqï„}®’µÏpÕâ ªÂAØb—{ ]-(ù≿ZÜ…ªpWk«…ÄPõ.T…»ZR-Žû‡ª±ÿ]xððGZoüwÁà Ï€Ÿ‰ßø)ù³>Ä¿ñ‚ÁRnüóo¾-Xn³}8‡`å„ê²ß–  ¦8® EƒŽ9}âjÓ°6LR®öƒ÷·Þ†Án ½ dRÃçh6LÉúOÜb†Õz¨fëÖ ÎËÔÎÙ´ÕÅf=Þ…(è"Û²ë¿c6¤ÜG ë‘Ž†8j’5Ï··ºq:‰‹)!ÚÝÀà'Úu=:ÄÊggÉÛ=Ì–V‘°·KíiúÍ;'ÁO*,Ž€}?”Üðð{"öRm¬ZæÛQCï&AF€£à£ÊÊaá(wÂMÒ݃Úqw‡ÊÚÑPòIâ‘o*£‰C"ùOÄRyVÄfn7{AÃëÒîÀ¢mè…q[kœ1öMS4$órBâ]FRâòïËÊóqð_V‹;ü8 †®Ç`Ž„Ï‚?«Ð5”-·Y8Š¤Ž··FG-ð0ZXUjª–øOÄRYÇjÄýVql\gã"_ ÑÐ÷OBQ„ëÀ×Ejðýo­šÌÝAWܳ^JoŶh×nÖ²Ç%„Üܾ]¡7J¬î¤{-pøŽÈºKf4‰ü£}çø;;$'ð›*iý„ëVœ]}}SSSÙÊ 8üFBÞ<.5˜mžêhÕRÕnàYð³ÑÇ®éÐΗx˜Ï)Ëþ¢Q½êNXv€£¡Ú{OG[Ý/%Ÿôa4÷»)ª8Ô\îC<Kås¿<¦–;¡3ÚH–®wÞ¾AR{|3PlDfåØ€¾‡Ï\«È:Ôu¡xþ8DY-dÆNAŧ¹"ŸpõIg&?a­qðb“ÔpÍ°£’ë! n)숖¦äN+à•6¸mJÿ1  n+SQrÇ6 yf€ƒ?®P9«XHÖ^—:¡Òý•©¡tFÛ6´£·wÛ–©êó<à“àO*ÓÍ-^“Z°LjBûú³ýCÛûúû‡†zwöïÌîØ–Ê2ñC¶®$ï뀟—:( C6XÉ$ûJà§À?ãBÉÚ‡xâã´Py Õ4µ‡X£Âà ñå.ަ좘b cCj9ücI“Ÿ…Ò{õ²^œqÌð-ɽÈ¡oæ]QUØpĪÚ4­ÍÆÎ Õ<‚òh§(<ãšyGBÜ@ <†F…’; ¬€WÚШPúÕ7*‰@483>ÄÓê6…’s€ƒK5e³Ú”AÖ¦ lÝÞÛ;°u§TEº|ø+”©&ݤMèd¸}ÛÎ;¶õ÷ïèïdÒ‡lRHܧ€—Š®I¡äž~üñûrJþ“>Ä·÷ ×PM“òjoœ"n;–ÕNek—ÆZyoãH…H&Mº·°‹µ<¸Þ!쌂wbsv<¶z %´8ÑÛ¥ûQ „¯µ²ê´äÀ¤U¬Ö#`„ëgokëÛJî5À·¿­ í¥ÿvà/€ÿ‚ºAÍÖòü2ðWÀ¥õ %÷à{Àߣ¨Ú²mKoï–m;¤jÌ{— "ÔT7ƒÍ5쿾sÙþþ-½C;û³ä[²n® ¿Kv:dKDrÿðŸÁÿ¹õ-%÷qàÁ@Éÿ‹ñÄ-ÆBõ5TÓÑŒYÃ…g÷ó†h Ÿ5Dû­2ðfÄ×b¼ ©oeÀÔ´VÑóçuŠ×2c"3„êgÌÖûÆ9µ± s¬1wJ·ÃÆ` !NƒKí‡ ×ÊPr§3àRÝùˆ­ ¥ÿ80RT“æ­ÌPØ©3’ãEÀƒ¿¸õ­ %÷<àKÀ_YËøÔÙkcÂ71$ÉKO?¥L177kbvlÚÞwÎq²“ýCÛ²fÿPÈV…D}3ðSàRsWáZJîuÀOƒ·a®Š’ÿŒñÄ-ÆCBÛ5TÓª<мUáWi6Κù"B7ínv«YèZñ0rDèk?ÕŠ;ö–ËU~G¬ÁIìB9eåMÃáC±Ã1t;?¡š)³ÏØp 7ÊÒÎŒDnÎßþöÖ·=ÃJ \ndáÿôÆŒ¶·D¡º z)ÃǼÇYÁv‘é=ü˜”d{ð3àrµ©™¢ïõ¯ÄOMr›Î2Ëí+š¹>cÚè3ÜüD¶2Qésõâyg™úÙÉz8ëØNé,ÙýY²û³ål¥0Ò]RÖ>/0qà„­v—”ìo Ùu‚Æí§(ùkëè=Šr¿t”½#"ˆ7Ûh>×1Ú¡ÒI†.J>éC<’F¾,ª8t£Û‡x"–ŠÄ±„3P aôc A›£ÙƸ>FмGx5øÕ «mÀåyg µàk&° ™’Ã)™ŽkÀ¥œTCÑ_ËÛRÞ+0ÆmÃq¨·@º=~!¹ÖÁ•›ÊbÖy9/i+·‚ŒÇVvïáâ\Jnx<úŹZÝV˜XÿÒ¶ ÜÞ$m1‡àê-ƵÍÒ˜Y {褪Ÿ.î3¼ÅXÀ‹àã±ø|ðçG¶˜õ5‹!%ðý`¤ ¬¨HÌ €o—[˜Ï`:]#ì= ô>àûÁß­¼øðÄc+oþ*ø¯F¶•[ê¶Âœ øŒiÖgtÎ?d¸ IhçƒÀ?ÿsõ~Æ1Š|(-!Ý÷€ÿþñØÎw€ÿüÿÆc;ü'ðŠl;k¹í0ˆÿbJ#üåc$Ô? L,ıXöoܸ±ÆV+Zãšm:ç5ºÍr¸‡á}§b• 4ûäè¥J‘ˆw½:':”Jè `1'Ç º«íéÕ ‡²“*ºSµáž‘‘æ)Ía·bÑ mŒ”ñŒ–7‡óü7FøoØßëÃìG6—O‡ÎT!<~¼uV(Gi{¨¦ö\Of2fºÍnO -bb^~}d7Ú%=5cf´I³®ËŒæ»3¼R HG¸|c”:†´=T£Ô¸R›Ï’‡¯Õã‹ðð"Ëxõ˜Sž£ÕðŠœ€@„WƒKM4wÆ®nnÙ~¸‡ïãenGœf^5՟ݹ5Ö6zçBë^Õw?o½ž×à«áV9t&MdŒÐk<ÏFÎäƒÍ4p9mv7ê@ߤé݇:ç'ÂÁŒœ¿‡çËß]bÿ[“6z–Ý¢yÞ˜•çÐ9<\ú•"æ05_kû%Üc"¦À£_†pìòÒ¬øk™‘WA ù <~,rž]Nž(¾ûá›-M†ÎNY Œ¶»ßÿéCru¦´)Bß*sìMti{¨¦‰Þëõ»š—ïŸWC#}¤½5mñ‘¸$)t>ƒì„{Á÷Fïj°¶Ž:çÍúháýŽ ¹Õu5–P!29ÃËã@Â%àK"ËsäiRBKèB*ÂëÀ¯S6š_2jLÓ°°éªæ£H®ª´b„ÎSòIFÎÏžðZ0!±3Ù!ÌWtD,0ÅrÞ˜™²ìfË&¡•à+ã×É$Þó\Ìy+9Ò,ëÞSÈv‡Œ9Ò+èåø–5âw«èw]âK×< ùÈ^n¨Ë÷Cr-Ÿ›m}n©Ò7Â~”vîÊ÷äªf±0˜Û1P0¶ìؾ%×߇·}%½ÜÇ|QÖ+Ï'ž…Á&nÿa­Êy‹f¼ê¥¸˜$ãùÞû }7÷ž7ͲïnõE'Oœ:ü@Þõ²ÎÿéÖ¿¨{vb;C«ƒfM#Kgá­!¾°ÑTæþ"føtNhžW.;r^j6îkjjy]ÉïÉ%<«â‘CýS+µ¸\ªhš¦ºpT/šz³F;‰rH6–IÜ*¡äWú"•t£±NiHµtB„«ÁWÇ ߶#Æß×ôÄ©Jþ âQ¤–PKÁÓ«ÅÀNU€jº «À¯ŠA5]Pa“ƸTCɯõ!EªYv«F;Y¬…ʽlÉ@ `0‹e&@1®é›µ.   Â+Á¯Œ_1 `^%k—\1 ¢ŠCÏ Ê7vþOoÒ4í ByÒ¬6{•VE…Ö*d5¡÷\{Ý?›ÀoŠ*irlÔ»0á–Š/Œž2¦+öÈÄ4l2Ž«öQ.ö#Ží=}èÈÞFÎÞ{êÀþ;Ó4Æ©'ËFäFy2Õ3ëãžôn­ö«ù^ǻ昖ÚP~m:Ã=ŽaödB[Ésðfð›#Ëu³&þ›.š%& ÿ9]ÔsÄé§C?CËê›–å²&”Ⱥ²²žvÅÞšÑhîÚzÙ«ž|æ¸é2ä¡ú‡§oâ>þ™ÝÝà»#ç …è…]17|pïÑS¼6G– º]0Ž•‘°ÉÖIq¯‡¸96¼c¦0¡ŒŒ6Q4ˆ^ÄU‹°É6NIû "{ƒäbzwg†‡Øˆ4?ÁÐص˜Ñòû‘/õjHJØÞYê,¤f•‹)¬Às w¸?»…¬wÜ(¼O ½¦£ÞÍÊ‚gãkø× ¬‡À‡ÚÑð“[€[Á·F$|Ã&±†Ï¥†Ÿš¸%@õ ÿ¢KÌÊÏ#ÔjàZp©ié°¿¯Áç'… '…%-f5þ´‡‰µü­L¤šcu=b€„\¼ ü¶çhà*&z-ŠzÛÂ÷vn /¼o¦cø¶çVëºbªk]77¶®Ãýí«t«ê«Z›Á7?×[Õu”° ­*%Ûlk«JlFjU›&»p´êèãÍV斠̯íˆÚŠú? =íDÉ'}ˆGÒ ô¨âÐöÌe>ıT$âø¼N³x'Š:9‰À(¡óˆÕíÃYñ`Böo:g‰s…^ÆÎi:u/êŽ#SnËëÁ×K—Ûœ¦=vIï [ÅI–MÀ[ÀoQVÅO8SrðVð[#Ûòº°O×&™’©­]Ëç»Á¡WqÙ^è«tIê 0žWXhWéRr]Àx!~·HÉ>Ä¿òíðo¡JNšru½iñ¥2r5uD{f›÷¥Žak©²a˜ù›c2%¼xü°2èá½ÉqÒ‡xZí­(¹#À{:j—ÜF´øüzÐðÞ*Ö]‘Ø#À'ÁŸTXjë¾ü•ñ»+JþU>Ä¿»ºQTŽ­sWŽÖ_‘@ÝÀeàRËŽf;ÐŽ\Â_a*\3lÛ²ÉYY®±K³ÊÅö£vµ®;e…Ž„DùY |üé¿üv!Ð}‘ g‚?Úz÷EÉ=ÔÁõÈ5 ‹|’„Fr@\®ëÒôçUIX/Ç£’1 nEVɺŒFM=óÝiºÅ ±*À'ÀŸh}‹AÉu_þŠø[ JþI≿ÅX/Œœc ;¸å° ÉÓ TßÁ=}\Ct‹²Ú j'l£hLêeW›¢KÓ+lhN/ÖºV“¦.Sò+€:¸œËTÓñ%9&|ˆ§ÕnŠ’ËMp3z… ëŽ(ùs>ÄÓjwDÉuσŸßQòEâ‰ßi”9¶Î-+f²uWvÔ¶¢)rIo°*¸ž2å]}Ìïi.¶™O{~†µº¢ÉánKäƒ:°Ž[-˜lçNèl<7aU‹jŸÍr¾XåsžŽA´Ì£QÁ¬¾üÝmôh$ÇÓ>ÄÓjFÉýðýàï^§Ãz4Jþ>ÄÓjFÉuüWã÷h”ü}ˆ'~¶A˜2ÇÖy´|í_B´nàŠŽ91 B:´µ³DZd˜tÙ…Ly­FÚ­°‚A»#Â:’åF`xOë %w p#øÆÈ6þF,Jÿ&àÍàrÛ-šôé™”ÓHØÞF6ûÁûÛ¤‘à ø 2,¢JRž”RÊNàíà·Ç£”!ààw´I){ûÀ÷)SÊBVM$urxüx<:Ù<~¢M:9 ¼\nY¥¹ë*˹®€Þ¥]Ç£‘à(øh›4òð ø…µ¤,[K à9p•£ÿytrx<úè_N'E` ¼¤L'‹{œÇlW²¦¸À àâÑJø<ðçµI+Ͼ2­tC+’µå¥À×€¿&½¼øZð׶I/O_þ:…#”¢dUy ð­àoG%¯¾ üm‘U² #±îG"¼øNðw*lé§ä”ò^àûÁ¥&‚Â+å]À€KMü4î òÏ=NÑ,ã¤^¬Žo²±RÔóõÛMgziJ"«2 ]þ*ðïÀÿNÝðæNÃÕÍ¢ÌlÉ€ÿþÊ´¹hÔ¹§j¹Aúü{à‚ÿgd}†žO¤äÿˇx”YsÀ|"%×ü øO¢ç>ì|"%ÿß>ÄQ ‰ùÄaÑ[7ŸØEv$$ë._.#YS‰žæþDcr™Ééð˜V-׶d¸ËóÂ?9†ëðß4ü÷`VÉ`—3W4àÂÂÖ„¼Gx<†µÂX?a× )ù¢Û¶V軥•5a&|MØëßØšš0#SfZQ6â½ñÖ„°þí­ aý¶­&øBÓµ¶MÐs’uÕׄw±v_á4zœ—®zYÓ+ÛªØ&Åä5ƒWØ pÞ#ÔÁ¥6ñ„«7Áè sà¹ø+%Ÿ÷!žø+€ïpk›‚ÐàfýÍqT€™ø+ÀÍxïæx+ÀÍ0ú›Û[n†Ñ{ض ° F¿©µÀ _6Áè7)© gItSm×”G'?³íÔª…„Ä«€Càòg£½¸ü™QsŒ‚{z_ReâÂEßs4µq`4}‘~ùXùÂÆ‹={< ú¼1Sé 2‰ð$ðm>Áo“¼f*ÉŽK'´RŒæ󻣩ó£é ’ É©L¤æ©„äT«D½@šÆ2öv 7ô˜S]/ÑR³ôzÄÛ9z‰^ƒkóÝ¥–fL»¶NgÙŸÍÔ<­m•´µýåà/WVÍÂï%9^ãC<Êz2³õ”ÜÀׂ¿6zO&l?Ž’ʇxZݣ亀¯—[KkÈ}Ø~%ÿz≿ç‹_ÓÊÝ¢<Ä‘„hÝÀQw‹Îi7y›rµ”3l~ÓÌŸ×Jº}Þ™5¸ÑRÄŒN7o }òŒ2°x7øÝ­7õÍ0o£àGã7uJþ˜ñÄoê¾È’­ñ¼6î×íñjÉ(»þí º¯ßjiB|Ë.5¬Š ‘2²ãÙÐ;€ÒŠðQðG•u]—¢À‡éJØN,I4| ü±Öwb)9hƒÛ‘«ÄÒÝÌQš^t, 9À‹à•ih¡tx ðà¯P¨›¢Y>ìóO‚G?jÞ›žÛ•}uMçµU´ªc¶/$ê+ÿXëÛJ® øqðÇß¾PòŸð!žøÛ—[„éslá`„GV•­}02û,îŽ9­‹£!ÀUnfV¯Ë3™³$ýjà!ðCʼÔ%îÀ6„¤9¼üÞÖ·!”Üaà}à÷E¯}a}%¿ñ´Ú÷Pr]ÀÀå 5ä>¬ï¡äô!žø}ϭ 9¶0€ç,![7pe‡â@‰•5çc–]cܘsè¿>KR`¿,éE±ñ–î¦&ÌüĬQ ººµñ&`b6¥¾y׶ªeæà²Ú~Z¦.ûe-ýñ”åIä`èiÚŽ{ÙÒ5îÒßày6Ä=Å©oNJY#0¡ žÐ”ùÔåÂ`†ó©ÁÌP:¬g%™6‡OH­,†ó¬”ÜàÁ #Vê‘&=ÀæK¢‚>iª)˜† ül¾LpÂV»j²°.$ûrÁr þOC»jJþ‰:zOü®:#ê ÇvyÄ} Ѻѻ‰‹f‰”Gta¾Ì_ºS†QÖú¹ƒèïŸíy(±±&ZÇ~iØÖ¸Q6LwÆ7ÕóyzÅCC ®`ëS´z™}§YþU¢|®¾\n‰¯iKÈï Û’,O?þÁÖ·„”Ü/Ÿ&r…ZEƒÇñ²e3sõJ(èCÀßÿ-e ¿yŒäø]â‰C9ŸþøïEVÎnqk@‰õ%{Y}² Ç¡:Ub2ù؆ýÆ,TYg„ éELI—fŽ$º$ø&:OÈ{IE'½I˜eÀ5‚¶¾A v¯œ0î%e½§Õ=²/÷W Nw‚’¿ºŽÞ"+,šc ÏtÐ}Á’u—wD=Ó±dv­• ™Å{„WƒËé­é¦ ßÊa’èàfp© Ã5”ÜZ` <ú5Î+´úUi‰(-$K¸ |›2%u“’ª¬GèJéhxü`<:Ú¼ ü®È:Êõ¼«NUÄ•f-¹AÝëzK^ï|ÓŽ ŠÍÐ]¯Ëí›-ê°Qßþ¾6vØHŽùOú~øaðGÖ÷†y:lRÝ2ï#À?ÿÓvwËH˜oÿü¯ãè–Q‚_þ øßÄß-£ä¿ëC<­î–Qr]Àï/þn%ÿ}≿[Ö',šc »et‘³„dÝÀèݲÙÝSÛ—ŸÐékS×æ Dã:WÞ*bËnà­ff(_ã|³AXûïÃ{„‚?ÚzûïƒÍêàR'Ü£Ù?%Ÿó!žøí¿6ßßRû_À¯0—­¸¢Cõ®À3’àR“•Yí~‰åq5° ^VÖDÏ»ÚØ©"YªÀð™Öwª(9 ø8øã‘«ÆHÃÝ™µ…¶ŒV0ÇÆ ›ö±’ú¹¾-¯—îDã“׆žŸð-¡â À?ÿÃÖ;%–7èw´ÆÕlÇk£“£n-V—5]l{5«êÅ^šu³YÒV©Wܺí`AÍp\³Äƒp1¹ØŸ.µ ®—JÉ> .u€»quYîŒ; 1 Ìç”éEr'4 sø¸º(Ÿó¬ËR‚y  .唣턦äâiuÛ@Éu]ðèN9tÛ@ÉW}ˆ'þ¶a§°hŽ-Üe9†+![7pe‡òQACÁ¤Sbùz0 _ á-@6í-‘½5À\Gl£vÂê Û¸1Š’/ø°m£vÁêwµ¶q£\­½Ìîœ'ƃ® ý <•¢ÜàH@ÔþÒ.=¡.·+_]‰d™Á¥†±áúK”\X/µ«¿DB”.¸\©°¿DÂ\¾\j+FØþ%X¾ü%ñ÷—(ù—úO«[ J® ø2ð—ÅßZPò/÷!žø[‹Ý¢9ªm-;ÕS°¼ué9ât£ŸgWÕUbA¶@;¬Í’T«¸Öz›Ý ;%ܾ!~›¥ä{|ˆGQî»Gkji’öu0Í=@íqÕï…ƒµë~׌VJÚ@vç6mÔ5¦Ý §°Žê é“%Ÿûýþ–À1ɼSîþøÏ‚'þ)l.é9/-kÝ}À$ï}rÿ³ŒÜµJò’ý¤€û€•‰ÑÔ/\=šš«öÐ+“±yª«Uב šiZ=ÚSJ³ä»ÌJÚ.å5¿È¸µ©Îs‘±ºúäÿt©–Ò§Z¢þF?ó_è?•UðÅü(ýðέ-ý‘äbôÅÓòÿÉ.%BÉGTÏÖ5‡îÂ+'Ù \#DJJíºTÒD/©»ñ‹¤t“Ì…p3r¶é§£IN¦|ro–‘[I“¬FŒæ—¼°&9JK¬F´°-±B½\ª%^¡V,¦ÿ­àºØ.e¶¼-Luþ–WQµñ:ÀMÒx¿av`ö=Þÿð˜Áé<±¥®dkZÛ—!„úðé‘{C/ùHglxœ<ÞxFçÉçQ*ÑGç×i)‹NðÃçb¢ÉÓòEÖ¯’QYø2)µâÐ< ]%’­–Í}½øFö¼Š=R§AÃëëåÀ7¡HÞY_‡ÅtŸ˜ÃLÈeß.D“u¦M’o~YúvÛúd·ÔÇ…Îc6{ÙkœÎ j·j£:ýJ¯²zÓ)×a¤ÆßO: ^dïœ jî/Ù›û+YQ&™ŸŽÞ\g_]îÎ^¹•ôæÔˆÑÔYdý,—2™îžÙÃv÷*îRݽP¬=¥×tBF¢š·KÍŦ:GQQôºX~  &Í6H³¥mÍÍ2¿Á×Ü4·*ɶ£s;p„=[Ùsò§¤í8å“û¹Õ´JÄhÚv¬bm‡OÛR­ƒéB·êTs©Ö¡±>´©|šï›œ·V¶KgÁ®¾u©^ÂÕ«©@þOw{sAw}éNmu¿v²\Ä«»1ßW#¯ŒœÐûCnXC5»fiPR˜; á"p©¥…ÁI–À5àkZ?ô¦ä¯¿"²^Šõˬõ—ýdÿ2mÃ÷iŸ(²Ç­ßÉyɹC‘¼M“Ѭ²!¢ÒÍ{‹«–:I>–yVWÓ‹ÙŒ6Øß¿#Ú¡Ra½J`b—à„q;Ô½Âøj¨Æ¡þîR%sÚ(x»ìÒÁÁ6ýÛî.Ë]="gàÖ:Óžs]V;`^ÎÅ=~ÁbtW«Tí ³" \èÊî‡Û‡B'ü øO”ù‘ùî t#L”D¸@pÂV»*ÿF² 'ŒhŠ«ü›á$ŽZ4‹€W .yQÝ|‘u–Ô,MB¼!ànÁ •éjž‹ßW ׄÎÚ%]BðÀ~Á åŸóÍ7÷Nƒù&Ö‡'Œh¾Û±Ndޭ󞯫_ b\²Î]a›ú6 +x¢ ‡n÷‹ªQC5­Ñ2ÖÝOûX%Üó‚p¸TpœæÛ•u×ÖËÎXXMÒ\\¾®õ&NÉ-^ ~mdõ¼¦æ¡3õг›t´¿¢¸,»D7“J«dhNÕtõ\Ѩ‡ÈÛýÅÕö™Y1׊ָf ŽfSTyGôûòü %…‚“0ë€ï2é6¦+26òAàÇÁ?¼ø ðOD¶‘õû­s€eŠjê¿&Ñ«Ø"vél³ièûád¬Où¢KÀ£èHèý“× N¨Hï çõ óÈ”èn<¡ò Ô€8{”ÜõÀ”à‰èW Šàϼ~‹Cn¬rŽU‹u î„ðª|mDOƒ7cšO†á²F½¬g3|«HJ/Nw«x@H Õ´ŠEÖ*f£$C/PYUŠzÞ»†tö¤†ãDÍ1&Ù°¬Ø –ªõIÖCáž87Ã^sk›†ÌñAä’°.ª¬éäÊ å#¬?%Yà¸Ôuáü)%WNƒOGVþ Í[cWXƒ$Yf€/Yüõâ.X†‡jê…Ä‘ãCHœ0ú‘㾨åBb,÷!žøËå0Êâ°’ré¬:§Œ)Ù.àbðè{ì2¥°Ä‡xTõ¹3î™ ¿Mï0^$\Ã(‚’ë^ }qC-†óܱ™°5ˆD»¸|{;jÐÔš#í©AGPkŽ´·A­ñPm ZŽäfy2t%:‚ ¯¿¾õ•è*á à7DÖLºV‰XQ6 {‡Ì{„¡+‰y#ð øÁvT¨»Q‰înO…º•èîöV¨»Q‰Ý:Dx=¸T5n(‰L`}ŠÞF‘¤7ËÝf±JE5:Úž*uÕèh{«ÔQT#[ÓË“8Œq/ÆØË;ŠJD¨®—·¶±—gˆ(+¡ë up| uçê˱öÔc¨/ÇÚ[wŽ¡¾xØšæ¨,ÓËÇ:bmŽŽ¡ÆªkŽ6ÍÛÉV&’ñà>ð}í¨LÇQŽ·§2G:ÞÞÊtÈCµ•i…7XzÌv%£ãxñ8ìdU‡ä°%\u:Ž*Dx#ø‘UsK½1 Ë%[¥HÎõÀCàméÛ@5:Ñž*uÕèD{«Ô T#ÕV©U UJ¢:OÀRV lu¥:ŠD¨k‘•38§R]¹HÞ Àð‘vT®“¨P'ÛS¹N¢Bìhkå:‰ å¡Úʵ•«(ÑXÄ‹„ׂK aÂÕ+J®x¸ÜÎÿ§=µzÅ÷¿(¨G$ßõÀaðèÞ$êÑ=BïÛPîAÝ!lc=ºuÇÃÖL@L…¯F÷àEÂ' îAÕ!T7±¦V¦ :s~S És0ýÔ¯DµAU‰Zmš¦º˜WæXš¤|µdˆ'j « J~ñÄ-Æ)”½‡j¶1\Í â5E[uh‡cqFì‚ )ÛiÈCx5øÕÊgÇïUH¢€›ÁUîu ð*”ÜZ` <ò^·Ä¾†‹:ÒÚÝ1Ü< ËL蓆ˆÞ<]1òtV%U­8ìÞ‚5UN{[$ ½‚ ¾Žkëü”ÅG¦ ÐEǪm{¿Rzm;ë!¤çt´F×7{_X-JN Ôy½LAµsâœUYì¾<åvÙàQ¹Œ¶–ìïHn|ÏOXf¾6u…€Wa+é/-".Wy9tÝ¿uÊC5u;míCTr~»tEwœúÕ05%ã®k/xXHáïƒÀ„¾;=#8‡¦‘=%/&©îÞ ~·B°–’» xühëý%çÝ$x üXdCúXÍT~Þ­L6^wù†Ï˺&]l ¥=Ö ùvq‹¸s¯d¯íÙçï×ÒòÄÀ¡€È1é©ÐŽ L`7!×ijÀ•üDvlâHœ¥À5‚Æ`JtÜã‚'¢Ÿå¾ª¶ã”5=Þ½ŠJ\ L .¹Ó¼™¢æ¹;{^õOH­$†×Q8(8aD-à5WB'CÀí‚'¢µþ·‚oqžW%ðÀ‰Û'ŒC%ðÀ‰;'Œ¨áäxÏ*ÇûÄÓê:ö€ï9[Lj:îOÜ:w—–´ò¾üµê<ä¤)£½7ß þæx´÷ð-ào‰¬½kÒ™¹7&Ijéç€Ï€?£®oáRjúðàŸˆGM~ü“‘Õt=SSRéóO)ȪêSÀ¯M]…*Kiê/ßÿv<šú:ð;à߉¬©‘ôìy‚¬¶oÆ›œÁÚ}bìk(AÞÀÍbŽè«à:)W{Ü°­Ð= ÊÏ_ ¤Î4q¹Nu´ŃÂ8j¨¦G±ÁÆtÙAÐC…p5øjeÖßE½Æ°öO¢\¼<†]r”ÜàõàÑwÉ%32¹x#øÊ4" Œd¹˜OÇ£’õÀ[Ào‰¬’…™‘)Ép+°¼_™ZNð‰t½lî!: %7¾X¿²6g¸îI˜Û€‘æJ›{²ã÷=*£žSÀûÀï‹G=Ç€÷ƒËïüŸNðI‚j¥BñÖÄ.s%4 ñÆ;–m>n•Ý9-y¶qÔÛð%˜¸õñ—ÐûÀßÿMez—½”¤ùà‚ÿa<ªÿ-àÿQdÕwIVÇ?~üËí¯Žü&ø7ãÑÉW€ßÿVd,Îj÷:’Õå/ßÿ®2½,Fu”ÑÍ?þ£xtó=àÁY7GÊsxz¡ éÌ¿å-º,ºqÃçújQˆ0VâÁˆRNøƒ”HñâˆKÆkªÝ"Vظ‚$ÍAà1ÁRë‰MS]4êÜSµÜõ&Ð'Hœ0¢z;Ãh%Nïœ0îAèÃB©5lH<ÜÚÍQ}H¼<ü[X_D²\\ ¾¶õ¾ˆ’[¼üšè¾ÈÏsJÕʶŠ´_‡G]ªX&Mø¢X‹MC9ÄÏ3 2wÀQ>Ösà9eª]Ê%îÑ‹Å›@܉GÁy  îFVð-eÙ2º©gÀg”é¦[èFæv>è…ÀW€¿"Õ<|üÉȪÉÒ45«G­«_¯~\*&ã¼õ˪ºRõë7_ÿbÝAqã}QÔX°Ì¸mæq'g*g¸S†QÖd&¯¨Dþ@`âŒà ©V^2I|š q“wS"h:xÞ—Hî³À Áaå§7æܸ´h´tÎiÝ•K$°éÜ”œ?‘®\R&Fó^Öhê|è{–”‰Ô<Õ€{–Ôê÷˴©Å{» ¥ùEF­Muž‹ŒÔ™¥ÿÓiÿv¦ kJ+éåÏ[—,ÇÕŒi×6J†çØ °¹îªµ”‘ÏfÄàš0RÚ|ÖpÀHœ,jXǦƒEºvÞ˜™²lï"¯YÃxÿ¦úŠå˜8 )ü›H]M SØü0ø‡•™Âj!ÛpkUl:žz ˆäúð‹à1LQrþ>xô) …»5‰µ8L´püø—"©(¼SO¶¿þ5ø_+TOÀyFJîëÀ¿ÿ›x¬âËÀï‚Ë­yû?=Ä«œ¼sæ¹àW;_|™à„qèëqàË'Œ¨/‰SF$ÀÀ'‹=ôB¥5”ÞÝÐ4ÕÅ£áÚ$åa¤öhÔ”£%Ÿô!ÉÚq[Tqh@³È‡x"–Ê]š¦¼ìX¿þà¾ZÊÌÙŒV•9¿šƒZ }wv+ò<®Æ#ŽïaN™’;|<úœrøI~JÿAàCà)ÓK¤k×r°}Â"x ;é(¹‡%ðè;éä4SZà–2ÍD¼Ã‹„š¾üÅñè¦| øKÚ¤›—_.ÕciÍeP$Ö«o—š×¯—ßþ¶ÈÚY 3&!Þ|'ø;•)(Ê…B$Ñ{—Š”^7ïþø¯EÖM9Mƒ¾«¿b9Ž™£MûûÍ,YvIç= =gUݹ} Úl“w«´÷Fs\Ë6 | ¦\›Æ¬—0‚_˜è<ѣ̊ØúçQ› ³‚Æ ÿÄF`Ÿà„õïøž¦xð8’£W]‹´ŸçÚ͉[*òº븼¹S_,+Uª.lCÒýÀw žˆæ šƒá°¼æ%dû ð×OHUÊ[Xf¥äà‚øêî{;Ô®îÎc‚pA|u÷]’«» %ÿó¾!ŒͼàzJLü¢6fŠíøu?oæÚz¹€-ƒü¼0®4i´s sø˜Àä=‚'å¢Ìgª‹˜_ÎVã›Î#\ò ° x²‹­&‚'Xl59œ0¢­^¯Méí?§m\,Gðküœá‹'TÔ¸%g‚ìc¾†-ù à“‚'¥f±ÂkêÅÀW .¹²ÚœÌr"‰ð*àS‚ªRIøß$È›o<)l;¼J^ü9Á #ªä ߎ+ïp™„‚þðý‚¶·Î|øk‚'UvæQЀ¿.xRª ¦Î|øIÁ“rÆÖ™Ï?'8a*ùð·'Œ¨’å–uygGB5Ÿ~IpBEªéd=& ¾ü Á •©& %÷eà7'Œ¨š•³†6eñMàß Nø\Ö$ÿøÁ ãè*þøß‚ÆQsÿø?‚F4û³ÚᲸcÆÍä뽎kòÀT˜kq-qÍeL·HO¡$ÿW ­gï<ý’tb s\ðN©=à¡í¬ ‚wª‹»2ŸuÞ 4ï4#ÛÙUõá3N´ÒñX Eœ>_pBE-…ëH͘m’=es¸Ì  »ú0û‘–hâ;1{ßùnÁ ãPà €¿$8aÔn1¿¿•nHeÅ¡ÙzIJ}¿ ü¸àê"Òu2Ád4ô›ÀÏ N‡†>üœàR}¿Y£~ìñæW…Ñ-RäºijÔé.wþ6ðÛ‚ªê.‡¿õ†ùðû‚Æ¡©ï 8aDM­«ÏÆøÛÎð;zH¬¿Hw‰'Œ(^è$y¡ãªÙWs+Å ¦éM±¤ZWAÓ\+랈^ˆä.‘„$¼üVeæíí™ ¿jG wƒïn½™Sràp©‹BÊá 1eM7~þ@§Ôyôß!î€àªn¸ñŸ~“¸ôpÖR¡WÝ©†Ÿ— †Ö ëøàWÁ¿u|øgàÙ:ÖÐ8Ãx¬jNêE¹x7$Ï×€?—sÎóí)š”ÙA"ýð?Áÿ3Mý-ð¿Àå‚Òù?Ý’ÑŒé¼QqÅ8‘ê–pÅ"Àš1ͯk»V ;O÷.‡mBH⟤ejârËÕÑZ2CB Õ´d«XKv.Êõ‚~„”j ’ŒÕÞç¨Èлœ¢ž kàô¥kׂ_Ûz§?\ ¼\êò·Y= šQæK©89É/bå ÃOÕJ_ GI^<~Pݘ§’ŸÑÜ1à ðñhî.àIð“‘5~K}Ó=Àðu ‘¸Ö¾óAàÃà1#¡?<~ŒdIíæU ½<4À¥àUœ ¯,KàRûsëÅ{ÊuŒ¨–“ЋœŸV¦—ðá¤è_àC7cRÍ™Eƒ©ŒõøöÑ\íÞ‡fHÙÈfœ.ð—ò©ÓÆ­¦Í7i)ª®¦T¼Êû&Ö N¨ª³Hy°…Ä&`ZðD:[HhÀ[OD¿ö?êÝøÚ.+o3±mŽS”¿ºV3âŠêFãñ.þp ÝÎO"6hmc ó¾)ö1ÓvÜtVÛ[žÑœjÎ Þ«ó›âJºeö†(b’¤dŠ©,É“‡iØ&«W*E³nÍŒšîIgŸ9¾›£Cè¨Ôo˜ì<Ù£Péåæ!:ta´ã*Gp¡’”|Ò‡x$kᲨâP¨Å>ıT6°qí^¿µrû£ýV™lfWX1M(Œpø†Èbv21C r‰v‚KÛOâb–æ€õ~æ«Û‡x‹ÕTœíä¦Å̼eÙæË\£w ³·|ˆïó¡˜Ç®QÈJdb9p?ø~…ŽÁtR@²]À;ÁïŒß1Pò|ˆ'~?³>ßZŸ‘«Û‡-0ñ™–›øy˜õùxMü<Ìú|{Mü<ÌÚö™xf]l©‰Ï7:ŸdÝÀåàË•Yùj>þ`}ÂÜ’Ö~‹xP×Zo¿EØ,áðèÍhû¥ä{|ˆ'¢CÌ~³>k}Å×qbîÈ6ܪ]惉I“¶ÝÍ„îr—`ã„CàêBm/å#Š€Þ%¥UîhkŸ›’Oú0ZŸ{aTq,ö,ñ!žˆ¥²ŽvEXűq ñî3ü„›Ó«†­¥BŠW¢ׯ“.­Ù.híÔdáêllÛ[±-šßÊZvÐ,ì|Bnn—ºÈ#À¢’nÒ½¸|GdÝ…_­ ôwwïR¦¤õ®[qvõõMMMeC(+àzBòàð3Ê”Õ5ZµƒTµxülôÞFøÍX$À£õÀvH^hÝ4ÕE£zÕ°ìGCµ÷±Ž¶º_J>éÃhî÷ú¨â°’â]+ñD,Ú”v”ö>d´‘¬v$›Ñ6i'Í"…F¶3ÚYm_VK ìܱ%ÕB ì@u„ê7¥õžª–J|]eòìäM¼ }lcÒ4¦èCÛ“’¢Ï€««ù'f(¹ ð,xôªkVÛ¯—r¶Y72Ú±½»´Cº=©ÛíÞ²9iØŽéÎh'iËKhA‚> |¼ Ø\X—‡jÆç(â—á²Ê°Š¡euãTÕuiÞ^QUŽXeÃáµd„ýkoŽu}Ù?ïÿܤT þúQV‡ûûw°:´ß*»VÕî5Êt`A£fªW/ëÅÇäa!ÊF‘ÓmÂ(Vø]Ì’«¦3¡Uª¹¢™ÇUr¦Î^·­Öçõª#þº3SbßjÏ„®±U”áçÀ?§¬Æ²âb1Á¿¿h–ypï³`”L«h‡Y!)¿ü[ð¿m}%¥ä~øwà׆®¥ÿ÷ÀÿeÊJnçGÀƒÿX¡:rV±ì?ÿü_#«cUj ?Ñvîèíݹs›TMú7‰.Á )'ëõs –IýÚ¾þì@ÿÀ¶¾sÙsyÚ}\1³ÌßlÏ dûúCv{Iæ¥À‚'¤Æ ŠdMN. ÙÀ‚ÆÝ–Pò»êè=q‹1)Ô^C5MÚ kÒN±­lð&5cûyKu`|œº{ÇD;5@·»ù"ZÏ-°–0Ï×jyËc–[®]Ú]UæÉÉøø†øü„eŠÎÍM‡®?SÈ2á øÌs¶%")_üð_h}KDÉ=|ø;ÚÐQú¿|'ø;ÕµD[·HÈó^àûÀß×ú–ˆ’{ðið§#«ch‰ú·lëíèߺUª.½øðϨ‡µENÿŽ[{· mÝ–b¥¿hûöÞ!›"ùóÀ‚ÿ°õM%÷Àÿ—øÛJþG>Ä·ÓBë5TÓbM‘oº7£ÝÏfì|T¨ŠÆÆ×ȼթŸœÂ ŸVÑóçõq#tÅð5,|·pB ¢Š±Þ×ÈœrÙ Íá–´SÖ˜;¥Û†„°§Á¥ö­†kc(¹Ó@½¡´^¿ ®Ú&!Ï‹€/WÈ7 ¡äž| øK"«cYjˆš˜ÞÞ-;¤*ÑKO?¥L177k]vlÚÞwÎq²“ýCÛ²fÿPÈV…D}3ðSàŸj}«BɽøiðOÇïÎ)ùÏø¢Ü/eï6ÍÄ6»±À:æÕ·Sû”|Ò‡x$öʨâCëö¡ô¡¨Lž•Fß`¢8lÍóðáÕàW+¬¶akž…®_«0Ù€ÍÞ”\ððkÚÐðRúë€×‚KŒœ?`™D)ì2 É´˜—º>¼Elö‚÷Æc׳àÙ6YD°¼_¹E,&‹¨®%!Ý0ðNp©=ƒámb;ð¸ÔÁð61<~°M6qðø¡ÖØÄx±T’î^à(¸ÔÑÐð6qøø#ñØÄaàp©ÅëF-uí:ÉpX/´¨õ˜”í1à$ødUÀip¹s¯þO÷ñµï˜U3fºâ¼˜X7÷Â7¬kÓMÜ9C+ØúT9ô–oôKøIp¹À·þOCwÙ/ 3¬¡šŒD—ýùHœ°u]öÅ®m–ÆÌbP0€ù¤[\ ®²óPÇ(¹nà5àRçpuŒ’ë®_Ù(ÖózDž¤î…I4ý9aB7Õ$ܵÀh[Açãã®á¸ÂÞ ~w<ör;ð(øÑxìe'ðø±ÈörcÍ^˜h[m"]Hµà$Ûqàyðó-èÙéåó’ö2 |ø â±øBðÆc/EàÏ€ÿLd{Ñêö” .;.ŠMf¤‘Ð-4I÷"à/‚ÿ¢²ÂY<ê†^t¬&)_–Å-¡³‹”|Ò‡x$«Ìý—+N`¸²Ð¥>ıXnÞ¸q#3–ÊŒ¶oÿ]Ú¤žÏ›eœ2ˬ¸™ÑÍ¡eý¨ðfð›#˺’É¢íé%é²¹üxh©^IW‚¯laÊñb¤í¡ßÏ5©óUVí ­hk¶éœgî€9qiHã è<È«É`›´Õ “—@zÂýàR'Jrrzá÷S%Cwª¶1Ü32ÒÃ?sØ­XNFË1R6Æ3ZÞÎóßá¿©ÅÆ¡—"„GÀ´ÁD^†´=Tc"7‰ÐÈŽ5«Ô+b•:b ZÆ—C.ÂÀoˆ,ã^f¡¤|»¤×Bž{úÌht¨u¸¢;®‘O2ÚŒ¡³ŸŽQfÖÑ“¯ó' ;á^ð½mÐù+¶‡jt®‘Îi®éšã2½Ó‘ß@>´˜OB4B \‹,æ2!RŠi?¼_ 1—/kƒ_…´=T£ÁÒ 3aMùü¹F‡õî#EŸ¦¾ü^ Y À"˽®®Ræ¶]æsœ±acº^¾×@&ÂuàÑGäáõûZ¤í¡ýî#ýòñµPÔU×1 µ˜]Ǩ,Öz—ÇØoét{Ë°)ʲ~èŒ<á ÷ï‹œ‘M ÏˆÜ ÷°|õ„×þë á&ðMmÐþ둶‡j´”´ïÅoÖi›ÛM«Ç#ŸSI&ÍþmîL…8oÊf³š5iØÜ쉄ÎÚ›‘ÂÓà§#gíZž%Þÿ„)ˆŽ©D_ó-ŠðZp¹}Ñlà綇jl`»‚–5=OáÖŠtÚ±t’ Žk¹Í‹Ⱦ‡jþphéÿ$&Ü.¡i=çÍWM¸ð:þyHôóm®çoEÚªÑñéX/œ«:.‚S9¦¸ZtVÐ~2Z¹ZʱÍ>,˜ã¦ëˆÙkĺ*š%ö«Ð{2C8>=c½Ýf s*ŸÊ nÍhYþƒ=m0Î gÃCGÙ`”ei8ŸêÏdwHx‡·#3oWš±ð–ó HÛC5–sXL5Î:9íŠ6túµ”c8º­®¦³¬¼éüuèü¼y < ~8r~Îú ¦hL²n>µ³?£íÜJgN™a8zÁ`¿ì™š0]ƒ¦'Æm}fëVmßÚ“ö¹ú–q£\>=rïð¹üEäŒð,øÙ6XÏ;‘¶‡j¬çv>aŒéÕ¢+ VÜó‘Ÿ°£ìE%®ÁeÞ….¥¯ ‹wArÂÛÁoœ‹—´UÖðnÈL¸|g¬á—¶‡j¬á$ŸaÝŠŒ–«ºóÌŽøš$>˜²(zqÕæÁD+Æã‡ÎÖ/#+„'ÁOFÎÖ®KšG@[“ _Є»À£ŸÑÄ—Ý~f´-mGZ¡á¿™!lg#ú^¤í¡ÃßÓÄð›M qãq¼à¢@Cgá}›pxô Øb4ò§!ôÓJüŒJ#gƒ$7EjîÉ›ŽÌúÅû‘1Â3àgÚ`ð@Úª1ømdðf±È<µ­ó8•|.Fþ«6Wò›¹‹ßœ·ŠáW¬nßYø[æ_Ìâ‘ó‡w HŒ2?! o¿%²À§üu“é°9Æ܈Á„×nÓz™-ìdö<À,™•²÷¡ó˜í¦&Í4{%;嶬O=Ükƒeìùä†0ÚÞhöü!¤í¡{Þ[›#)hIÎ`Þ»6 ¢RÕrÁÊó^¬QH×{´pƒ¡óñaÈN¨n}S—.3O8ψ¹æeæ]>‚¼êàzìæ׶‡ þ’9m—íÅAz=çXÅ*mû`ý_·Z0¼–_niÿ×!6¡º†¿·‰7dò9Ú°ö|–ƒ"ùDù­…œ„½àRç¹"ªÿcHÛC5êßÀ·nøæJ0ÝÆŠÔ,TõbøÌÇ!áð ‘匴Žÿ ˆAØÎuüO"mÎ9fIìÏÒYUµÇ _h ×Ìsóg}-åÛ¿‰ tì ‹U”þì`ørýò@¨nþë 凋V¶´ š§³XÖ 8”ÎcV”ÃݸsÈž¡åmÖŒñå¿ðûO> ?93|› £IŽÊe›Ìg ¡®µÁ–i{¨Æ–×3M3%oî-ô¥˜2‡^fýÀ ¡¥üMHF¸|}t§ÉiÓ¼É)[v)U¦ÇÐË4ür ÃákÒoA6BuN“Ë9¨RÎÏB¶Ï*•óf’sˆËÉt} +Ú[5Þùè¥_œLß2¾ú9ÈG¨p³0“•Yhjšu;§‡Â—àoC•à+#K•¼ZÏ#qÂ$x² Žä HÛC5Žd%kí²ŽaRƒC[«éw Éï(UÓ¡óYù`¿6ÿ} œÞuw®UkåCgçw‘Bu;Xî+›¼ÒZlh™²ó¦óXê<ëk ¦µ[X6Y=ìOSvjý¾íˆù8ËRÊ9oLÆØ6sUò÷áuõ{Èá}à÷EÎÜ6Ï\‰.œI‰v‰’•ë+eΧE“¤5dÎß» /BtÂ;ÀïhC…ü}¤í¡š 9ê¤ÕvÞ?´ÿí½·Ía›7ñâ…¢“‹Ã=ô¤YáÒ¤œÝëZ½kb6€µdF!ZQÿ²E8 ý6èðEý‡HÛC5EÝ°Av†Ö¨†{ÔØ"ùG‰pøºÈò]ÓD¾Iñþ"^= ÎuÍ‹¯<)!áŸ@*ÂëÀ¯‹,áµM PJÀ/A(BuÇši¸,£á/C¤/+Õp³ò+Ë•ßW ÔW”–ßõÍLuˆ¥ÊðO!áõà×GñÆ@¥Êñ«ŒðFð[â ‹R…øg‰°µžpJF¼¯A¤¯E­'M“]2jLón[³ }/Dr_ïPÙ†…>VKÉ'}ˆGBŒ¦·ÂOÐdMH‘þ¼CÄ– \¾B™Rž7f¦,»Y Ð?‡Õ^BëäÏñž‡xä `Î[É‘fY÷þû d»CÆéôÆr|Ëñ»Uô».ñ¥kž…|d/7Ôeû!¹–ÏÎÍÎ>·Téa?J;÷ åûFrU³XÌí( [vlß’ëïC„ä¾’^îŽ(ëéÏÂf·ÿ°V¤,±NÊ앤kÜrƒôD[¥Â]ìﮫË+l/²õ‚9ñÞÓ½Àá Ÿ]k}.šS°X®ãb’Œçzï7.<öÝÜ{Þ4ËX’øÛE'Oœ:ü@Þõl‡ÿÓ­Q÷ìĶ‡ÕeMKgÝ­!¾®ÑRæØý"f÷cfјç•ËKQÖKÍâRø\è©ø阜}jˆGB U¶OMÔbàRp©‚išêÂQ½hêÍZì$J!ÙÑt9,.…PòË}ˆG‘Bód—ôJé„"W‚¯ŒA)¾è\ø‹†¶2.¥Pò«}ˆG‘R®¿ëÄ©CÚÉÚµ1›™~6k'rt§RÒ.(‡p#øF…ŠrM·ØÌuA9„7ß¿¢(ù›}ˆGRQ‹¢Š³ Cô<ıT¶iÝ5$ü¹–Æ^¥iVnEõˇ,a?4Wž/ꎣ…”Ýk·oSfó z˜‘÷„ÐÑ3 Ü ¾W™uÆ¢g;pø¾ÈjL†¾7€žýÀ;ÁïŒ*GrlÔ»0á–Š/Œž2¦+öÃlà]-ºÎ°]È8®>n ÛF¹`Ø\8¶÷ô¡#{9{ï©ûï}Ç–>טî-•Š½yÊ{±g·v’}}…3ã¸F)K½¼TOÁÊ{Åÿ¦ö~Æ»)e¸ŸÛž¨e.(}]ZÛ´I›#¹(&üæÑÑQ«ê^Øãäm³âÞvŒ}Ñ}ZÖ.°_Wªî.í˜Ufà¥Ñ[6¦ò%–8ýú$ûû(›ícÿ{Bôù%¦·z2/îÞÓ‡$á1l©x¾¿oÈñmµ/¹¸Y£§ÓŸš• ßwölÎ4¨(ÃòÜðE鋃fQX1Û»äD€Áž?Öàée³ßX6Z´ô À秨ÛÕ´'KÅ#Q]ïñIŒô~ÚÙL²g~ÚÌ*d×SY)6O•LºU©6„X¶'o•Ëo½o›o'hÊ%0/Ì‘·2+͉Ö?ò‹vOýQ¤Ûe£CØ+ê€Þ™¦eÖm; †DJú¤ëXyIvqó'bˆFSÓáxÅY‚²^QÒâPñtö –ÛlTºÄ÷,¯cÔþ`øúpp%¸Ô°<¢ytCJÕ¤K·ÁóÍ&T¤¥(ÂeàR³:M%êœg&eVWƒKM%4MuѨØ'°7Ù¸¦£æ«"ÚÊvª¾âha²­ñœnó³¤Ôs¶õb‘BQ•-Öé(ç+Ugx Æ£áküRh€ð0øáøj<%{xüx;j< pxü¤ÂùªÃÆ: €®X¾†û? Ý.RòIFk¯Ž*Îrˆâ¡üì¹ÿS‰ V@%„Mn4Pä€Óbuû¤÷íœ%Îz³\Ò“\+ <Âõàë£ ÑLr‘,›€·€ß"#S¸I.JNÞ ~kôž•ÐHƇx”åÞtR@²]À^ðÞè¹ëP(ù¬ñÄïPV sæØ:‡²= ẫÀW)ëÔ Z|À¨y|‡qÃæ{Ìyh›~PÉ· ]ˆÖÆW"eÂ;Á¥æqÃÙøJØ5áðñÛ8%Їxâ·ñU°ëU­µqtŠ%„ƒ]+°ñÙMç‘¢5ÎoÖö™öÔ„!õðn<]‚¢1±)èIµX  ’7£¬¥¨ x¡¡ÌÐ-î*HD8 >*]ès†ˆ4òÛàÒKyàøXë\zéà8ø¸‚1EXoDïLMp³õÞˆ^êž?¿7¢wÎûOüÞhµ0çÚ>ƒÖx£ÅÞ \BºîŽúîpIw4{Bò~Z9Óó.-*¸6bÕÎöKžääžò†á\wN<âmDßD»x\Î$›ú&š ë›H”Ç€.¸Ûzß´5° ^\+nIgµƒVSMÒ.iÝ0¹²%47 üð_P¦¹…=NÙš’ÒÝ/Ÿ:ݽø~ð÷GÖ]…Ðʀπ?£L+K{J¬š›yË6¤Tó1àgÁ?j>üøç"«faV;e2Êùmàïÿž:gwÜr ‰¾ ü*øW•)eѨsOµ&Ôœ„¿ü3ð?‹Þ Û£ä¿æC<­îˆQr]À¯ƒ=þŽ%ÿç>ÄGl0gŽ­ëˆ-àË!¢u}s«Š&>Ž]r¾íµ8vOG÷ªIƒÖø×@õ„€?Òzã_ƒ'<~&~ã§äÏúOüÆ»ð& ZdüÉ|ØñÇ°vo °»CòT@ÓéëjS~y })ª·ï1™\L§”5«+ëkªR]RúÎ>à0øpëû=”\xøm‘ÍûÁ¬vxL«–kaÇ3š^S ¢Q-šå*éù ïÚ¾YºP»¿µPµuÿ ìõbXßEÙºøfð7·ÞwQr]À·€¿%~ßEÉÿœñÄï»®†£Zß%µg€Äèªo¬WYb²KC¯Axó„¸Öz›½vJ¸|Cü6KÉ÷ø¢ÜwÖÔÒ$mo£àUÀ6m¥¸ 6î!ÉÚr:ª8W£†x(½U ±ag^ä´˜µ~?ýR@ßåBÍ‚–DlØ·V6åka¶ª5áÀ¦œ’»¸\ê€YCöSZ‰®8ÊQ¤N¡«1Ó¥fšG¼Äœ 5ÏJ» x7øÝ‘”Öt‰Ï.éÙjÙ”îàp©±G€‹fù|@²#À³àRcð†sø(ø£‘ '¸•p¾R×9ðœr“XH&Q »[•d²€.¸ÊÙþy,ÂVÁ¥fûÃ[D8 >Ù"d$fªI„)àð Êb1EÅp- éž¾üµñ˜Å‹€O?Y<ø:ð×E6‹eµÐ¹N6lß„$y=ðmào‹¿Çæ a¤°ãøiÖE:Q{¬ªg…ÛgR±ñ8]{è˜9 )6\ñtÍÇCwÖ¡Ô}‘­%KЋ{’Wsx‡hReâÂE~Vr4µq`4}‘~ùXùÂÆ‹=sÈh£E9f´ó¹˜÷h$eá3À/ƒ9lVè9G#–Î9LÜŽºC£Ñ´ªS‘$ðW|‚EFðÚ°8yÉÑ9i£•b4õô«FS~¦ƒ )àУ2隧pèQ­j|­`S㹜*Юòáæsª‹àFZj¬þO{sžjð_€ÿE[¼hBÚu~ø7àóÓâ:¿ëü»2‚«qJÄh~hb4%ç/•ˆÚ_ªÓÇ¥üe ±·«P‚dëR½„“Tc–¾Oï¬Eš7ËùbµÀú±Ô)õÝ$ã˜NV;L¿›°J¼ lU¾­¦>S¿J3×,é.ݘšsu³Ì»Ø¬“<ÅúÓØÏHѼÙ÷ÙVu|¢È~;SbÉÙf>Ãot6Ç«,q·wµl²o=òZ°ø¬vB¬~‰5‚ ö"uÆ ñKÿ›Ô9绨ø—dpk IãTÇÇ™¤ŽXßg=u~ã%ËQCO?ãuÍg´BÕ USVSŠ&]"ÍícqJ•œK]÷q–¡Šã+–,zåzãzÉèã¬`WÜ ‹Àès×RFv<zÈg'É— N؆æ«óð™AÉ,ù2àëO†!·©K¾Þ'øëeWÒ€©£ùlðhŠéU¦ S#TØ&L¡F.Õ„Ícðí*–ÀF¬…©Î߈)2Mÿ§ágÉýr¼r¼¡=Nò¼“üYà/NøÓá$ßáü2‚«q’JÄr’‡$¤¡B;Iu¹¤“ 6øvK°“l]ª—p’jLÓÿé¾p$7Rç=ç=mñ•‰{d=å{œð§ÃS~Ä'øGdWã)•ˆ4r”ŸT"Rh?©N—œ 2övJ°—l]ª—ð’jÌÒÿéG{WwiPŸO‹›Õ‹]H[¬Ðèß6& ½Hc}ìÃu¼U@ݦÓ~Iíäܱ|–oÓrt6Üwg*üs~ñ2¥£ «PÍ-7£™¶ãòýA4o°pq߯ì:'T¥î"¡ªÀ ‚wJmVpsÛ(9 ø<Á •%°€’3'ŒhÆ‹µT•Ÿ –(ûç_*x§ÜäQ3ƒXê»å/¨œ‚ö’D¯¾IpÂ8Ôƒ¹¨Î7 Þ)µ÷½±œ–±v¾ø'T\eåöu‘L¿|¿àRGrÃ×Ø_~@pÂ8Lâç¿*8aD“Ú×E"|øÁ …ì¾.’ê·€¿+8afñIàï Þ)uò7¼Yüð‹‚F4‹Ýõ}]|A„¯`Tt‚_+/6‹nÂűžŠ\§ ó÷vu N¨È÷ÏÝt>§ßµ¸BpŽ­We×àJÁ9FSeº¦JŸ&ýëCØ/zÿ‰¹ ¸Cð®‘Å ½Ïwf‡ºý{7Òm Ì3rwöÍKظïdC³'ÛÛñ%¡n€´Þ_Rr7Á[_É(¹õÀ!ð¡¨æ’8R¯d)12+é34IJY³JµaY”9mêã*Z𶠌{[api±´m ]«Ò-!ÅQ]M§éHŽÆ{¶^4§p=÷™F~ÂÍéUÃÎhƒýƒià5nmX®¦¢Å"œyÞb²™y“ÎYe”Ÿ§hu¡{ÕÖ¥z ¯ªÆ,ýŸ^OG¸Ë±€i²§R42¼Ç¡þ~\þX\ÇÙu~x _Öw~ømðoÿ´øÎïøÿŽŒàj|§1š/ì1ßÉ+å>•HÚ}ªSÉ¥Üç|&ß®r ö ­KõTqú?íç3î¶Á·TYeÖèš#!£åª®¬W…Ô‰‚'¤ÖUxÕÁ »”WM¬^'x"t¬®6yÕÄõ>Á¯—\‰WU#F°W”òªj¤ ëUªä2¼j É·«\½j Sß«*2Nÿ§»2bÍãx½hzaF·­)íz Ó¿eGfëö­è¶N²q>ïÆÊøךü÷Bþ{Ûâ_¥‡û‰û€g'üép®úTFp5ÎU‰J‡ûjD íYÕé£Ãý–J°[m]ª—p«jÌÒÿéÏg4ÓÅ“<í¹`?*UWáÖYßÕ,ºè¸2/›·ÊŽYàþwnÔ/Š²à¸Ì-g´)ƒï'á[ÄÄvCKéìEoCÈìyYk,.µo »ìç/ ÿBýWä ½úx#lÜC5«[4MÛ7ãÝ•¡À÷³®~˜‚-üõZë!-áð-miø²Œ ôŸÙ&Óþ‘ø[ÀC_£ÙŽö>èü ŒàÑÛ?eb4mÿ–¦<å†n•IªT«–K5ƒ—2ýv•MóÖ°µ©ÎÓª3Rÿ§wˆÍ’µ˜Sf±8›Ç7-òý‹S¦z7¯?/oO¨›®(ÞöeÀ׃¿þ§ÅÛ¾Á'ødWãm•ˆ4•#íi•HÚÓªSÉ%§r$½l+Ë%Ø˶.ÕKxY5ÆéÿtÃìž¾v¢,Æ t¥“Ä¡¿˜vŠ¬¡| fPÍ:ûCÒ|ø[à¿¥LkÇ(¹_~ü³‘u¶¿v“ÿö9]+˜cc†M¿®E¼¦Ñ7^ä7AIhõs]‚'Ô犠ÕÄRàjÁ cÐjbpà„µúa%Öo]¡¾ŒÉ/fÖón•ÿ1…êNˆÑü<ÎZpB_ÿI¯ºVIw)$9û.¾æY6ëN,ÃÑÊ–ËÝAÄI*¯+€Ÿœ0îIMX` ÕL ,Ö4í~‰ m ábðÅÊjVø«rHŽ•>ÄÓê:EÉ-®_Y)ûxýiõ²)jhãA®†ët¤bü«#à#ÊÔY‹ypçÑÅ>̃çãQì)`¼Y±Of(Ìɤ)N×M蓆–3Xå+é"i°â %ëíñÇyæIÝ6yìY¯ßC+UÍÌÁ!ðSp"H,¶Y¶ÄA*øOàÿÔ–af„“m$ü?ÿü~šP~žàÿ+#xô¦21ŸlS&W¨¡¦Z¥´æd[«K¦ù`³µ©Î3ØTg þO7j)ƒ÷py”µË¦K§´xŒ+6ê,šçC7}‚&4Áš²š´ÜkoG“jq›C‚ÆÐâ&6·ž_:ò>Àáußš¤#ædsFm ¡Sps§hM±QfØn9‰¹hž0”•ÖâÑ‚áêfÑi’òÕBóüVHu‚ÐãJ>éC<’¦|ETq6vˆ‰‡x"–ÊÕl˜´·ìÅ–aݧ|QwB¯ŽÞ-ÝäÓÞÕêÚÏ /“µKzè*OÝܾ©õUÞ»¶“p3øæȺÚ# BW4’b.Úqù½ z=èĘUd5žþE¾9ò²ëì km$y ˜—D½ûf˜a'x§´i%;âÛFÐl×|‚u—/‹ÔKò¿5­kÝÕµ1›ÂJÖ"âx·ÎÑÖhD —ü‘>¼Tc(ZàËZ¤©¹HRN:•(…•À—¿La ¸Š›’ë¾üåñ7”ü>Ä-Ù„š±©¥µ¤‹¬LB²nàrðåʪɺÆþ¶9]‹ÏÊj€8òê]}3eðè­õûoð1¯8aÍ}Þ#<~¢õæ¾ &NxüdüæNÉßãC<ñ›ûf˜øfåæ>ÿô]ø N7pø e6.fºôBÁ5£hÐb“Ó7©«†Ö†IÊÕÀ~ðþÖÛðfØ-áø@ü6LÉúOÜb¤`µªãlfUé´¯›P‹@m–£ÖKCÀtGCՋнoºû›‹)!Úàaðà ¹Voå³³ä]9ÌÎzƒ É·÷ï“•|Î7gGÀ´~Г†9Þ ~wd“^ßX“GÊ‹hÊGçÀÏ)7å.SB²—Ÿ2K^1LòF1ä)àKÀ_¢Ì¾ü•ñòyà«À£‡[Z3äÐSq$È«o—ŠSÞ4Õ…£¼Ñ$Ý´;néPÙH…n+)ù¤ñHÖÙ+£ŠC‘[ùOÄRy#]eO ¦ù ³lˆÈiâzËJ‘&tmºˆÓÂ^0מ©¯ªºìÆZ\ÍÑ!ˆ¢1®×¢ÏYjuŒŠnS Ð)Ë>oØ´jKÑ€Ä-Ÿ:Í*eèkØÐÈ•XmÏÀHßþÆHÞÕÿÖJ½X4ŠÃ=NÙšê ª×A“$Õ[ï_ëÝ %÷&àÓàò!’j*ˆ(O¼øAð*SÏ•uõp»%›•ÒÑG_ÿb<:zøûà¿YG x—EBIüð?Q¦¤å|¥zcÉò5à7À¿V¾ü&ø7#ke?÷ƒ4¦æí^Ã6¾¬vVì¹Frƒ%ý¼áð-wr·ÎS¾%0q£à„Š{‹½ ^:¾ÒG¸GpÂ8zžQD¾8(xBjßô›o Nƒ©'Öoœ0¢©_©Uôüy}ÜÈ`Ó”œí&nŽN¨ØvWQ;yêÄþ»qù–„”&pZpo¯åsÙ†ÏÇ'TdÃg'ŒÃ†Oœ°Mhâð‚*6Ú%LóG)œñŒ„xè&Þ.8ásÝZ_|ƒà„Š¬õeÀ_œ0k}!ð‚F´ÖU¾+}dâ©’4¿|FpÂçÎ*ñ1à'ŒCUþŽà„UÕM#(©Må$Çï¿$8¡êî\)_”u.?þ“à„Ïuçò—Àï N¨È¹|øÏ‚Æa±_þPpˆ»PÚ¥ü ðß'|Žúÿ#¾œ8aZúHvµàI©ój %Ò§¥¨›]Ô]—NƒÑÁ.šlsÕî-›Ó}GÍruºW§íµNø‹$HØ5À;'TVVeËmVV· ÝwôÛ4LÉ'}ˆGÒ˜F‡–Ö–øOÄRYGg׬âظÎÚ&ß=SZ*¤x}Pá:ðuʪþÚ©ÉÜtµÖ˜e÷Vl‹¶%f-{\BÈ ÀíàÛ•ôÂQ£¤›Å€t¯î~³^2ô寔þNà.ð]Ê”´~Âu+ή¾¾©©©leœ» !ïž?£LY]£U;HU»gÁÏFVUgxçK< Ìç”eѨ^u',;ÀÑPííïh«û¥ä“>Œæ~¯Ž*í#ZîC<K¥LKqÅóf9£Îf´;õ =gô/íûÅ&í´mžgíwÙr2Ú鬶7«¥ûÓYí®§i½š®Ûze‚wÓ%€•¢>ÃOÿ»ÕÂÌìËãCæyÚ',ƒ—•¹‹kG ÇÐíü„vj¦Ìº1ŽéhÇø¡›°û£I¾*ð5à¯QØO 8ÊGÉYÀׂ¿¶ ^Ò ø:ð×)S“wn)”8oñ!eÚÈYÅB@²¯þøÏEÖÆÊÔP:£ léí’ªAÿøð÷(SͯÁ-X&5°}ýÙþþÁ¾s¶Sblk êš\óƒÀ?ÿ…ª›4ì\@²ï~ üKñ·8”ü—}ˆ'n1†„¦k¨¦ý=ÅZš†{dï-I?kIö[åB5Ïwaðëkõ²^œq ‡¶°Ô÷¿¡Kç-ô„® ¾`–<@B ªÞç«j—Å ~§¼#(쟧¬1wJ· aNƒ«\å hS(¹ÓÀð™6´)”þãÀ à”é*9´MBž_ þâÖ7*”Üó€/—ÚpØ|“7*½½[vHU¢—ŸJ™bnnÖ¢ìØ6´½ïœãd'û‡¶eÍþ°­ ‰úfà§À?ÕúV…’{ðÓàŸŽßSòŸñ!ž¸ÅØ*´]C5­ŠÕ¼U`­Ê1qèoÂÈŸ§–…µ%¾ÆÅäaªµýYíPV;•Ÿ(™>¾9åšçÊF™F>l4’ÕîŸ0]CK(8Ùth/¶ %´À-e•eÝ!½\ÈYÖyjrò&!æ$ð5à1Œ_(¹ ðµàÑÇ/-U©dY—y'ë2oÝ aŸ•×µݵ˜ZÝ¥íÙ¯´ æPdôùðSàRžäòë"õíܾc`h`ëÀÀÎ-¡‰ú9à÷Á¿ßzçGÉ}øðÄïu(ù¿õ!E¹_:ÊÞ¡°‡yïHõœ)ªñÛ;Tº¼Ðe@É'}ˆGÒh—E‡æŸ»}ˆ'b©Hœ¬Ü •F?Y´´½È.éÙjÙ”nðjð«VÛúÊöœd»kÁ×*L6`u’’ë^~MF”þ:àµà×*7‰…d¥ Ù63à™x,b°¼7‹¸˜ÏF¶ˆ…™v$Cp øåV±˜¬¢b¸–„t{‡ÀÅc»‡ÁÇc[GÀ¥|6ÆVàQFêÛÙ\‹yAé3I/yÐÂÚyã‚­O…?åFÒß |\êd´¦x—0êé H4Å»‘8aëšâ%fy¬X¥Þš„x73à­q½s¶™­® •ëIìÆ{„À7È ?ç›»½à14 ”\0 ½i¸‘WsdU%,˜úxÙâ„BWpoŸð(øQeE³xÔ1 ½èXÝkª>{:Ú:è ä“>Œ6èè¾\q·Ý ³g©ñD,–ý7nd-A1_-ÒAÓ¢5®Y…‚£QdIK„ŸÊ[¶m8«Ì#V9t‹ººJ§qcèœÜ¥îß9'' º«íéÕ ‡²“*ºSµáž#=¬ÏdëfF+˜ÃìÉhys8Oÿdÿd„Âw ³Yc|Ü°ûûÒ¡³u;²Bxüdëì6PŽ;¶‡jêÏq2”†):š³£›„\fEG«5;|êð©Þ-Ø­Ý<€xèLíEFƒœ©[˜a“Í°v)5ÃÌ`Òg Í‹_zà@OxkØ! ½#ù·´Á|L¡5ì k æÁhkX‡³éµR©m[·mEG4|1Þ ‘ ½†AnßyáÅ—Ý(ÌERÄšnª™úaNu’Ìbz¤x쀊mçt{øàÞ£§–Z”QP„¸YÊ.&eXIîBê„]à]-lËÄ8„¤=TS ®âm§mPÃYW…í0Ä!¼ ü*5õÓ6 ¬>še„ ¬ÝfÃCGˆ{¼ÏÑÁjñbXé@â#‘«§ÿÓÜ»ÌÙ˜"‹}yÛÄÎ}46¼ ]Qî†ÈÞH“©Q;âd)V[2šUu‡¶e´³’óÎð@hB.ÂÁoTØ/Xe×®–œ¥vLi­ ß„QúIJ÷Ä›&»d”îõ­›.€ wÔºí‹G®=Œ6™3Á_’Ú3z¢C´'ð~·@e†yÞ˜™²ìf{JN@„«ÁWǯJ~ñÈÀœ·’#ͲîýwÙî1Hzc½±ß©WÑïºÄ—®yò‘ÅÜP—5î‡äZ>;7ÛûÜR¥o„ý(íÜ78”ïÉUÍba0·c 0`lÙ±}K®¿›íúJz¹GKó ô úºôu·ÿ°V ,©NÊjO@%YÕ8‹Uš éÆ©˜¯÷-‡yÅÞñ#ñ»s¼ã½§ö¢i]øì,áü.šS“”ó Ì꺘$ã%°÷ûnî=oše6ÞÕ8‹Nž8uø¼ëYÿ§[ÿ¢îÙ‰í«™ÙÅZÓÒÒÙ_}kˆ¯n´Ÿ9µa« cfјç•Ë>§—šMñù ¾ ôÔý˜\%{ñHˆÑŠ:AÍØbàZp©BjšêÂQ½hêÍZõ$J$ÙX:q+‡’_çC<Š”sUÞ²Î;ق鸺´†:¡ÂëÁ¯AC¾%Þø$Æ­!JþFâQ¤¡…±sWŽœjº «À¯ŠA5¾a|³ëCâR %¿Ö‡xTy66àDÀn)å,€BtÄëÙ@!„môl”ü:ªõl›Ä¾Ø;ë«[|²`³ÐÔfí¿s%ìpf!ÔDØ Þ«Pe®é›õ¼fš0 ž_eôôù¤ÊE‡ºÇ+|ˆ'b©ü™¦iý{$Ä…\õ -­ª[4 [\ ,:7®©1çä[OÕRâJË1ì«ÀâÖïZ·ˆ>§ ¯ü`Ńߣ»š®¹&ý}¹1ò+E¹á×ñ[TûlÃ1 U–¾ðEi±Â+Ì[úþ'ßE¹þgÊ*çâQ {‚zÌA³<$η€þ7Êê_àZ<%÷5àwÁ¿ÙÐ’¡7fSúß~üûQåHŽšcÞµ¦§ŒéŠý0n¶ Ö17†m£\0ìG.Û{úБ½Œœ½÷Ôýw§õˆS3NvÜpòdªgÖÇ=éÝZíWó½ŽwÍ1-µ¡üx~B·SþÏÒé9_Óãm"ÏÊÙs«æ¤-n_¹RbcFwâœ>}Ç–>טî-•Š½yÊ{±g·v’}}…3ã¸F)KC¼TOÁÊ{Åÿ¦ö~Æ;‡7܃ÏmOÔ2”¾.­mڤ͑\~óè(¿(v“·ÍŠ{Û1öEGôimX»À~Í|Ë.í˜Ufà¥Ñ[6¦ò%–8ýú$ûû(›ícÿ{Bôù%¦·z2/îÞÓ‡$s,cÌS1õÏ÷÷ 9¾­ö%7kt{%+VRý©YÙð}÷hÏæLƒŠ2,Ï _”¾x1ÀÖç½— ýÀÿ(¬ÁÓs®Á]6Z´ô ÀçªhœÕô‰»pIêû¤ÿ±Œô~'ÚÙL²g~ÚÌ*d7YY)6O5àÊ\%©6—\¶'o•Ëï_Üð-|^7h60/Ì‘·2+͉փó‹öãú£H·ËF †°9VÔýGÊÊଅ›v 7â‘t«#/¯uCIκ«4¤ ™µ÷$£!Äs&´]‘xðvðÛ#‹¹GküÏ6 6 cÍ’1|zäÞÔ§óB–-ÖòúÔÀÃ4YX†Ò%ô¶£î‘®c“€«ê(Ùaà^ð½ÑÇ&áwa‘û€ûÁ÷G$¼«òü°‡R^ý’®jæeCúš¢X\ ¾²Í>ŠdY\ ®nrµÚ!T7©ÜG‘xë€;ÀwDsk,Îi%Š•Ð› .çDÉnîß¹è$œ °¸\ÎIû? ïœVA¶Æ9-©­L„t´Qf ÐÇÛêžHŽ+ëÀ¥Ö º'ß®!~L6ÑÑpLVÒfÖyîÉ©Ã=4]LwÀö„¯Û$×uÀ!ð¡øê6%»¸<º[”¨Û$ÀN`“p«‘eªŽ>ÞlV¸»£>à‹V—ýŸ†*RòIF*^UDO¨!žˆ¥"qÚòJ¨„°ÉiKE®v¯Í¢uWt̹^:¤›íœ%Òzë?ÒË?ž¿%ܾQºì”-ÿ8·À”ÕôÀåJî&à ø`ôŠž•PÊñ(Ë}À5ß”\p ø–è¹ëW(ù­>Ä¿_ñÀh¡_Y„Ñ‹„pÝÀUsö[Gô,GŠÖ8ö(®*Í›c3t?M¬óñśҘؚ3aU‹ŠÀØTYœÃ(czµHw’ÊúÀQðQei"þÿÈ{9®³N|.–mÉò¥òÈ–zìžžK¶Î±uÛ²-ÙÉ÷ø¨î®™)©»ª]U=‡å°Ä9Hœû> $È Gœd7–„…„#@v„]`YvÅÿ÷ÕûU÷ë™®Õ«WÕVþNJ¿oºªûýê}ßûÞ÷î¨Þˆ¸€S§’÷F”Ü£ÀiÈÓ â®¨îˆÒ7§!ŸVøú! ¦³|&}wDÉ—Ä•¾;ÚÈíÙÇÝ‘Ü!~Dª·£¾·S'mݸ;4aNÒ”˜`ºmùyöœ?+f"³ux¢ÿ}ø¤uvëð¹³[GÎ ´gNxÆœwÖ›>é6½°­ÑZΈ¡÷y9ðíßõ½è‰E3b–O”O3ê‚-v‡Ø¢Ì\âû÷;dx׬°kÉN«ÍX•Ñh>Y"SWôDX…LtQÆ­yª!]Ô*¦s)7&„6åNS^-Šc»Ôå—Å”S]ÿ–hÉïnÔ : ¢b¶En? ùg••ê–‹Ú8$*Ÿþä_J¾qHÉ}ø9ÈŸkCãÒÿ<ð—!ÿrò±©¸ØçW ÿJú±)%ÿ«âJ?6—u&›ÊK¬zC–m¼h«h6¶^ XÒõüf`“5`NW¬ÙçïFUKY[±×7ÑË] < Yª›¤¹o¢9Q}QyèAö’÷M”Ü`r5v©¸¡?§µ›j2«¹†GZ7L_Ùš›~ò‡”in¹ÜÝD槟„üÉtt÷aàÏAþ¹Øºë¡î ­ü<ðÓ?­L+«bœyLŒ~ø!ÿÇtTóàW %¶j–ç´“FäV7qø*ð· ÿ–:gwÂŽÜûAL~ø‡ÿPa¼ìÞ[m~¼2%ø5à· Ë­ ïF4¤äÿH@\IbÂöö ùÓÄ(ù?WúØfnÎ>&8ÁŸ+(A­·£>Å1Þd„…”Ž›–gL }óPYÕržSŸ êkà zçM¾ÞµI…Õøé•‚icB~4yãß ƒ'| òcé?%ÿ¸€¸Ò7~aò\‚ÆßUˆÚþ¸ÖN¸ ò*iË_8X~emt #Q5ûž”ÉÀµÀ 䌲ju]}±THJ¬cÇ’{(¹~à-o‰mÞ-ç« %+ñK6 x”õ´iÔ$,øû{ÖGýŠUGÇ.Ø㥨¾‹^ëVà» ¿+yßEÉõß ùݱs5²ï¢äß# ®ô}ו¼Àø˜œïê¡ÉÀÌzk ¯‘ö^Ë0:v>½'¶Uâµy0‹90xÚŠµ¬³ïÍi‰×Z|òƒÊ|]o}ÂuT7G„NC–šwÍÍQrMÈfì’pU°‹m^âÄÖØià«!¿Z™ÆVöqZRúz#ðmß–Ž¾^|;äøã$—õ7Œ–{UÇ2ŠQ«¢ôà' "ù*…’ëþ,d¹Ññnä*…’ÿ¤€¸Ò¯R®âVî£Ú*EjÑèªoÿ­çgÍèÎTµL“>¢Ú,±º¨AÖ’·Ù«`§„×B¾6}›¥äûÄ¥èí{'jji’6´YÛZ±MË[®†ˆK²´\—Î5(!.8ÜA2WV3/rŠUÆ,Ü*kmn…µèŠªßŸ—`tðrÈRëz›¦Ú¢Ï•\Ü yslåL°:·dϲjwÒpü^*:§<“ÎCr4‡Ýštì2„uO§A'äÐ\°q›?Û4Âg«æe”}° Yn Mb–oh¨El^|òÓɇZ”Ü ðÈÏÄV÷­Ô¢·lO«uø±²ÁšûZɘ1jœÚ¬âÚƒÚŒ©ËhôYàW å%¡Ñ¯¿ùéhô«ÀoBþflvE>ØŽÒÿ=àïCþýôë>k´†jªà+Ye³`¾{­ç*"ÁkAŠPè)‘$øÒ™eKï„~#G¢¾=‘ò,[â;*ð•á]‹å»–lR„̲UF#Y¶Ê¸5O5d–­ZÅ$7ËV=Oñ)‰Y¶I««ù,ÛdSm1ËV]ÉïZ|–-s¦Y§âþZ ×wûÇõi½¤[vÞꄼá͆%öRhëÙE³@ßçk£4›žŸeÚ•­D‚wþ0äÿ˜T"? üeÈ‘çÀ¶©ù÷¯ÈðVS‰(¡‘P%¢„[äJDb’­DÔòŸ’¬D’TWx%’\ªKT"jJŽx÷Z^‰àPÈ¢¿ý}l¿ÐüÈò“³^Z~ÿÛÀBþáâ÷$ðþ‘ o5~_ „ü¾n‘ý¾:Å$ë÷ÕòŸ’ôûIª+Üï'—ê~_I ù¾û}œ¬[¬÷u7ôkGîbÈvnä2aL²‘»Øú¸¥ÕPMÛsÏiØB"ãök4ÑÕ?-¦4_;†>Ÿ¶gµ²nÍkÔö*êNQ+3¦Ž3h¨V[_°ÉI³`²ß¡o¦ukÊÿ ¾nžë)Ø×"bnlE>ù¹ƒ*™ÞçuÀAþÐP%ß ¼?,Ã;~•¬ŒFU²2n‘ªdµŠI®JVÏS|J¢JNZ]Í«ädSmQ%«+9âÝkx•¬¨&9~ò•eÎʉ¢áéf©Ù“k¸Mù*¶qŠ %ß% .I÷¶2.ëùÔPþ¬#EH‘Ì6¨…08/e…:×^~„ŽR©µÀ+!K ?†T‡!£ÔÛ ÂXÞ6î[¯MâÔALðt5›åd5w5pdùs)M,h}þAK•ƒ|,•ï€|Gl•]×Le4ˆ¹f½lH«íN ÙR¦¶%w†o©¸*ðäsé(ξòËc+Î\¬8ì¹z¯fmmƒQ2ü¹’M9„Í¥\Ók¾øÈ?P–ËË'|݇Ô9äÚ·w´µ&¦ä»ŒWï‹K‡ÖÚ­Wìè×ÄjæõC[„Aaz–•3qvuPÔê`g^«qŠî¬Y*ù›‘ºS˜ÆR]ªâý_¡Y/µ¨ý„ãzý9íuÇVó®Á'n“u8FÙžáËé”nÓpyœP6ùÖQ˜ãQ@DõJ¥D~½Xu‚ÙÆÙàäXJ®­éUÏf!í¤Ê|Fð58ŠBÒN?Ʊó.¶¿²èü*ðk\&LÁT;¿ü:— c:”U5Sü‘ß~‹Ë ¶Œ‰Jã®Úª‰±¨ç.CŸ1l‹]UϬ-ÛeFͳõ­¨ 1Žü<­¶@©—šˆ/r#È‚|HúEºp7a4#·è<B½å¨ñ> <ùxTþôÄ¢Q‹åÓnrÃDø„@ü„ ñøÃÊh4?4b"s&òh…2JÍS ­P«Îz†4µ˜PcoW¦4H6ÕcêÌR¼»VóÌ2‹=h}™909=ù‘ ÌUN ÈÆ…â*'â“2ÄÕ¸J%4ÔºJ%”"»JuúHÄU&™)á®2¹T—p•jÌR¼{³V4,Û3Ü;ÑÑ ªË~‡ŠaùShlËŸ™Sb!½”K ¸¿òû.0—ú~àÇ ìBq©?-ÿiâj\ªj]ªJ‘]ª:}$âR“Ì”p—š\ªK¸T5f)Þ}X3ݬfҸ׼æég M×&YÖnçCfž­Mš–éNûáù-}šÝÈwï¦SJÆoç»~÷˜Qä}k1Jÿ‹_ŒUì¢w·àÖ¹x1— )}ÙDɴ΄$à.*K6¤íF^H}¼„Ë„1-m Ë;lùbF:8 §®é|·ÍÒ¼f̱úÛ5gŒÈ=pDõRà~.Ƥ¹.Ë-®†jzàÞ¡iÚÝV°oeÐsMÛ³¢§Ñ–ç¬Û_'ê9óØñú¡Ù¦\­Z¡Ž9:˜kJ÷š÷gÓW ÚOÔ3´YÛ9CG,ûûfy¿89 ö3A·zĬ@v¾ò;”Õªq·B%Vïþ,d©­Î¢•4JîÀOBŽ¿µ™ÌîüÄà瀟‚ü)eê¹´®ùmú‰Úç_ƒœÂh%÷ià×!ÇmXæKI(é·ß€ü u‘i«MÈ[jå€ßüt´òMàw!7¶Vù~ª&@·iŠs¬Ã9íž&‡Î”YÌälJžwH/ð=Ž×p™PqØ#{Ò±º ¸ËRs— |Ö½¨òÀ.ÊQ^ôË×ǸL˜‚©wnÞÂe˜¦~©VÑ gô)#ËŒWrÕ1º8ÎeBŶ»žŠØ='ï>t§ÜYÆÄÎÎq™ð¥nÃ'¹L¨È†Îs™0 > |ŠË„mªD;Ï_ÁeBÅF{Óü]4d^‚BÂÎr™ð¥n­o¾Ë„Š¬õ5Àq™0 k}%ðÃ\&Œi­ëk3Ö\ÍßKR"›øi.¾tZP¿ ü .¦¡ªÏ“Ë„1UÕK-(^-J(é?¿ÉeBÕá\¹P’u.?þ— _êÎåOßç2¡"çòÇÀr™0 ‹ý=à¸LÓb—K»”¿þo.¾ÄZýÿ#ý8É„ih韑ìÅ\î’êñmÈ‘A~(iI÷¼àêl£}Ø´û,snð.ӪΠè%ó hFí~$²€û¹L“tä^з…ªé½WÓ´%–o–î™3˺ sÒ¦¥éÅ¢éÏ÷i"ŸÝä²þz©?o—6Ä‹øZƒxÂ{!ß«¬°¬wŒ`«ˆ±£î:ùàj¢õ p òTò…’NC–:]¥qW–4;;m¦ù’iÚbßNmŒAæHƒCùcL³4VÕ°m7ML¥Í c ¾ßiƒ:Â=É&/½¦ ü=È¿'ýº/6è}~ø×ÿ:ê{Ñ)o´A|ÿ»Àû¿ËðŽ?g@6ÚPÆ­yª!“Ô*&¹6ÔóŸ’Øh#iu5ŸÖlª-¦5¨+9âÝ7,ØhÇ;ä´Ã¶R¼Íƒ¯yÓ(]‚‚ ‹樚@$AßZ°Ùºëw75l …%Cæ”E£°þ—Lk’Ý ýå„ ét¹ÜéþxÔ0ðõ\&¼j˜Î7¼ß Ã[I £†F25ŒnQk…ŠI´†QÌS|J®†IT]¡5L‚©¶®a•ñn™×0¶°^5¼i’ÕòUÏ?pÖ¶\³h8zžÕ>“º8­¿|Ùf-+¨\³lú'nµäItˆ¯üÏxåN¿#`ˆÛk ÕtÐ4ퟰH ¼¼¡UlÖƧu¶þlEOl ¾ú±¾_cÔ @>ðcP#Óû>9ò‰­m¨‘‰ïCï‡dxǯ‘•ÑH FVÆ-R¬V1ÉÕÈêyŠOIÔÈI««yœlª-jdu%G¼› kó¢iÇþF¼B¥ŽÂ.çYÈÏ*+ë]'„9Ÿ°Þ^"òà!¿Q™îB{{)¹WòOÄÖܦ 1ÍO3c jÒd䨇H½ øQÈR[˜„ä‰ÕüðÊ ×¨ìº('r°EÉw ˆKÒD—Ç¥3Ê®‹Ä3W6³Øï»49¥[SÚý¦Q˜öòz•‚èˆôv@Q„›!oVV 7ÍÎä÷— Og=PqìÓFÁËÙΔÉk;!ïTfÐËY`£›¥t¯î‚¼+¶îº²šÄûïî¼G™’¶L{^ÅÝ388;;›‹ ¬:œHî>ù1…uxÕ SÕ^àã­ªîèMN"ð09¯0˜Ð«Þ´í„8*½7u´ÕýRò]Æs¿×Ä¥ss?E9@\1ses¿YPW2æ³Úáœv —Õî¬Ngµ#Lئ=ÀnØ_ã9ö–Þ½k¨?§Ed¾:ÜÙÑà¥úãÆ”CSlKÜÇH‚ã^à=ïQi„´8w¾ï…,7A¼{IN;aÌjÙΙ=Ú&ÓmäÂO„ÆEÈÅôËà.˜K€j\Áv»ëÛõaºéæ g*«äv>ÝÎwƒ a°{ëvev~ý¸ášÅª^âƒVõA)“vÎ Š€åpòxòfOÉe€'!ŸŒ­Ö«rÚ]¶U´­=Ú¡i½R¦A@–S·ë¥Rdû'f§€6d;}ûß3 PýŸdö/„ÚYífó#CÃäÛ±¬üÉ4A è–^šw .Îx}+fDWÁ’“Èee/^f/, SÚš‚wØUÇâ»Cž¤åÈ®¿Ÿ£vÒžôfu'lwûVdÎAV¹Þ$¤”ì…ÝÎCžoCÐNé?< ù¬2]uÞ,Áçià3¥¶Ÿ QGÞ.C’}ðYÈr=FâÝÕ™Ñþ¬6<0°c—T!z5ðyÈÏ««p‚ÖTÑ6©õ48<”ÞuóèÎÁÓ®››½9gFlSÕw¿ù u7c8ùdß|²Ün«âÝÈÿ¢€¸Ò¦±k»†jj»y­22Ìj•ãþØ]aÚ(œñ÷ÚµÄÊÅtsÚ1K;”ÓnÏi' Óe³˜ÕN1Ñ3O[†EáÙ±…jL›ž¡eŽÝ\d/6†%´!ËÕèÍ ËæÛY¨‘g1%U9 ï&Asø&ÈoJ¾®¡ä*À7C~sl“Èj™J%§ ï¹i3„ƒvA×ÆuÏfj=z ÔÆi÷PìÙùÓç_€,åIÎßù±ip÷Î]ãÃ7 ïÞÙùÕ¯ÿ ò_%ïü(¹€?€,u’E<¯CÉÿµ€¸Ò¦q ×v Õ8¿âbçG~ëдQµX£ò8s^¹»êaöÝU¯dÒ!' M9qfŠ®8Ɉoz+ÞŽ°Y® ߬„\ÁÚ£þîÚÉy‹5 Cí¸áMÛŨ.ø> Y*°Šæò(9øjȯnCxMé¿øZȯU¦¦Îa :oWÒÑ5%÷ðÍãW@ë2#] Ü$U‚ž~òÕµR›Õ1CC#ƒ§·œU\HíB$?ü*ä¯&_»Prþ:ä_Oß­Sò¿! .Eo¿j‚=c8ä¤Ý&‰ß̵ëµqÄ‚’ï—¤¹Æ0¦™u½⊙+ݬ¦Hä TBØ ¹;V1nº„Û¡ƒH Ë“`×ì‡Ü¯°Ü¶X½~,àœ“ÚEñ ž#Üy‹,õE¿Ü ¼ò 3%d6 %×¼ò±MöF?˜3æü¥®´-bp´¸ù”A'ÙˆýúÈï‡|¿rÓ^1k˜SÓ^ÔÀŽHyÀ§ Kíݲײ¼a€OB~R™a? < Yª35ºa?|ä—Å6ì«x+¥aßÉ ß£ÖÄìðÝß­,cVN¸†AëÄCê)ªu´µö¦ä»ŒW{_v¾tB'$f×*qÅÌ–›¶nݪìÊ|pΗ]Öî´-òˆž]±«%ÛõÉÃý¬]ìÙÚvöØöÈÜ@„Á4’›bs߸hûˆyîL#gb™åQ0#ÜYªúŒ©éÛv€j Àu¤i›’1Äê7»<`LNÏå^#2ÕÛAð:È×ŦºŸ–z2Åòº"3ofµvqÆÚ˜örmX{™¿jÔ1 Þ [˜¶íRÖ·à1öOä×8ê„û;j‡˜¯qYÅae&ãï\4§LÏÎíð!¼ òem°Ê;‘v€j¬2GV¹`0Ïô´fç]ÙaA™]õhCëȤïQÂä\lÒ›çÈ:Oh'5GWîqp"Ü ysl~]s‘‰œ@â„]åj;ñî•’íe沚7_1Æú쾬V)L ïÎjs%=?Öww à»¹‚Ùóþ ˜Äaän_ô¬½oqw£í¦^nîAÚª)7ÛZ–›À5F&{/nƒ¼-~ƒ+¤¼d5l8:Ž®æq°$¼rü&¢D ¦Í(,AÇ—*A‡‘s¡%‡=¨Ïyc}–D:…÷ \UÌwÚ«Ï™n†–éŽ g5Ýs'×K¶5•™ëÏjì-Œ’;¦»9«Z6Ø»e,½l¸ì^ô7¸¬ …IN©{û‘v€j¼À:ò´œ‡/ï‰Ìê0!\y]|VŒ'$W)>&ÆeÕ4Ù‹&Œ9ÎTiÖs|É=¤TM‘Ûž”|—€ñÚž »–ó³d"r¢Yv½ÀuÕieåÄc~ÖvšE= E<\ûŽi+…’¿X@\r°è©®ñf¯ü÷^»CÆ鉵ôÄüÊþÙzú¬‡ÿè†Á æê:×´/âµfáÛôÊ•ÁqöOy÷Á‘ÑÂàx¾j–Š#ù]ÃÅacÇ®;òCƒ˜;XÖ­ÁÚ>ºsAæ>G?½–~úÖÕ2—%ÛM¯ )/7þ\Õ2Ã,'d(ò|päMu-:èøþÙ²Ežò¾SG°>lù‹ ؉7W,*VG¬‚MöÕsw%1ó³àÀwÎ>ùýüÇß¹À†‚õVÜs÷Éc¼À¤ü?½úõ.Lìp<5±|­éiÕÂß¾1Âo7ZÓ¢²±‚•I³d´x伬²À$DßÁuy}*%‡…Æd qIÐhº{M{KUf+ë!¯—¡Õ4ÕåzÉÔ›ÕíBPîûîÎŽÿ–V(ù âR¤•µ­¬ˆªé†:/ƒ|Y ªF;6BÞ˜¾j(ùMâR¤šÅÉÞ[.£½ÎÀ«¹Ü©.Xl¥½ÎõÀk¸,žì+©½µA!Ëj®y+cⲘå2a Éõ½¶ wð—;O)ÔT‹)à-•‘à¾xŒË„rÜýò(ð>.¦a¿Àû¹LÓ~»"/«£ô>ÈåÎãòèšœ0'ƒ­·Osçì¶>泬m:eŒ9†U4œGÏ?pêö;<8þø}':|‚& œwsS†gX3™¾·ûú÷jµZ=ŽgÍI-s­õTaZw2â½þþE?Ó,,­Üi—UÌ挓³ oЪ”˺7}ZŸÛ¿cÐ3æÊåÒ@Þ=Ø·W»‡ýý„;ïzF9GL™>æðƒoùß©=Ÿ vêëÃ}' jùDéçúµmÛ´EÌy&0òÛ'&üÍÌ÷¹Ǭx·g?t‡>§igÙÇ,´Ù£´-A–1[(³Äéã{ØgìV.7ÈþÓS}ÙsçöîDHŠÅ5“,Pbêkõý†7¾¥ö#ç¶k´m1Ë–SC™¯!üöDßölƒŠ²ì~¨ÿܹ[o¹/;úCÀ"—;‹Q žžX´/ûꉒ­‘‚#gÏ*ÛX{C†½XÅt7cöé ͬ"6Ó•åbóTC6pW’*=±hŽÄê}Û² ¿ysKȯøsL‚_X8#$ô]º™#OòUš‰×€©õK‘nWO nsµ þ5_éUÖÌ!kgƬ…+ —¤ëØt¾tBÔ†Y) .I>aNV:Z¦g.^ Yj°­)­Kô/¶ u)ð ÈRlMS]1Qö7 ISïü!‹ÎÙa ñ߬ÉÒ‘²SyÝág´†îÞjRôÐUÀ=÷H›TGhL_´½f½°ôÐ^à­oÓGŸDKí€| 6‘èE\¤–÷†Kñeþ˜dÄ’D.õ"àÈk”ïÕç3@Ú‚Ùzà•µ"—|ßÐQ¯m®‚|Ul«¹Ž0`ÜÜuAAgùCgDÊt¢x5p?äýéô (W„G iGA'G·A¾­ e †ÉôóœßR®¨®¼¸±£6‚ÚÞ Èln¼%Â~)´D¨AÖb[Φ BY‘«kMÎæHº|S²»€û ïkGù&cÀ[ ߢ¼\-591Äv/C!"\y]» ‘Ù¼²ºøJXž­p^U"VW‡ ¥W (ÙaàMojG"7wB–w,¡Î%g–†X¯P/½tD&¨4SmtnD1"T×èÜ)¾ª–ÆömK/õE/TÄë*àÈ;Ò+TQ˜wCÞÝŽBEö÷BÞ«Ì@–OT]}ªÙÚ:ØD0M>êïFîX£ä»Ä%iãÒ¡Zoµ€¸bæŠÄVB-Øl«?U­¿4KP æÊ­…¼VÚÏv/ t‰naô\"v1p+ä­Òy§n®ñ¹8yDYQ-§ä®ŽB_ÒsZÙ! .eoozF9$ÙàMãGO‘ %³€¸Òw,ÂôýKçœ-qì‚=V#:•eê [Üy‹2§²¶OìôŒìYˆÔ6à(d©"ͳPrZGýDN­C6†k¸«e$fø‡›€{ Ë_Dê&o©–ÀX]ÑÕ²xòQ±mTOéß¼òíÉ{|J®x ò±ô=>%‡€¸Ò÷øBë/A¿œNHpë®ëX´7JÌ6ûÏÚþT½D[pS†C³×ÝŠQ0'çýYÆVµœgŸúÎ f™=X)éßåΧ¨ÓS~ÙçÓ4<Ͷ«¥¢–74Ç®ZE£˜ÓŽMjU‹ÿ²i³ü”wcR÷Ït÷ÎÓÏðyî~ßFý,x^-E-Z”_€_€ü…ä‹Ö•(N„/@~!ý¢EÉQ@\é-a¤/Á¢µý—äz;êƒú½µÓî(ÙSþY„B‘š6˜I;šî÷¸ÒiH£-”&ÍZZfAéx¯K€'ÔÕô~'qÔšž¸€S§’¯é)¹GÓ§ÛPÓSú&ð4äÓÉ»#J®xò™ôÝ%_WúîèjnÏ>&èŽ0ÿ@‚\/p}‡jwô` wDdÅ%fþâ´‚N‡ÁÖ]SPÉÇtNWwÔw; Yª$(tNÄåI`r5yçt5J%á ä™68'J8yNáë‡8'J®8y>}çDÉ?% ®ôÓ5Üž}LÎ9õÐÀ”³^àÈòÓÙö=£U(zÁ£ úžC«[¹¨`DÚ$ô7íQZÖÙ÷æ´ŒÄk­>YnuR³Œî­þEõGDèqà4d©¨%š?¢äšÍØ%áªþ`ù1U,Nl¾ò«•ile§%¥¯7ßùméèë5À·C~{l}]Ö/¶ß ¯êX¬/¡¨w?ùÉW)”\ðg!ÿlúU %ÿIq¥_¥láVî£Ú*EjNÑè®íˆ;0º°ø®·yÛÚ™ò—»Qm–X] Ô kÉÛìØ)ᵯMßf)ù>q)zûÞ‰šZš¤ìdªÛ4ÕBƒˆK²´Ü—ε(!Jø5.`^ä«ŒY¸UÖ"2êƒnƒµhr“?šF¦Ôâ”`tðòŽÚÄLEV»b½·j{Íê^Jp p3äͱ•ó$«sKö,«v' Çï×µŠîxf¡ZÒÍa·jýât&‘kxZÕ5hW™Æ_ü­a2ØDÆ¥ÉhÔö§ ç-Ûš/Ó®4³¦7-cW_ùõÊ,`™¿‘¥·ßù]i™À€ï†üîØ&ÐÝù@="ðàû ¿/}÷¹•k´†j¼ø ø«ˆd®BasFE†ºäºÏЦñY ÜycòMJn%päøìÝ¥MbÛ+yòQ ÒNSv‰ù1rB%CŸ1l‹]Uoѹ÷þ™Bä÷÷Dµ6z“ËÈ…ôþzØV€jŒ^"Ôß†Ä ã‡úç½»5âJ?_¶#/¶+É—Ž¨Ñ=%Û öÚ–[‡.ÞݺäÃÙ¨ #‚o„|c;–’2íQXJÊ(UØ:íðÑ£ÇNä“"+'…n‚ß}K(§ éorú¡~¥ÊÙ°ð¸»Èúé‡N¯€ûg ýÜÜÐýÜÜ T?—h›¶ÒôO"th‹ÃÈ ºJ!¼rüÅ> l‡‚„£î*h§ó5Fz:kcZþlâLP'õkÓ«µì)Ã2Lo>²…jÉßã¢;`H(1 ÅeÛ£Ä,—UªÄ»š(‘…óÅžI!{0äæJÑ»2Íf¡MÂSOµC³Ðæ@{4;m(Õì%,ø8xäÔD7zÔBØVÿ™ƒRrqÔ4Õ•¾bX Ò¢éAÊ=õ+í'%¿L@\iÓDÞ¨¤ÝÛ9€ÎžÚ ¿Q2üAƒ&£ý´™6}4k˜SÓ쉌ii×÷kSæŒaùó‰ý¹Ã8šŸE¯¹Lµ. GãÔoòUùŒƒE§ºchzɵi¦æŒY¤‰OÆ\Á¨pÏÇž7Í-è%öl¶F/Ëö©´èw趫—ù1ÊüˆL¿÷•\,ýÉbÛq³Zžý=k–Jìý'i¿ÂÙiö*õüß2­B©ÊèD/ÃCPÃN£`Zš–3 ªé1ÙM{°³Ü-žn²ìµ­%›ÈrÛ0€2ánÈ»¥kˆÎŽ©u…‘7ž"VŸ€ü„2÷¸Ä.ÌgÉ­©ˆóQàýï—å¾è—÷uȺÂ\ ét¥äöóó±-½+rÁ§ô À"äbú¥%@5U†Ø¿¢®Ëg±²²œ¡àjÓö,«<¬º;`ÞbÆÔqlƒ¿ŽÅ`Ïú“\YìèSFPsÔëŒÀÿk_^™pò¼ôëwãîЄ9I{ûaåÊôÙsþ¶Ç™­ÃýçèÃ'­³[‡ÏÝ:rî¾×kNxÌAžõ¦ƒOºY…òJ-·<¦÷y ø<ä磾=±hËãååÓŒzGÝ]RÄ×tèXb³câû÷[dx×&£t-ò“f’¤Ñ|ÙìD¦®è‰þ°, ÙÉX·æ©†ìd¬V1A Ûb:bAhSî4åÕ¢8¶K]~YL9Õðo‰–ñnŸ?©¦ukŠBùIš—Ì"t …Žæ³?ûcâøø5È_»@ÿ×Þ_—á­Æñ+¡‘ãWÂ-²ãW§˜d¿ZžâS’Ž?Iu…;þäR]Âñ«)9âÝk¸ã¯Í¯kèŠÜæ9þòÒosÝÄ ¬†jÚ\gY›kÁ)Ë<‹ ÐA‡µ£¨¥óVÕq}Z/é–7…Çó†7k–¸.„&3Ú“B# ½i6=ïOV”¨|oÆKž…|öÇ ò¥÷yð­ßzT¾Ä÷mï·ÉðŽ_ù*£‘@å«Œ[¤ÊW­b’«|ÕóŸ’¨|“VWóÊ7ÙT[T¾êJŽx÷Z^ùƒþJl¿ÐüEÈ¿øcâ÷ øuÈ_¿@üþo ¼[†·¿¯„FB~_ ·È~_b’õûjyŠOIúý$Õî÷“Ku ¿¯¦äˆw·s¿ÏûטßWÔúÉþ=ä¿O¿õµ“[Z Õ´¾Þ‚¯…“"i¡Wј4­zÓ«H³²Ê¦¥ó™x|w5þáë˜Q'*º£— ¿ÛÓõ̲?t–×i•ÎVžÉÖÍ»„oü–ƒº™Þç­ÀCþøP7ßO¼?!Ã;~ݬŒFu³2n‘êfµŠI®nVÏS|J¢nNZ]ÍëædSmQ7«+9âÝ/òºÙ1Ê6M¡+š|\~>Áª¥`—+%ö@PÇä´˜ÒÁFÓSŒ²íÏ„ &vx4÷ÎçYßHÞú¼~¢Cò`×—^Ô9 |— /„:©óœÀûœ o%u’ÉÔIj¸E­“*&Ñ:I1Oñ)¹:)Qu…ÖI ¦ÚºNRTrÄ»·ò:iÞ4JE—5Ò^Á¤6d­FA À›Û˜œ4 ¦¿#PÔœø_ÀKHí"¯¹›[` Õ´#ÇÑŽŒºnËßPdºžá¨£¯D|¯=xÂqÈãÒïÕ…»Ù•î¹ZeæéÕÇFdjX"¨CŽ<¹¸i »‚Õ°nrU,¦#׈çeˆÇ¯b•Ñh¾ ãD†«6rõªŒW¤êU­R„åÍÏ$hiöíÊ™æ5Y²©¶¨ÉÔ¨xw‹Ú>5‘ä+!¿òÇ ýBïó*à» GÞÝ© íâûn÷»ex«q®Jh$Ð~QÆ-²ƒU§˜äÚ/êyŠOI´_’VW¸×O.Õ%¼¾š’#Þ=ÔЧ–cñ7 ¦ÙÿõÒ¬>ïjÆ“U¾Cÿß‹þà+\,܆_ä;¿“~f/·ÂªiÃükÃœ4ËfIwJóYu;mœZ˦ö-‰ßªíVT[çïC6þäßù1¨óé}~ø}Èß¿ê|âû—ï¿”á¿ÎWF#:_·Hu¾ZÅ$Wç«ç)>%Qç'­®æu~²©¶¨óÕ•ñîºÆ:?jÅ)’úGÈÿ˜~ý=Æ-ª†êæ²5ýMxí½p§š¦K¹éó%s×»'….`ú&_ÚG’‚Å}· +œæ²Ðû¼x!Íe!¾ŸxB†wü:Xê`eÜ"ÕÁj“\¬ž§ø”Dœ´ºš×ÁɦڢVWrÄ»j÷‰òo¦_%ßÊ ¬†jªä>V%àÙUÖçiM_U©fÑpXUêÙôADžûÁ°rŸ2g¸J8´P‚ØÀ› ߤÐÈC ·o†|slÍݨ™“šîQˆëi¶U븨ïÆNÝN5únëDt'P‡ $²Å€õ¨Æâ%¶!<ˆÄ »!wK›´7_ˆÆq¥Ÿ/‡‡”äKGhز&%ÛT·æ þ4 =ïÚ¥ª·`§)V JºãŸœÎš2ÙupòHÛZ›Fµ Öf2\mÂ}ÒñÎV3g*ýÁíõ£7øŸgðyXÜÙ²]Ao: ,@.\í â[xexÇoW(£Ñ´*½r"b‘ʈFjd¨ÕÒRŒÐòÒ¦¬j~*Þy–Úv)²yó#ÙT[4?Ô0ñîÊ,íåêDŽœE6g ËŸßg‚\gEÖÛ—€UÈ‘ÖnêížG„gâ32ÄÕ¸{%4š·6‘©H9v%”";vuúXjZ\¨±·+SÂdr©.á$Õ˜¥x·?t·ªå<ù=Ùd ·¿3DŒÂüAÈl=#ëE?ü8d5}ñ)xÑOÄãõ¥Æò¢Jh„yÑ3R^T ¥È^T>–ô¢aÆÞ®L ÷¢É¥º„Uc–âÝ \(uäFŸ4&rûä/Åæ&Ñ¡tF؆%J¶¨®Ci'_wcÏR·‘n–è`”¥k…isÀ}²J'=Ð^yŽ™¯úçkÊÖK¤/Þ ùÖ ¨õ@¼÷A>v!Ô{Døø2Äã×{Êh¨k=(£©ÞS«å­‡¤3¥y½—lª-ê=uf)Þ½M+SŽÁ—N2¡h—µB•V2N{,ܳtAçýMC×G®(Å—y dùù?1*Ê#°HÂ6T””lP]Ey_QÖNVŠ9ÚBÜ.nƒ¼MšcÜÑ–µµÞãLeðLPnFoàJÔ—ô^Û‚¬ ¾Lvl…¸x•á¿ºTF£iu¹A[ñ5¹îTÆ/RÝ©V9K ©,,mÊ¡¦Ü–(šíR[óÚ=ÙT[ÔîêJ‘x7ú¡W"Û ßÖŽŠù(7%ÛP1S²=@usŸvÀšoœ¬³r&~…ÓšÛÑX–©|‰÷Àw\U"|“@ü&âñk_e4«Ñ+\e”"U¸jõ±dc5ÌØÛ•)Í«³dSmQ©3KñnôêLäq3ä›ÛQÝc"ŒU5MµÕÌ;xíuWÌ,ˆ<×’’_&`›`¾y ’©°—ÑÉ.4b ÍN›…iÿÄaaú·0Õš÷H;†[¡ã1=[£µX|¾1Í7t·êüÈâ²îœa_ö¿ÀÝõ ÇtÏä´¶gðÍý½§m×°¨ÏfÀžœä_͸vÙ˜eOô³?ó¦çèÎ|N;YÍSŽgÎþª°IÛ)³NW‹StZ´æNÛÕR1XTŸ7´*­ºöOS6æô²i‹½ð>¦´¡³öç½c}6ã_-Iìv ê8FÊeBeEg7IùZ¤|‡J£ˆn›”|—€¸$ëòËâÒ¹³ƒ‡¾⊙+i„¥ÙùÓþù°“Z¡¤»®‘Û]ÐáFÈ•…=kûȃó˜ûÂb²ñCw>Bîjà ¥bòP0äÜdJnðFÈ7ÆÖ×Î,|m·¡•L×#ÏÆJRÍÔ—IÐ6´¶EóM"¯” ÒY`r¾õqXaüv'áfÖÍ L‚X/p5äÕÒîò„.e5ŒQ2üz@¶P³uÀ>È}Ê eoÊÈ’õG $_ )¹­ÀQÈ£±mÚ®o|ḇÀ_^[ÎÍbÀ¢ì¨âfV]°? å°O‡À>jÜ FÂv òOI¿t›6§$ò~òg¢¾D;z%ˆðg⟕!¿WB Å›S*ã©kB­R–êšÛœ2éœiÞ?‘lª-ú'Ô¨x÷¹únÊ ½hè.W»c±ïÕ†m™ž¼Ç¡äz€‚œ¶Ç¡¤ïWúçnnë>ªõ8­ÃÆ¢í5ë‡#½Àµ×Æ ”ħ4êÕôbѤ©Áz)ð9î œ Ë‹C‡’·á»a·„ÇӷaJ~D@\iÓ¸V š®[ g< +ÛïS¯8tH{QjJù½`F¨AÖ”ÕNË|jQ+&â²x#d©îÂh%w-0 9ü¹R²½8*Þù–X*j|E fóó U2-,9Z÷âÂl#¾9±7\‚üÀ Ȳäýò`r!û½X„\Œm¿»sÚ)›¶C.cT¯æy¨×v<Ö&é ¸¬¿?QÌU×Ùx‘hÀ@þ€r3_£»9"óIKPü*ð¿‘Ž½ok ž ¢~‰7øYà€ü”ýGß„üÍtŒþƒÀ߃ü{±~•6Yµ ŒE+&"¿üäï)ˇå~DØ$Ý;¹±×Ž]jÓH1%ß% .ÉR|q\:'ÙµB@\1så ÂîjèD+šú”eûýd|Š…°Cü$ý"é/y'Þ‡Ç!GnVÓi[áñ2Äã[(£¡nÉ»2JÍS ²P«%gSF]òžt¦4­H6Õ£êÌR¼»Eó—Œä´ÃFÅ°ü¼mËß ÜŸ®Å(Â%È¥ Ìw–3g.ß9+Ÿ•!®Æw*¡¡Öw*¡ÙwªÓG"¾3ÉL ÷É¥º„ïTc–ÂÝÎë5ÓÍj¦çïõìég ÖJŸ4fYÔé÷(ÓÄÞIÓ2]>VÄ©tÈ^E[ÚQüêNÛŽW¨²çé ¤ÚSÌ׶#öû¬kóƒyGµß¿Eñp³ˆ×ŸŽKŽ=«å«¾çËUÇaÜJóše{šIÆW;g¨ïŒ^„ns&fÒKµSáK¡axcîOD›®?r£NPUçû¸L˜vãê>”¶Õ´ñ°ÖÌ1¯–ÍyC«Ø®kæK7OÐ!?`ƒI†¿‰ ”ñ5îuÂH¿ÆKçˆ zŸƒÀ!?¨¤žNv¹6ñ}Hàý ïøÕ´2 ±¡Œ[¤úZ­b‚úº+ÄtäØPÏS|J∤ÕÕ<’H6Õ‘„º’#ÞÍ.8b§âŒËY“UÂ|,@3#/? ùYee½ëÄ0ç6æHDÞ|#ä7*Ó]h÷5%÷jàO@þ‰ØšÛ„c,ù˱H“‘£"õ&àG!4ý¨ç®áªYw-Œ3Z.ÂÌ!ð´Y¡åeÞ¬aXK„—™Ò{ÇTw:áµ6ñ½?dæ»–9ÈŠqɘÏjwV§³Ú6íöwIûw íõ'ÂûšnÞp¦üGúYh¦•l‹ãOÛ¥¢¯Ù²áé:KlžN/Åi²Úq}>ïÀ!”·ýÙ˜ ¯èGúü;z}~L‘&–MKâD»¡•)_¹L¨¬ðXÍ]9‰dRiÑí“’ï—¤/[—ÎÃ|¯…qÅͬ̕¸<`—&§tÖ¦»ß4 Ó^^¯2ÃÊD¤÷E¸òfežÓìL~?• V>*ŽMKùr¶3%AòZàNÈ;•ôò *w¥t¯î‚¼+¶îº²šÄûïî,7ÿ¹™’¶L{^ÅÝ388;;›‹ ¬`Hî>ù1…Á^Õ SÕ^àã­ªîè}Dà `r^aÔ©W½iÛ q4Tz':Úê~)ù.ã¹ß¾¸tíàÑÄ3Wv0÷[ ç´9DGrb1žch $úsZDæA‡„; ËMÌnVè7ŽÓnŽ®KÝFB%Áq/ðÈ÷(Œ4Bº&(¹›€÷B¾7¶R/Éi'ŒYí!Û9³G{Àdº\ø‰Ð8°9þœ¯ÈFÿ8Ì%@5®`;…è,öíú0 =ˆŠOr;‰nçO€ ávÈÛ•Ùùõãµ@Ÿšõ )üvFP$(ç€ãÇ“7{J.< ùdlµ^•Óî²­¢míÑMë•2í ÂrêvÖhŠlÿÄìІl§oÿ:Ì(@5ö¿ÙÿíFqŠÖÛÝ•Óî÷KÀÝ¥3¦•ÕŽqó¿)ºùçÁpämêÌÿd°`P/QuÚ.º «®ÕëÕ 0:ió§ä¶Ç!K•º†º6§d&Ø4¦ì¬vèÀí@A/eÖ„¿‡¼Cä2Gé$t!»é—l)@5eà$+Bs3«=À dh˜â›CÌ‹T þ(£`]-8ÕÆëëÁÐÂÐ*záŒ>eD.0E¼L±£Þå ç›6†î°«ÔaDcibÙ9iOz³ºuŠ2‘|8y.ù¢BÉÎCžoCÕÒ xòYeºê½Y‚ÏÓÀg ?£Py»T IöeÀg!Ëu¯‹wWgFû³ÚðÀÀŽ]R…èÕÀç!?¯®Ö zŠ¶I=ƒÃC¹á]7î<ÍêÌÐèÍ9sh4ŒrH¿Q}ð ¿ Pw3†“Iö-À ¿¾;§ä¿( ®´i\Û5TS«ØÍk•‘aV«çG”M…3þÛVcè’ÓŽYÚ¡œv;«Æ Óe³˜ÕN1Ñ3O[†E‹ÌXsåiÓ3´Ì‘¢›ëìÅ&ñ¢„6d¹¨¶YaÙ|; ·ó4Ê@²ÅË(¡à› ¿)ùº†¾X¾ò›c›DVËT*9mdx÷ÀÀÈM;˜!´ º6®{6SëÑ»Xceü"4}>üd)OrþÎ…Hƒ»wî¾ixx÷ŽÈÎý ð¯ ÿUòξøð¾×¡úkq¥McŠk»†jœ_q±ó#¿uhÚ¨ZSYí8s^¹»êaöÝU¯dÒ†. ÝâXè¢ö]ä2·#âmE%äŠqÃ5t§0­œ·hÞ¡éjÇyÛT‚çà³¥«h.’3€¯†üê6„×”þk€¯…üZej ߺº7 ˆ+éèš’{øfÈñ+ u™Š®‡G†Gn’*AÏ?ùƒêZ©Í꘡¡‘ÁÓŽ[Î ‡*.¤v!’~òW“¯](¹ò¯§ïÖ)ùß—¢·_5Áž1rÒÍv2y”k·ÃìPY§DÎJ¾K@\’æÚ—Îiþ#5Ä3W$ö½9•Æß÷&l¼ÌfÄè:àvÈRÃ&!e6ÑÍÎà9Âk!_+K~Ñ/÷33 ³%dâ %×ì‡ÜÛ`óå踧‰a”ñ~/ª½8 ôw÷çˆ Á`äîkzƒ€eÈåôR …-@5~Q”‘8ar`¥ãzÕ¢º9O+v[MmíP»ƒx /pñXÀYÒ ”ñ¡YSâè{7BNaÇ"J®˜…Ç¢}'°äξ'ÐÀðÈ(·íØœT‚Ü ðe_–Ži¯å–]º¥†›þòcÀsÏ¥cÙ_ùå±-û*ÞSáwð냌Z_³Wß ù½Ê2få„k¬Ù!±*U VG[#xJ¾KÀxü†ó¥º‚ƒeUÇ*qÅÌ–C[·n­/%ÕJö”FGÝ`Gzßl‡NͱùF®^®”H6¯w#¿IJ%Œ¿×Kp÷DQ÷´}šáÒëdp ÏXßøx_VÓÍ1¯B;ìç™`SY­`ŽüOŠLð?¡õ?cìŸ\¾0Õù¥žÄ‹ž€|"9« åá íÕ”žûÉLh©lÙœ3ŠÆä¤Qð\¸~NRÞµKU2!f9Æð}«ùí›M³"ç Ý¡]ÕèKm¥Ýr\¼áýïýr;èÜ'f9¬nÊÌ›Ym†]eš×3¦½œ½{!íFŸ}ÝF¢Û‡º„ñfŸÆ³*ÒP}\å»»\©z|s<¡Å™â hb¹M‡Ôr›Æ º¬UGZ®uñÓÆðÑõ8 B„!oŒM®‡±ŠLeÉö@îiƒIÍ#íÕ˜Ô¥dRµæ9_ð™ÚS Cx)äKcSë%Z¦²èæs${!Ç®³—!íÕèlLt‹O¼iܹœŸ­P?t!ò;œoÂ1Ècñí®Àx»¹€¶œ—x9è¼\©Ý­)Næ Owå8½<×@Ž¿rcS ן«W‚ á:È딵3.š ó+¥¦C6’{•Ò2¹¡AÉw ¯¡±°³`9_7‘ÓÓÜ== ­ô*ÕÊʉ3Æü¬í4||ŠxºöÓV %±€¸ä2`ÑS]ãÍ^=øï¼v‡Œ=Òk鉠ˆoàŸ­§ÏzønxüÈ`®®sMû"^k¾ÍáA¯\gÿ”w- Žç«f©8’ß5\6vìÚ¹#?4ˆ9σeݬtAçR.ÈÝçè·×Òoßú£Zî²t»é½¯ )0ËJz>:-9dÀ—2zpd¡qd|Ç?ðÏ–-r÷::€•°Ë_\ÈH¸¹bQY:blj™×³t%1ó_ûÀwÎ>ùýüÇß¹Àp‚-þVÜs÷Éc¼ÀŽü?½úõ.LlWTÝøyYÓǪ…¿wc„ßk4›E…`+“fÉhñÈy/ǯ휽HÇÁµºŽŽ?“’gBµ]C\4”Y?ÕX+«!KåLÓT—Oè%SoVw!º:šF4ii„’_+ .E¹ˆ—¡{¡‡h¥šèÆó+;jÒÄ´" êùÕfgGCÕ™–V(ù âR¤•kîÚ~€©E»‡µùÁíLCÛµ»ýÓ•£†[=Páõ¯W¨*ÏôJÍ\šÐkÐl­\Zª¢ä· ˆKRUÅ¥³¬ƒ—áå˳x—Žß>Šiæ{”zÜ#r jÂ&ÝO³ŠeŒ9†U4œGÏ?pêö;<8þø}':|‚zËOλ¹)Ã3¬™Lß‚Û}ý{µÚG­dz椖¹Özª0­;ñ^ÿ¢Ÿé ¦ãŠVî´[4J挓³ oЪ”YÛ>­Ïíß1èsåri @ïÇìÛ«ÝÃ~Š~Âw=£œ£&A¦¯h‚oùß©=Ÿ VÍŽõá¾Pµ|¢ôsýÚ¶mÚ"æ<ùíþ.¬ûÜ‚cV¼[Ž³ºCŸÓÆ´³ìãJÕÛ£´-A–1[(³Äéã{ØgìV.7ÈþÓS}ÙsçöîDHJ+ÒLX©¬Õ÷Þø–ڜۮÑ~‹,XN e¼†ðÛ}Û³ *ʲwnø¡þsçBl½å†²tÝÔaôOD5xzbц²«'J¶^Dt´ªðP$%¶•¥+/°×eØ‹´»³O_hf±•¢,Cêçæ;Ï*Iµi÷Õê}Û² ?Ì»%äWüκÐwéfŽ<ÉWiF$^ -RË×é)ÒíꉢÁm®¶áÌ¢0^ì—[нßÎŒ!J]â’tkb®l~ÅŒ€xÏEf.tV(Ÿ‹Ù5Ê’ùÓ†œ†K7{k;†+FóØ€ë!¯O®}ÊC©–/JKV­ûCŠÒ*dÏ*^|Yª°ùÞÜÑ \…ç7@Þ Ìé­˜àkBÆ„sKbË•ß¹’YÎjóþ¿þ?sLUôý;Y2+cGÜuòH6²a×Kû!ïÍ™vdÿLÐÒ*5iÊ1‹\2¦XÃG–º0ÐlB—$õ~N]/Çæ®cÿf5Ïf’g3ÁÑ-w’¡îL¹ÑùŠcý¥:BíáÅþ«¦ÇF†YF»æSf$c…ÌPî¦ìhî¦þèdׂ ¡ºŽÉKav)«å§˜xóÑë¦u ³®£éÔŽ¤ë&Jö2àfÈ›ÛQ7+€WB¾R™Ÿ[>QuY³<$Vé¬=§.ïFáè™.ã…p‡âÒ¡–Õ⊙+Ë»6tÔãä&Ë»… s´z\°6b˜Ð½€Î%º…YéþX"¶¸ò–8½ úc‰Ë6à ¥z±C\\H,%§o„|cl[îÌIh$+ .eoozF9$Ùàäôý%ŸWúE<‚/9‡ÒC!®³^àÈêšÌ ès¦Kñ¶éѶ\“ZÕr+FÁœ4 Š …ß4× £ïØ' _¢aFÿ;×°øg|¦fÔ’p ž#< ùtò%áX?¡°<í’@É—Ä•~I¢Í$KÂ|ô’p)¬ÿÒdJ¼LI˜O¢$\Šç.M·$\ ë¿´½%áRX€m+ —Áú/K´$tG/—Áø WC– Ã}BË^X  »Åþ_u ~zRÞö¦eòuðVÈ·* B[Õ±¡1(Q9 <ùXò1(%·xä;b›ú2™MˆÂÀ»!ß­N)-Ü}K¥Ü|¨£vÜ]J¹ø0ä‡ÓoPòˆ+éJ€’ëN@žH¿ äWú•ÀFnÍ>&Ú0ÐóÌzêáq6'Î> "þó‰Šè ŠJű+ŽI3ýÊÄÿ­¨`#ž#Ô!«× -aô„yÈùô %_Wú`Œ~S²`>zأߔF˜O¿lÂs›Ò-›`ô›Ú[6Áèl[¸Fy²€8%˜õ々ÝÍFÉžòÑ V­oðóÚì´á„JV?åØÕŠ[ÛÞζPQøÑ'ÚÅî´]-é`Tz½ k4dü}ŒIÝ?ò8röåxŽÐƒì) S—ù£´QãTârø ȯH>N¥äªÀWB~eìÒÕÕMQú¯> ùéäÝ%×|ò3é»)JþYq¥ï¦6s{ö197ÕU0%xõWA^%ë©“š\ÂIlkÒ,âè8Ïpft:o}ʯ¬k¾‰I³QAßðYL/EïºèBv¥u¡ÆK—§€/‡üòä½%ç_YÊ96®Q¡ƒ«(Ð*¹þ±Û:M·`‘-ªê¿ˆÙ+ïƒü¾äý%×|?ä÷§ï¿(ùˆ+}ÿu·tô_•¨þ‹øôÓ÷_Ç(š¼q‘¢ÿ¢w] |©ø/âò0EÿEÉyÀ—¦ÿ"f¯¦è¿(¹`ý%ÿÛæ¿®ä–îc‚ÍDšZ*Á¬¨¾™x¢…Óý™°‚§Ò‹EÃß]•§ºÏ> Y®ŸX§".E`pÏtòžŠ’{ hB6_RžŠ˜¾ò«fLˆ§¢äz€¯üšô=%ÿZq¥ï©„Ý.ôTËùÄw n½Àu‹¶‹9´}OK_Å 'é­è­6uÈR=º ½q™– KM·ˆæ­(¹<° ¹»4¬`Þê¤y¿ "a=ÈêzW6<ÝŒ¼;‘9|²TWÓTWL¸÷Vm/L5Uà³ãwiE§ä_- ®¤k J®ØÆÚ‚’­€m«-®æíc‚³ ˜¯• Ö Œ? jaX{5¹ßÛÛ…jÙ°<¾½¸=é(AuðFÈrs̓¼kZãòMé%¸íŽASXÌêv,Jvx ä[’¯v(¹,ðVÈ·Æ.VWÖ‡€ùÙE ¾ÓêõˆØ~àÃ¥fEóz”\ðÈR³ây=J~B@\é{½kxùò1ÁÞHÏ–àÕ Tß©ÔéŵÀ ËíN¥Þé§À}÷%ïô(¹aàd•¾6ÄéQr7o,åk“rzDìVàCJÞéQr=À‡!+˜éÕéQò(=Ó3®ÓÛÂË— v ð%æÜzë:Tw ³ýý]ô’¦;S¾ç»ôº¥Sg€OßvÊÁ‰Ž»l¸ZÆÈMå"ŸM¯³ø0d9l–Õ½œë˜1W +aÝDHž†¬r Jˆ«Úû'<9þ”U{5—Õl~¦„‚JÀÈ3Ê$_Ο†ütòµ%7 |rü7ý‹'UZB)ã!ÖœD­Xˆê³ÀOCþtò %×ü äϤ_±PòŸWú‹ÆMßÇä*–eþž%Ôzk;bìÂÔ4 Þ³¨^q5Ë0¨[9?¿`îp`þ¬( G&‹/ÞYn)Qt?Z‰™{÷C¾?ùJ„’»øä⿨·’P@\I;J®ød©`:žó¡äWúÎçZnÏ>&ØY)LKëªïÀ|’¬üÃYÝùrÞöǼXZ[Ю9íà|0¤E‡eivÅ°´‚éJF­Ú]0&¾ùÛºIPëÆßRú\-|³Xð昅Àó þÜò1Ñw›ø×fKÆÄoèŽ!v1 ·µâ°/¸Âõ\ÂKdáÅÀ߀üɲ>,Âß„ü›é2Jþ? ˆ+ýB¶kk¢…¬§}»‰­(W„ñç.ìz;¸ h1;.Ö”7­øŬ —ŒEE&cNY¶ÃÚJ³Ó,X‘xŸõÀ{!ß«¬©ÔÒ…¶”ˆËƒÀ ÈR_Ñj~Jnø(d¹é“âÝK)n¬9<¹)9Äè1à“ŸT¦$É)9Dæ)à+!¿R™–ZLÉ¡à« ¿*ý-%ÿ´€¸’®*(¹`—úQòÏ Ø¶¥~×q‹ö1ÁmÁŽzXêÆoÑ.$4Q‹Æ茽àÑñžCMÜñX&o;EÃéÇ\å ¢ò[‚Íç¨%Þpð4ä¶èºÖOØÆ-º(ù’€mÛ¢ëzXÿõ‰–„®ü”¯^ úiåó.y½p†Öé[ÅzQðûwüÙ̼c(¬D°ZÛ•xõµÀ§ ?¥¬âî:q jhED^|ºCýúôЊ’; |rüJëÒHY?cÔæ¤ ]|.5«°¥åEõhÄóYàÏCþùä=%×üÈ¿¾G£ä?% ®ô=Ú6nô>&X·—¼y b½@õ›þnË dë%ÓbF?_©÷`M}ÊÿŠC'Iùküý‡˜³l͘œ¤²i3’úקuO3­¢YÐ=ƒoài¸žYfƒ/äuÚÛ»™LšÝòO·?¿-AMWÂgRž®~ò÷”ùÌK ™>×.™Å¾l_Qw§b_T'JÌþøOÿ)y'JÉý)ðCþß±‹åÅ4ø¬âÉРˆ„¾þ™cç .ªjœöåKºu¦OBGk—r™0u®^Æe˜:ºÌ/ÿÕJÅ1\—g±òyk¢´x—;Un-R§‘yô ٹܩ`kù¨u%Ÿ­cp¥_§mçFî£Ú:°#T=!‡›^ ú1ƒõ|Ä«6ß#ªÍ«‹ZGmRGÒ6+žŒ-Œ¥m³”|Ÿ€¸½}ïDM-MÒ¾¦™âJ; 2°ñqI––GãÒéG PúL““Ç5í ŸüÈJ˜û4cêZD‚7@U„Â& Š*ãÐ3`B«á`¶ª5áÐj˜’» ¸òÖØz²´rÕõx¿×Õ¬éMÛUÏÿËÑ=ۡјœ‘Ëj†É=Ÿ¥OVõÒ€fÓªjÖ"-Úå]»üGúƒÀš~,øžÄz×ë€o,5M£å’NYÏU-S‚Ü…üQ…v2‡„’{7ðc?–Žù½øÓ:¶ùuEžPOéÿ ðãå&M´œUD&QŽ:á‹8}øk-‹øð ¿ŽE|øäÚd_~ ò—”[ÄJ²ˆŠyA±úmàïCþýtlâ7€ùÒ±‰/ÿòƶ‰eYªj$2þ[ÀoCþv2f1U*GsA¬þ ø·ÿ6³øoÀ¿ƒüwé˜Åw€?„üÃØf±·Ö9çæ´ã¶cØ3†Ã{íx(ã‡6ÓúŒÁâÃjˆI$Ôõ#Žå:š eCw«NäI%Äf¸“Ë„)hÓïö ÜÅe˜Ú\K=¬<²”èa%.»G¹L¨HA=}ã‡ûd´sx— ÓÐÎmÀ{¹Ü)7ûI¼»YËP·¼cºg´¢9‰þx·_¦¶îžær§ÔÀz˜¢Æ¥õ$Ðã2aŠ:¬r™0¦¢.åÐÚ:IÍ_ÇeBe:º[NGÏßÆåN©)ìÑuôzàÛ¹L¨FGv±èÆÒÑ;€çrg¼vP£Žœ”ÒÚ!Ÿå2a:B;¤ó¹LSG»¹Žt§àÒÈ¢Ëê%ÇÐÛöêKWY0¡Æ!þðr™P‘"—õ“ôˆÿüg.¦¡É¿þ.ÆÔä5\“¦UÀFñÛ§Üý_Ž]¹L¨P]R‘F×ÕÀk¹Ü%Õ·Y]]›€}\îê‹­®mMÕÕXĤZƒ][·s™P‘Ú–3µ”ÓÛÝÀS\î:•ŽÞŽïã2aìÖ˜¯·0GÙBŸ¹¨CDü~àó\&Œù‘GNnä–PC%ãI]ßÇÈImâ mT-Õ&´èNy dÌ°æmmk’`ÂŒ7k§ö`·Ï1tÏŸm£ûS-ϱKýþ4·ÌÿŲ¦Oé¦ÅšÊ†^˜æ úrÚ1K«èŽgRÒ΂©0µ¯2]Îjt–íøÍð`&®@dñoó5º¥—柢¹m «PžXÉžª¯”ª'°à»öX¿ì _¦èªéãBÜ•E–¶®ä[ˆdkÙÖX ýpxyY”?Küé¦Õ_¶6}êüŠí¢ßŽ^Ús¾qG,iY”®,•øßï«óÞr›™¿þˆË„I{oJî/Ïe˜Îog}^^A·h<Ð?xávHnpäµävHDú8vg¸L¨H‘1¶C"BƒÀ]\î–êÓŠ¬Ìî~àn.ÆTæ‹·± q§4œ^àÇå·S¢Ù|–ËÝrkhÔm§D\Þ|žË„ÊtÒ×Nɽø.wË ^‹w»£‡KDà­À·s¹;~'Fäpi€+´†j¦ß ±p逫 ·à˜ùÚî:‹7¹ ‚¤ˆ¬s`J8y(–A75l©].‰Óð äƒÉ6%·xò¡ä}%%7 < ùplû9W k³ÚS†ck£TrýJ°dè~ Èc¾d”üá8…?õYX½ Xô#CÍ-ë¥Ý®§óùîþ‰uþïËm¹J¯~ø!ÿGé,èŠÐ„9i”\ãì´W.;;a”+ÓgÏM°7:;‘Ù:<ÑŽ>|Ò:»uøÜÙ­#çÎÕíˆ6á™Ô œÓÈÜHÈ+]tßÉ#ãÇ¿;ä½¾üÈõ½è‰Õ‹ž˜(ŸfÔ…"HT›vyÒÛKèãÛïoËðö/L|]bÂ+i&IM}ÓÚ‰L]ÑýaYtÿ‘ñƒIrkž*Yi⊠¼vWˆéˆ¡M¹Ó|Pxql—ºü²˜rª+àß-9âÝ÷ižÎj —¶I ó”ÊeZ?d—ªµ-fiª•Æý¹Ä~öå¢]AO‹«— ­lxÓvÑe¦Y˽DõŒPi鬊ÒùŽ^¼®¢þªÑ`JDäØQÈ N—Ënú±ã ·îª‰¯`±ãAa¥Ÿæ*³åÈPG-2ºTäå¶!.ׯ‡|}òa%w%pämqUÕù·T–,ZÓ\Ûv$úFKP°iÍŽËŠ ËŠºSÔ Ç±·ñFL§¨œÎêóY¾û9ÿ¥úšBžâŒéVY 7׌2o–þ5~³ŸOAã;eñôcm1SG‘„߀ü u¥²`Ž¿/ò)ñÄæ€ßƒ,µCY´RIÉ}ø§ÿ4¶…òÍ‚««¨;ghûÌierŒ)ÿ´±}×­ºG ¶5‰¹‹¬üÎŒ.­æÿÂÑ_£ù_8*s¾Òj¦¥š>ÞÂeÂÔÜ9¼•Ë„1Õ<.¨¹D]Q‘ô\q v“>è9ªƒ¤÷Ø| —;ãOñŠì§GáFTã§7ðÑ1xÔÆ#òÚ.„ oPV–—Œ)Ã*F-Df3ðÈ×$_(¹K€[ o‰­£5 ÛiJ¨Gf!Ëí×t>ŒÚ+&¼òÍé(g¸rüxël–ö5ôÔŸ P,A7:Fï#|Ú§R×Îó³¬)éŠôµýR+¶kŠ£†HHn^6½ø.àg!V™)¬çÜÆú<»R2&½>³øUàoAþ­tÌâ_ƒüµØf±œÏ®–ÐÐ×߀/lŒîS[qûðÏ ÿ™Bõ„ÌC¥äþøçÿ<«ø&ð/ ÿEl«¸Ÿ¦ÆÏQcM”£¦E“ ² œ@¡a'÷’ézYl²V2øñ£ºû>GSïwÈîeªfw½Á•‚Rý½T G¹LS©Ñ7³¢ôwoâ2¡*uÌ˨c_ƒ+ uÜ ã2a[Ôq ðV.K6\šÎë2-]˨ä(ð.¦¡’ýÀ;¹LØ•Ü<ÎåN©IMUÒ]0¤\Ö)àý\&LC!'€p¹3þ)ÈËùšP ¥<|”˪kéU¼œ¤^Š@“Ë„ièå1ài.Kîp$ÞÝô4ûóüt7è‘´›tmÔÏ"—[fBÌϚ˄/•X³1yç¯p™0…X³óç¿ÊeÂ4lég€¿ÆåN©ErþD}Ê)ÆŒañÉ«Ø €5"ƒh²aÊ-ñâ§aÒ´Äî ô._àص’Ë„Š²råDQ<ú¯!å~n…7Õô“Eä»Ä%Y¼®ŒK‡â¬•⊙+×ÒºL­¨{º6éÐÚ¿•R°ËÌI‘eí‰Js'Fx-äøóZ%N;Ø…Ä “;Á'´åÔŠV¯€¸¢ÓjJg'U#súkŒl¬ÛïWo8zÏr˜5œ\es/±x²Ê¥¥!‡#Pr=Àçï(ù#âJßÄwìw'kâa­ÑV´zLÀÄç7ñÝ0ëÝéšøn˜õîöšøn˜u€m3ñ=0ë=‰šx‹æd+b½@õg¬®_°4'ªõ«uÀk «= ±Þ=°XÂ-·¤o½”¼& ®ô­w/,vo²Ö[)D=a/,vo"Ö{Y³C1£šð^˜-áVÈR©D3á½0[Âë _—¾ Sò× ˆ+}޳ݗ¬ G?äzÌv_"&|qÝû'öF6ß}0YÂ-¥\a4óÝ“%Ô ké›/%­€¸Ò7ß1˜ìX¢æýdê1X,aü“©òÙØìÐéÈ&LÜÖ·BNÁÁl Ûè)ùël›¾f{K¢&Üm] b½À„‚׫ç5³¨YÕrÞˆnÂDm0Å â˜í-í5á[`¶¶Í„o…ÙÞš¨ ÷¸%=/Á¬¸òµQ·aF͈ߊç5ÈZòö{+l–ðZÈñ«ïÈöKÉ÷ ˆ+&Qf¿'lϨ/öº¿MWs ¯êXþî¸3¦kæKó‘ÇNöÃÆ …Y¿ŠÔ¶|ÂßܵIº7#­À6œPò]â’,îËãÒ9È®‹Ä3W633zÀ.MNé¬{¿i¦½¼^5-‘Þ!(Šp3äÍÒ¹µÐmšÉï/ž>i;Ç>m¼œíDW‰Üµõ$¯íœzbÑFY7K!é^Ü9þ!Vѧ³PúAWðÈ{”)iË´çUÜ=ƒƒ³³³¹Ê ÙŽHî>ù1eÊꙨ:aªÚ |òãñ£è#×Dà `r^Ù믘Ы޴í„8*½‡;Úê~)ù.ã¹ß+âÒ¡±ƒ5â’ΕŽWÒ]›¹ß;ÌòW?aOeµ£9íŽ\V»vø¢sŽ°?¶iÇuÇûêÏ[tè egÙ#Úñœ–Þ½{gN; M9zeÚ_ÀX4ÝJIŸ§Éý“Õ’?Ý‚Šá€¿…¾kº9-âK…ú mÈeeþâÚ#UÇ®º¥Ýa³X…V`Nj÷Tó%³ Ýnè%/j0Ñœ¾“]»Þ®0Î Ù•’«ßÅ.‹]ïhƒw§ôß |²à]Ê´ö‰Î‡ü ¿”i#o—Š!ɾø“È‘ÅÖƺÌpVºIª ýðÓÈ_P¦šëƒŠ·h›TÑ冇vU§RÍîÊ çvD¬~‰ê/¿ÛÁÏ—þ¶BõÍN>$ÙÏiiǧ:ü\Ó®}(ù?ð»üJ›Æm\Û5TSKô}ÜŽÄ “èûàÕኻ¶Èç¿ú r×A^+C®i÷ÇrŸTØŽ¨­8mÒ¹e´ÃÂF…Ñ«aBRí^9þÞ3'³Ú,Ò`ÑÈaÃsÏÌg™¬ôƒ“»·³ºûŒá?Áb’]“ƒÚM¡P2-?Bq ×ÐÂtdJ/´x/§î$×+XŒ­?ûæ˜åoSUb/Q4 ¦%£wøFv=É®7$ƒPr%àO Þ؆„ÒðÍàò&ezꊅ‘w) cL¥‚¢hQ%÷<ð=È‹w+ˆBFX22²c``dtTª½øqûeʹ±I²stäæÁ¡¡¡Ñ»†w³ÐiçÀÈã1!Ÿ²„B'…[¶‡Æ"”Ü'€ßAžI…@ñ‚Jþ»~§£-!Ñ1®óª‰EN²XDèwÌj°zddhxˆÕ#‡l«X-øÓo„v,ß gœÏñö7›ç]MZE/œÑi«Áˆ/v^†ð$ä“ÊŠÅ¡q{’ŽrùnC'íIoVw¢Ö/Dòaàä¹äëJîpò|êJÿ)àYÈr{®51z³Ÿ§Ï@~&ùê…’{ðYÈÏÆVÇêÌ(5r˜³–*D¯>ùùd[¸»nÝ9xÚus3C£7ç̡шµ Q}ð ¿|­BɽøäÒwç”üÄ¥èíWM°gp g“ÄpwÜÙ¡².‰œ”|—€¸$vu\:´Ò¸W@é%q[ûÇ¡Âø­ý°5™+œ²ž«Z¦¹õÀÕµ¬Ce‡B7A–jZ‡$²(“’ë-úËÛPñRú›W@ŽwèLÓ¾2‰rÔ~â´˜…,µ·Tt‹¸8y ‹¸˜ƒœk“E ‡ )·ˆ•dó%ØC–Z‚Ý&v@–ZrÝ&†G!mrÛ3‡Û€wA¾+»˜*•Ëì>ù‰tìâ$P‡¬§cÁ•¯cL»Øî-×OŽólÚ¨–ïRëú÷øîª)_ùuÒ†C±œÂ1"õfà; K-+c .ï~ ƒ7`ޯ̨ÂÆ(µ×?ù±mê2©•_tôY+òœ¢ô!à/‚Þg•eÈÊ ×0h?´Ð¢ämmÐœ€á¯AsñùÒ Ýçî¾0$@\1³åàÖ­[g¶Pçšê|±èjÁM'Sò“‘V‡ÙåÆãã"¿È=Ð)áAÈc¿ÈÆ¢îiûhên®¨—Í‚=24´;2¹{Aˆp#d©Q¹Žá9VÑfʆîVc¬ïîñ>˜cs^V³†Í1‹aýY`Ž°?Ò<ä1öOä÷wÂ`òïØïÑÃÞ#2¡ØorurLª<‡ò8…´TãWvP N"%¿Ë;Ók%»ÏÏ øñߦ 2õû@—p䱩¯*鬢Ì0F·¯ûÁ‚päøÞ(ºR@ÚªQêQRj]™¾"ý)öÍõé‹®]6´BÕõì²ù¹M+òË<ˆ < 9~Óã–šš}ÿBÛ;gµJ L9f"vûåä½ù±¾R_6òK<â„·@¾%öKœÐüÿëá?ºáÅŽzËÕu®i_ÄkÍ·Ù5è•+ƒãìŸòîƒ#£…Áñ|Õ,Gò»†‹ÃÆŽ];wä‡1¯e°¬[ƒ~ý rô¹a²·þ¨–£,-:ù–Ö–6-#• }ƶ«¡å$dœœ2xEÝJ}Y°Ö Ã;þ¶l‘W¼ïÔÑ,w[þâÂ’+Ü\±¨ ± 6í2[ÏÊ•ÄÌõß9ûä÷óçƒéÂwWÜs÷Éc¼À~ü?½úõ.Ll_dùYÓ˪…¿yc„ßl4™E`+“fÉhñÈùv[z¹Yg±P;à îàSòJ”ìÅâ’ ¡´P…µ¸²Tî4Muù„^2õfõw²¢«1[ÒÖ %¿A@\Š´rq½,-1) D;ÝÐáå/OA;ÂìˆfËžÓÒ%…€¸ig}£vÂÇçC”Ó…`5‚/oJA9BÇo²FO9=°7KÛH3ålhTN«¡òõ,ƒJ–ÛJY~Õ³ *Yƒí”6ÚXê¡ä¯—"õÜx©gàn‹]UO;lêS–MS€ù@év¦³íÚÝyZ#uç¢åÐáä…zóL¯Ô,N*iÂ&û‚¤¥7ºvˆKRo+âÒ¡¨x­€¸bæÊUš¦Ú ºãÌÓQµš®Ed¸º"¼ òUÊ }£ï‡lfè>;ŒÌIp¼¸òe6½b½·j{ÍŒš¼¸òÞØê{"«åç5ǨtÄoiÞ?Ð78à²~Ô?&©QÒ=Ê>:Ž›o¹”a^¢Pªºtàhɘ1JýšNÊ÷Ìrô¥ôvû€ïƒü¾¸oÙ59aNžöÊ¥sg'Nsç~ ¹;æ³®§OcŽa çѳÇœºýŽŽ?~ßÉ#‡Ÿ ñÅ“ónnÊð k&Ó·àv_ÿ^­öQ«Çñ¬9©e®µž*LëNF¼×ß¿ègú‚å…¢•;í²ü7gœœexƒV¥ÌšwÞôi}nÿŽAϘ(—Kz?ö`ß^íöSôî¬KëÃ}' jùDéçúµmÛ´EÌy&0òÛ'&&˜UœÝç³âÝrœýÐúœ6¦eWªÞíì¤m1Ò°ŒÙB™%NßÃ>c·r¹Aöÿ€Ä È˜žêËž;·wß ’@R4JH'Ý:…±Vßoxã[j?rn»f”\ÿÏÊ,x á·'ú¶gT”eïÜðCýçÎ…ØúE,›Æ84~wˆÁ¿ø3&ªÁÓ«>±z¢dëEd€à©Ôt_7ʉâúqýÇeØ‹»»³O_hf1¾U–‹ÍS¨õ%¨Oµiçáê}Û² ?&¸%äWüÎ×°®ÒÐwéfŽ<ÉWiF$^Ô%RûxýR¤ÛÕEƒÛËê˜^å"à‚±•vfŒoâ’tñg‚õBI.8øG2¾ZSküfæB'°‡ræ€Ô2tu„%?Q´½fí_Jv-pä ±³¤+úè$¸x)äK“kÐ…òX (Uœ–¬ˆ—î)RkPœÖðÁ;.eè5¥%¹j tFxd©N”SÙð¦ífyBñ»L:;d»MÄ»£TŽÑÜÉjEsÊôÜ,¦0Ô)ögű§òº3vôÀ]'D/ö„WO@>‘^±'¼xòÉv{ÂSÀû ß÷Ò)nkQÄÖ&RÜäVš­E #Ü Y]Wi‹Ò¶%ŒP]_i¥_ <ÞQ[º–Vi£dOÇ!·£´“ÀSO½tJÛ:”°u‰”6ÙU|ëPÆÖÁp.í¬d¢–·u(c„ñúJÓ.oÄøjàÝïN¯¼Q²÷OA–3ó˜åܼòýÊLgùDÕÕ§šu$÷ÂZÖwÄ bÅ»‘ÛôL—€ñÚãÒ!—²Z@\1sEbkƒ P a“­ ¹áȪn€å¸`뇈îwá`Ö%º¥Ùþ#-”*”tוɷ5À-·HçÛ¢j«­Ÿ¾¨Åœølæ ç”óÐ…µ”œ„<ßÍE^„Oé‡!+SËÊ>%KieðVÈ·¦£•à~ÈûckeYV³Å|D™bzû‚€JJ5wïƒ,Õê‹®š£Àû!KUÇ~6'¡–Ä¥ìíCŽ¢¡äz€B~0ý €’H@\é×°i“«…W Ô– × \y½²¦Ð°í&è%m†ÕÇ̱x6fÌkzÐ8 i3ºcêù’ÕÄ/®CuLÚÄ/Y†|8}§ä¸àÌçôLüR˜õ¥‰šørÞˆ”àÖÛQoZ÷v4Ìèiá?[³pÓòŒ)£ÁÄiâ ?BÑ"û°Ì¬”ô‚áÏoâ;‡øç–:ôõ¢†¹$š;mWKEÚÂ?Ò(æ´c“ZÕªM£Éòc°°¬ÙôÎÓÏþÇþÒ@mÒ±ËþŸ<ŽZ´(¿6¿ù É­KQœ_€üBúE‹’ÿ¢€¸Ò/Z—¡8]–lÑâý2Üzñ‹Ö²œ¦jEKw¦ªþšÄ†ê#Ø“Ç7}Ÿ¾ípƒçSÌ ¶19iLöE¾"–Š˜Ãʆ–§2åj#7•‹Ü ¹ epòœ´B»õÔQƒ]"ô àsŸK>Ø¥ä毃üºØ%eÕ^Í5 v ‘QÐëo‡üve ’/)ï~ò‡ê&d'.JîÀŸ„ü“±u3п¸6²„2è/6§:©ê²ŠK"§~ ø»7ùj‡’ë~ò7Ò¯v(ùo ˆ+ýjg#7}“«v–ùÃÔzk;-eŽXët/ ´gQ­ãj–a°Œf7SíR«wêsš)D‹ÜkBü/ÞùŽ”üTh%BdîÞYÝHBh%BÉÝ |²TWE¼JþAq%í|(¹àCãwUDv>”üÃâJßùlâöìc‚=&|” ‡ýô˜,t?wÐN"td‚êÎNÌï8,ä%Ƭ‰èjŒ¶ÐFdÒ¬¥e´%Þëàä eîh™?ÂÕ—p òTòÞˆ’{8 y:vAèêêŽ(}xòéäÝ%,_=ùLú/ ˆ+}w$,§U쎤f^`üøgÑúg›ûš ø‰j³Äêb YKÞf…íâý½É{8¦m³”|Ÿ€¸½}ïDM-MÒ6LØ lÓdŒÍ°ñqI––Þ¸t®@ Pz²AÿƼÈ1‹ÕÈÍ‚òÞYW/}Q¬:^°0’ÍÍA +ÎkE›žpí¬6køë®K«òµrÝÇA·±îšiM–ªt‰ß`1töˆiͳXea…Ÿk¾û‚ß»R±]×Ì—ŒÆεˆ¹,LŠîøoÿ›²àa‰±­ÐðØüø·ÿ6ùð’û3àßAþ»Ø&w 6H–¥3ÁøØAAw ®ã†e³¤Ü’1éù–ÅöªNô ¦‰þ9vr™0m"ÌHTèÖ.fø„íÑx +o“Ñç<\ *„ñ¶ªQ;Gˆø\Ô:jõpÒ6OÉm^ 9~ýÛ‡±+8TîKëÝ.3fdGEüú€‡ K 7?7eôS4ÊôjDîS Š—‡ %ߧ ô#øó{:dç‹w#{OJ~D@\éÛsl¸/Q{îr£Zr¬—päUÊ,ùš‚í°ö5óFE¿%î±EwŠšá8,œ‰jÊÄq-ðFÈ7&oÊ}0_Â,älú¦LɈ+}SÞ óÝš¨)÷<5£GÝg+ ˜p ä5I³Ç¼4Y4?¨;²1oÅs[¡Êõ²êŒfÌ[aÀ„9ȹô™’WúÆ| øºd¹ݘ¯ƒ_—ˆ1oj4æÊ?#ª_‡ç·AVh‡Xñu°\ÂíãÚ‘­˜’ψ+}+ŽŠHrÆQÁÌ•òÔzêGÜúY“Çp‚I©¬K-!Ö0š4‹Ô_›¶Ù°‰îÅÀÝw'oØ×ر¥/KmkÏ°)ù½âJß°·Á˜·%nØÕ¨†½ Ƽ-îV*‰ö6ó¶t {Œy[{ {Œ9À¶övóöD »ó^ Z½Æ[^¾NnAÌì‘aûŸ3#Ÿ6˜UÛS†e˜Þ|TË&Îk€{ «Û8Ô²…øÃ7§%&Ù²)ù}âJß²3°æL¢–ÝuoE‚W/P}O‡¢xšÈ­í¨G•k9&mÃØ-¡‚¤mÔü6q¥oÃý°ÛþDm¸ÇÓ«#Ìzê[…‡ê=Ïz™…‹²–±-š…Ãw³ñF7ò<Í~w.Pö±ÇÂ2µåŽçÄüràVÈ[£¾=±hÇóåÓ.c)DwˆAÈlvN„¯ˆ_'C¼f]KM%&%$I£ù´½‰ ÓëDXÞ„la®ŒTóTC¶0W«‘Îz–4µ™ß®lñ=åTWÀW$jšâÝÈ+ÂD×Õ¯¤«vJ®ØÆ`–’ß&`Û‚ÙQ–¬ÚoZµŸ^àK©j†–Û]µß.WµóËTÕN„¯ˆ·©jWF#¬j¿]¢jWF*RÕ®V#KVíáß®li^µ'›j‹ª]iŠw#Wí"«vJ®Øƪ’ß& šª=2,JR€j&L÷±ãiÃV Ìê.Ö]ù“Òµˆ<À-˜½„ypŠÜéJ<ëóúÂŒ)l’0ÑéARhÃ!“„)¹`ÒÏ0äø3#£ïKéG!*ÓÊ*®•3ÖtôÙÛÄhð0äÃé(fðäø;Ê)æ(ð6È·©VÌô÷´”bN„¬r‹Š¹øä‡b+Fj·^¢ð0ð1È)ÓÍj®½8m¤”c++é(çqà“ŸŒ­œþ¢5KF=p²ºýåZMIm©–WŸ†üt:j™>ù™ØjYEËO z©Ä" Õ< |ä7©S'©šwß ùÝé¨æÍÀ÷@~OlÕ ûk•ëë„üµ¹þÒyZÀ¼x®È ‰î{_‡üõôƒÞ×~ Õ½C,èm\dÅ7ãóGB­bmY?ü¥lŒÈzL ‡ Ųþ¦óØ|šÔNÇ;b|R êÛ+®{qßuc>á\°ÎO‚ùðNÈR q›þòNàIÈR£ÃÑ<%7 <9þhðÁz™×NÙ0ìÆ­/hMaQ÷tmÒÑËFÖßPƒö˨º†¬µß|'äw*·ö5º›#Ò9Ÿ´Å€¿ù·Ò±úMc ÄãXÿG€¿ ùW•Yÿ€_ƒüµt¬ÿ]À¯CŽ_Á¬’¯ñˆÈo¿ù[Êòaù„?BÑ$Ý-µ Ba¹¦¥ä»Ä%YŠ×Æ¥CÎp…€¸bæʆ ·«ê ©#ò†7@Þ ,°•ÜŠ”Èl^ùšä‹0%w p ä-±uôNï+Ë72Y¼U²^©”hKÚËœ=PŸÃ¶hs>‰^œ¨¹`_s¾Ô~Á:Uk(¿9êßrƒÒ’° ø9ÈŸSf']'ÈØÈ À/Bþb:6òyà— )¶Üàë—e—yOuí‡ v·«^¥êE®ˆç— ù¯Ó÷Æ£\é5TS)\ƒvO°=V¼ ‚v€á5¥¼ŽÒ̈ÍõÀ`àHå²ñ;§ä¶³ã//ûÏu«eîðòF°8Èß1¯dXS¬…ÊzC[ émÇœ2-½Tš×*´ÿ]ÍOò±×!GXÛ™;ã÷0)S½ç„ïé¨õp¨êã¡×‘Qþ‡ü‘t”ÿ^àG!4®ò;/¯ŸæACrtD@­×Z®k=¨žXºgÍRÉßôØÐÂ49IÛñû4ü_a–Uo²Ÿp\¯?§°æ5·šgUŸo'dŽQ¶©Îd–G{"š†Ë;Fʦëò©ü©7~ *èbÕ ‚¬Fã öSÔ«žMõzÁ7×õzˆ’´Óqì|Ërçä(öS_~Ë)4»(¹/¿ÎåNÍ®ÀT#W¸Dä·ßâr§ºfײ ËöšåÃ0WeÇMmmuQò]Æku-Kçfv]$ ®˜¹²™Z]virJg…ÿ~Ó(L{y½j8Z&"½PáfÈ›••äM³3ùýeÃÓ™›¨8¶˜íLI¼(ÈÊúŒ²n–BÒ½¸ ò®Øº‹> Méïî,·ö·™’¶L{^ÅÝ388;;›‹ ¬ùdDr?ð1ÈR#¼ÍS¨:aªÚ |òã±UÕ}ûG"ð09¯ìõWL°~ÚvBM' µî—’ï0žûÝ—•5⊙+'™û¼nV{ §eF††‡X¸wȶŠÕ‚•QaàÛr³hŽ…ˆãõñ/4Ö¤(œÑ§ŒœñÅö@Å„'!Ë­¿kêî°«ŽÅ#Ô“ÁrsöçI{Ò›Õ¨ƒDòaàd©i!IÈ4dJîpò|ü7¥ÿð,ä³ÊtÕ5z³Ÿ§Ï@–šÛ¢Ž¼]*†$û2೟­ŽÕ™Ñþ¬6<0°c—T!z5ðyÈÏ+SÌõAÅZ´MªH‡‡rûnÝ9xÚus3C£7ç̡шÕ+Q}ð UžŒ:c8ùdß|rNF¥ä¿( ®´iìåÚ®¡šºÖn^«Œ ³Zå8?UtÚ(œá½îbåbº9:âPN»=§,L—ÍbV;ÅDÏyÁá8z¹R⳧S§@3ò›†Rãm:;dhïž(Ꞷo@3\zLÙÐݪcŒõ÷1'kŽyÛÍjy&XÆTV+˜cÿ“"üOhRÙû'—/LõG~©#xÂO$gµ¡<Ž"íÕ”žÍd&ÍvRÌï6p"Ü ysl~W3 %å³*+3ofµ³®Ï躼¼¯†|uty i¨F—W’.›j™á`E(·;Äg7̘e˜^£ëïN0!\y]ü|k`•Å 1c®á]`u—Ò|‹naÇ‘v€j,l4ÜÂøÔ ½v–u0[62sÁÇŠ‹b2¿fŽAsL/•ìBt5ß b„×@¾¦ j¾i¨FÍw‘šúþƒIþGô7õukÇuË3J·ë†å>e”è¦íbäWº¯qociŠDÔëÖ N=ˆÇ‹Œw´7ˆ¦:½D+žS`EøÒ©xî—fÅs?Xݯ4ߢ[ØH;@5vëÉ.ÝFtáÙÛ]Y'ô ˜Þ ùÖØoqPpBÔÿ’IÞñ<ò„A»û`Ìâa¤àKÏñ<V(-@qϘ¾4Ï£`õhÜ|kšìEÆuL4ö úSjT‘;”(ù.ãu(-Ö)KMjx¼ƒ©<Žç{9*ëæ;cÌÏÚN³‘ôÇ¡ ‹!_œ¾V(ù â’Ë€EOu7{õà¿'ðÚ2IO¬¥'ÖàWÀz=}ÖÃtËàGsukÚñZ³ðmö zåÊà8û§¼ûàÈhap<_5KÅ‘ü®áâ°±c×Îù¡ALà,ëÖ`Íå‚\}Ž~s-ýæ­?ªå*K¯›Þ÷ò°Ñ®R©R²C÷Ÿ ™¶@9¼¸òêºÎ‚ïøþÙ²EŽñ¾SG°¬iù‹ (‰7W,*DG¬‚M}¯õ¼\IÌü÷>ð³O~?ÿñw.°˜`;÷÷Ü}ò؃/xuÿO¯þC½ ÛY)~fÖ4²jáÞá f‘ù¯`æ?i–Œœ÷âÊÚVL‹”\kê(ùs)ù¤ÎÀª¸$h¨³ª­V×@–Êš¦©.ŸÐK¦Þ¬òîB>t5æIÚ*¡ä× ˆK‘Jn¸‡)„š*w™gŒ’9m³ŠÜå;fͳH[¹œäKØ#ò‡!+T›gz¥f%I˜¿"n=”¶Ú(ùQqIªmY\:=0âå ¶x÷MÓŽûbx¶F¥Ûoô–jÖD¶¥kÃñtÓÒ*:m@ݯc{컺¥ññÍ5Ÿ¢ýh?š‚]¦¥t~_˜6eÎ`¿ÚTaÞoxFž±¸ &Aø ägâfD×ä„9\r’µRœG°uà˜S̺ž>eŒ9†U4œGÏ?pêö;<8þø}':|‚šÛ'çÝÜËk&Ó·àv_ÿ^­öQ«Çñ¬9©e®µž*LëNF¼×ß¿ègú‚Ù•…¢•;í™ÂfœœexƒV¥ÌjXoú´>·Ç gÌ ”Ë¥½{°o¯vû)ú wÞõŒrŽªÆL_Ñ.ßò¿S{>,‚ëÃ}' jùDéçúµmÛ´EÌy&0òÛ'&ü£`ö¹Ǭx·g?t‡>§igù¶E{´³“¶Å HcÀ2f e–8}|ûŒÝÊåÙÿƒ"czª/{îÜÞ}ƒHIiEšØ¨1õµú~ÃßRû‘sÛ5:¨‚v–ñŒ¡Ì‚×~{¢o{¶AEYöÎ ?Ôî\X´ÕY7dèÏß ùÍQ žžXtÖÍꉒ­‘‚³¢šJÕ7Äúyýó2ìÅÚ¯»³O_hf1„R–‹ÍS 9GIªMp«÷lË2üzç–V à°æjè»t3Gžä«4#¯f©=_¿évõDÑà6Dz:$®èìXÔ†y)dL<ˆKÒu,ÝÃLíö•âŠ‚ó6U0`˜Õ‚I(®aÒÀ!uÝS¯=uØg5k˜þÁ•,ö­b9vehhìÔø}G²‘_l%´F8y<ö‹íÔøs3zÉÊjs%³ÌÞÐÿw®¤çI¦iâ•!Éþ"0öÓ„¼36ûØ—¼ù¬Vš-2Ø%&3Fil÷îÜîÝY}»dZÆØPèäìPÒ½ J˜ƒœ“¶íŽÐÞŠ¢í5kS²ƒÀQÈrñnWô¾}"°xä›62«. [CÊ2åùªŽn/¾‹£ä»ŒçâîŠKguó+f®H¬gzК­g‰˜/añì ø\ r½Àõ‹>ΟœOª{©'Yc›5¡ô5²]ÏAëšo 8/Là^¢±ÝØŠw5wÚ®–ŠþÄî`În1§4"ï-¸Ä Ÿ,×oª“Ƨ›¥¨U„o¾ò[•ù‘î½Õæ›ê> |ä·Å.2û}=Wl×5i?H¾;4ŸS=mÏÖ·>…Rý}0ó¾‘9‰ì{;ð ÿ²ì =í°ø‡ÿ0}/Lø-q¥ïöÄžûäÜ^×¼)Á«Øä ãˆo!Ÿ‘æÇ°M+øq gÆ(Š.Î|œÕ¼…S² 0ióûk÷CÞŸ¾ySòÄ•¾y¯ƒI¯KÖ¼g¢š÷:˜ôºDÌ{x¡y/µ*&ªu¯ƒn o|KòÖ½½…ªG¶Pųîu(\îWRÈ$¬{=,z}¢ÖÝíQÍ{}G-Fõ#úÞɨ¾)¡ÜæÝxÒDTÛ^Í/yÛ^{&ƒ<–¾mÓ3·ˆ+}ÛfY%é¹õ¨¦}1Ì™0¾çîYÀg#L[h~IìÅNÜÖ·BÞ*­ÄnÜ êÁ %mtöœ?65‘Ù:<ÑŽ>|Ò:»uøÜÙ­#çÎá{½#Ú„g²J Ìadn$ä•ZŽKÑû\ÜyOÔ÷¢'K-Ÿ(ŸöO¥¯YLwˆÅÈŒHß½ï½2¼k6Óµd\ÈæLÊh4mF¯ÈÔ=Ñ–E!ÃMʸ5O5d¸I­b:—p6bAhSî4¯àËc»Ôå—Å”S]ÿ–hÉï^¯yþÙ“Žñ$íUGg~dª•Šáh%cÒÓ F©Ô5|©>Þ±h×ó¤ÂJ®øä'Ò_(y]@\é‡/x9ó1Áð%5|!>½À—jøBÜÖœÂzŸë€RøB|÷ ¼Û¾(£‘@ø¢Œ[¤ðE­b’ _ÔóŸ’_’VWóð%ÙT[„/êJŽxw[xøâ˜SÓ’ñ‹Èõ ÈO$¿Pr=@rüÀ!rüBÉçÄ•~ü‚‚Œ'¿¢Æ/ô+½À—jüB¿¼øã¿Ðû\¼âú½ï6Å/Êh$¿(ã)~Q«˜äâõ<ŧ$â—¤ÕÕ<~I6Õñ‹º’#ÞmÚýR²gcu¿ˆTïH­û•™O@~"ýð…’×l[÷Ë¥¼œù˜`øRŒ¾Ÿ^àK5|!nk?Ná ½ÏuÀ )|!¾{Þm _”ÑH |QÆ-Rø¢V1É…/êyŠOI„/I««yø’lª-Âu%G¼Û´û…‡/1º_D®Ot¤ÖýBÉõÛØýBÉçÄ•~ür/h>&8³ËŽÀ¡^ ú™]›0SŽ]­Ôçä:4Ýöô3øIÓq=þÀ û<²½Ó{¬Þùžäíý2Ø8á½ïMßÞ)ùqq¥oïaã¶÷‘¨ö¾6¾1{?ÙÞ]£`[Å¿F¾–·NÖò¢üFùFXYK‹lð”üIq¥oð›`ä›5øZ²#Á¬(¬;Sdñwð…Ez‰¯&š¤½]4fÒ´ÕK°ér°Í¶lßbûëÎTµlXž«éy{ƈjø›ðáCJÞð7ÁØ †üpú†OÉ?" ®ô ÿrûå‰þr¾J]‚[/p]Gm…†"Ó?]3}Úß×,09w‹Ù´cúµæUÚÉå[j±OuOXZiZ…RµhЉ§þü î$Þ{ð,ä³É á¬2ÿà÷Ži Jþœ€¸Ò/›Q6'[4øÆ Üzñ‹F÷NSA¬vÚ`öìÔìÞ_íaÙZAw©¥Kkó¬Ò<ÿ³Ÿ¬?o³üÀH\zLo[‘\w¼epòœ´B­;&2¯¾òk•ÖëŽ)ÁyàsŸ‹_\£:+JþuâJÚYQr=À×C~}úΊ’ƒ€¸ÒwVWp‹ö19gµÌßÊE‚Z/pmGm±¢jü¤iyÆ”á,Ü"VÉ—uk^+š®Çjeű¥ª_a7lnXwM=àoŠ ñ‚ É+`ö„EÈÅô‹%oˆ+ý" ì ŸdŽv0’`Ö T߆{dn@Ÿ3]fÔeÓssÚ±I­jÕ6‚Èúœ©±è•†/ù…‡öq ‹o8Á KÔ’p%ž#< ùtò%áJX?áÈgÒ/ ”|I@\é—„«`ýW%[棗„«`ýW%SæeJÂ|%á*ý@ÉÄ•~¸FM²`>z¸FM`>ýp ž»&Ýp Œþšö€k`ô¶­lÑoI´,ó÷/• Ö Tß0~]‹N¼m`´ŒëMaÿmXñpmÞ¿MÏûCžšî:+BEö#†^˜Ö UgÆÐXÉø¥fÎ,³RSšï׌'«<íᨇ²ãbà{ ¿'ù‚³……ð½ß›~Á¡äß' ®ô Ž†Â¢%ZpºKÞ¼±^`ü9ËÚLjŠ~¾B=Û†é]£3ƒö éÁ‘=©• kÊ›–ÉâuÀ; ß!­ëàܦl„©½Á´ÞÎ3!Ô[Ná%ÞwOA>•?=±h òi7¹9¼Dø>ø}2Äk&ÔÕ!9‡W¦Ë&2g"OÝUF©yª!SwÕꣳž!M-&ÔØÛ•)Í'È&›j‹ ²êÌR¼;Ó¾2‚÷Õ Û Îòûej[#S·~¡vF¯Í?(5Æ(¾û×!]Y‘”c$2ü6äo+´„Ð1FJð·ßüø1QÔˆ’ÿ®€¸’Ž)¹à÷ /ýˆ’ÿSq¥^Ë-ÚÇ$#ÂÙ¢±^`üˆ°g¡±šOš5‹Þt²!!½Â:àï¼€BBâ}ð>È÷]!!¾_ ~¿ ñø!¡2êBBe”"…„jõ¡<$L:Sš‡„ɦÚ"$Tg–âÝ÷žwHÏÛúó1í­eÄN+ßmSî´Y8Ã\6õ—mÇÐ*KÑ5jÓÙè`…³` ÌŽ«GžÆ/æÏ!ÿ0ù…’ëþòÒP(ù¿WúJŠ8a‚JÁŽZ»¡^`’ cf;ÉF(ô ë€b„B¼ï^P ¾_ Þ¦E uŠ2J‘"µúP¡$)Í#”dSm¡¨3Kñî'–ŠPª4û‚»JhzÑ𻤦}>Z´RÔ Pð: QØO XÄìúwÈÿž|ÀBÉõ_„übúK/gWúËV¤L˜àè´h¥µÞŽúž3jG§ß†…VˆLò†7k–6äÛõðÐÐÂ…W´ŽÊ£¢ƒizT.üh¡ã—û–æN¹Ö1\°­I³h°Â¦ÑLqg†|ùǧ“zµäQëÀ?Í3r¢Œ¹øÈI¾mE±!ü(ä¦_„(ù ˆ+ý"tŠÍu‰¡?êU‚\/p}GÜ“"—- usc!ZPdJvA÷ë(”VQxþ„‰w¸x;äÛ•|9tŠ:•O Z÷‚üÂH#tP„<|rü%Ä÷r÷µÐ5 ±äT­u§óC« ¸äç©ÄãKµM·¶(›lA"?~ò'•©¹ëÄ0Gv20ù,ð!ÿ¢BÿZ°‹aêý9à/Aþ¥øþ5jíBÉN@\I×.”\ðó?Ÿ~íBÉÿ²€¸Ò¯]®ç¶ì£ÚÚ¥uã;äØn¢Ñ T”­·y¯Q°³CT›%V5ÈZò6{=ì”PèMÛf)ù>q)zûÞ‰šZš¤½¦¹­£¡E“vlƒˆK²´Ü—Îv”qÅÌ•,ó"øðBÙ&…,èð×Á³¶¿Qa픈Œ3ÐarVY%¼GƒõÝväD_Ôú˜8o…|kòõ1%7Üyl%öPg¸„rC>¬L9«kʹ{\J7wï‡|:º9|ò±uÓ•‹ZÐ)ýA–j Äó7ý\­5Tã…W0s4ºµÞ„+ ¯x‰¸â´l pEòæJÉ­^ ùÊØú¹:Ë\>« ª®Wk×7Ç’ÐÚUÀ]w©k……üÞRU·÷CÞŸŽªv@>[UƒµaKž0ïwDJ(ï °¹¢Ny¡Çš·TÞ,p²ÔŽ9Ñ•÷$pò|lå¨)o©óÓµŒi¹ž¡ýºx‘¤$Ôùð× ÿZ»Õù_ü•tÔùàW!5¶:sÜmRŸVÃkÇ…k3¦.³k>qýuàßC–›’ÒtHøì-•÷€ÿù_ÒQÞ?ÿò¿ÆVÞ‡k5ú'k­¦+Ë­Y´Óº¡=§jˆ^WpºZ^§NMö+ºfÙNY/Õ 7mãã˜ùªŸˆ¿ùXÍ…ßÖƒ*óó2æòo;ßÇåN¹UwêªÝΟ~„Ë*—­¥óýÀr¹3þàÒ|´î9¦ž:?ü— Ûê’;ø›\&LCO_þ'.ÆÔÓÅõaUšf0¹Ft~ ø'\&L»v#×m ÛÚºqh‡Åê5 Jk›!oNÞx)¹•À+ Kµþ’k†µ+;!ïTçgôÈ~†ˆÜ¼ò­é¨jp?äý±UÕ••ÑÇàAÈÕé#ôÜî–ú8¼²ÔÒíèú8¼²üäÛxú¸ xòquú=‡´¥>N±^Uá¼Ã–ú8¼²T¿kãžÀY™Þâðpò„:„®ÖR'`r1< 4 ÇßòƬ6;m²È¨hX¶gð~£Tj8ðM ÅMŸ‡ü¼4á—Î oô>oþ 䟉ú^ôDÊ'¼ß ¼?.û6ÈÞÕ!9Ñ^NxSÆ­yª!3îÕ*&˜„Ñb:ò'¼©ç)>%qÂ[Òêj¾ ÙT[¬PWrÄ»~››Ó”<ñtÏœ1Jó‹»1c¸›o@þF»ÛücÈœN½ýMàŸ@Žßy Û~øÈr›^(Œmÿ øçÿ<}|øÿ¢Múø>ð/!ÿ¥2}´8t¯¥Bþ'ðï ÿ]: ù+à!ÿ°ÿ ò?)TJèÉp-•òoÀ‡üïé(å_„üb|¥Hm^”õs’ã2.ÆPJ3å,7h{È‚· ÀM\&T¦ž’i Iv5ðr.¦`nær§TÏjCο¿>ÌV[Xä;JI•ì)Í.]Í¡…"õÑ7zÀ²­‚ayŽ^Ò¦ç+†3eØeãÕ& Cqµ {¸ø9.wJÍoé5z;?üÏ\&¼½¿#ðþÞJ½jh$ÓèUÃ-j£W¡bmô*æ)>%×èMT]¡ÞSmÝèUTrÄ»Ÿä^Ž˜4t/uúÛ´>chº6YÒ=±&¢¨“Ö¹[¶Ç¾1Ió=¨EMljVùôúzÝäO±Ÿ÷Ç r4y X'—1sFN¦]dX×,— ¹šUü\¿±Sã÷‘e»^|ŽË]RG»EZºæ€¯ã2aL º¦¿¦éi6é»èè³ÓÛ¤„Òº^ü.w©ë] ¥=p×I)­ýðW¹L˜†ÖÐ}Ôõk\î’›¥(Þý5¿Ä¹bèÈw¥0­¢Y SÒüh{$ÑâT·?çÏŽh8%›=e8ÌcØÕ`ÅÌñ»Žá¨…š.yÓ2éôf8çCCw§‘ç¬P¾}c·ÇånO™ÚVNÅ-_-O¢6Ú°M‹¶(ù.qI©åqéäØu‘€¸bæÊfMÓ°K“Sº5¥Ýo…i/¯W GËD¤7En†,ײkæ€6ÍÎä÷³f–ΪÊcŸ6 ^Îv¦$H^ Ü YjúJÓT—³à™tHºWwA–[½ ÞÞeHéïî¼G™’¶L{^ÅÝ388;;›‹ ¬8•Hî>ù1…qjÕ SÕ^àã­ªîþÈþ—<ÌCÎ+ ˜õª7m;!Ž†JïPG[Ý/%ß%`<÷»>.á~S€¸bæÊæ~gtK»Ý®Î4ŸÛ°²Úí9í Ûž5é<™²Î>º3Ç>ÍjÛ´“žyÚ¢‡Nå´ÌðîÝ£,¼8 åM1EtÚ u;y¶FEp@·ôÒ¼Kg œƒ¬r‘hHåBÉÎCžoCåBé?< ù¬ºÊeôf >OŸüLò• %÷2೟­ŽÕ™QV·  ìØ%Uˆ^ |òóÊs}³je×Í£;O»nnfhôæœ94±V!ªï~ò’¯U(¹·_€üBúÿ¢€¸½ýª 'Ø)°YgÚ0×qÇMmmÍQò]â’4ÚØiÌùø»¨f$‰}ÔvB%„ñ÷Q ›š²‚µ"sUË” ·¸òF…Å6dnÊN(„pd•SbB (¹à奦Ä4î1,3‹Œ(l^ ùjåV±’¬bªT.K°»8 y8³¸8y$³¸8 yTA0Îg*’6iòJƒYJ$¢áœÚԣƭ=šœê}€‡^hð5_£,?WN¸†¡—\;Äû’£ÛÕÑÖ:‰’ï0^Ô{¾tBJ©7~•€¸bfË¡­[·j41±Z¢BšÛæ˜î>ªÈ·óYjߘÈo²J%<ùPì79Qd¥b߀ÆçYfj+¼ÇÇû²šnŽyÛÍjy&XÆTV+˜cÿ“"üOØ÷õ1öO._˜êüR{ñ"„' ŸHÎjCyìCÚª)=—‘™ÐôqH92·1ð!¼ òe±¹Ý]*ÑœÍLÃÞjYmÞ›7³ÚŒ96cÖ•›ÕJ³Å±á¬æðÉÇNÈjs%³ëá?ºáEð#{¹ºÎ5í‹x­Yø6»½repœýSÞ}pd´08ž¯š¥âH~×pqØرkçŽüÐ ÆYÅ0Èýo.ÈÒç^„ÍvÞú£Z–²Äºée¯ )$Ë˺çQ'`!WC^]WXÝ´Ý}¶l‘O¼ïÔÑLÍYþâÂr+Ü\±¨±X ’U’õŒ\IÌü÷>ð³O~?ÿñw.0—à”¿÷Ü}ò؃/xuÿO¯þC½±5Â3³¦‘U ðÆ?Øh-‹l³ýI³d´xä|›ä–^nÖ$*†Z™æbürJ©3°j . êìŸ*ª•À5¥²¦iªË'ô’©7«·»]y’¶J(ùuâR¤’ƒGMO7¦èZãuœºo\qwÆCÔ’.ñã…¨e}È®íîwœ©Óœ‹ø>ÝP!á1ÈǪÓ3½R³&tEûÛ8uv4lã”–:)ù;Ä%©Î…ÇDE¦ÓãP¾À‹wi\þhm¢MÝ,²¯Yy‘‘Y¡ndeßÈ").ƒŠ ›ŒË˽X×ä„9,8&W×w³ÚP‚X/PèÜ•¬íŽ¿]Y²§ü-/<»vêÊì´!S?ÁuÀ~Èýꪃ°Fshu@<†Ä•tu@ÉÝl²ÖUÒ¢3¼{©IÛÜoocû^3òñœÄrø䇔)m™Ôö¯Äå `r1Å= 4 ±×¹„ÒŸNAN¡ñGÉõÛØø£äMÛÖøÛÀíÙÇä*„eþ´ j½@¡oP²JX8”q‡íÏRau«¾¥c´ôjCZÆï!dÍ>cF·<©Š Ðû¡$>¬Ì­¤É2›ˆ8 Ye§dˆ?¢äšã—„èþˆÒ? <ùŒÂ×ñG”\°¹”¾?¢äËâJßÁ¤ƒ"›?ê¡ùMÌzÂ(«¤;ZØ¥0BŶ®>Þù†6F¨ô+ÃâJÚ±Pr7G Ä6éy¡Ö{ ÏxJóV]а¨Qûù>üƒzOG^/œ¿Á”N; 4|1fÈK¯= ü$äO¶9ä¥_ú,ðó?ŸŽ%üð—!ÿrlKXÑ/Õ;E$~ø%ÈR!*{§è§þðw ÿŽ2Ŵ袿 ü]È¿¿ú‹ZùSòßWÒ•?%×ü&äo¦_ùSò¿' ®ô+ÿK¹Eû˜\å¿œO!–àÖ \×Q¡•¬þnŠ´¥Eõ/qB<‘Ü‚<ËÉ„fä=‡%¸ÞYj eHY«ï’¶îÅ…„¥ÖšÑ1àAÈe /úåÀ;!K-ãŒVRrÃÀ» ß»¼_"6éØeY³=|òãÊËm)#‹Àr 'q k[JÈÂ)¢= |ä7I»ˆE¥MÚxß|'äw*4±iÿ¡¦É>|äøSî® Ö† ±tÕ æ‰JÜ»¿ùW¤iÆ=TtÅøãgç²sÁŸËÇa=òJ-—qÒûü*ð#Ç3ôDʇŠßo ¼¿)ûV‚º:$UF£ùI(:ò‰¢Êˆ5O5di¦Z­t.ážk¥ MYÓÜù¶,‹íRWóE“MµÅ‰¢êŠxW :[ ºåÏ ¡•83†Ceà"ËBþ¡²ÂÝs¢ÖÐÄèÿÿò¿*TXhë›üðß ÿ[üögÔÖ7%ÿÿÄ•të›’ëþ;äÿöQ[ß”ü‹âJ¿õ-ìKšäP ¿dW‚Z/PýP ^[Á¤—ªs0Þ¬ÁâÉ!¿ïvxhháÐ`Á¶&͢ߧkZžá°¯ñ…È‹úlwß´Ws£»(zÍ‹OB~R‹š6"ŸùBL^ |=ä×+,¢-íkÆʦ[àõQ;6‰ïðYÈÏÊò^ôËð ߻خõ·?Ç°‘Ç0‰Ëïüžä)%×|/ä÷¦ïH)ù÷ ˆ+}Gº‘:ìÆä;Hpë®ëˆÛ¹ÓtmR9Æ)cѬ ¾bšÆÍŠìÃ2{°RÒiA){®¾¥âÐ׋¶ÅZûŽ]µŠÑWšÐÛnÎCžO¾`lDa lãšiJþ¬€m[3½ …a“ò‚Ѻ™²÷†p†Š‚¨baYXoû½÷º3UõWDµYbu1Pƒ¬%o³›`§„×B¾6}›¥äûÄ¥èí{'jji’ö*˜æåÀ6mIr9l<@\’¥eg\:›QB”^ÆPH€j”³‚9³» O‹HæJ 6²Y!M&Øõ8¡ÿ8è,–Ó²Ÿ˜x¯^ ùâ¨üé‰EýÄ+&ʧÝä:Š‰ðøâñ;Š•Ñh>Éf"3¹‹X¥æ©†t«Õ‡0àqk6eJóŽØdSmÑ«Î,îR®k1Jê&È›¤¹Äbë­hžI›ÓT‚0¶2W‘u—ssJ\g²ClÄwPà=(Ã[çTB£©ç\;‘©+ZÊ…*áÙ…ªSÌR£lbAhSî4_:^Û¥®pçž\ªK8w5%G¼»][jœœl€½ò}í çe½üýÀÇ!?~¡ÈOÄŸ!®ÆÍ+¡ ÏKyw%”"{wuúX2@3öveJ¸M.Õ%|¨³ïŽjEò=ÃïÃvìÙÁ‚]ª–­°?e@‰¿ò[ÛãOÃf".éOß|?ä÷_(þôñÈWãO•Ðó§sRþT ¥ÈþT>–ô§Q§')áþ4¹T—ð§jÌR¼{[àH3n?|)“Â7Ž¥›þ®u¦7f ^æ/ ÿE{|lYÖÇ~ø·ÿöBñ±'ÿ;âj|¬a>¶,åc•PŠìcÕécIfìíÊ”p›\ªKøX5f)ÞÝ(Ƭ%Úò¦ÉÁÊ—ÜÎn.wÊ ìÓݶ„¥=À5\&¼ \fçZøZâJ\¦JÃR5”¢ºL…úH",M4SB]f‚©¶v™ŠÌR¼»]˘9#—]0¡­ºý²agìÝ!Mö¥³Þç&à\&Tà[(ë¼Kà}— o5®U ÕkÑ”‹ì`Õi%¡µhêI6<%µ-iu…»þäR]Âõ«)6 ¥T²Ï¶FåP¹§ÍŽ}¾Á±ÏK;ö{S\ƒc›û´À{Z†·Ç®„FKÇ>/çØ•‹ìØÕiåüû¼ŒcWK²á©–e±]ê wìÉ¥º„cWSlÄ»ýb7ˆ?­ؖÒ[ÍûÉ´JEªg¤F÷yÐ}^šn[fw¾ø^.wF^ÛÕ®ž‘÷ Äß'C\—WBCé a5”"ûwuúHb†p¢™îE“Ku /ªÆ,Ìi§$6DÉü$Èüdìù†>ÒwŽ0çø(9Çb“Ðøò¼6¦¡Å÷ØÙásZc¬¼Ñ¿ï7¾Ë ÷kñbçŸ~‡Ë„ŠÜj1Y·ú]øweˆ7+Æ Ì®šx$L2ñ‘Æ‘Ýú| gÃ-·MyÕ”e´òÓ}.›(†»êä’]ÂU+I¸A'´yÓ(]?àu=Ý*êNÑ|ŠNtü½ˆcŠÁ.Í.ØÆä¤Y0ý³Ï2E£bðÈØ?7Pj‹jáº2\&¼¢â®~à— /ˆ¨¸kT >*C\IT¬††Ò¨X ¥¨Õ„B}$'š)¡®6ÁT[»ZEf)Þ5j½¾"KÛ]TŒ‚gÎ¥ù~¾§eà…qâð¢)Ķ>.uiµøúŸÄë2öëG^á},8@u+¼OEß!ôj Œ·Â;Ò<ýÐ-ô‰ÇZq)‹~B¶ ¦äV×A^['RÃ)Wã9ÂK!_ªN#aS*ZjäJq¥¡‘Ë€WA¾*¶FŽ:*èVñœšÎ>›Ö½à±ˆŸšÄâAÝu«eî tÄ÷k¬qÆŒ¼løjáªÖQ•–Ã*–Z~™€)ƒKÉÍÏu¨:wR›&]6ts ëU,½lЮIí4¿Ïmi”%›27ÇÕQèWÚF¤A_ª1¢^ÍÿO"ž½{!Ëïâ”~Ï ñ^¼räè¯=/Dø2øe2Äã÷¼(£¡®çE¥H=/jõ¡¼ç%éLiÞó’lª-z^Ô™¥xwGÐ)ëóÔ”aqN¥J‹æu:5„…+ºF}+,èqõr¥dHLð™ßùöö8TKÖ¡ŽC¿PêIøIâjªaÕ’r¨J(Ev¨êô±¤C 3öveJ¸CM.Õ%ª³ï£ÙptX–›ÓŽa¥uùÒ,ó¥µC™ÄýžáV]ó)#V߀ø:ïƒü>e¥,Ô˜BûˆÇO ˆ+é¾JîýÀ@þHl­>áOÛÑ‚ñˆECAc?#÷‡›þ¨²Eìßü¼Œ²?ÊÑ_MúÑŽ8«IãN˜™ðŒ9ïìýºsî‘ü£Ú˜61­³¯¸æTY?÷ØH°š8ûß¼‚}‡ÅeÏÝ N}¬©;±sçC\&TPS';ßžø>,ð~X†·’ŠZ ¦.äæ‰Lt;‘©ÙÕ¼CÔš]¡—šË$SÞÚ”‹MùG/õíÒvhÈ’`ª­CET¼»2K#éŽLGY6zÛ*¡ì‚B0¦e†µ-¿óüúµA—›âdðÍnÃþ\;z®8)[ûäŸæ2áQû|FàýÞjj%4šÖ>C¬ö‰` RõŽö‘ëuª[ªÞ‰VÄÚ”M™G.èíRsx…“\ªKT8jʤx÷z´4Ãe‘ŠN݆ãS³¨Q%1éE¤ú-PýVÛj£‹V5]òuÊÿ—;#°·©Nù÷ßÈðVS§(¡Ñ´NY´hd+ %Ô"Wêô²T…qQœÚ@-Mñ©ð²Ø.e…»ýäR]Âí«)6âÝXAÌ}¿c¸f±ª—؇SŽÁWO2¡h—µ ?èN—k“€y×5\&”dg¬i™5P–ôù][€Y.*ðùÉ7u Ädˆ+qújh4uúMd|ÍÊ8|5´¢:|…:YjÌ©¥Ñ·+cBk‚©¶v®ŠÌ³á._ £ÄŽ€ËH[Ü¥ô\'=á>.^®rL >&C\«TBCé\'5”"»IuúXÊMÊÌuJ4SÂ]dr©.á"Õ˜¥x÷ª`•Ù±[¹Þ†ÃÁðÁ¶8ÎnVåʺ·€E.^®Óˆ2ÄÕ¸N%4šºÎ~”)å<•Šì<Õid)çÙÂàÛ•-áî3¹T—pŸjL³á®t„p9 .§/°ó Ðãr—w¡¸Éª@¼*C\›TBCm„©„Rd'©N‰D˜IfJ¸‹L.Õ%\¤³ï–ïcÀCÌ~>0˜ȇ»\¿ƒ³q ?#ôÉ*ÝplÛ ¦M}ʶô’f”Œ²?ƒPj~í•ÿ ¯ügÒ¯w€lMæ )>1HÖOÿ9ðß¹ÜõïJütâeôw÷‹2¼Õ¸i%4šºé‹Lý“rÙJèEvÙêt³Ô`Ù‚Ѧ j¾ínËrÙ.¥…W)É¥ºD•¢¦‰w‚Õ†ëQÕá™®g\-c6¬+ðê÷úk‹Ð·.¨ Ìè¥*v¬ðkq­—¿‡«·,of­ë¬Ò™wM7§= ü#Kºß€{o¸°‚ÿî7ßÁe "øï~§@ü2Ä•Ô*jh( þÕPŠZ“(ÔGÁ¢™ê©Lµµ§Vd–âÝLH÷rãʯ觉l¿¶_TVˆV2¾c§Æï;V¶[¬ïêþuàos™P‘öZ­ïêþð?s™0¦î®ñëMqY^ÙÐ-7h~Ihìw€ÿƒËÝòÓgbU{Ùj“hºÿ— /ŒjïŸâÿ$C\Mµ§„FXµW‘ªö”PŠ\í©ÓÇ’Õ^˜±·+S«½äR]¢ÚSc–âÝ Â~x¦%ë.Á«g9— /¤VBÏ àz.ûx!¸Ëž‹âËWâ.ÕÐPÚJPC)ª»T¨$Z ‰fJ¨»L0ÕÖîR‘YŠw/ &ÄÜë¡FízP»^]‰ñcß°RÜ¢=ГqÙÇäÛ=Û€Ã\ö1ž–¦4ÏÖ켧³­ÕVÿ¦U(U‹Áž‘¦åNÁ¨x~kbÁY †~2’ƒé=#ÀwsÙÇvëýCÀp¹GjÃèzð£\ö1žÞwRÞ²½úμYÞ]Ú¨Þ`Ýš6k–JÔ•*¡Ç¿ËeÕè±ëÄ%þ9ð/¸ìc Jüðû\ö1ž»£ïëNþø.ûHä­0û¸6kˆ+n~DßOu+'ì†,µ¿LÓTWM¸Õ¼KûøÛÍjü-D ‰÷Ô¯´•AÉ/WÚ4®CöØ6›¸‰_×&ZŽ‚n⽸ò–¨üÛÑ@„5¸&C<~€2êú”QŠÔ VÊû’Δæ}ɦڢ@YŠwõ`·]¬ƒ®–ü‰~ìcªû‚)ô‘8“Plx.Ü[ÒßL#˜hFnWŠ¯ùJȯ¼À¼ï«€¯‡üú Åû¾A þâj¼¯j½¯J‘½¯:}$â}“Ì”pï›\ªKx_5f)Þ}?íºbÛ%£ê`kóè–ÜòÕ~Kø>æ{4œ§ËWÈ‹Îõ\&TTD;ïsa=FÄcSƒ+é#Jîbàå\&ŒiWòéù¶S4Rk¼ª´s3p”Ë„mÕÓž:WzÚÜËe˜zº+(Võ¾uê¨÷ÂtçÒdϲ]>»µ¢;žÄò z“}À×r™ðBŠ‘:Ÿ¾…Ë„DŒÔùVø[eˆ+‰‘ÔÐP#©¡5FR¨$b¤D3%4FJ0ÕÖ1’"³ï^£ñƒfM×ÈiGmG3æüƒ ²š)å:ŽŸÇO]`®óÓÀ_å2á…á:M þk2ÄÕ¸N%4ÔºN%”"»NuúHÄu&™)á®3¹T—pj̲á._£¤~\¾,Í%îâÜÞÁ;ðI÷Ž¹²®ó?ÿˆË„ \g²Ër‰ï ¼ÿX†·Ï©„FSϹv"SW´” UÂ-² U§˜À…v…˜ŽXÚ”;Í÷À /ŽíRW¸sO.Õ%œ»š’Ó úþbx“?™?•.Æ¡~ŽÖK0û+àç2¡"3íÌJÐùŸu .I:Ëú»`=žG“àöCà¿q™PÒ¢zpw?3á³%©ŽUÅÅ ¹B¢Îö+ëG¶ŽL<Ê?&%×­UÙ¯š ÓÈÑ&òÆ”iÕGŸ?w¶Àþ;§ kÛüÿMLhÎãgG†Ï1yXødÔÿ„„‘࿱#¸±c$Fù†UD"Ú„šy°‡‡ y^RÄÔ›$žþùÒ@Ò²Êÿãؽ‚Ë„ "”•,BñŠ1JXE³Ì7èÙ½²NäèÔÏ»9ñ°°È5žšì ‰ÙŠ¡U^‚Év3d¢-­T2’NÆH˜y„ûµ6$0ñÒ²Çó­9Ê< úÌŽÿ9 ™ ü¿Ô L3(ßT_¢Qü“8:‚H]ÜÂeBIrqz©—s%ÍtkÀ— D3ÉwUw Äeˆ+épQC£i-Õ;‘᪕élQÃ+rÝ¡N)K˜­Í¾]9î·“Kµµ Ud âÝ.™ û5Cà1Ô6o9*ï-‡·r™ðÂð–ûâûeˆ«ñ–Jh´ð–£’ÞR ¯ÈÞRRÎÇ[†›}»r&Ü[&—êÞRŠwå¼eÀãxh›·Ü!ï-ïá2á…á-ïˆß+C\·TB£…·Ü!é-•ðŠì-Õ)å|¼e¸Ù·+g½er©.á-Õ¨xWÎ[<ÆÁc¼}±åˆ´·< Ô¹Lxax˼@ü— Ôq‰¯éþ²ÀûË2¼ÕTqJh„­©+ZªšSÂ-r5§N1K® B›r§ùê‘ðâØ.u…׽ɥºDÝ«¦äˆwÇÎk7™Æ ,h0ÚÚ"ò–¶â+ü+^á_c¿Bä='3Üþjˆ+&Ÿã{NŠgªšOÅÐ}ºi: ëÑfÍâ¡wEÃ-8fžþÈÛ3FVËW½óÛôçüR͘9#¹?¯¹Døs®m•¹êsZé­~ø5È_»ªtâûu÷×exǯҕÑHæœVeô"Õêju³T­ëœVõTž’:§5i¥5¯Û“MµEÝ®®‰w¯ë§uÿþDt±ŠÑµÉªåot.±å”Èôo!ÿmÜÄã ˆ+é7%÷wÀ‚üO±öþÆ€[ÂÃÑ2ûwôkU78Ö£\-y¦xûFÉó7j¶‹Kê®OÑñ!iíN9ó¿9Òæ?$ÇØè%2øÛþ— /„¶9ªñþ” o%!ƒ‰… jèE ê&éA1Õ†§dC†D•2$˜jëAQïÎ-y´ûS±vÇ&˜U·Êj˜²nY= ÂÛwmã2aÚ= 7pë­¡šž„µ¼'á˜åg¹‘ÓàA¸òZiNéïlG¼×/‡y;ݦUkƒÈDx³@|³ ñøu«2êv¶SF)R}ªVÊw¶K:Sš×Wɦڢ¾Rg–âÝZ¸­¬8jºÓ¬å xöÀSšçè–KÛí´Úk=#=$-¾èYÈgÛØB&O ˆ+é2%÷2à3Ÿ‰­ïùZÆâ¨#¶ø&PW{V³-#öv Ozo|zígÿYng¦fVpÑSžíŒ¿ïˆ„5tvWq™0 køHv5— cZìæÒVë:"Ñ+Ç®ð>‘¼^83PS3/àé°çJtögKhµs ð8— U•í°*¤¥6OÕ1¸RÐfç à}\&Œ©ÍåÜéJ¨ä~à#\&l§»íÌ×1¸ÒPÉ°ÀåNù÷ÁÝûµY“5þ¸»­uç V¨Œót Ž¤ š€‘›{ôVEà¸L˜vs/Ë-¤†jš{ëxsï¨É"‰c @„päuP{on†¼ùBhïá+âWÈßÞSFC]{O¥Hí=µúPÞÞK:Sš·÷’MµE{OYŠw?S¨k‹£ü¼î²JˆU> ›€#7•Ã‰„8&½xjXôX´Ë«ÈŒŸû¤7¼•Y]\ê_xðá‚D ¯òÛ[Yq^É^VªÝ@t~ømÈßN>¬¡äþ3ð;¿ÛŠ–ɬÐ! ßþWÈÿµ&ñø+q¥¡‘ÿüäÄÖÈ¡ ÄðjœCºtq*½À_sì¼Ë„RÜÔy#p—;w\ qSçMñ›dˆ+‰›ÔÐP7©¡5nR¨$â¦D3%4nJ0ÕÖq“"³ïfùDbËžež²Pªƒ‰DÁTŸœv;uvË¥%2~ŒŸ¸À©<Íe ÑžˆŸ‘!®Æ‘*¡¡Ö‘*¡Ù‘ªÓG"Ž4ÉL w¤É¥º„#Uc– w¥ŽÒ¹TÀ¥"Íå¥s”½Ï“À×r9ú´M]g²Ó ‰ïsïçdx«ñœJh$p”–2n‘]¨:Å,¹Rú(-õ<ŧ$ŽÒJZ]áÎ=¹T—pîjJNC‚rGi‰dÞ2o’.Æ¡~Nâd bô.à{¹Ü)µ/€š£´ˆÆê\’tÔ¥Eœ> üy.JZ”ꣴ>Õâ £ O¯>>üØHýlÿ/ãË#¸[»7Z¿‡³f|yÔ®öÔá©#‚)C\ÛTB£µÛ”9EQµÈnS^ÎÓmF?H1éÌ w›É¥º„ÛTc¦â]9·ð˜©vºMɳ‰ÿ4pžË„†Û|J þ” q5nS ÖnSæ8EeÔ"»Muz9O·ýDŤ3'Üm&—ênS™ŠwåÜfÀã,xÈ퓱¾CMÇ戬×|ð\&¼0¼æOÄB†¸¯©„Æ›#RNS ³ÈNSZηc3ÌôÛ•7á>3¹T—ð™jŒT¼+ç3o7µ3Ô”<ˆ–ø¿øa.^Nó'â?)C\ÓTBc‰ºÄéŠÊ¨Eöšêôr¾-ôÈ,&9án3¹T—p›jÌT¼+ç6??ÕN·)y"-ñÿð—¸Lxa¸ÍÏ Ä?'C\ÛTBc‰º¤ÛTB-²ÛT§—óm¡K¹Í$3'Üm&—ênS™ŠwåÜfÀãóàñù¶¸Í ™2*ë5øŸ¸LxaxÍ߈ÿ– q5^S %Zè£RNS ³ÈNSZη…fúíÊ›pŸ™\ªKøL5F*Þ•ó™¯Ç×ÚjÊåMü¿ü.— / §ù=ø÷dˆ«qšJh,jJœæ­ŒZd¯©N/çjF>Ð;éÌ w›É¥º„ÛTc¦ w³’¬Õ¸ü¸üY[ÃMÙ=ºÿø\&¼0<ç? ÄÿQ†¸Ï©„Æá¦Ô–j˜EvœêÔr¾á¦Äþ‰æM¸ßL.Õ%ü¦#m0Nî7¥Žý;ý»²b#µ=eϲ:Ö.5ªiµ=%ý¼Ÿìr.ÆTÌš`{JçÙèšéY¼„Ë>ÊQŠ»ùÏêá¡`Ó“á¡ 7‡‡æØr•]Ï¥À—}Œ_Ù%¾PÏ À{P†·’ºN ¦…výDFT¶L}§†]ÔúN¡j–Ú¨±8´)šïëЪP¶Ke¡Õp‚©¶®†•ñîÑó:JHÜzØßýÛvŠ†“ÓHž$¾‹‡wñ”ù‚eeC·\™Jü,ð\ö1ùJ¼§ |%—}Œ§Ö[ëÇQÖv™®ºü ·bÌI~ ²ŸSÁ^B¾úó%Ã|f ‘ðË\ö1ÞKD>³$Ç¡†¸bÒèÖ´¨ö=ˆÄ »!w+³¥Un5ïþù4M¿žˆ!ñžú•¶2(ùeâJ›Æ²?@i›hšêʉ¢áéfÉm’òf¤6¬Ô#g%ß% .I_{}\:#”k⊙+Y=`ivþ4+äÏ %ÝuµˆÜF¡%Â7*«–VöQµjLõE­™ˆÎÕÀë _—|ÍDÉm^ùúØšÚ—ÓN±ºšò7˜-™®§l‹$+Ø«{Ò.•ìYú‹Ò²-Š>öDµ5b¾ ¨CÖÛQì€1ƪZÆ÷Ýžž— Ö \ Yê¬Â¦„~S׊º§k“Ž^6üÓÕœK“Të;S-[;yM3ÇvØ^ãÁÝY­H_5üPf’ t–MƶJó´A¢æ ÐótâepZ7ï|bf8ƒÕJÅpÈþ&Í¢ßeZžá°ç´¼]µŠnN"O×ÿò*,®¦g”C’í~ ò·Ò¯n(ù?Wúeî&”³›-s]3Q‹ÜM(f„« KJڔϡóàYÈrË•[tÌÞ |ä÷¤cϫLj¯¼9?|ä·)3ç§ï…,µë}ts~ð}ßÛœ£OA¥ôßü䨷ÔHK0ûà Kã-c©ÄWÞRø9ÈŸSf©¾ù…t,õƒÀ/Bþb›,õKÀ/Cþ²rKí †#ñú6ð;¥Nn§«Æ\#W4&u—I°þÏÀ?‚,ÕËÐô—ø]Èꦧ¶4ÓÿüäïµÉLÿø_ ÿõ±¬kN•u jÿüwÈÿžV,ë–w©ügÈÿ¬ÌVÿø"äÓ±ÕÿÊ‘š:$¶ÃV;Ñîêìâ2¡b[]á÷ Ë´¼:5à6.¦a­ëÆ@YÚ^;ׯæ2¡{í¼¸Ë„)Økg70Ãe¶Øk?ð.KžÂÝÊ^——ì©»Ì3ÜnÞÅeÂ4Ìuíg,o­;‡¹L¨ÈZ‡Ç¹L˜†µÞ<Áe¶XëÝÀ{¸L¨ØZW€B‚Ý4Ðæ2aözÑX Î .wJïºè—V¸,wæjtS½ø$— ÛbªÐår§«ÜT»;$Aì'€oæ2a:+FWÞ¥¾øz.*²Ó§€Ïs™0 ;õ€oá2aL;•[ùGÞ |— UÛêA)[ý ð¹L˜Ž­Œc«èU¢3 I&Td«è8êü%.wªÛ¥¥­¾ø9.wJuÀ5äðuZÆ1­ÍèöçÆÌÚέj GrØ«óóÀos™PÒ’{ãÆTµ¤;2¬þøß¹L(™qVÖ†Zßr•ñþÀä2a4þôDÚKj‰ðÿˆÿ/âµÿ®ÉeFÊh4︚ȌG^[¤ŒRóTCÖ©ÕÇRkiC½]™Ò|õN²©¶X½£Î,ÔŽËâ-’ùù…¹àÞ[µ½°\øð_¹L3VjÝ5ú#¯Z!ÿƱ«›Ë]êVi,Ÿð§"5Iwåh7°M (ù.qIzÊ+âÒÙC¦# ®˜¹r½¦iwS¬CŽ?ßWóhF$-*ºã¯ˆHu/”Fx=d¹™ñ‘\ièâ‘WÒ¡*%· 8y ~³JËH4«ˆC8 yTJî—QÉq¥¡’@AŽ©’ÍœÔLµ_`r9}—¸ë¾†j<ór惎Ev2cH wr”äw+…ãŸËÎ.„ýõ¨L‡ÞgðjÈ‘‡—š6p’ÝFø^#ð¾F†wüö2MÝ*־኎ÜÊQF,R+G­V–ÚA¡V Ú”5MIµ.‹íRWóöW²©¶h©+6âÝ{¨´lV3Z3†ã™ù’AÂ|™š6k–J´ðÞtݪQÌiÇ°yµV²šmþ"}×ð4]rñ­ÊåªÍ¦ÎÀ2t§R;5~ß‘¨ñ1ò€/‡üòäãJξò+b«ùÒ,9³ÓfaÚWžLo)1z%ðm¥¦·ü'•ÝsX‚ÛÇ?ùç*«E×ÿr© "úaàÇ L–ð¢_~/ð K'D³Û·?ùS±íö’ÚRmұ˲fûiàW EÚlÃêÕþiÏ«¸{ Žn圊cÓòðœíL VôÂ}Êkm(-j¹¯ÿòß««y¥÷ÿ/äÿ«ÐĦ`YÅ¢d¿ üÈR~ Yð ú©ÕvÁ63“&kÅ“Å‘K¢åÚÛ5=sÆ`5^Ù(ìÓ ¦fá^ë{ÏÕ«Ô\Ãú­úžcèµu[½êú,íyãW³ìÿEVÉFn‹Rý+ÇÎp™0í¶è-Üàj¨¦-º’µE ,ŠÈæV0 \ y¥4›ô‡Õˆ÷EÀ 7(iu&<¬v+~+ ~‰ ñøÍNe4Ô «)£©Á©VʇՒΔæͺdSmѬSg–âÝ«ù¾4‹wOðkšxò ²’½gšxÜ, ®¤#\Jn¸òÎØšZ&3‹(ìO/“Ú}¸Þù¶t´2¼òí±µrº>L¶¤•÷A̦»ÚËž¥~,Ú݇v~ä†I‚m 7þ v/ñ7è)/rlGïy øYÈŸU˜ÍVóqï=ÜN:öw¨Œå"‡””|—€¸$ y\::x ®˜¹²™"\»49¥3ºß4 Ó^^¯Ž–‰Hï E¸òfenbÓìL~ÙðôI»¡½+AòZàNÈRnµiªËY8¨›¥t¯î‚¼+¶î¢Oý¦ôw÷@–gmª¤-A¿Äììl.‚²B‚³ƒ({„A~LapVuÂTµø8äÇc«ª;ú|"ð09¯0JÔ«Þ´í„8*½‡:Úê~)ù.ã¹ßKãÒ9Ì®5⊙+3÷{Ð(œ1œ¬v0§Ý‘Ó2ûwôç´û\ªÕƒn¿CÒ1*%³à®W-š†K=GÁædZɤ¾#¾E™›Ó"¾ßhšðaÈ+s ×ÞaWÚyŠÅ$GŠÕ‚Ž¨NÖ6%” «_ùU C“†=%÷ðiÈO·Á‘SúÏŸ…ü¬2mu ï”àóà!¿Q¡:òv©’ì«?ù'b«c]fGVÝ1<ðÿ±÷&`nç™ð\¼)RuRbk(‘ ƒ¹x‹#‰¤H&%Š¤[äÐ3Ó"€†º3Òô!ËŽo˱ã#vâsŸñ™Ø‰íÄŽ7Ž³¾rùŒÓqâ“Íáý7×®ÿúªÞ 3Ývu-îÿë1ü~0¨·ë;êúªjxbǸ’'½ø6ÈoÓ¦›ÆäɱùŒÿØhnbltœáλwïÚ1:¶sttc³¹%ºï~ò—5ªpÖr Åþð+¿ÒýÖ†Šÿª„xu›Æ!¡ñêi{O†¶2ÛY+sÀq] Ç_±¶d0a«3ÛYîÀCž„|R›³ŒF4;4 ²ßš1gmÇMÒ køNÈïì|+DÅ•ï‚ü®Z!*ÿÝÀ÷@~¾Vh|TÏ€„üÁηBTÜ~²RBÀ‚VhŒµBc££ÃÃ,¼+9Ö¯?Yé)ÅVh|tttŒ±Ù Ý/ÿòßu¾¢â> ü1äw?üSñ/!^ݦq§Ðxõ´B¯^Ø e-ƾ²ce}¬EÛÍZ¤#Ô LZ§9„a“ìy–XÐv­²˜­Õ\Ç,ÎXO»“Z2§F¿|8g<3î´JÓtnùj찷̲UõYSed–¼ÜPìPwªðÕÕzšaî´–ìgØç$5V¬f­*­ðÏWi *¿¥Bžà Àß…¬ïîȶŠŠ{ ðK¿”Ø–&ÌÍs—˜Õj9cbb7uÖ'˜ÝcÍÏvÜ“{Œcuϳʬy§„‹Ct:=oÿcÏÄõßØ»LȽú.,\“gß±\:Kß‹˜w c»[«/Æ T|Ÿ„x)Úÿš¤tè”ÛÕâ•°VÎ? •öCVÚ×>QÑ¥ãÔf¸]ÜyƒFo&*.*v5ð2È—i,6bqŽŠ^ùòÄ&QäWb˜ÍÔ@6öiFáÓ–Qa#%»V¦=.oÞÇaø3¦Ïs—¥t/¾ŽçÖ‹>å?+¨õ àiȧ•´ûÉEÄû ð)ȱç®èÝN."Â/‘ˆ¿D…xòä"m4ô%i£^jDr‘^}hO.êt¥„'u¶Ô6ÉEúÌRþt’‰bwÚd:ú¦†cwTŽÀ¢ÔÓ}Sè¨ÜƒÂ ;×QYæÍrQÚ…ÀK!_Úù~ ·¸²ÎîQD?…Š^Y©{´d?¥ÙÉXúš£’U³ª%ÚTÕ‰íô€—ç!Ïk«ß•yϲ̲çDŒȾïÕêt±}ŸŠï“0Ù˜iþ\éDfÍíwhˆWÂj9²Y㱟é>¨—PŠµRu$c(;@=&÷,V%Æ”íz|œ`2+4Ò¨Wƒi°–ÁˆgÓÝ6ûʧ‡ÀƒðÈÉ“ˆâ[ä³Qv€z,ò²ÈÈKU-OJFJx|üéEÇÉîÙŒª}= .„A¾(]æQv€zt9D)8/2už+ WÂ1ÈcÉy#¢€VXT96yt°HƒÈ­LÞʽ*ØdhŸf^V.‹yÅBYÁ³ÊàO(m?Hø,ëSîYü!b“ª€á:È듺”‘zø¢åͲ•aÿŒoƒUÐ!¼²Ò¿‘x„ŸÔjµÉ®ƒaš ×S(;@=z7YhX“%.@.D`±|ÎœçIdaíVìz ‚0Ø=qwòÞ=kBy¾U³ÑÍÌX®%Žo*ÙSØÏAM”ˆ³³s6¯b–Ëñ ä¥àN¨¯·ß@~e¨Ç@ÒMzžƒ0Íô¡—£ìõÔí•i=‰ÒA`˜È‹ÍïàDx%ä+óÛ€©:¹¢kNù㣣±¹½|7@VÊãL¨ÃW¡ìõèp²µ?LÉÒLìâ~¸Y¦Ù·‹ý ÒÖFi>»üJ­Ù±smãùÄ}̸‰`Üx?X`^ô÷ì$3`¯eÂ]“Ÿ³µ†÷JÙ3(ô?_ „k 'Ϲ\Ç!N%…ܾ§Á„p=äõ)¸ÌëPv€{Å~Ý­r+Ëqã±Ï4¦LZóɼ­fCK—u4—®ueT¶XSßo~ä õõŠ)V_ß|¦pÁ?Óò~üÕÁ׃!áVÈ[³}Ø0P}Ôi7‹Ît®f¹S¬?hzN¥ñ̦šŸÐ×èãÆ?èãÆßð(ÌP½OE(%juÝÀe¨qÚ™o<ä‹o>ö±öÀ© [¬çYô=1ô‹Mö H¨oÚ¹€¡Øš™gþ,1ôŒI,€4MÂ?i~£àäàý÷ &i&Þ„‡#,@.$~ÐWa ôÍ(žpò@ †ú” C½… •®3 µÕ]«qlP‰',œ‡â!zÛ©mèÑÄ~ˆŸqÂ[ ß’ø!®àë&³VqœÑÊÐò"èÇ7»·‚á¯HLï6×™«šËË <å–fåXDÖ ÆŒ·:ámoKü—¸t@Íú•ìiÛ÷&'â3û°!”¶rvÝ™~e¨Ç™x&aqÆ*ž“ä¢Ïb³^¥1“I òjNµÄéj|#þüîÛA›P_&áÕBÉ Â eo‹¯ìw€áÕ¯NAÙïDÙêQö#ÁÌnx.ÄVòé­´v"'¼m%ßšeÈ<|kV¼G^οÙL‡‹ýŒïÂsJyÛ Ÿñ:ÌöŽeñ=Ûóº ëˆoï7Â4gû߃²Ôc×óÀšMÚöØÈz ò¯ õcSý/ Gx=äëSÝÕm4…Ï´=:tþK M¸òžtþË(;@uSÓµö\ùD>@·Ò­–PÏ 9èÐÕ,,ÒšgÖâ‹J<,¹Ã¾3|ÚðY/Þ›rÜ ëçËtTÔ3¼ÕH¨¯?kÖ1ŠÚûA‡Pߤ㵉26lòÓ„]Ÿ1‹"õ!!\y}Úó;Qd Ïëé¨ü0ŠPßìNzQÏù<¡¾yŠ¸ãÙ(v#Âgþp6ê)>æ„·A¾-ñSd—èÚfÓÌÏÕ"öÇÁ’0Qšoh©+ó%§Ê¬·ѧ Ò>Ñ£³[¿«Eå÷IˆW×yü*ê ÀÿVÄ ÏA˜æŠø'Qv€zêöVê¿š ¿q¦†8pÖ¡%£ªq§SŸ³Êvuš®ØòÙp‹O;:pò)0'¼ò­)Ô毣ìõÔæ ò;Ê ÓvÕ(;ÕiJ©(¬LþÈBLLôõõ9-ê:\ÌT,Ó«»Öäà½ÇXóaÚ“~Íñ²F UkšYíÉ"§Äz'öÃ|@xò¡Ä³Ëù/èc°.U¹dû§ÇvïfÍŽY£S&í;|<º‰¤ÿP&Ô·š~@Ö…åñ‘NCGßKYö¤S÷YÛYáÂx³ Åÿ0þ“|ì õ rî ]?í:õZkÿ]ú Ûì7géP÷²Y@7šõY³ƒÖ©šÊ"çoâIï…|oâ§ZÍç·ÀpäU)»Ï¡ìõ»+‚ÙBcÕUm™õó D¨¯ß|ßâÑˬ½`øk”†.ÂpC‡-±Ÿë·ñ,„÷A¾/ñsÝçÈB³túÕŒSšN©èc4ŽcÏpýÒÖüÆ.x £iw}g:'‚>k+…ÜÉøÖù»x Bé”ñ®›Ä—Pv€zL¢D&AóÆ4‹|ü`¼H«U[å-¼”BM;™éâEqcQ™¢•M9Ös¸&×àšÁŒ4÷0ûQG(å‘ðQ‹ô¨¬Ý˜3éšìI›çw-™s"U·1 1%#3iŒM ‰/Ö»êÇ7ÿ OG(¹Òuãú2ÊPß:¬©æ ¢ÓVÔ®(z7HPáÛ¢¸EÅ~¦¯à9õ Óoß¿Šg!Ô×¾Ÿ8×öÅÜÙÙâä ÓSý“æ©œòdÙöü ]BV+‰ µø±ökxBéÔÈ®»Ã×Qv€zÜáöÍ|óèí©á6ÍêÛ.;ç¿ú„Á&·'~”Û”Zä&ñÔñ-ã@ð6È·¥`ˆ²ü¿aªñð„‰eh±«ò˜Û »Uç(Šûc­Õû„h*¾OB¼h„Þ#.eŒÉé="Y€p=äõÚ´²2ÒšŸsÜ°{ô¾E|£ñ7»­*þ" ñR«€Eßê;öèÁßÄc÷¨Ø#}c}#ØFz±xïBzo@üèÅ??2˜kš\»ý"^,|šÝ#~¥6rŒý_e÷þñ‰âȱBÝ.—Æ »ÆJcÖ¶];·FGp±üHŬŽˆÖ TéËè×ÑÞú*e…õÓÃ^á%ë7՛œæ´e-«qTÏ+€ K‰ A½÷ü³xoÙ¢èxÿ‰CØU]þÓÜäW,r¥ƒÕ¢S²«ÓÍ]IÌxìûî™'~PxïØMpÛÏŠ£÷¿ë¡¢˜ÿ§ßü¡Õ Û[5­µÚÐÑš…¿|SŒ_nµŸEÞ°‚yÔ]¶Ú|åÜ¢Ô²<­9Gh;x]ÖÄ@Û¿Þ¥EÅ^.!^ 4:àÔˆ­^Y©ŽBK]ž7˶Ö¦÷¡BúZ+§Ûº¡â¯/MºYÑð„X:é‡×A^×H7Í„åMuK'ýø^€xéÒÉ~AŠZ†ÕÀ !+‘Šèh•œâ‰ùZX“f˜ÃÎñê–V¨ø‹%ÄKQ+ý èl…§ì1öGè’Œ}ÁE²G…ºø ÇŒ˜¤—Á{ssIë®o*oO7ï·NÕ܇qƤ[Êz>cˆ°Õ’å>ræȾwÞ½ï¡cÝüàÛï¡9¡ãó^nÚò­êlfpÁǃC7·Ú}ßµ§ŒÌuÕÓtuFþlhhÑÏ w@KÕÜãjسn®jù#ÕZ…ºf3›§nÛ6â[§†+•òp‘ž}qðfã(û)~æ¼ç[•µÙ™Af¯Á_ñ¿i|?kÀÁ&ñ¹P­r¢ôsCÆ–-Æ"æ¢ù­ù<¿Ëp¯WtíšËöCw›§ŒIã {»V÷÷g¦œ*ƒ Œáª5W¤Ä2zû({}”Ë°ÿ$FdÆô­ÁìÙ³7ïA(Ê(Ñõ®Sÿd»¿oyâ[?rv«A÷­±`55šYðÒoç·f[T”eÏÜòCCgÏF •Û]×H†>ÜyO\ƒ§o,º®qm¾ì˜%T€äÉÔr꺳‘Xß,±¿Y…½ùûØ}ä|3«˜Ýmµ^jÄýŽZJ h®Ý[tªU‹ß”vK»zÔ°:òYúY ï䣜3‘åyßöËa­ÿ2üuÀ©·§åˆýd\’õˆÒ^ ñRôÖK’Ò¡×: ñJØOZaÝ÷“L0É°¢UîÒ¸¢ © €—@¾D…TD`¨œŽ(u%ðRÈ—&ÖËs‚n†QsY»dÑr-­ÏºÖŒUõìY:[§\QƒVJ‚»ÅY`,¢”êE~ßšt'›XBQ¨Õ`.© ¹ª¬êžˆÒûòÇ"Êv€5ȵÄuû‡9nòA/¼ Û,ët£«ð9Vñ|O£åÏS%‹#- Ï>ͪ’Us°ß)ƒ_Ó5ËegN,h±ßté7iù×z¢n–‡YSkŸ²JÃb?lØI®IóDkÎØ?Ï´V,×ivM¬ó%øæa÷FFA§OìÝ/äÞýÚÜw5=‡kÒæÞø¼zŸ+b`‘9˜£„YÖU,³¶)>7«'[î7£<8=m¹[=¹?èó°Fá»vE4ïv¹Ùk埰ïð ½SEê>xötÕf-!53ÂP ó´_¹<ÏÛà–>­Lº*öÙ¨^WÿBÔqïŸkSìÚ< ù|YQ )=HØZÛ£³ŠÝRñ}⥭m€žàÛhF×8„V0&QÂÕÀ7*·+“Öá& ñJ¨¾Öx8&“u0ÂM¢ 4´!ÚSàvð2Èú’þ–åÙ0ñdD±k€—CVÊù‹(¶ÈND±Ë€W@VËñ“?ýä#Æ~‹úˆÁ¨À 2–Ÿ1\²QYT¶Ø¨Æo„q¾‡Ð2‹3bÍ‚w=~œèONÙ⶯ξ`òûv—­‰_ ÈËÆ746B‰Su—µÍië§ùÀœB5­Š±qa)§²I•v%ðë¿þ 2ãïÿò_tÇŒ¿ üKÈÙ3þ}à_Aþ«Äf| 1üY´Î'6»žÃ*Ÿ‚Ú~ °w‹ 5u-/\¸æŸ]ïð!v¾_InÞ*d„“D'Œ Å€Æ]3ü¼i>…LçÓÞˆ04…äL±.¨°ƒZWÑ0¡áÚÞÉÆì)Ðøÿ¤y¯–'öøµ¾Ó2I´øcÁÓ ¦gi®CÌúø†Á,ß}Íl¯ý!¦-38C9ãH°M#}ZÞ…õÈb(‘õ·-WL§²²lVW³|KlÎm<=-TZ˜Ð¡–©g>—Ö2ûÌCqƒ&Nѧpm9SCÙæ 9ÍΘÕi«QÑìA\åÈÏ¿G{&ù|©ô båÛ.Óü~F~ •)‡æîýàyÍ‰ï ‰Eš/iL+ÆîÑ“Eß&°ÿõB&ÔäR+óžUŒèÍùNë{RíÍSñ}v¦7)5ï´ã¼^µU»óô¤¶ó g«*vçÿ8iÅÑw ñJ¡;/eÞw°;¿êS ¼.ob§;BTÌà•:Öñ:BTÜ2à•¯Ll¯x„wg› *hó¨)‚öÑŸ¯Ù¬ÃZžo´‘5j9lìéc,²ÒN¨ùÅ_°¾·(³…ŠPê¢S=\|7äw?“Ló#À_ƒükÝ1Í÷? ù“Ý1Í÷?ùS‰Mó²f=ÃOnç¸TÌä×_ƒü5ífÒÏÌDØŸ¿Y_2B[ vÿ)ä?펉|øgÿ,±‰¼{H΃ BÍ”kV¬9Ç=Éû»”Çûº4¥€ÉYoBG€6už+»*ºƒÂîªóCG–Êôlœ•Ô¸¾OÁ,þ\`ï“B&|FÌ<§×ß dÂ.˜lïË?'dÂ.˜lï‹o2aB“ýHÓî7+²`¸´E¶FGÔÒ|Cã€þ–È’=.¸ÁzˆgšÌ9õ2%Øœ©ÔºŸ¶„T¿¹h‚æ¾N{øćšýö¾I`ß!!>cšå¾ãÀg ™° Üwø!vÁ€ûî>,侇ð¦¦S§Ï:U+›|A®`•¹Ø£d"—žr_òuæØC®‹…‘5PÏùB6ä¢ô33ð阬¤ âð}ŽŠ¬‚ƒ5²1±ƒ$ì mcÒËùrÉ¡<“OÒ6ÿú¡gŽC‡â>}cQþõŠ|åq¯s Øô;7JÄoT!ž<[Иzi>³PɱӰµ1 /5" [¯z¤6'Ô€ÎÕÒª£ðÜçΖÚ&÷YŸÑÊŸ^eÈ鼤Í2 ³ |ûäÊü’ÄØþùÇ¢:4K†ÕÛ÷B¾÷| «G%âGUˆë «Zh„wUó¦W¥Hª…TìHªO#KEÒ6ŸVµDÏΕºDðÔcšò§w,j:¾ÅÇwNÁ³ÜYJ¨£¬Š‰ŽyìX4øû› ¿Iùiï+´ó¾uÊ?ãÏ40f«à7ò¯h ÀÝWH¿óa‰÷‡Ux뉿ZhDí+l*Z) ká; ëSÌ’û %GH©v›‡hwLK]ÑÍCçJ]¢yÐã9ò§kEj^Î8¬Ö›ýäßH¥7½2ÏZ(ßTïRøeÈ_>_ºÔ_‘ˆE…¸ž®…FhH_›ÏÊU èZ˜ÅèúÔ²T¿z)ÓO«n¢£gçJ]"zê1RùÓrçºuÍ&S¯ž¬:sÕ!yçp°9+V(y²…ºÓ÷®2aÂ~õ ‚.¶³hûEÛRHšºF¾b—ŒÀ¼gWŒ{îš5f³‡røþ }ÿyÍ/??ä›jÁ»w=°(äÞ¢¶à]êhðî-IÄK*ÄâD뽿ù‡ÏUOùGâG=O7ºv Þ¢ºËçnå)Õ](ku_KG×Ëò¥È梃Ŷo.ôÜ¢—ÏwUqV]939“2 '8òÀóê±mòWª´=»_Ävíò΢y2Ï=É6à—QÑêA®ïz!¦0BèŸUôÝ2áy18蓈©×28ÐC#j¾}Vm\ ‡TÜ–K£F–œo6ø´ª%2Æw°Ôö1^“iÊŸ®42s´åÅH௻Àf—2›´BånàíB&t(Tv²Z¢CeçJ]"Tê1MùÓIºL—º¦ë^ºåÈy­‹î€RÚB"?‹ð/:ïâë“ÀW ™ðüˆ¯¯‘ˆ¿F…¸žøª…†îøª…TìøªO#Š¯¬–èøÚ¹R—ˆ¯zLSú´÷g‚Ã3Ïð©éœq;Ϫ£±>`Z˜ûAûd²†)ãÂUç¶S Žˆ³OÛt+2ŽVlœÒÇ"8mÃ>-&äýàFÅœ§ò«ºdºóÄǪò²‚Ã?<­‰ äD>Ã>)3J>Èä:§xCPžÇܺtþ`ÙYT"í ¢Íû#-ÛùéË Šs‰]û‡loF6µ`S~³,io¾w³áYJ-ŒaàR!¨Ý&ÐnfXmWqº¸EÈõxHä¦ *îjàV!sÔUlĦ *n0#äLânÏåb«N²)Y¾iÓÙµqw1©!à­B昌\ìÍ— Ûj žÍ—†±¯È\ILV:*hÀfC+KMíý¥a7(0¼˜ƒœÓhÖ§\Š(6x41¡Ê.ÊsA3£´²I4F·A¾M™VÒŒÁ‹|*õ¬‘÷Íú£ãCøΕ­+,òú÷ôÜû€/€ü-ýûÎfßJ¼_¨Â;y÷^Pw7ši(a»ß¯m¬~¿^U-µxÚÞ…Rª¯P¦±9-µ†[:[j›q‹>Ÿ“?=í‡íg¸†­UÒ¸ tå“/b&ˆa¿ ù·•$Ñì³>ÕÖã À¯Aþš–֣óCDøëñ¯«×Ó|h¡5;ÄôªÔJh!»•Ð§‘%g‡¢ >­j‰Ž²+u‰(«Ç4åOs"w18ú!¸3"$[‘'™$ðêÿ„üŸ©Ôå¢%W©ÿ[`ï!ž1µwm“8Éñ‰k‰©zh„ß1H]rR­JXÕÃ+nXÕ¨”¥Âj{³O«f"#kKmY5¨ü©èµ6fñ2¼÷ÚN™ñN0ÞyÆÕÞ]ÀCB&µc©éSõ omª™4ò•ºq“QgòMFžUóì²S}ÌÎâ{ׄ|Oú’Zw©oð° 5u—:¸Ç‘ˆQ!Ö2·0»^ìqk§šØ{Û´1Û“é@}õEhtiƒN©ÎBÙ*¹U:êÜÎÖÙbÛ÷ÇôÜ:©m(ítə㉺ê:ÿ†zs}rtáÿÅu, Ž&]Ùï;|JÈ„xÇWöû^"ñ~‰ o-Ã]=4B›+ó™PPýê¡»ÍЧ£¥ÚŒoI©¢B)ž»Ï¦¥ÈèÆ¡s¥.Ñ8èq¯oV\5jPy9¨¼<µ¦acKwH2{ÚAŒ ›Àèø§Š­Ä+€¿#dÂó¢•ø¢Äû‹*¼õ´ZhDæµ±¥ÆB ÛØ…>U-ÿÕÎRª¯P¦ñ¼8-F·+u‰vCÃÉŸbB‰nr±pMEóÞ—–C-„©ÝP¦›RŠWßÿþ» 5ÍuvÙ¬ï?$âÿ¡B\O ¡…†æ/=¤b7ú4Ò™¯ŽVKt,í\©KÄR=¦Ùâ ª}ð€ÊOA姩ÄÉdÀ8®2áy*û×KÄ׫×*õÐПa ‡WÜh©Q)Ë0èhÍDÌ–Ú>`j2PùÓ5Ò΃Ž{%]©LH}™rOž=ÀÖàž¥Õ’)×,žÉ{õÊcgìɱ³ž4æØgþ1ûì¢wÏ ˜ƒì‡©Øß³ïaŒ4þ©ºŠÙð…B&Ô’;»ŠÙÿ"‰ø‹Tˆ/¹ŠyKþauÍ©¬oêy¦ØqTMFM?$ñ„”j3ü4OeLGûí–?;Xì…–‚5-6Èü ÈüLâ†ByŽ{Ž/«d„·°®ÇÙGÇ›ä9î«šßa“)6¿¡Ø¼ ø»B&ÔÐt|ž»ÿKï/©ðÖÓ5×B#jž»E(uص°ÝÐèSÕ’óÜm}(¥ú eß“ÓÒkt Ò¹R—hAô8]‹+ÎÏ4¨|T¾’Zû±V6ùÆð¾a\ªíÃW?2áyÑ>ü½ÄûïUxëi´Ðm.Ì·9¥ö@ »Øí>Õ,Õ´úDJõÊliÏLKoÑñ¾s¥.ïõ8‘üé¸.Æcq¿±–©¶”°ò€zJ|zSôË€—™cò0ßù)z:¯AüRâZâ¼ú§èõðŠá5*¥cSô­™ÈÚÁRÛÇPM*ú2Ã)ø¦] úqªƒ£+fu>«tp4ŸÊŸ1g-v½¢kØß`ÛYÙö-×ôéØÑ)¾ÙÌöŒZÝ­9žedø¿Øÿ<§b±cáºh–Ë´ÅP>:AÔx+jã­úºevuÖr=kX}[ÚÀ{€2G]FÒn[ÚÀÛ€Ÿ2ÇdF2d0ÍÍ8%®Ü°½i ¶ü*ðûBæ¨G‹ˆó¬†(Pû!ðŸ…̱+*üSà¿™c2®ŠŠ.*Ñø ð?…< ~òLðiìsQ/úm žsQ³t.ªáÕ¬¢mÒK¯üx¦œYpX¸Ã±ú1_–„YÈYm¶} ¿C*Ñq©DlxòAmy\*7 <ùPbM22|olh#St*§ŠÊÊxCðcnÆ.Î,Ä{tY׌UUÑñÀWAVÚFžxä°Zt¡ŒIc4âÚŽè^ |;ä·Ç}4FDøñw¨O>zÐF#êö¦zc ´q‹5‚Ы˜¥FK›Zµ>Šèl©mFú Uþt_Ž®bä}jD—:gtÆ©ðs;œºgd윕‹$?ÆŸCþsåÇH:k¿çÝŽQNÉóå’ÃÚæÆ{' öÇu{ÿnzŽˆªñý/öÞ+äÞ{µÄ÷Î.ߣMÞ$Çç­%¼ë¡Þw7ÃŽg@*-žÇˆÛhÔáR«Š¾˜RE†>‚®ˆ–D6y,µ}“§ÉyåO· ñÕæºÉ†nj ÓyèTK>Æ>GæZ×zâv-~Úkp<7¯¨£y®Zø¥dçòÐ3Ï?)dBMcf´áOIÄ?¥B<¬«ÛÂìºÆ¹<áJ‰´ªvìÖ@eEµKØqJžLÛ›ÒQld>jg‹]"Àk)XG>ªLæ7Aæ7•É$\LN0\èý-àW…Lx^Lõ~M"þ5âzÆ ZhD/&+´ðŠòõ)å“ûĬ™èÙ¹R—™z TþtU#!'Û~t¾©Í_ú™A(ú>ðÏ„L¨­ m7¾üs!&TËdè-Xº§ãWmº‹S,†ØÍS!Ô®þ!ê˜iê»FÈ„]ÁL"kbòÞ½Äßw`ûUϵÀW™ð¼ìô½R"þJâKvöÛ÷õ§2ÒóXq[ÆTfÔ`(¡K¤T¡¡’È1Ó±vã¦Û¾ §`M㦙×Ìë·ª+:k‚=t×zÈ[Šÿg2¡†ˆßñ%˜¾I¼?¦Â[ËJÐöf}sŸS¯Ê¸J¹Ø­‡>Í,Õzœƒýw¼zž±ÄâŽú:Xê_ÉŸ^kdÌiÓ®f Ó7Ib¯Ìñëàøum~ž4±—X}ø7B&Ô¦ºÈ¬P*ð÷+d„ª{(Hì5½ÅIÝê`™U³<ïÛE)Å{(gÜãø¸”¼™^Wž®{”pg¹¥ÿH`ÿmB&Ô¤ôK¦ìSV)i®dÿ]À‡…Lؽ÷ïæ…L˜PïÃä¥UÇ7¸Æxwmx˜gwÓNªSµ2S»o;Ì¥=K¥'×ÿðåB&Ô¤Ìb«Àèï2¡¶Ž}Ù®ž®ÿéºk'+¶WYò ´Ÿ¾UÈýJ{BùÀw ™0¡UõÅN.§òß | òˆ\~…°³êI.1 ã8]n4\¶f­²¸â¨P¦[ CïÚŠIúJ%<¢ÍÍV“ź|ã¯]À}÷u#TR£Àý÷'Öâñ¡–‹—ìj±\/Y¼Å¬1ÝÙE¾7Š5™­Í¥pø¬Q¶Ì¿˜RÓ‡‘“®P£€?ùçô }8qךv-Ïc1_Ü/?ùƒÝR÷‚ü¡Äêþ|°¡)Ã4f2+vÕ¢ º'wv%´2OæÌŒ£lºÓ–;âUHÍ®Q¯22Š–KìX/©Z²©Q囥Š¶[¬W¨“\´<Ö£zvã"sixŸ5Øo˜¡»¯²”$¶ñ±o(èïWöV…Ü[Õf\›+­]¯VSSêŠÑ:ðMB&ÔÖ˜Gl[¡âà›…L˜ÐÜ6Ññܶ|Ã[¢Ë݈Ü[€Ÿr‚LõÅ—rY ”§8JÉ,‘Ðxê±3öØÙÆãüqþ†Èn >9SÛz–HØö‚¸gG—eµ”d/.§¶•>`ÿ¯ér9ªùO ì{ 5Ìòux]‡¿°IœäøÄ—\×™i$±uÔ4b/ÿh{úXx©ó¾«èŽS¦Tï¡OÜõÐŽyE®,u¶Ø6Ú Ö±²$“y)ȼ4q£øL¾ žôg€ŸrŸžLêÎ.5ßOI¼?¥Â;ùR“6½ OÍØm–>-Õfi¹ O?eù[É/Èë´"£‡Î•ºDã Ç½Z¼YåðG™Êg@å3©5 ]¾ ú³À2áyÑJü›ÄûßTxëi%´ÐèÊyÚØÆn,ô©jɃƒ5^§Ÿ¹ü-=äuZ§ÑíFçJ]¢ÝÐãpò§ëiš­`M9l`¡Ø‚€Tÿ !¦Ô‚,§ÁùãÁ¿ØðõqÅ–¡%ðj!ž-CÿF‰÷FÞZZ=4¢vÿ-«´zxÅm4*e©6 ð€”j&Ü”ÛøaZºŠŒí,µ}l×ä2ò§W5ö#ÑÊݬY®7ÎwKY¶ƒßöÔÂüêÇó¾uÊ?ãÏ4î@}ÜŸQô;€‡…Lx^Dú#ï#*¼õDz-4¢Žýj*Z)Úká;ÚëSÌRÑ^v„”j'ü†ÖhwLK]Ñ¿s¥.ðõxŽüéÆÄ œH¬ò†3`8“^È·…|[=äÛÀ™ð¼ù/”x¿P…·ž¯…FTÈ·“…|-Üb‡|}ŠY2äÛIB¾^žò·Ú¸cZêŠù+u‰¯ÇsäO/ä;ØçLÙò}JKV^ V¯Uf•èßš1iðtƒ1Õ¸þ4ð]BŽŸÓ×;|f ~·DüÝ*Äõv-4¢{S½J] ·Ø]Ÿb–:·eióO«v¢ãhçJ]"Žê1TùSs%âè^Ç7ËFµ^)X.͘kjÊ.ÚVÕ÷ÛÃxÊj3eY~Ï·Ü¢Uó‡(»Õrùäzì#~¥Çè2a y…ÈSJ§»¤8^"äóãZ&"|©D<¥k™´ÑÊkòèV%$ë!7$kÔÊR!y ÃO«j"ãqKm5™¨ü©Ù˜»žqæŒJ½8Ã#¬9k¹æ´z¢SÉfÿv=>ácÄ&]ñQ˜ç×;Õ«¶Ï#A@ðñ˜¾òc>sV:°™dàeBæ˜<>k2PùÓñÆìóâ#½ZCwÅ©W}µèÚà=ÞSÚë2×òì53ë¡ó[ðl^£|JÈ„Ú”ÚîÌ•eÓÀ—™0¡R¿(5üÆ@ÜتUѺÚeVyíÿšO€á´3³X¤¿·ÄEÖ…ùÆ€ItÔ<ÜG^ââwVLßµOѯà`´æXK>(ÑÑË^*pùs„L˜pzMåæ'cÒxˆwAiã{ëÿæÍO‹¾Ôø†Zg`ùÃÀ· ™PSg ³‡f,ÿ‰ø/¨kwÝüÔN)*§]è¡·‘î@eõE¨s ;N©Â"n~ŠëMé(¶Ý9,¶}'COÁšÎ™hy7ȼ;•qYoT‡bÉ(üà‡„Lx^ É–ÿŠDüWTˆk’é¡Ú,ËgæUFcz(Åôúô±Ôh,ÒØÓª”èÙ¹R—ˆ‘z̲åSêS«6ØàòqpùxâN®rNýI#ïÛ4H œì¤qJ9ûrù'€_2¡†àÙñ…äå_•xU…·žØ©…FTòeSÕJAT ·ØATŸb–̪—\!¥Ú åÕÖ!ÓRXt€ï\©Kx=¾#z³QtÊõJÕ˜µèˆcqMz8Ïrg­¦Z Ï>mñ#mƒ)•LÏàV¬ò õ3uœRŒý+p\Š‹„Lx^tœW\,¿X…¸–ேFTÇù!•˜¯‡Rܘ¯QKvœ£Œ=­J‰Œ«,µ}\Õd–ò§+ƒ rø*dÂÔ»Î5¹¥®©†Ï«€ãB&<ºÎ+&$Þ*¼õDO-4–ì:ה¨n±Ã¨>Åœ{×9Êú;^;Ñ]çÔ(Åñ+u‰¯ÇwäOïÆÂ Ö 3®ó”íz~Яndy# ši›t‹ÖJOºñ<ÏÃó,Õ£nkôiULtÈí\©K„\=æÙò©êttƒËÓàòtz}êÚ¢éèZ‚é课OÈ„çEŸúýï÷«ðÖCµÐˆ> Ét´n±©>Å,Ù§®%˜ŽÖ̳Å`Ú9dZ ‹ð+u‰¯ÇwäOG£¦£‘ƒ'PU<Ç·Áú;`ýTzÎt¡™ZÀÿ.ð¯„Lx~ôš ÿ q=_ ¨9èºR ×B)v ×§%ç £Œ=­J‰¦+u‰`ªÇ,[ÌQ5BTþTÔo OÚY^#es3ëAÖ¤jüü‘À•Ë„Lx>t˜W.oò&9>o-áSð+j[.ÃP ¤zÈÅ ¤5³T¹ÅRªžPbKyeZJ‹ ô,µ} ×ä@-þÊ÷ž&)«Aeuj^s’ÞÊ5ÀÍB&Ø É»ûžY©•é FËuÙW³Ê›\Ïaá9¬Ô‡ËÅYИîÙ‡¥Ð#øøöÁÃùÆ›Š-ÆðõB&--Õ|D:KJUJòœ\6--F·)+u‰6Ewµ|ªº”ÚàòpyË3`ÐpRTm~ø1!žMÀÇ%ÞWá­§ ÐBcÉAÃI¥¨¯…[쨯O1ç>hˆ²þŽ×Nô !5J±|çJ]"ÀëñùÓ«Œ’mN;U³‘¡ØXLMb¾~ê;’,šöÏ>f«wl=Zùm!jî_6]ù‰øwTˆë‰îZh„F÷ù Ó«RX×B*vXק‘¥NÛ|ZÕ<;WêÁSiÊŸn Î{4ÙøD\zш¦j‹ª ’ÿ $ÿWjÝæ+¤býcÒÝwáó‹hpÖúbÌýW«n2áùС^uS“7Éñyk ¹zh„†Ü-s*-ºV‰Ãz˜ÆÃÕ´T÷:ÚeRª«P–çì¸i©2²íè`©íÛM>&ºR}νÁflÆSéf÷ªüUÀ½B&},™›¨$;Y)ÑA²s¥.$õ˜e˧ªÓÏ .ûÁejýhÍÓÏ«2áyÑ[ÎK¼ó*¼õÄN-4:3ý¬‡[ì ªO1~Ö̳Å`§Ÿ;ª°èß¹R—ðz|GþôbÃ.YUŸîÓÏ¹Õ BK¼*Ú*deÞ³ŠtÆwHÉâ{==WñJX#½q+à*8\€x)µ(×½„.)q+f®2cªW¥:9g¢WSn„¼QÙ‡W%­7¢±IB¼ªoÀ0Œ‡c2Ùã!€<¨Y Óàr¡=n/ƒ|™6÷Z–/ÛÕ“Å®^ùrÅRX£â–¯€|Eb›xÓ#üŠŸ#fÕ·ÊÃwšVÕ;M'‚XþŒS2j®3Ë‚ ååfٷܪéÛ³–aÖØ'fq†§ñMÙâ>{~NHëMž¸}¨d™<¡/ß~Šß¦·K¦o7°¬(\†A•r%ðÃ?œ^·z<èKŒ« ã§ÆU:Õô<~òσN5ñý]‰÷ïªðNÞ©ÖF#ªSÝTtìNµ6n±:Õz³d§Zr„”j'|Q2ÚÓRWx—º³¥¶éRëóéÓÞIÃ7ͱfcAÀ·fY_Ûà×Þ4nÒ©Y®çT‡É‚x#1$ÒÆçcÚuê5ö=Ñn[Œ åÊc»·ïס³Yccº¾]¬—M·„ ¯ ô§Àî"à•ñâ,·x%ä+;g©¸eÀ« _•Ø*žõˆñlËgÁÏa°4Ñüº¾1—é¢S¥D ~Í.}×6«fyÞ³=…a-=H0dANo›¾a-=Ïðycÿ™Â°–øž•xŸUá|X«F†µÚ¸ÅÖêUL熵úyÊßRÖvZ]áÃÚΖÚfX«ÏsäOïÃZLdzÆQÖPoõ‚–"ãY–ñìºWgƒ\ÖŒ”s4Fݵ}(«aŒ'?Ï!'›àÒÝûø#àw!·;½¯ÿòŸt§÷ñ»ÀïAþ^bÛú‘4Ê“æ4ä™yËcÁˆc¬ƒA6”);ÓCÒϨWK¬ãbVæècΔÐï‹©V?œ•Nçš®•5 uß sçéæN±NÆ-Æ à< ŸÉñœ ë0™³–éÇ=R5_`ïï™° £Çk…‹ô=©Ž©ø> ;Ò,še ÌèÅ f,l›^ý¤áÕÙ÷L¯u^/b55Ç%/Òó†øY\Δ¸Þc1¼D·?0¾Œö”ëTŒ‚]u*66ulÏc\K¶ç»6kØש#”3Ž4F¿¬E „ù¸™ (Ù.‹°¬‘i<-ˆÆÏ?þÅä½$ÒèÕ{«Bî­>“¼¬÷ ðI!vÁËèPSŽ/2a¼¬×>%d„±÷Ý­½$Ï Ì Èò<Êã2ËÌؼšU$Ë¥5>#3mU-×,Û§™u±š²Lרا¬ÒÂD,Iµ~Æ:ZÌ\™qËŽàZÓÌ%=ê䈿ʇXoGÁ,^"°o« Ïû¹zž ð!>ãç~ˆï­ï[Ux'ŸûÑF£s?ڸŚûÑ«˜ÎÍýèç)Kaî§Óê Ÿûél©mæ~ôyŽüéW¥¹Ÿ,Mù·4E§Z²©YbMN£±74{yÔ£©:Õá"k¥XSdÌÌ×,—¹Ù Üe_—{DC|ÓIÙcݱYÓ.SÉ9ã?Co$´ÙâK¿%©Ê稚<ö`–뢇çê1± 5£õA?s¸ê°¾•BÀî¿™P›¡y÷Õ?ÂÐú×7 ™0¡¡Õ•¢\ié]—mŸuc|6ÈûØ›Î4Svy>ËçY¤Ñì”wµñ{ìýr‰–±ÛBÿõÀ× ™PWÄޕº)¼ ø>!vÇÞ|¿ šÂ*¨.öœÑøðãB&ìÂœÙuB§=›)Í™Qñ}â¥yά¹!aVuÆŒÍgùóôû”êT=1`â¤YNyÁ‰Ç4›0B‰®nÝ NFi°¯˜óÔXÖT7ØTêeߦŒTŸ•âÓdY#k5cå¦sY±zò5dÒRý~ͤöŸwMúwÅ©òŒ×)ðî¯nþ7èDðù<¾ÜCK^£ALÈQ]òl™&>–b=*½î[ç¦Ã!d7~†i æØQí¸ô»L54•*ý¦´tÖøm¢Ø˜i--½t¦(+Èý%‹©çíS{ú {:úh1NñìïPÎ8M’©™•à°¦påsóâÝnc(W$&Q&5ŸÒ*–ëë ’A…*ѯ–Ø—gh<§Y÷g7k°QFä-Óe*š„òºõì Œ¸ÄÅ¢mA‚¯ñö…é£>Jóxq^HyTSw±Ÿ+:¬o;Ï'ÜûŸ²­rɃ+Íp ®Í̳¯YU‹sgßqçƒ%HÇ6«¶ÇêJØJ)¨¥ZÙä·²MÕ«Ó6M3Ó(3SkT:‹9õbÓõZ¶ðAŪB r¥À ™ð™Òº ü ð_…̱ó­ÛÀßÿMÈ;ߺ ü ðß…Ì1QëÖ{Ms\Îd~3e³T·Åd‚†—G ßáÿ(³]¹±¢â`åDŒìœfH¦I…–vCÇE>Ií]‘É7gÜÃZTÇ=)g0RPån€}A<R“"Ú›;Éy¨Í2]—ü•åÉJnÌÜÇí”’jþCàòË…¼\_¿§ÝhæzáT=[zRÍPñ}vf4sÅ¡:Í+GYx«•÷×J´P“íÖ1Œ!”‡4k“VÞVè1@¼êpÒ(Äý ŒˆpäÚ&OV3·V uy„Úæ‡k'§#J] ¼ò¥‰õò.£fOšÓ–8µ‡Ç6Þ‹wøbXg}SnÙ¼¿gÒBåAQÐÆLjÕškÄ+ñG# µ/Q\vj< ÎZ®'%>Å#ìO±`Ë‹¹Ãöï¬ ±´³økM›Élžñýš·gddš=v½c1}dnÖ¶Š3~ad sŠXn ¢Ÿþ)ä?ÕhNu·Qê'ùÏ›ÓF®{èÒ®z¾hÉFö¨(òÏÿù?’DñV¦`—ƒz™Aת8,|E†Ìh R˜åxƒ ÖåMà³g¨>&l.3¸Ðàã.H Ëæxä›´™ÜùûÍGû,fDhö?Q|r6q}-7¤PÓʈÃ0pò¸¶p±ʱée¢Ô´ìØ{o?An7ðäCïãSqÀ; ß‘X?—dy§Îƒë—T–ˆÐÀç@~Ž6e ÜsðÁã ŒL` rI£†¦Ø˜&¢Ø‡dõ PÁ§tfIÙZØ2›S¾åÁܹDœJE\Õ>eY¥û¦H™óêÓÓ4wD½šè³+”ͳÔÄ\šYž3çY§Á*Ó+öІžw ø-ÈßêÊÐf«0˜ž{RÚPñ}vfhsñ›ïù'38*Ì &OjUV¥C¤y®IZmDãZ ñJ¨½½4¨aã~Ó³ðš1³LOÌyŠ³ÊegŽ*´1í»'îdas„{!'?¬3vE£èõ¸ÁqV‘ˆ>Y·Ü¬ñ`ÎÈŒŽòi`š]äæØ:é†)Çš7Ÿ ¡ t3b>XCxòqmM˦»ºKÉ.,¶§”ðÂþyÜ™òçX\T ûà)ȧ4¶:9vTÜ à<äùÄÊï˪èê4ð ä3ÚtÕ7±CÏ“ÀCÖ™2\pÊaÝh*îyÀ§ 'O^“™ÊcÃÛv)ùÐK€¯…üZeBÁ9çÃùãÖ©šû°kyõ²ïMº¥GÎøŽSf£=ÇJÑg•;3¸ylp(ÈËÝ06šÛµcbçÈãž—›Ø‘³G'"ž§m^.=ÌÓÀ÷CŽªBßX”—;g´Åçým³ri㼂*> ±þ€ ëȤÊ}ŒøžÐ6ö$ì+9Ç ýÚ-©?N» _Fëg§ž£zh7œS5ÇœÐûý (¯•&­Ê ß¡’÷ʦ7sælZõ^jD^·¾ºhÑιØM§µÑþÍð/ýÿ7L_¦ÿ?¦àÐbۤğßÓ7.Xøµ{‹Nµ*¦7n‰ø•¾c¥ cDù!>Ð|©ÕÞ:úÖ¸ù,‚ÊäM0Ç=Ò“`ÔÅ&Ye¥> ñÒ<¡cÜa‰ÃˆÙàÓõƒT6õéQ<>áä!帵1i%¬„x%k{?ƒ5ëšYãç[UɺXÝ™gë¥ÓŽS2<ªSªÜZÙ,ŠGÆñ¬Æ9"±îSj9 þëu·æxYW~ÌD™ÿ¼ïÇYPIb?¦ÁŠvgmknÑ,--ÔÒγfì²íód?“'¾K®c¹mÃ4¥rCç­”ž=Ѳp+ö"[^ѵ Í Æ¼*Äq”—3÷H4IÖ=kª^¦çv>iCùNÈ3ó –|]Ë*Ï%g®ZvÌ’œowÿ±ÃÆ´=K®y;?jì’ÆŸ4ì™’3îqƒO‘Þ…L¨©ƒyɬ=]ehe—Z²‹\ "f_~CÈ„ÚÚàˆµ *î³Ào ™0éœOì™*ÿ[Ào ¹7ùm ±#Í8ì$@=óŸ²Hs3ò’ØG>CKdÍxÁ½®È\’¹3z¬Ÿñciàû~p ÍŒU®ñ·=D¢Ø«lx.ÂG!?šÈB“-Yl1ËEn'5È5^‘lIÅYÀ' ?Ñyç£âºÝÄÖ¶*0Ãð€g '›w ÍÊ¢,ÜzÕV ÷2àk ¿¦;–ñ$ðµ_ÛËxðiÈO'¶ŒK¤¾@F=x¼ønÈïÖ<”N×&Nþ*ä_펉¼øk­;&òà'!2yË{µ†Êÿð×!ÿºv‹P=‹X}øUÈ_íŽM|ø5È_ëŽMüðë¿ž’Mü>ð ÿAglBáä!bõ§À¿†ü×ݱ‰où‡Ý±‰?þ ä¿IÞÉÈÛõ*ÿoÿù;Ô€Ì*pûß{û„Ü«4Yß0þŠí2a7 ãŸPì€{ն˟þ@êcØS<%æIª|·2fçTˆ8=\ ²xlãÉÓÁDU#Ÿ>©˜ÕùƨÊ,7¿šÅròf#‘çÜÚeÇ€>9‹|³N#q‘&ƒÜEgyVé¤,…œuªáeÀ¿2¡¦Ù‡FÎz7œCòºíÄ#Q„#Ö-ˆè?¤¢H&Ôd‘Q9ëTêPêEB&Lh÷q«»Íl­ÚEšŽjä/7KNݯÕ}lŽ.—ƒ­Ê|—,¯4{^ƒžåbàcB&ìö¼Æ6a7 Ô3¯ñ´aûŒL­45d”lsÚ5+4i8LlÐæ=:|GŠÕ°l.#CJ`HÎó©É`“kËÖÚ¡À¡šUÕ0+¸5Aø4䧵ùå–æ¬ *g0<ñ¤úD!‘}ð3•¦2ãµTÜ뀟…üÙä]ËØEåÿ&ð· ÿV÷jÌ%@-ÕÛÃê]¥#³rÃfWE¼â[¯ ´´%Õ³fùâA‰Ù”]æ1 woA,Û gΔQ+;¾X ˜²§ùAªA€3 ó-ËÉÅ\±ŸO[’‘ eÅIÖOß®‰ß­ÒΑ3n‡öÝ·hÿ—\ÈœUð(Ç6~ú5¿Sý?Eoj4¬ss9øë0«):ü€Rb6ªD2Àë…Ü«´ó2V£J¥Utƒ5l^Šï·TþàV!÷*ëZj»ÕáQÉ.®?bPñ}â¥h«—&¥³›½VIˆWÂZ¹‚°òÔ´É‚„”ò×±÷@O„W@V;d'̱/Ÿ›-ÜáÛ4€; ïÐfÒËóV…Eóˆr¯3¹A«èh—„x)ê¨'¢ôþ|Ñ(|7ðfÈ7wß©©ø½â•Æ¥Ì‹4Ž±·×Þ ¯!¼²Ú~ò.4Dò*à.ÈJ¦«i¤Ò6Hö³A`·ýèfÉŒ÷4_Ýñ£›¥×d»íGTì-â¥ÁÄKlpY±hf)¶I›±:àG—Ë~ÄZ%j+éИþC䮎AÓ8&dËBD±€ãÇ»ï@Tü„„xuǨÐmÀ•:ɈŠß)!^ݦ1  PO_Ûd~|\ÚzÌÆ|²ÈÁ™†bâ˜Ueáñ‘çÃÎØAá<¡ ÙÔ†—h\GJÎÉz®6S¡çŽ*ˆò4ðõ_ßñ¦–J+ßù Ý7O*þç$ÄKÓïȋÆ&b´EFr«V¿ˆýüT|Ÿ„ÉÆ FR:·õˆlëñJX+·±hqÀqxNÝ9ö²JÓ4u8g<Àþ¹ÅxÀ,ÓúNÕÊwçŒ9#s°äå†hKòèî¡ØÛ"÷AŸûð$½5ƒm|a̬– ŽsRœ§Šó!½ù*­ÙbÆ­åÎ]…'¸xòi݇ˆýÆû¤×™&&TÿÓ#]-UÊQ*´5g<ÛqOî1ŽÕ=Ï*—ãúQ{`*¾G$Ÿ|?ääÛ³b»Î~Z€zÊæ:‹ÜåÞòI»š5îb~Â/ðŒí Àp ä-ÚäyÃ=Ö“ùòq ªÃÀû ß×y â¶A>–X«×å˜ÕWÛmkÚÉöí1öÍ’U±‹ÆQ:.¶½ã@²×}¸¶ ˜g>pĬúV9kÜÃàNÓªz§éßrØN„lu&]¯å{=ÒÍçÍã¡]ËwþE{Öjœ×L_±=:N$¶[Ä#ÎCž×æVéH z¨{L¬ñ0«EË5‡÷ëÁõ±X¿ø˹óžEžò{ÛJüÌ8*ÿ}À÷CÖ·Ó¹o|\ÏGƒü1êˆ8Û‚Šûðã?žXë3Û†²ÆαÝÃÃ;η 2Ÿþ6äßÖ×N…m0Ý=1òxµhŒç¶åó˜£9¢ú{À¿‡ü÷Õ1ñCÅ}øÿ¡û ÿ?$Ä«Û4 m7PO;ô 84é< áqÈǵ9„æC“ˆäs€]<4‰Š;œïIïÐ$ŒÙ8>M"O_ÜÓµC“¨¸çõš´‡&©œšDL^|òÓmU’[ATßü4äOw¾U¡â^ü dµMºò§±Ã9ÿY ñê6;…¶¨§UykUž]÷êSYã8ܵ|6$<ƤÃÖœíÑ„!:å²MIÔÇøðçxÙ²§g|öåæ À~Ö²…²ÃÚ•ÝÇÂo]áÙ^<˺2ïM·d‹Ô5Óå©9lØY]´¿Ýå—8òkˆ}—}ß‹í_w¡nßù]ÚükðhpT:kZÐ39³¦Wä¤ß.n |ßüoÿ[çÛ)*îÝÀ/Cþr í•ÿàW!+mÈŠÅ=zŠxü1ðuî»h§¨¸¯¿ ù›@ÛY;51±}xxb瘒+} øו6Fµ_ÖjíñFG'&†GwŒfXpÙ5Êþ9©Æˆ&‹(ÿX`ïBîUJ‹×dQ±?D±W ™°ÛmUƒ—¦§_“wƒsm½Âoºî¹»GgC»¨ø> ñÒd¼+jJé<«Gžó,|µ@MŠY™?iÍÏ9nX€y4Axää›ibk…Š¿XB¼Ô*`Ñ·ø‰V‹Ê þ;ŒÇîQ1HúFËqPð§ é½ñ£ÿüÈb®iríö‹x-:lÿˆ_©cÿWÙ½|¢8r¬P·Ë¥ñ®±Ò˜µm×Îm…ÑÆþ°ŠYid`¶ ¨Û—Ñ/¯£_¾õuËJ凚f"üeMѱ¦rÓw­¸É€TÙÁe@A–,7¨üžï-[¬ï?qhك˺€—üáŠEþt°ZthC³ZW3þðû¾{æ‰ÞûÆÆc»âè½Çïz¨è¶Äÿé7hõÂÂö)è‡Ö¶P© õ¬YøÃ7ÅøáVZä+˜Gˆ+ "¿r® hÕ¬„m+’ €²?Ý¥0EÅ^"!^ 44;µb+CVªŸÐR—çͲm†5ê}¨Œ¾ÖŠé¶^¨øK%ÄK—^f‹Î¬š^ú¡‹þ.륺èOW/ýÐE€zõ²Ö³§iÿ¾Šb ŒTÐJÕ Š©˜(c '4O¸[Š¡â7Hˆ—&Ŭ+:Õ)»ê«©fÔ± ¼Vªr‹©šePáe/ë¾j¨øË%ÄK“j.­¹¤˜D Z¥^ ùê.((h 7BÞØ}Ñë ñÒ¤  ÊÎôaû¤šfV@„—ö,º²cš‘.åä.ÛÛ£Ni†Š¿LB¼4ifõ¾»¨©e¥ôº¨‰WËJ¨½Ž´zÍh[¨·×¼z¿ªZVÓª.«eT±*]µ¬‚*Ô«–ÌÁS¾k}Ç55Îõ ,ƒ­BW[{ ´S!nÊåj(ŠpòˆF¥ù¶z×Þj(*8ïºW`·•FÅIˆ—¢ÒV$¥³¦GÌùˆWÂZÙF9-8Æj˜ÑT‹9Âzh°X6=ψÉ|-tH({£ÉúW +Œ`yl ѹ¸ò~mæyl ·xòÄz싽´Dåß<ù`R}Sy{êÌŒ_)Ÿ=³è©¬çÓA;®U-Yî#gŽì;qçÝû:öØýǸýcï°q|ÞËM[¾UÍ .øxpèf£ñV»¯ã»ö”‘¹®zº8cºù³¡¡E?3,ƒKÕÜã^É*Û³t¬?R­UF˜uÍöÅÁ›£ì§è'¼yÏ·*9š™Ë –œbðWüoß—Ÿ»Õ*'J?7dlÙb,b.*‘ßšÏÓ55göÒAñ5ÿ–#ì‡î6O“Æq^ÖãÌ”Se”1\µæŠtÒ½}Ô¤‹¡s¹ö¿€ÄˆÌ˜¾5˜={öæ½#(E%Zs2˜ú'Ûý}ËßÒø‘³[ º‚ƒÕ«©ÑÌ‚Ç~;?¸5Û¢¢,{æ–:{6ÂÖÛÞ+F†~xäûâ<}cѽbkót(>*@ Uì»á÷‹Qõ(¸ë1‰ý1örícö‘óͬböCµÕbx©Hi)•¾‘ì’ú´eíâ6ÏÒÏy'%ŒH²’LíXó¥I·kóânŽZÄ™Fkð(Á#-XsO³bû$ÄK1tl>W:‘/ê¹®”/E>‘A––xbÖÔú1F[3Z%0>³PFËÛÛp ^—6Q“Y¯È‹Ë‚{úfšVeÄp"2M-ÒlˆÇeÀk!_«l6=‘ýö’ã‡M%P±›€›!oNÞoŠí>Dàzà oÐï>´ÓT/„Ë\ø rŸ QSvÛ}.„Ë\ØóÌpŸ á2„)¸}i0U÷¡/]ìœû,ã ¦1m•fFƒÒ _²ÿ\„ï]3¾PÕŒãú”"§qðÒ†ÿ;xäðä‰c÷ŒïJDéràoìž+Q±7G ¤áJD`8Ym†Tþ4~‡òâžfoY¹ï½¤K/Ë…1ýGžö_YiÚV£O_]"\*p±Îû´œÐu9dµwùÓ ­>}hßáã NMœ®f!g»çÔôGÃÀ1ÈÉ}IÁ©‰À8pò„vgêßwטV{)¼‡p ä5){qY <\_nSO’š4&7©÷.‰Ãà5Õ35b{{-pò`âêÌ''dzâ¤õ¢D–f”‰ï]Dp3ðvÈ·ë÷®ý±½kEv¥ë4Çò|ÝkìÇ]´àGöpeOÒ&Rþ4ö:(ß'!^Šfp]R:´=|­„x%¬•~Èò("WC%„Òn&Í¡v¹h&¸­®‡¬Þé_À鳊ìFåäF"v1ðzÈ×+Wž¶äF¢spò¸6WLn¤ânN@V‹´-®•SPÊ6 ñÒöô¶oU"Šn‡¼½ûqŽŠß!!^Ý,ÒΡ–E*0[ ¼²¾.Üá²3ÍΛ›±è–Lq®’å×]º#sÖ,×-º•³^.Ñ |“.ÃuªÆ‘Æãò1±A÷*ˆÛãšþF|ðaÈwÞô7ÂÜ óóÝ7}*þ ñê¾é_s¿¦£¦ßw5êØz€x)Úý²töUë˵‹0qß1ète{ 7XZU³ìÏ3¤ó/]“ %,W\3]²¦ÌzÙ72 sðä#Úßþ““ãqÛ]brøä:ßîRq÷„ü`b»ß8DW-ó»F©kÄCíÌ3Ž[–ŠC<ô {‰T¥iY‰½ø$ä'5j,âŠy*î4ðÅ_ÜCñOA~*±¡\,Ž÷wè‚v~ã­·Ù">/¾ò;ßlQqÀ7A~S÷›-*þÍâÕýfKš¹é`³µ j äV/ìYttWÂNÛcA§Mj¶ZûoÓüŒÉ «!ê¬áAXÿ-cç¬\–ÂcqHêÜaOUŠëׂ&áŸè¼C\ ' t!»Ýw*Þ“¯nÓØPÏÄ•‚_(ÜÐâ— §A9±ï6à€„‰FP¡íø*L‚g†âvÀˆÏ¥À•N®ˆ×®Rqë€×@V[¡m1Ø= Z¹VB¼´=}ÄQ¶TÜpäMÝwW#üÕ}w½N˜4ÇN|Ђ£³ÕÀä É~†.?s§Ù8°êÓ൞ïJÍôí‚]¶Ù°q!´Uå#Æ`ǹJM_¼r¢m‘ágª­¾©G%È¥Î-¨¸‡€d«ó!Š;œ‚<•Øû®É…:7¥L±Î:[U¿<φ¥ÓU6؈ݩ"jÓÀCÖ9èŠèTQqÀ§ 'tÅTüK$Ä«ûáqP¸ÇÎ…Çe<CÚjà:Èë´ÅÇ{Z'È –?gYUc”Ô?6:ºpÊŒ‡ól°èc¹ìÏD~‰‘ñâOÁÐ3]|ò£ÚºlêùÀ9Ès 뺀î“Û+;|?¯§ÀÛ>Yyp¶è—ž‚|*±åM0¦f†rÆ]SF½* ͶJYnkÁ,Íø9†ož´øÛÂRù}yôO±Z7îÒÓÌ¿ùK»TÜð÷ ÿ^÷ã.ÿß$Ä«ûqw³p[Ž\èi: ÜV×÷$]è_Èé]ÂÏùí'¾5MS:­‘–æ{—.doVØke³hq_˜›±‹3˜âgÙHó;.Ý[Ë:"]w)ª§‹‡üñλÔf¸á' ¢û.EÅÿª„xuߥ®‡]ßQ—ê=¥@kµ„ÉÖù:6CÄ.n‚¼I[_äÂÁÖ$ÊÁ(3šE"Z[€Û!+erÄBQqpää™±Óg¨øâÕéØBÅ wANž';¶Pñ»%Ä«Û4nvÝÀÔæž· pB½!N)›–h¬&¡-Š_ð ¦°b¯c«‹€d£ó®³îB(Í6tÛf©øA ñÒôô«ó µ„”}Ls«V‰][aãâ¥è-×$¥“‡¨ÜheQ„òvb’‚Z¥s¬uM@´9ð)²¡'*ë€A¾¨ó =·xqO‚Ë*ZjàÑæ4:ÖEö² i•ÚóÍj‰.M±­R.^*dÂ.(¥w-pƒ{“bÿ°tÁœ7[¸­Ââk’‡k®Ã3œ7î<‘»¸²¾DÄåy«ÂiD¹WwAÖpbcìÁ•¿˜èÀÆP%m î=››ËÅPVÄ´(‘¼ ø(äGµ)k _w£Tu3ð1È%VUüèKž ,@Ö}Wäͺ?㸆¼w¢'ÕðKÅ÷I˜,ü®LJg[XÚ ¯„µrœ®ËnFݬñ`ÎÈŒŽåŒlÜRg­? ÌäLÃfÕ,Ï{¬·kWc͆Ž\ûÞæíP1áqÈÇõÅ„»ºKûdœ)ã¸Ïúá¬;N‡¢w¦ü93ö?"ùà)È:G3+iTÜ à<ä䣙øñ›Ê? <ùŒ¾ÑåÄ>O_ Yçþç‚S.Eû<àS“ï^›™ÊcÃÃÛv)9ÑK€OC~Z›bnÖ’cSC:26šÛµcbçÈãž—›Ø‘³G'b6¯DõMÀOCþ´FÝÍZn!¢Ø×?ù3Ýo]¨øÏJˆ—¦§_“wéjÊ· Vo:æ[rRla©ø> “µ°«“ÒÙ)~¤zRË6¨ì‚J“oPÑ»º ß#Ô}bäJè.èƒð2È—i,6bQÚµÅ/nèÑq¿ÛF>±+O¯Pº#ûZSÐGpÿDOãJM¿½DÎù™=À[!ßÚmmÞù¶ÄÚº ±q@aá…¨ì&ZÁoëÊëj®U²‹ŠWl·ç§!OwÇ¥Og ÏtÇHîÚíÄF²…{°S©Õ™ CÁÔ§×\WÐÌãÀ×B~í3Á¹ß|+ä·vGoOßùm‰õ¶:pîØÓ#Ä〿ù—´UÃʼgY”ÑO¡.ÁîžT{oT|Ÿ„ÉzoÏ•N¤]R#³FB¼VËäæÍ›)Û7LysY…ÙhYL”+™!~kηVü¢éz[’é3—÷c?ÃÍP'á$äÉÄÏp£mì&ª•Ú´ñ|c¦fÜdÌùìÿÌJ–“Ìã_Á³, ¥,ô¤m®W¯TLw>ØÇç$Õ\ÂlxùÓÕ´£PÐ- A¸rò‘ÅjÚ—¦FèV¸U+¡•ž¥Fç6P \ 9ù‚æžÛ§ÆhX®œ<˜\œ«Äi?xì×jÖkE–›¥ A¸rò+ŸVí»ë€ŸÛÁpäUÉùìWåsjå¿m<„²ÔÓe¸ÚÆÅ›=‘à©ÚÞ~„Ò™! ¹^tœZ@ ˜ª-ÝàBxd¥õ uyÊP.Ç‚~Oý5+ÖâîNÝãKA|Љ_wƒ+a°Ä7–œ7ú6 Ö¿96yœ®¼ž#ºg÷‚ĽZ )wÏŽ‚á3£{vX>SºgÇÀã˜V³NÔ=“–ÓŸݳà@øLèžÝ÷'åZ쪼uʬÔÊ¡Kp{PÜ=:[ñØ“8T|Ÿ„É&qÏ0RÇ!îÉ©tß×jàúž'§†–º2ÒšŸsÜ°uý¡ˆñÛJ¡â/’/µ Xô­¾caü÷»GÅéëèAü»X¼w!½7 ~ô⟂Ž ¸vûE¼.Xø4ûFüJmäû¿ÊîýãÅ‘c…º].v•Æ¬m»vn+ŒŽ ái¤bVGÄõá^rAÕ¾Œ~xýð­ÿبZVh0Õº±2åÔ¢Ž‰Ê¢ ZŽ[Yj ƒZïùgñÞ²E±ñþ‡†‘ ºü§ I®XäH«E‡rÅ›õ¹’˜ñÇÞ÷Ý3Oü ðÞ7.°šà ‡Gï=~×CE?0"þO¿ùC«¶+¶b¨.úX³ð÷nŠñ{­6³ÈV0˜²ËV›¯œëÒG•»"t¼BšñÏv),¡CÓÀˆ1hh³~j®V×BVª™ÐR—çͲm†µÞ}¨†¾žÐ¾^·4Bů“/MY9mù*Jé‡"×C^ߥH©2a­w·”BÅ_$á‚Ö;©R<5¥ @]VÊ1®R ˆõ*eó–Ïó¤)Cä8ä£"Ú¸WéFŽeÐáoÔ¨/ßöËamÍ2èˆ0d=¯[ú¢â³⥨¯IéÐk„êVþôÃ056SNØ´dGä˜T¥shæÏZúŠFŸ(6©›€cÇ´Yó@¾vr:¢Ô-ÀqÈ㉵vq°ÓÁÀ];±“µ‰ÏðvÈ·'åÕ7•·§‚3ÑŽ[§jîøÝcÒ-e=Ÿžt-:`î‘3Gö¸óî}{ìþãÜ~ÍŸŸ÷rÌú¬êlfpÁǃC7·Ú}ßµ§ŒÌuÕÓÅÓÍÈŸ -ú™Á ±¼Xªæ÷JVÙžusUË©Ö*¬ïÏöÅÁ›£ì§è'¼yÏ·*9êgKN1ø+þ7ïg¥Mâs7 ZåDé熌-[ŒEÌE%0ò[óy~ÊÜ^¯èÚ5ÿ–#ì‡î6O“Æöv­îï1ÎL9UAÃUk®Xa…ÓÛGÙ{ì£\n„ý/ 1"3¦o fÏž½yïŠ@Q´¥Ür ¦þÉvßòÄ·4~äìVƒNÂb5Àjj4³à1¤ßÎnͶ¨(Ëž¹å‡†Îž°õ¶é‘¡…|4®ÁÓ7¤·6_vÌ*@Š[Ô#Öuš±¾ObŸ {9¢ö‡1ûÈùfV1; Új1¢ ?yOK©¡SEk÷jÕâ÷-¿Â§Ú¢&Æ"Ÿ¥ŸòN>J‘dÝ#™Ú}Í—&ݮ͗,as¬ª#:gX’’§Jž ÌMˆ—bèXxmQüÜUàà‚“#{DW™SÙàô“É{î?|8þŠŒ´ÚÙ¸ãªÄ׃æL.—‹OJZa“º=Š½ÿˆ±XÝc“mÉs~J†Üˆ×ö4'Ø’qâmZ€J€x%¬…mZ’)„mÓŠY/Q=–ØW¥­ëiÜ!¶íÜi…Ò¹Žé£yjJó¢kÓxT^|] Y.ã#~:’kùu·ÿ†ãuÐ4áaȇµù^äýCTÜðä#Ýw=*þ ñê¾­¯‡}¯ï¨­¯@ã¡@‹Äüû«{çCI‹ë-}6LƒF~Í%·ná %ÇòŒªãÖ)Û‹}õåz”Lx;d¥ù€x6¾vMxòÁîÛ8HB¼ºoã®/ÔnãJ÷ÂI–v/\B«>æT-:¸«â¸-¦,v9F^(ß;/]Ë:Xq­ž¾s°¹Ðy«¿–NX„\ì¾ÕÓwJâ¥ééÛß, q.êIµ_y¼$ÀdýÊË“Ò¹> r¿iÁ±ðJ7ËÉçû‡Ü,—Î,þ%°KZeM65‹Ó“8^ ùÒÄz™lÌâ{¾C9äž#ú´6Ýt\ÙÿŒ2kÑ «l‘7EÖ¯µbï'ê€÷AVš ÕæªA¨s0*F lé×>òs5†àˆ­¼TÜ1  ÙL¬Ñt.ß½ÀWJT¹‹€˜€g!ŸM¤°P7t”–†é§^|òÓµ±_ŸŠ{ ø:ȯ뎱<ø³6±±¬ÊwÒñ8±À"¯¾ òÛ´ùòêÆTÚŠ3¿øAÈìŽ~~ø!ÈJ¬Ÿ ÛknE2cßÕIl~øYÈŸÕ¦¥K™–DZG¦{•ôõ_ß‚ü­îèë7߆üíÄúº$gÜËküØx@Eeßþä¿Ó¦²Èi´¶úùg ñê†~~ üÈÿ’X?7G,šºkNläŒé@µýD`ï5B&Ô½$ñ°÷zà° » ¿Þk9!÷æëïæ¬áÀ¿ÈµÞ=(Øv’åÙnãð™Ø›ñ -dÂn/ÖÐ@=ƒÔ 6;Pw]Ö—/Ï‹ûˆ¦œrÙ™ãgžKóÕ^½Vs\ß*í‰K|ÈN@žè~ý]†¢ÔS Ój—£pÂäÓj—&­¢±NB¼ÖËr±7&—+PWô4W±—+W ûæÂû[3ì‹3V1öuFWàW¯@a®¥Óa”Š»(Éñ‹ ¦PZªâñ²3ÍfAS,ZÍs3Vã†W\!Oõ%MrM×µé ¯ºOß®”{DƒÂH0ágà ;vÇ•žõjàSŸR6‰EéO´^Å^ | ä×tÇ^|-ä×&vÔlàw<þ„‘xøFÈoÔ§fwqO¢&&~ò‡;2 °þ§ è^0Y±½â°Úìñýàû ¿O•÷¢_~ð#?’Ø`â‰Ù¸¢†r ³¶S÷DçÁ¦ JÝó±Â`Šúe¡ÁÁÊMç²âà0…zû¨ÀÞ•BîUKÝ ³ÀA(3ƒáì$Ízfxœ<´ïðñƒC±ûßDt=pTÈ„]½«€cBîUJ5o=š|(îò•?œr¯R70âñ#–·ÈLV ØmB&ìvï“ŠßÞÄà•J/ëJaï;ßËZîÙe6ºˆë-Wâg¯ìiéruÚ[¨¸ €’¬©›5ݶ›åù¦ë×kFÅò<¾ÓèhÙžWgý¬Nõ±èA7Ÿ„ü¤¶PºŒÇKý¿øjȯîŽþ_ | d¥¾]KJ±¡¤Gy-ðO ÿI‡Jáóü€©ø %ýK½ýBîU ÇWý÷Pì€åkQUÿKLõ÷8¾Å´iúk{†Y A“k=QçSSP³'¾Eó-fÝwèšDZ`ç&Á¾FPVMÆÐYdâ~E2§œqÂ1¦êôÝàCžr¸ ¦xYþS-¦¥hSüWÂ÷ ™0M…ÙÖµÁ£`ëèqñ0Gð, œ? üc!v`€°¨Ø¿!dÂ.Xsï€ß2aÒ~OÜ^ÿ­&¯N÷úÈ—W Øo ¹7ù¢Nì^ÿ&¯Tz}ÒînÌ­y,¼D á##ÿUøUÂ.έQq“Ï­-[PV»N_Õ°*5Ÿx»*wøÌ…{ô(Ñœò-qE†Ø—´ËGz5ð_ ­S 4­FT^ |9ä—wGù/¾ò+û¨â´‘x%ðu•rJ´M«“_¾²RK¿d«©wZø¾øÈïQå½è—øÈHl0´L«)<쟂ü)JŠhe©¸À_‡üëÝoe©ø߯TZÙ«…ÛqìÂÜJÉž¶ý(׈Œ´Wãgƒu•.Í­Pq“Ï­ô/¨‹)“çr”p·ÜÚÎ8sÊ͆߆IoRJë”Üš6[^שW©íÍÔ«|HÞ¸¾^- Ó³n¾ò‹R èÄäMÀŸ‡üóçA@'¾/¾ò´túÅ'o…üV%µ Sq+€ïƒü¾ît*þýâ•J@ß(ÜŽc7†Mþ|9ö°i#~•°‹Ã&*î`òaÓšUq ; æfÏ öx˜Îsa©²ÄAQAx¯™î¢àΧÍýø{N‚¸MX†\Ö¢zùÛC#\³šk¹Ÿ}$8£‡}4õpÎŒmøVÈJa-”öòöœÚTé/ß ùÝ-u†)´Ø ð=•-U°«1…ÊÆßÁ -Õ 6V¯ØtÉ6û N³´|Z)t±ÇêÄú¿¿ù{úúûî9~—£¿þ-ä¿Õ¦ÆyﾺãG…œïùG‰9b²ãŽÌØÓ3eöò Šxž®> ‘ýï{¯r¯RœÔÖ$&9à˜ÕrºÜ$¾›€7 ¹Wé0ÆÐ_¾8.dÂĆՒ+s Ø @3|F0-ˆ³ iÀ¢P@SȽjûÆô­Û—`YȽJfì¾HoXro%±þ¶òQäœígXŸbª1ZdýZ Mбè­ß ä^¥¡Lø¤@Û–¹­âÞ |‡ »¡¸Ÿ¾SÈ„ wÉâ¦9 ø !vzFÅ û«B&ìöŒŠÿµ&¯T†`×#çØ…!sèJì!Ø5=Í º8£â.&‚]´ *¥ƒ?Í"­¤(¹æ\U¤sÑÜciôÁêLòÓ¬A‡Ñ1­³Vy^iW$´Ô•yô²CJ¾¥IKNVT|Ÿ„x)ò¾¤t®ëGb¨çJ‡ÌCÚó0x†!iSs(Ħ0oE§ûû782S Ì›ÇÀÇ>ˆh:&<ù„6K[žçQ£TÖætíl3l+Àdv¶<):Jk•„x%¬•+™=蔧¦MÖ£zÀ¶Š3~Á¬3«ËĤ']u'oøÖÔ½º|n¶pv|ÊK $¯S£E[:#ʽ ¸ ò®Äºë‹}v&•¿¸òmJÚd–ÍÍÍåb(+"ŸŒHÞ|ò£Ú”5¯»QªºøäÇ’w¸†bG_"ð\`rAÛã¯È›u&8zQ !ïÝÒ“jø¥âû$L~W&¥³µG¬vˆWÂZ9ίu³Æƒ9#3>:6:”38ÕR½È§ÈÈ™†ÍªYž÷Øøخǚ8Z° û2Ì TLxòq}1án§îRf¢3e÷MŸuLxÒqgÊŸ3cO¼ÉçOAVZ“ Z•ÚLD±'€óçSˆßTþiàÈg´éªob‡Ÿ'/†übê(8åRD±Ï>YíŒ6ùÓµ™‰¡¬16<¼m—’½ø4䧵)憠a-96ÏÓÍíÚ1±säqÏËÍŽNìÈÙ£1›W¢ú&à§!Z£îf-·Qì뀟ü™î·.Tüg%ÄKÓӯɻt³'o6Þ*tÜ3Ô“j KÅ÷I˜¬…=ç;¾#gBi–o„x%¬–5ÍÝc3’.`—/!LÈèÂ#~hA|ZYPÉ6þ€cBZ—y-´pì\lrà DxäËRÕb,rZµ¸aAuñ³‡bsBéàâkk,F“ÖVh±«òÖ)³R+‡ÆÅQÜXOªq‘Šï“0Y\\”ïY1«v-&¥ñqẞw‘…–º2ÒšŸsÜ°¾Ö8ô@¸òúîëdß /µ Xô-~Oô¢2ƒÿ‚CÄ{TÌ‘¾±ð^czïBzo@üèÅ?¿ £÷ÿ¤ó"^,|š]#~¥6rŒý_e÷þñ‰âȱBÝ.—Æ »ÆJcÖ¶];·FG0a¶=ÂO.¨Ñ—ý&Û{ë?6j”•Õ&æ#kxŽSÅ)YÁBÄ9wk©Šƒ ».‚,¥UÜ$±lQ\¼ÿÄ¡aÌÍ-ÿéBß•>\±È‹V‹­Z7+s%1ã¿ï»gžøAá½o\`2}ÁtÌÑ{ßõPÑ,ˆÿÓoþÐê……Ý[+ÍmèfÍÂ_½)Ư¶šÍ"'XÁœ`ʦ½Å‘_9ב³¡éàuq«s‘¦«K‘‰Š½DB¼hhöj¶‚{Ï/†¬T?¡¥.Ï›eÛ kÅûP}­Óm½Pñ—Jˆ—N½<¦¤—~袿Ëz‘VíÓÔK?t`2½,<•e÷!û”U>85ÅO]¡”£cìÿœJã­#\g4‰z„fU÷ñYÕø»C 9ÂÛ ß–´6û¦òöÔ™¿R>{&Ü:Usv-¯^ö½I·”õ|Ú›ïZÕ’å>ræȾwÞ½ï¡cÝüàÛï1öÇç½ëù[ÕÙÌà‚‡n6oµû:¾kO™ëª§iCNFþlhhÑÏ 6(Us{¬víY7Wµü‘j­ÂÚæqóÔmÛF|ëÔp¥R.Òó±/Þle?E?!n ÌQ{‘,9Åà¯øß4¾Ÿ æ¸'ñ¹P­r¢ôsCÆ–-Æ"æ¢ù­ù|Þ©ûgöR¶IÍ¿åû¡»ÍSƤqFl¶Ücœ™rª ‚2†«Ö\‘§ú±·²÷ØG¹Üû_@bDfLßÌž={óÞ¢hK mlr‹“íþ¾å‰oiüÈÙ­³ZÚìÄjj4³à1¤ßÎnͶ¨(Ëž¹å‡†Îžœ±j:vdßc÷Fü>àaȇã<}cíÂo¬ÍÓŽIT€äÛR² cŸU‚»‘ØQa/·ýaÌ>r¾™U̦K[-†—J&Ý©RCÇ6k÷j•6§8Õ[Ú £Fr‘ÏÒÏy'圉,Ïû¶_ë?à¯N½õpIÖG J÷Hˆ—¢·nLJ‡2ýÖIˆWžÓô~Ç9)º(¦ëÛÅrã˜ni¹—nŸòùž‘É¿_bϺ'.è,ÙSXj0 –?gáˆÏV»+9ÓNCžÖÖo¾dŠ÷Ï,tÆxZ` ø$ä'µ¡6‡ÁÐkøbÈ/Nl«¸FNu ×SÀWA~•6E]êŠnsRMýð½ßÛ-M½ø>ÈïK¬©©àV„ŽScm®åf™ýs|tt÷Øm>å¸:7Ùr+´ãKÈ„ UöÃÆAhv•—ÌRÖðlj!m_lGaÝ>öç¾Užo4¬¢5­˜vÕ0=¯^éÔt8«[žףب\#cç¬\¶yZü-·nPÅóó¢SÁ‰3NÅ™¶ª–S÷²”¦Í rx‚7­¼xÍ_›÷q”Ë×+m²L:ˆ¾<Ô4ÂØSTLJö ¹oL›^Æž´âTa†oHÕùDÂ{…Üwo— ±oxTÈ„ q€­P÷O¹ï„65]3dV¨AUg…LØUÝœ2aBU15g-ì$gNëÛä¸êO#’pW/ÛÌ÷L¿Î\”9f£W.Ñ¡·„÷6L@ˆLx ø=!÷}/ñ£Æ j.X˜WmX°PìÌRÚ«¯Ø°®ÂdsÚ¬±Àä\7œ„ ¼8Y­Ë!úË8|‰µhF5¦t‘=5¦¬të•œñ P'2ËyŒó˜f³Í¦ýù…?_ÃmSø”ûžJ¬÷Q1]æ ͳÞÅTÝ£˜KnËC6uª4Õf*uª‰íK€Ÿ2a·;Õ«„14PO§ú wŠÞ‘è=Q·<Þ^ùÔ1sijÕ3æ‚y ꘄµÌTÍ4Á—#ÄŒC­îÖèb>IiÓÅâ°Û6ƒ :ÙÅ©ú®éù4ñÒر6g•ËÃ'Y;Î…L2ÇÖçjTá A›ù¯Í7pÁ!Ç‹‡#­Q±­‰Šï“/Å uiR:k¡ñêv­«’êQŽÂñ)ëP8aÈñ)1ÕCÊ mKZ³ŸŽ(´%ëð=ÂAȃ*D9Á×$U ѸAB¼ºmG롲õØѵâxê}4ÝLa3Püì,gcr¼¼¯…|­2Ç 39›·§(ó(ÈJ£²gÎòä£|fóX~è,½ùDõÌæ±³gñ7ÚƤ1–5òå’ã{YãdÄ“´Í7¢/n3îãÐ7å­ÈW÷eÉ¡¤œÈÄ©Fô]ñ]*ÄÔ†=,"÷,k£¾<œÏ,Tr~(ª¢"²‰´1 /5"›H¯zz›õj@çê iÕwƒ.—º!¥£F+z .ˆ3i"È£³D-‘xSf‘6{Ÿ€¬¶q;•X¦éƒfò>{ìtË`kêI7é†üœŠðœo6,­±1À´=kU¼“öÅ J8Ymƒ9}ª>¯´‰Æ®“ͱëMFžC¬šg—*¾âkMúŽBûEÏ=œƒ{crIDø”Dü” ñ%'’6‹‰¤6Š‰=¤x¬Æ¥3ÕÕ¡Ð%­9¥* %«âSé(7r¨³Å¶i#µÜzR­1Ç7N+äßÈ„ž„üd*#ŠD‹³DÿÅÀ×C~ýù0¬ Âoˆ¿A…xòa…6Úgµ1‹þõ©¥S‹³®›èàÙ¹R—žzŒTþt»<À šá=硈¹oµÜdê_‚ü¥TÂl¯ÒNâý{À?„ü‡çK|ý#‰ø©×_µÐ¿o&Ÿ‰¿5G¥ØUŸ>– ¬‘ÆžV¥DGÔΕºDDÕc–ò§›‚ý78ÐgÊq-±†)f!¸ð?Aþ'm¾³ºHKüöt^ÿ.°·_È„Ú´y$üÏ(x@È„ µ6lˆ3¢Ž7¬–ŒšëÌÚ%~2Tüºê]r¯Ú´Q˜74th–éØq|ˆÅ]ÀÃBîÕwðy»–¡wxDÈ„‰G„â˜iµ®Jï=À‡„Lx>uUzŸ ,™ð¼èªô%âEâZº*zhhíªè¡·«¢Qèªt´R"»*,µ}WE“YÊŸf[…íj±\/5m9 ?ö"“Ìö`ûŠÄlc/2-0¸à•xÄÌÿãAÖù±[s–==#¥“ÑqD~ú¹5eÖË>UjLê—‚.ávÈj9aíÖ+V¸3W¯FN¼´!·x'ä;5öÊvõdD±{wA¾Kc±EÖ=(vðnÈJ'‡·fÀФµ’Y< xòQm­Óæõ3NirðÐÁÁ¨ZŠºT—=4!›ÝQÎ}Àääqñ–¡¬8ê‹V‹m~p:Λ²}rt1’kªLR…cmˆ{øÈïP~õEåÛóÓ=#&cÏ>6G‹\S®Y<“÷ê•ÇÎØ“cg=iÌQr7ækÏ.úèl°òÌxó_a_jù;c¤ñžÒ*4UÔ;ö^.dBM}Ü®Bá+šÄIŽO|ÉUè;óëÐdì¥jmO«ŸÚ™:í‹ÐºI©^Ã7o$ôÔt¬!rm»³Å¶é¡k+¸u¯~p‚´Ò©ß2§ÀIíl¹0˹°Ñï5g-לŽ;åD¬²À›…LØé)'*n p¯ *ê†`i,|þPíx¢8 4…Ü«Ô©Ji2Šx€'…üÐ3{2Š—%âeâÉ'£´ÑÐ7¥RìF^Ÿ>´OFuºR¢›ºÎ•ºDS§Ç,åO`2*+v؉ÖE}[Ìò•`ùÊT‚çš9ž286¢¸k„žàUÀ· ™ðü£ïˆ¿C…¸ž0ª…Fh]ŸÏHúU ¨ZÈŨú4³T@=H«z¢CkçJ]"´ê1UùÓ¾Ø3ø2w‚Ç;óˆ=ƒ¿F žü§Ró‰»S´“ÛÊÒIþž]¢›s®ÐF‘ýfuÚrýáÛ]g®êáfT#3>:ºm(H½~ÚZbyü¤ëÕ“AÙ­Õ3±¹™Çÿó8ž&{bÿÕí\¹ °^ˆK|d ' O$&>¾™ñÍíؾƒpt|ÇnÃ`!yÛn†{¹#ðÏÇÆwŽíŠœäŠà-uNøq)½5#/È×ø3Vó¾UŠè£¯@ñ“W[챿MB¼ºMã&( @=¤RóØ¡û†}Šý^}zš¡”8Z¯–,·<ß8U´ýLmÆnöœº{8‹§#,A.)?é>=˜·§Î”™—Ÿ’V9é½ÐÕÐqZ ¥Oé2à&Ë¢›ïˈk6JSg'¥¶ˆZ¢ ÂWoh÷Õ|ÙoùòFjÞ"0¼Û®¿RZÀo@þFܺ¤o„®¿ú­ë¯”C³5xµ+XÁ7%æßTa~ÎË|ç¤ÐxÑSÛ„—±ü×ÙRû™Kt²Ð¶f¤²Œ¯×ŠúT—ñõVЊÊgÎ)ÈÄ^àï´ ‡/ðÿßl¤¤gt Tiþÿ¨Ñ|äOïj9ˆÁž¢{¨ V™–ÛÅ.qž&uËx–µXÌ—ÿy3Î\UtÞ u“ë½FȽjSÏa&¶2oEEѨu-¢s=ð&!÷*MÚGïˆu-*îZ äÞlbÝ>ŸÎô\°ûŠ”gWg-׳†ƒ…IcaªzK¶vû¾¸ø&ÐJËg;gå² Ñ; |¿ ë émWçÙØ䌼ŸElha£ÝÁ:‘ø`˜}g˜}¹ù±Z'º÷À ™PC'º³WBß¿‘xÿ o-=4B£É¦|¦5¨tyôÛåѨ©¥v‚µuŸ”ª+”hL'NK§‘ý–Ú&SŸ¿ÉŸöÅÎÄ”‰üD~”˜H왳aaY Ô3svHÌœÝ[Y&fÙs ËÎ<µêõjØÉ bÕØÈæ Ïò)¿Òˆù,9ð'<ù¶Xº. =yhßáããöψÔàs ?§óý3*îàÃN¬ß…£/ˆAøäÇiGãÑDª t!»µqô7ô {Ý1Šç}È~b£¸a(kÌÍØřȶJÅ:ð-ߢͧ/–B‘ÚfWâõàG!T£#ºTÜÏ?ùcÉ5؉ͮDñãÀoAVÊOi³+ñþ6ð/ ÿ…–N‡wiá¿”ˆÿ¥ ñä#m4ômvÕF)Ö8F¯>´ovít¥„:[j›€>³”?lnvmðì!‰'?õ/{ÏcMxŠÐXË )õðRš§£œ<Ü}| Þ¬‘H‡œÌ)Fd~B,a^È„š"rÏ "ÂHÄQ!Z÷u,8'è\tûP m7„v û"T¬`ò)Ub(}%ÇKGß‘Çþt¶Øö̓ž‚“MÏÈ4i¾ºMcD˜WõÌåÄ,Ñ1˯»UžAåˆý¶ÁÖÝ9K¬ÛMÙÕRìÝG£à9ÚÓ23ÔíªCѦ¹ûhåãßÉv]¸€Ó®6ÛVp¢jèÌ_ÜŒQb¿x²Ò‘æ­Iþ纥%k´NÆÞ,!e¹öì¼'1•-.ÛP:aŠ[\¤ƒp5ºˆæ-.;@ŒpäM‰IÆOôÞ‰² û ÷%·þ®mq‘6†œ‡[\vƒñîžt·¸Hqã¹ÅEÒì3‹Ë^$Ls‹Ë$ÊžÔªÔÄ[\nÂ4·¸ÜŠ²oÕZ=]ØârÈjßâ2¾}7ßÂ2:±k”¶¸ìšØ±£e‹Ë®í„Û&bòÞ®„R×QÓàkÉ-.Tä Ÿâ*~›„)mqÙ¨§“´µ±ÅÅ•.´Jœ#y “ET­9’D'ÜYéö…ˆIŒˆåV*.ÜyGbÕy”#YuæÂY/k¦’I¼ø>ÈïS~ðN$FÖyÒÔø|eaNUããðçn;KMý~à_Cþë¸Oßèrb$ñý¡Äû‡*¼“/j£#12PwìEmdÃK˜ ׫)•ÄÈ%ü£ãÕuN‰‘i“ŒÐiø„wgKm3á­ÏßäO#e" ùo»ßߺ]XVõô·ö‰þÖ!6À™ ÍeL:õrIäLg‡5ľÓlác>ÆAP'”úó)5ÁëZ¯ÙúsÁU*Í,=Ø~  Ù<šYâ[xTx'ofµÑϯcÍl‹Æc·¬ÚøÅjYõ*g©–u¡W¤TC¡Ü–òÍ´ôÞzv¶Ô6­§>7’?]K µlX¦’v)3ª@®(3J’vÙ?§v<>1¯ç!Ïk‰ìN¼$§%â§Uˆë íZh„'Úóãñ•â¹R±ã¹>,•zÙÆàÓª–èpÙ¹R——zLSþtDL\Šcvêžå—¬)~npçHfÖ6Ù§Óu:ÝHàÖï…ü^}þŽQ^5§Il> üUÈ¿ªM‡‘sšTÜû€¿ù×kPe_1ø$ð7 ÿF"µhÜWD¤~øUÈ_Õ¨ˆ}ETÜç_ƒüµîŧ_‡üõÄFñ C9ãNššÎ"‹(âÏ`£j¦"¿éî&ß´šu4Ä£Äãu:Õ«fm³lMÏòrÆ]”¶mÔkA:E’Kì[%>Ÿ£Ôn딯D~_ ¿Åè÷þ_5ï­_%dÂóa<Þûj‰÷«Uxké´é¡Ñ¹ñ¸~qûo•Óññ¸f®ò·ŒÇ;ª·ÈfKmßÁÔäFò§wñciøŠ)k‡¦êe£fºf…2¥Zæh3®5mº¥2® ¢F$h’XcRŠ?'.?Î7ð8ÉOPŠ='~Hdõ̉nΉ˙ßb¼î‰ÙžÄÇÀ>ÝX¡n,N³VÕ;Iü<áaÈÉs‰cWì(:À4“ÄïBùwáßz“ÄoY:I|‘º›ú›yEÏ°x ò±Äõº#nª¸7Yµc'ߺ'ÜyGò–Bšø³P:aŠiâ’jtÍiâG@ŒpäM‰IÆO–¼eöAîKÌ£{iâ÷‚3áù—&~Œ ÓL¿eß§Õ ô¥‰'Âg|šøq$L3MüÊ>¡U©‰ÓÄïÂ4ÓÄ@Ùh­ž.¤‰?²„ÚÓÄÇvŽí–oB˜Ø5:ÞzÂnŽããÛvÅäý¸ŽC×6È[2Mœúv+P|ŠiâTü6 SJ6 žNÒk…Í?ÈÇb"SÜp ¾iWòEç}˜:ïÏŒZŸƒŠ |-ä×*WÊyv@+=ôÓÀ/Cþr܇§otyB–ø~EâýÞÉ'dµÑèÆ­ÚÈFÌò…ÏÎêÕ”J²âÙ§ú‰ËßÒt@k§u>sÛÙRÛÌÜêó7ùÓC9ã¸Mk…‹g—p2VÃn?æ×ö°v¬£B<ù€] }ç k£kX®WK%½Ç>o¸Ó•>®íl©mƵúÌRú´ÏlÌŒ²Ám¹^býcœÒ^¡©³j–ç==lÏ«WØĵh&Bu0žr™leÓfëšS«—ŽÎTPÅeöW®%2e³-I8rùfXéE¿n–ÙZ”WZP`Ñ)—Eg°¥À#4ÓìÏ×hDPžÏ²QB™š ÇemËŒ9K¾YU£bŠ¼\:'’çA† ×­Y³ê7˜ŠÛ hð`Ñ-4h0 Ì…øãÔf¬*kƒª‚‡]õ-—–:éGg¬`þ ´vDnØÌ|Í¡i>„iýŸ)÷hxÃëÁ®2º¶oÑm'òÏ°&°æÚ|pCôä:ñS¥›ON j½è[%œ7-’¦B?w\ñ•Š9Oúo|ÌTݯ»VŽ&ù…¥ˆ¯«7}_2¡¢™'jßØ8ò6ïÙãžL¾RÏy߬?:>„ï\ÙøÎó~A­õîû=ý+„L¨¡õîìl;ñ]ÙäMr|ÞZo=4Bo#Ÿig*íº¶qÛuªZjº½½ ¥T_¡Lc;rZjì™t°Ôö=M>'ú\é„%¯” oP©ÛP¥•j.K¶ç»v¡N-ÖœíÏ Ü4žR½ÿ•h?43MŦ¥Mk¿'ä~ï<öûq_…¸ž¶E ¨ýÐL¯JMˆR±›}Yr?t´Á§U-Ñ!¸s¥.‚õ˜¦üiÎ`£Çrêƒ )˜oxõ;Áù©Ô墙W©ï~DÈ„çGLý¨Dü£*ÄõÄT-4Bcêjꯓj•Âª^±Ãª>¥,VÛ›}Z5Y;Wê‘UÊŸÞ‚cr±æ|.·&J]ܸ‰#ò3üžáÎÇHû?€ÿ[È„çG¤ý?ñÿ£B\O¤ÕB£‘V ¯Ø‘VŸR:i;Y3Ñ‘¶s¥.iõ¨üéM«KIçS¾U5Ø?,×K¦':·§^õîW”hä„L¨É¯.hÙ#ŸÚÀNà!(å¡E¨Ò»¯îøªÞ.dŽÉTy4h CÛÉ¡\tþ@ãù‚e̹¶O6`ÆN룧9|ƒ9ª=•úMšÆüc6]ÉW©7u&ßdäYWªyvÙ©>fgñ½kB¾'}I­ ø9à÷„ÌQOÜÁ‹3‰ð÷%âßW!î[˜]Ÿx)Õľ'Só¸Ícê«/B£KtJu~-¦Š[¥£ÞÈk1;[lûF^OÁ­s§8æ4ATø+ù«Ä]u­yC½¹F6ºp‘ùâ:–¥F“®.ü@à²K…Ì1yïøêò² MÞ$Çç­e ¥‡Fhóqe>j*C*=4ã¶u´T›á-)UT(Ås÷Ù´Ù8t°Ôöƒ&÷jñfÅʼn•+AåÊÔš†-Ý!Éìg³ƒâ²f'$0:þ©Z+±ì*àýB&K×þöøwnÈôóx ŸOü@±Ol1a“ê9±%¸‡Úöùö3¼o‚#¸p+¿ãGªÅ¾h£ê„û ïë~mQt€zjSí¢Ê/áß½ùÅ 8í.ÚÕl¦êøÖžÆ]Ç9<ˆLK£dM™õ²ûêzŽ À ?¸n¯isÙFlŠª™ðÈ×$¦¨r§ÆJ'LñNi عÙ;Á+¸TãfƒKƒIxÇÝcÆÖæ 31ùø'ÎÛ(›°r_bwnF5e‚ÅŠ’”årÇÐ:ß}ÛîÝFæøA~ÖìèØî±kõq<¡t/Q§ÙßÆÈxOÔ©­v‡?FóÑijò \ùµ!†8~b{\þ'Á™pd¥#L“ß|²+7±3öÍ'ep&Lûæ“m£qÙWÀ˜0Í›Oª(»ªÕ'õÝ|â€á3þ擦yóÉ(û ­JM|ó‰ *„A¾(…êñP¶§µzºp󉲄'ÇÍ'ãã¸ùdÛŽQÃØ–Û5>º»å擉±„cãã1y×Á•pò¸¶Áö’7ŸPG{ŠŸèIíæ*~›„)Ý|2 ¨§+»±y´)ï›ÞŒ3GWJ—,׈Ép¬7BÞ¨<à[8Aµ2ðÒV‘G‹ÍÀ!ߨ͊#§â®Þù¦Äúú(b«Î\ؽ4-3öíîži9Õ¯ÝTþ‚™|颚Öé*ƉƬtÒ?›/¨ÝeCÕ•~²úŒ¤™­ŠË8*õ³|ÀÁ"¨x{‹.½Þ ƶëô€ßØ; äÞØ#dúF—³X‰ï²&o’ãóN¾L Fh°¹4¸·¦©ùØ«Ú†—±j W=Ke®.ö”ê(â¢ósñÒ´ô¾ÀÑÙRÛ,pès(ùÓþø 2‘ ’ü¼¾Øý­S ¨§¿5›æf¬*nøhÜ ‡æœš`4ÊE§ê[§øDRø<·È»SÞ¬ F.0?>0¸Ýz¢..‰ùøóxäùVYññ“,Ã_6Ç7´Ž ʸIyç=Èià›!¿YK›Ûáµy"ü‰ø[Tˆ'otµÑmt¯ÊgÂU»éÕÆ3VÓ«WIK-ØÇs‹´j*¼‘ël©m9}ÜR`VéÈV™ÌÛ!¿=•› ˜È¿ø+å| ©–ˆX…¸žª…†æbm¼b‡P}JéLq§k&:dv®Ô%B¦•?½Ñp­ZÙ,²îjaÞ°ýæ–5##%iPO8_ò·9Tè&&·bæêU[Ü_ÿòßiÓâ²|Ù®žŒ(öÏ€?†ücÅFLRqßþ=ä¿Ol:Ëé4%³øà¿@þmqv¹È4Šª ¨©i"óïÀŸBþiwôòIæù9Éô²ƒ† 4Ì›Nµ1+]s<Ï.”ÙhvƱé¶YZ\ƺlü_½‹öî2áy×iêÝ <(äÞØ9î)ušzIÄ©×ÒiÒCC§I¯¸&JéX§©£5Ùiê`©í;Mš TþôÙC9ãÞªÕ©b‰Æ¤„xuÛ¾žU¨Ç¾æÄf¦Lß5]>#4‡¥ qQ¡ç‹i01ñS¶Y7ýºkSIv¥æ¸¾Yå9!®e–íÓ–XýX8Q¬D–+öÅw/ÀJ{P5uúú«Ž¯@èùÀB~¡¶ÀÙù¥âN_ùE‰àkê-ü`:ödÆ©ð#æïXÒâ¥POÿ+äÿªü IÖµ‚þ¢ñmÇrDÿw€ß€ü¸:–ëðâþ¦Dü›*Ä“æ´Ñõëµ”å#”{§Y¬aœ^µ,µÂµ”é§U7áC¥Î–Úf¨¤ÏHåO7ñô€`ëžGÛéY”­8UœÒÀ¡ù'©ÔåªTÃéÿØÛ/äÞØ]×”Â)ßáâ|w­RŸ;q8ÕC#:i’T«LõðŠL5*å’&Û˜}Z5J;XjûPªÉ@åOWÒðÄ,—^»lÖ¤3ÕÎ!'Þk„Lx~„ËË$â—©×.µÐÐw¹6J±#¥>},)cŸCÞéJ‰’+u‰ ©Ç,¥O{×; 医ª†Ã“qæ·äe#§j7{Ô,—Þ/ÏSçÔ.5¯ÒðpŽXËq¢YÃôŒ²C§r{|Ÿë麖ç»v‘ïbÅy–üÈ΢E-çVµ=/½Zâ¿9'¯9y!M3U?xˆ…Çi©‡¬¾ë…LxÞõ¯ûnN™ð¼h0ú¶IÄ·©×Ò`è¡¡¿­‡WÜVC£R:Ö¿îhÍD6,µ}Ó¡É@[S!Gf²LÔO6Ocã1ß< dÂó#XÞ.¿]…¸ž`©…†Î ÚHÅŽ”ú4Ò ®–è0Ù¹R—“zLSþtUÖ(Ô}µ¾eƒÎaÐ9¬Lç˜ãNvXr_YK(ílÊ#ñ­H¼+*¼õDR-4:”ã®_ì ªO9Íq×ÏUþ–jŽ{§õõ;WêQ_µ<¦bç8`R“Ú3$àkÉq§{ø´ Ï‹€ÿ:‰÷ëTxë øZht(Ç]¿Ø_Ÿr:›ã®Ÿ«ü-Õ÷Në-:àw®Ô%¾7’?Í™’U³ª%šÊvª»‘irüüv™ñgÀø3‰ÇÎ5}¡°¹êÉ5ý#‘kz§3gÍZnÖðêÅy€Ò åbÔmcë9ã.Û \º\Ƴü–[±q ™ï´áɨNëjCÁšg¥,µâ`.XoÈ°f¾äÎ=Jt}¢n»ñóX_„Ê$ü#Ȥ-°_dò]s˜RvmfE3nóG´¾ü1d}‡®È{÷Õ?ÌS©À?þ=ä¿Ojp½c&5]¯XU‹^EžæìùÙ¨KE ^7Ç‹e§¦å™å²3ÇÞlÚ›‹Ml¡/<9&ôržMW³Ì‰¡$«&˜¯‘ŽËóÌSøÊÜtÝb”ñø±a.Ä]¼Æ¤'f®ÓzÓ°¸ÆÄ™D6ý]p¿Þmãá•éù–Yâ;þ=›}8/6þ/L$-Ù¤“A™÷0Å°Gžµ‚bãÏœ½üƒÀ¾· ™P“? PV^|F}¿|Ÿ 5¹Pd‘Š{ðýB&L±ïí’,_äüóåZ¦`éCÙRIÅ KeF»¤‡øðŸ„LØíVðIèµ´‚½¯­àaËœå÷VÓéâ~%Ö|Õ-±oæäW¶´²íZâj(ömºUÂ¥v~È.Á.°¤Å|®²ðó<‚w:\…îub­q-<+ø’Y*¹täŠ]᧗PpiœdòD:=Nµ± €ï™3½–‹ªpFˆv‚¸F_å×H,‹‡åR½Èo‡e„É|Ý=ÕÚc¿Q°S%ºÀ2kXt ®·Æïž½VðbÒ£ »m˜OF€©m5{ 'ìúöCÚ5€ÂSÜ~HÅ/“0¥í‡/Eõ˜šMü ÿ™¤6Ñvt~ÉAÊœo½œ[è…ÀAȃÊCôË’*hÜ !^ݶ£—Aeê±£?Þ]h¨_iŠ3£ÎeÏ™YôÅyU-›Ïø¸›[AжÑï ‰´D jqŽš™sjÙšµšeº^Ð$…ÒMÓ--rÌš}9j“ð!ÿ±rÍ&ôÈWêƤѺª±ðº‘§î¬Üñ§ƒøS,:4Åæ»UÓvΘêå{'„Ü«'9­³sÆÄw[“7Éñy'Ÿ3ÖF#t(´“§[Ä5˜ØËÚ"ÖIJ^ .5±¬äy)Ucè¨ûZjŸ—îl©mæ¥õ¹ªüé—rtdz˜˜ÊöÏŽ.Xe{VNŽ>§Ý¼ ­ò i'6¼äÙÓ--Ž¼áp¨9¤dC´9»Ü˜]C’¶|0e’Ìl¹6ÿµùʵ™Rf6‘ÿO}«…Ü·ZKã×ádC"¼¦Iœäøĵ´~zhhÎÌÖÆ+nƒ¦Q)ÉÌîtÍDÆü–Ú>æk2PùÓ—™ªãceO-ái«Ì‚Q%,ÎY"ÂGÜ?kû¼˜¡aQµÙ$‹ØºxuñtZ[õ‚"ÿ:àÛ…é!­ˆý‰ø;Tˆë‰ØZhh¾àG¯Ø[ŸRÎ!b+\ðÓ隉ŽØ+u‰ˆ­Ç@åOï ‹Æ„Ö'øið£Y,¡ñ¾wÙ2K|™Æ4ÊŽ8ö>è-çã¯\ÈóC<Ì?LìÙÅWÀ(Ô3»ø“…‰%ÁRV°`F ø¬¾yròshŒ5acéc·œŽK+q<“Àò,Ó-Ò¯x3N½\2JV‘Æ9H`ñçk–H@ûܳé¼ý‚È"°N™»Š±|9ŽOPâê§æ–V³Xt\J;*ÏÇ6€W¢¶ Yý|eÀªYõÀva÷4ºBÁ‚hÔ¨Uå.çWƒ.ávÈÛµ5Xk„]N<8Õ”F]ªDŒöA>¤-DF^ªDÅíÞùŽ¤ºì==dÌÛV¹$–u™k}±LͲV§ “¦vÃ6­KîÏu/֨븄:ºbÛŸsëÜ'JV•§LåšqD$°ø–[s-¿±|̯X³¼zYÜ°ÑXÏwM5úÒ¡v'îÇ0O r§×oˆZ8Y鲑x~CÅ=<ùT =*x²RØÕPè‹Î‹$ÄK›6 N¹Qìà“ŸL¬õ™mCYcÛ®ÃÃÛG·)9Ï‹¯ƒü:mª :¥%ǦNèÈØhnltb'Ã]ãûwí~(7‘Û–cìcvO‰î›Ÿƒü9*œµÜBD±? üYãPÓ>9ã8Ýp!mMÇB¬Ç//:•‚XµN±žM{¶ÙW°ÌÛOÞ†ç#œ‚<¥ÍO&ï¢É쪉Íáw;u—W0eœ°Š3Uj}æ}¬_âyôÔfÞiÑnoã€éÆ]Ó G¨ßù}oŒ¨¸iàû!'ïÅoŒ¨ü?ùƒú£ÈHÖ†ÎÇ%Ä«Ó÷!à' "±6ÖfÆXc´}xxbTÉÃ~ø9ÈŸëpK4¶säøèøŽÛvŒOŒ²ÿví‹ÛÝßþÈÿ£ó-÷yà?BþÇî7Tü?IˆW·iü‚Ðxõ´DÇYK$ÍÊfs4ô£¶ç€Ø`Ní‹4zá¾ÇÄúà€yjjfñ$OÆvŠ_ÄÇ|\›Sl’šãR;zÜ™òçâ7,Dò9ÀS•†ñ*îpò| •x²Ú,E˜®ú&â¶,ÄãIà‹!¿¸ó- ÷<àSŸÒвL°–elxxÛ.%'z ðiÈOkSÌ a-Ë®ló¸çåfG'väìÑÈ!jD«BTßü4äOw¾U¡â^ü ä £â?+!^šž~Mž}§åáEsÍfßÞ£³-‰]T|Ÿ„xi2Ú JN‘ce6“'ΙÚ;Øk5ð2È—iSÏÊüIkžn‘‰(¹x9äË»¯*þ ñÒ¤›åbb4&§wB„ë!¯ïŠR¤4 ü Çn+…Š¿HB¼Ô*`Ñ·úŽ…=zðß»ðØ== ±‚¾±Ž¾q~åbñÞ…ôÞ€øÑ‹ ~d0×4¹vûE¼.Xø4·Œø•ÚÈ1ö•ÝûÇ'Š#Ç u»\/ì+YÛvíÜVAOx¤bVG*¶WVž êõeô«ëèWoýÇF½²ûé‰/p•µü—ž”é0M,ÕôŠfsùâ¦î‚šïùgñÞ²Eèý' #`ùO“?\±È™V‹%Ý7ët%1ãO¿ï»gžøAá½o\`9Á–´Gï=~×CE?0$þO¿ùC«v«’rP¥ í¬Yø³7ÅøÙVóYä +˜3LÙe«ÍWε[S5+aiåR3l^" Týù.E¨^aÉ ÄK†n_ ÎÅJà%•*(´Ôåy³l›a}­>ÔF_kÍt[1Tü ñÒ©˜ÇÔÓe»5»¥)Y7MÅôCêUÌফ\6Åfˆ{…†øRõ!Ëôë®·6AÒ¨.ßöËan*"¼òÝW“„x)ªkYR:”i½NB¼ÖŠy‚vÈÔ(;$Dyâ²õJ‹99’9MÁœÄ¶ìo Ml>oÌQº m£ý…±§7‚¦…Єl&}̾©¼=ì{?nª¹célÒ-e=Ÿ=þ$B—,÷‘3Gö¸óî}{ìþãÜ~±wØ8>ïå¦-ߪÎf|<8t³Ñx«Ý×ñ]{ÊÈ\W=]œ1ÝŒüÙÐТŸ ¦bŠ¥jîq¯D'Õ¸¹ªåTkÖ¹ñg7OݶmÄ·N W*åá"=ûâàÍÆQöSôÞ¼ç[•õG2ƒL¿Á_ñ¿i|?LèNâs7 ZåDé熌-[ŒEÌE%0ò[óy~’À^¯èÚ5ÿ–#ì‡î6O“Ʊ/mqfÊ©2Ê®ZsÅ +œÞ>ÊÞcår#쉙1}k0{öìÍ{GPŠ¢óœig©[œl÷÷-O|KãGÎnå¶Êj€ÕÔhfÁcH¿ÜšmQQ–=sË =aëmÏI WX\‰kðôEç$¬Í—³„ BQÐ/ZØ‚¨–@¯ªÄ¾ªÂ^nÓúØ}ä|3«˜#mµ^jÄ™ ZJ C¯Ý[tªU±—é–vsQ3‘ÏÒÏy'%ŒH²v[¦Vm¾4évm¾d › ß6¶¬§un`ÁüošC”ú$ÄK1tlIJ‡z·«%Ä«Û½ÎU¨â•¶ˆ†ÂnÇÕ(œ0d·cLõDµ9›Žó;æƒÃ8Õ)Új^´ŒÃÖlì3‹Wã{„9È9Ò=ÁD]"e1 ñê¶M­úÔcS›Ä¡Çé,³lLÕŶH/8[>&É`«á&È›´ŽW4fïb“ºxd¥1`DÃ\;9QªÌBÎ&Ö×…A7_Ü,`ª(h¸ò^m ZVnãî‘'{—À; ß¡M?‘'{Pq“À;!ß™XA¿Õ¸Ž‡ç|z­‘±ØŒŒ¼ªèdžªQ4ËE~uû–ô Ók®U²¹O‰ófͲÇA¥Î­É†¿¸¬¤î‘9ìÞ~~ÙŸqéâÖkwïÀl óTÄ,m"rª9é4ö»õøw=QåÝ%°w¥ +1Ñ è·LŽ© ݈ù*à¥Bî=¯:tëðwDxƒD|ƒ ñF3Ù×£xÄ6Q7 3½Æ>ßN©Xc1½émVIø èÑŸVµ„n×ÙRÛn§Ï4åO_ÍÏ,ò]Ëä—ùx,žâü–šå)…ïAC< ΗÍmçó®c­á:5Çå=.qÜDã¯ÊÎœøºbΦ”記rmÆÄ·²tI_‚ ñNTÉ;µyëJÞôLîÞ®Ðè}/ðÃB&ìB ÷]À™0q ×5ñ½L•6µ÷£ÀÏ ™P“ŽV åÔ”ô»À¯ ™°Jú<ð÷…L˜PI˸»)hæ€ß2¡fÍŒ*iæ{À™°šù&ð¯…L˜P3Ë ج šÿNÈ„ºº!B5£*Šùgà¿ ™°Šù1ðß„L˜P19~ªkyÎœ÷äæÏ4FoX4°‰¾qýw}!÷esŽ=ÍÌŽ˜ÚÔÝ:N˜hê.´Ô%*£¹®>Ð|u[òRyÈAeÝ¢±Õ`j6q! ¿0©M´ÎÍ ³r9˜µ¸§^)X.mɹݞ¶ýÆäà½|õNá‚×dIW'Õ-}ç6 ñ궉]m¨ÇÄ6ŠÙÝ#fu>ñÔîÅ`E¸òF} ¬ÚÔ.‘f +5Úð©]*íàä! ÆdS»ÄæFànÈ»µ)hy‰»~ÜÐÅp)ƒv¾DÅí‚|(±†þ¢1·œbO'¬ÆÁËE8¹{UASÔœ˜e¥©ƒ’íÕÊæ|pñoãÐg>\sí*Ÿfo¹vcý?Ó²B©…ÐBpœ%~OüP¶q§•Ç¢¥^[0'ÍÏÚ§œä’1ËZÇ ÎÄd¾WÙ7jQõÞ!°w« »<Ì’i žËEðŒÉEΦ^y¹6/¼KØÒd1cyþä8C:9‘å‡üÓ¿jÌXèßE›þ5kºôÏ‚0eû3ƒ¸ªô8€@~D›_¯¹tK@ÅôÙ "¢øÀG!?Ú}C£â“¯nÓØ» P½ŸöÎ3>Åq¸eK¤’Êa­l8Zïb¦fócÜiáËoœ¸&Š<åùØqæ2<$áIÈ'»_ïÒþ¾ÔãÌ(ÿŠqf$iÕ\ïˆW*Us%ªãJ-UÓÙ÷°}«Qü àÈk’«J-¬•/M Q?kqâö‰É%À •¶NÄë Rq/ƒ|Yb}<‹‡»àPÏÈX¹é\68½ß³OÓúŒ¸y è4®eïaAß Öz†²q}är  9qv½¢¯]ÿº*_» þuUº¾vü+@½¾Ö,nž»«]÷"¼´§‘×iW» îE¸²Úæ(ùÓËD&oVK¦[2,×u\/¶×§Ë€7AVÛ ”Ük®†§\Ž×\ O¹:]¯¹ž ^¯ðš¨«{ÓŠÜ@.éQl+âùÍÕðÂË!_®Éoøp# ãû qº8 y8%¿‘æÓð›ð•éúÍFøJ€šý†&âúÍFøÊÆîúÍFøÊF­~³žûMmY6qf#œ„p ä-)9Ì5p’kÒq˜kà$פë0×ÀIÔÜ=+ÚqÝåšžæ±)]ìž]!Ô×=ËâpÛ `¤™²ÜÈX6 tj}|_"¦—÷AÞ—’/] ÿ¹6_ºþsmº¾t-ü'@ÍÓ ³¦×™®…]ÛÓÕi…ká@×öèœVc³Rã«ï4jÒ©pHÿ¢“¤kN•Ï'Äõ(¢{9ðÈJ›-4xÔ&xѦt@=éw ›¸ wš;S”Eæ‹T`9“Ì®–Yœiä•Ò.ær3õŒ¶#Ç|žëñ „wC¾[[DºŒ=FeÊ©ù¤«L¹\n(n"r÷§ Ou>HQqÏNCžN¬ë”èá¾ú’åÙnT^}!Èíiäeèl%Ïßùý‰”:êášV öIà§!Z£jÙˆþdD±~ògºcQ~òg[Ô.n-Óˆ4iD ¹‡‰ŒVëMuX±o¶ Ö¿ üŸÿ§¶XqÿâX‘<ãR)Ôü§ÀÞ£B&ì†aü?(ö>!&4ŒÇŒ¢S/—([ÚdTõìB™µ3Ž]´Dæ3¿¯æt0ëEÆŸ¯Y<…0»³^AIN±1*–éÑ)–±ûSôpÇ€²†¿±›ð„ñ50µE[P8a×w›ÑWPxŠ»Í¨øe¦´Ûl+ª?ÀÔl"ƒÂ3Im¢ín³ŽûóeæÖ÷bDpOUÑ5çY¯ò¨h6¨_Üy› uNù®¤*%;%Ä«Û–5%¨Ç²V‹Éø[ʤs¡å“ê4Xãž=fQÕœ;\sÇY(â#gæ c‹¢±'‚h_ÔÓØhÅåÝÊF¶hÃU{Nmªt/pd¥Óˆ>à ÿRh±k€û!ïOlY;F¦³Y»DË`Æœ9Ï·Zñ è¬SQvÜÆΧœªž‚|JÙ 5ml$2Ï>ù)mzŒÚØH¥Í_ù%‰ÕxgC¶ÇG™ÓU±]άûNÅäü•çŠy’ï¤{FØWqD¹è*ìX¥§x)𫿪M±íý3²SOdþøÈßé|§žŠû𻿛X³—Ëšµ«¬›^¦¦<£ ¨?þäÒ¦¨«@,®^fP¨n0öˆŒþ«ÀÞ‹„LØ åý3Š½XÈ„ •·nˆÏéxq5õ^4„,AhÐÙú²]pMw>#4¥¢(¾!•p»{•¦Ëc+ª÷:à!·/'PÔÎ!ùœF* ˜sŽ{’D÷܊ÍFÏØcìÕkt¨˜¡ ÑÀŠ{+Ú4:°ïžãw)0šÎ ™P“Wä½ûê¬Z# ®O ™0¡VôVFfìé™2{ù™Qcë]ÀQ§ë+ŒcwÔmÒëƒvµäÌ1³·rf­FïUÌâ½Ç³FÇz;î×K6ßyî9e‹{4‹u|ç‘+[†7ç_Û +ŠFÕÇ}k…ܧ¶f({s“°¯êǼ¹9Ž NVåú2<  ×b®Ç÷ú3|¢n3—¬•M»*Ô&¯£XÓZf?Q2Ù›A_µÀÚ¡i—"sƽX.aú²§æqFl³Pþ;1k'‹!|3ä7kóã ©QÁPm…¸½øqÈï||¦âÞüäO$6œ•YlšVPÔ¯?Yiâ?|žéEE-_þäßéŽZ> ü"ä/&VËÏðãʘzt´†ãIÚq*³8¤‘̸uózÍtn]k]âXNžMF·+añB$gò%4ù Ûà¬âwö2aº£"søl!vÁ0zï>GÈ„ ãxcÔ¬lzóLg§øb(,CXŘP˜rÊLï´2Ñ° :ÇŵŠÎt•Ö$bh@ô0ðCB&ìvC:,,¤ihCù¹ž„Y%ÜîoIZ59|/@¼R©šTLj–ªé‰ôˆ„5*v0Å„5*~­„zÖ–ÏXlìÆ ŒDhðì¤Kz3–ãF*îà•=ó ªd¢EeðÌ,P —á#“²M3w…ù ƒÿì"|ð0äÃ)¹Õ(\i4·…+¦ëV£p¥5o?(8¥ù±¸^5 O"ìâöƒQx¡¾í9îUN)ȬbäÒ¨‡¿Q5-¶C×+‡ JÉ¡ÆàDc=©8Ôœh¬'U‡ƒØ‡ëPcp¢±î:ÔœhL«Cˆ£wf­jGt3üææ¤>Zj»3¯rp™›{R=óŠŠ_)aJg^íEݨ'cÕ6q0È8"ئ;®]d‰3±Xt\>æ;Ô€Øn`ÞÞ‚ólø9X|CHݳbçOâÑMÈf÷kû`šùÁ·¢ü[“z ß+pºcѶÚ7A$ÿãT vÕzL$†g)ºfÁFfä`›nBÄô0€C~8qï0Bÿã©x= mµO"dÛ¨÷Û Bi:¶sÜÇõqß¾û´rßνŠð2iÐ bl®ûÁp ä-‰¹îç,a‡üØv2xz …:?îZŸ©3öÂ;ö¡ö²]Å^nßÛ»aëb…&Œû„ ÷ƒà{°ÜEï/ŒûNÆ=ò ´(î‡À÷PRî¡¥.yí,…å(^š­îv3LÅï’¯nÓ¸ POo`•0ÇKçNP \yU÷kå.`š}$éÔÔgJiWâ>=Ì`Š}¤*±÷YPaŠ}$%î‡Á÷°Vîé#?”ûH»’ô‘îwÂó­t/øÞÛ [î#íTá~|vƒ{tiB¥tøÞ—”»Z‰Âò Ÿb‰Šß%aJ}¤cP@€zz–0š^]úP‘,9GbÔ¬UžÏû ÿ ±Æ¾*þbª^Æ#Á±¼±ç¨Žãñ-ÈV÷küŠ0Íþ×ý(ÿþžNô¿ŽÛÿòªÎkŒä(ã:óf¹P®[ÛØ…éÉÇî?8?^Òn:Ä•þìðxÙì“…ÎIŒ.xDzs÷öD÷tGølÈÏîäãÇ{¼]ÉïA<ÒƒZï@øã5{v ÏqÍê47DÕîÒC O(M/%|ç†?Ht·¯PfÁ·ñ!Ö8šH]’Šzž ù¹Ýï*M´>| õu¬¶…sïR´S`þ0ØJ[_΋i³<øæ“ÖºZ—Z…(>Å.!¿K”º„@¦É\°ÄaÏ”êgy>ý5ÓW‘Ž’­Ê§4Çž9=‰ç'|)ä—v_%e`š]ð ʯôè肯ZÀißfº´X/Ó•1egÚpmï¤áÒ1½âðÞÖ-ÒåpљբåÅm€è16¥¹Ò„U›+™¾±wØ°M O@(åº$|šö4q™<Ò  t0^EÐpQt€zâÕÕ›ùÝölPSr*ÃârIߟPŽKÐ)«!_˜à.™ÈòXŸ-3ogYöbôèRÒçfÅ´¦ÛdƒL“±½ÇcBiGkBök½z¥B7¹°§ˆÛ®ƒáZÈJ[vԺ¼W ø _ÐýfšŠ_'!^ݦ1 ˜foaåÏõèè-°o†ÞÀ70ãWÊ ÌÖ×AVRg´b£jË“º'neo\RœaýZœYËÈÈ£‹ÅƒŠ¡¬|¹®.);ÎIö'-~=Lìn-=óEÀçC~~÷ õ "À4 uåÏwÔP׈KÆrµÈs&¢B,[¼ò•ÊöºØŸì{1g—ü™É]££ ü6‡!kkVä§ìiÖ…Ž(x09yo8¶1Sñ#â•Š1Ÿ†Ÿî†1+óiðég¨1Ÿ†Ÿî¶1Ÿ†ŸNjÌ¡÷çí©ˆæ (t¤§q…D·=ˆŠ•¯nÓ8‡ PO«ô¤päæí€ÁýnÔúoßÁÖl@ãZUôpU­ çK]ˆŒW/ΦgH—<Ð÷øWôå!üûó¢ëx^ó^¹ØÓ‘Ïó> ùÉî«ã,ŠP:²˜Žt oÎöY:SS>–?Ïç”To³}>XJW¼)Fß…ÁMñ^("3ÜYiÌ^lÔùTÜ0p7ä݉µw…|›­¸5Ë/$VÐÔà}ïÓ¦©K[Ó &í;|ü ŠÞž„|²;z;,C.'Ö[ü£%ˆ@è@vº…^ ôÛ@=Q¨?~×î…(œ°r¿6{X“÷ê…–cÂ[ Ï1>Ð|u[Tü2 ñê6¡úLÍ&¤Ö9™M´íî³*Î,5Œ+5Þ8Ìzž±Ÿ&æÄm¶û¦Xgƒ7˜÷ò†Tá).Þ ùVå1Áú¤Ú%û%Ä«ÛFöbè3@=FöjÑýyz85×®òÎ%Žìæë«\ÃÔ¿éÖÍryÞ0Ktÿx¡©q³¡qñ·âdì]©°6Úoü(¿ kµÔõu-VlU®Í} Õ@øjȯÖÖjK×æ²@«5Ùl·7ß ù½o¶©¸×ßù}‰­e¹¸SUAMï~ò‡©)ô–%®+jŸ~òç4j‡9ÎɈb øyÈŸïŽQ|øÛ;±Qœà#×iK L)xƒ¾9fa†œ·äÖ«Õ`:¼5$ö<6=Ñö^&dÂnÇè—»l`šóØ/Eù/íÑ1õ·:íô zŒ Àó%=ãgPí„9ÈÉ'¤»™žñ2°&Ô—ž;àå(:@=~uH#0µ$¼´¯|MrŠ!‰Bc+ó• õJ­ÜøÎü*”N˜bvŠÔgÔhV—…öãr{ ø^9y‹ÖÏ”“ÈkQ8¡þy†%3:(Þ¯@ñS˜i â—I˜ÒLÃÓP@€z,v£h;¼º‘“zcÁDÑŠ=M÷:°"Üyc÷+êgQt€©Mɼ…¿¾#î³Ä4Ý“pš×Sš¦{=&À”œç ¨þS³‰ŸCá?—Ô&ÚNÓ]r;mN8B™õ4@;ZvüÈØ߆è…ÀAȃ*D9Á¡¤ $7HˆW·íèPY€zìh³Âû§og©Ì`ÃY%:ó>&Ñ7áfÈ›•í¬'¢ô¾ü±ˆ²¯Þ9¹®ž0fÌY‹Ò´gl6ðl&Çñ1'-üñƒŒ ýÓaM™8r‡XK¢%sjá¨j}1ÝÀÞχxF³²ùt¤Â’/=îà!¿Q¹ÊºôŠŠå›Ì™H½ ø.ÈïÒÖ äk'§#J ^ïnbB ø³JfÙs ³Ätl‰£½mÏð|¦xÓ-åŒ;9kÖr³|QCÛSõ*o+7~ŒýHÉòìéªð4‘^aÌ™óHÒàÉ8EÜû¾$ëcE[¦g—ç 6øöìBÙs]DJ,Ž|MÚ†ÀÓ?Íê¬éˆôù—š?/2D3Vn:—U1Ã÷ì}‹ u™!ŽO‰ 9NlÞü%!j²ÃÈiO*îç¿,d¤ã^:Ï+¾Zzß ü€ 5©ee°ZE/þº »¡—CÈ„ õ²Sì“Ê®·ÎÄœËs*ÌßÜfŽµº‡õ~øOB&ÔªÊÝjªüWàO…ÜûÓî¨òŸRw”d„ªìSÑJz<}}B&Ô«•í*Zé[¼PÈ„]ÐJ_?ð"!&Ôʲ¬Zäë»x™ûÔ¦³Â$ÞTÒË5ÀÍBîSê Ç×ËåÀë…L˜P/™¡œqBZ\G‡„î?¡ÅoFq•XÞ<,dBMªoÌ–ú´fr°X÷|§2˜5¦¦'[ Z·!->%dÂnhùð%B&L¨eµ%xâðRà+…L˜@‡Ú–à‰Ò›o2¡6íD,ÁSq? ü!vÃ(^üE!&4Š›Î} >îd};ð÷„LØí9—7 sk ž9—Ÿˆ9—`ðÏGzt" ŸIp¦(Ïɦz3ËA.>Õ3­a;u*›SÌÙl Ù¼;: Uþ;øKþãfåÓ±9Ë€*šãÀ©­)þœcL3+•L—ïho™¹gM€?g!qþBœ¡;µâ-¨mŸ@þI÷ àçQt€i¦V¼念GGju”uíe%Fk€ëz’îe]žTiDã" ñJEioƒ¢ÞÖQ¥­ÿ©{9Žã\ør†H‚`Âà@{äÞ^Bˆ@$ïÀ|$8»;w7ÀîÌrfö PI‰T HY9På¤,RÒ³dK²eËIŽÊöïôžm9<‡gYÿÿl¿Ç¿«û›½Ù½;LOï,AiðÕíÎNÕtUWW§j>fÛÍ÷ðJl‡#áV¯-5Eß íp$—ìݧ¬Õœc;1\ìÝŸ¼"öÄÕƒ~FüBC z¥0h‘”°ç`Äזš n=“\€½ {“°ç`Ã/ "-RZ‘B¶w~0À´‰•èTÕT¢Èb|uÆÇfFÿ´4²./ ÕšS¢-®½ªy!‰±6€¸š¢µBSm¨ÖªCŠühD÷QèP}HqE Þ–ÙfZjÀÐRþ ª&†‹€[AoMÞûmÄÕ“~fübCMº*¨ˆlÑ/Š Õ*,š$Ûì-ÕÐFµèaÅ/¢*-RZ•BŠ˜6±½ˆªã£šjYŒ¡Öø¨&¬XSYäìEë'! áÐr]ñz•æªÚQ|ªÚÑGêI¸«Ý »•™oè ,±[ Ì€ÎÄVYvfíÉ̺¢ìtÕ²>h¨—=»¨{fŽï­¤!C¬¡mhØ+çM›¾pÄä_ùB+I$l ø<èçgô^r6à/ÂêÂ$làÀÏ€þLlx,M‹‰&ÇÍÜ8Óœ[»îÌÂbð7o” ±[ʃ¶¾âyqŠ¼Æ+CvO š0é¶î§„Î+Ø´Õ? 愉¯²§åÈ`ÞÄUöÄ~A›´ÊþgPü>6Í&~Ì6®MÌÙ•Yq/k•é°’ƒãFˆ«×–ïÉlŒ«:cCq%mA‡²|TcAë™.(S”¿ó<¢pŸ€@„ë@¯S×`Ê-ð&a®n­nSØoâv5ðFÐñ—1­šIéeQ‰¢¸ 8Znpy®•.ËLË3ð!!à~à1ÐÇÆ6!ë]ˆÝnà ïl|HEì¶ï-·x,øíEöºäuyŽšJÿ‰EÒÌk| œã˜,^¦ó?XPÌ—\8b…ÄüµU.f ‡VyЧ¦åz,2c?™éšam­Þ×'t³ Ó’ [Ê"¿ ú›ÊÛ¡›Ç=¯äîîéÉ9º•qºKŽ}–E,ÛëÁ+ Îã\B³Hîoÿ7èÿ-ÝHÍZåppèÀ ‰ý/à+ _QhËãü¦ºlK y}¢ cÚòW2ÚÑZôm”Y²]ÈóÌJºUß©øÄú  _X¶gŽ’ñ‹GšeLXùµ¿Z”×™Ù ™²Ó¾¥¡Ö„éØ­uI<ˆt½µ¢íäëå[*j;¯<~øô#'‡Î0;>zòÄ™ƒw>xgtcoýeà÷M¨¬%eÅÂõ«Àš0¦euHŒü#A*RÑ©Ì—$ËŸÿJЄ 4]­ ükAÆTÊ ¿‰ÌRlåo€ÿ"hBEÚÙ2<ífXg6šª[—$S ‘´ÿ!°Mt›–Œþþl7 š0¦þ–vÑîIåµuot›Ô V]åubÚ*…F~ŸXË;Ô&£·¶~à°  Ð[[xZÐm§cëm£Ÿ®0Ø÷óc=™%õ$Þ=À²  w4¤–Ô“HOß$hºm¯>-hÂ$ìeøŒ  cÚK—Ô“ o~AЄI³|R˜[Õ ³tÏš¨ £G'Ÿ‚˜„Ý ¥æCf+òÆ„QèŒê'Iš­ÀÝ ¥Ž®f÷Ä.ÜzOsãe/ðÐrçßÕÓO×¼ñ ¹¥#yO'AO&£Á£À)ÐSMŒPHŽià ŸP¦¾çˆP|ÅIiîÍÀOƒN`¶˜Ø= ü èø³Å[ÒU#T•Ñ,§liú˜Nã2CÖ$ägßý=ej} W]¾]ˆ.!àŸÿ ô?)Sâ¢÷î²í…©ñûÀþQl5^ï*V’‹Ä=$ÑþY`ë AJ*¯­¥þ(Ü&ôpŒ¹r6“³‹=“¦‘÷²=rÆ$ðÀí‚&Œ.x]Þnzw”³Ñ ³upŸ  •y‹Cb·x«  cšY[äÀ“øï4aÒ秅>+Ø´âÏ€9aâ«h’µÌ›¸j€Ø/`“V |ÅïcÓlâs`þ¹¸61§¿Ý@iù ÚSt‘z´SŽ3ÄiÔ§ÍbÔ9ÅÏá> 茴¯ÝW™$F_q%mS/A}>ª±©>F6‚ó„Ñ”Kº&ÇXÊÌÑ3 ½ Q_FɵJ—Þ\K‹œ¢ž)[¦„pû€‡@RØ‚† -»Àà7>Ì'výÀ# Äo¸¥Lâvà ãõ«ëÆTdÅq Ùî>úÁd,â$ð!Ð%cG# Gšdýˆr‹XLQ2<[Bºs@´“ŒM@´›ŒMœz ½&ÙD8z¢161V(%¤{øÐoIÆ&.ß Z*óQt›˜¾ ôÛšdÏßúí j9&$dû ð£ ?šŒE¼ø"蓱ˆç€ý±Ø±0Íç¦$Jþ'-u(ÙÜžÂ5 <4–î¿¿ ú«ÉØÅç€_ýµdìâÀ_ý‹±íâ&‘ÕTØž‰TÎSñ—€ ú/Õ÷Lr¶5jZQ'½™P­è6µ.4a¬fÕ+5¯„Èi?ø#àÿýe%Ÿõä¿C™,4a&ýC°]"hÂf4~4hÀq™  Ûë‚\¹X–ðq­W¯t«ÔÎÈ>®u-ðzA&`­Ë7Zr—a|ƒØÔݪ)7ˆ%CŸ0úìÈß’XÝÀm‚n•ÚÁÝ(¶· Zn¦&ºQlî4aSŒcK|Bh§@Õ­ZɱGÍBÔ‘]ê>àÂ&L¦UƒÈÒ­ZëàiA·J-ã«ûäýÀGÝ*5öÝ^wÏš°)öú(P4¡òn¾ë•ó†Tö8ð‚n•ÊzÝ`W:†kæËzÁ%“•Ü^4¡"{¾IЄIØkø´ [¥–cV²ÙU“¯âœa”4Ï¡Sw°ì¡z:¤G+ÍÌmyfÑßwbZâØ?lKq=Û1òt<2êÊT‹g€?4aŒjQÅÕ Ÿ• ]œD¢ü¿Àÿ4aŠÿgà š0¦âïÐRt.ŽÁº:y·Ë??ÇÎÒ.3±ÕˆV*^Ù±Œ|F;i3¹JxNg¬,«×ÿØvPЄŠôº„ô:xzèžÈ»RHžcÀ!A& Ü¶CÀaAË-ʯ*†^ZŒk™9ƒN0rXOVä ÔѪ„Ô‘“H“´§O š0¦Ô‘g„?/, ‚¸bŠ!—ií àÿüÝ*PÒ®ÕÈ4,Î6fSEpÌÍ)#?sƱáéÝt:ŽØG ŸMCF¾úZ¿õ[z±+c ÇböÍ3'"³˜´r(2“ßÕµÇ5rOŸ[5Í$å‹_×ú´×2ÏÈÚÒ‚ÑcL• Ç$ÙÃÏK7zÌ|Z÷”tÓ¡L1‘ßê¿áMO>û­ŽT¿UåŒñb.WvòÓý½ý½iÍ-éŽ+œ+G>fzîà@Z«xÜÈg"ÿä'<úH½Hˆ_kÕx‘‡61ïJqTÝʧ¥p€œGÇP¨I~ð.Ž·êëíîïõgZeªóíXÚÁS÷D.ç/ã¥-5·^Ó£0Üç£Â¤ùyH@¸´ºAÌy &÷µì—€Ž?˜¹é"öKˆ+i1~ ðQíK¬Óû ˜&¾vós$˜7qí&±_À&­Ýü*ŠßǦÙÄ×Àükqmbε›kÅÚÍ“¢ç3lž7\ 9W7‚Þ(#'—ïú¸ú#1n ®¤Íè¡1՘ў™åš¢¯:ÓI¥aK7 æ¹Èûl~ Bî-·!¯ 7I¨;€'@ŸPØ] ™[ v·O‚>Ùø^2±Û <úTl[Š>VKüï–$hÀÂM’é 0:ŸŒE<4@ÉXÄ0pôh“,b 8z\¹EÈ.Ü$©ÊÀׂ~m26a/‚¾˜ŒM˜ÀÇA?Þ$›xðõ _ß›X¸IR= |èw%cOß úÝÉØÄ€ïýžØ6!·Ldx/ðC ¥ŽÆlÀâM’éÀÏ‚þl2Vñ“ÀÏþ\2Vñð%Ð/ŶŠÿ¤ÑJO7­ªÉ0.Å2Œ<ò°QÂorÍðÆí| Rå·#}›^*xæ7[s˹q?âMkÙ²7scÁÐù-~<\9™Ò1 :e´,LkÝ8]Ö¿Éh\J´Xu¥ˆœg=#‡D÷º«•tÇóÅÆO5*_žYEÂÜ^Øú)A*® +ø¦]vôþÞþ¾è"òÔq„¿+hÂÔˆY3ß6Í&¾æ߈ksÝ{—­çµÛôk÷˜Sq5ðzÐRû¹lWÆÕ‰¡WÒ&ô«Ð–jLhƒXù0lLëçθy4D…ü5F¸ôeŠäÁW$ÌMÀ[@«‹8þú5˜ atü€sk%_hípa‰5Û…k>‹Båvð“ÄÝÀGA?K‰ ÷:’PŸý”€³q{Iâ"ðh5{Çè‰cÀ7‚V¹.$'v:ðM ßÛÂïîâ3S%ƒ…„å’Fg¨Y®9aðó¹Êž.ÜíFÐs,\6DÜ,61ˆÉ#dc0¶ìJ ÅÒë< üР̇­òëé`§Ë:‘CHª?þèHF×üGÐÿ[×׉ؼ1ª3õiâpbòg’MÏÿÈóIü¯Ù|snÛg껋fP§£‹GY8¦M˜„ßZ웜„ÈW¯´|ˆYO^ ì4aFÌS}Þ,èÖø›w^3ÓËu좤íÒÑÕM¨ØvãØÁiàC‚nU™E±A¦{ x·  ™î!àˆ [¥r;F7Ý}À‡-—⡪xßY‰&iµ¦*•’íí¨%–”Љô” ŠÏpðñ>â#R× å˜çY[]Õ<ó H¬õ~¬lzÆÌa.zÑ.[žË‡…h¿NÝ,žÑ•–n­)¯Ç ZáŽî•t”–•ìÈ’Lÿ[`ÛBA*²•9Ž, Æÿ Æ‹Ý&•æªª0XÈ5­…ÒL„F#–c.©z´ìðüa©ì44)çÛw ºMꔜ¹æ­4âwÝ&!àÝÀ‡Ýöê÷…m·OšP/l;t[2¾°mðaA·Å÷…7Ušñ.ÿÐS±^ΰÈwå¥Ë!áøkTä6”²ÜŠwï.eýssXô|¦[g%úmoþ¬  “Ðç“À ºM.ÑdðÛü³üœ²eù‰¹ ÖJ¹sŒŸð^$wj˜ÁáÍ_Þf?ªõ~y£d`WmQ·¦µQ=çÙŽËgÙOÇu+FŒ¼™ó"OmPÑ|B`ûaA·Ž]D‘Ç ]a›6Œý`N˜øÔ w€y§6ˆý‚6ijã7Qü>JÛD]®‹Gò†§›·gŸ÷7•Zcä ömÄ%éãƇ_@\1Ke=«£÷Ù…Ñ1yÒ{Å™Oz™Â½ˆâý6E¸ôze-âºÉ‰ì~ÌO·—r#ph©¬ƒu¹.1ŠÌ¤Cø^Ü zglÝEßkDüwwƒŽ†ïÚàŸ#699™‰ ¬Ô$ä~à# Q¦¬Ž‘²¦ª=À3 ÏÄo £K< Ì‚Î*ìdêeoÜŸr›åh¨öþNKSÝ/±o `<÷»8®8¿Ë®Ä³T†™û xÝ´v_FKõ÷öõ²¾ÊAÛÊ—s|¡Oؤ[zašÆlLK½ì ¢Šæød´ˆ/ö{P1á0h¹œbu}Â1»ì0Á)¦Q$—§Ô†íQoRw¢Î’§@KšÒ“1Š¥ñ¶§Ó §›à¿‰ÿyàÐRSuuÕ6°]Bž'€O‚–Ê좎¬]¨—•‡Ø½øh©¹âª×_žèJk}ÝÝ[wJU¢7Ÿý¼2ÅÜä7¬yÛ¤†´§¯7Ó·sûÀŽž³®›™èØž1{"6¯$ê{_ý…º›0œlÛw¿ Zê|‡xîœØ-€¸”u4Ù=†cX9£^çw…Ž[~¿¥©-,±o `¼vövJlpӽ臫E$¹"¼ ôU ;ŸçŒéIÛ©ç[¾}®½.yÝû«ˆK‘n:Š¦›‹(Ñ·¡Â ¥ È*ù6Ô@¸ôÊäUBìW—\̺«m¨Þ«ûÿ}¯ÝÒ"á)莕¯@mô”µâ³ÕôY‡xèÚW ’Jù²&}‘\+jßæÖ¯XêbÿwÝÖ?ëÊ–ÍB¾?»³/ßglݹck¶×?¨º§¨[=dÞÝ9ÏøûÌ+¾ýÜú£JÁ2–íôÊW„Ô”%üQŽ‘ MóÒ¼R9/®°¿Ü[~,>[0«½çô‘nŒ,|¥Fªà—‹fU¥ÃVÎÎóYM¿D“düÕüÑ…Ç~˜ýø{jì¦Íïž:9|ôþœç›ÿÓ›yÐÒZf{¥TCåYÑ˲ÚgÞá™Õ–3«,bõ@,F ½åRãÚŸ¢gÿZ=ƒ¾ž¿‘s"¶kˆKB ¥µ€BŠÅÀÕ ¥J§.×…#zÁÔëEXm(Š¶êbIZ+Ä~mq©ÔÊ ­´Cí k%0£ÓL­´C>ªÕÊ5ôºfÈÈÙEýÒŽòS”××ÌEÎÙÕn½Q¡š<Ó+ÔsiP a'èÎäÕDì7—¤šjs¤G‡¦áVWÌR9ÌW$”h©–ß_rÅú,'`A%ß‚Ä-ÚŸG•1Àˆ¯â7„‡AVV$wsÐu'ðnÐw+³ö°ÝtŠ­ÕÁÊú;¾Å¿HËÆ ‹¶âøëìr!£»]‘Çžè>ú¹¸¯Ð6:bŽ^÷Š…‹F†©’ó²_ :ù´ë±wtÈ8‡/?púŽcî:sÏðჇNP‚þái73fx†5‘ê¬ùº³kVùh®Ûq¯9ª¥6Zçs㺓 ~×Õ5ë1þ8Y.oeκy£`N8Ëðz¬R‘EŸÞøY}jÿÖϘê. Ý9z?vcçí{=Âv=£˜¡˜1ÕÉj¤ÿ+þ›Êýi_¿ƒøÞñEµ¸ ô¸.mófm–䢘ð[FFFì²wa¯›sÌ’·ï8{Ð1}JÔ.°Keo·vaÔ¶ø<º-c2WdÌéãSì3öU&ÓÃþï Ñ”˜îêL_¼¸goX€­Ë7©p®ßW½ñ¾ÊC.nÑŒ‚K‹DYIõ¦j^#ðì‘Î-é*¥Ù;W=¨ëâÅ[_ŠièøƒC'C þyàA0ªÁÓËkïX>BëBQGñ[Ýq*‰êú¡€ô’‘>è|ÛëIöÒåfVCXe¥ÒZTÎoTϵîÇò½¬A°ÄÒ¤}s … 脾K;sä|•z‚Ä‹´‚¢}hæR¤Ûå#yCØ\ýU` Zªojç›Y0$R[qIºŽkãŠCý‘¥¬9•"©~±R ›%†ÄâÅ¥`NXgñbDõ„µ9©!ƒTå(ëÔq}Ê,–‹Ú]æ9ëŒÛv^;ìzfQfÊe)î#Üz‡Œôjvç“»ˆ+iãZ=ú¨Æ¸6‰Ýù|/«Ÿ †çHq¥ûtË!á&Ðò½å°’çP½Àí ·+óè¡ù‚‰ÝÍÀ ¥L:„mȺwbw#p'è±mfLiapô r«K"M2ž}2£8<úT2F±x7h©áª’ãLf´¿áÁ™iŠh 3íCjèðñ»º4£ÒLÐ6†™±‰À¨“T«+Žñ nèö“¡¦ÌŒ=Áð Ë(ƒw­™­;éE;ÃÔ¶U†dúSàÿý?“±Ž?þè¿‹k­·ve´{uÇ´Ë®æ2C(…ÓÙΔÑr\Ÿ0*ù óbë ZÐ8<¾û…ïp±'Ì|m&䲕5u—ý?1\?5˜ØÊS¡žáØdb¦7í§.¹K·Æ(©¸ÇŒ‹ýÙßÛ·kv/»Ï2Ï™Á·ï©^ ÙßÛ»­+­ÙNͨZÚg\IËG;Pm‹¨òdŽM©SµÇaŠ–7u‡îL˜ʹٷkÇŽè+vIy/°­KЄI‡,~—ÃG5!ËF²áÏË‹ûœDÀ²¢n-5»Ñˆ€…„Ê·‚ÞÚø¶‰Ø¥€Û@ok¼÷!vÀí ¥Â³ª¢ß_i›D6£X2¾ø÷6}š9ŠíkLŒîã,®1 ¾¡ÍurÍ I¿8zBY³²ÌoVß¹Q!‰.Ÿýt2j>úãͼøVÐoU¯™SÇ¥4óÀV7Ô4§fÞ|ô ±›û4kEi~özÎ+ó.kPöÓI‹ZqF³FÜkðÙ߆N…ð­°yÃ-™<³©a²¿ÌQ¾€•FuséRÁbFšZd$ò‚O_Žê¶Ã“C°x¡d8žIÙ›î°')#w,Z Ôù¼­Y¶ç·çæy~þÏÅ­›cãÞ¨íLÒ^Û¢nY´o×®iÐy“”Ÿè”ŸÛvªÓQ´VØúMA¾*:R$Ó€,hÂ+~ø៚0ºÓú[À?4aL¯¶¬ÒXEûH?þ­  “ûV {ª`Ó†AWƒ9a¬aк\çÙÃMÃ…øI=ÜI)ƒîYÀš=ÜI‰\ØT›X ækãÚÄœCã×-R7•¹ù£¶_hÇypuéÕZÜGØZª+Çå¼5®IŒtq%mN(ó ¾jï€p„¯ºÁpª˜à`8±»˜à`8±»¨n0|*Ø·dQ$v¢¡¬ 3Ï¢ÞÙÇm¸!ç9älk”"âœÁ3’:,Œåéø³Ó•ÑNtGù²- ]ï¾ú%e=ŸÅôêƒç#w{Hœ/ô/&c /©¥r¦_ÌnÏî.-ËÇ mÑa`Š¦ž‚E'XG†Fóea+¬{TÀ1mE‹}êrë¡1îÀ#rãf·ûX™¬ øk§N‹Yi[DÇÓåéÓ¨óº9t£‹¦Åû^0bxzºdhG5ÃqlGsè„°ä¶;cš”­{̨|]×:‰[Þ˜0éžJbÊuxètÇ £À:cõ²úYåb–uØc1y„…ôöu<ÿÝ×JêÏßs’1GiE™¿Úö`_¸È•¤6õt]¤³.lê»xÑoºÎ…ˆ>çÂ1’û?¶µ º-rBwÌZ8¶h¤xÖe2*+…9ªÖŒ‘À3‚]ðJ8Ò [BëoÈ6xebÔõf FRçFºÂJ&d˜2‘ês Y¦Vø¢®Å„{³ …zÂ\ÁK4Ô,ƒßþCšš…‚=Éý¾Ãsαxc1nŽWO–\ãhAÜ¡;^™æIûvíÚÅÜò°™7Ïqw̶Îu‹’}ôöw‰¢ï´ôR‰S•ß±oºÄIEüÛnÿÁcuã›Í!ü2ü't‹_q¾Ý>OñÛ.~¸°Ü©–Áÿ'”ø?)sËDXsÎ×e"›¶H˜èö–D"›¶m« Ûã÷Œ^£¥è$ÀÇÊ&køYK³œÑ5ÕÞM¨VSãçܳ2šj¿x“  ÐTû•ÀÍ‚&Œ©)ƒç¥@«NgdV7$¼Ó1„zÝÁØS*I)½âà[Ý.7íBßÆ ×ÚÏu—$¶ö·ß+hÂË"`k_@ð÷É®$`S#Fýñ°u—dB65BE Ùjd¾mƒoV±„m ä:wЦÈ4ƒßg=ã1ÇËF‘·‹¡½~O%cSÖŽ¨ñ·þ+ý¯ôÃæt‹²Þö¯€ÿKЄ—‡·ý§€àÿ$#¸o«DŒ°îqQÊ×*)²¯U§y»ÇaÆÞ¬B ÷´ã:§Uc–Uæ(³=(Ê¿@”¹ì"Ò¾"èöW.I=v_p¢£ ®ÄGªCqDªF¨¨^R¡F‘6´XBýd¹Îí'™fðÛkêD¤8*^¾w¬4ÇË(¼ì¸¸IБ'å›å:o ~£Œàj\§1”†—jDŠì8Õé£áeC %Üm6Žë©ìÎãÛà*ÉÂüìaùz7ù` 5é”~ŒKp<ÿ‡õÌ´+ÃÛC sû†ÀÖMøjiøZ? üœ  ðp­?|IЄ ˜zë‡/ º5~ˆy•pF.³ÙB^ؼœSjý<ð7M¨È)­Èºƒ¬kLÏÔú{À?4aêúMà Z.ûLUQŒû©Œüõ¹¦ŸÚmy¥™\„þAµðõ[äÞ½åŸl;(è¶ø#”‘{ë…õTPMobµèMœ°=äNŠ(Õ5äšÊýÕ6ÙÑw»“8ë€7€¾¡ñƒØ­n½!¶Ž®¦¦0˜‹•*‚DG¤Ò€;@K¥ƒhDŠ êðècoðˆÝ>à ïLÆPvï}WlC‰~º8ñ?<Zª#Õ€ˆdzø(èG“±ˆ{€:h=‹8 Ì‚Îƶˆ¥éJ¦ ‰ÒÏ   ¯š’jøzЯOÆ6\à@¿!Û(ŸýDlÛxïÌ@F»¯²_ªuÍNz"NQÉÒò«¬=Q‰¬Í¼ág ´Ri-7®[c"L3©§8©Mòû³Ž¡ŸÓ²zîåwtùÀ/‹ç²fÁô¦#‡gT(O l]/h¤ók…uW°iy×®sÂvÐêr2Ì“‹o- æ3WÒÊ ö ؤ\|×£ø}lšMÜæ7ĵ‰9sñ»]drÕî³s£Vß)P=NGÀQ‡ÚQ>VDNá ò¸2J”NÃÊMkÞSÎye'ò±©7à>Â@? ó~ü½¶ÅÕ;‰1@\I›ßhÚG%æ×ú{¢Çx\·¦«±¬ŒÚÌA8Ô‚Øeùvž÷[$Þ×\Êò;sp€Ÿ­—F³4Òç–‹"§I–SÓ`mIÖÈé4`É Ï<`Ò¨L²ßUr)ðqG½ÈÿaFÆ`•³gyêʯÁ¸ Ýõ4-Š¬Y”‰« —Jdœ®áuј¶hºr:M!Æ’ÀÑÏà…ãĸ)•KI7ùz»š7õ (5Zæ î]Õì!lF;dó¿mêR‚f3Ç›Vš3ãìö¨'Îuyí¡“À •³ºgäÔØŽ9¥¥\}:ª'Ñ`GZ‹yj(iS±Qß"úœ‹¨Iîßþ¡  £ÉOw$½ˆšþ‚ÿ?2‚W\\[‹ä"jeb„-¢¾7ò"je"Õ粈Z­>æ]DfìÍ*”ú‹¨ËuŽEÔêÌ2øí®.ÑräƵJS4ãÓqX’Íç©y]‚¿m  w¶LäôB.ºhm7;MØèž6±»¸IÐmêö6…ö´‰ÝZà‚&ŒiG×TzÚ|•Zkø]Ã4”¶›€ûM¨ÚPIC¹xRÐm'“1”ÃÀS‚&LÂPnÞ-h˜†ò¾Cá9\i`…Ç”Úu”Nð ì®ädfüOnŒ}5;;4Û,Ú-²èÑäq gôð?xúXÌÁcÆ>^Ëû³¶!àÿ4¡b3•V&™þøŸ‚&LÂNü/A&a§ü?‚&Œi§k¹¸Åâm %ü_í+Mx9u#ÚW¯4áeÑh_|½ŒàJºjÄPÚP#RÔn„B}4¢ÑÐB íF4ëÜÝEfüöÍ~†Þšq’ñÇbjVʼn½“zžo¦¥£+ùûÇ.jþ)–h¯Eã­ÓüŒAÃg–‘3\Ww¦‡o1'“iÆ+Åñ"ŠãÅËÌK ø)A^^úÓÁ?-#¸/­D µ^Z‰H‘½´:}4ÄK7²P½tã¸Îã¥Õ˜eàÛÖiˆ] ¦ÛëféšÃ×:V¢ÿgJ®·Æ!»þVå|1ÒŸÓKüSÖ«ôÜr&Ÿ2á)³œÂ4Ÿ+wÊFe⤦S}9&=´Pv=Ãévìl™4™5]ŸâK^ÏY´}Ÿµ¸¯2 0säsWUK¢v\Ë×TÇï šPy?¿YtÙ:þøç‚æØø~`Ç€!hŽïv| ø—‚æ/²¹?Ðkw¹ÉñD£z.8‚0Dz“æèhËÿVÒÎ:~(pÁAs”³3vg]¿Ü3îy%wwOOŽUûŒÓÍ^ˆfé2¶3ÖSÒsçô1cUÊì0s “¬0¢{ñ·K‚&ŒÑÈïZ~)’…ïø¸  •Ùì8¿©.Û½À× š0¦ÍÖ +rzv–oæó¸Õîtî &‰|=ðWMØ„Hºí‘>ÉPzÁ¯_Ð "{ò&…Ò ¾ü[2‚+ ¥ÕˆQ¿I=Ò'K«‘)j,­P!óÅÒáæÞ¬R ¦Èuî`Z‘a¿}A;"ŽÃ«®þ’™’cäÍœ\$R£ÎHc—XËLyü]C¹RµkÐv4tºC̲¦…Ìé¨sƒÝ+e$PD ‚^¨~)ô"”Ltá> |VЄ cW½RR BäŒSŒšlŠÄ>%hB9±g=ÁÊ· š0{aøœ  cÖ#©½û$ÂóÀw šP±½.Ð-{BF퟾,è…R=£[ëÒA.°¤­¾ü¤  ÙêŸ4a¶únà½PnŸ}ðÛñà~‚aÃÐNQ@}ÖžpÏMs3>m–<›Ÿ×ßß%ÖJ²X¼d8þƱô‘z‘<»`e ñ2Ò:Ìèû7é-¿(pѵ‚&Œù¶‘WãR«´¨[ ~¯X{ÚfW,²r:oˆlcX‹])HÏ?ÑõÉ …À²QÓõ÷ÖÓúZÏ`]ܨïÖ‰÷!¼ô½Éñ&°öQM/EQ–ÁÿFüÝ*PÒ ¯®‘é¶M3+~{‚ÓJ¤úÙSKuV¯…–mHXLïq%ð^ÐñU¼ú^mo·Æ×¥¥2™LWT©nBÉÞT¹Ÿcà /DŒÍ`í£Ã;¶‰¯Ú™{͹”q>4ÍöTLG}Ÿ-xÂc ¥6ãV½Ï‹ïIÝbÙNjÚLk÷¦é5\mP{\cúOûêø;²=¤ ,áh©|Qñì¡ ¬}TcG6]òÈÿcýQßåfÈOxô‘Øïrë&š1vWNЭIöàÎ9 \úcwQ_âNx+è[c¿ÄWŸàÍK;åÐùêÐ ³`nÏUÂj§‡î9YiL¸´Ü¾ý*nLø¨’tƒ;aèFnï #Ö>ª©^û7E¤8x”Æ$\Í2Œ¼‘ú=œp?èý±ßb-dO1õ¦¥|h/d!\ zmòJîkÕ(yï¦9zêŽI+¸Rî½7ö¬âÝØõF*Ð*¶¬½JY—sÅH‰w2X[ÃjOH¹ìWƒ^|Oد ®¤ÅØ ø¨ÆÆ—ŠË¬ÓQžmp)è¥Ò¥ûPH¤uÀkAKõâç9šÅv ð:Ð×)d2BCì–¯}}lÃM$nh™IHzƒ@Å6!·–Ÿdên­2OëFÑ ÐIÅ&àvÐÛcÅSsÖ `Ð}ÊÍu™ë9J̬u‡„ˆ·‡A¿ê­uðèCʬu'ð4èÓÉXk?ðÐ÷Ķօi™(˜d¸øh©£\æ´Ø×ÅzºeŽ[4½qI/ëÇVO‚nL£ÒnÇhK™ÝfON ¸"v#À7‚Ž\õðˆ[ä?šâi\[,ÒuüdȦ[™îX‘°o~ô“¬vŠZQA5•DÊ´]`N˜x=êcw€yÓèûlR½Ý(~›f{À|O\›˜s›ÁžSŽ=JÙ8ï2ÏsܶóÚ©‚-ö{7rç´Sº£3gk8ÚQšÕg½+]dÏ”x¡ÕÀc ¥æyù‹\WÑ$ÆñâJÚÞcõ íí?Dçî>$ãðÄ*W‘Qä”ÖL~êí+3[žAÙð(uí+ùZ¯ô¤±ó×1(+ì€NÊÌ™´d+¥ÈcOÕµ²e>V6øì÷z¡Œ”uô¨ÀÃùïŠú”Y4Ïbç2ÍmzŸëÒ 3vé¯øÂj¤D™þèÿPkÉ82™Z— š°ÑÃDÄEÒºBЄŽdHÿ ¶+M³&Lvñ ¥$Îês5ƒñ,7Ø‘è¯`è©NsS,Ù–Xó¬°ûIœ33V9aꒆغ ø´  cbµòµ.a: ;Ú€„y;ð‚&LÀZŸ¾KЭr‹Š߶þ's^ceÚû×Åw+}GÈ\ŽmÑ^Üü„éŠÝþºFfy[+Ù®åW|*µ¼­,ê瘷£}·¾' º.ömQdØe x¿«gèðñ»YàG™áÍ„ßÙaßþ*Þ3ðÛ”Ø)r^ÓÇé9yúË%ïÍí^w²&‹èi¸TÄú3çj•X(PÇ'ÛcÝ—ÓÉßWrIQ&R‰2weò÷^VrAÕ”D ± —‚N'F¹Mš—(«7Þ¯zDm¹rUËTÆw lNЄŠ[…ExÁèµø’  “èuÓ. .²ÄÊv÷CÀŸ4¡‚®7=ñ=À—Ý®r¡¸—jøyAÆl°¾0S•°+žO”‰Ð‰Ú¯²Ã‘!V½óÐC: ´ÄqÑ´Þ½wW׌û-;”iyÓÍ•]tƃ˜Õ!}åZ)G7¢ÎÔvîì¸Û«ˆ¹ûOö† ;ŒäCï}¢JVP鼊„Ó¹26n^EÒéP7o}Ë«ßé¸ë€ ;•8zâ`tºñN‡Ø-vƒ–šØª*â»gœNð;ßùè£ä+ü §`‹ùÔn7§ ¿– ^¿YÆö3ÀÇA?®p´£åõ|’æ®o|¡dœï !âSÀçA¿]zü¢¶Z.»Ëæ’Ùr‚½ø»ÞÁ®*³ÄŽÃÊ…p}ðà?Ûפ5±cK¶?Oâ|ø9ÈgÔ;Q¹sÇH¨¯¥EîúõÆwè‰ÝÏ¿Ñ"†Ü9WõðWÙõÙgÊnŸqUaÜT‘xÍm¦ÍäsèÐ<í˜]fâG› Án>ú…1cÈX±;|ôƒMpÐÄÿ!àh¹SÌëöü·†öüç'̃Î+TGÖ.ÔËXBì ã¯ŒY•ÚÙ•ÖvõöuwïêÛ.UwFhO™nNúgÞ6y—°¯7Ó×ÛÛß“>zðhW߶þ¾î­½Û¹‡èëïÚÚ·{ç^ö.»w8z¨û¶£Ç±?ö dz3Oîéï¾/bcK/uøMÐßT¨è ÃɆ°- ôo%ßÖûß ®¤Å8.좂jZ^W´1f–´b ogvì`íÌqÚqP.×èò&=7nð%n•lv3KVgòÚ‰er¶Æ×µy€ÊŒbôfé^–Ðí*«Z=hŠü…Ê5Q–6ì±×`oCÍÕ×µs¦>3»IøóÀƒþxã›,bç?úMh²ˆÿ'Ÿ­îÀ²¶ýò|øÐR‰–£5YÄîÓÀ/‚Ž¿—sMj`5Zý½ÝÝ;¥jÖþè_Sßã 4Zý½;zúûwnß±k{ÄFˆ„üàßþ»Æ7BÄî×úï“÷þÄþˆ+i1N =WPM#ô Öñ9´v<“¦)çýžÃì³ÍÚm†cxº›Ö†3Ú‰ ²–g´ƒá¬õg­PÁæ[æ x5—ï¤3­ê.’÷b&Æ*³ìÁ¬ap½rÞ4¢7]§PD„Ÿ-ç†ëU°k† ×Ðܸ6rU«>ú1eUåªJ‡ˆ·›Ç)©±iEÝ"C²MŸýlã[bçßúíMhiˆÿsÀçA?¯®¥éÚ"9Þ |è÷5¾¥!vï¾ôûc«cmªokjú·ïèîîßÁ\¹Œz>ühuÝU-¬±qMÖÖlݪ¼¶†¤ü<ðÛ ¿Ýø¶†Ø}øÐßIÞÉûïWÒb EWPM[ó—¬­¹K·Æt‹åÒÚæؘi¹¼©9•ÑN³Žé¹s®ïo³'YNk÷Žm™çXgê 祵;m˳K”¼¤`²GPw*0™ŸÖîË°ÆlØ,m+ïRŒZ³>>ÓÄGöXsäŠ=±ã´Ö¦ÿ´¶ö0 Ûá-³æ²òí^wU»ç¯l‹\7O£p ÿô_¾ ûR$ßß lmt«º…þ¡-±ý!Øvº5þÿè-ñ_\(hBe}©^ yVW"$]ÙøŽØ-®4aLuô¤úX·“5o»vfB›ÑwèÛÕ—‘°«ûM˜´K½µÛG5.õ Ì¥ÎYbžOœ‚G~±2¦t|ö Pø>»µÃSÌ»æýÃL™×ãKS)õ}(¶ÙEvx÷âÕ ßú ÊjÒÚSŽ1Ay ˜g¦ã6rQCy’ëàûAKqѱ{øÐh‚£#þ~´ÜÞÞú¡|ÔA#’ã'?ú§ïèˆÝ ÀŸýÓ±Õ±<­míßÖݽUbVƒ$ùàË _V¦˜›ë{Ý=n____w/]}ý[·w‡*0$œ'y¿ üsÐÞøpžØ}ø ÿ"y§Oìÿ2€¸’ã>¡ò ªi{þ–µ=”&-âqÇ({çÓÚAF×ÍI½Oóþ6=7^Ô-Äñùq³P0i€‰fEî$’EÖ ÙïáP§YÌNósÚd´a~e™rÑü{ÉÑsb {v´n"Õ ’]ÙYÚ¦ÁB÷ü´¥ù±I<;­S¥‚mz~;7;ïMäªz?J˜ðoAÿ­²ªºò6Ó6-qø‘™‹Ç“Lÿü/ÐÿÕøæØýOàÿýšÐ¼Ý'¾ú…ÍÛ¶èò´ú¸}‹EoÞîFÉq1ÜÁâØêX›êÛÆù¾]ý,”gÿî’©9­K€×šP‘zºë6r»z²U5ª'땶íŒØΑÈÇMØèvŽØ] cu3ðFN?EÒõ÷·ˆóU•™ÐJ&–)„3åd;<ùÔù㹌( ¼º‹ïŽÏ¤µ#"ÞIKƒlk”âÞœ¡™–Gû 3ùµig2­ò ,¢Ñëð1k‰ôrCÀ—ZIJ©Ï(k¥¯<åNçÆí‚=Æu¹ájíK@Z÷B˳ña.±{HKn>Û"¹â(f˜Küø{-b’Üân5KHŽïÐ"&ؤfµ¢…¹Äî÷•H­8ªN‰Ã‡«úº»·FÆ!QþøC”ŠÔpH]ÍtÕpv0ÜÙß½k箩Lß@¦/3º)&$º%qÿ^`+1fÝYGottKlÿ lYlB#8”~+é°’Ø_9ƒ­kÅ•´ WPMt{/hæÍsiíNŠTŽÙÖ¹¢ÎGk° µ·ŸOšº<륫¨m~ìÒÁû¦Õ 5«|H¶‡h§ñ ±»è‚–Û)ü6z£Bü=`tY]£Òu£ÉñZàEÐߨ» àã ­Žµ©~ѪlèîfÿF;!y^|ôóÊÔ3÷*Ÿþíý’ò½ÀŸýsoPˆÝ;€_ý¥ä=9±ÿrq%-ÆÃBÑTÓ ü5kPf­Ö©Z×S³N'­ÝFÛ=T³è'°0õβ릵“³V ¥«VmÖ†õ‚ny&ýˆ/øÙ.&¾Ç‘¿Þ?‚w–²†7iV7m„,ü¡)“õ’Êì~bŒ7=kOEäêùÊ—ð¯Aÿµ²ê©n¡É÷ùÈô?¶H®t‰ÖÈÛ¿ÛE‚–ÙÈÿÅÀ%‚&T¤¦Ö¨ÇÃ>"âlý«ÑmÜ#™p\#hq·è8mÛÖݽ#zóöˆˆ¹9Þ€üeŠ™gÇDßö¨;&HÌ›€‡Ýz¸ñí±Û<"h¤bû úWÒbœš® ºµ+M©—´µ4·™aÚ4O?Óã’~ ø³ ¥ ºôˆØ9Àƒ–ÚÒ³"þŸ~´T^Ãú½¬^ y^~ôçß»O¿ZjK{Í®½¾•¢¯»»×€TÅú"ðW@ÿŠ2ÝÔ¼ècmP_ïŽí»víÜÞ;ÐÛÛ;À¤Ø‘¸ßþ3èn|[Dì¾ü1è'ßû ®¤ÅÐ…Æ+¨¦-®ßõõŠy"æžù¦ª= ÔÖ Í¬u~®ÏÈ•"‹—! lQT)6Z›`î’a{Ô›Ô¨Cx$äƒÀ)ÐSo\ˆÝià4èé&4.Äÿ<ðè —íò<|ô“o\ˆÝkO~*¶:–óÆEnZˆ$y#ðyÐÏ+SÌMõz7;·ìè9뺙‰Þí³7êÂ^õ½À¯€þJã[b÷àWA5ywNì¿@\I‹‘Ú® šVåŠÙ­JdW“‡4„W€–Z^Ô¸cÝH´k€›Aß(#¢êcÝH . «–-[Zø:EU+lí q»¸tl[ZÂÇiÈÐ6à bzŠ³„ŽD;<ÙRI§©È€â,¡#‰†€C:©äž‘-ht÷¶ðÉ꘴XÌD^CGRœÒ³i²%§Ü€â®¡#é @ ÉÌ>¥¨È†â­¡#™¾µE„®oJÄŠÆ€o>ÛŠÆý5t}Ûêl/9vÎÈ—‘’²œˆ5 vÞp*tEsÊÈw‡å;‘ÜIo÷,ð_[Ä~ÃRù)YLG¢ý§@~øß¿Ï*ì4Û[úÁZ$“Åì4ÿ5Àµ-<‘dúŸúëz%äY¤M,ª¢UIî4»×i—ÁJv][bDn`;åzܱU¦ö´^¼™]ëZøT‹"Ýt†-§cu¿—þ ßÎÒi"9û€¬}nM·$²K„ØÝf‹v›±K„ØŸžÁfí1„ª+¨¦ÓtU½NSä eò^Z®–5¬ÛDL®¦@o~5t›èÑ·©ç@]¨†‡+ô»uÀí ·Æ¶¦]è6U’7ÜU÷èõø /I€@WTæAÕ­K!NÀçZÄêÃg„ÐKÀçÙeµ(I±&¥¦w¢EyŠµÈ+úé‰ïR¾Š„R¬Ñß ü`‹ªk«RÛY²}׎îî}Û¤tó!à'QrSÇ2É<#/½$†/¿Í®Ïµð]ŽA臟~§ELl+ùÆŸôÝ~»Eez¹e#윂W‡ùB¿¼{«.òˆ\ľ-€¸슼+Óá”2' 0ܲxh©ø§.×Å#çŒéIÛ©çZÆ¡Âu ×%¯buq)ÒMGÑts%2¡Â ¥ú¿‘UbB „+A¯L^%Ä~UqÉÀ¬»Ú†ê½ºÿßY¼vK‹„§ ;V¾Ò2søúZñÙjú¬Ctðä¡Ã!2Ý|ôʬ~Ákë=±; |°eÖ<½¤z£/ÿ‡€uᔓ£mtĽ0î /Œ S%ç!ÇpËÏtòi×ÓÇŒA‡ïü{øÂñ§ï8vàþ¡3÷ >x脶·[žv3c†gX©Îš¯;»öh•æº÷š£Zj£u>7®;©àw]]³S™óÉå­ÌY7oÌ 'c^U*²hÆ?«OíßÚãSÝÅb¡;GïÇnìÜ£b¢G¸Ó®g3…¤:YgØÿÿMåþ´¿âv°ß;¾¨”×¥mެ͒\~ËÈȈ]ö.ìusŽYòö±&`ü˜>¥ jØÇ¥²·[»0ÊêînÍçÑm“¹"cNŸbŸ±¯2™ö_ˆž ÄtWgúâÅ={{À¬´aÙeqPˆqP™/‰Sâ×™%¨'>Æ«3+âŠCðˈ+f©Hd9]•ÖÉr±\¤Ö) ±–Wt±¸8í5â¼F·Ð–î/VÀqè Mî“,›7ƒ¾YF¦h`b§o}Küž‘ÐH:€¸”½½É:„!l;€Ý »“÷oÄ>@\É;”åÂœ96Ρ´³`@B° »-éRÔ41Á¼‰ÍÏd6­¼™«ÐÝ’‘3G§ùÛ丙×r¶ŸVÂsë ιãv™Ž‹6fÆóŒ|F;È<–^pmúB×Øç8EZ¢ VŸýT,¯U·;<æ% ÉÞ|èw)¬½Ó:Âö­Àwƒ~wã]&±{#ð= ß»¶.%;ËhÆ!cï~ôG•µf‹žn¢Îb0Ÿ~ôç”éfш{wÙö´ó"ð%Ð/%ß û—ˆ«Ñ ±ë~ôç“oЈýˆ+ùÍïº6®Aë Þ­„dXÉSoUOÄ­V"Ë.ùiœ1¾,Ø¢±FÈ`-Tž¢ƒíš7®{~Kæ·Z¦•+”óFÞO“ä7y˜«ŠZ9Và>‹ /6¾r¬@… |ôãÉWÂ×Wò•c%*ÄJå•Cj´e%jÁÊjZQXm3Ãu*ÕÁj³$Ñ Zk¼Íçž7‚Þ˜¼ÍûÎâRôöKG*j©Ã{)Ls°IƒP«`ã>â’¬-7ƇîY@%㶭¯g^ä¾qâeõö×ú-ËnÈéž1f;•ãÜøF]‘\/[0´”™12ivߨN«®4µkKhá‚ÇXðìå´Ó—JÅÇzE“㯦¢‘ ´J¬SÂî¥ÃæpNñ±Ë®V0&h#kÅèSÁKË›£|˳LöÝò ¬çØEÍÐY?Ž»‚Œvš7ÇŸªb5ÆLÏÍÇÑÕöòüåÈ]«Ñaà Q¨¿¨‹Óïrå‚îàë´ß‰d½AÖ¤–]Öœzö˜xßJ6¨ˆV°õa éNЄŠû„ tËžˆšDz?ðA6 S¸ê•Ú¾Ô 8ãe„~øA·Jõíê>ùià‡MØèÎ*±{ð#‚&ŒéUq„ýƘÒé ¡´J%Ôð×Aÿº2õ/bêìß½UÆ~ø]ÐßMÆ~ø=Ðß‹m?•èQg=*:9—Õé¬N5Û#tb€ú\¦Ã€*ó¨]v¼ªI,ßlæü(3CÏÓ§p~g+ø«\ÌŽ›fœ Þ™ Œ*Š©-2< ³ù¾@rÖDûN»y^£õuÀ7š0“i>!h˜&³š”+FvsÌJ"§`"ižþ„  Gå2S$ÑG€4aBòYlßüIA&aïþ”  cZÇQæé …À „†œ!|$ƒ}SUýõ¢I‚¢îåĨ…¨ø‘#azŸþ£  “Ž„¯¶XA5‘0 ¥`­´ÉÊ+­™T\Ó(ãÑrJcisOÇÔŸqÑR–íiz½Ui-[æ_E,…+ñ愯ýze.xy‘zSÈÝ'!Ù›ï­nyÁsÉÄð Àwƒ–Z`PU×uÑÐ#‹Ä1˜§†tÂÔe¢m’ì=À—AKM3×wÈsÌk†6œ$Ê—_ýeÚ uÄîóÀ¯‚þjl]-«„Û‘ ò5ào€þäÛUB¯Tãܶúóe×g¤›Ÿ$(p_'aÛ$ <rkKUb¯fŽm“HÇwƒ¾»!Q‡Â±möðèc²BÏzòàè¡ÆWyb· 8 z8¶iwhÑ»/$Áià} ïSnª’£Ö$”œ-Õ·Šn¬qF­IÜ<Ðm+3×G€Ó §“1×ûçAŸm®WV.‹ü*cCe}øèç”…ч_IŽ÷Wzø^Ðï­¡·²u™(`·ŒàØ«iÐÈŒ˜g®´š¼+æñ)ø²g³hŸæ× Ó õºUc?bü{$Jº‹Ndü>­‚&Tds6½sÙFk°[ЭRkö#ÛFë&`FÐþ¢Ðä›Ö`¿ [û•)ežFfNµìÞ*hÂ$Ô2Ü/h˜jÙT©bEvÖ(Ø“|8ƒãÑgýH@D_­9A**Ÿ…#z¡\¯€Ä]"]WOû¶â’4Ú…qÅYß"vúˆ+f©¬§^‘]ÓYŸ(‹ZKEï(êˆØ*PQ_79‘Ýl^Ý%Ǧv‚2›J¹¸ô…mu³Â׿vÎ`LÝE?—€øîî½[™’6øyP&''3”’k„Ü|ô#Ê”Õ1RvÂTµxô™ØªjïŠì}I€GYÐYe¯¿h„Åj㔯®£¡Ú{mKSÝ/±o `<÷»8®8´}EqÅ,•WÁaœ×Cńàå†$êúµ‡q’ëÆ;d IéNìN§[fÆ™˜ÿ&þçu㌩«è‡q’OŸl™uglu„¤t'v¯>Õ2ë0NIuÄ9Œ“$y#ðù–Y‡qÆTLCã$Qß ¬sglÝ…ät'vïÖ9Œ3©Ö…Ø-€¸½ý<9ݯ:n¹¡¥©-,±o `¼ve\q6´ˆ3>Jçàˆ»ÉLƒJão2 wŠz¦l™­^ú*…Õ6dõˆ…®½N!Û±b×¼ôÕ±m"zÃKü×ýî5ÊMb1™ÄX¡X”n 0Zj /ºMlö€îIÆ&®ö‚îm ÅŠC‰’ïn½]¹],$»(NHÈvxè;’±ŠAàQÐG“±ŠÀc ¥¦Š«Jþ>‚:Ì{ÈþÉdscÑsënÆ‹ž}¢qV*ÇðöQMí&3)šSF¾‹ïC¶{V¦@ôBGÝÒãvž–(é3>öD~³Þ†0Þ¤HðÛÓôfÙiÍ1Šö„¿™»ÍœQ¢ðÁ)¦µIÃwºô-%)²ÚÂ^i‚½Ì˜ be‡žüj]xÂÓ OÇ~5^-˜TDä.©¬íŠ,æÍP­Å³YU\4¤¦Í´6Á.&Ÿ« jk½Ú-”fêgôºy d%ìÝ[îGÂ÷¥Áž°tGÜD7xû¨ÆMìâ­ÉœK ©ŽÐç[¸V·À>#ËŸÌ„»@ïŠ-%ß¼C›­h—pßîèöÖ¯-5\%Ü5³„ëäeØ]À^EX$”¸*£B+ä~ú}|×áì>_d1û!¡Ö¢ÊïmàãB›÷úÊõ.ºR ¡Coˆ-å¦P)}ë‹.i`N%ÊßÔóÛÞ>ª1¿~2¿@¸0î—È‚o‡°Û«3¦à· ã(”m“Ô +RùHIhŽWùNðöQÊoÇãhzþlY¤¦£ö¯X.xf©`øùê"¿E Åk¹ô­ñ wÞªžÆ‹ vf™K4<»!ìn¥†Ý ö€·jÌ`ˆܦ|XGq¶ØJ-¶i×ïaì[5XLÄþ²X×b ¥ØaŸE~±½xÂ!ÐC±_ì$½Xeù:~fŸYÙb¶8ì+»¸…ß±E£GPØÇÐóÓ‘ßjoBxôÉØoµG¼•¿ã´NµEoÖtk_>òìƒÔûª/ætÏÕuŠÝm x–`¡ݦý`OØÌnÓðöQ߸› ‘G |;?eV™4´I]¤Ûöó;°ºæÖÔ¶¼é9JJZ“Þ!ò{݆w!¼ôÝjÆVüL”`°ŸE¶"±¥¼Y ©~jTöm‘ÿœÿ:ò«FUŽ­ÌêŒ1áÄùdrb‚h„Z‹ª>F*¬ÏQ¥{‡!"a``.ñ y¼}|•ö o‡h·+ÕnWhÀVmŒÑÕ{d$ NÆé›/À¬±Êèr…¬„êFú¢›å1ðöñ²éYÞ a Õè».µgÛî‚Ì„êÆ£ÀqðöQà jøÄË=[Ð=Þ`ÕÝ™I—èö˜Ê ?1ßcÛœq+½ƒŠaÿ@O!8ÔÓŒøõØ63~ Äv Íò¡ù†?¡\Å.‘æ>59np¯](øC$°äèJtz[ýÐeÐrf4¶\—;R7µÅ½¼}¼lZÜ{!,áåØâÞ™ ›ÙâÞÞ>ª1¾>F·ü„ ´0,Ó5o‹¶ãâ*ùM€ô„êÖÇ\õ1|…‹nŽ—wìIËíïíÝYÆ!—¿ñ³µEò(éj«o)€(ÙÔ˜£ç®8±A iPhµR±ÁØ636x¼}TSöDŠ ¸b·ÈVœG 5¡ºAÖ9f@¹¸2Nó ¤#læ è£àíãeÓjê–P]«y 3 Ò*ÏBJÂf΀æÀÛÇËs4É o}k|÷ªÇž5 ¬×pë²]2âg–ªÃúF°UªùÈ «éAmÄ%!FÝ}ybßWD™ÆZÄ&ÂU W)ÓÊâ‘sÆô¤íÔË›0EŒU~Ã1i¥û5Ä%W³îjª÷êþãxí{¤;VÒ+ð”µâ³ÕôY‡xèÚW Ìõ3²&}‘\+jßfwW,õ ±Š»nëÈõ eËf!ߟÝÙ—ï3¶îܱ5ÛÛƒ„2=EÝê[Êøeú =q%=ñÖUÊ”qk§·ÕBªÉ’’áËä}à %$E±´Ò*КâyËÅg f9Æ{NéFž­…¯ÔHürѬZtØÊÙAÌæb’Œ¿ú?ºðسOÉ´á·‹N>zÎó-ˆÿéÍízú˜1èVÞp¾püÀé;Ž¸èÌ=Ç:Aó4ÃÓnfÌð k"ÕYóug×­òÑ\·ã^sTKm´ÎçÆu'ü®«kÖc:ýÔ‹¹¼•9ëæ‚9ád,Ãë±JEÖóÆÏêSû·öxÆTw±XèÎÑû±;÷h§Ø£èbQz†ºP©Î¼óÅS¹?í'pìÄ÷Ž/ªÅ¥Çui›7k³$…À„ß222œ腽nÎ1KÞ¾ãìAÇô)mP»À>.•½ÝÚ…QÛbàó趌É\‘1§O±ÏØW™Lû¿/DOPbº«3}ñâž½=`VZžÖ¬kLýƒsý¾ê÷Urq‹f\Z—ËJª7UógtnIW©(ÍÞ¹êA]/†ØúVLCÇ:bðc@´ÕàéŽåµw,)ØzpUÔ©{€DuuÒ»2Òh{=É^ºÜÌ*bgAY)ÖçJ&Ý(®uû–ïÍÙ–eð k_ÈSø`iØÐfè»´3GÞÈW©'H¼06(š;s)Òíò‘¼!lŽuHM¯²X3ÒÌ‚ñ–|Ä%é:VÇž1\Y|Ä3ZQGHM…æþ •i) |i ðWH—QKhP˜·½zƒ Äv%p-èµñƒÂèÓ‰$Àk€W€¾¢q=äP9–A>JU§yâùÇkCªÔr˜/áÐRã¦uÅ’L¼:#¼´Ô8]]®‹FDÞÆ­@ÿD‰kcͪÇÆ”žó¸kø0Vl8ƒ}½½½bëÑÔìßtdÓ")¯Þú¶ØÒîÐ*ÿ‘QåL_è’ceugðôÐ=‡);Ô˜I‡!c}rtGpNÁMðI9*ÂÀ½ ÷6ÃQ÷Þ×Gµ:ðñUæ¨VµçD¨ÞQ-œ{Ä~™®®-5dÕO­‚~뤩‘´™þKóSšÎI]Æe‘À×ï}WlÁ».K­“ZÂ%ìÝ•œ“¢›nf@KM/ÄuRtS°t¯2K_8Rvõ±zcŒKPæþ”®¼S ~¹ãAìÛ¯ã±!®8X/ ®˜¥"‘Ø®”cÄÖŠÚŒÐómç+ÿã’l+ÔˆóÝò•â¡Ç®n½AºÜÔMñÐÓ63 ÕMg†Î$`=Çž–Ê 1íYæìW’ 8z@™b¤gxèa»@HF/[·ŽßÁðõ¤”ƒÄ¥ìíY”S aÛ<úPòm±?@\É;û+„Eslœ³_ÀP ÑüôIj⿮è`ñs+'‹Ok“ã,67ì€ËÍ^  ¹ãv¹§S4hÁ€ILJ—=-EÛ>òƨ^.x”ÊJâE×Ï>§Ì?-àaTçD²8À ÐwNÄ®œ=»^,ê'RKèe ø8èÇ•éeÑ!ÃÓÍÈÝSæià³ ŸUØ=uï.Û^˜j^|;è·'ßnû爫Ñí±ë>úùäÛ bÿŽâJ¾Ý¸RX4ÇƵ4V!!ÙRàŠ–Êœ‰d³Ñ^#‘C›øÆXh6Èû[åb–}Êú$².Îjò³?ÏjF&)ÿ¡e{ZÞ¦=b•ö†³5¹÷¾ô”y­8ŠÚ˜(Ïß ú­oLˆÝÀ·~[ìÊÒÖÕeÿgo-å9£¹,b×|´”§Œç²ˆýóÄ•¼ËºJ˜3Çƹ¬ö¬5Ð%–—ƒ–ù©ë±žµù¢éNüpòQVÞÌ®–¢³L—§pu {´«:¦säª20΄¿Hf˜÷s1Þ§òÝÞtIìqÍh™OãYÙ½ºæzOkËèlðƒ ?Ë™ÕujcŽQ’ìãÀOþ”ÂJr¶!±ûðÓ ?ÝxWJì>ü èÏÄ®Ä ¨…ŒêMI„Ï?úó÷¦Ä®øÐ_HÞ›û/WòÞt¨GèMõÈÞ4p6p¼é;ãyS:­Éh²O¥‚Y|ô‹¯ ŸºÕ™ðeÐ/7Þ§»?Z¥G ñ©ÄîcÀ/€ŽïQ¤|*‰ðEà—A¹ñ>•Øùã~ôÏ'ïS‰ý/Wò>5°Q¯>u¡X$!ÛRખY9#bºUwŽÑØ@ï¹;«»F¾nN-uð¨Ûå{SßMVNgb¿ŠÙ¯¦_ | ôS±ÜfU‘¥%YÞ |´T/šç"vo>úùØÆîªmâf7±ó˜9꺪9ÕëØËÁ£VVdj2òQ}$½ì;€¯€~¥ñ>’Øa/ÏÒ!0iIì[gп’÷‘ëEåáØ8¹KŽ$„[Ú2s~õRŠœä±¹¦¬ø")JѨ1±æΨI+®ï[‰G@(ó}´®+ªë#QrÀQУw}Äîaàè±Øõ ú˜"ñš ÍÆ{#bçïå? úlòވ؟ ®ä½Q`f##6±äQB¶¥Àø[­LŸ¬t„çɳ‹ìÆRAG.Úm>5Â'Tòöá—c—-ÖÎhGGµ²%žlù´VãÊØã<ýœ8V…‚ecæÜW± +jÕ¢òZ ü è¯4¾j]ƒêDøUÐ_M¾jû¯WòU+°U£‘ =VK·¸º%nC¿¢F¨~>ŠDë…p®Å|"«V†Ã£€œ],éŽéÒLcJBþ×µT–C)jБh^h¡†¶é$ÍÀ»AßÝø6ØŠmòK»x6ŠÑèëIŽaàèxÑV]%•-Ó±í¨Ã«$” ´AÛ u2FGìrÀèR2¦ñ0ð1ÐÅ6ÅZÊ̙Рs•½œ=­¬Ö¶KÖØןýD2j9|ô“±Õ"•>†Dx ø ègÔyÒ¢>5ǘ9õòðݠߌ^Þ |è÷ÄÖË]í4 ç ºÇŠ‚b>Û*L³±`LЩ|5„ÚÞ üÐrc¾õÔ¶ ›,e:¶$Ñ/ôo'£º¯ôïÄVÝB©…—$Ãï¿ú;Ê”Óq¢²À1’D ü3ЦL)s¬º$†ßþwÐÿ=~¯ jŸˆØÿâjtŸˆØuÿôŸ'ß'"ö@\É÷‰®æÌQmŸHj'#‰±¸²%î ýÚzºÚ#›ÎëòXžÕfIª5@ ´Öx›½vJ¸ôÆäm–Øw—¢·_:RQKÞkaš×›´Áózظ¸$kËUqŹ5ÄGé ŒA1Z?L‰,éŒ ~?–‰¶¤Ì‚˜®¿™Ÿ½<³…%;[ü#Û]sÌâé.Å@šk8ìVct”¶HºæyÃ¥x짬¯o¸"@Ky“v·kæ|—VêƒqxB=þüxã±²˜Ñ£vÉvøMô;³HÃ…ãº8b^Ϻv¡ìù£|x°Ø–COv=3§Ñ˜apÑ5“™ŽM"vº«Sžc ——cTþf<¬ÀOõœÇ„b!få½é"”9b Eݲx_á”c»9úmªo×®]]â°zp^ìíÈDµ‘ ¨-H³‚&LºæhÃG5Ø›mªñíÔ±'+f*N&óà–êboÄÛz =é7÷ò§GÌQÊ/èçž4Š¥ñ yŠÁ‘Ô¦¾‘®‹ôácÖ…M}/úJ»?Dô9Ó’Üeàã *?Ý1+࢑âY—Ép‰‚Ô°%2’À¯ þ:Á+±DÛ¼! © ‘bÔ_å1’º¤+¬dB²*©>׬€jõ„¬Ÿ ÌØ›U(ÜÐæº^¢¡fø¶õWºÂÛmjÊt­¤³Ö8W.èðÚÁµ6jÂý]SAVmÖÍ¢ÉÞ°0®ð¶‹–™-»\44L(ñÒs¿fÈ z)’×—Ù¶˜Âüè[“÷²mûM¨È½Í±÷%t¸‹$¹xTЄî"v€ÇM3ÂyÅ*M^—iÙ™Ü^S¶,ßaŽ™,§hóô¸],¹ÌâRtˆ©˜^º×4rã^V/37è8º }Û·MA,JEs'ðoM˜t,Ú) ­‚jbQ‰Á—M`Nظ é›ó †ã2Wq ÄÍ”ÉBZC›uØ…„ü«»@ï’nÑÆÕ+‰±7€¸’6¯¡I՘ב¸ìèhT#» ".½D™ƒ^*ÁÉLKÜ„ ׃^ßx?Mì– šbªçÿˆ6}Ô?dÒ,°Æ™®> $4 HF;š!ÄaÑI;š^¥“*b'öpCgÍ@Év]3[¨êìf´;ìIƒÕútÍâ©z7»Ôd8†î26Ž^2ó,>à½éêŸúƒ3=®WΛ´AIªKLE­ÀÖu‚n•:Â(~—øœL—˜ä¾¸QЭ‘d›Ñ%&;‚wÊ¿K¬LŒ°.ñ¹È]be"Eê«ÕǼ]â0coV¡Ôï7–ë]bufü6Íâîù‡ÓYT­;‘§µƒ‡ÄÇ›âHÛû‘v¥'€šðòp¥PFp5®T‰õ ¤˜^¥œ©¡";Su™Ï™ÎaðÍ*–pwÚ8®ó¸S5¦üvkHüŠ‘?>ÉÈÇ Ù#lÇHË,— Jþ,$¶9nõÜà6Y·úvàûMxy¸Õÿ€Œàjܪ1ÂÜ*Ó«”[U"Td·ªN#óºÕpƒoV±„»ÕÆqÇ­ª1Íà·7£ÐþúNVÚ™úò~ò~£)δãÜ`_¯¬7ýUà·MxyxÓoÿ¶Œàj¼©1ê§Ë&oÚ×+åN•HÙªSÉ|ît.“oV¹„ûÓÆqÇŸª1Îà·AªCÏOk}½ý[Ó²{¸‚rþrþ¸Y~´?̨æõ£ÿ|EЭ¯\&~”}Tœèè‚+ñ£jÄ÷£ýR~TTQý¨B•\‚ 5ùf•K¨m ×¹ý¨"ã ~Ûô£öMCY†V4 šsË4ùˆP#/IHÝÖ#h˜RGž3Þ ÛóQÍœñ§Åœñ|+dý©??Kà¼S…®fL–X âÒ£!V}y¶§æýy½¥µÑÈlA)~´TÚÒØÍaÛ¹2! þà—@érh Ià/ÿ²ŒàñCebÔm ²Æpcä¦P™L‘šBµ ™¯) 7÷f•Jý†°±\çhÕfðÛ5qµƒbý&èßlŠÃ”Ô&É¿ üèï].óûÁ¿/#¸©D •ƒÚÊ„Šì2Õi¤ƒÚ.–pŸÙ8®óøL5¦üö–`硯¿Wá¨vPàW@Ë÷vš2ª½E,ÇåèrDNkÞ$wÚº" ø Á•¸S5b(ÕV&UTªP%Õnt¹„:ÔrÛ¡*2Îà·ªf ÓÛûw¦wÒ©ß’CÚA!o·4Ë‰Ê i“èiàNA^NtW@ð]2‚«q¢JÄP:¤­LªÈNTJ1¤Ýèr w¢ã:UcœÁo×ÌÒŽQuB¬£Òbµû#íÜæ…Mý×¹¨¯÷‘ };ý?°?ûvʺÒcÀ3‚&TàJ2WÚXOúh@îGeäVãI•ˆQ?ÿÜH z–r¦J‹ìLÕiÅw¦m!vS©M*šúgdÏU›¥­pß8®ó¸x5µ&øí¦yg¼"OT}‚>[ÐÈ•)agT3QùŒ˜¨ pÙb§£c—ÇÆ5½P™L,êÓZÖ M‰ši:¿%£µ\ÏÐóTòe·ê@ÜÚí•i>¡L›ì]#ròƒ.”á3 Õ¥j]&öÖJãC=|?è÷+«P¡›k‰Ý›ýØæñSZJ¤; t–O a)[$ÊÈé®Q³ WŸÙí.²lÌ2èƒd)·‹BÕXŸæ™Ž?µÒ]­r|ÝOO–0 lÝ'hBE¦3×1×sÙLëaà‚&LÀfZotŒpÖÿve%ÍcyèÚá±(á}ˆEïS¦…Žnåí¢„Ls‚&T¦ž¸’ØÝÌ š0¦z&«—í]¿S¶,›{¥"{“fŽõ–ÄWgîžgë!¿=m…¼–r æظW˜îÒòæè({šåùµÚ¥Ì'bï¼D™À?4a³ké_ÿJЄIÔÒ?þµ  cšÁKš[öئµ«³ÌG[nÙ f?òrACïz:oäi]Óh™…ŽÁ¼|¾œ3³fÁô¦gštÞXP»Î­Æ0ò~(&* ïÏÇ K,ˆbÈë›`ÊžwšJëo¶½GЄª†·OéÅRÁˆš·…¤ùðgM¨,ÚÍ=M ß üYAÆ4¢Õ,  ÜÂ`Lgßöqà—ݦn%QÌ(®í¿)è6©5‘ëzÛ—ß4aL5I†@"üð÷MØdÜö}à š0 ¥ü>ðÿ4aL¥<Ïcj?%÷¿ÎL®¸™¥œTPèr!˜ñ™£_Å3ùU¾ç©lxV½ìÙ, §‡ ÓüHÕ™l¬‘»ÅT$°Ý4aÒÝâ›…qUPM·Øº´õ»!yƒfý‰³-æÍ"ñoÁ{Z -u1rÙ2+2•çAŸo|ŒLìlàÐb«ÿ*ÖDâ«®g*©(²ê^åèÔNtayÝ–(Õ׿Z~uNÖZ“àßþwÐÿ=ê ÐIÏÒ’Àÿ# øÿ<þÜ‚21®µV&S}®!Ó j¢~­u£K¥þð}c¹Î1|¯Î0ƒßþ_qÔ¬]*tx¢nò(Wf1 kE)Y<¹aÓŠ‰†i7 o{E:Vº=§{Ƙ-N[œiÆý4z£:Nîvùqs~*9¥¦µÇʺå™äÛ'Œàª¾ú¿¤.0€gJᢘÝdøÃ$÷I|ÐAëŸ šP‘sˆ‘`’ú!ðMØè@Øýð š0¦M¾\3²íùf”˜²ùjz,Ë/R@Ç"=f²¹@öhö¡°öA½@¡N|‘F–a²ì¢".cç߈ìý©±3Læü4*®HD6!ÈK Irø A^1FÛ'‚RFp%1†1Ô%…T&RÔC¡>”'…lt¡„F ä:w„¡È,ƒß.£a>ÚyÄ#(Ð!ГñHæ|T3â±NŒxœ¬¿(\7"\Z.Áp½*³D„$fgÔˆ„乸ôæÆG$ÄîjàÐ[bëª@Á&Ž! x·*0'lÝ®Ì],qËY×àöQ‡ù& Ì;f®¤•AìWÒbô£ø}lšM €ù@\›˜s=ëæÀÑ Ý·ñRmkÔÌVÎÐŽZ̳êuÞy÷n½M:²]W§$ÆÎâJÚ´¶B‹>ª1­eF"¢@Û Ä6QÈœ^¦,zŠs’9I´xèë?»åÀëA_WC­ß¨]«ÈW6:t¬Õdi¨±ÎJÅÜL=4ýz¨¥u»ª‡pGC¥Ü.4ÖìÿyZ“ÖÜqs´28ïq¬ü´øF/ÚeË;þL+?3“È ÿ¬1Dâ”2 ÄoFùH&Å‹5çrâÍÄ1?Ãêl™‘ZÁËŠÂbw8ÆYÑR‰9¯œ^ 3äü‰1žŠ?ÛÓ.–ð\>ûiL•XðCã¥$3 eñÑP]+Ø$»Ig£ÙüWÃ3fåꯚmµ®H¢fÝ °õšPQÍZ(j–D¥âk”ÿAЄ TªÖ?þ£ åFg«ÊàˤLE·4’ÎûÌFs¢JùG§ÍØau¡Ó gåÁ£sÕD¥4ò(çÇéUF]GéL4â“gväÙ}ÕDz'eY=ȧYÿgfZvÜž´èܾè–DƒÊ„m?-hBE–Ôv µ}øA&`E´tãgMÓŠVûó(Ìý•$V¥4Ÿþ¢  “Ž,¶ ÕV°iAë0'L¼#Cá]˜7±#Cì°I™(~›f»À|W\›˜³#sˬ3¹û¿ËÎ '?Ì" C;ÎÛ{‰X Ü z·tofQ\Å’ƒÄ•´}í†*}Tc_û*ÄjâåIÛ9‡@­àëÔå:E '³j{ä&Üz_¬ÆµîžQ§¨gÊVX¼6—pwï}·Â†¶`ZçBØj|ûNìnƒŽmNßåNÇØj~"Ya1¬«tªfø«èø‚Öêõªü9Y%úÈ{ )þ«ž[œËhU­×‹;]ž €Ý£éLNÚóÀÙÕµóÈ! èi­›Ý*5Ï]ìEõò±iÍÑ ˜&¢Ïîó&†(Ä~A›¢\n<›¨Ëuñê}Î7€Û­J­1rû¶â’lnŒ+Î~*µâŠY*W±:zÀb]jØ!™+ènä~ðh‰ð*ÐWÅjªƒw½¦S8fš‚DkÝÖ‚…uŒI²ë= {ßp»uÀ^н±•¶W ¿Ai4´§L×óWFVöÌÙ…‚=É<ÚÅ’mÑñô»£šIÞ,€.4£i¸ vEظžJGiBºt‹$Z \z…t¤V¢®à¦x”`ÿí¬éy ±Ww‚V—ÐiÁˆéŶ@¿ÅÝ•¼w'ö»ˆ+y»>[>ØP»n¿ûxIB°¥Àå ãe“ Þufù æÍŠ–™-»bþ5DuÕJÍž^gð>ÐRI¢™ýA˜:áý ïOÞì‰ýÄ•¼Ù‚©j¨Ù/9ÏŒ,C&#!ÞRàZÐk•ÿݘ›C”›¼K6ízf®òq`^ÄÕÊVÞeBwL›U”ªÔ ¯w%Ðm4¾‚ᎂM¾û±âJ¾†ánh%X˜•©‡aõ„«@¯RV¶×"Wmæ‡Q{ o}{ãÍü0L›ðÐR)|â™9±?@\É›ù˜ö‘†šù¢»ËØùØöÜ¿T ";?=Û¿ûî}Ž€Gm-8ÙGAKyÝhµà,Ÿp t|/¹ûñâJ¾ÜË¿½¡µ`AÎ̲¢-®½Rº´×ˆtOÁž4±ìb&¶©³~Êï Tµ©Ù£ò2ÛèÕÖ ÐRòåt$Q8zBaõ š"v£ÀIГ±ëE[WTïDü§€Ó §ïˆ]ðoŠåÓšQ0(…ªÛƒa#Z‘PÒ]1(Õ¢Iæ5À} ÷5ޢŠ o}kòMì÷WÒbƒ û¨fŠ»‹³üLd'¬Õ*êžÇL…–ÔjÏòb©–D¾ä;!+a?èþXíTÝ(‹)!ÚÀ‡A?¬Ð®gVd­z¥FÞ«¹À™YÓÔ¯p+ð^Ð÷ʾ¬'ï>ú‘Æ·âÄnxô™Øf~]eõa¦z:%E‘(òG@˵pstÅŒ’½ü)Ð?•Œ=¯$y•˜ó3Àƒþ°2s~øÓ ¥ö]D7ç×ôÏÄ6ç_ l4㣅|aÅCÏ$Oö„Óê×c®]wòšá8"eõ|Rº²-\œW§w#º?"xÕ kÞ¤ FÙ2ýA+¨®eÙ-Û‹ÛŽü¬ÀÖ³‚&T]íHÌè’µ>|§ [¥rÈT;’WEµk>+hB5Õ®õ1à»M˜@µ£ü8ß-h˜ÕnÙL+5z#AÞü¨  •ÃÂ^YëðÝ/l¼å®•Qcäà•Ø·—då=Wœã-|ßFqÅ,±t%£†¿ëPø¼ÚU(.yFZ%îð$¾ÌÅN0W-ºoc‚ö@ÐYß'³O]sÌ2™K×É#õ`Ä7? ô@{Òo'YÛ’’6­LoØ Ûs&m#ùËÀ7~SÔ÷ ;’NÚF?üiÁ+ãmóG„$mS&FÝVtÅHª¢ÝÈÉÛ”‰VŸkHò6µz „õÍgüÍ*œúIÜËuŽ$nêÌ´Ša—Ôˆ{P˜gAKEIMJtIr¿ø^Ðï½\|æû‚¿OFp5>S‰ê]*)²¯T§ù|eäD—.”pÙ8®óøH5füv‚6‰ð\s<ó4?¬o&'FšOm²­Ð–ÊÚã-ÄÉ”§Î?2åMÚÝ®™7ò]~”Ll2½Ûû·I»d¼;?þ}›à’ÛÏ Ê²­+ëMxY8åÖk‚_##¸§¬FŒú[½éz©VPQݲBÌç–ç0øfK¨cn ×¹³"Ó ~»†Èfzúä}fE¬›!ÖÍÍò™Ûe}æ-Àí‚nÝ~¹øÌÁwÈ®Æg*#Ügn—ò™J„Šì3Õiä|f˜Á7«XÂ}fã¸Îã3Õ˜fðÛSUçÔÖÛHa(?eƒÏ¤ñs8øNi‘ÿºPÐƧK6ûÃ¥­Ó‘ÓßêMx+ùaŒ8.wéˆ^(ëƒòî­i}¿  /Ïû€à\çU"F]Ï»r$5£^)¬D¶ÈXbæsÀó›³J'Ü7Žë<~X¡V}+°ú²|²|¤)ÞSzÜ•æz9~BЄ—‡Óüd@ðOÊ®Æi*C鸫‘"ûJuúhĸkC %ÜE6Žë<.RY¿ç:óÚ”˜Û?“cûÜù­/}¸•×Ìn º3fDÞ±”îÍîͱ¥‹¼Uù$ ÌG5¸ŸöO˜ã"ŬÁÏ\ ¦ŒÕÖH™krü,vÆ”N#)ea/X:•5l¬2\—60óÃ{éôV—N).›î¸8˱‹ìãQÓ2½i-edÆ¢ï^>… |ôÓêºÝ£:>Ë^ ÕßÛæÑBÓÞ‘Po~ô•Õ£ÐTÄîà‡@(¶dºj¹©ñãqu¹FXÂó‡D®[$ë Àßý[É×­»aB>ª©[ïbuëN¦ñM±±’¤Y÷š¤Î3)›‘¿#¯åuOç£[9“›Ïú;FåooœûÌO™É–y«œΟÊëjEý ±d†P„ï-•¶£þ)Åû£V®!Tª!Xùe­“éxÛcÀû@«<7¤Ž»CÀûAÇ?w £ÝV‰%…áä —O´è¹\ÙÑsÓq;$ðÀ·‚–*¨g;W×oäú#·r$ÞO?:Db÷6à'AÇAìâ›@øÒe}Ê,–‹i5Ó£z|RMN™Ÿ~ôw•)³½¯·WFoüÐ’ŒÞ¾üSÐ[o÷ˆö³ªà%i©íõüÙ²'·=½ÒŸ lí4¡ºÁ©‘1’fðVA& çÖà~AÆÔ󚙑1¹ÌÙ$ÎàÝ‚&T¤£ÍÐÑ`Át½”Ǿ]7Ííœø³KF…÷/ š0 4aLžìÊh ®-ÍÊ9®¡;¹ñÀ:…ƒGq6ï×g©£ak–î8ödšÖãñ0¤që뀿+hBEÐv‌ráùò÷Z$‡£+÷÷€?4aLåöbg:×Ï6JS3Ìú¬Ø8²Ç£t¤†çIÌh“´ Ɖ&T¤½k«ª/-}Õsòu¶mp‹  PkÛ"`JÐm©Øjý VŠh"û_1äˆ5 }T)Ï@K[©Ð)qŠ5OkåÍœÎõ­kE0›¥ÿ`‚u·øj˜à ÕO›4óŒ/çœå+º$fà©`º€ß4¡" º¾Ê‚Ä‹µ¼ÁÎiÃ픲¡ßþµ  “°¡_þ  cÚÐRR­^(Ø“2*û[à? šðUÓ™nû¿Û;M˜@gºíÿÛ‚n—š=Šn?Û…‚n—ó¿Áo³a>$?méEš¯.L³xÏò—g°Ö„Åï¼-×K%¾R÷üf‡Ç ÔÆ°‡æsÔ“‹ÚáFù:õE%ß³Ýo#¬µ¿°©?°M´TÔFLkÔ›niy=}²ìW^®¬Â yµ9×âÓ{™À§Ýþ¦¨ïGwÌZ‹¿p¤x¶qKñIÞgr?-#weI[‹äR|eb„n­(<òš|e²Õç²&_­b|Ýb:U¢9¥S#×%WËf©­þ®Ærc×€ºüVbæ#(È[ È›6¤–íÕ{ÿãÂjZéˆ<ár*™¸$Ù¸âÐlÄ’âŠY*ëiþÇ.ŒŽé¬r¯iäƽ¬^f˜¨Kß׃^¯Ìí¯›œÈî/žÎºÐÁ%›Bnî½C™A/dM¢nBø^Ü zglݵEá#þ»€»AïV¦¤ þÒÚÉÉÉLe…x}r?ðÐ(ôúe'LU{€g@Ÿi†ó%fAg6?zÙ·GCµ÷þ–¦º_bßÀxîwk\q`׊âŠY*g˜û=b EݲÒÚ¡Œv “Ö6k§ÛÍëì£ãô‘–êÛµkWWF»W/˜yŠ¢ 'kŽnåí¢fŒŽ²ZæjTíºuK/L»¦›Ñ"¾äƒP÷ƒ0þVi㯙ÞfÚL>ÇÌE]NòŒmжÂ@$¤+ó ªa t© n›ø?t@;ÊÔÒ¶-4ÃÌòLσ>¯PY»aë/€–;–>øíªÔ@WZÛ1Ðßݽc`‡T•y-ð- ¥öJÔÕM¯ß¤æm“oQéëÍô±ÿzÎfz{{·wlí›Ês`²WÈLElcIêw¿úë 59a8Ù¶oþ2è_N¾‰!ö¿@\I‹ñP|Õ4¸ëXÓr»mçÓÚ©Œv”µ!ý½½Ô†Dn®½N™}ï>5³Ø,M9›uÑ@¤ùꄬm{®çè%œ&mV’ÛQ›’ÿà} U®° iBˆÝÕÀûAÇ_a¥i©'¯ù Sè cR{ÀvÎíÖ†KŽiÑw+“t§@O%_†}ù¨¦"”XE¸Ã3-7­ËPu8Í£¬Óãv±ä’á g´ÛE ÙÚÅÓ×Ðú9uXØ&•¹äyð½ Un} ÀˆÝóÀ÷Ž¿õamª¯E`}Û·tw÷mßÙ/UƒÞü$h¹õŽõÔ£Õ‹Áz{û{\³˜éÛ±­?bÌER¾ üèo5>æ"vŸ~ô·“÷ñÄþ;Ä•´gZ*½[…MÍ0kjƒ¨ií>ÞªôõŠV%_Îñ…NºÁ½òÐ̺JŒ›±X(wN3"×…Gñ2„-Šê†cvÙa‚SsXiXØŸÃö¨7©;Q›ÒïdO–Š;¢5+Äî4pôtšâx´\‡¶n³2°]Bž'€O‚~²ñÍ ±{-ð)ÐOÅVÇrÞ¯ïëîÞºSª½ø<èç•)æ¦z ÊÎí;zκnf¢w`{Æì BZõ½À¯€þJã[b÷àWA5ywNì¿@\I‹¡ mWPM«rÅìV%²«ÉBÂ+@_!mÑìκsü+îúÆJÆùn"^Ü úFë.‹Xv—Í%³åëÒ²ý-ìêSVµ:F +ÂõJàVÐý±mi ï3 mÀAÄõ4ü­Ü8SÔq#§Kˆxx’]´—á.e´|X%ÙðaH÷`"´HáöÞ>ÆÓ‚“Ñð‰DœÒ³i¬)§Ü€V×o|Æêfà1”ªë …d&»&”ÙÐJ&–)„3åd{H#溾)+ÒЋà$3R¿OkGDßhíy äáY:;gäË”ÝR’QRÁQœ (ΤNSÑœ2òÝUŸ3£p8G0räGoù,ð_[D®ÉRù]yÊÎÛ{Œ÷šŽÞ¸:’M¢ý§ÀÖU ÿ}&Pid§‰ØþØÒ~Ä0~ñè&⿸–]ËÙ%7_,®WBžõ@²´²¨ªõÊÆwšˆÝk€×²k%»®Š­1:°½·»{`ÇV™ÚÃS÷ÞÌ®uìºI™n:ëın«û½ô_ø8jH§‰äì²ö¹5Í®ãï4»[€ÃìbÑnë‰ä{+Äþô ¶žWÒb䄪+¨¦ÓtU½NSä %y¯-WËÖm"Ñ®¦@o~5t›H [€Ôs .Ô@ÃÃⶸôÖØÖ´ Ý&ŠXúûYÄr—R\Öþ©Å7‘RÓ;€?"x^]ÒuBäx?ð-bôOjf.ZBìÞ ü Šäý ‚í,Ù¾kGw÷Ž¾mRºùð“(+ÓÍÆ°ÙÀ³Ž[ÌômÛÞ1!1_Ò¼ÜçØõûAˆÝ§€ßiéi¾•|ãOì¿Ào·HÎJÖåºl„Ý#Öʺu˜? ôÛb´¨Œ<"—±o .Iƒ]WzàÒâŠY*í,‹(ÈTBغ=VE®»·Ù)꙲eJ·xh©È0¤Ú†ìmƒB×–ZŽÂ6do3±ë^ úêØ6q¢’Ф’XγµQÓ ÆSb_sí)¸•ÌD91­nä#/z£wY=š|í‡eû¨Æ IT7Ì͆V·´FÑ“íf`t¦!•mÕ+5ò^=ÈÎà×ËÈù ÷n-ódÖ“—{@÷4Þ%»`/èÞØv»€/ü•(Û>à6ÐÛ”[nG©9IôðÐ$c¸ëI^%v{ð~ÐR ˜ë>y/ð è3ÉØív࣠m·7Vš2î.¸SùÓpu¯eÍZ>Zn]Ìœf³Q É> ü èÏ$eÖ$¯³~ðgAÿ¬2³~+ð³ ?›ŒY¿ø9П‹mÖýÈY&¬©h~HÞ8F½4ÇpËyt^ä(Œä} øç ÿ\Yq-q ƒŽ™ éçPŒs¶¥©½?bßÀx½¿k/UœÐÄZ¬âµ, ®˜ÅrpÓ¦M,d/äÊJŒ^°ÇĶ žgTxÇœí0S*Ù|o…æêÅß1¡;&ÆãF~“”J/ÑtðÛyÝÓövküæRECwËŽ1Ø94Ô™ÖtsÐ+ÙnZË2Â2ÆÒZÎÌñOòŒàŸÐéuƒìŸL67Öù¥Šx 8w*‡Þ>ª©=ëÉLÄ–æ™™}ò2‘å³!ázÐëcËw=-I`ÊgNjÚLkæŒ>£ë²¹¯}}l;‰ºòØv€îh‚Y9àí£¼Y‘7\pÉÎ9dp–¶/  š±°n²òÚ -¥—JŽ=eÉA’Cä§Ñ†ZU˜ÈJ°twl‘or /ÃÚÒ|ª¯`k—¶‰tðŸ/ç̬Y0½é¨¢–!áM å– ¿]U‰ S¬&D.¿ B¸ ôªØB][%TZèvŽãˆ,à$„"¼ôµ #¦ª±Ôýd©u ¨:YÑæ«×6y‘_ãqˆN¸ôþدqM]ßÜivF7½×A(Âk@_Ó}¿¼}ŒF­ˆF½¡E„N>ª £öÎFÙVaz¬Ï²=m”õÖÌlÁˆÜè>B$Ü zï«3ªz⪋ª6SAÃ{×Ô~zC-ÀŒ\¬OA>ÂÍ 7Ç–u1d*Í!ábЋW{ÃÄxXû¨ÆYßÊk I#e|°æP>ÇÌ–ùÜg׆Q_âiNx+è[ÕÄFyÝ¥Ã0ÆmÇ<ÏbU½ LËØÍ_Êκ†3Á¾ÙõñªÜ1¸þ~ež.;kS0ÅσŽújÏàuÕ…FÃôj,ÊÓreö »I`+¯;yæ¹X¼TÐò†å2ÀO°Cì¼®,pé±Ê…B•"#¿Ø›ñ2„ñöŽ¿½C¼ÓÞëœáXÆÌë0ÝÀYÏm—Qßæ-xÂ;@ßûmó˜Çö`odAšîºV¶ò†3wÅ2]õUÞ ñ ƒ>¬æUøABv=ÜâÆÉÂÄ©48à¢Ô-Îþˆú*oƒøoSú*[ɱ¥àöÓZÖ`}‡þ´V˜ÌæRýéö¿­]imª`ÙÝÛÒÛº"Kþ,¤%ŒÕ­ˆÜï~¸½½Eeƒ=ª$þmlV¿û9”jÊãŽ9ûݺƺÓÆksÈëR[×+ëkÅa-•Nyä×y¯@¨ÎQm»”®69’‹Ó×~ä%ÜZnéEU”ékÿØ6³¯ýNðö1^ß«#n4ù®ÑßòQMßkݾýãgMã¦%¾Ã9F4q?jæLÃò"‡æïFAî½ÿÕÙÿzÄ#T×ÿº®¦Ó•õ¼ÁN^ÆáÃa¾R^úºDZ²wÛûb×xu”ø·Pº%«ËvɈ1EÓ×uŸÃk¿?™"[vð~¼µòmy½EE ÅÞˆ2ÑN¥ÀU W)´ËsÆô¤íÔÛÈò(â•ßpLZ)Ä~MqÉÀ¬»Ú†ê½ºÿßñÚ-2öHw¬¤;Và)kÅg«é³ñе¯@>2˜ëgdMú"¹VÔ¾ÍÞ¯XêbÿwÝÖ?ëÊ–ÍB¾?»³/ßglݹck¶·¹ÙzŠºÕ3³Í/Õgè™+é™·þ¨RªŒ_;½ïÕ!e%_¤™+ËZÉÑ‘SI/^:ÕÇ/ù–‹ÏÌò÷œ>Òƒ(¾R#ZðËE³*Óa+gÓB™2]L’ñ÷?ðGûaöã况œ6üvÑ©“ÃGïÏy¾!ñ?½™-­ev ²rª µ¢¡eµ¾%ƒ« hVuXĪèY0æ¸åRWøYz±Þ ¿@cÁ“}e3!El¯ . 1Ô×jį-UDu¹.Ñ ¦^¯MoCy´µÔÝ&ž”jˆýºâR¤šM§hðXlæqò–Šš¶h'³tÊKÔ¿:"¼ôÍ õÅ:ç…zU)°½…oQo˜´¾ˆ}:€¸$õµ(®8ÔZ¬ ®˜¥rqØÞ%¦ „¹Ðo® »®QÔPa>VLK_ÖY±ìΨ=‹Ð#ávÐÛ•™tèòob·¸ôŽØº‹¾1žøïî½+®m£#æ¨0è°1Ur¢óA'Ÿv=}Ìt Ã~øÂñ§ï8vàþ¡3÷ >xè€ O»™1Ã3¬‰TgÍ×]{´ÊGsÝŽ{ÍQ-µÑ:Ÿ×Tð»®®Y©d«Éå­ÌY—u‡Ì 'c^U*²(Å?«OíßÚãSÝÅb¡;GïÇnìÜ£b¢G¸Ó®g3V¤:óvÎÿÿMåþ´Ÿ+x°ß;¾¨”×¥mެ͒\~ËÈ?ju¯›sÌ’·ï8{Ð1}JÔ.°Keo·va”õêwk>n˘ÌsúøûŒ}•Éô°ÿûBô%¦»:Ó/îÙÛ`¥åiKcêœë÷Uo¼¯ò‹[4:D‘•+©ÞTÍkž=Ò¹%]¥¢4{çªu]¼ÖŸë´X2ôÝÀàG5xºcÖi±ËG ¶žG¼µîªÎŒ%©¤?"#}жדì¥Ëͬ"†ÊJ±>×ce•p­Û^¾7g[–Á›ì}s &„uýCߥ9òF¾J=AâEAÑŽÌ\Št»|$o›cE’µ¶Ìêÿ½ Æïpøˆ«ÑÁkhàEc‹ˆKRžP'+± ˜$Y\z¹Œdu%Z2ogy±V×–ê-ÖåºhDì aŒ¥U<™DkKU2 ÉXuSj*­MëS¦+æùÙüß©‚ž%šýÙ¦HÂõÀ= ÷Ä–´G£ÿt/­yŽn¹£iFƒðtgŒï3=†9»àF—z Ê”óÝ[êÍ\ê1ÇÌóm ,êÌöíbBSƒ}b­Eh6ÏPa—B@ÂÍ 7KWÛ–Ð~SÞöêÜÛ-À[@Ç h‹>‘N¤Ý »•ÕÆ…#e—õBÜ&•ù²–-LüÖ„Ø·0^k²5®8Ëë_1KE")‹ßdÖIÊ¢¨Uk =7r±–°fQAÄ&­v›Þkt #DÒD+׆| nö‚îmü¡ìÝÛ¢W1=yºiy±JJBKýÀý ÷ÇÒRÝ”C\Y¢Þ ún…j ÉïEx;pôP2Öq8 z8¶u´f$ ýtq){{Ó3Š!l;€÷€¾'þÛGmtï ®ä•¢ql\£³€ë¢-m™™Ÿ-Ùð,©i‘Áœ˜áÈ”×à:ÐêæÝvzz¹?r;CÂÜÜzSã= ±»x#èãÔ‘ þ77ƒ–ïWÌè<*§‘n`/èÞd4²Ø×2ëø"I,Hk¶TEén-59¢”;ä”2Üz2JÙ<ú@l¥ì¥ V·däÌÑimr\÷Ä6(WsÇír!Où2K=Ç¢5š‹7´énòÁmØ0dtyð"è‹Êt¹èÁ7gIõ&àÛ@¿M™6¸w—m/LŸŸýlò±{q5:€"vþªç@?—|EìŸ ®ä¨U¢96.€ê aN É°¬6؉—ŒŸj%zhŠûÉezÌ­ÕÊ–ðG¦‘OW§úu JÇ>©ú÷`vÑ`_[|«6\XÔš° ÷ž}¶ñ5a¬ŸðèsÉ×b_ ®äkÂjXÿêÆÖ„éè5a5¬ucj´LM˜nDMX¸¬ «aý«›[VÃú}lZMXë_ÓØš@Ó]’-ª¯ C|f%=î"Îù+„ni<•GÉ1yF4ªüYQ+ÀÜG¨ƒÖ_ÖÀè ³ ³ÉWbŸ ®ä+ÀZýÚÆV€éè`-Œ~m`:ù °÷­M¶¬…ѯmnX £÷±iÆÁ±q Mº>å50yÂe —)3ÿw—l×äFü÷=3wN+êιzÙY槷^ZØTy”æór{ÄTÅPôb+ý±Æ× lçø“ 2ùDì*€¸’¯AW Ö\ÑдP¬Æ‘m)pUˬͫ1§Äï¶ùAJ=ጕ‹†å‡úôªt„ø¶SÙhl»`ä+Yv\-edÆ¢ŸÿN¯µ˜m©8uÉ¢¯-ò¥BæAcªVGÂpI è€vVÍ\b—º ÝØubÙæ©(w‚kË(È>úqe ’¯o¾ô[ê&dؽøVÐo­›î®Ù푨mºŸã©ìù¨ ‰ú6à—A¹ñ ±ëþ<èŸO¾!ö¿@\É70}µ l`éRµ‰„Z \ÝR½RÔÂœnaüñ[qÉ5/WB*ÂGA?ªÌ{-ÓåÛ’h øèÇß¾;耖jÖTµ/$ˆ ¼ZÝ|Ÿ\ûB²<|3è77¾}!vßZªYK®}!Qß üè/5¾}!vÀ/ƒ–jÖâµ/Äþçˆ+ùöå*aú¸²Šo#m)peKÜ•Uµ­ËÎY­‹«Y†‘g=“ìtM·Þ7mÂÔe x ðÐwHp4/Ú„0'§A«\ÖÒ„»£À{@Ç_ÖØ!±î‡$¸øè”iežpjNµ< =šŒZŽ‹ï£¶Ä~<€¸Ý"»  ÚL¾E ögˆ+ùa0hŽ Ò;Ê$d[Ú2³;0ÞV{µL­«*M‚iyåô7¨E˜9Y"Ï>¤|Ä|ñÔ§BWþ¢RfæãʘRŸYçØ”í8ŸÑÒü ÂìC]›0xŽJúñ¤íKäbÄÙt\ï’¥«žéOp :§ºf(^‰”²V`«&èVM™O]! FdOîŠêYI¦-ÀA6Ú³»À­‚&ŒY©‡êÄåÕg–;¦0J×çbVu Ì>Ðûl¾IЄvÕda`û´  “vÕÄþ™ô¯ä]u`¯r#'°iÓ¯„dKê'°‡á+çO1ºh;mO¦3¨È«M˜nY/˜çý쿶“Αþàû¯D–läí‰Z®Æ}„YÐÙÆ×€«Qs ãOG®Ä>@\É×€õ°úõ­´É\B²¥@õ5àþ‚=Æó¾W-¯7ø^!ï‰zžzµ4JJ³o”ΰ&ÔàÕF£,Q«ÁzÜG8Zªë­¬‡éŽƒ–ê*Ä«ÄÞ ®ä«Aàd¯VƒöRn\B°¥Àå å3Ôì-Șy~wwº˜µym(»FF»mšÒ-é̱§i¢À,ЄsÎtr,âñÇ+e¶˜Ðk¬ž}2Vˆ[·oT²Y¸µÉ%™F€:h•kªB†ž‰Ý½À,h• aHdMìNs ã7„¯á¡ƒÍݨè F H |̺°©ïâEÿ‰#ž^~¤?Dþ9ñ“ðü7Ðÿõ%èŽY‰øϺLЀ=R]wêB"? üïÁÿ]FðJ´Ü6oÐNzh¤õ7øŒ¤„jGºÂŠ'$¹¾2¹ês I®¯V) ¥þòœ9;Y%ÃM>a®‹à4j ÁowhbuФUÓ:Òд®9¬Qµ‹5BSC+_É[Ó‚n•;ꉾãbÛJû×ÖnàNA·î¼Lük뮀à»dWâ_ÕˆQ ìHꨜsU#TTçªP#ó9×9 ¾YÅêYÈunϪÈ4ƒßÞ,fö&M×HkÙ²Çü«ÁG!øJˆ²X'£Fg!oVYUš3/í\½ŠVXtk1‘^Ekh ºÕŠ­ºµ‹]C{”ü@?=gÔ$”ŒÚå&ñmàçM˜tÏ܈jzþßDÏ_¬ûsô¼IFn¶X}ÐCs0Ô×Λ9¾KÿÑi©l ÏW0ÇÆ=zú´¦‹e¨YcÌ´,ÓKkyZüΰò]퀖7Ydã8´x•²í‹5}-ÌÛ®añ8c7¢ ¿ ú›Êêé\ %C«)‰ò-àwA·ñÕ”Øýð{ ¿Û°VU<¨ÔòæûÀ¿ý—ÊÔ³øð”^,Œ¨ kHšþ èQØ †¦p%†?þ+è­£¶È¾øÿ}BE°x$̬;k&‚ꨢj“ægˆ}[qIÚå¸âlf×’âŠY*ëY£pŸ]Ó­1í^ÓÈ{Y½ÌÜ}*¢x[ (Âõ ×+«Åë&'²ûqzwɱùX£íŒI¹¸´Ôñ´u¹.d}.fÒ!|¯î?²žžøïî½[™’6øGÍNNNf"(+¤÷CBî>ú…½Ÿ²¦ª=À3 ÏÄVU{WdÿK< Ì‚–ê]„4@zÙ·GCµ7ÕÒT÷KìÛÏý.Ž+NW‹XÑï#®˜¥2ÌÜoÀ릵û2Zª¿·¯—EÅm+_Îñ…ÎÙokC3ÓÞ¨hþéˑʾ*&=¬Î'³Ëm®d1ý°Çú ®Çw0 Û£Þ¤îÂ>œ-µÒ4$n4#v§Ó §›à¿‰ÿyàÐR êêªm`»„„íkO~*¶:–§ºÒZ_w÷ÖR•èÀçA?¯L17ù kÞ6©!íéëÍôíÜ>°£ç¬ëf&z¶gÌÞˆÍ+‰ú^àW@E¡î& 'ÂöÀ¯‚þjò­ ±ÿZq)zûe#ŽÁÇ3rF½N—Ð1?鳉-,±o `¼¶#®8þ±£>ªY€&±Œµ*!Œ¿ŒUéÊ0IÞúF…•vfeتWjä]9XYë’)[¦„à«×ƒ¾^VðYO^ ¼ ôM ‹$d(­[˜<ÇÍ 7ǶÖ]•Ü ÁÑ8« •£¼}TS{Ö“™Ô[cY¾ÈDo0øíõÌBIù¬íIM›imÂœÑgt]n…\„-+‰ërxû¨F—ûy•[9ŸÂ2ÚÊœ^©œ-Ð\55Ó†îD/Îíp?èý±_ãWŸ •ó7I1ý§…̃rBî€`„7€¾¡ :ß Þ>ªÑy霯èf­YÊM>ž/ëãë·5ö©Yê]”°tOl©—’Ä)¦çèêÜ !—‚ŽßWˆ®Î=àí£un!uš…BÙõR!_M/¶› %‹Mê‘¥Ý ó51¥=ä«1­ñ%+ƒt(-£ fq0—êM÷õöv¥µ™ÌÇim _eú·¥{3Û¶u¥#¿Ê Ä'<úPìWÐè¿Âd~p !Œ©Á¾ v2uŽ9†au¦;³…²ÁÀ1ò]ÑMw¤% ´–Š"ï%#FÕ|÷¬“ØݪÔZ#‡Þľ-€ñBïYýêq²Çˆ"ío~„peKŒ­¢!Ý¡sÆô$k¾B8£Å ž×™´Nöã>qÉÀ¬»Ú†ê½ºÿß¼v‹Œ9Ò+éŽxÊZñÙjú¬CèJÛëIöÒåfVƒOe¥XŸkÈfJ%\ëv—ïÍÙ–eðV{ß\ aáïÒÎy#_¥ž ñ⢠hGg.Eº]>’7„ͱ¢‰ÊZ[fu_ ãw;|Ä%é:Æž qÅÄ%)O¨“•ê$I–—ƒ^.#Y]‰–_J¯yÉV9—÷¢‘"ï2†0nRÈÆ W÷¥¦Ò¼‹ÁŠdðôÐ=‡Å_ùѬ;xäÀ]Ãìo¢YãÿY°Çrö„¸7²Å‘ð×ý@ì—ØÁgDÜ‚žÍ¸ÞtÁìcbêî`/{™Üø`?û3;F.ás%K]Ø*ý;ç z‡t}i í°„¤Š¤/w÷‚ŽÝQhi‹>;D_÷Þ§p¢ì²Ð<Ä_aUÞµÇwãľ-€ñÜøMqÅ¡EXˈ+f©H,IõSVÖY’ª¨9išÖ:¸Þ’݈mIía¯Ñ-ŒÎHÎ`+€@oxµ ÎP› d„‹68Cì4àVÐ[cõªšŒœŠÚ<ú`,EÕSØÒW™–åKˆ—@ªjŽu×k+BKÆU$ô) Z—~Ö“‹ ‹ÉXð! ÚŠßXe$ÊÕ .eo’Á™ØuK KÉ7ÕÄþ±âJ¾môû‘„k!’—n)p5èÕÊZÈç8ŠVyÒ"n»LiT\CË›ú˜eÓþËà9”ü0æ´St?²¸P.:‰÷| °ZÊAÖϱB]¢¨Í+¡ œ=ÑxçDXN‚žŒ]/Nu…ŸZ.‘þwVN ­¶: ””Ì?Î;ú¤T’Â)ào€þ eú]t(˜ $’Pßþô”ixŽ-„¿ üÐ[Ç[+›Ä¡®nÍÞ œåæWj®Ô¨má l]&èÖe +EH›Eضh¿Zãw¤"·YÄ~Å úWòmÖJQ 86®ÍZì7IH‡üXŠ¥%­öZW6O£uèÈm‡OÆ!µê›*z«+€9Ð9e®lË‹ÚV‘,gh©ˆ6Z[Eìò@´T[U¹9Úªzmy=ÑNålctÔÌQ^º”ÛUY¢1Û*¢º=zÁð; ¿Óx·Gìü%,ßýÝØåÙíûïWòno•¨0ªcX]B¸¥ÀÕ-qCõZ¯gÎyv+“–y´ 3gü]2h8…'wñ¼¬ã cºÃU˜ðè Ò:QãI–'€oý¦Æ»Cb÷ZàÓ ŸŽ]OÚº¢z+âÿ ðÍ ßÜxoEì:€oý–ä½±kq%ï­Ä=ç­ŠY? Ùà ‚ŽK‘³Ê΢1y±=ÜßI>;J³YÀ7œÓ†m#®—¢{Ö]Ю2/%5¾@7^}±ñNŠnò€ƒ~¼ NŠîyðõ _ßx'E7ußú É;)ºç‰âJÞI­æ̱qNjéÌ ùÐäO^*PÒQÕ€þý‰ÚDá\R?e5Î¥bo`ÜÝZŸ6Ⱦ/ç§1Ì’Öú+Ÿð{ÒÚû@Ïf‘ñ“¯_f´¶G§Õé^ðc7­†E^Ò þ4­õir‹žm3o(FqFMÏ?Ϊ¨;c¦Å‚8×ODOe{ðïAÿ½2çØÎdŒêI’ÿô¿6Þ7»þè‹]+ð\B'ÿüÐÿK'uuS ÕÍ‚µ..4¡2Õ„.Hìà§ÈÙÝ*µT ºEü'Ø.´Üxgu>ªÅzþlÙõµXsÍó†¹!%Ñ–S‚nM),™†”J¦l»M˜tCJìožAÿJ¾!]+ªÇÆ5¤íã^$Á–뜺3Ô?ê· YÛ4XãÕË3† Ô¶¨zÁ³Š#mªh½$^kð>Ð÷½$ ”Ž‚m¼ƒ$vÇ@5ÞA»ûã Çc×?>Íe²ì£å³ Ïp,‘”ˆW/õÒšk‹`jV¤ÆÂ!ƒOXZÚ„áx~Ô·½¨n–^Ðþ6èßn¼›%vÀßý;É»Ybÿ»Ä•¼›E%õ}Q£Ül)7.!:' p³û+#¸ît1ksKfõ¢ú¼TZïXb.8g:9Ö}a5ŽÉ–š¯÷Gt O€>¡Ü».§IÈöðQÐ6ÞÁ»{€:héep—î`‰ÝI`t6vÍ{ œPHÕ!’@9`t¹ñ‘Øu'@O$ï‰ýdq%ï¯õŠcãb[6êY)$ÏRà2ÐR=§ºò¼V-kÒi°žóh{¤ç`™K0ðÌê¹scŽ]æ©J b™{Éêf´££ZÙ¿5iè…Ÿ4/ªÍRµ¢ø‹ß :é˜+P9›8CìßÀ¦MÇ\‰ÊqeC+Ê"le’n)puKÜÉãZ¡Þ*_[ø€då€?ª 9ÖV˜yÃau+Ë=S/Ì®=ü†Ø•çJ¼á  _h|幆ðà?œ|å!ö ®ä+ÏU¨0W5´ò,Ûÿ$d[ \Õ¢z.óô%×Qa(®§`úÛÎéÎI'dJín¡7[ 4@±¢ñà]m'„U°ñy¤,‚.6>&v£@ ´»:÷W˜–?Š5Û›é8™Ô×ó|fHQp@¯b¿ú+ K2Ä¿»àWA5vIFöoÄþkÄ•¼['êGµþMj?1‰±¸²eV>јáÀjÑïó§ #÷üHª5@ ´Öx›];%Üzcò6Kì;ˆKÑÛ/©¨¥ïe0M?ub“¶Y_ ÷—dmÙWœõ¨!>Jo#®^ýNG›RôQšk Â@fEõò`Fˆ¨Ív +F2d„6ÛÄj ðZÐñócüDºú lRb¥úº4cŠÏ Ó,ZÓ­¼îäÍó¬¥v Öy)ë´à"Õߥ:räèi),ûh K;hÛ綸ZÞ¤ßåø§[»f/YcoëÒ †>atۻʑ×]Py\ü èÏH—‹Ÿœ6=bŽR1?ÅIxá"Ï$6’ÚÔ7Òu‘>|̺°©ïâEÿ‰#<ňüs¦ #á? ü*èÈ‘Ý1+eØ¢‘âY— ¨ Ô4×]€'‘-ŒþZ@ð¯É^icÛæmêCΆT&F]w±t$%T;ÒV„{Ý?ÁÑPºÞ†š·ç{¿ü¥àLñ¼¿2Jc/9Û5¢¿™¥¤42c1H™2ªn¾]ЄªT]• KFÕï¾(hÂ$Týðc‚&Œ©êº4š{¡Eý®QÒù¹4ر$©¶Ÿ~]Єªbl_m²ô7€ß4aZûeàwÝ« Ä¹ó$À÷€?4aÒ]Ô@>…=åã¬Ox@¤ÃH‰-§&ërL—hqõ4¦-Ûš.Òîz>ÌËxwùK¸'ßØñ•®Ãk}\™Ñ/ LæHv/ðQÐ* MBó(Ã@´Ô’Œª’¸…²M³ˆ‚E$,Ö`‰¿dqÔ.ìIjyHëNÙØÕ*IÐ,ðm ß–|å¸Ö㣚Ê!1ìz˜ÆvÕâ– ‰±"€¸’/— (‹ JÊ¥%´1 i%¶ÀŠ冰‚ßÞÌ—têY×.”=£jèEã«6¾‡År2ŵغ_ZÞv|Ûa å¦þÊ`ʺm„ŽItµ÷1Ç»PêIë.uù_¯¸™žÂçaó9G]èM€9Б“PÔuY8R<Û¸A’7;/#wüAebÔmJ¯I…˜@äQe‚F…Q«%¦-ÄŽBëK“ŠªþœÙ%ÖÚf)²þ Qc¹Î1h¤®‚¿]œ¦õHNäÈ9(Í9Ð礥‰3ÐÞZ’õö`t䥶u½}ƒÇØIà‰€à2‚«q÷JĨŸ£d$U’rìJDŠìØÕéc¾áõPcoV¡„;ÉÆqÇIª1Ëà·]¼wZÉ8s¤w ;–ˇÉcTæƒþps¼è9Y/úàÇAürñ¢Ÿþ ÁÕxQ%b„yÑsR^T‰H‘½¨:}ÌëEÃŒ½Y…îEÇu/ªÆ,ƒß^UãBiÌ×<”íAÿblÙ$”4a”ˆmPÝ€Ò> T°'iØH7 4s¨“²t-7nv»•ù`“–kgË|‘Ìêkz ðVз^F½’{?ð(裗C»G ~LFðøíž21Ôõ”‰©ÝS«彇FJýv¯±\çh÷Ô™eðÛÛµ¼1æ?Ðx”y»¨åÊ”¶c”¶9P«X³B²vð~[ïM‘Êà˼ô;šÑPn„E6¡¡ ¬kWØPÞÀÊÊ*©˜³-$ÛàfЛ¥eŒ;Û²²2zœ*õœëòëÍÀÍâO‰ö’Þk ð0èÃJÚËÆέ¼Gr‘‘;~s©LŒºÍåÚÀÜ ×pä¶S™|‘ÚNµÊ™oJ¥¶R4©„êïž»j6Kmõ[÷Ær£uWW‹‚߶En˜ƒrÜúöf4Ì”86¡a&¶@u s§vÀš®^ÿ³q&ù–o-Ÿ/VgµO¦ñ%¹on½õr謒ÀÛ‚o“<~ë«LŒ°Îj_äW™H‘\µú˜·³fìÍ*”úÍYc¹ÎÑœ©3Ëà·Ñ›³ ÛAooFs¶ ÆD«9«Ëu1oÆÌóõTqC‹h½6qÅ,‚Èk-‰ý‚âJZŒQö>ªY {‘ÄAš1ÀÁD4]?oŽ‘¦SÚèœbJ ̱ÞØ5´¢¡»e{bL+oæx>ñl0áH%IEåø·ˆEp^›ð"è‹ÊšŒy"…î£ iž¾´Túªö3d±{øVÐñÓU]3“›=æA$×Û€? ú§ÕµïÌ<;eTõiàK _JFU?|ôËñ}yô-/$Àç_ýÅä]Ùf¡Ð *qe­w0WF£‡¹²×mŽºÌvÝœcf™¿Ñ³ö„Qãšp.?w»¶qÛ1ÏÛ–Ç\cÂÜóIí¨¥éù¼I3siÚVù%6\\Â&þðÇòÿêžÖÝ—Ùµ=­õŠ ¢ôGF;9›cmþz8ª¿}³+9Àhp é@ЄMèÈÅH@ÂÞ'èÖÈIº›Ñ›#ï~¿Œàñ{sÊÄPœ@™\‘ºtj•Ò˜ä.™úýºÆr£_§Î@ƒßî &¸Tÿ+ù¥Ò?w9úØç4áåác?ü#2‚«ñ±JÄh€U"Wd«N)ó±,™pÛ8®óøX5üö*>VËê.\,°ÐqîPöÒ³³\jxN¼ª\G*ºë2‘´_~m÷ š° ^¾ý\wIÒÅ·=Ì šð²pñmF@pCFp%.^õG¸FhG ŒW#TTÿ®P#óù÷9 ¾YÅêÜÈunç®È4ƒßNŠÄJu–òaœ£Ú×Ö ©Jªu‰1x ÷ðÇxù?nŽg.õHí)"Éÿø7‚&¼<<óßÿ[ÁÕxf%b„yf¦W)ϬD¨ÈžYFæõÌá߬b ÷Ìã:gVcšÁo3mØ$ßÉ.g{[r¨ÆceqZ|­n¿RЄMp¨r[UHî«€MxY¸Óv- ¸&#¸wªF u[U”‰Õ™*Ô‡ò­*.”PWÚ@®s»REfüv¹rŪÉõõHtËåy¶§;Mxy¸ÊÁwÊ®ÆU*Cqä©F¨ÈÎRFy6´XÂÝeã¸Îã.Õ˜fðÛ+«4üø2sÒÒ1gQ—‚¤5'Þ”v¢#@CÐí‘Öj– >*#¸'ªD u)A”‰Ù…ªÓ‡ò” .”pÚ8®ó8P5füönnìˆÉפÍZ²†#9\Zy­ŸÃký\S¼í‚¾Þ^ù°õKÀ_4áåáq- ø¯É®Æã*£®Ç]2’âš•òºJÄŠìuÕéd>¯;§Ñ7«`Â=oã¸ÎãyÕ˜gðÛ}i-g;´IÂf!¬8yu¦ëO±«hဵ”ii7uÅ jñí‚îÛiºº¥IAmGp… 9^.¶ce@ð•2‚+q±jÄPÔª)ª{U¨Fµ -”P×Ú@®s»VEfüöý ö„íѤ‹JÉeúžtÒdèeÏ.ê9É3ÓS†ž×Äi²ü ø²KÞ¹l‰Ÿyd5=:;£(¸vºv¾‹ó>•¾¯¸rc*g”<o›éh.ƒ=¬‹¶šðÇ‹ÃVh]ýéèžíDÏÔ,Ý¿BéþUìÒ¼‡'… ⣚íˆ/ú{xÆm—i©²•‡–à¥\»hL2ut±?³¦çèÎtF.giÇgNLå¦ÅŠ¿ÈÔy¶œã»Ø\VÞ…<3•I}Ú%åñc°¹ SzÑ´üó¹°Õ1ÇQáæÂOÏAω5éå‚][](ÂA¿¨¬.É”OЭÃy=¸Ý¬TA‘í„Ø·—dµ0®8”¥aIqÅ,•õt¯]Ó™1Ýk¹q/«—™¯IE/ E¥ \¯¬E_79‘Ý_dÃ*IwɱÏ9/c;cBnî­n¸y!‹v˜I‡ð½¸ôÎغkKkï¿ ¸ôneJÚ0îy%wwOÏääd&‚²Bbr?ðÐ(Œ=ÊN˜ªöÏ€>[U;^I€GYÐY…A‹8Æm'ÄÑPííniªû%ömŒç~WÇ'Ó"ΪòWÌRfî7àuÓÚ}-ÕßÛ×ەѲŽx9GAF•©[·ôÂ4-ÑgAÙØøKí;*šVÒsçô1#£E|±¨˜pô°:ŸpÌ.Óöb M†ýµ°ìÏa{Ô›d±‘„°§@O)«¡ÝUbw8 zº þ›øŸ^}A™®Ú¶KÈóðIÐO*TGÖ.äCؾøè§b«cyj +­õuwoÝ)U‰Þ|ôóÊs“ß°æm“Òž¾ÞLßÎí;zκnf¢w`{ÆìˆØ¼’¨ï~ôWênÂp²!lßü*èøG]GvçÄþkÄ•´½BÛTÓÖæg·*im³vpÜ([ciíx†}Ð}×LKs²ìL:ýÙÊ:“yS³l¾ÉŒ !Ó\Cúðv„yÐêö]3d¸†î°®ïð´Ey}LW;n°'ïJÈyøh)ß­…!vð ßØ„†ø¿ ø4觕©)<…Ûâ¼=€¸ÝÀ»g€Ï~.¶6V¥ú©éëïîîëß&Uƒž~ô‡ÕwÞ‚mLooÏYÇ-fú¢æÞ#!ø Ðßh|ëBì>üUÐñçÆ"»ubÿkÄ¥èí—TÖ;Ô>ËíòSZ›Ø#ömŒ×ëˆ+ Z–WÜ~}ô¬„[¡ÂøIv[Cªó’J;.!ÞÀ4è´ÂŠ[0-LB­z¥F浃¡3NQÏ”-SBøÕÀ 7Ê ?ëÉKÝ »KHþµ­Âô9f@gb[íÞJÃѲ•ã‡öx¶–³‹¥²g`Öß1í²‹¹¥@$y‹$ïž}VYÁ-q C/¸vH§Êµ­¥©~Ø·0ž¼úRÅ Í$Èúø-ˈ+f±Ü´i“–Ó ¹rÒ]ì1Í1ÝsÈðÆ{ÕËK\½X¢9FÍOçF~“P*áAÐc¿Éþ¼îi{»5ƒ&As)¤ìêLkº9è•(c]––Á:S9s0Ç?É3‚>‰ü;!:á~Ðû㿆Võ{)}ý“Éæ˜ÐnAÏ–t×3Rb8­M³îûÂ( ²×ììêŠü» ú.¥¯ݾwƒ·jªý½dߣ¦§Í)#ßmŒŽ9Ï÷|,VϺvü'«¦WÎÜèKål6¥"Öt70…ùåöà…ï}oì—ÛJéo™É³F75m¦µ v1!]mP{œ½{!íˆoGÑíc/Ä% Ä@‰ÛÇ xû¨Æ>®ãþ/ЂÚÌÈ"îƒX„×¾.¶ˆW±èŠ´\ ²(ÅPt=Þ ¯}Uô¸¿¥âcêñ Ò#_l^Yü] á ¯ˆ-ÚR+Å´]g·AÂ¥ ãw~¢ë,ÐJ+ÔÙVÒ™;nOréÙ¬cL˜²—ëgdMú"¹VԾ͡¯XêbÿwÝÖ?ëÊ–ÍB¾?»³/ßglݹck¶·ë¢zŠºÕCæÍOHñÇ•3~é>ó Ì·õÖUJ—ñm÷ÛêÕ—+ùóüG±–„™OÈ ü"ൠ¯Q¥¯ˆ–‹ÏÌò–÷œ>ÒE¤ _©­Ñ/ͪ[‡­œMƒp3E¼˜$ãÅpà.<öÃìÇßScHþ«E§N½?çùvÅÿôf´´–ÙRºª-ÛŠ¾–Õ>ÿ–ϯ6«Y•d«$£fÁ˜ã–Kηôb½áü@ R¯ÝýÝ„<±½>€¸$ÄhXí n1ð:ÐR%U—ë½`êõÚû6K[u%­!bCq)ÒPÏ)Š#Åú>´¥®Ê¶h'³´v;êšvè‹p;èí uç™^¡^í ̦ç’Ö±ß@\’º[WjGVWÌR¹IÓ´#ÉC‘ŸA˜ ­õÍt7òÁ[  4›@ߤÌê×uÖµòΨ½’. ¼ ômÊÌ;t*˜Øm}0¶Û"/C"þ‡€‡AŽ+GÛèˆ9êoÛ6¦JÎCØ·6èäÓ®§ƒŽaå çá Çœ¾ãØû‡ÎÜ3|øà¡4~6<ífÆ Ï°&R5_wvíÑ*Íu;î5GµÔFë|n\wRÁﺺf=¦Ó_2•Ë[™³.³%sÂÉX†×c•Š,–ñÆÏêSû·öxÆTw±XèÎÑû±;÷h§Ø£èî´ëÅ E©Î¼óÅS¹?í/îìÄ÷Ž/ªÅ¥Çui›7k³$…À„ß22Â7Â肋ÅJÞ¾ãìAÇô)mP»À>.•½ÝÚ…QÛbàó趌É\‘1§O±ÏØW™Lû¿/DOPbº«3}ñâž½=`VtŸáhLýƒsý¾ê÷Urq‹F›u5>[Ù›ªyÀ³G:·¤«T”fï\õ ®‹ÆæÚëO†~x7軣<Ý1k¯ÿò‘‚­çQÏE­¾ª ÿ$õP@ú!éƒ>µ½žd/]nf1UVŠõ¹†$PµnzùÞœmYo¾÷Í56^ú.íÌ‘7òUê /@ Š64s)Òíòq˜c‰Š:$[î½b%VÎôgE£äBtw\Ï|v„}\¥ç󲯰Å̓Þûn¯Pð¦s©N×.˜ùÎ4‹[=ÏÈwv¥µÂdž}ÑŸîë Ýx*q`]Be ò-Òµ»%´{Ť­7ðClÓÀ^нñ»WÑ'»H€>`?è~…£'e—u$B¼+•ù²– QüF‡Ø·0^£sK\q–׿b–ŠÄ¶¿e'¬³m@Qã×:%!ÖÒÖl«ˆØò-¨ç5º…A%é1¥À^}Þ)­íŒ=œD¸¸´Ô¨e´á$B ¸´Ü(eðÛUL]žnZ”¨ˆÅJ(kðvзÇRV=¥-–Œ£OýBMÍl™ÅöpôH2rðaÐÇo2…þHq){{Ó3Š!l;€g@ŸI¾5$|4€¸’o~VŠzıqÍO…õ’aíI°5RÔ÷ú°X.ª1¹LÏÍh‡]×°<“géãÙÕtkŒç]+uÒü‹Åvüø)¾úŽ&I*[­×-‹£Y3ÚÑQ­l¹%#gŽšF>]½1Ë5hÁÞ¸ ªF­L+qág@¦ñ•)8ýôYПM¾2ûÏWò•i*ЪÆV¦éè•i*Ъ†T¦cÓÕ•)9Ã_…ûý@ã ŒðAÐ&oøÄþ¡âJÞðWÃØW7Ôð[- ±–0^'¦Vœ§¬rÑpÌRiÓâknòÓ¼© m EÝšži@(p6ƒ{üPU=ÄÃfÚì=Êk)q*í¨^.xt 0uE­/«E½çø<èç__V£Ž¾ô;’¯/tÏOWòõe êÈš†Ö—8•l)0~C±¬F¢”aò„ǺF³ÙzΣ‰>Ï¡íÂ)Þ¯´ùtJäÁ€5¸ph¹Bu—Qó±ç0›ëÿ“,û€·¾­ñÝ;b·x´‚å$‘ÿCÀxËIBTbZR*¹ x ô©dTr(½Ð@‘J†€Ã ‡•©dagÑÐåtò ð è3Éèä4ðQÐÆÖÉ‚´Æš~ µè@´¡L-‹™Zò¦¤b @´›ŒbFh/¶b®é"ÅèZUȖцȧŸ’\eàÛA¿]™¶ fO$Ô{/€~A™®¸w—m/L[Ï? úÃñ»¨a-±ÿHq5:¬%vÀ‚þhòa-±1€¸’k× ‹æظ°v_ !ÚR``dQ2®m¯)_°Çxúã@'prÜà±îìÞèÞ9< ëÞ±_êZ/Ak;|o¼èµTªªŒ¯_ˆÚ¦,€¯ýºÆ·)Ä® |=è×ÇÀ"÷¾‰ÿ€O€~¢ñnŠØuŸýdì×즈ýSÄ•¼› ž¤Ô87Õ–3%äZÚRé9sz™Œ\ü Kjä±çðQ¬?n[£fžç6-Ö-gŽªvBCÓ»låæ?bº+y%ðµ _ÛdwõT§A?­°¾†¸+bwø ègbW”Ítô€Î´XpmÒ©®dä…d|3ð³ å¦€ê÷)³¶íEîºÐ£þð@ÿB2zûð+ ¿[o]J’à«À_ýK µ2©òRZùÿÙ{ø8ŽëL|/ð¦DJ”D± Rä@ï ‘")‰’Hê™ÐâÌ44ݤèûœÄ–[ò}I¾íÄoœØ–؉ã+NlÇÉ&›ËYç°Ý8Ésïê_¯ë뙚A÷€]]ÝCf“_Úßf8õu½W¯^]¯¾ ü&äo&£•/¿ù[‘µ2¯WjôH$~ ø=Èßk÷è‘~ê€ùÏ“=R¿ üÿGò£G*þ‡â‰;,£âº€ù/¢¿}Ø°ŒŠÿKñ$– Õâ\¡ÝÙ̺êWÏ_¸ŽHûp„EhÖ¨F]!ë²õ žcÕpó=Qdæ®7ŽeJ>éÝèÏPøf«YH¼ß#|3ä7Çßf.G;!| ä·$ßf¨øgÄ“|›Y‰v²2Ö63Ç=Æ A­¨~ÆåÁYf\üì¿bŒ5îÓr_kæʺċ.ž†|ZYŸÞEGF†ZD¥¬B®ÆjQqEà$äÉÈÍâ–—úâñ$…RÊóFŸ™gcÝJ-:i™nЕPëðó?¿‡£âº€_€ü…ä=ÿEñ$ïáVñ6áb|®³R {ç(ê.‚,6°Ù¿•fñoֈ͜s^µíEu·¦È«é,>0󧵒^9Ý”$5ªÇ£W^ <ùœ´N”x<¢ò à«!¿:~GÅ=| ä×Dn&ág–©üן„,5eÎYQq]À§ ?•¼³¢â_' žä•ž4NgŸ±n zg•»Ðå¯fE‹^të9ÝÊ.n²¡ˆ¾‰Þp)ð1ÈI«@Í<2qyX…œ@8FÅNBŽŽ…wNTþð ä3 _?À9Qq]ÀiÈÓÉ;'*þ¬€x’wNWr{v1FçTt¦%ˆu£;§fB·ó³eCs¦'pŽ'` KÇêVðäIXÓ§WZ vêÇmúWÂÜ s¥ŽF3}*þ!ñ$oú«aî«c6ý©°ýòj˜ûêXLÿxÍô§Ì‚3ž°í¯†½¯†.•5Âp¶¿ö¾×¥ÄèBÛ>ÿ°€x’·}áÎŶO˜ TO@>Ž«`å„ѧ›-~™Å÷3Tƪ%£ì„¶Ybµ¨AÖâ·Ù«`§„ë ¯KÞf©øñ(zûî\M->e/‚i^ Ä“t\ ÷dkÙ•Î5h!JŸ`k ñó"§ÄqYžÂØ ¬jó1™»¨DÁÆe%~ãÎÌcD§¯[åÈéa×@Ý„@~DÙMUzXb7 |²Ô¥pƒ8*îQàyÈç£âBß÷Iå¿øRÈ/M¾}^ ûðP›øcÖ î7ÊAÁ‘YÎ[• «Âš‚­éîŽtÓTŒ¼i»ûßÜä}¼Sœ¦™ý´Yë£YŒŠá¦hø·f©ö¯{ûXC2Üv("åùŠÆ¤Ql,ìBS¸/²Š×¢Z ÿò+kŽÝõlna[ ú!ðBþŸñ·@*îO€ÿ òÿŠlr×¹ÇâËócÌPøVK/P—PÝßrL_ÆeBU“_Ef»NxJé«€×r™P™ÒŒÒÄx@±—!FTÚ h‚n Ë036KÕRSSž’kui xŒË„Š[Ä¡I"tð.§¥r„nué[r9=·A\­.¾ŒË„ŠT×U²¤Ýk¯ãrZjA$|£{9ðg¸LQg}3YömtfQJu? ü.*RÝB´:™s±Äè À¯q™0‰f÷«À¯s™0¢ ç¸ÓKºùðÛ\&T¤›Åžn¤Ç§ïÀeÂ$´óÛÀ?ç2aDí<­M™Åbý¦Õšcôü!°«A^[õ€Th”ö–BWÇdŸMgµýEǨ”uþŸ3£Û¦£¸nQÞô€Œ¡üŽ.ªò¿-²h´²Žià\îH`°HÅÙÀó\îˆ>XÜÔ¼¿ª>áÊcC£"ã{;^|žË„Å8£ãcÀÿÊeÂ$”÷à/s™0¢ò–ilèJMÓ¢½¿L‘Zú4ð7¸L¨HKs]- Éhè[Àïp™0 }ø].FÔÐz×µŽ›c4síºV»i°/¥´ïÿ7— Ûíÿø"—;^LFeÿÈ‘?H&Œ¨²ÞAî£È:Í¡ÞÐÓiÄ“,+¸L˜ôtšÆÕ[C5Óió½é´lÖ¡Ï­ÝQOGåÍa™­…Äf)p%ä•ñ[.·¸ òªÈª¹LË°HËx¼j2 f±ÅfZºØ ¹W™–0-Éú$>ƒÀ¥2_‡×ÓõÀ]wEÖÓÛ؈ÖÿTvm¶¢åq쬻Àƒ?¬7qÆÙ¿«ý†Î¢52 ZÕv7ßé½dÐäuý¤Ñ„;}íž– ΩZv¿ Y®Ï {š«¥¡üð ÿQ2†ò=àC–›W?-“‘8«XôŽ~)?1†e„+|âwz×?áèÎæý GEÚLÚJõéuôžTŸ¾ x’Ë„í˜U! §€÷q™°Íí1ýp„Ë„I(å~`žËé|d¥rk‘¹K£ÚkÕ|ËFFÓ"Ž~šyq«dhŽY2BG“ô à‡¹L˜t4ÙÃ-¢†j¢Éaº’–ù+wÙÞÖø\CàBí¤Uœti©S ?!¼´ ‡!K¿‚w»z_Î¥Û.½›PiþüÜy÷ÂË\fýP®÷<ýññò¹õCçÏ{¿˜c¯ëèü[ÞlIäoÞù¶°/Aߘq³å¼\é1›\ §|]Ä¥–Døvøí2ÄÝ{ÕfÙ£°Ž¡Œ†ÿÌT.ÃU›ë ªž€Û*•ñò/5à¶JµJI×kÅ×lZ›}»jÆ5ù„K§«ŠŸ®ñÆF¥>aµÐq¿HÑ„lª%Je¡!>À3UF 6¨¸Ç€Ó§#kì¡>Öãa—P^·ÀÃ]àq³É# aþÚþ=úG÷²ºì§ÚÁ£|¼(Õužþäß»»ÎßþäÐIYÚÕuþ¥@ü/eˆ«é:•Ðˆ¡ëTÂ+tשN)ñuqÖLp×_©³tj Tüô}õ®SË,î±nÓ´µR•¹æÇ«fþ´{–u¨­gÛziâŽý;žŽ~Áí€õIÝ,ê#E¾Pn;ÆD}̃qQƘ4Ø?p]÷´7båsBn„jJ¿†Ë„—œ3w·A¾…ËéÐÙ‚ÚäÌÓÏÄŸ‘!®Ä™«¡¡Þ™«áÖ™+TJlÎ<Öš tæ1–ÚÚ™+2PñÓ%ugn‡_Ù9=NÏ)«ŒùÌ,„3 ‘9m¶éß! I¯17*ëR|íÔC<ke5-q[ÅÑ1uæ÷˜F~ÜÑ«Ôû‡¤·Š"\ yµ2{ÅÔäÈ>fÉ: ú'*ÔÊZ•°¹ŽˆÜºTícWVw—ñ\Öÿ0“(÷*àNÈÑ/3s•¿ ¸òneJZ;î8öî©©©leôDrðaÈ+쪕 Uí>ù‘Ȫê ï‰À£ÀÈ# ;#½êŒ[•GC­wSª­î—Šï0šû•ó‡nÎTñD¬•“Ìý ^·O»7«e6 R®@«\À’5¦~½¬§mƒ¶?h'øf¾©Ùmh¬¯ÏŸÖÇŒ¬òÅz¡b“åÖt}}Â1«ZaÄi.;”!‰2,´F)½6'‘|x²ÊYÏ€w 8 9ú¬gxÿM埞ƒ¬.a]Ç–í|^|%äW*TLjU,ûðU_Y‹2[zû´¡þþ­;¥Ñ«OC~Z™b®ó:Ö‚eRG:04˜Ú¹}ËŽÇl;;9¸e{Öܲ{%ªÏ?Y*Ë€î&ÊH@±o¾ù…ä{*þóâQôö sì;F…Ö.ü8®cw‹]{X*¾CÀh=lWT:7¤x^ÕäˆÈ4Ó•vBîŒÔ˜ýõ|/ƒƒ»eÀ+ _¡°ÝÍòé€b»B¢3eŬ7öqËrq5d¹a¥øéýµ#aµÙgÇÒFMÇ›„®'-˜5}rŽðDamž^ë*`rEY­ÎÏÙ†Aóî­ »?ÕVDÅwÍ­¾P:ËêÙ¿³ÊC<«åúõë×kykbZ+èŽNËÙ–¶‰‰›ÜƽDÉÍè³Ð„ ;B¯?¹>2á+mo?QÊŽ³…=®O íÚµ34½AP"7Æef<†P¶‡jÌ}é•ÜF…éÑ*õ££n!׋`…ÌÍ]giV¡`k´OÙ²C³ß Æ„; ËÝ Þ`•6˜dJ®”ôÌ´Ù§M²‡lp˜ýO+Ç­ÂpÏí·õô†&¼$·(µÊ.F84•­(ž° rW,pÊöP®ñ,Ð]K­wO®†æ¸¼×@^™ã-ŒÖšñd˜ûÜ4¦Ã=Ä›õ¥=}îØÃùÌ`vp[ŸÆF8ƒô¿ÛØÿe{áÐRR·@¾¥ šß‰²=T£ùkHón¦é™AIhŠ»@‹Ð[~¹&2Å+ˆ^†´Ï´K×úçÖÂ+r7 ©ÉWä”í¡Eö{M¸lŒ¹yX@0a•²cÒå•›ô^ð$ôb½þÈœ¯c´65iöì $z a£zmúº6èùF”í¡=’žõ‚ï ‚Åƒî@CÌ šöM J8˜ªÅ]i¯óñæ>bï6a:Rî)V 5ï7Âu×µAÍûQ¶‡jÔ¼¡…_æ³ö†¦zô½eñ ‘©®üsm#rx}!ÂUWµAŸ7£l/b}½Cñèss$}¡ÃQõé[ì‚wégÀðašB†ž• â;Œ6+Ñ<ó7gœô’Ò‘Ÿs#\’Šo:`¦è´1=eUüV[Ž@„K!/M^'Gð=ñÈUÀŒouœð{uïÿŽâµS2æHßXBßXŒ_YÁÿ¶ŒþÖÅtÅ‹àGö²¦Î5é‡x-n~›#NibàûŸÒ®›·äNŒTÍbaóÈΡ±u玭#ƒX†(éåßDÅY¯†Ÿ|&œ¾é§µfewÒ»_Ðf–LTŒ‚™w²%Ý©a·’P­Ï^ùòº=-¤þžÿmÎ Wy÷©ÃýØ°3÷Åææ,|8oFÃ:TÎ[tm_½~ç3÷ý÷ÿá¹Ç8òágš¬ÈÛe<ïÎ;N½/ïxFåþ§Sÿ¡îæÂö‡VTC¥Ö4´°ù‡oñÃÆ4£iÌcMcÔ,-¾r¡Ke½ä·d ôâ½¢ž²;!…^³†x$h¨oÔŸÍ®„,UE¾¥ÎÍéES÷ëÞ;P)ßÈ")ÕPñWˆG‘j®»“«Æ(h÷ðìJ´š´‰+j“vÏ2’r'´DعO¡ÆÓ)ú5&aýÓoú )QñYñHjl^T:Ô_,OÄZ93ã:«4Q¥Tí5‹âùºú„dxîG/ôJA3*«Â>¦e%Ÿó“Ü£Þs0v@xòeÍg~o)=a‡-Dç¥À×@~²&¸BMÅM_ ùµ‘m¡#ô$*ÿIàSŸŠÊ£c4gŽz§œNg&*2³«{¸Rècf7f WŒrÁ¨yèàÍÇivðä´3£<™éiú¸§wVûS«¯ã»æ¨–YW>KW&gÄÏz{güL·]*_(g³YìiNV²eÃ(O”XÜãŒ?¦ŸÙ·uÀ1Îô—JÅþ<½ûbÏíNöSî´æ´í¥,*™ž‚•÷þ•ûojßïó6]R~N÷óŠGµì¥ŸëÕ6nÔf0ç•ÀÈoÊåÜsc{í|Åœpn¼ýÐ1ýŒ6¬cfÍ·vnÔ*3ðÊè/Sù+œþ|'ûû(›`ÿï‘Ó·zúΟ߳wE (ºœÒ¨hLýíþ}ÃßXû‘ó›4:ÌÂj€ÕÔ`¦é5„ßÎõlêkPQ{ç†ê=>h® Õ©82ô×ßù-a ž¾1ãTÜ¢\ÑÒ ¨ÁUQ¼ êh±~F`ÿŒ {щvú1ûä¥fV!Yeµè_jÀ :%¥úµíe½v™Ï2ÞØjª"hb!ð]:™#óUüˆD ²DjÏÔEº]”+ÜæXU„xéÔŒåÅP1ÞÆC<’®cnäywšM™/ I>ANv‚à•Ed—B^*CÎÿtkëáw N+€W@–ú–:/Ç·îœúìÆ’ŒU{3|Dѧ±.¤dì>>àÈŽ»fxfؽnº/´eÏÕÀý÷Gæ»OÃÿ¹Iª‰ácUÛG­`Ž™­eWô²=ÊP¯Œ±ÿœÌ[“ÞW¾ÆTµ[8ä}Ò $8B ¸ªrjðäCÑG(á–èÃÃÀ[ ߢÌîçæª6‹ÅÕyw*‚/î·©ø£ù힨thkë"ñD¬‰ýöÞ•™„>ûíõs¹“’à†ËŒÝî£;¥ûèlât™îÝ:)=CÄV7@Þ ]yÊ&cˆÎ ÀÍ7Ç?CÅ]ÜyKô–ž•PÊVñ({û€ëw©¸.à6ÈÛ’÷sTüvñ$ïX¼¨›0>Ç2Q¹nà2ÈË”y–WL2§Bs½Z°y¦ùî\ü€y´B[ÑÙ?ð–Ù¿›¬/^ÔÂ4ÏD Wuæõb¾Z¤c2Yí¤:SÓb¼ á›!¿Y™#›w³˜n$©wŸƒüœ²†’£âß* ž¸}×|ä·%ﻨø· ˆ'yßÅ¿Ã1>ß5ÇÙ– †A¨ßóˆÎëxã=¹#†3e°nzÐݪ448Ø<>õËþÎïëÍØá}}g9ðaÈ+óI]t•‹#8yJa{¬§ñXúbÝÅÃ%ÓÎ÷óÔÌaý(}Ç>ùqYÞ3~ùàÈrÛÊÄOïtƒ{$íõ( ƨ^-ºñ$õƒt‡Q­?ÕF+VÉýOt‰õ5 üä¯)Ôs€ß¥/u¿ùëÉû]úÎ7Ä“¼ß]žâ¾–0Æ5¾”(Á­(DŠïKf‰§Ì‚3î.?øíãDzµÚ5‹ºv€}Ÿö›–M¾•ïYÍ45(‰ºX|ä7(sÔsÜÜ°ƒjâò ðí¥‚‡pƒj*îià; ¿#rÛéè ëÁ¨üwßù]ñ{0*® ønÈïNÞƒQñïOòl·gcô`|ûƒ7Lú)ð`ÍœÆy¤BwÆ2¿4F~«1V¬ßZ`,±/Nõ<¿&T\º ^аYpmî´F!lÃX!<ÓuŒ»a¬@c < Ynæ1RàâÏ ˆ'ù†!Þ>cÃàû$¸u£7Œ9MœŒZèÝj,´ ½1½„Kߪ”ügÀiÖt]®–1²cÙÐ9j/ƒMNBžTÖƒwó÷6ÎL„íÆéçÎ_Yj^*\7NÅM_ 9úù…{4»sÛ zø&ÈoR¦ ùvò6à»!Kuö³Ž†gûóÀ÷@ŽÞ¹÷û 3ËB Ô½+‘ªvøN‡¨¾ø-Èߊ¿ÓA†W òo%ßéPñßOòÎåÜô]ŒqÏÝ|*A­¨~o÷Œ>ÇÖʆAk#Ó)Ukæ¯Qxz…•ø/ƒ|,!?؉™»€÷@¾'þN„Š»x/ä{£7¿°Î‡Š¿O@TüâIÞùY â\¥-ï̺ê@ÏκZ1õrÞègÄ!z»ß°(´}Í£F„õψÓX+ñ=§ ?¥ÌwÉMc—§o†,µÁ.œë¢â^”>¦©`‹Êø,d©uØp¾‹Šë¾²Ôºk4ßEÅ¿M@<Éû®UÜž]T뻤ÎÆn`ô`©¹¡.³\ßT‹”ÂÚ,±ZÔ kñÛì*Ø)á:Èë’·Y*¾G@<ŠÞ¾;WS‹OÙ aš^ºÙ6³ÔtÔÉÖÒ•Žpñƒß’µr%ó"‡i£:¿{oÕ£5¦ìVCO«S*N7F¹ë·cbS÷– V Ïú:†{úFÒ÷üÑ ñ 2Äk^´cVgpM—2þ#Æ\fbSè;~•qò/5 CZ…¤ë5âk2ÁæÞ®Zñ¿ß7ÞR[Üï«Î0ÅOon½ÇÓ=ŽÝêdOFbÛ»ø&cǤߤŸ†ð±çÖo®ùÙy§9Ç^ÒûÏ9§aÿ%ëyÇç!ŸWâyç2ϯã}‰Àû%2¼Õ8^%4|ïÂ\z–ò¾Jˆ…ö¾ê´ây_q¬#þ«Z#hSÕøÏ\·jŠíÒVp¯_©³ô jZøéÚøô;ùE«ÔØ‹§ { ¯Û†Ý«•ª¶C“]õùù‘iÍ6G2æöÞás?'õ*A›/¿Yå¦Ë€©.*îà×!=²BiÆãU>é©Ë¨çÀïCþ~ÛºëåðTZÎ1K”Ör“7w½…vF“7ýð_!ÿë%Ò{ÿ›Àûßdx«é½•ÐðmÃ+k½w]íRý¸Š¡ûquú™­÷imª$_z³·Ñv)/¸[¯ÔYºu5ÍIüô€·’U»ø½1ðlc=sT“÷Né½\&lמ><Êeºöô0ð—Ór›„OÓËÜ#ÌÏÕážE)kV™2k´É¾8cÁ’¾¬Ð´«‚òmᤳûOqÒÙ®ÿ†YP†6l¥ pæºh£qQèQ,ò5VC4+½bÔøð]OžØ¨ÎG8y­el:pª;Â÷ÇõÐˬ¤[9v<Àåùù(3¾s'6i7hC’ÑKǃ@“Ë„ ¢—øg};ˆ?&C\Iø¢††ÿ†Sšõ%ÕÊÄ,jx…Y*e¶™ßÖfß®š b,µu@ È@ÅOw0ÇkŒŽšy“–0{Ñ{˜ ˜«¦[>©1œÐ»…Eòïù÷^ Q@LJ€Ÿà2aQ@Çû€¿Àeˆš\îõäVÙ y™n°ã_ä2¡"-­õÚÃRûŽˆÕW¿ËeÂ$tõ%à÷¹Ü!?õá}zù ±ê(»7µ§û4©ÀºÓ?â2áEФ~ üG.&¡¦ÿ‰Ë„Õ4—ÖŠùgàÿá2a›fËV6Í°8䆡^|¸Ä㯒qçÿåØy=— /…Y³Îê¼IÏ[IØ©††o+^=cÖŒ+Z& UC3lªPG³Íœ´”6U”/Å k¯íRb`Àc©­fEMKütfÐ)ÓÄCϳ¼Ô͈͚~±U×݉9±Î[¹L˜@×݉9±ÎÛ¸LQMŸ¨fe}¸9V¶*nÚ¾?\dVl‡n¯–ʵLg|b´`°ê+™eæüÓCšvs^Hwæ*0+¤UÑÊ–SŸÕâÅÔWM'M™£óvà¿p™°ý¡mñuq.—]LÀ~þÅÎã2aDû¹ËH¬XSÝj×[»m¸Ó•tè’ÆÁE}Ä(ú+ÞäÞ_”” »I–^WtÝÇå.©CRÑöê^Å ¤†jv0ïÒ4íÞƶSªsbæ\5«zÐæõ2 jö”«A™pä]ÊZÊBÜùqêÄݡdzÄhðd©¥€p­…ŠÛ ¼²”“o¨ˆ7RS°FÝ,û'š·l/I©¼,@#:µ#«œˆg0Ëìëz|õ®m×iòY?%:Q±&MZÈ öo°“Û€ ùÛ6fS¶!‘^çO€ÿù.ÁñýÿÞÿŸ ïèƒ3e4ToHTF,ÔpL­VbÚ¨ždƒ©ÈlHŒ[[þã®xKm1îR×jÄO—ôÂíOQšLMÞ¡¤;¸LøÀ¿§;Wr9ú¬R{ü{zµÀ{µ o%þ] ü»baý»B­Äçß“l0Iÿ«¶ý{Œ¥¶öïŠZøé,º¦¾1ŸÏž"o£Pر¬HüVW7Á5?W/šq╆ž×Ûtø4GñHú;-*5)~'§‡ò7¾ŠŸ®Ò4mä ñ®…–WA^¥¬k¸6Ÿéagq5^_OÑ´l¥¤÷õs ×¢ wCޭ̰稸+€{ ¿½YíT-O6_€¥š¡yš_ðæYG­bÑš¢ÿ"‡`•iûÊî°HÌ÷§ K¥OšÏb-LŒ°r§´¹u¹]ds̺‹SQsñ43º¬É½gìÐYÖâ{„={@v *® ¸rôø¡}(¿A@<É[°«Õbµà/" Å«¸òBeöÛ´ÃÙvôrA¯4šÈ¬H3±\ì‡Ü¿1k0`Â,älòÆLň'yc^^«1ÏÉ›Ù∵nà’”êTC׳>•ÅÝnê^oaÔgB_²‰ïrànÈ*c”˹1JWJEŒÚ²©ø½âIÞ²{`Í=±[v5¬e÷Àš{â±ìêÄD<–ÝkîIÖ²{`Í=íµìX³‡m³ìõ°æõ±Zvú> ZÝJ'»òÍey²åµË̘kj÷*ûoVȸ§¾Üý,/¸øäG¤ë}Æv&º?QjøŒËË ›eÀ ˜Š{hA¶"·‡ð‰*©ü àãß+ C¡Tr%y¯DÅÛâIÞ+mà6í¢Z¯ÔzÅ# Q%Ñèªïc5Û*¹WšHîm 75â÷2am˜X.BŒß†7Àn ‡ %oÃTüfñ$Mã:X­‡jæ®ç²¦t4ô™—(#þ;ÍQU_C©ª¥úâ³è%­^_CÅÍ®‚,7I-~ú«ÂÖ榛|…éØZ¾—-½ždÆÝúXfÞÀÖ †¯˜#´ÿvÄš4j»pmƒàÿ> wèå ªµ+€ß†üíäÛ×&ر‡jÚ× k_Óèüλ ½k¬jj É:¦„ƒ#µDßq¤KS‚Úqà È'6Æw¢.v g½¥ æÃÀ[!K/PÎøåÀ“OÆï ¨¸!à)ȧ"ÛöڶϬvÊ‚aÃ]ñKÙtrSÝѵъ^2ê[ˆÙhHÖÚï>ùåÖ¾X·³D:ë’– øðkU&+kaõW 7býÏ?ù3ʬÿ]À¯Cþz2Öÿ,ð¿ÙúÖ­?lWCD¾ ü>d©Ã̾¥Î͹±O¹k¸±Sæp…]\èž–Šïd+^•Îõ)±yˆ'b­,fÿÝîEI~î(‡p1d©Å^·†ºš¨Í?aŒU‹zèlÁÄfp ä5Ò%?OúDõ–»4‰÷µÀM7…åOßH:5ÎÄ32Äk³³NZlÓTFÃ?ÆÌeN„Þ ©Œ’©4Õêc¶¬<ÆÞ®Jñßo©-öAª3ˆµÛÝan„¦š…œUX ö]UË ª…%ÀÈ ‚7¡\†n'•¨‰AànÈRËq-cõ¹|Ûž·[€·A–:ë£ØýÀÛ!ßüKÅí‡|<²i<ÚÛçÆg,ÛN¥šo8[è.õVLžÉë]£«ÄƈN V*æHÕ=EèΆHèôà/@þ…¶D'§û'dã“_~òg/•øäsñÏÉWŸ(¡á?—az•ŠP” ¡¨ÓÈlJ ƒoWµÇ(ñ•:KŒ¢Æ4ÅO¯Ö ÆXÅ ä£Ì“FÁ*IÌ ~²|~µHc» SšÕwþðO!ÿé¥â;ÿL þg2ÄÕøN%4‚ÆvržS ¥ÐžS>fÛ{»*%ØoÆWê,~SYŠŸ~²áŒ›c9t³Jí¤›˜ˆU˘YÃÍ{áÝbؘ„ˆrQÎÈzÞëZ‚l«lôfµ;(sÑ”i}A¡om¯z™ÖOŠZC Œâå}Jú \&”¬µ¨§¬çç&JÚPv×öTêen)_þ/ü¿¤¼|úià‡¸œþ /ï9kâûa÷‡dx+qòjhø:ùE¹Œ§i_¯†YX_¯P-³´ÚA{ꦉՅ´Ævé+°Š±ÔÖÝ¢†ÓÐN5‰+E*•)kÃó‹Æ¤QÞµ-ȵí¼":Ÿ²Mú—Øóeªi5µ•þðs¨‘èãªE½µÜr¡×v‰É Àß«¯FfzQ³+·†j–zWxù⪶ …äÕ.„+ ¯Pf¾sŠ^¶GÃ/‘Y ¼òµñ/wp-䵑uôÍš Ø‘'fãâîÌ¡x’ö NLM~Á÷‚·+°ñD¥7½ËîØülxã1K>ók•Lws›Ýòø7ä_Ôöm+tDKU¤ò¯+3ù §Äç›ÀïAþ^2–óÀß…ü»‘-çj1EëTäfþ}àßBþÛ‹¡™ÿ#ðß ÿ[2Êú)ðß!ÿ{de-@3ÝAÿÃ1=‡Ë„Êj¡ì¿>y=×£»(ÚƽGT|‡€x$ snT:¤IñD¬•ÕÔM[ÅÑ1µÞ{L#?îŒèU£¢eBÒ„¢WC^­¬_159²¯d8:ëŸú'*íÎZ•°‹¹DnpäÊ z.Lëf1 Ü«€;!»ŽÐ}#•¿+U[`wåh íâ·ÖŽ;΄½{``jj*BYG"¹ø0䇫• Uí>ù‘Èªê ŸúŠ< <¢p«Wq«àh¨õ¥Úê~©ø£¹ßùQélNñý•â‰X+'™û¼nŸvoVËlìÍjY<]ÍóLÛ¬1õëe½8mó,å'ê§@Ðд =Z3²ZÈÛž„,uÎÀß'³ª:Whj'6²°ùÄöIkÔ™bƒ ²Ï@>£0" ˜ ¥âN§!O·ÁSùgç ŸS¦«Ž-s{-ø¼øJȯT¨Ž«X(ö à« ¿*²:e¶ôöiCýý[wJ5¢WŸ†ü´2Å\çu¬ˤŽt`h0;´sû–ÙvvrpËö¬9¸%d÷JTŸ~òçênÒ¨ŒûFà _H¾w¡â?/ Eo¿0ǾcTh·›ß‘îÍ\Ç©­©¶ö°T|‡€ÑzØeJ'pн-Åó}yˆ'bµ ¯_¿^5M×*´ƶiv‹¯Àºh±”éõ¦¸6•œ¼^±7¹'Ñlà ýÛ¡NÂaÈÑßáF[ÛÛOTKcÚK´ñ ímÊaÿ£—ú\²ÃœyohÆ;À’ðÈ7ÄgŒ<ÔÛW›hî©o®í o»ñ"„Ç!oƒìAÙª1€ëÈO¤Ë6ó½àG(d[ˆÈuùIjäŒlF¶1 .ÇM½‘昸.oDÙªÑåçÊÝT¬eÌôè|šïôÏ„¯¿›À•ÐÿFÏ#2÷ Z~.üÄðIÚ#Ï—úBóÞ®û”òÞ®5ü_ÉÐËöpÞ*ÞN‚g£Ìc —+Ö”÷ßá+}? ýgâF{e{¨Æh7=PÍn£vDAPÈW‘j¶¹#¢;å†óþýOx=ß ¢„ÞÜ~VY̽ gœÑKE߈{Š;¤Tµ¡#n*¾CÀh÷ÌNä휧xN)Â¥—*ÓÊüÜiczʪø ãC‡kÿÆŤ•BÅ/\ÌøVÇ ¿W÷þï¼vJÆéKè‹ñ++øß–Ñߺø®xüÈ`ÖÔ¹&ý¯ÅÍo³À)M œ`ÿSÚu`ó–üÀ‰‘ªY,lÙ9T2¶îܱudpó›%½<И€?ëUí“ôÃKè‡oúi­jY¡ôÒZ@kYèýX‹´S'T×óRµèÊ•‹ñê>õ÷üosfxÈ»OîÇúÏÜ›x‰Λќ•óí²¨×ê|bæ¾üþ?<÷øG>üL“íx',æÝyÇÉ£÷åÏ”Üÿtê?ÔÝ\زêa5ZÓÍÂæ_½!į6ÚÏŒÖ0µ†Q³h´øÊ/E×Ò·Ìд÷¬hle¤éï$䢄3.â‘ á{\ z Ù ¨óš\y‰ )ßRçæô¢©ûõå¨Â¥—&¯“ŽZóâˆG‘N"x§Nè¢6;_ÖfCêEÈ•)kÒz¡â/"½,}\p¬ š.¨ƒp%ä• ¨¦ ê \yUòª¡â¯"ÕôÜYT݃c3VEÛĵI»ÃÍ©64žöBîU¨.ÇtŠ~½Î¨ˆÐÛ u}òê¢âo¤ºæE¥CÏñD¬•×#ëbíZb\VfûÜjÝêæÛ?ÅAR7º?ån«­%? ëä¹mé;¯¼(”ðõ_¯¬EÍé¡»­‚b¦ a>qy ðmߦ¬Õî¤âÞ|;ä·G6ŽÐKÁTþ;€ï„üΨ<:Fsæ¨wšî¤qf¢ò 'W }ÌÇŒáŠA9Ä:wûþSGŽí¿ïÄ#wŸz•ù©úLLúâ¨oòÃC<’®cQäõ«àâaÓå¬!ù9ÙÙf‹*«Ä°¼àÊKeÈù§ Ÿ»¸f@x9d©yßRçåJ†3nùÍýwà WB–šh¨ý>–¨­ÛõÕsOôiŽ^Ýœu첿饒^ÿÏqÙÔ+áל‰ÿ*à=ï‰ü·y«Íî-B‡÷ßvòPŸæReC©ÂcUÛñþX0ÇL‡ñç'¼è+cì?ÝzøJØWZuÞù6é” Â\õBÅÞ¼ ò]ч0áWj‰À àIÈ'# ïÑAJ9ÿ¸<á z6·õc N+€W@–ša ëÔ¼Ž•Ð»:ýÊÈsSK§&zö¹×‹†û׳økh{#\ ¼ò½‘ßbŸçÒ’rcK Â}÷%çƨØýÀCµÃÃÀ[ ߢ¬5ÌÍUm}Ìo*jê|i*ªÛ? ŸRñF‹O‡¢Ò¡ï,OÄZ‘¸àMØéwÁ›¢^e.w]ܺKS3vã„ìTæ4qºL/{× ÉÎ8±©ú%o+R ;ÏÚ2ãL\n¤j‰­µóÀg*îºTíŽ;WŒlÐ]ZøL?Ä`¸òVeJ™ßÃc)½ì€| ½l„|0ºûÍJ(åfñ({û€«©¸.à!ÈÑ{ßÐÞ^ÜQw¸þ$ïíWp‹v1>o?ª9o"bäeÒî¾³‰ÔËyÞÊ#i¸W ³ÿÇùÇÒì #oŽNãî>wÁܪ§§to'®åŸdâÔ¸™÷Ïd[ÕbA1êW²ÚÉð¬À‹þ<äŸWæÇæÝl8ºzLEdÞ |?ä÷+SÞÓ@¾øäç’÷cTüóâ‰ÛQq]À@þ@ò~ŒŠÿ €x’÷câþ¿øüØ‚ÚøZ‚^wªÞ|áÕy²Ñ¢5ææ üÖÔ¸As›ÒìÖ}Òë"?•ç™¼,U3œ˜D‚EbºxòYuîªu—uÑo½øZȯ?ê¢âΟ„üd䆢géÎáj™+Ý4 }Mú¦4uUÇ¢¤uLÅÅišÿñt^Oµ¬m«nz¹þa½!½ÞSÀAþQüÞŠëþò“÷†TüOÄ“¼7¼œ7˜ÚNÏx¼áBaÝD‚ ·´$È’þ°{¶È®)žã”½xÎ,—™ŸÕÝoroènr#_è·5-«ÝQf-©b°ŸÑËŽëùÙ"éiª‚+€ÏB~Vñµ4z„JtÞ üd© #œ¯¤âÞ ü äèAÅ\©Ë·ˆÃ‡€‡üñHš \Î(MJpû ð ¿ P=—oQqŸ~ò“±ŠO¿ùK‘­b¨×Ý‚ÚÔ!Öî(Yº_Y§ôtvº(e@¿ü;È'M;Ê}0ssÌ_?¼9€ËMlDþï9ºçñþžc¸— o$}) N׉“žx­Ÿé˜uÍ' C–2¾Þ£;—᪠}[€2^þ¥lLS«Á§ú¯4´4ûvÕŒ^þxKm‘—_ŠŸ.â£G©É.‘Ñ"0’[S8ÙEdV¯æ2¡2ýNvQ‹×p™0ê'ìðŽŠ_SGï‰{xGÝOŠ½–Ë„Iï¨øµuôžä‡w¾¸‡w‹vÂIPô¶ð­JÕ¶Ãý¿:À£jX |ä·µ€GtÞ üäÅÊSqo~²Ü©‚†O¥xÄá#À_€ü É8}ø%È_Š€GÅý2ð× ÿZ2Vñ‹À/CþòÅ?À#º_þähËo~ÎõØrC<¢ÿÿqLwq™ðââá9uâ$‡'}ˆ§ŒFà•pPnèAž2f¡yjÕ2Û o6ÓoWÝøóâ-µÅ0O‘6g„ažÈh-k÷0È ZsƒüÕ²~Øa¸¨q9­%?Ì£â×ÕÑ{âæQÔ…b{¸œîI~˜Gů¯£÷$?Ì[Å-ÚÅwâòNܼ#NKSQwâ6ohÐkã»rµdT̼7ΫÝë —¬jÙݧËèkÌ(¦3íŽÕfÝI¸)zÍÀ äJ»Ý‘9|9ä—'ᦨ@ø ȯHÞMQñ¯OÜnŠŠë¾ ò«’wSTü«Ä“¼›º‚[´‹ñ¹©.:Ï$Á¬¸òbeNª4Ë®«à]£S)6ì åÛrf¿b8ÕJ™nzt#H9¬+ð=Â' ?¡ÌaÍ?ÔL6«WòÏ&ᱨÀóÀŸƒüsÉ{,*þõâ‰Ûc‰YÅÞù É{,*þiñ$ﱄ#˜1z¬ùÞ©K vÝ@áÀ“¤×j>äôÉ]ïKjÓûÌyõ¢•w/Ôíç¿iv™‰\ª®Ë/@~AZ©A¹óh"·Z6%È}øÛ[aØɥâ¾üÈ¿£°Ø€™\*îóÀï@þNä†>¯Wª'$ßþ7Èÿ­Ý¡;‘ùð¯ ÿU!øÀ¿†ü×Éw„TüÄwGHÅuÛ¸O˜Šÿ‰€mÛ'¼š[´‹ñ†îg%˜u§êù¢…îÍŒ ¡B÷æ®ïÃv‰7^´!Ûñ7‰Õh„d'ù&AÅWÄ“|“¸ ÍàªX›Äw‡‚µnàÈK” gªMµ‘ñ3ëv¦ £¬ ºË§CƒƒÍá¡Ï5 ‰+߆!ÌÑ+.– —”uÚ]¬‡Ê‰É+¯üšX"¸¥/6oÄ.™v¾Ÿîa#«x{vñe_&Ë{Æ/—¯…,u’ªáeït‡UõúŸo*£zµèžn"ß«Ÿ6ê^[­X%÷?åÜ0½Í“À߇üûñ»a*® øß ËE©â§¡Ý0ÿâIÞ _Í›­‹1®}ðdCܺKSª×>žš%6™2 θ»­æ€|3h‹a ½%‹Løýoºv€ýSÊË]6yÖnþO3MmK¢ZVßY.Å´oéf{ jVA܈Ëû€€œÀ &*îÀBþ`äfÔÑÖ™Qù~²ºÄ³ÎŒŠë~òG’wfTüGÄ“¼3»†Û³‹1:3ž+M‚[70º3kæ4^›m$¿4fÌØ©Ë‚ÎöWæÎ ì%öʼn¢ž7ÜŽ]œ^¤^ÐÕ]pm«Zfc°° ƒÞvpòtü ã4³åŽÄGjTü9ñ$ß0Ö 1¬‰·aðäܺÑFó4¼QkzeŒ ¼ÊŽØ2ôú…àºô­JɪF_µ!×µ[ËÙ±l`jÄV¯¼8 yRYÞÍßcØ83¶'B篬rðÐSqSÀ×BŽ>ÂY¸G£±›tABAOßùMÊ$ßNÞ|7äwÇ20žQìÏßù=‘uÓï3â, -Pç1¶Í"éðQ}/ð[¿§CÅu òo%ßéPñßOòεÜô]Œq†ÏÍT+A­¨~†o÷Œ>ÇÖʆASØ#<«õ:5ó×(¼ ú‡ø/ƒ|,!?؉™»€÷@¾'þN„Š»x/äèY“C¯¸Qñ÷ ˆ'nçCÅuï‡|ò·Š@@<É;ŸµÜž]ŒqÅòcK0ëªß,wvÖ·Š©—óF?#ÑÛ–‚U¸ -&n5",¿EœÆZ‹ï>ù)e¾Kn‹¸< |3ä7Çﺨ¸×ßù-‘[Møi,*ÿà³¥Ò#…ó]T\ð­ßš¼ï¢âß& žä}—ÆíÙEµ¾«õ‰»€DúD£=Xjn¨Ë,×7Õ"¥°6K¬–9n›Õ`§„ë K݉f³T|€x½}w®¦Ÿ²—Á4×ñ$]ë`ãâ‘l-ŸŒJ§-ÄC<ke-ó"‡­ åŒ4¯êÅ~ctÔ½²ÕÝÈzj=ÔE(DJŠúÞ¥!pmJoØ^˜Xmn…¼5þ^x=Úá6ÈÛ"kîã˜l7¸2lÇ,Ñ]-£O}ÌèÕ¬ª“·J”>ƒï‚2ÜãV¶S-˜,úª¥ ÅÇ%ÃÑûu6¸œ¶M;«g‘—ÉÜÖÙ¯èÍ IJù/ø–1³FøyLª©íÀ@þtE9’¿(7®³Ùë9úù€·hy,Ÿ^áÏÿùþ }#écùDøŸâÿ$C¼Ö;wÌ$ËWFÃ×£,ËeD‡>š¯Œ©GóÕªf¶£ùÒÚU?þÇóã-µÅñ|uÆ*~ÚÙ› ,ˆDþò¿$Bm€Yy¨&’«Å,ZE/¬RĘå:#¼øbbµ˜`ÌBÅi@e1Kº+lÌ2>=AÃ87ù¹6aM¸)î­²ǸÛë; ÂD9lpHqÍF"î&pÚi›b¿S仪¤B!?ÔŒ…HÛ9¦wq™° ±ÐÞ”ªRñß ¼•Ë„ D„oˆß&C®‡>œH:Ùȱc— %ueJwîÄ&ímH2réØ <ÆåŽÐY}#—ø§u;nˆß*C\I袆†ÿu4­Kª•‰WÔð ¯(TÊlS»­Í¾]5 ÄXjë`@‘ŠŸnfþ·X-•í^t¦Ãâæ¬)¿LÕ±è6ê§.Å»~4Bû~¼Ÿ¸€ŽWŸâ2aa@Çyàë¸LQ‰Ë½®œ2*؆#Óvü ð\&T¤£¥µ~{X*!5±z?ð“\&LBWïþ.FÔÕå{X,Ī£ÌÖ¤Qœf¡”LdÝñKÀßà2áEФ¾ü.— “PÓWßã2aD5Í呵„b~ø\&lÓ$Ùʦi‚Ü0Ô‹—xƒpüU2äüCŽs¹Lx)L–uΫó&9wåNqù]cU´²ådµã–cðé*½<­ê4f{¬Š9fÒ=Y|kÌp4Ü-à ¶Ü¯èk¢bêM—•ŠÎ^¡¶ÇÇ5¥í±—c×z.wEÛËæPVJz¶Z6Óën粋ªŒ2à®?*îzà.»[èÂ>¨®\v1Z[¸¬vËZŸæM™J¨aðV.w©Ëåa°Ñux—»TÞ0ÖBK·ï粋Ѵ”«]/•wªîd Ü n«r‰wøe¦¨Oœs?Vß1iÊ aºþ2—]l¿º_~™Ë.& îO¿Âe£©û´»HQ±¦´²^2ìz8aîŠ]÷ImE}Ä(ú÷,^ßQuXÿ“ÕÑKE,¨0[š¢]9Ek*ôzÑ_ç8'Ëe£½pè#×sÓ©¡š#ã8À^”Ì3F¡1í5Ó…îU¶{÷ªwÓ1MÐÕoµµ³Ì ³hLk¬³Ö‹Ù>móàÐPŸ6Ru4‰ä7à Ç!+kr]Çk‡ôB1zè@vî'©@X…\¬x­—£uuz‡ðm¹<|ÄnøÈÑrI‰ßšS4& 9@I\Þ |/ä÷Æï!©¸g€ïƒü¾È ûâu^hîTª†ÆÛ¨f›gyP]Ï—@ËÊž~?CƒækóôÞ\Bý·éŸéµ½ŽÓ®Þªéw4ô‹M="3LQkÁYôÚ¶¡äûA˜pd©UËÁæ\l–&%¸Ý < ù¨BkkRq7AV·˜ØȨ¸À[!GÏ{¿EkŠÛr¦gkJÕ¢c²€UÆ„n¾òK¤‰GÚ©“sôêÛø·\6!ò/þäŸ ûô¤wêá× Ä_/C<úº‰2A;u¸jC/”(ãå_jÀB‰Z¥ÌºS§¥Ù·«füWâ-µÅêƒ:?½²¾×ÍU3%¹!²ûä(k>sy6Ú$2þÈR{-Âw„þä_Š¬©U„°{UBOŸ~ ²\Ö×VáÒÒ—0Že£¢=A#£"£¸ßþä¿HFqßþ%ä¿Lb‚‚ ü:ð¯ ÿUd‹éÖhåI&70ñøkàßAþ;e­y‘ÍFÇyg¸çÈÁ“=2¦ñÏÓ\&LÂ4þÅvq™0¢†:B_KDåÏÎårZn Ú71˜§™›î¿EF5”°ÓÅÕ\&L@5éyÀ«¸LØÕ\ ¼†Ë„ÊÍþRšYÌr9-5^3k€\&Œ¨™9nþS å ·r9-u‰¨ÿÑO9w—ÒÍà!.§¸Ê‹ŠÛ<Ìeˆºy·)óÙšãcvoÏ÷€OT¬I³`ø­ˆðõHCÏkîô¢7¿Æƒ ¾ÅAËØ&͵ +X?Q0GGÙ· Æ„QÆp’múà¸LxÉÍ ¤ÿøS.^³é¿ˆÿ q%³jh¨ŸPÃ+쬀B¥Ä6+kÍÎ ÄXjëYE*~šá³Ì™ïo3^sÆ%Tíæ'çrZîX=}zÑÜ,E¯c_ÂeB‘N¼Y÷ˆïKÞ/•á­$ÐQCCõÍRʈ…sjÅ‹s:ìFòf)õ$LEæf©¸µyÅXjëÈKQ«?=ÙK]ƒ5âèÈá &:óYSa݃ê…OñžƒûŽ2w0wÜp&õŠL ð߀ÌeÂ$ïÿ„Ë„•|¿oPëÞk‹zɪ²ï°î~œòðYcFÙ0éZÞ«æH¡WÓèµþ”cÇ.wÈå? ½š6Èí¤†jVÓú‘áhåÝ•É~;¯ãêÚrmaf4 û!÷Gj$ Ó©ÝÀ}÷)l,+3TÜVà~Èûão£T\xòÈÖs…°2#:T UÞù~eÎTvA–Ø< …<šŒ¦ŽA‹¬©k›S^ªÑQÙ†=|5äWKslÃeæDü5À§!?­d0ó´/~£@ü2Ä£†”ÑPx™¹2N¡Bj2Û„oøËÌã®ÿG¼¥¶p¨3LñÓ¿ËÌë91 á›$&EÒ_„üEe­i>ëÿܨN¦ü*ð· ÿV2à—€ß†üí‹°ümàß@þ›öt€Kw€ÿøOÿéRéÿY þÏ2ÄÕt€Jhu€Ëu€J8…îÕ)dÖ0ÐÜÛU+Á`|¥ÎÒª1LñÓ!Ï ÌÒùeݹƤ:{ƒ@;árZîJÅC@Jgáâ6.&Ц{Û¹LQ‡_¤lÔµïMy Ú¦Ë°]w ž53jõ<ñµ¨Èö&×´S ³÷¹úk髯›»™²Å.ºñ_‡·¨ôàÿæ2áET¥ÿcG'—;ÈnDÅþ#ŠíârGôìFËkj?:Êo¯¤Ž9À•\îZºV®¤Žk€ë¹L˜€’:V7p¹CêŽé¦I:±ÝóÝe+ô}Dê:à.KÞv¬ØCwá2ašÚ <ÊeˆšÚÑä•2ŠÖX¿SÑË6óÈ%Cf¸I7Àºø2.¶aða×;‘9ð \&¼$0O ÄŸ–!®d£††â]ïÊx…Ä(TÊlƒ¹]ïq×Là@&ÆR[d¨øé­µl¸Sõ3„:yTìz}‚\oäÃÓtS²#Ö^èñB¨®ÅñaØ83!Ó‡þøc.wHm< ߇þwàO¸LQÁê+‘|Wn}0Rï@%4÷7;—r™ð’ë0;—¯å2á%Ñaº—LzÄ×ÊWÒaª¡¡¾ÃTÃ+l‡©P)±u˜±ÖL`‡c©­;LE*~º@vÛ”H'ÒݰѶMm†Yyˆ'"]^‚úM®µƒtÍÎê ´ô·€2á.È»”y…zá±ªí Ÿ:q÷¡°Q1Ú<9;h¨¸ÝÀ[!G¿ƒæ†ҼU5 tÛ×€ož©qË6´)³àŒ»÷û¹UÈ´=¢Óý‹ì«ºv€ý„Q©Xe“ÏaòŸÈÙ±lû%öu½@+»¶]§ÓÃÎVJzO_OÑ´¹ÔUÎ)Ã5À¥ŽÚ…›S â®î„¼3²òöòËã¡<š)Шfh~æ¼ä•£V±hMÑ‘7°Ê”FtwXó#滀d'òt2ó ID¸ Ù²Ò%m-¨¿í"ƒ“`Ö \ Y*löetY“o§#Ç—{ ÷(4~Ó1JÅv×CŽÞ†v Tüñ$oÁ;aµ;cµà;hSZ+^ÝÀ…*³ß¦½–¶£— z¥ Ñ,fE˜‰å’Týºð%)É£¿áŒy' ˜0 9›¼1SñâIÞ˜…%ƒyNÞÌG$¨u—@^¢Ìž¯g}* ºG¬j¹àñ©Oì7d†à½¸òîø-{¬™pd¹í—‘,›Šß+ žä-{7¬ywì–] kÙ»aÍ»ã±ìêÄD<–-Xs’–½Ö¼»½–½ÖìaÛ,{¬yO¼–=!á³÷Àš÷ÄbÙwùølÿl>ZÆ=l@{õø½ñ~æC7€=0zB²Œ>5y$ù@ÅçÄ“|Ø £ß{íÚ÷Âè÷ÆÓ|\{¢ `/Œ~o² `/Œ~o{À^½‡mkÃ0úáX@w=#¬¿nàe/“ns›xí©åú$C÷½ºfüÈS%;3J/° x'ä;¥+º¹‚ç÷ð+Cz‚ÚCÐ4(ѹø0ä‡6ÀiP*î.à#‰lÿK£] Id–!—¥Iµiï5‘·€ç!Ÿûô¤÷^á—Ä_"C<úâ¶2Š÷^+ãå_jÀÚ¶Z¥Ä³÷:îšñ_GŽ·ÔëÈê TüÔÛ{:Žé¼òkâ㨸.àk!¿6ù8ŽŠR@<ÉÇq7¢YÆÇ-“ÇK0쮄,uþ¾Ý‘½À•ÀO´?’#:÷…ühü‘w¨C–Ç©ŒäˆÌpòD["¹H7ýÇ/‡üòK!–#¯ˆ¿B†xôXN å7)c*šS«–Ù¢9Ùƒâ®ÿx.ÞR[ÄsêŒTüT:žé¼òëâ稸.àÏ@þ™äã9*þgÄ“| ZÝâ‘ô MtŽzÙݼô§|wåù.Щ¹¼^ÌW‹tó‚_¶}Dxn²‰×Z ¼òÝÊ:Šz¡pFêà#ñÉ ñÇtTÜ=@²¹t„öETþ(p ²T~òp¾ˆŠëŽC–¿•IÚQñ¦€x’÷Eû¸M»£/z@‚V·€j}Ñ!73K=K"~ˆ^e1ð.Èw)õCg¥üñ¹ø(äGã÷CTÜ  9úØò:7ovm6À÷:’ЮŠ(Ž_9i0*® ØÆi0*þIÛ6 ¶Ÿ›½‹j]UëhÁrü°nà’”ê5|ͶJ†ÆµIö«5£hÐ%FöòhHTÞrà äÁømx?ì–pòPò6LÅoOÒ4Àj=Ä‘Æ\Ö”ŽŽ†mMQþAüwš£ªîh2oMJuGÄg1p%än!¥âæWA^Y5¿Š;})”¨NµR¦ÔÍ'yj÷bšöŸhéšñx•µ{’ÐG”ûE·µ‚aç+æû}Äš4ÜÞÎ fŒ¼ÅDßê&Û.ç~¦ˆZIw*晦ÍAòw›Q­]ü6äo'ß¾n†{¨¦} ²öÕx‹ò¥êî•fTÿÚQ%½Ù!0%„<©%úïS#šÔŽO@>¡°1Ö/7[úbó*Á°K8ë”`> ¼²T~ß_Þ< ùdüŠŠž‚|*²m¨¥ rS®sÆ»²«EÇ&§£kÝѵъ^2"ßxIüï>ùåÖ¾X·³D:ë’– øðk¿–ŒÕ_1Ü@<Šõ?ü äÏ(³þw¿ùëÉXÿ³Ào@þFdë_X·þ°] ù&ðû¿¯¬ææ܎اÜmÜØS‡S*»¸Ð=-ß! ÉV¼'*[Rós%m(»k{*õ2·”/ÿþ_¾ïÔr©œ^èeÀg!‡î2è §ô!¾ox?+Ã;úJ¹2+åÐtè•reÌüK X)W«/é0¡´§nšX]Hkl—¾üWïã-µÅ꽺†#~:Ç™ŽàJÞ *ïPֆ绛ë†wm r-A“5Dç9àGÙó~ö|$þhŠ{ðc¨‘FVLO/¿wL¸„sJo¼¼\Bkþ¸~KÖÃv†{œ­ý.2ç=R7„×Ú·„ùÖ!'ý1ðOÀå•ie!×Êéò¸.¥˜¿þ-{~Èžÿ•ŒbþøSTÊ߶I1ü{pù;ÕŠ?m?&¥˜ᘦ‘®”î„WÌ? Ø.^)i¹¯†âú4©(=¸€ÓIË%&ó "¹nô¸•—QNzðjö,eÏU‰(‡Æ©.^ƒZ¹:²rÖ`Å@לþ†1¡dÿ“^Üšò É¢l•î<Ý?!9ôKïÂ[ܬdèó.i"|X ~H†¸’±Ÿþ·íå2L¯2Ã>5¤Âûjd¶ Ò- ¾]Õ8ºŠ±ÔÖ£+E¦)~º^+cƒßÈ>Ê„‚U¢%;ÚÞ%™([$:¢R;#{ÑtIÍêCM`ïðø¥âCmxE†¸ª„†ÿºl.#çA•P íAÕéc6hìíª”`ÿ_©³øO5f)~z¦!ç´c9zQÈ<·ŠÕRÙööðIì%Á¢EÞª–/)­»F’7&!óÃâ?ÃÍï6-(‡O\-¾ýñö?Šüö¡žŽÂ€=T³w¦i‡ÙMGVžÆ|<î“á»±c GxäëÚ3˜’éȈùFàäЛ ÛÑ‘áÍñÍ2Ä£wdÊh ˜^CweÊH…êÊÔjdÖÁ@°Á·«Zü;³xKmÑ™©3MñÓ½ ³÷»•D^!ŒÔd|›¥¨–M rwï|2m‰û”fë=÷ÖQY±ómTÌÍÀû ßÙDʵ-@}Å=ÌHÜ plÈX0Y¯[±5»hŽ;t¢„¶nœ0‹Æ´f8š^Ìj™ÍƒCC½4®´4»:6fØíº¥­qJ&ðè]ï~òWÛÓgŸîß,Ûgÿ&ð»¿{©ôÙ߈O†¸š>[ à ¼ð”‘ Ýg«ÓÈLà|»ª%¸ÏŽ¯ÔYúl5¦)~ú˜ß혨í°ó—>{ñ²Úqƒ¹Yƒ†N|cyõŠ:gŒ÷MïårZ>³sDg,;€Jp™ð’pÆé£ñ£2Ä•8c54‚±ÔJ ©°ÎX¡F.ÀK  b­–@gc©­±"ÓlxM‰"“ÛÀä¶K-fMß¼ËéÐ#v¹Éûâ÷ËWã&•ÐP³ª!ÚMªÓH<1k¬Õì&ã+u7©Æ4ÅO=`ÑÙ½ +ïìÑôbk&43PaÏÄDÅ:c–Üì6¿áßâÉÿâ~©@GíL¾uJŸn>üÛ§Ù–7]á :»ÂÏŸà4°Ï/RéL„šì¸†Ë„’5õ´É²«‡s”bøüÛµam_Êþìfeîş広Ž5ÀC\î8¤¤;ˆ÷ø ñ=,ð>,Ã[Io ††oopy.Ó¬z™®A ð]ƒBõÌv efiSù²»ÀfÚ.vb1–ÚºSÔ¢ÄO¿NÓØf~œVð‹m„:ª±*ëlL¾ hñ~dœOÀ°~Çw¿:Îz3£œ¥$$A=Ñhðj6~dĨ]cݘèbdÚÎÝÝ&+F'ºnö y?Ù¹„Ë„ŠÔ2ªgzÂîq_£'Èmo&Z+¸L¨ÈÌZ-·t.^ÇåNùíÞ§·h:Fëfên¼iÈpôþ EQ¶M–ÃSuõñ´(X¡á*gªÖ›^;:‹\î,¶eL:çtÿ„ôä]g x–Ë„—Ĩ´óœ@üœ q%qˆþ Ü­ÐrÓwjh… >êd¶qiK£oWÅvê1–ÚºSWdžâ§«|F¦á7ۉܞ·§#sK‡¥q+LÌC5›íþéf¤ú¤!¸—Ê¡8íås¥nKóº-q#dV;@ëÿE³lè­Z1Ý\‡l-sරï´{yôÄÂö]üª#”Ü@¢±@/á+‰fØ'l@_[תâ‘Ví_Qˆ4B¬Ý,Kf½ 5NøÏÿ9’ÿôí`FŠÕ‰ðÌÒ—¯à2¡²©E¾žÅÃÄ7+·‡øÎ.ç2¡ïºz¿|%— ㎩ØA±«¹L±nÔ2ùj¥Â"{·"µ+ÏÆ&Ó q¼ x— U…=0‰Ðá>ñ9 <ÎeÂT—Þ¼ƒËé;"«®3|_Cîžà2aÒ}Íí\©5TÓ׬`}ͽ|ãíbÉë8¸®€¼B™ÙÎuXÇa†µY"³x-äkã·Y*î2àZÈk#ëèš5Á÷º' Ü qÓâ¹6MÝMž+Ü7C¸×C»“ÿö„U.ªk3!î­¼˜ñ¯%2*«Â#«ÄCw³!/€§—düDÕÉjû‹¶úh=U‘üuÈ¿®ÎÛIg{%>ß~ò÷’±œßþ.äßl9W» .ce«B!Väfþ}àßBþÛ‹¡™ÿ#ðß ÿ[2Êú)ðß!ÿ{de-@3ÝAÿÃÑÞþGeµ@»}Š½…ë1uGJe‡º_¤â;Ä#i˜s£Ò¹“4) žˆµ²šºi«8:¦³Ö{iäǽjT´LHzwAQ„«!ËÄ~ÍøŠ©É‘}4qÊú§þ‰ŠEqÖªŒI\Üy‡2ƒž›3JºY (÷*àNÈòÙ)¼Oç¡òwwCÞ­LIkÇgÂÞ=0055• ¡¬€Y1"¹ø0䇕)«+W­©jOªv•·+?ÒŽÑx8yDÙëÏËéUgܪ8j½'Rmu¿T|‡€ÑÜïµQéœLñýâ‰<à×´#FaÌ°û´Û²Ú=Ù>m£vGñ´Ébò£Y-3´kç¶Þ¬’ë)hp#äÊšùu'içŽÍ·Ú°f>nl¾ÌE [zY/NÛ¦-A¹x仆+%TÜ&à Èчàë²ÚI½¬Ýlclürpÿnm^/%3¯ÝI«~¡}Á)¡ ÙN¾IÞ [òPg8ÍÚ€»^ܧÈj7³&pÄ3ˬIËjw²ñ£Û*n6ŒÓüOǼ•ñ¬v”Æšl\Ê÷’Ñ YÓt°`“†º!݃—$< ù´º æ%L¶ÇµÛi\ÍÓ1«ZaT%HV€OB~2þ¦CÅOA~ª 1 •ÿ:àÏ@–»rÓwŸé–­›%½ øfÈoV¨«X(ögoü–Èú˜ß§¶mÝ%Õrž¾ ò»”iEó"Í‚eRd904˜Ú²}`¤ôX–ø† 5‰åóÀ¯@þŠB•M•‘€bß üuÈrSU⧡Ý:ÿâIšÆ½\Ñ5TÓ»œd½‹0®íÓîå½Ç ë=ZåNÙ5ô´ùDý =†2Ú„ž?­¡ÛÂ}x“Oªu¡× ÎOŒÌNZ£Î”^ {#‘|xò™ø{*îpòtz*ÿ,ðäsÊtÕ±e»ŸW_ ù•ñw&TÜÀWA~Udu,ÊléíÓ†úû·î”jD¯> ùiuc¿eçö-;cáúäà–íYspKÈ^…¨> üäÏÅß«Pqo¾ù…äÝ9ÿyñ$Mã~®íªéUVÍìUhŒ’ÛàC¸ ò*i›fßô½añm_ùÔ„q¶ŸƒÅk€ÈRS ¾»åÞf¹Ì,9b7馠^ölQÖ¸ºrF9PêÀí·F¶¦]î°v¿˜lÞÌ“Ûü.ó9ÇÚ‰í@ WRæD¯:a؆^Ék'§ËtÌ´ÙÐÖ’à9 |{öü\üA7|š=eö¼>z"¥¦7ß„*xZ]2Ø‘µàó6àÛS¼#{küA÷óÀw JÞYK3ÛY²}׎þþCÛ¤tóNàGQV¦›u~qÈààæÇ*v);´m{àdD@ B4ÿ ð;ìùEöüvü1÷1àwSîM)©ßI¾ó§â¿'àwø£èíæØwŒ 0µ} ÷†z¦TF¡ë€Šï¤ÁÎJ'—â÷‡{ˆ'b­HܱþTBØ ¹3RCöÝ·;Kp[ìÜ£°Õ¶Øæ»p˜3–¸Šó!|ð*ÈWɲžñËÝÀõ×+¬€í8T\pd©óh 5¼ Gëg½,-C›}{5ãŒSÑóÎÌ}ò¡ç1ˆòuÀû!߯ܺe¶°£*ð d•Lqma'¾£À äŠ2ë~8 Yjî+¼u?< 9ú1œëÆiWÍ=2Û‰áîQöÇÆå¼>÷S Åþä?RÞæé…„Uœ– ÷"Gw‹Ý‹)µ[ìZ´†Ë‡A9‹ê–tù?þ;d© ‹¾¿ü?P1s¹L˜D£øc;Ëéè×ëS+`µ­QuÑá¥Ú¹§›ªé›Ô†è€ÕDÑrBo êó7s9­îš“ù9Û0ô¢mÄvF=œjkÄKÅw-â=p¡t7?ž…â‰X-ׯ_¯åõb¾ZÔ7gV1íÓÌc2·ËÝhã¾|[/MI˜Ô+¦Nƒ–Ðoò(”JxòÁÈor¼À:„½ýšA³]ùLÉÐíj…’œèaßv&,æùG˜P6Æú´¼9œwÿR`‚ûºE~˜ýOv$?Öú¥t¼áqÈÇã³Ú@#(ÛC5­g ™ ëa}3R„æ˜/Â5×DçȬ” €õ?™i³O›4ë: ¯Ïx”r ¯Oe{¨FŸ[IŸõ#±ú¤QÑÇš›?_»Þµí:íàÑ;†¦> º„Û o‹Lý ôu™Šá¶Þ1Ó±‡7‡Wð^YêlD£lÕ(xÐ_Áê”k‚*áä¡È´×7(—Ÿº6ÎLDQôc`G¸²Ô°?¢¢…­ }’MG`vk”®9Og~í C?Íúh~"ÏëGÙ‘¨n%VãzY0ÐoVÄÛFÛš2ãÍFŒ¼N¹Š˜ XeÊÌW?VÈÞºÜä§÷h#UG›â™Ž¼¥·ýf%¼MIé›í¥7ói’#ÓÂ8:Ä8V¡üQ ïúÊ M¸²|nïÓý*‡,ÓU–±gÖ+cö0ûÆG¯nŽÒ†-'¼òmhÃ(ÛC5møN²¯B{]«Õ«ŽE g±,kÐ⌫ʇ7£Q— £`ðìP¢É„~­Çñ*„wB¾3òk¥×j:\;¥Ës™ñ¤nbÎ)7ç&Ç})¿2/–7G§5Ó ý>¼áQÈG#¿OöBl^ÞÆm%ÌBζÁÆ”í¡¿«ÞOµÈ¾Ê¾P;¿Mw¶õÕ:7I‹1Ɔ©mDÏŸîý^U¼ á]¥‡4¼×)#3'q Úâ{­¡ÞyT˨ôñ“xBáØNÄW;F¯fÚ<…\ k—<’h "|z3š;`MÅ—áÛÂ^‚ðäcmh gP¶‡jÚÂo4Ý”ÒÏu‰n\®ØV‘&»‹¬*jÁ ºû V¹V%ô‹Lƒ<áÈ"¿H¿Ï»D¹†µ—°w`ä£ ÁÏ‚'a?äþ6Á9”í¡#8$tú¾ ˆ» ò%e{àó¼¡ßå ð'<9z*Ô Ã6½P8ã&º¯þó G¸rôuÓðê ÊöPú_˜ú‡û·ÖrÒÍ0ƒÐ/óR¼áaȇ#¿Ì- ú/Sä†ó™¡Á>m3{¶°g+{¶±gû`¯2yÞ€ÐË÷pKLäå(ÛC5&²ÏͳÖ_dñ1®ÿõ½&˜÷Æ›Pñ›pÃpè×x¨/zäço#f¹êÓ­D™¼ïB¨.ò o&¯BÙª1“›ÝÙ„‰ ¤éÚ«áÍ¥–^åaŦBâcUÛ‘´›×àŽÕȇÛ`7¯EÙª±›{d¢PÚVQ)š|g¹6M“oº]LÃ[Ò“x!Â{ ßùå¶Î™j7¸ì£¨O.áVÈÑ÷ñ‡·×¡lÕØlj P\«¢”šµ°~ih×6þùЮƒ¡_ìgð2„' Ÿˆüb´ð2®‹Ù>ØçþooûOö}øŸüöL?‹—"Îñ$nA?‡²=TcA¨± ƒZ¦bMie½D10}MâkNלtghÇÁôÌntg;ýa;þÐ`Iá_è x ÂvN“<²=Tc>·ÎÚA9S–ÐõÐþWƒ0ók9Ü5¢Q=Ï> _³oÄ[ i´#¾Ñð…ôJœrF/­|o”îéMàM8 y¸ Öñó(ÛC5Öq»»Â}F/ÑÐqæÜM nÝiS4[–wªîâ íÑ«¯‘Ø̯˜üp>ý'Õ®m„_ax3ÞƒðvÈ·G~§+\I„~å- Dx%d©|ÖUÿ ÊöPêo›½_a-iK½?ñ”ÿôŒ¤hL²^$ô+=‹× R¼«ðuõå7G½n;Z¦P-•¦{ùn»‘"{—Æå1J¬Ëº›´òOk&¡ßè­x Bu¾îhÀœ Ýèÿ{E×Öó ßE6*-Ób½æº?¹Õ·áÕ­þµzŸ¡€÷Á¾sú¿ïóv¼ÃÛ{z%¿÷±§mÇp—¥£¼Ï;ðïPú>áÓ;Q¶‡jœÓ©†Y;÷ž-7r-h“ïœÜ¡5‹Y ¯LkV¥@ׯ—é’Ê‘Š1iê|7oï<è ýjïÂëª[̘ 3‹af2ÌÚ íá-,´ MúÝ J¨nüHE ý}Ob¤‡¢×ô{Aô½QIû» GaÙDÑ÷<«7îzŸÒFzw?ß!  ¾ç5y®…œÞŸâg —B^ªL+ós§é)æmJN—A^–¼R¨øåâ‘«€ßê8á÷êÞÿ=‡×NÉØ#}c }c1~eÿÛ2ú[ÿÑ/‚Ìš:פ⵸ùmnpJ'Øÿ”vؼ%?pb¤j ›Gv†Œ­;wl@³’^{e½z}’~u ýêM?­Õ++±“Þøª€¦²ÔÝî“ÕËÖ¤ÞêèX@fªìyÀ•WÖÕçU~êïùßæÌp‘wŸ:Ü$Ús_lâ&~8oF{:Tf#K³•Œ‚nÞ ùîÈ ŸÓŽž{€÷B¾7*ŽÑœ9êÝI~Ò83Qy°bØÕ¢cW }¶£Ã£\0*»}ÿ©#Çößwâ‘»O:xóqZÌ;9mgÇ Ç(Ofzš>îéÝ£ÕþÔêëø®9ªeÖ•ÏæÇõJFü¬·wÆÏôx9Þò…rö1»`ÍÉJ¶l8å‰8ãégömpŒ3ý¥R±?OïǾسG»“ýýŸÍÍRÈžé)Xyï_¹ÿ¦öý>/cõp>¯xTË.Qú¹^mãFms^ Œü¦\νå}¯¯˜η³:¦ŸÑ†µsü–¾ÝÚ¹Q«ÌÀ+£¿lLåK¬púóìoì£lv€ý¿Gb@dLßêé;~ÏÞ¢´%WÓ˜ú‡[ýû†7¾±ö#ç7itû4«VSƒ™¦×~;׳©¯AE}ì~¨÷üù[oy‰==÷óóa ž¾1ãûE¹¢¥P‚Ë¢ÀYÕMöôöö¢3íôcöÉKͬB”Õ¢©7Þ+)Õw²iÑÞ¼U.ó­©7üŠ;Y4µø.Ì‘Çù*~D¢Å­"µBýQ¤ÛE¹‚ÁmŽUu@Ô,Π5MÆ·³bˆR‡€xâ_^óýI>ANvŽ;ÀYU „gqÃSó¥´`ÖyŽ´–¯„,5ã[꼿4, à4p5äÕ‘ƒÕ•™3µÓ½g6p!0¡b чW³³Òf” Œã –7¡1£øàÈ["WMGøHúp+pämGsê­îXšÓ’ ›;lÁmp d©É³°mªíˆðZÈ×F6œ«Ä6õàƒC=$Ý°ˆØZàNÈR3r ‹ŠÝ†<ÜŽ†EnÞù&e27WµÙP0 $£X˜ŠJD¨ø£… ÝQé,ò"ÖŠDžj/6#ôÉS­ÈߦÏHÐê°)wH_;¯‰ÎezsµÒSµ‹…gmMF™ª%Ü„<¨¬¡ÎjÀ!ÈC‘-ºK³*2ªÙ ÜY>„P>SK¸x+ä[“ÑÏvàmo‹¬Ÿ¥õüaîöE UÝ|òƒ‘Tåí¹Ê’ æÏ@>£PM-R'wˆ„ãÀÇ!?.KzÆ/§!O'cµ9àYÈg#[m:+Q¯çÄ£ìíMÇ(Û|òÉÇN„çÄ“|°²$ÅÂø‚•¹|¨!Á­¸45c“fÄÑá›ÜŒPFEÌFçAÊÕÒû+‹b ì%½¨Mõ<ÏóÍO»ñ¤ZR´D­, Ñ$-ïÈs_Î¥½ôÞ9 £41~î¼»>—Y?”ë=O|¼|nýÐùóÞ/æÜËNø·Ü7Oä¯f g¾}cƾùy¹Òc6#*hžlGÕ–y"Ü+ï•!^›)í˜Õ6IqÒð]©íÎe¸js½AÕ°^/ÿRö«UŠ°~í¿0ÕÒìÛU3®É'\ê<8X TüôÖúúW‹O;Y˜`¦¼‚Æã¬ãlÌOi‡îŲ!Ûíè×Â4 ÛÐ+R±]@u½bAÓKVµìh³¬MPòü²ÓKcc´ƒùuó«Æ)›h>O?¥‹S ü{‰Š^,B.*ó±Ç÷U}Ж¥µ0=B²£¬1nþ âJÀ*äjdÏqµ$¡’IàYÈrûPüT2¿‡R±”&{dórà“ŸLF1ç€OA~*²bú¼©îÞ¬vjœµ+J–7âÞî¥Wh“‚{ÕÑ„mT –Œþ^üeȿܖصó„\àJÌ? ü5È¿v)®DøËñ/˸*£áÛ‚çå2'$¢Ve¤BE­j52[ÔÚÂàÛU-þ!k¼¥¶YÕ™¦øéIqö„^-呪=N÷¤ îb.ö¸åÞ}«;ÂŒkIŸv¯Zd^wÒ¨LSdS­ÐlAµ\4Âo’^,…[Â6xÝôiIŸ›^ ¼–Ë„—„ÏM¯ˆ¯•!®Ä窡῭;—9-ãqÕP ëqêc6hìíª”@c©­ý­"³?]HCÁ¢^3d|5B½ Ô+ÝN:f˜EêeôíÅ·}åSÆÙ~€{¸œÞÉ‚êî6ËefÉ»x„={ÙsX¥í–ó¥^<Êåô-‘Mh™f8š^ÌR=´µ7ôT±9¼õ9 ’ÌT‘Æuìb¤©"ßRç»SDæY¿¶M;gºPrWý‰X¡7òPñsÄ“4u¨{Õì³ÚÎ â-ÌÓE´QÔÁÆæ÷t[“&ק·´…äÞ¾„Û!oWÎ@Q„«!¯VÖ\159²™ÌûYçåÚ³U“ ¹¸ò…m”˜G (»Ü'W¥dœˆŸvfZiõþ»€»!Ëm-÷SÒZ/­åÔÔT6„²F¼DrðaÈ+5T+AªÚ|ò#Ñãóð"ð(pòˆ²×Ÿ—Ó«Î8] àëh¨õö¦Úê~©ø£¹ß«¢Ò¡‘äbÛ¶í_è‰c9`­`"‚¨-®„|™ EÕDèJ …Å«R*‹MDPi]Àõ£Ÿ]ЧËjû³¡;¢±؇Š¸^¹-»]¯|åå~C)UmîOñ49ÃÊlhÉí4ÞuÉ™rÜnÞ•â=Ó퉘Q?ðPj<׸a­O;,gC'”ÖøŽ”d*óÖNèäWÞWγÆ~»‘×%(> |,ůè6”Т“z$f% ¥­¡ 0R»ÅB›ÏýÀéO/µA¨¡ÞE^¨O»‡2 FY;nYgLwŒ>í^öçâ‚þ¤eø¬©vˆïq¦+¶³ãV*s’‰Ö?ýEçû³ÌróMÒ,¾ì¯Ð±¶Í~e·¶_³ÍRµÈ“n ž¡žªæ,Ç4u U†Ë•…Ç»TLǴǵc—ëEzAÊzÍ/åÔù†Å“Þz0ûï;íéü¸U´Æ¦Ã¿Gz ðö°./}—2 \J¤â®ÞËžì9цQ•Y|š9ª´¼sš±7oû >™¯H?ÈžœBuŒXÅB@±ÙÀ!Í|ú¡ÈêXœ¡Ûe· ö÷oÝ)ÓÀÒy ÅæŸÓ)ÓLíZ…‚eÒxs`h0;Äþo`¤dOd‡6n9%ž“ÀgÙó8{Þ¤Ps“Fe$ Ø à[SîZqúç“Qño«cúÍüIšFWu ÕŒG_ÁF^⎛“YtOîÆ›ýÌ?OŸ¥Þß°¾å¬aïfÿ½ºi»¸v´¬Éj-6$aÝÜmY힬vÄ(ŒÑ°)L?Èþ¤2E›ZæPÁÎö†vkýxwÂW@~…²Æ³•&‘ÇÙëXÖiêšXÇjè•ü¸fO—Y'eÓ&jÖA¹ý®NÕÃþ"ñO_€üBüý÷Jàç!>² 3caõaXœ31‘Õ6ïÚÖß¿ehmÛ2¦´û­Êif/UÛ6ŠEí$Ýq˜y¹ñIèÉ ¢þà¿Bþ×ä›bfç¡š¦x’5E¿8q°—ÚT¹PÍ»ùSË3Ül'x>K7Hä³Þu7¡;¦¼ áIÈrÆ}'F…ˆO ðNZ£Î”^1$È><YeÚË€fDÅNCžnCxG埞ƒ,•èÑ?¼Û²]‚Ï+€¯„üÊøÃ;*î à« ¿*²:e¶°žiH*º#&¯> ùieŠ¹Î/ºÛ¹}ËŽÇl;;9¸e{ÖÜ2À#ªÏ?ùsñxTÜ/@–꣹s*þóâQôö sºhÉ(ç}/“¿žëØØkã2ß! I£¼Ê;”â)ãNb™a3TB}™!Ш¥Ò>¥k€dMa£%íóf|p5äÕ²¤gür7pd©å…€êØíDÅu{ ÷D¶Ôk„¤ØÐâXûtÂA¢Ê×o„|£²þhÖ»•·§ŸCÀÛ!«[>h©°›€Ç!G_?èöN†Ó;€ÞÂ}ʪa~Î6 ½h[N–üÙ–T[»*¾CÀh]Ï ×*sÒÖ÷„KRrýèä´1=eUüÂÙ­ÐáRÈK“×ÉV|ÏC´¬—üúP¡·Ó{ªþ~B^ŠŠ½\@<4T·êÃæ§êKúóe+È·Ô¹9½hê~£ÉÔFGcÍ$­*~¥€x)f‰]-•ôÊ´œj:¡ŽNðš/Ë-¤j„Ñ£˜Û8iÕPñWˆG‘j²wR›áKø\IÚíî}Œ¶; ÙÄ5¶I»ƒË!¹#Ž‹Û oS¨:ÇtŠ~î® ê"Üy{òª£âwˆGRuÍ7Í…¦CÅ–ˆ'b­l¤ÿ˜×uÂÞàJú<¯· Üy£2«ŸßÃíº'ìØ[ÓòBî~ŽŠ :pLÏ&à6ÈRí¨¡îÐ2n®1 ­ifÙ›÷¬Íf˜å‚9é&ét÷&™†=P±¦Üe,»š¯ŸÒé =í>“ðU_õ¥:Fs樗½á¤qf¢ò n&®úlG3†Ù+ŒÊCçnßêȱý÷xäÞ|\ÛÛ¯œ¶³c†c”'3=M÷ôîÑjjõu|×Õ2ëÊgóãz%#~ÖÛ;ãgj@ò…rö1»`ÍÉJ¶l8å‰ IñÇô3û¶8Æ™þR©ØŸ§÷c_ìÙ£ÝÉ~Š~ž¶£”¥(2ÓS°òÞ¿rÿMíû}ÞBãp>¯xTË.Qú¹^mãFms^ Œü¦\Î͇±—_ò~#m;¦ŸÑ†µsüÝÚ¹Q«ÌÀ+£¿lLåK¬púóìoì£lv€ý¿Gb@dLßêé;~ÏÞ¢è)£¢1õ·ú÷ o|cíGÎoÒèÌ>«VSƒ™¦×~;׳©¯AE}ì~¨÷üù[o™òƒžWŸNÍXgº0ƒ§oÌHù±(W´ô*@ð{^4Ûìÿdò~ÐóFýeØ‹¹ÓÙ'/5³ Ì*«EÿRr„()ÕwöcÑÞ¼U.nïc«Ù£ ¹žÀwédŽ<ÎWñ#-¾©½±þ(Òí¢\Áà6Ǫ: ºgtš&‡ÛY1D©C@<’®cá…Ò Œâæû?’|‚œ¬ÔDöáY\ÇðÔü³ü¶€·à´ ¸²ºø¼\Épœª¯ÉœéÓø=œÃºãTØöðÿì ÞÜhKôáÀ-·HÛR*pdpÉ!}¸¸òÎÈUÔѺMч»€>GtU¹ytÃN<”rƒ³¶íy˜Ñ Ù’¢‚—B^ÚæÖM\V¯€,5¿¶u/„v…»²"ZÌÍ>í£û̲4nç3=¶aöôõœ¥ÿ™˜Ô‹ òf¶8±:B-R¯ðï÷…6:z…ÕÀä\äW9ªáÿŽ öiúĸŸ:q÷¡>­b¸—ñ⿊ƤQÞµ½tÑ,yÞ­Os*zÙ ïÔ¼+2 B>šœS£bC>Þ§FîÞ ùNemcn®j³±x@€BuîEaòNLüTêrî£Åm×E¥³šðOÄZQѱ¢>&}F‚V·€M{ðBö.sšè\V›ê“žÔ] ["\ ym”)5“ºDg#°r¿²V8©KÅiÀ,älds^ŠÉ\Ê‘F§ $T4†<IEê"ât xä;ꩾrF±7ï„|g2æq#ð.ÈwE6tV¢ÒOˆGÙÛ_À=å'!ŸŒþö2÷”ŸOò]ÿÇøºœ¹ÜÁKpë }ÐÅÓïÐwV7@ÞÐþ~‡¾tpsª–:$nÇB_º¸²ÜŒ…øiÄ~‡¾ãí]<ùÀEÒïÐwîžJÍHW¿C_: ¼òÝɘÇAà=ïI¾ß¡ïÜ+ ž¸ûúRð>È÷Eû°ý}ç~ñ$ßï,Oñ¾†0Æ~‡OXHpëFïwš9½É,;ƘQ¡ýö„‘7G§›îø.°?–ô¢æÎÄØô½©q3?Ž¬0¦{k6hö¸U-Ü+‡è45û$C_+£:ûœÒ»³îè§ áƌڵpÞ ‰úY|òsñ7¡åh6„ÏC~>ù&DÅ@@<É7¡h6+bmB jÓôº‚¬¨=K»Hô¼C 쎛ªÛF­jE3ŠFÉ(;vs ›Ô+¦>RdM^§¶ÉvôrA¯4£R±*4»Ùp½°íÝÑ>eTª¬Ä¼U5 ´¡I£ÖXaÍJ¡æg‡mJT1+ƒü±ø›Ò 4ÂCþxòM‰Šÿ„€x’oJÂÖõ8›Rm%@‚^7P}Sú ÿ¦DIòC¶$kÄfõAb’}È|HÞ¢ozwÚzi¢HE¹¿äî ÝoÑö² ˶MF$tvá@þƒøÞehl„ù“oxTüOò O<´_Ãë82(Á«¸òBe-®Ìb=£bæa×3ýÙþ„–$4$B½ ÂÆbQŸž°“¨¹ †nôÎK€ç Ÿ‹¿i\Žæ@øä'’oTüyñ$ß4V¢9¬ŒµiÌå«¿ܺÑGHÍö­17Ð0¦Æ fØÜä º£³Î€u=øØd]Τ©»J¼‰„ÝùvéZ7ï8GdNï‡,5J7CCÅ>ùȦÿˆ¦WƪFˆƒU÷.ƒ ŒqÅÖRWé…‚I[™þ½0Ãæw>Òe=4ÍFIMÙ?™–UøƒÀÏ@þŒ2…ϲ§¥Æ¿ü*ä¯&£ñÏòoFÖøUõ\ͽ‘„²¾üä(SVmr‘ÑÔ_ù'ÉhêÏùo"kª#tp@åÿOàÿ‚ü¿â¨¸.àßBþÛäƒ*þ§âI>8XÅÍÙÅø‚ƒyØ &A®¸,U[ÓŒ–6‘hghÊÆV²šL%È_Üy¿2—ÓifXCLŽA>¿Ç¡âo…|kt:½!•ðvÈê"´Ž³Rú8¼rëgTÜqà=£¯ŸÉéã^à}åV²|7¸ÛgeTò09ŸŒJî "«d.Ÿp–P‹| òcJÕR•RËãÀ*äj2j9 œ„<Y-tŒyÆðSи=e!«ÝQ.N³ÿ,“:ò¸÷‰6ý+½X1ôÂ4-#ÐÎÝv}R•ògʨ øCÈ?T¦þEâ¶p+ø ð!ÿc2VðÀ‚üO‘­à`æ—5Õb±6W×}L™ì3fÖ¤Q™ª˜Žc”eUûÏÓ»¹œ–;ã§ÚÅžjï¿í¤ŒnÓû·s9-Õ9‡Ö-Ýèíâq.FÔí¼>Í¢Æ^?é;€ws9-ø(Ç÷Ë(%|ˆËâEq*åàÃ\&Œ¨”ÕÍ­©æi%Ô„!=Åe¸G®Ôz»Pì.{ð“¹RñÓuôžäG®Wp¯¥Šgä:Ç=¹$A­¸$5#ÙcÈqkg%½qÑgÄp¦  ºÁÞÐà`ó2ß&÷­fLªíÚ¶G³Ð3¡ôšËC~\™ßêbãñ°ÄäµÀ×A~Â&Ú"‘ñâá’içû-÷|Øõyâ{ø*ÈRg|¹üÈ?¹Ù.q'Fp_yè)@âò³À·A~[üŽ”Šë¾òÛ“w¤Tü;Ä“¼#Ž¶ÆèH»è৳nàbÈ‹¥ýh3£“µå$Áaò'î]2Þ9#n:|0U-× û´²…Ü¥ª>”¸ß#< ¸VO˜‡,5Ë­Pññ$ßVÃêWÇÚæòÃÎܺKSªWÈK~m@oHÏY[•RˆYM›µŒ‘ *½ò àK ¿DY\ÑÍ_lØ83v\D„^ |=ä×Ç?.¢â^ |ä7Dn/ yÌGÝeô4ðíåzRµíå}ÀBþ`,¡ßŒbßüäEÖÍËz}{Z“äw²²ÈÝí|´ýåiq׃׶m­l´£Æ õ]/dky½Lã ݶ±F¢ò?Ì1½‰Ë„ B*=Ÿnæ2aí3nár:ú¹µÐ“¨ø­uôž¸ƒ Ò}ŠÝÆåtô ¡ƒ *~{½'ù â*nÁ.ª *¤ÚÑèFŸ“höÕË,wÙ¼æqÂÚ,±ZÔ kñÛìU°YÂu×%o³T|€x½}w®¦Ÿ²—À4¯¶)“ËÕ°qñH¶–á¨tèæ«ùÊ'à?Ǽȩð; ×@-„^òÄyʬ ¹” 0^ "\ yuü=í¨d Í|ŽÕó\=0âÁ̸õc7­½öi,\v7“^ø¨Èç¬ MÔÏ[ZÍç7ÝC§õ(­7ôUPkФ?ùóÉ·îkaµªq2’Íi-¬¥9]ØU j-ÑZ(k ǸÔZ4"BÁ÷ETЉzƒÊ»ÍÙõtì¼ñÐÝ×âŽìd Fⶫ k4”q¿’1C/y¯…í–!—•éz¡ñNFÑUàK!¿4E[À—A~YdEk½µy£V±hM‘™ã›°Êvìë/ˆÝËï…üÞvñ׺‹1+›6%xu£+k^aÜ<{–©ÍA°o…o—Ä{ ð&È7)k—­gŽ›$‘9 ¼²ÔFÕpM’ŠÛ¼ òm‘})ùV!rPÐíÀ!?ÿ€ŒŠëæ GÏS:^¡âOòþg·ncô?“aýñÁu¸1k]—·*Ãf½]Áç7‡µf¢¹˜…œßš…)7OaǤ­™ŠOòÖÜ î‰Õš[hE¬¸²TâV_B×6™scš°¶L—û ÷ÅoË=°_Â~ÈýÉÛ2ŸOò¶¼ö»>V[>UÒŠW70ºgžÛÄ皦”6|IÉ໕%˜.öBî•Ve'>Ì™£t’wÅ–Qš?wÞ½I)—Y?”ë=O|¼|nýÐùsë7Ÿ?·!çgœsGÎ?2xn÷ùÜ-ÇF3Žþˆ© køhÐûîŠ# ¢åuKôâ×MÈfØ  o̸nin®ô{GÁÀ: Læ¢%âû˜Àû1Þ5ë˜uEƒT' ß1D&—¹‹ÈõU^ÀýJÊXû—p¿’Z•¥gñZÖ–ÚTo¾Œ/¼E·K¯nsN¸Ôyð¥±6>ñÓùZÆÌáw ‰l‡¬nòÂÌ´Ùd°w@âÌ-1:|äW(ŒÖ樸 ð•_Y=áOùSù¯¾ò«ãV©¸.àk ¿&ù`•Š­€x’V7p«v1Æ-¾tq³n ú-¾W4Ž¼&úù °V¼ß#ÜycüV¼–K¸ ²ÜnªHVLÅgÄ“¼_˽.V+nyp¼µnà’”ê?CnÎÐÙB£NÇíåÀýÕ媜Ž'2G€·C¾=þ®“Š;<ùxds8Odî>YjB:œ¢âº€C~8yDÅ?" žä=ÐFnÝ.Æës$´¢Ö ŒÁÍ–¯8ª"ÚË"2G€ z *îð¢ñ@Dæ`‚ˆŠë¶ÑQñ¨Æ…¦±‰Ûv Õì£ZÄá½^z‘Œ2`A(\ÊØÞvKd.^ YêâÎpí–Š[ \ yudí¬«§½p_=§¶„Ê®. HðZrKuí€| uí„|0²ºÂçÁ¢òo‚|H™>dÅ“Û€Ç!Ku@árxä;Ú¤;wA¾K] Ÿ(ŽˆÜ¼òýÉèãðÈÑÓøÊe%#…ü¨2´š¹j©•1àc¥¥…׊< ùtd­<ànE/[¬“)ç‹Uw?ºmR ÏsŠ¹ùŒô‰ ö¿Ø¦^-‹ÐFÁð[Ö齊À߀üɇZ½ÜLj¨&ÔÚÃB­ã–cÔèy§*d¨ÆEúˆ5I©Yh{±fIEf׃4áÈ{”µ˜Yoó l6Äçðä²Rq{·BŽž…t®–‘pfÄá6à]Õu0³ÞÓR5÷…üh2ª9Ô!ë‘Us¯p‘NQÏ–<±ž$ÞM!†(„Ü’‰âéµF€Ÿ…üÙ‹¤!þðë¿žŒ¶?üäoDÖöÁš²ûêwŸÔ.“búeSäÙ5%ôúMŽéÅ\NK-]©Ï”I”.®å2aªM/j\Nk‘U»AËðk MÂCÊ̬v`Z³ Gfï1\¼™Ë„Št-&qºx/—Ó*/m¡¼CÀû¸œŽ~±èH…‰öX»~CB_÷-.ª’…OID&S\Vš²…’&€g¸¬ äe3sb† —‰Ð4ðg¸œŽž_.tÔ~×n Ûzд/²sÛDi pu*±sÛTÜ| ºsÛvý˜©>ÆB¹ 9½íºöŽ™êï —Ív;tó ¾øsNY}Ï͹îÕ§Ük`výJÛCèfIÅwˆG²%\•N ÒÃyÒ SüôFæ%Ø0æ”Mšjö9ÎÆ#”­µ>¨ð’2…|‡h“ðFÈ7*s.’ /DæðäÆöTÜMÀ[!GÛ/kR„›Û€B–:B鳞n©`r>íä€ÈÑÓ<†ŸÖ§ò à(äQeú»o„¸”€C–Ú¸^%cÀ äJd•ÈÍìx²\Hz/MKµ¼øJÈRۧëeø*ȯŠ¬–jѽ8a¯çóV…" âtV;bM“FEªI½ø‹Q‹ ¿”LD> üÈ¿’Œâ> üUÈ¿Yqsd›Óg€Ÿ‡üye*‘YM&&¿ü*ä¯&£“/rô+)s<°jRìkEžÊÆ÷"r7çSãa_ÆÅ3ìJÆÒ›}cz=— “î¹Ô°­cî! ¼è’;©%À“;Qqóê’;]&$w²JUÊî$¡¬5ÀÈêºþVWw´ÔÑvànÈR»£Âëh¸²Üj­øé®ÓîÕ‹…~gzÂ÷»OãSë%}šVí hÀˆ»ì¯•,Û¡@¡ZÑö_†3nññ*W8Oò4óGkCÚü¸e3gpõ|ÉÐíjÅíö¨ŠöùÉ»½ÍÜäj¨Æí=Ë'Üägõäæx¦5/_ Oªîq*ºó <Ÿ ÷¹w1LÿÛÝ0Ô§MT¬ «üUÜ!ÓK“ö<4+Tfvb *„ðYÈÏ*kÙ­î’lØDåÝÀ÷A~_ü ›Š{+ðýßÙLžÔÄÄýF™µ8w«Že-®°àþÔ’{5$§ômÈÌÈgò]±îþ<öûS~sÕÂsÓ×s™P™[?%da‚[•¶ÕÐ.ƒŠïd«˜•eé^ žˆµ²šv“[ÅÑ1u÷˜F~ÜÑ«FEË„¤·Š"\ YjÂׇ\159²ui:k:ýÌ/RNʬU“ ¹¸òe=7g”t³PîUÀwFÖ]øI5*Wª&¹²ºÍäkÇgÂÞ=0055• ¡¬€ DrðaÈ+SVW®Z RÕà#‰¬ªÎðΗ< <¢ìõçåô*ë!*Ž&ÒF÷KÅwÍýÎJ‡šíbñD¬•“Ìý ^·O»7«e6 öfµƒV¹PÍ»q;5¦~½¬§m˜eíßõæ†ý¼¡izþ´>fdµ/¶ *&< ù¤:Ÿp̪V('°5ªôQ±ÿ³úr³»Smía©øÛ<À¡H«[@­UhRÕ›.m¡<ô›Ü¥„ý4úñ‚îh{û5Þê3XJî9q¢§OÓÍag²û´&”±>-oçÝ¿˜àþ…ö̳ÿÉŽäÇzC¿Ô>¼áqÈÇ#¿TãšÊ~Oع+¾ÈãÊöPMC¾š,–ÏÅu­' ÍP°¾Ú­pR«ÔgbÀ+ÔÞnÂţϕ¬8õiõû€Ãó;N„«!¯VÖ1,ÈgÈÃø†þ7¢¸ÃJ *tÏ@Åw­g˜±–ïnãIé–+ —¤"¤Ä è­OÓSVÅo:áèp)ä¥Éëä|ÏCfŒ¢9YÉ– g ÊfØÿ{$DÆô­ž¾óç÷ì@(ŠR…©¸Õ¿oxãk?r~“F—Ÿ°`55˜iz á·s=›úTÔÇÞ¹á‡zÏŸÚ·º Š }/ðÈ·„5xúÆŒ ¢劖^@îŠzxß·×Dë#û#2ìEGÚéÇì“—šY… =•Õ¢©÷E))Õwd¼hoÞ*— ·Ó¾±ÕÌBÐ<@à»t2Gç«ø‰‰ÔŽÔEº]”+ÜæXUeéÔŒQàÅP1Þ ÃC<’®cNäI{š™/ I>ANVj’“¨,.†¼X†š/¥îÙ‡Ì-x-®†,5fô-u^ŽŸF (8ªå–q嫤t%~º2s¦i`†ÏlàBàf»@;"NW HÛQ*0/XŽßt;Ü ykô@>ür ØÜy»ÂÑyÕf!k@;N£‘H»¼èîÍ­5£¹·î¨th]D¸õØ{"ÖŠÄ6©…P ¡Ï6)EnÖK˜ŠV·€MÛÈBºØæÞè2½Œ9 é) "¶¸òÚ‹cÊ‚(mAŠÊ‚ŠÓ€›!oŽlÒK™¢(W¬Qà›å%Ô´¸òþHjòÝs=v ñy˜ƒœS¨£úÀ¥/6‘]8,`ÛãÀû ß'ËzÆ/>ù¡dlöðaÈGõúˆ€x”½}ÀE?T\ðQÈ&ß5Sñº€x’ï …Ëtbì çòHV‚›,,…¼TÙ˜ãMtþx̨Д>O“7ÝœŽ‘ý±¤57W©›®‘g1 o¹c(æ 1‰«ÙãVµXps›zçæ…$ÂnNaKsôÓF=m´6Z±Jü¾Û/‡¾+‹êeð9ÈÏÅß„¡Ù>ùùä›ÿñ$ß„„bŠ›Ôèkqªv½­ßv¤ˆ­f™Å ¶"¤¼—¨¬å@ ²¿Í.†®ƒ¼.y›%좷ïÎÕÔ0üJÃ&Ú8(]÷°ÍƒR¡_‰6èj ±Y¥ø y]¼‚²X_1eó‹FÍŠíh™¢>bÐÙØ–AŸ„û ïS62ëd‘sØ}ÉÛxòÑøƒ[úÒ~ ÏÉ IuÞßÛ´™›½ÎD§œ9¸?§jÓE;†í˜ÈÊ˧¹šm#Ï~"’žo>YªÇ9¤k©æ?ùcɨùyàÇ!<²š_FÍHS52­1Ê%Ó=­qКÐíÚ1øSÁàÂ+ž#|Ô*­©ÚQJ¾;¬ë¢ï|‚cú.&íЗsKª¡š~E"[ £Ça×D­¢±X@<É× šºwárÄzI… ½èuçC–[Ô?]#6B7e%¨âN7ôYH¢¶xäë¤)z{…ûræ(íìðvýPŠ†sçÝ͹Ìú¡\ïyúããåsë‡ÎŸ¯­)8zõáÍü[îâ ò[!‡^u¡oÌØÅ1/WzÌfD+èL©ÛÀA¿³M ¾M†xmÀÒ1«¤ÊPF÷oíÎe¸js½AÕ°3C/ÿRvf¨UŠ0‰ì??ÔÒìÛU3®É'\ê<8X Tüt–Ñ‹SútèÕ ‘Î0äau±èÍ·…EégnJ͸à8®X”Š»xòáÈj™ãîP—PÉ-À[!ߪN%á‡ô3'€'!ŸLF%·OA>Y%ÁZéãnà=ïiGx9W§‹m©Ø. ºp“z1_AÓKVµì®nŽQ±ÆŒ²a:Óa•F$ ´Ci+¡¨•íQÚJ(j¥R¥mhVÚ¤QÑÇèΈj-qX­„–û K‰ª±UÐÒªöhl´´J©ÆÖóÛ‰(®ru”Dxd¹™ ß~*ü5‹Dd3p ä-ñ÷S«`°„[!GèæJ]3K¶wCÞ­L'’}™ýÀÃ¥b«ðzÙ¼²Ü‘ñÓÕõdÚµûÙhæ"tXA´Ž…üh;üp·þNH¬¥Ðß ºþ®hMÑ2g¹ U'&ŒŠ_Þr¤(«=b»¸²Ô麨ÚÏAGÒžo©ó]­™gýÚ× (ëJ žˆUz†–ŠŸ# eP0Ý,ú­Å.Eu¯¶i-–ŠïdûíˆJG¸ª5âññÓÍX‹­¥Ì«NµRn¾«•5ëIÓ6GŠÓ¡Óµ Ù‹Äë:ÙQð­«Þ±ïöÕ6YÑ5°£YÑܨtÖ¤¸OõOäÎ[Ñu×BQצ|S8EŒ³]7@äÖ}®ˆlÑA× \ «&ô¹n@vâ&tºj*Ð纈JR|Ý‘Ü|òÃÊ”tÝ•¶øHjÆu²aLøëˆÀ£À‘ÔŒë"ÏÇ^7°†«Ö= ÑF÷KÅwÍýF¾n€5µÚæ>uËÞÁuë b“¥æ²“¸n€H>ô¹n òÀ9` •Š;œN͸n 1ÿMåŸú\7u‚)ôuÄãÀW¦f\7Y× PqO_•šqÝ€¤:¢\7@L^ |:5㺨)žâ¸n€¨> ô¹n ²î® âÞô¹n ©Þ…Šÿ¼€x½ý,× h\Çî6é6ö°T|‡€mà¬Oñmʪٲ,1´*!Œ>ý§î !ñY¼òµ [l< 7à{„WA–J(àûËÝÀµ×*¬€Yt*® ¨AÖ"Û©Ê;ˆÙ:à^È{•õF³'µ\÷ B·A¾- o‡|{dÉ߃@<Žï…|¯²jhuÂz®Ow7h{*¾CÀh=O³J%‚Ù˜â„pI*Âñ²g»Þ=.…¼4ylÄ÷<Ä#W3¾Õ:Ûõ&¼vJÆé—t¶ku¹”[f¼¾* ¹,â?WÒŠvŽŽªÛË ³òŠº½ê¿Ô³]Kæ#çUú0Óµ°çÙSõ$䦼í~â‘ ¡º-P'æe¹ö…HUo©–åZ¨™¤Ců"Å,Á]#rªéLÕÓY{ûþ¤¸…T0z7Ñ%­*þ ñ(RÍå¼ÍDR¶¸¸èex»:uA)„Þró5É+ˆŠ_# E Êò ñ´éç$n7âÙâmž.žkL6Uü¨‹ÐKJ·M¡ê‚RÅ‹‰Æ·CÞž¼ê¨øâ‘TÝ‚¨tèY" žˆµ²IHo«ËïEŽ„Þ`“2³Ÿßà »'(Òi•®4 ÜYEÎRPqàvÈÑ zŽÛî%³¸òeŠYÖÓØWH)èð.Èw%£ ½ÀODVPøDþTþIà)ȧ¢òøÏDþÿ™ÈÿbMäO†~7ðQȆ5xúF[ùk]`¯Ë°éÿ“‰ü•Õ¢©ÇÅ•”ê;é—x"e¯¢>_½HMOÍÈQ·³%ò÷f•¼ÌçMk"í¬o:ÉC<’®cù…Ò ¼¤3æ7ídÉ'ÈÉJ­ßtƒ–—"pAªaÞ…SóOäÐzV£§eÀ•ÕM;µHâïåÄ#T7ï´«žÄ¿O³Í±²9šeaÅf¡ÜnóÊôØãÖTVü°§·/´ï+€w@¾#2ÿÍý?+c,œ©†¿‘@L¹Þ¹GºA¤G$91©ØõÀMåÐâ§7 °ro|“1<Ä´¿Ò¾|V5ã×î@pKîBï‚TÃBo[\á ०†Ãº(¯Ÿ$ô¹›SÒb–gøœTÝO…µ ÂÕÀ^Èr–,Õ¢ ¯f!gÛÑ¢ €ƒÛТ—À6<Œ§EK…BŽ!ä¸À¯Ü–×@–ZQÛ®—BG„×B¾ö =ˆ÷Zà½ïÌ?†Ðc*—° ¡}i=°­¡})Œzø|ÒÔùòTTÇ$~*•¦´CÀhCÄË¢Ò¡øAÌßßt’d­¨Ïª¨ß}ýH·€M›ÜCöÍ7K+¸ ‰~v1pmjÆeHíZ“£Ûì‡Ü¯¬•·Ì¸¦³£‡c]š\¼àfÈ›•é%ò’ýè.àÈG’ÑÏàQÈG#ëg®–‘ÌRx xä;”i¨e„ÚR-÷€ü@2j¹ø äY •ä€A~Háë_@jè‡!?œ|h@Å?" žäûbq¿f|}ñ\ÞóIpë.M͸Œ)d‡Ãí„Dlpä íï‰Î ÀÍ¥ú£pž…Š»¸ò–69|â°¸ ò.eš™e’±¥böC>œŒbvo|KdÅ„wùTþàQÈRA8—OÅuA>ùõC»|*þVñ$ïògIòªÊåKÝ¿Gœ¼%¹è.¿™Óûâ½/«Õªeþ˦ûwÂÜǶEQ5­þä_Š¿E‰yz?ùSÉ·(*þ¿ ˆ'ù%¬ãÆØ¢‰“’ ½g¡)šÛ¸¹h¹©c„v55n¸×öMô»–.6ƒŽ‡±†4iÒ½UÅi©+‡éM®>YnãW×+x]³—¢ô›²5^V!W•5Íy9û®ªåe’Í'!OFn+²ÚÍÜ‘ÙÞU2|ò“ʶ|Æ CØàŒx½øÈï‰?8£âž¾ò{#«kf-w`#¡¥÷?ù#‘´ä@[îºL›ú4ðÈ/(TQ=ËÆŒb? ü<äÏ'c~ò¢÷²ac *þ‹â‰;Ơ⺀_‚ü¥äc *þ×Ä“|Œ1KâkE1Æâ†eP ŠÞö0!àP4_“md¸é³]ʵT-ÜWC–šÇN`›‹B~4‰p‚ ¼¨C–ÚܨL!ĸjf€!RøÙâ:|ä7(Sæ…ÄáQQzø>Èï‹¿/¡âž¾òû“ïK¨øçÄw_"fíòóÉ÷%TüÄ“|_2Kþ}‰Ô~¢Ñ \’š‘ß'â¤OÔëã‰Õr –šq}|\6ë]T@¸òºäm–Šï¢·o}}ü ˜æj`›¶ñ¬†{ˆG²µ4ÏH]YÐ- ô6•ïñ¹>Þ¡K¢ëÙŒë7hå-c”3&é­¯å=MtÕ<ûwôWž_˜ýÁ›ês?ßr’Õîwï«¡Ÿ YIâýïüe€ìú±ù ðã?®¬1vþTÜ{Ÿ€ü‰È³ƒOo{ã]5® &í™E¥óÏ%5ù ÀBþ¡4ù(%wž»%™˜ÿð§ö èIß’L„ÿN þw2ÄkýrǬáA@†oe4üÛr.sBâŠde¤üK 8óªV#Â윯ʹ0øvU‹ÿýÈñ–Úâ~du¦)~z·Û1ºÎµT6Gª6ïC­Q~©sòņ.XË&qËÚá~ÚÀ¨kùq³ß~¼ªW ÷‡¿ãBxµô!.§)«ÓV7UÍrÇPRaß,w …$E¿ch¾€òç{ÅOoh¾©ª`±>¼l9¸²J«m’’º$'LÜHéTÛ (øŠª5(km{Íg-LÆÃhæ37*-ÅExˆ'b­(»¢jEè ÷V+ëã]QµNx|®¨ŠlÑAWTQ9W}®¨’ÔÜ'»€>WTET’â+ªˆä>àÃV‰ø_QE¥í>’šqE•ì_øî›< I͸¢*rHxE•ÆUtFRî—ŠïH^ ‘´û¥#x-.ÐHnêwTB}ê7h}_îÀû|P}NŽÀåý ©ú]‘–-ÃÍÊPq]@a"¢I¨¾«âJàÈrºÃÛHË{*vo‚|S2ÚÚ Üy_dmE»§b?ðd©MÍÃ3é{*’rð³ÜSÑ8㸧"²N¤ï©HJ'ñ=ñÈUÀŒoIÝSqᳫ—ô=jnAhyGE_@SYÀªRÒCFèTÏ^šá¥£õê½=TüXk²é *öÊ©†îùw;Ų:zzþï 9'*v¹€x$h„ï0.àZŠEÉP ˜P¸k)<·8yPñKÄ£H#Ò~©3U¿‘bd){ ©a8&jÒZ¡âWˆG‘V×½[‹û /à*ŠË!_ž€fº  ïÌS:Õ00MJ3Þvhñ(ÒÌ¢ºfJã!#^4qYjÆý:±)F¼hârÈRý¢‰•6ݯQ1Kꊙ0+¤jæBsS¾÷ëĦ¯Ë›òÍsš”jè¹BÀ¦ûuÔ©f¬X*…TÍ<¨c^ªïöh£jæAªUèÎ&C*FX_MÔyi®Ñ¯µËÍo´GÅîl¶ ­:Yªç·^Y*X ©“ÐáRÈK“×É|ÏC<Št²ÐK1>Zî†.W@– CêEÌ£-lbJZ/^~ñ(ÒËòÆûÛÂkg!4Bx%ä+ÐŽ˜|{5äÕÉk‡Š¿J@<Š´sÃ,—·1uÉÞÜ&̸)|æ§RøDÖ[ÐÍmb’î-·$¯7*~«€x$õ¶<*Â%ÊOTˆŸÆtsÛ¨Ðç涨³*=º÷Ðj™-: Üy»2“\¸£â2ÀwDÖ]øÍ3TþNà.È»”©e~·KieðÈ·$£•ÝÀ#´I+GÇ S¦•îoÐ.¥—»€@~ ½Ü |òƒmÒKøPjFvH%z¡»”^ ÀäR2zyX†\n“^,à䉋E/SÀ—A~Y2zyørÈ/¬—¹}27ƒ‡W_ ùµª{˜I)ͼøÈoIF3OŸüLôúFP*ÿYà[!¿5*ÿ¼ô?o½Xo%CðyÈχ5xúF[n%ÖØ@†½èDÿŸ¼TY-ú—p:RI©ôöߪìUÔ_|)RóÉbQ·³Ýê½ÊR`ÓîÓvV Qê¤ëØt¡tZÞ¾3_À¦ƒ!ù9Y©²´½ep1d© Hþw⻤©eÀU¥–E}Kmq/—¸+MHó1T=Òp/׸55j:Ç÷ßvòPÌ×tÑkxIsüHä׉ᚮ©zëïÜ#Ý@R#”€´GTìz Ï5]²#”ð×t °75ãš.Õ“þ-oDI (åÛãqX´¬·¨ÞaÍm½éª§e@ŸãRñù+ak‚Âý#W·ðWa-‰˜]‚<”\˦b7·C–ZêˆÚ²‰ÀàNÈ;ÛвÅ+.²–M¼¨¾eÏŸm×^ VË€W@– ¶m¡=ûÝý{´mb¶¸²ÜµTÛ¦b·wBŽÞ¤$Ú6Øô9ŸXÛ_dm› x0¦¶ÝjÛg VË€‰¶m1í§º¶Ý¶q½ÂjࣽǫQׄmgP±ëmgLªvo{ÛÆ^‚)/"EY·ãgLJpZLtœ!&ñT7Îh›¿¢×¸ø0ä‡/Få%^#lƒ¿¢b×Ûꯈ@ØNµ:ð05Û¾üiÞ—¦jûäy¬Î[ž[Z¼`?äþ64çµ° /¢ðƒÙ–û9¡úðãBN™´ ¶ xd©üaµ ñHD£¹Å/9uâî¸Cz‹k€#G.Ædªš° !»ØÖ„d€‘Bßbç檶>æ·{nY½Î#ú(ñSÕYüBšÁª¨tÈ  ˆ'b­¨Ï⧨ IŸ‘ Õ-`S–ÃÝÇÒ&: .l'b‹k!¯•®7ugcˆÏF`rVY3o™ÔN@ˆîæBï*§òCå—ë”!:;SõTƒ;9&¡•Í©zªÁÍÛ¢•ýÀ(ÓJ„³1Dè(ðäÉèå ð$ä“mÒË)àÝïV¬©3D(4 Éèåà(äÑ6ée 8y\µ þ‚èXÀIÈ“ÉhÅNAžŠ¬•9}Zøë ‰ÂàŸP¦˜Å=°VJ;¯¾ò’ÑÎyàÓŸŽ¬¹ZFâ¶NâðFà3ŸQ¦ž–ó -Õò.àû ¿/µ< |?ä÷+wf%TòðyÈêöïÞyHÅu?Yjky´aÿAñ$?ÌóR,Æ7Ì›ËUܺK!/•ëÍQ?Ö#b+€ oPçVzd¼=q¹8y ~·rð Ö±-ÞžÊn‡¼]™Zdof$6ÃÀƒ&£˜À›!ßÜOå†|8~OÅuo,•|"z*ù#âIÞßoäíbŒþž/Fw¿ŽJƒcOystڽĢ\-°¿²> ÀþXÒ‹ÚDQÏnºœ©q3Ïo¦Å òÎ@ wËWè&Yº[þè¨V-ó_6¿º´ÀËnéÆyý´!^;_±Jü>~ý™vÒ04ºAF©+€/@~A™Ãë7*†£ï¿ùû [{ýž•¥/6–†K¦ï·ÜE-ü ð·!ÿ¶,ï¿üyàïAþ½Èà˜›l´Zq/gÄ…‡šUÖÆ­)÷V«ìT¬b³¡»­S3ËÂõºaý9½ÇïsLk\Nkñûs*¶ Å®ã2aÒþœŠï©£÷$ïÏ…ô[1úóyX@– × \y™´C_ÐDÊ,ZcfžùkÁ¡OnKpo'2ÅKÁÝt'f™5—’îÞY”¯0«˜ºàÊ='Ÿirݯóµ©sÏ©¸ ÃFŸÄåÀ×@~MüÑ'÷ðµåÆ4§IŒ ˆÂ“ÀŸ…ü³ê´"5D\~ø,äg“ÑÊÏß 9r¦‰ŒBDámÀwA~—ºÐ…6¼È(åyà‡ (¥¼øaÈn_Sùð?Ñö4±ù¯ÀÏBþl2zùàç ® h*ÿàç!>þ€‹Šë~ò’¸¨ø/ ˆ'ù€+Ã-ÚÅø®EâÞ6 †ÝÀ•¥6 »Ìæ51»¹EÔ5ÑïlÅѱA×`±jÒ´«z±È¾k:ã2u~%ðAÈr)#ýêz¯köR弡ÉÖxX…\UÖ4çå컪–ã盨ÀpòdäV±"«Ý̃_>k1úZOâ3|ò“ʶ|ÆFÕ°] ñzð=ßWBÅ=|/ä÷FV×Í.Zî"†„–ÞüäDÒ’ow/7C¤> |²ÔœV€Šnê¥â> üÆ âM@<Éǽ¼¹_Œ±¸a7½ÅnàªÔŒ­#®Ífg™Úá”k÷PKp_ < Yj)*¦p‚xÝ|ò£I„Tà-@²¹dgÎ°Í 0°"~¬J\G€o€üeʼ8<0Ê JÏß9>TÜÓÀ÷C~ò} ÿœ€xâîK¨¸.àó¥öEëK¨ø(Â2j_r=·jÕö%RÇžˆF7pIjÆæÿ-³Ü.B¯ŒUKFÙ±ÃÚ,±ZÔ kñÛìõ°SB,j¥Ú°¨EÅ÷ˆGÑÛwçjjñ){=Ló`›NƒÝ÷dkY•NZˆ‡Ò§h\ɼȩÚ¯f–óÅjÁ°w‡e×=ªKöº’²(ÚC5¦#ájP8atWkF­¢±X@<É×Ë êbPI½¤ÂzW*¶ è]í,—¤Xüô0ˆXcýEó´Q4Ç-«Ð§ŒI“âþ>mÿу}ÚúZcÿ•GŒ›a™²fŽc–Çdªrð8äã £]áœxØh—(Ý |ò£ñG»TÜ@rô1Ëetddº¶ @b`B„F€dG™ªdшÍ9àË!¿<-U¯€üŠè¾¨7Ö)W_ ùÕípŠC\©.¶Á)R±]@uNq•ÛP¢^/Hœ¯…|­²–#„ÚÛSNع?þ¶CÅ­f!g#«Jj·Qn¼E™f"œ %B»!'°¹žŠÛ ¼rôÍõ#|ï°^²ªew]'S1l³PÕ‹½Ú¸ákÌ(¦3ííà¬0UZ¥’yÆ(ô££në+1ÊE-cf,ÿ=ÃvÌ’î+Eô~‡€„üAé÷ìÀ§}9s”nòn™2Jãçλ— å2ë‡r½çé—Ï­:ÞûÅœ£WÞÀ¿å­ADþCÀ_†üËa_‚¾1ãÖ y¹Òc6#*Ø6¹tÿÍÔá/ "ŸˆZ†xmΤcÖ.ƒô' ÿÆŸËpÕæzƒª'à& e¼üK ¸ H­R„ÅSÿ-;]5ãš|¥΃ӈÕ@ÅO-¾s˜Î|<^Õ+tàÃrz³ÚÉêÄó˶Áס öa±ÑùÚYwš%£ÛÓ¥ ÇrÌ|/­• z¥ •ŠånÆWàšñÒé \NËA¤OÛçšÓˆ¬Ò[¸œW´É5§· Ä·ÊWâšÕÐPïšÕð ëš*%6×kͺæKm효øé:œá˜›¨X“&í3¤Ù5æ£',Û6GŠFø ‘é½`zod¦›as„m˜  b»€ê&–5OHTÊ põ‚"G'‡è¬n„¼1þá'·¸)UK¿QGzŸ¦kŽÎZšÍS‹'§ôæw±k£âNwky«4a•imÏ–òV¥bÝo׎º!QV;~&•^/|2UÛUÚ†g~Î6ÇJº\CôŸ¾ òÛ.… ‡¿] þvâуe4ü×>Xå†s”1 æ¨UËlaÎl¦ß®ºñtâ-µE £ÎHÅO¿)8ئÉ<ŸÁ©F‚õ‘ÿÕ ÓuÝØmW? Îl IöB} ›,kEjSº­Òä"­Šy%øʦûszÉð†²c«:A=†Û7°Nd`TÏ;VÅÍ ±YS¨ÐtË邲VŸ>!ÑÕ§O×Ñ{èêÓ°Èåt1²]=UÛ*åê¸J“–[];]¶¦Êbw®1ÕWÌ3n§kzÅ1óÕ¢^Á´Æ'@\¥nŸÅç^ˆn– f^w7R ÀgHøq ½,aéðs™0‚UøYÇÒ—0ÖeÖž ½2FEÂV:Cw¬à2a¶òQìe\&Tæü÷SÁÿˆ‚/ç2aD#}žŒ­ÄŒLc*(õÍð8\Eä‹\%z ×-Ž™“Ì0kŽËßâ—m£ö6~Ãfn¬îNûøÌŸž}¢jh%ðW¹LxiÍÚùÏ“Ë„—D@Ûñ5ø×dˆ+ hÕÐPe6•ÿRà˸L¨H3‹=ÍÜ|tÿ-Rªy-ðç¹L˜„j^|3— Û¢š·Ÿá2¡òF³ÿ„”fÞü0—;¥’±„×̳Àp™0¢fæöÉìõ"þ"— ig¡§»K)çÓÀ/q™0 å|øk\&Œ¨œ»{¹vÂ̼°´Y¦l}šaÖþU„MôJ_æصŠË„mŽtå*ã–ä`¤ë àz.»êÚ4éÚ ß C\É`D ÿ•56aŠ•Š¨av(¢P%³ EZ™|»ê%p c©­"ŠŒ³áS©ìâ"—^péUß/ÊEú]ƒÀÝ\v1þ~±ëzà.»Ø†p²k/p˜Ë.*VŒ\4Ùu3ð8—]L@17ïàr×mRÌÀ»¸ì¢ÅÔâüƒ’š¹˜ç²‹ hæ°Àå.¹E­èšÁªR×(—]T¬ÉXVxºÎp¹ëL2šNsÙÅhš‘ºSŠ(œ¾„Ë]r3(qÌ)u½ø4—]L@9/¾‘Ë.FSÎæ^ y„؈ˬÔR¿…OÙáMÀ¯pÙEÅ=“ÜPºëÀß岋 (ò×ßçr—ÔõbE¤ôj#†3ee$‰Öòf›ù5ma–YÓÍ2_š÷½yCô†uoÑDZí“ „ü֨ø¹³Òlˆ?ÂÆðî?c Cq¥bêÓÜùŠeÛ>/Üz1ÔÛŽÁÌè5ÛÈ[RsD]¿Çqî\vQÞ°cZ†Ÿ»¸•Ë„ ù\ ¸Ë„ÊFK­–áç^ ÜÎeˆnò~Ÿex›–ᶆÚZÁ°ós„LsÄš4X3*yê/¯yT­Ìšƒdú6z­À7p™° “Uóscz)ÂvйOßËeÂKbÂjîûâï“!®dÂJ Àí P®Ì¤•fa'­ªeöí ­M¿]u8qc©­'®iC›\Ï©Qù¨Èg¤‹6Ç?1nʺ̉˄—†Ëü”@üS2ÄÕ¸L%4çø™b¥Ü¥V¡Ý¥:•Ì>Çlòíª—`W_©³¸J5Æ)~ºXØ9ú, Hé‹ ôÅÈ”$Îni¶á, ۼؒ§Àk!_«Ì§É' ">×ûS‰% ¢âÖ³)UÉ‚:B熤ò€ƒÛÑt¶¢¹lUÒtúš…NÊH4 ˆ'b½ÌÕÜÿ Éeªcþ;Í1)¯BÅÎ.„¼PAl,1¥@—A^֖ظó¨Ül1_¼ò5—BhL„×Ä×È+£áŸ­1—9*1‘ ŒT¨ÈX­Ff‹Œ[|»ªÅ?0Ž·Ô±:Ó>M/¬ßÚ‡{®½ [˘em¨äYÔÜë®\”ªìs,,8–£±ž`…4tµ5 ¾/_³Í³Fãæü /È´yTNÇ Ù6æ´›(VmšXž(Ö—-Übzµ¼^¦™dÝq*æHÕá‡ÿµ^²Ø¿riVª†wB€9Ôµ’áèýcŒò6¹kzt1ôª¹ ô&.§åÓ.´©·Hg€[¸|iä["Â[âmÊ·¤Œ†âÞB ©°½…BÄÓ[ÄZ-½EŒ¥¶î-™¦øéDžΡ¹?¨–õ|žR•Ò5B¯àïì½T¦½¾ÿÏdµ“†Lð_«±?Eý©²ÆÜu¼¶HŠÑ_ÂeBeƸrLþðo¸LÑx¸=d6õð?ÿ›Ë’§üéÓvu´ÿȱ#ÍeÂK¢£íè¨'9|’ËéÐùÉÛÔ‰¦Ÿˆ?%C\I'ª††âNT ©°¨BÄÓ‰ÆZ-hŒ¥¶îD™¦øi´I>‘Ó3àôLdNr“|;`];Rm™ä£bçÛ<ÉG—¥Ú:ÉwB®#æË—Ô$^#oÓ$Ÿ2AÝØ ‰nL©PݘZÌÚ|»ªÅ¿‹·Ôݘ:Ó?}ýl“|õq\Ó&½Ú(q”_³îÝÄF“V…n Ê«t›—xu¿Xˆï©cz…¾ Sî‚ Û¨,-‚×ø(ä^rûcÀOCþô¥â°E þ+2ÄÕ8l%4T;l%¤B;lu‰ÉaÇY-Á;¾RgqØjLSü4WwØZæ„Î\ly¤j÷i›wõfµ;(ûyí*Å)ºÂeÔtšÓᄹk¦¿ÔýµÔ„œð†é\&TÔød&äˆÉÕÀk¹L¨LÙrTàeÀµ\&Œ¨lé 9¢¡3\&¼´:Æt/p+—Ó¡þ´©cLoˆo“!®¤cTCCqǨ†TØŽQ¡Fâéc­–ÀŽ1ÆR[wŒŠLSü4Ú„œÈé8ˆÌIâ¬óN˜a¤³Î¾¥Îwgá̳~j¡ýó](¹«þD¬‚Ч«©ø9âI^»Pû»¢jBn^tT@x±%l N €×¦T'lèv6ŒK¥ž J ÊØ@„®f!g•µžÀŒ TÜZàäȺ:Û×¼’îT Ó¸ ©á”Ž{å‘ëWm1ÒwÆuÇ»¥QüÇstÔ¨å¼aóé—†›Ã_¸Nï=üä´£ÍîF;ÝÝž6»ít·Ò6{”ïÒ0ìjÑ©¥u ÛqÛrÆ;FÕÛ|Žê®ît·uØtÐJ¢6ï‚,—ô›>2ŠHß%3† Þ'€B~ðRCáœ@<'C<úB _7?'—¹+ôB¥P#µú˜mhìíªÿñC¼¥¶?¨3KñÓ[ûk.µq¥ÃíWË–ã;o6syCbÝY|¡Bþ`[ülç]’õ´þä_ºT<í§⟒!®ÆÓ*¡4[Ãô*åk• íkÕidÖÙš`ƒoWµ{ÛøJÅÛª1MñÓSuoMÀu»‚£¥Kd½Ee~$ê(Vx³ô\.¶K„Wq™0îQ,7x—Ór7ˆŸžèk¾ŒVØ8S×îÕ‹…~gzê8u­hž6Šæ¸e°'&ܬeìðËTô>WM.FгŸ¾ç{ê–`7 <ÏeBeÊ.šåÓÅN_ÂeÂ$lì1àK¹LÑÆ.wIÉb–R0Ý,Úáç0ˆÑË€?ÏeÂäç0öpãr± sTlPÙFºÛoÃ*•Í‘ª­ejÞ —7y|ž·ŒÑQ3oRâßÆ@;ïX)˜4ƒå÷múÚ[Ä,B/Úÿ.ÝäÒ›ÕNV'&èÐ mN~½ ûAšN³Ê ?©eŒìX¶¦—Ù—J®6áô¹nË£g<Îz²~ןñ9µ~ï‚s> Þ.I 8º‹ì R²‹ìír/lqo{ìr/lq¯J»L½Šu;ݩï ïà-4XT¿%Èž°ÊîÐv˜zõJA3*žôqííÍ`˜èŸÔ‹UÃæwå­ò(ëÁÊyƒ›ûL±ªåBø”Ö{a„? ùgÛað‚áöXÄ0¬`X©E<ïÁA+?Îpÿí:SV±ÿˆn”í³4£îE+§ô ó›l-`Ö@˜“×Ëzqú,U(Ø<´±1SOe5—Q2œq«Ð§™Yƒ9ë5ðÂCþ¸²Hw¾é–ÆCǹDçSÀÏBþlü1÷ àç .zû ïÚ‰À À/@þB;òh¼7FmȾ¥¶Zt@»½ئEg*~Ž€jCÓ¸ uï!žˆ4æ1ƒØÝ·çAž§ÌitѽuŒÖ5ÈZ,C¥¥/6Ñ]<\2í|¿5AW¤Ù¼—¯‚|•,ï¿<¸òºÈs§Ûé`$Å"^¬»¯Nǻٿdá‹u¦‹Fa oÙ¸«@À'ªN=Œ7Š^h.Q_=ÀÇ!?.my웾S½ãŽ3aïȳŽ>[韨XÔËf­ÊØÀ„ž?­Ãì£i«D?`‚hŸ¾ò{eèûÒžÛšS‹*}øaÈVØtÆÝ/ù[~òG"Ûg·ý„îq‰ÇGŸ‚ü)…ÚŒOÉ}\•©ý)•®=t³ ÂC<’Mk~T:øÔ‚ïTx·sj!TßáÍ™¨°_Ø™¸,®€,5ú"„.¡hˆzÉh£ÕrÞíAµ‚宩V §Z¡!Æ8YYÅ]Üy2Åͳ«¥’^™–QÝàÈG’QÝ^àQÈG#«nMuP™t0¤4æŽÝÙ4˜Ž–qC½P0éëzQnÈJô_ùuÊtº¸JͲ¡kèq+qz#ð]ß•ŒfønÈïnǸ•¼ø>ÈïSöþssî¼Y@oANùæT[ûP*¾CÀh}è/G¥Ã,Ôí®<ıVzXJ‹¬¾³Ø}2QýahŒ°r4Ïvd'æëYÈÙ°o@ßHz— ˆÈ¾ËE •™À•‘ò/5`—‹Z̺Ë%|&ð¸«Å—K¼¥¶Øå¢Î4ÅO¯ë §“ø$I„6| ò1i†øôú&÷éúÍ™ß|ˆüfŽóÜúÍ5çyÙ’6¬ ær¹ë´œcRÖ¿ÜhEÏŸËëìŸ;zõüÛÏ7ü—v}³X0ÎMž?ßçùîúO]§±/gè˽ìoZFüÏ´ÉÞ>Y‡}+ð¿¡ÌaâuØ߈S†¸Ÿ{h`v(÷ ¨)Uæ’p,J^-´¿U_¡*WÒFÚT­¾/tCí…¤j{ìaN®ÜÓÄWì,=’‚›¦¼¦hAE‹àg¾ù;‘;•Á1¹Øµ,[þ¶P°/Ù.à»À¿‡ü÷Jº€¹¬ ˆ·ø÷?ÈðV²+¡áÛ-ËeD•KÅîJØ…îKÔ©f¶¾¤±Q´©~|™]@Ól—â‚}~|¥ÎâóÕ´"ñÓ«½ÃõkîÌ­ºÊ{wçù?plÃÜÌ\2(iWŸ^¼†ËéK"ù%^#_#C\‰¯WCÃÿ½y˜-“ìgÿ]/íÿ©ôtLºøN.^Ó1éw Äß%C|Öé˜ý¹#iSf*FÍk…v¬ê+3(|ŽØ@ÚT¡¾¯¢°™¶Ç"ZMÆÄXì,=Š’‚MÆÔÈ<2ϵ%_̬‡¦û˜qM>bʺúçŸá2᥋V þYâjbq%4|{šå¹Lƒ†¥Br%ôB÷êt3[H~A ]ìGã+u?ªÆ\ÅO½ ³TiŠŸ*>aPcø0üAäñRø5í¡#îfã™Û¥6HŸ«‹Y¯2ø?œ±%™fp³²îøÏ9vîâ2¡"wï‚uçî:q’ßuÁz[îÁЪ’Y¤Vó*a½g 4,’°ø6U¢/}™v×u·ZŽ±ØÖÝ‚š‚4²SÛ_Ö‹Ö˜U­°x åª+{Kæ£Ðt®7ôIp‘ýã`/—©Gü4ôè[¸QÖPÍÁð>žF„}Áª}ZÁ˜0xîGdD¶[¶„Þp{, ½Ô0}mªDØpKäû{ ‡Î»ÑŽÑ Þ+ß+C<úhE Ån•ñ ÕåªUJ<nã®ÿÎ)ÞR[tNê Tüt¥Û ñ |?ä÷_*¾ô9øs2ÄÕøR%4TÇœJH…ö¥ê4SÌgµûÒøJÅ—ª1͆– szT>ùC—\ÌùaৠêRñ“ÿU þ_eˆ«ñ“Jh¨Ž9• í'Õi$¦˜3Îj ö“ñ•:‹ŸTcšâ§«ÝÅ5kÔ1ÊÑ6aˆô¾ù[mñËyηÌ]ýî‘ãÞ»d=éoÿò_^*žô¯â%C\'UBÃד®t#ÎF-KùU%CûUuú™Í¯^pchW%{ÙøJÅ˪1Û†V"zT~ù'mñ¨‹ù>™»\’õ¦Ã1ær:ôF‡6yÓtG8Éá‰+ñ¦jh«oаŒ'UC/¬'U¨›YÕ_H#hWzÑKmíE™«øéü>¹ü$"›`³ -Ž4-ŠÒÎ2/ã2á¥áé~UÓ “zÙqc\w"o(Nÿ ÇŽa.¶¡Ž°¹£ãFàQ.^=qÇ1ø1âJzb54oîPC*l_¬P#ñlZ{ãKmÝ+2͆– 9^©Q9*ÇÛã'å7wtÜ|€Ë„—†Ÿ|P þ  q5~R Å›;Ô í'Õi$žÍ±VK°ŸŒ¯ÔYü¤Ó?äŠG §–Ù0Ã1ÊßÜ¡æö‘õëÀZî®óe©h.5ÚaàŽŸ¾Ë„—†W}»@üí2ÄÕxU%4ÔVÃ+´cU§”ØÇZ3Á¾5¾Rgñ­j Tüt¡7÷cJ¹MÐó ô¼4¡¨ù]—5ämÖñ÷¥bVú³¤oýð·¸L¨À·Æ›ô•ø~[àýmÞj\«¾®õòÆK,IÇRNV ÃÐNVzfKr4³´©Ž|Ù]`3m—ƒû‚øJ¥/PÓ¢ tsB”µ^æwAæwÛ>Ï;ÍÇøC.^ñó_ÄÿB†¸'¯„†¯“_èm”–óíJˆ…öíê´2[=‹á·«j‚½f|¥Îâ5Õ˜hC‹Åõ¨üT~ÔŸÉ÷ƒÉúÌÿ…Ë„—†ÏüWø¿ÊWã3•Ðò™Ð­”ÏTB,´ÏT§•Y}fkÃoWÕûÌøJÅgª1QñÓù®Ï”›r›Î4—;å7dwáÓCìõÏuÇ8#¸Gú›¯ÝLn”>¥K’¼°%`âÆÚ<ÄŠ†¿çÆÿŠ¥£×ÎàM\&Tä‰FO4ÂœãÖax•vî˜ï“a~Á~¦vB·~5löþKídÆg¡-mF²÷Vh2Qzo…Ô\1«š¦µ\!Ó‘Çj¯ùX{%¯Q»¸ ìNþÓÃ)´ñSùY´™Ã søâ mÜY†zD³àhS Sû\2€¹ø— /‘æ´Àü´ óp3=r­Z ÉЭ:¾R[´j%…Æ·¨³”Hq‹º šq¾˜ÏÔʇ+qšip¸òÕL%ÕÿthÿZƒ{œ¶®Q±@źȂ”#®= yAÇ8£¡æÏ%ƒ” àÏs™ð RÞ,0³ ópS«ÁuܪM+!ºMÇWj‹6­¤ÐX‚u–)HQWA>AJÍ/H)qšipòÕL%ƒ”ÿthÿZCa½¡¯D‰<"ÏD&úJ´£°&ñD¤q¿Ms¦,­`Œše“´æá8^ù*i~í8nK̯n„¼QY0ãæ"¼I ¾I†xôV •Çm•‘ Õ·þÿìýxWv&  ˜ÀLI”¨X„$²!5‰  ˜%RLIQUè.EvWµªª‚'H£M”4yv=Ù{דœ&x¢=ÎqÇûÙÏÚí™Yï:ìØÞçߨouߺš¬[·ªÅïùç™Ò{Ø]èóVsÏ=7«µHËm“~-+’dµ6™t Î5ëJ‚L‹W¤r?äû['%—Ûó,päm×KœˆËW'•ÐP¹ÜV©ÈqREXn›ôk “Éi½JœTãšâ·{5=ïUôbqVËÛ¦•7 mXii—Nߥ5· ç”Y²-S·zê¦Sˆu¯ø!_lIŒ±þ–ÈÏßùm×K˜}I þ’ q5aV Åëo•ñŠiÕ%™õ·I¿™ð`›œÖ«[5*~û+Áú[ «y»Ä‚*‹»þÆiõÇWc²[6ò¦^ÔòºË7Úò·a÷è{&Íi¹õq{Úèɉǩ›Ú¬]ÑÊì߆Sû¼m±? ¿óC\QÝî`Yâ©É‡›ö‡¸L¨¨œ/+Þ”]é>p´;,î?qà`cfí'€s™P‘g-ËÛ…¿j? |‚Ë„1ýj+¯²'LÏ *m~__ɼhêâ«m¦ݘíO_á2a c6Ì‘’ž«X¦¹?ÍeBeö,šÖ…µþ$—Û¥–ÅGw£W?Åe˜nt^›¨XyŠ|oÇÐðà‡¨¢kkzųY"hæý`å²:OÔ-?°ç¹Ÿ—žó3;Vq™0æóFîç}˜ûkÕôóf4Í?7³AYuyUQvJÁŽZ^‚!ar¦%™ö‚Q¹4›˜÷7CÞ|=¤ÙDx‹@|‹ ñøi¶2a½£9¶2R‘rlµ¹joF¸Ã·êµ4N°“ÕÚ$ÁVçšâ·}Âæñ™Q½R0¬ñŠ;•Õûû·÷h¦ï¼8‘tr^št° Î}s"ªJŸd¡ô) ¥…ÛßõW3ŽM8zþrmáȹˣiõH¯&~vŒ>»2ÿ¶+YüÚvþka)Á¹ÑƒìWÄŽìÑú´ú[²²1½üÈ£,¦’é+ÿ[â"H³#cOª1îØSHÉóEŽËêßjGˆÝUœ½Ù†Ï¤¼ø¶ÆAŽ«¨äÔ^¥ŠR¢¸>k’;J$óÿ1vÕ#»ÿÚšy…_¬¬w1Ù âŸ8¶ßÁeBD²û¯ß;k¼IŽÎ[Iί†FئóL/ÓPC1jM£Ð>W«i”½¤†ô®­œ¶Ê€¡A‚Z›WŠŠ”ø­VwèUüE–#`9"ͲE«D~7rôºZÔããŸÌ?&C\MôWBCñÀª2^‘C¾:£$3°šô› ¥Éi½J,Uã â·hã: >Ø–0ø5gØKzõlN7*ÙË£H[w®`ÌÌAñ±>ŠÇúèë#=?–ž“MÏÛ?ü .^éùo ¼S†·š­„Ƶ¤çǤÓs%#Çjuö‰”ž“LÏÕÒﺶrÚ*†W)Éi½J•¢¦H‰ß&‘ž,–?¸Óóÿ‰Ë„×Gzþßâÿ]†¸šè¯„Fé¹^‘C¾:£$—ž'ùfÂcirZ¯KÕ8¨øm¾>=o4)MÈÎÃ5 •& zN;ìiyÝÒ¦ôrÙ°øy¤ò¡ã1.J>h"›[Ü;€j×ü*ܼiþÍcE/ôö»æŒíÒ”´ :þ+.*ª’Ü0ƒW`þ]æ׈®Ñ®‘㔚Gˆ§Ô²ú\™RåÛi¨õ£8Y†Â4÷ÅÜß`¨q¬‘ICuâÐ4äÿ³N,±ÙFºÁP²"úÿ‡A…$~»:«™–63eæ§üE'Z ïù÷`õï[ÒÌ1é¸ã?ÿ+— ¯‹6nÇßÄÿF†¸šÚG Å“ŽÕŠ\³¨³H2“Ž}-áá29­Í[·Š\SüöšWìžæÙÚ%ÖLÕ24€ä¯‰~è…@qÁR.JRŒ;tÓüL¯vØæÚ9U·äYlô¤]À\&ToPZ°Sà½S†·’p«†FÃp»¾Q²/s0›2šQ°B]mP)¤´´èE5¤xíe¶U† ­2ÔÚ¼ÊPT¼ÄooîÉi{'uÓâ=ž1Æ”ªä¹G®·d{Á(ð).^Éö‚§âOËWý•ÐPœl«!9Ö«³H2Év¢¯%^‰Fç˜@|L†¸’DC Å-75¤¢f -’LË-Ñךb$¨µyŠ¡È5Åoi¬Y¦[³þ|{+>u¶»`Ù3~@7Cä´ã¶gð;bm‚U}–OâY>yÝÚO?Çe¯‹@ûyøçeˆ« ´Jh¨´JHE´ê,’P Mòµ„Úä´^%ЪqMñÛû…\IŸÕ,Û£¨:m8³šžÏW…ÕŠU4\W‹Q¤¿ÂßkI4m¿ Kÿ ø¹ìãuKÿ“@ü?ÉWK•ÐhÜÔË\Š¤J(EŽ¤êìqµHêì­z)áq49­W‰£jÜRüvõgugÒÐ21Šë߀ÐßH—“ŽynÑö&º{ÅÑïüBÙ¸ÔËA‚â?_ãrçÿ‰åÁuïî¨í3³¥ˆ-ì.g†.•¾kåC^ÇßBë ./\Û…VkkÞs´åÀæèçÛ›•À;ð>äº8ëÂITǸ…«¨fßãì{˜ôK Éi½JèTã–â·gýiðžaiŽQdAtÚ “yK¬A@{¥” OïÕ-½8ëîÜÝS¨ñÀ“ô5ÐرŸ0¦uË‹<$>ÜÇñpWöVŽYSöƒðÇ@5c?‘‡ H}‡€¸$#΢¸tN²k©€¸b¾•õš¦µ‹“º5©=jù)o\¯NäñçG`(Âõ×+‹Ï7ÏLï!·Ÿ°^–Iœ7ò^Îv&%Hnnƒ¼M™C/bu—nCôÞ †,µ8£î¥td5‰çßÜYÝÎ wMy^ÙÝÑ×733“‹`¬š„Hî> ùi…5IÅ 3ÕNà9Èçb›jAôx"ð pò¸Â*M¯xS¶h¨ôŽ¶µ4ü’úã…ßî¸tN±k…€¸b¾•§Yø}Èœœ4-VÉi'sÚé\VÛ¨ž²Ke׶²Ú©œö`NË ö÷öä´G*¬"7'firݵ”èbf`º9-â3ž†µO£ÄµË–¸†áaÝ© 9èÙcFÁÌ›–!ÁÑ^‚|IaNÒü u瀗!_nA'ýϯ@¾¢ÌDƒ|Þ|ò‹ Í1n !jß|+ä·Æ6ÇÚÌÀ@OVØ2´½·w`Ë–a©ô6à‡!X™y´ ‚-Ø&U¨}ý¹ú\³”Þ±†%–~ò7oÚpÆCÔ~ø-ÈßJ¿‚!õßWÚ4ÎpCWQMu»€U,‰< å„ /ö]ª®•Ï %jK7A–ÌQ=ƒ”Ýd©FÛ:vi sÕÆ3HI['ðnÈb»ÎR?Ù›‹\7{€Y¼ˆû”;ÐêcºóÏY½ <†R¦îeW[ÜYiâ]+-““3å¸ÍŸc©¸Q/²íûÛü.Ÿ˜n´(«’ó¡SÀÇÚxçËiõAèÔw>iå§Xa?fä£nZ@Ôžžg×m~ªÈ–ŸÒc1+/²‹%²mn*îó8p¶Wd^l÷ù(E¡¬ö¨nÑ©HÚqÛv¼IÝ3²ÚY¿$ôUÑGÔ@¢éîÚÁê´ š›â¯âu¨¥A}¨ZÙž1œàsl bÍÝ.„šPŽ1é®Ë~e‡¶—æ4VŠü7]¯R˜œÒ«¹Ä±ª† Ã5ÊÒÂû“5¬¦´#vÅam?zÀc:{Dzy:ÕÄ*hÕÆû÷Iw6?eíÉÙèÏáMH«òÚI¾ñEªnžmãHF[Ðø"ý™Ç·³@Õ.œæ5¾¶n“àó ÅŠö'Ù5–|ã‹Ô=dù};+ðíOÅ6ÇŠ µ½†ú{{7Gow•<Ðf‹Ïíç•Y¦»Q»‹ý¯o¼ä–sÔ5±åE<§b׳ìzoò-/RW²f) /ý&©ÿH Ûßϯ´iœå¦®¢š–×ó¬å5ªWX¥5^q§üþ;^=õo§-X©oîõÞñú†Õ-— wû ÚÜJ«Û³ÊÍi‡-í¡œ¶ßfMVÍÍiæ´‡ŒÂ$ ûm¤4}?ûH/e›Zæ`ÁÍõDkáÙ Ÿ‡ü¼²Â³ù4«k§ØãÛöªšXÅjèN~Jsg-VI¹¦ëWPu]—Oðvà×!=ùz‰Ô½üäoÄv æ,ì}–ç”Ë9mpû–ÞÞ¡-Ì{Ž3Úã¶sùKÅubQ;¥OÚ!»bøTÒ¨e€¨ø?!ÿÏô‹âãp»ÕÅS¬(6Êû{¨LY… Ë YI¬N§„p”/ ô“D>Œ¥•õüöª#WLOàaOA>¥¬lÝ%d|b‚wÊžðft'jßúÂu±†I#Rs8 y¶é鿼 Y®¿az7Ú=Û„ÏóÀ ¿|zGêž¾ò[b›cyfˆºÖ¥²;bò"ðȯ(3̽²»á­CÛúλnnºhkÎ슘àÕ¿ùkÉ'x¤îUà×!KU„ñÂ9©ÿ†€¸=ý²1váVÞp(Âì“m*ë’Èï€ÔwˆKÒi—Ç¥C;’u ˆ+æ[‘fx &!Œ?ÌÐR¨;%=W±L r«ë ¯SXlk»¨ÎSÛ¼òÍ Õ†ìVJê:·@¾¥/é_¼ò­Ê]b¹DiJ‚Û&`r6Øì…Ü›ŽGÜÌAεÈ#ú€ýû•{Äòˆ²áÙìF€ HÇ'¶B>˜ŽO A>Ô"Ÿxøäx+B}b²X*I°;ƒ¬²/¶‰Oœ r>qø4ä§cûÄ¢¬ß$ñæÏ ÕÓÜžNCžNÇ+.g Ϥãð"d©þƒº7ßïïâK1yÛq ·lóóWøøÝ„éù8Áénä.0b; üÈ?£ìe-s ƒVô‡ää˜cÙÊ– ©ï0^KeÞÒª²cZ^DJT†»€+!¯Th“ ÆìŒí4êý8;®‚¼*}›œÃ}â’{óîêmôèÁÿžÁc·É¸#ݱ’îX_YË?[MŸuò]ûZ[mÄ5®i_ÄkÅܧÙÕç•Ê}£ì?¥íû‡ò}£ã³X( ›‡·mïïC·p_I·ú|ÿ¦Ã/rÁ[}é5¸mû_}«LßzÞLH9YVvì ³h4;F#¤³‰^óbàÈÂô‚൷ý˜¶p^@?súP/Ö£,zmnù¾\<¯$´X]Àâoí….!fþÃïýþågÿrü¯µ9n¬½]|òÄ©Ãå½À‹üzµêš«lwtËTßhÕ6Ëæþêý~µÞuæ„Ŭ Â&·\óÒ8½Ô¨†j *Xb#KÿEJÑIX-ê#.  ûn`·ˆ¥€ª­%À•WÊj¨uј^4õFýx„ jŒ´lÒQ-^ kŒ˜6‰À à³Kd}6¢]„ÎEÑYÓ¶ ©¿Q@\Šì²JŒqMú;ClÓ {®ƒ¼.Ût„7C¾9}۠óŠ¸Ùf¥h›ð¦cˆi„7A¾)Ó,„9Â%Úe]"žiÂ3¼YÚC™æ–9Å&çE¿=ÑH‹`» ß•‚‘‚J˜Pƒ¬¥o$º6ˆ+‰òS bšÅ0Çâ”ËOˆ/nmùYŒ2 Úò³†7zä“‚%ÂuK ·ÎX„p=äõé[‡Ôß* .EÖY].ÚqŒ³Ì–Âo–ÈúNDã,…A–Â)Úe"žq–Â7\/í#ŒsßIní¨yÁ(šS¶]ÐN2{¹~7ç&f­MÚ‰qÚ3!ê,È.˜Špò€B³y¦WlÔ(í‚©!¦o6R?$ .I³­ˆK‡v»\) ®˜oå`tuÓáu(å~ÿxÆ1\Ï1óžQèÑŠödo±æbä\6w+š-˜/êÑÏbZãƒ|LYÁXÚd¬;„ÖÂÑý' áu8yL™ã‡wºãÀ§ ?ÛÂÑFIÿÓÀsÏ)3Ë’nÞ|‘²Ê°¹”ŽUžZ­YÅ–!—•Yem÷Ü–‹”}f€/A~)û< |;ä·Ç¶ÜÐ1qxðeÈ/+.9EWÊ2~òGÓ±Ì+ÀAþXü’yº/éÿ8ð?—GÇĘ9lóyʸXvždµe¥è¹#N!ëzú¤1âVÁpžº|lï野ì}lôÜ™S÷8®íêÕNͺ¹IÃ3¬éL÷œ¯»{vj՚ݎ{Í -³Áº”ŸÒŒø]OϼŸ©.<ˬÜy—•rsÚÉY†×g•K}%Ý›:¯_ܳ¹Ï3.ö–JÅÞ<=»±{§v’ýý„;ëzF)G9B¦»`烿òÿ¦z6Xà0Ò奟ëÑ6nÔæ1ç/‘ß46æoœºËÍ;fÙÛMKPèµí2û¸\ñvh—'l‹A £×2fò%¦œ>>É>c_år}ìÿ‰>‘1ÝÕ½reç®>¨€*­@ó5fþ‘f_÷Ä»«?re“F›;²7ÀÞTfÎc¿=Ö½)[g¢,{æºê¹r%Ä×›î KŽþIàg!6ªÃÓóö†]>V´õ^€ªØ½Ê6ˆ%ÖŸØN†½D4böÅëÍ­"¶¹•½ÅÆZC6“U¢•î˜7Œ¾|WÞ¶,Ão¨ìùBð s' „>ËÈ“|”FDâ5EjŸ«]Šl»|¬`pŸ«ž¿1¯!Ú.<ÒœYF­|1„â’ ®•Nhâ% ‹=”’|‚ìÕÆ·C^Öª6Þ%µª^ŽN®1)¹«à „·@V×»x¬dxSv£ÉJ«à‡„ê:r³šOH›Ô_,š¥¬6ëÿ—åewd°?«‹ž]0zû‡²‘½‹¨Þ <ù`lÊ#þǼjr\wFNž9HùœCÇÇGº-›U…V¾\qG²Z¾È¾+Ún‹ú «ñª G H—¶Ð&JÁöõÓM»û ï‹ßDé‰lKºi?ð䱉DXk`ƒ¥‚{R‹‚ÁÒ¶Z€P±äfd¯®›k˜|ÀZÛV«8Õ n­,ל,éƒYÍÓ+ì¿Î”Õ&õ’ÿQyÊL$ Ñ£¬ b?RºMœÆÖ‚€F´ØÒ€Fö[Ðn„ |]´`ÏIBõmõµNFiÂn-pd©ÙQCÛM°a7äîؾ³½ÚxHc/ÄÓ‰cÄûnà“Ÿ¼Îâ˜0Õ¤qŒÔî¶4ŽýÀVÆ1aVãë/ŽQþ±˜Pb>_« § 7J51’1…‰ÙP5zéÅòT2q‹Ø®> ùáë,n m÷VÄ-R»ØÒ¸Eö[·n… L&nI- ¤Í–W@^¡,j]Ë ‡&ÄVo…,5›/jèº º­^Žé4™‹ÑË1©¿xä»Ò+ǤVÞùžV”c"p/p#äÊËO'E܈^z;Š árÈË_Ň­®o«vé&_|nG‘!â^L§9HÅG¬íËù©‘íô™>NŸÑKºie5ö#EÓ2Puæ}ùÐÞ£§$êѠ잃|.½òGjŸ Çï ’(DÀN@žPæL‹Æ*®>ÙhòÌJøÏmqëMñÛÈ#j¤¾C@\’np4.;Ûx¬ WÌ·"±ëØ]0 aƒ]Ç…åE<ç—àÖ\y•t`^:‡Ó º…‰¿Òó~‰ØZà=å*Wµó~‰ÏýÀ!ÈR3¾Cb]È<9Rw/p3äÍñc]䦤 p+ä­ÊÌ"=ï—èŒ쎕¤U¶쎕ªU„ü 2«(˜÷KÄŽÏA–Ê¢Ûç!à3Ÿ‰mŸ…YÍvdL¤ Ȇâ‚#1í—è.d7ÃL=È^üÌ%'a”Š€¸”=½é¥µÀiÈÓéçm¤~F@\é'J÷h“K”Ú/JÐêpÎöµs¤Åês$"¶x仔ŔÝBó:r`!Nƒ“,šp Õ0¦O/Ò2ÑC>éÞ Üy»2ó4ëŽij•=Àý÷§c•Àãw4/”Y~CC>¬Ì(Mû˜›Zå$ð4äÓéXåð ä3ñ³×ž¨µ0éxòÙäkaR× | òcéפþqq¥_ oàþìc‚Ý|Θ·.શ¸Ýs8m´ýyì:Ì瓆C‹œÝ²‘7'fýEÌ3Sf~Jæ}®nƒ¼MÚ°ÁvÙ1s‚–ËÊè|“ËWüÕCc™»Æz®Ð‡ÏZ—ï¸r%hŒù/ýé°·Þt¡Ñ>ù¡¨AwÌ[(´x¬tÞeT¯öÍŠ½Fˆˆ–!^õ™Ž«öR‡œ4£ŒFà gùX&0îXOØ Yþ£ŒYc­!ËÔš¥½ö^:ÎÕ\¿UïÆwû”µ.FèHÔIÅo{ý %Ã3ø^ÊÂÖî”])´q#ØL¢5k)W §Ðv'uÀ¶ÝIýŒ€-k»w£ð&—5tÒtL f]Àå§n¤“3tã>Â-·´$gX4Æ^¹\Æ@ä·@ŽÜÚkEÆ@„ ÄÊŸ1(£Ñ0cèbƒoÚÈù‚2^‘òµF¹Z¾ÐÜí[õfg Éjm’-¨sPñÛD³‘ò³ŸM>[ u@²“~¶@ê]q¥Ÿ-Ü¢G˜\¶°À™²%ˆu—C–Ÿ¨–N²@\W7C–Ÿ'Yè ãMS¢¾¸òÞë!U ÂûâûdˆÇO”Ñh<ªÌRfØȉ‚2V‘µ&¹Z¢ÐÌå[õ^§ Éjm’&¨sNñÛDÓ‘²ÙJ>M u@²~š@êËâJ?M¸0Á¡¾V]‚[pUÛõ1!L lùP„ÿÒå:ˆþ0𺊠‡âñú¼¥³e4B‡"`Üȃ2f‘2µf¹úPDs×oÕ»iœ5$«µIÖ ÎIÅoÍDÊ)EºN` ‡"HýŒ€-Š¸…0ÁÎ…ò”)A¬ x½t.×UmÕ…-í\ãMÓ¢¾x]u.á}ñx-YétAÐÎfØÈ©‚2V‘Rµ&¹zçB“ Ó¢÷Ò8MHVk“4AsŠß&š&ˆ”Sì\ u@²~š@êËâJ?M؈‚G˜\š°Ðß:J‚ZpeÛ¼#¨_—‰q]Ü ykK…EcÍÞyÓTÈoJ/äkEª@„ ÄÉŸ*(£:eÁ7mädA¯HÉ‚Z£\}ÊBÓPÓ¢7Ó8]HVk“tAƒŠß&š.ˆ”ÈNòé©ëºãψœ.zO@\é§ ›PôLüÛ$¨u¯—t¸®¶:]höΛ¦ D~ðºJˆð!x‹Òe4BÓß´‘Óe¼"¥ jrõt¡i¨iÑ›iœ.$«µIº ÎAÅoMDÊ)¦ ¤®ØÂtÔ{¶,]È è&¸‚öz“`ÖŒ¿b.£ÏV³…i#ïÙuÉ‚ïëö ózZ°])—™Äø›þÎôe­XØÓFXø_ø…Á´&…R°-#§žÐ*W`úûu³»'pH­æžKŸ¸×ãjzųKºgæõbq6jÑÊà>¯AþZòE+ƒâDøuÈ_O¿h‘úoˆ+ý¢ÕƒâÔ“lÑš^´zPœz)Z¯^¥hÍöêM7ðô™)Ãò7Gö¨ØÔ ‘Qê›tËOî#üäO$_~zPf? ù“é—Rÿ)q¥_~îC™¹/Ñò³Ðßh\‚Z0~KvéJë­Jiœ*— ­l³Æ¬ËªoÆ`åD‚æ`äeí–ÅT©?9ðT˜Ÿ‡mBlú[!K5©CŠWÈö!÷ ׶Æôk©M]Hõ0pä]Ší2(e—ýÀçc—àÈGbÛåûZÆ´òÅŠkN=B÷Oh;Ƙ֋ÝcÕN†î)z¥èi¬¢ìïÉiûuKÓ‹®M·ê+ †cæƒ ŽÔ¢aMzSÚ mµW´­Ðî§ZêHú ÷š™»1Éë®y³Ez¯sl¿‡Ë„Šœ­YfßÌÓÚïæ¸ì…—°§µß ìã2aLO[O>R—oP>BÖn¨ö~àC\nW8ÝÕÑ™WfüÚ.¬Ÿ©©ÁNŸà2a; |’ËíñZCgv Édä  ˆÎ°Èåöbòù!äN¨-q¹½”~~Hê­WúùáýÜË}L0?ôŸ‘ ÖŒŸÎk`¡úa-,FÍ`;oh—Õ~c*o—X-C­)T1A¯Eµ]eOö UÎŒé¡^¬ÿÆ÷ëÖütçÕþ©<‘ ½–5ÀOB–jéD+@÷£~ rü–MäDê?- ®ô P…&›hZŒ3’$ÈuWC^-]„Ì!u„ù: P5Ic…‡y·ÃÒ;bì.kw鎑1iÆšW$žëàä1u铵v'*yàä‰äkwR÷pòdìr}?GÒ?4!›ÉG#R× <ù|úшÔ_WúѨ—»³ÉE£%Ám캀k ¯‘Gs{|Î槭<5 ]ϯºÄ¥€9…§<‹Nõà ~ý36ÑÃÝ<YÎ%Æ&:/jl"*Ï=ÈReÑbS/Ja²Ô©º7p_ON;d7´d6h4¦ol ËM?ùãÊ,·¨Ûµì)Û}ø³6Û}øYÈŸm»N‰CˆÁç€_„üEeVYÖ]bÅÜÌÛŽ!eš/ò¯¤cšŸþ*ä_mšE9í”aÈç;Àß‚ü[ÊŒ³ø€áéfä^‰Ìw ùO•Ùeñ˜ûHÅöÂ,óÛÀïAþ^ül$j.FêÿL@\Içb¤®ø}ÈßO?#õÿF@\éçb9îÑ>&صâ+A­ ¨¾kåXƒ¹£”S #r¼Ê¦ž{›’.Íïœ7ÕéQŸi ð)ÈO%ïü98<áÓŸNßùIý9q¥ïü}pø¾D¿#µ Òo'\y™´çÏí¹­:kƒFÍ<^|ÿžy+Èe5ëªÚ)ÛRYiŸpÔ0éÔ‡ÔôwCÞÛ½Ÿ?3F¯жЭK]%=?eZµ ÙïùãŠ4*é7+ŽîÏ£A/ bE]ôX?ùCÉÇ.R× ü0䧻HýGÄ•~ìêçÆÇçœI­LŒº€ñçœÍ^SMús…±¢™87ÓÑg,MŸ ÒR›»ÉŠÈ„i™îTü•~ÜG8Yn³e½½Då À7C~sòñÔ]>ùùØE$zo/éøÈoI>P‘ºNà‹_L?P‘ú· ˆ+ý@5ÀÝÙÇ$7¿ÉOIëÆßüfnœÚ[éêΖÆí"’¬œ¶o6ˆ2Tƒ³@DµyÓÉý*›zw¥z9è1VO@>+5ì äó%¸uȺ¢Ȃù…µÇ!'IÝI`r>vÑ»ÁÏâl¿¢ã¼5"¡pòtò‘Ôug Ç߇+rD$õÄ•~DäåÊÇGãÙ­¬\亀«ÛTÆé*Ù›?eþâÃõÌkÉ iØQãf|–ÅÑ‚íÏ]™6jžFOîOØ¥5s¦»p%âŸMÙŽyɶ¼àc悃xzÂß‚¬®ÃY*$*ü#È”|($u¿ ü×ÿu rAÒÿÿÿò'ùH]'ðO ÿIú‘Ôÿ©€¸Ò|CÜ}L°·9/÷ˆR0~oóܸ÷í¦³„ðÃ~Êp šæç¢Z¼Ó ¨ØŸû‘‘·Þ”îUàÛh^tyÛq ·l³;ùtºsû–{«Må¼mM˜_)uŠ;ìÏâF@z‹k€ß…ü]ep᡽GOEÄå{À?‡üçɇ@R÷GÀ¿€ü± ßá+xí†uDý~%8Ðß?wœ£‘Ñ‹Æ´¹?žëßrlßÆåv©Õ6ÑB+©í„Úa.¦ZIýöWú¡u3/'>&º¼[—`ÖŒß8—Ѩgz,†=Üý%§×²Š” O™…À²cRfé¯Tõ+jØŒûuÈ*·!`3 á8d©Æm¼@êóâJ¿lÓoI¶ÌF/[àô[Ò(³é€-¸oKº` œ~Kk À8}€-+[áô[“-%Ý´$˜uÕ€‡ë åÆî/åù[qáU®– ñü­ðvÂ'!Ç_-ÙóIý˜€¸Ò÷ümðömÊ=Ÿ°-Ô<;è ŸG§ ¿)9×ÝWó.`Ý™d ¿åEî&Vk€d-yŸÝ?%ÜyCú>Kê»Ä¥èé»Æªfi ûN¸æ0WÚ¯`> .ÉÒ²*.í(!âŠ÷VÚ׳(rZŒùæEÃ¥_:õWŠº#nîÄ;œùÊGj0{ÁòÊJеRbùQɼDƒ–nä=£Ð3o%å4:²ƒêIêp©jqëÔøŒTu/‘Œß"gZ¨Ñ®kþznú˜¯òÌòuk~× ~±%šd[ìë }‹jžpÔôR¹L˜¶ÓîÕ”‰ºf”&—eÝ{Ê(ùêFI'çȸ=ä'¹ù%¨¯ VÉzii\“mâJÛ³F`ÄÕxÖ!Íÿßi±d»¼Ë6Ï2Oa;E­`” r0‡Ç {ü<3ÿŽ¨Ï²ü A>”þ+}ªTóJñW‘Ëè߃·s”,¯;⾚=¸/@\-y5{ñ:ö*y5mQ3BR»¸ ²Ô,çºW±Î_wÇË_ã拺yü‚8-n€,—­6ŠîK»’ž«XfwØ; à >`?ä~…É{È©ë@ˆmª˜™<–%ÂÎv€| –O¥àæ’ ÷ð,ä³ 2ë‰Ô= | òcéøÈAàãí#«üœ>TŸ.O¹%,óðß(Í5Þ^ïž^‘;t–È¿ øÈï‰útGÚ{½á—â/˯æ¡W­BözWF#t¯wß´‘÷zWÆ«±Ö½ÞÕEˆ¤!{½7sûV½™Æ{½'«µÉ^ïêTüvƒ–±lÏï.7ž­èÅ^cbÂÏ•ü–‡Û¹‡@¤ùÈ_hQJ»>·¯­%)-©] |½¥´Äi9P}J»ÄOiKÓ‘3Z¢“öAîK>[!uÝÀ~Èý¯‡Œ– ÷CÞ¯<£]Ä­%Áí$ð ä3É'´¤îðQȦã"€g!K¥ïuoþy!¡­[ˆF§Фä`ÒŸ×êÅ¢6­;¦¿ñuLû“ùŠ|'õO³?²¼¹=Ë{‹žáXì¦i£8›Õ臩ӉÖøJzäcÀ?ƒügÊÇ"ל,éa™@Ó°ñïù¯Òñ‰ïù±}¢#òV¿¤ÿ‡ÀAþ‘2›t²äLÊ"ü1ä§c‘ÿ üÈÿÐ"‹ü#ðŸ ÿ“2‹,p¦lƒüoàÿ…üÓ1ȾùµÖ„²?Û¹Ü.× Ý0lMê%¹°Õ¾¸‚ËíR3a"Û¤½¸’Ë„1m²0+±SQX¼Ë„ªÊIøñäMmr+ðv.¦a“wp™0¦M¾Q›"ÎøN/ª?é+ü£VqÖOxnÁr‡Ú/cË߉P÷4]óÌû“½m†S4ªç2b=kø;u#ß‘[žôêî~ŸËíñ7s’kyîçÞèc Zž¤v1P]Ës£ßòtùX4Ë8ÅÁIù–(q\ÞVkÞ,o“MhÖƒ+9ÆÛ'Ü5"±á¶ê¹¾|8ùˆ@êG Ç?CA›”= | òSÊÛ¤K{I°;|ò³É·JI]è@vÒq’§.d7¶“ôFj•JÈ~ò'¤)·h´…ÈøÈ_ˆútGÚ£-Dø‹ñ/Ê?Ú¢Œ†âÑe¼k mQk”dF[’~3G[’ÕÚd´EƒŠß¾¨eh¤…­Ð’_Çà'<™þ „`cƒB- îñûù¨ãonÞU›HÚÅ—Ÿ²mêå³k3D)—훹Ü.5Q°Å»} r{äŽôìöñ2Ä•l54Ôl5¼¢l…FI,`'úfBv‚Z›lE*~»œ²]×à[wÅ(¹'À脲"³”zåGd6!>Ÿæ2a M•ö“Às\&Œi ƒ:ƒúŽW‘B7U“JS¬ÉƼCÊoçxnÐ'5mê’-äög€¿ÆeBE–_ÈÄÓe¬þ»À?ä2aVÿuà¿â2aL«/«ö>Fî%$"ßþ.·Çßk]®—ð·®-è%$µ‹êz ï÷{ ióa*w½n^/Šº ‰èràVÈ[••+>i¥èvG-ZDg(ÈI-Rµ xòÁØæSÐAH„ƒ,5å8‰iØDÊ^€,uîUˆ±BúIÝ9`²Ê³C›øÈãÀäRlˆ¹u}ŒÕôi¨u‰ßä1/52Ëž6ÞÒ9Äó-D^úKê—ˆ+m‡ðîT³8[b'…¡œpäÊbÙ˜[wyWPåTL;¡¼³v¥m R¿P@\iÓx¯?À–ùÄa(?×'šï®q˜öW);†ßÉ‹Í4´£µ=SNíÈgÆ}„›!K šù”×Ä5)ÑØ&`‹v×8#¨Æ³ ¼Ú[Mj„ýnăèwMf%– ýMWäÛߊ›";Ú7zðØÑêp¬¿\Ä'}OGX€\P–-wønþRýÿDépòtòé©3€3cŸûÐ~{ÝÞÔ=Ùk:7€Ü<0 §=D;)s.þæM¨yj“g½Û¿Õ |³æÕ]½É?3ºëVJ|ãø*ïJÑé°*_»ßM7Çg™²èK7É29¶¿Ë„i‰£(.* í6gi+¯ZŸ•^[OU]?¥eh–«]2p¼Š8EšoØC+fÇ Í2&ýv¼Î7XIŸõ7àö´K†cks‚Oð¨Ù× <7ÌÌsØx,ü¹îŸªÍñJaoxæ"Œ¡m‘'©3Ž½Ý?6¾º_¼ÉÖÚ)³du‡Ú3sßQÃef ºw€Æãîˆì{Ç`ècd*.¦í{ÇA#@5¾·˜ûÞቦœbEÚ?Ù»ŒÚÉÍbr°«?‚€høŠ3¡çý F~Y±L!ô¢ï;n%?åûŽ›mìrd¹úУãÜH:T¨T)ißB"™Çy8 Ðœ2'§hã:zšèñè p‚^!|¢-µ“  Ÿ¸ÒÈ'ü#YAc!(Ø:•4Ók1·LÖ¦!6Ý™d_ØŽú“¿Q *@ ·29ÉÞ~ЋäiE<„¶yBõ»2•dG:À3'L}œ‘Ë`/ÄUª[5¢?¥¤Å¸èQ@ÕqÓstg¶‡Ÿe6ª³ Ô`Ÿ3/Í ö÷oïñ7 ðÿd¢âøQ·`ºùŠëÂ×jkŒXtòfƒýýå¬ü˜æ9) oóSFþ66ÝÈžøÌþžx%}Oդϟ®mNW­ü÷åÖ%±fCÃO‡hcÞ«øŽï˜~mD[¿+&w4d/Üß2—W58·Â?¥h8~ÍlGξOáå~ò§•eß ‹EF.jÚM\þ%ðó?Ÿ|ÚMê~øÈ_ˆí3¯ôø"צíGgtÇ ÉÒUŠ.@%ÿk§ÒÔª/¿r1/ùż ¾"Œ{ÒÕ¤ªOF.Ðô6¾È±ý.¦] OÃ7lYOË('L½÷:%:¡¼…½o¤~¡€-ê}{¯?À–ùÄY(?×'šö¾ÝpǺSÏ[Þp© ºØ ¹[º¯M‹k@¢q¯€¸Òö£Ç`²ÕøÑIž,œ¬¶ãÙ KP]&”ýãåYÀþÜôªÛû5|ë±VØ-Ú3¼ñ©Ç“žl«&æ’OgfHû…êM'…ïG€O@Ž|FÝ‘ö¤"ü¤@üIâñ'…(£Ñ8³Ë\ˆ<D¥ÆZC惨µÇÕ惄:{«^Jã© Éjm2D[Šß>D)5oæ³fnŽ´á-&¿O±T.yxQ÷xƒœfsøÍ0½\.š†ßüQÖ?ùSÊ ™ôæpDç_¿ù‹É· Hݧ?ùçbÛöŽêlh¾Àϵý~ ánƒý<ð ÿ2ƒ)ØCˆý1ðŽéþøCÈ?ŒmºN‰nˆÁ€ÿòQ\¤$¦®ÿäÿ‘Ž]þ+ðBþŸ±íòÑ HõÐ~5ZIÏOù}ÒþYµg=o;ÔL”óœYlHC;Ó°?˜tµJ™Ob.ú ˆ¦KtBy g‘ú…¶hÐ^€Ò>ÑPë’±‚áéfÑm y;´=¥Ô#¿Rß! .ÉPÛ—ÎÓm|‰n€j–뮣ek†-¤·E:+®ƒ¼NY­´¢³,sNI\§;€={’¯ŽHÝÍÀû ßÛ\§sþ,i˜‹¦§Î¹mI(Á•˜õO|Öoƒ|›´ñâÌ \2æ¿X¹­Š‰þíÀ,älÔÇ ;Òž"H„{â½2Ä«~ÑÑ&9EPÆK¯Ç2q#ÏTƬ±Ö™‚jÍrµ™‚WsýV½›Æ“ÕÚd :'¿ÍˆG;ÍY'J5du½LŒ’}²ÔÀUHIÙ ”ÔuƒÅ!R'ŒÆËuHý£âJ?)È£Ü&—4;ï±³.à È+^)A÷®‡¼¾%)AŒ³ ˆü­À äÌõáx ñø 2ŠÏ.PÆ+R: Ö(WKäÎ.HúÍ4N’ÕÚ$Pç â·I%"Û“O&Ÿ ºNà#ã7Í#'¤~T@\é'®R &MŽnF¬ ¸òò×A.@|Vo|KKrαð·Ú4 êë÷BŽ¼´´™Þ(ß(C<~& ŒFãY,`†œ(c)Pk’«åÍ\¾Uï¥q¬Ö&Y€:ç¿M* Ùƒ|,ù,€ÔuC>ž~@êOˆ+ý,À@™#Lpœ éùö͸uWµ½~Æ ˆÏZ`«Ç ü+×-@ôo^WãD¸W Þ¢qe4BÇ `ÜÈ 2f‘µf¹ú8As×oÕ»iœ$«µIR ÎIÅo“J D¶)ŽºN` Ç Hý£¶lœ`åŽ0Á®ò”)A¬ øzê _^lu×@ø[mš ‰õÀëªk€Toˆ·¨k@ЮfØÈ™€2V‘2µ&¹z×@“@Ò¢÷Ò8 HVk“,@sŠß&•ˆlSì ?춰k€~è„€¸ÒÏ&Qæ“ËšžFÜŒZp%䕯ƒ<€ø¬Þ ùÖ–ä‹Æš½×¦™‘¿ عçzȈð}ñûdˆÇÏ”Ñ.à›6r. ŒW¤\@­Q®>] i8iÑ›iœ $«µI6 ÎAÅo“ÊD¶@–·– ºNà(äÑô³RJ@\égS(u„ fMmB­ øzʈÏ`«³éS¨‰ümÀë* Â÷ Ä[” (£¡øje¼"ejrõl@æê¤ßLãl Y­M²u*~›T6 ²M1 uÀf¤þ”€j²È4L”¹Õ,ÞÜFÇYYš^(˜´Ä?ºæÕ?"Ê´òÅJÁ(D^¢y„ ·AŽ”©DFuÊ “˨:ŠQ+NâÓ\yY¬-Þu8ã®ç˜yÏ(ô4< Êm|ªjmÁ.¿+jä ÇY |ò£ÉGR× ¶¨8›~‘%õ ˆ+}¯/ÂÓ‹‰z}縹S±_'Œ¿i.£3ºVÒ™ß_äÛIûGóá\ªà³¼mLL˜y“Ǹ$Ê@÷ ’/Eø=¡0Öžv õâJ¿ ”à÷¥DËÀ¼™+ŽKPëÆoKÏ¥äÎ/¬vg­ :Â-cB™{kãv…N»­;W2ù"B¾øä’/"% ·@~KúE„Ô¿( ®ô‹ˆ…ba%^D*Q‹ˆ…ba¥UD*åò몈X(VºEÄB±°Z[D,‹[VDl [yiÞÑU°=7„NP}±à»ÄmCæúFÑ(‘‹÷Éù° ¿%ì‡ÜŸ¼Ûð[ÂÈéû0©WL½Ì‡Ûâ9­þ¦V&íçU:ÜÙ´¦M×/ÎFÞk± 'ì…Ü«Ì`‹Æ|7j ÷ièzØ¢íìH}‡€¸$ û¢¸tv-WÌ·²ž9ÐY»81©³ZêQÓÈOyãz…ÕS™ˆô\Šp=äõÒokn,ºyfz|«@õ Ûé-;6íæ–³¨ÇŽ¹ Àm¥:¢B<Ú(éf1Dï­ÀaÈñmבÕ$ž;päÊŒt×”ç•Ý}}333¹Æ  ’{€OC~Z™±:Ç*N˜©vÏA>?׈¾Ó-x8y\Ùã/Ó+Þ”í„*½^[KÃ/©ï0^ø½5.Jï¢ WÌ·ò#~GY¼Íj{sYíaǨx—²Ú~&ÓͽXÈj§Ù?öéù©’nYYíûשü”Y¤“|Ù]ôW$–*Å¢ádµ3ìƒÚi³T¢Éi™Áþþí=9í”çTò,%`y(Qvô¼gæÙ¿pŒ»©›EÓ›eßêÅY×ô›8¬Ùâñ“)íq—µX:Q˜µô’ÿ‡~ÛÇ¥óÒŒ‹å¢mV]Ã@“0þ”Ó"¾íiøá ÿHY Z¹Ï´M‹E'Öì3ó®·¿þoÈÿ[a2ªMêþ3ðÿ@þ?-¨C¦ñK„¯A~M™i:·DçÓàb.*3Ǹ],„¨m.AŒ¿»ðÚÌÀ–ž¬6°}p¨·—ýw»LÉi_ ¼•Ëír3`™§7¨â ¶IUzß@n ûPßx]‰ê÷ÊC[†#VøDyð—ÛUNBŸ6œñµ·s™0íúŽÔŸ¨ap¥Mc†[½ŠjjÿS¬žZYí¬_3 ô³ši¿mXÕäŸ4Ç’Æ^^.k¹j£µ.9$”Á™^‘ ÆE< á)Èrù sß#6kn³Z‘Õš§ä¤ëRu8 y¶u 鿼 Yê¯ÆuÌÐV >Ï_€¬²û5¤Ž!uÏß9~÷ëòÌU1½½›‡¥ Ñ‹ÀW ¿¢Ì0÷6ª]†·më;ﺹéþ¡­9³(b­BT?üä¯%_«ºW_‡üõôÃ9©ÿ†€¸Ò¦1Ë­]E5µÊºùµ µ~"r»>„ë ¯“öij¦ÖûvÛ›èîG¿ó eãR/ Š·37ÊPlØÑ¿ì¨í3³åˆÝd‰»?›qHYáê3¬|ˆÖ›[!oŽíMÛýöò^?1d‰ÉQ;¯ÓÐG¯Ëjr#hïR"ä)¦9ˆím@/®¤,ˆÞ:j¸†î䧴S³Kœ¨)Ìð¦ìBÔ†.ñ›¾ÜÆ{bÞ|BêÊÀWÚø¨ß{â'!Rfzø^¼‚WÔ%!¡Y>þ³6^‘}8ù$„Ô½øÏñJ>Û«2[Y²uû¶ÞÞm[¤lóÀ‰÷ñ3Êl³¡a+·°ï¼ã–r[¶FÌAˆæÏ¿Ë®/°ë“ÏAHÝÏÿˆ]ÿ‚]ÿ*ýÊŸÔÿk¿Ë/EO¿lŒÝc84K£Ñy…Û×oF´°7›ÔwˆKÒa—Ç¥C-‰.qÅ|+3*®À$„ñgT´‡èÅNIÏU,S‚Üjà:ÈR™aH±­%:OmðfÈ7+Tr©ëÞY~GùÆ?é_¼r¼̆ •È%JÓÜ6³Õm*ÖÔ#6{!«›‰ÑÔ#næ çb{Ä¢¬Ì™æÄ¡¸²\ÎßÌ+–¸FÑÏó%Ø> ùÉDübÞ©ÃkFÎ9ù(·ødéõ]ó~y'p òX:n»øä§b»íq¿åW;ßܳµ Ó[…|åÝüÑO­\´=WËë–6nhGŸ±"Ï gyø³6ý4æ ¼ÌTQM6%‘7¼Ê ÌüÀ–'AîNà=ïI',e ´Woƒ,µÉnÃ_îÞ YÝ.\¡€Ôu7B–ê6«{ÅÌ´P²âÍ›ô=?4˜QîFŽô8›€3g”½Í%c®a0ZvH³JÚ›ÚZÚ˜"õÆkLmºV:¡'æ¾¹/Û WÌײÿî»ïf•F1_)ê­Ú™ÔìBÁÕê”týªÞß\½T¦¹@Ú´î˜:µ‡#?Éó0*á~ÈûãWÝÓvõju¤æ3%Cw+Ž1Ò}b´›å‚æˆW¶Ý¬6΢Ìjys$ïR`‚ÿ û{}„ý'7žŸì‰üP/àACNp€?”Ç[ ;@5¥§—Ü„2‡y„]ê5&&ŒM22ÏWÁpä ±yŽSZåÓbõ±gûbÌ ýE¹lXÙjà½x8ÂqÈã-pŒ÷Aw€jc܆§i£èöõñ iÒ±+e-ÓÍZ‰ÝÚ5=Ç.öY¶Õ;­çó¦E;Wdµnãb™¾g`8&-ÉÔ‹}µ¢¿ð÷ãáÞ¯ô…Ÿ<ëþ\Ì¿&ô¼g;™ú/²x,Ö ²z†ýÓ#ìŸþ‹Èú+_>€'!<ùD ÜèƒÐ Âê§Aë0‘fá‡@›P]õ³_ =sÛ†'ž`¡ç¢9bW¼¬Vò…A!ÐÐFwŠƒ=¡ºîÒ€Pd>Â¥—¶ÀIÿt¨ÆI·mÓqÓw>æ¨Wi¥–¦%©ÿ„ ·BÞ›üX­‘J´‚v*cì²àû Á‹?Píí9–:U ³”AÑ’«‘î3Ç»cûíOà±Ç K ¥ÔïÙäHƒB=a'äθìÇ ;@5.{ãæö9ƒ¸0ȇ/);2ãƒ%áýïW“PX¶gìð“F,43cÒ´-q_HþdTÚLW+Ø–¡e6]²™ÿšÖ&ݪ;†ÎþC›œT7ËŠî­ŸÀÃÆK(¢-™~õÉ6>ä šÙ.k˺“)M8öŒŸ¹ †§(a¼>…WC¸òÚؼnªkÕ1§ˆLíÓ Cxä›’ 6™ÚO‚ÎO*¥–©£Æ ÑÈ@­û#·½?«±ÿG·ñO!arüƒâë|o YïL¯Ï€Ëgâú^C­KÆ Ôx©X!¥‘´ýt›Ê¸½þ ýâJÇÏà¨æ}ìñ{-ÖH¤ôß`áßpx7TÙÐ/ûW‰“Pç™~VäÇø N¸ò%ÈF̓Ñ,§²Ìv1a ƒ¦ßU¡›¼BRÈM™–1°}x{ôšì_âIÕ5"ÕŽü,xªÿPÚ³ÿYÐ"ŒÕ³ßPíÒ1xy£ Ào†ºÏ)-^‘ǬI}‡€òѦá®zS4Ç("¥Ï·ñTˆpe[ŒíÃBª€ ÆìŒí4ZSðyØpäUéÛäó¸/@\r/`Þ]£=øßðØm2îHw¬¤;V´ÕÕÜ«é³Nþ£k_?ò—;j\Ó¾ˆ×Š¹O³»Ï+•ûFÙJÛ÷ åûFÇ+f±08>qIZkY\:èüª"®˜oe§¦i‡°RÈ_(ä4 ªºR¹êJ6w"ê™Ïu×Õ">À2˜’p'äʼi7ÒßîZ¡]¿Ägðä#Êܶ÷ôCGö>6zîÌ©ƒû§ºS³nnÒð k:Ó=çëîžZõ£f·ã^sBËl°.å§t'#~×Ó3ïgºƒ}ˆò+wÞ-EsÚÉY†×g•K}%Ý›:¯_ܳ¹Ï3.ö–JÅÞ<=»±{§v’ýý„;ëzF)çäuì|ðWþßTïÏ»ªŽtã{' jùDéçz´µyÌùK`ä7ù'bïróŽYövc?tD¿¨h—ÙÇ劷C»aAö*#o!ïŠÚ£KÛjmSÈѹ5ä$¹AY¼²T—\C­‹ÇJþ¾¥!Š1èwÀµ·Év‰ßef³š7[fiÃRB« ;ÊòS#ƒY-o³ÚødV›tL,nËFö1b¼ø0äøíÒ³ÿË8¢Íàô虃XX52{Œ»m±ͱ-3XäéÐÏþþþ¬æ–lۛŽë®;ÒýéVÁ„g!Ÿýt½x:aX@Ýž˜p o„V¡je›=â7Ú@å¼< {!÷J—ú¶ÐfWÈ!ŽtS8y0~³+ú=ºi¸òæØD¢GaaÊ…|…•P¦jo)P}^Ô|³ §5ÀuÕÇ4 ÂkÛj¹€º™4‚01¾x²TŸdý‚k SQéÂW|l°† éEÔì…, Åo%"Èû ÷µ BÝøzŠP4þ¶¨>B-¹Úx~Vk€·@–Ê×¢Æ(a8²Ñ±¤¯ãEŒo…|ôõ£Öáå¶ F‘Ú`KcÈ[£„ ùu£(,&£šÍki q)Ý%4`ƨΌD[ˆ(Ü ¼òé•bR{'°rwì7qgæ/ÖòÇ1,¯8«™´ZˆvN1¢ïÅDäî%\p•×] '¿Y Lª4-Ái 0ÕvÒ­0¡ºv’TùÊ6ámoK¯|“ÚÛdíõV¾‰ÜànÈ»•ùÉ¢±Š«O6ºÖok‹[žÅo#wÊ“úqIºÈæ¸tÈE– ˆ+æ[‘Øqü˜„°ÁŽãŠÂmû¬­.çìm1ÒÎFwƒnabšô¼´;àÚ„wA¾Kú½©›—F|6ssÊŠyè,R§û ÇoDŸ—Fúû”™Ez^Ñ>ùt¬2ÜyOl«,dMkGÆ0{!Tf˜ÓÒˆÐQàÈgÒ1Í!à£mš9í4?Tšål´çå™YÃës%s‰øYà«_UlPjîJôÃÀOBþd:}/ðS??–,jŸ~ògTÇÀi)»|ø‹1»ü4ð— ÿRüü3'a”/ ˆKÙÓ›žQ QÛ ü2ä/§Ÿ}“ú¯ˆ+ýt÷NîÑ>&—îvR'º³.à È+¤3ÞÅs­§é­zÞ£™žCåe Ó›2"—;qa²|‡øÜ·Lxˆ_ˆQp;äíÉÇR×ÜyGl×^©e Æ„^)²š;z @\v‚üʺ™¶e©„”NƒüX:6: |òã±m4ÝCkŸ‚½òg¦ ¿<þk^b‰–c¸f¡¢]2"^šÿEÁ(^Ý î”])è(µŠË¾0-¾ªŠŠª¿½YÑörÚ)Ãñ…'€ù•ùÂ↧›Å¨‹‰Ì÷€ÿò¿Uæ‹ÇÜG*¶æ ÿ øï ÿ»ô³RÿïÄ•t6@ê:ÿòH? õÿQ@\égwqö1¹l`A9uòê.‡,Õ=l RGè &~dqgKãv‘ :~³b=îÎ4 BvÅËÛ%ÃÍiûf5ÔG´(M³Ë‹O¦“ç;+RÄ’ Nô|«€S§b§†+eÛ´"/d&Nà%È—–ÑCqI ¼ ùròU$©3ÏA~.v™¼w5ø£íOåw£†J"tø2ä—“•¤®ø äWÒ•¤þUq¥*5^®|L0Tæí¨ µˆP0~¨œKè÷Z½¨Ík@ ¹Í̸í §‡¦I‘Ïóhyä‰êóô,«€§!ŸNÞç5ø9áÈR]¡ñ|žÔ?* ®ô}~ü|C¢>ß1>)Á« ¸ ò2e.âš]~\Ï_˜ä›êWÞÏ (¿@nÙ÷é¡VÇ K­¥æûàï„OA~*}ß'õO ˆ+}ßw'êû4•T‚Y0~GÙÜÜøxÑž4óz±QÓ^÷g¾ -u½P`Y2»3h¡k’)Sf,ñl«OA–ó†Û)ûcÃJFXŸ q)§ KåèÑÒnx?¡ ÙŒ]nïÉiûY†N‚ö-ˆÈE{¦FTÄì<ðEÈ/&©H]'ð­ßš~¤"õoWú‘ênîé>&©–k%Øu×@^#­ævë;M£UÙ5*[<=x!†¹fÉ?k­ào6£<¢Ñsß|²T!iÑ:i]gÔ€FTÞ|²ÊeH@»å•ðȯÄ.0Ûš4í„UœU2ÚO¤_þ&äßTfFùéNÄç€ùOÒ±åoÿòŸÆ¶å"©>4âð=à_@þ e¦‘ìà'2?þWÈÿU™]štð“ üÈ¿vŒšú¿WÒ¹©ëþä¿K?7 õ/ ®ôsƒ{¸Gû˜\n°Ð߈@‚ZpeÛ¼cJb6cƬJÉpÌ&u»jû¾HðëÞùéÐ;—×™&m2¿×”:LÝ Ö6h‘í«>?ò:ÏgQK=Ú:àyÈç“/ ÷Âû /@¾~I õEq¥_6Âû7&Z:i¿# f]Àø½¨sMקs’ öå¸á07rt¿&ôk ôETç<5ÉCæôJÐfO=Q ÉFÜGø"ä:ð6¢`¶°Ô¿MÀ–uàmBÁØ”h!YÄw“àÖ\y•²,ýé«TØË·–ĶÄ<ÿÁŒBÜ®:zƵ@²­.O—éª#*ÓÀYȳ KhH÷©+/A–šú3gÛ¨Šô_>YjRN´Eê:W _I?@‘ú7ˆ+ý%lü’d-N»J0몯ŜS‹OéUÆžc]ÇšIÇ0¨"ç1È_W0'E¯–…eþÜÕm’ó?¢y}žNxrüM#{=©L@\é{}<½'Q¯_èoÙ$A­ ¿ïláJèÎd…VJúG›pçdD•|¼nrWÜj—b ðäʪ]¹1ÿ=Â' ?‘|½KêNŸ„,u|GýFÔ¸ ‘ŽCWfÉq"sø,äg•¦É¸ )ÌÈNüèµn õ®€¸’®H]'Ѓì¥_7úŠ€¸Ò¯îãíc‚M6¾ƒŸ·.`ü&Û\N„U“V~åkc-B Aƒ.ôO¿;Ï-ÛzÍ«“Èó#é±ÖÇ!K…¥h%à>x=ar>ý@ê âJ¿Ü¯¿?Ñ° lG­!î‡ËªŸßæþŒ¨é÷K 7’sîûQf G $ïÜ÷á wCÞ¾s“úÄ•¾sgáÐÙd»èÍJëª_÷ruæ»èåuÃä¦eø;äV×ÊL}Òÿÿ« Ї÷\ç´ÃZÅâ?j…¬ÿDp˜"«î¨iÍG%^Î*àG!TYÂzC>ÓíÚE³Ðí.Øžgº{¢6+ˆÙO¿ùKÉ7+HÝÇ€_†ŒåÚxuQdÔ8GL¾üäï$çH]'ð× ÿZúqŽÔÿº€¸Òs½ÜÏ}TçÛBͲ$ÑèÆïÖ˜[€Wóe˜Ah‹\7«5@ ²–¼ÏöÂO …E:iû,©ï—¢§ï«š¥îÛáš9`‹¶ÐÌÁÇÄ%YZöÄ¥Ó‡ ô‘u4>Å¢Èé`î»;eÏðžnvÙŽáùƒuÏVtË3‹†?‡CN=¦öŸcŽWxÌ›S¶c^bI2eY®Oê¦åzõ‹ìk?G9våñûï$’‰øžúá1„Ÿ‚ü)eiÁê¹çDÍ ˆÖ¿~²ÔÖPÑrR÷iàW!5¶÷lÏjBg°¿u?Éç¢g8,I,Ϊ4ê/ ùÇÊŒºªjT¹m~ˆÕÿàؾ˜Ë„iØô v —Û庿½½'(ÎÓ†Ã#€_˜e¦Â³¥À{¸LÃl —STýJ‚Þ^àa.*³[“y±+Gª¤s,žJÇv¯í»¹Ü.Õ€oøË÷p¹=…sÞIݽÀ‡¹Üÿ<½íâ|ÜÀ«Y°2-±ïÆ5ªÉoëº=¹¨u3Ñ> | — ÓÎXxᨢšÄé–"bïÑ¡ƒt©qŸeY€ßü§*~ÞºV£³\Þ{ÃYmÒæSÜ»29ÅwèÏö÷ðîâÈ/{OFø ägÒÙCP š—} ^vÜl›Áˆ0ÞÑšj°Ÿ»€› oJ>¾ºõÀ d¹m…oÛoÈj¦?î¯F,Û®kŽý韬X4_*”¾N ú û¹<í„ÇŠÕ¸N[ã!nÕ¥á~¿Ch¶Õ«.o­N¢›4§ K+±SÔ2B@ÌjT£ï·í ÚFí¬aºã†3™Õ¶bíBm⪯¯öÛyÝ¢™xè/²OüROÚ$ü´‡cûN.*òÓf3…›¹hû>àA.·KmÝÙEÛwq™0fË„ãjeÌôp’Ëí“é˜é,pŠËír[¸‰ß>˜ç»RÑç«&tG˜ïê—±CŽiJºµÉÕNUʆsŠëHåçô&ð \&TœŸ/r+e·T‘àöuà¯p™0ä|žÚ/•Ë„i¸Õßár»Tù¼©@§¥‚rû¯‡Ë„ª‚r“‰ŸMKûwÿ— Ó0Ëïÿ˜Ë„1Í" ¸¡&eõ«Ÿ6UîܬY^ø§ÌI*êü&W3­kŸûëGL‹’×ßäÒ–áºþà›„íÿ„cÇ^.ªêi/— úår‡TuÙ :tœårGü¹²^¶~Iœó­‰cùšÍ'%×ý<È1&u‡ÚbºëoŠQM9ÙÔÖ¥ÄO/%Ü¡ã1àïr™PòÉ;ðmvÌœ0Š®qyÊ+¯\3Jå©ËWÆìŠwy,s÷ÀXÏúðYëòÝW® ´ !Ô—ž9upôØÞý£'Bøÿð¹Ü¹ÓËçÞ±x¬tÞeo§1µÆk¶ÙcJ¼ø?ˆÿ‰ ñêàXÇUÇèÈIÒh<[w,sa¬'ìÍÄiz³‘û&é îŽs™0æ“Dî›Ü‚Рš¾É嚦•ìçÙ „Ë!ËyUM¨·—€7C–:Ñ5š·“ºÀ[ ËuÍŠßNVÛYͶxZLX ÖØbz¶i‰½õ,'ÇüUZSkä&sY*¦xÇÄ,íŠ_4Ys£G¦9A¹øFÈoTf÷e>í‘n–ØvËXÿ­ÀWÚbìOÝúo¾ ùÕØÖ_¨e¢›CÞ ü ä*³M·L+}øÈŸIÇ4þ4䟎mš\OÖox]½ðÉ–¯Ÿþ1duùyP¾X*_üä¤cÄ?þòcÑÌö›`¶ô×DV<–*ÁüÿFc<ób«MÛSêÓºÉ>)J6ª¤ÇüÇö“\&Tdùq>âsxŽË„)X¿ýà3\&Œiýc¬ê;dúšj•«?æç÷ÛÑôuq½ß‹',$Ͻy~o^t ·ëÀÏq™ðºé!ÞŸ~™Ëí‘g£·¢†E þâñ{`”ÑP×£ŒR¤µöPÞ“ôKiÜ“¬Ö&=0êÜRüölOV\ƒ4eÏ°Ö»5Ô²%Ûõhv©c”ª‹MkUëYbñEN€ÆÀ‰|ÑïXÉeBEen1Ϫ$êÔŽ›€·q™0…:µcðv.Æ´ôfÍφ[•zÖ`M¿§hÈš±ãàI.ª5㌑u<ÅeÂ4̈Ԩãi.Æ4ãcÙy&ÌV—ºK‹ ø§é–_î‚­Yš£©ãðK\&Tdêæ+ó›ZúÀ_å2a–þ2ð;\îˆ?—`¬A“^8_ÁúŽ†ûðUÑ!ûà¬0™ ôd¿Æ‘ºXI&Tdí&«Ð›™zÁF`†Ë ¤&F6õ ØÃå= bsµ9cºõË݃…¼NuE0luE1¾ø—HEÁ†&l—©\j\iði ÁåFlvd%JÔ‚ à$—HͦklŽAsX5 ®4Ì1´¹LØs”ÏryÔ¾GÍ!“³,¸XÃàJÃp–Ë„1ͱ(+Ù³àð\&Te’Í2&yk ƒ+ “¼ ø6./ˆ¿î3Yzgu ɲff¶Õ*—åE{&Lœ/k2KŽÛÓAÊÉ¿rÌÉ)¯~Ϻ2Æ~ øC./ëEnd쎩ø·À¿ã2aÖF÷ò‚¿ç2aLk³Ü¯¨ç1&üÁ7¯¸‰åýIoÔñ.ÜU]TÛ‰Äw~úòŒéRFÿo;Ïr¹Sn–_C£ÊñN$ç¸ìcòFï| ø —}Œgô‹ Œ^_˜¯j}nàë×—þÀ ¢¯å£§F{ç÷¸ì£š—¾d¬ n„8o…?uGn¶hßRß! .Éb°4.azkâŠùVnÓ4m/s óv‰µKiCŠQ n‡©oƒ,Õ-w{—PN˜Ü6Ví%hu (½qEC:Û¨Ð_ìõ—¨çmÛ)˜ËÜ9áÄ!3,døïŒùÀý÷+ Å!»ÁºNàÈÒ ¤þ €¸Òwñpëɺø¬­.pñÙÄ]|'Üzgº.¾n½³µ.¾n ïe.~ÜöŒÚº ¿Êa†t ¯âXF5u¦MZ7}²é.Â^È½Ê ¶hÌŸ½R#“®‘¶–æ)#(ÁÆËSÅ¥³»ÍOvªˆ+æ[YOsníâĤnMjšF~Ê×+´Ü3"½`(Âõ×+kÜÜ<3=¾§Ä2[–·÷–Û?ÍÎv&%Hnnƒ¼M¡G%–z‡è½8 y8¶í¢wû‘þíÀw(3Ò]SžWvwôõÍÌÌä"+d‘Ü|²Ô€bc­c'ÌT;ç Ÿ‹ŸŠDo'g€ãÇ•=þâ1½âMÙNH iÇûnaø%õÆ ¿·Æ¥Cû8­WÌ·²‰…_Ú!#«æ´¹lÝN§rZ»eD$»f#ŽSTÎï­®b¢ŽÓš`õ8õ•˜­u ×5mK‚r8 yTav2ûÔe€§ ŸŠmÖÛsÚQÛ*ØÖmÿ”^.ÑP6{SéÅbä8@ÌNmÈvúÅq?Ü(@5Qáó!ëÈjg™Ïöô3ŸßÏÞ`%ï¯>§Ê¤W·ôâ¬køSÜGk ¢ÑÊzþ‚>iD.+ð0àíÒаNô!<(¡ Y®FoTXÖ?ÄRqÚuU9uÏ&AsøÈïI¾®!ueàË_ŽíY-S.ç´Áí½½ƒ[63GØgçumT÷lfÖCGY¢6º_;éø»ÚH¼¨W€_ƒ,I®=ø±©oû¶á¡-Û7G~DõW?€üƒäƒ©û:ð‡ã/ž‹uHýÄ•6¹µ«¨&ø©GO·XûñË¡ý&徊;ÅÚ Ym_N;â7*·³pÆ NÇžëÁ|õ¨gkÆE&9†FXöªtO÷wlŒ\RÂS!Ë$ߨ¤ÜtÒÍOÙÁ!ÐÇ oÊ.DzD; ²Ôü£hQÔ•€/A~©6é;ðß¡ÌB¡›ÑyU@\I'ؤîÀ÷B~olk¬È °daóÖÞÞ-›¥ŠÎû€‡üqe†É4ªdúY‚=Ð?<Ø»}xûc¹¡Ü@nsh)¤ž!¶Ÿþ>äßO¾ž!uŸþä?H?À“ú?—¢§_6V¥Ôh¶Ï^næ¶Ãm*k—Èï€ÔwˆKÒo—Ä¥s¤ž¨æ”‰™Ã$„ñg´‡”ëÅX_/An5päu ‹mÈÞ¨à „7CNaÃR× ¼rü s¢×½¤=ðVÈ·*w‰Eä¥) n›€YÈÙtù¡tüb'ð0äÃéøÅàÈR§—Ô½ûƒþläàÌJÖò„éñõùLe¾ÏZi<â·ÏÜ`gÖ‚£ÏX‘‡•®—k¨è .s ƒv0 ©‚©¶;ÚÖÒÄ„Ôw/1Yu­tB'ãc×2qÅ|-ûï¾ûnæ(ż¿ï»ÆÚÆšcº4‡ö#äã·õ«f]ÚÖ€„iÝ1iÁ­ùIŽÃ¨„°aÌ'9^Ð=mW¯f¸ô8™’¡»ÇéífqÕñʶ›ÕÆ™`“Y-oŽäýO Lð?¡n‹öŸÜx~²'òCÀƒœ¨À¤¼6”ÇIèPM鹃܄‚ŽÃ<Â.õþ¶Q~ ŠÌñð"¼òñ92/%`A03kfµi³fÓèö¯Q¥£ÛSrVhÏ5dOª‚Ú"2¯ÓàB¸òšØ¼n~öYªÅ2Ì”YmÒ1 þþ}Ñ­wŒo†,ÕRˆi½G¡;@5Ö۔ƒyÑ(ÔFœ5îÚÅ tÇéTAÚ–¾gqÝv"?ÆYP'ÜyOìÇèmP`GWÑÞÀž€QS€OÂX³“cºÀãÐàë¥?.O¼. ð“`ôdÜÜPíÒ1lÏÔ¨cìÔ)5Xäü“Ôw/ÿœÛž[8EN‘ÒSm¼Ï…pe[Œ³CÚŒÙÛiÔáþì@¸ òªômòî —Ü ˜wWÇh£Gþ÷4»MÆ鎕tÇ üÊZþÙjú¬“ÿèÚ×ÀüåŽ×´/âµbîÓŒôy¥rß(ûOiû¾Á¡|ßèxÅ,LJ Ææám›Çûû0Õ¯¯¤[}<ÑÙ¦¹àµ¾ôü¶ý¿¯¾V¦p=ðí¡ÝazÁÔC÷n × W¼¸²°Ýxðʃ3„΋‹gNêÅ €E¯Í-»Â—‹ç•¢ƒVÞ¦–Zíe.!fþsïýþågÿrü¯µ9.lʹøä‰S‡Ë{Á£ûÿôj?Ô5WÙö¨Vá/³j‘esðþ?Xï1óü1óÿ ³h4¹åZ{{,½Ô¨·G¨ªåJ˜òýR JíWqIÐPçÿTY-®€,õjj]4¦M½QÝÝ÷ÐQÿNÒ6 ©_% .E&éB)jrnsˆYÀ„k ¯IÁ,ÂÕõêçýsw5^¼Ñ‰¯b“ö – Ï+óû…´I{wÔ]÷Cޯ̿CGhèÚ<ù@lCvDž®C×Aà!ȇâòè˜3'‚ÕOËΓ¬^)zîˆSȺž>iŒ8†U0œ§.Û{ú¡#{=wæÔÁýŽS?Ì©Y77ix†5éžóuwÏN­úQ³Ûq¯9¡e6X—òSº“¿ëé™÷3ÝÁÔ¢|ÁÊw FÑœvr–áõYåK½©óúÅ=›û<ãbo©TìÍÓó±»wj'ÙOÑO¸³®g”r”íeº v>ø+ÿoª÷gƒ%@#ÝøÞ ¨Z>Qú¹mãFmsþùMccþõ»Ü¼c–½ÝÇØÑ/j#Úeöq¹âíÐ.O؃@G¯eÌäKL9}|’}ƾÊåúØÿ}"cº«;{åÊÎ]}PUtø—áhÌü#Íþ¾î‰wWäÊ&öÑfo€½©þÌœÇ~{¬{S¶ÎDYöÌu?ÔsåJX¯J³møéz°­Ö·þ`[Ýú½ksxºcÞ6üËÇŠ¶^À â%_ªöâzâö§dØ‹tA#f_¼ÞÜ*bú©ì-6Ö²o¿­ ;%–ïÊÛ–eøõ÷îf:a]0¡Ï²€ò$¥‘x’HíTíRdÛåcƒû\uåð¼üLìs™ÓgÛÊC”:Ä%:–ÇXÒøŠ™¡Mš¹:«-”ÐR¼mÿg wI¿ ¶ÐŒ°`°yê—WA–k«‹ßvDòXŠýáÈRó˜"Ø@¾,]µ¾J¿RHa E¸²T;¬!§MzTšZ¼²T—BC­‹ÇJþ"•ÅíÀ!ßÛ[7,Ïpø ®YíbÑ,eµKþ/õq’Ù#»½ ¸òîØ„‡4þ?Ý»”eÿ™Íj,Á-»#Û²Zј6Š#ïñ‘æùLš¬!4¹p^hÛä¡ØÌw€¹çè–;‘Õ<Ý™tY%?528ÀŒ`3Îã“ìböhN>ÇÚr#ýýÑ@èœ7iŒùwáò†ï3s¾s@;ÅE¯Ä>ì» ß•^=@j5à=ïiE=@în„,ÕÒóWqY8$1À¸j̸/~9_"õÆË—öÇ¥C÷,WÌ·"± D˜£ÑhAˆ¢j9òîªD§KÀ9 f"ÖÈ æйA·Ðû)ÝùIÄVï‚,VÔt~—Àû ߧ¬ˆ‡v~’: x?äûã—ðœ„E²âRöô!}’ºN`/äÞøO5 úœ€¸Ò(k¹;û˜\@YijI n]ÀUW)‹*çƒ%àÂQÁåÕÑkçúñ'0 ڔ혗lË£ƒX5ì§Ê']®g–hì&ãŸEeLè•¢¿ÍªÄs×åª V~J5X‡ço…üÖ䃩{ø6Èo‹]N:z¢F+Òÿðíßž|´"uÀw@~GìÇ­Hý;Ä•~´‚?WÇVÔÚ•`Ö\Yj®KCFOboyÆˤ5Oh+8­ÀO? –†ù›nh†ôüü0g—è2‘ºNà4äéô#©ŸWú‘éVîÔ>&™ü9UÔº€ñ#Ó\Jϳ¨d8fžW¸Ú¸áÍ,ÌôûUô@¿8ÖÇÏ|fOtÞ!Õ5‡E1Þ—ÓN×G0:ßY¿À{¹Ž Ç.ùÿä3¢–zk€ï…üÞäKÌ­(%„ïƒü¾ôK ©¿€¸Ò/1‘ÉIƒóé‡ܺ€«ÚâƒÏåôfÓòŒIó®/µú½À>,ùKùÉé6v¤»ªup˜:Ê€Úð¹cW¬«ö禃‘ûÈé5¬¾r %æ6”’ÛZ[bnC) °e%æv”’Û“-1|b¬·.`ü³p§ƒÕ¬U(2z­CꟵí”Ä€’1r“¹ÈÛþÞO'|ò£Ê2Þ.NxĸXŽšø¡§€'’O|IÝYà$äÉØå`ÙNÖ>74Ú“TÆ@S@²T£¼ñÒå`øÈoPh›}wI |#ä7ƶMoÏüÞK(jº_ø$.DõMÀÏBþlò• ©ë~òçÒ¯THýçÄ•~¥rw}l¸ø«,$¨uÕw© Ûþ¢F–e•‹«Y†AÓœÎB­êþÚ´©Ë¼à5À‡ ?$ý‚£E©Ð*„Èœž†|:ù*„Ôž|&~á‹zHý£âJ:ôºNàYÈgÓ=¤þ1q¥zîäþìc‚ãå|ÔCˆP0þøÆÜÀ³½:eÉ-ÛÅœ¶o6hŸÑIš]6,-o:ù¢Q­\µS,I’xŒUÀ!?+ò4Œ@e›µg£Ævâtø8äÇ“Ï“HÝqàŸH>‡€OB~2v‘»oRäOŸç•Yä©¥Dh hA¶’„¤®hC¶Ó„¤¾, ®ô#á]¼\ù˜`$ÌÛQûŽ‰PPýHïíö£ç=ÚÅsüCë{Ä2ã¶S0œZ•k;Õ)Ÿ~À‰êêô«€C~8yW¿ îMxòÑô]ÔWú®®Á½µD]½c|R‚WpäeÊ<ýÐÕKê»Ä¥èé»Æªfi {5\sWÚ¯`|<@\’¥¥/. JH€Ò›Š4Ú EFÅ3Q2þ,=ÚÈÃ3Kt^,íA½8îètü©kÑŽß^uìB%ÏçÓÔîÉ lÖ³Á8ÁöÍ=tJª®Íè³Ô”ö{¼ƒ½\~®jÁœ˜`?jyZÙa mׯh´Ã–Fg’õê–^œuéäKV¬gý5ºÅÌô;¬Y­™l± jÚðq·é N7ËtQãÝß\Ìo‹×·áíq—µ»ÙSðã^5×¼ÄXQgeÅËÛôüìΙ4XßÂDí¼îò ‚&m&˜™=m8³üOz"Ÿß§ï!q¹ÝH¿Üª)‡6ÌC9…¥ÏVôbý»ÙºMâfø>3¦ÅÞ¦k}‰®§[Ý)ðÎcf'nÎÚr<_AWLć¾JhC¶¥zA`™tHHp€ŒQ*O]¾âŸ2–¹{`¬ç }ø¬uùî+—ï¼r·| oÌ}Öñ.OŸ3ç~–aŸõ„<]ÓãBèÑÊÀW!¿õéŽyÇ…,+gO!„=J3ŽdHB|ß+ð~¯ ïj¾ÐqÕ´…Œ”$†£«Ç2¢ÍÇÂ,vˆ2vµ†œ¢Ö4AFÖˆª/-z?M™5+›­²œ_0SÖºq/Ñb$~»$Kõ»yÈæ#?"Í&8ô5!ìá}sÙ¨þÏ€?ù§”DõÅ,ª»É†õÏÄ?#C\MXWB£aX_Q{†V; jm^í(*gâ·£Á²fêïËÛ¥rÅ3u\6ë{«ïŒÚÏ%>—ç²c?Wäî¶wÔ*ªénûŽ¦ùÛM»FÞ¶ 4Ó2œ>·DóZ¿£Ó𤋮vÚÚ;zë{CçM‹^Ô’Y(«½¤ì·{ü%žôú®ÝF‹>38!Ï Îká'"Û³/ð;¿“¾=û¡:@5öÜØ“v(`a¹&öb›u½ùõ; P†ñ1„.Ô¶½÷*«]—ø›¥lßVé‡í@tž€|BY Ý;€Ôíž„|2¶QoÒ2Ì0æ|˜ÁP‰„¡Õõa6Ý—¿©•ŠÀ2är:Vš> ùÙØV:ŽA ê zÉ\¦ÇE=YnÀ9£p(‰¨ÆüYß»wг8ÀoAþVËZGKÆÊ%m ·}k[Û›|-¿úsü_Ñ[?ô@ßþ)ä?¹Z?Ä÷{ï?•á¿õ£ŒFÃb¿|,X:rsG³H͵f¹ZsG(­y7sX]Kil•½7g’ÕÚ¤9£®àˆß>—ÓÎXƒw„é®[)ñm+ƒŒÖÿ}†¾Ý,?íó¢ŸSgµí[î­ß08ùb‚%ïu3(ÞEÍP…7Ð~š¿öSé'ʃÜs«¨&Q^Âå³TSGd3„K /QO—å j=s0j2EŒV×C^Ÿ|2Eê–o…|kló¼=[›VSçl ä°ö¢ÿžX G继Íouæ´½´¤’eZþ®Âbû§úǵQAVžÐ¾œó+Q½•^ÃmÀOCnÁÞ>›ášª)4ß`…æpÝuþ¦}ŠÆ¬²µ|Ñv`Žί¿TÝÖ©CÔ¿P×£@Ö)šå2Ž±DËë­uíâ4ŸmZŒ¥îûE•tgÒ´ÜúŸ‚ŸTƾyô¼6Âo@þF¬’Þp~Yw$ˆýð÷ ÿžÂ‚²s4©û5àïCþýäã ©û&ð ÿAlO¾Ùïyb¤0ëO¢QM¤þøWåƤúF)Ô7Bkbò_ ùoÓ±Ò€ùïb[iyuƒŠèÝ|Ääïÿ òÿJ?oåv­¢š@|œâã¶gðÎYGÜ¢ ïïDCá’wØÒ ž@ò›óTß1ǧÏݳè=âÛð„Ç!WæcKÆ cXl´ùEÚ†•¾ÍÈF%õâ’,ö«âÒÙÞÆsÑqÅ|+˜íÕ º§kŽ^2ø>4c[´7ÉŽ¨4wÀ`„ oˆMSb§ŸPN˜ÜfVíQw$:]JïaÒÎ6ªÞ.öb€íL˯©oBú!Âß½Ä?£#ú¡VD~p?ä6³"uÀnfEê زͬvÁ­w%ëâ³´ºLÀÅgwñ]pë]éºø.¸õ®Öºø.¸u€-sñ¸õH¢.¾À,DÝpŽM¨~×Ø›ø&?•k°KSäíÛˆÚ*àÝmÕíc“vá¸-¡°ÃfÚ.LêïWú.¼n»;Qît£ï»~K¸¢-î¹s­©ù°Ü®°»q¡YKÞwÃg 7@ŽŸÁFö_Rß- ®˜4†êÚ”þîêµÜßEð*ŽeP¯É´éšãÅÙÈ Çàã„BGº"³-ó»‹CH¤kO[K›¤¾CÀxÍÆEqéÐt¥âŠùVÖÓÀŠ]œ˜Ô­IíQÓÈOyãzÅp´LDzû`(Âõ¥Æ3ö­Ý<3=¾‡öNœ°^¬ ÎÙNÔC“ˆÜà6ÈÛz´QÒÍbˆÞ[ÇcÛ®#ò¤ü}(]„; ïPf¤»¦<¯ìîèë›™™ÉE0VÈö>”=§!?­ÌXc'ÌT;ç Ÿ‹ŸmDï%ÏÇ!+{üÅczÅ›²@C¥w[KÃ/©ï0^øÕâÒ¡6Ü qÅ|+O³ð[Ýj6«æ´C9ì8Û“Ótôò”¿DÁtËE}–ÚƵf§ôiRã{Í6Øp(§E|ƃ°öA”¸vÙ×0<¬8Íj‹6ãuÌ|ÔVQ2€ÏB–š’B†ÌÇ"uç€d§›ô»@²§Ì2Cý|.ŸƒüœBsŒÛÅBˆÚ ð ä+±Í±*3Ô“Õ· ôöH•š7ßYÝIl¹ R-Ø&U¢}ý¹þáþ¾þþÍýÛú·æ(Z°6oîµcHKœßü6äo+´ã´áŒ‡¨}7ðW ÿJúU ©ÿUq¥Mã7{ÕT¸•Ðªe¼‡6Ù±¨ñh[t!*:ìΰø±bMSÐìBµ(é —ïÆã̲ìOòEÓòÿ–Åt½½Æyû s;GEegÝ)zöy—&3 fÞ´ ŽÏ_…üjòU©›¾ò{[Põþ÷ßßã\dž&jß&AçŸ ˆ+隇Ô}øBAÍ3Ìjžááí½½ÃÛ7K•žòÏ*3ÍƆ5Oÿ`Ÿk–r›· ÷÷ocõP¨ýBjâúóÀ?…ü§É×8¤î³ÀïAþ^ú¡žÔÿ™€¸Ò¦ñ7wÕÔ8»ç×8TálßL{ÜÑNjz¹\¤u‡Ájq&Ldç? Þ„Bϼ"çï;bW‹‘ÃhäÞkbÑÄÆj•Â¾ÛëºvÞôŸG‚üA`×»É×)¤î Y®!~½N!ýà4äiuÍ™áí|®ßù ÉW*¤nøFÈoŒmŽ2›©ZìíÜ<(U¶Þ|/d¹Ü#Z“f`ëàÀæ-Ûs4¨I³mëðÖÍ+âüào@þä+R÷>àoBþÍô#;©ÿ-q¥Mã7{ÕT0§X#ŒQdµ³¬E3Ø?ÐÏ*˜ý¶U¨äýÓêÎX¢Ä”O†óçžóni­¬ç/è“Fä’ñ0†ðd¹U6 {Ð…ZG¬hNÙÞŒîDm¹É'€!_L¾–!u§³g[PËþKÀË/««e†¶Jðyøä’¯eHÝsÀ·@~Kls,÷;Íz{7K¢¯@~E™aîmT½ oÚÖwÞusÓýC[sfÿPÄZ…¨~ø5È_K¾V!u¯¿ùëé‡sRÿ q)zúecŽáŸ–—7Í"?ÀmÜv´Me]ùúqI:íò¸tŽµñi>*9BQfVÔq˜„0þ¬¨°…W‹’ž«X¦¹ÕÀu×),¶!‹¯ŽÃ „7C¾Y¡Úe=¤®x ä[ZPñ’þõÀ[!Ë-2mæ‹È%JSÜ6³³éxÄ`/äÞt<â6`r®EÑì‡Ü¯Ü#–G” Ï–`7<Yj®vtŸe„,57;ºO A>Ô"Ÿxø䇒ñ‰Éb©$Áî p òX:>qøä§Òñ‰ÃÀ§!?Û'eýu»oþ°¹Pí1-ÁíYà4d©ŽËè^q8y&¯0€!KõÔ½ù}þ"×àTS­ Ó V½ÒwüLê¹ëd«‹d#O¥#þ³À_†üËÊ^ß’1×0è¤ñ,âm-m»úãµ]n»V:¡ËÞO²k™€¸b¾–ýwß}7ñNûx†V´'5Çt/(Í9 oîanä'yF% &LJ­.«_0^Ð=mW¯f¸ô8™’¡»Çéíf!Õñʶ›ÕÆ™`“Y-oŽäýO Lð?¡µ#ì?¹ñüdOä‡ŃŒ¶Å\1^¿°…ñ‰LEècõ›3í“*@¡‰§z²^Žù„ü'´lä,€‡#ò¬êÆO8¨¶w ·yst§} C7þrèMú8™)£ô³êBÒ=³æ“›ŸÊjEov¤»à/—ˆLO!á&È›b³íªò‹Lèi ì‚¿·7z™;ݪ)s‡È#…Q[³º ÀÜ®âo"Öø´ÁÈó €ðäø!w4©0£{¢^„w@¾£†‡î_Oud|_'ud4[YGР³õû -[FqßÇÐÍ#ÓžUÂ~Èý±i¯¯Y4« [wF7ï$8®‡¼¾æ‚îÕ˜·—ÌëNÙ3bV²·g>2g< {!K„Ôq¾E´­ÇªwbĸXŽnÚó Dx d©1´†j—Ž©Ó¡á@÷I¨» Ôš‘;‹H}‡€ñ:‹æö».œ¢‘4Ð\ y¥2£,»`ÌÎØN£É3EØpäUéÛ¤ˆûÄ%÷æÝÕ1Úèуÿ•ðØm2îHw¬¤;VàWÖòÏVÓgüG×¾~ä/wÔ¸¦}¯sŸf{ŸW*÷²ÿ”¶ïÊ÷ŽWÌbap|x 0`lÞ¶y¼¿³ ûJºÕÇQ.x¥/½Ÿmà﫯”)[@{gX!aŒÞ`c ™¢Dow1pd¡S5xÛm?æŸ-œÏœ>Ô‹] ½6—‘ðåâyè •·©Y{Kˆ™ÿØ{¿ùÙ¿ÿkmŽ·Ç©.>yâÔáÇò^à<þ?½ÚuÍU6Ý ì]Ví±lîïÝá÷ê}ežç/fž?a&·\눌¥—ÈÕB£¼ò?¥ŽHí qIÐPæýTK-.‡,õfj]4¦M½Q¥Ý×ÐQÿJÒ¶©_) .EYÁËÐUæ`…Xf¬Ax#äS°Œ0­Q³0-ËúuâRd™å5Ë„f‡¦Æ ¼ò )FÇñ¢]Ö!â¦~àMÒþÑÈ0û÷±Ö¯vÔ´ ÝÑÎXã¦ÄîI‡Ö óqoéÞ„"µÉÜÄ͸I;1N{æDÝ#c!lHxò…öôL¯Ø¨RZ ë#Ò¶'©?* .I{.K‡®•ÊGdñÛ¢¦i‡Ä©Á!›ãänEîn•ÀÝÊ‚»eö=sÒí zVyªô ’3ÚÜëèŽ|Qw]-âÉ'¡ÐnRT –v£¬t‡%MaMzâã/C¾¬¬\„Ξ!u%àsŸ‹í e¦T…+À7C~³2Ë,éæqKÊ0/_†ür:†yø äWbf”Ö ÕÍ.©ßÉ·[­@ÖŽJ§^S~NÍ"b÷ØÓfÁ(D^VCÏó*ð?BþqŸ«cbÌœ«\bBoê¼~qÏæ>ϸØ[*{óô|ìÆîÚIöSôî¬ë¥5ç2Ý;ü•ÿ7Õû³ÁB‘n|ïT-Ÿ(ý\¶q£69 Œü¦±1ÿˆÆ]nÞ1ËÞîc쇎èµí2û˜÷Úå Ûbè赌™|‰)§O²ÏØW¹\û@¢OdLwug¯\Ù¹«* J+ꙤÙß×=ñîê\Ù¤Ñalì °7ÕŸ™óÂouoÊÖ™(Ëž¹î‡z®\ ñõ¦‡M’£ÿ'àßBþÛ¨OwÌ;lrùXÑÖ xBè£æUÃM{%Žœ$Ö'°ÿ;öbP^ЈÙ¯7·ŠØˆQök 9—R‰Ö†ýËwåmË2ü:bwȯøýµa½«¡Ï²€ò$¥‘x)´Híïj—"Û.+ÜçªûwÌKàéQ‚sç Ç´òÅ]âJº©šÈ-—çi‘OXmÞ/òªº@ [¢óî,j )I.KìÂ}„ë Kõ 5ÔºxŒOË QŒ¹CþÂÄö¶º…‰’©ï¦ o:f5ÿ\qš‡Â› KuìE-]ËP¢×A–ëê¿Ýz¥‹¶°]cäÐÞ£§F/lDúfàQÈòÝg‘ ©=|ò#­(lD`x ò)eÞ³h¬â²æbH*ëI¥ñS Rß!`¼Ôb]\:+@%@\1ߊÄ6+aÂÛ(ŠÁ‹xQ—à†)1þ$•®¶ºI*ƒðÂ9œnÐ-t K÷ ±µÀ{ ߧ©«¨g˜øÜ‚<$Ã+Z$©»¸òæØNÝ©ÙŽŒa¶‡!+3ŒtÇ0Ñyxò¡tì²ø äã‡àœ„Q—²§9.‰ÔuC>œ~Dêˆ+ýˆ¿Š{´ÉEü…~R'A A¾Ñ|ȈÁJÇ­Š¿Û)ÖÞŒaXZ¿?‚1ÐßOÃŽnÙÈ›³ü¤ÆƒþSIäNÏ´ø4䧕…¤Î)#ò6zÄÄÎ@žQXk‹þW½6‡îŠ‘’éæ{m¿*ê|âkŸm›wfF4Þó~ùð"䋱ËèIÇI÷ä´ÃZÅâŽf…,?ä̘Ð+EN8£%lú£¶¡¶òŽ§+Qã.=Í,ð· ÿ–B;‡Ä]R× ümÈ¿~Ü%õ¿# ®ôã.¿‡c‚™6oEKp :ïâgÚs9ýK^ÎYø¤8:I«kê#-??”Òðû°ä/˜Òó†_ø¦<ÓŸ4ŒÓÒRŽJ±@Ûgø thd9í¢E÷¬~ ò×’/Z«Qœ¿ùëé-ºçâJ¿h­AqZ“lÑâSܺÚju¿ÚF¬Q-Zº3ÉÒËË–^ÝŽÆw}Ÿ¾í”Ä솕§`™›U˜7y#cä&s‘wÀZƒ’@8 yZYªÓU[µýE„®ß ù­É·¿HÝ ðmß»œ,Û©QêÏ­‘0ÐKÀ÷B~¯2É—“?ùc‰d£óÔ¾øqÈm›Þiž%”@~‘I ¿£ŸüNT?ü=È¿—|¥Cê:¿ù÷Ó¯tHýˆ+ýJg-w}lGû£ ÔºÚj}“jÛÑ;æÕ9®fKÀ´qžÏUkªûk” EîÆ *Â#åúL¢Ç©ÐJ„È<|ò£ÉW"¤îaàYÈg㿨Á‡Ô?& ®¤ƒ©ë>ùñôƒ©B@\éøsP> >‹1ö*A® ¸º­Ú²T~ÎíI~6_-Ñ™2XÜa-H Ð2œ4,ÃágýYH{íIÖ€¬îÄÂ×àì¦Ìœö¢Äs×s5T®úàQ£ýÒ À·A–Ê=£E+Rwøä—b”Žž¨áŠô¿øÈïH>\‘º`ùÙ;!¿3ýpEêß% ®ôÕ°Nq¸’š”A4º€ñó£¹uµíÇ¢jrÕg‰Õ YKÞgo„Ÿn€¼!}Ÿ%õÝâRôô]cU³4ÐLf –Õ¶h®ÊMðñqI––»âÒY×Æg¾(? VüöZñ§`už0ݳÑÆ6-›ƒq3õ>n‚¼I™‡V¼¤n=09ÛX7ÑŽçqgË¥àäe–êê.š®G+Æ¥Lux ò±tLµxòñئڕÓNWÇ3(‰Õ5z1,ѵ<Ý´hŸßD·‹E{†þE°mQDÜ52óÀw@–Ê®âæBÁO°9ÔI}æÌ‚ùÞ+Úªóõ¥kæöâGÍ5nÁ}„d-ù\C8ŧ•¹©ïP:׈ë¿ëá³ëõߎÈ-ùõðXÂe—)óÞ;óÍGueâ¸L~¼?yW^÷%ÌBΦïʤ¾W@\é»ò­pß[uå…e3W— ÖTßìË°ú”5ûü‘Ó w©Á²È~Mlׇ!KÍeæ׷— ·CÞž¾_“úâJ߯oƒ/ß–¸_W¢úõmðåÛ’ñëJ¹œ„_ß_¾-]¿¾ ¾|[kýú6ør€-ókáH×C×ÜíðßÛñe͵K†¦ &F0¢áwõɥϷÃo û!÷'ï÷Ão  ¤ïä~P@\iÓ¸^ š^»~V”êÒ|âµµø–7|6bõöˆ¬ïÓ;Ûî.ÑÒ¸>!šÔŽG!*ôê&ÃWø„sA_ŽóàÃ¥¶lkøËÛ€§ «[>ÚGDꀧ!ŸŽíÛûª34rÚiŽÍ·OÃÜZúèxmÂÑKFV³-Ã?¬®â²Þ~øAÈTîí+t7G¤s>i Š_þd•Óä›xýÍ#uÄãxÿ§_…üUeÞÿQàoCþít¼ÿCÀßîþ²š÷G­jˆÈïÿò§_ãÝÅ}¿Šjjü&äoÆ.E‘c+éÿðÛ¿~Œ»¥$@5¡ö •êhe_}°ðc mDâlãÐÐàÃ%îÅ3>Yno³ˆ°ˆ?ž78 y6˜°l„3–htÛI೟Uèuà%È—’¤îIàeÈRÛjÇßßš(<|ä7)÷ÖÅ(–äþ9ð“?™Ž».eI}7ðÃ?¬Ì_ßüäO¥ã¯o~ò§[Pƒ‘þŸþäŸJ¿ÛÈ=¼Šjj°«ÁÎ?Ìœµ©lͲ«³«‚¤•Œ[ù„,ÿ˜'Vƒ¹Fð÷3f±HŸ0Õ6U€†ÖùÍ GùVO5+¥ÿæ3P š7¿–½ù³S†…3r%ú{À…p-äµ±¢hÝ]r«ÈˆÌzàïL>Xº€wA¾+¶Þ[ìη\˜¿ÎU/—‹´ çs7\|>ÿàî9ËÑyAšwþ€ã·?-–zµÌ%|DþäŸSæ#Ç÷ÊøÇW€_…,Ý—Í?~øË9¶ÜçÛ— e—xâ_Ýw#Fã+·"‡>âù5à_BþËôCß}ÜèUTúžc¡oßl° züª¾oQá*jÓ­vœËÉùé9û¢’÷Âgkð Z;ÔxFwƒ.¿1â¸OMødukß–x†ët{ÝQ‹ÑyøÈ*×…#RwøNÈñ×uDÞ‰ƒô¿ ønÈïVf•eÜ*¬©èsî‰Ñûƒü±t óàÇ!¼E†ùð“¥OÍ 3uÁ=/e˜Ÿþ<äŸOÇ0Ÿþä_ˆßêÎJlJ~øÈ_Qf›åÜ6zaÊÎKç[Àß,5 Ý8_þ.äßmœ;²ÓÄá[õZ|gOYëbÄŠD]SüöÖ2˜t Ù`õ<{JEmÁÛ×p™0í†T~ š†Ô/Ñ\N›:×XS(oºFV3Å]B,›š=þ(TÝöEzÞ«èÅâlp©«±Øc:þî#¼?/cðãG³škZy#¤sƒŽ@¬ý*±jÃßÓºcêô×Õé·'²{ñº ò/)Ì è%5PÛ U9¥‹ì8¤¾C@\’ÑQ\:}ìZ* ®˜oe=õ…ÚʼnIÝšÔ5ü”7®W GËD¤×C®‡¼^Y]yóÌôøž’áé¶Ó[vlgUÛ™” ¹¸ ò6e½ˆåºY Ñ{+p¸­ºð*õ6"éßÜYn‰H##Ýœ%:33“‹`¬Hî> ùi…5zÅ 3ÕNà9Èçb›jAôàKžŽCW˜ZèoÊvB •Þ¶–†_Rß!`¼ðÛ—Î`_m ®˜oåK,ü>Lçâ:Ym4§ÏeµÚCº3m‹,¥8Óöæ´ÌÀöážœv“æ¬`³±»×?V8¨øý£þìdVüòF¡â| °äÏ}Á$<>^H‡1—J‹¥ |²œii§hû2ö›y7K$¶3ëÿî1ÿ8¯ðãéÂÞݼˆðK¿¤,ìt ôKðù𛿩0¯·‹…µ_~ ò·b»ÐÚÌÀK7oïíÜ:ù4lâómàw!W™yz‚Z¡`›T ô ôçú‡ûûú‡¶ôofÿöÿ±~ ºßãHE2¡2+ÒN…!jÿjÛ¹ÜÞ‚ðHê;j\iÓØÌ-^E5•ÅÃ,,Žê•‚aWÜ©¬v*§õCã>göB–bâ)·°°x°Ö€ÒgYœ£Ì£W·ôâ¬kº‘ Ã<áÃ¥Ö{5, ŽØ‡V‰²ð}°Pá!—ý³p%èŽÈŽÂBÒ3FêŽ]Èn ZÒï++-¬YˆÇsÀ+¯$_³ºià ¿!¶9VdYŲmKoïöa©rôFà;!ËW^k¥24Ð?ÈpÛÖíÛ‡·öô÷÷öoÛ±R!ºïþ2d©Ù Ñ*R÷.à× Kú/š“ú¯ ˆ+m[¹Å«¨¦RyŒ*{Ü´\ÛÊjæ´‡ý:d;¥Ö§©£ŽúÝøöf“¶Mw¦5¹ÃŸ $ä×,p×/#‰\2¶á‰ƒ,µßuÃ’qCµ*¡j%oV>ê²U"vø,déù××^§ºÇd©ª,fBú] ÙSfŸö­t. ˆ+é*…ÔU€ÏA–›}#~»"3@mV¥ Jœ+À·C~»2ÃÜÛ¨28°¹Ïuû¶mëØ>j¼ê„¨¾üEÈ¿˜|uBêÞü%ÈR÷ñâ8©ÿ’€¸Ò¦1Ì­]E5ÕÉVœ2t‡úiXkd”µOöë®Q,êT¹PcåX~¥X´ó¬³Ÿ5Sxm3ØÙï·ƒ3zk}Y]¯í Î+ŠÚ!b{§ «ÜÉ"¤Â u;§!ÇßÉb]N{È·/,I8~d‡vÖ,³‘{o‰ÓàyÈçÓw}Á]ºþ)æúÂXQ–5ÎµÌ K¹{¨3ÑbíZæZ qÃïV­­%Çð€V¦ÎÏI#r™Ø‰‡Ù —k—u¹Æ#B3½.Ÿ²'¼=ò±¨Dò àEÈR‡€F+;…r1 y¶ 鿼 Ynù[ÃFúPÔŒŠx<|ò ÉgT¤î9à[ ¿%¶9–güÞßÞÞÍÑÛèÄäEà+_I6¡Þ:´­ï¼ëæ¦û‡¶æÌþ¡ˆ QýðkU’P‘ºW_‡Ü‚†1©ÿ†€¸=ý²1váP‹±Ñ>zƒÜÆm»ÚTÖ%‘ß©ï—¤Ó®ŒKg¤ï( ®˜oEb×ÅÝ0 aü]CWöÊmò°÷®ƒ¼Na± 9Šq7 Bx3䛪 ™ÜLê:¾ä1}Bj½7QX¼òʽbß@I‚Û}À>È}é8Å=À~Èýé8ÅÀ¶ê>|1â´?¬LôÏ£ž0½`)0}ÇO»æs îƒãoÂ7œ[&1Ñ“žhø"äÓ¯àŽYE5õ“D$Þå„ Fb¹=öÀõöÀóïä˜@¡SºÇÂÜGxäÛdiÏûå.à½ïM>ºNàFÈG…MÀû!KsÀ6Äé ðä#é¸kŒlˆí0pä}ʼuø0déíh£ykxòÑØÞúÄüÊ •Pý¬÷¾ÆÁ…mé$YŽ?ù3Ê‹€Ì¶nÄèW¿ù×Ó)±¶u#¾¿üäo)+ŸþäßH§ü4ð7!ÿfì"ð´_„¥Bà9ÛUvEæ{²ç MGM¡èÙ~‹cû½\nWW.s C/ºvÍ#¼¸øC-ì\ õâ’ŒK¯•Nèê\ª<– ˆ+ækÙ÷Ýw³¬¿˜¯uægE{RsL÷óæ‚ܥ朣¤—ÊE‚uEnä'٣c>Éñ+»z5Ã¥ÇÉ” Ý­8ÆH÷èhwVÓͯl»Ymœ –1™ÕòæHÞÿ¤ÀÿÚèv„ý'7žŸì‰üPð „Ç!OÎkCy„îÕ”žCä&u³)ƒä\á)é?õZE~˜Cx€Cõṙ¹ƒ¦À3OaµYfÖÌjÓfÍøÑ ÿ xÞY®[%žá‚îÕ^#Ã7é1ˆLó0¨jµØ4—1VÆD†6º€á2ÈRµ¡Ú¥cÆE ™ ûÑ÷A]0»¸EU©ï0^U7¯µÇ{ "r¢¦EpäU ó ÆìŒí4œ; C­þi…Ô¯—Ü ˜wWÇh£Gþw Ý&ãtÇJºc~e-ÿl5}ÖÉtíkàGsGkÚñZ1÷i†û¼R¹o”ý§´}ßàP¾ot¼b ƒãÃ…cóð¶Íãý}˜µÐWÒ­>?øä‚7úýÞJú½þ¾úF™®ô¬·‡’…e-a.2J/wq[5bù²¹‚—ÝöcþÙÂy!ñÌéC½Xk³hn“Oürñ¼òsÐbm#VÓ×^ãbæ?öÞï_~ö/ÇÿZ›ã,Á¶'‹Ož8uø±¼øŽÿO¯öC]ñíAï²jesïþ¿Wï*ó1sü ³h4¹åšWÀW•™gãàZ^ÃÀÆ•R4"µ+œ³æ1 eÞOµÔàrÈRo¦¡ÖEczÑÔUÚx õ¯$m‹ú•âRd‘÷WÛ„”ô{÷ÛÕý$X>xÀ(VÁ°Ï¸Ø[*{óô|ìÆîÚIöSôî¬ë¥U›™î‚þÊÿ›êýÙ`>èH7¾wª–O”~®GÛ¸Q›Çœ¿F~Óؘ¿›Ú.:™¨ìí>Æ~èˆ~QÑ.óawh—'l‹A £×2fò%¦œ>>É>c_år}ìÿ‰>‘1ÝÕ½reç®>¨€*ÚVÕp4fþ‘f_÷Ä»«?re“F{=±7ÀÞTfÎc¿=Ö½)[g¢,{æºê¹r%¬aÚl»8rô·_†ürT‡§;æm·|¬hë¼!XQ5¦jÏ8býŠÀþöbÕ¸ ³/^on1¿Rök Ù]N‰Ö†Íºå»ò¶e~½³»Y³8¬ú, X OòQ‰W³‹Ô^©]Šl»|ŒW¦W’W´·Íkß¼^LYˆK2ttÆîÕ¥&ýqÅLÁ¶ûí­ÌŬf¡ï;«9ž}iäÐÞ£§²O'*«wM‹…,·¬;®|•ÿ‡p;äíÒï³-´õrà7©ÝÜ ywì××½“™<Üy†MÅe©RˆÿÐ;_§¨Å/VKQ”ŒW¬ÖÅ¥CÉËÄó­HÌÆÍŒø^Âr¨ö‹´ºœ3“ýÚiµ5j‡®ÓýC¡Y›/S¢ʼºÀnÈÝÊú?nqLí ÔÐî'ÔžãçîD-øD¯¸òe?tŠ ©»¸òÞØ>œÓöë–F7hš°^×Zé?:Ö?vÈžÈi§¢¤'Îs˜…<«Ì¶‹žnF‘"2Ï_‚ü’2K.s©4Þ•^¾òÛãÇðœÄó¿C@\Ê<ÙôŒRˆÚNà;!¿3þÓG­2Hý»Ä•~•! $XetDžå'Ö§Bý!YgÌåóÈ4k¸Ññf6KH¼91tðQßžk^Oæëª'>±›á Hµ¥ ·ø4䧓÷þåðxÂsÏ¥ïý¤þq¥ïýâTrÞßIM" f]mµÑ1ÈŠüÿLíöà8ÀàÀ:¿›|¼È /tÚ´©W+ʳ2Áhbé‰ZVà>ÂäBòe`üžÐ€l¤_'Ä•~X ¿_™l  f]Àøe`ÁFÅ¢=éï½ T3S%šþÑÁ¹€ó#?‡C¦ËnÜäjN¯g÷^š{Œ`†þ‡¡ÑÎ_O¾xòei›Ì÷{_¢6=ˆËóÀ·B~kòMR÷ðmß»œtDŽV¤ÿ%àÛ!K¥ÍÑ¢•8`úÈRir¼hEêß) ®ô£Õ*îÏ>&­¨ËR‚¦*ˆVËæ0ÚÈZÇSº£ç=±aMcª®kkÊž‘9nvî#Üy‹²8³ˆeÇ%[æ=î_YAkÒ0&…[ ˆíã‰I’¿M‘ii†ÎZüàåÚÉ.Õ¶„vÒv]sœf”yC§²H¼ÆƒÀwA–ka6¬Büîü¨UqyðC?”|BêÞ lpŒº¤aoÔ28![cïÂ,UJ=‘70"F~òg•©«›E VÍè‡÷¡_~ò×Ó±Ôç€ß€üØ–º£f©à…h%C·zdN\$jß~ò÷Õ…Ìn"&e®ÿüä¤c®ü!äÆ6×pÍ\¬-êM• /0ØÜã`q£T·0±þÇö»¸L¨È’’ÝÂD&Ìq9èZM¼ök×€}\&Œ›hFM³I} ƒ+é4›|¡j¸L˜všMêk\é§ÙüŽÉ¥Ù‹øl n]mµÄuÎZž˜ÝåfÝÍg”ÖR9Çð*Že46ýæOܳk€îY |3ä7«Ë뤺覗€ï‚,•kF«~è¦çï†üîØ¥%z×ÝóàË_N>fÑMÀW ¿’~Ì¢{^Wú1k ÷gÕÆ,©ÉBD£ (ôdJ†©¹uµíG$Ý™¬”hÊzTŸÖú gIûìø)áÈÒ÷YRß- .EOß5V5KÝ]p͵ÀÍ¡Z —di9—Î x3JϪ£ñ,Šì¿Ó@躒>«™Ö´]œfÕ5«ŸMê¸ ½Û¸èùrm±KÂêØÉigéÀxö¡;gø@Ưi Ξgÿ™õÿØ›-S†Rœ¥Ã€ßB°n*çŸ)ñÍß$üGÈÿ¨.¡h¶/4¡ .ÿ øä×’O(HÝ?qô×+ÿÇxNؾº¶6D¤S¯ýµJŽA •tάkxµ]ÌC}.Sæ}ƒ³µ'ö[þß5’êÑ‚AÛúXÂóYîM5úë&¹/=™ï¥ãt&µãWNµrw‰qä[yHtR“5à ô^Ûáb1TÝN£Äé`7—;ÔU$¡;’º›ws™0…òѱx—;—Õºq¢ÖDä^`— Ó®KoâþTE5UºA'hS‘â•EPz„²7nx3Õ 3vhÄÈj3†_: tÖ€5YaQ‚ÿ+ÖºGh@Ž?{B"Û¿Ê ãgû½q]€h¬Wúï弋[”¼—¶¨ ¾°+µ¿:¡³MÅ W;ìÇ踞ïºY–4ÁŒïÚ¤%do:„¾iV4¨÷%H»rÚ!ÛÑ°¹N–þZâ½/^†,7eƒ¾ v·ÈŽ™´x3XØKr\¾â¯ßËÜ=0Ös…>|Öº|÷À•+ÕšìÜåÁ+!ü›.Ô$òÏß9òlºcÞBÍÅc¥ó.#*øy§ª5šDøñwʯ6¶;®êý!£(£ÑxSŽú„Æmo*4c¥.ÓÏ[]›¦E” :d£X4xÏN¦¬;žI=ƒ=š|<ð»¾>Þ&ÛõÕÈÕ–ÙÓ†SÔËe·¨ÄÚ‘W·ßÀeBe–A ÑjGaLËïñ/¼k­QKþ*M–È3̈ýMÀÓ\n?-ý ðm„Zöò݃՚öÖ1ϸè]ÞoO_y’§kYG¡§pÇ ì»y_ÉUÌíg€ïär{ä Ë +æE¬bN´^n—Àû]2¼•ÔËjh4 wŽeÂA¦®VÃ5j]­ÐPA]ÝâJÍ N‹ÞVCžŠo«Ìš`$¨µy‚¡¨¤‰ßØ!tƒÆ‚1éÆÜ!Рò©õ¢ ú º!-c挜T<Ò÷ðHßkYËnPºe×þgÀr¹=òÜÖµìÚ$ÿ‘ q55ˆMZvƒr-;5¼"×êŒr--»p·oÕ› ¼Éi½JàUã â· z"bŠDþDþ:>‘èCGëáR„-:"µ@uCG\#oÓù3þØ‘Õpð3s®­%^7^äQ³|&˜þëÓ2=´¿è -:™ž3HÂ0K?ù'ZV¡JŽ-ùòÏ^*þ¬@ü³2ÄãW¨Êh([RÆ+R…ªÖ(ÉŒ-%ýfW¨ÉjmR¡ªsкò 3¶$Rù"ä/¶,`m–˜?üäo]/óÛñoËW0•Ðh0™i¥¦^‘¦:£\KÀ wûV½™ð€™œÖ«L5*~»¹6§|s-·½ÊÈQŒþÿAYÑZŲó^ù#"õ¿9Ò4>’Û¥–„Ø3tĈÿ#/ãr»Ôžu-1"öËs¹ýaé§HhĈŖ°#ÿ+¹ê¶ý(ðy.*¨n“1"¾/¼_á­¤¶UC#ÚˆY[¦VÃ5j ¬ÐP’#FMJGâoëšFŒZI0jÚ Öæiƒ¢’&~»vþˆQŒ@ô~ðzË]’úˆü€Ÿæ2áuÑèjÿIøOÊWS (¡¡xBŸ2^‘C¾:£$3¡/é7=“Óz•è©ÆAÅo;¤Òì€ÇOÇOµ.ZJwQµø‹\&¼>¢å/ ÄI†¸šh©„F³h)×E¥†Wäh©Î(×-eº¨}3áÑ29­W‰–jTüV.Z<¾_jY´”œRDä¿ üu.^Ñò7â¿!C\M´TBCñ”"e¼"GKuFIfJQÒo& üiÈ?Û`Rsp‰ÂÏ? YÝÙ&d”A£üðK¥z£åsÀ/Cþrl£ õdlç¾q¨d¹ú ð¯!Ë­LjdÂÇ”1àþòÓ1àþd¹éŽâ·g{²Z£ƒ4¯ròl½YëN¡•6ò?rl?ÂeBUF=ù·™‘ÛŽr™0#Ó|ø¢Mò€ñƧÈñíã¢sjßÜÍeBe>ºc)>Àe˜>r¸®ãw©‹M†°x›§Ú©–ÓöJöÑcì¾ÄeBUÖD%̲¡Dåeà{¹L˜tG©{;ð}\&ŒiØsZÙ±§Yk•ï"£ÙeÞA&ž²gÐAáïŸ(z@mœ+ˆ9í$?ƲöÔ—!aî÷ÌeBEæ^Ø]2­n{ÿàÿá2aöþàÿårûÿmïZ†L[ë'goÄ,UJuÖÓe¡»!nÐ#ÓáßË°ã—;äú1¦XÝSºÃ8šy#wœ>ÅeÂŒÜ.‘Ž§1"ótl#ß=×ÈÁkÑJ†n1«±/£®ãðÍ\&TUÇv1)£½|7— Ó0ÚóÀ÷p™0¦ÑæeJÞmì³áð^cB¯=ê•0!ê-0êeéÁ(¥±µã7€¿ÃeÂ4,ømàïr¹C~%Uðíßf1½Ç¤‰«”Î4ËŽh«à)ÛdI/6ß7éXh–?цh†ë™%Ïç±U<Âg› ©•??¶~ŠP5c×ë¢8¿“o=ïUü³Å‹ºCóËÙVXìg^vƒ£zѵ1>KÓY‚Uɱpz׿ÇqÁW¹LØâLnÜ`Áw¸L˜‚÷-øeà¯q™0¦÷ªÃf¸"Ióô Ô¨òW‰°X2ÍÚs”¿SÛù?\ä^űjÃä~ã.ú:z _çØy3— c>XäñŸ»¹TQÍøÏ”?þãz†^ B‰‚A…µ:Õ«6±À/;eÖ õA­•„ñ7Ì]©+R²£è÷à § O)+Wí£*âa ˆ+éBEêL`r9¶Ñ—É·\‰È³ÀËå&Ú+š FDž¾ù…t óð-ßÛ0ŸåãçÁ -ÞBÉð&JO]5Ø`ê­Q4Jü´èy#ðA ­«açÔ‰(×EÓõæž»ãÿ5UÛqKô‹ýþ¬ÛTögI•èöm5 ®ÇïÉ"æ2aLÇYï/µã¾àèÃJ~á#\&liùn ø8— Ó0Ó(ð .Æ4ÓŽº©ÔÈY¨ÚgÕcf5ö® kÒ›¢´FÂŽOßÏeÉ=Õ•¶^ÃàJÃŒþ—Ûå$©ºqä’ôø1.*zü%cÃÓÍ¢Û@s01u.¥°~«Q2éæ$^ó*à!«; -ôÜ-R× üä¥ÊHýWúÅ°E¯'ÑbØþ¨­.qIÂ…sè­,¡ZÆ ŽÈL!'FO ÈFò©©;œ€<»h;5›Å)gƤFLÕ`ãòEj¡J˜møVÈoUf¶¥ÝÓÌïÉn£½øÈHÇho~òãçÃ=QkÒÿ!à‡!8ù„Ôu?ù#é× ¤þŸ ˆ+m÷q®¢’¦A{7«ÈŽÛFjt–ã8ž™¯uG<†ºl‹¥2Âd —i šÀ¡™iMÛÅiöÕ®®êسȟ§aZùb¥P»Ò7×ðrÚá ¿S›µ¾K¶ß%&ü8MÜVpvµßÄT1a© «Ž*E'÷UþP˜ß±6^ýÉcªï‡mËåöne1¬ãøÞ¨Á‹ˆôïã2aÒÁ‹ÔÝ „L7ñŠ>"DʳÀ—ÛsÊžј?PÒj%GȪ,°Ñã©ï0^[~E\:½ìZ, ®˜oå c4íÓÑgšYaEšŸÃD|´ŒLxòéG‹3Õ¶µPÓÙûÄüQ YútGÚ³÷‰ð¸@|\†xµÓÑ&9{_†±ñX†Ù5òÔ}e¤k ™º¯Ö"W›ºßÄá[õZÏÛOVk“yûê\SüV«æj†e—LK§!’ŒY›¢£¿²Ü?ú6Nm·dèóÀwB~çõ@ß%— q5T ÆóY• ŸJ(EŸêìqµðêì­z)áÁ39­W žjÜRüöש·Ó­LN®Ç[½Ø}—vQîÏ »ïnô÷Þ¥ÏiïÝê¡»h[®É~Áòj£—¶'ª¶®'üQ”ÚÖíJ$vÉR°ÖÃrç`6ŸßBöfË´©@q–ö»ÜÅ'¼Êö“\&¼¾’d#9Â1.·_[á§âOÉWãÕÐPœ$«!5Ê+´H2Ir¢¯%4Î'¨µyœWäšâ·ë$ÉÑ»±Dn¸9±¹Eî¿éƒƒ¨¦WëcBÿ?|ÎÀ8«#uåð¥ {¬C'ib“6>?ÀÕt¶fs=mKdSõã½~ òÇ”ùïÂ1«ñ²Û^¨PjšÈBê;Ä%ßÅ¥3È®¥âŠùVÖÓÆsvqbRg9Ô£¦‘ŸòÆõ m ‘Þ E¸òzeµáÍ3Óã{J†§3çî-;6-¤ÏÙΤÉ ÀmÕ;]Ä2Ý,†è½8 9þôÛèç’þíÀw(3Ò]SžWvwôõÍÌÌä"+¤Î&’{€OC~Za]qÂLµxò¹Ø¦’î!ÏÇ!+LôŠ7e;!†Jï涖†_Rß!`¼ð{k\:[Úøì›qÅ|+å Øqp4§íÍѱ4ƒþÊA™…[a/B ²¦¬€¯d…yÜŸBh8Nà;‘¸õY™C¶ñ e€±¢~ÝËØô4Ôzæ,`)…JžÆôië[–‘•h’ÏÔr2†V W”vÑ1Ãs"ïËB\ž¾²T'w´v7©›>ùùT¦¤ÿà[ Ë-ÆjØ•ÚÄmBçâRfq»XQû"ð]ßÛK³Ú@oïРT9y70Ö ·†FÙd8S…bnŠ5ðXI¶ ¯opóæþ¾-[·GÌqˆæO¿ùë 6m8ã!j?üäo¤_Å“úo ˆ+mÛ¸¥«¨&á9Ȫv¿Ó;«Îe«=ßGrÚ\pøœvš¶,Î¥ñûj[GvÿaÐ'<ù 2÷_wÒÍOÙE{Òßw_¥X4} ŽG:duCÇ¡Õ©;‡,•OǬ6HX€\Pf¢ýÄ.KKÉW¤ÎZ­ØöX•ìÉjCCý¬ö’*?6ð ä+ÊŒsP}l“Ä}ý¹þ¡m}ýýCC½ƒÛû·³çsŒÄŠ„¿øyÈŸO¾"!uo~òÒà¤þ‹âJ›Ævnó*ª©HN²Š¤: Êª‡r8Õ”WnuTTw¨*©.ÈŸ7Êû”#—‰x“O¾ÎêâvX„\L¾N!uK¥BgÌ:…ô[@²­ÌDÃÛ$øLg Ï$_¥º2ð"ä‹Šª”ÁÍ[z{· HŸYàÛ ¿M™mî»z•2¼Õ(Œ~Ä…ø¾øeÈRÇ2F«QHÝKÀ¯@–;÷Kü6r('õ_—¢§_6Æî1ƒv%k | 7´ß÷ÜÂXRß! .IÏ]—ή6¾ª3@éžqWÀŽÀ$„ñWÀ¶‡”ìENIÏ•¦%¸­Þù&…¥¶hZBÔv×A^§PmÈÚR× ¼rüMÒòB/1¥EmÂôü&zuƒ1~ª6?}¾âòí¶i´«W·ôâì%šQ6,Z^º„#ò`=à-ÀK¥¸ŽWwÃÛT˜$ŠàPþ@¢EpEA÷ryGŸðYu*Aq=ð^È÷&RW½6‡÷brÇèûX<€û@!^§Ïûå.àFÈ“¤®¸ ²ÜÉkâ·wòð`if±Xq=‡ïJj\ä;Q‹qËB–ê±k¨uɘk4Û5¤>¥r³§­¥Y©ï0^–1r­tB—™îe×2qÅ|-ÇîVø¿ÈÏ´æ%<ùXr¦å±ºTãrÛØ+aÕky–o”cZ¬BÞÄÄMþ<*˜¦e'L jŽ=ãFfŒ …1ƒ˜ìobLµ]½Z]]™›ÐÙïç}ím’y_ý€ÿ”¡2ŒY–½´žÈ¤áJÈ+[àvBw€jÜn„»Îg Vùû>7­;4™3˜Å9cèÎ÷x ˜Ï0ì•Êä|N^/æ3ag˜g5˱̬ÿŒ#ì?Ñ]á0( ƒT1é/{”ȳg¸çÑÈŒŽ€á2Èñãü*”fâÄÄȬÂUWµ È…îÕ™~*2A@öƒuƒÒBÙŸ½<™¶P¹‰³—„è'Ùu§52¢ dŸŠÌí8øª Ñ÷ŒÝrÑô2úÅóXÇ®X…¬¶¹çžgž‰LõèÞùžxáIè°%^¸52íG@õ‘„½p«„Ž‚ÏhÊ^¸5ºž½S-öÂÓР/ˆ ·Eæ-ìÝQ]K1›÷ºùÁp›„> B„ë Ku6Ô‘»÷êÑp[tG< ~„ÁŽ¶R]91ñ1èP#¶¶iú8žƒ°•MÓ' ;Àë«iú$¾Þš¦càCøºiš>"„­lš> ݪq»]ävtµL+Žì l—‚Ú„»b£ù!‘áh}Š»âÛwtÀw=SŸÌlŽnßg@ä¥öÍŽºv‰0o[ÝÑ%ò„û ï‹ý F£·_ ÐNo\Kü6zX2 ;À”ÂÒ°4Ú„*ÃÒPœ°4 "„*ÃÒ–†ÂÃÒPôR.œƒ¥4, ‰ág¨–†zæ|™° ’„‰„¥¡9ai(¡°tä U†¥è)Üh'leX*Bw€jÂÒ–t+Â¥í£ñas¦ëŸXÅ'}ðNóèv-9áˆýk9Ñ¿·~`³DRl áZÈk[`fºTcæÃ!fnzö˜ƒ—ñ „Â@HÜn̺±zŠL÷@÷s€î!C=¾#ä3̲CÛz¢Ó~T û!÷ǦgÌÆ Â×Ϙ &„« ¯jA±ñ ;Àëd̦ª¥n¶6è¦4 ²6Ó C¨.n˜ÓEiâŽÖÌ€áÈZà¡;À–ø_ôäfTg“ô¿! ÿ»2—Òô¿¡èþwÜ.·Øÿžƒîÿ¿Ð=~ÏA«{¼¡Ú¥cH†­BØ uoPú:#Ï$õâ’ Ñp›EŠ(“†‘ÔÛø$Ö7âþ.ŽŠÌ²dì‚1;c;Ö8½– \yMúV!õkÄ%÷æÝÕ1Úèуÿ½ Ý&ãtÇJºcE[]D]MŸuò]ûø‘ÇÜQãšöE¼VÌ}šá>–§ö²ÿ”¶ïÊ÷ŽWÌbap|x 0`lÞ¶y¼¿»oõ•t«Ïoä‚7úýžßõôÀßWß(Óµ€žU +%Ž1Y.Ú¡ÊC–Ñë] \yEÍ`Áënû1ÿlἨxæô¡^Ì[ôÚNâ—‹ç• ƒVÞ¦£Új/r 1ó|ï÷/?û—ã­Íq—`ÞÅ'Oœ:üXÞ ¼Çÿ§Wû¡®¹ÊvD¶›U›,›û‹÷GøÅzw™çü‹™óO˜E£É-×:Ëžº»B¬\ ú4˜RDB««Š¸$h(,TY-®„,õnj]4¦M½QÝÝÑÑÖ°Iš–M:ªE‹#.E6Y”#§¤G´ËØ‚p-äµ)ØEè<­ž‘|Cúv!õ7 ˆK‘]V–m“¹É™N˜ƒð&È7¥`šN˜ƒ°Á„¤´Lƒ%ŒUÄ¥È4·ŸÊëžg8ÚIfWëÓöUÆi??ÿŸ™.„qï†|·BCy¦WlTß,„qL LËP¤þ^qIja\:t­WÌ·ršö§¬.|µ5v«îš /*ËƹñŽëÔ]Nè´(–Çp]¿SÖÓFßÓ*È …©˜ñž¬cbÌœNY8e\,;Oòݧu©M8âÐ*^ç©ËÇöž~èÈÞÇFÏ9upÿãÔU|jÖÍMžaMgºç|ÝݳS«~ÔìvÜkNh™ Ö¥ü”îdÄïzzæýLw°ÙC¾`åλìmšÓŽ¿U.±ÌÒ›:¯_ܳ¹Ï3.ö–JÅÞ<=»±{§v’ýý„;ëzF)Ga¦»`烿òÿ¦zV+ëù ôºñ½Pµ|¢ôs=ÚÆÚ<æü%0ò›ÆÆüs+v¹yÇ,{»±:¢_ÔF´ËìãrÅÛ¡]ž°-Ž^˘ÉÓ€)}|’}ƾÊåúØÿ}"cº«;{åÊÎ]}PUZ6WИùGšý}Ýï®þÈ•MíªOÃ>žÑŸ™óÂouoÊÖ™(Ëž¹î‡z®\ ëxiv09úà3Ÿ‰êðtǼƒ9–m½€ DÊÏTÎA¬u½.Ã^¬À4böÅëÍ­"fAÊÞbc­!çx(ÑÚ°×bù®¼mY†_‘ìnÖëÖGú, X OòQ‰WU‹ÔôڥȶËÇ ÷93ØÑw^¢@²¤­®éþzx1AK9@\’¡ã†Ø KÁ%@\1sª Ùš¹ºÏW(£.¼nÂàßP[˜ú±Bµ90Oýò¶jw·/¯ŽýB:¢OM k€k!Kµßczˆ`ùÂtÕjøjO!Åi9\—päU2äŸÂԤץ ¡µÀ!Ku;4ÔºxŒ58¦ìF#ËaÂK$ÝeˆJ0kÔ°lÙ1 #§GÏÌjyBÙ9´÷è)&¹SzÁàŸFv0b¼øä‡b3ß­á‹f)«Íúÿ¥‡ðÛÿïÅ¢>N_Ñi•EÁœ4Yëhðhô‡* ÂÝwÇ~ˆ¾à!øéJÄ‚§;“nV+ÓFqäâ=>Fg-ôe‹§EÅd=°.ç§Ø;§›°7>’Ïôç¶diÚVÞ.fµñIæ9ôö#_²„ƒc?ŸtÌBàÚìö¢i±'`DٻƧöÄ„kx4õ,;ÐãG92ýQVƒ>¡°ýFÌGé ¥è¿éâ +ÂEo–¨Ì0]¾a&‹¥’”iŽÏ@>“Ži…ühlÓŒh¦•/Vh¾œf[Ù©T)z&­’¢A[‡Nzvµ ßöTA< |ä÷© <畲è?~ ò§Ò±èûŸ†üéø…Í_!a™Ÿþ äŸQf™æ ¤¦fùð!ÿb:fùÀ_‚üK ðœ„M¾ü2ä/+||Ó3J!jƒ‰P_ü•Ø9ß%õ_WúùîÍÜ¡}L.ß]P šÅ‘ˆuƒ‘©ACBï3LoÊð“ÏëEÝ¡)@nÙÈ›³þ¦EeÛ5ý©AØá´ZYð3íiNiU¿)jþ¶ú4_DÏÓô!×óO,šó£4Í8ü£ z1«€Ÿ„üÉä 8…ïS¥j“xˆÔZ@\é ¡;'ÁÔIc̺€+ ¯.A‹ç0ºl%8ùÌ”á—*rðLIw&MK/öhÂL9êS¯Í£«/î”])èð ½PàëÒý¢Èr-CRÁ˜ÐYöFK×%^Åjà» ¿KÚHóŒC#`Q«¢ò>à!0ùêŸÔ½ø!ÈŠ]nîìÉiûYMòû¬&Óþ8Öú0ð— Ë¥(ÍÎÀXLEÊÌGíC&Rÿ ø'ÿD¡Ýšœ~±|”›­ hBûW¿ù÷eiÏûåÿ—»÷€“Û8χoÇ¢cWo”À#EîI{½Ä.‘bÓÕìSÁíâî@î+{…4%[Å’›$;–{‘å*÷žÄ–{‰K÷’â’üí$Nâ'ùÒ­oÞ™»Ø½Ý£0`©øgèy¸‹Û÷Þ2}æ)àÁ˜Œ#ø#ðEvä9ÝÚ úpzÒáÏ?ÿ‰²ô2w·áéf>ì )ówÀ_ÿJ™]æ¹N¥'?þü×ÑkaëG$þ7ÄwýˆÄµ þÛäëG$þŸˆ+ùúÑE£9ÆW?jÍšzµç·”'žIÖŽfÕèã¦vÄ·äq‹¶•‡d[#fŽÍ£mâ gœýá0í\àÆY)¢'_|ø š[)"U¾ü%ñ—%$î^àKÁ媇U>ºO„ä¿ ø0øÃñ§,×|ü‘äS‰4€¸’OY wæcÊ*†MY¤O;°Ù) 5QjÓ%˜²èÉÕ§¬Ù|zTØœEº<|)¸Tò—³HܽÀ—¿¬ 9‹ä? |\*y„ËY$® ø(ø£Éç,ÿòâJ>g]"ü™c|9k6Ÿñ+¡Z;pø"eikô´i˯[õÔËYŽ1J§V’Ä\ÔLE»8>!m%•+Rånà À¥’g¸DEâ&÷‚ß9D>_Ûã¤yv—‘7 üxÚrOü¸‘¥¾Åšžø¬§q_¾¹37﫯ò¾ÛLþ’6GÊj[yñ³ì÷ †“¡Qöyrø‘º¾žB ÓÈ…N´ôþî˜Ú-xJjÆp¸DKbÛ và)¹‰ ÁoC'Z¿·‚þ•|¢½T„#Çûûiý‚„fíÀèýýµ=w²KŸdyéezn·¶oD+YeoÎÿ÷Ô»†çòOªþˆG¡]`A`X®Ich,¢J†6.Å}„ÇÀÅ —"ƒO>H|>€¸’„eðþeñFÂTøHXï_O$LÉDÂT‘° ÷-K6–Áû—57–Áû}lZ$\ï¿,ÖH˜‹ulʵ—´LÛÑ1b0<¬;£%^窩bÁÑ1Ý¡ñhpýøÁ_ëNÍh±£[£ çP\†§"|üñøãç2Ä á[À¥¦nD‹ÿDq%?—#f.5~ÚìðÁs9†P}I2X/xìa—šTzôØ%/KÅD£¢Æ²ƒ‘Rb6.Ç}„ÃàÃñGÀåðzÂ,x6ù ñ¹âJ>4x½oÐÒg ÍÚê#`€ï…Æâ•æÂ3©RQ“ºXtì"Kük®SÝŠÿVØÐp¡®Çœ^ñƹTÜE Ÿ ®ä`9œ~y¼0>–Ãé—'SÉÀrÜ·<ÙX§_ÞÜX§÷±iЧïˆ5Zõ°óÝ:àò„Ñkõy¬v¢5šÉž™=®±6Ãq—÷ÄV=ò-žqûüSåIÝnøU­pz5‹€O€KÕ£ÃEP¢†ð­àѧ@‡Ž ÿ¶âJ>‚V jVÄAsÄv1ºµƒ/–Ž¢Ú=U_Nãƴa«TfŸ²Ðʱ z^+æu:ü‹Ý71ffÇjaQŠ•‘1~˜ kbh7–/ˆR$¤AÚèí½L•^ËÙÀ'ÀåZ¢u“Þšb«ÑX)ò$ðÝàïVÒ ÆÊV ” ßþžÈ±ävfh+!3O¶:a86Kª#ÆG}Ïà@­È«S\M•¤œt§Ùž¼Ìp̬Hžà½S— N¨ÈRk$쟺¢‚þ•€ýS—W NÑþ—×±?3´CÓŠ­ð]¤ÜjàÁåFÃwä"m»Wp#€¡‹;mý+ùân¥ptŽ1wbë1 ÝÚê‹»Öë6Ó+U?špƵ¶Oa¢Kz‘Eš›ñÇöê|Ô3gœ,‚ nr)ŽÞÅÙÀWƒË­¼©g§vñÄýÆd1l®#…Þ|'ø;ãÏu$î5ÀwË-Ê~;+«Íbº…„ž~ü#Ê $HŸ~ü3 mSYm4MìGŸÿldÛtuÖíÁ.Ǫ8¡–Õ5d:²IÕÏ®n¹KÃR‰Äµ þëäK%ÿ›âJ¾TºB¸>LJBu©h"¥ÚKZ¢…ÖK{ÂKU5kÉRå (Cx3øÍÊ’Ö|]¾X!nŽÅ_¬¸[€&¸ÙÌb…9ôÀ½&+¤ËIàóÁŸ±BâJÀ€ËMß~k±BªÞ |?øûã/VH\ðàH¾X!ñ ®ä‹•UÂõ9Æ8½ï¯,¡Z;pQKÔéíµ…Ê&›wÀ~éâj–aÐ õá©šoßýµqS—yÁK×ËmÇ>K5,BH™ÃÀ£àGã/BHÜ>ààR[ U=JìGܼüVeV9M-jF³Ü IÆ,ÏŽ‚FωaK?@\q—$® h‚G¯×„.Hü±âJ¾DX-šcŒ%ßb_Bµv`ô¡vÁÓ­ÕýíÆ7a–ÖË;°úz{§¯u™±O‹? –vÃïzA·h‚ËydÝ©c†v¥irð^ð{c©ÖNÛ›eaÁt³]¢´[… }‹Àç?OVïi¿| xø}‘Ãu;ʉmIXíûhõR9jèêÇ î}ÂIù.@¢'–v ›rIûû_ÿBü)—ĵ¿þÅäS.‰ÿRq%ŸrÓ"L9Æ—rg³cŠµ£ïX›pOÐÊuÆÎܩ°ÍWš²¦dy€tÚèB·¶sʇ ß «ÈtÖt²´m Ú¡5«±NÑñç ÈìCDÏ¿øøC‘2rÝʼÔ¤ÓcÀ׿.–Üþº*‰{ð àoˆ³çpŸ³ùÚf”4aS))ôFàÀ?*%qmÀ‚0ùTJâ?@\ɧÒNWc¬½òS˜$TkªïÏøVuíuÚ¶«,³h¤´;Sz­7ñ/ø§4»!ÐñX.”×& stŒÖRœ.ÿV?mo×4v•x»K?ÿ™²JóÜ×0­ðûñ“6ü¸ÊÁ³Y’Äý5ð×àÑÏd:ZHƒßþ;ef™Ó1.k•ÿþü÷ÉXå_€Oƒ?Ù*¹N ö‚ß.†+Íb·tsb· ö¾ ‡U²\5ku'§ŽC[60Ó–¿Ò E>¥‰¯þcíÛÐ…a§H¼³‚§¤&‡+ éŶAlNðTôUG¡ CoTп’/ ¯!Ã1ƵÅðËÿH£v`ôµµea¡\– Ÿ¼azcÚ^0fõüô`I›£–í°âp‚&bÖξ´Ë;žÐÌÝò€€Ä™ Wâ>ÂçKõIÔßjk¦šIÄHºÜ|üÁø"‰;|\®Yüvn§T”xððGÔU äöš%e^|ø›”f†½fIà£À7ƒ¿9z* [øLj+ĵ›¸ŽœÄ?@\É$W æcUÖ;"@ µÕf1xºƒ'Òö“3œNìG…öèÆ©ß ô`‹:x‹¯‚Óƒ'$>À¦-"ÌÀé3±@ëð¨„^í@õ‹‡NçÿÃzöø(_½T‰Þ'Ë÷$½ºŠžpÐ7ã„ œŸðxôaÙÐ@âWòÐçïŠ5ÚÜðËÉ»àþ„Ñ›sj4ºµÿ “µ"0±ÔïH“Pt 0дe+¾Í ™#L)ãä˜WÈŸ:9dŠc'O Ù%ïäPzEßPç)úð.ë䊾S§|7<Þ@õ³nÜ3ppǮà ô¿ ¸|]XýéŽÓ룅c.Ó1à!³y=¦Ä‹_P|½Œâeim9ÝIÍd‚8Õ¨ßJêlôfnÚ3°3N•êK%/ŒÝQµúG7röf½îè K‹,«[¿ÝÏj¥œÙhp¡2‡ß1ÅòicÒ£*ÿ³©r¦•8ì(ø&z=±ÆÄ\v+mË)¡\;pI‹êMFíò"ˆgäí¬îøëÚ˜í˜'lË㛶ßÖŸ?ééÞŒq$ñðç_.µ¬)\€ô (ï¿7ù!ñ÷WòÒ‹ è5@f󺞄jíÀE-ªçÔ\\xše.ïÐ$E R•ŸPìñz´=ÄRàaðÃê†R‡ð.7Ÿþœøk­$îð¹àÏìû’#ƒ¤Äp|X™]$GI™ãÀ»ÀïRØNl82H³@ÜI¾AAâÝ⊻l qm@\nÑqÕÓ‡-H|)€¸’/ú„GsŒ¯l˜cŒ¸†'¡[;pqKÔÍrjg¯ßÔ¨pÈ™4·*[YA(!h)Ñô3ßü-À$r=ÛÙÀQp¹µ{ s)SŽƒKUíÃæ&8œ—;*ømèÜDâ'ˆ+îÜDâÚ€SàSÉç&"€¸’ÏMk„GsŒ±aÇ¢Wb68)Õ\Ò¢ºa×;­=ÌP¤®_uEî‘ÐþàNðñ{øx5á.ð]É{8‰ß@\É{øZxõÚX=¼-~bÎZ¸4¡úî¼Ï•û-*3<Ó¥"óóNmÄ.9ΫsëžOç»~Í)ÿóƧF—oi¼‰Øï·5ì* okqá·À¿¼­EŒ~üÛÉljÿNq%oëcëb·YyoJB±v úyp_’ 7Ñ+8U4ž…!G¯r1ð»àß?äÖ!Ì¿þ½äCŽÄ?€¸’¹õ³õ1‡ÜDØ«õ³õ±„Ü—#…Ü„™óÆž…1·q¶οXÖùÃÅÜzÄÙz8z›gs$þÄ•|Ìm@œmˆ5ææäQà vjZâØùÈŒãÄBá™F¸¢ÐS ÔÁ¥¦{+ ]Æ€yp©Ó eƒ!7 ,€"Gƒä)a=p¹n_…Ýl¤Ì)à}àR„a»ÙH` x?øýÑóeØÒ‚Ä?@Õ3ª”$® øBð&_Zø(=£*ji±Qx4LJ‡'Yå#l„JíÀèÃÃskTz|úì QW«©’‰¦®Js‡Äi1µ›æŠ˜¬](–<Ú×æaäxu/xÚ½X­ZÔYýNœ#6‚’š1Ioi)ðƒàŒ”äê&;<¬„r_~\ª+¢A°Ï°Ù‚~¨Üít µ?ü øWdÕžöËü¸T§H¸b™Ä}ø]p©fqÕ+žçW¢$^ï÷€ þ—ÊÊå6²{Øê©ò7À_€ÿ"»üðoÁÿ6²]—wÇ•ª6‘2ü7ðkvµi#~–aªMpÂø«M$øÿƒàÙ‚&]m"ñô¯¸«Môôm;Wp¤«M$~^ý+ùjÓ&áÑÕV›f^•”³ý-榩ÓŒ^Uª Õ%boµòVÛa}–´Z ÔÀµø}v|–p9øòä}–Äw—¢§o*›¥Žìóàš›¸’~›áã>â’Œ–Û£ª³â#®ho%5IJÈÑનœ£O¸šN;Öx´ ›w1¡QiUè6ß²‰N\5i›+ »ý¿b§¶´mïÔôQÝ´\¯zS8cd„ÚboêÆ&q忇¬`“Úš>æʾ´È—ÍVOzjÜýÜIgÓ»Ö†Ë{r™®Yâo€¾Çît´HÃñX£ˆwE;âGôÐ=q[áë[É.‚*ªº,. “•¸âá5ãÛK'Œ¿þBoÞ%xJjÊiÕ«0É8Á)r7,õÂæ§xÐàƒ–3GøÈ‚ï’̨´¢‚|”ý±éP:kr¤f5ߌþ®ì„ÝacœÓþ…à„Ig¾mpDÕ$à,Õì nßhZÙ|)Ç^l˜YÌ:*h<ˆÅt¡Är„߯A'a”'@†|¢~<áðÊBkÓ;l›4Þ.u0E¸6‰;¼ ü¦È¦}LÚ"¨p xZwŦfô_ V­ñ%lâ±ÁGçô^ªr‰Â"ŽŸr¬Uõó¿7&0ŧ+Ó°§Wr3ðÁÿQ™Ì+0ß5-=ì¬&Òæ_ÿ þßI¤^øOÀÿÿŸÈžò.f¢<_Ù厙ŪùÊÙ1Û5¬€ø3—× Ìn£;à à<6R®ä͘ÌET0,šM¾û7+ž)áy~H(Íœö4ÝÏéC·X#lʤ·ô¿Soœ0éÌ}µð¼2ªÉܳÌ]ÙÝí¼8¤~×@'‹Á/Vcr;’.ËW€_&&q—W¯ŠlªŸQEÖ²½Jw}gfÚ\T{¨Ê;mge÷®?PÚ®Tûk6[>:ÆþpBŸÊ bØí:ýV½­_Ët=aŒNýýY§ý1sšk‹\‘‹kƒ•ÿ•»%F·éí®È{ V·Hö<5XÈ›…çöÝ&ár©…Às'LÀåx?ṂFt¹Ëˉ:ÏŠ8K\+8¡R‹­‘²ØàvÁ “°Ø:àÁ #Zì­ÝÚŠ}wüX Ç¢`7ʛӊ•E7k[¶–·­QVÆ“zÖcͤJÓÁü‰rܳ ¿ÿå/kß5L‡¶g¡‚:«[šk„®àÓ Ú ü¹à„g€×ü#ðŸ'LÂk~üà„½¦ì,a–þ‚*2Kë¡2ù_àïOý>‹ü;ðiÁSOG¶ÈÍênãùYÝ5jû4žq¹Z‰eWÎÈÔ7Êñ&ô“ʵ)—±­·³‚&`éÖ›9Á[s‘-}’—±•†NÀÈ0±žeF¤^ÎüÔôì^S2ô)šÑÁêcSâöyÏp,žŸóSQ3q«ü©à„g€7ü-ðŸ'LÂ~ü•à„ÍÉÄ­¿þ³à­RE‘ÂLÜúÀÿœ0 ‹üø_‚F´ÈM2™¸Nu9z"þo³ŽNØüJÐ,dÄY· >ë¶D =ëàí‚F4ôƒqMéÌÄü+Ö¼¶5}Ü6ý ÂUò1k’KʳîþBðYR3„fðŒµRžñOÀß >KªžÞ3PÌúÁ #zÆê âß°Fl'Km­`Z&³j ÂCw,’’ÿ*°íbÁÛäẑ߆îXÜ.Ì^F5‹çjšv8¢kï€6„ç‚Ëuj¨ëR$].^~yüŽMâÎjàš#Ñh6Ooº£¥îÑ‘–ׯS˜ÈHý}2fÚ ð$Ì´¸|gd3½†Êå¨bŠ§FÃÚÝ5Øà¿‚n•øðøðTeîw`¥ ݯ©Ø1uÏðO? _‰¡·² øàrcàjãù¯¿O`‚-‰ûKàß‚ÿmdG¹´[ÛK‘Áv^”äûwS­‚6ÛX©³€ 'LÀX©YÀE‚F4Ö|¾AµÔñ”¤ÈbàE‚ªÊ¹’ÇS’6p•à)©a¯ðÖ¹¸ZpÂÈ ñð‡±‘iàU‚*2‹äñ”¤ÌàFÁ “°J¸IpˆVÉ%p:eØú3=áfàOE?D:t5~§p™2ª©Æ/`Õø›iº¥Ä¬›]Ђp¸ÔžõK™vxm ¤Ë9À À/ˆ?HÜBà…àF6Îþò¤¹JqïïÌå¯3÷'X•©¯f>O]üÒZÀ}#2¦½8 >¬Ì´ó¹fý¬":Ý‘F&ÐW¹“ç Î=p¹%ÝUâ´tøRˆT(§À§”Ù¦]ØæèÀ¡—þ“BϾüEɘæðÅà/ŽlšîN1;-¾øz ðÀÿH™ "¾²¦]ò¤"ì3À¯ƒ=3þ1ðOÁÿ´)Õ<ÒàÀoK¹qŠÒÆù!ðÿÿ¿dŒómàÏÁåæh¾Mõeüða¡ÆwH/y®™3¦o:ÔSos¡i8ÃP¨GSß‚›ðêš¿{ ÎÑpI>–Ü 5+ íË"–wÅä]5|ÎsNÓ‡íñª‘$>ã’ý{Š?jàûÚ¹Ð|£$*Ù'L—æ¾æí‰îH5´_l=OpBU –÷YžÉ…[/.¼Uj™\hn=Ø!xkGTnÝ\§Š¦çŽ•°@ªîîξ»ÔÝÝÙ?–OÕ¤_C?J†ºîòFõñþØ»½ä’ëñÑ ±,ÃÌŠi[#zÖßBbÚAæÁaÍiêT­Ì<僟â×@Åw|¡€^K|1—7ac Ÿ|ìß1׫Rœ^^Î êlZ9£h°ÿX^ÕX^¢kdi:_œòˆÆ9ŠáQv?ÿ‘¢ád™\}´²‡XǦ9ºES/ö‰a@¬®]0è`2–PH)Þ¥D2b’Šåç—=’Üv…À¶ç Þ&wÆÚPnŽ Þ&µŸxèPnŽ Þ6¹ªps¥x¨ê¯Mî_-f“žßÁW"êÎTí™ÎóöLÒ˜vãÒæÍÀwN¨ÈB3¬^&¯¾Spˆ6j ]—#ùï>)8aÒu¹½Â¦eTS—;[¬ fm>Ò—DV¹ºž ~¶2¯y»ç†i…”¹xøeñ§wðrðË#ÛhaU¥„y4`<£®–"3>Dª¬nߌqº€Á¥&HT/ëÉT¶ø®·QÍÜ šéêé{؈ÃoŽ Ar38éÁ7? þae®°TèÖßáÑüÁѱðc¤×¿ þÕdüâ#À¯-²_ÌÙÊ’ªT2ý:ð[àßRÞ –ÛCŸtú1ðoÀÿ&–Vð4±?&8ÒEâ¾ T6ÒÕry±4í‚VžÅY²UÇçM×ˈþóòù¶û…@>[ë…~jR"ÔSk+è_ 5…"€¯ÃïµJ)“‰SëOI•€õÍ1%cŽþ úWæؼZp¦˜ãàvÁ U5ŒMKbH…t¹x½à„I˜dð€à)¹]Öª¾ÿH˜å p@pBEf™•5¤ÒÖ­Àç ž’| o”Aàà’»J¿Ýæó!-Ý¥±Wڤͮ3]ÞëÕ¯ˆJ˜ò6àk'ªñØ%°ìæ® ]q?GU½Tn^[Ö“*/—Zµ.?“¸¥ÀKÀ/‰lŸ«xý‹@¡{‰¯…á3³ÄT¤J /aºK{Á¥Æ‚ë×ÒŠÙ1Ë?œŒå®?Ò„Ö É¿8®®Ú,· “t¹xømɘdx;øíM2ÉÀ;ÁïTØ’ixÐúŒšàf2ÑÇÀ5É Çyp©Ó)ëo¥4<*cèK­+ o°^Šl³xs¿'üŠ Rcx7øÝêR—ÔJBÒåà‹À_”Œeî¾<új¦?ÐÒ¼°/¯yUl0ìO|qkh:«òÄ°Öpyf¤K»Àc‹œÅÓ=ÝïI@7‚˜ë2bŠáår#1MÕSª+^ÈK¦– N¨ªªHÏ á"©•ÀÕ‚Ë­Lí"©Ë€iÁ #ºÈT*ñ:¦äcÕ›í˜|ÿûŠU3bÏþjçñ[J®¡;Ù1C sÒð…‰¹MÜOFr >õ¿³[ÛaMiniØŸ‡@îá›ÚgÌß\¯”3ù/3g+˜bëÌ£§q“’gt‡èÅbÞ¬x`=§¦s(<~Lål©° )zë[5Á[µäÛs…—QM{î}•ƒ>0ÙvÕwKŽ!‚,Êþ\/Oá "™)xcÚ(Pó^DL¸ã©ÄÿÞŸy×ÕÇm}-+¯ì¯k/¿³¯³2i»„]úB¾²CxM„ bçÍBØ Bª|ø‡à!qïþ¸ÜòÓà·÷TMgÀ^jÌP63{7&kc¦«N*ϧ$ϼÖÏ¥:‚‚œÿ*ºp(…‡ÿc|4ê[ÔnœaÕŸÞ¶žwXià†Î$¾5€¸$ƒáŠ¨êa×¼âŠøVÎgélGy}+P²yZ²R·`%ÂóÁÏW–7ÎêpŒQJ£a“é³ xøñ'wpøªÈ¦:[éo…"Kó¬`ÞÖ…HŸÕÀMàÑw¤‘8«s>B8 |–´¿P`†íÜœI³vàBð…2šÕ?¶“7X•m ˧$´[¼ür…þÜàØN×ÔÀµä2‰_@\É»ï \v0V÷eæÂúÇ <–p¸Ô~CuZXñ^9Õ/—ê½纃pWÂKÁ/MÞuIü²âJÞuÂ]Æ꺭“¦„^íÀùàó•yîÆÊùz¬üä;Xë^eÉ:îó͆cøG©uK<Ä"ànðÝñûøQø5áp©E˜Ñ|œÄï ®ä}üFøõñúøTX¿~}c|>>»ß¿¾1Y¿~}cs}üFøµMóñ›à×7Åêã3Œ1ϤX;P}d½ß£Æ»×ܩ°Wîâ¤úbà.ð]ñ»øMpë›Ym²‘ÍÅoj©^-½GI¤I¸øÍpë›cuñGígR­¸|‘2'ï­ÝÂG±“ÖKÛÁ·Çïß7ç w€ïHÞ¿IüÎâJÞ¿oOß«Ï0b&ÅÚêSøUbužoC¬Ö±IáÅÀÍà›ãwì[àÌ„[À·$ïØ$~kq%ïط™oÕ±O%™I¯v úú÷¾Í•ž=>êИKL.Nº/îO nr+Üš°‰u¿'€M«›<nýœX]|Æi93©ÖT_7ÙP==†6äûÒ4pì·­£îBs$üM@%ža)p/¸T3+œ—?žMx-xô]”B{9‰¿.€¸’Vã¹ðkÕ Ã®gÁvÈöŒÊö{¤=# ¯äX|V͸IK¦ºµùŒ–ªA]Âõàë¥Ã³6aóBŒJ6ò²Fƒ’¤Ô6à>ð} »Á $‰Ûܾ?²9_U™sâ•Å$¢´ãsÙÄ@W'Í”â‡GÒí:/ mÍ- Ç,íêS%ùb»"•º5UYÚ])=Åfåc›»Jhi‰Íè\üøÏ”ù‹ìþB¤Í/¿ÿ­2G™a!ø×ÀÿçèÅlø (¤Àï€ÿ þ¯ÊÞÀœ!>Q®ŽÜ#Š|B~g øÖâ’tË9QÕ¹]gWÄ·r¯bçGFu–ço2ì˜7¬—X="R½;`(‹À/RÄLŒo§ õFl§«èØTfuÛNØ6)·¸\Ý”ª9CFA7ó ä^ Ü}êGøå$3p ¸\[¹ž‘.ó¼¢»¥§gbb¢;„±nÚ3°³²Û·ƒß®ÌXmC%§‘©¶<ùìKÂïƒ+,ô’7f; M ›˜~I|k£¥ß%QÕ¡A ˆ+â[qYú=:fŠ®me´ÁníÚJ»Î5-7£íïÖŽtkG»µôšÞÞ5ÝÚuö„ÊCíþ¢º¥ç§\Ãå{‘Z9Z|œö‰§ 4KµÈ*øFî-äƒÃ]pWYÎ8ÐcíW×3³ü ›ƒ4±Ö´ÂŽn'€€?¢°RoŠc ÄzÀGÁmBZ'ù/¾üÊLÔº¦OBŸ×_þ:…æ¶ó¹bÿøzð×G6ÇÙé>šÛß·~ýæ®®¾õ×v˘ç À÷«›×¯ù¥nÎ6©”íéëíîcÉ¢Ç5 Ý}}›6†,vIË¿ þ]…Æ7œábßüø÷’/uHü÷ˆ+i5²ÂÐeTS²Ò&PÇÏh7󂥯—,»l+WÊò®D^°”K–•pH 6µ¦E6E={\§#FB>XC˜È©ªºß.9–X›U.XØ?íoBwÂ+¤äs€“à“ñ+$î(p |ª Å É?< ®n_îÖµ$ô¹xø}ñ+$îyÀûÁïlŽéµTªtu­Û$DT™a®¨W lÚ°vcÏ1×íï]»¡Ûì]²T!U_ ü$ø'ã/UHÜËO?•|:'ñŸ .EO?ˆÝc8´4­Þ^Pº°q‹ÑÒÔö‰o `´öܼ¨êжWÔv~øÁÌQ˜„0ú`fªAPÏu zwÉ2%”[<ü|…aÛ`ºQ„ðð Šm0HCâÚ€‚G?%9|ÁKò/^ .µÅÓŒ.1\b4_(Hh·Ø ÞŒO,ö€÷$ã—{Á{#û„ÜÆ£¤Cpøå~1‡ü¢0.¡Û.àuàRÃæá½¢¸|_2^±¸<úpîß¿Àߌħ3zØGPìVÁ7Fu³ºçѱ–yÛsµm¸4L Šâ4" ¶Bw:Óó\|ø”½ÎyC®aÐþá Êc*úÆZšZK!ñ­ŒVK¹ç™ªÓpº+°ùl9qE|-W¬X±BËÚÅ)mç®kµq=K}®bûÓb^·šÑÕ¡u=³^.µÞ»J×ÅLm[i×=œ ­ÕqhB¸|q|ŽÕPªq‘ƒ+þ/ô3ñ„Á6áÝÞÙ>ªy·;)üxmN¹.q Ÿ‹}¨x§©>ìÚù…&‹H¯”3pú³ª_èq <áN𑤋¥Š>V÷KO™mœ]LGWë×îfÏÀ”`qC~¼QJ`DÛ‰äåAªñÇEä|" UC+5E/Š¬Ô:LÕL;t¼:óªþîQ,¯OæõáþŽ~Œ@Œt„w± ¨K¸|]ì: Ù>ª±ëV²«ž;Vr=%=v¬¢žÖ=tyŽn¹¬P fC ú ¦ 5áVðè+Y…wúÆ,ôgÓ½™ ½´$Â~c²Þ=NàAj‚{œ„lÕ¸ÇÕÜ=è`&cÒ3p:l`—2øŠ8ÖÍГFèØÐñ<(Nx5øÕ‘âŽèB¬ÌeNáÉï¿£ .s7dû¨Æeneš«”ÌêÎðu­<ÌÀÝFcõõ>Ñ%¾§œ„~¾{ðL„·‚ßùùú{SÑì§ã!gp«ÐÏð|èMØÞù®×ð¿gìå~¾43N?³ >¤g ïý/ÀSÎfHÜûï…lÕxÿ:ò~¾6¢¼è¡ä¹f®¼‹pˆ­ú}P—P]•$YǾz߆:vø'zOñ€RÇ^é?wªþŽ¢ÉŠ™„ý“vèïíÞ>_õW‚¯lB >Ù>þ_è—xÏAØÌ~‰A¶jÞíM2ý¬ /–†ó|E)Ë{S†îPgE¹«"|SâÅx ›ÀoRÑžJ—ÅK .¡ºä-ÕeñRˆ'lf—ÅË ÛG5®º’\•¯äó uGlå^Þž{Ì,†eC=Bu™3‘ŽŒG î#JoítÕ)B˜æPýH òo¥oÂkþ(´%\ ¾¶ ~úrÈöñÿBqõ <a3‹«?€lÕ¼Ûõ~q¥kw•ôu\eYÅN‡7ãk '¡ºÑK&¹ºÆ]¼õ”Gàôoèí ¯ák¡á%àÑûëò ERÑs¼(²Œ Š–þì°iåÒ“ì“I—…Ix_=_§ô­†÷È×C¶j<òv¥Yö?ÊçÄ°wHgÓú½u«éÝ®®œsÁ÷€ÓÇùi£8aQ›äçUèÙ,ߦt4?þe¿Fx;øíÑ[-3tm°çêgþóÌû‚ùSöOºáîx Bu­–ðžô&ÈöQ'm&OšqĨܥ[ÝßZÿ7CgÂÍà›ÏL' ßô8èq¥Nr¹ßT·ç+¼+¿š^~y\ù ÈöñÿB•ü­xÂfVÉßÙ>ªy·7WªäÁ^#t‡ë¢kÜ?‹WÛ-c,ÎÆEO’ÎJ+ϵ¾E¾Ät—·ã‰{Òªxº4€´E³­ü5óù’ë9¢ \,9´/’»U 'ÞÁmÛ¼f˜7&1žŠƒã\C¢Fÿ<Ñ;”>ÝúÓ7I®Ôô|ÞÎFi¼úªkNIµFÞñ„Íl< Ù>ª Å-+üI=‰ÞŒ{ZÎæ§Ê‹²ºjL_c®¹k_èx7”&T×¼5üý{wÜÃg€rÞs߃'#¼üŽ&¸Ë{!ÛG…c›u\¢2ÿÃs C$-oŒùð÷>¨K¨®—rY° «±F,ríïëí oæ÷C/ÂeàË¢'WòA÷´c{Ëÿ—hÍ~úªK®Ë¸píøS¬¤ÿ²—<‘ë_^ÇB¯*}¿žéûíã/—¿i‰ü!(L¸|Ãö‚? ½>ÜœÜ[yÇ/ø#Pø#gð þ(ôú¨Ò¾ ødû¨¦ Øé˜âBþšÍ:ù?¦ø±¶•]?é{þšÃ¿ÐCyÂà;#?ÈñiV¯ÒB ÂàRûéG´ñA¶ÿšÀŒç lføí£šw»‹Ç¥bYÚb›ÅÉžeõ'%Ï1Û³ vÉ-çÍã¨|ÞYè'ù$´'T·¶*ü} ²}TóFWñ– ÞšyBì:¼ÚÑ­œ]X]~…¡•ý$\¾*²²kX«x¥Ð Ks„Õ“4}(jÎýýZ‡øºC”ásÓ§¡,áð5M°ög ÛG…åÏŒ“DçI©P˜ªÄOpÆQèù,”'TWþtÏÔŸ"\ JGÊç (a7xws:R>ñ„ÍìHùdû¨Æ!ϫבZ·/BÂóÀÏ‹¬Û%Ó;G\Â;Ô— ¡ºáÛðVü2dû¨ÆŠ™ºÝa•e–™5Ùò÷O &a<Yå ëw}4¼1;Gµï£Ž¡{|ðv3¼7šnÓ'½þK¾‚Ç <~ z§$½Þ4M™§ÙºÇûèh£LqâûgÇ!Ûêð³L¢%ùU(M¨®S2¼; ²}ü¿Pƒÿ:žƒ°™5ø?…lÕ¼Ûç«ÁǨÊ5^5)Ø?%…Õæ'lÙ^ÒoàIƒVóTUÍ RQeŠðÁ‡ê4·À*ªšÇžî8 "Yòai…æ.ñ™¶Ò•¬?Óü™Ò§â{’ðµñ‰‘çü}úªÛ“$¼ ²}TãßN[ÃÖEgw`mD—ƒý6&Tו7ó–QG'¿= ÕM“ªTâ ›Y©þdû¨Æ÷¬Ì• ,3¨ßÑÎ3nÉGŸ =;&’©ßÑ(é’߇þ„{À÷D~–#u{ÄÞ#®ç=áC½yM‡#EŽý³ÿÓr=£@S—Q’¨êüBxüH\å‡í£BW)D•¡Èªì$Ê€úÓÀ¥Š€Aÿ)u•+yGUâ}CºÛ͘ÁJÚ´xˆJ7‘„ü9”$¼üÊÈ ï)ÝÒKNÓÓ°”KE®Ñ¿†ü{B,Ž’‡ÿ@¸|osòð_BëÑÑsLsW/ˆM•†íq#¼ƒþZªÛîd7½ý†c¬%ËbJ§yÔõmY[7è$ÇO¡>ánðèçÄΦG­ËÏ Ÿp6øì&Û_C¶j‚í@½>¨ oVúí+AÕìÛ©±ªC¡ºÉVé° ýHƒÇ TסÃÇf‚}g5Ó…$›Àÿ ª›¹}Z‡ÚLóļî,ùå9d}ñ>լܷ¦‰®·H]l?ǃÞ~{ä‡ÜXÛÅÆSúׄ9êT7Âkÿ hL¸\êT¼ˆ¡ú·íãÿ…þµ¿ÃsFê_«+ö¬!£êpÓ*Ñ&Äý½Ò×zG]ß@\jÔ=¤{l†C€©ô˱¥<ᢖ‡tו:oè¸15a;õÎù%ì@¸|qò6ù%îó—Ü ˜vWë@½G÷ÿ÷xìw¤;Ñ ñ+g‹Ï–ÐgmâGÏ~ú‘¿,«èšôEz-¬}š-=^¡Ø3ÀþSؼsÍÚlÏÀpÉÌçÖ oêËõë6m\7ÜÛƒC–z ºÕƒ‚®Û§= §M]óÛò;eÒfÑÓ^Ú Jæ²_ñ ·aœ48´…^ð\àBð…“ù/œ¦ÏfOËŠ7ÝÛ…sNç<]¹/çN‹¡=V֦ʼn•W94ã¾ã/NÞõóáÐj¦ÕØ#‡÷Ý’õ|ÿáÿô*?Ô®Â&ô6Ë6™_û‹W…øÅj‡™æþs™û˜yc†[žYZš=DmŽVö¯Eô­üË„rRaqI¨¡0¨°š\.õnêJ3¤çM½^ÙÝŠÑÚR·œHÊ&­åЪ[ND´Iç@etç(³ opìemc#¯¡1ýîTE‰3RíY°a/x¯B«y¦—¯Iã{øÙ)I[į .I«ÍŽªNbÇÇE²1T¥Æ°¦‘¯ˆuˆž­euÇ™¢]ü´4 äò)™†ãòs4ì‘NmÏè¨á¬vƒ#Šžïs#ÂçÄ<ßçBŸÊèåší9[G†Ì‘“c^!êäР1Ytž‹%ÿýN.ãzú¨ÑïtÚïm'î8zÝþ· Üqãàž]»QïÓà”Û=jx†5žî¨ùº£s«Vþh¦Ûq¯9¢¥—['²cº“~×Ù9íg:üä²9«û˜›3òæ¸Óm^U,°Ô;¦On_×ã“]…B¾+KÏÇnìتa?Å—ñÁ”n*ùÒ9;ëÿÿ›òýÿÊþ|ïøªZ\Qú¹NmÕ*mšæâ%0åW 1·9¹ÍÍ:fÑ»ú û¡ýú¤Ö¯dKÞíäˆm1ðetYÆD–æ´ÐÇGØgì«îîö_‰ž ÆtWGæÔ©­Ûz ¢´­¯×˜ùûgúûª'¾ºü#§Vk4!•6ƒðŒÞtÍc~{¨cu¦ÊDöÌU?ÔyêT£&{Mwì8ÜÀá³@ Ü ëðtÇ‚Ú; åm=‡ÈETÕ+IÚèõH„«ÐÞ–Ñ>X¶Íª§ÙŸmn²‚¤ì-Ö—J.—Ôºí³Û²6+ x±rõLíÛF­Ñ†Ï2‹%ò8¥ž"Ñ î jvåRdÛC9Cø{Õ ª ©–iM”3áÅøUcqÅ]ÁjØÉHíòyı†µ M¦ô¤,v ö‹HiØ5pHøSæÁ„u$•í÷7Nású;œ‚Ž aø¶ýLûšç±:…ç/!Ï™£¦ç6<Ÿ±á3œ½¹dð~ihiØbÏÙ^½Ö!}y5p'øÎȯ°5üÈ}¹ ¸|·² 1g¨ä²º]‡§wÞÞ!7DÏ$¾5€Ñò@GTuèl¸Äñ­HiXfYïHÛï¥Q¥/5)¡V{q…W‹«3«Fý:kpò LXÚdh6Ë“ÎxeæíîÒάV“µ ‚ë»ï}mhÙ-’x#€¸’ÏC~¥0¾<Ô:nJèÕœ>_F¯–zõÇþÚ4tº µ´9jÙ4_É‘yÅ‹€ûÁ÷+Ë= S|üCxCqÅw¯€Dvù 4>O(jù@84ÁÍ&—„E î%c§cÀxIAÍ9lA8œŸˆ¿€ lN‚O&_@NWòD`¸3Æbk{J(†Y)Áj«¢bÿiJO·rºÃª­Žc;nÕ>‰´¼ 3†½ »aËy¦çZ ¼üe©¨qIÜ0‘"wï¿3þnHüëˆ+ù¸Y‚XYkÜÌCºµq¤¨²5^ŽtÞå; 0oÇrÁN? Ç3ðèàÏA5-×+åLÃë Ü1»”ÏQAbZÙ|)GMv±¨„Ïe‰ÐŽ§{Î>þ ²j@øv<ÝôpqÅ]  ›>þHäxQÔŽ§{¾üÊl$׎§›Þüø‡’±Ó;ÿpd;…oÇÓ=~ü£ñ—.tSðcàK¾t¡{>@\É—.K…?sŒ¯ti£o ÍÚn_Eõ²ýå²…TÓFZ ›µ-O7-¿¢åokãj£æ¸aùÀúGaÝlXÇ_Šûo¿5~Ç_ g'|øs’w|ÿÜâJÞñφ³Ÿ«ãÏæ“*$Tkº³$=nJs “Ú2ïk)ðð š\„’.—;À;â/BIÜ…Àà+"û°Li°¸|µ2£´uä R6éöKÍäo“4p øšÈ6ÙYۺ𦊼Wìž,¹FyµwÍùnmÐ0d,ºèKîÔ_˳Û`\Þ•Pêð>ðû”Ùtî{CÉöYµ¼üþè…VØ"›Ä?@\qÙ$® øBð&_d“ø@ÃÖ¿’/²áÑþ¢˜Šì³Ê=fêµE¸d±½XM±M?uððK¤ßÙôb›&‡†-"0eã*ðUñXæËq5¸\aYN2I—²2{\Î =À5àR…gxƒtׂ¯lÖÐC«$p=øz…±ä,² x ø5ÉXdp;øö&Ydp'øNe™Ã,bKÙdðø¡dl² xüp“lrx¸Ôü°º6™×áÞåx’‘r ðð;’±ÊðNð;#[evF¢H*è@\Ý<„vF2`òÀ¸Ô”±ð¦ŽƒG6ÍÕµMÁr51Žf é>ü(¸Tï¸Êf ýÔ§€_ÿBÍ@ø1àÁ¿˜|3Ä)€¸ân’¸6à—Á¿œ|3ÄÿIq%ß + „ëy—O«bOYr,#6Î…†„~ŽÏÇ çÂÿ à…äcÄ[Ä•|,œÿ?/ÖX˜#V{JèÖ\ÜurH­Ncå<:V}Ô˜6Ä*†Ù§öˆ–cè(u:º‚Ï'œ3³c(ÅéÏså ©Ìqì’• ô´g§À§âŒó „'ÀO$$þdq%ç#ÎW„- ÍÓ`ÝñùðÂèCzµ±°Äæ%@y`:¬Ï’VK¸¿Ïž?%\¾\ó`“–c_÷—d´\U !>J/7ª‘z)Ë"7aƒ+j˜¹w°ÒÆôqƒ†¥¹¥ÑQvse¾`žy³£³Z“‘Á\B¾ˆ£[ÇÅ´Þ<æáÒÔÂá)m§1:Êw­>¨Ÿ(r|oëÍ›×uòÏê4éoø®[šÁ”ÊwóÛ7vvk{&=Ãâ;sñ­›ÍSìÄÌþI?5Rrx"ÈÑÇvQLRÁš“Z´¼ØFd˜=[Z/Øì)xq;IþA=«»ÇMVŸôuXÓÛK§” Òa—'t¤/Ö³/®Óa›Ö¾TîßÀ>>b°?pk? é!6."; N¨¬žÓò|^çøÂSÙã†^¹Ô+€¯<õjeÉ}î@ÉTêõÀ·°ëuìz\YVk2¬l©/>!8I¹­ëƒÞ³©S8ûAÛ1,;øÍf!G1o«f»º!À⇶{¢¸6œBù6ÑNJc¼M×& stLÔ«Ôòω*°š£YÌóXdi#g²j¨1´y=ýÈ3ÕSsØ”áé]Ó~Ôt©7)×™™¦X¥Ç©|àšÆÃ3Ø0~lªH!N_æ°®†'+ñ/¾Î XÎ#«hæÎFóIW’aYןP-f_W-€ËTÖ+—MgÊy/°”t­^Æà–×1ˆ?¨}x2öu—ecþÖ˜ÙºG»3<³KÌ[Îú¡pßY?vÝYø¶wHœ~ìoDhŠc'Oñýæ†Ò+ú†:OчwY'Wô:¹bÍ©S~µa6ä™d·5~%xÍäš4ã^sôÃ’"™Â.•¸~QÊ‹KKHZrKz>?¥™TvÒß”›&h†Ú-ôgÑ7%‡Õ#ô)*Ùu‹}’óËrVhÖíÝaÛe‹ÎÞ",:{sò­Õ‹E8–QM£y.k’c„T&pJxysµ¹ÊʇÓl¾Þpè•´Y<ü\…=: †^Iܼ–ÊL³y-U¼KZæµäìb»ê,sêaTõª¶®~†uþní0Ëô+¨Þi5™ÌþcéqS—ñ•óï¿2_ ¿TôøXq%á%~ü㑽¤§ÒrÚm›$m÷‡À_€ÿB™í$öß Eþ ø+puåúŒÆû[à¯ÁÙxËøBöé-HiSýF`j¾à)©ýÊ6æ MΞ+x*™tœZªqn‰ù\Ë!œ0ú|.-ê{!5Wòï¥ï¢CÉ{ii7 ¦p‘Ø6à<ðè秄^SIâÏ .EÙlqÍa(asZn$¼ ü²øs‰k^~ydÛ¤ËÑ´Ínƒ¥yÃÓmf2¡¼\ª55¢V ŠV4'¢V ŠV47¢V Š|TQ‹%±^yn$\¾,þ€Z "¼ \*Žkº>Ë5­£:t‘j—·‚omF­Dä¬lN­Dä¬ln­Däø_I¬œ]‰W&E+9+•FÑÕQ„íqCÇÏJÄ ázp¹­"Æψ™+š?W f®hnü\˜ñQmü,©Š‰ÎWàÆ+à)KZ$kXá"è D ¡®E6Ϊr±Wa8nù´‚HE:.îßÛŒ€Z… ZÕœ€Z… ZÕÜ€Z… òQm@l(Émç° 7®‚¯,i‘\.¤V!Œí¦ˆæéªJw•hþµcÛ^Ý°Òl'ld‘ª+€‡Á7#²V#šV7'²V#šV77²V#š|TYçN‹,‰âj5n\ÝRÕ„Š;¶V#žü *Qù‹h 5ÓŠ«ÓÄXèñÒ÷ àMà75#ÀÒªtÔ«+u,ö†êHöWe¦¸¢ÆVXKøÙÄ•´x÷>ªé ÿFzê.g™aB‚KSƒ§´-¯+˜»yx 3™ó%Ãå3Å,ÉÚ©:|‘¤ðDºXsD3ˆi³A£í˜£&-±ÇpX Ä~—nˆ>áçJ¼C¯MYÊ”›ðCº|ø}ðïÇŸ#IÜ×?ÿAd×:§ÖúáYI¡ þËäCï*¸‡jBïz7G9\§jUžX@s‹i7(‰1Ù Œðð;”ÅCã“‘)2?HÜÀ1p©)/UÏŸ)ÆN;2&XK!a9øJðW*³\ø‰Ý¤Çëˆ+ Ã=|ø"î±à&ü}¾hT”nìƒb‰&ÉÌ £Çy#ðWàR3­ËÖ­»ÉŽáfõ|VB·ÿ> þ´BKçMëx±ÿ*²qÂ$ì×›\Á”Ÿýå…W5ùßß+«äÙ”ü³|EEèñ³¢t~4‘îyŽ9Ìœ‹êAá­—j^/¸äüZey#5PAÿJÀ¬©ÀAÁ #šu6O9 ¼Eð”ÂcV¥ÊàÔÀ;'LÂ$·uÁ #šä6-g³¸²X Îö¬=Ú“Vfšníu|EΪTŠ›ôhÃÀO NØÔæéò%àW'LÂÚŸ~Mð”\K,øíµÓŸþ-Ób¥±ÿ­h\úíÎÀR?Öæ{JØõë[— Nx¦×­—WÞª² ®qqÝz!p¥à­R]p¡Ýªõlà‚Ft«ðËXHþ*àjÁ[ìüV.áFeTÓˆ]á7bÕeÆn(G˜ÕÔÌHº\ ð¸]˜D­ö€÷D¶ÙÊÚ̘ œ*ç–²cT·”0Z/p\®U7Ý oÌÎÉXí9À;ÀïHÆjGw‚ß=ñ„Þ¶ŒäëÀaðae6™ç/£‘±Š ,‚“±Jxø]‘­2'#SÏ'àø„2Ë´ÉìÙ@ªÜ |ø ’±Ê$ð^ð{#[奚?¦+9~çªi™žYNðk|4hÇëú3xtcûü­žw =7U9Ì™º^Ù_XÃœßâè´7ö¾qŸÀÔ"Á ù†ì–¤Íy@A·ÔIN¡Ý#µx©à„Ýã§Úm-©çêï„lpK¦ÝÎé6ÇN8Ü#ÐtœÐ§*Ýð|¤¬ñŸúˆGûûe³vÉMÓÁgÉ— +k÷|†Ê„­ÒË]üoÁ “® öw-£š ê@Õ:ërgm+WÊ–ÇkG8É€~€¿Ý‹=LÇój¡7„èų€( èEy³`zSÚ,èþù¡t{.p \ÝúÞÕ ~=Ñ7£;õ|?ZÒú8‹–Q£Sóœ’áwÒWºçYB§&‹ã™ÙR^w2¢w§Îº’L½yñôCþ¼t`âGgu®î£O««”%´¼“5ŠÅ0sAóì ó|“NºÏ7­F;“à*ÉøÏeMrYdê»b&¶«Kgõ’G{å§:… v»Wî6.ÿæ3|_b¤žFBrÇJ| N ¢È[z‘õ LýRpBEî7o(¥É&tÎ#ñ­Ä%™VDUgM‹˜Åæ#®ˆoå|–‚wDîX +ž~¾²4zV*F¡»HŸeÀ+À¥º™ÂÕŒHÜÀUà«"›j›Øž¦â#Ÿy“ÊÃê³éGì|Þž ÑÐ&«ñXžz‘1i¾8 .×< ~+1Ãm¼‰Píi U–”9ŒTj.jQ}rÃjozŨ^ëGBé¥ÀàFDƒ©¸$® ¸ |Sò)Äo ®äÝz=\y}¬n-}`ñz¸3áÙ-Q,®Uëªê-ËUº7)|ððkâwïõpiÂíàÛ“wo¿#€¸’wï pé ±ºwÛ‰q=lÒÞo&\¾P™gWfÙú•wÞbeí•Ôf6¬;oÀ}„=à=ñ»ó¸0a/xoòîLâûˆ+ywÞÞ¯;ûóF¸ðÆXÜù¢é[¦»¸{K¨¹˜—:Ù<œo„ïv‚w&ïÇ$þÊâJÞ7Áw7Åêdzr#®„bíÀà ”¹ñ-bûV±0øîÏ#ŒäìBý­¥ÍÀǬ•5¬»|æ{wåØ=|NŸ2/ñ”‹#à#ñGA ¾Íçj·µHÎÕŽ$~,€¸’‚ÍðüÍñFAøb7Ãó7Ç«ŸÙ1°az3™p=¸Ô¾áœz3™0P]IÚ©IüÆâJÞ©·À‘·ÄëÔG'gR¬Ý©ç×(”çîGY´´må§Dxå(* ­7€Ë¹WýyN2›…‘.ýÀàR­»‘Ö 3s Üšp'øÎè‘&c‘]Ä¥È"m2›M‘*ûÁ&cÝÀCà‡"$ü&’xüˆ2‹Ì‘Ûx…”¹8>”ŒMnÞ~[d›ÌÎHìgL*ÜVf–vùMH!è€;ɘ& tÁÝȦÙΧ–•G¦EG}y †dØ=S4“ÅÄyä•éG[e¬ê?þuéïÐÈØóÀO*{~øiðOG¶çqÂí„é¡Ûu¤Ég€_—Z#® LâÚ€_ÿzòU`ÿ§Ä•|x«plŽ1fÍîü°„jí@õC…Wçí ÃцíKIèÔ`hÄÌñ +|†É8K?þKu}9¬·Ó3,—ª~„óö­ðpÂÃà‡“÷v$€¸’÷öÀY!1{{)¬·oƒ‡o‹ÅÛ¯)‹ÏÀÛ]Eî¾ .¾ ~·TÖï¹û6¸ø6øX›? íî$þ†âJZ~8¸jf„­ÁôS¿?ŒæŠÝ<ød<‹Î²&wÊU¶©÷ÕЕp øšHµ¶ºAÊÕ”Pí0p\jQP¿®¬7\üt¾‹ú¹ÂÝ3OwŸIñk€ÀÈ*>í—7‚¿BKâÖo¿1²sÏ/¯ =ó“¹ x'øÊÞÃœ¡Àâ´Ž)X´‰ó>I|kqIí¹QÕÙÞ"ŽõWÄ·²¹O÷¤ý+´j퀗‚G[K¼«}Ïè(+ä%Òés1p¸ºuÔ3Ìš'gW‚K­¤®zÒ¤XÝ öqs ±6Jâµ\ܮ§˜‘B»€À¥Óù3OºtÞwÛß"Ùw}cRáp|@™i¢QBZÝ O`§/7>Z¼©[ÛëO4d–² =U§‘ùgDgd(âdLj\™I£œ)G½ø!ð%cη? þáÈæÌÑÉ2buMÕyqÚ ahƒ¬h< Ea’^ÓÛ»¾“7 ±öD›öÑž|6?ç“Ïá¯×í!ë‡_6COøüÌÚLº³SøMÕÔ¥.÷w”,ÑÓåë» áåà—ŸuÒ' ì—šx¶A5àp¹öbðÛu™Ê„&d¶š!sKë`AœÄ+[ QfÊóÊëéªe­jï¿/)«Žï¿?²Uï×ÒGöí$‹zº•7¦x®Ûm—²v)oꣶK)¯o]§X7Tcò‰:»›WR’TæèW­_¤Ý¬—< 05Oð”ܶz^²|š—Tž–:p÷„W7µØ'x*©<: ¸FðTä<º…¶õœŠy%ù ƒºæ¨eŽ°¢Áò´´Ùmtg¦ù]Õ’Þ*§ë,o Ƶnô3:ng•JAuy4»µKÈ«<öi^Wز™¬Š\ÙúbÁ “®"ì!TF%U„Y´ 4ŸV¡]-gswÈ™,@½üTeÿ…ÚUÊm¸äá¤`ÇÈó/Ü1³¨ Þ„Áög¶¿k½Ý#ø^!b¥êŸ7¹Ï¸üpìøiÒ.%%¾±'í§nÒÏ–wˆÀží#È1MöÃôMɱ´‚Î7Õ-öIÎDöR¦­ËÖ®³' ÖðÈÐŽ´T™-mÇÓÅfÄÇ £H?Y0ùéžØdšïÀ~Y³'Ñ]öì×ÌÑþî5"ÄfùÖ‰yCç&Ìô(¢‘dLòõò™Ðù*˜)d‘UùJlUy}S‘}é‡ì’üÂßzÞõßeV¼½µãQäÒ13©®•,nW±+Ä´‘>¨gu÷8m0Âuz¾›B¸·o«vÐfÏ`?ܼU;Bè»Á7°i‰ý1{Ü=Né`Àα:¦Èì/ž3axnžŽ™¨üQßF–Pol¼¸Ë—ð?ÃÄù+a)×¥t‹Æ[2Bç =ø=²‚Ï’Úå¨A;Ъ_°m‡Ø½*sNøÔGâ[ˆK²2'ª:tªéYÄñ­\D5;?2ª3×»É4²cÞ°^¢†pHõ®ƒ¡/¿HY­í‚‰ñáít ¬°]¡—¼1Í÷´DCÑ»¯¥©é—Ä·0Zú½-ª:4o{aqE|+K¿;ÑÑŒ¶«[Ûɪ«´ƒú‰R!G[ìÖÒ}›7S[ëp‘æ„òý:ÆtGgõ'‡/Dã]‘:õS5«<êêÎÝZÈç¾@è€;êºßvšÔ¾rØ“Hè5¼ü^…u£Pk ÖÞ.Õ?1““üû€? Ì,­ë{%ôy)ðeà/ShŽa;Ÿk ö…À‡ÁŽlŽ¥éu­¯wÓ¦®®¾¾Þ>© yøfð7«/gs¶IåjO_o÷šµ½{Ö¬_»vݺ !ËYRòÀ/‚Q¡éX³u¸ØÇ_ÿRòÅ ‰ÿrq%­Æaç2ª)tïaÅ à Â$£íÖÇ)m5 Ç2ÚµìƒÁì˜e˜9ÿ{Vø˜ÿ×.QôP«t'µ‰©wUèºtKÏO¹¬AIçÆñVüð+øarFFuôâä›®†| ñà„÷€ß£® ±ÓambwL;Híd¦ã~»äX¡wS å^|¸Ô)Eá ÷|àÁßØ„‚‡ä¿ øfpu©mÖÚ¾õ ½ø.ðwÅ_ò¸ÇO‚?Ùg§7öõnf…φ5›»º6¬]'Cï~ü“ÊìÓY§èéë[»¡g¸p¬›Ù®›ÔïfÊ7T»A!Dê~øàÿ!Dâžþ#ø?&ŸýIü?WÒj/£šBèM¬ºNw†m'—ѺyI(”VaFFÛß­íèæEõ¢ò¦‚ãGûT4nAÏç»\¯”›Òü9Õ¥“˜ŸA«ë[ŒØ8&MõçýÍæ¥;ì/­\Ñ6-/|{è0Þ á›Àߤ,¾Îô·áOÅK*Ó »“éövà'À?EâÞ ü$¸\ê ~¾ˆ:Œ@&üø§ÔµÖ„-¡H/¿.UÓ WB‘¸O¿ ½f{6 NV>±vÆÚ®®µëÖo”Š ?þüGÊÌ£Õ+¡z{×ô°:*k%mê Y0‘–?þü÷ñL$îÏOƒ?|‰pX$8ý+i5Ž@î‘–*="ªq‚Lå±¾Œv„F7ëy ¦Ánm7/›ö9æhF; ¥>L{(uÇtÅX­8ÙÆ¥¡DÑ(š>¢XÛz 27à™ O€Ÿ8à ÒíÀW¿*þB‡Ä¾üÕM(tHþk€¯­ÂB§WBŸÇoKü…‰{ð ð'"›c1ïÛ°®µ‰Ö‡o‘2o~\j>ó3îŽ+—86o Yà’üøâ/pH܇?ÿaò™žÄÿ(€¸’Vc@عŒj œŸSÃ'‘ð†÷À•<Îoc ŸýìŸ;r4±…ýc}'&”e´£¢4Ú1ìèöõõݬ•ÁÌÞl:À˪]¶]¤Âëý/¯6Sy岑Ë.g¥Ueëä.±ga øGCÔ6Ò¼1Ç.Ò”(*ýcÌ°\sœ¦¨Jsâm²Ð±9ˆ·Køs🫫 î<¸«Üß7`¸†îd©žÙÎÛ£SÚþ£@ò)â¾oÅYÈ‘Ø_@ì|Á /äHþàBÁSrƒ õŒ•Ú,¡Î¹ô¯¸Ë8·xžà„­1;£­‘‰¾€„ðbÁ 䊺½}›6ôô­ÛØ×µfͦM]›»Ö„,ßHÕåÀ=‚§öÄ_¾‘¸K€{'Lº`!ñ×Vп’V㨰vÕ”o¯gå[M©TS¾í·-*àv‹¬¦@[¥ ”Ü1~ûJ'பÖ­ÁJ¢Åu#^ áëÁ_¯,°®ÂГ?zGÁphÆy¹¨b…¶5ùI(þðOÁ¥vZ WB‘¸7¿þ&”P$ÿÏ€ßÿ¦2»ÍZ³9lç)òàÀ¥*´áÊ(÷-àŸƒÿ¹‚vØj‡mÜÀÚa›z¥‚ê/€þ÷ÊŒ³ª~;¬¯ç˜^л™åº7t3ÕCW¤ëoòºÆo×1W$ö—{žà ê¡Ë‰Q¿úWÒjÜ$Ì]F5Å•GÅUe¦>/³öˆrÈŸ±IÑ 9jJ¥5LtÒgÃCAY>÷+™'xëŠ%õœ92B˲Førèf<-¡î) ™‹ËM¢Á)‹9›.Ga§ã‘~'¯eüʼn+¬ ÅÉðÕàr½u{ÿúz%ôyðÍ-fi„+uHÜk€ƒ?Ù Ó}¬ÔY¿±«kcø©x¤Ê[€ïŸ2Ë,oÔ÷wÌq Ý}k׆m‘š~ü{ñ7$îýÀïƒ?ù® M¼žÕN6®cmâÖJ…Ï¿ Åä¦Á‡Ÿ ³yc_Èê iù MR¤&©ù’áª'$îO€¿Â‹jÂüHÿëþJ\I«ñaè2ª©ž¸¬zR;âX»•ÅuÝåÝbRI8ˆU/{ÒkÓy߬cðEùÁbÈ5òFV~-Úsñ°„.¸Ü) ñ6†I¿À?ÿƒø‹ç_ .ÕXÜüÇ€¯•23¥ÂöÀ’o ®¸K÷jà›Àߤ¨-¼¡—6›¤âçÍÀ÷€ËÕG$Ú½»Î6¤æ‡ßÿNü… ‰{/ð»àßM>Ë“øïWÒj K—QMaó^^ØTOû§â¦¼.1vk•"fæq?ÚÎGluÓ`pŸEå×û?»Íõ Ó–,R®"Á;i‚ÿZKïɹÝa£ì6¼¥Ûà;)Š¢lÿ‘ÓunÑŽ8Æ8k šôLzyúO†¿"1ɇþ¶T£çùðÀÿ'þRĽø¿àÿÙ3ZºXìÖ6oæ+|i˜™6bMgr¿=Öhž½«-ÚÍ&« …Þ¹á6Èd˜êœ0éȽ¾ç£šÈd‘Ø'&£Ý,ê„üV6ü¬îh`.:PÙï [ƒhE={\5BcwàaÓÇØå±ùrçûç =âMèNØ®Rò9ÀIðÉø£†ÄNO5¡.HòOO‚ŸT×õ°¶ápî úÜ ¼\Ýþž +ƒ$îyÀûÁïlŽéµ´OAW׺ðuAÒäà£à*3LÝ™c›6¬ÝØsÌu»Ç{×nè6{׆¬’ª¯~\j}Y¸ú ‰{9ð)ð§’Oç$þSÄ•´w k—QM©ò{Vª”÷Å£¥8]´ç&ÝÒv³ Ý!]ÏçÄjÑAÃÒYÍêlì´)b>/æ“ÝÌþ½Ïò®³K^†O5Ûmh×:ü×Dó:öÙ®1½PÊz‰Ï¿Æœ´ƒzö€aóßÇ4´›ÅV‹×Ót^¸Ñ>ƒ3ëkYv; N  Sàm‡WÓXñ7­3¾R/ ߢã½ëx›©Š[+ˆÝÙÆs$l1ÇTIÍž%8aÜŽ§!¶]p¹ùØÕlÖÂÎhÆšuk6„ŸäDªÌ^ xJjª®qVÔI¬ׯ_×cä™Ñº¹Ê!Ó*)zp»à„q§Uw!p‡à„Iç3¿³‚þ•´Ãc¥Ój]©ó‡Ø=HUu„ï‡ÀlTáÑÞ‰o .ÉÈYUVã§úˆ+â[‘˜`À$„Ñg¤d–y´‰œÄŽùî#¼\݈{ðŒ¸ibÛ‚K ¹7ÛàŒ×¼ü¢ÈN¡•Ï¡¬»“_èViw1p3øfõã9faÄ̇ÝA‰´Ú <~0Ù<~(Ù< ~8²Ç\^ö2ïÙ#K TÊaŽ-pK¹ÃÌòŒ°Ž¤ÐIà)ðSÉøJ x7øÝÉøŠ ¼üžÈ¾²ªâ+8ÝŘdàQYCÊež|;øÛջ̈kI(öaàGÁ?šŒË¼ø1p•“Zfp™w?þñÈ.³‰Yh¥oÉgxŒèf¾ËÕG í–f™ÆÐrŽNŠû£™cíHë?þü×ê *×Èóóº$´ûo©VÁSRÒðžôo;Kð”T}/¼'ýbÛ'ŒèIˆ]»Ê?Ĺi¡ÇTH©ÙÀK'TôNæ ¹†¡ç]»A3€jÜ#-Mmѵ0Zãhç3U§át>ÕüâŠøZ®\±bË;Å)-§{:Ónk«]Í“ 6BS\é»Ð Áv„W‚_Yáó˜.Ú¶.R©Û ÁkÚ%(´n&ô!<<ÆÕ^ õ8Ù>ªñõÛ¸Qõ|–vŠ0´¼=ªÙ¹œ«ÑŽæ¶8‡‡·xÜ"'eÖ;H&MGþ8FÁ7´}ƒû»Ö‰mý:C?ãq<a`¨>â3À —4Cjú;t°‚Ñì×ÍŒfõ™ýìÊhY³?Kÿ^Ãþ½†òç~öŸŒæ–†]ÃëïêÛþÁòxÂð&8Q²}TãDËȉFLg²–OcååIh-èE¸ |Yt™“8==Åì:°mx{ÚÐËVªcÓ1´*Eˆ'l^5ïZwA¶j\ë"žŸÊç“VN ­Ÿ/Þ;t‘cŒ’:i~êUåíð.˜4«P¿ðv ¬dUhÇmdÇ곚 5³”kÎnŽ`êÔ&Ü.wVzðÛ…S‡7ï8ô \¾° æÅYaeTcÞn2/?}–Ÿ(N,RÔ²šBùT?ÿøÀÐJOBQÂnðîè}/¾Ak˃h< W¯Š¬ìÅ” ¯``—JÞûœ˜¸+ž„lÕ¸â­äŠæ½Ÿ•S&Ȉ¾œjˆZ`g&x’kÍTE=Ûa`Zšî±º,óf‰’ùyx&Â[Áoü|sŃ…Öæ4 œ >· V¿²}TX­ü9AýíÔi MØÎñÐ:Þ½ÕUï®lœoÊçCöwX¦DÎy>”$T×€oÜ@¶jŒ»…—.fÁÌëN~Jœì.ºÈÕš=|Œ+nû'Šò.­Ðp/”&Ü.w _ðÛεÄ膿:v‚wFÖ÷ªg¦¯5.¡ñýÐ’ð*ð«T4ïG}«@¯”Æÿåu”z“/„f„—ƒ_Þ„ ²}Tôk)èù¢‘ Ó5´1}Ü èvKÅ"ËU§ðt‹ŸóZó‡ -áZðµ‘5ߎªÇ¶.-›¼S[! &ÑM&^m™«+õ mı Úê)suèÇxT'ܾ=òc¬$Õ-Ó³=ÖðfÏBµ§4/­¬>S»ŠºÈÂûì‹¡áJð•‘UÝP[²Zf?4WYʾ nßp†õL½zªK]kgH¯õßvxÍ_m_¦4糇!ÛG5éìj^‡Á<åªÉÈiÞ,)e8Ží¸š8D\›êÒ'M‰î†G 8áÕàWG~ˆ „Þ ØmyÓ2ú{Ãk÷(4"¼\nn4S¿²}TcêëÉÔŽ->³#=<¥åŒ½”÷Ä1ò5öÖC+Ѧߺ[‰¯ðoöx ÂÀñ°Ÿè\ö4·ï6VªþhÍmWºFF£+?‘ë_^ÿ×@gÂÍà››à˜¯…lÕ8æöº‰±ÄÛñ<'N[Ž– _Õ ··(«OφUu¢q™ºe`#k…ãð–dû¨ÆòƒÏ,%Åê oÄÓF[šüv_˜Üpûš@v`àMõwälÏ3ró&<á>ð}Mð˜7C¶j l¡]Ù6[ñh*q6k—¬ò×” Mk$_¢ek4b/ºá½ÝÐôv<aà¬õˆ”©Ó­R -júµ»µ)Cw¢ôU¼jfÀ3‘UV7™äЉð"ð‹"ëmÄ» a¤uÅž5D3P‹ùº‹(G!îI¥Azž0‰o . 5ê® “X!øî±Ýþ;}èi8mêšß–ß)“6‹žv]ƒ(a9Ì5s%=ïv³’¡‘³4XŽO¯ÙŸ;qø9Ãù¯½åwâ³ÙÓrãG÷váÐÉ9O×Æoà˹Ó"i•µivå…Î#Íøãïø‹“wý|ø´·iÅßÎ=rxpß-YÏ÷"þO¯òCíµÂ¶‡·Là–í3¿öw¯ ñ»ÕÎ3-æ²P ¥N3ÜòL—ÜXz¡Þ’›@9Q¯»òÊO$6°ìÀ¿$Ô¨[fpË…Œ*¶æ€/Q©®Ô9CzÞÔë•â­x „u*IY„Ä/ .E9«K!­2 –˜…ûçµTd±Y%°ëßÑ?%0i«ø³ˆK™UüñšViƒ%Ú¶J`T£™Viƒ%|Tk•ykkX +½ Œ2† \ ¾8£Ì†!f—ÿBÒ¢e6|ÂÇ¥Ò¾¡¼‚5Ö <\ªÐ i¿¤%¬³È/)ËÐu~q)²ÌÒrãÕ´’e†´Î\X„ðBð °N`ºr½ÞŒ¤¬Câ/ .EÖYRmÂXHãÌ \T0vã̃Aà œK9E4ã̃oøx‘´<㌇4ÎYÐ쬄s rVss â£Zãœ]mœ¢áÙ!ÍÓ“´W;Qìæi‡Ië¬ÄIÊ<$þ’âR;¼–&Yê̇Aæ';óaùÍùðIÕÆÎâ*ã„.tÍ^Y™×"Ya i›°Ç‚–º“²Í¸†J»È3°MØ2g!ì±0aÛºfši›…°‡jm³´Ê6EÎ"XdQK²uéE°aëÒ$þ⪭K¯@T»IÏ— WÖij­mi«™¹Vk‡ùb±°ûÝ-n)w´tw)4™gzùz=Ñ‹a&ÂnðîäMFâ{ˆKÒd £ª³Þã£|7lðÛ;4MۋŃnp£µr¯ß§ê ql\Àõ8†=ÂgHˆ½´hW”òÊcš4ò!]wÁ£5"„IÝó\OS1›A¹<Ðw”ÅCÃ-ØHÜÐwŠm°‰»è{‘ý-ü©$¿Wîsf®ΠÛ}À‡ÀJÆ#N_þ¢dþDdŸ˜#µ'éðVà»ÀßS¦hØ8™A·?þ‰d¼âÀO‚2¯xøøS‘½bAy›ƒðÇ”&Ÿ~ü+Q5j2GNŽy…ü©“CƒÆdÑy.«6•òžÛïä2¬Î4jô;†•3œÛNÜqôºý;n¸ãÆÁ=»v¢™šƒSn÷¨áÖxº£æëŽÎ­Zù£™nǽ或^nÈŽéN:ø]gç´ŸéðOíÈæ¬îc.«µ™ãN·ex=V±ÐSн±cúäöu=ž1ÙU(仲ô|ìÆŽ­ÚöS|íÒ”ë…nš’îÈÙYÿ¯øß”ïÏø‡ªõwà{ÇWÕâŠÒÏuj«ViÓ4/)¿zhhÈ.y'·¹YÇ,zWd?´_ŸÔúµ“ìcVQÝ¢±-¾Œ.˘ÈÒÎ ôñöûª»»‡ýßW¢'¨1ÝÕ‘9uj불€(Z¼h83ÿL_õÄW—äÔjÕ† ÚµÃ3zÓ5øí¡ŽÕ™*eØ3WýPç©S |ý,öšîØ5p¸Ãø=ðï…uxºcAí †ò¶žÃ $LvoK½„ÙF¯G"\¿Ðþû2ÚSù¬zš}ðÙæV!û\”½ÅúRÉ¥ã’JwL›A¹`[Ö¶,±yóÕ ~…Ï@õ¡v¾hÃg™ÅyœRO‘hÝAÕ¾_¹ÙvÁPÎ>Ç^uƒÎÿQÏ„C?Ò@\’©#ýLÕi¸ €~e^qIêÓ(Éž~]ƒ×E³NÎ.—šSW­Y3L‰™A!ÿ:¿‚Š{î8•¤`ò«º~ü‹Ób§®ŒæMYUHl-í ›½ =‰»ØÞ'íI- +õ9۫דNb×7€oˆÞü¿°†Øܾ)²"á#;8MY: >ƒÈ>ÝTÌDÁsP}dKö¡"šœÛ"96ºÏ‡/—ó~»<Íû½3ZÎ5iXäÝ5-=/ä¤ß¥ÀmàÛ’ rÛܾ£AN ìîßuæ×-•ÉMêƒK®7ú‚–JáuøEIÄV ´T8­gIml…u!Rçà•àW&J$ö*`xO3B‰èöË×”‡Ò…-•ùzêCI¶߯h]Ç9·E²¼L©Wõ¶ôiV0‘:Ë€ðLrÁDb»ZÊu^Îå|8b0‘k€kÁמ9ÁtQKeÖi\åRر@Y”l¹t‡P]¹tQm(eó%×£CÚÃúéu p-¸¼/…Ž)»¸ HÕ¡µ îD¸\®6&Z$v+ðp9ŽZ¤Àvàp¹®Ð8Bë2„Óe±„–\Cï2üa¢eÖe&BueVú4å·ûB{©y1pxôNö åý ƒv6,èžÑtàÆ=4ËÑóyÚ]ϲéü‚l±äö÷Ñ„O—ãýn—”J$v#p+øÖf¤R`°\ª PW육’«Ö›[‰pmÑZ¢6Rƒß†žfAâ[ˆKÒ :¢ª³¼E¬JôWÄ·2‹SHE:`ÂÀVAŠK9bR„níÀÅà‹¥ËŒÙ5:£[þ©döˆ8ÃVæå \ ¾RúåÕ¾´Ù¬Tëç¤ËUÀž–Ã8 ò\ƒ)Ô$î `/xod‡ž£¥i±–„Yú€ÀåS~è©K3š¦¸|O2¦ÙÜ ¾WAÔ-a–k×_§ðñMÏ(4Ûܾ/ùˆÄï ®ä3þ áÓãËøm4³DB³vàBð…ÒùþœÖÑúNÒŠÒ}e¹èĘ™ÓÜ1»”ÏiôÔ+9–‘ëÖö†Ï<+pá.pùY ê2Ï 8áø@ü™‡Äí‚Föù 3|©®žgK÷L:¯OwŒ-2Æ: <~\™±Ú+S'e¬åO‚ŸLÆZyàóÀŸÙZ ´4ÎÕê ½r’49|\j½j] Íï(ZK™èàkÁ_›Œ‰^|øë¢åR†y=ð àoP:èd’²Ë[ïo2vy#ð}àï‹^û•ZVJ:¼øð¨+ƒ:Š†î¸¶%ešO?þùdLóQàÀ¿Ý4ÒÕƒ/¿ þUe¦yÆûGÎh¢oþ³dLô5à_ƒÿõUMøà‚ÿ§Â\Wž|-a-ª»s ü¸ÊMîf0Í{Ÿ—Úä®:fdºMH…§€Ÿÿ¬º˜9Í\Ñ ó'À?ÿ³d ó9à7Á¿½ =Q‚ä ømðo+|ü s×üøw"?~è†9‰ÿnq%ß0¿B¸4Çøæs1-WB¹vàð%2Êq¥fÕ(u¯]Ú¸A'²ÓNÛnÑÈš#SšîO$¦ÃÆÇé÷á¼A7”\ƒo­-¶ä¦oqcWÞ7òZ¡”÷LþžQ½Cwe6FÚ¶òSšDsž„ð•à¯l~éOê¼øøñg2÷ð­àoCíhjº¡3éñ6àûÀ¥ÆGÃe4×|?øû“Ïh$þÄ•|F[%\›c|­½2Ÿ_B¿và9àçH'µy5zåíQ3ËrZ ™MŒt*€ÈcVÖèÉÚŽcäuÊ~<‘Ù«¿¸Uóúü§ËiúKoZÎÈüì™CèiÏž—jRó§…o{‡ÌÚÓÕßï×(ÇNžâÛº¥Wô už¢ï²N®è;urÅšS§|ë™Cž1éôÆüOf™^£Õ 3néJÏs7ð•à¡S2Ý1mK×9C…cLõ€/Îjà‹2›¹’¾ô~LFﲶ¶œnåY&N5ê–h‹†ÒCu6zE vjU¦[}© vjUk˜ÔéÒX šôvêïQÙ8›e.‹ K‹ükä¿ÝªeuVÃe%†¨â2¡é%yVkmP¥•¨Ìà›àr Q¥•YRçÀƒÿ8þÊ,‰ûð'à?‰l΋üʬ–¦2“O43ôø ©õS࿃ÿ»2cµÑŠHCý^`*%xJjÍ]xCýĶ N˜xÿ ÉŸlœ0îÖ=~ÄÎœ0éÖ‰ %ßÚX-Ü™c|­yþba íÚKÁåw;«F«›é€=K­×ã=%u¾æ´P;k¸.ÝVih”èH¼ˆ¹‰î\à1ðcêr-Ï››H•»€¸n"qÇ%ðR䨸²SÌ®cÉŒæYÝ0¹±%,7|3ø›•YnN‡kÙR¶{0Ò@NxÛ=|/¸Ô¤þjï•c$ Þü ø•Ye~ï"ÍÚNø5C¤Ñ?þ¹dLó!àçÁ?Ù4r“LI‡/¿.wfRÝdwÈÝŸEš|ø=ðï)l5œaJ¿ ü>ø÷£WEÂVÄHüˆ+kþü‡ÉWÄHüˆ+ùŠXZ¸3Çg˜òmZ$Tk.j‰:ôV¥ƒ¦å£FÕðU¨¬Ra˜}jøåµáúX¦Åï¨S ‡u~z¤¥ÀÛÀ¥æÕ…sþ4žðvðÛ“w~Gq%ïüpøÎX¿5¶ýÑ o'œ>_Úókp/)àb ¶ìß#2/pÐÓ´²buqe¯'©*)iÕìï¿ÞÓ¸®®`D÷¾µ[Û7¢•,‘«L#—©Œ¶Óéè”™ò6 aôì˜iÔ$d¿ÇÇ¢¨Ÿ‘·KŽb·çÃæ.zœk€¯uü¹‹Äµ_þšäs‰mq%Ÿ»®Ã1¾Ü5Gì'¡[;pqKÔÍ™juzw9¶ϱ ìÆb^ÏŠr\léÁ‹q‡þœ÷ÆÓ1§Áa\»dåh—Ú€«épa?çéÇ þñ¸ž/Úˆcø?EÿqØТ÷u6ð“à*¸mZW"œŸ~ÄmèÐ"ñŸ ®äCë*„ÓU±†Ö\lÁ(¡\;pIKÔÉ]µŸíža„Î7dáâjLí@¼06aÉOϺ ºÞ~“²J„ôDSRç6`<íÄÝ 4ÀÈQpvgÔîbÒg8>¡ÌJ³ù>¤2&ºx/ø½É˜hxø}‘M~,‹äß|üø‹ ×|!ø “/.HüƒÄ•|q‘þÌQmq1óÜ »Ê’í@õÝ&KlQ8£¥Í~ 볤ÕR ®Åï³ø)árðåÉû,‰ï .EOß>T6KÙËáš]À&m¶Û÷—d´ìªN7"ÄG\ßJ'Ë"Gy3À5œñšYìÞΚç9mÂôÆ´êöÀp„Þ+E¥°üêiÒ§¸ \ê ‹p%1‰»¸|sdë]ÜI›i®Y(²­qWIÔ‡%¦ï’^[€ƒàƒÊ̵´ì^]Úˆé±Æ¬„zCÀ<¸ºeÔ3ŒA‘À£Àx!²ÝVŠV¸ÛM±çRï–EÍ“Èg_.·ˆµ®Ë‡£µ;eï5Àw¿+™À{ðIð'#ð\-]â3]‚M ƒ½ø)p¹^„º]Ò5'ŸË˜ë‹Àï€'s}ø]pëæ:»Ã·¤À÷€?—õVê÷ Ó–QM]èS¬ÔßmŽ›9ß…ëÿâ‹’ï¸ÓEŒÉ¾ögk†ãØŽë÷ΗÿÜ¡]<\ó„áÒÌ»äeíãS¦‘ϹÚ±í"«[8škÌ®àtãΊt•‰±¯­q–RgËk£¹¿ÃdèDÙ‡h#ü9øÏã¼>Dá/ÀÙÓZCÉÿ[àßÿ]ò·žâ£šÀ{ù3<“– :"}ó»kC•¦±1w¿³Áä}•Á´¯‚ðåàêjKÊ» ˆS€BÇ©õà;Áßì¸Wß.U·‰<·4xø^p¹Y†õì³¢Q²«ìA-e²¿.5Ë+¼ÉÞüxôò=|º#ù?þ<úüªÐén°vÕ¤»y,ÝÝ,‘eÖCÂyàóÔUýÉ$CZ-._¿Ç’¸³€—_ÙD³y]LÂ>—W€«Û±°c†,#6T—2Ù•ÀëÁ¯OÆd+ÀD6Ùwf4Ûå¹(ÌyUâô‹øÒì?6ŸJ¨Êó{øâïª{™S¤+¿HU þ꫱“W-N+¹<«GÂÍ äk‘¶DY‹tæ¬)§çññRÁ Ã=Ý‘ðšrÒwY@ïe2z—lZO;nÔ`M¹25bXS®L·úR¬)Wk˜øÖ”«×3x—Äšò¸ÍUMy¼RgXS®.r‚ßvˆ5å¦[iZ²6¬ØOÍ܉æjèyõÿ‘Ä ðFÁ Ÿ‰ÿ¦€Þ7Éè­&ñ+Q#¦Ä¯D·Ð‰_aâMüjõ Þ%™øã4WãÄŸÔÓ$~5‘ü¶(y.qN÷Ø¿YsÆxýÔÏÛØÚ°N Á1ûß1 ¬˜à{ë±Ý 5I²%Ú¯ StŒœ™¥ f+K·ÊOý%<õ—þ#_þ•à„ÏŠbäǽ,£·šbD‰1#Jt ]Œ¨3L¼ÅˆZ=ƒwI#qš«q1ŸÔÓ#j"'øm^#UE„˜%$ -^)O¶0GF Ç°²ì oÂ0¬êq4Ú?Zq‚'n½NðV©ãžÏ¼"¤uðÁ Ÿ EHë½ï”Ñ[I¢FxŠ5º…-B&Ö"D±žÁ»äŠXÍÕ°‰QêÌEˆ¢È ~ë‰"$-Mbj„˜›W=°Ñ™ñK+0VQ™ÉW}w¥L2iÝeÕ ŒÐ#½Á'ÿ.ž<úÔ¶Ð#½„Û–QÉHoj¶¦Ñ"TöœðLjÌ9hÒ›+·3U/²v(Ÿ·'h”Ê*=Û£å}4ô¤WÞ¼e;´J6gÒ~dÃ%Z]Û­íИ´Ñ»±ó‚_ºÐ‚ƒý›)£OinitÔp=ö©îa9»'g.ã‘ââèU×-üªˆ–6»nz þÃ?ºªäåMà ?Çp#^ÿÆ1¾•jiÊ^{› †jÆþç28]x3 œ >WYÉ*é³x>øùÊfÃd7xø‘mSÞ?ôÑQ¤Ç…ÀåàrË“ê™geÍü/à?xpm£êÐŒ–K¯O`ìŸÄu€Gûÿ3ìÚË’Tà¥TFä3Ø7€–…ˆmÜäi„˜«[îϦô˜7-ƒ%ó’5lò +þ“én<âvú?Ms¦º° AVóÖîj(%í†ßÞåAüTàƒ#x_ÝvÉp¾T ¯YjœP™“1+_.~ºFÝ…ý¤ïiNKŸIïÕÀµ‚Ëi\÷——·N˜@Ø¥.nœ0bØI, ¶¯<¦tá¾E8x›Z¸o…„ê wé-ÁIEÀóÀÏ‹ßUIÜ<àùàRUŠª·°¹R¶û“Äf>ô(ÍJ™®1RûàaðÃÊŒyš¥f´åMÀ!ð¡dlyxøm‘myqyùz'ßã'°Ã„±nN€«Û#ò¼}RënàËÀ_–ŒÕ&ƒ?ÙjR‡’ ÿü”(ê”gÒêuÀw'°x“Ľø$ø“‘û*Z41VT¤g:ß-°¸†ê®Õóaë/µ¡N|¾RÍ¥E6¦ØÏïWð8cÁ8ýÁrå1ŒòO5î1ÉŽ™]î]%j;K¤ÖüÐÛ·ÀÔ“‚§ä­ÐŠo3!Æ@Ê£ÇïhTÁq´ƒ4÷Ÿàc‚†{ºcÚhÇÜ¡Â17¾áRøãÅ?.£xôáejÔ/ê‡ÒÌ®¡Ç9”)U_jƒqµ 4Aë'4vøf½–úã ñJaðà/ˆ¿¨ qmÀ{ÁïM¾¨ ñ÷WÒjì]F5]œ=´4Íq­¿øÀt+“Úeây%ìïQϲ+JH À~ðþøã™Äõ¯¿:² ÷VV”ˆW¯äÐ&èÈ«ô•;iGL–5ÖL¥¥ ZÚÒiµ„e¯Þ~¿2Ëβ‡CwÇ’&/¾ üeÉõàÃàG6j_§¦»ZÎp³Ž9Lûæ Ûã¯Ó5× µ¥ ì÷ð3àŸQf?ÙåA¤Í— þ§ÉØð³Ào€#² çwJ÷¢“"ü¸Ü±Š{ÑI¡Ÿÿüï“1П þËÈšËSbè^qR‿ÿm3ÚŽ{…m9ÆØ rË ½Úê»AÖÌ°"¨Á² ý¯¿&þú.‰knßž|E“Äï ®äÝûZ¸ôµ±ºw긄ZíŒÖ5R«ÎöÀ|ÜÓn1}¢nh_§§X<®r"__¿þMx\j"_4_'ñ‡ˆ+i5®ƒwû¨¦m—)ì7Fh&>)j’E‡ºÛäÛ- ç–G¨ Ôå*J¨¶x\ʦ ÷s…»ýê•„æ›×‚_+«ù´_^ < ~8þj‰ë?Ù¯7wkGmø²?éˆU\j1é|—kmÄam¢Ê %±»˜Œ“ß|ø‹”;ùBÝí&¥»¹Ò*~øIðO&ãìôW)Åé_|/¸Ô‘xuùQàSàO%ãô/~ \nÞtðÛùåy™¡§e’"Ÿ~ü+ÊÞÃœ!¾ƒo¹×gç ¸‰“2I|kqIFñ‘¨êÐgsˆ+â[Ù„²þœ2é€Ñ°#a`cBEÒ4àn„~«moü¡Nâ6#ØUo!ÝÉ×{ø§.ˆózØíÓNm°Ýu@Ü–Ö6ÊRç†m®:“ÞEàT‹ä Nº#é…Τð‰€â'd/·[[$:+S£~]}(}<ô2ge*Õ—Ú`™³Z{êu!;šôRê/rŽWê ‹œÕ¹eðÛEšgò},¥v…êô øƒÏ²Tùðåà/¶¤ÊW…ŒâjR¥5Ô¦J%*…N•êìKªŒó¥4N•ñI=MªTã–Áo74Ø‚¯'îìÖvECL9µ-mÌžÀ~î"ûOÀÿäY–R¿ü6ø·Ÿ-)õ;Å¿#£¸š”ªD µ)U‰J¡Sª:{Ä’Rã|)Sj|RO“RÕ¸eðÛçh¦[>†ÂÓš®¬ÝNSvX¢µµÓ2Ý1œlóiÑ5߸™ÖìåÉz;9ÈGê*ÁSr;›¨_¯O:mö žR9 ¯Áz}·xµàr[‡î,Je€×NÑÓºhÖŸéòaŽaƒ†…±sª.ÎÈOiÆ$+¿]sÜÝsLªnæOå#«ºËô ð¸2ªéH~LӴËÐì˜ia0]Ì&a¡Ç^¢cöèöœ) Z·hÐJvö£®V*úiê5=så¾:ö'FQwhnÊ„íg«¢cg —Ÿ«Ê·v¡DÁ~Æ5Ä_„|5‡ð:LY©º˜TÏç|‡kÙ\¾Q·,iõà»Áߤ‘¸WßþžÈþÒ¦…ŸÿL¼øð(3Ϲóp¿%Ÿ•²ÑÇ_ÿj26ú ðkà_‹l#©-mH…¯¿ þMu5S+[,…žÌLºüøà‘ŒU¾üKð¿Œl•M<RÑ$ûäíGÚ+›%Ö>-m[¬â[a‰yìÒ³fI뿘:GpBE†”^m@ê\ \.8a¶L ì<ÕÙ–éÎníÒŽ_–Q¹U`•\—O´ÀÆ/ám—ZÜ/8¡âzêaæó(P©‹1Bʹ\Ý~±­‡v4J>ú‰I‘—_ þRe¶kØOLâ¾ üe‘-·B̬ä;|‰5·$ ˲†»Ä.)ø0ðƒàTf0é>H?~üÓɘíCÀÏ€&²ÙZC×KIþgŸÿ\òõÒAaÒ2ª©—.äC[®‘Ùjü(Ô \¾P¿ÊNþ%uÎ^žÀè:‰[¼<òèzªµ$ï€/ù¨&3 ²Ô<2ÚÍÌñ×ôöõ2Çße[¹R–÷`¼Ëà«Ü*G£°ñ7s 0wâaîl©ÜVU.î·K´€‚º"‚±3hxºöÐ'Rò9ÀIðÉøC…ÄNO5¡CòOO‚ŸTf«Öµ$ô¹x¸ÔpAs Ûù\±ÏÞ.7£*øí‚ôÚÎŒÖ×Õµn“T=|üQu¥Ž_¹ÌÙ&U&{úz»û6mX»±çK¨ã½k7t›½kCV1IÕW? ®òü´qÃn öåÀ§Àåzǃ߆Nç$þSÄ•´º°vÕ”*výReM+Uò¡‘옑=ÎÇF¬êªK·¶ÏÒvuk×±b<;V0sí(£žyÌ2,ª ±šÙ@·vó˜éZzOÎíî ņñ „6¸­,X.ºN·rö}œŠœ(Õ2Roø0øÃñ—5$®|ü‘È.‘ÑÒÅb·¶¦osWךõë˜#ì´³º6 {63ëÞ[´]»PC“±ç£ÀO‚Ke’gžüX©góÆM}kûÖ÷õm^:ù‘ªŸþ-øßÆŸüHÜSÀ¿ÿ»ä³‰ÿûâJZ¬°vÕ$¿ÜôäGykטQ²F3ÚA–¼º»TªÙ‡K^Þ4>SY›3õQ˦Êjö]èÉáérÕ\Q„\<`ˆ!wmpÊbM¦¡vP´M%ô<¼\ªb.å‘8øøM¨^“ü—;ûªîy}ê<@\q×®IÜCÀGÀ£@‹Ók¨vÝ·¦««oÍz©zø&ð7©k¥Ö+cz{×ôsÜBw_CÃ5(]HÉ·¿þ…øK÷fàÁ£/V ÖIü—ˆKÑÓÏb÷%i·ŽðÛ„uy ib.‰o .Iw=;ª:ôƒíÄñ­Ìb%mHEFaÂYà³"…qÝ9R4¡d™Ê-ž~¾Â°mp(Ë( Bxø Å6£'qmÀ Áåæø¿ _è’ü‹€ƒKíHù Žéi¸¶rÝV3àRÓmÂ{Är`xW2q °¼»IÑìïUîóü¹NÚõwƒïNÆ'6÷€ïIÆ'ú€{Á÷6É'®^~]<>1š/$´»8>”ŒOÞ~[2>±x;øí‘}bNFfB$ép0­e­î7Òé.à8øx2^q8>‘ŒWÀIp©¡¹ª73ï}©l›Ž]ZüÓiß"ÔŸÂo—Ø=SEƒÏ}®,{gÄùÓs¡¡é¡¦€ßÿfòÍŠ1á›eTÓº‘¨Ç›N_=~i¹?®[®Foâ>B \‹?I\;p9øòø#ĵ;À;"{‡ÔÍö¯Pì`ÿ)lÞ¹fm¶g`¸dæsk†7õåúŒu›6®îíÁÊŒž‚nõT"SO…ÿf¢ßå åšß–ß,“9‹žù2ÙAŠ³Rè=Ïm)'/ÎIÌï-¿ŸÍž–o<º· +7ç<]ÛKørî´PÚcemjÇUÞè<ÒŒ?ùŽ¿8y×χÿA«ñ›VüíÜ#‡÷Ý’õ|7âÿô*?Ô^+lkhÓàu–­2¿ö'¯ ñ“ÕŽ3- æ²01óÆ ·<ãäz¡^7O àYè›ùW å¦TKUjô/ 5TÆ[ó€‹Á¥^N]©s†ô¼©×+Å[ñ&Z[êI…Ä/ `MÑ([Ò$Ù˜$Ë·OºÖ°X…?Ïë„LËÐ-}7öˆ&C§X¶èŸÛîß©ÐŽ¬É’¯\±ŽzHIÙ‘Äï .I;Ϊ•‹ˆ+â[ùmfäïçû•§a{fV3îb%jW†}C%Æëu‰ÅtU[µSü–cŒÒš[Å’º6pÝ<\·öÄ6c´¡âÙ­ †6läí Í?Ê´<ÇæË8+‡J…|»³ág„?ÿQ¤ ­¼‹Ë›ˆu¤Jþø;ðß) ȆC)$î'ÀÿebÛ†ŠÇGHýsà¿‚ÿkd_!ØŽ¡å˜-̼‹b\lh~Ý)øoSžº ª¢­#CæˆòÈ 1Ytž‹Ãfú\Æõ˜óô;†•3œÛNÜqôºý;n¸ãÆÁ=»v¢¾–Á)·{Ôð k<ÝQóuGçV­üÑL·ã^sDK/·NdÇt'ü®³sÚÏtø3¼³9«û˜ËÞ¦9ît[†×c ¬èÓ'·¯ëñŒÉ®B!ß•¥çc7vlÕŽ°Ÿ¢Ÿp§\Ï(tSí-Ý‘³³þ_ñ¿)ߟñb÷wà{ÇWÕâŠÒÏuj«ViÓ4/)¿zhˆŸå²ÍÍ:fÑ»ú û¡ýú¤Ö¯dKÞíäˆm1ðetYÆD¶ÐAÛ‡[Þöûª»»‡ýßW¢'¨1ÝÕ‘9uj불€(æy#†£1ó÷Ïô÷UO|uùGN­ÖèÔÚŽÕ3zÓ5øí¡ŽÕ™*eØ3WýPç©SzKf:–†ýBà Á Ã9<Ý1íXšCy[Ïáò)U¥TNCZ¯ h¿RFû`¦ŸUO³>ÛÜ*d_Ù[lP&Ô?¿F‰Ôº} ¶emË2xâê™újõ¬4|–Y,‘Çù(õ‰VÓ ª¶²r)²í‚¡œ!|Ž½êõÜTË´fö™ðbüÖ¸$SǼÈcsů”WÄ*Òµ~³?­›4ªNê4–žÑ¬>úÏöŸIb“ÄœÁæÈáU> jrAà™È*o-«¬çrý}=kØ;µû;è(Ý^VLä»ØÛÛtàÆ=t|»g8Y£è‰‡~‚vhM¸|kä'Ø|éF¾¿ãƃÝ{;2ØÍ©¿ãàöÑ])0k;ý{wdä®×ßq¢#üÃÌÇîßùa¶—†Ÿ Ò¿y=‹ ÏcN¾ãÚú7f4Z)h»†¯Î5éDIV °fi¾á,ü†±ªnß.fZ6÷r¶W¯Äîîßù-¶†\3.@BØ+›ô?•Ür|ZZ¥wî—R%PôÒ†°5€ÑJ›É¨ê,‚%|Äñ­HL‹^ “Ö™±uÕQÞào}îjEÃñt“÷+ñ­õM‹*ñ:c䔯´j¨¬ç¦Áš×ìïMÞ“I|_q%­Æ8‹jâZƒ—BøR%ܨqܪ›zµçƒÏ—Ñ‹ë3«FŸÕî´Ž[Ö.åQ¦G8ü—”]\¾.R:¨;yBÌ=•Ðmp/¸T…¤AØ7è°%q[ׂ«+8Î}'që×_9¾.©œkSÛuÛ-aŽ}À,xVá{1=£Ð@l0ž‹ü^B§?oWòéïl_cLÃaÓéÓ|Ö¤?RvðLK¤Ó`‚éÄm&˜þHÜzà™þH±}ÀÓ‰k61ý‘x#€MKˆ/?IÄ•þ²aÓýJ;ðY“þHÔ"à™–þè—vL$n+0ÁôGâÖÏÈôGŠí&˜þH\°‰éÄlZú;WÄÇÓ_.lú#}ÚÏšôGÊ.žiétÚL0ý‘¸­ÀÓ‰[<#Ó)¶˜`ú#qmÀ&¦?o°iéï<_ãK³¬¾°ùj.—êßO2ÿ‘²‹ëÁן!ùtÚ ¼\e"jÿHÜ6àuàR‰(\þ#q€ûÀ÷IùÛÌK%¢pùĵ ðè‰'tþ#ñ#Ä•|þ;_ÄÇ8óßš°ùj>kò)»x¦å?Òi'0ÁüGâ¶Ì$nðŒÌ¤Ø~`‚ùĵ›˜ÿHüH›–ÿ.ñÅ1Æü7ºþØùÙ“ÿHÙÅÀ3-ÿ‘N; æ?· ˜`þ#q€gdþ#ÅöÌ$® ØÄüGâGØ´üw¡ˆ/Žqæ¿Ðõ?R¨ø¬É¤ìbà™–ÿH§Àó‰ÛL0ÿ‘¸ À32ÿ‘bû æ¿À©ÍÌ$~$€MˉøâcþóB×ÿH¡và³&ÿ‘²‹gZþ#vÌ$n0ÁüGâ6ÏÈüGŠí&˜ÿH\°‰ùÄ°iùïb_ãÌ¡ë¤P;ðY“ÿHÙÅÀ3-ÿ‘N; æ?· ˜`þ#q€gdþ#ÅöÌ$® ØÄüGâGØ´üw‰ˆ/Ž1N™ ›þHŸvà³fú )»x¦M!v÷¶$6ý…Äm&8ý…Ä­ž‘Ó_H±}À§¿¸6`§¿x#€M›þr©ˆ/Ž1¦¿BØôGú´Ÿ5é”]<ÓÒé´˜`ú#q[ ¦?·xF¦?Rl0ÁôGâÚ€ML$Þ`ÓÒß2_cL^ØôGú´Ÿ5é”]<ÓÒé´˜`ú#q[ ¦?·xF¦?Rl0ÁôGâÚ€ML$Þ`ÓÒße"¾8ƘþBaHú´Ÿ5é”]<ÓÒé´˜`ú#q[ ¦?·xF¦?Rl0ÁôGâÚ€ML$Þ`ÓÒßå"¾8Æ—þÚh£; ÍÚ ÁJ'Àù5MÚ|³G=_ÞV‰vS2­lžŽ¬²-vÁ¿ËgW¹šÉ·eÈuk;4Ú1<¸Ã?nxÔ7,:÷J×Æ,}ÁÒiÞ°F½1û,>þ ´£ø‡kd†ÌÚ±×ßÍ™öj:yŠoÚ;”^Ñ7ÔyŠ>¼Ë:¹¢ïÔ)ßÇ7P}ÆyI/yXýéŽióÎ*s™Ž÷›ÕÈý$öä%…_Pü2Š—ݯµåt;ß5Ø.K™uKÒÙCéãCÞLƒ}v•©T_jƒ}vÕÚ#Pµ¨ë1 ½Y/…;zÂRç"KÄê–Áo³š[4²æÈÄ NvÏ—Ä‘î~Þåy¶[;XÊ{f1_•u–¬Åß›FNž¢4,Žt(èžcNŠó #¤ÿ×gYþý7àïÁÿlÉ¿OZFq5ùW‰jó¯•Bç_uöˆ%ÿÆùRçßø¤ž&ÿªqËà·ƒšcOˆCsèÐVÝšÒ²v¾T°\ú7õnð,[©ðòc¹‡ó†ËªÃyÏp,ÝcußüT†².?%G>ìS7N¨¸a.k½Jy=¼r©Û9ÁS*ç«4èB q· ÁSRÅp]$n8"8aD[í7’J.+¥Y› E~°eEÇ)I˜fø2Á åé¹»E'‡„R¯¾ApBeéÁ½¡d{L÷0ð‚FíåÛÇCâßTAÿŠ»‡rHľYp¤ûxHüãô¯äûx4áÑãë㙋c $”k._"]¯8«¶EA'-éY¡amjVTgVÙÉÚÃ?ƒ¾f‰‰÷nò„T>wÎ5YwÄv]“wšè=m‰>X/)ËTm‡:L£]íI•çï¿'þ†ÄŸþ|Œo¼tÞfövtË¥âÞÈujv.çjp4<a&³½øNðwªktì³Ûûÿp2v{ð#à‰l·¾ìfZY3gXYƒŒgD°àG?ÿ¹B 9pXÊ‚ÿü øo’±à/€¿ÿmd fª,hzÕ6,:vÑv(mf¨o]Âxÿ,0u©à„ŠŒ7‡…ßC2Ö£²8¦'LÀz©eÀNÁS‘­wå3Ž¿°Õ@ÒóJà à„qWÉeÚ ö¨à©£ÉWIüô¯ä«Ë…ãsŒq¨N$‘Ь}¨¯V£å¡>~X ?¶—Ÿ„¤›–ßÑÌ¿qKÅbÞ­RúÐëëïËqáð#ñûûrø;á àr]'‘üÄWòþÞïˆ×ßé¸6 ÍÚÑý½­F£•eÇà3÷`ZÒ)×~Ž—Ðx p-øZi£&? Bz¯öƒ÷‡ÕŸîHz„¾: øÕ2ŠGQ¦†ºae*Õ—Ú`D­=”ƒÄýRêƒÄ+u†aunüö,ÍõJ9Ó=§-¨Î^ð½ñü$® x-xôSJCü$þºâJ¾à_ˆ"Œ¯àŸ#Nh•Ð­¸¸¥|Ÿ¢ªîñrÑÏ[àYFXyo• †cf;ýú@M¨xšd·gŸêžæŽÙ¥|®6HüÝÄ•´+ >âJ>D¯€ð+”„hmì™áÀÌ1ÝÊå©ÙÇüý„áØZÖÈçÝž¬]b7öŒ8Æ]%Ãʲ({žæˆfÂCà‡:xƒšÙpjÂÃà‡“÷,$€¸’Vc|ÉǦ9øj_­ÄÁ•A³ô\NB±v ú=e¾eÙV—eŒòi Tð Óʽ@±FŸ2í *aH'TSòâ@,jc†¥Ñ¢Ržý4:mlVn9ã¬l2FFXɦ¹æ š,èøƒz剃¦•3ÇÍ\‰‡~ÍŽÏ1P¿†ÞêbàOÀ)¯©[C:ý#ð·à¿U˜ Ì^!q¿þ3ø?+Û “œÄýø;ðßEÎ Àbÿ"0µPð”T'P¸ ‰mƒØE‚&¨Iüâ úWò‰:-â‹cœËŸm ½ÚÑ×ÿ-¬ÑgÍLó"x² L¿.Y9#ô€é½x ø5Êjx3| GëH“½ÀëÀØ…‹ÄmîßÙÓ/ ´ÏØ»`…`Ú0i†¦Œö‡Á‡•Ùin‡må§z;dlemp;[eEðbd[µ†žª@òï:àŽ2£ÌîÐóy)“LOKµ¤Ã›ÄÞ ½å,g’{€Ï¾2“Ìë0Gze­ò ðað‡“±Ê €€?Ù*³ef† _ þJe†™ÓÁZ4†”Y^|üñdÌòð-ào‰l–+;ãj.‘žO¿þõ3¤¹D:ýøcðÇß\"qßþ\ªÞsþøSðŸžIÍ%RìgÀÿÿ¯ø›K$® øßàÿ|s‰ÄÿOq%ß\êñÅ1Ʊ•œc{{%tk.n‰:¶RÛµõ ?¢RÝRâunà„Ï´°l-«»†ÛcŒóÎç4õH±Z°ø”&ÓiÃ6»oÔ±KE7P§‡.9‘lU¥Xzg_þš3$Å’No¾üÝñ§X÷fà{Àߊ%q¯¾ü½gRŠ%ÅÞüð?‰?Å’¸6àWÀ¿’|Š%ñ_ ®¤Õ¸RDW›6‚q„ª¢»f†!ºòJ@­GËÚ…bI$@±0Õ.y샰ƒsôíÀëÀUöý4œ» îL¸ þdäHꦦëZ»bÄá)Í5#þøKð_F6â¹Õ­©ºiôÀÿÿßfט2)ž’ZM¶îЃ?%Á —›=­î@âUпâ®;ÐÓ·AìbÁÌž]w ñK*è_É×z…GsŒ±îÀr˱ºµ£×f×èôr,îÔhü]¯Zk3fOˆŽ3šgPÞ©5PI ˜ó5EŒæ1¬"RÊz´#u²‰/{ 椑«.…ܨ#ôZÎ>þ„²´6«¯gMØ’‡4yøð¦¸·ß }zÀ\¹Â†”xð#àQf•¶Cå¤J£§€ŸÿL% ü(ð³àŸM¾¤!ñŸ ®¸K×ü<¸Tã8ZICâ¿@\É—4}Â9Ƹ®3k;Šµ£¯ë¬m¢¾n†Aã@éAóà¦*eHe9Ÿ·'Ä2/wÇÈë¼ùIæ? Ê*ÿNWôðÆ«Ä{Z |¸Tã°nf[È5ë—N >ü$ø'ã/yHÜ“À§ÀŸŠ\K£Ö HO¿þ e–š½wÇÁГH—ïþ£d,ôgÀ?ÿófÕ H‰¿þ ügM­&¿þø?%Q7  üø¯’¯ø_WÜu×ü øo’¯øßWòuƒ5Â9ÆW7hó 7ìŒ2Ò¨¸°%ꆃgÕhtÏLý×¼Ê4f_éžézfVÌãÌÚÖö”åSÎÆõÀî„#TÚשGˆÙ Ô±½sª\²¤%^ÆàÃà+Ë_óèaû;N„.üIÇ€oWwXDâ…Ä=|#¸ÜXqð[½3£Ý¬çs]|ž½aõ]ûÄžùö0Mö5rV‡3³cü³aö™²-M'_±rº“Ó,Û)ÐÆ­&9Öp‰ïƪÝ,Qí£Ç{ð÷à¿WmtOÆè©ÙÀ‚+ì?ÑèOCìBÁôž¦éÔ¯+h,ªöñíÃLËõ ='Uá -× N¨Èv’=ߤÌÕÀÝ‚Æ_ç €{Oí‰l»vqêSÞµe¬³xXpBUÕA:tJB£a !¸Òó’*ËŠ?]ûû ¦›írŒ¬Œ?ݼCpB9¥§ýòàˆà ÎqÒxaíÒÙ)ìiíBÁ°¨7¹H3~ïLÒnøBÁ ã®ÃR&lƒØOÉŸ¯+]‡%ñUп’¯Ã®1È1ÆùÇyc<ôücR©¸¨%êüãÚeº?Â7½a•MoÂ`ÕŒ^žûz{k§#ש¿jü©¦u{l^¿Us×zô˜KwßÕÔ¼Jš<|1¸ÔtÏðyu¡È«8vIBïIàýà÷+I­ô‹ð%à/‰¶‹xjÅ"ÎÐ 9H——_ þÚø)‰k¾üuÉ'RÿúâJ>‘®AÇ1Æ‚a/l_)ÔŒ>PP;}Oíáöß~1KÛ Ç¨Õ—µYßÌš|(ûÖ´²ùRÎð‡¤í‚Åš®è>`¿S9ë¹[Û¥[¢¶J£ n‰—±ø2ð—EJ²u“í¨c%4{ðàRíòÓ&Ûib_ |ø›ŠmÐ %qß þfš:,\¢ÉIz<|üIe…¯d““”ù0ðÀÿ(‰&' |7ðÁÿ8zn[²‘øOWÜ%‰k~\jT.ZÉF⟠®äK¶õ£9ÆØÍmí¸ö ÍÚÑ»¹k[?.Ú®É÷5¦ ÿèô±Ý1+©Š¶‰= 4}ÒýÚ5,*›ë9½ÈìZ½äº]×NùŸ¦‹Ž=iÄ–/Xr·G»òæq#oŽÙv®[;ZÝÀØH)ÎÃ/›¼$íƒìnѶr®ÿ3ôb^ÏšTr¥H%Èõ¸ðŸÀ¥†Ü” ’&ÿüðÿH";’À_ÿü?“ÏŽ$þ¿ˆ+îìHâÚ€MÜ ‹ÄÿO›¶AÖáÎãËŽsÇ gØvÃÆ)Õ\Òõ°åÚºÿñ& ‰m[Cyb9·'F|(;±ŒÄªÉnyÓv±ÈV8Pb‹8—dT&<~JYº’›KBºÜ|\ªÏ/\U›ÄÝ |ø‹"GÊu5m2Ë/%»µ›Ä6ÒW³RÉ·ºØ§ N ç*‡è)^ ü6ø·›Z‘&ü1ø“(‡Hàw€?i‰°sd´rˆÄÿ4€¸â.‡H\ðgà?K¾"ñ@\É—C…;sŒqIDÎ5½° YÒ©¸¸EõF¯,wA¶žžcÒüª‹*Ñ1%Ê#úóœÆÊ$Væg¡86íˆÏêáûF´’%~Ù¤¹ 5eÔ:‘ÑdUéÍœ |;øÛÕ¥5‰ÎÒä“ÀOƒZaXÇÕùOú¾øGàÒ&Ó~ùÀÏ€&r¨ïçÅ‘’ëM :ŸHeóƒ‹;_ëÈ< ˧¢<•xSŸ˜:Kp¸7‰mƒØvÁý¬›dâ&ñó+è_É'îM"`9ÆØ€€I(×\ÒµQ›¹ï+gî¼)ºü}oÇI$þü@Ãõü.=?j;¦7Vp§çc?ã¯u¾5êÍ;£ùHfΨ>æ[¦þ¹ BøøcM­’&o¾ü-IÔ?Ià«€O€?‘|ý“Ä¿5€¸âNc$® ø6ð·%ŸÆHüÛˆ+ù4¶Y¸3GµiŒ°¥¡yr¶_¦N;pQKÔÉ#µqzžžË™H]å-mÃ:.©¶xøñ;îf8+á*ðUÉ;.‰_@\Šž¾}¨l–:²Á?·q%ý ¶ÀÑ}Ä%2QÕÙŠ0ñWÒoe â£ãHd´~'Œ¯bvΠh©úãD»uO—Pt °¼C:×-Œj@RãŠâJÚ®†É|TãGYÿïh ©eu«|l6k‘eí°i‰Újy½ëˆMKbÉÈ /Õ †î–ÃÝöA¯ÁÃfÁ³É¿ïíí£š÷=G¼ïºì€üøwJ dèžõÕìÀ}>âjʫىױSÉ«i [û ±sóÁ£7»S2oaAq)jÆ-@,÷wèhô† ‘Jç/¿Laµ°Á0‰[¼üòȆYÉ›ðé¼Í 7G·\ö¯‚‘ëÔì\ÎÕÊ‘n&l4‘†pø®&EÓ.DЮæDÓ.DЮæFÓ.Dj£ia9šö „§]¡]ðësdý:\8íBùºP`DËt7'ÓÊbml• ,Òu9ðø¡&ÖnÓîæÖnÓîæÖn“qÖ‘‡CÖnÓîdk7‚i·ÒÀÚX,Ó«­¢cmGœG”6»î MÏãXgèÛ¨"¼üæ&EØDÕžæDØDÕžæFØD•j#lQ è:p(tˆíAXí¯Ÿ#ëëáBlÂj®›y¾©6߉”CwBâ†CК00Ü)ù³ðmï9bä]ãä˜WÈŸ:ÉϨ=yjÈ.y'‡Ò+ú†:OчwY'Wô:¹bÍ©S~µf6ä™öŒkü Z3¹¦Á#uãàžƒ;v nð\ýÀAðÁ°ÏEw,˜vÇPáS=w³Ä]=½„=Žô>*£w9ÎZOÛ$npz°25ê·E‡ÒCu6zE7íاnõ¥’—Æn˜ÔiRv0šôvêoúÐ8›e.‹ K‹ük俽Póx²§J¼ß÷'³uP»ãàÇ•Åu¤ÁFRÉž?+ŒÄåwƒßÙ^™NšOáMØ]ØV|œ5º´¬]bÿUaÃ{€ï—:Ì0†!.ÒéCÀO*#¾øiðOG¯Ðw†žC |ø9ðÏ%_/=, [ÆfN€9ùGZTtîŸõÕÁ}>âjÊ«¹¯ã%¯¦¥aÔ4÷ ±sM÷ ñ ¨zd±|,‚ÄAؤÓ9ÀË[Y$q Z‹ª‘Å›y·žni%+k[åYã8ÝÜÆ‚r§§"ì“ ÁA„Ý Ò<*BP“ˆ¿teï*C«lŠ~îÍ BŽÐ÷š~GrG›~GrG›~Gr>Æ~{‡ßQ„ÜÑdÃï(Bî¨Òð;!üŒI=ë/ô˜ôQ¡n5)ðnD°Ý5ðêJi‚ÎÄÙ-M Câç°Itn»÷Qé½ÌÙCês3t T3A'xW¤.ZRi)ðRp•ósd"7¸ \j~NÕ›8+ãŸå(a Ë€«ÀåÆžëh®dOiÓ\ ¾6Û¬®_Ù6³ùÑvYÜ ¾Y­]$Ú¯¤Ívà^ð½ÉØe ðZðk#ÛåZ>÷Àp]ÃòL=ŸŸÒÒU%u'MHç'­iŽÁ·T¤yh"Ìøy[yq¨·„e¯> þ°ÂÚY”Òé1à[Àß’Œ}>þDdûÞ˜ñgý‰ÌHÖ®µðÛt]fÕiÆæÀ&»ÑᓨýƒL$¬ýV࿃ÿû‘_/0Õ&xJj]x;ÿÄÎ<}Æœl~MùØ.¸änYŠók u’Ô‚&`—ê$© 'Œh—ÏÐÞ}´ÛšèÞ‡úÐ,0}Ø̛ޔ?l\ 2¾ñÖí³xÍ:¶ëò¿6é+¾7M 7h™‹.´u›;f;I^ÚRð°eðý²¬måV¢·äÒ´²:ÿZZìXÈÒ§…ùÄuð‡‚J¾ÄV|› 1ùÌŸx–:Þ@õ'™‘Þ?þµà„áô§;¦M2›;T8æÆ7ËŒþ›€â#£xy’Pëi;Ì2S¦Fý­‘‡ÒÇCO.S¦R}© &—©µG`QF]ièìÍz)õ§pÅ+u†)\êÜ2øí{´\©P˜B:Ïûóxstt!NI੘Ϫ7ÊS'ßâ6ÿ†ÊÁ 8’ˆŸà@…Hyksñ‹#:? ©¡»Õ/¬õ¥‚&Ý“s |ÞG5=9Ë*K­‚–è“ ©â­P‹p¸\W†ú~fÒi%°¼7þš‰» ØÞÙjSš>n›9VÒÇ ÂdªVÃSûÒàlÏö˜µÅv·<Š²ºk¸=|B¯|:‹Iþ£Ý2Ý}ôØk€ïW7›/Rw©ô!àSàRÇþ„wˆ÷?.5‡0ø&R_̈jò†.Ž¥Ñ5˶º²ÌŒ3ðØTÑpF V‹öè$Ϊƒ¤ý­_ùÄM„¯²:oJ‰c9ƒÙW8›É×ÞѹâµÍè`.)wšð?bndŽÔ?„½¨âoficYq=I¯‹_ɳ‚b²hX.«ìã òêš¹ãV{,éçØß²Ö|^çÍ”¢©ÀwË°P-ƒàø'ß ·f@†bH׆MË.˜5G§û§­^¿cŒ–òºóÌ»¤²í§¶¾@pBõÙVbPtzøJÁ ®Ö{ Þ*·ipðÛ¹²¹¯õUÀ7NxFôë‘No~@pÂ$ìóFà'ŒhŸŸeüƒƒkê/"s¦ÃB%—uã÷™&AqdAUÔGu³^œ!Î-[«?×¢ò«–aPÅ•Ž_a¥·‹’mÖ£‚&]a}ŽðÚ2ª©°¦E…õæêuu6 ©ís¡!a<C´ÊìD:õ·‚o?ZI\'p¸üêIÿÛKy°f3’FëÞ~‹2£EÜT†”º˜Ï'cµ[ðBd«½ Ó?pxÜÌ•hZ U¡ÜLàD1Z¾Ë3b~BŸrgJ‰ÌþÆY2Z¥S7_îöÂïBo þku½o…V™ÏèÿüOðÿLÆ#~ü/p© «^Áòò†ì¼À²=ªeã:û·\±Eêý·ÀÔ%‚&]l s—QM±õ V½óÃ1F» "üM 0I,I¢]2¦ó槔3Êgþ±OFLj$iÆ],»4>éLt—ÕL+Cƒ‡ê5ÝڎУ•·á>þ ²(:G¨_¥±„‚\aH5èÛ'qß.5.^õ>ΧH¢ƒ ÞØtqö¬Ä+yø‡à¨Ìfó Ìí\Çž=¡KDÒèÓÀ¯€%þüGâþøUð¯F6V‹'Ó| ø ðo(3͹õ2€„†ßþøß%Oü{ð¿?ƒâé—À߃ÿ^}< ßËÂ4âÓ& N˜D<= ±K'Œh¬;ªŽ¢íìÖ舦à@Pµ_»bÁPÎdå¨gì’+ï4êcxU-G ÇÃ?zèyôpK¶à„Š¬¾Øï†è²l§ KDijøBÁ ~†£¨H`ø à)¹ú@ðÛ¢oR³ÇBBïâ{j-äMŽ¶e 1ªÁè¬ÁŒŸÊàð÷ê­2š[¢QDñ{ÙòÉ’‘}¥}êßO©›³µm!iW` \(8a2®ð¼Hpˆ®p–?Ý.lµÔX ¼@ðV©™RÑZ· —QMëa»h=Ð&æóüˆgzM,*lÇõGOL+›/åÄÑ(:ªÿã¦.Óx¾šnß®ÌáÛ˜nnزŽT¹¸|üe‰Û¼üúÈö¼¡Üv¦J$µó‹ú5Ç©““w¥8ö™>kçK«S7ø{DËÖ(+% |øp¹± ú6ù¹i¤÷ïGXý鎤禑Âï (þNÅ£ÏMS¦†º¹iÊTª/µÁÜ4µöP>7-î—RnZ¼Rg˜›¦Î-ƒßNú‡”û½m8¶“ÆÊy·[;H£{Å|UéJ ŠòþÁÔŒdi™~ÈŸ1PtLÅåmA÷sRr4#ðô©Ë'lFR¾E2)§.¦O…BkRRNuï”Q\IRV£F£¤|‹LRV£Rؤ¬Ð§MÊœ½Y/¥aRŽQêÌIY‘[V ì8BµÊô<»*®©^àfÁ Ÿ9rK@ñ-2Š«É‘JÔPZqU£Rè©ÎqT\c})sd|RO“#Õ¸eðÛkö»|ö™î²º¥5…—þMCÁ¯žVz*Ë/ÒF÷¨T´ü'ñ'•…×eÔñ£õkÙaÓÊ¥Ù?úø.kø×6Š»™º„R÷ß,8a]B©çœ0¢­çñír™®ºÔ[€ïœP‘Ũ«®OÆ.~XpÂ$ìò$ð#‚F´K«T }ø1Á ZdŒEž~FpÂ$,òqàg'Œh‘9™õݤÃç€_œP¡UÖÊXåÀo N˜„UþømÁ #ZåÁÀ Ö‘¥*Ý,•¢IL¶vŒºW§ØhÁ´<ÃÉE>¹lú*>¿£exÊ0ÖJûëÐC{ô¾#°õÁ[ÕÍ ]\~Œþ½; î‘ðÖ;€Á[¥ær†öÖ[–à­VôLzLäÛÀ¢à„õ=¦w§°lÕŒé]‰yæ!–.æ»V#•\ZÍÊòœî„Nu:t$¼üÊH>]wK :W²”×%”ÛìïWèÒ NÁ#q}À«Á¯Ž?’HÜUÀkÀ¯‰ì:½š;eyú$¥DtmWRc·¶ÏkëhIœÔÜiÒv;з•–•¡‡I•qàøT2ö+O€Ÿˆl¿•©Ó3 OLçë”X"è¢ÉÂü´BŠ3¿¥Êô$ð“àŸTfÐEhÖÝ=ãŒÃMûyà7Á¿™ŒiŸ~ ü[Ñ›q’ oÒâÛÀÿH™…. Z¨O»Š·º„®µ’†?þ'ø&c®?þxôE tRº¤ùeülI7£íü”˜š×ãi¿V}[pE›Cì,Qžqcè®™ŸªW=5‘‚ ºe,F!ýù9~lKÎÓ¡—ñßS/œ°É‰:õ(ð'LÀ=R/¾Rð”Ô‚ãêú{9QË–£©Ç€oœP‘yÎ*7.dlônà‡O¢ƒ†Ä½ øÁtÐŒW­C2G-Û¡ý¾öY®gè9a7>5Ž™õ“`~qZÕÐÌÚ–çØù¼èç;Ê”GþýP•Îï¼Sˆak§à­Ê\áòr~ïY=zŽoíœ0i½xXpˆÒ¦…_»O Þ*wÎÝÌæšn*­K ÝáJZ>8)x«ÔáÍu8%x«T¼êåtk¼JL‹÷ýBÕ1 ö8«×ÆløE†¤ë à;'LºKaXxEÕt)HœÑœ…pÂYà³”¹ÎiÎí¦Y§mÞV¹’6‰ŸÀ&ÛÃë÷±i>a@¸Õ'f<ví¾ø3£ ÒÚÝ3r]¢’=ÀWûôä‹Ç÷`Í?Õ»Qet¦YÜ ¾SæAø,Œj`RcOq%íg#0©jü¬Ø—c;<éZQw<Úщ½ËûY ªÄ·s*Ev§qÇW/¸53îa7ÞõQ²x* }på(“°.ÕíÍA´jÞ¼Ü&ä›øwJ dŸõÕ˜¸ÏG\My5Çð:Ž)y5- «U  "±sê Z%ö4›¾à>pXoøÙ¤ã`xŸ´®Q¦ãÍòôÒíkè?ãœ_þª3"“‘Fo¾\j3\&#q¯¾ \nQðÛOdÝ’|ô§ÆgpŽPÞµ1ÁÒ·)þEÉ3¯ÄYâÜd4wÚã› »å½ÝoÖó¹.¾I1É ìºîÐüÏÄÍiÇpù&ÇÚ˜á1?¢ÝYùùt®A'Çåí‰ð ˜ÞÛ“SÂ&óEø²Md¼  x¦¸6oâÀ3‰ŸÀ& <;xý>6Í'\w£úÄŒÏ.XæpÉÕŽR¢°GøزØìEBß%ÀNðNéöÑeQíHjdˆ+iwò`9•¸Sê…•#çË›EÒ~wþa€Ôo§Ù°¯ûÒ @8gÈ6è„!SœnÅçûåJY*lx•‚OÌnÍÄ@¾/éˆé¸^ð:©}dŠI‡÷‚ë0F4Ë®ž`X÷ÎŒ8E‰þ]¥:nvùT«nUÍ5ößCYÏîFËŠXEKŒ¾—ЮþÙÊB½*Iž(e'(—`ÿR ß ”¸ÜF¥u«Q³†½Ðs_I“—œ0îê‰{ø¨à„c³5ô¡Q$ÿåÀWN¨È ‡ O/;„j¯¾S𔺊í ;™’À?¾KpÉ%ôÁo/î¬LLöL/æIàç'”Ô/JÏt÷gLz'¯;uGïÉ-§†¶jCdð;NÓ†XJâ_zÞI•§NiýZoƒçœ±›ò Àÿœ0ÜÃÒI÷`“ÂÿPü¿dÞƒ­Lº¾†z°Ã¸@èžneú×—Ú §[­ñN×Ó­&Œšõë÷ˆÇ+u†quüVv;–€6­)Á[å+¿QrõÅJ2/·¶W Nø¬ÈË­W¿BFq%yYõwVby¹¡¹er°]Ãæ`…†:]Íz[ ómŒRgηŠ9øm?æªè8ßšFè°è×5r8‹Õ˜Ô ż‘‘ÚD2ø:AW‹í̉ú³éµ™uân¦Æiëð.Á[¥† C7N[‡Žà„{lÚ¨Û!/º¼1Óɉ%ÔvÉa«²/?-0ÖãÓ:Jx»)mŽPÿÎ3îQ1½À¦Då¥i=9UÚY^:JnX³qtðphz¥oÅïRÑ5:X–ýÅHøu‡dWà¬qÁ ›Û_2ëðÁ pÉYÀç N1Ë,Áæ(º‡ÍQ›gÖ € .y²îL;ë´:FQB³7œP™™l«Câ^ |‹à„Ixz±f=!8aDïc…I>OE?¬èº“ã\Ó‹½Í¸+tÝÄ /øb³ê®\Ú3‚¯+—ëDõVmí‚·µ7¥M1ë†;J6ÚæϜ㳡ñÐvA@ñ dWÒxP£Fý¼†ÒÌ®2­5J…m%(´ÈéZ 38|³^KÃæ@ŒRgn(rÍà·Û»xÚÆ|žï‚ìNŠží™Y>€¥kÙ1³Ë½«DµÅœI™w¸DÃý²-‚òSÜ„§¸©))6UM°7ïœã³"ÁêÅuÅÕ$X%j4ÚV¾ •^•¨:½ª³ÇéÒkCgoÖKiœ\ã“zšäªÆ-ƒß^¬å ÖÄ#þ#ŒäXó;-›6}ýN@?ù훓6Oïœã³"m>PüÅÕ¤M%j¨M›JT 6ÕÙ#–´çKiœ6ã“zš´©Æ-ƒß>ÈÒ¦e{~_ èÿ›ÞW-z©µ’•3ܘÏkcSE›ýÃ5]šN†éëžSÂatþ4µ:?U5«½7üÄãÀ˘=_ðÙÑ—b†ž8ö±i“L' œ0ñ‰ÇÔ·ÛáMœxLâgWÒjLâõûØ4Ÿ˜‚ð©¨>1ãÄãówéž1j;Ô‚•Ÿt<…û¯¿Bº¨9+ª Itq%íJ'`5Õ¸ÒõbÒqÐnõÎZªswe4KræìI<áõàrO×­sÊlíKª o¿QYælØÙOâo—ï›ñ¿ýJ`ÛX ;E mBŸú³]óSZš/NëÔHųwÅfôÚ?ÚßúÌíæç·Ó]†Igwi91)Ö½±_æSÙý ÚÌÁè ˆÚ¢={ÔàÌ›k’~u³@~ÈìÍ-²‡ÌÎ4„5Gì”^·ÔUÀ^Á •9XƒA,w°OpÂüš—K¸Fpˆ~}_y—<~Ž@ɳiM7F¯¹‹¥Y%ÖN.Æ«z²c:m€nsóÞZßã+ñÄ¢6k[ã†ã‰Á2lŽ¾†J/`-ðc‚K˜ü6tò<áÇelZmä„&^C¥r¼ ›XC%ñ³ؤêÝxý>6Í'îð{¢úÄŒ5ÔËŽòE°4ì²Ë¶FLÖàÍâ€ÖL [S½÷vwI×T/jKR£7€¸’v©çÃz>ªY7KÔTw–ÏCË`A³=Â×wóÍ3¬"K“ÑE)áϘ¢Â"[qƒÿŸ¼7£¸òÇ5#ù@øÂÜw#À–@’%ùøÄ_ÈæGk¦%µ=Ó=t÷H–¹o„#’p$!“@²»96÷îf³ ÉæÜ_²Ù͵Gv7á_¯êÛ3-ifLWW÷Øùïg;ß/šñ¼×õ^½zu›¾´ñ–`@§E¶Å×;á¢*‹µLJp:ŽÖQ›9£Âî67øÕ&óø–k}À1Ú:µäšš^ÞÚX|e„ÞVs ÿ*>ÁSòUjbUšN/ÙÛⵄͲo>Åñ Á ãÎFH\p®à„kG¾¼Œy@f˜¯¸Ú»S’Vrº‰>çuDžô¥W=xà„’¯i]ÍŽŽBåkÎ_æ×ïœ0ÜÐ7’ž¿ …ßPü-2ŠGŸ¿P¦Fµu5Ì®¡g0”)UYj• µÙ뺚ê_¯b©<‡¯Ôsê\3øéÆ S¿U[h¾†ºè¼Õ]«&Þú¯ô]¼’Ügsê1[Lzÿ#ðÇ‚îÑö'Å"£¸šh«D u³ÅÊT kÕÙCùlqÜ…R=ÒÆ'u/‘V[ŽsG™Kʃªüªüb¿ËHÿø{Á ÷ù‡€âQ\MŒT¢†êŒT‰R¡£¤:‹Ä”‘ÆY,Õãd|R÷'Õ¸fðSu‹ú¥g NXôr‡dèLÏ.8á~:ÓG?BFq%¡SÕÒË2SJa§B{ì5½¬æìõ*”ªa3F©µÃ¦"· ~ºfübDÏöô\`I¢–÷äýѺ¥çÆh¢\zZz•~¼J}"lA6Â^œpÿˆ°CŇdWa•¨Q-ÂJ¥¦jT aÕÙc¯¶š³×«PªGØø¤î%ªqËৗW ¬•Îwþfàp ÿxЂc¸t`h§¶©´ò&Bx ¯øš²še®2ýeà7'TdòZs•é/¿%8aDƒB¶bmjy1 îÊØéÛÀŸ N¨ÈN ;í°†u)Sýø_‚&aª_ÿ[pˆ¦j¢lFÂ4þŸà„LSq„ÅÉëEË ¯\ãÀÙ‚*³N••$®8GpÂ$œâO{à„â|~5€ekzv{ÑõøÒ^ùSZ b8Ží”N:.Ýx3é`輞5B¯c¤×™ œ0âk…^`t£pË≨†Äšµ› œ0ñuŒ×‘b^ÇuŒ$~Jë´Žñf¿uó‰[ ü–¨>Qsc˶òe}¥Ë<Ö/óÐ{°¼[:ãoŽjORcQñ$íV·Â‚>*q«ÔU¸AhÔ\ ÿ&®g©°>]w“VŒ=ºp(x‡¼8¤IœG£!ëaHT;­ ±“ŽÅ¿HÒ nä(/¡×³q—‰w!Ñ›¸æe²ß¤Ë‹„>,ž±ß U¼¡f²^¤p. xNFñèã>ÊÔ¨¼W¨¿µ#ü˜Êt 5ð£Ö {ø©îîõ*•Ê#?ñJ­1ò£Î1ƒŸ>¥±nnñ ¾™ÿ%gu”Cs¹/Á¯0ó¯#öÓO¼ÍŒGyZ=ê_8F :ÐzgÞl•î+£¶È-9¹¸ÿÌoÇä#Iz¶ài©få$êõåòÕVU• u+8aÜÐÛ ?áq‚Fô›eå­wdÿ¼>¦tÿ`Ž“å—ÔYƒ93ãa_E&WtÙwÝÐýLÒúxà…‚&üÝŽÈåcÝúw@8aâýLÊÀ› ¼ŽýL?%€uêgÞ‰â÷±n>q„ßÕ'jö3OßÌ<ÃaQy üÚVsÅlGÛ\ôX¾]¾Tk}y»ËV¯˜5°›éîÂ÷Ï?W:ó8)ª¡IÄ“´¿½¦õQ¿=S¾Â–zsvÑõÛà¬Ík‡µö¦ƒ]Õz.SÌé<ìÃضï"`ýþgXÊ¡ÙY–kð~`é_‡,«·¢|Ÿ¦.Ý8¹õQ¤÷³ÀçÁŸßzq¤ð Å_Q¬“*J£ÛØÞ°×Nª¨ÍY;ÃU7,.áNç L(xZîàúZ ¶§.½cxÝøN¸·aÞúÅóÖUÖk“¸¹Àã—›·íÐéÀã'ŒèÐG—§Ë…œnZ®6lJºJZž&8a}[ƒô à*Á “°ÔéÀÕ‚Ö©5H¯®<-|¶é-Àó'LÂ$çû'Œ\yÊ­Á¨í숰·ŒÛ Ì žÎ+3ÔÔ¬cººdŒåÇ'LÂXp—àiù ­üO¤‘_Z¢Ëb ãìÞ"8¡"ã4më»`ŒiÞ'LÂ4·ïœ0¢iN õt¥#s]“úùSñ£|RDÂ`÷_œP‘Á¦éfoÆ앪NŸ¾,8a6{øŠà„mÖ¤…¿X4øð5Án 6`öf%Íòeà7'LÂ,_~Sp¹m»ã a.™%rÝùð'‚*2Ò;»ÍÞ=’fú%ðw‚&a¦Ÿ/x:úKÝ¢÷h™ÝëÀѦ¶‹Ø÷Ìús¥%ͼ‹zþ—ÔýƒÀÆ“'Œ¨vèùß{„ ”°nKï…pÂÄ—§Òú¼&¯ãòT?%€uZžzŠßGiŸ¨(uzÖðtÓ¿'aœäÓ!ííJ½1tøtñHFØ QÕ¹ŸJ-€x"–Êa¬Ž®°4{`;PѶ¸œî†>ÊáX‰ð0ðÔ5FgZ[üM-íD[ÚÂ6K¤Ù±Àà âo–HÜáÀ.ð®ÈF;C ÂhØéÒH¥Åê”å?ŠÛàÅŠ|Á¶¨|ZX·#Í»9ð\=š†áW„ñ­Ro`aIB³fàLð™2šUÔè¤*'/ ñà‹­;%4ž\¾Pam0=#_Elpxvb“øÅÄ“¼K?7~(V—Nû3—¡ôj.5›PÙ¡«œ0ôî°MšÎvƒwÇïÐÁ‰ {À{’wh¿0€x’wèwÀ‰ß«C7íÑÃ.cyܘ0†Íï€pi 댗~¾÷Ž†Dcô;àÆ„uŒÑ$~q룆?¯K»ôÃpã‡cqéÃÇÛQèKRÂzñÃøá<ðyñ{ñÃð\Âùàó“÷bß@5>Kxñ#ðÜGbõâ)³37 ¡Z3pø,enÜËz@†£ ØE+[ŽÊ®Ló÷ D Ùô 7‚oŒßÙƒnß”¼³“øÍÄ“¼³? 4vg/†uöGáàÆãìÅB!1gþh²Îþ(üÑú:û£ppëæìÁÁ‹ÕÙÓ#a=ý1x7¡ú>är~rsꎌíS-¯{Ž¹³ö•a½ü1TTµàkã÷òÇàل瀟“¼—“øuÄ“¼—¿žýÎX½¼ÉÓ‹=š5£gáS&h´¸ìÅzžÖ¡’wW;Ô¯S[‘ÕÇBÞ¿ß#\ .·®â‚®jÎ_m¬žô8/€x”Õ¹*cõ$n pø†ÈÎ>U¬ –0ÉF`xŸ2“˜7¼a;ÛÛ²fM‹Œq.fÀ3Ég+0 žÃ6$Þ ž¸›×L¾9 ñCÄ“|sð¸pjŽñ5S]s(¯‡mH§fàlðÙÒ Bã–Tjh!ј–3FŒŽT5stÈk«måÆx²/ñsç€Ë¥•Êu&Ÿ³êm¹`cgßÖЈtÚ¼üÒø‰[¼ ü²È¾Ÿn H~?ðrðËã@$® xøÉG eñ$ž~Í1¾T}ûe µšˆGQ¯ëÔòÝ.þÚÅjWf…ukRx&p)øÒøÝú ¸2á2ðeÉ»5‰_@<É»õ“på'ãuë‚„ZÍTëÖg–ÝzÂeEåZk•«‹Bð'áÝ„ç‚Kíx çéO» Ï—êTEót¿!€x’÷ôwÁ»ß¯§ç%Ôj ZO_YÕÓÇGq;o™E—»ìŸªìèží„Žën—® çínßœ¼·“ø-Ä“¼·¿þîX½}êùk:/ÊUÛÿYK·fà솨¦I.?þ®Šò"Òasô×Zwe„uyz¹À­à[ãwùwÃÍ ·oKÞåIüÄ“¼Ë¿nþžX]~Úùk >ÿøù{ðýfŠ|þ°Šk7Âúñ{ðë„­àR‹Âùñ{ໄmàmÉû1‰?%€x’÷ã§à»OÅêǺ7ôm“Э¨>t¯¯x«Oœ^g.ðRp•CLU<ÿ)x;áeàч˜B{>‰ï žä=ÿixûÓ±z>àá]ÿi¸ûÓ ûn¿N˜`¾KXÇNâO `Ý"ø3ðÝgbõãôù%ôjª_¢Ñ]9X«ëZ’Ú³€g‚Ÿ¿w?&< ü¬ä½›ÄŸ@<É{÷³ðègcõîÆó7$kΟ±EhÒm6ð$ð“â÷ágá·„'ƒŸœ¼“øyÄ“¼¿~ûÞX}8½¾GB¯f`ôÝ4AŸÄ x,K¨5 xøaÒv‹roãú+ª•iÍãxIóÃ-à-a߀¾‘ôq¼¤ð‰ÅO”Q¼äéÉãx•©Qùˆ˜þVf×Ðò*Sª²Ô*òªµHª\$•ÛÁê_¯b©|$o¼RkÉ«Î5ƒŸ†^)TãÄòwËN⚀'K%ÑZvrñ$ß²¿u‰0Æ–}]Ø–ôiîC-;©3 Xç–}\ËNšܯZvRøÄ€âujÙ•©Q­e_'Ѳ+S*TË®Ö"{mÙ«;|½Š¥r˯Ô-»:× ~ºeª‘`ËN⚀ulÙIüɬ[Ëþ~Ô%ÂøZöé¦åuÒ2j íš)v¿µ:gñûÏùÆt3jF÷ÄI’ü*µò²5:Ê*¯Vëà+¥Π¢79xøEñ»ýûáꄃ_œ¼Û“øKˆ'y·®þ\¬nÀ˜Ù®°çb õšsÁç*óû­äØ#FƳù6ÿ…vlfȺz¾#âoeߢ“ÙËUCl [ èÅKí W žƒëƒ'_ H¼@<ÉWƒÀõ?o54½NšÂr%Ôkª¯«qÞߨé s‡fÍAGy±D»–5F¸Ï·k+Ö¯j×VÒÿó³ÿÊhr¹|¾Nx1¸Tç÷€¯^=î†ö{iñ$ï÷„¯P¹ß×î-fm¿LR§8«AõyâZ^ºkNìe鎑3ø5 ä|˜´<ØÞ¿~KØ .u8]4&ñ=Ä£èí§ös›T{?ÜôC@âQÜbLÛÈ·V‡m/>Œºóa|?Új¢éQËêÃø!ñD4ÙZîèÜZ–¥såLYKÛYERFç­‹³ÖùWÖfê½dË]Èwy.G¸|­´Ý£8ãOâjJ¨–ƒK%uUâQùf¬ÙoLÐwv/W¸Ó?WYBó­@\—Õ|Ò/ošàRf•2©²½—Äܾ=²Ç/-]ÛÕ©­$O‰«çôœkÓýsCæˆaµÓ]u2.¾ø.ðw)wñin1Ÿ×°#!¤Ôg€¯‚¿šŒ“Ïè…ÊäæjøøKÊ<ü½À×À_KÆÃß üø"{øL­•õÅÉg%Cóßÿ¦r¿ÎªLŽ´ú5ðàHÆqgöú:KzîëÀ_‚ÿR™ç~øàÿ‘Œç~ øŸàÿÙs)_©èÙš±Ósô ¿×%ßúÒ쿦æ N¨¨`¦÷W¿³äÃÂá^h¨krMâÓŒ–\ ª:/²gZñD,•é,½Hâ0§À.„ÓÁånî¨Þfä Ý-:FoËæ¾–jU«Úa*¤ÒlàQàGÅ_£IÜÀ£ÁŽl™»ÎHƒc€Çƒ¯Ì63K¶Yß'gœyÀðždŒ£‚/Œlœt»ŒiƒË^Ù4¥CˆÖ†?„ˆt:¸\ê`Äð¦Y\¾¾nõæ\àFðqGâ„(Òið*ð«’1Î& .Õ'¿1³]æBaÒa8.wR[%ó”ÎܸAÊ8p'øÎdŒ3 ‹l½]³-CÖ]Ê!3öÍ:BºÆtàS–L¥Ã–‡»XÀùl9Ã?jÃaÖµó¸?ÐÕ\Ï)f<ÖdtJ§»€ßÿž2»7‹ëí^Ð#cöþ\ºSÎìÿüø¯"›½Sk%Óá*Ü61ýìÚÂÄ.Ä$…0h)aØ:RpBE6l:UÎz) x¢à)•Kžª[/uð$ÁSÑ—n4kd̬1n§†@Å-þ@(E+î¯gIÇ×Gñý9}ÜZ@üSÂðO;µ•cþØœ?ª “ R),~üÓÊÜãö:½kWlغFÆ9^~üËÉ8Çg€_—j-ÇÃmí¬QÒÜbf¸d`Z’AûÖ`ýÖÒ7V ]o¹1ÚÓ¦ Ž]` kôt×-æ üÊZú«ù0çW*²t„QsRh>°Kp?ÙÔ©€Ý‚ûÙU”å¿m˜Ó(º”–èZÖdÖ1,ïÍM˜ *‡·mª8*8a½G²Hk·N˜„ewoœ0¢ee&IƒÛ€w NXïŽ6©s/ð‚&a—»€ NÑ.YpåQÔ¿µb\K«—:s~›;©E•VÂÀ.8¡:;½Ûú.i=S¿þAð”ÊU5 ü àž’Z:9®Žj£f±èy£è°z>o°N]6t÷ôúOéÙ‚&Ý}û¤0u Õtß.fÝ·µ¦çùÕ€š»Èó Ãõ!͹¬¯.šû“kŒŽž ´P¦G§”š#””ÙË?óîiaßî%¼áÅàuØËþ)ˆöQM!Klfü4„FßÌø–¨åBjÌ žäËå3(‹Ï()—†ª±ªÊ~EÛœ.7j1Nœ¶6|–@*œ .gõkI§C€¸KBâfO—µo‰R¡8|žrë¬Úع"ü éÔ\¾<ëÌž~Zdë¬n/7@¼¡5Ì¡aÊÐr­•p¯.êÔnµ®¿hÃÖ6ÖÖÌ|Aì•._ê$aÜÓׂ˭‹¨µ9§q(vï!)tð­àoUhÙò¾œIboÞ ~w2uðmào‹ìP›Ê›_xɼ„z݃$‰åBz®£4çOé^ÑÑKûuÝNÙ¨~ðà?P7¢ ¼’F?þø¿%cä×ÿþï‘|ëýeõÏZÏÑ‹®Û±Îpò,hÌ´Y‡,i¨‹¿H«âˆG\Wq5‹†^µÔÀ³'Œ!ZLÚÅ×ÄÔ]$¡îàrÁSÒÍÖ¤_0×æË W NѵÛ&ůN~´€«Ó!…BΧ¡… &5Wwî_«6¥Y#œRðZÁåV*†·`xà„-xl©áa!'cçLKŒüˬ, Õ®>&8¡2«EÙÅE:½øaÁ “°Ú;Ï NÑjÐH¯l½zø’à„Ê-´eÃf) }øUÁSR 2Â[èSÀ¿œ0¢…dÆâIƒ¯¿)x*Ú>üà·fªÏ†MRÖù.ðg‚&ao.¸äðuðÓ莺!ÝÉæ ·tŽ8ù†#Ãï<'õ~!0=MðtôÎcVŸ–çX‡1+Û¬ó˜©p0Ö1+‰E?¤Ó!@­!±1+7 ¨nÌ*¹þ éݼ \îfFåýRÉ:àξۿ!5‡;À¥ò늿<tÁÝd\»è{‘]»}òøŒgóó£ô\n\»á†n2HÓ"ðIð'ëÑd¼,êÇ:4$¶ Xç&ƒT8_“!×ë$j ‰5$n°ÎÓ¤B Pý4G¤ó[H¥à2ðeÉg>p9¸Ô(ÕÄöœÂk¼]³c“1ê±è'Ær5›µòys—á¨iÏIïÓ€.¸T[Q³=Ÿjåò¦5 ¡ÛõÀ[ÀU® «2½Aâvo¿5Oò€·ßÙ“.™Ü|”×'8ÓA¯u;ðGà?R:¢ÌtF¿þü·ÉØûŸ¿ÿ]d{_Ø“åës|Ó³Ïì!±Úœ-–ú ª{ ôN¿˜Z'xJêP šQå:wˆ<3¼z© €— N˜@`Im^!8aŽ–Z¼RpˆŽöÃr`iõ—)ûö ?Ú#ØÓ5,×ôÆüTݲ­ŽŒA'ä´á±‚á 6«¼Ž™Ñ²¦Ëp Hÿ¾­SÛ걤;YÍpÛ)t‡9·Ç~ÝpYSÈo{¡-ö€§›–ˆo¦Å¤—¢Ú:ÃuMÝ œŸ`Y÷Ò_@O«çwòÊb}§œÇ§®˜>SpBÅ?mX¼JxåÒð÷ôe‚§¥:íá{ÆÓYQ¯fe="¡òyÀ>Á ôŽé×û'L ¦Ï^.xZ*æŒ+ރ˵pб󒞛¾XœPQü7û×j•Ó£Àk'LÂLW¯œ0¢™ŽfQ+³C2:µÍ–¡ehÓu힌¹®>"8¡"sϱs½t«J+ER¼·¥à虼ÞÒ&cÅw_œ0 +> üœà„­(3¡D|øÁÓêvzŸPÅ\¬eËsEWÎ`_þJð´Ô1aá öEà¿ N9:šýŒ.w07)ôkà‚§ß¶_zbtõê´Ó$ÌÔèãLÁÕ “ɧÇ[olI&͘* RBa è5)8¡š$£qðDÁ8&îe1|Ìñ$Á£'÷O¶ N¨¨Þ4ûN®æ,.¼QjœPuÍA­q³à„‰$è~QJ¨Œ|¶q­à„ŠêÎràÁ “¨;mÀó'ŒXw./%èn9C§ËéûÃÏ E‹À\ÏÐÅ*ärßtB_VîLTzµ>à‡'”|Å(wšOí÷ô¢Üµæ¤ü‡Ÿœ0ÜKÐ7’¾Öœ~9 øË2Šóljµ'ûª\k®LÊ[üû[…iCßl®L¯ÊR«Ül®Ö(q›ŠnSÛíëU2•/7WjËÍÕ9hðÓhÜÏ1ôRqóz.ÇÇ)u©`ê«ù:Ô|]ZÍF|Ú"˜î>±§P§uw]±»cQð?[;U«ƒ{ °?þ§à„ ìT`ã¯ÿÐû¿dôV_•¨Qy¢«¿–– °J `ÕYÅ°é*~Sªu*šªJÕ¨Œõ²Wõ°ŸÔ½„}5õfœ@>*Ü}eþeþ´?fÊØ4CpÂý"SnšYVœxxÅ•Dr5j¨Ï”Õè6+4Jl™r¬%S5dÆ(µvÈTä ÁO?Ä3e¾Hl²÷ƒç̺«í2›Ldì|¡X•p'LÕã ºa#Wàg)é#¶™-ϺkÇÈyºÈ úGmd¤ã‹ž=8È'ÍèôíE—´1uÉýR™} eö)e•zóÚÏ®ðjJ6aš¨é¯ç¨Æ…jy5}ø7‚sŒæ@Gj˜–Òtg¨H ‰´V£s(ü‰u¤Ö—€ÿ,8G5¶:|Üä ×ÛU-×´Ý¿ÿ,xÓŸ“±ÝoÞôFdÛOÕUœ}¬Q­ó¨Ãúˆi;á7e1å¦4œ0¢’¡Ï3zE˜¿„jÎyêÖ´ñÓù™aqëUù°¬òj]>øRíÏAUÂnp¹Ó'kn¶áJJ¨v&p%øJ…N_e ‰[\¾*þºFâz€«ÁWGöŸdÛ0Rc p#øFumâbØ8HÚl^ .u›GxÛl^.·#-øéAQÛ.R§˜Ï)³ÑqãÚ®R”émY¹öœ­áW}’.ðð{’1]x/ø½‘M'3]MÜ|üeÖ:¹šµ6¹¬átl4ô¬œÑxF{øyðÏG6Ú,Û_i¸fÖpel÷*ð«àr·H¨ßÂB:ý#ðuðדi&¿ ü!ø“q¿þüG‘]ãX¾…Î÷w{ò½®tJõÏÀ?Ë ìÅ‘RQbËq–à„ øJª 8[pÂ$|åÏ;Gpˆ¾²XÜ°ÌÈ)%8O)úºÒ+¦I僀kO­QÖXLaaæêj+Ùj5© À-‚&`ÅÔZàù‚§¢/š™ã/‹‘<éž´éꂧtõ-BÑ«j©Zº»'Œ¡–OZêUÓ³jékÁ åôôËÃÀÝ‚&á²Àk'Œè²i)'ݼVpÉÛVk§-ÆhÑ–1:ÒáÔC‚îÓNzðm‚*rÒ[€ï<‰[HÜuÀ‡Wp ”v¹®¿½€ðqÁ Uûé€l0}ø Á ÷i?}øaÁåOÀ›ôËO?)8a~úð%Á%³ ~º¨­=˜²µfi?ò¹cÐ1Œ¶ÀÍ‘’¸O-8¡ú^#K8ðº¥ÓÀi‚ËeÞ­¥Nýð ÁSo(óë? (¦ ž–:š&¼_ÿÄ 8aD¿^èçµb“¾8Ø£ƒŽ» îÕ¿û^ÂuЉLŸ!8¡b·n´BŸUN ­ž'8a½Ûô*àÁ ðŸt/p£ài¹úà§ííã.m DÁèG6¦FO N¨¨S;-;XkH¤V·6}=ðVÁ “0ß.àm‚§£ŸÅÒ\îÖJçvག§åÊkÖêáí;${ø>Á “h©öâRµ4~ø”à„jšªô;€ïœ0 _E_-ýœà„}õðÒ݃ël{‡Ñq®aŒ®L'7ýà«‚*oŽò2Žû]à÷'ÜÇ÷ëÀ¿œP‘ã~ øO‚&ḯ¿/8aDÇ=ªä¸Éµv™ÃîH¯ÿSpBž۔׳nxÍgg N¸o;oc#ðÁ¥òéŠVú~yŽà„I8ïAìA‚FtÞm%çÝh¸ÃÚ ÿ|®Õ¦cdýOÀß Þ˜À±¡$îœ0¢O_UG/HÑw~”¨ÅþG¤+ug—™ÓÍŽ•¶3j˜–6äèY“ÖIf :×Ñ?§8ò0fãï6õ N¨º¬\)™Ì6e€¦à¨é•+%”½x•à•T€¦K€ÛçhÚ Ü!x“ܽdã>m—4mBÖtµàçÊ}™!–{Jèv+ð.Á9&‘+óZ%ª›®Þ$8G5žºøÁ9&à©Hþ›Þ*8ÇúäÊMwjGÉË9*2ž¦ÎqŸvÔ'€O Þ¤l¹éaà瘀£"ñoúà£9j_`‚/<ñOoÎåŒûkVaŸð³¢E¦±¡ƒv/t¬T9Úôa´óŒ8Gµ^?“¿æ¼Xx§l|ŠÔ9yá?²Þ3G N¨¦L™lœ0:0{í¦œ"8aÄ:pÒ¤¼zRZzO%ix*p“à„5 ½§òó¢*”P͞ʛ5__[Þ8Ie¤å‹®G»¿‡Ìâ躖fž›¡sàéÔxÖõÆZa&®.Úžá¶uj+²Y“ÎÞÓs¥-É¥ãã]G9Ågšò[Ê_ÅÛÞ ~s¤0üÖ4V«<'ôv<Òæ.à½àRsÆáꉻx¸\¦üô Íí@©[*a£·ßþu6’Ü2IÚ¼ø<øóÉØè)à à/(°QÄ-“¤Î‹ÀWd£¥7áQ¥ÿa²pЙ×wövwuuµkŽ‘뤣ºŽemm26ýð ð7’±ék)þ'ŒhÓimR—ýˆˆ©i‚§äîb­ÙÝZ«H:à•àWÖ¿]$u®À ÊÛÅ)¼ÖI¨vð6p©µL{m'-jbê.’PwðzðëeÕôË£ÀÛÁoOÆc¯Þ~G=ÛjRäNàýà÷ש­þªðrŽuh«Iì4`Ûj?#€Š{°¦%µ9´9˜`–ÄͪëÁž\»¥–»Ã…T<xøYêì†=^2v[ ÜžÀqÒ$îlàFð‘í&µ,‚TØìïSf—nq kŽ˜t,@èŤÒ%À,x6ãlàr&?=²MQŠKj ¯—êF×LŸ`ÐrtÏPï.àÛÁ¥&à .¸[€÷ƒK5Ôá}å:ààDö•Ùå„…ªtؤ…”yø¸Ôy& ’–¿¾Å±I ‰¬cÒBâgPmÒrà°áº¦nÉ$.¤ÑÁÀcÁ¿Þ¸™ÀãÀ‹l—D†Håã[ÁåVdÕXÑÉ´Ý^’F—³à ´—$nÐÞ^Ff u#à#ÊÛÉi¨{ʽøvðxZÉɧÉZÅüjº€IB囀w‚K [Wüå=ÀûÁh»IÜ(ððèm÷ ¥¶»SÛh³@dæ ¶ãé–ØÂ.çÇ?þqeñÆ¿û1\”ùlñ$a­O_9²µºJQ¦]63Ãd$×à+b»—hc¥óäz½¤í+Àÿ7eÆ;i܆£@ þàôvKìi%UÿC`êÁ “°ï¿Cì‘‚ËŠ1®„ÖµujëEó±N- ³l~ø”IgAxF¶]3=-¯Ñß,#þ§;cäbñ˜d¥MÔxcmäJËïfúOFåw³š‚F4ê©åÔ€Œ¤eÍÁAáÿÄ&BlôœÐ;HÑíÀûOÉ÷Vœ«wz« ñ×´Ü£Àw N˜„å>.¸ä-¡ÁOÃߪKòŸ>)8¡:ƒ,‘1ȳÀ÷ N˜„AÞ|¿à)©Û¨ÆÊÜ K*<üpC„[O«Ù$ôÙ7¤ÉÇŸ<‰ÛRIÜóÀ—Wp[ªÄÆXRàSÀÏNU‘ðÃ=_å˜ìÆØ/‘V\DZ$~Jë´1öë({Õ¬HžÉbEεÛe¶…}jΟ)j(›ö'•4àIà') Š§ýIÍ£€Ç‚KÙMúåC€'ƒŸ%q³€óÀçEöV¹+H‡ùÀvðve[“µâœóön¤ÊBàð%ÉX¥¸|iT«¤Î.'ïþÔª'\]Ô³ŽîC+ئå¹ü,a¿K.Ž„c¿²Ôï¼»Ãv1—Õ Ž=bfé>ŸÁA3Ã/3Ñ3™¢£gÆüÛt úÇâ( /Ž?SŽ¾—§á›ŒîÒ=™tÀœ.º‚Æ΂a¹üàg¦¶‘íÔ¶ß3ËO £‘:ÃÄ1Ü‚me]˜yƒ^Èéêê¦àN3“LJヺ뎕c½P(í¬»Éö q´¡„?/˜<%ucY,a7u'ðnÁ ÷á°›ºx›à)éÅa“~ùZàÛ'L ‚§vï\òËà§GiYÛp5cÑs9{ÔßIþMÒë^àû—ìòT<ëB±v¦Ö-ŽS/?)x ÷ð%Át6¦²Èþ¤“o ¿Aø ú¯(³ŒPÃ;û¶¶È˜ç¯€ßœ0 ó|ømÁSR“£/é!¾ü®à„Š¬e÷6iôCàÿœ0 Ûü#ð—‚Kçüô4~oóK™ˆ^ôlj×3üø"§˜±Ï¹g‡îÞ“Þ¿˜>Ið´Tÿ$Z§ò›ÂJ¨¦S9‹u*×[,óѳmÄ· á,ðYûFzC*<\egJqzCj <ü8%é ýâ¡ÀyàRÝ»pµžÄÍΟÙ]m×lËàÇ è9Vÿ3¬·@‡’‹ã %ʼ¸|µrï=0oî4²WòØ#¡à•@ÜLƇgœ³aãF7fK¨}>°\z#ê¤_>¸JGÀ‰“Ml„xö¼ á6ðmêÒÝÃ`ÈÞm}¬ [H¥Ë€ƒàƒñWwp<ºË=Ñ©m5én.4Hã,‹£ýžì|¡(îýâcmbVŽÕŸv1ÒFÇÃ2WsŒƒÅõгt4`žù‚6lNnþè˾[ñÖps°£Oƒyn3,05UpBU ÜFÂcR3 N˜€ÇÐœ0jèäK@™i»"-ý o¢Ô¡À“OÉ ­VÜEé×ì# \(x*#ÁIÜÉÀE‚§E6R‹6f¹¬«tÛoÞvhíu9¢KLq~‹ .×ü×6ÛB³]4OIí… o¶‹€ƒHM¤‰s"ð¹2ö^¬äjeö™%‚{ë¨îX½Ý¡sGRj'ðÁ “0’¼UpˆFš­yí0bdn,üÊQRæ6à‚§¢o‚ :þ°r Õ¤ŽÓXê(q£ÙßCÂiàÑn» ~+Ú=¤Ó,àQàR'~„ó]7x4¸ÔIdÑg·I…c€¸¦.r©4ØÞ“ŒqN.—ÊÆ•ÄÕüEºÂJ´Ò¦5bçF —uU †NGjgô\¦˜·ˆ.K9¸7æÿ§e[ƒuüõœ6gàßsE]Vrºãk‡Í YÛšïñy_½ü/Ä*Mzoö—¬ÖÅ_¥›¯Pͱ/²¢WfÿÈõWÆaI*]VïâÎà» wà §à‰r))×>þŽäÒ½;ÌBìeØO·R Ìóù±6Þ¦’ã+Rwu¸âž½lÑ ¾t¹3ÜÊ>-æâÊÛG¬z¤Ô •F`“ MÏЦ¹Å|QŠDƒ6­§ø‰Û }ÝÇwñ„›À7%_´ÿÑ>ª)Z‰Ý–߃pÂè×}µ\H™Ä“|¹üÊ⟔”KCÕØTåÐ1Ûœ.wè8sÈ”ÂÄ£¼£Ü¾£üOø"áÑà lNâšÇ€G?ؼ…‡¸œ=$2_×f™˜cº;4ÞArCŸ:Lú <üÌzT¤ï£ò|¿>éû¨<߯oEú>*±U¤Õ¡+Ò÷ñÅï'[‘¾Êó}¥éh^‘}TT¿Ã“1Â× ï£Ö.¼wU¦ýµæõ©A?@­ùA}kÐPk|T[ƒf–jЖ ›BW¡à‹?€/Ï‘õåpUè¨6?€w67HnâmQÁ±)§3˜C×$Òï8àYàgÕ£&½ŽÚóz}jÒë¨=¯×·&½ŽÚãc\mÑ–ðIÝëø"a‚mÑë¨<„êÚ¢ÃJmQ”ÊC: ìï©Gåù!*Ì£VžŠRkËó=Ô•ñ$Ýg'ñSX§sy~„²÷QÍÐA sˆV1ÞÌosµ5ÛÊqÆx{H=ÿº¶€·( 3Óhk÷Úð[»I›6àðñGw"° ¼+²Ñ¤Æ€I…nàbðÅjí"±åž´9¸|e2vY\¾*²]ÞÚF“EZÊ)²’™5,¦dh[QyreÀ´ì¼©çPÉ:µuö¨1BG¸ŒŸJãó7ì¸Fiì“ý-—ÓìAÏ°´m}öìò$'µ99#~ð™Šb5ðàßH>ÌýX8W Õ„¹£èòo\ãÝZ´²v¦(&“ÛÂV£Ÿ@'£ÀåîÍ©xÈSyóÙ›¯C¤Ê À“À¥¢†«C$îhàÉàR›ÔÇ•Àåc•Çí–ΚŽ‘¡¥£u©´ÊsØþì9?ªµ|s{¹êH{ðFðÕ[f¡©rð-àoIÆØ7ß þÖú4d¤ÂÝÀûÀïSf”)-[6l–²ÊÃÀw‚¿3«¼ø8øã‘­2 ëR$ìòðið§&¬E5=)Ë|ø"ø‹ÉXæàGÀ?Ù2sxÄ‹Ï> | ü5…ñLb>‡Tù2ðoÁÿ6û|ø5ð¯Õ/ž}ømp¹ãŸªÅ³ð#›¤Ë÷€¯ƒ¿žŒU¾ü!øëÏ~ü9øÏÚ…Å3)»üø[ðß&c—_þ»}"šý^ ß*þû•[Å›d&ÕH•€3OIÝÖÚ>|+8áLÁSÑ—OÈF³Ô,à\Á •Ebt™T9xŒà©¦iHÜÁÀcOEŸ¦™.‚Yè%ï¤ÅqÀ“OÉõÖ*Ù¥¹Åç²N;p±à)©q©ðÖA×.µDpˆÖ9!¯µ–k©¥Às'TÖËÒRç/œ0 #¼PpɽšãÄÉƵ‹€— N¨È*S™UäÒ4~Iáàr§7„7K?pXp¹+¥it1G[pÂz§i©à.Á “°K¸[pˆv™ÁcZUzSir ð6Áå¾®yØÔA=oæÆ$t»ø°à„ÊŒTåºa‡á«Ô#‚&á·œ0¢o|›Ohè9Ïp,Ž Áán§¶jX·†°?È-¼Ï÷èðÆàÞúÚèCÙ3KšºSšø eõ®qu‘/æâ›þÈ7þ÷…PìÔ!™†ëÑ!ù´Ilð2]n·¡'ão;b-5íΡƒóÃoƒ¦}L`ÚœP™=-Û«dÏE=hø)PÍâ‰X*Gjšv‘b­]h™ao@/JòsŠðHð#•µU‡Ž œgu‚U§Ž‚co72^§í I(yp)¸ÔÈŠR§öyÝÌU‘{pø²È¶ oÉ_< ü4eF:~Øó îi ŒŽŽv†0Ö…kúVVQölààW(3VSÑ©fªÓW‚_ÙT·—‘WÀ’‚¿†.¡š`| ;«XkΛGqh•¿ßVn³<ýkeOÙü¼Ù¿  S%+µ•*È©~É8ºÕ9®n,ðÿÛ¸jã*â!+ )>¼ü^™¨¨øô½iU£Xï> .•™UI †ù—*ŠÕ?ÙgO÷ -]Šli^Ñ᧩ è41ÏÜpƒ©Û<•ë³]–œµötuu‡¯û¤ø;ÿþÊÊmZ¿^ô†m§J’A¾ÿÿ”ÖöÐAçÿ¡ù-õZU_6ˆm{>â‰X*‡Ó½t¬žg¶k+:¹¯ô°¾hHå~3~¸²6ýÈU¬«AgGÒ¬¬îéØoºj\.5(Y%ùÂp±G—‚Gßò¢1cYÙNÍȶÑò¶{‡aµk›Î=M»ÈÌá*%í–/~€jh?ÿW¸jjÿ»™Ÿ¯Ô‡l·]ÛÒ©ÓÙ®ÍÓ6™;ìœ]`½Túó9ÚyÂÿ—³òÜHÇCtøÇCl±M×eÕ1Ä ”véH¾Ž—e™¾GRÊ öSw šë³¦Lõ´=N‰pèÄ1J6²EqR‹ºÊýeCønðw+«r§Ðm~ë-Œ;ÐAžÚ¹6kgtZ©­4m—†XÔÈ„­ƒ¤ïû€ßÿVüuĽømp¹UÁOÃ÷~Hþw€þwÊÌæÏì„RçûÄ£Ìv.[EìßþƒÈÖ˜ÒÚ¾é"^þüÇÊ 2Ï϶³¶ÉSìî®Îžž®žÝ‹/íX´déòÎîî%ÕnÕ®–h“®ÿO Ÿ þ•YÙ¬"+$R³'Lº… ñsÊè?I«ñoÂÜ%TÓP½ÈªsYŠÏš›vm5k§6è£íÚFF¶zæv‹šømì?£díÚE¼9»hØôX·`}§ÖÇÛ±îetFïØêŽéŠa\—ŸóÊz~Y;_jÞ*·et­øõÇzÅiJÅ|ž5]šÍºb}è ÷ï(+ÂÁ_TVáÛZj˜¨o´ÑÈšÓ {Kéöðkà_‹¿‘"q~üëuh¤Hþ7€ßÿ¦2¥.•Ðç»ÀÿÇø[)÷-à÷À¿Ùµ.mk׺»/ïèèîZ¶XªýðWà¿Rf­B‹ÕÍ:… \3ß¹tñ²°miù;©ƒ'Œ»­"±ÿ ±s—\'ü4t#Aâ.£ÿ$­Æo„¡K¨¦­º‹µU4ÖÔ®ë÷©øˆS»¶¹ÓuÒÖê®8Q¼bü¸+ÿŽž/ðóþJc¨–m½©cJCÈoQ„wߥ¬ºBl³´Rkdê–„Š÷Ÿ&þ6ˆÄ½ø,¸ÔeZÛ ’ÿ^àûÀߧ® Z¶§Dz<|ü…øÛ ÷~à‹àrÙRðÓÙ­‹X´pÉ’ŽŽ…K–KÕž?þye¶9¥R Ô½|Ù‚®®®…Ý YXYºxaÏҞŋªæUÚ"Ò÷o€w[D¢^þüwÉ7$þ÷Ä“´¿&/¡š¶èzÖm5óyÛʺÔ_ÒVñöh94dZ.o¡¶t²®ï-á=£!Ã2¨]tô¼1j;;J»‡i¡ë,ÑŽ(ŠÝÆýX×bÜ°_è*ô{¼9áõà×+«BóKí{¿ü¸ìrwˆý©Ïp ÝÉ K(}ðƒàŒ¿I"q7?þ¡:4I$ÿÃÀçÁŸW×$õ„m’HO? þÉø›$÷ð%ð—t‹–°&©gÙâe=Ë–.•ªQŸ~\î^ÆJÖi­Ø(-]º kù’žže]=Ý‹/\´¨kyÈ&‰´ý&ð¿Áÿ;þ&‰Ä}øGð?&ßøÿ ž¤Õøƒ0x Õ4IŸ¦&)8h·NÏïÒ‰jëxã´yWÖÈ›Ÿ’¢f©‹5K}|h®t0ù¤¹%¿ó4»èÑZÿ|úr †+hÚÌ]F–Vt>>?ð\œ~!¯/°®VFÌ>ÑÑÁð´T÷ôÐuï?Ph„Ÿÿ´²º§fLt{øàêÖ3Tm¼HÜg€ßÿn/’ÿÀïË fUn¼ª¾úü3ðÇà?Ž¿ñ"qÿü øO"›cnkÏrêPu-¢U×’ð­éóS`€+2OÍA½E]‹ºB¶Z¤áÿ L-xJårUZ-ûŸ{Œàr; £5$þØ2úOÒjü§0t Õ´Zïg­Ö¶¢cÑÄR_'ŸyÚœ×Å\Êþãî¡?ŸÃj˜ë&kÝD{¶mØÎøÄÕVäC€]¼«•§}9Övåüó—Æõ¹&µrÖhñŽŠç˜ºÛÊ€iñ©'Ñö…ïrýʈðýàïßÇ)Òíà_ÿUü‰{ø×à]‡FŠäÿ ðKà_R×Hu‡m¤Ho#M„…k¤HÜ—ßÿ–ŠFŠú-ê^Ê©E {¤jз?ÿ©2ól¨ÖHuw-_ÚÑÕ³x(Ý= »Úº—ŸÖ³è z•ÓNÓÍlkÇ–t/:sagWgÆ>½§£Úe)Õ4z£_ ¤mÊÄå¶+‡kÐHìÏ v©à©è+C·$$~Yý'i5þ[8E Õ4h;Xƒ6¢[Ú:»8jÐä’Á,>@xé¨ie '¯³?çwË}6­µ{ùò…¼ 0ù-]žA'ÇÖ3Ãt0`´AÀ?â% w€ïØÇZ$ÒÍÞ.µÅ4\‹DârÀÛÁo¯C‹DòïÞ ®îj§tw„>÷ï¿/þ‰ÄÝ|;øÛUµH==Kvtôô,[$Uƒî> ®îP´J«÷Êݦ¥ËX[Ô³¨«ê°m•¶†týð›à*“Š*m ‰{ø-ðèIEè Oâ¿@ŸÐ5âñ2„[Á·*«ÇV瘶ڃިî„m\HÉK;ÁwÆ߸¸mÀ1ð±:4.$p7¸Ü•×Ù-‘ÐçFàMà7Å߸¸k€7ƒßÙ3ZÒ:»ŽŽEˤ*Ñ-À{ÀïQf˜“+5+Ë–,\º`»ëvŽt-\Òiv- Ùªª? .5®U!q÷?þ™äÃ9‰ÿlñ(zûûÙwpáQá¿6æ#¢uÜ°HâÓÄ#é´GEUçO âÆñD,‰6þ “6‚7FªÌ•*õ4Ö‹ì,Z¦„rs€‡¦°ÚV9%çÏ0ááàR6«ˆ­rJý£&ààGÔ¡á¥_9xx´Sæ+ž›D.‘»È†~y>°¼=8ØÞ‘ŒG ìﬓG,vw)÷ˆéäó%´ë®_ŒO,®_“ŒOtׂ¯ìSÛeÎ%¤_:¸|CL‘bDB·K€W€_‘ŒWl^ ~e2^±xøU‘½â$>iÓ…Ù®†ñï½Õ ÉÑ7ƒGïÏ„NÀÞŽVB5iiøŒäÒÿpŒ/;(«{–iäF Ó5zººBî2ãê lœ0†ê4û‰É#ú0ý%4žŒœà7—¼ç±êÂP.Ÿ¯VˆUŽLçêüðuÁ¸qˆ‹û&ð‡‚+¸qèÀRç,lߌ+ò#à/'L¸o–B_ÌGÿ‰¨Æɬo¶–_ŽíØ)BÛ9Ú5×0Ä-†ª„'CUù›MèW*îX|Ç’:F¾jÂQyVŒ+Ýìœ0¼ò•nª¥Qâ¼x±à„Ê*båãH¹¸yÀK'ŒèpWûËÄ9õÚˆá¸ã3¶•5q|\i3­eáG iùƒ® '_ÄQó¥Åu|]¸¾ƒFbLËŸ| ]Ýéu/~Yp¹M¥Nïg‹êÕdÉ|Ú‹ª?àQŸIA.>]Ƥ&«¶CÔ£?°Œþ±X6ž¨ðÿB¿Ó˜šp#L½1>SWÕc*ô˜ªÔåÖ²"©xbnâƼgk›ÖJÇ[fu'«õ­ÁWü¥±m¡_f^†p-^&ú$ÀùLÛVÜÕK÷³~‹ÙëèÐF,c¨]˘½þ—,#ü/ÔŠöR7b 3DêцúÞ–Z¿×t¼áùx¯óëà,@”:ËšjÎâ¼…òWrǸºhÒ ^ósycÑ|¿- _¦ÍxÂ5x©yªˆez ô80r™R°ù¦c•ägFƒÄ*Zq™˜¥ß¶=°«xo3¦soÇJ›˜[Å‘úü‚šªÆ­ö3Q¦„g¡LÏŠü—ü0r0 wïm¹`cçÚ­ÕÃAµ·›…·#¼o'• Fó”ÙPc¶Ò`ÐSÓSD”ï*aõž½ { wÏ>é}ÎqÞî ú:Ç\¨1W½sTq Þ Ø)NÍ™;Œœ9lÛÙ°z£ÇÆqvŽU;WÔH$ª½Ý!x»Cêë‡BC•:G{ ç0vê/‚[ Û¡±Ôúªq¯"é.±ÓJ ¼aÓÏ”óú˜æé;èúÅÓãÝc3o´k®M÷£X××°¼°/‚‹8®Â‹¬Ú'ý{„·;"ªWé¹gmËsŠV•´‰$©Ô¥Ãg“$?]Æ]÷hz…ò8JiyÔ·Ë~4Þ‰°ž]öc Ç1J˶…‚‘猱ø’7Æ]é_šZÑc¡(a m©C=Ž‹\`”4FmþŽo], ¢.ÖúÉ1¸O&‡ºJ—p=Jw},¯³:‰×9¯sBÔ× Ý†É~U©WBòÓe¬[r"ÊãD¥åQß6ä$¼a=ÛLÊù¨¨lO 6dÒÁ<¬_V°¾,6´žó '!j&aâå5zÌ\^Ô„µ imMPQr8‹™Ú?;³Æ€S4-ºÚ*¬rm(+Âh»E*£S Æ)J]ü¹½Ý²a3kpwš½;ÍvÍ2{-³Ü´†nVÑkæ¸ÊG?µæÄ‚C'”x­ì%ÚYöª[î`¯€N“["´¢P”ÐoyNLÞ{;¡F§Rï=«º÷rç Ø~S‹ÖŠ¹vV¡þļáYx‰³bõØMê<¶ Êw)õØ#+y¬±³Z½n¨Gè:™¼Ÿö@¥~ºúMûi_ÉM-ÍÌ–GW0K9ëB¼ áj¼‰Ô~¹qo²¤º³ö©óÕEÐp t_Y÷™_ ­Òb¨Dˆù8wφöO”†Šüóܽe,稚àC©$‘ˆã¹xŸs#¿ÏZ©$ ¿_o‹xŸðõËð.„ê–k])ÂÈF¡\ 1ú× udm4> jœ¦Ô‡—‘ûk™ÉåÝ‹b¥mÑj¼b.Ëo¡eÁÕÑØW°ÚŸí añ†èžÉc3z13,ã²gàeÏÁËœùeŽ­è²\ɱÐ*öBEBŒÀÖ·¼Y Éþ?|yŸ‰—9Siy·U*ïþÖmZwËÅZùÿìlk ­.’\Žè+ÜZkð°’ÏV#”ütë6x¸å±BiyÔwðp%Þ‰0ÒàaE±ôûZ*ˆn‚èU *‹3ôÊäUð®U‘½«â‰ bÕaH¨¯Ð œ-8¡²:¿Ãµ g ¥ÐKá8F™“¼QHüAeô¹˜ô­t_¥ãßð)åfƒŒ?Ò7fÑ7üþÉ\ñ·9ô·&ñ£s߀~ä0Ç–uMú!½fN|›Óxù‚>ö?ùå+{fô Í\¶g`Yw¶ÛX´l颮8rA^·ø­w§_¨·ÓO΢Ÿ<ë7¥Reâéu©VOjŸQTå°9*`,Ðn˜>£l2¿Àý[î¦L ‹l[ÛÄqêT ~8mRZceì¬i •‹r:iÆß{Å÷v_ýÓ_j&;mËæ­ë/Îxþ«óÿôÊ?Ô·g7?µx÷ž~»èíîo=±»¿mýñjk÷‰Ý{vŸØ³gþ]sÖOëH]­iìÙÙS­KpÁÖ5}W¬êÛ\å½Ú+ÁW†}/úÆŒÉU"¿©ðò½Š›iéí%ì±* ÷*½K)a6Tm)«œ'­LŠñpVkÙÐým!›*eºU–J^»aR µ7+BJ§¢^5ªc½ÌÅëbÂR§!¾ÅZs‚Ÿhž>3ø‘4Ãqm«ƒÜƒeVÍ'Ä®ÎNm«ahFÎåÿœ¾iZžcó³ûEƒþ…qïùøS‘"D%›®CvRJ(ù<ðeð—•yAÕó$IÜû¯€¿¢Ðå ;†ªH}ø9ðÏEö¼Ź¶C=ÝdY†Íïhu d¡Ï¢'?ü øO¢*šduÒÏ7¶; ÎeŽásžÛëdÛ]O·Aw#]¾{ãŠmëÎ]qqß•,ƒXµzÍls;‡ Ï°FZ[&|ÜÒvºVúS­¯ã»æ Öz‚µ+3¬;­ÁÏÚÚ&ýLK錬չÝe¥iŽ8–á-° yÖÿö†·ë;Ï^´À3vväó¹Ž ½ûbËéÚöSôî˜ëùNê8·¶díŒÿ¯ø¿)}¿ÝߊÜÛ‚Ï_U‹+J?צ͛§MÒ\S~~?ÏàÎp3ŽYðÎÜÈ~è\}§Ö«íf.½Ó´Ýƒ¶ÅÀ—Ña£™<NÞÂþÆ>êì\ÀþßWbAPcúVKûž=§Ÿ±" Š¶ÚŽÆÌß[ëß{ã3K?²g¾F±š•+©®Ö ¯øíþ–ùíãLÔÎÞyܱ¼U6ý)ðßÁÿ]I2:£?gëY@ žVË+dSÒß´ÿŒöÁHßXI³ç÷7·’Hƒ””bè¬5²ÔŠ£»3ÎÈØ–eðâÌ*¿ÂGÇ«eW}—FÈã|•JŠDëõUûMùQdÛýYCø+ê*c©†I#œûBÁøCk>â‘ ӢλòQýéÄ1EZ,F\[u“6þОÚîÓ®YÝô?=ìvÛIÌ#æ1Zw³ÂË×$Gº‚Ÿ¶iâÿÆoÅk9}€ýoqÀ5¼ðú¹ð6eúêÙlo÷‚V–vo‹måƺHmÇ.tuõnë»`Mx}qä Guú.¾ÛqX°ºiüâèÞå‹Ûé|±Û5z׮ذu ¹Íé¹UÏÊ­ª¼> a…%–!+ZCÕOÖö*â“Ø¥ÀÓÁO\véÐçæpÎö‚÷*‹ÄSû‹n©:)°øS‡Ò18z¼%ñéF‹·çGUg&TñOÄR‘¸0)8ÛVá¼þˆÃ™ó¶ñÞ°î ó†EKh ‡õ”ùÈ  1-Jc%tn._ pì¢ÊÈopö¢ ¼+yO&ñÝÄ“´³á,>ª©×<Âç(ñàjÝônJèÕ <ü@½¸>S'è3g„µ™¶S¾KTB»YÀcÁ•6ß¾3»E_<¸<ôäkÅ…xg·è;‹z/–Ñ;úì–25b˜ÝR¦[¨qµ†‰ovK½žÁoIÌnÅm®Ê³[ñJ­1»¥Lðø…˘Ý¤ó3 +c2Ïh- ´õÃô´Œ‘˵UšÇÊÚžr‰“–¥Ž·÷J7€ß)T\•e¸=—‘ÐínàÛÁß®0¬2E_ºx?øý ÅV¹¾t#ðð";×Ñ¥C“f²:%Ìñ ðyðç–‹éù*b›€/€¿|.Lßy1€x’Ï…jù/aŒ¹ð@Ø\˜ôiî{¹0i5 ø—” ÓûÜŸraÒwq@ï:åÂÊÔˆ!V¦[¨\X­aâË…Õëü–D.·¹*çÂñJ­‘ ««9ÁO7UÏ…sh8æd8øN7‚߸$äÓÛ€÷ƒ«ÌJ«$Ã$îààRYi¸d˜ÄÝ|üÁ})&ž.••†K†I\ðEðèYhèd˜Ä$€x’O†çŠúÅ1Æd86&}šû^2LZÍþ%%Ãô>Ç÷§d˜ô]лNÉ°25bH†•é*Vk˜ø’aõz¿%‘ Çm®ÊÉp¼Rk$ÃêjNðÓŠÃ,çMd`8øJûÚÀ0ét70Áaw;0Áaw#pŸ&Å>ßØÀ0‰kÖq`˜Ä¿@<Éç¨_ ~vS.œ › ck1Ç}/¦ßœÕP>Cä/%¦÷9¸?åÂô;‹z×)V¦F ¹°2ÝBåÂj _.¬^Ïà·$rá¸ÍU9ŽWj\X]Í ~Zq`Xä ßéƆ}k`˜~émÀ†IÜÀ†IÜMÀ}r`˜{˜àÀ0‰k¾= “ø°nLjúÅ1¾d¸Ñê› “BÍ@ÿ"_©]~ž?N¡«&fÃCŽ],h®¹‹ÅKöw‡FÏöô‹žƒ¦ãzâ ±NzËÙ@ ÜÚG'é´x=øõñNWÞ.5°.p’8x#¸\üTaà$Ån¾üñN×|üñä'‰"€x’œ‡ŠúÅ1ÎÀÙ6p’BÍ@õS8]ƒ®²9rÒkÎÚàö>9I§k€7€« aU"'‰Þ.ÂÂENWÞ~Ó¾9I±›ƒK…°p‘“Ä5Ÿ²BGNÿdñ$9õ‹cŒ‘sg蔓jªœMŒœV1?Àºå,ì#|Ch"™&½Ül nì#ñ’tr€£à£ñÇK—îß¼$qƒÀ1ð±})^’b»€÷ƒ«1©/I\ððèóx¡ã%‰0€x’—û'c—¡3MR¨¨>^^¼÷x™H‚Io78>¸LÒÉîW¹ªL—ŽKE®p“Ä wïÚ—&)¶ø¸Ê±Þ*“Ä5©BLÿPñ$0õ‹cŒÓ `’BÍ@õ󒉓÷ÃÁ&”bÒëÍí#“tò€cà*CW•ˆIâ,à.p©Ð.b’¸aànðÝûRÄ$Å®>.ºÂEL×|b^úf"f"I&½ßlà0øð>2I§"p¸ÊØU%d’8¸\*v… ™$Î^~;2I±=À‡À¥bW¸I⚀ï«B‡Lÿpñ$2õ‹c|!sNÜ”P®8§¡tö–dئÓú;tÜsÔ©m±]פ5KvAÜÜ«;¡ãçQP•°^Œ?ÇIméëk©Vaª2Iª\¼üºøã‰^~}ä 2¿d¼Öœ=„ëfm'odÛ4Çtwhµ~UO$­e¶€Ï‚?«Ðl›åÌö!à à*×%Õ0Û{/‚¿«ÙìlÖ`¶ÿüUÖ¶ÕRfûð'à?IÆlßþü§‘ÍvTÉl¼neÍÁAÃ1¬Œ!e©Ÿÿ þge–šÒ²^.0¦¦œ0 S½±Í‚ûÙGS-ªQÃL+cfÉlTÍ ¿®±¯‡7bê@à™‚*4¢T}ã×®œ0#¦Îž+8aD#žX2â“•k^Ø,<˜<•?K''o‚XKp¤³to—Ñ’ÏÒÏ1¾,½‰Îo–Ь8|¦tŠ>Q£"—ÖsâhéAGgéxƶèÀiž°ãV0·X(äL#ëßïåwSÃúûÑøáð-ñûûÑðwÂóÁÏOÞßI|_ñ$ïïÇÀlj×ßéÎ ÍšÑý½i‚F'•ü=8¤Ç´¤ûNýà.¡ñàBð…ÒFõ/ãn±ãÑßí˜ÚQEõš;IïEÀ^ðÞ°úÓ7&ílœÖŸßîÆ·µ‘>3 ø™2Š—\%Ý ¹µQ™•Ó®þÖ¡w4*S©²Ô*;ÕÚ#08]Ñcª:{½ ¥ò¾Áx¥ÖØ7¨Î-ƒŸ ¹^1k¡‡£ƒê¬_ÃO⚀瀟“|ÃOâ×Oò ÿ±¨Q„ñ5üSÅ5Oº5gƒÏV–êî(5ýÔ73Œ°öÞ*æ ÇÌ´ùùÀ„jñ4Y·gÕ=Ͷ‹¹¬6`Ðxu¶”8”ƪ%^|.ðp©¹¤puãXÔÂ=à{’¯$þÚâIZãP|Ä“|=ÂWRE'Vƒ55®Ö­lŽº}ÌßwŽÍ7» 2v‘}qA`«xØÛ‡ŽGm&ܾI¡ƒWÉÌŽ‡Snßœ¼g‘ø-Ä“´|ÉǺ9ø ~‚¯Ö5êÙ¬„bÍ@å«HR£–muXÆî™#¥UÊÚ=OuþÊ´'(WCj­hA³&ª£6:L\ÏeŠ9ö‹«±Ys匰&Éd š¿ßnƒ–YsÄÌYËç'qÚ*ÝÒôœkS[¦û }Ô†Šn;‰¢ÙYöáË¡»éŠæÏä7x—u)¯n©¬Ž¿ +f&ü/½PÈù/õæo¢W±Ä†Œ?[`êÁ #„_uKlH§û€ žR¹¦£Ê÷à;OI­é¨"¶Ê >‰»ø°à„–Â%6¤Ø#À NwÞFÚ±œ0éö„ļŒþ“|{Ò"êÇøÚ“´gKèÕ Œ~PÛÌ úôÔZ]Ã(¿=Wd!·heÐó‰¤÷,àYàg)KDk´ÏUgI“µÀuàRÝèpˆÄ \¾>²§èF²²`M_«a2›IÙé\àø€2;MÃ…È2¶26¸Œ­2Àx!²­Ò¡WTü«¸£Ì(SZô\NÊ$cÀ=àRþð&qׂGïàË™ä:àõà×+3Éôs°KÖ*·ï¿;«Ü|øÛ"[eŠÌÂRáàýàRˆ+§Ú-¬ãeH™åQà“àO&c–€ïWd³ü¼mbW¯œ=ˆNßä^² }ˆF‡t>ý®×éø |'uùðÓõîêQ¿[`ê6Á ÷‰®ét?ðaÁå:?áºz$înà#‚&àõ©Û N¸ïtõH±Ç€\®³®«GÚ±Ÿœ0鮉ÿdý'ù®Þ‰¢~qŒqú*ëØ…®. Ýš³¢N_M™ Ó—ýI«ñ½<Þ_ðç¦øbËfñÙ5Üþé‡Y/þJ«Mµ›}oTs}zé‚?>Ä·vtˆµ4n13\Ò6kÐTS_¢\çÿ üŸ”eéM+Âf¤È?O` 9‰û>ð§àÑ×ÿ`Rf0~nWaØO °"ðMÿÖÈ êPÑþL`êó‚î éô5à·'Œ;! qüŽà„ 8{êUàß N¸ï$¤Øß#8aÜ yhÄþVp¤ÿ»2úOÒjœ$jW ë6¥y2„ªŸ³?«Æœ=ß(ÉêPN[ ±˜Z(Š(B+‹³ìagëé%šëÀUŽ²V™­?®M¸<ú(khŸ"ñçOÒj̃ùX7מáó•¸vµ”{ZÆv–#H(× œÓuóD¥FjäÜ4EO‰ ¥ØË“‹¦ÇrlñÔÀˆ4š×H?™Yeg†ÝꘘÔxna×õÌLØ–h>´'¼üöø[¢ù¨¢„w€ß‘|=!ñwOòõ¤u£5Öz2%ǺuaÊ·¢fΟ%]K&žŽ¢c ¥˜kdY¹7j0×ïâ-PwW×Ä5.¬º bóœÉêÃþ™ÆßJt!³Æ ^Ìy´dùâÓYÏ tO¯yðjð«•5ÆMÔ ’Ðè6ààRNº×Ü}öÔÙ›7ÝLÎLÐ{'ðfð›eõžôËð.ð»"WÛY<­GFß6’.o> ®rȵJ %qMÀGÀ¥†\£Rÿhñ$HÛD¥ãcÂ1b8¶¶&“RÍÀ9 QŽ‰¡tG„Cäòñº!Ã2h÷1KóÅZ‚c9†[Zï'ºƒ¦Ç‰ÁUâÅî—[,^±Y[»bÃÖ5ÕjNµ8Òåfàíà*3Ÿ*c$îZààÑ3ŸtèxEòïÞ.CÃÅ+×| ø[’W$þ­Ä“|¼:Eø3Ç8ç$Ì!Ó Û€“NÍÀÙ Qç$&†«ûK[j(‘š¼œ¹|s–ý1OgæåôŒ363È[ôϳ‹],6§$›®e;µõƒZÑ¿lÙvmB,[$„ù¶D Í> þt]“EÒäÓÀ—Á_Þ’EÒ÷ÀO‚KMVüåg€¯€¿¹ªŸË“ÅÁ¢Ã›W$Ô–ó»ix·Þ±s™WCÍ»h”ÃnzÏ ¤mˆ+=Ù¦Jà&±MÛ,¸‚“mBn`ý'ùÀ}ª¨°ÕîÚûȳ¶Ç'©Ó ŒÞKŸ‰Õ³YѺ4ÖqIµƒ€'ƒŸ¿ãž Ç%œ>/yÇ%ñóˆGÑÛ7÷—ÌRAöLøg;PÍppè"h‡£ûˆG²ÊÌŠªNª‰x’.•NÄǺÕ/€pÂøRу·ŠÏÖ^þT£øa x‹t¬;;ªI“ˆ'i?ê‚É|TãG+4þù[B&žºÊògì;($È ÓZñÞ¯Ñ Õ W€¯P—R˲Jª¬ž~žÂ†«ÊH‰[ ܾ!²Ag·µNåÔZ%̳xøeÊÌ3Ãw™CUI¥`<ŸŒ™ú¸ÙL‡·ñµðŽæ”2— ¼<Ú~ÔÊæ’8Ü‘Tz ð!p•ÛQk˜ëVà;À£1¾´M +,ê®Ë22¾»àØ#f§áQïÏpò|¤UÂœ¿þuiåñiWˆÓÂvŸØS:1¬¹Gë÷ôøYGÏΞ*¯Tó1zŸoþó°ïEߘtŠØÔþüöø#}Ðû2z—2‘ô^;U¿(S£b-ŸÕßZ6tèÓÄ”éVYj•ÓÄÔÆï•WËiƒ¡N¥Sù‹êÕ±^æª|ÎY¼Rkœs¦®æ?=Tóô\ùì :«ù´°ù|PµÿÿßȪMù|H]z„sqœ >Uy×pZ.ÃÿOB¹9ÀÃÀ“®C}Qûa¤Æ‘ÄÑn³´qÿR§…°á,p©ÑÁšíSS¿çŸØ:Iúlà\ð¹Ñ;È2…ppñDT£ÓOžrºgìd‰’™q)‰ŸR±?ïÙ­íÙ#“‘‡?\IvÔDŠ5ì=7šÂ_N¢¼¨}„ŒÚã’£à·ùé°[Ð3Æ)»»:»¼|ñFÖ³bñNáÎÐP=µš=Aÿµ²•[©µkj/®'“–Çëy3¸çÍ3ònáô}Ñá†k8ÜT¡öÿOý,ø-©æ#¾B¨‘£îÿ‚Õüå'ÁäåHà1àÇD.„KéÝ2Åq,p>¸ÔD¢tq´O?µ>>Ñ@<ûG.×ìïÚ?r¹î€ÚÝ2j'”ËEÖ³n¹œ’Ýƪ³k\¹\|ž§$—‹ÑáâÉåþü,ø-©æ#¾BØKJµ VWðÝå'Á䥸|±Â\®G¦8–Ï?;ÑâX\ ¾º>>±&€xö\n-p=øúý#—;7 ö¹2j'”ËEÖ³n¹œ’Ýƪ³k\¹\|ž§$—‹ÑáâÉåþü,ø-©æ#¾BØKJµ VWðÑÎ:‘M^Înß¹fhžíé9éIÖÍÀKÁ/U^ý§ŠðË€—ƒ_Ý'ÂN~“ø+ˆ'¢˜ü懆0]Ä¿#0ùÉo’:8·¡n“ß$þàâÙ÷“lRøà~4ùMêP{_üV¢g]’le%*ùQk×8’ìx=/r’³Ã©O²ÿRü,ø-©æ#¾B¨‘ëîÿ‚Õ|ò“ß$õȆò ßG6¨˜ü–*„cˆG²&V†´nVѧêÞRä$àÉà*·2WÙ»BâŽÎŸWsÌ ôVfiŸlÖq‰oà~³îv5ì7+HÝî€Úûê %zÖ-¡VR¡uv+¡ŽÏó”$Ô1:\< õ_‚Ÿ¿%Õ|ÄW{Ék÷oÁê >ù$µ¨n‚T!, U õ€TBÝ <üÌdê¥À³ÀϪ9Î ž}r°ŽË@Hüšî7Ë@HáµÀõ ûÍ2R÷Ü€Úûê2%zÖ-¡VR¡uv+¡ŽÏó”$Ô1:\< õ_‚Ÿ¿%Õ|ÄW{Ék÷oÁê >ùe $õ<à¦UË@¤ asñ(J¨­n©ŒúBàÅà'“Qo^~I}ìqiñ(vÊ*kqHèeÀ:®Å!ñWOD5Æ­Å ½à}±ðnŽ³Àg%,Hêlà܆º­Å!ñp¿Y‹C ÜÖâºGÔÞW×â(ѳ.=e%*Uk×8z:ñz^äžŅ¾§ó—âgÁoI5ñBÇþ/X]Á'¿‡¤ ¬ãZl¯ÅÉ„îè"'\‹CâŽÎk¨ÛZ??€É®Å!©­À:®Å!ñíÜoÖâÂÀ®†ýf-©ÛP{_]‹£DϺ%ÔJJ8t¢£Î®q%Ôñyž’„:F‡‹'¡þKð³à·¤šø a/yíþ-X]Á'¿'°þ¦žkqHô’âQ•Pg¥ê^à™ ‰­Å!qKg5Ôm-‰?;€xôÉÀ:®Å!ñk¸ß¬Å!…××7ì7kqHÝsjï«kq”èY·„ZI ‡NtÔÙ5®„:>ÏS’PÇèpñ$Ô ~ü–Tó_!ì%¯Ý¿«+øä×âÔó€›ê¶‡Äo E u£Õ#•Q_Lp-‰Û¼¤!ÂZœŠb§“sºSA2u¥¦Aò¥àrËoÆyBØ0$þ²â‰¨Æ ±f”ngë›K„Gqœ>C]g/üNfRä`à!à‡Äïš$n&ðPðC#[&Ý.cÀ‡ƒËÍ,*ÚCŠ<üødìqP×êd€-à-êì~v‘iž~J2ö8x*xô‰µ©íšneelÒì—¥S0@EŠ,._žŒMz€§ŸÙ&'hYò=ƒ_—1r9mÐ1®.V†ß#*g®Ó—«»¡Wf)2i2Ì‚g“±W?Ð7"ÛkŠ¬MÛÁ·×5%%M®ºàn26ÙôÀ½¨6I¯—Û£âôF·S[k;š±SÏrF;]¸«k®áÑuŒ³ž7wY-“3-3£ç4Ï1Ù?ÒZûVmsÛèÖåŒ=l;ž™o{éàA²¼¿ð9¯iL#ºøÜæâ=Çн¼ay ŒÛeèë…œž1ìÛò;·À²­ÿsþSíìWÜ‚‘ñÌ#7Ö®šÞpàrLkHsé¿öûô¦å±ìÓõ´V£s¨³}M÷†Û¸Äòaä¦ç²W¡2 µ:µõrÈè®Ñ¥B¾¨ø¿!BÔø?‹_u«¾K;]ˆY6/ºKžý>K~éõ žñØ·Æ¿Q©ôØ×…‘™dwÒ­ôL´mšeY—ÿ*+_sp¬rˆ1uþD•. LRpºfòéW€Ÿœ0~ øyÁ ë‘9¦_¾&8a]3ùô—_œ0 {|øUÁ ëb¿~Mpºfòé¿þ½à„IØãëÀœ°^™|ú»ÀNX×L>ýSàÏ'LÂ&¯.8aD›tjº3T¤¦–åÔtåXmé~ÃN-RF·´¢kH¶7é_lâ+„½äTû·`ußS~L^—€/‰\3µ‚ḶÕá™ùÐË%H•¥ÀUàRó|2“ÐÕÀµàk£;EØ!SNñDT#ÚeܧóïL~È”¤ÎÎm¨Û)‰?8€ûÍ))|p?2%u¨½¯™*ѳ.Y¶²•ý¨µkYv¼ž9ËŽÙáÔgÙ)~ü–Tó_!ÔHv÷Áê >ù!S’z$°Ž“øcˆG²&­éÛ~¡%irpøÏS’QÇèpñdÔ ~ü–Tó_!ì%±Ý¿«+øž†¤Ç­Iê†òqjÆ­¥ aiñ¨Ê¨=¹ŒúLàÙàg'“Q/®_ÙéÐKAHþJà*ðÄ&Hèj`'Hü9Œaò ôíg÷æ˜üäI œÛP·Ép÷›ÉRøà~4y@êP{_â+„=Žý_°º‚O~ò€¤ ¬ãä‰?6€ª'Â@šœLpò€Ä¬ãä‰o `²“$µ XÇÉßÀýfò€îîG“¤nO@íµʨ#ëY·ŒZI ‡ÎtÔÙ5®Œ:>ÏS’QÇèpñdÔ ~ü–Tó_!ì%±Ý¿«+øž†¤'HêB`'HüÒªž<˨ÏžÝØä‰[Œ4yPQl­ÛN–7ˆNHòJð•Ñ=!ìˆ=‰_@<ÕˆrÛI¯ð(Žêo;‘Y*Fš <\êÞ‘p¾Iâf?,²i¤Ž¢' ~´B›„¤I ð$ð“’±É1À“ÁOŽl“¾àuV1?`8tX¶¥›âø¹AÓq½ÒÁ鮑±­*§ÁKxp|Taƒ Wé®^~}2Þ ¼ü†úUº·‚ßZ×Fš4y+ðmàoKÆ&·ï¿'²Mˆ“ým‡*«Kt_¿ "¸ƒÐÕt_-ú¤LRö^à+à¯$ß¾Ÿ)L_B<Õh RÆYNØÞ¨Ìwìw‹.…@Ûª |)áMå'icø)Ä“´g£ø}¬›O¬€ðQ}¢æA†‡mÔ-ÏÈu¬Ó ËÝeä´†7lg%t<\ªåç:Õ†¤FkåÇà#©±VóQ‰+¥îÃA¼–¦ Ž­g†ùå/úÐc éüf~Ƨ8ГŽÆ+°P=ª»š[2\ÏÈjcš0ºAøÐ,»†ßqÂå¨ãþ)µ+VËÿ×! ,p±KÃsàÏIXŸ¶OXfä û÷ˆõL­'v÷·í¡?^mí>±{ÏßÖ;ª¨^s¥ éýàÇÀ?VúƤ•&ÓúóÛ]¦c Ú«\ÁC < øÇe·‚§ÖÜÿn‚8Õ¨˜¹NéoÝÑßV­dª¬ÅQ¦Re©UÖ⨵Gª\ •×æTsöz wô„¥ÖX˜£Î-ƒŸ¾äT1x‘5©›Óòúdé>KQº[y¸£:c-ÏíÔ.5›ÿÝ]€9PÊû)ÖëÔ…Èy¦wfŒ‚G]c§çyC\-Ý®¹ÅÌ°¦c°Œ.Є oÔöïðb ûaG³3™¢ÃgXuk,BTGñ¥,ÁS–tñ5âÓ®Q}÷‰=¥ÈÞÜ£õ‹‰«?ëÙÙ#íS6ðÁ Dû©,ÚÇìS·ô¾UFo%Á^ƒý¬þÖ²¡e¢¾ÝÂF}…†ñ£~µîA°"Ô©t*êU£:ÖË\UÛ£¥Ön՜৯–nsJW:Ò9oXü¥64P4¡Åà+l&6â§Äti;F;ë–ÐXѲŒŒáºº3FWÒéÙ¬æÒ¥‘Ûr=ÖŸ¡?Vlõ&*µkbz¨*PŽésOGߌº›¸AT‚ªé&îÝÄuö(5äíbØ9g{bVŒ%þTžÍG-‹Dr};³’ßk4jtqmdȷ߈7&Ü ¾s?êó‘ÞcÀÁoÜú|¤ðMÅo’Qe*…jýÕÚCyŸ/îB©ÜÆÆ+µF«Î-ƒŸîöû|Ú:ƒÚÄI˜?]Œ^œî™Öaãí¤XÎPj'Gô\ѨÞZ݉K70ë4ý˜Ó"„‡?ÿi?‹Ë˜š&8á~—SÓËŠ¯¸’¸¬F ¥qYJaã²B{Ä—c-”ªq9F©µã²"· ~z¼ˆ¦¥è[Êw³béY„*<JÎSVwY[P­6W[}AštN¨È^UW_¸ùÀ.Á #ZKj³©Ð \,8¡"›¤=[Æ$g{'LÂ$K€g NÑ$ß--ˆCÑEWÜ8O»nÌÁ1Öw×ýŒÅ¶‹¹,Õ2æÇâ[•32²XÊÿuÆt2Å<å>ƒ¥ÉLÚ™PµcJ¿#Ö… ¹1ÿ»•çN;µ­fÞä K¥Ö^Q©ž%0}˜à„Š¼ljÖ± ]]ž–>Ø"8až–>x¢à„=íŽòÒ+ÓägÃöèø¾–-f=üôº•`åÆÄ_ÛhØŠ/”Â(VÙ9‡™ÛäüøŸµ3\ä¸yóð®‘> øÁ #¸FE1\ªº½|YpBe’3­UÄ~øŠà„I8柜0¢c]CÓŒ…œnZ.wGIWù<ðŸ'¬oþþ1ð§‚&a©ï&8aDK¥Ûe òsà/'¬kòþ7à¿ N˜„=þøÁ #ÚcªÔŽ\Òá·Àÿœ°þMíŸ6¦'LÂ.ÿ±‚7Ê-( |šz%ÔÚÎŽNmý hþPd³ÌÕTÔwßþ>eF:`g·Ù»³GÒLÏ? þÉdÌô~àKà/E6Ó ž±Ê7XŸ~ü‹êú“›VÈXæ«À¿ÿÛd,óWÀ¯-²e þîʽ'ÉX í×65 à˜“–cSfV .LÑÊ®;9·e¬ÿu4ôN\r^m.™Z¼¡  -8aDC}¶­](zâ¤:ÙÃÑ3žIGoŒñŠXZ…ØNXÝcÒ2^‘Í´Y5¤ÍÑ|S3öA·ê®[ÌSå“ãTõC „ßMEW˜n<­à`ö°jlžXºmƒ= ß½žƒð:n&ñSX§­Ñ}(~¥}¢¢ÔéýYÃÓÍœ[Ar¤mUê¡ €Ä§ˆG2Ð/ŠªÎ6*µâ‰X*‡‰3£ìíÔQg‰K&ǤR· `%ÂÃÀÕÍq”imqòzg~¸¥HK[Ø’ô:ØÞIâv‚wF6Ùb&£dFË™®8vD7-¿‰´s9{”þ‹'²-‚>-¬Ó‘æ €ÛÁ·×£a¸^EßùM,(IhÖ œ >SF³Š]éŸ\†õåCaÚ'ì°oŸeÍA½&¾P>†ŸÃÿ³üN‰—´ÀUfš¦g䫈mÚàÑ3ÍÐ!˜Äˆ'ùÚpjÀE±Ö†´¿Ü2”^ÍÀÁTVæÓJ¯¬îd5ÃqlÇ_t¨!¼ûÖ§IÙYÀEà‹â÷é‹àÇ„‹ÁåVFòi¿$€x’÷é‹áÇÇêÓM»˜HhÖ Tá[ÇŸ&èªrë‹ñ=Â¥àR÷U„së‹áÊ„ËÀ¥Îý‹æÖ$~yñ$ïÖ—À•/‰×­ áÝú¸ò%±¸õaãO /tH9ñ%øa¤„Ã9ñ%p\Âyàó’wb??€x’wâKḗÆêÄS2fgn@Bµfà,ðYêRÖ…2mÀ.ZÙÒá+¶5ˆ³ùɈ̱ú5){p)x±ùR¸2ac3‰_ÀºÅæËàÊ—ÅîÖÅ°n}\ù²xܺX(ÄàÖ—Á•/KÖ­/ƒ+_V_·¾ ®ìcÝܺ®Ü«[§Ï¯6OUK¯f úÞaÇ„S¹ýcG*üÖ³ûQ O?-~Ïî‡7ž~zòžMâÏ žä=ûrxóå±zvãùk Š5g€K]ÀV3—6#åÒ¤ÛlàIà'Åï×Ão O—;¤>’“øyÄ“¼_¿½"VNo\'¡W30ztž2q”£ÚÍ¢v«„Ö³€‹ÁÕíá‘7t:3£·es_K5ǯ6éD*<\ê,©*õ­Ê¤‰[\¾.²£ŸÜF³1o=0žWf¼™%ã­ï“³ž¼üúd¬go¿!²õÒma ’#ÝÆÝX¸&àÍàR‹©£5$þ–âI¾±¸Rø5Çžë Š5ãKx¢ ’n³ &é­9ÆØŽn[QP¬½„N¨ØŽF4¤ælàðûF !•–W€¯ˆ?и.àJð•u4$p5øêø ‰k®_“| !ñkˆ'ù@3 Üšc|¦ú‘€5Ôj Eéú©“¯R5­L®Hgy™–XÍB×Ú¹¦Ö­Iá™À¥à L) À• ë8¥Dâ—Oòn+gbuë©cf»6bJèÖ œ >[™oŸAÞ;bd<±à°t Ä1¾uåW¡cÔù‘taÞ`.p#øÆø='ܾ)yg'ñ›ˆ'ygÏÂÁ³±:ûƒ¦×IýCWB½fà\ð¹Êü½ˆÝ¥‹ŒsöPGÎÜaäÌa›vÇfîÝíÚŠõ«Úµ•ô?TØeüÓoÄô¯‹«!žcfh#}-ðŸå_ [QèÕÞ~Gü%‹ÊAx'øÉWWñ$_Q TCyE!l¨jž¬íWšIê4g5¨^3#î$¡C×iû žÓŒœÁÏuZ œ>¬“–»À»â÷a~KØ Þ¼“øžâQôöSû¹M*ÈÝ7Öioá üÝG<Š›˜iù¶ä° Ìêξß,P²-‹ZVCø!ñD4ÙZ\˜êïÇr!Ö(SÓ”gýß>h;yÝó[/ÿníRëò]†ár„kÁåú©ÁH9iÅ!WSBµà ø ÂxT>ðuögj{¹Âb“§„Þ[W‚_)«÷¤_ÞRX"UF”HÜ9ÀèïKKgÑò3™Ÿ÷œàc~,Æ®‹oç7NJXÃ>þ„rŸæóyÝ“PîSÀÏ.ŸÑ •ÉÉ%ÔþðàŸPæáÏ?þùd<üIà«à¯Föð™ü$oòYÉÀüðëà_Wî·ÓYµ“éò‘V¿þüwIÅf_gIÏý>ð_ÀÿE™çþ=ð÷à¿OÆs¿üø"{î1åsÂ=›_Í«gè#þDÒì?¦æN˜t‚k ï/¡š<{’¶Êl‡„ÓÀ£]\Tq@‡¥’f¶¨çÂÖnRë$`;¸Ô!@ák÷¬Þ’ÒÕ›>xø Jª7ýâ,`xGüÕ›ÄMv‚wFöÚð‡ËŽÚàc $Çöâ°þ†z õ¶/¿8‡=¨·¤´\wtîn—cŸôËK—€_’ŒÏv/¿4²ÏÊÀO:\¼ ü*õY”C³ŒFè.iuðVð[“qÛ9½¾Îò^›^~2¯Þ~[2^«o¿=²×”/-.¥QŽ>Ê]Ùæ.ƒÏB ÕÓ6úˆÑa[ì)zZÖÔ‡,[tŠqó›=@Ç*ùƒ>†»øKð_ªä9z‰îÒm…aÔ£ÔŽã\Á “‰ä%¥åëÄA÷i‚Ë_88é—‹_>Xð”Ôˆcø:ñ+ˆ=Dp¨ÙGè.É?x˜à„Iw!vG/¡š.ÄѬ ±Ö¦YÈv –‘kg!‚Uû\è,-¥?Zºn³oNÄo¸ž÷y6Ì_10ðÚû$”;8|žŒr•Wjp¥ÂEºœ¤”¶­A2½®,µß°2U¤ì_ÙZE‚´R/n×=­³=5 iÙ ¼_¤¼Á˜:È«€„n.`¸š=#É´ö %z©¤­´Ä´¹¥¤ _¼H÷/\Ñ y!E¸v‚Ä]ƒ›ì¬C/•äïî†.»bpU¥%t{ø{îgÏɹ*×XÒUoÞ× ò{•¹êÀGÄÞÂG’qÕk€ÁM­“«¾ø8ty§zW‰„„nŸ~¶ALñ|&)WKºêsÀ5ˆ4>ªÌUŸ¾Ìž§D¹$áªO_›¼\'WýðóÐåsÊ]uJN—Ëß¾|=ÿÈž$ã©Í½\aIGýðØó· |¶H‘£þ ð‡ìùkQ,I8ê«ÀÁI~ÙQåüH‡þúÈÝÆZ3®ð,;¼nÔ#ãHgè³ÏRMIÅU¡±¤»þø§1ÝûÊÜõ×(úïå’„»þb§ 7!ñQݵSf"t˜œ)ôIIí¶«í®W_mÙN^B7tŽS ØÃ:Ç)uã½Ì åÆáHᣀóÙs${¤F*þò!À®>GE“€Ç¦f»á)]‘=v[y’¿àØ#fÖp5*t=§>°±ÚPõfËàc |™݈#ãÿ=À[ðv7+÷ÿ&z Íž¾‡=,K½;ïŸÑKúÊûþ}@ÖŸH±ÎZê1e¾ÿ Ë€Sw‰‚IÂ÷o> /y*²ï÷j¶5yy-n°ðlŒ˜ñSvÑEeÐ=ö¯2FèákRýàñÿùB_çEÍ(¡šáë~º¯EËóüªèƒnžÒ;üÝ•Z«Ùit¶ó] Ö+>ÿ.VÇV¢ºæ™y£MÉP¥…·" œ9©º§Â_VBµÀkÀ¥çKÃ.˜ã ËÅÒ×Á‹Jâ ýb¸|Oüñ„Ä]¼üÚȵ üœÉ¿x=øõÉÕÄG5Aád6³ðêø“Þ¶˜ÇVl-¤ª¨Gx2¸Ü1F5s…ŒMß ­Y/ðl𳓩Üô’¾Ý:Òµx¸ô²“~¹¸|Eü›ÄÍ®_½b‡.#ù«€‘ν¨í¦#{DB³~à•àW&妤¯¤›ž¼üenzðª†ÒáLI¸é ®×ÉM€ðŒr7 cé3ÜÕa/¼“NëueÆs g¤ŒŠ\t;p7øîd\4 ¼\*WUà¢{€×‚Ë¥j5ÇröÐ3ìù5¤ÓƒÀGÁ¥æeb©ä¦Òõ.àÛÁß®ÌQo>.=êÎQ¯¾\n5º£>|ü åŽ:Ý?èBB»O_—šGLØU?ü(¸šÉ\úÅg€¯€¿’Œ«> üøçê䪟¾ þªrWm\±~•„bß~üûû—~øàÿ ÌK¿ü¸Ê‰í^úðuð×#{©ÜL.éðCàOÁªÞSWJyêÿÿ þçýÀS ü#ø•yꯀo€¿‘Œ§þL ŸSÿ™À¨ñ4ô0ÉÇ T*-8¡¢×ŸÞï|Ь‚ä!áÍ|Í«º‘»Ðˆ$>@<’ÕtjTuª%ıTŽÔ4í";78¤[CÚ…¦‘öô¢á„¾`Â…¡?2RP ~ëðÑ‘³iþeÐv: ŽM³Y¶3$¡ä À¥àꎸœÚoäu3WEîQÀeàÑϸ Ÿ#‘üåÀÓÀ¥†F+éøaÏ+¸§-X0::ÚÂX®é[YEÙ³W€_¡ÌXMýE§š©N^ ~edS5†?]€¸ 8> ìõ§õëEoØvªª½^C]Ã/‰O0ZøÝUš"œ@<Ke5 ¿¸®©]»¨S;§Skí^¾xQ[§¶•ÎÀË‹SÅø ®çÖ7lX4á,î‘ÌçíЋÀ¦„«Áå†ñçp“ˆOÛûÍA#织½|nÏn û÷ôÛEowë‰Ýým{èW[»OìÞ³§03Ãæ=Uô?à‚­kú6®XÕ·¹ÊK¬nßö%è3&׌üv—)p:p±âT½«Déo (¾MFqþ`'Û^p$;Ä©FÅ– ¹¿U˜¶¿-dÐW¦W• _Ú·£Q=²Ê;újº}½J†»|ÂR§!hÄê ÁO§ó aÜN-B­½ ü2uÕe¥É‚=Õ¶÷Kú w€ïPØG­=ú9ð\òY’ŸZà–2³¤»»$ô)\™9ì\¶ŠX8 .µ9rÜëÏn]ÔÖ®-ê^Úѱhq·T•Ù ¼üVõ}¬mRßbAwWgÏ®¥ vuu/é^"\ß |ü9…†1œ*bo~üɧÚ$þƒÄ“´£ÂÎ%TÓñ°XŠ}ŽcVN·²íÚÖÎvmžÖg˜–Û®Û©mä)÷²Å,å^ãzf^¬ß´5ÝϯÁAZ<[Ð=O·ˆiƒŽ×\öß.Z›Ë٣ł–Õ==t-Ù‰÷ôWPb‘gÝÒ§¼üÚøg¯¿® É¿xø ê–EÝúܼüŽøw#ðNðè§ðÏlíf ËâÅK–IU˜»€?³Ò³xa×’E C6+¤äãÀÏ€«Üo\¥Y!qï~ü³ÉÇsÿrñ$­Æ˜°s Õ4+c¬Yw4·k›x›â_ÕÌrhg9âø?ë9Mw ¬)m=*í$`ÿMm‡hV®mþEÚràßñD_1]CwÐf^y×ø¢PTaZϵ‹]Ñ€—Ú¤ãʆU´žÃÑÖ[ìå½¢vii{=ðYðgãovž÷–1ñö‡ä¾ø~ð÷«kzz$ôyø"ø‹ñ·?$î9àGÀ?¢¨c³´{yGÇÒEá[ Ræ£ÀWÁ_Uf›“+´@Ý]Ë.ØneÌ==‹:™æ!Û!RõKÀ_ƒÿ:þvˆÄ½ü7ðK¾ ñÿ@Ww«\‡]¥i!q;€»Á¥–|\ª= ׸¸¯¿–|T'ñ_ ž¤ÕØ#ì]B5Ë“¬q)•µk+ÃÍÙ£~gÜ°ox–”GÑДP§@ô“:üRéÖNÖÎX¬ä–G—×ØÞ°?¬Æ;D´¶2§;CF‡ë9ô‡œ™7=šýæ»ÚÃOã\‹’!|üIõMRèÑ6ÒçYàóàÏÇß$‘¸w_¡MÉøp¹4¿òh[ØÞéñ)à§Á?“Dâ> ü ¸ÔhQ…&iawwGÇž…RUæ³À¯€E™m´ãmÝ]‹{ªj[¥-"-¿ü-øoão‹HÜW¿ÿ]ò‰ÿ}ñ$­ÆuÂÐ%TÓ-ãm‘7œ§¥RçuòöhÒ¼ÎÝn׶ujX{ÔÓÕµ¬-´Ã_ —Ë­Õ¬äðod-—ciFÁÌyÓÎÙCc ž<üüø ·ØÞ٪˵օNV3²ÌR[†ÍœÎö°©Ÿ¦m0 ÓÊØž§]dær¦žw™…ÝÁò‘ÐË)Ií­À»À£ßäºnÜòQMÝeuc+K¹Èõ+Ԋɳ44½YœTJÆJC|µa¥¼†´¬98h8¶j݈& LöÖ=ý"}®Þ®òbŽ*5ŠÄù3lþä^ô‹9§_$ÿŽ†Òìçr³|•Ó¯ªÊúÜ ¼ü¾øÓ/w0Ò&âñwoðÁæn–zut°ÿ]$Uiî>þ”2ëœ\³¿ÝeµŸ§a®§ä ž…-]¶(dFš>üø×âOÂHÜÓÀ¯ƒ=ùOâ¿@6ðzðë•™§½âÀr÷’]]=ÝË—,ëne1byWW×’Ž® i|ðEðãoLHÜ À€GŸyÅIüGˆ'i5nF/¡šÆ伊Ébј ÓJK›æ*MoL¬Ú×X\ÎjbE&ŸÐô47CwÕ„®·â%Ï?O}O$ôÜ$éÓ¼ \jŸA¸V„ÄmöƒË/ü4|+Bò/^~…ºVdi„>p|0þV„Ä] Šl±ìrywGÇòÅRfè{Ê,3o/3“K{:»;—W]4[¥é ]wŸ2þ¦ƒÄïWò1›Ä¿;€x’Vã6aîªi:¶²¦#pZXrÙÓÅ’¤Nm•me‹1MX>±Ù ÓYµ>qú2 naƒºVÐ3;ô¡ðƒY·ãe·‚«ÛAy| g\CºÕôFu'ìrJRòÒ†ò0Ó¥ ’÷˜…kWHÜ6àøXÚ’¿ ¸\níMåÞÉ }nÞ~Süí ‰»è/¹¹9²9f´.¤.Ö1 ß/!MnÞ~2ÃT\K¹lÉÂ¥ ¶»nçH×Â%fWØ5ý¤êCÀOƒ«œ®Òª¸{Ÿ>9:œ“øÏ¢·?°Ÿ}GL.¸„…ùuO¦ ñéâ‘tÚæ¨êÜ)~¤„x"–J#kaC*rLBØÞ©2WªÔÓè´ÿ¢eJ(7xøa «mùl³Ib›‡ƒ®Pl•CÄH\ðð#êÐð’ü#G¥Ü%¦“K åòy íæ;Á;“ñ‰€ À$ãG»À»êäÝÀðžx|¢`x¶„vgׂ¯MÆ'–Ï?'ŸX\¾.²OÈ‹I:¬nߤÜ/¦òËbF$t» xøUÉxÅ@\OÆ+6À"{ÅI|]‰Í/O·RÑUÔM/] zUi˜Þ ~«²¢C* º®JÖE Î[êš‹’øt£å¢S߬:SúVm^½¦‚>oeÏıX6œx≮ßÂÒòÖœ=Ô¦ÙÙ¬«ÑN&ÛÕŠ®<ÚÄåKâ0µÐ¯t7¬K¸|CäW:G\ZÕš7t·è½-›ûZXØ4{½‚í¶kŒXÆP»–1{3ü/YFø_hi|/ûŸÎÌP[è·yÞ€ðp©†&¢£ÜÙ>ª©?{s¾‚-.G¹¯qo¼ŽÒ—Œ£Ü‡7¸/ª£T{@¿±SÏrûùo…¸·+õб•Ä§-¶NJDÄ–:Ñê¯fàlðÙ ¼ÆبíT<¼†¸¿ôo8&mPñÈÀ¤o¥û*½ºÿàµdü‘¾1‹¾1¿2Wümý­IüèÜ7 9̱e]“~H¯™ßfù/_XÐÇþ'¿|eÏÂÌ‚¾¢™Ëö ,ëÎv‹–-]4е³* òºµ@®N¿Ho§œE?xÖoJEÊ„5ÒË'—®W£¥âœ¸|Ú/nÆ”IAñ‚mk;°èêT ~8mR Zc±¤š5,å‚œNšñ÷^ñ½ÝWÿtà—ÚwñP¶eóÖõg<ÿÕùzåjVc‘‘’Eœøƒ§†øÁñÞ2É÷§1ß4sF¯¼Ù^Š¥ç+õR-C©NÍ,ù· ¤”ïÕ@<j¨ój©¦g‚KME©Sûõœ©Wj¸Ó(‡ôø2IÚ$$~vñ(2É9)¿\áç—#¦®m,æ<“o¤ðŒü?rÆK$7˜–¡;ZëFs§‘íXÃÏ‘sÛ´2-#ìH¸ |“B›z¦—«TÍ#ù| %0i›’ø-Ä#iÓiQÕi‚‡û(_냟~AÓ´µþÕõžM$Þ å‘zZ¾ìiƒÜÃø°›ÃþÇÎ/È󿈳 ]l˜«l‡£]ôøŸ±T›ü8÷oÛJ»­·†6`äìQ.‡zN¦å96_m!¦¿…,É)ð)Â/€!Re­Tig—î#Ë=$”üðuðוU¾ªã$îËÀ‚ÿP™Ø¦þÂŽ¡*R¿üø"ûö‰|ø/o;†–e¶0™7Š›ê]Cv;?)øÏS‚§£*šì7ýSì·; ÎeŽá²šæö:Ùv×cÎÓë«7—ïÞ¸bÛºsW\Üwå[׬Z½I;£CÛ:ævža´¶Lø¸¥ít­ô§Z_ÇwÍA­õkWfXwZƒŸµµMú™¥C&kunwYiš#N§ex ¬ º7¼]ßyö¢ž±³#ŸÏudèýØ[N׶°Ÿ¢ŸpÇ\ÏÈwRÎÖÚ’µ3þ¿âÿ¦ôýv½To >w|U-®(ý\›6ož6IsQLùùýýü^€3ÜŒc¼37²:Wß©õj»ÙŸ Eï4m÷ m1ðetXÆh&Ï„ÓŸ·°¿±:;°ÿ÷•XÔ˜¾ÕÒ¾gÏég,€ˆbž7h83o­?îÏ,ýÈžùVÎJ€•TWë„×üvËüöq&jgï<î‡Úöì©60RëÖrô&àlÁS¡úƤ[fôçl=‹ÄSJ¡T]}@ZÏ h?GFû`¤o¬¤Ùóû›[…Ìí••b•6¡ò J¤VV˜qFƶ,qØ™µ†eª ¢T}—FÈã|•JŠDË*ƒªÍ)?Šl;£?kŸ«|ïZ^eBçz_(¿Wç#ÉÐ1=òìÅ4ñ+%Ä1E:Utö[ÇÌvíÂví¢vJŒ\1ß®¹9}€ýoqÀ5¼öÐO‡9O?5²Æ§kâÿDŸ£î(bÞ–U[YTeÃɯw[ßkÚ1­ÒÛÒ·f㆖ðop´ærÁOü]xÚaÔÛ²‹©t{[XÊgf‹zŽý7ï`õ._Ü® xß U »À»"«½ j÷µk}nFϱ|,c;L[×Êë=횧Ùÿ:Ãv»6¤çùŸ Ãfxõ„Ê„ŽC‘TÔÏŒŒdz׮ذ•¹‡8ùËÿ/Zk—ÿ3k™« ¬­`=Î\ÕEGUßct'¬°‘8di¨Ú“ËÚ^¥‘1»¸|mäbL‡ŸÖ#ή_'£H•a¤¢[ê]OŠ˜Á‘Z©Æ%zCB˜`´†äŠ¨êÌ‚%|ıT$ÖîΆI+¬Ý8d:oïæëÎP1oXž« ÇÓM>dÄOú3-ÊÏ%tÆü'_GÙÜ0neäA™*›ZH\° ¼+yO&ñÝÄ“´sà,>ª©×|„¤Äƒ«õ{Óc¦„^ÍÀÁ”Ñ«¡Ò ­ƒFXω–Õ ²<…n‡”)¶YÀãÀ“¶_”Û S;ª¨^sH„ô>Ø Þ*ÓiIú"HR¸- x›Œâ%¿Hï51©Í”©Q1ðOéoÝúHe*…áPkÀ2î :?#µf?v?ÊÏHïã€óÁçïù)ÜP¼UFñèù™25ÔågÊT •Ÿ©µ‡òü,îB©œŸÅ+µF~¦Î-ƒŸv•ó³Œí8†[°-ZL«¹´W€ˆZ1OÕt-B¾ü"i­}­CÓÝ'ö”jó­ß3Yª©íð[Õ;¥ƒìÅ@ ÜRd§² oŒµzÛ2z«‰±JÔ¨cg±[2´T°U¢[è`«Î0~°­–³+BJ§¢^5ªc½ÌU½ˆOê^š55'øé²R˜ïÈØ¥óéóºç˜;ýý|¥ÁpÛ‘ë­µüeõ^²·NÊ|ø1ð)´eÕÞ: |øqðGï¯†í­“øOOܽu×ü$ø'£¿}ØÞ:‰)€x’ï­“ã{ëI¨Õ@µ½õ.»€ë‹ý©Jš¡¤Û˜ÍÁ1–nFíÌ“Ì™À3À϶nòyÒ»¸<ô*†ztæéwÎ (~ŽŒâÑMej¨ëÌ+S)T~©ÖÊ;óqJå,.^©5²8unüTù¢k8YcдŒ¬6j˜CÞ\ç=¨å ø ´–ûNçÞg¸|’ oç~çÚ€Þ×Êè­&¦*Q#†Î»2ÝBWu†‰¯ó®^Ïà·$:ïq›«zØOê^¾ššüô„Jw©^zPÍÇÁWVÁ%{éôSÏ?þA…F«ÚK'O?þ¡èýÔ°½tÿá≻—N⚀σ?ýíÃöÒIü Ä“|/ýáÑãë¥7Ñ6 Íš3ÁgJ÷'h´³bGÝ´2¹bÖÐlËÐü½Æð’o6îÔVhtþW.ð -£[Ú€¡ ™#†¥é®‚ÿ!øámà·I;Jò~Òûvའ¥SÈ÷ý?)|_@ñûdžœ*SC]‡_™J¡rRµöPÞá»P*g~ñJ­‘ù©sË৤Ô?WqDÏÒ Œ¥8Û)ÎË)äÆEgkñïM–6ŒQ¦Òý‰>š! üüûYüýàŸÁÿ¼¿Äß7Š¿!£¸šø«D µñW‰J¡ã¯:{Äã,”êñ7>©{‰¿jÜ2øéVͱG]~6K^óº5¦eì\1o¹ôßtî¶Á£l9áåsë9Zì¾"çŽÅoê͵SÔåGtËWûÔù‚F¨oû샶“/æôðÊ¥®fOeöY«âDâ.‚§ …b«âNâú€ƒ‚§ä‡ËýOçû¤"]Ř ô¬$ÆxHÉ!à['¬ï)ó ð1Á ãã!wß)8aÒc<$þñ2úOÜc<Cš ö Á “ã!ñO–Ñ’ã9Tx4ÇÇxh¶„fÍÀèc<5ZQãá[Ä=oðótÓò{ü·X(äLŽèþuaýýP|p ø–øýýPø;áùàrmf$'ñ}Ä“¼¿?,^§ãt$4kF÷÷¦ TòwŒ:ò/Ó’%×< ß#\¾PÚ¨É÷IïEÀ^ðÞ°ú×£ÿK ŸPüLÅ£÷•©¡®ÿ«L¥Pý_µöPÞÿ»P*÷ã•Z£ÿ«Î-ƒŸÎ-íÝ^àzŬɺµjífðÍñg$® ¸|Kò‰??€x’ÏGÕ"Œ/˜*ŽÒ“Ð —xVº€%bÎ{) ûŠø᷊߬yÃ13m~b0¡Û-Þƒ†ÙáöZ«?ûYpØ×\>¢Ãdž0Oi3û'mì?tOs‡íb.[êÔû©†ƒRØJD%3ø4øÓñW¢ÃQqŸ&ùJD⟠ž¤Õ8ÕÆG<É×å#!üH%uyb}9«ÆÁb¥)më6æ EOç— òRœ,ñ2ÍÀuàêÏ«šÅ w&\¾>yŸ"ñçOÒj/ò±n®}4„­Äµ«6SâlU ݚћ©Æ :í2L~§î¯¡±-£Ã5³¢õ ¡yj¶r¦Ë[¥Iº[0ñŠ¥Ë*Ä)²EÖ~¦Žå–éýç6”/>ž+PQø‘X&eî>þˆÂ¼»êÀ2 | ðQðG£×à°‰,€xâÎH\ðà †ÕÃÆ/ÿxñ$¿ŽÍ1Î4›×f ÝšÑã׉tZN7Sèí÷>˜<> •6 Eº%SÄsç‚Ë5™•ŠvöµšiYì%®¡|ÆpªUˆjg“V篿Ra=¬23IâÎ^~Uä 0§Ôô`§„©t`¼ ÌTµ[ñš^~M2º¸<ú΀¹¥<½S[# ] |øÛ”Ù¨‰Ž­—±ÐƒÀ‡ÁNÆB÷—J!Æ•À¼óO%»È:IîX>oxÎXÕÓÖkÙéQà‹à/*³Ó”–u’†z øYðÏ&c¨_9²¡Z¹¡† ôm7cdu—.‡Sc¸W€?ÿ¹Â vÁ&)»ýøðß$c·_ þÛÈvk¢~‘„M~üðÿPX™ÎY#g”ÿHY#qÂ$ŒòŸ›<½ëßÍ+KîŠV)ÝËÖ8‚F¦V¥ÒÀÁ •Õªõ«e ˜Z þp2&ºøxô m2ûmHƒGƒËÍKT²ÎLnc)eœ§/€¿Œqž¾þbdã\Ö©­Ò-‘2Ò´°ÎѸóÅXã¤@I©ƒ¡³~Ÿ˜Èج«ofL¾·T¢ƒ@/ö¼;ó‘ÙîŒÂ)sðÁ ãï ÀYÀc'ŒšÒ„MèHüqeôŸ¸:ò…&ˆErG˜tBGâµ2úOò Ý Â£9Æ—ÐMÉ#FNBµfà,ðYÒ)ÝÄSnôR<¢{LXˆòF –‰uñŽnwW×ÄC#* Hjü­&͘,_|ºæ†Rôš¯¿º®eÒä6ààw&ÓQž):ÊâÀ¼°¡•ôÝ ¼\jAJÅ_v€wË8ütoð²¢ =»Cº¼GJW%’¸&à#àÑSºÐ”Ä?@<ÉÒQé8ÆØ3ðÂNîBÍÀè=ã‰+¯›x®5KãL+KC<ã×yÐ0~ ‘sƒWúáL;o™EW̱ß)ß51—,wÂ% c6ð­àod+[–Ñ$4{øNp•ë´ªÜ_Bâî>.Õ ×ç qwŸ"rµm¦@*ÕE =ž¾ü}õî"2/? þÉ$º$ðýÀ—À_J¾‹@â?@ã­_ù2DZ2'q¢½öLàð=Ê"–ä‰f¤ÌÍÀ;À5!q×ï—ꨌ?€/p¢™D“BÊÜ|\*/WÙ¤2ï¾\jaØ&…>|¸\ü4t“Bâß@œ4d8|ÿm…ýV4½Xj`"7ôVs:¸®,*UmÄ«¶¤ÇpñÄÝb¸  nF® ZùÂúò\¯8·Jª !í¶ï—jNU6!¤Ì}Àw€¿#‰&„Þ |\®Aç²a›ÿHñÄÝ„¸&à£à N÷Û„øLj'ù&ädáÑclB\s(¯÷HèÖ ŒÞ„Ì™ ÓŽr¿dü”j«BÝ¥˜3¬!owÓ7 >8'ûÀÖ]•zá¹ÀkÀå–b(ì”27o—Z<®‰!q{€w€Ëïà§'•š˜6JÍèY;žV»øAðJkåÁéý¼¾]Q­ÂÕ¼NÔÿðeð—þ}#éëIáWŠ¿"£x)\¤$¯T¦FÅÊ;£¿Õ7nè[•iVYj•[Õš%0WPÑqöæúõ*›Ê— Æ+µÆå‚êœ4øéab@«ÛÖ©­ð›ÁŒ¡\jŸ]ýãèßþ³ý%Žþ< øÏeWG•¨KU¢Yè8ªÎ,qÆÑ8˦zOê^â¨' ~º«©2º%Np }šcškxž«ûøTÕÈ|¼„w]èœ'e ׶³ßœñ©-‚î‡Á9u>P<zü®NÁ™ïºòQ\IpV£FÁYfaƒ³B³Äœc-›ªÁ9F©µƒ³"' ~ºÁyÔÌå(:ãÐÚ};X#2³ LWżD„zÿ,ÞEîÊÜJ•Þ´¢Z¨1”Â0AêÂ&0”z/ðyÁ #ÚtªÔ¼éððã‚*²‰ä¼)ƒÞSê‹‚*«mUçHà'€%8aDË„žW ñ]FÿQæ—Uæ(/j‚Ø¿œ0êÛ‡W ñ_*£ÿDTCb^ažðhŽqžÒ¢«6‚54kÎlˆzJËQ4:fò¬o-ZÃo²›‡ïž ~ª²ør 8í¸WæB?Ò¨xx7#‘¸v`/xodïŽ:É?xøYÊ #u¥©²¸|}29x.xôëÎå,rp¸Ü]÷]I]²Bºl^~Q2&Ù¼üâÈ&YÌ×ÕèµMgbU2à]|+x´mÁoÍðžÌ͘¤ÒýÀ'ÀŸHƘwŸ²Nõë]Àwƒ¿[aÄ“¸ó’TyðàR«ðÂ[ä=À‚ËÏò–ÄÉ\A*|ø"ø‹ ƒžÌ a¤ËKÀÏ6$vƒ,‰ûðåU7È®·8@ÏÛE1ÄÚêцËÆ Ë Ëý“õøŽV׿jB¬¯L5 N¨Ê¬ü6t ³¦Îœ0³òƒÛçNѬÇhƒ:o£&í3y=iv°]pBEÆŠzy=iµ¸BðÔŠdÌÖ\)8aD³Uº¼¾¼ÀJî{Òk°_p•——Ê­¯"e2À//%q—ÍU——v6}¬˜Ð¦é,:‰¿ ;žIç7É4|üJS‡'”Ô9Ê$ÔÔ~O/ÊMA‘òï>#8a¸— o$=E ?PüYÅ£OA)S£b%nîo¦ =¥L¯ÊR«L@©5ÊÞ& j»}½J¦òôS¼RkL?©sÐ৳DåGúæ¤Z>_§B§*«4ÓH¤È§Ÿ<%µ=7|«÷1àgOIuSƽÿ-oè-×=ž—ˆ¯¼‰¥4W(5ßDʾ üWÁ Or¾‰”ùàÿ N¨¬zUo"¿þŸà„Mz¾‰Äÿ©Œþ£Ì«Ì7Q'± bÿ,xêÏÑß>ì|Ó<|è?Õ˜oš/<šcŒçÆ8ö„bÍÀèçÆÄ9ÝDΞ~Š²ðeº‰4êž~zü‰;x¸Ô,WÄÁW’ß <üLe†™"5Nº¬®_ŸŒIΞ ^ù&’Pý|“Ô ©²x!ø…ÉXd#ð"p©Y.¹x ø%*+‰¤I®fÁ³É˜äR nÔÉ$ƒÀ!ð!…&‘™”%], î$c’a  îF6I"“²¤²|/¸Ümi5Ó‰@ÒèÃÀ—À_JÆ–ï~ \ê<­q±pòFTXÒ?S5òÄ)üià¯Á­®>JM,‘.þ7ø'cÃþü‘m¨rb‰4û©C'Td¬¨K¤Õ1ÀSOIõB›ŸöMxªà)¹qÁOÕM,‘^íÀ5‚KÞ¤pb‰”Ù<_pÂ$lµØ'¸®Í>;±Dº"‡N]/8¡¤ÎQ&–šú«5ÔœV"Õo¾UðTè5Tô¤§•HỊß-£xôi%ejT¾¦¿• zRI™V•¥V™TRk’½M*Õrùz•Kå)¥x¥Ö˜RRçœÁO£M)uz:©»YZbJ‰y7ð=‚&ÑÞ=|Jpˆ¶‰yJ‰”}ømÁ OrJ‰”ù>ðÇ‚*«^U§”Hàw€?œ0¢ CO)‘øŸ–Ñ”9p•)%êq4AìÏOEßËzJ‰Äÿ¼ŒþQ ‰)¥VáÑc<mHχ?tjÎnˆz4Ú K}a=)2xø!ÊI­}^UÛRåhàqàÇÅ߸CǃÙ)õ{Úµ¢ÇW³þª‘±­¬Œ­4àéàRÓi± -V+[À·$c¶3€çƒKõ’cZ ½ú€;Àw(3šäÐ)ãGÁG“±U¸|gd[E<¨œ”Þ~[½S)Ræàƒà&‘J‘ÀÛË/Ñ•N¥Hü;ˆ'îTŠÄ58ùTŠÄ?@é3v£¦Rm£9Ƹ:§0lJ(Ö Tß±DEŠÌ~²(RcýRÕOš< ü¨øc<‰› <üè}*"ÍŽ._ºÏ¤Q¤Õ™À àR+T›mp#øÆ}("½6‡ÀÕ­IL£H è‚K­o«a îÕ;"eŠÀ›ÀoªwEʼxø}I¤Q$ðfàÛÁßž|Eâï ž¸Ó(×|üäÓ(ÿ`ñ$ŸF"<šcŒ‡êdFF2š5g6D=TgÚn¬pŸËè°Á¿CbŸÐl¯g`€Ü1u+ctdlŸŠ‹_vúËfü?/®² œßßš Ü’I‡¶…?®í|ð^ð{•E±é-ìØ뵄mhHwŸ"þ††ÄÝ|üÉȨIâÈÒà]À§Àå&ijØÅ‘²ËsÀÁ_LÆ.O?þ‘Èv™Ö&Õð“~ \nY†Ÿ”y ø%ð/%Ñð“ÀO¿ þåä~ÿ•â‰»á'qMÀ¯‚5ù†ŸÄÿmñ$ßðŸ*<šcŒSQnAwüu¡tkÎnˆ:Õ8A§÷ÔjúY[>X´2b½³˜/º†&^£Ôèl72â¢lúÆNŽc-Ø®kä Ñس_f=Êbß•ÓMqζ[p=Ý¢µÕ9q¸KÆpX±Ä÷\¹@G5øQpu{p›6•J(> üøç’ˆr$ðcÀσ>ù(Gâ_ ž¸£‰k¾þZòQŽÄ!€x’ríÂ9Æå¦΀:Ì‘RÍÀ9às¤ÃÜ” Jí¨æì¢W(¯B¤Ó¦~â´-ÆÀ Ž=äni_Àø(Ö*.Ô‹9~ µÄ‹ ܾGY¸š²vņ­kÂæˤËÍÀÛÁ¸‹ŒÄ] ¼üŽÈ5ekFVzœŒâ.ÓNíBZíåjgjÝ%«3ë:¬+œÎ!ÕÑ[Ü ü&ø7ëÚ‘&ßþüI´C$ð[À×Á_O¾"ñ? ž¸Û!×üø’o‡Hü?OòíP‡pgŽ1fÛYsÈôÂvHI§f úlûþÒqˆ@Áöhü˜YöÇ<ûb!§ÓÊì{£Ãffíýó¬ÆÚ$Ö渦˱‹V–Öª®ÔŠVi2§]›ÐF-‡D‰š |üiuaµÈaÃiòiàËà/+¬Ö9ÓÂJ ÙoLPwfoÞt3¬2¾öà'Á?)«÷¤_~ø ø+‘«ú¹¼‹6XtxÚ”>”#ÑÝß4Nl[žcç&:2¯†þt"ÚS‰’úœÀԂƸIlÄ6 îGÝ$7‰?°Œþ“|àî–cŒø‘„rÍÀ9 Q;#÷M¥È3]~H­ïí#"…ô¦Å~2ÑsC¶czÃywr<öc1þµîððlZ|âÝ5³Æ¸Ñ©ü³¯Bø¸Ü잪ü“4yø.ðw%‘’Àïwòù'‰OñÄÆH\ð)ðè;gB‡1ÿtñ$Æwæ¨6ŒÕÞ™µýtt’:ÍÀY೤×Äzz¨žÍš]þÂ7¬ã’jO?9~Ç]g%œ>/yÇ%ñóˆGÑÛ7÷—ÌRAö,øgOÒEÐG÷d•9%ª:ݨ&>âIºTz`ÕG"¢-„pÂø³ƒ·ŠžªEêjÝÓ%lo‘Žu‡F5 ©qrñ$íG‹`2•øQúxÿ߶à,n¼-ºbgÆΘ–ÈVGY¦ªéÖ˜?È]té&EcpÐÈxškîbYªÍËÙ?2h׬[tØßüŸÊ³î`‡ÎZ™1—ýµÕèêl×röæ˜îÍ!®øƒÍº¥?ðO³&“âVÆ`¡ý¸ãÿBs„YÝÉ2²>¦ßôÝri +ŠðŸ¦×à[{™ }T¿‰½•™1)ä¶WýdÜoòÂYkº¬ã;Ÿ)ßáÙ»Ê_àÿ¸‹j£Çb,9—kç%Jkœ˜:þVbV<ü÷ÆŸbãêùBŽˆ¿|Êmc}kCåc;9s‡A}ìr1ï2X¯ÀdÿflÜ’=àÎS¹Šå\mÄÔeVö.†c.&×Bt8^Yw"=fV˪MR"ó€óO«k–«NR8 Ø*8aĘqzùJiæìî9ì ™nfOg”2u¡Œ·—Ñ’°c¸Cð´Ü†¿à§÷Vg¯§x늞|É|†ãØŽèðû‘㳯îX.QªÏì—Lçͬºœ(!‚wä€ÿ'xZîØgeÞÑØXFÿIÂ;þ±M‚FôŽËÞ6G E¦g N˜tª²Dµ„jRÞærªRŸ¥Ð°\®'0áñsI†K‹ %t;¼¡¼yépÊ\·[ØÖ©­e¿K4}&2àIù/+¡@Írj¿!4Ù?r‹¦§ÓR@Ã/®ÉÊnõ “¦C[»—/ëbB)°_óèXëGi.¿æ]z_yåñÓK'T'¦8ra"½ xŽà„ „‰t/pà„ „‰ôRàzÁ #6 ‡L˜*‘™Ø&MÎ^.8¡j‘t‘í@ )²•Œ‹d6Rd;¹Xœ0¢‹ðû’1ÈÀ·ƒG?pHÎ ÷W·8¸ö¡Ë5mòð]àêÖ״ɃÀw7¨Z,g“÷ŸWwxJÓkä9àÁ?˜ŒAž~üCu2ȇσ?¯Ì þm=áÌñ‰âIÂ/? .µOi|ŒÓN&y ø2øËêâVÍóVç¬i—/¿ .u˜Lx»¼ü ¸Ôá1ãÊà<>ãÆz*šcäŒÝòÄâ2Ÿ‹²lÇÈb’®ÔÝáßqÅz´!s„ýÇÀ˜Œq¿*_CöU’/ÔˆO»B\µûÄžÒQiýì…´M­ýìå<÷vÅGsÆ´kÇÿ½ò‹Ö¼IŠÞòpà*Á ý-}cÒMRSûóÛã»HŠô]Ð{µŒÞ¥A tƒäERÊÔ¨ ïo­`þÐ÷J)S²²Ô*÷J©µ?“™®âCëIŠ©¢‚o¶¶Öˈ•/ÁŠWjK°ÔU¬à§Óéú+à ½p#¨ÍyÐæ½:žm,©’oO£ó²‹¹ªëÿk(·Ø .µ¢¯ŠKW9˜ÄuÏ?3þšDâNž~Vd×éÒÜ1ËÓwN¼s™‡F~[‡7Œ™õv™)àpvBÜVÚ^†ž&UF€càcÉدÜý°å…Rå ¯éj%:W>GVÕ)t¸|1ê™ß–ÒÊt7ðÓàŸVfÐYèÚ]+PÆ´¯¿þõdLûà7À¿½+'Ùù&-¾ ü.øw•Yèè …ºµSyÏ[@èÌ•4ü!ðàLÆ\ÿüðÿ‰l®·µQ¸d-°žÁ};7fÙySÏ-pi]?KU 'ïŠ~Ç ž ®»1t×ÌUJOM„à¼nY†Ó©]ÄÏ”)ÏDêøž_·%×êPaü¯ÀÔ‚Ö9P§î¾]pÂÜ#u'ð~Á #ºÇìñ$Ì“zøÁSR +šç€RçBÆFï¾(8a6z øÁ #ÚhdܪcœéDµÚõ ]ÜG&ȹ¬‚/0v‚ùÍ鸎&nBωÉ~¾û§4ûïWUéøNã`„tMñt›2W8¾ß»DTãÓ]ÀM‚&à éS€›'Œè M´x.¼¹Ò[€['Tn®É¦Ò:´Ðƒ®¤å¥À‚&a®mÀ1ÁÓR9ù¸Â¹Ò¿'”Õ^¿QuŒ¼=Â2ã‰u–µÞ›ÑaædMÇÈx{Dkyä›Øô.àwO«KÌ$. %E¥$8aÆFþ•þgÁ #û rð–Ž«é'8¡"󴔈¯XWeN'Eÿ(°ñ(Á “0ßï!öhÁ #šïÐ6Œ6ðû‡äGv .wOÒ$¶ƒT§ N˜€‘1HÕxºàÑg’ •¤Òݼo65Ò‡t~Íö^¤Ð£¼ô¶gŸœ0â[‡å])œ§„jFyOÜ}hŒüíÁ>#Ž•=st”& \Æ"ùQÏ=¤t–âÅZÿÀøCGÇ?¨üª5—SÑ{žÜúºúF§Ž’¾;zïÑ;új*ejT »GN Ø9ô+eZV–Ze•Zù3(é*NT¹ªÔ©œ*jø¦+l½ÌXyIX¼Rk, SW·‚ŸÊ. jã€;ÒÚ$¿·€ôv×€‡¾¥b yÝ,)¼' øÅÕDz%j¨Û[ L¥Ða]=ãjöÄ](Õƒd|R÷$Õ¸eðÓ·iYƒ.'s'/¢Î ëÄø;Á‚‹øž0~™zé„ÒAÓq=¬¹-OÌv——0•»G4C¤™ƒš)zXÈíÛd–ª %u à)¹ ïèÓ(±z oë%ãujðHÁ ÷‹x:* øQ2Š+‰×jÔ¨.ún@ïïÊè­&â*Q£bÄ=²¿µ¢HE`%j†ŽÀêl´·é*õ¥NUyì☬Œõ¥úÑKmîG™¥ÿ*÷£{+Ž;gäÛ׆΢Í®öæ##Tç'Cà'+«G©«ƒêuPJ-É‘¯¡÷Q¤¹À”Z*îz !xÚˆ¬·Ë|ëÂ,ÿoÝAÅ1ì¾¼1n–hàŒ7’Ž–ezÕë›Ìð»ÓƒŒß-8aÄ -{|‰‡j²e3šÖÎ7¡p xF™]-u*cŽÁ‡6(œÒl;Qxgí“´2¨ø.â“´›ñú=l›M\ŒÂ/ŽjMûF'쪭çÝ©—òVQÛ4>ÎlÅ‘÷(`\*ä%1S÷GU#‰q¶ñIÚš.âšõ”zÒA™dK ˜tP«–V“­L¿]ï¦ñÜC¼¥6™{Pg¤þ«WökëKÌ5™®­Û3Z©R3ĉöäg½žÓÜ.?”ÐëjUo“Û¾Å÷hMðŒ¦¬þ-¯vHܬ×Gê­v—†ƒªe³6:sœ06:sðRÁ #ÚÀI=½"¢šÛü†ÞI›$» 8.8aZÔnÏ­ì ÚI«U›š™ÎN8/ÚÔÌM>Áo’\I›ªFŒ œ­šzeZU5²…mU*¦U«ÚÚüÛõvÛÕKmÞ®*2TÿÕð‡†øå89´ÙsÊöF2˜"ÈÖ«±ÖÏÐméðø¥—ò”øHºAgÃÌP…æuÖ1‹fA·I~Cgw[<ßÉdu¾qaµ)p^šÃ‹sf—çø ìé×vF/ß¿ÌدËöˬ3çZe«R°-;<84$v.Û®ïÓ'ôiÿcÝ#.÷ðŸàrç W7 Nh“½ öqiXp¤Mv+ÄðPMŽi·0Yö²ÃºÜm°¼;’Ëmäzc¶Ü¿¯^ñ¤v a5àjðÕ Ýní$¿%ÿ˜õ ‹ÌîØSHH|ðdð“e%žóËKkÀ¥:áš *n1p-øÚÈö~“Ê_<\j¿ü¦v{Ùí˜e—èT­áÁÁ5R^ܾç7Ø‹>®È`×o¿!ƒ=¨ƒëm2Ø1`<§Ü`$ƒµÆlÓ s Šk›É8|:øÓys-§À§”™ë^ààw&c®yà]àwE6W¹CÌI†gŸ mr ‘ÉA&ËîÏ,"”ñ Àwƒ¿û·Ø—_ þZeû"à?ÿS2û<à{ÀßÙbÏöwxïË×U¢7ߧ—ôÂŒc„ï  ï~ü{É÷¶‹ºPE5=õ¢'°¥DݦËÏÖ±5Ýä·ï gê¬Òjbê\Ñë-‡äÞÑ ×ƒËí6Ìד]eBâ\ôñ¸+µx9øå‘•z¸w"¬DÊ9Irp|T™~$Ž‘09à$ød2Úy2Ð7#kg¨¶r«:=ˆm„}¹ãVt‘¸{/™2.¹E3éÈ`Vͬ ³3]¾ø.ðw%£Ë—ß þîȺ<3–u>$ã?ÿ \Ýto—´Ú¾|ü¡dÔöïÀÿ(²Ú®j0YëLÒ(-Ÿ,è æõÎùÖf2$Õüc©µ‚§äÆFª™×R 5§.n<%µâ(´šSë€ NQÍÎUs¬ËµHúMÀ;'lw½åû>OpÂ$ú4àó'T¯ÐæK·´,-¿+©%z7ð_'l{ …GL}GpÂ$úUàw'Œ¨ÐU5=ÒŠöŠkY¯#§¨ÛaÜóÕã:m:Õ#µ‰Œ¦+½TpBU!­˜ˆ“PcúxàÉ‚§¥GúC©1}4ðÁ #ªqKÝfGTEo«)׿z²6mÙ°A ¯Úô©À ÁÓê²o¤+hº´OÛÉhvèžv"kö¨jÅFo r· ž–K?i¤ ÅšF–mܵLFMϾPpÂ$ÔtðE‚FTÓŽ^¾?_±lU(?u¦X4\ÛÌù“œj+‰³fª{•4XÙ,¡å"8¡äCEY°`ÔÕ+r+•IøŸ<:‘”îHzm üˆOðGdçŸHk”‰Ñ°ªwf…jC¯ P&WãRÖ¨UJ«uÍ;]o¦ñš€xKm²&@ú¯«,l™Ã'lƒ=j¯6¢ õj£…¼å:½Ú¥’¾4Ó \&xfÙ<ñ¥™å>Á—ˮėª£¡/=f4;[É2^U„a½ªBõ´òª¶*´ëú×Kmî_­ÿê’ȃ¬U¡† ÔPû{ˆ™µÀó'L ë‘ŽNQ?¾¡8¾¾½ o$¦”}G]Êèï|`AðL¡- cç¨=iÉ6†EàŒàóc»ø&ŸàmÚ®A™SXÇ‚)VªT"UèPJZ5€ÍL¾]ï%¸Ñ‹¯Ôžãô_]W=ÃÝïFÇ wÚ0°Ú£:e%šÇéñ¹ªøïøïQV·÷Æç.‘ ËÜ|@pÂ$ZÉ÷?-8aD…n ñ¶IÃ5lËÉyÝqÍÜ£°“9Ø”äÿŒÀÎ…‚¶¡á\$'öì•l<;œã|h<;Oð ~‚ŒàJO5bîåÊ4 j$ Û€*TKëý››~»ÞM`#c©ÍQEF꿺Zì¾ê…ðh6p•ë`VeßÙ·KËùxн£®±ß=àNzÉìu'eï !xgès‰:ÞxÏ%9Ç}rËÈ­Æï*#h§¤š¢¥<¯ÙB{^uŠñÁ?,#¸šY‰ªGÕHº)V§’˜Fc}/Ám^|¥¶hóÔ§ÿj’£ˆUñø(«[Õ,¿+·/“i$ÿG`W—à]RO†o$ÿ€bÎ1š>¯¢eÙZ¥T$ÌkÙ±Š«•-Ǥµš?ÏÕtžjg·/gUû½8]ÁÀb×Bà¨à]r+éj;»°¸¯«(xWqž´§]%Ÿà%Á•´§jĈc`QdaÛT…j‰q`1ÖwØ®ÆXjóvU‘‘ú¯Òš”¼áälsŒ¨ŒYS¢Û¢®·R•ú•ú•ÒRGR¤ðmϽ{Ϫù]ú ûƒ¬ß}ð~Á øÝØÇ»>è“ûƒ2r«q»JÄܽªm)Ç«D¶ÐŽWbZŽ+újC›ÞN@ƒÐ¼N¶KgÁ B|¥¶hÔTÿÕ“|­â˜Y-€ôPcUÂoBÂo¶Ïù«œOêú7ào'œ~ÿ·>¹+#·¿¯DŒxæ“ÔÈÚï«SL¬óIŠåôß%7Ÿ«º‚]~|¥¶pùjjN]E•Ù!Ï/Êï ÊïÚæÛï=k¶sïÜ{–¼wÿ½ÀÝ‚/½/p{¼û‚Å5¹‰‡—[‰wW#Fã-›˜w?+’{W#\X÷®P3­Ü{]]hÓëilÔMjd»èàc,µ¹ƒWTyüW#' Te:2©K»”NXp*p¹à„ŠÔl.dÁ ÀÓ'Œ¨žÃ« =ý2Ê98(8¡¤r›#ò'’­ž'ø©•ah†: aýúÏÍþ¨ëª‡>`‡$\Ü-ø‚݇€_Ü#8a~%ðÁ #x¾–ÃgéÆ­ŠYZ¾±§ãÛKÇ¿;¥±Îþåj{›ÑÎ’çH(]> øuK2Z¸ø!à§_}QFè=x©øÏÔÐû$-Æå¢ÆTQÍVÀ ÄVÀ!e¹å_§JÊÒ‰«2S8@Û0îg]—¼7íKD‡wn®[><údñgòµÕ[Wx]œô:E½PÐFÇŒ ³t@·m}æà\.wPãážëðm!tP;sΟ/ øû•ÛÙŸGGµÑ‚1î^7·^MѱïÒÿÑ­” äýÍwqÎ¥†÷5¿«ÁWFR±ëæĤûdºØ\Þ=C$Þ3,®áÇ÷ Ï•|ÏŠÚ-õòDÚ³bösìY9÷;+kß©ÿÓ ïgVª{¶=†‡>ŠÜs`î«Jö÷áƒ-uÏ•øöÊYß^9|°ÁC³¿¯8æÉ}ƒÝl®Á«±÷Qï펉l’9VÞÌÌ¥KzUž3JX§ûGcØR–­Ì´Ã?Í£0制—1מl¶ÓÿÂEQK´P`×C‚w…Þ©¸áPÔ¢Ñâ^7_?4 ÐÅ[¯ði×j¢/ú£Í!ù¿ÆñÿÇÿec¸a4eµ1 ;™o<Žo±-ÇYhS§(3B›O¬ó…÷^WÈÔ*bj‹ë `âž.ô£ÌWÇÖ(P}ò!åÔ‚&sË>Mb˜7Þ8¯ãY‹ã¿z,Í/ÆjŸ¤ÅØ ýy¨fHo)Îù­‡kD!\ ¾TÙ(uaÏ–‹–…ë'‰Ž._ÿX?w4p9¸ÔZôdát`<«L7Gxº¹hËú‹¥´3<üÜd´Ó<\júlÖ”tÆÈÞŠãjs_è©`fxøeêëÄ[$ÑNà(¸ÔJ®ðZÚ |2ø“ÛW‡®Ž)ÓM¤íÏH$è‚»É('¬€W"+ç¤^¦'œ8R²W3ö猲+æ‘ÐÙðnð»¥%lËZ~ýà«À_¥dˆ2浇$ð«}‚¿ZFðèérÊÄPº–_™T¡ºVjUÇZþ¸ßKãNM¼¥6ÉUPgœþ«»hݶc¸”Þ1Ø«9–ðÓ†f˜î¤akìš®99½`ä5“?3ÝoÍ7¥øhySŸ°Jz }²ÿÁ~.Ÿ½,ÝUÚ óôPMWi‰è*]íâR¨+!áð%Ê<’ÜÑ$˱ÀÁOŒ?‚¸7>ü ‘õs?ÓxîŽ}ÌäÝJ~?næÄÚ«ºÝ„$õyðIàOR§O©ô6’EàêväjªÏë€ãàãQõ™¾Xè“k°v S+);6òù©rîL™Ÿ:.t­ÛEæ+¹IöݺSZ™yT y:Ò;ƒÎp\“¹;C›´¦)_Î*Mf|ÛžÔŠðÎye¥Ôj–j‡úzÅ×Ë`_šž4¸¦›õ¢Ua?icËß £d7å:šž³-Çi(=©3ÀžÐé׶î´eï«?¿^Ëò£÷•¬é­C/šûéQ«?@»[²÷éX%§‡=@¡ N˜f¿‹smãÆŠÉ¡á Ìýý½Ú.½ ³ê¤Q›R`ÿ\‹ÃkÂÐÆc&W{ÁEf=ïûSzI»ÄªL¦K£Ô«­g™wzµ3µ]®¹·Db¿9ÜS;›)mÜté…ò7ÎZ»¢ÎÏ™Î:†Áß*2VvkÁš–; ’ŒxB`ú‚¶»^§ßü€à„ Ôëô;÷ N­^§{~š*"Î6÷§¦6®í¾š@öO5§Z ‹†îð½nÖF~ /rلәɌèG‹•‚[ož8î—_(êj1ªÿ@µØ²á¹ØôÃÞgÌT«ÄкukÏÕ.cÅd&|¦¶S¯°&h¬âLòk«{BÇW¤ˆ Ì< xF*»6Z|u•0ì*ª‰¯º1m„®²WCÂnðhk£®€ÍënÿW1iVBF ØÞ§° 37ºO\\òY‚/$‡Ì„—ø8àÉà'ËJ<ç——ûÁûãwgTÜbàø@d³M÷ʘë p|(sÕ‡ÙÅðàÐj /î—Z¼‘¨¹ž¼ü"eæºx%ø•É˜ë0ð*ð«Úd®Þçš*6×%d®ûD[I£„%àÍà7òöj÷ïSf¯{€Á&c¯×o¿¥Möúà­à·*·×¥d¯y}ÂbÝÇ’%¼ø&ð7òûà À_ Ìbï¾üÍÉXìSoKd‹]Ð+3ÏH2¼øNðw*·Ú#Èjs¶>î²¾õ þ+ø¿òû!à'À?¡Ìbßü*øW“±Øw¿þµÈ{ ïWOX׺¾c\7¸Tß?ö:Ãý²ý¶¯ L(xJjø¹µÍï+éå2‹ƒ×„15ÁSÒÍ9¿|pDpÂl>õàù‚¶#®H]¼PpÂ8âàb.W±ó3ÃÃB^Ì NxˆÛë6à.Á Ù+ú°)CðT³!TÜzà¸à©È³!òQEjX<%w6n3›}Ù¬ËÇâ"käÆR·_(8á!n·3À§N¨Ènà‹'LÂn‹À NÑn÷ˆ÷ŠÍ§¾æÄ|»ŠÀqxšª*û5¦Ý¿™ŸñásZ{ ð‚F¨u¥²g4ÂK”^\,8a–ß=R4\Ÿmä‰×øWÝ%xZúЄ9¿üGüòá‚F´Â-bÍ›Ëɳç®8ö`¥¿3K+¥“ç! ³îÿf~‚‹éhåŠ]¶£W³JOOÎMZìßaàµPϵô‚'ŒàýwU—ý®ß¹,¨æå“D½ÀÕ‚§VÇ_᩸3kO­‰\….ìm¼&Ä3>ÐX=Nºº. =2ý†?›¤_ œœPò)¢¬>] öó ¿éúS~?ð邆{º#éõ§$ð>Á"­?U&FúÝí}zª2¹—°U­RZ­@mnöíz3× Æ[j“5¨ê Ôu7ï ¬ß™êáí®ÿ¸K½haÕÖ”^¨Ô¶¯[^$–ìÔßÁ<ˆ'{PYÕ“[ÀC²<ü©à„I4¨ßþLpˆJþPmŽ3ÉWñ0-•X7^ bBöiUœú 7´f)GѵÃÐ2¾G¡PÎö‰ÌV5Wk:šqc…/UsÊzŽ·ùËá+Ÿ)tÙ=ÑméçÓ¯œ°Ý¶”~ ð>Á °¥ôë€ï\r]œÿêß:\¦Þ’åÒ1¥—\ ¯™†™ÖL[c½a3é×v ææ}‡ŠTÔ͵þ§à„ŠTZÛÐE.ì¦qvÂLJðŒTß-¼fÿ Ŧ'Œ¨ÙMÖÝéXõê°º«;´JT4¾¾™Ì¹óôà&ÁåÖÚ{îüµb`ŽãU¬»jžÄÞ™«}‚_-#¸’Ø[ÊÏW&YØè[¡ZZEß²çÎÇýnãïKm+2RÿÕ¬–7XjVí9ƒÒqPUÚ[ í-ÒÒ:GÓó<ø"Á3¡SíºÚx¥$y_ì“ûÅ2r«ñ´JĈáÈae²…öµêãùÚt€éÈ9¬^Nÿ]GÇ­®`÷_©-Ü¿ššã¿:æm…Á÷y±r9RiêÂ,Qw™BrÖS÷õ–«½.cÊ(UûÓbf£HÇ#°¦£ä˜¬ó…䱎êOxN¹œž¦½­r½­Ìßv&8a½­Ì£ØnÁ;£ŸEz\™¶Xë_±*NŸ˜ ˜üê¥=tDÿŒ²[ Ë…Wtçbàu‚sT£hé‘’Î1à¸àã×pç(pBpŽÑ4¼mΨ›ÀÍدóUl¨±‘CpBŸ‡J2 |Ÿàå´ Il”O}øqÁ9Ê5dñ‡J~ø-Á9¶»†üøcÁ9&PC¾ ü‰à£Õ³Ñy¨u#Ãm:•ó§»¶ Î1‰(£óý(x»à£½çÐ9)TüŽzŸ¤Åx’¨6UT³m•Ü¡¨×¡üëðï”@IYTŠú?þÜ7x5<ñ(àïùß•üvýð£;ÿèúu÷µøZrÇ¿ A‹$žfÖÉAø©›ý|׸ÙÝ3Üçîºù`3Ñm+fßæ¿0Üèûþo¯ úöÊÙßö_X1÷gÝù¨_h}Ø—¤é+8 õQ˜¼´ÍÇsLjh#Wjå-žiε¶êˆf›]«>*•Ú§…»þ$xWèþ{ÃÒØJ%‘ÿ»&:ñð¢?Úiÿk2ÿ¯ÉüßÛd†êUV1:gØÅ[lÀvÊ U~jjlî±Î->ðhNM•vˆÑŽMÑ Æqxj[Þ£ æµSr€j¼Ž&hæñ±ìÞ$Æ…ãþ:þ—5>þ«¡ÇÝübüwí“´£ÐŸ‡íÞµþÉ0¾]ëùØq³d ­[v ,I¦Ï?[a ¦~ ,Izðä•{ÖÓ/.ö‚÷Æ?SBÅ-ö÷E6Z©“0I„~à0ø°r{å» ˜´0“ÖcJˆx p7ø¡½k=Izp¸ô^s~yðJðv­§âV¯ž×ØS¿hÛ,MY…)JGáûsÕ&ôB¯Ú&1¯>¥£ºyxÒmÓõ¢&TQMÛô–Úªíê²i¾ªzRŸ24'D9eÝ5õ¥ŽŒ››¯Öê­.á©]®-åòÍ Rþ_Š¡Oéf&_½…ÒõS­½ÕÙÓJA§“ }ó©ZÈ·µoˆð-àrûv7šë? ÒF´[è% ig 3ª A³ë$ß»€Ÿÿ¬´œÁ1§å:ÅøEð/F6ªEÚÍšÔaƒ$Æ—€ßÿFü‰Š{+ð›àߌþx*:è#)þ ø=ðïEjDëJ%{•ÑËO€?ÿy2zù>ð࿈¬—ð›'Qù¿þ üWJ52,£‘ß$üøp¹½QýW_'6b-­¶j’ŽC)7b{Áqd[µ¥áûwè.mô*NV+X¥ Ó­äÅiÔ Ñ?z´1Nq´¼TƼ鸔µÃ¾76£åq½RpµM•\ÁÌz §Ž‰õ̇åûµ­Fè èýüQ ßKö%ßS”efÞÖÞáæôHî{¯<zQ+Ý‘ôú2øu>Á_'#xôUÊÄhœÈ7šÍ‡^ì L¤Æ¥ 9ªÕG«…eÆÞ®—Òx¤/ÞR›$û©3KÿÕ-bE™È÷ü+s¡î´A+ ¦-/ߘw,X¿Ý6jçoòŒrÉ„rÿãü £®]–;/›dAÃÌwÿ]‡äîá¡æfÚ›8aDÍ^WK—Íšã´L»ÉN[|·80y¬ÚRf|;põjŽÉzç3üz ]ÿI`ú Á Û­ëô5ÀQÁ Ðuz'ðÉ‚§ŸY×Ïu°.¯¬¬ÎŒPvÅaÉâì\W¿ZÓ7b›³¹–èúû\/h¼RʹØp=¼y¤¯þZpÂùp¥üƒàá÷–nSÀ•þ£Oð?Ê®$àR#†Ò€KHa.…úˆ#àŠõ¥\1–Ú<àRd–þ«ã]\r·eÝfAíˆ$_m3‹'lƒ¿ì¤¬ I—™9 øxÁ ç…ËÌëüXÁ•¸L5b4t™‹F³Áÿ,#¸߯D Å{Ï*“+´÷W§”xöžûÍûÿøJmáÿÕ¨ÿj:tò‡_Ž¿@Ž¿D–#tòÇ °'Û¹.YGù:þ-¿.¹ùz.úŸ„hG?Fº"ßUk$Æq>Ä'¢ÖNZ«m„Yý_HñÆ <ÂÀOVdG kaAV@é'O—ÊìבÌK8ŇøD£ß ‡¼•öfΡ°¨>HbœËSUÇhpñDÕ;óß%Õ|Ä÷Z·ó»`u/~}í“`𲸠\þpïêus¦/d3p'øNå/$3š³ ß¼\j}n´al*þ*âQ cûÅ©#4Ù.7Œã÷L~›J=ØÆal*þΛaløTಎy3ŒMâ.÷‰}¨c+‘³-·²7*R«×8îx-/rÀ³Á©¸+væ¿Kªùˆï%4‰{çÁê^|òÃØTêéÀ6cSñYªÆ^¸l×å›®¹|Y€PãØ$Íp¸Ô€rãbƒÆ±©¸àjðÕíÑÉâ“ a®¶q›Š?χóf›^Ø1o†±IÜõ>±Õal%r¶-ªVò†CG;êôWTŸå)‰ªc4¸x¢êÇ‚ùï’j>â{ -‚Ûù]°ºŸü06•º¨n[ê%lö!>’bD=ùˆQc9Û— µo=øãbüÿIÒ-^ œŸTâã=›™ä5}r›2r×µ6Íì4p216KG³u:½H™x¡Ûuºñb•t€õ̪mzA E{•³]šk¼X)ÞR[´zjê‘ÿª”Ã7}ˆâV/`®’ Ý ,€¢¿ƒ°s•T|чøDs•ëÇ1õ’&½ä&/êÇÀOH,0¡RO¶q®’Š?Ňóf®’>¸¬cÞÌU’¸Ë}bG›k˜Ý·U7ª¢DζŒª({á"µzcT%^Ë‹<ª³Á©Uy¬Ø™ÿ.©æ#¾—Ð$Ì›ÿ«{ñË;’ž«¤RO¶q®’ŠÏúPý\åÅë¯\ Tà\%I3Lp®’Šë¶q®’Š_ãÃdç*©ÔµÀ6ÎURñçùpÞÌU’À#À ;æÍ\%‰»Þ'ö¡:W©DζEÕJÞpèhG^㊪ã³<%QuŒOTýX°3ÿ]RÍG|/¡Ep;¿ V÷â“Ÿ«¤R7Û8WIÅoöa{ç*—bRæúáq²7_¹¤úwüYÒ=^ ,ƒ—•¸Çxç,IÞ}rß(#wô9Keb4l@_³¬é>ô¼¥2C·'êôÓjÞ²AiÓKj(Þ£¬¨íÒ`ãùËxKmѪ©Sþ«RÀ>ÄGqK0I…Ú@ÜþÂÎ_RñâQ Ì_Ì’¡Ûš&?ið{ž~BbÁ •z"°ó—Tü)>œ7ó—$ð©Àeófþ’Ä]îûP¿T"g[FZ”½áP‹Z½Æ1Ò¯åEi‰ÙàÔ´T?¹uËöeBÎ_’4Àç/©¸`ç/©ø5>Lvþ’J] lãü%žçÍü% <¼°cÞÌ_’¸ë}bªó—Jäl[T­ä ‡ŽvÔé5®¨:>ËSUÇhpñDÕ;óß%Õ|Ä÷Z·ó»`u/>ùùK*u°ó—TüfF›¿ìÄÕMLùÕÀÅ;<þÖp>s˜æ3é*»ßõ¾°¢:©y|vHëÓ°ÐLÛ’Íkçiþµ˜'ι>Zpëî8wø~@vá&½§‹/¹Kç·¹õ³ ì6µaÓ+|’¿BFò9Ík*@Ä`¥…o"”HP9OhÅ[j†Ùzœ…6µÙ¸Gé¤egÐÕ¾ Ù/æ”Ñl°# =•·Ý‡6U»¥ÆávyáZ™ÿsx ÇU*z…ñQÌÞS¡¯¾üÕÑßAØÙ{*þ5>Ä'¢˜½·ùÖzA»±¢çé¹°*ïÕŽðð Õéû'Û8{O?tŠçÍì=}*pYǼ™½§‚—ûÄ>Tgï•È<ìã8£²7*HR«×8Æãµ¼ÈãŒ1œúqÆÇŠùï’j>â{ M†ûæÁê^|ò³÷ôýÓmœ½§ÊúPýìýÎõ»—8{O¿;Lpöž¾Ø\ÝѶÙ{ú¡5>Lvöž¾¿ØÆÙ{ú¡ó|8ofï©èà…óföž ^ïûP½W"gÛ¢j%o8t´£N¯qEÕñYž’¨:Fƒ‹'ª~,Ø™ÿ.©æ#¾—Ð"¸ß«{ñÉÏÞÓ÷7Û8{O?´Ù‡øHŠuõñi4ÿ‘ÅüÙõÃÚ€–ÒÎöýÅ›?7ιϻMÒ}^ |>øó•¸ÏxW'SÉwûä¾[Fîès«ÊÄhØÀœ1šmi¡§X•‰ºýQ§//ÎIXÔ£¨Rmzi Å•¬ØíÒpã¹ÐxKmѲª©ƒþ«RÊÝ>ÄGqË0J_¿øBðFaçCé‡^äC|"ŠùP§TçC•ÈÙ–‘eo8TD£V¯qŒÜÄky‘Gnb68õ#7;óß%Õ|Ä÷š„yó¿`u/>ùùP*õt`çC©ø¬Õχîºü’eB·’4ÀçC©¸àꎶ͇Rñk|˜ì|(•ºØÆùP*þ<ΛùPxxaǼ™%q×ûÄ>TçC•ÈÙ¶¨ZÉí¨Ók\Qu|–§$ªŽÑà≪ væ¿Kªùˆï%´nçwÁê^|òó¡Tê`çC©øÍ>ÄGRŒXV3÷ñ™°¡þUÞŽv¶6Xû×õ+-qxt_š½îù‰¾¯Õ}«¾$ÙµÐô–/~üÛJÄ'¢G‰Éùí–khî¤îj!¥š„ÝOVïçx(…£‹ç›G4 %·ŽPšÆŠô –/¿p^ÄŠ$ñzŸäjr‚Üá£xÏAþN™ ¡ü]¼¥ø;e…*ÕZ‹t$¨öÍ~1KG³Ñ⼸Mµqœ÷X6U‰8ïÿÛcÙ±ù¯¡™ŽfÜXÑ škiÌdø6i‘Ò¸Úb«¤†d#íÀ«Á¯Vy8ñ­ ¯ñ ~Œàjš%b4lJºF³CR͇‘B7êôÑÊ_{»^J°—Œ¯Ô&Ó.ê̲î15s\‹PO¯¿îÐêå-òš^ü»»¼Í¹CÒÅŽo¿mÞtîn÷I~»ŒäºN·zÉͪ¶)CWíøJm))4–ž:S‰Ô«{A³_Ì‘£¾~T»§·ËU;•ìÖýŸK{Lº4ÿÕ.M/嵶q'øíéË Êwï¿{¾ôåîñ ~Œàj%bõå¥Ú %"…n3Ôé£e_.ÈØÛõR‚½c|¥¶èË©1KÿÕ¯i–;iØÓ¦côk»' ­¬ÛzÑp Û¼‰ïH¬Yã»C›ÒmÓª8šãÚ•œ[± ‡ÆËÆtÇÈkì®ËÍÒ¤aÚw¸X'ÃѲÃ=ýÚ–’ãzž~hS%W0ó†^Òò¦ã꥜áô²oZŽýI/8–Vq !Qõ­hè/olFs ×5KZ–Dª”òV®R4J®‘ïÑt{‚sMÞë¤r‚*ªîôA(h… ‰²XœP‘®0¡âòÀ’à©Rd [Lé†Éu^5) 8#8¡"Õ¶¬¨ï7‹•â2ýÜ ¼KpÂ$ôsð‚FÔÏzmܲyÇë¨Õ¼1Ã6Œ’æN[ZÙ2K.«ÔN¥ltWɲ‹=½rcå©g¿ 8¡"­.fZ-Mê.{)½~øÁSR áõú/Àï NQ¯—Uõª9V¡â Ë®æ,ËΛ%æ²µ)#çZ6SòÖ!O½ôRþžÀôY‚§å–6Œ –Mäò2ºM÷‡'L@·é,p…à„uûÕªn'lCwûr¦+øô›½úâ]kWjF¡`–Ë̳6Ô´ò¼1æ_+° ÂüqŽ5ßÔfx§6^+P£\bAý•îµJ¦[ɼmgßÿÈš¬7rfQ/0drÐצ™Ÿ×Šf‰s¢äp9¯6—w‹3'™Q+ìc†æ”Ù÷ÇM#ß6•‰^çJ™NÁ #¾ÖÐU¦0Ï*âQŒ¢È¨Ú2®é¾(Hwms¿6©;,PbJÏÏ°7ȪpÎ*–YÝÎÏŠ£Êºã0í± _¤ïiökÌ* '±zMê ùÈ{ñ˜„Ep©ØD]¸D¢¸Àiðéø«6WîßYùçWYTV¦B¯š²3iU y%ëT·Š•‚îEèôOmÎÿøÿS¦ÍÇÛ¬Ö[EmD»EcNèfÕÖQïG€_ÿj2êýgà×À¿Y½‹˜d‘°Tµû:ðAp¹ÒFŠJ›y­<üø’ÑÊw€?ÿqd­L²JG ]NtyYµäRÃd{MZβY´l•òÔû´­é ©Š%ÞN²ž°hUg;ëjû¦M™º¬³ý‰ÀÔe‚¶ÙÙ¦v¯œ0½§¶¯œ0rß´êlÃ6ý$ÈÕ@]p¤#}B¯UTt‹d—Úb °¼;’Å6²Ü#òºÛ_ÔMÛZ'!¢ìïUhÁ³´O\\òYr/dq¸Îd—ø8àÉà'ËJ<ç——ûÀûâ¯ÍTÜb`?xd«ÝÂ{,6öëÅ2ëYAÓ+ïÓKzaÆa¡÷æ:óÌÌÓ³Ž ÷ëáõ«#›¡}=Æp\*æ |á¸B_p˜ðëKZHqJð0ðÔ5^KXHY*±>¬dTY„§€Ÿ¿åSqÝÀSÁO¬£rµ/Pí²îu…ÆæY/OÏç5DâÆø¸‘s¯ïWdBf7ôg§ÚS¶¼IcBµ¡ _¥LA>üyÊLápQsG–]¼i{èq!éÅÀׂ¿6;x>ðuோl‡÷k—°ÎE¯L¬I’¼øNðw*ÓQ¯¬2Êy?ð~ðû“Qλ€ÿ`d圣17U¤Y3¯bŠþÁ ïÙ³:Æ*°kR»U«lY£¢¿WF•>þˆ2UžâëÕ3IiójÃQñÿL/8a:þŠ=Apˆ:>¦‡tÖ{ÔðÚKì<%“5¡=§`• GB´ÕÀ ‚*ÒÕÂQ犊åh+ÕÜ(8aDmÊ»ý¬yÕ±Ö"fI‰ºŒâ.Ž N¨HqGAqf‰U²œQÛ‰ ©öoœ0Ýå€'Œ¨»'j•ó×Zõwµ¢5Å4:n³·%צn¾QpÂv7„©û€ïœ0'™zðŸ'Œ¦ºÔÞöˆ|ÞÖ•rF_Îò¨7|†qíY¡«¨®fÉ›ÝàÆtÇ©EE£Ññ ƒ]`]¼J©Ú±ËkÙ±Š«•-ÇtÍ)CËãfÉt”دíªä¨{8«Èê°ûfYW $Äìþ%u=ÙoRM‚–cô‰–Àa‚ž¦3i–«S°:w9¶î²yBßwÌ› ï50 O¢ÖÒæ,yÌ: \“hN/ I·õ™£'TdïO¨uo+¼ ™€+ÏHÍ¥Jx°ÌRàJÁ #z°LOè`pà¹ÍWýWC4XBÏUl÷ c2Æ7èx$ :Zc¶i”†WHȨûÀUŽ´©u$Iªu¤_\ ì—þ ךQq‹à‘Íö²G1êXkô&mBhw@2¼ \*¤‹ænD•óP©;Ø>€³!¡wPw—ÂFp6ìœðXðcã·yvNxøq‘u³¶–m[pÌY%Wç‘c0žW‘ž@RܾC™&£!“TWóàùdTz9Ð7"«ôf—,ÚÆi,:_ßP‘¦#49mÙû¸c˹…I;9Û£ð“Eâc¬ÿÕ«ÑÏ™,z®†õ”ªd• J#¥~wÞ(±p+OiÝf1|ü!é7e…뢄 ½XÔ¯x‚¦ uHüþû°Aw$½P‡~Ø'øÃ2‚óO¤…:ÊÄh<«0šõ”z½Ž2É—°^G­ZZ.jlaúíz7—íÄ[j“e;êŒÔu9" ïêŸÁö9X9§ ASœ° Nµs´¼R0Jî¤6ìŸCwæjc÷Þ’™qÓÆzôoªÍf¯Fã2FŽ& 3¡‡cè ¬Þ/8aÒÃ1üŒ‡j†c–ˆá˜«'±l,¤P.!\¾D]‘“!aŽ>ü ñ×7ž~RdùV@c(ÆQ³F„Ä<¸ \îØ’†QÁ-Úv³~‰³¸ |W2ÊÛ Ü ¾;²òά-ߢµ=¤ª¬U¦ ^/È/m'¯Þ.7>ÜpÆ2*{ªñIBe€·ßYe;ý­>+åg_Éš.ÕõÍ0§í5Bu3ÌZÖì7§yÑóÜüø7”©÷èÚ_0˜5óŒm´ì À½©¾¿ü øo’Ñ÷7¿ÿmd}Ë®Ü")þøð?(ÓR†éEF-þüïɨåÀ€ÿ#²ZvPî‡XÇ>»²yËu×[AéeMðU<ÁB/RØX¨TÓ,Âk—BŽÛkmW¦]‰uy$|>_(ue‡äB©ÐÊMí^-x*úN£ùZJŒmä ÊÙ™¥µ†þ”jªI3±uúΛì¢MÍ(ÿªAã×?$8a{5þIà§'LBã> 8aD—çjÚâõ˜æ¼Š.&›jk,ÍRÍTâMðûÑ’ìŠLzÚO ¤Mˆ§åR”…Téskè}P~zð<ÁÓÑ@¾Ä·ö}7W%­±°­i¬³EA©éà‚¶U©Ïª¡÷IB©O>[pˆJ½°Ö}áû~ÐFPsÛþšêe_WJæ#²N?øEÁ ÛêŸÓ_~Cð´T˜^›_~SpˆÚ<¦êŸû£Œ¥ÿ øKÁ Û>”þ/àOK…éáµô+à'Œ¨¥¡cAÕÕEr"Ž ¥ÿ$0s–àu;ӽΜ¹°Ê›‚Â¦è• ž’[yÚpS ÑÉãÝšÀM)k;Ét>ðRÁ ã®íTÜZàe‚KnÎè¿Ú×hƒn âåp-›B¢nî<%·e­šn’ã)5ô>Ihnx«à„Ñ4—^¤¹ºÚÛ`îãpž‚·’÷ÍgÕ­$õæEü±ÕÜõU"W’¹3ÇO☴¦µ"y%ïÖI:áƒËd2_F»'¸L”±ŠËgÞ­Õ¦Ö¼'˜éç˳·ëûô }Z›z3wcñÓ>††{¸S£dZž‰m˜ÀëÉdÅ‘UÉ=©÷Fê—ÊÒÓÏÐcåM‡¹jƒöu°r¦xaôëŽ1Å÷upØMLÖR%W0,×̳÷lfXÙåIáwm¿ÜééÕha´>Á7g5n¬˜sÌ6+E-»õ¢¸PzVº™;já€i=oƒ6 ç_ÓcígfïÏÝ릞*0ózÁ Õ×ÃàuKe‰z›yð=‚&Po3o¾Wpˆ÷, ªùšhíå–!“ï>(xFÝŽÍR¾6óP ½O:ûðG‚FÔÙ• ¦ú·^Ô,ᎫÑ,å •|o ÐÒ#ýX`çÁ;Û°Ç´0*¶{ùý~È@ÃòûNN/a­Ÿ„Y <¶#±å÷TÜb ºå÷ÃõÓ{¶U@ï ¾DÞxœä=¸|KÉq¹ñIB}—¯¿"²úžPS ¡q{Î÷kWKLÊ‘`;ð‚ºn™¨k#Ëhbq™ŒÎàSÀ"ðVð[#묋Hhç©À§?M™vA;ƒ2Šy6ðà/HF1O¾ü…‘#3ÇF¼x/ø½Êôr8ô²yýÖ]›dtójàÛÀß–Œn^ |;øÛ#ëæ$Öý*YÜÁQ€†î±¼§»øYðÏ*×Ù2AJ9º/¿ þídtö9àƒàrŒºâdÝw€?ÿrGzj†Äùð·à $Pq?þx{’ H‚ÿþü÷Êô²zÙ½óJ)?÷g©Œà„I¨æaÛ)8aDÕ,ì‘Úq„è.œ0‚viiaΚήj&z©S'T¦ Ú~…sŠ=xªà„ ØEêp &xJ‹lwÐ$LN)U6Jtœ±Ç®¢×æ_ÜP7—žå{ÛbSÙmÚà7Öo—K÷ñ­o'ÌŸøê‘ngS§ß 8¡ê{ÎA™†6õvà? N˜„q¼øÁ ÛÔÐÒ–?"8¡â†vXF1ÿEpÂ$óQàOÉ¥úû¯Ƽ¹Ø#BB9_~Sð”\Æ}LþüGÀ_N˜„?ÿ.ð—‚&aÿü•à„-ãÒªÇÝbªò„zCÏM6†® ôH%_ÓsüZ _vöëÙegt5Êæ\'gwj}Ú(k²;{z´-;äûwÀc5ݵ‹žiðI‚†{6º#é]»Hàë|‚_'#8ÿDÚµK™ ÝÍi£Ù¦½—2q—°—Z]µÚÎKª’´ë…5Þç+ÞR›ìó¥ÎœýW?©eùÞµ"øöV×yjæ½o2lK$'´ÊÙ¨M=:µt‰‚éjêmË¢Ító¾ã ‘¡a›Žw<„—ñQ]Ú¬çÜŠ^(Ìh|Nò&ƒNlßl–èO¡s|ï1s’à¹]†ZòSR|f9p@p¢‚ÌÉÀAÁ ÛÈg†€«—[©Ö4_!£˜ó€'LB1« NQ1ïѬ«L¬¢ÒÛpd#¯Ì&ൂ¶!òZìkS$ã¬Ì“€EÁ3ÅygeJ>ÁK2‚+‰³ÔˆÑx3úQÌ U©.lT¥P3­¢ªGQÚõzc¨KmC)2UÿÕ«´ìô¤Éú·³‚¨Y±Òìc¼èH6‹ïôب`MŽ+â¥ð«üÏö)<›Ôv7Ѳ®f`¨*ͺ’8é&È@÷ÁëVÅÖ‡‡ƒæ㚉¨çÇÁë$éqÀ“;TD¿¸ØבØÁëTÜb`‡ªƒ×¥V‘Àà+”ìb2Ø‚YZ)!àà.p•ŒÆc®7ƒoVf®çwƒïNÆ\WvÔ6/])0¢¹náIÁXŒÀGm}yÀ^7!p º2,|Â0=ÆUÀW¿*ù¦ë€¨'UTÓt]„aöÒøbê‹­OøtH4(bضe;’Û¡ÞŒG!¼\>Y3JOÍÛp1\ÿŒäÞ ¼üºùÐ?#G}‚ʽ¦LŒÆçöŽf¯ Ý+S&R¨^™Z}´ê•{»^Jã¾X¼¥6é‹©3KÿÕ­H9ªeúžY '+N67ÉÓR®‰VÖmÖ´U zè±Kÿ½üÍÊ*Ú¢¢nOИ·„Tïþ3¸ºä&§So~)#¸_©DŒÀãI™b¥<¥©B{Ju*iå)›™|»ÞK°ŸŒ¯Ô~Rqú¯ÊùIOr˜mñ“­oé+÷o<úèºvùÊ>ÁÈ®ÆW*#°'åJùK%’…ö—êÔÒº'ÞÜôÛõn‚}f|¥¶ð™jŒÔõ0Úô2?>'×/Îíçö6…˜ÁÇ·t›wŸ/8áüp›wû¿[Fp5nS‰!&S¬”ËT"Uh—©N%­CÌ`“o×{ v—ñ•ÚÂ]ª1NÿÕ㸭mRŸ2´1Ã(iÖd䵬aòdŽ _³RÔ÷›ÅJQ+˜ûŒ‚9iYyšl² ‡ÖŸS‚gƒ0÷dZ%ÌXz“Qt·˜èk6Ó…½“sVILh’Ly£ÄÓIÇB€â{ƒé­‚¶Áç¶Iº÷ô6àU‚§¯š'î=}µOð«eWâÞÕˆ”"²MÆ·«)¬oW¨–)"AÆÞ®—èØc,µ¹cWd–þ«§õˆÝ¢EâGÎ2ÆÇÍœéŸëP‰§!æt[¼g×è˜áê²t?ði‚§CoÉ×.útŸàO—\U"Fã©Y€Lš•ò¢JÄ íEÕ餕mjôíz1Áž4¾R[xR5æé¿zbwÖQɾʬ&õË÷jÈ÷jiù2¸:Â…X>\u£ÓF´ì5g]}ÍY=×è:¨1>ƒ‹ÇT/ö\Ÿíê×$]îk€_œPË]À\n¼÷ë>¹¿.#·«DŒ†÷„ÑlC#òÀJÄ íÕéÈóÀé+ ¨/mzQ E SkÛ¥Êà6#¾R[´j*˜ÿªìY’~i„4ò»ºFm!º¯fæ´Ûzý_ȶdƒïÿ[pÂyÑüÙ'÷ŸeäVÓ(£acpäh¶¦o©@‰l¡[uŠiÕøëC›ÞN3¹šÔÊvi-ØÙÇWj g¯¦ù¯j´É nOæĤ‹ÁklÀ*·œÂ“2s¼à„Šªyêê ·´-Éqj ½"u.ÿ¥âNj‚g´ÈÊÚZ=~GªÓY_ºYªûTq »/oŒó)¡RGœY¯àð›WГœ,ž)D~¢Ð+€ «¨¢šÀM kè· p xF™a-u*cŽÁw`nPøÅ$ ï¬}’VßåC|’ã)xý¶Í&nEá·Fµ‰¦-ù™›Íý4§y•w$âFßÿÕeq²\.µ­—ù®¨:%1ÖúŸ¤Më©Ð¢‡jLë(±áÀz8óÐG‰ßIn«ÞÏQQ#»€¯ÅÛÒ’0ÇO?)þ––Š[ <üäÈ Ÿ½JåŸ<\*Ðh¨“NW¯HiäL`xO2Ñ€Ob›4r6°¼W™F2ÁyåM²¸ \ÊdžWHp5øê6)d p-¸œOoè¶xâªT%¹x¸Ôžáu²¸ |Sd,è•ÙÏŠdØ ¼ \î8ð†%8;®©Rvwƒ'°i·x%xäM›R;¼T0ï•qs¿‹êÑÖþ½š|Ûð 'Ì)£$òÝ(7‚uÚņþã•Ζ.9¦kNÑ¡ØÕí ²FÿD/¿^.X®ëíÞlTò€/ÿ­`MôùrßtÚg£zŒ5^¿ëFs‰ùÉÕÕ_²éªæ²’œ^ʹ#aLv'OËÓµ¼á˜6öÙ ‘ηˆ8® ¯»zèŽ+)ó*t qÉcaüWCG’·‹ªQE5‘ä±"’Ülù(ëî€<„Ç‚«Ì,Çþ.#Ì,7+Žî6óC½šG‡ƒ†þIz2ðð âwTÜqÀ Á/Œ¬D™óÑH‚õÀ‹Àåön¤²c«*«jk€©IFK—o¿!-mêàzd--ìiŠN‚O¶»¯FÂX@ÜMF1&°^‰¬˜³´bÅq©eíTÁ(M¸“Ú°–­?b5»Š›¾üÒÂFÉìövGÙ3ð M'.é^ |ø»Â>Ý‘tâ ünŸàï–<úÌ¥21‚f.kê =s©L¶Æ¥Ì\ªUL«ìÁÖæß®·Óx†0ÞR›Ìª3Ôºz!Ó¥ô‹ò>ð÷µÙyµ’-çûŸ}xs»œçç|‚NFp5ÎS‰-gøõÜÊd í<Õ)æÑ;Ï óo×Û vžñ•ÚÂyª1TÿÕb÷ž:ùðQŽBÅð†ƒt‡©¦„“uÅbEÖ³XøÚ`—Ë~m—!Fpê†bª7HF¸xäÔJÁ ÕÍôöõÝ’Ô¹Àó'L [’Zœ0¢ê7jEC/9µÓ’kªš6 ²€ZFþØ ¿¥:↑»ð M¼UpBUÎVô5GrÙÁÞíëe†lRw_(8aÊ}*ðE‚FTîbmÚªò|(WBI/¾FpÂyÙ¯L½ø^Á çEh”zŸOð÷É®$4R#F<ýJ5²… *&Ö~e¬o'04Š±Ôæ¡‘"Cõ_}E,ƒ<<òÚA-BEþ ûÌ<íe¦> ü¶à„óÕ>èüAÁÕ¸R%bÄÓËT#[hWªN1±ö2c};Á®4¾R[¸R5†ê¿š ŸÎíä»仑 =+þ4•‡jfÅ—ÔçWj!…z:!\¾D™7‘Jå#QŽž~Bü§§ãFÂÁOŒ¬ž'Pî Î7.S:õˆifUb¹ öà*pu‡Q/Óà2Ê:¸|}2ÊZ ܾ!²²Ž­®9¡­¬hs-‡Ål2zÚ¼\ÝfñKnÑÌRÉ°µ›éüÖQØ`¼˜ŒÂ®–ÀK‘v*¥X+½_ÛR£O9ÝyA’5Ì>ü9íw†/¾ü%ɨë¹À{Áאַյú%2úòLSn5¥Á®f6 iÙñðéB$óK_ÿ²:-.Û¸k™Œ¿ üø·’ÑâW€ß…O†¦ò~ü; 5²å")üøSðŸ&£‘ïþ³6iäçÀ_€ÿB¡FÖï”ÒÈþûd4òKàÃà·I#ÿþeéZ¶QR%Hýâ„I¨ä(6%x*zG©ÀS²i)±wžmYwM½plp¿»zò­áµIºXB^ªÇD[U)™7V lÏ*y0=iX<%”5V>%”Ÿrû'L@ù©pFpÂȽd>Í ü¸à„Ihåÿ?!8aD­œØÓ¯­§€À°ÍÒžLÙ¾Ô'ß<¥°Ÿ$9þB?)õSÁSÉô“Rè'¥~&x*z?iGmü/o¡D5ùJþsSÒhþ–/qõÒ¦qfAJ½èt¥W žV7€+‘ƒF‚`ð6="xZ*,´rÓ«ç NQ¹…ÈAë×v™E³ Û…>V¨ËÏž¤/Þ&8¡"Ê,»'Iž¥Ÿ%8a*½ølÁ #ª´/æaÂôs€÷ N¨,X‘ éÓ~JpÂ$”÷Aà‚¶#|LøÁ ÛÝËJ øUÁ “PÉg_\Án§r*ù:ð‚*«$r±#ß›”ðû‚&¡ ᧠8a[4òCàC‚¶;œOÿøÁ “P bÓôo'Œ¨’¹qB´EÚü™' ž‘ß?(Ò9 —f/íêê!4Íé#ñÏž+8a¸Ç ;’Îé#Ïó ~žŒàü)§O™Aç€zÊ Ñ§L²Æ¥dô©UK«Œ¾V¦ß®wÓ8Ÿ/ÞR›äó©3Òº«²Á{U–õE*íHéHcæàe‚g¤v– Ýf6· NQ+‡õHnŒObl^)xF~[©Hg÷]*Û’]Ü#8áühÉnð ~ƒŒàjZ2%bÝw©T¦D¤ÐM˜:}´j½]/%¸íŠ¯Ôm—³ô_íÕÄ!§1¥T%~$–ÈS›¹øbÁ “hâž |‰à©ȺW°­šЯ­§å{5}Ö,NÐü€¯'(?¹øÁ iWn* ókàoÏ$Ó…Ïüø[Á3Ñ»ðëçNÔºî &궔90ŽÄG7¾³_pBEê\,FF$‡”;W/œcüzí^(8Çhz•Úž‡DXÜ$x§Üî³ ©=i Êhe+ðrÁ9& •ÍÀ+çM+Yqbx“ãÁ¥[ÀÎÀÁ9¶¹ì¼x‡àPòÏ:Ÿ&8ÇhŠÓjIqžSÌ›ú„E‡½KzÁΧß(x§\ú]Ò÷[0êê•ë‡äoÕì|ð}‚sœÀÎ÷û¿ŒàJ:€jÄhXk»G³Bµ2½@5r…í*TJ«^`s³o×› ì ÆXjó® "õ_=AÓ ¶÷œ¨,#Tã/A¼/)«?ÕPRn€³óÀï Þ™ÌÄkç—?œc4}ì-¼‹.Ž3<ëºç )ýøWÁ9ªÑ™dPWØ%8aºúŠ] 8ÇhºZ©9“|* ˆ³LÚ‚¿P)–ú¦MÇÐ,›”æ;@jÑn×Bà9‚¶;ØìBÏ¥k“à]R=—ÐJì:¸YpˆJð›,¶·*¶V0¦˜—UQ(qÚS´„þ.V'”:꼇²:»çÀpõ<Þ…üÃR{Ñ#MŸ'8¡‚ˆ4ÞÃxIÞçûä~¾ŒÜJR5b4¬ÙG°€ÔÓµLLªF´°1©B½x1i:Àr|U¡M/§¡X-*d»4+ÇXjóXYQÝñ_•Jz«Êq7主ÝÞ}Å,ï¾BÚ»ß|»à„ó»ßç“û>¹Õxw%b4÷î+$½»ÑB{wuzy”Þ}…”wW+¦ÿ®²] öîñ•Ú»«©;þ«rÞÝ“ããíöî+gy÷•ÒÞýÀÏ Þ¥æH…ø½ûç|rNFn5Þ]‰ͽûJIï®D´ÐÞ]^¥w_)åÝÕŠé¿«E…l—Æ‚½{|¥¶ðîjêŽÿªœw÷äø<äø|»½ûŠáY±û°¬wÿðÇ‚Î ïþŸÜ?‘‘[wW"F‹Ø}Xλ+-´wW§—G»ËxwµbúïjQ!Û¥±`ï_©-¼»šºã¿*çÝ=9~ 9¤ö‡P»Ïòî+¥½ûÏ€ÿ¼ëóûxr/·ï®FŒ±»œwW#ZXï®P/6v—ñîŠÅôßÕ¢B¶KcÞ=ÆR›{wEuÇUÊ»{r,H ¾@~'FUÞ}Å,ï¾BÒ»/HŸ 8á¼ðî'ùä>IFn5Þ]‰-¼û 9ï®D´ÐÞ]^­w_!ãÝÕŠé¿«E…l—Æ‚½{|¥¶ðîjêŽÿªÄÁ(~AN §D$ôÁ(w Kª¢šƒQž Fñmôåíòåh!¼ B>\³[0¡‹zPD˜FÂ,ž~–2ó Ì£âNfÁ³‘•%µ²‡Dèö÷)SK¦I›Ós 9•˜Sêé¢OA˺ŠL_‡µd¹B…o Q¬*°—ÖŸXЯ ýê…‚økžñq3gr7o:Ô\ç+9—9u¾_±Ÿ~ûN˜%Ö@挲«eéŸã¦í¸þè¡Ý‹M~œ–„ý öç…õk[Ƶ’åû ;{E‹ÃWbøEÇÍ€zÑ}ßö½‡ªœýÚú+µ¤»æ”Aý/ÚS1Ç^MQ/UدÍ`ÙÕ ž4oæj»¥Ô•D›o“,S¦.|>ú.iPpBUý„1× Â$Ï>Op¸C*îNàó'ŒX7ÓZ6¼BRwï<%J5<3\½j4¢½øfÁ • 9WT,7H7/¾Epˆº9±§Ö-ÈšýFoµ2I¼˜·?)8¡¤|Q÷÷ºÆ~÷À%÷ 8çàè¹Ú()|ϽÚ(sIü¢ë`µòàAmD xΦ“ôŸþYpÂpKw$½ üŸà‘<úì€21VðaÚ Œ „žBP&ãR¦Ô*¯ÕfjªQ»Þ`ã!ýxKm2¤¯ÎàýWInÂé“&<-üFñÕ'•¤_N§§ N8/ürú ŸàgÈ®Ä/«£¡_>…ùå@uËø`5²†õÁ Õʇ¯íz[þ6ÆR›û[E†ì¿:B½c¾å¿Áûì³;¡c|‚=ý ãteu±›ÑH.»¢weP½kÖ9MOoœ0Îiz h NqĦ³WÌ`‘VÝIÓÎó‰FÚ|‚i¬N¿ã¶Uô hÐÜ×ìÞoÊÒyQ¥G?¢bº¾ÝCE·´ÑHNÝW{è<{fhzžÌÃ$ÞàŠÿKbÏY§6¶â ©ètD}CbsuÒ€#03%8a{ÇK2Oœ0“ÌLoœ0¢—9Š”+Æúrºc„NÊ#iž |¾à„ÔÓ0Ê™°²„d¯¾FpBej*˜¥}žøZÁ “°Œbe^'8aD똬îÅHŸ‘»p ÝÎMŠ}êÇ`µ’^4°ÍmQwÙM¼ñâ_Ì'Öå:Ìà >Ð,ӧȼ^`g·àÝméSd®Ø³M²óйx¬àçCç¡ó8ŸàÇÉ®¤ó FŒ†þfáh–éU¦— F¨°½…iÕKhbðíz-ÝKmÞPdšþ«öq·)ÆBÁšv4Ý™)–]Ë5s|K×r“fŸsc…¢Å¼Ižw¬‚]Æ¥zÕ§¸ OqU[\l*(—ª¥ƒ½xƒàç…ƒÕ}‚ë2‚«q°JÄ:;¥(å^•ˆÚ½ªÓG+÷hìíz)ÁÎ5¾R[8W5fé¿z¢–7XCÌø3’gÝשּׁÛôä» òÝ4ÏÜæà‚‡ßS¾]nói>ÁŸ&#¸·©D µnS‰H¡Ý¦:}Äâ6ã|)Án3¾R[¸M5fé¿z§8rÊ ¬9U?V-F©±›µ¸±PÐ&gÊû‡c:”N†³q\Û;ªÊKSkðS4v`°0·@ƒáWù^F×bÁ9F{¡³Ÿ{ö°mI¦ÏGᄉ'Sjf' ocâ1ßåÃ6%ß×ïaÛlâ~OT›hšx|ìFÝ5&,›z°òIÇ÷à>Â3ÀÏnj‹ªC#ëC|’6¥@kª1¥ËDÒ±_oÕ\ãê¦êŸý›;g%f³$3g_ˆ‡ ¼ \êLÛÆS L¶ à œ "Qv¯—:`6 È ì§â¶¯—›ñ®~®– u9zÑЦõ1¨¯—˶UfvÂŒ–ÍWŠÅ™DÌ3}×ì¡©Ì’¡{ ëýÚ̬«Å‚ƒ¼˜ä?M¿ÌSÙ½mf`ÇÐtX–*±`Âà_æÝ5I»ºZ`êÁ #ØUÃeãzŽÕ‘ð²¥Î N¨ÌÀ&±¨¸3€C‚&`שSÂF´ëÛµñJ‰‡/ê×¢“1{ÍM,Kç¦ #óU¹IÝfú2ü>YïlÛ£‘Vü asViÊ°]1Y&Tî„P鬾_p¤› ;®bÛ¢‘£pÂÄ#TjÇ;Qx#T*¾Ë‡mŠP_‚×ïaÛlâ^~oT›h¡žBKâ>í²Ñ*›¬Ã›3´-”oú©a#Õ{qa¸Ô&\Ö‹¢ê’Äô!>I›ÔK¡=Õ,ˈHuÃŒ–7ÆõJÁíåÃ|ˆ—ÖwM™yB^E–%¥7:o¹j¦g=¼%Ó)IÂ*ñ|'öeÝÎk%ÖR°RüÓqÞ)ÍsW·9þŸšÌË:†!V\÷ôkëÉ45½¶´Í—|e„^Vó2¼ü—Ñë<%_¥fW¥Eô#ËÜea£ì— ›â¸Tp¸£*®x´à„kG±—¬ŒY@n’g\µ6J2ÃFF7Ûæܾȓ¾ô¨>EpBÉGŽ”W³¯¯ |Óù ’üVà³O…>©žîHzþ‚~¶OðgË}þB™Ay5L¯¡g0” Õ¸Ô€ µi™Wlðíz-ç0â-µÉ†:Óô_ÝÖ`ê7°…æ9ÔÇà­îf5þÖ{¤oᑾÕ+7[Lrø#Á 燷ý±OðË®ÆÛ*CÝl±2‘BûZuúP>[÷K ö´ñ•ÚÂÓª1Ë:s”ÙVÏ/ÊÏ!ÊÏç]Dú àÂÎùˆOðGdWã#•ˆ¡:"U"Th/©N#1E¤q¾–`?_©-ü¤Óô_U—Œè“/}„à„í/÷IºÎô‘Àã'œ®3}¼OðãeWâ:Õˆ^î“qœjD ë8ê£exdìíz)n3ÆR›»MEf鿺©>ѵ\½àKIdÝw“æ}ç®ÖKza†ÒåÂÓ꣌âQFÛãa˲öÉÀqÁ 燇ð >!#¸«DŒ +šª)´‡U§–6ÈØÛõR‚=l|¥¶ð°jÌÒõÉ k£}DëößômNámZ¶ ‡6 í׶W3o"8€Oá?¥¬æE™«LøUÁ ©¼Ù\eúà×'Œ¨ðcHW¬M­%ê¡« ‰¾ü™à„Šô´Xèi_iR—RÕoœ0 Uýøß‚FTU'E3ªù3ð¯‚FPMû¨÷WJfxá2‡—N¨L;™T\x”à„IÅßPìRÁ3R)u¯þŠ^ª°%KÓó{+ŽËS{±åO5AÅ°mË®îtìEÉù9Cõ|ø-þéqŽŽ Nñ±B'½\˜eÕä¬D‚ílR4ÜI+ÏwEÉé…\¥ Wû!Yê•Í%È÷4Ù™uŒ‚–EnHý6M!ŸøxJÂxA™×=2?îŒ,câñl•ÐŽ—„r€·‚ߣâŠÀ§‚?5²¼±‡jÇ“Å1ŽY,LV…r¼/YÔg´m›…]Ž1Gl–Æ ¼Šíž)ÚQ5›÷Ms}D¾Má—¥•tö•ižõ3eØú„¡:Œ^ÑmSg N¨È|Žà惃ad¬'Õ\'8aÖ“: xŽà„­Góª{}9Ó8mµþp0’î\à“'lwTLâèÀIÁS“Éèì: )xÊŒ¬³kzæ¤ðÑš•¹žšƒêN}´œU+ë6S1kì¹Ý¦Ð[¯ÑSí~BpÂ6Œ=eÆöì ¾éèIþIà—'<ôGŸHà/ûÿ²ŒàÑGŸ”‰45ÊôzüI™P¡ÆŸÔj¤åÔh°Á·ëµ4Š·Ô&#PêLÓõŒ^å æ°˜šÅPc3ZnÒÈí£p{zR,ŒP™Qß?º_Þ> ü»à©¿Ï?úŸàÿ\U"FÝ/éG•ÚªÓHK?lðíz-Á~4¾R[øQ5¦é¿:ÐÛpaS¡R,y#A">e]ÛܯÉWëtŸài©enÑgE¯‘ô§é~àÁÓ¡°m“?M¯õ ¾VFp%þTA³¢×ÈxS5"…õ¦ õÑrV4ÈØÛõR}iŒ¥6÷¥ŠÌÒõ•½|¼ecŠ÷ìý¾•6ð÷þÅÑëü¹úÝöù!‰N…†„fÝ…Ý4Æ­J)ï; ±ÁÀÅÈ4ê'5n\}EßÀ+úF{bá‚\º5IþMà'œ¾û!ŸàÉ®Æw+#(.H¤[+*´÷V§‘–±p°Á·ëµûïøJmá¿Õ˜¦ÿªì¹f~i~i~Ñž 7ÈÕ´t”¿þ^ðtèav9ʇ}‚?,#¸G©DŒ  · å&•ˆÚMªÓGË 7Ð\ÚôR‚d|¥¶p’jÌÒu‹H®ÆAàµä¿JɼÑÛ±I$¦3+nÅQ¿üȘÐ9J¾ÇÉœ+8¡¢Z¶èmH»Y3óA•¿É„ffp‹à„ŠÔÛlB3sðRÁ #*÷‰ §÷¶V­L™¹ è žq•i/-§·À›'LBoàAÁ #êíñÕÍép,ˆdËܼGpBE*Zr ëÜ–˜Aݬ±ÆðeôõRà›Ϩ;½©¾^|‹à™èçŸÇ[ÏÞ üšà„ªbiÕ}ø=Á “PÝ×ßœ0¢êÖV«Z )YbŒ¦å„" Î "áì v,w'É.œã|èVt.÷ ¾\Fp%Ý 5b¨\î®L¨° …‰a¹{ܯ%°kc©Í»ŠLÓw5u+åÏòã%u'`@[pìßi3? M4¥E³d+E¯él0Þè( ³4e¦f§;G’jêvC©vSg‡o‹­ãLÌÙÙß „q&­JŽÒuYóÐ =xÌpißaJµ­‚÷Tsr…ƒS…ù¯ä –C§mXšxzz‘+ŒLc±$å™ÊûÉ®× ÎQƒê¤¡¸ðu½øÁ •Eµ¥"Kþ1KÜî‘¢éäúl#çH­ë=‚Ê =ç—_¼_pˆP&ü.Ö$Àœ0¢ ¡W¼R˜YÕ¬þ8N¬þð6°÷2¶ÃÖ¦WA ÂãÀÕmÑÉÙe`ÜN’œÔÀµøãv*îxàià§EÖÒýbæ•õ¶ ÛÌiSmÈ^;) o8¦Íü=:_^ÂvP.7­Ž‚co°ê5kôOô÷Ò"WÇ*²¦Šç"úVyY‹MÚ†i]4@á뽶eÀÁL¾®½&ìaÛv 'Ì€g”Yq‹ãi?íNÞÆã©ø.¶iÇø×âõ{Ø6›x ]T›hºcü†æ;ÆsWp &°?l¤,Š­»»X¶JäJ$žë(ààWH÷“Žˆªoc·ñIÚì^ {¨Æì¾%šý‹Œ²!2{,Ñ}¨rè‘JέPNÙș㦑ï­K«œñ¶¡áËô˜I+×, 1ÐD¶‘óÙF®jýÚå¶5N»ÓÌ}FÁœ´¬€~¤ª}Ù¡²Æhékø*Ž×…|»oÀ%ü¸ÜεM׎ó+¹ÂýøWð¿&Ó!X2‘ûiÙ{qJBòŸXI¯€~ñÀ¿ÿ-þ°ŽŠû6ðïà\ /­éÓ¯m¬K´óU ›ªzÖJíþS—N¨Øî»ô’5¥‡/²$4OIuƒ¹ÀdóB_ ¼^pB5ŸÚœ0ƒOmNNqì¬ÚVYZòÄ<ºnsž¶p˜²˜øææM†7pTuþÔ3|G¨2GÅš)QØ5Þiá'³ŠóW1.ƺG•»ƒB“|”Œwwõ´>ø6AÕµ?t›fì×ii–V.Xnu>+˪¨Ëz`ü Ø‚5Ñ竧:ýDõñð…­`ýI-Qj3­C&L?WpBÕ­XY´Øá…Kß|ài颰­D–nÅÒ/¾UpB5•:ý"à{'L R§Ÿ|Ÿà„[±ÕuÓñeŒlÓhÍ›ñú=l›M¼…¿%ªM4­9Fk¸×ÍîÄ~F=Ú%ä|­ £d0§+!öQÀAðA±¹¸‹£ª“ÄXáC|’¶ª·Bª±ªÄ`Ìz1yË•hW•8éW"YëjÕmÛ¤£Ó*.m"@Ác­OyµéNÒ…êÑÖõg¯Hsõ¦ŒéïTŽ­Xà˜6̉I ² †Îî‡ø9,0v’ƒw£•›´õÒY¡wøyÞáàH¿ÉHË®½i~Éýià—Á¿V~º#éü ø+>Á¿"#xôü eb-;¸"tv2‘—¤V-—{»^JãÜ xKm’¤Î,}WS»‘æ#öÚB’ vy©Ž om±HϦ¼ädÒXˆCìÌŠrVÑà›Yt{‚ÿ„^âãïÓ<%ÇØ_¦oTÔttÚί4QWLõTØ sÊ ! o¤‚50E ÃÕoŠÝ5{4½ÀŠég-•cN”X‡.§Ó€ µNeb‚?ßág"ÙÛH¨JMkzkMšUqX+E ¦¾&Šn™½¹½¿½BS%ï÷ÒË'lCƒ“¹bÏ&É&'½Ø/8á¼hrÒ>ÁdWÒä¨#(%•éU¦ÑQ#TØFG¡FZ¦¤|»^K`³c©Í›E¦é»šêí«v(¼þD}wBq‹Ä]?¶Z×s9«R¢ÞžI]?¤ƒoc›¶'èÓXæI‚gäv(õ_ Ý!};ª‡m清&>ôE£(¼C_T|—Û4ôõ¼~ÛfïDáïŒjM‡¾Ö{YH}«^Û&6üÂ,œÚ<¥wâ>ÂËÁ/—n<µ¨ê&1vùŸ¤­î]P°‡j¬î¥bhlKIÌëÒ6ŎؼHƒSÚ´.f„EFDÝ”k_Íÿ{û¿=ÊIÙº­ã°ì{ÎÁ!_Ï»ñJ_ þÒ¶t?²Î[Q¿~X¦Bâ¿ ø6ð·Í‡> üvŸào—þ‘¶xËÎQ{Ò’õ•~ü óÅWþ‹Oð‘\¯T"Fã]¦˜¯dŠ•ò”J¤ í)Õ©¤•§lfòíz/Á~2¾R[øI5Æé¿*ç'=9¾þŶøÉE£z1JOüKÀïo¾øÊïûÿ¾Œàj|¥1{âP®”¿T"Yh©N-­{âÍM¿]ï&ØgÆWj Ÿ©ÆHë®öòe½êíÁܦø²6Uééç'$WW:M›…‚æÚ3|ÉvË2D~&›¦%öMô=Cª_pBEì°ÜÔTnd÷Î+ƒ²q7Ó!yVG'T¤ÔÀõjTÜð|Á #ªôx-kÙšqcÅdª5JnçÁH)+uð*Á )뮬eSº³ìe2 {2Ð\îÈØ𠻸WðÔÞÈ [Ôƒ$Q íÚ‚*RÐb±9ÆȲ+·K©gx»à„I¨ÇÞ!8aDõ<®vF·ìöa$ÐÓ€/œ0†ª4%¥«Wß&xJÝ4\S]Ý |»à„uõ›G>7I˜`­™È¥ó¶«Þ ¶m¬þÓ—=‘5KŽKûAVWî7J²@{jŒ"-ê¯K¹°ÆöR²O'Äñêñ;´½Œ—ö(3-’JÑHÝ'0ýÁÓÑŒ°a2,³E L¿ øÁÓRûx‡6Áôk€o\~ý{ƒP.p3ÛO¿Mðtô èýÚ®ðëÎILB§Á [Å2^cBB¶?)8¡2»¨m­0§Ø~JpÂ$ÌñŸ€ž–_2è]íó  ?h㪢ÎOa®8|ïa'|Kè,aõÓÀß NQäйyÿ$,®ŠmË} 'L¥ÖúPñiâ#éØwD‡ö6YäC|"¾•ci]yÉ‹¨˜?Ët'ôbíÿ- ~¬²ð|i.»Lìϳ¬—Ȳ ÀÀøˆä:ØÞƒDÅì—­ñ_=ODÆP-ø× ¦S„½-¢Æ­BÁš^{Aõ9aŽ$îÞ_—hþVEßRÎ1æ”$$ë~„Œd %:½–P^· ³¿?Ô/!ñQÀàR{eÔÓ5ŠÅvW‚¯LÞ­Sñ«|ˆOò&ý˜ñb5é´7J®nàbðÅê ÚqõR^·óX_W¨YwXƒ&IÅoЀƒ'oÐTü ªÙúF ï‡ß«AwÞ4¥‡½fLƒ¸ºËša3§Ä¤ïÇ}÷w$ê£ï‡¶ÑGSñ«|Ø6ýA˜ñã5érx“þ Ìøƒ±˜ôq¹ºÝ†Ë}b’3¬÷ž ~füVüAX.áYàg%oÅT|Ö‡ø$oÅ‚å~(V+îÊ™ý…1 ѺG‚©ÌŒGXÈ°µ1:¨°æ•öê²é–·o‹ßØ?'ܾ=yc§âwøŸäýÃ0ðÇnì•°Æþaø‡ã1öJ¹œ˜±þádýÃ0ð·×Ø? ÷°mÆþøGb5öôTXKÿ¬›P}r]ë%ü‡MÂZùGPQ 7ƒoŽßÊ?Ë&¼üâä­œŠ¿Ä‡ø$oå…e4V+_À×~KÈÖ \¾DÚÒ;gÉÔ-½ŸÉs4ð àOV^Ûö“ ñOö‚÷†} º#éŒl¸Ï'xŸŒàU»HwHfd+Cù~Ê$k\j@V¶ZµÄµŸDÜï¦qfv¼¥6ÉÌVg¤þ«Ý"3;ëô„möýò¬_³OÅu×€¯I¾Ù§â×úŸä›ý¡fÆ8øæê•°>IÔ Œ>ø¦®Ñÿî#<ü„¶4ú6D!áOfÁC›µ£É'{|‚÷ȽÉW&†â Q”ɪÁW«”x6D‰ûÍ4nîã-µIs¯Î@ë Sº¹÷Ë3 >sOÅuW€GŸ· ÝÜSñ+}ˆOòÍýÇQ¯ãkî3Möáh"X7ðpðÃÖžäY<üø¶´öÒúè'Ï?c>´õ$ð™>ÁÏ” ±º}ˆO÷á¿kS©R3lÊ>}óÎ:ÚP/é…Ç Jrð ð+â7øOÁÈ w‚ïLÞà©ø]>Ä'yƒFþ@¼_–«Û‡j þüšÁ×­K¯;­3+,ÝÛ‘€¯@Èe7´kÖMx)ø¥ñ[ú°nÂËÀ/KÞÒ©ø­>Ä'yKÿ4¬ûÓñZzQB¬nªµô –^ïÅ­bÉ«8â´svsí,Û°ÖþiX8ávðíñ[û§aá„;Àw$oíTüå>Ä'ykÿ ,ü3±Z{úŠÀ£¯›ÈÕ T¿¶fmýbvo=Mõ è¬wRtOýQÑaœ¤?¸ |SüFþ6áfðÍÉ9±ñIÞÈ? Ãþl¬Fž¹bSYB°n`ôQ¹ÙÛp}{X&Ù–O?=~þ,ì–ð ðèïÐ6LÅŸéC|’·áÏÁn?« §¯Ø&!W7P½£jì¨Õ…!$ö‘ÀóÁÏߺ?‹&¼ü‚ä­›Š¿Ð‡ø$oÝŸ‡E>VëÎ\±­,!X7ðPõÐ$Û`‚úó°[Â6zh*þL¶ÍCvû…Xmx‘Yrû­RaFBºnàRð¥Ê ù¢‚5aæô‚Ø®ÜdæœÓ™s¦%˜¿¶}Ã%´•c©6JÒG"·Ã=É1À«Á¯Žßì¿S'¼üšäÍžŠ¿Ö‡ø$oöÿSÿ—xÍ~ÆìÕ®êÕ®‘®¨Þìm~€‘s-1*ŽÁïÞÚ–ÿUßÞz7‡vÞ¦[Åžâx²ZÅÁæÛÏ ðiàO‹¿’ü *áÓÁŸž|%¡âïô!>ÉW’/¢b|1ÖJ’ ¼5ÂCµƒŠ×ÕïQRÔí ³ÄÚˆÖU¡åôRØj@xp|"þjðE˜>á$ødòÕ€Š7}ˆOòÕàK0ý/ÅZ 7Ý~ê3:âu?Z]Œ„-¬§Mw’[9‹™ú æ>£`NZV¾WËS¼2ôjë·lìÕ6Ш `ÿÊir{Ò“<x ¸T°Îî¿['¼É7_FÍQmãÐ<7oyÒqºGv¨Þ¿SsXø®éù¼Ižžupö3 à”KƒàƒñÛðW`·„CàÑCÛ0?ìC|=ý‚Q®“å¾fú¯@|’~ü…½{ˆâ°já6ôòa;_EÝù*îï(YÎú®¾ŠòŸˆ*ÛÌÜÝîê™”ÕCXŒ÷øùÀ•nÓ9=6‹ûèoÔ¡)Û4þ›¯õ„B>Ë×`r„›ÁåòfeÉ×ï~ÌÅ”m 8>®ÐÕ#\òYò1Âî§HIȽ ¸|¬Üs~yp\åÐK@EÅ] œ>ô²¦zöy¿¶eœìÜ$†3iU yqþï˜!íåg(JhþüÕÊ |¡S)u{FB¸?þñdLüðˆLF.!ö}Àÿgeþ&à'À?‘Œ…¿øIðOF¶ð#ø¹ðœŠ,ñŽ?ü øW”Ûí"Víd†÷Hª_þû¤|³'³¤å~ø ð_(³Ü> þp2–û¯ÀGÀ‰l¹Ï©úf͵4c¿këüül£ØÓ¯m® Ú”a;‡+ùJ®žÐ`“n›ŽU‰ý†]äqÌ,ßNqKm°V³i¤Šç9üÌ÷1š´ “ ½°FBǘzªà„ªC½dMI˜_êeÀW N˜DµéáËÕ™Ôs/<%uŒyÃ_¾ øjÁSRmsè:“º øÁ #Ö™/÷kWë…|Ÿ;S6`Í”ÿì"–÷jˆÿLF›Uƒ’¡ÛTqÆ̱åÓÛ­hT0»mø‚§Ý¼,ªT OïÓöeV“³¹BÅaíÑlkŒ1­(:cª*]êµÓ%Á WºBò𲥟|¾à„IÔº#G„ÄÒ=‰ôà]‚ª©yé ðnÁ ¨yi xà„k^:ô1êTþ €/œ0éA—¯ ¯¢š±ŸAMÓ.g ³™süÆÄ ’ªþ HJ8>¨¾GU !ÜeÀ+ÀU®qmÚ£‚Èm,‰;¼\ê蔆¿¼¸|gü5Šî¾Ú¶‹7sïv7ðp¹,æM“¨h²ÙÀiðédÌuñˆXÒZ  n)³Ö=Àýàû“±Ök3à3‘­µ—õ•XŒ7F++èUJc&Çà*(àëe1bèá’ô&àÁߨ¾“cë%c\B´O? þédlúˆ.°\´Eò¾øQð*³êû€ŸÿL2Vý&àgÁ?Û†h‹ÊÿðóàŸO>Úú¦0ð*ª‰¶bÚ&¤0ÿ‚/T^ó߆ß#±Nö‚«Û °U—ÉZ¢i"ž~š’JL¿x$°¼/þJLÅ-öƒ÷G¯Ä½2;ŒÁ`—…xº6"±.^®2;³‰Á.© -×ðÌ#ÀmàÛ”Ùìàµà×&c³CÀ'+Ș땉þI†ë€7t¨È˜k8ÂL ’7BÏq“TO>üéɘíQ#žÌòV[Þ ~³2«Þ .µÔ$¼ÕêÀ»À¥FÛ¦¹êDŠ­OsSö܆yëÔZ=mWøþ ý àÇÀ?¦Þ=›¥ñB…˜%Äûðçà?OÊ=W…–7ô/¿ þ]e†þà/À¥g#ÃúÇ¿ÿedC¿—OwøÒÅŒGÞÔ'J–˜øËýý½4¥˜§­`Š¬O¬A9®É¾AþÈ4œÑoæßwÄemW‚Þjž;ÿªÈr×iÝ šáMz+¿ȧÕÇôafÊ Û¯&î¾LpÂ$êТ&®\4Χ _$8¡šªÃ§ _.8aU‡O¾BpÂÄ»ÔTþ+¯\n"9Z—úß…eWQM—zŒu©76šÊä¦4Ór¥Kݦ‚*|·ðl„càcÊ}ÂB>:†$¡n><¡rÉD–kYIb xü ÷@¿hïO „¤ârÀ»À£‡áÝ•ÿ à3ÁŸ™¼{ø6ªŠ‡jÜC–¹Šl<[Å¢¹ßÈ÷‰ÕÍ‚†^™Œ»!!a<Ú9¨óšÖ¸Y@“P›[Á¥öô”©äY®’“Ä«€Á7*©äô‹ÀmàÒã&¾’Sq=ÀíàÛ#[õ»j)wh±*4OÄbeÑriºV.X®·,€¶Utm>Åß3kõ³¦;ìæ꯱/èšS6r渙kÑtz¿.6‘i…KXÁàßÀÿ¦¾rÙƽ¥ðÂ¥Žž"8a•ëðˆ,]?(\2ÇÇ N¨¦f¥:§ N˜DÍú;ŠÕOi‘kÖóµ¼­O;š“£e36¯FŽ6 UÆÆ †øg/-8˜ö6žÎzûkôh^q&Í2«”î´a”ê÷Õ¨nÓN#:¬¦#ç­Øá•E·­¢¯Z…mEémœ|·à„I7æßõ­Šjó3Xc¾ƒïk…Á1z_Õ3ì™ÖÙ|âží”FΦ“’9%$^~a2žæ°’WÂͬÃÀsÀÏQâfè{ëÁ×Çïf¨¸3À7DÒC·‰TþFàEà©7Ó©œ6f#‰F{À÷$e¦$¯¤™^¼üZefzðð’1ÓM@\o“™Žsà9åfšvÂv‰HžàMà7%c¤ GCÒDËÀ)ð)e&ºxü@2&šÞ .5¨ÀDo¿E¹‰.`ý¬­f؃„H¦_®r¤º©/•\ÞG²> øð(3Ô§_.5€ÞPŸ|%ø+Ûd¨¯¾üÕÊ u‘·ý™„tÿ ü(øGç©Þ|øû”™ê›€ÿX2¦úàÇÁ?Þ&Sýð“àŸTnª™õ[6Jö ÐÇy+ý ðßÁÿ]™•~ø=ðï%c¥Ÿ~üûm²ÒþCõVºAÊJÿøð¿Ì+ý-ðàPf¥?þøÿ$c¥ÿ þ×6Yé߀ÿ»r+=lRwÅ:¿ðâÑx7Ç3'LÂV—ŽT…–›^"™Ÿ 8¡›MuÏœ0 ›ýŠÍ ž’›†¬»*•ÄG²Â¾&ª8.ô!>ßÊᚦ­·'*´Ù¥R¢@7„‡ƒKíÒÜГyÆ6·æí›Kr<·Ò{ †«°TÜÀcÀ‰ª˜Ô°Ø¯MÏÑq4”„À7i·Æƒ)È"«ïÑT möfRù{ûŠlŸqÚ–(;V°rûxÒ±Åço›l›mò­VJš^q-ö':s§0C{¨8®]¡)\‘áNÒ–6mÙûÄA$9·0Ó;W ­H›ªŒ^ú!ߦŲó†M çŒC;8Ò×ã¦6 N˜´›ù!jŽ‡j¼Ýu¬^oã9›´2&ãÙ›Ï[%C›2u­Äê»ÍF²Ê®Y4o¹+ÖTÝ™HeÝf¯Ý5lf-f´¼1®W nè€ý!<áuà×)|” E³4&!Û$°^Œ%î™Sì°^ŠßSQq£@ ÜŠljÛÈ´x‚UÕûøŒª_ÛÁŒŽÒ°¸?ËMZŽÁ¼YÞdŽÉæiRâf¹ ,? þaåÆÕÅ…”íóÀ/)ÛúðËà_Nƶ>ü øW"ÛÖaÜ]I$ ’ÿ üø·”Å&”]îÚV!l„BÒüøSðŸ&£›oþ³ÈºYªé^àˆÅH:ú9ðOàR¦£S £ ,²U/3²lÃæ‹w-ë‘QÝßÒ˜qù±‘pªûo{’à„U×I¡`xm¥Nj‚K&6ÒÖAÚÚnXÔ×·ÍÐóRJ£a&Ž— N˜€Òx–!áVÁSR æõ› õ°0Œ¶²H^BwÛ€W ž’:“2ž,•š‚&ÐL¦®îœ0 Ó¸¸OðԾȦq2¤èÞK:Çv”’!Uª¼Kð”Ü›8B*ZóÈñ¥‚&a+ϾLp¥«E›ØÊ3€/\n]fÝ‹_ÕË Å‘SHî3žª÷ujéÖŠzð_'TÔXt17scPÂXÓÆàßßœ0 -~ø]ÁSRSìõ;N°ÞynŸ>ahY³ßŠ½RßþFpBÕ-BÅ› ÔTÙØŸvaܵ+–Z>g2¢©e5{—þMð”Ôzœ†¿ü0ÞÄÁ “0Ùߢ؅‚§£5‡Ÿê¥òœPyØbLW,#E8œ^&8á¡l¤éc' N¨ÆH¹x„Ë'LÀHÓÝÀÓ'Œh¤]½r]£ôÀÁÓ=êítLÖ™Ž7NxHÛéjà9‚§Õ¬¡_n<-½x6œ>x‘ài¹•)þ«+{zý![–õ‘Í)Ý5§Œ¾qÛ0zXl7aÙ¦;YŒÄ¥7÷ ž–Ú@¶U¯‘œ¶„lÏÞ#¸ÜîçáÍZ^য়)xZj†¿üà OK'˜‡³ëà W°ïû /®“‚Ûi×*‰s ª­™Å²˜'4ò4A(¡ t"ÓŸ<-·•kÓ4ÇRA¢w›þðß'L w›þ2ðßOKçÓ†³ŸÏ¿%xZn„Þµ··z~³Uqü^p–ÑHúC £g:'TÔ©]˜o6$Ò¬[›Y \*8aêËtœ0¢úºkÝÚðÊÉ<x’à¹ò¦µzroØ5K$Ð0p¥à„I´T-Lª™Ä=ÀÁ Õ4U™åÀU‚&a«è«eV NÑV«Îw_bYûŒ¾K cÊ¿› µ¸MpBåÍQQÆps@CðŒqÈî“€7N¨ÈpwÇ'LÂp·'ÏHRZ÷vO¬®orM*§™äBúLæ©‚*¶Ý΢ú˜c’è%À— žIhƒÇÆû\à ÏHÅÓ ù.àËÏ$°¿#wð‚g¤–§Ö½ÝÝUãÝf8“Úú¼^¦^¯v‘IÉ„Ú.C·s“†/òëáÝ1ûDBãý ß4‡„ª^ ü/Á UwŒ+¹¢Y/['â²ÎnÁ;»“1|i3ƒÀiÁ ÙýŸðË‹'LÂî‡b¼S.-º®8IÿÜyp©àR}ƒæK¤ cãÎØŠœ„tYà€àÒqf8S"ò)À3ï”Ú ©á/œcüÆÚy4pHpŽÑŒµŸ+OÜ®Œ9¬Kgô9Ü1S"²Ã{âû}ã9J@ªsàÕZõB&:É)!\x@ðN•»‡4 <ä%F¾G§-8G56=¼YðN©-MÂÛô Àƒ‚sŒfÓ7ÔÆÑ1Fáx£ï|uB‰ýG„tû&³ ›},{Ú0KÚ„­çé˜Z-oäDvNôaÌÎ[€ßœ£âZ°aƒd0ÛùÀGç˜@-HoØ !쯀¿œ£š ðàï”^®|øGÁ9F« ¤v&¼ 쯂wÊ-o+ïÌM°Ø3¼l]KÇ N˜H¬Ìk•„«î: x¤à„j,µ+Ÿ§¤ÖNÒ;ª®˜ž0§h!6-ÏMê´ 4»ƒö·g]oä 37qcÅrùéPëk‡La Žoݯ·}>¶¼'$·ïÇxzÂ;ÀïˆäfüwÉ.Ç#iž¼üîøë÷4à=à÷D6‹ÈËñHœ_þze:ê©[àe2ëê/êûG†{igø~—]2úÖöÈhñmÀ¯--¾øuð¯GÖâBØ&¡»oP}ð*•ùF2ý'ðð„Æäþ9ð7àRk#þòCÀ?€'0@Å}øGðèãE1€m!4±³GÅ1ÄØŽ ×^±¾œâlAÑÒënµ©çg¡è8bÊ 6ˆ…¼ü°²œMnѯ„ÿ$0•<•SæÌ:ÉQIø)Zaȱ(xª˜ˆòùúJÂ’à©RdåïЬ¶ŠÁÙ8|ã9/¨?E§§W«¸b÷D,4)MDŠ'Rð#‚*RïaÕÞ•ŒŽ~QpÂ$tüQà—'lÇ0 ‰ðeà×OIµÆ§Ç]«¼Çì‹5UÌ·?œ0 Å|øੇ"+æèj¨çÈÇz©œP‘–. ZÌ/šãe½µá‹‘eÛ·î¸|÷ž­Û÷ìÚpùÖkØ5¦â©˜¢ÁÕ2Ñ`ê/i™q¹åáýŠÝ$xzS£ÁôfàVÁÓrûÄ6¨C¢M]Á ùA’÷Z !xZ:)rÎ/ïV'LÀpÓÛ€S‚F4ÜãDlè(è’; ’PÓÀçN¨ÈMu•råJPba3Cë\8Þ+8azz.ð¥‚FÔÓÎÙ$Š‘ž®½R¥8fØ|ç,Û¨†÷ãsÆ©Ep/Ý¥_üµài©É׆* j‰ê|kt¸)Œ Ë47éß Ìœ&8aÖð»LpˆÖp kn6F¯²<ÅŸpµà’¹ö GúŠãE}¿éJ¨)3Ü(8ajâ¹ý„ ž‰¾ös±–ž4s“Ôå–ÐÎ&àÁ i'³%0û³©f®^#8aš¹x­à„5ó6m¬ºO&ï<™tîbÞ(ì?µ#ag7‹ÕD"oÙZmV°G›Ôí¼f0›w´éI˜Y¯ùh+Çk²¯8̧³{ý9ÃÈÓî«*ªõ“vf'Td8 J†n—ó¶C¹Í—Î1~Ûéì%8Çh¶³¤:Ùb¸ÔÔ†W¥örø÷“‰2±W}íÇ$!ò—ßÿ¦’8ƒ~ñsµ=Ç?'0‰ªôIàÁx(Ä$ÐCÀ‡ÁÕMµÒS÷©”à)©Æ!¼šA±iÁ #ªéM^[ݯm·\C¤}0]9÷bƒE}F+Y»dÚµìEm̪”òNí êXG‘ w”¾EðT´Ž•ÿ®Åðu];ô 7Iô.àý‚&`<©·?(xJªsT¿I1é³væ%¸æ}Ãeè0ëÍZP"Š%éRþ§à„ªt)Vùõ3©CÏ1‘DH’8aºü/›<=8õ%¦"´ ¯§tx´àéh±©Ú8ƒöúä8 8á!g¤Ož)8¡š8#o¯y‚Àì6==$x:ú"ökqFvV¢£Ä ^&xZꊆ†»¼nŽÓׂˆ?Ø#k{z$Pz'Ð\izFEnV—˘3­Yw*œ>CpBE*àwOK‰0«ƒf–0îÓ‘.¡¿ïÿCpBIý¥g7œ¢^sŽŒšþü«àéh‹ÙýwÉG |PÂ¥ê7m6Ÿ"^¤„ÀèCe N¨(þø~ùhÁå6% _þÅ>NpÂöø½Ì1ÀãÏH-ãoXoº='Us2+Ìœ%xFêxÕ5g-ð|Á ‰Ý½W)!r?p•àò;¨Îùå,ðÁ ¨;™ã N±î\SÝ}ÛßÛ|,‰O±Wwð¡$žûh–×ÐŦµáñYÃé¡gè©Öï<#•,mÖég¢ÎTQɬSj€Îwq`pmjÃqu1ÁW‰WL|üèןæ¶mŽÑуžÖgx¾TΪò4¶3®SRÓx¿¶ÞáËÃ~òpÝéT|äòe Ö4yKÇÈmÒ%ƒÖAO°Pßq+¹}šîÒ€’E‡S a±R¬l$zQ/UøУ—óê%hµšœÁãâeÉ5N?‡¢~N¯ZpBU.SrÍ4I³xžà„q» *n8"8aÄŠtzmhjlÆË}öêüóVøÍAIÂóºà)]™Ú;æDQî§!ÕMmÁ “PÝÐ<åDV]øÓ¤¨|X<%7¸ÐH1‡¹zE^-7ï<%µ7BxµLŸ&8a[Ôòtà‚*RË"{Ò’ÖÊs/œ0 ­Ü|±à„mÑÊK€÷ ž’ \z± ½Å‹½øVÁ “PÌKoœ0¢bãÛ®„ïè‘o¾W𔺮EåISZ9~Bð”TJHxå¼øIÁ #*çE´‹N ô›jóÐ R¬G›ØòÏéÕL>/ kmì™7t>'iÏP’¯–7ÇÇ ›¢ŒÙ&»©¨ï£mríÚ ¹Øø¨~’ÛËô Ý¡Wò)é«OËý쿺ò aeUT“÷v ël)1}EŽ= Xïm‚uœYÚŠ{j;§!ßÞŸDÅ:\=!Ÿî—x"ÂkÀ¥±4¬‡³nÍë;È$á“H{€{Á8皊»¸<ú9×ÑL«gÓVé,—ý×Þ'’BD Û¬‰=ýÚ.“òêÆM¡Ôú:+¶a=¼Íf>Ø*"?¿¶EE-K…W{cÙ(9æßå׋t˜=1VqŒñJ*sžOŠÌš´Iê”V»€žìfÏ8Ù?£OKÑë-¤æ‰Kž4ß°Ó°¹Ô.ൂ&`sü”{Â' NÑæŽâ©(4ná†ú`*’æ:à^ÁåšoÜíð|ðŒ’nÎN˜„’öoœ0¢’–i3¦QÈ;bЧh±Óôµ û˜|€¯<%wzISµ­QÛëoœ0 µ½xŸà„Õ¶¸êøB³ ïþ³à„Šôs¤pîÙiÝ. õÈ(é£Àœ0 %}øEÁåvšµ0Ñ5ŠeËÖm³0~á ó%àwOEŸc€þJh¹Šj†À /XCo³à¿LÁ}®RÐíļ¯sÅزIKƒÍq“ò]ywÃËo̱ÀŸÅ<ôЋ„°–Ì1 ­i4÷W¥u¼Þ¨Oj.ÍM†m‰ÂÑÑ)— ÝvD—Å,9•ñq3Ç8ð»]ºqJ7 üÉدx]šúWUMØ{Ýг–)óׯ¿o\§ñXã3¹'ùþ¦C±_¦)„‚·áˆM³G¡º"’b rH/ ÇÊ´¦é§ù¯mñ&³†‡Dž‚/>ÒùÂA3Ì_^wu 3°%Öt¤¥¹¿Å‹%üø”…©aC’ãg>Ä'î JÅýøsðŸG¶µMÕ €ž¹&ÕÊKCŽ–çgŒÒJ4Š }ú–Ðè/¦z'”|” ®Žšã¬`˜t‹…ƒFY§mòÀÁQ«âÍ.í9H¼±t`ùÐÁˇÄ÷º÷i£¬eAÅ>ü%³oÐaч]¹kÓÎmë7îÜÑø¹R}À‚§Bï²Ew>çŽÑâ^&ºÏŽ)´áRszúðúH]ä“û"¹ùÇËš$ì´pÒLœb4ÒÍÖ=ÔQÚÚB™lK%+]1^ð–0EhÓÛi(W“êØ.uñº˜p© áßb­9þ«Ÿ×²Þ6O=JöyÊzI¦ìÔ¢P@À›§HW¶6V°¨ãÉcÎY“£OðÃYXŸ­’sY¯jv;5«ëŠq ʉ¤¦ SF¤¼?L.xZþã4®ö†hŸ¼¶)%Û¥+8¡‚vh!k‡œX¢ôq>Á“\IC¤FŒÆÛH¦ýQ#RØöG¡>|ƒ -&ÐØÛõR½|Œ¥6÷òŠÌÒµä3¬î0ÑÈÛW=pÝè½Ãz‘ŽÑËsËyÒ)4Ø.üðDÔÌÿ3ßg–J È&æÒK%–DϾHðt ’TÜÓ€/œ0¢¬íµfQ¼˜j ?¶Wtý½Õ"YÉœ~’ú%À/ N(©Î @6¶ îHìoÿ&8¡¢8Wnƒ»ßŠ&˜c—à„Êì0`ƒ;z_A± 'Œh‡Ö6¸ÓÖ .©>Æ«N¾Y^¨×Á½d7 N¨È½DJ\#‘¶¯<‰¡©¸‹× ®`cèKëÓÄDÊaÝ\)ûÿG•2vˆ–žãIÀ× N¨ì5Òølƒb¿/Ì¡ã?€jF†CPSñiâ#iß ¢ŠóŸìs˜ñ‰øVN $«0>¡3s¹Ê4r“î˜^‘HUû/(Šðð”yƒã¦§Æ.,®ÎŒÞß$Iyp ¸º³°°>‘nÊ=¸\êàéˆ+3¨üuÀsÀÏQ¦¤S½Ðazzº?„²òBàõà×+ì¡Tì U ܾ'²ª2ásŸH€€càc »JzÅ´ìGCµ÷wmu¿T|Ú‡ÑÜïdTq~Ï>GøŸˆoåMÌýn0ì}ÆL¯¶±_ÛÕßË:”úDÁ,õjõ³?õjëKnî&}_ß«’Ûgöö×m–ã4î׫mfÿ½¤f“¯i(V ®Y.µ‘EÖÁ´ #Ðl)ÖÏZök!ßÕðÂ7¿I™›9v%Ö;®™ã£ÛŒ¼™c=e ßü$ø'Æ6ÃcTÜ›ŸÿTZ*ÿà§Á?­LEé¡5ò|ø%ð/)TÇ«Å~øep¹>µÿêÑÙááž^mxÕŠ5}}ëV JÕ ¯þCeêÙé5ÔyËäû¡Áþ¡ÁÁá¬ÃªRÏÐàº5}ƒÃ«Ör'24´b°ghÍ9ÃÃçÑsŽnæû³¸nÕŠóWôöç¬s‡û‚6èjÛé¹~.0µVð”T@ nê<‹ýzSë'Lºi£âÏ©¡÷IZŒG„iTQMC;kÒ..5M[ûµKyë´£°š´-¬a\GË«\+7©“çC¡µsŽü3`ýÚ–’v @d•ñ{Wõk—ù ៽”šHí*½@¹%CËnÊ;ý=¡áðð„·ƒß®¬¶­¤ÌÃIÖ¢ŽYÖ>j‚YSkèvnRsfJ´©±)ò‚Šþ¦Zâ ž üøGâoͨ¸;€ÿhd aFÂÞ‡‘g¦S.÷k+V17ºbÍjf5ÛiíZËÞwŽ¶³â8,ÒvÑIà›)‡–…„³Iôÿü’¯‹„Ùy¨¦.NÓWgRß׫]&ªâåÝu{µýÚÕì_—ZŽQž¤zÅâN½T 0ôÒ~`²ˆR·-þÏKE­]Ó(œ,X¥ Ó­äM1Ï̈>^ü˜p|ZYý[²‘…Óäf´Ý¶©ÂV-êà³ÁŸÕ¢âöŸþœ6ŠTþsÏž2ݤVJˆóbâwœHÅ=øð—DÖÆ’ì*ÖX­^Õ×·jÅ:©js/ðMàêºYÙFAâК5CkV®Y³rÕàšÁµ+V­ŒôB?’öÀo€#þЊ{3ð›àßLÞÏSñÿæC|’㿅«¨¦¹É³ææ2½ óÃc.ñÚ‘z…vc‡54»¨ÝáƒÔš¯£|–Ü5´¢¹ßÈkÌYÓÒLdÐ~lþ6't%ù3žŽ0žWVI¹3“›´ Öo`¶ñmûö0$Ú>àSÀŸ CÅÀ[ÁomC Cå?xømêZ˜! qžáC|âna¨¸ÛϦ‚f D Ó8ÄŠUR•çYÀ—‚¿T™jzC¬`-ÌàÚá¾uk×]Ó?Ô¿¢ŸI²‰!q_üøçâob¨¸—?þùä};ÿâ“´¯¢š&¦DMŒUr\½äZe«R°Þª°ÊЭ_ämˆ¹ÍÜ…¼Ž·*¯3¦¤-Û0úøJàˆÍÿà9 Kà%eõåÄÞÀÁ®êÀ\‹CòU€Ïnü-gŸ.×—ð_ ßâPùÏÞ ~·ºgXBœ{}ˆOÜ-wð¥àrÎÝõˆìkqVõõ­Y-U^|¸ºÍ©AÃÞ{m§Ø¿bUÈV†„|ð_ÀUnÔÐÊPqo~<úF¡Ý;ÿ%â“´z®¢šVæ&ÖÊlÕ÷•­“ïÕ¶yƒ`¼ÙEë³ÇÂÄòsÇÐljZ±b_ ‰‰iUoå'GF¾Ôùé›°­JYË3o>Q ßâü ÏLx¸Ü–H —¦oÊQßfFB¨§ï—Ú–5\óBÅÞ~Wš*ÿÀg‚Ë…ò çV×…m_HŽ»÷€ßûBÅ= øðDVÇÑÙ!j`†W®c}šÁUá;5$Ï o£2õœÖ¨‘Y»np`h¨opåðŠþÀþh@3CbÞü"¸”¿×ÌPqo~ ¼ þŠÿ²ñIZŒ¿ MWQM3S`ÍÌv}Ÿ>¡Oë½<ùçLmulXŸfeñLÖê ‹©éW‡šLÇ©ˆ=—h{±ëËŒ™Õ;¢ueþ§$,€”Õ’c6MY… ßÓžÑäZºÏ>üéñ·2tcx'¸Üžãþ«á[ºï.à3À¥Æ©·2ë%äy>0R§*\+C7>x¸TãV÷øKùÌÌÐðª}}CÃkVJUŸ_.•:bälpÍ€34¸zípó}ëV­ZÕ¶OC÷½ ø5ð¯ÅßØÐo~üëÉ{yºï>Ä'a1ÈÓÒàû'ŒÜñ”˜5ëúúV †oH˜÷?%¸ä®PI—ƒëV¯¦¤ËÁÕ+W„l‹HÚ/'8aÜm÷ð÷‚&ÝPñ×Ðû$-Æ¡pµE´Þf·mîÓ f‰Žw{y—ukn¼!äú˺Ýæl£lÙ|nÒ­­¥= µ²e²þÐ9³ó5ùQÇzn2tZˆA¨~½M´|.Ô3÷ ®4# í¡âî¾TpÙáÛ*ÿeÀ— N¨H7Þj»Pâ¼®†Þ'Š{ðõ‚KßÖY&U^=4Ø×·z8ô¢P.Ì€ïœ0î¦ÇË÷b] ÃCkC6=$íýÀ .·”5\ÓCŽøà„Iû|*þG5ô>I‹±H(ÜCEMÏsYÓ3¥—´K¬Ê´Q ‘G‘÷Ï·-°RÞáK6wŠ‰M×Ü[¢v‹Ž5HëÅÌ%_ûèuê¦-ÏѶ5jqjë%k;„®N‡áð'Á;y®²ê¤d—.Û‹€o¼CêäØp]|ðí‚Kv@üWÃ7Ftí>à;'TÕ¹6€Ëñ>àû'Œ»5¢‹ïþ?Á #·F+iõÙÚuÔ…žáäÂü3ðÓ‚+ÜAB ÊÕtÌ"#+C¶Btí‹À_ ÎÀˆ¹¢‹ŸþFp¤Ý?]ûm ½OÒbt E{¨¨ÚÅZ!ßÎe½|…ëñÐüÎF«”¯äø^x¾vE¤Êì¬ŀͪ¼ C×…Åx0Â]x0¹©½†yË—Z:szlþñ¶]Ö¸;­ÛaÛòIÀý‚Ë ò‡kS¨¸ÝÀÁ oS¨ü›€W8 š^±ZBžÛ€· .×צPq7ïœ0¢:çƒkC}}+×JU¢§Ÿ/8¡"ÅœÑ0/sõŠ5{§jpÅê~s0ì°‰úà‡'Œ»U¡âî~Xp¤Ý9ÿ‘zŸ¤Å8\hÛCE­ÊShcLÃìծ彗Y<Ô¾¬ ™,$Ãa f©þg´ÚÖߢOS·Ì¹nNœ$>{S¶Ð•ç¼§à%<åëÌ>ørÁ冖Â5<„·_!x‡ÜiÌþ«áÂW_%8¡²†gXBž7ß$¸Üb«p á«oœ0¢:–f×PÃ3´nˆ6C¯ àâ¼øÁ%§ÍCwgV­^8,Ðð~ ø}Á ãnxïþ@pÉãäüWC{|ÂÖÐû(zúÅ£ìÃ6ÈyÏ-œÏc‘§=²CesúPñéFܵ;ª8KÄxè}"¾• k„C rÔCˆÄ;Âõ¸áÂ8:ø´R2%„; x,¾s¬Âj[;³uN±ÝÀã œãÛx;|^\'ðxÁ ox鞀' N¨Ø$ð³pÃfºÐ=g{ï:Î1¼Eœìœ0 ‹x°_p¶XÄpPpBűˆ,¢l¸–„t#À‹'LÂ&Ö7 Þ±)›nœ0¢M,èåsDoþbàVÁ ã°‹‰B±(!ݵÀ'LÂ.vuÁ “°‹mÀ1Áåö¿¯_O“ý-wÒ°g•â×ë„^]È#fs¦¢Ä69!e¢ ™nàÁ • cî3f¦-»QJH?”Ò_ýǤ•BÅ/­¡÷‘{sîJïl´}þ—òºw2öHwIw ¬ãhñ·£þ Fúä#ƒ9¹&kÒ’ëˆÙO³nÀ-–v²ÿ×m^‘Ø9V1 ùá±µCù!cåÚ5+Ǥ=PÔKèx÷{¯ô.úÁ#é/ø¯ê;e…eèaO’ž Ø#^0V°ò2 ôTæ½po¡s×·xåîÍ}XE·à³„ò_\8§m*å,ŠÈj¯rIÆŸ|ýƒnüÉد´Y“Æw^¾c×–kr®g?üŸn퇺gv®ŒNèuVµ²xöOžâ'ë-fŽý/dö?nŒ&·<Úù§’^lt ½¯uàîè©ùádœ’ç «ˆ„*ëµW‹€KÀ¥^NÃRŒêSo”|•Æ›Hw4l)’R ¿Ô‡³ZŠˆJ9•¯Ó_ïeO™ºv9SÑYÞi!…Í@?„g‚Ÿ©PW®éU _öU:M„I늊ÏúI]EM”ã­Ã‘>Ä'â[9[Ӵ͘ÀÖ\‹÷˜Œ+zaöΉìZH±Gô!%Îàêà¨9Îä1LºÅÂÁ4ÚsþxcéÀò¡ƒ–<ˆïuk£´'…£ ã/™áýÃA=+wmÚ¹mýÆ;ž«¸|CØç¢;Ÿ[%Š{™è>«!ÛkTÓ;éé%ô±Ñ'÷F¹«‘`v6Û +£¡ ¾KSª&ÍUðÕ±¢Í ¿EðEw‚ß)õ(Íòå– KЇå¹B¾øZð×*StPÚ/î9À׿N¡U—÷M”zðõà¯l\ËÅAœ–Íì‹éÂd„ÅÁq ¡7H'ßü øg¢ šgÕÎ )vûËöu¶áT ®3bç{—ÏíKbØO>°mýîK.]ÍÎ=,HØxÑv§Ý5ãôO®QšÊ.›uyYϹZõOÍnǽ渖=­tSnR·³þk==s~f™·6(—/õïuØÛ4§ìþ’á”ÊEÖ³v'÷êû/\9àûûŠÅB_ŽžÝ¸ì\íröSôÎŒãÅ~êg—å­œ÷-þêý½Þúö‘e¸n{¢–¸ ôs=Ú™gjs$/ Öè(ÒÎsr¶YvÏßÆ~èR}¿6¢`.WÜs´ãV‰WF_ɘÎYáôçËÙßØ¥þþöÿž~‰é®e½ž{ÞŠ@QÌòÆ [cêiöýº'>¿ú#ÏÒȳ7ÀÞÔ`vÖcø~{tÙY½u*êeÏ\÷C,4•7? üøהě‡,=àó§A¡ƒlÔùuŸô_—‘Þïé3${÷|3+‰HGÉ[ ˜F.µá¸íáçå¬RÉà!Äù¿ÂǽƒF©Ÿ%ÃyœÒHh{¿h_¯}éöðѼ!lŽ½ê€a…TÇœ‘ËCáÅxfâ#é:F¨æãõ‹|ˆOÔÉIÍê&åQ eõj¥!úÏ°ÙZRo·6BäÆF”ôdÍûõz5§ ±ÿVÆà /ãa‹ÿ2øÉ‘e<»*£žÏ ÷²ÊÈ2«T˜¤©pÛ*ŽìÞyå¦ð{»FÐò®>±*1ÏY·ªW£UÔ–cˆ,?2† Óu« ŒÝ…8"QP²uvdò–ÛhÌ}1Þáø@ä÷•ÁÀ)ó° F+Nµs9ÇaÐ;Ø`$©l*>íÃh~ô‚¨âQ<Ä'â[ ¿â[Ìû¬øŽ8yænÞËÕ퉊8¦lجÌGLµLá©„ÌÝÀp©:P•mýƒàƒÉ[2?äC|’c ŒÅC5õZ‚BáG)±à n_Z7%äê._,#—gÁ,yŽš2(·¸¶ Ÿ„tGO—<‰)ºñàJð•J ☢{Vùä^%#wô‰)ebÄ01¥L¶PýµŠ‰obJ½œþ»$&¦âVW㉩xKm21¥¬àú…˜˜·+F)g2ËÈVÊ,Œb=¥qWË…BO£ù©¼•ã!Wõ`$É6Â{¤§‚?5’3h˜o+–HÈö\à À_ 0 ˜—¢›î¾ü… ‹m¼¿é6à‹À_Ù¸žPݶaÎ U¿„:^ |7ø»¾Ó5ŠÅvÿ üŸ’…éž÷øŸäcá¥"þ%Œ1  “<ÝÀC/&©Ž>–bazžS€ó)&yWùänS,¬LŒbae²…Š…Õ*&¾XX½œþ»$bá¸ÕÕ8Ž·Ô&±°ºšã¿º=8¶Í‰É˜ƒaÿ3Ý~Û! “LϾ\eT SqϾ\**  Sq·_ þâC)&Á^ü'p©¨4\0LÅuß=  Sñïõ!>ÉÃG‹úÅ1Æ`86&yº‡^0LR |,Ãô<§çS0Lò®òÉݦ`X™1ÃÊd  «UL|Á°z9ýwIÃq««q0o©M‚au5ǵáÀ0‹yö?Ò¡60L2=˜àÀ0w0Áa*î6à!90L‚½øîŽÄ†©¸N`†©ø÷øŸäcaÔ¯/:‰)·…éWº‡^,L¿ydGm×ÇJ,LÏs p>ÅÂô;«|r·)V&F ±°2ÙBÅÂj_,¬^Nÿ]±pÜêj Ç[j“XX]Íñ_m80,bá†ýÏt[Ç¡50L¿ô<`‚ÃTÜ3€  Sq·Éaì%À†©¸Nà{À£G¡¡ƒa*þ½>lÛÀð1¢~qŒ/Δ†ÂFÃ$P7ðpp©U^œ_'Ð ³£a±_¦cÞÄü%û»Í£k¹zyÏqÓv\qClŽ“žr °^:D'Étx+ø­ñ;N*®|*¸ÔÀJ8ÇIÅYÀÛÀåš0ÿU…Ž“»øJðWÆï8©¸Nà«À_•¼ã¤â_íC|’wœõ‹cœŽs8¬ã$ºê§Âq:FÎb>2^ÏI¹h[‡ˆç$™n>\¥ ðœTÜð6p)ÎsRqeàíà·Jž“»ø*p)ÎsRqÀWƒGwY¡='ÿ⓼çÂËÁ/ßÞ…^~EòöNÅïô!>ÉÛ;Ž7㣽Óî ’ágöÞ9K¢Ó«öî|gÞH´öÇá>Âà+¤•êmiÝb›Hí ½élɽ8>V~ºcÎlÃÂÑâ^'¾éø|ŸàçË}ºA™ £¼®Ñì¾Ð³ ÊDj\jÀ,ƒZ}øÂÞ†hìíz)Çòã-µÉX¾:³ô_=ŒŸÞb¡]¿8›Á7ÇßðSqÀ‹Á/N¾á§â/ñ!>É7ü8:”c| ÿ±á’„lÝÀ%sÎh‰êî«6ýÙ‚5a²®3 ”Xgß6s=^<ÀÂ[§läÌñq`'€Ù³¿ê®æLZ•B^3´ŠÃbb/pб«}غA|4ðfð›ã¯Ç£>?˜|Ý âoñ!>I‹qjƒ‡mÛ0GÔrŒ^EgWƒMM¶ü™ÔKy~³÷› Ûâ³Î@Ϊ°|Ó·aw:µ™p;øv…™£&ܾ#yË¢â/÷!>I‹c‚«Ø6ÇÉ¿c¦Öóy ÁºÊ‡©S×ÑÁ©%cBwÍ)ƒž1cN{£©®Ñ_™ôµj¨MO¥ê‘–ÞàŒÅÚ'{ŠµAâ( oÐ{› çÍ)3_aMµiõ’¦‹/Ýkõèþi 29½T”mˆq>ÑaMG´wülk£&Km ¼±8ÞØ:ßgý.½\.ÌÐCµÜÙ]Å=)x‰À”)xÊŒäbÕ Ð“LSÀ‚*ó•ôT\x³à)•1HÀ=·xPðTôDá= v ð^Á ãŽÍÈB;QìK'LºÍ â_VCï“|›q²¨_cL>+¬‰\ÝÀè ÒGÌ’g˜6ª×s.íáíÚÜç×Ú î7ÉùMé… ó²Úú_æ½ ¼üeÁf“68p#T’d3ðp©®r8GDÅ]ܾ%²¥Ÿàë*²wÁZ»¬a2IééRàø˜2=-ÄæÃ2º2¸•Œ®rÀ2x9²®Ò›7SÊ@ÜV¦”®ez¡ ¥’àAp©5¼Jà-àÑ;ñr*y ðVð[•©dÑ2s|PV+wŸ þÜd´òTàóÀŸY+]½4r&¡˜ç_.•êÜ8Ô^Æ:W†”Z^| øk’QË‹€¯mdµ|»gvï®=ˆ~ÞÜŽ¢ }‚F€t>Å®£ÉúŽ7gçöòðÓmèÝÑk}ÀÔM‚½;’ Ž õlÁ ãîÝQqp©çN˜€¡Sß•ãsOI¹½¸zw$Øó€oœ0îÞYh'Š}›à„I÷î¨ø·×Ðû$ß»;EÔ/Ž1ÎJ‰“5$dë.éˆ:+Õ5K¦OysQõ;ÞEð¦œxŽJÉb.Ù¡•SäsY´.þÙCƒqc»§´:¾þ=mÙ_ ïγü6ï_TÑœJn²*”n“§w%ÎÜ¥y4ðàßP ¤·¯ ß~ü»ñ;G*î›Àï/ríû×9Q@ý/ì­Á ¯×ü#ÃïQî6‰ÚÐøÓÛü¾ÀÔ;'<$’éƒÀ NwãOŽøqÁ °ïÔ;ŸœðÐiüI°O¿+xJe½hüÉB;Qì÷OE¯÷¡*þû5ô>I‹qª¨]UlÛ¬¤†Â ÕO»_ÐdÚ¼?hVИ-W„Þ'DJ‘—çHȽxø²rÏùeø,ðgE®¶Gòp‘JOØP…dy6ð¥à/?T¡â:/>ýÚ‘Rñ/÷!>É;Òå¢ÒqŒÏ‘.ÄÑšÂuê¨n¦È•îk2P!bßÐÄQ2lÝe=EKLQ—mkÂ6œjf’wÆM—HÌv®þ8àAp¹’†Í?à4¨æ),wï¿+þ>w ðàψ\SÒ¡ý•ÿLà³À¥|h8EÅuŸ .5ºÍ_QñÏñ!>Éû«Ó…=sŒs\•Ÿý+![7pIGÔqÕÙîê…Õl ä&æfZ" ‘ù£<ûc‘ÝX.è91ü5=iæ&á·èëyù.æ›ü£«¶Eù6ù~m˸V)‰_6|¯6Ë—­]|8Nâ  |#øÛ,’$~ü£ó X$yï~üJ‚EúÅ7?þ±ÈUýR,ŽWlÞ¼"h¤¶t’oeÁWhÛVa¶!ójèeçŠF9¬ã¦çø¸ÀÔa‚Æí¸©ØNÛ-¸çu“tÜTüâzŸä÷¢ÂrT븛/q 8%ÄèFï¥ÏöD×óyÞº:@ÖpI´¥@Ûpπហ~fò†KÅŸåC|=}÷hU- Ê>öy&PÍ0WèWp& ÝC|$«Ì‘QÅ9 ÕÄC|’~+Y(ÄöAö pÂøBÑÇí!ž7Í}Qø Wzpá2ðeÒ¾îø¨ $1Îð!>IÛÑ¡2ÕØÑ9ÿßnš1öåèŽÃ¼ _ÿT¶­)3Mh(²1ì"E)ÿÙ™ððs¤å?t¶ §ç9xxèm莄· 'ywúäÞ)#wµ–¥[6VÊĈa«pe²5.5`µŠIµð×ò[…«—Ó—ÄVáq««ñö"ñ–Úd{u5Çõñb«ðê81ëÏ ÛVùE,ÚÑV…”¥WÇà ”‡= 9þ? Ꭰ~¬tÚ5Æ 1Nð!>õv¤V÷¿2õAg„G‚Kõ|›¶O£®·Qڜҗ?:zð'óçC|"ŠÑïOÝ5ö³@ÉÌ9DÕ‡Tì“hÊDG$ð1ÀãÀSu’`­c£.þpïûxŸØÇˈ]ùïz¼ˆO'²ž3žx`°È(Ê¿ÞÈr6|½]Ü:‚C«%³äÙX+{áb+µzMµ0=™°<^Ë;œ[Þ™FÑ)Ÿ{(Üdƒ[ Äþ_jgþ»¤šø^B“uþ¬îÅ_û$¼œ< ü¤È/a±·Ø@’y'Ï—$—~YàÙàg·Ç&z}ˆÏüˆå¼Ï` çC,7ä{HFì„b¹Èr¶-–Sò†C·±êôW,Ÿå)‰åb4¸xb¹Ç‚ùï’j>â{ -Bªù]°º?Tû$¼ W¯RË Ë¼ŽÕÀ Á/Lôu¬^~Q{lb“ñ™±Üfàð-ó#–»Ô'ö¥2b'ËE–³m±œ’7ºU§×¸b¹ø,OI,£ÁÅË=ìÌ—TóßKhRÍï‚Õ½øhë“eƒ—Ë€ÛÁ·G~ ‡‹#¥'YwŸþ$åï#3š³ ¿ødð'G·‰°“ßTüõ>Ä'¢˜üb†0íç÷L~ò›J]<º£m“ßTüã|8o&¿Iàc€óhò›Ä=Þ'ö¡:ù­DζÙÊÞp¨àG­^ã²ãµ¼ÈAv̧>È~¬Ø™ÿ.©æ#¾—Ð$Öÿ«{ñÉO~S©'ÕM~K½„“}ˆäK˜]Òº Oà¾$ÈéÀ3ÀU.Ó ØŠ;x&ø™íQÇY>”^¦'m“Y`3¨ø^Λ ¸8Ø1o2HÜ!ŸØ‡j‚9ÛP+yáuz+ ŽÏò”Ô1\<õcÁÎüwI5ñ½„qíü.XÝ‹O>JªË@z «}ˆª€zL* žßQ=ê;‰€z ðð Ú£Ž }ˆO‚6¹ØÆ4*~“çM ¼¸¥cÞ¤¸—úÄ>TÓ@”ÈÙ¶€ZÉè¨Ók\u|–§$ ŽÑàâ ¨ væ¿Kªùˆï%´ˆkçwÁê^|òi TêeÀíªÒ@¤^Ââ£( Î”†¤"ê«€×€_“LD}9ðZðkÛ£'ùÅF‹C…^lc.½ñ‰(F].Nè„÷aÝ?21gA¥.ÝѶ\*þq>œ7¹8$ð1Ày”‹CâïûPÍÅQ"g[z:ÊÞp¨T­^ãèéÄky‘{:1œúžÎcÅÎüwI5ñ½„&Žù_°ºŸ|.•z°¹8TüÉ>Tœ‹“ ÝÑ!AN&˜‹CÅ<³£m¹8TüY>L6‡JÍÛ˜‹CÅ÷úpÞäâÀ}ÀÁŽy“‹CâùÄ>Tsq”ÈÙ¶€ZÉè¨Ók\u|–§$ ŽÑàâ ¨ væ¿Kªùˆï%´ˆkçwÁê^|ò¹8Tê0°¹8Tüjâ£* ÎKÔ#Àó;ËÅ¡âÖ/èh[.¡ñIÐ&×Û˜‹CÅoòá¼ÉÅ!7·tÌ›\÷RŸØ‡j.Ž9ÛP+yáuz+ ŽÏò”Ô1\<õcÁÎüwI5ñ½„qíü.XÝ‹O>‡J½ ¸½£m¹8Tüâ£( Î”†¥"ê«€ æâPq—¯íˆ‹Ó°ØEd•‚n7(™`¢ä'Ë¥ßÔYBØ *þ:âQŒÃEÌ4<Ö6…Eq<üpu½ð+™IÇ?&~Ó¤âŽ>üñ‘5“î•ÑDZÀãÀåf-„!ANž ~j2ú8¨kmÒÇiÀeàËÔé#üì" Ò|"ø“ÑÇràÙàÑ'Öôjz)/£“ÞŽÚ@aoG”Q:T$ÈZà:ðuÉèdx¸üá›ÞÕÓ´¼Q²\ƒ—3 mÜ6n¬¥?GTN]篗kôT¥"“$cÀ} p#²¾ºdu2Ü ¾·­!)Ir#Ðw’ÑÉ>  îFÕIê¼òØִؽÑé×6[¶fì׋å‚ÑKîêšc¸t£Í´gÍ›Œ¼–+˜%3§4×6Ù—´ìλ}3gMZ¶ëæÛ[Ýx4ï%>õIdØt¾/ïÚ†îÒéâÆþ²å°èörAÏcÖ@Î*¹¶U(Y¥>ï:ÿ©^ö+NÙȹæ”Q˜éÕ¦MwÒw8 wt´Cÿ6¦ØïÓc˜%—EŸŽ«eþ‰þ^v›îNöðk›‘›®Ã…Þ‰Õ¯mñ½‡œî}*䃊 ø á¢êÿ,~Õ |–^:³¦þ:*,–f¿ÏŸÒ6}Ú¸žsÙ]õOT}{ìöþ°½²¹ŠÀô^ÁÓr•Ð5t§dHÔà*âQ ‰³Ì‡Q8a<£Ì,u*cÙµUjP8ÅQ(¼³öIZT|—ñIZŒxý¶Í&V¢ð•Qm¢éA¯G\n¸ÖYŽ¶Íp'­¼„ˆGO—ʃä¢uEU‰qªñIÚ‚VAY*± ôUb¨c=k8ÊeÛÒs“Üuë¶1¡óv‰iÏÏ96Í)Ú´îhNeb‚5O¬‘›ÑHÛZÖ1 íÚŠS×X ¤X£5´níªž~m7k<ŠÜ4VÆ”™§FE›6̉Iúö3fQg2Sά ÖJçókÌ™wÑ*¥¼A …ÆÂf½ÐgŒ3¯ãhEê~ XÖm×ÌѨUaFÓóSzÉÕ' «âÐpN‰ÿþÜ6Ö¤’lÖRUØ?X\0iU ¬Y*±ß3´ µåÕ¯‹fÐa†ÃÛ?SüÙ,åMöhL@¯µÕØO²ÍeÍž¥åMÇ1‹&“«ÚžŠçÀ/ѽFÉ°õ+Ô)2вÛ†Q*Ðýgj»ô{z§ëÏÕvM׎÷ª‡Wž«m°õüXÅ.ùÿ¼†i`»èè./¸lÓ“ç).©\”Í¢“’6f±öœÈ°‹Õí™:ª2Ûú4SÅYÞÄëŽÉTÃ_dÙ6\RW©'týö¼š,îäªä«ØˆáaÛœôZ¾6ª“–i¸ÉÏu¢ð66Ük…ï®b›îuxý¶Í&ÎAáçDµ‰¦ ÷¹;˜eØSÌ9lÞi÷N¬ªï1zÕ+l©ù»]ÂßI<ÐQÀKÁ¥¦²¼mÏ£)šÄØæC|’¶·s¡ZÕØÛ}¢™GTæµ–®cƵ¼Å”JÍJ™6Æ©ô5¢ä"<…[žeP{Pk«Ѩd­FžýdÎemZQßÇþÄÚRï sÆÂÐ’†|cçá-Þ~ŸôËàêତ%£Xžà“û¹ëNšMUwqÍÄ)Fù#G³5Eö½¢€e²5.5 ‡D­bR-ZEhÓÛi(W“êØ.uñº˜p©MR]ÔÕÿÕ_j®>V0œ~íI†mqç_ë!éÔ1dW‹ZÖØŸ3Ê.µÆ~×6Š†…ìe=NÖ9ÕѳJÕfĶ¼DÖŽ±Î­Y¹\Åæí‰^š©ÞÇ‹ÝQ&¦Eý=“÷ý*¥’‘3G·ghˆRÏçÅ0eÎ*9.ë@z㢼ÁÊY•’[ëM² ‡¸©úL¡;?¾×ºOð”|û%xŒˆºRE5Çx\bM“bĸp¹`¹¼ïJáÁ”n›Ô;·è]jã•ï–8žjêã%Fóx„ʈ#ÎÇC? ýÒ¸Ú"ŽðbˆÔ>™xä¾ø4ð§)‰²xÁ‰/` Ÿîüé2‚G”‰Ñ0`èÍî '()Tœ V©Ú iœ{dìíz)[ãxKmÒ«3KÿÕ’×Gë×.1¨%¬5`ÌÍ–hÔ-2ó©9Öøòf‘;íZ³8¥*F£ÆÑ(Ñü#Fi$3‚GxüáyæŠþ üoóÅÿÝ'øßeW㊕ˆ¡Ö+)´+V§X\qœ/%ØÇWj W¬Æ,ýWO~´êw«Qn^ÌmÉWáÔI‚§äv‘iØ{f­@PmÊD"I–Ï<•Àþ-TÜÉÀ3'Œ¨-©ì0á,àÙ‚§ä’=&Xº–ŒJ†+'LB%½À•‚FTÉ—X|¢BPb@O×RªQÙÈ™ã3¬«®{± &vY-cv,î ÌʳÎüË9ÓÎUŠôä tý«ä,$jÚ¥ŸâßÐËå Ý^7 ߯íÓ”&×kM­˜N ž–ë¶7\"—·­òà „y¥œ0óJ§G NѼn«š+še\“ÖtuºƒgÕ,¤Íe-[dðöÐhŸ^çùŽÏ'™‰¾ü†à„õ!·>†dø&ðAÁ ÛßÆ>ü™à„Ièå;ÀŸ NM/©7úB¸iËÞׯm§®9,f*à0¶ï¾/°VY´Æ&kš³º£•YÜ–7ÆõJÁíáAU ßAG«$†äJ4¶·âðu†¾˜0E=o4ùÖ\Ã.éÕt/ .Å´å‰ÚàyE˜8nÚŽÕR1¦T`J78FÎâ1ôSÍÄ;£D&ò Ïœ0b=±u¨sUT3±u”˜Øª%V†”êBHraõ~Žíõ)$ÌqÀ“À¥ÆÂù*n)ðdð“#kh1w ¯¥Ê9˜Ï*SNçîWn’QÍp¸£º·Yªé®—(¨{SÒ8=ÄJàMà7)SëBÝÉ™#ƒ2š}*ðNð;“Ñìà]àwEÖl'¥ŠJ¨åÀgƒËµ Õ2fŽä%ÕòàKÁ_šŒZž|øË"«åpóÈ;×ßþ&u=’íëe4óà;Áß™ŒfÞ |ø»"k&ׯ]s!ëiö‚êõ›9“²j©¡/SÜ[) Ç™ÑYã2 ·ÀÔÑ‚¶=4Il›oÞ SÞ»YWšõV˜òÖx̺R.Ç`Ö[aÊ[“5ë­0å­í5ë­0eÛfÖÛ`ÊÛb5ëôA3JÍäêªïöÕÇÑÕÍ"诔p2i0£¶hg>Ó kÙÛP Ï—ÚP<œeoƒ5ž ~nò–MÅŸçC|’·ìí°æí±ZvæŠMe Áº‡ƒKc,M²-ž~zü6¼vKx¸T͆©ø3}ˆOò6¼v»#V^ÜD¬nâ£È‚Ï.UŠc²óR`ÌR®P¡¥{Ø,N/é…Çtš5 |p xAǘ2aƒ*~Ût\S¾Ú=‰/J kþôLG÷€ï‰ßü/‡ÉÞ~CòæOÅë>Ä'yó¿&E¬æظéöSˆëHˆ× <ühe5 ‚Éc¾lM÷Ì}FÁœ´(÷1oLqëîÕÖoÙØ«m ÿPe`ÿÊy dÄ*múv¥D{yÛfÎÅɾÖ~5lE¡G<ðàψ¿¢\ÊAøLðg&_Q¨øgùŸä+ÊNTŽÊ+Jó jò–WiæˆÓ T?Î"v¤ý–(_Œµ†8àÅFÖ†IÊ¥ÀAðÁømx'ì–p|(y¦â‡}ˆ¢§_0ÊuÒ ÜM0Ó]À6%“킽{ˆâ&f¡8é#l³ug7îï(YÖF}W»ñCâQe›™»ÛíËýÅk”©iâ§Xð$ßqË.ê®×zy‡4T[ÇÏr%LŽp3øfi½§:gÈuq1%DË'Á'ú£ÚKþ1KÞ%#\à~/«OBò]@\*pløËÛ€&¸©ð¤ Rq÷‚G?2kMuƒ ¾{ܬËTÀÎ'|ÙÃNéåÃKhcðµà¯Unâ J±¨Û3Â}øIðO&cä‡@d2s ±ß ¼ü~eþà§À?•Œ…¿øø‘-ü¾½Ù¬¤kþ4ð«à_Un·‹Xµ“éô‘T¿>þH2†{Ĉ'³¤å~ø+ð_)³Üoÿþ‡d,÷kÀ?‚ÿ1²åžTÛ<ȵøëzŽ U ¿ˆˆ$û“@¾RðO²+ýWC‡mW 믢šH{!¶Â\ ‚/T^¹cÁ$- [»I¬Ó½à½ÉÔî#GªBKToøàià§)©Þô‹GûÀûâ¯ÞÿŸº/£¸Ò׌dË°p„#¡1—º}Ûð¶±ñ!sFÁ´fZR£™îq÷ŒdÙ’@ ÷Á97w6wÈn’ͽÉîæØÜw²9vsìþ÷Hø׫÷õLKš‘éêš{Ûù>4ã©W]¯Þ{u½¢â»Á»ckmôŒST~°¼· lÃVoðzðë“QØg ”…V0ÔÀíàÛµií àóÀ•n®µ}À!ð¡ØZ«–—‹dx>p|XåÑÚ£y”KR½øp¥)ÜèŠ{Â@ s½u/6½µ/WšRŽ®·àËÀã'£®ÜXR¥èŠLRæÀtÈ«È+žÏØj™V—눧T4²¶9ê¸<0Fhw˜ÎÒS? wðwà¿ÓoÍsT‰¾rÒò(⥎>›9a2Ö¼,tœ^ñ¿þXæ)¥½ïUùÏøåS™&Ñ+~bOcN7‰< òOžÁ\1iyøÓȉkYÕ˨g qºH\æÒjd'™ ÇÊu #!:~.r¬v„"<ütåÞnš9™ßô9òÙzþÚááÏ<© ÜYÀóÁÏS®ú)TÔ£…$Ë@ l;šƒìê¥YN¦F©g{Á{bëQ;IëÌÒMfQÞ¢¥Çe”}Àk!ñ5Ú]ÆüÙdó€“âÙ+ž‰düÅÑ,±ÂX•¤µ€9ч£ÅOÐ/îîÏ ü^êí'® =SP“} «Rùû K¼ ~ÕUUZiÙ^ ¤Ìm¯jÒ›0nnU•+ªê]ÀW4qÂûµ©êm@Ê÷Â&ÅLvÑUõfàP“76HU>YÔ¯ªH(ÈöaàÇÅó¡&¹>•Œª²ÄŠªúvàÄó6ñ¼_›ª¾ø ñ¼™ßKªú0ð“P“O4HU?ü4dù”vU—3Õâ·ïiAçÛâù^2šÚ6 VTÔ¯¿)ž/‹ç_´)êç?Ïçøµ$¡¨O%ùAlEU›ô#~ü9äù™~»:,£ìè²ÑˆL"%OŸ¥Z’²«,±¢ºþøñüA<ÿ§M]‹÷Aÿý~/I¨ë/Pl+« W]•®c#eyRJG¼æV×½{×Ë+ÈÖ @y5Yo2êzÜK¬:G"Ÿìhât°JÚ«þò‰Àþ&Îøª´k5²Î¦—@WúcëìîÊbÁs'ì,]‘NÛ sÆΘBÀvÄZÓÕÛKÎ2ÈíZ…Ë\©FKw¢v/ÖÞZ¨2 ’½øVñ<&žÇ“Ñÿ…$oíðQñ¼RÄ#<\íäÿœñBÆ¥ïF–lx)ø¥Étï£H^…ÁÉÚ\ ®œ‚dÖ/wׂ¯­Ǧâή_¿cGž4£ò×7€oЯ¦wBA²!àð=I©)É«¨¦;×_§MM¯Þ~c2jºh‚+Ò ¦ÃÀ xF»šFÏùKòL÷7ÅXÉ‹®¤­¾Ê¬.IZN€+/EÏú囀À$£¢YàÍà77HEoWŠšçž"˹£[í¨ùmH¦×ß®´š¨bKð¬/¾ü•Úõàà$£¨·W[J¯¨X»¢.Ò^(H÷!à'À•VVÕwß®gI—~ñqà'Á?™Œª>üø§¤ªŸ>þ”vUm^»y½‚`ß~ü»G€–~øMðojÓÒ~ü{Éhég€ßWZFÖ°žK2üøSðŸê×ÔuJšúÀ¿‚ÿõÐÔÿþ7økÓÔ> þt2šú3F¹²þ3Ƹö4ò4•I©Tš9¡¦ê/ª}7ÜnÖf¹ÓSßÌ]ä D*>B<ŠÝt~\qöP/ !ž˜oåTÃ0®qs#£¦3j\m[™±â°Y²<£=¢x7¢¡O?5–Q ë”ɉáKifÄõº žKëYÝ®7ª äYÀàúR`βò¦«QîiÀ•àñs`F‘¨üUÀÕàJS£Ué̱b±à¯î陜œìŽÐXWoܵ®†°—o¿A[cµ •¼ZMµ¸|Oì¦jŽžiàÆÐ3\AMÕo2KÅ1׫ah¨÷šM 5¿T|:„ñÌoì+!© Ž !ž˜oåÝÂü®óÌìpÉs:mÝÆ–îNcƒeû‚ÊÿZgy"n’ÿ¹VüçyÆV7cæl·Sü§±«Ûhïïí]ÑÑml£k³Í¬k˜ÃtÊÒq‹c¶3ºš±Ý|Áôlßu‚/Ë“©·èñ§ÊÒ¶¼é7ìú¼VíQ¢.k‚’ñu_ZêCønðwk³7'V2,ÙŽ±ÍÊÚÛ‰:‰@²}øEð/j ó¬|a¬F±üø—à¨ü/¿þmM”î_® Ï?ÿü_46Ç°›ËÖ(ö«ÀXÞéÙ}Úû::eKººV¬Pê<ßþ<Þ01ü-#pÖY×&çÜÓ×ÛÝ×ÛÛßãÛùîþeý+#zk’òßɶl¬–v›°¼áÅþ ÅÍ<¥tUF<ï@ÅSÁàIZŒ,7tõ¸î„“ºÜ³,'g:ÙNcPz¡A37a:Ò µ÷­ZÕ+<Ð:Ûôƒ$õtØß/Zøy±HÁue oJÔ0䆌Ü-,Ô‹0!*……uô)VèÙ_Ázû*fð¸ÒªZLŸBåß <~P[¥V)ˆs{ñÔÛ¥Pq·ï¿#vk,j_"\JÿÒ]]ÂJ+õž_þ*mMsÞ\Ne銕½½«z—ô®ˆèZHÖ7?þ©ú»*îÕÀOƒ:y›NÅ?Bü<øçë¸Oÿüb7Çñí«„{ê[²¬¯««oÉŠeJè Àï€'™QOߊå}]Iù#F¹Xó#Æz»&*ö_QlŠyªStT|º‚Á“´cÜÐeÔãšÞ$\Óu%¿4Â#žVÑí4v ¶Õš´åô\§±Þ͉Ïc¢œeŽ±Ÿƒ¢•ËhP$¼‹1œs3ãfVø”’G# éFŠ–gä§Ü A3s ˜žtK«µŽáŠ¶Ÿ°­É`ÎÎÿÈÍ˳jEÏ–Õ"¾'ï†ðMàoÒÖµïðÜQ1¨“ži=ÕÉ0ýL)gzÆÛ·ÌÈ&IÎ'_ÿBýý÷ð‹àJ‚1ý•ÿ%à—Á¿¬ÑOÕ Ãç矀ÿ þÏõ÷STÜW€ÿ®4!8cµLø©%K–uu-Yѧԕ¾ üx¼#ùáouUõR}Ë{üÞÞ%Kºz—÷÷¶ ã"†S½Kº¢Ž¦Häß0RByB]g>Â.‹Šý9Š=•¹Zº¿x¾‚Š?­‚Á“´7q«—QË.+´†ßi\#K}49·Þu²¥ ³Ây½¤±«rå –m‚)Ö¨¹cŒ£2„ƒàƒÚ:Æ™[Ü’G×C ŸX ‰ÿtGŠ“¦ÕÁ×÷+åøŠæ`¨¸ÝÀ)ð©8*?ð¸ÚtaU³$êÒÉqðEà/ª¿ƒ¡ânÞ®4=8ýF9O'FAKW*u¢;€÷ߧ­aέæ]V._²¢ç&ßïžè]²¼Ûî­9ˆ­áUHÔ×? þÑú{*î~àÇÀ•ÒzÅ3çTüÇCˆGSíß±<‹n=­Rø0·qS®I§/‰ü¨øtñ(*í‰qÅÉ7ñÝj*_Ó<}Oô{4 a3xs¬Î\­S·Ò)ø’c+wðdð“5vÛÊŽßYŶO?Ec±5¶ÖRq-Àgƒ+…¾1/•*ð4pµ tî,þB%Fsù¼‚tç»Á»“щ³€=à=ÉèÄéÀ^ðÞéD°¼_»NÌ'È)Èv p¸ÒÁïè± ¸|c2±xøe±5Bí¨Ép9p+øÖ:iÅ„‚l×o¿!­îß“ŒVlÞ~cl­8GnŒqeBÎÕD‰›h^N*yã0Iho?ž‰€¹¬heÔ–*`NX¿ì¸¬YìÎðzMýG=kOÒ lWNï1;Múd#§þ,à{„±cÇY¿Üì﨧âZ€€_ЀP€Ê¿Ø ®ta]$…Vrp'øÎÃ^aW/¿D›Â.îß•ŒÂvÁÕ&[§}ª© »×_§]i%¥¢UYRY]àpIG꣱#ÀxN›ÆÞ¼\)Jt½x\mghøÓvE”<$f3ó…œUNóJWƒ*¼þ[€oK,kÁ!ÎÛµ~û†5Äzð}àïK¦í¾\)sÅô,Þ•‹Ó£F˜$È€Ÿÿ¤¶÷@'”-J\¥ä<7§¼›§S®T|:„xõ³ù™ŠSS1=jÏâ‰ùZ.9ûì³goÒ¤îÜžsG; 7›õ ¯ú¢¯Ó؉öêœïãèAäZøhPÂKÀ•Â„iµXôövÓ(\¿ÓıF;Œ=‘É "ÿB{OÈ× gF;"× © ×€¯ÑÖ1Ž ,l  âJí%ô†ãõŒYó%r¨5SÅDd/Òh®Æ­©I7¸lxVÉ)àqàÇ%ß(Tüñ!Ä£öf}+½«ZÕƒÿ›Dµ›Tô‘¾±¾q,~åþÛqô·þÑž†|¤0Ï©ÈšôCr;³6kzŠùBÏ.ñ?ùUëú—dzv —ì\¶xe_¶ÏZºrÅÒáÞlýèÉ›NO`¬ºƒ—zýäBúÉKþ½üREqÍT]CqQªÆZ2½áàùcÁ­´YðÆéÖúÛ¼YvñªÝ—uáüâü™‘xøÃÖYh£#‚áB*ïrI&+¾ö;öþtø×Æ I•Ý±}póµ™b @ò?‹•j›YØj•Fo³Ü&GÏüÅ #üât™¥ÿ­BÿGìœ5ÇWži8é˜ùjádÈ;°b1­üç„Œ»(„xÄÐØÈ]-.Wz7UK?dæl³š÷NãE¤§¿”¤Û$]îZŒx4µIó‰Pk´G3Ú€° ¼-öMWË`:Õ4- Nª=¨øcBˆGS{ôl£Ø~mÛOئ±Õv,Ó3Ú·Ùû¬l×Æ‘+Sô;Œm*aW Ú‹p9ørmW´‹¹jö­íE¸|EòmGů !Ŷk+ݶ0„xb¾•/Ñ}ÓÁµ?E—Ѧ'51¬½%3×Õ)>!âN>QÑe±zñú›/?iÏ˯YâÉßò,y¼ŠÀWy´i9¨ëÌÅ zžð"0ï6-˶rî¤,„F°¶Sô\¹/—W˜¤ œá—À¿«sV뤋Êùœxc°‚ßþüçÚ:a͵bz¾üø/´Û2T­Qê—¿ÿel?[Nræ]Ï2²¢-l¡|×oA#ï3¥çWŒ2yƯš¦%ÏP4=2d+æs Zû ÞóêaÀËvúE¡<žåd-ïù¶­Ý½iËÚkwí¹jpãú WuƒS~÷¨U´œ‰öÅ3>^ܱÆ(ÿi®¯ã»öˆÑ~–³?3fzíáÏ::fýÌâ`Ol&ëtßä‹·iOxÝŽUìq y|Çn2÷]º´§híëÊçs]ªŸøââ5ÆñSôþ”_´òÝ4·/κ™à_ÉSþ~g°³~`1>÷Q)(ý\‡qÞyÆ,Éù%áÏrKÅùÏ./Þ&~h‹¹Ï0ˆ?JÅÕÆ×”ÑåX“™¼(œþ¼CüM|ÔÝÝ#þ?¢',1}kqçÁƒk.êA(JhÞˆå¢ùæú÷Ój|qùGžo-µÄoª·}F5B¿=´øüÎiMÔ)ê<í‡:¬¡ëG‰×´kÛÚõ»¶WWx™¦…ðæ©S¢*<}㘙ß8f(çšY¼€=¥¶š=m¡×½»Ê;ôÏV‘>l雫Iö7GšZEŒåµ½Å>A¼«z•Zun瘋2®ãp>ƒ‹küŠœ«5“U³.ÍÂ׳*Õ‰]†E{våÑ廬 e-Ö¹êykç¡*ÁÜÕŒ¹ïF¾˜V˜¢ñ(šŽãc¯-¨þÄ ‘¶b¶¥}ÊîãÈN÷ÄÿLÊCÙ¾ˆùmZs¡åZié4œ>úŸ~ñ?ûˆí#V$V,r•ŽB{IAÀ·Æ®ÒNÿ—'Áò$¢Ÿí“ÿ+§?ŠÇ#©mÞˆC~J¤o8ô 7+ªïgÌœ½^m¨ áNð±ëua¹^–é—<]¾ñÊżð%DÍ™ÃâKþUŒ.qh¦DîJ1Æ”xM ±™Íôõô‹î,vÜT/Éí¹…ÞÞËÖnÜØIÃ:ËËX…âÀî]WmŒ^ƒc 5a•<ÅôVÞ9-Œ,ÞµqÛÖÅA±²,¬Q´üâÀâý‹£‹˜,Â^ðÞØb¯ ÄÎYVn`Õ2Ñ‹‹EÑéŠfI´s}+xýY{Ô¦O9<7Ws^ÍŠ„æ£å¾¶TÓ´×"šË¦šÃÖ¬[¬6íGÅ®^~yì÷˜Ž¾Llnß[MÂL7ÄD/BS.BURŒG¼‰>u!<2Lôñ’ðÈ4Ñ'4U³#ÈDcÄ'±·é6Ñ'Bx˜h*v=°¡&šØŒe¢«;¨ä—g{gEðôÎOjŠ1؉?°¡âÓ!Œ7°y8®8'7qРúJYøS…C/§ I«z‰¹dwÞn9ílz£¥<%†§„òòbù¢+݃°®4_¤ 3NË mMÓN€Æ^$¨‘ŽƒŠkö‚÷&¯ÉT|_ñ$-Ƴ¡,êé× |* ?U‹“]¨š¥dÊV« x4¸Ò¢‰”gþ yŽŸ°äâîˆð¥ÎhqLåµ->ü¹Êílnê²Ghî>Xס®tà œ¾j?»o¨ã ýq¯sà쾃Õ«uóèœSô$÷™Måóo’·G•Ÿ¾1kŠ¾u(“/d iEs ­P™';B‚w¨^Ö‹ô!“ÖL›U ÿ¼¡öñ¡ŽZo¦ÆŒ»6‘ª—ZcÆ]o{„ÖÅ«jLMeoÔK‘Šžp©­°uUËð§}•Äe®ˆzVÖàí†oï§#@Â’–Š7où¼ý"F§¾ü:m½©u/ä+5 Ó؈þÎ’[¬Õˆ×mp;~ˆÒ­Pÿ›BˆG[œh­|b[€ãàãÉhT|.„x’ÐNc–XÇm"j€Fò´ÃÄZ<4’ûLà ‘À!Á iC_€¦M¤HšÞöРÕû¥TÐê[êš>µ Ú[ Ðä­~Áu²ò(:AHdÂôlº£C-> K}-øµŽÏH8 >šD|F^W ãÅgȯ\F<õŽÏ¨¸àMàJaa¼øŒŠ!žäã³ÓY£%Ö/>kö­¨ Ô<\i’\ ´@w€Fb-ž ~æ ‘Ü°¼ãHÐHà B‚_ "xüM›ú4m"E Ðô¶‡ö­Þ/¥z€VßRçÐô©eøÓËjhEÓÉš^Ö°<Ïõ|£¶Qž•³&L§hLŽYݸ†3P1zº îjëbµ§ j®¢“ ÀIðI!K”:T\¸|_ì6míPŠ¥Iˆ)à­à·6:–&aîÞ ~o±4øàËÁ_ž|,MÅßB<õŽ¥©¸àýà÷'KSñ¯!žäcé3X£%Ö/–nÅ>Háڀǧì§gNxöºò¼ƒ™+o÷ ]~ÁÊØ#S†iÄ ·Ï@¹„ëÀ×Aá6ɽ¸<ò¾ÿF„Û$ð¶àÛTnkC_¸­M¤Há¶ÞöÐn×û¥T·ë[êá¶>µ jp¸]ò-¯+kØŽ• 6¿+Åla)sàj‹c6¦<~@c›ÕŒÙ¨À<ðfð›c·Y䘊?B<õŽÙ¨¸à-à·$³Qñ·†Oò1ÛsX£%Öq}ÚŒ:ýIò´ã¯OÏÌÚy¾?+ÉHÖÍȸ͔YFÔRá’° KÁ—Æ24U+Zt&£ ÛZàeà—iìo5’‹Pqk€—ƒ+ˆ6g@Å-nˆéôrÞYiF¢š?l30ž©¿ù£âZ€Yðlò抷Bˆ'yó÷\î_ëhþ†£š?’§ xĘ?v!ðp3$ÓZ`‚æŠ[LÐüQqË€‡¥ù#Á64T\ °æŠ·BØ0ów&÷/‰u4™¨æäi1æ„]<ÜÌÉ´˜ ù£âÖ4TÜ2àaiþH°ÍÀÍ×l ù£â­6ÌüÜ¿$ÖÑüe£š?’§ xĘ?v!ðp3$ÓZ`‚æŠ[LÐüQqË€‡¥ù#Á64T\ °æŠ·BØ0ówV›<Â:î}tú¢Ú?¨ ïcBö„]\¾ì0±$Ó:àåà: Q ûGÅ]Ü®dˆ¢Ù?*n9p3øæÃÉþ‘`[€Yp%CÍþQq-@ <¾á‰lÿ¨ø‘âIÞþ-æþ%±žö¯?ªý#Ú€GŒý#a7ûG2­&hÿ¨¸‹€ Ú?*n9ð°´$Ø`‚öŠk6ÐþQñ#!l˜ý;›û—Ä:Ú¿}‘ã?¨ xÄØ?vðp³$Ó:`‚öŠ»˜ ý£â–KûG‚m&hÿ¨¸`í?†ٿs¸I¬§ý‹ÿ‘@mÀ#Æþ‘°‹€‡›ý#™Ö´TÜEÀí·xXÚ?l 0AûGŵhÿ¨ø‘6ÌþËýKbí_1rüGµûGÂ.nödZLÐþQq´TÜràaiÿH°-Àí×l ý£âGBØ0ûw÷/‰õ´‘ã?¨ xÄØ?vðp³$Ó:`‚öŠ»˜ ý£â–KûG‚m&hÿ¨¸`í?†ٿó¹I¬£ýËGŽÿH 6àcÿHØEÀÃÍþ‘Lë€ Ú?*î"`‚öŠ[<,í ¶˜ ý£âZ€ ´TüHfÿÚ¹I¬§ý‹ÿ‘@mÀ#Æþ‘°‹€‡›ý#™Ö´TÜEÀí·xXÚ?l 0AûGŵhÿ¨ø‘6Ìþupÿ’X?û×B÷¼)HÖ<üØÃÝvà{èrÇ1dZÜ®ÓÕ0€TÜp3¸’%Šf©¸À-à['H‚]´À•,Q4HŵGÀã[žÈŠ !žä àÜ¿$ÖÕFŽI¢6àc/À÷7H2­&h©¸`‚Š[<, v0AHŵh©øÑ6̆n•­ç¸}QÍÉÓ“°‹€‡ÛÞg’i0Á½ÏTÜEÀ÷>SqË››ýÏ$Ø`‚{Ÿ©¸`÷>Sñ#!Ä“¼ýëçþ%±ŽöÏ‹¼ój1ö„]<ÜìÉ´˜ ý£â.&hÿ¨¸åÀÃÒþ‘`[€ Ú?*®Ø@ûGÅ„°aöo ÷/‰uþ:QÍÉÓ–F‘þ’ë6Ö¾íŒæBß02¦#¬ª1jOXŽaúî;_ŠïÞ ~§²¢$ß9É}ð~ðû£ÊOßHú¾sø!Á_¡"xYýÒMŠ÷kCß}çÚDª^jûÎõ¶G(´Ðsßy½_JõûÎë[ê÷ëSËð§Ã/X{dJØUii'Ì\Éòƒ`´lg»m¥\Ñ.ä¦YgSkþ÷¶•5†§È Ó™FÞ,zö>¾L=†øøŸŽ0ûûgà_Áÿz¤ØߧC‚?­"¸û«E ½öW‹H‘í¯¾ö¨‹ý­çK©mëWê!쯵 :hxî¤/gDðš7)#ãæJyǧÿ&XXX3 íÙæpÎòE8œ+ZžcEì››ê$«Ka²¡ÞíS;™jžAh£×|)gF.u0Ë<¥sÊ®Æw-ÐbžÒyF¸Æ· 8Â<Šîü`Tò…—c.¸üðÈjЊ<óDBŽïaN¨ÉN·nàI¡^|€9¡6óàï,¹ÅZMw/ðAæ„qg9¢ÎñPñU0xê=ÇC6¤Å>Ìœ0é9*þ‘ Oòs<ËX£%ÖoŽgMÊZ ¢µ‚/TŽ*fÎr<ãIž‚geíŒFÐÄ&Ù"Y£`zEš÷1œ›‘Sã]üº©¢ºœŸh´©"anÞ~G¦Š œ¾üÅÉ›**þÎâ©·©¢âZ€wß•¼©¢âï!žäMÕrÖh‰õ3U­yËôK^TcEBµ5URú´1*«E3„Úš3=3#‚hÃ/zrdzpTœ*X4’5‹¦á— …œÍ}¬Ët׌YŽÊkð𴙤cñº_¾ñÊŵºÈ®õÛ7l¬!›Ü ¾·þÑ/·è{±»ÄmF{Ö1K¹bG§l7wØ·¼ ÑŽÖȈ•)¾½Ÿ&¼Æô1ÌÓJ[Vë°ý‰d:ø\æ„Úš¼ÆÜårT‚ðLæ„ hZúX Á<ç2ðËêïø©¸àåàJgyâ9~*~Sñ$ïøW¡GÖÏñÏ÷KþUT­ ¸|‘¶Pw¼ìúÛsî¨-FÈ4ÓäˆÑ¼gg:‚x`Æ׃¦© öâ¯f1´v#·Dƒ)~}Ê·#÷ ªð À›ÁuÎÊÖè«Ð‚ÇŸ•Ü7¨ø[Bˆ'i1V£7ˆ'ù.º…¯ÑÒEgvƒ»Ç,?LŽYtx_t0£,thÙÁÌf+{q¸g¶Ëp„Oª¶¯Ò'mp[›qiٽ몵új­-Ï$Jèƒ+mŸPq7‹àÅØ⸎ncó¨ãÒîÒI…ó^$M x;øíúÚgŽlos¶ÏK÷‚ß›LûÜ|9øËc·ÏBê3¦,Q5’å>àƒàÖ?P£âZ€?”¼¡â!žäÝÈVm‰uæ…mv£..LmÀEMq¤gÏéÅsE 9koÉÌuÑÊ·ix"zsó]|ø‡©ø˜»X´²ÝÆÚà_Mÿ¢è.ü 6g%ʬ¨Ò^'_ þZmFíhn§Å7.ŽjÛ6 G>þDým÷:à“àOÆîIÝ”ù²jkWqxŠÎJñmÀo‚S[#ÎÝÙæl¿ïþ“dÚï[ÀŸ‚ÿ4vûÜgšqs9wR4Øj•ûcª…9¡®Xbñ†­*ý‚J\Èœ0öJÍ.bžR2ÊÓWe:Z$uðxæ„ÚZd“’L=x:sÂ$Z.!us˜-2Ïh.O¡Qž<‹9¡¶FY¿]©QÚ2O)-ûGo”ÅÀNæ„q¼¥~ÒìaN¨¯Ÿ *5Érà*æ„I4I/p5óÔêY®5À‹˜§”B«ï~-2®Ô$ë—3O%ÀŸŠnbžŠ¿ÉW­I6·0O©M.Vï$ƒ[”Zd'p7óÔîdZä àUÌ Ò"W¯aN¨­E¶©\7Mæ)3™¹8Ìœ°!-’f™«å­>hY¼k£b›Œ Ì “h ¸—yJ)]“†6ñ€>séRZo\§Ô"û™«%.‰Þ"Eà-Ì Ò"·_ÀœP[‹ìئÔ"w_Âœ0‰y!ð¥Ì Ò"/ÞÃœP›Ýº|ã•;•ÚäUÀ×3'L¢Mî¾9aCÚäÀ˜«å ®ïئÖM¾•9aMò ð æ)¥iÓ鯠ÓP½? |'sBM­Ò*{ŠZ»¼øæ„I´Ë»€eN³]Žï6vÇZt&q>üsÂÆGaß~‹9aMôeà·™Æl¢ùJùŽI†ïÀœPWßQËwLÂüø;æ„šÚeŽ|ÇTà¿gN³e"ç;¦âÿ½‚Á£M/k¬1ÓbA Šýæ„qku™ŠÿCƒ'¦ kÌY£%ÖoyÁ¤eŽ­¬‚tmÀãÁ•ªn{žœc§R p%].9í’Sþ»åí<ï“žq~ZüÚˆ]Ô·—‰*"ð%àJc}{™H”û¯Uý ÷Rà«ÁãçùŠžæŒÊ ðµàJ ýÑl×|øë’·]TüëCˆ'yÛu«³ÄúÙ®–¢èê ’µmÒ}uè­síŽs' ’˜²þma¤2AogÄÎZNÆâ-˜f(GÔˆ½¯œ<œË›wGÓ¶™uSe Ö®ð2ŽÞ ~¯6ûµ€*;°xäÀ˜Äy5ðp}wãÔ´aTÜË‚+í­›öÌŽNã3—í’9úé•p«¯ßÌ׺ôùÝÊv"i(ýmØ$oåÒÕ"å ÑŽëå)}žMŠ5\ROèOÕ{øWð¿ênô¢J£Ë„Ç0O)‰ÞèO£Øc™§”ìÁ´·ÐA—œ»ÂEá… B)\¹ñh»ŠÄåÌ 55ÞÑÜxãΘ©Ô~ÀË™'±JÅ­nb®a-t9ßÀÀ[ÂhËÚŽY(È~»ÉôŠ%aØÛû{{—t­ª4ú%™7oa®8û®qôKÂÜ ¼‡¹ÚÄoÔÑ/x+ð^æ)5gþ´¯,Ìù®JëÀ¤^Ç<¥ÓU]èÆD‰Þ|sBm]¬rFrÑÓ3_ã@Þö3]ž•Qѧ‡O0W›©­ú˯¾›9aL…1dèåSVxQ[7Ÿ·:S °ÎÎDÏGGÒý ð«Ì ë="!¿Ö‚b¿Æœ0é ÿ žäG$—s”X¿ɼœ5aEM/J"µ6é¾èÎDæ9¾0[ Š“–ˆ;z¥]ìë홉®Êhĵš5Y²jÙC!7=Uóxà^pµ]ºì*Ir'ð%à:—z簫Dz]å”QM+É»x;øíZL+ý¢|)xüUè…Ò´f9,‰<µC²¼ øzp¥Éh†4”̳é àñ#R*þ!Ä“¼!ÝÄNbý ióp1êÌNèp·†¤j3ÏÎÞ:3¡·;"ìc–"‚é“Ôòâ×±3¶<ÞºV”¹ÓÅnyG }ž ¿S¾3Ûï6Ö›G«tø64‰¤ð2ï·}£ª±õ¬‚‚do>®4ËrHc;«ØW¨þÃS*î^àÃàkÔCª4ä$9> þd£‡œ$Ì{ÿpCN*ðmÀ¿ÿÛø¶=ªg£â?B<õölT\ ð£àñ÷jDölTüÇBˆ'y϶™5Zb=›Ù³‘@m@ýéB_ųñ×ü[·±ÝÉM‰¡´C˜NQF€Õ®Ëö•Ì½‘EÀ7€«gÍ óðIp%ÕœQo¾ ümÉ›3*þí!ÄSosFŵßþŽäÍÿÎâIÞœma–XÏ5X³Ô¯ Y0þlë ‰þ¥lϦÏ|̘ç0ó”mœŒ]»gùv¶dæ:Œ1«hyî¨åXvqŠÌY9yí1ÉÓZ쌃íá‹_ƒ'"b·éªÐ«|k¤”ãùDËñí¢=A?ËÙû…um·ºG»;åç…œËgâ…,¥-Ê$!Á•‚âÇÞñqÀŸÿLY ã\4H¨È µtd΃HøŸÿþ§¨• o$}c üçàV¼¬áé&Ń´‰QÕ=¶ µsÓF¾6H›\ÕK­qmÞF ‰«'o™SíõfªßTßRç¸;HŸ‚†?5(ÖˆQrØÞÛ´¹‚L>û5[ )S'2'<âliê$àÙÌ [š:'$ø9*‚k±¥zÄÐoKõÈÕ–jl”ºÙÒº¾™š¶´Ž¥ÎmK5)høÓ3h¥-Ý@å¹ùòe­Q†a /„—Ô`º%"u)s¤†TüÚ OòÃ+ÐÓë70l°¼a׺KBµ?NÙ°Ì\ÅŸã\§m±¥a 'µÞåy­‚Šñ™$Æâ å5£‘[̳W@dƒàµù—y—­Ý:ù0Ér;ð.ð»4vØ‹&TÜ-À»ÁïŽÝS6uÌX]㌷£–×m\M‘¡o\lô•[]´®'BFVb(‡Ò%Õâ%ÀWÛS5¢º²<I¢ï¿þ=.ªæ%øuà÷Á¿ßGõCTüBˆ§Þ~ˆŠkþü‡Éû!*þG!Ä“¼ÚÊê,±~~h~Öµ‹QçðI¦6à¢&Ý·z¼ª³¦°‹$ù(ðàŸÐح뵋ä}ðÃàÊËß³~ùqà'Á?»«o‘3Ö#%O†MØÎE1’<àäÒ¢çæf*²ì†å%Bö§ oêSŒ©£˜ÖÛpS±-(¶y`u“4ÜTüÑ žä ÷6î°ë8€€)×<®)îb¦å¾§l¹s6oÞ ´}‚CÈàÜžP%EÚVø8²™u=»8–÷g[æÀ*ãwè˜ø £Cv–¯*_ð£‰nC¥¸¡‘(Iòðíàú–ŠçˆD©ÀG€ï×°XÕ Qñï ¡òbq4ƒFŵßþ®ä ÿîâIÞ ]Éê,Q¯A›{ª9ëé,qÚ€ ›â˜ÙOO2³YF¬| STÅ%ÑŽž ~ný÷J(+áyàç%¯¸Tüù!Ä£©ömCåf©RöÉÐÏí@=W)E~Û¡èâQì2Ï+Ît“ñ$ýVv¢AÔÓ8 m '¬_ˆö¬A³Ê=ê":Ù`MA._¬lëNŠÛ€$ƹ!Ä“´ ¢ÉÔ¢GéÓ ù»Cq¤‘1rz16˸ùaÛáhuRDª†éLÓÝ%Ÿî†àíO†oïQª+§Í3tX2o™~ɳʇÜéð´Ù5s¯SÎ5<Û7(8v}þƒ›Íúå?ÈO³¶(Å£Châ/â—é ’"²U>¦ß,z¦ãÓ%K4?"Zž´ߥ2ÌIQSϳr\Óð~ÖΚŸLûMùr.³}1>_ßUt»öW¾ ÿqeìäydžUÎå¦:åõ­bhýù{²d¿à:YêQ¾™/äˆL˜žmRÕ:䵓r–'gË=mò ï·Ä€À_Ÿš6äû–7QÎ2«Ñ|cÂ6Un’Ý ÜMZÃpš¶‘DzÊ®ÔZ© AÎ.fžV2#5â‘+TÜéÀ³™§ã¯¹®)Çeò&ŸÊœ[3b4dúà Ì u5ä„RCZÀæ„I4äà(s˜ yV¹!Åx¿²OÔ¯xM…æÞÅ<­´ §³¹^¼9aÍu7ð~æ„1›ëúNi_É%†­h9åy®çóB¯¿·DS4žëÿXÍ^Çè–¯þsBMíÜì[J ýàŸ˜§õmœ³¡ü3s˜ ½(Ô/w«µÎ26·0'ŒÑ:U®”îQ'™ŽžÌœP[;Õ8^IÅ <…9aêÑ<ølæ„1Õãêá±\ÚY× SÄYKvt«(äC†ÅíÏÔ•wTÒù¥|Þô¦B 㺣Ž$èÍœ |?s¤4W±‚—QÏÀø < Y›+Zž#gÛ)À.Îߘ¥¢K!y†pƒ:U)G;<Ê{‚åØÀ42c®o9᦬ҒQR^Xé— âƒ`È Å,ñ©O +wÑ©˜ «ñ ¿þ…ÃÄ‘Lß~ü»õ7ATÜ?¿®oWKMDÅ}ø}ðïÇÖìû*œàÙÃBIyåÿ–†â’LIè¦SêN£B‹\Ð@ÒÜÉ1³(õ®§<Ël(’º kW^•êáÔfŠúùƔÜPSÓŠºF bHšðsÂT$åofNSE¶VF‰3ÛÏ*W¶ å±½éUt&²W¡š~ž9aÒ^åÖ26lºõZNkºµj©Gù¥aß’æ Já4WÙ‚Â[*OÒAÅÏ !ž¤Å¸¯?À†éÄõ(üú¸:1çü‰3¦à·ÑždIž ®~˜c,n ’ç…OÒŠô<´Y€z鯇˜ƒGŠz¾½“Ó?wuJÏ]íbm¿“N OZ¹aû´Ê<ïYrÓ:ÄÿéHcä-Ïž‘/åŠv©8¶³—§Õˉã8höl·ä—Ï/)r柷„»æmÚ“-Qj‰©¨}hï}o3ÕT¶’ÃÜEôžF\¯«`fÆÍѨ›X†X¹$>›yJi-Þ¥âZ€§2'ÔTlËPa|´F‹x F=—ÄV—ßÈÃ+&]1”)ñ„ÜÙ`¹Î(•g¼Æ¾àYE³Xþ¢åÉ1q@Ó»hS¶•“ÃÊ,/â‚C‹ÝÆ5U.îãýp¶3ay¾ÕŒYp÷Ÿ_¾v…®fÁÁ™nÍë ÎÌà›A aœ“º”1}!sBM¢Ò*ø”t?p%󴲆Eò)éNà*æ„1ÕoehSÆUUos Ï“ ËM”Š!Bz5p/sBMM¹0|@)ã µxót2c¥´|1ótü±ÒZÑå’¥è­Ø eÑ4eÐpô· ŸÊ‘‹ÜÏJ'êhËU1úL‰ÑUúsÌ “ž ÚÃzQF=3A 0Ußo„„ ÀhÓ÷«ÍJ+H¸¸|qýƒ.*î(àÙàñ7ïöWs–µŸúŸ1LifB}@áu¼ ü*m :ŸÇ8Q  34ÁÍú.*îjà0øpì6 -­ ‹$IF¦-|À)Ñ:Ipà·’OvZÙÕQÕ$|¸ÒL<f²j”Q ›Ï6,¢,Ã(ÿbTTø‹ã¾ša|/@< y5¼ŽŒ–WÓT³ûÕ8IŶŸ’ úFz Ç„îYŸ [G5‹$ѳ€ÏNýÍ"w,ð¹àÏÝ.»ËÆnƒå Úy×£²®­¦íe+Ñh}hœgÈ;¾U+—¯1v™%1.ùcFo搜Ψjt&Ð÷Ôù²èpÙÆt¾,:\¶±/‹`:ߦèS®Yt¸l²/‹—ÕÚù.)w¾MVvÔòÃ=n½›q8õ²eK×à ²Ï-¡ÿ]Õ½ŸeÑ·Ÿþüõ3 }ËjL?³Ð·¬Æö3 }+Àzõ³ÁÈýÌBß²’ígú–¥µŸ]]ég%šãìÌŒåíl1ÜßøáÜð™ìd½kŒ«m+3V6KâC«h˜¹nrs}Ë¢w? ]Ž°^lP÷A—iL÷A—il÷A— Po÷;¦ÒýÆ#÷¿ô¹t„g©v„hýo}núy,c̆Ùsèþlj ?oær¼±Éê’;Ûå–'ÞSÙ¾N8DÇÎŒ‡;¢B¼IbÀ[ÀoiPGEçmLGEçmlGEç °N~ppKä~8Š¾G˜ Eß#Ôç×–ûᠵǻ¶¸Îx^ŒèBnP~ ¼ >’CºeÃVDïi$þ™À=à{ÔÓÆлÆÓÓÆлÆÛÓÆл¬SOÛ}Ze¬©|Ö Éž6†Þ5¦µ§í*÷´¼¹ÏΗò2·KÎsÝió*›L/;%ºÛî17_ð]9Ü[¥eRe Ý°^hP׳ÑÝìÆt=ÝÍnl׳ÑÝÔÛõŽ ºÞ® ÏF‡³¡)ÏjRŒû¢u>ŽÐ7b·Ì5åÎçYtÛv†ÖìæQ»¼*]0j¤JœWÚ¶®¡Þ„^wSczàMèu75¶Þ„^`œßÆu‘ûßMès„ :¿›Ðçõ9¿ËËýÏÊlOn [gNMŸßÜ&Æu6&4×ë,oܚ¸Ž| Âü UâL`h®¥!ým}l¼1ým}l¼±ým},À:õ·Û"÷·qô±ñdûÛ8úظÖþV 6w˜¥œÕµÍthkg¨³É¿‹0“?‘®_çÔæ8ºa¡©±ÁfÝ-ט®—CwË5¶ëåÐݬS°yùÆ+wFî|9t¸\S¢ÁfŽÐhÒlVæ6‘T&0ÝÙUÎïT{ý 33ŽxsÅc‹ø/1 ÷Ä¥Ñ{"Uî,à­à·6¨'æÑûòé‰yô¾|c{b½/À:-2ìØÝ æÑù\dÈ£óžÙ¤k‘aceÊÅÊÒ&–’3lˬkµ¼âŒA__ôîFU0€Yðlƒº›ƒ.æ4¦»9èbNc»›ƒ. Þî¶0ìø¢w8̪<«IÑEëp:áYàgÅnš5;Ü3ð„³û^ä“T›ÅÀ½àj‡>â÷=ýÍÛ÷ª–º@ö9ñ:«”<Œ®æñÄívQƒŠ_BàmÌ “hø"æ„1›æ ™¼{Ì¥«¼åö²éèœs‹—ºøæ„šZø¹|2_ÞLPNíË‚~ø'æ„ÉXЯÿÌ<;ÍúŇXX¢ÖÍK2-x%3Rç>ƒ™€3áåÛZ=¦¡’ƒ¯!ïO—;Ò•w9!ó3šì0¼H)àn*ùEþ·B”ŒI—5É –|"›þ Ò0ÌÎ!”ÐI‹çÚyIØEÜx™íðeGTrqÒ5ê›!ý>ÝœÉÓÞ=‰pÈ7ês˜JB#³{E¤r!ºü‚,Êqƒ,ɶhÈ}ô]Ê!óÁwÊ3ºP–=Í–ÃX׳XY²6íß–¿©c¨J}à?[0oQJRotä±µ)£žÑÑ¥<:ÚŽ¼£t5V(ç(NNs~RÎ%j"÷ˆbÞ’^ ~©6ëÛ"d‹œ´ƒD¹¸|Ký+·xø±Ûsg(iÇZÃ=,œE6hÐQÑ Êü`íž;IMŸqs¥¼Ó!z>%†¥¾•³œÑèéÙ¨:[€? \­4>í²G¬œo+æsÈ ¹¥â¡ö³û†:Ò÷:Îî;x0èaã5D?êªÁ»¶­]¿k{ ù>þxTùéÇÌv·ù›|!cH) uõ¤L¢š /þ­!Áߪ"¸|Þú3É5’8h£jŸ7Ô>>ÔQëÍ\½q׺zŠT½TÒº·GªòBªjLMeoÔK‘Šžp©­°uUËð§ûÂWÇM¿½F*Ýí6¶UÉè-óýW{P%a–é‡hf¡PðÜ‚êŠÈàeˆpɳ÷ív·%â[uÛz.ó”ÒZa|£|­¢Q¦¬Û™F9Õ¼CEp-FYµŒòµ*FYHQ²Æö8¤Q®¥ìz)5rKÛ(kRËiv(å ÓazŽ¬ÀUζ®bNxdØÈÕ!ÁW«®ÇFjCkàªG¤È6R_{Ô#p­ëK©m#ëWê!l¤µ ºÎÃ~¾–ÂôEléLaÀ§ÿ.RN`žVfäãp®rs|Œ^~õP›E«5íîFfØv²íâ?úèž÷l¿üß%µúÝ\SB´¶"ñaæ„ L Ñ=taN³­tÒ½—žÊT]êQàÌ 5µMÕõ©´Ë»ïeN˜D»< |s˜í’VêCï~€9¡ÆéWi‘?Éœ0‰ù ðSÌ c¶ÈüN•û]H†O?ËœPc«,Qi•/¿Æœ0‰Vùð™Æl•;C7'K@Ž™¯L³T\ïiô¬ªŽ«ƒ/N•‰Ò3V¡(×ü²Y«ü£Ó&Z*‰Ì’#þµ¯¢_gL_Ë<}­6µXT®†Z^k’j0Ï<­´ã"²†¤¯:ÌÓN|KyMÊwæ„1刼¦Wä–-£ž5½ ªÞÂlZ¢ýJ”Î;kz‘M] 2^~A,®¦Û­¢çK9SA¸Àð*]ãÚ?*®x1øÅõïITÜ…ÀKÀ/‰­:½†?åÍ}d1µ]1ÝÆf‡wëЮ„N•å_’öR  îjõ•~TKH¢L§À§’i¿p?øþØí·vÖÔ¸~:”Î_‚.ß&¿‡~øQúO•=ü(øGµ5èB ën™3ýœMûð«à_M¦i?üø×âãÞ$Å?¿þ-m-tz¸…úŒ 娛!rÔJþøßàÿLs}ø?àÿ»¹^ÞAæRx`Sæ¿ó;‚››rܼmæz|Ú¶eâÓ¼ÏcŽ3Þqc™¾›ªžÚ0ÁyÓq,¯Û¸†î˜­Bûs‚¾­¸O‡^Æÿ2¦îfNØ`CºøJæ„ ¨Gê%ÀW1'Œ©•k+UýhêÕÀǘjjž£Êƒ •6zð½Ì“˜ ¡âÞ |s 4g*:œ=긞•¥^í-3Û‰k·2¹m•ì±öîtÚ@3ãÒ­ÛrÏòðTxwhÈ +Ûw9)$0ÝÁ<Ý¡MÎ,Û÷^¶êñm|ºx%sÂ$}p;s˜ ¢rÀ€$ØdN¨½¹f7•ÑeDžp%)¯îcžVºF9zsíN1O+ÅäÓ^N·1)Câœè½Sõ¬¼;!"ã™}6ú6a’u?ð­Ì “žR˜`­(£ž)…qžRÁÆavãù$*IÊܤ©C)ÜxN‚x@ܯŸ¡ârÀ"xü åJ7žOr78ÕTZëj’è7ž“ /¾ü…É4É~àmà·ih’öèn‡DxðNð;µ5I³o)µÉ½ÀûÀïK¦MîÞ~ì6YÖ¾†~ÚùÐ`-´ñ3†¥{ð³àúš-Ý—_ÿJ2Mø9àWÁ¿» ¯Dûj8‰ó5àÁ¨­y ¾˜¾jdG·Õw¨4Þ/åÕß¿hR¼ú;zãýŶ2OÅOyqR&§Í¢úä4‰´xsÂFÎy(gÏc®v÷wäFJ=x>sÅÄáO ÕÆÓå3šÏt$mŽš¶óLÆÓ‘#xªm;ðµÌ “Žà÷±ò”QOß=/Î 'loÖ¦|Gù%1Š³£U §Qg o©–¤Mþê¥Ö8–¤·ñu,IO7jÔ¬~†©¾¥Îq†IŸÂ‡?U=×’&bžV~ãØêÓj+•¢]N§ç0'<"ìrúÜà窮Å.ë£ú5a—k6·Š Ö#kT¬±¡eƒ£wF½­šö¶Ž¥Îmo5)røÓË™VKŽÙgB‡-:[YÊ7çR 7yp§ÒiüpLTÁÔÖÛ„ dÚ—t.­Õï朦ǀ{™&08M=æ„1glZhÚ!ÇS Å1ÛãÙø·ä‰›Ö¾#ž›MhÐÆ™%rÜÔnÐüÎ3žQ±‹¡]"~°+gÖLδÚQÞƒGj8#Oø9¥ü°å…dƒ)Ó $â_ŒD_I§ð›'˜6v¾¤ù ðVæ„ ¨dó$ðÌ cZ™ãf.äEožæïcN£yªF9£žUPìAà#Ì µ5SóITÜk2'LB;0‹Õü&æ„1µcL8“\Ž\MÉçñ¾ez™1Ù‘gÌÁâ¨T¥¼Y_’ÎKv|> :}*בT˜jùcK󖶆Œ)šwîÙ¦8xh9x2s‰GÂà¡å”২®eð GŒêG"‡ÚE»ªŒôu” ±E5J˜CáõZjêXêÜÃMªþôÒ.i69`Ìåd:*_(º23^22cv—¿·DÑb8/³êˆ \‹«Q‹«bbƒ« ¢Øk€72—xDX3$¸©"¸«EŒZù¹òJæU‹H‘Í«¾ö8d~®ZÊÞ¨—RÛ¸Ö¯ÔCW=jþô4#k‰!¯ø’ÃïvU³È·ò©Ÿ3oŒÙ<¼¹Ä#ÂlÞüÁõ˜M-bè5›ZDŠl6õµG]Ìf=_Jm³Y¿Ra6õ¨eøÓ;…ÙtÜb0Èó³çªy–Ú(9YËÃs9clªàŠÿðmyA ®Ø+z%dõ¶©Uù)š;('Øè~t0ô2æÍ|ž†ÛW£Šq ô9À†m2½…&¾ñ˜œM oàÆc*~^´ñøxý6L'^ˆÂ_W'æÜx|òz³hº|;•ò¦ãâ{„ç‚Ÿ«ìjŽŠÛ†$F{ñ$­J·¡ÕÔ£JWð¦ãp»UKZ[å&£Êj–âÎÙ¡„W€«Ýà£í¼‰² xøUÚ,gÍÉ~*n+ðjpõ¹™àÓχΠqsùfÞ2&Í)žÔ]’‘›2Ú³¥|~ªÃ ³¢½+ú0§P"3Ø°Þ-/¢oY6%A6²¼)š~Yne6h £dz33îÝQKþc9\SÔ«kåm×4©ÞÖ1×Ö|N9]¶Ô…À^æ„Ú¬Æ"w.°9az-ï!ìgNS¯¿`Œ”~È„l¥¢›îȃŠµ;å{žy½ª'3fR&)+lÓB·±ºG3­øALÂf\º,°È‹eÈ2ÕÑm¬u‚ýôw;—+‰‚ …O³µ##–G=Ov233fÉÓ‚OÈÔqÃVÎŒèÒ{\ü?æ„I{¢Û¹;”±aAÍ(œ0ñ@—ÂÞÀ@—ŠŸÂº/Æë°a:q' ¿3®NÌè>—NÖq––õ®3B—­f,NX'F»QÞ;ñ=Â.ð.å€÷¹qÛ’Äè !ž¤Uê.´^€zNÙ5sÀ»®œŸºSÎBÈ™b:&&ì3ÍDÔ>ŒÖœ¸žžž'SQ;PƒéP†å ±®#·M!q°#ÎŒÛVi;¶³ª’óÃ?QkM°Ý·„ïv',rO¾¼­rB.´‡ËŠ|:çn¼ü»éõ1O©w©™]iUr`qqqÔ`ýnÖ)‰Ç3'¬wPCŵO`N³wä;IË„dÆäÆ­C+%gˆš­t3u®Ø{혪ú,à­Ì «k{ÎxW¡†ðs.ƒä/¾”9a´Ð7’^!_üe*‚Ç_Ñ&F­í9¢]#/„hªz©5Bô¶È!·çÔVøF½–êK!õ-uŽ¥}ªþt[•äšZnÅ.ù2mŸq™{Té[¨’ZÎéãš±èLrøcæ„G†µýIH🨮ÇÚjCߢ³6‘"ÛZ}í¡}ѹÞ/¥¶¥­_©‡°´zÔrš:ª¤È ‹ò ˆò‹#."ý%ðÌ ù§àR\Ô"†îˆT‹P‘­¤¾©SDZÏ×RÛNÖ¯ÔCØI=ªþTßžÆ|éc™6"¼Tºª™ä^<…9áa:ÓÏ þlÁµ˜N=b軪Y›HQ §Æö8dxõªæz¿”šf³Ž¥Îm65©eøÓÓ÷4Ý¢™ ílÃw›–g³637E»ÕÂÓrU†P•¡ÆXØ‚ª…}>p„9á‘aaGC‚ª®ÇÂj£–…U MõˆÙÂêkCZØZÊÞ¨—RÛÂÖ¯ÔCXX=jþÔªjX«¥#–Æ3”ã"È2Zð,ŸòŽv—Q ËË»ž%ÓT9F CðETõ‹ÚzàѼf9‹kÙ†9–-Ó_~—9¡¦ÖŸkÙ2ý%à÷˜ÆlûgÉË4¬½%{Ẩ¦£L¬ -õ}à¿3'ÔÛRcãþMJ-õ_ŒÍ)æÍJ¢·Ô Ø4sÂx-•z´ƒ“úç­â˜+³¾o2½b‰vËõ­ZµJ|:hgíqílqñ¼éíý½½ý|ÃâŽY(HVþwâÓ%œ;X~Ú|Âe¬á <„H–çñ:“3 á{]ü¯d¹]A™üo;ÈPŽŠN¬‰›ò–#ÞÖ½©äå¾Vä»)o«Ñ!HóÄvÙéf¨ÉdÜ’ø¾ñÜ2JNÆòŠ¦°ISAüüëà×̼üâ¿Ú…™’ òƘ%Œ˜;j9–]œê¯G®»$Ÿ¾D'¼E4êgÄ(s?mÖÀ¾ zQÑûMs3cËcÌ 5õ›J ]¢–ÿ–¹D]ý¥²¹uÑÓ3ÄmÈÛ~¦Ë³2Q÷^‘°o¾¹D%¡gýò›a.1žÅ}6yGÛ¡Í©q7õ´|øuæõ¨Ï1lvÍ옛Q±»-ßþ”¹ÄúÛÝ–oÆ\b¼öúÏY{j˜ËŠÅÖ¢²ù]Øa@°Ý98VwhHZáX"?PÊÉ#ü¯„å™ùe>@—Éå)…™DÓ],ÿ#¡k>[«-ffÜâ¥3sÝFoߊN;e¥ÝK¢á£wþsÆyÿÊ\b¼wyËáKX•ËØ°]¬/Eᄉïl¦}Ÿ-(¼;›©øy!lÐÎæ—áõØ0¸…ßW'æÜÙ|–¼3„â¢ö]å0gS8ÌQû8`/x¯ŠØRÜ£ã6'‰±$„x’Öª{Ñ€êѪWðææµ¼-I6bXU^5ý¤‹éytý“+¼î„ ÎÙt×wD„ná›™Ò–'\|;_?¶ÞÍŒy¦s¾UÉ_ŽwAø ðW(¿—X3§;kˆ>çÌ)ÉýJààD•Ÿ¾‘ôÌ) ü`HðU?sªMŒZ3§;#Ïœj©Æ$aõ™S½íqÈ™ÓZÊÞ¨—R}æ´¾¥Î1sªO-CŸ¦z8\;¬e§Ñ·jÙÒŽ`ʃOLŽñiX²µ|vÑÎÙ•YŠCß$-ŒrÎôFƒ¨žïð¶ k_Á’C•Ï L¿aå˜9øw —âÛ£Ž="œ :Hl¿4:*Eœžíƒñ{*WY‹EÅ÷¸%¿›/Âù’jùg8…ƒÀ¡FK}‘yJm˜>™Ut£¢7I} øMæ„G„7¡ËeÁ¿¥"¸o¢GŒÚYE7ªø=BEõ'[ä›Äj+|£^KMRÇRçö(šT3üéï»Ê‘øOû5;Ç-sé|sl0t˜6P¨–4D‹[Š:ê ½ôôg™&=ø»='À†M)Ü Ÿf¢x oà4?/„ šf v«¯Dᯌ«sN3´Õ͘¤]ƒ3gÉdQ‘ÏÍ¿ß#<üeŸ¶6n’ç‡OÒšô*4Z€z4iO-íM ÉE¹tºP`Ä~ÂíÂ]E5Ä%\¾L[¼vR.Ð9_ê\^EçH´‹»Àwi jÞáI.‚ÆnÖãŒö«m+3V6KŸ§Òb»ðŒFkÑôúö±[?󾂵¿‹AADX÷cE¾áo½Õ•’¹j‚íÞ&ž‰&™(P_Äëdj”š¾ü…±õh’–ûûåÝB†_&÷®Ù—QÈ(oM*xVÖ– •ÊÛ0(À,ï·˜ä(&p×ÌâûväÛ‡¨Ò·ÿ¯ýÿi30 ]*™XãÕlíS”`cAR6åQ0Ý^òߊ­ ×vð¶t UZ¹²“fÆ’FÁàBCc§ŽfðjMm=O:‘rÀ‚xn“PK§ÐëS{Å3,7vKŸÚÁ7•‡t£ö„åÐPá½xÀ—àÝÜ¥,^3>½`ÆTœ£{ÞÙ}Cϧ9º,&éœÝ_ž¨ËNí±ÜVÛk\ÖgìÛsÀî;XþC¿üC¿üC.늡tðÉÂù凄%ñ{â#1tµ ¾-­{ìN”u]í²ì¾i%Ùý³Ë)œOˆÿ-—* úËŸsª‘ÞüKÓ"žIÝ-pGÔ oTjÌÖoª‘¬žÞ©"xµ‰­é7g =/ Õz~­Úט5ÓVûH“‰õyçµÆŠÉtʽ÷ª5NÜ44F½æ e«ÏÊÖ·Ø9feµ<}oÄ°iƒcgÜá*ÒŸ!ßÎW¶÷vCESüáÚNWº‡ûOè[{ìŽÀÇõÐÜÂýãÚÿLÍs¥1¥É\Ùnw¤x®Ï…ÿ{Á鹆ž§ÜŠJîHK•"»#ý/²–;ŠÑ)ô2«VCS×lŒ&Ìé9êWì!<‡–‚ã{ŽÏUPŠñ÷ ðÏʹ£íå¾AÁŒ™+Œ!šaÚgì/pü—~ù—t`¯ÝèSwÙFeˆ"j ¾ÎÑRù¿ú«üðÞó铽ç+ûžÏ36ßÌ-ßùz°ùyé5o> "ø!}9ô¼ºêŠÒSí¨þ©/»–ªs×kÐ ¯ZÕD @cti.WÇbçöpz ž¾‰Š6¡x‘÷ö……y„Q_Åü\o„½}aow ÏDtB·:ƒ¹|ü,¶‡?Ÿ)z›f¬^4H<·‰çZ¼Í|ámêël>’ûƒ*rÇß ¨MŒª¾îô¡öZy‡ 6A#{)}­t(/U³Ë4èUU2BÇmT[Övõ+õNBO›¦,r‡8ïRÌ•¬ò ÿvè+îKÊÂÅÙžVw_~[<_ϱœþNHðo©®Çh£ú•`Cí…󕌽™"{} r¨íàµÕ½Qo¥¶Ù¬_©‡0›z3üéõ•Ý¡{Ïäq¼9E»ö<+gâr³g¶ÿ&ge.=õþß²„ë×Ò×ËÛV#E¹6Ö§h[–/O¿x6!¸åòàU×bõˆQÕ/¸Ü¼*–XlQ-±Æ†9”%>´ú7êíÔ´Èu,un‹¬IQß>Ÿ³‘VO™ìœãò±é)ô‚¿‰ôb˜„ÇPÅGb”[±ÓAÕ"¿ø>ñ¼I<ï9R,òûC‚¿WEp=Y‹Õóï µ£m•Ì±Á"›c}­r(s|ÅoÔ«©m‹ëWê!l±öi‡Jjç°, Y>¤,Kì‰çý3fÑ°LÌ_íŸ6%—9TmìG€¿χÅóoZllÝ'ž[~’û7*rë1±ZĨ5ñ\C ”L®A#›\}­tȉçZ]¦A¯ªúÄó3ï¸jËÚ>¢~¥ÂGèécÓ”EÛÄs ܼn^ZY¸XÏÊ`Þ<à"ñ#=ïX- þAö¼ãB‚/T\‹Ð#F­‰ç½JÏzdŠjì56È!'žUÌf]ßJM³YÇRç6›š3üéó >aýŒ&Ÿñq@õ¹çrs¨âM 1¾m{coœ¹çyyà­âÏÁ#Å¿ $ø-*‚ë1ÂZĨ5÷\i^%c¬E¶ÈÆX_Ãrîùêߨ·SÛ(ׯÔCe=Šþôú¹æžÙ^'7ñ\®ß·Q?õÕÎ8yA°gTÕcQsÞ¯Åó-ñüòH±ÇÿüW*‚ë±ÇZĨ~ÁP{иJÖX‹d‘­±¾f9”5>”ê7êÝÔ¶Åõ+õ¶X’†?íéè6‚ X¡(™ò¤ˆ™S¥P2î ÛTœo„ž* =_ß Ÿ-Âüûµ:{­K=Hx¶xž+ž³´5`ÍK=¨¸Ó€çˆçÙâY»ùÎ1Lo´$ïߨv¥Õ=Úù,’ð\à&¼¤Ë´µÙéÔf"üº…|7‰ÐÏ°D¥)·mñlÏh2M¹(Æoó/ÏXì¦ì=qpÆ`Uc7œ?| ^Ö«´5éœ hæl¼Šçây8™Æ{-ðMâ!|$vã_é‡êî1àûðFô-~ŸÁQ5õ:¡\Ôëô3(õ:¬ÁÍÿgñ|X<ßH¦á°Þ9ÿ_Äó^ñüSì†ÛßA)Åsî¨A—zWÉTOÈ 5äd]ž6fD§,NZKfÎ0ÑZî\ÓI¾Ë“P òMÆÖüê[¯lÐXGúÇ*­;¦xÄwZ÷!c•Öáà7ª®e¬¢GŒšc4®ÊXEdQÇ*›åÐc•¹U¿Qï¦æX¥Ž¥Î=VѤ¤áOwÈÄn%Ó3¢ÅÓö"8r\§Ë±F…m¦ˆ7Hò(SþÑm„í|{\ÖÍH÷le;*®:†xjõnm]o9 ÅvVH&ÜÄb·ÜŠ3E­ŸÏÅ£3ÏEm·Üú^àçÄó7âùûØMý~j\á‰éšÕàHÍ ƒ»8èZfñçq+7Eÿ g™R+pc* i ž+œrÞn~#îQ-¯—·¹’Ç®2ïˆèÛ¦ûX)ù¼-sÔËóæ>;_Êsáö˜ëfvuBʆ¸ÑLiS§£ù2ÇÅÛ¶ª¨Ò‚Û€/Ï Äó’DTiÁÍÀ{ij_ËxT;¿ã£ÎÓÖöÍf±¨ÐâGõûÄÓÅÿ@‹ÕñÐQ狧7v‹VÜ3ìoÐ=ÈÛÌ÷†Tisñ\ñ,‘’D¿–*´xÞé‹bW,rúü×°z”QOú|…‹^‹Â ›Á›µé×!.çx% †Âx9?/„x’ãuxý*ëDÕR e-ëWL+yJ{½VmŒü¨øtñ(Zß½qÅy½µâ‰ùVN¦«S…«¾‰.;N.“3ýÈ7˜¾­Dx2øÉÚÕ ™öÅ^Þì.9öâNb‹kÍÔô[$Øs€ÝàÝõ÷[TÜ)Àp%w9í}\Ä ÈÑft©­0Eˆ"¢>³ˆ#n.çNÒeÜ|AŒV…ãZUëHò^à8øx#<ÃP+ÂXžaÎò-t4IA²6à±àñvw†¿u‚R˜L‹@Ê])Ý \¾Dco°‹V¾F±-À¥àK“·ëTü²âI^¥„?XW•NÓf‘äj ~´>…ö‹¦“5½¬ay]‘MkwT…&IûÀ•R-DSè¡Ä„ýàýÉ+4¿$„x’W臠ÄÕU¡[öO˜QWT‚ÖÁFóÝÀE³(Ü°Ñ¢Òá{5%j£‚6ÐFSñËBØ0ý0Ôøáúªt!ºJ? 5~¸.*}JÆõ<Ëa£Ü[èâ³`Qµøa|ðmUËß„ŽJxøeõ×ò7A³ /¿¥úwTšdpø.mMRÞ¯³qãb•Æ¹˜Ï$Ó8ƒÀ,x6¾AŒê¨x+„xêí¨¸àøHò !žäÝÁ›Y©%ÖÏ´úV·‚G ¡Ú€Ç§-òY?}ö|v´ó ü„B…ž¼ üªú+ý›¡è„Wƒ_¼ÒSñׄOòJÿ(ú[êªô©q±ÚBˆG“º_:­_,emËö]eƒW¦cæ¦|;rhO \¾¢þjý¨2áJð•É«5¿*„x’WëÇ¡Ê×W­ bµ…P¯Z_\QëÚé'Ú§çŸ(gžèˆªéC» ·€o©¿¦?í&¼\)Ž§éTüÖâI^Óß í~k}5=¯ V[õjúºšš>ÝŠÏÜkM]À3‹®Ù®¿Nx%¸Ò a4m+4œp;øö䵊ßB<ÉkûÐð'êªíéäjꟘ\9}'@žË¿Ò¬»®˜œ¤_ܾ±þJþ›ð2p¥éÐxJNÅ_B<É+ù“Pì'ëªäÍ;7k~Œ6-?¹ê怨:L²-ž~NýuøIè-á¹àç&¯ÃTüy!Ä“¼¿ zû¶ºêpzç6¹Ú€ú u_uC­/ !±/¿¸þÚý6h4á%à—$¯ÝTü¥!Ä“¼v¿ýöºjwóÎmÁÚ€‡«…&Ù´Ðo‡Þ6ÐBSñç…°aúÐÛwÔU‡Ó›ûäjÆ·ÐógÈs”TY2 b-ž ~²r»ÅÉ^Ó¼Y-q I~ p1øâ¨5 o$¸†>;$øÙ*‚—5"ݤ˜¸F›U—O[‡Ú7+ä¬Ñ&TõRkä¬ÑÛ"‡ÊY3‡Â7êµTOWSßRçHW£O5§}Úm Z‘Ó „eiWÛž;$xƒbSmbÔŠMw)ĦڄŠ›êm‘CƦµ¾Q¯¥zlZßRçˆMõ©æ´O•bÓ°,‡YlJ"mQ±) ¼ ¨76¥_ì&›RqÀÃ)6%y¶ŒM©¸`cS*~O›¾»‰½aýbÓÔ!]'7¥ ]ðxðãcy¿ð·6äÜQ;cæønÛÉŠÿ \ù“c–ÌzºmÓ—Yùƒ“]Tµ”‡T“×€+㊦ö^ ~mòjOÅ_B<É«ýß@Õÿ¦®jÔ”ÝiLˆçZñÚ€'€Ÿ MïI±'¬L‘Ïm—|w"KxÖoæ 9"Av ñ­à²'îœí"j7 Š×y]nð7P}Â1ðø×ØEîT¼B<Éwƒ÷@õßSßn0b»i‹«¯ ^P7(!]±¼Ü„/GíªÜÑ)"› ©óÆÚÍë;uô?¤üâ¿2ç¡£kvà)JNè úZè?+¿µ£¼ƒðnð»ëßQÞƒÎAøp¥ëPâu*þ¥!Ä“|Gy/:Ç{µw”¹'H²nÐif‰Ó\ؤ;—á w`˜Ù¬MˆøÈÊYt;…ߣ–|‘¤<Ø Þ[~/ô–°¼/y¦âûCˆ'i1Þ­ OL1–‰®t™#‚{¥ºøŽ  ¨¤‡WÍêÿ~ˆK¸ \- k5m?Yýs>'õ“ÞŸ$¼x5øÕ5½ÆŸŠ[¼<~nˆmҋာ_3•?œ lÝG#ÛÜÿ€œkpùPä|ÿT•kos#,ÿ p„õ ‘æÉûàDkê÷Tr¹T¹x(NÚ’÷xàjðÕõ÷T\ p øšä 1Qñ$¯Ù„6°®š½À·ºU”ûƒPè6Õcê§ÉÿIÒ+ÀHäòA¨2a¹Pñ«Bˆ'yµþTùCuUë6Jþ¯¤Ø‚2¿ÜƨK±ëpIz2p¸RÓFSìA™ Wƒ+¹‰xŠMů !žäûÃPæ×W± ªŠýa(ó‡ë¢Øš.ø0ô—°¼³þºüaè/axWòºLÅw‡Oòºü·Ðß¿­«.-/PRæ¿…ž~¢6eNô:ªÂ)ÀAðÁú«üßBÍ wƒïN^å©ø«Bˆ'y•ÿÔü#uWù’šÊjþ‘ú¨|’—|jþ‘dUþ#Pó4Vå?5°a*ÿQ¨ùGëªò鉨šþQh7á|)‰¿xYSb—|šMØÀK¨øM!lØ¥ƒf¬®Z®r)ÀÇ Û„Ç6龚ë\ÓçÉÝNc¸T4wÒ0CÛ Ôâóá{„KÁ—Ö_§?=&\ÿž·È:MÅ/!žäuúãÐã×U§S{Äj ¡Þ¡BIžgÏx×''îÇÑ5 w€ï¨¿¾:N¸|gòúNÅï !žäõýÐñOÔUßÓ;äjêTžYò9úÛìUÓ© [ÀÈþü h7a³?Sñ[CØ°ìÏŸ„v²®šÞ¼s°  XðpMDG²-žÓ”X"ºOBo ˜ˆŽŠ?/„x’×áOAo?¥]‡•vc} ÚJ¸°épßERìmJl7Ö§ ·„ ÜEÅ÷‡¦ÚÏ’mR¥Ü7@M? Ô³ý*rõ? }fëߺM^ìu»ïSè;OáûmŒŠýÈû®žÂˆ'f“]&ÌÝnP gTÊU6ÒŒØEšâÑ…éÑV+/oƒ½ÄòH›àå½Êëò¨áeàJSEú ’Hà(¸Î£u;*Ho¿QUðY¿¼ 8®tL¡Æ+©±Š»hƒÛ±~…1Rr2仺Í#¤èáí þ˜[Ê Ïù®1l£ö„åt%_IÃo>þˆv oõKù¼éM)÷Qà§Á?ŒŽ3‘IËÄ~'ðÃàÖ¦áo>þT2þ(0Äcjø±F»ëIU´Ìüø×´ëíÑíTNàT¿þüÉ(î±ÌŠšû=à¯À¥Ms¿ üøŸ’ÑÜþüϱ5÷ž²m¦ÛÖ¾¢gfŠ¤ÅùŽnã²R.gLXž_òE´’-eÊñ mþ6=Ûwžµ¼¼ dfØv \*'Ÿ NÈI%ßȘ™{w¸hÚN×(´ñ2¦ncN¨;¦17ò#‰ôFàÃÌ “è6mR`µ>“z9ðuÌ õô™ÔÝÀG˜&ÐgR/>Êœ0fŸùX·q™Ëv§ ´™¶,øóA ï•÷D7p,Ó£Ž3l;ò¤Œ ü;ð¿KF¥ yƒ-’÷½ÀO€B›R¿âI(õãÀÏ‚¶q&øsÀ/‚Q»¶ÎóL‡¾Y´_þ›dÔuá€8†¾~ ø3ðŸiÓׯ þÛdôõKÀßÿ®ƒ*ÿ÷Àÿ÷äŸe /£žÁA+Ø# ó9@Ø ®6`šsª+¸w=êB ‰u°\ç¹Õ¹;q ´B$EŸ< ü,-˜~q!° ¼«þ˜Š[ìïŽß‰;U¶Ø Þ[… 2e(ˆ·xøuÉ(ì e¡= =¼üJmJ»x=øõÉ(mðyàÏ‹­´ó;UB%’ah‚›ÚwÐRÖŠ¼‰¤z!ð.p¥Yìèz{ü@ s µu€·€ß¢MmÇ€wƒßŒÚ_? å+Ê‹j~yÍÛ3'¥.†ÃÞoÉ žð{ÆÚÊþ[^mËÚæ¨ãòBw»Õ=ÚÝIKèY‹ÃÅHØ°‘\I4¥-þµªmÕZ“SØ4Bï㥌©3˜ê¶ý¨CÆŠ.^ æ3µ‘yjcR¶¿,´z'JuW3O)g'›õËg/cN˜@'J=x9óTüóº7„V¦/“wPÊG©Ñn©(ÿÓ3‹®çw9Ëœ°º\G<â“pÇ¡þlý‹5cOuÛ| ó”þÉ¢£dMúÊ7µDï³À¯0'L¦C”…ŽÑ!Þ ü ó”Ò¦¹ª¿üàW™&Ñ!~9aÌqå¬~0­”3}âM#&•Ö³dEuùGÆôs™jîÍvÔÙ'hpó´Î¬xs¨þ‚!®Ú5}!°Ÿ9¡…OŸ \É<­”«/²Â§Ï®bNwÈyÞ‰Ê_ \Ã<Ý€ œŸgÍ.£žy§†a¬­¶C¥¼MËÌ»%Gž¨m"ËcŒ"FwÔr,»82÷Dêæ{òö>+ÛeŒX™¢ìòÒ`,þ•&<®´õhîõmù."ÀH¨7$ƒqÜDVô”$ò]Àׂ¿V‹á _¼ ø(¸ÒVÆh†ƒŠ»ø&ð7Åî)Ïéž+g¸Â; øIðONºü=àOÀ’Œ./š¦Ë‘ç›Iâ/¿þmªüYàOÁšŒ* ø3p¥Å¤ioùbi ž;!ŒþÜù̪dPˆê¸HöŸ3ÊäÏ“öŸ_àRF=þót¾JÀò‹4´t¬\§ðƒb´˜‹l¾¡O?]Ù&ˆoÎ8åÚôi¶ž¿vxø3O*wð|ðóT„«zôv¾*ê„ Ér°§‰/ TZÓ¨^êè5J=Ø Þ[ÚyRzYºÉ,…œ«é¸ IÙ¼«]²0÷&+Ùdó€´Éj¯x&’ñ3G°Ä ã,’Öºâ¡=ëŽC¿¸H›¬nhһ鬆¡â®NAM”övÅ\¤ò÷@–ýuPUi¥d{5BûW‰çõ‰©ª”XQUï¾BKé<š5§]e‰ÕõÀ¿ˆçâù?mêú[¼úïßð{IB]b[YM¨ø˜êz¬ÑήKQkS €'²X©g)k­þ{ê4 ¨XêTñ(-±é¸Ë™ Âvñœ%¥É„¨÷ÔIÀ4Õù±5§ƒuy¹úÈ\[ :ºUvø’´˜äH]‡÷U‡üÞ½Žëåd›Š°ˆ—ª4`Ÿ»xÖ¨Ú³ùuÀ‡Äóñ³ŠÍ€'0çJÅo?窔ȇD8|!ø ëâĵâ^à«À_•ŒVÜ|5ø«“ÑŠÛ€¯Ml­8÷çUæIÄ×? þQýƤèÙyJGe ©þøcð'û?Ȭ8£H2ø-ðoi €èŸþ\çáŒ9´úcÀŸ‚ÇÊ^ŒdÇ3ç3¦'¼+i¸iPKH“HÍ!G S¾í«ÉŸ1¦3'Ô¬îé±Lt¹R˜&¡èGŒeÔU<Õ\ÅœPŠË\„3'L@Åå®ÂK˜ÆTñ—UVNM,Í8YVéâ˜Y4lú³gÉÀEg˜HíÓ†ÇèAÃSÆ&ËÉÛÆyÆz·` ‡ÐßÛ׋=Á¨ M|)ð‹Ì ct˜ð·žeíËX¾ýØ£Ž-†öfô”$Ø?ÎœP“¦´ù;Kn±–®| ø æ„1uå9$ûgóN9Û ‰öKÆt ó´Ò~µ¹ÏÖ ÕŠ.Xúx೘§•¶KEÓGOdN˜€UIϞĜ0¦¦ †ò˜P1í\—oŽXÆ•!ó`’Ï´ä$ƒå•íLy Jâ”hB äÓü‚B3ž cžVºîmnýñÁJÀIæéúänžU¬ ÜÇ\ëú÷úe§˜«­0O{ítƒrºˆœÐ솈a–h)ZâcÌ u9|+'ÅVîo€bN˜„î¼ øaæiå+ë¢éΛËœ0¦î]±MQgòHÿŽ9aL"O(~…5ªŒúRmb o™R¾”ã9DØ™]åà°Ý;åÊÂV»N0ÏËq¡)GJvÞÒ3ËøUTšð¸þ5‘y²² ¢½øxB+" ¤ÀŠã%ø.`ìé¨Y¿|ðAðÖD¨¸›Ç_‰žŸ‡Êøø#ɯ¡Ÿ¨Çhœ+ŒÆvºs-ÈùÈkÈi;™\)Ùÿ#Ä#<\i]}î-µ´d« ÙðRðK“éÝG ¼ ‹$k?p5¸žÔ‹ô‹Àµàkëß±©¸ó€ëÀ×ÅïØ‘Wæ©üõÀ àô«éDÆPl¸|ORjJò*ªéNàuM1S[Ïúå+€7‚ߘŒšnšàfƒÔt˜ÏhWÓ´urŒä™îoŠ‘O!º’¶ø*gkIÒp|B›ŠÞ<žÀ 1—Þ …XMEo¿E»ŠÎϹ£[íqÙ^|#ø“²¥ŠŒ“¬/¾\Ïþ&úÅ;€€ëÞÌ¡¨·WBhPÔ‡€ƒ?¬]Qd­ [a¹¤úðàŸ8TõÀ÷ƒëI¬A¿ø8ð“àŸLFU~ üS RÕOŸJ»ª6¯Ý¼^A°ï¿ þÝ#@K¿ ü&ø7µié?¿×TNn™„–~ø}ðï7HKü!øõké:%-ýÀÿÿŸ#@K ü3øŸµié/€ÿ þ¿Éhé€ÿ®”Dƒ–þøWð¿j×Ò£ÆÌ"ß·]¼Ô™Àó™«eŽˆ®«' ”…Vœw&¡žÁ\íÖ•ª¿<ØÎœ0 ¥}Åv0'Œ©´j ‹H† €=Ì 5+në¤eŽ©˜«Ô•ÀÝÌS»“QÛã r ¥½xsBMJ»xs”6Õ ¼š9a\Ky±„Ê¿x-ó”Ò¥ÛUK]0äóž*%?ÅŠ-o-MUž˜o ò2 Ÿ!Åû˸âPÚŠÖâ‰ùVV†qÍíý¡›;Å3.þgc§±ak§1¸…Ýå¯ÜiX~ÑÎËõg…‚ÿ„†$\¾JYüÃ'áW7oŠZ úFÒçðIàÍ!Á7«.ŸXç𵉡ù¾6¹ª—Zã¾ÞF …Ïá×ûÍT?‡_ßRç8‡¯OACŸ¦Þo˜žU9ªœÉ¹‚u¸^ÞðÝ\I®Ðó±œmÂæîÚHÿKVw㺰ÍÍÓ.ïð~»HÛì +7Åg~Šc6~§œ0%oŽ[>–r­\fû´GÀϸm2s£‚ÇòŸP´ýð†rWüªÿzEú..¤d%¿dærSt#Ą势î-Ù™qñ—öM¦7açrV§Ñ·jÅŠ5ÆËq<úåóŒA3_ð]G~²¼£ÛX7ed­³”+v™ÁB%‘(¾U4¬½¢,’†¾ÂŸ .›¬,ݾicGåEIùäuDAÕ ¾³Ò,ŠïNŽáìkfÌtF­àB"ükñR˨[ØÔÿ1O©çßRa¤]ÏÄ ÿ–>¦"8ñè‚kñozÄÐïßôÈÕ¿il”ºù·º¾™šþ­Ž¥Îíß4)høÓ㥩Π`‘2#F÷=b©Ý÷KŸ6ãÓÞÆóÀÙýeÚÚ×{îeáÿlïZV«ÏÊ ¦Ÿ\ÊœPƒA/ j}íé²ÜËTäÖcOµˆQÕž=ÔŽ–V2¨Z‹lPõµJ`PÓ5ô¦Ü ôjj 5GglT{Õ6óõ+õf^O¿ úyÎC' 0ô ƒ¥—;Ö¾"0Ë›ûì|)o8¥ü°p"’.Ù'?Ñ×ÛKGPø‰Qü1·”ËÒðÆ/Ù›(8Ï»b$’#'JŠ½Ù¡1—‹3­Ïõèl(†• æéQ¦Mί…ßæÿámª…öÕ4ú1€ÂÝ»®ÚXË@îZ¿}ÃÆê¢Q26‰ ™jÒ°šsÔô&0Nh^Äœ0¦~=kFhüEo*™Mp1sBMMÕŠ¦Ri¥`sÂZ©ùl`/s˜­tuyÑDtä¨èàí MÔ¼”9¡¦&:*èMµs6ÒåÀíÌ›·'ÓHk;˜Æl¤ÅÆ”må²¾aMX§ °CÆSaý’äÛ ô˜ên¶%*Í6|!sÂ$šÍÞÆœ0f³]6|¾Jû¼xsBMí³Ð-â´Ošž3ÐW+úš³‘^|”9at/ðMÌ c6Ò"£(†+®gzvnª#òº* óð=Ì c y9ñŸ¹•Ë¨g‘5+/‰ÏÚ##–GÜô]šåÁÚ˜›Ëò÷œ±"8¿`eìÊq1a›*çÈÿµ#Ì‚gõÅ×)zn­vÍ.AÒŒ÷‚ï­— â, ®fÆßžd˜Þh)O-®f“H>ðNð;µµÓÚi gûÅö¢Yêﶻ80S1ƒ?j ]äÿŒlð¨÷¿þ…dZ÷.à›ÊWzÆlÝy`ç­‚‘³œÑâØ¡“*1¼èÀfö¦’_ä˜)Æ}¾í‰ÿáª*gΩv_bL]ÈœP“¢œ>MQ¨Ò¢êjêneN˜€¤:Û˜ÆTƒ•F;V‡­œ;iô‰ÆËå ј¥Œ…õ»²†Ðh}D-] I}%ð愇Ãp›DzðµÌ “hÏ_Çœ0f{~Væ ö§­7•òÙ•=·$´å‘7ÎȵÞvÑ]3S™gŸŽQÞ k âs‹òL?ÈA¶íäïmgÚçs¹NOáŽÅøeÌÊØRë͎иv«{´;òbz‡¯gLßÀœP“v_Õxôv/«8”¾ÞÞ^C’†ÛN¿”9aŠ—Þ|s˜Š×=h&9aÒAó7¹É˨'h¾òG‹î°c[§x¶UvÜm oÿîÔv&ÜÜ„UÙúQñ¹~°ƒƒ¶|„w|D¬ã·P/ÂÀãuªasɱ=7r–{jX¨¹FÖ%*ÎÆŠš£u?*nÐ÷c«[W(#ÜÌ8Atff2%ÏÌLEžÝ#Q‹ÀGÀÑf^›‹ÑZ$É[O‚?™LÛ= |øÛb·Ý ³vE)4ÐÛWºô½j=»{›™³뜬[ÎYÝVÁ¿¡·»™J«}øðï$Ójþ+ø¿ÆnµóË{ÒæœðPékßeL¥™êšØ@À¢Ðr©£€‹˜&Ðr©fàqÌ c¶Ü¼µ.–:xó”Z"Ϫ6P*mrð¹ÌÕ®vŽÞ&'ÏdN³MVˆ±„‡†Ý I‹K…‚èLÃrÄ‚ ‡V§<1.¶Òô2cÂ¥)ô.º[âÕÌÏáTOuO3P¢‹©4åóYæ)¥ÙÌèMy Ðbž²b7åâ²;Ã6‚œé²]¤m ËT$ßðNæ)}“ˆÇôõ^7³íSvG͆s¶Ü½À×3'L¢åî¾9aÌ–ó‚4“}½2›$O#ø"(¡ð1oemš–ÛÛ)¬œ°ÍàÏi7q‚s÷÷‹Ÿp½ÊMDå”êéc©¾od¤ý„Ä 5cš…:D,}*ðtæ„ Œad Ï`®¶Ç2²ú¥>‡9aLõë.aØøVp:«FåIg• f’õ¹À+˜§•Î”VU™åÓW"©¶ä ÆcðŠsÏ$ü.àÌÓJ–0z{oÞÅœ0f{G?¾Jåß | s¤gŒ¾Í PF=3FÓ2k.XÓ1K¨;j9–]œ Ïѽ …¢1¸Ev Û1 žídìBÎâý!†cò4R0Ìw˜ÉtyOÉ» èzf;[¢«ä¦•Ômlr'­ Ëë¬ö;ÑÐ|ï‡ðqðÇ•ßUƒŽÐðo~üQ+AßHú üÁàT\>±¶|kCómrU/µÆŽo½RŸ#4õ~3Õ÷V×·Ô9öVëSÐЧémòˆ¨PaiË3÷Ó3ódq ¿`f¬àg•súUÎèW5ÊT制FhK`ÑA”<õ(†_û…a¯”0ÇAÔι—þ§8•+€cfn‚¾Ó^ó((•?*†¦µ Ïc8®Ó5Kz!Ýgš›ê,û¨9WLXÎœ;yè¹Ê ”ÞBh{zðB\QaÏ$i¹ð)¾*ë&~Ë5<ÛŸ¢S¦â ¸ÞT'¿bÃæAo“ÿ‚ʘ!UETŠþî[aßMß#!Õ9½ùXê09bñv¥”íro§Yif×±:”âÝJÓuÍÄ 5ÙÜ3fï¼ÉÛŽbTK"<‡9a½£Z*®x.sµûŧ½™s:áRE%ü"š¹@ç•åÝ)vä} $áyÀÍÌ uM[u‰¦kŸ°•Úmðæ„I´ÛàµÌ›•’ØL{ ë 1l–À/Isj1·Ï.‹FôdÎP6·fnÒœò§™´èëß$ÿuÀ70oŽ?‰y4ó¯¬eÔ2šI½ëß›Jd˜»3cy;[ èŸ=$™>â½DØkΉààg¤K~ª½oÕªÞa sSÁ‰2JÖ¾bàªÞ·'“È{Uö“ÿ®.¸J{Æ%ók Å£¶·<¿<Ï%äš^ ”Â{_í}Vvz¤%Å`Ãk†ÏYLQP´3¥œYž3ò–)uOVÜÏxö0WýjÛÊŒ‡ÍËèïí]Ö!‹ ÿY¸ 3×MŸöáSñ#v^ iû¦ør]‘õó»PZ‚z%ó”Ršãxúù=ˆ žÑö%ÐÏA;kwmqñ¼MWZVnrækzè^îÙ(o¨Š> þ>'¼ü’#mLÂ_ ¼üÊ#aLo ¾]EðøÃ`mbhk“+Ò0Xo£Ôg\ï7S}\ßRçëSÐ𧟥!*’÷-²r€jÎðtÒK÷Øcéï†é2ÛÞr÷q§øž£™åqßtËÜ)2OŠ!§kÑ€Õ¬¢Œh¢TŒgg|™&Q³4,£bÁô±‘UÈÊq;PQ77´K‚¸Ún‰ªýü9szˆÓŒ'û™§úëÃSqÇ—0O-‰­iÑW¨ü¥ÀeÌSË’q~Àí\F=1Î º=lÚák…Ò‰ KžÔ(4;¡x뇘pø mê>Ÿo¸Žª×$ÌÅÀõàëë¯×TÜJàð ±òøÊQ,µ ò$ÎFàUàJio«6Ñb/o¶OÙB:q!ù@¦}1M5.î\¼aëâŽÈf‰?˜Ló] ¼ü–Øcá-ØÒDsnÉŸ¶œçnEÿ,r6»ÁbÉ>Ò)Ú9vPA:>úÛç+âý¢õ ÷6RÊÉA¨oóÅ¡b”êKY›³âÑLExPÓž³ÇùTµMå¹c‡†©åùZ9{”,]rà+¥´~iXüÛ"m¡¿W~wô_•Ó(Y×⟽ÏuÅF¬ÓK/xîÍ›Wj}Kíx+cêóÌ “6ï?âNSF=æýEdÞƒ­5r JóQ×·åËõÍ|!ÇÇtÃSWâµç,Ê‘ǹÌÙ_¤¶(oE¦iéNnu›Ä2±7ŸŽì*~ŒÊ¾üE 7÷õôªŒIòÛ/ù‘0&ï ~ŸŠàñÇÀÚĨ¾¿y¨]´kä°6¡" €õ¶È¡Às(|£^KõÑo}Kcô«O5ß¾SúgiNgN Ë©h>NËf•öN²«“y…Q§ƒ£r,ëTùYj1®uŨUõrâai®y™“g§{ªLLwòRd¬ð¡W&/l¸ñÈšÖ$á€W0~ÛDƒL:$ĬkP,&kË·­˜¥¢›/'ÌqÇR$M“V|TsxJ|/ïʲôœ¬é‚ v†·³J÷Ž}E#¦óC¿˜1ª¸pø#¼sæIi:Ôód–-lß/YÙncƒ•³dŠ¶örIUk->WJ1Åëµ,z È×ìËYZ)& #+øO¡M?%}`N˜´‚ÿ b¨gÞõJ¡àƒ4tö‡‰@-+GÏ“‡ßæ°‹- ¦hœ|SP¨èå¦Ê‰’ä$Àê¨uú9êAx%xü5úȯö(:@=¯¶Y¼Úˆ‚ü…6ƒ7+‡!'Å}/$Ʊ!Ä“ü{ùÞů´¼—¦šÑ¡]´ò5Šo._û=œÍI g¯lTüÊ{: x!¸¾Äƒé »Ö›«µôI‚ô—€+m¨Ñ`5–>©¸NàRðØ× ¤ï òÈñJ§g¤Ï³¦äŸÇw’vß:~‘vîtr‚ëâ˜<”!8šÂ³³å\UV9#>Êû–p\åeRÒùbŠ¬í =Ì7³Û‡Š´AŸ.Ú^‰”[‚ý‚ëdyƒ°3bgerºàŒ /¤ÉÇÖ>!šüWctÄqór·xÆ¢9jUFÛ´>g;]´8;Å lá€<ý–L‘(qe„.ýÀ씈ÝåêDOµíú‘wºü&ü×0cGÅ2c ššú5Ôp=xäÍK˜š"7„ß "xü©)mbhžšÒ&W¤©)½RŸ©©z¿™êSSõ-uŽ©)} þÔ5*‡“0[ ÷í„Â.sF°Å3(æˆl‚¸iÔq=¤þ) *ÉâÔÌKUV •~/ø{DÓü>à§Á?}¤˜æ§B‚?¥"¸Ó¬EŒ:˜f-rE6Íú¥~¦¹žo¦¶i®_©‡0Íz4üéo»µd}ÉîZ{K4¬*_ídM/˃=v–ˆÐ×räÆØa1r]ñurÎ9”š1”å¡”Ç_æ&n«ŒgËߥùæIÚuË)x*ü Ç,ä?ÞdzÅM1÷÷ö.é@B.Þ—ÎcW¥ËB¯<õ.æ„šlÂÑôb;cæâ¨s1$Ñ€ŸdNXï¹*îÝÀO1'Œ©ƒ/ì©•ü`ƒ7«ÏõÏ¡Q5ÕgRæÒ?Pá‚9LNüÑ£b0+yNÕÿ4cz-sÂäGáÿÆj%±£p*¶¨mž^kl£{8k$k¬Le]iäü–œîÊM‰?xyʵL¿LŸ[£8“&k„’É5iтüìJ3&oåßfÆs÷{ƒI¾a‹·¸ËINb.âOÚU™F0ýCÌÀá KZ;N£Óº²TˆÀæsî9¼vÈÛ,§±©F]™‡¤^5G_š6˜¯(ç÷Ӊ‰ŒŠßê,ÿh­Y>¥Ù:Úb4LÝØ¥Ñz,V É8Xm!âÛ è@.zw&õ=Š1½™9aòÝù7迉۫–º@vc¡UJþ%zïo€xb¾‚È‹TTü¼âIZŒßâݨg qB(í|ι©ä]~ÆÌË­ÓwÆÉd´CŽ>:Âby´Ì/³;‰DvÛ X0þ—åÈÌŸ~ÓBĺÿõ%œŸˆóTøœ0$à ²½x¸RºÏn®F2[*î ðnð»ëlQq“À—€ÇO*ºTKÆYA¢›°R͸9#ã'3tÇ"¾,4OÚ`…|)ð›àßÔ®\ó¤ ¢ýøKð_&£[ßþ üWÉèÖ·€¿ÿulÝ:Jõ¤6‰ñoÀ?‚ÿQÛ@KõÖL’æÉ 'L¢mþ„bSÌSñ½Oì£Ú$NxsBMmôÜiÉ#ÊVf`ñºË.\\kÒl®¦K \Îœ0¦K= ¸‚yJ-ãÀ´¡ÑƒBk­®aN¨©µÎ­ÕZWŠºåum³Ì¬Z£­Ž0'L¢Ñ.Ž2'ŒÙhGwˆ0 4Ún è1'<\B°Ô­ÀÛ™&à&SSÀ;˜«]Ó]5|à‹™ÆTç”ó`R5H7 RÑ#cNx˜„T©¿¾Ÿ9aºò6à˜§ô%kžSWÞ ü s˜º²¬’ *ˆÈ)$)OÙú†6P+4Ô‡€ÿÆœP“³˜'ÌÌ^SÅüøŸÌ “hÅßÿ‹9aÌVDØbM–\•FG8œ`NxX+ipó´Rú·ª¿|!ðbæ„I(é¹ÀK˜ÆTÒyjC£ô¥À ÌÓj©ÐæÔÓaUcz-ðùÌ k=Ý ¼ŠyZ)[Õ_¾xsµ«Ó£ëéFàæ„1õtiGg8dkcd{B¦ëñ,«#t±vœ .}#ð•Ì õEÀé)ÈöðÌ “Pku¾…9¡&½~ð]Ì “ÐëWßÍœ0¦^/ âZ^-¿Òš,ºNWqªº*~Z¾wÛQQë¿þ˜9¡fµnvr £ÛôïÿÁœ0ÑmúWÀ?0'LB~ü#ó´Ú }øÓÎÎi[0BVp†Ò(ÚCL£7ŸÉœPÓ ¶5;2×”È\ÃZyc a'sš¯Ùv1'ŒÙ|m•amôÆiî®`Þ/5oÕ^=vÓ¸‚`Û€Û™&á©¡RsI¼¸…9¡WÕ|1psÂ$tcµæÌ cêê)åõîM®;num±¬ ËWä6ïŽ1o«ƒ;Ê«(î-À0'<Ì·<ÀœP“âºÀ2'LBqmàmÌ c*îieÅ -®uª\WNraûLóÌ 5ënKÞÌú ’½øæÍ:§ì룼OßͼY)ž®úË?ȼYi!ºò>üs˜ʻ»¬¼Û,ÌX›5 r«æÛ£½±ƒ|'b(òëàˆpoÉôí.Or<ZæPhª3¶ÍœP÷À¸”ÉÛÎHtÙZ à¹Ì[ôå š{`¬,ð³Ïa.Q‹Þ·œ<¹Äúë}Ë1Àó™KŒ§÷óísK;°“y‹ÒØ`NE]õ‡—d¤[ܼE9ÎŒ¦ªqD^¼”¹D=ʺxó})CçTÖ.àVæã)kwp"W^Ÿ@—ÿvñeµ´Ù—#ñ}¡ù…FÀˆªe?s‰zµºUˆNr*wð5Ì%&x¨KŒý-÷0—¨G§_|-s‰ èôàë˜KŒ§Ó7VæÑ1GQ>Âè›yËpÄÿp¨±ÎôöÛ9ÓîZçz“–í£ž™¥ƒ'FÖÊðîœøÓ˜-¯þ?æ5÷‚uëƒÙyG1'L¢¤×­Svp>sBMàiüòqÌ%&ÐþÅÏ\b¼0_)éÉ€ lÞ)Ì uÇÊ»2£"öT­ØÇœ0‘XYö*S=ï`sB=š:ï¹À~æ„ hê<ÿó–0Ÿ§”NK¬ÿ¯ÉèøÏ€O3Ÿÿtl?ž¯wñâìomÇœPS<1wÛÏ56h=xsš¨õxàs˜·*­ÒWßk®õ¹Àó™·ª-²×ålB+Žÿ·®eÞª”ÌOÁ ( Œ©ÏÖUÌ õ”Önà:æ­ë’ÑVì{h]ϼ5~ÒéŽòYE|µÕõLgÔ–§©Ë{ÍÞ?6ܶ昷æ´+óÂPÈÕí(ŒñZo¾œ9aJÝjæÌa3¯p’¬u x+sBMZ$­÷1'LB«óÀû™ÆÔjÕÅ’ÖW_üUi—ÃÜæWô³œ9ª Û;€ïaNx˜k*6h¶>ÉœP“¦bfë{™&¡©¢µ¾9aìh!N$÷~àÇ™jŠäÑês†rüsÂ$çÀ/2'ÔÊEN–Jr| øÏÌ cÊ9Eçï¹e˨'Eçí†!‹W²Ò‚†‘/ùò¶ËQ›îÿ’·UdÆLºüK|ƒ SæqNì!Fß{KnÑò;Ä=›µiâ\Þ»%óe…’t)¯åØ#6-ªåÎûwÔžðvp¥ŒLZsç‘4/Þ®äý¢õ*îà+À_¡al3w‰óJàcàñ’4…¿Õ1-›MW¦äÍ}}½½½tïlwQ|Ögu­¬5>g+¾ øuð¯'ÓŠo~ü±[±UtÉË¢§‹ !þ øðï&cW’é÷À?ÿép»’ ¿þü7Zb'úÅÿ þçdTõ_ÿ ®4»7íåæyó¦ziö·èÒ0oXݾîºk+ë¼8‹`Ë,–×ååJ»‰‹§'¬òõà”Ö=ã‘™ÀV…6ü/ÆT†y*£Í˜µ¡R°S©›€yæ©|"ŸÊæ„1;]JY ßô-W‹‚#çŽvåìq+g¹n¶ƒoêÆŒ¿Œ(DhâŒÆŠ'R.ðãÌSú¢ï£Êó.*müwÀ/1'L¢?ü2sÂF ãI„¯¿Î<¥ä«Ÿ )º…=^ÍSs6Ì·?dN˜DÃ|ø#æ„1æ„r¨ç«Çz©ÿÈ<¥/—õµ2ï²;^ÜY™ØX|åÖí;vïÙzåžÁu;¶^+>Mœ£&¦hp¹J4˜úFJ˜E\-qVô†þŠÝÈ<½1vCŸØa´;b ¶š¯5VºŠ$º xsBMM}ÂìÖUh1™Šp/sÂZ,}=Ðcžöb·Ø…4¸Î¸ùaÛᇜ •Ž= >ðAæ„šòøJG\/b·­k•Ú¢ôû™&ÑŽ?À<­t,Úë o‡ö ³Ttéb¥Œ¼S‰v9t¢3ÒÝCtãvÎôå!rÛ±ö–̵sy‡bÑWÓ¥?Èؼ€y³ÚÅUuÛGM¢ìeN˜ÄÐ.¶Ü'ÏbÞ¬œuÖ//ö1oÖyþ§v'h> ØÏœ0f'8…íT0/Xž_RxÛK€›™j2\óœL¡T+—Ç\ÆŠÒIÜͼYéðEôvÚ¼Šy³R*Êg>f\MÈóµS|;\)?ly4„ÎðÕÄåäi¤ò²ZÅHÓ”§É7Ž™¾0êâ»Ö¾Œ¼3ò:(½–S€ïf.1Þ뉼ú¬eeÔ²šºÉ0Œ«ä ©Á…žÛË”òt)t¦r›gùm›yº°—Þñ-nº£–cQ .wÂò¦øJhéË¿WÇɶå ñe×ÉW#RcÓ}Ÿ|+)ÿ-t3¨ß¤•ÿ68‡6ëkòÑ¢Cøç¬g™:#>°’¼›µ+‘ŽØŽ›*FÖƒ<Î2¥ÛÇ%Ä>:k_›gç t?Gh„ÌæV‘‹fh#¶÷ÐÆhâïc]¢3W3»Å;xÉ4·$ÿbîøKäh€ÄÞ |„9a½m7|”yJéÂt_KÀ‹<Ù@B¼ øsBMM8ŸÛJ¥aÞ |?s­wõÌÑ0O?À\í®žø³ë$ÂaN¨­Yd‡Qi–O?Ëœ0‰fù(ðsÌ c6ËjyE8†1Ú6#Ì¡éIã;aeŠ®W6àò²í‚°üEK˜_g´8Ù9“ÜŸgL§˜§ãïŠìœÿÈŠPF=›”ž {„éîœðT#µ/–NG8ì¬ ¦YvŸ¦æi”í*ïÔ?1ÒÕyÄÓñÖ§µ%gìRG^H!‰OeN˜@[¦žÆœ0f[†öP#ÞNòžI ™§ÕòÝÔ'åVÉZ#Á„ê[zÊÛ»A«(½ó3Ûo'ÝÏxö0ù¢aw"44få dýóB’QÚzRdïà—¢çÈ ½ïÔטj ¢èÜb•b¿.ò_M:ý{ä0ƒŠO‡¢œWœÿ'ž£Bˆ'æ[9UD=׸¹‘QShßÕ¶•+›%¡ÑQoBÿo4á©à§js§LN _š·Š¦h»D v“ˆ|»]/j’6î,à p¥ëÚ«–:_¸SÓÎÕ(÷4àJpµ[~Ÿ¦#ŸÁ¡òWWƒ¯ÖÖHgŽ‹uOÏäädw„ƪáÜHÈK7€ß Ñ¹•¼ZMµ¸|Oì¦jîˆl|I€Ãàý¬Y*Ž¹^ CC½÷šj~©øtã™ßßÄçÅslñÄ|+· ó»ÎòÆ­©Nc½º;M®9š³NcC·øS§±ÍCù\Îò:ËÄžg¬ws"ÌØßi\Þm¬í6ÚûV­ZFYÚ O„/n¾K ¢Ãù†gz4†q„ÜJ)'¨[v™Ž™›òmwD| ÿu ¼üVmöãäÁò†šsßfeEÀãX 2¾øFð7j Zj ™¨¸W»”>üitOå?|ü!mM”î[ª Ï[€ƒ?®±9†Eo¨QìÃÀ·‚«6 º¨}iG§±dÕ²®®¥}}JÝç àÁ?¨­mÎ ÜoÖµÉÝöôõv÷õöö÷øv¾{銕½}K{—ö.è…IÖ þcí'†RÃ5Šýð'à?IÞ Qñ? !ž¤Åø 7wãºä¦ЧO‘óNñ3ãÂÏt»…Ùá‹äk»Å_:…srì¢%œÍ:é{¶¹žgûòÓuÂõô÷ö­®gmòæÆ‚geìàæ@÷z”§/]¾Õcš ZM%ˆ‘2ŸŒƒaGnmÌŒåílñÇ/xå¦m€”¿¾ÉÊÊInš‰53cVtÿõW¼;§À?¥/þÝî‰aŽÒ™9c—Å× OF{ç¢.ŽPQÿ¤Q8mÿYýý£Ïi·5Û‰?Éݑѯü øk¼¥]ßÕY¿‚<ÿüCS9_e½ý£þ¯ä?48²~áÈ–®êíêZÖ·T©ý‰1•æ÷A]ISÛ´Wsd}+V\µtiÿJâKûV-êÊHÚ£€½âiOwý]× ìäêIÞ‡Pñý”o 7y1žæ/£žÑå peëÝ̘Gg»®é¦¡‘-[ÚÑ-ó`‡³m 7,§a55k‹“G;z­}˳󼬭bTú‰ƒ¨Ø ¶>ѶÎv…ãôÄØHA®ëæMJiN#¹YÜn`–y“Ú.Ñð§‘݈,ߎ0'Ô6êU't˜79uw#²¸Q Ëœ0¶én¤¯·¯««¯•R—)oaN¨+«âFú—ô®èYÒÛÛ·<ª÷BÞ|Œ¹ZîóHÞCw+ðÍÌ 6Û²ø·T0x’Þ"ò¼Çá=6XÞ wy:x—ìl5m/Ûi\)}ÉÊå—l ]dÇœíÐáaCXf3Ýi¤QÂ-¨Ú^ÿj=à4äxÊYYc} én)©‚œ;71oRJ×͉PqWÇ™77À‰Pù9`ž9¡¦fJ­P§XÁà©·¡â`‰9al²„|ÈŠ‡¬\©Ôƒ&€·3×xmHgÕ9µ¾å=½}«Vtõ/]¶¼]†U½½K—wÕPÖp($ñKd®6Í¡Pqw?Äœ0iKNŸ‚Á“´ÍÜèjr(nu‡r…™§¹µ]rê¬w…ð(»¦¯ÙÔX¨‘©§»šÕÆZÇ(²b¹Ï´ Ò„.*­ Vë3g×ÝõLo*¦ßiAï&¼½ûþúû*®|s ×ïD÷;Tþ+¯bN¨kðÒ_ë‚Š¹äy#ðæj‹\Ñ÷jàƒÌ c;ž~9xY&Oô90)ÌCÀw0'ÔÔ6µÏMÝ™L±[XåݽK»…ã‰èuHÜ÷ÿ•9a½½÷Nàw™ÇØQ¬lî©øïU0x’c·x€š¼Îˆð:›L/;%=Ì–náqv¹ù‚ï:rņ'ÅV-—›B»Ïƒ¹mpšÛ‘Iy[¹ŸÌG] GPW}0Zö HÙòÀÛ˜ÖÛÍPq£À1'LÜÍPù·ï`N¨ËÍôÕJ;—¸yý掾^1Êéí_¶RÚÞ%Kz;ú–­^~‘¨ÍêÕk7oèܼM Ú.^ÒÝÛ½~ûšþ®µ½ÕêÍÀ?2oÒyR¸†7¢âþ‰¹Ú}sñÜÿç OÒb´²b¨É]ÊÞ¨XrF;É‘ ÑfµNyg]ã¼2ñ÷¦¥ „—¢—jë(Ï*¯¿ˆ¡Ì·$Äx¶G v9ð:æ„õv2TÜZàõÌ w2Tþó€CÌ u9™¥} òd€Yæj TÑœ ÷| Å¼ÉÒàdV '³ŠbVõ-Wê;#À"sµ Ūm³ýNfY_×ÒÞ%Ë¥…èëïXÚ·zåE¢.ìbÖmÞ¶EüGÅÇ\ÑÇP¥ÿ9a½} W~y“Ò=ÛñŒ;ÿÅ OÒbÅz &ã³™°s9Kn˜æýÐ+hfm›¹ÏΗòÕ:|ʼn<~%/c$בëÿ¼1€¶ І3ñ%y먕-çMܵÚPqB÷µu­¸¢ ÙZNfëåa‘øl­ï»[VKAøýÀ'˜«¥²æ²ÚØüH|&éɸ,*ÿmÀ·3'Ôå²Vô+Èó^àû˜ÖÛeQqﾟ9aÌæ8¾}É2rZKú{»º–,‰¾òCâ|ø÷ÌÕRGÛ=Ðß¿rùŠUË#:!òKÀ_3'¬·¢â> ü7æ„I[*þ7 ž¤Å8šÛ9@MNh9!¹5¹ÓØÚm\ÍÛ–„Žä³—wø/†oï¾9u êA¸õX§MóOÞáOeÆÜœ;*½Çº’p®E;ªë Ù6o`®ñô^M×AÅ­îa®áø^t×Aåß4™êr«–(È3´™ÖÛuPqÃÀ›˜«í©²r³dåJá8V-Sê>ãÀ)æ„šÚ悪£%+zz{—,éê_Õ»ª{Õ’îþn!~DBò¾ø$sµ°(š¡âößÆœ0iãMÅ¿½‚Á“´Çr“¨É‡´Wó!«úgn9‹¬ê !-a;¤mצêg…F³¥Lpð¥²&£ np;sÂz; *®¸ƒ9aâNƒÊß ÜÅœP—Ó苺όä¸x=sµ©ÃhNƒŠ>9al§Ag7ûW¬êF8ú 3¼‰¹¢'{¦ËýKúzû®X¾jÕÊå½}+z{— é#ú w/ðõÌ ëí3¨¸qà˜&m¬©ø7V0x’c·x€š|Æy3}m1Ûž§Ü›yBy"Êzd%<²ž§MÏÏ ÏKñÒ?{íGAä.àNæ„õöô¥ó»˜+Zëð§guƒ¦cl°­Q·ÓX¿vµ±6cf­¼1vP:‡¨yD¤xƒ@Ÿ¹âd¬>p<ôêx­}àVÙœ¼Ý)O+SrŒ‚éËõFœOîå«Žg^§ÂZ7sx>mó Í{îpÉ/:â½ËË3KÃ9›£cØ6£‡c'à%ÞŠ—p«¾»–½0$Û‹ÉåÏŽØÀü²ü5iÏŸÑ_ÓÏ!Ï[€7%•?C÷0P_þŒÚûWQ¶j¹ŒÂV.QêAOÿ–9¡¦æ1æL¡Ñ[»ñjD_$姀?`NXïè‹Šûð‡Ì “6ùTü*’öXàRð¥õú¨¸Và2ðeÉû*~yñ$-Æ)Üàjrg§Îtg[ÍIžyˆ(Þ³!á©ïTeÍßœ‘Ož¼µîúÌÇèÄ©‚pgÏeÞtŽŠpU“Ü·î*YŠBµ»›x¶­K[¯j‘DROö0§ÒcªÑë(w+Æ “¦·ŸBžË9äYŒEØ9ßu…c €Ø#ÁÌSe⪫êÄÕjc-]3RʉЇrÐËËJ‡KEy=Œˆˆ< ™¦*q‘¥2–çø—¨hq/ðsxCŸÕfŸõLg‘l_R"I Ä~\ÿ°†Šû<ð§x=ñóWFk¨üŸY”’Vk–,Wç·Àß5ñN°ßÖ?¬¡â~ü=^Åïb7Ç íýËd>Øþ%´eIôCÄ$Ï¿3Êœ6¿gWÄtÖŠ¥}5LÔˆlHÊÀób(­ E‹l¨¸4°_ŸtHAÅw„°Ÿ¤Å@¸ ¦ÈænŠl,Çñì̘<>¼™”‰ãÃ;ºiN‹öÖÓñá+­É¢ëtí2 c>öÊåÍܨëÙű<ÖõfïŸsß}ät^áÝxwkëAÇî¶2cŽbæ=é>à̵fK¨áz¨¸—d®![Bt×Cå?|˜9¡¶uÔä$ÇãÀ·2W[Òˆæz¨¸G€O0W;C1]19ó%Þ[¡Ôgž~€9¡¦–©¹s¾¯ùŠU‘ ù1àw˜ÖÛéPqþ+sµ<ñ¬=ÿÝ OÒbœÎí &§³W89À ÆCÓÎ ÷÷öÒ&úÍù‚çNÏR^‚Šy¨ [™·Â4|Û•wgI—£(é T›p/ª½÷0àlû€÷0ך,¡†—¡â<à½Ì5$Kˆîe¨ü—ïcN¨ËËDM.åx-ðuÌ ëíe¨¸û¯g®¶ÏoƧo­×/_%8ý+„!Wiž7ßÎ\ãº98}KWÖl¼¾†¤|/ð™ÖÛ×Pqï~9aÒFžŠÿFƒ'i1žÃ  &_s­ð5Áí뻃¤®ä`v˜žÉ¾!lÍ)Ö™SYe™Á\q˜õ4ðŠÞUQOr‘ï~™¹Ú΀h~†Š{øæ„Ix*þ« ž¤Å8“Û9@M~æJágv˜%ÊG±‹/ð;ÏØ&¼†• ² ­ìç-ɾåø%ߘ0s%‹wOZöè˜ÜÝ2bf躤ȽÀ@¯D®ÔÖ V„¼KyÇ <Í•Áá¯u%Ï2Kôgásœ¬éE½øH ð¥Ì ëíe¨¸íÀ—1'LÜËPù÷ïe®èíªz™•QO‘¯¾†9a½½ ÷ràk™Æö2rņ²/YÝË0¯>Î\m7vÕ¶9§Š—YÞÛ¿²ç&Ïò»{W®èî­=­ájHÒw¿Æœ°Þ®†Š{+𙫤âÙx*þë ž¤Å8‹;@M®æ6ájv™¥¬å —ü1™â•7Nörž=37µ_îå åšXŒãÓSRG³Ù16‘[r ´Ï §ËÎ#Ï%MW›9ËþÉ2Ú7fýîŽÈ¦m1Þámx·ië>KiãĘ¨Þ°ëŽ“*oYö§ᣂC=qΚ‘äw?Æœ°Þ¾‰Š{ðãÌ c*ЀPñ>¬¬ˆR …n£Ÿ.6]Ò·ŒWøŒë\o\èKÉ÷­\Nnn6.sK¥˅º¨}€Dÿð˜&Ýφ ž­µ+^-ºâ µÇ±›y‹ëŒç)ñÿžj}²_&„ñí|ANIÏ:‘¦!æ9¨áÕ¨ÛÕÚº—žéj’íù@9a½;w Ðg®ádôàŽÊ/KÌïP©>]]sumyndNXïàŽŠ›ÞÂ\ñæ¯ð§'´÷Ó ‚°`K¤‹žm™ä¹xs3·v€šÜNö™¸aávy3f‰Á‹;j9–]œªêâj·Lb5Íjë!ý3VLw¹SaOCÜÍØVqªÓ´<Ûòõ ò`žÄ6P*Î>ȼ!Û@©ü‡€7iߺ,êÁJ’ãq`‚Û@©¸G€ú¶"ær9ýø ó$ðCÌ#ùjmÓ[õ€e__ÏMÝ}K…È«V®XN7™-£kÌV®êÞÑ‘ÔŸþ–¹Ö³$5ü÷aàï˜k8KÙPñ¿¯`ð$-F7|€šüÐþgà‡VÈÑ"n‡Ž! >·?r=¾´ÙÍÛÍŒ‹AP)W”©0()€­‹ùÔŸp?ꯖ_¢~sn$Û ¯ažÄð‡Š;|-ó† ¨ü×ë0üé_® Ï#À‡?TÜ€ú†?Ç·SF§¾UË—vuõ­ZÙ§Ô¾¹Ú¥ѧÜú—GÎÁLR~ømæ„õö9TÜûßa®v"ž±§âÿµ‚Á“´HŠ &Ÿósás®ÞñÇíNºIf­ð<ÓNûÏÈQÓi¬³œlÍf;™µ¤ƒê j¸¢äûÆvÁ6Ù££¶ÃÉ wÈÜΨ‰_¦“v9Ó)ÚåƒàËC¹oŠnàÁäùíZ‰lhmÓÞ¬Dǹ‹¦í(œF¼ÑW'Þ5áÏñ®®­{žVÞF4X^¢E­äü-£¼Oï·MŠ¹B¢ù8*ö(¶¼µ>ŽÊ_< ü(mÍ”ŠºgˆÄ8.„xêíâ:Ù˜H<üøØ­Ágí–-ëêZ}E‰D9ø\ðçjk˜³j¹·›9—–ƒ—®’CùÌ­lx $Š6ónÉ)Î^FŠ=‡ÖÚŽ¡¶cÚz‰±±ä¹ËtÈsÊ}}TõDÐ$¥ ¼—¹Úù³h¾†Š³/gNS%žÕɧV2¶Ùi L;úŽGè>à›˜+®›Tk½Ý›œœìžœŠÛqó=9{¸ÇÚgõŒXÅÌXwa¬ÐS4sãþjÒç=-ßc™ù=y©Ý{Šf©¿»‰h©fOÿ9a½M"÷ð/Ì “¶Eýü#†ë’¤K`$€šLâɳM"­6D”m)d#<²¬ÜÒMÕÓ»õ3ï+Xû»D<ØÎ\íÞ²ªI‹ÞêJÉ\5Á..kâË%—hë\µSi§—3oZ[›VÉÅ«µìUé@ÓV—çѺ|1¸±p˜PÞ?{ÐÅ‹Ëk³¹úVH¾ 9-:ÎsOý}%WÞ'§IKB¥fºøŠ&í Qú¢ÞrMr¼HÛJˆBŽøÆ&} Q–‹qÙòU+ººVôE?ªNÂ<|[“î„(‡XxZù,‰ù w“bRh1÷và×›8ôùZòΟŠÿFåhÀqùeÜÒjŠAN¬ƒD”l9$#<’xxE $ÚiÀó˜k¼6!FBu)º¤#}u@¨´“€K™7õÇÖ¥£()Ð2à^Äý 4ø™G̘h¨mVÆTq=p»xÖŠg«6:fÐŒ%Ù.àó!Ýõ‰hÐÅÀÄsQ“Ž{Àð­Èc ’b~›.ÏhW ã¶™ÞgÞét ( Têë9 Í”Ó,Ê„6Z(IJY8[M¶[€”×iªIÞ.›€)­!º3¶É;iÉjY•mèÏÍXÙ’gɽ{”¸˜ÇDbxä•÷Mäí}V¶KósTË{€Ï]Mª§ªµÿI;ü©ÌM*ÊÅ,µ1‰ö¿ŒòFôÿ¬*õ3Q±F±ôþ]àÑñÇL*ŽHîM# ùgÚ·¶­þƒ&*îBà`“< ›º2ùÑ ¿;„ÛùÑTû£‡Äw8û¯?»p²`r@²‚QÓP)ò; âÓ Em‹+ÎJþ‘ƒ'æ[iȈ‚¬Bó6£yšcõäj=z¾—7»óc ²< ÿF§ÅÍÙÎxbÛ€'£m”,nb3"b©Ql ð愉û]*ÿÙÀS™Ç¸r±–F, (XEWAºó€]Ì5^o8§NÀnæj÷F׉Ӏ=Ì ¢½À>æj3#‡Ö‰Ñ\>¯ ÝÅÀÌ›tîÅŸC'V/cN˜„Nô/gÞïýüN¹Á[áÍoncÞ¤W=ï1¡ ÛõÀ=Ì “ЊÝÀ™&¡WMæMfl­8GÇ]º •Úƈ]äÄÛ%'Ã;D }HÂaàÌ 5½ C¾e™9ß­tQ¬³º©¡¡(Ÿ®`ÌPÔ{¦âÌÛµ~û†UäY#ðè OÌײþì³Ï62f.S¢ûœ;jx¶?nx´Îgh2®çY~Áu²¤Q¾™/äˆÇgüÈ5¹ L¸ ¼>vM®ÌšEã¢.âµûL{Þ2ý’g ,Þµk±0šö@±àúÆ° Ž5ÚidìŒüKVùñïÍñ?ÝÙюȕ@¥šâ¦ª§&CŽ‹µöžëHM„Q)ßU6ýl”Q¢»Éä®Ãj4[g “æ ¥bäú]‚ú^‡ú]»~¨~”yp5Í\Ž¹Y¡7·m]lؾ¬UÖ1K¹b§á»†ëPÂÛR.kä,s‚Ž0‹/¹ U¹U!Ü€ªlˆ]•s…nŸ²; »¢ÓÓ«]½×BV 5¤ÚTR<õ^9ÖiUï«ã©7.†0,Ï£Épe݆1”x5*wµžÊ±nS |+ãÒ­OÞhIÞ¤N‰Å…Ætª[‡/˜Ýc/º?iÑ]ìôÈ•ƒ†KÔW¹Ëeå̼ªÑù¾eŸO+~©PÈMq­g´­cˆ?ñQäÚlDm/Gmâ‡÷Ï]õ!=ù1¯Wl§ÿž°£w×Ë á³!Þ³c‹wz`Z„ˆâ©Ø—èâ¥I ®á<½eäؤՠ\{ƒÂš•þ}ýFѦDꔚ~ijö–h·_O7£z„ñîg z))‚z„][¶ „—¢—6@[®€WhÕ–çU´eÆ*ªT>#8é†\ÛÍaßÍ•(dŽ¨XÊr¾”Bi8¸ËϘ²L/ú›ÞŠ>5Œ¿K¡'”ˆjø™aÛÉŠZä(8‘¢ÆÑmš°R÷4@?ù¨I?–’~p b|×Ë‹!›ôr+cÀÍ OÈ߈,úvˆNˆ ò¶XwÍlxcÀ¸ÅÍn\(Û=N³ï€Ì„]Yiš9f³ï„;µ6û²ÚÍ.BÌ‚éƒ,¯Sv9ú‰,û.ÈNl”\¦k2«­'b 8Ø,±‘£Ýc·Ööî£öΛNÉÌÙR>?%†™rέlær8Ÿ€ õ"Ë}ä&ìƒÜj áO/’‚u#3?ýŸ_í+ç[2€•ÆbþŠˆèÿú:Þè*€¡ƒDL$ê©‚™+ZžCa5«Pþ ÕB­ ×  ×Ô£ þ”_´(Yu¦f*_uP«BI‰úª½#b(@Mq3uD¹Í­j·3Ú‘&¨@7rQ!tÐÊ dPBLGªí»ˆ©YÈ‘Õª¼ ÆïPN ;n8–•¥‰hßÈŒ™žøPDr}8GK^žpª¥¢+{ xïÞ;–WÿDèîÈŽ\? õ#Ô· ¶‘6û‹²¶u©‡ÎŒ .„˜aWÛ"4­.-žÂ"õ(D!l(- P_$X P“ú”#\Ñ–FÁ´½IÛÑ“=ì²2K›v¾lñó9@Œþ.mÔëä„1ëp¶é¸f»GWú^;@u=«to±wqGt¼ ’WªžÝ€V‡ãZ[}µº_õÜRA®îYž_òË~ H{Àq¦Yò„ÿYÁs'ì¬B§Ê¡Z„;P­±«µ“ªe:•¤â뛥úeÄXÍ2éÒdT@˜§ìœR~XXèÊm¾¹^yÔ‹0˜Ü»^ÛÂÍE>foɵóóB½×TF3•‚³GªAKfä:9¨!¦×7 †?½RÖ‰õlv{ Ë\VB|ÓșިhœYmÄÍgú~)¯ €.*E¨o—Žœ¸+Ž™ETã7 VSÁèv©¹ 5NÜ ÛÙmÎtó?.äõ­â‰¡¹/ÓºU Ô7e´Šªà=ó*`RA~ò®‚ü«â;b’V¤U[þÐÜB|ÔPŸ#ž/Õ(²0ESäÿ–ÂÌ×#LôÁy ”ô ÝJM@˜ ­Â¬š+¤ïqü´!aœešIÈ?©µ«(…ñû a#Ãø)ÈÔÐQ„ íÿ"×i?êD¨/Bˆþn@ŽZß­Üšµò®ãi³ŸÜ«#\üÎ=E_Ù¹g›è7;÷ìv‹¦œ 2Ffï܈®®7£*„ú¶„n O4‹à$ëZE–ï…ðTÈwjlùÖÎ9WuMÌ÷|êA¸õX»Ï©òž¥)!ýŽ,ã‹ #ás ãsbËxœñœdØ%‰.Öíëöò?˜¸/¼r5ùÂ^ö…”ÆõíŠyÚH‹–neŽbgׄ™+)„i/†Ø„½»7¶ØËæêAÚ¢Ý;!;¡¾ TJÑî]…°‘ÑîÝãn­Z˜ètÅKPÂ#qºâ¥ŸðH®xê@¨oº"º:ß9îѪÎ=RÉëœÎ`¶°lPC:Yê{!5a¤î‰-u§ÔàCH µ,òË!2!nê$Œë½¤ÒBä¦Fû>ˆMØÛ¤Ë{E×Óû!ÇýZõ´•c£ÈÒ¼Ò¶Bšøw‰žYî52VcUdª$å+!%á™òÌ´Ý« Ç«´¶]c'ˆ^:6r‚è5ã5ZßmÇÙXvÜG‡%åxÜ4rU2ÈG–÷µ—°òvćြ<ân:£–WÌzî¤ã÷÷ö.,ãë #¡¾qXô¶}=äx½Ö¶m?»|"«|r´ÚA¾Èâ¾â¶CÜv=CìAYô°ëñZ›Vi@óD!lä€æAÈñ V-ë ´lú¾AÚ@¦É’<¹ õ­W›êc)i`ÝG÷†À„ú¦ú”tïˆòHƒuïQÈñ¨VÝ“‡Ë2cVfœ§Æ'….š8Ù •±<Ó,7e+M5¿ ²j<\Vð¬¬)òÞ/Çš”Ê7 ¯(Œ´?2`íSØcñd%läá²7CŽ7kmo¹`bf³²y‹rÙÄç¸Å·÷[F{ÁòŒ¾ÞÞŽéƇó[È®w®°ñý-¨¡¾™+Á±…ÌjÄôˆÿŠ,ÞãP_®„‹çš{”b‡m&þ n7ߊJ^ŒJ\Ü»ùD!l¤Ý|r<©µ­¢~TÙÔ {Y­¿˜žˆ3b€À»j#Ëÿ6ÈO¨ooë!õRŒ¦){û,õî V‡·£J„úÖ‚•´ôåqµ´j±G aTX%ײÌàFE¿S«bFNpGŧ+3Á]jæÖ'Þ=Q¦w5qR_ÂEÌ 5µÊ‚¡qkjÒõª%på]åS×¼¹^Àñ µ0ë[é]Uªü_êݨv“Š>Ò7Ò7ŽÅ¯œÀ;îit0úÓÓæ9Y“~H®cgÖfuO1_èÙ%þ'¿j]ÿ’LÏ®á’Ëö¯ìËöYKW®X:ÜÛƒ[Ú{ò¦C)MºKŽÝ¼Ó»èÒ/^òïå—*Jk¦Úµº‰ç—üb--©ž(¿ S©?¦ÒbÁûnúÿmÞ,«xÕî˺Vò‡óŸž!RøÃÖY]h£ÃI *orI&ë½ö;öþtø×Æ }IÉ;¶n¾6S ª.ÿ³Xù¡¶™…­ŠÜ$òe–[äè™?xa„œ®.³”¿U(ÿˆ³æøÊ3ÍKéËj4rð[Á ‘ÿ+‹$‹]B< bèÓrU €Ç‚+½šª¥Î2s¶Yí–„4ÞCzú;IºI¨øE!Ä£©I¢Á¾Elšf4áIà'%Ð4¡[ªÝé›TÓPñ§„¦¦96Ô4µ3m×h™´á‰à'&Ð2¡èZjDJU#âµL #À“•¤ZË\²>'ÆòºvÉ2þ?{oÇQåkF²ØŽí8‡É鎒ØR"%ùv"Û±ãvÛI€ˆ8­™–ÔöL÷¤»G²â„3$$n»ÜG€°\á °Ë»ÀÂrŸ{r,»¿eÙeoø×ëúöL4=ã®®î±ò‡ï³f¤÷íz¯^½º®ÇOÝa[cfÁ?_ãZ:áaRǕ«™Wk7Ž¦é„ˆ/3ö#Üy—B[z¦WlÔ&̓ýœè‘–-IýnñHÚrA\:ô,P¾‰?}£¦i»pî#mÇðlŽÆC¿‰78§»êhfÕÑzèuíˆeOY4²‡_ Nu †x™†ÞºRfÊas?¥o勺ëjËHXÐñFÈoTVýæu³ÊÔ–a…Œø\Þ |'äw*«Ea—øêÞ|äwÅv—È×]ûúß |ä÷Äå‘1ÇŽMx¥âñc#Œ£eç6Çp+EÏv }®§ÃŽA+ôŸyl϶ƒ»¯Ûö´ý‡n>°sÇÕ{iXêÀ´›7<ÚìéžñqwïZõG;ŽïšcZÏEÖ]tCøYoï¬?S½Ê,_°r‡]VÌI'gÞ«\b= oâ°~ôªuk<ãh©TìÏÓû±/v_¡ícÊ?®×_?”£.AOwÁοåÿNõû}ZYÏ¡2èÆçN@Õò‰ÒŸëÕV­Òf1ç…Àȯ±+Þ±+ݼc–½­{غN?ª kÇØËo‹vl̶:ú-c*OÇ®Ñ÷±Ÿ±r¹5ìÿ‰5"cúVwßñãW\¹* ŠŽA7™¸Ùï×½ñÖê9¾Z£ÃÈX °’è™ñÂßé^ÝWg¢>öÎu¨÷øñ_?•Óþ=Ûvì¿1Äáß ü(äFuxúÆâ™ßXÐŽjOo†|óIRÝNC;-‘ê&u{¡ÏåtàÙ¥£Ö6aBȯæ™Ùqæ6Ô6§÷@Þ“^m#Ü Üy;jáàAÈ•yÏü‘Š«7€:LaÉ7ªâ§‘³RRŸ0^VzF\:K;xÜ OÌR‰~Ù·¸ü¤Ñeߊ‚0‰™ÖBñHÆßy3“wݳô3}ç4àJÈ+¥ËmfyÚ„¬;j5§/­æ ç”UóÐafú’\yMlîÒlGÆ0Àµ×*3Ì)ݼ閲Ëà6ÈÛÒ±Ë:àvÈÛãGßœ„QvˆGÙÛ›žQ QÛ¼òÕñß>j°§ïìOúÁþtîÑ>&ì ©“ ·¸¬£þ¥ÜÇ& ÿÒ¨ƒjõöIº}…ȼ W%ï·ç¹ÈJƒÉLÛ ¦2ƒiÎþ¼]ñd_pÌ£Q+ËéxÂû!ߟ|e9„ðȤ_YHýËÄ“~eYŽ ²<ÑÊ2Ÿw|$¸-.혵t9f]1‹ö8/V–© ÿpFçG÷c?É_5àNø÷š^.M~мښ±\xîªaÒ5c9já1ÈÇÒ¯¤þnñ¤_3„±êkÆbq@‚a0ª~d©e`Á;Ö Ѥ~ÃK} pä Ê‹sMuÙ£[9§¿ìØÔÊÙÎøš`À‰”xÈT'©|DYDŠë pò´Â 1á©¡ÚÀ» KŪº‚8¬éÂmÅå±VØRiÝVÔ(Lot øÈ_I> “º.àW!5ý(Lê¿& žô£ð™¼žø˜`~ÂÇ]%¸Ó‹êó“wÙþ´8 ÀäÃtrÿŒ¬¾výå+Z¹¨çù ×S”¾óõè× –Œ 5ʱéX×BN»vL«Xü/³„¦ßúfŒéìûþÁû,ÁÑÈr訧1Ç.ñëùüᥨU‹Êk9ðqÈ'_µÎDu"üäO¤_µHý'Ä“~ÕVŽ+®ZRsBã_/ìP9µŒß$Üé¹9 V§5ÈZò>{ü”ð"ȥﳤ¾[@<ŠÞ~áHÕ, t/…kž lÓÔÊÙðññHÖ–Á¸tV †(=u ÒÈÜ΢ÈAº'3X$_¢#,fä[uÇf7í7Y/ÜOŒ:õ{ÓeCz¢ŒŽý6‘)•+þ¡ÝÍWè‡j˱—c Zõí¦Ì"]Î걿=jT¯ÿÖµqÃ2ÖžÒaîcE{Ê%£MŒý:k§]ÿ”‚I»8IfĪhe-f™a[ùiY…ÎÐ]¯qe¯ÑÆšñ6NI—›½`ÖpŒèŒüÛf=.g<…Q°hZèN-ýÝ º ‡K¦›ïwŒ|Ô4È@‹Ë„r¤gýåCÀ — c†¦l.j0 ý“À).¦"Ï¿¨&RYLÚ>$¤}¨ü¬žšVÁœ4 t·{]H t©o¼þ‚Éjª9ZA0ð&¢ÖÐsñ–„¸‰­£(ýÆÁ®î¾~Éx°çÃ(•'Ž÷—öô\<8Ò{œ~x§uìâÁãǃüÏê/‡oº€Ÿ˜—€G!úôY øŒ”»ŒeG-Q–©jí>žˆO˯¦‹Ù–Y+!I cô‚‘fבް² ¦RFª±Öùj-’©ICŸiâðí*ßÙSÖº±"Q×?ÝÍ"ñ¸c~cBÁ. w¿hvÉb•çh4hGñXÛ¥&ÔoóÈŸiK¨Í”díÀ/AþÒ\ ´_ˆY†¸š@«„FãÝ®#=%©0«„Rä0«Î­Âl¨³·«PƒlrZ[Y5nYçŽ~£¢~òWç\2ú5à÷!®ÄÈÄ C\MŒTBCu2ª„Tä(©Î" %£IKxœLNk‹8©Æ5ÅOÏ IF 'òú‘ào ÿ¦=ù¥%;ÿƒ#y)ÉþAs!vf25â$G'®$vª¡–_Z2‘S ¥¨‘S¡=Zæ—aÎÞ®B › jm7¹¥øéùþ¼~ÝLî„ï=;‘ú{>žßžÀY– œ™ €«¸L87çjøjâj§aS*åTC)ràTg–3ÌÙÛU(á39­-§·?½ƒ%œtí·+\úP‹¡ æ·{L‹EÖB°³ÂŸŒÊe¨2ýåUeÇpÙW{û$ûüÕ·|Þòí ¾²£¢þ-¯„r™pn߇âÉW|•ÐP:*ª†Räà«ÎIŒŠ&Z(áÁ79­-‚¯·?}f]ðRW1àÒ¼“QÐF§gÍFaõû¿k— Ï,t™H±hdö3ˆ¯øOxÅRVóNa‚¿´A‚Õo€ÿÇeBewoª0„(þgào¹œùml‹_¥ñã:üXz¹ìØGýÃUÑšö?”L‹–‰õ6 Š¼æ\|—av+— c¾Eä…4ç!ô¨f!Í)š¦ÝJëè"²9 ƒ“ØäŽkäé‹„3QÂZ¿°íæÄh)ðÈç(óöÐíæ¤îTà¹ÏmžÃZ°ð¾·¯Ñ—K.Y˜+±¿còMŠ‡cº¿=XÂÎÞ ùÞ¶$™ ¬54–’4M5‰ýóC~x.¤šDø•ñWÊŸj*£Ñ8 ŒôÀ¶‘NeÄ"%œj­Ò*áláøí*šÆig²Z›¤ê\Tüôû°Ê5œI¾¤{ÆþpÞ„Ñ~ó§gXß”Yb)Ë$_U6–Å”ü¬PçÉÍ5ÊGcýl•T©M^…‚Êlä2¡¢ºÜ¹cÿ`tB™«€Û¹œÙžFÞJ 7wp9#ufK] ¬\bMm'Céï¨ð¶«ÚVË\ 4¹L¨Îj„ Çe…ÛZXí0°Âe ïçóš(Q“Àc\ÎÈ›ÐpO8Òcÿ|@‰ü8ó\àý\&L!?ÎÜ |€Ë„1­ÓÙ¹;G^|ˆË„iwç.àv­¢šîÜt™‰¿=J3&ýLžGg¾7n˜ú4Û2ü»S]Ëêâ‚4!®Ú$Täâ§×„)Ó$^Ûû!ïOÞÏIÝ•ÀĶët.O8òºkÈ4ïDè p ò˜´½²m9kƒÈ—€¯‡üúX ¶ø­8gm£7ß ù Ý-ä¬ R7|äwÅÏn«gm°Ü2ö!þîQ© |A‚Uâ(02Á8Ÿ„}ÞÍ1³‡Ë„ŠÂÕ¹£¦îö;F¡’g$‹¦e°w¼K¯]a…gæ ÍeÂäÓ'R¸Xær0Ó^+öƒX0(Û.yÚn‹¾ËìÉïÐÇÆcZëêõ8Vqü­ùÖŠí2ûæyͲg[ôµÁõükûÈ Û“î‘iÿßÂ76õªíQ±ÜÉ1{*— ÕåÙCÑ e—Ïä2a*Ž’]<‹ËÙØ fniØ;â±cö ~3¼~ÄÇh)tí€N)71¥›ž!ÎØVNÛ5ó÷k[A-Ệ¶›•E‘ÕëñÕ®v°ß½³Â~ƒÎO3?Ú‰[™úø^&a¢ÑÌfŠž?«ϘÐÙOȇú4ößµ´ÀjE°y¼V+Äêpd•$rrL6=›cç.wJeÕPë)#ƒµ!Áuå³Î. re‡Ê|8rZNê³⑬æqéh|z%@57¸œÍz ÛbŸ}¬Dx6ä³Õõq»k—°vGÍý‰ÒÀÈ=ÉçþÁ {!÷ƶ֕<ÂZ& 4Y´ñXBäCcv±hO‡O°ŽK ¶Dõ7b~ЀlÄï¥G?‡¨E˜Ü_]¬¬K0[< òiʺ —Ôš…ºLXÌ‘sŒ—×B^«°6„SDêº€ë ¯K?¢“úõâIߥ/†_œ¨KgƒIH¼A^¤Ì¡/GÑõX†¢;ÍpÛ©:tÝI<Ä—7AÞ”¼__ _&Ü ysú~Mê·ˆ'}¿¾¾|I¢~Ýu×dä…O—À› Õþi̯=Ö›y%.} ¾G˜b¨¾nLØÆPMê× Ø¶P})ÜøÒd]ºÝ¥/…_šˆK¯ð5wYöè/N/÷ûG{FöâKñ=ÂUW%ïÅ—Âs WC^¾“úñ¤ïū๫õâyy3W• ¶¸¤Cõ¹žÃ¬#d8Ú(e[‹Ê ÿ¢¤qC6½ÂéÀ=¥–£9û*88á^È{ÓwvR£€xÒwöÕpðÕ‰;{%ª³¯†ƒ¯NÆÙ+årjξ¾:]g¢y;}5<À¶9{¼'QgÏNFõôx7¡ú®äUèJ¶žJl<ˆÕÙ{P_{àìKÒqö8xO{½`Ûœ½Þ›¬³ß´G‚×B zg¬ï]ž]w’v—:4ÅÙ»{áÑ„[!oMÞ»{áÑ„O…üÔô½›Ô_% žô½û2xôe‰zwçM{ÊÄC–º§µ!¡³ö4£ú0q[ ¼ò%Éûðeð[B¡Ó™¶“úUâI߇/‡ß^®Ü‡›oJ ¹4ârx+¡ú|Û_M¢é…‚‰›XŒ¢á_S°Fn°„Xž€<¼_¿%„<˜¾“ú!ñ¤M£^ šÕC¸9!¸f‡V™øÛ=òÓ•GËeîpä<à]ïJ$Pκbgñ0(“ÓIÐÞ ùNYÚ³þòÀc¥ö×Ewægï†ÿâ‰jÏiýåÈ4Tï|ÙWƒmìS¾Å€–úÒc?üÓÚ`ƒVs*¬Çùï”W‰yºeOÊxÖÿqôÏ™ü?ŽiTˆ…Ã>aÉêð+àCþoeÕáQY.¦Qþj;¹œ‘ë÷‹Ÿ.ªU‡¨‰é.árFªçßPëü?;h Wã~í÷ßÛ¸xÔgÄ#Ya—Ä¥Cà ijT.D§ÚŸú-Zõ’ZmÒÔµˆ…N³¸£UQ¶å¢æjÄæÒŽÚÈÈ¥“®Ï¤n%°r_lƒ]ç¯YwÝJ‰ï#­uáê%C+Ö8kŸt~€[A÷tÖ¾™ã¬U+§µ2ûEþk ½G022 yRq›‡45îqàó ?/ãNï…|olãviÑŽ"Ͼò‹”™e~Ó¡ˆ¦Vyðaȧc•_ ù•±­²B ¡#sL¶þ¼ øÈïQf¨.ªë2fz øaÈNÇLï~òGâš)ó”êÕÓÚ”ŽÖØa„@¤ÿc¦×Ç7(zbÓçßUËâ©Ëúù ƒ‰Hé¾ÿWXØõÃé˜CqvÌt\¯7§m³¦5·2ʺþ‘‰äŽQb-Ýz«¹^¥`.ï3”L×ßšˆAÿ#"ª—ùr…Šì>ªÒôÿ(ü¢kkzųi«eÞåÁ¯!˜‡4à’~úQŽ™¯r™°ýxæ[Àp™0WÍ| øC.ÆNÊWœ”‘Æe´“ãµÜ´UT’£w>Ù¨Y0ô ­Á2¥žº»«{…Ë«ý›£©Â žU¬Z˜0˜«ÙnÞ(è´îÃô¦ƒþ¼çèt¸À¨ž?BUh§™?b8ZÏàæ {û´Ý•Qá_T«o  Ïì'›ú4ößu¬òï¦5}â9c,R7[›.î½ö·5;¼¦"/ãÚú}-ýü/ó?ÓÐ|hÝ 38á¬ÄÏÞµEu4VÛ¾<:­íÑó×›–…Ì5Îë{ù¶Gã(cäÒ‘øCO¿d%ŠbóB²×Úåضçÿ­Íü´€[Y´4õ’ë40Ðœà+Ç(úKÆ çš;ùp}‡½ÁÔ.ŸaŒó¢Þ´‘ÜÁ‚«ú{˜úˆŸP@…ÀüÂ?Œ‡¿Å$ 쓆3iSÂnÁ«ð"rY‰šóˆÿ¯³­#%Ý?Ñ``=mØÐKK:›Ÿ4Qÿ›AãQ»•œVÑ>Q¦Ÿ*»°†viMÉmNÛ“ëÓVç7M÷iWç´]9œâ”Ó¶›¬É÷OÄò¯÷f©ÉÌ-àcµy,‡ÎÇqÝê=à~:ÑÏ~aÜ%dI%KK"–ÀøáÝå&ëå*ΤÁòW?#²‹öø´¿ç†¬rÄ)äÈnRwøJÈñGœ¢ÇvÒÿ*à«!¿Z™y²C›$ø¼ø&ÈoRhŽQ»XQûà#‰mŽ¥=C¬3¸asÿà¦A©ªófà£Uf›«„vwpý@Ž69°Î[n<ŸËëk¬Á5†µ&¯{:«ScÍàPÿÀÀ`ÿÓ(¬°ÿoXjÙ†™ÞâÃÀ‡üï -Ëzt£!jßü äߤß.‘úÿOÚ4„#b¶Ò‡X{„xŸ¶uÆy“äwÃýé†\pš¶uÈuÖQsd8«]m¼B½sÖÝŸÑÉ5-œê¹Þ\‰#<Y.kxÈäuvűø8íî ì7\ö£¼áJð>ò³“ozHÝÀ{ ßÓ†¦‡ô?ø\ÈÏU×ô¬àóbàK ¿$ù¦‡Ô=xäû5=k7ö÷¯Ý8$U…^ |ä×)³Í%AÓS°MÿLâÁÜÚµ6­9<áäXS4”cÄ#6/ÄôÍÀÏCþ|òÍ ©{=ðO ÿIúqÔÿ©€xÒ¦1Ì]E5ÍË1Ö¼ð‘ï>¿k㮳FÅ,™t«‡a;F‰÷cj˜ê˜¾qgEçGÜòeÙ4ÍÇ{>9íZ‹Z¦=ìO¬ùbMÖu9m¯1íõî,¸¹ÞÈ1m+^šðdu7ܲϱó†AKË«çí2ÇØ{n7œ#F‘u„L—ʶkVJ´lzξ™?í@íˆ$ÿ”RÖÌê£fÑô¢ö˜èÝž ü6äo'ßl‘º»ßüؾµYë)—sÚz–¢oòûË(È-ÚÍ–Éê¼KS?¬¨wèE“y˜eê´ZÝu#ÌíïrÌœÎe´kèSᔪ©¡/¡ h¢§O»>G Ÿïa™ «‰Ìé¨ÒÍ>&“FÕᆼc»n¿kä±¥/¨°yÃ÷XÌÉæäLK3-ö7Mú:ë¬Dnè®B¾²T£ß°Âæ„\qW•(½ÌMÝbI0{ûICÛFÓ4¬œ$¸?üäO%_IÝ}ÀOCþtòGÒÿàŸP8t±N‚ÏŸ¿ù‹Éç¤î³À/Aþ’‚ü‘N»^»v-Ëׯ—ªV_~òw•ÙfeƒüqhíÀÆ5Ck×l\1u$’?þòo“OIÝ÷€¿ƒü»ô[„«xÐ 0xÒ¦± z·uÔñˆIã>Ö0SÜ,Õ»%W›éÞéR`®»²À¹`Ê[Û_ÆØT±6ÇŸ[Ÿ9X.¤—þD¾æšwÕÎÀ‰>p¾…@xd¹~aÃQŒý_®Æ2F‹e‰¬õÁ zÔVˆø½ønÈïN¾"u/¾²ÜªHñÓè­é/ð}ߧÌL™A :, ž¤!R÷(ðÃ?Û§õ R#Äró Ñ› ¢òàç N™a.lÐ  ­9츥\Ôˆ8~ øSÈ?M¾"uŸþ rÖ’úŸ ˆ'm;¸™«¨¦zµ@´^¯OÛW» µ]£Æ„>iÚþ¥¢%ý¨Yª”ú‹&ë}š¶]¨µZ…5+Žf±®T0u›§{ü…åI b\—'|d©­'ñ ½ÛK€?†üãä[-Rw/ð'ÛÇù ÆÐÐ`?K™)¼ ºÍѼø뎶 ^ì„3¨¦†X õ—•úƒO÷ÓBqiŸv€O]aé ¶5nÒÊ| £ šŽŽ;.Â^–÷·UsF|Ó]x;Â䂲*¸p»Iwq9æ‘°Íxz½ä« ©3€Èñ/•žì‘þIàä)uC×JðyðÙŸ|¶GêŽï|¢lop-‹aÑ'¬ˆÊs€÷C¾_™eV5Ìö6¯]3êW¤5×æsƒ¡Ö ÉúˆëÃÀAþXòY©{øqÈO?˜“úÇÄ“6k¸¹«¨¦Myˆµ)Õ=}”’]ã·+þΊ>mw®º»Âß·1{h»?#ç´|Ï{ÀV†ÓÖ ì¡› Ç3%Fv£(‚ü²ú´BßÉÞ”·Fù¨CDî5À÷A–ê{GkHÝËB~´ ­é?ð? ®5Ú,Áç£ÀAVÏBZ#R÷AàÇ!ÇgXßß¿v(úè‘yøEÈR“ mÓ×°=Ü°f`íÀºþu7ô°à²y`pý¦þ¨ )ˆñ×€ÿù’o•HÝ—€ÿ ùÓoHýÿ ˆ'm×r£WQM«ô:k­vY¯ß.ñaðÚ xõÚÞâ^BqÇÙŒuzÆÈýéÚé²e:&ÛßLÓµGY35s«[ÄÒ¹%BøȯQV¹z…Æi;uìX™o§Ì¼0!AûMÀ/@þBòÍ©{-ðÏ ÿYš+ÒÿEà— ËMT6l®Önàó—À¯CþzòÍ©û2ð¿¡ ¹ZÇš« ‡úû7lZ+U£þ ø7ÿF™mú6W›Ö l\»~€µR9s6ä‡Ömvi¯ˆòÏ9fÎârFê"ìhí©ý[¨=›Ë„i7¤~E ƒ'm×s«WQÝÈÜŒ–i}Ð2}œÚ}åXÞ*ñ=Mõs·‘kÊ x;Bõ#sgís§ó´Éî–›‘%jG€Ï†üìäÛRgï|OÚÒÿàs;”¯+àób`ŠëÊIÝó€*וûÝ¢Ô-Ú½!2/ª_WÞÝ°Y»q «ôô¿ÁÐéôÆ…x¾øYÈŸM¾q!u¯~²Üܵøiä¨Nê?/ ž´iì᦮¢šÆ呺ƅ:A³»FõMNH“ãù§ÅÖ]ä÷€ª§1az¨IÓ4{QQ䪵%CøäG”U­qÄ®PÉëX£Kï¹Ùuó³ìßüäo%ßfíE&ü6d©µì1Û,Òÿàw!W]›µn@‚ÏO€ ù¯“o³HÝ÷€Y®"~º´gõÖ±¾ÑÚuRëo¿‚ü+e¶éi´jp`ˆáÆ ›7oÚ0¸~ÃÀ†Í¡ƒ±!-±ýOŽ™•\&Lºå"µÿ µ—3ZúM©¿¨†Á“6¹Á«¨¦åš`-—8-Xà‹Xýó©üFk/?ûoµ¥£’h MH“ߪÆÅlöá ' O(«(«Åa9Ó.OèNIÏ•™ ƒ$HÛÀWB–:ˆ!ZÃCêLà« ¿ª é5ð5Õ ¥fÃ×â7áó&à#I¾á!u¯¾ò›4<ëYóihmÿ¦µ›¤êÓ[€ï‡ü~e¶¹´ñ Üàší×î맣ù6lÜy+Qýðû¿Ÿ|«Cê>üd©C>ã…{RÿCñ¤Mã&ní*ªŒkÕêlh¾uŸkÐæËè"×ýx;Bõƒq=;ìR¹â]aíé*íjZþ'¹oؾòË“orH|äW´¡É!ý_ Yîè#5ç>7ÿò$ßäºWßù±Í±¼gÐ?øaæA:ùa ú©CÄçMÀ÷C~¿2ó\¶ráp.ïô¥®¹¹Á¨âûàO ÿ$ù¦‡Ô}ø×¥zÊñb>©ÿñ¤Mã7yÕ4=tDýʹ¿{#½lζҵ‚éÐF=ÿoj›fÿ½Èµç ^šPý‹…ÅrQ—n£çï‡,µB6Z«Cêî>ù6´:¤ÿeÀ!?¨®ÕYõ ;âñj`¬ŽW´V‡Ô=|-ä×*èèÐêƒMtÚLG‡È¼øÈïPf›ÐÝ⃛‡6¯ºÞ€H> ü È‘|;CêÞ ü 䯤àIýWÄ“6›¹«¨¦9kV;C§õG¤v èžYj=Jã^û6wºTöl:ÔÝ?úhÚo¹ŒZ»ÀZ¼¨¢z>ð*ÈW%ß4º³Û o‹mÄ•9íF§H½Ì>m× [´my½`к=¹­oDn;ðÈw¤ïð·Â“TãðtoFpƒ˜0?¨q` nô¸É¼¥¸4o;Áå RGñ< ¯EøLÈÏTVqª{Þ"Ÿ°¹”|í u·-ÈV'ÒoËË »ë$øLB>š|âDêîNCžV8Qo}úõýýÖmª2w_YÝnúê쬯NÃÃýk× ¥ûû'{…Üш™±~ðS?•|&Eê^ ü4äO§ÑIýgÄ“6§sÃWQMÃr€5,½ }Ú­µ³uvØ–½5.Žþþ½9ûk×$ã*­¬çèãÑO~^†P–PÕ©f#«Ã4HlySºcH ž£5Lº!5Óãµèm é¿ x ²ºQ“è[ˆÇsσ¬òrÐ6†Ôšß ùÞØæXì/Ùìï_½gNLž|òƒê:3˜MÖn\s˜eê“k7ą̈»ª‰ê«C–ÚW­U!u?ùé‡sRÿIñ¤Mã6ní*ªë®yEiR‚ÛeÀ5פã— ¤ã!ÆvŠ1<©³ßËë–6jhö¨§³T¿y¥½ãðÕ¥®Rm¨õ”×0M;$Säíhk#Eê³Æk¤¶ž(yûwÜxõÎ|òìY$ ž˜Å²çb…ÿ‹üNÂ.q_|R¦åa@w€j\î V$¬r–§ùñÊcŽ]Ò¶³N¹áxýW;ö«ë†§éE¾Je]/Õ^[[;¼:òŒ5¡p-jÌ7¸€qÑ®ì'þ¹Qμà'¾‘9Žƒáå²xÖvs*´ödm Ü|OPÝ©p‘9šàe*-« Ã%{²¶¾gÚìÓ&ÙC¾9ÌþÓ™ãað:¬”cã™Ê¨'ì‚ÜÕ×*Bw€j\«—\«â¡— 'Fæ[GÂ^Ƚ±ù>…óëqè¢"p6 Ñ=Ì%§@ŽŸ…G7« ݪ1k.0kõ¤$|Èì“f? â„[!omCu~%t¨¦:ŸW×Éò]Þ3$ûU¯+Âó Ÿ›áí³ûU·ƒÛÚåš]ñòvɨëlág¬ËÅœZg-^}‡»oÞÛÇ^#¼òííéu ·Žµµ×õZèðdïu½ ÕõºÎk”“û¾ÝÉ^V¯WZ“¢[ö ÐàœèrýˆªëråBÍ«¤¿õF}£RÒÑ-þ&èðÉÐßzïA«¿ÕPí©#ÆQÿJ–F+÷óP÷f¥ÅyQ$©Ï ˆG‚F£5Èó&hQkDJoéà‹Â —@^¢Ì(§Œ°ÞÛ”í4Ú ôØp)ä¥éÛä-ø^€xä `Ö·²û½zð¿?Äkwȸ#}c }ã4ü•åügËèg]ü.ÿø‘¿\PãšöC¼N›ù6›×x¥òšýì?¥ÍÛ‡Öæ×ì­˜ÅÂÐè¦Á ±nÓÆu£kpòËš’n­á¡?é‹~ŸÍ<õ_ªEÊ”uÒËj!•ä×(úiu˜›„l»¢^\Y¨'AÓ'ô³y³¢âÍwõc¯×üßͬ¹Â‡ fÕ¡VÞ.˜Öx­(O!fþ›oûÞ±;ÿnôÚ ‡Éâwì»ñÀµOË{ÿøÿôjháLeWDµIPœU«,šù'/ð'ë=f–ÿ/`þ?f&_9Ñ= –^j´GAh¥ÿJ)(eªßk”"ÐPY¨¹:¸²Tá4Ô:D/šz£Ö;‹’ÈÖ—JÚF!õ§ ˆG‘Q–UkR‹ f!Æé„AW@^‘‚q„vV ¥eRŽ€xTç€Q4ü FÚcQDv]0HWBÆñL¯Ø(œ Ãí4N `<ãÌ‹K‡ý¿ OÌR¹TÓ´]؆ìBs«n#y»}Ð^ ùÒ¸T³c#æر ¯T<~lä€q´ìÜƺӕ¢ç;…>×c½ýaÇ 3,žyl϶ƒ»¯Ûö´ý‡n>°sÇÕ{iðÀ´›7<ÚìéžñqwïZõG;ŽïšcZÏEÖ]ù Ýé?ëíõgª÷¹æ Vî°ËJÓœtr–á­±Ê%–Šx‡õ£W­[ãGûK¥bžÞ}±û mûSô'Üi×3J9Ê zº v>ø-ÿwªßï F<†»ñ¹Pµ|¢ôçzµU«´YÌy!0ò«GFFìŠwìJ7ï˜eoëö‡®ÓjÃÚ1öãrÅÛ¢³-Ž~˘ʗ˜rúñ>ö3öQ.·†ý? ±FdLßêî;~üŠ+×@TiÚÁ®1ó7ûýº7ÞZý#ÇWkÌK V¬¤zf¼†ð·GºW÷Õ™¨½sÝê=~<¬§ÎŠiÿžm;ößâ𫀃£:<}cñÌo,)Úz „jÎÅü.*‰ê:$°’a/¶B˜½®¹UÄTFY)6ÖJ.”Ö†ÝÅWæmËâ ÁÖfaÝúÐwéd<ÉWiD$^Û+Rª=Šl»x¤`pŸcEÒò‹=ùã€í,¢”dèX{ú”ÆOÌ$iqÐËé9z†R(¥SQÞþ‚¼Xºˆ:BÇ ¶×¨§s*LNx:d¹þŸøi6ú$Å©ð9Â3 Ÿ‘\VÊc!l TmjÙ·­©P‹PB‹ðýS;$G ²’<fþá9¥zB µ.áSy!Š3Às!ŸÛg6P5ö¦ËFŸ¦q–Ü$KœÇCgÿ¤\Ú1ò}š[u ¯eEOï‹ìhDú<à>Èûb“ß®ÿcÉnÙ%vìÛºkZãû¶Ýp`gŸF‡aÙ®ü³`Ž›Í;²4É¡UãQ_DˆZþå!ŽiE0R»x äkÚÁˆÀn൯U8RqYÿ-¤Q£2Znùˆ%~¹­'Ì ¯­¿4.%°D€xb–ŠÄ ^KaÂ'x)jP2¡wS4¡µPÀ'œElI:gÐ9C·4{ô0]>hiù¢îº2åvp%ä•qºõç+v£­ëŽZ͉Ï*`rNY5=hŠÔiÀ5×įå9 « ˆGÙÛ›žQ QÛ„,7Q÷öQƒ ©Pº£7¨ðïpL.¨tQ$Ál!ð4ȧIÇ•3f0ÚKc“zÞ£aÏ¡ð=[sËFÞ›öWyc 93©sÚ>ÛuÍÑ"û°ÌÏTÓC¦Ôƒç™5T’æwž9Ñ— @²™|<¢/Ý< ùpü´+ò!Äô#À"ä¢2›,ìžÐ‹c–픤ìâï†|w:v)C>Þ&»< ølÈÏVf—Sº-cÜ8Z–²Ê €÷C¾?«Ü|òm²ÊË€v̺$8vm)ÚãþÉêRvy5ðȤc—‡€o†üæ6Ùå-À?„ü‡Êì² »lOŽ”QÞ|?ä÷§c”?~òÚd”ƒü˜2£,Bc¦‘2ÌÇŸ‡üùt ó!àŸ@þ“6æO_€ü…]C:«XRfù ð[¿•ŽYþ ømÈßn“Y¾ü.äï* bžS±äZ–Ÿÿò?¤c”ï ù§±2¿Oæ¸púÎÏ€ÿùŸ¶ú¾a ד²Í¿ÿòÿ¥c›þòocÛ欜¶ƒŸ°­Ž:Æ$ív,D_¡ïà»™3¸œ‘š‹6¾B_ê‚Ú3¹L˜öø ©?«†Á“þøÊéÜÏ}Ln|e‘0¿$Ap!ðLÈRó‰-˜A¬Òj˜Å5 FÁ2ÜêŽûàÖ(ÓÕ¦& Ë?ŠÞÿ½ :pÞ5œI£ì›uÕŒÆЫ¯Þù>…Y@0ß5¨Ÿ—_ùuÉ5R÷Ràë!¿>vÝY¦õ Ƙ^)z½‘sbóà»!¿[™‘æw™JYèƒÀ@þH:zð£?ÛBóú4Û‘1ËÇ€Ÿ„üI…]oÊÎù1BÊ6Ÿ~òWұͧ€_…üÕ“#% J_þä¿K>% u]À¿‡ü÷駤þÄ“~J°œ;º N¹ÐÚ f ñ§\NÁèQÞDëE­URP2t·âøÓ/ô¦’um§5Ç(“ºÅï)ž¹€ý²îù·Ó˜VÞvʶCç„x¦ËÏqòŽêï·âôªÉ"–ã{ËQé—qT çu»Fô)fâò'À/Bþbò1Ô}ø%È_Š]Õ¢#þ/ÿòŸ+3IW÷¤œE¾üäFvHÝ_¿ ¹#;¤ÿ;@õ#;ó»-Óš”²ÉO€YªŠn“ïÿrüI*‹# ?þ#äTf–…ÝîŽ'mšþäÿIÇ4¿þ/äÿŸ²DMØHýÿ ˆ'é„ÔuuTWîûrüQ­È ©ÿ€xÒOØàÓÁú´„¶ù|°·…À¥Õ•x’)ÛLNV5eë¡ Ù<ÝíhV¥d8f¾W›d™û÷Ì!ÿ=üµ3üôDú¿f°q¦éår‘}/jõV÷û+–wH® ˆV=Î@• ¼ò=éWRÿñ¤_=ÎD•83Ñê1Ï_/A šÎï‰X;Ï äTkjDP!z‚ÓCõ’‹m4Ýõľ9Êú=³–ieÖ'*¬Säöò ÒGùicÕóJ©£$ñþÁÀîs!?WÚG‚sSúFÌ1Úl’¦Ûå÷÷ÂŽô\<8Ò{œ~x§uìâÁãǃ¿8ÒÌ~M7½ùç‚üPÔ— oÌÚôº`¤tØeD÷ë q?™ý®Døåñ—˯z_¶£Õ¾²C’4'w#=Ü´#½aŲ‘U¯ÆZC6²ª5J¦V*õ¦nß®’ñ]>e­ 4uPñÓÓ´I½X1zÜÞœ¶M‹Qußùs1p¾ ø^Èï+ó}ñ÷ÉW8•ÐH p*á9pª3Jr3É’ œÉim8Õ8¨øé(œÁ-ï,5 Úè4·^‰¯ÏJY&[2,Oá›4z>^ñ€1÷‚ášû#þß•ŒÆxÏÌR.ιhœY¼Ë„s"gV ÄWÊWÕÐPÕðŠ%±hœhÉ„Fãµ6ÆŠTüt¢ñ”Y,R8¦åP%šý§3·ÂC1‹Â4gÜYÑ‹†cÔùÞ¥ ¬²e÷n «ýaDä°ÈåŒÔ2@ê `‰Ë™Rl›Fž õV ƒGÙÛ‡Œtb§¯Öæ2aÜ·:ÒIêË5 ž˜4$F:Ïâ¾ìc‚#þÔãtΤ”Ÿ1ÀÉ=Û2h. d;PÂê ú9Ý‚ÁŸ0Y¸¢yÃñtÓj0yðŸ^ôt  ÙM¾Jœ…*AèAöÒ¯¤¾" žô«ÄÙ¨g'Z%ÖŸ‘à·(Ì•IÖ‹SfðZÌŠ S`Sk–¿m– <ëj8·ú9Dz=päs¡ŸC„¯ˆ_-C<~?G Åýe¼"õsÔ%™~NÒ%Ó¸Ÿ“¬Ö&ýu*~:d,=Ðý3ÇjëfN•É…ÎþmÙžmQ .N G”Õ~S±å~üyqõ’b‰Cþ¸²Ú9Ï?J-j߈¸<üÈR»i£õHÝãÀ?…ü§±ýàìÞœvcÝJ_„™¾üä(3Ó:fXzw/‘ú[à¿@þ—tìõC௠ÿ*ý¾,©ÿWñ$¸“º.à¯!ÿ:ýÄÔÿ›€xÒOÜWp¿ö1¹Ä}Έ” ·¸¬£z”d«?óJ„#M²v~R¸æNØ•bÚ˜qÃ2¼.. –ıÇaÃ"o’ÆL>9³yYÊ„Ç!osóB\î¾ò‹’W¤îYÀC~qìš²»—ï¤Ò‹®í§´WÄ3Æ '§ÝÂ3„­Ú`ÕêßàN çÈiŒÈ];z‹—ÿò_*3l×^Û“©cßþòæîM•*©YŠ¿üä¥ß‘ú ˆ'évˆÔuù'é·C¤þ¯Ä“~;$\¼“äâj~8±·…À¥ªW¿«º|hæBêÚZQÖ±1Kì‹å¢žŸ¹žºìЯ4\R#4]Ž]± F!§];¦U¬êHlŸ6£¢Yzýˆ£<&›ªwÝò£W£V-*¯åÀÇ!?ž|Õz ªá' "ýªEê?) žô«Ö9¨Nç$Zµà¼o r Ë:â¦x3Hm¯Ö­¢éò£ƒ9Ë`”f#ÈÁ1êïB(ŽÛŽéM”¤øs:ªçÕw„|°­ <1y&ðÈw¤ÑÀ“›:d=ýžÔ ˆ'é(D꺀yÈùô£©/ˆ'ý($ܧ 8 5^9åŸh,ªŸ(]fû½È`\äYMbu:Pƒ¬%ï³çÂO /‚|Qú>Kê»Ä£èíŽTÍÒ@÷¸æy@ë JªiŒ¡@˯<ƒö7:öÑ ÏRJÎâ4Õ~oãçè–0¾Ä~>iØ뿪ãOµ}côê °ž€§õ¹ñOõÙ;:ú8ËïŠåŸþçXb½?Cš ?b“Loš Ì?]øÚ˜æ›!úá F]@Öç2¡¢ìèT \žõ‚¢ÓÊ|ø .&Ÿ"‘ÂÏÿŠË„1£Íoá[þâ¿¥õ˜9ƒ;Ä´oÁfŽã—í2sï`-¨S£Æ ŠéÖ´ e‚ö7²N¤Åû¨½9í _7 —V#VgãÆX'œUIÝ1 ædôW+¬Êξ ö ­XoØîó¡O[¦˜P»„Æ\Yub9»Ìj *ûorÌ~Ë„1|²a÷Hî*,"õcàßs9«òLŠ¢i Qû]à?p™P™Ú±^R÷ àO¹œ}Æiöâšßa#˜é¸^5;ã>´$,°ùklýÀëï{ð½Ë¬Ö7¯ß&`//ë-Ž›ÔÇä‚…ÈQÓC.ùYíC~ÂfõBëq j}Šö”_qË3N!b•hû±qT/•‹F_°àw†Ú)j”Ãâ¹]ê7ÆƘ"—„FdÖ‡3ÙK‹ù³Þ¯Y2Y«VœSYmU韎îÙŽÐ`Mó¿W`Ïç©Á@–™ Í{êæRXѨöOš¬éÖYûY)±îü£hNØvAëÙsC¯Ø·'±êÊß±Òï·p3Þ\qh%ªåÏ8Î[ÈåyòùPœZ#¥Jù¦Ë³ˆù"àÙ\&Œöô´—gáñ2Äã/ÏRF£qk1ÒÃìym–2Rµ†¬ÍRk‘Vk³š8|»Š¥ñ¬dµ6Y˜¥Î5ëj‚ÌAá"•ó@弶ÄÉù#ž^¹}H6Tž¼ŒË„s#T^.¿\†¸šP©„FèJVß´RÑR ¯ÈÑRQZ¯dmæöí*™ð€™œÖSƒŠŸ^Å›eä½Õa—ðÓrQÇèÄ·8Œ·ˆZä¡Â áª@]¬iÚ¶`;yDF+Á‚0þè³s“; C×R­Du%<²ºÜ ´MêN®€¼"¶m¾®ÈcK¬ÓëÖ÷wC.Oä½ìÚ…j·¯~,IÕÝÚÊ;³`èøµïb×GŸê­ºô;èÇóq¬œv­%ŒáöiECÊÞü9䟷§;8}(lˆ©iŽCÌüwÈÿ>r"üøodˆÇÏq”Ñë2»FNp”‘Š”ਵHËî`¸Ã·«Xg7Éjm’ݨsͺš Ó©ü7äÿnOœœ”“ÿÃ13ŸË„s"NfÔˆ“¸’8©†FXœœ”‹“jHE“ -Ò2N†;|»Š%4N&¨µyœTäšâ§7°äز=£áÅUÕn`ýá-.Mô@󣺕7‚”5Fß7Ú/ýFøt B¸=vñP5ä.4G<ã¨wÌ›¨aÓ› ™@“ËSIžÏ‚p²1ø°Àû° o51X Æ›"Gzj†– ÅJ¸EÅê „âlˆëˆ¡M¥Ó¸‰¯Ží2Wx‘œÖM„šš#~zš?1í/Cˆ¼ÃY¤4 J“mI©Ï¾ë© k¬?¦­ÑFèªc,çsñ–~ øJ.Î,ûUñWÉWá•ÐháÏéilj©h¯„gäh¯ÎH­ïhÕ¢]%h“ÓÚ"Ъq`ñÓþ.7–G÷ܪ ý4:Ýë_,Ë°î™®gæùÊIá®Y«R,Š—ÑÆßÁ‹|§m)øù<ñØ}üÐÀ±-ÇG®ÐFØ[yºï øÎé» l©ÿ@2‚—cv)— çBŠîÿ ð&9:o%\ †\£)ópG ãjØF ã MÕ*io^uÚT^ ™žpn—9CÛšµ6okÕµºª-9>^¥r&¨œÙ–dþŒ²ï:ƒZ¿6²o¤„/,*´j²g¸œ˜#™|vP >(C\MC „FÆ`ÅHO;KÅ%$#Çuj•ÆG¨í*¦ð¸šœÖqUëÖÕ­ÇÓbTæõ ²^Y-:K/z†c±Ĥ1Ü=î:ûgwXMo²$({%p— ٩ْ ìàM\&Œi¥ÎÞÈ[*ˆÀ~àA.gåN Oã´}KyUÝîÝ ,r9ùœúvµ{%xI†¸švO †5öŒ Ý‹×æ)!¹ÍSgVmÞ V„vQx{—œÖí—­«!²í]@åNP¹SYíY^×Þ וjìŽ_ÌeÂ4;ø.Æ4Ñü^™»Ö‰Ã}À¹L؆öî)¼šõT“Û»Ym¿»Wºá{ø.ΆïƒñÊWÓð)¡Ñ°êž4|³-Õ*a¹Tg¦V-`ԪѮ² o “ÓÚ¢)TãÄuuF¶) ¨|T>¬¬>­¨k ½);皣 Õ~ø .gÕ@Ò´=ü𯸜üÈÆÞkÚzlËè§f’R¿_H½ÁŽŒ>:u9úY2Dú›;q™° è|?2È6—‹çr™pN4—ç ÄÏ“!®¤¹TC#to©oZ™ÆQ ¯¨£B£´Þ[ÚÌíÛU2¡Ma‚Z›7…ŠTüôv¬*æËò•’>Ó¤¡L×sÌÑJÝ¥j´|˜îRÑ­‚î4Ëvèañ«9mëBG½Èm«¾ãQ¼ãÑöDâ)Êo¥#ñ4ð…\&œ‘øEñÉW‰•Ð‹ÄÜ´R‘X ¯È‘XQZFâ¦nß®’ ÄÉim‰Õ8¨øéD°¿ƒY=hÌßžŒ£Öy”v Ähá쪺½Ñãæ¤Q·U9ˆÛ´88ê6|ñmÿÞöÿÅ~ÛȧhðÚÕœ0_Óèì͈\.‚þ‹ðï GI.]øt'ó¸c̲ÆQ¡9¢Ÿ5l¶†¨Ù¢Oi5Qð k«í×r^‘µ­ ÇÌÕÇ{ñÉ™øddÜ›õÙ²ºß2WKµT* €×B¾VYûçÕ·ìkï¼õ RÂ®× Ì¯“a~±¶‘‰¢Å]e|#ÅÝdµv2ŸNRiS¯‘ÉšÔ:tÖ¤¶€f _YS}؈œC%í±s¨'³ÇRø?©Ã܉¶)¿r ]¦îS© /E.7B¾ñäÊqӜʕEøÙúÙHÑ«ÿéÂà›æjÙŒfðÈ÷Ì™Œæ9óçÈ0?áª^oèÕ\ ÓÈÕ<9­Mª¹¥‰ä2êÜ%V.£®€fåÝ|êº$¤²˜$}5<‹y²úªd“^hkÝ‚ü>°)tñÓS‚›&b8È‹ K]3ÛÎÉ"ÿbà«!¿ZYê‘àd~@ü52ÄÕ4%Jh(žLPÆ+r¢Î(­b¦ÜdBÒ%/“ÓÚd2AƒŠŸ®¦ êEÝ¡K`i#º[Ò‹E&G—öâz•úS?¥¬6©ÙþBÜþø]ÈßUfÉÐP¤îÓÀïAþ^l;^¯™t‚—!Þ±bZÚ˜>i;üv.ö˺kZãÅiÍ5Ç-:-W·<ºúÅô爂«¶¤šÏïsÌ\ÊeBUIxü¥ßD¬8Ìe YÜÊe˜†¾QÖЖ1®Ï0´Ä~az™§ïç2¡"c«ZÜH쾋˄iXü໹LÓâwÈZ<0´æ0Ó;ª;8ÖÏt´‚éð¿yž—Þî=³‹¸œ•_|yž·›ûOñĤ!qÍìÅPNØ ¹SyÏ÷Ì톧 wWúVI0]dɬn]\ …UâIÛ‘.ÍTãH‹4ÿ·J$O—‚á"Èr¬‘#-¢Cˆ†»G™;EŽ«Äh9ð|Èç'WIÝbà/ˆm¡UüŽÒê3éj€ àïÙtE€Ì ¨ÄñBàÈ;”ïL2ÛÌ $Þ<ùÂLèÕ£¤ðjàïˆmÆtkîÓ;bO™ù»üœæcÒеž¡Á¸Éп™´v5¡P‚Uó³/ðåPìÏI”¨| òcÒ/ ­š1€äÝvñàÈ3iä¨0cèè ÌžÓÐãíôyÑÓÑ&¢ÁãÚˆgRàï)¢oU?ò?yݦãMô®þ'äÿŒúÎ Ç›N¡ñ¦BrNÄø¿æÿ%üÑØF³§ŽÜÃ"#ÏŒ8¢ì¥" %V” €‹·§8ç.%«¶Éà’2Åõ‡ãËm³Éüòï¤É$³¢ ê|[«Ç.©þŒ–> 4ü¦\ ¥ áã²Ó!%6é5Äx­À|­ ó_Spݤº«a=Ck{‚ZC¦Þ”)U¾¦@­»de'‚ÔPƒ5õa"ò„PÒ¾ÚÒ?i}UbMÁïCÛ“:´Õ ™ar‘ÊFPÙxr¦0C R˜¡†)ÌPœfð0—3‘ï m[ sD`~D†yäzÞ¬ ›Õs%L#×óä´6©çJ”&’¨s—X)Œº Oa†b¤0Iújx ódõUÉæ÷¡íIÚÄOÏö/ú‰{±„Èíp»Gš[Ü‹%VÏ:?È‘‡µª¯ kƒøúùüˆúïHæ4Ïþ— ä4É^7A|¿"ðþŠ o5M” ›¨Ë\7ÑØôRm—â‘Û.uVË´hNN¸nµ©è_—!QÃÛeäð'9­ÍGÿUFñÓk5Ç(;†kX Ò]3žÿ_ÖY¶0«çó¶ãŸÝæÙþoø3¶9M>ÄeÏæ2¡dl ¾r9Wv%°›Ë„’5 ¸`³—Qc?fŽWXE{J3‹ÅŠë9:ß4ezüèã(ÝúÊ~4Á¾rBç…Љ‚Q6,öóúsChí0ÝkW\-o—FMZÄg[þ‚3‰BZ üc.Jzcœí§ÑD2A c}üS.*ôHpCþ‚@ü 2Ä•djh4Ì×ÆáeR5Ì¢¦ ÍÒª¿ÖÊõÛU6¡-g‚Z›·œŠœ´®NH9W©|T¾ÜÖ°9$6ÿø.ΰùCøeˆ« ›Jh´›CRaS ³ÈaSYN4l†¹~»Ê&&WÓ¥.¥EÀ¥—¦VÕ c«Ñ<xäË«êëLK‚_?p+du5®IU'…ËO…,Uë¢TuR¶xäøu,rU'õÛÄ“6^îQUT“[|„Gœm®æVÆÇ ×3 ´óh_…I‡íI÷È4m`ZÇ`@.‡-jìtȳÿ žÃR7Ý£Aóà̆ê!,åÃÑ,'´´¼áxºI㶎áNØÅ‚Ëç…«®ñ®(ÿüÙ­Q—¡À?ù#Ò…'·5êú꾑Ï,ŒcåãÍ÷_S±UŠÞý£3‹¹L¨`H#é­RÄø´s’£3oÔy®?Ò@Ø*ßB‘·N){ÉHã‰mCã§PÚS¼¡[©’UÛ¤o¯L±Š­T"™3@æŒØáWfPxXð(ß i…AÉ´Žc¥FI?ÊD½Xž`þØçoáëÓðï¡°¡ÆVa7s&ðé\&TvI&Âψ?C†xü‘de4ým´D'†GD~Vö:‘ü:[¶ ó‰T²vhx\ONk‹¸®¦:ˆŸ^ÉRp~Ö„[ÉOh³ÎvèÓlËÐX¶^)p»Ë´ß!ð¦l-F\y%Þà•mi æsŸ“ê¯þ— çFT«@ü­2ÄÕDu%4B¯/ôM+ž•ðŠžÕ¥Uxnîöí*™ð8›œÖqVƒŠŸ.Ñ06Ò㯋Qw?N”æ”Èv¾%Ú•hÊ™0Œ|øÇ—ãç$†|_2?ü'.* ÅInë#Æÿ,0ÿgæ'\íO¬¨›U%\#Wÿä´†Œ;+Sª|æT­ÃÄj¼ÕÐÌ‚9{¤gv¸jÈ“ô×ð†üÉê¯ ÍàžäNüta¯6iê2‡Š|þ|þCY<™çzFÙ ‹qagL—ßrÌf¹L¨È0¡gL’Úÿ„ÚN.Æ4Í"MwÆ+%Ãò"¯¬""]À%\&ŒI(òìçå¨÷ª™ý”8f·Ê ;!K¨¡ÖE#neÔå#/ ”_LÄ ¼«ö¤m R?O@’+„‰õÜV¬®à¯©=)&/»×C¾¾=…pƒ€xbdôâ·–Ïž˜’àwX€\H'¿Þ4 í±Î˜€x»hçHÞ Q>4!›ñË êÔ©?, ž˜4Îã34ÅnùSìÒÓë¸ãûxäô¦5HëùÀ•m›Ö õš€xNþN¾8‡¦5ˆî¥í“uZC ϶t‚”•p¤äT­]“è%ëy±;A ;œúNГÅÏÄoI5ÉB“¾ÈÜW¬®àÓŸÖ ­«€mœÖ õ— ZCüÖÂnÊ2)Éì놄Mj¡AàÈ)LjºËW@–šÔ¨+‡¬Tf}%przÓ ¤u+°Ó ¤~»€xæFf½8‡¦ˆî5í“uzA ϶eÖJJ8rƣήIeÖÉyž’Ì:A‡K&³~2ø™ø-©æ#¹Bh‘àÎmÅê >ýéÒºØÆéRƒ€òÓ ôiœ³.®Eh-÷ôó³ƒÃÙG·Ë÷Fo¶xòQ%Q1჈ð´@|Z†x]kÓÌOCÏPF£añz¤çìù°e¤#·,ê,Öjw}Œ Ó®bk¼å>Y­-"5®-~*ƒ§Ä£¸! ™D$¥wï†|wü2ˆ:‰Hê ˆ'& L"ZÁÖ\£¶57ª‘Öóècú“ˆ¤õ|àÊŽ¶M"’zM@<'ÿP¾xIÇœ™D$º— ´OÖID%<Û2Ô¡¬„#% jíšÄPG²ž{¨#a‡S?Ôñdñ3ñ[RÍGr…Ð$Ñ›ûŠÕ|ú“ˆ¤u°·£m“ˆ¤þ2ÕN"žÒͲL–_v‡° B$:ƒÀM7)óÍÐ)DRw9p3äͱÒ%±<lCNo‘´n¶q‘ÔoÏÜȬwçÐ$"ѽF }²N"*áÙ¶ÌZI GÎxÔÙ5©Ì:9ÏS’Y'èpÉdÖO?¿%Õ|$W-ܹ­X]Á§?‰HZwÛ8‰Hêo°}“ˆµš镉{€“'•ÄÄ„§‰ð”@|J†xü)De46—¶žBŒ>¨ŒräVE½ZM JW–vZãéÃdµ¶h‚Ô¸µø©Tôâ&(dú”Þù®øeuúÔOL˜>,â _Mü_D‚xýó1ýéCÒz>peGÛ¦I½& ž“ƒ_œCÓ‡D÷RöÉ:}¨„g[9”•p¤4A­]“äHÖóbr$ìpê9ž,~&~KªùH®š$zs_±º‚Oú´®öv´múÔ_& ê=ˆA–ÙÂ+t‘ S܃Hê.¶s"鿘þDÒºØÆéCR¿]@ýéCÒºØÆéCRƒ€í›>¼¾:#2Lƒ„Mhk´žAíòÐÏÃæNZFÏ=ÀG ?¢$z&<ÑH„ß,³ ñøÊh4l`n&ãûGä)Ie/¹¥RgÙVS’)TÀvoãÉËdµ¶hÕTñS©Øÿfñ(nC&/Ié[€ùâ—AÔÉKRÿVñĤÉ˲åèŒÿE$¸±ƒ×XÂô'/IëùÀ•m›¼$õš€xNþ!"|pM^ÝKÚ'ë䥞mbQV‘ µvMbˆ%YÏ‹=Ä’°Ã©by²ø™ø-©æ#¹Bh’èÍ}Åê >ýÉKÒº ØÛѶÉKR™€j'/tûYfw©Ð™Kb3dE®:sIª.n‚,µã²>ɑͬ7‡!§7yIZ·Û8yIê· ˆgndÖ;€»:æÌä%ѽF }²N^*áÙ¶ÌZI GÎxÔÙ5©Ì:9ÏS’Y'èpÉdÖO?¿%Õ|$W-ܹ­X]Á§?yIZwÛ8yIêo°}“—+ªs'=ƒý$ÝÎ'Ed#á`rQI$Lx"’—â%âñ'"•ÑhØXœ'LDÖÛ:ò¤¢2¢‘[uVj5©±b´«¨O&«µE#“œâS(ªWŠºÓ@ó,à7²G–#õ–€xÒ¦± ž ž˜4æ' ÌÖ.-Ù¬vh¦«é…‚QÐ& ÇÐtW3=m‚k–Lf6­ìØeÃñLÃ¥=öwüßc_¨Œ®Ç~stZÛç0‘ýMÃÓôbNëX×›ÓvÙûw¿ÒÇþ‚[)ZÄ’ÙŒÒ |òÃmizËÆ m@¦½¥Wx%ðß9Ú["ü.ø»dˆÇoo•ÑhØÞ.é ¹‘UÆ.R#«Ö4­Ù©í*ŸÆ-k²Z›´¬êœUüô¥}šk³@¬{~h ®sf»T.Nk: ¶–Íb±™gOkƒý-Ý5­qÍ1ŠºÿÕ ³¬Þ”aX~D/÷OêÅ ‹þVÁÿw­`ÑT5‹¦7]‹æU•}š|ɬç2¡d‰tâÓ‘üØÅCÕh~îˆgõŽí>~hàØ–ã#WhpíaæØÜ}h`‹øc¹ŸÙœàrfBIÈŸÏB~¢?c ¼MÞJ"¾ #þ…,â‡:LüWÃ5jüWh¨ þgC\©Y¥iSi5äy‚U·]¦ mªÔÚ¼©RTËÄOWømu,»Ö¨ä´‘èÙ ÷lé#ɯ%˜½x— %]¸¸`³gRïm̯°Ú¨Q´§4wžâ1Þ¦OZÑ´¶“ÂåÀí¥*^”ÚNÊw@nCÓNê¯OÚ4†¹GUQM†q=:» Ç裎½kyÝ14ã¨gX´\Ƴi.Ôžª”m×5ùT)ŸøB[ñ„×C–_ç«Ë_]G7òM»üô7o‡|{ÔiG—Ÿˆ’!¿Ë¯ŒFX—¿fÞÈ]~eÜ"uùÕ¦e—¿¥û·«twù“Õڤ˫ÎQÅO¯ò#*f¨\LxéZÞp<Ý´4×·Ì13¯[yƒÅY–ÛLØÅ‚V0,kcÔú7B~c[âîü½XžZÇOäß|/ä÷Ε˜û>øûdˆ«‰¹Jh4>ôy¤‡›V*Þ*á9Þª3J«xÛÜíÛU2á±69­-b­?ýW­ÇÈçú(›åËÁ)“Íë®ÁSØZa`ºšqgÅ_l8aŽOøá›– Ö"µ§¹^¥@ë@F+^°"‘ý«~¥b]Ø×GíIƒ/Flð{sÚA[3ÙŸ®ä'Xû0c]{Ÿf[­“¨°ÆÁ-yslÚÿsòñ)ó&.ιÖ!óð}\&œ­CæQø£2Ä•´jh¨oÔðŠÚ:(4Jb­C¢%Ú:$¨µyë ÈAÅOOÓø*±ž)Ó›ÐbTÝÇAéqiJ]øt'+ƒêAA€¤Ÿ5 ¤CHéSZÚüÂÚjD]2 ]©q÷bÂ`0,9 ½àç$†|_2ø.*ŠÄ^}$ΆT)©Ñkbüóÿa~µþÄŠºYíWÂ5ríONkÈ °2¥Ê'7Õ:L¬¶[]Í,˜³Gzf‡ ©viÔÎÆÄj¥>:4³¤OÓe¹¨W\s´hø;øy—ÕµTì—Æ G[£•l' cø{Ú?tS÷WPŽxîZÝëöúÃ’nãÉžr±ÂO…ÉÛ+ü²mèÜ7~ðgð½^3»ÜÕevÀMv¡¹œ‰¿-²ç^ ¶3KÞ ý;;’m3éÔ–Ï„|¦tãSŠk5¢±B@Yo!U³añ&}W’²©Î§ˆÔÚ5ÓÂõdF²’õ¼Øw%%ìpêïJz²ø™ø-©æ#¹Bh2–?÷«+øôo!%­«€½m»…”Ô_&`ü[HÏ°N—ÃRìÐ)>¢\§µò…9vÈ©^ùŠtRûËWB¾²=þ0, ž+ÅVඎ¶Ý~Jê· ˆgndô;€‚<2úkÚ'ëí§Jx¶-£WR‘3-uvM*£OÎó”dô :\2ý“ÁÏÄoI5ÉB‹Äzn+VWðéß~JZwÛxû)©¿A@ùÛONbϞ͒àwX€\H'¿Þ4 í±Î˜€x»hçHÞ Q>4!›ñË êÔ©?, ž˜4Îã3zq¬ß²’^”žÖ¸†;¾çANoZƒ´ž\ÙѶi R¯ ˆçäïá‹€shZƒè^*Ð>Y§5”ðlK'HY GJNÕÚ5‰NP²ž»”°Ã©ï=YüLü–Tó‘\!4é‹Ì}Åê >ýi Òº ØÆi R™€ñ§5Äo-ì¦,“’Ìî°nHؤnœÂ¤©»xd©Iú }R™õ•ÀaÈéM/Ö­À6N/úíâ™™õŽŽÚË™^†‚Nêé%<Û–Y+)áÈ:»&•Y'çyJ2ë.™ÌúÉàgâ·¤šä ¡E‚;·«+øô§HÛn`§Hý ÊO/ЧqNÄÙR=üÄ8ZîéÇõ#žY2\m¤¤{NéíÜ9~È ~Ì~ãö¡^Ù`¹ø2È/S,>*‡?(P†x]#$uTŽ2 Û“­Â]‘Ý!ò:ÊÞ%r;¤Î­ÎÐQ_½ÚUš×IVk‹ÖLME?• ä ˆGqk2IJ¾ò+â—AÔ™HRÿ°€xbÒÀL¤eŒû;bûYõ±-ÃòL½ÕH»;x%L&’´ž\ÙѶ™HR¯ ˆçä/!ÂçÐL$ѽT }²ÎD*áÙ–ñe%)Pk×$ÆK’õ¼Øã% ;œúñ’'‹Ÿ‰ß’j>’+„&‰ÞÜW¬®àÓŸ‰$­«€½m›‰$õ— ¨v&ò”n–e²ü²;„Uè<$Ñn‚¼I™o†ÎC’ºË›!oŽm”.‰5~Ä` prz3‘¤u+°3‘¤~»€xæFf½££¶ÞzŽÌDã·í“u&R ϶eÖJJ8rƣήIeÖÉyž’Ì:A‡K&³~2ø™ø-©æ#¹Bh‘àÎmÅê >ý™HáàÓvÎD’ÚlßLä&É©’°‰’–¡rð~È÷+ • ÏCáâÈ?©ŒFÃÖäJéyÈè³ÊÞ$r¤ÎŒ­f!UW­v•eã9Èdµ¶hÇÔTñS©þ€€x·c!s¤ôeÀ‡ ?¿ ¢ÎA’ú— ˆ'& ÌAíqÓõ̼&þ/"Ákyµô1ý9HÒz>peGÛæ I½& ž“¤„_œCsD÷RöÉ:©„g[FJ”•p¤ìA­]“)IÖób”$ìpêGJž,~&~KªùH®š$zs_±º‚O’´®öv´m’Ô_& êÝA–ÙÂ+t’ SÜ Iê.¶s7$é¿8Ü‘önHÒºµ£v¹I›æ IývñÌÌzpÍAÝkÚ'뤞mˬ•”päŒG]“ʬ“ó<%™u‚—Lfýdð3ñ[RÍGr…Ð"ÁÛŠÕ|ús¤u7°s¤þÛ79](ªÎŽD›1ÑÖh=ƒÚåQ­W6Öî~òW”ÄÚ„'1‰ðWâ_•!S†ÍÑqa3moŠ< ª¬("·‚êü Õ,èIW¹ÛeŒÆÓ¨ÉjmÑ«©†â§R­ÐWÄ£¸)™F%¥_~ò×ã—AÔiTRÿ ñĤiT~-çŒÿE$x]¯ß„éO£’Öó+;Ú6Jê5ñœüƒ=Dø"àšF%º— ´OÖiT%<Û2Ø£¬„#¥jíšÄ`O²ž{°'a‡S?Øódñ3ñ[RÍGr…Ð$Ñ›ûŠÕ|úÓ¨¤u°·£mÓ¨¤þ2ÕN£.èö³ÌîR¡s¨Äf¸òFe®:‡Jê.n‚,µ´>ɑͬ7‡!§7JZ·Û8Jê· ˆgndÖ;€sh•è^#Ð>Y§Q•ðl[f­¤„#g<êìšTfœç)ɬt¸d2ë'ƒŸ‰ß’j>’+„ îÜV¬®àÓŸF%­»mœF%õ7ؾiÔêLKÏ`?I·k:Y""÷ŸùùJBd³ŸDøñÈ?û©ŒFÃVd0ûy‚NyÒRÙDnsÔ™¯Õ¤¥ªªÔ®2l<ט¬ÖíUrŠO¡¢RÔšw1ÁŽq‰¨3|¤þ…âI›ÆõpùñĤ±˜Ï)NMŽ¡EdtX.†¼¸-­çù3— k#îŽwlR²¥¤W: 8yp.´”DxH >$C<~K©ŒFÖRéifðÈ­¢2¶‘ZEµ¦jÕ*ÊT‘v•Wã0Y­MZ@uÎ,~Ú­õ˜9#קy†æzºUЂf8Žíhö˜ÿÓuÿäÒ<;ƒt*B<>vñP5&/4G<ã¨wÌ›~Òiz²Áø ð0äÈ÷67 ÆóY0N6x‘á­&+¡Ñ0/é©Z*ò*á9òª3Ly³!®#V„6•NC^Mªc»Ìø“ÓÚ"ð«©9⧯cѾR˜îÕô|Þv ¦5®y¶¶Ï1\϶4ÃÓôbNëX×›Óv³¼œšÓÕÌ‚¡k Ç Ëpô¢y—Q _Ô‹E{Êo.*®áÐOܲ‘7ǦyÃâËf^+º[a9>kZ(0]“)c_f¿¤õLšºlƒƒòÉtq™PQdé"žaÁ.lVš¨,.á2¡"_ •&uó€K¹L;EÐñJÉ°<æ ûl×5G‹Ì‚eÙÎeŸ[¢v"‰ß2à —3ñS™È}Ù=ÜÜUTÓ—/µ>v/ôïÅ¿3%øì¸E³ß O[ŠæFÇJŠ¦#´R™žQ Q¿¸ò¢øÎ*S ‹Ä£(Ê-¤(7ÜífwÔXG„Ξùüäc©; xä b›å\mŒu|f÷…ܾ¨5ˆx]ÜYja’‚´µf_{jÐ>Ôš}í­AûPkT[ƒNå5h2zÚ‡JCxd©­Ñ*Ð>TÂó!KÕÛºb¸ VôR¹Hiå¤î˜º•7¢×!¢vp3äÍmªC7¡ÞÜÔÑ–:têÍMm­C7¡Þ¨¶-âuÈ2­Éȵè&Ôœ›à'gtH¶ÑjÑM¨9„B¾0¶]VUk+ Ãq`,ίT X·+zu"Ž+WC¾ºMÕi?ªÐþöT§ý¨BûÛ[ö£ ¨¶:-ERw§ãIU©ý¨F„A¾(ù*µÕˆ°rwlÛ ÍªRîÖyÕÛöU¯\ÔêE|/„|°MÕëªÔ¸Õ«¡ÖSüjÅ )¤ç¸šÔž´ûö¤þñ¤Mã Ê>@5C â>q³Ké•k— m¬båi<¦‘#k:ûã‘7ÓÕl«8­•ƒQ© ƒýÔbU¥¤ûOµ+Þì?É~QÏ{½È~ÙõlÇ(hS¦7aZþWíÑÃFÞÓʺëòÑA‰Q½›QZ„‚ü!e¡ñ×(–Xø ›L ‰Dçqàg!6ù˜Hêþø9ÈŸ‹íGK«~“ÓR&ú<ðë¿®ÌD]{mÏ`ô}à ÿH™uŒ¸7Uª¤f)þðÇÛ>ÙÈméÿ ð¯!ÿuúaïnÏ*ª {ËxØ#¿`E÷¢úë­`rkõûq5ã¬Z:cDÈ‹4¦·8ع'êÛÐ7Ò^D„{â½2ÄãOH+£Ñ0z1kqPäYiek ™•VkVëN°"´«ˆÏ'«µÉL°:—?ý esŽáçruy¢YªeŠ=”Þiæø„áh“z±Â’À¼í8†[¶­`ö¸èSý¥Þœ¶­èÚ}ìëN¡h¸n5?9!œŸ°]ÃâËðç©sVM2™¢¼^Dš©Åˆ8߃ü½¶þÍ Ö¿ÍøÉúÉÑ™Ñ#,x´l"¾Ï1s>—3‘‡xÛÔDd.¨'9:q%M„ ›ˆá†ëGOÌd5¯µ1QhÇV‰òÊծ mvÔÚ¼ÙQT ÄO/ÖLË5 Õ¡í +Ú§¹•ü„l‚_%úT}j[âü³]qP2‚g®ÞÆe¹ÁGâ#2ÄÕDp%4Fð"ø TlVB2rlVg¡V±9B…hW1…GÝä´¶ˆºj\Wüô¢ê4H‘eÞ’uƒ/Õt« Å¨èwƒæÝÒ4»ðéNV.ÕSW‚ØJ?kƒ‡(Ó§´Â9ø…µáÁøJæ{ü£³fþZôªú‹¢ðuÉØ}ø8— Ån¯>vgCêÔé.ÄøóOÈ0— áåÝ,4(!94$§µ“9t’J›ºl“¯Îkb5ùê hfÁœ3»É÷C†T£Ÿ¤Ë†7úOV—¥àRºÖíÉïã›Bg?ýƒjÚã%Ý´ü‰s–ò˜†«õðÓø"ý¸`³ŸY¶W{ÌOèÖ¸Á;©fu­ˆ?}ܧÑh }Â(–]¥QS{ÒšEÓ›¦_òþ‚Gjôâ¸í˜ÞD©7§É{möi\&”¬O¡½>¹ú”Õ.JÖ§`× fï>è[bœÆG ÚwäNØS._ aõ×)TGšƒe@&³GÑ^¡È]ÅO/§q ¾Ã4˜} ä½¹Õü K­×”(©ìÓ¡øf.Æ,©È‹tHý-5 ž´i< õ/ÀvîÂ|:ô?ÿŽ·*]eçš-.¼$vÜ cxN°<²¿Ì7„æsek šL¥3zév('ì„ܩ̸•Q—·¬ ”爔wÕž´Aêç ˆ'm‡Pü¶Í'î€ò;âúDÓée{YU÷§îv-ÛKÙL½¨íó'ØTÓ±=Mvñ6ã¿ ¸òfé&㊸v%W ˆ'm÷ÒaÉÕ¸×í¼s´ÍÕX×È8ê–+ìSŸÐ‹cýí6/ú‹-˜¼ßLîK¸}š-v°Xn͒먞;Š÷""›¢ôi™7]6†»ÙK0úe{ª;jW‹h@²—|W‹ÔV Wb[~?u®Ë˜hx7d¹¥ ƒJàašèaü†óZ¯ÙÑÍx?ø>ÈR]´L+tï9)<|ò£±­·.§Ñ2‹Ùý^¬¤1],h¡³`YyZÚè´Œ©ßü[È»W»jF¯ÖïÎÞƺ³Ï¤îl!ôÊ£æ=ýü’–CƒÁ5-ìÃÛ ®Á‡Ž‡uŠšözéÿŽ£¿Aåï8*èõžB½ÞBrÝ^b|a9ÉÑ™7ê]͸t趨fyfÄþ—²7‰Ô;M¬üZ\:Ï™ÛS†óF ;±ÉªmÒ‰U¦xFÃ(uÑHæ¹$v´”\Ró«qCŒˆ™KWp9s…’ˆ˜ð8 ¾R ~¥ ñøã€Êh4ŒÇËGzêMy,P¿ÈÑVqZEÛ«í*¡ðPšœÖ¡TÃÖÕ™-k"•«@媶Ò¡xtðV.Î@ú4øÓdˆ« ¤Jh´¤C1©~‘©:ãœh m^ ÚUBá49­-©‡?Óz\ÃжããÚ*m~W¥TÐ>mpóæu}š^ô&ìÊø„æç­º¸Bwô’áŽyŸ37]ZûPOq0-¦X÷·YĈŸÄ»~²-‘ú”ÀEecô§€_á2á܈Ñ_ˆU†¸š­„Fý¸£¥¢³f‘£³:³´ŠÎ­\¿]e—“ÓÚ".«qRñÓnÿƒ¿±°d;4;i8†¸ëA‹Q§ÿ<ÿEº2©Ü=HŒþ ø¿\&”tëà‚ÌöœøîAÖ–5ÿöÏH¦å\r ZóOÙ=\&lcƒ&µŠ‹èïÞÎeÂ9Ñ e ÄÉWÒ ©¡Ñ¢A‹¾†K³¨ šB³œhƒuWÒeÚ %¨µyƒ¦ÈIÅOÏÓò¶E—ky,šE#^ï Jp§çdï {ð%\&œÁô>ø}2ÄÕS%4’è¨a9˜ª3K‚½ƒDË&<˜&§µE0Uã¤â§™\Œ*{_íI§wô+(~)— ã¾Ô5n¤þþOÚ4ò¨P¶sÏsú ø÷ɳç™-.éHzÏóÙÕ Õõ{ž‰ë9Àä\,Îâ·âox&^ƒÀí·+ ¡»IáéÀw(S²û‘”-^ 9þw‘«;©ß) ž¶Twƒ»•ÉUw© ÏDipiGÒžÖ÷È»‰ë¹À5×$Vߣïv&^CÀÕU»&õ.^ YªêE©ï¤lp'äø-r}'õ»Ä“61îQUT“eü’‡ƒµÀúؘí\mœõã=ÃÑÆŠÆQçÞáF8wB/×.15¦Ú§V<Í1Žáú_2\ÏÄtø5½P0éßÕõÚÕ¹G~„_„½þÝ"MfŽùƒêt û0¯»´›—ÆwÇÌ£#ã(eÂ_Bþ¥t‰·mD‚èÿðÿ ÿ_Ô×hLjÄ8J0 þ[âñG$”ÑP>"¡ŒY¤ µfIjD"é²i<"‘¬Ö&=ruN*~zÍTäÖÓ.ÜAºù‰b+Eáâtô©Jbæ\.JRìħÂ鱋‡ª!õüšÓ<¶ûø¡c[Ž\¡U—køÎé» l©ÿ@.þfÎÞÄeBñw>‹¿‰†ßÌ~÷~ÞJ¯ ïÆÂoG ÉjØF É MÕª¯Õ¼ê´©¼2=á Ü.s†¶" jmÞŠ(ªk⧽š>®³®ƒY*Mÿ8îZ§÷\›Ô#Bݺwt-ÊPX‹2§E9ü— çD‹òA÷ex«iQ”Јآ I·(JØFnQÔ™J¶EiVC/¯Ö-J[éEnQ’ÓÚ¢EQS×ÄO£_¥.òx <‹Í#ò Þw©*ªÄ;Æ‘…~k+yf¡ V„çC–»²áL‚Ô™…ÄåbàjÈR‡†´!iº €=ã_м¡vf!ë\ó«“éªfZ3U4Œ[t—²nåÚYƒ}2fìÞùviîqÆ.çèÅò„.“çùCÀä’’<'á‘K"l Ä-âñe4Öå…,ÑñM9¥QÆ+RJ£Ö(­Æ-›»}»J¦qv¬Ö&Ù:­sÌ>êPÊ\9,ò™‚<Õ–¨ó`Vz£À—@ž«P‰ð}ñûdˆ«‰œJh$p0«2n‘£§:ôŠžò³&]:á49­-"¨G?ô›u¶é §_Ó¤¼M³îSfô“ûDÚC–¿0VzÊ=M6È~ø%È_š+AöËñ/ËWd•ÐKO¹i¥¬^‘¬:£´LO›º}»J&<¸&§µEpUã â§;Yp-i“jãåSt•?ƒÑ¿Æ §ä* áU2K¹L¨¨®uÑÝaտɨNælà9\&LaT'³ x.—c,C>uBFuJ†îÒÞd{L¸h´ñÅÁ ¼>ÚJ—Ÿ¨mq“èà/C |)—3ò{6äŽç¼¦Å‰†³.ãVxj'½÷ýÀr™PAkô©ÄøGóÉ0oÔ2Ô1»¾å©'jȇy*{Á¨ n2ÅÚÐð »~{Š6ôŒÏdÕ6o²Õ(®3Þú½ ƒÆäMÞníq3¯g‚~âGRó!*¿U7­¼í”mG÷ œ]ÒpÌjÊŽ7\7ò„˜PPÙ{¸L³ "OˆF• PÍ„˜Ä-G œ°r§2mq3ÆD ÊÛx3©Ÿ'`›nÆ(¢øl›O” ¼×'š.~¸ð€g”µ]AZ7ã2Œ°ÉÒfœ—û!÷K·jOĵ%ÑOÚ.eÁzªq©E|ÞýVÚb‘ „‹ /RÖ[¯® ÉvÖ]èŽÚ3#RË+!¯L¾gFê5ÈZl#u÷ù-fµÛD=éQÃ?Ö:WcfäY"âwp;äíÊlw&Y­F·$ˆÙõÀÛ!ß®0ý ½½‚î‚|(¶ ?U»ãè´ví´a뎟–]ã†5aÓÀHÏàæM›zû´ÝFaœ%R쟛‡Ø?o1& Ýÿ®ðÁúºnµmÖÙî ŸWǶݜ¶Ë¿ ƒno®)U\¯Úͧ°o•*EÏ, Ã擦.3TCewGÿz‰;:d©W·‡¸\ìárFj)Läˆà’OØËåLolwÒ«c5ÁPKÁ3-:¼È3f<—Fhø'd?Ç(òŒ¾h1ŠæsJËk98ëÇ å´ ™€’¹ ø.gä'qºðéU¬—tÌß¹-ŽÄÐëÇj†h¬†~Lk0«_][´YÍW2°®ê•Ä!‹Ûsk?ËãëýÕ¯½Ú/øÿà¿"ü<U‡ÄÀ•ê}©FL¨hàÇ›1ð–åIí¡'ÊgÖ¨“ú QÄ4BØ„²—ˆ6‘¬Ú-ëÊ”*?~%1WªŸ8¹-Rõ­"î W†vRxØMNk‹°«Æmëj‰¿Ë(FEÞ *{¥©se;Ź²Seõvˆ"¬0c6cÂl%Úóc‡ûkWÒNm¤h•‡ñµ‹ê¾F£â!_lù÷$ùÀs™PQ ÷’ë|\`þ¸ óŽ’eß,n(!9n$§5|ÌYÒ$¦ÂzP¬\@]Í,˜K«¯ðø"•$é¾á¹Á“Õ}åfß~ÿÅOЉæŽÌ€_•Ì óD[:¢Áõà‡›^Þ2yù,ð;\&œ½Ðï Ä¿+C\MË£„FÖgyõDs˜Xª™QÂ/r3£Î8­âê‰Uƒv•PxMNk‹þ§‡?íÍim­¤á;ªùž,³@[¶ÆL}´hôiS4*(³6! Û•ár—ünƒx³+µ³e×&ÐÏ|<›Ëžô¡¶k…@|… q%¡V ÐÙÁÀ2V »¨V¡iZÏ®´®í*ŸÐ0› ÖæaV‘³Ö}ÊgWbÔßóÁEîÒeñbè)1'Lº.ös¹+òv¼vÅÏœ@<'C\MüTB£Åå;Rc!j˜EŽêÌÒ*v¶rýv•MxÜLNk‹¸©ÆIÅOŸì#«]mV[o¾‰_Ñ6©;¦]q…-MÕ]L8B ødæQoÞ”aXÚ€¿¸(FÌxåðh›b6ÖŒËÆì÷?ÃeçDÌ~B þ„ q51[ И ãJÅl%Ì"Çlufi³›»~»Ê&-lgf«F`Þ¹À!.Ή$|ÞZøZâjZ%4R3Ò3ÓÈR‘_ ÃÈ‘_yZ%ã'ZÚUFáá49­-©§?]ÑðæÉÈ'&Šä®¹kc“‹|”Yî š£ÌÎæG™ÑaGÆQë˜cZDnw‚áÙÕÍvãïÎ÷äÖ÷i¹ÁöŸõì?ƒa‘'t!ñ»¸òzeº‹Ô­n€¼!¶éôñ=*¶Ú†<Ü–|¡ÕïM󢿸òÞ¹'áâ7ÊŸ'(£Ñb‚e(r~ ŒY¤ü@­YNt‚%ÌõÛU6ó‚dµ6É Ô9©øéöêYÎ!s) gFXããÏøíOŒ:ÿ äÛs×ÊÆ܇€o†üæ¹sß"‹ q51W 1w­TÌUÂ,rÌUg–¹a®ß®² ¹ÉimsÕ8©øé.¹˜;Èç£ýt_bbZ|—ŸBþi[ãî:Ù¸û3àBþϹwÿK þ_2ÄÕÄ]%4ZÄÝuRqW ³ÈqWYN4~»Ê&<î&§µEÜUã¤â§/”‹»ëyÜœµz(ÒŸAðXŸÓäGæÙ\&”¬±¡!Mb1zð>.JÖ`× fO£•³cæ8ÝÃoát'‚›ãò¶ãnÙ¶ t¼bƒÃKÈþ]2º3jzŽî˜Åi-?a»RƒE™?år¦½ ¨Ôj\¢4óŸ\ÎÌ•4ó_ñÿ’!®¤UCCùj\eÌ¢6  Ír¢ hÔÕ¸I—Mhš Öæ ¨"'­+|¬ÆÍÉ×Ül—³iÃ=Pœá2aÌbˆ<]Eê³5 ž´i8¨Wâ‰Ic>Ÿ5‹ÈÅ…~ÿÎp”Œ¢T¸ªšb´¸ò’Øñ,Œá™,gñ7]ö㢢\ÙÛˆé9À>È}±‹ßZn—)“r·hSfÁ›Þ00 Áo ð*ÈW)¬þ<7 Q|:pämʇy@Ê·CÞž~e'õ;ÄÓ–Êîq·ò1¹Ê.u’QZ\ yišµ½0±6Ósýãí~¿5³¶¯3- ~ÀmÕUº&µ.n‡,Uñ¢ÔvR¶¸rüj¹¶“ú«Ä“6 ÷¨*ªÉ0Žó sÐ?ó…õý+ÅÝ^§{t=¸ëñ«ÇF]Ù4 ÁÀ‹Ç‚ii†žŸ¨móÂ]wµ{ÆsÚµc|o™¦³Ç²gÜD,‚I¼6áqÈÇ¥‹ ­§JÓ+< ørÈ/ú*í) ¯ˆ¿B†xü‘e49UZ»H£jMÓj´ ΩÒI—Oãƒdµ6é*«sÖºº!3S)Ry5äW·%„ÆÚBKô_|äwÌ•ðùNø;eˆ« ŸJh(ßB«ŒYäЩÎ,­Zå¶Ð&]6áa39­-¦'?íÓzÌœ‘ë ²XÿbÓa¹n݉üzÖµû¯ ÿU›Ô˜sÑ+|øsÈ?Ÿ+öñ_ÈWa•ÐHä`.eì"GYu¦i ÊÌ•tù„GÚä´¶ˆ´jœUüô¬^ì1\Ï,éëøÛ‘·üˆÔ~ ù·m ©çkékÛíð“¼l€ýÇÌE\&œ6Ó]#NrtâJ¬ ì…µ%³Í-nÕpnªU¸^=ÚUZ¡Á7A­Íƒ¯"G?ÝÆ/ùóœi™-8æ˜G‚i™–éM'28[}Q¼Æh›r_áHyÉМɧ¸L87BóQøQâjB³-g}Kc%ì"cu¦9ÑÁÙfU ]å~“ÓÚ"üªqÖºº!98[¥r7¨ÜÝ–zJœ»Ÿˆþqàý\&œáóø2ÄÕ„O%4Z ÎF_«ŒYäЩÎ,':8ulÒe6“ÓÚ"lªqÒº:!s2•Håå òò¶„Mÿ8ž¡˜'SÑk`Š.ón.Îðùø{dˆ« ŸJh4;™j(ÎÉTÊF£êÌÓ*ŒžhUhW…‡Óä´¶§jœ¶N¡ÜÑ="™‚ÌÛ”‡ÆØEô~ŽË„s#~^ þyâj©Êwc)c9€ª3KR»±’.›ðÀ™œÖS“ŠŸ~»ñèé]†cç´k-Í0iìTËë®Ñ§9†[)z®°|Ös Ý3 þmœþÁ¾ZñOÔ¶iy»T²-­ìèyÏÌØ9m‘‚¼],êeנу5,Ö ‡+®WwŸ‚«U,Ï,j:ãWûYÞ¶<Ý´êîº^¥0Ó¶OÓ%cíâ•DÙ×q™PQXTöè´áƒûoÞ›ÂNØ#Fo¾›ËYu uè {¤îõÀ÷p™0¦·=ç^ÝXíÒy’Ó̯¼ŠcñÍØÁÒk¿Äü±¥‚í8é1“{,€3´¦qÇܘé[;ò ”ôVïåØÙÅe˜oy¥û¢b€jVºŸÅWºï地z2%‘³ Ÿ¥¬Bœ¥Y}¶üƒ†»ý¸a8ÝQ«q;8y ùªAêÎBŒmµ.-úx1®‡,uúfãëGëŒT4\WÊBW÷@Þ“Ž…6÷BÞ×B™UÕõtTŸ¦XprÝJ uŒBWõhÐ+…x³-?æý–Ç€T'%m¶ÒoÑLƒu'G+,à]þ­‚éð?¥Mo:ø.KâXKk¸Á*“Uy¿®¸ÖxNó›9]ÃrýSG æ¤Y S/¬Iº¡“þkJ'YÚá³5Ç-sÌÌëk°{ŒÜ8{áÜÀú^mtZbM¾}R™½:µ²t‡Q½]‰s”ðá9f<.g<Ï?éVÂm3Ç€Ïæ²Üa)‘Ý6SÞÃe˜娦;ãÌO-/7ëTâ)ò^Ó:Â}>Ç~J[¤|¯eêDc»¦ïÙ«ñ_  õš¿P­ySv?ËÏŠFä9!zëçÿ“Ë1NP0­® “ãËôÇéþ‹cö4.žüýq"¼¤FœäèÄã÷Ç•Ñh>­Î ¹O®Œ]¤>¹ZÓœà´zÓ*ЮòiÜ/OVk“~¹:g?= mùTu³jÅ•i[«ÔºA­ûäKâ³½Àa.¦ÐÖf/nå2aì®—iѨǨIÅÂ2>\DÂjOà2¡ªèW;ûh½Ì‘ÿDë@“Ë„iì ð0—³‡c,yè€ô¹œ-¦?t0ÍM[E5C#|èàVŠj“T º*‹þ¤eL2‡c^øžï–nš¥»QMz»¦¿ÛÒõþxmÓ'ë£bÇ'özöi¬{kzZIŸÖø Iøá¿sÌ|›Ë„s°w–ùðg\&œÙEæçñŸËW’]¨¡‘DïL ³¨Y…B³$Ø;K´lB³‰µ6Ï&9©øé-ÂÙÑtÁmz·yܵ+VAwªÛý„Ze=oä´mµÅwÅéZãâ2£dÁ»Ñjx’%WÅ7r°¥ƒ}K§µÄR[á‰ÕNà.Ë-Œœøëñ r9{0¶ÁÏ죄_¾@§+È,$F7'¸œ˜“Í&í ðqšË„s¢ÙÌÞ%¿K†¸’fS $šM5Ì¢6› Í’`³™hÙ„6› jmÞl*rRñÓ[ƒÍç%:=†îsÔJ¶e{¶…M'µ&§vêHÐŽ}ž…ýù9¿ûy¯ør_ÃË}­-xIàÚHÑ»‡^â/?å2áÜÇ?ˆÿL†¸šp¬„Fã­µpÌM,”•ð‹”Õ§UP>±jЮ ÍÉimšÕ8¬øéÚ^Œ!ºW©»t—F•Ì‚áÍ8Z6“N§Ð‹‘W<Ä;Ïå2aLâ‘W<‡#¨dÅCÇ8ÝH÷ó+?A[‡¬q:¢ƒvhâô+q§‘?*W¢²‚AA§®ñQjͪ”FYÏ‘ýEaËŠ?ühü4fŸ +ZšFö' ?¨ß¦–{´h°/˜yN„þ|íLjЮ§ûæÛ,MØ!¦éeö'èNe·2ÎÞÆã«an1& Ý_ s«mX³<4@çΘ¼Cl•é!= æx(—3rÇXѧmë!ý³«¸Lxò7ÉDxµ@|µ ñøM²2Ê{HʘEjŒÕš%©RÒeÓ¸NVk“fX“ŠŸ>"ÏE›PY©ì˜¶c²æÄvYð®Î>²8¬ûSCÿ8à«”óÛ <ŸE¢ã-¬B%ïÑ¡†å EG‘é–^œvY¬fœN˜2-üzõÐP¬Æ¤Ź&O,¥?E)ýi["ºì~Ibþà×¹L87‚ù7âß!®&˜+¡¡r¿¤2R‘ã¸:‹$°_2éb áÉimÂÕ¸f]MÙ$Rù6¨´gJ=Æ–I"ÿà?p™pn„ÊŸ Ä*C\M¨TBCñ–Ie¼"GKuFIfËdÒ%0“ÓÚ"`ªqPñÓ§ÒÔjã©zýåN:ËzÓàGèLöÇ %N†'›’â%ü7?툳ñ¦ƒ ÙUÀ \&œÁ6»Q ¾Q†¸’`«†Fƒ j˜E · Í’à C¢epÔÚ<à*rRñÓ;‚Q„ö])ëü—è¤plé80Z'éTi|KnÝòÓ`–k© ´zitZ<}PnØ·ú–¯Â[¾jnFäWßÎe¹‘ß!‡ q5Y D"²f‘#²:³$‘“,›ðˆœœÖY“ŠŸ. "ò¤©ËFЀÕGÀê#ʪÎ<ß3ªsØúOâò)àg¹L¨ÈD¡ë?IÝGŸã2aLýp-ÃAÿ®£A굄L‚–›.íàçHjf±X¡mþd*îsð[Uêâ°ó{“Ðä =°Êõû@¬¡í÷¿'\ÙPý.?ì€ ;Bòþn—õœ º§kc4wÌçq!—‹Ë@ªJ"ÏæSù~žcç[¹L³œ#Ïæ?!-@5çÌç³ù¹Üý÷àߎ’µpþ Ngxú¨ve¿oÑœoўР‰ÕDì,àjÈòÛƒké¤æϬ kùž«}ƒAÿ¿¾<8@ÿòåµþ×û?ÙàËýÿnö²™Ë›ùý£žû¢¾åsPô„w@¾#ö[4 {âìBnÐ×A«Ï{Ó@í}ø»mð²^xçðÿFÓçâí ãÅR}S’¼©øŽÿu5ë®ìÍm_ÿßèoú<¼Ýó’yS²éPc›ò÷Ý4ë­7?áŸÎôàAV¢¿é½x»{•¾i^´éì7 ±)·àXc…oâ}ƒ7šT?/G˜‡œW–œ6Rvèö«]CX‰…  ¾9~9Gn¿H½! ž´i¼°Íè ¡ÿ…*šÑÐŽ2%Ál)p9äåÒ=²ŽfÃý½Âã´ “§sî„=å6ØnÞ YÌI¼Ò àÈêvi5éH½uŽð äøû´";>©¿Y@”!ßt±1ÿ ðË¿õ èi/Ö"Â.ÿsâñk)£¶­‹Ù5ò:-e¤k Y§¥Ö"-·u…;|»Š¥ñ­dµ6™YPçšâ§OeaØ¢û,f_¯Ýœ 築åkaM{i1W°lH“¯æ”gä*Vtù 6$ÚäÌéÀ³¸,wþjDiûGð'|¦Ð$™sdnà˜}— 䧰œÃ+Ô'a=>©Qx¢ü`:ÉÑ©Ÿp×>njܰª)•€XmYT2‚®L©òYáÄ|³ŽÙóGn óÊV'«†ª‘gžTÚ$!~Òú§Äª¡tc§švì÷O¥G‰Ÿ^ô#h˜fö.žxÆð°ÇÀô1e…³„Ãà†»qQE·Dç!ûqàW¸L˜Bç!û!àW¹LÓˆRg|…¯ÿŠËY¹ë[èÓ“¦3på å\ãIvŠ'Þ?¡Î@?—W6 ¢[‡õ²ßäص‚Ë„s¤/Ðõ”u’£SO¾/Û/#·ŒjJ%r˘ Úð–QÒ$úÉø¦²¾@ñ„ûãÊû zJ“¾À“Ö?åú)ÆN%ÍØïžJ‡ªûT6Ù¯r¹\¤fÆX_—ìÓa 2™~×%Àõ\î’Zü9ÓﺸË>ƳÑb­Ç’½Åœ˜lnçr×ve–ZQg)oÊÎÑ)í)s] <ÄeS0×à\ö1ž¹vÒ\­“Ð-/‘öwÏûg®Ór”ú…üŒ1÷¼¿YÐè“®‘:ð­\î’Û Ÿh÷»ë=ÀÏpÙǬü6à\ö1ž•³}2&ú,ðs\î’?BÅC²½Æ®ÏÿŠË]‘‡ö“_µÒõMø7eˆ+Yµ¢†F‹#†¢_ó¢ŒYäì\YNôˆ!™L3ɲ O4“ÓÚ|ýŠ"'?}'ÆÝ–· 7Z;è ‹±tÑ¿ô’ïOæ×øçÓWÅÔ߀m»†ð[üJdÓÓz¨?2iæþIÃquéÖÅ5ï8—}<™òáy÷_ÉešÞyϾŠË„1ÝèB–.í6¬¼Ñ‡{d˜9'¦Ë6'dF¾‰¸½ø!.JrìħšåcU›æóùÌî㇎m9.Ï°®3¾súîC[ê?kÇçý1ð¹L¨ ŸÏÚñD›ñy¿xÿR†·’f\ †U^£ƒ²ÃA¦iWÃ6jÓ®ÐT­öÍ6¯:m*¯†LO¸·Ëœ¡ÙH‚Z›g#Šêšøé Í,•‹tï˜e çØEÝQ#›Ÿå2aLr‘7ö¼‚ûYÕlì™â{®µè +o–‹¬ÑeI­V¥ËO˶ëšt!Ë°ìQ:ÕîSÕš¥JILð‚û{ªÓ!EËi»04ëò‡ñ„Såör6ª®K…MDìE"'_ÄêYÀ—B~iòÉ©; ¼òý±=bm£[Ȭ!a2ÎòU‹Žf–°æÀÏ@þŒ4qÕ‹ž+¿0èDV‡Ö¾º\áeñÖ. lNhQ`ý÷Ã.l V¿Ðh ˜øYœÑ(ò‘'8f»¹œíV’Å&¾†(_\£Nrtê'<ðq2¸m´$GYù„„ÍɽdÕ†Lî)Sª|5Cb^ZÇìeñV6×yh¤H¦f]C²>Ö½z2{ªÄº†tã©êVî÷QP¥oÕ}*5¤+ré—e] 5ªÄm p— SèXd{Ws™0¦™ÎöëÝ kÛ·8-m¶Àgp™P‘ÙŒÄ1èp™0 ›Ýt¹œucÛlSݺáBà—ñTgd$ï– ÖðÝ\&TdU¹ÈÄåƒÀs™0 C¾ø.K^³!~º²ºI<Þ Flør {}ø-.J’T±ÔaH²s™ý6ð§\&TйLx©þ™@üg2ÄãÏ‘(£Ñb©CôëD•1‹œ°«3ˉ.usýv•Mx™œÖ&“ êœTüôüœ¶·ºf±”ZÃQÛ›Ðäksg'— ÛMe‡ê:»€gr™pNDÓγâgÉWMÕÐP¾pL³¨ÑT¡Y’Z8–tÙ„FÓµ6¦Šœ´®NÈìu©œ*çÌÉ$´ó\àe\&œaórøå2ÄÕ„M%4’HBÕ0‹6Õ™%Á$4Ѳ ›Éim6Õ8©øé¯5×,UXñ[Qã;Pè qöIÙö¯²7óì;ZÏŒ5¹nÅÓóýŽ=æ–vgÅd ­S7 Ú”ÉòXúÛ´$D+ÚìOú›]Jz/7‹EÍ1Øï8t\]QwÆi¥fiÔpüñ!¯R0 —_IËp {Ðý•þÓm´¨‡£Ò%Dm5rh‰ðѲá˜þï#¯Þ žv°‘,¹“Mü4òêW¢ ¨fõÎÛøêÿôd—|Ádv¨-†.nÞ1Géty1ô]þYvì2û°@ë6öW\Öyñ4V®ZÏàæÍܶ»èJ3ËòoÝÔÛç[Ò tü«c2G#Må"†ÿüCíøEZ‘ÏõU?8ï.bY½ åCø6ÈokK»¾XXÂ7 Ó¶Ó+¼ø8äÇçBÛN„?!ÿ„ ñøm»2 Ûöeµ.8rû®Œ]¤ö]­iZµï'RÚU>Ûødµ6iãÕ9«øé×yL.˜üÎ=Ÿ·+–‡§†6ax†c»y£ »ž™×,Ý£;ý° Ó¥‹G(JSäÖiuc³Ã»ë6àô1uŽ¯–}}š5´ ‡´rã†e˜Þ4­¤?ç9Êÿ+ô3Ó+Vh‡pµíD¿Z(×Ìý\ÎÄ_ç¹ 5jI€jšp‰K^å„¥† jmq‘ǃD Ê»jOÚÆ õólÓE¯EñØ6Ÿx”¿.®O4]µ³õ¹†ç‘<Ã׶ù•žrL¥n¶ôàŸ,½ÜW-²¾ˆŸÙo7õ°Øfï´ ¸òé†nQ\[}âIÛå^ë¨Äå2 «û\ºº¡dxz?-Õ˜v©%pqƒß¤ÀîtÛÖËžbÝïé_H÷{q¾õ˜cø¿T¼`”yAÐK(;¬;2nºžßÉßíÍ¿{H‹ÏûÂVŸ££h[¬Ÿ«—Ëì¿L©®ù¡Ë›I ý½„¶ÕßPëÍn°–!¢=Þ¼Û’d…‡¨Ïço–7‡­] 2§Ïæ²Üqæ!ézÈÚR·¸‚Ë™ØGØdÖ kª{Høú²:ߪP³|`õæžÃ&8wÅ®ŒOð©<Ú:,º8KªØOL+_¬Ð5mHwø-+c¦Gs~üpÚ)üÄåF†CÕ@׊ö¸éŸ°jBC$†Ãò´IÆËvxߺvøËý‡†FªçûÓFœ2íb*ð~½¡á5 º§³?iŽ›–?ÚSfÕ¯ö¥èNœy Çìu\ÎÊÝØlð§¤ç*–\öVà3¹œ}¦Bgf ò‘µ7oç2a u({=ð— c63·W+EsÁ)¹j% û †V4¬qo‚n&ô; p5ßñÈý}õ昤»eï~’Ë„Šbf1”ˆ˜ÙÏ¿ÀeÂ4¬ý)àŸq™0fĬ­öÒ¦˜ù*n-rUÍX a~Ãh±ômš÷Gé¦J!YZž–¯úc}3ÝƦûH ÝÉO°où?dí7q?J9äNc¦ãz,VncŠx´æ“y‘c”ìIŠµèÍÇŸM×å½WÖ‘týXXñlZiÁG¸gDÆFô± Ñ­ÅçèP2Î9vþ”ËñWDÎüþ€ûzÛÖÙx#”¦Þ¥ô» ÊÛØ%õólSôM(þ¥}¢¡VšÜót³è6Ð|>´=¢Ô#©Ï ˆG²)¹..7S© ˆ'f©œÍêè6K³GÓP‹’ù"Ëö´ˆÜÞ+ž YªSÐxé|¾§ù]wIÝaÃé¡m0»˜ƒœK¾ &u+€k ¯‰m³¼W›QÓ¥Y·“&6i}ÐÛô3­¼]*³ž k›(ÛÒéVè ÍäIxè@vN6O_ù%éØÞù¾Ø~=lËûpþ…™:%:ë÷‹ëyrT§ WhÎ82§í±™W˜ÌO·¼â4¨³iÀ¼ÄàsçüO±ßáyM³¿¹%jÔ¢‚y)ÇÌ*.¦ŸYü!÷;“Æì5B;͘-žù4f ]RÛ‘· Z±aú&GwŒ{ŠãeÀµ×*¬l¦g”BÔv×A^—~^@ê× ˆ'}—þ#¸ñ%êÒÙ`F2¯…ÀE¥îenìÐ. fÝ)h†ãØNÕ“EïŽêÐÄt pò`òýGpbÂ!ÈCé;4©_+ žôú­pâ·&êÐ]w±N¿³…Àb4kÎ=Í¥El4Ӯĥߊｵ#ÕýV¸1ac4©_/`ÛbôÛàÆoKÖ¥ËÑ]úmpã·%âÒ+ò¶ã.ë{(Óąømøá*ÈRéc4/~<—p5äÕé{1©ïOú^üvxîÛõâyy3W• ¶¸òen<ÌzJ4ÙfW¬B-*[cfÁ_}dZ¬KÆ<Û­.šŠ²éNî,µ*!š³¿N¸òÞôÔß( žôýpðw$î앨Îþ8ø;’qöJ¹œš³¿þŽtýpðw´×Ùß°mÎþN8ø;uöìdTO'¼›P}rs°hµ?o¢ÆOò ¿ñ°IT/'**á.È»’÷òw³ ¯|Mú^Nêw ˆ'}/<û]‰zy—§W†$˜-ÆÏÂçÍ`´¾æÅzÉ_Üͼ»‡ååf¡¢{ë\ç´mÅ)}:òäÏ»ð=«!_-]¸3 53æüaSÄãzñ(«s!S¤n'ðÈ7Ävv¹ȈÃà~Èû•™dQÉð&ìÂp÷ÎÝ2Æy:09ŸŽq ñbÔæ€ÔâIº9 u]À1Ècé7¤~\@<é7ïæNícrÍÁ×ÈI´Dj!päeÊ2Ÿõ£ç³³h'$^è àÍoNÞéß G'¼ò-é;=©¿U@ç¼]84Ñ¡s,xj¸»Ê¡z­¥ÀC%ïþ‚ËÞùŽôÝŸÔëâIßýÿ.ÿljºÿ<æþ…1 j êG  ƸcðSÂèü–‚]ªúyÃZÕÁ‰öéÀm·%ïà §&Üy{úNêwˆ'}ÿ0œúÉ:xsð²³…@õ žW¡ÿ©Ö©?Œï®‡œÂ@ˇáÈ„mh!õlÛ@ËGàÈIÔ©OaN-3cü83aüñù3XmŠœ¹ÐÜ5.SÆg¯‡,µlÇg߉O"œÍ{ìâ¡êù¼çòÛ?w?4plËqº”æö!ÿ¨Rþ¥» lÜøu›âKïzðYŸõé³ñ?R:œÜ¾Ä÷ÙïgËð®z\¶Cò _e4.sºp¤'Ü "Ÿè«Œkc­!'úª5T¦EkViÚTZ yž`Õm—)>œ¬Ö&‡««eâ§Y­'Fйò=Êj{vﶰ𶖑ˆ¼ø"È/R˜œ…¬e$uϾò‹cÛc_hŠƒ5:hðΊ^ìN^öG ":Ç—…ühòù+©ë¾òûÓÏ_IýÄ“~þúQîð>&—¿žJ2™–h-.‡¼ü$ï™׳€[ oIÞ³? o&¼òé{6©¿R@<é{öÇàÍKÔ³ç—=:ýO‚ÛBàRÈK¥ÝzÁ NÇèŽÃÊOk>¹ª{WÏß6]kczÑ?ªß´pœamf¥`Œ™?S[â´Í¡Â¥Ö³+¼\™¸eÈåä[eR7¼ò±kÄ¢Úq›QÓ%"âï†|w;Ó%"ò<à½ïMÇ0Çχüü؆‘Û—C^¼²ÜqajëË˯‚üªtÌòRà«!¿:¶YΠãðè2“ê1­‘SV"ôà» ¿+ù†Ôu…­ i7ì¤þ=âI¿aÿ8wpÕ6ì͇š ¶ç†ÐYT?9ƯAh°5bܱ)Äòtàää}øãð[ÂAȃéû0©¢·Ÿ?âÛ¤Þ7ÃMªÙcùõ‡¿ˆGqJ¼`¿ 4¬¹ #÷ ÔOàûñv·-[VŸÀ OL“íbáŽNhu ·R¬µHc+,Õæk9èÈÍ1ºÍÐ n¸);”–ã~L‰dü“p9Â]wÅJ.&>M jyà8d©Ÿ!ñ¨vÏÂÒßÍà»dØ'œ“» ‚ÞùYâ³þòàä‰äÓ.Rw ЄlÆvø­Õ; øÑÄv‡U¯I¡KLF ­àèSwv £¾òÛ•;zW¹hËøùŸ¿ ù«éøùÙÃÄ7pó+w?ÎH¼À‡€_„üEeþþ>à× -ð/!ÿelÏF¾èôø ÈßH?7øwô*ªIQ ½‹HæÓ @¸òåõxAÙ±ÇÌȃwDj p=d•+ošTås†A9nm&îgû ÷)©Íô—7@Þ|m&u§7BŽ¿ hזּ©‚û®ìQÚ®éÅÖêÊ{¼_˜BðÕ¯þö #m>²üøTœ;©çóñþM²ù†üpÔ— o¤}5~¥@ü•2Äã¯dQF£a\H+YÈ´‘W­(ãÕXkȪµF†Æ“;Mݾ]%ÓxH²Z›,Qç â§.u|לÀn‡úë ´u;?nB$çÁ]½ã3*»‘{=¤>+ ¹:œ9/.':x'@<1Kå6Ö Û#^KSaºÕ–.*Äå°tbÙ3Kæ]üÖd{Òp„kg«!×ÍiÛ§iq€^)z}ZÄü,LMxäÛ”ÇÌyþ›HP›!‰˜³ÔŽKKɇ"R7´ [±=í4\¡éOÈø† <ù˜²Lw~÷ö]×è+§°9p"ó\à !¿0óÜ |d©¤ue°‡*¾ßƒ­®ª|N»]³,ÉÖò6]`ª̱1áu&ø2‹ cŽ]’1ï‹ß„üÍ“§êÿ ð ÿC:UÿÀŸB–ºâ5ºo} ø3È?‹í[§·ÞÊøÅÏ¿‚ü+eÕžÒgϱÃRϦõþ?¿…üÛtló¯ÀßAþ]lÛœ.¬3rã9™f›Zj—!Y[¦ÌF—ÂFÃtWeO5Ê wï5ŠÃéßcè…è÷>×À+¸œ‘ZÙ‚™ÓWr9ýëŽ,í¢CWi›´U½27´®l<Î q™ð$‰Ç™"°ÌeÂâqf x'—3R 5£{Ì@‡Ë„1=f]Ÿï(bsNí9yÍÝ5û÷SžMŽÛKÚJt麄\àÛ¸L¨Ø…æ[Å’iJp{ øQ.¦áCï~ŒË„iøÐÛç2aLº¨O 6ÕÀŒx#×Ög~ŸË„ŠÚ‘yÌMî ;Ǩi;ä/ó\ΨLþšX É_æ§\ÎH%uE°ŒuÔóGôqCë1s†\Cÿ3àp™Pu®Ø£Ó¡–jÂ-»¸ŒË„ ÔèYCšM=«ß.à)\ÎJ]ËÞÐJ¿Å_>ËY©mýÑ]9qv9— cºlVÆI}·"<“Ë„Ê›cªb˽ØÏe“ÚI/^ÊeB5Nš=˜ã2a Nš= ¸†Ë„1tk ?®ã2¡j?• ¦»{¸LxRûé6àN.gw*óÓ+€{¹L˜†Ÿ®ÞÈe¸Yo]ÊÖúÏæ¤î™“F?­Õ[K÷c%qÙ}Àçq™P}ÖÏNG‚Ûk€ÀeÂ4ÜZžðƒÀWr™P‘_¿øF.¦á×÷ßÄe˜~½6ÈkùE"¼ïÚïM— ±[*óÍ1FA®3›}øu.*vëNÖ™• öcà_s™0…žlö»À¿á2aþó àßr™0¦ÿôq¿¡íŠ+FÁN#ÿŽcçR.*êÔ.(Œ5BkÖ­í<x>— S0_ç2à\&Œi¾…µnmtãt^\ÍåN¹ûº›Öê‰ÃG$ˆaøµó©\&L£¥jáRͯnár§ô¹³þrx— ÓðUôÕ:·q¹s[l_]Q\ÝmÛGŒþë cÒpe:¹ÛOã2¡òæ¨$㸰Ìe“Üq à.wQ渇€wr¹3ƒÎ§.ÆtÜs«Ž+Ì»õù% ó/å2¡bßí*é‘7™£·ßÊe“Üy_ |—;¥òé†ùÀ·q¹Sjö&ºóÞ|;—;åö艟¬:ïÃжô2õzµ«M‡®<`èN~Â2¿Þ¾Ùsa~B˜æ0Õ;€ÿÃeBÕãJ¾dZcѹu-žÅeSp|y§Oã²Jüž~æãÙ\0i¿ÿ_¨]Áe˜~?O2>w=x>—»¤úMõ”âèظ;º6/Án-p —»TžŸÖÄUãPîpÙG5Îz1ð .w¥³Š¥ëà•\Š%ç;«¿££2ê².ÑïúÙ¿OÑï‰Æs$Œ€U×a.û¨Ö«0êÄS‚Ü=ÀpÙÇ4yÆSÀã\öQOß |!—»ÒYSÛuø".wÅ_S{GmcÕS=\½dhûO5¶ëÎ]fQ7û·ÛΔaZÚ¸£LZ”W0òX6{³ëÅÀŸq¹KnugÓZ°}»d2Ûõ_Àßq¹ëwéÔ‚ìöídÿø.û¨¦ü?Žó:¸ìc àçP›áò¼ø{næ÷IšÎC6o—ç©ß<7~œåžÜÎ^ÄeÂTre¿VI„êygÏá2¡O·ØÍeÂq•ZõFœþø/ÿ%¥ÄUšðßYjT¥á_þ!ðW¥¶¿FwÕoÿò¿ÆvÕ Àé´ÛܳiÃ9ÿºqûÓoÚVKLù9håu¯ÚÌûGèTÿý…«Ôþ°twÜ?Å'Ï’[Ñ;N^õ×i£#É17<Öi¥@%§ü‡„&— S0¾¿ãð0—3r#åâ§7j6_?W=òŽ_®ƒì¢þp¼Þ>m´â±¯›Õl‚¥%Öx¬\"sø1.Ëí¼khÞS«=+øg\&LÃÆ~‘Ë„íB! _~…Ë©Ö¸ñ4ã˜g—9¡ý°¦†ù&ð\&LÃ0_þË„1 ³¼šæ¹òy^æGÀÿÇeBEVº>l?oŽ»ûjCÃÝ{o¸qßÁC7ì=t`û¾žÆ>c&.’‰)Ü “ f~Ã1{— Ó0ô¿@í6.gã//”ϳۻ¹Lx2 èµ°Ìe“~@‡øÞ Ô¹œÕU冴'ÈÇ;¹œMay!©»èp9ëÄvÜ<7 Fª½R‰Òv/æ2¡¢05ÏÊ—+a‹ ›˜ìƒÀ‡¹L˜†^|%—åöÍ|žqÔ1åá·ÀY•Ò¨áPò·£šÞÍ£æɽtK”}ð§\ÎÊmodâ°–¨.°FÇw…á!™æ&ûÏiëÉr[ ¢{ÃÏ öB.Æô†ÎÞÈ£¬D`%ð".wJMŸÆeýnû*ªe½DÓ´mÅâÌ#i)é:š7ÊüžûˆLÿì/|‰2_B«Z‡»é8Ö1ëŽêÍDêrà&È›’÷fRw)p3äͱ­ý¬Ò¿xd¹[UÙf1·ç°³”e¶÷@Þ“Že®î…¼7¶eæKm4 7B>¨Ì:Kë®'e Û€&äFwHÝÍÀÃãîéÕèVYӡ˫ʆ…A<~Kï¯yci²=ÎZÐ>mjÂÌOÔ4«kòï¬èG÷*ìOé*6`Ò‹~²ú“%OÅ»yQï !Züä_$Ò¯™¥öÀ„üéxß·€¿„üËØÞ·F¸FªzJiá0Ím’ÃÔÆ>0G,a¢âH‡8“L¨(Ž´ôœf$Ó ¼ŒË„)Ø0s>ðr.Æ´á…ÂÀ0 AGZJ˜Œƒ÷ñZ.*2Ùf²žyL‘ØìÞÂeÂ4 vðV.Æ4XŸÅuºKT½hUA!öh#1}ðy\ÎÄ;DDüÖÖÀ¹†}Ú=°fðOÇ(æ0·¼®ö"ÌI“ÖS¹4÷ܹÇG/ñà¸L˜†Õïþ—åfâöøˆÀ_æ2aÚ=¾/pO¨¢šßÖÕ¸žîø‡çó‹w«ccæQJ…ÆÆXЕZ ýgàJ8yHšw›îy"òkÛ Gí¦o¤}ÏÞ.ß.CÜbÝ󤌆â{ž”ñj¬5äž'µFRz…÷<%]2ïyJVk“{žÔ9¨øéµÁ"Û*NÓšÖ§dÉ ë:ºU°KkJ^û^g »õöU·ƨö/ü’6]ö&^Øx-ƒî}À×B~í\ º¯ˆ¿N†¸š «„FhÐõM+t•ðŠtÕ¥uÐmæöí*™ð ›œÖAWƒŠŸ:õ7èÑ…óþm/–¦W<»¤{t Ç£Óuë¹ø’­ºSå]ƒÀÌLŽKºUñÿ„äb.á½3‹¸L¨ªw/¹0œØ,>…Ë„I÷óHÝbà9\&ŒéO­MÁ3;c’—L¨k“¬µ`,M/—»ì˜ºghEÃ÷&d&¹ˆü¹À§q9ï<+ñ[§Žžž3-Ó“±é!à8— Ó°éÓ\ÎLĶéY,Ò\fÄ¢¼JÒR&ð8—3Rÿ[Š¥ÚCÒ–ºøR.g¤N•Šn©gïç2aLKõóÄ5¹ºöðã\–¼ ¢aZã·ÛÒ&|ø%.¦aÂÇ_沂ñ©läq2ÒÿçÀ¿à2aL‘ÇɾÈZE5ãdghZÝÍ­þ—@†PHçVŸŒÈŸ ì†Ü=údDøbøÅ2Äã÷É”ÑPÜ'SÆ+RŸL­Q’é“%]2ûdÉjmÒ'Sç â§7è“Ù–ë9ü’rϦ»†Cw–ÓЄŽÉ¹K&i-&EÓ›žqi_ŽY]bÏ—³†Ñx´¦Ý—¥J‰¦ûü~­Åˆ †üaeU·sp` jÂAL> ü4äO'Ÿpº?ù3±]äÌêXg‰%_d)9=ü+È¥ÌD)}_@φˆ ¯ä²ä­¬ ,±&R;€û¸L˜†‘†7q™0¦‘æóýÛöÙ¼•Ë’ ˜.ä-ì[: Œ ÜóNÝ,r9SLÇ@O–¸œ)Å6Ð>ÿ ž;æuìÍŸú öæhÙ‹[ÝͯjŸ6½ü$— ™ZvhŸØ|9‘)Rõ)à—¹¬`dêúð¡}7¯u‡ÎKfè‘^äÏ9fÏæ2¡"ëžÊ‡ÃOÊkfßìÀK¹,Ïa$ûfWWq9+—ˆŸžBíà)ãdÑ,ûW2®î¼’±©qô°S›g=p˜Ë„ig p+— cg)ï\GuÚØya,‘y*p—³R»zÚ輺ÍUƒ _k…‡5µÚA Å嬕ŽÕöm.Æ´Ú´V4Ç<>ˆR)— êT¬BNÛk{?ŸÆÏ;õZA3\Ï,Q¸,8þïæ‹þ ë¶fzþ¶›6Ðú†¦å¦tÇ¢eß÷‚_X[ §‹ù²¶CƒÚ•ÌµøÏ–T6Rôª?­ÿ¦dô}+ðÛ¿­,úzõÑ7R‹æù'aÇïÌ¿#Ãü„+ú‰t³Ú®„iäÚžœÖNæ½I*mê/²­µ:w‰ÕZ«+ ™³{˜·KåJuMí&á\Õ]v±hOÑWv˜Þ&åïò×ÛßbLºÖ340¸±·ÓÂßV듶Y µNÓZÞ°\Û¿T²Ü³@<Û®- ül0ÇOÔã×GæÅ_²MË«^/ix²‹ŒÓd/æ2¡¢ zJ™½šÌ*T¢spËY©}!MLøžì%À!.ÆLµ—Un•;t—جnçrv»2É.'6×oäröÆtL´¸Ë„1M´¶ºœ×¸àb>~v¥9ë<5‰MODø&àó¸L¨ÈŠõëUƒjG·®ËcšZÓ{Ù?ârVj :ºeﾕ˄1-»5§mÓ\³dÒj~))3µé ç’–í)ºáWÕRÉìÛ€ËeBEFÆ->án«þøï\&Lêü — cZuA¯ìZŸìÿË„’dÚ8qý-GúÉ„Š’¸î\R#NrtâJ:’jh$0q­†XÔ¤B«$7qhÑ„ö–ÔÚ|âZ‘‹ŠŸžÊÚÂqÝ´dšµ*³Açle5æ´ºtE¢]£[Ã|ìårgo*íZç àe\&Œi¡ý”X÷ÉåM'_)MRÇÁÏAýì¥v"‰Í’—Yy‹;ëbi S_¼›Ë„ŠL½°jê;?øR.¦açãÀû¹Ü)¿Ö-ø4ú‘h¤ÿà˸L“GäíLÁZE5Û™nÃÕ“,5×­¼ÑŸ·Q+éžc¥kÃ-ÛVÁ›±}76–U¯³‰ÇÀWðR„·A¾­-)bŒ;ˆüð0äÃs!C$ÂGâGdˆÇÏ•ÑP|Ç€2^‘DµFI掤K¦q~˜¬Ö&ù¡:?mÛâë<ù±6]éó,‰ü‡€Ÿ…üÙ¹t?'ÿœ q5AW ÅçY*ã9èª3J2çY&]2áA79­-‚®?½£þ•Ë„Ê:µ+B—þnãSXQ_ÍÊzR‚òà.ÊQžõ—{Wq™0é1©»¸Ë„1«ÁµK/Ç»$é¹™íÀƒ\Ψ»ä¸•ýC.ˆÎmÀQ.¦a¦›y.Æ4Ó%,ZåèãÍ“štÉ´6¦›Å>ºæv+_ÈeBEvËîÝ&c±€/ã2a{ðA.Æ´ØsgÞÃèz,Kׂf8Ží¸~Î>aÐP‹g¸}ì™®gæݾêÒžØçmkÌ,øߤ‹zö?µÇ­Ý5LKQ‚;E«g«IøÃC³Ë¹L¨È¡å‘¹µ–¼˜Ër«e";†ÿ*„—p™0¦c¬çge‡]WË>5Xmwi4šEe ¹E·%çãÓ¹L¨Ê–,mš° 9ÆÚ•±åÀÃ\Ϊë»7µå3€G¸œ=Û–§×*›Ü#¢SÞÍål¼aµY_öÀ×r™ð$Ïú²/>ÈeB5Y­òñu\&LÃo_Ïe˜~{n-ëë‰7oE¼Þüc.* 4×-¯ZþgxCôË°‰é'€?â2a†ü0ðÇ\&ŒiÈ3{k9@õÂ; þøk.*2áÊY&¤Lv¸»ìèù’Þ-e¾ÿæØù.w¦pÇ©ý7¨=‡Ë„1Í'³Œœ ¼€Ë„ŠÌuQˆ¹òz1_)V\)ƒu^¼šË„)¬óBàN.wîTÐ]ž}6µ„ývŸÆåNù‹³3N^¯¶l‘1Ó!à— ¹•|ÒYã2aÈ|^„K@‡Ë„jòÎqàÝ\–[ ½=xœË„mŠ{Ï>‡Ë„ŠêÍ ÀÉÕŒt>ÄeÂöל·ßÁeÂTr÷ (%(¿ø&.*ª;/¾“Ë„iÔçßÅe˜uç™ÕÜÝ­ ÙÒšž4‚B׿¢Ë_ÓfZ®gè$ª6Y1crCîpzµwsìZÀeBÉWlß²®S€gsÙÇH/Aßhà r× ø âJfÕÐP¿lG ¯ÆZÃg%±e;‰–Lè r‚Z›Ï +rPñÓ. –B0pë–ôbÑ Ö#7L­pŒZ½l·J³íħb걋‡j;fn?Ö¿NügOÿº°ªØ2Î>x —}Œgç³8›l˜½Uà}« o5aV °ý3°´TœUB,rœUg• ÎfCü¦Z ÚT4¡¤šTÆvÙ+<ú'§µEôWSoê^S® [eò 0y†4“8Ùò9#%Óê™<4ا 6-ÚŸ$H†¸š°ª„FãÙ"L©ª„TäªÎ"­h‡oW±„‡Êä´¶•j\SütµV0,›öeú é‚Gå ötºò‹”ªd?²‘&w@b¡9BÔó&ªñÕô&dãëG}œ ã_xU†·šðª„Fã;ËGzj†–Š²J¸EŽ²ê ÓjHB¬m*ÆÑ?¼:¶Ë\áÑ?9­-¢¿ššSWc4׫¦{q>cŒ òpú4§6Îäýø\öqNdÌ¿ˆÿR†¸š®„F3yJxEçꌒÜL^’%9“ÓÚ"rªqPñÓ÷ù3yþözsÒ(Nkžcøszº«Ýe8¶¿r¢þ„Ú™»yzø¢À £Xö÷pøGÎÖ¶‰ÖN»5­ð5½ØÝ•¯xöØXõôÚÂáŠKl$ÏšÊlÞk¹ì£¢n0óÚ!/ú9¦ÄæàÛ¸L¨È…š­É™÷:àÛ¹LÓΙ½ùªÇÈG?È’h½ø.*²ÕŠºÅ½0Üð@X4nj»/ÈeÂ4l÷ðG\&Œi»œ|õ”é±êKµÎ?ó+¸ œÕÈüÓâtŸ$ úcŽós™P‘Aã\âNŒ°»mþ\ž/µŽ<²çŸ¼Ë„18Ïß)Ý6óW/æò|©m…;°Ü6,r—Ç*–”y.nä2aæÁjýù›¸LÓšÌw¸L¨  &>b?ßx»2¼ÕÄS%4XA¨†X䀪Î*É­ TLr&)¹„‰Ú+<Ì'§µE˜WSoÄOú;t„¡&qêĆrÚµ¸ˆ‰v£òƒwëOìuêŒÔBšêÛÿoÿ eQCù¿þ+— Óèý#ð×\ž/·O^ütURc~ó±]}Á9\&Td³SüÔPnÐo\ÍeÂ,·[æôp™0¦åTú-ènãò¹“Ýë)uƒ~åäFýìâ2aÆÛ¼ƒË„1·²ù¨_ÔóÙ‰œ|6— c’Œ|LüW¹ý«¨æ˜ø§ikgXcD3¶åŸJE89ö8kiª«Šì2ë´˜wñïèÅqÛ1½‰ê|âéš®áù-ZÄ·ûÞˆðiåON˜YOOΨíÃ÷ß¼3jÝ J‡€‡!§pª©{:ðäø§Z]E‡±ê0e[«=ö_ç¿õ‰ŸmJǦ‹F–Vp ±/ß ùÝÊìºv•1é…üÑtLúàÇ ,¶I—ùs’–€à¸áh=&ú8ð‹¿¨ÌD§UoHÆHÁó¦a¤/¿ ù»±Ô­M›F±À:“îîе°+1ÃAü¾üÈÿ£Þlk%Ì–Ér9hë’6ÛÿBí".Æ4Û(ß„=Uß.NšnÅ?!š5yGŸªvâªøWOaÓÝÙM(û;yÃ(¸Ñ³z¿ÅÀ— ÓÎFþ’ûLÕd#—²l„îbš]ŠþUÂŽÔ¡L_=ÂK!_ª¬¢t•#µŽ•>àÈk’¯#¤npò@l£ªõ‘Xb\qч”B¯Uä’þÚuæ]t ¯%Cw+̼ì+Tž¦ë_(u_(½Ü ðe_¦ÌÜ‹ˆÞp·eZ“Ý2VðȤcõo†üæØV—Ù#K Þ|+d¹ëh™f)7{§ãI›ç=ÀCþx:æyðqÈÇ6ů= Kgʶ뚣¬Æù‰~]Ö1jW¼Ùu’ý¢ž÷xóæz,U)h¬3=aò®¡=z˜Åæàc¹#Œé]?ÁÑ?nÿU a±æÿ>GÂ2À\Τ°.ƒÔ]ÜÄåLüun5ðÒ(¤îQS)4½âÙd~ÁÅ(oRý}ÿà&v g²zëÜ‚Õwæ.y»Ää)j‹ùð5¼CÒ ü«'ßÍåL¼ÎaÃÙnÃ¥SË$¸}øI.*ó…Ú!k³Ô~ø).¦á‚ˆ}™Os™0¦ ¾^hûxî…àÃ/3ùSÍÁoÄ_öÏä™`½©>>ê7e‹še{³ý\Â>ÑÎ'9+7íÞÌU°Èœ«XftrÙq`‰ËY©>Ad_Íê@‹ËY+_ÍÞ´¹LÓWÏצôê=±ã†ïH1âZ¶ ¼Ë„Šš·ìt˜4kز/¾‚Ë„iXê¥À‡¹LÓRRëA‰Â+¯å²Üy÷M2)e’G€oærV*+n’×ßÂe˜&9C¸äBò¾B"ô‡À?æ²ÂÃæ%ë rÔì'¹œU™41ЇŸârV*PSg> ü— Û[g¾ü2— Ó0ÉçÎe˜&9-¸DhJâ¢òÀïr9+7HÝp—/˘$ýø7\&TfšUo¤î{À¿å2aLÓ,ѵ‘(‹¿þ+— O–n ý›°³ Ÿu¥“*þÔÎã2a5÷×P;ŸË„1ÝãV,Íb}j¾4ËôG>]:ÕÑÏöÇHNdÀEz¥sð™\&N´~űëT.ƤyýÜÆUT3ž§ tÓ¢¡}¾b¼:ÚO×H0¿¦aSÌÃæ'l×°„ùÖ`«úø Jº©rl,Æʾ¿ÂËæ!ç•U‹¥ôR†?ó·kÛ "/î#V‡G!M¾Žºpòtlëg#WÒðd•—0щu Ô>?ø¦Rç\I}V@<’®9?.o±çTñÄœšv«]×YݽÅ4òÞ¨^‘X'ømŠðÈç(«È+¦&G¯*žÎzKýeǦIæœíŒK¼¸²º)Üù#FI7‹!zÏn‚ÜŽ½õ¤3p d¹½õŒ´rÂóÊî–5k¦¦¦rŒ²ÕŒH^¼òíÊŒÕ5RqÂLuðäC±MÕ=!wG!*{ý#¬íŸ°@Cµ÷;m ¿¤>+`¼ð;—ÎwÙsš€xb–ŠÃÂïvc|¼OÛ‘Ó¶³>ü*m~W¥TÐ>mONëܼy-´/?4*?¡;zÞ3~e<¥kºæèÖ¾ý¯È‡’ü‹åia¹2Z4óü‡£¦îæ´ˆïý=x¡ÙQ2n7m)ö&¼¦Ï…ü\…¹IÈ2©sσü¼6DrÒ/ðùŸ¯®;¹~@‚ÏK÷C¾_¡9Fíb!Dí €@~ ¶9NïY×Û§ lÚÔß?880(Ui^|ä7©og ¶IíêšÁÜÐÚk†Ö¯]»n݆ˆí,‘|ðó?¯Ðt´W Dí#À?ü'é73¤þOÄ“6ïs;WQM£»œ5/;t‡µ}ÚÎkc"Ç™€ árÈË¥=™Úðz¾½è@~âs¶F»uj‘ˆ=Ø ù"‚ OI b¶!MìRàöÐÙZ9…é«aåC´ž€¼&¶M÷i»rÚÕÌ}®1œIÝtû´[s,?¡|e·Y×BŸvKW†7³te¥"y¾ %!”xÐñ—ewšgÑŸÞ¢mógQu–ÆðµÿÔ_è×-½8MÃQì_v!z¶B¯=|'Š@êòÛ†w˶Â$?NŸ½ÌNÑ_:±R2ì ÞÒ?þó@Þd– ÛƒØì=Þü9{eÏÏ’ÏnHÝ»€¿@þ¼ Ù éÿGà/ÁEÝiÄ™! :¿ð_ù“trCêþ øo(‰øÇN,í¢äfp=ËmÖ­“ªaÿÎ1Óɉeä»e3MÓÓ µÜH©Íàú¡uë7nÞ´nãàæ¨9Îx“ì#‹ö]Z¿ŸtŽC꺀C¼ÀH}ÚÉ©_[CŸÊPú4~È ^E59Î8å8¦wÄž2ówõ¡QºÅ˜4t¿Iº·JY«´v°»fɶL»B+«Ìñ ¯6‹N-•¿‚Üßë·ßü#¼ á8äqeõä¬úFm‘E ø\È)t¡IÝðyÛÑ…&ý÷èBEmeˆÇK)v¡IÝ €êºÐ§õ ²Vfˆu ×Eï>•—_ùõÊ,ÓݨX»q K:Øÿ7Gl]ˆç[€Ÿƒ,µ6ZëBêÞü¢µ7¤Î¾ò+ÛÐÞþW_ ùÕ Û›Ð¨Õ„Ïo‚ü¦äÛR÷à#QЫYÏÚ›kÿ?öÞ0në:æPÔFË’-[’emeKC›.ÚÊ–dɶlY¶$ï´p$!ÍcCŠR”ÅÎÞ4±ãlmâlmb;Íڬ;6M›¥mÒ¤í{ÝÓ¤¯Kšn¯ïµiýß|^’R÷âý¿´ðw4ÎùpϹ瞻àÞÞÎÎí›wJU¢w? ùÃÊlÓÞ°ÅéÙÖuªP,zŠ'…î­…îî-‚ Ñý$ðO!ÿiò ©ûðÏ ÿYúÿÏ_iÓø‹ÀâuTÓðc Ï-FiÈp;¨sO0ØËÚ#ú(ã{¢¯Íú#Qá:ñ—xÂc)«W÷s׋1HFÄîÆÚM¬=!uÇeÈå ÚÒ_Z-eö ·6¢SãWÒÍ ©³#G4'4HÖ»e[ggïÖ­RUgørÈ꺖×6jNz{¶t¹n –±Ìæm¢M Q}-ð#?’|SBê^ü(ä¦ÃIý¯sˆ+mX»Žjš’hÏ1âE%Çýñ±›ð†í½Ÿt˜VžP벃z5Çë ‰?6þÆî Y6üÍÌ '<ÓL¸^üÏDøäxû$ðw)hRˆ˜t!»É7)¤îA ÙË I!ý5àd¹`Ú°I‰Ú-p::ç9Ä•t“BêF/‚ü"MJ¿¨d'­)Ù.Uu^ üEÈR£ƒ’MÊæîž^Á&…¨¾øiÈ*÷QhRHÝ뀿ù7Òå¤þ3âJ›Æ_Ö®£š&åý¬I9R<>¬[¬Ù,]ÜoOS£Rö:´»ƒ¥ºåV š¦a¶Ñ4Œ¿Ã}8(6yükJ¿e—¶ujèmx½>¸6ÞFq“ð®]¡·Sjô VÑÛ⽞£ŒßùýêêÙ†ãVƒ³h6%‹ˆêGù’o´Hݯù4Z¤ÿ‡À?„,µpãqµž >üsÈž|«EêþøÿBA«Œ«uwvnß">®Fdþø3È?Sf›ÈÕ=Û·lݶ³g[϶mÛz{·Dæ ±ý÷sk™0醋ÔþÔ® d´[ R¯cx¥Mã'Á먦᪲†ëNÇp=Ûêð×Cîs‡Æ:üµmµã•1o¸C;Lòl™±±Ú Æ•§îïìoáìŠ7?ƒ'%¬B®*«0׶kkW©=8Þ¤²&·>³.e“à= |äw%ß‘ºG€ï†üî Ú Òÿà¯@þ…mP·Ÿ÷ ²ÔÞ™bm©ûUà @ADƒq›{6wvnî핪R~²ÜºlÓÝ° êéé:UèÙ¼mkgïö­›i†g3MïlÝ^8#Øë¯ÿ ò?%ß‘ºÏÿò?§ßúáWÚ4þW`ø:ªi‹ Yå®î)©{-ð¥ñFëqz»;;{{·IÕ¢7²ºá™ë¢†¡Y"F£ÏÛw2a;»ºw ¶6Ä÷ýÀïAþ^ò­ ©ûUà÷!K%ñÂ<©ÿq¥Mã“×QMkóÖÚðo©ùó¥SÖ{nõ_[2,ÃaQºlZ,0‡Çœ°ŒÌoz¸ÓR43<¦—rÖë÷ÏM‹ûšÁÏðä„/üeUèÒ`Ôß æ´.Aí•À'!«Œt ©{)ðãG:ñ†‡ô¿ øfÈoV×ðlë–àóðß‘|ÃCêÞ|'äw*hx6³†gKÏÎÎÎ-›Å‚™w?ùCÊlÓøM¶îí]û±–gç–Í;DWÏOYª,Öàºù‡éGzRÿ‡âJ›Æ?¦®£šç œ{m»äú{ ¦<©½¹³A'Æ ÇiÝpœv—vÜïR›#4^P«-<ֳ꘶cN~ÇZ¼ÙùgüÈÿ~ü'õ?å—¢§¿¤ŸÝƒéÀÊÿ(0´?Óª®ñ.RßÌ!.IÏm‰Kç_ÙÕÊ!®˜¥2‡5É‚Dþ &!œyN¬­ðX—Ã}„Ë!/WXm#Žuù7„pä ÕFìÒþocùxä«bûÄ¿cï¿pnLãÙt¦i83:l²< »ðg<Ã*…'QMžµÞs˜e%Ѐ,5ÚÜPë‚~×0ô²kGT0òåÿÝ”iØ!õÍÆ ;¯ºP:‘Ð*ÔK8Ä×Ç6(üŸð3ý˜—ðä#É™:’Çÿ…îÕ¸ÜAV$¬Z‡ :ve|s*ÿ-¿ †-©‚Í OŸ\s…Ÿå?ÀŸð 䃔éBwˆjÊ4¿A+ÚÕ±à $Óbñp7ùåIEmZÁ!JÂtŠ„yÈùØtW1.ÚžN¢TÐÝÓ†3b–Ë3y¯0Ãÿ+ÂUWÅfب Sùo¨'lÜ’=Ý!ªñ±UüFÖa>eW:ÃM¤j#¢ÿø¨ÎhÛÃ%·b¹YÞ­”:XÐx¸wü0µ¼ Õ×väö6ö±9dznßævaö(O·ƒ½Ô!]Ž±¦Ò *ÍÙº\™vˆŠ\nñ~§0)ˆ‹AjqlR7”òMD•ÍJ_1ßÝÑ]ØÖÞ¡)ë}mÇù¦GhéMõ¦mâî6Ax#ãÆ l<<æ)µ1ŠŠF>7 çÇ+W®r¹rãAšÜ‚&¿«¢¢>q+%Šr üR Ñ«}mTŠÑÅs!ŠÍÿu[[üxæF[0ŠI+˜¦΢h\—(õôµ‚Åè߃ ;±¢#áZp\›ãUÄ0ÏØq¡mKw»°K] v„W]ü®¿°!õCTdÈ#4Û*izµÊþÛØœ4&nqè=èÚ#5½ì/-ÚŽÁ^ÙÕzºEi ‰P]çpóLA…%Sµ×ðú|ö{zº…]â2'Ü â›3‰2—ƒÉåÙF™¥ ±T©sÞ¿Á?æX×<‡¹¢N‡°Oj[ÇOE¶ ö-9ªT¥fW=³Â’Ç?R{ÈðX§Ò1œ!J\„íaSïÇãÝÿñ.ÀQ=£ê²ÈUèîÝÊò²Ûémö$žc—ûʦëåëÚ×f•Yçx M<Â]‰Ç»Réãɸó20Y×j]Ð_¢¢«Y i^®ÔƒÅ3SÒß<Ž1%ãñXòX¡´<ŽrŪ‹tõêè÷Y/°:FQÜŠâÖFáLJƒæk”Ö?ñ8@ú›Ç1³LêZ”ǵJË#ÓiÝÜF<a†Óº¹Mà±IiÙnš2­‹]„4ÖÔËá†AÂl1ëècÈxS¥ÖíJK-©‰ÛÜu K¨nâöJnâvX¶˜I{„©]j„èEÆm’$fls B˜eöÝ JëVª’ÏT±µ|Ùj×ìëY9þöpM: dÑ-Ï(wÞ¢–{–å"A‡Køy xÂ[ñ<·Æ~žþñîb¡2œ¯º[sXftôë êfŸn²  ÇìcW‡V4ûŠôï^öï^“ïT¢ßÈ:š.M×QdL<.uá ûñˆýÙô!»A¥;c/î¥^¼…H½\¬•uÏИïr®lkêëîVm¿—¨¹Ô‘à|Ð^áçèÅsîÃsì‹ýÇ; —GÞ{»ÚÝÝwâØÝÅãî>ªÆ‘ ½[@eKÆN»<¶*uÚ«ƒž¯As>1×ÊlABŒÆ$x7ô6ÆlÄl´PæàA‰õ Xã#ÒÂÔ-»Ö"æ‹ùîBwOGw¡§ƒý_7ûÿîövn¿Wbd²Bxå¦ ì¼<ö*µóA|Ö˃^è é´íx'+ZÛ2,ϤOéÕG:1£ÃÏ5ª6î1ù5ᇺExꩇ¢ÁÌÕq3ol 3Š3w³bê‰ͤ’§‚§Ü§ìŽå}_[Ùp]ñQNdi>†a·’èzæ-ÌO}MÅìÇìWþ›£ tl58€8 ü¶D=€_}¨xÄ8Õ=€pUÄ» !* wë¦]z¿¢HIÂu ¹.6ÉKµg=ÂÆÃ$®á¢½øo­ õ²*R*ù}.ZIRîk(צYÊEóÐ$ÄÄ aLšZHsóš,ýg‰5°Ôb³l Yn™ÂrˆÎÚçy< ÛÀ³-ý{hܦ´Æ^ºJI+³VÆŠ‹¢„Ùn±“0&¥û2ù6Ï®:´k‹½¦EkYöɪHÙëksí²Yb_”GK4ÂFö-æYuÑ‹§Û:‚jÓá»eGhöѧÃ܉÷áéî‹ýtG´àÁCé[Æ“Cö@mw4HéóÛÇÛѶ;ý&I|â9 )L EÑ8 G•ºrïͶGý¸ šµåž®å§Žß?è ßàMØ Þ½ñ=ÂÓ0Ù¡½bäÖ}ZÑo¦®ñÿI«–ʽœ¼™“·²¸“ß…GºK©GܯMùŸK»zŽ?’kø§šðÏÍÿ¹¥þOq‡?†Ç#¼wìÇ;êØ£³“›g¦k'ÛŪƢ…UÃ*t4þ„c×XÔeOÔ¡E×Dq:N„êF$„#ËÝ q·ÒȲ±ñXœ{aƒqQ\ïWBu3Î×L‹Œ‹bz/˜†+G®QÇ”‚à°aS´Ó>&ôWSD#“aºYÓÀôĘnQÄôA0}0.Ó†Z§[Wu#4‡3´jâŽø(&éoÇÌÖU=„òxHiy FS§ì‰oZÅr-˜•Å+±šá8¶CkÑ™›Í`éz0ªåé<Ê]Ábá{Fˆä‚0æƒÝÁR×¢^6ˆlß¡}·?¨ Œ*£X4/pbµ¤ä¯c¦µË4Þâø¾ì™ÄÇàOâ¡ã/Ûˆ¿ )&*&¾ï‡‰}´¹†ÙpÀ²c²¡„ƒ”ŽÂ&T×­¼ïÇ“~º<Ý€ò§»椟®ˆ§+*º }NúéJxº’Ò§®þ8]!ÄY3:0Þ„Ï“Ñ!<áópt`Gø¼0ñP„ËèÀ)p"Ìptà4hœVYb­Ô‰¢ZUBu u’¨€)áÅ=8`©•SUƒ6˜Ú‰1U58PÓjbLU <¦Äe*<8ðhv”†ñN9éoÇÌ\”‡«´<²}é G²ú˜åKW5ð¨)-Ûã ÞðŽ¶ÁKÖ,—6¬Ó±­ Kfô²æÙz±hknÅ>mÐÍåK«‹´PÞÑÓ=-üd#x2BukÊÅKx¥•M¼A$ýÍã˜Y—ÿi”ÇÓJË#Û.ÿ3x&Â,»üςdzJËv?uùGô²Y¢ÃXÿž¢³aya?~⦺Á騵{m:^9‰n±#äýxÂýxýè¯Ç¯)-ÐÄ–l|t Õ-ÙXÆõá‹ö°aõìÜ!¾©îÁÂÆä¶8ìoéØ*Ñ'þHª›6÷³ƒÇ‡•úÙ]üƤN§gwžÅŠHÛ©xs¡Œ-vÙ¨ô#x.»ð\wÅ~®#6*}à€¿U©cö9´5©Ùgq]ìq/GÅcވǸ1~#³Öè×A…0ËþõÇÀãcJ=Vå(ÎÇÁPÝ(Ζ ʼnsüÏ'@ÛÐf1žóIPùdÆþö)ðø”R+4:þ‡ ‹17Mý4HvtWlÒëmš@á¬g;â<< ׃çú ŒüðøŒR#Ç\ZöY"T—#¬Š8¤y‹Ä‚±Ï!¡ºH'n¾ÏƒÇç•š¯{C£v6¾Ú„Ý Ý›öS_¿föE0#Äi•„1™é4èCÃRþk“ÝVhš¿?/ý×—{ºé¿½¾¼ÙÿïVÿ“m¾¼ÝÿïNÿ“¼3ø/ûGOôË¢‘Ïù%<'¡ŽçÔc?'½ê¿ßY` D¡ÇÚŽ­Ï|G÷øO·Íÿd+÷ÔÑÿ•xÖ/ãY Õ …Ïê# ž•Jî ¶t[x3góÀþÿ+ñ¬_Á³~%¡g%»ö6¶kðÄ;¦<÷6î“àÛÉ~ÜÃ*„ij~ÏúÕí:õY#ìX±—¯¹ÜxâðYÅ#æ×ð¬_Sú¬â Î×Á¨¨Á9°gOœÎà0ÕYÖhÚŽ©‡m×àg:F ÚwR<ÍþM< a¼U|ÔNÌ;Cô¦`¨h°„‰”²_¼ôJøƒ=uÔ‹8ØŸ }†‰–`F…ýñ5¾ÔÔ>É7ù Oˆm,“rå(ßo*õäí¸]+òC?íÁ¦zíá^å­‰O»ý6Èâl ˜äïvõ‘I Tø0, » ÉE®¡ƒ'™_^å³X÷¨3íÚÿ{z/£W|‹ßÁ£ª[ò~÷Ô},Ft§hWªÚ¤GcféîÑè{z´Íâžÿ-<Ú·”>Z ³š(“oƒ aº“s߀æï(­vâ éoÇÌ&羋òø®ÒòÈvrîwñL„±&çª]ØÙ/wªê¦‡êßKǽZN¼ïDƒø=x×ïÅö.tB'Йì¥'Èé÷›‚ ƒpI *«ó§±QÛ)EhÎ/ƒQ.Kß(¤þòq /¹˜rWó±þ/÷=Z õUô“þXà ?«—*S7‡wmD=™ã‘•¤qÃè—î|àBÈ Çí–vÓ?ŸÍï>q¨sGðå¼ç&ñá¿œ?¥´Š6ÍŽ—ãbæ?ô¾?>÷ÈþV›ä-ÍøÛùw=~ë}E/tÿŸÞøµNV¶MÔ ¬$붸dò¯]/ðk=eŠßÏg~?h–in¹°x4·ŸöõŠ°px5xî?Ó F¾ZîX’ð’ ¡Èó©‰Zl…,U. µÎë×˦ިÅnF!475<§%-{úEâRd…UÇ´¼‚¸UæÀspÿ‚¦ MgbV™K^ùòô­Bê—rˆK‘UV`Ý[Z^uðL‘Þ’:nYæ éï|#H´¶!lƒÜ¦ÐNžé•E3®óÖèÝ—´ìDê¯á—¤æÆ¥Ã~ÀOBijTvhšv(›ôl­h[¥Z1xk܃''¹œ'4Aöaó@Tº#.ûæÁ~sðÜ°W)Ÿ?×Ü8SuÄ›m}N©Ãõô!£Ïñ_ÆzèÜ‘}'n9¼ï¾c'ï>~ðÀMwÐÐñ1·0dx†5’o›ôu[ûn­þÑt·ã^sP˯·Î‡u'Ï×Þ>ågÚ†=¯êîêê*–¬Â)—%„æˆS° ¯ËªVX^â ŸÒÏܸ…e'g:+•rg‘žÝض[»“ý”¿„|ÌõŒJrŠ|[É.†åÿMýþ­ªOS´á{'¤jùDéçÚµµ)̃B`ä7õ÷÷Û5ïÜ·è˜UoïöC‡õ3ZŸvŽ}\­y»´sƒ¶Å ÔÑi£EÚÇš>¾“}ƾ*ºØÿ‡$ºxÆtW[Çùó»÷tATÑ›ìt¥Sì›îï'<ñÞúœß¤±Î¤ÁJ€•Tw~Òcp¿Ý߶©c‚‰:Ø3Oø¡öóç£:í¬˜ŽÙwàØÑ‡ß ¼ òM¢Ow,š|Ç¢þ²­—P\„¡V¾Q‹ÐBÅ#Q]rìÊ°çÛ¨9˜}d¶¹•`¢£¬k%—NJkÃ.ï¢=¬y°‚9ª½Ó Duð#Ÿe äI>J#"ñšcžÚÁñK‘mõ—ŒÀçXQG$|·~Ò`–C”š9Ä%:.x#¥¨[?kmpÅÌ›îfÉQþL°pÓ5è?þûOÁ*Îí–î¾îI/sy£vÁ5Kt$ û¢:¬÷ù«dX¢EàÏÐ?ÛBÎgùîØÏv˜f’(ùë ÿ"^I«:öЀîà€ËàFÿ©h¥G°hµC} nð¢é0äÃÒÎÓ9ŽR²½F=DR{ð(䣱˳Yxi„OàNà]ïJ® ɃÍ‘Ž33f(sý‘Á8³~Ox)äKe¨5¤4Ý`Ó4„..…,Õ¯o¨u~°*½ MjÛ;³¨ÐD ì‚Ü¥p,¥æ²Ž^Dë—koâå+0ÿ­pR@ØÌa¼¤àÖ¸tÃ!ÊŒòßÎaͦ ‘%0 !7<©h,pã‰aƒu‚ug¨FÛb»ZÕp<ÝôzðÖ õµ$8cžÕwåV¥®<·ß¨T‡#Ô¶»!w§ïɤ¾‡C\iÓ¸ ΢šz-áÁÜ@ºŽÊhûpaZ­NZz(˜Ì™œ!ëÚëÛN°“Km–þ;#F)ÜÀÌ5ÏÒOŽÆ:éE»ȺÅî;…ýÍŠeÝueŠûRà=ïQ0æ¶9½M´m#.uȺ€P´Kš6Rw/pò@üšX°H‘C\ÊžÞôŒJ„Ú` r)þÓ‹Æ!Ropˆ+ý8´4pçúÌZ2q¨yÄ”àÕ ¼²ÔTpS£Y¤¾Éah¦w¯µ¼9dÙ´9Ž9(SÄ‹‡!ËwÎ/8ÄGÆâq‡¸’Ž;¤î6à1ÈÇb»ü Ít´Dê8ЄlfÜ>—*Ѓì¥c§SÀäš‚¾ŸhAúG€£G“o H] ð ä3é7¤~ŒC\é7ÜÈH‚ Ä×m!0Ìíã"ÈRц-ÄáZˆ V»ááÔþþj¶e„ûðz£väØÏtϵxäû¤ üÂ[âÈ8D?søÈ/H>‘ºû:d©ôxâ¬.õ'$,24 Ë%k‚®?­IÊ@ ²•ŽI6d;¶IVvh–a”ü  Í­EsÐ4JÂ-Ѫ_ùUÉ·¤®øjȯN¿Å õ¯áWú-Æ•“û˜\‹1/˜9”àÖ \Ò4åŇ˜Æ)ÛŸxÖËZžN7/2E«V1³ØŽ}07||,8dÄŽpg7cNÚªÓ¶kåUÓ*–k%ÖõˆÑ¡ç] <ù\†}âñ(‡¸’`¤î…ÀÇ ?v±ôAˆÔË€¿ ù—3wß ù½éØémÀ÷A~_}Òÿ4ðÈÏ$ߢº೟M¿E!õïçWú- ·ca‚- í§K0k^ YÝlúáz{âO;ù¯aÓRcšŒ¢^5þÕ@™5CtÂG¸«óøä•>`¢Ž¿ ÷ÞùþäœðȤïø¤þAq¥Mc9\=ÄÌ&«¸3?˜n½cšéÖp=½ö¨gœ/–]ZKx/ä{zzÄ´ì x7á}åzù±\ŒÔßÏ!®´ipGgëé+¡|¥Ojišoé–àÕ Œ?2™….J°ÉäJð!êWí¸Z§Õü£{üãjå²6%­lŒeÿtP¡¶~JŽ\èÞ*œ%Óƒ]äÖÕ%]VÁí 3\OGê Õ¬§¦±NbfýØ5P¾FIMœìî½3ŒØTíQ–&‡k høFtTf ª(ánÈ»zsĨÌx0áÈ{Òw#RßÇ!®´i¬…ㄘ™7¯ƒòuJ¼9²]ñß)• Ö Œß®L^0ÿúÀ…ÐxNí†i¸n6×Q-h·²›êK0:4ÓÓFÍr™ò³pÿ×’6 »ÁÑâ~»ES¶Ãa-˜§Ÿf=^ÿ”ú\¢P/þò•E/¹™Pâò§À¿„ü—É'ݤîù¯b×Á˜«M2ˆÅ€ùï’O2H] ðï!ÿ}úñÔÿ‡¸Ò‡ZàÕ>&8J/×K0kÆŸ¿waáP¯Ø5Ë_‡ÁºáØC†eÐቦÕ0@Nw›gü`NwÝmí¬a¶+¾V»æ*î#üKÈRaHah$.ÿ ø¥ê…Xh$uü)äŸf‰Å?ÿ7d©N¸Xh$u-À‡üïé‡FRÿ8Ä•6õO×1³Œµ Ê Õ÷¿v_ÀŒyÄt¢1z€VàMoJ¾#ÖW&<Yj› xþDêqˆ+màA!fæÖ×@ù5JÜ::ñ`þ+Á¬?ñ˜<ù÷h=ñ˜iÎKñ{bTÙw5VOi@D†c‚Óî©bæïÜGøä'” ymÅa³W8Q 2o>ù©äR÷à; ¿#võižæ#ýï¾ ò»”Ùd~Û€iÙ)£< ü d©)Qq£¼ø!ÈŠm©I>¢ðaàÇ L¡]Œ3,bHÙå3À/AþR:vù8ðË¿Û.7œåkØתùU¶m×bRX2ü$š«Ó³}%Àܺ@&L:W'µ-P«rNK?› õëÇ1¼ÒÏ&® j‹ÉeK&mÆ'A²xä«”%#qV bh!ñd‚ž}ðqÈ+ òëSˆÏ[€ï„üÎäC$©{ø.ÈïŠ]â.""6ï~òG”)ÎZ/bô)à—!K5)âfú(ð+¿’M†A¾ üäo(ÌÆ¥–™ï¿ù{é˜å·€ß‡üýØfQ²Œˆ(ýðAþ_É礮ø·ÿ6ý¼€Ôÿ‡¸ÒÏ 6>îcryÁ|ìÄ+A®xäˤóÉ3‡Ã÷†¹4`tØ` ƒãŸ{k³¦’5ñŒ6÷‚0“F­)‹ˆ$žë `?ä~e!ª…¶; PD¥„<˜|€"u‡ Å®]íí(mâecD·¼`Q87.Ä—ßSôó9ÑÐEd‡o†üæäC©k¾ò[Ò]¤þ­âJ?tm |ßÇäB×Âú¶áôZK›ê;¬) ^¥)« §ïœL]÷ØÓ=¥–Ðï šÁ®;ó¥ô¤Ë€g ËmçÔÈ‹ËfÅôê+c$¸½ø:ȯSVgç÷»wÕl¯Q„#…cÀ×C~}üZ+³HýãâJ:f‘ºàå†Æ'<½hÌ"õoàWÚ4ò[×1³¹¥v('T?ezÕÓ-å²,ʨOŠÎ‡»VàzÈRƒg>1Ú?%lƒÜ–¾³ú âJ›Æup3óÙë¡üz%>ÕÜÏ NàÖ \Òw«£Éœ†ë3¢¦åCÆ”m¬Ze X^bVØÕ²N;©²ûF‡Íb°«ž‚…QÒpþשqlZ¬*Ü…§§] kªïŸ˜t›r=ê$áYÈgÓ¯¤þ‡¸Ò¯¨ Ê+aS¤y"γè€ÿ.nRýöÏevÐ?ÛQŸ%V—5ÈZò>Û?%\9þ<°Ï’ú6q)zúÖþºYè^ ×ìlRÙA'|]dê@&L»*uƒFˆjjôÌw2Ç!2Lßwª´ÃŸÌyùSןªOBx'ä;•õÄ·o$÷rˆKY‹12KêîÞ9þ¦I]í~¹ c$mw?ð•_©Ìvû9‘×_ùõéïUÀÇ!?Ûxk´<'oÉ-iª'€„,µNÙFÏÄäãÀOBþd:¶úðS?ÛVùöpz=Pr¸±ü4ðÏ ÿ™2³É½C\~ ü[ÈRsºâ†ûsàßAŽ?‡Û,œ þ¿þäø¯Ê g½=ë¨&x12Ù™ÛzZkE黇æ1&¤´õUŒúxèºW/—:ýµŽ8G–=Óí ¬—ý"KÒ¨9,„ÍxpÂC~±t!ÌÁ·×õ›ƒtVü9:îûü9ÿœøþ7ôô?tžý«dŽ÷Þõ(Ð<ãhzÄd¤2 ¡EýùÐÒý±G 3Ñ6F¡Yfjc¸zMÙLbu!µ1+{E6 j¾©PTq&ÔS¿o#”ì••ÕáÜû6}1Þ v·f×Íìz(ù^4©Û<‰zXh˜QÂN/–@§¨ÌN ý{}…î­2–9 tÙuŠ]N:–1€ŠÄm™uX’à÷×Ç×$ºíívÓ±Y ø$ˆ¾Ašd3¾íțœ)wT6=z#ð)<ÃÛ•õ’Ýdó£wpÄŸ’!®&?RB£ñxdþ¨Tb¤„’pb¤ÎܨEãÃ=«B‰Î>’Ó:Cö¡Æ-ùo{Y°¤ÃO/d2=˜ðÄåy¼¿›·ðXò¸^ˆjÆ’išv³¿<`Â|°[X} =·ý·›cPðþ’ÁgÙ þ„‡ ʤ…š×?Ý®›Ó6SDþfàÝïž Í¾‡#~ ñøÍ”2 ›©VÖ÷M+ÜV)ã%ÔV©5ÊLmÕônŸUÉ4n°’Õ:Mƒ¥ÎAùo?«åýd¿ƒŽQ5ý÷Ž&îxë²ÀÊz¯´R¬N¼Õê;7™Öˆá¸Fg¸&D5Ì¡a Ã:-â2.ø¤²™v†¬°.PsãíZY¼#Â`î²@&Ì Ì/ìéì`Ò”Œô¹Ëmœk›%‘>·#¾A†¸’H¯†FÃHi¾n]™`¯†šh°Wh—™‚ýŒÎŸUáDÆûµNï¹)ÿíJ¾ƒ2aýmŒÊ¼ôäGoãN‡µšÁ̲7~2Çô†e£ëà±@&T]“ #¾Ç9ÞÇex« ®Jh4~ø??nh©èª„›ptUg˜™æÃøŠQé4ä5MuÌÊ\Ññ>9­3Ä{55‡ÿöÒàÕ–äâ;ñ”N‚ÒÉL2æù1óåí@&œùr•#^•!®&¤+¡Ñx+µþ|œlY 1áx®Î*3eË38~VE;“Ó:CìTã¢ü·È•ƒMWOÐBä[o ^¨ Í§ô³lzcíþέ1êöÛÀXî,Zú¶ßdEt®¬³ € ¡ôYÃPÛK¡–¾¥Œ!üƒÍã9u¿§×îÕöjÝød>éòêŸñwIç·+ gobpŽJšæúE&aÁorÌ¿)Ãü‚ãÀÌÅ<](PÂS8$§uóÚ$•N¿!¿dS®ÎYb5åê hrÁ\F“ãBª=OÒS£Ûó竧R`ÿaíÿ…µFÙÍ<ÙI”:—üòƒl'Q¾ üó@&œ¿àˆÿ… q5-‰ÉL¢(¡&ÜŒ¨³K¢“(INtØLNë C5nÊkò“(õ}M‚Ù”|0AΟ ëï æèõIsL»Œø»7zAÉß?£bè–&šo d ¢s¼•L͇÷r³ð¾…ææû9â÷ËWšÕÐP¿’I /Ѹ¬Ð(‰­dJ´d"ƒr‚Z§ÊŠ”ÿv±ÿBI}!RŒº;NƒYENêÉFÎ!`- gGäáˆÈW9•ÐˆŽœdZ©È©„—päTg” ˆœÓ¸}V%9“Ó:CäTã ʽØÅ“y!ȼ0“¹ú m3áÖ*'Ï™}=ç>­w£êÚŒô<ðÝL8;é{8âï‘!®&*¡Ñ0jýùé .^•°¯êL5Sx•©"Y•WtÐMNë AW3óßö6CPù¦Ïû{àý½Ø¼…ßÛ¯ QÍ›b=Øulºmr=:R(Ø/Öž ßª„={2iÝä^[&Þ½ÀÝÕìê’pF„÷pÄ÷Èß„)£¡îµee”„Ú)µöPþÚrÒ…Ò¸1JVë4‘:·ä¿]K/\q-Ny¬¾½w^.t†ï‡|¿²ª³rÒ Æ}Òæ¿Ï@–: +"²DìÚAêŽASЉ vb—°ÕYàK ¿$›fî l3÷Ràk ¿f¶4s¿Àÿâjš9%4¢š¹ƒRÍœJÂÍœ:{ÌØÌE9{V…ÝÌ%§u†fN[òßn§Ã0XK‡ƒ0J¶E§aдì†î¸¶µ‰}7lvºÔ½ŠeÛ¿ü—!YYº„hõµ1ž½R-Þoòï§Óâ}ø=Èñ{¢+Ú;4]0-»bÒÁ1¬õ}àßB–;oº‘µ–Ö YJY쟀ÏA~.‹ý]€ÂH&Œi±«Ú;°ÇýøѾ’&Ë¡ož»* ™lQ`2Ÿ¢Œ½rë€×2a öÊ­^È„1íµ §•uºþ^áÉC¦¥rt«hú õlÞ‚—’±hÐ䜡̢-dQK–v +|™eZK«LÓ’¯²±Ç¤Ã†=›5‡“j¦98é\'£løg‡‘ñýCFj•`S~Ë0Jþo Z}ýûÕ2ÉùÝVí ÖªúG¹KøÆ#ÀŸ2¡*ßèé~x›„o4ÏÎ dÂ4|ã¿ v~ Æô|pàOàSòÿ4¿QÓ5„ÇŸ‰å`W Æd+<þ¼#0zÕŒ?¸3°ô²kk&‹þxDyÌ?óŒÛÌÆnàv‚'ar!“^yŒu|D¾ عo6t͉ð^Žø^âñ»æÊh(^ǧŒ—Pÿ\­Q’YÇ—tÉ4î¤'«ušNº:å¿=ÄÒ ÿo¾ò;”ÙgN¡§[Æ2ï> ùét,óNà3Ÿ‰m™nÚÚÝtú‚Cȃ±%_Q/—’ÌnQÄöYàBþCeæ[\6+¦§±È`VtÏàöÀŸBþ©ÂøéÞU³½(Sþð!ÿclS^æ§ó~_=ØW¢8~|òsÒ¬ânìµ(hˆOžc&æ6&ð?cIæ¥þ˜á:ôÖ)ÉK“Ýá‹øjoM†·’´T èwÈÇ-.“œªa'šœ*4M˜œ6G8ÏÄ:‘QùD½Î=CÍÌÊn‘©s‚Z§OU"þ[ç‚΃¿#XuˆôzbÓž– âée# ÓpÕÓ¡ðà÷1ì <÷Gš{+ð]L˜B2Gg¡øøî@ÎÅ_ZºP3h }ñy¢ñàû™0£¦ÿŠ ˜Ðºåú©‘# ûêö™dðkÀïrNxF2£àûïïËðV“(¡Ñø¼¬0˜`z©T@ IáT@…fJÖ‘ŒŠiº\eÚšš•£s‚ä´Î¨©Tü·â§•ó<þ<þ@Y,è/10ËnÍáTÇ. š©á£]¨p!â’ŒníqéÐ2ßâŠY*Ë5MÛgá@P-–uWxXn¬D¸òre ÁÜ6–е‰ærÄe p=äõÉçr¤n° r[l3í ã`&JêYÆîR‚n±Zd…[Š Úå²=Jÿ¢Ìݶh–~—¨£ó À‡!?û æ0G$ÒO"œyŽ´WEµtb£0­Vq)j)»&®µp½ZÉ4h©E±\+ nüï-½<æšnA‚ü¥ÀÝÕ½±0·ßôŒJ„ÚàÈ{Òé}¯ô]{/Üyo²®}T‚V+‡j]»ý‚OÓ })p+ä­É;õ^82á6ÈÛÒwjR¿C\é;õ pä’uêÈ5óÓÐjå0§¾ w%h_ LÑ©o€#ß­SßG13§¾Ž|c¢N=ÿèAZ6fKk^ù2e®½œ\Û§E}4ت߈_'ÌCÎ'ïÇ7Âw Û!·§ïǤþ:q¥ïÇûà»ûõãé–XOǬx)äK•9ñ*µmÚO+‡Œ ÏTªQ´õä}¸oìx™¬-Åœ.µO<–P*…&¢—7CÞœ¼K€n¼%}—&õ[9Ä•¾Kß7¾)Q—žÃ‚Ÿ±Và"È‹”9ôö²=ÄBqYa}CÛÑL«Äþé/¥ –¿{Ò‰l\oQÔɉüàAÈ“wò›àØ„‡ JßÉIýÍâJßɱ&êäs§}aj­Àøq»e¥Kã¼áD”.®¼FÚ|½áDä×; gÆtGÚo8áNŽx§ ñøËH”ÑPü†“2^µF¬Qk”dÞpJºd/ÉHVë4K2Ô9(ÿíõZN†d©A°ÎrÒÁ1_žð½ïM>' u-Àû ÇßÑ]8' õ÷sˆ+ýœà*ar9ÁB¿¦Yl= ½VàRÈK¥#ͼ)Câï“eÀ« «ÛÑ#ÞûAÄi=°¹ 0úD¾D W» wÅvçZÞ,…u·C–Ÿ˜¹ß ¢Û¼²pìl˜Í%»&˜øÞÇñ¾O†wüdNDÞ RÆN(¥Skš$ß RÏ”¿Kþ½ ¤íÖ8áLVë4 §ºJÄÛÜ.šGò<î‡,•I‰å‘Üx’¿-jK€i瑤þAq¥ŸGÞÔ%Õæ‘Ó‡ø’í5ZŸM4Zêç4×®š^*™tž^®o7Õå2 ÷…ˆååÀnÈÝÉûðÍð[ÂÈ=éû0©ïåWÚ4n׆¨fI/vÿö(p5Ú­jRôh-½÷XuèÔÅRp”¢D‡äVp½E—“.¾Æ³pD/ʳ¢¶—À¾¦ú¾+Ê:ba;©Û Ü Yj~xÒ^ ƒ5«H5]ø"r“•Ã¼~?Ü4л~pX©/ W)RßÌ!.I×ÌÇ¥s»æsˆ+v/UÓî¥ó;ÙÜ».€,÷²L£z«nïyâ·¸ ò¦äë2©[ÌC–Z“7i@3Ïm'ÙÞ“Wè½ÔqécXˆh;ð8äãÒ„Ó?†…xŸ>ù!Qþ ž""ÂsÄ–!TA uÇ°(£$4” Ö3Í Ã’t¡4î§'«uš~º:·ä¿]} ‹Ìf<ÉBÎæ€F¹³=ˆ÷yà+ ¿b¶ÄÎWrÄ_)C\MìTBCÝÙÊ( ÇNuö˜1vŠží‘t¡DÇÎä´Î;Õ¸%ÿí^¿ÛÏòNÿà?Géÿ­’AãÓ®––îf„Ïð5È_SVµVMéfx£vÁ5KFIª£ñ;À¿†ü×ét4¾ü1äÇ6òÕ]‹Ÿ˜›È9¹ÁUú6“®E®xi Ίæ1·˜#¾X†¸’æQ ¥] 5”D›G…öH¢k‘h¡D6 j¾yTä–ü·«µ’98h8“ûƒŽ]ÑbÔßv0lŸ]ý :“ÇÇÍœ~;$«À¹…#¾E†¸šÀ©„†Ò~…JÂS=’èW$Z(Ñ39­3N5nÉ{š6Þ1L:‡…PÇrÎñ¾†éi£v­\¢£*¶chzÕóÓÁIYAgDw¹^HÞ´Ú‹¶åš®Ç~bLËÞ¨!Õ ©?ð;ðÀï˜e ì;ÏrNx+û¬âð³ñgeˆ«‰ÃJh¨M`•PŽÃêì‘H›d¡DÇáä´Î‡Õ¸åwôcnŒŠúAPùà,ËT?üT ÎŽùiŽø§eˆ«‰Jh¨ÍT•PŽêì‘H¦šd¡DGÈä´Î!Õ¸%ÿíšö‚vÈ´ôry¬C³ù³ ]Cø@Vžâ÷AñûÊjÎò)ÜtRh[Tõžfl;÷?€? dBEœnl›6DöñŸ™0¦ù6vPO#Ø  ¨»†²AîÜ?ؼ" gS¡ù*àú@&œ-`sG¼M†¸’P ¥}5”D[@…öH¢h¡D¶€ j¾Tä–ü·k¦®Ÿ)û¯TK®ž©SÜ Š{gWß¡ùà-L8;"ç­ñ[eˆ«‰œJh(í;¨¡$9ÕÙ#‰¾C¢…9“Ó:CäTã–ü·7t„™g8–íP— §Ñú˶:'¬¡}g€ˆWâ!^û!„_]8? QÍ ²¯.Ü„ê_]P¹¦ˆ.¶CnO¾ßEꯃKÝ{¹ÎrÑ«Q÷Û²°.ب=é€<78£Þ/£7Î*UÖ5óìú_ ØÞ°p• ‡ºøRÈ/M¿J…ã…¨¤Jäšð¾^½ØPT®ßÉp†·ÿò¿NxÆ€N›æ°¿½W/—:ý}ƒN±c éN‰Â?1é´×ÛTsÚ…ƒ/xpò€Â®¬^ó†m'"ÐPí½§)ÓðKê›9Œ~¯ŠK‡¶ý¹”C\1Kå8 ¿hê;´› hî Ú1£æX,ßaëèÐÞÕܵŽ )Ÿ”4Á»&& [\¹W¹Å„¶ÃAîA©È%#”µÓƒÜ鎇í²=4&Á÷à9Èç&%ãŽ÷¡f¾ò 3á¤ÿ<ðE_¤Ì\Í[·Kðy9ð_¡Ðv¹¡öÅÀWBŽ?Tµ$¿µ½CëÙº¹³³gÛN©ªô*à›!¿Y™mÚÃæµd›Ôœvõtzº{¶u*œªT 9 ݽ…îîÍ‚ -Ñ} øuÈ_WhÂÈPûàoBþÍôÛRÿ q¥MãþÀâuTÓêÚ¬}¹ÕÖ-Ë,Q s¸ ÝYÐö±îíFí„cžÖ˦e³ÏOЇÔøtogÏ>‹Ð+ÛŽîÙÎØxÇ_·Â‘戻p…yJhC¶•U˜%Øãù {V=<ÚZˆÜðe_–|CCêªÀ—C~y éïKF؆óI[$輎C\I·3¤îUÀ×C~½‚vf3kgz·líììݺYªÚ<|äw(3M¾Q;Ó³}{WÏö-ÝÛ·oÙÚ½½{ûÎ-[z›bû^à· +ùf†Ô½ømÈßN?¾“úïpˆ+m¯£šf†º1ÜàQ‡voЕéf­Éàx?ÚLŸÆ:ƒ“²ýaíØøF€/Ъzñ´>d׉~< ¡únÌ:®sœëŽ·½QÝÝ»¼Ž@xò™ä›Rw8y,ƒ¦…ôŸžƒ,Õ…k܇ټM‚Ï£ÀÇ ?–|ÛBê^|d©câvÓ~ÛÒÓÙ¹e‡T%z9ðqÈ+3̵–Û6oï:庅‘îÍÛ ¦pç…¨¾øYÈŸM¾U!uO?ùsé‡sRÿyq)zúKúÙ=†C/Tº ”ßØØßi+ÃBRßÌ!.I§]— U·r(}¼yÜ]ªOÂ$„s Ëm¤2iØbócHâᓸp9äå «-ëùŽPÛ \YjÝ}„Úˆ%2¤®xd¹sTøo¯ö{åþ¡àÆÃúåá  2ñZ ì…Ü«ÜU8ºuZÒWn‚|(_Ù ¼²ÔQ†â¾²x äø+ µq_aFЊ¶ãeÝ‹å1·‡!«÷Ï1+ƒfYt­2±ª_Yj°^ÜclàyÈçÓñø"ÈrSü·ëêCFðçšÈÔQ¶KRóbàSŸRî0s]K‚Øû€üt|åW„,õ´¸¯¼ø!ÈŠí+;øu–þ rºYîtõAC»CË3·1´’£Ó® ÷oºí2/Žë ùÇ꣎k”+¬ød¢Î¿ÿò¤ãIÿüOÈÿ™Ž'ýøsÈ?íI+ü¨Ã €]|;¸Â‹'ˆÔ˜»" •É‚~×0èÞˆôŸ2í4eÚ)"õÍÆë­¼P:‘kÓuv]Â!®˜År`Æ ZQ/Ó:NyÊöæ˜îi–ã0çqýãg:nÕög¨‚Á$ŒèŽé¯÷~’•ð䱟䮒îi{:5Ã¥ÇÉcMt_Û±cm,Rš}g z‡fõ˜} Eú Ê>襘ÀþZïcÿ)”lÇò§ñ„Ÿ«ˆg!äV'帑HŽÊú[5×sü¶mÂûNZÞ? ü=^Wp ­Ú9þ1^Þ wfʾçú/šU‡uñ’.㩹 ĘO¸Ögî»®k<’ïîèé(Ö7Ü×ÓÝ#N²b„k!¯Mòá*+Ñ€£^­–ÇòéŽz>h×fŒÄ¥ú‚û¯¡ßH FfšÇ~ÈÍÕ²íÕŸÌbÆv¬Êò›ñ®™IvvhcÌûŠd¨vqæ6Øn†Èë\}„Œ“@;XIBu±o£>ÀòO#?Üǘ_S¯“ZÙëk+ÙtRžÙG@p#äÊÈŽdÃcÍã’u@ÐQJV»Œ>k ~tésàGþ²fœkÚñºtòÓlëò*Õ®cì?•û{7»Ž ÔÌr©w`GO©Çزcû–î.,ŒìªèVå‹ay¾ê98lÕË“išCOzuÔj Ï.Ðn Q.±ÈŠ w>ðRÈÜËoaa7ýsðÙÜ)ñî‡:ñÂë¼ç&×ZîËùSêÏA«hÓÐíx1. fþƒïûãsühàoµIÎnê5ÿΣÇo½¯è…¾ãÿÓÿ¡ÖÉÊv Û#(ͺM.™ü‹× üâDg™âúó™ëÓLÚ4·\ð{÷z¥ÑŒ×.ŽÕ4!þWJña°Ž¸$h(¬ÔP-.†,U6 µÎë×˦ިÝnFA475l#Ò²Is½j5l#bÚdÓÛ1O»‰¥ÞÁÙ7÷E–ØÚí´¹Ë!ÿyAÒs`'Âä‚B›y¦WnT¸ÅvM]»Ò·©ïæ—¤ÍæÆ¥Ó‚šâbÙ4q›(zº¾/-B<É­U*º3æwæèMƒ‘ÀŸ}? ò'Î ú»7/œž 3†Ëbïûp̓ýæ`¸#åqãLÕyÑ­•=·Ï)u¸ž>dô9ífóй#ûNÜrxß}ÇNÞ}üà›î .ïñ1·0dx†5’o›ôu[ûn­þÑt·ã^sP˯·Î‡u'Ï×Þ>ågÚÂEÞÅ’U8å–Œ²9â,Ã벪Öhzçô37na©Ì™ÎJ¥ÜY¤çc7¶íÖîd?å÷ÕÇ\Ϩ¨±Ë³ÎV1ü+ÿoê÷w„¯Šôµá{'¤jùDéçÚµµ)̃B`ä7õ÷û{|î¡CaªÞ^zCý°~FëÓα«5o—vnж„::-c´XaÊéã;Ùgì«B¡‹ýH¢‹gLwµuœ?¿{OT@Ên83ßt?á‰÷Öäü&ö!¤9*ÏèÎOz î·ûÛ6uL0Q{æ ?Ô~þ|TrºmLÉÑï!Ežî˜²é¢þ²­—P\¢¦GÕ^¦ÄºÄ±/ɰ盳9˜}d¶¹•`N¤¬kØ÷T‰Ö†Ý±E{Xëa öN×ê|F>ËÈ“|”FDâµÖ<µÒø¥È¶‹úƒs¸ªTÔ¹B®iJ¯äb(˜0—dèh‰=‰A]ñ⊙VÝ€^R¸‰Ö uh&-=êÐJ¦¿É_Ô¡!é II“„Ÿ‚ÛXÕ_ÞŸ 0æSܦá"V!Šn©Çÿ¯Oœ>d—C¬ýOé‘0ÀþYÖ:üÿ Oü‰â)|o‹ýDGÃ'ÒK¥¾ž®^FÜîk³lË`mGɱ«ÝÝ}‡öÝ~ü`‡6Bö ÿ¡W«,Qì;qìnúFg ™Nû ?U+ž„ð(ä£ »T5—%t^Nº.‰âWþKPáCŒWùŒKgQã+f©H¼jFX¯š –KT¦7ÁH‚\+ð2È—ÉkjÔ~D§éYG/z”wyŽ¿dÌ_0X4Ç.dßÛ‰½PtM'ô_ÝZµZ6R°5¨Äã_| òcÒ¶™b“› O7…÷V!|-ð ß ,ŽÌïwïª5Þ[”ðeÀ'!?»Ê¬­oÐʲ욿Ck8·OJÎ…üÑXkd¹yÁRc n_~òW•.òÂO¿ùk ÕF¼ã@øëÀ¯CþzloY7¾øÃßñÂv]“öÿµýtØ-H˜ä7?‚ü#…eczF%Bm ð¯!ÿuúM2á9Ä•~È͘$Ø6ë¦/ÌiûyKkÓ„7/›¿É–Ë0°ZßÇE‚]x­GIóÍÁ·ÝÇùœÛÐ[?Ò§µWë÷L–k½¡#ôžéx¤iÇÇè9Ö·@Þ"Óƒ2>6¯¿r*¹S~ˆïVŽ÷VÞuoin’<åG†Mßâþü¸¡…ûQÆ­±Öˆa/µ†ÉÍføŠQé4ä5MuÌÊ\"JVë4©«9ü·×jžDÁ c&—¹Ì±zDS"Ô \Yj-lCB{&§.CŽ]«ŽŸôîØ£šg{´ÙL~Ðt\/¸¡‹}.ìéôK€‡!NÞӗ» oƒÁº°§“úÛ9Ä•¾§Ã šÂ¬))Oïõô+àÝW$âé}žî´£j W¿î}|n‰¬Ï‰¹::'>Þ9¾ »:©?Â!®ô]ýJ¸÷•Éºúá ~%ÜûÊD\½k²«[µÊËRhgàÃò&Æraç¾Mع/yç¾M¸òÞô›ÔßÀ!®ô{zYÂÎ-Ç—Á¡—%âÜÝ3;7¾…½{}UºþÍ_Ÿ13ÿ^ Ÿ^™° Çï•ð镉ø÷æÿæCvL_ §^ O["ëib¾N½^բij„œÔàWú~5œúêD¼…¶-‘`Ö ¼´©¾‚"¿q²‡»žn•t§¤•ŒÓû]i<¿÷…|4yw¿.Nx'ä;ÓwwR‡¸Òw÷UpñUI»»p@__•ˆ»ï» wWÞWá¾Up¼ËdOÌßWÁÇWÁÉZ”8š°¿“úcâJßß¹]ú“\¨uFÔÛWÃà ã/ÔšÌgëdoç§ò±§‰?ˆHÿ`Þm8†ë‰z8Q_ ÜY*“óðÕðjÂãgÂNêoâWú¾^½&Y¯ˆzøxõšD<ü ðp:ϸlTàæ }^à ÙAÄ÷“|ÑjÀ-dô:\`ÒÕ` \ŸpòpúÕ€Ô›âJ¿¬…ë¯M¶8¢Õ`-\m"Õ sr5pôÑ`?²r°UÑ6MV+,Oس×6oƒ² ò®ä={-¼™p7äÝé{6©ßÃ!®ô={¼y]²ží‰zö:xóºD<{ÃÌ#è¢þ¼>LØ ¹;y^&ìÜ“¾?“ú^q¥ïÏ|XKÔŸç¸Â/OhpbBõCŠ×\@TÔ£‰é`/d)›Šy´/&Ü ysúMê·pˆ+}^/^Ÿ¨G7[¢½NL˜B„výÃ뺸õ†¢þLD»›R‹ÐëáÄFhRßËafº >Ü–¨?·ÐÖ¸ÌZê x²4£œcDÇÌmËÓM+ÓK£ìú[ÜùJ­dŠÇô ¸p7d©îœ˜ko€;î¿û&ìÚ¤¾C\é»ö5pçkuíyÁi ÜZKšê›Æ)rîWÔ;_¶‡Ì"˜G[,\;f±=ôøI[¾ÏAC…p{ö©îiî°]+—4Ó*–k%ƒ„`ÓðñæÂ1¼šc±¯‚ wŠ­6TKoü–ä«Í5¨*„o…üÖô« ©ÿ%q¥_m®EU¹6Ñj3G/•$ˆµãwVçL"´Æ5 eÛá_‹jMx=äë¥Ë0×Ôø=o¹íð‰Ó`d•ïxDl‡Oêz{!ïU¨6b;|R×¼ò ±«U«t#7o…|kòAŽÔµC–zA3^#õ·qˆ+ý ·1¨N>&9ÂlKðjÆ¿H4ÆÅÅÀë _w‘Ä8â´¸²T*,ãH]°²ÊÐãHÝõÀ½¥B«¢G(cûß~òwÒ±ý×ß…üÝض?Ò^Ðè–¦—]›L«kÅaÝÑ‹íÜW_uÔ`ÑÑè°YæV—:vEƸ¿`nu f\±s€™0ãæÖ72aLã^B уˆä½œëM>Á hZ¼©‘ËàM R¿eÃ+ýãºÀ¯}L.ÁXȪqÁbmµ+A¯¸´©¾º¢žÉSõòñ˜Ä¯÷ ƒæSZš²a ±¯J9½ËÚ²ñlÄ«,ÚÝ:¨Õ¬z³Ö1aÑ£æ´"¾Zuì*ûmϘ¬c`,lËD+Ñ2àG!4ù u*á¯Cþõô+©ÿ‡¸=}kýu†º¡Þ\Ä•v\ ".ɪ|o\:¨®!âŠY*óYˆ;!žáwÂ,„ó!Ï•¨›¥'NWWB^©°âFÌÒ“ºÅÀ«!_|"BêWA^Û-~6aKÌŽ9Àb©Î¢x)ˆ°†7æï=8ÈÂûøÖÿvÍ+Ú3;·æ„kÚ‹,]v˨y¬B³Ÿ:»ÇÓ;uÖXŒ¹¦[ðЭU*º3DÞ”¥Cø3öS¶Ëý²îÔ@P—¶<¾C,˜š·C3t–ñØ¡Ãß´À­ÚVÉÓŠåYþÊû±‚¬ÿ¯0wI ç¤6ôûùž]˜fú;2&6KW2a .˜[\È9© 7¡îwAO?íûëšVÐW¥u«D†w=§V¤,`J_–^°ð»9,epƒ¤¢ vé¡®V™0íƨ¸IÕ´‰?aÑÿ«ÆÿÍÚ¿ö°êm×XÿÐ4Ê%Ú²¬Æ*‘îúi×°¡—Y²F_1Jþp’K[ ·=HÌ‚*æryjl‰ÆìAÏ`…uDmÏ®–ü€i±*ÏþÚµƒhÁ F1Ë¡’úQ€ý"ÕÜQ›ý <Õjÿ]`7 1Æ™*#àâ½éø[õ袵» LøÈ?‘.ì‹g­=Ïßÿò‹>Ý‘ò„ñ}Žãýœ ïørÊh$°ÖB·ÆZ#&äÔ&¹µêyòwI¬µHÚ\'ä’Õ:Í„œºšÃ{y0!ÇšŽ ‰Ú%Ú¨r´rK™0ýQ£îÀ«|LnÔh~¹èÿO‚Ü¥À+ _!]yŽÅÍ„ˆÆrqÅ4Ú%Úøÿ õÀ`„—@–ï 4EÖi/|§ŠöEÀ%ãûpN¦.ãWL…0e*ëžq†¥GfÑ¥Ôib"Å>>Nc “DND„/^ ùJ%9Q ã,•ÍõN¢¼—q´—ÉОñw- ²Òa·ªëÎuzŒŠ|ñÆæÙ°xçúÎÀ•ïär]2‰¿`­¬„…2*µvÍÍàz2Éx²ž·È÷¼FÅ­î¾nx‡›Ðþÿ©ŸñwI5ÉÂ4™éìW¬®à—_)&/Ë+!Ç9¼¤>Ý#SW¯|MªÅq-09ŸO´sˆkvär×;!wÎŽ\®ÀÑ.ÈÐN)—‹Í3³\NI ·±êìšT.—œç)Éåt¸dr¹çƒŸñwI5É )ÕìV¬®à ãWŠÉK°r¯Â\®W¦867Õ·…ñå¾T‹c/pä}ÙøÄ~qÍŽ\îðäC³#—»™£}³ í”r¹Ø<3Ëå””°p«Î®IårÉyž’\.A‡K&—{>ø—Tó‘\!ÌRÍnÅê þæñ+Åäåàmão¹GìÈN²Þ¼²Ôû{Ó–Çœþ¢¡ü>à3ØÅžÔ?È¡š]ìiæ;8QCx´´×¿'Àôg¾I뢦ñsi2šùîÅ}!âºø3l"|9pÍ|Ýeí‹uæ[ ÏL2le%,”ù¨µkv²ž;ÃNØáÔgØÏ?ãï’j>’+„iÝÙ¯X]Á§?óMZ—W6©šù–*„«9Ä%Y“+C³nFð‰|…‰ˆ¬¶AnSæ•‘¯0‘ºUÀ 7dcŽk8Ä•¢O†çFd¸ü€Ô·sˆkv$Ô×gÑò¢[àh«V›PÇæ™YB­¤„…uvM*¡NÎó”$Ô :\2 õóÁÏø»¤šä a†¼vv+VWð…¦´—Ö®¦ñsm!gQ›9Ä¥*¡J¨wwCVy:æ4 õàÈ NÇ”1G‡¸RôɽÀ ×€úýâš õࡦY³„èÞÌѾX×€(á™YB­¤„…uvM*¡NÎó”$Ô :\2 õóÁÏø»¤šä a†¼vv+VWðé¯!­·Õ­‘*„Û9Ä¥(¡žcõHeÔÇwC¾;ŒúðÈ÷dc{9Ä¥Ø)#âÒû€.Ä!õr¨z!ŽðR÷Íkû˜þBÒº¸¤)³…8›q_ˆ¸.þn¾8‹âÝeí‹u!Žž™ts”•°Pú©Ö®Its’õ¼ØÝœ„N}7çùâgü]RÍGr…0Mocö+VWðé/Ä!­Ë+›2[ˆCê¯æPñBœ¢p/‡ˆ¬¶5¥¶‡Ô­f¸‡Ô_Ãaº qHëµÀ âúvqÍŽ„ú:à,ZˆCt íxéÉ&Ô±yf–P+)aáDG]“J¨“ó<% u‚—LBý|ð3þ.©æ#¹B˜!¯ÝŠÕ|¡)í…8¤µ«i|LWS& q67¾T%Ô%©„z0Å…8¤n 0Ã…8¤¾ÃtâÖ½À âúýâš õࡦY³‡èÞÌѾXâ(á™YB­¤„…uvM*¡NÎó”$Ô :\2 õóÁÏø»¤šä a†¼vv+VWðé/Ä!­·3\ˆCêoçPõBœ^©Œú80Å…8¤î𞦠qª]@^P+ëNÍÝdh¾²ÜÚ› ž ºü…ÔßÇ!®˜4jš6:l8Âg1n ÜÉÇ…ªë鉿ü7^ùòäý’Ôµ—6Å8ÛyâówÈØã à•å¦ÚCü"² ¸²Ô©õâöX\yMFöX \y:{ˆO-‘ÀM7¥c ˜‡Vm^‡¦„MÚÈòCt F§ˆÈVà6ÈÛÒ±Ip;äí±m2¨• ËöÏ 6´¢Q.kƒŽñHÍ°Š&;oŒBpZ©U« jZ%sÄ,Õô²« êå24jZþ)ÁUÝñÌ"5ÉZQ÷Œ!Ûk—µùàSŸR˜@‰¯d&&¿ |ä÷¥côwŸ†ütl£Ï•µÉ3À@þ@¦I-1ùð?‘ŽM>ü$äOƶI{p&°=ìü8¡îKý£ÃÛ…Oe&šŸþä?K?Þ½Ž¸bÒXÅ2á"—i‰ú÷6"\Yþtøf|Û!p’qxŠqîtõiªˆ÷j൯åOwL¨šß_9å&wd1ÞÈß(C|ÂàtC‘G+£Ñ0¾ÍíÏŸ>©X¥ˆA”ÆCyjí‘/ÆC{QΞU¡4>8Y­ÓŒë©sË ßǨ©×C¾^šËÅsØ;=Op?äýJBg²‡½ßï2¼ÕDN%48ì]7áªÎ0amŽpùÃÞÕóäï’8ì=isE÷ä´ÎÜÕÔþÛõÁaï.ëƒ[Ú€¡¹U£hšFI1u¿C#Î!•Up‰ac"r xòéä{~¤®,C.Ç6—ø0%é¯-È–:{ˆ‘pòH:ö°£G3²Çàä1uö6&"/¾òKÓ±ÇYࣟ«J ‡Ç€¯‚ü*u66&"¯>ùñtlòjàŸˆm“šî Õ*†å¹ZÞv4½ìŽ¥{æˆQëˆÓμø)ȟʺùð‹¿˜ŽÍ> üä/e×¾ ü ä¯d×¾ ümÈ¿Ž=¾ üÈ¿“‘=¾ü6äo+³‡Ì´1ù>ðŽA¾ü!äfØÐü!ðO ÿ‰B£ˆÏ‹“ ùÇéåO?ü“ØF96ÞÒ´ü±þÁšUôLÛ¢ÆÒØŸêëëøó—¶ãnÕ¶J4'Y¶Ùm§¢{ZI÷t×ð‚0ðߘÛÈ„Š <¿bènÍ1$Œœ»x( S0rnðæ@ÎÉ­ïã¿=W7²æÛµr)°-õ] O3©éeͳ5Û2hšLu‹Ò#û33£Ã˾©Ö<Öß`F/i¾«˜ì–±ªÿ÷ä Á¨îJxCîàW9§®Mli;v¬MÆÐ*æ¾È„i¸ZÅÜ·9'×ñßJµŠ94¹ï2¡2‹•³È€È„iXäwÈ„™Xäÿg ª«#7IY䯀?ä\:mbîO€? ä\ü6ñuZÞô4Ñ,ÛÓ£lŒè,rŽ›,¢a°¯FFº­8l»†ÕAÑÎo²¿o-] ®UÇG ÝZ¥¢;c~¬díîq#X!T²‹~˜Öý±XÂ;О6×™0†w4|yÂp‹z¹(έùQà+™P™›”Mët„Ú_ÈÍRƒÂÞÙ<|u ÆôÎã˾´ŠÍœ°dxºYvƒ¦Øð[b7lŠ‘£¹š>Âî¡‘ká5.ô¯~+›¥ZÀxk\¶~XG5k\jXãÂç³T°~ÙùU0ÌmŠ¶åš®ç—¬7jÓj"W«ŽæzµÒ«ÿÚ ^ôØŸÒ¾"«ÃìýjO_kù’1¨×ÊžféáJ½KXƒ¯ROð`Ÿ¡hÌ'./¾òK’¯U¤nøRÈRƒ¯Š`{;Ù¯ÄÂò˜6¢;&Õ“Év ։Ŷã£ÀOCþ´:;ú eìøEàW!5;þðk¿ÛŽ/îÐH_‰á¼¡·=w ZÖlÚÆËo3¬v›´äÝv‰z4VÃÃôNtáî=ü×ÌdBU©£Ù#á¹ÃÀ#L˜‚;änÞÈ„1ÝAj).Q8 <È„ Ò+c”€2aF9|8 ceËx÷MœÑ0eŒtè2¡"#µŽP:ÐwâØÝeLuøX ¦a*ø²@&ŒiªRG0TäMJøThЮ9)çB¹—ÿ& ³Î…rÿü—@&LÃèÿ ø¯L8kr¡Ü¿Ø|} 7Ë-wTš 5÷·2a vlînäæø/ÝÖ8šÁ²aj׶Í;€2¡"ÛÎGë¾øztÊ_ŸŽu>È„1­kDfºz¤mÃW8Ʊ%¡2ŠÔ «³ûÀ dBU©ñ—1úÏÏróséýHk’I&Œiô9â/( ̙ȄiÞì ìYG5ƒ7[1xúlÝñƒÞX8a5¬[Còë3w.!÷ž•"§^È8|º¢žM|öo‚|SòžùIB>¿±Ÿ£ÌWj®GvCÒ«UÇ®2Ãz, 5¬!o¸ƒ¼jóÐóô‡ëh˜N¼†Ðƒ>ùñôkÈn¸VˆjjÈnÔãŒ^©ÒÈÇ€Q¶G5³\f…ìèx5¹æõ±ÎpxY¸÷€ôž‰£Èôc”»æhëSZtÂ$õÍâ’ KâÒÙK¥Æ!®˜¥²š9Ô>Ì,8”"ŒšÞ°f°ÿ°ÞŸ Ã`+ÂÕ¥öÃÈè¥P⽸òFQþtGÚ/…áMñM2Äý+Ö«MÊh¨{)T¥ÆZ#ÞhRkå/…&](ßJVë4ï ©sKþ[ñ…<AEÐ |] *²À¼þ½\kd‚½ ù9h†Ã社™C\’ub^\:ûصC\1Ke¥¦i÷ÚåÁ!ùà=¦Qöôs›¼ ½ý0áJÈ+•E£#7V OgÕ¤“¹ø)£èlgH‚äzàvÈR ["<Ú¨èf9BïÕÀwĶøéß Üy—2#­ö¼ª»««ktt´ `¬ˆ„q?êáÃV˜0Öœ(Síž„|2¶©$J (Ì\õš7l;†jï¦LÃ/©oæ0^ø]— Š\Ê!®˜¥rœ…_.êvh÷´|owOw{A;`[¥ZÑ_,E•©Sg)À˜ìv{ld4Á;‡¬nyùºÃvÍ¡Ü…¥!ÇéEB×3‹ìŸÇíAoT|~:²Ï@>£0)Œ!u'€cÇ2ˆß¤ÿ,ðäsÊlÕ¼y›ŸGAV¹¸|À.—"Ô¾ø2Èñ—/ÊonïÐz:;·ìªD/>ùqe†¹6lXK¶I iWOw¡gǶÍÛ»N¹na¤{ó¶‚Ù½Y°y%ªo~ògÚnÄp"Ô>üäϥߺúÏsˆKÑÓ_ÒÏî1Ã*†Ë覴%f5eÚÂ’úf3naéð°VqÅͼX +H䘄pd¹%ªê_Y¿÷.ƒ¼La­xeý؃p9äå ÕF ƺà È+b»Äyÿ…jÛZÈ7‘Ñì×pFŒ’f ²nKp ÷Š¥«åinâÞC.­e$Á_ïK•¾}|3׬˜tDŠi1®p7€ý*à!¿1ýXq+êAˆjB–Då< 凭œ <»ào«+Áî2à ÈR+V=£J†ƒ´˜tõ<Œ*I¸²Ü˜ÿí®ÕÓcˆI5)8…gúçÂu‹x_ <YªëÓPë‚~×0ô²kG´uä¹·)­NµšÔ7s/X}¡t"ÇüéèÌK8ijX´ 6Ð+¢,#õ0fóƒîÂ4Àb„d-6ÍŒZa 8$LçP \9þÂêDÇ/¥=¬À|1m†úh›¬M7û¼ªívhL°Œ¡­höýOJLð?¡òîÓµ ?ÚQ<á È'b?ÚÂðÑ„ùÜ „ !Ç„¯(wAwˆjâÇrª(ÆÏÑcUc D¸²T²8܃Ìhê\±C¥^Ü-¹q2r?פbrŸ¦I…©pµÂos¦î‘wCwˆj#yð€R)\°ƒôîÚ,î\<õO€Í5Éž«Æ#úÁ¡_©Gˆ؇ ;D5Vynü0¨jMªr㛧­@·£t¦Çìcz™ÐË}âÑ'û„]â5è$ž€0ì³Åßùîé*аîx=;wîìÐêobS¤5KìÛü]DH0Fhl’ª´ºG&ô¾ÏCȵޙU4ôŒ+Út‡x‘V´"¨•V´¦­hGnbWaµªBµÊ-1‰þÓ¡YLb—x+9á oˆ.5Q*½>ï^âM¢Å$‹„zõ³ÈVɯÂOcà ¥áâ@£§™.80{Y„®ÿ±%Áž0\"· šà0CqƒCCµ ûÃý"¥HÝ°Òx ªv( ÖÇÞaÏ7hs1ûÈls+Á¬HY)6Ö±‰­ ûe‹ö°æÃ2üÆdïtýÚ¨^hä³Ìa<ÉGiD$^sÍS3Æ/E¶]Ô_2ŸcE‘,䚦tL.†‚ óáqI†Ž–Ø#þÔ_Àá¤)%óªÃŽR8~N“¼4¿KS»4«ë›ûcÐþä•?qåOZùVâ£ÏÜÚ¯¦!ßû1n@'fAïÁ8:#M²Ë!Úþ§ôLRgÿ,ëtüæ€kxâÄ õÖÇaoýHÛ뤗J}=]½Œ¹Ý×fÙ–Áš’cW»»ûí»ýøÁÿ{Úڼ슢·‚1!wZ˜²ÞSÍe©[„?“®KâTýøÕüTíãUóûâÒYÔøŠY*KØÃXJØ` »`¹Dåt35<¹Vàe/“!×Ô¨ËûˆN»Ÿ;zÑóÏfqüN£ýKÆü%÷â´UxÀå¤'N²ä»ªn­Z-›F)8ÇRâñ¯>ù1iÛL±ÉMüžÑB¤^ |ä7(‹#óûÝ»j¶×(¾ ø$ä'cW™µÁhŠ%|#ð£?ËbêÞÖ"ü𫿪Ìp‘¯ƒ~ø5È_S¨6âuÂ_~ò×c{˺‰ŒVm×5i”Éö_· a’ßþò–镵-À¿†ü×é7É„?æWúmàâ Žù˜\ج›¼0íç-­MÞ@lþ&wM.Ãj}ó váµf%ͧnæÞÐzÏôF<Ò´#aôk[ o‘髦¼K'ñÝÊñÞ*ûî-ÍM’»t*£1ã̽»t*ãÖXkÄ—ZÃäf3|EȨt"v`Ž¬ŽY™«ñ.Éjf—Nu5‡ÿöÚp" ç›™ôÚ8ë•°>OÙô´¢Q.·‹&.<Õû!ߟ|âÂÏ7>ùôRÿ ‡¸ÒO\–õÌÇ—ÑÄ…ø´/¾Äe LGø|J\èyÖgSâB|·r¼3J\”ÑH qQÆM(qQk˜äõ<ù»$—¤ÍÕ8qIVë4‰‹ºšÃ»1:qqÌ¡aÉÌ…çúd©B,s!u-À!ÇO„3RßÏ!®ô3—àžÌ\Š¢™ ݃Y†‹0s¡{ŸO™ ݸ8›2ºg+Ç;£ÌE2eÜ„2µ†I.sQÏ“¿K"sIÚ\3—dµN“¹(S<óKÙ5äÂSMqÈ…njf8äB÷<ÈafC.—7É a‚‰KI4q!>­À‹/q!V‹Ï§Ä…žg-p6%.Äw+Ç;£ÄEeÜ„µ†I.qQÏ“¿K"qIÚ\—dµN“¸¨«9ü· ‡\‚Ä%Æ Ï5Å!R×ÌpÈ…Ô÷s˜ÙËÒ ¢ù˜\æ2ÇêM]ˆP+pd©µ° 활ºø;“Œï¥íØ£šg{z™¹ú é¸^pCû\ØÓé –C>œ¼§/…wÞù¶ô=ÔßÎ!®ô=nÐfMIyz¯¨§_ï¾"Oïðt×(ÚV)†«_÷¾>·DÖçÄ\o‡ßÇ„]ÔáWú®~%ÜûÊd]ýŒpP¿î}e"®Þ5ÙÕÇÏ— 6£›Ë…ûJ84aä¾äûJ84á^È{ÓwnR‡¸Òwîepèe ;·p_‡^–ˆswÏìÜ|øöîeðèep³%²n&æÝËàÑËàR-JÜJØ»IýâJß»—ã—'ëÝžpè^ÞT?S'ïî™ìÝ~J¢U ǵ­Î`4"Vð^—^?["ëgbî½.½>բį„Ý›ÔïãWúî½.½"a÷Þ+àÒ+qïÞ qïXá{|zm‰¬£‰ù7wä•ïT-JKØ¿Iý~q¥ïßWÁ§¯JÖ¿+Âá›;s) ÿ¦ý]'Flêk’£kUÛ´}Uºþ}|úªlýû*øtˆ™ù÷JøôÊ„ý[8~¯„O¯LÄ¿7Gø7²c:øJ8õJxÚYOsð•pê•ðª%ž%ìà¤þ‡¸Òwð«áÔW'êà-´=‰³Và¥Mõ-yø“=Üõt«¤;%­dŒ˜þÛïJãùÕ¸ð(ä£É»ûÕpqÂ;!ß™¾»“ú»8Ä•¾»¯‚‹¯JÚÝ…ú*¸øªDÜ}ß¹»Âð¾ ÷­‚ã]&ëxbþ¾ >¾ NÖ¢ÄÑ„ýÔãWúþ¾>¾:Qo>#êí«áá„ñjMæ³u²·óSùØÓÄD¤0ï6ÃõD=œ¨/î‡,•Iˆyøjx5áÈñ3a'õ7qˆ+}_¯^“¬‡WD=| ¼zM"þÀx8 ]6*pó†>ïùú©Ÿä‹Vn!£Èâ“®kàú„Çӯ¤ÞäWúÕ`-\m²ÕÀ­káúk©“«£û‘•ƒ ¬Š¶18h²Zayž½¶i|”]w%ïÙkáÍ„»!ïNß³Iýq¥ïÙëàÍë’õlOÔ³×Á›×%âÙfAõçuðaÂnÈÝÉûó:ø0aäžôý™Ô÷rˆ+}ÖàÃZ¢þ<Ç~yBƒªR¼æz ¢ML—{!KÙTÌ£5x1áfÈ›Ó÷hR¿…C\é{ôzxñúD=ºÙuèõpbÂ"´ëŸW×Å­7õg"ºØÝ”Z„^&Ì0B“ú^3‹Ðmðá¶Dý™Î–×%˜µÕ6ðdiF)8³H¯P/ÒòtÓò·öeN>~äûÉz“áv¿º3äoëjú€=bˆ:~î#¼òýÉ;~œ0Ã×:IýƒföZç8û†dŸ6 —`Ö TïøuÇçc:ci”]‹Û _©•Lñ˜¾÷î†,Õsí pgÂ=ãwß„]›Ô÷qˆ+}×¾î|M¢®=/8UA‚[+pIS}Ó8EÎý²ºsçËöYdóh‹…kÇ,¶‡?iË÷à9h¨nÏ>Õ=Ͷkå’6`h¦U,×JF‰Ž! GÓë9ût ø™pŸhÑJC%±ø&ÈoJ¾Ò\ƒŠBøfÈoN¿Òú·pˆ+ýJs-*ʵ‰Vš9z©$A¬¿«:g¡5®a(Û ÿZTjÂë!_/]†¹¦ÆoyËm†Oœvû «|Ã#b3|R× Ü y¯Bµ›á“ºà oˆ]­Z¥ƒñ¸x+ä[“r¤®x²Ôë™ñ‚©¿C\é¹Auò1Éñe[‚W+0þèE¢1Ž(.^ùº‹$ƧíÀ=¥a±Gêz€}U†ÖˆGê®î…,ZÅ8âqðÈ·$ãH] ðVÈR¡5^Œ#õ‡9Ä•~ŒÛT'ìýç´IpkÆïý$çˆâR`rá"‰sÄi7ðFÈ7&çHÝVà>È*—qGÄ9R×Üy†qŽxÞYê|±8GêZ€G I?Αú;8Ä•~œËÕÉÇ0éJ f­@õ˜×6Àd41eéëò¸p d©ùE1ŸÎà ·BÞš¾O“úmâJߧÛáÇíÉú4§*Á¬¨Þ§¯kèÓŒf­bu…gPJ9v;î#Ü ygòŽÝg&ÜYj=Y<Ç&õ»9Ä¥èé[ûëS t/‚ÿ^Ä•v\‡Š".É*u0.ëQwBijTæ³PsB<Çí€YÃS‹ç_$9.qº¸òÊäs\R·x5ä«“ÏqIÝà*È«b»ÅÏÆï N«0\MgÁµLîÞ˜¿ÇÊø™¿nƒC1TÔ-š ¢•æ5Ï(ùs¥:»ÇÓ;u¹Ç\Ó-øN8á8àšËnõìðÏØOÙ.÷˺Ã>«ÒLUy,\Ì4-Û¡zqX3°º}Êĺ?k5VõÿÕæ. äœÔ°[C¿_ž@å Q—¥À•œSéúÑ>˜[¼:sR®?q7ÂqôôÓ¾3™.³/sŸJÐ?§ãˆ™å]Ï©iQ‰… Fæ™âöÌ­ÞÈ„’OÐŒo;6]7\ÎŽ >íæÊÄû^à ™PŒ?Ý1esåùý•Snr»+a#®Ë¯g‡ÍM’»++£Ñ°>ÏíÏŸÞTY¥ÆZ#6UVk®aoè1‘ΞU¡4Þº8Y­Ól]¬Î-ùoW[»Ú cWh„“µ«ÔäDSRžÞ襟¨wÂÃBTÓ_ø ËŒ±LÅ8ã¯Øíð3 –úØ5Vp¦Q.Ñ«Ð5–`è®?J&7²=¿\ôÿ'AîR௮<ÇâfBDc9‡¸bímü‚„ºa0ÂK Ë“4EÖi/|W`ŠöEÀ%ãûpN¦.ãWL…0e*ëžq†¥GfÑ¥Ôib"Å>>Nc “DND„/^ ùJ%9Q ã,•ÍõN¢¼—q´—ÉОñw- ²Òa·ªëÎuzŒŠ|ñÆæÙ°xçúÎÀ•ïär]2‰¿`­¬„…2*µvÍÍàz2Éx²ž·È÷¼FÅ­î¾nx‡›Ðþÿ©ŸñwI5ÉÂ4™éìW¬®à—_)&/Ë+!KÍåLÊåÂ9º™â¸x äkR-ŽkyÈùl|¢C\³#—»Ø ¹svärŽvA†vJ¹\lž™årJJX¸Ugפr¹ä±ŸC\³#—;<ùÐìÈånæhß,C;¥\.6ÏÌr9%%,Üƪ³kR¹\rž§$—KÐá’Éåž~Æß%Õ|$W3¤T³[±º‚¿yüJ1y¹xäø[R,ÂÖ½²“¬·ï…|¯òò˜Ó_t"”ß|r»ã‘ú9T³;Í|ïF –öø÷˜þÌ7i]\Ò”ÙÌwî ×ÅŸaá˳hæ›è.ãh_¬3ßJxf’a++a¡ÌG­]“È°“õ¼Øv§>Ã~¾ø—Tó‘\!L“èÎ~Åê >ý™oÒº¸²IÕÌ·T!\Í!.ÉB˜\šu3‚OäÛDd=° r›2¯Œ|»“Ô­n€¼!s\Ã!®}òZ`†ËH};‡¸fGB}p-? ºŽ¶ÚI`µ ulž™%ÔJJX8ÑQgפêäù)… ”øJfbò«À÷A~_:FðiÈOÇ6ú\Y›<üädšÔ“?ùéØäƒÀOBþdl›´gÛ£ÁÎê^°ÔÙ5Ïn»ð©ÌDóSÀ?ƒügégÂ[£×WL«X&|¢Qä2-QÿÞ R„« ¯’&ØŒo;N2O1Ž<}Ú*â½x-äkEùÓSªæ÷WN¹ÉYL„7rÄ7ÊŸ08ÝÐAä‘ÅÊh4Œosûó§…O*VF)b¥ñPžZ{äÆ ¤ñÐ^”³gU(ÏNVë4ãzêÜr·ÁAÀ1jêõ¯—ærñöNÏÓÜy¿’ЙìaïÄ÷Çû€ o5‘S {WÆM8„ª3LB›#\Gþ°wõ<ù»${OÚ\ÑÁ=9­3w55‡ÿv}pØ»Ëúà–6`hnÕ(šƒ¦QÒFLÝïPĈ3EÈEe\bؘˆœž†|:ùž©+Ë˱Í%>LIú+@ ²¥ÎâÃÆD¤<’Ž=là(äÑŒìq8yL=ć‰ÈK€/…üÒtìqø(äGãçªRÃÆÄá1à« ¿JMć‰ÈëC~<›¼øä'bÛd£¦;CµŠay®–·M/{†céž9b”Ç:â´3o~ ò§²ng¾ü"ä/¦c³O¿ùKŵ/¿ù+Yǵoòo§c¯òïddo¿ ùÛÊì!3-BL¾üä¤cïù‡64üÈ¢Ð(âó"ÄäGÀCþq:FùSàO ÿ$¶QvŽ·4í¬°f=Ó¶¨…±4ö§ºÇú:þü¥í8†[µ­ÍIJØño¤_$‡ ¿2ܺb¼O §Cô^×{ìAn=p ç„»›tGúã\¹ï2¼•Œs©¡Ñ°¦¯àǹê6—ðRC2b%rÀK¡…fðjX92*¦Æ¯`LWE³²\äØW‚Z§ûRT›øo—³æÂÑÇhJ0´1Î}à&·l³‘w̯º[s ‰v=whrÎH¥]ÏÝ d˜†:Wo×5wØ®•KAsNÕ†§Ôô²æÙšm¾-™ ÃÓÍQzÔäë^8Æɾ©Ö<£¤ è.û¯Ÿ˜ì–±ªÿ÷%ÝÓ;‚9/Ý•ñ†!à_2¡"ohi;v¬MÆÂdåï™0 WøKàß2a¡Ü?È„Ê,rTÎ"ÿü?L˜†Eþø™0‹üð?™P]¹IÆ"ÍÍÀ¹L˜†E~µó™0¦E^§åMOcͲ=Í1ÊƈÎ"çè°É"æwŠad¤ÛŠÃ¶kXíÊ6ë 1d?ÞAr)¸RTŸrk•ŠîŒù±’uµŽÁ¢Ð’]ôôî÷¹‹Å½£y>ðLÃ;yÉ<Ã-ê墷wßÈ„ÊܤlZ§#Ô¾ øt 7K­ìöÎæ7Ÿ d˜Þy`¼S>h;ZÅfNX2<Ý,»ASlø-±6ÅtWE÷\Ma÷Pž&¼¬‘àYàßr³T oYã¶Àë¨fYãn,k4Îè•*Íäe{T3Ëåšë9:–k×\äF¬¾‡å/\ŽÛAšp7du{-,è‡4Ð|=´íPZtÂ$õÍâ’ŒMsãÒÙI¥Æ!®˜¥r9s¨}úF£¦'¼ôk Dx9d©µ2ZK¼—WA^ÝKw¤½:–¯æˆ¯–!ìK u«c•QŠ/i<Ò¥ÖÊWÇ&](‘’Õ:Í ’:·ä¿½Gc v0¹mè,Á.Ú–kºM*°öÖ`áÓp´e:½ôƆëOé,¼V«Ž]uLj Çß—*ÚåZÅr…[fþÙüˆ²B×?¢—kÊtgS= Ȳ]&õÍÆk—çÅ¥CB-äWÌRYÉÚå{íòàÎ|ëÓ({zùM^^ E¸òJeñyÅèÈÀ–ɱ¼½“ùø)£èlgH‚äzàvÈR¯0Fx´Qa©f„Þ«; ïˆm;ñA’>Ô.Â]w)3ÒºaÏ«º»ººFGG ÆŠhIˆäÀ‡!?¬°%©9Q¦Ú < ùdlSÍmŽ¼8y@a“¦×¼aÛ‰4T{÷6e~I}3‡ñÂtn`×¥âŠY*ÇYøå¢n‡voAË÷v÷t·´¶UªýFŸ*S§néå17xµðXЇ¢N8*šVÕ‹§õ!£  >Ø01áqÈÇÕÅ„ÃvÍaÄ)9NCx,‹)²·½Q=r j:²Ï@>£¬RDv>HÝ àä± â7é? <ùœ2[5oÞ&ÁçQàcShŽ»\ŠPûBàË ¿,¶9å7·wh=[vHU¢—‡ü¸2Ã\6¬%Û¤†´«§»Ð³cÛæí]§\·0Ò½y[ÁìÞ,ؼÕ·? ù³ m7b8jŸ~òçÒo]Hýç9Ä¥èé/ég÷ŽaF76ö·7Í°…%õÍfÜÂ2'õ÷A WÜÌ‹µ°‚DÀ$„s ωU™ÕMÀ}„Ë /SXk#&‹À„Ë!/W¨6b²ˆÔµW@^Û%ÎûsD:·ŽÓ—ohö€k8#FI3Y·%Øó‚Z°øÃÕò4Ö2q¡§K“$$ŒèŽ©S¥o_âš“ö£1-¦@|†ý*à!ËÍ\ƪœ7¡„¨&dIT΃P~0ÑÊ9ß³ 4m-Aî2àrÈ*«IDí<ˆyÕ¤U¶šˆÕ΃¨‘á–-Æô‰ j§Çú“*R¸ã“¿¸ ˜Íõgv]îcô+B–:#´¡Öý®aèe׎hóȃ)­Vµ›Ô7s/Xz¡t"WÎЦ­—pˆ+f±,Ý°a–ëcm¦0±[`£[‚Çô奱‰ígŽ«íédž^ðy屎¦ÖuhºÙçUm·C`‚e uhE³¯èRb}"ü ·‚ü­œîÿ Ú¤ÿQìcÿ) m·¬ôUu×3òÁèS‡6fèì¿®QícÚÖ.þ ‡Aþ°Ò¹còƒÐ,K_1ßv^,šó ñ½Ãö4îÖ},Úeÿ¾û¯§Nìïlko~¨Ûð „w@¾#öCµ0CS¹ê [ ·$¡"yîÕDJ!³Âp 2$ÜzŒb™³]LèeB/<ö‰GŸxìv‰W¥£`OÈõb>ɡȘ0¬;^ÏÎ;'׫•ÆÄ…;ñ„aëzHArîÕA–ü[ÚÍ´Uq¾³¬»ë€myŽ]ÆÁà.°¿K©Y¤‚Á1¨?–q0àÆ©/®`pdN( »#ƒÁ‘›˜«UXͯPÍwKL¢ÿth“Ø%^oîkÂXËñ¦¯7¤*½>ç^âL¢Å$‹„z„°(¯·J~~’{Àþ¥õæÖÉOâÇ.×®9E££ŽÓ¢f½lž5JÚÝ1( ³kžiÁ¿%âÀ½xB.}Ë"Üõ÷Å Õ.ì—Ft HÝýJ«¾p‰Ô7s¯Ç4e9óz³*H‰æÂZ‹!/VØ‹=mŒÚN£ù˜`Â%—¤o“p_ˆ¸ä `Ê]ÍÇ=zø¿ñØM2îHw,¦;.mšÐd\FŸµ?ºô9ð#Y3Î5í‹x]:ùivwy•j×1öŸÊÎý½›‹]Çjf¹Ô;°£§ÔclÙ±}Ë@w&ª»˜ow…-Y!,ÔW=¯ÍÝð³z¡2usèq_5„î9ºåF¹IÄÄð|à"È‹ÆMxÓ?ŸÍï>q¨«wæ=7¹ær_ΟR‡ZE›FŒÇ‹r1óŸ{ߟ{äG«Mr˜p¥òü;¿õ¾¢>ºÿOoü‡Z'+Û)l¿0ë¹dò^/ðƒýeŠ÷ÏgÞ?h–in¹Ð±IK¯4›äš†z­_®‘Ë¥’r¡WqIÐPçÿÔT-^ Yªhj×ÏÒ½QËÝŒrhžX&i›„Ô/á—"“\‚ZäxöYA»Ì-—B^š‚]¸Y”p 8aÚv!õWrˆK±]Îzáš· ¶K lÑ’²]¸Ä:K»´À!ªµË"Ø¥l™ž aæÂsQ@ d HÐ0saŒ¹(œt‰Ä2 ©_Æ!.E†¹†1e,3Ö˜‡Z [B‚– ›Üy(Žœt‘IJ ]Ë9Ä¥Ø2UǶÌ|Xc~Ê– îùÙZf>¬¢ZË,댔i¸—-ý"Z [D‚¦Ys,@yä¤Ë$–iHý q)®4ºStMKÐ2 AkaÊ•f!¬±0ÛJ³ŽbB•FÊ4­0GkÊ•¦æhͶÒ`¥OÕVšÖ°¥e—À„—C¾<³\S.…,•«Ç3 ©¿‚C\Šû2¦¸]Á‹šÒíË,‚-5eÚ—!õWr¨¶/³˜³Ka¸"hn(&ÕHÆŽeÉWp¨6’…ÝLÓ}Ä­3‹aŒÅMév3ùqà »™‹á!ªífÖc™#Ë–À„iƲ%°Å’¦LcÙ¸EˆÉŒË˜†¹ Ƹ,å sŒqY¶沦 ¯f(®0aN¦ š…ËÃRÍÉ.‡)3ÌÉ.‡7†˜PN&n.v¥Ç8[dÇHý•ªcõê2 ŸȕjuáwãÉ°º\ÑøR^]„í À¤Z]¸%ËêreãKq³ïôŠÏ_r–T›}nd,ËfYãK±ahþ²WÐ0Ë›ÆwÓ4 ×›ÌÒ0ËaŒÕf g˜‚i‰F3~Ä›³Sâ¶Y{¬˜(§mR}‡¸Ù&1ÎT%LsÌqUSº2WÁW5e: ÛEý€Ì妗%¬³Y9ÑR‰[g%,²²©Ñ>g©Y‡T_Í!.EÖY:q"S—ñù´„q6À „iæ` óR¿’CµyÁe|B-aœk`kR6Î50È5Ùç$DµÆ g Jž]ë4̵0aš³×„Îúe&3C†é4ÌFccʆÙclÌÖ0aŒ“3ÌfAÃl‚16¥l˜M0Ʀl ³ Æ1™÷јaì‘È3¬",“‡5òMé¾À‘‡5òM™¾ÀAê—sˆK‘e[¦Xß³å‚MÓs´7¥;ËÖs´7e:ËFêWp¨v–-4 ÙųK‚¦¹æ¸.eÓ\s\—­i®ƒ9BTkš¥kÄXôõ0 ašc6á±™„ŽÙúUª³¹Œ798(Zw:`Ž¦t»50a†Ýšødˆj»5\‹3`¸¢¦é„9Ó k0a†a­b2/Ú0ÓTD S€1ÓÌŸ 0a†ùsþbbù³S´L¬ÑÕ”nþÜkt5eš?“úå&–?;¦hþÜ st7¥ͺaŽî¦L£©_Á¡Úhf¬ÆH§éiJ7 èA3ÌHýJÕfaDsd"Z/¬A˜fDë…53Œh¤~9‡j#· šh°¶ \Ú”ÞÛ›a  ßîØ w QíÛ—òáLÔ2[`-)ט-°Æ–lkÌÔ’ÕÖ˜puMÙ²)œ‰Úf+ì±µ)ÝÕ5[a W×ú«8LfÉ lãÚfì±-eÛlƒ=¶ek›m°GˆjmsÅÛ”ü ãí³6!LséÆvØ„0Ã¥¤~5‡j—n\9É>´@M4‰Þ£ìhš°n=qí€Qv4MX¶Hýq)®@¬óI6’©@;a“)W °ÉÎl+ÐN¸GˆÉT Ð>2hŒ²+å ´ FÙ•mÚ…J¢Ú ´rbvà^¡jèŽk[‚VÚ ËjMõ帉[‰;ä…_•H}‡¸YiÅT+•Ì¡1Aí]×6Õß6HÜF{`Âu×¥o£=pÍ5Ymh£«Nø6òò¤s?áÐÈpÁ²†ékšðÚ2#y¦Wntä@ Ó×4a]{ÚF"õë9Ä%i¤¹qéìm ¶ WÌRyXÓÆýÃ?¿Ywœ1:¤Ù?ƒÙ®±Ǫtró æMp+öÅ°îiºch5׬•ýãféØŠNÝÒËc®á4Ág¼Ö&|òÃqŸ±y°ß<7ìUÊçÏõ7ÎTí•=·Ï)u¸ž>dô9†U2œ‡ÎÙwâ–Ãûî;vòîãÜtv|Ì- žaäÛ&}ÝÖ¾[«4Ýí¸×Ôòë­³ÅaÝÉóßµ·Où™¶aÏ«º»ººŠ%«pÊ-es„%•†×eU+]Ìçô37néòŒ3•J¹³HÏÇnlÛ­ÝÉ~Š~Âs=£R ãAòm%»þ•ÿ7õû;´ª^c_ ]ìÿC]2ÛÜJ0RVŠµ’K'¥•î˜r†Õ¢=EÛ² ¿IÙñ+þ`á/L>±+òYæ°@žä£4"¯Ñæ©¿ÙvQÉ|Î {ISRz”¸.†‚!JÍâ’ ;/”NäAŒûš‚ü6D\1³«ËÆçïÎæϘâGUîG™ï¯ÿŠhÑûáR´€Ê¥´Â­lü—o¥xÝ.„—C¾<6¯‰oK;2›TîE ^‡•"vd)%6éE])fáù¤„ê&’Ã" ÞP•"v ÈÜ’L‘Å`v+Øܪ´ÈBfÕA2d‡fI0; 6‡•2»²îf1¨Ý:„ê-^=q {Ÿ§;C®8ÁÛAŠPÝ2ñú¾a´‘»”·BuÁ¶nS6õ$¨Ý:w(µé2~+oinGÁ‡PÝ2Œpn]•2æ`B¸òe‰†)Kë.P¹«Ie¢Q/¬9Ï?&Ç*,IZÇAå¸Ò …¿“­¯àB¨.P\Î%±½R¼î—»•òZ5iÓ8¡ÿ°"T73¶MØÍ3Á{AŠP]Û´fÊž–q8Þ^„k ËM[òß®º³c’÷ƒáZÈRbIŽïo‡ä ö€R’«'ïV‡bx|<¡º©òU\‰Ë°¬ú•Ö鵫L\’ØCJ-½®ÁþMqXrSD gs×Mª4qYž³“JY®æR«Ø_Z/PZkVs MlŠ:héJ)†I„¿¯‹T1.„ê“[)^Ep)&Æk³¯¸””òâ^·GÊRÄ !T?¬ƒ·Ó¥˜ ‚ ¡úali Åll†”2[;±Ìâf-à F¨®-[Æ“¤÷Ú¥ ÐBuƒœÓÑkÝRÌNÍ)¥¦½Š«9ŽQOƒ¡ºóVÓsªÁbý§W¢Ë E¨®ÅZÃQ0ݘ+àE¨®o.嬿í鳬Jð³À‰p%䕱ù-Ÿð£49„—C^®¬wîA9Žu« E¨®w¾š·n\Š€Ö#J+If·ÀÅé9 D¨.ÌL¢çHÓsAÉM^ð.Tâ’§”ÞÊIôü•üRüjàD¨.ºpm\ýM)z# 4’HñMxBŠß(8*-¾µ+÷€É3 F¨~Ìjò2x)Šc E+6T;¯¿æêCÖY³@\1‹Fx)©oæ—+ŒGç\Sp¬yˆ¸b–ÊMÓ‰¼&!œyŽt¹P©6Z]Ù|Æ”àÕ ¼ò%2¼òÙ0bY¢õæ#z¹fø‹ÒŒñÅçF© Ax1°r·²ú5·ßôŒJ„Ú`äžô«©ïåWúþ|>|>Y¶Dýù<|ø|"þ¼bÜŸ]½R-škž5\Q>¿%¼ò5Éûðyø-ᵯM߇IýFq¥ïÃ/‚ß¾(QžÃúSÄZ‹ KµZ ]ß؉ý7~¼aC4×Ó†»Vul"¼¸òÎäûEpfÂ]w¥ïؤ~7‡¸ÒwìÙ_œ°c÷Š:ö‹áÌ/Nı;fpl×(ÚVIγ_ o~1\l‰¬‹‰yö‹áÍ/†;µ(q)aÏ&õ{8Ä•¾g¿Þü’D=»Ùuì—À™ Õ§ëÆ»jPç¹Ó3+̱uOsL÷´¨/ÉÅÀÈÉûòKà¿„;Ó÷eR_àWú¾üRøïK“õåjQ‚W+P½/og1Øsìr†}ÿÕò†Éâ³£é,`[C,nûEͦO×oõñ—¯ o‚|Sò>þRø5áAÈÓ÷qRˆC\éûø£ðëGöqÑxý(üúÑD|üTÕ±«¶ãï×Àb¶i•Ì³TÓË,ÑËeæãì3Ïæ²mz!Ÿýõƒz÷ñMWcêtÏ(icþ%³8l{vÅ<ë¿·/Z-EU …<š|µxUð ä3éW R?Æ!®ô«Åc¨ %Z-æúÓñÔZ‹!/–®s&Qº©l2oeá^ÓK%“\X/kŒf­bXÞxª>qw m›Z´ã†!SØ—ÃUë'¤ {r!Ï¿Éðt³,SÌ‹‹Ê*âü~÷®ší5š' …wKKñ«¢h "õ‡¸’D¤®8y0ý@Dê‡8Ä¥èé[ûëªîs7½ ˜ÑD©oæ—d­œ—ÎË›‚P"®˜¥r5 '¨‘·Ëe{”ÚýˆÀæú[ïkŽÃ¬VÓL¾ ¥]¢ò •{U9m¿ªCTãgí« œ0vc›ûyÜr!—rˆ+ýry5ÊâÕ*Ê…þ'ŠIm päø›4ädJa!‡¸eÜžïg£ (j%Á«q#áÕ¥|EØ¥X?–vŠÚVà*Èñ_i¹y—vÈtY'“«9žÝyvJ(d©_Ñf°ü»hƒƒfÑôó¼«W Mwe¬»8y@™uèžn çϴ˘ÖV!WÓ1møäG⇞ö‚h $Ѓìe_XÕÇ b ©mfIýB“‰ôJ hEy n$L1’ºV º¸—fZ#†ãáx¿ÆÑòfÁ(tøŸœ¥ØèLŠ»5ÉðGüW‚ü2ÃΗŒ~Ħ<ùT:F}x²Ôö]q£(-ÈVÑï£ú˜Aô#µ-À £©_È¡Úèýç¿Ê+ZS~7®‚¬nòÈšBêZ«!Ç_Ç¿{—æ‚–g Ù¥’ÛÞ(;—Oûˆøà½ïUfÒ…`™µpä#>!K ?‰Ûó>àd©á¦¸‘ OA–Šüq#ßk³ú˜Aä#µ-À #©_È¡ÚÈž«eJ…¾×âFÂÕÕ­£¬*¤®¸òšØ–Y™ùI8¢·¸ò^u®*àˆÏAàÈGÒ±Ú À; ß‘E€#GwA¾+‹÷‹Y}Ì À‘Ú`†ŽÔ/ä0™l€"ZU~7¦àH]+P]€ëÙ¥¥TFGt×ï€,WÃä=¼×'ïˆÎÝÀ~Èýéñ(ð!Èrýzþ[‰xG¾ò ²ˆw¯ ¬êcñŽÔ¶3Œw¤~!‡jã]x$·)ð^‡ ×@–ŠYî}AEƒšDä p òX:6v€g!Ÿmã3jN²°ìÀ&Ñ>üä©3cäfyÓšñ3ÀÏB–i7ãÇŸƒü¹Øfìn`³áv}¢M ñý<ð§3à|s`~3hIm 0Ã&Ô/ä0¡ÔS¦ |3n$L1õ$u­@u©§²9r¢µ¸òÖ,êÏ[PgÞ’Mýy êÌ[²­?oA Qmý çÈõáQÑÚóÜH¸²)µ9ò· Æª›#x×䜑U"nO M/W‡uZ¨êÖ†† { Þ¢Ÿv= ä½ÃzÙ°üqÊmíšq¦hT½`gB ›¯ž,¿à|ÛÝoe×87ìUÊçÏõ•êð¹óývÍ;ןßÐÓß~ž>|Ä:·¡çü¹ ½çÏãï–ötæ{:ûýhø\O×æÆßäÙ7íOºðîãÙwàØшǾòûD—îX4åŽþÊ)öD\ @Ò¨"´P¡H˜éiŽ÷Ó2¼ý‹5ϨÈ`IÒh!–÷ç§Ú¿?ÊÎ-÷<¶?IŽµ’'n \ÓôH6ª'•Ò𛮶feE¿ª¦¬u>¢b¢‹ÿö¾zÿ5ïÚAó0aOšÃ Nÿ †+¶e{4…¦—i«;‹ý´îO¯Õ‘ïň^ÿ ù¿¥Ÿ®ßv42çëQÚ÷IÙ¦ã¹s—2¡‚¦c>k:ÜDÛŽÜâqâ$‹WÒv¨¡Ñ8»ìϦ•i/Ôðm/%7^* Ýfz·Ïªd"cp‚Z§ÁŠt‚c"ÄŠO°ð|V€ÏŠ,zÇo…gfÐ;&µ-À {Ǥ~!‡j{Çõ ‰îñ[q#aŠ,¤®¨n‚EÙàÑZ ÜyKÕç—Pe~)›êóK¨2¿”mõù%T™\šý%ÜH˜âàÒ/¡Æª\ºKnpi¿mž§å{»»{ã'Ñ㬞†,¿—_Üñ¤%ýe{h¼+ŠwNüT¢7@ÏW¾ò”ô’H"¾Or¼Ÿ”á¿3 ŒFÃhpE~’á…{Ê õ ÔZg¦Q¤)µ#£"jHîÂêhVækÜuIVë4]uÕ‰ÿöb>âŸîo!ÿ­ôÓe4|Däÿø!ÿ_% FÂÃGDø?8âÿ!C\M‹¡„†âá#e¼„ uFIfø(é’‰ŽÁÉi!«qÐ Ž)=|ÄñÉÍ äœ\·“ÿV¢ÿûËð, ú¿¤¶˜aÿ—Ô/ä—òá#ñð/ãF‡H]+ð">"Z«™½ UæmÙTŸ·¡Ê¼-Ûêó6T™ÕVŸpmŸÓ+qÐÛpãÛšR]Û÷6Ô™·5©\Ûw÷.Öà8¦Nk›]O0ËæÙFÇ£áMJ~h‰Õ·’áNÅ´ü›:´!sÄ°h|IÂØk€@–?'î Òɳ'M­Oëtôâ9öUïyúÍý¬(†íªa±ß(ƒ^7\ßOï&;vÒ|˜ýÆ9ÖƒåÿÝï˜CÃ^»ÿÇŲÍØ„jº5=]½´>ÊûØÞÞ•Ç/…D%ªÓöB¨Dé|4’ÃsÒ.êa+â{É8o’ÅyÇï„(£Ñ0 ûó »špïFÙ õnÔZ{¦a°ÄëwFEÞðaUE™¬¦q§/Y­ÓtúÔþÛ^-ï†v´|Ú´´Ú!ÓbiÏÎ[;´Ni¦Ö—;©9F<ÝÞ{2ka/áê^˜(3•làr}Àœ;1K¸»9ÞwËðVÓÀ)¡Ñ°[ÒŸç,-Õ)!'Ü©³ÌLÑ„ªQñ4$6M…ÌÊ^ÑmArZgh ÔÔþÛ´A½è±îVp «åš®gXűñV æÖXÐðìVñQCþ!žÄC<™Å°ÇÛô1ƒaRÛÌp؃Ô/ä0™a:4ªrG{¼7¦8ìAêZá+Dk 0ÓWŸBy*›úóêÌSÙÖŸ§PgBT[–põ§`ZÂ#ïOáFµ×&_…žBµ!\y]lÛ¢*äCkŒ&†óÿá°aÃÃtƒ}2$ ¬ Ȇ2·Üa{†# ød©Áˈüý«V'5Eñ ÐìÄ6k³p$ý.ЃìeßXÔÇ B ©mfIýBÕ†Àp“JãLU&¾7®¼&ùHêZk›TmRy›@dåe[†å™Sî• ƒô ë€&d3Ó0HL` r-0H OG dIÿ(ð dù7ëc„Áwõ1ƒ0Hj[€†AR¿Cµaðò GêÊDÂwâFB ²–|$$u­Àõ×ǶÎHö»‚#ÈÄBz”6 ÙÊ4“QàYÈRÛ”‰ÆBRhÏA>—A,$ý/ž‡|>‹Xø®À¢>f Im 0ÃXHêr¨6.x¥L0|n$\Y**‰CR× lƒÜÛYÝÎî2m19 <Yª•m“H¡|äeÐ&‘þ_ù%Y´I¿XÔÇ Ú$RÛÌ°M"õ 9¼¸Ú¤_Á„)¶I¤®8+Ú$"ª“l“Ä_‡$FwSl“HÝmÀ‹¬M"J/Ž6‰˜œ¦Ú&‘B˜e›Dú_ |IS†mÒ¯õ1ƒ6‰Ô¶3l“HýBÕ¶I—ñËÌ*õðqá!íWq#á:ÈR­ƒXH#u­@ ²Û8{wM8Ç,|åÔð[!*ZÁIûä{º5ÜiQä+ï´” áŠFÜ׆üpí½¨\ïͦ¢½•ë½ÙV´÷¢r…˜LòG‹™dêÙ{q#aŠÉß{Q·Õ%»/¨žÑ´}ìJFÄ5àÈ¢’½ë}ÙT²÷¡b½/ÛJö>T¬ÕV²¥—ÊÈÔ³÷áFÂ'DÞ‡ºEØÖ¤jB¤ï‚ë™éÅ®iD}ð$ä“YÔ´§Q»žÎ¦¦=Úõt¶5íiÔ®ÕÖ´+&-Ä©jOãƧáó—Éú¼XU{Õëiøhk€©¤ŽX|»®÷k€:d=‹ºö ê×3ÙÔµgP¿žÉ¶®=ƒúbBu Óü2uíÜøLºuíÔ¯g”ÖµÛ/´›Ìíwsû4·»æ=ƒÚFhC¶³¨yÏ¢¶=›MÍ{µíÙlkÞ³¨m!&3:âØËT»gq#aŠ£#Ï¢ªjMªFG6^X'aÁõÀC)³`Œ“!‰Ðà=ïIÇv7ï…|olÛ-øˆÏ}@²™Eà{`f3|¤¶˜aà#õ 9L*ð ÈåöïÇ„)>R× Ôš.îÀG× |â³”Dè0ÅÀGên^LøÜÌ4ðýZ`f3|¤¶˜aà#õ 9TøÂmKJž]ë­8¿† Sܶ„ÔµÕm[Ò×è¸×Ó­’î”̳FI«¬U2 Ç°Š†K±ñ€=lX›\£®Þù~éGˆs Ãœ»OFÙ}ÚÍáˆù@²ðftGÚg0áAŽø  qÿŠµ;œ2 «õüþ<³«ð®pÊH5Ö±+œZ‹äÆ‹¤ñækÑŸU±4Þ|-Y­Ól¾¦Î5ùop“÷c&m¹cG{A»Û*Á²7Ýuk•ju†ä”tOǺ8Û¥·X‚ ¥LÇõ´¼«u° mèžQj×X¤Ö\£h[%|ÃDϱËíÚcתþÁ:AnTcaÜõs F‡¶ù»¿Ô¤Éí´9hÕö‚m%ü?â¾ç7nGœÈÂ¥]BIŽ±[hF‘ßß”ð–@&œ‘?w+GüVâJ"¿Š#¿R¢‘_¡E’‰ü‰KdäOPëô‘_‘kòßga»dY”výè]uìªí„)¶e[öˆá”õª6`x£†ÄxoÔÒì^Öp˜£Ð¡²¸«Å¨úoý-›¨[êë–ºo>È„³#ê>ÃF†¸š¨«„FTÔev•ŠºJH G]u™1êF;|VÅu“Ó:CÔUãšvP•Š”!™̇f]~úaàg™pvDÊÏrÄ?+C\M¤TBCu~ª„”p¤Tg‘„òÓ$‹%:R&§u†H©Æ5ùo7ÐÙ¼Aÿß³µnÊ0Íâ°6dC¼=tÄ{Œªü' ú'™DÑ\I6†þ)ð'L8;bèßpÄÿF†¸šª„FÃ:—e›RT %áªÎ3EÐHgϪP¢ãgrZgˆŸjÜ’ÿöÒð|r™£uyJÿ Jÿ›’ÄlóàW„Ì6“Ú`†³Í¤~!‡¸.~¶¹7ª„¢f›?€ Sœm&u­ÀY:ÛLÔ×ïoÊx¶9ÊîÓæ#Äüଚm&ƒñŒf›•ÑˆîÓõ g$ÊH e$j-r}º(‡ÏªXç$Éj&'Qçšü·7Í8Ûìê~ÊÙ¥^ž>`ÒS»ü“< ùÙYfßüäOÌ–0ûIŽø'eˆ« ³Jh¨³JH ‡YuI(Ì&Y,Ña69­3„Y5®ÉkEOíNXª¬ÀñWõgŠ†QrÇcðÔ¿Á*žàbÌúrÏœÛÈ9ù·ñ²˜õ%æ×»™pVä\7G¼[†¸’€¬††ÊY_e¤D²B‹$0ë›t±DäµN¹æ…r³¾<™m ³m¶¥®¹íÀýœÛ?["åŽøâj"¥ŠSW5¤„#¥:‹$“º&Z,Ñ‘29­3DJ5®É{íÄYßÂVó¾<Õ!PÊ$ŽÊÍûïaà#œÞž4«(êpÄâj¢¨êæ}•QŽ¡êì¡|Þ7éB‰Ž Éi!‚ªqKþÛXó¾<¥Ò‹bS’˜÷ý üŠ0ƒy_RÛÌpÞ—Ô/ä—¢ÀÅÏûnŽ*¡¨yßâFÂç}I]+p–Îûõ5Àû›2ž÷²û´ù18«æ}‰ð G<Þ,£t>¢ŒFt¯n³pF¢Œ”PF¢Ö"Ы‹rø¬Š¥qN’¬Öiru®É›Å¼/ÿ$Ï6e<ï+fßœUó¾Dø“ñx³Œ±Â¬ªÃ¬RÂaVE ³IKt˜MNë aVkòß¾vÚWz黳TÓËnä4ð°>°6l ³Àìmú"¸ÛÏÙMØôAÕ¬0W"¹}L˜E¸–œ&æûG™pV„ëÜñ;dˆ+ ×jh¨œVFJ4\+´H³ÂIKd¸NPëôáZ‘kNP(7+Ì“92'f[b›»ø‚@&œ‘Rçˆë2ÄÕDJ%4'¶jH GJuI&±M´X¢#erZgˆ”j\“ÿ6‘YažêËAõå™ÄQ¹Yaâý àë™pvDÑÇ9âËWE•ÐP7+¬Œ’p Ugå³ÂIJtMNë T[òßÆšæ)½”Þ›’Ĭð‡àW„Ì “Ú`†³Â¤~!‡¸®KÇg…푨Ð9-ü!ÜH¸²Ôül„e"¦…I]+p ä5±-ó6©ial›W5­!­hƒƒfѤJ1R›yÎCËßjUØoÔö3EecÌŸ0ÙÙ^Ðè$é`¤NÂgÖ? ùÓ™$;ó{´NMr)bÿÀß‚ü[³!å!ÂßäˆS†xü”GÆgÒ÷ça[áÄG1¡ÄG­UfJ|fpü¬Š¦qú“¬ÖiÒu.:á1©£Î~ ò·”U–9–u$Êt„¾üÈ °m&h|øÈ?ˆm‘C|èËQífÞ5 ífÇ,Aƒèž×¡õv÷lÏdé~`nu çâ/“Èd?¸„d²¤¶˜a&Kêr¨6“]<žÉˆ+šÊ~7®,•SŠ¥²¤®¸òÚ¸¦É= •ÊíJ…ÝZÖ­¡š>dh¬REOsÙhù·<Þ^_Øs¤x³£²z¯m Q¾º³·]Ëëe—ýŠ^.3˜‘Ð̲éùjUÃ1m‡ý“%·û4úIÌ:O™É®ÿŸþê{š’])Q ©ÒïÏokƒŽ]™2Á=Léuƒ©í ü)UÝd×uæÎ2a™¸ìD71¾, /þ,œ¿œ#þrâñ³pe4TNt+#%”«µHÝIKãì;Y­Ódßê\“ÿv &º)Œú!>Ùžù§Á<›¹ÙâýÀ¯2áìª_åˆU†¸š ª„†ºÙe”„Cª:{(ŸÍIºP¢jrZg¨jÜ’ÿ6ÖlOé» ôÝ,úÀ_fÐ&µ-À ûÀ¤~!‡Éô©ìÙQ•5²üÜH˜b˜Ôµ•õ›VîbÕfÄp\#XÅlÐvîADkp;äíYÔ ÷1ƒôQÔ kÐGQkBT[ƒ–NE*˜–ðQÖÅ„ë!¯O¾}5‡° r[ló\OµÈ3†Jß')Õ'Ž†4d ¹x²Ü2Û†‰Ô  YOLjw Ä6â²I¦+hÇ )s£G•™«…æº%½øäǦyî]µ:©)ŠÏ_9~¿¹Y¸e"ý/¾ò+²h™~=°¨´L¤¶˜aËDêr¨¶eºŒhæà pv÷븑päuɇ4R× Ô k±s›ÜTp›\­d”=“µŽd=ð4äÓYÔº¡¦},›Z÷1Ô´e[ë>†šb2=*Vë W¸Î} 7¦Ø£ú꡺YÅ1©:7`ZvÅdé#?X2ÝjY«Ï'³]Ãò†Ù]µc5ö'þ¸Þ kàü.\˜sÚVyŒæ GÌ’Ìë¯nÑvhåA°/xݵd2òyôéöÃøƒüaÑ®0vF‰1;q!J'Ì#Fj5]V,•*{$ÛbšVž‰}ê—p„"³¯ 0÷–@&L?B}QéãÙD¨#*}<ÛõqD¥ÕF(n_§Šp|ú8n$Lq_§#&ªÛ×éµRñiÊgCæˆAëN[ö¨Uÿ{–3Œ˜Á¯æƒù++ØBE8VÍ«FÑ4™ v“Lg˜Jb ðÈÏ(󑹞î ÷‰Ë‡ƒü±tœãY 'ÇtŽ•+‚Z…µ2,t²Í8ã/ÿØ%c©O¿ ùÛÊ,µŠ¯Íy¶Ô·]_ÏÖvû}øSÈ?MÇ~ßþ#äÌ wLúü'Èÿ”E+ø‰ÀÎ>fÐ ’Ú`†­ ©_È¡ÚV{Å©ˆÖ”OàFÂßc!u­@uï±ôK5ƒUÛ´¼ÎÓ5JÖY¦êeÿÏÝ‚¶¡Sx=ÙZàä1eFŸcõ˜2¦~ ðQȦcê³ÀÇ KUNl×5fU›¼ ø*ȯRh“^)›¼øä'ұɫo€ü†Ø69Æ2E+è´šU« δR² ßKìÐXÇ“¥“KCËcíÖA? üäe^éþøÿ!ÿ5𧥠5•îÿù_2¯tÿü9䟧c“þäÿŠm“v–ݳÚf{ã=±Ž‰Fþ›—†Tößæ62¡"»-duIëÓ䬗ën d¬—ÛÜÈ1Ψ ¿mókTÍÅHž^­:ö“%/ÁšZY—0› á}L(És¾íXznCo}èzçä¹êÀyféþAG/ž+±ÛÜGï\éá^ízmKýÆ•ÎÉê»­¤uiïˆxþi™ÒÃß|{ ‹¿ÈOwLYd:¯¿r*¹5¦Ä÷)Ž÷S2¼ý+ÖSe4Výkûó3z…ðTe”kXƒªÖ^áÔ満ʔQ¡5¤+\¥³²m㥴Éjf)­ºÚ7¡²KæÓu*ï•wgOçž¾? Óhýßüµ@&Ì(ŸÎáÕÜG™0Û|:÷)ào2a6ù(ð3LÓ&ü|:*—®gjƽèMY(Ÿ²}ø_œ“ï$œ² Ϙ² K§lèn4ï dÂÙ²5ïçM²8o%)›r)Û°\ʦ†²hʦÐ^1S¶a™”M1}þ.á*•m#S¶µNŸ²)ª}ü· üïáužÍ­`skvíÉpÝû+çÏY'{Î3‡âþÝÞ¸Œn¬0Ïc÷°[©W²-i> |u Ί¶ä5ï×ÈðVÓ–(¡Õ–ÌèRm‰ÊÂm‰:{ÍØ–Ì\‘2*´†t…ªsVvnG’Ó:C;¢¦æM¨è’ÝÌ:•×Ê뤩ÄÙgàò MøNÄHëԤۄן äfáef Û„„÷ ÂÏrÄŸ•!®¦QPB£a£°¬??ÅÊR€ŠÂ€:ûÌ´ÁW†¬ ):¢&§u†ˆªÆmùo×iùÃzÑpµÚ=¦Qöôšáø»õmß©€'ù üFl’ëõ> Ï#Ì`½©mf¸^Ô/ä—¢PǽWã ˜ÂK“?‰ S|¯†Ôµ×6©Ú©à.É÷j.Õ»Ý<-ÜU¦ÇY´!ÛÊLoi&q> ùÑt,]>9þz½û;´Zð&Ó4ë-ý±÷` ­Ð-hCÅ“k£¦7,cñ—ÿ'äÿ)ýxqG:“çس£nÕ|Og•þf0ö$´`´Á9Éþ†ý Ý›¯^çßÜÎúWÁÝ âɤÈT$ -m!Y|‰KÃ&Äwû8oÉ‹0ïø²2 cI?á¾"œ=+£/”=«µÝLC(‚Õ-£lH=F¥ÏÊâ»Éj¦+ ®~òßÊÒólö‚ÍÞÌÚ¡Õz• EúÏõÜÐübúÚêéÊ[ìãÞ¨È2Sã’»X ä\e–4.ÇÛ’á­¦qQB£ñ»wýùjF”nFÔYi¦f$²¶dTT I^XÍÊŒÑmCrZghÔT¯ µYfà§â€Š#M%ÎÀû¼ µö.ð¥L¨ Ú'<ÚN„åˆ?*C\M¸WB£a¸oíϦ•ŠîJx GwuF™iˆ}z·Ïªd¢frZg˜j”ÿv?Þ ÖX2ÙÅþ†2á~–i'Ï1jÁKN8wN‹Qß¿Šçøj&Ñvs:ÙPû5àwY|›ã¬BíïrÄW†¸šP«„FÔ)Ì®RqV )á8«Î"3ÅÙi>«b‰²Éi!ȪqMþÛuá1¦;>ïoe|£ÿ$*M²ßd¥r®¬{Æ.RÒg #j/ETú–Ýï…°¹Zß™@Û«ùãd}ZŸ^FŸöy“?Ÿ|·dLþÇ›72¡¢˜ìMŒÉQ½Ô¹~ñ‰[³9?Îœdqæ.¬¨§‰j¸ŠFƒµÎa^œ¤Òi=F²Wè0qZq…4¹`®ìÏO2Mz¢ÞÙ¤?o½•‚ýÿ oÿ/¼E%:ó;dWÔÉ@¦I—0÷€dòÑÜÜÈ„³¢Cؼ“#¾S†¸š¦D ¨¶j;”Pn;ÔÙc¦`éìYJt|LNëôAEnÉ[ FÜü½™q>¬6¢;¦>P¦-hÊe{4ønÚÑ7¥«aù}ôm±Tb5ì§à­„¬†%µ-À WÃ’ú…âRóœê€ÜzØOáFÂu×)«‘«$I]+PkRu¶ÃñFëa§[/½6ܸRÆÜë.dW™¹›«¦ŒÏÏA>—Ž=à !¿0¶_ð}‡Šâ›æîdÂ,û8D¥x2 SpŽÜ=À2áE×Ç!~:ðÑ@&Ì´2ç^ |M ¦a¯Ç€¿È„i‡X¾ø±@&̶Cd>üb ç¤ÚqË}ø¥@&Œi¹‡dû8ÌàuëŽÈH÷˜Öˆá¸~ë,aî/ؼ&›å2“D†‰Ö5ÀÍL˜‚ᛑ‡4o dÂÔ{6¤+p[ ¦ß³ùÀ¸>fг!µ-À {6¤~!‡j{6—Œ÷l„Éü ÜHx5ä«“¯'¤®¸ ²Ôéœ â½Jû5ÓîS"ݳnW©ˆV¿ùKÊ|Gfvbò à7!3Ÿù2ð·!ÿvlŸ‘z‡(ü𻿫Ð&â{´“ÿò¦c“ßþä?Šmgšþ¦Ä¹c3t,eº(ô¼`î¶@&̶RæŽOrîD*»xw Kö®UTJ¿{Kø@ ‡kŽ²«”~G–°È„iØäA`)s¥Ø6Iì 2¢i1 ÙMþ 2âóFàÛYá1ÓZïuÀ§™0®õ’êÍw3 Y/æü‘ú6ð™0 "AÊý@&L½Húÿ'ðO™0ý^àgÓú˜A/Ô¶3ì’ú…ªí^Ê™÷?ƒ Sœß"u­@uó[U‰evÓööü<äÏÇv‘E¬ ŒbŠ¿õAL¾ü&äofX?ÖÇ +©mfXIýB ¬Žh­ùn$L1°’ºV ºÀú¸H` þyQÅT* øaÈÎ2¦‘O?ùSéxÇG€Ÿ†üéØÞqSµ;‚QnŸ¬©ûÏTG‘0æoÿò¿+3æË}cÿsøÉÏ‘˜dBeÆŒx ˜Ôþ¨Í2aLc.õë5gáf’ø4¯dÂô›ÉÏæõ1ƒf’Ô¶3l&IýBÕ6“WLh&KzõV4~7¶AnK>’ºVàÈbÛçì6•Ó!’¯7ž ÞevÛµüûŒ¶Q;når‡Ö³sÇNñt–žûàSãÒKÔÓ/ n~!›zúÔÍ/d[O¿€º¢Úzzå¤zÊfPI¿ŒŠI˜a%ý2*fˆj+éʉ¸žáªÁ:jÑšúeÜH˜‡,µa…XMý2j'a;äöØVzÁ¦½¬¼½8l;¬N<ÿÐÕÜÚÐáb9j¸8=ß³S¦NÒÓ]|5äWgQ'¿‚zø•lêäWP¿’mü êaˆjë䊩u²d Œ‰ÖȯàFÂ7&_#¿‚ZH¸ rü=@V]#o¢"¥ú¸c³x}¤gË_ùåYÔǯ¢~5n}l¨u_YfÒ@ó«Pý¾ Ä·*ŠZ‚ÔÏå—²(žn–Ýš_ŽâþWÚ@ê›9Ä%‹šãÒùzS™CijTÚYÍاEN7 ½€=~Cšó¤Sñi˜ß„áÛ!K¥ µÎë÷iEéúF¶Îó 8LˆñœgU\:´“Å|qÅ,•›˜óœð×qzÆ£—'7$öƒ=ŸôÉßÕgfŸä›°)áMo’~’8{O· ç϶G°Ÿvûi¢~xä»DîH{ûi"|Œ#~L†¸…qú\5bæY†Iâ‚þ<Vxje¬kØZ­IfÚz:—Ϫ\oB¬Öi6¡Vçœü·—ÒÊù!sÄ°(ÃŽQm†üpì¹qRÈôcåƒ,V>D±²4)Xvõ³Fâä¹~:‘â\Ù5œóçÆ?kÕ*ýS#ç¢ÃºÛµÒYÙ¸zøÈoQWP\-%XßÊ1« óFµx³Íý Z¡ÿ!‰Ê®äA„ƒ`"Å×ÐÀŠ\9›"œÛ_Š˜É©!`*QÖ”-6$%Q’ië°dI–l™”eǦ%°$W°Ð.@ŠVä8‰s'ŽËIšËÎ};G“¶±s9wÓ#W4m“6I¯o“´iÓ4=üŸwæÙÅ€(ïì`áôÿË'ëç°ÄûμïÌ;÷°š•”¢ëLÙYZ°d±èzu©7|¾à„Úr‡ë¬!ö«Âáùá­M\Ü@âÛ$Ä£X’EU‡ÎŽ]*!žˆ¹²Î0Œ[œÜø„Y˜/m5!Õû E¸|¶ø·vzjlGÞ*™¬úîf^Mõ|Êq'”¼¸|‹6‡^4jåM;WGîÀAðèwö¶…N$+pø6mFºd²T*zÛzz¦§§S!ŒUg¸†”ܼ\iB·ÎpMÙ­gªíÀ»À•BdõÒÌðkDI»càJ}¶šRšåÒ¤ãÖ©h¨ôþAKS«_ß&a´ê÷ùQÕùCö¬OÄ\¹›U¿»œ‚Ub}úkSÆu)#Ñ×ÛÛÇùˆâž}ź+'ʶk‰cáù©.–'®êfÝM¢Ô¢eÿÌ8Öø¸±éÜz3Wœ4SFÈTþìýGp¸Vš*ˆÞNÙ-˜93Ü“-gx;œý“’±Ëš4§l‡Öהش1©Þv¯ù´Ÿ¾üõÛ+ufHœ |<úÜnøÚä¿øFð7j3^[ß}Þ|üæsrÙ:bß|üÑÈæX•èJýý›º»ûz• Ö;€ÿ¨6Ûtù‘7ëØi{Ò½©þtoÃ-›·nÜÜÛ·¥·w€i2“º¿üø4špÊrÇêˆýð‡à?Œ?‘ø¿‘OÜjü±°x€zòqz°ÑsD„^ê?Š“k-yUsÆ¡lp¤ 34’Æ ¹ð0Eï–=Z(Mmv›¬nŸñl/taù&Ixü¸¶Â²¦_HÕC4*a,]à‹Á_ÜøXCârÀ—€¿¤ ±†ä¿ø2p¥±áÚ±&½UAŸ‡€¯uãc ‰{9ð5௉lŽ³}}lÒ}[X´I÷§•JÐkï—6ó¬nÒ½<ÜlÝÒÝÛ·iW'étoWz붾¾«()Û¶™v¶›U/[®îOõ¦2Îö¾î|ȈD)ú ð?À•¦ ‘HÜ»¿ÿUü¡€Äÿ§„xâVã[Â)Ô‘ΣˆäLZ,"Hñ­•ƒ]¡=ÿÛP‡ð<ðó´yþæ v°~J‘&< ?ÊÇmŽUz2õÅ2VØ~ é~!ð&p}ËúëÆ·8 >Ùªƒ¬mAÝÔlŠsŸËyY“æ×n8°Í8hNóƒ*Œ=nnÌ,çžçdl³¤°´¾ \-"E*ßÏù¨§hlàEã$$N%+éìIùeekø²ò]èG¸|ƒ¶²²v§_2XwÌ.˜îŒ‘5Ka'H¹nànp¥õ%á ‰Û¼\}žÿíera8è²Nak…›Åøó›ßIþ €÷ƒß¯Í$­iu^.!žF‡w÷Bà+À_ÙK“Fº»»¿O©œ¼ø:ð×i3Ê¥~`ŸÌæR“f!ËJrÁ*õô ôö¤7¥7×m“Õ í¤æ›ƒë¼T©Nh'q¯>þDü1•ÄFBĸ àà4!ÄüWP_²/lŒ!=â|ÂFÇ÷ðàoÔÐ…¤õ›{·twoN‡ŸÀ"eÞ|/ø{µÙfc­ ¬¾ô@é佞tzË–-}[·lÚ2Þ²~ü»7$î}À?ÿ“ø+zÿ§â‰[ï {¨'ÞäY¼¹Îµ3¢ E›]&ëÐʽÃ,Èð%龄‚Öµ¬‹Â'³6² ›.g‹4LÉ:yEÇ‘ˆUäµË]XþÉ$̃+=Õ,,çöf2“NÑfØ"ýÆR­| ¸Òº…p¡†Ä€/iB Éðåàj{ÚjYhA:]wa×< ½øZð×6>Ö¸W_®Ö¿ÅpåëÔl?\IʼøNpµ1°§kú6oîéíO]wÒ›2}[ï ;lIÊ~øMðo6>Ö¸w¿þ­ø+yÿm ñÄ­Æ_ {¨/Öì3³=unvú3¾·Lš9ZÁBÍÞ»Ù²™G›ãÝž¿V|¢`³JšfÔi‰8_’`²VÑbÿñ…˃jácÍ_#™„úcÍ køŒØñ°3ŤR xø}1$®|¸Ò@]ÄCòŸ|ø ôugÂvgH—#żp!†ÄÝ|xô!³U Z‘×—ÞÚÝݧ°”y%ð·ÀK›m:k¯ÇÛÒ³koo_ßÖôà@oÈèBz> |üÉÆG÷fàÁ¿µNâ¿$!ž¸Õø0u€z¢ËXtÙ_àãfûüq³]®™ÍY3Æ—¯(:XYQD_ËÝ—ª-FžaÒ?^ÙµøtÍ ÈÑ7cViÚ² †˜Ñ²stNPU‡¶›½ëï_W2”*òø?§ ‹Äϲ­ð!ë‡È;Â/€A[áëÝíäóå‚Áð¢]ä’”Ž;ÃÓ{ˆ/©Ûs"­¿ü¸ÒÊÓpQí‡(ù„ÿ þŸMˆj$ÿ×Àÿÿ/}Q-=^~ñ2áÁ Õ(ùÿ ±í‚F4ÇÙ‰t/-4ÜDóAƒ[TÊVëBàÁ 5™§Ö¾¦tï`/ë;mN÷níÜÚ;8Øß›®¿5­N|#u/î¼uOãã‰[ Ü+8aÜ…Ä_WAÿ‰[¿PO|»ŸÅ·fÆóh`Ž¢›t¬A’O õõ¦·°Ø¶gNä³=˵Y°‘PÕM'ëò^ÅÀàÈ4mžþ©'¼\ßd÷Ög™nfÒ™)°dÒ’\µXDú½øNp¥‘’p±ˆÄ½ø.pµÝ,ò·ácÉ7ð=àïÑf¦Ö°¡ˆÔø°„xŠHÜ{ÿˆ¦Vz3 DéÁðûkI™Ç€ŸW›ìžweÂì OÇ\/O3GuMW'þš_þüÇ?$î³ÀŸ€ÿ$þŠŸÄÿ„xâVãGÂÒê‰?7±øs(skN'ëSÆbìÎ)Lð}¶‡y×jk¹Ë°ž 09Z‚`NXU›i=¿º(üI!¼ \i÷PíݳճA»Ê¹œU² :Þ Ìƒë\-]'¸a`¼Ð„@Bò`¼¨ÍD Òé°cu¤È4p|¦ñ¡„ÄÞ~¦PÒO¡¤ó&¥òs øRð—j3Ε5CIÿ–žÞÞþþî¾­½[SÌ|©¾Ó?dP!…þ¸Îê÷2à§Á£ß˜º6'ñKˆ'n5~"l ž òl *6«j]¾þ@lùÛ2ˆ:›Îgð,¿ƒuqÝ|5œ‘uÊ´¦œµÿ=»`Í:3táø;$‰ðÙàÏÖV8ÎÛ™gý¯Œ) ¡±ž–‚ŠwKà¥ÆÇw° ®¶†\þ6|l!ùSÀiðimjëïSÐç^àsÁŸÛøÐBâNï¿/²9:øª¶tÿ RÁyðeàúÌHÕ(ca%Ýß»)EÕûh`ËÖ¾Áþ…t~øp¥ÎU¸ÀBâ^ü,øgã¯ÑIüç$Ä·/Ì žÀ2È˹ãv!iìç=•½üD `®=•M,Æì–/Âv­lùdh÷ÿhL8®vfã:%¤Û5À#àG8HÜVàÍà77!pü£À[ÀoÑÙ) ;¾EŠÜ ¼üîÆGw+Ð75tJÒ96mêîNo?ÏBÊŒ‹àÅx;%,|¤˜þ!c)< |ü‘ÆÇwø(ø£ñWÚ$þâ‰[6POìx ‹‡-Óõœêbá‚Ÿ!Wµ9%ã¤iì¹)‰IqÖ_±¦œ\YôDŽîßlÌ•ç_hßç¤ÉOüw=Z[mœ(›…’M=„)+7ƒ%´s6t±ú'dákÀÕÎïªU¬vž´sŽç'yVðHf&XûM vfh“±-q—’8$iŒ°Žå;ô&à÷Á¿ßøFâ^ ô—ÿebÉÿ+à_ƒÿµÆ¶5ì:kRä'À¿ÿûÆÇ0÷à?€ÿCd{ˆ}£ +¬Iþ+ø¿j3ˆšÑkë`ë•ÌUJ©ÞÞ¾ºýÖ:‹týO­ NØèÀEb±—NwÄ ñFý'n5þŸ0w€zW‘®adz ¥I3—Äòêáòõ‚X·g—XþÖ'‡š4&¬‚EGºËn‘ý)-g+æL^eç͉‚]*gùœu²ÈjnZÇ^:¡‹Ë?#¥„Eð¢¶âriS¸ƒ>ÔŒ‚ºÓÀ‡ÁuÞå\'æ¸À7€+m—ŒsHþo“6kµm©»3d}> ®Ôô rHÜoß½©ë/ ØLݦ­J%éÀL›m®¨ßmêëëîݼ¹?µe Õ—bê‡ >¤ïïÿüo|HÜÇ þ·ñ×ú$þGâ‰[Ÿ “¨'øŒ°àSkEZ/h+° ™g'-(³ø¢âaq¡*¿íLÜ­bÍÌqs"|¯çgH áøˆ¶Rq‰_äãRGœñÒ´é†=h›”¼ xüd㣠‰;œŸiBt!ù÷OŸÒ]úëÖLóèó|`¤]Fᢠ‰{ð~pµ’ò·ËùÆQêÓ„ŸÐ!M^|üAm†¹¼VhÜÌbË1ÏKMõöoNÙ½açqHÕ‡ŸWš©UHÜCÀÇÁ›03O⟦Ô/eïX®tÜs•ð?6nùy‹ÎX:H|›„xöœ§«NÝËIÿ…rNB<³e÷úõë r2e:éÇ`]õ½ãâÖ ±÷ˆ0zEo)ØÎYÚí…Nɿ¨„»Á•Ž)®JÉ Y³d\ÕmX%'ÍVCÃÃIô‡J¬/š4Æ)XI#ceø'YFø'tàòûOj,3Ñ:Q¿@Bo¿¡q^[Wƒlõ”ž‹ÈMÆíó‹BÖÉw‹Þº'.“ ­ã¿C/‹À/Š®#óRr7o&fì¤1eWlÞž¿„^¿Ôªcx{þdû¨Çž{Éž& B´–¶RàE»yë¦ËÝûÄX¹d”Xë» nûM²uå¢TªB'æWHáuàÑwÓì¤Ä`od°²+oeYõ$¥-ÉçCÄWU_\Þ9þºîß9ëpío‚9r«Ï†¬“Åðúý:®_×çý/ÈöQóîyÎ[öüƒÎíBÉš áÈêå|¡ÓòßПp/øÞÈi®es)fúÓž}L7šåXï0Aך±wùýæI¯§-w¨{ iðk뇺Â;Ëÿ 1„ÃàÃMp–ÿ…lõ8˹ä,¼â2sóÇ=¾ÅòÔ!<üÜȪ]Åöá MJÓ8^ƒT\¿¡[aØVÉÈ }VÅО1måB7Kø^åVàYÐë¬Èz]vf+‡7å¨JxT½L[mé(.F¯Õ=ûˆn×j½°Ý3.¾­‚»g³ÇæÍ‚] ©mîP“Q–Œ·fXõUcȇKl®‚MVÅo“…â=ýG-æ¼Õ6\k´ ÿk]„d·¨¸#½±’ÞX_9[|¶š>k?zöSÐü墊®q?¤×ŠÙ©ÙÚSÊ{†Ùò[wõõgz†ÇÊv.Û76˜Î¦­Á-c½= ïa¾Ýƒ ÈÏÒ—<Ÿm½æçAž2a (±×)$KJ®·s¹znRgl2x1p%x¥œî/{X8§V¼ùÈÞn¬\ôÔì’+}¹xNÚSÈ84ŒQÉÊ%¤OùÎï:ñ£±4f9LþvñáGößš)ùþÃÿYªüPÇlaÛÃÛDdg`•e³òÊ?Yí1sü1ó&̚畧;–Y0óµn;Ã{JiA<•»ZB< jè,®–W+eNM©‹FÍœmÖŠÞhãp”r%n£øM,ñh2Êê $±Î^ª\°Cg B¸|m ÆA«ŽãùàçÇo¿NB<šŒ“<΅÷2 ;å;!7Â^ÇŽÑcHÍÛa,Â~ð~†+Ù¥\­ªÎo €Äo8¿IB<Š†[U¿ì#žˆ¹r]gP.ðµÁ´H:cº´>º\2L£ä»þêëFáP|‰tÎô<#dbüPBXcè2b¡XÚ Ïï ÙäÏ À£àGµ¹üÂQÖ^ªåñôìÞ~KdÛ¶…žZ¦çVà³ÁŸU¶ñQ{üÔd)Ÿ;}jt„uÒÝÛY罜+yCn6é•Ì kÈ¥sbÝ;NÚydß·ßuóÈžÝ×Þ@#3^jÂ*Y…©D笯;»¶ÁGó½Žwíq#qiáZÔŸ¿ëêšó3ÁÉ–™l!uÌËZ9{Êå—ŠyÖ¾,M3Oîè)Y'»óù\w†ÒÇ^ìÜnf?E?áÍx%+Ÿ¢fa¢3ëdü¿â¼ŸôÓ uâ{×WµÀ¥Ÿë26l0æh.2)¿qtt”ÙSWy×.–®¦}Ì“ÆqŠ}\,—¶§Æ_FwÁšÎä™púø0ûŒ}•Jõ°ÿûJôÈÓ[ÉÓ§·_ÕediîÙ`æšïï«R|uð#§7VγX°œêMÌJ†ôÛ£“U&J²4WýP×éÓõ†_X6 Ú¹{øÆ:зÂ:<½±|öËGsŽ™EHuµÑjÕYí”= Åu\Ò~\E{¹]PK³Ç~ÓÜ*dûT[.Ö–J.Ý(©5G/–_•q ‹‡ô«çý©7VS7- XEÞȤÔR$Z£IVm¼òh²íòѬ%|ÎöoÙ›Ód“‡gf î63cH¥6 ñ(VK#OW-©ýDl-÷»®‰“u×?ÖUi)ò›ÿørå,j©Û&Ì:¥ZÝ×¥09ŸWëÔË߶…ŸÑ\ Ÿ#<üœÆuÇêêÑø¨TšÎ‡Ï8U§@-C-ÃûK[‡‚jjµø C/ó(up¸ÒØCM©‹Góü0Ï:‚[€_Ùg®¢bìÙY+é/Pqܡ΃½¬Á‘7OÚ%ËJ÷ö& ZêxÖÐÞGö$ ;gçÃRýYÀ£àJ]AµâOboÞ~{3Š?)0 ¼ü£@eu~êDT¹‹»ümè@IâÛ$Œ(×DUgTñOÄ\Y`õÊG=EVÂ$„ÒH«æÚ¸õ¤‚ZâQ¬†ÌRç³€¡/呯•0á%à—Dé³iù"}6Sà)mżîȉ3€=à=ÑKyJÁ*½âÑ–z›òuĶÓàéøë8ß'!žø+•UÂ¥96®Ri§&„‚fÀà+”ë•Ù“N{¡ƒG º´¤0a$,»4Éþ© ïj`\ͳjåà¢Îœ5^ ]Ç2ƒÀ!ð¡Æ×1«àÒ„Wƒ_Ù½Û GÉ*×wïÒf•Å®=1©f–ýÀÁoŒÇ,»‡ÁG6Ë—»hË+Z{|†îBž´3“¼×à/f/ VÎ(æüì¶Ç×7{¥r–Ž¾ñ&r.kŒY†/–KV6eì7ÈãrAü²me“âÒnú]Ûcå–Žuà‹¦í‚/E̪‰[ðH€#¾Á쇯ŽkM°O<>Gwç%<ËRq¬›Ò-(ÄåÛP«v/Ôš Ã+׺Ø%8¡6ÿÊÙ…ãuÄ^¼BpÂÜš_µBx¥à„ÝúY|Ú5k•L›.b/ˆµ¹dŒ®°mR, Ü+8a£Û:ä¢í{à­jS¾ò·¡Û:$~_ý'þ¶ŽxG`ãÚ:Kƒõ:€gƒŸ­Üà™=@¼NW;‡Þ9Ø Þ­-¢¶ÓàRØpJ/ ·€oi|½C/¥€ƒàƒ‘;ü¹ôÎVà6ðm-2¬f‘ÀkÁ¯Ç"Û{À÷D¶È¤BÓÞÙ <~@£QnR3ÊMÀ#àGâ1ÊõÀ›ÁoŽl”CU­NjÕõ.ÜôI¡œcÛ5«Á™ ¯³Ö¸Éš…Ô˜T0îQà£à6¿|ðƒàŒÇ¸ï~üCÑëÀÐM,zçÃÀ€¤ñM,z©øøcñ7±èJˆ'þ&–´í¬M¬Å˜{RP®¸º%hl)6°fT›|£.«nfUK¤k¾œ—*#R'¬û5UõÂO1ɵ’: Šzàž¶JjAº·7lEšÜ|øs_G‘¸ð4øé&ÔQ$ÿ^às[æ\Ѩ:ŠÄµï¿/þ:ŠÄ?OB<ñ×Qg oæØÀ: Sâ Ê¡ã×€:êMþµ R5=iñn X`( ʼncPKVÖE+º7ó‡ÑPMY†™›p\Ö›ÌÓ©YÚÀ\4Ý’ÿ^#*·³[*Kc>®ÔÜ©½}–¯c[½‘.~ üS¯ÞH܇€¿þ;M¨ÞHþïü÷4&¿NõFâÚŸÿtä䇮ÞHüãκ“,¾ê þì—ÿUoí´ÄGA³`ô½Ùíb ÑÝÍ~“ 3 Æ”™+[ŸP¨šK(8þÂt-^o…uøsð¡ß¯¾©ñœœp|8~‡'ñ#â‰ßá¥M4;¼Ò2²sáÙ„+[朢ÑËW;%9©ú¥lt ¹™ /mÿï %–pJ {Ã:Q6sÝ4”oÖ<ÒHØ)+•¤?æÿöøÚÚ˜KÿtidÙ«6úJt.ß_U`ºYÑý1iqaÄŒmåøJSdFÈâ±ÅZrjÁ uus˜[ÚÙð*µ= |·à„šêÐÅ£ÞMe§T«ŸCß|à„+ÐÇ眼èÐÉ|9ÿFòæÌ­¤A'JÊÖ¥c¦ì‚RŸg<›õ‡mq½“¼ð„•L*nÔ+¶é¨Z—½œƘ3e&Í‚íå}œõ&ùG¿W,ålq…‡1f›ÌÃV¶”sï¸ #8¡&Ó-Åb‰:ÕþˆF+×YÜFâ^|üÑxœëUÀw€¿#²sO²Ø•±Š¥JÓM4{YM=á8õÆo…sŽ;¹œ3M®({ ‹f¯™e­¡ma+EJè;¶®¼U©ÿu\áYÂe96n ­íx¯‚^-•­r-UéG`¸Ìoeë/Ÿ;è@š®¦[‚Ít qíÀ>ð¾ø$¾_B<ñ;ô…pâ êÐ*{=.„F^8;Ψ-t¼ï®××RÜÐAÊ\ìïl|"qkëÁ×Göa• ¤ÁeÀàµYEuCi“€+ Þ, à&pµÓäoo¥1,ïjŠ-á7t$lr™é2¦-·²©CÁÔ›¯eãÉk>®Öø•¿ 6Hü«$ÄظH”Ž  =+º)D*uõϵœç•X«×t³†åºoï ëĤÚYÀËÁ/o¼_Ç%ܾ!~'&ñ%Ä¿_ ǽ¸¡NÜ^ ïÃÃo £·}–ÌÒèüb7Ÿ¯¬4¤ oÌ“´\ Ü®nÈø¶wÔ§óèü³ é‚ÆS§ù‘t£‰õéÑ®Óôá‰Â©õéÓ§Ö÷>̴Ѹþ©}§ïêõ]bß]õ2~Þãè(= àÕàW‡M½1ç8ºE£ùcLuÉkÔó…ƒèHßk$½¯QÑ;ðš¶3Nv×¹:S›5[c+GCÖ¬wÊœ6ÝjK­sÊœ^ôž¡Â‘ B“r§¦^óÇf™‹—Ř¥.FýÖÐ’#Û¿Ö5ÍnûÓ©bÇ4oÇ'ø|é4MíF¨yN€ŸÐWä¥c¦ö‘R'/aãûa$ξüE‘Ù¶]Å6/¾ü%ÚlÓvÃN{¼ ø øƒñØã¥À‡ÀŠlå_|5m{Vèű¤É«oKã»$®øVð·Æß ño“OüÝ€K„[slà˜þŒ­ WPÿ˜þMU‹v°®Á³ï¡Ð¬nðŒb®ìÕX:ËsÈñ-1µS˜ íý”¬•À;Áïl¼÷_'¼ ü®ø½ŸÄß-!žø½ß€Çõþ©°ÞoÀã†xÿeb)Øü—@+h¼㌖'&ìï‹ß¡I|¿„M›ÑºN|iCº]ápÚKáÆ„ÑGufŸ^ÖoþN®)V—³J\°£õ¨Gn‡næ_Š÷wïÒ×”¬!ë6%I‘ýÀàJ*„kJ’¸ÝÀëÁ¯ìëçðPZ– :¼\)¦jÜGºX@ÜŽÇFw‹n£.¾èEn©Øè8ð4øim6j?2|³’‰î¾üÅñ˜è^àKÀÕz¦ò·‹Åjý°ÍQRâ¥ÀW¿ªñÑ[ÚøÂ;Ãí-ŠáhÑ›Ä?$!ž¸Õè ž%ÁG°ócÖ‰ãv‰Ê¯XçoŽÓ)X•5oòVª–‹®Í—¿ñûØéµ)[ÔW:ggÞÕ“ ¹š ª–ÁË=¿²vrÕS³Gö†¸ÂgºÒpÅM`¼ ªøœ_¾8>Õø ‘ÄÝ œŸÖЮðÁL»Íïã(äôIàËÀ_¦Ý{‰$ º½ø>ð÷Åã¾Ë†„Æä¿ Z? |\yÁòœ_~ø~ð÷Çã»/~ü‘}wŸ?O%ïE×™²³-|——ù»tüv3µÑüöo „ D”Šþ m™¸h”wÁjÈ]'Š_ÁÖÄ=1$¾MB<Šå}MTuhÌb ñDÌ•·ðfk±o[.‹÷•ó⼧q`_Çb÷gWÊØ%meôhì´dgräÎìoÄ_'øŽÐÐç=n€³¾\i.Aßy¤Ê;ïWÚ›®""qo¾ü½‘e!7‘‚QÞüø‡4EáH@RåÀOÇp ‰û0ðwÀ£ŸG“äMs¾{8OW—fS´ÉÍÌN™ºÏ”ïÆ €T°Ýïþ£æ¨þü§ñØîÇÀŸÿ,²íøö5¾ÑÈ® ëþZ4QõærÆäL‘¦X=ÿõ3â9w]CIºÇrЭJñ϶foUÚ-üm žFÁ{YøÛv“˜í3ò–é•qðMÿ‚ÓØÿÇœ23#a¥&RI1’ñ…TýïǬ €£;Í«Í+ÓI'Ýú¯öò7Ó]b«3íÞgZ¨ô´È!Â÷‚«Õÿ5 îxýÌ'PV{žûÆy ñ#à—Rð¨Ö[¶%8¡&ZÌ^µ¶ €'ŒÅ§ÚÎn¼-ún—H>µÏ™¶¦,·Ò°àÕkêعš`v¬ —©mjŒi¿"­}NsàHÌ™Ãß D¹~DpBM²dÏIZäze ió;ÀÏ Ns<üœà„CÜâÃLÉìUöJâÜm¥3Ÿþ…à„šìµ\Äåý#àÏoS굩ØìûÀŸ NÑfË*:lƒŒùà N¨­õ]¨— ƒ¶\Ù¢³×º9JâÛ$ģ衋¢ªCW^-•OÄ\YÇZÇ·8¹ñ “5+ÚVf²4f–-7ôâŒnŠÐ‹_§­<¯žÛAGô±ú§›y3or;î„‚’—·€ë»ÚhѨ•7í\¹Á›q·Éß Ô·Ñ%“¥RÑÛÖÓ3== a¬:[˜HÉÀ;ÁïÔf¬öѲ[ÏTÛwßÙT ÂwÊI»càcÃY.Mú·ªÍ©h¨ô¦ZšZý’ø6 £U¿FU§§E,=õOÄ\y3«~qžéHÊ8Jü°¤1œ2¦0FGeÊ­åmÆNó©IŠéÜnšÎ‡®újRwFñé¼LögföXYü‹q³Ï?äuÊg ¦Œ9Ô _!|3ø›µU.»lG|¶ Nú¼øApw9ÕÙÌKâÞü¸Ú–ümø:Ÿäø‘–w9Õ^z¼i³‚>Ÿ~ \ç<Ú˜“ËÖûðwÀ£Ï£­Jôu%M›º»6÷+™ß~ü+ÚlÓëÇã¬cSüíI÷¦Òì=ÇR¬JÙÜÝ?>™¢Ú…ý“%!u2d€&­ÿø?àÿ£Ñ’tçK±_þ/øÿÆŸHüSâ‰[´0|€z¢õ‹Ÿf\¢•;gÿÝY5¬Ó)E#3“qÊ…† >dá‹Á•–c×,O=œ²KÃZÝ™·XzÍ‚1BË]Yh¥$;=ÏÉØ+Ja `ý» RÆþ‚±/ElØ)Mz%Ë.$üoGÊ¥M„m0¥Œ]Žkø×FbOÖKu…-1H$áqðãÚJÌÃg یî5eÄäÍùy­þ 6Ã\^«a7¸¹KÏ1ÏKMõöoNÙ½ý!Ûs¤êÃÀOƒëŒ@uÚs$î!àãàÑ#PèêœÄ?!!M©_6ÊÞ¡åÁsÆÀ©šÝÒ¢3–„Îß&!E§]UšÐëPË¥k*çwl…I£Ÿß¡w¯!ét°³EÿIëÙk¸ï^~ªÖs~¹¸\éø:ùQga3‰k^~Yd_½^, VÒê ¿.GÞkèÕÜlX¹Ei»!%är îÄ_%mCqóQOͨPl‡pÂÆÕ‹]k‚¦”[ \¾¦!•À±Àµàk_Ö¶£|ž~~dŸ¸ X=ÉlàßMI¶Ý('½ÖûÀû´»Êº TÑW®î߯l^~]<¾Òܾ/²¯_aF7©{Ì~à$ø¤vYP ½Ì–*§Á•Žï,ð$¸Î^ý<ÎbgÀ£÷ê7Ì9Ôž6yžáÙ{œ&ºh‹‚eî¾ ümú]fÜ ;ÛF }øaðÇã2ï~ü#ñ¸ÌÛ?ÙeyCO\@,Vý›v®Û3Ç-ã#1nç,#ëšÓtÃ:†¥»’*»ÁIëÿüïõG*ÏÊñM Úý;ð¿Áÿ;OúðÀu®¾˜Ç“þø¿àÑW_¬å•t‹/¿2:to€”zJ`ëy‚jÊ“%£žeј’…Cµ\Õ¢³ºBâÛ$Ä£XRžö¢Éºûw‡ZÄ´>≘-»×¯_odÌÝèÌjžœ3a¸¶wÜàûQÄ‘ g:¡6tJ®†Q ±§±EmO£üí ¬Ók\ÕmX%'mäCÃ즴‡JEÇKcŒ¬‰¤‘±‡2ü“,#üê4±ÿ¤Æ2]¡u Bxø óÚºzì€lõ”ž½ä&U³¢þÄl){b‘l­í°¡³ Ü ®Ôs©JÌÌÉSܼ™˜±“Æ”]1~ÓÛC{öt†÷‚]P’PÚºQáóJæ8)ì_H` ¯›TÔZÎWªÑ«Ï"`º…VåZˆ'lo¬JJŒ%˜F¬|['‡Ò©¾¤‘³&¬Bvˆ®¨Nx“ÎôPgÆö:»Âçß(J˜O5¡„KAc ¿™Jxå :FìQ ŽEñû2ûzkÞåRëГÐi»é!¼üæÈi»¼FùIÕº„×uô#ô÷Ù)] ½<í‡øýZËSx×<Ù>6)øÔܱ:1×#×·è >Í|ÂûàAèExøEÏxsú69ÞH ²ßœxs#%lf¼9 Ù>ê)Ô×R¡¦2lá8Ãs¦ÄM.Ò©$¼Ru¦D°[¡çqÔ'”Ú ±gé0dû¨'K»)Kk' oàr/´ÎÒÂ0y‡ò3·-~J>ÓÚâRÛFcݸƒ²²¤Ÿ§$,[!ƒi}™È_üƒ2š/çÿ$>G¡:áð‘“±X$#´6·@ÂÅàÑOh]7Ç5…zásëVèD¸|Š~5Å.µªV™3xDâžÝ¢³Â =¦FâÛ$Œ6¦6g9ê ©­í®_¥Í*KF[3ÓŽ[k ãm0ÄmÁßpŒÛ($þ, ñ¨eÀœ·Ú†k%ÝÿßíHv‹Š?Ò+éø•³Åg«é³vñ£g?ýÈa.ªè÷Cz­˜ší=¥|±g˜ý'¿uW_¦gx¬lç²}cƒélÚÜ20ÖÛƒÅÝ=y³Ð㔟©/¡Ÿ\I?yÍσLeâøcÎ5/h˜¢Òz^Rg­(*SŽËÀ+ÃÏA~·ü«øláœZñæ#{»qPÇ¢§fk$}¹xNÚSÈ84ö\ÉÉ%¤OöÎï:ñ£±4fùK›Jß8²ÿÖLÉwþÏRå‡:f  kž—=–Íþ½+Cü^µ·ÌñýÅÌ÷i"pžWžöiA¬]PÇÆþ³¼‚~©\S…DbWHˆGA mÞOj p9¸RÎÔ”ºhÔÌÙf­¸Ý†lh«Î’¸-BâWJˆG“EîØíX—¥œ)Ñ­Ÿ;©ƒr’FæÄDøQÌ3uïvü)'ãÉj“Խ¹Ö*Ò¡Û…’±GÜ:âßz#n ™Ô°.a<«ÑÒ%»”«Uö¤†üv²Vq[šÄKˆGÑÒK£ªÓgóQÝñäoßeÆ^y­ìæ,ÿó®;Sñ¿|àÙÀÿêÝ^›¤ä~Kƒ•±=‹Îã—¶[™Nµ\—.|HØ)+•T9rz!œ†ð]àïÒVFý³]Ÿ~o‡ôø „x4¤º‹*HÜ»ÿPdYæ›<ü}•¤È‡5nP°K;Ý^•ŸRÐíKÀ¯ƒ]£ê¬·!qŸþ>øïÇã¿ üø7"»Æ‚®Ð[ÅH?þøEU¤m|Ô?5YÊçNŸ±NÝÛqnõ›MztÅKu•{Ç©C;ì;°óÖá»nÙ³ûÚhÀhdÆKMX%«0•èœõug×v#øh¾×ñ®=n$.-Ü“™4Ý„ü]WלŸéô·µe²…Ô1ußí)7U°J=…bžµ¯K“ÇÌ“;zJÖÉî|>סô±;·‡ÙOÑOx3^Éʧ¨eœèÌ:ÿ¯øßï'ýͱCøÞõU-pEé續 Œ9š‹L`Êoeµú©«¼ŒkKW³VÈäó¤1dœbË¥mÆ©q§ÀÀ—Ñ]°¦3y&œ>>Ì>c_¥R=ìÿ¾=²ÆôVgòôéíWõ@D±03n±`áf†æûûª_üÈ醕ó,:¯ºdõ&f%CúíÑÎÉ*%Yš«~¨ëôézÃO,›†íÜ=|c‡ÿcà_€ÿEX‡§7–Ï~cùhÎ1³È©ž¤–jÍ«({Šë÷%í¿¯¢½\ƒ/¨¥Ùc¿in² ¥-kK%—n”Ôšƒ7˯bÍÆ‚Xdyõ|ƒ_õ†ªê¦e«È™”ZŠDk¦Ëª}¿òh²íòѬ%|.8 jN'¡µeÎÆ3!cüγx«Ž…‘'iÔn‰„x"6ð!•Mdhö‘N±ðÊc®S.&i"ëÐÌ-ö_;o¥ô% ·˜æÿe|š±é¾dè-µ¥Õ'tÁÿG³=IÃtXëa’%Îe@––̤•9^ÌÑ-×I£`™.û¿–œ%»È^±ü…MÍR¤€ë~²»´Ôm gR­Ñ&úrð øÁÈ™Ù~¦Œ¾<¼üƒ0eµëÊóŽ–5IôZƒÄ·I­ÖØUî_.!ž¨ý¦ð;r¥1éZ;rCæK½&bÛ”­ W‡”I-UKóŸ¾^5õ¹­Pæ§#S¬±AûÊVËX{|Æ¿dfÖ‚ü9›Ãë M¥Ò¹8>¡±ß^çzzלŸŒ¿T’x[B<ñyn¤qÅ`1B¹‚rÀÕ૵•…ÁÚeª¥`,gù×Òòä™®°ž¾ò €+5+Âyú x7áõà×Çïé„%Ä¿§¯„w¯l¨§/ñÛª ÚuÏ?K›«rxÇÌÕ¨÷+WE%ìB0Ñ4º=~6œ]ð Fèšž’t.ðnð»ïÿòT nÆïÿ$~LB<ñûÿ*øüª†úÿÖPPP ¥äÖ&× †ëgm~áBÙö&%÷?cgÖîEÜÕÇ/æ«šõïxVOeBÏ$aËÎ*éys]vV¡¼¾ü-ñ—ÿV ñÄ_vV£¼¬nhÙi§ ÍÐ,’›K±Rw‚’à¡(xÝ—ìæfü›Sµw1VKÏ[*Øè³f5<¶]‹×†.<ôÎÛ$Äá9 欆ž…|áAÏŽl )Aa Ž*æøø#/@ç Ð> þhüˆÄ¿CB<ñ sQhÎmx ÙÎE¡9·!è5a ÐœôŒ(Açâ½sáÊ«U]9\ :¥æ\¸m»× ]‚Hü;%Ä ’v7r>t:l:e†Pÿ|èžfË „_ŒD™Jø+ñ'¬‚åš9Z‰OßÚ…)Ëõ¬î9S©¬™hOL–ºžÑáŒry%ðŸÁÿ¹ñ…ñ<@Ÿ‚ÿ4þÂHâ&!žø ãÀ5 .ŒaƒÙÀ5 )Œ?l^a|f†Æ5(kP,Vª‹p¥q Jàv-Å ti$ñ?—Oü¥q-JàÚ†–ÆvZ!¨ ŽÍo@ãò@PI5ƒŸÂ}Ü´ þ }e4ž² þ¤˜éN”ù=vâ$ž°Ž¿ï>üÙwüµpvÂÛÀo‹ßñIüíâ‰ßñχ³ŸßPÇ_àN: Šu£O/˜¥Ð„ï½s–UNêOxüùÍ®¶H™—(Žj‹¾øjðWÇ_m‘ø×Hˆ§ÑÕ‰k¾üµñW[$þu≿ں@x4ÇÎÈò½F ªu£ÏÈ.ž¥ÒÛƒ®EPƒñ›&D6·sQš4KÒò;¿›!WqüPiÇBp–4_a{û¿ø}ÛÊ& 3—›ÝKá7ë…& ¹uð1ðÇôUró/Ÿ¯»õ‰´ùð ð'4–ò:g#¸?þ™ÈÅk¡Ê5¤ÂgO‚?©Í.gZì=¯a¾ü&ø7ã1ÌßÿVdÃœÃÏÙµ' k;t)µH¡o þãf·H™Ÿÿ üßâh#ÀŸÿüßão#ø_Jˆ§Ñm×üðÿˆ¿@â%!žøÛÏͱ‘;´ÄFdå:€«[¢îК½'ý¾œ3agX#AêÝLOZ,ºó9®²hÌ{¸5 fíaáUVÑñì’Íâ~Ö· Ìýû—YΕ¨½ ç_ ®Ö¸¯9@L{ÄÃFRåÀ7ƒëÜ@P'Ò¸×ß}ÁbµèBJ¼øNpµ9öšf¹!¨ÅCiô!àcàÅZHເÿhü¡…ÄLB<-$®øqðÇZHü'$Äh¹P¸3ÇÆ…–EâT Ý:€«Z楱ÿyÉ|‘%üy‰¤äÙÀ^ðÞH5LÝŒ<|­‚n{€Àun?®œË·ê©Ù ‹³Uîߥªðœ_Þ¼\iKt¸`HâÒÀƒàÑ·@ŸcŒûÇŽŽ»N^Õmï¿K{ùï ÎåsÍBÊí.ºÎ1+SJ9îDÞüŽRç0R{øøÊUĜҦì¼_þz.6É_ª)önàÃàGv±Qÿ CÛtʹ¬1feÏÊÌçæmmó695± Nin3[©G){ðà¿hj#Ž4ùoàSàOÅш#ÿ&"6q¸q$¾µ‚þÓèF¥¾bÛ'Œ»GâTÐâoÄ]$Ü™cqâ02Ý:€Ñq³g?‹ghÄÍsÚv¥>s­RÙ¥}[¦g˜8rÍ+âp¥úlàóÀŸ§­ÊZÈÏ…«Wzê./¾üo‘¸ç_ þÊÈ¥¥-ô~7’ÿðUà¯j|EâÚ‚?Eâ’OüuÖÅŸ9ê­³[ꚧÎY…¤F0ú\ç삺Úá5R0ÙÖgI«³€¸ÑxŸ½~Jx)ø¥ñû,‰ï”¦ÔwŒf©!{\ó ž¸³àø¸xKK"ª:Jˆx"æÊAV‹Œ”ÌBÖt³Ò½%;#®ÜõŒ„WÎLR˜.Ñ­ÐX`(ˆÛ¥ á4ȯÒ¾¶%”nÁÕ<|³˜®U(låž ¼ \©“~Æñ›9bG€wƒßÝø†‰;4ÁͨÎÕúX0VÒÅÈc¾2mtæuq‰—®Ô¼q¥KÌ„WNQKGhå YÇqxtTµZs3Æ”íäLVÁšbA"ÏZšv1÷t´"QŒËôc&ºåÁ‰T\5¾MÆ+ãWWS:¦Y²¹$‰ÌŒÁ\²Ä®‹~_œBÉðh`Î2=Ö…7Ý’ÍÚûËœY¬úU,Í)°óÓ…%Üažî߇#–éšÁJÄ ‘uú [%‘·Œ l;Kp¸+êNÔ>ê‰ÿÊjÆ#“Üûø.£`Ø•‘‰vóPÕÙ¯¸=èi]HÄ×J™¬âÍ Vi†e»™rÞ+‰#d|ùÕ<P¡ œn*VèU>ë‘ׄÿ þ¯Ú:Zá¯+"=þSB<®;IÜ/€¿W:Ì£*ùŽo%^Ðóæ ù\Á²²¢ÏlXÑænÀ‹uŽU.¹N¹•™ûÕ æì/õÄnJì lµoµµÇnµ+‘H§)à)Á ºI\øÁ cp¿ÖcÀÓ‚Ft¿sƒún»áY–aæ$x«Z¿·æØ1…KÞ |à„ ðŒ9“rCyÛËt³¦LØq¤ì€Þª|ÖÉœ_~5ð½‚FtœXSÌâ”ÁRëäY7/Ë!µ”L³°1í¸ÇÇsδ¨Å‚Úʳ¨v›rrS© “³N113cˆh[¦KÛC·X(¥ïØv®à„q·X.þ žËrÖbÙé¯ë©ÑåЂ0Ú½±:WR“6çׯk|•JâV/¿ ²y>K .¿Õx†£ÏSÆ°3íU¢3ï[L™¹2vàû ;:%z$¬ýæL‹_³* È$ëx°¶á?VÙ`ÄMôgDßÌÿëꎔßkª{Ê|õ,àŸƒÿù3£~ü øOâñ¨ïÿüï"{ÔE̦¹ÙÌD§Ò&«ÑV 7tÕHªý½ÀÖvÁ ã®7c¨§j,±ªñ±µrx´Ï‘èx£‰]) Õ'±§f?Ü̸ŽçU^N)WÁ‘ZÂxI[QÞ4Aêœ>üù/1$® |ø "HµÏî½ËÇ*óNÉO¿ Æ2gÓ÷©FÖɆE>ˆñ¢jY•…H²_Ó ûUÖ¸²’â ú§S]‘“îØúbÁ[Õ6=+Täó(Õú ðõ‚·ê[ð3Ï*øà·F_òs9k*ó±I—®sô¤¼1»Œà)äÑ€£ãðxÓ#0ió$ðk‚ÆPŸ´>üºà„í¦´;ŽTø}à Nø ¨è[ÿø—‚Æa˜?þ•à„ ÓºýCòÿøÁ ãnÿ$„IÔÓþ9ÁÚ?‡Î4þÏMÎ)L̹d1Ío (ËB!{Ñ”‡ Y5汞þ¶°ÉîBR O€Ÿˆœl…5W@8aô5/ê¤Æ* ñÄŸ/W"/®Ô’/-uk‰:Ë"Hl;p xä[O[¿Ígxf_%3Κ[Ìá-¯Ü@Fsw¶ðð,?wÎã“šT$&Í)‹• Ö& ò({T†¤žëA‹¢fs!bó{Ðh]7ˆK…om³»6fì/°†_ÉqÙ«»®ÝßÅ#½·ÏÌÛ¹{AzwؤV­1B‚ľk‡Gºº*³•¬ÊZºµçÑ>¦8ip.¨ ‚sm+“›Bkÿ>j%V ”xˆÎ,Ó ?þ‚“Ã/ðf/*@rYb™Ôò&e»R,¢uaê²Æ²%r¸¶¶ÁŠçJf+øõR­!xk¤›Á«‡äÄ„²þ ¯Yë€?œ°ñM\ø}àÏ'ŒXçl÷g8ÝiSu¥MèPNŠÿ‹À6p¸CyÕ¤Íå톄úGy繄¬n£“49xøyot’¸À5àk"›fSꅚà •*ªºÂ=óíf¬N Ýù£”­ºànÓM=<®sZvS{Àç€+MËÎz­>׆[ÝŒP,OßþF}¶ªÐ㼶z;ðQðGã±Õ›€ïGd[}—5X[ŽOaKCòLÖšp-DÊÙFfÞA[¬Æ*þg5‹tʱi™hÅH¿Wµ öh/8Ó…äœ3•*r©gå°Z ¾ì‡5¡&&U|ì[O ÞzR›uL”Ys™¯{ ¯Wëó€/œ°ñ­ˆê¨õå‚Fô5,ãsÆ»ªFšù.ZÆïvÊJ ›'à ]UÖ÷±f|ÞƧֻ߷à=‡ðÓÞ”ÆWÿEp¸D)á9êimf ¢ Ïo^Æ‹¦Ç²»`ÐT˜[ã´²“Æ”m†-?=Зp3øæ¦ÖѤÉððk_G“¸-Àà;"q£T#'y§“÷ ‹ëÏÒ KÑ´]…!pRr'p\éº{m­ Ò¤,‚ã±Ú$ðxôñµç`ÆJ aAKV*v|*Š&¼z2N®œ/3_91e’ÇhÞŒš{à`¹`Ÿ([þôþNÁ\à?ƒÿsÓ]á߀¿ÿe<®ðSà€G?ékYeíJØ°@ŠüJ ßZü«–¦l-îf POtRjMC8a†ZIl;PßPë*óµ.-®y•ˆÿÞ|×ׄ•—zÔ·¬=°K͵àw‚OgCiÝ ü¤à„Mì­‘&O?+8aNð)àç'Œè¯u¾—{Š…B‡÷Íè"{¹;0n»Þœ[GÅF‚îŠCT «`—€geÐø—ÿ#µÿ6t›“räóÛŽÞv$þ6ç ð¯õ´97ÍñóÑ4r¶‡õìd/+'Æ”T.4Ü u ¥á‘&2Òä*àÕàW7¾‘¸ÍÀkÀ•*øªAÐ}r)‚Xàcš¶8.–·ŽM—æ6ßx—¿/f¾ÂG·•Ï*ÕBCK›·¼2qò«Y˜©\ ŒÒ‹j†·ñç Ô\Š®cœ€¬¸C ßB¾£Eçr•iòðAÁ cpk¾{œð!ÁÄ’¿]B^Ö£TÛðóŸß(8a3Û¤ÊÛï¼Uixx»¼ øNÁ #Úeye™JèXJš¼ ø˜à„qÇÒm°6müf;„6aü†Ä¶õ-Šê¬µÿ”¯#â7«W6™žg±ÿg{x÷ 2Öcç©uÈOñ·Ž>­“_Ï°³³ÞmôþÒ)מ˜dÊŽ—pª­Eýqy÷g’~äÎ[êf¯å™HÒ²»\LòTò¯iÎpÖ·]ê‡è}– l½BpBMUÚBʇtØ:tI7 ÞªÔ¨ W§‘¸+›WìµËßÞ=g™‡ÜŸý„NWžç¨çi tÆJ¦]°²‘ λ䄯\í ˜ÚM‹â¤­bî·ß&8aæ~øvÁæÉßÞ/Í!Í·vÀ,—œ§¿uŠzIs|EmcŒÍN7;KþÉÚ .ñˆÀ¶Ë'lvІÂØÖ#8a NÑv9°WpˆNaIçV/è˜íþt¤´Ô‚>È{VnªrØ@­E¡L”DÔ²m¯œ0îÓUÂeÔÓ`¢óëöK\Z9¦ÿìÙÞn@‰•†tk3"Jö¬õ[¡‡î‡ZBýç×)õ&H•SÀ{Áïm|©#qeàsÁŸÛ´^iqðÅàÍí|“&0³¼øxôÎ÷:# Õó1@ÕvRëÕÀ÷ƒ¿_ŸÆþH“?þñxìôà'À?ÙNn×ìë4Y°Áú|±2ú:üðü3ŸÐPéÍ­‹E:‚Qz[ ŸûüíÕ¹OùÛÐìjá=6­Ë „6¡ËObÛúºü¿4ÑÀl3Øü–R¥—mNÓ×®hb¯Ó5M¬Ùäû_†:ÿ9‡u¡]³àÑ0ì —Z_¼©MïŠX‡Ý;Þãd³žÿ5uÁéCù·ºèÊß$9y&yæmwɶÅ$#–ÞšÁ P¬ï~KÕÁV³Î×囼X{ö/=Í ~F«/+È¥ÊS;ç9ÈcñÁ«»üWåE+ÕÑ%­^©®ªÏ{àKñ,V©ˆ]Z•›xT¯ˆ&Ÿ[*°õoý_m±`‘7iºV6¼Nm‹ËoSÚ@SSêÿøKð_Æã>?þxôƒ”Ëô¯€ÿ ®¶Œ´žmú˜mÒÉ´Šmø…ð„+oUj„·Íÿ@ìJÁ #ÚfÏöà&õB9?F'ÁóÆ?Ý #®ð;®•‹>ø9›Z"Ö”Y(…ßÉFIXœ0î6Ç.ájis°î–¸Å±öÞÆYÞ©èæË™çNOP.ó†_–¦(øÊÑÞ§N^VÚ“t‰gåÂH­4U¢à¨‡Å=Wu«`>£6{®$á¸É¹GeLÒÔŸ±ºƒ —à¾Çi‹æjƒÅ;žÝX” Žg½·]3,³ÆMÖáJVTõeã—ºj]QÁ=2cæü+Q侈@6)f‰¾YÕAojκ˜O^崼栲¬‰ö*·#wÃßv“ÇÞªTÁ׬ÞÚ¦C·"I‘ÿþ¯àjý¿pµ‰ûàS‚·>ÕœˆÃT` l¼MmÿRm“„nC’"Ë€Ë×ØýÏ$m +×Ðù}-ïòŠRIËÂqÊŒ4ráßU†º.¨ÌèÆ[3—)Ó Êt UD¬GWvù°)΀¬Ô4Òá—Õ•çì:3|ÜÚ¾2á#è+?ܺu‡zúÊ_£ XÞÒ•SòðÚœèäׄÁáîf°HÔÀ%Á|j°®'kyöD!eÜÂ'ûü]4åîÁT õ"ÕÆ’ÀÚ"0Ÿ2;÷ ¿þ5må^mòžtùcàwÀ¿Óø¢Oâ¾ü.øw›S“ üø÷ôZ%t…Lºüøcp¥þbx«üð'à?‰l•ËfwêíBÕíO|fQÁh'j5â~íÖ¬Ñ1Rå,โÆ`³ÖeÀó'lRIj]¼@ðVµ»EµŽ‘*—/¼Ui½Tx£< x¹à„r@ ½fÐɶgk`è¿Oº=BéØt'Œ»=²W¸E€zÚ#«Y{d/å¦?AR«ë ÉuÁûŸƒ{¤ÑZà¥à—6ÞûIÜYÀNðÎæTI¤ÂzàFðZm£:¸G¥€ƒàƒñØ&Ü ¾5²m.æ«i¸\Gp'ݶo¿E›Ñ–óvr«Ý ´Áíx¬v+ðø±æ•¨ã@\-Ô5N”"5|øóâ1Nø|ðçG6ÎïÓ¼ÑL‹3RÏwVO1]¬-¡a`Œ/L™3ÂÌŽñCså«Íðw}Ü'úýõ#bÄ2Ý.콜¼"e܈m|\’ý©Rô|ÀÖm‚jŽžŠîÔºx½à„1¸SëvàAÁ ›TÖ[oœð™=[Q!¶Ž N‡m†Á #Úæá½#­”¯)µcÔ*°âéš5WçÒ.ëvÈn¯öëÊÇgC¯g7TÇÔ`”2sôº­±:nÐ3¬Ž·C¯ÛcÑQägXG¡×¨V/š7΄Tñ¨ExøEÚÚˆ+F‹ì%~°LÉ?tvN$öÅëˡЉ„xâVãNä€z&×—‰Éu•M3wA ÂeàË´uiÖñ®¬1dd´r„Ö¸ýì¨7T·§Cú ¼<†ž‰[¼:{2_d!Ð,` 5Ù¯^šµÀzÎb&SZ-*.áQ™o¯„eÇÍÒåÞ|Yõ4v†^}K9’þRpÅSbåoCwî žÂ@°ÂÅê÷1~_žn«‘–¥G™1¡-áx³Û¦¤Ëv`ŒmS· ¸£EWÛ”1Tc  ­t&é¶x'øÚ̵˜Ø Ë »=Š”±€ÇÁk´W$î.`<úz}þz~¯—7s9Æñf¡ N¡Û?Ü]*ˆþžOÚtº-J©È?®vÃZÍfÎ ;UJᧃ?O)ümààJ½’êu‹Û™Yp3FøMå¤Ëg€¿®Ô,eÆ„alÚNÚ „êßÛ¾l”5"Y3ºÜ5„Ó®Çvoâæv¿PÂ&mnÏ"û}Tö‰šR—Œf­’iç¼’ H³´zcè ñmâQ¬7WGU‡~p‰„x¢ŽnÐaFHU&`” xgk$¼Aà¸1J'|xÆq¿â9~òx$Í»ptB Á/ ›.z#æ ¤ïE’Þ©èÍŸHëFµ©Qoƒ@ÅС—jÓ­¶Ô:ËGõ挤‚Фܩ³¬µnql–¹j/km¬Ôy–µê+9ò·Ûç;£ 1aOñ«âiµ[‘õ¥ƒo¦.rp ¸¾j— ‡Ž ß¼'lgƒ4º8 >ÙøΉ»hƒÛ‘-º´+‰£Úìs è‚»ÊêDÙÔѪ™=àsÀŸ£%27xK)|ZRü´ŠâzB³5jƱЬ‘µ¨:"ë³Ç™6tÔuöfeJý¸×8©gˆ{zÜRþöYUÓƒ9«0Qšôg‘"߇ÁÖVnVø“"o¾ ümñ„³7ßþöȆÊWfqHdýálÌ uá.+:b¥^ FüŒÃÏ—4&Ù÷™œé…¾&’úˆ@ºc”¸Ú]£5M¿´sŠµÉ˜¾ @·èp¼PðV}Ôù<€ß}Jx‘à­JË«²aQʱTJeëÅÀõ‚F0M-­Ê[¥I'ë¥`)%{W N¨ÍN9»p¼ŽØ+€×N‡{\Ü!8aD÷èæG¯yNž˜%c'·yâ›rf=ü)–¤êN`^pBM9µh”ïÅ®!w\øï4qx“Ä·IˆG±Uê$-–OÄ\¹Í0Œkùq§´‚À©µ) Û¿*SÝþ¬[eÓ—ü%ß_O¾2}Ç`iBiµ½¦p²ÀtÂÒÄfÀ•ŽîWS¸ÛYðldC/!cõ¨™ÅæÀõj¢r¨8iâËàåxÌ’NOE6Ë+ü?EÇóljè ~‚]¼~™«=NÅþ–Úzìïm¾¸‡/ý²Kþ9âUw™úséFBÜpËZ~“Væ8 2¦E91-°µMðVõ r¶k,窳JƒZ¤ÒRโÇq³"‰[RÐà÷Gá™8asƒFÛbàRÁ cð¼6D϶ÁÛÔn7•¿4øíà„g NØܠѶø,Á ã0Ë9À o‹>oѺ)Oò/^,8aÜMêãšêiÙÓmœ|ÌóJüôéZå I.xŸ£&o]V°LW1Œ‘Fk—¶Äv'‰; ØÙ¢ë6ÎEI•FÒa=0žÐ>”±ˆŒtøZ݆€»Àw5dcÕS³>Ä[ onWº9¯æ/÷wƒïŽÇS»€×‚_ÙSÏ©4aøiGŠn»x ¸ú|/µij¹m×d©Tô¶õôd\³r»‹®CC=)Çè)š™ãæ„54¿£Ô™f!µï¾üE*ê×T[Ýy_ |ü.6É_ª)öVà«À_ÙÅ>cÀ>þþ{©ÕË“ñ¼kH-ùš>:U§Ò’ç{†Æp&TÆ,3o.{tÃY!k˜ã´ÈšuXW°dŠ¡ŸéI¾UÈŸ#ðû µ%…û”w ä·C>(P›éh2«†X[øïª7q 1ì#ź #ª:4“¿TB<s…Ϋ¿ÅÉO˜Ì™ŽÚVf²4f–i-HõŠpø:m­±µÓSc;òVÉdM¹ºTPòRàð-ÚzѨ•7í\¹Á£ß±Öúæ ’¿¸ \ß¼—øamzz:ÂXu‚)¹x'øÚŒÕ>Zvë™j;ð®–`ËDSíí§Vð)ŸÒ´e÷p!«æËE Ò}”¦˜›1ðËZÓÐß1gÊ;>£T&ï¾ ü]ÚÌ}n±¢ÚŽiÛˤ¬lYAÃ?þ¹˜ 仟ÿ|“ ä€O‚ëÛOŽ_ Yd+'Å\L¡~ø}ðïklLYîX±_þ%ø_F¶Ï‚ð™H¿þüÚÒ¿x”µð&·N¸§Zlij#ˆÄ·I­´$ª:'سBB<se„5‚¤¶OÒ¸%e$úzÓ½])c·SÈâv4 iÝfÁÌÍxâÒ¬áʬw~÷ e„L˜ J&êŠÌœ²Ë§ü 1^ÉΰŽ8ã¥iÖ_PPö6àIp¥ÈëT u{’¸#Àð™&TÚ$ÿà)ðSÚlÕÖ¿YAŸç_þæsrµN<#qÏÞ~ds,Oôw%tw÷À R!z!ðAðµær?šf›Õ¤{SéÁÍý[zŽy^jª·sÊîí_IÕ‡ŸW:W:\|%qWÚª­:'ñOHˆGSê—²w,×¢±ëĪf½–¦FXß&a´;û¸áÐê”ZøXE€x¢¶¼Âo™.Ã$„‘¶LÏ?ƒ`y,ft[ <\iÁ@R[g dö \¾F£Ø:£õ$®¸|md—x—™·?fÏOÀ§.°…uΞåNÑùããã´àÙ³ï¡`\Ã)—Ø{tÈ= ŠVŸ¥3÷(ü..F,Ä0ç[“ VRTð„î.P|¼ õêÊ‹M;÷`§Zˆº exïž ®s­Q2dû¨Çp© 0‹•óÒ‹ªH…ý¸‹¯~‘.¯âôî¤3Ô› oî „ÁFNÒö£ä‰SÔeILÙIwÇ?÷5IýÞ!˳³I^”‡¸[ áã~hM¸|{œã…í£çHñZrÒ™T>êw.ø.J¸Dš¯žê ­ô‹ (a <Yém.íçH½Yö2qÖïåvár#“H'ûº¸Õç~|GÒoýCi«Á¯n‚õ_Ù>ê±¾AÖ'3“˜ž‘³=îþB¸Ðj¾ªàFd5/ËyÅœ]J•lËŠ´ØÕ3Ðu{z[ß¡u}ô#¼üò&˜öåí£Ó&ÓÒµfÕÀ3noj /ÛU!`ÎyÚ¸“…Œ™¢Åþ,t²^¤?¬'Y¬›fN”©Ç5fMšS6ußhuçܤn:CRC'ë•HÊ+µ&‹WÃ,׳ö8Ÿn)ñl÷ÄϜĆVú(J¨¯¾iþ(L)bÚÖÉ™óÇ$Yª+|íü*¤…ð&ð›"§ë²y«›~VÝl_Û<õ/¿¬ µÍCí£žÚ¦—ü×:iæí‚Uïê]¿=1c(t^ U {Á{#«½¾¶¥3ÎTK€š¡_í׃«@ÍЯ…lõº¹#¯C:›9bñzÈöQOÞî˜3ba{“&ëf÷niÌ€ÅÃPpøŽ&dç ÛG=Ùyž4`ddhÝÞ}Ͼ±]¯Ø>ì½ z6s¼â· ÛG=v»„Šûž¶Ùç‰çwF*{ù›¡á%à—DÖòzxkJNšEKØ2k»âù¡NÒ¼3iØÙ)Óêä…ýs*U %é¬ÕÓ9cw&;§ìήd轩 ¼üúÈ)ÚdTÿ)>ÃZÈCÔ)Ld}Éäæä ë^gýÉMÉ-É­] M¶·B_ÂMà›¢wd+eýv~ÇOÂo„Úy«+>Š¿ ªàFŠØÛ!ÛG=E¬Š˜kå)~’…'–æš^™}F '“1=q”íe¹ZñG ,ax_dÅÏ—ì|©í±Ò”˜±Uìû(T"<üüÈê­qi^À©:è"Eo¸ùàÁÐʽ ê#ï|ï„lõ8ßÁcåvLœ•"îëÛä;†Vø]P’ð ð+tëÁðÞ»¡a3ƒõ{ ÛG=ÆÜσuÕz:BÇHŒåœÌqÍ §`æº*ÃÊ|:Á,;‡é®ÊYk¡Óó^¤p?øþÈé©L–PÈÔ4Ë%gΨÒÖ-4Zjy,ºð)’±c?µ0 «d˜9¾óµÙC'é}H¡¾É’«Ï0LÃ"dzˆþ›4Š“ö¥®2H>ï‡â„úFÌ—½=½m0i°ÿ„¯ì?5—ƒ/Þ¿À0ABR-|v}úêë_„¯>Ù>ê©:gM0˜Ñ§> å;Á;#+ú¬Z#A4±°)¼»}Z> \éÄ¥§3*Y«RQõ1¨GØÌQÉB¶ÿ«>†t6s°êãí£ž¼Ý5g°ê¸™3m³ÞºµAëk>å wïjB†þ6dû¨'C×JÃURV†Öî“Јp-xô5’++màt_ø(÷)(B¸|eL÷;í£Ó Ïmϳh;h]º“Ž1ÄZ“›7Ï™¤ °ßEb‡Á‡#'l»HX©á´+ÎÌmäó®YÊ&7ú«]ÅÔeèü´&Ô·ÎfÇÓ˜£„Þ5V ),ú4T'ܾ#zåà¯xIoK÷%é?jËY‡Fk­—Ã' ÛÇÿ ñþ3Ha3ãýg!ÛG=y;w9í˜å·fXŒlL¸ÿt'Ü ¾³ ùùyÈöQO~ÊËi+9Z¹/@!Âf> Ù>êɤ›Èé*w]O¥mo¦úl)*ù!©ïd½K·r’fÆ€âöÐéú"ÒBxøMz žÃ×g‰£ç*‰œ³ÿ+9KÐaoÛp(µœ¦ÂðÙ—B} †0XµHO:No΢ ]¥@W—OÙCi± '—ãwû„m_F"€Ðd&š1ÁÀË+…ÎÄ× a3‡Ì¾Ù>>c‡Ì~Êv‚wFVtë¬)¿@øç'»Œj{Ÿäöoðo@g­à[›`ð?€l59õÞã@ôÎã"-„ú‚ܦúÇÃ×¢ã¸ó`ÔnãA_B}ë vUWûrÏ‘YÁÌ©ç¨Ð5ûc(O¨otk:ŽI¾ -—Gßó¸¬Rû‡Öè[Ðâ[Z5 _|²}ü¿Ð}ýÒAØÌîëw!ÛG=y;wmåñ‚Y,öõ¦´¶òO :áðMÈÎ?…lõd§¼¶2ÈÈкýô!Ô¸¶’ugém}]ágÄþz6s¹Æ÷ ÛG=v»s}emepÁ*ßêßl$.Zb>œGhÚbgÊ¹Ò ,4fDïͤÃéwøÒ1»P²&,7|ðþ $ŒðNð;#'òZjR R¤=¹i¹À1æèʦ™„hµŠ›ÁTou»õTè¤|ê^ ý>†+ ƒÛ"Ų˜bz)dvbÜÌ”¨MÍSªÐ¨þK(I¨o­T/S˜r}>…+>¥ ö_AUÂ^ðÞè.IíÛźBÿŸ]wP:Ò¡ýk(G¨¯Óµ)Z4YC´7áûEÒèLu&õ»N+äê  áð M¨õ~Ù>ê©õn«îaÕÙ›TšvxYûáéÎ8WÚ8-m‡žf->r:ƒDÞ~[äÞtµ,Öpñ{†u’àŒò-ž,ÕÉ`_¨ÿqè´ý-ÒCx3øÍzŒ'…!ÚYÙ%Iö·±ö¦úÏàY:?B¢~¤Õx—S#1Á¬–4 ®3=4È0ã䆖œþº^ ~©=oß´m0™Þ6ÀkÄáÛK²Oø¿(÷Cëùèö­zžO‹Nõº„~ᛧ•õ­÷ÕóóRY½¿‡J¯U½B½.µ ÷ЃP_ëyg°¬^èÅŠ…üOÄC×*R›?iXffrh  q‘åqøôÐPßÜcÛphEþ  ÛÀÛš˜ÿdû¨'0ÏZ8CË­‹E×9É—UW&¾ÌLÆ)Ä©lP4sÆjtoÒt­¬1á:å"Ÿg °Fb‡Á‡õŒé’®RPfúåi;==U±‰u§*‰Ûâ*òá õcÎTø`üS¤…Pߘîù—ÓL¸Åô7Fšÿ£Oüƒ•ÉéôPá.ïFú™Ì„ßôö3$‚PßüÞ•Ò†7:¢ è6Š‘Üá(“y?‡–„W‚_Yã zdƒšë•C«ø/P‹ðBðè·´î †x½Ûoￃ…8c=¶þó¦užÜ¾˜³Œ‘Û¤¢k˜4µ=Á>Þ·[|:9ÿŠ$îߧ79›ç&Çï8àÌJJB¹˜‡NÎ/„_hMÎurrÒ}”žÚÖ©ª¢äžOmèÔüR@xøu‘S³[NMßÀœÔxVÑt)šÐªžŠ¼™ƒ•Æ-ÎC§äß¡=ánp¥+?«[9U)Ùú4RRšt-˘° ŽÚÜÙ/¡;¡¾VNøÆÅ@¶ÿ¦S~…tFšN©)vé(¶Â i­[NAÜjÍÎÐG¸’ø6 ñ(¨Që¸äÅ—™ë‡Tê×-â°â_ãýšÌ²dô¸53í¸µîzù5,AxøYñ[…ÄŸ-!µ ˜óVÛp­¤ûÿû/$»EÅ!é•ô†ß¯„Ö«é³vñ£g?ýÈc.ªè÷Cz­˜šÁžR¾Ø3Ìþ“ߺ«¯?Ó3wúÔèˆu²èÞîZKŸ7äf“õC‡\ºƽãÔ¡GöØyëð]7ìÙ}í 4T;2ã¥&¬’U˜JtÎúº³k»|4ßëx×7—îÉLšnBþ®«kÎÏtúwmf²…Ô1ŽžrS«ÔS(æ{hÇî1ó䎞’u²;ŸÏug(}ìÅÎíÆaöSôÞŒW²ò)jƒ&:³NÆÿ+þ7ÁûIÿÆÞ¡N|ïúª¸¢ôs]Ɔ ÆÍE&0å7ŽŽŽ:åÒ©«¼ŒkKW³ø2yÀ]o°‡eÓ𡻇o¬ãðŸ~ü ažÞX>ûå£9ÇÌ"¤J…5ÛÙ”= ÅõIIû'U´—«ãµ4{ì7Í­B6Œµåbm©äÒ’Zs¤dùU§P'i^=ßHS½q¡ºiYÀ*òF&¥–"ÑZd²jOVM¶]>šµ„ϱ¬®Ó”Ç‚f %73cH¥6 ñ(V #Ob,©ý(êS·’o0£NN-•žå ¯YMÌÓ‘ŸG¡UÀ³À•z²5¥.Í[¥I§Ö@ôR8àR8¡4Œ¡É»6!z%ØÖÉ[³,„„õ ¥ÈaÂ.ð.ej©ÛÈ:¥ZÃôåÀx*ræ´…_”@_ö{Á{5 ”=ÖX­S‚É#:Z"TvÑ+6ß&a´Š­#ª:4ü¹\B<sEáVi<´Ö5¬š*ØE¢,+èÖ\¾J¹Š]0K§sÌ>”Ç=H±³—_¦œyzÆ=H—+=à=÷ q—{Á{£ó”‚EÒâÑ–z›uÝëˆmö÷Å_É‘ø~ ñÄ_«H«”X«´SË@A³Ž–Ê ¸b²t–F7ÐHŒ™)Q'µäbs¾X„:#¶Š{¿æ½c!궩äújààwh«Ž–Ëí°°µaè€;¯•ïÁ‹‘ ÄAÈSˆMðÚÅPnWÝöì|6>|üqm6î6vÆ<% ? üø7â±ðÀ?ÿƒÈ¾½ÊÂyÓ° fîi˜šåœåNÖž{i¹’ÁÿP`kBpBM_áêRI­T·ö· Þº=›·v¯œ0¢Í¯]ª)ÏØ‹¹²šY[‡€÷N¨·®vén@%«>ø Á ã°ê)à+'ŒhÕ­!­Ê³¬læ¼°-ORûà—'ltË“°b¿"8aÜ-OÿÕ úOü-Ï•¢4pÔÛòTþ!5:Z*ÓþàŠÍÍÙÅ|µÃOWaá©L7 …öYÒè, n4ÞgWÂg /¿4~Ÿ%ñâÑ”úŽÑÀ,5dûç,­6iTl|ÜG<Š¥å¨ê¬n ÖŽsÄ1WV°Z䧄#YBª$-*¯µ÷¶yímRè\àEà5>JûÕáÅàG6ÑF¦ìÒ¹Ã)°ÿL;îq±'âéy pø>mö[JCt©rÁV2ßÀ[Ào‰Ç|û·‚ßÙ| ùÆ/Ë<x¸¾ÑŠ%Ü2ù)%ÃdÇÁÇc˜;9ð\dô¥ÂVÁ$?,€âLg “¨'>žOK&ƒ:E}½#ŽcC"šV©Ð¯]ܾ±ñ¾KâÖàjCò·ù¤öÁZi×çUݧà]À׿N9É ðmï¨=N+ßüU‘V¾8yê4_ü6šXŸí:Mž(œZŸ>}j}ßéÓø»³GYËæÔhÉ,Ÿ¾³Ï¸Ò˜ºËöèÃà³Úiœw%%ðõÀ'ÀŸ›PzcÎJ¸E£ùc,-RAXТo ýÎg$½?£¢wÐñj;cÿLÕH5jÖkFs-?ÚU/«ê,tÓ¦cm©uºé5ßA—;ìò_Õ*!MÊ¥šú=rÚ,ûñB³ÔŨ Z¤äoŸe˜üZt>9ƒ‘Ä‘tªž?ÿ³¦Å†å²çU/÷6ÕxðçÀÿ·ßxðï’Þÿ®¢·žx Ešñ`uuCëMÀQÁ 5ĈÅ,Fx ­wHŠß¡¢¸– ¡GÚg¼Œ&{ z” 4Z¤µ’%µWÝ+5¾š-u«ßJ¿úÕäšò·—úÕ¯GÇ/Ѳ¹`„C; òi¨yºiMð{´d,*M5«]šT­Yï¾VpÂß„Öwëë$½_§¢·žŠU‹5+Ö•£‰Š¡•êW-º…®_õæLmo¹ 4)wj×ûõ‹c³ÌU¿ÞoœÔ3ÔûzJŽüíqcèI*Y›7C›7GÖ&ô$չ•|fMRIwÿ4`’Jy~•Ô¹¸|ƒ6®;GEâÖ7‚+MUåÂI\„K'm—]ËȘcÌbÝ?â%yRÜøc­B`Y†Ë>sò•³9 ™\9[9¥š÷C— JZx?øýÚrvÉ(.ñª!y5ÜkÖ‚º<’ø6 ñ(z|[Tuè*ø%ªï]–¿½ŽU;ý©ËšAºÖ‰²å‰µÉõ¦LC;—TƒÔ:g8òöQ¾ŒºN&¶¢¼6ѵÖÁ|ŒæZ‹¢ªsA‹ØÈë#žˆ¹²Ž¹Ö-Nn|ÂdÎtÔ¶2“¥1³l¹F"¤zÏ‚¡ž%n¶Ð³vzjl{ì.º…É”ãN((y)p ømåYmYGîÀAðÁȶk ½äonߦÍH—ø%MOO§B«Ns›”ܼüNÍí²[ÏTÛwßÙT ºB×¾¤ÀÝÀ1ð1í~qËtŠ†J¯A“ª_ß&a´êwITuh½í ñDÌ•VýJµnÒ¸%e$úzÓ½])c7 ñ¬‰IQž S·Y0s3­h*ø0Ž¢ ùg‡…>èíb˜˜p|D_pÀ)»´ðŠuiFJfÉöJv†ýsÄ/M›nØ­¼¤ämÀ“à'5ö$ê "‘¸#Àð™&Ôß$ÿà)ðSÚlÕÖ¿YAŸç_þæsrµNŸ!qÏÞ®Ôë©ž%Nôw%tw÷À R!z!ðAðµær?°f›iOº7•ÜÜ¿¥ç˜ç¥¦zû7§ìÞþá•T}øiðOk´Ý”åŽÕûðqpµÍÌò·¡«sÿ„„x4¥~Ù¨kñ 35Hؘƒ41Â’ø6 £EØåQÕaeŽïþñQÏN …ý„—Â$„ ÀD*Ì5çd±â[A¹ÕÀ5àk4Ûœ]8^Glp-øZbë áI[ù0D{‹ê€¦ümøÀKò×/¿@»K,âã«u§%æÑm#0 žŒÇ#ü§»‚qx„ßO§šä=ÀÞ–g«ÍëKÈ#ŠVÉQÐnx-øµñø„?®²|O<>‘îßÛ$Ÿ¸¸<ÚÆú>1‘Ëç´»8 ®oɼ>q#ðð;âñ‰ýÀ;Á•Fªkè¤Êò>Òá.`<Û è1¥ Û àøT<^q8 >WXÀ“àJãU9œïZÇÅ MÊŒÛ%,åßMOÚ™Éà8’§Uæqσ• =ŠH þ-øßjËç%£že™9Ï©Óœ§–sgKS;9$¾MÂhœ³Ÿ®:uçÂ×·ˆ“ |Ä1[vóûŸÍ\¦œ£‹-s΄áÚÞqÃ¥ “ÅÕó†sVÝ…¿ôò2•p7øîÈ)¹!k–èÊËãw#ç-Ó+»ÖPçðp'«{í¡RÑñ’Æ#k"idì¡ ÿ$ËÿÄ¿f85–™dîåHá à74Îkëê±²}ÔSzŽòÛ´©j¢ãéªW®‹esÌsrer!æ9¥rÖâ¾S,åì ¿|Û˜±L—îÙ¦?bîå¸á=g#DxühäÄ 0÷&Ïaa01c' ºV›)éCƽ,],AÆ•\û(WQ' .áø@ü£ ²}Ôãב°bÑüÚ)+•¬,\aµ‹EwÛtöMø\½) Œ´Ò zé!ñN;9Â+$Ý2œb},*¼™“í£3_Ef–7Ù×°w°±~V, „n¨Mxxô“û ×)² ßÂþ‰ñtªNWÒèoñT#4À&X¼²}ÔcñÄ|[:Ó0´º½P‘Pª#ª»¾¶uqd¥šÓÐŽp=øú&¸²}ÔcàËê88Þ0´ªýPPjíETµ³¶qÅÁ•j¶•"qÐßèÔÖË™÷Žpß•6i5gèn‰o“0Z7gÎЂèʆÔis‹ž„«Z"œå_§ïYÿŠðÍ0Äæào8Æm–„xÔ2`Î[ó_¾ÉnQñGzã7úŠðè÷QÏ{K¸Q§œ,˜òoÅzÚÓð”»þ¥PKÁ—ö rû7ý‚ðÍ¡ bÿ¼¼F_biL•‰]&ᬧjhò| QþÕààJùRSêÓ»\ʸíAâ—K8ë: ˆöXLå'ÚÍà+ÁWÆ`i™Ep>îªøm²ïùˆG“MV]»PJ©Y¦½¥r½÷¹àçÆ`™vXƒPÚ^·eHü ñh²LÒ¿šÝØ_ωqνf†7ùôM”{ÙÂX„ýàý Wï^vÿÆIÂ#•qŽÄo’¢á"ßËNÏJ ñDÌ•ÑY÷²Ó6@DOб1.+Z÷XÙ®Êvàdãp²ÄÑý{½.éðcõ= ~c’p|T[IQ» ŒtÉ'À'´•º³½$îà$øddc·…^Lòmà1ðcQõøÿîRÿÿîR¦Þ¥NŽ~8>Öáé¦Ü¥NZOKÚO«h/× ÿy—º¶\¬-µÎá&Z¤ÖRŠý.umIiÌ•áÓâÑdÛ3Ý¥îfø× ÏrofÆøã>âQ¬:VEžlZ ]|œub ˆ'ÃßË-~ÉÍTÅÜi©Û¬s1“4ÈÄG[–´¨Ž¸Èß*ÜËí_Fêßµ¢EG'$¼wÈÃÊéŒ!x¾¡Áy.µ]ÚR¹.{i‹â]m…æ}™G¡•ÀÕ૵Ux‹GóViÒ©5#ßÕ}øY‘]e/•Þ±R)i˜ôŸ’9–³†öî<8²'i¸– ªÿ‰gç}Zt‰1Ó:2|óždh“ïξü–ȉégoó¬ìÐ 7`?¸Îê²gNÔž[ XݵËß*Ý@Ø&a´6{"ª:å—K¨>/(«° úì–JǨÆ6hMulëIµ:$œµMüø‡â±É»€ÿpd›œÓEÕYÁ)¡ª´YçBÁB~\iô&\¼'qþæ¸/€!þxO⟔Oüñ~poŽ‹÷•ej úu¥SÅ ?{”ô5gú"°W¢~%Y*\+ïLñ;?üóÕDÇœEÖuw¼ô3Ô…]qú“õÓ»X£"j#aô¼·‚Mm$¬Ay&ü8øÇ_ב¸÷?þ‰&teHþo? þÉÆWm$Îßpû)ðOÅ_µ‘øß‘OüU›´€­‘£žWP 'òk…œÝ‘qÏP§em÷+ó!CgÜ°Ì̤_•i"YòË0éB ©òc åç•f£VY”îUÀûÀïkr•Eº¼ørð—7¾Ê"qϾü‘ Ëu]³†z ̦%k‚< â“δ‘7 38LŽ •Ž%â•Àoƒ«MÕ²ëZØN+ÙULû=àÁi¿üð¿‰lÚ³Ä1žÑ ßßþ mFjO÷ööªè×ÀÿÿŸx ôoÀÿÿß&4HþS)DçGx4¸¹@bÛ!G†´6a=/‰o« ÿÄß\ïÏm\sa1öä((×\ ¾Z¹É0{âòšyš &ßEäZžg0µåæ‹¥³ó¡áMà75?N:·ï¿«ñÕ‰Þ ~wô8µ‘Fê˜Àà'ôÅ Už?\àsÀŸÓ„8AòOï×9ô^'NHyñ¡÷öCï¡ã‰¿OB<ñljuÂ96.N´ÓIÍ:€+Z‚ËŠAböXÙu•Õ-Ô_cÕ4¤op†±YÈ:y£Pα"V­”ø:–ðÁbÞ#< ~´ùÁ‚Ô¹˜×¹º·N]DânZàÑW÷®kÎ]‹…úl9cÙ9»4º‚"¥ÆÏWª(ÃUP$®xütü‰¿WB<ñWPþà„« –ø·´ëž®´E¾æ†°[èp(º{É•V·ÍnÒúšSË6öü† ][ö¢pQâÎW;B¬fl ­òa+,Rå°^j|…EâŽËàåȥ⊮”±×©iÉ$_KɬnÙÜØ –›¾ ümÚ,·¨Ó+8ÓJ¶{7ðàˆÇvo~üƒ‘m×®°óŒ4øð1ðÇ´YeYgžs;㸖’i>ü<¸ÎiìyLóQàÀ¿Ù4‹RÆHøÅœ¤Ã“À¯‚U_ewƒzÒ˜4ù&ð;àßÑf”Å£ÞMå@©9‚¿ü.øw£7EÂ6ÄHüŸHˆ§Ñ 1×üSp¥Å×Ñb$þÏ$ÄCìYÂ96p-%?2GAµàÊ–¨k)g«t¨Æl5¨Ð!d½DÄk1ëÄZ\†]àoÔèaŸ’tðð;ïüÏ‚ÃÞ ~güÎOâï’OüÎ!þ†:[&lÿãBx;á2põÃÊf’<+$ÉäÊ^Iîßã*¸˜O(gàìŒ[U9wK©IJZõ‡À‡ßî!q]À«Á¯ŽìÞÏNûÇr!X̘4ÌÀ€Ž¨™hóKÎÈ›™I»`Q—ý_ A#'¼·XvMMý›½ž [wQ²®> þpãë.×|ø⯻Hü%ÄÝu‘(0Ww-'a)èÖ\Õ2çš®ˆ‘ûýAýuÆžeæÙ‹Åœ™q¼rm6?/‚• q.¯ ¤Ûäh+âì7kÀ…vV˜Ç-\ÂMãÍÁjJqàOØ¢Eùu6ðÓàŸn|ѺʼnðqðÇã/Z$þ ñÄ_´.FqºX{Ñ"l©kž:§º]ŒD¨¿¼ÚSèîD9O›yÃú,iuÐ7ï³ÃO /¾%0´Ï’øN ñhJ}Çh`–²Ï‚k^lÒaw—ÀÇ}Ä£XZÖEUÇ@ ñQù0·*5^Éj‘#tµ­% ö«{J²Ð=rÝ®ÅW¬Ð+b—rÊØG«Yå;°ƒØcLÙfPFYr)œƒð•à¯ÔÖJ¯{Ü^Ýv9éñZ ñ4º]Nâ¾\mœüíÛþmÂÉQ{œn¬òo3³òÅÉS§ù¥U£‰õéÑ®Óôá‰Â©õéÓ§ƒâq×±:ÊÏ{5i¾ ¸|MØÐs®¦Z<š?æ1-¥2M!¨æ¤Â­T¤ðZIñµ*ŠA¢íŒý[2B#Õ¨}ÀÎh‚Ùu´«^ÞÔ¹kJ›Rµ¥Ö¹kJ¯E¤3‡êY×ᛕ-ÜÙc–ºuEC]SþöBÖP`QH ú›µý!ùe¸\½eµßö†¨>O­ï ªÐŽc£%ëdéTi2¨T•&U+Õ~à~ðýZ*ÕE¬Rmlz@Òû€ŠÞzêT-jÔ¬SWŽ&*†VªZµèºjÕg¿j­×Ÿ“ B“r§v•_¿86Ë\õ«üÆI=C•¯§äÈßÕ8‹Uø&-&)Ù™rά3*hÐØQ„:èEà/jZLX%JÂQÓ=};kpÜ—°Ä¿£Ã‹ïÏoHtx¯¤÷{UôÖ´¨Q3:œ3š˜er¥¡EÁÐ!BŸuÎ"攋&eQíg(Í2\ý`Ñ8©gz ’üím†]ò*SIMäëu—E‡¢SÈÒ~¬mNðuVÎâóB•ÃœÌ’kŸ4œ±’iè(š@Pì] }|ÿý{[T÷ßÏêVפSg*¼fü\ 'ÔdrùÜUOÍRwéé«pe麸FðVånìœ_^¼HpBm¹Qg”–ĵ/œ0¢û_̲v¥ŒCŽk9S–›4rJc‹t*2ÇAÁ[Õ/¹Œ2¶Ø>¶Qyp±u+pà­{´´t?¸ØºWR|¯ŠâZš:zÔ¨½5w4A†UißèÑ*lûF£IÎ4º8ŸË7+_ê6(uþæƒ&甿µæ^ôÌ|­³ mñ­X Vk ö>ˆ¿œ4Uú¤ARߤ¾_[9\ÀÒ« ÐG¼UçùóÔG~BðÖèç?ƘeüE(Ùjk© ´þ6ð;‚·*mNÓ2‚°Zî)m¬ !,å”êc­ßþ‡à„¿ c­¿’ôþ•ŠÞz«5jès«Ç6*"èÑ0tÕgž3 "Ì-MÊ£šÚ±€6ËtõÛ“z†v€ž²${¸Æ?¨¢Õ¬…ªÅ†µ/‰°=cžb¯ŽÍêUÛu‚F "WÌ ",)þaÅkõ#ªü½=‚áFª=‰ -•õ¢E¤’Ф쬻\V¥<6Çø G³uNÅÎpô®²Ê4v×ñûMÚ!VQú;!Ð+ ¶Ñ%­\W07üdÅ!nEÖ-”lÚ²ìärvÁb?QšQ_2ã'~Áe‚/PZÒúÌ[2³àràvÁ„¾…½9šWIz_¥¢·–5³dFnaƒ“FÃ4tÉŒf=å·Ô–Ì4Ô\u£I¥ÎM4•ùÛwÖÞ脉̧7Rɺ9æq~ }ž(Ó2×q°ö†z>Ô¹ñjt”¼’YÈšnÖ°\×qk\`;²oøÍUrNý5rê¯#çTè= áæ6msU„FÚ\USê²Q¯<æY|*±†pÚŒÔáí•'ncø…â‰[+ý>6Í'®„ð+£úļÑæâë‚w#VÉ£ !Âv»+ña7x·r:/ª-I^ ñÄíRIXÏG-.Õúûb«ÑþqiÄ ^e³5­Xó –›çæåç'stN>?S ]tÖ£'<¡VX)Mš%cÌÊ9ü¼Ö qJkÂJM¤’Ü‹ŠNn¦àäYţ̔ÇìŒá©³âu%ù¦ß¼9cLÓ žtòçI3O‡ôð nÊ8’DÚ=n˜¹\pJ|×: j{Æ1Ç.”r3†/Ò‰²Y¦«ê"…˜{±39iLÓù@ÁN÷°W»'ö:' Æ!–ðRÉJé­[ûºH=¦yÉÉ!ªNÔMn 8¡¦&ºÊöHÒä[Àï®6QV§¯Rgá ‰û𻂷F>ñõ›•‚äþ>H:>‡»£ãÍrÈq~hºª_:JÇßSÉÇ›ç¶ÀøÛg.È8…q[Üóe1Ç.zVObr¦h¹]⟎]Ù±I¥‚ýp•~Õí:$‰^ÄØ‚\\RÆ>gÚâËØ7yq¸íát¾…?k»¬E‘›áI3]Þ*eïŽP4IŒ™t03Ó[õeEºÄ¾¹'HЧrÑ:cÓó:j{RQrMÛó‹ÏJ¤®ÈÁÏ? _¾ZÿDà‚w N¨èVQÖK-J÷$úòõºÉóƒòïþ¶à„†A¼bŠþ¤¤ø'U>¢Mš•lÇhB˜6ôˆ6½Bè5Ê™ÖLÍïöÍÊ™Úà •:Ïpƒ>•¿]ÂïtUÚ$6O@›'šRg¶æU«ËÏ¿"8áoFuùUIñ¯ª(®§ºÔ¢Fí‹BGy¥šR‹J¡kJ}ö8SMY×Ù›•)õ+ÉÆI=C%©Ç-åoߥ¥Þ¬s6ëôP»RÆÑ‹ä×¼ú‡tšFÎöxK]‹q ëtÚt&2¬)͵^Ïu¼qMÖ'æ‰ /ž8øªªŸ¡p9€”WíyÁÛóÚŠð’=¬«_díðZµOO Þ~Z£ëÔ½ €€÷ Î1šë´…,'ùÏÞ'8ǘG±R¨…|Ô30Ú+F±h´…Nm¦þ]·—1q¼[Žu«íR)ÂέhJØ Þɧk®âæÍT¹`+(7Ü ¾[›kË›·æˆÝ¼üZbë Ö¸4pxôUþÏ FÄà"U²tˆ»¢¯ìÞ ~·¶úo~X4™Úàv<–2ÇÀծĒ¿® «Ñ¸.ýßÌ9NÙ£«Í sϯ®oc”W uÆÜ̺#naë9JôqàÁuÛÛTV«[…y¨4„Æ>7I37íÞĹI¿PÂ&ÍMö!û}lšOôCxTŸ˜wnrí°Õ½G,ŠóGwQ£@AÙÕÀ à”;dË¢‘Ôè’Oܾ4³ù¨Å—Ú¶‰æMrL›3Áºz:àw¦H×–c 8_²úä—9ëü~K J±H þHÌ­ÑÄ„Ç£=ûÂsò¬ÖÏѬ…!&2X?iÂsMŠ+æÍLšS˜üp­î`K`eþ”_zëZygÊw¸úÓ…•C°Â†&HXø²²L¥"¦l(¥¼QKó/ϦŸËUͯП™žÇ#&Wç›uøÉb¢ï™5KA ä ñ.¤”·ô…™wÊâÀ×òÄž“VÉršv¡YR–ÝI1½ƒ‰˜ÜL’…é™`š³‡Ï"a†’Çš\èëšâéÃœuÒW£9]~œ³Ãe,}ÔBc:bÃ~|vy*mÚö‹¨aŸŸ ¯íðàxPpÂF·ëIÜNà!Á ÝZ$qÛ7N±B[.~¶n#MnÞ&8aÜUìf¸¨zÂõ•3Šœ™ÉÐ}F–‘+— /G³ž]råC%Þ2YAL\×Å*ÎJGÉ –Ä$„ðFðµu’V¹–_-+]õMZfÁ³/$î0Ð~Õ÷gJ }s=ËK ¿õ‚Žæ&Zuœî¥®¾%NƒK3b_»åœ?¢\Î% Þb¦?¾!nÀ ÛŽù6K掦;f—\Ó ÝR¡Do>&8aÜÈÕðG›•®pÂØ[*T‹·Cx[*$~¡„Mj©ì@öûØ4ŸØ á;£úļ-•­#6‹$•QäkmZgÁŠ>úÆh¯7XH¡›§¬¢UàK­’³¸|Ÿrf]T3“×Kˆ'noÛÃú¨§ ó4a<„.²ÍÐÎVÑ‹®cf&ƒÍžpÑ/ÍÎ2­¸_æ®`K®ÀÏ+ѱ¼gÅ:Yblñ»¬ÙRæ1Ãa‘;ÅôÀ‰¦kJˆ_åC¾²bW@•Z4– ³b‰{!ëäÙo³õdy|<çû2k•ó…ꮺîm‚nÕs-ó8Õ’2f•¦-«PÝŽòºxYsùDRÆ-”tÓJHØ «ï&» N¨©M´„å”Òh©óàË'lôh‰; |¹à„‹e/æÈ·h|/ÝÛÛkð6’tªV …ø#m_ü´à­J—2×^Ál¨b¾/¿(8aæ{ø%Á #šï:>ŽW¨u—7ßG%X®N䋺ƒš"üP9%âËÛ– Nwˆ¸„z$÷Ϭªù(ª¨NY-+êG>J9.Í šþ24Ô‚Õ_U.§5)±Þ%YƒßT«0¯µ©'¼ü~mŬ©]o\¦n9#U^|üÆ—3÷Bà«À_Ù'’•UHèFÖ,™Â’åb1çß2¬h»Ÿ×WE¶“ž*¶ûðKàJ•UxÛ=ü2ø—#ÛîªÀvI´ÄhRK´€ü7æ¸KÇûVß­`˯äg»E`“mÙº¸\ðV¥º:´-[WN±ùÞ7«öõ £_}²o- t¦¿HËéå ›L`2*=»ê)'é]¹ÞïÂb ’ØLÚ“™4]v”'ÄLÞ©pŠ–+µ»¡*k3ÛÔÂÛê±ÿb7ý ­÷HÊ;á“ÁxÜ°êÒæY¾$¤ä–3Ø,o"‘¬ ž§Öz¥/:´“½V l»Fp¸Cû^áþê íDh¿± MjN2Ã$ý#¼«=UîÁ†å –Ç.áé¹i <®6©-@“*7€i|Å@â®Þ ~säŠaãÓ¨ä+í·Àª•òY)J´PJ*JIÚŽžÁVv¿XQŸˆÞ“§Ð©­mh¡@? –;y“vÑ zÎuN„÷;Þ¢>@sU¯+ü΄g˾«4íÈ•«\в'µÆªj¼±ºÇʇoè“‘Ž ä]ð£-ª]ðHµÁ>”õŒ]ê×™z#<õ‡uhÙƒ˜'ð{QIßBEÇõ¡2ƒÞŸ£ÊÜË›¹Õ1 Os¨²K §·H²èë_+çi”ѯ—Ž‡ÀÔÜ™%ax*´·ì‡iöSæ N··Hõ«ÆØñãJ·Ë+c‡ÂCr3Áai9¦…1~"̯0aéÏö9na£GcŠä9¾ÍaÆc”Hoݼ©kÎôãì-„Á¢Êžàæ Ç-«(–YBW~(Þ ^ „…¶øõÈ^ƒÿ8~‹„h›63q cŸ­¢ûvoâl‰_(a“f«n@öû¨ì5¥.e…Ñ´s^ ɤݨÕCg‰o“b“óŠ¨ê¦\“OÄ\YC“9,ÖŽ³D»(“3½Ð«/n‚•×€¯ÑÖ:_Ú9eÓwa›è¤ÏEÀËÁ/o|Ä­nß}FLXÁTÔ˜ÛÑY–.ZôƒÚ¸“Ë9Óô¯JPÛÖÙHóÀ1ð±f„axa㦪0SP¬¸\iX¨¦B#•C *Ck^eÛ†?wNýÆG|ηã˜Ù¬M!Τ£ id‡·¤R \4ÁMeÇ.Yù:bÛcàÑ=/tmKâ3≿ŒÀéGZÚY»rt^O¸\i„²¦F˜Æ”Å׳>¬#à=Â.ð®Æ;òœ—ð ð+âwd¥„xâwä#pÞ# uä…%ÐQP­¸|¥²'/˜¥ÒÆÚwqE„SÈ͈ JŸÜ¾E[›«ƒ«§´¾ƒºx¸ÒÍKá]$n¸\iXõÁ1]a«’¿x\i¤:\uCâÚ׃7aÕ‰?(!žø«››…Ssl`ñþšùëFo8ήl6™Áì‹6+ƒ¨Õ+YÔ«R}p7¸Ò :z–ÝŒGxøM¯xHܵÀaðá&T<$x\ç|TŠ‡Äµ%wÅC¢Jˆ'þŠç¨piŽ l°Óä…‚fÀè öÙ5ÏôÜ{e‚ÅÓ:›¥î:Š÷_þ¢æ×]¤Î+¯mãë.÷bàëÀ_ׄº‹ä¿ø0øï»H\;ð àoˆ¿î"ño”Oüu×-Â¥9ê­»[êš'ëø—žÌQ§½_6g'íìÁ2ÿ\ÏQÉ„õaÒò,`/xoã}øø-a<¿“ø> ñÄ­Æ­ðZõÌ-aEé…`ólh@¸\mΦ–·ž eHUâit”!qK«ÁWG6Êù3³æ ¦þ, ÆÇùX9N@ª:kÌASÅÿ‘`EäÜsƒe!5æ`x“'8XÁKξü}Ú¼¤}Ì ¿è•Ty øqðÇã(ï~ü‘e!7ª‚Q~ø»à¿«Í( Í\qRÉ*Ÿ~<†­7$î÷€_¾õ悤!®<à+ QvD‘R0Õ— þ×ÚL¥>ûLúüøSðŸÆc®þ³Èæº0¨R=#ky×£eÒcÎTøun¤Ù϶.œ0î¶ÂmÂÚêi+ôa‘›kyå\I¬g“°%¬b§¥dQỺö«5µjVM\½°¾Nºl5Þ×I\?ðjð«#›pWp ^Ê8âÀzþ>aTª¦*3ó‘Á&ý¯Þ~_$“Ö2í ÓK‘Ò)®´‚Šï~ü£-\9^qÕS³ô^3T¥x ²B^ |üQÕÌùå?þ±xœÿyÀƒ+5Òª2{µäü*}ÒæÀ'ÁŸÔV;)°‘:_~ü›ñØè‹Ào+²¶%k.¸—N›ô{;ÅœéÀWÒûÛi×qµÝoóVLí¤fxÍZÀ+W;ñ)|}´bˆôU¯†Z×/¼UyMâœ_>˜œ0§‰»'ŒèâË*ÕPØv)’ ®ñà­E£|x°†Üó[F[t¶'C7kI|›„x‹l"ª:w´ðcÄ1WFg_ÂŒcY픓£ù"×Ê– Yºï¸È¨4á4Mάë‹4Tuž8†xB¦ðNØúNÉö£Íx¤Nx \é>‘pÕÁ°5áqðã‘í]ôw ²˜ÆÚØ´‰ ;´èà[ÑþÆ>~ô®Å·úN±go„»ŒYãtˆQÙ²ŸË[¥I'üý%”Úð/Àÿ"þ²ÜÏG=UÐJø[äSH+Á•fqôRç<à…à6¾x¸UÀ‹À/Šl¡k’’oømt •U9¯:1FgQ›¬ûÚ%R¤ÖÆ'å/Ž‚?j`¹òuÅñcâD¤’S2sÒÔêå-Á˜`² Véšï£mÔIÿÂæ$Á ^òZ­ Nø (ËÔ-â˜DW)†Î ‰»Ø-¸†ÎÌ"ÕòËû1„ýèÇô?“Ê/?h—pŸà­Jë­Ãh¸_pˆÊT0ÅjÜŒa,ZÏžbÅÌâ§ñOiÚxî;&³*­K¾O ÂÐå ¡[””ÀÀ Nw‹Ò® ž£#~‹Ò î´Úæ´/89ÏÚå„×5çF c©rÐâ¤É:wQRÏ€L&ªà;1è Š -¢£‚¨@оŒlÙVÕë@`•µ9^²Üª#’„2U“¹g$9]üØv'l•1 µˆÁ±VšªŒû ãa« Ò¤˜¼UiyR¸j‚Äuû'ŒXzn3þÑ8ŽBÄzé4c8IÎÎÛ|®tÚªaQ´ÜqšBsÀ~øƒeÆD,àø ćWÄ_;dào>êéo¾Nœ1•gyFeRÏ ³’D'Ðû3n%wÇvÒáR“t‘7ÝÇ»;9~ÁAuåâW7t+R²ŒiÇ=ÎJ1³R†¡çu7q’~FñôÝ,²ƒðuàjKkkFoÿ “¡N¯àLw†-–¤Õ›ïã‹%‰{=ðàˆì/íTÁ+˜çƒÀ€D›yέ˜…ݵ”lôIà×À¿~üë‘m¤´‹Tø}àÿ‘6#-,dŠåÐǾ‘.üø÷â±Êÿ<úãn^RãG2~Ï öa¤SÆaÿ4%Tâî1éúO…EJÀ÷òþæ÷[¢ö7kö;ý^»ÖMÀ«'ÔfÝyf£¨|%°Opµ¦NÍ_¾8$xk ‹zHÜ%À«'ŒèêçE3sÜœ`íq¸_Åw[¯ N¨ÙwWS;|p\ðÖqm>ülàŒà„qøððÁ ›D[OŸ+8¡f§]Ê,õtr3 ê¡IØúVÁ ŸéÞú àkoUC®ùË/¾MpÂ8¼õ>àÛ'Œè­••džÒVMÒæàc‚+^åÕ T맀_\íBŠð¦ú(ðË‚F4Uõ ”fwI¯ÿXpBÝ͹|&§Z¹üð§‚>Ó+—¿þHpBM•ËŸ&8aûMàÏ'Œè±‹”«”þRpÂgX¯¿õÒ'ŒÃJÿ±g NÑJ=F‚†Òæ×›ö÷8¿îåæ‚}²ç ](Ÿì6s6ëT†%eÏîœP[^j_°y‡°=¿t¼‰ ýH|›„xyQTuè—Jˆ'b®¬£™"'7>a²ØtÔ¶2“¥1³Ìœ)R½ Špø:mEíôÔØŽ¼U2Ç·»è:´U*å¸ J^ Ü®t¨WM©‹F­¼içêȽ8®´d¶úˆ¤¡þ­ÀmàÛ´é’ÉR©èmë陞žN…0ÖÑ=ûê(»x'øÚŒÕ>Zvë™j;ð.ð»"›jAøÊ—¸8>¦-ù‹GÍriÒqëT4Tz'[šZý’ø6 £U¿›£ªC#>+$Ä1WXõ»ËÊy9k&i\›2v¦’Æõåɤ±‡‘ Æ-ì+ºðs8Å> £ö{»RFHÍÁ†„àÚ ýšakÂ¥±kÖäÈÚæDÁñXË,ìa§ÇPÒƒÖØÒ°òÅÉ:b7oW:Ò¬*KÎI7XÓƳYKl›q‹Ílºð“BÃÀ,x6þ2xî⣞ª`sú½Îɤq€;ù!§`±ökÒ¸Ž»øÖ>æâ׉+,ì{¬¬!ÏäË.º äBéÊM¡ç€SvéœÌÛìÌ[®M3è#´æ‰4fßíô<'c›•B)cK°Ê”s¥Õ¦áJ‰Û¼üÞ&´\Hþs÷ߧÍvmƒ[ôy1ð%à/ÑhŽ1'—­#öyÀ—‚¿4²9ÎJ ¤·t%ô–Áîîô`¿RÉzðMàoÒß®Ì:6µ#{Ò½©¾þÞ-=}}[{6×5]v%)ùð³àŸÕhº)Ë«#ö·€Ÿÿ\üU:‰ÿ¼„xâV#/ì žÈr‹,tS…ã` —±f•ábÝ)n<·’¸Û=’lX/ê‹$ý½ úLO‚ëœN®IHÜ à øLds¬Jôñ8²•âÈ&¥Rsð%àJQµ¦m:kÄ‘t/‹#»öööõ nJHÏW¬ñ¡„ĽøQp¥³B¢Õá$þcâ‰[ G˜:@=¡d %#%kÚtK¼gr‹èoaÑd·Ü!¡p’³LO¼e“õ„ 7è‡öÿ"Ô'ܾG›ÿŸ#÷DFhq~&ì)5¤ØAààúÆäêÆ·xø]Mˆ$ÿn  nj³¿¬,”:“âitè qc@ÜŽl‰4 ›Ydp@©àNOi3ÌåµG_z ÇózÒé-[zÓýý[CÆRõ4ððG;HÜ4ðQðG㯴Iü;$Ä·'„µÔ;ÞM“jæɤñìʈÖî£X¶'nfÆuÌS–áÚÞq)€tûýmt‹ ­Ð°qŽjÉ1LÚKáñcé3Ûâ;´2¬+#ßîL«hg­¼íäœ ;cx¥2{9|—ÆEþ¾üÝÚÊØš 8ñþ×!:T„å—‚Ž~ü O$î=À'ÁÕå’¿ ŸHþ_W;J´fß&VÐçÀ?ÿƒÆ(÷eà‚ÿadsœH÷Rç¦oK?ëÝô nQ*Aüø´™gCíîM_gçS[{ÓiöÏþaŠtý;ü„²¿kQ<¡,\˜"±?„Ø‚·FŸn HüÊ úOÜjxÂÜê S#,LIK>’¼Ó×›îåáª-gøÆ<šÉG »t‡+ÇÝa–ß_ûºD”Âðm%âiJ¦ªï㌗XÇ.lp!%ož×9RS'¸¸#Àðè#5რɿx ü”¾àÒ¿YAŸç_þ‚Æ÷àýà÷G6ÇòD?Å–îîA¥BôBàƒà6¶ó3¸¹KÏ1ÏKMõöoNÙ¡£ ©ú0ðÓàŸn|T!q<þêœÄ?!!ž¸Õ( k¨'ª¬™Uh–?¤nSЇp øeŸfo꣦å>>æpðÉ­{º(¨x!0¾AEÅš×ç,;èpÍ5ŮҊ–®~r·¦ÂÕ>j2u¤®nW[f$»•Oåíä “>êG¬q‰èFKí… ;R{ ÐAÆ)ÍŠÕ¬D/¶<Ö÷ÏL#3Öp¢®ÿ!~bØ•RSÒóªQ‡¼²ñW>Ø"ÆüˆÞQ2ÓCÀW# ÔØíÈæÑç@Zù@L銳p÷ào!KÞÙ«›ivë–îî-éð³w¤Ì›ïG~¼W›m.­×½=æzùTzÓæ¾mRó£@Ú@ó‘ÅÓµAHÜ€ßjWýqüÁŸÄ[Âo¶è<°}Ù({Çri†©ÖÍs¶°/|nâcß&!E‡]UêSvHˆ'b®(ÜS8“F¿§°Þ¦ÃÅnÞL• ¶‚r«kÀ•Z†uŠmeÏá±Àµàk5Š­³oŒÄµÏ??zÜ Ýù'ù뀀_ Ý%–KLäòyí6Sà©x|âR`xO<>ñ,`/xodŸX”T9ý€tH7ƒoÖî‹È/òS ºíî×y„æ<^1ܾ?¯Ø<~ ²WŒð®Uå ’CG¼ÉÝ®éI›uk¦LצÉGÃ.Œ‹ÉÇ`5嬋!Cï… ]| ø[âo,Ü#ü2@=m…è|  UîŒ!.v‚w6¤Àé½3æÞ#¼\ù¬ú9¿Ü\¾¾ñu‰k^~Yd_],™¦¼ÆU*AƒÔº8>¤Ýƒ#]ÇFª à…x\YÏul¤øà]àwióék¸O_ ,‚#ûô–À§áÎ¥§s!aèFJŸ¾ü=ÚòlɨgYt2sN%Eˆç´4µ«MâÛ$ŒÖÕÞõtÕ©{ ­¶[&!žˆÙ²}ýúõ¬¡Sœñ}Åɻ̄喺¯uiÖ€²J†™ãÃÙ½]¬µÄüm#{ycèÜ cnß91]Œ«ºIÿÔ˜Ð<Ë'}Cëø\èExøEs¾ºzÜÙ>ê)I²6o Û'­l·5N§O{b¢²†O´•C«ü<¨I˜Wº ¡JåÛi:3/«à3vÒ˜bÓÏ3†Œ{œU˜(MWÓv†ýwܲ²cfæ8£¬Qï0(Z¬9Ïþ•7'P:“ÜчغB§ðùH¡tçnìÎñÈöQs¬'ç˜`¥½~Ï(´¦÷C;ÂõàJ­Éê£Y#Áü"¼_—‚/m‚_Ù>ê±à² á0n ëçÍÓ\šn¼ÇåžàÐ^:«>t2^ Õ w€ïPŽ‘mO;d×™¡ Xꎾޖ4ü«kc5ÍPº¯ ® ÖÓñ¥È&‹Á/ÖØ®Ê:…’[.ÔÉ’ö2­>Þ÷_&L zÃ*š/Gø¨'?®=s-*7ìZݸsG.§¡“ò ¨Ox-øµ‘“rAàø³n _ï¾J^®6Íæ@¶zl¾›lîM:Óâš~í]ÖE×S’õË4«È¯ì¢% d{Tº•›HC§äUОp7øîÈ)¹²Lm-±Pe=? ¾d²¦›µ2"hü ´$¼\é~æ*÷Ï×>,'D ±‹5þÊ ÖHÄo'ŠQS‘±Ðéyi Ü®4j^íKÆ<ÿ+'¨A µY›V0jÖvEi×¾Ú¿Z«/i¬>^¥^Óäêãµí£žêã?dŒ—s9£D×M…ÖLºPÆ_œGQ³ õL˜j*šóõPpø†&˜óaÈöQ9­×ø¿ÐizÒAxüPòöí£ž¼=LEÅ,ÖI“îÚÃ{~ÿEÜ™s<~U[:iŒ•Kks•ù=}ìWstÙVÆ)xvÖr•ÊÙ›ÂÃà‡#'k/%kÎ%`4†ë_hY Mµ"œB½î]èÄü@¸|oäÄœ/ Èå3Y³`[¹ôÖ­áÇâÞ •Ï¾’d3Ô³¨•“aÁÓôÊ®5ÔyÛî‡;YEg¹¬ Q°‡ v”˜ú(L¸\m™üížùZ;¢{‘(Í-jàŸëfJ‘Úo…þ„Ñy¿mgi ­ÊÛ ž°¼½‰Jo‡„ÍPz²}ü Pzªîß¡< Ôu@‰öøwH¨g@‰ZU¼kXz'²‹P_£j!éV•wA<áBð…‘UÙEsø Ò'i䦳C™D_’Îns-ó¸7äY'éd_rlf¨7ÕÛ›Þľ:™c›a§S½ƒ]¡³ôÝÐpø®XÆêÞiïÑZœÃW+$¿MB<±ëñ^äzòãŠY­Iq´E®Æ~Ð ¿J^~Ed…·«‡ÿÐ)x?´&Ô7[»·Æ¨†È熶`>€êké*µ`>ñ„Ï„̇ a3[0†lÿ/tÆ?‚t6³3þdû¨qØ›:QüærVoNà4 ª>=¾ÌnÖ%çTÍñçF—žB{B}C•7ÔéSд‡JE‡®~f¤`M$Œ=”áŸdáŸø5Sj,3¾~ !¼ü†&¸ÉÇ!ÛG=n2¼Þ_tRk™ †pèòî`nÁH˜9…»èNu“u&\ËêÎYStY7¡ö $†p|8r®š/›c¬P°ÆSÂpÆ2Ý(ì·¡6áUàJ÷ÐFô‘OB¶«’3ÌšòÖY.ǾÉÚSv¶læXõbÛt.d)|Uò)hÿ)­UÉyA§.Êùï@ÂóÀÏk‚µ²}ÔcíÂÚ• êZ=X뺑—£ªÀïAwÂà;#§ãìÀÖc¥ÒPÿ¶úöºŠ}Êž ~v ý8dû¨±ƒECØ´Ô×ðŠVÆŸaU:kÑóŽÁ‚A‘ŒZá' $¡¾Öš*‹vr§ë oÕÏ@!Â5àkš`ÕÏB¶z¬zs«æléŒú,7¦;Qæç=&¨58ÏHbø<þÒCx3øÍJiÓ²öìó-bxÐG=C…é*¤ Nô%YE“¤Ñ-£†_@ΦÁÓ± q}ÒžÔê›áËÈ“ÂúâÑ”KG1¸TëPÓHöãÉ‚z;¾ˆTû¨œµwŠ—!uúŠá*ðUýò¸53í¸µ*ù ñ¥ào8Æm–„xÔ2`Î[mõ’îÿïËHv‹Š?Ò+é-UÍ™ÕôY»øѳŸ‚~ä0Utû!½VÌNÍæžR¾Ø3Ìþ“ߺ«¯?Ó3Jõì«|´‚ÄJeIzo9ÿpÚÌe+Ÿ-É”Y¤–$ð¿ûÎ*ŸvXù<ë»Kš,œe¬ÿï•Ì’Wùè,–}–WbjŒ›åœ”ªø¢*+Ä·’åJ?±hÜ+HBÇË…‚%i»xÂñ&+ÿ<'XŠ™›ó+_[ýU¹`Ky3ÇÆ,)Ÿr–9e¥²¤òÒ\Žoæ­|Àte–­|pvp»(έäƒÈN/5ûO–äÇ¢ô›+ó¶—éµiåÓUüSö"mv—´ä»VFú¬£hÚ”‰Ò[EËÍ—én!Ižaø*œË¿ œš›Içóïü=+ÇÕ”TŒíÌIäJÿ‹*Qg]òãe`•øf¶#>žÌÌU 1[ðrñqÕ3eœq;gÍr½' Ìùf•E×ÌÚ¦”Â%®Y°ÆåWkØÁ¤Wû}Rõ«™ßó oVö‘å“ OÎþ`jÖ­’#Kœ9K]g¬,«°l®í1%¥ß`?˜s RN.cŸð±égK,7¼qù×㬕3ljV1•q¦ªÓ½È¯Y[þ÷ÿN”XÛC{€metafor/build/metafor.pdf0000644000176200001440000571555515173350572015175 0ustar liggesusers%PDF-1.5 %ÐÔÅØ 2 0 obj << /Type /ObjStm /N 100 /First 804 /Length 991 /Filter /FlateDecode >> stream xÚVË’£H ¼ó:NÆM=¨GÄÄœ6bî³û´)»ÙÅà0à™ýûMaÀÆMÑ{À.eeJ*I.#(¥Œ´#CÆ'‘¦xHð£Hd’„&aaY’Âp$AÒšDJ’>%™‘RŠ¤!•1BÊ9R)i8®ñ(MZKR–´Û!$A™p ðLÉ(Ë'¥ÈÎIÉÇE뤴£w’çS yè VÅ´O*xEv<Ðœ&<ó¤"M,0mڧɷoôú'½þhþjèõúòóPïN¡ËÍe÷³ÈÛ÷Ý9ßÿ“ÃN¼Ð÷ïÉ—qó뿬zÈ‹âÜTÿNšÑÜæá÷U÷¤™àmíùŠrßí.§üYÿ°µícE×—pÌ»° í>¯ö³ð ¨ëæš/âMÀ:ÿ-ïÿÎçÂܬ³*Êü83+ÆlÏUywz3cÜþ|'öçuÖ¾ t«êrŒÈ{SLŠg|C}Ê;”o!¼Ašs¸œú.´·æ÷u¹ØÝðôÐÉŽ±ëCYwKÁ E56»Á`GÙ×ü-؃½Á*¼àȆâP^CÝŸšÛPýÊ«b!a ÂïO}5sÙXç­ Í§óR.M_ßù7sN'Üóf„»ø=oýŠe×vy×NÜÉŽ²»P<ŽÌ‰(š ÏíĬMæ­ÜžðMõÓõ»D7•#nÅÂÌwáÒ>(F$®è«ü)ÈE4m=sÛ:Âéë:ÌÃy³Ö™Ç‚#×ë¬÷yfÞ#óRÖ‡ªõ> g9]'þ3þÔ×܇u}•¿½Íÿáƒá…üDÓσ0~u®š;y°Ö™ËË}ë^ŸÞ?êð«}zí°¨ ·E»»î›ëÃEûG´‡æ|W°á•í~|-:5¸£îéaãë úT ïeS/¥#ö©ööK!/Éï§n endstream endobj 203 0 obj << /Type /ObjStm /N 100 /First 860 /Length 967 /Filter /FlateDecode >> stream xÚ}VË’Û8 ¼ë+xÌ\<Á—ªR9mÕÞ7ùŖǪè1‘äÙ|~öØm“‡)`7¢Ayt©U©té”a,^9­4•ªrXHQ)«Qd$lYƒ5(ª,Ö ˆküY]h .ÀwŠOq¯˜±r©8VRFò±Qƈo•±²”-QWÊjäÇYÖq¡Q‘õÈgœrr–Au ¾-•óÀYR.`5yœ¡­UÞˆ”¯¤¦J©W ÖÚ± |çT…»hçU%Œž‘!I§ÙÉ2Ú+Y+d¶¨…O"áö,*9´“qrС9ç †Päp'†Rä‘Lj‚úA¢0Ä"ïÄ@fq`ÈE¡™dFAÀPŒB@fHFwbhF‹áeXPª¤*T0 })·Y*5C8]"C9Ì …^—h ŸÆ‘ª‚!ž&™$QŠœl¡­úi]†€{0YäA.-ó¢«Af-× 2yl F×´TÇ¢1¼À@AL#"Pã(†Ì§CQÚxÁÈÄI¡ žA‰—Ù³\|ýª^¿«×Ç£zýG}ùo?lúq×t›¾^¦öÏfêë ½¨oߊ/÷ñ—§ì÷ºÅÞr!}º l3õÇ¥™oèK ïÆe³=öÇn]WÍ0ßÆùð@¼3¼vØŸ<mÄ]odø·k>Kò°›Ét_|¾îËisÓµ»£F›™<íþáäÏX‚55»v»œf¥y»ò¢hž¹>îJqÚaÙÔÃøQǼ(œãnÇa/ë{µ‘ã£}KÝ7ËaÜÅüÕFŽßÌÛºÛÆÔs,ÇÚÏCLA ‡ÿ(šc¶“{ϱ»v~ÒÚK4ǼŸŸ[,ÇJ?·çÛ¹\S=üŠ>PQ4ËlÞžÏÁ,ï¾Q™û¶kbÆ5ôœóû÷0Nýšr‹Ð³÷Rü÷“‘ endstream endobj 446 0 obj << /Length 1779 /Filter /FlateDecode >> stream xÚ•XQsÛ6 ~ï¯ðÛ컚–dK¶{[ïâ5ͺK¶ÎuúÒîn”DÛl%R%©¸é¯(‘´¤(Jó’ˆ2|>€ ¼Ñaä®^xüßì^ÌÞ†Ñ(ðPáh·Aˆæëå(\®Ðr5Ú¥£Oã÷ßãä+>É4½ñ9Qx? Â1¿LþÝý Z–#ßGë0 ´–EÂÑhø(ô—µ–‹BЬ–¢—æÁ "-ïUpÖh‘Ö3õ—ZÍ—ð°@þÚàùx¼1’rÖ•^6¤çKñá—J*DÞÔ4föO}ØêEµÔ¬È`V.cCû3õÓ'¼2Bµ!žÝÄ_©Êž²¶ œµÈÂô‚áì^RYR¶Rµç¢~Ø>…H+n»N ÂR9„g¡ó»°x¶µ¥Ï^è½þ­~^ yðÂ7 ây*Íê+A¿ŸÂ)VfÅÊü Tsìn¹ÐŠå»¼àB "Ÿ¯Q°ž[äRaeA•Šföù pq¤Éyù†TˆhBì;–åÄz€Õñ þ.̲ˆqQd÷f•Ò‘j˜5¦–+ʃ–{FÏÂ"8ɱEGÙ7ì@óBYœé4·î'°qoY¼?Èxž˜¥,ã ³IÛlÌÃVòŒf³©Æ žD(ò4­ªÖPãÃ1v˜*Ã5gÎ2’5ß[¿ó¼ø§Äé[½ 4¿Sì¼ÚP,Iz+˜Y_Ôw†Gð[W×75H¯ ïHÖk0h“{Èò|wcÝM°^^f*„v›´¤‹FauÄœ[~'YÀ,=Ñäh_ |Ï-þ-NôbUGW/"ÇâkÊ5ì“Õq¢Yª«Ê,IžÌ,oAgµLå·¹¾½´ú¤*Sʱ #øžÚÕMÙ¼w̱-±^_ä$£Ø.Kʬ”Ou£µ×éoˆL…Ì ÷üp‚ydkáÂ…ür$L6òjÚ%•Öšy{Ó7KV½•6šp––ð ;œÃ6ÅU&f/e6…õÿÝÑØ* 1›ÂÖh¬;…a{6eÀŽÔªë Q¼H}:U˚܂òÒì#Õù¼ß é«ÑúÂKÍ\bÁP)®­}ö¼ÀH’o%tãý÷*~i/,}€Ú<·B°°¬°²gxTÎS’u|”er4= «3ƒ„¸wœ…VÖ±³=Qu¬ø&]šuÆzñë4vQ'‚<gu_¸¸î»œPÒd’Ÿqëª> : —Ž[PŒ/]¶™kƒ§Ô5¬ëÏÞ|yǶ¬6¸¿¿¸žOèçqœ‘®GWø£KІ¬¦É>JnëcLÏ©uÎ).`*ãl Ý›!²žÎä؆“^È /-AYZÓgzb «ÃH„àBºÏ¬¨%éöóþ.’Ú¶yºðVL—N¸ÊÝÞ2,,•n|ŠÒ#k•¼Û ®œ27E»3`¼ÓE40c>;4XòQ'}ãäâk#½ühµ¦v×ïü–T‰qñv¹ùÊÌÌdw!œª.Z2(}0þ\Ô‹ã$ßCÅ^ÄŒ8VvHÊ bΚ`Öí€1iM$5aº`6½Jðj&±˜0 hÞ‰Ø]K9;º|œD° ɱîŒqI(ð|ïì¯õx†ô5Õ ˜ÒÌãöêȦœ¾ò=䯢ùröEJtçÍ#D½ykªƒ¯Ñ³gÄk:™$O|ðVî›ÀÕûëæ5¨¼xâoÝ“7÷Šè; ¾»GŒ|î–¶ÛNÞøörКiùxÉ^[CÂ9C·»·ÓÕð Zïny´Mop"ô >|ñ\£èì’½þ«EZ.}œÌ—cz€ÚPdSÂ¥…ˆ!«ËE+÷¤º( š4ûÛ9ÓfਇÉv0g>Z„ëç嬙ú+ä…æƒÕíöº%Ó_³·óyó[O„<ß}¡8*UÈW³ÙétBÕ×7.¦“i}4~Cqqø £OÝ­¶UÇ2Fp ˜îªzgFûs•™ ?ò!Ä­f1sª‘1G¹52{>d€Ó]Õ4§zE#'›ò°%?ýTj­»‰å 椒ÈÇ 6 ç/–h¡L"h«µ‰vKºÜ½øàH· endstream endobj 503 0 obj << /Length 969 /Filter /FlateDecode >> stream xÚí\»’Û6íõ,É‚4@¶ñØžqéQ礀DH«„¯!AÙþû¤4Ù]'ÙË]0Mn#®f@Psι¸O.‰Î‰>í~ÙïÞ}**³R2íO%$㹌¥™äe´¯¢¯1K~Û~÷QÒG ¹’§Òm3/yßµÖ´vô+w䶽Û[F4÷2Oz¿)eÊmľõÙ¯á*+Dá–³L¹,oŒÕ§nH‰Ó^ÿÐg“¤LÐ8KRAÈÿý’—¥»Âê®> 5íÔ8W¡8Òð^aßæX]ùlM"2‡™ÄÔL5–ç¶dBÁ"§'ÕA°rz˜_¨NC7µsÑÓ¶ð$HþMÓôƒé“´dè…¢ëÓÜ[ÄJ ÞŠŠÖ½ô©­¶£{NlBŸç†`Ó™kª[9‰có,$°Êê©ÌhÑ7lˬ¾ºp‘͙ýÄZ äå:¬Ëº:(Zbnð6§oØÏ —ýpHÀêo´s½ƒ„pv1$À™!ÏÀTßfs…¡Oì_šI¹«l=æxð¼Žõ´ÀŠE§©mMí\BŽýÍíL–œ»ñÁmŽ½ÍÍ ÉaÆñpÄ©ëÿ’XiõâbødÚ£™¾š«ïøP}]ΖÃòãçhßÆëî•p X¹´Ö‡ƒy[7›7ÖS®ö/v/ƒ´›l’øTP"`áQ]÷uçGñ8&[S" È6¾çHˆ|À’ìû?¢.™kŸû6ú‚6ævoC*-ã.cv=./Î΃Ò3D}]¨$ÿ¾š÷üúa¿û “OÌ endstream endobj 603 0 obj << /Length 874 /Filter /FlateDecode >> stream xÚíœËn›@†÷~ –f™ sÛ¶j*uYy—vAñØFåâŽúø ©£(IöàÏÆØf¤ï?þÏ…Á$Ø$øºø´ZÜÝK˜ØH&ƒÕ& „Ä<‘¢4–Ü«uð°ü\W­º6ü¹úvw/Ô‹ó"c%™»ÚñLÞŸ² ã僈K’Sî+|8©ÜÔû.Œ4¥Ë8Œ!xxÿsúô.q¯$ÖAÓÞ~wÈ"ÎÉ’*òêäQD”ÅTJäm•õÚmè¾gù» L@OÁèÝï ¯+ÇžiŽ´}„½³olæÀk©‘¸¿Ø× Ä¿wœ¸L»&ÿ7eê–ã ¢žˆZ|Œš¬÷iî÷éÖ jA†³·MyèlëdPB"qü5ˆQwqv(Å`7K3]Çp0ïmÝîÜ 9_åF€©çÕBxÏ=>T¹[Q)„~t K°=õ¯¥By.#ÑC¨Ñ±½‡8#|Š }\Ç­-Žå»[S`¾ü?a¸s?å›1]2ìI½D·±oì:Ϻc;jC*–[· Ž&/ {3ýP“ã$Æ zJaeK“W]œVuòO!ËtÐA ÈÏò ›Águ_§³j ~£úÔ8×pÚ®^éÒÒv»zíœbG4•µ³¶m–ú¹/öŒÀÙoÚ [¥yÌ1¸ §É— ±_„O¨fvÙiü‚w”ÎFžÀ#½ÈÛ±‚Á;Øžè 8ý—-«HÐõ¯Íÿ©ïmÙÎäZFÁá6iõ{¸eŠw®/Å>¡U e /%"÷b*fB3¤SÜ&0ƒØKÕýl¦°Ï•M‚Ô=j*/«º)qs˜Wò )N“®ó´#ð ŸMŠ„Á¤¨ì&Œ¸Á\0» (ÈX“*L s¨ @uR3L˜ÁáÚìŠÀrÆÐ4ôÛœ]i†ÌçÒCð z V…“¡õ¦Ç¾(ó¶u×—¸³dP…ºélÓgoœ(Í ‚„©ÐæëCZ´ã¶Ÿ©_4Ü“°mÊý„z[”%Zç¨W°VÎá/w·¶+üZh¸O¨ÁL(¨{ÛÕnœ/ùWÞ«¸Ñ‡T®&BKÉõ¯‘åá8ObÈ|6=`Û[‹¿‡+ŠÂ8L”çÇðïIfQáíÎùõñËjñ<†ºò endstream endobj 404 0 obj << /Type /ObjStm /N 100 /First 886 /Length 2453 /Filter /FlateDecode >> stream xÚÍZ]oË}ß_ÑðžþªªîȺ÷"¤Dº"%A~0f½/²×Àý÷95®Ýî$fFʃ՞Ùîê3UÕõ1gJÈ.¸ÄeÂP]aWbt5cH®é¹˜ðCd³^7%º’‚‹5aÌ.E^•T\Jø=‰K¤cu‰ñ{Ž.쑓˱`$—‹Þgì©÷±·n—«#Ý=7'±¬J ® ®Kt1èÊ¢q³@TÁRlE€I7)ÿýIQÖ†¿æâ(`U‹Áš&iRÉ ¨„UìR±)|‹L è&À×çe<Ïø x¸\1g<‰ÔUáâ²DŒg¬Š™ñM¡²@sA'WU®¸©p% EÁ«Vê*‚•¢ºè¥6(CÆÀr!G‘t;Jú"Л>…@¤O!ÍëSÔà¨êSÔè¨æà8Œ?eÇ)…U©ÅqÖU•—ª“Ù1'À¨âX $½Ëuü ¶ 0|ÁÆuU‹N&––œ]Õ²Ã"è¹'¬&hä¤ÂM ÜIédq54\]M [´Ÿƒ²)WUAY• ( pG'W™óJ•Õtw‚K4Ý]»©Gbc×ô6Á¦M•@د©Zk  lCÀóŒCÒY½,SZôÓ•°+L¦RaØDw„ecP]L±8á?x_Œ¤+à~Q­B°nŒz&æÅØœ`ß¹¥Õɉž»áOÛ[7Û­ý凳ýüãï¯øt~öþ|?y¼¸kÞöÓTîþúŽÙëóôálw˜|syÇÜ͛ü͛ïÏù¼Þ¼}·»š˜ÜúvÍæâõú‹73ŸêÅ7s^j„ lv§:ñäd5¼øýãÚ ¿ž½]¯†_¶»õÅîÊéiÆÌÕðl}µ½¾<__ñc¼õ×õëÍÙÏÛ/îeÀ Fp”–NWq‰µ8ÁåfÞ£‹‹-D½šn«mK°1ÞŒ”í:Ùxs}ººq”·~Þ^¾^_Ž{‡ÓáÏÃÓá\À¡NíùνD”󤱭°Ç‰v©6ŸÇ`,žrüçׯv9üesñ¯áÑÉɸÃðè|·Ù^ χ¿={ªÞív¯þ8 ¯·¿½|;Äàcå,ÃoWWþSÈì7!?È{âLä³²\}ñK5ù„øKóDñÇùùógÿa½;{³½üÃÇËíoØEqß¡"9"Dð8à÷Gøv³{wýÊŸo? Ÿ?mÖçïv¯C|”ŠŠC; ¤˜½µûëÑ yƒ»ÙîA?bíâáÈÜâBz’àI ^™þOP&‰>Ýe®âECø½QÂ'?zuv½¾T³ÿ€þˆ ?Í9žµaöZœÄ#ç:«+›««ëõÕë4xþýÿDúô!R`SBv¿¸~ÿþô®¹È°ãdná¨ýÀä'ÏNƒú-+)X0×:‚¢]dTtG±jøõr{þ| õ!Ä?~â†ë/»¯ëW±ŸÆJøVì×Êãž±¿‹ñd#Û(6Zn Ë l¹-7°å¶Á&M›<6ylòØä‰É“'&OLž˜<1ybòÄä‰É“WM^5yÕäU“WM^5yÕäU“WM^5yÍä5“×L^3yÍä5“×L^3yÍäµÖÉ™v4Üx6¾Øâx±?l¨9Ç@“æµj߇Tæê%é¡|ä¾®@>Â| y1„´3 Äžb¹C›Cô1k_àË$³p)>‡z7„æDz×öä€!'lÓ1ELócˆ¦¦@ð­:Êì¨U¯åCž¬ƒAæÇPÙK¦´”‘àn )ÎAŠ/©1 êMÒ±EZ@¬>˜P=n óŸM¢àCä#‚pÇyþ³‰îÜ£?bÐ΃¸ƒaþ³Iè&xj‹ ÿ([äÎ&öÎmb‹„Ž¦äšƒS iC§Ö0ÿ±@’÷­MdíkO u~‚¥/Äö*¼#u0”ùOj5O’}‰ÒÀóC „û˜4‘Ä}·|YÀ%ø8UºÒ:å åù1 ›_øí1dxG똂ÐC$¯/¤ÆÞ©c ž?>•µYç‰-ÐñEéÔ/2¿?di(õ‹vùM:¶ù¦6ðJ,0j¨Ö Ô2 F=í%kÉÌðêäÌ:c‡‡E}Ü”ò&Æ 8¥^sA  ÈÕÙ1oæ )ÜC!  ˆÕ‡61H‚“äÖCQ@ªøXÆä7ɹ‡¢Í"µ ŸŸX$ÀORÏ"sv|U½ñXˤ|î9g\B¬ÎxÌ¡I*6ê$-‚ÝÍ“o¡“Dc^Â¥ø:µÁKzòrBvž˜£D„îÒC±@¬H)øI=‘Ró©öTQ–PE¨>å Š©½·2sV¹{cHÇ\šœDz) „MåÝjšð/ n½73´@:=Çc:5è»»Š² j^¿"9 `ø õÞ”ÑG1Ó§pL§‘à'¥g  ÈÅ·6±HÉú¯‡bÀSòúÌEŽÊ÷P,qF¢zãÄ"±é[¼Š[™ì±Ö®é¿&¢nÍÝsK‚âWùÒ»¸¥)¤/½퉦#ëtOn‰¿å–øÞÜ’~ý¢XȾ ›ã§/7#Û(6Vo¸2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšÈ¸&2®‰Œk"ãšh^®i4¸¢¾p è“KêåsY V±à|Nˆ4Ê(ûz HaLHSÒMkŠ.ˆj .È2aÝÄc¯û¨ mÎÙ· í†ÞíIë1§ˆîo»“Û±„5‚~Ë2Qåº(È^ˆ>M|"0Šßˆ¶@ÉpçÃäMÂÚ².Š¼ÁÝ·[ô[üTh[ PèOP Q–Ô#ÃA“J?e:Rpgí¢XÂ/2ßz¹K…|®]Kø*1ý˜ùHÃeŸbÅ…?Å„à=AJÅ/LH_mOâ¡Y).MK_'……Þ—ÐE±@/Bžë”CÅž»(ˆ…• èBF~¬‡b¿(ú†{òþ¨ ŠÅÞû£”QëßH) endstream endobj 670 0 obj << /Length 2192 /Filter /FlateDecode >> stream xÚíË’Û6ò>_Á›©ª!‡ øÜ›ø±ÙM­×™Ú‹“ª@$¤ȦLc+_¿Ýh"zKÙšÉIh4º~³ggïÎÛ›W÷7woâÔÉý< ç~ç° ðy”8)c~Âsç¾t>ºÑæ—ûîÞ$l†È£Ø‚È”Zöb×v›0p½ƒ(>‰½ÄC7åtÆÆãAê3àã…)9Ѫ*ÑK¿«ÅÆ ãÄõ7^×a>DyÃ\¸ü~æt¸¤é‡·7ÎGóÀå?C¦~<Æý„Å$ü^j`‘åW)ÿ_ú°«?¡–ø2µ´~Õ6ûÇóè*ðgSFö¿•‘LÊèŶ’/O³«ÄŸ\ 1»Ô'¾¨òª…çÒBt™:Ñè(!äWy?›.’ u¡êŸƒ ¬*ಫ̟KÉeÅÔp(§:6O¯5Õ“ˆ>¹(G?¢* \Š®â~v¤9ÃcÑnXì>n’صŸvÙ5D=½:Ò˾(Q²kÑ4½ ýé5qYÖ~T»ë'÷_©–ô¢ òEªýC¯)TÅüúÙý²ÏÖ §»7q²è ¦~gŽF~’E¤¿7¥üjO¯²àyâ§y>ö"y¶ „¯ïo>ß0s‚M Î(N|ÆR§¨o>þ8%lþyž9_ jíDŒùiÄa^9?Ýüûwæ]TÎç]TøIÄœž“¦á¢Eúöh/·~ž±³æêß ªaû[£û#½—¨ŽZi½ßd+ lÂ~@Ýã¤MìΚÉÃy](aìÇ)ÿ3B¡r²ÒB5øqn[»ßK]têЫ¶ù–,ÚÐhÌçAFÇï$õ —œR˜,¤´ cJ¸sŠ<ÜtÄuà±ùHž»¯ŽRMQ ¥Ñ:.u?”GÏ<+°/²9§’' ƒoø¢ë(Wl8"Ó€Á¥ãàW¼E'ú¶Ó/`ÍYhÁ^KUà&P ÁÇk”^oQ¬Õ(ˆÙ‹O¤©vQö mlþDhñ«cUœe (Ýâ,7ö…£^–˜BXâ¾A²h ¸·t [2æÍí?‰ü,šÂ}H,Z8ÀäÈp…øP’‘XøPæ³xò!ÓõE™qž`¼8´ñr‰QÍàMaßÚ™Q!ð„CV3ÒÏBl9YœãLµFG ³ÖÏ=PH´8[Æ/DÔY(Q¿•„’}hË‘àÜ*as¢ÿ£hzYyïD¼ßNGo×Ôü^öí‹M»È6Ì&T/äÜz@ Ë0Ú0æ®”mª#t/°îñê¨T#Eg¬YªÝ}(¢Q+_úæ&á7N­¼§j÷J÷ª@)…ö0yß*­Ñ'Έ7zŒ‡ôdÕ¸Û´§ „9HøizÎnrgƒ ¦¼¼ô÷æòIâ–ƒ$8…ã2I×Ioõú`>æÊ‘«E}¨HÁ°’]á–B®9?Cí;â¹K™&ã ¢1J…Ô‚a Çb@ž«µEÞÑ&¦{ÙÁ%P0–yÛX^6ïD6>¯DÄz¨zu¡|!µÀÄ Ð¶ ”½-uHþD5óÓ %ªÿÙ0ˆz€ÜÆWØè´´,¢ˆ°ª¬uØ(·5D¨‘r£©yÌí¾W»#­@”•’ÝÈ®)ï¨,C§„Ó|@daÉaºP$vB^Óº)1¸1ŒS‰ÁÁË5Ö-VB Ž£ž¢kÂæ¶Æ¡(Ñ=ð]I·è`檄¬©7̵Hßµí§Ñé¥Tx¬ €ß²•´²Cy pÞ¼vññ*3¿yY’Èœõ½^ú> stream xÚµZës㸠ÿž¿ÂÓ/kO׌H‰zÜÍ}èM»ë´>öÛÝuV¶éD-ùôØlö¯/@€%Ëq²»ÌÄ|@àPÁân,þ|óãû›Ûw±\d"‹U¼x¿_È a/)Ef‹÷»ÅÏË£ió}U¯T°\ŸòíC~gV¿¾ÿËí;xS£ I¬`a;I㛀w‚±±7ví¯U!MyoVk¥ƒ¥i¶ùaKåw]¹m‹ª-ç-ë“ ÓÅZ¦"Kh½Ÿyü‰tQã*þ g†¡73!LfÒyû ýþF*iÚÿuµCµüÑ“ –å2§&äÜ:/óÃSS4Ô´ÍK²1ÜP•»nÛšÝ[¨kµlï¹£6³RzùÿåeëZ›îÐ6´Æ¾®ŽÔlòí=•š¶Û=Q÷±kxÖÆJle¡‚¸$E¦5‘ÿ[‹¿2;ÅËIŒ’eÓÙE¡%§ŸÇ• –ùõ¶÷yKÍD2ˆ¸¢¼£*Q~èLC3èìбáñû®†¹5õæwwÀ>©—w+˜Õ:bò’ ÛêxÊk³«µÎ2«-/–o0>òu ‡JDYæ$¼wJ¸V1‹ x üí$KmÅC€Ö®åîÂåc±ãâK]˜ö‰ª=ýš=öìͶ¥zS|FÞÙ!5ý~¨ºVç•Ž&o:àúªþèùE²¦#ÐÁc:ˆ•”Ê@U ÓN {VZ*K—M~<¸–ô4æåÖ4°®¤f:–òÚмjßš’Ú˜P*¸Å»ö$0‰4âN ¾Ù².š[çÀ㆛«Ý®±ç˜ˆ®¤béæêt¹+˜uµA‚m€ìA:tv¡¿i[y½6ïhœ›1¿¢\ÓCcˆ*ßÒ~ˆu清].Å#£Â?b% Ã/YÚ¶Z¦z[ð-GK$4XárÖÈ$ƒÒ¼ÄÛ”­•\”(–c¡¹{· ]û‘':´5¤X¸Å}^çÛõý­¶·ÅåDª‹¿h’µVÅ®ËÔvWWÝ©¡²/u8²51Ð ‹툰_Éñ‡êêTÕxPׂäÓ~[¸O ªÛ ïD×f¾YvÎJ²“Dx5jSí‘qo‰Çq ‘‡ã€3塲w(+¸^š0Þ’ƒ&J-¬dýb·)O G»GT©¿¤›âPXcÓ' ª³c-u;êà\‹¨ÙÜ_ˆõ®_†­.U³ÏMÅ%ä>M-ùæ`c‡@Ï P Œã ¨¹èÊâ+°€ü:0àxÎWD"3 DŠN€Ƕªk¨a0‰t‰°©Ú™w;·ªˆ›¶ééT€Ã:XÇ+ÙÊb9j×$ÆlÍd^s2ÛÂ^ƽZ`ò ©i2V%{ûR; w¦4µ ð &¯©Œúu,>¡ª›ÝzpY¬8ÄžÌOc^姜-õk˜ŸŠ$ÐçŽÚQúX´÷TËEÞ¼œ”4AàSò2Y¹Á#À~!ŸÀ(Zë„T°¢HÈ8Ë``9À¬}-þ³ «ª¸Ù@Ø[Ú2Ö‚*c5ðœ¤Lhü³€Õç œ!1(l¸›u Jd™Ñ§7E™s˜“ˆK<ÔUæ- ™Ž! Ô¤‘ù;h T<³5ÆQ;š@`{û*¥RJ„™~9¼ä ‘ŒþØzK´­ õ¼f²YtpEcíz{6Ùs›–$¯t$"=sû”Ž¶¶8’+Ãê ÀJë3Ì<̦ã1f£&Ëc˜ëœoS×UÝÛmU*®uw(°ÁÐÜjDä`»>“!ŸÊ½7ÜeÕzŽ¢÷1ÎÒa¹+w¦>0ú€ú«„*cˆPƒð5–ýËŒP}¿eãO§CöŽ)Þ˜CE×$Kg^Ë,µaëZÆBEì³Þ­ž ¿ÎÙ÷›Ö÷ß·ï¤mG©¯—H½±ˆ{£ò\7¥–rf©Eöèû•,¿ÃŸ˜~÷ó=5>ÌÄï!DþqïöΙ“eëPL·+J96OèÈ$ý½yâ#KÂÔžâæØ‘‰zDJ,`ª7ȨZÓã4fé¦1õGrCÔÒÇ›=Ï-’êgŒlž l­ùr™Ó<¹œ½}‚KÀö‰*6ÊÑÚiî9;t–LÄ;湈ž_îšSo• $®—åµV"IãÁã(5Ëî8I®²[‹Tg³ìæ£Í[ò¯]ùPÒý(=Iudz–ß2ßòŠ#j9Oɉ‘-ÈÛYMODš¡| ¸•áóŠ¦éäÑèä2+¨£7è¿sœ:Ô/`tü¢í´¿Ý/AÌ2ÔËöïçv!A&=´1·H(Ò$z¹~LÈ–<œød³…ù8³b&”ž]1,ù å…#ôœÿnFs×* §ÊBý0c¨ÿ \8·EÆP;E&å☑ÁßH`‹Ì«±&s+Ám,4MwtË ³ 5,ëì6?]/ŨÖM‚çBØ0ãKwf×Å(Â@ÔzÁ¿[äï9žÜT …;îôðú­wèa|¥U„œ¢ »Èo}Œç<\0¾Öç/h8§'Ë”¥SE 1PŸÓp`ª¿5öTÙë7-l .eS…Ž_s™Rw~瀴 FHëÂÐ^–œ­ ãÈ…K“³©èÑßèp£»ìçh‘¦þ`½6[’+úuyd•EB©IøÒ;Œ=@·ÿhgdº"ç ¿ ½ƒ_å<¢Í¦HA ^hµÛb7AW¨ø qîpkX6ÆÄs— Ä…‰‘ÏLf8dÛ|…¶#æ¼±`3¾™Z–îB“×ÜlÙ¿¦tgûL©Å 7Z¦ž\Ö j^ѦnyÂxÁÅü!ä§Ùì•UÓËÍJçu³q² n0s\.Õ 8?¤äÌ 0õzëÒ²ÒO˪a)'å d²Î(ñu!JÞ~&׊鞢«þf…˜ˆ³A~fTçÇÐ.Á©GYÒæ{jjÌkÂÆtíñ»yŸÅs[]ˆKµ‹KçBD•q€x)‚P±H¿Œ² ú‡ùs«¤"ƒgÌ‘×ÝXò/‹0î#ó ˜™$פ¬¿-7“+Üüf^IsègÓɘòë@ЫJŸG§gã§Ï©8~Z¢Ï¦¼Çƒ`>å,ã…¾âÍS‹Ã®‹7þŽë9½õR€¶„¨èŒ»k™…B¥)â!ØGÑÜÿ̺D’&×Ìã «ÎÄú§•"‘ ŸùBÑÿ1£|£×`ùÝGmÎÁ$"s¦ç¬R"•½vþ0›äWh˜Á™ÉŒÍP†¯Ïè]ÉÕûKÝüéýÍo7ÒN`N ¦8“%`_³Åöxóó¯ÁbpjhJvèqa°ó‹ßü“>>ço@_ìR  *úr.§_ËåØr9{žËê*—SPé©UÏû'¸m¬J!evÕCõwîUâOŸËzÿ€ 饧¥(›ÞŒ±ÇÈR5Š·Ö:œ½†“¨ëyƒ_tQ„ tãç †”Ñ¥ËÒçîÉEw(‡§ÅÞ^ú+IÌ˾`¥´J¿Œ?b¸f>ƒè=Ý‚ÂpŠ~· Ú¬³Èðÿ_(ª6­{b…Íù‰É(zì/!(‡×ôxL­R>“¿Ó˜˜D0÷^èIñ 8Í-Á.ö¡˜.¾CáMÞv.j¢lŽáâªSWŸª†ûQó]WÖ‡^ø=j¸¿áé£-·“—/†æ@IÔGÉY?ûÙF< L{_í&°ÙÀgòïƶp| lÁš~Þx3†¤U0ÉVñÇîs#¬àçFôè¾màâÄÄË|C ÆIFÇÄ;})×%c%â°éö!bÈu «Ï`š\|ê[*ÝÅ#9YÚYNÃû§ýüøX•ðª(àNN¾*îùŒ«»Ï+d8pª÷…}攘þ-è»XÛlÊ9 jû&ö5HË7A ¸ß1¸g»Ìpkl÷}¹ûSI”²¢C ¥l¿vq $ûÀJ{éÒÞP¸¯Ž& ð븹¯úlüûRT˜ endstream endobj 718 0 obj << /Length 3626 /Filter /FlateDecode >> stream xÚÅZÝã¶ß¿ÂÈCÏFÎ:~Sj—¹ô4H›E›à.Åimî®r¶äHòímþúÎp¨/›¶wƒ4LQÔœÏß Éfw36ûúêo×W¯^k;Ë’Ì3»¾qÆ©ÌÌrž™Í®×³·s³øéú›W¯  ”J'Œ) ã‡l]›ßVõB°ùr—¯>äw?ºba¦ƒi–RXÿùþ3#‰È;¦Y‘¸ä%ÍÇÇó –(+»éÞ1!h™$³2Å1*1ÖΖÕ9PoÁ@y N5K'ª1ö\:8¨9‹DÀÜ £4lå!²Ðd)ž¯‡§LP“ºúêúê—+d›ñ™„à”‚;5•LÌVÛ«·?±Ù^®Á)¦³?t;S /~·™}õO t“E1pF0µátÌþ‰\ÖOá²¼Èå4­àj…>gíny °z£.X;pYöæ~aiú¤ã„ÈÄl4æËÅRflåˆmô^áË‘93`klÊÉFM¢€îhB‹ün¡çyQ‚;€—@/ 9yÉ9ù l4-Ĥ¼^Óë÷àW›\p=wuã–Ñýäu‘C¸zA_þ¹¯Âø<[»fU7.t£wšÌ‚˜iéuiiÁÓ1 ABdXr^æ›Ç¶Xk²r¾ðWçí¾v8 ²ù·•‰ðº½ÏÛ®ºÀ/n«ró¸Ü7Þ¿Y5[zùþcâ“ßÑz9øÓ†ÞúÀú‚ÚEèGND:rrîõÆ·Þ a¨… 0˜Çt3Áá┟vØ\[TeðÌëÐ"ü’tVßͺ濾¾š½ è žbJ ›ôséÄè`‹ßƒ×\nnŠ„ AÉlÞËíf1Éw¡^T·­+é±v·®®qøÔVôU ï‘/ „ªn|þ‚ ¾ð(ÅÜ4á›GÿE¹Úì×ÅtHFù¶(½ZUÓ[R_èu·Ë˜¤½uqÙë|ã<ijܯ{n=oòzÁÓù«_5[\vMï÷åšš|¾ru›ûÐý«ª\¨9 ½¬ÂøUQ¯ö[´Û•k: ±bþŸ{¾$AD—L<ÔÄ]/_x4ìP_p„7bøÏiD ~¢ÚN ¨#´A)¥ÖCYì«nhô9ù,3W1‡„ªøä-sLÔKÙåîèÏK“Ï(Îg™œ¨äzæðr ÕAÍ'²36£ñ9×ñŒcèDÙŽ'¼ÈÕ}tE–]„†:Ñ’?K€§Òa›êDr gY¢­~b: øתK\ˆªù¤Èb !S´*cº¾ë>þö˜ŸYÂ2>*°0ÍRÝ{Ë/È `ˆ½Ã7t"×'MŒRÞÑŠb€Üö ÃzOds' iñ…²Çfʧ2Sý?˜ÏZ„¶—ÌáHEO3“õ~!¥H5Dh€Þ¥Su‚Ãü¥ìûD7òsd~HÁôD_»2_% ° ‚O_µþê–ºûZÏÔÊÓD÷{ú9Z<4Cý·½'š`ó H*ȨùA Æ}Šâñ•˜IôVË.%äÅb¼$†µ¦Gj¢²l\Û"®ŒÐ¯1À•]¤Þ|¶¼ œ×‡ÀÁåÈÀï¬2êç%=Gƒ>žš>/ŸVâRPÍlZÕxHªÍ7Ô,÷ÛxŒRÇÿUE óÎUáJj¡ß#â@+ˆ1U 3zšŽ'ÈÎe—M«µb_QB¢»r»6$`ºoÁ‡£…¼Œú•X›>=ª«Ózj)ÆÕ®Þ6pe÷òà!¬xåÈÉ&r<@ … 77Ô_aˆû²h»®(嘋Œ:ë`”0‘Žüj­ KR ¯wÌ­˜„+ûdX«&æràt3¡£‚¬ëH‚þ-JÒ´Ì&F¸¨X=[JŸw—Ô"éKàSzöæå jŒSØã’‡ZZî—}¾j`©ÔüÕÕÚŒµh3³ö“Fð•‰g2ÊjˆýRXPŠq~4*”G Ö€]Å”{ÄzÁ1eŽ´ðUÐÁGb|ø6ßVû²¥¶Tðÿ¾vM±ö<ëO fÕ+]Ñ>¾ !¾,1¦) 5ZÃP ‰†COÈ©Uwv!‡AÛ¯þiX}A§rø²;(‘ñ5„Áy ]„ªï½|µÂ™éLD¯ ïÆóª-c•+ªlÑ™LWÿŠžÐxÁtõÎæo€mÞÖ N߆•‹…±ã¿¾NA¸çU,¸á‰°&Z²˜ÆeÆ.Ÿ»öÎæ‡ÅÒ¦#—“NÁ®â—²ÌÃüjZTÏøÓÓÔÏNNÐêéG¹Ç¨ÑÚ¡xåuÊ;ÓЄû½Ÿ8sf£r1lžØŸ8…ìù·ª6ûmIK"×¼j»Xèü|«wáÕMãj·¦žÁŽB-~ua‹μ¢w¤LÄpùC `a`±‡ü‹TaV‰ßÀÁI‡\rgáÜŽP™4©¯‘LK½ÊÔ{´ÀÖ.tQ7uÓRo/xâwìâ =“óŽ@ °«B¼§o\½E弩"e­ÉN!õSÞÃŒ'twT‘ÚE³Ï”ñKº;š-®»RÛ#Ý…%MtñA`rÚ) ‡ H[£uà¥à"ÃÑ«òìDʘÉ$÷}i Kñ麽’œ—4—6©¾$êô t Êl/jÕ<Žf@N<ýmx>r 0Æóo¢ úßÍ,Bf ØZÄ,âÂå¤7Qã6ZLÜ<"¸ÃbƒnŬåêb€A¸ÑõŒ€PyI0}“È)á2S Ïð|Í€Côñu‰ëmžlç×ûrÕ†óÁþÌüÄ}L¼ò6éH­NœÆ¿z-åQÍ2l"Læâ§Ø‘¦cíÓ&ä™ZÏÿ‘CÞ±Yþ=weó«¯æÀÛþj ØÕ:âÀ­†ÞæeøßÀKé?}’ïà£ÜWZt¨`…Ö"”‡¿†`È$u$ìvx5£?9·¼KÒ-f–9yvßM~Çò¡Ú‚ÃÂH6_çmN/‹@ˆÜƒõ•Ê-µº”;(<øÀáWD]-KÓó1<튨§5ƒ+n»JB8|Òº±îaÂe±qÝcfº¯O=j2c<Êß¹º©Ê¥—™¯¨ÔóŽ®aà$\ÄÍ È%+z¸««ýnD’”ŒžÿBÂ…™x¦³“ƃzbÍ©ÓDhÑd~—×m±Úoòzã-œøšâ@Ùæw®Ú7ÝUDÊHáýÝ]¸œ—“ZBØOûûÔÛUV±ME‘~õ7©{ëkB¾‰˜£»RMeê8ìc|‰DB¾ûjµƒºè¤“Å¿vyC £Û:ŒyæMwaIgCEÉF,]Žø Ä=Ä@â¸ô­£zÍ-8Ü»§û,€ñÂ>Ãiá]Õ>Ü· ;R™š¿AÅE`‡ë]7Ž:èšöÐÅ/ÄÞÛ›‚î=Ñ‹à# UÍTã{ÁG@R¹^‡»d“în4•lñêt$U é¦=¼ã²ÂÓݯzC‹(O®bŸ~0c4Dñ.<ñHxÚ¹¶úS”_À9icfÌÇ! ¬óGp(lî¼°1èTáB¼®þuÅtì ú`‚>è^tЇâØ ÔÛ_º ô}Užszî5tUQGã¿Óª³sñ Í.Æ¥.Ä.Ô$„Hi€öƒPIîB@|%Äeæßÿ_, 2‡çŽÂGeÍð2 øÑ£à}³¿¥g×Ò¾¡b©GjJýýãÄWø)Kú–w«~ŽÆ(H!"îAŠ´Sý~—1Uÿêúê Ö³O endstream endobj 734 0 obj << /Length 2709 /Filter /FlateDecode >> stream xÚÅË’ã¶ñ¾_1å‹9U+ߤö–Ä^'©²ËeOÊÛ•…DHBL Îxòõé(JËÝç’šƒÀîFýîÆ$wÇ»äî›7~|óð¾Jï¶ñ¶Êª»ÇÃ]š$q^TwušÆU¾½{lï~ŽzíÕÁºû,‰6gµÿMõý¯x_Ö‹­ERÅu•cÚT#É›DNºÛäMCèMVÖœ‰ÎÎÞ§eôdZ=Þo²¤ˆÔÀ¿zô¦W^ãWÙCýIóâ—¤L:{„Ÿ”¶m…ƒSÞX^NC«s˜ùþ{RÝFî³2:è½—M½muÃz[Fáûd[^!<+çÍ~ê”ë^PBnºÚ–%K¤Ú'd­Z²î*¶ÑóIãùE#H#ÙJ¯Ï8’Pæ>¯è@#8åô[íГàG­o¸·v?õÀu1\sš&:LÃ> ·˜À£íõšd{…Gò•cqjá›´CÞ:ã=¬Ê2‰\¯âc×÷üõ>œ¼t‘ð{ãVÈ2Kâ²–?Ë&ø‹›;‡{xùnÍóÅÖ<Îa·øã|ƒå™7gåÛ¸)Æ_ïA”"úÊìOÖÛžl™§yf9ÛaÔŒfk;£v5´Œ»11âövüÈhôáuË(4‚ŸOpbÉ){5È~Õ¡óy¶Ð¦Èã´j®íd'¿Gnò$Vãäèfð5NÄ9I"%\QØŒoù3ì!$‡½žqz… ¢÷l’!…ˆtW b0r°"ÜxÍÃìÁS˜lÑ8‚ÿbìmóÈ[:ƒjGÐÁÙž;3ØÞ¨ŽátoÍ8’o´5£wFBF E«¼‚ˆ/Š4úÜF ª{Øæ-”F¦ô'å…ýúÅ[ã •@BØdM‰MqI€_V|ÖÔ×WAÍ12¦…éÏÆÈ ,Œ°À°}µçgE×¾ÿ€ïY\'iØr*(m0ŽIó À¬¹5ùaÖäqQ\+E#ˆ–!½e4žõž {PÒÈKNLetÔƒvª3ÿ!ÑЙA+ÇëÞüNÔÞäÜÈ0¦L¬cÊ’Õ§ws{S¹‹’üfÅ°/*0ð‘×¢i4Æg£gÇèÚMôi •Rrl–y,Oâ"©ƒ‚3¦H‹Ioó*ü’$ÙÇ\¶`¤â†Ç•k8$³_½ý-ëKÉÕ?¥ÌRCkÐül­üJY"4//9Œü -‹¸(E‡•D5¦®²äº“—E4Øa³×pÈ1§û2z9C¥Oƒ¢ e×áQˆº É!%d¤PÝheÅõ ó±éPr0I•Ñ`\Û?¬È uÖ q¢x6ž’f—Y–h*P©Œ¢øÅ…ä0Ä:}ÐÎQz&1„ræ­¢!qm ñÙ}ÉààÌHjÙzæýužBšÎøÍÚ­!’<$~ŒßºŒþ{ìî ±X•ek)ùÈä¶Pˆ ÕEJÙ HyuO íZ^îôDz—7²—щ«Yôø€?ÞeôOÿßÎÿL–Í ÃhšE‹‘AÕüу‡*‡Yªê‘‘`Îpi¨ŒLj ¿=ëA -bwÚ?k*¢€æN v7jÇömr y&!ëÊœ¼@Ãyœ%Õjo”5´';¯ E#Ë: %àŠF/í…ô 0?µF˜,k,+ÔÙÂf’ê,Ý(Ðxh ôd,6>­ Lpv ̼×Âñ+ÑÇjLì O%÷S4nHK0n€ÎI9wvÚ¿\!z*(Ü2-„„O$T!~WXÃß.m¨¡f8ÊâœucMÚ‡ÀÀ»I†ER~˜Õ¾' ¯—§zYž@4BàMå)k àýÔys¦zPRøžG@Š]‡I]ÇG*¢y†@,Y$×,R(Œv: ngè2=LLºýtbÍò†4?@Ü“ä[,AÞÙî‰ø7Ð!TÇ’ÐTåÛРåa‚§f\‰_^ŸgÎKò?øÆõ»_4‘g  Å--ÿ¢à“ø“,®1Ïêèª1Hb‘èüŠHù[`¨FÀïõ… ÎÖP‡¯`Ü¥Uè2.¦J1u¦¶dB¨¨ ÜW4Ž ò*{oÌ«ÅØŽÓÏ# Iµð;2-…¶™ GË<²›Â(°?¬™fœvÿ’VÊ@;ÉDLCD™\Fäi”ªã…w4¨P&xKÌ<ý!ôjú ]`šD‘ä|Û8öq9ãM\¸›>¬æ«›à™É\°à¾'˶s K ’~-œæ˜ ò[/LHbdÖM£×Ž³|_~>{C³T |½65µÀúÒYÇpÄ•DE#ÖE×W“?¦!¸±á(šú8ZÕâð †jC²9dq/%B„í„-»0`zè…G(H¡˜I”Äw¢I›„|•Mrô±ä,Ó '¢èËqw…î@rÒÔ ÝÉK kv³ %|qjÿªÒ4úÛÀ‡è½…¾îE˜ÒðM›9¬Vã=Ét×Òqe-&È¡:wk°>S?|aã>€P©½u/üþ“çÕe»åÞý‹™Ñ͈)åáºð-<ùÜ)ˆ-ú¨pÚ<Ah C¦Ë¹V¯=´qßÁ]ÐD  ˜ý2ð)‡K¾mš®ú/6ÊÛ”ZÉ×OÙÐ"ÕEúúî/Ïâms;bóåä…‡Ë8&yJØaÓ”lç4N¡íßdU×Yz£™ûšºÉB‚™ýU²—×ìƒ@'Äóp-I¥SBæ©Ÿ %½A!ãr¼|kÄ™ï¦[¨Y<Š®Í0ky’·‡ymãžæÒ€±…ƒYlY6MôôÂ÷)V¡ß}ÑŨ…z¥xRA¯k]àRÌ ŒŽ‡6lº4>kM&u<;Dy.źT8kÃj§Ê9 *Eô¢ é¨^)e—7™WÌDï'ÿ0(å˜ï!Þ„¿‘Áâçßåþ— IâäæiWéü€Jÿ6@ †çëX¨€v~íÿVà×Gy Uü¹0"Í0?>ÒSÌòáqÞ›GÉ&±Vö(þ”‡œ‰KÀ¡õûdÚª‚á™ÁA÷\ç6eC›{s¤Öfšcx>hd8p» .{–Æ rò¨„ üëÃÖY;øÁ¾‹Lp´ ¾1þ¯ÓŽ×ʳãšRf4Y®L³é6N²ùýèäýy|÷ðp¥L»XæB¡¹õú‡ç'£÷'¿{ÿ/úL&L“,NÓù5lvÉ9PBx˜aô•!.Þ}Âa¯$Ù„ðÿMMò9Â-…b„&_8Ý[ƒ/(\Wj¦àß½“ÝÿduÐÞ[™g&7ò&×÷ø [ô4¢¼.*Y\æéU Yú™.û öÕ6®ó¹²Ècü‹ð¹E<†^ïµj$OJiôaå 5¸˜móÝ×?ý¸r$xÁ6›cýKæ†%Šf„½arÔ‹é_0Ø;†‹ZUxo® èŸ{ŒèøYq›ÆY‘ÞvbºÝË·7YmœŽGClÈw‡Ð»›>ü¿‘"ŽNÍN‡üŒÉ†2Žzä³î°ôÄ«n÷õã›ÿÛCüÙ endstream endobj 756 0 obj << /Length 2733 /Filter /FlateDecode >> stream xÚÍYÝÛ6Ï_a䡘I}.î—n›4A.—Ûì]Q´÷@K´­¬,úؽí_3Ê’ÅIŠ< ¬¥áp8œùq>(±[ø‹—O¾¿}²~Æ‹”¥‘ˆ·Û÷}&ƒhsÎ"™.nóů^²üïíëõ‹ˆe2ß@Œe9èVmM½¾·:ªìNí4Nz⻕`™h4{ÕO_‰ˆ’„\mQí–+ú^»×ôðnÉ}oFâHòdÉbÅ%$òv™øž!IYÑê3áNÕgî­Ôªq#]sλ5ei–"ôNJÖz«k]eú UuV™sd8v$,$IïÈ׸CÓÕ°É1[»·UÏ·d¤aHÜï[ÕM[dÈyo¶íƒª—2ö4-6ñN3Ø¿Ö3Ç1FFÀÒ„÷ 2š‘‘ZÀ8´žDÓ9òU0 ‹É_Ô÷xóòÉâו<妸â>ãI$ãõ‡¦a÷¾ŒXáË‹ å0E†@²$t^~©Ûµ`ºÕ9½S¾%˜­˜8wOðˆn^r¯j SÙe¢6fÉCïÿ9þ¢¡_E?;coƒú’ö(¶T™›a‘ƒíÞØ“ÌEÕÚÚJ­è·kNÚAC¸•LR«x@Fè9võÑJ—¡@œÁ¯tj–•îw`G ½kÚd‘kPDßéJ׺(r°C}_h{v‰›Ãb}Ì"YUîVmzÈÔQmŠâ“vŠ ðTsR}¼»ˆvçnÀ5`“ öàü¬úc.! ¼5-€[Ê’8P-ü%3Âȶ«2ômCt«˜e<ž¨0½ÖDÍu“ÕÅÆú'pþ¤Å6†ð}ƒáºké¥pÊ4{Ó•n™±•gü§È*·5y€© ^¸ëÁcAoj9‚FËß9è1™ªˆ¶qS¶µÖå#ÑrŠÁUiT®ó~Ü&è ¼ß¼!Ê®@~rF5»‹³óÇÔ‚3*‚7µÎZTßz>qØ3s8 Çl“rt®…/YÄÃ>ˆÝ» ¢ˆFL=uqû)e.ú, N3Åf‘& †'Ùçª.¹§ò¼ oé[o µÖ*§S+{:ˆ `ÿ5ºÖî×MêgØb§ìÜd'‰sk;Á¾·×åqàoˆH1ƱQ4„?–Øío0&Nl'ƒ˜ñXôÈ«2;Ûc‹Iqþd1çÈgq Á<žbá«4á ý¨\ëªâ¢&1ƒLßOŸm°5:Ÿ |QÌ’h¢ÆaI ‘²dÈ÷Ͼ|¡’^0^ç¨N—ö +…ü[¬´+‡Ï®4,F´Ár ýr` 8Y|bÇûÏàJðôÞ,¶ôûh:G€äy‚ÿXN³…=˜‘pugdSSÿx0¹.›5D†½É›>ƒ¡+€Ã¯HœÎ<ÒùšŠ«¥Qq¯,ª;7Ök1 yé­'cgbéI<ø@¦Ü{ئ‘pA=’Ôi§9QÔ¶…"ÆFÿ3«/\I…lŠ¨Ö˜3 -ý²„JÌCË∠œecˆDJF}‚’†©v+ç&ë@P6.ÎlÃT`d†Ì¡Ú åä9„Æ="öm{l®Öë‡{êØRD·a…Y»¿¾/µr8”ÂöºvZa¶–" ºÞ«"£ Ï ù Z[¦! U3@'[Øò¾=v­K…øVY9q“FYK“‚{7–"W3†‰éœ*`#4&ƒ8g7ï yàœó¾ÛAÁãR”i)Ò!´K×öØÁ „•žÁÖLHu·g@sW²oŠða¸*6äéWœ™!«lþ wÕ~…×ÎÎý—¸m›»Ž÷ǵÝàÅû¬dz\nð:sɯ4›?pR®H ÝýO¬ÐùΆ,)¸÷Æ^€Dp†8˜­gùîDä}K,Ø*íÆ^»×ö7¶A÷Ǽa”fƒÓ5ªŸž*³kN¤,òO¹Ž®@ââçƘ;z³÷B ß]`BÖt™™aNØÓ`óXaE]4®‚r’§— }„ÝÝÒ„óÑ:÷x\å‰~ªÎY_ëC¹ûVJW×wW4xÓ5îKµ÷§0ñµF Úœìò»[q’ÞOîÈmÝ# p܃ÔïðGzÿ,ïŠÊ‘^9FÔš§Iø)Ûs 5æpg;½4†ù®±¡¨j#êEËñ bÃ=€‡½W4û‡ÂÖ;ãt½~~EÏ3•ëC‘9ç%ºa9uÞ;ÈÜÍlûm\ùŒº¯·¹A`‘+"ï'¥«æ÷Óðé’_„ÎB¡Cç*”IoÀ%¨æ§¸¡‹E eûP‡Á·ÊÕýt ´Z·µ±²F—_s…DÓv¹½Òä©o%âo^4ødΓ±„D,f¿Œ%X•ñá­êë|»VWjz~UÚ®ûJÀ‡&jþAèŸÀ$Ä'>ˆñ™ úºË^ÌÓßœ÷¡à,Ↄø<9妰±¿ø©\¨²b-ƒ„ÄÓ¹TX„\ýI?ÅßþƒPôgý „¾žwu À™â’«g?»šË€p &®þÅf±®é¶ bLÌ=¼Ó­q7=í Åö¢qï¯ûkS–EÕœócÀ bï}©‹Ý¾íÛ% MCò*ò}ï{mÞû—¼o¿œàWƒ®ÆúðÃ=Ä~Q°¥ ~pضTÛžŽÃ£ÉT ]'ºQ]mí§­ÚvåWTê<¯hpþ;ŒÙÒ/õðPÃÒæPün{/¨a‰f>¡ÇÌO÷žïà8…¸’ïímMÓ«F¿×„¼°L÷ªÉºRÕ4ö…¼Ù,€W£KÅ›.&B1µˆ¿ªáªR†Vðål`‚íÑÅÀÄ£uãûR®üH`øðÉÿ‰ÄU<[Ïýxûäÿù3=\ endstream endobj 625 0 obj << /Type /ObjStm /N 100 /First 907 /Length 2525 /Filter /FlateDecode >> stream xÚÍ[Qo¹~ׯàãå¡\Îœ! ã€ÜihÀI¶AGûζ [N®ÿ¾ß¬VÒÚŽYÙÑ’’¸ÜÃá7ßLVvÁeŽbB™KA™] ŒR\Žø«êD­]q%X»êjD»t‘ 9â ³\ØzBÓ‚.úË%9’`³#MÖX뺨ã@Ö¸8¦d«cÆ[r Ž*ä8§4Ë• @rŽ‹=U¶¦ˆJv1X‡U\äþ'u1Z‡µ¸˜ú«‹Bìø£&A…P©a&‚ŸJ.ø&`Ø6Ö]²~$'—¬É°Hê—À$«Ãø2*Å¥‹H®.ŠN( zÆFÁ°Sÿàæ„~àfÉf>üll ý¨ £Dó+‹Zö˜C(èß’}QI$| (Áz"Ö7ì% $‚ž¤À {iˆöTvJbmÄi ÖF¦˜g £hÅô«ž@¥ï§8Õ`¢q…J`4†] ”bˆ%û)¹’bE%»?š)UW¬¡2+̨ŒÆoT`J¸`|eu•á4Êž–¬1\.Á—€×Ua<ÉUô3S¼¦Vôª¼Já´„©´¨VShA nd«Ádší L¾5shÅté^žìW ›™¿õCÅÜQ6{¡?b³%&(¡WÍX”1š±"Ȥo£bÆÇÈ°JðN˜5fCP¬¦avp0ëÞýçr‹å¬{{óqÙþÛéÅï³î§ÅÕ§ùÕû€õ>tí~é~~Oý‡Yw8?^º÷©Š'`Ý=Ûr èC1Ç->pD»—îàÀuo]÷—Å»…ë^¹.>Ï=¼p?þ8ß=¢`õÁ|z"f_rEœ%_ãȽ”&Š4ŠÀÞ–è‘G½…"ïE¬Á£¾Akõ1=; ->òEQ…ÒB¡ ”y„B3¼•[(Ê(rôeäQØ—ØDQ'@‘È÷h"xk E  àê%PÄom¢˜`¥FRó ¼µ‰bŠ Ù'Zk`1Ê-iç=Å‘-ùZ¨…b¾€~òU¶(¸TxkÅ|YìEG(Tá­MøgñÂ[¿`Ÿh Ež ¦rJ>å °|£B&à Žì¹ŒP€Åš!U¦pNÒo ‚ œµB&Ô÷yЉ×Ú1A(£š½êDH¾CtÆ¢u¶ ¨2<µ¢LBɧ8ãÒ1_QF #à/ §@8Š„ ŽPä 5ÞD1AL§˜|{EŠ^¥…‚&àndyÞrÁ Šˆ ¶PL‘!‹õ¶I³AAÕ'n¢¸E›¯Ü{ ¶gtèºþëß®O!,=OÞöc.nÎÎ>¬Û¾^\,ûN_Û>HÈ«§^ÛÆI¦þvo®Çoç€èº7¯^»îÝü¥ûp{Ôo€dÖýŒþæËë~/ ÛØ®7WÇs|%eõÕßçŸN~ZüázkØŽö"òÍÑžu·úv½!¯ñVÛõ1,¶é³*ÓPæ¡”¡Ô¡,CYW¥ Ï %åП ýɪ¿ûP)Œ Ý̧Tkc>Ó^ëßÒhuTˆ[(&Ƙ1?’«0¼§Ú4Åq¢ÐëE¶×G1Ó( C°´·(¢`‚¤…bâ¤-y”ÆGn Åò Ü—2²E¨˜¡–-d‚%’‹Bólm‘íûÖ ™B)f…>±E6ò¹…bm’%ø0Ò«ìQZ!H' ‹œD92ȃµe bBÄ™ìÀÒB1Å„@PÙìRj (SlÕV¤•#±˜Cô©)ÓÊ=i"u7ir·-#¬qB‚I¦h . ïÖ8Võ9•‡äÔHAÝÕV†* ƒ¤Ìëf•7ÄÙfÆêƒ0ÉPG*kglß¡Í4Ü×fõÉÚLí%ƒöªƒ¶ªƒ¶ªƒ¶ªƒV«CûªûÔZĶ!j§lìvˆ“¹Ÿéå·Æá¯~~}|tv¼¿•Býæ$‚¹í=Ùù*r¼Hvð8ò|0smØQ1ex+™ŸØx0WçGþæât@!ù"ýÑ©‡êŽˆ+vr˜ öàô|8b‰bÀ‘$úlg×ÿÇm¡jRv© ¹µ“mÎ=©B†=›o°"°ãó\}q‘r²3žqFbµá—~;?êýr°CD¶d×·Ía]Uê7èôî§Ýƒ`¼å L¥[ÜOvžŸ¾E÷Á馳÷w¯?lZ¡þ}1Êݘ`gþO‹ vëÀ°Ø]‚U‡2 å^óìÕ¾¦éCh$ŽvOÅWSlpéÀsÿùéõ±?ütt}âÏŸæg×ûç_F ðÍ:±ó‹4WÙùÉq@¼ ø–Ôö횥{ÅQ)žëóÁÌa¥ÝÉîÙ×ö×bisÎå|¹Ø#éòvÇÄX¸i`Qº±ÃöpƒÝ²Ù•tnµ]óÃA!‹vjK9Ù©Àãõæ-fsÆn,sK”niæ—õ—†6ìvÝg¹§RSL÷¨)òNÔ¤)Ü¥&^á·[K«rÅïvgiUÔë$ò4$´nV€m¿Ô=ïóÙùùW@•Ògô Êþ†Iv‘äI呬m’Rôµ?Yq$âɃ·6äôeŸ!*ôX0rR ûjúŒÀN•žŠã[/¤·Õ¤É©"^áÅLJƒ-n cé‡Ò½<8èßн<^ž..º·Ý?±¿?œ,——×îºÏ§Ë“›þxqÞ}ýr:?>Y~ìÎçË£_W/žŒrÈh¨ÀO ˜lÙ-ØNÒh0ÆÝéuÜv£éz½]wkŒ¬*|ÇÆœÔÛµÀ= À=§øYîqæZ¦=ž3Ó ßÒ ßRJÊSÓÀ©iàÔa¤: _‡ÁêpŒóá‰Éë%<#'»XlG–Ð}’ Cy¼K~ZœúÅÕçŽÐoAêÞýv}í¿,ÏÓ_ì-5íÅ`Z†&4ž«âû+ÜŒœùùö ºJ¯.{ª±?w6ùŸYÀƒò| Û‰Ç »ÀÓïdŸê”-ïÆV8"Å^$ï‚cÏò”,"ld‹Ñ»dÏ*ùAÙºHB¨ÖD»ÍÌ÷„ÄþöXØØ8²ýöl·÷k°ûÒ_ÚëㇰsºX›îé!1Ú (…1°ß¯Õ.23’»ú_¿úÕŸ.¯¿á%ÆGß³1}j&ÙŽ6£Ìv¥ºgÊ\þ®D…]_¬ö?BYbèéqoàÀê¿ßøË“Ëîd~vyGZ v’ã¶ný·‚®š endstream endobj 779 0 obj << /Length 2006 /Filter /FlateDecode >> stream xÚ¥XKã6¾÷¯r‰ Äl¾$QÁb±³I&˜9egzw™‘%ÙV"‰Ží™Ÿ*>dÉ­vÜø@š*²X¯¯ªHƒ}@ƒïþýpwÿ6bAB’ˆGÁÃ.`”!£ fŒD" òàçUšçG]}YÿòðþþmOÈ%Hq8Ì&HrGÝé?<ÜýqÇ`J6Å°#áAVßýü røø>€O‰ N†´$ðŽ¥€y|¼ûÏxÞåhn/ÄôöŒ’H² ¢âèÉíÇ­ u8ÛÇI¢˜ãMž¯7<¤«ŸÖŠ®`ï^7]éµß® Wº]‹xUt½#¯tß>ˢ˘Dqüшa´` ˆ% jl/ü}ÑemyìKÝÌÄ<‹;³SÁ†))»ûíÐdfëF¨ÄHˆcŠJÀÉqTþûDCÚéºè˺pKYZU'tõk^¦µnòîk d'Úa§[£1s6hì›õFr‰Ëv­X³põ9­U1ßßôš‡«Šbm@WIZŽZÛ;†ö(ë´7׃¿ö`AWÝ°Ý·z8ºu½³c×yé‰--³"MZ þ”mÚùOF­pP­ó¢rŸËf³$œ‚ÞöX6{ëO¸§M{ÝvÄÅÞÔ6hF.œ£ÿ·K÷Å¢ýŸúÃ!KN[%øà» 6],³ã´H|ùºv=,¥­#`qÈp$ê pÀÒÀë%Àqщxà˜ðš¡èŠä@ŒöÜâ­N¼2~¾ Q!`ŽºîÐ\Fs‡æΡyl³‚r,³Þ&‹Ñ˸7 WóVk¢Þ‘Úšiuãhý1µnŸ‰Àú˜%ìM¬Z"3u_–Ø.,|.?Ú¼ÀÂL&DÐä25äÅ.ª«1Czà3ã^Ý\rByrÑ®á†\¶5O¾}|aþû³Û¯Á*^ÿ[G |‘úm:øÞ¹,÷vâÜKüãô¸ý¨0…ü²9¶ÝèvÿÏbÐð…gppE‰’Q×nºT¤M“}ì¾½¿?NÄsƦz5aMý ÒsÂFá!O çFøPì Ó3aŠzMt©jI1V%MÀ2 ÇbAÄÊèžSFíå6|ùœvÈlBPO è›´I«/ -Øeê$øôÁ.c×øøMöùþÓì÷t_8ágïwX“È3>¼ÇÖ Me·Bâk¤›EßÇ ’†ÔèIõ®?¥öio©uŠ‰¤ónäÂ3û‹há œ‰‰I©ðõ ðgŸ8¤" Þ Æ(¿t­\—èE÷Œ¦"ßÿÖuä‘Šˆ”T,¾Ù„œÈÐûŠ{Dû7U§Ÿy¸¹h“^Vƒ¾¨!šèúoå-§}h^Pp3è®Ôk@p6Þ{ònàlЋ¬ÄÚ0{ û“êæ‹ÂF=›MÇjd‹/±×ê#NĹ ¯9Þ`þ(îóØø2¾ŒÍËøŒøÙG(“¼§/P Ö"'‹ùÃÃÝŸ§1… endstream endobj 796 0 obj << /Length 1898 /Filter /FlateDecode >> stream xÚ½YÝ£6ß¿í=”H‡óÑꮽۓNmÕö¶êõR 8‰%©!›Ûÿ¾3›@ÂîvÓk•ìñ0ÏÇoÆ$pÖN༿úööêÕ OÜÏ“0qnW ?Š'eÌO¢Ü¹­œO. Ü~xu“°gÄ?Œb£yŠªÚµõý"á®_‰Õ‚n±¯{|ñ*0Û½»½úëŠÁ0pØ°S’r?#§Ü^}ú#p*XüàÀRž9ͺubP&#×ÎÇ«Ÿy§O}œ(‡~3'ᙃ²cUQÍ3á|ò~è糇|SU /äûÓ" \±n›Ž(}KÏ89w[µˆRWt½a¯ÛÞðýðà­ÙX~ý¦­€Ì´"ó6Š°5ŽÈµÉŒk–€ÁC:Ñ[Ñ•JîzÙ6;í1 ÌñXæ§`dýú;)õ»ÖLm#Ì@ÑsÛ*CÙÍZ¯ Ç جív`;Ÿâoru ?I3Òå×®X‹ÙCœj$'‡zñbáñ p7áäcDÏ­v×׸ÈòÀê9瓸B~IÜwÒ :aG¥ôëåq¼·ã݈¾#:îå~ÆÙt#Õº×3̵¸µMÓöE/¬%ª®¿¯ÇóZnͬ’kÙwfrU¿1ãm]˜Ýí Ú¸WEÓ­ì^“Y_¨µ•v+í [«Ú²U•PVçþÞŒVm3èPŠÏ/ç [Bœ€|Q¼¾yóýÇw†Û÷}›5§¡ÁS2Ú8<Þ(Ĥõ~+`ÃGÃä‰ðø|“IÀ‹ÐâÅÝ‚qW”½ ÿƒì7&à7&î!w‹z/L&&ìYžòNs¦Û´ûÚ$ÚÒpTªÀ-¢ääDžÑÒcÜÏsãÛ;ùEÏU¶ rx×6•lÖã£*Y4¥èž¯ ¤Ð…¦‰Õ0M†@:ÕÖ ÊšªP1¥ZÕÑ &5¤–øzáEIÀ¥N3ÄG»" ¿?`Àµ/)@'ç s`Íe¥ â Ô†~ÊRËç8ãE”µ$œf‹±Ó©¸ØÏã¡Z¿$4ðaŠÀ6’º(åïA ]›wWÛÃpâ.s—:,–Yƒ¦çËܺŘ:óª\ ˆ0¢È¦ÊäQ–í¾© ü¼(ÜÛž¨h Q™wV3¶>¤‡\óèQ—A?’æ–ãO¥ºU1<²;óê‘õQWýùVô…¬»¯wÁ Ïϼ´_þû´â¤Uâîw;¡ìêÔCüÌCÉÈCYf=ÄGJþseÿÄEürÑîy‰ÔêfNÛRcî%H=N+Nmƒõy'.CÔ0.{.¦ïž~_âl6ÿÓsa‡vYVE9aq”åP«{CÄ3!U‘s:"ca²ïQw †šæ±™ÔÂÑ Ty¼.[ß .ꮥ–*M¡Gj׆4tU8MÈ È240ŒAi‚eÜ®âѽ<õAåÉù1Ç•¾Ÿ¤Ì'¡¶…ABæ*±-dcP0wo°X苽1’Ðöq!®¶jáZ¿Ñ( Ø ÷F(³º%úÔU¿¡ô™ch™™‡kÂŒ?b@$¸fŽ¡PZ¡9©Ü;@çu-q=#2„+M–[‘Š;úE“ÃŒü«)ô˜¤{f. ›>Ë(¶ß.…êŒPrE–Óe @4Ü©LÆR¤‘ Ø4¡™Ž‹é²v'&WÉ€Wá8¾@æf|9†§W•ìz%—‹ _x>Fé{ã%Ø¥ÚY(Yâ„Ùl[0W'P–¢?Ño@‚ÌÂ\ŠNË4¥ejqئ­.MðyÆ@À°FqR?·tÂ~€ŸŸ9jíØá/ﯜOšq#Ôô㡯lu©¨‚?Ý ÏÙÚÞË/*u9ö¹kYÚ‰nÕá9˜ '‡Ë)š˜í$¡ ²Ú»"ŒuZ!SEýÔH"å Šh´¢&éÔÔÜIû½¿êß_I'¸ôÏÌVn U”½PÔßcŽP1‹)Úv¬ª6õ4ç½.À¨Ór¼6îp>íð 3!µf`1Kü,žÄEÏ2ž’ÌÕY Ĺ»%ý_,¯æö‹c?‹Â#ÏÈòÃ`hs¯—…š…s¸Y‹úÓbºMQÍž?}ÒqY€j7ߢ'>K‡Ò5BáÓuæ›ñõLYº‚'õJ¢¹×':Ÿ„½B2ŠÂ³o}CGi>ZÚþc”¦Á«€î_Æìb¹T„W€¡º,;j¹½RXŽ º`™ùFL| ÂlÛ‰ØJbs‡cÌÉ¢Í#þý´Jõð@S’å>OÙYWòúA§¹Ÿà ›0Æoè<žÚ>^TCÂ<ìZÃMÄ„cˆ C#@¥Þ„Æc`±Æ­•·«‹¿ŽE™ï€AïÞ,.ËG¿*¼ÏœÛèR ­© endstream endobj 809 0 obj << /Length 2503 /Filter /FlateDecode >> stream xÚ½ioãºñ{~…¿U6ŒHêì…nÛÍC Ø ú>¼-PÆ¢mmeÉÕÇýõá:ÙqòÚÅ15"‡s_Z±Yø‹nþøpswñEÊÒHD‹‡õ‚û>“A´ˆ9g‘LÙâgOeÙ¾*ŽË(ôX¦×Kî{ª+Úå?~¼»ãÑñÀç,N·9Ç9n¹ñímî÷î^ÊÑ™[™HNÕb ¸Ô:Ó™5ì#ýR ÇŠ1öˆªCqûŸr5ëŸ!óûŸ·L ÂßL|õA#'ʛðdˆ²—e*Ÿù±œ U¯Õê½2}Âp«ë6_9ˆI°Ï{ ¶+J:¡‹öcQ»hÿö° ©÷½´³#*¸­)7…ä…½Òק†w:Lþü…œX5ÿO ãF_L­w˜BÞ<åM§Šü?:³ê„ØÄb*WW\]ÁAÑJÞd¦€cõîb/ °a9:c'ïT.5 ún"ƒi%ƒæCË®<1a_œŒçæÆaœE¢™úIçZ^¡sSÑ€…¶-žS¸LYò«1eù&w„O)JM/s-žþ ×Åêš×'†œøj<×_å«ŸÝþ2…¹iåiK^¥Ú¼™˜[™rŸV v@rJ` ‚ËDÅðm±9îΈzDÕ­ñ™D$¸ùLëd®ŸÛ}5Ǩ„ Õuö+§êZh¥*è®pDBD¡ZÓæk(÷ô¿;ú–ê>òá©ýr Ig>„*{þ ÝEÔü%€­ú¼Ï¹ÀÓdÕ£±a FÍ­k»f»{lÏMg¢KØݵ۪6ÓMb®íòcûñû'Ó•ë͘u”ý}A£©WÛöQun×̨* !#÷‹ßžÿ°ƒ( <Ýîëê›^µ¬ª7¿Ÿ³+0ÓPʉaÝø,6¡#¾]¾Œø8èèCÚ¶m÷ͯïî‡s7C3ŽÒþúK©€C?”òôÅXçT2YÕæD ŸõZ›ˆ¯Möö1Ë©¨¡öÏ°ÜX¦ÂÃÒ#NŒì…Ï}[ÕFðæOPkv+;!‰cY¿UPæÓ Â©¼¤WŸéÇ6jqbS·=d’B÷ ?ªÿ r5ÜÛh+†({ yàGt’ª«Í 1Vk;n°û&ÆÿG·Íè3Ë—jÝ eÊØ›Ë]qÌ@'‘g¢•‰%ÈhGjþ×Å \_¢?Ðýü«Q°¹˜&¾P;#˪íéŽûŒ'‘Œï¾5 {òeÄr_ΪÿÓÃͤÃàF endstream endobj 818 0 obj << /Length 1644 /Filter /FlateDecode >> stream xÚXKÛ6¾ûWN€¬£÷£¨›6[ HÐ4»=I´DÛjeÉ•èµ÷ÒßÞr(K^í#ÅË!5?g>Ú±Ö–cý2{w;{{ÆVÊÒÈ‹¬Û•å:óƒÈŠ]—E~jÝÖ— ×[|»ýõíuä4}ßcnè¥Ã‹b×T÷‹(¼`»Ve.Y»å8qæÐr°V4°`¶௠ݱ°½Ð¹¸ªºf4ýÔÂK¬»ZüŒÆ}¸‘IJ]òÕ´¢“ç® · ŽøqjöúÚ…Õ¾ÎeÙÔîÊF·EËnxq %m]É»ª‘gʇM™oè+´î­å¼ÖÂ’6 Š‚i¨Ç@…Žrq BW;ùþÈ·»Jt@4n8 Œ‚œ„9N m½zõj‹ OU¾¯¸º[5k-´e÷7Ié´Ì낦5-`°kꢬiF‡Þõ½;Þ–¼Îµ·à‘í:, ½zÁ¥ÖúÑÖ­èЯNèlïö­ÈæŸ?Ï/iÑ2“»¦£ÞzµXS//³üô­€Þé¬Â3øÇ–ùL»ÆÏe©›œá°*É¥my…-V+‘KÚõ¶)D¥ÅC)7äÕ²kª}€$÷õ¸ë4P„bA¡ 0Ž±€;„@Ü—´;#€RÍtó¯ñV'®âËlÇ;)ÐßËMÓÒ§{Á؉]fÐ#4gˆ=Ý”ñh©YéVn‡fÙ‰öN„ÔÚ0ú­9ÿ¢€ÓÉ®¯>ܼ7C²åu·ÊÄqG#ǪÜf*‚ìô2ìéþô!¼t£Á—\3XúRùá»ÌOü±3M ç– á-Þó†ƒó\ê˜?!83;`áåÔn7‚ã ó+uNèc§ ßµ?áàæý‘ØÆÓɃ¡Dl çwxë—Ým•QpÚo„ޕС@ëV˜À}ä&LÜûã8ÒÉÙñi×‮ì¡+¡ƒH< 3Ï2¦ñQ?ö‰“¤bˆ>_ãšà®ïûpÓÊìøºÔm›„ƒG½-ŽÚçÜÖ#˜±uÝþ¬qžÓ„s5ÿejá™Ú9‚£,!‡«ä±ÉœÇ”¤8JºjÛÜ©ùGÌ•ö;ÞÄßw²ÜB}é~0¯Dp~ éZfžYuöþvöÏÌU%ßíyŠŸB™Œ]+ßξ|s¬>‚ÌOë T·VT&|+ëföû£5R‘¡1‡€]Fkù‰Ç’$í$' G6<–&®¡W‰Xì?-ȈC>`ÃõÂuBÈ6 ?¾è‰Å§±@¨? HEÏ?´ðf§ç·Þèáß–añzǶšÄ߃£&Ñyôý”%žÞðÏPÌÛr‡,j’©œóÏm»&ö5†‡›šx“ÙÿnæÑêgNó5"a:FµaÒ§¶Q’¼"òVñ®ÓTm2¾0ÇëYñ|%sbvÃíF‹!’ö$÷ œˆÅɘûýÑaÖz1ñ›†×$ÇŸÅÔ(ûö»£°†*÷aýfŠ`÷g·åÌZ0¤áSÆl7 ¶b Á‡áÃÊÜtT…¶Ç;‡  Ñê-G¿• ê¦ÙW…–Õ¨„?pŒ-j@A J Òjð2&ÑÍtqßpy†ºùy¦f“ù øÏ­Záz endstream endobj 831 0 obj << /Length 2331 /Filter /FlateDecode >> stream xÚ½ZKã6¾÷¯0æ²2s$RÔÁ’Ýé`HzOÉK[´­…,y%yºûßo‹Ô«e·íI}0EñQõÕ»Ôþb·ð?=üøôðñ1 )K#-ž¶‹À÷™£E,éâ)[üæ©,;VÅë2’;Ö:Ë7-«jùï§||”ñ`{è,Nàl³/¸äÁ··¹ßB ö¬D"pÓŠÇ0'ú+á¦ÑþÉ]qÄÒ„»»Šj—oT±\ñ@xmE¿ÍQoòí+=<ïu»×µ]±×4°üäUIÏyÙêúË’KÏÖì«S‘Ñxmwy:ßÕŸXT-~÷¥ÓÀ¹HS)‰ÜLo—ï©Sk¥ïå Á9‚F¤,H;øù×Ï3 ó¥~ìVÁ¥›à6Æ;æ' bæÇ1mCšöµÐ×C¾Ù«ZmZ„TÄ×´ËÀ«órGˆ‹™v2±O Ñb¼ÊÌU[»ao'†"Ác‘à VçFšoAãIÈDOå‡"/õ‡9ØR–$®~7sÒJ!㱕\dÏCSØUåÜ‘aÈÁ/±„‡ikUxW ïÓìU6Ë¢z¢´?h éUs )¨D·òC–7íû˜‘ª­bzU(¬41‚¿j½®5ÊìK®ZÙe¿ê¶% %íž”ðbÆž‘‰¨z$ÞîtÐ¥µuj«ƒjÑ΋Wšjt;g8.pdZ_òéé—Í™LYGnñeÓ+Y"“·¦Sä‡ë §:¢r£2©?ágÐtð·33‰æ¸*¦ÍmgôÒÙŽA~HÏΣ@ë|½ä¾w"ËÂYp‰å¬¥LÆ~køtV/bÀЮÃ0 #Æe8Æ0Ëw9IòV'§ÌîŒ/✜3i Ì–§ÃšV ò>ð2ƒ…wÞ±PÝŒzÞç›ýä U–U«V#oÝ’×XuÆ&€Ào]Ê ÍâR–åPÏyÖîïÁ‰Oqâ–9|qPåɲ•ý÷Ô´4¦°Kéb3‡˜ Þ oS§ƒa¶•;ܽ&˜ "·3|(Ôú.~!N "R4ˆÐÓ›%§šVV\`ÂA£vTèrg8†jÖÉ ™tŽãeÎ,XԻߥqæ|µÖECc .êè°QÆ9È$ODzÝ+çk«VY­P¾Ïå 8'ö´Z•Íö.¤Á}MœuÚ¼(æ`€#ÍmOe—r%vej)¨êƒ¦Ìiê›8gÒç—Qd£lÞpBs6„–ݶ©Êß}ŸgºÜP†ªš‚¼ÆOÒA´`´\kÙ&a;6¢“è.FoŸôËq.m€¨·ô{Ù¬LUÑTV,ðÇ’EÒ¡á/?=,~3«fÄwU2y* f lNݯ 7D4E?½2 W”a྄&.ÉYÚ º(²8 {!•ÑÅI8víßH2sΰUõî®(I^¢‹UàRk*dP±mJE.HcôE‡ãÖCb7kŸ’ùr¢÷s©)g¢¯çsR$2Þ»IîeLEâ˜b ªÞªÍ½˜RŽU·¶ö„`_Ž@l•z :Òyû!ÔÎÛßî¶!ôÞKû0:¢€[*Þ aÕ@èÛ©bÀŽ?¿’+†uUgTÐ}Sfìµ"cEûúG˜ì5Ì`­k§^ú¬¶ {Ø{¹Û5p[•móÍņ·žã¯Ë¬Á2sƒ¯HB7úå^›×úºÊ7HéÝAðQA«;Ze¢,ä°M#ý¾U&¬¸d¯óݾ¥IS6I×´˜=aP6Å¥Y8ýðæp*ÚüXhŒsu“+–DS/!Ll=¢ílSÑ,¥¿8CDàBÄÁLú†¯ôÁtÞÐ,¡WÚs\¿Î¼uèìž·1jÒֻآ‹nhÑùi´ŒDÍ»A m¯s÷™¥.^—†¤X˜KÛý›nU^4g:¸£›$4e±á“J­>À§²#V0„ScD 3F á…Ui@ÛÆßCUÛ™ ‡;K:“,,ol— ‰€XÌš½¦5kˆMiÝõÏ9Öy渽¾Ð]–½½è‚„„`¼ÏT:l¹’qâ="å†]‘Z6Ô å;˜‰8°]†^| ì€|£ÄÁT뽌ž Ü”Zøs¨2]Л¼\†˜±pXTPêVÔ PCÏ$§Ðô*( &²Ç͹¬ËŸîà 5ÀÍTnÝð³±¥×¾lê’èÿ|&>›¿tfaD˜§e$c]l”¡«”e‡#Å“€TtmXÓÇx°;Ãqm/L9 ¿¶Õ3º¥W;s^w6©3Îuµ7M#“˜"wW¾ë<æjÙ„E¾ìrà!ÿ š&°sÞ:N—#K:6U šy¬Jë…#Çy«’ú\‘èéu{gr{¨‘ï Õ/ù ÁPNÊ$ºLqõ­+[ƒG“A8©çƒ‡ÜCç©:£']×F‹qÜÃò3ì¨Øa‡n£gù‰™gùÛ~ìýP@SªaÛ•>—¡N†Ö!!ƶ áB†®Qƒ‘B³QHø%…¤NôA%‚i'hÚ5¢^V§¥ÕR¬¥þ@yð‰2ê‡M”‡¦sø¤Kº$ökµÿ:KØä¬XÏ…Ñ„ñ¤«-1µ›‘j ¨ÿF•³ÓÙ“ÄœX+WÇÞ?m&× SDÖÁôŽ]marõY”°½<80„H(1¾ld£™MýmcŠà–þYÍXuÕ÷ñÜ ûiòÜKú¯'ÇspOz“€±û1K±ßÿ;Ö`àúOå ù`Ü|2ifÌ5BpÜo²=×?HY"/}l“Lt öß)nþš8<¦ëâßüåoxÊÙ–ÈmÄ\ÛZy—לú*¦\7fê‡aȯSW“~)¶ê›Rg„áåïÆiÀ¸ä“” TŠÁk>Ób̘77°¸À­~iÕ£"í$6ÀL¿ †¿ Úèù¿“q%¡ýŸ†>0 ÷Ud&DÙ°æY»[(±7s¦4‘îÎÃ¥¼F<Ĩ 7»Ë%Ùl òùéáÿLó« endstream endobj 838 0 obj << /Length 1728 /Filter /FlateDecode >> stream xÚ•X[oÛ6~ϯܵ1‹!uWQ K·d@±b]’nÚ>Ðm«“%Od|yÙoßáM–%]_,^Ïí;ühì¬ìürñæþâò&Œ¥‘9÷K‡`Œü rbBPä§Î}á|œ’`öùþíåMDz+ýÈC>NAŽZC‹bÛTÇYNQ»¡rÃ6ÇÀQo§k·º^ ƒ¾p5 ñôA¬›ö1‡2Ò6P8q\’ (ÑRþœ%xÚTËÕ,œÒz5s=úÇ,ÂÓ’åk± ¬Õƒòm–ï÷ä¥!òÏZõz¿[ü¸a‚.›ÖݶÍ– Ô´«ôΡ&^€Be¶Îµö(†ì´ ¼iÞJg(MˆÝ·bË_]^î÷{dOž¹ pïøsïÔAéâ"ýˆŒ¶Ã ¤1JHAQšFzõ-[‚H2euÎø·ø?6¹rîëƒ'ܧšÔ›¢™ëljr¾‡ ÖÚ¹ÌüÔÔÅC.J4?Ž§Òv—Ö´:rÐDí*k=u«?ûR¬õ„X³Ó&p˜ÝÒüoºbÆú(ì'/$‰uÒÛ™N›‡NÓrš¥ÜN2ë\€C'Ý *J.Ê\®–©t×,Åž¶3?ž²‘Ĉcœ€2 Æ ühDFª€rŠ)ö¥ëæú|òÉó¢ A#éxˆ`ï<·Š¦”itI0"IäÇ—_8G;ìG¨ÄþX²ÐCAh“%4~`LŸUñf4Wdºc”¨ì7ÍÇÙ†`ãâ¹ ÷¡zÄ?U¸¥ˇÒ§©¹îŠF‹–ÎH8Ý›EZºjo«Fœ-Þ¯Ë|mf¡š­:i9­ucal†zÇŠQ`…X©7ÀÕõn¶ÕˆzŒ0ðO£ óO þ ´¬/^Èz uªò‡Š ¦»U³Ò¶ä›$jÃu›Ö…ÙÖ´àƒ-ÀMaMq©]×ÛѶ¤ÿ ‘ i’†ßzÕkW—zÈ”Ü0ÊZ–Mno'ssh™‰mÃMo½š­L//³ü4W@OÍÉ3á~ˆ¯çÓ ~Ð"·xEÙ–rÁäñT]fêȨmr¶Í¬>‰{µ8®=Çt“ø̽6Ud[¦ŠnAeP_UrÔÀ‚³vÇŠ'|?âBY·¤Â`̼”;–fhgT´´æËŒ¶fäP•›LyÜMç¡©ÊèÓD8'‘ž‘ ÄòÈ™?©È cäbµ#1y¶i%Öo6vì,ÓkÚ‚µ­ª&Ÿ\Ê8™iµA 98¹’£ÒSõ¤?w€ÄÈ\¸OGå­•N®ÎèÂ0Ïÿ‚8‹·õƒŠwrïÒ„xSXá²ån[žMS°J7õ­£Nêt7‹¨c§u§ýPªFÌiB øÓx.€³4ÓŸMÄôçûž^V5ðÖo[V”¹°yü•b¢ŠîE þjY-žóÍF…ÃÐx£ˆt8ƘQ³½´=+Jºên¿¯Ú5zÔ8ºƒ`¬ØsÊ a`ߣj0HÃ¥‚£8[Ò<#ȳ¸iªl²jé±+°”Ëîo?\ë\÷C”DÑPðFbEÁ#ð[ôãgr h6ONß¡^n`,´d–1Eè® Um×îû¿¿H°ƒ0ÕIáÚ²1y'q価܆âx(Ãø+« D~0Zf–M-2¯{\ß_üsA± ݻŋI¤N¾¹øø;ÌzÈOg¯Vnœ¨\H.U9w¿?y «·Ñ¨€‘Q@/ q0ˆùÈ›g@8 ñúïJf¦¤ïõ{¥Ç4,¹™ ¤T³JKYÞŸ(‹ôð;Sq ³Ñ—’Ì‚:/u÷·…|5ð¯¸-HQ&}ƒßôÛ1y;zž‡’Ðøçgàm¹U•àÛŸs7†Ó+7 ôÒTãÚ×ÕUö U;-êÍYÜúÝ-.[|ÝH/íç‘Ëô B¥_SÉ䔃Ì$§ž1ÏŽAÍ,ž¹d D ÚêÝ¢&ëO{n‡ ùr0Œ¹Ï*–²ï¤ö±Ð¨ÍÆMK:CÓ^FZQÎG?‰à¹AºL›@&LFðXMqdWYòÝZ4`²¸¬œÿ›Æ>Y[£ïüÇ—gw»ôlŒÉM@ âÎÆ—cŸ>Ü 8Ï¥Àš xNˆKüi4ŒâH™o›}æÚ"_±«²Ãwêkë|]7ðld¦Æ§òXª¼ n®~½»žŸî-.Žëõãu”yU {CîËB¬-M€ëb>–šJ‰¥é Ú®xïÒ:]X–¼+–gMÇ^Qæ§rmZ¡'ÿÀô.h¹ß endstream endobj 852 0 obj << /Length 2261 /Filter /FlateDecode >> stream xڽɒã¶õÞ_¡ê‹©ª†÷JÍaœÌ¸ìÊÉÓ>9©2DB. IM·þ>ïáÉak›xŠ‚ ðö îb»p?=üøüðîSä-R–F¯øŒ(R¥bz"zA©ÏRŸÅQÊ/²¼G Ü $uÖ²‘²¦9—^¢Îi¶G[:Ûa!Ç]žË:Ó¢îe«O¢?K‰__–^èÈ’!ƒ;)5ð°dÑ"94üõ§+¨ˆÙÉVŽÈ^ü®„¡¤LbêEQvÄV8×užÏIP½‘6õÿÁz¹•ü€_ꨶ©&+È\Ï‹Q d$EQ×M/zy½ ›=j·ei³-2úHf$/; X¶ô¡Ž[zŽÀ=:‚ió°&”‚ 4¥ÌiOÙõE…ÒλæPæsö³ÖŒ¯Œ¿Ž˜jM ìïŸoe~=‡,O8ú•†Þ–'øayÂçÁžRdÈú+°Ú„ÈWãµþË<8ë´#L#ãH†œÓ }[ñS楖ÄOþùùãE…g <æBè1ùÐõÇò¥Ìv¢Y¯Ô,öœu¬EO«>•^"Øêel<‡ZŒG):õÃN†"Á‰‰O‰ÉÈBIók¦ñ$€Èh±|,‹ZΆƔ%‰MžfvÂ@Bq ó:VÌm,ñù¹-#–ðÀ¢¶íå }y›n'òY}À'JO­?tš9¦y)¨„]ù˜]™gÚÛÆaàüS?M”…à[¬×-yþI®—}–‹Õ’~GJübÆŸ£äa‰Îô›9ô ¸%´óòH Nö³ñgs#íKÞ?ÿúÛœù„)‹ãèº ŽdI˜|m:eQÝãͽÔЉ4|[ÓQ@4ÀQ­Æh;£Ic;§˜Kph[¬—}dY—XÏZPÊÂØòϺ†÷oêE ñ)Ÿ¸&'*Q´Q!YùŸ‡®§1…5XJ+˜*MNs>äå¡RäÂåd†MܲIqäv‚«R¬ïÒ —"” ÚÐëðS[2ý 8SYª«é@‰ÛõO)MŠŽ-ˆçç µR9ÌŠeþ4ùmb´9Ô&ï0ŽŒ¼Üi«Bívþõ­¨»Í] ã‰sBˆ²xŸL —ÑëD’&v%aд•þTì„e'Œ'nWϦ›ãrCeMãl «;r’mÙ\õ|Îxbë1Âñ½|ÝÏ…uˆzž]ú7#0“ü–]s®”¡JeF W%k“O"Ž¸_¨7DA¯“P‡+B ­àœ0Ф6ëg…,Nƒ“TâàCÆ'ÁXM¾“dFƦÃX/Úí]QL¡;‹ÖàZJ[Y­“Êjâ@N~Gׯ…˜c9™c½ŸK9óOm´ùœÑ‰L„w1 =ÏS?qAÛý±¶ËÈîå)å@m¯kÃË|€¼îYË:r´Yoš ¶«0íÝî}!2Þ‹ú x)ùêà5,²OõíY8Ó`šˆß@ˆÖìuÓæTn}WZô±]¦£Öÿöz -XˆjÐq/ßTµaCbân'oÓÔ}÷Ý¥†§¾EŸÎ°ëÜ ¾!AÌäë½vÇjÝ\åÂйÝfc7`¦›SÓ@À´KÝ[¤Æ#$šÿ èìÅääÉMµJÝq¨OL]K¸ºh÷¡ÃØ‚SJü®jüéÞ 9´Xc®º"7kµi>aO XÞTR=¬®ð,åÍB½Gw¨*Ñéã¼USç?àïîààz.A$BJzêG¨R•20Ö9e­Ø­R¡¾_ UÚÀH·ëÞȦ0€ éÛÖ>ëŒÄ1çômcÇpÖn¨¥€xÚËø€âQ]t'üô"Jžq d;6Fæ\Š&ê®Ä”ó“îŠj!ð(œ&Õ™$Õ¡¤š.WÔ·Pš€C…'¼•®D€Ë¡\é¹VÏÑ „¼©VP×ÀÖ™ ª&ÇÂ2ÿÐù­#ÑXµ‡ÔÈ0êiNæ–é©ŠÀÿÒÈ¢ 3 Må…>½%§ SèŒõ*¬HaÔј¬w“0Ñà¢ÖÛì̼¨$MQë{€I€T/­ÜÄ <§¾ô1öiô1ÞÕ£Ú°;¬·msØ[wüU<ìúC^˜2s¿xm¿Þ€ÌMÉ‹r„tëJ·+ŸMŽýÇÇWQíKÙýÀ,IàSí”°.æ‰;­‹–Lòݹü2€->]’žnM¦vZx®_2?²í©S¯i®»_½mÅ̵o£KÛ\ÌÀ/÷§‡Û\›_¤Ê–0ßD•ÉÙ§†üzIÙìå›pÑ ÂØ#ηÿSñOÚÒ †7¼Áèö¬x˜NÆ´óXÌmäïåk¿oæèôc0Ë.Wá<à_õÁÛG4§ü/Á”i¦‡‹È3ÈÞmvf‰èiÍ‹4§P´W0l+˜ œæ2}•ú@püÆ•º¼³w€æýñùᣠ·³ endstream endobj 859 0 obj << /Length 1403 /Filter /FlateDecode >> stream xÚÍW[“›6~ß_á!}°§ wØ n;I;™é‹w'N’d›ƒäõn}À€qºMÓL_ŒÎõ;ß9Âx±[àÅ/W?Ý_]¿öÃEŒâÀ ÷Û…1r½`Ú6 ÜxqŸ-Þ-í`õáþÍõëÀHºƒ\ƒV†dYÍŠ§Uà/QS©p…µð 4­NÕrBØt•Û•—±gÍ{ìc?öÈÈÀØ(àÌ`º¶2óû*ÂKVlw+IªÝÊrÀìÛU€—9M÷bC´Q›ÒÊËuc¹‘Ó¥õòø°ù±¤‚lYcÕ ûHSX³ûAiŽCq<äƒ-­jªðQxÑ@ôz¹–IŒ|z(ŽìNo/DÍo®¯Ç#ê<¯,xà~ ï( ÌÙ}a$HG;®B¢Èöaá ¯«Âšn;ZÒ*¥üK 0ÅÚÀ„åáJ;K´²Ü0jÁw°UtV'?³*;¤"—EsÃp)s·HEŠ'‘´Zy¥ŽÖêqÌÅ^ˆ==)`j·&é'²£:ûÀ²ÜzQÔôfåøKvhÀ›²Ã¶R °ÑrôCìûJúN‘s‘§RZRéŽmÅ‘4+7\Òb„!òNbÎcD7˜±·rª)v%t¦òo¿wœÀ‹Ð =ÙØ™r+c¹¤Ñµ‘nxý‘sô€ÝåØ#‹íIü Yî(Uþo Îf¹"éŽQÔ²_/ÏÙß3ÈQf¡~”‹ÏQ‚pÃжÞ2Œí¡þ°Š«WÁÔ3kÈÊö—G-¤¬·ëº`b"|Üçé^ŸÂ<ÛõÖRR©ÅF' f³åã6¼V¯IYZê¼Å  ^@š/^¼[$çj ˆÛ>ÛŽ‹‚íÔ¢Éù'½ú2-àmÃT~#• …õ+¡ÿ“½¯=ËÚ®À†vÐ×CCµ­—–¶_Tî%IKJø¡¡‰±^¦:$y"jÆõÛÞ*ºÓoiž¤§³ ÞNg$´Iwm -à ¡©U,‘Š…d“Ô„ *Ý“ö>Ñž(é–œÖI!û¨»mVgÔ~·£ ÞwäZrçälÃió@³Ïá®f×H­f¬è”ÀM^AçðVQÈüàÙ¡*RñmBk½óXäe’J)+2=,ZN®i£ôñ…Ä¿.ÑHwZe¬´èv ·š–*Y„{&ÉþC†ý-"ÐýÏ)Ÿ¢MÃʉðåÜ•›ÈŸ1o"ý ¦‰q–Aø,2ŸxÉ›]Ãu_¶®â\²¼+äщ—%iúýZ~f ÍÌE `‹J9Ü©é·ñWžÏaíS®m<ä“ ‡eZe=¶47=ozÏCÃæ'">•­FØ×'9ݲöºç†Ì%s‰cºÉ«L:lX­Ó®¬ÓÀ…ÔF­©mÜÿô½a¯Õþvk%?R«ýÆ51òM˜~V`Zði>p“ÒǾ8üó‘èè-'ˆ³&£MBŠ‚¥³~vÔ.ÝÏŒolßtðãL”2)cýJß°§Vo¿^äâ¶Ð;wª¿ŒYW{Jd,Æíä¯Ò¸ÿÆŸ§&›ð©&­5‰ pí;xžQQÏ@AEÏ +’0Z>°g­´ A}ç|°€XêmMß’4Í+ŽYßHðé/V [ØJœ‹Ý C8Ѽµíxp¡™£B·.ïž ­açi5KåÝTõ!¬Û> stream xÚ½YK“㶾ϯ`¦œ– ^äa›}¤ìJ*ÏØ9Ø® ‡„$Æ)“à>üëÓx‘„†3;šÚÊI@ƒh »¿~ •Dû(‰þvõ×Û«—ï9Žr”ó”G·»' "”GcÄIÝVÑ/q±ß÷rƒY¼ß°¸PÉ¡,šróÛí/ß3±ØNŒD¼Í>,ô'W‰;íÝíÕW†I„§ƒ¸ (ÇYT¯~ù-‰*Xü!‚¥<‹>šO…»J`ÜD7WÿšøÿiYJƒÄ)Ž8(KØBš}(ÆÄÔÁ)Ê3ìz½ßà$Þ÷"b¹¡06›mÊ’øc£êSãfïvœÅ;Y*;¿©ÿ”ƒv½ýýç¨Êîè©ÿÞ0×êP·nƒ«õÝÖõFâ Òz3úa|ÅÚSÄÒÌ ùÔÒ×'Uwm šYEÉÁv[œ£„»ýýØ–fï6%I¬:û{!MÅñqV|#w›”y¥Á|pJ#NiúwVl¿“M×îëvž¥ŽáPýÔùÙnú5a‰g·¾„A· ½œ9ÌÀáj´²qvÜÙß¡;:£wÀÆ·lÆAÉÞ^ æôö¢¯‹»F°¥Ö­¹Œ Ç 6xœwu++; tìnB<9Õ ç•K3oµRxáVœŸ†b/W{ßØ¡Cû›o6[–\‰ý=Juè*;Þé›éAÙÃ`¯%‚X£Q'&çúÖ~œG—Þ·Œ:£4GY–=Æg‹iŽ( : ‰O/üeåÜLÕGé†ÝÝàF?»ßAõc©^]¿¹¹v”þйÑéP¿0@‚s3|vðGYïJV¯nüé?÷ ËßOi7¶nÔ¨?º¥%:9‹ªúýÕû׿ñ;‡ñnÊOd°q“ªÞ×Ê ò¡èQ ˆ÷s„ç ‚¸°b91^÷&ŽGÙªáQ4=„"j}: ÁA|0zã.>vwÿ|Á{âgÁq#2£èÚÂèz%{°›>Dg·:T–¡Ô–#Bœ;8ð<]QJåØǃá$Ëz÷ÙòËQÅR4’%Ú£Ž{Ú¤Ëâ‘ÿt9:“. $M©HJŒTš>IeˆZ*M5'™Ñ©«5’̲ ÓmóÙ®ôÒG`-q«ì7²]±wÊ(¢9õw›ÜôõkFg9‚û_¬*¡ƒ×ÿåŽF3C¥ï3Æ Žžùææ»Ç8N~Ù X¤ˆ²3pB{ŽAÓ<a scPMhëá`ªÚå©^j#i+{Ë ²” —ÁÜåyÍаÈó0;Êb»–•‡±÷ù±Pg¾âr?K¾ôÈàkv /=»/M}^8ç(%é=x=h=¨pΟn=BÊXïçgÙŽrˆºµQÚRLß9Èh¢QSPÙ`ÐD)·e§m7… ÙêëOv³‰À3®µjlœ‚DÄ4‰·k©«ïúiÛÓøû-ÐÆÖ\ì×$Ie¥Ý‡ÐPˆ“@6ÉšdÍR„³Éµ+#ÇÁ F¶Ä ÍhâÁU«K¬©E‹·Å,EIžžÕ\ÐzyžeyšñËCÑ¥2…(z»5Œt|iwM4ÒqñEé<;+ˆ»s>3YØfkvg³Ý7PdñGýê°µvjXéu`œ‹)«²Épµ©´Wp@ÀsÄù¯¿»æ,){,âC]Êé".?Ÿ ™¹¬‡JÜD\Àæñ´ƒ—y'ÉÈ;eäùiG'ÄLIB“ÞHfÿóVª¢n†o/G;ЗOžÍh`bË@ýë¤_P=öÂ>FW¿˜áªg²÷¨L,*Ý6‡?·¢øPáÁ9TÉü~fX­; +äìñº#ňcüüÂ\s%üÉ…GHOyüÆÔᜀú‡ÎŽî¤£ØŸ dà©Q¨]qÁ‚,í§§6˜,Ö—ö3°Ë¡^â8L ;_:Ë¢<e²î¨\Ž@x¸}=£êþÿ(ÌÁô+–¿” A³çÃ0£ÂÌéøRæÄÁPC‘YjŠ0²ƒ¡p‰F“–0ºár}2âÖ¡œnö‡œ}5ü¾6"}·àé°lº}]šúO¸šF,kaJ[׬‚ E> stream xÚÍZMo#¹½ëWð¸{›U¬b`,0» ' $ÀÂ3’sPlÍŒ[2d9³ûï÷UwË–mÉnÉ’1lv‘|¬*V=²%\]pR‚#BV'L.f<ŠºDÍÙQ1)r\ Jv’ÊâT¬]\ AGRÔÅH-ÕŤ6Dp‘ä%ºÈ‚W’\”(¨dU0K!Z…]ŠC¤¸”cv ad ¨TÌégtÖˆŠâ¿T’µdTÄZ0œDÀT gKÅp¬Ý•Ñ"V©e$•]°jv9FÅ”Õå„•I.çüV2–PÅe XoUTÈZ KÕZÈeÎì€s¡4Ò€^ejH.×d¯ Å`ä(BØQ¶^ÑÔásCå*j¯L÷9@XP)tG¶l[)z1ºs€AJäåiBKLXhµ ìÙqÂÒ ¢’PÁJ4Áª™2.¨(Z0›ê°¹dë…Wf…¦¹¥bº Í[hª®˜Û(ìSR²îêJæ8R¬±°Ù=K!›ÂöT ®z(V]ÚeFÖÖ¢è®æ.­ÑD0U-&Ï A00ì-fÔ(öÊ|Ó^[/ Å0¯’yP*–ŸR8:48­yM+lƬ:RFkh¶JÃB¹ØÒ0 ¶æÃ+3&[³a*°¸b§``kÁè÷è ÙZðà FGG£ægw*˜2¸×üó_ÿ¶Ýã3º•”=ÿíbú¿Qóãl~>™·K›¿6¿4?ÆöÁ}m!|xÌ”kñ/³ý…@!>ªBì]k¡÷®ùËìÃÌÁÀß|šúùÕØßN/¾7Õï‡VOLK ”bWrõe8(‘µÜã(ì+‚ÅדÅlHŠzát‡Q¦áAH>_^]í 2©·€™•|FüŠ%x1`ìSÎÏ›æÿ{TH̾ RgI<0sVöI6+d|~~=»üÝðìL.™™ LöŒ,…Dæ…6ƒ¹ž#°œ-ö &FñÙˆDEfEU$¯+V_TÌA0Âør—4úÜé†s©ÂxáeLç“OãÛËÅF<ë€*¹¸Ù’O–z`)2 Õê#Ÿƒ²ª¹m¿¦vIÍ»££v†æÝÙâb6mÞ7ÿ8ùÅ~ß}Y,®oþÜ4_¿~õW“ÅøÓlþ§ëù쿘ÅÏ柿߳Aa ¸’J>ÂÝ#±/ßÖ½£ ÈÀ—`ÜÛ2ÛP0‡q©Š`ñ§•ÅÈE ê%ŸÚÙbØg¡µTE@žT±ÿÊFñêTyµfzìÕ©Ão·ç])‡Èœ L w™ÓH}yóÌI8³Ì¿Ìœ¤Èœµ¾uæLY[¾»ÜõÉJÙrÓç0|Ó¯ÊÞß·³Dû Ù;ûóÓ(ËÎþÜ%'ûœ³Ù‡çw‹ÏöMg™ß->w¾Í›!.ÁóÊ= Èò¶®µE>ÉÛ䓵ÂÆ߸ ì( % [ N¢`“ÆéÖŽ?ƒ„#FÆï[Î?ÝÀö+‡]÷+õù‡úüCÒ—ºW¶encô y(q{û‰ öÌsç¦ç¯^û¥‚=Ql¿˜ZˆÀ~@«Eó›gÆlwV1ÞeÆ ?¬ßc¯*ãGÈÈÀQAŒ‹B,Km¿–;dHüZ•}1~­Nv•›w¸íÛ´cwÞ—OoXXvޗݧgûGÁ^ò(wDð>/­{}£y”7ƒîò(¶E®ÛR4Þâ¸Îº®†ª)Ë0aNª…ÛÞù@9iWw/òÄÝ»ÿS vw ÿæGD¬ endstream endobj 878 0 obj << /Length 3001 /Filter /FlateDecode >> stream xÚ­YYoÜÈ~÷¯ü²`Q$›g€zs&Þé:ñô`|cKÝ”¸ñU ǹïíR J7*ʉÔM”Á b‚­öûójû†Õ,õ‹Ã>s×ËöÜ"Ô/§VÎa繆†&.<ð¶èË-÷†ëУ׆vÖ¨Ÿ"+Y ì‹Á Åˆ¯8Ÿ êVvŽ(óL+›©ßõèèR'8‡K*»ðw¸ÌY}¾4ÒKgq´„s\€[ Æ–DŒQŽ©0$‰ƒ™üqlK|Ù_.^s¾ ÄN~hX£‡î f=ô³èØш®ý?b×÷ý¯@­Ä'ÈbæÞi$úâ|ÓåiȨE˜$1øÑ€û‰4d×bðûiÎ;ßµøò‘w†¨`†v+VÞèÝhУgKá¡Jï Æ¡¾4†W¬qÍ8T‚Ãh…Cå•ZN:þ’ùüm ­x ÛœD*‘¬·ÃX=_#þ8ßU†æ‘ß’•‘Œg&yèÇr{b¸v¶çˆD&^ö£‘ÑÑny‚‡ôåÒw`}Á ñÉ£¡p5´¹¥!°óâÔ;w•i„ ÝãŸÄE’WE1EûIGEã`%ÃÏ ~~Õã+sóçÐÌc?›3þ¬ýó‡ÏÁRE~NëÒA⣂Ðû ÇA‹÷× £¨ªÙÊø€Ù³~f^»²Ô–ì1©Ûâv½Ñ¶k-9ÄP{á’$‡)d®›¨wÆ#ÄÕë@ª˜ÓBÒüNxÄÞÁ4]{bóTHžS¸ü©pÀ£šh±¹ÏìX¡B?Ê¢Î-ê\šþ œˆ0k «¥#‘Œ èx^ó!KÒ€I¸ç¡n<ñZ6´ò£¬cÁÇN4òÐ÷2}•;Äk&L=Ák2½èh7Q‰X磋c!ƒ}ûKgͬljŸÅb7ùì4ƒû]F<9å)ë…A: Fèpè³…–ö‘çÊFÛÝä&Îü8šÒ–×\¹y½“ߨÂϧ, e’3_¦ïéFpÒ¯;§Äø€ió[YœHp _ð?åƒÂD,Ýýò¾èœíg»Ï ·çç*\Kó5ìx½ÑεŧÃ=1Ðj»)¶£¸n§ÄŽ­PSµç;|}d´9± B¦À„æhèØèžW`ÎSÇž­5 R@¥-_àEÈ´’?’Ð&À•+ Cë8 0—‹CxþkH *W‚'•Ç^Õ³0Öv2Éñ\ÿ¯—…¡÷Öð8{!؃QÖx}zào=Ó¼f}A¤ÏÌÕtÁ<æLŸ7ö¹riäÆ;æñäs²F;:¿ð•ÈÅlyìÆÛðŠhNáöVá•d¿0ÌVÏÕí^E"‰ý8-¾@'bå§Ù„k§wx#ÎqûÅ®)¥'ìí”Q7 €*PËd-·¥‹‚o¶ʯoC9ûË…šÎUp0cqê©E=ë­o¯ÅÒ%Ø‹ýZ™¬d¶X;Ö&ó“¹’âjK;¶ÁL­ ®SA KZß‘ÃÔ0b¿.èHªˆMcH+AoÆÙáqÛÑ`1Qñ]H½Ý­c8qáÖ %I‹ÕÍßµsH"Ž…D=8a͈+Úc.Šç/î› ¼Qì\î"зç8©²^žT‹S[äx2šbÖŒ½Ü†b—£3 6¸â•¦âvÐçVæbà_; à@8÷ìÔpÎòÚÑŽî 5þX}\’¿¸¨Ï_ytm2b4=(î–øšÝCöR_´8‰àe¹˜#"0ø\„j0*q5N;¢06¶5%O0 b:]ÛÈ ´s}-Ö×ÈZ¶ŠØ"1Á2éN ¹÷¾#Œ8ˆ½;äÉqʉi雽[ÕâØ5&q`1„z¨+b ½ó2ÔÁÅê@kBwΉŸu3•Ì7˜aAMì²^ˆL‰†dü-O³tqƒÞÎuˆàz qGؘP$‡E4c1”psžT,FEHêH+ “Lžõ$Þµfs¤T_·!ÃL†žS§?¾~÷ãžSHR°á“‘#ù!å)2ç’uûQ´qê{v ,f;€m’fX$bœphªÑc‡t–F§hW<:©=í€-ÝW¼HÇ®Ô[s³ôšÂ€©OÃöéÒY¿jßøkI–Hams•„²WÐýï|ŠG¦MðdýÆI­¬ÂÂåÌo\îGËdÃùGhâ›Ó/:a1›÷}Ÿ°ø] ÿÂì™–‚)l„Êl'2Onñ˜-”> stream xÚí[K“Û¸¾ûW¨|‰&kÁăq؃7µ»µ©T¶j=É%›ªp$ŽD/E*$µöäק EÍÈ.WN©9¯F?¾z’Õ~•¬~|õÝý«·?h¾²Ìj¡W÷+ž$L*½2œ3-íê~·úÇ:ßïÛ⎧ëý]ºÎû‚Ý6¯¶wÿ¼ÿóÛRuW g&ƒ±]?n‘äUâg[md&±y# ôDÔŠ²½ÛH!×Û¦m‹*ï˦¦Š²î, hª»rW´Qã¯Iš”¬`oàSñõ¹+ë=µì‹(«ò?ÅŽ*ª"ïz*vÿ>çmÑAg~Ç×ìn“ »þ¹.ü r?x^u~æîTlËÇ'_‚Íl€=6Mi»òñN¤ëÇ¢-jœE‰õïX‘Wç‚>›Gâ•”¯Œd™ÕWí¡Yà'Ïà4l ylZ¯È·*m«s×-±àá‰*Oyç™yXœ_±íÃÈ=X–ëG@•]~ô¥ª¨÷½Ÿ#ïfdõùøP´ñÖV+˜Pé”1~qÄìH“5§û=”•òöŽgëýù¼cwS–J/?Á"ëã¹êËSUà_žåÛžZ;8lßÒõå„´£8lªß6ÇÓ¹G‰ÀjÇJ,¸Ma;í«öms>Qeã'ïÎ`®Žjs?éìàÝpåÑwj@z»7Ks‚˜ ­×eO¿Çü‰ Ø[§ëcãÖ 5]’ÿPù/Ç@ø…>CÝÁ-zÑf j¢I4nÿ±³Æ,‚Ï]±mAAè3uÇí¦ ŸÇs½Ý,î‚O2âRbüôP±+»>¯·UsC“§1SPEœU6¥ã†Ê®yƒ|Ôë¦ödN7±gÐÈK•š3©UЗ®oÏÛþÛ×z÷ËëåâL Ĩ$0Eî§l꾬Ï͹#  `Ð0g„Û‰Á8÷`TàˆøÄz 6S4cA¼JÒB"¦ÕÛÕ7+ð°û…mq™21XÓ¡\²†qÅ‘xnÓÊš©P@ë¸e è?ÞñdíûÅmt8lus®Ø⨧¼íiùŽ=<LIîÙ£½÷¨Qç¬ ö#™êü’aT,ïDܽܯÌ&Ùd¿0Åh¬“°y¨ÍÍyEe:,l&±£ZÇšîÔÔ;g7a3eà HªJ³õýÁï€7^D¬fÖð©„Dl·I¤ð1²ÝFlC;æ×,,Óvز—ž¬pB™9÷˲LÁÔLYETe¿À;ËOWÑ„† £¾l>. Ñf\"YÊ2_à‡D•,,J2nåj“ÀXQ½!ö–S‡ba‘’3nÝ(VR ‚r Á‚ßTI˜æcÚ¼>[/"¨¼QÃ%¸È˜Rü ùþÜÈyhncpö% &£f9©˜Š,úgÉï«°´,V%Çå‰hfUfUjO$£¥ÌJ KÒÜÏ÷aXñH$À˜ëK;`£s ±we­žqh6ú…‘ê×$I¦ÔLsÛ”à=¤xöP¬ŽN›É¡LÖE‡˜[_ð!²u,ƒÅo"n¡ Ên…³!Ü [¡™Bë@ ÔÍ‘*TÅH ÑRåö’¨PÆ9Eª0žGª<‰ê 8°%ìeÕTôøêð!ýÄð¿|%0YPÁC8(øêFèfd¾b9ŒñU ª;a„‡*†ûãÀÀχ2´ÓR¨öÔœ€êîéx,ú¶ÜúΡ·ÀÀKÍ„‰DGôå#ÕÃ4­Ÿ‘`0Ô 0zÑ9ßhÔà¥IiX9"p¬nº¢¥Uøö“#bòŽšœ8`§s[µ¹'„uv~â°„tD…:“^Ðq€“ÎåRVg[ àûo® @@fpε«õOÎådáì-‚Ï®xãUÄ"ÔÏTbiÐ5êT,éR½ˆj2;(Ú'¹±½ÃÈÖ ˆ÷tO[>¦„à›š:¸þ™Æ39ŽsEáaC#|öœ»§Íƒfp*ÒÌ å1â1å/A! ®T¾MRòœé3.ø%ä*¢º…4S™¼ ¥7A!ù¼§s($@ÊÀ©E(0ÄdéKPHN ŸC!Ám€B<¹g£Ú%¤ÀÙ©/dús#âà¸oânv woÀAzÄAÞ{ÔTšá ¬ZÆA©ãƈƒe±¾:ÇïI¾Á Šnf¸OÅÇËÁÁŠq¼€_&“Zw±öìœ)ã)¢^¾„ªYfÔÍNÿÂ} „£YCTG6ï*PÈìä(iÕÓN‚BèI.(Õh@áú¹B^܉¼ÿã3‘ÛÈ®K‘‘GLõ€†tðˆ“åx­Ç}8gå»/úF §*³—}£2æy¿nÇ‚çš¹€*Kþ Žp¼1‰}-î¯)œUJøUgk™âêg‹“¼àk5“£o¹Ñ× +é×7u«IìV“Ø­&/¹UÍ™1ÊnîÃÝd`É΃š%7zW™‰Ïôæ“i'ZkYúe^À¹ ïü’ÁË‚P¥x"gÈ’‚LÇ!”ÈŒ‹}.OXkGé½"‘†;Ð<à¥Ò¹§9æWÍ0Ï0mG$ËóZ`7/¨‡¢Îý ÝÄ:EÏLð|0ÃÜóAÕ¢ç3½!Ýæ>2#¿šû0‘lØõ’±ŒgÙ*¢ýºNd:q,”Ó™u®DßâJô ®dàœ?0Š*áÄb{@,èlŠlF#ab#aøóF¦·Øˆtziõ¬0°²[.#“ìs/#?,„f)_Bà“±ÓÖma êmHš˜xéxFœœ«-TMÔÖ$WÔ–'Šiñ¢¹ÐJ\š ÃÇ o¥Ì䢮X îàÜ Ö"­왂q|â}˜;`oBÔ¥ QWLH È/qìd ‹ËPÆûl¥=Ôü)LÅOaH6ȽÒ/8G£4|®>#øÊd7¾ûb¾ªà‹ç_‘à‹‰àO†’,á_tŸGäµC]:5¥§Ú¡®950w`SyÌ3ô¦1s!Û|î4™Î^ÓL°¥}¶ŠÀx_Jà¢J/ÕaNbIpkâ†ððå˜õg8æ—£»—'VŸï–¿Z„7ðÍGx"£yáýPÖy5ÄtJwi«½ˆzµ÷õ[Ý ¬|ìè“r1ÂËe0oØ‚×NÊñ$m[D=”{®Dy#aoK|¦§Ko84ÝÝcõ)Ç·ºÇ¥‹ãè¹XB”ç.çñÆ7MׇÜWº ¨ÈO§¶ù„ät‘KQa[4þBbRÓÃv§‡ ¨6|@é  Åeë;Å{Û\nwi°œ¶üD8ʽ X^~SÚÞæ}8Ó5a‡X>6ôÖï>N-,®£u™èá„C‚;>Uþ‰ÆmÛfxr€ÖßË|Dr Ù €å•„ÿïK±;³<½v}¬(eªsÐݶò‘aN_ļÚÏÁUWB|¡˜ÐüÅ÷³t|@ËI–Á,ìë¦-v($ø"Åú¯MïÛ(ñ‡J…Oµƒ?–­Z̸£â/?¾šcK0Djta¿‡\¾!Qo~p™‹ZÂÓÞ¹ÞÕ5A?1É' 5²þ;w.ï*åëæó‘ ¸êî¼=P)_r¹¹Ër¯Æ$€A—S>ú{0:Δ;r僧SßËCÒ•{^L¤{pûT>”UÙ?%ËàzÉùWJ>˜—æ|üÓ)Ì2äx’Fœñ^nWœŠzVºty%ø¾ô¾(f–ÿúþÚ¢ûƒÇEEÎ`Ä)ô@é1DYá•~È•ŒŸ9Qé§O—ÞEþÇQäø'•£ÆßR E°*¼Â¶]±™ØSGñ±(÷‡~ègg‚I¦Öb÷vš› „!7Šqn¦«p98ðO—séS–e–>Ï)<îº$+3f3Ñí)¦b-§]iD9AªÂ¾ýáÝ_Þ¿$ƒ°ªh†¹?J'Ú0 ÚÙYZÖdщ¥ÅÄ* æ<·ó}±óHB‚±éT‚†*;l”¾°¥q!|ÀVa´'ß2ž~:ÈP!ñþ@5>záx8&?pAÙÉpÿë4Q¨Ó|lhÏzW•Îü7 Ʀäß`,†ä_²„ "ü3Â|¶£·¨è­™öøPt¤þXAÈÁDðrgs¸&,yØa¬ËÌt5³dè®™ ;æ;ÀG› í¸5ëmW<â¶ósÕO³Eý×àxÛrûøAóºÜ¼˜ß@ûÅF¥L_ˆ’»,ÒëªÙ—`ø/¨)a«æ"èÚ‘OeQù<¹ÌŒ·N`aOMëm.¦’ÌNÿþ—¿}¿|Õ°<8¨!. ™’ÞÑn„ɼõ3°`'GPhH°1˜a¬}¤ª9¯  7U°=óCoy à;Œ±Ð¡ñMtp ˜˜€œ I®@xl܃’¶…Oô››ðáßg#óÇÜ´Oo'rƒí’¢H k‹þÜÖŽF’ùÜ׿¦‚?Jè2>Æ`5ýTeç'tŒªþÐ~ŒàãýT„K•º‚K¥Ì“ñ ,‡ár̳˜g€â;DvvÑžmªtCvÐül¼s¬÷ŘÆãrL¨Ø.åc1—çÝó9ªJÄo?uÎÚã’Æ“aÓ˜MÜ6•·õ‡Á…ƒ½?–!åIÌî!à»Ã\íˆðÁ{Èå?q¦[ƒ)‰> stream xÚåWKoã6¾çWÉ¡6Ñ"©çb]t»Ý-º@/‰›º=02mk#‹†HÙu}‡É–¢ÄiÚî¥0`ÑÔpß|3Cû£ÕÈýxñýübú1ŒG)J#æËö}DƒhcŒ"šŽæ‹ÑocâO~Ÿš~Œð‰$H!š¤ ÇÈ°ÕªâŽW“pÌG\f¬ÈôÁ ß™ëÙò(IŒ Ä°I­¢ùšO<úcqÿ…gÊ®siŸKQm˜R|a²Ò-¶U^¶»û\­íJ.ë|P2ª´vy£Ý¡ô4ô8FQ@š€ŒÊçܧiš4â˺ÌT.Jd¡ £Ó@ ¡Èlœ•7ÿjµÕg?ô%|Ꮁ'ŒâdäááÈ¥æ×IHKƒz¹²aßM"€ŒgkuÏj^ÙMmÆúÖ‰: !mÐo÷»ûï6\1ÚÛVBg‰jõ­‹ªã PºÜÑkë>Š Äi·|Œt€Ò7çÖJmå›ét¿ß£ÆòÄ39mÍ?—‚:ÜòP9˜šÆ(Áa' 7| ðàdÌËŒË×à߇:ð/ðSÈLJÆhâÑ81ØûÖ9/‚7ïE¹¨1:g4ŽÇ:t•¬8HðÄœÊKûêÆ>,­õ Mëöàew·,{`+î‚ÂÓZ³AÒrõÓ„„cQW`ÍêK}0rrT†VúV1•K•gZZ3éV,ÕžUù/ Œ þ-z¹èäŸF:RÓŽ)õ©†îÚÚÇŸ ‰‚ °9 û¤O­…È5‹¦ØG8‰h<ý"%Úù4B¹O‡¸‚C‚‚°á v8pטÞR råem¦aPbÕžï“” ·€š|›æçZ¢k<®ã ûÌ*Mx¨Þ)"¤Uv4þ¬MÛŠå`]á8„tÆ]¬>üÁ6Û≒z\bàa£ (A8&V×ÕÕ•î“ØìjÁ³+èÑÂzãI™n)öM‹ÃQ"¢· }J0<§Ã¬Ú¨g‘v‰CìyÉO<5µ…1A¾͇ÒJvØ[¯G¢”ŠA\[QBBß0“ìtή9[èÊ€#×ö0ÆÍѲJ'=Í”^ifXW¡¬ažê†£jò˜çºñê¾Ê3çdÁw¼p¶˜”õÆ4/›…ßrø*¨ÔéׯoáU%*gÚ°Z/6u¡rC«HÕ‹œË©ÌÖBnSwBÝ;¾‚ɾ×Æ€.â-"],³¢–ŠW³F×uãNM{vùÓ— ‹ÅÃl~óˇSìûOSÿ?Y „ÉË sôB2§gÉ\ Åß D(¡ä«Â”;f²r@‰P’¦çü †zòßÔÓñÉÝŸmš(¼‚~Þ=+ )õ³`+¸. a­ÿ.¤_ë²éS®Z ~ë‚Uý"ZVº#˜ð£‘àK™Dú02ç`y1tñtƒÎ‹ýiö`Â5ûÅÿ'ì‰B”Äçð³–5(Îd]ñÙåíÏmŸ<ä³CîÖ»|¶kÖ’Ùk‘>3ÞÚÙpnÎé)s87ä\æÞßžŽó8Àžv§sÊŽÆG3ðt¬¹¹w|Ññ!UÅ f¯}z.ðæé£èߘz·W­Å Ô¾t¼õSRK÷®a‡Ñäø¾hÁéó;'R­ê /»³.Š¶C©Ã–·††nôæ©,¢ç endstream endobj 908 0 obj << /Length 1962 /Filter /FlateDecode >> stream xÚ­XmÛ¸þ¾¿Bu>DlF¤ÞúCzw[ zh²—š P®DÛÌÉ’’½ÝþúÎðE–l­³‚,Éáp8œyæE¼x¿ùÛÝ͛ۄz9É–xwk £ÄK)%I˜{w¥÷Ùçu3§±œ³ØçDíøüËÝ?ÞÜÆéà`P’f UŸ`Yn{Ï›Û0ô2àM"ä]†YˆÌK–-4G^½z5_ÆAà—¢’õQwf}/¶ü(eV¼.íÄ E£”¨x'›Úšµ›ÉÚëµ(¬ÐVþO´ í¾©KYoPmPyI’Çù™f]c5” Iõ v{'Ë]þä&Ä4,]šñXðªø-ˆƒ£\X«CÛ µj»Cù¸8ݹ‚[p´¤æ¾]‰V–vYòŽ¯à]ªm³Òb’.z âÿ)½øf3Ö Jlx'PÌIò”zW/Äf'±–Ì(ÉivfdðÅ–ï…XJ°‰4yî öÚpŒ€‘( hH$ÈúA:%.#,£×Äá,u ²vzÓCkÇ;ýœ%e1‰Ã± A…± /t:7úÅ kkòÓaçe©ÓþÕ ÕšY²,\­fÚ%Žv$5߉֠`ö(g‹ÙQÎÐM ­I’ecu@Ê#DŪ’m‡ÇôY¶ˆÉ"3' .âEºÈ¤zÿ/§OYæs£J¡PÔér'ôU_že/”óÙÂ[QУ|ú¨j´A¬iµ¾#QÿüåÝ»©ƒ[ÁËqdC°kT§g¨îcÇ>jk'¢…÷¹g˜~_[ÂÂNEe/äm{ØIC› xûÞR‡¢;(qJ€WÓZßí«^ªPªQV¯Ùme}RIŠÁ†KÌvÜü«¯„磮ÀtTK"êEaJ"¸ÌUàc_ye5‰G'ÉOíü}NÁ•Ü6 Mþ{ô‰™êBŠ“Oóœù¼*—wó4ò¡žò’ž­Yê*Š“×Ø€&¯Íòçû¯€Ú+Æ‚¼È¢ô%ÆÒF‰“‰¶$Ì#’±È<ðGÑJî5ʆf9™gÔ¡PLAÉ2[qn±§ÁW…4ò»´Uƒ‹ÐG0ÔðtQš¤€ »ªmkæˆfä+*ˆÃ¾n n cвwÄ ¬EµœMµMÐÅ}1zÁ“‡ÂvÇ)YaN²Øñ’ÃÐÆ6êº>Ô…‰G|Á^™ŽN–¾‰;¶ª2„#2Õ,ƒK“μ.ˆ]Û<|(â)K¥Ì´hv{®d‹×²,óemèûÖLÑ–g§~ Ö™iÛ`!E­`@ Ü Õ9Ʀ,Æõ=mGæˈ1ÿÓVÔ££-$ºJôù`ð« Ís_¶fl÷¢¨—ÀöŠ9JÁOó,ÐÁÓéÀA^jfø6=Öv цã®QÂÍú»ŠF¬1¶ðšBBëØŽAf\9Þݽ¬u‚µ\àh%à‰÷HÂWJ õÍ,c04 ´%5m9e6óüÒò˜ ¯ËpÃö,Ü\µùšq'ºmSžµèƒˆJGŸ%4"q:Ѭ "i˜ûúo”±à‰¢kB–4„Ôž'cêì‹I¡ÑÉ®ï·qÁìê¾sô_]î)ÿî{ðÖí•_¡’õ=ÜFvnG‰µìV·oß}øÉR!®}ËYoFÃæ°Óè¹æ´o8˼í¬ØŒ’Mš€½™³%*sÎÌ×vOdÉ”’0{n’ Yx=IÂgM–?7Iö·’ËÏÔyY”Àņ„ÐxdöBÛ$‘®*®V¼2u…%!ˆƒøõ¿Î©o —˜ò‚ã“å…†ƒDÿ ÃAÑü†Ýr–~‡Ý–aLýŸëêÑè ížÀäe~#¨íKLÒÅ·4µ+Ð¥YvQ>:ÝxêÎÄ ®" „†udØ»T=Ž:õ86ÿ‡ÀòAؾæ??ŠŽËª}}Ý÷Ö‡Æõ¶Q„¾Û«‡Õ´èL¿Ú"‚ŠXÊÂÕ`Ûà—aµ™ýÔŠtuQZ?šÅÃV[Û–LÍ¿mU9U!îÑ64m Ã.u‰Ð+3ê'gŎѾ²<óà–ŸWmcv\nhÕ“QhcM ÿHæ©ç¦ï/œÁXDXÜG7|ì¯ùÀN?Eam‰c_+™[ÀýÏ„äÒ|Œƒ_¿Ð6ù5df% \Œ!›f„N“ƒ™þkhèj[ÈÎÛš;ŠÑ!ÝQ ŵ H· š²C0Öv ¤Kx=ã 8»-·ßLÏïÅ)Eù'!ÿÎ LÏ‚0M¦Ã LãS¦}u„© BØ8az B¤¼†:aÔ ôÆËBc¼Œ 㨦{fÖ @8GܳoàâØl<Âî½=ÈÍ£¾ IX¾($2¾ $Óˆ^†$ꉠ0•!‹HGc³ ¢!dKæùË’3üN­šBi=Ñ£ÖBZÿÎ$Ä ž Rrú=ЖÝk¯†^2Kú´…Ø!“M|7ÿÂJ< endstream endobj 920 0 obj << /Length 3143 /Filter /FlateDecode >> stream xÚµZ[³Û¶~÷¯Ð[xf,˜@LÇIk·Î¤“Ç™twƔѥH•¤bŸþúîb$(ñ\ìiGXìåÛ ¯nWñê¯Ï¾÷ìÅë4[¢0Ò¬ÞíWI ¥Í*KaT±z·[ýIyóÏw?¼xm’`¥Ê`¥Éa·¦lÚ›$þ¸‘iTŠîXâ+Ïb>È·/^+ì±V©t›¬eƒŠ¶úmöê™E.ý©íi¨Ú¦¬oÖJɨ9mWmñ!J€»ÚŽ&}{,‡®úLk†–Æú“ÝVû;l{ñFÛYšª«Æ–<ºm›ª)ñü ’ÖÀ´"M™´ý ÜJEÃÁbGGý¶¬-m[»GF½c¹­l3ô´¤j.Þ9¶;[û±ràí¹ÞÑ膶ìNiyýlyôÃ_ìPVuÿ OüÔÔwK´v(“^z ž“ÆÑ€ºÝº{®ý`ÌQÖSÿ}œÆ=œIbƒŸÈWJºo¯äž¤©Èå¥Ú"ÎMõØ•yæ×Ãy‰¸X=×+i2aL ·Ô"M sè¿F³¤1Nv(xì·Ü† &MJwãÈÄúl{zÞûHªÐéªÛð>”ÍŽw¯vv¾Ç¸´9×LÂá&îN-ÌôÕ¢Â}:XTiœ2TÍ-=”Ôôv Ž;ÚE„qæUI?—šÎEnŒçÐfhÑ@2‘éÈÅniŸX¤ºcy- ­C3õµÞé&%¶³pQäÒ:)‘¦zάn™ =ÁÚ?h¨Jó‡o˜™Œúma¸^žÌõy-‹"z³§öÜ8LBáØÝs°ÞÐêPáýŠ<Úè’8*ϵ“¬G$ö¤f¦›ðì„/þÇvm¬jøêéÔµ§®*KŒÓR˜\ÍùVÛæv8 œ$gœyÈ*ÙÂfFYî>žûá«?š»›$n÷´pÄA:´¤ÃJ»ìùj¶‡²+·ƒíx98…æ–ô,Xu´Ã¡ÝQßÙ±›s$;s'ì’9žÖs ÈÙ¸óè×€â²Þ­‡»“¥!´X·*óp‘GGnuªƒp$rÞhÇù'£­²T:jÛI<Îs}šŒ&:’tjû¾Úx’ÚÓšE¦ Ñyv}gŽÚ,ús‰Àd öVpùͦ#‡ƒÚ¶»\VÖ}¼`H­¡©ÛÛjK˜ c>a·j¿`‚R&"ŽG—ñîí/¯–`ºrD«ç´ñ@@:û}Ûìm×µä¢à¾:…’|aVämÛu`qpm²‰Šã¹Ç >Ù,˜}»ê¶ú¯ „ Ä`À·N½UÆŽ Œ,G!nÚø•¨¤8¶ƒ…G¿ß©.·¨ÅáVŸÕöp± œ¼[1zB+gcƒ}1¶]{nvNtž8T±¹ÆA)ù8x%€AZ]ñþЖÿ¼||o4LzÜwíqF2K”DØn>‚d¿\ˆÝW_m£v+Ó $àâѵуÀ°üó´¬Ô{ûêï?RáãX’zâ³³ìì*€‚#¢-HƒR£û±•C@éŽûì\ÌŽæ,ï±% '„%K8vdÂ3“ +‘¸MH$®p–ˆ+¶m³;o=è&Q¹$°º"q×Õ¡EÔFÙu¸uB§€u”îL‹Ør\ºÊDœŽÉëï~üy P$8öØ|A ªrt.ôFñ–O„‡Þ°L +4i©„ø;çÓØwß“¯Íá25ˆ <"Põ,ÜŸ›ù¶%w6v‚@f-Ï ‡ÎÇ“þYŸx|rò¸ë¿ÑthÒ"ƒØÉQpÁÝÕïë4Ž£_Ymbrã`D 7µ¥>§TØ%¸`#ˆ¡ÒaŒ±àhâ\Èbô®„KšQËóP3\X§<,…\Ä'Æ\B ¹A?»Ì<| ‡òÌà˜¹ÕÝØ6Ð:ŸÄua:Çâ»J ž{¡•£…åHNráN؉ê˜PqÚíbªÉóá¼CÜÁ•6h ssGãsÜÖÉäÝ.~ýâÜøžs†ýÕ:Õ"+.¢Ù¾ºmB¶ 59î%r%…¦PÂMb¦…v§ÑæF4îl;%ñÑÃãhIcW[§aЂ+0XêhÆ];T,ÀÙG‹Ý.}ƺ3L<WPÍÕqÒ.Ñ_ƒvHÅèðáM¥Ñ©ì†j{ƪ È¡0åÜgí¿Ïe½¦ Òu²´Çõ<Ô€ñ1RT¼¨„n?3›Âh£E)øw 2h»Þqšq~Ó˹ˆóQ^¢ëÒþ¸‹„žåwúaa’ÿòÍõ>…H”~ ù°—¹¬ÌþE¯Ñûë°b9-WXòº¬“TͶ>ï¨Ø2éÊS«È…HJǦ"|è'´›ãdé*€ZFÇ „8z<øš1ʺÀ™4ñ>\»=Òè3Ri¨^ŒÿÛmí ßËÃØ9§¼£ëyæŠ.Ûå.E§–—:ê°ulrÄåæÞ† C7¶5&…ù¼á]šÖ¯ŸQöø¦ ·s’;Ƨ>RšÉg–Dð1…«|}Ioìz8û Ç¥¿=²ä¯<’OÄJÉ„÷¬Ã©4Ñ/ý8¹ŒÀ‰Œ…œ¾ÕÝ£<¥MßBøDfh.*à!Ä èPL™H[cqÄõ(Ý{ …Æ;t¼Œö‰Ê…Ö檨ŒhÀ÷ÔÄW©\¥ƒÃ=S¾È Š—k†7ì!´¹'X2EGî+¶4ýéÐÒÝ4“ ¥Š( •D?5¼óHÓ'ŽEtó(`$}~ÀúJNï¢_°ÐŠò¿`Wæq!Ú4 Ž_˜8°4,ìÔŽþ Ñ‘Ý:î…S~݆÷cJÄ=~º¼Ë‡W${þ,xÀŒ~7)Š«¿àØøƒ8,pã UŽ“büøöÄ¿˜’˜/ù×àÇTóõõ9—Ö`űÏä B€ªK¬.„š*€÷|÷†üHKæF;W|ÉÉp4½púeSÖím{fBÜ׸²ªAKíLÏØ'Ë ô•-˜õÿþ0÷dãö µ ôf ‡0•…øt!Ä[®æòX.˜=ž QÙû8Q u1#T¦žPËž\+ï): ~IÜ{òÎLNÁ! ×€Æ(}õ7û*‚ù¤9ß<ýßü²¨Ó°4꿆Ž© •å‚âô}yÓÐÎ?&P9ðúËŠo_½{ö_2âø endstream endobj 930 0 obj << /Length 2846 /Filter /FlateDecode >> stream xÚµYÝÛ¸Ï_aÜ“ ¬ñC_WÜÃH®-684ÝöwéƒlÑk6²dHr6Û‡þíá´dk½›¤Åb!Š g†óñã8^Ü/âÅO¯þx÷êõÛ”/ V¤"]Üm<Ž™Té"㜥²XÜU‹ß£²i—<‰>-E•¬Û—ËÞýåõÛ$}¨bβ¸Ú/„D’W±ÛÇ?+™)&y²X‰ >•ŽšM¨¿¯’8Ž~Ùéf ˆ¨¤GošûZÓxßVº¦¡éÝòAȯ8º¢‰q2îã²[ò<º?îu3øRŽÄ\±Xp/»þ—Þ 3jŠ‚åyPvà7Ë•ŠEÔ6N²Mé¤>önfØ陳œÉ8púuf¯œ¥yê .åÏ)+2™#©Ì˜RÅB²”§DÏgò L?¢Z$ƒ©ÔÏÔbÇ^$ -ZƒnA‰4·gÚ4D±ãM»_›¦L‹§YÔnivz‹Nƒ§²1 yOó¦9#ôÇiçÊFý®=Ö±^;ÂA÷ƒ=_Ñ!¼t¨F<•ÿ—eGe]­†Ç|.’Ø~~ã†v™þÆ~ÎÓ˜å&‚q´+2ùÓ¥±3Æ TLŠˆb"ÊÇñÀTZ,F4߃¤ŠGÿ!R>º„%2ñýùCÌÕ%?ðÏTOôHžå~ß 3žÀž™'üÃŒ¬D žg <¹³ÖÃNwúr_ˆÓ$ ^8'ý*†L!ƒø³~'N©ÃU$:”Hc¤]‹Nò€ÑDkŸ0Ý@¶½£c!±õœè˽¦©Z7÷Ãαt¬«Š].;÷Åœ+â<ºâ„µsE¢lëGZ¯àsüŽõàB&a"æSâÞ˜G„˜)ŠiÌà"šŸ½¹olö‚ü1Ô4Y+óÔ¨·Sۮݫë®Åä#óh½qtt”‰p¯Òí_fCål#‘d.Û×GM¯Ç¦Ò ©²¨9Ö5vË$z<´°ÒÓùÂ÷˜yqðlæÍ™Áý»]?ãAàý…Rã´Ë@GÉ£Ÿ'‹UÖnW÷-‚ÚvhÊ¡3Knj_Á±ìa )™„xÅŸæˆÑ¹õ4ãô‹ŸHïœCXäêZ~‡œ‰ÙüN|ÛSβR*Îb0ÂJûÒ|==%/HO‰OO¸Ô¤B,Kx~%àËA‘Õˆì×å ÒÑ™ +½ú_e.¨¿IN6Pãĵ’¹Št¹ÙÑÈ¥z¡SžJ•+& £Å3ªæ¤jñôIBÁ8UêJc7º§ÍKzÊn0›cm¼‡¤ãi!Í¥=z\X;½BÕƒ1&%³ $LÕê¹@ÊY?ÊÅÈ JuãÒš¿ÏÀ@PLd‘èj3Œµ¡¤'EJ n–lS’Æ0nýsKO*þð %sœòÉÜrè'd˜mök=á‘ž…¥%oé¹ÖsyŽ éò‡JDôg¬,…C"¢È(A|¦I›Ê Ú ß·”ï`¦+›{e E§¡ÅvßÊÃî«søQz™²,=ÇlŠü<ÙÀªéç´¡T'y:Bè¦Òh–€\·ÞÁ`ùÌLcìå ¢µ§_Uñ`é ¬kmËÔë†gŽáŸoî^ý%ú¨ endstream endobj 942 0 obj << /Length 2131 /Filter /FlateDecode >> stream xÚÕYëoã6ÿ¾…±_Nb.II”T ÚCZô°-pq-Ð-PZ¢cµzøôÈnú×ßCêáÈÞ¸›ÅµSÔüÍ“3#ºº_ÑÕ·¯¾Þ¾zóM­’.VÛýŠQJü@¬"ƈð“Õ6[ýìñ`ýËö_o¾lBéG@)bØÇÐȪ^³Ð{XóГ¤)¥^òŠÚƒNNÙø!7‹7<‚I·øñ *<È÷'Ä<$Ã)»®CŠ9hA’Ðw4u³° °tûŒmÞ¯õd»ÞpÊ=©˜WämwCƽNƒ5“0B¢z÷›J;ç-¾”ø¨Z¢=¾H Ù¶K@#<æÅk½’€pŒP_/ÀŽÑaǼ÷ÕXXJ¦;*T©*Ã:¨D’$ Ðt†¸ÚÀïEE0B}6 »*Œ€‹pP‰“LhE ¿™jÓ&ß©ÌNï¬ýÀ?EbŸ @ñ‰‘àŠfÍbï¾w, ‚p>ˆå§%Á‘ ç}«²¢ba0…?H¬ba”ÖU'ó*¯îOVï뢨µ[¼Þ¥uy¬+ÀÝ~qâ&36‘OD€@ÅqŒ@ÿýý%ÏŠÀ†Gëé”C×v²¨yj9ÚŸ²XVùnÍ5ÿ8ñã:&‹lÓ=-͸›[.‹Â‰¡R ÇÜ.¯à¸ºjÉeö¬Ñ/厽lÿ|ÓºiT ²ÌÙfJ›Ð}£T;»‡©¬.¯€ä;HÇOBtÜ`T,zuýá‡Ç+GŸ:jÑŸÑó9EVÙõ Ú=ã ‹öJˆ×ÃjÕóaƒT™ll4RMS7Ÿà²ø$oþüWA¼lý­‹ëîœIXãzgnÞÊ:S… ¹å®=ª4G)ÿë„j:çfŸwD+©%W³¢¾ßùïš{U䇺vÜAHL¹¬Re§¾úîŸvôõ0^¦Ž¡æ”ÅÞÅl#Úë bd­ù‹±Ö¨¬O]>ñ'¹;ʦ¼JiU_îT3wCØD–ªS.‚äÕK+a6ŸæKôíÝö 3™™ˆ¡#×i2Àÿo@û¹Äí5Æõüüm¤üâ )`ϳ^0f8{Ð ¯ïU¥òîÑ%FuùÒ |6>?ÉÂmÆÚÉž_£Tà /%äYX’°iQP""á(ßQßVÞÑ ¶ˆüØ”V$ˆýTÌm|¡¶r(œ&DƒÍ^¥ó'UtDœcñýðÕRÍIŽd¿\¶*I¨!Iù°TFœø›—‘Ib|*ˆ+551×Séò€Ä!û¸–ü—Ô¿NKÜŒÁ\Mwüù*’eÝW&pðòâÞQ5)dk.؆KÈùÓÈÀ=·x ™š£ ´gbrÉ=™¦šŠI'íŒQÔ@ý±WdŽ»Ã[ÍÇ‚b°‘Ø¿¬N84Š?¢NØÆ÷Ÿ£NFb!NÔ©JfxÛCnÛb©´|í,[ ßk°ã&3òƒ—³&h¨U}V/xØC×Õ"Ö&žzWDÄí8â¼wExÝLˆ¦7KYßÉ>S•m{tª™D§4±Ìœy?ÔÂV÷fd¦â™ÇÂ|)qPÕ–rgß`[«±¯ÁfzHkVCàfIÄæ†ÓW…ríÁ™Œ8ð• ºù}‘ñ$a§]­Â6ËÔxe¾}ç ÿ¨þظ­|]›® 6÷æ”(K͘îè&s‡&„\Q×¥…'³,×媴÷‘í[¶ožUInv@uôE§%À]ñ³àÚ;cœðˆ• ŽM^ÙY õ_wÀi­kdþH¼j4'8¼{"CXM†ËÏlyI MFmîû*Õlƒåù”z[Ý«§ GDä„?†NƱá ?™ì$Ríu’ƒââ4!bniPÛÚBWVCt¼vžÍºÐÑe°;Ù€˜Ã/I@D„ñS  ]‹™…1‰#°0.H  ën¾ÿ™s˜ntÇG§6Éø„2ˆ dmS;K¨ûÂ8êj¤I¡(èM¯&%þ<)``Î0z©j× @|0Nx· i{[i<æÆФápÑÁ‘æ.³Kg)ïÂÝszÍÑÈÞB ª²ºÜèafËüƒ‰RÙFíµŸíuØ·¯LÆ„ae+ÝwX䵇º/ìŽî‰ƒTG]Ê;-eI¬£Á`ÔÒ½uÂT¬‡:ûòõ÷oÏ}wÍðܧ È>M¸íîn—7e‰?~åÒ¸ƒÐª'&™Ì:9À¼aláp“ñ¸Ÿ;ýöö,3c¦RcAxns? pßE$½_Ò…myBâ8žìËLĉfñÛHˆùsÁOê^ýÉU`ÌE$6TgÌöÞàw'ÑotG¯Bj‰é!ß´ÿí1.Ãs—sc¿AXdC †eÌ’ í}»ëÞ‚Áî¾ùü•xv|%Óü¤xħ èÚ%‡1~-¬Ç ˆÙo}‹†*œc —Âé™5îO6;˜ ýœ7Y*QäféZ§”pÆ_ ª 6&³²Â—qaú©ÈÈX¸P;ˆ4™4Y LÉN_Ïø ¼ö(Sk/ WHÜ‚Ó&S§-ºj¨1#>kxÓº$E ¨U–ò?:0æ*=t;ÙÃ>õ†|„F7'=€²v½áLu2/Ú!a1Zž|?´Ž„7ð9·™\cúøjlü"…žzÒ3š¢0æøÁ½Âfµkf¤]j¢ž±$ýMZÏ_uÁúP{Ó±ðÄôýÒÕêû\ðÓ«­Á0ˆyÁV ¤eÑÉ—`{‚DwjèšëûΕŸc·Ð鯔U¥š]þzûAjQµÿxšGºßÛí«ÿoš>Z endstream endobj 953 0 obj << /Length 2378 /Filter /FlateDecode >> stream xÚ¥X_oÛ8ï§Zl!ã*†$JÊm×í¶›-šÅ" ¶=\ïA–i[- ’œ¬ûpŸ}g8”m%jêÞˆE‡ÃáÌofHò“Å ?ùåÉO×ONßhq’±LK}r=?œ3é“D¦Uvr=;ùwWv"âàv"ã gÍ:Ÿüçúíé›89˜qÁ’¤º2F–'ܯ¼ú€7ôÌ¡L€¦hÊËĨM·´Í'ó~Ä@ƬÃuˆ)Ó)Iù0Iy`WóÅT­“P‚Ô?&š¥)–Ý4ߘ†ˆ¸ íC©yYÌT*û}üxw;ýçÚtùÜ6aÝØϦè˜mÿ±€‹A–Ÿú‚´g øIÊûæîa°fIJTôó–]W·g§§www¬_y‚ÂËß7î@ĉ¬‡vd^ÛT–°TÄà͢؛ïÊÌÁ>" LU˜ö°ÿEÞ̶ÃöC™ñàŠÁ7•Á[æ Ï©½´ëºµ•§¾÷l¿¸¯rÎY¦I{À‹|8ŽUy3<0«riíŒhy ¶É‹%õ:K_4^˜WùjÛ–-‘îÊÎ35y5³kj›yˆ;…Ý…€ú,Ži+s0vëM§ãƒ-ƒŸEº3ðû.ïʶ+ XCÀVÊŠ¾—fVeeF’P29Ê=ïß!IÄ#229{'sg+4'—Ù')µ–x¬™Òé}¼Íl‰Ð:œA§. a(Vð, ¹ŒÓÞ/\)îâ3ýƒzëåå,l˵HÓÔkÅ8+ìße8–+B‘dL#öDÌRíí}±)¿˜Ê.nCñàÑ £à’yrÛF#î &³à×~ô9qÿlWyåI¯¼„?&8]'vÖ’\.ÅEp=ISàE—2€Ç'<ø1M¾Z‘À ®í Èmˆnæ˜^h1€e#àNÉ@¤™ˆÛ\tј¶-m5¿ l-ﾟšà‡¨Î¢à- µ›@ORíœ.óniÖÔ¢¡½ÀпýÈïí¶@–ve1ÔÛJ•10ßcŽ!Æ=ƒŽŽÁ°ðVï,F*Èq"‰‡&²ŠÒSÎ9T3.øÇ$¦Éˆ"|ˆÄwŸ”Vµùö DS¬ ‰áW/™'\æÍ'ÇUεv¼o°õ|ï?©HTÅD^š"߉{AòB€Gˆ<3‘³¶é\_j½ÁýØM5sa¼wöFS\¨½V¼VâõÑBÛÚöB–j¼kŠ`ŽÕiµ­÷)–¦3]˜Ê”Ý–XJ?40ëX†Qz»}Š!sú±Aä<6¢ÏÝñqw✋AÞAÂqy‡+¸sEGŸ:5ÿž¼ƒ§NI‡N>–w"¸dpýØ™ó Tóø£Žx4–tà¶1 Zˆg{|$i_ôxye«Ù¦ cŸ‚"xà`ÓÒ,ç{º¢]!pÀ¸~¡ ¨u®nÝ£ø€•£txê¢Àû>ôˆozÓÆww”Æ®I6ÏwøÁÅSéc®z‡Ãúâëu&’p‹ù;Õ*9ýܶì–C2,¹½(¨.§ñ1Þ–±8<I:‰¯æ„?ÌAíñ_B‡”»lïláòBØ‚É ±Q‰¡¶sº<*/Ä ÛßɯîçrïsÇ3tùA~ñNÙ-íl,¡'Š¥ûg 6~Ovõ]WJXZg z;GŒ])Æ#ý­+åç¦]3k9ö! °£døñÞøñrÕÚÑ×|Pá,uï+¾ùð}åÞE³ÎÙ¦*{DQ:ÙΘy‰ù˜ÅÀû¨ÃµÖ·.%ÙþEˆÒ*˜oª¡‡Ž×½ih|á²£æˆÈMÓ¢ànYºg =x(Zƒp¦&`Š{1ËW³°ÛÖ†Æ|•Äf·‡N8;s!‡èœzï”Eáäp¼™îUøº)«î13IX_ª¡ À»$,…òmí¢„Èßåº ¼®wÅ;oIr6oòµyL5¨ëi}]µ½>þqJ8Aq0Êî;›•³> stream xÚÕWKoã6¾çWΡ *)¤žVQv‹¦h±»‡Â@ ´=På°¡H—”(úÛ—IEñ3FÒ—EÏß|3ó‘ÞÂÞwïç7·iîa‘E™7o<@'™—CfqáÍkï—«(»þmþÃÍmG–q®,³©Z§·AŒ_Ãôj}¥W(-Ò.ÀntsÇÞTùf‰ö â4êƒXMF‘Yâòòò:H¸ª¸X.9« [˜)Jî1%wœ×æ] Žp3ì°ìôfj£‚°H‹Ñý R Ö‚¾uÃ2RSÐÙG0,`¾µýOˆÖA·YâÑúýˆ7æ‰&†‘pÛ’0 ŠÂY,?Ï*=ý8õa‘kÛt ÛJZTKkRuz…ÞÉ@µ”ð²C„Ù¹;ë!Q‹ï'ôŠ¤»3o¤“fðÍ÷clãØFHFÑ1üÐòZšωpûò9ý¯±@ôh,òŒ,(ŸÚdBâ?ôøðËÍ öˆ_Õ¿¯\­4Ü‚jW´#K: g(ê'š‡$½ç¬ÁBpF¬7îîT̓™¾I0þòlRª}''lÉ#®Ü4¸rIQIÆt7ñÓïªY¹Ø›…=6v_¶CÛ>¨ ±×n «ÉŒfæñ— ¤Èrþ¥yl†‚°ˆR^ÙejÔ¡™úòÇüÎ&?LÕwñÌŠ}^°:»½€æp$‚fašÅN@¿0&Ït2 “é`ÐG±g( ˜[FrgРJe£(€J†“¨8Ü%±¥©ìºYòUz²@“FõV¿.qEšÍPöC±W\•©f–0¶jK,¤Ýt!ðr«™&= “Sý0†m]NB·(·~§äR- ’ìT.g €í[%“¤xq&‘X¬ZÍÉe’‡…‚ð¢\êÀôtäǾÍëDÝÎ~¦’½Ùç8Yö4Ũèq Qó¤?ηN·5±jh‘V݃T’¥k0§†bdAñãHå¾ö¨H:¡Uá½:(;Ä:¾ä+Êeà!Üé°]ï×iXÍÛ}Jm/)ÚýU&…º7ÜÈJ]ëè–<Ÿ¬ÆSÂ~¶i@Õ‚%üàŸf¾J²hQd®SÀÿôn»e5ÏÓÅüMœÔÿoF?½óÁ[0š¿†Ñ’;Á<®’hÕE 󕤛׳º¯ç^WNÿ¢ÆJÕ1 yvkÏò.îÊœŽ®9]6•vÂ"¼Î8¢Ï*¬³0þ'ëžßÎ/>$–ùÒ endstream endobj 966 0 obj << /Length 1222 /Filter /FlateDecode >> stream xÚÅWßoÛ6~÷_!$I›!%Y²²ù!ÅâÃmÛ=tE@Y´ÍV]JþU ûÛwIYR”`í°õŤèãñ¾OwOØY9Øùqðj>¸žĉP¸3_:cäù‚/ræ‰óî2¦Û´¼z?ÿéz6Ö>&(œ€«ÊÌ •Éç×3Ïs&`øÊväMò'ž5e)ÖãÈ#È;Ùõ9ªfÖ #=lD µÆiC ~á•(t#B\„'_¯IYý–ÛùjÐü×Êõíó zo:9¬ŽOX. AÓ•k gÙ-‰zÈr¡ë‡ÙHéjçÝ1y4z,ö¶ÐEÇ  †;«]3ÝOBmSåtZF5.=‰­šK`q/d¹>~g…<‡7Åä“ Ñn/ûÔÔs,DY”.IeÙõ ðÞž-·ùMŸaÊcIåQñ¬ÜƒÚÐçÞßï4M¾ÇÅ>îäÄáp¸‰¦õüñ3“BÙ¹7žòil_O¡Ã–uÆ’)q=ÿ‰HNÚ@îò¤’à»ep7|؉R7‰xÁP‹lðî=vøœ#/š8ûÊ4s|è#C_ÉAê< ~«›ÃîXu¢ Nx |âxØC“ ìv¢63·¶¹(š+/¯ô†‘;Æ—¿¦BÝþjZe´š\\¹c¥úñ—øƒñ~Èn}qðE+hã §Év!Ö*ÒX±|½JÞÂwÂÙj½‰’Áèí³m¾¨öV8J¡Ç…dUw§æM*6=Tƒ]?,ƒÚìZÃOÇ»ØEnYšÏ€Â³ž×G­2M.F®?F$ ªï‚ЀySÐëeá)+í¤é°¢óEeõÁTB¨UÔA» ¼fWÐQÀa뻉øh’§×^ãc©™—ÀWŸ°ñý—œŒˆ÷p¨»dcÜÓó¼ËCÊ33=ž¦‡”Æõj=]0»«8f±H§g<)ÎÌÒJò¤ºrÌ3|2¬b*§³ÛŸìZƒÓîÛ%“Ö‹½•W_®à»Í4Ô_ûb he]Õ®¥‘æÍüþgé’ª0¿<»Ÿàùð0ñª endstream endobj 983 0 obj << /Length 2237 /Filter /FlateDecode >> stream xÚÕY[oë¸~?¿Â8O6p¬ˆÔ}}ØmÏ)ZEÛ öe·´DÇ\È’«ËIÜ_ßÎP·(Ù8mÑ"j4ä ‡Ão.ö7ó»ß߸û%›ÌËboîáû^Æ›D/²Í}±ùi+ÓÝßîÿp÷%Î M¼ ‹`ËsPý/ªC¾>¯îžw_‚`2qÄ™¹— šÿTšólöB±$ö²T:iO{õdÚÝ^ÆÁ&š®õvû L·¿?"Qnûª½èÜüìûRŸo»“¦ǾÊ;SWÄÚêŽWÆå%/Ï 5O©ÏÌÙêª5‡R£ê ÜÌ–E)ùu'£­*{ ÊÍw6·om/b/ Cš{½É×ÿ¬9®ÿus<•êðvst¦+Q¡Èß놴ÐÙ¢}„Oöâ3ûLgLìol)¦¨Ë¥©/QO`ká¨É{Nÿ߶ÝëÿÁvsýôöݶ×ó¡.ïò“jTÞiÞ¯Þ‰hûtQà~Nóãv ,`’(ÚÞ® z»bÚ€ A@Jk«@[SuV³÷¯ >­ýWâBÓ[€)%£$pË_ò1Íñ:õD;žáŠ‘ŸýÈ7žö>!ˆí¥¬»ÎT¬Ý°þ vZQ"ð=‘ 'àc žùqE ð&Ø#^ÿ}àgž/æ €:,ü­íúâJCX\—-;äª>Yä%CÌùhŠvM‰‘)q\h…AX¡É-ú²Ã­³*5=_WÎô¬úóA7¿bâ¨ÙÜ£XãÍþTÖ&W%•!©ÏÁoðåñ¤ÉåðEÑÃÊ ÖSÝ—<>hf* ]ÌW¤­Âw8á‹íoì]Gþ²­+Ð#¯K:Ÿ%ÊWêüDy8¨æ=Æ1mž£qàe4¼(z ˜F·-½¡@šç,…D=Ðð2=Vô::¼Lœˆ€Ï]U¦±ç‡ÃÝüòÝø¼æ¬¡—ùSg¯›ó®,ˆæöó<ïí¶«Ù.ÝÍN¤Û‡þ¬«Ž<fÆSqYH§%hÒ˜ø­î”)Û’½>¢™'#VôþÄØt® ]N°bááW£Ö ®T WÊ¥€+¶³†Î}Û‘€ËT´üD4Jí:’+·€à4šb9£3ìþ¼tÓàFiø×gÇ`ì¥ã¡7gåõ•yíl‚ÐKãaWŸÞ.*òÒt*ç|zMŒÌ€=Åä;ˆ}ãÎTÓl*ð¢ é_¹¢ÀK39—^»Yø˜8ò÷TF€»E[mŸBK¡í%`•ŒÜð 3‘ºµ £ªºíLNd†õ”1(…îtδ¶î›\·ô¡>°CVè áJŸLEŸÎàü{U©òŠV°PBMBòv™§B"\iéCç8òºêsØIÈÎ8ûn«|Õ ¢¿¹€”P.1[£ÆTã+þÓ*Kº bZ´É8ô1п¬Ü¡ÄK“Á÷n;'Xu† Â)ÓúÜT6ðÃw{gfÁ-1]'ŒEYé¶oL¦‚+ôºÊ5}A‹à“,‚#¶r£ƒ/ueï4|UËaU¡šÂüñ´ïUã^ sÄó9êÆÊœž/£ßAwZ[op‰ –¶#d[0ž9Sž ,Åžê[càSñSƒ å^³èܦÜ0Ÿ‘ 9›hN1’ê¾›*sœƒÍTyÙcÀ_ñRëΉ›²€F¨™"_4øZ/ÙǺ^îµU¶DÆë…iäÃCv”\ñjfk\ô¹5R¯£MËsè›]Èd¸µ ÎŒˆ1âˆèÅè…¸è!ª"¼è!n7 ]µoq?k™äÍCâ€sª‹o?~þ¼–ëF¡—Œ]Jçß¼ ÈÏãì_‰!2¹5†ˆ(¹%†„Nt9Ä:<¼ Ti™'’ùùÃir!xQmKŽ3ÍìÇÐoÎû±î8üBÁaR¼P¡Å©—ú+-°åÉK/H²å&<K_@fÎÃàªåcÒÍVØ k½ƒˆPq!Šot_?òb?¾Í}C)—› ÑèÌ'“³&gu%åìýB'UŸøôa‡æÉ"g±dI(Ü’¥Dx¾LçÇÜP}Y=9æãd1®m%çp”©šk¾*tS^É1°ˆ8žÍÐ# ]bÈ €BÐ5©0ðàS4±¥FKs ÝæÐùÀeÉ»€Yç§nµÀ‡,A=NÙŽ¸o Ê$gÏðmˆ¡`GÇQ^7`‡K]îS=°Ð` uðòg­š¶æ¹0Ñ=VT¶p¤§âi6¦Ä‘½ó1ž¦ÔãÒ+Arh†Á\-$Ø[ºc¸ŒÉ–âÅ—EL¶´1 OºÀ“í¾›\o O#øJÉK<ÓžOaRõ»ûåân4»/u \Üå·çk†¨¶ž _©™Ô›œ¸w®ŒºÔ¦²ÇØßqµ Xo,_¨Ìâ< ††™¸•Á‹ròIŸêŠ§åÔË’Ü p‚^^œš8\y]WÍ«)’¯D>(ÇI-ªo_l:ÅI±œFTsä,ÛeÉbPÉÖ(HT¸Ur  ¶}šP^@‰ÑUË118+Âôœs`k,$pf#&­Kø•Å^¤ÏûaœÕ„®'‡ca‹`K\=P—C-;·Ôzè‘Ù`Ði¹ï·ÕÈ{ F/Ð0^ÒÅ‘ÜË{–û`Ò!¥3 õb4;œVß R/ ‡TÝüµð4Û(_p¼-ý a÷X_lö04Y–ÍŽ[®gÝŽw™$츥ßÁ?k}ÇmG¨ ¹+ÝPŠ<ƒ–¼>> stream xÚÍZKo#7¾ëWð˜–MVµ0Lx7À.ÌL€l fâìXdy&ûï÷«VË–,)nÉ=FÉî"Y¬úêÅVŠä‚«¹:Gìªb .²¸Z‚‹ã‘ÉQ¶÷Éq´qqÒÒ‰K©ŒjI.+–°9„_ÅÂÅÆÙi,‹‹!Ft¢‹‘2:Ù¡µ'[†„£“0QAœ˜Gµ’‹9cŬ0KñDÁqÕì(B§ #öª¢ª ž‡€Nµ'Œó‘=±H)fRÂ!4àUc ƒ A¤ˆ' þ5¨ã€ÃSA‹Ãk 8³KË+´•B¶ég´Kt‰„F Y%†¶” ´i+3h²Y0½ÚM2U°—t PMär°‚ÝÜJCŠËl{.K‚˜¯t¢Pk.`A“¸lº×Ô"bNàGSq%=©èd{]‰›'… ?Íì Ç0ÒÐÁb º"bgWøÕŒuR…h1)›0€—’MÙ8Q)Æ à]Š ø.zU ¬Ô”F Ì•–@¾°ÔpL§ìU W{ Z, WýÃ8$«¥Å¦MoƒÝM‰Äetv6j¾wÛ÷Ú5?ÿç§ê[Ÿ€úéÝÇ—£o¾ÙKCh‰sI>BI_€˜‹`?bÊ^jO┋7ßÒ‹XjB›¶‰ÏgÓ¥;;sÍ9°`Sí´s(¶Ð €uIÔ  ƒ\Ö`LÁÕ:¯0/`ñæÇÅìêÍdé.\óã÷ç®y;ùcéî÷}û¿ù/Æ&£æ;ð0™.oáÖªM5¯'·³»ÅÕä¶õtí£OÞ]¿ýá.l¿ Nt‰mÆ ÌuFÐÒ½šNgXê¢õ¡Æ‹ùPkmÝÒš7w¿.Ûñ¿®§ÿ5ßÎï&‹v‹pÙü³ù¡ùî"¶cê §¡@>{¬Õ› ˆÙÊág|*t¯Zy¾qÍ?fogêøêõû©_ÜŒýͧ¯M4ƒð!5z2£7÷ ÿ ¾0&ð§é “Û«ñÇ«M> /°³ÞƳI{­”=—CÐÚBÓζ µ¦STÓ€*÷Âô#Õ8$pàá|€0l–V‘äÍOr©ž¸Tا}úªÒ__›´k}Å$žà¿Ÿç íJõ¾ÿ~ŽI—ÖŽAÜ¢Ãj`IL s„³’×D`kd ÝE‚žŽ„Õ‰-_Zµ4¨KQñŠ%s >‘e<ÑÛVY£*‘1_\O—{ z‹›}Û# uñ~{òÔ†)ö5“¥â9óåý‰Ú5¯ÎÎÚšWWËëÙ´yÓüôúû}õÛr9¿ý{Ó|þüÙßL–ã÷³Åßæ‹ÙïØÅϾÊõ!ðzNH² øvQöÀrõQäHǧG’î1¤ k†žz ,õ"N9ú´/ÅØKÅK¨Ã9àGþù±]ÃNl·¤þ4ƒ´:Ãx±2cÕÊ°®ºzK¯cɾ«ã 7´±BÙ‘BìÃb20Â[LE¾$âbq"£Nãè¹ÊK1 ¾ Õk€H¬B‚µY‰‰`&¤šíÜM¯Y›Õ‰}­m‹ö!Í$]ñKÇìkҞĸ(=‰Q¿úž¤”³·ZóyQyÃV§ë§Zñ*¨oYq¬'[ñê0VÁ¯ÚܵeHkæ Ø“V»#@9ñ›ë†ƒ=ÃÏ´¥|F:šŠúeŠ€‚óÖàs>œ²ÏýøÝïw·Ëá8áÀ¾=( ¼´gÙ.zàrÒ ¹j=€ÝR‘Äsæì‘&FaäÇG»–¨ý]Ë&탷€HúGKtÈpk—4y_^|8Ç~H«OµfÞµf:Ùš©³b꬘µb«¯MB)"'3žì ›,KúãYà H@›í§XìRÐØÊv%ˆ°¨‡±;_ƒ ™ n.å#S! V ’Ç5":ˆh]deŸYû ì=ì¹éÚKLÕœ·<74ö1²¢¤ÐŽ]I8Õ®¸³'.][‡->‘ÐÙ‡ ø?" Èm„‘‹ˆüDí9žÎ>‡5­ˆ"X+B“…8#B,ȉ(¡J=œzoý»ñrìß/Æ7“/Á—À„ò}6nÉ9’ˆ§²ñÝk?C¸Äþv¶I{o ¤Þ²¥çÅŸ-ÔošÆxÇV=iöá汬‚}Yµµk»ç¯—ϽAÅ]ýû B~ÅÚ_ó„E|-«»<ûb–ªy¹|6"ÈThµãƒ,©ä~| y¾–à<‚0˜Š®/ïÀH ø莶¹Ö'ùéáÀ̬·çؤ}ˆÐÈô9ö$Få$}W¶{lûjÚ…G9>˜oė>Kê²ònÐÎá(—µqèÜÓÃí´¸‰Ëy÷ ròAS@nÒ>\Øw¬òˆ©²`?Z¸zÔŸ=‰Q-KO&"bKaý+_éÔÝP]OÕcöqÕJ×vÅa—rk÷©GKÊ‹zåÕS4Ñ·•’¶`ÿ­ÉìkL/xåCöu8=0‚ØX­öéÁÈÍoòPM¨JÖ|¬¿÷ác>YÎ ¨úì¿GŒú"³Y·—`\’O/˜¼pÎíç•5ö=ŸµôácPÅ@ ‘g͆D,mxšõB@¼‰ÝÂE”š”Pš|Äþ¼_P1Šè‘Ûº¯B0bÿ‡«ÿª/ùðÿ+æ3äs·Ó¥Ú#]ú?$œ endstream endobj 995 0 obj << /Length 1802 /Filter /FlateDecode >> stream xÚ]oÛ6ð=¿ÂH‹NbZ¤¾‹zX’&k‹ë’ }hû@Ë´­D=IŽ“a?~G%KŽâ¤{°y:ï›wGÙƒÅÀü~pr}0>÷é "‘ÏüÁõ|@m›8®?(%¾ ®gƒoÖ4%|1üqýi|î-jצ$•&c‘"9° s õ[´#C”¢| ¸È·ŽW«$W‰4D•Ä•?Ú“”ˆ’sµ2Ë÷ÌŽ"áii"å{-³ÀUþ5ñ¼ª@LY%qÙUëBÌ’8ÉEOb†anÐÉËdpI"ë³K{xDú nsʦ¡Š€f¹¤Tô<ã=Ïðñ]ú1`à1ÒsÒ<›¸ôQÚÏd¢2|LmˆË$#”õê42FÔ#ÉàÝ£îÚ`0Ô›*CÄ,•DAh’ˆÚ&‰|xs*óÙ:®0-‚ fÜ¥\­^]â²Iª%¾¨–b» s °+ßò…è ©bÝ°‰é§!ó,¹.r»À’ýjè:~m2@Q«Jv%çÕ†C87}áöï«þ8þKÂï`ôµ|e7ì‹±Ë Šl_ŒCß Æ7eIîlÇ'‰íôš:.qu~©HÓ}¡v<jÇ3¡f´®¾k]È™PŽv\+^Šøc´:À°bì‡Ô‚gj)@\³ý£¡:5>äu/³dfT¸n­ÂU•Üä"7oÞ õGóò’t*‰ñ×eRANÑ ÞÙ¬$ÍqÛÉ%(÷!ukàùl*å-îUEF­ÝúÓÓº ,ðÛ^­ˆªm6”ƒHŸbÏ5.TÈsd}É+]ÆÁÇÖùoyzyŠÀçB”e_bP••ÌÙ—p@ÇQR‡z”Fn“Ý.æÛÄ£Žéb&3®„ÀÌhK8S#»ÛÔ™_š3½%6¾Mz¸Pêø>#(7ÄTèl(‡Ñ–™Vîݨ±“¬´]Jùº‚2¨ 4ØuOãuÊU9Õ€xe*Ÿð1• –ü^d¡&¹Òx*7ÈRN· õtÇa^«‡d]½»ê¾~Hº«iA9{¦Çc…ù3;©¯9},îžeA» ´ýáŽý;³§BMyYÛ_'OSÔ<ªVœGûT+DÙÕ ªˆRë!1ZÝÕ€ÊÆÉV[œÈ'‡gg‡S¦|:Ñ’ž5«ÂuåP°ª}ZN5Ò ô}–{)3Ñ ¬)lÚAsã¥Ø ¬š<(²©L; „= µ©'ÐQŸûžM‡ÊY‡ÏZD"­c›š²`jB)Rã%¥×´L¢ïÐÂtî?¶£/î«Bd}œ ,·.×}ŒÔtЕ„b„9Ø_J~×MŽN7Ï÷i’MbEc1]øžŠÆ#ö€ø¿×÷øøëÄCת×] u™9úÑ'£oéŠíQ‹A V‘7+YN¨cq?Ø|)9»>øû€ê¾H›¯74 auqvðí‡=˜ÁKÐR8ØhÒlw((í*|éàêà¯'Û‘þDÔ&À¸åA†@¿eÁî'¢V#댬”²öÀW¯²*àòeæ‚TÆC¸˜ßâãûp¸Ý˼¾ï\p(÷{Lö"ÂXø3&kÓ:Ý»aæÀZŸé÷¢Œ‹d¥ÐÏ97#SwbŠ»Ös3ü€n·cÆÖø Ç©J÷øúc–Ù™ÂÝÐL-sìêÍ6hW¤Wopã½XöÝ endstream endobj 1008 0 obj << /Length 1383 /Filter /FlateDecode >> stream xÚ½WßoÛ6~÷_!$&Cê·†nX‹6 Ø’,{Hû@K´­F–\‰²›ÿ~G%KŽíxÃ6øAGúx<~÷ÝI­…E­“w÷“ë› ²’„nhÝÏ-F)ñüЊ#¡—X÷™õh{túùþ—ë› 4½8$±­3+šu‘K¥8¡Æ<Ø+œn‰ãF0éáÂ?¾£eǾ×7ž7t5¶“ˆud9_|¢%„\M€R»ª3QÃCÿÇÞ¨õnHBfy[OµíJ”²9éÐiG`û}†G!Ib·ƒ-/³|êö&ÏZ^L7 öŠË:OEƒ£ªÆ/ÇO‘7Òü1«ïï:òÑ1Û:, Iäâæžó}­Ö2¯Jô’ÙàŠ \8#+ü6k‘æóg£†Ÿ:$¯s>+º=ãÈðϪÄïv™§ËѲækËkò¬¨Ò'U¤µ'à;xçY“ @/5ßpfYµEföžph‘‘C”H|iD‹),jå²RD¢MǦ¤'Ò˜¿UTÇeI¤qbIhß:KQ¬qnöŒsïD-jîc[Jˆ–ÕÞ.ªÜ ³Æ¥4ÐîèÑ6—KThª•À¹y[Ë%šmž}i‰ììÙNc€¥˜/¦¢rÚÓÚ¹H—Ò9„òŒ·ÂS¹†`Ž§rÜ :î¼Ùnf?¯„äóªvÖuõE¤’Tõâ'†t®O°e–^!ÜD•jÕ€¶o_°ÜÒu)åºùáúz»Ý’ngUìÁö§ÈÏ0Ç’ÎœBú i<Jf˜ŒYs' ÝÞMu¤˜ÀÄú@F¼}­´Ô+NV›SN{.ñÖù<×Å#„Ô\*wB×^U™(p”¹ ¸ÎÛ2UùÝ-àW¤¼›âOª@ 5­NUPà8Ñ¥g8HO=êRé68——ëVvnÔøéj?_RÉ BâFý©pz Àº†¥!jkT¿ó§ãRy¤½ €cäwe{€.Œ º !ºªTióÃ%}½£C@»‚o*\^bÕ=ÑšvæŒzÄ>ƒ@9>¢ï‡o|µ.Ds~_ŽÁ^è÷œ€³ÆÖåå%vã´Z?£”qÉQÒþkŸ ¾;q@XÜüûž; Ÿøq_"ÀÞ#Ì#~pʆèGó•¤IvÆ´ooœÞ[2õ“xfI÷Õpo‰™v~€ÀîäžçÁÉËFÖm*qˆ1Rm%é UÂFuÉ2NZu"þ±»¨‘Šîh]5kD½Q=FZ™B0Êš#íF¶YŽñÝ?ÌÃøô_¯‹gÝûE•Ç}L•p±aùÅÕÅÆÍ/Tz}¾êû|å…š4s¼!ÈÛ®¾Üö‚ÈA54¹¡7ësCLn¼~¬Ýuñá<¢½˜æ&ÛQL`%š«ŽCyˆ˜@;š¯ÑÛ︾~0)'ÉÙirµG‚E!ÌÅ@­Äï~ô l8Ïñ“åó9\¥Jco“f^ö’QV)¯ðt˜§ÜcÿéxwOûXç'Vg?ñí¶à<¨˜çÃß_·÷£=›…§Ì€Dû—¯»K·rQ•åa- þzREX :Oœ]Š(Í®}¨ÿ±} –øiu-Rc½wÙrâ„ønpnN `?ŽCs4 “÷“¯¦›2ë_¢ 6v}ÏJW“ÇÏÔÊàOXN¼$¶¶ZueùÐó#_á\Xw“ß6*ýÜ߯À‰Ð‡Í"—xìT«ƒÑ2nš}ºÛõîwøÔ¥¶iÜïs®•»æýk_ Ž7¤Ð’Øß9.¾âïx¦®¦±aõ{Ѥu®ßpÿàs3¾ÀTÿû­å…¿ß_tÊ69 endstream endobj 1021 0 obj << /Length 1228 /Filter /FlateDecode >> stream xÚWÛnã6}ÏWHZ@ĺXÒbS4’EŸvÓôawd‰²Ø•EW¤ì¤_ßáÍ’ÇñÂ!=Μᜡðl5óß/~{¸¸¾_Y†²E°˜=T3‚1 £Å,!-ÂlöPξ̗Ø4Lzßþ¸¾“‘z„ JR°¥õB¢T.°µº‹‘®o•ý µÐlùKä+:ÙõÚx}†cG•!åk<ññ+ŽñÓ•çÇÏ‹¦’vvVõ­•òn%¬(x'oîoÿü|‰ pâ´:'$}Îmç<_õkÚJqÒñ7~:ÄjŒk²@Y8\sÏb !òâ»K–¯x›7f¶ÎeÇžÐÁÉé¾µè“-2 ¾è|G¶‰ç´¼3KnF±¡«žíbM`ͳveæ[/ˆ|–/:Ýß »P9Ë:™¶þxTèó#âÉ sHnj“{"B›8¨P»§šùfÓzY =>J™‡é< Ê[s?&lUòÊŽ­å GkÞуJ+¨@g»§ˆHÖ¼.÷;|ýÛKÁ¦Zy!Ç|ÞÏ-j¹Ì{j}UÇKEŒÂáª}Üm—¿®©Ì¡ÄüMÇÿöE¼[ýr¬ A1ز[¯ŒûHe Ï:ðÞŠŸ^$6%n_-åF|¸¾ÞívȬºå|tü©Z!1˜#Ù›÷$Ì”’ØfÁÂ÷™ÚüÝ6‚¿Ò^á¥: +~:ãu :æ)¯fÂd w¡NR}ÑÑ\Ò‰â=Ú*åÂqž3ù⺞§oÝ6dÙ. ÜTœŠ5HQ”D“XÃ8U!¨aˆUÍT¬j,x+d×r¢»oémAý‚«î1^2J.t%«ÊUcI7´-u7RS ,ØUQg^°ÿ·éÖ;ÞKÓA|ëþ„Õ ¾¦êQ§°ÜÕÌõ[^Ij®sq^¦L˜}GOÓ†=øî)_o*Îæ`l¹[J2°eßÙ———öåÊ7ÏF*s™‰µ’‡2²‘ƈ µûóžPEéžÀÞ#$DQ|ʆOpˆQ c=Œiß>ú{oQ.k¿˜,\÷ Oê4DPƒ—„‘eí é&¦Z™Ë éæ2(qÇdÍZ»,û’¹òŽ:躎6P–å°ÃH]Ío0Ú{5äq†. EÏ[6ý”¸Qg>Û5¾7T°òjÈÔ ü»šœæÚÈ«8˜/+-Z/\¹ì“®%Óüô¹•Ý9¢Œ£A‰iT£/¤Çƒ°ÀíŸthcwµ­ÔÙúB>ߎÓ诶j”œm¾ ÝLOÀåD§‰trôGÁ8àý/êh²Þ–Ã'Ý^¾Í}=‚—î¿ú˜ëxߺ›NŒ¾ ‰»‡‹ÿkVùô endstream endobj 1039 0 obj << /Length 1613 /Filter /FlateDecode >> stream xÚÅXM“Û6 ½ûWh’Cä™5#‰%µÓCÒ&™f2Ó´qzÙä [´W­,¹”´»é¯/@PŸ«uíí¡³4 À#¸Žµ·ëÝâõzñòmZ1‹…'¬õÎr‡q_X¡ë2ÁckZ×6÷–_×ï_¾î`%}æpP£—lò戋ŽQýf½øká‚èXn§U„>ã\XÛÃâú«c¥ðã{ ~Š#ëN/=X>ú¨7·>-~íôM¿Út·¦»¾k‰ dŽ?bxŒ6y,ŽÜÖײª—+/pìY!Eòçb“%•LiôQ-yhË4ÛÖYYT4¹+ÍÚK/°Õ!aM‘½ ©_6Èm]i3æañ}ñKP¡À‰™À pˆ“3?Éj«²#Z9‚ ‡búÈZ¹1ó=¶¿m í!8áyv]Òw[ŽM-i°!¸@Ê[¸@nz¸`tTC¨`â‹8¯?|þXàÒT¹3‡ÜÅUݤßVÕQn³/ŽãmÍϪ1¿Ë¼XÍúìo©ÇV€U䆅ûÜ.›,‡5z„&l¾¡ì£C›¬ÈŠ=ý¤M 5ŽW×èŽnñ¼$oZ r BvÞ/ÝÀn7÷ÖV´%)ÒÉ2;$ÝqÛ²¨U¶šóh³ô»iñŒ"¾ Ô—’G¸a’’·šÌéÙæIUQÁêËs T 'M©<3IþŒ–ŽRIç³×®dË•ïùö¥R²:–EªÁÆ£ªLMTjlUªTÆD_y~ˆµ1‚ O)*°¬¨¥2¢™MÙ©)ÍDI#äUIÒQ•ŸÛ,•)3ö‹i…µàEL„¦>WÉ^ÎÑâ“R[TnÏG˜}÷WËUà86cLÇÅÚã,vÍÒçÏiÉ'N߃¬oÊ”dAÁ ݯù,;^{1OH|&˜3š8ÄRħ­ÜÀ׎ótâi.oenä4Ûgue5äkµk‰ÚW±ù·ø¼RK×±÷ÍA†hŸŸûÉe1JëPd]Z'&û¨ˆŒ¼£ïc5ºŒ÷ _RBc³&øÇœ¹q‚`aë‰Æû|o ÀNeÛ Û²“õ”šæ<Û¡¹ŽÂàâ1\VÒW³öîÛ„à†5‹jÆ5‹+r‰£[MœyÏÓ•l þXd©½ÕŠ¿½[LÙñFªqZ×ãû9•u’åš —8dÍÏ&fMÑÝ72½¢9âT½m‡–4¹‰tfØ¥6”R'â9Ù7@R›¡41WPúœ° Õ(¾TCç¸Ô€› ?"½—xAB?££?ôÑÃI=˜…ìØ´+1Çq.……‡Vß1O¶ún¨º»É¶7EG…'§s\€.êpB»º)›<%y#é«Ô‘°W~äê°qG<oûÜÒ‡méÚ5Íeæm&~»ÈéQ»uX0Ô‘›±ú?Ç‘èïiqŒár[º‘!>¬Ç  Ëè³ëZºáJ² T3¤XÅmÉROâŒ[ ÔY̆qr‡Q‡±®hÉöìj†£ßúIVý ïsì³Èí߃îˆGJ:P_ô'8ãZ¯štµÄ "Xø€¢À.Jò§Å›2j×V.áèíúvÅPGS™îã²|Áò)éB½PŸ.ÆŠBÊ´}Ú`O<"§>ap4€¡¥ÌXa¦Uä Ä$”3aô ŒQtÞ%—ó¹?Z„  ·Ô ³`ìôºË0§ý¾Œ=¢„'<§^=¥]ð™ôíBžU5ƒžáÙcáZn¼ÚÖcr§_BTj¬€GGbžBã,(ó¼ÄŠ¾ë~Ãg`Y zßnM°£…÷Ês™‰¾??lݨÕåµSÉóÝNž+˜ÿýsFô\¹ÀãNÆòÍùfàÛÄÕ\:Nž.L§žEO m.0´9ÿ#/"€ª<´OÁ4͆¼(s©©àå$»úC‡ùKe%x_V ë²vš@ö”®ÂôÉ(´Üeõ IÌãWÕôµ ÞW¨<å¾7ª´Ë[2Grð#{½Œ >dÝ[¤…®!Ó~÷¦Im¤JòÊ<ÖÁÜ(šü ¦0 oÛ\|}Vœí¼àLðŽ “Š¡ L 2Ïb0GáoÖ‹ÿËS£ endstream endobj 1057 0 obj << /Length 2551 /Filter /FlateDecode >> stream xÚYmoÛ8þž_a´ÀBbš/%-6‡k÷Ú=ìÞ‡${ûázd‰¶ÕØ’W”’æ~ýÍÔk”Ô)ZDäh8"ç™Wš.v ºøåâýíÅú£d‹˜Ä’ËÅívÁ(%—‹1"E¼¸Íÿñ6‡æ´üïí¯ëA8àõ)#a‚ “ÈrAhà•Þ•c^ñhÂ.ùTÖj´h°xø!ëXË¥]÷qɯ¬–+Po£tmG‡¼P‰£6Å&O´ÊììT©,Oë¼,´%”[÷,vTï•TI‘•G;VÛ%¼­Jk}i)Zµ;†$ZT¸a;¼Æ} 1Ø7—1‘ L§! 'Jž“û$¦aËNû$h@ð‰„ÛÓ©lý™R^×xj¤ßãæ“C£´×û¤¶£¤Rv°±:¡U…µüŽ Å~Å/¶¼½¸%ÛÉ’c™©èLñëtÆGc­¶¹9Ï J‚ð^ÇÞùßZ‰0&¤­ÀÚã °"œ:_ü¦O¢)N–fQS;ÜKË"ËÑ“ƒ%TJçY“´~¦µF“L¡‚ïó¤µY ›…gÇTn´ªî[\Òã‚sæéüª]í¶Q6uZ[ê¶2¦>”úþ¿ÿKÃfØ¥9+Ça9Q$ g¢³s] I•‘꘦ÈgbGv+òz?#–S©ß2Õ'uõf Æ7srÁã¤?u!Æ ü± }øt¿Y2÷k¸nœ•öY”¨O_"†u’–Ú ëºÉíp ‘€ýÓÈ»5ª…WFµVÒÖà4лVO?ýC¥VsX€ ÕÆ@¯ðL.ž•“¸ÖÇœõ±á²åK\Í{R©Ýârƒçn·p}NXð ‡æDôiåU øFaç˜g:²Œ§žÌ%ááÄ\þØ+ ‹’{΋¢rŸš­Œ†¨ÁNôvÆT!pùq¸ª%‹¼]sTEq3vЙÏ%x¾¥åy¥ð’Ó雸ŒŒe¿/3èRƒŽ2ÌQ¹ÃƒÀ‘!MGæìCKË ‚Õ =ÏœœÂç‹cg)›²)24y_JkòHmC©ª*+mÇ6QóíÂ1«ÚñY;6o˹ÀDD¼Õݧw3êŸC64£ñgËcîR%uqЂO=“nQ®àèœèTáÁ@(=55é\s`-ï!ø̇8¾]2ê%ÍAõßKð…èÙ Äö`ßd¹®«|³äPÄX¸‘áÆ·É×HA¬‘1 4ò ·Šô¾æqˆ!L¥Ö¨g"‹µŸ(¶!ÉZãƒ9ˆ¶ôA¡³gÂ7c”PÙ¡TC¡võ¦ž‹Ú"&QÐau9çS$dr,é®Ø'sŸ„±ÿ-aáXØþN9GØÊç>æÒ™ÓF$ê9­Ô$Û—é¬Ø˜„¡œˆuŽ M\X9›  §§|j'ÃмþÈØ8$ù~—nï‡?àA'Ýî^:#ÅŒºè:s¬}¾†J“]¥Ô¤èÞ©+±s÷ ÛÅßXÉ'ïí2À6ÛÁ,<͵Âl /¯-UïËæ€ù'$pã´QÐæ93R–kÛÎOœ¤5ÓÀ j%ðqs˜©ã)¯òÔäXXØæsxƒÕ›z¦trAÒFª&IyŸÇYÙΓ6Á'NsýNúì¤Íå#žHëØŸBÊ%³e=ð·\!xIŠÈX+ñ#±T˜; Ÿë‰å8¦QÈcÈÜ>˜2äØH¸:ùÝ Ê Õh4ø=máÆFÛÝŽ‰ Oýï¥#Sé¾Þ$ªÚZ( 3.<Î*?=ÜoþzTu™wuªÊ/PÒ‘²Úýe6Ù@“&Ä(è\PšZK7|Z²@Ëuêß×õIÿ¸^?<<öËË•±“îó/•3 ÂUÌâMs(ˆ8$Ôdßr_«­2Eˆ;ÕßÀoIzuŒOMD£¾wpȽOÄ~À¹ðþžT÷Pà*Gý›c{Gìk„‡ZìþW2Œ½ß]?_(­-“i9áY›ÄT® £î”•ãüÀÖJÀb“8ʉ3Y”œª¬©Luu»©Ñ…,¸d^Þ7À@i¯Í–íXø@ø¹<¡ãIÛÆ òÂ>oj ÂÖR,°X%•Õ£}é ”Èû§GÈôå nBúDÆ2:c‰±¹^é €2ÑG$PH€óŽÎ Ææ\2øOfÜ" ÄgOl4+s4Ç5$yF#º¦B2ó&‘ù;³¹•5 í×I“©Â&2½Çh.ï†à“OÇÜ#Žø> C­ï Å7ƒ¤÷t–8ËÐ?}Äl\œ<šè Cô°Uä£F€µ;» †*‡zúöð¿bH-›ªhÅ™ ûü5sxáêH»p”z ˜+‚Á¤ná?Šç¡Ï-ø&ê…¢Gsû!¡‘xcÁ(‡g(ã8’”AÀiÌa  ŒO0.7y¡ËÂÀ{¿¸¤÷±ÀZØâÖáE‚o˜<-m×lÙM­”ÄNwe™YB½‡ÆäGÄ›¹nˆÃ(€ìªAß´Q³>ƒ~ HÔ«¥ƒ¯Ù½¹ÓMšcC¬ŸË³–³Y6î3”QÛ`f†þù{fœùk­×Œ…!e,æsŸ_E!¤ù ¸ÓÛÆÿØy/ÆÞÈZ#NÔáÍÏÐQBãb›Ê0:¤‰Á¡‹ðêÚ>Lyk^ØÅ-²‘¨'Ì@;5%ƒ2&šõd”cË#[l#ßÓòFÕ7å¶~€ €—¡s…0¨‰Æg#-ä9¾,†P#Òþ¼+sÈü%¤#)Âõ­É=m’S1W#°€?˜Ô7ʓﺜ-맙ƒ{ÂgojB":×Ù¶—ÿ]é;®ŒÛË/Ó¦Úaw¹†Ìíò‡}žîí°­åa˜&ÅäZ Sÿ׺J°R'¯º_ÆMœåœK©ï¼ü‚î«okϺ8§,©T°¾Òvj®”X×9âÞ fzúè¢ æíï xng¢)φ҆¿3_Œ"¨ª'ÕÊøÆ{£×(Ɉì/ü¾ý‹ ‡OÌ.yÉè:M t`_›þ‡©þ÷§NÊ7~‡š­çcF¨”cWýð59žÏòO {ÐR¥ßùgHB÷ûßÛ·o± AÏ8¤Í!ÁÃáôPîì ÊõaÂÕvlJZ³l|ˆ$›ëf÷I•'m×aÊr €»¯gX ×O+ûT÷ñ¨ õúÕ›ëë7—î£ùU}*µ›m`V¨›¥ùUÚ¿Ë`Ö¿ƒ¯$Wð‡lÒ]Û€âN8˜xÕXƒD•»ÃbuOƒßÊq·ÈfËí[|¥¶Î¶Í‡ÌýÛŒRL“2T „PÔÈcîÎsŸOölWýáöâÿ@§ U endstream endobj 1069 0 obj << /Length 1385 /Filter /FlateDecode >> stream xÚÝWKoÛF¾ëWŠˆ€¸æ.ßEX4iœEÒ´Žã\VäJbC‘ —”äßÙiR¦T'½õ`s3³3ßE€ ûÃ÷ôPÇÓbªÉõCowÈé"žN»WÄî}¹RÛë.n®¾Ó kìÎVVÔ\a ¡Àsìô4òHø-«žêôT—x( \¥Ñ[Æ“*ÛÊ ß‡ñÎa_Á h– F²fpe†lzbQj{Ôf©¾IN9W üÈÅЄÁ6í¡iž©"hà»(ð:j¤)úvZ"Ò ¡‚’‘Hkú™ë¾u2úSÂi“ÛÎûÉQ_ƒÃ¶ß36ÀGÆzAŽ/GðpûñzåGÒ<À"òÎ ³pà‚ÓƒaŠU@ùI×%„Р úÿÉ»¤Ü3ùI …:|4ÿëJdýª‘uÿlýKø(ŽJÖ ÂàèZZôsêy)`ä<ú¬Œ uʘA„a`Æ>"k„žoN WW †-¤£‰¹’uàˆ·Ðµ²œO±ºY³±úB±pû¿F0"²a&ÓD˦HÔLì@P0ÑP ¯PYò販ˆ+5È—Õ¦UEûØeÄvYAŸ,]ÉÇ¿â{Ê¿\æaç{l¹>†å0Ãô¹3†‰šSŸ`"|;ÄDœHLdЖLÛ²H³b¥Žv¢-ê†j%¥àí)¢ì±£qâÚjbîÇÉ­‘™ò¾'R®²^˜¶:‚VࢶÇíäȲ·% Þ–i{,ñ¿YÝ•(­ôkè‚JNÇÝÔö¶ÿi† j¾\™ Jë¡[Ӈߚ,Y× Ú´ÈˆgFb(ò út ÿj¿[ü±Ik[•"ÌQY­~‰( ¿Ç=§‹ë¹RrÄ©@{½¼~R˜d]×[þÃåå~¿GíË¢àÏzÏŸ«XšL„£Vœ" ³Ú? v>n endstream endobj 1084 0 obj << /Length 1315 /Filter /FlateDecode >> stream xÚåXßs£6~÷_ÁÜu&x&–‘„ÜLrפÓL:&¾öáî6 .Èùñßw…¢ør÷Ô¦/FH«Õî·ß®µxÎÊñœ_&ï“ù9ÇN„"N¸³HìyˆúÜ 0FœFÎbé|r“R¤hËJL1sWÓ/‹‹ù9 zÛ|£ ”År—ȬX)‘ÀÝÏâ"Îk°¤Ù•zéJ?î3¹Ö r-ö›Ò²Ò³Û8¹Wi 8ëYMáX?캘æ–» NÓzÊTmrf­Ü â1¦¥¯e,³Zf‰’&Ìs¯ËTÞÇÕ”®°D%øßžul$ú±ðQâ.lÜ¢#jbd$zTAw¬ÏÇŸ á~h¥´¯™ ì‘vãZÊmýn>_–*«Õ{‡œó¯uî<ÊQæQ‹}3ÌòÁEˆ›ÁA}þi^—V®xðë¡Ð©Ô«^) L3h)rC ×årÌß>" , yëYteKC5Hw°©,Ìt©ŸI%b),@©Œ‹:BŒl°ÍZÙòæ«HdÝ ?9[LþžàÆ[Üe1 |Äpä$›É§/ž³„Å ƒÂy÷èÆñ`¯"œ;ד?,HöJÅÐp"÷±ÃÀ*Ÿ²q©X0¤Ƥϼ³Y©Ò'²…óÜ XPÛù#¥\2|u¤g×P@ÂgˆPþ=H4ØØ)Ã>‚©mÿYÔI•m›ˆÿPÙ»q••;ãjSdé3`˜—Ô0-ëÚF´0«ýó7:Jo,4£ YdËKx2>ÊË5T½gòq Š=}­èíÛéŒyPߨ~š„hÆójÐó3ü…AtXЙd+N}òíÙ:RD†}©¶é™a?B¾?¬Ò*T¡ÔÁ9ÖÆ"„TÝlŠ»7”ÿO;{—”wÿgëlµ‰Ÿx{uöÛåÉâêã™Ý{B×øxŸ—«ËìÖîþùéåõÙ+þé¯lL7£ÛbFIYU 1ÀdÒ낆kÁ÷¡±;ßäÅ«(÷Ešò‰ÿÛ¸Ú˜a.îDnÆËl•Éú_–*Æô,65Îwf±^—»Ü,ݘ¹›¸ÖÒ¡Ûô>°&éw£¼1²™ÐÅp¥=ì«1[»jŠÍíËý,€&U–@k̓¾êU5fêYoE’¥frmV·ZrùؾTfWª9ƒWÆÔα»h·,Eª¨ïr©'ï-¤ A”w…þ8,„€Ž|¿×wc­3«÷†6 Üê)&£š¤ø¸ÿLÿ\È|0íýüýq-ë]Prx¬›ÀqW¼)+Ó/…Œ³¼þ·¡Ðð€nþP„Þa¤pxvqV/{·-ç#Ï5ß·vylVT{aÕaP ¥0¦5Ä7òêD‘‚,Ùï1Ic©õ7âIç'–¶¯GÖ|8ó˜²ÈÒòqÄq8ªòÊÈ}µè÷}ÒÆwÖò íõ?"ë± endstream endobj 988 0 obj << /Type /ObjStm /N 100 /First 958 /Length 2005 /Filter /FlateDecode >> stream xÚÍZQo¹ ~÷¯ÐãÝC5’HŠRaàËÁm€88)Ð6ÈÞ½N¶µwÝñåúïûQ»Ûñ®=ŽÇAâ¥f(’¢ÈO¤&µˆ ®–ìXð]Ũ²‹U1 Ž˜ñ[„ŒçÁe¶÷Ñ©âyM®Æà$Š‹Aä Ö ¢V¼Q£M­D±'ÕÅDB¥ÕfQjO"¨lLä"ÇödÍŽgYÃ( {†©5 4g—¢M¡‚bÓ‹R„i ¢K‰ŠQ T1q‘\¢TbPXa&'S€u$Î&«MMF‚´LMžin3Õ¥J¦5G¡ÍHÉQ²¥…D Ø\‚ÅA•ñ%qD¤Ð‘2¨BöLáÝfI‚V›Í-ÉfÀlÊÉlÇŠÉÜ *ÂØõÛä8ˆEŽM¯À(Æ\¨À1U:f6UASظö«½•bcŸ8'[¬æ¬¶XÂt¦^¥9ÓvA™ëÕ$SvB±é(N Ú(„‹´ Ø¥dÏ$:)µÅIr94ç9Gm»L±Q!Æ:¤‚jÎË;![lŽ šó2¤äæ¼ )Y×è`|›)¥m þäZÌÜâ4² Ѫ¦ t°A×ѵÃ^s V§¤&®WN¶hQøǨìTÚ²R°ZS*[dX¨š‹Ph-Í)xµølq‰ÍÛ0«¬×ô+)šà¢ ²±9„º‰-”4±˜É-Ø‘ˆ…Yº_Ü»Z’øÄuÿü׿-x=±mšú„U̯/.ÞüôÓƒÌÈL¯ðÀæãżw‡‡®;F¤1,jÓŽ± d3°ð“Àc lùz€íTd¬ ¯ûu¹8}3íÝ;×ýú˱ëÞNÿèÝgUoÿw5ŋɇéA÷ j§ó~8hZº“éjq½<®B´GŸžÍ&?/þpïL_FªjMï¡f²Ä\W±#ïh>_@Ô»ff‹Yû­›q›ßõ*¾0©Í?è~^,Ϧ˦+¼ïþÚ½î^a€­xoÖbYHeð@,F_,·jõÑ¢Y“_›öæú·2»¿Íæÿ펛†îè´Ÿ-æÝ›î'¯íßûþjõç®ûôé“¿œö“óÅòOWËÅ Å/–~„y»,ÜHwMünƒcl ŽQ=ò˜kòˆOaŸàDä·OÁtÔvþëþ²x»pœNÎç~y9ñ×óÙn4+QŠ˜Þ˜Qª%2ãòãxV¤=[ô6+ŸjdÅÕ´_ŒèÍžhöH·˜ÙG`Že2 z¯³ùùÅõt~:ݵ=–ñ•o2ai ¯‰½T¾·y·è«xàó@f ^ò@fIÙ bæ,>áÔÄKñÂôÌÈt;òö`åx¼œwàñpævrm8J¢ç',-_"g«i¾:[ fæ´lCȳÐ2)ûb•ƒÇyŽB%zÅy!†¡Dß/Vñû¹ÂN­ìK–‡aê÷ñáAŠ·bl Úœ‹¯´~»X]]Ìú/P¡ÕØCaá.óc¸°‡À@¡ äUoÕà@îXQ¿ dF}é…2ۑĨš_„Û„ééU×~$¹w`å«‘$ÅûHë $ÁäûPóA¢n‰2JáÅ1xN7…§èI¿ß‹ÅjåLÐ#™òY gLˆ#ÀLØÚÏè+Ó^3~?\œÞƒ’ž%·™‡’ÜL0r(7WEE¢C¹Y|Ñ¡ÜTQ£¡}Èš³t£Z z?ÇI¿>Ç)lR›â–H[‚Hö§Ç0¼OíV„|„ŽÉý1½?•.g«Sr6Y}ô‹+CÕxiEŠZ&Øeùb×>¨Èn»¬ÃÖýÍD¿œÌWç#¶4Ðk—]1 ÌI¾Ú…J-*û͸ZÎ潿˜­z«^FD›¼]/F ´ì+ÐÏÆ80pËdåÏ&ýÄŸ/'—Óvµd£òü¹ÍüQP àðE¸ ˆR†2Ãì$CE ´ªy 7Z\¤‹äNh?QÝ>óNèNksÆÆ@.ÑûÈ%ò äÚö7$[b[¯pÙuCÈæd s²…9Ù6LÂcâ•ìí’Ý.™Ô®hwv«j—L¹ì<`ËtDlá ˜µ»X•¹Ø’ b*üŒC|íp>ëûéÙÈÀ².c2Y/T>÷Då ÓC8‡è8äHfvq„ÞE£a¿­“R|ÎüMÝÂÕ%2akŠU5µ÷c¶ ñËjr€YÌ·jr aŒßoMžšN¾‰¢dÈ]å^‡nìÖÑ×;pJ–R¾m4G€Š}DÙ“PU)ª«ÇŒy‘,âX£QÕTûRƒ>»Úg¸ °†_;í$?¡Z¸Íüx·²‹»Ý׈åFÀTr'È.;û]ܱŠ‹:fÿqë3Œ£H·ç;^äo"òŽ.%?£KÉy”{‡ˆô$Ÿ1ãھ槔º¹ìn‡k¡—áf„ú΋¸Ü¤è‘ê@n;M¥èPîP­ïÆl݈ÁË0nûZPRÊ8­ßu]ø~j­?]jé¶VÖ:j»¿©õyaä"º°ˆ*8GÔz¼ÿ”>›^ôèû‹³ûë\ëR¡Ú>Ain0`'•ÊþRüèõ«{çQ¡'¤ômæÇÏ£Üd÷ai ·À˺37F়'“^€ûÿ}EÌ7 endstream endobj 1108 0 obj << /Length 2080 /Filter /FlateDecode >> stream xÚXK“Û6¾Ï¯PÙ‡Hµ# @ð™Ê¦â<œJ*¾Œg½‡x«–¢ ‰1 Îxößžn4@‘J3ëÒ- ñúúëÈû_ü|õýÝÕÍÛ Z$, ½pq·[ΙôÃE$ e²¸Û.~_ÊpõŸ»_oÞ†b )CŸ ,cT²ZíX™êF­D°Ü£þ·»¸öæ­”ƒÖ°®°ö"è“´Î1mÊÑäÉù¢%±çvÕ‡¼]­=/Y¦ÍJÄË}WªJS9(8“‘vuCBV—ÇT盼Èõ#u=äú@’>Xõ½ªT“gvnWe:¯+{6ø±xÑàI¼}r=/X(â@Õ.‡³]¸›ôY9ýkØWÊåfåñewºLÀÎü8^¬ÁHIЄ<àY×4@ñÌ ø2ßWu£¶l²ñØÕµ´\¡îUñrKT€¼KÂyïW^°L‹€”"Yn”~Pª¢1NMZmI‘ kÒn*Ëw¶À÷‘so«ªÌö˜ª±;ÑÌBá¿{$ *H Ai•º`5F0º ¯½øÝàHäa«tš-"Ìp_¾üeG#]eÎŽçTÛkê#6™i»è¦]¡­aZ«QÛ6ý„ j2o€¥9FS—zó‡ÊôË Ì­Woó}®Û—›¸>¢°ƒÀÀo\]5ÔaìíÉ~Øiìðcã4ë¶>@’å¥[ïX¤™jÇK=òì0Y¨Q-@HŽàLÒÛCÝH«$ÎQÛÔ]µEú¯#Ø-…½SKùÒíƒ#KaZ [s,l{K™nÞõð—,å4†ÇµLûR»}~¹ÉÒjH+[¶fEÚ¶×G{F‚ÉX¸^Ù¸E±}ÿŠ&Œ·LXÄû —ïãy1ã¡?Š4Œ±ÿƒ„¦uÄaÈo™=X8Ü-ñ =/d‘°$ù‘Ü÷L‚çBŒ°1‹|;õŽì8¹“ˆ ‰ÉaœÁÈóÉ*õÉdí ±4nôY7i¦[ê!×Æ¡Vƒ‡èH[ê1MCôL›mþ?µµFlæÿhû¥Íi€•Hô,Gœ¨ßFˆ¶ÛPCœ§°RZ2¦ñ«óÌõ80cFò ŠÀ yJ~÷Y}?‡¢d¡'Ÿ¢(£)ŠØCŽ! Ûc]mójO]ä«MžB:Yg5Îv‘^,ÿL2â^ÕZ}½Zt.ý²J`Cí4‚­U—H/$ B1sÓ®“Z!-Úš$í íZä‰ =ŠUáê T@p,²zMS7.©…þY3`'Î5SÓÇÌ£ù LLee*H§LJ Õ8÷›Ü9Èýäú&¸žbÊ¿ èc¶ñ={aþ{KÒ9̉ŰžÁEyâÛ™;Á™xàÞr|EKgik7y¾à˜†[Éb¿”|é3<𩸯*Ñ`׈aà0|b0<}•Þæû2s,°ª˜ Ox£‰µ†ˆ¶vic妮‘aÀœzg«Ô€3!ñ-mÕ¹ÐfâþEþ¡NÔÍ#ɃìlJ,HõiëV1qÚ~—®Úä§a·'íC‰p ÜŸ!ÁUz’ŸqŠI^/êýoù§9”G¦»žY)`¾ßëÍ/?Ì‘ršï_ qdªéÛ{,<öûùå"ó'~Šù Ž¦‡ ¤©Ð‚='QÇú ¨%•AДq`KhЛ¾¿@Õ¾¿âSµ´†GN‰uTâmÔ!ÅÑ}îÊq\tHÁ€îZE9wsùAŸLlOÀ4à„£Ø€ïqÁ]±#?@ê€ÅTÞEK¼û:…·êckÞ”0+¯hè–â#Ø2‘&™…½Ç4û”} KØÖ?Åñ_‘³u×ÐËÖqùÏé’Ã{ îQ Cm¤Òûz§ÀK$䟹ÇUÄàþ“œ12ƈîKÝhÄ|^;Ù”K[6àþâ£ç…~Ìfèì{LpoÊ­m#n Rq(£›?Ú–Ýs²œËYo 0ÒNÈò^Ù(ð‹Ø9®¼¨zš2èùúIÂ¥útG=÷ÍϾÌ<*¢±Í…UÃŒÃ',ˆgŠ· {ž\°°ÍÛ/»«1.ûÌlÔ6ÏÜ»üâé×1uW‚Üi{k»–‰Âðwò¨ƒÒ8ŠÆ<d?ú(:9¬Œà©–¼%læób åù$îÿô9-Å™X3ûõ9†C¿gNÄ"{Ÿ×¯_c „t˜kRjàÜý“ÿ—õ?.¢H1¥¢D·¢·8þG”MëêÅH ·†èé^w_õðT|ˆ½Ë–:K›vf!À"N’KëÉ)lS VÓÖ¨h!ŽoyVµŸ–Œ–xðoÖË•Ç=ýý‹šÃ‘ÚXôèoZ^“€ûý“ïR²©•¶]Y¦ ~®æ°÷9-üŒñŒ ~18§»÷3k˜×ѳG1/Þ‰Ö²ýtwõ7'zoU endstream endobj 1122 0 obj << /Length 1104 /Filter /FlateDecode >> stream xÚµVKsÛ6¾ëWp⃩© ÁG§>8©i§™Nc¥—$˜e¶|¨ e§=ô·w—%QOÇ™ž°$ûø°û-¨3w¨óvòz6¹¼ ™“$ôCg–;ŒRƒЉ#!OœYæ|tÓFåd¡tµìTÛ]I²¬‹éçÙÏ—·"Ú8PF¢L÷Çx„*j]ÞrîÄ ¨ëñ˜£²çGð›#e3ÿ¥øóT«†à´Ç(I„ çú§7'4^ïÕðIXd4ÎÎΦž r{”ºuªÌw%;]|1r“›µ{°›™ìd«º}.ïŒÆÞÊ,FPu©Ô»AÄ[AäE·å©•••´šCmÑÔ6À&S¥—mQÏ×a«9º<„ ‡¸>R-¬•Íò°0ëwfyêFŸ²º0Âû«»‹U¶W³÷n.zÇ¡O¢PŒ½WJÖíUÚ”ïPCcÔWµnžÆ[«d¼}FÛeUIý÷‰bÀê=¡òh¯ëˆJ«)ØËl‹y%O†RçEÝÐúßš`r3›ü5a H¶jõ@„$ò…“V“Ÿ©“Á&Ø"<‰§^µr`ƒ(à —ÎÝä·UKo¯=Ÿ@—oð DÌ x÷œâ“ ²€ËÞ4ã“$f ¬Â7fn¾tzÊ„+S(P_ØîAáé߀¯)‹ÝO”úi¡j«:›&¾+ïK{ ×Ó@¸Me¾Îwb;7¿Þÿ¡Ò®=‚% HÈø×`Ùc&Â=ÌcA˜°Ìø£jS],:äM Ö€˜(Æc1 mqÞ.ë´?êùIâvÍÔãÐq Ñ €¸Ñ¤^?¨Ì(ZÎÁ¼»©/Öx¶Ð¾œù°¡¡ÔMõ¤„ºm'ëLêÌÚԺу6‚»Rê p—¶«*ŽÂD¾ðÑ,—È_<â.õ=Ð0Æ.&…¿ûØQ0—'Mº¨¾¢ hàBPFÚÓÈTÏþ¨ZL™[wJ[Ÿæç}³¬3ë<×X$(5¶L¹µXʶ5ƒqÔ[I½Ú)°W{¦iµˆaš«±Y)öêx~H‚Ä6þ‡VÎÕÞ"Ù-šq³Ž‹f˜NwÜ Õ=4™X¶Ô¿Î8=$ DĆèÏ÷€ô-m ˆÏÅîa˜+³ã†2ðâªq¨=} $CÝù²Âb? ë8#{/ÆýÍn< HPÖ†uì9#çf=Th#| ê‹ëìPJžpB)&&H["(ŸŸUªMR#3[d÷ÖwôGGåý{OÝÀ/àÁkãßqñ÷-ŸŠîakŽäMY6HO†Óà—*Uî÷Ç`ÂvOHÚÇæÀ¦ÏiƒÑiµžg;ü‹…ݳÛñ‹³öͽ±áMóüˆ¶éBÙ wéý%ÁØ"úçøö[±#ÅfFÊ7`³øªp6¦Ôʧ‰ÅNª¾wë­òMª!…1+<;þÎj{' endstream endobj 1134 0 obj << /Length 1677 /Filter /FlateDecode >> stream xÚ½XMsÛ6½ëWpœC¤© ?3q§ikw&3m§¶§=$9@$(Ñ¡H$¥¸‡þöî MR´÷Ћ‹Åb÷íÛ…kc9ÖO‹ïï×^`E$ò™oÝ¥uÂ]ß (%>¬»Äú°äáêÓÝû‹kŸ$yàŸz §•‰K™µ(¹pŒþîyqÍù`©Í½°]k³^r£!#ùz´|bl…¬Û0/WÌ[¥ZÙÌs–ë²)=,Sý¬·R>:ž³—j×Ô¢ÎÊÂ^‹J&ð’êÏqY|t–È"6 ²¢–ê€úEŽ‹+&ÛÆG2ÆÙ4 <ôû5/8Q³ßÿϧy4›1Rcö[Y¬lN©Þ“Sg¹+™ëwÇÌE¥'¸S]ËDK³z«‘2ò åœ8œvǬeU_žÕgZrä‘°GÔùŒ*<+ú\lÅœ.Ï%Aô¯Êü±²íçêþk”ÙœùËRÍ6 tzV‘lËxVmD‚ÀŸ¨­Ñý§Šm8à £$ò<½æ¯ƒÈgC8]Ú+Î* ‘ç«SÝÜñG¿~•ÎbËDÔBR%v²û*jBcƒ’u£ iÀ½~˜hI›"FTc€?ô@æFà ‡xÕv¼[Áª¦Þ–ª‡ö4æ¹0ïÇs æW!¤ZžnV%ÅFóûÊÃe¼­×¢éR·™qaäAÞ÷©üöxX·“µHKeïUy/ãš”jóíŒ_)s‰º†H]8ÃáX ¬7ÛÒq!w{¨mëz_½¹¸8¤ÛyeƒÁƒíŸã" hÔ©ë9b@Þ8 72ÿÐp‰¬S½(†ý§¾vÌ׉ 4[È lÏêhël¾üPI˜Á ñ XâÙmQˆü¡’•^…XÅO7úÑÒTûAó›YÓo÷"þ,6ÒœÞ÷F‰B‰†“Þ#©–€g‘k=@Ö-­vr£\½E®ê,Fi„Òm™ÖG¡V‚0f›È”ùn~Aø­ëÕ«WHwm•‹›\ÔROór£*«>›¦Òc ™^V*%«=ØßR ¾ªÐº~v*½E6dAä™9Á:‡Romý”Ú·“¢j”¼<»¹9;7›f—õ¾¬Ìl ³BnÌ,Î.ãÇo Ì¿a½„²Ž7]¥CK„NýfƤ]öE&¶LS¨æÔ¦ŸÃ¡fÃÖªuUæMï7pRÝ$râ¦}³ÎÁ4ðŃÓ2åàâRÍzJÉjì)>ºé!3‡WtQ*÷”„B ¹“­³<«f•‰ÃØu=å¡zpìðÐÃ…x9kÛ#qxÚ/ZåUÑÚ:> stream xÚ½X[“›6~ß_áÙ<ԞƲ„A&ÛiÚI2“ÇÝmòÐôAa“äA`gûÐßÞ#$0°ØÙK§³3k!ŽÎå;Wg›ž}¼øíöbõÁ'³…¾ãÏn“ÁQן1BOÃÙm<ûsI‘ 2ç‹¿n?­>x¬Gïb‚XÌBj’ l٭ߣ]Zâ¥Ã`š#(¾ƒS§~W(ík ŒH€üÀðyõj±ô0žßPó›‹j+c³NdiQÆ•2V°ÕÄEìX3~2$q. ƒŽ ÃbÈh\÷“%¡.rC…žw„÷+ö°\QõÚ¨Š‚=¢™Çýÿjªªóœ—÷hÚdÏE,ôΛÌ\ˆ(ö4“Ç‘£íø9þ®\<ßÔ¹(*u6xÎ?ŽÙ~|3ÀpZy±X:nÏ™ub~{€D2‚èÎKÀñr" %hÈZ*pâCFÖŸž_¦øùà¯ã‡F&=äx "ÖòPàÛ=YmEiPàà™ õ šreè6Gûîü¼9Ïêé:0=ráûÔ wA8üÐp¾_oþ‘vû$æ š-¡ª4畈Íc.c‘™ Ç›Å؉R°B‡©jâ²!•CY1¯¸ÙHJž ³iÂf'0‘Y&5ßCZl •ÈDƒÒ›sÎÑ©¢ÀµyÓêýxßô-õŽ–ê€=iéùp±üM´[%ž Q$ËR¨,b¨¢*^ļ´:Š²”ås”1üÿÞóìEÚT€Y§W•€Ñ  Ù½TÝr¯Ý¤óãù D)ÊÖ/RÆo›èkYñ°š`o"«ÐA‹"²;iQ‰Òšñ,ÁŠúeVÔ»ÝmAOU©ð/[Í‚b˜RÒåžÞ;èþÅ•yÐ’ª&C5US<&ª?¥ÓÖ2¢W—ÕT姠„×õ›×¬<Ä(rº+¶“m¤éïî™mïÔ·“̼#³%uü­Ž!BÉ+·2šd"ÆüÛJÃ?1P†xÓH[1Æ=ÙA.é§Ê†Ï2ðÕCÞÔò#âYŒâζïØNš·ÜÖ£V‡RTuY´5}}?â’ÔET¥²˜î¿r ñ6ý7hç©…N ˜"e÷­øË"€TÊ’Í’¤M¸Ï ôѶZóºM=-eÁЃQ©ËÞ·‡ýúW˜m9Ì´Ë])õÈ…d¹ùeVâÀTKé P/`^‚ <+Ay»¼~PgÃvêÍju8P+YϦóžøså‡@ˆ‡¤Òº1öŒz( Þ`º‰h†']sÔ3à# S$ƒ‹Cp ÌWƒ ô&Øè¶ôáÍïP kí2ʘ¾Oð%/xv¯„2§t êW×æÇ 8ú…)nöPsùл;ÝÁµÎÚî{ƒ,!wÝñ“®¨‚™g†”⦦¶tƒD½iû1·3ÌLªÌœ”ÍÅDX0†ÀþQù¸bà~êOð›»êÑ£˜jè^ùä«ãøn€¦nQ"ØGV,SD+æIàS¶ú¦Úcê£ÓɛÆʰ‰þ.SòÄõþPЄ¾]^Ÿ¼ ±°»Õ¢ºHÏ8\_6ʲLj‚.A‚ÞíåÛsbèaÇy¢œ°/g'*yÖ ‡Ýò™’6YžÿPÒ K¹P%ãÇKt¨™ˆû³Xv šÜ„bÐ6ežfìh†³ÕÌ)öuwì°M£mï½ÉR:5óC›¥þñr?¸X¨UÅ×™è¨ízkÅBß×¾W%`Bç®ÿm¿zÿç»L¨Ç7 €™ïvQÏ jºí×û9ŠJTgúrÕÀCG}’šxŸòtûÉ ì89_½¿½ø4»^@ endstream endobj 1164 0 obj << /Length 1216 /Filter /FlateDecode >> stream xÚåX[oÛ6~÷¯š‡Ø@Ìð"QÒCº-6 Ö¸Omh™º ºx”œÖÿ~‡9’-8)ÚŠ ÐE~ßwhb/ó°÷ëì§Õìö>½Åœro•zcÄ|î…„ ÎboµñÞÏ}¼ø¸úýöž“AOÆ9ÂQ~LŸ¤©?`Lë©Jèî3ì&¹½gÌ‹`÷õ¸%ó#3pÉ ‘R;üêêj± 0žËÏIg_ªf#Kk&LÓ")dí¾ub]J=L²$ÅAÜG"Ó8Àí®ª„ÚkSÉDÿ›ÐîV³fb–̃¸|/©fï?boÁ7bqä}2]+ÏTBŸ]z³¿K<~\aÕ\!BîŽH¿hÀ,-&ãÁh,EqDz¤¶HodÈÅ’xþ[ÝIõ(ÊÖ¾¦²Æõ‚sp~m_ÿ\ÿ-“®=ƒfÀû¬‚ø„‚‚ÐGs+ýE¶‰*¶]ÑÔ£•>­x¬Â(ìèû]è¡°>Dó®±Ï¤©¶»Nö/CTtKaPÑdt“AƸÈ]'§0ëA¦º·vctÖÞÀ‡(˜[ª×zæ¦tõæ ER là Ìã¸Ø %* 9’ŠÚ>¡M,E-Ê}W$®IÇÔ"›s#l—Ê‘ßãú®™œDôá±Ç÷Ù÷À\âÉ.o6Ö6 ™,EÛÚ¨B2Ò§‚ð ÏkÛe4?0(íêbÂÉðøœ£% |äS2ÆÙ%’NõƈüÆF  WÎ,å£,Ÿåæõý›?î\‹›êõêí»¾¥Ûoåá”Å( Ž&ÜYaÈ7]at›ö/Beý‡G©ÖM+G3A¨júHBý¦û¡›ˆB’ ñRåŽ(Eçiñcäû_ÅÊË0"†V—k+a+šP±åñ¼Š.Ì.„×…àÊʪú?Âu±\|¼X.žîm‘U‚Ûõ¦Êge¢zê±Í‹p÷„_5ÔÊÒ*N]†1 ñ3JcDƒ^éü‘7à "ëÄHMÙþ‡’I”Û|ŠþÝH8>H¡£D&'oÔ‚@ï*}°={¨<˜´˜U4£ó}ÈÚã.à(LbܳvjŸ Œ¦äP;Š¯\î½r+NåÛ*Äõ¼™”J€ÙÈU•OyÿN½Ì“>!LF¾û¨¿UTÃmjÊg#]¬}Barô ™z:!”º$&£ËöùØT?ÀøJ—fšú~KÐvÑÚgÝ8}èÜÛËÎÈÛö¨¶¥ÔÊ•nˆÙEždÕ¾LW”†pÒFÁësËó$¢ÓKA¾ùØGÔ§ú(ƒÂ>áô~ñò4ér¥1Ô¢ ¹Dµ-ý(7¥µì%ºV]±.Ê¢ÛÛ¦OE—[ËÔÁÚÈd-•)@õXWo»ØàEžÊ¼Þ|{²>ˆ“hp¤7ÈskÓ¥^ø$1øm`óõ‚âùîiIFw  äGÑXwšþd§Pî­LQÕ’›óT8TGL˜-úåT”MV$¢t6:z8!meR¤=Ĺtµ?ÃGwºEßM,È|p=¡[-g`hq×ÖÉñõ„íÒæÍ®œ¼}X»ë!%»ªaéŸw«Ù¿çm† endstream endobj 1182 0 obj << /Length 2154 /Filter /FlateDecode >> stream xÚ­YY“ã´~ï_‘â…¤Šh´Ø’})X¦(ŠË@ߺU¸%18vÊvzèÏ‘ŽdËK‡îЕ)ÇZŽ>}:‹Dû]¼»ùêîæÍ­d‹”¤’ËÅÝnÁ(%"’ Å‘"]Üm–›ªü•R^¶¤>f«ßî¾s« SDQ Œh[GÌ4¹¡n_¾¹"賉0Ö\L`×:+·ÕqÐ}4•’$M¸Ÿª¨öù&+Vk‘Še[™2Z6'½Éw(üxÐíA×ø'Ãn9[]n4~ÈËV×+/q°h¹«\èí:«sÙâ×j‡²_iLkÝäÛsV@Ý.t[xi£Ž €®«½.uÞ‚R<¦ËæP‹-Öï5–µnÏu©·d´ú!hnùk“DáøíãI?±êÔæUiW)ÓåæÕÙ¦µøÀߦ­óru‹¦‘uhÊÄÒ# Zm±ŽP™ÑªãéÜö#øƼg¢Ï7¤©Ø1LÅ£oê}SNзÒ1Þ®!ü3<°ä`Ê… qšz€>yÿÓ'3gPå±oôÙÌ81‰¤êFy÷öÇ÷sãð”$‰zþ8?ýðLmà@±ˆp5„¶š[1£pðú{÷ÏSx/3“QEd*Ôlòý1ãÏ'§!ŠÅ˽%$w$4 !÷|éÇC¾9 êl`Ø$‹zÝ…ÀVjÓ)‘˜F’Ðx!ˆd)>ƒ"*†Ã´:Áy9êÖë—¡"#ƒFEôgÞ|5gÞȪû5n”p&‡{×fùUö ;_ ¹ˆä¡ÞŠø"ä2`‹ˆ¦ˆ±ñ Èá,>9¨’a1‚TCõC!Èá$¦‚¿ äõ¡ºqêHÎB’SOrv‰ä€'çäsp&„‹î „HRoŸÙ„¾tB_З:ú²¾ö+~úî³ã¿°‚;óÀ˜_$p fñƒãÏ`°ºÀ`Ž ó ƒyÀ`î,†FƒFuyêÒ…x§C~-æ&.¨°ÌWlÙÇ .4H.ÀžÁCS-g M‰œã0Œ›a1ÂRª1–F7%Ô-–P †(ôøWX:ouÑfׂ©‚ eO`å‘é%$UXÎÚƒbí,aä ‹–0÷K£šÇêK(XŠ8yk§ÃÕXJçÍdèͤ7 ½„%ã2ÀRÌEHpüD¨=î}K›Ç ²É~¼S‘mt3 OÜp HáÁf.3ìŽFêl6”5$‚[Ãþµ‚¿Û¡t¼Q‘ð3ÀÇÁFÙ(Sâ•Al”ýçû…¤‡¿¸Q¾ÅŒºWn[[ge³»fÛ8”¬^±d¹‡ÃjócgôÌ—nß8$#ÛËé=l‰Tõщ-A~¬¶º@Ù¦ƒð&‡¹7=œúÎéÁ‹Ü›}3”KÈÉžÌ忉‚@¬‹P³/ô_§¹{'H¦YçÎ>‡±SXµÖ8aV4Õ%+ñÁ¶š¿Ëwa¯%š5eOà T¸ß ìS”£tü˜9ìcqn®JòêýUÝÌ2Æ)Qj gÊÝH=Ž¬QÀ™Ø¥)ˆ‚·‘Û'.Vbˆ6F;ùÔ•Hw{x q‰h€Åƒ®ï«F_sk¨\º ÂtA…·†ð¥:·§sëZu È¡±¹jª³V;±ÁÉ|pßOuµqƒk-]‹¹£ÓšáòÞñ­ÖÌÜ?ûªÎÛñÁÿ†7X3K0euo';Ønã„.;ÝXæ<ºbh-m‡fnwi³‡éí—?üòvns#’R5¹F2·U–,†÷/ÚQî÷oÐ%úòLÜÖÕ âœ"oŒáLÝÅbštCXaçüQƒwF2³aFÜoX’(v–>€%2œÜ%¦KMŒ¢Š¡![dY­C;b£—Æ«VúbëBymÁ“21,ıA†“¥NÆ%‰Rwéï¶ú‰GƒaÈm²Š„È{~=Œ >æ¶a´Ÿø çÕLuΫ‰’ó¬Ä÷®ž-{ÆôËF·ö¾{z<M‰êïqwù_zûÅÝÏÿ›;#±¹+èîc1Œ†Á3ŒZ&m "]¯4ùñTŒ-õ¹9{#ÿÿURl×ö}=Î#2ßÅd¸®©õþ­Âôøè¬?XFW;Õ0ž½ì¨`l[ï0"ê=µd0‘8ÅlXñÉÕÂ(¶dçX6JxÝ{òïAIð¤Ü{P2û¤¦ïAØ0'Ú‡ŸÃÜ`)…«ìˆDrxØ+…äL0«±kèÉi¤(}Ú¾0‘Xu{Ž§Op ŠP1Ä48ú‚2L‰ D+I~ÈEÄûwþó(WFøüŸ8Ç⛹9[ȳÑìï×6²Nн8šêYgñöîæowcâ1 endstream endobj 1195 0 obj << /Length 3749 /Filter /FlateDecode >> stream xÚµZ[ܶ~÷¯XE¢<4/")¡ðC8‰Ó8mÒmû´ˆfF»£D#M$“í¯ï9<¤î³ÞM\,°âðÎsýÎ!ùÕÝ¿úâÙ§7Ï^~®íUÊR#ÍÕÍí•àœ©Ø\Y!˜QéÕÍþêû(–×ÿ¾ùêåçFŒz*cO4ÌãúìêêÎeÕ±æ˜a÷gÜ/2[a£¤aÂØ«´P©hø»"»ÞˆTEÝ!Ç‚Œîò*o²²øo¾§–o7m—uEÛ;êqÌ»Cíàš™5ݹº£Æ¬ò-©²ÓéÅõFò8’œë?CQˆèŸ×†GE¾;tÛìœ7×1†NÖu’ÑWÙî綮^àyà, Jª5íXr¡ ›‚¹|7“ò(ïð+¢¬d0¡â{Æ°?Á®7±Ñ ž{”Y×ÁÊ®\´4:;wõN¹ËÊòžšÎ-R=äÕu4Žõ>/©î×kã[ú¼€ÙÃÀ¢; •±bv"¢ç«ç_¼þæÛçÔ}Â9“0`z`xݬ̈Óñ$tOøvuÆ”YÕwGrÁfÝÙ”‘ÑmÝ‘>Ê(G¬#b`©¨è „¢.5 l¨n—µy ä6±‰^¡^‰Ann„æŒ 9%Á©©¯…iÜçHH l¬è›cýoÙ¹+e÷}^írêPTÀÌw×RÃŽ¨æ6HŒõFÉŒTáÐ?pS/{eXŠä€NšÅ‰ºR̈ mkÔcÆÆ OC¯Âo¶鯛p‚=íùXü†‡È÷›ü÷y›ï:J'FH1ŹP¨m9gMîÉecf“)µšºFr$&ªoéKr …5 f[Ÿ«}ë[ý7+ÛK6jòîÜTN^¡)ç yÖy3šòA=ê •I$ÑgS>ÌVn‡é–ŒÒoè0oÖ¸ Àä!}Íe.X&cA\ð½à+|·Lè^Ö¿\®–2žþžÕ<¸M1¡4’b$¨MÉ<wwEÕR—èss¨'gá€PMŸô–J¥:ú{T]„ ä³7ý('?(åìÿ‘rǺª»º¿âD]‰˜I“Ne½jÑ"9éCkAì—Ûµ`&í£õû'L‚ïÙèt߃&eût5Ͻׅ?–\5è|©øúà‰™6t¹§è©yÈeˬºN¤…[4˜j¯©9ÄÝÍÔ;]°‡R³41ï&ñtb]¦„ÉüQaZY-J¥Sf`¿é †.ü0i£¿V95윧ÂзͻU«™á2¡»?寞ÿíë5ÿŸEßÑÏZoAnÂZôƒì+ýVÊâgÄyYêzï·73´éÂÄ_bðFÅÔÜÓþ¿gYlÄÄï¡^87‡îkW7MÞžêj_ ĪÏÞ´Å.ˆ LˆäQ"ø¤}]´gÊ>Ξ=°Z «¥s* b*¡)»ÝÁÂú\zêls¢Ä±nò@¯ªTƒ  ]‰Ô €ºhÆ;¬û1ñK ÅD2×@ÍC¥¸‰Þ¼yCZÐD=`Àé>¢º`PÀÏüÀ–¾¤C©«é‹2Ö5gÇ^ú9v0ýÜ]ðK¨ Í«Jäp¯#2à+ÖKA¢T<¥Ýï5°¦è,ÒÑŠ †ü.—ñ5eC¸17—¤]± â ‘Ò§`€M¹ã?´`$‹õ>’µÉòÔw‡ìä¢Wì)LÐN0_ÖÈÆ_süÿÎ!ºVÖi¼_¸;d](9É¥ÆÄgfÂrC(˜Ú‰–Œ£û"w¶ ªfb%—býý²XÕäa*?W•5 íž(àv]œžA—ìqŒŸ£¬;ä°J ‹¢»÷ ·k9ƒ2k®!h¹ËÙn]mETO"+=“¤ÔÓ^ßIÆÆO£/ÿÉÛ*0pn;P¹+³¶]1D©ÇïÏʲã»U3¤XÜX‚ N¡½…¥Õ"œ<¦C O+?„8•rñýoÏÕnäIflÖé‚ÍPÕã1©4³sý%Ó4ÚÞÓwæs(ç²£ ŠCÓ”’ X Eš"#„MÜQ:—G-;0•à.*dÃo$Ã×'oRr.ˆµ>)áŒÔ¦¼¿6:ZM>‘²5b\´M_æˆ?aÖö[[ܳ5[!S–$£„ÌÊDLºì¼6‹€¢Ôï›%íÅáP¯M"Çžä.;>îH.ZZO^¦1ýŠ§C±¶+ cï|¼6ŸÄcGýš¾í)ß·÷Càã Á…ÛA6^J%g°Ð“ Œ½œJÐSÖdÇœ‡è9¨vÏí"}ÚÁ@lÝú^¨×Ø9ßcÐo%$.ñˆm.4±dX°D«õUáè›5éôôVù¨¦¥UÈfB ša¬Éè'ÀÅœQìø Õ´€ßK? OƒJqGç–”BšÌçâ¨éIï*~‚ê|܆±t刦ZGlíH>'fz[„¿ì"_h&¡ü\„RÒ,r‡v‘³’!&MOtœ;l“2u2zÓùñ~PFŸ»ÚûÐÙ!`—ØCY¢|=ì>ŽÕ*‰:†ƒ/Ï)ì?>ü\œ»”µc>g¸Ä¾[ò)þBš"²A›ú¶(ó=†…\Î=aÓñ‰mÙë\¸ëŽ ™Ú³K i|UŸÆ„òÈ‹hîÓIPhEÛòƒ8y'0_™™‹“>åÅÞý»·ô½äþ…VLN¼ÿ¹*Lî&\Ä2K €«ÀÒÓ€€Úó5,þcc@-rÂØMH´À|æØ=L*^¨Ù&H˜&Óñé Ú!øN¼”â<žÆ$§oµ]€u2jvq+NÝæ÷Ú1œ«¢¯Ãó}p3‚ÅbF³Þ¬xmÑáÎ øh1B-z!„âÔ* õ”qȯ@œÀ|´¾Ò)ªCšJ““ÃnuµY Þ'lŽ71 Vt> ÚÖù—Zö!"JÃLj'åÖ/Ûæ]‡Ft©•1géP½ºùî¯×“y\§£ë·þ@þŒþøθ@'§–1ë >°ZÖù´"–v*x€ƒ_¥¤š—ì04׊•ÎÜcå:  s—}J6Òek˜ ó«k( $LC…« ÞM½1ng䯰CY€{›¸,ŸÍR,Q³lÖ#RÚIÔ'ã½—ÆâDL;/¯ðƒ2ú8/M;¿ì¦©é;ñË~~*LòŠ“»h»’ËÅzí/†ÈE¡Ãã,¹x£¢Ÿæ¢Í0`æ¢=vv×1ÁE»ZïÝö2&¸¥ƒ7¶ ŽDî/.J$³4‡öÐe½s}Óî2Gø8}›¦(¤qÕS[Å„L&¾ºlW#utŽúa>ÝCËq¤(á=\UC¶`ª»C‹ ŽAC<·HA†›Ç ÿ U䟡0:WdW¡vêŸy0‡8Ð9.(–@q¢™4óAO%‚M…‘ä©°@žjEï(Å{¿…åŒ>󼟹(¬!K‚ã+߇²K! <É5¾Dp¿F¶Ûývf{Í4.Õù½™†2ªüÚÖ¶fŠ÷B–•§Ã›Í•½d´gd´ÅÄh‹…ѦšÞhCËÜ‚a—EÅBvÜ:Ž¤B{ãìÄ0V ­r &b¡cKÛƒ)üfôñÈ`KïËtf°e¸–.®£ääº .ˆ]ÈDc±7ÑaÚG«òÒ3<ÂD€f¡1 ªé;²Ðï|Èxéj£S&ñ¥‰äÌšIø¸Ó%ˆ[úácÿhtOÐüü3ü¯Å¾háí…r@ëÑgÆwx¡42þ ,7ù/ç"tî–ÏëöÕ[¤ỌʘÉ‚evOpb(f3zöé=madEÝ8^áaS 'ÚÓl·;7ÙîG¢l®^y¥ Gñpó\¾7ÁGB†s¢ÖáoÓ\¨ŠVÒ«^Y &œ {›í eÚ×gªüÔþ‡3r⋧ˆ<½ž…C”ÐMF¯ŽÙoÅñ|¤ÚÞŒ&ÞD#²#Á w!ÉdI˜M‡çq0-朖SYL:%ÛQ}!m©z: Îù{S²˜¦¨U´ÂÌ^+ι?AŸWÞúÙþ§së⯠ ÁçK&¥Y 鮩ËWeÑvH‡Wïp­Áš8:P;ìZÞÕ°ÉCÁØŒn”eÈÒŽ…¹¥š÷ÄòÖ÷Êö(Uî*JÕǺí¨t:78½G/´üÔkÔôÆP\xs»ÙIÙ;Äwy³…—‚;akÍø€ àå¹;¹ó)M¾Hiÿ,–]*úÒñ¡Fþüïítܼb°:+ïꃣîp ‡º9„5‹rÎ8WSîæpø窉»ˆ¸=û!þÁj2 á$õOS)¥˜¤ýË׶ô7o~¥ =gtï^]Úœ^É´ù0MÈL&áRå‘U¼SZ±Ê>%ÁÃ+tegç^KàÂmÌ¿» .îÖrÙì°€f:ˆÍ¿èJQᣠJ?шÑÅ“|@2~y8¾LÓnbjéìD_…£cÉ™`Wu¹:5i æ•œ‘„©.èòC /mÁpªÌU„ ð» ÑX`mí<<ËšÝÞÇãðÖ!~ÏóêC,ÆË5+=ôäèÉ]V¦õ¥ú˜‡7F¨~fLVw“W«Év"Œ{'16U9=?f÷Tqò:©"\O÷ë jŒ—ýÓ¼Âr9-¬!QtƒkªÙ#zñXt4§K¤a»#ÕÐtȯ/³-r2c¹ ß×7Ïþrƒ| endstream endobj 1100 0 obj << /Type /ObjStm /N 100 /First 975 /Length 1995 /Filter /FlateDecode >> stream xÚíZßo7~÷_ÁÇöá¸äÌF´Eî Ü…“Úyp9ñ­5$ùÒþ÷÷ åu,[rVñºí÷`iÖ;$‡óë›!C.¸*9ÉöÍ$¾ÅEV#’‹*FdGÜX‹£b¼JŽ ÿ‰¡8{¥ÁåÈ ¢+RíUtŠ‘ lV*F1>²}[„’QøÜæ¨lÌ A‰ˆTµ/ ×Px,jc#fQŽF™¬¥­%+ÙŠŽBÊ.ARŠIì_ ªV—’#›‚Tµ) 1,@¶_mS`ÃB¶›CŠ`Ì‘j[¡6¡Ò&&¤áÀX«s4eENPÙœAe[‚‹cŽm€‚J¶F±@ɾ“ñC³,Õv%˜-‰ñ TŸ´ñƒÊl‚€™‹˜ "ŽkÈX»“ÛØì„šê¡Ra¶±¢°[Ól%9¶YØa‡f èJJÛ"%*& )ª6"a–Ê°uL˜¥›2§Ðì S¦PÚP1–µÉq£¢KÜlB.‰ù[ÌØqÂKcJMëï3™©³QMëØI*M‰YAµe,ªM‰KiS"VNÕ|*¬P› f®ME\M˜4mky®y\7SóØ-só è(' ¸œË¹4>vYÍ3-<²&3²ùm΋ø)¡I Í@dÂðÖÂmfͦdè²äõºêJ)6v-µ©,r›qDmGP—r33âJ¥)N§‰äàðð ûÎ#þQ}äºúa<Ãü‰³Wˆ4¿¾¸xsðõ×ÿ3Ü”}†Œã >%ÉMý=Þ—ý|å]÷ÒÜ*oƒ^š¿§8<`8öú®›a·õò‚¤á¡˜ÑÖ«bòî‡Eúj¶rÇ®ûá»—®{=ûuån×}ýÛÕ /NÞͺo!Ãl¾ZZ&SÐÍ–ýõât¶\g·ö¿ÌÞžŸ|ÓÿêŽM–Œä¿yƒ…Nmù¶®_Ìç=f;^§h“§¥èFXŠ¾!h x d Öj¸'l›ö {uý˪=ÿý|þïƒî›~ñv¶h"…7Ýߺï»oc{°]œbÿ"Õ#±d3ô# w€ð¹F/Å6ð¢à•ëþÚ¿îÌ÷ÅÑÙÜŸöó³óùêKSæ$r J=°Ë|† êÑ#{í”ãò|yêÞž,ßûþjuÞÏ—Š‹G6—Záówªž bð$q§HËÙt"Š§Ñ3°cö†w¢äñn·ZNV‹Ù»rl[ÐÅÛ…‘Õ°I £ˆ7,0%ºpJ>òæv/m+Ý‹ÃöB÷âԌнêþyô½ý}ñ~µºZ~Õu>|ð—³ÕÉY¿øËÕ¢ÿVñýâÝ— †ñrE= ò€®ÏUÔÞb0©7ä`è­~RŠ«²òPË–VÓÝfKÌgɲì`{Z7˜oÓv*Þ ¯qÜBìN7Ž›‹zCæ‘ÜL¾"Žã¦’|Š4–;ª·y„l ÆžlÅž ¦(7‰÷¸L'Dñ„Â8<‰´£»J¡¸‡ŸÜe¾µ|Ê°Îóps-Þt$7â(Ä:’›Jðªi,w¨(ydÿRcÃO6¼aÃi¦p –‡®Á´ŸkÜ)5âºúX7F7D|¤Œ©o¥÷IÕ—?/>H_¬‘Å·µ诧wƒùÕlqy½š-W~qyâ¯ççBEí­H\N¨?%ÒAš«3ïý¼¥‡'ùZx$7ðÌKÔ‘Üæ5ﱆ cÕ±ÜL±,ýÜhAœô<ܹÀ:eJ¼º“”>;õ¤-¨”Âç§I‘¢ „D$+±0jö;U« ©¨ꪵØä$(ÕêEÊuŸðD9P VÖ‚( 2ÖQ‚\¾Ÿ² dŸä£Bˆ“gÕQr\ÍVý„Ãu¢|” rEHŽ‘äÝÅåå„8N|+³øpÓÙ|Ò4ÿy€iŸ1m©žrÇPÍHyŸZ(o«…˜=)? 7âÁÛaøÿ¹'n8SÑ2–›ª/ÛÄ·r[/™å‰%Üó¶’º¥žÓ'Ôse¨ÞÊP½2 'Á`d˜íæ$XP*…ÿ“`.ÀÞ@ÀõÉ®Zá\ìV°úÄ»eZ-Næ˳ åë’ÝÔz±[L/p²ˆr—¹îÝ2ê>Å€n¾äõ>¼ï}”²qÊV@燱ðÙî_ÓC÷¯ü÷NRthgtB‡vFæ:»ÔᆧҔAC­Óqhr~2eÐKe²†ô‘ãÐóŽ6P«&»‹övÍ!Œb:õª¼GÍúĪ" .¯uP»a·«iç ±–GÔÒŸ_̦—ñk¿Å°[;š´YÉ~îêÇôÈ•ÒÅeÿvv1a{“s;Yg²“û…š´÷X"¹«xÌ3fi^ C"˜*[–_,ÕÅÏ.¿cKŒ²µÄÁ+pÏGû¥IDêÍ£4t1åe¤](ô¡.d?¶( TŒ­õÈew„C'‹¾Ÿò¢˜Sr½Å BŠ±~ðS´E+UÆaÐÞUÕTyHþ àç5 endstream endobj 1207 0 obj << /Length 3220 /Filter /FlateDecode >> stream xÚ­Z_“Û¶÷§Ðø%ÔŒÅ#$Û¦3Nj§îØi’^›é$™)O‚NL(RÃ?w¾|úîb )ñ.vâÑ— °Xì.~»X(ZÝ®¢ÕWϾ¸~võZ‹UæZêÕõ~%¢(T±^¥B„Zå«ëÝê‡`ÛÔ?F‘¬û°=럮ÿqõ:I'ƒâH„imïXa—gϱڨLáçLa„¢NÅz£TlMÛe/YP•Ç²§ö£$êeGè™e½+·EovÜ\Ss0ÔÐ ýi`ÅvÛ´»²¾­¨áx‹à@â+5_&Y{ñÿ²°À,TIâ:4íTW*\—¿þ®¼­;X¤×›$ÕÁ›žV°-xMEÕ5Ôt(N'S#CÐ`¦Ã ìµéràfyõ‡ÂŽNœ"’àØìLE$p¬û]7üÙ³\}îÓÅ4ü:Ž‚»µHÓ®EÜ2 Ó̶,*Òn<…Áà˜÷}kŽŽk³?“²¬{ÓÞ­%ŒfaûÆ®3š/Å–yt¦h·³ÅI\[ÿÀ÷eUÕšn¨z¢Ñ=d®ƒcÙuàÔˆŽµd>­C•§Î<_¿\0`n½—{ íˆãM3Ô;¤¨w4'øˆrjêŸù~-¢ hkhèì „µº•°x > šš¹²¸HA0=×Gm¶¦ëŠ@iöYì~ºžÛPÇH+§ÔÝ},êL‡o¨’Îpÿÿ}Ýôæ3òLgŠ$Ì@5vê×emê$x¤pÇJ¡ìÅ'9.R§ô~Sz#/%Ê6ÅAÕ íïÁ±h¤ˆžÛyv¦Þ2Ÿ¹Ó`‹7°Ü7Ž=¨c[~ü¶9žšÍ’›Õ¦F #4i jof½ Û ‹L¯¿š¶ Ñ\Ið¯’&˜ ö‚EÞ²,²ºrÇCq‡pg"NE[Moµ¯Ý©ØÔ»HÆ>3-,ëLa3/ƒ±]Ùõì½vúÜMD=TÕ•9žú·{öÜ—0­‹¾D¾Þ+TH\7ÃPíÜ~„1§Öôn·} ÷ôB}Ì‚ÀiÚD±Êíæͦà‡"‰Ýæý!@L#_¦qîzüù’EÆ҉觀Q(U> ´-yÓqð"<Àv(oÕÃUƒÚc„u[òЛ[S›fè>£–]Ñ!Ï©'sn„ŒCb#5Ä0MSÿgKPÎ`fØ=Ï¥†È,²Pg4ö¥ @à 7?›-ƒ:!7X¦*ºn=Ó4Ô‘v Ü—”,<_P“ŽÃ4ñPk ‚¹¹œ—â~JÉB ùAÇÈàØf€2-­ ËË ½Å܆{VŠ,b½öÖna9K]5w»}ùÞõž-²•{Ç@[ /a–zµÐ©9.±ÊÃ,ËÎBÌÌ¿=®ï›Š±È;”[àŸfV?_[ ;AKXÌ¥Øæ¦ëË#äUgg²AÊ3édó#`Çf ™ŽÌåHn³G9qKoKÏ"D>Cæ+.+ØMíFJ×ÜmØR{‹ÜÚn ÀàfÅhç3I‚ði…ÐÂl˜K8;Ý–auóáÚ˜2BDZÍLívÐ,.Œpö»$>BRZÿ¸”qГ8?øÞ†‘ÏLì­sâëœ#¶L9vÔd£7GHâÊSeÜXv†c_$INš„ÀÂòc&=,l§=³y½Tœ…"ó¹ûsþ†ey¨µ'/H!±JÃ,NæNyðär±b{˜mUV-ˆbA¶5QŒ¬i(ǃŒSÎ4íL·mËÆ/n&чÍ*ŸóHÌó> ϘîQ‚ÝÑKaW&­á ì‰Â¶×LœZ´òŽ:1ŠA3Ú\~a¶jÑs‰üîÂíE&Ã8÷º¶,ŸrxÀc1£ýP[¼u ̬3P z”È 9_Ÿ{Òc0¯Ñ…­.#ð…¹Í)ûÁ}„Ç9$†ÎŒ[샗®œÁ½c]h³;ùS˜»Á¨¥ì|?Kóyú€G€ß‘9ÐÞWRÛ ;P¦£$…ohýò =÷î-æ…à¤Ó1ø©˜z¥+À™CÕ~•€jZ¬i¹° ‘Tšt²°‚3ÓŽèH*›Ô °ÀB…É à*áP—K».Žÿ䈻C.L3FJ+Á~aé:‡lC~¢•‹ÙÒédŒ3ùP(±¬ ïH±@3Ã-Ø­¥Åríð6µ&Äw²Á¶SK§˜} /ž\ó µJø€ÂIˆ”ÇPl{ç>X¥jê±j×»ÌÝiÌfôqðo*ºLºdœ%Ë58UÔòEñ`¸ÊGY{|ƒ>P •Ù¼mîÈÜ]§Å¤@³X¨aôS;)S Fû8ÎE8ФÐñÜ»¨¤æsqŸI¹œ4¦šfšð… 쨕D ñ×/‚¼ôó篾Xž >SOW&£0ŽÝ7ïÙÁÑl µãă•”º¡E£á¢¸¬3+9gÊ-v„H~;mdb2m¶’¤‚ŸáÍÖ^"eHsÙ$b(#«ìœ“X_*nYs¡É$H¹GÄ9I¼Y2ƒïǽI`&¿dËEw‚”™¸Sš9wJ¹Ø  }áN ºQ&mT#û@Ïwo¯¾{õîíL5zή܌ªÑgéì$x+‰×4¿ s™ª<46~Ê”s»Ì®türÏY!žÝ t“‰PÇÞ"ýÃÉÀF{ûh²%æ…ÌKÎêFP» ç2„,™-'gÄÈ÷!5ÆŒrÿdÅÀmYøÜ=ŧ.=˨ód–QÃ+fÔyLZ‡×G2j$Qš~’4%Ž–Rj˜zL©s¾á¹M©U(G¯þ¨œ:V|HÃyì¥NtëŠSŠz.C2v>»eÊý-„§8Œ”¼¼lŠ£Ì_6Ñ›]/–-¨{|ºTi<_Ô1ŸŠÇ`÷ÇkÏ"Z¬>Kh’ûÀFtyt§ +àZ_„íßÑçlÇÒ^ÝÍƌߖ7 îf¼ê<Ë~·÷&X`üûC šž6J'„N­A[Fh®1C^9’\ÃÝî*l3÷¬ŠñÖS£ã5ÃíºÓÐxÙjËÒïZ;Ó±t7k ·§¾”–ßÙfŸ¦ØöúÎâ–ΩXr¹ƒ Á•Ú{‚ZÛTŸcÅÊÞ˜ƒ ÅûÏï°øoÁqá–Bå ÐiýŽÝÁ?mí\»hío ‘â‹E¤i[1©yâ+mI ì=#±zd xˆ?såµ”õG®E‰<øïZ`ÉxÀTz³ÊDÁ’Xœª‚©¢u…På íÊÅÚÄ]!âeŠeWî©ùø«à—Úß "̇)”²l³Uò¨ˆKgX‘}ÝÎïZÙ!^£W»Š¨ÇÙ©h¦˜$3˜=Þ-¡,H˜5Žóâª+ÑÛä˜ßù–ñL]¤Øöå›óÊ®çþhýŸ”éR墾¨ßQæJå‰ÜñÌ)Yå¤z¢½üì[ÎjÊ&ÇÆWëØH°c ¾ï˜M<1öSCÏîáÃÉ4eeC[Äöz•›´DôJ5Á$€iÜG·ñ`Ÿô÷0ƃl„§ˆh€Ÿb %ðŸq™ìä˜øï^§áRbî ¢">AÁ-`Š˜ÙDS¿Ãž ”Ž(î fЯ¤ œ°oCÏÂ1©ù¯ø¶3t@„´aÀü¡¢wŸ\ɾ:!üÔ˜š.—´<ÿ¿´t};lû¡å×í¡aÐç @«¸Ž-@¸ é¿@𴨄l 7àŸš"í Ö„åv2[~Âÿ5d:ÓôÖ ûÔ»+Ê#Ïç/÷w’xòw’ø1œÇ“y–<«î¶#ºsE›~+xåpÊk¥¸`©‚—ª,íªÉÄ‹PDR@·XÕ~uýìÿ< !Ó endstream endobj 1225 0 obj << /Length 3033 /Filter /FlateDecode >> stream xÚ¥Y[sܶ~÷¯Ðd&îŒ  ’nÓiâ&±{’ÈjóP÷Ë¥´´¹ä†ÉʯïwpárW¥iŸâr.ßùFg×gÑÙOϾ¿|vþc’žå,WB]^ñ(b2Vg)çLÉüìrsöï ŽWÿ¹|sþ£â M©‹²ãh²k?D‘hGÖï RÙINfeœéC‘B(Íçã¶Z¡' šn%’à¶êÏW<˜öûª7òªÝPCû®nÇÁo·Uk¤ó÷»nS5F¶é*«×v£a•«8 nV< 02Ï‚kû]1Î VT‘Ö籯vf|ˆ’hžétEØ3öÂpy’˜]=tEÆiÔ–ZÖG£šlLgÙtm“ºÇnþÀªa¬wÅètoÈ:E3ÙÞîêD½ìvû®­ÚKålÆ‘.·n0i7yk§ÝÚLËí8˜¾¯i¯$ºêì’†j }›ëöú¼Ø|œjÁIbÝ€†1³»Ð®[§U[É®h[íaêµ²M5Vý®n+;ÂM]˜ð“rF"Q,E`Âoì»æÛ¦hëQµ×[ùö†lE¶0CǺŒYœÏü\o2”9g"Ç{½­Ç-¬‘DÖÒhlª«‚bjF#XWÚ Ôä‘U¦5°ÙxSIlü‘€,,¼¸þX•ÚH¸”žeS ƒgã™`R*·è¯mljk6Tý¯<ÍËé>Á¬÷GÅfã,;µ|cÉcñƒÍB)3ëv,újj˱îZóV4CgZˆ!»½¡ÛUNÖõº±o›ÊY(„b‰ÈŽí?›šFÉ• Nj˜™Ñ0—/ðmm˃VŠDlÙ²]y®í8CUôå¶Ú<4ÏË×V¿›Ú†n9•¶?Ë8b*ž]ð!’RÓ3ÅòTf¤”ÀòL2Åí®…ÇþY•#JZÏ=ó)–Eü0WÞ‘²(^82–2(`Åû£‰„q¹X<—žáB™¥ˆLyì¸}Ñ;Jh²Ñ@‰è€‰çÁ/­¦4( Ž*(®WpMݱÓcÎ:šz£õwN8«ÐMYtKƒ¾šñÍ8­LǦʾ^ÅhëH;ð˜áO- ÁƒK³žÂÒMÉ€l•žŒ QñùHôð*cy.ÜDÌ&O–3ž+‹5¶¶^ºèÿ-Ü÷UéÆsa’&E Mý§ üßÂa,F¬º.œ¸í\ÀëºFÒuG¸¨óOË¢M’Cã:šTuÜ iÓnO1ÁIÚœ¹Ç »]³¨Ø:]ýÙÔÏŒ\¾2è©»m› ^³Š‘UUTkš;Ó¹ÁÞàò g2ÕÂn=<¸Ú¼œsìuÍEë0§y`5;£.™ôœü%ÕYS ™ZÓ£ñ©5Œ§5¯C±Û7¦žâÍ@U_mY 6s’T¯­ö¾‡Åë’G&ùL^ä©¥IÐÛži˜Œè¥k]«Ø#8>×Þu1zBBO‡æÔ·v©À8…+W`Ž0„sÐÅC½þ?0ei*ÐÖÌ DèÌrìv°r2™ Tâ×EøC§©?Q]©šzÛu3¼ k/nÉ#$ˇ|}grŽ‹œI.O=Ý"¾&[ E,l$¡ÑkSŠX®Ë€é wðY§“ŽÞ×Õ¶ ½©udA¢¡lùÉéhÜž6mºç,~nº†Î<é{ìæÎhíŠ;7¡yÖ­7Š²œ0ø¬dǤ´²ÓQôVƒž,lvVìf”–ëA¶U¾ÚØá°`HŒ"`–ðã°j­5 •5¡µÇ»·ç?¼{k^,g†é™µ,TäBJ–ƒïè]}·Jh™ÛîP¤Ž0dhA\ÑóûŠys¥K˜c‚ÿZ©(¨«r;®‹I×#iOéÈ&³Ñÿz{³þ;P·@>nEd]ý7“1Kú¹Y>£l‹Îz¬Þ6/hGsÆ0ÃL¶ã¸^œŸßÞÞ273' ÓéhÇ ÇóCŽ^yàg’÷È Õ•9‘U„uÿ‹¾ïHº%|ÊdðŽé†^U›k•$}˽\ƒÌ ˜•¾ª¯¯ëv°¼±:¿®8ç}¹\¥ñ¬ÿ‘] .§|euÉÅ"Šò… T²$„(Z<î×  «'‚ƒ Dcžä ËŽÝwÇiÙͲÆG×x@z` ¡X¼ÜÖ ¸XvO‡aK:þùó Óø„uc³U%Ž[Ø¡ŽŽ1¯Š~£uh< .1(²Ÿ|cÞ/·8—]k¥ï­ÚOú)µµxž«ùЪ”Zã¼A¦¡½(·æÍœ˜…1Òl -²§6´ 0íêÊ‹mšDø\…ÜâÙÔï bŽ­Òó]µ©KZ=>Èœ¦öÜ“Pˆæìå‰ï§¯J‰i[‘9qÀW<ÿ€c“B!òÀ ÊRe§9¾éjJçs1Ž’x®¡; ay”§a„¼r~‰¤ŒtGòB}-_b¾/ŠzõŽgÙ×òÉ"Vvaá;ð4×Åú4tÆ©½Öy“™€‘Y®ó ùs /[E ÉlN%6JþÊÅÝíÓ†°Ã(/OzƒQ2‡9eoKH©ØuíuxÝwÓÞô,ù–çð'jº¶ oõá”è2ÆEšä*8b§Ôé.§Ð4±I­©­þ˜ôq”>é{½J}üXp?o` tWg=û†ô;P²ÂN¡¹5ÆœCÖuüÚ­%n`©ïhƒ¯[‚e™jXöL þrl/* ©¯|A'Ž—ÑÍCáâ›®S’”⛧©/¾Êfœ|1¾¹:ÿÈ>ûg³±š³H o¤ ÁôÝÏ2PçÊ R®+RíP„J•4¾1 Kȃô½UýÉ~oƒYØ`¦Pûm*Ú±¾º3×HÐÝÒÁ¹£³Y=Þ™Ï4çBWa^@Ï[gpLé z¹ZbûNnõÙÈêzªä‹È¦@Âcþdï þdãüÈõRcO’ÌçüKÏÃ6ÀãM–ä^²èqí§.Yèí(Y ¤“¥×Äös D´}·úÉ‹¦ ‚jfrß¿{¹à~´\zñ¥@d­Ú5q…ë;oÌ–Ç¿Çibü˜.†Ðì£âù":f™H‹h§¨Å"ËB‡ÉÐ8„eRG´?þdÎçø“J¸*˜Î”.;…T%ïS9᨜tTN•›è΀z5ñìÌÌXFåÑÂyKÚÿÄâ˜%,ÍÒÇŠãì-¡ó§.Ž‹Ú(5+J„Ï»qÊ¢,~Ja닽…1¶‡ôǽ£2Í^M3‡*‘ó*zàU}´Õ¤3M—ö×7¢øJ»]æa rêþ.ÙŒç!ÝȯàÒ dˆ£¬y69ú¯uL‘S}ýlKÑóû\ÿ1…ÁßwWã­ÉmŸÃAOa‰'³!©žÂ†ä’ ‘¿c/Š<*¾äïLÉôüã0°›%»ö§²þ%š<Ééˆëtý"táìíäÙ¾ú3t ««‰3žßÙ§ 1`o»RßÚ…L^µùB?q¿¤Iø(íEi?\D݃ä¹üóö»`*&»b*©dYvü÷åÄ× hå¼ï³‡Ïô˜Zå:»SžxÏôHïÃÉï¡ôþØ ¾‰ÞÛ´.Ÿý #  endstream endobj 1231 0 obj << /Length 1045 /Filter /FlateDecode >> stream xÚÍVMoã6½çWI6`)Ô§¥Euho¢í!ë=íî‘(›E"ålŠ¢¿½C‘R,¯íu½É¶j¤á̼7œG#gå ç—«Ÿ—W·oßɼ, gY9>B^%ÎÜ÷½$Ìœeé|˜‚D(àÊkj<ý´üõöm<ßÙ!ß›§±óŽbír…lðMv|]ëìsxš-AŒ&?1)F»ŸWøóR§Ñ¦y¼Ó±Ãp·xy¾-ŠõZN÷«Ù­<Œ¼tÞ>³žgdJ¼$öé<õúTš óÒ4½0Oº›gC”8 2ÅþK Z±º~µL#LõößpçFþ|‚yy~šØ$aµ( ;•3 ½d÷;*ÑLÝ0&UË E—Æ„NÀNôl(óª‹l?ëmŽd’yÀ­ #•Á,t1×´X›3o§«$¼°S@¹"ÍvĬƒuN˜›‡{Òïª7­"¥w>J˜{±¹M#*ÊÈɧJ³1 A8¢ÌŽ† š ÁŠ˜w\cbÖdôaê£ at-Di]˜P6B!š†Èà%å«qÐ3Yþ\C¶­Ù›ÊQëY-é“‘̬Š,>ãzÈ<"Kãµc<…`IÔ ’Ÿ E&ÖÍÍÍÔ‘n'+ZÖÑ¥M&Væ¡¡òÁ>a Xšg}ÚͶ1Qú•ÔÕ Ö7خڮáh°HJ¬Œ×®Y‰Ôu|D1ª –mCòë»»ë™MJsµÒZ÷`q²²VAóâù[ Öó7È‚søçÝ+í÷•ÐàcÌCMv1ÇìIR VTfUëóÈiå€÷_y)j—T)”õF~ŸàsL (’fä‰Z<[ºl6”¾%0¶øý·ë¯…CZQ{µmÎ!fÆêFkZ Õĵh¹“³&°]¬'T=`¥Ã•]A~½ô3)1Ö=>Rµ¶µÜKÁÚáØBT[ö0¼çºæfù»¯ƒ èûòâ=€2iÙ^Ö†ì²6´L&o{â¿ù$ÃÝz˜Xùµ¾Yþêg[ª†êV ¸lÆàP˜+±-2@¾ÿÈùÈþâ1†¹öTîpŸä±Fõª×o¯A! WE°¯âa{Ù´üÍ!Ç n:e¬ñ˜w"Ì:p»G .ÛkË”¤«¹ß›Šld¡^GA¹I¾¼{¿8Tâí¸©ãµ—åT”¯aŠ ¿µÍÁås(>ø³àMøɆfê)¿.…‚Ÿ×— ¾ òà\äé·#O®ñ]ðRÛ=Tç {wt{=…#‡k-)ôO}Áñ#âk+€õƒ2pÉü§ÿÕüúñÄ ±ßGÒã¡pûê²`rüŸD¡Y‹óAñëz±¼úO×eØ endstream endobj 1240 0 obj << /Length 1900 /Filter /FlateDecode >> stream xÚíË’ã¶ñ®¯`Ù>PU+,A€/—ç`Ç;®¤’TÅ–Oë=pHHbL‘2£Ìߧ €¤†3ÞCN)ÐlÝèºwôï§ÍûÍûû(ñ2–Åaìí&dì%œ³XdÞ¾ô>ú2Þ~Úÿíý}Ìg+E3`@kŠ¶ºs>àÊM`è¿¿ÂKaK,qËND©Þ³ @ ÚÙçÛ]þw;Ô¡j†ß‚(èTÿŽÝ©½ã€âȈïxÀ²(›H¬ ó‡ºjÒy¼ƒ%ßtyS¶çü]ø­ødèÖÃÓÝWe; ªüjN>ä,ã ÑùúkZû¡)‘Ø?ÛÁœilì–͇ýæ ‡Çc.˜Ü+ΛŸ¯„I ÎD–zW½ôìIPt"Àµ÷Ëæ_Nu·£6hsf*5–Ü‹²˜E¨žÖ^OUq2k®[ø†ä±…õŸòmø¨qE˜¥Ú¯­ vP%ÍäÇ-Ø¥jzÃNå@Þ:>8ld¼ NÊØ©jhÔK5ÔµÛ0ò¯ôÓhÌi(ó!ïÕÀ(ÞúÞ¡²Â˜…FY¿öùQ­*ù¹Ò—~»TºõXŒ,dq)ªèÂ'04` Ê0`j»A5w÷ßÿý—w®šPvuqRÅïwûŸµóù墚Rclàþ‰”ßwh¶ãxVÍп*íëR¢d71¹ðD¸L³4´!9³† ».?«¥A¯U©\L‚þØó›w&–¡¿ã„™ TñçŸIUäT"ÌÀá>Bh¾c…žE®Œ¦p‰ÐtNCqÊ»¼,ˆ«ª9jSèÿö–þ¥í+‘@l•GvË£’µZ ‹fàhç\Á±“f¬>l4’„VMè&S¼©¦É|¬§X[—)QdLD®cЉۤ๞BɲÀ­"OyÍ¡ä,”riª>ßÐo(ô¸£Vxœ‘Þ`œL¿FÈWçñL?Àè8œÖ—XL+çj‹³[óÅ™3_œÍt ?¥Ú­ùþsEë1üs=­ÝsºBz‹ÓFiÆICð39-® ÿˆ–±(éÄFÎÛ"ãm‘9ˆªÊ%7Õôc§,}jtÖî°%I1ðUôOÍ·2JPë9{°º*iÅÒ:ˆ1ÇÔt³ª:˜¹kQ)åK óòß#ïø‡Ö}x2ʆ¥^wô,øó3ƒÝuÎWÌEìKö’K¹˜‰ÞÖ¦È|˜’%Y×ÿz{\‡ôÊ.b±º^ k`ø%a„,É2¬©€ƒÃ PC£sX!²Éaõ ·dà/ús½ž œ³"¬“#РS©rÉƳµÿ³P6E}fª¬>µ»g¬ršA*ÏUžIGNJËàö" Y*2×S@Q’šN†HO¦†KSÃ쪩³”¥AòKk’êW¼'e¡£h´—RC”±$q”©6Ø .‘Â"µ-œ/O&Õ•ÃìMÃÞ¡ÆnêÕî4®oÏYoø£òªîßðаׇâÂ?¸ü+r<˜é±×þÀMÙÈø›Óà¤áö1¡ÙcþÚ"“Ï#ðÇp/#è(ªq¬ícÄŠ3ÏŸ&Â$²ï ÙÇuͺ˜œ#påÆœSÅd#@tÚ+4?+žÂyÒXZ÷à+”°$t_ô–•Ø<¥‰Ûþ~´^Þ­ðIèÁÉPÙ­ñá!Kñ2#W.øxX33!äjéÆ»›˜¥‰ œ`UX™L= ZáZõÊݼX91!3}ÃÆs×\a–1É-ûpp{ß–ÊÈ…òú©A¾©¸³=ïë„föpYél%2iQúÖÌt¹g¦7B¬íCðf]Ö"8«Û–i¹°Ï`4‹çÚmdN%ó.˜ Ò¥©æ5Ä5~È…ÇÔNëwU©ÿ5“´`p î—AÔêgèP°Þ´t¶¸%} 4¬íÍê[1‘GãV`Ä|ž‹íøa¿ù/:¥3 endstream endobj 1254 0 obj << /Length 1315 /Filter /FlateDecode >> stream xÚÍWKoã6¾çWÉ¡2`Ó¤¨gº)º-²E÷R q·‡ÝEKË´­­,zE*Þô×wør,Yœ ‡žHñ1üæ›o†­GxôËÅOó‹Ù»„Œr”'a2š¯FcD£d”‚šæËÑÇ µj¶L?ÏßÏÞÅéÑú”f`Ì,ŒR½ä;ó£)ͨžž†)ì vÑo;UŠšUã)¥yÀš1É‚u»åµ³Oé‘ý4G8M½ýŠÉ!!EÇ~Q)­åVò¥í)a[¹ãE¹z„ûMYlìøºíÎv÷eå€-¸mw+Œ!ØSÖÎàÆM@¦WˆªÝºi±zZhGS‚CD³:åqlq¡Mù ™¦”ç©úu5@EŽ’8÷NÊh¯oæw¿ß0ç(M¿xppäPc<ŒÃˆ/Ù¢âvªf[.íd!š†Ë¨—e½v…r¢a0vØEgß3¬Áø'co‚);VñC(;NN“E4î1UÖ¯‡Ÿ£,;¨ïûñ4Œ±E©;¬P­–™îÃþµÚØþ¶\o”í.ÜÒJÔkÞ¸ý¶¼–mãæÛºüÚ‚GRÚoáÎY]Jõˆ!\'6ÂS‡ÕÆ9±ˆç~;“8øƶ»ŠK¬ÚæÞ~‚,[©¦xï`PyRéL¬ÚºÐ©†sÉ1Ï$3"J,”ã< XÕòNû¶Ç»ÞL@™Ké·ŽX£hÛß—žn&ýl­½|<%Lv‚ožwæ;FqòyO<ÍŠ jÝ™¼È¥Èšùcœ§Õj=˜:4ŠãBÁ‹Z°ÖëE3”®±Iy§Í7û‡Å[®ØJ4Ó]#¾ðB!ѬP5 #ƒ­CöøHWA:¾ÃLF æÈ¡â¤ÜçŸæ)ÊHÜ Â_qSØy]@x_!©>ÕP}¡ŒE8‡È€R”‘43܇˜` ŠGü •«ݛ╦v}Êà¾y”¦PÁ.SÆaêÎ6VªzÂ8· ø²£;VüÍÆ$ƒDgjàhHâ#üDOµè½–·h{ÏE±²eÀ¯³ÎÕ{ÅT)UYøru/VjW#M> 4EÀDG ½¨t”@“¹¹‘Ÿ‚‹©&qbÏ'ŸÂ0‰24 ë(DpõE¶¥ÖÓŒ`D²„¦³/R¢LTb:˜µqˆ¢¸«š{î²ým%Å h´ì1ÊL¸îiô¥¤Ú—KþœÖiŠèáº47Õ§[G»×CÑðC5þKÛÿέæ©dúK¦˜äÊÖ­óÀO-”ÎsÌ Éë”NŸó¢ëŸ}hG-ú´ “’W‹Š-IžgÏ™ÑIôÊ3Ãã3+±ãÿ€‹ùsÇ%) £ô$R‡ë±Ôy÷ ï™›u°|…Q«ŽoýM<,Á~·2°,xñe >»««+]tq*Õ@a2o = …¤[£MÓsÒñB "?ðc—¼™Ú¶/‰s6|,tš“I4¡“pOðŸÏÚíRH‰”ª]>Þ\šæÒ­›ÝÍ¥Ò©¡ô~´á«›Kó^ˆ£•¬‘7Ñuâïè!n8„j Ôv)eË¥í˜ó×_îrŽ_þϦë@#G^ r„9<ž/Ï…ÞWƒ® ¶§/#Ýê'è«dpš«/åñ¿•æKµÒUI-þÔA·{_(ÉuúÊ€D´8¼ïGÿjnÈþÑÜЇ²ŽC'Åæv~ñ/ÂÂ2 endstream endobj 1267 0 obj << /Length 1779 /Filter /FlateDecode >> stream xÚÍÉŽÛ6ôî¯æˆ‘"µrè’)[§@‘¨F¢m²ähñ$ýú>®ZF™ÎqÑ‹ùH‘o_hß;x¾÷ÛêçÝêÕ-‹¼%! ½ÝÞþzÆ( o—{×4Þ|Þ½}uâÁÎ b(‰#À£ödU¹¡þú² Ù‘¯DžXùæž7»Õ—Ð÷°»"ŒBäÇ¡—V?û^ßzð)‰½{µõäQ "¢À…÷~õ»Ã7A0äû(¤Ø Y‚päH¼< ¸b£s¸Â–«w5mÝeífK˜¿þ……†n7Œ­ëM­ù—Ž—™àþPíµ´â!ÚÀG„Z¬DoÀt°#B8avÃ'ß'‘H(˜à!»a·IÈ:½+€,Éï¼ hˆ’è9ÐÎXLˆcäG¡¾üWÞdµ8·¬b(í^êc«‹½-c}ú¶+3uTɳ­ôXOuѹ2§”}ýeÄ …Œ\A#¦FÚhµ&MwiÃsCžá±^j 6Ýé”Öß̤M[Ñ´"k¹a(ú-!1"1 ­1}Õ‡&=ðY©?ÔÂØgÆZ°îòÉg~U‹—›-óA øJ,T:;È}lxÙXðÌ3žÏ»SB@¬G3IF c–„´Þ¾Þ½ûðöA°ÎëêìãÑJÚ¦eVt97³KZ£2=ñæu&y¸IÅÍË›;ù“ÉŸ\ÜÀ2Ö·c Ž@Ç·§ç3/s{•bžŸ‹4ã¯oľLoÌ"BHâ™ÓOHPXõ×ø©Þ`}èN¼l›GÕô¸z@%“@6¶>ðìØ™_¥\15^rÙ`¶¹VÆäîE{œ¸T•çÆZk°ÀÊÀJ͹*sQÆÞéNjKGÚFœl q[,QSxUnÎGaàû aÊ¥!HH \1¬©GYÂZ™eÈšœkÖ$¤¨’€´ìFJž+#TkÙQl›/]Z›=}1ßÇÜ*|Õo›n•cøcŸX&‚òx‚:ÛªµÊoÒÓ¹0Ëø{áAÐú¡ÄAðÞàx}Î@³ªs†¶·'{OëÚ¬:q—®Ô(Ê–ƒŠÚq–pg¤ùÖöëEtZ iž TC–²SË>@š4&ìÊcà½=éö÷ìËÉ^öåj99ÓÈJ ×°å~ÖZ—‰D¦¬+#‰^´BÒ}‘_?¶ÊÄ{M†½ÐõÊìAõpÍdQ9õ¨Ífµæ¹È®kû+ºÿ‚ïòª|—\î9l€ÿû£bp™躨"³]Ójx,fj^íu:U ••ï¿éÉý‘ÛšŽ®Ú9H¸j3`ŧвt:w­mºÆÉìO¨}Ðo^È6s(ÜAgä’ „ÃV”h¿ÙüÀ|'îJ¨8Ó®0 C4ºVIœ°=×óÈ¢w¦§Áä#†WcÀ  gÁHº‚º{ÅFÁPPè÷º_Ú.×Q(PZÒ’ŸÖÒ!´µîðç˜uy9ƒ†BËÒc1Qv×IšØ6Eí ¥=`.Z§eþ ,à!€ 0pZ*ç1FˆDîVaäÝó@ÒÒb·´É¤1óMabì›Dp¬ºÂóµ>ÐöÙZø»Ä,AZ~°]ÆP‚ÇÑUö‘Kë:k^ R[ÌI¯LEÙÂ#X±×> "kù¸i*+Ó9ꥻJÑ瞟PL¿¼¨=!º÷pÞ)TŸc 4Ö"3 ‰Ç 1íŒÎÕ¢ê=äjw×ðVŸ”%¡Z³n-'{‹çþ(²ã\å÷”·¡9s<2ñüÙ)ʽ8<]¢Ù1­S¸Lz$#Êlž¦²tîÌ/¸5j""FDآهUMUq=ü65Cø¦3 ÕµöL‰ç_¼ÄÝ£…8vÒyäáf. ø bqòŒü2„áÀP‰úÙgI~ÂÖŒ½6ð0?ÉJ 8°1 3<×Ú¡E®ä +‘ögò6‰ëS™ bŠ A>uoõÃ@bÈÕ® ¾ÌÙ8™ôýÎ?Ú®.­îÛêÀû—Ë™šrÆ^¦ã¢ZEIô”œÀžS«0ÄGHóâ·ÈŸƒP†­Z¿±„&:Â؇Ì0Ö‘0FB˜+)¤{= LÎE9'·}£> DziŒ¨s%b©c9Ö|k,!$ˆb2¶%8­»ª,¾éY Ig1I°4-¹ Æ_jÈÔ·œ·eL ú¿I¾gËÅ}„۲Ė†:±×ã$ΩOs2”ÿ *±ÇdUQ„’„MžŠš§¹©ÁU7õUØW1}Ù” Ú>·Xÿ{Î'{ÿúcƒ1VFðÂ>"Ìõ§ªvŽ¥G± ÇD=£èTœ Ùwí7»Õ?5:Be endstream endobj 1275 0 obj << /Length 3124 /Filter /FlateDecode >> stream xÚåZÝã¶ß¿Âo•qg†¤(R z4×^P4i²/E’Y–w…Ø’O¹lÿúÎpFŸ–w7A€> ¬)j8çãÇ¡äæa#7»ûòþî³÷Vm‘Xm7÷Ç’R„ÆnœR†Éæþ°ù!ȪrkdðËÖFпêíO÷_ö>r“qF*áb`ê˜Iî$O´vB»câvÐÒ¿æmZœšÙ¸Éøé\ †ªXؘF¾ßª(¨êí.Œ’à lvi™žžš¼¡®}ÚälƬËO¹)'¤Ó½è¼8e&$ f2¬íG)õ )œLfRÇ"-0A›îO9‰wHÛô-4c´9Éy©+x&‚êØæ%5Óº–Õ>¦-µšêÌ㚶;=Á¡¢ß²jQЙ1"L4”H¢ˆ$9užµ§' UaPç—ªF¶J³4Й姵Žuþ±ËË æÛIâàžˆ4ˆœ7yÙ2]WfmQ•ô”žNÕVGÁ§fÁf®Ê¦­» qu$¢¦Ë©ÇëÊho&;﬎$î,ýóššMw>§õ?´i[4m‘à=§H$†}àÑ—´’î”Öhïo©3m€SNmR:µ¸ ÷ç>ÒoQ¶9hƒ Ë“^ÍÁ’u2­ó9§a`rþÜ ®t$¬„MÔZ˜X‘ü¿ zÁ8Ȫp€f᫮ͪ^ú7þG¾–|ÇämÕ¦'6! zaB×ìÔúìÞ)Âpê6ÚÉài±ÝAŠÁi¡eC¥*Vœi×ü=‚ì^$9¼~úAOW¼ˆäÀ»ÔÈÜk‚r¹U°µÀÍôÄô„žNùµ?‡yGæ¨MGyøñ¦Æ“<5¿ÃýÂCC1"ˆ¼ÉÒSö\!Ô"‹ ãa'Ƹôir¨‚éHä¦öLh–ÁàšWhD”Œ wÌoöy¨rílgÕ@Ãù-Œ"èíïÖ4H# Q&ýá{ÁÛ„c44†Ó¼‘=ÀIz\ ]\ŒnyfpC$,x$qaÞÄÆ Žé…`œ€Ý„°—6¢ð§xx‘¥%õïóµd†x§@¬äýQÇàº)5Ø’V¶q,Ú”7Î$I0°›ä 8[ñzpš>ÓãÃ4BOVu¥×´§+ÃW~eÐØ3«[kIn¬E»@“zã«!d¯#À]è窹jo"r;®©vV‘1a’й¾Æäl_aÁæPT!š¬ª¸°¥æ(¯ã+R3v0ÊEæ>_û×ÞÔàí9}¢Ž=“_ª¦)(º"—þŒE²ÏV9©%!àÕƒÁc×¼|…(枈â±|…#&^yTú>N«YÚ{„‡ÑÈÞO?uóäBg€ù¥MÞ|>‹o°/ò3¼V2”UbNòÃk1–¨¸:jÕ¸¸z9+é:#„ø‚Ö(=÷oÌß­2ÁÎâÁ.Þ­ñSÂAsMº%" }‰ cê…¶8%æz¸ºÂ ÞÝLˆ«¬”?…-XÝ}u÷ñNù´¢6ptó* C?ñ&;ßýð“Üà%ÄBÖûäIÏÝ¥_áióýÝ¿¨>— x% }¡;R\ŸÞ¯HzuIfž_¤ÛLˆ²UV¡Òk¬æ¥!- X*Ö ê/<¾qÁÏ%ÙeÉ0œÝKöÞ Žý`øóš¾òQ Þì™vâP„‘œ|_VeÞ¶<…–Òa´Àbp,ƒo¼-úÁh‹|0aÎî5‘íØGË †XF~a}È•U}›p5¸-œj—î׋«_çy—Ç¢GA„p Ð²]smEì §Îu؃Ð^{`,œ ŸsÀHB*x…ÿÙßnš/øß‚ÕôŽ$‚Å”(C®Ì8«þo|j8`6!*k äÎ=8°6åkqÓÈ1Kä=/ :ckº¬Ìòd!=7%xJ¤ì3ÁªçAꀘEŸ”áf›èqÿ¨ µ¢°Z )®-óJëVw'vcApÕ¤Òܲ(õJ“Ò‹Ù~×Òõ K·‹¥«K~‹0úÿwô»‹L¡s9p‹'©ÿ³T©Rõ×Ê —žËë|•2qú°…EIÝ>qBï2q*ª™òŒDsÈk.îb±&§ÑHšà[L,~¢IbÙ­åNŸmþy©°±ï륿1±bxSñ`/õú±‰Ìk«2VHÙ<ɬáÍÌÚþ,f‹<»æcGÅ|Ó9c«>jXDòÕ™Zßæ(œOÊ?m£(h¨wÉïY_¾‡Šç+ÊC~Éá_™ñÄ샺ÇÝÀ‚ÂÅF òŒ¼ò ìáLùøÂ+ßÜP¾ …Š†Ìøë­3[âÌ3'ZcB¶eœOU8ãB¸(è’Êøóö€Í¦',·ù(¥ãQ6®q§4ä9íVl’¾g Ó#4YÅØ7úLÜ#Óx¸­‹—È4îñcÌÈ~g>ãTü6,oLú+|£ådšÑ.Ö èä»hVæ4ɇãòs¢¹Âö[ÈÔú¦+ú¾YñŽˆiÇ»Ÿñ©[&¿ì§a:8½Ò+²^m'´ð°O³Ÿw“P8»ÿ™š>/d¤}¹Väb3?›æ#ªþÏ ŠöþHåp|ׯrª>åµÀ/âHá7PŽJ¡Ç¬!V¿žƒ£Ç…œ endstream endobj 1286 0 obj << /Length 2848 /Filter /FlateDecode >> stream xÚµÙ’ã¶ñ}¿B/©PöˆK‚wR~°³>6qj3É‹ªP$4B–"µïöö e)Q–8—¼Ýû©ó`jÜ'ú¦· éi¨ß× ê豃 ƒ·®GÌI·B,³]r9&@©µ.;KœqÈzà÷ÐÑÌfþóÇÐX¯ÿ(3çÍS®‡ËQ£3$‘ÓœðÂÖ¥A>?š4Ùñ¤ø@ÌëU·àziÊÚú‚ŽG™b„g gÞ ”ˆ×!ΦӚüX¡]iè¼ÑW-ÖC”jËƦyQ à‹ÈX© ÐÖðí†â̹0|­bà/Îa|}þYlí&—öìÃJN¿2iÚ»åo¥;Áfþzm9Ù xÂb“ bš}«óÑ(Mf¨d¾È4”¥©J°e§9ÛA •µÂHžÚw É7 ]‡ÞN£^ Y™(€ÚtÃóóf‘€g9bÌñ9Â#d#|èûáyÃÃfHº û¡/ž$é"îãï1îc¨ÌvÚ„>k5¤¬Éiá ¨Ê -;Ÿfgr2~<4¶ùúºé’Ä6‰^®Àkl<ÓÀ†#ØѤ)JÀÐ(š.9’à’~áË&„ÙÚ˜ƒ1ë`Hëò'ŽB°æ4³‡cìg|¸[§roè”Vð—éºa ¶b¹{<®¶f¯Fœ“ÁF0Ïùü~£;Ýw«hýBhï¡*&æUŒ—¸€RÅüíkÆYÖDÊ £À¢ÕÒîB&98•cýCú8~æ†I¶ð;46Ú¼É@¦¤Þ€Óð¥YâˆõN„|gÉ„Ž{å9CÏ?rþdÑøË[üú"Ò|k[j)vÄå& ˜ ²nm*ŒÒwÏäàz ªTºX7z»ÊCß}ÿj÷!‘ó´9ZÖ㢊”ùk^¼Ï4SäòÁã@G™’ô‡ÛÊ [ÿÞwÈfqž(5-ä¢kckb×hé0€Õâ³%í߆ X÷Mýß;¶ åyñŸ%rÇAæ+Fû¯½aN·MmÞÒ‚“WîHÅœLSêê;¬RÝ…Öf5x<3êÄ‚P€ç~Êœ¿1ùCÝHE 4ÿö ÿiÃ%PæŒ:ûz9WP¡®{þAŽÚf߇)—£Ñ‚")œ#9,†œä`dª˜t¶¿òR7KBë“Š1üp! $‹€Éá–Jæ&ÉŠÄBÊÄ G }NQ9+ó>g^Åq`h®:øݱê°hñRç¨rØ3*\?ŽŸ)Rí&'Å ^^ž+šÓ*üaqHçµócÐì£<BnXEÞ1ž‡¹ê늙 C7€[Ø"õà†_nÌnlѨøœ23ä¼£ÙÐßA—ÂáÃ' –p¹IØO”E`¿¨SBë#^ 6«ØÓ`Æñf„‡D`QJ 陲ãÄSIHIŒ“T<á,T:fž»» Nü0…LâÛ}ŽŸfEvf»Çãî'Ê›U'(¿?uÓ4›©ùeS\àAXðœ¯ç‹†înÊæ·|¦žëMl–æ“iyt‘͹´Ã'˜‘”YÏ@Kq–ÎR6ÄgÞ¾Ä)²Ë/×J†;ó«@˜6dÊB׋F½Öé¿5ÈÏ/Å×?‹åÏM}¤™Çáñ¨]Üp¹4àAyYNX©:YÒ æ¼šÁŒ‹W$å§=Q9iÐO7QþÒ"¸´ÉnL”G1"lk 1<‹F…ù›V’ ÎSd‘C{‹`´ €™›”Âᶓx±ë'ÓÆêÓ£ºïÆ=ëÕîËô­;Y<(ÊuŸ‹‘?rÔ´7ÆÃîÉ?N‚¥ò¿m†¾¯ùƒ»Y#ûÂÍ­¨pÀëʲÐ,¨>*T¶ 9+Áp7,/dT9¸Ô“ÔsËÓôlv‡›úallkÁ0u ¼ñ•Ï‚6=ÙÓƒYû´$n‡ÇÞz/ ²#³k³è¶ûOíÕŽ!>m.¦FÝè”Âõ_ fì¾< 9v‡´¥Fºá@o¨E¸IL-ª3ãVf‹¥òø@7ù´Š§ÆS€·–3mÔîCÇîOOFÛñœGŠªÁ{‚`Š³Ó”8íBŸkºõU p<À©É£:ÑDÕ:DÕAf{»ùŒ'.عe¥$å;ÜG­Cªxeë> stream xÚ­XmsÛ6þž_áÉen¨9 Æ n}sn›äÚ¹ô2¶¯ýàäMA‰TIʲï×ß R¤ÇNç<–‹Åî³o¤G·Gôèý«®^¼“ì(#™äòèj~Ä(%"–GŠ1"Evt5;ºŽŠªœÄ4ºŸÈ$"üO>_ýrò.Qƒ÷bʈJ©{!a–äõÇ­ÐN=ñ”+XøÊo“ŒGùr£Go8 Ocð2ËñÝŸç“© qÔ.4Š&Ä€˜Ç$…;zÑfy›äçœdIG“×–F·›•.[ä¼0å}QYùÕf­ ó‰R®g¸PÕó3Õ3_¯u9;{wþ¯Ë·A’Œ(%;âcä›ãÁNv·0¯ó•ö¢™vÛójSãÚý„'p “ß,uƒKE¾\‚˜‡âM¹à„‚*§`ò,Iðàû¼&%œÑ„l­ˆà¢Ïç uêw“Zbš¶Þ­ÕŒ]*ôr‰³y­ÿØè²0º!–9ÀùM™$‚e½IEÍ‹Õó†ŒEÄÞn<ácsÙ…¼ )Dq¢Äžµ®.þ4VLÔ6ÇÈÔPö3œTµ¹5e¾Ä'4#ODgF»h¼µn7u©gÌÆdXL¤“^½­®ï>„œ !àA ü‰&txu6¹Ã×X¼ç’wgxŸOGÀA d+‘ŽyNØ“,í}7;«èÔÕ ßg0Cþå8„FàÞ{7ÜŠÁ•DŒú‰uû8ôOP4+"þ<Äxï¡a ”索õz™úìµ™—ùëG€Uñà4IÀŽÉק"‰pî@b5sŒ7÷åTåò×V¦iLy;TÄ┧Š$l@ ?t‹c»¸UkÜò²ÎöC–󻤛֬ò)Ä0Hà¾ÕÉv¡;~ë Ä…cÐÞî¨Ò¿ZÏzk= ¥¶ÂmÝ}è^¨Cë§b¥¤D2þB¿“&½þÑ¿!Íf]Ll«½¸ÙŠÁ‡GxKUö¢øHiv:¸LsRg±aî€çSáp”»zÄ¥=â2@Õ„EKœ`樂© ˜½\å,î¥õx±¬s<Ñ'&¡ÏM°êr“zFR*Çøè°8aIôˆQ¹È-øáùFû…jµÞ zá a“ö6 9 Þ[>Ú¿ï"0rlÔaÚÁ¦è,Ù© ׃š4%|g«çU•q>D§elK§ ¡áÁFšðA‚xv£šŽa=—ÈiÏ'ãM»¨j ­Æ9ê·Wv¿ORUËùí®ïÂpým"idt±hoòö)Ìžr‰„ˆ]òù~{ó•nsÐût]WwºhIUßþ=  [¶%Bì’»“žX‡¦G5ï§ö£3GiѶëæôäd»Ý’îäÉ¿_,Ä€#cÙЩ‚ú™")KÆF¸ÐsíjY€/óoÔÿU©ÛÖ6iô±£ŒÞ»Q9•sJÊ4<‹®&Uê¼làš+Ì'@XÍf ¾Zç­©üÜ”xO]ë¥Ý*ýž¯LTdU6Í¡zzlM«µnt^ ¯ ™ Ý@Zñû(t¾ pM=®ýî8•9¶(úØ<:?_TËÊ–Ž·¦iCùš$&GÐسÇ2Ô1e®÷„_ÑLƒ'ñ'Î%Ou¢†7ì6«ŒÓ £„Q¡N(¥bJ¥| àë‚ËPqÈbØt!o]~2 F¬¢F·`Ͷ*ï¬`qýHpÇÛ^v¶§YôÎ*ζ VÛój9CÊÖçU˜ú&f£ünù?ÀøÑÚgi‚6‡"ÙiäÒr‚‚¢hzfh|O62þ=3…)u@9ô¬Ø‹ÍÌ“—˜™ì ÛZ@’e?6ȾACS~Ò˜ÄêTÍ QŒÒÍË»V›1éº*Íc¡2:#²,Ñ/|œ0[<-ïmÊ63ݸ}@Tn›j]m–UãWÝçôW|¾Ì—€$㙼÷Tˆ#Ô‰…VÆ hõÝ£‹ ,“Ð~8êüÅ4TÓÝîò5(1Øà|^W+œù°³>,Á|ãë`Ùõo0qþãÀp๨f§6½Ç@5·iÚv˜ÅfÙÔ˜t‚Â}rxþ W¬Ú À>/ÚÐ ¬°Œbì°Ký€}Ð ¨]záÂäD€ç¹ †¯_>–p±žÛw…PŸ(tÂaøCØz®9ã#ôwà§Nâd¯ø¹Ô¾­:_6U°ö±å%©«æüô°šÛ«ˆtz-¾V± H¨ª×gÿ¥ëì6eáÓÜ ôý>t iµñ=£vqeÕ">7æ¿žt¥ófSkOwM„ï-«2ð-ª‰xWJòÀGè ³AGŸ}²Àg¡1žH¬z‚v×UÛî6\º Jb¾×?¼}ÈWëåEëa &K£Œ{“¥`2ÿmù/ÿÇ¿.Vsð8–öümIWÔ+ õha»Ô.ò¶›iœ >ödàÑc"û™WPƒvº­ê/MŸ,(¸|¶'€u=èáôé·{ßfÛ¹ñGÖÕÖ¯ðc…]z²“WŸ7ëª[¶¨EöU£˜â„uß¾¬3«ˆËÑ÷S.Ü+}nÎ @äñ¯çøïC‰¥½ñ»ip·ð»œ†vg~7K÷v­)%2KÇ’ÚúÀ™ò ˆñVë…Ù= Óü±{,[%>pûÐëc: ”ð¦?ïš«¨®6åÌÊ®ÖnpAÈÎ|8{ýï‹×þž ÁÜìôucÚ1;]Ìú9èÿ ~¬€oÍ5ûÙbÕ›¦KÂ/Ñci®ù©•ŠêÄtÞõƒ—¡óK{oœþ ‡›ƒ•â`eÖ™tt|:8žuç'æø¯ÞŒÿYÖÅ3¬ƒyáíÕ«ÿ!BC· endstream endobj 1302 0 obj << /Length 1436 /Filter /FlateDecode >> stream xÚÍXYoã6~ϯ06š4²"R§õÃH¶-Š¶Øº…›ZRl¶äèÈñïË!‡%ËGvS A^Ùsq(g´9£Ïg?ÎÎnîüp4±' F³‡qÛõ‚QHˆ¸“Ñ,Í/}zu?ûåæ. ¥úö$ IçÙ•ç\>]þ¥M_äŽ3åÜܹî([¶Ž]?”{ÇT´«8œŸŸ_}ǹ,RÁ¬¬Š:®ÔDœ®×ª÷P¤ušÅ<-q"/pSþŒSÔR­‹-ËÕñ“À3&Ž=ññl C!?ŒQXž=Áþq|§àÓíŠ#Ÿ\Œò$) Vñç^(ŸÆ+^>â8ãÓLÓgD H3”âGB*›ŠBÙ‡ §)±'$쩨d›TõÒ¶Ù®q°¨ñ0ϼZÕ]µÒgg2 .ñ¦bØ®Y±L÷jÐu]©AhápöC! ‚™Ð´nàX¿}R¿plK/p9^Žq™:ƒË .O¢þ2;˜D]´§‚XL˜¸Hk¶ÃÌXƒ¶ ƒÆ~ã!YB¼9½ïª©Èë,ðéËV6eÌÖò4›”•u‘N?üþåTh‘ñVe n臷ÊHš¾á`¯|Nî ­Ñnw!´1wT†ªGê.Æ?~ú@¹ } ¶k0¯AÊþHÜp ´ÐÜÛ§M¹lWiYI˜¬*ø‹œ‡rN0™‹|ô¤N ½d"‰L©Öò+Œf_þºÕTe% YV<>EŸÓ€R¤Ô6»@`"žàܪ{Q¼3ïÌ$Ú¤{Å-ßÿñYÓ¯eaýÊÄQ•Î¼k¾\áÏX׋_õ¸¹‹ð B5¦×*×ÂYy¶ìäø¨—ã“t#¯AVáîç&_¯Øv›f¥žNQ.C)…–·9[€\k}Ö™FŽ{—µˆ.‚$M†L²?Ü•}§$ ,í5Sêéʧ¡¾…E¼í³yÏÄŽí{­ý<‘ó[ÒvDA–âiš¦.A¥xµ¥'è¢<’ç’4<‡*HŽ£ Áò¹jZ¡0B@WÖ-°ó‰œ-à‡iª0´GÌ3 Õ ¢ª4PÝ ”P}Dº ¢)!RXH¡Ó"…U … <‹óÍVÄ#¼É«Û*dÈ~q^ˆr J¾Ìze_K¸âãò±n*™&Wwžo¶yQ±¬Ô'än:íZñ+¿žƒ×‰ôS}Èø8|ÈÂu_2í ynÜKt´(¤(D{¥(¥Õ65ü7H³o•®rTþi¾S—ØÉZwO•ï "¸9âQƒO•ïIçIâÙ^äµo…o—“Kl7¢‡Éž&1UoRt¶1 |; {5bÅ]ë¹,âY„Z$:͵8ö õ’€s Ô‘Ýs¬<€ƒ1pP=õø€ÞßÂRå }›N¼Cz m/ˆŒÇeųšW¯([HûËØ¥Ôú&·mn(ðZNë}{ļEßVçLÓ»O¿þy{¢ @Óy]Q6õíÐ){r²²]צ4øï”}R‚x'áVǾ­òßjýÁWº åS½nòÕ‘KjÁÊ¿UäxÑmÇOl]¾»·Oº˜9rYé˜ÞÚ’×ÞÛfÿ-ø(ç€Õ•ÝÃT§£uþœvÅøÚÐàûÊdÙ»Þíçàå³óUª)=àk—šQå‘Q_v‹¦Kb¶ÌòÖìeU'¯Cê:ánð­ð›nqÄ…»§~(òMïüýóÀÓ wí÷®Ù¦+ÎÁ*<óì)¼ÚñAù};I-Š“7ªAŸÔtˆzÿ 4ñWv5Þ•zÝå3•yyøµ9IYd]e½1¢øXXÁÛX(Ï$Ȉ$yFã¬y6ßju{;;û(·ËÉ endstream endobj 1306 0 obj << /Length 1214 /Filter /FlateDecode >> stream xÚ­WKoã6¾ûW›‹ØŠ¨—e >´Ø¤@¢hãí%Í‘(›€M¹”ä4ûë;Ç,Ëvg gÄ ¿oLà,ÀùuôËbt{ŸgæÏÒ0u¥C‚ÀâÔ™â§ÑÌYΣ›W‹w祉ëlÝPïiñÛí}2íYÆñ§¸U&I„[FùÐí}9ìMcÜ;‰²7OÂ)è"mrssãM’ p%ƒÖlóF+JYmôªY1½(8]Šªnx®ešç­¤ù«–6ŒÖ­d5ÆߟÀŸ%æ05µÞõÓÄ8¥ÏdLž´t«u»ù'H|¯`IN:Û²üØY8Ï; Ï:Ûnw(®ˆŒŒeÚ™8éì­ÈÂñÙÈ„7 û®öVç,€Áþâ6D|ŽÆÆ@›ã#ùçðk$|.öŸ‹þ7BâÏH6H˜zU½Øü &g*±~µ:ÉLÖT­}[ò©¬Zy:³ê†6E“5TÁXÁŠO>üà¸õú6ˆïõz 1g}þ(ÙÓKÝ¡ã¾ØeúÚèòªM=l#´ÈÝàg)*9¨#eŒGƒWcó®àKÞÔóðlŸ8j:—Þ½u›½—=—¼·™Î‹&æ]'罈÷{égJ%ù\Cªrðù¶²ÈˆÏsZ³ú“ëäZϧý¨Ay·ý;"ð™À!ÝŽf3?c'ߌŸ§€—‰Í2çEmÝ81ÌéiÁzí<Œþìîð©&=ÌàÞ¤ÌÒ˜8Qú0Ž{Øu¾7¾ÓäÀ4ôg±³~á%‰+=’¸TÔe%¡Èâ8uÿx®™Üa•¡tWz$sK†U‹òÿîF´’°È”MÛäÕÆj©0ÆPâÜìx ›íš‹eÇ<°’$:¿=B4hNEŽ>Â$pÛ7«¥j¸øª¨–¿³fUoPd~ή¡@A¤'.U\wÒY¬ƒýÊê\òmÃárÕÇzùÁõ 2oBàERm~ߊ\ÙN¢ªÌSvDéÔ­È Ò€Xé…‰¡åšG¤p‰¨gÇJŠôÕ]š”jKƒÚ´C§{ÜQepWAî'Ø*ö,l ¾¹Uö¡›}K Syßjºd';ð0ßîSÅ+‡ª¢ÈÝÙ…°‹‚6Ô,¹È×mÁŒ¤Á¶vTú‚nT‡B™n·LóÅ_ßîŒF²íšælþ…—‚~1Jß÷m¹tòŸ¡ÄwÙnN´·¸pòW>(îƒD›¦PÛ¡­m> stream xÚí]oã6ò}E—:À†IQ”pèÃÚ½ÛCº¹¾´ªØr¬®-’œ4ýõ7ÃJ”B'Ùà>^~09‘Ãá|“ÉÅÝErñ×w¹y÷õc/ Qd*»¸Ù^È$:Í.¬”"ÓÅÅÍæ⧕I¯~¹ùû×2`j+…ÉR˜Çá¬Ûæ*MV÷W™Y‰MµJüæ]Â+ùÿ¯?hLr­v³\+ @MsÝ—hÊCÕϦXPj3Qäj\~Wvåz¨º«k-s CšUµZî?ÔÃ[v5<\ÉdÕ¸ÚW‡ªzê íÕºÞ>2þ®"(D­vËø4da5•®Ê+¹êêòvÏX[¿6¢Á>€Òk`ja Q mYåJ˜)°¸ïY_¾gާ”(È|œ¢jp{i–ÏyJ‡´ÊféèŠÑu¥‰Z’:‹ï­¡ä†E‚Ð)‰L¢En_<ù”¸`f\Èg³@.{à DG˜e…T£y}¨÷{Ú³3>ðO¬ƒýÏ\™IôÑDRË þ“x V¥ãŸÆÌ xËÒs,•”OgQÂf6 Z_âf©ž$)VŠÌæç ¢‚ðÇ›°¾rn(/8Á8˜¼9º}âq,™ê­Ž…fÓå‚l·£Ôt^i ¼q>.÷ g‘Ìþha.çq^<]Ç©­P¹Ð2XÐ)&f²Ø©]úšâB AØo¨çršˆiÌkó7Ù¥T@V áÉDÌ…š$ŒÙ/u°œ“@ ‰ï6‰ŠF­Ò3ھɮǵ;]J´ æ¢Å¢T,oûWÌH‰kzVcµüo2뵦ðMÌš1(—ãjä'{’T®Í ê)¸~“D½ÝFvQ@È;U¿ÞnáÒ—-\þ‚…›m1H*÷'WH ;g2‘dË,¤$BNŠúö åÉ¡U3Ú[5;F¤ÐÉg&7÷&¥'D¶iùóã XÏÎU ä ól„qÍáKR•cæ<æ4w]ùl…K)‘‘„¦K†¼‘H©R+ g“ÍÏöò-læ>¦ÛJètô/Çrý¹¼«8Eá±Y0JÏÔT¡ü‡ò"Ž`1âÐ&PGqJ¨. ÊR¼+±ï¥!åfS#¢K•Šbžì»¼Ðø„Ñy¦‚SÃ|oøM9ŒäÚ.™vYm’%$'ó¿E`¡s¹ú¥.Õ¤?^ ¡‡°Åjãäæ”n[_€µ˜Å6+aЕhl:¦NˆïÈë9dƒë/j0Ùaì‰ÑbRpe ï1vîÀ70明-A»¢Z”v%£ÊÒÂ×þƒžF\i 'L3*¿Ý%<1¶MX´2,Æ(›qý6]‰êø@R€’þ`õ¦ÚSû¸w -¾ ±ò uL%¢PY 58÷ó…G“Ûˆ–Y¾«Å1!›ßN=+yVb± ?êícù{-ë,¹^øø¹ôê”nÃðŸ ØØòÀÎŽ|v-݇é Â¥~é%ܵù¢'èDEübQhæYºÊ/cBñx»Mò,…å $ýãU¡(ùò¢ôÇís7" €fŠ¹ßx!â ~%ß|8#—5c kÆ@ƒîE¿ùðçï?Å®ÜLùÜf»ûú£ûlñU§äÿÏ^£›°²FÕôwéï/qFá&»<“F€òå¢2J¯2´ ^eh¹¼%B¬³¯¢щÊÈ'7E?É_bu>ˆ…§ªîÍ.^w>]%µ"M_¸6w—œÙ,›r3Ç/ÐU*Ôôb"[ýçÈ~í%=çtxKeb¸‹lQ °ˆóóyÝÏ9öˆ9þÜGãÄ’± W™—aÝ'SÅæP"v¹“‚rûĸ«oGð-]Q¸œ I>Æ^¶B¦öå»ÿTH£APF-jF iûTPa;pææݤ®p2™œ–«kƧCëóõ]MÑ4ôü…èô€5Sé߸+Ò,Îi!7ö•Z ’¬¡³ˆn\5UjºÐOÞ/©øÍ1¨ŠT/šiЧ)<óÂÅ “Œy0?>øæ²Þ6eLàPr3+ÉÄ8œ‡ÖËYÏñ °Í¬ýž˜A'ˆ-ºóGv >§ ˆ‘[üRARBErèG™¹Ó,rŸ3YYë³(ëiÝPχT^E47X€Ì ô½!°ô"ÃýO†&G>RMÑ [Ø"FÆÕ‘Gg·Töà¡Tà÷šŠßr,Ÿ"°ç;ëcÀXg‰z­‘™åá€#a³ñÞÃ0gÄü± úù§úPïËnÊyµŠ¿§3¨=ò•¾Ä=®QZþ_ÙþgÊfbʦUBʦe(‚9LR‰¿–,f×Éòõ%‚|ÊG·³…ó1œ[1tv„èbÌt.¢jä«Áo†ƒÔßëÜôàl4/æ9Kñ’áÕ’*ËBs$ÎÑÓ¸çßüˆh¾ðÝÍ»YŒÖ endstream endobj 1211 0 obj << /Type /ObjStm /N 100 /First 979 /Length 2086 /Filter /FlateDecode >> stream xÚÍZmoGþ®_1Û7;rÞ _´Aî Ü…“íA¡ÚëDYkHò¹½_G’-[R»²ÖʼnÍÝåpÈá3$‡cò.gÈ;Ƭ„Ÿ‚Ù×OÅH}CÎOú&˜/&EÁdªo¢)©Œ@àÉá;(0¸¤’<&!Š ª`©#ñ(UªŽA…>Ä¢Q1”Y¿zŒ(±(EªˆÎá÷AE1(.•bã…U]†%’ëØb|P…Àc|¬³q‚¢a@ÎU.>˜æKr˜@¼aG*LTÔ"†aRTP59ƒ*ªŒú5–Õ|j»—b8…Êç ôÕ9qu)B0BEG„hijJÁzˆÏ^)õGu'•¡*σŠªiÄØ< #±š14ÁŒ„©RU )¹ÇH®Fè×\€)¢Â’˜àRåƒD8@©hWŸàCà1CÊ&ˆW5SUM¬iTqE ªÙÐ:D§’30”²JÎxWê’á1ºêŠœM„QJb”so¢¯>ÎÅDQèc„¥À—êlE=ê»hbvŠÁɹ"p¹ÚScµk§ÁÙX$€ ›TaÊÎÒ ÀP<1–.@³$ºk˜yüÀ?”±oRÔI'ExU‚N &%”÷”ÕïLd²Ó È” Å&ë#(1®U ›,ä*¯˜¬…ªTÔw@5`Ggg£æÝo7­i¾lGÍ·ÝlÙΖ Ý· {ý|Ôœ·‹îv~Ñ.V{¹¾ûg{9ÓýjÞ;¼ˆjRñF2ÇhÝŠ~Åøj6ë íý*hàÕ*h(ñaôõ×[óWÎQóöö—e}þÇdöyÔ|ÓÍ/ÛyÅ}hþÞ|×|ûžêƒ*v±4ïá “|±˜`mÂĶ¶R|¯ÌÙ™iÞšæoÝ»Î4¯ÍçW3{3ŸÌ–ö¢›]éïùõøK}Q‰²³0 ø °$›°°K¡âa•Æ {9^ŽíÕ||ÝRí5ä¯âð¹i~üé_ö#tu°¸žÝN§2“s•jØ€MÑ[YžÈ~¨T3Þ H„2ð 1(ÐúñU‚_?`/¥µð7@qZãC4¹õ€¾Vó4ßÏ»‹·-Ö}ýÆ4ïÚ_—O‘³ƒ\v‘ëùùÈ¥ð;€Ýì0C÷p`ñÖë*†h%bEà1Ò“ÒÉ׫k^ÕšWËI7kÞ6?œ§ÿ¿ø´\Þ,¾jš»»;{Ý.ÇWÝü/7óîߘÅvó_>‰—#@²Í|ïöâmF:ìÉÍ èæC y„‹Gˆy’GÀxÀÂDÚþ4”0íAI9%qß(mˆ¼!ÊšðnCІðCC¢dQÎÄèl‚Q«ª"×YTBŒ½MŒ€!ÛŒ”w¯HÁoɽ¹þ4 I‰g£ ¹ºûèqÓ.»á4A½h †{M2cE¤—&§××j’³e-gÖš *°¾§kþ3œ,lI°ÊY4ÿXE;½î.Ûé €v½yØ¡ H›žK%þN!Ñ]M¦íÞ<Íͼ ª¨mD¤êÉí°¦ŽŽÏÓ‚ëV<~vp·\9??¸r4L±z(Áñ̲ד_´¤g¼,N ]}=þÜÚŠ³Å®§Ë1ž.{|G O¿sˆÙ:G}¹‰¬Ë±'·D¬œïËM…±µâ‰%ÂVò„Ügƒ5È.Xƒ>XeSȦM6ÀÚÎSkJœÛÌý}Mpêa¡—¨) ®BÑjÿe\ÅKÄwܲ³w“Ëvð Ï…€6Ö å™¸Œßé 8—!óÌfÞyPôV»Cm|BQ¥—6ŸÆ ¤Â_¦ãK*%X$œŸþNš§ƒó½tšv7í±De'<>"©£€ Ï püÂjÜ…,X‹3ÂñÅØÅ|Œ÷vÖÜŒ/>cþÚ.–“ëùøîi³/‡#À¾Íü×ÄJ:µ}×BÏv{á]·:Á훪¼¸a¼%Û 7t›bÜþoKq_¢(ì6CÙ%zGGÙâÞ6óGÙ}ܽ¥ôä–­+}e3k+ª'3Ž%ááz-OÂìÁÛ’ê?v~g'éÍåQ;ikô&´ŽŽ'(­òêêæcãcåcµ˜ïq†QzÅÿ"Ü n)=¹½^¦¾Ìz£z¸{Óó,3t÷†)ﺗⳳ‚^°×¬À«sÎêz}MȆƒ¶#uakýk3‚"4is'Yçùˆˆ|tâÂY߇zÑWÿrÇi¡]àG^weŽL]íÌÞM>OntÙkÙ¢OÍëvºÿŒ”ö©»,‹ ²˜þi…v”‚Þÿ³V½@Mäp÷ã||9à-J?§]’ZŠáĶh2lÿiZp¶ú—6¬þËPÇ'½R!(çËA%®ng³vú4£óúþ²_|Ûf¾ÏѨ(ŠË=¹} 6mwvþý³&• endstream endobj 1330 0 obj << /Length 1834 /Filter /FlateDecode >> stream xÚµXmoÛ6þÞ_adf1#RïÅ2,kÓa]·IÚ~Øö±h›,¢d×ûõ»#©WËiÚnñHÞñî¹7ÒÎd5q&??ùéîÉÅ‹€Nb,˜Ü-'Ôqˆë“R¸ñä.™ü1]äÙÌs¦»YàOI"Ò’Ïþº{yñÂ;œžCIXÍâû¸å‰cšÌÝÈÅå9 Ã5›~Y9®ÛÓ€Ð0®åb›ò…¸<ãiz6rj·Þû§ã;y1&Ò'Ô?ywóözD¢“0 :2éùlîúÁ´\‹ Gþt1S»CªÊÐ29 ÷ã˜/HÆ7BýAÿ³Ç%.mTåY2f@Èâcì {Дøóüû~™ f¾3hÝnFý)Ž3K€W\¡Í8ܯÕC@È \ 9 ‰úX\aAð \…ácqAÍfiÉòÒ 6R)™­ˆå :œs×^J!–È‘ÐH¸šWU®óÃPaÜô2 þÔ 4"!µ©ö~9Ó<]®f`¶2ʼ›¢X¬Ë{^ ëy6…;Ç÷ªáƒ¸6bÈq/Ä!‰¨ß÷ÂX>4‚ˆ]@€~Ž"6:tm¼'5Øïf”Ò)çEis㊘ïûY̦¤õ㨣ràw‚:„CkÙ•:l¶e^Ê…aW%/¥R8Ò5ðßÀ.u¦Ïøæ¾ÉJX¥ÞþúÔ š;ŸÉ6• %˃™S¥ˆ)àd_{SŸ3 š8˜û‰t)°ÃãR0¬gB°‹‡òŠiØj:LäN¹ù,« Â(Ï Uææ»È7Ûª†0[ȼRfB,qf µÆÐJþc·nWU¡;WäÕ]äq†17ìzMß‚ @×yòq~H¨Q5΄)‹‹Â~˜òí6= ºì¦JK›Ø^ŠºnáÍl2:ÎÜ|í’¶ÙA‚˜†y°!j´à¢k»sý‘o¶é‰*{\uÍ„^&! 3²¾ùÿiÐà««:NCßvmqÁ2OÓ|o ¢6FS2M+UOÃÅË¥ìÁë­XðqXƒcÌs[ä€Êª(°òŽBî  íDso@ ¡c?p"M¬šP½EVJ¸Ž¬Þ Òº”! ‘!b7s5ÐS—ã²ÖÓ´J9†£·F£hžÙÑý¡VѶ®æ£Ð7I‹Dš¯d iÁ3©±)¸(ló¢£ &ªQ€M[h.ãú­¡v˜ºõ['öŒ}n·—U"MÌ!nM±eâòìÍ«×gçxyq¦å¥^óÏ)³Õ§3;í9瑆à†°r40 Qð½ôlÆ m³Ùß³§Z›‘êØŒ¤¶ÚÑz€Æk¾ÓÆ'èkÜóýÜ|Çиù0†§=*¶ÚõÂu,b¸©žuzÁí]<­Ù¤:N˜F (ꈱϷNŠðû|g—ÛŒíÅ)Ãॼ3/dÔÌüö -8HìjÂXpi>D›ö`þ O¥—£ºB‡´STáIM³ù®¹@´;<¸ÿ´-Œ×ïøž|]¶¯€1)zÔ¾(WPÊ2ãÏyìê…aÒà±ëÃ/áÏihΛ@7/:egIʳó³~•zufØwî MÄG¼f«1L˜O£G#{#2z¨‚5ˆô‘–ž°9’$ªîM é±R#T·‡ •—ðßR*ÿÔ]È )”Løñ blð³–Ÿ!Cg@fl_$Ã~%ð›è™7âêÁ'C¡ÌG®-Ÿíb ¨¼:¾> stream xÚ½XYÛ6~ß_a¸(àl­nYAý4Ù¢E›ɾµ} %zMT‘òfûë;ÃC—eï  ¯5¤f†Ã¹øÑîì~æÎ~¹zwwus%³ÔIc?žÝífžë:AÏÏsâ Ýå³?Q|ý÷Ýo7·±×ã ωâô(žŒ—ס»8^ÇÑÂÉi! Ê\¹f¥›Û ˜­A$@xD’^ù L­Ž£–ýËÜG¶¼^E.è´DN$ÙÀ—Êš”b·Ñ'—¼(yíÀÿÁ0Ô´*HF7sRsPé¡I`ÎÊ÷œÔ[ëExÖß@2i%õ:¤ÔOúª‚êÁÞֆ”{Ú· $’q#´kʬIòFkž3|A 3®ï›-¥8³‹ëUèz‹FPMP‘‘"CGªÃœ¿x`r¯ß(MmX¿|~§‰‡=Ë CkªÐ¢B’2'uÎþ¥y«¢ÔTÎv;Øl™Q¡'pÕŒªF³±Ös4J{Ö©·ØÕü€”¯´ = i®©9rzdÊoBo9X)¹¦”‘-ãuMEÅËœ•÷ú]Åoµe‚Ö ½‰sŠ­Ðú¦LìÜg\µ™ƒ›æ&³ÛÀ¿‰†øeÆ% K¡Þt …ä •|÷;qÅÛq ÃÒ'½Jlð‡—¦i›Ë+«ý$‚ й€Ä8pN9ž&Nz0Œ2Îè(#5ˆ2N >Ì(ÞH£rOíÂò3[F„]<®R½3C}.?Lå˜Â UU<ŽÊIÅ Ù›Sa¤¶tû››0ü¯ù~Z™R?M¯¼EzxnäÄ©Íõ8?B7äGè&½üÀ·SùaÇ7·oÿú¡Ë™á’é÷é½uµoo"™¿cG~Eß^û¶‰·–×DÒ‰~.öüAum“‹‰©>žñ¦0I¶5  Í +G™‰Î½X8ŽÔ½ä’Vva^·C%Y86…µï^VjórZœ ÓIMà.œ] E‰¢B6ùãÆ{ë<÷cgø£6™¢jÈwÜ`ùñmÿƒ«.MSÊ-Êžç+-[à/Ï £ׄ‡±Ò”ŒçøÑ%:>7¼`‚e Ü%”¡M™àN˜$Ê—GRhI`öÏŸX@ù¸Ï@kÉÓ»$¬/ƒ+Ä'š·cžhý„Öl,áy§öŽy’p¬u5ð‡ÑÍë‘œrKÝ]ð:Á± †ŒMUM1FÄélhÚÎXOˆÂÇ üÞN‰ÈI¶uŒ\]û a§§çË¥N¥ŠÉ4ÇŠŠ7»…^Ì6\^KÑ»—¥i_ߛї¶®Ûö]Àt5Û,lOË0ö`Æ#±LE/êþó:˜¼‚F%™,3-NÁÄ>ÔfeN+ _¥l±´j«i%©]kw{_ó¦2н­_Ž­­ÁS¶>¯¥Nyëe†õFÞ"4¨>Bøí¹äÍ#†‘€S]²²á ó1të4|}$ˆ·…aVÆ Ñît  PuSHuâÐÿæ¥á,Ê_'‹È¾u<²_jиN¶*ÖÎV|ÝÙŠ#}G®ÖV=«Ÿ<ÏufêI}ùA*~Ôoþõ¼ÝÐ5âZ®©Êë!Î5QC²gžÂºv/m‹tÑŒ³úñ™’Zpƒ³«šçM&W~Л·ØYßV.ö …ø‡ø´K` ˆGEkñÿtÉ·Êl꫶9Ý¢lQÌ mŠþr¤%øŸÑuà:®¼þö%Ùæî4Ë{#‰{Èzj¹qoO^3´¦­è;>}ñßFõ‰8‚ÙÍTÈL„¯‹²ÄFpažØZ‘ëùðÌ¥ÂÞ†÷÷ùGåàÒ«n4¤ÈÏÝ{Ë#­Ç7×O_Få -B=Í/ }Þ‚ßk´,nÓnú˜-ö®pp¤¢ ïÜ* HFÏŠÂ`cpùÞðºõ³Sl7 u3Ív£àωÏq­$v|/.hîv°½e[ñN °^h|3ÇßÙæËùQ=‡àfJŸ‰Xû[ }~¸»ú§p endstream endobj 1343 0 obj << /Length 1188 /Filter /FlateDecode >> stream xÚ­Xmsã4þÞ_‘IaHgbÕò»;äp×æ8f¸ò ø ÚJ¢[2–Ü^øõH–ä·8I í¸õÆÞ]=Zí>»©»Ø-ÜŇ«ï®nï#¸HAyÑâa»€® ü ZÄ‚ÈOùâUÆèMஞn¢pr\tó×ÃÏ·÷a<° \âDºmMÂX©\¹f¡Û{ß_$R7 ”®ã'¾R–wzž6¹¾¾¾qB×]5kA®û¤×ûÓ ]ù õsÁ̽F”oY]š{cW°Xžs-ÕHcEhgo >ÿòN O¨hÌ3éW \4ùA‹¡Ú”Ü]†&:9úí·Î삲zm¼di…6òϺu™¸ J“±_½»¾e*Xä­´îP (*1ßdj¡å,×Ë'²Tjƒ¥<;#×IÙìă …Éäj\²'<*µA4l¨CÐcM¼ ÊìqÐ6jãçºãP~¥]Ê<ìúé÷O© Ì©Ïn¯K0Ì3Tdãäz&b¯¥#ÞÔFõ‡_'_ÆʪÓ qTV¡»APhfÞ±­‰.9aÑ‹2¬Çm0n–ßrmýo2VÛD£d#^¥Ýl Õm Õ“š3 oüÖõ«ÐãBU,ýß%ý‡’­‰ O'Mâ6®MU˜¯©É ñ|Q5Ú$êkÑ>y³JT_^‡vùW!eÏcÀº©ÄpÐ(âx0´Må­1j%ß*ÈŒV:çBI±U ¼/ïÛúîIáDòI¢¢èS‘È×-§‰lªðuÕ´%ž´)þ¿T8x»Å™0Ë–LæNáœ9¿ºlÓþÐ¥ý‰¬/±Ø³|³|ÿ~9Ì›Éé¾ÙÏÙìAvç– %a<2ÙæíÇ/Š‰-+ïÙsGÊ{›wbo{ÛЬg›Œ5…)ªGÜQZn©h_£¹ vH«W¨°¸:Ê—.ÂÈAn±Ù®qDŠ“9@2‚©às¡:"9…lkÉNê´[ŽÜÀ»HO šûÒI^Íb ðÖŸ¾^êø×£]›E…Ì2m$õ<„ç­ÌBÕžtFúr_0¢Æ&õ×0iBè]°AÓuäÁÎBŸùŒŽóšÍY¤c¯ùŒN¼:ÐA}³úØNm$‘ñîû¾$ög|JzŦªN(úº=éßÆHJ8ÚB89YÇ£Ï'z NçôèX-ŠÖqxáôJoìY~á˜G0Ö“=ÄŸE0Q ×IÒ+õ´—€ØM^ÇÚƒ D*ÌïÎRìg#IrÐç—&¢AñÛüªe?(g×ñ.­#.ä*\ÌTÍÊC G`.ÆÔô£{gœîM÷Ùè›{ŸÄ+_£ñ“H¢ÏöL°’ü£xV½dk¡›ZÅvÜQ;üꃜ‚)Ÿ(|~g^¶«^µ»TOÄ3ÓBV^1š·ÝA)íjÖTülƒKQ”tvtJ¶…¢zG$¿wF’÷z2ÉÉiÝ*ða“Á9‹+ìqãÙ²³Ìd>ì–ß‹ŒOSˆ®yz_<£`'¶“p¢7„cgŸÙ/ôýp–†_›ok?þý`ïï®þaÚ endstream endobj 1347 0 obj << /Length 1279 /Filter /FlateDecode >> stream xÚ­WYoÛF~ׯ ä•‹æò”M")ܵ•¾$yX‘+k2/Gÿ¾3{ðP(ÃrkXڙѳß|³;k†eü1y·™ÜÜzKce®|Û76;ƒX–鸾±$Äô•±‰¯3/˜ßüysë“^OÇ LiÃ<¢O”gsך5sß›™ß,ËžÛhÄ›±¬NqüÄR«ÞÜ:ŽÀD¾‹-×3-ì%9ßÕÕÕ|áúdV—L ¬Œh}³< >DÚª\¶1/XT%GÔ,ð%=Ô•Ví•åEÁZqðThKW¥ZpšEjÀ./¤PVuÌ™êCäí`÷ûZË\y ±˜Vó…gY³ß²íœO-ë‚…Ó÷Ÿï§×òׂ‡WrÆÃLË«†&JƒIi_bûgUf›˜+²ì!‰ã’Cg$’h{æÕ^JÊA©Ü¿ûø |ÉeÛ‚+Œ{%lyÉ»D÷éA% åQŠÎ[CŸ4r)á!|”VÆ â—ÆÔ 5\‰8®é®üáz© ãín¼ã[=5k5¿;$4báíïwë6&‹ÑeNCœ ¤QcÚ?ìap4ö@ò<+«¢Žªüaˆ²ÐmÂÎƒî¾ ô¾ÀÍÃ~Œœ-¸/@õZªöñpGâÂ)UÑ&©ŠRKUTî7ë”.l[ª ã^ ¬*h´Ï én=¶¢A‡B›ø¨¸²‰‚7ØXpÁQÍ_ÊCªAÛòp«åˆ‡Q &ã‹8øV°EØŸiñîàÌVT'p~¾?ÁåýGÙòLlû&ù£ò8V¨ˆûÉ â> stream xÚ­YKoÜ8¾çW4|‰ LÓ"%Q>ìî$ ìe‰w/;„­f»…QKJŠãùõ[Å"õ²ìq:FDÉ"YüêÙáæ~nþùîïwïn>J¾ÉY.…ÜÜ6< YËMÊ9“Q¾¹ÛoþM}‡Á×k™ì·0×"O]÷§ëßïþuó1I'\â³4ƒ-ìò$Ç)ïB·éÍÇ(šÌÝF½SÑ5æz+’0x(»#µº£¦ð+Oð¶óWU½nÙ‹ÏævÙrÉÂÜÝð ÓsU žåA›i;"é•éÊJÿøyOz_ª7–%±üqQFoz¬mnºciöo.Dõím%¨¾ý íõ¶ÛªÓÙ‹«-ÿ¼DR{թן©9weS«Š¶´kmë`À|Q s§@yëûÅaIl¦T»J·Dº/'VÛMoËX¨l°PDÚ5¸„Ö}ÿ•Ëº¨ú½¾äÖ‘H4ÑUs_ž€„_ð;Ú”…5¿@Èf/ˆðnømϺ(ŽˆµÔ~×êŽV6Gëú}‰ÒÂÎÁóy8–ÅqÍ‘ ãð2ªRµ4•W1¸6J¼Tx#7µ=6}åÆwNêà¯Ê“êôþ†nòõÒ-ŽÊ¨¢Óp9žãyŶQ`–æf‰(0l¸f3û±Ðúê<­œZ„“Yì·ÜùZÌ Y*?¾µ8ÇT»Â;JX–Ž¬«¾¹yPõM{,×ØoE&™È¢ù#ÒëÂiP¶ôuWNƒ¢7ô€:pptÞxxŠžž‡ó˜ÉTú¢×ÎÁN>^sOÌ’‘É®¸˜I’\NU½ÆFÄ,Ó‘ÍV„jØÊÝbˆ>øx*0È« s–eCÜgÁ!‚ ;Dîœ`ÕngÕp¨‡÷‰"& ¥÷‘Äâ“v:òù –®jß_`u!f¼HCD–è!s™ML vÈvBCµ-ؤ=MÅ=M¹» %¨ý4Å•Ù¢¾ÞkS=[8+Ÿ‘åÓåvÍò<£k<á   yå"j0\—ŽÁ=nóWY—‡k—ê:>x\G]|vóÞ8zns°ôÛ—€šçÐ8b)ŸËÅ-Šá)ª¶¡BÎRèã_Û3‡ýò@ß=4›MÊO¤ù9ZÇÔxîþé±sð çŒVÞÑ9P“LË¿ëê‘°ntEêaxí¢Þ‡£®W%jï¹Ì›VÞ ÍYòQI_Ò'‘†, “¹BQÊõz•š8ðlÍ/gx7 ê©“ÎF¿HtçpqÄ:\òÙÞá"yépmÀppûõì äp¶-Ýp‡;ÅQä´[Þ]c±d¿ªøc¹F ‹¢µº-+žÕŸŽ%50êÀ¯ªØ&PíüvÙÄœ[’• v&~ˆåškåbP3LcÿÒ‰nY–„Dl=E"RŸAbžXÿŽV÷öyC µƒç±Ïùg€¡´˜]`o užHU¢Ôõ÷øŽè"vÞ"žz @d”†fÀ Ñ¡3]HÓh§¾Ù(ÚÓœ¨C®瑶8;MöÌžcüdr³­,‘ó ý¡eü¡ÖmKÃÙÑò¾.1/È$ÁЀLŸ!Ó-\sRàòô5ДÓÀø9ûK»‚ä¥úC–îÐê|®à) ûÝ…‹ào¯±Êãó¦~’È#¼~vaû“8dðEß•’Õ§Ë.æ™*ô]¦ ÊÓ= ü"ƒâú$z£ŽXÄùö¦@­)Ÿ„K;ßMóHZuðst»¥xÛ-ÂdH–ÂÄ%KÐpÈ‘~ ÙýÇ¡d¹?PZå8gâ&°;ÉÁ ·p ÏXÜáÑ' ö¹Ñ+0–‚ôI|EÄõX+Jó©™[Ñ –pP,D¾ÒV¿è·¹`i´„©ªy‰9㑃P4…P4ÕÂÈ»OlùR4φê%™1 À£Œ WRG‘±$ãk'ËŒC°0ɤ~áŽK•2Œ$d’çóç÷I¸Ñ]oj½÷•‘{³õjÐt³2õŸV-£ˆ#Æ£ä§ýbq=A@ ¸böE6(’“0Zº‚ |Ç Oº ONƒ<è©šK©À°_®ù}x@¸íX¤›Ïeõ cñ hÞ"c›À×è­C,æbZy¸ò¾]cC ì= jW+(«8æqÂ"ÿŽ9Ëx¶Žc[©ÝéЭãwQá³Cõ3™Y–D¯‘!„Y)Ëód® ª2Zí]jBÁHé+ñåÒi.ª”.¨ÄôfÈ䇹Ÿÿ{ÍÁ¡ Þ{/[¸ø%ña :âÆ Šd}ï÷—cßQVekÿóä1,åîZï"„Õ?x–ÚìÿØqKDLÙôV/@à.‡,:êcå™ZàsÚÞh7Ïè/}iÆ!›þHî2%9-MbïI¦$ ÷Ÿ~i]IUÚª›ý–õ¹ïÆ9šÝ3É¢, ŒB<<О&¹´/œÛºdÊã¨Ô4Í ÝÚ8OS8TKs) ÈÆø! nˆ7?ÃѵëAHl—a¼&„×HþðcÙÆ ø©ùëÈ`’§Cš œªŠ—ð‘å˜U1àd‡Þ8èàÝND.ƒ(+'¤m‚éBV yËÌ—P""Ï¡¨ii褬óMƒºéˆæ¼1®íÅ]’ŒáQ£1„†qs»Ïÿ^ ëþ´³¾#†­úÓI™Ç÷ˆ Tà?-îLUWŒÝvØpÿMºé+ÿâ$ÿg–¹ÿàÜ’Ù?_óÉkúáîÝÿF endstream endobj 1360 0 obj << /Length 2716 /Filter /FlateDecode >> stream xÚµY[¯Û¸~ϯ8ÈC!±ŽxÑ-iº›½ÉÛœ"(š>в ‘%¯.{²ûë;ÃJ”-IÑ>âeH‡¿Ž£»wÑÝO¾yxrÿ}œÞåažÈäîáp'¢(T:¹K…•ß=ìïþ$Ñæß½ÿ>ž¤Š³0I%ÌceŠ¶Ùè(øm“ÄAø>ŠäFÆPqP6ã Ç?‰xÕ‹%·JGv¦­L¡QÑ|¦Ùo¶RÉ`8–T8™OÕ ¦‚ŠÚÃEooNçšË¿áڦ˞„ßGqt®Çþ3Cúê²9n¶*ÒÁߊÂôUÛ˜ºþ·ô Åâ m j7îúr¸Ò©/qÇ°Û-Ø1cÚÓB¯8 LWR¡+Ïm7”ûp‡Êz@}uçæm¬ˆà06Å RWajÞ±ìØ—{* -õ”ýPÌÀý§Ò4=uXKc[?@Ñt\Û—ö+ƒ«°è¡kOÔ»<á-ñ®ìÖöܧ“é¬ÑÒ‹ƒIƒ±jbw2‹tUKÇ•¦Ã±Ýó€}Ù]µsƒ*ÄGšu5”ÆŽëxòßÔ°-Ü–•’îÒ œßˆèD)dF™Ð™¿|º/f¬‡§$¿` TWNùñX`M)uP!Z¤bX@Üt.™~eí, õ¼øÓzlïMsß«µ•¦qæ--pÛ2Ÿ—;´uÝ"Ž+k$PeF1*ѱ ÞÒç nô82ñ9R‚5ó(‡BŠDÒÚßÂõ!‹‹çxºQð¦jø Þ”ûÊLóéùÊNðdT¨åþ„‡Ÿ( ;m"Ý%ΔP8U ²0Nœ$°-· p$Q6ÊLL {ð5ñí®j³«7@IÔsh;'b?ý0î'<æö•˜˜;!æ¦CX¹±‚ͧˆÄ#Nl†è©}â:*jÜ1qÙ+ Wdâ­v8PyPþ:· ¤®WÛ™&>^¨‡ÄÌK4ûY³•½MzÂ[=á{ë:XWí´A™Yטr¯×êŠR³®ØzäÂÛWá—€7bÔªKÔJFí/b ´¿¨ÏaVz˜Õ©Ã¬Nfµ³©Î¾Œewn«ëꇭwCU—Ϩ:c†ñ¡u<ŸaÜp¬ºýrÉYtCë%ºY‚¶í·mÎÐ^ábÒ\ˆèXž€ÕÌA:&iÚPch‹h˜ e ø´¡`á_ƒW#óô ÝbnA¡•^·…Œð ³~+éˆìˆÑf®ÿ¼ç½üÏñ}ÅÊꊕo!ý«yZ%cKVc,ƺ¦Òz€f»¦ +`ü®ØNØv®>yÐ6ÃX›éy¡…C­-ϨUyʨuÒ+ؘ1Œâ„aˆ…dÂ6".ðKWN±~-&Ò8º°VÚÄb„‹xêVvª Þò)C±u}_ÈÏ6”û x!šûP›¡9™•-Ó3Óz,÷ ÖÒ‘0<‰öUWÃüàÕ:Ø¡rã@ýUÓ¥ÙÓ0ûÚõçyûê‹ Ôpc9 ïç QÛ7è=¹J°fŸ»² ÏÇ‘÷¦¼~r°;ý¹µ§–hР‹XR{±¤²dE­§ÑF PÚqŸáz]šžçˆyÒ–¾æ|öÂåÞÍDÈG|Æ𖃳©JŽge7)vKTœ×èOpûÕmB‚Þ¼‚¯'´TMQt%•à·ò”þ˜À/œóxp=~ˆ ×}Kíű,>NY0ÈÊ3.OÂ$J§‡\Åäõç—ôýU,ëÓ• 6ËWnŽå¡«‹æÓŠ§Ô2TzzÉyAEG! K¼¸¢ë,ê hïuÁfºî§Óò³5‡vt»´kT,è¾t>%£Çþ¢° -–ÅÃ&·,ÄZà†œöo?n0æzlʾÿ‚‚N:‹=Z†ŠŸ\ªÙµh ¢4jz¤Ýfd»j&<f±h„âàV0=„gF“í°ÉÙ›Á°°›¾i»{¨úíj Ú?aêl›D l”’Cć·Ò‹ÂÜÓ{ÑdíXï©Ú·­p}¬˜¢KÒ8hÞ ¤ÁM?R/*±M*™+7[ˆ¨Ó[8Æ-Ê“ gìÊÕËÁ•1÷OƒS2ˆÃu+„®OÏ®O‘çØâêP~ëðüÜ`Oð±W¤¡Ûw…á5èM…’³•Üà .I2ÀÏåç•—Í"˜jçÒ¦b³²ÈN™@ÌöÜÌ[°ã;n3ãÐ"›. Ñ`É®«Jž¿žèF ö*;îÀ5^>üýß­±LƉ¸N>Yö¼x–&+Œ-]<$1‘y@“cvkÊràó+Šnàåö ©ÄSý4Q<´Pzv±ÎLò<ßáB` Bñ–ê«M…Nbk³H?ñ0X}5É;ñ$à°?ҥ²už¹š\Ñ3šSæ×' dŠL,Nàû¿¼~»zy˜‰)ÿ÷ŒW›‚¨4äôså('w¾ p¿ÇÎŽêsgfÌØáS‡Ùê>­¬HÉåV¤q˜çú‚•¬·Œhïp¨ç¶íÈI[ÑPirÃÌ~ÐT´6K %>HÅž ‘q>Ô›þ~XÞXòðô@ऑ˜Â[…~¨Ù¡rP m@©3{Úàë9¯ÛÛŸí¼ä„^]Ìùé›wœÄÐ KÚ×°ˆu˜Èɧ£â/ŸÖ¸Ÿµälœ‡)\>rJ虹±Â†ŽD°€.šS(ÎdøÙ\¢O »oÜîqº+‹X2JP M~ˆ@#t¨òìšõŸ-"ÓÈsÎP1ö+N:á‡eâ– ?,v J‹éE´ãÃO\$“¸‰°D1¬ÿ/‘mU±@L\¢$í»ìÅaÙÂ3á‡þÎ4=xk_l ûc‰²d9gЭ°õŽ¶èü!þåàûCôz°ì­¿¨ZOq(-~‹Ïã4L3éóù¤È5O+!g=¹˜àmJ™_ælÆ@åœ1€Ú¿h;üÒ|P kaËÂZÐÀÖÂY:Þ™âãöJІ+þœ³Ž¶º®Î ©#:@a¾=ùD[9ÑÎØÓ?¾ø®2ý¶h;|SZ˜Á¨¥ÊÎ/å ï~Åù`ñudŒcµ«øÉq&®;ïžüe“uä endstream endobj 1372 0 obj << /Length 3289 /Filter /FlateDecode >> stream xÚµ]oä¶ñý~…qOkÀfDR$¥÷pIî‚IrN‹âò®¼&¢•Ißõ×w†3Ô×jÏvоx‡#~ ç{†N.öÉÅw¯¾¾yõÕ{+/r‘[e/nî.d’Ú '¥°:¿¸Ù]|Ül›ú2M6\Z³¿$‰ºTFÒlÊúx¸üõæï_½7n²KšHá28",·§¼JøÐå/¬µ“µ×ÚYa\~q­ 5íñ¶êËO¬‹Þ_J$þ”—×Ê$›Êþ¾ÙuY¡$¹¸–ZhÃ7yÛ]^ëÔmŠšqÛ°åp#ümú†&ô÷%:ƒ—Ý68—\ΩMSóÌmÜüPüÆDâèØ1ÐÜñ«[ûÃCUʺ/wŒ¨GJ…ƒ[%-pÁŸ¾{.*En ]´ìúCYÔÝnÆú‹×Ê曇bû[±GæÁoŠ¿°ÂŠž±a1E½#à÷Œ¹-º’q ´Ë}Üî¾-Ü´°"#†¥Ì0²vóöÒ!_øª¸­xUÑ–ã–@üòf¿‹º÷8[æ*Rí‘/ þ%1 ©„ÖS—Jã¢vÒŠ7¯/_¯èI…ËÓ8÷¯@™” J_ïéŒA*(‘©0øªöìäT‰Ôš¸Ùï¥@.‹…Œ–€%ÄkîŽõ/Ë„ü°ý®-ú{fEO¿E%@%U’nT¢`‚¼ |¦JaRÅì´´# În¾n>]Ó|¢Ad#Âgؘå"³Ù’‹·ÛçqDÏ\Ä#^ÆÅT›ÇÍn·ÏââŒóS.!‘䢲.rÑ%.†!š±3™Û¹v;Ó S³¹kZBëßê5þ±¦/uS_×M{(*š°ó]ßúÛK•lŽHaGÓΈd,¬´KªzU¹pÎN…¼ !}©´È²QúUý,)8L›JášX©­FÉ+IBZç›o @’éhð© Ëë4s(‰Â Ãls|*NØ‘g©ûàèpmð»Ið+Ï=/à}¿| rÖgÂïú­›ž€¢ëŽ‡2N-úa{ž_ôÅš;Ö»²­>ß•f• -š6ø}ýÕ1¸P¥Ø/ÂÒ—ê3f×¢¾Û†Á}YoËñ¨5r9¨Ñà{ð©+꣔é >ãl³?b¤¢½}Ç¿{ °ÜMüŽÆlùŒ L1®É'ŒV:¡Šè¦®u[æH G¸}cþåsŽÁæÄ»¦óóXdR8öÓ¶|èi YªŠñ 0c¸Aô4Üà˜èj&fv¬÷~‹>ÅqF€@Qum]Fr.^ ¾@!“@K“—à’¨Æø‘(`vm<¤åu¸Ýþ¾No~,K'€M}7õ]¤¹+±K[Qé]—n° „É&bT° šØ2j¢Î8áDqnÍ@Tåé–A]D ã¼+8Ú²cÒ|$ñá¡òqëÀõS“XÜÏxsóÓÏïÖrÝTdZE»`_¤€Ñ?6!™(2Å„Ž^Z’bøœ‚ƒ3 ƒâ3ÀŽã~ô–õ¨ >´”ƒú¯ïʺó”F¡˜9ãýX»pZs ¼êš)ŸÝ4ÐeRf¯1sí‚$7øP‚eT<¹aT40 ¬o ‰f¶„ÓGÃæ³îA,38=š•P¾ÞVÇ£W¡gݾ÷õî+Ð…E¥½!IšøZÍ.™G_‹ÓôÖ»a´ƒB¤k0ãOTÜLSê„’ùDã!öãV5ÃÑÓ¯¤²Ì3@`f°vƒ˜-h«Ö²D{®ÖÝTCQ:8VUV2ñC 60Û²;V=oùè+>³«üþ¾GsÅÑö¾¨C|…íÐ'Ò‡2²âÛcÝ Š˜ʾ§h¢ +ƒL"±N>µ@es ÊÎ[R°d³/ëò·†‡Aß<¤sÏÎe$3 @Ñ„»²Œ/d2’_#§FO‡ƒ [RÃÑ6»ãÖßúÊ÷ŸCõÌ©c¦…Lì¼6}ïëàaÚ9§[ôI†Vú)§D.ó“$4y-´†…BÑN!³`¬[U’SÝŠè ${Yžˆý„‘µ_ÿó»w_d¬ 5ÿ"Q§ƒïÚ þ$ªþH×(ûœWÀ˜Ã ™ås«*bí4ÕþNM*bÄrEŒ ™ Ì1b¸"F0˜ã´'qEŒ8®ˆÃÓMDÍýpkŒ=Í ù.ÎÕHšhLx»#ë(á]ñƒ@A!¹ã²ŒÉvžÂ8Æh»£íZŒ¶“”§qÚqÚÆ8mOãôÊM<Óµap&jC‘(3Íc_´iÖ¬%5ìh2P#òœ}Ø?.C‘},W»Z‹ƒ$,–™€B9¬ýÖ ö×q8m,“cý°ÌõHƺ{ž‡ãÖÈÓµ 8Lµ Fý‡rë±uÔv­5‚$ƒ_ áy÷æýÛï?¼{² ¼¢ƒ Úžc îÚ‚Š$» n™î¨lh@Ñ·õØbº· mäBN.O/Ì÷¢5Ó}”¿®ù=(]ÔÔ['Á³jH1Ê»À.ˆt+‡¥P•êႯѬ¹U•OkaÚÄNÁRÈJè|P½‘rõ¤¼Û­Ñ-Íe¤›Ä¤´UИMîhH¾C™Fæó0OŽ ¤¬Ú@¬“ƒœCéžÒ~%R=ðzÐueÔ\űΙN/4üŒ—m+3—&äqõд~Á›F1mÕQõé™È¶ìm]îéù*¤ï4Æé'”ûZk 7—@hfHMæ¨g&†˜$®8PHKFø‚»8ëL– ÉÀeH„ªb[¾yíïêbMA&™I§j¾îž@úd×sîižíp™ADˆ ÈŽƒï¨6r‹Êû:.ôQë‰\´4æLV2v diÝш LÊ“™…Ƶß%ç³PMñć¦ U›«Lbu,©èzô]<œ~jŠ¯48%ñ¬§M^æbA)Ì š }*ß»]ˆ7Šžtl¬ À 4¨žð]À¤nóÁ|U´C&¬Ó|ãWíÄZ™ôs])R¨N(¤Ÿ…}æœ}8랶HÒ¾lÔåà ÝœÇϱó+ÑããÛŸ²nû ý¨ùa#*ZÉZßé´‡´Ð¶±7•M {_\¯aÀwG³Vµ;³¨øéAÊØ™Àpa#ÆÄ€dg6Â>6¸Õ¡aqÆFT– ©óçs­f6H  Œ†¦&©U«LH†ø’P|™ÇWõÅøš8uâ“án«µ¢2×ÏQ¶‰ÝÇMÏÅÓYÂu-5Q×Ò”dé¢ï”¦ëöè2È…ÓgJ`¿’OØ¥´"S/HÎ&’þñsF.Ò$Ë«ëTÏt8åTŠ>EÔ‡o ±¥/&4‹¢9<‡•Á–m +ÄLQ=ůó43\´c¨?Çæ’Æ,ç4Å©3jŸÍóÑažç¹s/๵sJ¨ÌA€·Yd*E*ç–ñONßôÄ™™Åk‹9“å´Ã¾@ÝÆä‘Û¦z*,LLÑOJjBõ:R91¨ÝkЧբĉT-¥Gg£¹i;d±cŽßä0ÛJ }bx?ãû†¥Ýufá§jö~²aqKí97ô¢\êÄŸãBæóWœF¿“]ÖOŒÿ0 ñMnõÑéºÅsÆ-q%¼X$ŠArÊ“Y{?‹æsïr¾o¹hY†§Èµnå²?ùÛÍ,§¦ÝÑ(üãDx—^û7»,‡`7¤?cG™ÖpÜ-/Ê 7ó–ã7ä‡ð šÞù¸Ë$yÒáEš{ò.öä]( ‚Ù0MsBKÖÔNn›Oa¯Ð0rs¬o=·ñ WÕˆŽObø8ÕjÜ¥ŽÿØòox±Žgûÿð4 “Ÿ…pÞ˜Åá·ør`ø„X•Ö»›Wÿ7Ë÷ endstream endobj 1385 0 obj << /Length 2978 /Filter /FlateDecode >> stream xÚ­ZYoÜÈ~÷¯öÁàžV<ƒ$ˆ¯õ‘5²„dáu8œÖ 9ËÃZùקª«šCJ´¬ ò"«¯bõW_U÷HžíÎäÙ›'/®žœÿ%g™ÈbŸ]]Ÿ))… ã³D)›ììj{ökëÕ¿¯ÞŸÿ«IO¥"N4ÌãúM½ eðeGø$¥^éÞTØz8àø'’W½³äÚ„ÒÍ´Ö ( Í÷IF2ïºáPÖ»ÕÚ(äøÐÁÁæÝÐZÒ•)‡zSæÝ’¶oH»±¸þ®¬I}Sö{–ö¶¦.Es8½è{è`[¶¶è«[Ò·öØ´c/° æuóz‹ŸŸµ‡eQDÆ_¾êÀ~%°“ Þ6è‹{òH‹®z¶Zë0 ú=|‹Žd`»¾<änÔó*(â*® ÌËš–U+;z9‚Íeg© :°V<£6ó6^ú‚åm™o*‹æRÇ~Ÿ×Ô>ú`á '‘zôˆTd+ꜭ( !¶;‚iyå ½†z NpÍEŽ£¤ÈˆÙ,°Q7ÓV ‹óê»üp¬FõøQã¸æzéM:™ I'Š·Õö·!ïËÆm@‚kå=58HZ’½VMЂú“o°Íïc¢yö 6Ò®`ÓJK¶½¬pCH}SV›`—¡†X×QBõBUê‘•yÑyEJç-s*æÃîà°ùxv’CRñä€ µ¸¥PF±A,ãG#Ú·¤ñ~5Þ¯ÆûÕæ:k¹¹ê’>oÚÜí1NÙûf#&´ÔÆÇ­ ƒwÜáfAÜ /nií5E‘q$³°-ÇvØÚ'P1¹Ÿ­ÍYe¯Ñ‰×€zïʯ–[F?Ák2õ 4^·ÍaÞ¼7@$o€@Þq R‘kzq)vîëµ 6‹î(ô÷h˜6\|ªeæB^ /ï›–^ó:¯n;$fìL‹þ¢&ç9îå…î¶[!ºá[Ê‚TÛ’Óbðw¤ÜØþÆZ^¹ë‡mé[¾OSd¹ O˜ =fŒÇ̨ ÁÌÆ‘(ˆ7l1ô£hXœ$wNƒ®9?æm¿ô’FJ—ä:[weÏqØßr;žÆ¼c;âÝõ«¸÷ßCÞ7a¤¸†Ýì%µË§ðˆ©U°iš¾ëÛüxdÞõ}Tp¢ §ÝÛ¥p?Q¶Nû ”FÄ@Ð2‹xç(ICOIõŸ ´yúÑA=»úû-Lý¦n Ñ/ß/-/âܱĹôUO¤H IžµP×°xñæÉÙ¯.lŸì¾jVüpë1/þ“ï8‰_;¸Ü[úT>´G@¡—OD¥´üsÚ%“uã å"’XµUs<8:Â&ƒ´Hßvôâl@Á¹ B2çTë:Rz‘3”ÞA`o»‰kzÎË¿5Ô €% ‡CÞ"~!A ª7ÕD1Õv˜½j~Œx7+ë€Q©·û(Ð&lÞ{ØËØÈàåЋ ;@] DgÒª?WÐ3©Cu¬E¨S_Ð’wþòÃÖ^çCÕÿ@#f•k’‰D*?ÀÍîx‚ ¦ÝD©¤¤•®Jgs4•˜(Ê´ ]¾¼o[˜Ý5«šó›¼>ïöå’iY&bLMK€á±Èz^‡¬é@ÉÅŠ?D¥òÏ•Í!—(\=„:VFÁ¸ 3Ð4Û6Û¡(7e…|ľ†%K¢³µ SgÐüË왚eÔLÂlÏW"Rlo¨r0GQR±•!ö þR‰‰Jþ Ó”Ô"Òã†"?ºÈ„eššsÔ”qùéœß2åÊñ©ûjDB›tþÕtøÀ o‡š³ê,ö¯‡ºÀ,-ØÄxzXR0›‘"K8„ž¯"ÜÓ}ÓºšÇ¯=òÍ7]8–B+æ”­Rø”êz·‚ô&ýsC¶·Å¾ßäƒeŽÂe<žE¤ãiðÏ7_6C„]]6>…‹¦ÝýuÉë:Ì5bõÛÔz7*D–Ž»µïûc÷§óó››áW^­Ý©h\þ¡c¨Š`:•M6_-n€É‘ªh¾ ª••JªXþ‡ xQµbÐi}pÇ´Š8£ÃK𚊩!‰˜„®1où³@™S݇**"Q¢ÐÆ1˜½ I– é÷­e-ˆ ªl÷l)#byxŽ%›uùï¨f?ÆÑôû•ò´ëïêÞ¶µ3Ò! ~†7C;*ˆâ!S÷ÐÏUeÑ‘Êq„¸P¤ÑȤF.ewwO6…œfÌiXvN!ê|Í‘3ÇsÂÖgK„pˆdt—R'PT*IÎ%tשÔZ)&€â×<Õ ‹o›¯3Áˆ§Î§T@gÐ,xõy¨øÖ®Á¿_Ê‚û¿àþOé1™ékñl)£ñ?gKE Õž6QEØqeåì‚çB¢ý8<8`A¿H-VNh’ä •ÑùÇ „FÅ>snp]D#äÅðtÁúâÃK1_ P›ªÁ›‹Ýí z&ùz†‘A}ƒø&3¸/Wf V¶4|Vi|®ÂD—Ót­•YÂì©Pi8ÕOƒC‚J‚WF*¦j†X Ô¿xõOåÀ*Gl2uh‚Ç•«~ê÷»Z%aÀ=8ÇŒ*ÅÁ?Žˆ*w—‰—–Rш3éïtez"$s 1°dz¯ãÙQ:Öîê›ÐG/åv=bŽ®¢é:A×æ6í‹ë¹„2-#‘&á2çI3á<˜…n~¦œÊÇp^” •Å£->¡M'!½˜8XÎb±¹Ãr*I#$B•ÂG.À2&Vê±l§â8ÎTºLži†K¾|ÁB 2”|Qø¸Ï'j¦kì­­,¿\xíÕ¾9l:~Aþ3FÆÂÖvkû¾ä÷ç‚g}Š¿€¯¾x}ÙQù‡—¤uîܱ€¶Wy×zšn‡hèå+þu´/›ªÊ7Më¶6¾8#ïÊ;¼ëïδ>ŃÖ#ûû[è7)@}·8•‹œ³ñÀØÔî×…xösM¬±r­]åJ®TŒõ#ª(ô“Ó`8Á§Y'‘=U @šLÔèIO‘‘=&2²ïE†Ž`¿ 2td’ÿCddišÉTþñÈ¥¢È@áïyÿÕÖ]±¯òÝøÙ¬ÇÇòp˜µ¯©ÉyMÏgêþáL‡3}¿|ÙKSóõ.þKÀRé–›l$Øû¥,Îqy[ÃRô{Ò„t˜JO=XÑÂY_”z "£ï1iº³V-ñC<ëeß‚élÁ›çŸÛî TH\ï"éõÕ“ÿkƒÄ  endstream endobj 1392 0 obj << /Length 2345 /Filter /FlateDecode >> stream xÚX[sÛº~÷¯Ð¤í)5cQ¸ðš©ÇIãIÎCìžÓKú@Q„D"^”øüúîbŠ´iÙÓ‘l‹Åmñí· ±ÉzÂ&ïÏÞÜÍßE|’úi$¢ÉÝjÂóeMbÎýH¦“»åä?^^Ó€y‡izþÆÄT„Ð⡧Šv7ýïÝÍü]÷f ÷ã–0Ã#‰*gÌ.:™ÉDb÷LÄ0B’ÒíFŸOg’1ïÆ7îÝMæ•ÅÚÊï¦q๾߱/ëúþ5å"õüéL¤Üû æ½WESVá“í{ïSç2ŸT8ÈɽëºÑ»¬ÑÅštš¢A;•$ÊŠ%Uh‚¬ÒY‘[¥UUîŽãàÀpØX1 C:áÐp3°ÜBU°»0öêv·Ëª{j”+,#/£æ¶\ÏŠ²Úe[j/uÝTz1Ìk]>Ù? {ö<ð£(ppÛÀ©àpyMS˜S`åC3åž~(U­²\Ü'g±òîBÏ­JÔS‰|ɹSàrd’Ô\6sÆY€¶ÇûI¤òô‹Q(¹9`D&~+ L¸iš}ýz>_–Ú/«)O¼õœ3.Ík­}¼QÿÀ¥_~–v—ù0‹……Y,½miEoȢˊÿéÛÊGÝZ‹·Gò'z£»áÿxÉ AXbÑG5Œ TS—¥´˜Œ˜ôÞªFåIÔ0ÄJýmÊ™§O? U×c€C ‰8ò–Y“a-va*O »:TâPB>HuSS%Ûï·:σ¤¢ êØ©&›eE¶½¯u=OÉ-Ñ#x"Äq‚OªÙ”˺›•a ŽøI-í°yŸU­²j*c/ÇÃlF0«¥üŽ?M:)^‚ãØâ÷À·d.#f.eßMbŸ±Î‘†x6Xæ<Žç ÔE„ŸŠ ÆÜiÆCéGâ›»WFÆÆMÆn‘ô¢ðM%d”"ˆ³Òh!ÌIL(¤S!0ô¯W‘ ‘&¨õª¦jn¨* EÃá:òv›5jIòUYÙAM»ÔnX¥öee©U@宫P¶Íl ×y¹ƒµxŸ…["!–õ}Ý(dóœÚ•ñ•ƒ&—…%™kÞ fÙVâ §@Âòj« B¶®÷z©vºÜ–è‘ëû1úV Exv!ë@±—À.q°cÂKCŸI(Æ@‚çDé)Ð1Í¿ú_s8™Ú#‚³ÉEž„eRXä}ä!鉈gŠ0íj”ÿ>M…çúˆ7Q|ƒØƒ „È ‰zŽ#±‹ÐɇN)‡q&!nÝ:Ûí·Š„6†ƒ”˜ »¨fÕ’– Dh}ØEt@KžO-€>a÷»V"K„ÚÝÊsîi |ô{›¸Œæh8 ¾Ø]à›OW4 Ç~Écö³*H¥å–iæfƉ§ø"‰_L—O£8IÇh™ AöÛØL«|Ó,²¶ ÂK-óaÒבs‰ô\•Å²u™^÷ïCŽÂ[Ä®ÏTüÐ͆:(+´ƒK Ýgù· Ðrȹ7šŠÁ‚$½iœnš²/«7Àá0q¯¸-WÍ"¡±gDû`‰—g_ÑK0 ûÙÞŒÝ~ à^Å)nI"Ï¿Öµ`2òuú¢aÒ%àYÌ"_&Ö JÑò—Ûº*kR°Ÿ»©6ߨåÿ"ÐðgH&/‹ƒˆá} —Àß‘<¾wÎMÌÐ=F,|—=燿Î;ÒØüë#Ål)yÖ'á1gÊ¿Q5kð‡Jˆ65µ >…¢–ù™JrH¬ö¬¦±Vj½.ô Œ¢9·’’Ê4#€—Ô¤lÇuž p‰G§s‡g^[൰!ŸOcûþŒ[pæl§×º©/ä /3Fr¿‘<0Á¶\[ ¼kLâÝ9òR­ÀZÍÐ|üùƒâ¼±CÑ pƒ1Æ·®up¿^¿$´Q2bðF‰ÀÅ««ß>þúª hhŒ.è‹zép¥ŸÖ³doâ°¶{RðjÞÎÀÀÑ–ovåRm‡hlÚg´z Ë•c,wPx6á)ïµÝóA?Ø|ç\ø®¾xu}ýê©ãTÇ%OíÒ¹uï~MX9Zíî×Q0%þØJÿPåêƒÛÅ£äçúîìó“3 endstream endobj 1398 0 obj << /Length 1171 /Filter /FlateDecode >> stream xÚåXK“â6¾ó+\$¨#YÆ$’lf+9¤*5TrØ݃°¸Æ°l˜ù÷é¶$?€¡6ÉÖîVe€q[Ýêþºõµü ÖÎ"ÖÛÑOëÑâaé[¡zŽg­·%Äf®gù”Ú ­ul½›xîôÃú·ÅƒG{–Ì ŸÆ&*ò©K&§©·œØç)%žÆ8mDt°ÅcVó=çÏÙ’5掃L¹9”"N¢ê=Y’RÈÙt¾$dR•<—Û•x>è8Ù%•\9`F1øŸ;Ôi ¼|ó ÿþ}í_ÁÏ<;¤BcâWÒ¶ä™0Ó(±Ã¥®#˜(‹æÝ»1Ç„#.Å*B‰~Çf¿ÿˆÙ鄳$WÆgÎPy¤J>F‡b{a0D‘A…¹vçÍð3ôÆZo”àw„?kˆhF‡áÈe$LÕ×·IÏ›Œ/Ô®íôÔ&g23_T¶‹>¿•Öø# “^”PÔ•¡Òv+J‘ëÓLTû"–·²†Ÿìmry!,\øu‹pl‹¤*¬]Y¬WDøµY¤Ã þõiÝG EeK!â¦þs_³û|Hgýª­ÆG1¾Â|aL›hüÏëäA‹É ü+L^cjô-&Ô(L(õ0)7 S–æÿõ:P _¢~ õ(8Ó @êƒjÜèB¥õpù>ËŽüïvT÷îŽê¯fG >fGÝ¥Ž\Õ±Þ\M§V{a„¤Œu1j^V‰YbžÇm’¬ÎÔɉµ×z·²2nxuá¹ãÈžŸnRDãÔVe²ÛkòIœEl®²*“M]%pÓŒ`™ ŠÎˆ—:^VG{x]‚^'ÏÏüÅPµÈ.0*z´)äwPvs’¼«G[¥mRšZ˜:¾Ú°º¡d•d¼j‘ÀÔâñü¨^úò¼ûÔË‹J¼J Lõ¢zo. «ßáô÷-•¥’Ìq#"^KÑÅ¿qõ3ËÛR¹ ,Ì…¼ð)“]žl“ˆç—ö]|îVÕ€ƒuÞÜ% ·C^)’ ©ußb•Ì0¼·fwˆÅë ÏZbÍÔùo¯PàRÖ™6R«¤$=¤Ú¥&AtÍQdêƃj®Æ¯:¤ÅnžeÆSí¯ßÇ·ÛŒÁu¸¡ ¼É†GOsõx^”R¡Ç ´ÅÈ!ÔÛ±× i©)¾I$ ¤ «â"LÉÏJÓX]©¯y¡mCPPiu1ãŒgæöO{¼*Å!å‘XyšŽ{Wœ[¾_m{Eì”ÎEù¤Å¼8kæ™nðL5ÞgmãáY³žý×ë9 kÒÆÕ~û{cø´=9úe=:Ž(!mŸÙé2´êYQ6z÷X1(‡Íà‚~nL3Ë…ÇzßŇöÔzýÑ>›_›ð¸Þ{1Ùx.sÛqú7õçë}o9˜éØa@Í‹‚Ÿõ‹QbåÈrò×4tðeÁ|=õÝÉË€xh÷ž'y$”á¯y%J¸7Ê@51Œ¯Ñ,°o †ñV2ÉwjôÏ)¥¶þdÞ.Pké)P‚È;•¥NHÿKeÿÛ݈ú endstream endobj 1404 0 obj << /Length 2099 /Filter /FlateDecode >> stream xÚÅYKsã6¾ûW¨|‰Te! Y[sØM2ÙÉ1ñ$‡$U¡HІ"µ|Xãüút£¾ÌñØ.omé@lÆ×Ý_C|s·á›ï¯þu{õõ{)6 K¤'7·ÅFpÎü@n"!˜ô“Ím¾ùu›ÕÕ.àÛû ·ì²|›–ùî÷Û¾~F“Á,Šaf3J†(rÅíZ +'²{+¼÷"èóiÈ·ªÍ}î4,8;™cºž€á"fQÓð÷}•™±{ß“Û®¦ç ½·ªé¨ó—]lv±ïÎ »B”ûs/WU¦HHWjîwð--[êú‡ü›-<u¤Un—S­»íÒN·ÎZšÇÔ•:*§UÓ¨ö\W¹®îp³°Á==+™Íœ÷vå^Ùå¼›Má³MOçGš7’lt ª·ÌžÌÌÚh*O²XÚ#ýئwjÕÆmîûk6±qÏ.`I³Ë¾»ÙíCη™fåal÷®ý×}ZÚæylVö™§]j›ºÊÊ>W7Æ4AÂbXû„´p©îUù. ­|פU[¸*ûóÝí¿»™™Ö½OV¥'ÕZñô|VUnåMO£Îeš©w׺¨ÒkÛÉ3±b^‘‚Sÿ³AO¹ëOªêÚ'MýƒU—ž4õ‚H²$öœ×̳‡Ð¸èîh¡ƒÐÃF}hÖ(—S*@ ³èÒ©Ö Ûy@‰¬>Yt}Nó½Õe/$ãÒZÛ@áM7PÖ¨îEY‰CÝW¹S·XÈÎýÌt-|»À¥_µ±þm7Öÿ_›²aôM÷´¢…J´!T¾Üüç·Ötq?cøÏlæÚWoªzWw`Œ13¨Ç~¼ÜJÛõ¹~?c~¾òµÉæN93Ö´Š°CsÕ¥º <¨8¤µCé¶q§±,RÍSâ0,…À—º5¡q/ß²MF¯ÙµïE†”õÎ\±h[ŽÎ›ˆgGÄa¢m{V™.l'qèí!’wvÊ‚f°ÇJ…›çrÔÙqeLBÊ”%µ†E˜ë¾´iâàdÓ¦Ñ.w@bx¹AMò~¾9­`AéPNŠ¯b`WôÉ™Ï2&iáÏÁ„8ˆ¶-ù‚ôaÏ”ôQxÓ€¹—s|Ì®>L–CErÜ—ÝíÐŒIøk[å ?o45üþjó«:ªf<Û_¸p+ðžÒèôòƒ Úô*`GræiØcM‹bÔWŒô<’ƒ$iP7'âU3•=³('"´¬–“¹Y™F²FðYLãÁ4<§%6ì~E­€É$˜LدM¸÷ÁâpA[0ŠÝ±›Õí2ó’aÞAàX+µˆóaR8û½àû`ã|_™#@p«ü†ú*)ÉÓnðsξUùÓ0°vÏYƒ!ÜÏGÑ =’ƒÂstPx¹¸"œÛ¢ {G™.4AC’Š(1Ô~2ºÑDv)…¾ü)=éÊN¬ «ËQ­yî¹Öp")d{ v3ùÂ-9|YÒG<\(&šú“‘)l ÁcZT:?ìAuer|¥Bï7¨c Ðc |9Æ<ÆU„:Ûc•³æEÐôÂ9 žD‡ãÑd(¬ž…ì˜6iÖÑQó9×á×ÁÏXP$ Äaå²;·!žOC ß,ï%ócOǸÓ?Ž„M}zTfãNmª¯1š]t«BwvTµY×;až?˜þúA_¯›>ƒ!Ö“øk yîú~u¢—F?Yà/¢]«¼&+Ÿ|ž£OÃ˘PÂض¨€–+*  AØ0~…ž{Ž×’oÌÂÈû2¸y0XoÎŒº”“Ðÿð4™ 9ݨ®o*G¢»úÎíl½Àsi'ŸVFc¡:¦ˆ9¦†Ü¾FbüÿAZðþ8-ØÛ´W%_™ì¯°]Û¾±ž’1qI9eðr¤["z™ ßuµfáÃn½çD‡ 4ÄÇDpf<`|6joa Ñ+Åâv ’c¢Ã««òÞåê Ôq…½€üŠZ}klÍu ðEßûb”n*’u ãÜ&=a©>Ÿù´fD! ~ ýg†Øˆ%I¸±e£ÒüÁâÞ05íî‹tµŒŸó … þI-cí?ï„_¹,ðPPêFÍJ«——UŒ±ÔT£çÏ®.V/ò“€V›Þ4Kj¾è/;ôöøT úèbšñX:µ)?µM€ '?!ïXxBôÁÏXxL+v„ætî;û9¥Çâ9}uxTÝ}2lB..³AÐ11i/³áù‡¥bôvRiÛuúŠ‘ÃBØe4å¿í•óxÐàuÉ bͦ"ßükcˆáù¿½npS¾å¨ø6…"™jð拾85èr u;±=j;餆Æ!XL`£ª;ú~°Š@È­L+Ô•€‰ê–8$ÓŮЊåx9¸D´ýXåÊ4Æa™n²þÔv†;"íJÂÌ1þ}6­1cú#¬í³£]½¥§+®@`Z\ÅÒ˜G˜þîöêo2rat endstream endobj 1413 0 obj << /Length 3317 /Filter /FlateDecode >> stream xÚ¥kã¶ñûþ ã‚2pføÒƒ‡î‡ë!)®@¯m²h?$ù ÛÚ]%¶äJòm7¿¾3œÑƒ²¼{I°ÀŠ’ÃáÌp^´\=¬äê¯7¹»ùúÛ8]9á¬îîWJJal²J•‰q«»ýê‡(IÖ?Ýýíëo5™iR˜‘ÀãçìêjmeôyÄ‘xZ+å‡=.»‘¼Ùl§‰G°Ñ)M¦iŠöTWû²zXo `Ì?J©÷Eµ+RV]Ñ|^ëöhd£¼Ú]74ÜmG­¶Ë»²íÊ]û£ŒÁŽù3-Ù2¶|­‘nÄVòíÁÝcÎXvy®Ϊâ¨hºÂŸθ¦¹8¦“‘5LW0á:e¢ütjêSSæ]A#÷usô»À`U{ÀÔé‘ÓرèòM^å‡ç¶lÅzKÝ=2’Ó¹9Õ-oQßÏö<;‹ªc¼çjוuE½²¥)@çý÷^†»òPvž^KÀŠk°Ù-ÐÒ¯Œ…“¼’)Ë‚í\Ô=ŸÊ]~8<Ó`—ÿ‚;-æÝç·î›üXÐØ®)òŽx“EOe÷È`R0øÙªA=£æw¨nÆLÔM›LĉîÕµh”ÝKúiŒI?}z’,Ê™æ²:;}.s>%5Û]I-”ÐùSúY³+‘‘©Œ‘Ðä¼YÃç#ˆdodör0YTo.v¶]Ô>Ög¸s*ÚåeERnÐ;Pîv‰º xclOÝs¹@›Ò˜ápÝ–ð$"¦|~ \Jy®€&>Ìô¤ èS)ì ÀÏy#*Ðva› =ÊŽŒoqn ækýÆÀìØéPùóýÏg4"Úz5ÃÛ…Í)# B$øæÓcQ +–¸K¡ì`0ß ¾Y¢¸¤U?q1î1œ:|-È´!À›žß¨·-ZJ´S{‚÷x†ûc[þJH#Xí9¢œ6±!Gês·«é¬‰òò‡†æ23Ü8ÖæÇÓ{jä˜ñö-ÂâW%%•`Ѐš[}‹ &XßÖÇ‚ñvç}É8lOæ çžÆ{>ÏÌ®õâŒåì^x÷ØØòœcÙ¶p˜Š‰ÉH¦ j§ÀŸ)¸ÄìÏ> ®B¢« nÚ¢Ó©K4ÌØýœx‚ž b/4>¾!Ñ÷!¶ÏäcÛw „G6ÂõD|D»[f!øÝ M&ÙYÀ„©røi <ÂRÏ»'ÕËšP‡\-ÌË ªûg‚ny´)N5:Ov¢Uôñž÷¬ß.‰­=ïIiB9[rÏ8àE€ö|½ó ÓÑ2÷Š²p+­z c€þ%³&"lßÔJù-ø6€»n ‚td <1[`]wîzzè’ÂkÖ¢=Ž…•¯ÚãعÁ<lÕâLdÇ<|ïÈ»<’ìu• #Y)Eâ@U ƒÏS0k›¼j1nað#Oï¥Ià©Œp-}!o: ×`¿çi „kunx¨}`¯H‹t¬xZAAqͿ׉Œ¼ÔcýšOQ2Éh”ét ìÖNdÙ owEq&å4àä1„À»~-Ù0j`K¼ë^O``dÙ%Õp»Ñc«™eó»Þ2Ãæ>Åy£4z^õ– ŠàûôXúÍ]ÞòUQÓˆ?‰…Tƒ[}ær•—šÌoLB¿!¬³Ó¬lŠFH˜4™s»°—’"÷º¿Äñf<#Ž ±T_\ì,¼D©ÑS¦, IÄüC0ñX4K¼Ñ‰È´ûÍô*;£×Žs¤ºÄô&Ùo¡·×ÉKBcª†r®uÒ[Ë…[Œ’ãÆ_xKS¤AAÒÐ%ý½nŠ'Qè$½7Ê|&àŠ0í“AÚGdä‡}n§úÜNFœÔ!nÚEEcã“ ™y(€9 qr‘ô†-‘ƒçC7e)íZpOÛú\y+¦å`¦w«Ðø°÷FMÊ%aÒ–ÇFg…PJ#<5[‹!»sBÇÃÙ•â°]HiÇ+A{ Yx6At^Dd!¿K'öÏX×› ¢· @DRóñ{#Èù1äùRH=3Zå=çT—)cƪÕI^Ã]ÕT°F‰ûÍšº‰Áq¼oÛsŸsrúÏi¦o 2Æ,´hZo1Ñê³Óû¦>Nä¢ÿ¬3 Ó€ðý2à‚Cl ö"NCV|@ÑœÃë>‡€w· öX‹Ä©×ìq¼d»9ÕSƒ œN®Ød9X–_÷K@Óýv¾QÆå¾`2ˆ™f›pò1ö7w7ÿ½Q>“Wµ'ÂBÂh' ¸éÝñ懟äjƒp…qÙêÉO=®@Ó-Þ‡Ãêû›Qe+´Ð*0¢*îã¦E¦%_`ÚÌÊÆÆ…L‹¥×[KÎwÀ`ÎÇcåý¢þÆ"/ÚUý5F(55òùhÍÙÁ«¯º¬ lúÕþ!N†ãí–Î@qf÷~’fI"$¾È'aF„8D¾ A. }JWpʘ® ÜGÜeÃ8Ò§+ØA ¶Ãù’Ê‚C‰4pf«³«Z ¬66+§<ÚÑÚ•ÄÚÊ—ˆ*~IT*¡›²"¥`]z‘)3¤»€Ú¼IÞì©W4MÝpBÉÑÑ„æŽ`¥ùBû/Ú0Š}¸ÇÓ3PFæx”¦ì° I„i ’ñöë–NYa@`¾l(±\öeÛ5å#óbÍâø,,h¡ñc†¨ž×͆øôÝr<8 —,牨?}`ê¯Vèãâ?q¡á#'PعÃìõ’˜ؼ øN«²ßa6¾( ¸L”Ò¦½•Õzá” á–pÝdzÈ7‹3“¤\Jœ˜‡Vá7¼/1§õKwÜb¨–†—|Ê #ØG ¨à¼Žé× ´§ÌM’©„Ðþû|ôŒ[ÀX­…IãA†&¦¬Ày™¦ 68@XàÖãHä¯.K'Ã9®ÍZ))÷È6ßý²Á*éùào°ó¾G‚½ ¼H3}åØ ¯âÄ#sÞ3¦Ž'rÝ GÆÂv—KŠ3¿7hR-–ó.j\ÅŠ9€æ9}r”Ž0wëoïõÒ‘Ná²dîµ"üÄ$Ì éëCƈmÑq6Žü½³¹¡P‹å—;ÿCáo)'€T®-÷EÑŽà•'£Rà—^å±ÈÛsSܾùÇwoc^ÞrgP¥ÊÛjÒßõS€ÍýSÆ>êÝ-ü(“—41Xã¥Vþj ijª"VTëÔT ­Tkñ¢¦nª©Ðp„å€Mf­vÖ`{£m¬ÙbÍIü W$‘çJ³È›í$ŽÀY63Èd  cЧ÷‚8ªoß@|p¸ y؉Ad¦²v×~w‡_À›:¿{f.Až,M¼B®7Îi¯bØR^ixWx¬Ð¸¾µñu¿Ö&6²þ ðMöâCÚŸÕ† >t’!MØÜšôÊÚ25­{‚5OÃGÐKä«ñËoί&¿Á JKØ9uNÉcƒŸ 5<@ûJ1 _í¥~Ùý»ûÍy I„1=7EžNŸ4HÊ̬§‰ï¦ÜbêXwõ‹{aˆðÐÔçû~šÅ×ÈçÅg"#Ò±è> stream xÚíZK䶾ϯhÀ ¶¹|èA™ƒ½°ç`8ÞI|°}дÔ3ª¥¶¤žñ,üãSÅ*êÑ­Y ä,0¢Jd‘¬çWÕ+7¹ùËÍ—w7o¿NÕÆ —êtswØ()…‰ÓM¦”HÛÜ›£}Ûlc=mÓ$Ï[%£¼.¶?ßýõí×I6[K%2 œýª4Ã)7’÷º|¾ýÚ˜ÙÚÉR‘dn³Ó ñ(òAowƘèÏ;zÂYžÄ3ìÿ“Ld{nÛ¢è»|¨Ú7<¡õýmÝ>—ÝD9ßßžO§‘ló[øïC—7ýÖ<S…§†î@.Ifç`º6Â)"¶Ý©8SQ?œ‹—í.v*Úç}Ù‹¡ðUFM†/§z¾ðPEãè‹?; ý¡·;íb½T0ˆ=UkGü W¤‘ÂI™Å§q /mðŒ6‹”‹™d,“´ ³¾ýHÎê00~€üvR$‰”ø’DRH«ìb÷t¶;ìæw÷Oà+‰]l“HY³$Å@²x³LÛÎ掌¡‘ZO8A§&œ@)e>qƒ'°Ÿ°*Žbx¦LÈÄ‘…+ÇËß=µx4|ÁS˜lÅêÑ$¤È$;Ë·íV'Ñ3#A—qÞUù}]ö´vaõ‰V%Ác^ªöJ‹81aJÞ+lT*l–…9O¿Ï¦jè|ÃcIôˆ¾è%o§ºJá¾Sà߉³0ˆ…ŠcbõÍä(b…ƒwßà3Ž(PôDlÚ9=\ò§0û M‡õ ‘Ú†9ís¦ô§r_^ÅQ~:uí „;ðüºDq?mU•5‘žª|Zu-8£¬HÄR—O°ðZx’âIÝVÙèá|,›%!S¤R/-òî±êYŽ9Ë;¯û–F÷,âðxUAìtƒýÐvô´…„ÕU𪇲ƒuDÂT•¼á¹/‹Wg.ÄÔ‹Ñ™fJýd­µ‹Šòàµx®q­¶FÝJ””¦!r>£Ò®ÅjA^j”×þ±Ü¸½ûþï_­å ô€q*Æß7´5™&ly87{ˆ ‘÷y×Ñ5áâ? ršÚµç‡Gž‡›2§–ž%Þø×üX5%@4~oå¢S[ÈÖM&28âB£e?TGonZ§‰¦®{zEÑx“üÕÏ©_|2ñŸóú@îàåšö‡ç²lè+oŸzÏÁç}{nŠWº{6M¤„ÕvG¯e ôû¼.§ýÞr`Pæûǵ`É ïÌsè²Ú?.dï¦Ì¶Òõ£FßFñ‘JŠQ%=ÎD_̧vMÕ<°ÔûðìÏaiÂoÜñÖyL† {=Ot¯•»yþ°}Èü· ú.`ßâÑë¦UMQíI¹•’óòœ§¼ªý¹Î;"{e}yÏ4,úak=XÚ /§r¹®e>³õ©¸ç¡,Öî…²7ÊÛ:„­KÇÆ/Þ hèý´¡™¬X$SÁEQøzŸï?ì`!^ÜÌorߢÎIñDòmÏ€üh“«f‡Ù#ÞjˆCMƸr%‡(ä®êY@Å9¨€¿uèd>ðÖZ…Ïå©íoIðF·>—,Ñ /j¶pr(ó¹Ĩº5²ƒP×kÈ‹#IæI a澬PI ¦ï«ûú…çÒã>|Qî÷çŽå–šê8zççõ,}\ô!ÿ€ô©8šQ 2`m„™+¡AÍÀî')5j¹„àÔ•+!i¢À åzÁõÍn/aî KàºóÐÂå!ê×è’ œúË5`Œp{Â.jQ,'ZH AÍòŸx¢Ü¤ÂeÆz#¬†ÊV‰Ø1ÀbˆngÜR(®âÍlÎ-sZ”ç"Qé„QIƒ¹a"ä)@K!yaVŽâÔE͉„±æœqdø ²)OÃ8œ¡¶?g{îúÕ|ܨÀ ñŠÃvZŠC Bå»±´¥UÈêw[4eϽŠ÷˜?`”}Ú%4¾Ûý'zŒúùºðç ÷Õ±‚Ò­øÀ(=ÁÎ!xl»ž^¸"t\YŒP‘ˆÍaaÊgcMñÖ‡˜}Úš>ºöÈÓhÆT‚}qèw™S™ã®Ðh2&š#e}ä®E –iÆ®àí€!8òú:r`³‚\–[€™¬A—9Έ#)`kvˆÓ5ŒP.óHJAê×Ù§P„ݦŸ#§Ì@Ñÿ6[˜SÇÑ󆾌rÜÀñƒyñ‚®È¶k[é„I³ßÍÌ0\BNÏ}Jÿ¡qèÿ¹/εo»®ìO-—Ñxœ [ªÁ1Èb{áÜUQrÙ{aÏYôPM=ĆæÜsåôªA*ðÈL¦“Eî Ä]¢TkÀ4Yj¯‘©]Z°‘É4GIä¶ÖÿVBŽrþ-8Ío×5¦šEC2$ÿ Žpºxì¿¡bŒÚSW< ĽD¯ŸrqåÅ)áÆjå| ”l~¼•£¥`Ó£àŠÊ­’TmBÃc>zP:i’Y@Pë*îß Ö$‰Ht&2ÕSØòñùÂøæ—"âcSä]AÄ¡kM㫱’Z¶‡,¶„|›Ð† +—ÂYœW­\$mKÝ%ß|†q50ËžÞ©™ëÓtWæÅËjm˜Nøâ>4ᑇqôzŠ¶ÆãÃ) ƾå¯Bl0³D…E$4Hg*¹ ‰óú5€> stream xÚ½Moì¶ñî_!$—]ÀËðK_ñáµHŠäð‚¦.rÈËA–¸¶­´µvü~}g8#­´«8mQ<°Èáp8œÎ×Êè1’ÑßnþróÕ·qå"OtÝï#%¥06‰R¥Dbò辊~Þ$Ùö—ûï¿ú6Q3L“Fb€NÀ)»vkåæy›Äñ²UrS4n»‘|ØÅI;8FØDG;Йš©¨xãzï¶;ÛM·§ïðfSž§¦ê­Ž—ªÚ}ý°Õrsjà(@÷§¶ÄÙG«9A³)hꇢ­Š¾¢YÛõ‡¢y‹ ’µpâ–ï"‹z¼& ÄÛ3—V‹L§£´~ÃCÞ’Ž¶"—:r.¤–I‘í@AyÓúý“kIEj®"•ÄBJ°J…2)á>3¢Œ‘§&CD ¼å€&lnY„•Í¨%Bf6šáÜ1¥…ùˆX%ð&ã|ä]Ë5ޔРδÂ(Æ|]ç,‹¯9»ùæþæ·®"  ”¶Q§B¦qTn~þEF,~ú0y½ÔˆÌ;ƒaýãæï+`¢eS‘ÆŠÎüôŒ–Fq}áTÄÖâ'ËõtaEˆéì"1h L]È„ï¡ gù&´Â(P³Z²\j¿Ýé,лŠFCG߇¢üuWM‰¯Á¬ Ï¡ö¾né…)* JJÔh[Ïõ #J Oo›oâàO ¨Š¡ðn` U±R¡…Z‘‚è‰]à/ËaW1à(ãýš|½úðÎŽÏ šwsF@7’œõ½óÇ®­ðê„ãü@‹ðÊxÎuI øˆ_žêò‰Vƒ‰VKK®¼ˆdñòꙓÚøâpl±Ʀ,²¾.ÚұߜÂÓªêpý¥eðC‡‡Lž A[µñþtpžæ$59"âý÷¢døB:¸^óÖÞ;d_lw‰4›ïö´\œ†§®÷‹K%t©®m^IŽ{iÌ,È‘yy&ö®ihôàº#M ú” Èí‡È€²žº¦¢)*ĉGòªÞBÇ™0ŽØ °#‹7_ã'Ù¼»öUÚÀó‰Gt©ÖL¬Ôè¥ë‰‰zÏü²tÂä,´!Gf®s+â4YšËHk–‚∢¢§‰¯Ûú#xç²hyý£Ö c’]†í¯Ç^x`¦5™ók"ÒRèd."«Š?ë"J§ëËxEBa4A·h9’ŸrSЧì‡n}WŒÜ×|[x$$4ð 9xÕ…ÐN><ßd|ÇéÂáœüÀl½< ^MœfgC%%¨Ò•ð“B8³s{²dOðYøÃ?³'-25¡;9sƼŒÞ%;À×½Æf`*=³vÅL¾yrßwë±UeɈ±v‘&Ù›·YÓ½ÎãÍä1ƒ¡ŒÄ‚NíEFÎÓ»žô¸ÌÓt¢‚† :•aÊoáàÌN˜z!péíaqz>8™¹¢‚ ’r­|Aáᕾ¾;ðɧö×vrÅaû¡;µÃ9ß’W‰…¼Õð— GÇÞí»ž7 ®½ Þ¼r8‰Â¨qžC}Q–§\Í™ Œ¥œüÓS˜QcF WôàzžPdWáðɹñ§ã±ónÜœà°c›êªÊÓί;Èûí"Ò†µ  nçëÊ1úq·&ĹVt¾Ù÷ÝF}~Úf¡zØïC#Ç(‹¶J—d<0hºGÐpÄW@ UMÃõ¼¶pÀ(†%/Ÿ\ßQàÆY=ÍʵöCPy~8U¯4Ôb‘䟓ýEF„À͹R…ꉥÜ|½£/æWbß‘Ç…;ú¨w&Í(Ë¡$³Ë`^BjæÅЋ-%RÒ°-Ì>¼ç姎ãv}“Ê-#¨lÜoÚ·":þØ”×”Lvy|º8~u“–j:~Üoí¶ÀVpIi:UŠÄNœÌ88>£/zc›JÛ‚¹—¸ÐC<Óª1&h¿ÎcæŽ$®ð§ÞÝ}ñÃ_ÜÒbQßMŠcP«ê»v6/GÓˆ¢åôÿcë|®µ‰™À2~ëÜÏnù˾ƒËW1hÙ>A{Wù¬ŽG”yO ó*›Â< 5}B–$ÚŽO‚L¨°|ãi;1àG®(i¢É,oó·k–óàÊ"TKÆŒ¹˜‰7ýŽº†ä `”±{Q¢ãJÏû{D™@CÃØ3?8©\YS+0ŽMQ"[;OeÂëvè»êT†Nl Éõj§„’ÚÊWAUéûÆw¡®0¡îÖ™; ¡¼ &ëZ÷*ÔYSyTÖ¢yX1ƒeÿôv…P ž‘9ý!™d^sA¼8puÈD¯ÉÛLdÓùŸžÇÞá’:Ôaç.[ׯ^W(=1p|ƒŽ^–žÀ#v­IùuS<4ŽÀd¿™¡®še3NâMЄ¦•ŠõԈؘˇ[é=N¤[+¶s#Ò³0þ«ôâž±Èd6ï@?×ÅEX+±Í/5¼»rêVc!Ê•ÙØO=B}æ Œ©ÆÆ%þæ¡!mÓ x9îæþpÄË… Ë(M¡nBâ©æ¸™*îa¤TË®©Q‰TMªnW.—‚w›jò¢ß‚?x„J›CnGa%ª•t¬›8tC¸À‚ûb°¯?á«Dph¡Ì· Úé%š4†¡fħï¡íF©äðR.Z6½ƒ3BQr%YgÉh[ñØ©I63ñ´T‘ð`-”ãç¶NŒ ñta¤Å J0Kpnô ­q­!.a÷¸;/‡â•à³öRí×=Óòa#NÕ¢”&àì/T}.ú… úÀÑ­kh|l‚÷‡ÑK|ꇌâ?û©y¹ž:ILûߊŒñùyÍ;d08*°É¤ú×É~ÁØ•µÆA'k}-~¯ýÚ¯&'gâ¥4—¦k¬¡ØßÀBìyáiYq-xãñ4˜=cŽæÆdÞ@Ï `JÈÏzåóz7>®Åëo=5‚®²Ýoîoþ Qz[ endstream endobj 1433 0 obj << /Length 2297 /Filter /FlateDecode >> stream xÚ­YKsÜ8¾çWt9—î*7MR%M·6“J¦fjk‰gö0™ƒZbÛš¨Å.=ÜñþúêÕ¦Ù],$AÄl¾º]ñÕÏo~ºysõQ‰UÊR%Õêf¿œ³ T«X¦‚tuS¬þXç¦Þ„|}¿QÑš6‚¯³ªØüyóëÕÇ(ž-¹`qœí*•â”7ÜísÕlîÖMÞÊh-ù}“JàÝëÅʇùn‹”q!hñ/û ôùº»Ó$[ÌfKÉ¢4d+².ó( KD:LÊšHÖ·ýA×±&Ý[êÔÆQÛ£ÎË/œK]Á4„HX#óãQ×ÅõÇwÿøüÁ#I”²8VÃäKâ›ÑÇ o[û&;h·§Ó>¯²¶õlŸD,VãÙä_xÄ/t›gU~qy™evÂ#Ï6à >˜z Ž‘ÂIZ6§²»Ûlƒ@¬;kCûŒÀze¶«tK$ب҅Ï,‹I1ú˜ÅŠPÚ ×÷½sâ±eÌÜÑ'K .Lð¹<”UÖÀÙÁm ÝŒ‹uéÃvÄ!o¯M`’©8š‹,SVÃÏÒPHñCZB¦O_ŽªÉ„û'!-õ=VS ~Ò‘Pÿ¤Qu iJÀ*†ã9óP‡sHOÎ#¾Ä9ô-Î#N8ŸÍ½ó[ã3HCïTnPŠa½›3%Ù3›d-i—å_·x쫬xeÞ <˳˜9yIñ‡0ã ‡¸¦v‹ç8D:­Ÿp´óŒñÅ™¾Þ©S©8D¡ 8¤“ SpÝh™×\Îåc–åsp¾æ–!8S½4ú1(çsc•0ÀòËn11¡l`úÔµbQf ‰)RCbŠÐ)+"-]Tù1)J¿#³rë)¬§¯?Ð%ÃF»ãK‹Î8€æ’ŽÎ:¹píÓ^i¡‘g­v7LçÓr@–œC—º^³¼VL‡÷’] P*õ‚]Ä–øõŽ>cX:el+§HÄÜJµ¼ÒÁZaËô0qžÿOÓù+ô©&—4ól‰žŠÃ¦ –ª.yÖw¥©}jÂpLM?Àô$Yø–ëcG,èl¸r§€ÌîtþÕñ¯cjýþúîL_-¸°¹µqk­A`¼6ô¥pUVe÷à8¹Bwº9”µã[:EÜ‹Ãjëä^øÙ"®‚º¸—×…±\à*‡• RH\ ìû:·†±då‘ BcŽ;M#eí¨{[.]H¹©a2¾u ³S¼¾¹³ý‡ïÐe¥ó]<¡ÿD%Gn§èâ Ðc¾i5M°WEÛú×&±ïOÛîá8JàX^=Ú4s#SÊò(µH`¶âëß(7/ÞºŠ{u2lV£æ±oÀŸ†2`¯*¿"&´5;îaèûPêªàY·ºnËœª¹ùÁ‹T‘,QúnkúîÎ4hévxxõ³šƒ°µ·©ö·¼=;“ü¾Q ‹Îïº]Öšâ6¾Z:bA2¾Ùüxºßýý » lµWû ÊfšÛ¿ù^6$\ɦ*ë’Ägõøªé]ó*±|7ai2FÛ»®;¶?\]N'6ì¼ÙâÑLÛŸ?U.Ä€â;ÒÊø’ð(T¦pßÑò>齶ïˆzxÏøÞwÍs[‡¯õ!OáhR¹Fk|É'é¶ FÞ›ºè!’ØK_¯Q÷mVgÕƒuG\e¯™0ô‰>®„º7ºEÖ­‘zÌàj™Ínµ3€Šæuì&còÿÝÕô}@VfïÒ±›·,[†è0xûg³ïNY³  °ô¥°1O®qv ”‡Gj_žgª`¸ÇÃþâ‹”*L˜ïUN2Áå¹{¦DOºÂ[]¢‚ø꯶e÷§œvmŸ×¨q)X’:§Â™¦aÕnæ +¾îÇáD^ÂÕ˺äø¨ë‘Ä‘%` 44 ‚ó?h×Q‡ S-µL^®M4l6ÅFYÛwhUæö¹¥ÃÏÁùë.’f…'ôî½ì>gX”Ÿ Ù[»öݵiœ¥ò iÍ9QzKé Ë5üs]zź]^kÎx4çÿíïÉãš9äÁ4ƒVp5iì…o³ƒª¤pnS; ïÜØOïv¾å¹½®öhuçÅЇ›7ÿ}-.[ endstream endobj 1443 0 obj << /Length 1444 /Filter /FlateDecode >> stream xÚÅXÝ“Û4Ï_aÒcz7$®¿cä¡Ž)íÇÓõfPlåbƶRËNþzvµkç;ô˜ax‰V?­Wû!í®âXO–cý0øö~ðê.œX‰D^dÝÏ-×ql?ˆ¬‰ëÚ‘ŸX÷™õp=qnïzu¹;œ~Ù±?9†'m˶@¶ÃÂ_Ýù¾ ÿØbóÁØ›èÓg™hnÆ¡ã\3¦{–>=ŒÒNèx·ÜG BÇ®c'a²ý”aϵ7&øÅ‹$i7 ¢RU. ÙÈ~1b†RQÑjF¤NEaTÀý Ë™©YÈŽ»K›=ã^Gwß¾­àR ÝÖr:|ÿëõù´Y*ͳÌ*ùij4Ÿ¦Ûµ fÛ54i ?F×Ó®r/úªU¦Ê±œÏeÚhÂJ•I¶nž7ÌØzÕ{AïxôÔ¶µÔÖ×¥@Ó79+¾Ê,pÏ™`d]2¡Rk"t»?ÉNËî€õQó>yŒˆY±k… –<þ°–KU÷æw‡@ìÝ´Y.û˜µÍ©OÔ+>WE¡Öyõ´UE˦;¹mÁÏX/¡µ,Añf&UÕ©8Wàè&ï€Óôa Îïè~ {^‹Rb u[–¢Þ Ùï(€Û«à=˜ƒ?Üäxà}ß¿¦¹]ÌvgílH7Þ ¸+Žwå¯8Äz>•Ÿ–ÏÙî„ñl§yÏÈ[/òtÈÑ9g:¥·d+v}7Tõðœ—9á!˨S“ —+QœrK­Ú*ëÔøL l|–?åžzR†wµÊ‚ï]iy ýë|÷ûÛ·gåV:Hû˜¬;Cø*a&$ê+ áíé!¦ÄKÑpG®1›üåßF£äÖuNÄëÝëË‚‚Qbäðæ´ø_ˆònýQx\çÖýü­~“çêf¼ûðE®íJt.½Bg>KÊ^®ì¤,? L Á±Ë0 ¯] ’áb Ò6 U3×6á’ªŠ Q&(Ë4Q5¦0úªÚ³¥ª†’°TUf2'BË1òö|² "ßhD;š#Ð`6ÁÅdÄ@§8N¶Š# )Ž¸Ñ RYñ™=ۑ⸖„_ñædz%.CêN a@¶)ˆÍÛ*¥Ü„”îZ7ü•¢Û¡¶a …z"‚ÕʨÏ4é« kZ@[…³KÕm%ê\T©Ô]±«ÏTŸýe“i÷›´…XýSÿ¬ öŸv`óéÅþežwÅQ.s­ûþÀÌ”{0êÞ(`Æ€ŠË|Sah·òRU­ìµ(²þõânéÙûLµÍTÕ\YL陚ß-Ò¤í,GSüáy5Ť5Úû)‚†_ê-þŸþÖ{fë]èoÏ›øvCD–ƒµ¤`"0“ÍZÊŠ&ÔsÓxu±K0j›[CôÌmÑ­æU@¡Óq¥Y+^’i^¢xœ, Æ~M,Ø)(ì²{±°÷ˆÅ˜êLd˜&tMM4’3^Ï3Y59äóbýþ~ðqà‚îŽåö/`7·ëdb¥åàáѱ2Xól?‰­µa-­É“Àº°~üÒ¿|Gó̆ÇðÎ3œ°YìÙ<«Ï>¡£pï+ÏNb·{r¿A~¸ú˜½Ð¹þY6büºÅFçš “O‘xyã…x:_ÒôýìOsÎ[%vyϱžþLˆNü™àží»üâÿòo/M…Úµukóþ1œ¨ØŽø:ÜõÅÍóslé×ß q£¹ endstream endobj 1324 0 obj << /Type /ObjStm /N 100 /First 978 /Length 2016 /Filter /FlateDecode >> stream xÚÍZÝoÇç_±ñC÷öcfv·PØqÝH@v€¤†ê»‘H•¤àô¿ïo–¤DŠ¤}GžÐ>Hš»›ï™Ù•^Œ3>†b|ª›è’bHŠɈ#Ñ›D¬@0©(rŒ&GQ€LÎA6%äVeSR]•wE!Â_*ýI}V(ä•y@âÂ#3†0^8ê+àJÉ£¤S}£PV 9VV3g‹‚sò&€¿BlB`Õ„Å„¸úš)¿ÈP Ћ ”õ¤ œ•2gD­Þ¥ VäRñ¢ZOE2ì‚E•9 1¶BÉ`UÉ&¦j焵¥j»ÅR5JlÈUàrU#ˆA¾šË(:µ lO”Ô YÝ•^N€2HQŠum”TRˆA9+·\ »J¥Dþºþb_ZÔúAeÇ9T¾%®( ¦jª"Œ¥ È\ÉÂ\  WC,ÍYMAÎ.¥~e#0«BHU$ õ9T”À\1}Òw(=ˆXßyg„U1òd$á hõTJ¥çÙ$§ÑAÁ™´â¢ ñþ¤Ìk &®RAð$šmSvJ% ªGMn‚ªÙå Kç ÁBš¤!G •Ià B¾`©ÒSs1+=äHWׂŠhŒ²%K¥Œ¼ËI“‡-9Œ‡äRÕ@Úä×ÀÛÅE]\Œš7³éÒ\\˜æ ´'ÈéÌ%Ä k¯º„H_=@Bò¬`6˜hó+=¬“l>¨™Óæ6 6°’[a}ûí¨ùq>›¼m—æ½i~|ýÆ4ïÚ?–æj„O*é»ÿܵø0þ­5ßAêvº\h}¨²ŒšËv1»ŸOZ}•ë»´×ŸÆ¯f˜÷Š$^®Àh<Çj],+Ä—Óé ÔÞ¯ŠšÊS‹ÚX‰þDºdÔ¼šÍ¯Ûy¥ï®š¿7ß7ßáî¾R‘&PuËT ш@¥XÒ ‘¬Å{{ÿë4›>Mo^^\TÍËÉòÓlÚ¼m~ºü^¾ù¸\Þ-þÜ4Ÿ?¶·írüa6ÿÓÝ|ö/p±³ùo/ Þ! ×ÔM%X`_6{Ÿ,bY›bâŠ=[Ty ½¬óÖ4›½›™æµùæòÃÔ¶‹Éøfò %J‘uH’_›‘Ù_“㺽YŽaŸ³ëma^C1ݺjàýüË? Ü E<GîLïon®Ž"{ç*6 ‡uH¼ŽØÞ[”ՎسÅfÒ›²·.û]ìÇlÞIàÔ>žÍ0²¤ÍìLõì¼Ü,û¹S¿ÜܶCÌÝÜ׳¨¬Å}ýÈŸ®…¾úutóΤt@Y>CYé‘‹ÛÈ› @QµØþžý e_ºb£À3ƒsBpÇEO2q+GOvÓ¾óV¬OÛ%× ] Uê“ÍÚÅ`µýAdӪDZ("=¶œê$Ž="kù±Ê‹Mк6& C®Ÿìe9Ð q>=E¹öo'óñÔîô…ÍÝxò;Œ÷—v±¼mÇÓÅõ`"fy«6äi@j`¢´~FkËéhÞþ»µ*‰]\Ø.úhú! ~6LÊ–1鈶ß.•å×Éð²`Ô³lÅkÎ îs±‚ B¢Ã$pÜ,·7Óg°‹ ¶bÈÒ±#é$ï ií¬>*Ì¢]â§T’`õ@%: ÇBV´`ÌQŽJòꇟþj/ïoìâ¨,_O4B8$˜3ÂÅeÞb>\¢ép¦B¿x²/%ßc_ÚF~èù#|—JGl, ’ûïK;CÁ}ræýR㥺¬«oçU_ä©ó¬Sø«}"Ô‘a.¶ 1lLܪªÓ'Çðæ$AË i]YŸ$¶I§Èûõ“„\™zÄí6òCÜ¢éÁeGl/–×bìôÓ'q9Ðo”3ú\†l¡×‡6„-Æ—üphCä­ÿÂîw¤ƒ.}*U9T©µ=¤®ØŽlI'œe›“žaü-ù€û¥Ÿûwìú˜8*ïÅêõؽ“j€<"·?Šê1ý©y¤u3Ð{‚*Äh‹ÓžÅz£¿Egîѵ[¾Ð7Ý~ZLìåõxñÑÎî´î.†ë 0‘Yª—h«9Ù£®ê­Üis²^¶tÁä‡9¹°E¿Ý;b¶q¹#6cÂ× Ùc\ÒÓ³ÿy«C~ÿHP/—NŽnï=hÁ˜YêM˜C£“Œ¼¤‚I…=&ß7€|xþóÓ.™Œj7Ô“^Ëí;µã96¿ïTÔ©3s­Ú77`ÔÑ’Ÿ,åxÔ©wÓÙüvߧù™Î ;ºqËs;.}tãÓðx¼P<ÙÁAöè ¯Ï‰hÝu äiÊ(w æÂ߬7ë.Ù Iñ–ÂÎ[žzúÜcŸ ¶ÛPLh:y½ e:*Ƈûé´½Ù‹¸õëðU¤Ä P+â úÓCi}÷WÿU`ˆkèˆ}µ^§®‡Ç˜ŠeOÿ·×ÐA"¶¦ÇkèHïfúnU1ôèu¶‘¿Þë¦ÌèsWl¬dîˆY¬Ï]i‡‚->v¥Ð„8à™Ñ03ËV¢žIµ­:õ‰:`'¯Ù“Ò©Øÿð´b– endstream endobj 1453 0 obj << /Length 2091 /Filter /FlateDecode >> stream xÚåXK“㶾ϯP¦ªVXâI2.Ö“TNö89Ø9P"$Ñ¡H…Ïî¿O7¤Hæ±{p¥*¥ƒ€Ðh|ÝøºÁxsÚÄ›î¾{¼{ÿ`ø&c™fóxÜð8fR™MÂ932Û<›_¢Ãpªí¿ÿöþA'³É*æ,IA“›•pœr{Ý0×ÌæîüäH@&iÉÏ]~²‹UÏý¿rn&(â)3éÌÀ_c|·Ýé8ŽcÐuÁò,ã4õ«¯hÆO’þ/¶?7µMKC•w8Y ÃÓ ñ'þš¦,,S,K§ í%gC]4IÅR“½¤hǵbJphp–iýÌI›¶°­oå©ì;ßéÛ¼îŽc'oOãÀ¡©ªüÚÙo>üý§ï½ðÚ6§}Þ.d+çfüá(^ÎE"ciš¾ ¢Ê˜RÞxóÿáÕöM(EÍ_ E@1–ÿ¡¸æ¤a˜ô÷ûC»åqt.¶î»©åeJù¸&³9ñ%°#dy½Ý çßÿf½oéæ¿Ån gòæ{O÷!’¦Ó^ï^sô=Ý–¦¥£ßyCÛ€F®Y’,UbðÍ¥\ŽSÙ µeÉX2ÑÑ4SFÐ5o»¹öeSçÕv'¹Šrðvê½Mqø×Qwµ‡òøÉO£¿ß·BÃ’2ßW–$û¼³-hj=ËÃÙë:ûi]?¥íhâSYùÝ÷~0q´ ]r8n€H»; §ÖÞ ¼/Ѭ߷ ÚË ò]‡üÔ•ÝËzpˆÒÝû"H¥‰Êº·hË ¼‚„…¢(tЀ´.ûq&=Ê ˜xõ]«üà ›©1ž+º¶¸s±µÝPõ¨#N¢îÜ UAmçøo›¡.lÁ¶;•òè¯hFl¢¡v&ÿÇÂîR¿,)ì‰"‡Â†G=ÉJ¿…3ÿóã¿bZJaT ¾{l›KÈêÉÍÄ ŸïG¢Í/ñ£0ru5„¡«#“#Q˜“ì8Ô\½œI4íŋ݉@~i [‘ìЀ¢|(éÒöuЕèãÖ“4Ú£ïpQ’E˜M,;±Ë¥ ÓZg%˾µ¯¯rÒ7 ;ƒS[KæU×xPáÇÒM‹ØRóÇî6¿¸YðA&!ˆ2™e8qe"ÕQÝÐyFünô°ã2aÒ$KT.¹Ç¢ƒÿ‡ú³c³ë… l9oEmm1ØþÓŠ¿fA½ þµgö•áBj¦ÍÊ•7.Ë»WR‹LIåÁðµÀX^¼ª9•Ç\‰ HøŒø@øt†2ÍtnyGÊþL ˆ)p<¿øÖœ3 ë˜·ò9ÛFÚ•4ñ*G®J]>õ³éÍ›H¡6X?!Fu.õžÌ‹ÉË] I©ÏkÛ ]å=Ž÷ròú9û)b%ÜW!Íh›+æB'ãi]¯—ü,ÒŒq¡–Aï+Æ/p³à†ÈŽÏòv&7c'§?ÜRQG=ÜÖx¢ÐN2tÆSMÝ~ܬðA?‘«·á—¼? nɤ^âÕõgP†ÇeÍ,TœgŠ(jV ÿŠ›² —æ«W%ù–%ázÕÀóD¼©š†,¢ôt—™ñ5â(ßynå˜Þ¹"5¼Èe2¸*Ž'®úØ9a&›6¾ ]Oú\ÄÀFùjkâ“fèiåmÞ7mGƒQ%³Ì›nKçºôqÌŒ^Þùñ‰bÿ3äÕnªüÉ‹ô,\4—eó#Ââ‹Q´h ,—Ïáu{oºZK-C!€†äjÞÀfâ‘+Æ@sÝôÔXsXž8žÅ¡‰‡)^êIÍ5ص¬OÔuÌ®\&+[j’Q®YÖÓè85fI‡o ¤Wøy/‰>Ñ?ÏjÇ#R'ëgˆ6tVm–цSáp‡ßÞ„Ïâ¹àVÄ,1ƒ½ÖV$“ðb?ÔqPib6œä2ÊG=>ÇÁPeë“KNÇmÕ= “é¶ Ør;X¨ç=‰Ÿ[vÔÜ{ ' —PB·VÜŠR!\1Ú÷ÎÝ8‚—ëQ×)ãÁ¼+S¦Ò)Ѥ²‚q50«J{i²˜L–k“Å*°„‹+²UièO¥ü©ðÂ+§¢&))SbåP”ÐK[{/élÞÎÎèÑ‹TÕ”“>W*N‡§‰­sòhDÛõc! ïŸ5òò'¿Á°zè¡O°C£µË÷±‡‹oå?Ì/µ™/®P|)»Î«oeUG}5к¹¯ÿõŠÏ¼’%ÌÐN*<~ñ éx?Ê—ä`„{9¡o°h‡"j¤À;w,Ç’ÊUóÂyåªPñŒyfZúB³ Ëg)Y Tæ¯eª!/‰%c}‡µn¦ç• „’ó‚7Óžh±á‰6£¯(<å½ÿ§¿¾¼Xˆ™D™è/TÙÛ—v °º]¸»¢øÄòëVL’Ò[°äKXá"ÚíDMš”¥òÕD´ç-]ºüÖ$ÄøÆ]ç:ðŒž>íOŸ8ü9TÀÅÌIš¸ SPÅ p1½0¦Ï8Nì+–/ p<ý,Íq8 ÌÞ9Ï‚Ï :ë7£p%yÆ´X¥ÇÕ›Â舽áSî?¶™ }~­øñ3fú& On‚dÏ~“MYr«R˜5ëÔ“÷ïîÝ×:מ}Š^˜ WËÙ·ÐÑYôè\µ0Å'|0)§.îâmkj(kªTÌøÑÉ`dW]󅞬VùâÐ\®MùŸ‚°}ÿx÷_>T%H endstream endobj 1468 0 obj << /Length 2150 /Filter /FlateDecode >> stream xÚÅX[Û¸~Ÿ_aìÃÂbo"¥E[tlš º 4ì>4}%z¬D–\]f:ùõ=‡¤$KÖ:öÅ"F:&ynÏùŽèâaA¿ùÛýÍí›@/")®÷Û£”©š1¢D´¸OÿZj¾ú÷ý»Û7Š­¡"¡ÐpŽ]“´û6Çe7ÔÞý½}#ÄѾµP¡Ý¸æ„Âmÿ<Ú:1J+…¼ÓT´û©VkÐe¹uë¦M3S»—¬Hò65i÷æþ6;ãâ"Οë¬&•c+½Î5  ”Ólê&ÛǹÜÖn‡·å# h¼âtù¸bÁÒTñƒó¾´MRîÍ ìª¯°()«ÊÔ‡²H³â¡ ^\¤qåm4UUV׸ƒ¿<Æù7™Ñ@°zƒš "—¼ ‡o5ã°~\ñ`çíKR‘d$ß\®?/Q×SçMÙi=†vÛ¤,>RÊSS$¦ƒvc*oíËlm¯°µ=þ;ÿy¹srïÛ²šØ9¬í\Ø°³|0…Éšç• –/°õð‚¯‰[þâÚï!©gÒ—°²ÈŸ'Q­ „”ûµÙ¢ù[“4>ìû25yEîzw~ºÂ™!l½¶e±qË"2 º-?¹ziâ‚€0èq‚(æMðo¤X ÍëhÑyÏ—¢pìÚÛÿ¯koO]‹ÀˆK\SÑU¾Á±\AY¥P'¾Å½þžZ G*AXïf¯i¢ˆ…ˆôXA•Å›Ü Î:æp0I†õʤ_G) 4 x4Î%!äroKpË_™¸Z±pùÐîMѸË~t ®’¹-¿í PÁ˜+]‚ù[ådO+xk÷‚~4öF㪧¬ÙÍ„ A¨`Ç%óÏß5ßÍÄQDdÀÔ«¹l=0@wÐçbÏH¢£¯¦Æ‡í>ן.9l-¸4Ì9« ›ú§»2™=6"Z«É± †ÿôàµÐ¢Ã WŒDS4$'’õgéIœç«Ó³Eˇ¸^tæ”å–›OP…;aìŸ:Õ•iÚªèJÿæy²yÛI“•…GeH —õ*™Uxo×*1(‚g{¼âØ ³¸Öbè îáP!ð/žöÉ_u¸Að„‹ /’{|r ™‰‚±Á;nš‹œÄ V7¥\‰Eé0 ã›ÐÝs\ù%# ¸Ø4~ÝÚîXpî4Ê`13ùån&Äl„?ëèHm¹Ï<߀[¬ÿ‚†A9Yß]†.à¾zÚæ<ò´;ànëÛfWVHàìPq =~³%?ß>¬ ìÝÜõëJAs4É®ÙÄmGÐPËLÜÆaûÓÓãæ¯X¾dëCUb3$eõð—ÙhBébD‚n(Ѷ\`Õð§UC-ìYÌ®iõ··OOO¤Ó ¥Û«?WTЧˆEÝq=íÆ84 m®ÿ{³5–¸âx_¿ þ¯wq¾7U 7•kìÀZb}…ê¼|M¼ð{÷þ¸õ‚wv·)aQ$œÍÀÁÂåÏ}ë€aßíÛÛæmíö¸ÄÉòm¼Ô&æY‘%xQPÚÀ˜wuP#N& #ô¹ûÐ}^pÜ ‚åAlÛ•öC Üq«åÏ&õ AøÞÔ¡— ö“Ýj€ÃF'Ôy”* Ã¡ìÌvG3‘c1¸‚.aæý†1ÍÉ-WD+5Å^Zf³[F اo),ç!å‘€âˆÿåŒìýzÌ$]–%×eÿð!Ùí³Ô¾(@$:âË·Ä ¾wïG@Â=DÄüÖÁ%ðpÑ"X¾>¥%v销'QT4@¥"6étœí ~Ùm³.ñ†X™ÿ&Yä è~Íÿµê÷‡<®žxßA'PeçÈ"Nø@€ß¡–ؼÛZ³qÿëÞl”þxCöY™—80><ÏM@Õ–Ñ9 iB)ÙC"ûMÿiÌ#MB…• †èÙJj¢>ŽéÞ(S·4Œ‚µ–€*"‰:(eT­¿ÌØDÇ€›{IqÖ“4‚ÞéöuÅÞ8ÒcG!â y·@mÿ>x„,+¸ /9þôÞýq3þàx±ßdq€ÒCœ|ŽcÌ×FdÎfr_‚°ö¸u#¾q\¡l;ûPn›'WkÌL´&‚óUæ¨ uIòEWf@¿-22œË½äU~®Æ„JèÛOuM©P$£b–00Á˜5|0žvÜ!ižëW—Mã.öõ Ø©æÇXvv e?ƒ9¡%Ÿ M«k““ÎLPn¯ŸÔp µ?¹H/C8åDQvÅ2|™ú’fþ«oe oV7|t¬VÙïzáIæAHh8!‰³>ÛÄr’Àïoþ¼¤.ï endstream endobj 1478 0 obj << /Length 1052 /Filter /FlateDecode >> stream xÚíWKoã6¾ûWI&ÀŠõ¶:l±I‹)ÚÔ=¥9Ðå«WEÊ»î¯ïP$eË–ívÑÚƒEÒš÷ÌGÍ8ÖÚr¬o_/7w!¶”„nh- ;òüЊ0F¡—XËÜz¼Êi)HEÅs“_?-¿»¹ ¢=ßÁ(ŠAÞ@y’dáh @îÑÚšØv#øÏS,·HÕ–”OO­7wžgÅÀúƒ½ G(Œµ¬ËËËk;pœ«Œ”Y_AÕ±lÖjÓ1þNïˆ` W{Rçš­é:ÊÛ¦ÎY­9¸´n“žÑi`{uß=<²Þ“ZÐÒþ–Кÿ%ktê[îcÊUÏÿlŸÓy¨Ÿ‡ÔÿXøGc¡És~ ?PѨ/z„÷>ª®_T'1Ÿô/Éä»ë#?ö ?ÂŽíú.rï# Ô‚ Cb"è'<ü×"Æèü;ÄÄÿÄwôÀø‚u\œï5/ã;Œ½áØöŒU¯3ƪéÅ.Š[µu_Ïù?Z ¢»‘¡Ã\•&à-ÍXÁhnz$2Xbä%ÁK€õ jxf€ï"‡çÄÈ]4â<.ÇÂa¥ÅŠž¸ vÅSÒz µ5  'rC|"@„5k€G€Ó®UäT¼Ö úÄqê:Z5Ãcì:Që&ùçÒ²zÃiîc¸Sš j:þR'?ojmõj{àƈ€Ýu]ôu6Ài~²øbËñÓôýþÍgí´UüRÛ=Óy¿p ¡öø.[Ü.¿.0s,«‹’›šÓ¶2»n s)72÷p㱺‚ª”Ê7o¥µ½ßiš÷?‘zþ€ÿƒŸ“ùzæÁj} ShÇZSZ3#õdžFêFjÅ}gªRùܨ•œƒ¼øÙµ\mäã0ù.:ðS¡jT T¹R¸\Y”£Yû!œ¿`j~ã endstream endobj 1488 0 obj << /Length 2746 /Filter /FlateDecode >> stream xÚÝZK“Û¸¾Ï¯Ð‘S±`âIòàC^ÞI*—ÝL²Û©âP‰ EÊ$5cÿû4Ð P4žx+Ù”~|ý5 xµ]Å«n~wóö½LVÉS«ûÇcÂ…Z%”ųÕýfõ!JÄí§û?¿}¯¨Ó“+FDšÂ8¦Ï¦¬‡|_»v£;ßÄv _9_­ÇÏÖ,JŽÿ­Ï·¥÷Ù¹çÛ÷œ»Ë…hF8ONVñ1–ñ—7·kÇÑSÑ>Ùâã±±¥¶Û”Ý;jßêò©¬mù.~Ûâ¦ÚVCcQ¿==K‰`VP¿ínimû²ú‹û9·ú²”¡«£D‘,e£àËjØ•Ýíš±$ÊññtKeTCk«ÛGýL£²ª}>”½­ö¿Ú· =ÛòðOøË]»ÇÏŸwU±;é[´åã-“ÑÇ8fEe6Žõy£7Ë\ƒ-eRârJh–qTê5~º¼Ê V=U9 Ù’DP1îVÏf4ë¨Ä• $UÙØ›,Äè ¼¦IB˜’PP`ë ?Ѧòrá?ïÊ&°f&H§U| ¬3%TL£T 2N"ôÃU§©QŸ®ŸÔ¶É¹ˆ@ïØP´]Wö‡¶ÙTÍvT’wUÞåºhõˆn ƒu•Yø%#iJ­®®K ºÚ6m‡b綫3»´Ý„ˆL¹ÛÕ£i»“|²%¨A»{ƒõUƒÏÑì ½Èû20?eQ³Öµ /ÚHBx*–«9ö¸K -Ö8&jv% ‹™e”ú–}UäÚÆQäza—mÓš™gš]/·ÌçƒoŠ¡j|ÃÅQ~8Ô_ý*cLÆ1G+û†Z7ˆúò%6€“]U€- jEUµi ýçc^c‹^¡®¢øj¼ž k±•òe·¯š_ÁRMŸ­ÕÕõëǑú²×YO«_B– *V}àL¹ßµÇÚ–GT(6¾3Ét !?ÖV ÑÅ}%˜`õA³Ø4Í`åÃs ^mÚb|äÍ À°`¤ ½ûCYT_m¥+@|Z²›‘jª´agÂ/ëR¿!´ÕØI‹¨/Ǹ?’®:½,þôÃÍR QŸ&¬>¡È¢G£J(€äUÝ£T×J%ÑŸ±åؘµëu–  Y 0È ­cÅ1&eÙV³{xfŸ0›ˆ#;He'8´}_=Ô¥©Î&¬Xì`Õ&ìÍ 1‹ñÖuÉ !c‹ßîšwñ+Ì…ež_êWðœ ÁTîÊ@gð†fc˜‰Û¥9Ö5–v·2úzh¡¥7îUF^÷ŸoSPE½Y_AP Æ ØƒëÅÖH8´þ>·™×}ë{t>*iŠÉRFßî±È#_®ƒö QÛ8WÆô¶ÆFy‚ ³?êJãP |Àž É4n ã~ïPç…fîP6Ìz:=óÆ“»å`Åè ç °kµú7$Ä›3r¹óÐuƒ¬y™¤,Xÿ_ÊgIÝNŠHÈ/Qã ÿÀNÔÍbÖ€4TÁJæncƆÍÉNÓzŸ"5"œ[Òv:[ÂI:ó Cx–d"2._3ÿH®M‘6T8à† šL› DKʤ ¿ËøÎ&¦ô.‡Ì&µ™Ýw³Á êôUFh–Œ_ÃÂT`ÍÚ‚2ˆ—ŒHÁ.aè©”eFØœ1X)C…³:è:‹cQR˜P\VãtâœWÉã–ü½YdSÌj:<ØŽ¾6¡j“ñ3ÚdœÃŽ\þX/csˆB5 ÆT‡ÊÓ¡#“Œ^²“5OS’¨…’ Ì‚@©º "Ü£\$§2z†Ð‹=Üü†qÿì7ˆæÐÅ¡³Z¸}ëï±iØåC0eÏÛ:ä«^: ÇÆQ§DW:I±´ÆíÏUm›‡î«]È-T,ƒéŠÎ%ÀÍÉÖÕÌ6!2ž A/ àÕ ‰™ü†<ÈÑDv%Y……QP &ýj”‹óGK£äU_1žŸ1 îÛ”ÍW§ _iÍn ê:A|3³§S e’$⺣ªÎ ŸÃ lj<`„fsjõuÙlƒûg1%4¾(X.å®úµsdl >0|WÇ®é¥'€:-ôkÝah÷Ua¹6ôtŠ¡lmA.D!Í®ø9¨=•N¦€Ôô)ò4sÏ)Ö K¢{-t Ò×4s¢…~+Ú=@Ù‡$ &Èg?y¡7®P(ª&¿B0C0ù’_º—nœuÔÙÝ1Gww»<„*i­‚€ø%rI¨çƒ,žðVû…É#¦¤*|…°Øe«úõØÛÃÈ)¾‰Ib²{äÛâO˜ÃëÉ ¨ðŒÀ®c°3ÙóÓéô‚A´RJ²%2R;H3<×ùû-¥4Êón°!ƒfY:§‘#ê¬(‡X”€Ád³Œ{wÄ`™M^ù!dnÊé«íj:“œIg.šÛ'Øt’FïaR­lf]+ó˜ýrR/Ü?õ@?È«}¯2ÆKˆÔ*1T2­^áȪSXzšàxceDÌË cØ|H„`5€¯ÿ“2ôÙ>“‰Éê t™îAº2 ÿLñ_§é,¡7ËüTUã\6ÞÂ@aÛå›ÊpýŒyd¦³Û½žô‰ïAúœ •3îÖÇÜ\Èé=äÄRÉ“ÿ‡¼ux@¤C¹`:”ãœoS‡7»½šb­| ·t&¯ÇK›œ4áÌô‚ÎB¢›25›AW=åCõT^:ד ,\8 عñÏz/†HÌnêâXûeüÓm‡¼øW¾-ÇDD5ä~òó™»JȈæ³¼gWoVuÄŒ¥MÑéèôâݦ˜&¿uq¼?Ñ57Öuú΄àiï{ÍCÚn±êçi°îê1‹ؽÖT1‘ ¾nxµ{¼î1ï ÌÏ÷¬ýmô ÕDVã ;ý/’ƒïŠ‡¿nð*²s†ˆïÉ Øÿ;70Ëý öLIÒ„0‘€@3f‘ÇHèæ÷7Ÿo¨4 h‰€=Q•ž­Šý͇Oñjm@Ó¡&]=›ž{=N¢¿ªW½ùÿ±äÎ6D÷NÈ‚©0Ì£ ®¦Œ²(š.“@¦ç‚ð]È/(˜ý•³™×1È×COGñ¶ä sw:MFâŒ^#‡xv(À<âÉ>¦¿<,kƒgk‹Ñ6Nÿ¢1þõÄ5tm½0,_ˆ†xjÐ5ÞŸHðêPïß“,Fº endstream endobj 1501 0 obj << /Length 1737 /Filter /FlateDecode >> stream xÚ­WmoÛ6þž_adf£-ê]E3,Ú0 iš~X÷A‘¨D$$e'CÑß¾#’%GuÓb `Räéx÷ÜsÇ“»¸]¸‹ßN~¹:Y¿Žè"%iäE‹«rA]—øA´ˆ)%‘Ÿ.®ŠÅ_Ë‚Õ*k˜ºãÅêï«7ë×aH&ñ­ªÅ­Kl™‹ûûÖ¾Tš¢«›,ÿ'[Ñ%(¤K“9„}0 H†VåöšwÂTo­‘—èl/7©(o{üûZÿ–—j—‰•wùLH☓l9 è$-ühFGjzÀ=Ó]_ƒhÃI?x^$d&ÉP×;̸‚W:¹ÖÔ…bùñú#„wëú©\.…hè‘ €SA-ß;@öFÖ ª8”¶_Õs¼Z&@LV‚Yü¹0÷üñšmY-¿`÷³ƒÃ{ðLöDÈÜ »qMUá!ç&>§YÎo |Ε§ú³0 –§|…LW€MåŒ~K âJhW´àTYÑ1âæX‹fyÛÀ×JµÅªi™tåÃJ]¥•âPGç@¦6ú¾FðCš­vôAI/]Û”Xás>ãàâð‡š¨Ð˜3÷Þ(8úñ=q®3òüôݧvåk¤LMsØ7:;aÑê?T-Öµ3˜”‚±=öàË)ñ¶,÷c½«?¦L¾39‰ö¡C|×f‘q/ñZ+Ìy}tÛ0¶'¢^1´Û?XBš‡yóvtmaNéËKu[)yîñëéÕÕÉ8OüE endstream endobj 1511 0 obj << /Length 1236 /Filter /FlateDecode >> stream xÚÕXÝoÛ6÷_!8-f¯’"Š’,óËÐfÀ ÌsóâåA‘¨D¨%yí,^׿}w$e}Tv²"Ö<äHêîx÷»’vŒ;Ã1~ý´]^ù3cnÏ70V©AǦ^`̱:7V‰±žÌ‚éÍê—Ë«€´8ièØ®C@äIR^îŠGŽVyE©‚Dà¡„EWŠXî ©¼¸¸˜Z¾ãLâ{TCq 5*y¸f…¢û¸Üÿîøg¢…KómY$•VQžT°D#Á@‹8öÜ×>JëQmO½©d’ì.Õ“;jq—Øs¶¼ >™¤™PÎî@E••…šçeÂ6jø‰{…茴ð!KH¼ÑïKBÏöBZ3lO‡Ô¸”žÓ2ƒÐÖߣJÙTîD\æLM"Èžâ€Ú. Ÿm^—w_e^G‹9 ¢mÿÓfTeþfœÆõlŠâ¹ºâ²x¹¸m9K²X”¼’iiQسy¨“[gg HGÌê:ŸÝ<=Z.–zt½èåþÙdG‰*ÂŒÁQTD›Ç*ÓÅw»Ó廫²â®®iÍ e @NÜ—²ÞšNwE,°^ʳ'—,ý²H‡KÔ.jÕò+1¹krjrÏä¾ÉƒÆ‚¿äÖ„ÚžßÝ~©¾ÿhéXì¦Ò’“*ÛèµuUL¼Wª£tUnö ˵EL‹Ü4½þþµŽÒ#¦>i¿¤ì«llŽ1Ë`j;›[Þüýd`[q‹zÁé5h}dU‡ÀtÔKUÝz·ÿq\ÏÅ1|*ŽüÛ ×‹ýM°³|ë˜'‘ˆ–ºò fÄ-”š`ÇÉþÔGpÚëÜ¥uЋ<*ª´ä9KZ'ù&¨VƒSg^DX°c¥Âu:$!òmW‚ÇÑFÕm¦>=Ð|s\pÕè“nxb—<ê€Ù¢ÈÌ‘üÓS.ÊÃbµüðîTR]w  _]wøÂÎ"'.ž‹–Øñ¢qÈnœÈŠúVTuÔ”ª¼”ô;u•ñ:.­‹TР۳ͩ ½êm^{ öDô;Lòœ‡ëåltU©MMùØxïãxYIÝ,ªJ©’Ã_¯Èêëè¨GmÑ Ðùn#20>‹DÙP en±4…&¨{Ÿºø ]9±qRJ%4HyÙ¹ìt˜X¸t­)(ÑÌ E>+â(òF‘šJ¡4gH®œ~R¤No5Æ‚_Œ?¼ë•:ÉO%5ús./Y%²üU“e ÅYëù-Œé –‰‚Ñ21¢M§=vÅÁk†ê¨{Ì€¥'‘1®y æÁ3¾yxÎå@µ0û Óú@«Ýä÷=žÏàö8­ÛGç ¤ÖîÍÿãl½[þás×1Èñ™LBj;N`Äùh}ã |Kl ðÉš¼¤gÞÛ7Æo£_ã>•oq¸î·ÞâàhàÁfA`;àø™wvàwä\{_æKÉo¹>Üð§„À#ÖíÓ×ðUŒ4Rä-¹]M}§ğà-ÿ4¾þ…ÿõ³C0ð³¡@ë¢}˪˜gÛúIðbýŸ.ðÑÚ–¾:V:ƒRÞ€!Š]Îx«É~êúçJŽ¥±m¨þ+ûc endstream endobj 1519 0 obj << /Length 1682 /Filter /FlateDecode >> stream xÚXÝsÛ6 ÷_áëKí[ÌH¢>{ÍnY×tÛíz·4mÚ>Ð2ekÕ‡GÉq²‡ýíR–l%Mw½”€øíL×SgúfòóÍäü*t§ KB/œÞdS×q÷Ãiäº,äÉôf5ý4“e¹Ur;ÿróûùUõØ}ÇeQ ²4_!ËÄ1Ò7ìñ. ó‹`Ó'ï±–ƒ¯ϯ8ï ‚Ü„¹ž±q•©zW­>;sw6_Ž3[åë¼mìBÕ[çâæúýk`qÍQæ¹dZì$ñRÍ]g¶Þ•²j›GMü†iwÇ^é{0 Y{Öƒb¾ð0V´f–)QJv$` ma$,Üù®q+ýézeÞn¤šƒÙÚ€C“WëBÒ<¯Z9wƒÙÚòÔCÞ œ¤ò”·È)ÓÖòÔ ÁH†#ѬպÝQMǦ YØIZ»²Òç‹€Íb§-Ï+Šå0ó|×în ¸púŽáqÿ&óÿÈ¿ˆ¦§»·¨×y*Šù‚;É !Š¾Á¹ ¡ï2\kÔ™F*mÔ46[™æÙ=-öIQÓJä„ŒVÿHU7FEÖʃXš¬@J öôýiP_ õ• ×lê]±¢ùRÒ¨dY£­d°!â´h ]™aÚˆ]ÑÒFÞŒ(ˆ™ëÖ?˜–#A‚$J`f˜Ðl,q½ˆ3'àÃìýE¶àñ¼=Vs”¯—`¸ïC”[Lœ§u5÷-´«\V©!d»*ms ê† G]ŠÌÖÆpv9âùè?/xçbYȆ蹑!h0%U` 8£ï¶uÓäËâ~¨n•g(/ÐTíX’€î¥T¨(Št>zQhjD@†ýŠG:M¥ˆñ$²A8–#'r…>·l©¨H™-,¨Pƒö-mÁ­AA"bj¿ÉÓ Ñ÷yQÄÑ$.œí DØÑþ€‘Ü~X¸¾Ãtòö .´¬8è…$> liy8êÆ!¥ßgÇñ´F’°Ô&Ã\ûFrå®Þ7t1ªôø¨@׆l 50õg¶^jqÍXúšê‰‰'ìÄVOJDZzsá“ë¥9HÓÂZaë’Þ´µ óN@·€® Á×6Ð0•ÂÎúñx¤ a¨åŠQ´ã˜<–ê·uµè|Σø8ÐóãŽÔ¹]]þñnìŽÞ(é.ð$'V¦òÃ?O~š^ŸÜð^ÈB×·"àP¥h_=v¹ó˜ñÀ„”Râ¾¹­É? ª3‰ˆ¦£¥Q`¡¯9v “T ØÈ’6¡0Ö¦’E>45Ñ0$éF(‘¶6ÉNÿ`“kn†óÄ#hý‹òZ›YÔ¼šÏÛ‘¼nIlÊVÓ+)„6ö¤v}Ž1$*ÌÆvùß{¦óŠU‘­ç`%¶Shˇy¡é¦]Šu6ªo0~èü^îo—?•Ð‹[UÿIÏjµþq¬Ýñ|(_ü€em>‹4tÁfzŠàAuÞ´í¶yq~¾ßï™ÕŒé6ë© Ý.¤Tâ&ßl» +`± ñôúN`×Ô<ýIƒÄÐïB}!·M6æ¾Ý^.ÌN´l™®»¢â@"$ðÊîcTJÑ씼xv}ýÌ<E~ÑB+eVKXUrmVi~‘h+Xhí øÏ‚ëØ …ˆî[ù&ÜçFÀ­”õÊ°^Ðð¯±lYØ“ü@ýê‰êÓZfü»Úø{œ‚EÈ}òE|òj~üãÁ“úBûÕ;ãgôçõUL^ßLþž¸©n÷{‚çpæ'î4-'Ÿ¾8ÓÁè,ãé^³–S¸Y¤[Èbúnò烨Ñ?Z ï=8Rï=7çñÉ=À…Áà;¯Ÿ8¯ÔœCÇ*ZÛ@Ñp-¡±ÖêúaëÊO¯@C{Š¥¨šç´¼²„]ƒ…ÝåÉ÷¸F»`0ßcQèÙ7P“ª|Û©ÿÎRx5ò¶á³TÞ*J꧇}­É;ÀKÞ­]chæ:ìéW4À'ð»Wˆqñ£wtļ¤ûejøLЗ#ôÖV¤_ñ—(½Ð½êáíƩ׷°ï‰®ƒ[¸:ùÆŽðÿ›—è8 endstream endobj 1546 0 obj << /Length 2867 /Filter /FlateDecode >> stream xÚ¥ZKoãȾϯ|Y µÙ/>ø0‹¬,`ãI;9Pmq†"µ$5ýûTuUó5”Wvà›Íêîꪯžr°xZ‹ŸßýøðîöÞF‹D$¡  B›pI)B,v‹ß—Q¼úïÃßoïC9 Ô‘RØÇÑd‡Ã±ÎŽHø.àíaïp°bí—¬U“š~lÒ§l´ìÒóö^ë!«ñb-c…jÄÁ§ÀßÞ¯Ö6–_³zS5ÙÝý‡_ÿõÏ !€DÒÆüáŽ*„ íø¡^É`ùt:deÛ¼È⟰öm*–¡È£P$±òrLËÕZÙ`Ym>gÛ–ÇôÜiÓã£ã")t,ý7õ!½áë ÏQF$Aä©Ä„¥Ñ†ki¡"x†"€§[Á¼þ*Eõ”oÓbµÖ:Z¶=›c¶ÍÏôò¼ÏÚ}VÓK^>VÀz›W%MøgS2¡n³•´ËomnÛlç4IDYÛæåSÃoûêTìh¼q,SkÀtwÌ뼄 H°À‹}[g)îCoÀ êì1«³r˯OuÎ+‘£Žj—="`ÒSÁŠËç´¥d"Tl½”6ÿT]xÑ—U¦•22cد×WEº@ÆS@~Ü!Ÿe‘ò­žó¢ Ñ†/~\zYV,IT¸—!±"^ÔÈ ›1œ@XÙAù]ýôÿJ #COýx*·ˆ1gÛ*Ÿ$cÿ[Ö¦y1oÚSÇ81é-¹ûàµx×ZüwÐ%ei9Þß} AdÛ/èø]ÞÐ3]Ñ·êx*Òšæ„a§„hIHÛæEÞ¦mÆë‰ár[Ž§–m ¿ ‰–?dM›ƒ‘‘¶Âå5—`¨C3±tMÇÿ]§vw^ki:IÓrÏ”Ïuz<:£Æ¹º:•hˆ`´¯CB£ÌÕHÐ"°vŠ涮4b¦î¢’ŽÌëlr†%‰§ëôâ6®èyH¿ ^æNµ"”v,ß‹Î:‚HÙ!›‚*Y)§[Ðì¦@]+ æØîé ©EÚ¶ kÁͯ5½e‘5¼¾*™ªÌ²]C{8c…)4d¥»]Ž"DÿS€ÇUý±Wë’ êZ½BΠEìŒo 5¯ß÷èẑVÁ²ÉÇc 2|<9¾´ûœGhð½qá<0dßûà‹ºŠ… ôXW̃ƒ¾;?+G']',ð†±IfyI\:AΘð€¡ªª‘¯µ±"Rv†œ…2Oº‹ ª7ýÆ“8‡£­Ë\€xûvLWÍÉ7Æqgã7pÁŸ!²ÎÉØDp15±Šþ¼½;›96°ˆÂÈñF>›êhqœIòP`Ûœ4BÙ ®7yíãÛÈcJ3¨$qM~ùïU†Vœ²· åœDC{¥@µú´.ö7ƒTÈ_ss~C4OìÐa¾-˜Ó±ä L]¸ t ×áă †‚²èQþôÐ'€=ž&ÙyŸµç#&¼ÅyœºÜ(÷YfuØ`úû±­€U ›˜×8ˆ¡^L˜4è#±fŒØTí›ÀúJ°Ãh˜`‡1›Ll˜Çœ»ŠTO2@PteÀJ.)4·Û¹ÏOu–ñçÒp˜Ú9,Á$Ô4 TÛÜn«òS¨cc&‚¡þºRl¶… …q‰#w4Õ.+hèQ‚cô¾ùãeÚg—Ï5ž8P­³=÷ Á1SGhðá¶S>Þáuˆ¾Þx?³•¶`´Ñ—r?ì¬QòÚÍö_šÏ73£Íx äcà6Ʊ©žóv`½¡£ÒݾÚΞ•ˆ(ê ÿWR¼ lÏ9`¨qÈ‘Br !É’CaZÄä¹ÃN™·g*Õ Äêå/%}¤ GÛ´ÉDvèÂk·šÏ(«–ŸO R’Jˆ0š$ Ø‘Ï—'ÎíÚJö9áø>Šïƒ¤tdJAµ¼‚$åÔrÒW ä|yÝÛ¬éE5¹x¼¾;Øa»ñ4Ï]Âúº„±‡9ä`âðõÅ8hãqá I°DmÀ ì š{*Âb§"¼ŒM|/›¸õÌ©Þ†²†šÊ€˜=~Üy|êX¤¼qÊûCòäýH›ãƒDÊ…Ú}œçZëå?ËÌóU23Y;(ãåü ìâh{»ä:gü׈í€55ìrŒ!2h<õ·Ý‘´J:™ôñþB8pàw_‘AnÜ|„,,‰G-ª*ÂÕg£ÀÌ%ðIj`½3Ź.<ÃÄy^CD£&~N7•C{`ýN°üÔnÉbáBjsªù V,LçÓãSHÏL㽟÷ùv?§ß’‰uÁ'ÇãàGS.ºO®å€ƒ`áÕÌiCoÏΟ¸M\ýï©^gpÊZ¡¢®“5Òl_Ì)¤ˆU§xDÕ”ûïÑ¢•Ðq%¼ŒgBWÕ_ÇË°e[¶¡P‰Ë·‹¥P<’µèÈp“§È¹$_|qà„ظødZ>nO5#g°ƒ«yêêXç8Ó— ä˜kÈRÊf²šó™ÎdŠ˜l5/R(ó¹É©Bê´À,ÜÕ#8v÷TØ'ª[šA«Å'qƒ:kOuéq`KGÇË_iuSa-ml¿hžóé ü ÌSÆ;ó¾·Xe}l…I’·&¹—²§@€v¹Ãù˜ÝÝ@’Dç<—>DªÈdêšd$¢XÍÖ vTÂÌ+šo뜬å&©YšÚüÁoÂå&à$iÇnÜ¢¶·RŽj)ÐCoßmˆ*Z„ðAÇ.#LP‹P2òÔܽE€ïPqÁ~¨œg„€³ßæMHíò=5ó–¯ÙüqJ=a]U-î(£šc”àF˜PΔàØÄgçî~ð þA€íZdzÔ9ÿ"Òð ìö#7ºÎ8vº¢[Ëñ×Býñ°÷[ ?ܹ* þ9j ¥S`­bÏL¾ÇJÛ.÷Mø<©1Äy ‘a ÕQD[ÍõªPg‡zÚ'-înø„9L'ZÈp°äÝY)”íÜ7!¸Ýðâ/#3bÏ÷îSQ,Bef¥g¨©w&áÎmµQËMî¼ ì0svñÁ½çå”Ô¹50§©g3j$éÐ\’´”]/ ÏtìÝÃoç~ʉAÎo‘òZÇØA™dªÍépHëóµÒV“L8„˜|àGqûŸ×`äSvÒz#Q~øÓñÉ<¾½.·1Ä}+ÿŸdÞ1€oÁó²BàÃUN88VMCÍq|s ^x¦§µoó€´“êrÈ T°c¬}nè¾pû$i¢ÐUxôÝ1#.´ô}i7Çd‡´<ùS Œ£WoiÜ0ô2½¾ 2€qt)Û&[bšIÍøtH_ÌÂC)Â>5Ã-A¶Ù_À_ÇÒç¢ãßh&wY¨rñ¼àwNC»˜ë8¹ôÃgØ7 ŸÖP¬E…’yvÖç1+èRË• ¸Š*¹9¯õh±èæ+l 5 Á_OrŸ²û9”‹«Uô0jNÇcqžÔ^}ˆ \ˆ`]=Šò2‚Ì[›k£¼½å<¤ o}ÖO0ï~wÆ~žº`R‡ýˆ÷ÐÉð§oÔ˜ñ};ø4líÁ+ÿv®ÉtñÙ7šáe“R‰eø—dô;íÒ6¥×a0¢*ƒ¤w‹ª:÷ÍyxóE¢[ðB‰†¼9¿×·tÉ f4h²’½ M»sÝ°¢ç®bB] ³Î¸õþß ð%å%Ã:ž§àÆ®€Á—7»‚ﺵ?=¼û'KCì endstream endobj 1449 0 obj << /Type /ObjStm /N 100 /First 973 /Length 2253 /Filter /FlateDecode >> stream xÚÍZßo¹~×_A /—‡rÉ’Cî¹¾ÐN ´5‚ƒ*Ë5–äJrr÷ß÷Jëȱd¯äuîâÌ®†äp~|3C®!g|É€ÂÿbJ}ÎÆs}áÏø"ÊY g‚%‚‰”ˆ&æú&™Ä<!&IÑ7Ùé<Ñ'‰ÉRçÁï.ÖWXÑåJxä S%¸°Rø“¸¾ ÆKɘ?¹ÔµS1䲎gȳ uÈKR BÕw *é;ü!ö:VÄPØa’õVD©,ïJ6„͘‚ÉÖ{ÉX`½ÌMëÝ`Û”K¥È°«bf6ìsP*æ¬óBBŽT©b8•„M@Ñ,ªß€ Xª fɬÛÎ ”®*œUôLðu5h+`j¥`¹PW+b ,Ý,dÇNh€±d E¯³0(UJtرSY¢ƒá\ÊJ%½J ¨Tg)ÐŒÓÞ™ÈÌ=)¡ü‰ÑG}àR] “ºHôÙD¡JaÑœêÈh’Þ@Á]< !`¢¢rÀV‰+…wœ öQSPgŒÄ Ô#dH±N ƒ¤(u¦KXr§”êuC§óz¥¢.7O¹Š‰Íˆ+°µ®/¤šÃ.§º$ªÖ##˜F©h$×á)¡ÎvRße“áJ“YC(g2k€9'ªï º6šK•¯Æ]Ô±V\ÕE(p¾ 2#äŠ×¸„ªM¡ª Äc¡ª °&œœ š×æC1}fšþëß1gѲuvsuõnðí·¿s –àqw¸O糕991Í)pC‘¢;…‘ÔC×0‡BÐæØPÚ‡¨Ðåêæk~ZÌGoÆ+snšŸ^Ÿšæíøו¹]êío×cü0üeMŸÙfÍ}„XzRt6iÃb!ë^y†K{1\ íåb8?ƒ\”È&d¬àƒeds*-ͽ!çþ`½œ/Æet3½¹êW"Ž€ùV"T6KzT¢ë«yyv €LeügÓÓ |\» PÇC ÂÿY-µÙRÝQóòä¤.м­&óYó¦ùÇÙúï›÷«Õõò/MóéÓ';¯†PÙŸ¯óÿb;_üò¢7×òb5Å’³¡VX–´‚bo•ßÅ€p) ­@¨Öô¨@ûíWñux÷4°Í| ÕëûÜ•x!yQ[#¶©#w?%…G èB›@§]©b«ð8:;ÈŽì ]³C^g‡mÈ!†9$ŸïâöÜÞgáR0’Ìóäó~Ì—w˜/h¾íäžÛ žÛ žÛ ž{Íàh˜-ÃÌèY­¶zhU,'šE$ö¼F¦“åÈž] —ïíüZyù”T½E”Qòk“ŠÔÄN3ƒ³ÙÑá©`<³Ÿ&&תwÍ>5¯ÇW«áÏHïçúñæj5ù8\L†«ñÏ[¿ô–/PþX=n ’ÍE±%ëÉJ”°_³˜‚A¸ñS4ʨ{ô¬b³8'dut¢Ÿ?P¥#t öNbm®‡£ƒ¿Ž†W£›«›å‹/RI>òA´“; =¤Ø‘;¸`õ4ààô°S2P$íʈªÔâÚ)pLÈßË(ÇOtþ>ð”r<ð”fJl‰ÔÒ¹×>Öe[O•î523|UŸQI8ñô5v7¡Û[m°´GUÑŠŠzœø˜H£ùøòy$òŒr† ‘@¢¬ç@—‰¤<(ÑÇÑüc'‰ºìâóç‚=B4TØŠ=¸h£ž1&•áë“E3þ€g•}Yë™kgH»Ãü(¤íäŽÚ£Ignï‘`RGîÀ?RGn΄ª¾×ìÎi]ç+Øþ=$Ô3çc+h=ÞînlïvU¹lÉÅçá~¸&îØÞì+ƒ{9>¾Ü7ˆ—£S“^Ôü£w"õz˜a W(V6TµNïQúñÁ3šépõªde¸±Ü"«fBÿG< aBeŽr ={@i+zqÇÞr{55žNÇûÂÚÁó!‘–ÕÜ![-ȺqÇöÀê.nM6JGnŽ(}$våÀïDì]ÌäÀs0ëÉŠxy¦\p4Ú„tmB8mxsª®×€‚Z‚[¢E$n‰SKHKä–Øœ×ëí߆hgíÌû½! èöX/[Q<ÆzC„%"ÓøŽÿw¨8Í|[¿S‚S$Z§×¹b“ã^[ÏPzÃ5 (ÌÃŵm¦‚-À¡ øò@Ïþ ÆŽï>YA­Û}xRþZR`ÏõS@Ìpô¼Í¢Áí­°òOLË¢gBvAÒ¡"–"b”@Î%u ¯Õ“ø00§ÍIøzÚ Ý–S×dôæ‰HOˆmta9Ó^AP£ØéÇõ!z£åõÛ8çú@E¿+!t e?¶Œ—z\Ô£s Fr@±Æ°VGW£ßùÂ}M«ÀÔ'=–rý¦Æ„0P|–Î0™jèûŤÏó‚Ím¬ÃúQI ÖéÇSÚdÈþ{ÐåÍt:\üÖ¿<šŠô»(8=ãõ Ô·ÛÖ$ê—TV¯É[lõug:J1µP ñ€v›ùñv'wÔÞ$väŽ td1ZJ]¹¹0.ôyŽºçÎíáÂðÿ±_Ù  endstream endobj 1559 0 obj << /Length 1464 /Filter /FlateDecode >> stream xÚÍWYÛ6~ß_al Tb™º¥".z ) /›mû(-Q6YTIÊξô·wF$åcµéö‡]ñÎñÍ7CšÌ632ûéê‡Û«å‹4˜~‘†é춞„øQœÎ² ðÓ¨˜ÝV³7Ûí:ɺù»ÛWËIv"“ÀÏrÐ5ÈeŠ\«}ù"ŠNdQ¡ð"Ì`-2G*ªéJ¬ß¿%I0¥?öó(túŸÎaTx‡-“ÌŸˆ?ÉFaP:¡0ÈüˆŒ2»^iÔ™yk†ßÔ£fŠn™Q-éÎîé-µÒ¥h5å­23½µÊŠfÞ~&•œ®f¥¨2B½b•YáíÅy!ù†·´A¿g‹Ð"él™(’Ä:,*Ö€pB¼·„„Z³Ê¤ È¥> c#÷²ž/"bUãÀÄ¡;hfàDLÐ_â‰f?ÏíHVõmE[m¦À€Š—ZHåTS»sÀtÀ(õ*)ºÎ¯¥Ø}Ê‹„T½]×Â|—´ý0ÆswÅÐë’³þÔ×È$C£n„1#Æ´ðê¾-5v¹¤m+´Ù² k˜L¦¹÷²5[zË•; ˜U.Z{@mEßTFR²@œ XfŸ¶8¹s8tu*˜!ï‰sY5³5«…´B½âíÆ|…‘ Õ·TOOë-ÀZKý `°ûýÕè­¾r%7Öë±nÏK&GU Ævƒßæ9r¥ÞÌâÎ¥_ç)ñ8+·zM{&]0 ™¨Ó"ñ£|¬Ág‡ýú»ÓB]tR¼g¥ö…Ü|;U½aì' kìƒû~ d&Á{;¼¹×|b¿Èwn«u§¾Y.‡ƒï,Ïàð‰ù‹NvîFê‚©C '™Ÿ‰ÍBj¤oX ø¹\6üxl¬‚K¨¡|®1) 3Eè!¯³|À>$1Î-RØùQ´UtÁœET#„¾ Ðoî6)<…ÔÄ­ó9p½5¦„í!Àˬv´ü@7ÌŸ&§ÍÌÆùx5¼Â†(z‰ÝmÐ#jÓåœÜY…¼ÖTs¥yImY¼µ>P9‡nÉ&x‘e>ÄF‹‹\œå?J'tÃ¥tL)‰\—ûÁÛ0LãÜŸ`súÁñFqÔªG-âyeË÷Jù{¥>'Ñd±&¡'\yþ‘îºæ–Üg ø•ƒÆ4Y“kìMûäÉä8ö·¦ìª™™6bc’«vè eÆ´­ì1!%Sph .)ônœíñ¾sœzŒã=o¤ž-Ì—)ôqÞ1ªzÉV×77×O­Q¾ÒPv¶†YË6vVòUyÜ«`vÜ^ðÏ_—×ÞГ¸xœãPsëÒP’m <5\âéÉ84U0øµV¢éGä&ÝWvF-`ã=9ƒdê¹£ˆÁ·ìÝì[Ñ•ùüé\³ឆziíS”’4Ø–°%™éFòjJ¥¢û‹<š·!æ\L®…b«Û›_žßËCváƒBßÑáΧÒ<‚ln¨MZXC¿Yhx$(hA;w_ÃwË&™lÉ |c!Åë£Éþè¹DQÁýá¦OÔéùé£|,ªc¥Z]ŽÓú®Ž›RìzÔ·° '3d^”§ôƒ´².í»ÔPRtB"¸N¬dKã›íðöø"Êïé©W wêú#kóŸã‘} ˜ó¾Ç™ûKáhswQ׫ißè/§«]Â:DüžÙÿÒëNà=bz̦:×(֊ɽÓÃÛK<ñgÿ£øð}8©÷ÌÖN~´ ·’u+úNý§Ö[Šæg—£‰öë2üf¼{l³½÷¬|~{õá#Ý2 endstream endobj 1568 0 obj << /Length 1025 /Filter /FlateDecode >> stream xÚÍWKÛ6¾ï¯¼š +-iI¶T—Ù½ÜK“hidÑ+$íÝÍ!¿½|êi½IÖh»€—#j8œ~ßp„¼½‡¼ß®~Ù^ÝÞÅk/ ’Õråm #„ÑÊ[c¬ÂÄÛæÞ»Wôúïíï·w+<Ð ×Q€q$íh¨ª–A«¯5{†ÞF®XEj…Æ+½Ä_®ådhÊU9ÍÄ{#üæµ#ôª†ûªÉ¹yHÍ)|ÞÈŸ±UŒÔ¼Hᡵ9ÝSÁS­£Ü‘®øK$xc6¼¾¾6ŠF¨@ŸÁ^îÏiSÛÉ&‡Òˆ÷TŒDv¼)ÌSIÇÜ>‘:·BY6™|å,‡´aܹ…QÄ6Érs£ö³oFVñ#µqœ0ÉÌgçœtȈ? îÍçBâä4É‚Äžõ³\ÐJnjóZ¶§5)Ý¡›ß#§õÞ®øxtï3(ÝñÝ„Ò™ñ‘FÉøôñH(Qz*ík;7qDñxu¯†d°6Ó¼…Œ§ ¼p}l!]È€Û¦æ°èìùÖà$öh¹”¹«@I¡†š;aq¤Ò¢æ¡( F&¨Xݥ͒~ÕAW)ôÐÕïêÜLÛTj³&•JlYÓ6LšÏ!§'TÃlʧBAþçÎaRÂ0ìË€zH͠ˀ KŠ¤Ä£㥄çEº}ûç•î45tÑ¥9* jâ« Ès”˜ŽŸÄ°¢1#F7¡ºÊ#ËeU«€çœE‘–”ëlk¯RS\ÑÜ3Fõ/'(wÛ} qþO²r"åq>ª¥»Çt¡}ùnÚj«š¶ÃªßÅ< ­Î¥íl~²Cá~þα£dRÏqvÈíË“øÉ»|Gë\©Mpws™þbç @Ó>ö·«‘h-‰¬Û¥54?›8À캥ƨ=Š‚h:ioƈAÞZr  àT´†§Çx ÍøsEW>äDPe9©)”8I¢¹c?чùEw1Ÿ2RfDz/›¾hüOÃsnXå(’5ŒAIàìBÒ¯3óë’zmÙ=£D–ãÙk%på—½Yø‘Iâÿõëo])`4e®ûªiZÓ3=ÕlÔ}€Ü7”çgúK `' ÷} W“§¹÷òþÑØVkÔ¾º0eÙOêYLšÉä¿j&]Àv²tv7ÿ%úKµÃŽdü @Ý•Ý×í±”WðTËýì=¿í›Äû\/þT+™\ôcÐ Á' çoý(üÚ–fzMzš¿°­é¾©Ýøf{õ¼78F endstream endobj 1572 0 obj << /Length 1647 /Filter /FlateDecode >> stream xÚåXKÛ6¾ûWÎ!6°æ’z«¨i’-P$šÝ\š(-Q6Q½"JÞlPô·wø’%[I·í1—Õp<g¾yp±³w°óó⧻ÅõMHœ%¡:w¹C0Fž:!(ôç.sÞ¯˜Hi‘®?Þýr}D#iÅ J‰ÅDŠ,°Q~}ãyN ²¡/e7^ª=gãFÀóŒæ²d´p€=^­7Æ+Ñ°Tl—ÝCÖ†%éí²e¢©+Á– ¯Îr6ÄC~: JH¬u>yòÄè¡%ÓFÍÁ0š–e<íX¦—iݶ¬ íJ/Í%q€—f‚ ƦŠÝ—uf4oõ§Ýñ*“b©üƒ¯°´ÔÈ+¹dá+"Y#vׂOò­þ /]Ýš2¾çØzÃý±¹ztvu^½€ý¹o/ Qç'O¨xFd#BB@lL@Ÿj‘I}äǃ@–Ï(‘Tô-Š²´Êæ Œx·Cð}IgÔ¸.òIøx[Ú}_²ª[‰‹¢(šBâ¯=øãÆ„¼¤¨<Ê@>p¦£%.ðñ—þä4… Ê=Ø£ÈCijºœÛBôçOí®Ï®”™!S#3ÚÑ-ü±xb¢ƒ|²É”å]i]u”W£TšS$o;ÆÙyŠ¥-0Ö²œµ¬JÍrßòl.— ϧ„ùÕL“ëÈÚ]-Øöîí»—ƒÙ[ø¶FȈo1"aL.²áÜJ¸>/éí%Ä™W´0+(@š’ìhúÇF'^Ý–vGWŸÕQÁ0ö@…dcCÔ•!¿ÓL=;ì[5’üC\¼¼[|Z0;d(î~"?‰´\¼ÿˆ ~›‘¬{%Z:>ÔÿÈ— V8·‹_‡¢~þU2jÔAÀöÐ'Ž&Èw½ó2j¶ñ6%1±©øÄûBaË ðêe¾&ñ*gi§×·ü‹ÌCIÊ¢ˆ7}—Ö¥ÙðšQÑ·k/ZiÅA„\°ñ_8B]8gZ¦ï‚WÝ@ÛÿnÜòFd|ëÓí' »!P‹bWo¿é«TƒËó?Ï÷WéÉ)’}\»Ô,^÷BÿÎrÉÑ^’B{I’u«Ejë$É,•“˜Ù-¦œ©Ž<…t‰ªŒW{-}µ)äÊBr<¢ ·6Q¨ Ù:ÝšÈÑÖDÌ(ëªxÐ+hP&Œ¼Òß’utC!MÈ c¿o¤Ó`˜€!DŸýNÐ=›õö¥÷§=ó¾F«ô‡ñI2jëúÎ):³ È@¹–ú<ð>¼nàu’']%(ÂîÔŸå V[EFNäéAÐíp‚%rK4æH=ƒZ1\£ôV–¸lo‚5ßG±çN•É&d º³&¼±Ü~'˜íQ¼J‹>c³fÑ,Û’k×Þ¦Þ.%pðÐÏÚºÁx{óìÕíËÙýG]_ÝÚ ÔigºËÜÚ¢ ÆG±U0X>ðåÕòÈ—£V F!¹£MühÓ°*·1huM§Muf²Õûð‹âhŠùgíš@¯=-ÿóæ*g%zR¤¢P‰Ûa ŠA®Òmaša­^ÂЩëЪlIô*ž?èÅý§MNÊU©r¥©¶Sµ‚…µPë<Ô}‘izÇæJð0ÙÎé P Ï¡åoÏß¼Õ“ 8Ž¯g^ º’AëŸD«[Æô%”â©\z«\yøM-ßFªnô³Gɘi<xˆ$Ñ4+µ ؽôzl:2Ï%•À‹ˆeÊÝòçZ!~Mß±³=‚L?¿äj „dBl€¡zQÀ ,HÊÃ*IE Š£€øc—eú‰ Ž`bãâÈbSþ"ßIF‰fäuQèë+|Ëßh+‡›{JJzÀl¬§g˧ƒ¤B9™}6&³6ðüríØww`‚Ùž)™á ÉjX+ÇwÓ]kýÕ‘ÐMœþÃåsüt¦œ•aà'¾ÉfþøÌ?®I°bò£»çÝÁ¶yóªŒÇÉå"‚‡7–«àÜ‘z€ÚÉؽT’¨ÿLuLMD~4XØQoiR.nx•p;/ʘ÷P•ñËÍd’²¢"ô5·Aˆ<ðZ<Õî{õ^Ë÷‡ÿá>ó>J¿+÷™2òXÚ/<`þšpüÈ endstream endobj 1578 0 obj << /Length 1469 /Filter /FlateDecode >> stream xÚÍYKsÛ6¾ûWhr 5Q(¾zìÃ顇ÖÓKÓC$(a†"T´ãüú.^|H²c1ŒÓÁåîr¿}K‹Ý"XüzóãÝÍú6J™ŸÅ8^Ü• ~¸‰ B~f‹»bñ·—âå?w¿­oc4à ÓÄßèÑ<´ÉI•+¾›Àjw×õmWaœiÉN€ù‚dOÌJb?K±{×ÃEÍ%ËŽï‘ɽYÉ=5¦¦áû(ˆ°Å‚6Cõ>Ê:$ƒŸ+É´©ccýMÒY(ɶ¢Æ¤RÐ[ZçŒ6†ð1ˆ‚Š/qä=R @°Ý^šeN« 8⎱ Qú JaùijÞY£Ù\¨;ÁÛ£Y6ì³³Þ ƒÀÊpIª<åBÑÈžµåÿ24k§A†,4ü¿ÖÐœ×Å×#3¶~š9fu{غ¤â¥¹Rež‘­å‹AšœOøûa8‹Æ4ræ0è¤1Ë# ¯W’蜾·vã7¶{&fö÷’úEïŽ \²(9«å$×ð7…pæè9Ø(4ÅÌah$© "¬Ù…)ZF$ão¦ÀßÚ[DíÓ¼ÀÎŽ'®åv£Þ;æTÐF^_=A„1² ÔJ›Æ' Ôeà€y9?+zДÄà ʡ¶Džjˆ^`€¡+8.gQl D^WõÕÞó†XÅcÏ39‚V:q– »*Kp l¯öÏ7܆ºbZIêºT§ddùõ¾.ç5ýök­²=Îk–nNlWÓB5ëÚÕƒŠ;©ZÚLh°o×_¯÷žÀóN“=;Nþa8’èLÂÔL‚ñ/B?FÑóã"°Ç0 ÷L¯ Š@(O~3Ç‚¨^¹>’®ÃÓ¼vñmC…á³yb:W bÏs¼•Ðû§Xÿ0¯õºñ6G8°z7ptwg@0RçS ’~{sG5J…àb‚[ "Éë-åGÕÜn eí±…:KkIXÝ™ÙA躭\VìØ`›w›Í‰K”z»öКdË•ˆ‘»>4ÙNEü|¤@)u&ÊnSìûi[°)Y_Vì8ÅØ0Â^Åw,77¡ö«"2È œHj¨{ 6 óÈ°„êèÂ[ mo9ÕveHú¦4ºGòW ¶ìÕ#nUCÙ¯Fg3Ûem/Xm€÷'¢R K=õNuæfK-Q]’a¢È» 9KŒXª>bPÁrs3 "ðH+ÓiÎʧ‘à¡­$»h:´ j¸zÒk¡uÊI9˜`ûÁÒ†V4¸ZöH„ÐÄX]{ ‰°¦«ŒÊÒÒLÞ:Nb?²Ê¾{K/ù†ÕyÕn[`õI5\ì‚ÊVÔNfût:µu®¼pu¹[[&NÆÞVÒpy;Äã´R ºœàÚy[uÑ(ªõ¶’Ô¥hÎÛê¦tz÷,ß_l†+šV¸V³çmå¼èz2©ò¦ Z@Å„(ðþ¤ôÄ¿÷-BúÄóÞ*¢y?–t-íÀÝ‹ }¾2=m}G—‑Ÿbˆ»=múž&ãž“…Ú6Æ›Àv¸~Gvcîg¨»Mäñþ }³Îy ªÖ¥VÜMŸ?¼”,ÁؘÜÿÎ%}?aøäW¹Ç‘—ï‰ 9ìIȆÒHaÂk ñfе€WmÈ&ƒãhpb7Úº Â$çÈjD~$ &î§?Þ?J2ÇÓÕ¼Fר9jIªGP¦7Òó×­0ý ÇyGªêÝ…÷âŸõÓ̇ ú6C¾ãuõ\Rnü4ξ¤uŠX»=““þÅ?˜¿ÜÝü+ãaÜ endstream endobj 1583 0 obj << /Length 2712 /Filter /FlateDecode >> stream xÚ­ZIãƾϯ|±˜æ°ªX$ ;ñ °;ÉÁ`J,I $Ræ2ίÏÛŠÛ”fKÐÕúªê½ï­ìxsÚÄ›ï_}ûôêÍÛTmvÑ.Õéæé¸Qq™$ÝdJE©ÙmžÊÍÏ[׊ËááŸO~óÖf³ÕI¬¢,R´,7¸äU,Äýï›·ÆÌö<šÜà¦GÁ˜á­eÛÜâx±}uT–F»\û£.Í©‚;=<e·}ƒ¿é¶»¹Cu|áÁç³ëÏ®åN×eå:^ö\õg®þ=ëÞ¸m·ï ïê^ÖþÛ¸"M}y™­‡)Å‹ªš‡÷ †'À%};kù²§¶nH0·Ý¹.%´³Ývïx s2÷®yy>\Š¾ªO<ïá™fß¹–o*»Ü/t‡^Ž©þCÏ…)º>núÇÐíÍÕu¾ Þþäàmãí¯t}Q]º¯#–zjçYó]ÿrsŸš™èíá\´Å¡'l$°Ñ2‡aŠ„c#’pØ£tµš#OuÅõv‘Ý°2(ÚªxPÛú@üÇ]B“Å SEï€Ý6Ï·(êDŠK'Ú{Žò‹üЃH­Ý~XfwÕÏ O¥‘Ê<Ú¡óùê§m*✩vFõÃNÁ?ûªè¸%‚¼±oG­ UN6Ý€µ®\ž!I€§Ã ðf6-sàOHçêõ¿ˆ#‹áÒó@Õ1êŒSq¥‰ò,xúñoß,¢‚¦¶~Úˆ éØF6Éÿ*tlÚkѳ­ çW ˆ ë‡¶fžÂ³‹^pulXÅÕ}–òmTWæú§Áf®y*ŸÃ™ú`˜A=ÎÜéŸQ& wÜÅ]½QÎÅÞçs{Ÿ‰–Â(Þ‰[¤¥¸ž§²IA÷Yrôgãš9zRAÏÒÒ&vii“d´´0E´ðw„.(jÙ)vÄúâÊ#¯§V7„¾á| )OДw·¦.GLƉm‡PfËô!%è<]H ò$J²Ô‹ô«—ê«€ PÔ¸Y ”FùŒÐ» !Ò§ô=}º\è8J*™·Tâ—¢,£«+º¡u_b$JŒ¸ž;5 1`¦à±µÕäñaÑ^ÆàBŒ§‰²ˆW‰Zâб (Å-Œ.Í—6Œ¯÷ùmMds3ò[bz’D¹Ñs¦3áþ\ÐBž˜Ó’hÂIƒ\$® #¢ ÜñB {}W’@7» c—€þ‡CùvèØÍæU67t!¯ƒÆÚ}¶jýØ<ÊâѬ 9ð\™4Òâû&@ƒZ³$?"‡%§“HM•åé[þÚ P 2ˆÂv3Àq3øe&ÊãUeÏ«ŽQ‰ÿZ­Òò%‡ÇOüÇÖý6¸ú€âxáIþäƒEŠ`­F@¨Ä›LŸî¸Iâÿ6H¶gà?ÉÎ.б ÆŽž– F¡ß=½ú/'4Ép endstream endobj 1589 0 obj << /Length 2656 /Filter /FlateDecode >> stream xÚYÝÛ¸Ï_±o•X+Šú¼Ç»6‡(-íC[ \™ö ‘%ŸHeãüõ7ÃRÒZÎ^‹1EÉùžßp“‡ÓCòðó‡Ÿ><~Êˇ:®‹´xx:>ˆ$‰eV<”BÄ…¬žÿŠªl÷Ÿ§¿<~*Ä‚RVeœ%9œãh´iT× Ý‡„Osô^µÛ±OK˜”´ï8ê_'Ý7­6»}š—Ñ0âo5ÃÔ[žS£¦ЪŽÖí@SßôÈ£'yb´¦ågÝ »4^iíè=h«v"j;ä"Þí¥”Ñ§¶W]wÝyôÉêȾh’YÊ…i]ÅeU{™¿Øë…ÉV’‚|Y)<•w¢ŠNÓY÷–˜i ñ2}Àí š´ˆaï´^ç9í#“È\tÓ¯ôñ2 •8&‰D/]ÛŸèë ’¨±U}CJ‚—aê4~æMÍp¾LVó,*Ov°±í?ò&­ýŽny-ë2qº ŠD9 ëŒxÚUI„BÔEt#‰<úÒ4M(üÉ#cÇ©±Óȳ–ÉI2xY†ÉÐ}Ä™£n,˜ö›†Ž-ü,Ȧ‰þ¬•ã?Wñ¾Fõ4xfBtß©S¤˜míKji–MÏY\ÁðÆ3dË2øÏqêÛ^߯Þ0Ž5Ôok,XujÍ‹7„}ÕšW’9_p’Áˆƒ%!÷¢Åáò³LÆEšA¦qV â-/І»½Hô‹ÞŽÊðiöu'ÈŠðÑö}Ñð_og¯Ñ (Í¡ÑÈ_/zlÑÛ]L‘H£VÁÕ¼ûô ?Ó M3#ÈK¼àÔi¦‹ù¸e¼9]p}­÷í‡vÔNǬ›žy¿Óýɲ^‡ã›mʘ¡iÕ¼q¥ù•NB´=wú>«rÁª™ÎgØðÍ/ù*jéEª± =°{³V–²ÄÛ¥`V«×\ƒUZd‚‹³ã¬9ƶ²[Z{ ðÒŸø" …Ök™;uzqךۅþ9^AÝ~O—ge›}x¼(0Ûa‘Û´‰9QÆY î[Ç Åø4èçaÔ ®Lëè>á*)d¤.x.`ÝJFA†$GÚO«ˆÃ‰À+~̇'PĹ[×umƒž°¥pà«£žµÅÙ\pÃeèþ¸Öé›Ð[ú]pZmBÌ/îÛrc§CëÓHk(S¤YœŠ”Åì/ÊûK^xO ·±+î`Lú‡.]ħ˜%Sg¬ñkg)A~3G¬ÙîùºòÆQÙPý0õjds‹Å,ÄóÂé•wÓæe°Ã™Ê sú ¨`¼ÎÙè]yF}n¬“.FãÏì‡7d·\.B³¹Uus«.=+ÑR]|6¶­Ï,SßÚM–ûéüìÉý™çö4 Ðo»j5Ëïd•Ã­‚Ïí×;©1”·ñ3'|pD y¾ãÇ€G°Ié›Á(LE Ç.áã ÓÖÒd z<¸ Æõ‘7Q±Ä‘óóÎ ô…!„¿€(Ð,›&í@žÕgÌb|ª![´žËÇý:µÍg¨x›šKRÏ­âs¡žF.çз™ Ðœ÷!‘ÃaZD5B 3úÝVí Û«iÍ,[•fÀ¢ÍË|Úâ­ò¸ ¸ÆA Ÿ Ô+cpVOê^JµÈŸÀžËŸ”Ô“*®à–•:æ‚.Ë”ÜE–⦠à✤ \¡2H йYL°@º“ZVô¹Ê8¿Žz$ÙT”Ì«8«ë¥¦Ru_SEZÈ´—U ,× ëÊ[Wëÿ¸ü¾Ä=£ûÐ×-ú»b!U§‰€@æEy-ñÜ_0‡¿:Á°5òÂ9Ãúj÷´+³ˆØÝÿìÈÈø àÎ@üaC»Vš.[v²Cñ†‚"^ùkŽ M0Iz%Êè4Pm”Ü©¥Ü‹ÉÈ\{L4ŒÝ[ÀBSg™ú8g¦Ÿk« Æ“®õb˜.YâtÆÝ[MGpê¬f§†ÖµHŠèÉF˜Åq²^iò™·p9δ‹O—ú`ß2=€úÍZïÔ½âJ©8 Ç÷Ð-aÁ B jˆ©VÑ`„ÃPW¢v®Ûžz¼‡Ë¬£nð× ä&°I á¢}ÀÏeaK0ùõ4ïØÅ©æ…Œ4àJH¯N_5i¦?#žØÀ 0‡EôÒž^ö4\Vzüæò´Ç.Ãð¨éÐb\‡D¡%ÖÛGÕ·g(7—N¹ Ž´l®j’àò¿Ô+8’~—A¤¶ãГI·”AòÙLjHÓ‡×[lb_£=L±«f¹à’d1㌷g°#|7c@¼ÊÀo×r΄šçYÎ9 𷽾0ßÿØ !BÚº—Úù'ãñʇq 7}ÍoF ä]ÝàÀjN«ò^œ|‹¼«ev¨Ã£'|> Òø†ºÇ“ú^‡‚?’§88’$t¬5“úÈ–>éÉ¥Ñ/Ãh™DV9ð,×®2µÁÛ°W1|º™@à’âó©T'î‚ÀÜpO8¬?¨EÍ ÷",ŠW–XÌ|šÅ‰g£GÒ¿ %Z _’εf}rÄt2OÝ(Ãäg}h(Ü `–bíÏê+­Ò•Ýt§Ãçg…-¬#›æþ)¦`år•îeâþÅÕÈáAÿc”¬Ÿ– K„ôp¢ìK|¯˜û½çÖ"Àœ.AÆ>´yxz¢I_™rÿöÄÏb0á‘ømf4˜u– l¿ˆ*‹¥Ì·T#‹¥±e¾6¶¡9.›HKN…#0Hp9ÿbëËž;HYE¤º“壜¸’Ä•¹‹´+ÍPí¥vVf75v“­Þ½õoE<ÒÃ7ÄðÜ‘ÞöŠmÈ´Ý´BÀõ™Úo‘ÔqQ‰õCÇSŽOH³2]ϼŽ¤X<Ê8¸â,”ç<Óµd B±kÖÖ2ÀÚ³hwp rpÀa‘UeÔÃè6Ùîyç½ËÒ÷/KçËÒpYºy™i\×öqVdáÁeÜ|Æ/ãD.Eº=P”qU)™xãÍŽ)Ë%·wÎÉç? ¥KorpBÃÌ}  ( r%õì¬åêqô†1h$DàÞ™j£ IãB”ÿ‹ˆÎ ïô}©Ó€^%ùº¨}ǧýCæ6“5tIðšþž=3™½#l]h£Oïžì ˜`°oŸœ·žTÖÕß¿µqÐÊ'gÒ˜¯-Vþ'qž¿É­ï´PlÐ&»åù/AþÒŸ4vo¶ê4r§¹¾›~9Z¢%¤ÿ¶·cøÇ)3—ã¤K¿2 s;ø ߘ•p}ݼ3ñܽˌÁÃ2/ãlèm`Ûx˜Ûx¤ÂíHS ‹¸ÕO‘°Ôy#N©¸ªˆú\¿wѳoO£5ÿ蔩7^ðs7Ž\³½ÙüééÃoâ9A endstream endobj 1597 0 obj << /Length 3775 /Filter /FlateDecode >> stream xÚµ[K“㶾ϯPùbMÙCANí!N¼Y§ì¸âݪÖ>p$Ì c‰”IÊ[ã_Ÿntƒ/‘3ãu|‚  _?¥›ûMºùÇÕW﮾x‹K\.óÍ»»HÓDeùÆ‘äÊmÞí7﷾݇ÝõOïþùÅkmF£³T$Æ©0Ìjr•2ñÍÊ]¢ŒÛÜHŸ(UTÅáñ·²º¿¾‘:ݶÝy_ú–ê;úíJîéO>A²@òÖä´&2ï<sêʺâáwu)xZ¯R£õ›h«ãz¾hÏ_Ø—2‰Êã°¢¹v{>úª#âEãûYª/g›©I2“C#K$’C?J9eÎla6ÉòžŸ|÷÷O%e’‰~U—;Íõx°MŒ‘q0ì@o‹ôl»¢Ö¾¼Ã­ÝùæZ™­¯vK¼°*É]ϳSúä>ùœ(|U7¾j;_VÜ!ÓÔÁñùœ+™J”ÐP ÷1\y»Â•3Å–¶+ª}6¿/óûâ.É`g#½ñû{ß2G„³b‘#6KRkÿ GÞ,±DÉÄ)1a‰JõK\bYg ~I,QiþB–H‘ˆÔEšÊî¾~ðݵØú¦nw~_´]¹£þS}: ´cšï×k úÚ”ÐoiHY¶©Ä 3ƒ.‚A÷áZ$ÐÃ}SŸO (–¯êÊwÝ ¨ö%fÿ1ùˆ5ù5•H×åãrñ„|DÚËǽ\>Re½|<Z\B ÃH(j¡¯lãløê×rrû8Ù i¹\‰‹7ìMl÷žˆ°ü±‹ü€ˆrÛÖïêj?+u£TÔÒ c`^3Ų­ Ô»|Œg.ŽÜº½–éöÜÑé4.tz¢ÐaÛÀ_«|ºí±–ã—-ÿSð‡ï¿û?Cæ¡FcßÝ‘_©Z qŒðI}°Ë©KG…ju1OR“_Â'}æ£Ë=$=ž:÷j~[üן+߶¾·d°6aås.VN]q”É·M+ý@¬ïÆ\ê;¼ ú¿my<iv¼‰Ì&2›8É%U íî(J"²1!›ä™è¤KtDšX7’å‚t¢Ó±O+ëé× ÌR XPxÓ]dT4WÆ›·ònäD‡i0‚[Ø^Z’?ÏIõ;8)—@(K¬t àL±‡ ¹+àÅ6Ç_üž@Qó5š¼º„›DF]Dм¨‰$±ÑºðкÐ!QÛž”aCÏC}“²{\¡8‰Nàù":Òp¸¸òuèÐ7Ò-A×b–»Ä(7Â.%Ü vW±OC—†à#/gW¡Kæ"1 `Ò7#ŸTZPk¢å5¥•9ôÖ-©`ög€ÅsúýÌwX}š¤R>É ª3µâҫФۺ|Ýh$x*§‚ÑèÁhb’í/çPgÁvS×¥¨¶“aFåN4Ž¿Ì©'˜Å¢WxñMƒD ŽŒÑÚq< ç‘}蜘‰ÐKfn×n_—Ì÷xëàˆ¥ t/ÍDÂÔFÊ%;YÌaÅvˆ!V’Ÿ<Ñ˦·œŒ2F¶G@eòĆŠÍ8s[2Hˆ®•{2îÍÒ3]í³òªîü—”5.sH»J½”AHì8Â,¤Šaû”ùòƒz¢îVy¿µINqn¹øОü®/"c*´"Tã¸*ž˜5–CËûªnü~”ã(ÈŸ@ߦbz•ÁékûÑ¥Êc@Y0…¶ìFá<õÞ–EK­så†f‰ôp"­‹DúP=ÊÄ'‹ãÕë¿~ûöëÙ™ %¨6BÚÛ” ¶¥W;2 (DY·†lû¢âª»{ˆ¸T“©-êÛÓ¸”ÖJérKÂD¯mAk©An?ÛvÅÏÐúŠÉÍgà U”Æ諸šP\:' Ir=Ô¯`b‘­Up™º,)ˆÕRÀ³iþï*'¬×‹¢F?<”»æ³Þ&y&æÅñ[ÕçnW}ϾpúEÁÖãñ軆êñÏÔçjOãRîªø, ñíùÐ1Å’åU0™âøRÝÓÓ¾l$—M¹¶"-:þ˜‰ìuë›%e ÖÚ-8½cqÀÜ@‹& ¾oÐO|NÁŸZ;ì À6* ¥u䤱¯>žÎíË]¾ZÂÀÌ&é Ÿã¢‡˜ËæÏDb&‘#w+Ÿ§ó0 hiõ)8Z~j!ˆÒN±(§, ¦À>êu£Øu욘K¹q)Ï{Gb¤ÐBËêØÍÕôÅ->·3¯˜GÓÄ&žûÉxhÚòü|΀oëP>ç¹Ú‰ì×Û‡ú|Ç Y˜"脇ǃƒymÿUw<„•N¦"EBTh]%>—Ü_Úš[ÑiJu¤†Ä¸‚eé›%už×ª57=¤:ñ€åšçê_,é•¡Þð{ü‹¼WÇ!ƒ„¸ýåðŸ¥îãK‘ÆmËyÍ!›_°ñD-$møósõsE×,H'‘H€9"îð b¶vÓGŒ"ŸÒ„h «6 ¢¾¡fYfpwp¸Ø DQÑ$lÆpÎÊïêk•”iôÕ iŒ=|â ­i܆ú°Ø~SÍHìŠÖÇ®¢^.èÜl6cnyqÔÑÒkÔàqhM#é]F·¬£ðŠ¥<ê`Àì&Ãñ¿Þü@=ÞàE£íÒËžTãOuÓqÉl† %Ÿ<ˆ•ÑQÄì!³4ÄUˆÑò1EJ†°,PçkØjF#&W>–܃N\ÚÇû%Tw¡ >Ä‹¹5Ûoî&'+XL(«îæ¶÷W^&Úò¡¸‰ÑœNì<š‹¶Q¹ïÖw|8LÉ¢meª?&Í@«ÎÇã#õöå ’H oü% QÕ•]1EZ|¾ÿSû/öþä«=]ˆ "Õk±E¬ð¢h•²7[Œh¨R¤¤ K AJz.%xAR‚7ÏH o È!˜kÖ¤$ÇR‚ˆ:HIÇ`æénZdÖ€Zzu×ÔG^¯¶¬F,Á…n"ÎÂ:ÒY^z:{s2Hð-h0|IÇ܃WÝMçÛŽÚdؘò0ó‰Ò)`# ²= ‡vÛ¿ù™dø¢ær„ïrç ­Ñ³úðîÙ‚³6© R áS¤·ÌRÉþ¦åë`맛QGÖFF5„€õì<–Ô‚? )4Æ6…Iø÷Ø’î#µ:ã| ¨ ÀûŒ’(7¾ÔrZŒte’ÙÉQ?§2RG¯®3)vuÍän  š[+MÆ cûÄNÂ4Æ´îÎ ûs]ÒÂ6Z KÕn*À‹û6àšg:ÁÁgæÒí‡0´ÁrZ«Ä›ýeš‚¯ÌÌÔFêÁ³ÕAFð*ä5ØØM×nÊ y¯Q ÄbÈøU‘ ž0@{8ÊäàzpPD?zŒ—n¨ªÖaåKæ0z•0õ”â…ya'G#0nÊJöæèD2ÒK¬€”-t3»ÂWceƒÄeØQ…8äþ:\]D=þr´ŸílÖÈL{¹ Y–õQXæ.¢°… QÓ8«$3}\NWuqü$BçDãT¾ºI“TÄ›o•(_É4>H|X©EH5 èC•³eTjƒ4f²ll"ç7¤â=6qYNCÙjñJ¯s}±vgò<[9¦5ãb ši.·o½§ûT‰ ‡\Íý&6øÇÕæ}˜9$®“»YïÃ*ùj¥ úàBM¼ÔÖ{¦û“`™‡Ã¹íšþ†£à"dx-—KÄÊ•eÎ(žt½«nÈîV áÈ"8·µ×@¿ýˆ‚¡¹Ì—Fí`p>®‚øɇ‰XåHÛ=Ôä·ð²!ǽKG,&Ü:dj¿â-òWŸ|ûvqbà^ªÆN‰-^}ôTA9:‚׋ü5`VJÍ&|óýÒ„™K¬˜„JN„[i iȳͬ¨|`Hm³XÀ ‰™æ¨ÚCõ ÇÍîÐbž_,ÃÃø’€^¼$0®«B¶–Æ(ÎDHÆù›ób°3ŸÝ¹^å9t“½â 7A_¿„.*5×?¡KðWÁÁó蕤Wý‰ tù‚ª¦ôŸƒÇ¾ *ùÒÛšŸÌ ¤;]‡Àv`n*Sno\Å¢NK]`¤š¿Çåâ·Ð¥¨ —ˆ¿“ëô™Õáô$4ó{ùÝ͆âï×ï®þÀùªï endstream endobj 1607 0 obj << /Length 3854 /Filter /FlateDecode >> stream xÚµk“ä´ñûýŠ)>OåÆgÉ–l%EªŽƒRwÜBUxÇÞY‡{±=w,¿>Ýê–-?æv“"Ÿ,K­G¿R´9l¢Í>}óèÉs•nLh´Ô›7×EaœèM*D¨c³ySl~2½ýéÍߟ<׃Œ³4L"ëX˜²ÛçÇ=Â=ŠxõÙÒ»X©0Š’ÍN¦ÐÓ¼¾ÚJ¼Û ”Ç»#%ÂíN <Ç®¦¥ãØ[HE¡ˆb·ñ©Ì»s[~òÑë—Ÿ}DГmu¦*sз»8ÖAS—ÐY°Ïkl˜`Ó4w^•ýû²¬W¶Qj@W{×ßÝÂÎ/^¯m¬dh2í@³¨¿)i³¢¼ÞŠ(ÈÏÇ1¦]¯Y;Ê`YpîÎùWF’©0Qb³¾¥hÍcÞnìPîºüt{ÄYQä··mó[uÊûª©©«oè»oN·çžáh›( ìäª>P÷;äGÞVy½/;ê³—¿ž½3úTüûeYÊi+Ò@˜L"VWèMè'W ˜…Rœ³8$ÆÃ!Éèõp€î9w4T€ ¶ÕUYP·Å¾Ÿ6mYw}YmEÀ]ˆµŒ"óWø5Y0ÀòƒÏ6ÁFÈP¤—0PÎçí§«xÇ¡4ñe¼Uœë«*ïe×#»ªÍ5­ǬgÆ`˜kòXt3ÊDMÑ™n 2=¾„ºÖa¦cŠúÓo/ ž5A=u` cŸ:Ä á!¦—ˆÀûª¿¡Áa)•í[èÅU*¥YMG™+ÄÕVÂj=ýÜχĤ¼tÓº»®ú;Þ—ÕᦷŒƒ¿— Û×æ±ìó!BL?ú®Ç³Eþ«ˆ…ÇŸi£­ñ~ÕòºXáTš„™63N}]à”Jô”SÊÒ4÷öØÝ 6)ç¢l©É“’ >Ôu³UÁÝm#]Õ1d&b&dbsäHìÂF{æV×Úy[7 êçQS«¨®ñ\×%Ø:WœÀ)y&RïÈË5ôý½lç®´ Þ¸íYnK©x)äUÇA”Žw«¼jV=°$]svbÕÛ™0› gK@8.»R™„R™Å꯾yyÑ•¦¾+•™s¥±s¥±çJã{\i‰»RiV\i¼p¥VÌh  ¹âJ¡w¡õ±ßDž¤û+z’n¢…¤C×ÌÒ`KMÍ©þv'“$({ü¢$…©%Œ1—Œn¼ŠÓ¹*sº2™øYÜn@w²bïˆ þÍÄ®¼ëÎ'ÕmNM·/‹<Ô~ǺkŒfº[õw0Cš‘¹2F7WŸOW ’ Ž”ÃÑüºG«±ÔYñï@Dìy.1Ž?HD™B¤*–áÞz¸’†Ñ”ŠrôÚ$–q“¬Xh™ú^Z¦‹®ÈãcÓbšfÞärßÔÅ®i­!Å¡7Û Ð¼;6-A”h~»ÍëŽè”ÎÝ>N24P1À‹üßå¹.»®|¼f°d$ÔEÒA€”=ÐéKH9¦”Sž+‘Š] özDRKù?ˆœª™’˜ÁLt²8Ê £¸—×, Yj°63ßÉ}UÖè\Àg[-= g}†èCUÂp™ïo¨uh›ó-5ó}Ûtwý¹¨0ˆZ! €°I% ®ë°–Øœ¸cé)錔ð3 FBÏóacå+6$P+TKU퀸JêGââŠ}ðqÈkl\5Á!”%¡; Óû‘†»5ãY9™@9ïJfô×ù/ù"Šõá½õeMƒì«Ò ß2~LtheŸWG^ØžÖÏcÞ“MBѲ‹7,o·ˆ›“Ѻ Æ{ÚŒ’(ø/!gŠÝW¼r^•êÝjèÑcsî(Yÿ,ïÁxô°¿°¾«mËî †å§`·†ß©…̱#7OC ¤–‹°îý®*Ð2‰Á=Šà¹lZ,PóV¦"n:ÃØ;¬›öäA£ü¡Zª©‘j¬à~ûsÛWl—}h;U™É~`ÍÓ,Œä,Èà¸úa§ ÏÒÔ?Ρºêš²Nyïq¼ Ìök-™õ<>~iÃ; sH1¢À*%Iv|»5ÒjáUud;ŸU×Û9Ö,-ÏLÒ¾ªA !…éâëüŽþbË ´AÚŸÉŸV$“,£pšA1¤ý!U3¾zÁÏ` M9¶PÈË=¥o†ª–šÎî¬ZGˆíC:œ £w`¬Z m’Äu’cs`€\-˜SYP;[4ql_4Ì–CvBEiëbd»q}&$@ìóã±,&‹ÄÁσ-åã¯{ˆùPÚÙhXÖÀ—ù-ÜqÝ`jHáËS§C@bARÒ8 Îµöûæ\ó\²«zóÐYñÁ(MÃÖ±ôÊ…–š¢ R›Aú¹(8XòH ïòe 1†ób<"{À¬® b¬—¡d:Z{w¶¥%Š!¡*œÏOm(ë´þ2±ª›„ìZc<®BíôþG)ÕÌøN«0K$}ûj-“2LÄp”%zZ]DïØ u<¡Ez‚Kïæ6š€P’—'àb“Ñå=ž@dà1öK€æ!À³ ^˜ôÿD«À]?œTÇôL VÈûȃ žW !1Ho$Ó©\¼ôånZÚÍüüù’HÄàë+[Ð.@/èÏz.;5óc&Æ£Fld™×Òaš À]!*b ¤ÇTõ“•e O“·®ÕòXÓE\íe§…ÙH]ö"ž7hâ©IÕ#µ>ÞQW]–“‡Š-⃯®ïÖªHJ‡jÌ’F„§T¦T%˜­Ñœ^–ŒFÌ—Ëé-§ÂT x×ëg'ɤ˜–^(Ë‚ìÈ´^?£Ê¯UaºU=[Ø­èAÌÓaòIÜ»þú1E ‚:ÞË]>æ(äcdPABâ\»ÍrúÁ…¨hžˆD(ÆâEc›Šx¢{°ç {\›‰Bi²i ¸®2 !^SÈ J ´HÿX¥¸4ÑIùôuòÉ%;!!…X*øòDé}'’ †/N$ü]´ib¼ºuœ¨àëÆÖ´¨¬/µ¤ØSxýE6™Ý³¹‡‘Šû±Ì^Q+\˜)]9º¬·Ð6tîx-†%œÛÌŠ"(„,;HÕ×e]Ñ•­à0Ha­D¬~®ÄÆsM!kÿÚÅf"8×DzëV‹Aq¨³A:çOž?}ñúó{ õ!íóÝÍj>†Xe\ùÞ2ü(Ç®RKê£Á¿ÍòÍYiþñ@oË©ˆªD%µ½ºžŽ–u=C¦ÇF—‰ÝœìA¿Ge‚º¹Ö1up|-Ç@¥\ÆÖ…/¥ÈQNbm%jIÌD†YßÊÔÜcKµ_q¸hØ@#ÿBFÆÆe½“wœÅÆ‘º$X"Xéñ2j¶-óHãs~…ÂoÊœÀM_$*óþrŽ½eÝTóŽxkJœõêòUÝï¸âËW½VÀn ÓA1“„®úÍnŠ eËÂpuÇbòD2“ÕXq‡qŠ&ÝâjQq¯â¾"B“ú{7¤$ÔàŒ[aý¬ë˼X+êÌ ÷”s^÷ÍþÆ–gùÿ|[¶ ï\øpçi×­¶Ôáò½;ú±eøëc2ê¥úÃüû/µŽü²Mä•m ]¹¯Öp•J¼] ><æõጷçkDçÓ`(ÆKõ{ù15Qúž½øü5[_îy¹ÿ¢å$×öý‰>ßÙJF}°O\ìÅ›tŠ½ûµ1À‰3üxÅQ¶©7|݃ úô–Î7NÒP¤ƒ]þÇJ^IÓäNtmH:EýœVÉàol±Uf±œÒëûµmŒ¹/ÌÇmüPV&±sÙ zä¡ËÞ"Ú²ñÕ˜Â&ÂÎéÓ‚¶6§#ïošÎ ´AŠ»†ÛlËí%50'l;^Œo]°ycã…qƒá·¥ÿáA…{bÓµ qèñ“{×Q}t™ŸQ•·cé‰áÊVK cÄ ÿVà°Â~Â*voŸhYcCmw•Ñņ A¢„ßba5¯+×$!…¨5Ò£,,¹¸s0kíelhŽ¿`F—ï¼ç*x³Â×)_o@¦¡š½jÁ'2ÔU”È˺$@¶»zT1üÉ»µ³¥´êÄ:ÕÙI­iIŒèNâ\¼ÿMƒ?hºzaÍžÒ¤öºFMf‰4¶iâþô臟¢Mƒ`äBÞ¼· '\(ÅiÇÍëGÿ¤'þvÃJ³ ŒonWV¡Ð)¬–Äú$Ü2%á’³¬bÊ?H—â¹pÍMRú“äçö&- Ûj_ÈbÀTš>JèÈn_·Ç·"ÖŒñ ¶91ºñœZüÉ3vq°?·†Ñ,¤ÚÓ­RÁÛg,&æA”SzA7`) ºr/0ÀÅ£¿ öà.+vö¼É«-XÚož ¯bfáƒw,L=ì[€ðàJ×.³É)y(ªüP7´v÷öŠ[®¯iy©«¶É kä {º&nuÞòØþ˜w]…Z^¶cĉ‘pÖÝ} a_éÀš—÷܉uî©g³`¿ëz žÝùzFq”> stream xÚ¥ZK“ܶ¾ëWlùâT-)AÒ©Ù²œ²åªXÎ%Î3äì0â>´^ýúô |Ìrµër©´ènôãëÆ„7w7áÍ÷¯þþáÕë·VÝdAfµ½ùp¼QaDÆÞ$J6Ên>7ÿöÊþׇÝ>üãõÛ8YÌ6¡ ’–¢ii‚S^…²øÙ,ˆ’ìÆ× |ñ¬áTîTì=ì|£cï7ÜØ—ü,ª®< µ ŸË!÷ó&¯>—wÛŽ´ÌïùùRï”'_}ÕÜq÷arà_ÞtH7ÿù=°E F´‰ƒÔdŽ“îœcS­Ø¹b=ÊFîƒã؆ªm‚ŸF±÷®Ý÷%þý„d–Ý΄Þ-PfS¯jpaJj‚,Ö7>È:‹c^éÒå°Ò¡„¹‘½¶Î"£½ªçg]}Ü©Ð+QBø>´ü,›C;6l¯Ê뇱¨Jùf8å·ÚÆ}ו—¶“Þ7?~÷Ëëovqìýú†{>!åy=ºò¦pK =w];^ˆpÍ@_}.{ƒ #ï‡''ð“ŸÂy÷ÄZ¢k)ëNë/å¡:>p/ìÔ—Ü¿¦&õ>Uù4‡µr}˜‘ÂI+ójCq3ÒG™q»±† T–¸ ÚZCÁé3/BL¡ 6(2AFå–ӛ˥ §-ón§Rïn<—Í \Ë€˜Êac? c0Ùd}ç2ïÇ®üÛWxÆ_ml›h0щ‹ßÂ8DûÒ zåÿÆŠ˜¤„€îlH vÅ0í÷ͯo¶¶³&Hât±U‰bãýpÜXdbCåf.°ò›|Ä:0³#¤ªÈHQÑdò±pÃ[ìe݆ñzt!è6Ø(“(HaÉ•Y]•7ÔA•Áj]É X§áÖ¡=_Æý¾íAÓ¥ÙÊ„÷äîaÞ^>F:uZ¤kî¯wjå[ãHµ·ßéÐ`W÷Xf®­ZJô×W¸½hyÙ¢ï>fî-/Q¡yÚLl? A M{®š|@UÁ‘¼ç~¼»+{vï¸ûÍ©åŽrù5:h0ÿ*E°p.›Š M˜ø±&èMUËV†™-ˆŸŽ›(q'ëËégi±`}úrê&²|êؘÏß䬱‰gÏwySO¿ldÂO‡÷eUsÙWYªÿºóc¢ÅåEd3uõ¥U0iäåw; »’ÍžÒ…+×ü‡tƒÊ&‰;icÅjÀ ­tGp="_xz⦅Í2paF7 ÃÓbu Q°ÅðTµ²N{” U);,bœ»âƒŽÎ”÷±áxÜ .„ZÂŽPèÁ¤Î4‡ ßÂPÓ>0@±K¼éª`ãÉÿœ_tˆ”Jö¿?U‡“£‰-P•ÿûvfZ„üYWí­û–…ÊPW #ÔqHFˆO2ÂH…+#ä!Méå£üFSl§Ë¨/>âצ è‘É™c#ïûñ|áCŒ2ë`ÈrJ‘9·î+8•i¢ ÷¨2-¿âèeé®ä©M X­&PƒËUýò`7I^:§X€/}ëoÀ·5Lð²/ŠoÊ;·EY;ÃhA¨§ rÕ"$œ ®¯:çƒL =±{ ¯°g hpê±kÏWA mdT0Å# 5À@Þ!—±U X]9‚}h5ødî±1É3GHMYï-º*rç±"û <“ HƒÙ:úM¬•ðÿQøGžßoâ p°Ú^ã Üá…xT6ŒžÀ9€;6÷…T$‰–øU=ïŠÙò{î`냆6Ùàg+|¶á,àªÙlÈ$°sœÚFŽ0GE“¸ÎúE@TC€˜¨5ü¹¿­ŽøM ¤3’”€TÃ+é2Û©z–í8 ÂL;Rúb“o­ƒDëçùN m3ÍY—ˆqÉH+Kœª@3ää„{_Ì“2&H•z&H‚Ĩ?ÂSó‚³ã4$¶±q Ìg/ÂÆ~¤³ †ÉЀÈHoaä4ó¦á4áÛÆ.rÈ"õ†»fˆ„o‘pJ+¦Õk9‚Ò§}¤BN×þÕß 8‚ R ¤wÕœhÜ)§ë¬˜¦Õƒô9|m”‚Ã]ÜÍ”øM¾<´–'`.J(‹A¡@W;]ê±çV_ÝÑ¢ ÇyèOOAšíqË«KÌ@(ýÀÑ’ú3÷1Zav9KúúS;Ö·ŠÉùõ §YÁ¹wp€$ñ~0ƒ À$³Þîû¶à@ƒáÇ»ªÙ—|l·[|¨, )ÓZ¤-:Ξ„ªFj™qû[ T'Éžs6ȵ0³¬DœÆNáí*Åé]–¥ÞÒi6Êtønâqhâq† â>¸ó@'WUÒ«þÒ6¯­—y ¾]› „¢åV hà!®’Û§öÜö‡²5ªÕðÀ½¤µsŽ[ ‡, í¸ÃÉ6Žyr¬§Ë^`Ì=z†ÇÇ•ÙÀ¤æʽûyË™ ñAkFLH/`˜ Ž¡—°,в)¸“}Ÿº¯êšûðâô#rqcç)5÷Î/KáÇÃX; 2J'Cs qh¥!†ŽäÜ—5 nRºÐzßȬ|n 0ðí&~\€ùå§oŸ,À$K)ÅáœACdº¢œäÇ&Ðêª>à€hõÙy_DLâu+‘cWº`±pÎÏåT x8±V<•Té%;à”H*Tƒ~r»gÙR« a¹”ðǹc=2ðórà)@Gk7QÇϱÛ 'ˆ2¼(-L ò¿f\“Ǧ\&¶Îý¾*¸+ö.þª<KêÕ]ó¡OAx'+´ü™äŽÕž{…­gOÆ·6°ö P\^Ä]ºd72hp57¤l)†Q˜Y ùÎæL çÆoû¨jm¯êÄlåàeAW·S9¶‡2¶ê 9$v‘Ÿ4ÌÔ¯¸¼ö2b¨ˆÓ~&3˜Éf”Nf­ù^ƒp¨«tãÐœpâ%œ‚Œ}:QµŸ ??QôØE‰çȦë6l|[ÐO-XL;Êè¿vJ)btšðõ†ì¯TÑÝ9ÑJx»A¢®‹ž‡©rOðceÞ±³H‰Ú~ä·„‹Î®ÆˆS™×Ãéê²B>Z·Üœ* C’âà…Íô5ã¯^¾¶MŠÂ,n¢³¹x…NM2Œ0œ—TÅHÀà|-‡zîljv­³€qŒLph÷àh6™GjJ[‘GÓ®º ]RPƒ.yØ—oWÆâaVC`• &*Ÿ+áË2~KÝÐÕáèÓ\s/ Ë—²fïôº’)˜Æôk5ÎYaÒ.ƒ0™\ƒæÊ,KHÊâÙ'…úñ*«¨£·ÊPI&¿6à)ß2I¬_l{_ H°`aÑÔª*þ¦›pÍÖ®;µtíÇO+Åq`µÚ@Ðn™Ç.QAé…“öc›ˆXŒìå_>{j'ýìN·S1í´é[ƒ/ÏÞ?ÆÊV€õ»Í«Y¤Qôç®fM¥“~ìÿü‡—ÀRˆí»]¤6ù"FU 73æÆÔr(WŽ€wI):ÜrqðR{`E.  Êàö*64ãyÏCMµö9²Wvêš` BÂ;7yhEÃC„ê*†å< \Ęk4bòù]Ë>éK²Q¡ ŒJŸ-™È<›Ó§IòLé ×™áBW^É«ãìTzÑ(Å=%à…½PÝp¾üðàzeÍZ`S ]aAeúu y–0&?ˆ#9> ÝâÓ;ž>;`½=s…€18tá豨îe)¡ û•,ÚÈW‹!ÍsþÀC]y,…:ÄÐô<•<6te>8œx+¤J”x—:?”ûö5`ó¡kkî¤é:+£ Šõ±¹ˆ×Æž K= >š=%¼(~ap¢›7¼¨'ð˜ÜføSˆ*e/½TË î‚Í‚T žnå'íy*‹õTÙJ*ü1ÑØI§T#õùڣؙ:¼6‡_l81²eà4F"06±Œ½Z E%~lÿKu®À'arË9ÝHd¬OØ Ù$¸ä‰~áCƒŒ;n¹é?ä$[iÉGP}ð}ò[ 2ÜöÒ¼§{Eh” ÝIßIÿDÞÕí•«ßò ‘My¼Œ/Zî zý^`^2âNÑ3çÑ Ó •¤nÐÊ»óq¬ùe_žrÌU>UîW ³zøèNn?‚¶9\=¬žøñ|V6ã°üX&e•›Q£X(kÝ^äÊR .¼ÅtZðXyUúÙÝ^Yª¿Õ#ocnÊN¼.~5vI8¶uͮΧ£ÄÝJ@ÚŦf½pYÏzeäàà™óƒõʈ^Áï§ýÙ˜•v™Y… k—qÚv·Òü`í2™sNØZyŠ’™ÉqW¡5Ù$± ž–Ýj"¸¡ÙP¨¡ê-¯#X.¥ðK\N¥]¬O'gVf)ôÓÏŠ"Gi¼°w\EÍeeÔùž“+®£ÅG«Ûž\“Nøwø7™à/©^RumƒjGõèîªþ#·ØÃø‰üöÀ¥@ظð•ƒüŒ3ð¢ùÑ´¿$Ë”Iâ½ï ¿7ÜJF¿ûðêÿí endstream endobj 1633 0 obj << /Length 4175 /Filter /FlateDecode >> stream xÚµ[YãÆ~Ÿ_!ø!á;Ü>Ø<ìÃÆ^ç@â$ë ‚`c Š3ÃD"e‘Úõä×ç«®n^¢¤±wü °Ù¬>êì:Zbõ°«ß]ýööêõ7&Yea«xu{¿’B„:ŠW‰”a¬³Õízõ!HÓëïoÿøú›XŽ uš„‘0˜Ç”m‘o ‚»nöÙÔ7Ú˜Pˆhu£tjWÕ×7Jé ßl¸ÑÜó³{,Û’šQP^Kü˜ow´‚öõfÀm·Ï»ê_B¨ríz¶ªÜ[ñXn,AýHÓ•-ÏÝϲo®• >¹Å›.ß´~ˆUX†vÙÔˆ‚‡}sعªÿ•-à$áÜo@½ÌÆðî @Fë²­êp äíõŽ’`[vùM^盧¶j¹‹¨A϶;¬+ _ºþ}¹köE‘_Ûæs߈¤ôìÊýv˜Ær0ñ4 “$ò T !£ø$¥ ÒÏ"E'Él’ ßÓ0Ò=@—ßm<Eî6zWºgÞí†í§ÏrŒdÇÄa’eSúAPÀ»–¯û‚¤Á¨uuO½÷徬;îj]Ñ(hEÔÎÛ÷ŠHAµb[Šz6ؾjÿË]$e 7I& î ’¿±ÆºÜþZÅ´/’á~6·(A/ÈC³^RÁk8’ÒMM¼%´F8B8ꢴ *Èë5ð˜$ ò}ÑVµ› ýáïýdMÓ1Ô¨nï›ý¶\OÖÁ§1- 7hP†Ћ11cðͦ¬ZR , ~Åß–{è$!.²@ ‘¹æûé$*þ{-˜Ç eÇÏ|Žà‰n!ð32ø†XÝ8hˆÞžøÅš<½ùÈF\§þ1×EÊòE@uY®Ý~»f‰'í®,ª{Z%õF Í‚¢´v ]÷ûò‡¨SYË‚O«|¶j¡õXq"¦ƒbäÕ‚êØ–‡xµ0‰ a«Ý÷»Ïž¡85ƒf°Ä"ñ:žJ©0‘©]/M& ç~½|-Óàá°…‚¶L+*ËW0ßÀ‚ÕV‰¼rož®cãwÁ¼KS6$4âЖÎJÈ,”Y:åà)>„ql.²AŸ#bf©ü)T¼0E-‰˜(³§Ê VÈ05=+jµ8ÎomyÁšf)™¥0·S:ÞZáÇÚÍÆ©nùå޲͈dNÒФýjN v¥“pY@ºû²_¥þrân`“(%1QåvÇ–Rfæ–L6†ã)î)õÅû÷_,l ’É~WǘB~FÀ XÒëܦ!ÃöÀØ Ú‰³=OŽWí“T¯æH‚Q$ÑÐa¬²Ÿƒä_~Q$ù𺈤ÚÉÓHšPËäs|ÿõ #90NCÈ%NÃkÊNÄ᧨ø4‚q¨SÅꟃßÛï^¿Übã¼d½‹¡gg„C·qšØ1wa*àÏ¢‘L³0ñàa1÷0UéußzÔòÞÀœª*ÊB«Ï›¿¾»ýËaµ áýÂÊÏÑŽ4”F ±UWmóÎùSÕ=rë¯e×üúÚ˜ÀM‰â±qPDÌ^ÃZàT<ÜŸ¢$I3²öRÇ¡ÒéÔ‚þÉS*Øùcih“«wcÞ,qY„fIÂJ9 4d¦ÏÍqt<Ú Y7W)ìÔÂ΢$:zþΊØ™r;[—uÓ•¼91‚~ûÆFmMÍ8ÔU=ÖìãTëƒ ;•ç2õþ+º%÷qج\ʼS¹œžÕ¥ŽPhø ME"e;µ=ö²Bö¼qÚ×<€ñ@cÓŒò̧†×…ñ&O(A¿~Ûq˜%Pkkr!ÐfuÃêÉ !¯ÞÝ^ýpE”+¹‚‰ SH~”Š0Ê¢U±½úð½X­ñ¡Q¨á\² ÛùÚ4l³úîêoœS¯ØÏ^›8õrÉxè FkœmXÚ>Ì“JŽ%`ªÓ– T¦m{rÈð=fLfôPKôˆè0/A?Ósè¡žAøH˜ŸAú-©l‡µ ½,½âÄ' §.) ÕqR@z«Eps¢ÉüˆT´ˆÕdÏ#/h¹MpZËô»Òèui Ža³[7ð$Mæpá\<„i®ƒ:œ)‹Ñ¢>gŒÑʱ܂ňãP i°Á~M'“áDÑÎáÛ‹™&ÒÈG1†y+5’³©…êç‚S(¢™Î<ÇàMv‡rŒá)ÆapÔŸ U8¤?ƒR1,¡T?טR'ýŒ£¡ñ™ß•N”&>ÞK'‘ðÉ’HâÝ2þÄÞf¬út!\7Š(™žõ|àæο¸õ/bíŽ%tð±„ç…’Ü»ƒŸè¤_H´××…îoNzÊàG¢³ úIð-{Cv3y7`3ÝVå6ÕåÔn·÷“š•• AIl9Kôxœ’È9>‰Ïó£áPGËçVU Ÿú±*¹{ëoû­Ú;bæ‰üÖ>má|ï«Â- 7‹W6˜íÄçêrŒÖ«ä:íÉ+kjÎGSר¤!(·Ýb±»k%‚ƒÏÁˆÔÓ-ΓÀ}+6Mk)úÜð³†ÝË7UçÝ<•ÅÁÛMki!c– ¸ÅF+,k$Þm)ƒ²±¯–vÏ$6Ñ`”éÅçš©íì/ZSûKŸ\ä¨í/¾ZÁ 'üê®*(ÅogiøùUƒ-P<òƒTÉ~³ÑŽ¡h'uYd çÙg‘ò×\Ž2N‡ŒêÅ¥éKν»¦­ÆN4üHùæà^ÉÓ/ɵ~RË/ãUÔÌb„ÑúÇ1‚é%Œ÷¢¹ÀÉ‘^åbÄKªùèÚÊž>2  dOÀ:O2­'pj±˜õ§ÄEýR.´%}<“X‚áñ¿rOSª l~O¹š5îJ~‚w›ÑoU½5 ¦ÍăAO<š­£wQT_²±-g ¼ï0s–Àƒ-WæÖN3m÷A ·,è) y]n÷ži¦Pæy H*´ÜÇe =ä &‡ Ë(=ÏçDÍlÊi|Š3ñ‡HÆŒ©îÅ Þ˜(L²I¥,õÞcb&Fɱ°š õ°¿3Lˆ—™À<°çxÆsâŒN„㌎} ™úìmD,s&dÆg¯k¤ˆAÓ‹ŒI‡‚ïòuxX…C— „LmšŒ5o–ÝEjÂöV>Ûû+„IÇO§«ÓêLîÒâOTÝ ½¼ˆt:ì=ÂUPý½Mç*ü¡OL,Š¦‰/¥%Ôå´„’—Òó¸öĉ—,¨—‰È)Hâ¯Úx¸l¸×šÙëªÜy-;uÛíEW®_qmóÞÿÿa’ Éõçš\š€·ÛpÓpA5%ž/¨ 2ÉEJŸWAcÌ\±/r±|QáZMúÓTN‚N³‰f|Ê7ë ªsB3fv4LìÚ´×ÄV,À†{Œ¦^rîfƒW|àÿ:5õëuÕ‡¶í—jî½Ç\µádºaû“;ŠÂ^È`û{?X.£ŒyþlCl{wsûØ_ÇþŠ*7í— ÜšÉèjþÓȶ\sùN§rø—J¹ƒÃ»­è†ÿ: ”kQ¬ûô·–O”roøÛü>©+Rµóÿ©ÜD’ô¹ä«”4Ôýe¨=,–c[ S¶åév<™´Ìÿ+m×´þûh2û~¨@fU<_²È¢Ñ?¸bÃñ5Æq"^½ó“-òùÝíÕÿè0êF endstream endobj 1650 0 obj << /Length 3591 /Filter /FlateDecode >> stream xÚ­Y“ã4ú½EŠ‡%]5’|Hj €]¶X¨éeªp'în/‰l‡¡ùõû]òg2PT"ëø¤ï>$½z\éÕßo>¿»ùä«Ô¬2•¥6]Ý=¬ŒÖ*ŠÓ•3F¥Q¶ºÛ­~Xí6ßoo¼ûç'_%n4;ÖF9 hšÏpÊà«M”f*rÙjc,‰xVW4‡övcm¶®ð߯‹[›¬½5ɺ¨:ÚÖ§ªkyø­Nt© õ>£hÝ=<§:ç0¨l ª¥vÝž¶O<œËÎmwkÖMýó­Ñ€œ¦áÿÃs½Í›]™ïtY=à´¼Ùve]µp# pÞ«AÌë -KÆ4¿ÝD0¸-š./+þ8MYï¸gÆÿ®<êv“èdýEÞå³Á§²•Öó±àVބƾ­¹ÕEÓ¹“Þ\–þÛ¶uµÁ¸g},›~Ö¶'è_À {Ê‘‰¢C£íN»’HMq¬™±££c q¬y¨›ÃK‚o, „U±7¼IÏF˜Il„ÿ)©àÕñÆÇø ÜM’¨Ôšéé›útäù†…7ŠFÂë­J¢$ïo¦¼Ý8ŸÄëZ碾‘é—v°×w°ývq{åt Ô‰”O„:¦X€ *¥#?>ý9DãTGaN^íàÀí'g¼Ç†9»¢ª;ä¬3ÂbhôL„61þϘ}$N ßjm›¶ã<ân[lëÐIÔF•v)H^{,@!‡-öÏ·i²~Áâà2k/ÌJß‹ª" ¹à¶Ì{˜ãS{…ŽS8ö"ÓÏAM­kÀ³¬±ËQÇæHÔ[ž:‰#MÙþ *l3³þî¡+*$Ž¸¥Ç¥8y{BcA´JáäÑLu‚ ?yCV5¿j 8'@š( ­÷Ò©8Š¯Ò;w…'9ȱÍ‹%óPï÷5 Ï»MÐ`Âõ‚ëÞ¡ ¶Š©gà¼ÎÙ)ùîØhkK¦[dÐáŸí$¶ú9§j—@Gò=1t™õ®|ÀÃM'H³šZ ½#«L-rLfnº)ïÉ ôŠÿ lVȲ>ÉŠ¶ —öbÉô·eµ¥….@ð¦Ø7£²sÁCþÌ]<0¶<ã¡–!&*w2©F·yÝ–¿Kيɬˆ1ÜÀ3.bEÞ íIó1m‡Áý†®¹ ¤qYOƒÓàÆHˆ`¨¬ ˜)Zé=œö]y܇õ¨¯ –¬ÿ`)ñsθS·­²èf{Á#Ùl*8C£®Ð*`kÌ~ø,§3“9ûaHØÏUVRðÿ÷²à¶ÜM$kD”¡Å‰M%"Ó¢§˜Ž”¦!¤jGÞ•ÒăÒmÁý {ûÓŽ>Á€{á,–ðÙäÝÐ*k o”}Èì1ˆ-¸Œ¥)ez- Î/'Æ1¸±î¸Õ5yÕ"D›ÈL6Å™¼idf›rƵŸçuËŸã¿oKŠJë}}¬Oû­o”˜µÕ:ûšÎ®_×ÝÓ$¦Ýb蹧hÙÑ:!+Šbj×_¡ S¤›:@¿žùƒ„:%uB6PW/˜ðSà‚àq? N+KkþG×\><÷ðÂ([d\,rêû}gÑÂR¿–`º,ðhASÛ«‘³æjDdÒèjD䆀 ¹5~ýx:„0' ŒL6wò„†š½«†´ä +~E‚äûS!0¯¡ŸÆp¦ìª¾Š?ÈILJ;µ=àˆ'„þ‘gÌÜ£¸ÕúH)UŸ% ^÷üXΫdTEŽ9¥K'bà¤Å²Kõr–° §…àBqeÂ[k“ɬyŒ¯â´'úG_¿~ýÑ™ X²>¦9G4MÆ“=2¼,XƒÇ—ôæ…Ò/Ô–¼›~•õ²âáþ˜/æh'^é©Ä¥Ž¸!þÅ_Œø{qEs ŒÅÀ"Ó³öjÍ3œS«2ïçäÏáüféȪh¨Šü!¤ÉÍJëÌu’p&Âàr®ÊÄÑÉdNYßX׺ÐHƺðMñ[6Áºø1Þ‘²®î_-íd”ÎΓV3©@Yå"û>(`¼Û9:›\>¸± ‡‹ÁòéäÎþ‡³r¸>Eñ!·…Îú¾-öxáè#^ Ú0Â]EN¥,hQÀ ^=†”ïC26·‘W©Žæq#U},“GlLãcCœÂ­²–9-wApcõž²åŽ.çJvÅÝRû ÙÔGøžÙ02'›“ŸJ²-Ð}ȇÊ8Á¡rŸ@wˆÁh¤}>Š®)·‹éتJü•–8,|CT ‰ó¬ð"•dÈû{Ž—É™µ°Áý­Õë'®}9Š -dM¡ÞÓIͦÂLs_vT$TKg|Ó¶a <´ÒõïESsßY93å,Ç$ ©$Ï5HúÂöns™/ÓM}¿/ .·/¸0ŠuMH¶%ƒ,gÉ<[t|œÛ.¤ÙÂ]m˜»T!Œ×Ÿív˜\Àþ†¢IÍD†Y-fÏMLõ»œBeø"Úéà°ô¨È«¥È«Š¼Zcy€z8·p³zx7Ù!,‚,rè¿âåÎe†ˆ¿«_}TWûg½™%V™$¹Ý—yvßò€,¢› jM6TúdŒ?û…ÄQ[Û¡¼¹Û-gL ;׎€)Òñ|—œgÔ0ŸØ¥MÀ5ÆýA>h±^‹â0è¶MBóó±\jaM«å pz®“ÑmÒB–~A¥Ù¬n|1ëööjÒm‡ûŤ{ƒªãÿ=Dà´ä‹Q6`ØQCK”9K–*‰›L«D/]r îEÁ³K þ¦è: Fˆfc•š‰hUuI°(íY^7KÐŒ2CBŒ¥—K+Î÷ŒzÊÛqÌçà 7 è·ÝK`‰wqò@¾ûß©í¤6†këÁ’rGìs_ÌÒÖ$]°ErÁ-ÜàG E^î RÕlýEq,*ŽL@Åÿ¢lÑ(æL¢QÌ™„äg<o$èº21m÷¼N€p…ÛæšÿÃõQË ôÜ?ó¿—㢽Ȯ묇o·'¾*uép}ÍÁ­T|ÍÄn8ΰyÖ¶fíæÃ,h·Ž”{ûö³¥r½±¥ºŠ~à ²çC¹Iq$R©ï­]H¦Ü¨”†Wö ©6$¨ÆÏ`L8D.VQ:wfùý^.÷„{‘µƒÇþKo 0à]̃Ñ{kQ[@íü`Ïå‚Òñ—öÓ;.Í7Ø/';UeÅ—U£<”ßקNn@Ÿf·”N\–X5$éR]ïE{ ˜áns×ÔÇ#‰šR~ÇDŒÉó”K£5‘wŒß²:0HÏ*2´e^÷7ÔŽs’°'ÙCêYÔ›ö¢´™ÒÃû<»Ö¯î^ÿçË«V±_½;s°ó»yÊ5ˆô®Ü>·îË¥¢{Oc<Úd®Y¡< Ñ––&¤Áç[°=³Ðçï:8ž95’«ÓÈS)Ëø¶¨Žƒ ÈŠè­YIVÂPF/ujø)¿jW¡ùú¬jm‘/CÚ{«§¼éL–e³b÷ëÔ¨tË$Zø°!¢³n²aUûwEÙxù¾]!ZN‡(_M¦K&%ôM”ÁQ!©-à ¡Ï¬ÌNò­Û$Yëç}YáÍ¿¾h§Å‚ï^·³"Å÷·.^—Ûbóý­1ßû¬N¼\–Y6þuÅ>·%†-ÐÑ|“Wùþ¹¥ )¶r›Jƒd™<Õêñ $½œðc…÷NrlÝêš¼•¯þ• ~ô* ÍQ¶äݔ̯/=[ŒÝú—S^ue7·x1Ã{)_¬ªM)fzôÛœÇÓµx`'‡÷’Ìê&Sã@nÈÆ=²ñÙ8Thq6?‰üž—Ø@ h ÔБØ|»–×9»rûTwõ¡-3CzFˆÂz{/ë爢ÉMÓõ×<£KzššÞN_ »•W|´œÈÀ9¤Ëᾬ ¹qæváÞÝúà ]IQŠ%îuþ“+|çCÑÿ"¨!(sn”ÁG¾m궕 Á*_|…Ó.+÷—w7ÿZx• endstream endobj 1658 0 obj << /Length 3237 /Filter /FlateDecode >> stream xÚÝZK“㶾ϯPåàHU#‚§rð#;egíõ$©Š×JÂÌ°–Cʵãñ¯O7 ŠZofãT%¥ƒÀFh4úñ5H¾º[ñÕŸ¯>»¹úø…ÎV+R™®nnW‚s¦’t• ÁRU¬n«Ößüxó—_¤b©òŒ%\Ã<ŽÇØ}Yï‘ïŠûÙgSo•ÖŒódµ•{±zÝv›­(Šu_ÙëÍV ¾nC´‡ò (œ¯cž­%Jß•½m»"Û¾lew¨~AFdx0eC}‡êv#õúÖt¦ÙKĪ 3Õí‘ÚÃÁ©+ûªõŒ¯¹æ†Ý1/ÛçíϸQØäÔThM[ùh³U°™ïS×À©”X‹"/þÍ$[~_5'ÃüÜ“¿,­5õ®.8: “|iwƳڳÿZ%¢Ùß›_¶ß˜}I̦§ÿ²fnÇ-Øf«9ÎÖ™ë%‘û{вLÕúPö%¶¯f¤9åÀÿÎP=š}õšsJëÃáwÕŽÈÉúÔLG=¨8Q¢$ÔUnÄOd–ë·GÐvc‰ë¶íÆngyJM-', vGlOg‹ìM}*ð•ÝFäë»Óƒiz§ P§`90D );Hs\ºù$2çUÎ’´v²bÇþZJ=³ùHT’~÷…|ù꯿[U¥vO"x¿Ó^™³,“¹ïм¸€Þ6*[gÐÁ°…ÎÊg@tˆ™DÆAƒð`¦§‡ª¹£X­¬Ãl¶‡ÓßH¾>¹C¼ŽÕ¶• h fÚŠ4—?Ws_ÿ_h" è«Ú_Ð#Û”Z1f±±}Öö÷0,‡xy‹ÿ)îÓ" ±° ŽÄc×â&ßVCÜ> Ã€ÀiΦ#‚ ‡®‡Â!ô¹pˆñ¯HF> íéa²O7WÙ_Ž8 ÄWc (Æb||¬ ø7ÔxúÇ ¦z¸ëÚÓ¹UáÝ4 †X?ÑS¤Ns@q¹~¼¯j3›Ùš}Û¨ír8¹Þ… L冼mëºÅÔòøoœïlÊOëÞt (çy‹'f`G©^»|“O5Ë‹ ¡»¸Ìþ¾íÛ‡öd‰§=õûöÁ÷:µÂI¶šO]BÉ!‰KâÉ„E³Œ†~> øj–Ìæˆ<"c<ü®ÜÕA0/m¹ïOþ˜Ñž c8Oô~‘€ëX}¤±Î‚~!ûqåìYqIúAÂäÌøʆž]ªŸœ†‘þÓ©lúª„zä˜kʶUO´ÊÏZÖ¶%ʱµ¶r»Ä§¾¥þÑçuf])í%Æ0 l€‚¶b ƒ´t½+m`„]ŒH%+¸x×ùæŒ'úÝç+8Ë…z×ç,•bvÂNd€¨.'Kúª_G„€ 3J]¬Ú9•¦“`Î]Kó™#Vö ²ËÅ()±¯¤Ç8’â‚‘†yÒÁxß~öÕÍ"P‘Leù³Ê±Û$àÞÎ;ܘ%äBÞðþE%LŒê<ƒl\±ÌaãgC¶—¯äÿ °ë! ªÀõ¢ãž/ZÀ>²ô?fE ±.K½f²çjæëÿ ͼXE׉Ž½æÓºÆD—úd¬VEÒVÅþ«"egåÍh:"Ì2&2&ôʼnÁåíbÐëJ ÀÓ%öA'*Ê>‚2†ÂËIŒ/äE|! _øU;ß!.>AÜï4Öºî¼]ŒxWxwÊú[ \`Îè–ÁºŒU]Ÿ`,hÁ™[n ØuW5ÎŽ3„ieýdXÌÜáÿì¶(¾LÃuæ·=4ç HÃ-‰¦¸]ùrpgÖÇÂÿÄ„ýÀªña~,_u¨ùê,H )BatÅîªméAÙ¥‹µ´`™Ʊˆu2$ÞÅIY0‰™NJ%F@šË1a¿ŠxøÆ%\L,ƒ] "Búû¦@“­<¸ʧֶûÊyø' a‡ÇôÓ—[:hçFyîímojžíBË¡jø·O F°ÿÜŸU˜Âû*´ ÌÏ%¸± ]¾q¨ ÂèÌÞãB\¸9„¹à”ï°è&1.Ö³ªpåoØ/v¦4Æ?Œ¥HÁãAs^Y–ú=ž9ÐÔ¦ûS‹÷Îíqöæ𱃴ÐÆR îãH{ùV1““‹/xE¢{ £wÔIªÁ"9Ó` ÃÍð2çìJ.šÓz¶0{I»ª´[w¢ûž`‰Œ®§Dn08PlŽpnS'|áÊt¿ß@>à}€cÛ¾Ýþ*ÆYiðëk,¸áeRrôjŒûˆ°µ¤wwÈ‚· –X\¾’»V¸}Z¬ð9K“áš©«–ŠlE«[,XEï{P„$ 0èy‰){Ï”@Õè ÑøìÚõ¿°‹”åÙpÙÙ\Ú„šlâüô†*Ì–Ç€ªè8£S½yÎ=ŠŠ©QÀßè ©àù‡Ü£|þòÕR‰,Aª"{VLEðã¨f—Îœö9:ÚÂÅ ×LOov=F,?äÚäo6®£é’Å…+ÎÔX Çg‡’ãý6.8ÓùpÉ; r8­(_W½%Š­«»ûžˆCŸww ¥`ĘI-LAáBFùx :mÂÊ‘÷A~˜œTNCÁEµKý&4?¢¿o¡Òì½·‰Bç˜åæ§GGñ§÷ÏK§‡·ÅôôÎ Vãk’xçç;¾¯ºØî}žmÛPh²L$ãËÍ)· ƒê¤ Ûez!“‚Ôjö¢ò«[ülÂ5lD‘–g) É•¥ÿSó¦¡+ÏK_ˆ€\rw-*ô®=Ê¥ ˆÙºýÖ" ÁÛ ?3î©b†]û7!Ñ-"w{wjž…¯RV`,L»Ù,)ü^«ó×%)Xk²šðüqa1ô&‘Ž.z¾V襵¢×7ÍEVXäÞ`ÎZÿtsõÓ•p· b•ä’!f ­™„ÃÚ?\ýð#_ R<Ô|õèXV2e‰ÆkázõýÕwôP$÷0W’1øxšñ5[ÖÔìå¢VSM=ðs…F S.(3µ†È´=ë—ø’ŠË‹JÒ]Y€’R¦’äW”¤Š"VÒTÞaª©ŽÄÂö3‘hòî/ì-Ú¼·“,2ÌqŠ%JÆ šÆ²$ýmÊ$/¢ãˆÌ•¤+ 3fCä艔LˆÅ¯eò௠8¿ª}É›ûJûûûÖzÚpAƒttGÏ”‡Ï ƹ<ÙÐ…ÿN!_y® gR¨Øà, |*›ÚÛ' M_ˆ*¹hÜB‹_œn¶*)‚\qvÅ“É'‘W¸o-rÂÒ¸ù=}»‘z®XR½ Y³œgñyÂWo«2|H5Ën€fx:D©þ½Ð,}q±¿Ÿ}©ÑÓUA2¯FÔðÞð}†*Î`p2¯Y’…$B¥áÀ:—E¼óñó’ðù 4nOM(›úVmè²ÕçvF7ŽR³¤‚]•Xü\}ù‹IVlégfs]\&™n׆׹<Çܺt5¡ì_–ì endstream endobj 1665 0 obj << /Length 3359 /Filter /FlateDecode >> stream xÚµÙŽãÆñ}¿bà‡„BVt_<Úâ8ëu#¶3v°ˆó@I=a)óرüõ©ê*ž¢v'»›ÝÕÕuW5ÅÝñNÜ}õâ‹ûŸ¾Šå m¬â»û‡;)D¨M|—HÆÚÞÝîþ¸fŸûÍîÿúé«(™Ì6B†I ¨ü4+qÊ ÁÈï¶:¶¡NìÝV%°DÓ¬ª,.›­R&hOŽ§Aµmòƒ;ÐÐyûv£¢ +:×ÐȾªkל«ò—G^W-m[×´¼ «yôç²B\OåK|¶@¿Øg%ÍÙí󇬪á àdpª-°ÅFämžÁ´wÚÈ48v®l‰KZO¸™0¶ªçÒ9_a¤‡úáf«•^Õÿ¿ÝÈ(põƈÅA“—{ÇÛÓÏ’‹Q4å"Í9Tž•UKsöY]_h,/ªú1kóªdÌ»ªãiÄckòcé¹±á\‘™ó¤z€YFòt@ 5-`nÚ|O?‰Hd%jTprt/]‹kzè ˜bôŠPx*‡D~=¾öôy芖…R1O§|"2P!V½ƒõZ"i(†ãP´ù(¤'¨ ohb× ÊxÄÓ€Sˆ<Bò&¯f£¹ûÊ=à6? ¡ö9(#Cª]x _®(›JL˜hÓë™..xtYÓÕîóOþüï?yIì'ÏN{Î?ߊP$^ÑDPæŸkáx­¶‰ !û½.¹+ ­Êxñ:Çèåì¼8¹>TQ¨RÛo¤i™b´ Ó¤Ÿ†‡|HmÃ4æ3Æôú’QÕkÛÅa”Gš1meÏ8 c38@TçŒI¨F'9`üáJ੦ƒ´첬d—ey§ŠÜÀ;×>9W®í-âØc{Û^ΰõßÿ¹¶q¤@˜Ñ„‚ 68€‚oɺ¢í5¼»F-‰æÊ(¶ì“µÀº¬ ±‚¥Û6Ùã¹à Ùù\W¿æ½ßñ‹+úÝWç®åyŒ<.öA‡É¤ë<ÒФ=ØÇÖh0û¢;qþŠi{¤¼-®ÙåîÖëå¾u2l|;SUã£ÑµiâļDÚr¿tÃ|HJ@Ksú¢ª]Ù´.Ǹdâ8PBØ~KsC™–!ˆú§WªC«†¨âéòN…yj${MyŠO žâÌ'ðÊô’×hì\ Ÿ®…‹“çÂõzÃdÍ=ìF‰=½Vé(/ÿDbW ‘Øóß½yrùñÔzO O¢à8™yŠ÷±°–‘¤ƒ˜—BÆwsÿ뮄'D%Ę½³ßß\]QØØ&`·…¶°Áçyt;[,Yl‘e±Àbá›bK ø% ±ýðÅ ±i«gbC̃Øà¡+ÉáÑäih¦`Ò”"ZÊŸà—S?;¯°¡‰íªx1’/Ä‹C(­ÆqèíG×p†!mjü>tÍ€IÏ'~Íöp>êUWÝ™sM;†­]Ñ#ÆT:㊪k!Šºë«áäHòÉñ/:8CXMˆ9ú"°ãŒ~@ðàòN9°A VWM³mœ?£7œ”>¸‡w”eõ˜gEoÓÉë¿$|OÄ`KÌJVNqK’ÁsÞŸ—“@?•ñ|aÕ©½ãd’úÑéPçΣêWÏ8ê»Ë‚‡½•U)|Í Â9«Û|ßa©ÒËvkš®wæ”NÎv ÛfðÇšvᳫ=–çºâ'Z®÷wà1C(Ž” M*9Ï›i%NWLú ‹øðÿ#ž;}ËÓI"ÞþpïX-Bô5:¹¾ûJ÷ÁlW“åø©ö X'qPʵnè¶_ø!„lßOÈ~ ä0¢naCéPöHd0+­·8Lµžœv½Ï«ÇJà‡<йûxûg  Ý\m7(¦ñPpÖIÐÔ±(…¬jÝL»e°wÛüC »+!ûjè•÷WPsô.KŽ6Qv;ߎäÄôÔFÌP¿1êMÁ2à‚ARQNJ-d(dºˆÒ붺ÏZjXVõeâŽÖÛzª9ä^ëš,“Ðhóžþ ¨M20p]xj·ð5ÝL|lÃi·Œb(Ä1õÞ3£ƒó)'à*7¦a }{]TlñâPO«]æñ‘.xð‰ÛàqÌ+}v‚Ëš¦Úç}†}½=M5t…©Jß°¤©~oÂû®„e«ÈŒN§t‰í@cÿÝw=^.ozõ;úùÂÕ…ïëáû¾¯‡÷:6%æã$HA[¯àç¼~ÔHK#Ù_ÙfG9(#ÍxAÞN¤˜­b[ ¯„A¬þ³š“›DRç#Ók.?^íZÈ=½ìÑ×B Þà Ì‘¿ý»I+6á+†Þ@4Þ×ùŽ&JHw!®f6ĉ Þøâ +Üï7Qðªïh6Ê’þ«%xñó†~pï὿2´R±÷JêÃ!r¦™râ• åT·”Sy¥cy½¦œñ´Å·®œ6Œí;uÌ_Ì“i¢‰u’ÏŸí©êŽ§ñF |Ù…;6©­Zh7±$Iù6€örΡè$åKÙ‚Âb§E:8ÜfPl¼ÊK¿2Ž|PI#J­È''iŸ\%\±x`(´’tQh%é,â¯ÞÀ2ýq¥{×Sˆ ©ôÔ'}öÝP'çx1Ã/“Ôçñ\᥎ïG cjQ>QüÒYæíòn Þàµ[ª¿é\i#Œ Ò±aäè·Ç‡9?üÐ6dØ÷ãsF?;&ˆç·Œ­ÄëÝ‚`,À@©á6Þ¥j«½OÁ)9oBÍ „ÎPrää?bM³"n$"#b¾-@`~ÛcÅ=6ònð7VKVàPß.œasØÖ9Uµ¿u^P±ê!¯Â`_Ò| .¬©Ê¡g)Ä ü[^ÿ<Œ&úfgqìui ¬d›ð@.±¹í«L=:(O¤©uŒã¥s> ïÊahø’ñÑ[JÀph–€á€ÿˆÁc8­å´:·!ÍÇ%µ1$`òã’Z àh£Emò¬ìVËèVv I½´ïËnm2æ]ãwÈ>¡¼fPKG™@8/gÊ:xC- ËM¨¾Íƒ*Ë#ëÌ—‰ …þHæGPÒ%ï-Ô³QÜHt¡ê0æÙ\WïMwíØ<š±ã¶Þsk¿•Å"ïÎ|í3«Ñ×ùCn(–·pk_$áØ8›}ô3/ïa—ò³Å·P© Åf«Èö)P*Ztwç×=¡‰‡¼÷“õË%lȨëƒÎz¾*…͇ƒBàWË7,”×ûZ5×çö+·J  ±œéÊäŒRF¡–‰?¤Ž£9ä·¯¿^=å¼Ïý¿œÒ—8ô¹ ~ÅN|ûêùljožO o t>ó!ç{óÃwÏ;ßõ±ÀĤÌðÍÆ*J…Xrß­él&ñì«ŽY–ìƒeÉËÓ¦‘ÿå£ûæÿwØ7·>²tXX©9ì÷÷¹_;­VþÈQ]Ì^¼1òÝ e1ü唿“™~=õý–À!™F³«¹«‹¢¿Ü¿ø/÷ß endstream endobj 1675 0 obj << /Length 3225 /Filter /FlateDecode >> stream xÚíkÛÆñ»Åá>´pbÈ]rÉM‘u'šÖ-ºVïDD"U>|=ÿúÎìÌ.ZÙnÓ¢@Q8íÎ÷1ï‡ã›Ç›øæÛ/ï_|ñ*Ëot¤•P7÷7IG2U7y’DJê›ûýÍ_VZ¬ÿzÿý¯T2Á”E¥qûXœ²Û™ãñ^ļûbë̲(ŽÓ›È(é»ûCÙ–ëñÊøÁ±kp”¬N¥é†¶ìè|)'Ûé°U¢"•ëq«ûoî?½ÕCÓòmÏçãsU?ÒìUÕÁ‹~½Î²UGoh×"^múfó0úÖÔ|}2}ÕÔ kø÷Pv%}³Iò"Ê%P 8¡³ŒuôˆÖ ^…‡ˆ|u2Ï4Ø–ô;tåÃp¤ñÓ¡¬i´kNÛª¦Ë ÅÇNÕhÔ´¥aÿ|.ù€æÁíжåÑ]ÝʇµÈVïâX쪲î-³€J³‹÷Ó¯QVO–ß2Kg„ÁO˜rïS"]}×àÎO%þ}¿N²\,Ww€_$«ºéy§qw¸; 曧TGœŠåJeS.'E”/ pH@@bÒÔ˾¡íÞã5M[™zWnˆ‰R¦Q–/˜Øõf[«Ć, #ñÊbÏ#ŽÜPø~]€,n–a™ghV¬šº$m ÂÒXMƒ¥eÛl× È: %EàôåXîibxuªÞV[.M{¬€/@”J)V¯SpÖ¥¢ m•£¿ç«Û+º«Ò(cßáyÚ¾†h›é¨($SAñ–C‡’rYÕûjg¬„Àì}e÷ÉET(oCÞ£¸uû6¨ü™Œbå¥"ø:¸G–e‹Ý¾~ûéÝ@?Içð¦$Á0Ø› ÔÔÊÂl­ë‡}…œÆ k*é¶7U]îÙ‚è.´¾¡³b'“6iAàPo‘—±çÀï®mºnÓ•;”Gs$à»8‹«¨ŒîèR§áØWusªÌVÞÒœÎG8àŽî²zÆMFý=>O6ëiŒ6 Éìãè ÇW ÊAKÒàÎÕÃ3MLM¿`~*^Íîz’zí4J[*¸'³H$sap|WZx™4í:)Và ¦Í+¾ÉÎtåxݘ‰Ã³Ý¡<ñʾ²&ô¹_h 8¼bN grš¡#Á‚AmLâÕï­•$KbúÐÃcx’T ¹ý]XnE$Áƒ3jÕ9ûU‚¢íir¬~^ñ!gj*õUt;‘• ÞF¨,RBÌIð[:µ¥+{šX'Õ0ÞÆ6#¬G³dñï@–Û‘ƒœÁ<‚½¯öîyÀ_Šqà_TÜ´êÐðGŒxææNÊ(I<¹àèhÛ ­é:“h­>,å:Êãdö~:~2s\Àm0gIäÉ"™'ô)*šØ“†âý°6w-Ápw OóCõw÷Ê?­THðe¨…t¿ÎÓÆ_ØÏ­ðŸÑáwºE@й‹êÔÔP´%x3ô–0¶øìùõÙ.[F„øfÏH¼«óK4#­Óhƒ(ZéÕ™–¶eÿT–uи<¡ì²¨xŽNõŽ`O®f‰s«s¼¹ø€:4}sòê‰ñ§ý˜B죭à>j n•àë¿  Ý&ø35·€\ÛLkvk8µl«®¯vP¯‘¦¹tdFLÐ!|i†ŒAö-€äô-8ÂÝGÒÚš¡?4-a×ðka©-ÏMë¾N'Óò7^o4<¨v´d… @ð—¼`b…¥æ¥zOجޛÖÎÀ…RäX¹˜Pë—› O6rµŒœªzæ%'m3œl_¢uŽwñ€-º<É,ÇÁL*0`š2ž-w–ÉÕKce?±··{TüMUû€­“GD²ºbÍé<Ø>èÿŸ›ªî7Ûªy÷¸ô,Ì—¢¸ ó¬íë)òìQpdZ¬¥fþ>S›`–§kvžI€å4Ô®rÐ3eÐsåD‚¥ÙêõÃì)Ê¥%Iô\ób©p(ô¼bvý`Ž$êï>~d„ çƒµ>¹‹2ÚŽwX·’ã±ä‰º’·vx†‡,!%>¦_(50ómΗ‘ dYÄN>e-uâgAÞÆtFFZhŽGÊ»xCoùŒßó5j”Â#¡ìAÁcæ5 3Q ÐšÈ ­IàuDnŸðç“ÈÏ­i‡ßÌÉŽÌÝKòx‘‹ÀËÍ m|p_<9$¶¨î¯ƒ \Ÿ²TÁÈ7%uVS¹þ ß6gŸÓÒR’òÒ÷f×lÙôÿʹeÎ¥Üú­f߉8ÉÉt®øø,ÄÓ‚V13ÎEºªËrßÑ‚¥9€\|Š”Ӟ賸¤ eÈy”«âu—|qŸÄÕ}ô¼è‚·´Œ‚k‰Ê–ôbOô ü«‹Eê°åDJVü.x1ˆµ•ò»}ð‰6M“|NìëOUrÜ0øVñ[,ou  –oº;\Ÿ¹;±h}µäU@$ïyX_ãa!ħy8>¬W÷I®¿«N[³LÛô^³Kܹ ‰„/§°}¯XýJ³;ÐÈ2–ÓŸ{h-U.«+A êèE™"TÌ£1qZæ‚® I§Ô_ÎbxÌç€r&32â:ë;!²ER0»V¥£*Üþøæåm8A•:Ÿ{úÐYÎ Š(Ï=‡aO¥l¶p4 KgcgéLOÓ(ÍÔX½™?_Ä:Šµ´ÏO…ú|#^¾~{¥N+óâ_¢À¿ëí"ŽÔøöÈÕcà¬TN9îªßJ³°¨Â9C¥?ZýÖ‘é¤ú}M²B~RãQoºNÔLes¢â­Çâ7\}Qü†õYñæ¥NøªççΊß*Jeöÿâ÷ÿNñ[ý'‹ß¯‘AÒݲðAh/GÆ3g)‹…³dÔ–?êŸk"Mîö. —¾‹n6uÕS¥Bz=–¶VÁ ‰‹iõâUû3Õ¶w6µª‹MUÞ µ¿|‹þ3¶ØHHäÃEñ<Ò…·„ç`x@z{Ö@¦“ú®0ë(ïÂ,“sÿtV<ÙëˆA÷× ¨¾3F“~HT•Iíåe(%Þä2Êe~51î¬*‚!ÙŒ% T–¶9ሲ<„@8SžKøcgW .¿ßôâðv¶À®z¬íkû¼/M‡ÆJ¯ý&õÖáUfkêìè|ÖÙÑcg&ŠÒT‚#mÃ%Ež÷Í#÷0ÂöTçcÎÆd4쀋í\;åÃõa‘F’ú)Ågƒj£uqá^’xŒ¿ôó—>~fÖ¯æV×›]èXÓâ¢×u%l»èuIîuÍ][KÎÚZòZ[K+йÏnk%cøs­­¥²âsÛZ“Ýƶ–t­+éÛZ0z ãnP¾¢¼(–N9gKzÜë‰fŠ`ßë²pÈá×ài6ïlYì–V.:[‚KxÜÙ‚ô²³eo1v¶‡4êJA`ÞîÂò‡kw ÉU™yÿN‹ï:6¸¹¦_lpÁC[Æõ¸`În*½’×™ØÒ§{\"M¯ä5XÌ©éîqÉÌùÝtìqc³"Òé¢a36¾â‹Æ×"3›•ÅIKĤú¿Õã ë^ Çèñ€Å›– kÌ10† CfrìñȱÅóßPû=ÀAßïAz:*¿Æ4žBi6Á¾µèX¹ÖêÁ”ÍE^5ùO®LcqŸ” %Ó±»ƒKc?gOÕñH£-¯OE8T¶ö±… ñ§¨.Ä'¼Òß‚—˶Ȍ݈9•½Ù0Ïu¡%w£Å!0ïžktRà³xî[ï‰ëœ :õX°ÁâéÙ0:·XåëŸiF±¨pЕ¤@ªS]¸.ZÀÄåD®f=e ° |¤aȧQ5í&åÊ÷o;^@2΅˯ʥN¹s㟉Η?뺲£vÌ*Þßüål“i]ml"máVæeû0ªgXâǮ䧗7Žm/ è@œþh’kY[‡Ÿãÿ‹ù¬þ+ÍËÖ«4ŸÕzý£§Ëû2ÐýhÏ5ó¥²Å$ú8²i«TTÁÏ–ÂnA†ýËvæ|ÔBœÉèÏÅÕÅT›Ü¸Öèè2ßû°(ÚîjSÓlŒLº£ºÕ@Æȧ‹® @&3« ÜÚ†×z“¬J_<@¥“ØB±cV©ÓÞŽª©Kü`ãI÷õB&¾¹ñ‡] } endstream endobj 1684 0 obj << /Length 3445 /Filter /FlateDecode >> stream xÚÅÙŽÛFòÝ_1ðC,ÓÙ$øÁYïl²HÃdl%¶f¸¡H…GÆã¯ßª®â9Ôh’I°ÐƒŠÍîê®û`‹‹ë qñg_]=ûüÒÈ‹Ø‹2Wû )„§}sJé_\¥ÿ^Ùz—ä»õ®þùùeŽfûBza¨Ü´Xã”g‚‘_l´‰=ÆÂM³š¤ÉÖ*Xý¶–ÁÊ®7*Vˆßzë†ño knº—Ùá˜Ûº¡§]RÛ—šaF• ®[z8Ø„1ìËj†ê×6)šlé¿á@ReÉ6瑬fäöXVMg8m²»ArÔ ð*"ïº*Û#P8ÑM“6ÚWx„!½ÚÚ]y°u?L@¹­mEJy¤mp"=¸mG 4Ù$›¤Hò»:«uAdV_ÛÊòÖeÁ+ kÓš–4åÒë£Ýeû;’®Ö#éjé©8ì¤{È vrå/pžPA7¡N—pHß‹}@ìõWI‘.`Spnmº©Å"6åùQ¯’,.Ý©€?c4¾B…©_N4Eß›æ¯êΔT¼(µNƒ2P¥’WÓ¡У©“ÃÆ1}ž ô”õG§k‘ÿd’(}C‰Œ54¿[ƒDAƾ«ï ^³sj@’×%•‡cÛ¸÷’Ï£?×YqÛÓLÞimSA&¼àÜÞ€Ñ0"Yж1­ÉJ´Z¥tÞ,uáÅöŽþé0cÄ?=ã ý$qëÌ„ž„ªœÑãÚvÛT 0¥¸¦·µ³ŒnÞÇ^N0wò€­z½¯ÊA÷ Ö ´ ÑCA#Õ¨H˜ÖfEÿ¬Ì؉CSvâ1¡4Û#¥{`i±³/€H‰Ö ýfO3öå®åMºÍê2G©»”Åp€Q Ž+˳™®`Íÿ;u†8OÝVö`‹Æé™–LìdV^^Ì.j°ƒcª ƃ×sá)bNLè±­í¾Í'{/Eþ6ù%¹^ãJçÃ¥p8Œ\Ù†þ“ÜÃ#½RB_"®Þ'mj‹íZ Øë†&~†bõUu÷‹[à¯d…Ìqt€—¸…óF²ˆ‚®å ÏÈËœóÄ7eR@ˆÝ¨[XÒ?šéf‰ªeo*µ7¸Êž0ôÑ{Ëe( xËðAè n’ÒHBˆ— 8]ä%p®#AÜù±5€©fЪ‚ ûËœ3 "O€ËŸpmWZg)hлÌ:©2ü÷zÎ:C‡äŽö€mítUV4`x5ã:­nðÒ62§n¡º‘ö,¸«›n«£ ôÀñ¦wœ3á…‘D½€G†1“ ½!Ì%ÕZF«ëöÐó$©ì³TKŠÐóC¨Y—jý9™7;Näù¦•Ï¿{û|á( â©4³x:¢ÏãÉ‘†½êUÈâä–……z²@iìùJM2ˆUqì È/‘(-Â?BÔ‡Tƒ‡ÔæwQÕ»ÿµå"jÐGÔµW]TíˆîUCHBNÃp€ÚµèŒæW”/=맰廷ß.òE+HØ£?Ä—¼Dcºæ$û±«8©Qè…ÛAǪ¤™ò<–8âÙ’âììº m’Ÿl¹΄p6CwVèÁO“}ªôm7bšcW‰cW‰%¸3î¶A<₦ueâhƒúkÛ¢•|<ÑÍR>[šÐœ­§mº‹†$3 f¦—ÔeÑ’= E{ØÚŠ`ôöú (žÓœz½U^Ók'óGˆCèÞÇhG¶#G5>9››,mʤî6™k©ŸèJMªŠ*áÀ»oÿì>ÀùÒç,ÕRD^,N—¾¡öýD²¿ÿkÈΚ'Ž]L=2;6e·šÛ†P#¦iݧÇc¾D`’æI¥ð»÷?þÉ|aš·Od hº0÷)‡ AOÒˆ×NP®B=¥\‡§)†¦59vÓ[ZTC‰Dé)>CÕêˆ.Fy10å·¿ ÙÙ5$”w„*-[W¶#<VÑ}&㬳LVX€Ú‡L¾¬Ü!Ágôw…hºÁ6œ4Qw&Ná4\Ê8C#}ãŒÖªþºÄÀ; ÿpXá2 ݉ZCN–ÔxñbVïÚš4„güåðÃî†*ïê“åe®ú†)7J—¿‰¾¹®‚YTÞÁ´÷?icºSŒ_éÕ%d-®8i„A)Ò,ê®$À;ÎÐæ_ º¶W'<ŠìíŒ+ËÁet›§I×UViXoò¿K¹¨ðÎÁë™Ô[Ê’´•ËÒâÕÎæ9AyT®DsÃNغ< ¶вvô‚TÜa¨š$ãéÃ%xàÜ;CJòáÈ¥ä ¬ÁÈ!G}õ?É%+ ´çGñX_û:’IHíæÕÍÞ)F›7,3¼*ÑßÁèÛo|c¿p:È´†d.IÓåæ‡ægrGûÓj!PõôËÏÕÙ;_bE ­"D][ÞôglŽ¾ -×¾¤oÌ0‡ï®šÐÅyY)!7ÖòáòT»ÞüÃåiè…±z¸*A4½Û¡®Ý­®I Æ3i=„Øç; Ì ½hèaª±£!è/öa[0þs•Õ‹³À˜º…9Ð[0$ð"‡¯O©?úÏ!5BíOòüùÙÒuYtþvé2nº¨Ëñ¤/Ï(s8ŽY¬;LÖ}Ì ®x°ËGpý¤êèÁÙ>Ü1›Výtý&AgF—wœ® ë—ñIÖCµ£â1ë³½8ÁýÀ­ž_Zê¯ýŒ¹wŽ¹ïsÍ“ÜåäÖuÏýÀŸª;Bù@CóOA—`ß²¡kQ|3c£¸¶hVèº-£xåt🃠G0Ü•€1ê›8{m¸€þ>¹À‚ÓÇ,‰â=} ”òlK,\ß)s•Ñãï­¡ABÎôÁ6ÍrãJóhHæP1  ~I-|pvÃG¤ó‡Q¾Ëéx8Üb»IX |§+Æ/(]œƒ©üÀ$Í°|çh×|A7_ÞºWöûo[7ÜU0Ü¥¾%˜{¥ÂÙG)¾éc°œºN¨«7®WJ—³ ÝXrÈo¸ßgnw@¨aOv?ÏG(b áú¿èÚ¤î®d IMh|›»þBH¾ê:QµûBƒo¶wô†4G†{fne¶ÜíÚªîwã@¾áš˜b¢Æ¸†ÖR‚EáTÈe—8£ðíësÍ¿QÂLã“õo€1µmøÖÕ®¬èÓ A±dáwÐ'—ºËZÍÝ‘o~Qw †Fx¾ì•\ ÁÏ‹.*¬‰|¯4RZyÁ ·°·w¬²æ“ŒãpVRMÛ?àMƒp^õ>bCX7…¸]j·U›Jˆø¡ ¡š¼ßnzÄ~Ü5—³¼6¾IŠ¢=@9 $4öBM†èŒà‘,–°ÿ„û*«“}›çÙ¹Ý!y5ÆŸ|O¿÷)êïWÏþy«·¯ endstream endobj 1692 0 obj << /Length 3133 /Filter /FlateDecode >> stream xÚµYY“ܶ~ׯØòC©ÒÀ8VùÁV,[.Kq¬­ø!IU°$w‡ö 9æ¡õúק ðZ2£Ë/3 n|ÝèþºÁ¯î®øÕ·O¾¾~òù _¥,dtu}{%8g*Œ®b!X¤Ò«ëüê_Aîþsýýç/"1é©’˜…\Ã<¶OÑfæ˜a¿'Ü;ü‡ ôd‚½Òšq^íe •Šæù7×\eð+v{©yðª0mßìT +PÍmÝPá›·EÕQñyÝW]ûmsv ~µ‡£¤ZÓôÿÜ !Ó”uÓ©'»@á¾2SQᦠÿ¾-r*uµër0ɺ¢)ÿp}Ê*/wRo˼7Gª»kêþì&½?vVt7$/ÎE•Ûýãç[»27DZܶiÛ¢¥$qP¶ôo÷ ÿ…]|'t@BU†€°Ý>–"ø®hŠ§»}(ePWµWE‘»Yì¹à¿=Yyû@*5ÁP*ÅdzQÿ^®à,KD께*_™G$L†Ò÷éÖ¦I­&¸vÓ°ªê®¬îÜvþýé¦h¨\ßZÔ@“4S<™ƒ7ƒ•HD0‹AÕ04Ëv"èw{4Phd¬Ç#¸®…+ÔJ‹ç¢iëjß•'«•Ø½£–¦l…}K©`*„´+Çå»H ™¦ÁµŸ·>we]¹‘v»eC¨Â…ñ€SÞ ÷¾ç\àˆIpן†›cš‚ °^õÅìþ^%,ŒR˜@[éÓõ”RÏ:-ö‡C¿»Ï^þôÙÊÖ¤d¡ˆ|§á:žY ™°8t¦AÍ= («¬ÝÈܨ­[#(ĨU³Cî… "(„pÎäÃÎùÃ뵓*ÉTœ|ÐIõN€qèlU Sœ¬‚¾×ñ «t€¶ > €7«’Ž™Jã:û[oÈìûã…:¨ëîÓžG¾k ˆ”œ 0TÈ‹ëO¬/vZIq2Õþ¿û_QMŠâÁç&CΙ¡;~ÑØiè_èïÅá‡É¬a{Jm"Õ8s6JIÎíÈ+ïu›¸ˆT—mÍà†»‰˜Vò].)Wƒ.X žc[“%¾)¨†¨ÖCǺSÑ™½©Ìñáë¡°µí`?¦ÉäÔk ?ú¿%t„àÖåÍÌ4¢þæåO-¢ *!qIk©Áqä<¨oÚ¢!Ï’SÓà±õ–ê–îÛA`ÛÀ[,µ€†›‡ÅVº¿£{÷5ÀÁ…: ^VkT¦;ØÅ¡=3-ò‰™_ZÓ‰D11²‹u"™/kDEÿ—€Øi¥qÞ1õ²‡Ò%ü÷t‰*®ßB$PCƒíÜ'ì‚7d•ÓÚ[cùp䉱¿wçjš‰ Ã:6áõ(YÁp‡ʆÈ!´ÌøÐœÃJ¾(ºh dÊ’$™˜?áV¹?”ÙV±8baîÐÁç¬qæÙ‘9›Qí’À•¨à¾ìX’ÁESSÝ# ­d§ ÑZ'¨ø!x8iÉðR¥"°ô³t‚äm`é ÔX°mÍll™Z,h‹U°5!~•çd÷€ÿtО`IªÉ€Ö‚1ìèËjtpËG£þCÙê?4>>kDªmÆÏz:Õ•ÛúØ#{v3×n%²1Pr¨à­’þ3ÚíǺ±´Põ—ŸÕÕñ¯é‡–, §úÁIuaÃyq‹þÐôÇÎëâÁÐL1Þ±wŸ², ¦ÄÄäùš‰JÀ÷]ÜVØ[ûx2Á‡ Äçrm‘Î9„|ÏPÁãàf'!"îh­¶(hÿ¾®»â¯²cƒ OуæäV„5+‡1‹Ç+¹jÕñêcJçBé uJ¬Äç¯o}-†eŠ§ÁÁàÖI¯¨®–;¯$ÜR‘‚€’ÁÍ ª€¶¯Ò 0$ztìԌۜ*|®*ƒŽX<ÆIÛº 1•îÜy„` ùy¹¾Ïó‘<•äÊ÷*L§baÈñº+®§.(V[B,ü,où†ú¦áC1ˆz~¡ÀQma¨£KÆ,ïa8j/71”ÉEJ’Žá©*îx'‚9bîdãõ‚&¯ã!±Mr*QÈ”s÷Ñ3D’H7OÚdþÁº"e~ €K>8Ni}Â_¨{|Ò(xSt6³âVa'ZÍÄYÁRkÂÀÒ1_´fX8êHàK¾æ¢g:0îÐΠÍÉ•ÀÂinr}áLˆETê5z8†õ~éÛÎ¥FℼIì2NX± wñ˜ƒÂ²õ`qò؃Ŕ±Ã¶“ÉÁîU*ƒ¿Ù 9O]¹Ei1¨è;ptnå ¯yL£p/‘;¿ŒT›ÎX^­½#„Ö“y VÐ ? ¦´äG¡¢‚@ ½Œ‹z"5™¶Î²¾i‡ÕÜ °DgƒN“‹ŠŸ4{e5Þ±µ aÕ_ðiúðõW—Ò‡C º’‰†Ë3q2’RÙ{àˆ‘HF¿Žyè¿â“Òpe‡¤4ÑGóϦºs]}Ý+ÓeŽÿhtÙlf¬'yJ&"8÷͹nÝÑ%I”HLÂЖ˜p‡‚'ˆDŽ„Ë%S¹ó“›&ŒçsgþP‡¦Â†P^¦»±Î¥»WD‰8ìÉ:†Â7Å-Å h ­êr`Ž·½EœH$Gö_¹Cª^ûŽÝ=‚XÓG^º›Þ¸!ÓDÐ:9BµŸÉ)3Ž-Ì‘T«‰~Ã’''°•#Qt$ɼhË»ªÝR³Y:̃ŠÅ3ïôÖñhtÙ»ëkxÉÀ7ƒwyúøÙ%-&mÌPE÷yè†D4y›ÀêÙÛ„­_#ð«\Î:ê@Ÿcb½7äò(;â£ᘽâ67cíflñ­àÿÛÆhjÑUˆÌ ˵øȃ=TQ‰ÔÛužçl°™¦mZ<„ÍÎc¥õµõí|…1"ÁòfíÍÝêÆGD¬´¥'$ÐcT+ Õ;5Ç·F€¥-ùØÂls®¦¡kǠΑs¨´¹'êŒ÷«’veü¨ØdÚyVFѨNÉØD|’/1-ÕŒþL§“G7lÂU¿.2Ê&6»ÛL"x ‘&É3,†Á·åÍ =’`’¤£æÈ\I¤©zF^èóKÑW¨ ®Mr!\Û+@ ·šhJëÇT¸K`ZþåÞϰŲ(©´?“Ê%: jûýLhÎâpàÛ'Q®³P™\L_Årp€'Y^ŒÛܶéjÂ^ Fi/|l´OXJ½GKQdÖ¢RV*MY”.È(ðƒ<¢}ºF™‹õ°·6_Å_‡Âøro `Û\nN´|fòÉ(duCîHT-³wj° ô•·+M·uDÉaA³„ãkêÆÆö.à’(óŃæѸ”‡DÚÝÖ°KŸ ”3aµÔd…+õØe® gµ­9‚ôù†dÊY¨† ·Ú8-\ÀùiÇ}„ÈÖÏG·'´‡îÕ@qÉ"%ç'.„¬jx2:Éõ'Ó8ˆ]_~1U‘â{=”îGóVúêùŸùVJnKV£ë£·›•ÇR”©Þ~-åŒÛ[ÿÁoco^=¾ñëÅY“dë¬)Ór0îš"uòÏ.Iâ ¥‹‡š/œZwï|&’æÕuNÂÀÏ’?íºü¸*aè§õLÂ*Ú’°Â]±-aéÂè]$Œ¨9LÿÚM$ŒN¶¸”°Îì’} ¬>ºÀv/ÁT²p³SÒägÉó·R˜~Šä¥âÿ¿¹~ò?ظ]á endstream endobj 1696 0 obj << /Length 4058 /Filter /FlateDecode >> stream xÚµ[K“ܶ¾ëWLé’ÙŠ‡Æƒ$@§td)NJríÆ9Ø®2w»Ëx†ñ¡µòëÓn>£‘òeA ÑÝøú^±º_‰Õ_Ÿ¼¸yòåëT®²(KUºº¹[I!"§+#e”êlu³[ý°vÍ6ßo¯~ºùû—¯3  SùaY‚Cžž¼ÿ]mt*¢LÊÕFøTÓè•šÿòµÖ“¹m§Y?õÓë·/ß}÷ÍÓ *ʬîÞUõÕFËxÝ>8œ&“ÁZD"IúÁM›—»¼¾Òf½+þëvôåÁå%¶’õö þ<äåý•kX[J¥b`@×0ÖORçøí#ÍÓl«ÚQ?/ ËåmQñ:Eû@¯Uµ:`¥ÕFZ¥ Š ˆ"¢§$©Jgë»RÉúCáçj¨ÞSãÁµ®®š­ÛåM[l©óX»=/Ïp‚¼.òrëú ZúERã÷_Ñp§éjwp%«¶Û|ã) R™¦D¬‰xQ•®m¿ %„…NùÅLVº…it”èøóõdÀÓ—o^]¿üöŒžØQ¡"P?l6ŒAï yúü_/ÃÓéx1 Í 3 ˜F2´u[^ `üô¬Ë‘Ó¬n¾×Ý]I»¾sÛ–žÐÓ "f Øjº»¼v9}Ó•;7!Ê7¶]ý5Ô”ßæM¯z*6Qbí\ž^e@v9ýÜ^÷zýiu—U}È÷Ô>T;ÇMÏlìÜÑ=^{à±Éǽk>¥ú÷èÁ»¼}›ŠôˆXUaa)30u_‘p胹—— Lq@äÀNêƒÃEÕ³¥ M¥‘0éThoòÿ¸®tMㆃ"%Š(bÁˆØëÏÔTJ̪²ÐQ¦‡1èÞ"„9ê-êk àûG) ¢NÆSê`Q#'*%Dh$4—ƒ*€n›õãC±gªHç`û<Ô«žF3¡Ñ2f}φjÊ[¹ýH4Ø ™ª4Ö«K–¤#7Cò¬É oÜFÊÈÏØ·Ì&û>¥K&Q"Ô !h1¹ 'îÇ< ÁX·˜fWDW›D§ë×È• €Âh;h8Ãõ34 Á‘f‘ÑÃp/½×9Ý}KZg¾€…H‘5B°Žþľºyòþ nB¬äJëÌŸÔT ÃQÜžüð“Xíà%˜Hgvõ臋M¤‘ƒûÕõ“’·2—&Ï•d*Jî™Ô‹Õ¬Ò(ÃÝ!q)XjìT™¢qêt‹0\‰ÍdП,˼3ˆD[ÍV›iÚér£¶ÙÅ‚ƒ"…&2‘Ì&8"Ôª‡IêâÛH ù³Lö~îYõ'&ÂOøì§= ƒï¨Mk}Î Ò‰ž{AԅЋ¿„=ÐðÚÞkPÕMæM@À ßK&qè½ "£#• @,0'8¿"43&f§Ñˆ3ìH`{gHÿ.H:ÈL$Ù!F˜Ïæ Õ¨ŸLxà e£‘!•ðfU*cf¼?Eªb¡,ŽW‰ƒšO!à:¬K¤!´ƒC’¤6J³ J æ5£hª’˜´4™øét`6Ð=› j¾¦LOê3V[2‚‰70L~’€D±žóaÆÀ2HRi=ßßLØ*†So`Ÿ±fS‚È€Ú^ɵL Ý¼ïrŒ¬Tš­ëªj2@¼±L½? €Mä½""Ó{ÀÜX%ع¨s ðv¥­Z_;~—Zo«ºö@…½xrp¾¯ÝõùòÆ;â¨Þ¹6}X€Ë2U]u÷ô´+šm×4Eÿ=k\DV»âé¼sµ:aû™\ߺöÑ¡›¶dtgg'.C3«g=p‘M&/^5Î/ÏÔC0RË1ÒÊ'¿Av똜Y²¯îy3õÔ͆7µw±)F¤Ë8历‘Ûí§ðºƒË’×{-´mpôaeÆϸ`ÛM¬O}H¹ôýä%¿N]öå©ÿxÞŸ¥@Á³ñE‘óžÓ5„Œ3èÄÀ›üxÜ=SÛj.Ž Ð“ÈÆõGeœœ˜“(Ý•³Úsy0kidÉòO'~s9fSf…ž'~ÿDê3²W`8p#¯Õ™3§4@fz9ÂÕ‘#²®„è:$LˆmÅèà°’<{ýüÍõ«P”¾H2“Uéúù~O WÒ;m£æ Fþ UŽâWöÂ,rZ ¬ÒFnóÛ=`¼£.NèA”š·ÛÊÑ¥ëc^Ô õï\SÜ—¼Ù¦»m¶uqly€dæ5ì±ÛçõU,¼Ë—Æk0~l}N’ÓÈ~ŽÜ&JbsÁ²³bOûOÍSó&ºò—²B¦<–Lê-ò³CHó.•cš†wΛìcÊ úvK2Y˜Qªíîjw¬êÖ+TŠr¡•szœ0Ð?£ˆ>^AÃhùàR hlsîi\ŒŒ0ؼÌçѸyM€ùø(q¤aûŽW <åÑHœ—Øé×ôƒPpÈ)J0)ïwÔÕnB !Rž¨Ô'š ãÀE%úŒ¶QAÛ'ÇýIäí;zʃV4‰#9æ|€ƒ›ðî4h¢¸ˆw/Ïœ†åI‹•¼*X?ŒI¬ UO©í?œ*w“ô¢fH±€ççϨ.:å|©þ¤—€Á’ÇÓ°‘R˜±“Oâ$ÞûlwÃÆâ@òb®SÐTɧL;ØþXžFUŸœÅuƬCdŸ$f‰âHñ,á a7°Âˆ7Z÷÷7jvg¤†lɆõB6ˆÆ™M‚b[¡ze‚ŽA÷1£ë3)Ôï!K™²|oNž@Ùã #¼Áùrî ãŠA¾ã18#5Ð'¹@ŸDòçD™â(ö°ÿŽF`Q‹ù‹ø‚Œ7:É Î4 ÖMvŒŽå9!'vŽez-¼A´Cº×>|¡³ñ²Š³g ³¢†7M÷¿Ù h}Ácr%˜ˆu™Œ˜^ƒ£>‚× žà ºKçv¤¸z33’ú䢔¯?ÀÂ3Žûe P¯J¿´è&‹;æ\“Ë*eô4´/Üö57x#™XËÌÚ¿`ÓrZ€ûTA7œþññ¡Ø>I=½]ÓsÅöû†Æ±v›Ö¡³‰O“£kñèò¡Í„¿˜ùcþSiOnqGm¾ÑëcÕ´<7>N’¨J$QqÀCÕíwÔ¾å9ºÆ‹LÇýYöÃ'×€¡Sò›u$㙯@4ç-G³‰ÊÖ¯‹Ò³Š\<œ§VcŠjaÍ?ï$›‡¸wˆTïIŽSfn™Ðݶ¸ûH¯æ—\SOM<<9"{zÀytán˜ØEB((˜´våÃ(N¬Sc¤¶–4”{'7ßåôƒQ]Õ¥ýEmÿm¯F)OœŒûX²9B4DÕ8ž*6M±ëç;n¦Àäy!DøV/ “ˆb;œèö ¾fÙ””¦¤$9—nQP*Ü-fXÆÛJM òAùä㣷ÜØà£#âyr _¥?¢g(4– c ã^Ø%,’Æý-+¶ŒÍ\áÝà`ƶóìú®+}êˆÏ¢'èb¼B¾çáOŸ™…pñÕ„žž¢[ž 0îþÊߟŒì³^ËÐÑg_a¡Î=¶ò†,%q-6L¶|z"6“Wó‹hÏ"ü]ô„KzÁ%|Æ}¸è> 9† f2XyªšòaÈ €¾`[Æ£g ~,žmD$¤åëÿ²x–ˆ3©?ûëC^ícáö»fV¡q†§\x1Ç).S Ö &‰˜yNTÓraå´aƒ%džɛ™y¶’/ùÀ®«Å‘_€~bñl¸š€œÝ†1Øàüú¿Ž~ïª-k†N}Ý þγæ uü’tà Àm±/Z^ÁkÐtÔ¤ Š'âxR„I+'5TV.j¨ k¨úr)xäâ$ßóúV§cf ßøÜSÓg‚…ž¸Ž~rPl6Î…«Q² ˹¤èFWÅÐxMµ.–k]Ì0«˜z.&P¨f©(ŒM*Œ€³²§=ôÙ0èüùD´2Ìò'¦ÄZÒ‹[þ¬kú™pkW÷Ë-¹–B¢|q¥„ÖÅë›+Ë…oº·þ8|»…¸™£¬!$>Q/ìô€ £ølAÏÞMÌDÃË¡Ú( àFÛÀ›…5×i=¨ÆY½KÐ;O¦0·©+öSmÒDÝ9âƒ.Îö%é8˨nð@Fí‰ q±^†Óo>!á"O÷ƹíaêÖÍà¤~×í,ãdO2SÿìúŒ,‰ÝWYb‡ÞôÙØêØŽEŒ§Åb ô—‘RË›šhLãÏüš>OüÕ¢ˆHÊl^õõÛêá¾Nž-™ùƒÊá>Ìî¬>.äžA0=†ÈË‚@™ÅDäÿGEàË3,øC+½îK;×ý±2ðÃTï/ðǘ(£©¾0I#á/@c×ïß}ëo0dÖß>`+§Ÿ[-ˆ­ñZž î.ý÷ýžÏ8H›A—]Ô³42£ó}þR*ìï¾’BBÿýàB?–}§ÃØíÇ#8co®Ÿ³:˜KÎ4B›6 ÆìÎgQ»};Døý}¾ç†b&ï³c÷²ÔÚNåÁ»IÞØ¢+Ž¦õÜûn´šv­$Zò`¥©ƒaz.<#òs %*øá+}&°N/¥|&©kÆäó…cQ)ʧáê¬$œä™ ‡YàòVΈÞ&Qš%'¢W¡eP©,Y,ÛË5žKB¯•bf’$ⵊûKNü—„dÎú>'…§¿\\úÑÝᦪ}6öxÇ#ÿ¸Lî÷×# Ëh† Ån˜¹(›Öå»(ø (¾,ÍâQÃã[Ö˜ê­?òø¯niÿ¾.è#ª¶:T¿ýþJ‚<âÃáþ*ÀÝ….RÕ2¿äm>+’1}‘ ßn`“Š’càIÉ0´‹röáͺY]¿ÓÄžiq1ª‹†_¶Õl:΃œThh@_}©23•Éi)¤£é±¬B…Ë÷bXh‘¤oq3ìÀô¡uB@>µ1ƒ–¡]ú*¨¯nžüÓì endstream endobj 1700 0 obj << /Length 2839 /Filter /FlateDecode >> stream xÚÍY[³Û¸ ~ϯ8“—È“µ"’¢.™Ù‡$MšìL.“=Ó‡6 mÓ¶ÉÕeÓÓ__€uñ‘“ÓM§í‹ Q €À€Š®WÑÕ<¿~ðä•N¯ò0Odru½¿Qª8¹J…•_]ï®þäÉê¯×¿[\,.î”Rjª¾P¡¹WÊ«uª3l bž+ä¹ï¿§üþž[¿çnyÏ4 ó l˜„‘ÎhÊ×£mìÂÊÀ“çÉD™»ëåî$˜ã§…5t8Š¶¹´‚¼ï Û{Èî!Sí–’¡T뢄 )[ÕÚ>Iƒîèˆ$ØÚ²¤¡}cÿÞÛj[Ø6\­Uï&ì¦#ê3©xD4ÊåÁAɃ7æ–ˆ Ï5+œVkø)*ìŽ\TD2";ó—æd 1þÉ -ªCiièÐÔý‰†ë= µýæovÛµ<ÚÐ(­!An{´;<™¢i—gƒ²qÏʶF{çѨc&XG˜6èƒ7ÅáØÑpc÷¶qE ª$:è¾®8>jWìWR0ÅV¿/\<uª‹Ê)ŒŸ"Ùð¢DI¶Ü× ³±ÕØw¶!vÃk5Öt7°4Lxˆ: ÞT~ÚJèà–OÝ´–—fOÐÁÎt¼Ì¾©oˆ¯í·Ç%å EpÛõ»["·¦"bÃÑ ¢4©îàt«‰âÉ7¦Y‰,8•)i¤3›’g»C¡#€þ7O("a”§õ2Œ3A-"å2Âd©ôE”ºfq&©qã1>¬’Ç¿—a‰§,ï!ï³ÇÖï±¹´‡€9‘q˜æÚc_ç†É‚¢¥gHø'CÑš¦Ð¤Df6´S6ƒÓ|À,–^Ä–$TÙ ü§(’wWÉC¡Ï–˜©“†RKx7pR;ÜŠ¢¨/w,iS´ÌST^xÒ}H8ü0V‡'ÛºêÓv@ó•Eq iäÌ)ŠjgO~*>8@€ ápÆ€õ©+ꪥ‡="hû»‡ž&`ØØ+}cMÛûÄ5³JÂtL*4ý“‹V7L}-Ë‘BÍûÎ åÃxq8°c®j–8§ñIv‚|’ëä̱Ǡ5}:+z®²0NâcðoŽÔORê³Êhfœ2¸Û÷>~|¸dª4ólÎÒ3¸Áü©jÓÓ­’0KÇ}U:Å£²F'90ží¦H ôRúŽÂXå³ `´ÆZŠ,h?fBþ>{¼ÿ?±G½Ûµ÷°G 圾h—Hyƒü^ùÃÿÌ £O`b‡`ÁZX ŠZŠä\RúÕHÖR‰P'ùn@üÀÖ{_F·Ðd.ä‹]oÊ–Ö×˨2÷óÒÉ}€EøÇÉ6Û;ÿšïÆ‚FÇÍ: ÈÜ-!3îY„ÖÝ·Å"øÌ ¸[@•ÓCìÛK›óë’(Lýí뼯ùÎu‰;þåû•Ä³û¶ˆÖW;w-ä¦v¨áf°¥çQßVq¨#5úÓϦx‚Üå×cwíå¶[l÷’x¢âEa EŠç>ôœ†N)aèdH0Dnèü á8S>Q%óðEÞ»áKŒ”@uê% mÌöË?Ïô%•øš:íBŽ‡ºz gÇÄ©Ø”“l£k|ZQÑ<­¦h-ø^'’?ÏÖ¢ eï’‚ŠœëÍβ´ŠÆ4HçeªS^Û5†î™•d»ûëA$ t€`…ê¡ä™<2õПzl•—Q[…ÐŽMóÂÂ:)8PþM(›}cA‹ÆŠ +‰ßœÌ×ÐÜaÊtT‚Þ_Ð óDÉC‡åe°¡ßFãÙ*[*8R¬;N`ÏoÝ|×é‡b¬ªÉ}úOgÎWÛVóï£ÇâÓÔc}a^–Ãåþ‡(‡é˜\Þ=ûþ¡M[™ÉÒdö…4ÅÛ—oÍŽò§õXš¿§š×‘ÓËþ·®HÁ0±\ª;xð…ü[Û™õ3ˆŸÛÖ¶OÄæío£¢xÌ,*Ò“V_ØÑ~Öi‰«Çˆrži.e#l£AÃ2Уpíj!—b(™iì¼  ¾£/+´€]-:ô‹C Ù’ía65‘¿p{t=¶1N×óØvÛ›ñ+Žw§‚jA.ÀáKg:ë(ÓP‚dI¨%¬}U>V>Ê(Èñý^Âòt4g]Ú56…ÔaV-~¿ð%¹{yäÛ·zéL'Fy;Ø¿+¶ÜŒ¹6ÓµJUa®³*[îš\U¯8I ýT˜Ã¡!¯°ùåÆêEã4;úV–VsZᤲÂ+îP¾ìŠSi—ñ»ßñ'ZXãšÎ!QôÁ'‘ TRå- º¯“®×À'ú$)és<úû ¹´0¾]D†ƒ­lcÊ⟾B®‰¿®´ƒ1ŒÆ?­„hiÖ¯û¬¸ ´¿žsßZUðê0Ä¥,çª7Ae­»B¾àŠ¡<]N72Iôk>´†C[sÏùNà‹ãµ °ºP‚O¾ãì‡ÏÕG6@½imCñÈ­}dÓª€Å¦UýÍÆòZPé.EáËëÿ+÷ endstream endobj 1564 0 obj << /Type /ObjStm /N 100 /First 988 /Length 2320 /Filter /FlateDecode >> stream xÚÍZÛn#7}÷Wð1yX6Y,ÞF€I‚Ù ° žY`wF Km[èÏäë÷¥¶%ËRZR{‡ñP­yXuêF¶õ>)£¬÷AY›1FQ²2°ÊQ)IN±"ãžDå£üÖŸç/M¸Åœ¶™ÂaÌYßzˆÝLð¼óÍn¨acç’àû'mv©¬ÍÍFsüf£=€oëÂ-)8-nÿ&Ò.i—: #Ejƒ ÛMš8ëí‰\^³è—_°©(†ÕØ"óÄx" ^a|<ññ­¿cãø€lŠ b¥EŒC!¹mõ${|*IfO*Y¥UòÀë™Å–mfA™¥“Ô[&Hèå€xͨȢv‘!õ®høƒªþÖ|l ôÍÅõDßgC}1Ìnuó )fö­z‘:àÊëÂO>(ôÒ9ö‰]np¼9_© Ò •A }š%Ž(ë(dRZ{-I8²~§A‡Íä7}=þ­ž,î·MyH^«(ëh»J{¬)v”&ÇÚî¦IÇÐÐ{ã6M²ïF“`ÌM2ŸT@RtzÙ ‡áÊ^ ŽY“ñ½Õ¨ùu¡nªùrƒÙ¬¾¿ºOn~ æƒ_f÷£—%f‡Fûc<¿[è—q|%  ÏŒôD"±F>‰Ál³#˜ãÙ!­³à)ójàú +h§4r¯EÇ.j†”#"´Û%`r=i¦÷ƒÉÈ¢R_+§&-D²Äã­-A¯ žáb:Ï'õÇrÒÒ³_9ã „&tXSÌ{ñÜŒ¯fÍ„Œ¡—a7˜ðFuЮ`÷ÂMvE=ÔŒÁò¶X:Á¸WºÇ¨‘µ3=É‘k¤BFwJq§9At½˜Œ·ìh]÷ô¹!ü”â2:Ýè¾B<<Úžn»È•³¬£íiã*ŽÙÔòj@¦´AÚ ·j~ʱÜjàÛAhíÌÔÎLíÌμAÌ$GZο\§¢™:mLÜ®†7=K°È¢Ànp²Z»6wHÞ—ÉzD”t|BäQé›t( «¸C×Hà–þÓk/U*ÑäÝ^DõÍM=Eü¶ýÁ!cQ¬?á@Mv4·ãI ô=æZBŽ…‡´Xœ—1vs7hã«Fò›õýABnÕŒ@×bb‹¼ÏÜ S]ÃXÜ#™mwü3˜ˆÿC7îÜ%öˆU¾‰ÏÄA…¯uÅ2‰jü¸•A}då.)i¹0"›µe»¿n×wõxV÷«!r l~†äŒ/Çt] }YÌ×yú4˜sInÞP¹Ær¦m’—û·½pJ»NŸ©G$rÚ¤ADÍ4Õ"±‚0†ýHw£Pþ¸9µ’äÊÍ~l\)¸Ðgá¹ýZÍi3}Ñ›ÊmaoøÎtw‘vhoztõæÍvõÆéøêÛb‹ãTTB‹-3‘–Ãg›áô¿í»Lç=÷ Nâ~zBãÉk–»ÊhÖƒ[Úê8Ð/¬ ?·±×Á¿ÝùÉ-{hüöBðáxúyßë‘* l@3Wî\#* ¯“Awo6ÁÛÝû·ºåèvîµq°iQƒ~oÔ9ÚÒíù÷º¥ƒëhéöfuÍÒ¡íCÛ zƒˆ#ÉÐBṏ8P”‡¡Œ÷{M? ÄÏuú¬6=ê–äžÉY9ÛŽˆÐ;5_PŠsŸõTÐ… §ŒBŠ[Ö1Òsòî 8î†[.ø€À·.ü|éšu°üg>(‰¯x@<ÁbÏ|g‚¼ÉD:4ÄAËËòÞIrûcÝöƒ’j‡-ÓFþÑ®‡û½^9™Lt‚Úc¦Ø3¥6h-oû´¼‡Þµ£÷2)+éÁ\Ú_Ž;QÂÈ«‡K4¹R®¿º ÕWÓÅX’f&—†«´‚}Ç?ª'“Å=2=ÆMrº¼K¸Â#÷´FÞ}ì€g8Ï×ðšñKLÅÕ’ûjÅÄŽêðhÌÛ¯É~ùàºJ²í/úlha×µÊñ;¯ìœOعÿ³awÛÃ…j4¯t°9¬·ÿ¼ endstream endobj 1709 0 obj << /Length 3311 /Filter /FlateDecode >> stream xÚÕ]ܶñÝ¿b‘‡F ÜÒüõ‘±[7éC8HS Z­î–ˆVÚJZ»Î¯ï ‡”D­ÖçÚ Ð€‡Ãá|sùæqÃ7yöòþÙó׉Øä,Od²¹ØΙŠ“M*KT¾¹?lþU}YÔåö÷}þZ§3ì˜ –f@Ê¢å)¢<ãŽøf§’œ©4ßìd Ka™¡:õÏ»ê\›²LÛôÏÏE7ôÛŒeÔ>à_ ÇŠ§ªè/]uªšfLÓÝ¿ïGEs T·FE}q:×n}o~­z‡ÙUý¹*³•:z»:ªê÷ÛDGl»S<‹¾k*<0¿ƒÓçZÃeÑÀòDE•:L”`9|I`¡¨ßÿZѱƒ®À=ÞÑÇ«®möEyür«uÔ¬¨ÏÇ‚(¼EžŠúR¹©Öí3tEÓ?´Ý‰D5îÐUVRðñ3×üeÛTÈc…{ɹÄãkCÁÿHÃoŠ_úÁ؃Á×èÏÇ¢®‡,ò4Òe#xtoðöìË& ðÌV=”š©‡ŒA‰„òúá®rETÊ”Î=^ÑmE=^Üù¢«Æ}š¯Z&SÎ4áØŠå‚Hü,¥Ðœe,NÆý¾øúÍ×?~±Æ–õÕkq=7˜˜ žzœo¼x縶׻b5Šq9î>ÝüÝâ`9XM¦ì¹bõiûfõ\`Ž*Oÿ›s t0RÅê0?Ÿ¾%Õ½ÞJp 3É•õãuo)¡˜Ÿ%‘—÷ÿ{ñæ묔K2<´æH$ØPh÷ßÚ¡"³ŽÅàG´ô4èÑžS ¡Qá}mÖ¥á×Á< b>^ã¶xèÚÓb3`Üíp€ Ñ™=П;¡„Þ£ŸÔqàv¼ã†]>Qþþ¢'4Ó„6Ij§¤Œ¾u0š˜òRƒ‰ytGDÆ+ Tš0®²'í%f9O<–£Hnö N˳Ùjˆ-œåqúeAˆ"ža¦Œó|R ί‰å,M“¹î¬Ñœe™º&* T˜ë­R&òívJ7 ËS:H–¥þODžŠHy*<×DbÆ3éçÕ §€ bÙͶ16[ÐÑ¥¯6¶'Ñ»£¡ë®!JäR>é®®h»ÄB¯^u ùŒ³nø‰+ŒGqÔíãv'â›7)Kµønr!d%FÆçòuÉÑýÑ«£xOîIæ ‹¹ u›¼’Ï hÐ-\eðÌCü©mÚ¡m 9¬mz Ó”ä¦ytiÇ¥)gYˆÍ„„akÐ×4{(†¢¯_eÛa2Ø6‡‘èÐNx!ÝŽŽ£÷gÇ¥‡œ»ãÀ[sð3‹Fðe›ƒ ß\Å&©páNì°5Û['‡©Ú"¨…·w>ù- NK‚ð·(Y¦ñª4S™³¤ï·Êœrí„ظsüPÌîjún«RÈœ)¼|µ¢JKù×- G›ËèeUþ²… a³i˜ o.$ýbmÕý±=û¶ Ö¨ÙšsZì°bNâa’‚TöÖaæ쎽¢Q´Oy<Êè<Ê'‹I±H6„R¶• ¤`»²4K{‚Sê +NÕP쨀 ]Ì|l(饦%±‹¿F¥{„Ù~ÜèÔªº_‹¾(ƒwG`³<¶""ò90Q^,ñŒ@D.‹ ú,ÛÓɃ®wͯG¨Vˆ0m ã|-Ê®íÝ>ýp9˜ªwñ;÷¨kí¸íù2¬–c ¼*‘µ¡-ïxŒÉÁ›ª:ô8TÖª„…Ÿyx¿D¬™œli0k9›€@–¨½&»‹=¢Ýg€»‡§ìéeoXÅ‹ÃQ{ÒFœGA¤þ wRÔ_t!qJ5¸s„aºr Ü]üõ×p·rþ,crŠ‹Íêñ%dI:8>Ru¶“Mõ6Ž±ÞwŸðèÎ׸*ð>VŠŸÂÅÐÖ aØ\Nûª ¹8wÕÁ”CÛùÈgê‘Ë Z OT¬è<Àœ¥Á8·÷ U¶˜ָȊan$b¯”†#ôi™ó ÚA9í·’G—æ .˜²Øeuöðª;y/()_¾ðŠ:¹*â„ej©ç³ê^ˆ°fÒ“Q¼¹NìR–@¦ƒi›ïE¬ç‰¢äN/ bÚL„{áWw‚0'8Æ;‘Á•;‡ñÌ,p„ž·ÈEd]äZ#aMŒ_üðý«ïÞ¬¥hc–È…f­æ¤¨§ùåŸn’N!ìs1Ïä>§=“¥,ÎÄÇug’OmÎpP©Ä7g>©d¿%ŒëîLxÖ û‘$Éã%žç)M¦4:9Ôµ¨‚™Ìåª[‘)À‚ÏèVütóìó+ù˜vÅë-d²ÿK¬Š‚tègvC»ûÕgé+MßFXÜE’¨[Â’ Œ:Ï?GX?|´°žÒ“Ñ&ùÝg)‹‚p#n*‹„sk˜¦ó’®Ü< †2•œ¿³¶ü†"“qÎd,ƒ*gƒ­ð®ièQ¨#&•ïˆÑÈzóh=¢r%Ý8')~[–Ñ™Nl+¾Èä_Ïä•+vÀ0›ÆJ¾÷Pnº¡'±`i%»E•P¾ÃÑ'l"‹,P'L1-Y 12h7®§·ŠñL¯yx/šs¨§úö»l¹ï³àÎŽG½¶ªâ€a‹ÄÎÛìÝÊâ¼sÉ,ئÄø?—Á¹6öp:±é»Òi´o‡#Af9¿ÊTdã%à_ í8*h%ɯ3ESV;ÈÎ÷¦6ThYúKnf=Fu@:suX{$ºRŽÕ^Ä·x½YêD‡[9àh¬ð3›±®p º±ÛP˜¨Bjà•Â`¾|ªÏìWO/Í/M‹«Þ5 ‘¹¾=Uk%æ˜Ùïb°ô1}¹Óy;x‡%»ë©W‚ ón®ÞY4fìºvIˆŠ(ú@mÜÄȵå#£‚ÐREÄÁ¬ ¼®+ÛÞÊ2|Œ³ßÖÄ`$?+¶ôx6¶sÎfµY—OQÌ+åIô ±]Mï’¾uÃGo@uÝþôg!IÍ$I€Cë¹·õÊ¢ëÞÓÐ4Vé½Jà;Nò ƒHAÄû/S%®¤A:0YUJý›â>!ÒL¥òµ¶u‚s+–nAãVç›Í)ÎlÏÕ9V \#cÆNj=üzÓI¥ SIâº#¦<ù*ìÝŠ† k ‹æ/ÇÎçzñbÝ=Ž GzÜÕKË^âíp‚0cX 3G>+öÈîž.î轌5…Í Ü ÓÙ¼ØqÆS÷y2/´6æ…â7ÄRB±佩ꃵAÛ+ŠùMIÎèL38tLEúõ©v~ËàpÀºJÄZ\ÅPjäauD)M˾)_TƒÓꨎPYô•Ÿ¤db†v+aÈæ‡ê â(¦ÑÌ"œrPåÜ©Å ÄdÜgÖ+ÙɘJ«¡¿ý3ìÔ[Å…¿ÓOÏyL“Ss ”µ†Œ`™ÓæîVÞ Ô¼!δ{4ÀM®¸ky¸Ô6©P.¾Ôjпm;ÉMMUyØ|àŠáp¼l¹ò<¥™âÁó”\yžB}Ò c X„û½Ëy­ôfYžn$¤ÜjêªR€&K„ý C˜ÉŒDšGÕ`Ý78«]@3΃À Å]>W»¨ë!@–œ\‹ð©wËù¼³ 9“U⇀]Û7¨ûɉR.ã…¿ØÎPoKÅÖ!·nHj¬À÷m}Ü×,F᧧ç°ãY© ÐEN¿t)jˆÓ—Çc°Ðá–}·ul¬fk“jW¸^ñühïú@±µ?6*_Ýøœ^»œÿºÙ§Ÿ1•œ¼ÏÿõkTQ·>²|è-Jï÷%s ö>E½Z–„‹ç½?¹úÊÊ÷CïNŽþœËöGé\"»»ç¬ÀPË> ¨naöã×®}cã6‹>¯¦" ÃÒmåàUyüDÓT®ø¬EÓ4ìù‹xðœ L<'öÞ윳qNŠ'6A 4rZêÉrµû¡p•læØöí)·ubôUgìfˆý@S5,):‚]5Îs=5Îsm¥t¼™÷*Húª"T²r”„isŽõ`ƒ¢_üîÄm_Õ´…o•r½Æ倵5¦; ¬¶X@˜÷8mÝYò¡×# +ò1é¸ÑV‡"7KÔҷÚê‹SýQòÁ¶z&äͶ:îNÎ×KW­Ü˜ò7¶ú`#sgùSïF€oœ¸ÓŠI¾ˆ™þ1 tÕ?&áµÙxÆ}N €)AR’ßxôÀ$†‹üÃÏJÄððr‚}ü[‰ =K²pÓÜ-J®5Ÿ´çQûiw"Ž—W/zPì1øþþüéáîéçsžD®íƒâïøàÿþùþÙzƒ# endstream endobj 1717 0 obj << /Length 3783 /Filter /FlateDecode >> stream xÚÕZëã¶ÿ¾…Ñ=+âC" Òö6×W½Ú" Z[»VcKŽ$ßÞÞ_ßÎ’lyïš þ`Š‘Ãá<~3Tº¸_¤‹¯¯~ÿöêó›Ì,\âr™/ÞÞ-Dš&Jç #D’+·x»Y|¿töúÇ·þü&#JeM¢Ó æñ4e·.vk¤»Jyöð²Ä æO2•-VÒ@§¢÷2›¼ýùR£·l¢sûÍùbi2³”‰y ºkÚë•ÌÒe¿-™ÿlLlcd n¯E¶,è…uSÞ] »ü!Måº*랺›;úß”}Ù諦žaCH—§~¨ú-½xhËMµî_ï®%¬¹;–óÙ–E_nè¡àζ¨7ÍþÅD4‹•°.QÖBC%ZÛ_#Âï.ÈÐ$Ê™Y²lÚ¶ìM½©êû±Z›ÈÌb•érÕ7«a‹^ÎuïÃVŸ+n«k¢"žŠJ¥6qîY¢z#oþKQýߪòð™+7g:çt¢r÷L›•¤’‰2ö™Jçþ÷J§Ã’ ’€®¡Ò¤kNg4ö'œÒªA/ÄØJ oDå}Cf‘'Î(‹&ɵX¨$<ŸœaÇ$ÒX šœ6¬^´%5ŽõÏuƒƒ5vH7ŒtÍžiºþ¸©Êî<9±¼Eyûa¾q³êzN×WëŽ&ú!ÍÒ8Y¤köuE30'}Ùñ\ÍT2À?x5£@|"qoø†Ó»‡óïð(àG‡[ˆ‡×ÁÚÇlب[¸(‰¡Ú·»ÒoÇ.›º$ÊuÁÓu‡r]Ý=ÒC¿m:&˜ÊÐ-ßUEXUçþ¸G½ñ§1Qz‡š©¨ÎÕÌ9ù¢ËòŒ=l«õ–yoƒDè‡; È 8WYª=Rkì¨ê¾ÁVN€]3Æ3Ñ@‘ƒŠAh¦ Ú$MíEDFÐ3Uqâ._Þë5ÚXr½ÊÇ›z÷x²Ãj4¡Ž°*Qb*›énWJ€z¡D„晪.ê`G^_°ÍŽCIGz‚ïy=AŠ¨'~VÒ$˜l†¼žÐÜO뉲Iæ¢ç>Ì) x’ÔF?ƒ&FjBÚ‘J39K '2rŸuð€'ÞÔdâcOìcB½9èîØÂC;7ÉŒkËe’*ýÅ’^±òËŠä9éU~ªWhõìz¥É°æSe¸A×é\ô"OLc÷¾,ºc[~yWf`M>²V%rVT±z`cÛJ¤¬sØ×ìÇ>tn¹ÑûÃŽôžh?mUÔk¯AÐåƒø9×R¡c‰œ¼ëÀô_¿eZ&V‰±â n6W‰Í¦¢Ú`8„3?îzò¥Dç½96<çØرJ—+¿î-‡¶y_í)Zú®û wõÎC îº}¤ÿò—ãˆP”µÔ¬|W¾ü ¾ZÖ›b·ãùQ±ñm,ZoJ°± ÿ¸AáŒCæ_ÌÙšHÒ\ŸInþ¼A•ìØ Ç¦‚s!`ëDØ…BÀÿAø„B0R9¯¯R»$b óÿÕ?æ؇ È4ÕS¡ gì’8—ŸM;/H׆„£•"{I ö°œ½êD*F@‡Ýñþž}õt쪫>pÇCYÝo¯z6$ŸâÄñQÀGa·Å=º5% c(qÁEeµ¤ú¤Ð÷¤‡2Æ^pQÄ»JæÃwè4yý”¯pö3ÎêB—ëÄdfŒ-T6,;v6èño«]õÁ‹G} X±GÍÐG¢GÕ°±h û$KJäA9É ½ðiÁË·W¿\¡J” K›E–:[b±Þ_}ÿcºØÀ Ø3$SvñàI÷8‘Á×v‹o¯þNuŠñbÃL*1zŠJìäd¬40™VL³kšdP‰…Ät)Í\p'2Ó‰Jg¡ø Åïx:5æ.…˜ Ì%Ö±0çÂ2M`‹ LPäù™0”‹Â0°G;F6fk˜J$"å%[YÍ, òÒÖ~Ê `bâž8‚a* Ú)G‡~" °HÞZ¥C%[}v1Áe¹"ž…s~¿á ¥Kcñž+bFL1¾ó™Íö.¬?º|©Ø™¢' þR‘ž€‘¯§U%büŸn»² €ãü­†”J?÷Hé˵gá݊ͳt[R_M.ôûÑ^DÛ¡Ê°!…Åú?4¸Q”Þ€À GN—¥Ò3‚8€ÉйÄ_"! %@ý©¼Š†*$‚mÛf¡ÁŠÇˆ5±¼?‚Ö}éý‡¯£L+*‡¦!@e×#\-Ç“ EW%f ÷ Ëú¢xîm(ÁÜ‹yIÉcç5½ØÝÏ ;¶Ï¯ [¡Ÿ¨¹dñÈ!#òGŽ}Œ›¡§OÙp“.¤ÐéÝqÏ–éƒÌ°=È IÂ7•¿‰ºe©y¢@„ȃúÐ)Va•Ž™zd€ï’LëÓkŒÜóq=f¸¡Ý5Á|CO]õqŠóá"3ÂAv.Ôyœ^Ÿá]‹Ÿ; ÄXXŸù˜câ™ðøÁñ(¾~ãÃÒ;æçå{ˆÆ¼ä+ 4èćÇ{Ô³Ç/fNõD›¾«ÈDwÞ& €Ðžþ‹ÞBN2‚1´Á›Ûn q­¤'Ò~“rÒ`ðß«°W×¾ZÇ®m³Ac0‚L—DÞûª.ÃÞBªXÑ„>ä3æÀËËå«¢Ý<®þymaªÆSB9Ó kð%·muÜSG±n›®£¶Obøߦß|ΣQŒÃåy=çtø¼Å#ˆâ¿”Ƽyù*$$ì²P–…HtÁKP^#t$r‚ÐÛ½7ƒ®"Qƒg@GbLÌéa˜.P qË3Pö>RoWö}¼Áœ`Ë“] ·9/_}¼@ê1f>`Ì”±²ÂQn:jRùÖÄ+À9¬,!Oˆ²˜½Ì“‰îd(Ôª/ã‚Á€•áµü´¡“­6ÇbÇìðGÐÚ6{¤Çx' ËE¼É®rϪ.jN)1³Øáíþù&ŒÄf`ðöÂ…d&Üd“<5ìaHNÍù°“ [ÐóØ°¸RøíÂlF!ÁE¹áîb}‘Y;Ël¼@uîä*lΞŸtŸÚŒN¾Ú*ÑìFòRÚ×lþ ãÉ,âÉüǺ5áòŽGŠŸ±~>Áf= ~Ð}j añ]¨Glž-÷ãB+6E×Ñç]&|²–OsV?T2È_÷<)`±Ùð:Ì÷ò§bù…£>Ñ‡Ç `!ÕúÂ1§Ž÷†šXêÎÜtuä9ѹ¦î¬R–†ÏÚx¢¹Nà†ýݯá5jИݮ‡-.¦§²m±ÂÏWÏ0µ“S!›ã¯¦l:ÀVƒ®œå GÍr9ø¼³ï¢†Ô>Å­ê<1¹žzÕ×Ã'S_µèKiÍî‹Ù_¾½ú7Dð endstream endobj 1727 0 obj << /Length 2750 /Filter /FlateDecode >> stream xÚ­YmãÆ þ~¿ÂØ/•õ¬¤Ñë¡)ºAïš+Š$¸sS M?È’l+•%C/»u~}É!gôbyo/=ìF#‡C>|ȵW‡•½úë›o·oÞÎ*qà«í~åض^° G2^m³Õ¿¬¼M“2]ÿ{û·‡÷~8ZíÙŽ#¥–Å1.yc³ðÕF†ðÃxµqCøDÒªÇfíDÖ¡?åUG"¥‹t… }-²-“ݾ®+ìÈÕ‹Ò¤Zo\'°v9þ†VßæÍt5Í´ç<-öšüÅöí¶ë³ zÛäeK¯÷uÃY^¾_»¾µÏÓŽ^´ÅoyK¯ôÚºïÒú”·ãØÚó6§7,±Úžðà 0nìû¤}ÒàBϵÎIKz{Òª+šSúÃo º44Ü÷UÚuÕÒʤÊhž £¤¥ß*Ï3-Ïœ‹ƒ¸§G:# ”vEuà펬 š§Èy‹‚•IXºÉÛŽu.ë­(Ôùìéɾ¯;çÛ 7éht*Ú–¶ƒ‡'4kRöj#xV©åüº%š‚1™ UÍb“²¬QØsž ªøÂqÙƒá>|Í·´íËâ¼ìkRzQ2ò^eKÏz>æÊ@ŽÕ湶ëÝ"ÆƳ·ÿñna7†®ÙížÄ‘ƒÃ`—ÏïZ;È/¶-AýÙ-®«8ð·õ~övâÕ¸š½ײ¯ ^­Ü×ñmáøñô–·Ç¾’žMjJÃm´5M¡Âø›Ð‹²>%4÷´v| vÇÍð‚‹Š*ƒE©<§ŸEz¤9ãê3<.hÕQÕûcÝ—ÙHxK:£l“´GÌ}v|¿`²ñe§sâÁðAݼM观š"¥wãƒáKuGr BúÃÈ:õeWœË"çµ{óÑ‘w˜\|¡¯I2øà/_=a¨w˧Këb÷\ƒ…u ¶Éé\Î"²)’*ÍçÁ–d¿öm§ŸR†bÊË>uDg¾ßaØ\G‚”BÚÎRÜáÅJö6 œ  8Óæ¥2›Ôn¯&çq˜pú¹(Ë©¼¢JË>#™‚9YÒ%4µo’™{ã»Âµý©Ñ›¼ë›JÉ bkwÁ߈åÀ„ÆsðË ¬*š6ïúqx°H1}~mZ×`©Æ'X2n$|OÞ0n€±^Áš’[Ö¶f](Õ¡Eœarê!ƒŒý”'m¯ŠLŽ£Ï€Ÿ{ãbèÈÅžS=…võT¸{éc $J 4¨÷F™“qY°K0² ,:@]¤€Ì NòÓ:vU–š°ý;ÇïdØ€á³•Ò ¡ï~¥ƱRijÒ2þÂ-†žp ©JÑ wÄÀîîïÐë„r¸;Å^2¤ß7n%][…â•"EK¿ ýG£fäÑj2­«.)*F©¯)„ια‘t¦n`o§®ÀÁÚ·;ÎÎn£;‰Àc¹³Å“£½Œ8]å^Ýqæ~5`MCëØM&èŠþÅ芋YÎ$ ÞÒ{úlݤöœ§¯«ý—¡7çl­—²jD{}Ø£S¨{ÇF2ñ½ãðyíØŠIJ×¥ÌÔU(oŸ þb‡ëãƒjƒf%…ã¹7@È%j{-Û„˜ðH ¥WÙ77Ø”À4P®{£rŧÐöÚ•ùR ¾°£ ùâ<Úà ƒ2‹ Ë –ù´$e##‰…ÔBa€á©ÎHËŒO"…¯kâ–ï#*;¥aßî­ÛŠ<áG†t>%¨’“¶È´à ¡:Œ–¯L©šv=î…¶ܦ€”&ÉIÏR‘pvé± Ú¡ã: Ã@yd=ótus&[,±nGD®±þÝ¥¸[æøž|æ…¡ôôAM> á ðã X_;ЦãIá+èŒé¢Ôa&(¡’ä8…)§0LÊ&O°H Ö-¨-†3‹áj‚|ÉסäñËiÈà E\XkëHÀ—Øñ^éCqÎ}ˆ“ˆ ]`‡ÎÔ ¸ØòlM‹ÂpR;â3“P1#¬{r~26¯mSLû`´cÁ51¡qóÜ]§ÐD©:osºêšü\&i~ ¼gã貺¬ ÖI“w¬[€X¹SX¹yÜŠm}Ëe2péóÁ«ˆ!\éùþñïŸäôÃqŠ™°*/Ë•ûPà£Ï/D!x‡‘öýãBäøÆ®©!+Ìå=–Û*®'ù–HNà$Æ %Õ¶8%ñCx¤¾ ÎMQ™YκJHÞð'¢Uƒ9œ†¯²¿F€ñF{%ò¥Ôï†ÂÒƨ^ «¦×íì‡Âõ¡˜:’æòÒÖ2ÞÕÎtdªtn3¦Íè†x¤ jx³@½CÐÁ…"‚F–Á,ç;ä\Ê_ZZDÜ\A´(+pÉS‘õØÀ—£–š |ëSþfqP½dNyw¬³V Ì›¤ |h iEÛúÄš&YV É@K²¼Q<³íDžȨ_ÇuÉB|ÂÂMÓý%ðt!›(&?7íb!Ž¦1ñϵ‡Õz57K^mD€ {J‡&?`_æ󶻮7w/ncý'-¸Ÿe“L„ÚÃÜ£ã×Üá§i›j`è3tÏ÷?Tǧ¬«÷4mîÙª"Õ²gÖr½3i9"µÛPö|*%’9hYÙ²Ò)Ýé#§âZ5Žœî*‡²©Eü¸¹˜øçåÅ^X[ϳàÕgCl›%ÀDÀôïêŽ Fž&L¶ÅÇð„8n àæY¶”e£W)–j øç<¸KB ™{Þ¸ªò4ÿeÓ¼¡t€Üïig'ì[Ô{:RÛ§l…„~vE©ª—²]]¤Èõf€›üMFyV ´M]?Ø­Í+ÚÍ£œVÖ×õÎiU墳Ǻz£‰`brÙTì€jƒnÉnä /ŒG÷ñ½T1€1ípÔ­ñ¥Ô=uTùŒÍá–µ­ir ˆŽ-d4ë¼ LR:ælo—S”CêyütwëߣBz¡,ql<ëîÇï>Ü}ö°·Ä)?ß‹(Š^¯ÍÇí»í×óóÿ%LjùðñÓ_¾†:?.ß•2rðbÞoÿ]9ãS½F€dçF… Å2˜¹3~ÿ «#K ëÅ1`@#Ä„NµÌAØ+VêŠæáŒêÊ¿±‚”¬‚èÍ…æÆÿ4-:U…Cfd- C 9`€áHªÿ¿/wZB{`äðO/šÌ[©êjó[ÞÔ³²{ŒôŸK¤!g†Æ˜nÅP˜|žm<®áƒòY£þ½®›Ó¯&RÓÕ®¢Ü+B¨úiÊÓc·KzM¾nô{bÑ$°?>?íþ l<«ßœ›鲨›ÃŸ+PŠs9ñø7¶CF¢ÌÃk¢ .>4;]wnß><vRâQÀ‹–|·}ó?Œ¯ endstream endobj 1736 0 obj << /Length 3258 /Filter /FlateDecode >> stream xÚ½ZmsÛ¸þž_áO)5Áx'áv:cûœ7¹¦‰§×NÓéÐ",1¡HI%ñýúî EÊ”£ä¦µ? ‰}v÷Ù…èÉò„ž¼xrqóäô¹ŠO 1šë“›»F)RŸÄŒ-ÌÉMvò¯:gÿ¾¹>}®Ù@T$1‘TÁBNÈ6‹´X Ü–‡µõ`¼›1ç1t ?ï½³õŒ%‘-¶Í¬3zÇädÎ’ÈðzçEeŸÍæ‚ÉèœÀ•²è»òèU”S&áÊ Kj)½ˆ]oò:‡wö·y9“4ú€Ä7ñ”&4H‚QW€‡I4£ÂhC§A$áE%?"æAÄz1"¸¿YUëMS•®—G—NLD/‚x€ðá&Ö5÷e»²Îsà-ª¯½›ƘÇØ48(8ÝMÆpõ¶{úûj‘Ûö>'ÌÇ£XQ'êÖö/3ãªþäïr°ñÎ66­g"Ž¼÷™Â 8u­äãX1Io9± °!Tdxa(BBÐ$TbBåc>Gq)N?6Í—Ú;>õ™Ñ×N.ÒeÕ`ŒIôvÆ‹ÐUH^×ë\Ž;ý9w|ó¦ÚaŽqhAñ¿/æQCM@/ñ&Ÿ±èë !‘ÍÁ«D=0?÷m•7 hp³ïw°o]e¶hüœj]':©µ‹j\{××»ª€°þ2ßn|WÓn³Ü¹/y»ò­EU6mZ¶a~í¯ŸqnZßçåÒwdÛÚ¹¢ILƒ¨¢GŒ7˜ôªl- »saØ5Æûà/ò*8ÇnµÑg6y7ˆ+Il¾ØêÀ2¯Ó‡ød1aæ1|rŽ®L©xNl|:™¨æ„ŠxŸ"æ>ÒáÖ…«{;“$]¤É÷ÁCýæõ¥ îW™¥un(óÓÖ6-ç‹UZ.mßÑlëi/Å #jgâu»¿zL…ðÌ7)¼D§Ä°ÀH‰kÐáâA0ë×÷Q#¡ÁO˜£#Ú$3z<¢)ÇŒ °ŒhÉcÔþN?"’å<5IBÚ[p”‘¯“±j’$ÏJaB%ŽXs¥;'zŸú΋´H—mÚ„ÞË Û]=~LêGÍ9ê¿Ì½NAÈ9¡€&4¬£[¨ï}{QWM3¯PQž®» $ÊB&„&=S{ŸVO´„éGÙÊ\À¸ê¦ƒ’Í1JÆ"cœ’!µ2SZF#åñcÆù”+ÄO©4†·3{ ­JÛ¶ø|Æ£ŸP)4ðÚÑXÊ{ ]o ë1¨+Öö×m^Ûµ-1°`§ ÔbæäT½>òC;ÑýÇï9Ëx0 P¾Ø¬¦õ{älŠ¸xjÆGÿ¿ ²ÊŽøцÏãïÂìŒ 1Žõ‡ De=”JXqÒÞ9Ü0½zxhíá¡:¼3ñ]žÞ9ï&]€°Kð's`Ã5ás“˜d¤`“œ”)xQuHßqâõ}ÇbŸ` yÓ§Ÿ` (ÅGÚöó:cw¹lÜ)D÷”w†¶åÃA$ S¬3Ë­­]¹h²0b€Èà8BñF¯tyŒÒÅ@éœ;+ç"ù¡,Äi=¥”iÍ&• ¹Q±<¤lf¼² 9h_%£½ï£¿»øÞqÆ&Ý6V¸<*˜KܾºtþÝ÷ÕáÓÛ¼È!»Ô*š4mC¶ý -zã’#˜V-PvÁØÑ9&SÔË&™ÚÕ#D¢~—z±j9Øp5áœÙ(´ƒ=4­Í±Ì a·]46ûv¬M] Ë– íË– í³¾Ä%g°·Õ6 xn妿*½ÈËð„˪Úôý: „€á‘ m³¥mœ„«Œ`ßu·Yz T…Å7±Hc÷5WYCüv?DMLÆ&£t§Aî‘ÝVÕ'¼óœ{]1b¿*áF°îa'”^°Çù*lŒ ºÕt |°9ün®Í\²/U´Ù`Ò.Ñ0ï TŸõa £à3â1¢¶.«öû'ì æ̟ΰìM£wÛ¦±EpkïS—hAë9~Sµ׊y·Ëà\®ò1#ï¡>´ê0Ó¹­TtîGšÜ3Bl{+÷mhnveôÚs>ìOK­2ô ØrY½o¶á:ª§»§ýf÷Öß6¡'/û·x¼<1]'%r—¶HŸ#¸4^ß`¡÷PË xXs<dæ'‡9 `Ü傉ÉbÐ{zÔ82hâ9…\¬S)c©•™3Îÿ„9;KólŠùgA(YTäóõt–»C—Q`¹\UŽBp¡é8®.SïhÅu'ƒc,£—)Ä‚Ðõ×õ`=õ€éªiýÄ}ž¹£]FmSß°û£µ]ØWè²È ¡k © ºŽÅ*­Ó<ÙáûòÛÚ/àE0áÚz磰šßø÷Þ9Àﲬêô¶Ýë¼iú§Jd¹DVõIá^‘ g+Á•ø)£zçjŸswù2åÄ°qtŒLâcàÍ1’)îˆoÿXŒÄ G^65aœÇñt”¤DîWa/«•uζʶ_Ôš)Š0%ø ·ã0}S}A` U»c>ÖP¡Ûzn÷NlI…cÏ}%0L7'" –d2Òh½Ì‹¢É R>óØúùú¬Ó¾$\îÕÂ^§Níu°%ÐÆU]ܦ۵¿9o,æ·[÷ñ¢ßÂmƒIÛŸ¥˜£’BtiÞÅ Cç›M]}íS!º½ñ 6±ÎoñdjNYE8Ôëé3ˆ;Èþ³ñ#yÄ2r^ΛííG.pM×ËéDqϪ1@ÿ·m ìuúÙvN?pW¼q:<¾0¨Åð¸óÛQAo}@2G-%g?TàŒö´ýu½! RI6°ÞÁãÒ8ÙWü×`¼.{À:žÞQ ]WAæ:\ƒ•™CVÆ„"zwÞ|¾;[P]™—Š€þT|jû|%`38cg3hA¯«2«Ê@Ÿ.Wéfeð5/Ó¢èø˜ x¸¼Gœ¶Hoðs¥¢AÊm»«âËS6ŒýDB–2:/ZxV?è;]|”j¿ 'è0íöÒ‹j {á33d“”ŠÂþΧÕ(õ°N:á¬ÔWÀÁ(!žºF¯^…RYØxwF¼máñÓ™7“àtwÛÿ£ÄêøŸð£jëL ‹ëLúôËy‡ˆÿ±¾±‡NY0" ̇Íg ðkÞ†dgCj€ èíF_t£/óåâ]¸»ÃýA"ÞÜÌ€Û°Àœ ¾'Üü‚7UÞsÙVÈË°HHÙB¯³Ñ%byѽjcuZäºÓ•}zÀñˆósH„‡*d\ˆV¹«ê Í"ˆJèàÁ ‡*Ž[²i¶Î’bI´>È—`îèDI„ª#>õjÓÕ»EÆU(»Î ’ õÍ’8ÆC%ÝI6“æ‹ Fœæí)$ð/étÑPaöŠ†.¥„³.ÀÏ8r¯ý™xwòOBçë@äX7êÕ±.žÄb†á§~Êë4õgL¡{é¾vÑÿxK˜¨+8Ÿµ6Ÿy@^2ùS½«›'ÿ©E endstream endobj 1741 0 obj << /Length 3428 /Filter /FlateDecode >> stream xÚ½Zëoܸÿž¿ÂŸ|2•ù%ºEÇyÙ‰/‡ÄmP\bvuÙ•¶’Öw¾¿¾3J+­éGrmÇÑÄùÍ“ËìàͳWÏŽ_k~`b£…>¸úrÀ‹¥Ò)ç±–æàª8ø9²í<_Í~¹º8~¤#nitœ²g™ž1/þ`&ÓÌ1ÌD ‹$±½.Û¥mŽ‹žÍ„QÑÇ®™ŽNÝ5‰þÅÆàpå@R<>TÄÒ-­çBnšú:¿^Yš²MS7@VÄP!rNÃym¿ ”Íļ´UG³Ä…ÓMcWyWÖþA…-¶s[Ðì—¦^O¤µë|µÂo…ïœÁV™$¡okóõfecÚ+Œ÷JÆ“ýV]ÚvÞ² l«Èâ,=ësÏ¡G*6¶= b€ۜ°ˆÃæh)üËI9~9«L÷üˮ۴'ÇÇËb/󪀪lw,”bÇ<áÚ8ãLÆ„ÎxÈéU½²eÛâó¹Ž.P½,‹ÞÇžpHã¶Y•Õb@0f<„ÑÑ+§À/vŽºciÔ–Ø–¸¿Ô Ýå|YwõºÞ¶ÄTä]îןWÄóÖ?⬮7;³ßû‰qa¢˜¼µÅ¶Ó7¾ˆCº?àSXÎy”¯de…àTÚ}Ϋ¢ñsžБ±XëAWå wÿº®¿’V 6G2£´¹»™q`¤™ö¶ iË–Àj¢¯m—Ïò*_Ýâ\qÜÄRdýóÝæ÷kmáô¥Òh³/”ðýB¦ˆ%‘HRnl1È3jº'?ZÔÙoÀÂÆ°¨n¾ž€¸û¸m[ vä&?å Kw¯ñƒêmU8sÜm5âJy\5Ö®s‡™DE—¸ñ‰„…‹bO<¤ËZÙöë<΢ÜÛ#Džå¯û|dDäïÉ÷$ÌãN "$ìy^µ€²µ{§–xÇp>„u5ÉCÁM^-¶«¼é=[?Ýþ{›7þ¾©ë.ä3övZáÙÜ0‡¼^æ ß \4Q>u0jR4ûWòß’ìü”9ã|ù+Š` ¶!"Í64ç!G“èXêlßÑu×Í☳˜ ®ŽózÝsž¦©0i¢CîF€»§LÝÍ›òú´o"SíŠ<½Œ=LÙz«—iÓÈÆݳúeù(ÿ¦ìÅ]xq—žŸb¼ Ìàƒ£W°íkD•„KìÈs!=ÍPdAZN„Ö6¥mCîÅ ‚`ü;x®r ¦%bYáÝà׫›²Z ™G›¼l È2¯×›¼)[Ø Ö:±HzÍ\à ×Û¦BTáêþé¯ ,º/¤ þ8Ü2¦‚[géðXž=nÒÃMÂ'‹Ô…5‘šÜfRB,5bº“Ø;pMµ1™f#†}ׄ&~Ç5!qpMAßÛlÒÁô?æEY¯jŒÝ‹Û•³8ÂSW2¬UJ1ÃG¾B8ÈHBŒÒ ìÃUvÜÐG,ncx~Ìã”i™ª4è2xëLìÃÓåëU^¸ºÙôuŠ!n23ªW€æ*šÌŒ*ø˜“ôåµH±ÕŽËá]ürm(  à¦(óEU“ŽqŒÎ¤õâÐÈ—uÐWÀ÷Sø@;|±]­lGµ¨<ì:’´Ë&yš…öCt×ÙÃ.Z¦ÇÌ%~‹=¤°ñ 4h³^Ú¤ÒØm'”Zn;¥m§T½-öÝ ÉTô°ß”טm}KAºÊ nni9\ ¾YV8J v£K9d?ïÔ€äqñ+¥O!ñŽ4,»r¨ƒ˜ö …Å$ÛW“lïñâ»*öQ3ÔO‰×bdƒœj |Î÷Äëi’ÇàOÀ(£â”ï»ï †ôز´¹ã–Á»ŽKd!÷k¦ú„±×'ÜùfÜå~ŠJ‚Ñòl?N›ýª ˆ5· v‘˜ uÖÏïÙ«sºwm6°m°^óGãöàÔ¸'n‹ûⶂDô¯Œùθ=qFÄP ›pü–2Ö,»ŠK ™ñ™õ5aÖׄ)ã˜![fêJ½l\¶´l]vEsÎ1L™ˆÇu»Bj…:%N„¹«Ö‰êPäª3 ãÁ2MÃv F~CÆEØ‚ú ‚ç[2Ë\L5I0¨²X©oðíF‚:AdH^Ö=æ¬} s™óe™Q–uZõ©Òu™·ÎÙÂ*×=ž÷FžôétBí`ŸŒù5M”‘nPÉ •EÙÝqa+H°VåùN$VZ¥}ЙëGœùéÞ_w`rtèW©§;ôT}KùŽ]i—V©ô{+0Ág†Á0…R#V÷ô§âBË=HÈ¢ñ:J«½Ù6®‡ySvó¥ç¼˜4Et¶mº²õ´Ÿ\û×Ëú‡Ï¹(qãv˜[ï%_‰ú®ÃØnêªíÛ„ˆ‡–9mç÷ƒéƒvî²ÏûÊu¨XD6tb^ÍTö‰ÊžŒ‹Œ=ÅÓ»ˆœ'ÎÕÃ5˜qk@Æ®BFf ƒ‹™ÑI6Þ~–±ŸQüÉÕåé‡1‹Ï>üEAy§Þ;Óx[.¥k2bOÜUdJ´*Ô=Ç”ºùŽý9±œÑÁÊpü°›KNëMÛÕ•^öô÷e/r'ß=\ÈÂÜD¤Òø36ÇíŠ0 ä§Sþämï˜"\éã© 7CÛ?ÅHƒ¿8«ÉÅ4î ñ(Dj5:Ó}çoÚÛ¶£F6éWÞ”îò[K® ײ‚"óY°!8Ó€ªL*yçL×Ú"î;nh¾Ër¾„„y×6"úû»®‘AZäÊ‚ÑF|FÎrT͇@ ij*å>H»&/±žŠçõ| iuv%Ø@rr&(¼ÈçõµkMCŽáÁçG¨pÃAÁ^ÑΗÝu¾Ý}0 ç†÷MûbPŠiÊj¸¯¹ïÀÍu‰)©Ka4=:5¾Çˆ¥c‰ù RFaFóö–^ÔBwå7®u1îNf¸{¹ ®ïÜ9+s¥ÌÚݲ.‚e ¼_*Ÿîì¾¹ªÑ®…Í3öý]È_›vg'ÁìG žNôµD¾Â&“”†ü ÞR«ÿS·Í›ÎÓNcj÷û~ã½€+õuÿºïðèŒò°%!yqƒzö}]Œ3ẗêLßç§CÕz¯‘‰À*˜îyõÅ’§p¸Aq?g¸þU&vK¼„ÖvYnBÝGqp¢,Õ-©þع <¾|ðló2Ÿ¯ËÕ*÷ç—3/uª‚²ùê–¥;„LQ£ m]9'ôÖ0oµ][ß‹Ça¾Ù4õï;Ëe>`ý¡#®}3 0ïzI¾é÷øä΂“š/kNý:\;¶óPßoÿ!t¨2tñ?ìËì›{Á õ‚uö§{ÁÿÕn+Û¶¶ñÙ1Ê'$Ó½_~“œrÚÄ›½ÄIÎ~@Ì.qDjŸ8â=\¸ññÿV"Æ‘Ü«ÙY'Óƒ9íùéõvÕ•³ESo7´…Å#† ;Î +HÌ7d–鹇ÀÇ-E9iœ%ÁºÊicË,9Ÿ1%dÌÃgÓ  æ… I ÂÿA¨^áÉÐFÑ (1i’BªH¦•¦èûˆ¢oçR|ºÕ"!Є+Ðù»zÀ; ?V÷,þÏ—#Ã5ú)†›Mô˜hÒ£–ÁL—=®H‰/aErŽ‘}Ïk_æÃñ $ÐC.%¤ÿa“È\ã‹zYµ”Æïq¾ôW_—¤ƒÒ9$ͺЂ2Q¢K‚–H^í**Jß&j¿íÐulÊ8¾.«Ü5 ábE°`ÜÔ‹Áì>‹¡Þþÿçò'a‚gãS.è§I<|RÆ-¹x,›B±ŸÎÏÎQ0g&11Ô)3Ò×s}³¿âONNÏ_Î>_Fþ&}99û<ù-d}uõì?Þ7RR endstream endobj 1745 0 obj << /Length 3392 /Filter /FlateDecode >> stream xÚ¥ZÛrÛ8}ÏWøÉEUE0®¼d·vËv.ãL3n`£`Td’Âíå 2%ÒDdˆ1YÄ †–g¼PãEAMé ÆÁ)Áa axäEøwðÅÉQȾ¼àÚ/íÕ¼m¼ìÒ)é­7A ÄàM´6Éi»¼©›º¹#õ]$áBÞY0 ÎöÔ„î®c\¹9>×Ãœ:;;A-L|0j90àMÝ̇ð¯¦w]»^y…™íë»& Gp“L+ñ¸ÿr“œÛaÞÎú˜ù%øô'<•á/”E¦¹²]I»à!$dÜM¥àsò§Üø9-òâ ˘‘‰9)./ÍÓˆ~+?–w“økRâk¥9 Êß\´ëEÝøÆež[ð4]o©#ƒ€4lÝÀúÎ|s#ÕÜýù ö²o¾ òwå]Ý ³)Â7ÕÉ•mjðVš'^~̨ãœÅ@DXÆcY‰í:¢QÎïàõºìê½í Úί*€†‡ê8ðI#‹ÊŸÐ9· çžËîÞ«¬V €²~4H%7—õ¾mfÑàjœdí mE}ôy)i¸ýͽ¤÷yNà=ŸüÛÅ‚%L›â©»yŸt ïÆ[¡•²‘?oáïHr-¦Rð/LHÅ‹h¬Ms¦aKìc-<Œ@¿µ7 ë…/E*¶UÈÄß3ß¹$Œ:Ò«Uùçµ¾ã2tü>IÁ5Ùj>Ü”k»Á*\hv¯vHOäÇþñçþJ–*@Üöq ê]KL¡G§¬æ4ÆêrV/î©Q/W »‡YÂÇ“hé`F÷Ž àc¾w´]4…iš¸_Ľb‡€ïéÞ;÷Ý·@Q»bo¾¬ûÞÅt»ÍOîvíȸCÊÑ6Àh´p†wvÀ ‰¹òT2.²§\ù&ÖËt6 w|¹TÒÑ­Ì—ã° Ë„ZÇÀ/5ä$°ïí3pÿÎÌúL$oüÕg yU¦’³åªkq·|ÂyQ±j›À ÄV–$uëIžrÑ“ˆP7„¸™Õž"tÛ7vølmãuÓ.kçT¡OŽs€¶ó^MySö Å몬» ›•CGHÁ²MÒ¶!}à!ÜÏêªnldsÀ@!÷‰ÈöÉ%©r!_¦†Çp’ ¦„|4æsy„Ó^žáÄ‚Ù”K“K ¡\n!²RþøâÅñÙËéÕÙyaô?ãìôýßäô4 ²!™*~é‘ôÆ]e ’©Yšå@$wá„Jà„ã)Éõ“`”¹@)?%/™ Ü"8¸õƒ)OÁyÙ4Q”ý1¯‡†3˜#×»ðT1¾À¾²¨W"3Ȳ丿_®†ÔH¾ôáÁï4Ðü¾µsc1ŒJ4Ëb ÅI\œ‡YiúT,7ÀZ7¡Zš}@ªF!nS DIY>^E“©t%wyðÐíë%W÷pü›Lúýâ£# ZæÉó7X0)TòºnB×["¼úKF]~/6˜© Ùuv¸*ƒ?Y‰ÚHB¤1ê‰Ô§x¤ÊQ˜ãQ3¥à¬Òm•#ß«ÊÒüja(}Hu<U9Ä<ùt ú°Ú‘c"aÌ“ih0ŽâœŒƒ7Èvò"¹–0xÑ[—oò-ç*¸· qIË"ùWsSÓ®FŸ`ºj¶‰+Û eí…ÕÖ¨A@.}OUûéãô¶È–J7 E8zŒÇ=©ŒXø¸\ÄwgÿF  XþçØaݲøÎN•Ñüž &ðŽ?D»¥ÐGe»ì XdO³hDÚmXFßµý…-»Þ•$xÜ_åhdÕMmK¥K<¨LcTíêI<´”Nµ@Áܶ.Ó‚{g}¸~“‹ù§ü~væ_á}ó`š]ŒÄ ]XŠBþ3/»²‚ÕSiÚ:þ\—ÍP£éÙÈ™dc…$dØQ>’&²õ.æõ¢íÛÕÜû=1&é\ÐizxºwNÐC¯%CPÉe{F]µíá~£è6ú¸w’‘«¶«]½îc9gÊèýë²…yÒc…ôQ ô5RÅÔ>^‹-ò£5C`1Ø×2ŠQðZ¬þw0jr¨ÉF‹€QÅ 3ÐUÒ¥!ƃt›4A•2HV'ËP'ÁØÁ¨-ÞNëùËŒ46x£Îãç1p¹Z"w-Fƒ@zòœ®î½àú 5'Ͷq‰ i#ÀÍÊvæƒX&v*~TN·'¢\$'$s|éKeíÌ+á"qC[—p/¾«Ÿ·Ž<¹wÂ&­’Dw;;(º‘"6}=øŒ®ö̽³°¾³ÀþoéÙðb%},LÜ•3ëó…[ºG7dÊY±-ùžÔ-X·«?–±z‡f2S{çûÕþŽvs"uћNjˆÕãÅ¿Bݸ/8ʘ˜J%UÀÖr%Fã²\1÷U„¹{ª#‹"Ý©]P-Y`m¹»ÿè$™«Z (¨ÓvÊ3¿d!’W_Ê°9P#lªêo¢RÇ-:gõÔ$ÑpÍ%÷ctš°;á«ÙšŠq›“)?p²GC¶2`3³¿”ûkµ²5…ì´ø¡­phÁ³½ÈÐ6˜1~.•A¢1vˆ—í0_–/R9‡Ìøm¨“½éÀe-Àçøö¦€vHŠïJ H®'™Nüøw£ú÷”.B«ñÜuSòlg¶kh»ªgvYoë9‘¤§`¹.F‹Š•#7zÆv*fdÁ, Ê–/ ÓºxëÕªnªvÈ.`a®^,êréCäᨘn¿-<ï,镦þ¶§T‘œ2ƒ¹ŠÉk½3ëeañ°Ãý6'ºR%/Ûµ+ÙawÙU=¦®1tÀÀý-©I •V«®]a5Û+úc>1®éE·V÷bøKB3 òýí!žN`ÅÃœ#÷ _`ì,€Ë´0{³a¡öaÃfgk¥Ú¥C©ÎðжÖÿº~Éð.º¥2Mgühÿ´Ø Óˆ7EòÆ!<ìU5§²t÷5®pZv+‹Å‘N·'ñæ`½Iµ@tæ¡î÷[ 2:ß=Ÿ¸Úv—³™¿™V&B'÷üÆû;’#áÆ+àhÎúŸ4ÅõÜŽB³·ýˆ*ý¦è§eO}%5·Å92 ¡³å€5iÏ©3Wü@ùƒJ4Š¨ÎŒJ°ˆ-É* ¼# jBîÆj,8ŽÒu<¢%µ‘_x¤ð¢p׋½cƒÌ÷‰ »Î¤‹ ™ú c}EñPnÇTàêƒÒ¢©æöëôÜVås"Ä?¸9/» 7Óó :£Á5ìWßû²T©²ÓyYOT0¤í+Èw|·û„Pµá”É« ¦þ§ +a`¤ 8ˆHgu´°WÍÛ¡]Òï" \0£•ß'½¡09“©ùù3ãýyc¾oÔ;¬QëÜeSiöÝs†bß3㳜KÓyôÌX¤ÌÈh‰ø2 °äË€Õ€õ!ׯØ™÷þ'OØýKè>&Î9½çTÎ|¯ãÆû<Ô:¤v̳Òèßùn¹Ü¥¸íºw©h,ë~gb”¦ßûB¿^ î´™^O@sMïêÊÐ=ó!çÙxNìØ„ð+j_óÕúÛ8³y¾ÕÂOñÔJÔ#®U¶ò?Éäò/dþWI2Ä!‡ñ\ýl$W„íÍÏöÂõÕõ³ÿxµÌ endstream endobj 1762 0 obj << /Length 3065 /Filter /FlateDecode >> stream xÚ¥YÛ’Û6}÷WÌSŠª )\ 2o¶c;—õÆ5žÍÖîf(1–H-I=ùúíFƒ© òÄ©©âÒ¸utŸ†ØÍý »yóìÅݳõë”ßäIžŠôæn{ÃK¤Jo çI*ó›»êæ?‘íËb_®þ{÷Ãúµ63i™§‰És˜ËÉq&QèóÓßÄÒdN I{o›ºíVŠE_¯b¥Tô®8‹ ' £÷nâ4ú…i&ྚŒÑÑ­] =Ô}=ÔÍ=MT4,Îôéõ©oØY*ìPÄxL8b Zʵ¦cM±ìë~K-£v‹_=à2EWCÝ6߬b 3ßá\(´oïIªlíaL”µm†+“PS‡å„l’ê™M„Ê¥Ìh“[ÛÛ¢[I•x¨Müþ±ùÍŠè­vmÕ,̹‚r6ÎöµIg"i"ô$Ày`’ÜÙÞK -ÂÍ…ÉiéR—ZË_„Hujü¥œÍ§œpBÝnŽý7ëuÕÖIÛݯ9KÅbýk×®„ ì(öSÄ\'Ưù¾=NP ¯ïüªè•ÿâÆyΕ‘,üÔP—Ž]»)6{_³]8wE´äBrSǽ‹î½(!®³}ïLŒmÛqð4¨l»Îî= ¨á7!D\àôE݆»úCPŒR‰0êš¹?ßø§˜[¬%<šE2Sh[™³mSÃ\µm.×w¬ŠX&0cÈÆ\¨„q½4ò`«CѸ­äàpð›E·‰oxyêÀ`ÐëUÆ¢±çÕ~ÓžºÆúê·—#D3€õì~g냟ṓ2à‡|ÃWTѵí‡]Ñ ¾ù­—{îg%Åù5é®è5·cá& –EuƒÁ¢vÿ༗`p÷»¶ïãAö€ÿlGâ"°·$²Ü{œR]:\ÂÀºïO¶ú ®ŠÞRß7ƒíM›E? JPiãdî@Ç«c]ÙC +¡³¾ ù-}ž=ÄXæ\XªC= ‘é ÜH€„¯ "Ò$ŒåŸCdý«]WG©tŠ&Mr#H¼Ctƒ”2$ü¦tÔFGŸ=N½\xßØᣵ (¨­ªû²³ƒ¥š‹j®@BeÛÆOí©§æ)¸€ßú†Vy×ÖÍoêÉC˜÷=A âv‚aI–‰QuÏ@,Ês栀߷8·œÇ![ÞPë¡!Ž¤H”×ý“f“­…þ4ˆ9&ïÄD”2yRŒ<:Mdz ‚«uÑú5çÆ‘d,À7q•-ñóŠs守¿+Š‘!U@1 !E摃¦¢ 7½âØ£Á<·v¬÷õðH¢÷¶±]±¯™‡JMôêÓqßvÎ- Ìdú¦DF"rô®ç`‹þÔÙQèð± ûŠm[[•@¯z€ â¶ÞÍw†}…óFÔÙ§ª;® \ïIÙ¯ªSyv/Ƴ5œã]ÿHÜft(Þ}Ì[w d?t”¢28¿ñt"²‰àèì)ˆâ#¢2¥ˆ' v@¾T e©È¬LkƸä)ЖŒé *ó{a˜ 2i–{&½BŠ>Æ›‘§Ðó²m@ádPi ÑÞs¬ÁQ+ÐuKŸõ°£ÇWÆAŽÅ`ë±(§Û©%,«Î:^œ¼qE/·P×ä0œÑÁ¡¿o·ÃGâ¼6  cuö知82}J@™Žb®¢…¸æ?²Tšõ¯}Ÿ<0™&5 ²W‘Jé%³ù—ó§½sBDo\Ä0Ñ?ü×ÓWám¬2áè+v‘½ÞzÊ\«K>˜ñ®€€Õ¢ïÛrÊD`ÐÜT.ÿj½èübƒ\ä4„ï8$xä°áÙÜð$·Œ:ŽƒÂoÛÇÉö¿ðâ!H1`.-ø“`ôŸeÚä.–ÀæC±x…J¯`A€ÖÀòi™L4ç!ô§-ÂÀp¢žXxg‡ÖoǶ¿¹$øcÝûúcÇËv¿¯›þRþ+ŒH@g÷¶¾ß ãÄnÉ„ºe™= cÑ pÔ¹Ù·à*KµjÕÈQ°±Ø E—Ãc[]Et}Z³u™~Wúð&%ðí†:çD÷¡¦Cúž-} ;Pè`éöPÿf+ßáq8±ƒéÉ`ïÀ™êˆùÓÜÖèû’|PU;¡‡¢/Oû¢£¾o[AˆÁR0žóæ)øÔóLLj—‰þEø䌧ëž1)c–ºÇF†‡àÄdÚNìÉô²ÿ®]ò{¿ŸÂÞüçs,ÅŒÍ6¾ñG$ƹF¦”ÄW0§ÊSˆg@œí~o?Œ}ÿE2¥nßû, ÎÂ=y=Æ4_Ýl`[è­bÿw&³éêÓ„±á[‚5ƒ´év×¢?Ãœ c!Ï¡q×vµy DıØ<ÜÖav)°ÑO¬´Uå›ÝS&éRÈèûÃq_öÝôL… Š†MËç€ >ì1ñ:u‡^ËX85óæMÝÝ#•«b(‚ÀT21ÓÎK#çÜŽ †6 |¤û©ú\j7 „ž|ñzÁÃ!³äì‚R)p«¾ 87Š£ È3£ÓÔ„\3$$I.€š °_¼=Sy¾ïÛÅùù IvÓa•Š·ož]ì’#óÍ’4£Y?‡Ålê&‘ùt'Ѧ$ü”¥Ò$3“BúÓဆ¿²–„µ&yIv¦h´WW¤¼ 㬮â©gòô-ÆþD¡—œíC">‰k;.r¹ÜªÒô:¢£í©)Ç× -=~tfî‡2"ßá…BŽÙAp°Mé|96y]¿Î¾ŠÞ$Ç÷ ’€üs–Ÿ€@zñ˜äe‹¨n2y1Ç2Ǭrº)¾ìø=m LU~{þŒ-œÅë`fgD28CÉ—Þ¢Ÿ^gþ„¥Øïm´­l1ôŠR üé¤À™ô™Û‰‘$ÆÕYdïêt:œœp Ën¬Ÿì Ar“ƒý‰tå'UÍÂùZ˜ß¿¥aІ"ðªUþÇ$ÿ:û­ÿîÌ=Ò#i¬­œ%˜¢… ½lÇ“{¶czz›¡w:¢—~|e!H+•üc ÒuÁ%ªÜQGáìüOcn§Hï๯›gÅáˆT©j¿^˜¶}øéÙßdŠPTv [Ÿµŵ—²ýt`çc(lþ$},öÕÕën³Q–9Ág"¨93d&"ètt–Š‡Ç£¥&ChUÖ½žaKàF½_Éég·½Ÿê|‡h=ZÚ ŒíŽ†Ü¾êž¿ÖýÅëWÙýP\Ó¤¬Šó¥ÞRîô–..4ºýãr©DTm7=*•ès«‚AÜ{aŸµ§nÁØJÊéw¶ö[˜´ääGø‹ç·}ÒÒz žz8L¤ŠY úóšUþwò‡ñgò+™Y4i•Sèáj®UîCG§p<Üß^sx jJmÜ×[ðËÕØ}VdÈKpbö_ý>«Qø©…èÉK²Ïk …FmáH÷,&Ù\[4ÿ쇔›ÿ4ëÑé÷½Ð ûÕö¯(ëP$§¦¾JÍRH»ø—Ò@uþq×:<\] Nv²ñY±…KFEÔÆàSmvvÀþ×ËaW T*) ASñ“"; Xÿƒ&@äê¦Ð•]Çl&Ç]L®ÅÙ"Ó@Ïó¥§À¸<Å´ÉA8Ëbäª&ç1óAz !Ð<Ïõ£n ¨'AÖÿêîÙÿQi endstream endobj 1768 0 obj << /Length 1548 /Filter /FlateDecode >> stream xÚ½]Û6ìý~Ep+¶+¨’åÏëòÐm¡ØCwÀÚ>(Ž’hçØ%§½þú‰úˆl_’eÝv÷p"iŠ¤HJ$ƒ'ë ž¼»z}wõâm’M T¤Q:¹[MƈÆé$#¥´˜Ü-'oŽŸ¾ûõÅÛ”ôXiž¡'Zaâ²dU |W؉Çú?Fù¤Ô‚Þi”öÄÌhZ9³(ÓDj¥µ[†¶›´‘¥Qò<÷Ú§Žõ…1*òÈï=;®šsš¨Ö”E³(Á7¬^^®1"Z@ÞW¹®¶Ûs*ãHGø«¦µZ·Í’Wü„q¤”¨×]uu©DSK‹ª Sb÷Ï ¾á“b+*椉z×)‰lh“´’¤¨ …‰INkÆ›¯l»«¸Åøøj\k‰ilò*×BsDhjeýðþ=ZçL»¹Ðz¼üç³ã›%SÌB«¶ÙZHm¸¶\±«Yõ …´¤Åƒ]i*±ê›Å¸²+«>á“¢ˆõJ,¥©GÂùj%JV:yÍÊ›I0*’±™¯yg=+KQ;b,s×ò=¯!Щ–¡[ð¶ìªæp}n´(×¥î:>uÜå®bÊé­šµZ!ïÄ´NÜ»­i[.wM½4™ $ IsÀö¬¬.m1Ìrý¿þðázꔊ¹Ú5Òa Õ|í°RÌËðm©±ð 2bî|`ÂwÂ’sî‘ÝN‹ç>:ÞnsQm.\¬UüèÈRuËgƃùnï ­“{_7_ênqäönØž3û`«ZΖ.õœ×£¨.CÞ.:5J²èkä(lQqØ®Vrd`ݨž¥/-üE¨ÍYÛZ¾«XÉço_½ÿýÍt¤û¤Wö¬ê¸¹9xÞxö”yNãòØ Ô‘þHnI4%ø–ÏÃüûíÕ‰äøHè4¾Í.e?™ìq^˜Ý°žLö¸è';°†d,$;`!Ù æ’Ý¡ßoò‹ªê¤jÃR¬V¼åúVû|S_ åL]ÉH¿ $Š£Â×µŸ,Ë PÄ(ΩgÝBruDP”¢¼8+Ç@žÁUë±5ºß ôbcD]VÝ’D ¢9½ÜšvÝm9\'ð².Å Jâhƒÿýå›ú‡ <<'·é©lx*Kœ{Ǧ˜ Ìþ&áùx– ¯Ü^Spí÷¦ÕUÖ¥edµÃ•j…éXM—p~ª] )6š—ÊÂR|ãŽ*•Øꤔ‡ªf͵°(Ø+Ð߬ù4ŠUN™dÆB¡›ì€ ¯Ã´$ úð¹Üè°>ÛìxëMEvî0¹÷èÉ =É3Ý»–jã}QëvhËÂLP²05Ô¾"Ûµ“|9së1ÓUùòå¨Ëâ_·ú# ;0éP¸n·jŽv:–BdjÀ³½8ó=Í€X6õž·jpª–¯CÓÞŸ Íå0¾m|Ÿzô‹Q'?‡á§“×æ4‹?!ÙlWAô“\Ði g’~¨ ƒñ{±“ÜeÆvùCT²éM!ÆæUrA¼ #B†ª—®äÔÔ’MÔŠ×R¨‡ÇÊ}ø©OŸ#ܯñhõ|é°VëüI‹üh­~ô;Ù›»«¿7Xz endstream endobj 1774 0 obj << /Length 1381 /Filter /FlateDecode >> stream xÚÝWKsÛ6¾ëWp܃©ƃÉNu°»ãL2ÆÊ)É&! 5%º$e×ÿ¾‹_2cÇ^kÆX` öõí{k{¿ÏΗ³ÓKA¼%‚ o¹òƈ…‹A‚%Þ2÷>û_0¦MݤM=ÿº|wzÉ£Á–% œgd æZh†Ý'N/ób¡–Xñ€F°È즼¢ù¯8$Ê{uûDm­ì´Ã‡›D½]ÞåÒbÀ+4ÿ9€öLß.¨£²²ª@bqyöþúâ' €ói;´š‚­ÆÇ!ОUº¶¬÷[¹;(ð¯Z{ƒaT "V ­†©+ùnŸ¥WvüV͉b½_Qr¾¥D@ S€FF°¾3 XïûÕ(M/´”4LümYIK™n¹‘y»žËÂ’}™5Rà»]»[ÇÚSµI F:½‡?póðŽa‚bÂÚ 'ÓuÑæré‡íyboª‹§§B7‡ÝEÏ_q¬zÞU,1>ö•F¹ïw  Ѐ¹æ‹ ¿¾“™Z=ÚŇ d¾¬œ„éÂ@¤2 Úz_¤ŽcSè›JeÖË°>nÕìÚÊõ|îk›r_8Μ¢}mNÃÔÞ3˜&U;·fî‹&¼ìZ=ì¯e›>`¨Q œÌõצIÝìJ_7ÝÛÚ̉ï¾Ú} ÀV7°L|w0$êðæŠÀªû£­&@é0PH¢©H„àŽhܺhùñÓÅT°Pk…Ôjêèï»çgF‡ÏT8¨z0Ê×í»t…Ùƒj6ßx´Ë+[%G:§€HD‹¤¼©Œ!‰¤ÓÞ©‰“À[Y<GJ©CõAÕòåäqy0ÊÛïOœÔˆsx‹ÁÂNu”ê±Ë#³¸qÜ; àØ<¶“Êi•‚õ`Ê9 t ñ—í–¼J» £g l"Š€ÝÞJþ„åÆeÕ@‘9SÕýEu(à…ÈŽ,l ‘ƒ ¨K€“È=ieû:Š½jíµäÇ'Ö8¢#=Ø>gxðP(×b}ûvu¨\õ uM$HDlìp× ý¼Œ‹F0öx “/µ„AŒàel«ÜÀ­Ö šQ:w5“~NÞâœg^¶Y¿ÇAètÞ8 ÞÓ2G“]ÍÅrö/¼¥œ endstream endobj 1801 0 obj << /Length 1882 /Filter /FlateDecode >> stream xÚ¥ËnÛFð …Zkîò]ÄEã )$=8FzhzX‘+‰ E \JJ.ýöÎì,)’¦]Å…sö1ïçÊ­gîì·‹Ûû‹ë·A4KXŠpv¿šq×ežÎ"ÎYè%³ûlö—ÃÝpþ÷ý»ë·!ï]õâ€E‚!sé³ëŠF7²Ñx÷µ,€~ØCZ´X Á¦G¸Ÿæ‰pd±WÔ‰ˆñlÁc AÈoç!s“slÍ;‚ÖïA釖`é8˜<_¢Š¾S-¿¨´±ðŠ¾i²Nð‹ó ,¡Kbxù˜oùˆã®®P“CžååšYOúxÒŸðäPÒŽÚ¸Š‡ ó¢pè+r¼u˜lZGÈfä!ßžÎÓJ­ -ÍUÙ  åûAO…ŒwÈEàIad¤O¹ß*0-ºÐ£%åÆ@‘´ªÁ »ª$kãV?ú™ kÞ#â³”ð;¯BnL(€!™„íL¤I:±×YãvšŽÏßï[Âjªš`IŸ“Uüh`8³Vˆ¬ÀØ*°EÀBéQª,ÎUŸmd+nP…2Æ HÇdwV†X8ý ÝkEÌLQ€#6LLk‚MI"Äb¿-ín­v@ÂÒé!ƒa–ÆV°‰Ù‚{;‰Â6ª¶èyyBj£eIö^ñ°Ÿð¤ç²èT€²Õ„# têW˜Ø&¨Ël°Ö¥l+*øYâƒÎÄ,Œ"hl!K<+öUó¬žöiÎ9wdM¹¹ Âj .ûjZƒ%¶ì К(¡¦Øš]‘œœ"0÷Ofð|ºÍ@ð’.̽™ÇBncGL˜Ó B¬w«•©“VÛëmþ Xe ª\+¨îº'¬n¥…ÉʬL”’Éàų-FànÔv@è.Çë­dû2 ƒªæ³8LA`ÆK\æ‹`˜1²FÛ†_’„Ø’5mÊ,˱QÊ‚öMHϹÓF5lƒÀUrl¤²H÷…D4:1ùпac¶n;ˆ"”S†]F8¯ ]áq$ZÜÈXÒš|Dmãé{º'é‡@§ŸÙµ§ýÅ5*ƒ_jtˆÕW7L+ìß° @·D ¦ÙŽˆ‚[JÇM í5”‰’p÷æÃûA£lg–qbbrõ“òÕpöͦª»úœýsCQ(Vë9ú¶¯}š‡®“«tÓ,å^ÕOV¬jtÜÕ£—ÇÃòW0·„Ñmó ŽB¬ª×¿Lu$á³hu-ɈÏ"“(˜/|˜/ÐÊâ®mnšf§¾¾>¬å<_à|xbÿT.ñÈñA2M:ÀK"C /DÖ}jöá1¸u=4m‚ü³¡³‰pöã®ÇVVåF×Ü…©3ô¢ë/Z³ƒë…,w½Él óƒ`˜²UÛ™¡êMÆÊyÝbAgö‹h”hç°´Äï÷¥íæ)6ãwÑóùìTS=©Ðè=ô|Nëb»ýN0£òv ?¥à,<Å¢±âáIŽ‚‰ÎYôö’îA«iif[/¡±ƒÀnÁÛ-Úq“›§³ïö¯j“‘ ÊYÁ=æFÁ°/A¶êÑ`™—@uÛv}|Õ9ôÕÜ>§Ri·—íË[á·¦–øeçÛË>ŸdYä“Q‡#\<4Øé•×Úmø;AJÅ“ã÷0îÕ¨§Åά'[‚΃Žðæ›ÜîŠGzÁÃÞšÇ@0ô»Ì†.#lá|ñâv2·›Q-áO@ë¯By5ÁÆcmø&Â-Òu«ƒÎu7š¸Öð¾åñÖË}•F9°˜n•ÔûZÝ\ÞÝ]^Y¦ùM³«´]-aUªµ]¥ùMz:Ë`u:Ã‡ß ücËtÝ ².F%tåxdÉa·ãî~¨Éªó¡½(ý÷Üò>ä#!ìºâ¦Ên.?¼¿üO‘ày`ž$2 µ\cŸ¥†‡fçApW³ÏÔÈa»ý²€6IñŠß´IºÓ#ήjýˆÎâL%yCŸZA‹Öñ?„øÿ†Â§ŸÕq±Ê- ÝΓ괿vÚ_³¸e‹Z>àøÙ_ºlVO’§ßÛZâ}ŠÞÚoî/þ^%·Ü endstream endobj 1816 0 obj << /Length 1424 /Filter /FlateDecode >> stream xÚWK“ÚF¾ó+TöÁRÕ2ÌS£I%©ì:Þ”]©ü€1mÛ|ŽêM}œ¾™Ü Ù±a*FR)ðh´ –Zi„Ý&“[Æ‚´c®µÇL&F}Ì`‘Rkôüùóh,0çù¾HË,o´°Œ”pñ/?`ë¼!ð$èÑ®%Hy²ëõë—WG)sbZέpóú¥öéz7|20ó‡rÖ§û~[Û‰YU×yÖþ4½{ûêknÎn7z5}0Â9¦TÄñ$È6£÷q0‡wà1•£¹ 8$]rò:¸ý}ÌàéÓÐ’Ú¡ .æ$}-ˆ1‘ Q H)72½Ëè ‚\m¤e⡤±âÆ´—€w‘¢¦Ô¾§Â¯}¹Š¾JE»º°¾Ñ%$ù£j¿ëxÓ•7ƒJ‚zxñn€PHPæqÝÖù¼8Ï'&!ÏG6,ŽÍŽa±5••¶u¥ÑÙsÝÌaÓÂNë¹}Ÿ×uU7Ϊt‹YUjÀæ9ÌzkT”m^;Øœ¶é Z0 kádmrr0ÐÚ)ïWðMÞhò'<\ežê&"Ü•³"mL¶î±€à»  þæ÷·5¦ÊE»Jèï3på—sorÌ?üëõwP›=lfÆE½¥0–ÿ‚9|¡­~(š+D'""Už{ @ˆÅ&µ›+=€Ê¶.fÅáÎ¥\ñwÍjðTm´L:{F$lìZfZ(ÎœA5kSˆÜmcŠàböAú »Æl½Ûžã¥(!Âk›\®¿Øí°TÃÒ$ŸÁ0ÄÐbzX}«á1 ·ÙmxhWCMs”0Ú9q¤“q©úîV§Ó6 Òé$,+׊‹2â¦O@ë}Q.íûM5ÏëMse\ƒ!g/pϪZº^[ê±l‹,]wo']ÒÀߣÃêÔÇ\û@ p³|Û^Ôé®#¡Y¹ªjÓæxñ}bãû'J4n‹e‡¶Øég ÇɳU;Kw~hèm¯Lºc:<ìg¿Àµ$j¡¡é„¡ª^þ<@ãO°c½²ÇGÒp_—€—@ïž²jÛmóÃdr8ßY_.ÂÎöç „pGÔ#Bž&€)i*©—…»|‘›ašû¶§&àkà2–c©y‹"ýµhÀ§˜`{ºq o^Vå|½V'I©/ƒé8-Óõ—ÆÌ°*JûêÎ>ì°Õ/ìpFv:Àê6Í gýü ,s‡Cïc…Áx’x¸Þh¶W»ºÔå¡=ßmqz=¶ß·i[4bº¯íf “a>@Ý°ê1ä$-=*°xÀ‡–X·ÿ1 â•ÝŸ| 4†/¶¡Ë0EÓS–Í«Bj_{$‰™œ|j´ÇðaU`6˜øûüîˆ endstream endobj 1704 0 obj << /Type /ObjStm /N 100 /First 983 /Length 2089 /Filter /FlateDecode >> stream xÚíZÝo7×_ÁÇöá¸ü˜!‡£€›"wZ Hr@{F[q|µµ†,;é¿¡´²dYÎZ^õ©qfw‡œg†óAÊgç3>»`ˆõÿhŠ7>1>f}!&¤¢›Xê›d˜tŒw&IÐ7Ùä Ÿ|2"4AÆ;Ì yJJa~¯“ç€Ç˜tŠ€?¬rP©¬“L)®òa‚Ra2Á-ÆOà¡€Rœ9:"‘RT©3³ UnÅQßaA!…:BW•_ÄÌÙ뱦 -S0¡]G„ŒR—é£Ëõk2•Š&†:6yãbl6‘”˜˜’®ˆŠ‰â=;(‘{CN2ªAçãhYQ1¢¢³0J='C9©6ÀBÅ黾…† N*UCÉ>ÔY@…äT†ŽEù¸æ¨_±,NYGdgXm‡w°mNjS(‡¥®,\D'ˆ&yµXÎ J¡Àò)x?ò®PÕ~P«„Œ¯‘êªÊÏà#R©÷!ÑâMZ`‚;Á t„@&TŠ@eÈȱÙב«¦0AWG@†p¥z\!ª¨0s)Q]˙콎…ºàE:¢kÈ t¤ÖÀŸ¬NŠ $Öwpp·˜9ñQ- ”ëÌÁ©Ë‚Á@‘vÕ¥Áâ‚$U†@’tÁ>“$UF1¢.íC$Õ±xWðï6(Õ¯Þ8,ìB¦º¿ƒIà]ett4j~2'ØÆ»û­i~ûý¿¦á»ØKV…Oo//?Œ~øáqfìÞÊJ´°\On–hunp¿n§sstdš×pb¿ö[†¡’ÅŒOØ‹QÛ.i’7ZQûw\º°ô‚š_gíé»ÉÜœ˜æן^›æýäëܬ0¼ÿóz‚ãóɨy<“éüFW]èy;¹iog§“›E0«ï~™œ]Œl¿šÇ7ð’4ža´Æ3¿`<žN[Ìv²ˆ‘Š§ÆH%ȯœ£æÝíÇy}þùbúǨù±MfUŠûÐü»yÓ¼:ñõAbI1‘,ž™,¤"FÀ‚Ðvbë<í¸ê÷iþÕ¾o ìóÝÛOS{6žÛít2ŸçÝ÷ª¦AáxX;aÿQHð‘«Ë?‰g|ÙN€&®£QwÒ<ÓËSï½iÃ6\kÛ6œf§k!ƒ¹ÕˆÕÄÐwÆ~‘›ù¼ífž÷w3O‡ð®à̈d½M‚·,O›óÓl<ý#8'[öôé¹öì6ì¹fMnÚ,7µÒïÁBÂ#¶ /°mp˲DYë¡%;bPû#Ú‚‚#’X­ÀbVPŠD.–Ónû_Ï.¦s;¹9_ž\ÄY­Ç:4ä³zá7ÑÜÜ^]g'9+(c«ŠG•(í(ÛäÒNè©hIŠMVv⟟Ï&çãùä[ˆƒ€rÃø{•P°AKz'–áë¨;­g­ó‹¥¬ùh¹ªº¨æøè¨JhŽOçí´y×üçíý÷ÝçùüúæŸMóåËÕ×øS;ûÇõ¬ý¤ØvvþýƒRÿbfƒyUž¨OÁvý¸CFšÍ}¹= üõeÉjˆˆÓvDŠô¼ˆ´¾ÚÈÏPû:ó} ÉH,{T…kÚx÷×”¶·žÈ?¢§²¿žÈ WÁìªtZ9o¯œâ VNÃåúî<…í•'×s剷²5åeJ&鈲$¸KäÜ%rî9w‰œ©#ºÆm¼&ä O–ôH1*èaD`½üÅ™Ý'Ô•È +4E,¡‘ÿšCeö¥rBѤ8(0<ºÿè´ÐØ ç´ÞÙð5 $;[|€Po‹ûŽOw“éíÕðXР¡Cg—4A¾‹OCù2¾<‡‹#¬’(1“ÕwJyÉÙär> a¥¬ö—dsÙÝ|ßÄY=*/|Nëd·>f‡AœÕCL„I¯Î"»U1»ÛÛéÅ€0°S4Ð.qXJ/Ww[jòϨoÖ™»úF[`8P–ßyh±”G’`Ú? r—¹K‚\Å:CÖsm*ñ e¥·òÓæþ†¹¼uŒN¬žF¯Ž¢ð:ùÝ×(ãi{7V0KýGï’gƒùÉcéÜÌð$‰=¹5~¡7ïË’í‹:&©—îý¸zyˆúÙGïYmç•ëZºÛ;©ùí» ñ´wR·<ÕŸÍ,‰AKxM%¨ ´`põ×;ÁÖœ Û"O°b1Hû…I3è+ŒÎÞêÔˆ¢e"ýÍ›uy7˜—·×fNŸT'éþZ0'+u-(þ÷SÌ÷u'A^Û¬ÿ–>Ôû endstream endobj 1838 0 obj << /Length 1608 /Filter /FlateDecode >> stream xÚÍWKsÛ6¾ëWpìC©i@¸Ó¤‰;íô:N{H2SŠ‚$¶”¨òáGýíÝÅC$e™¶3=tAØèÐqÖçºô Âi?”3VKÜ´TYSï!]0¥aBhÂGooÓÍ®Põ$>5º ñ== GlÎ:==ÎDÁ¥EÖ)¢‚Ó¢\™A•×ÚQ HÖf¬ÃÒÛÊ è¾+·‹|kwÔèÝ~vVyºÍŒ·àÑŒ€­½P „W½œ™§ªÑO6*­ÛJŸ\^ž¼°FóófWÖv6‡ÙV­ì,Ëϳî·̺ßÀJzÿÈ<[ÁÑÔyB–!Ëܺ´ÉoÕb¦–:/öU¹P…ÞäÍÚz5¯Ë¢Ýã 5íBÀ´kçEž¥†ŠøâN¥•]Ó; .«£HUª"UmR„é.·A^»œc—ž›Ç?ÎÏ¡ýuçÃD÷à¹Gwup¢ï€M3Û$\³ÿH fz Ñ8K“·W“¿&T ÝË.—œP/ÛL>~¼ü‡&ïF/Üx®hÌQ´ ïýä—鯕}¨/àRÄ©Çãˆ$,íH ¶Ð$Ô ÍŔµa±;õE~W”M=TÁŸ–)LÑ‘ÂÄ'Ql5ê Ü›*ßiz…ÃâvP#.ö*©•­´rW)-8¶ø%Ã(Džʺõ¡NWêé*õ°ƒÆ<2çÖ–âô˜\¾ª WþªÝ¨m3®™xq;V‡€M2 =ȃÂRD#ó,瀔ØñÒ<³"­kÄÀ´”$á±;í.û‰ uPû8‘AäV2Œ™² '_O©ðÁ^i½0‚…#}kCµªÌº…yÓU"3¯ó¿u ÇÅöœ²mf¦ZR06ƒj ú P…‘(¸ÅÔ@;·èñÒ’ìðºE]l'Y»i ò‘­%èhÐõS¿¿QMšõWä ƒ³s o©åÐìéI/MÎuÈÀ¹Äqîè]í¦ZG¿ä ßBÞ6ÅÝ4¾Å£šµ.ºÉÀ<ßæî/]ršuå€jîv®mqé©¡˜éªe‚ЊŽðX«?bfK)`3Ti0ÉÒZ¡+’»Ô!:'a²'úí‘äBsJ· ¯ÍÑigÎö^0³å9LDG5t£ÜènÇËJ7]Öå§÷¤‘ Ý» 4$í6í©9éÂzñtK‚ðp`g³í~A'’¤§¡ÔUé‘ó¾ÁjÊ1“3&|/„öÞGV¡m ©íí»ríñAƒØñÒŒózßNoŸáuB6røÉ…ê0æ8¬(ëT´üŒ„CZ¿*Um÷¨†F {k„Í #PÁÇټשÌè"óçÊ> stream xÚ­XK“Û6¾Ï¯P%UkªÊ ’©šCâ·Ö×&žIr°} HH¢C‘Z´FùõÛ2GÖ¸ö"âÑh ¿îþ]ltñ¯›Ÿnn_ ¶HH"|±xØ,¥„b1FOùâ½·©Ù*’uû®$Í>]~|xsû:ŒFëx"H”$ U¯`4A¡j7i1’^9ñ•Á 7‹ÞÉl–,öd•Év²~¤g¼+‹+¿È¥zÇ¢}¹\ùAäÝÝÞ?ÌçU™6-õ¤xKÌÄRŸR_Cœ&Þë% =m7Š„Þ¡¬UûÎÅÞÃ’‡^s*ª­Y®jóm¥´;Û8ânu›^Zåg󪑲%OŽñ䌄`žÅó§¦PE»3‹ÞʼÈÒW’VpKÂЈ¿AꮩŒÔ¹¯(‰‚Щ~i%Æþ H3'À}F ™ p2`Ä)EÛz,ˆ’¾/XSk!ç#1ž—;;¥í··y]ºÙÞ2Jãâv½ÿDà•T9s”ã>>‡FHb,õ ™íÔ:í ® ¦®píŸËÄ÷ÐÍQl=Ϩõ¼€™Wu•w™ÒÞåQäí¥JW)@yj!*õª¢2SïÌçX¨™ÐŽu‹ mÌè!ÍþJ·rÖÏ°m÷~;Në©7ÖÍVnâæ{•BT( óûz£Ži³ä‘'g€Š"ö_ïx1£#Ñù:r;ûÄsî|¨ÉݱàÑí§¶%Ÿ)¤ |æ|àaŸ`ÿÊ`‹%Ž{w°ÿe[Ïò…_JâEƒ]Ó|‡l29â›XÖ³|÷ ‰Y0ÁôºÝ&PÛ½r¹I»R]ÚO$ ñ°Ÿ¶‰åê}Fâ0>ÛyÂíO탴ÒìnØ íAfÅJýÌô! všû ½é*È©º2lwóóÃÍo˜>%ë‹NNÈö7ï?ÒE“oÀžÄ‹£Ý/ˆÿ(À,÷7¿Í8zTÙ¦Þ…[„OØUÖOR•1ì2(+„N6]%ÀÊ_±J˜&æÆÛ1®ýn/ÌÀÖŸd¦ZÌ£ Ø øÏÀFc0I§,H8Ä€0†üS¶YSÐ9ßPs_[¿ÚP¨Í7kdªdoxÏaÀ§Ç£6æÛÎÆ*(Ó¶¡–ÄPwúü®Çò»® €¬ÏM2Ç'~˜q1å“ß[`ë'xä›K òý÷ËUH–¹ùº|À¶6#K£ÉM *lõáöbŽSÇñxv;›è sÿ’ªáq0-0ÆuÉ/ÍiÓªª¡êÈ»‡w¿ÿlÇv2ÍecG°ZA†ÅÑTÓcY슡YÍÓH@ÙF«ä¡½ R:UØÈMYTòŽZټت½ó±ýc‘«ÝìÊÇ2][¡bÚ$gÝÇCÝŽûº;£Q5iÕnúÓ{*m¶NGSÏÖÛ ÖÏ:d;×j‹¿¥mgué@ÙÚèíÎœªT§—.Ö*å‘ÉÇ¡52{écáÄ!ŽÎS*0zwœ0?6xÏÝv{ ]Lœ'&²/ÇKå'ï}§Õ˜>®cHv>dÌWÈ#"~Üß’ëµJ!Ü,—ë ßÕ4Q*&yzÉLÒšFÖz ¾•G$„Þ|…£—£×cYÖ[{‰äÜp8|u5ßœLç¸î’Èؘ Ë:nÀôíˆ>\­òf%O|[›!}~1Ýl—6i¦40úŸÙ¿ú©”˜ ~Ô@ÈØ £¥Ü(« ŸÒ8ÔÛ2o$Ggbjô€«»“õ׎ª<Ý_z3)¿2Öù“Á:w}Àìê¦øÈÙ¤^ìÁâBß„ ­¹ŒG.iâ>ib¨}ˆÚòOÿY!¼oÌDWõWp™ëÿ8è°~3ÜÔ@m+ÝF½€=Íj¶Ä¹'¦=¢å;º÷µõÞ½dÕëÒö>ã»6-;ûgÇuF–Ξ©±FDÞã ˶®–ð X ðX‘?¬%z°„ó¨ÔGÂä&Î[$ôâ3HmÕÿ?ÁS? žTÿÁf*5Àš?¯x2ëu+s*Dá¶îT¦ BÉMá'M\qŽ&¹WÕãF.mfÉ©keþül;}Kh0ïÔûŽ|ÇLÊ 6b°cÔöeÔˆ`G 룆}}gUÏbc(ÇÙ½q¸¬& í⌡]?¦ ãˆU$øÅr#©#Vï¡LÃœfÊ%`²ôï„ã5VqÝé¿1Aéô¸+ÊYö¬ÚÒr®[êâcxBeé(Ã2KÚ©zŸêÿµÊÓ—<ì¾ðNþ¦h»0 endstream endobj 1865 0 obj << /Length 2540 /Filter /FlateDecode >> stream xÚ­YK㸾ϯð-2Э–Hê…EÙEf1ACÒ@»¢–i[YYr$yºg~}ªXEŠR«_ÞÀ‘ŇJU_=m›hóó§ï?Ý}N²M©H7÷ûME¡Té&‹ã0•Åæ~·ù%ˆãhû¯û¿Ü}Nco«T2L³.2›ö]¯‡1¬.§Kö§O|ŠøEöy÷YJïŠ[)sÇ­È€(é¦rœ]p˜¥a‘ ûÖs7ÔcݵÛ[§A·ÇgŒÛ88j?Ý–Oõ@ëc]ýF£SÙÿ6І²Ý­êzø„s×îêö@¤¦|ÐÍno“¨¾ì‰xi‡³®ê_£HèÝ Ð¤ Fx0 lÝ‚äŠ$a¡\ÚŠØI zh„Ûi`8ÂrD#ûMýžwv|IwÒöºv¨ž}ÝŠ$(›‹vç⛋œåw'a’¥Äæ0êóð~¡îeíåô {Ù§ÂÊ(VÆ0pÐÀujñ¯Qñ‚vz¿£ ¼4#­Ú] l‹A©RÁ—C pÛÑÂãQ·Óí+Zp%I•½à¤F–a]Nú1ˆŸÉ.`ifÅ@8]U"Ý–~çÁárÒíøºZDT„ydõÂŒ÷zßÔ­~¿f@!º¯+ü1!§1HÐWï¿Ñ„(‚¦«J‹Ta”iÎØå¯Û8 tÊ-¢ü˜Ó½n+ý¾95§œ>‘ìësE7¨]‘AÄÚU" îÍY ò•0ªÊ–L.ç3Xë`T‡tü ÔãÌ»nGŒŒi+B>r Ѭòœ€b' PéU}'Œ`Áù¹)+=Ìo{<ÖÕqqWÙ¶ÝX²­a·†v22g·)eXg‰TÃÐèb 8wÄáØ]šÑx½ï.íÎ8Ø0ù#X™û#X­‡5à¤"ŒSeE(þúpîø¼Ù€‡Ð’Áu"›£Å *QAI9x¶YŒÈoGO—à ícËTz¾~™Ê<ï ¦­VÇ8¦÷$¤còÊ)Çèì×tFJ–¾’1z¦É´4èª3áÆ3”´«bR"§È FÿOŠx±OŽ”L÷1½Âj\‡‡ðfMµ"LÀpßÒ¬ð5‹¢–`Ï}Y7äd|×}7ÐB¹8¥M`y’§tÙ€´Ñ ×ûî|6î¨F8³ãV8H´Â1X’‘Šùç’¼\dyÏC/ŽDó8½*«8ÉÃ\:‹Y)p5ñRVÉLV0³²òÃu¯Ç<àî@ª¢0+Òy‚óXïÆãû=`wFt](5÷‡ÙÑ©l/eÓ|#j¹ûÏÅX“²†Dz±¡»ñת®¹œLR¢+Ô¢)¾/| ²5ìÆsy… DhâE´d;ïƒàòžèÄ^VžøªF·ó!xz UÞæyû5æùÓÉ ~4[}x Y­G#È+HÆ‚ÃÈhÐGÂä÷H\æ÷h]î„—ÑÃŒ3z‘Gcž–tç¾.G>ÀV‰oENø]èóWäÂéCªÈÙ§¤ªt¡ª”Á”¢ªz­ï&—o¶ÚB€æ&š™µÄÜ×µ²x¹É3`à $ŽöjfA·¼ëÜ¢ÇÀK>mÕy#“¶œ ÿø ®mzø!]{ve¾ÌT "Má7öõOøã˱¤3ûž!Ÿ G¼àkMå îyÕþê u²y3nxè.#­-kWj]vµve 6úaÎIpü ]h ›:ùž›n¼NšáÕ…,üXöeE¡ ¦sÿQ€³#QÌ‘£Ú‰æ0ã½=Â>¤`Ô‚Ý@A‹§‡éà¡Æ5zYË»ër-R*”Êeï;Ë †"™øׄ(‹8„"f ¨¼FŒRÈ)ºâÄ"ÎMz,¤—l › »¾þÞµ£½Ê–¶žÈlòßéœ|A¼+¼6WÅÏ…-!Òêÿ(ëX&PÇ+ˆý¨½ çã(/ææ&ó(Š@ðSò³ãu5¹¨›²ãÜb×}õ¡*Kã›ýõ—°/±½â/Ö…"Š¦FÄ Â‡Ä5s/ÕŠ~ $—º4iG}}8Ž˜…GQ ˆäVÁsëýH#ó‰zg‹tˆˆ&ZÂögݰȺ©"žOxOÍ7\èÈ,Ìód‘€$u¿pxWµ·lTêá‹öWYk’-ZH1& ÏÉDq=¦ü@&¹ÛI@¬à©1Kèa„œ4¥qb[‘0¨Ð¢#q»†ˆö\¨W†XïY2H‘ÁÖ±­¾š¨ÇYÇ.Q'þþ¨ŸÎk{8r[õÇ` šy°E+ˆ~a¾éQÂ4üûÏŸ6¿PWð¹ ¦"8U5Waã38ŠZKœ‚šDºH9¬hË©Ñj3ËðVµ°—òz¼˜¼}ÞjÂŒŸë…É{(Jì0ïŸòI·3ññâ• jJ«”—³™Za7 ·«™™íªU¼Š ÐH&¦æ«ÈH”ZÊC^nƒ·‘»^E†ä¶;n|––­í¶Þ%TÎ}B”†I¼è¥\‡Œ±ìWE}ªc'\0>[­]Šg˜¾Ç[üw°Ö«^kV@dHÔÜ®W4'E(3¨a³tXG/p°v“ ó´xg:•Ga”Éy:Õw×ÉTÄó Tpž,¼N%N¸v‹àMè*"£Ð9ˆy]Ï{ºÕ½)ê¡\º™•‹ñôGpa1¸¹é<¿\AÕt«î¤MÅ)·±¥Gu_¢–M>WÎ'rÞ‡Qotìø[ý–Zmý9¦^j28@öúTÖ­kÑØoYtiF×[2qðÖÍÄQd;ól0ªÑ]Êl_×Ðû²z?’iäq`òƧ3ÌH”¾0Àr«nXàÍÁ)ó`Œ*|iL½…!&R‘°ÿvÄoýSâ«¿ 7>cz¸Æ—Á¶¥`B­ÓM„òÜbB ~@eøÔ7zÌìË{éÔp€ µL/7Ž^úÎCœ•" ~úâ·nÐvƒgG|ù} çêM@gÐðZˆjßNñä9[^A„ÌœMùa‹KìL? ~üF<ãצ1zaäÓ4d- Íÿ^Ø  Nf Yæ¶hýJ`]HâÙŸ¡¦‰óŠæ±Á ¾ãÊ ‡Æ ›oƒa/9/æµ0lò>ÿŸ‹üÑû“ú8*B™Îcñy¨¿_÷Ïh>÷¤\Ý¡Ô'Oê©ÒŒA¯ˆºTy*ßB¬±é<éÔyÏÅÿH“^Á€Ý_AémÁß/Xûüóý§ÿ2 × endstream endobj 1872 0 obj << /Length 2271 /Filter /FlateDecode >> stream xÚÅYK“㸠¾÷¯píI®ŒÙ"õNR©l6™ÔäÚÚíJÙd‰nk#‹ŽDuOï¯@€²äVÏÃ9lõÁ ¾€Àv¸yÜ„›¿Þýéáîþ}*7…(R•n†"ŠÓM&¥H£bóPoþL¯+ªñ4¶¢?•Û?üíþ}’ÍæEE*²¢€UÝ )% Ý…¼‘ÿ½E³Y»(ËÝ´Ê 3¢É•i“¯¶ÊRQäÊïdζ1]ÙnwQª‚êXöeeuŸQ0ؾéiÈúκj/$`š'šÖôÔ4‡«1¸{s*­Äv—ÆYð]ÙÑ@Ù†d÷,êTGÛúŠ$¡#>meèÊÂIˆ«»-—ÛÉT„*¦ùñ¬õ-QQ:׈Š’I#8dzú-éç§0 [óØT~ªá9ÝxÒ}SÁ¸¤Ù…Ü÷Á7ð¤¼|ôf«’àyàÅô‹Z]Ñѹ5öë5V»]9I”ýVæÁ#ܯ³Ôƒ(Áß %®‘€ F 6¾1 òå¿âŒ÷־܄w4ÝâhÝÁM1Áœ•îmÓi–{9sŸ»ÉL*kv?…¡ªuW±LÓ‚žÐž€ypƒ$Í‚»ÝšEÝp]¿»ÒÔaì*¼ëMÛÁ 4ÃdcÊ“Q""%½&¾LÛÔ߬£LDÉ‹ölÅZ¶l>¶ŸAšŠ ‘¦WP;˜Žy ÎÀ@s'”ÅÅ aÈ~/€Òôâ®ÔExà ~l°cÍòm¹×í€jVqPv±%nO=`³®^³Ù;ŒþüÑö%~F`lØìT’…p#Cs ö̬$ýÔ”k¶Jb!£I œpÅPš*ñB`[q& [°ÛØ-aÉìrì™Aé(¤-jœ©àºY,BØrqïqÐõ ±F¼-‡Ë,9\ÿðrÚ›–:Éç²È1`˜nwÉîŽ$­Å œ9XĶjÿ™»Q<ô §Ø·ì­ìö£¾Ig‚-ÿõÑ­¸Ö vÍtBß®‡>xÁÇ]ùï…mÛØVc¸Ê|¸*^C ¹Ÿ|Q~ýºŠs׸qyø M¹\hE( À¡z¼æ°“" zcHÞˆ¯0—ûp”/0—ÿš˜B|…Öàøýk.0Vé|·"¦ÝP]Ÿ?k[6íðÙ]» t7aVýà@ÇŽû` ØÙqâL8`½„g 5‰i©f´•9±Üsc$R™8ûÙtÄÇpð*«CÏ<«Ó´½»šw/W h:Ow8ý êì”pV–ñ¶.ëÏ;7ûDJíËÐÊÝn3cþ¨=·ƒ?‘ozÔ,5x˜˜g™7--$\‚ø$”Pj¢ œ,ÿ-¹Bzk»D HQ³9žõ0Ö +÷á‰Ò¤²óØŸÍÀŽXÏGÉ }cÆáK‘-Á+Tž-¡ýwcõ͸…®e!×?8¼ºÖÅ飙ӳ©Fy:³ Ý‹{¹…ØV…ÁhI¼±$x*_¨±çu:]éa({îv˜ÄëŸÇÁ¾A•¼¾¶F¥{°‘ÿhz¨Ž[‚o­#™¼=‹ç)¾ eÛ"OÏ¢ ×v컆HMØZ2œ~j©I1æVG€Ï5I l!E>5¨ì—mêÈD 1û{à¡–„[ªYuùÅös·"u})5,ù-{ZÙÖ4×Vš6§æ}m_N ä*É%!ÅU 6 ,Ý;»Ä Ô~R:&üþwl,Ïi3úaZì A[0è(dʆ8ÊÆ 3®RÀUŘNæ» '0íB£é%Æì"<â ™]¿]õ¿½.kä-QühÕ‘¬¤€þneàlmÎ0á¹éjÊôM%:˜ btùãF¤ÂŽZg(ÒAð©©ù%‹B$»œ¤Äó­ÓÉ㈒*S®J ìÉƶ¦6Z¤nhÌB|•[€«ó%àþå˜28‡$ͧÏoëv¡¥€æዠɺ¬4Ÿål|Ϥ{­b…UýÁ#;C;ØŠ:ë5‰_t.]ûŠ%̃oÛÁàŠÐ?q¼J…ÈÓÔÇ}.'®c)PŒxÊ ïV–8g‹ˆõÊ*Š!1]ÖqçâÌvµ R"É£ùŠžx^-+¨Š§­Á—µâGŒ/ìâáj18‚ˆ¤¼ ¬žRè½zQñõQâ=G¹Ze´ÙjÀuñ"äÕdQ\˜öžt98äâ„ÔM)àž€‡t¢0d‡Ã.\ Ç1&?]@‹G  "a- ͧáZ{mŸ5¨l“;‰EoÌ.þ‰5 „$D¤éym'â\ÓÚîƒ×v“ÃÅbq À¼žs]rØÇÑqà×­òBDI>Qé¶9­ FEP€§k¨áµ ýjL2…èP"–ñuž8lÕøG#Ôù„³Ñbìc¸°Õ‡+-É0åõÙ ¹D@mB]¥'{9'͌ݎ¢Â`%0ä¢È&5òcà+Ž%âE]j‘NJ ~’ÆS9’_¸ˆîXáåÍ6bÚˆ¿öëBž£[íÉT”%¾þ(\ ïÞëà—à'+ÊLÞo#gžŽ[üÊKÀ~dÚLÄa¶ö%Ø nÐFW’H|÷a A4ôŠú²\ä_ô$XdÑüIמ½ yOPÙå8¤urÉ·–þ­zø–ØE·„>§Õ¹ÐÑôÍ/¦³t5M’œ Ü­ýc`%ƒC.tSŽ@“Ê)®š¢åýb mª€j'þ²GÔôo¨¿›^o?ñd 9/¼Xgß–Ý>»—¿S¯ODNrÙIíä\×5Œ*¤ó´E óíi*øjêÜ¿0n(iþ¹ÍÁGÚƒã)žÔþc›Âtu´ûrô…ÛZ/0mO¯¿~Úÿñ%€jqügðKaúÇ?¬y¾ŠEE JpŠÌ¥X›róumŠ¯ÓcùÑÚóðÛûûççgáw~éÒˆßþSE+¾ç²X>Õ®iò/wÿõÔsh endstream endobj 1881 0 obj << /Length 1696 /Filter /FlateDecode >> stream xÚ½XÝoÛ6Ï_a´@!1Í/‘R1?¬i»¢X- ¶‡¶ŒDÛjeË“ä|ô¯ßI¹’£¦YQ H,òx¼;Þýîx¬&tòÛÉ‹Ë“ùëXOR’*®&—Ë £”©&š1¢D:¹Ì'ï#ÆøôãåÛùkÅz¬"N ¥9¦eUÛ¦%¹]N̾lqÏ ª@êmžu»g\Qxçvië)K"»Íl3Øß“3°7™ÌLµöÎÖ¦Üغ9‚à$ºœj‹èŒâ3?ÿÝìá­ãàÑS–¦ž H–ÞÙÖÌÌÖ”wm‘ù}M[löå¾ñ{àØžœ­ÍveµØbYl‹Ì”žÚÖ…)||)H’ˆÎ—­i Ѓ;½å×g–4Ž=ض®rÔÈc¯‘+ æA!ÏmcM=:ʦ,ŽÖ^óÐ üŸÆæÓÀÒ•$:‘‘!Išp€NäèAt® SìÆ4¢·5VD+Ýí]·í®y>ŸçUAªz5g”€}zN'”§ ƒrÄŠK$‰9BA•é£,¹†(‡ÁE¶Þ¹›(@:åÑÏü¼$ÜÓI¤,la\â-âèlЀØMÁù×èrëY75EãIÕÒ+ú ¤zˆ¸ Óa´¯¦œFû¢Ä€KL§£È1U’z(ú%Ð|ëÔov¥©ï£—l`xGü‚KêO„£iôcèê*²ÄÑ®¬Úæ9®ai¼ÕwÅvå··•6ÖÂ: nP[Uå~f¶ùÑz[[;^•#1TØàïuUií7uuÆ—§À8pn:÷½&(Ñò;e'MXÇ øXáaÀ#e*DW|b(>R§®úÈ„ŽÁ"A{ŃåG¨ùÕæ '(r´úNC0ü5\6[·WfW›¤‚Bû÷r?\2>òŒ†È+,?Õ6ßg­‹®Ðº_@ðŽÁ]XñqéÜ?nŠví\`»M®( ug²ÏfeÇoFd’Œæ<Êœ·çóaV÷ï*çó‹jÙÞø[ÇŽ8Jkç|àÕcÊ€èÇ.“±pKùÍ w¢„žjrM…"#öÍX̉˜C¦z?¸¼ý¿–M5ÚºPø¥$™Ô8õÃslh&74¾­:n¥™Ä‰Ði¯ óf˜­VXCü]T_¾8…•¥úBƒk\4uQí›ç1È*ú½±ÌF{`Zî·ãjë Ìã|79´i:Ì¥ ïÖ‡¤H“{Ž8¯3%+ÿÌjkZ;v^Hö¯âœvRoÌXÿ£±îåIpÑÏMŠÇâÿÅŸ‡³“W—'ÿœ0w]±Ã÷–*¹œd›“÷é$‡E0ÇÝ?7Žu3‘Ð%i‰mJ9¹8ùó›5Ý}„ÞûÒÝ0 endstream endobj 1889 0 obj << /Length 1921 /Filter /FlateDecode >> stream xÚåXKoã6¾çWè¡6+¢¨g‹úÚ¢EÑC›žv T‘h›XY4ôˆ“ýõáekã$E…âc8$¿ùf8c±]ø‹¯¾½»ºy³Eæeq/î6 æûãE˜ólqW.Þ/7ªmç•b³bþ2ï«nõçÝÏ7ï¢ÄYɳØK² ôê5ŒqºòÍV ;Òk+¾ä´è6ߊɲÏ}oÞqî;]¬Yæ±4%E_|±ZG¾¿ü^lôquçwNß½èvªü ÷]k¸iEîM?ø‘ÿxMÂÒ4Za[…ôªû±ÝCUñÐK“©º¼®U—wâöî·?~°zvêxr»ëÚÛwßüò»߉¼‘t“®ÇJîh>6ÕØ|r:»Y'ímt=w×J<ˆê6‹Œh#6•¬Å­oú¥ÜJ8bð‹éeÙíf=V¹…£›rÚôNºÕº}ÝQ®@Åjïï[a¯Ö5yÝn† »½.o¶Vy£ŽóŠÅ-3R‡bg[­ü$l½- ¾]3/‚¦]Q¨jÖLíÌ8ʸݪ{2­ª;{ÀB<Ž-%ìåÒŠyž‡»Ç›¸Rhâ¡#e â›=uÛïlô¬C]p¤ÇS'v]>‰½, ¬Ç?¬X´E§šÕ:ˆ€šúV¢Þv;:8scMyaÚågb ÞˆY£-Zc·f àCCû–4!*ˆ–8õÑš­¶çê»BíEë\m‚ÚE3ôçØ ÙùŸ†£P „¯ƒªKYoÍýó=°Øöœ¼‘y]¼îþ–ÜâÍD€ðY"x ž õ|žœYÂs"ˆ€y]æMI=Ñ4ªiIý³øjµæ,[ªºz2­ÅôĨ]}p/žF‘¦®é°SWʼ4ˆ4äÌ}Xà…Ñ`rjF‹ï%é𪜪 ½,Ô\“­k!JÃüNÑ÷Þð¤=ˆB~ðý@”S.Þµ, §Ž ŸÀ7R`Yü B·ž÷…8ŒN¨À,@õ)`®RHÿ£0‡(T”œÖȺÃp‚>R‘̽êë®±€Æ¶ÅÁŠ ÎÀJ‚qµV<€[k€ÊQ}2"“oâ¼AB/®gcâ?…ÇXF½ ž¼Y±Ôü7pD1y\”8ƒ¦¶ÆS! 7¦l&ÉÍ8È4š¸âMžòe­Ü$—7³Á©o1+y-5žÞB ¶|lÇÛ1r¹˜‚HvdMÖ°sÖÄá(ﲆ ¬a—w#Ì1„8”F®7AÏ¥Ë:„ÚE‡]œ1/wSb„#FÁ³å$©«÷è¨A§…™j˜ŒejÅl˜¤0–w²š5çRm¶¨YK/;‰NV•&¬ä}§öÀ:xH«§Wa›’v/'ÅAµ’L¥†fgàÅpsýè°1à<ë#µöyó±%z‹ÎËNªò{Q¡™"ßø ›ñ“­Îý'=2Š@jOÞ,:¶ðD&F›;µ7´ý¿£õ_ͯôD¼¯ûý½NŒ÷a|6ÈÅ=K©aé`hy$®Ÿæ90k¥"“¨ÄèÎÛZ5:Ÿ‚ ÈÊêQûÌë7j(Úœÿ—b0”ùhŸ™ä5ð=båÝÅÐ×2X?óRÿÄ.úoþ—ÛÌ!YAè† ­{Ñ…Æ æ|úóa’ùfD¿&ð_“ÀÜ82-¸QèD&/¬Hè¥I­Z²èkKr[šÂÏK â@Íß~¼Z¼×B“O X3¾±ÙbIòy<²ßî®þ¶ endstream endobj 1898 0 obj << /Length 2612 /Filter /FlateDecode >> stream xÚ­ZKoä6¾Ï¯ð-2`kDŠz!Èa7› ²XäõbI€È-v77j©!©Çžüú­b)J£ñ+MÉ"Yõ±^rru¸J®¾÷÷»wï?dÅUW¹Ì¯îöW"IâTåW…qžVWwÍÕÏ‘êú×»¾ÿ‹`jšUq’H`d'íûASÜèýµH¢úÒN¸æ]Â[¹ß÷Ò4`r›*a¹Üʈ)ñô¾5^0X´Èãªô›w—“ÌîúVf2úx-³¨n/»"šz"g½3ûOÔ™Žšm¿«'ÓwÔë÷¼Æ ¼Y¤‡Éìê–(¿Ááô »þŠ9àIíª_’,ñ+W‚€“Þ‚L«,£›¦•U”À"_ß*YDwv-™%´vuG{&Œ—ó=ê†éx¡²ŒF=M¦;q::öõp-Êèâé&ëI— 5H•Çež9qþø7š³xeõÃ3bbö­;^ÝŽýò µ½5ˆ8Ëryy’ênê”UÂ*a5 5N 5sn5õPc¼BÃF ‡[‘Å¥(h—ÆÌ4¾D¦›4ì áX€K{,üõȱDT6s÷n&â&U¨ô9]‹Á‚ýs[ïô¸äöp4»ãŠWÝuýdq8:B³…Àáï0!-£S=ØVµõ½nG¢Úsáñ¶~4#Çci¢ßóøÐ_ºF74ÁãGBüÚQ3n'—±È•¡ü×sÀa¸ã<ÈÙ‚‡ÐR;Y,/mÏš)@”ý Áƒ}{ç,¦ã{Cª„ÝâÈÃNÓH$M£¡­$Éê„Ž¹¸ÎBDi~§¸ÔAö´°D*ã,óP²R¡ÝdYYCîe…=–•=ÒÀzªÁœ7O›s ¸ËD¶´ç¦™Ž/7çýŸšuÛJ­à¢Rò90pª»KݶŸˆZ7ÿ» iÀ‚'icK³B8¶ëÛË ­6R ÙÊ=] „†}Þ[5˜ëkâ$ Zç—¬ƒ}8wiíðžètdVŸ˜U«»ƒ½®i”§)oêBóé·ÏW§WûZçüð~¹.'3Yy@D2–ìã°AÆý°'⥳¯m½nnœIr<.ÝŽƒ>èAè4R«fJ 1VL=ñ¶¿¸+ž„÷B¶!¶‹¹¢X('Uå+Uå ¦U5hýÞû/šÊÏu¤¾uÍv,³üß÷…,2·A4f×Äɱæ#èŽg{@Ôè°á¹8„Mf¿cc°“™^«kf8¾J×Á»ÍÊU¨XÀ[´†]h( g·æJˆ…E+À¢n‡ß7,Z'yéÝåtiŒ¶JS‚ðþ R¹saÙRxŒÁh>ÚÄ¡PYœËl)jû²Ájî0A,ÂΟ¨éã: ÷úÓ–¥NT,*ïå7ï%•-F•–w&çÁŒšw5'lãVó¶Ymlì o£ LG³YÞx++%–/Á  ؾ». à€'—Ç0ºì¦ìDà=²79ï>i ¥ ò¨ Gùš4æI/T‚xUº4\æ­`NŠÌ*‰ðº£@Ë#wÈŠCô]O5­Ùl¿‹Œ2øhr±0¿ w0<…“ËhqÂ}™hÌéje®ìNä5 Øe ؾ×>?ÓÍ2eóÆâÜöÓëÝJ3~³D!?>ÖøxÈqU+gX9k-4 ä°Ð†Í[hïÝvˆ›`p÷­ÆÕã¼ð`pŒ6ëx¶©·ÂðJÅ©òyµÃκèM™½ “i%b™mIññÜoc*Ó9TÄÎ"Á’)áïœ"IŽR)£c?˜?únr¬à‘Èl³§y]úñnàs-l f7…–qY©¿PÖ"'bCÖ¯uÁ…8*«eø}FWU$ù7åßžÇÕ¼târËœz•»¶cÝ\ó±F8þ%l—kloèc[ø ¢$/ž¾” Ç2ȉL¢“®m ]‰hÀTSö$‰‘ü(8 ½Ÿ¨e¯¨W>ƒðÎúi˜¾öÓȉnƒ‹²ò1ÌÙùiÊ2[Eº I=¬ Þ¢½ÞìõCüÞ‰…̓îîƒ2.Wëa­SÀ Å“>,*›"4û20ö‚½ 3b¢¾;åJ_&æbMòy•&H>C„±©GçWÝÙÊë?%¬³,±¤”¯ïÌXR”ˆcfÆ’Ÿ™-°4—xÔœ« Ƕµf.òÜnfÒ®¤/Uõ$0@!…ôÊ®ŸF¦âbs¾&æ U½0ë`TäKaâg šg€@•ü‘¤äq&V•ãW"Ùz8Œoó•ËÄ‘ñÙiíí ýzÚÁ0çº6Ýý©ÀSJ~2µ|ÖšKeœ>üé‡ÍŒ”»ÂÁ'—suÿ™Œ¡Lâ¤Xe±Cÿð6™Ê•#“œ Ê0è¾Ö–ÀN6ú‰Œ€ÖAX×<ç ;=Ø"lžÙ´x.ï ŸP¸Uº/8nË~öÜúVF:UÞòÇ”°p$£\.ã:}aÂ_~ÍÒeÝœmEø¹HºÏEØæH‹«{á¨ÿîêKEaÈAŸjÓù’zàŪútt©‘•ˆ‡·nç…õ”Õä™ò±ßVÈÕûz÷r$­¾§CèB%°3ž(Bw‘’S7 ¬|1PV¾(T¨¤6Yhl †˜+$Ò}jÏ}¦Õ_Ñ÷UüôãÃfh_F÷:TÊů?ØÃ3wX4V™ ¤Êð«èc¬¥ÐÏâ}›ÎbèP¹Þ~ÛÉ—J;✡ñíaI÷f»O‘á’P~[ÿÕñÝÝ»ÿv›õH endstream endobj 1903 0 obj << /Length 2641 /Filter /FlateDecode >> stream xÚÅZÝoä¶÷_±T ÜòD‘¢Ä}HÒ^q}kc —•wµ¶YÚHÚ;ûþúÎp†¥Õ^ÎNŠÀK¿çã7r¼¹ßÄ›Üüp{óö‘+¬IÌæö¸‘q,”6›LJa”ÝÜ6¢cÛ•ý åq+ã¨8×Ãö—Û¾}—fÁJeȬ…}Ý)SœtóQþ÷í;¥‚U;•ånÙ.É€¨hñiÿ0[¼8*3Âæ‰?éT·ÃP5÷Û]blÔ??Þµ5µ‡–~Ï}I x<0¥½ëËîãV¦Qy`ÊyØ·e/¶;e²è‡g"”LG üÇI]ûÕý¯ç¢ã½«×Ü3mšÒuá2Ü6û©,ù™ð'òM‡¯¥æ¿/8¥c‘Él|t[5Cÿ%&©Doý|zyG-<Ý7OCÕ6=_æÇ¢!rQ÷-µîJ¦Ð±i?Œ[==IaÕy6¿Ð\Ô2EœeÐ0"Ï5?¤¯>—_/lºsÎã¨9?–]µ§Îx ê:áÃo*÷Õñ™‰<êø‡r‘Áz¢—Ây ý@ʤ:Ž£÷ÇU!7îXÔò€ú’æ¼gšgC³ßʈ‡i6ðÇDÇs³Çç‘Øù}Ltêàˆþú8ØlõX ¤ÊŠ$¼r×ÿ›¼Yrsq×Õã×K{’¯–óë@ß]GÇQ]6÷ÃÑúq²‡ß~_Ô%“€ÓÜöÀÌ}hþ§qußÖˆðé¡lèfïJR+”•£%z^¼ðLÅ©ŸUñ!¨;'P&#Œ5, ÃóHeà.2 Çöÿþ­Šªîÿòr®ï_cbÒDû‡¢+öƒÃ èöCGP+3â2ÒF ƒi.lë–9IÉl[XR&«J¬e0ºSÎ¥½®ªi½œAýCqx ©9‹T:±†à· T±º½¯ö~iËkXÑQì40Svè}oÊÛ§Q×¢)~êy³#ý"›WX†~òÕ©×s %×meÝÃà ±Ó±SÄÐðú”Æ“3™+/E=<¿æ e:{€qàpd|€bi¸F]5%Ï{>1ͽ$˜•Â3„€CÙìy`‹Ã\´¢ð:nìÜìÖD½t>§BŸ|+‡ÞO¨úQ — 'U*T2‚Þ7}[W‡oÖÂ@€½tŒïXŠAôôe%Ú cB:¶¿ë\°|`6°œ,̇†@ÅS‰Dú&ói¬Îž_weÝ#›ˆ ›¦ V9 Ȭ9Ì$Ä8OòŽuT¢¡? ]]†Ã ’Ž;¯t¤v Všý±*Öd•j!ÕÈŽ n¸"( ÍdôOìpt&I·à´e £<‚ã`˜ ¸«·pˆÃÞÌ´ˆÓl-ú}1Ö”O¯çxÎÒ‰ÃÑÇ<ˆ$ƒSÑp0ÃôºÉ¡¸7¾?Òü‹èNiV  L±­XèÌÜBOÖ—p‹»º\„Z¯â™`É¿Ýì’'H xB}×б/=íŠ'|¶‡j¨K„«ÌÕ½T)“L‹'ÆaïÏeœ{Æ+“’¥6årƹ ÏSžá9‡DB—_5"ñBçrGùLçò?Sç„/àÚ”‰†®”’ XiÂÓ¬¦Ó+$¸!·Ç.WÊ s°Ëá¢V€.ÒÒ[ǹĸ ˆ€º˜‚©ÄDZ@XĪ0Ðô#Dg¼’sˆ„ã9\Äá,QÃ'„‘pâ`1N븧«#ôÂð§Êå8 FŒœÚæ°êûÑ»­ù‘+ÏùºüXÖk) 09K ß"äËe@”Y@B$|aÁ퇶«>ƒ7pH}Œ{xˆ]ÙP‹¡è±ki€sŽ; ³Ó{)«¢Û-æâäi°4¢. ¦÷Œ/I¦ØH lWÁÉ¡ÁC ûs} ùS00-N–Z€”IÄ°2½ñ¸j%ohäB=­ ƒ„Pû ¡Q°àÞí}Ɇ=Ö ¸€ú—xθ1é ?}ñɸï‘8»ª)÷D ž_y’ÌË1ˆøX­Å‰0©úÒ£b2øõÏññj¯Þ|/^tê•]×v>äÈÅ&Ÿ‡ZÓ;äµw()ò)híËÕwd"¾*—¶f +2^Mri48‰Ê=nöãéµCÉÊ® Ü+Ζ>žôˆ"…ËçDíaö)1‹‹Çë<ÑSŠVë—™´ÂØst.Wd‘ØßdŠJϘ2>yîB#ȹt)¹)»r)vœµ®¨®ÍEb%œ¬{]{!DH•ÀÓúwi¯ßJ€Wó‡sÌgh*L³ùŠ%Z] /äÕ !/¢šƒSÝ¥.A6šæéïB’9‘$‹ç¸Û7/N§®=œ‡’nºïª‹nZÍ>@—"·ní• æãµOiÁ$Õ‚a‡ k wÛ$ŽÎ>ñËœf•â^°%ä¡— ÏGW"Wx¦Ã8ù»Ë‘™Ñ”¬Y÷º“yrñ0óeH›~Kýß{çïkðPM!°‡£fc†qËÑLÜ»â,ìs¨:‚ëg"OtÆr;Ο;C „Î8k!„KÕ¢ÆÛž›g,äÀÓkÜKãÑ7î+Qß])ÉÛ‘o£ºÎCHg²,Øéü;]¤/kùÈ,Ÿ‘I nXaÁ L=§}¾GŽœNõ3Ü” Ýn3uQºÌȾ[¹&ÜãÔ¶žSP¥äµàìiún;Ð1+€5_}ò*Fsäâ›™’a¬<Õ`䨋ÀIÍ'¢°^8½1¹Ð¹Y»¤Ÿ–>`)½ ØF÷±>ÎÄ2ƒóˆ‰Ê£þ\ %ÁA1ÂU~²è¾†¬È—Fг”o‚/En,ø {Öí=ÛÎÁ)2´:]Ïëþ´¬’©ti”—åšKáA|cr9Þ_˧ÓZ4‘vMrné„ö’膎(ˆDŸû‰Äù1P}~Ì_Ú5™øv‡Y›Êo4šßˆ¬Ýý"¬˜,x+žNÄ䯤sJëk: p7å!Åu%ÎC]_Tðqw¬àƒ+5f:Ô5ÆÌ¡2 Ñ)†Ð³0~`ñ%‹êËk_Ÿ™]ÔkÙ‹cú«çü¢/<6? ]ù'ƒÍ˜¥«ˤì; Á–-_¸u –ã¹&òÈ3®^»ÕlF=u¢Y_,µîkÇÀEÞûÈצ‰åP슦¨ŸûŠuYî¸õ6«ìýçìšT–ºU]ŸÁSSP~¡RAðF<é+ ¢Àÿƒ° endstream endobj 1910 0 obj << /Length 3038 /Filter /FlateDecode >> stream xÚ­ZK䶾ï¯Ì%=€›I‰’ ø°Ö‰s°Þ r° DÝÍ™Q¬;’zgÇ¿>U¬"õhõîÄæÐ$E±¬ÇW¥Ino’›¿¾ùîþÍ×ßgùM)J£ÌÍýÃL¡Ss“K)Œ.oî7¿l¤4w¿ÝÿýëïœlÕY)’DÁA~Óƒël?ˆƒ}¸“ɦ:7¾ó&aRË_ k&‡mµÖ¢HäÍVå°¨éÌŸºƒíêöñn«²dãè÷Ãp>Ô¶ÿ†xš±ŸÜle*”Ìéýï^î¶:Ñ› S_ÁŠ4›áÉÒ£ž£IÕñªCÂö@“‡Îi4¸SÐïÎ Cxøk’%µ°bIáWPR×#9fªnù,Ú¨6‡j¨zËŸë¦aõ¢IQf‰vjª=2¨²ÒŸ„¿»SÙæ™ô"§w•‘k®ê÷Íe"íóAIœáÁ½Ý»–‰±¯£+%R¸9a™N¶ä"/ÂsPUB[ŠÙ!"QeØ#W˜OEY,™¯"ÃŽ~]ËOÎíP7´%l*¼¡Q>“Ñ9jóüTïŸXÞž~ºÇÛÙÊ"išÎ/‰OFÀ « ìE ´•dsöEkÄɾji°ã§v‰Óçzx¢ÒñZÑz¢•ÂYЋwEyàpºŒWTuw²Ø<ž¶¾™y0¸¦ÊD©@D57|e°8Û¶`¢©)f,|{ëvýíš ¦"/#»ßj†UÕxGõ1aªÝ˨zºëm÷ñNf›°Å‡½;Úþ«…hF Qg=þŒh§ÎîWe+Ež›ÿluÇoUÇS£ãG4ªª««vo{AF™‹‰™_ØÛf°][ 5î'Ý4ÁÞu’mj´Ò2#c/ÓMÕx‚•“ëûz×XZýbĺ´= —©Mþ Û+ttmûŸsÕLOh…‹äw*´Çµ´<–H³È]Ô,nÀ˜ÊÞª„òš™xëŽãð$øKÕ{ËOþõîêÜöaçMAo?µüÔû+He8:÷–Ž¹î¡*fÐÎ=÷k:R¢ÔrÍ?‰ÆÀ´ú;¹9Ù}ýðÂë!¯p¼éi†¹Ž¸:BÎ&…(-…Ì$+„MåѶ¶«šh3ßk¨‡Úµ=ª‚–[橼-stGv>±Š ˆ A¦À)ùrÞñ@#io,0ÿ¡}@ ]w¬p™©ºõ÷ÀÔç0C1 ‡ë¼Üì]s>¶¨¼"„\\®Û‡‘.T;v‘æór.ð o…sÿÆáà­¬ fq)¾‰¤Gëj|viBÚaÆ [7ÕnEÆmØ63ø©-1%!¡ßë,eva`AfÛÑس¿ÈRh®¤á¥¹‹âŠã—âAw;~šsíêO4ýš~Ñè¡«Ž¼ –õŽ‡õDú§BìzYÃF£Á«œÞÀ_”ÂòRŒá&ÎÐF¤¥1^HÈØ…ò{%ê•€DÌô.Ä'ð“5Ä’‹Ì¨u§Fr”ûsÒ8þž)Üå‘÷àìgräT‰L©¹Bž\WÿáÚÁÛ´Ì¢ïÒ qµ–,7.L¯²§%O QŒ·XÜf¹¦h©þ‚5Jª¨&Ðh–¤W4ªŒi6Óè…B”,ò+Qø%s†ÁŽ…$…z¹« œNä\u£–3z$ ë'XôR]ø¬rçæ@cBo˜êÇÖ<ä˯ØEYÌä]×!È«¾b@™ à1×Á€2Å‘Qaüa±l¯™‰,2ÁE0å¨(¢ûMpÓ{çš`¬à?5ø:¹XviÖG»ÎF÷£8º0ÚmóòèZöWÆ¿£õC*?QÜt˜QhøólSˆ3eÀ»z3]ë\˜I¡{n÷è<>èÍkaãàöç-+³„kR “ÂKš$ª˜5‡§Š+„@b±ÁbÄcò?åÐýÿ>÷+yùý‚ä\·LýCýÇ««keŠiuM “JXåPÊ>ÙvÅÖ‹R¤ÑÒO=]ˆY>f·ž´Ž)MÂg&H‚Áã …;Q(RôÇýL´ 3ße€ßñ€ôuŸÂ’ld‹Ä ™$M\w"”¤U‡AÇä°Þ¹Ž±“f²:Å #XÚ£Cb†Ï^Ù²—9Á8ÿŒxå&¾§ƒØ8øX÷gêü®ˆ“¹ËŸ:w¬[Š'×úE¨˜ B(ˆ€UA†KÇêw2®Ù>¾†;€aE?Õ—Üà™¾{¡GJÔ#ÎH4ž¾¿ ¢>ÐLtK)ík.ct(¿` 8¹.âLÍRÇÁ%zV–éEYÆ„C¡¢1Žv€1N®=ô—4Vdx¶õãÓÀI÷x ägÞ.(íà,ÁNj7\Og1ÝÁÙèå›ñÎò,ÔåfjŽyF昛`ŽÓ·7`ÆÈ‚E"Ù™Eâûkbj-ܦ_öêuÕ‘e‘e-Ód£”°Ìø3ÛDqñÒ 3CVh¨ jÌÄ M@I°:qI“˜×° ªyñwb‚á=>¿=¬#¦›6•Â°s¨}q®û'nƪ”¿áb –ö®E\~°€{»6ã5´P’7ÿDnîï /´±Ârä#Õ$ÚÉÇj¸ïaˆD©’ýBiö ÖêZð^â\¼fýå¼ÌýÏø9Ê1lîcÛž~3ÈlB4UhŒ¯ªÙ¶LvÖýüðTíÏŸ"½çþÍÌ¢¦¨w–^kBCŽŠ ¸ÔÃjV˜µnƒÏœiÈœ2dNÉGÁpÖ€†¾Òanü€+‰¬ &_[4pR5¼ã-ô©r|pËô€‚öƈbÙä箸„ªºiˆ/¯Xª:–»ãý€ßžƒšø²Ymãö»ëªÛõäU˜lü¾™%=56áüª_¿dÌŠ^‰ßÞÿüwk- RROΖt®ëÖ8ÆF1gXÝ®7–Š4Ÿ`&ÈH6þÅm?¼46 Ð ØX|ø죽jCRU7Ä•ÐRƱéÚ„¢ÊL¾•ÂÄñ®øÇø…–áêdË:ÊP©ÈtTÒ-„²Ûõ6ƒÊÆ6CK'Æ:-&.ä×ÇLLºÌ:uä¯ìÀà”ˆ¼œëæ³™~T„Z6õthêinêiŠp~ÊFå£ü4î±ÞSÙªYAjÓÂI]½§ Þá! 'ýN=~ûÖj&mìo®¤Œð­:¨!~ß¾¼£…Tñjö®¹}°×™Êk½Î•å¡×9~"E-:˜¡¯þ±„xž}¤§>Û2DKÀ®Æ¤ªE’ðÉüè{-ÀϺßX­•¾4ôïÑÇ5k†hÏqOë½;òÈÆá ,Ì8—ž-·¨O¨2Àäxš¶/¦Š£V„Þì0Íâw+Üî?ýÂF °°ãsZ i®¯> stream xÚ•]“Û¶ñÝ¿âÆ/áM-˜øÙN\·é¸“Ž3ñµ/‰gBIЉ5Eª$åóå×w»AŠwvF\|/ö{Šoîo⛼øëÝ‹×?dò¦e¦²›»ÃŒc¡“ì&—Rdº¼¹ÛßüºÞ £Ø›Ã­Œ£êÒŒ·ïþùú‡4Vê2yY¾v”9NzóQ7vÂFå°HÓ´»£¹…‘$:\ÚÝXw-µªÝx©šæ[:êÍxéÛ††îÄKê;UÁªmw i_íŽÝ`xüó­J£ª¹˜Ámp›ÄÑçz¨·pT–Fâv“2ú©¯Û±nïÝVõ€Wkl€*ešê³ãUG0Í~/ƒ9\‚+î«è3ŒUO;cëÜÁ9Ž}w—aìNõ œ›n‹L”‰",Þ`‚Êx&íå´5=ÂiÔñà0^ö5Þ5ÿw©G^ÓTý­,¢{ó Ú:ž6kª­iÛ+£ªm»ÑÞwàyU»çOÛ®áOÕ#[³³ÌBT‚Ó†°v¢v;(žÎÝ€\1ÔFêà·7Õx”ê"ú0‚TìŽÄ%•Gã­Œ,ÏFbÑ‚‡ºÝwÈõj¾•id€;–.‡®&¶û'~®÷Œ@ÅSA&L*Äoå¿Æ±º¿àL•+h¥q×rc8v—fO0¢@‘€I °UÝß‚¸Ö¶Ô?Œ–­8°ÿ/ˆ ‰Q¸<¼­= ä9•ç 5nn5.VY¿&®]wAΈ2"Shà,u¡Î¦GJb‹ð2{¸²6%q½i†Q(I¨¬ÙÐ:48Y)Š,sfcg¾¬Ø™€À'nΫ•mR¡‹$ØDÀ­ÖŒT"Š|ÚÇâ…Rw½¡R"-t¸cõ…ìÀbËD‰,óG³"]N¦™h•• Év±…@b# BKÉ4Ïhgˆ¢ [À¬¢ VqÔ Ä~á¹–gs{!{ón²,#0™¬¥Ð{2Õ`%GË=uƒ¡#`rO‚‡£8f…Ã.k\ ,q»wËQŒ¸Hð¸Œv]ß›† M …Ëp¯­ ,”I¦ÏF‚Ê„-\üO6×`’P"»ž÷¶S¬Êà÷¶ ÞÛ.Žg›%‘Dæý¬êâ$+û8 d!`] UQ N º¦>­HÒ"N³5©á½;út2;23СD"“¹zŽèàˆëpT=²ÃAš{‰é¶ƒéÉö±¸0ׇ…íº­×Þ´;^  —ZÇɳwÖLR·3nßKïÁËnKVaÅ…Ý­†B”¹'c3>®Ù…B$ª|‚Š„)€{GZ.”Ö¢C“ˆ²QÀ±¿ã†:¼Æ4Æê3ŠDžrl{ ©úÏ:¸-†³ÙÕ‡GòLNoµeOËÐøxæ-à |^C;B˜oúZ zqç6 ³áYú§Ås|´\´x@”ˆêžãh¢…œÜáSn«1íýx$Xã‡õÂZ¤,]’9p׶¯vŸðBfd77˜sÕÛ(Ívd¡ ªï×Ëø— :ŸHA®pï¦Ë0­ÄÜ./¹(C3ë$Ž\~e»ÓÒ‡õ;dìKâÅ//™»Wß/­Ø]k{^‚:O1*¢·Öò$>Üêv×\l~˜ØôûKûÄG Ôk9€“ö¦F ¶x)Îèkå¼$M×}"Èò7:Õ퉬$SüAþ&P`VÎ ¯ Zqø @EJá»bîxß4yL=Ó)c!ËÀ,Æñ5Ež”é”´gÝBžXíç—«\” AI2·§GÈ„Ï`v7EmÛ°j¦à ˆI0ÀLhbvã'‰RË$hOLRÚy€\ŽŽ°u4°¦â!´w›¦&‰ç>ÎÆFdRV«È"ýfÓŽDÑnß1QBbCÛC˜íáÅç†,nÂdƒ.2­uRµÁ–6,œ5äc¬¡oy÷ªsà‰=‡© Ëôq(†§Ÿiج]ˆN…|Ç Ûnl]èìµVuš‚ò¸–¿K©E>¥æl¿ÿV]vЯR'¥¤Zô@ þ”¾+·8÷‘ÅýT¤)lÌR©cQdrÁRŠT½ AüêäSzˆ3KE2³H¤“‚9––S¤=7I™²i„¡=øè“ Ÿ¹ˆkwG0Ú»ÑpXŽ!Ó*ëø®Ø`KÛÉÇé+)E 9ŠWæ÷—ñof·µ‚¯ž è2µe¹•Ú~¬ôè÷üÝßxÀ\(ÍôGp‘:Y„Xýò!$ a@ˆcöî5¥çJ}lBËHÙoL*«5™2[ëëè‹iЊ²—±H§`&ˆ~®¹˜gž‹ËœÏŸ#faXD%GôP7®Þ¦S»éÌ¿ æ'9Á*/‚:à ­J kg£®R™Y„.”8‹VCXƒÅÙú¿Ý¦b(¨=óF¿ƒ1¾`™Þö¸ óðXÓîÿÜJ°ÌG¬gá'¥ºÛpî¨*ÃE& üÖŒr i„×øÀº®ÕAÉ€£èTtŠµˆ,2}¢ÜšfBI½8 ­ö·ÔÒQÖ¬â!¡kź]³g …qJáãSRÇS­npyŸé2¨…ØÁæ4–ñ%>HqªžDˆ¸œ3<”¢©sæúcq1Ÿû¬ê¶¯©ß¿¾­ú¦;^'× ¥æ¥Õ,P¸W4è¢x­ÿ„u·L»,¾ðǔݥ§rv}¨ZîÕÔÁ¥ï2ú ¯Pá³DÛQÏa 1ËÈí©ŒÜ~yeA;•3¬ 0“Q³Äpå!ƒð-tô¶;/¶½þ1 g¢u{Óó‹ÀKëûŽ_àþýîõ+úx,`,¤MYNgÁô('£Ÿ»mç|†ŠÞŸ kéµúƉšÍåÖSõèÊZo@:.+*BX÷´‰=V\PyÏñ…-´îù‚ÞƒÙóçôÓ4|¹F_rUÿߎ#Ü?^”Í—ñÜ=e¦"‘ÞM¡”Z„"²ä§ø©Bƒ}ŠºÈ —SÝÍvZåƒ^›ñ9Må‚–too*¶oû¼†^ëiœÕ+Øh–LPe]‹¤\X26E¾¨oA‡¥hAeBUdTH°nIXÕǶØâNæB@=I4šT™Eµ0‚A?Ý]³È¦kzd‚m©6µfCkþ4¹7þ_ß_äÇ' ñéôÎäß\]-pû­=@P¡+’+xh)’ÉoZLÔÇ'°'_ü¡Ö™Ð¹šKµ5ýrö’¿¯·ÔÅ•pã«ä¬üm—Òùò#ôéùCæÕ?/ðÁ•_·í<÷ÿ €Aëj—®¹ÍÝ_z`Q@Ðÿ?E«rš€ìØxW‹ülú ‹Î\Q3q¹_¢Ù—}å*/á¿Œ*òÔW•E÷MuýÄ3ƒŠ©5ëõ?'HÕ"ܤõpU²1Â>*XÄbÕš RòÒr]ǧÙ7èkE‘/Ô= uFJŠßéÏØâ‡5jË^€ö@ˆ3¦§ÄHéö²U‰Œs(÷“åD8Rm ª=‹BVžf€fñôÇ ¶Ä×ïéôŸ³š¯ñ‡* *J{ŽFÿ9¥À’ºXÐÐU®Ów÷ýûÝ‹ÿü.<á endstream endobj 1825 0 obj << /Type /ObjStm /N 100 /First 975 /Length 2087 /Filter /FlateDecode >> stream xÚÕZ]oc·}÷¯àcòP^‡r #À&Û-x·@[c[›uë• YÆ&ÿ¾g(]ÛZIÑ•|½@lñJCÎ!çëŒ("rÁQ¥â’ØkuíUqÅ Ú§Éä"ÛCŒ.“ì8špLŽÅ„)¹Dé„*—ÙfQt%·ÙU%ÆÔÀmTQ›ñC[ zS25¦+×6‚p2ŒLDšv1C5‘r“Ë.FhÆ e[˜ÕÅl*ÖŒ9©+Ø^Ìš¡R’ þE©ÅF¶7ŽP  [#Am#̨¥©•L=6äMCqL¢6ªŽ9´¹ê8µý!g­'Ž 3TdÛREÎŽ›ŠTð^SðJ&¨´5`¤ÐÖÅæRȆ)Fªí\\ŠÔFÁ%΂OS3(Hbç\E\*bs…]ªÁfÈUµ ,Ì2–ÉTì|°©Ìd£Â.§b»Ðœ©BGɵõàYÈVÁ²dC æÒÌS°rmÛÅ? pˆ 7ìÙÄ"F he'±¹Üˆí¤àšÂæ8ha(ć٠¶k«)FÒtaÝÜÐUL¶6%µ9¼OlFP¦ÍatÑR B‹+¡9º²+‘ÚÜä 'ƒ‚.©¶÷ÄþZ¤!€7•Sã½àJÓ¡!¹,x4dŒ$Ÿ`D®’£âÐk´óÑP\m;R|kÚ§P—hŸVk¶÷ ·±"É ‹t¨šÌŽYzrzzÒýè.na}îºþëß·à9™m²œÖôáööýÉwßí‘ŽÕæ@iªÞ}˜4\Èlp 4e_pŠÃ¤9'Ï8­Ò¡z…‡I“ª/4ôLh’³ÙtáNO]wæ°švf¡iõ3ÛY.Ž^úœYB0-›–ƒí‹w?ÏgWo' wẟ¹ÙaIÙ·šdÎ"F¢2^QC¯´ÊõäÃåÃíbDŸ%D j´oå’kð¨êTªy݉æêáÓÃík#€èMJ¤ÀÕ3Pä'49ªã3ƒÑ¼ŽSÎÞ¸­ÙŠÝ‹ß^×y„µÑ6 cŽž ”" bÍHõ9"³ ¶“5 ¤>µ|»ÚUÛT÷æô´ièÞ\-nfÓîm÷óŸìÅÝýŸ»îóçÏþÓdq Œº›Ïþ-~6ÿõÛ'„)pyb PiD¡ «dÍMZñ\¸§‚覡Ò,>²”NjE畤R7f³†Æ¡Ò™|Éy t,–´‡Â&ø‰õ;XÜq[§tϹÚ.Jw4q˼IÜ–8ö·šuƒ¸¥ž¥ž¥ž­61.áÊ¥ø`Ç+vb­¡WÍ_·~µJOXbbßšØaXF/`QPO=âáòÉÎjžýYñˆ*|@+kù§åR@~Œ¶IÑæ?®Ïa´ðê`Pê{.¼?õm•¦à­m&Á¾ik;‚t°Œ3w’àKÔÒÌ„zx“¹–žÖšÌµ\5F“Ù÷‰Ïs•ðñ¹JúvQúvQâ˜)*…ä©Öæå¹Xó–„Mp   ¼ÓëóËéý‡£Õ[“ ¢°‚ë ‚% OUòëWÃA¨ólß—KØ×61Jë’ =Èî.yvØH’†¥!Eö™¯ížKÇ_wÏ^àž})•¾”ŠŽZAÙúkp îì¢`® 3Qª_¿l¡õ4òþˆüÊ.âùÿ¤ñ…¨eÏ…ŸèpnE~˜4ò9ó@iã¬ü%{>ø›Çgâèت´%¶ôøØ*}l•ú¤ç'vé’M“ @â=> stream xÚÕWKÛ6¾ï¯06A!Mê­ *šMÑ ¹xÍ¡é–h[YÙ4DÉ^÷×wøÒZZmâA‹\,¾æõ}3COÖ<ùíêõíÕümOR”F^4¹]MÆÈ¢ILŠütr[LþrI¦ß¾›¿ÈÙQ?LÆ(R‡V¼f¢A[M vh[5Ræ S`':v­´ëÅ°èk¯¦!vÚfÃë8Ä~HOÉ™²žÓÉÄ% ŠÒD«ù0M°Ã«Õz:t·žº¨ýsa§dù¦YÒ–ÕzQšÑ¡ùþ™Â4D~ÒEöòxXþ²e …Ý}Í?±¼A¼^ÿ¬%û®x A—i÷Q xRƒ÷f¸Aôl(Mˆ•Û4Í^¼˜ÏÇ#²–§.8|f~oÏÔ‘Ôª“@"ãmŸ…4F ……±oÁV€I¶Ë™øþ`S/tŽ¥˜ÌAìÜ 5ˆœŸôçMEë;™&Ìxô†äÃØh‡]§ÎÛ) •[òHèì+Þˆr/qn§~èÔ§Rq â ×_Á˜YؘÁQZã¼Ð3º+ûM͘0Eáy–û…ŸAòu]6¥Øh¡÷¬(sZI)€Òt¡rÒ0ÔÇßIx[ïô©l>dCöre@P/)|ÏË88gLãØÇX8Ó9N‚8ýèy ŒF’=‘þúÃÌ+x)“lN0"ÄæËí' ©I•#®¸Ä÷Päù0A§éà0„ê@í‡iê9’æ81Ìl˜`ç ßmÞ(vý8vd!¸ < HK%UîôÖBŽe³ÑŠX+Õ£W÷4¿£k6Ê3˜ ’Žçs┾24›s=šo YѨdP˜ßðUs¤õÔ6T#ˆÿr⣩j›g´ûçœKƒdŒîÀCä¡kÑD~<ÿ$:`?B%öÇ: =„ƒÎq£ê쿪m²÷a”¨Vh†[á°è«åsýò.H£³«܈<¨sù%—=ä X}(usÒ'€VõÕ¹Ië’·b<"+ Üyc•Ý÷§ÝAó°^Ú-&ö,/iULl`“¦ˆxÉàÒ­·ôsèHª<òí…õζ±y‰ßÏoÕWÖ¢¦Ä£ž­lW–÷’ìÊzXîòª-J{ïRs€óŠz Rå–6ÌîT§5ß¡Ë1ÀºÁDÚ9ZRÅgÓ#Fþ ;<ëâW3*hí¹'úÛb½^ÃPÚÕ%kë¿ÞÓí¾zâZ}|ÍBÜ è‹‚®.bCù*]Ïž=“ì@ßÉÛJ!*§_ëA]Š;3‚Å…«üSb¼†(öÐf[rIHïºÙ ÚG€‚?ôõ‚6úÔKW™~ÈV´eT´5Ë®‹ë™1ZfÍž 3[ÂlÇÖf–—Yþ°WÀLíI›Ôôé¡ašÁZæVƒ¨è2ÛSÑ0ižª'¤Ù:1j‡‚í3ëϵì–ö9q­²ž$xáM«Þ³jb™—cɼÉ>"¿ª¨…¥€^Ê/12¬¶  ŸŸJ‹ Leç2~ÊÙ²†"ÔƒYv˜ÕiàÜ›ß ¼Ý}Œ:ÞÈívKë“ñêÜ‹ \ÏKT-3Ðù\VÛnµ]~1²Î}yÍKJB“ÒÕ°.3XVX"dýªt<ðÒ,mè¡Kx»]³æ´g¸#„ ­ùסWEji ë%ÈÏÎSG®uÈhB¿ú7%ÝxõKóMMwtnXÛä|ËÄS¬^‰hå»ßÛÒ¯Êm¦úžyæ‘¢Rªa{‘…ºÐãydPè÷ ë¡pœÉÖlmŠe¤_ÆV‹1þ@´Gï]z_~'éc› ºˆ<­¡D8œaä…32 f¶8\„&Á³Ä <Þ0·ôŽY:+ƒ!/w ˆ•ÿ°£z/}ξ–® Ôl `tó§@]°ö n'Y×MV—÷êÿÐäB@Í ®Ñ<Ã_îw¬Xý×P·xZ"x]°ÚJ.‡÷äb!~° Vñd×€HïóèeùëíÕ¿˜P#[ endstream endobj 1937 0 obj << /Length 1757 /Filter /FlateDecode >> stream xÚ­XKoã6¾ûWÙk6—õ<ø°m7Š-úHö´] ²DÛjeË•èÄî¯ï å(M{H4¤†Cò›™oF¦ÞÆ£Þ“oo'ï®#æ¥$üÈ»]{ŒRƒȋ#O½ÛÂû<]×h%ivÙìËíï®ÃØYÁÓˆÄi ö”.c)*M¨ÙâÝ5ç^ÚQ€Ú 'J}ÁaÒ÷õ¢7oÞÌ!¥f'-ªÚHõZ?åV˜‰U+š;QèQS¶)“eÝjù¾”[-µòX”ÂL×M!»ruÖÏlÕÖÕQëX%ïwX0JÒÐ@V§!-29wŒsçÒLÝY!“M¶o×Kq:t3˪ޠvŽÿ(¡áœ?œ³y0÷)Ì1ü›«½ãˆø,àT•»¥Z ÓóD+÷7[f+8¾5£¬,¬Ÿ‘”ň·ÂÜ:«ÚZKâ”í• îw¾z|Üç€û^ùýÃíäï بǺh SŸÔ÷òÝäóêð%Ê~`¤•9âh$€Çûî°’ç®Æî¥=z.N½ä@†£ìTZ5BˆåßKž}׊%¸>Åû¨º9îlô$[<ÆÖçåfÀaPˆÓ¤cºlï²åËÈ2f„÷,ñ$WÆ®|ìü sâc–G$J}{2Í/¿ ô4ežUpxÎuÉ€g{y¹>ëÁýøR`àÝŠLkT·õ±*´¼ú \#Š¡EÕ‚ ÝâÆ¡™æÓB¬ÑÙ±2oË1/BÉfDðjê‡ö‚KO m0‚®ä]¥¾ÆÈ\: #ÆÈÂ*‡º®V0 L_ît©Ž4<º.Ã`W¢jõld!UûÐ;×M׳<ä˜Ù‚û Ø£¾”¸÷Óéö=YuÄ^Q¿5»áÀº·³ÎVjÎzeô>®0ÞÇ)B=·æö¾Ý§GN<ŒÈ©ÑXà)ai‡ÿW„‚2y#LGôÇ÷BfeÕ¾}&ÙxD(~ü ²M×Ô×D 3QÂÜdcn”0% à.¥mí`\î%|Ei#6 ™ICÖ§¡³WoQ§!ãÿ·#TOð,³ýO@¯HIéÚu2/÷E¾Íš,—šØ4M¹ßhY“siYCMÜDCú`|á(˜A¸E©|üJ?JÕÝl•P]ÙØ—»OX’8`v\pʘyÔ‘Ý7ê¥C·‹½:ÔÕySïÇ6 ¹äæ˜-øšK;W_­²æùR÷¼Õ_Œ‚ç‰ÒÞð¢¬7òÁwŒ;Í+ìqGO–’d€.†*çÉô;]øSaðÌV«F wïJàí¨Ý)1–”?T—(¸ð‡Ü–íð#­­ñ«DG ~MVÈm¶» MH½$Pxãì(k(0HAÕÙì+äh·u>¶ßl˜’8_Ö´pháh?Ì^tÆË“·VßÈ*§àUÙ^taò㽶` Ýßeû£ƒC—ê¡ù½D}"›tV.ž±pjæñ°M¹šùtză<}gsôAép>£^Õ«%†¤—¤b·WK,+%—M[â4m‰ùõ¥rŸWø㙲Ô-¶§TƒÅ~¬d¨Š¦âƒ ðS 3s”9D{«GÅQóî`‘j@´¨Û–N¥kÕZ·>áÄh}ò£„@Gùª…F±@©TöSNX0¼ï#EË>?ÜNþn˜‰D endstream endobj 1944 0 obj << /Length 2551 /Filter /FlateDecode >> stream xÚµZKoäƾëW |1H»›ÍÇÁ‡Äð ‚ 9ØÌöÌÐË!$g%ùקª«ºùW«ìašÕﯪ¿zh£Íam~¾ùëãÍÃ'nò0Od²yÜoD…*N6©a¢òÍc¹ù52ºýÏãß>%b2T¥"ŒÒ²ƒömgú!ìNŽ½‰x ÷ûðI©Éä{¥•}/S*ZãhŠÒt³ù‹ó¥I˜gÒíY·‡jWÔ·÷*Mƒ¡Åß$èÏfWí_Høt4Ö´»¶¾œjãVUsèyα½Ô%õl ýeiÊéÒð{44þ\·‰~‹t„b83œê`˵¦Ó•f+¢ ¸Ô86‚ª'gHÄ0#îF¿üë'4W 4¥vƒ`OÒ’?xŸ\EÝ·$²çG }îŽEWì‹H¿Ü ˜ÝÐvÔ=ð¬5D÷imö¯Ö”$êªÃq°×½Oàè"™_zÄUêÈ¢ƒ;a»mêjÙå±AËS§¡[Íu?·Vþ½Ð¡Ó±û=×Õéýsl»ê϶Ðf¤Ê˜\ =µÛ=þ²’Q@JÆVgµCÕ6{”ÛSÇ¥±¸ýEÒ”w ‹£qþþÒì˜CËöÆmäðiî׌‡ŽÈð)-wXMjÃß¾=1–½iúj[ó×—[©Á&.¦¿RÞº¸ RºM’Ï÷Ås…ÇK®V" ,ð ¬TŽ³'`%¬Äi–—OG$z›ØÏHØÉ HÙTþGð´WÁÓžñVV™"ŠîVdÁár2 *U²"åäýá°vÛ›ŽÎˆ³ÚË°£ëÉhÄVæ9a ÂWØÂ\ÀR-­“VÍÌTÑ14—Þ”×?×،^¼RÅD©‚Þb"Æø Ðœâ˜ÍI¼¾rã§æ$¼9‰oï úX‰+ÓÓg_S;ºEB|Œ=ÄÇ2K,[ /ìøj:´¶`÷¨A§…žú5 ƒŸÇíªíG!É>«zÕ y®½œÏ†™ØÍÕÖ%{ U];"a¾).C{[¿|ŒÏ)?ø\D-ž‹`w%¦îÊ ñŽØpŠÄ6šÐ¬ÏRQ ŒäI^VýÐUÛ[|Ed2(…À¡YñÖ2ËávÞ]ãšýðR›¾Ãe¾[qÝi¦‘Ÿð6„qœ„RÇ :Þß¹í+ºƒcD”Šë±]Œ,ý ÚÏÔ:Ýçž£Ù®í ¢;· úsÕÅÖÔhê:"êAáò*¥‚eDÄæ0y•dhý"  a OÄïÔ?ÐöÿØæÜ_Éf ¸£¹œ¶6ÎbCçǃÄaŒìÔò(?Õ«Ú.¤´óçA$ôºQš£À)ñÐ@ô]R‡µ\¿ú %x@Ì?Q#cX£~^¿H B•¤²Óeà*ÃX+?dòžßV‹Œò0‹lR›/¦~¿^@¦«v€E¦¦T«²Hyx‚ .°PÁwD£Èø¡yuØøc|œ)V4vmƒ€•¦Ùñ¨<¿Š£¥Åªÿmçé1Ñ1\r$(+RvÍÞ¾9ü ³M‡Pó—Ÿo6¿Ú¹é˜>V®ØÞ`@i†¢ª{g:Rö*¶kjh0Éšfð·øŒ õnÞXܪkO<~ÝúÚí~\ïJ:³¯«Æ|@ýRË™§Õ‚ÙCN¢.íbQhÔí®p4%)Ñbì&Ýt¥ž(ùЃ|Ï+àIí,ÿ˜Q<ÅxÍðEfy±~b™’~PÈKBkG1FΑEôàÛª{ûnQŽÊ2$ØÁr7 ‡£[~„b_»æêÀe‰O:ÿù—•çÛÜÝû6»Øîx.ZPÞ(5¬,³ù姉é”à! g¨UgÇïG½•Õ#„w¾O›ûY^ÉrðwäƒØÑx<ñ1{€•¾ƒHЇïs]ìL?_ ·Ýq±VÑ4íP0Q“ \ðÈÃ@>I>SA²é<¥â¼V¹¼Þ×`Vê  ßr‡á¡õ&*8#è™sô®V4d"C‘ÄBùoŽ«gÀTÏ€•­ñµ¤°œLç—Þ2ûŽ„&U ø¶wF–zÂó2MtÙcœ’E#‹!‹wý0g¼QÇLgvM¯c¿OL:v Î ^Q•åa™(—†¨©’m “Œ]½ïRRûõÄ1V^Ûئd`=vUq¨“Ü¡ªz2XÍéøJÙi»Þ‘>”ˆÃ¥:ˆ’TäÞ¼š&´(Æ´íª+I2%dø¤ *_=œŽæl#RÁ¿m`ƒëðÚÄm¸<ï>{­(@4LxïVàXèæ«f*§fz‡Ù$f¸Q»½È“àOÓµ=u{[iC)'z4”ÒµC;C¢²k!7+Ij°[¹Ûi…>—¹$<¬Jè˜óbÇ"M€Ÿ‰Sœë@¿ –P2ÔÚ›‚\Á*žò&ce‰Üc…_ŒÕ,ðì0*i¾Uv`wZèy¨þT•ÃñCÕ˜8^˜K¬Èç@Ç©h.˜ô’´(ÿ¸ 5`™'ic+³´êÌ=Iɲc÷tA2%ö’°j¨¨j-#Kq¬ß× ¢åÁ¡³ŽÓ¡íÞ“œŽ€‹'^ª6ÍÁ^g÷ÔËÃbOuÓ5ÆÓ¯ex|õ+«ÚÕr‹íiW5X< H"Œ¥«J—æZâà¤\)@*1Θä¦Ò eJÜ‚¿cµç®*žÀü‹»âIx/t`+Je^LbŠ…RU²PUÂÆd+Y1ÞÑP—ÒÒ·uͶÊM\aÇÅmÐÑ5Ę M‹d1$?<êÜ‚Eõþo•‘¼ßñéU†ú«t=y·:[„Š)¼EkÁÐ3V26 Ù«3FKÑ|öúy…Ѳ0J2ï.‡KYÙ:8¬Ié•?$¾š13)ïE¬ÃDê9Ôöe?øGŒš•ÝÙFôufœi­0u„)·¾ž×Ü:¤Ö>®·(ÁÒ=„¨Õ‰âëÅNDÔ ÜuÌ¿$)¢^5ÔÁ…Jå¯lË¡]Þfh¾tY…Rç‹Â*§.lPvÓ»E’3½¬r–°ªå73ù¾ªœDß—'sû=}Ð~•’³?É)ÔoG6è:PyÒ4ÄCœ*éÂyÈ'Ú¶¦h]¦ ÔŒÀ¶©DCVúÖûþZ‰Žã‡YàUvýó¯>úü£túüã(@k±L@ñ™?ÈïA¾R ÍÙwìñÒhøRQ]Ç]VÓªÈãäj8`Û^êûJYƒéÁYlÁð¸üÊ–ÝÏh]…Í%¹~ú;ǵŽÑ ?Œh>5Hüœ‡¹ãWh¡Ë!o ZVæ™Ú{7…Cˆœ¸Ímmlkœx˜”â]k‰K‡*öŒålçÍ¿‘‡«ÿ á§Ç›ÿ1#žH endstream endobj 1951 0 obj << /Length 2363 /Filter /FlateDecode >> stream xÚµZK“㶾ï¯Pí%TÕ  ø¬T.v².ç˜ÌÍNU(’˜P¤Â‡gä_ïn4Îx¤uj«@£¯ŸZ¶9nØæ‡Oß=}úò5å›",Ò(Ý<6œ±PÄé&ã ¶öQ…‹²©íY¶# QøÞüºðÕ”/î•÷X>ˆˆ¥Ùï?ŠÂœç† ?áYp–e;`—}}ÒóèŠðnð/Ì7=>uÿñçÍO„¬×ïKƇk)»ŒK»´¶Û:›Àû”cmÐ[kNâñVØ•÷ã.Šãî¢tÚY÷‘…;:¸åô@§ÈJ¡óòX¾¨ËA ¹lt_a„:m÷¸fF%Å^¼‹ ~Ù×.ßEFCÄÏÈP›ââ# ®÷AÀ 0¾Ðì&âA ÊY&<óÅq#2b#Äþ8Ü瘇 ÏVÊÊXÞÝuand ñïþ^¤E ×IìëõZŒ…¯ÚƒökqƒÇ]à`m§8ÌÓâca›ÈYÈ@ÍKWt°«‰AF{bf=1{6;¡F´Oýx±'ûd~ìsê_å]Áè“- âÀ ¬R2·Å\P+íÍàÉàƒg(¾>ræâ#f*A[{äWeaÊ<‘ý6tÍ·¡K°Á5Nð #%khí&ç®’ uŸ•…Q?@ïˆûÐ;Bogw^+™}ã«®…!°çÓùãE< cuœ‹kíQ_ EÔPª¡.„/R“¶hp©oÄŒZÌ1żõ±…h·"Â4JŠPÜê›éÒÔõd‰g=c ¾)ȤaZ,ªNžÿG‹ö]à¼K—xêUî`h+wèa;M³ªB".„ÏêE걌W_}2«V ­@ÿpéÎÂ#I‚Û‘ ‡½7{õJ›Ì)mj[“¸¶ÆMc€åš]¾ðÞôØ»o(Ó~Ã]ôgÿ÷NeuŸ?>†E2_ ¦(NŽ A3ÐtGùØùÄ#Þ„g`|0<©Þ>qk¡õ@¤o…¦±üz?cú~©-Ê27âÙ†s‰œ¤rûÃ7ãõ®:7¾©_çºt-‹%ôk¨Æ­šïzÑ4Ê/f®e~‹Sn<>¨41Sµ9œ›ÚÕ¢ãëªí[Õ-iJbsa€~öY†ö"€Ý:¦ÏC×ÔÕZ.À5%¶,eŠkNûþEq¦éâ‘ÝïDo{˜Ü÷0…ãaríar×Ø ¨øU"Þp™ÃŸd4?•ƒ¨’€e`]ñ} z¦Î+?KèlÓÔ>ƾ¤p­nj*ΫÈAç»^-¹ßúá1¹ˆnúÙ×üh˜Ñ†øµWÑäœ$/«!p’NÙúo‡,ù¶ú¯‰1äË}ÆÙ÷9‚›J›36 .ëO0íÔŸ”ÇWwTqñúçT§ÔÁ]ZÁÖëƒoõJ£‘p û ¡ ‡ÃÕÿ ñ·§O¿Q„µÝ endstream endobj 1959 0 obj << /Length 3086 /Filter /FlateDecode >> stream xÚÅZÛŽä¶}Ÿ¯h0ÒlsERÔe?$ñn°F$ëÉ“m š{ZZjKê™ýúT±Šº gÖY;úATñV<¬*ž¢:ÚÜm¢ÍŸ¯þxsõúI7¹È•lnEBÇÉ&•R$:ßÜ”›¶R©ëŸn¾{ý.‘³¦:•"JÈ5:´íÑ l{ñþùúÖ³Î;m´ë½S)5±·E]Ü.X)˜&"Ï”Ÿ´=UÛõõNë|k¯¥Ù~<MB®e´-öCÛñ»+ÄÑv8Z’|Ü«žÊC5ÔV\ïLšnßHviú³ÝW?F‘²å+%jê|¸4ûaœ¬·Cºƒv;À/7†´Ž820kKÏ‚½UokKo÷×Êl‹ú,X"Çìd"OÀ¹e|r*‹ÖÈ©L.Ã&*HZYîåö;]†}{òÒ#Ý>RMiÉ.õ@•ÅØ(RuMsÀ˜?_ ˆÐSRõC5©jßvPsn›rÚ媹#Û%ˆMæ¡¯í½­æ9L PŽÆ(ô5Ì—Æ0_ƒº•¶Ù#$©†)„Ä™IOp‰n%P}l»êSÛ Î! ®¾–ÐÅrKrÁ6%jêD‡®=QWBD+Ô¡ÊCŠ€oh0{ÜEDEè$^â°R;ÏŸ¨ "À˜ 0ôù2¸¹àÍíà‘ó(-)T:¢øÈM¢ Øuª3l‹,3 ˆˆs¿Ü*ž dD–Ëͬhš„&„uAXâù>çK`Ÿçóí1(àC`^©E¶3ÂûëÙùÎÛ›«Ÿ¯$ÌmäFÃg–¥šHoö§«~Š6%Ô¥ g›×ò´É„ŒÑVêÍ÷Wÿ ão¡¼É&)+w† Ü2ÙÂ4µÐ2C†Ç‡”Û"6VsS~n«âÏΛÕ³F`Pí`Ù~È^¡°²W”½zÓ#CU«ŽÍ:.‡ cØã†$Öc4uÑAÇÛ~¸”׉| €áM,ãË7È$^lá ãYp"ïFŠÓ¹ßÈÿºª ·Ô:š’^ŽÎ]– €” h«ìyãÍŒˆŒÞ˜8&Î~•õŽC!©ß°l˜;‰a½/7,EW²é¤©™r c»®í0":FoǧÛ!~&Œ°/ÄÁ0²H~RefÀîå77þùyà^ñô(!ŠÙ’Ê@Ø,•Ü}LÎñEh„îyä6£aàËñÚ™³DX¹NPk;O/ ÐÞ¶—¦ì©Œ¦·¨Ä5ù=Š•ÓC 4þUíÒËGjdª*já.›ôÎOÉqÁ@9m´ nŒÂ[°q§¥rƒnÑ÷¡£cVýqºÿ*°1±Q4¦z¸˜ÞZ¶køAÞÖÝm|ñÓë™ ™ „¦yé*Fåýd³é$-…N-Á/õPëPj’h‘N¹Õ‘Ž©Q:c”FÄ™†%‘ – ,:uWG»Y«‘ö¸c|žÂ'Fé•Í‡R¤LDS„Ÿ‡ZÞ9Gp`µiQ@‘%`äd×”^mww@3S Ó•²å;à ¡„°¦Zg-þf UÓØŽ‡˜_­ªÔ·I–vïú,ìZ¸Ô%ÕÞŽ½Zœù¾"—UÄûŠÎLõ콺!A¯(+öö’ÒžýÕŽÕ–üQ>—ÃjÈÒì7±”,ÉÖ2úsL÷̱œÂ†ç .ô-é b@‡­šž/˜ºL!“ÔfZ4¡¤ÐéËWàl=‰Ÿ±uPbÃxi|ÖæñÚÅ„m^%r4•¸øÚÔQ ¸CÞkÛÜ9²eÅ[À?à;Ì,¾' !?æ¡ØæQ8Ù<Þuã>|oy,·W¿8öíxÅˀ票c·%ÓYˆ§8û0ýmùe$1þÞœo Yx´=—Þéh;Ôçƒ4á"Ýzßôƒ-`|™øøô¹s38”±0ø¾œ%x ëžôð‡:–éPÇ’Kh¥ø:Q{îLÁo}–ÞQ:†ªôÃcm¿ù jà> stream xÚ½ZKܸ¾ûW4|ÒnZ%R2àƒXo6Èîö{ðæ îf÷(«–:zÌxòëSÅ*ê5ÏÄŒ>ˆ¢JŪbñ«‡:Üœ6áæ§?\¿xý^ËM&2éÍõq#ÃP¨XoŒ”B«ls}Ø| ŽucÛN4çüêŸ×}ý>1“7T¦…É2àçhe¤èEÈKl¶ÊH‘défxIÙÏUg›*/Ëû+¯øø‰tÓà›4üð¨Ôd¹8&xµKcž›­¸”O‹,–þ…¢½ÚFaô­=Ш«éZﺼ¨xîÆÒ€ù5?(PìÛ«( ò’f^Ï ñÑí•Lfp(Ú®)vWQôÈFÀt¦ƒ¿ÔHxgGòæ*ÁÛHê ®,j´ÙšLho¶°Y’ûeÉ2 Eѳ4h/v_ïišd‡ÁªHÙC‘ˆúœW½ÛGs[ä¼Hs%ÓàÔŸmÕÑæÏv#Ò™ˆ³dºÈ~ÅM`ßR1áav7n3`V) v,:ìα/ÉJFBErn„â¸PvM©4¸»’aó*àÂÅ9ïܾÃí b[Ÿ™I ì6‡ínêˆ)aÇâD×~¥õ£oê¾dnûºb÷A©Üº¼9¶´h¼Öù8è?ÓƒäO"0H5Ž1Ü0³¢:Ñ=S©àó–}¯·-=Ê«ÃŒ& Z ¯/'÷uGø˜© ¶j‹®F2•4¬#[t—ÏùùRúuv¶$—]Ó¢(Ë̶EâÐ/â>Ò >OüÔÔ³Z1°… cbûûƒªLû¡û%JDR>ÃûT&Òd „cGì<È~W÷Õ¡¥1JŠ×ááð~8“7žÏ=]öè¯/;fê°=ï*й)¶äÞ™¡Ž–Gœ¢v,ñ { îêd@[“ìýúÁö”=_Š¦Ø;˜BŠþÜ—ù ’Õs£ƒc_íÇ;:¬¼T“W'~Lµâ dwt½»)ö74$vQ4ñB"m, NI+šŽ½ßX Kt»ãë]q`¾¶ªû“_¬f—¼š-/¬+<2Åv¦“&Fû Bk8dÈR£?;åp”hê!Ó:ÈI68ñÙ~ßã9qÛ ó ÎtF×`¨Q*ûRp€¥‹ã€×çâp¬ROÈHÃâz¨ZYð! ¦f{})D¹[Y"½6Ø#F=ä(É(q!ú§9¡'âØÜ>*fÚ•¥2L<<ÒÞÚòÉ•À·ˆ+¹ŠY¤æA*3ådÇJÜOܱ4AÕÀ¬evèéd– / Ûå"‚¸÷aS` ÷ a`†0MÌ2£I†¤'šƒ³GJèÌÐÚ¿Ø.ß~°'‡Ï¶m‡E~©¶l߬ØÎ7'wïÑh@¥"Œ¤ù¶qåÔxvàIÁÙ±#"ÜØBXSÉôâ-:ÿ-žÀº¼uøæØ œ¤ºiÙÒø6¼„á´s¡i@¢Û#‰¦›#áTÛõ‡ûÕÐæ‚ òÃà;u›á¦èr©Ëûã i8zÀÓ²îàX¡?ÜÓÔ$:` R±§N¿º¢¢8d&œh–(GÄo§+ý ‚ÁAG›Üî‘ŸŒ–q fÊâ\t-ÉF’SLL*'&m1?‚¸à´“˜~tÝz°Ž Ç,Š^üöúÃ?~\q©$f<Ž¯ÂxCÁ°± ™²{/¹7†(‘†‹Ð:;8òÁ)†$ˆ¬ (“{wº‚'…ƒý(ö¼—Hkk9bê¼ ÜÉè HÔ"IbO³«pñµd&a2ÚqšG‘Rv@väPíH®v$úó¿z—nJq0‰§VÅ3ÅV„ô[¦ x>Î3;†&öS—S†˜S¶‹'tGB&>6†AÛ_.NTœ¿çùÇ= *K£³‰G‹îíûwûø¨G çYÈصkÏòºËåRÞs."àåúÊĘ µG¤¨¡^FG{`þŽW GSR±æepzR3¾-³ê±‰×œƒóÚ(X¦Þµèú­”Ô}·‡b¨eÊK]—î¦\<ñ£ ð½ øñmðý¢â| F›98Í`̱맄.ÞKµ8ºñƒ£y TÉù°¶&&“ œ‚>¤¢:r¸+kÔ'*ŒtR׸ÚßÍî}¶¹2jÅûÁƒ´1sxk?_Ö| #|ŸâhlyÀ8§ µzFÁi©·KIùÂqÐZ˜%¶²FÆk„`LðkíêBùlÙ(oãÝ~rŸcAì‡j§¥aUWÛå¼!r— òrÓ ¼öyË£cݬ%Hf3“>Ët1”ŽRM2P—ÖqfH “-;óðfc• ã;(™yÖÒ5oïÏ*AÉF÷¨L£¿x[´Ü¦Á» 7X8.—‹ÍÁL'ß¹HMð®t­¶iíç»n[AÍy¾ŒGfÅ·]¯ù.àŒ¥uþ80¥Bi³L̽æ«÷ƒqQDPWæŸ`²Ìw”&Œ4s8çAÏÓp~Ç[{œ.Õ~$èÄbŒ"ù—OŽE®:${m…dêýfÇÄŽîY€"§[8h¡´· g)ÏGk¿Ð@Ý|r Æ{³Ÿ+Îõ ã s' '§½8“A4Là½<·=p¶¾:YäXvÒ~tó,‚©«r¨íîÛÂ'¨$ç ¾EkùLdÚ´úšºç7L|†î%ú•AaŸSõ¸ 8T‹ü^IîÓࣖ˜Ñ µ`à2.—XÃͱ©Ï4êê‹ÐuqÄ?œLÓ†>¢_Ž…Â-p¼ˆ0 y É„ŽÂÑ \Ê|ïƒ=mf4c?ðõ{9ý†@lPC~úçÚÁI8íÆEÚ÷d€ñØÀ̼Ï[W†EÒ,–ñ„ĈõÁT!‘¤3&)ǯkAdéRø|¸æTªâ'}ÕùÆРa™S§×ëGXŒ‰“o‘¡¾-]¶§žAjDÇ«½äpÚK½¹|{‰2rN¬½7®¦ãüo9[JKO£0:Àî±Ú%2Ê×µ(ðfñÙ(Š F»¾¿:æ/QÀìâcÏLŠ ±t&ÃÛ—ç¾|œßmºUÛPWAaj_Ÿ ï,êp’PÏuÓJDZÍáãkTƒrçû¨6Í÷ÃY¾ÿÅâ¯W rýýË'»ߦYÁq£Å1à>éÖ9”.ÕKEäŽÝ7îDøâ°¦ŸÆäÂü?w®-þóðŒWÝÉùäE ìc”|û> 4æͪ²)Ô/©únÊzQ€æð„ú™2‘ß¾Ïù®îõwVd©Ë¾³ÿ‹êñ7ªþ¥Ý—!è¦Sýc#ÍTãõ×ÙDÃú›pòétÇá‘ÓßÌô×ÙÜ(¦²<³˜:˜IøÀ+¼aHJ¹ô…ò*R2(\ ­)žÃ•?Ûc ©nÛ‚š 0OE¹Æv×jRo%Ÿ^åˆöß½kL¸çtPnX~—Sã-¿Ðuø^—øfz²-HàÒF÷¶ÿ˜a48õˆ¼iüׇß\ƒ#4œq„©·Hhø{qhk´‚ùåØÆhê»vÍ°t&× MÇ›ÿð1þk‚t³œ/µ4i¶«/`|¦Ï@s²•mÆÿ®¸ÿl0ìÓãM¨}ƪŒC!¥ž[e¨[&ý¡Y6Á¹Ã×”2ï‡!ŽéCÝÿ\ͺ“¼j½Xýï Ô›Õ•¼~ñ_Á@¥ endstream endobj 1974 0 obj << /Length 1470 /Filter /FlateDecode >> stream xÚËŽÛ6ð¼Èš+‘¢$Õ!i“"½uë¶(šh‰¶‰êáHò>úõá²ìõ&s83Λ£0ØaðóìÝzv÷A¦ÁŠ­žëm…!q¤Qı Öeð÷"âñÍ?ë_î>$Ñ„U¤ ÓY¦mÛé~`]­wº+.ä/E,Y–Ê`ÉS@ :û¶,Í`ÚFU7K‘®E[릇M.Í°'´ià’Z!'!Ô¦=Ä5ì5áúáXÝ;Aª!òÆQUYêÒ¸‰íÅáCÕ:yF iÖx!¦Æ' K¢Ôo*µ!® kÛܹ’’˜Uwe‹Ý±ÖÍÀn– ë½Aeì4@ƒÙº#Øj+ª$Å¢7Í®r¨‡.A¢QiÝ¡QP3˜ÎÑj°Y y¢í-¥AÛNÕŽõS(CçzÖÓÕ5HäâãÏìêZÔå8yJ'pE+´Cy`ŒnL32@™D04‰F…ƒŸ®#ZÅOcÁžm% qÊdÂ=ç4tõ>§Ë±Çt±êµN÷ƒ.Ìöù¤3zbÉcÎ$ççÙ·ù¯m›Öà5Ðɸä…]»ÅÕÙˆi({BÙË>…!·I‹ šª:öC§ë3 ï§Tº°ºÒhTï5„U´ PÔ1«üªëT³³f#º) =xýj­è`„Å*ð7_é)}[;Ó-ãÔSç÷„êÅÞûkaæ1b,ÿ§ÊÔ¯•É˜û·Wä@·É¢1¾ E~MÊ© WdXè›E|SÕÕœ/vϘeb¢yâ{¥D,“Ù7¤}&£SSÂÙáýz†˜0ˆ d’É8 ¸LàÈ*(êÙç“Ò’ýj‘þ„CÜ}¬£à§vö+ükåÁ^rùm/Æ‹þئØ!šÞÙ=®ßuØ”¦´‡7>'êÁ\Èå]ô jQxVï²/6¦)QÊ$Ó8œ°É c:õVL:Ê2ó@â˜I:j=‹£{œ¾T†Y…PÚ|ýî FJ±x9ÏñN!Üú)Y*Ý–¯|þÖ& ím,,Ñö|þ‚옟bÎã—CÒ ŸlœÈÌŒnˆ“t±”Œ;³`Ÿ`r|÷ïÎ2G'KþPEaxÎʹã›ÿ#W×Vóñl:UY¶À‘s¯×Eùû¢“/¿Mìƒ×¶½mÔß`êÓSJ?àíã«ûÚ°¯_K¨ñ…õgF“²•\=ïÚ¦',ÍÞþá¤f?–Ý.ðàý‹–ÁW ã±ßc΃Ø/}’ ¿Äx`{l 4ç¥pµøM»¢É.ÛÂØãʶ°Ï°û4£¶×ùF¨‡r¢/4~P<©úcÜÕÁæϽn®=1):μ0ú=>j³Û½­Ë+M¡ã„ÑäùÜM%‚ãœÒ´d@OˆG•ˆÇ4Eu,ßùG(PýG(O¼°tá4!ìÎ`û@3µ;C³ï‹ößÿ"%W endstream endobj 1967 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/forest-arrangement.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 1976 0 R /BBox [0 0 720 612] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 1977 0 R/F3 1978 0 R>> /ExtGState << >>/ColorSpace << /sRGB 1979 0 R >>>> /Length 3211 /Filter /FlateDecode >> stream xœí]o¹ñ]¿‚8 …ŒÄ{ü^.Š<$Á¥mÐ=Çè¡pü ³[ñJºZëkÐ_ßrø±Ž$‹¾§ô+#Í ‡ó½ä¬`ï™`_Ø¿'?†ÌðFs&”Ækdã8Ó–ãÇýœýÄV“ï7g~î6ø²s¬ü»¹Š?¿ý¸åçoÿ߶†ýgrqÉ8»žöþ}™ÞpÎ>LhõΫKÓX\|ÂÞÐïRwøÕÎß÷òîþ~à{~×\5rßïFï•Ïp³C>Ü&gå_Ô QiR-Y–'¸gìcÒš'b þý®#£¹–Œà’TÑ̈́延é<âxFÓ6-$²QDyD”Ä3£|»StÝêFfa&Ú¬mY?Ñ]ù{Ÿ~7Eè'· Ã7ç“ïßÁžÙùg&DCü߇zG"Þ±ó%»˜žÍV×ëåéŸ?Ÿ€w°éüjØ°ëëyrÉÎßO~8÷Pøî6;í÷]-ºFµ…-¬hdá`‹G(–máhЩ-P.QZÛ] \ ìð‹Š’MÇ ‚K”ÑòŽ 4FÎÛLþ„­´P@@6Æ¢±¦§ê„A“Ì®A‘àÓÙ&¬Œ¯gŒužÿóžI€ãêzñëb¥?kVÕ3†F–ú8Ì+ÐÀëûõj³^!CSÑü~º Ø濃½Ÿâ¦ËõõpúaÝ÷óûß$­Vm2Ü_fÈÂu:€Ð†Ûy\¯ÝøÚúàÙGîvµšž2ðƒJ ÷Žâëþæô‹B/–óÂ/t} ¡£ù ³iw¸˜R:ß7A†Q*t¯mµXÿ¤‚Çé©MÍÒP„OV‡®ÛUä²(9$$5’jL.,.»jÑ1Þu 6¼fçAm žàx ¯²XX"7©­Â/iã¨2«Š(Ôˆ¤6[ñ´CûÆ #µÕ,MÄðÐAJ«q–@Œñb‚³Œ«Ú¿iÝ(¨ýÖ4Öxâó7/*Ö†¶T„£] ëª<–!ÊhçRw5š#r AË_•$H€pþvÐÕ„K /‚­Õmφ áæÚçh°8iTM¶ ú"æTMßAôEЮªä÷ (ÂN(SÇÀa]+""¹ž<ÇžâUöóä}Q}¢«ˆ? r§‡¯® gÁ“F5©^AæÀàÉÁWy r57>ò(í]á6Qòw¶¢ÊuuºŠÚ‹^Äœ® ù¸xŽ8Qá0qñoª­¨3´8†µº"Øiñ"ØdM²Œ‹C¨QG%êM^DZ•³ê¢Ì=Z{oœ)©ëž]çÐÖfg¢u²Æå¬? -ëœR5š'r“-<Ô PÖ¹š»Ì™®kTWžr<º€£_2À5âòp~–K¼0ȇESøUϯsÀ:jWÁÏtÅ)Ά€´Õ^>û’Á‡Ïà—‡NÞß]ÀGÇ=?§ëùåÃ!”O·a¿Úóã¼^ùLõÇ…ç'„·‡xŽ|é(÷kѾ²1ÆË×ÖÈùå äÐ…ý~¶ÎÞÿò ò“Áÿ¬õû•ª^¾|æƒûÕÚÛ·• ôeöüò ú‹ñú³"Ø÷þœOxŸéðJLú `­×©¿_ ¸O°–x+Ó'ü{9À|Êù«-Ïo|­‰pŸaKú‰ø{­¿ÕÄHwÎÏy˜¦UîÜ)|Ìê~„ƒ] …–Úµ~/áž(À}†;l¹ûŒOp° ÷ß)ç/’&xƒÄy„ûkƒ}Âpàá¯ö´õ"­ŠpŸaØB°-átÚb¡õ7D‡ð8î3 ëzŸà Ót?ìâD¼ v!Xb–÷:M÷GB'ÿð7ú΄ <š4"8Ýíoè{:f~Ž™†Ûõý§éæÓ ›­®Ù¿N˜ÃÃçÙýøy/sË5FDæŽã gg—ì¢3`oÿzyxw#e‹œ§ãM†Å›Œ««Åj6̯+$Ã;e°…ç¦âMÎj¸?ŒÅ¦ëñ Qy ‡ÔSü;º…sãÅ<ˆ c>b^ÞÚ‘ï!#¥å`RðΠ¢ê·>‡ì¦„Æ7Ö¹Ê5q¦‚*Úá ”°¤£­‡${(]ªR[îÝ”8Æ@Úú¨¹‡R¥NyëIÚJ›zâ­O—{(]ê~·>Øî¦Ô"õ¹[Ÿh¶Rúi.¼Û' m?ƒÙCjSóºýci—úTq°IÅ“()éî•8Ø“„i”`F§þóî…x%v'"·©Ý¼{!_‰ƒ}ŠÈ»Ô]Þ½P¯Dr¬4›õm*g³ÿö‹å¡ÆÐ ;ÎDz*ð–ãÓm&Mñ½{è·ËËC¤ÅœéSKÒ€¬ôcMþ*÷ëbÃúÅjÎfƒî›ì협MИ€¤ðù4}ØÌÙ/3h¾[Þüò4Úͮ¿]wCO²õ¶{ß²¢EÕâ¾fQCbyƒÃUÿÍkwÆýTØÙ|u3ܲõg¿©aqu‡Ú¢ƒ;è«’üÉæÐsÛìeÔ¥á]B!¸D‰TÐüË‘¸Å³´’IĈ< ŒG³ãcŽ#òÑ’¡ã÷4þ0#–„/–cqú†îõ€×àøÀ_wtV}1Aˆ³OèGqlfu3ÿ4 ŸN u?É*¥™ïŽæ­¡{ó³b‘T>þÔ,EHïLþRÚ0–ąÿÅeeë»æÄ>€Uì[?I^°O‡a¥JÌ ¬a®d‡Uó”hUëçyóV1·î‘ä:+fìé¬0ZÛ¯ÈÓGø}³§ƒèéc~ <ØÓÑlþ!M½§/ ž0œ^j¾þ²Þ°_áÁÒʬ˜ovô8†ÞîÎ|†Å¸#óíf"³hijëævÀì‡u÷B\6‹eÇV(ËõzµZ8ξªÎêý+IIùsJ^¦ÒXûÂÔ3‡äï=1 z|Ièø’ÐØVÇ—„Ž/ _:¾$t|Ièø’Ðñ%¡ãKBÇ—„ªö}|Ièø’ÐÿÙKBÇѲãhÙq´ì8Zv-;Ž–GË~£e?NþQ “ endstream endobj 1981 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 1984 0 obj << /Length 3414 /Filter /FlateDecode >> stream xÚZKÜ6¾ûW4æ²j¬G–Hêµ@àd³‡ °g±‡$@Ô’º[ µÔ%'¿~ëE=Ú{¼˜C“T±X,«¾*N°;í‚ݯ¾xõæ‡8Üe~«x÷pÜ…Aàkï’0ôcíÊݯޱë+;øý%ßÿþð¯7?DÉb†Îb?É2àG´¡ŠèU KìîuúQ–îîU“4“ çj¯âØë¶ê?îÃÈ«J‡¢»T–{åØ×í‰ÛÓ¤KWV 6#ï· PÃ$þþ^G©÷²êz¦³õåÚ,çÓß‚(°cqæ^nûÎVŽ¹²D‘÷XçYÞüùé®ÇMróý K­š v÷ Å,ŠxË >lë•vnu R‰Såql‹¡îZ6| »S!®"ê ñ«út,wŠ®‡#ºvmÉý¡“ß³PÿQ·{x¬èÞV÷÷*òò¾ÎÛbÍðoÜCö*ðÆòžèbïTãTæÔò7`»Â£&ùWÛ¾V}QµnŽ(Rf>"­Ôt,¸»YëØc­#Í7i=4™¯œ Qç—_T¹öƒìVã¨m‰ö@€Y× +‡Ü²¬ÊëÚé|x ¬ó}èàB¯Åf#„GÖT˜*_ekMÉä@–ãö%úúj.̼Ÿ»AH†s>¸Öj]ìÚ¡‹aìåkm…üéZyÓ< ûÎÀûGóIfàž`Q¾(LLg…¸±m´–Ú¯|T\ªD¦(šwmÞ ¶c–ÆF;Š,Ði»¿þw´2'çÐæ©kó†?3#4(!"«‡†,/Î Fí¹Cƒ}l'¢¾B¶ÚGÌû(»•(‘×W`”º*¨k`²“|¡®zxÚƒ—€3ŠaÕ7+:OãìÏÉý%{M}LŽtP¹|Ž¨«jÈkºQ /žËD3Š½VEÍÚ„ä¶rßÁ¦ÈÁ¯eL´¯ŒvK~Úˆ©…“ÛrÊSˆcPpº6˜ºÐ/\‡û®…óÿ|ÕxšÈñ¼ã‹|·±¶Q~L‹“‰‚ª$„K)Þ¼Q >¬±D†jk«Ê“:^`8r"ßÝõÝ£/[„\åtÒÏÐñZÎìV¡ qÏÃ÷Àõ£²Ì×0¥çŒÙm.íaañ:بÐc ÙoK¼D9#qØø]zÚçî‡ú¯ÊþccSx/´CØ&vß?¡J!WÇ}xùØ <°¸ø ïñ\µzM3?U¡ÓÐÕªk>ˆ£•á t±AV‹!¢*%"⊼3ø|•]!%䬩Á?ÎÃs¼1ýNLìŸã4£ïÜÊ“Óß$é†×VÚL DkwzI‚È{ §Aã¤<ò(¾¦]÷<Î…Že€±kß]»Î!óÒz^v¹–ñþÉÖUÍ!ºÇ¸?¯&|EYÀˆ•µá Yˆ QYˆ† G7(‹%qKíœyei8šÖÈø@¸UÛ-Á0JãÉ>šúòkøûÖLütv4ä÷W4y¿Sï$2Äß"˜»ŠV"¨MŒŸÆ`­“zo­suൔZZ^š¡áÖàAdétì4ÞäÃRáh:™0,¯X–±™pðC¶cª¦kO•°ä°”FV$ZÂC$dÒZ @)ŸI’-ì˨Øûé¸þW ê0ÜØŽÊièP¹ýá(ã)h”•­ûª$¨›°÷ÆaòÞØØöÙ*HýD½àà›& '½a££‰ÓÏo7˜d”ÁÅk«ñÏ5%ØÄÔÐB·÷ÅŽÙõÇ ¯è&O˜®›m;þÀç|9}š®öœrñ™:¶æƒ·2ykãJàú÷/õ^­î21¸Ñ!¸Zˆ#‹ò £`¼1Ù»¢›´¾+H\BØj¤Ò™Áë~8ež.nR9×ÞÜ}˜B ˆñ‰!×øt3Õ­×8iWÜLNÖd`X@cÛ45Äî8y^ïå:²Ï°ê‚%€†išº%óBïaŸÂUfÂñâG%S [ ç Éú/T&÷¾ð½ZÜ0´}CnöHǬ¿v_3zuÆ Íª…4§ ‰‡.u[_hƒ³Tâ_ªïeÙ´þpÎË X¿ïÒ=¾Cÿ5Å5 ºšÆ­Ù~˜Ó¼Ü„Éà„ƒÙ ó/`b#‘Ó¸È fMåIúaù`' 5®M7`±!5[el¹3)°¢Ñrû TxÀÌ«Þ­,éà3ä)¾Qó£;vMâq#€àuÎ{ÀQ€ÂX tš^;E•ùÑ\ƒ¼û«:ôùÝ32ž4LeÀü"ävû@‚T­Žä»‡÷ÿ~·•ˆB’3Q)O_H¿·’j?ÒµÀê™ô65KÜBPõϱI–¸ŸÊÚòÍfÔx¦ýÛ4=ß8lå›0[‚Nk"ó\Õ8ЯÈÄ7:]ÕYeÎ?s¨ŠÌâ(]ÅÕ=#ðWyB(L5ZáÚ qn-œ»Œò=’\úìñÍÌšP×\ã«@­/uSµ'ÒÁ¶eY$ôÊ|È¥ÑקºuLnAWW!$…s5EÊ·86½)swáôäfKå#ôêã¼øxø?£R’kã44œrºMq ®»#XÜT 9¼ê@s)*p~5Г¸ç¶MÚ"°áÜλ9Zz¬™Kˆ?ÔQå}qvkó3‚/žÖ2]N {ÜÚa˵W\ììm‹ˆqÎ…Å/#9¾ÁÀsénÎgaL ¨ÖdžF»‡|¾ÔÖ '½ÝЧ++Œàå!tÈ{)~ʯ£V²0™±qfknÕ¶±¡›ûa-Ÿbˆ‹Ñ+7¹Ž‚m~ÂÍ)‡M¡Xò@Öïäã¼sÅ®øûçXÓMåáÌ â@ÕXÍÛ¶(|ZÈù¦ÁRÖxººFx P‰Á@ IѼ «qlh…¯Jy¹vV0öé’*¬µäˆ]#zÀÅYž¹c÷üKìÅÊ1d¥{{Ã/Riæwo‘Uæ·Â g+ªKᘠ©<‘³ThÙ|Ôiäš™"'!U S»à|%Q®l¦VOR ÚÓLˆËu?)ý¥æâEo9}¹[Z âý©Õ©©V·˜Egü†oÓPÝûƒËrR¾÷8€RUÏo N.~“ÃGˆoÛÑkÅseŽ0ΖyxQ}ú¿}äëÔ,˜øÛ‹8«Ï"…ïPzÉ1ÿä^‹nS L86œ¶(ã¿O¶<$€SÞ|_‡Ÿ•{ùú3Ž_#K9)&h]6Åï.‹ªÖÜE ÜÂ,sÿbÅ£—*·d¸øERµÀå/X†³ݹl&pX‡È·Ààú¶tÓñTþ‰^­‚Œ«¾ø"ÈÝ’«i‡jx¬ÛÜšä=ÖSBñûØø;ýW¸£ù•Ô ?)™™7u„7ÖH¼à†YèþË 2*yzŠÜÓ“‘zKhž±g•f¾ž ]S_¶#}ÅÏDúQþJ-s3y}÷ðêS{‚ endstream endobj 1993 0 obj << /Length 3567 /Filter /FlateDecode >> stream xÚ•ZK“Û¸¾ûWLÍe5U30ð™Ô'›ÚÔ&N­'¹x]µ”S„ŠÏÎþút£|‰ÒxK‚ hô ÝÜ<Ý7ó—Ç7oˆ’›Ld±Šo÷72„ã›DJëì汸ù´‘*¾ûüø·?Är2T'RI ¹A{Û˜¶Í1DZo^b1ÿƒŽ´ûêA%@Ôômw°­¹{PA°©îä¦<–]K¯¿QРOfÙÆn[Ó|½“ÑÆÔmûng¦¥þ¼fòÎÖ¿*L½3oO)Ê]WÚšF•u‡³¨h“W¼Ê.¯kÛQ·ÁùÛ¿ó†][Û×E‹Ûƒ­=€„²(ò0°b$ÅÐ;1ºÎGä_Kµ9ÚÂà’ZÊÍs ÷ÝØÑämÚ{ ¨ç#‰k=UN˜‰4I¼Äw¶¢As ¦"S?&oîdºyê¦æµ`¯ÄìÞik˜B¯$á°Cd»'z÷|'AäD4•Á9‰áÄ1ì¡Ü›¶sr)€’U4—ÕÞÍJþ°OskMûN¶zy²5.‡#¹5 ã‚Úã„`;ß2gUÖfùé°ÞÄZð}j-âî!Jõæ”|x® o¬xœ«í^*óý-oãvEaY,FuÁžVô‹(”~ÌdÖmެ͘„"Q~øýÊ„Ð/õÄŒ>©Ï+Óh–4C»Q2vÖ¢d²é[ç"@é,=óâ=¨žhÆ; ¼RiÆÙ‡R¡He2· 2H„Žlm³Îv˜ˆ4œ„øp΋Ÿ`;e¢h £øŠFÓD$a²"úöfMøi(âôªô#¥¯91øÌæ¢Ç=â?§×©£" éý‰žN/@ïa)˜êEK!=ýèÒq¼y>˜f- Å >L^·-`ÁW ¤›¥Ó©ô…©3lOfWî_Ð9•÷ZM m‰È>­}/„<ƒNLÄœ¢†{ Æt×Gb2-*¹¬Ÿ8˜…à†A8—X㎋'`JZ§WL ì2ÔjÅ”Š²íVÝ8I ¯[RůZR¤’¹%ElIðDKŠƒ¹%ÙYRÄ–±%Á¸½íyÄÿWÔÅB¦É·˜0‘“‚;0s]^V´ncØlAÄ"” % øWQx g¯ÛZ´šó¡Ø °Ág‰R`>[‹¢"y½ÝšÊâÑðLã~7]•‡Š„N§Šú^äC^æÞN¶-;C¬´eÁt—$5yÝžòÆóHܾг0{<¶ó¾ê0C¹g÷—‘ÈtúM‘7ž&¯D^­ôBŸ×g0Èšd`“><“[ô!àõ£é:t;בŸ} ƸJÀ˜ô ¼½[ó üó/(LqÖ²ãÙGA –¤]ArR—ŒIÝ ˜|…~…ª{Y÷ÈpôÚy‚¦à0b9AÃykB²ˆÞ³0cöV>ñÉqš“tME©{<¤kîeï'ä Ë:HÆá”9¹¹_N†]γ…CRƘù¬0…,ª(ÑQ¾–EŸWÔùþÇ–h¾+²Ì¦‘—Ómk«²X “z&s4{œôÌì!tDž¡lÌ¡M†LÇ^NqR¾€X!á¥1g[›%Œr^^ðÁ¡RˆÁÙ\D6 'ÄÛÂvYÝt¹YœN7!aÜ4°í÷­T6†îP6 ^Æíµ‹$Ô®£9Ûš:ئüÝÖª;œãRWwÈ9ø€ûp¼ì;{Ì»r—W¤¼(LA’ ).ÎK)»ˆ §Ê²k^œËW~ƒ¡` 9Ì9±“?¥5Ý•8c,ÖÚVyýåÕµü–sœœÃ6Cå“ÄÓbY`Û’Šå8T4Û»¢(ÑÜœ`†§éÛ»·Cñ¤Uâ*r‰‡l*«UTžÖ’´ˆjl&MÇw{š¾MƒYK$² lQá WnjPlÞº ³~8/´ïkïTðöµÌל4ŽEb½Vcñ„&t@X€ÏA(*!ÉRgÕ*iÈ<°Õl_Ôv |“sÆ»‡ª$‹gšÿÈ…”)Â;89A¿šš@7Ûw,”p`zJ† sþøTQÄ Yl@¢ÐÊÐr`ëꅺآ;c\ ¯yöçƒáÙº†2tYX¢yhS»b{`‡5ÈšVU©G¼ó]W½°>B5bbÓ!h«®Ô" ~ˆß«/ûÖ/R‡½RR-(P£\òwæ$CöOµ3d½…aƒ@¤)ÌË]B¬’rp!9¸´(rº"Þ¨½÷pù…ÏCc˜EãM@gô‘ !`À–ÎCŽt€ ½#°Š±úUÕñouF&µË‘§_-M!2†ÁàÌúî¯f·Žµ#q~}@õö‹À?‘Þ4xîQóg<þæIs‚ÏI)c{í¸„ì93 I*è.+𦉘Ø5&'¤ÀïÛ‘)K Ûˆ‰K/˜BtZÄÑ"÷cîðC’Ñ÷·÷—Œ/ !+¦ññzò ÈõHèò-áO×äG¤— ¡Ê‚1!T™œ&„Øçö^‚PzÏéáJá@n”{äâ@×Êp"©Zqv(Ì£$]8ûz ”ă—•`ð:Òs6‡³_NB빬¸–V:r“Îaë1€Áø0!8çÅ&¥ŽÐ­ Sg½_%…Ylõ-%”!á/ðØ[‡Õ„©ghE\iW†gø4‹yp_¹› 8=÷i¿knýß;é®åœe¸AmÀ”;ÛÀ''ë`j¤ÓuKÄŒ­EãꇱHÃê ¤é´<Êi Ù&dtŒ°ôÖ‹•0\_Z)™­TÓR.žâ"Ó3;Êz-†Ÿ˜ßË%ó ‚gk}Á§E´Ìf!ipÅŒÓx6y¹r˜)Ž&ECçʹNF'ËIê ÐŽ±ƒAN°É «—¼=x1…ÙÝ$âìuóúš£n„Ïô …Œ’+6FXÆàc.& ¬Š)Cô+þF»U„/Í&žšmxÑl!•:Mrq!¹²Ò¯Þéu*¬)ךÈà SŒ‘‚1ˆrN£·òX¬û+€+MU²„Š¡¯0'º½Â< •ò7¯jS@ÂLÔq¥&iÐgi°%Çeñc^÷=„ÓmSþc÷yS•åïäZÎì/tÎ>5G%jÍÄÜbE¿, ùhûfgˆü1¯™ª‰@lÀû¿q y…i€%ÊOÐBüòž®ŽÓy‡Oþ2¥™² W0kU-Ù[‰ÓÄlª7ïíñÔC²öö'\ijóOü+GMý´4>Ò-¡54æ??Þ]Ñc`ú¦‚ɲq-XÂÉŽËŸíÖ/¼†Ú|8^Ö k…orë‚Üù˜¿x0ë˜fåÁb‚œÃ‚ ®8~à¬Â¬07å|4#2ÜýlªŠW sq€}<öâŸ}ÝÌkÿ8әߺ“½ž[F"”Ã14&Pj‘€H¾U#.ƒ4E$:ƒ³msDúÏCFužwS†±ä€Âƒh»¾àoª|k­oé•Ýk2׬Š û-Âl=(ؤÉØ‚jJø JcBÁ2Côá½òÿ¿‚¶c}:˜8hWßÎãM)Œàæ0Üïv;13™–@©µ²_;O(7‡èÿ0üI~~ …L@çI_œß=ÂÆPä ZŠp\Á1²~ÓBù™°ÔU»Ö`Љš¶ ý5û Uß+ö-uzfßÒ©ù»Â¡–pG iz8> stream xÚ­XÝoÛ6ï_a¤@!cCŠúrWk»v[±Cšmëh‹¶ÕÈ¢!Òq²¿~w"iKŽâfÙ^,~Üï~w<šŽ–#:úñÙ›«gïS6šI¥£«ÅˆQJxœŽ2ÆHÊ'£«bôg°PÔ†4k1þëêÃÅû$ëpðIJ²Éäµ´,Êèu*€:íP‡ž<Œ2Xä–éõ8¡ÁÖ¬Tó™&TÃë éëªfù(d9Is+åqNU-–ã$õrF õ÷qJƒRÎWf&¶²±‹¨Å…óŽ¼IBxù“¼ÚÝ̾_K#àøá¦Q_äÜÕ,¿p‹b’€,Çzn­',ÐQÆ»á%ž¡§3&“œy¾•1ýòâb·Û¯y‚ÁõÇÞ홑€8¶ú‘8k‚‘œ%„”ÄQf©/åüÃò@Ös©Ÿàÿ_ä8J‚]©ÏÁËq|"í ^ØÏÛJ4×cFé>»áˆ(eÖÞÓIð~Ì’ …’$Á¦RF¿Ä½<¸ó$hîÊ6ÄÀn”ýj)ÝÂÊ v¨M©ÂÎD]í›FJí<”&]PsF8žs䛦4¥^Y¦²(ç¢B.ð¤# !_&IbÉ? Ô¶©-ÕqÂ⤕£øô0Á£hp@Ç@ÓŒSŠ<·gq6ùE)‹sJ°ž£½üx…*cŒÆxz1[!`AáE˜2‘4â0HHÎ#‡¦²’ûqšhS”—ï( ~ ná§r¹,kífÜö¯cÆXÐN;‹OÿÂñKyÝgb{f‹%vÀ ~®l6 ä“)UmÉÔ²5 µ¶krq[@ži»‰) ˆâ† íÇý€‡I;9¨; eGDüuD8I<Š>`0ÎÓÇD% =N ÔDý Û˜¢!1äóãI„!åYîCD]ˆRØy«êb;7mJó,ë{Þr•µÝº´Ÿ]iVv£ÍfÏÓ®nÄüZ,‚Á`~ƒæ8ßçw7<­(€‡MoG× ó'’6‡è~R ³͘gðU–pÁãÛA¤½,;éλ¹Ž‰çCŽ#Âht*Ðyʳ‹/Z“ÊSRR>ta°$"qrta|jë-è]i5x_à•GIÞÞ€nxÿ<ºEl³qê–ãœðt_@mÄã ”wûUXvnðG67¥½“ÜÎÂ~-b`pƒ›¢)ÕVøŽa‹’t9ÆìÙgÞb[ϱÎhoUáÎòW$9‰×·k» ¹Ûê¤G2N"6àûñ¹Ã+m%?¾¹ŠF ãv6® c‚°bê©­[n[UwKU“ÇŸ•öK4—d[—'ã“<;j±åU(T{>Ô³^RMH~( ÿEÏFuò@ )y¢¢¼«hY­×ÿBà þwÀŒ8IbÞóáÍWR²§H¼[;¹SlÜðû™ÒÈà0 Öª•ÛÞ³íVå|µ_sIµªÆqmîÀtŽ3W¦<¸Ÿ‚RfÅ‹¢@¤Ÿ×ä픿3WÕô¬‘ÅÙCšœAjsrÇIÒùÖ9؃:7è T‘^9ÍWJËzHcŸÎ;æAø²žJ -odƒï…¡döñ«ª­6˜¯¾:îa´Õ²¹×µÚ³7ËíZÖ•ÂùÚY•ëé×B~Î{…ëIÜnC5…l¦gðŸŸýŸÕLÿŸòĬæ«ðë…a'î´Ïzõ•¯wûH¹‹Òõ­ž)ÃõkÐlè@@ÄÉDâC&mî*¸]—qöà߬ﮞý룕² endstream endobj 2015 0 obj << /Length 1310 /Filter /FlateDecode >> stream xÚÅX[£6~Ÿ_1#uW Q©ÔYí¬¶êÓ(­Tm÷Á“¸ãØ)6¹ô¡¿½6Øæ^µ;€ísÿÎwœ…“ÕN>Ÿ]/Î.o¢ÙdæqOÅć„Óx2ó}‡óÉ"Ÿ|}çÉûo‹Ÿ.ob¿s4œùÎb¥¨>Tð Ê ÒgÏ 1qy†“D ÅS-ä…QXKyÁL-†]ÙßaÕÓ}ïE¾Û–8òHqêl9=®8sÌNÆišéÃÎ’¢ìÎqýšHì¨%_ÿÓö•mχ`ÍŸea‰Jç•¢brüZáœÙ“ |0÷gìùùy# ¶8#űùk|RC2Ivæ[ë*ɲ’„³feGÐI¦.àÌïÔ"ð#àÏC[Àïš#½rMÁ4™ÚÚ 62¢*Œ@GiªßìT®ª fµ&s<Lú‰ÓÆç¿÷zñš\>”ð3Ñ—£¤)À!øOýâ…¦öI1[É5à•Lþ!| HZÿűo!g¼ÜhÍõæÁhÝ`ÄÒŒã¢ã±Ùyª£¹Ø ð[ ÓYÖß©vàœ’œPþG¥ªX¿(Ù° Za“:ÉŸØ`kÍ÷IÈHfkÄV­@ JÊåxÚ TQ9(M/ć3Þˆ^œ|=·V‰Q(”ƒæußz8Û—ØFÀ6­²4%5Æz~˜ümQY“N%®øê_ßzþð²yVÂfc ÒÏî ËAöÚàžÇÏ„…Ž´¡DÏ\?~)våׇoÝéPz„„RÂI<ÈZc¢0Hµ“°oŸ—9.Õµ¤Ä™eàŽÿéâö—OmÀžUð(rKëöõ¥ ¨ESç/¼,‘!›ž¸Iß ØêeÊŽFû!mžþ|ODvnѶ"¢†¸p&¾ÈNvߺÌãç™ÊDÛß} £imLu&RÃüD®›7|P97ifª·¾3‰1ÒoUê¼2ƒ™aÁ°½£XJß“ÜN”ÞH”:÷fÀìH†ûRhljQÄw¸¤h»mÏKåë¿ÛÍNÝ ¦¨æ9}¸%üØï BÑ2Í–„åZ@nyKª ¯ìÅý´š©ÕŽ)- j õ¼\\P·úŵWÿµï'à}Ûà ”oç rU«Yä©›eÇL†)‰ |QÝÈ?VrÍëI-NàFÌ”ä7ÜýqோÔ&ÙKÀLÙT‚{3B\Ü}@b]©ýeajä–HœœÉ’Sça· u" žœ5rÀ¹‡‹Bõ‹!Õ Ï16Z N+;_¨êYµ$ÔTSk¼±K<¸Ö©ß€::uU©8éöÖF‡HÚÆR}uÐAÒ@rõuÚSö CD[ß•¿ &¦súÑàêˆ$Jհ̬&¡Q¶EBê{7DuåÍ–¦;{ oÓ¶"½æY;£cì)âáKËeb‘Ò.¾úæ7w»x{lú úÜŒ3å„óD›tŸZ¶n:ÝdÃ>v~68rƸi$¸7õâ8þ±Dbˆ…ý™À‹7«ÈanL¥Â^ä[Fv—å|3ÖUÿOcôþP¼ôíæØç§ÅÙ?öæåÏ endstream endobj 2019 0 obj << /Length 1613 /Filter /FlateDecode >> stream xÚ¥Xm£6þ¾¿‚fï¤[° i©t½v«öÓõnU©Úîœ`ŠÍnrªúÛ;/Y’½Õ} Ž±gÏË3cck8Ư?Ý^\ßÄí0pãvcDZ½y`,±/4nãî͆W9•’Uâêþö÷ë1Øá…½C׬%n¨]8ZÅõçKXÌÕjË[,›å–“®Ûnº¼¼¼²|ÇQšÚAÎ+ÖŽbž—YSÉ’v¢Ì¸f;–;½ê¥y;¢…^WñG¡§ªm³Bê¿9=´ƒµÞ\ ¶©3 [ıC¿?9òoÇwà òì"³ÇÅjÎrõ ”€FHóÿòè ÛÐ:“# ËipI l/+ÚEIc­.-zs~éZfoòö=Y¬ˆwWz+2 Q0©Ñp‘Ê”!¹ÄÉòi˜¶þfô˜ÊW¯·¯Ë´Ø¶|£_È:I™˜:o'¼à’­Ž"¥`}’£²„ ,(;U {HÑƸ˜>ðTïç¬ÊhÙC“àž)<2/Û?XÃC²ïBÐÆÁÀ!TFߪ÷Í"ÇvÐ)ŽívþÑÏ9º¦Û\ÑBl"¶/ÍaàÚ‹ÀÃL3ºŽâuZ$Jÿajl«‡q?Ãì@…Úm7ÔîÙíOog&üZÍ/ŽÛõ&jvïA¸6Ahû¦µ4­À´æ¶?P³}äØKÿL““Zx•°*¢YÆã§a¾rMEˆIæ+²8)bǨ’1{W˯ÔFѧ@GX1ZÍ´ ±ƒ­Ï$®I–]Þ(ùÖÈ:=øQÀ”´Q¥Áô ž§LÅ`$4Øч˜PIPv»sï-ˆ4lã¶?i§…bh„?{Ï Yñl6°©È}BÇ­—êôÞЗÊO!¥4ngß)÷PÅ„`XžO¼VÚ‰³°ýp1Æ0{—A‘Sy²ëøs³ã«hÞ»eR¬ö/‡gŸä5Á´fš ~Th’”<;ØPŠ5Žºˆ¶£ÊI d} …So~Ü1¬§¢ÎsZ=G‚¸N¿ÜUŒéµ+¯=Äcšu¬9™ž îsöH³¬ÀB’Rkû³eó%Õ[‰o“Ï1!·'KV¡O|QH³ö_– Í"Ac¢c5êÞ¼ÿM¼ÈаœÄû> sTµr&©E šD*ÆÂ*ú¨ýSñ’W£r<,ÊP •èá ³îC•Ê/Xd°áÇï{<¼–=èÎ܃Lö©iTàXÙ*‚»TBËLé«0˜Pd¿Rv@QÇ2Ñtª¨–HÒiÊ ô=$Æ>”(mê’•˜¯H“A÷ÕÕ„ð{8áÔR¤_XÔuŒl£R&Š9Û Õ<Ï2è$ûaôгÝcO‘}KÞu[˜?Ъ§{`v–U˺£BÈõ Fêp>"1SÌPdLewÜɹÖ踯•|Ëm…Á(S¨‰3}"v3*VŒ2$O‚\…êg  `êŒ ×!_°vþ0³Õ BGíã?L¾æñ¯ÖŸ‚uÓX^‹xÇyö$âOõ¦GI0ûYË?J7ÇÓŸ]«ñd àL+†&LÆVÐ1œ¤›&ËW¨ö\Ò%ÉJúQ·í÷cÁÓNèn¾¸¬íUÁ9¯>÷ÙÿVc«sè XÉ) 'ZKŽ õÌ×|[Ž¼Ù¶pv`ªŽqxQ„›[à 3x)ó´ ½?ìÇÕÏTŸÓ}³^+ o½sºèZ±‘Z¿Dí¾kOÓ9%öôjW;É߯2yˆf Ü¡O~`ùÒ^‘Â=µË|¸PVœb«5 2æÇZs½HÆ4±}aëîk<…¾È%ÁèþB…]@a®ÖBS%ÛÛÏdü7û^¿Ö&lßi‹:hŽ‹_n/þ¹ È1H÷µŠx¡M<߈ó‹»{ÇHà%`¶½pi<6KscNˆ½˜{0ÎŒOtߧŽŸÍ'1Ï~ƒ“sPæº6Y̧>‰ ¾v ·ºv¸$ømìæŠ8þÜye¹¾óæFwñâÌéúr±ø–ÓýR/H endstream endobj 2024 0 obj << /Length 1636 /Filter /FlateDecode >> stream xÚÍXKoã6¾çW{²˜+Qï9lÛM¢§Ýì©Ûƒ"ѶPYÒJtÿ¾3R¢d%±Ó-Däx8œÇÇ™!Åvá,~»øùæâãu-–„<\Ül®ã0Ï‘ë²ÐK7ùâÏ¥ë9«¿n~ÿxº«9,J"¤˜6u»O¥m‡¼ŽÞä‡Ö¢µYµæ=Zû«è²¶hdQW£Å–‘’ñbíÆ,Œiõõ¡Êpi·ZóÀYÊš¾¤ïVe×’>',õ9úÔ®\g¹=ìE%»'NRÌÀ1Jz^Ô 0Lj¶á8H =„ýÙé aKçœùnÏ”VùŒ 7b‘ãÙ‚øœ$r¸æúi’aF×.0‡!‡AÂâÈDgš”ì|…,‰¹‘~·rƒ¥È$Ø=ÊY•Eʃ˜dš[ag)rö¬‚z»µë³À8žðuº’E%ê¹ ¥çÄJüvÈŠÍ#N’¥Ü ¢V‡ý­áD{ð›ã>-‰³)Ó Í²EÝïŠl§I$(YÚ.PÛíêC™ÓøVÌ¿¶>T9ºdí%þò•žGTÀn!j/5êG™†<0LpHxÀ©©`Åø¦øIÆŒÈpü–¢Úʹ–¡BYîɲÆ}ƒ”ÄŠD4`~àNòŽÁIÁèt9êd*‹NMñdŒY-¬]¥¨š,L†•«0XžµØJT§#­“mQmÇ€‡ ¯ú$¤ZíV|wþ0æž³Š˜—Û2mcWï…Üõ»•ÅߘÎÄ X¸²(NŒŽ:ëÎƋئfqçb?2šÞK|ßð`B~Þëx0†ü5r»*Þ§»½¬·E†§“‡ah¡ˆ÷;p–B%LÔÚE‘ºÇýmmÆú˜"‹:%DÃhÜW4½€XA,1 Ú›©Ú?P£¢xÝ…E™B9Š)EÒj‚•ú€«Æ÷Û¼ìã9dC}}…ƒÝ„ ŠßÞÁ8錓Ô0@žÔCíSßj Ñ“ä½Õ,x}æ†=æúó8Qw\óðˆ8œ<‡âU ?–¢ëDKIˆCMv¢pœ…—'ä™óÝ}Þ+üíéԀߡZùÉào2 ~ÍgÊŒ®¶šfðKdÂ/J¢rÄ¡Æ¡±5TM"pç›ã¾´9©)¯ä×Uù¨]Þ4eaú…á¨<ˆ[Q’yovb’P7­VU úš¤d¥÷!)Ö™õC¦êa%ÑöõÉ꟔6ùÔWM‹ÍN~>>ésºuPåEkjò´ ÜRåJ¡ Èûª‰›idE­æt¦ëVNÅZš=×…'®g¾Õ ÷ÄÓµÕ]K¶KÛ4“µvÃ3zzü´°¯s(³Ü´D¹j…*ƒg@P þX¼hQ?~9²s¸yÞøiå—ç ƒ’%eyž—° öß zò= wwNËôd=I±oˆ7y^/ý ÒŽ¯ Jôè=w“8_÷üŒÔX«·9“ù'þ> stream xÚ½YY¹~÷¯—°âðhöØA¼;À"ØöÄyÈ&@DI½+©µÝlg}ªXd_CÇ 60àa¯bÕW§øê°â«?¿øööÅÍÛL¬JVf2[ÝîW‚s¦Òl• Á2U®nw«&û¦=WÖš¶[ÿëöû›·:ŸìPeÆò²„óÜZ¡.zÁý°:›¬Þ„å™QѦ?[Õ§n¶qrÀô:Q¬6¢`YA;o†xRj¶ˆ¥* ,íÏöa\JVäÚþ²µusYod©[ý¼<1~fIs1DoZ"œû“­¯'O½n>®¥NªS6TÍÔ—ko=é²#ZÛô—_gæìol ¶Ç¦3žK¾3->aµIS<VjMÌ7{X—§É®>Ô¶cë*Dòv-<Ã0³`(öXYU­¡Aw®N'ãv(œ¿Ä$›g,£¶ù¿äšoèfŠˆ 3É4OÃ\oØ}9TR"¬äŒs;PIàaToÓÆMÇ:¬!þ^¥Qü²BO˜߀ î5b$G PiÁJ¡ç¨Tˤ;6¸úþâÏhˆ¼G4péëÎœhU¸(ì¾ChÐð)) ]2`,ðüòsb’𲢘> ¡QÉ_žá–måÝ÷-¼·õÔ¾³Í¹þÕ/"AÀ¢{÷Š‡µé-ˆD'#Q”Ldr.#Ú¡y2ƒ"|×þop3;¿¬®h`ã6`'…ç]/ÕÙÄ„²’fg:Åœù¥¯Nÿû1‰yÀd™¦Ï>¤ÚíxìÊl<ÅÉÝKÄž`{àú—¾±Qå P1ÜÚ®E‘ú³¹ /qú”9g%œ¼šåð‚§\oÆžO]¯Œ]™ÁdÄùrIpà*©üwu‚Ès©l°ùˆ^ÍÐÄ|›³5ØF("ÚÔí¡ „LîõöH³µ99O ãÅx¹F8Ëtàƒm –ûà½oÊRYÎq ·mËEž¼þÛº”ÉküÈ’Î>¸ôC_ïÌ©¾tÏ©(“k!Ä`°Âß £‰·€CfÞ"v—=sÙv~˶·`{°jO“äÓaâÚÖ²(øpa ùê€2º R4ݸ×òù;G?¸‘RQБ2AïÃ%Ñœ‡húÓŽ>ï -™bÕE½µbpó`Ìê—ô‡}& ¤“ø·,æîEª Xàc"X ×—À¥½7.ÔJéÅ ÔQ¼@¥à ÔÎl›0žÈœœ^^0¡¡™¡Ò‰ àÃ)þDó§jkýšy”Ê}m4"Æ`à“7v:P!ðû±s9Òü]w‹Æ—ÁÇ 8nr„Ê æŒÅáØ(4(JäR†¦P€)ø;Ácö(HÅÒQ± ¯Dþ(då eêWè9(àê…úr Õ]ƒÊü S´Ĺ¥é`iÙôeÚ¿ ýeÁÔ€‰Ìǘ‰Öõ#­ëAë:(MO´®½ÖõDëz¡uíµŽ¬EΞ¡z×s½kíô>gm~5ãEªd S½kIz×b" Fõ^p–gúsj/žß€lÀ8çnò¶¯ƒa'£äB >ôÀ’ž©N ݆:hpZŒg±h³T‘Î)88ä‰tÝÈå ½…à²p¹A<¥j«ËÁIE(3HÆ‡Ü ROjýê%ìi4‹ñ^=ïK(µÊI¼ÿÓ”A©Çá^aÅ3ÖZ*ÔZªÌ]é¢fµ~˜¶ÞÒÇTVÊ—]ø×—]xŠ{;ÒBÙ¥†²ËšBë¡ìÚøP¯˜rn¹®"C„sT‚lidŽ`@J gÂcVôs3¸¨ÛÖ˜Q ÞÒ䥱•—Ì¿0˜°k›ëu8öP,_¿š¶éh1ÝE…4ücŪÅ:š†ï°œž©oa½”<}·¬àŸ »,ÔEH&br9AŒ#¦ä:†˜rŠ˜”sôUHÅw#JdMg=…ÛYD NLÜÎVþˆ0Tx@)Ä¿zï^¯§z[ÝL˜°~ëÎyóCk„c „øÉó…xaÙ®Á’?+|}“峌;"¯4'‡¢`·9(ˆór5?œO±Îw6SÙ@'wƒ¹@™wgfoÁΗÀÄ—ùŽyt™k¨Á‹‘óX·Q6¹†ÐÔÐâåŒ( îÍÇóäk,בµˆàx0u‘l›¶5Ý‚ÙÌÍâÝlFGÔÚÒß=ù(NÑ Nø“+™Ü®CµÜÐü®¦(cZTqØ;ˆî˜ŒÒ`¹pòÕZàÖ'„ ‰@ M"üvj ŒÈŽgPå‰IÓ«¤H*¥X>ºê©Š}Z•#ÞIóä@EÙ @/ÜGfAaÉ 2@ ?î ða[ñRö”r&²t.Ž‰Ec´B1¸LÆ× å µ˜¡VÔ<úQ){K©(y  ç3/YûÛP¼"¬7°Ü yñWö._ã{!;V-$ƒ.œ”ʇâ­%l…dG^Bé´QB;BDü¥"ùöÖMÓGpÂb†9'=šXO‚ÇI 5k¼zûú/ïßDð¢S°ÞeÿlΤŒ·Xê çÐ-rˆˆ4p7{í9^IË”J>­ß¹þÁw<þ‹®òF‚$›«o0À¸ŽÉJkVŠüKÁL2%‹YçµÆö­?›p˜ÊY éK·ºsjı+ñ/íÙRI êçÁàÎóßwfߟh™— îÛ‘Ë›Ü,BÄ) \²L-NJ]yâ›r×SВ賘šäÃæ“}*ÙÉ¥c§÷±)Ϫ žœjÊ ¼M{ŽAÏçOðtÚ Ãg‚BŽO1™‚zÓ…gµ$`êjÆp`ÓCÚlŸÕ¼Œ"^Ü98ì™Wz½ÆgCÙ¢Å}ù¯´‚`kNûÃóRÿœë ò%³=Ú»ªno‰e. ëbÐõËûw<6׶ù œkÚâ MÊ´R³Vé (âP~øX³êÑÚk÷û››ûû{n^oœ®J³¼[)ÊGÙîãµrVàoSßóÎ@¼Çði.[óU¿måe.sY§Û½)/A5v°ÚÍ '|É÷p3ßARÓo ƒ„&øöMu©N‹Ç° c&N½£?>ÊÀE¿‰2ø¸VÛŸ«ƒñ¯‡:}’1ÀµéX‡ѨÏVhkHˆÃºY¢÷>D[\Pzßìí=¤cÇ,"‡rš—‹úL3¨XI^º'?G©Ð1‚ûÅRfiÁbÍyÉ—Klíšat# W)2•ßüÔuì#W«¹ŠÆ( NMë¹Å¾ùT¡ÈÃä1l€¯N„Ü(À&³õùß!ÄÁ †#Ý—Ó¤œíœ‚+9h¤[ö.·Äÿ°¹+¿¡®Ñ[xQ!ƒÛwã áW¶ßðhÿé~¦qóî*~»»<¡3×øÕåÿíjÿ‰¿ÍXy•7·/þØÔþ endstream endobj 1923 0 obj << /Type /ObjStm /N 100 /First 982 /Length 2326 /Filter /FlateDecode >> stream xÚÕZKsG¾óWôÑ:¤ßÏ”*U²´J\µ»IÉÞÚ$*ÆäHâ†äh‡CÛù÷û¡É‘(“T†ä(•=اÑø€Fw[%-™d*)Ϭǿ:2å }pL§D_,FŽ¹”y< †#Y šÅ’ Dh–¼€€ )i¾± œ¥yàY&ÍÖÒ3g ÎHË"Ô)c1FL&9b˜µ¤Ùà»$ßJ2/+‹ $ÌB•Ïb‰9ªH ðd£ÕLKERœd–Ð7Ï´¶d¸ L›gD¦"3fx'¡öhŸmq äa%:ÉÌ瘑dZò’Ép”Ñ:Ï éõ–K~MÎ3ãIñšŸÂ i"y ~•m †Y©HTZ¥IGÌê<,ÖØ<š˜µyÊ­uÙŒúlipÌFE¾BŒlt$9B2±€/1·ôFÌ-½sÝÒ±v*KF”œ§õFÍœÏV%P!û Fæ¢ÑСƒô&Ëü2ÌpG‰R À¢%Tza”$ó˨â§÷6Ï̇˜gDæ3Déís% ø›¤(@¥Y°X/(ÂWnXZ)#¨”¿AJÌ3°„¡#Ã"ˆ1jA€@”p(XFE”aQkÒpa¹pâ­"qø-b§ÑIZ#R!:Àƒ˜I+…Ñà#4‘ Òr3È] "à iE`“Œ´ ˜˜”!›–‰F3(Óià#*Ð ,/!~ƒÓÓ¸`׊rR²+&~þåWJGn€|'O=[L&7ƒï¾ËÜ—Õ¬a§§L\Á1ÊÓ.bëÔê °ÈÕ€éäê|æÃR䉟êjø¾lØ5?]\2ñ¡üÒ°GU~(1PÜ•qµå¬™SqH4 ®Êyµ¨‡å|Y0ò·”£qñ¶ú®I#Å1½¢¢Æl0¢”dƳ٬‚´ëeý"{rýZ_2÷×å¹ñ¶ªGeÉñƒx'Îñy|C¶ ±*$3×– «x„P›WÈ.4ìÀ÷~ñ±Lñ÷ñì7qvzš5ˆ³a3®fâ½ø×Õ;úóæ¾iæß ñùóg>-›â¶ª¿y¨«ÿ@ ¯ê»˜·Í•t–Åo7Xå­ÁJŽréŒâ–²Ö&®$‡ugÀv–Cÿž‰ï«tÞ\ÝÎ8Ì)çÍ ëË èæ±kí°ÎsJ¨nvðzZôgKëi¸EYRneš²Ü¤Ý¦£ÑC5ù}ÝŽœgHÚÇ<(Í‚¶Ü¡>K³ æ6)±Ëp˜tävøõ¥·ó‹ëÈl“æ(©;ŠÃ³zð¼R¬×ƒg•Â;ʌ㊃ ›ÅÁ¸ýŠÃúÊß#^ëÌ>…›¼T¯ÃMù€-±·MÙ;rcÏDÍ2Gÿµ~ylC$þ¨`[»l«ß ¬z¡Üï]9t\":ÖxhŸŽTMQÍlàØ…w–Žéx>äW£b~Ï«ÚæUÄšn¨ì’ÏâE}Ž´ÇEe©æ«¨¤ŽQqf3*~µÛб×8éÈ%º<ç â‚Ðaw&ËUð;ãÔÔÅl~ÛßNcLBÆ¡9^¨6¥£ð"_Øjú¶CÇ%\l|à‘1Þç6ý".î´ã¡Xm3¾;V;Õ–Ãá¹¥}tápxº¶kt®_TJ0´>F%m ÆG¸nwÐûðé§Û üo$ôÒ­,Ι8Å&nµÞ †®nôbKDìÓ¹m]BeõéÈZ÷ü`òTøðç¾Ç9kGqI½»ow0:l‡Eï6±èÍXlK¥×}bQ¡hTH%wšN—¨Œ[{tØG–ɹNT —è"€BN÷åZª´G™ÌøòöUÊÓ‹ðÚŽ¨ƒQ¶´AAŽ"ÿÕöz^—õ!ES²7ßÒÅ„T:)eqB<’j´sìø™`äŠ}_÷ãáœý¸hÍI^ìh1,kEkÊõÉJWEŸNž¯šü¿†ú¨âŸÅ”Æ4€SÌË#ñC9ùT6ãa1› «Ñxv·¼÷Zëí;È4[e~󶚌v¾ïÎÏiΈ>gPܬikç,å>JÿÏÎfóñÓðÅøö¶Dx(’ב˜Žg‹9K^üwQ5夼mè¾SŒ*¸v>‹»ºøTŠb¸hJ1×ÃÅôvR~Íx2*Å´ÖÕL|¬Kð`J1"òb4†Šùx.8â>*oE Ýb¸L&ÅãÇûÅ쮨ÓI±hDuWÍÊßÄ° yó‡bXöT_,öº|alÂt-éÇZ$R[ï}ȯÓS‚þüãGºuɳÞMó¥í‘×YqKöÆc²7­ö€ [¢×cMÛxêDüSGà:‚‚EÉb6î±O ý( A‹ä•A‹²¼ñØ­œ Z‹„³ †šNÎ(Ô*Ñ“láÞí>ç}.Çw÷Í|k‹Í-Ò:óãñÝ":&ö·‡Œïd6ñÔáøŽqë˜ú„µQ‘ÓC’›éBÄ8Çñ g¡hw†pËùüÈJˆŽ ݽyqÁœBéÁ {ÁŽØÀPÒ{`hùéþ Öo—}ôõ¿–í½Ížò£LeöÛúÖ—®ì+=#ÿ¸ãҖņ#÷€§Úrë¨P?©Çpó~v°#µÝt¤Ö‡6Lùÿ§ôØwÓõÄ2uŒ<*…µ£×þKáñÛ÷´hÎ7Š6{DY›mEÈ ¥ÿCî]Ås+·S\v–í¯ý_ë­_“ýÀ6áp`³jåm ×kÿè6kúG endstream endobj 2052 0 obj << /Length 1261 /Filter /FlateDecode >> stream xÚÅXYÛ6~÷¯܇•€—§Ž¶.š¢ëE‹"Y'}Hó •é£-¯ŽØÛ_ß!)Ñ’­z íC¡͹>~3C/v–v~ý0ÝLEèÄ(hàÌÁ18!!(`±3›;]¨÷iöóÍ4 £, ˆ’ éC‹¼ØÔY‚ŠM¢pããfʘVÀ•–Ï8×j> áCf”¿ò|±+Éf—I³ƒ°©vô,0ü#Ê6Øõ F±hâ³Rõ‹k£ 29ŠÔŠœ2+ Þ‘ÃÈÊÁñŒ`4VΛýCWr2{÷þ¶%(&ÑP>åyB‡Á|"›ÏÁ¦CT>mäTmp#Ó;Þ‰l¾^®«rÂ/ u´ì·Zä_±ÐlY²œŒ<~5^Õ÷¯¿§ˆ·?þkÜH»ÏI6RNã~„ô){ì’= YðB{ÝøªÖÞ|1±DkmSÊèÄzÑ6¦$úm_Û»Ü$Õ€«¨ïŠÈZ¿íúŠÏ0z)ü_bû©4N\E(´ˆMžˆ54_Ð g”ŠX߯®2zÍ”¿ÿÃçIÚ­î6ÙÈÉx7~fHŒ±&$%µ!¹ ImNBÒ߆¤¾é„¤uÛš})w“é›_îl‡ÝÎF#‘b‡Ø1ÇA„q'ÝŒ>~Âξ„d‹#g¯n“0ä ä̹½µsítÕ³F]g–$'g EAøÔ˜ DO—¢8"íp½=T…G„›¤•çSÝj%ðk>—™§ÁÂ5öÍ'‹ÂãðÉÆì®<*\ð{e¶¿Ýÿ)Óª¼tè ˆ^ŽyP Å( ›qÿ£,Ób½«Öù¶ÂŒþ£$zňÂóC«Oëmªu ¹Y¥p:ÇhsÄhч§…&o°0›…YÓ,)KóðéÝ+e𜡴½›1@:6ÇzQSŽb´§Ps¢‹O#‚")Q8«O¾/“¥„å¦>ßZ˜š™Ú Õ;fÖ¬Vùüd´vr I‰ÐòïjÞ%hCçS+p†óKF|¨>Äãxˆ W$ªêMÏ©wPßp“eÛÚBmqŸâJN }ŃÝe½‘Û†ð¯ƒôpR²½ûIJ"Ùv™õCsM.]XÝK);nÌ·nwøàÅÔM²Z¾fÍÚ!SȇZ–•¾¸ã AÏjO(ÔÐ ziŸ,Ï ÅXùÝ‹ Åd‹¥ï„íÒ„ñÁ °»–骺Oê&åe€(±€öcaývÿùþ{˜ dâïŠ\µ1”Ëï© Ó‚±VõÚDBýJ( øF|wvý½!²ªª]ùõÍÍ~¿G­gÕëÝŽûK¼ Ìÿ"qνv…çÎßq endstream endobj 2065 0 obj << /Length 1738 /Filter /FlateDecode >> stream xÚ¥XKsÛ6¾ëWpœC©©|3S’4ÎL¦Ó™Ún{Hr€HHBB*ÉVýí]!ì­<ì½›¼¾›\]'ÄËQž‰w·ôÆ(Œ/%%aîÝ•Þ)ë駻÷W×qÚc ó¥y‚  CÍ4ÁN6p'=îYË> R †vÓ [²fJ2ŸÕ“ƒý=9}­$óf$I±•ð×4Á>gÅZ-èdEØ¿œÎ"œûOóÀGÓY˜fþGã _¤VÞˆºÜŠ×+Í’ú¦èŒÖ´:H8‰ÙÅk»tc?÷\­í‚Z³ã¦¥h,uK‹/tÅÅ*‰ûXÚ(ËZ¬ÞOƒØ»´Y9b©7HŽoð类⭢ŠKÅ ÍÄØ¿KuO›i˜úlÄ0iŠàþ­®KÇÑ7F„òŒ´ a2"#76r½PCwiõ“AD™»hö%ˆà Ý¸Vj+_^]•‚#Ѭ®F$KÂôê³”hÃqŽœoFâEpÿY ,q00fÕ¿ª¤u ÿ1ʼFOíðF;Ðà„§Ôl(ÚÕüÔwž¡,àù_e¡8èÜìÏj Qœw+þrWChˆZÚ©úKÀp ,i#JV¹e·ø÷k^¬-öØ:®Í®¢–³ µ¥.˜õ|w‡á<ß™œMIì?¨†Š•hÔQ2ë#±KUoèf[=’J¾N-€]Â’¨óŒÔ$)#ëÅ‹ÓYŒ±_ˆíÁŽ^¿yg{Z¼fvRREíˆ×JØc¦¤/9„qÚ…äO]àY"ˆû.à@ਈ‰s2 l”“@ÌÂÌá~™uÇE‹bepÇW?¹2­ 0–r7¬ÄÊ.¿¸$%!íX»¨Cªi˜ÜBj5yU“¤6H7ÛÓ†Ó6×kígOʤ>‡N?Få®aó‹››‹K§”ÏÕVH7[À¬f+7+ø¼8®•0;®ikÍ០d/ P ©zpYÑÅ|K¥bZ5Ý©µhÜæ‹“ïÑvI²íüâB§Iýg½º•>Šñ†?°rÆ–KV(¤)B [ˆÂÏM àÕ09Ä â]ŸøÀÝ‘öíD8Ö¹ýüç0\T-æ?;JU‰â©î>'ú]Dk•p·I¶`&­ð¢¿Ï ž ·¬àËÃñšàT¢‘íáéX€ Ê¡µ >"ČΉ0ÐfµÛ°Z¹DA&Ás-ñ pwÖúܼC}òönòÏ„˜bAºÆº „Œb3ùð {%,‚|H½™woX7^)8t2ª¼ÛɦOÓ=k+œ2‰ˆ&Œ” ºÇ^Ö´F„ýnäzšÆÚÕì–.]½ÿÝ•}Ó›qigúò×Ó(öyåØ~mtµ ÷ÐøŸÀ#JQåß‚‡¹÷  uÂtùÈœ•~…ìÕð­.£ßÓØ^»l/£+°þb³Ý)wcÓ†êÁrJ°Mž‚f˜î—ìnp7VÚ1mpÐ"X6TCØ!H{ž­¾®\ÿ)¡ý}~å}üîà2úà§!Y7Ú-$S½xéEA[ªíšÎŽÛ%ˆcæ²>ÝA2l³!÷®Eé˜ÙôóëW¿Ý¾mÁš…l@+ùŠ«6B­«}õöI­ºV¯m3›XÎw+O`õp®½K¡ȺvÜ™|¯ 5G83ÛwÍÀ¡ ÛX>ç.l©ß,ºTÙ¹äÿ2Š­±Sàž§TZ·"?w›á¹cý±¢RŽ¼"‚ â(ìžKM/F)Ðìæ¸KÓèˆÄY˜å(1&O†ôm¶ìùóÁë£ê(±¯A’¸× Nº½vì~4Ã^cØu@†¤ýœ¯jÑh õ¾$Æ(&]ø0F†HÐU=.„¶àkZûÖ â žøé0µ;}–AÒÞ³‘œ7 BȬ'F ÿ>«iÒú2<©­/éÄ*zM*èXiSZÖ4¦éÐ+ÚµPì%`•„¾¨«ƒe5³ÆwÓä(_ÝëH—c¨å1ܯëÙ÷|3()é0ƒ{|-fâÌõ=S9œNÅ ¢¨÷„ÔqV3VÊa!Y¸H7-˜.¬|Ú^9qi³o.“‰Ÿo1a*¢ù)##ox\¸ß62—6`¡†ÌØðÂdTCXææ"ð5˜_·‘†nì¢ìÁÌØMÓÔ®ä&Ce:ÛQ·,×bW•]«Õ¹…i'ÛD¸l[—,Û·RW¬1­ £1m~ãˆÒs1¢( ú1ý½ 5Óé#ùÑðm¿ÐHý:Œ( endstream endobj 2077 0 obj << /Length 2918 /Filter /FlateDecode >> stream xÚˎܸñî¯øb à¦Eê ‡<ìE‚]o° ‡ÝV·ØÝJÔRGR{<ùúÔ‹Õ£™õsY$‹ÅzWõ„7‡›ðæ‡W¾{õîC’ݪHMzs·¿Ña¨¢8½É´ViTÜÜU7¿:Šoÿu÷÷wRímŠB%iˆhÓ~hqÓ«Pp»ï»QäÚD¹¦c“0âÃU9–‹ÓWde©*rã®êÎcݵes»1IÈgi´ïË“åá®kDznëöÀóñ( _nM”}]n;0èP#ìË­NÛÊöîêXÙßê<8\N¶åX¹íðŸSWÔ/ß,äotª²„ß0>œí÷¾xw,ûr7Ú¦q c?¿³ØÙîêýÃÕ+èRZïö 9ÙñØU˳—A¶ï;¹aB°+›Ý¥)‘$ÈÛ€¢‰< ±F‘ì¢<Øßj`TÝl†royí£âï?ºa¨A¼‘8ðRÙ[Ö·uªUaÉë_º„q,›×¼yÁ¾$WzÖÍßÂ$šŠ ²LÕ¥ùîû£mWîËb•Â Š¯+—ä*‚—ˆÚOŒÙD¡Q‘Î…?)ïa]ÙÄ×B÷õxäs¸ƒn;Øž÷U¼ä‚zîáχú¤¹0txºË¸ëNv€wê·+O1a¦r Ʊîçþ¾n×ØÅ*Ïܶ5L‰Š‹¥¶¶?¬JØWÄ3.àü'ñªÈÌR—^ÿ`[Û¯K7ÎThK×½”®1á“ÒÕÊDÏ 7S:+|á"ö²e¤Ýöß,€‘)lהðvS¡@,ÓúS¹ö$«"̼'i´“0 þÂwê`kùžr»û@U—£­ë›1…ŠŠtÉÃOVìöó_-¸Ãfxób?U6çã \ó(ŽÒ¢méXŽÃ0 š[Ðeñ´q`Þ@>lŸ0˜ìu&ÒÓ2ÂK0àA[ñfQ¾œ?ZRW <ŸÍvVv³pYb’¾¶£jqî 2–ÁKÝzÙãÛ¿‹_TnM(n¢/"½…€9z‘À/;ßmû~Ÿì].hÅÛOœ›ÃÀð‚çj¦_âÇw2],N] Ã1#‚¹@F@|N]eÇoahÆq:çŽ÷«îšÊÂÉ 1&þñ9g³q¦…ºU£å0[¢)±j¨6­GPFðî¨ô:X#$Ç`ÌìMßÿôãªO6*O'ß½}à;—~ \ì ½ÐNÀR¶ÝÓ©A¬l õ€ïÌMò*Úh•Ë—ã+Ñ9Višü®—ËÀIM^Ž¤è\…îŠ5 þT~Ó£Bñð—Gꘄ*4ܧ.mýœ"Fpw:e«“åpâñ¼æcü óhaéö+hî·+~Óê9ªL“rG™§Ü„@¬íy…¥ÐÃäà²Y¤¸0»K#ã­åõmIE$h²èKˆT£ÚnÑÇ\Æ5o84ºš{Û£X–>¦<Ÿûîk}‚ Ã;Ö­Ñ?íeŒÃ‹½éÛoÁû—pÙø\Ž|.t›çË(»&~ág$Ì­€™§Æ ' €!‡Þƒ,ïçå•äØçÄì¨[R+çßìž2£ÌZ.„•‘}ÝVR:Ìt&Ëýð§?½ÿÆüäY“) UÌõ2ZTõ¡‡ï‰Q”‚I›$¾(cÃÂ,`ržŸíå´u;¹0I#;P`ÁwnÊ–¨îõîx…èÜãÍÕšLAøÀ\§Ó oE}wi+IÒ^¢ùJ©°‰5úQªDŽ©Yóe&‡ËbF Ùáõû²A€%M¡âXzwÄ¥ÔûK»£ºf»’âšÀ¡GÄjÚÂö`yãè}¾.öñÍ[9L ÷ׂ\R€k'¨÷O—O&駜¡#l/Um‡5Ç·Ì»$›@,MãIÒ8a*tq8e±ãÂÑÃ#[;þne^V•­ü¥î¦éUAƒy/ Qj¿c’B¥³§øÏjëÉ´ÝótA Ö­œ^EØ=Ù5—ÁUù“‚£•b_ùøØTnJ0Ö‡¡ÍÛ$‚üM¶ŒGªŽa4‰Æ ‹ƒ,²aeU-{+FÑ9TV®Ý—RŠ«#K^Ë%ñ&2”µ=+æ\·„‘œB;e‹]qƒI ¢8™Â-À‰L㲎GÈÄ~œ`‹ƒm'WôÇÒadäô`€Ÿ/Û‰ªÝÛº$È-z®\¼ò"1` ?ˆËx…Š'”E¦âãLšKfŒ2˜žp¶ëddb„ÍÞ "þnâ€ê_¸÷ñ¦Gö„`¶'Ížn¯åÔ©ØëRB0Ý»õgM‰P˜±Á·l†ŽGàYâz˜’vè3&¶Ôl‚IÕ—HÙ=© ž­}#SAX‚‚8'@Ñ K$ð‡Xƒ'I8¡ÇÞtÍšäe|F©+á¥á”¾îe8ž_F‚KÐŒóÉ&™û–ýxéè#lñ¹tßw'•ü¹6õ(NQP½œ—öݵÌ\çµ» ^¬ø!µ¡!-‚¤e ¨¡k¡qÖÄô†vaœg@ÀÀ]`QäÞÕçƾåŠcÆŒ2‚”`ØõõÖa#®"%ݼƒãªq]zÉ%!æn­äηÀuôpôcGÑ Vé-ÜCOív@7eUâÛò`ïE?Êþ2—¡3êF!À£¤å8c˜ÍØfïèsgi¼Ó‹‹×Y_š+%~/J€ã̓t9³P™0Y²å(|àÎ Š&èÙGàù:?[šÔsÕÖU¢Þ˜ÐÎêýT«c¡¼^'ß]q­û®.3ÕŸ[ … .b,èܨH‚3vúhTòÇoìâfnìâŠÄÔä* F¯­ƒ;¤±K›å"×Øåèï¿ÔåZO£HU87 Öú™±Ÿ1r}Fh…š‰Ð]׃Ï9wÄE×ÌÖêZÊ`e熥šùg•–Rj­RZ¥çNô—z…R¼%KýŠ†¤:b&t—}Å3Û÷]ÿì­¼¨POUÒ`WïÅñ’Etkwuûœê⌉‹¸7Œs×¹$ÄïS½aÇÊäÅ75‡'ŽHÇ7*´2ÉU×üŸ”ã˜X“Ž²x`RòGÚf8d*Ñ/ÆÎu.7ˆuÆœº®#A5ï¨ú8Ë,‰˜[ µ²JîpöC˜„Fû_Há6«¿$¹zFÊ(wwÚÌã\ÈÜAz¢vIÙ°Á6ž‰@ÎòÃãÔlf|?QüùʾXEIä•= ¹¯ýˆKÈ€5 €\º¸ªïŸý-+[ô+E/ÿT@ |÷èhš !„:ï ¤Ž…ï†óâ*ÙHã*̼(®Óã·ß9;ÁæüœG¡Ë`ä•E8]–ExŽëmvËÔÐç²È_*ùsUáί`Ëzï=DEçH«.;ë(“y“Ön0¤ÛŠx¹’}ÏÝÖ-÷F!Ÿ¨-5wwèÝÖØ™*}äë{BŒØ°Ol.VD†N¶ãoÉŸsÙ5Ê°gòkÉ£ ¥K_`™s9l… ¹}«!\|áµm=ÙÀâI-§Ÿ}7pÃy“×lÀ\)'@¤à ðõÚPÞïZlA°ìÿ¦Lªð¼ËñrÉñŠàÓØ]Äôonˆ™¼>™&Oä;1Iq b±V±É—¬ð„DÙy.¿,……äô¹Ÿ┪Ópa÷Ƈë"+äqž¸ä/̧š!wÍùÂ+`òé&ÈVOB›ÞÂÅCNm/03Á =Ãk™BA ž—{Ÿ&Gå/‡®¥"L|îÒæî§f¸¶Qn¼¼;׋Œ8×^bKSNœsí2ä£0ɦõÌÅ•¸ý[ùˆ‡'ª:WW¸‘oã]À×5Óÿw€uSgÖOÏøsR½³ëáàýÝ«ÿ§Í#~ endstream endobj 2083 0 obj << /Length 3261 /Filter /FlateDecode >> stream xÚ¥Z[¯ã¶~ß_aìKmt­#‘"%¥HØ š œ&Md›¶ÕÊ’+É{v÷×w†3)YN7)ü ^‡äp.ß ¯N«xõí«¯Ÿ_=}£“UZèÕóq•Äq$S½Ê’$Ò²X=VÿXûfóÏçQY0T:ÊŠÙA‰T8èUÌ´ç_˜­ƒÙ[™%‘*òÕVdÐ(‰ÈÝKÕl¶BÅëÌpn_,,¯¶I‰”w÷|6›­L 7‹;™Ê¿Æ*&*RTò4Ryâv?|¼š/_[ ¯–TE”eÚ Š ÑÞ—õþV—ƒé©>¸½\ª¦ºÜ.Tin—é¨ÜéÛ·CEÓòu¹ñúý&Iצ+7Éú´Ù&ë ÍÉQ¨kÜž<$ìm T(EêL« &âöPXŠ×/›$^··ú@g·ŒZÚÒwghBy8˜Ã´«¤Ï©ÚÅsÜ›úðHøäçÇ°µÃmï–;s¯äÖ¼˜êtÜ‚mÇ›æVËd4Ž¨Ñì[Û_~ì—î¿6¥%ÙJK²òr}´“ªzÛ—GCMïèã\˜ÄFòåÈßX0Ÿ¾I&¨"‹£Ø›Á/yØH…ºnM^ºþ±ámôgçÇ$¸”²&vHë„îųQ–ÿ[:'LYÊÔäÌñ”påÄÚ­Œ“HÈ™Í(QdÁ±Oê, PBA80 Hš»E zn¨îxÀ¾mzŸÎp»ÝsÐíÊýPí™=@¾ê@r ¹nÎne˶6ËaQ=(ÛŠ”°­-0+$—X ”«Sk‡¶øUV °Î0ÖwY¨‡ŸŒÅ& c±`‘96ŒÈ<˜ï`,íŒ (YÖYíyZ§{¸2ÉìEV‘‰«H¹¾nGKÃ'!4_Z)Ñ÷Þ{Cã‚u2.8ü‰É8ãâÖE%³3û¡º` aA¶8T„³ú– ³Æ}ë[t)—ö`j–&¡É0‰ÌS¨^Ë´ Ä«£zY_ÏÜ5á*±ÎNì­%…qÖÄÁwŠÀa!p¡!p0Kñèyhá{­€4ÑÉœ´‘yQ¬hE붡ñ`È_‚Ì’Ë"4žËHˆdÊŠQµ©`DšL!º`ˆ.æ›pà╃ê©bCŽ¬0¶dˆr \á’Âk;¯9‚bÁ OxÍ úGÙYåÒ€ÚºKY“îª~€C œÞ†Êa¾UM?XÀÃHÉ4é# ïí|ªËJ* èo§H«á‘õØ<á OqŒ±ÕtÍ$—„uô1‡Š¥º3ÍÞLØÒÐA=ÕÕ©ÚÕæx‰oMÊ[ÿnÿ`7$µ÷2[»¶’ª'"]}*‰õØeͳdâç÷Ôje]ÂEf %¡mî‰$Þ0¡Ÿ7ØdöçaWÞ`ÄVq ¸‘zU˜qýk»¤ Õ†èQHÀ>ËÁgžƒŠ~NÀ!äH›8VÄ¥ëÁ¢‚+V ›ø@©Ö>‰9(3Y>CcEçEÉB΀âÉúA‘ öƒ"K‚tNæÔ›CP³tN&Èêfö@Ý¥s‚®’ªót4Q:'ãt6ŒgÊ8c:'c3ƒ¿ÛÞÝzqïeø> ƒÆ ÈÆË -­Äédóº%«ùAŠ„¡ÊVЮ씂ªû3ê Càê¤vå]– µœ:>0JÎñA×ãæ_*ÙñA°ý<õäøRùÈñ%XñžOÊGžˆ{χ6õ#5Þy>ˆ)\~ 70”ašF*›É<GEŒ¤" 9§i°åFWÁ)+¡6j¯¦dê8%„sÇ[Ò.1ç“;sîÀ¹c•»s_ÆtÚ½=Q‹y9<³Ò”&±«¸h&¹ b‡*"•çwIÜ3ò“>Xâö2A\¶Ýñ ·Š›æ‘ 41ãÊ'Üz´/Ëç—ÞžÒù!txûÃß–¢F™O÷°ð£5êèKwƒ{tNÊ6RÌ\p2¢÷éÊx.¼kÕöº<±²ŽâÑ5fqTxsÿàÈëènŒ‘E:z5òåð‹òU‡®œŠ?¡GŸ,—ª(õ”`µèÖT(0XÙ‡gGË. 5®(¼ý¨;u§3ÐoãXQ´cÁ.Ëw˜¤y¤õݾ}»ø‚7XŒ;ay”y ZÜ¡#~E±f1î"zã Nb±â&¼FÄ_™t¶ [?V¦>ôþ5Æô=Ú—d]¡Øúהꀹ®}ÉD}8ˆ{᧒ 8ùÓFD\ŒG,3< ÕwKiŽ$$ÿt‘úà™¢˜ç,•³ÎGª –WbŠ3ü à ÄÚÐaM¦ }2T¦Î4ÅÎsoEi)õौ¾‹äZ`ub˘â`Iп.Ä–ÉØUÒgbC…Ø@Å¢¼…óÇ[rª—ˆÎ_hœ¾HEéw>-‰ƒ„E ‹AY¿ÑÙÆî\E$€2³JåõÚµ¬¡£— ± D°ö>zwµCxÛSÐÒBËßB,"‰D6âHó¡Ü_>ÿô÷· º“QžÈPw´3@“Ô¸tç„1½Ü󖦧ÄÕ-^Æ Ÿr’øÆsE„5žÇ÷à,‰âÙÃú¢Â„_ ²•ŽŠLævð72Ò Ÿ)[â”j8z0Ê;åð¡?i¦ùM §ÍŒÇ3>É6ÏC(&Ìq>Dk#<ûkbþ/mY€Èäã°ˆGLþu”€H4þë(.%4òçM!ÈC?ÈêMþ—€Ç*"°Ê4ù+»oÀô»QBñÓ|÷uÙ/'…àkô ¯ý⟎DqæÀ@°¡œ¬Ç1§¢?´À§®zÞȾm†@%aC÷ª…c[³.Œ}hÛÚü³Ñ¥MÆ#¹…½å¸ Ä w—œ/Ý-â¤é˜lx÷ÕÒß>ÀGûˆ»:úWA¦]vìQ(¯‡-×k j*ÄãÛÙk¢GΡøbñÂß>¿ú/Ãh:¶ endstream endobj 2095 0 obj << /Length 2077 /Filter /FlateDecode >> stream xÚ½YmoÛ6þÞ_aì“ Ä4ßDIÅ0¬ÚaÚ I°}X‡@–i[­,¢7ûõ»#)YR”7okDÔ‘<ÝësG†N6:ùéÕׯï‚p“Xq5¹^O¥DH5 #JÄ“ëÕäÏ)jö×õ/‹wŠu–Š8&Š‘]´6.zE=ïæ¹x'Dg×\DÌn›óˆÂm®ïöº·{ V¨HñæSõVÏæ< n›•k÷Üéz[®Üø`ôŠ ¸öeñlçLF­‡Ý²¤Ižò¤Öþëë£Ó$Ëç&Yû%^ 7½6õ²$3N§·3Lu•l‚ö·I~†Nûù-:(Ƀ˜~DÆJ›C^Ÿa÷$ßo“3„4{f)åuRÍX4Ýho~ÇØsú8yó—›8#×3Pa(ҿɆ³R– ÁðiÁEÝT„aOP\äÅÑÂ-hÓiÇ­.hˬȊ›h?Ò"\éÝ3Èê-ŠÂÍ¡ÄAÐYo l˜;¹¯ªyu5 ‚éW¨( Ì˜Ó ( &à3ID÷0§¼Á`²k0˜ð¬‡Y‡SÁFÌdÍç­ó?ì?Fg[ÉN†xDz_Ou+„çknÚÒ–¬VY•ØÍAA®wº¨Í¢µˆÔÓG9# ¶ãsÝhâ±×ó¬ mê#øá}€G¬Ù·­ë½y½XGÒ|y6·XÓ~þ1x`°cí 9êÀ± ï…K½Ö6¬4d´9Ç—P$Šz›äD’‹é%ÁêYs³8Œ<óK‡¹8÷MS>ð¥S>ì;¨½(ÿƽYäÅA]æçwðu]úåÅ!ÏݨÛEÃ!7èrEH)ýfîRü涄Tƒßd©«¾`%¿² ?À7t#A àð^ ßsv¤FxÄö}òh4Ÿ”JD9WJ6^íER*ƒa(­Ê £fÁ(aT„ J…è£1‰XŽH1‡¥ :ë÷%¿VǬ@Q¨´®e1ŸþäŸÎÅ‘ð.†@VÛ™l 郟A¿á ‹TøîGØlà“až@}¿3Ù¨W¹âDð¨ÑþdX*Û „c|¾]Ò¤ipUÃ+´š©MëˆÄ\>æRÈ%FxÀû˜:fTÙí]Ð^¼ãZ„èZĺV=âZÁ(‡g¨â8R”FSÀq̳`'Ê£~×eóvé’ƒI>}^”tzåŸV`Jï`ACß7ɦœw³É>{ÝKåŠqf2è™^#…‚SؽW¶uƒ—£Î6[×VÉÎå¤.\p`ïeæc¥,_"ð³˜Þ; ø°-{q¡EŸ-¦0Y ªooËü€4† O)8ŽÒÍ‚ ~ÆÄò©TÃDªh4L £O×wc?‹OùLLrhÁ£¤^RF©$_Æâ…‡’(:˜aQ§ äÓj0äqO2ŒúQ0ócY@Öþ vßW3Ú½t×Xwλn“Ã| î“ô3¶@ákï€è‚Weši{ÕT…@½ÔF»ÀpÍ„›¾ºƒnHì‡qÑ{ fMŸq7bŽP#Ù)„ìåÄ›©uµJvîú⺑å0ÔUv1c11oØõ¢ºÛcB‡‹%à‡Ež-ú‹^¬unÉ~»_ÔIþÙ¼FŸÞÜžÜc*³»Yƒ?oП7Ù¯ÖÏéò¯´?¼ÉM9Ú^>óÈÜo:+½©Ÿ¸S‡>NÅ­U]‰„?ÙDk8mM#Àˆ±Áˆdd{ñü³|Ì Ú" Ñúù)¹ iUÈ’KXN”´¬*ûD±k^&ca§OÕU¶[gyþ¤pâaá‡ûrß0S"cÙ7ÛäÝÿå¼@n;)Zø®Ç’a·ø+‚¾ÄݬuGïÞúý œvLseܽո8]ø<ßÐôÔ+*[xzÂÐB²{bÃVz‡åÿhžo¯_ý™³l endstream endobj 2108 0 obj << /Length 1183 /Filter /FlateDecode >> stream xÚ½WÝoã6 Ï_a$ÖfÕ²ä¯a~Øpí‡am÷t»Å–¯Ž³œ6ýïGY’c'NÒb·½ÄER?R$Å8Vn9Ö‡Ùϳë[[Š|×·2 ;"Ô·Œ‘O"ë!µ>]eÛªâå»Ï¯o½` M"Q¶:9L)4s´yöÒ¶·Ý˜D)ÝìØzSr1Ò<õ½¾%Ä AÙ§Úвq€üPÛZ,ïlÏq®V&Û’µ\-Ë:WDSˆGM±¶¨…¢Y•jµºi¸ØÔUZTZCHtýê‰5«…ÙØA‘§Ã”²VIýh«/Ç_Žç¬9Û†Çó»»ù÷úÐ"n7µÐ«%¬*žëURÄÉ~/…Õ~Na1ü e’ƒil¸Eq²BCâ_¶¬´y–ñ¤Õ^¯ëT]ê¡ÍšIÌ/…>ñ©88Z/×¼]Õi<¿¹™_ŠÒ,Óò«‰÷z³måMT“ÍDuÉðÜSŠ„!r¹l_6p¿5ÏE57,Öä¼!S¤¢4%mwö»ýÅPLÑûlz³V_¦>Þ·ê«’®£xºM¤·—0Ó+giäÁKþøŽu¼´°PbŽ*ãÊÈ rœÐ”ñwJdTiQ(2- ”9uÿê„ç¢]).¾~*õÌ‹|Õª‹…’0µËáÄ5‘r™„£L“|åò^ñ†•sÃœtZoæfgu¡öÊâ‘+êT@ˆþÁ[²?TùK<)ûÆtÖKåî]-xµäM>M–_¶7ßTõvL]­*B’êALEI¾}K”öë(9…ð¤|·ŽœX2Áu_‡‚S=×ôþ*­×¯ì†£²¤¦,é¸,)>rǦ&‚튩×Ë¿ÁìäKÂÅøE¼ø´\Hu0xY¤ÇéØËQãæaöe†ÁŠcá~ì¡„ ×ó¬d=ûôÙ±RØ„ƒ‰Bë¹][&£€Ê¤.­ûÙ'G•n¶‚bÌVק,øÈèál5r|o¤æ¢(ĦŠn•‚ízÎÕïe­úë o9Ø}‹7êÑÔfŒ‘ DTÏYïa²iŠyÉ&ƴјØi!Œi½êì|¦ü& ïæ5Ig7ÒG¤‡ÏÑ8)ͺ>ž埂åüõcäI|êt™4;J¡Ñ„C æ°©9%rOFÝMUQÝè9§dBôtxµy>î {:¼{(Ÿ)+ Cé9#6&Љ»çÚä÷ ?_Ø®ñ\ð˜tÔÂ`¬µ+‹µß“»’-{nOŠŽ4Å:0"Z¾±gFá¶' S‰lPÀû8/Z³(ù/ãÝ7ÝwÒ>KÓ–mÝøö§_îoFÏE#Zhw¬Iç“ŠK–<ð+–rM¯à/€l,C ßô¸LnhíKL4½IV{ eEYšñ¾6Ô2ŸDa‡àë,ÐÌDûä¼JG2Ã,µõÍu©:ÎÔ÷> stream xÚÍ]oã¸ñ=¿ÂÈK`ÍI‰¢ZÜõݶhQ ›·»§XŒ£®,¹’œØýõáúŠâØA-ü@z4 ç{FÁb³?]ýñîêóm/–(¡w L†jsΔLwÙâç%—úæŸwù|«øUjÅ„N€EzØ—¥)ï*pä¶Xù+PÒ¹ë,7û­)Ûft|º~¾•rȪ^¬¸f:t\¦ïÞ+V,ÑÂóš–7+Ëêþ_fݺý­ë"mºîèu1gRsOáºÞ¦×„5zÜL&±Çªj¢™Òòtã%¼ÐƒŸóö‘ví£ñ5¦&¼Œ æáFDˇŽÏ&ÿi²£SíÛuµ5 ›H`ÄÿŠÇ‹¬Šqîdö”Ÿ/´÷Iè¹O¤ã@몮M³«Ê,/7ô¬I·»Âý Ü%­ó´\ÛKÂ/A”Ædö¾€’?Ì_„ŠEQ'ýÃŒäÁ¤åò†ˆ¥ôŽYÖXb²è¬ÀÞ“(¢Ó£ ¸?­'ß‘Fó^•ÄÊ«$ŽÝ4U Í)-ƒ £ŽÙ|Fk\°˜ýå%™• 4 •ëÈÉiJ.dIzrŸH!h]NGmEë½Sp³3ëü— &{[] ¼^xÒôŠò½Ú :÷¸“&€¦Ú‚gÖÜckmŒlø豈֞ƒU’s•-{~4%=ßA@ëÈ¥ð‚~8á*¯ªtF \¥¢S>ÒïCäÂTL =f³kÏhµkóªL ¸’æÖx‹j“¯ à”[ê| &ÀHðßZ¬ÖnøòáèàV-ø€³{ëk÷Yn}_cüNÝãæ±ÚÙH¨Îb½ÍååºØg> äå$슪Kð*§âhVŘ?HÅÑPůg›y¥ŠH±0T¤U)ÁUƒdÒŽé!oÎת·0õ,«,:羆0›Ý îCÀK:S¡ìÈ<ÍRá°ÑùT€™òiŽ ™VÉ%ìÌÓ ÓZŸO§ük•ÄMóïºçH¥èRBóL…@ŠËS´À«B&&Ùþº(_7$5È%¡Hæ3T¡IÜ™Üõó<9 ¥jçFr$–Gr0ÞàŸgE¤-XÐÏ‹=Æ‹FQÅî1Žàº+Òµq°ª¤ÕFÜWètGb™,¿CÕŽŠY,Âñõý³iÓ¼h~wy­r(òíù~}°,A,‚Êæ-²'C½üŠU‰å¾¤cÌÝÊ×pÚ‹5F{B…hì(u=yáÈ;„ÊšŒ )›ü¾0sAºüåâ8^$Žão+Žãÿ\‡"½?_mÞ.>øŒÕåă·fÌŠ_]£öB>Ãù`™GòÁÜè énWW;hDZwÀI i '\W{íØuÿÏ×õ}ÊE×Tj‘žT&q×ë%5EC{'moiã)Ž¸Œ¡%ì¢î÷™«YЧ^W¯¡T¥tRÕ3NÖI5Iب©ÜÃmEñ”‡lK0ðƒ·;´uÚõˆðfWÇõ÷ÕÕv.™ÜJù‚LœWq-Y åDw­Ù]PuV…ô½©Çã’6_§Ý6­¿7§MšöX¨w2è¨ÁÊÓ}á¤å±¢ ûgç†éýîjrÒ¯äÊÞHr×:#ÀgÜÓ5q箉˜ÐFlÒ¶!ˆ4 Ö‰µ6N­ -ÑY÷4ò¾æÑàÆ‚wm€»Póyhh¾éu!ß’s!ß5 ïò)ØyÙ<¼'„Ô^ßp톡^ Ÿt…‘E£¥—É“8¨ê­û‹ÂWâzq ÍÏ° ›+'Jp·ûÁv3n…,Nº~ä^´>ÂMåÄ?¦5J‡¶ÿøéjñ3éæ¥ø€™þ›á¿tŠí$öãÝhߘì!9‹§ƒÁ6­7ÍûâûX«M?ƒñ-ïýñtöêïy²q…v0ˆ:ñ ñdöVÿ × ¢qHÉòMÞ¾S4ø­ÍŠœ‘sǨ·p $YDƒ¹AŒ\ç[OÏ–ý͘Ôóc¾~œòñ!¢ø03åñN!µ ~Ú?ØVô€b|G`׎ܶ#««}™¡­­bp²?aåaÏ£ŒSú;,FÐ@q.&DÙ`?8’1zu ꦥ?¶»ŠAÄ=ª±Œišƒ°NÄøÇ‹÷6•ŽS\¼†ÓƬ+œ-Õm2„’{¾6÷ZÉ“‘‰ƒ'ªk¹É&À¡V >I;Ûziú "T_"ù¨rqAµN’@óM&å¾&dÓNÜ{äëŒT˜§—Ÿ¡^wV7¤av÷^ú{oÚgcGlð' Åúnxà ö28Vïüy8÷s;4ö ӧ3ô]cöYåçõ%j#3åÚ¼æµãN½ébÍ.78»2|‰, ç7ÔûŸÈB@âÑÔf’ƒ,2]@ÈhFà-(Ë[¼Ñü4D r}Æ—2wÓú‡^%¤÷ûÞauY·š„ÿÛô;"8tïPö&,Jø+Í,§úÛrDžͼbù·ôHP a¸»wx)-ã>Ɔ-¼ŸÞôæŽäAŠ%í·p¥œû蚈†¥ÛœÒQ‘]M ÒVûú¢ìÊ”ø)-ëòhiŠ~ŒÜ êˆo¾.ùõËÁ~QxÏÀ'Ͳ6݋󽫟Ç+/†dà(Êΰí¸wÐyÁ&ÝB6i ÝJ`€hêjcJ“·î°ÏC¸'Ý$Ët½Æ³Æ&_8œDÝè\ƒ‰Õ)Êþ™Æç:ñSÝ»%ìGniÑ&Ž8½ £ïsôÔ’Ï}d16µ·?þõÛ—7gÜNËHôëfå¾k&Š…j2ê+«ÅÂñ (ÞÿåûCÍ Ñœê=A½ý÷:ôFNŸYqÙB”X9)@?ÔXIð**C»´¨¥ãòlŸžœ³¸h¸­­#DÂÉlñù™cJ. ä¤ßm;óß“ý”·öŸQç‚[¤Y'ýÓ‡(,%fã'Ž±c>|ÏÌ®}da’ŒfÊÓª§ó¯Q ³oö¶ØQ~¢!S3Á“±Å€ÚŒu%)äPcø·+…›IÊÝí0ÎẮ t%¶+~>-dªp§Ý+V)”ÉËSf vÛ "w¦´X³tnªŽâɧä©ÅÚž-öE蜷A¿~¹»ú/äA endstream endobj 2127 0 obj << /Length 2791 /Filter /FlateDecode >> stream xÚÍ]oã¸ñ=¿Â¸—sИK}Qb{Ømo‹+ ´½Mч»+N¶èX­,å$y³Þ_ßÎP¢d%»ÎK‹ 9$‡œOÎ -W+¹úÓÍ»û›7ïU°ÒB«P­î÷«@JÅj•P‘^Ý«ŸÖûS]›êö—û?¿yŸ¤ÞìH+‘j ¸ì¼ Ò8éF2z÷}ó>Š¼U›(Íì²M˜0¢ÅÛ|÷ŸÉêÙ^©: ÝVÍc_6u^ÝnÂD®w‡¼Íw½i©ÛõmY?P»oöhvåþÌÀƒá…MÕð¢f?{¬š¾ð´æ6HÖ°)õñ¸msª 1;õ”V>ö&HD˜(:|wÈ óZ#™ú´F2hÅ!¤Õ­ˆô ”iEÒŠ K×9›Wÿ,eX˜zÇ£e Û}¼ “unµ¶ýÐIBy#hÁ?¦&u™0#I…TY•ù¸¨T Q¸YeüŽÃuNŸ¸“ÙõVjqDR³p{º“ér ½iMÝÓd;É:–!Ùå5·†g"7–ÔM‹(‹¦#LAŠ°w dòÝa®+×ëÆ¡*kÓý_¡iËÏMÝ»MZc¹ºãa{àë ,¸òë)­OGÓ–;Ø4ËFyS×—yšo­š]Þ“åBÏÒç“Nµ}¹³ä×ÄožÔ¶òº ÆÓf,YáUÑ`TØžB&Fe!Ý¡9Uˆ]±&â:ƒÓL†ëõ{ŸjK)é!j¼Rã¾£|NG”DY`- ¿E›#žjêæ=}É7@ÃüvÊ« µ­ÉÂu lhŽÃ6¶ë×±)LÅ˺¾<æ=#±lóÑ6mC-4 …ƒMŸoØ’ZÓuV~–´G‡í 1‘%ß% ‚wygh©@ ( ¤#xÞ2ÜzyS¢€FDxBf!EÙ…Õyé”ÓK¢Ùv(ST'öÍ©ß5Ç×ØGÕŸ¿Þ6Xª>?rkOÞ^://=///¼¼œ)$Bü;û$D£ç °‹ÇM•\ßÕ¯• Ó©B§œ*òï)Ý]ØwÚÈ=+j“c´“Qìq¾þD¶j‘MÔüñ‚ÃA,E:^=yûoƒT(­Üdrðp€Ènéäu;Ô´ÌL¯ÿ`ï˜*ƤXF­ñ®.{±I&â$cþ°Ô_öÒý2¯ý.ƒAæ¯3@Xh«JÖWhÓg0¡¯Ö:Oùu¼îÎÇmƒ®L'D|Oh‡8HLÄ‘Cf¶C£­lb¸•ß ì©ÌªYb ¨¿UåVïÊvWÝ‚ß¡nÙMÔÙ ç±®ð‘À€e,0Œé˜Ÿ9}&±†w1Ž±£úp•*ªDÄA6ð°»{ñ¾B¥zªxÖFl’6¾,í0E x&NÄ-öeU½Jæ £Aæж2‡/É{¤‘Ì1Zc SÏ“_Œ÷!}·çÙ"ˆaŽÔ¢»wXIm¸'*Ä®ïÎ_p:wMÚÍà>{4¶%I} A)æ €Ô§‚ƒÚ¿Öՙ୙ ¤^J¾0pÜç‘÷Úþ”‰Ú»1çäÛ ¿=?I\áâ„R‰2íK‚A±â!І$o×1d ¢´!›j¯ Xõ4`ͼ€U³+Ô¾+tA@ñ Ø6maZºº-2Är‡HÜ|²3e¤œígƒík´ý \z‚ä*¯Ê Ú>¼Š?i8átþ@›nÌÈã-½ÐóSFļ¦å ,då*,o` š\ÉœWyÌWñ©Ê·æ U‚[<ÈÖ  Fåø…è¦oÑ1Y V aÑS¶Šxésňê5¬›- ËeFQCz›ÆîpïßþåÃ÷Kém,´LÝ,AR¼Elã×?Î=ÃØŸ3¯—U÷íõÌmöûÎô¯ç.×àëqWì+Ê®Ï)„ÞÖôOõË.¼dqÊѤa×´¦?6uÁBJAd›%U9¾&¤66ýú¨ºy œ0 )¤ÁïX\ côùt ãHNŸŠ¢fcÉÃœÖaí×åEaŠ)^â4ÈqÖ¨„a2SÂ0YVŸ^TB5SB´`«„Ø%üE d ²ù} „¸ÂßqŒ¯q$^X©üítLR •ƒ”ðAŸ©f3•ÇŽå'Jüü…Ãb˜²øÀf\Ãx8Z!#õ‡–r^=Éip?&j—Ó@kÌiž}CÕ¡ÿl‡]{Çé`òhOòmkaeKÍy†¢C?”„”¡`¨ Â÷%ç¤ÚÔ4ƒé6ÅSððÂô¦XÌ<áöú/G­*k endstream endobj 2138 0 obj << /Length 3103 /Filter /FlateDecode >> stream xÚµZÝܶ÷_±ðKu€WIQ¢Zø!ì6EÐÉ}H T»ÒÞ*ÑII{çõ_ßÎP_Ç=;¶ƒ}ERäÌp>~3Ühs·‰6ñíí‹×ïtºÉÂ,‘Éæö°Qª8Ù¤B„‰Ê6·Åæç@ÄÑÍoÿùú]"fS•IBi2XÈN:œ›¦¬qÞ‹ˆ—_­½U‰±_le Š¾ëʾ*ÎyÝßleû¼¡Æ®Ä§ Î}YPÏ¡í¨1óZ§swjû”ôþK¤£¾äÁ‡*wóK¢_©9«™ #%ýÃåijDK*»Iyw#Lpw¾/›öáÍVE&ø±,™qø…fÓ!ÿÔüÅ°Ø7Q¡P£Ø&öŸ‘\œ†2)åpßv,¤¢òŠÖ1«(LÞlá 3­é£Ū#+ Û(ªÃÔÁ¡ì€ôÔlôÉ íÚ,š„QœÒ¢ÿ¹‰£ Ž7[‘EWĬtOZ’]Þô U¦ A¿R"I”ã>u¾+Q]°l¹½mãý6_ñ Õ%lìì hó¶»G•ÂÇ‘ø¾½çús5仚ß@­÷CÕ6Äÿ6•¡Ôr)Úw7BöL@`%¾¼ÏïOuùŠz%ËþT·ÃP5wôV·Øˆ³ - –z—ÃV=×6|Rûö\ÔcðˆX*‚Œšl¹|S¾?yĬAŸ£ijË{í@˜ÊœlÏ–B$œ™AYIH£C žb! { J«àu+¯Ï¨OøŽç„Ïq‚;'lïÛôìÔ6…Ž×®æ“°EBËKDf-Ïö‚Š¶ÏØàægZnÔ¾ÑÔxÄ6Hì–°9w‚Üçz49ÇN¥ªfÕ>Õjmzû¶HO†¥µ±èïÁš·y“×—¾òÞwM?”9(…‰ýŸ§:ß“á…{ôCÞyÇsË®k»ž¿kS“àbÏÔO)€¦Á> ™e—×ü ‹›'f_òŽwËodć_ÕdE8¾»Ð|³5€¹ “IuýlR8¥¿œ¡æó•Èµ«žê4¾¼ŸcãkI¹ÿ½ü’Æ .³g$ýûÙ:8¢Ûvø\NL&Yúµ8ñŠ‡–É?x(_‹Á ü ^_1ðTF_gÕgž€kÒêË)ü,K~,«»ãÐ;ˆƒ6JMŒ2þÑ¢zœ‡d~ÞÞÝ•¬ð(-E‚EƒHÙÙ§²˜—r*Ë9Ð:Ûj-” ü€Ùbdã°.$]»_A­¨ó”÷¶È`'´4ÎÍì\ñmÙAO3]{?-úÉé¿áhNÉZu@z.ýWa$å¬Ðb ²8]Oõù¨ˆ8Ã%l14Ï<÷ºv†$uê4[bp›©¤ÚÂu|’d±TR O1/G°Û‚'tüÍȨU%íbåx2OèÄ4MÏèàÖíÜ_îwm½üøÜ»­úð—œYóâM°ÈÊF±Yõ²Õ'-¨ú„£à|*üÐ}FE%}­Ú!´ dÅ|V§ý1t§»>T ±·Þ""øfÖÕûœz&£Rì[ß" c5ªèšâ$4éÇvw¾edë1ð²Œ"v5ØÚMɨt¦\,þºlî¬Ï…‰Òåe3).+sFw±k»¢ì&‡|:—Ašˆ»çûßîºöìÞgsž¸ˆv×—ÅšbµÌ³êáu*ÿ¶®/$•E¬óØUTøŒËø††Z9M$öƒõö™ GØ"{ÎÖ¤âPÉ;ë·2Cl“Ö΃sQ…'TX_UN„Q6bÞ÷> 3#f8@0MA[9+Û*€ ‘Yöª¤#˜'Vð¶H¬¨ë:µ Ÿ6#(y¨<äf¶¤<##·Éæ™)ìáêÒDÏì¦5sÑ”|Fò‰cφ°Ýk«Žg.O›ñÀ>ÂlÈRŒæÖ\cV.ΆNx,W•_gd£ L%Mð3QðíÅÞݽZ}Ás¨öX¢º°-»PŒ¨‰í¦_;‡<°½qvñ¡ìZ¯U‘ëÌÂ'ú ä·™¥€^ÀwLД£0_y–‰ÃdòÀ ï5œv”NËl%V½¼U¢eSPúêÝtD § L[W Ø“n1" Hžî¡£PM€þ_?}ÿ½fØaJ­ÀzýùtÓìi›Á 'ã„^ò‰‘qÃipl»êCÛl<(È—²x¥gV7ŒXè†!D¸ ¢u˜ØGìç0­mLt‡™Í ¾Ãd KpêTE\ËÜšJ“érå`5Ó#ý2Õt&Ÿ†z*Œ]‘ñR½B¢ï§ÞO¹1kâ¤:Hr–:‹¶-fW‰»Õ)Àe(¶ŠbQUîKÿÅGÌ—Ó"Ï5À,\~aº ‹7îþß[ºéÿBwd_rs4ž‘½õñi9à—gn¬„—AX}ïÚš/€Ž%•´ñåÔVèil»Z_,¯tiT×ó{%¾‘* <~xûîàÓÌòê4[póæe^×¾TFIò4Í…Àâ-’§I²\úö‡ŸÞú‚:h–X‡I[Á¯¹Äï„€íj}C@BP"e!ØÚ>MBÐà9¼B©xJéKÀ,ÞBp•Í¬„¢ÔQ¸ªëñÎÂ"Àx+B¾ ìFÄžk*iâ15Æö25ÆžyjŒïÄ3¶vB%Org&‘~z?G€ÚÅ‘Ì%O7¨:îã- s)ˆ™ƒµ0¹ãõXüwŠXf³à@K{ï¼ýÉ©þÚhOqH{ r%@d›¨ –²â×s?8ï¡ hù¼‡ý &.ˆŽÖ¶,JóŸ©æì&x™&i'#oÐtHÝá[©ð‹&£Gu­Ë»ÒÙýZ:ÊÈç.NýàS˜QòWÍwO˜!ùÕÒ‰Ãå ®N„\ù FEjá=TÒÂÁ—ß0FØí.Øl;WHNðN«¬•þ%ì’U¦W2±c-='——¹*\†á³¯¸\˜ñÕü|xÎ:¾/ÜÖ0«Ã(ËC|órhO–ƒ½·?̘ñØÿ†ÕZ€öäßIèˆH> stream xÚÍÛŽÛ¸õ=_1ÈC+1‡”D]²MÑÙݤmšnƒììîCS ²LÛ dÉ«Ë8Þ¯ï9<¤nÙN‚>bŠ<<<÷ 9üjůþüìÛÛg×o"q•²4ò£«ÛÝ•àœat Á¢ ½ºÝ^ýÓÛõU¥ÊÕ¿nß^¿‘ñ:H#§)àÒp"ôŒôWë N4ÀÚaS@`¹äªTGUuíjpáUuGƒö¤òâ#ç¾ÚÒDÖ(³¢ HWÓïVíV‚{Y_v-`lµ£À»=˜ eÑšyVdek6U^ö[9Т ‚)ƒ"a\Ä–Á¶ë·…j]’ˆY%9Ì õ¾È3-<‡”,IäÕ¤›JIÀÈÅÄûî‚‘w>¨î Z!ˆh¤'ÿý#ó{ú,*‚éf½T+!½½ª¶ßÀD,§3è\û2d~YNn?üôÚÁ®€¡/'ì :4«¶.œq@Ùê³¥ï3™ˆ©U¡EàÀ—°HV÷ütŠ}îVŠ©)’ÉÒÔŸ+ˆZùÒ;¡4B„Ái}‡ÓYÙƒÖõL^7jOuµ-ª=NE¤žé®ömÍ°!-uÕ¾pq"â©´Ÿç…“ðž`ʇ9ÅIr^Wè@[UåŠè+ªN5†‚Û€¯;$M•-‰ÅCðøh.–%·’Óñø«„å†3nõLíÒŸ“¾å燗ù,”ÁŒe}ÔÀ2|Ud ßÐ×ܼaÂiÞ‚Kà2x‚í„àÐéÔ™Š&PëÀ—,ŒÁ£Á&SîôÏ«Ô×63‹†öwÉi"O™ä‚6ßv².£Ñ®ÉŽF¾g`˜Fy}­`Ôz9;dÁ. Ëp^ÀΉ#–&ƒVõ~^gŸ‹ÖžZ7` Y§ÌD½[é.tT§Ę́⬻^Ö]§¶ì1¢×†’µˆX 闯 ýòÿAz[f›¯ “Í…†€ü”‘£Ú#¦Šý¡îÔ’ò‘Ó”¬\ÕõM…éVÏV«{wE[lÊË*’žÓèÑd§ö®Oÿ S_f¹Ž+A’ 93‰±ÞÈ;"´Pï(¿àXó„ƒ6;žJEàmñ*UÃV3¸x0{BÁƒÐú¾×·x¶#&Ç!Œ‡œA¯žW…+J„)KÄM\>bQÝÃUݹ°É”Åqô¶u æËEò2hÛ_›ÎMfˆƒô1Ä’#À Ÿ›Ô0r1b{ˆö …\ .ÝtB^ˆÓeY§d¬1ª·¼ÐÌ©nÑF}AµTÈjW7ÇŒ¬·d›ºïL†ƒX&é¢úÒ–D£EáØXTë£q*Ë»>+ñx ÐÕ.QaŒA«/ØêÍ'•w„┵­ÖÕ«t™‡qhðpÝ0?H&`Ú] –Q pÖ*u_nMÕá®ã ÃÉú®Fa决”{E¿Ä ò¬5#’òl±Þ´XZ`±¥È¡wÄ<|[Q¦º ß¾ƒôeg)Àê“ §õED¹ÎžFÑþ±äªÁàBîŒ7åPµÀ[þXô üiô„a(Âr#â\Üã–fœ‹‘sX"<3Î+q.fœã¼5(a% “Çz«lá›3áK¾®£" ÂöÄ$xÿ¨hÚ4Ò«msz¨ÙÑÁràØtZr.Ê’Fº;CÐZ É3„7ZHOÖàcÁÀgY_* ªy>l8ëbÏÐÚkÿB»z?4N’lȘ¿`ƒÌ¢Ñõ]Å){•Ká®MÓpð>wËu}ññî hš•H¼}?tÅ\c^ûiú¡P$¡øßPê¥ÓŽÉÔf¬7ErË9“c¡6ä@ íp:dÚ‰p>èîiæ‰cêüï^ïCâN–ðî@¦Þ_+:ÚÔP y ~/Œa‹̽®@W§NZÿ¶vŽ ¿tØÇYHfË4Qá%*‚ÖNö;ä¤hÌIl_ýsKò%—09zè$2ÂѺ?g{¬¥‚T; ³Zj/\ ÍœŒ.…iïì *^UvŒuë+øO×.ã¤Á¬ ŒBº`c[÷ˆê^§ Éñvà]ÇÄ,䌹‚i ¯AOÑ$@&Tåô60!¢«Ü-ô[6=cÔ b îÝ`[Ñ­ÚÊг꜈ýˆü…²Yš†×WgUìä~°¤À–ÉçêÔ=Ø›’Ñò2ÛjÓÆS£¨p6)uáªÉn£náûÐÏÛí7¸ÅŽ-É4­ºÚØ7¤mÔïßLƱœfQÚ4027·T}Á÷hC-Mì\ä8¯§ " Ò§üàŠП†áãÝ\ŒYµ|ÈvY»vöpÐoÄc.ßìÝA+¾[H÷†‚EcŸóÙÕ`‚b†0Y´öê6fôk¦…2ÛMõ·n°ŒÄ5mgÞ«˜¹©0X\²í!µØ6.¶@5êX#Üx‹ëL›Ý§u€y£Z\ “ët¹5}Ô˜\.îôÔéT6ß»û_Š k©Pm— »Ze#ý$>éŽñfÛúR?šdkkÂ/½rüe•€àÊÝ~…áΈãçU2Pù¡Ûd½îaqXy*Y0V;8ßmþtT]Æ°>55F V7û?:#d8íˆ^ù,Ö5;–îfx¿t‡04¾ŒºîÔ¾¼¾>ŸÏÌž¼Zcf¬ªÇÇ—T<áe#…,/ÔNiÕáëRû%  ýï0Ûc¶ ¸÷<À÷Cï-3¿£ï÷àwêÇ„Ü3+ßkPé}k¶ nDš„âg½§> Æüòc<’íŽþô³]L/ň­Í óXËúY&›USrWèŸó€–0à ÇEgšNR6fDtwî{ßeÇMƒ·,[,;ñÏö—Ã$œÇð¿ß¼$küKf^ðãU?UÅø†×´Egüõ=Mó²ßÔEïU€úª6¡ã¯ðÞiá')Ȩët­«7f•Tƒàu¥Zù½Yü`o6àìêßô*·«©Ö*B÷ía<àÁŠô9Oì>J ûºoVjת:d ™­+Ρí¯3È—–ÂW`ïKaê×3}På‰&·E‹Áµ/Ú-úM ÑÎ\ĦÈ,²¦>ÒÈ^–ÁržAJ2ô€MI{91Íô½dfA Eêh oQo–C£{1cP'7Ý:ìè÷;èsôßè¯×§b«ŽE]Ö˜1÷—ŠúÛåóÄÌÍ!$ñ rµÙ©þÃɳ¼à¨-T$h+MÅG2T1W !&ïÖ6pmëcÔµàLp]bŸrìàNSˆ¡=fp†3¶¼¾}ö̵å endstream endobj 2047 0 obj << /Type /ObjStm /N 100 /First 979 /Length 2125 /Filter /FlateDecode >> stream xÚ½Z]o[¹}÷¯àãîCy9œá\ d¤] 'Ú ü Ú²ã®,’Üìþûž¡,ÛŠ$ûÚ¾Gs¯†œCÎ7©˜]p1°8b5"¹¨Õu2 .µ7BNIŒˆNÕF »’âr"#’Ë5€PWð5æÉ®Žïk5R%—03Ål2C|Œø/Žb¯€Hš¸„wÒä%u”‚bú”A¥hï ¨Ú&Á¼*í&Öb³(f)¡QxWÅÀª-öŸ‚9RÂT‰)bo킽Â1mb.¥@Ы©Ž”0ÁàlƒÉ†kI@à˶+Tn# ¡ÔF‰ÓM*ÌJÉLTr°YbeÊ%R§ 6 ›gc#¬ZÅVûÓlj"ÀÓÚ Ç oøb…­o;J°„«Íá"&#\¡ñÁµrŽßµuÀ¾K† ,6A4¿+d¶DR\‰ 6 îc|Ø¡’ÔÖ'+¹…U–ÒÆš›U³9ø…«˜þàðð ûôçÕØuo¦ÓÙò ûxýŸe{þûÅô÷ƒî—Ùüt<ÿàöá¸û[÷k÷ö3µ‡ƒîh|²tŸ±±8¥dÕ¼K<h–à loÜá¡ë>ºî¯³O3×½s?MýÙl~9Z¾ýÑýüóþ €#GŸœ TÏp$¸¯‡Çr À•÷âXŽÿXãaÛ· X›SEq5™-±_ö"Ù%!ÊÑ­h–è#U<›B…îbN>9¾]M[L÷æð°IèÞœ,/fÓîc÷Ï£_íï‡/ËåÕ⧮ûúõ«¿/GÐÔ_®æ³ÿBŠŸÍϼCø 0íàŽ\÷¯ÿ†ˆírŸ`èÓëÉäx/3â@ãF0ò ãíÇ-=ü´3§ä-ô㎵xsæžÜ‰$õ䦪ÞBÕ÷ûÙtÙÌá=bPBlÃÞ#[I¢õ–œÂÍb„ ­àåšW˜¯û0Ÿ|Ã\÷áÝ{×}‚a»ãMcú0:to!v<].,õµñfB‹Ùõüd¼X¥ÃöîãÓ‹Ñ/³?\³:…OçaFFsŒ#Ý n&º€à–¬ Ïñ m˜Bñ)ÞÙ0³—üz6¼Þí^6|ŸùÖ*üœ_‰_{rò–Fúq³Ek¥žÜH^ˆé=™©âSû2CñåÛݾs Øð•}ñã Ø*‘_æ+š¶}E¹§¯dÞò]kæ ðžç&f 0dT¬ëĬ”|ˆ´7!-ûëéÅ€‰9ŸQ}­DèÊéƒã|ry9`rŽŒhr·#ÙÁ:˜>H.ÿwG³cÔéýƒÆ}æÇßNn.†²'w*Á õåæŒâ-¿ s¬>KêÉ:ewrßÉI¡¾0¥nÄŒh2DÌ@ç±3rz~ÌÈ2d„ˆ¨ÙMJ‚’ ·NÒWn­¶Ï\Ÿ"š–Ћô÷ˆûÌw©Ž½5ö/Kú… %°d*¼­ÒBÏWi ƒªT%P€r̾"è2bÚÄŽò´˜ßtTâzŸù6¯§íŠáeUï†> Ô©kwÅ{}™jëŽ __á‹Þ$ö’×DYõ†¨ë* ®«€:hÀ!zBÈ‘`©d #R¬NÜïãWó‹éÒŸ-¦´¤œ"ÊùÛj±­¯QÍR1šu¹;É &/ìÔ||¾/†ÃuÖm!•Û•U[ø’ñb8Ìê+¢Õg”µR±O.g§ãÉVp­O©«ìj#ãwVb»¸¹(@_f®^c_nó”\†ÌÚ$jèi+šÓ*Côæ÷VnGÔ½õµÁüh½¿“[Q2É«p3ðKåWâÆgI}¹%ù”=»W·cH´ÃHŸ]ØýCËôvý0h5_¼ÝØY³Z€²s#;‹F¼Níðl_¼Mg¦¯½j»æhf+ùìî Å}Ý~y±8ñG§£Å?»² `ñmÈ´;œþ.H}]°O¨êU>ÛÂâv›h÷F½,Œ8lYX¼©%í’ê†àA‹JN¾]Þá³·/àQÔNzö×”£ù€ù8UoumU¯‚FV¦€²Å“ýf(k¬ PÉ{»§ IvË—Pfà }Ø·_»j¤f´ñ -ôóÝ-T£Ï¨´Ðb7;Z®^Ìè€EÀU“KÄÞ~'A‚<õÀé×d|>žžÈD˽ƢdŸQ·<ÖXlãhA{æÈ'èC$ºÕýà¦WK~¾WËÚ™eí̲vfIkB_áVEì.ìâªzûý°ø÷êj¼8MN´Ø®ÂF„È“›šéà3"«|¿»‰ÉÇ[‹`¾d-)¡ä žBý~ûQ‹gÔéæ;voÌvrRØnôÓó÷ã ¿ºˆ¢5ßýêE8ʡ׺±¶ßþ<êåÿœ|Þ endstream endobj 2166 0 obj << /Length 1725 /Filter /FlateDecode >> stream xÚ­W[oÛ6~ϯ0Üb“˜!uW1?´AR Ø€!Ͷ‡u´DKleÉ)'ޯߡHJ–ãØîP/:<—ïœó‘Æ“|‚'¯><^ÝÜÑ$AI膓ÇÕ„`ŒÑfæE;S!ˆÿtò“˜X/¼$ùžÍ=Ø'*ñ~|,í¾ ‰=™ö8ô¢›¯B -öBıwÄ¿9 \äCüÐw(‰\ƒcÚþûRÔ#®FøCñ¤QK=}PL4r‘(x“®?:µÍš¢¶â§ÈËóQ½ÌT€Âþ˜2³.NYqÿ3&ë“အ€üCy¹^Ÿ54Ø™{$qh•]nÐõNâ„Û“]”¸Ã­Ôu&Ôõ^Wª¯qè:ÝöŒ]©§ë¨]i},tž ž½sÁAMh°$7©½e À`Å¥ µÊêõœ­VðÐ5!w$w,ˆ†‰qÀ´*‚7ö·üÀ³%].6TH¦Äi Ò˜O;FíT°ÍÂ"0U!œ óÉ fTHˆ‡6&e†»¹"Þc1iåD÷Âàa툢~:Z-¶ÊÖb¤ú[Ïsõ¬×se¦¯7Ulßâ«nÙª-±Z°çÍYdð>òZ×:ÕJ? Ìb¥ÇŽº:IÁÚ¬¶å^­@²JYßþ¬ÙR£Xœïý®¹Üñë=÷Spgz6¨Ñ7Ù¥ÝúZkš¦i ÚKC|²>€Á>Ž…×{UÕ’½ëm±¡ÈL„ì9ei5Sy`£a+Ö è–=áÚRI™œeA=þËšú4êÐtow{møvËÏVuï•ú颔t'ÆXê4“¥9Ð ë¡E‘nkn¶ ºí3`?7Lî6ÃÝò!dŠq ¿ÊÆ9춎k½øeŠ.b>"¸ôjU2¢8ÀdÈ®,úp–;KYRö›S•Ç¾´/úgݤÙ×VÖÜ|ÈÍ‹nÞ'ž®ß¬Ùª]/-ØöTÆs.û~µØí«àkøÿ-OåšWIu·"n`¾ af'ÄŒ®Mâõ¾› ïW{{€W‹N¾Fñe¯á!Ó6sVŠ^»*N4!È\0öï  RÌÈÑÙ00Ž/ezÏóœ’m»¸lö’ÀNˆZˆ‚fLKNáwˆdSóaš7t£eL÷ŽöÕ×ÍY•-þ¸;Ë[Ѷ”öR,7´¨3¥ÉK“6y»lÇ”WYØņ¥|ÅYviµâ¥ö[K=^£–ëO¾úÅ[úîñê?½¼]è endstream endobj 2172 0 obj << /Length 1370 /Filter /FlateDecode >> stream xÚÅXßoÛ6~÷_!8I»JEÙ²¶iÒÀnmö²®d‰¶ÙH¤CJŽÓaûÛwü%KŽ¤Þ€½X'òîøñî»#­Ð[z¡÷zôýÕèå«)òÒ FSïjá¡0 p<õ„‚)N½«Òûp±ärõìãÕ/_M’ž.N§A’¦àIk¡+¥Qh¿|…±7íi¬´}œÌ´º%0ˆÑÙÙÙ3†2¯É #ÎÛÆŽ­ø­‘•×VÊʸɫ–H#sfžÍŠaëç[j'sVZ‡¼¶Ó‹V€ª°óå§V65aT;ô> ƒtb·¿h#Õïá$DZŒÙ*+Ô`Ú±tâ„Æ‘})é’62Ã?Ù÷»ŠÖÆ0|ÌŒ¢Z£Ïðpå¼9“‹Œl×Ö:o²Š/•µv È-ì$'8‘}Æö©WíAdQQF²°ÛÜ’°2»z÷ë¥ÒÒð|‡/BAŠ’/Ê^ÁÙ‚–„6ø”5D@öz¡”nf/Êÿ—Øm„'eãÙ‘¬`œÚ¬(À ÈNEö=¶Ï~VÔ|?+jÞf¥¢²Q‹¨ðfã‚ʱ³3yrˆužf{y¢UL‡"{qn¥øÂ).lZ\˜úOP¯¢Q½b¹ú?7*ƒ¢ƒ8cÖÅêÄqú%%N!7l¸%Hñ£Hb§Pðê$$~„1$w:äƒpMè[ßÖS« ÝQK®ʼÉ3ø±¯²KÒdÑ×(ìò÷–C3º€š!f3úyøŽá(uÕß/uØyÏVÞÍ¥ Õë÷ýØZŒ)ÇNžCÇò-<´"g®¹Úæ›ÛMh¥ëÂjw.HVAjYÉ‹VudRî åb©Ç]+zJØ0Æ÷Ê-[Ü•-ve‹mÙb[¶ø"”+tõ~¨£è ‡; ïq¿­ÖtKJŸ,PŒ–c5/]Äni³²™K^µ®¨+8"›¶$GZªñp hOç1¸°ª™yüípT¹×eJŸëŠ7Ã>ÔÁt´lóêñ#úÑ%­Ûªë¹‹šXº‘&÷s–Ww -v»ZÝ1´àBiÎä~:ÄŠ¢ѱúî0í¬™5^8%9ô|B›;{aY·óŠzq{èÒ\~ÓÌe\83w$—¨$T=eC„Ümë^"îåëƒuáÀ:6]¡ë,­¸ãëõž?µ/Õ‡÷ŽÜ-Úc&ã¢VŽXGI’³î#Ë ‹ø6úï\á=W°«çêWÖÞ¶Xä«Ù?4žo6-ˆ˜Òܺ^½Å»Sý@Lþ:Äqàh ‰nš!Šp| :ܦᪿƒ…!ŒL”hYÀÚzî.ÈŽÚ u]¢á{Õt`F÷"Ä¡³k+*o”tíúÅ"‹vLxî` ‚™–i ,f¸ˆ®+'ÓÏ«>ì®É-)]!À-ˆÂUÕðq"J±‡½Î×ëêNy2ìî.ÏkÝäƒèÅuï u´ŽŽBt©ÔíÇHÀqäÚ1ÐS¶‚dãß~xûNÌJGÐLP+3š1#Gª•­x™//ÇR83}çÓŽý†ûŸÍ 9$¡$T¨ÔÀc0ÝPîÔ¯l, ÉÅÆšmN²‚ÅØæ´åN³cô4«C«=!–ÐGN[ÑXž¶Çê´%owV£Ë«ÑÍqè¡îóŠÁQŠ½¢}øz%L‚ÿ§3ïV«Ö^ŒPÄêÏCå½ýÒ}VØêopKï}ÔÓ‹â L¦Ão½ÏÓÉÀ( Òr·ÿ×oß¿â„?Ã'¨þiáüY4Qåxn^ßÎ?é ÚñíÂ^fIòo¶û™Œ€ endstream endobj 2183 0 obj << /Length 2826 /Filter /FlateDecode >> stream xÚ­ZK“Û¸¾ûW¨¼‡åT°@d¶|Hjí]ç'ëÙ\²© EQcŠTøØñäקÝàK´2ã¤æ@lýñ7Ç¿ùñÕ^}÷.4›D$‘Š6‡ô}¡ƒhc¤‘N6ûÍß<wøãwï"9!Õ‰‰ `#Kt¬ÛR½òysØ9šoýV˜Ô´ê‡¼ÍšâÒu5[<ÙdÆ^¼ÙÊXD1­~×W™]ºU¡ïu5=³&O»œÆ?~øø.eݵ4<Ô êÝ?óÌÍÖ^^¦mKòj=9[ùZh:y_7çô5‘ÍXTH|ã¨SÌ4¡‚H¨XÁ A̲üÒ¦Ç|U×:™ñµÐ ÚáW?ô?ßßmCß÷„ð*qgX½UZ$’(¿ù†(>jzžóîTïilU„ƒ‰6ÌÔúR"„–óÛ…"â´µ¶ ÐÁ­M¶R"H"H‘€W…lû]›w-¿]šú¸K›7?ÿòÖM¥MZ–yùæuU¿æ¹*»ôíyï½VØÒp¨ê©Í~ßÜIß;öç¼êÚ›¶»m³ÏËÀ™:”‰@Êé(­¦®û<Ï5RèÑ/pÜ/±¿•F eàŠ8d!ØÏ¥¶aŸ–Ä|QAÌÊÐ;æÍ<œÛKž‡'ž? Û¥}Éö/VÓUâ‹ ˆÇ +F—0TCNC¿¿­=¡Ãp¡>®çë/;Á’¬Cýh¥íš¢:âXZmÚ9§M|´‰Ãqö(5ë­6路§WT(’õmÎ3ƒ.qzŸo]f´ù%$þ& ÖA¸®` 2âóÊ3õ» “È{‡¾ŽI÷ŸHD‰ #é(ñÀ©‰ÎêžyaµqÍ“Œ”0,SmU?®±¥¡”©dÄÕ­¤0z y}eYÝäkÛ…œÌR¸ $w›#&zý˜³ÿãOu—ûòHµ9ûù~öH*l¼oþäòÖb“ј“å`Ì— ›•_•L¥‚•}ÛAXaàÝr Oâ‚ 8¬˜<‰Dl3Ž%óK^dÀìj´úV%Æ{à“*«â_}_åû{œKltÌgÒ³à 9<1ge‰Õz„‚_Í\èœf§¢Ê‡Ì7|û¼3fߤ#Nt–>ÃåË­8áæ™ ± «ø0 è´)Ôø!ïÒ¢l¿$?Ø\§”w®÷6ÅÀpbœÐÞoEº– ˆÇ<ñyÅb!“ZœÑëì;>3¥í'Gã©]Gç*ï28§Ù1Z†…?o”“†?_c©Ü6ˆ&@SôUqË4€(ãhêþùGõãé9çÓ­cTäñx ¤nŸsí3%ƒZ'Ó/9Dò#·:Ô"NÔ¢šq›DÞfkH’pw÷¡ü„9LËȳuF/-±Jù‰­•Ê—ÊbKùìRs-5æ*¥†[-¤ÁUÇ&½œ#áÔ¾h/eúD”€8Ùvýž§ ¾C¢ö åx“;Ðؾ u§5 €";ÑRªÈ˲½K-gÊ(Ê+ð´éÿsz.*‹”‘÷ð °Tµ–虺…ÿêÓr P `Ø»DXÌžŒSBö (¦-v%ïîð°]ævo‹çEñÔ!C_H9Àî=¤\4SC6ùþn+#ãý=Œ{|O“ŸÖª>ööb©\§ã€b0o°8L€Û„Ú­ÿ´š âpˆD4ouSkÊ‚´¿·~ƒo`늆)= ùL·)°§¶hÑûŒï½Ÿ“œê³uºç= iv(¹Ñ]„ìl÷æìyÛg(ä>ЉC„Es'ªwi+ëG [c`ôh1á½ ˜=XoÎ4›Ò£©ûã©t”Og­)2,‚T¿ºêŠcBðDZñQµ€S[Âá "Víî|Ààhßx*ÇW¾\g´{'Øøž³ì)¯h9é¾.·§Ï(+~µhÏ2s?däaGÔöÇ#è³]ì|°Ê«Œß¬i| ð!ºï¢Òî’}Ž L ’Fo«ã^˜¨û®,ò¦¥Yï;‹ •Í/¸XG_ ôŽ`„KËË=ÞÁIEÕº­ëóªâÏyÚö †¾J(Úá9ÚNanÌÅQܯ…— …öž/L6€$ŒŽ©ÉHn´ˆ$«V‚0T·í„ê~5¡ÄrÀz?]•?ùª£¶ Rµ…`*ùBÁʨá/kÐèH¶mð ì’QYÀ3›§a–mí´]^øTž{€É~ÃÛ¸‚9ð  -óJe…'4ͨ–Y.LѬ¶ ¬öPѺbÜ”æ­Aã657$8póÀ³í^È hÛôÌ£îé’Ó:ZÚRG#+vL ewßg6}âì-D,Õ´¼†€9tznªck.;«mZŽQ¸LNp™”/ÄeÐûêÑÅžƒË x_4i–ýÞöõ+—±ðå(tqùæõÛ·_lNg-ø DA”ü/O™—B>š—@¾@E‡#¨GÆÃÚBE^'B.šqÊéÔ²òʬ-‘:¾9೸{týðè‹û@~¸ü`©5%-Eàn©ÚTãM~wÍ.£9á"Y ¥äê—.*ŒH Û?æ=Mÿ#ÙË|ÞEäG/óù@©5Ù G3æµ [ðÌÑ%aä5 œú¼À¨0?HX|¶Yj¿$a¸Åš ´ðU<÷†®M𶒼I©€5F4dwû¥Øç)újŸ7å™Þ?áÈæ;QyÔœïp†³y@¢Á“h“–€–÷4ºøë]-žº]ÚCNÄŒ(_IWLkénÞ < 9ìb¾…Eœ a.«I§è9Y­<#¥Ñ;ù„3o2°WžÚ^± –„±=3ºübÉŠ<‰PhØcr» ó{Hÿ¬˜]"&$t~S [¯Ôr<3æW¬á–pÍ@Í°„»Ç)ÜOt-Ô2'gS×Ýp_ H>,¢æáŽwŒX⾦èiZòå–cøkªv€-ÇMÚÕŒ^.¥­û6.57sÚÝYáþå '(¸Ec¯ µœe|MyaÝY8B{]·ƒ5ýhP)ëJú…R;8ÑwcPo§ ;M5 ìø×ç%BÅ‹Þsq«ÇÂDj‹H¶5O†Ö\aƒc;#­øòž‹(׌ÛûÐCÚ—^Éc|säîbñ“í_V\j_”¨Û ©ñÇÛàvq‚3àc¼‹‡.M\Êœe;¸ûñ9X÷c˜xqø\­a<ÀŸ7wÛúGé¯Õ?9½´¿çŠ,TW%»áë P»²­&LI_éë›=ùuT™Øã,G„_ÍïarC6{½8Š¦%æà5Ñ NNnÚ,\Ìhcd2-›<ݳ$нٟ¿˜Î‚  ‘÷~߇&ÄfؘÁp”|€8*Y&ýÁÏ0x“d4þšàVcsË¡Búr ðemM»<£ä c]ú.¥Ûyëë>þhp€‚)=6NY-}IÛj%Iøn £Eµ?ù¥s@1tÇŽâ¿Y,ÊùãpÓ]-ÑÔXó±¤îÕy+¹dLBõúg“±Ø>¹ñÛ¬{¾}xõmÐ endstream endobj 2203 0 obj << /Length 2643 /Filter /FlateDecode >> stream xÚ¥Y[“Ó8~çW¤x˜rªˆÚ²$_¨­X¨îžáaÙÇVÓŽ±Bÿû=GGvìÄÝÓ=[eE×sùtÎwÔþl=óg¿>yyýäâMÈg K œ]¯fÜ÷™á,✅"™]ç³ÿxëÚlæÿ½~ñFEƒ¹" Y”$°“Å¥ÂIO|·ùl!¢ØNX,4íåí|ø‰—ëÕœû^º/ÛgÐÃc¯XÑH»ÑÔ¨öÛ¥n¨]»Á]mL±,Ý ³_Ý\ï{…!!¹*+v"~õIsâ‘ÎLñ~÷iF4 Y‰g$V|ÁB˜f'…æL† ë`–Õ+rú€€«}•µE]‘쇢,©•Õ•)òNÓ´ëžVžánLÉx¶7%JÑqi•ãTß«áÄæP}®«ŠçSUÝ­jªJRÕÍjàðzKÇ;IüJ¤÷©ÒÔ¥5öÆõ aìæB Ý!|&cÕ 9Ðû!‹A 7/m怡õ~««Öm_;yv:+VvÜK©/°Ê[馟îÐFö•>‹ãpl_ Á(€.Rt|{*åæ"Ž¼w«)í|Ø1áÐ.ëöÚî8«ËWßtNÂÓa¤h©£›™fí tK½¥3Š½±Þ€B'tõ· :IUu„ µ  }5¶ŠÓ±îǸìˇzžÄÔcwºoëmÚɆêŠZQoDCn‹hp°»·¿ÝõÇÞ¼Ö®«ª[ê²@ÇNTÂwÒ‡#éY?1_¸Hõu9÷`è=<L¸<„#Ï…à´wzúOpËB;øe­ÞÖ¹.iFݸô!áOW„ÇÊC@´­… ìMQ­§W1; ¾Õí¦Î~úˇ§*( ‘»G:7„€ÔÔs®¼ï…wºH$dÄ‚SLlÒyà{ßq2x@¡·Ôˆ lmÓÜõáÕÅ4ŠŽ]ûÚ¸9NIl’’¨Úhu?õ;Ú'mŠzo¨ã‡”ˆ¼7s.­iqÑ”MûãÌ(N%2* ‰{¦ÞjjÙ@KMmÚp]»Ÿµ»û|”\]É1²}õ…<À ‚ß(“XDÁ(õ•¯mtè.·ÃoÑê®êÚùÄÊX¹FYÜ`*ž Æ`J‰SÐ\¾þ8 ›`½‚ŠÛ¸ º«ÌáŠowû6mâ1ã'r¹Qùúv¡!]Ú=¦¬Q£CsIšp Í‚C† ¦D@Ûþ1Oȯ{="*Ý÷D\ÌÁ×.~QѹõòƵWNº25fÂ|‘Õú`ÿ‰k¶é”édÂâc¼Ç.¹ÞèóCmDoJŸ²0mo£6-* TüÝv«WuéŒÕ¡UkžŒq¢À„àž æÀ]¶×ædÑ8þšã OÌ Š^ž¶®µjR¼@B O»¡NºÆЀ½7Õ^Xhè4séVÓr}Qeå>§°Ãã( è¯×ºÒE{;™p{³Î¬6£Í×EZk6ŠŒ²̇":þg÷šÒ™e”cPúG™ÒÊ“¶MñáÊ!—¶½_›-e/H vÑN+¸&º[Óy÷ë|µðãuaŒ=\ ¢ÖÞy^`8H‰u©‘Ù r%ÜV—žûC-Ý•îoH릴‡]STm§3¡®s1‰ ÿX ÐÏa%ƒ¿©’ÁG¦§„÷ìÔ¡ççn$úië!›ÎiÏGܾ âLÅÑ©!ï»R0.“ãŠì&]k‹ufÑ1ë€%’qGq>L'"TÔAØKÚëÏWŸ^ýò€i©ä½KÒ8`"æ'î~`T‚Ô†³|Hw»òö^»DLñà42Òø0]Žåôyò¨›!÷ÂnÝWL4§bp]{sùû+ÅÀ³‚ÅIpÂrï(0A£èoÜKHæí÷ô¥LÛÖF#ä‘UGŸ»Xeºúþ^?.>ÕþÇ"íêÓs›3‚-àöGùáÅöÙC¡ÐôäèQé½:~™Ç V¹²¡º£7ÌCà,:Û´Ëtß)…ÇLØ1Q€ÝMÿ8|_þ ê—8åòiV7ëNY\ „8–¿V|YL 4\óJ]6m»3Ï/.‡ëN†…l¤?þ>Ôp¨Â“#¶ïô° ¨ÔØ —z¥m¤ÔUvBך¯Ë›¢ÂÞ;濤›tÙèý) ŸŒÞwã?Ñïë¹€*»¸ Uµ™sÏÍ¿žGÒsk^0zdB÷>H¿…ˆcï×OWoipáž¹è³nÒÝߎèg^˜]™ÞŽß¬öº.âþ‹©Þa_:B‘3¸â"fKm4¤yæÇÑ®n+¸c¦+Ç>ÚÚx*ÃYeI Fp:ñá7bòuy@žÑb¢«®áè€Ë¯È µÚÄ=Pˆex ʼ.@80‹oÙBKM¾€OBÇ÷eWMï¢ôÑËÒOàêB®Œâλ¾ón#¯ê*ßgŽ}E¾*¤‹ €[cS2¬Â²‡.éãHbäÞ»ETB¯K¡“ž„ceÜ“ã÷È&ê}cË Ü‡^j0BÓ¼J®ºÚ°+N®êU{ (è;’‹Ÿ<ÜÑSëô‡§9úYÆSnºYà>7Ç¡ˆ.¾þû"d…?éjЗJK»iW ]-º‹¸Rx¡Bé}ìø´ô²ÎnSä`øv¾‡î/Œ[÷Î ¿r[¿e´ÉU¶Ù¹;» &8áª-¾Uºr#?Ñìwnð’M…€/›¢µ¯R”A^熑¥ÏAxð8óxв®oh-ÆüP\LG`aQ8ôìngÿH‚8±XIg;ì|Yg)m}™¶µÄ~à½ùðœ:_]¾¢Æg(”Ì"8Â1÷AnæEÅ\pÅy"{HŒóKˆ!ã·´+íèÅ‹ÒÔ“éåa,ñ$é4Û”í«â¾´=Òíg§m£«‡çl7÷–É ‹qãÙ±nxeÀY¬âá‰;ÝÖ÷` Û²—ц7û~7`ÂÊýaËò¨POT¦{íkÎÞt\Buw½’äMŠùíP±‡+ C°DħïZ+¨Ø€yüÝGxöb»Wõ“—·¼H×@%ðŽMÂíõõ“ÿV¶ÏW endstream endobj 2220 0 obj << /Length 1539 /Filter /FlateDecode >> stream xÚWÛ’Û6 }÷Wh6±g"F$um뇴õæ2M3·OifJK´­FRÚdÿ¾ Hi%­œ½LfË8hÏ98žózñëÕâåe9 JB:W{{¢~èD£&ÎUæ|Zb?\}¾z÷ò2ă£¾G¥1(jS}fáYÕ 7v»Ó.‰`“™ÍwVž ®F’çÆ——”:1‡~k)è c«ëÙ³g+7ð¼eÊŠ´)XÍͲ3Y¦ÌL²:vΪ̊ )¹:‰*Ë++¡´uýêšÉœU©±,r±‡’ÀB”±ÚœúÅ5#WÚŽ¼À+9Säë‹/^ØKó5Ëí¼Âùþì*Í×iÿ…Àҭආÿ?¸$ž‡A9îl!%€È‰’×Ìe+nTnÝ{kAQ˜I Nöc^¥EsëþÛíÛ­ë›y£úmVY¿6¬pù~ÏÓÚ*(EÆ‹9xÙ1<²d››Î»ë©›/zŽ"[_l6÷º»Ïm .7CsŒ›bâ÷I(•ï ›$ªÙ)Þy¡ ƒ€-jxûгîò?…½\6ÕOs»Cpꨯl¬³');&×—¯þØnÎ]¨õ Qˆ¦é/yŸû¯?lßXÕØ7k¾“<ë€É«‰½3øÔÇ.ÙMÂðI%튆týèÞû®àßW¨ºÉṅ·Áªünƶ‰}D ‡–0-ö¢©×8´‹`øE­ Ï'9¹©2­gýNd±¹Z|]`ôÜ«R'-Ÿ>{NA9¢Iì|k–ŽÜùæ…³]üu–[öN°7øúØñýù$>CÌa0!(‰qÇâï5e¼ê)ƒS:7ôTTflד÷myÚs7f|ë27Ó6%ôä7qbV†‹xØ»&ê#B’ÇÀdšY8ÓÌ|/€ff–ù :@5Ûv¦ Q·™ÚŒ‘¾lª´uIœ´¬¢G±«Yn÷˜¹ªó²­ÄöÄÞJí[`½–\²ƒÝ¬W2¨iêT”ÝñI˜LÚ”Ù‚œóHÆ¡9™¨:.¯W$¾ëÓ²7°4UÆ¥ ‘$\ J`s-d]ï[ ÕSÛFñ/ñÏZ`wüéé€Ì+cüpÐ !Äјþ·Òh=ø½p6Ƕ7‹Ýà«­z„ШÜ)”;—û–ÛÒ„ÁÒ‚)e\ˆð¨Ä|D}‰=7GFÆùÄވš*ŸÑE‡É¹8ð¡ôñ8Þ3Îfù!¯»ÆSCøÕ¾[0yè>@jÕRwº'J¯ä C‡kJnùÿ‰Q2&O–ÃúŒB€Žt0KPVÎÌ÷f„gte„½ÿ¢a½Þåü´¿ MÌšÄ!¡' :*6 ?ÜÑÒÔ°KiØVµ&Œƒ®]J£–~ôuâi¾¿±›º6õnÕ”»î¤Æ@ïep°ìô ¦_³#Uߎyzœ(:I}s6G$@EM¡¹‚zÑRESdf¾ãf”BsM†V®ãå[m†ÿ´&kÖâ$%Ä^"$k `ÃÚìåöŠÖL=²/úŒ•èE-å5v¹—¢œ³º§/“&?¤È(Ž¦^žGÐ%ƒâˆmqèßôøÒRo2³·¿í8ƒ“Æ!K»4ùî£o2„ëwß©iî(ƒžzã’Ér§#©ÌWÍ&Ћ™rÂ@ð|î\7†®ù÷Ó\A%(Æ´;ú³Vî/çæø]",ÆðÅŽ<8Ýôãë…ó©=5 ÐeÚ ¤oÒ&v`št$$˪½@ÿ PÅ‘ph:`Ì:ü½e÷(j”NêGç¦Ö§¥7JkEÅy6í·}rÇ[|·´o€»ñ# †ŸØÞ4Õ'¦ˆ]?Œ ©O¼èÆ`ØÞòp8Š\i: ±¡3;í¢/~eÖm_ÖC0É!§!–úœyy™mV„Ìëc ø¾a)Ø¿ÃR~< §úέ3EÅ$æ‹KAvËíÞ¿ð«?|A~D÷r&ÐlW†·øÿn¥™4 endstream endobj 2234 0 obj << /Length 2567 /Filter /FlateDecode >> stream xÚÕYÝܶ÷_±ŠB xy©Ï )b;M£nû<Ô- •¸·´õ±¥Û^ÿúÎpH­´'_l}(îA\rHÎ÷ü8Ç7w¾ùó³—·Ïn~LÂMÎòD$›ÛÃ&äœÉ(Ù¤aÈ™on«Í?‚c¹ýçíë›ãtF)ó„¥yçXš0J‘èwGu2£ÞyòHaRÒ¦ÔPèÚ,6Θ_f›]˜±$£·GµÝÉHMW©‡20'Uê÷œ UÑÚ½.ˆq)"¢h¡g¼ÛPå°& dâ"_3šNÝ+º®¸b@g=»q eœï‹¡ë -¾ç1×L±çð3‰´ªw'µD¢~‹zG㮧¯•D—Ë%|C–Ç1±ÔmÕ5;uØŠ88€p“ˆ9q×…Ìîå°+fIètþËQáuqŒF·w8Ì‚ÁªÓÎ 4lHSÑø`ÙBTï0¸}¹Õ|Ö8Aj¯ ™‹Ÿ%ÁYé»ã` tÊ º)Ý9ÎP‘ï3‰u»xp¿ A½Q»{¼¯èuÑ–À¿€5:× ôÏq&$ÑfKô£0Fßµx¿y0t4kš¢®Ñ*–¤u«uÑoÃ,¸ó f+­ÜA{Uv"¦ëÝ]c«AeÍš nLRÇ Š¦ÛÆÝ¿IpTƒê»;Õ‚›<Ð’nË^F†/Ü9}Ê®5à? 4‚§áå§]+,œ]lŤÃâÎÑ€Û:9ìYc]-xOˆ÷IØ,÷ü€+ÔÈa–{ ìU´:¶•U KÕC”·DƒZ14oe…©Ó¸¯ué¬ xÐiÎ&Š(/测`ÅoíZµ¦s£+k"A—J¯˜8Œm‹>Š“§ºh¶°WÂT£ ŠHÑ´“<¢Ìƒ4>>lÿ@sQm£iʹ^u'+Ì¡<‚‡£Åmv à…‰á¨ñ©ïö»5ijÕ —Et+|Íy¯+˜8…)¿ÞöôËJ_ÑŠ/àj?zúÉ+ì¦b ‘åïwöFJwßoEh4…á§B#“„¶a@ž$/ž$H(˜¢<¹Ì{™ËÄèüyœº<º]ä>2h­uqfÚé/±šÌ„S LLA™9Ÿ¹ePBˆxj=bM„äÎíø£¸9)SbVÑuMÃyÀ ˜í¢ó\ų§›®ÝîþZè¾Zlîzçdp€sEŽ1Ûõ§®·g¯æW› çñaØ]ôÎÏUßc%X‰¤pÁ5†Ð#ך‹C!E[]ÜõÊœºÖ9² kN¥È€HcÀ_ÕË ‘¯F8¥jk#ëVkä‚Žfm)qÙJnýÇ4ŒmÁÃÁ¸¬‰ÜcÁ‚™û°XC5YrFž¥A|Ó7ƒÂðÍ ÖˆR–DÂS:c;||°ŒYÌ'd²ŠÎBÁÒ4ò$äJ̯Öa“à§@…„kóP,}Àjê`+ÁYnQ†f,îIƒcÔ!øI–Á`ÕX:ˆàÉ“À¨ÖèA£Ùî­ïÛµ¶¨ŒöBD®8âÜ„® &Žn¯,‚¡‘u_vJŒ¹W" KøcÙ¦G€I÷ˆ3—ºX–Lºu&»F¶ ˜˜2™{ÁàÐÕu‡ÞpžÖ 3@èCäšo¯¾°°d¹Ha3:š ÅSfJˆÅ)Âæ¹Ê²}«U*ƒ()e-ö$WîÌD"sxɨÏgé:÷Å|ž{áåÞËΗòQjVï?Ÿg[váâ=Ô±jé^“¯Ò3ºÂ,=oëþjÛÿJá èø‚Ž§Óÿ¡Œ±ÏÑP¹EvªJcnÂ÷õ'À‘l7NŽŸ¶.L—b|‰Ùƒ·“Žµj¶"é!ž.åuyêQUîÇW¦ä0ƒœ,b/‘=ò)ÈÈyúY)@äd±ÌÉëõÕ- !/gMñq"(£¥Ñ8ô1ü~™"„dY8eoÈÚ}×=© ™± P˜¡€ÀàËb¡ ,`ÕçÔs¼$Póuoéð£(Ë*èÏn§-Ü ¤QMX`îëVªÏ.L BópY©Ù›¢<êVý®êà)¨˜:™YâUX#l'ÃIdÝLr`ÐÿÖÍØà,hÇfo§—5~5¾¶P Æí\ã3L½©ð…œó5^`(æÕ1Àv빨~ êvs…‹°¶ìäLj‹÷×à$?™Dºz§ˆåÑûè€G’¢`à=sEÁì¤([EÁw¡¨Os¢Éä“x,¢¸•vÚX]X+m÷+N¨¯œՇѸÖPâr†g}åþ³\¦—*Úýªj°ÑÄ2ÀÄËGµvFÌ„”š.ªÇ—%œEïsw}‡hwI¾»Ç<úÜõáH4g^1X–@¨Ï”²ž¦Hÿpñ"M½ØÂ#¤|éqã/ø¬õ÷^ßi[Â+6Jp„/büºŽ­áÀu4p8ïh0zj½B COk¤°uÃé3ËÃßÀ#½Pîî¡ þôµ÷ÀÂ4Ùáhó}¥Îê5ÿQ-+;6~üãj‰X,å#ovQ ñÅ“¥{ü40CnÌÝYú:S§¢üh뻜jNSåÅ9Û·¢Irn[wiͽ›rÛÀ9cL©`~š \€ ¾oœÛ„¾[ëÓ¹°°½ÐÒ×îÇÁÄ-þ@Cà÷—m'ׇ»- „Ÿ8ùó6¤£Êã°/F¼3r͈µäÄÒ‹IÎ÷ûï¡ ÞžøR`]÷&yNNÌR[±ºáãz˜BPL™ç8 'óíÍÍù|v•øNHÒ¥E=SPLœ=UEó˜…‘üÍ( CiéQúV”Í1¿æ?6m#Þ07ø=µ;m º©×.ü^²Kït™‘È€|cmw‰c³Üw>|SŸÆË^Ü‚jÜ]žïHC˜7v«mË=ÂapþV—0’ð»èÛü  ãTœÄ‹d/LõíÝ{à%Wºó´ÛþFUºÔ­Zq6€’q.¾veF à“­E¾r†ͼ‹Üÿ¿ Ø’äï…HDžI¶ö™¼ÔïµU§Ñ o šÜ7F7,â«×cËŠ%"Zþ[ç:X#Ž­¯ˆclçÂ>ÞÓìÚ)’ÛÓ³~MšÎ-kQ+ìB½âÒ[ú¸¤”ú¹M”Éà‡Ë0k”pm”Mï5zU7ö¶þàVºŽná@“¹ý æ]wÎPÁe¬Ù:MA…ùӶγ)È䶞G>—ÞÔpˆvŽ²5+Gì(ž²2`¹ôæƒ1ìžË„i.WsßnŸýh™Àl endstream endobj 2245 0 obj << /Length 1342 /Filter /FlateDecode >> stream xÚÝWKoã6¾ûWÎ!3¤ÞªCÚMZ-M²§Ý=0³«WEɉÿ}‡âбÙÝ=-‡ïy|Î7¢Î“C_g??Ì®nƒÈIHº¡ó°r¥ÄóC'bŒ„^â<äÎçó㋯¿_݆lo«ç»„² ›dõ…R¯U&H[rRnô™EU 'Ü;¼´§—n“ž‘q/ÄÅÒ èâºPõèøk $vZ=4Ý;-Üóöˆ%‹I©Úš¾’‡æì»íEÄ ­'«º5Vtk4gÕWY'ë §kÓ‚¿ng€©ÐÄJÛÓ~JiYç¢P· bQL\7¨Bâ'x'7/¼l ¡Ž 4ncú;|"ÀÇ7²ÎÎÎ.–¥‹ŒY_ðN˜aQ?™NçÊôZ8`ŸW9«ÛV¨¦®rYá ¥­Û6¼•c°,Z2J’=Éygvý´4­PÚŽ/4 ¥àªoE:ÿx7¿D¥2åû“)üp”É4Û­¸°âÚhà)ü#….¥>ˆfÇ,Ái—‘„Åð”¢ãK^ñb«$bðÈ•@txœFmB%à6vÂE{¾µ¶oxc|ü*é”ñÕ(L¿)jÄœ£z‰Æÿ&ªR\ï/uc·iÓ\Êè1½ ÌÃ=Ï[lù‹Té\ Ymæ8׊D‡H)Ž_ Y¦Ã•/½KOK·‡w $¸ôH°·¤:Ѩ4ÂQ.Ÿd§R»øȳoéüy-;1ß7vš^‰Ý¯kôúqû~DFr| ¢R²“Ùm­   üÖb÷Ÿ6k—]Ë+éªÄت/:T¯³ÔD¢QðÂÄI0ꌆT¼4Ö¢ÙÍÃìŸÒ/Ûñ…¹)òœ¬œ}þJÖ@4ñ’Øyv–ŽŒùô ç~ö×Ñ\5pÒ8ƒ¡ÏŸ&$ K7«âÙ„ÁH€K’˜ÙTû§Nµ&…ü‚ÑÅSU«Nf ³½Íÿçn°0âÏÍÌÇÇ¿EÖ©ã8xID É¿ÃÁá{aL Ñ +¶²Xh*åò8R`„pÝ"ƒi#ÏP´Y]6½N÷z°ÑîB¦®{ÜU÷]!EkCðëÎŽè;É 3¥º>ßšn.ùš0¡ãIÕ%ê¨W¦…—™­­¼\fÜ¡9×Æ%Ä}¾©.`ŸA~¸€«Ý@4Ãl…ËÖ"Ø¡éEOqÓtr°>×3k¼›ñç8øûoøõÑr„8>%gÉü„øþøuýM‘\ªN×)Cí¡ƒ³`ÓÖO¼Mo¯ÿ¸¿±åFѵ—ÃUF>‰ÜqĶBÀ+(!°Ó‡»OöTÃ[^¢HçUmKš*kzÃ\F.v!;X¢×*øàÎWPK©wãŒ!>’õÿm5 HÿP¯y·±Yiv·m ²Öùº†ŠdþŒ7ß!ñ8q\·wö%PÁéïӉäÝ_gQ¹ÖsŽŸa&¥beÚc94bÄ{…ø}9ô˜à|—1 w7ƒŸ°Âßï|.ýia¡áehU#2¹ÚšÁóâm apÓh5@?ÊŒ´Bsn]÷EŽ“b7§™é¹2C†Ê˜fÏ•¾Ce£™“ ‡„ú»OÕáuN`çBÓÈîÒQD&£ §¬u(c endstream endobj 2262 0 obj << /Length 2761 /Filter /FlateDecode >> stream xÚ¥ZYܸ~÷¯øÅj`›IyØÃ’8ÙÅz6/ÙË–ØÓ‚ÕRC”<žüúT±H]£÷xa"ÙT±XÇW‡&¼¹» oþúê‡ÛWoß'ü&gy"’›Ûã C&£ä&åœ%2¿¹-oþTÍïa(ÝšugÅΟwÿ½ýûÛ÷q:{Sæ KóèÚwx”ã¦W¡;Ê?ß¾—röÖ^¦™}m/RX”ôrQ¦×Ý‚Àê¸4ay&üií¥¯ÚFÕ»½H¢àóŽÇ.ú¶Ãyô-­›‹.ªãMý措š;ÿ®ˆÕUêPkZ¡·ã`0náHt£ hÏ—¡w¯Â1'·áǶýôfÇÁ{fÇÄkY™^( lŽE`‰Áó§÷?¼»Ýå2øþ#-'õ  Ûí%Oƒ¿釡±]~‡k϶ìÁÏg­ÌÐyòªsËĬ.i†wØஇ ò²Âó?Wå`Å kíÁèŽd[ÒŠ>âž#ˆšæ¦úºkÁsèád¼ÃR™K+pÚÜó„…2!^:­M_U¯¯·ƒº½« ä—ç¡U>Gµãäþ¤á’MFeƒ:Þm×éZ¡!ѯ(±¶ÑMoS;Ô%šžÞ{.Ë-ª#Ú±•D©kMÄ­\ŽôD‰[gâs7ÌB–f‰¿Uµån,’ãµû+”qúû=ŒÃQ™%艇j§§ÊÅ…²”…ñHòö×ßÞmËa(FÆàþ¼bE’1žfN³N(Õ©ºÖõõz-NðJaE)á&¦'‡•œ[-Û5¯eœŒZÆãqö§Kׂï™ñ}«ÕJš¢bqx»[E‰Ë¥Þ/Ôìlu&_ÅÛò•€¨Yêoôºi_?%ßx)ß}œ'Á{ô;t*¤?»Q”Ìn` “<0ÚñaeO]Yi<æ‰'ÐwÔçkÓ´÷[lIɤ±½Ý$ÅY*Ç-¯Ï Œ \Jo‘‹#85ò{­A$àéÒ}>jgÂü«íõ›€ˆ#ЗÁ\ogUh‚¾óNkÁ?žY—÷Y;h†óÁïôí´áqÐ̈¬+"“2g¯ƒ2_Ž˜EýM“ Š‚àö20·\Ó¸'¨Ž*‡ˆŸ¥£ý=þò¤¥ v1i}/rÔøFPã¹ Ñž9âŒ?‘Óã¬nð­ñ”³ìjaBgUœªFÀG@ÙiÕû(vô±jÌ¡SÛPí`¶®_®þᢿ ñlìqˆw]\k›Ú-[žqPVêŽôm7W?ŸTOˆd]õ…ƈ|jÀi2ez¯=é-•G9˸œã™sv‘°˜‹¥ªéboÕ¹±åžCæ¶ 3eœGÙ76q Ø‹ù‚=rwêq|p tººF—_ x\²S'gFç›)¹ƒÁ˜Üá®nµkÓŽûõmç)â¶ufKÃĺò[3%!Ä:XÃÊ2Xã–Í`ÍC ÔäUyG8«P UÆ@>ãN°åš&áiå+|‘„<ùШÖÍÕ•<çÛÈà,…®º«ž:c\‡kÏ£²æxÙ± `žMˆ´*à1yzº‡,a›Üp Œ¸h£N }æ´,†À1Bƒ½Ô㳜•›)¢%}o[:†&.%Å“›éd;ð’¢™OP-À’PÉF›Ç“Ò’/-xiMÒzV]Óˆ:SØÝQ]q¢9£L:¤|© „àÆÎÚR@Î:Óûî‚ï}ØÃf8@ÂãSëœr iQáÜâ>rim;ÕC\Ò›oB ož«±ó¶ÌšpÞ[ÿÅÑ${˜¨Ë¥®èº1Væãû®*ˆ§ª ö¡iÇ¿«òdjÓºÑз€Ø(®6ÎèÛ‰þÆm®LÏ—ñyåúœÅIöÂ’cn¢.eÇÔ-Ù2Uú ÕN„¢÷mÿ[Ü ‹ÉM ©Ja[Úœ¾à/ ,×lƒóÃmèô¬ÎÂ\Ç€;¡?N>D9Ô5ê°kåÓÅ'u§­­#3{ß[,VÉŽûpž¿ŒE2‘ŒÂíõ/þñWüÉ@&˜ÌøJÝWäàI2ËÌž•KjÜ«\Öõ |§ruL±ç/òŒhæ–ô`œÛ])Θ»Žâ,ê¯^ 4‹©óªwÿÄ 4ÓoðKÎÓYW~ú” Ñjì‡ÐWeVù¿=p¨ÿ[S}yû¡j†/{UWÎM³öÏw·¯þ;æ endstream endobj 2155 0 obj << /Type /ObjStm /N 100 /First 980 /Length 2181 /Filter /FlateDecode >> stream xÚÍZKo#ǾóWôÑ>¤§«ªŸ``½†#²Xm;™Ò*K‘Eeퟯš3)JË¡4’sXäTW}]]]îa dœa l|ÔO1…õÓ’ Â'CÙƒˆÁp!}O¢D2Ñ)OÈ&ù:ª˜œòÌΣ ÃÈUÙgUÅg!=•³Á( (_”ˆXTJ‚” yÁch!Š¤†*BvN!&¨qUWæ>ü†"ú[‚ U¿èt. ,©Î3á_NUW1∠";#T‘ÀÂYŸâŸ¬äa*"*Šr2²šOΠ¢ÊËHQeƒ0;6’êØÉE tÀ¤Þe7ì!*¯ˆñulñƧ`½J.jÿjÇ’Œ/«ß² ®.S)&@“js&HH#PÞ„ ¶…u@évăJ&D_G@JTÉ •! +E Ô8mB‘ ”.<<$xo"æL&r};DƜճ¢pÒŸ”º 3x@éuÊ1ê§ *¨~Áˆ¨¶eˆYHUàiQÛ2“HmË0fb(‚`PžTP¤êÓhR¬Ú$Rf,vÂ`¥ %UmžLÊŽ¡SN¹ÚSK%Ôd²K:Û`²Ú#¨ Êà|™‹ªÀ¨,`?ƒ(¶ƒµœbᶠ6ÖØr9¨Ç©¤YGÀ¨×±ø-Õù`å,J©ä’`b#œ¼pÔ•Â^(ÞÅÑÑѨùÁœbëflí÷¦ùù—a7: ÏÄ:8›aöÙítúqôÝw_ç.Xv?nØ̪_õã†GÛìî!9žÏ–æèÈ4ǘ5´¯†c’¾*ýSxØ®}uƒ´_°À1­ž@^ón1?;™,Í©iÞýplš“ß–f­êÃï×<_LFÍ[¨Ì–7s¢Ž5ï'7óÛÅÙäf‡êoŸüz9þ~þ›9U‘à,…?BÑxÑ`·b|3›Í!ít-OF-‘;¢´DtAÁ!•¸‡ºÊ5'·ÿ^Öï?]Î>šïç‹_'‹ŠÍ}lþÚüؼ=¥úE§sC%‹í Ù„-Ž(o³ˆŽ-p½©¶?1Í_ææk÷Íûó™]\ííìò[5ê00B²9—;¹Ø”úÀ¸ú4 Š"Öcÿv(8,6fדå|8IVãÚGÆE„êäbzu5d=[èÎ=çlB¶é³.ÿp]Z'lƒÓ¢Üͯ·0£ è: R²ï>@],Eж Å¡â]è…cà¥a¶EÛ,—­ö]p•¬¢b´ejÌ|@lÝd^§/”}QJoînêËöô仆û"àÖ&óàDÚ+w6Çè®ÛxÚc’óèõtÙkÁèÀcyŸš$Øí& =rè•$˜v“DéZ©ÒµR¥k¥ŠtD—HJ—HJ—HJ—HJ—HJ›Hô8eÀD‚¾~…ÅðXÝZôÇ…u ‘`äÑmq½¸œ-íÅüæ“îãjü(yÇëž a?žéüEà  M,Q?' Gª™%[¾g¼O§“»òX¨šñƒ¥z^† ƒfqÞ•ÇãèÕøóäÝÉ?Þþílz{³œ,Œ§äcÖ€²ž;îAÓü4¾¾žþþéeÿ÷çlúu$©v½à]žõlõNg_2¹@OVÄy[DU·³©“iÞU Í›³åå|Öœ4ÿ|ÿ£þ}ói¹¼¾ùsÓ|ùòÅ^M–ãóùâO׋ù ÅÎßÜÕš'=ðîŽ^…‹üºg/a×@2ò°×ö2d¢å@ÑË…#u¢hïcØú¤[à ôêÁj‡A¨O|z¼>¹œOo'³³Éc•Šžö÷®T¶˜ïêƒ`%SOnCæ{r g”a}¹9T“}¹)â3‡ÃûÑ‚b»Ù,A¶*˜­Beè³`½FÙ)N(?¹8Ñ{“Kï°([&i%()ëŽ._)ñ—‹ñìæ|Ç]©à®›Ì{Kå¹õKï^„›ÑääÞÜ¡ôdøv¤Ð“[÷Mº_á?¯fß:àð‹Åï:¹ðÓœÛZïëZ¢+¡¥-Îõ²nÈ[€Z@o'Ùz£Ü¦´@îÐó¹è\s‡ ¹KP+êÍ¡ {Š{ŠúOgÃ#b=„g¡¤·õÆ[ëgxŒ°³ð¶GÄb>_>£@ÓÆA´ÏׂŒîjC&¤©(/^ íGØ%~T¢×«ä­×Ëo‡ŠÒ½HYã„Èqv“yœ}ˆÛç„9õäc”žÌÑ3’ôä¦L6K<¼*è Ÿþ|Ø ^žþ„^àÂ6"ým\×&¶É§CÎô•†þž·É¼ßóäÖðÀ=¹5g—‡Ãà$„ð`Ò~}n¤¤Ø×&‚VR_n´¿VO²þŸ‹¸{ÓÆÑ=}·…ö»×,¸{Í‚»×,¸}Íb¨ƒ;4Nj Â&Ô挵ÙÑHo†rxµ[òî„Œ„­—°>!#àRþ€2BMQ_ªd$ÈÿÙÿdžö|l ó±ÿA)Øc endstream endobj 2273 0 obj << /Length 2266 /Filter /FlateDecode >> stream xÚ½XëoÛÈÿž¿BH€;°V\.—àTÔñ£É]r)l£AÑE­-ÆW%)K*ŠûÛofgI‰2í:(Ú6÷1;;ó›çÊݼџ^½»y5¹”Ñ(aI臣›Û÷<&‚pqÎB‘Œn棿9\zîßo~ž\†ü€T>ó¸F†(/¿zžX«2S¬Z¦lù€g^yöª£{ÆÂÌé±Á¢ §E£ª2mrח΃˥£Š;öcßùêIOW4ÎKü 'Ïó&×%­6š¾ë:/ïh¸J«´(TAä«JgªÆ]`ÆO`1ñ]*¢ÍRË'-jMjÕÞBê %qÜê])U7ù2mÔôòôãõè)%,òüöÀI§P±ÇÂd4À)‰d³È³…;AbÕŠF ²£É"”Vy pO2]UªH sH/W XÙÔ4Ïíz³°¼–zŽ¨ˆ@¬ìZ©Tjܪ4·Wß‚]hçTƒ£ð^_ldo´ç‡~Â%ãQW>€`èàiPqÏo÷¸s[é%H~Øœ§ l7ÌaàœkcqÜ@Ó!¥.Ñqpe—«b^Ó*š×ÒøÂ5$ȵ¦-{wδ¾ÿÑ•Ò©í•yÝ Ú«9ÙÇ Â¢‡Ãù廋7Îé5Ø:àÖZÅã¼Y¤ ò»RWûeeW÷±D úvOñaßãÌçâ» Fn±á_I𴙃¾°0}f®ï9kTTzN^Ó7ÓeÏU•ÎLdÃÊ­Ë='­‡á#Ñ5 žWÒ°5$Žë|™©=ø­‹¦Æ f[J&¥Or|@üÄY¦;OÇÁLÑw¥!-Ì ;3‰¾`ß.ȃ‡6(pHAaЙ1–=4`,™UþÇx=c7k,Q<ôÄÚǃð„s³0hÃú&/¬´’µ–ÌKŽœ–òÑQ®ãóƒÎo~=–û,´=OGãjk$ëòè )³ŒÂÃ’`"ÄŠBÂmEp%úÐBWèÆƽ²òDyá1fL\¾¸1¸Rq{ç‚p¦8׿¸!¸¥ÊÍ,]:߉d"îpøió0ûãR5)h7†LòMe ÓÕÝá ˜Ü[ó„¤g,x£ „·Ã+Ô¡wgU†·çM³ªßN&›Í†µ7»cøàúçê-—ÀŽ'-».VŽm ’ˆÅ¼5‚u+u øðØQ&ÿ}?þïTQCt™òJSAôsFßSf~AŠõÂÎ.ÚåècŒŒ²–àŠµ„{Ûñ$ö” å¡P`E™„-WÊ <ç®rEä`[ mž™ç)f$HÌP³zÀ¦ ¤Û¸ãƒAô¿*tý ñø«ËaIW÷oió ^•@Àl$Æ!‹Á±(_qbˆ•çHÅóA,òzFv¹³»×}$ü'‘ é’|¤ä5ô=tºK¾ý2dlÆ5˜=‚oÀûƒ˜ùIpÕG]Îui¡9[¤«eZî¯&`’2O[Pl2xÍ\?Ã[ÄŽCD/ ß\Å(•Ö?Æ!ìœ$묡ö!Š ­qZ¦Å®6…N™Þ ¶®è³ÉMƒÔ)ØC&Ïáê*Í\îÜ»ch`p§†ð @°o!FÏÑkè| â„zCK×KÔ× TbtM¤6V‡"¹I­MºÏˆ½tõ½L#Â!7=ú>yx¢m¡á~þÕ÷C0ô@Þ„'ßw¾m›ëóÕª CM¾Õ5{ðDÈrO Ü>æ"€"#ûe}ØèB†{£ iîskt íâ'Ûü h”*»'ë­15|¸Øã¡#äµ=÷ÁnŸYÖï1¹ÎË|nï¾q£ ½ûºÉ¿A—dw~ êvóŠ µÐ_ynÅ â‹yÍéÇN=æ]h½‡Ð™A⠳؂à÷ÀŸó¡LƱÀGá¡eW+F/#Ÿ'hX_;\|§³”X_¥FÕ\çòã[Z<»:£ÁŸ¡ß¨‡<‚£;úâ9—€$QÌ—œ'Á°KàëSBÏû‚<à‡m°L¢ƒÏj]šÔyÎ'F‹D8þh§G9íøyݹéBise(rebéJˆ¡ V(”}£ ¥‡#Ÿ€ô¬(¼3¬ õ»2PÝöÕŸ4Ióaû,ñÃ'>À£G`09Œp_\FÌ Âçì möä[U/çC- ‡–$A¿/¼V¶$âk}¨#Á¦Êc±é±ìðquÔ§Tu³žÃ³æ¹N üNì[⮿5¥}k~¾(Ú— >çi5Ïÿ¥æÝSå¸ÒÒU/‘5ÐÂu‘³QùÝ¢©ŸUDL„$mŸ0¦O€U?œZ–ƒ!ØÞ¹GáÅ6]®Š'ZÂÇ-"¨Ç0è ú€x½yóZ|!®v4ÂW èɃ£_àý°6z¥×…®iÑF©Iò´’©ñƒK}ð·¨sä;wÝS@¡‰;ŒA€&Þgò9ðàŸ 09yÆÉž™‘í§q§»ï«ƒJ´eÁ‡Àã#p–ðˆƒ>ò-ˆó \H/Çêö 2p[\$0?4J@¿Ó!z»ü„–Úq¦ñ”>¿ÑÇBüo«ô"Už5h̵.Nö¦›Â¿öÁv,ʪ áÅ S{$¿Ë›z* ¢# °?0 > stream xÚÝXYÛ6~÷¯6ÖbF$uÈCŠd‹-Š6îS ´DÛjdÉÕ‘]÷×w†Ci%[ël‚¢ÃÐðÎ|œ‹t­ã:?Î~XÍžÝ܉YˆÀYmîºLzrÎ;«Ôy;ÏŠw®+[]$šU{ÅÚ"[¼_½~v㇃¥2XÇÀØ,â>ÇI3×îõj5ûkÆtÞo„>“±t’ýìí{×IaðµCqäÜš©{ÇIBO;of¿õüN¿F)‡ºp—w?2›X]6ù™&=@Ãq,Žx§Ò/eªóÅRøîüe¦Üo‹²n²¤¦ÎMYq½þÜò¿¦®_×ꤩÍnÓPxã±÷%P•ý`âø0éú$öK]'Uvh²²){¯ôèyä,yÄB_Ðò›¶Hp-*ÊySÒ7)÷‡¶ÑÔø„ «*+[;«l›<Ó5T‘ÑR“©œºê¦MD¦™à ï\߭˽ݣÜÐ÷v—%»Ž_š%ª¢ÙiÔtZP±ïŸY/ÌóBbäs8LÝdÅÖöv¸“f¨†º}šÌÈ€$õì좽5 ƒÝ„]gìá~šktú¬Òu–¶'øÀ.kP™Sîe-§“}BÅ$WuM.9òÁYäGù^Y‹¼šp^Ïc‘ÝL¶XJ°î›÷çM“@$eÒJÀÞ`]i™´{8Uel¬÷…sx,ü‘DûO“ 0äÞó,O‰w­µ5dø±È©¶NGþþãið"æñƒÞýOÜþ"$ÝÐÏ–2Ìug) èI{ Ôj«']ìÜåÆ°œ¸Ü“'‹¥ïºó7’¾{ÝìÊ”hcH =…pî1?ì¡»ž8oÕF}ÄIA|‰Ñ’ûó?õ8 2:°ñŒ§$ršm3sŠØ8Tåv­ªç7/~~óÊö1ÆŒX’Åœÿ˜ ìa`ü˜…ap˜0fRDc`UV4ÊÝçwßÝË"?~™oÂX’²üX³4«5a10Ã,ø&°H7kݨúkAð¿ vªùÔå Íñ Ÿ_a•P*¿:â4HcXÆç•©ÙLªª/ÆéÏÄgÊö2HF}Q6'R³ôÆfÓR7$Jyò—¤î±X'€ÇŠLˆ€¹Ü:ÍݪÉ0´N© &Do6h•`:}%a"ë7Æênü2@"€Š_È1@œRijm,î¤ šC …ÔËa)CSAã@}ÐI¶9ÚN,¯°·h÷kšhq0…‰ûŽß!W‰®Ç¬lMÿ Åpƒy[‘±ˆÕ)¸ŸÂn碌ô.Õæ >o¨/³[1ñ«>⻢_Ú—¿ÔÜTå~*®õ(Yß僴'2:GGy¹…ûé< ‹6nw\Í=Š>¸ \S 7¤ugÓ©û>Ôý¶ &Z;iɃ  ud“%~ z½…›ñ„÷…,–'ÂÖ%_Ÿä‚Œ¾÷f?læ4ט'7FìJTmÌYu¦ ôÚ®èÌÞ4z@±‘êå”Y QãšF ¾(ü·Aæ’³êH9´VYîñ';U©¤Ay 7£¦2—2¤oÓ×áolÞf.b„D—]í„ÍÉðoÄHììtG4‚<…HÜ¿Ý'ˆË!ræ¤ ÂÌçb|`g7R´ŽÊÒFB$: ‘~@Â8dPîôÒŠ«É§-¸Gó‘xtí\èµ ÒM[;/漎ý J™/H26îÀ–axÔÕ5“×ÕØ£h8¬†^B©™åõ×< ­è=üTW{¢> [^½Ö9…5lJ@2ÂFW55M…YŠ>U5YÒæ&LB»º_*(ÐNÝ–©‚ Y7Ôhkôtäš'óúa_]ìK…î šäðgÉæxÀÐ…bNúX”fñãžÞ¸ ï6kvD}0oF×½Çfƒƒ]ÑËÔyGròeâÔ=B¸Kö'¿±r¶ìR9¢×èúÄ+6en¡§ÉµZò-(¢—eÿÖºËøñmø˜©U²ë¶ªõ÷#{q–>>1Až‚q7²"„?žöÖ”ê¦ º›)Àµ/UUšý­ÓÎèiìé¤e¾ZÍþäb¹0 endstream endobj 2301 0 obj << /Length 2387 /Filter /FlateDecode >> stream xÚ½ÙŽãÆñ}¾B/†%À¢ÙÍ;€ÖÇ ÉÎÛ®´È–Ôc’Êxòõ©êªæ%jvg³ì³ªºî*ù›ÓÆßüùîLJ»ïï£d“yY,ãÍÃq#|ß Âx“áÅA¶y(6¶"’»_þúý},&GƒPz¾ˆ=dê¾\tk¯­”w© ^ºó—û.îá{Qmö2Å€€}”2šÝÞ|ØG¾¿ýùþþ/ïw{ùÛÿìd´UåE7?éoö"õÂìuH?5Íã·»(Úv­0]¯€ö/–7;1A­A0´U½i¾bf¥V;‰zßÔðwéiKUÍ¥æqs¤ïG?ò[Ý™â¢J Z=ë^·ÍI×Úô/»8Úþa4õºã°³žš|Nàd«žV*Õ·æw«ºX{Öætv@SÓøæœ9¤–λ}³€Ó:ÝÒF¡xë¨s¦£3ÿÕ}$òLxYÑû¬±1æM¥‘–LâÒšúD;„«¦Ð%­½Ë¾ç# Ž­¦uUv;€E“§–lÖ*{-ò5®ýžë§žî€Ç´´Öåªàßá, ®ÂÑA€L.rvåm#{eÀ4€ÀÉpÛ©Š—ˆØ'ò…gÓŸI¹yLºi;$JfÛšÛ}6eI£Â0ã[Âñ|¶B›AXÐcê¼¼‹F=œ«õ=2ÌÙI¡{eJv\MM_b)˜ ¨gù2Ø`]¨¶¹ì‘ؼì ð„Öl-ðÏK7- ÿ‰¾:&¾Zú‰—Ä™óøm×Éà¦æ¶pïAæ¥Cˆ`“aâÅ"›½,lêáý‰„iKw`3ü?K«Á÷kZD.œö6©Ás#Ç-&Ú¶ì“ÑM1‡^”‰·‰Yb¤/F—“R 4‚‡Ë;2ÕÑEvŸÌ™e›z¾ æ<ÉŠ•h‘¹Á¤y-˱V$òV…`vÉU³dpJ9/pw^8Ø%šÑÑ°w¸ÜÓ ‚5‘1£¸fyµj:†é~Ò©d{Y¤x(òÂ4ÖÇ‚y W$“z"P§œù#îšHÌ&€Ø‰dÎÚÁ'|Žw#MüÎ}áÀ> €Áuî º ëÏøŸzá5ýÛE±Ï·Õ |ýEVdìǼª›D V™} ¥3Åyo*Sª¶äúhâ?ðo–«¸EEhàÏÊUœZÍriáü¤¥5ð×ÊÕòÇ¥ÖùÄ“°©Ž-­øW)‹yM-¸¦vÅY$''™¡bµ¦¾"— ÚÊ/%ÙΫŒ$—1U91¨œ¸¡rA,½LÈ7êœ #µ!+Ã9W®q¥h2T ‘NÈXºd‹v@¼Ö u(:ÀgLêŽx¬;¦G&Ðe/× °0©AâY {W5HìÔ.iE®\éŒ W,¿¨HÏÿo…€€Ú'ÌäL‚ï– +Å¥íÁÕ;À=HEZ—j:Çâöÿ5ô%Q‚ß²“âf”ꇆ–kF{¸Ñ°:6%GöoÎÙõíEÿiÞušv‘>ÑÔ¤Ü6•[uèšòÒól¨„aiÞK6Š(óâX~#ß ©CôÚ_ÄTtÎÑ`•kϽ,‹¶­HÐÏù Óí œ˜É±²üÖpmœqc‹ù51`²Ô'ûS.c· pÑæÉÂvè:ÆPAä¾´DÃq¥ÚG,=ñ 1d™SAø׭鱜ɢíß„“”+s™¸^",å禳½B_ú=›hGÇøWÔêY‡m_tF…s±©<˜¾U­MLãûË­´ŸüÎc³M€hjHæ+êb¥Û_ŠSÅM÷å+ºss)‹Ûõ—ˉ.Ë–ø—‰!+T•©gY!÷‡Ÿvç>[«ü*és¿G ·A:—²_¸v÷…ìá*Ùçp endstream endobj 2312 0 obj << /Length 2627 /Filter /FlateDecode >> stream xÚY[sÛ¸~ϯÐìCJÎD0Aðšv:uœ¸É6ÉvlÏf:Ý>P$$"¡ IEu}ÏÁo2íxwô@ààvð;ä­v+oõ÷oî^\\G|•²4ò£ÕÝvÅ=‰ ZÅœ³H¤«»bõoGÕ¿yž8Ê:—¬ÙgìX+÷?w?_\‡ñd©H#§)llñPञ= fG“Ùë~úÚ(hѯnê;Yu”³¥“-¦òdµæ ‹Z{Y»k?ô½ù*óζ·ôÍ«¬m‰g!&[Äã!ïYþIÕÛª¿áO WŒR‹á†¯hïS©ò’šª¥oFŸJµ–\×]¦jUï¨ß•’[]UÚõCç4Œåz嬻öõ€3Ö×<,üxÊ„ô’Úžƒ>å?ŽXšø=ÿ„Ž¬äŽÃNDˆñQÄ&’d@ ¯ˆˆ-¡úÌ‚zR]I[Óåá,éòÐùo'›:«ª{l»¬.²¦Pÿ“QÙªâ˜Uí+Zõöz‡ÁÅ…Ç¢ „giÒ1×înݵˆ"ç;Šº„ E8WZû“Â4¡PxX>Œçù¡eš×dÒ4)t*™¹¾³`ª\ƒœÖúØÑåùÔüH°0 ûÛÿ所fÅ+B,ƒ @‚EÜrï/À˜0ÎØË8K¶Úg2n€ðã˜ñÔâÑœe>Àx ½Ths‚µ” ½“µTÝ=M„쪴TNBˆ2³#3”‘p’jWv}„Ù7 ¯Þ\Zª.TžuºéMI‚r43#ʳVέkpGÊ*ö¤X…_ó n½Y±Ý´¿ÓHàÐÑHžãVÆÁs­wn$SñöúÍ»;7Îå-FÄŸ¾»ïÅ,‰èî>mÏ{þÍ[½·,dE¡ÀÀJgX´g¬Lðžø¤;s!ÐU‡BX˜¥UwÆÖzR.‡«/@ÊAm|1¸j³jN&¾˜¯°‡Tº›B' ðcɪA4¨yóÇÂÔ`ƸÏS½ShÙÙ \†8wn*Cgo5èAGL‘ˆ8F8Yÿ¥±"ë2"l›l/ѬDì€=[Ó÷CÆE:·ª¼WÚco:xÔ³oà‡+g-C˜9þ©»G}0¸ûí±ÎQg˜Ò,ösá3Ï=ñ#Xc=ÖgÝý‘°ÿñ1GØ©lWk㶠¬ÒÁHžUù±ÊH%``sOôF‚kñ»Ž‚1l¬Î^²Zòó¡0°×þ¶ “ßøCÄÏÖŠ‘8oåA‚¤³•Î,)! N•5.Oœ\8›ƒ¶ó8zêì5k€X̃ƒ2îB›B¤¢ÀÙg@:™}s9X8õ2úleÏP„@Û·Ó5­GÔjÕ––ZÚõ=Ì æÎAŠÞ éw§Fà´¥nºüØoº5á`ºÜ „+:úBpk»¥xb}–°y |—Ö’FoE}ô¤+ЙKLÌZgd%oš23™n«¬-¦ÎÕ¯ßfrœõp‘“› 3tkmçªý)háÂ]0L“&AƒV£6ÉÓanû ©Ô4_˜nv]´«€…£xEܳØdK˜4ÙæBÒ‰ï–]wh__\œN'ÖŸì®áÉñO¦‘!lÇÓ±x´>öá ¤øP΄p#·¤Œø^ÓþüÚŠ©C}/™%ŒÆƒ½w=ù%}fV„„ÖOe‡–5¹\ÎRé è!¹¹‘nà9»Æ…Ð,!pèzˆ\˜° Þæ¡LS(’YNó?) ìñ/—I7ß^ÓàRÝŒÎÍ|Ÿ!Léz‚µoÙô”?€T1 Îú¨ëB×™«2;ìûê&\RT¿³‡˜÷ທƒ÷²ØÑcȈ€usè1KEÜ|áüR}Sµ%}°-Xá£`‰ˆñh0àÛþÝ”®°¬±ÔEKPœ$ªõµ­j‘’ÈŸ•uܹ58Àê·ÊhÊN[^¯._ÓÀežrÞÛjÚ#æ(ýbU»Ó¹¿ñ½Â”‚:¥¾á!N ¾Ç­­#¹ysÊc1Mî†ù®BÍÀ¡úУ˜àÜ/2è õåP•CÜãPp(E–€‡øÆ‚ñaðg4/}lÌ›„B?o†Â\LhzÛ2«¹ Ủ™—>s3w,¢%·`^Gë ÑÚ&ÿ͇Â$a Á%ð÷üsO_h…Nýr7žD"¾ø býî6*O,Õe\…Ϲ£Qæ"´2÷¹•yÔ'J…€Ê¶”ù7>Ì5’†¯Q]¯ãvÝ;|e·~Ïh“ۼܫž}çBÚf'Üvêk-k;ò’f°ƒ7l)ùR*¨ë×<%O÷®hýP‡ ê%|ð?ïÁ¿lL¾…k1¿ÇïM³ç±&Æ#t°Öç)ÊÕ‹ßè<£­o²NãùÎõÇ×D¼º¹¢Æh©çé:j£/žÒ0Ñ‹4N¸à!çi°¬4+Ä—Þj„õ^ÀvÐaB˜º*å±6á%†ü‘&®?Úî™Ç@1þrì*eRª¨OÔ£ð,ž˜çòiN3lÎe²äÎTB˜$ãÎÑqÚÏÛû«çþ•÷“õÔK"ö§¯l?4¾°Çl‚ÁdjýÜG=á~¸$ï0f^=%n(a/¾6ížq¾˜5CÖ–Š`žµÝJ¶/«V/&mÏz»;Kå~ô^ µ`À‡»Œo¶Þ0"˜WfÇùS€ôg1ÁWúó§ü‰.±ç?L®-»S iÚîXÈúÉ[‚a‰± nùàï' ýýdÊ£ùÖ³†LòøÁ5Ø¿FžbUÄL<”Gÿb²Åñ• ÿ1¡-٢Ƽ»{ñü¼š³ endstream endobj 2323 0 obj << /Length 1262 /Filter /FlateDecode >> stream xÚÅWKoã6¾ûWIØhÄHõêC¶/¶Ðvãž6{ %ÚVW–TQÎÚ=ô·w(’zENb Å^Ì¡43œùôÍ mÃ2>LÞ-'7 ×7BzØ3–kö,äÏðmyNh,cãóÔvÉìËò—›…gwTÐB¶GÀQ­”ÒÕŠ µ‰¥¼ƒk¯£ojûðБfwº+RÆ{–§Ö›…ãƒl`˜¶¼@ùº¼¼œ™®eM#šFû”VLnÓ|#…2á_•D«$çR¦Y¬Ìò²d¼È³8É”Ñ5»'Z&4‹d´‘i[(tJ1­¤ÖO¦\qRåŽ ˜Ž‰JòI àG©ÎåòŽ3ÕhÿØÆ0€èUx¢|W4ÉV[¦ñ¦›,çUŸdë~ðð Ý3`…HRë;4ìFã¢)Ò¼„òDÁóhBYœNÏKóç<ÿ*‹Ù·;¥äÛÈwl]ËWR£Wl‘ )v®¡âU] ù÷‹wwËÛ‡nð×òlõwëäfú¶ÛÏ0‚@9Ò'¼‚m¼^±ŠòW´àlyê@or·œü5Ù[†Ý´@â9°ºF´›|þb1¼È ã[­º3tIŸ8 §ÆÃä÷“}«î³€f§ÏB\± BÓýÌñ§W·ÂÈÄ®5ý HÁ¥¸ÎK)\Í°+êëJn]ýY·€ÓY;až“µœ"ÞÈ!– SĕѾ‡~X&EÝ6Æšýp‰æ@s—Ö‹}ÉŽ#Ò¨r¹F%«»¼ïg!®Ñxtà³ÖŠ@r…€Ü¬•Ÿ”rÞ¾ [rpCû òBªõbÅ…–¯µÒè ?LB„¡ÂL ‰TüƒÓ {ûà;‰MÍÁ郪6„P¯+8ÐtSŽj°¬Úæª4kˆê†Ñ¢áÛ=úäú#]¢U!]~Zc^@‡—œ˜6„ÐÏÇñ,i²Sâ±[éÍûF\§I1_ÜÞ?Ü]×øàA ŽRT…¬4dgîo7e÷¤lò¸ëÔêû£q꤈¶slëxò7Ó2¤<¯ïr¯äŠo?ê"ÊS}áÐ÷‰´:>'ͼėu¸{[Îl€b¿cYõòåíeî†WÆn]Á\¬©B³n¿­€a®9-!ϨßSáÃ…ÓA؇ÕE®nÜ‚‰oÏã`ÒC"ç¶&G3Ó!Áô£HÆÃÓ}Æ %–…™  ö*ž£p« ôºç, ½U7üçÕaû>"NKLé°:0"¶×Va<æÉCßTÐqÜ‘ "vßVfŽíÀÕ댮Þ%üyIÙI d• Ð}Æ´®ÅºwQLs­¦-Ñ¢(óþ ê Iû)ëHÎ'Îñ¿K÷øÓÕ+Ü9ÿšâ#/ endstream endobj 2341 0 obj << /Length 2437 /Filter /FlateDecode >> stream xÚíZK¯ÛºÞçWÞÔb†Ô[(ºÈmnŠ}ÉÙݨ,ѶYr%9'çþúÎp†zYv|\]´8 Q#’C~ó¹Ø/äâo~zzóîc ±ˆ'X<íJJázÁ"TJn¼xÊ¿¬Šd»Õë¿?ýñÝG?Lvã@„q [™iÊ÷qÒÉ»Ûç»®;XµqÃÈ,Û8!]Z¼+òÓhõ„Wˆ8r,«¢ÚçiR¬7nä¬Ú Ÿîª9é4ß½ñù Ûƒ®é Œˆº¯«ó©abE´SQµ4ªÊÉôï"$eF„—Mò=çõÍ¡:L'xàtÀ-ö}:åߤtóÓIÃ$Ç—ðêK³5¾dz·Vr•œ‹–°­Ax„U‚4”½õÇ÷úòóŒOÄ2´³€(ÇPQ,žp#V¥ùè;nl`tܨG‰úf†¹3 ÒªHœL—©¦EyÙêúÛÚñWv»Z¯•¿Úç( |·(ãxËû4kµ:T¸ê™gåeÏjF$âeúBá]2Æ20{þ>)iME£-óOè‘VEUÓ°LŽú² C!á^$<6žÓC ÈtðÙ /Páá  NµÎò´%ÁÀûDt@‰7µ¢ƒ=·º£ur3›ô\†r þ7䶯ó짓Ùá³wzñÀìð%¡‡áAS­ÃŠÉ”< WÉ2w$ïvŒ0êÐÇ—úH˜Ebÿuø¥Q}^¡÷º|H Â.xöp¼Ð.èQYhCpÌÇ+™©,†Á¾„7 X 0»ÇbÂD _4ƒþºMò¢ùÍ8Ãíî¹ãØ›{•žºlv>@ªvýÚþD´¨‘ ?_N)È;¤kéd™Þ:˜ë7ìқݹLûì¬î«ºsK¡Û9N$dà™ÿŸ9|ØO¶uR6»û1ªNx´Tƒ‰Ôk­ö#¢ á³³]3ý5†3éU}äWÄÕ¹M«£nè T‹½x;c‰Nä@ÒÕ¡EþN?͘£‹Hu‚ø­ à–¾36èÆjƒq“×E½ø…ôáÈÞÞ]p'ŸXqÎ¥ÁÓ5½e/Ë~¸Ãb p˜›uÎn ˜%5Öÿ¤Þ7ˆ×Ü| ^>E©uf³îíËÄ\Æz:¸¦½y|F~®/|PL9UÉ©+äi·±p=GxîÄœÒÃýP`phórg÷à2/Çm…°xŠR;x‚Dè#Y$~90Å*/Ê^†«Ÿ^èû ² ä=geb1|©Nº¤¥i^§…&ª‘½geo¶Âè=“‡_åß0Dê´µNÃú/Î/ÏtFEñè~‡æ¸Bº] xªrÔûZwN‡qhTïG> ÷‰'AðÔä¿ê‡t<…í®ó”^F`…,épàÍð…„ skž'hh Ým8o¨ 0Á8‚°s›+õ-{/îíË2šeäHÞVoFÞ£Mj`Ú\ÿ>RÝø"[ôâ+%ù+ôíµNìTäÇûåÛK,ht´³YT¡Ë}{ š36k Îl-–Ã<îÀW=øÊÄ¥|_B$Έyj9çãü·ë7t*;uq¡p¥ogåÌõ„ÔdãDâ` ={ÙA°ymr9BS¨ ñ*=$u’¶dÚѪikr¤>75üAu…Xù¨ÚV5Ä ¼ of«‘ˆ•)îç“ãÁK»UÕ¨s†ª\SUß_½ íþ1§ãŒðןû¡;t9¶Uƒm’~ÅNVˆÆ¾ÆÍ i:,Û)!Ï'•jûòMZ«V!…˜!ÁÐäÀg¶Î0v"«²@-òR3éåÄ4ŠÃYYžì™S„­»®¹·7ÚÂ=6 äŒh!Û§»Ñá쀚­NÄ0RìNHJxV^fP‹·Æà çê¦Í!1Õ¼ÇtómÒØO&¶©[Šþ jyq¥K¦‹YuÄèˆú5M“ûÂ]CNm4f§8j¹Íj¥eX§q):›eSy¶|»Ì’æ ³¥q;—º‡°°óÞ˜ø"“q£@Q•‚Yá%kÐÔ@x;¢å¶Hʯ˹ SÛhÎ'ˆÞM3²Náiå ȉÇLñ ÝïSµQ] øôÁ]ì‘»„xz,YŽDW~È»Ìðb¡¤¢¥Oäÿé Çå¾åÉ ð1ˆ<êÏï3P‡"ˆ:ÑÏMKÛm™erÁù9o%õô:ßÈéŸI„˜»…`49Æ;•ôÔÿ<'ņÆ6Ód.àʲêȱ^IP™p¬1½Õ!?Éçâ`)cilf’NJ£îÒyeëÂE ºª JSq.o6Å]ODA‡øÛûYy½!£ãÍrm\þ;|Núv› ˆüžÑÆQFp÷cˆô?æ!Ç}q¼™Ñz 8†Óþ&:Nì­þ éf…A™"s½†„ö-·2” ÐùTîlV‰Ñ—’¢#ñ¬äéÛVc ßzuBºQ§9·ê ZÒIs®gÕŒ„RCi4·W=¿Y·íÕœŒåçs RDƒ>«4A7­óæ+wvs6L4›¹†R*/£žáçû’ÂHDr">ë»;W™ƒ'—²S–å_¯1”º¼-öͲ¬¹‡Oè[’Ë÷_^É'©ÓÆdøÒ€k×ý¸1hgÑ!r€Á’ب ~ÓÇ@¹ütE$¡ðäåiM­Lsûë¨~K»þåNJúæ·tÙñþp÷œmÓvª™çºd ¬'püÁ9¾Ì;$Ñ<VJæ(%î~*†1”ÜÅ-äí[ôyÝ Ï¦î9£ö0I‘ž Ü ":‘Z;3©¨Äëç "÷a¬¹÷6XÖ>cRVÑ‹ý·[«S^=¸£NZê\S'Ž+ø´*Ûº²1•¿\ùéwvBä}¤Q²_û«$/ñ‡ô–H:I4¢Šk(ÄŸJ¢CñÒæ{òãÚ^"|†sG\q.A|žyB]ªÚ„ 溛Lï*4×бWi /¾‡çw© çQ»ÃŒ¨V^~冩ϦŽ&bзµ|.ª= ¨5ã÷_Æ70óÇÌèç;ØÇ&ïéåÏOoþxÒ endstream endobj 2350 0 obj << /Length 2953 /Filter /FlateDecode >> stream xÚÅËnä6ò>_aä$6#R%%˜ÃÈd³‡,x÷2ÉAÝb»…QK½¢:Ï×o«H=,ç°ÀM‹Åz³Xšøêþ*¾úåÝOwï¾ÿ˜åW¥(µÒWw‡+Ç"IõU.¥ÐIyuW_}Šd¦¯ÿ¼ûç÷µœ¡&e,¤NCj«ÝÎ Ú»˜©¯Hß&¹rnUÀ„¶ ý|}«t ÕØôö&yGCж¿§A_×–FGÓѨêªöñkÓ1Êq>üÈõžq5¯†½m:žØÿ^ªÇCß4‡ª³‡~8™šç¡¿E1AÄ[PR™e$ȹàˆÎKbÏ#Žf<º©?2‰Ëp$.Б8Zé–œŽpT7‡k•E3˜noPžD±²bu-³è&M·ojDók£±[Œ³:K¹P'LgpŠp¤¶¸ˆ%kÉd0èôV³äVžebiSGcSý“¬Z3«‰Î&»'e¤kZ'…ÁÀ^ËÈÛ÷‘ ca̵It‘u\aSÃhnjÀ±kÊl/ÝK©…Š”òJWr­tAJ¿; Í$™Gqž‰8÷‘IgÚ""%â²ðhÕp-‹èþr2ÝH‡ï«Ž;æáb=›cÏ¿žžeÎÿBn«öÂNw«â¢¿`ñ5‰Ö5â^Ül¡”ÐE¶â½ùrÞ$S"‰C&r¼eñ‚7œ:/„ù' œÎW ¶§0FÀ®Úf&Bl…ÿ#A¬aRUk{ΆðOW&EþþË»«O3Y“´"i-OEY” ´L¤™$ù> ãeeT»šyh]ºÚ ´Bþ(ýÞÙ£ #(„ðÇ£yÁµG•ÊYU 'Wíþ¥lŸ$"ÕÁ—n,` yôÕ =q³7mËâ8oÃAk*id,Ðó®5'ïI*ƒ»)ÛÌby!g—$v)$×ѹ!h „þ2îû…P¡£uP+°§ªm ²ÛŽ•‹Xp^€¿Îcp™øwd}H‹P+À›µ×‡" ™ÎPr‘‰Gø#ŽÕS*nÜlEc¡õ\ä*2V 4f®±^@§Â$KD™fË`¥œz—…!1öí…|gNì2Ñ€°E@…iZF?=´6‡k ¾iǾË(õë༿ªûóÈã€c«“¡ƒNf<ö5ïD‡ÅÁòw‹¦ÚÈ£äQRÞ"ƒüûà˜â ç0“ËÀµ=²ÃÌóÁ©¯M+Ây³D‰ñŸI »ŒÖ#ÜÕœÒOs[)…R¥7ÔÙ6_͆5±N*BÌ5–Žìz>ʞ;AÖMƒOäb‚¦oº‘ë  oi×%º:þx»Ð*ú0B'"œaÃú$s#)K¡d¾t£¦»NcHÿ&Íàna ÕÕ€š—àC?X¾Ó%‡Žôž !ªÊn9çw€A¦|¼†ëõ†î™S?ð&âÕðvlN\_ÀZå‘þjì‚û‘°æ›ûS³YYt|–(™û%6apnûÑ]ÄŠB@§ê3ùÑLC61Ù¨bf:UÌ÷>U'R™Ô 3Rç|1트٬?Ž¦ÁðŠŠ\ŒÄ)k+Îf\ÕÄ¥‚Øg@À}ʬB$Ÿ[Ǫ̀šŠ«E%10šý‘(ìûa0öÜw®Xß:ãÁ4÷ÇÑNP8ìq³–E÷è/-*&‡ËÚìMƒ‡{tV„ߊ ”ií­áêjïŽÉCìëEFÿèqñÁL¤úfqÄÁÌ0ôfÎ9∼5 óf{úÕèGŒè®°Ûö3ƒ¢š]‰FÝÈ1P¥YÈ`ŽÓ'ùçVX™†\D5²w@´\"C·I R¦J–<¨MRQèÀh=K ªs(NðÔÇ÷JZz¿%8^ös+'Sœáp•´T‹nÞ…ZóSBJ 9s(»{WTÌyÝ—j?bòÀÅÉo aäMž7mðÁÝö‚ñ€ŠÞ3]F¿¶âa〹Ëè…Ë(­‚[jÉn 0(#›ÁÔèÌ:úŽÁTüã3n™´X$Ù+L›‹4׳Ú|ƒV,’ÉSû°A¥tƸ!Æ\ kR‰cÚ2ûüÆ—$½% Ë,硈ö~ E-} z,¡nKÔÒYB|B‘õÂÂAez•Ó`i[pPN"õ+b”¨ŠEŒ"QªRaÐÃäÅu'/2æ¥Eà˜Ã’·uר  þà·Ð6R¼Bò4}rsàNµÎ2äX;UÛ12gO††­èæY}hG3t ‡ný]ŸdŠœ7Ò[!yÎ9A‘&éër_®^vN)â,ù&çDÆ(¬ƒs"ˆœÁ½ÀøB+µ‘â1;¤¾\KÊ™Ç"=ÉcqÌ ¥9Ò)]§±O×€¾ðOGiKv¥c¡ã×äïB¨IIt‡ ÷èŸxûg`g&åd³BËU˜y§-¶œ6•%9mAN[LN äü­ ÐY´S´ÂÃÏ9'Â\{“s†}xŠ£»ëê ˜ÂzþôMMÃYŒÇ©6€7 ¥S@AݸÎ]›€;[žìZ4åÂÉsh>Ïî}Cy†¦ƒWÔÞøw¿nš*Ö[>‹‘—pûAk8Á·Q¿s¦¾RµÔEà2ñ¥\Ì vµàîÎK§ Ÿf.•§^‘¸‹*9šÜýål cö¾Zl¨v–»f)¿'RzÎÃtÙ:Û2ÃÎŒƽÛ_A €Ôšq¦½óhueÎO‹áÚ¯5HKÿ¢B¸¯ÇyÃTwÞ®²~©_óCÏT¿ìëäå×Æï<龿ûýß?¿Ây$…O‡#V1‚àÁñ‚‘Œ öXÕÈ ® ®2¹wϜϤ_ИÜýÔ¡`ÜôDlðD3pÿPP«xSÀDI‘ÉvÎ/ 8•—|«%øÏÔ²VCO`jb±F·kdv­À™Ì8Ÿ[|N`%35 àŽ³­s‰Ÿé7p–ð} 9uš–u.Š)·æÞ@:Þlþ&…z¦ù›=s!d±SGâmKªl•Œ*b¹%™ŽuØø”T³ZåÔ¾ ]Y~eKýËEWÆ@è³úÆ­qz#_uOEŠã¡ærFã7®bÔuý×hQÉJ'n­§_×y9<ο¾ôÜÛ†[)0s­”м¹è¸ðbï;ÍE3,U“¸°ðYuÛU)Š)l&ÕЛçZé_`et®¬õŸT]˜‹|íïJ]>ÉœŽÀäüm×Ýö¼íõÞ%k6½__áîJdZ¯?hÐÉÔ¢†Á¬CÄŸ¨¹Ãè„éÆ¡o¹àÍ¥ñªàuÁ»¬Ëa®×ëòþÔëå¼7˜©n\|¡šµ¤mø’Âèù·x éOi ÿ¹†K¿Ö-TðŒ*p³Äïü=ŠÏ­Fμ‡ùXƒºX¤[ð†DÑ~X©ùIÑR€«³¸|ŽªÓé ÷Å—Ûê‹¿Wö½{6L·òÓo~á½zqÈ·f·Ô\â%¦o™“[Œ2ÿ?ßÀúãÿ™uµH!ßÈüê a¿]egHo8Å ¥•}<íúö ‡ï)6ß.4è‡7¼»ùøeŸ$¾zëáMmßpº/5W¤ 3Ð]N;ól[íþ @À°ÅgG̲ÈoýhÖamæ-„ƒ/Cç“.ëhl³ó}ˆ­tùóÝ»ÿ³ÒÍ endstream endobj 2359 0 obj << /Length 1745 /Filter /FlateDecode >> stream xÚåX_oÛ6÷§0Z`‘€ˆ&©ÿC3,[“nYƒlI¶>´FK´­V=‰Šã~úEÊ‘\ÅM°Ç=Ø¢ŽÇ»ãÝïîHáérŠ§o&?ÝNfç™Æ(h0½]L ÆÈõ‚iH Üxz›Nß[9g6ÅÖM|‹ÑHûãíÅìÜ{ Ý8@aƒØv ñCÅ4ÁFp=n§cwhDW/:µ}l5r%ªØÇ5ü‘ž°¾jŒü ÒbÞÙ¶D¾XÚ¾ÅÊ¥íPû—`+ãÉJÎYÃ+MTjô^\·'0ö‘Ñn+¯6wó .ÙBTκŸx"‘¨–?ŒxPù Ë,=Öæ£xZõfx­61Ðé¡8"ݺ•”ëúûÙl³Ù N³í€Á=õûî˜áƒ8² †r$2ÖîE!Dña@P›(\óø‡D/^?+/YñÁõIÉ¿ÛŽK}ë\EÁÇÖ2Ä7 ËsVÙ¶ZŠguSßiÖKVIä—Î¥¨x)Ìì…’D°ui$ª(’8õ6/ŠI-DzbëU–°\3¦Y½ÎÙVÏ55_4fü«‰ÊÙŽÚ2lÓˆ}_o‰•,ßÖYmÜø}è‡È wÎ>k`K¾%Öœ•¶Cbl]Ø`´hªRÙ¡b¡Ÿ¿7óhÐN©§ 6B  º4˜aŒ]È=;`C9âEÐX¨‚©ØûÅY—2ó‚ˆ Wi«1Á&‚Ìü,Ê´Id¦ª¼†:uD¡tµ«TDÕÔµ~l2ȲvB®øÃ"]€ºfÉgf ‹Ã`<æyQÔ¹dàJâCà5ß ð7’ɬ–]àý±(„ãÑøCyÁñ“ãï#2â¶Éö¢ïö¢ß¦?„e$ô…ü¦‡²? Üpö©®Ñv”aw¬ÏŸ"Ïßë37œký§y-FÛŒê”Emã4ïç~ó© †š2;Ô]Eá^~Š*ðs° ºÒS¬©¡1Š@ò_ô¬¹7šü^‰€rCËJŸ®’ÑÎe^‡t4 w+Úü¡^d-šòQ”µ6ìnÉ0¦R ‘òÜLï–m M¯4mÐôì:²Öúj›[$„BïåÖÜ@*­˜j›rôØ£ ÓGâÙ=+Öù#g¯Ï>ค^?#?4²^¾|©Nj¸_ŠTsQ$Õ÷Õ3KCHS3UAMfÜÔm=SCÖÍ–©(¾XÀáÏpµnÜU0øÀÓ”IÍñÊÑO  ”Y"(Æñ`I—3¼.¨*QpV7?yquýâØX”ÜK3.IvRv/ L$Ý…‰îÔ³øëŽócÊ P“hÏ‘)_°&7{RHÐ#]Èq§(õ³­ñjpo6¦’¢lvŸÕcöäl>çj÷`XßæQãÆìy0ãŽå ®ICb- ß4µEöE!¥ü–áA¹½þó̼­oË*Kûï9_òr@™ËíÉ‹üE[¹¦4@‘º°õ5Jf½8á÷k³âl´ì ¬-+‘k›J4kåÕOÛ‘·g²à¥Ü_³ ‡ÓYÓ%|BPª N‘ÿ§ €–Y§2ÏŠ“DY»£ÿC¸®w®9®‘ÍmGÖ3x“³ÛÉ?Ò6#²ûà@‰º iRLÞÄÓ&Ar¡ÂoZÖbêKè©cL>½™üñh…n¿j Ï`tà²ØEœ¥»¯w»¯½ò>8éBû‡«·jsU¯‘ºÕ¼Î˜ºn,K¡Îtµ&꾃#u4„jz¤_¯æŸÚ þ¨HDÜÅžã†v»ƒ·æynxÚô×¼NªlÝáô¹wúó^_ˆîë…v\U[M­G€Æôû߃ÏFŽ§²»N©³ Ü~çFFÅáÚ,yšoµ¨öØ ÷­V•¦jP¯y’©IžjFÝ Û¹N­Z5r“]àÀ =¨e“n>u¡KrÈíîKQÎU õVòÉ-™YL?dVp4ê]ö¿:ظ endstream endobj 2267 0 obj << /Type /ObjStm /N 100 /First 982 /Length 2025 /Filter /FlateDecode >> stream xÚíZ[o[¹~ׯàãîCyHÎ 9,Œ²¸] ‚$ÚyPmÙq+K†$7»ÿ¾ßP>¾«9²Î¦y(Ëœã!çã܇Ç)IuÁ¥”ÉE*F°‹šŒü£Fd— %c.ÉqjÌê$·UW’-(Ái®“d+bˆd¯”ØN%»ƒñ—JÚ^ ªf£¢‹‰M´60M>Þqe'Œ¥™v ”Ê$y, J1@š ½IUH£ ¡Æ¶VÔl+*D‡`+*ƒØŠ Ñ¡ÚŠŠÇÈ‚S@tŠÆœªm@†³Õ&+ÈA,Ìm?TLe 8“Ç6-b|˪1Ô@!ó”@­±½ËŽ(Û¦€F’Ø(u”Kûiu¤v‚Z©f{Ùq퀒hTU›´â8r‚Œ¨  P¶#Û9ÁŠ¤Ü̹½Âv9 °ô Çàlß„}³ÑŽÌÙ”Dp.¤*(mï¢cM¶ ìãEÁI4[þ‘”mJl‘!C`’Íوĉƶ+È€ƒæ vZ¸INfgb•ÛÚê²)ï@qhïÔe‘öŽ]ÎfIbqY›náTy«G(®„š!C’+‘M.+(5KÂy 5-ãø…·+È@0Š])æß}5—!ÉNC; :Í|X¥)©¨ÉÜÐl­fuPJl;B ^¡$e¶3"•›õ`.•f=û©hÛ" “Šw¹¤ÉÑѤ{ÿëÕÌu¯‹åfÒ½»þǦ=ÿébñ¯I÷ãru:[}ˆüð±ûc÷s÷Ó‡Ø&ÝÛÙÉÆ}à½ÅbLÁã°7ÅÄž”Áöʹîëþ°|¿tÝk÷ÝÛ³…¿<™O¯®æ¿~ï~øa‚?äµûì´Á½uÝ_ÿöwW«7Í—Ävu‹ëùüãNfÄ{ãÆñ}å¡ÜP§gDì0nD¹PàîãåbÓÎxŒ%ã·eÇP1ËÍÇð[†Í¶Ñ\ˆ{¶lÔ°_÷fµÄ06«éb}6¦:PK3fx˜Ç®Jf4F Kº{–¿Z^ÀiGT‡ØL`ŸXŠoß{*âÕnÿ2ïvÑkyªÙ3¦B°SûÞ2Èå§ ƒµ"Ìoq Ûô_Cp\Í6Ë‘ Ðç|‡„„aHÎç——OÚ{”·ûÌwɽràGò.×IÂÓ”Íz@Êîç1îó2÷y™ó¨wxýöó3.PX†qÛ§/Ÿkþzù'T/c5Òž}EôöÙ*ÇìÓWKÆœ³·og¨”hSá$U‘-"èx7Žùì|¶8Q˜FU1@ ´Tzì‚¢€ç¨¾hÞÇ6vê>VŸ 4Eq”/SvÞ™Œ€õiJ€”ë“äþfDúIúH”>%ò½+cn­r÷Á+dü@ßì +¡S©˜Îا˜Zç‚zðõJ³…öÛ·@´ú€ža1K³Ýd‡Ò6¢µ Â1niNBv{u‡sŸýÖÈ$Ï–fÑ=2Æ}æ/OžÏrc* e ³l“à@n6/Íu wŠñùYò`æXb»xü¸ÑbÇǸ»U<õþn<Õ endstream endobj 2373 0 obj << /Length 1687 /Filter /FlateDecode >> stream xÚÅXÛŽÛ6}߯06•ˆE][ä!A³AŠ¢@šm_’>Ðm«Õ­µ—~}g4”,Šw½A»‘c’3<<<3\gµ[9«÷o¯/^]ùá*fqà«ëíŠ;^° 9gˆW×éê³ÅýhýÇõO¯®>*BÁLvhP®äÚu¬›5÷-Å«Nã” Çx7Ád®=L¶ÝŒ‚–ø­•;5›öµï«+!¦QG+›G,vý1–›>†/Žïܽ\Û¾ãXŒ1èr\Ö°]ÁbNÃ_¼ Ÿ} ¥÷UJímÕP#ÉeÛ áÎ=æƒÅÀð ™…ç±84…d]™-¬$<ñ©…lî{Ìs948‹ýS»Mò®Õª1½4Ûeº5ÝȲÝÙì†ê¦ÚmdóúêÍÏŸÞ-£Öû ž ¶b¿°³(ŠN£æÅÌóž4ÿ™@«•®–È°ùü²lŽxÜŽ¯8h…+ ùÞ4kîX»®P¥nOjÆZqw¬SS9 €ÓP’åÚv}Ǫ6ªD›ö–¾“#›¹ 9‡¹4·ÿÒlqê˃ë/F_/:ÛKºK+ÍÏö¥ ´YX‘û, çK"_ÃE¹†²#ÔæÌŽ`G™ #šbHòx¸«ZgU)sŠŸK¢ñŽ`XÝÛZ%Ùöž:r8ŒÞUV®oÉ&“›\ŽÜD@›ôG|~JÜBVVj…¡ï`ë`ûÀñ‡1ðÞ¸Wd-»b3ŒDn¡-…Å°^ËDµó¥n÷Y²?Z¨nÐsº¤Aj»\ãNhµûªËSjo}›ª+S•²µíEÜú€a8Õ•}È_ÇU)°J¸®qSRµÅ )»|Í-M¶Ì¸èÃįü ǘãT:¼3ÝmSKQ÷ã×ïŒs4$)zÿôYóÈZ\QÛ÷…õA“=Á=ÎuÕ¶T8'룅D @=Æ 0©ÒŽ«JÚaØ´¢2fftË#}&[ íxR›Q‚ÅÍ÷ÄÊçz«íPbwzîAwMÉŒü»Ð6˜ëÔ/•Æ#p!ëì‘ØÚ.Ö¿>Ô¿‡M¬Î#ÆÃåìKd½ð"Ãpb¸ŽÍ™z£á&[Ÿ 8@wå»ÏsÅ|àÑzãSâ'žº¾ÍàIÙéCH„ª¹%Àà‚0‡‡sæ nfL1s’*›hÁ\ý ü´Ç§Ä´Ú†|“V…MuËq!{Ò(•=è~_Ç.UO¬7Oy™yŒ€½Ì³V3 ÀWß>Þ!sÚËõ¼³×@ƒ‹š(ªä¸Ÿ$‡¤_å9ÉËø[R5èˆý÷'“ Ç¿adàxžKÑ©ôOjõøL3Ì0e’a¢÷Ü©þQ>ÜEˆNµçWRí%U’ ¤#&­–ÉÆĨš}~ÿÜ€È~KZ  i8Ý,iÏQÖßFm¦' d,ßœSÅõôa|`LîØÈf 9Š^ŠIoíà åi±vgÄÚÕõÿ§9Òq‰Cƒ4GqÆ[€‚YA¬JPiS%œ‹éÇú?"ßð}w}ñ/A * endstream endobj 2388 0 obj << /Length 2352 /Filter /FlateDecode >> stream xÚµY_Û6ϧ0 ˜+’%ÝÃ¥ArIÑ´Åfq}¸Üƒ,Ó¶²¶ä©Ýî}ú›áP’%+{ÛEj’ÎpþýfÈ »E¸øÛ‹o_\½W|‘±L µ¸Ý.x2©EÂ9S2[Ünÿ:_Š0¸_ò8мníòŸ·?]½“³2S,É2`ë¶ð8C¢¡—Ôý^½—òl×J&©Û¶ ,JÚlóVŒvOd%Še©èDicËcnõf¹qäǺ­,ë-ýîµÕM½Ó•.í#-} ã°®~¶­4yµ©+½]Š8ØêÂZ?Ö}0°‰³ÉÉÆúø£­x̲˜Î÷ñOèrbóC«M¯€35?÷‘LY”ÆÝ–D‘,€Q"S$ˆ§J¦¸?‚˜qXÄ¢ì?=­1 ³t¤Ù‡ÿ¯f.5Ëà ÏÑLe—ª¡°_€Öˆ!ÈÝ·ß÷ºZ®$çÝkxgÓÚÃ湡ɗ0ÖR=”vOÒG–âR²PòN áyýÒ¾œM6(ûz†UÌ™ŒÝUû|ŽWAýWfjÌlg¾>‡ÙJ @†Ì(›0>Õ5ßìëb–mÆ’DMØZ4ÿ%c†¬ÃÁWâÍûñß÷ùa†±,â=ãÒGX‘à«KÞ2òÁ®ÏâYO".|×_ºÅÜ:ѶmSuˆ´~œlÞ¶Ua˺òa™†LDÙ(³n©’ƒ;îJ XÞàÁ2  NMYõ«.:ÝÅRšÂ,]4˜­4¼¹Èsx¬‡½ÞŽåSI°‹>TÅV2JƒÛe –¢SС‡¹A£M{p‹zxõršnrëGÛ&?ê×d+*ÆÓÔ‡…OáºÒ˽ŸZ£›?[y1Dsnž9ñOÙ@%à¿ôÒTj„¢QÊÒËbqìËÝ/µÕß(–#9Õ÷¤Ù9r‰,uËj‡Ã¨Sxª™b2²ªœÙÎ!’`©è_ŸPÌÓPyŸ¡·Ùy¾’|™ð-?¥‹@X´õp"·Ðê%øsÒE‰np\¤Ìçð>”€á½†Å¡5`ð¹HJX8À47¦=v\|ÀïÚÁ5kBx­ðL˜wntÐÕÎÁ™ð0qNæ94宬öi~yT0ó°žÄâ’ÑU~\£bOyÓ.­‰»G RøTniq>õ fqÔ›Âv¶Ü¨(o–< v`+×É‚Œ¾AA­Ñèj¢@gZîÕ¤Îkg>´ÏŽŒ¸"W'ñ5 Gz(­ÝJÉ‘7Åžz¢”úh"´û²¢1Œ ÈUŽÐªã€'kŒ¥Þzó(xSáMã‘(M»†$G 9¥ |hô±Fº!ÝaƒÈí²í¦„^³K‚3Ø Ê(aç±4ÆóG *Ωªã謌ˆÃɦmúý¾{Œ‡î1>! z•ƒ©ý¨µ5iAA{!ÀÖósUf„É?ÎcXÀ<>¯„ ÍY¬Òg%ôÐ>žÇç|‹¡gé¸Î½Ybe¶ûºÁôq—©ÿ©ì¹®â°Ý-Aw—žÀöïKí—.öv·ºîx3:;”îs퇇ûõ_Ú滫SSc¿Åêf÷—YðŽX,å¨Í~²ÄõØZøáekÁ]¨Gý½µ'óýÕÕÃÃë$Cä#Ž÷âŸj884èïïÚý­tê™%,…;y!"ê½ÕÎ}º*(Aþ¬¦¶ŽBlæ£0×d"Àæ/IñEÈCŸ× ¾¼…RÝ>’$@ÝW9 Õ£qY»fÀ§úñ¹š¤>½ü&‚X=åÅ]¾Ó^{º|—É>²ÂT©¡+wH|è Fòt£Äúl!)ËK ¥ÏõÖ>@ØË$Ð3‘$ ôŸ\¿F΀T3<2÷2ø4”hº×$ŸBAó8Î w(¦±µ©K £+®+™\}5†Ý‡R±2”3ÒW\½ÙHløS®†VrpµŒ½«ï \EÁ'‚2  :wäs u†_ò=´‚0ç Jã·ôTo½„Œx}.öÇrãp»L¢îŸmùµÒ•ÿòQôoØxþ¾/¡]ñŒ€ât‰dðËX‚|KyÔ¿K@ Z×õíÅŠƒ¿gÁ\š9ìOˆáú‹"O'†mnž¡Eyââu‘ë›Üº>l¼ÿù{Z|{ó–¿AlØìå¢rhçç"ô*KR¸ÃÇœgÑ|dHˆ°˜ËQ+9Buà'ßá¸q¯Ûjçº0øÄh‘W?ûé/п¶JaCßý5#ê›l¾pA›2ßU5f«! zÍSñØ's 1 ‰í &yÅÞçþcècºËý' %l3ïbhî…z6 ðÙÇ«3g“sàãßâæ^x çŽÔSàêkcŽŒóÙª õ"“Ѹ^|Ö¾µxƒ]Ë\¹xÞäˆÀý‘µUùT™@J“I­}Ö5ž…Yõ(ç¸ò #céP'Að¢Ú<_ pµÈÎ%ž´­Ÿ’I&†—*g2ë/X !£\÷'©C¶4¤whOí¶Ýþ,ö´6zª_ÕükýÖó4¡žzº,š<±õO(ëîM¥>ÂuRoæû¼t,ïþȧÃ7ÚŠÙ¿¤ÀLE}„$Le¾]|õê6Eî!¯høpইzGƒ¦4w~„o†Æ'ܶñó.<]?»Çιk‚„`‡¬¿§Õ+úÕÏyÔ¹i}ýòææåk/´¼¶§ÚøÙf•ÞùYQ^÷ ̆ox!º†ÿ±u±ëúa<‰€=Ævèÿ6áÿ.ktÙ˜9£Íøü–xøÇÒ‹¾/'g¸ŸLäClÝŸÅ{¨wÓ8rükŠ…ãœóŠÎ‹Þ™®õ§o^Þݾøq™Æï endstream endobj 2397 0 obj << /Length 1310 /Filter /FlateDecode >> stream xÚíWKo7¾ëW,âCd »Þ÷¨-· Z µ•S Ô.%¡–’+[ùõ¾¤]ÙqìÄ4›ä,g8óÍ|C*ôV^èý>ùm>9;Ï ¯ ª<νùÒ‹Â0HÒÜ+¢(È“Ê›7Þ»i”‡§æ¯ÏÎóh°5©Â c0¤7QÚQ&Õ¾IhÍŸ'‰W‚Bž*?)b­á' Œc£wrrrêga8¥m±ÏZøë¥¡Ñ Â¬®ˆ\[¹jÚ ‰¹Yl'hA±òN÷£0¨2€6Ù÷ar,^ŒôgˆRVçÈéÆQPEÅ‘,‘?öˆ-Í(×ØL”}ÊVÚ–p">Ú’„Y½^vu¤ú7j%¦þ·â3¦û3׬¹-$ˆÂlùÅ·ö7(ج•ŒDÏñìÙÅÅ3)"3Ù1÷V-^9Ȭ>|k`uøÖ ‰fð/XÔ«•Hà=’2´äIŽZ±œáëî«Ž}SæXÓˆ;3÷KfhQDƒ*“"ÈÃÊÑâ¹Ù2"B¤eê6ˆ™öã4Â*¹GÂ;ðAyþ$ù-~°üN^Í'Ÿ&è‡^´ïTiQeâ՛ɻ¡×À78!HªÒ»Ò;7^ ½¬H˜SïròϾ=ºB¢ÝüÌÓÈKóðHîhty6Rƒíeä2üFm÷ãÌTÿ"O£pŠ)Y3¦ÊL —Œ›ÉŸmC¶¤é5ëKÙ7‹; È GéC00?¿¥ó§û¼ÌŒë/±¨9é þÛQÀ‡ÀÇ·G ©-AÝhŸ÷m­Uý$N¦À=jô`ò)áad +5"3Ô˜KD¬©ñÓhŠ€3ªûëÏŒCét  Süž‡¬^žÆÙt‰kiÖ‚|ÆÆf@ Öls¸A€™ÂöT“Q–¶§Q6Å­éPÔD@²vfªÈúöLq¤ö|+Ð ß ïM¸Çå9†Ûæà&¥Q5Ý=)§[b%;r¢…“ÔNÒ8I9Q;™ŠÍëK'ç¬ ÃÙüâí«Ç$ ÊbŒåõQ1ƒz -Õ¯)ÙØéî0½¦h±—Fì»<å¹³éUã £N†·˜Î*@°²Ž—”´xæ\ ‚Àµ›ã¬e±Žd¸_¹ªÚU¿Á­w&ð ‰+ªqu{ʈZE-eÿØRÄ)D¶FÕšj)$'À EµTÐâ×d¹3 Óe`rµ&5<§â¤1C+hf¨™Û옡.€®)|8ìß–˜}£Ë¦bÍzÚ˜ù›²Z÷IÜŠ‹ÙôÛ/ÿ¾„Û›PñÜ,m—̦p¥ ¢Þ{zÅt² ÖZ_3Ø•YXŠfºvoãøÁ/ÍgËì…#¶Bñ}ÆÊůÜAØLùQ]ýŽÜ?·¦¯ÔÒ]æÙ;j2 ÇÍ>ëï(…™I¡½Wœ›Cñï-0ÛÇõþ¨WkwѦ£ûÕVÅ¢žómý w-ØÐÝžÜ_ 5†¸ŸsÆ¿ÁQô~jrgCr[—uç*vÊ$HáDk'6àµ08)ˆªÌmP%~Óˆš%G6ÆÞi±wV"KLè7êq[WŽê~ê»Û8(^Ú’­1¥ª÷ÞcTfA¨ûç @?„_š«õw iK²þ¿"IÍUñ8eiÁl~‚ù¥iIÏÐ'€Ó<è9ë»/^œüðŠP†$¼^¡*8¹;gvÿ×üíN€'ö¥À5k›{éFø¥úé2% endstream endobj 2406 0 obj << /Length 2742 /Filter /FlateDecode >> stream xÚÍZKã6¾Ï¯0r‰ Œ5")QÒ!‡YìL°‹l˜é=mˆ,Ñm!²äHr÷8¿~«XE½¬~x’E}0U|?~¬*Û_ݯüÕ÷oþr÷æÝG-V‰—h©Wwû•ð}Oz ái•¬îòÕ¿×ey*ën󟻿¿ûF£Ö*Ñ^”$0–m'´ÀFo|Þý¾û¨Ô¨×VE±í¶•uÎÓ.ôžÍi/‰¥›ª>uE]¥åf+CŸúÚÒ¾I†ŠY]uiQÕ=}w®xØÈp6Eº+MK¢ûe®MÅÍëY·´Ùˆx}>šªãné®Æ.ÔÏ›i?]3«¿'â€Ñžw­é¾jѱXÿä‡~Yß üuÝPE*6Eõ‚¤_Ö¹viðÛžLVlÄza¹]*Vb¶\ïYÖóÂâ#()W·‡ú\æ¸Ðr ¬I´Ý1nE••çÜäîk+Rëvèò¦>ùþë¡€J4­?‰hývñðñx0 SC-†ÅbMÑH\qÇ,m©RÛ]°¸‚¸®Ê ImÞ¨°‹ñ®¦‘¢õ}SŸOí6ͤ @-6B\íÉäÞf«„¿þlXüó_ 0¼l¿½¿/iÙ¾¾¢ê ’èžb %b !ðˆ€ëCÇ鑤Ǵ®Ü&/ÚÑÑÅòLh:Â%òò— ¬Ö”Å¡®s÷à@[ ü:º4Ðv‰‰i‡ØÝ QY_Зmú¥ÀUhÊ‹®ÅÝ âõßðüh¹>W«Ÿ|_šü-Ê4/zìÏ œmj gGê ÃKžÔÜ¥>rËÖTm–m ˆîàྗ›à¸üoá¸üypôìHw¯‡£+º’-’±¤½åÃmñá>ã#|à‹ñAÄ’ôt‹®s¾‹ÐÂ1P“Û—{ùã–{ù^.3£_a¾Â»(MÞEép0(콋r<Ç&e15qX96‰øíL¶ß–¡z“J`ž|²î]ݹ€)mLê€Ï ïI³‡Nç†böÙ &ú:‹õ—âX—öpØ÷׳ÛNâv–•Ýå’Q´Š•-Åëîr¢%²ºš‚=:T¥$n!,¹u4UÕÓ–Ó )â8(^—¦º/nƒa1¥„¨6œz¿,ÄË¡úÂ5@ðàRÒ)€±¯ND n3·Rž ÂéžGC ÍGKD1(8VDà`1ͲºÉmdlkjîn­&–²CÚ¤Ya$xëŒ{!³±'ô] œSïˆ\xÈò1¿•#aè8¥Ç"ï–ÐzJ¨Ké§'INHŸdÍ´k9! Vïyº'I¢|/P·rDIÍ–2\°”zÌ‘ÐK”xŠ#2ŠœùŒ"'ŠH <¢†mSÏÚ¶éñTöÕýUªÊ €˜¶}/{M÷ç€RÑ.©C‘«š™9Ö»24@ËC¨n=GÎEf¶´;M›Œ·Z£¬.oešŽÝ¡ý릥ò„i:±üqÏ4=5Gði—­c×rÂ4¬ÞÓ@Ϙ£Ä‹Â—ÌÑœh:à-¹&Z$§D“0úSÆHƒgiÉ… îúlxiLsWi­ üÞ7é…Jcë¤}ö§¾óšbDÁñàLA1.WLH›2h&4s*±wdçغkëŸÇÂÒ<˜xÈ—ÂWcJ)?€ð¡{4˜ßÀ:ŸdVWü>K,Þ âZðAŠ×õŽÀ±‹½±ÆB„BŠ#P48ˆÅ{ßë(gžGùÓÎz?‹³ºBVæ¶Üõ‚ö¼Ú!Vé;äfz¤ç²›F4 À˜|ݾ4foµ¾}gd(§n…¯Ó ®Ó¡të…N¥.þ• ‡ª™`'8@ò3(g„ç[ñc\ä—…ýq(ùÎ:@Û;‡é°e™‹Ã]º¢=ChÚþðì.}äÞÒqE{XëCHk­&» ®³‡óÇ÷ -±ùDnñüž*×TMƒ ÏónHǹÀa–ôX1=ž. ˆB2ô"ųqôDÎt2³ˆAÑØÓ1õ|ß͎ıƩŸ¿8qz*´Öœºvd¡#O MÚžóÝ7ßøñ›¼¡µ âfiDß‹âäjÀ~Z/ŸéɮЦx‰ |CÏ×’ê>"é—'Œ¼0Q¯^A^2r­ßb<Ž‰<´v‰\ÏmG¥ÁÂÇ4¼ ‚Ôž”}w)&Ê‹u?1Ï„=ê]kø†]{4{“9•Šß¬ÇÃÆÜ»>w0¡e'-%œ˜x– «ò%c -kóð„ÂZ͆0ÝrV¹Cª+纓‰§N®=5…EEÕv&Í© E‰ƒû.Xº‚gµX{SNx[12K«É4ÃJ˜p‘ç'zŠ[Ûri“S‚É4 Çv`‹” <ÀLÛD§û3ÒšEl³aŒéåLo ÙôÂ<ÓôÌÊ%ôÍí  'ß®© ®÷“vPhÎ\ÓÌæÒ€f„‹ðOÁÚ&!•åA8êÑÇ.µÆ_0SE¢”~ªº9ÚL Tè5˜nŠÝFBÜÅQ$H)ùn'˜zèì ,Z·D­ß—ÂW秥´TFHâ¹±ñ¶©¦ÖÀfF‰ø½ÜtA5æPI8Î@Éræíð6ÉÏÜÚ¥  ?Ý/þƒƘf'P`£bÏxK&£ÙÛ-ú7ˆïî>ýëÃ’†»M2IñÑø”ó XK”(•‚E‹‰U«IqAÕH©ýâeGÁJÌTúøþ‡Ï^7àØ€]ËÓO7®ô쯂Wo Ü82|ãG²R¶óºëe˜¬h݃ ìŠ ‚leOiüàW4Î3¬K¹='m±ü›ij*eõÙ^À•P.[æ¯ÿñÃ*Ø{/†"–Øð`q9%^ØlWUô¯›.½È°Q6fÛ$9BhœÉÓö`F¸Ù3¸ûýp÷æ¿ä°ÖC endstream endobj 2413 0 obj << /Length 1798 /Filter /FlateDecode >> stream xÚXmsÛ6þî_Áif2ÔŒEà{'º9_.nÚ»öæl·iÓQHHB%)Ëî¯ï.¤D…V~^¹X<»ûìBÌÉæ|sñ¯û‹«›0vR/DäܯΘç‘sîE~êܯœ_]‰Ùo÷ß]ÝDüh«Ÿž€.£M¥lk5ã¡›ãÞ fùÑÑGóþ«¹ˆaÒ§o¯g!swíÆÔXÈøá#!GÂFÊ&Îœ'^,‰ùy–0×ë|º²ÊgsbšEÌÕ*Û´K¹S5Mâ1t%ß?˜†žŸˆþFoöË–ª•kSÏ·µù¨²Ö3uþúr¬Š¼dÙO/I}/† æÔ ½íÞâ%Fg^šðþ»MÛn›¯¯®öû½×Ÿ<›ƒÂGÇŸÂ;R#q<íÅ!žÕvl…4ö‚"/ ¬™oÕðቫªL5_dkLJ™@äã8qß›Ý^ºÊUu 3Ià¾÷hå­×M„î/{]­T]Ê~ÇìŽ÷ýŽ×4¾kõÇjs?‹×îDKò4õéªp1¼©[YjÔ†TªµlMË-`)³ Žb·54‹`ÏñÊpÍ9ø~†t%YÉâ©Ñ…1 # ö‚xû®•­nZ5³9OÁç*j¿W+éJMx ÄB˜Š‘ÓœX 6°Á«¸˜‘vat08bP1á û ÞàæMx|Ì=Ÿ‹S÷[žvÅ™„ ®]ÂMÆ…X8¡œŽ4ç!ø³Åî4ôwœ,…HMZзŒ3kÁVÞšjµËZ1샕:ë%À1»¯]\º¥f¯Û -´uøâ‡f·2û$s5iE86H’ƒïÐaÌ®†ÓHŽYw~1ï÷Üc0:îFf¹3ëv/ë™»SÁeXzÞâG|àG/±¸ßÎçhí ™²u ÀšgmD~|õ±i¼æGžfþwðPxAxÂwJÑù×Ec&©ÙyIG†¶û9ž Pƒ·«ô9ʃ ä|LV+»ù%§ÁÄ`x<+/ÊòÜa!;lç]Ü¥4+UP÷ÄKKž‹Ãõ®?6UCÃv#[êÉZQg)µ¢®©¨ÍL]«f A0È)ô§g.ðéƘÕA6qÖWâó±kvÇN²?¢|l¼w²ÜÏPþç)0L@X ‹ÁbÉzõê&,æBDd»¢£]&§N­›O¶¡cê£Ýè³ñÝqªAí†Ñ’yŸ :¶fpg{“‹»ÞÌ©U êAR*Ùìjµøêöö«K{¨^´[ÓØÑF•Êí(Ó‹ì°¶‚Ña N‘ øñ–YÞ×*¨‰ô1«Zî-ú“µß¤îE±-L;Rõ›w?ôº>éÅ“¶ý½xÐ'ºØa±_-¸í×j °©Å×vâ±Ðå¢cî_ Ôü/µÏj5˜Õ£Š¸Ñù®¶+‚äd2‘íŒKœe|œxMÍ!Áã¨Oè/„éÇ]zYNÅõ¢FY·Ø‹ÛS½Ì qÃ!‹ÉŽŸrdâ[-,@/Å9¸ì³1ù‚Ù2¶¸¹þïÝ»¡È}wñûïhŠõ·¦OC'+/~ý9+X$äû¾„³@J¨h²£ÜôÖ õõqo傶úñ ~>TÜ,þüè1M<†|hS? kÿ(¥ÖÛNÏ¿ñF¹± ²eW~vïÈÔµ¨z@æÊEè÷(B·_–ÔtÔ9 ZR¥”9”„"ÊíP|QŽø±òéå âù”N~†ÁñÔ‡‹moûÀ´íO}Üš ;†¸¯zbþ£5u¿ØÅjà%ñ8VJÖÛÕHB¡T±HÃÝsÝö=ÏëCó(|Pø1,×5úf¾+U՞ϟÏÁbýâé\ÙGxCÙa« Ê{¨@JH²8ðݮօIª€¡ƒT‹†¤!bžÛG̪Š>“ -Kjª]¹TuÁHj%KuFŽ°rü^N¶‘µÌZ(û_U–lð»Šr'yòÚÆÃÆz¦Ùµ™)í`pÜeAüs Î-P£WÈãË‘À4VsxæL]§¥]–Ô\ªÖ hcÖ‹Îu5"nü¾HòÀçe¯©EØ&Þ®ÛŸž­©?‡±ÁÇxî·yeêžOöUM¼8”Ø" zž¦ž5ð<< ØŒhÉúèyà dœŒ-wûr˹/â{ô õÁ:QõÑý~SO4K¾aéŠ_ï;Cà<ŠÉáFv¼•uKu•;[³[VYi™x]Î|FÑþ-Wî¹ endstream endobj 2426 0 obj << /Length 3102 /Filter /FlateDecode >> stream xÚ¥ZK“Û¸¾ûWèMUãÉG¶ö°©µSIínRÞ‰sØÝT8fÄ„"’òØþõéFƒàC4vJ@h4º¿~€|õ´â«?½úãý«×o±ÊYžÈduÿ¸œ3¥“U*KT¾ºß­~YŠ¾µw¬Ÿî~»ÿËë·&¼¡ò„¥yó9Z‘($zÅýÃÿë·JMÞÚ¨4s¯md Š^®g¯.J–grX§+ÇÊÞm”æë®üŒ-•¯ŠÎ©éÿy_n÷Ôì÷žÌVö`ë¾£î²^ o›¶µUÑ—MýzÛàÆ?ÜI³.Ú²¨·~M”IùùŽ6 ­ÜâìÙ‚°6Òp˜çp<õvÇÛšKÂïk#¦Œ¤9Þ¿\SÖ61nE¸uíæ‘þÝv±Q5Hlû~|ñéTþyVô튈˜a GÁ×oJ˜©%½šÉÅdL«a“ï#Š—2)4±)gi4³¾5G·oNÕŽŽîÁaw´ÛòWÎ¥Ýýžzê¦÷$M¿÷›øÙzò}oû¢¬ºß]?r‘&´ñgî•Û|xù©WÍS¹-*Zµo&Ì>~¢‡ç½½ YÁ Kò0Õ»[r);š±´ú\Ç°Ð1lÿÊ w‚;ûxB*N•—LáJÓtXôíw?üü&™Ô,ç Ö×E­Éøº¶¨»—˺9¢r£°Qß?àîí¶osiè?f´TÜr‚*ëiPnM]ùYÀ®,ÒaÝS/l‘ŸÌ4K’gP¦oïßýýM°Yf^.@ÍÓùB‚Ÿ{2¸/TV%3'/%ÓQ^ØyMYÑO\UÖŒIL•g,è”òN¬^â#žþ·w’¯7}³ùì™jᘛöà¼tLP­#~‹zçÀ  ,e\esLƒ3qž!ÕFTjŒ`ßC±ýÏf¾Œ:QÀh[ N=ÓÃbe Æ„Ã3cÂѨ1É,a|ÊÓ A ö¦üÿR”‹9¶Úíq÷U8ò‚£l¨9:´´3/š~,[µ¸ 5ßñ($g&ÓÁEwûþwJ2-ýã©ÞâAmsXðÀR·8òà›ÀÃêGþcˆ ÂbnD¯ -Å“õ;%u"Õ3Šq¾P½ÁU\èã¡¿öžyýVLƒ¼T0•-MJðH>Åvøo Ë€åk¢úøÍLj ÍT.Vº©Øõè-=—léD[-<èOMoo¹Ï‚T‘Ï5«²lõrŪOÛ–[´mí¶:¡I´ÚþÙ¢qŒÓš¿„™zÈôÈŒ!%šqaÃÎãô”uo[¿莲¨ˆh°õiØäÍ/æFÝn¾ñþß^S}§\ªµçJÇ×M;¸kgÜ·=C̾wåSÙ•oU*q"ry³R)ÉFc'Åé žáÃ@éúv@xæ;VÅ]ëtª!˜Ntlqå],Xmm÷’ŽEˆmsªw_ã3ƾ@NÀ´w"[?\PμQ&ÓÕrM«Aj•ŸÃyȾ›Í&g<ô궀lE§úš_’©i8W(8æó¹…¥”GO¡giª'ŽŠËGœéËñHOB¤àh‰34%ã.Ž‡¼ÅÀá@ça…OQ´ €€v4;:·½o·”‘A>UwÄ]?5§L‚ŠT¨Yé\w§æˆbç\É’,H÷c”ë|ôzã<›ˆY.<¿á™¨ˆñ 4[»+)€Á—¸\¼Zz î÷Ö™É(yá dš1²¾CL1AFiz~ÁqCà—¦Ù+[?õ{ŒÂ]$y¾´J!­Ë® ,2™ß¼d–afɳ!1È®ùuÜšæÌ/ @hù¾åßÍKü»bY:óïq ¤}_¸â§øŠ äýºá|P ADÎx»cSïÊú‰ººÓƒÓD|² ­™YFKÑsÃBA~=N´|Èrò°`p‹JfRŸÚ?]6›‘åoã<‘,Eªf"M´\i&„ ¸È‰.%LÊp4"r48<®ñϤÉBæ,W店FŽ±sÞH8i%1ˆQÀ!fi«:Û\ÑY£–w=(]ÑîÊÏ.À…!ªÀHœÌ—(A-: É`Û@Ð$óÛ’ªXØ–·³GëÕ_^™¥¢sëÆý‹[.ÏŒvPúÕ Zaæpü6l$5sE½^fñÅ(´ )È$ŽüDð9Ϧ²qö¹k ŽÄ=Ì}†®ôü^¾ð›…XjñÜÙÈ<¯œä×|&8Í'äMÔuäL²(½È4Çd….°K³iéŠr_´Å¶wñ<Ž¡Ž^D!]w:¨¤ßýвÔpÇ.ÿ#=ž-ö¡,"ÛÜÌËç^)ŽWù¨†{Çxž/ASh.# $«‹ƒõNÉØüöá•^ŒÔ&Yÿµ¶~ò¿^T]C­1IÏ32Øw³Ã\›X 9U ûýB¨ìXŸ™Â4âÜÝ$)ÆþÁtc £ñ’0Üh·}j¡ï –’륥àp½ ¯ìc¿Ù»Ô»rg‰"tÍVD?Ëåh´a*QsÙcœ¾³Ú¶|Úf0—fØ¥t ™é’ä€M€Q9Ä6¤rÖßàDïèʈHQ¼”Ñ ˜û@)o`«Jƒ‰‡:Cª¡ý‰dº:\¼ø^º¦“Jjœ2b©N¿òï JŽ,$H€23¨ëh˜œŠ gü` Ôsýçšæ¦XÖq |!ŽgËדj4}-Î{Ì„ï"±nðM·aÐB›r$ŒaùÕ{’™Á†»s¤enÝ@©D»ó¸s…ØÄ'Ó8õ8z§ÉTôJó–ÞñÌÙg2îì¡ßÉ;skyʧ‰Ãô]Ÿˆèýv±‰Ò¤1mø%¦",MBø ú4åÆÃÚC±ßFåbýϘM€éi9f JÅ¢;nV3 /IžLk3¡ºœA£­ßˆ9Åj>Óÿsò4»š,bN4ºií¹€•b|Œ%b2Ý@„¦ÌWÉt¾g`BS‘~K5%Ôc9 ñƬt”Úù?DäO4Y–ÇÕ0OfÌ}a¤žÍ Ig Ù`šËðÀJ/2šË ²{<3Î!óVôaÀÔÜm×—€ ƹZÛ¶uQ WËzÈÃqMK@%=?„@G¹;¹«Gãñd sÎ&y„®«ës)_?t+µ1O¦¤ai–-àtaz¼ª»  àG==D&É@O’]šCDãD>Äžã -âµûDcv"<4^ŒM³-œ¯Õ®µ9Ð\(.ðdju´<˜u— ÍÁ’e!¡õ iH”܈S¸Ê/Jaš†íûšŽâ)¹U$¼!Ñ9•ï¼˜Z/»ÞóˆItƲDÎ3ƒ¥›“ŠÜœÌÝO4´ÛÆÝÖH¯ýS²]Yu¥KÜ”^ÿ#®ßüEfž%z~á®èÂ]_(ž«±l¡´¤p×Ý wåx<6›Fe/ù®Aƒïó_§¦×sz¨A«á»Œ±>­.Ü•ºâÜܸUQvQYÀ‰Ko£Ê}y±ÀÑ «jfôM”kQDeÒ®q#êÏÀbLˆ.Ã71K³‚t¬º/`êæ¡/œB{,ÂáÃRñT˶ÕÉ›…Êç–ã†{Ûní±÷» ß_(N~V-›™™Rr‚ŸJø‰#äÆ£_Ñ#s¡‹R3³¤p^wÙí–ž}5¦Ì`Ø8æ/ÅtØ?„8ôô\Vµb5³È°Ê¼ÂOßEXu­ËŸû\Hú7ôÚ,ëÿÑöÅæ;D‘/Îã¹ÿÙÄoî_ý4v­ endstream endobj 2443 0 obj << /Length 3071 /Filter /FlateDecode >> stream xÚ½ZK“Û¸¾ûW¨öN•o`«rð¦ìÄ©äâšä²»U¡$Θ±D*$5~üútàS5ãñºt ‚ÝîFwãÒÕý*]ýõÅ/·/^½•ze‰UL­nïV4M j¥)%ŠÛÕínõkB•¸ùýöï¯Þ*:Ê š©tÈÚ:¿¡2¹Ç±/ÒÀbFÍ¥%)“«5ÓÐÉý·¯÷m^—Y[Ü0™< ‘|ÿåFÉä¥çKÇ|%|¨eÇö½1%<Õƒ`_nÖ\™d“ûgû!4ê¼9í[l뤺ó}™ò6[ge¶ÿÒïêFl«ºÎ÷ lUvù þ[š²m‘—mCnÖJñä]Ù1ìhl³&wsZ­•%Ì°Õ„µRzQd ¤É÷ù á?•eD ŠKjH ³¦‘Õö±ªöùÎSžÌ_žÏÅ÷geø¢ñ‡eu‘•Û|½­Ðhã.?¢¸¡ÉgÿUˆO Òä^ š•Ú©z dÒ¤ùPöa ŸÍ1ß8Ðœ&Eæßdõ 5Éý •ê5ÅùHSŒ‚2Mï1ÿŽ(SkzmOõÖéøTõ.¯}Ÿ›" TŽYÝöôÎ]• E„àW|•Û^Ûj:”ëOE“ƒª¹M“·è_U`çÂÌçìpÜÃbuˆ¤ˆ±¥Œ‘TÚ%¶k® ±)êW+“)Ä÷…ÓT$LÂ"“QÛEtÆs"®5£13»ÐlX‹Ï^"g.xzÃ@㮪?)&ê„r˜#(;:N º¦šH¦ªºN AUÏúáZM¤œ¨B+‡X¾£¬¹£;QoíÇé•‚wÜøÕ%œÃCié9G°'  ŠrdŠ-¿%‘£†ˆ”™>ŽûVñ……5ÏŸ"~$®ˆÿ$Zì;Òâß9#EÏغApbxðBsaqaqa[ÿŒK‚é‡Sbì…1qs*h áÿa*=WM‰`}{”j:'ŸÈªt¬šX¤P꧰â?Ž•ø³bÏaE¯ðÑ5qzÔÕK‘D¾,åÓ”É㮡vÌÖÕgè›à»ÛJ©«ÜÏ©L:H¿ÆVѪ¯ç7ç$`ëªû*í÷ˆÏM€dÔËè6r0¯#Ül:Ãà¿,¼Ï¼g2ËïòîNå6ì9ï+æéj5„ ueµ¦}ür\ùÄ8Î}±û—|ûñ†‚s×þ?*šZË´`ä©)Ê{ÿ2ä<ž`o6äÁ ÚÜÞåû6 ƒòöCµƒ"]ªÔ»?öv~à• ±úŸÕ€y]W5:1ïÜݳ.C×ý °,¿û.º6_úO|Gó¿S Ã’ºªZÿÚ­pΆa»"»¯`[ïÿVûhðeÇãPVk®~œãáî'Éíë5m˜j v Û ·[7e…Ž$xÎ Vè—Ç\óëz ãÁmyܦq¼Ãp;M·›t.‚]ǵw‰ý)ïéö‘2­Mÿ}¸&5¼>5'g šËr!¸:4E[7‡ˆâ9#ÖÚ+°èƒ†[Ⱥ+ñ ÑƒAÐvͤ ‚¿s0¨Ï·EóÁ-+¤€‘vÝVë¯t• nÐÜz4é 9©œGBgEHÖ‚Î@´²ÏòÔ\ÎòÜË,Ç *§J ¦‹f´S5s³c×UÄõù%yòMxÝA;Ž×H?>PH"ÎÒø\Cè«èÂlé`&; #Ê$MÞúÎ+˜•bŒù|m«úÏ·ïÿõ&†ýØ‚ôJ{xVž_û! 4f’ìx¬«c˜øf“m?®ûéöp›E¸™C4&lnñ°– ‡Á}á–MÎ9ŸïglÉû¡Ó#\Â;S ƒŠÎÚG#a!r€ŒŸ 3eÑi:‡T‡Ý›¦ÞôCf¥ ;+•ìÆ~ÂÉ©ÐâVÏL58AѸò¶€•}næP³«+a…*9E›¥ðU3<1†H¯§àu¿^ðˆl;ßt>˨Y‚.4aNî]µÔÇ1è‡4QÑŽP¤\Ò#ðWË=à?ˆçó#>+¨iÁrÕÁ·½yîòmä+Æ3¸XMà› ê ô#DÍ!,¼+;6~ª¼ËZ.î–á«~ƒ‚í<¶ÀÏ Ú‡‹ë›Ãf°·`|]PM§Ë‘•1y¶bjTÌp˜ºó ÖÍиVáOoøÀÙaLa„NÀÐèiÓ”pA—„ º…6H¸ô p·çÒÄòY´.Êíþ4Ô }’ïª.,g ýf¯P†Ä‘[XtjˆÍcÊ'‰l±•×[y°å(`» F…‹’ƒZU ±ÄÖ\Elgz%©´5Ý„¹8Ç! ¾#P9e ¡Žd“³€aJ¢ôµ@…-± ,ãˆØTlK ,­Ñ°çJÍ¢À±q â·ˆÍ‡½^&§¢°Ö¬µ% ‘¯oЂø¾Zx$ýhéø3È-)UO”*b§1DÂR°:SC²EÉ6OF²5áJᑤw1²E—´…' è¾eËñ!Öó4ƒƒ%0аך/a´TÈe)FfW0õñÉË3¸©è™ÑÅm:·+ÈúóØ=9zþ ƒ^Áø¿»ŽŸÅN|¯E莣§ çnìnÊ\<Ú°c ÿy&7û^Ë."2%*ÕË¥»HÙYé$7!hFêJ<q줦i¤Â¤Œh«¯‚HÓ{OGfZòrÈÌ4zÝ6ðÑîÚnÛÏá“\ÐÃŲÛxá'ÃiÇZ*–¼¾rÆ@ PˆCž•M á„Ò¢:è0ÈÕ˜’Áˆ©bGˆð\<5°è.¹ÀÓݺû2«º½(ñŠ¼×ÚfŸ7$È«&©U††f°E2¢s#Ë:¹íváÖE\Â’.ù¿³¨6ÿ…ýòT¬í>kšˆnµw?¹Ûv÷?E´ ^iä?¦˜ŸsöLî±/š¶CKÊ4}¾»«öá"Pÿ‘Ø“ƒý<»ö7‘L)ø=è0%Z=´Ùfé® †Èaú)ƒ˜‚Ód—µ¡uWg‡›ÌaO¾ÓÉŠ ‚-#M·Â7s´ é£Mk„ö\Ñã2wÚ¡‚†“ ›À§hÝØî^áYMà›7~„[Ÿç•çV^îªÜ#¦$n}w»v”l€C‘Ù–]!VÏ¥í¯s½:îR—7;Îw—÷g¥EÙæu Ö]u*w~‘\4u0Û6Þ\…Äà }¾0/Þ0¼|žNs'pciê&{~góÑ“¢aqòøY5Õ!•ívb¢N» üj° w#Óñšñgl”‡ó à‡#4ìõø²Gÿào80`ɱFc†^¿\°…šòS€1«gâ›ïÏ”@ î@ûäH.)â|:dƒ †$¬IÞ|nëlÛ:‡F¹ÃÛ0$=E6É¡¸ÃÂünI4Ævë^>žÏš[ØËÙ‰îöz¸ÊN};IÔèþg¾Äc‚Q=‘E÷7Åý![´© 6UÏe¡æîŠópAŒ²Ïe´¯îÿQ|\œø´1Ïå³Ë|LZšÑ81+£×ïþ²èh`žaò2ÜIðIàq܃r½§ðËvšXËƇJ>Ì!×Ñå¦ëò‰ ZŸð:BUôÿ §¸3Ôp•ÄßœP]›Ù)ÅÞû¤énGŽj´«ÓÿÓåŽ? Gãþ"Vн¹}ñÄô endstream endobj 2455 0 obj << /Length 2167 /Filter /FlateDecode >> stream xÚ­X[sã¶~ß_¡IfZjbÁxOãNw·Þ&;Ý´ãu’édû“Äš AYvúÛ{H‘2­Ýfj?—œÛw. _l|ñ—Won_]¾‹Ä"ei$£Åíz!8g~-b!X䧋Û|ñ«W©®ÕKz›å?oß_¾ ãÑ ?Xœ¦pŸ¥QˆD¯¸cÔшzÕ“¯d ‹>ú±éôäÔèô˜—H+‘°(¡c«Ë§åJ†Ü붚e³”¡wЭ[o Uoö¥rój;5kÒÅ÷Ç÷û’qôºŲ̈³ –=Á'rUç37IÎD:\ôóç.*Ö$Uá¤+ ýšÎŠOœK/1ÝÜ»•úÄ YSíöꊦ6 ™ƒÝ¢˜‰@ d‰Ä÷g1Æ@ÊBžØ@ðEÄÒØOHô0 á"€Š–êñ3*Š\½‘YÉSîÕMG<àÞbK·]qWê‹åÊçÜS5è¶mZŠ²¤Ñv§Ùëœ-W/¼܉nÛsÉ”é¯kjݯ92£ ‘x›}¥ënÆ‘>X'½9j­Ú]~u{óÓõŒÂ!*´>¤`¡¢Þœ$c¼#W­ËÕ}F£4¥,êN·™ÞuÌ©;)Xý@ç@ç×K¬ݶi± [þ÷úË2AÊõf ÎîEÿy0:Ûvwjß×Rä2ã«4d~2øó»ÃÃÝŸ*Ý©uÓ®vmó/u¬i7œ+R+Ü5N—/$œžKÑŸÛvÝÎ|{yy8XÏy¹Âbd.! ÈÚ©HG5]ÌšßOcˆ»p⃽ֶ~hóÌÿFg÷K¨ÀŒƒÙ)ÞÈ6¾ ¼÷ö×·–i*I´UÕî'cq†»C*Â#”ÁiyWawL·Ï mhÓ..:ÌjZ- ̸´S5¹.3TûQ ¡I’C•{ÓìÛZ•t’:+°—£›¤¶ë|ŸÙ¶©U±K)²¹O e9bëbÆ+ˆ„@ij‰Fã†-@3^w?Ÿ¤ŒüH²h‡1ãÇ\Öã,o „Ô¥€NYp ¿q”¦IÄE ½#Ü8#ä씉ø¤ûzæ|™Öù2Ž­óñ×9?tÎ÷Sé½mÚVÛ²mˆÆVÑ8ñ¾r°Àµc…‚‰+ìvù œ°ÀótO<‚ÎzXà`±š+Y€•¯æÀ}p(üY¬ˆ”2 þN` XìàÞª‡2&T¤~ó,f´[ñ1œçAòA&É_?èAÃ¥o$ ø~4P»¢ô‹A#9çnœL°¹‰?é@iè=s ¿£ùë²Ñv%ô^[“Dõx‚îøÆúêNQWÇ0®8ãÉØŽY‡à^«K‡˜¨$Y•mµÁÛÓ”ºpØøÞ ô¶iv½¤3°ù+’…!!SÏM¾×ùF¡‘UÖl4Àôíñ€hÚ ÛÛÃjvF®zŽEñ,Ž­/õrpn ºÝ5Í=ͨ(‡^»ô1ù0È[Ú1O5Tl²L:ËÀ`jµ™~‚óh +¿Í]²ŒñužUÎ\žÚíÐUàußO)aù½ÿ`ñGm»"ýX«½ÿ–6oöÆè²Ï¶Ô”Ãè*Ôì¡1Á°;ßo¸b÷Q»³¯KÓÌÖº/z°ô0v_ÚJ±êá3OqlV׶}’»Uü=a`fSÔ²£3þ­i§‚tXìJ7Ë0‡–êx0kô͈-dVèÚ¦N¼p«:G¡©íñ‡{Æ \%uŒí>ëœWIðIèæúu HÒè\¿‰Cøƒ ¨g_þJé 'ÓTÒfªÌÎ^& ÒéÄð¾ÏÑð>„ëÑð¸h[ ŸL`‰lo‹ëãçÄjî…Dý Ob âZ®wºÎñuîî9éÆŽ£Ú´rrO‚‰|ú%õõ£ª'戟¶w`çî‚GhîÚ;÷Åãëÿã_Ÿ@%h%’á~ìu¹·.Z|)‡îÛ þjÒƒ&ûzHÜ8Eoáï$g]К)àØs]Yºw=ŠÑçr>Å~lÁAÖKÒÜuª¨ûãnרʆVÅ*b[•¦HúîEz9áí÷ÈÍ°yÞ,½QzVàf,xìUXúhHô9ƽ±ÜG‘Ëw±»ÞÐ ôQòû¡'8’,H†v¢ê2Õš™‹ð={ü:wõ¹~Å"Äû:ž:ô™U;›~·+Víœ'ÿC?Ûý~ãìÐM¦ªr°@~W$üØìc†f_Uª}B&Àû³ÎÉš‡!ú{¿bô[ȬOà2V÷„íÇ©–p­Uó™¨ç2 ÌѲ7C@ÌÃqÏq<òqsõñbÐÖ~Ž¤þ 2±ý6;2ýüq•5åLMã.©¯ê¶9L·eVs—λúYz¼¾}õ_-¼) endstream endobj 2464 0 obj << /Length 1124 /Filter /FlateDecode >> stream xÚÕXÝoÛ6Ï_a8–`6£oKÅü²¡Y7`/™ç—®‰²5H¢@Qq= ýÛ{IYTå YHx<Ç»ßO±&›‰5ùùêÇÕÕýƒ¿˜D( œ`²J'¶e!× & ÛFMVÉäý­wV¿Þ?vOÔ =äiI¡sFîlÿv#d¯,uÄýƒëNBØxbÓÜ ‚v×ÜYÓ•{¯¯¯ïæ¾eÝÖ‰³t/'|K$AÓBMp™H¢b$ÉbNY­Ôo1Ã1'LNŸ‰”£À ¹m¡ÈW÷bDmùa.Çö›?-ßÚ/§Eµ™Î$ÿã2Ì鶚Φ;p1Ž­Ö—¿+*¦ÏËÕãogíyƒoZ\ÖË˜æ¿ B¨-xŒYÝSW.KFwæ’ømuÎÇ”ÖMQ`¶[àR,Ü×±Qd/þ7g%°ÉËýj›>õfÁ,ú¹2¸2¦UÏm–,ìàý9¡£“ä;)a¤„‡¼Ðí²¨µrD 0ŠNéi)-`Žk•etD¡!×.6 Ž(±]äyg­ZhT5³$ûGÃ-ÏUºb–á§\kn/<zƒ [L|u^BDß0…ëçD„ÖNfŠëº·iÆ%å0TÔ-å¼  É%¹ËøVRy!Ô·ºÛ9ø¿éÇ™ÚØó@2®:¦$M³8#%¯%Gh ‚¸È¶.ÇØlŒAÌAÞ qH#7 Þ™" ½UUN?ÉÁ’Ã÷rØVÆtÇ).TV t/áûªfŒä˜·®×õ*û¨ªb:(“:µFÎ}4o zÍÊsÒŠjÆI5ÖÕ¸Ö@ ;A6uVn†eö˜c^ñÅ{¼¤ÂZ_õL•”“7CŸ¨¼‘3ÂX÷0}(‰s¹kK›<é´êuíA’t…R®¬9kb%øÓ/£µ¥³SŸ'ï5®J4[6ºÜm÷v)Â5ï¬7‡ üõ·¤—*]dUi`}*kÈx·é¬€R;‡Gö8ä{yÑ=ú*ücþX›ÐbPg[uHÉŽ@åfýmC:·á;¥µ©ª\pý²g½\¿R²\!ÐÝU ×`×±ä[¤V·q9ðÍ%¹r*ED É`Rv> stream xÚÝXÝoÛ6Ï_a8– ±ª/ËV1=l@ÒaÈÚÁuó² -QQI(Úù@Ñ¿}Ç/It5 òÔ<„äéxº#ï~÷“ÝÉvâNÞýº>z{y“؉#?š¬ó‰çºNF“…ç9QOÖÙä¯Óq†Ï¼ùéöìŸõïo/ç‹ÞŽ ŽœEƒ=©ëE ¡täêW¼½ ‚É´£PhÏ‚ÅRªÏüµ‰áælÁéÏ35²9åþowîÞ“s%ºÖcI3­œ¨á›\5¼QÃ1ϾÞÅP•Ñrh_«©–_ÕÐð]vnæl—òdúùÃTK2ÄQÿÀAOD ‘Î<׉çqûž{K%>>>>›Í]W<—6wp¬Rk§Œ3µ,1ªÔ,¥ŒáqB«FIHÅ©š!5„w¡Þ×Dî,ô‹WJAœ®÷8õKé½›Rœ‹<Á<½­P)uÜ•T² ¦´},äÓ³\ LQJ·Ý¢¡e»Hi•OŸöcWeò-Z=#[›$èo<òô§_Ô”ß ®f”e˜™cÕg“Ò}ï@z·ÐÔ´Êô%˜+0°õûÀ¼E8E0÷NsÂÕ„á-˜h -ÔªjzKøªÓ…׫< né…¦NR*Vq†N¸ Œ‚¸®!3P¶A0feÀaž£FùDw<¥%V (ÅÃQàøÁòÙî‰z‘{–•ó}ÿ¿ï¤îk¸1r0~èøµÏµ%êçÕî­f8#)§Lဟû¥Ü²=lEV›|öß…z¶JL¥^'¹ÿ(Ù‡%k@®·¦Æ)Éïu©"FЦÐ*h¨ö:÷,R ¤pH#P‡=/ð¾-UµáÕÃvÕ»!·zÍ ÆøŽmè^O7;ýP¶Ú2ãtö ·@kkrÊJÓ<¬–1ðâ̼ÌÀ3œ”¡œû® íàemï`)*äù1¢ßÚшù¦øjöU_ î«òÆHR‘óÖÙQõ’qú¬WŸ/žj׶CàáÉõ³‚šB8¬{Òcý]9E "¶”$|ZÄ‘Ýp ¼ÇE“t9æ˜Ô ¢P5<["2ï@Gì21ˆæZ"SÔ²Ó&m{V³¾GñI±~JóBôÔòHËG…2„GŠôai„m¼Úß('C†ýä9f¸Òžá;TÖÕ7¨1¸F C3má7º»Å©¶X 07ýÂQ1€šÿýVÂqE1eX]A«­†€Ú'ñÃéôZÀ¡R(\ZßåO¦W&7IxM½ÚÀªÂ[Ó¡H’vÏ2XÉgâÍËØ]ûðõ²bŠŒð/ŽM¡ºÆU–\þrõ©K”ÙFbÀü6„?¯>šîHüÎdd)Wþ®›3ðÆîd <¹AÞž–¶ßZÿÜëUF6CB{Çwõt ÚàÇ’VRpuY’€˜´Q ü‰A»{ÚÈ+sÚLôŠYbuV×j«ý0°ûxOï4º¯¹ÂíÈwÑÜîcÖõ1¿¡Y2ýãªÃ´™µùÙ_ÁÝ7Œ,ðÜÔš¬šeéþ…k³àPnwYï“wIÇíàå'ïM­Ñ½„ÑóîrÇî$†¶È[G¥T[¹q¾Œ¹A?“,NL$Å“Oja›y»(Òð±ÿ!ò8á|œû‡QÜÙÀyNR"YxF4¨¨@ÌõNþZ¡V@8S^´ÍœT©ŽñVœIŠ+i‚8u5Õ$WNõ+H®òÉóæŽ.(³ÔÒ¶nÍ6Ôܤf1êç‡sfx C·ÝÐ¥:Ž¼™ªsùà¾Õ‘šêxê'ˆc5%o¬ÄÌx±>ú É- endstream endobj 2474 0 obj << /Length 1258 /Filter /FlateDecode >> stream xÚ½WmoÛ6þî_!8faÍQ/E5ì¥I€b 6Çi?´ÆÊ´­Ö–š^òЉQÐÀ™/‚1b~à„„ €ÅÎ|἟ r?Î_O/r¢Êx„xÌ`!­´•µX¥ËùåÒ¥|r¬”ÕÛͦ—Œ9˜¾2÷˜µ½Çà!¥f•³³3×ãO–Ym„OÙA”™¨¥™n‹…ÜQä #¬¤Õ­×V L¼´8XQ—Ù‘‹eOSVu ²2Ó,7c)«ï®”ûàºG0Š¹Å¢l4_zVs+Ðöðs|ŸÛÝœµÚ‰þ16ÃÖý²Øï¬E AÛ!­eÄ¿ÍPÕûÅýy#—û´NÆ·×ãsív@Qð®ï Q‹¾Ð¦ÈW‹²^‹düæ·±}’i2ÀöY‘×e±I6YU«Ps)ÊÝ"™Ïn/`JÔ¿ÞÕk¶¥Å$ìå4/ŽFØWòfØÎæ³úß²¨“+´„Úïb¥Y¢ ÛØ:Ð0‘WIZÈ¥2E¼}÷6±µ€` EÔBñÍþtq]ÌGlƒÒ/÷¡2Cæ¤ÛÑûØYÀKð±8rŽZuëøPß¡¯ŠwãÜŒþh‹´?êu{Ò!ÇÀ'gª|I§ø¡ð=°áÔ˜¢8"MϘI%L9ž\K—莡g—®Ï'ÙFš™Ê¶u¶•ðƶ=ùÝ€:©Kñä‹p Šú’_A‡D}:¦O}Ò"Œ›p^É*-³]y„0º½6r˜ 9.÷yªmM´…Ë£6þ?M7î¤%â( £Øë‹w7F©»#ˆ”7Jß›Õ>`L‡ 6ÀEN¹rqvÕÇÂñÎ9 Ú?$ˆ…o'Ò/b%{¬è¸Äm@ÖñÓ-<êm…Q@Û¶•Ûª¿ìScŸÁ îñcòªšnŠ·ïƒ²;uàØe›ê¿¤z®RÉ™,Ûœ«YV™±Ê¶»Í½‘…Ž¥Øídi­ÛÇ ÜGD‹cŽM@2¶qŽOâëøHBac~\géÚl·e%­kúÐUÂ"«vqo[Â@”!EXêPB1à§×",ƒœS¾jÁ;È! õY7‡?»`´‡#°TPU 4ÏÍç;Õ„ŠÍrår@he|yëpÉt]{Y6Þs<€FÌ‹Úxy<|úɦËÛ•Åg™Ö¨(W?aD}ÄY{ ;7î£P¬ª[+ÎÕÚŠ×u½«^L§Çã5;«Cmr²ý×jX‘/†Š²Ë) “Àb`é•òL.MdžÊç”­á>Ö>$<Çš˜BOñXið)&Øxçðæ×"_ÀÍ)SIca¨›'r±¹7”+u›P¯ff8fõڼЬkŒô¤žv)Ø9þlëG-ë_ë6¹/a7³ÐYQ£gŠÈž.7µ¨áú•¥J[Qé¦XÖG¡»¬ F"ˆ¿Ã‹~ã>% ÖP;É)fö¶£ö' ÛÀUc€Î>$Ó>·E¦h4…‰N?W:`  ³ÁŽË)òy,wºã4lý?:m ©?7ÌÅíº°¿ Ê}þbðÂøÄñø‚gÖ¹ÈJítÝ'{ ÜRþäßP endstream endobj 2379 0 obj << /Type /ObjStm /N 100 /First 981 /Length 2166 /Filter /FlateDecode >> stream xÚÍZ]o[7}ׯàcû°¼—œ~,¼œi´@à¤Àî~ÐÊ׎6¶dHr’þûž¡t9’¢+ùºèCœ=$g†gf({ŠÞÔÆS¬sY6^X1>—‘`ˆE…h(;’aŠ*8É ¤h$ë:©6QxÁ™”“Žxãj)¿#ã¼ó*±qÄå·b'Ý/eã‚×å± !¨äŒ‹eFÆ*QtFÆ*©Ö-2VIË•¤\fàGí“tçËfa]ÉxH:„_úà\ëô:©¤[—“g)¿à‡¨1ÊG€UÂQ`–¸ŒáGÒó3ÀRí½Ž‘!'E/"=»ZM [5IláØPà2U á$`ñHeLawç\20%© ]W‡²StðN®‹øÚzY¾©Åc /†—H‚½šˆ‘™'Öä ` G)cppÌQ%†‡Y-ÅÞHíT2ñK c¤îf"5¹b!6H×#1cÑ WÆ¢ µèÊ”LpÅŽ”M RT°C` <†YC(3`þ$cv&Du ÃM°”AkWæf茩øc‰.ƱbÐg &.O qyJVÄ)±ÌSR=˜3fÒÝ°QÌ©¬L&Õ^g x’+g b’×ÐâàM¢‚%D“ÔÙ²Aˆj|! “ˆîi ÇÄn]Šå¼Q¯ ÂU9×I'`<;RgQ1á*fï‹~„TvÅeÌäÊjУ@ƒ““Aõþ»ÆTo‡×Í z9,šÉb®–pÛÏÕY3ŸÞÏFÍ|y‰ËØoÍåxøbúŜ׈ä˜ýÅ‹Ì0Š8KQRþêip#sŸ7üYë6«ymûŽwîªÈÒŽu)¸ïÕ÷Ý‹´r6¡Án‹¿œÿ¶ÅƒÆŸ(„5‡†¿°x@'T£àohÏÔ ÈõÍííÆÝp4C”÷6CÛµ:tT–ÀH¬ÔUt¬¯CÝ´) ‹0?6œ’rGeE\êªí´Xt}6|=”ì·dß1›°ß$¿êóô9j%P¯ ‘åôUÝ£«ã`õÅG”xw5i†³·¯žÐ5±Ë7æac攵$¾ÑlˆÛ½ÎyÕÝpôú×oÃÅlü¥7 ÔÆ ¨o­ïd‰l²W´áK»†Ûñ|dÏ.‡óvz§§˜o?$Aû- šÑ¼pèµG†‹ÛoÏZ†þ&u`»þè[Å[Ò8»ãoµ·ŠÚ[Emb'ni…Ð ±R+´U÷ûÊ/ïñä­â b[Gã iâ=/-·ö溿DË)Yõr F@¼’e/šÑ´¹ê̪úp¾¶œ ½lÐÿ…›wBù4š~ê ,ü€…PFU¸˼±—ÍÕðþfÑïCŠ 1k¡$±úMÃ^(ãk}IéÛ. lr-ï Ú f4\=GøzŸm´p^B7ÝL¯ìM@;÷ÕSå¢Ó~4—ͧñp2júB¸ÅÉ?Ü$òÑÆàö9}ó²w›2ÔYA‰BÜo“[¡”Äȇ”ò¼µeTAþðâòQâ|”Rwt¶ø€ñû¯]GçM‘ͼ)t|Þä6ñq›øV}kßžø¢/6IV¿Ð %ê#ú+0è6=_yê3úrõÓj_BmG~mß¿ª:íþ„ „ÜX§‡'Á½òÿ¶O„~/è_<0²8*2ŠÈb)~ÿÙÿSﵡˆÐÈÁ³qM¢Ì¸ÅÖ‡5ág]yÿãÁ6mÑÇ»jk ®CGm®Á»ÑwÔ&l|x¿±» ßÝ|'{ŽRb(Ò¼¹®üÀmZ> stream xÚÕXKÛ6¾ï¯6bk.)J”T ‡´M H‹fÝää@K´Í,:¢´þú’%Guvè¡ðïÑ|Ùo†ÆÁ&ÀÁog?/Ï._3d(c! –ë€`ŒhÄ‚„Äh,‹àãl'š­*4ºÉ՜ij›o柗o._ÇÉà(ÍJ² ÛC„efÓößzµ<ûzF ‹Ò†%Ê2仳ŸqPÀâ›–²4¸µ[wAš$…~\ýÙË;n-J‡XF,"‹”áø,Ž^Ø"Q–’Ð[wr¾c<[«ÚužÏ žYÃ`k˜çnúÕµÈmÅO#b”`öäaÌ&n‹‘¥$qzþ*t^Ë}#U5Bw@9º6’ ’! ºœ€©<7X»6/¹ÖÎŽ ê„ig¸soëó §‰`' »Èïb\$AŒ‹0AóÿÒ|#&Ñ}‹v¬ÚÚgÏæ‹ãÙu­s×·àMg€3!G8ã¤w禈†4ð¹#IÌÀ²S‚$ŽPè”ÅÞ›÷µ¬šO8ÆwNÕBnd£_D~بÒ÷þµzqŽÎý°â/λ>BDóQÐ`R”‘ÿ·uüåÞ}”âõêçIKÇþõ²6ñ¼iw¢òAüDÿº;"˜‘ó' ð÷ÎÏ«a¨=,Ò‚èÁ‚ ´Ã("Y †Â”º#γS˜l±à'4 Á]«÷"—ë{?¹®Sµ»U·Ó 6mw¼tƒ}És¡Ç¢n·2ß ²!! 7¨…nK§µqíaèè­jË™w%\[«¶*„Ÿ4ae¥šA!ÖÆ#8HsÒsadBç´9½]FÖ„À|¸)Á6¢–9|d³›yÏxÙ 7ÜH3¾‘ÕÆÆ¡ }Qó*÷û“Ïëîo\ïV–¥ë­¼Œ\UZ¢¶&1{Õ`ZC*úñàͱ‡£Ï·¼æy#|&ÒMíÀÆØécîMìá¦!VÝÐÊ·½ØÇkYñÿRÇÔºßó$5CgSÁ>Ôíâ{Ä{} 'K&Ù!¨ i£pˆL‹²',0<@¹Õ—¹*Û]õ³E?Üî ÜÝÛœe§eO™3‹#ú´+–.Ký”BéÃVcÓ9ʱ—IÃdÆ'ìÍ2¬x’§S„SÚã³¹’âQ䚉¯­%GÐÀ"´Îó­µ(gù«{·:¢3³ÀµoÝúøF’&ÍfË­t ü ¥ÇDºã_Œ,«UÄظVp--¡'ÎSL«…ð[ßHió¦­ýÐ2ÿpÝa®¥!²…~ ¦Ü&0e-MAŠïr‚•ÖØ+‚î–{õ¸kV¥Ê¿,¦òB!ùFUÆ°a–ô[D1½ŸBzú4ÚµÑçÆa.ÁõÊ{3Ÿ@ÆVZ¸-6N õ´={9f/µŸjjÁí5Ùu}8á?l/ÁNº61äÜÔª,»Cp·pŒ%'*ôJê¸ó2ŸŒŽý„ö{†áuá"ÎZÚ÷¥/TÚʦwcQ\ŒS¥ž$ŒN&ÕFMèb†HÔ+B°Ûû£kÐ[žoe%~(T»*{=…ÅÖ¢'Ÿàð†ŠÇôð»jÄ£¸Á[}9OÁý<¨¶ö•÷ÔoÝuŠ%àÝSÛÝ Ðì°á{µ! áõ›<ˆsDÃaá¦FúÖ®ŽkK^øÛ½nµ¿½VOºØ^Òô¶²úÚ7K÷ê8V'ƒ‹ §/+"@“l|Y/çF x¡ÔFºî¤?–×—Ó“@ò蕲¤:¡:¨C³ÞæÝsi+®»Sy·è‹Ì\¾·®ÕÎë?”õ&èºï¾}tPHŠ‡p¶Ê¡†C8œÊ¤qI·?t+›­Sµ]RuïÿæVð/Ói5AŒŽ¯âX K¢2åÂ"èýœÑD¾mV¼YžY‚ÏfæPØ#Cã©­ÑCL°+ V~QU”íÒq’˜Kà „~¯]Š­ÜÒ;×8èfÁ§wÈVÌfvÏó9™}ááñþ%¢ðå(íÿìxc²‚·©DA˜ÚÜÙí±óUé™Û|v¾‚œu qF!½OØgG•Ýè:F•e2L¯wdc@j¬ç£™| C5ÈTÍ"‚û8Þ6Í^ÿtyY(‰T½¹$‘”ÑäòZktƒÁ#%¦“ÿjyö#"x endstream endobj 2511 0 obj << /Length 2206 /Filter /FlateDecode >> stream xÚ½XK“Û6¾Ï¯På©j ’©òÁ›ØÙ¤Çë‘+'UKQÄ5E*9cýûíF|h(yƇ”k,°ñjtýuÞl7óf?ßükuóâMÍ–H!g«íŒ{ó9‹8gÒOf«ÍìÓœGÞâ¯Õ¯/ÞH>êÇK2ƒÛêØà°Ï®KËÁø¥›°ð+}šv§Ôb)BoþªÐÕhzÿ ÿX<«ñ“špqßêÏ–ŒëÔ«ÖÿSY£™ÑðõêæïnŽÆ;OËÀcff‡›Oy³ tþ 'GÌÐÃ,0DÆÓÅìîæ?Àil+î1ð™>2¼ŒèÎ,‰¹;ÃϪiòrGæAW™ÆÝPú~CW¶ÞüsºàÞ|‡ÿYdý~$C_6œÏ žaŠ99aìÃLNªÿ¤tVçfÿIlŸGßÅoÆé°³›4ˆ¶RBÄH5_0Ï ºHUMº]ˆpëMÀ'Û‡nì1Í>§;kÈŠ É&¶µq^Á-ìñ?jœ;Ô熸Îp`š?½Ðûr»X†ž7ߨmÚÍËwß¾9Çm`©%8* -Òô`cÌ {¬ûXíWµP{Pe£¯ª]í/×x!’`/áì¼Ú[—éÁY{ë<´>[,}PîÛÙ–ú¨²üOÏjsk'ÅÈ_VZÛukÕ´u©6ìL»ÑI–V½%)iMþôSÝ#ÊÒ¢µ;7ÕPjç[G€#cS){Ž²²D©<œÉuóŒƒØ¤Xxú!ªuþÜ„ŸóCU;‰ÓÚ¨«¦’ £CA#«êZécUn(nAÔÙÆN2ÆùÃ>Ïöýt8ã‰è}Õvᵺ÷ÉØL2Áã? ä…þVB¨NpLÌÂ'Œd¡'ŒïÁ0­¶íê`¥ø›/ø¼±½´ñ#u¿ôS&¨¥ …1L¨ µ™H¬2¦è)ï;£~U7¡{±¸ãѼ¤…—Ê'ݨƒñÌÒ‡´ÊE4vP2š#)i¥ž^x‡É¤Cå ©]ð›°¸Ÿ€ä‡ä&ó«2S·–=ÑåÝ!ë¨s¸E(X »â&·'kÀQùÐÖÂR¢—ïÆLð᎔¬qËÎöN†-;&!×—v·ÌÐ&(Úº\©-?ŸÇÌ„ZÜŒvˆø2±{Ĺ&vƒÐÆ{8â‘aquðÛQÈÜ4âC<ÏÿXÀŠÍ~J+é±(î<ª¿îŸ a1ï‹ù!–Ð`ÿÌ)…F0Û×Àr]§¸kÎk²®ð9 Å™u7Jçµ²JÏx¬c¯…ADcl#˦8-d8¿=Ë Ûª(*œÿÐ>ÓÙM·ÇcU7jóõ¬[ °%ÔÉfël¯²ÏW‹x°cÜἨv9° lEd ø5yx{¢‡½ÕkúHéç¹\ÕšÜÚšqÏí ^+ÛÖu®¬°j›ne;½¨R›MP‹½åøÔøîYg „X±|eJ(,tLN_Š$Áž Qv [}øøzhš"<çÏ3÷»Ë 7ûdöSËDãdSñ’¦˜­€V:Ë(ì÷5Zó>¯ZÝÆçÈŹ¦).а}hµ=áÚÝ kµ%ˆC§³(ÙpýÈzGe1ÚT±³˜}˜ÞD@gôS-ͽĴ…ß/ß¼z{÷íx!²¹Làšwfñku€{I"Ãq!¤óóãW’Hôø>'ÀßøøÑß÷¤v@“ÖM{¤(’4å{ì±°ÇöÚÊr­[µ¡ì(íÀnvÞÛ±#°ã¥1à. =áîùà²(ì®ÙÆ æPRyò ï¸É0ELܵË0ÚÓó)걆0T ˜ÐÙ‡º+7PÚƒ¤CÂv@¸Œ=ÌSUÉ /1蟋Eˆ…hþ®jµÜGä é+]µA³V·.[tD¦ÓÉÍv³Ñ ýûŠŒ¶©iƒ(-N"4JöãÌ-˜/ æÔrëÉÑ_ ošÑ|… ‰·­]·ŸiW. Z`€vÙõvT®KMéæ,ÍxÅùðiÕa åPÿç”{O Þ‘R¿9Ó_ x5CôeÕUN‘œyß5B}C2õÝ}ÁœžS KªÃ±9‘¨È±jAaÇ' ][Yº!ï…”—V˜nZÛºeÉ#¢…ŽB.$Ô1©à…vŠTü„ñÄÿ–JO]_Ë¡0h*‡Ž^(‡êëÁ¡P’Ä&ßå~r’Àr'ŽM ŒðŽ]å“5Fè2%üö% ÚSyG=T*ÖÈ¢$Hql£i¨©©q6ÐpþÂή”ùÚö×U[nœ6èж$žÅ1§Ëécà\WÒðÔ”1×ïaÎnNÅ3â “p¸Kq„)ºÒŠšö~Œùƒ ‹\ŽÚNS›ê1hŒüƒ‚#ð‹mšëz¿‚ßG“ÙÜdtÛmÁ"c>´¢m’qPV§§³§Ó© ì‚ØÜBý êydí©ÅñBþ—†u@H3âyKY pÙ eö>aGüSÁ«ww¿|O㲪¨êû|·/àÏNɪ²:ôX›x®ÁT#>²ÀžR8‹i”Á’„2³¶E™YóGsáƒyæRl˜ß”:ú« ÊÌ;4(X oöÕÔŠ XÔ_4/VM‹½dtkÆÕ!Ñ™'¯Ä¼õ²¶ÔaC×K¨ŸCáŸ]Þ›Ý}ÐÞŒl:}¬£Œ™ßv=²Î¹L0?J&ß¿s{Ù$d±É·³×«›ÿ˜ÁôN endstream endobj 2524 0 obj << /Length 2318 /Filter /FlateDecode >> stream xÚ•X[Û¶~ß_aä¥2kER×¢)NÚ“(Nppv·íCR ²DÛj$ÓÕ%Îþû3R–¼Ú D‡CÎÌ7ëý*XýróÓÃÍíÛX¬2?‹e¼zØ­Dø*ŒW‰~¬²ÕC¹zï5UWlSêº[ÿùðëíÛ(™,QYì'Y‰Y$™n»‡ûÞ¾Uj²j£’”–mdDÅ‹ûƒnôlùÕf2óÓ4u{‡¼Í‹^·ëŒ•×õíZxÕqÏ{cÉ']T0±{äÿ³–‘wæ?§Úô¥W´:ïuÉôí#áD–1/>å{ÍÔî`†Úqꑳѥ¿Þ¨0õ–ZêÝZ^>Ô=êµÚ€¶ÉjæÍ¢ˆµ¨¬Ugöà‡@9E_€ñbÁþaè§J:Η°{çCU`§^£óc‡ÃŽ˜÷n¤y0=v¦ÕkyûÖ Ç’i¹lÁ—‰Ô+LmZ+Üìø‹íÑ ¤nùBEs…Kø\-/¥—·h-)¼¡c Â{]ƒ_y_/žÈò˜S_™ãdå‚ñbéGA4Z¯®ö‡EÛ©Ä’Äñ¡šKÂü( /žÈÛOK¢æÈ|‰ÇKœð¤`W«¯Ad)|·V»²ÍQ×ó‘Í'ÃØâpn¿sÕ£Ð$òrþ~8 =Ó2 É£‹ÏðP©ðZ15lý¸Ž# ŸFÞ½v??]µˆ<¼ûåfõž„t;S¢‡¨%ïºZÀ˜;ŒîóªîhƒÐ»»ï‡²2<Gá°ÈYé`®m^wÀ«Tàu1*3@oÕ1 Ì÷Ôcà}•®x‘½yÖcÉ4p ² vÃ"ï4ï;B›éü0C&âÁtúÈÄRŸô±ùÍÑÞò:C§3éËÔJQ@fFrg˜!eÞµˆ1Žl^c9¾RÑÌ4r10R_†cRi_¸áÖn÷¹ê†¼àµ1­¥ç§“ÎkØŽ)ÀáQ{ÿ=ÚIçáH3?J’%GË„ÒÀÂáUè'r DC³ƒ\€æ Ý_½(†®7Í „yx»ý«ÈE?ZÂv$àÙ–¡b?ãMÖÛÓìdØ»(×9i6yà}&ü(Tsݦ‰SdbÄŽÈÃL£ã3 `Äé'PÅ –p±„St$Z0 ƒ¨u Ÿ…äX?½¸Øo ƒ5Çi xQ^iªÙÚ€à?Ž®Â»Å³ÊÆ"CÆ~!©¿¯3Höõ Ÿ©-fçÅÅ"õã”×¾©l&ÂÝíá(í½±d›Q#çcbôH;2šëÈà"Ç|'Ùñ|«ºêúëMÀ.ÓuÝ¢®Mðz †þ`ZÄCç0üÆøc¶õn¿í¨R©¿¯ãÀ«tqè·ùàL…»,à&‹|•Ž°ùáüyû¯Ò;ØgsjÍ_`Tß´û`$dèGJ].ÞOèzÁ[Æïž‹¡Ÿ¥Â­;ôý©ûþöö|>ûngÈ37Ùþk%¤ˆ@Ü%ʿòA4wÂÞ}Dêé#†ç·ÛÿÚÔa€7Odà€8^‘ çxˆÀ&Ñf~6Çr(ìí“$ª¾ÉyýØažÀUtwÁÔo8Á7Ž]ÄwP¡¢…ª‹Z«Móì^ š_1ÌYÍ¢ Üã$`ùfI྇­ë«"·@¿7»þœ·k•xzI⃠fȸrÇ *^‘Qqñj Ðz6÷‹RÆ®J_ò]¥©H·P‡‹4VÉí_]çà†¨µ®‘ôÃè .o¾äÍ©~(‹R ¡ÞsÀI8¶7ÚO.<üT+`÷ì)OþÕÏ1v׌¯Þ¾þÏý›"÷Ÿ‹|¸ûí›$Þ¼y¸ùûFPc+ªTFY¼*š›÷«&AUxgbmV!`/ ÑùõêþæÏZ˜úÝyAgŠCµ ¤µd¹ß8h!6åÛuyÕ]nÞì0Cì u6ßS‘ƒ;™æ)Ã;ތƕ½GÞa€¿¦çqÙ<2U€Ðo±YaÞQV¤ &¬Ï¿uW´_lßžç~2æÕÆÂvÌÐBF¨µ#oÍÐóÄ$—Uvò—Ñ”Ñx*<§ÒJðÒÐYvÎpDÝa¦‚,š'·º?k–6áìÌfÖnØšRVMQè}üò Õ åF[ÁÖi‘GùŽ9­‡CWÀÚ–}ýÕeˆ~íïý—<õ³1'¾~CŠÎK7+ƒ ³‚’Ê>1DÔs5°j¡u‚ºÁžOâ}qÃÆt}ýHAG´|-©Üº *Iõ_3 ZÝÈEü_ó 4ÅÐè#&xªx€„¿ãyšË€Š±n§+ˆ.“v©ïˆ§ÏöÍÅÇ 2¶ ã>£ZõßPdnláÆWMÅÜüpŽæϬU2a›+¢»^çØ)+¨¡tF ÑDï–S!K%ü±hu¯©ÄÍäS» WäÑ°"ﺡq•"Ì@7 Ûúѽ•\;š\Ù#ãP‘ÿ*_3$”}ÐA‹;5Ê-—°rjŠ[ðk­cÇkøýX¦1{}Ôfèì\ÍJ›•à¿«¥¥wƇ#Ó–Ýô0‹ŠP³ôÈMïØ)S¬”ðȇc;O_»æ›ös½$dÅnžÀ>|Usœ„Ú¥B&çsØÚEVWPuqá‚"£˜,ñ6jø] )ö"‹©)ï+².Nl9÷ÀÈ6ñ0ª,…³ j|¡ò~h-‰Œ‘%ÓüG+*+ׂö¦¤[çn1 ¹áJ—Ø/@þÈùijùÞÔ N3ÏX« ÷„‘F6ñUçù\‰|£é`Ìï¬v"çÏã ôŠx¡C Û¡÷'"ôþ8-‘Z!+eèÜy|W.eB j5#Æ C?Sªv¡Ü?ž°tå¿8×IË•Ù'»K„+¶õf9Ó`î‚¢÷̈»²ÓöZ_¼Ð2C~tAÆGÑK ñkkƛУ¯+óãîPæ;fxÞ-OVóãpJ'ÄÙé]Ú3i×â 2ÙͲ%íéÙyy[Œ•ÁJ?Úç÷¥š*œÿ÷èw endstream endobj 2535 0 obj << /Length 2645 /Filter /FlateDecode >> stream xÚÕYßsܶ~×_qu¦cÞÔGà/Щ’‰Ý¦ÓdÚF<Äé„:Bk)“KÓo»êÆ,ýìô™úØ}{0tE?°D~â)pRXÜÁÔõæmCæë@\»{"BÂÈ$¢Ô脺oÌPT „|ê¹RI¨„D!¡NyÇ_Wïa ^ÝNVÿWÉ«O±]‡"f—~Õ÷{Ä+åpñ9Ç-cÛÞ Ô í¹|-å"M¨T;ì¯hŠžÌHCåF¯@P¦é““„qž¹‰_î§Yð)=2÷ø’:ßzÌŒD(T4êÒ”æÁÀ¿† è‡}Y™ž^(ÀÌìóè#Á.ØA–uä)ÌɳHã”8Ô:Ç‚âÉÌú™NI˜ÁÎM&>íÀN§CßÞô¦#ç³ZYE½7SçcaÒÌùˆ¤îˆà¬< ¦0¨ÖW¿ò&ûÜ[›«px(¹ïx†…Ô<±Â<þHó0JòÅ>ϽÆѸÕö4ôùq&žü8 þîõv‡Y.Ý·o„R^§YFþŽŸÖ ԜLýͶYË·m×™þ¡mJ‚ýܱ†ñœÛ´G.t˜àñ¡R·gx8ùü’û‚úýv„’Âc`6 3V¡ŠõùHK|‘&ã™åâq2é¿>O‡I”|¼£?e¹7"^„ïéû"ÅtïŸ(ÔYüÙjÏ%E2›ªÍXó葘C,y%ês]äœ3ÁÒ¥ò0ÖóJñÙþÖòº(h!v-QTÌ»²ÁÔ”èX´@œ:ç}‘„ž†ˆvFzz+:CÃ…Í%õUÁ /´onª¢w£Ì UÐ U©ë£/#k…MŒÏ‚\”HF€Ü&§röÉ°øá12wððãSò½<#œÄ¡Õ»‡š¿MS»ªÉS-•ãU[Ï®‰9Ò>úO§äó¸t žâæ K…>\VEa’Ž‡âóWMB-ôtÕ1­0e(Ñ÷{Ê‘£Q‘¸ç*·(Žç¤âÚñ¥§✑9’ÖW°GGjßMx.S­›£7•ÊR©PÊè3 SŸƒ²«ßűOÅ ½Àà%ø“g9Ûr«=ó/åùgÀy ”Hó”ÝÉ¡rÀ1¤~NQæùÿ(kÇò©0E–¤d¬“Â&ŠI¤¹_2@à?@àš§íR" óÑ÷>¢ „ ±œi%œ\â1è ÔlÈ"•ž¦È'F‘¦a´¨)·rXšõÏ™ñ5 Žè/ù«…ÆCGUoUŽC|s“L-…ÂB$#íu HÄ2 o@][y{ü†:a+¼“Òž`„TÊ>Çfp\å±ä³(¡Úg浪ÙÖûÒ¡VÕ,*·ÔX›¬9öU*›´Ï¼§{“$ØÓ6¦º»(»%.GñmKl3näò“q±¯ê¨¢ƒ¿P¯:,à¨ù/¼‹¢)¢äPôè±v‚Üî›êÜY”…¹1è€Ê[ÎÄ*8rrÜSðÁ}[^={ýê™/? ñžðÁDZN‘»k.°ѹ"zŒLöH«é²VŸä€ap3ýE\ÚÂœy4szsŦžñå ø²²ut,ô;©'Ô6àrp JåŸÙGUsubV2†èá¹ðú‡g=Î# Yìî޺ЄíÍõ %³É—àp9Âí•·ŠÆB"…‰¹Îg¶Ì4ÈB …š’ŸÈñçüÅ«ë‹wÒ†¿„Ê<ƒÈVQ õ°’«íî⧟Ū„A0<ŒÀꃺ[Åp<‚D½úáâŸt3=Ó /¤aBCàýß8úLŠ†d"ò•½oçr´ÂèÊU‚–Ú8ºªKMÙ»¾ø½3¤‘9í„pøiñˆ·«oÊîèÂÙÍPß‹Ñ+–ªkGÕuⲓ~’—딚?òø4¶ì9›w£8[¤‡T¾3ç×¾yIÇïõüÞæbÆsû¤Íü&yþÊkDÿ+jËÁó7LPt@Zš»ÍÐnjSt •sU3¸b¸±¼ŠkL.¶EivÕ–ªÊb{_MîÎwðIHïÚÕ¢e1|šŽ×—è!¦)$…7ä´²kÁ_è”si_ Y‘MÓ4'aÁ‘‰½¤ÈºL:׊ÅåõÐÅ¢+«_© †œýB¶%YĹÇú¦6^òÕM6FõÑ°¹ý¹ojŒ]ÒrW\†U–ËòÇÆ‚žˆt«ÙŸØ¿¬òý1Šg™Íc®âþH½Q¸…Â$bMï§kæ$w Ý‹ vs‡¯jˆ(éñÊ0gV¤?ˆbŒJˆ¿×ZlÝ\KºøóSÏìç¹3ãs¿ÑÍéš»€-é™™á98ýVòÒûÆ·p^•°(eü3Å`ŽÔ"‘Øs¥³YŠ„ø?e¯çží‹!«ÉóÌãøœ ´ÅU/J³Êýy3ªë?¿ÖP¨åÌÎÛŠ¿/Üû{{3ÂÇ®Sm¸€¶Îôóµ¡HÀ`>V/èýÑ5ЇWð_'´„ ì©Òs­?/a×wØDÞRóŠ±~j/üö«oÿ£N‡v(Xþ½°oïú«ƒä’“Iö4W5LÁµñ÷!ìNÒPª?zã8éoëžA› endstream endobj 2543 0 obj << /Length 2024 /Filter /FlateDecode >> stream xÚÕXmoã¸þž_!\Q@ÖŒø"RL7Z`Ó^Ѣݽ|»ÞŠÅØêÚRjIñå~}gø"‹¶œÝ»Þöp“Ãáp†óÂy”%ë$Kþ|õ§û«ë;IM´d2¹Lh–.d¢(%’ëä¾J¾Mwu·ZîÚÊl»Åw÷½¾ËÕd ×’(­A e¦Š#ÓUæϸ¾ã|½䊒\É’) r·éw‹ežeé_¾gnð¯,Ïú¶/·nú\îëò¡ÞÖý‹#\»Ÿ®Ü=mëf}ÆûéÍb Öd)#¬@@›%X¥ó<œ9K´¢îM×»Ñc»÷º™ÞìÛµi È¿yeï{T¾zt“[÷#j‘h¦Í$}ã¦OËç`í[÷C@yúiÅetøßÑKnøÁtöïn~ªí`z½+{³Xr¼¾ ?ZíðÉ)r¯j²}8Ž‡‡ ’-CF¨Ì¥÷KF2&µŸHB…“·ÎôÀF)80L-ÄLâšHê¼ß úJ§ï—½u%Ž»a½†Içfý¦´ôFžyh*³ß¾Ø€²,ûÁ¯t}ÙT循4•£ìLÙ¸QU?.Xž>š½iV¦s2˽߹æº9Ça´8ƒè49áT…œzïŠÉº"…’aý(#ÎLàÉDä™Ð#“£Lª‡Xű%)ŒÕsFò"l¾9—Έ’ã:¥3´­žãàc©Ò'wä[§ÀœØœMî$'¦C0h–Og‘±7ÔòŽ •‚óàW¦ã~̶6èÏçÍSOì7uçØû6°ù/ ¨ ìÆ‘žQP¹Ę£ç– Fd6^ªÕ[Ƀ¯7.hêò í£cp:àn"óÖï;³t6@e…àv[E¬7௴‡¦ÒË7–k/îD¾òI…¤(©ìÈ‚dîC@Xþí±yÆòì<ÏhÅÃ/ˆ·… †¢p¿]?Tuàà ©‰!of’NeLA¶h­Ü¡ß‰J¸T!†˜œ áeF HÔ%Ü:Ó#'óœY"‰V¼°Ž!R))´÷õá\ N%Ÿ”s%‚b"¨O$ :¾Ë3Á% Ëë–i’s M¨!«òÆ>:]Y—À Üv­xˆÛÍÒœiàˆ–õ¦·1‚|.pëÖ¯ïL¿iýúèáÅ;Ó÷X‡gA ¸#”âoïþø·oÞ͘íFAÇî¤n|s¤HöØ£¸á‡³VE“‚³°q¿+ÉÐÔ'­M\n¤³žÞæw›¼Èˆâ"Nôæ^a ixN÷-fÍs]a¸RMíõáÊñ-F*;R1—¬¡2Ÿ†gkc5ŸÞ̽àè­(Õ¤ø†N<‚ˆM¹åúçÌy4#¹ÓL„Žúc(apŒöµ´v[Õd'“Æ˾{£)ôÏp6ÄVñÙF‹ÉyWïî¯þsEmžÑ„£8(,BI’Q™¬vWß~—%,‚¶Öó˺K8'¹Â<ß&ß\½wX%n‘˜$ÐA&BJ"¡#˜ØÍ0á(Wp•Ç(Ò–Œ¶¹ÀôŸÌq~0ý°olh_–v|a|Paý€ÈÃøp;˜‘¥ ÏMÆšê&ªÑIçê›ðÇÚã2Ì0ÕÒ<Ú„s¤Ý±ÕºMÓ~ÒÍcÁiÌ÷Æ {»t¿Pæ° ¿Ô–<‡AUöå-üóSW·o¿º{÷•§Ä…ضôd.¥‘ÕwÖÊwS+'€ûêâÒ9¯œ¯/ ÌÍáE8sŠ‰d(L”ýþ•C£ÐVþšÐ6ÿMA[–ë#LÍàÍ¡mÁ¥¼m‹œÎÚÊÚŒ¤¾.É,¹ž€ ;½„+„Èüóp…à1®±;ÄMì³+ãgWû]‡zÒâ¶3Ü ³h—CKJ“¬àø¦Üƒ ÛíO:R¾Ì(¥:›³6ëLB¨©cuèÜ­•A¡ƒº ¸ô-6´B\«¸ÈUÆ64Öi”y¢ Jm~<×¥[)bézØ™¦Ÿ+6,'²`1v›ý¦Œá,~hƒV¸ÈóŸˆÚÔɇ"H"x¡V Û˜ ýšûúç‘“Ûaõ# æÅÙ·ìòü'·So´ìÜBÝ8ZT3ýw—7ÇuÖ¥¸øï¡ë©{2«Ú¾m@^•éð3˜æé×þàÚŸ3<¹ ¶ÛU*|®)\x8Rë(ˆ¬ÌH›y#"s½r?FC‡:—âs“óûÄc\I1á©}¥/ï¸ûqغùS¹/wØ!Åx Æ–è³½µv½Àx¨¶¦;h\Îαu7Õ¤~J"òRù|}ø‚é…žœiÛÉ0†7ò’nÑÓWv‘¿œ±Šýp;¬¼nŠ>ºÿ Æén›úøæì–ÿ#ÉË+ endstream endobj 2547 0 obj << /Length 2428 /Filter /FlateDecode >> stream xÚÍ]ã¶ñý~…qmQ=sIJ¢¤½»—·mŠ$@/ ô¡× ²E¯‰ÈÒF»ÙüúÎpH}Øòî]´}±©áp8ß3$ùênÅW~õÇÛWW7q²ÊX¦¤ZÝîW‚sFj•ÁT˜­n‹Õ?‘DëÞþõêF‰ j¨8Ke „,ÒÑ´»Í±.tÙ"ò+îö¸º ÃɪMÆLÉ)-þÍzsܘŸt±ù°ßë]×è¤HÃO<æ?Ðð=ýE)Àn[m€å,Ž=ÁE ]õÕ÷r$ØÕ]îèt§›úNWÚtOº¢¿ ÒCÞ˜|kJ@Á½¯×àX1!÷̦¹°é„ÞlË6?Þ—¦º»¸+°d2í©^–þV·öuãx› ~ýÌÚ¿!óÅ~nƒÄÚ` ï7^ÚwôÇ€ù/6ÛÄ>ê¶/»öúKeÑÍ1ïôz¢úZHül´Ã{;´6ÝVnÇq¿½@Ù"p&‘9»pÆ¥òŠ…)—îã‰îÑ„ÈÆ)£”âl’¸aÆxц_§ HdAwÐ3ºÏzÛ妢qîþÑÚ"ðR#Ò~XKëizÓšŸàQ›»C§ Gh-ÁÿÖ"t“ß-Iƒ®é=¹.¯Š¼)€\1(,b\¹P?jËZ…Ù¯eìA†j§[ZÊð”Ñ<8­Øÿ¶ë CxÒ†‘aš½!¥Ó–DL µ Y–9§ø~à„…*!Ø'°-Ó´¶¬‹7²T6`J‡ÉWŠeI˜"fÄT’ É(sÎð¸À g äÓ IŠ€/ì-pœÄgÔësj’% GîÓò‚·Ø‘ÇÀÈdàúq|g@ǃjB­åÝìåT ö;A§Š'³ 27R¤,NçÑ0f-ã0/f.2¯ŒÀ›ÐWqî>V>ÑxW7.sërø¶%Ñf¥C(H+bVÙt”w¿­ÌZ)®ðóÁø²pVÝÀf\y OF—E»°“TX‡8øQ¶@MF,ãÉT׎ «7”¶¡Žå Ú¤}}!«…L)—ÕnI¶0hˆˆv©Á ƒ#eGAQk¬êŽ»º*LgêŠ>é?ò ]zÂÑ„ðUÝw»ú¨[‘’ÜWUÛé¼x3®=Ð0†ô…Þè?,H–B >g‘á㔥JÍ qYö…ͶqØô ÿz08ê.ßäU^>µ¦%!;hÛþèW¢—àÿÖOÒé“ÆC¼ƒxûÆCb™7k‘wè7ø}_ß÷“V§ø ‰y¡ü9ù@ƒ‘È@ƒ »TÁ¦6ÌÓ$Øå­nQ£™“ C"GÜQ~ú"”œ>O¤GÐ@:ßu}^Ú`’­ )ÎbÓßD¸!vuY‚C¨<¦ÿá’\ÙêàÝÓ=F'l­â„ Atø¤Iç`uƒu·%ØaRD ²ÕÚmvÌ O¶¦ÿOœK›‚aœûS“ƒúÍ mjÜŽ"¹êž1zuÜ75rñ` —’€`Ρ,ù"ƒ&]Áƒ® V* ­ÔêᦂÞQ·ݲ‹ƒÃHm$1ñ(üö$¦1rÒÌY—çÖŒVë8xº¯¢K87sÔÁzŠ: 4HÛb:%WÁ SY ›Îi³ÕMø•c£³!îCIÔ’õº÷ت£»,Ù ;ä¨!©N\!ä R&6‹õ;(ƒ0!VáL_/P'D€ >ÂÇíùQÜê“%ôi*¿ÂÍïû®o4[jèDÑð6ÑØîvž:¡zg‰ËåK=•« ÆaEóg« Ò'.öSP„ßòÛó~ úêq~l;æ)Ÿ¥Ð{l«·Ð±«÷tÇâd"€ˆ¡¶G°H §&y¾mÄ"õ‚t¡a™í™&œ1QѦ@^õÔ†cT/Ô9·ªòfr¨óLOqžÄ%kÎ"8íÏ››‹3…¸9º\ _…i»ÆlÑO{ò,>šî°h"8,%bªßÅššÅCM…LUw”¾2ï©™:?¨ØY*ü0âõá–UÅ[iÄ’xäjÉÔ1‹ÒpÁÒ3Ή¹©†OÚ¯Lù ݈‚8P§9í¥#+uÉÈÊYy#«“,i½wÑÙE G þkž2mÐTpÓ< §V…BwÚ1` GÂáÕ„·3Y Ùë¾êhìU&28gƒ(3•ýkv¥óû¡ ž·Ó¾9ä‹útg¨Ppߤò M*›T8Óän›¼l]ÿ¾õMvc:+²n—¬ƒÛ ý!8œ(O‹É2M£ÙÔœçÅ8 ÍΟ Â>Ba:3¨Ãiç Dp4i¿Ào ®¾ÄoÌâPLù½´ÕpÊ}½\G"µ´ÕIjA¤ ÒÛGÆ2Èd–M­ñˆ.¼@P‚× ñ‹tpRà"8ZO.¸4û’ú¶D%ñ`ûg‹ÞØŠ_«¶%`¢ÁŸ.ea&âô—ÙùÿJ ¬g šß—¢áÌC?§Q€t¥ šÜú>lw;w¡—ú$…ãiÀÖ º.´w…-áRv=»¥‚¶*•/”ìŒ%c·÷9æýj͹Ï1WH¡ŒƒÂ懊?ÕU«ìáP0žàB—)åbv¥('Š“xiæžHâi:Š¡>TÃ=Eî™ *Þ:L{^ZÐ"¸®\ÎÌp¡ãVœµ=$7´¡";¹bò½PxÞ ÁQÕMÙꘅ¾K‘óS[F´•ÄXp‡n˜z<˜Ýa$³&••ÏߢD">½EqîJà×Ý,±lo Ü%e™L““¶u¼Pp÷r®»ë”饛/Úù´òÓ˜®¨?ðÇ£É•Ö Tùáê-ÿìÆáì¶O£mrW7(òΑ£ Ìë wu³+MÿŠ0Ù÷”ÓßÀßäî8ƒÞ[_»Ýêâýë¾ùú5Œ[d¹ÇA¡÷y_v—Þéí¼Û8Ž9îòdÜãу Ôïáç9J,C¨S39O¯&?ãeñ­$ïýËËuãÄG±Ï¸ùŒW¨ IÜاÜÂYÂ5·8®÷gﳎֽÒû²l¤ú݇™<0-²äòk©gl$ÐþØÛÈ°F©ëŽN˜žˆô—½vŒ…þa+ŒÿÛï±) “ÿÁ{lăñÃí«”Û0 endstream endobj 2552 0 obj << /Length 3279 /Filter /FlateDecode >> stream xÚµ]Û¸ñ=¿Â@ê ±BŠEw(Ú"éåpEÑ»-úд¨Ö’×BmÉ'J»·÷ë;ÃJ”,'AÐ @–Éá|ÏÐbó°›?¿øãÝ‹×ï´ÜäQ®c½¹;l¤‘Jô&“2Ò*ßÜ•›nϵÝïÎmYìËÝ}ÿú]šKT®£,ÏaC‡,³‘^>ãõ;¥ìÊd”æf³‹3*Zô\è;86OSÜ¥Blï*ÛÓèÐv4ø®ê«®}¨šªîŸß|díß>ˆT”úø–þ$å $EI¡å+ú¼ì‹ ¿¡?‘B®Ÿsûð¿ Çhøce‡Soç¤êOoW¯ÏE_½Ü) `kaãàWG ^ÜP"ö¾ŽN÷Óx¸¿±³CQË>„û‰ü‘D&~溺G“Jf㇒q¼¢x`üŒéÀ»#RmÔöñeœn‹Óà>“­=¶xjhvhʪ£Ýf Ú•êÄk×Èëc“8ÒYêkKÛ6tYðY[ÚÚ{B‹—±je²Šä¶x`ľÃöES]YÿZ•4w®üæe}Ø9Æï¤Ê£ŒhÆÿCÕUÍž÷ñGÛ~(ëÊ‘oëfAÏ¥½ §¢¯Ûææ*µ=tí™FOǨ޻$feUÝìOCI—PÁÉ5ÓR}a«~M‘ŽžMéOHAçÚ3Ðìꨊ^‘œL &­£ØH/¦‚ }ÐND™É<Æëë]L”`Äqf¶be+™F øF|s½OezÜhU›sç¥FbR±pE {Ç(eл„æÿq¬…ÔÙÖÍ ŸªúáØ;ËQ÷H˜’yªFrÀ¾m@3«¿ôpâ–¨–îOª×žwÕûPí{Kpç ÁƒYO›É¹ƒïƒq?’óT÷Ç5éѸDÉmõóàüÛ¾]a³Î"¸‚gÒcˆŽòLÄÿªWÀ2fU½¢‘0é&ÀaÉÊ[’ Tàj³$Ê'5C}\ÙDEfò„J' ‡cŒD-Ù]Ç×G¥0ÒÙ&¤ß­¾ {\áúÝüSäÎÓ.†\%­°ìz–©Ä’-vÜAg`º |~M_`ø‰)¬vTHtuáòh5 †=‘Näö§š'ExQ-æÁÙ ÐǵµÌ!ÖHÑö!ù¢Ä÷5\%›aì#¼š× R«Ó3}¾èí}EH—®®u¤Nš]½¾áÖ>ÕèËÛ ŠB]€±DA²‰®TIv”¸¥˜8Ç·{(Ð_(d9϶÷“@îà.ã>ÛÆÖ¥SPØôëVˆLRHÈÄuœ/=ò.0ûìæ˜ñj&¥¡2hÝŠV r4*µ-ÛŠµNÃD ‚e>¦¤MÛ¯ðIB´ŒÇ¢¢°vpñP*OŒ½Â(n_ ( íu;ôX·[Â&”c{v ¶và™)°ïTlhÿ•<JA#ƒºë3í³^Í5³ÏšIárÔ]®õ& ½ÌXl©¡2lLœ]`‡ñÔ…º¦ÞÀ&"¿&~FVؘ Ô¼+øð5nÄp…÷¿«›™QÄܘñé´Ð`(¸;äµÎuºƒžÐ¼Ú®´O™8qK÷Ü>ßUSZÄz×lRuˆ ~›`Þ9äö3^2×jgQ_4ÜƲôMÍ;7<†½Ù—:ÅâãlÁ¨§û"8òW¹]ÐSêê½+e.i«õ“É4·ACõ•Ûö°–@MÝ/‡Ý/Ååë/€»,v¸­g[ó JaŽª6€°O°~mÑïO¼gKw@4g ÄáO ¿a§sé<èjËìÛfŸVÞdjBøx÷ñm>™¤¿"¯~ÍÐÓ‡§pé%ÔŒŸèõ—…Ò§ÕPšCi ­z Nè¯LÝ°*ç‹ŽŽ(«KQÓµ‘ Gíc5 ÛµŸËca²hTj¡æõ;j‹Wø?縘î¢(ótkê뙹Å&¥ø€ó jNûêÜ-ZËÚÛ8¶DfÛ÷=ãØq䎭ߜ¬Ž×t®¹ ²b.‰1f‹Þ¦ãÐŒßÀ ËÃù ¦ÖpÛçÖÙ±1žÜœû2ÆpwÝ„}r3»Œá>¹qYø³ôBºlÆeKrÄ=ÛµktÐêÎ%’í¸¥Ñ;Lbjô¾8ý–& —7=@˜oÆr%æ"…pI7,´®Úà–1@Wë1fö8\„€ ³ÄmÅ•ÎY+Ø79—¦ÀØHÚfiº ð(´ñeC.¤ãõÝø®™,1ˆô²zÅb[~¦‡*ʤnc…ÏR^ìtÑÅ`ªY£E༫{ä:\8•j¿öù‚‚såîßÐ(áXú0T~jê¹OÔËå«InÑ0 ײÂiîí!ô„|q‰DîkH^]œ/'^ÃïHÓ"×¹Bdz›TÚáCYÁš˜$4ÑöUQbÔØdX£ÝB~}â^ÕqšŒé+uð\zyixá4NÑ…q@º *g &ò</ôwMÓ1JÍòn,Hó©Eæ²Èk¯«HLyîì…éh¸£§bù¢4«9HÖv^‹ùK‹Å~ë¡r$à»ö¢‰F®S?Tôb7F•ÂRÖ‘Jÿâ爲CõjnŠ{ò#%–H'@H¹³ýðzµð8žùÔµã;/ƒž¤°­MsàÚþ¸ !Lp×”ŠÜ—õ²ÌwG`Li#Âø¡,ãN"ŽðÉÓ=£®2¢ )°ö t[eÙQ_ÐêæèÚ\N»åUA?•]½ŠÛ¥‡iXlÅÊp¥‹.ý/‹SÌt¼ÄvôZ ÀY‘«àÙª  F‹w]€ÜWîUS¹ðR{z°‡#ékü“k|s³ÆÇNÇ(ž|€ZVüßãð,Wsª©¤ñ“Bàºñ'Ä4{Ïä4ª"¥J“ mfáv÷ë9j²iÀSŠË¥*:Ëç{ó<¹UÃÃB¢U>ù4%nv8t ü× ydÒtö6}DH|ÿïå…^ëršy9§Ä¬‹òUé™wu¸Ü‘ÉŒ7Pe8°Ùêû>–còÕl2ËPÌ? v¸óɧkTA:v ÙR—A`p ’K³lJnTñ€L VÜ0%À)| V&q¤Òlñ ™É¢^Q«¥§ß‡`«’ú ¿”ró°§aÁH×Fç¦ÇŽBâlÔÿÔ_ø§Ÿšàr*!\áy»Ä Û…kbÖÖÿ8€ZXWnîíÝ‹ÿ^B~% endstream endobj 2558 0 obj << /Length 2732 /Filter /FlateDecode >> stream xÚ•YYsÛÈ~ׯ`mUR`•8š§+›ÊÆkÅvÙÞÄRå¨õ>@À„ \ ®þ}º§g@€•µ4ƒ9{º¿>ÉW»_ýíê¯÷W7·Q²ÊXËxu¿] Ι ãU"‹U¶º/W?"‰×¿Ü¿½¹Åd©Š9“qÙE‡Ê›öØWmcpõw—\Ü°Q*b<ŽW™À ¢ÝÇ®]‹(x¬J½ÞÈXýÞu­é©§·kŸ8—E¥?húê÷nq»%BÅ”P ré ýÄ¥¤U3ºÅáyMÄ›¶iÉÝmÕö‚º¾ô”º­.zsÓ}Ñ´¡™¼sK:×õõ÷í¡Ýé ²Úˆ(:€%Àõ,Šˆ†F·œ 8Ö’C"8iDF¸¡œFº¼)ÛÃfB MÚR××Ð*¨zZ[ä MîóãQ74HÅQû@:ó‡ù«xÌTrf iQ²ŠY–¨×D,LÕJ±X¸×-‹ %2¦Äûà-ð*ñ€_S{ÚWÅžºð<7Yë¼4n°¥6w3­qí–Ú9 ì E0K‡ûËRA÷¿nq1 þ?âR 6äC˜ª),OÒÒ¹.=WMë¾›íZAu]=Ôv èƒî÷m鶺u½6=õN{ç'»ŽE)ö–QŠç枇Rÿ¤ K ³—’'AÛQ ª‚<†wå4Ði£ó®°”à·Ù·C]R¿Ôi9€Rà©Ó'蟎~jK-ðøc¹E»MÕiwÔƒÞ¶›ÐÈãßòCÕTÍnF}ì¡IŒeÞ;ƒ¾P§Ø·­Ñ#6¨cÕÆ-,Š¶+á``L‹ÿ@öAözVG{$È~ZD"­¿šçzŠÃþB»1⧪ߓ–(55gIÆx–v×âáûï^½únA¥¢%ÙÔ¬ :ÿ©Òui<¹sŽx“¼,†þ8¸ÑÜ\>Íê TŠ¥™šÙ*»ô7«åÅ£aÒ'†^+p˜ˆ‚òŠœŠýŒ~Hà÷§÷ã&ã÷ŸPsÚÉöoa@ØôU‘× qŸ>£°HÒ³ UÓëîØéÞÒ87#@†ºwƤrmY9N¸{$AˆàÛyrýÓ,T Z€ŽÇêõ|÷!ÿ‚<¸„unÌp°~zéA»‘—@zͬM3afnp¦)¯©g}&´'·ôA×Õ„ÉîŽ=ñEMÉ£™Öo£ïÏx$d  5(ˆÀÝS‹É=æfé(,X§<î¡ã|œç,Æ•Ó×ó7ë`MµRÅ,Ê„×4—Ëè*dè²_C|ÅóG¾Z,FÁO͉-YuìîkUF¬…¡“[ÕéÏÚj¯ŠÏ[½hªþÉG‚ ^¨êÈv<[Ž.B{ºg#.Ôù&á"äh¿`,¯{¸Ô¡½ÜÈ, Þ¸‹¶é»Üôî&ûŠÉ=õx 5_7 þÖë%‹Ol” „”D7E¯ཚ>§²È/ÀLÕ˜uæƒÅ ÒaG8ìÌT%È6L7[C¯«Ý¾×¥5Ï ÍÌÎ$å;¯ÏN+ù=_±?`Uë¡ÔÎ×™~(+mȇm&¹ó-OCºîo²®]$ÁvèôÀ»—ãÆ8k ö*áqJ+À'N}ºèþ¤ I“Â;@+ÿ¹tÝ .…´xYt·Úh½$þwyÕ•Žþ=dº®íƒ¬¸È2îãtåk]î´¹üçZ´£õÊgç¤c4ŠO“‘c–ð”hûaaD¿o;Üj¼äǤé+É#R–„NTÿZ§ ïz»[G@ä΃Ìu±ïòaúÒ…`"‹˜JÇÔèO§Ç‡¿@@‘CXµ” uœµÝîÏK¶LÎŒÙ5‘Ï0૨wÝøˆÙ¡™Ü¾}ßÍ‹››ÓéÄüÍë <¹þ¹tR@„“‰lá, @e K!­ )¸Äö£÷‹©Æ—æ›àòÖ—m{<ö ¦¯™ïXüؼ³v=FüÈ,ðKþ8¨òÑF»¹·nÇKÛR@øª4Œ&©‘œg“'Ï<’ 3ó‘3÷” ÄÖ<´íúB ƶ[[?Q;vln³§›ÍSƒqUe\ çŽ[(¯ (ÂMÞäõ“Ûp™âEÓš}‚ߪKFOPˆ¬’hê?À!Ày÷åM~#ZL“w£I$Ã54¥ Ƽ£7"fœ'.7ó²‘1ÉFFÙD62¶²qƒ ïv½µ»Òq÷ÜlxàÛÊ[5Z☔.5X0†©Ð¯Z;cè’˜U,XÊG=ü»y"áµ®¶àçgòª[Œ wý:»h³ˆ%‰Å!$÷éLÍ/t õy4!jሙÂ#£Bä’‹VÃ4þ$e ƒlÁ>E ãa|i,ʶB»p#8\%Цr“¥Ù¿™b!ƒˆ€\M€­»@‚õ–|`Ô¾·ˆ$a@L|†K`ì ¯[?u"Œª,w­-`Ò`f`zÏiáò5C[ëf¡‰øe®ö“21°,Õ¬‚ßêòˆ%\D o0Ti¬àf‘AA°µC7 æc{¿Î J!Ð4­CÆÍýzfÌÁVÛðQ‰ík Þžú/Éd,Å»h+ÂH=žè Þø÷€GxðpDÅ— ÊèYäˆäæŽË8c©8ü¥™XDŽÂ¢h,çȹô²„gà”¡„ÑH f^¶M9TPI2Õp[‹]ÈfœúH-Ø ªè¸M<8zÌ‹/`­Ö>ÓQ}g Às(—'ºu3Ýͱ ¦¶Ýö§¯‹;IXxv8_3£0Õ³3[žˆ[Ml…@q‡é¢¸%T>'î4KñÙöÈ!W«¸µTW¯î¯~½6Rcõ[&’%qº*W?ÿÂW%LBtÉT–®Nvéà%lÀWõêîêÿ7ði‰}^¿bâP¬dAD’þßêù<ÍrÊÂ÷° LS>&Þ<øéè«%ÓÀõv óêççŸy{ˆõ×ì[ÞN?#Ä ?#@òŒtpúQ›¢«ÆÊ÷ƺ÷{_:9Ž¿l‹­“›0ÎìrËÏ Æ´‹ŒÙZ¦ø@ßW?8åŒÐRÎ8¯Å¸TìÉ—[|$Λ¢¬èþ®4àGPãª^Ž@©ù¡v š> Rœ>vº¬,ß)üÇ1[xÄKòB‚MA)Åø0Yjúá·Úбöe˨4Ówý:sº „];ìöí`C—Ócg”~<Ø"‡¡g¤ó Ë7¼ UËé€Üå^3h³ð+“”QžËÞ.%Mg?%á8ÿ=\®Q,e®à¦ÂôŒOG¦‹$øUl‹Ö)ÍX{ÁWA`V`\f“ˆ%ÝËú_+‡’` endstream endobj 2568 0 obj << /Length 2496 /Filter /FlateDecode >> stream xÚÍY[Û¸~ϯ0(j3ŒDêº@zËb 4)’ú°[ ´DÛDdÑ•äL¼¿¾çðºY³ñLòPñÎsçwŽƒÕ~¬~zõç‡W¯ß&á*gy“ÕÃnQ²JÃ%"_=”«_ÖGÝ÷æÔiS·›?üýõÛ8íyÂÒ<‡íê0MqÑ«À]²ºiÈâ<[Ýó6 ZöyÃ㵬ΪÝà‚õVuJÕØáë€Å4*ë’¡ë·´ 0›0†3à?ÕȽ¢ÙScN¦±tÞmû¯¯« =R×]ÈÝáú× ºÇM¬Í}«KU€§¡:$²ì݃œò8ž³·ó8]·†Ä%ÄH\H6I½´*õYUoòxA®g‘_¦[<1YwEV]K¶ —Ä)¨dz[¾$e" ýJ×õaaÂr‘ÌN ž<û•(Ãí†ës·tj6°GgKÆ•²(ÌçbjƪG^¼h%;UŽ…¦äL¤ñTO×ëàô-LýkðRÕ…¢‘J¡&ɺ*T<›X´ÿ©ÉˆT°ºÍÿÅÔ]³ ³µ©*]ïéd§¿`ýî|ܪ†ÚfGß¿ê½îZjëz¶áý¹;»D„V(X–º{ÿ!k$üÛ@<»s]ãB7¤cC:–NsJc8ªNîP¦YRL >í—ždñÉz!ž Î:'éÑ­rAýIȲ ó”ÄúÂ5 ·¬·iº?UÝ¡Açñ ‹]SHÇÝÖQrn­=ÀTgh¤@¥˜j"T[Ê2L+©{ ¥NC©'Ó¶»ƒìœ±5ÊO·§J^ÈS§ÃÔ뎱:¤öãAÕ´ýÔèºs’⵪Ñu†ˆÂ öˆpý¥jÚx4þbÏÖBPÊ™IMÈ uw®S»E$Th´ªóûµ3Ò±:Üœq3ô©!J¹Ó‰„¢33£ï©Ù™æøã~6±d0giŽMçMÑFµÝÄÒûF¸f7?}–U?Sè~ü³lúáV{;Ýõ탂¶} –qDhõ9KƒFáD¡°Zܚ‰ZpÜÛ!N¡ÐpÌÛ!ŽíLCƒd,6g7#Û¼ní¯ñê^°T[u™*   áµ¹‹ðœÇ“U3UAƒèQ«ÈÈ  óƒº[J ÀCÈÿŠv'¨Pª…jþÝêÇ{Ôgwé~Üá<Ë¿zÂÍ-HuPÐ9AÁ§ì ÞŒ îí´0ç ¥”ŸÀQr”Áu«·•,F®í’\ZËêòi!Jgögt—“ß‘KVàëCä½ãΑ3ápSù4¤r€JÉöܨöYIpDçì.•¿á}Ÿý@ꮻà ÿ¼ØlÓ½žÿ´Ù½5¶ßËz]”z88oa©uô×oYýrÏ·WÀñ“(L3C+–‘lÒ¤K+R˜–ôqêØ€« [w ±ÂT†¢t`câDž¾™´8dÁ"7gÜ£ŒyD1§º|1*ík"@ …ä¥yÊÂ8tšO\*}î l8 sP´ü„ *êaðµ ´'üR˜ÇÖ8>7nšl”¨Å:OÆx4¸A¯ƒëL?Š={x°¿WÃSä"ØEß_¸0;úƒÜæÄ°ü@Düð”ãòœÅa4*c…$ÈhŒÓY¸£c®+#KåÚO£ ö¤UzÛÈæ‚k‰ 'èI#–Ž‹j6¬‚¶ß´;¼ŽjÔBaaËÔ¨WlQ³ùd'ë`v©jŽÂJ;?£=Ÿ°ŒJÿl²`ý§wþ£ #^Í4œÊÀÚýëƒÞ*øÃQƒÖ°9JßD­kã–ÆwS€»øé¬iÐÒßm"TyIuZw’}EàûÉÓ‰vúõGY¼ÿxGm_v´bì¦Ý¹Ôf)å ßšJÍ0ÎT6¾$7ÈÍʃ ìØö’óu’¾x8¯Ò=Xš¤òx1ªœ«Ž¬,±É×íÔr©õœ‚`‰U1|©¾5ùïYwîàS%uâˆùH0á ƶ7 ׳QYPÀïMhM@¯ô«}°[æœmß`²¦ótý±à‚°´Õ» ’‚8ïy‡fë‡iKÖ b–DùRp›o‚yÎÞC!k?«Ý\ß)`ë>2À¡Ká#ƒh›ŒKÖÈ$^*Ýz|'‘ÌÐÆãÁ`ØA2B„ØÃRÉ+pE;Š|ºÄac‚ pùI6þŒåøíOð%Il{Ôi7 ŸÞš£'prí’P`õ ­KSØÔ@þÇ9KL=ñv@þŸ‡Ù×ßÁ8¿~;ð"ÜÝ`GÚ PðÅ 7Ö‹;Îí<„“Èû+žW9Á £š E>}_G€ÞVJ96ª0ûa×ï•×Â%ƒƒé‚p8ÃACYÇ/·qZ••Ûj\{³ºÒµÇr[—AŽ¢×Ré,‚lÒŒ—g¸[S^ÂÛ«¦tôQFæ©mú'dñ§¼d‰ýï^BÀ‹øíÜŒ~…ªÿŸÙªåí³£nÛYñ‰~”°°Hç7—ÉZE…‡Å_Åu•Ñ¯yÉÈ%¶¦z¦3€œyö %²N}yFÙÀWÑhÈÅ+òøÅîî ³ý.ð=«ª@"Äy~x*L{O¦.{»¡³ìsu-hÿýÛëÿ£’l° endstream endobj 2572 0 obj << /Length 1011 /Filter /FlateDecode >> stream xÚÝXÝo£8ï_ú”H… ¬´wR{Ò=ž²OÛÕŠ‡¢:vdÃvóߟ?)iMÒKW·°Ç3¿Ïo¼ÚÞ_W.¯nïãÄË‚ EÈ[®¼€.—„a€`æ-+ïë,LÒù·åß·÷(ˆB‚%R‘Z7¢ôÙ¦mJú X#îþÊ’£E…çG‰„FËCÅ;«oï!¬JƒJIѲ¶£9Š‚EˆœÐŠñ¹Å`†9g\˜çƒ‚‘ʼqlŠ­¹Wx5Á,ïH+%ÛD9ÒTaeéÀŸsNZ`‡I÷¡?k4zÍÀ-&„Í£XNŸ‚~i”ZôÙè×Xˆ¼ÆG£·òä5ǘžúœÿÀ¼`âxÐí#¶xƳŸ­yk,ìjЪÔ¬k7]ûâb©¶ù{Ipi5ædÀ$Ûó’hçÔšÝÉ·“°eÀóå™D+yœÚDº#xikµQf#"6¸lˆÓrnã&Ú-éË’ñJÃDžõ[Ñð= "˜ûP>ß+zŽë½Êׂoì¾Pk¨dã{'ð§%j'´@ú&kS’ØrƒÛõJV8# {îÇÌ>›i„žyÄy…%YIû¹’­‹†âïz•PR×*ȸ¾1ו‹ˆ”¹îóBÖâ,ˆSà0ÈâØ€(Xµ ¥öåuþdU÷š` ìkˆÎÓ€ŒšËÐÜS•tÔ”À¥ê;q:‹0îc¡Ô†ßbÍE0‰>žðŸc!ÓgwƒFTÀ –fo©HŒ wÐÒÙãA¢Él>!;Ó egz±ìDïÎÎ) —ÈÎôÍìD›Éû³ž™}óÈmiêG[æÝL•ó'Wu {ù¼Ê˧š3™M7îÃK5†¶Q1¦£’íÅ3[Úÿ°-B[ ¶­ÇÝ«Ž É^©/N«ô‡¹!T±T·×\B¹©‘ô”=«äQÓ¯v³mN Òá…(êÏ˾ܹ=1Û›D²¿Æ£D˲l´®«à€q5™Å“†Ç©ùN›é´Mˆ¤SŒ1ËxNkÇ1–úcj{þövDuAdÚ:ÌFñDDÁÉÞU2¦Úñ%C%Ùÿ¤%¿³):„à( ¢)8mó‚ /AÁá¾ÅÀðB DïkÚ¢ÅX'Zx˜È¿®qç´ú¯:·ókp„]ê³t’Iî…9ä%©4SÙIA›Í·æ¥¡%é*ýÏ@ 儘áþ”-ñËQSΨè˜Ó_‰7­3Çízjô/ 3ýj¼V œ@a±È¢’‡ÐÑCˆhûsÿNPËG&Ü¿ ÂÁ×Éø§ÈÝòê_¤')é endstream endobj 2580 0 obj << /Length 1816 /Filter /FlateDecode >> stream xÚíXMÛ6½ï¯0¶=ÈÀZ+‘ú,êC‚f[iZlè!É–h[ˆ$¢×—þö9#YòÊɦçbI ‡Ã™73Oö»…·øùæõÓÍýCä/R7X´xÚ.|Ïsy-bßw#ž.žòÅ{§*t¶R‡¶Pµ^~|úõþ!ŒG{x¹qš‚F+íÇ©ºñèËçýç£Ý+ûn˜&‹‹a‘£’ï–«ÐóœL”YWŠVâ´T;4…þD#fi‹:§mªi¤>¨:/jÚ¡Eu(‡ÙgѢΤ½Xµ‚ë¦aˆgç¢E©Wø”ÚØñÁ ½J Ý5r}ûøx{G‡ëö 4Í60«åîÎêõyêq<Õžëì,ŸÃÌÊãL´b ÿÜM¶ƒã|«e5«¤¾?ïýSSß½Â'ùOKºŠªe—¶¨‡¶ Ÿa}v-Ih×+´.šzÞÈR¯y‘–wSߟv[´}üê\U+¹Ýʬ¥8V*—åœNêôºM%LXN9ðs?$ºÆÇ?t…  éÂÛý^Ùl”–k>xþâtÝU•hNæ@0¤—ºHØÃaG8~§Œ«Yê;íÞÀŠ¥àßîpPM‹Ë[Õà€…¾Î‹í’…ÎV6²&¡L•ªÑ8¶ · —¾#—~àüMzAD¶µ¡1ÆPÝe{Ú§Qª«sÙ@&ÈüBßF•9Š€É~j¯9âl¡Ñ‚W³Fi·²©ŠZ”Ú¶Fn0Üú´LŒ(©Ek­ƒ±B4éÚC×’P{´5“ã^ÖtÊ^¢ó'µÄ}7à~_‰²FœT=W±˜Ëã¤;ˆì“ØIT\Ð5J%r™ßá¤Ós§¥P·â¨×©Vm¡HZ¯ƒÑrýðêíŸofNOS׌hŸq²;[0a[4-”¡ëA­xä& ÕæGY©¥oß;éMuhO8| a¦û¼–ÖÀ6?qè®z¼ÚBÔÎŽµƒßm~˜‡ø8¤Ù ð”9‡¦¨~f†Q,£pQ¢q<åŽÁ .Ÿ›g§;Q–'œˆ<75’ Ð&Yk³ Ífhm>é.W1bE"•Q0åLU~ƒ56²˜±”Z(0È>c¼y¿‘¸`*€¶)ë€ãýãÈe1ŸJ¹RG|‚ì‡#”xZJ ü¹É¢10Áá㳶ê'. â~»=x²‹ã ÷ú~ЋcQ‚›Aé§z°R؆ÄYâAzQQÏ$¥ˆ9 С:zçИ×XlL{–”nMW׃ª[U–Ê`ø8¼Ë Qüp%w&Þ¸¨Êÿ³‹va»ô|“ßÒ«£oíÕ½]×ÚMsväÈƯ¤Ó%_îÖzÓзäL¾¨Z{Ó2ý“h>¡®ßÀah*ÈvòG©Zý‚jûÚ”G/qr¨çI¢+MÁâŒ;£_fT›Bé¥NA0›çûÜõÎÍëq¶¹,JÂ^,ÄÌäªÄCª?î‹–V6õ»Fu¶D‰šL0ý%JÁ¡‰›è%¸ºAÙÜx n†ó„¸Ï¯€Lƒk¸ OBj00¾ N3«b†Žé p‡b×YxÚ—ƒ¯’+ù  }2q|êÞP•+ÙŠ>Š3,#v9F2Œr`GŠF9\œV[Õ]mº‰&G*èçnÌÃéÝAÈJóÃÓ,Ï1¥”CÊÒ ¢‘G$wu†ŸsvZÔ(„€‡…sý†UÑÐj.u±Câ8ÚDV>Ž˜§^¥¥½°ŒtLˆìmG›lØgòv‚©€¸BÌWèÂRXƒ‚§‹M ‰¹ ÁkçÆ0ëL“ Qˆß@f/¤yW’>û…„‚ôÖ´ûÀ@*ôýÏc.(uiŽ<î}v‹¨§¥Mt¸¨Á½twîÝ cBॺnm¶ÜÎ#‹yCsïÁ7íÿ|¿÷vTØ÷fu¥n2¦>…ÅrCœ1a9x¶¿¾YÝ ãÀ×cE6M±Û·Ï¿äNóÏÞš~Ýì9U@ י 5†/Ðhië¼k¥óÖÀY…›Dé”ç3Mœ§}Ïx3äÅÜRKË{XÃšÈ ;- ½—Äy¯M(‰çª4 EÖéVU·wTG"h(ôm»[÷¾!¶¡€Í5ŽÊ7<—¸ÿÂQCþ-•§ñ”¢†Þˆ¢Ž¿h^ÈF±£ÄžDÓ6;´Ƽ¾†ù©S ìM¸nÛš¨->ᛥ0ÚE‰âÃw;ózNÝ–¦PF)Sšñ•,!ZuK;ŽEIz6'\5ýÞ2ûA<Ør>s¦”ö¥˜õáçOkj'αÿ™¥=ˆì•¶‡ðqõ3DÞ FDÞ^yž•\rws€m '}‘Õ8…‹`ÃÌgï1K˵²=Êñ¯8£Ÿ¤žÿnxótó/–<Œ" endstream endobj 2599 0 obj << /Length 1586 /Filter /FlateDecode >> stream xÚµWKsÛ6¾ëWp|©4Ãă Ù×NÒ6IkkÒCÒIi ’8! •{üï» €É”#gšáàbÝýðawé{kÏ÷^O^Í'gWAèÅ$–Lzó•G}Ÿp!½R"yìÍ—Þ§)üÙßó_Ï®$¨ré&CØÈ(åiµ8ÕÛ:ÕE…Úß¹œO( |z”$¡0A¼E>ùwB‚ÀL·o#lW8ÁÙÛœy¿èÉŸðôS§4ocù¬}øþ>§­W§<à$ GqZœƒ,’6èW³SîûÓJÕuZ¬-Jœ– Ahèå+é³øõFåêüd™”_Oà›ÚÅ{§“ ŠÛÕ/ÀeÓ$ˬÕm¦ëjvÊâxº(UR«¥•ß:¯À‚Ý&‹¯ÉZYé}Ú®OšZçI.`Ç«ÙTN+Aw€$ $ (‰X㺠ê!æz©,Ùôú¦n–©¶rئ¬ìp‘vd•›F¢$œÑ' B‡Š…rš:Û÷›t±iýÁq„ð™S³rérÎÙÀ™ HLwãNJ\Éí®TaÇKµUÅÒnŸÚ‰-ö0èq±ÒåÜGˆ–Vˆ®À¶ù¨t®ºÂyG07“Vn¤G€äL ·ËAa`c'#˜ñЀõx½©mð\rÂâÝàoÑ­ÀŸÞ¥Uãø_¹.<ÙnU’x@d'´o0/æá3È2‚Zg|¦À›Ô`[^lÔâëÏ#ŽãÕ‡«Úºö×ÒÖ4Ó‰= .BsvíÐj( óe´ª“ÕŒSÀ Ib´ºý-–YhØmC…‡D^¹öÚá5¼s00©èrAZÔªLuz§vÐÚó!ˆ²¿⃙ ôѸu¢½ÈÖ·âfg(F””e „³ÜæR™Ø=_ÝÔ Hä”y/t¾5ŒçA`éŒÒ» ºCBAÑä·ª´c½r[´ÚiQÕ@“˜`—A˜»OëÍžº.Ü ™1`žK’fÉmæ¼Ðl”l7°½OféÅõË÷;xBl†Ž†5ƒ€ß‚³‚Sk]p6tå;‘šùÊNèl‰£¨Þ$ÅÞ.&”ŒÄ`çí4úù¢ÝÅ-Á´¹k«ÐuúÙ÷™uʬÛíGbÛ`ï4h¸µdÀ÷#Ï …GPXæ›VÃ1È ·€ Ñ´j¶Ûhh\Bùƒ}w) ?lH0€›)0i”ºÈUQ·ž¡í25¨4´ÎòüGÚEîî9È™ö“þÑá÷Hšl´sƒ+•Y.¢ILðÓM]ɉÙ.»qFÃ/휥³á2Îô)ýx. Fü Ky ]¬àä±YÄÆ‹&ož„… ÷ Ê÷šÉTr§(þÆ> /ExtGState << >>/ColorSpace << /sRGB 2604 0 R >>>> /Length 19475 /Filter /FlateDecode >> stream xœí½M“.Çq5¶¿¿b6vaqÔõ]µ|É_[tH$ ‡¤ \¾$u/ ;¿ÞyòdVöSA3ÒÆ‹Yðg¦»¦Ÿ§+»³Nå9™žþö)=ýåé_?üõ¿ÿï¿~úæÇéùº®§û¿?~ó݇ëézùüT®ùÜÆÓŸþøáïŸþõIÈßôã€xúNIë9_Ouêoszî×SÎù9íƒö_¿žçšO÷ñ×ùëßüág~ý‡ßüïòÓÑžþŸÿøÏr‘ß~HO+ÿûˇ¤ó»üãc>Ïî<åçRåoxúµý:]å¹Õ_ø}žÏ¹üÂï[~^é~?~ñïþ>_ù9¯_ø}îÏküÜï/½G÷ñ•ØYµ=×õôù©Tù¶6þôôô‡ý¥Ù­“øõå&ÿ½ìf}~2øxæùu†<Ü„\Ž— !úùC®ù¹·§žŸ¯ôôIàÀåð·Ÿü·m>÷)ðOò©~ýÕ‡¿þm–¹ùÕŸúž`úÂ\ñ¯œ!_úWŸŸþñ‹ßýÝ·ßþÕßüñ_Ê|úâã7?ýøô»ï¿ýøéË~úêo?üÍW˜‰÷™ôs_Û/Ϥ|­çrÅW3Êséõ›90Xp/x@ÉϳÄoüì·?àþGãâ|sM?w§~ù‹•@¨(òMd|³_ȯڗO_ýßàxW0K×ÃÉùõ'·ô\óíäôê3‡DÅýÏÖWŸ)‘$œúsᙿÿóÿòôû¯úó÷Oÿôŧïÿ‡|a_úøO_ú€oxšýg'™DZšO³=_7X‚D‰3À(Ï+ãƒý9U;ÀNñ Þ(óy\Ok<—sˆðá€þœ»NSÂù\'øfØÈý}=Ë£ÚÎßPGÿôx0£?×ú¼ª<”×óH 7È°} vÈÄ÷¯X¾Æé_”Ÿå‡¾’"4Éí»ô“Êsr,LJ\Ï«áÇwÜ®ÅÎòCß) “;•ú\w`WLJ¼ ð­nÏ-Ýžõvˆãû! ñ›jU‘™3?Òž{±ïE±<”›bgíC ßIíyÊÚ ZB©8~†¹pƒùÕ)Îx©Û²³üLJȈIgèµ4y,,Ç‡È «Û(ŠëóœþÕÙY~ˆãÛ!Y?m’H:½K×o—øñfÏyÇiˆ}h;Ëq|;$U<²D@ív§åþ~É·¢ã7ŽçÌõïO®ëmß&Å&×o-–~øÿ&ß+.øÏŸ?ÞæB}kPå’àRo7«Î×^¢¦"’»eÈwuéœ:Tªoj_()*C]°½ýª‚d¸ÀÚ”¡Þ~U›aøB9>ÜÁŒ˜Û›‡Ú„>`Õ;¨°¤·uã.ì.à»Òyµò›‡ÚÄA|íú]Õ7OÑMpá ‚Xô»zsîÏ/tS7°â¢FÌгIÃD·À †›ðÓ†ýy…<ØàŸžþ(?š àWÇžÏgÝMÊÓৠ'^ÝŸöÁõüÚ%õý(câ.ÐÚ†?mœtÓîÓ>Þ±Ž!ßXaæ(÷@Æ(®áO%¯%¶ã ó:ªnkýâ°­;v†?îºKÇæw‘0#ñÂü2v^  ?Šn¹ T{¶{›³ãOuóüSoØ¿S91Ú’Ž‘@Óþ´1öñ–}§8Þ±§¨láeúá;M7ü)pÕ­…8Þ0Æ°Ú’Ìý «² Œ]„òÒˆÜ"RŽò¿‘£ü·ŸþôýÿôÅÿôåÓ×ß}ûô~ù4Á\~ýÃ#CùKCOÝ팱ï{Ûÿ¸Úÿôô›ÿíñéó ƒá}-ëuL÷>t°¯~ý¿¼úä‚×ÌãÉ¿zõÉmé#ô?÷—§&*ÿÉ¿Œý-ù{Ã6—óý|ÿ7ßüù»¯úøí«oF’A°…±šït|÷Ó_Ê´~úâû‡•Û¹?[Põš»”t=^ 1Øywäyùâé·ßÿðñÇŸžþîÓ÷?Ý  vìw¥Ã•P1ñXÜeù_»`{óÇëUØRGüË롽®Fãþ*a~5nW9p€)Ŷ\$ʾþáÛ§¿ùá‡ïxÛwp¯]Ó¿ÿâ³ýâXC÷_«±¿[Ö7¶_rÓÍv} ½<¢hÕ ñÃ!W±Š1;„ø~H’ "ß1üpÈÕðØCˆï‡ðêö·‹ý/N—2¶Á[‰ìígWL¿pnº²…<Öo=¯Q?ùgz¿pr¾vLJšõÖ“‘Xyvýg&±LÀ—埯ž€~KÇ¥¯Á—óoO ;âg¦Åž\~ÈËɵ§¨ò3StOt?ä6ÑÿƒB×Êå$’@ù å£]ùR(J ¦*€¨wëϳ*LÈlËÐâ!…¨Ïy”•…‘„òJ8’AˆlJ†Y&s @ù‹,iVѧ,`Æ÷ˆ*­eP^+HW’AIXCX`­e½D)ÝÒ{§p¦§z1m”l¿ZfZ%Ý–´®bégP²@?Uƒrë®nPrUIªÒ4(Oue” Ø}ä1Q©¥pÉüͨv¬Xå ÌÝ |Kë4(_xe¦PþDÕú\BI%_NÅ`× Ìâ#ËíØ|dùª^ áÒjÌÅ‘dY ädPr¬"ŠATfVðV„ryg7(·»2Êí®ºš ”Û]YÖ¥p ÀÁ‘»…*C(€UT7(o5e”Û-°-ƒr»ÎdP¾¥ª„áÌ€ÙG–?!°rdØu°LPn%J–AÖ¾¦d·{âbq»§V[)ìZÅ:|ä¡U¯ËG–›UbpâòZ N$èuqˆÛ½<'n·< -'¾Ã¦‹VB¹íòÔ h—ÇàÄž«ÀÅ‘óÁ…Û"ÂnP¾%m”Ÿãá¿ ÊŸhÙcpab Ì>²ÜJÕGž °ûÈr»N¹hô±˜Pn7ÞoÉ L]­”›%p4ƒry­X ¢DV>Qµ(·»±Q¡ÜnŒAŽ1ˆ½«…§úÕ Ê`ýÛ Ê´oÍbP $ºÇePpËG–oIV&ÉG–Ÿ7Ý~Ôª,ŒA¬Ç: cP Üʦ/>B¼z†Å ÖŠ1ˆµ~}"FˆÛm o@Üîi1(kW¹YËe0)áÂDÍ¥Ö¨3–¡tL3ˆÛ½,‹.ÇÛ²ˆÛ½ò„r§,Ó™3G–»£µñ¹”çv¿,ÊíÈ,ÊY\—A¹Ý=Y ‚%I€ÅG–[ÙõÖÊÅ d -ñìÆÊíîú*!”Û-1(P¾ánT  Ü,³”Ë“eÆå#£Ú¿X ”wœÀÆ‘;žêÜ¡$”ïP cP œÕ+×ä€r»2 Èg@Æ ÞË púÈ’‰Éšëò‘åI%1ˆ×t¬Í Üî®+EBùþZ ÜÊÞqkåâ{'§(ù@ïƒo@ÃG–ÛÝUÀAˆÛ=<§Þîá1¨:“n\ …@‹A]†÷é18ñTïÓ $ °úȸÝÓcPçª@&Hä2–Ç 2Øœiå£õe ³ƒ ·{\ƒ ·[`ö‘Á‚\ƒ ·R c¹Dd‚!Pr†‘,ÊP c°*_:’%È4 c°ê˜—,·{dRQ€KÉÆ Øœ¬ÜÌePžêg6(ϱQ,‘–L@Æ @¹Ý Ó†A¹;»,7z‹A$-r/ BÉ2%‘ØȬúF8†Aùþ2‘ÒÈPÍb°êÅ ¬Ù ä £Y ”7 Àé#Ë3t5`Á7<ºÅ #ƒUÙa#” ÈD:$—1,Á5.Àâ#ËsL`ó‘q»‡Å $<¸Ý_>!n÷´C`Qmc¹Sd V¥ª¡ÜZåý(kä#ËlËbõÿ  dV1‘Dd "ÑOó²›5 1ȼk^ƒ,‚8}ds&‹ÁªËÙG–Û- ²² È(Œk6(ϱ™-ÁXµ1(Pn÷̃UïŽÀá#O¥õ/ûáÅbJ@˜`T}? ´˜-¾ÿY-Á(qVÁÛ-°ùÈ2³Z’/Pr†Y='žù³y NÓ²0ɯúnÍcpâv ´œ¶3Á$¿ê4˜}ä¡*–ê#KÎ0»%ù’þ]ºa1¸0Wçð\z»‡%ùq»‡Ç ’Æ-rËG–÷㜃K+6§Å`Ógàœ–äcžƒM÷³æ²lº{!I>³PŒA’3>²<å.YÆ\—Å rÔÈlJU d’ß”ýÈ)k}ZÉbr•,™Á®d wV²D­œ>²\ÏÊ–`4Õɬl1(Pje‹Á¦›×+[‚t·2 X‹Å ²ßX}d¹Ý ‡|d¹ÝƒÔ½p;ŸPr†U-›fƒ%®Wµ©rd d)Hò‘åjYVK(·{5‹AI†/­£b "‘Ö2&MåÐ5eƒrwV·lz=™ä3Í8}d¹ÝkX 6]'Bå#C15,%‘Nªßb " Ï€LòâvO‹Aää1(°éþ“|¤è púÈ’3¬e1ˆŒ½2Éoú6YËb°)I²–Å øÈ$š ìô_„Lè…‚A n>¸rB—Å¡à•3‘òCð•,Õœºb EÕ“[,L%`fû‚[QnÏ¢QW‰Â[âaÜŸ/sØrâ6[DNÜ|‡™ó ÎM1,$&…ÅËp£ÐØ¢R·¤ÒU-çÀÒ¢*Î>þ슫ÁÒU-íhú"¶Ð\H%À©Ylj.ÌÌ£±äR°E'·[xª¸xùøãuP-ùN—Sa[{‚™P²ÌíÕwΆa S3éçƒóa\Óè6±¯óaXÒuYŽ(Fj×700C«ž¡˜‰ˆ`lÍ^Ί Öùà´ÖA…ÞÅ°Î'Æ°0šŠ»¿¸+Ä%ª×¨&dÈv}3f»ÒSÀ\tÍDµ‚뼶XLeÝO>þà¶xññ!žKN‘uJW“sd²dÒmu'É°Þ*Š¼‚1’Ód]ÓY`†o'UŸœ(Ê ×ãLYׇ/pññ±Õ›œ+“eæCr²L0æCr¶ ‹6Œçt™àÚs€UÜPÌøíZ¤<}|ý&§Ìc>$ç̺2ÀŒß®I0W ºÍÔ,UéšG§ä¼YoÜfrâ KÁ®˜Ù ¶ð¦âéãc>$çÎd§óaXÂÒ­¬ÁÙ3Áy(füvê3gÁòŸÏ ´®\||ÓÒ–Þ9œCëóÁI´®ÙOâ51J’Óh‚KWlñ;01€™¼ôA«gÒc>d§Ò°(eIFóñ+á-~'CE±Å0”àÈ›áR[üê*ØâWÙm`®$ºЩ4×ÇŸYqöñ!&½ ¼páÀ¿KË*²Ój}mïeó!;±Öu)lñ» h‰‰o"ßåã/|>'׆:À\U ÍÝ€¿X/Ōߡ»ä);Á6”Vfü«uŠMð芇ÁHv’ kj|>gÙc>d§ÙKU²ólCo0ãwèµö\a }ðgÅÕÇŸMq÷ñu> ËpFæ|pºM°ÎçÛ†”3ÉŒrœìŒ”ºS1ãwèž”ÉÇ×ùà¤ÛÈœκÂù°,Õšy¢8ñ;ôÆ3~¥½ T‡aˆˆŠSoXÿÅËÇÇ|(ÉòÉ7™+µÚN¿!芙ïÎÜ”fü8(Wbü]3ßÕ+»?Xî4}|ä/`59¾ò`ªŸ†‘¿çá@34ÅÌw—¡˜ñ;ÔŠuÆ/ˆ‡¤¸øø˜ÅÉ80]ñôñ‘¿”fË¡d0ãwhÞ Ìø\¨mçJD°–g9%òb²\ë2Œü¥8)'ùKqVtFSÌøC·k‹órà7ðùœ˜ƒóÁ™¹18œšãÑ[üZQ“s¤@€³|¶8=N¤*¶øœNÐÉùà X’¤ØâwjþRœ£mÒùlu–Ž< 0—'C!`æ;CÿPªNÔ Íú-~EÉò¡ W`‹ß¥ùKu²ÜKU<||̇êtÝPˆT¯s)f¾#ùKuÆN0ò—ê”ÝÔÀLµX¾3uõ Ìøú"®>>æÙ+ḃê¼ÝT¥}Œ_P:—bæ;¬§fü‚ã±ÒÀaó¡VËw ã˜Zœ}üIUrõñ …™ïLÊ?ªxS¿70~gf©a·|g*ÌøQThô c>Ônë0GS-’ü¥:*)+æzeª¤>UgòÀ-u-mdüÎÂùà\Þ,œNæm*Š»ü¥:Gú)Uçó¦&ŠÀŒßY5Ÿ­Îè Öùà”ª¦˜ñ+XålNê Öêgõ¦ÖlwùKs^V×ò ÆïÔD˜ñ;žœÚ›ªI͹½©.`ÆïTÒÆP\¯€öZŠ‹|¶9¿'X0œà†ñŠå;SëR¿‚‘¿4çø@eÅÌw&˦š³|S™T\>>æX ±à‚ñ;µ”˜ñ;uâ3ß™Zךs} ×–b‹ß¡ùlk–ïÖjv§û@¸a<çûæ YˆÙÂÔÉòÜæŒßd9jsÊoêÄf¾3u!ˆ²Z‹_}Ð[üN·aùŽàÁ2Üáãë|pâoR3Ò¦å;SË?-~© nÎý F>Ëe;±Îgÿæâ|púo.Î+YFþÒœ$õÌø]šˆ£,˜ëpV&< *Á¿‚+ËŠ¹^;ýÓ€‚‘¿tçMkº‚‘¿tg—Ê´€¿Kyˆ¸¸^Y(ÀŒß¥ W`ÆïÒ0×++Qä|àÒH'&ùlwFpe/^dü‚„ÌŠ¿‚1º“‚`%‡bƯ`ä/ÝiAÔ'ÅÃÇGþÒ\šH¡r3ùø˜Ý©Á¥òÀÌw«RÜÉÁ¥ åÔ\j¬Ì|G0ò—îü `ä³Ý BYñôñ1ºS„d?¿¨Á^Š™ï, l`ÆïÒ…60ãwé‹,õiùTCqññu>8SÆ4)f¾ß깿 P»bƯàL-$óÁ•>Œ_ª™’”dóË$óa8_(ùËp¾´+0ó¥ `ÆïÒØ1~c>˜mḃá|!˜Ù¤xúøÈ_F¶õ ¨Ú®8ûøn Äñ‡æ/#Ûz><ô ²øÕJò-~•æzeé°Å¯aÀÓÇGþ2œ/ßÛ[üNÍg‡ó… €—b®WÀ'Å¿SçÃp¾P0ò—á|áR;>àæã#Î.MTÓp¾¤qÎ.-†¶ø]:†ó…K‰`‹ß¥ùËp¾¼rSœ}|ä³ÃùBÁ:Œ/l×Åù`|!°Î‡É|ùË0¾ùË0¾¸Q*¨ù0òÙa|!°Îã u>,æ;¥›Àãk𜆑¿0Í%Fþ2/VI¼ñ…ÀÈgçÅ|óa_Œù0/^”WŽ¯WåÄÉpfIü,†‘¿0í$F>;/Æ|˜Æc>L–R*žT(.Ñ=+qüB9sa¾Œüe_œÍ]kÆ|˜•ëàFk­œ c>Lã ‘¿ Íóñ‘¿Lã Û¥E‚i_Œ|v6®W€1¦ñ…À˜ÓøBàF9Ìj†U÷f|!0ò—i|!0ò—i|!0òÙi|a#1Ÿ¦ñ…À:Œ/Öù`|!0ò—i|!0ò—i|!0ò—i|!0ò—i|!0òÙi|a»:çƒñ…À:Œ/Öù`|!0ò—i|!0ò—i|!0ò—i|!°š2_Œù°Œ/lØhŠÛeóa]Ìw€‘¿¬ËãW ÓJ¿ZA¬ùN£þ¸ùø˜+yüê•Vf¾Ó.]¸[üêƒØâWêÀ}Fþ²²Ç¯V‚¥U<~'Å‹&¬Æ|XÅãwê|XÅãW« ×0ŒüeU_­'¶øÕ‚BGfÕÒ+‹_%¶ÔþÍÇÇ|Xù0ò—Õ<~—;Ê1~¹q¬ù0ò—e|!0òÙe|!0æÃê\¯7šÖ1~c>,ã ‘¿ð5HŒüe_Ø’–3~¹ñ<‡aÆë|0¾Xçƒñ…ÀÈ_–ñ…ÀÈ_–ñ…ÀÈ_–ñ…-i™!0ã7eÎã u>_ Óe|!0äA—ñ…À½*®>¾p÷ñe"i…?Ç×Ò|_œ²bƯà\3~“Va*žËøBàžh$ì㢸úøêÚ—™ï¯¡˜ñ›taˆjúkV^a¾\ªbÆoÒD˜ñ›”ø^ÕðÀç3¾xfÅÅÇ_Uqãø ó˜ñ›´1_Æ«¿1ß®E1ã75š_܇âéã¥"þäã/Šú¿I¢À­N]1ã7ií0ã7uªó•)QÆÈøÅÆÑ–9ë|Ìw€çR/FÆoÒzÄ|_œ ½—áLïF‹ßÁù0=~çÃâzXçÃòøÕ…€»6*ž]ñðñü/_-L¶ø:’ñ…À˜éòøUSI`‹_-NÌÉøBà‘ÅÍÇ_Mñàøµ¤äñ«åà­Xü.ú*_Œù²Ç¯)[üj•bNÆC’ŠÇïRãËd|aÃÆWU¬ë`̇d|aãFü2¿Yks2¾¸Ō߬_ððñǠߦù€ýL}ßf5füfUj3~³–,ª§j7\p=Æ·K1ã7'Jf»å;Y¿hàáãc>$ã u> Ëw².ôs2¾°qã ˜ñ›•Øf¾“µx¾Œ_M–bƯàA_Œêãë|0¾xuŌ߬Œø2ßÉZ¨2ýl¸˜$¸†§gZ–ïäÂù`|!p§eiòñ1x‰%ÉÙø–µ’Q-M«a™ˆ0'e¾“U©ÌøÅÆ_RÌø…ð¤(æz%kâªæ¦>þ˜t’öñ¥¹^Éú ÌÙøB`xIeã 7 ávÊõ ô'S1ãW0æC6¾ÂÚl|!ðhŠ§?ñùŒ/^K1×+YÝj¿Y‰ `Æ/7¹^ÉZÝûdÆoîtÎ6¾xdÅÝÇŸUñôñ1²ñ… “S1×+ؘ¤¹Å¯9æÜ=~µÊQ-Ê“á6ÔX×âWë‹?“âæãë|–ïäÉù0<~'çÃôøÕD˜ùNVâ0çéñ«åŽÀ¿7"çeù6>§âìãë|X¿‹óaY¾“µæØâW‹¡À·øÕªG`æ;Øâ—Bëryü*ÑnîLĘÅøÂVôEÌø-ZèÌ|§hñ#0ã·hõ£Êë“aÌ8ØÅøÂF;÷\Œ/FþR²å;EK Õù—ã›\ßøÂf¥Øz…±ÀŒ_\xS9?㳃ÀÓ0ò—b|!0ò—b|!ð¢g0×+Ek!s1¾8MÅŒ_|ÐK1×+ÜÈfüšÍA1¾ùK1¾ùK1¾ùK1¾°-^æz_ >Ÿñ…À:Œ/Öù`|!0ò—b|!0ò—b|!0ò—b|!0òÙb|a+f‰j|!°Îã u>_ظq¬VÝÝ0ò—b|!0ò—b|!0òÙb|!0æC5¾ó¡^–ï`£y)fü­’ToöiùKM–ï­“füòF3~‹.œ€»ùP/Æ|¨Æ6Úq3ß¡¤T=­“aä/ÕøB`ä/¨Ûo†‘ÏVã 1ªñ…À˜µX¾SôÁ–«ñ…­h½$\M¿E_äÀÌw ý·kõøÕÄØâW«M3ëê‰1jóø:jóøÕzI`æ;Eë%-~µ^ØâWë%áþÂõ &ÒPlñ«‰/°Å¯N,àéã#©ÃãW¤ÀÙÇGþR‡­WŠn4[ü.Îç ±±Žñœ/ÄDìŠ-~µ^ØâWë%§ü¥:_X´^˜ñ‹ø¡˜ë•zq>8_HUm®Îrc^EÝ—aõ²p¾°ê¸ùø*uv¾ú—¬˜ñ‹‰^Õ¼ñ L§ùÿeó¡9_Xµ^RÍÞ‹aä/ÍùBpöñ‘Ï6ç «>ø]zý3X ¹nÇg1žþÇíïiýäíz´~òv½Z?yûÕÊ>>ߪÖOÆ|DàÞç+ úm>3c¾W­ŸŒx¨úâŠx©J$E«Z?ﻪõ“ñ>ÄDK·÷eœþ>ÅÄl·÷m]Ìgü}\ó_×Å|Æßç,܈÷=#òª…J‘/ ãºåÖä[¾Ñ.Ïg¿íò|†ùJ»órºå;íb~ëù?ò¥v1¿õ|ª%æ3žoµÄ|Æó1Z}E¾FaxäsxÍ[¾×Ø)hçƒ-1¿õ|Ѻjì|²%æ·žo¶ìöSÌG[f~ëùjËÌo=Ÿm™ù­ç»,4‰|˜âÈ—[f~ëùtËÌo=ßn…ù­çãÝÌ[¾EúuËç[á|ð|¿·çz æ·¾^h…ù­¯'Za~ëëV™ßúz¤UÎ_¯´êë®gZ}\ï°°%ÖCMë'c½Ô´~2ÖSM¶Äz«iŸ•X5uˆõZSb2ÖsMë'c½×´~2Öƒ,Œ‰õbÓ§XO6-‹õfSˆX6uˆõjÓúÉXÏ6­ŸŒõnÓúÉX7­ŸŒõrS‡¿XO7õ‚ˆõvSb(ÖãMë'c½Þ”õ|ÓÀ‹õ>EùÁ´Áæ.Î@3n|BSOˆàšÖOÑ´~2øŠ¦õ“Ág´Éþ2Îw4ZÃl>¤éÆAð%,ä >¥MÎç[šQÁÇ4}q_Ó´~2øú´ß=θñAmq>8_ÔçƒóIMë'ƒojZ?|TÓúÉૺ&&Ágõ‹|­ó]ì¶|-‚/cáPðiý"?ç|[¿œŸ›>þj7¾…EãÆçõD¾Öù¾žÜ—|`Oäçœ/ìôjÛ|bOäkoì‰|­ó‘=‘¯u¾²gòµÎgöL¾Öùή…Á‡ÒË øÒžÉ×:ŸÚ3ùZç[Q¸4n|,ô8w¾¶òµÎçöB¾ÖùÞ^È×:Ü ùZç‹iˆ|2 ‚oîlc´ùè^È×:_Ý ùZç³{%_ë|w¯äkï•|­óå½’¯u>½WÎçÛY(||¯Îß_ùZçó{#_ë|oäk}? 7òµ¾_=Î}?¡7ÎßoèóÁ÷#ºÖOÆ~E×úÉØÏè®æ¾ßѵ~2öCºN„Ø/éšÈÆ~ íb¿……Y±Óuã3ökºÖOÆ~N×úÉØïç¾=N¿íuµ˜ˆý¤®õ“±ßÔn}?ªkýdìWuÝ8ý¬®/’ØïêZ(ûa]&b¿¬«ÕDì§ÑG"öÛú¤!œïÇu­ŸŒýº®õ“±Ÿ=N¿í÷u}QÆ~`·Æ§¾_ص~2ö».œb¿‘f±ÉB²Ø¯ìê§û™}q>ø~ç¸8|?thýdì—­ŸŒýÔ¡õ“±ß:.Úú~,ô8ý¶_ËB´ØÏçƒï÷M\b?xhaCì}Ä~òHûÍpÁH·ýh®•Û~õH¬?ðýìÁúɽß=X?¹÷Ãë'÷~ù`ýäÞO™õ¾ß>2ë|?žV±_?2ë|?°~rï÷¼;Øq|ÖOîzQ¼þ€ù ãÊ­Þ`¯?`üŽâõ\¯ ÖOîz†ÁúÉ]ï0X?¹ë!ë'w½Ä¨¬?ðzŠQYàõ£²þÀë1èáõƒõ“»žc°~r×{ ÖOîzÑXàõ"(Äk·z’ÑXàõ&ƒõ“»e°~r׫ ÖOîzêE½Ëhœ^3èLºëeFç|ðzšÁúÉ]o3X?¹ëqë'w½Î`ýä®çê)õ>£s>x=Ðèœ^/4taõDƒõ“»Þh°~r×# ÖOîz%:D= ¯[½ÓP㊨‡ê\õRƒõ“»žj°~r×[ ÖOîz¬ÁúÉ]¯5tà¨ç¢IÔ{ "G=Ø`ý䮬ŸÜõdƒõ“»Þl°~r×£¡ððºÕ« µ«z¶±Ø1ÁëÝë'w=Ü`ýä®—›¬ŸÜõt“õ“»Þnêƒ)êñ¦žG½ÞT;‹¨ç£JÔûMÖOîzÀÉúÉ]/H;Ú¨'Daãu«7„'ßêgâ|p¾p²‹é®gœV?é|á´úIç 箟¬>¾ÕO2~gæ|p¾pfÎç ­ƮלV?é|á´úIç 'ë'w=èdýä®e¸¨'ìíºëMga=­ó…“õ“»^u²~r׳NÖOîzWº¿D=,ÛšF½,ô8÷zÚY½ž–ùÎdý¤×ãk=­ó…“õ“^Ï ¬õ´ÎÎÊzZç i!³ë…'â®'Fý¤×·ÉúI¯GÎ%ê•Q?éõÌÀuD½3p»ÕCõÒÀV_}|ÔOz½u›¬Ÿôzl`mìnõÚÀ¨Ÿôznàz«÷n=êÁûŒzñÆî'Fý¤×›·ÉúI¯GN#êÕ󭞸¦¨wÖùà|ádý¤×Ëõô¾]oß&ë'½8Ýêõsz~`ë…ÄõÊdý¤ë€­%Eöñ‘¿¸žxŽÐ¯›¡M]˜n½0æƒë€K½0ò×C#q½D£óÎÖSÏ›ÞxõÐc´Eÿ ×kç+ôÀÈ_\ïŒüÅõ Àm„^¸ßô$ö=[oÒø¢Ýz”¶èáz`Õ9_¸X?éz`Õ™¸Ýô2À½‡žxÌÐÛ¯+ô8m±~Òõ:À¦b¾³²ë¿+?è€u>˜^¨y‹ç ý/\oÔ˜øl=R[…z ç W¡ÈùÂU¨2½p顇®3ôRͬª]OÌô`Àªs¾pÑÿÂõdÀÈ_\o¬ú0ç ž»^­-­ŸÜz6`k;Áø]ô¿p=pÍ¡—n-ôtÀ}„Þ®Ñõhëñ€‘Ϻ^¯ASBϬzAç Ww½ ãwu>;_¸´~rë ‘¿¸ÞxôÐ#ÏzÅÆ…ÄÖ3§zGàÜBÙØp~ë%‘¿¸žù¬ë-1\ ¬óÁùÂEÿ ×s¶¥õ“[ï ŒüÅõ ÀÈ_\/ \{èIÛ ½)ð¸BÚèÙ´õªÀë¦gmËìÈ/\Z?¹õ°ÀÚÌËùÂ¥õ“[O ÜZèmû=.ð¸éu‘¿¸ž·_Z?¹õ¾À©‡8ÏÐ ×+ôÄÀ˜®7î7=r§QÔÖ+«¾ÝøÂ~%êÛMï œJè¡s ½4p¡§®7½5°êÛ/V}»éµ;¦¶ž»“HØzï~eêÛMœsèÅËMO\GèÍÛ =:ðH¡W6}ûòñMßÞ9¾%[œnzyà’BO¬úvã Ußn|!pŸ¡×žWèùW½¿èá~À©‡_°êÛ/V}»ñ…À­„°êÛ/6¿ƒêãßýúÕÜïຠ#q¿`ä/î§\fø-#Ÿu?àžÃ¯xÜü€g¿`ä/îÑ/­ŸÜ~À¹„ŸDg;Æí7¬½b/n7¿ `ó¿X>>ò÷»^=ü0ú¥õ“Û/8_á§\røm×›pëá×Ügøy#q¿N#¯íÒI”n¿`ä³î'œo~#À5… p+áWŒüÅýL€‘¿¸ß 0ò÷Cé—ÖOn¿”N"xû©ç~+Àe† pKá׬=ä’ǯ>8·ß 0òY÷ƒ^7¿˜žØËýd€s ¿`ä/îGŒüÅýj€û~6À#‡ß ð¼ùátm¿œžèá~:ÀæÏÃøM‰~MÆ«_“ñ…Àê×d|ag?¯í÷nÞp¡s¡íí˵›5J¶á­[ÛûØm G4‰D/ƒä1¨í®¼Á n÷å18­u…Å V5zë @ù–¼±`¶€£ï¦€sî–½¨A…7ÔLy·ÛÌm7ã,c·ê”Ïâ<åÙëm>åv{@¹ÝÞ"pÝ@¤WÝ0õö"ü7”™ì­IkßKÛÜmMǵ›žÎ¼[¢Ê|ó†)½jý¢·S”ïЛ­Ê3ß[±tVá{£ÀÖvÀ>v“@4ı0€2+¼ALgW;o˜ún.˜çn=X¯Ý˜°åݶ°GS@6Äé>²Ü;oˆÓ«ÙÞ.§³#ž7Ó餽Õ`»`6=€hˆcM|%r½Åàì»àš»=P¯ÚîÊ›âv;IG¶Ó¢ÿ‘StUkͼi ú9AW«õ?Z>2û1+Û]9;WÙîÊɹªÅ‰Þh ýœš«lwåÌ\e»+'æ*Û]9/WÙîÊi¹ÊvWÎÊU­JôÖQl³7–ê×xÛ)ÀVvS*ÀÞvË*@¶»ª>ò­ÝU¯ÞîŠ FÕjDo•(9ƒ7Ò,s·ÙêÔ y.Àžw‹.À ¼gßí½å=åÍ¿:ûzk0À\vã0@´»r ®²Ý•5lÑ’ ÝÍ–,OHog(9ƒ7;ë•í®œ|«lweÒ:71¼`&k€­ïl€ò~ôm€’3xû6ÀUvs·Þ´êÐ[¿ÊíöÆp€9ÚÆÖ´›ÊÊ“Ù[ÎJÎà éÇÜíêåâ½™]ošðx«»Î&†Þ0÷Ý&°ÌÝD=hkZhè øeêz{>@ soÞ¸¢µ_ošÂyã¿ÎˆÞ=a£Ð[ ²30c°éÂÇÛÎhV¸úneØ›šEx£C@öLd’ß´´Ð›$JÈx EÀ6vƒEÀígÚÍWÙ­{ÓÌÙ;v^€·}”›åM!kÞ-#[4”ì}·›Äí¶f”€+íV•½i1¡7²”Põ6—€òXó&˜[®Þ"°¥Ý@°—Ý^p´Ý|P>¸·æìM‹½q'`Ê»­'`Ž¦Ÿ€¥ï– €èˆêüYSbËۉʴ÷f£€òˆðV¤€èˆjJ{Ó%˜·1íœÉÞäQ™ä·aQ-5ñðö©€ãÚÍUgÞ­WW4fíMÛ]yÛV@tDuÆŒ±é-_%ܼ!, <š¼], <ƽ™,àˆV³€+íF´½i»+oS ˜Únb (7Ú[ÜÖk7Àly·ÇìÑ<Pî·ÖÄívŽŒíݽ-/`Ê»ioç#Ñ[úvVRxÃ_Àí€{ÚÍ‚GÙ­„gÛ†×Ømˆ{×Ò@oR ˜óna (߃78î,ñöÇ€r»½92 Üno 8ón¬ (bo»Ü»r)Þ”P¢À[6–´:Ö²Û=¶¶›Aö±[EÎk7’\y·™î]÷d½ 5 ÌÕbDØŸžþøé?:‚Ç¿÷®ÝÖõ^þaÿî÷×ï=®ß{\¿÷¸VøÞãú½Çõ{ëËà{ë÷×ï=®?½÷¸~ïqýÞãú½ÇµŽüÞãú½Çõ{ë÷ןÞ{\¿÷¸~ïqýÞãú½Çõ{ë÷׆ß{\¿÷¸~ïqýÞãÚÇïqýÞãú½Çõ{kÿ½Çõ{ë÷×ï=®“á÷×ï=®ß{\¿÷¸¾ ¿÷¸~ïqýÞãú½Çõ4üÞãú½Çõ{ë÷×Ãð{ë÷×ï=®ß{\wÃï=®ß{\¿÷¸~ïq­ïÛ÷×ï=®ß{\ÿÿ¦ÇõµÙŸ_*·]÷ Õ÷¡ ?㇞üP›Zô¥ú¡c¡r?4ð‡BþÐÏêúC{ÿ Ì?tû/Tý‡æÿp8ü7Ãkàp"¸û./=„ÃápO8¼ç…_†Ãµá…§ÃáøpøAn‡—Äá4ñàCq¸T¼ð°8.ÿ‹ÃãðÎ8œ5|7WŽž‡£Çá÷q¸^!‡“Èá3òàBrx”¼p09üM÷“ÃåpN9|U\WO–Ž-‡ŸËáörxÁN1‡ÌƒËÌáAó¡æð¯9Ümï›ÃçðÍypÕ9A.B‡ÇÐ ¢ÃŸèp/:¼ç£ÃépMzðT:—^ø1nM‡—Óáôtø@.Qw©Ãaê¥ÿÔáNuxWÎV‡ïÕáŠõà™u8j½ðÛ:ܸ¯®ÃÉëðù:\À<±þb‡ûØáMv8—¾f‡ëÙá‰öà˜vø©½p[;¼Ø§¶ÃÇípy;<àâÿ¸îr‡÷ÜáLwøÖ®v‡ç݃#Þá—÷ÂMïðÚ;œøŸ¾ÃÅïðø{p<ü_¸Þ‚‡óàáKx¸ž†‡ãáƒâá–øÂKñpZ<|—ÆÃÃñpx|ð<Ü!_xGÎ’‡ïäáJyxVŽ–~—‡æ ¯ÌÃIóðÙ<\8ÎÃÁóîïy¸¾ô=œC_ÑÃuôð$=K?Ó·Óà õ…Sêá£z¸¬¬‡Cëáßúàîzx¿¾p†=|cWÙÃsöp¤=üjÜl¯ÛN¸‡Oîá¢{x켇?ïƒ{ïáíûÂù÷ð>\ƒOáÃqøð#>ÜŠ¼Œ§ã>ȇKòá¡|8,þˇ;óƒwóáìüÂ÷ùp…><£GéÃoúp£~ðª>œ¬_ø\.؇Göá }økîÛÞ܇s÷ _ïÃõûð?Ã?ñÃmüÁ‹üp*ác~¸œè‡CúáŸ~¸«Þëwgö÷ý¥«ûáù~8Â~ñ‡›üá5ÿàDøÔ¿p±?<îüÃÿpÏ?¼õœ÷_þ®ý‡§ÿáøô8ÛœíÛ œí^¶+8ÛœíÎvg»„³ÂÙná±ÃÙ®áe;‡³ÝÃÙâlq¶“8ÛM<¶£8ÛU¼lgq¶»8Ûaœí2Îvg»Çvg»Ž—í<Îvg;³]ÈÙNäl7òØŽälWò²ÉÙîäl‡r¶K9Û©œíVÎv,íZÎv./Û½œí`Îv1g;™³ÝÌÙŽæ±]ÍÙÎæe»›³ÎÙ.çl§s¶Û9Ûñ<´ë9ÛùüL»Ÿ³ÐÙ.èl't¶:Û=¶+:Û½lwt¶C:Û%í”ÎvKg;¦³]Óc;§³ÝÓËvPg»¨³ÔÙnêlGu¶«zlgu¶»zÙël—u¶Ó:Ûmí¸Îv]í¼Îv_/ÛíÂÎvbg»±³ÙÙ®ì±ÙÙîìe;´³]ÚÙNíl·v¶c;ÛµíÜÛ½íà^¶‹;ÛÉíæÎvtg»º³Ýc»»³ÞËvyg;½³ÝÞÙŽïl×w¶ó{l÷w¶|Ù.ðl'x¶<Ûží Ïv†íÏvˆ/Û%žíÏv‹g;Ƴ]ãÙÎñ¡ÝãÙògÚEží$Ïv“g;ʳ]åÙÎòlwùØól—ù²æÙnólÇy¶ë<Ûyží>ÛžíB_¶=ÛžíHÏv¥g;Ó³Ýéc;Ô³]êËvªg»Õ³ëÙ®õlçz¶{}l{¶‹}ÙNöl7{¶£=ÛÕžílÏv·g;ÜÇv¹g;Ý—ívÏv¼g»Þ³ïÙî÷lüØ.øl'ü²ÝðÙŽølW|¶3>ÛŸíÛ%Ÿí”_¶[>Û1ŸíšÏvÎg»ç³ôc»è³ôËvÓg;ê³]õÙÎúlw}¶Ã>Ûe?¶Ó>Ûm¿lÇ}¶ë>ÛyŸí¾Ïvàg»ð{;ñ³Ýøϵ#?Û•ŸíÌÏvçg;ô³]úc;õ³ÝúËvìg»ö³ûÙîýl¶‹l'¶›ÙŽþlW¶³?ÛÝ—ÒjàÜBZ œrH«5[ZÝ–Ödmi5ðè!­Æ|pi50æƒK«1\Z lÒëîã«4ÛK%A›”V·¥‰Ë–V7²,[Z ÜGH«[ i5pÍ!­.WH«Ó i5ðÕCZÝVå|ðRÉU9¼TrUΣþ€Ûi5°J©½TrUJ­ýV)¶—J®J©¶—JRs³¥ÕÀ³…´X¥¿^*¹h…åÒjà:CZ \zH«óMZ ¬Òd/•\…Òe/•¤¦hK«‘¿¸´ù‹K«‘¿¸´ø.­6éõðñMš½||•n{©ä¢•™K«Ç i5pï!­n7i5°JË«Ç/¥:.­Viº—J.Zµ¹´ºQãµ¥Õtê–V÷›´¸Vc>¸´óÁ¥ÕÀù i5ð5CZÝ@ýöVÏ›´º‘)ÞÒj`^*9)Åri5pé!­FþâÒjà”BZÝ ¹»I«çi5°Î/•œ”š¹´X烗JNZ º´8÷V§›´ù¬K«5…[Z ŒùàÒjàÞCZ ¬R]/•œ´Zti5p¾I«Ói50æƒK«Û¤TÐ¥ÕšÉ-­î3¤ÕÀ­‡´¸Þ¤ÕÀÈg]Z ŒùàÒjàk†´ºMJ%]Z lRkÆïl”b{©$4£7i5p!­F>ëÒjà\BZ ¬Ò`ã Û¤TÔ¥ÕÖ-­nÜÚÒj`•&{©ä¤TÕ¥ÕÀe†´X¥Ï^*9)…ui5°I§¿Ø¾ºK«¡Ñ7i5w»BZ=)ÕÝÒêI)ï–VOJ}·´zJýTrJǽTrfJ˽TrRj¼¥Õ“Rä-­ž&UöRÉiRf/•œZÒê©!­žJ\‡´zn)µÅï–Z3ß™&ÅöRÉiRm/•œú iõÔºÀVO- iõÔÊÀVOJÉ·´zRj¾¥Õ“Rô-­æ~jH«§a…´zê‹,¤ÕSâ!­ž”Êoiõ¤”~K«¥ö[Z=(ÅßÒê¡U‚!­Z&Òê¡u‚!­´ØÒêA«€-­´ØÒêA«-­J<‡´šÛÚ!­Jä…´zÐê`K«­¶´zÐ*aK«­¶´zhÍ`H«‡ †´zhÕ`H«¹cÒêA«‡-­´‚ØÒêA«ˆ-­ú" iõè”ztJ{]Z=´z0¤ÕƒV[Z=hu±¥ÕƒV[Z=h•±¥Õ£SšìÒêÑ)]viõP¢ ¤Õ|p…´zÐÊcK«­>¶´zÐ dK«G£ÔÖ¥Õ£QŠëÒêÑ(Õuiõ É–VZ•liõ •É–V³&$¤Õ£RJìÒêQ)5viõ¨”"»´zÐjeK«­X¶´zЪeK«­\¶´z—J3~Gq)5ãw—Z7ߤØÃÇ¿îÒêA+š-­´ªÙÒê‘)wi5KsBZ=2¥ä.­™Rs—VZéliõ ÕΖVZñliõ UÏ–VD)¼K«G¢TÞ¥Õ#QJïÒê‘¥ÕC†!­:QCZ=T“Òê¡DaH«™¸„´zh½aH«‡†´z¨URH«‡Z)…´z¨ÕRH«‡†´ºkÕaH«»–†´š‰YH«YüÒê®/ºVwµ’ iu×GH«»†´ºkõaH«»–†´º«ÕUH«»Za…´šum!­îZ‚Òê®5ˆ!­îú` iu×…]H«»N´Vwµú iuW+°Vwµ iu×RÄVw­E iu×bÄVwµ* iuïœ.­îóÁ¥Õ\„´šå…!­îšX…´º+1Òê®E‰!­îóÁ¥Õ½q>¸´º«Õ[H«{£Ù¥Õ½QšêÒêÞ(]uiuo”¶º´º7J_]ZÝ¥±.­î•ÒY—V÷êRk®W¸0 iu¯”溴ºWJw]ZÝ+¥½.­î•Ò_—V÷Ji°K«{¡tØ¥Õ½PZìÒê^(=vi5ž!­fkH«{¡´Ù¥Õ½PúìÒê^(viu/”N»´ºçGiuÏ”^»´ºgJ³]ZÝ3¥Û.­fmnH«».TBZÝ3¥á.­î™Òq—V÷Di¹K«{¢ôÜ¥Õ=q>¸´º'ΗV÷ÄùàÒêž(}wiuO”Æ»´º'Jç]ZÝ/Jë]ZÝ/—Z[ü^œ.­&ÑÒj–H‡´º_”þ»´º_´p¾°k"Òê¦VŸ!­njÒê¦V¡!­nZÊÒꦵŒ!­nZÌÒê¦ÕŒ!­nJ쇴ºéB#¤ÕM?xH«›&n!­&ñÒê¦/ÂV7-j iuS«ÖV7µr iuS«×V7•"…´ºiecH«›–6†´ºi=]H«Y„Òê¦DEH«›>8CZÝÔê6¤ÕM'bH«›V8†´ºi‰cH«›Ö8†´º©oH«›Zõ†´ºiVH«›Ö9†´ºi¡cH«›ó!­nºPi5‰ÎV·ÆùàÒêÖ8œ/lú" iuÓzÇV7-x iuÓŠÇV·ÊùàÒêV9œ/$‘ÒêV¥Õ­ºôºùø*Åu¾°UJu]ZÝ ¥¼Î¶B©¯ó…­P ìÒê¦VÔ!­n…Rbç [¡ÔØ¥Õ­PŠì|a+”*;_Ø2¥Ì.­n™Rgç ©á i5‰õV·L)µó…-Sjí|aË”b»´ºeJµ/l‰Rnç [¢ÔÛ¥Õ-Q î|aK”Š;_Ø¥äÎRHÒê–(=v¾°%J“/l‰Òeç ÛE©»ó…ÔT†´º]”Ê;_Ø.Jé/l×£´º].½>¾I³—å›´ºjidH««n<†´ššÑVs#'¤Õuq>8_Xçƒó…uq>8_XµB2¤ÕUK$CZ]µF2¤ÕU‹$CZ]U-ÒjnT…´šRµVW-” iuÕ…HH««~1!­®šØ…´ºj+‚VWmUÒꪭ BZ]µ^2¤ÕUë%CZ]µ^2¤ÕUë%CZ]µ”4¤ÕU×VS£Òjn†´šŠÁVW}°†´ºj½dH««¶’iuÕV!­®ÚŠ"¤ÕUë%CZ]µ^2¤ÕUë%CZM1dH««¾8BZ]uáÒêZ9œ/¬•óÁ¥Õü`!­®Z/Òêªõ’!­®Z/ÒêZ9œ/¬•óÁùÂZ8œ/¬Å¥Ö&­.”boiu¡T{K«5ñ¼I«•8»I«µUÊMZ­­TnÒj}0Þ¤ÕZ/y“Vk½äMZ­õ’7iµ¶z¹I«U9s“V+1x“Vk½äMZ­…Y¿ ­¶Ÿ˜´úé8àéé°ô¸žîÿþøÍw?óÓ{olvÄ~zR+¶†‘ïçóý'…RL«Ôe@cY¡op4_„þûbÕš<בŽÍ£í'ê·¾ÏÕGì[‘íÛ~o×Ås®û›¿–ãÕŸ6í2å?ߢEÃjc?A®;•90„¿§¶î-~Ï&v®#›GÛOô¼ÏÕrÙ=¶"=Úÿ6ï×Ås®Û> ÷i—v!û|ûûR/• /]‹ªûl3 ‹{êþ[•jûy:*åÔÞÏÓ7¼ª€‡v"èo›wx«×j—O~4³Lóóý'šŸÃ{pMö"©CÄ?FÇÿ½öñséØ<Ú~ÒÙ[ÚÎUÊb­ˆ7Îþ6ï×Ås®›ŸeS”ÊD|¾ÿDm0”2%¥†ŽËÖ›‚H§±QÊþ{ó–´s éØ<Ú~¢ûüû\58Ùc+úÆ®dÖø½]—{¿nû,¥yz(¯³Ï÷Ÿè>·:Ÿ0]ƒô¶¨˜Àxxú¦¿§¯‘ŸkHÇæÑöÊ‹ýÜ‹Òk[Ñ7v%sÄïíºìÜûu{¸“ê.º4ÿ|ÿ‰¾¼´ë»vÈ#B{p G’Ö•COM?×P÷‡Ñþ‰òÝû\Mk÷ØŠx´ýmû½]—{¿n»/K;œ!mÌööŸh>¥ÛúLë0k¨2¤ßÝâkÔ¯lÉ>׎ͣí'º–Ûçj&±ÇVô]Éšñ{».;÷~ÝöYèÊÝç˜ÿD×nº„®œ¥è#ÎÞ$Dú÷hjá¿·Þpv®£ºç˜ÿDy£}®®ZöØyÏ1ÿÛö{».žûpÝþf§ŸÙý¾ìŸh¥:©s»èJú ÔÍÃé÷EƯø=û&ø¹†ºß—ýæ}®Vߗý·í÷v]vîýºí¾t]ãg*j>ߢúV¥b§.ÍÑ“žúhCü¦]èøûAÏ;בŽÍ'“ý„Ž~.{©ûØŠ8öØ4ËŠë²sï×ÍÏ¢²ÕK~¾ý@Wã&bÊ¡¨¢føFU Ô«Vö~^3ÅròCù%Oý<]€ú¨ xhv vßWcçÝ®Õn…ULí[ôùþÝŽÔ*N+x:X»¢’Wüž5˜v®#›GÛO´bŸKO[Ñ7v%+ïßûuñ܇ëÆgùû§ýð×?þþ¿ÿúé7?—ˆ¾L9ÓÓßÊÿþò„ùïØU¹ÀÄDàç§ÎzBÍnªC$Xê0²0èáÚ8¼°4)ߌ:Ëy÷E¼p¿ìøqÀ¯¿²¯é›ÿ|ý¯+_úÓW|ÒÀkÿ£P[Ø'úæ}õùé <æÚ—O_ýåÃß|¥ƒÿâÙSß¼÷³_2^â²TºŸüúsÙÈ$ÎM¯=³³ ;Î̯>sêÖhœYýL”´âÈøÓ³,2¾] Ñ>;¶øa\ê½åð˜ñ²‹?jÿ].%J~øøôOß½êv~†t=~bµ\•"ËEð1~ûoß}÷ñÓÓß}úþ'ÿ@ÿáÿI4v endstream endobj 2482 0 obj << /Type /ObjStm /N 100 /First 969 /Length 2333 /Filter /FlateDecode >> stream xÚÅZKs¹¾ëWà¸:,€Æ[ÊVùíº*›¸d§òPù0&G2cŠÃ ‡¶÷ßçkPC“+r=¤¨ÍÁtÏ ÑÝèwcd\ÒB ã ð4"~Ž‚rfÀ KIxo„óåE^;AXðž·f-|æ½™Dpæ €!%~cE´Ž'b*È^$SƒH‘9å(2E’ÈÁ2‡ Hkðò¤‘)\ÁÑ âÉ rD½&A>1ž6‚"“õÚB²XVñ£m¼0” C@±V3W/ÇOŒ!¿'HmbJÓ ü¤²“°!EæEøɆé²ü9$†’°šÊŽ (^€ˆY{e²`¡gñ;–•€aƒ/¯< \6à]tÌÂD@¬To°5á`Ñ8Ð*Añ6—ãCW6G>duš >,§‹„MŽ"s°0·aûz‹UWÔd, íŠp†rXk•ÃB8EÙ›…Ë9ƒ‡ƒåÉ–U' ¡eˆ„·…/üÉ»b ÇþÃÆöÎ X[õ‘õë*õx -8¦Ç :%ððQ㙞÷"؈GØ.°xµùb(:°ÈI3‰ žb±N€™c±N`Ç,Ö£…äù>ˆÙ |ˆ"jÇt¡­H‘… L…JÑ­xYÓÆC1gÑ°z¢ø8;’‹à-Ä™~«—Œ+ï Ìï öƒÂ5S`Ãø6Ü-3dEJÐ 'R^­‚¢æìââL½×`‹x¾êŸÿú7G‘´ÖQK‚SÏ–Ó黳ü¶öÒëöe3ëÄÅ…P—0ˆƒñʶK¨–ÃkõÀ΂4q¿RÔÿàÙµty=õºmFoêN\ õúå¥Poë/X³zûë¼ÆBu[Ÿ©`[Ϻg€ÄûÏÔU½h–í¨^¬2Ey÷K=žTÏ›/âš™Ø+f󌪻9·äâ³Ù¬µëUbcy~ö œ©7Ë÷]yþËdöñL=oÚqÝâúúY½R/®©<°<#œÁ$\ŽB”1`}.qZŠ2ù¼gE}o„ú©yÛ¨ÿ»«›™œ·“Y'»êý´>gÝlѱ6ȳmóÒ#™>´ä&roɽ¤lžÛF`»§Á6A"šbû¤%ç²aØð©á²Ã°­É2Å¡´OÒ=¤Ñ$5RÎ0lò; ÿ5(·âp+B¥ºŒœì£"Ô=ˆP®}ÇG¨+ò”’_.Ø÷€éÛ®ÖÈ¡â)#(J =’ µŠœ“žõ*£ÛèŸFÕt´â”쀵)In/¾%F{j1’Ô(Å6h™ £Ì°’$QûöŠÑÌ»I3[œN3hnÈ ‡ÀmE°’¸KDâô™ö r7YŒäÕ¸Z|x™L’AŽOFÏ]Ç2ê7’xf¯L‹å|ÞÖ‹Åëjô1ö¦«Ún9ÿoðtRù¬äæm®Ô†Ûtƒ–Ñ:!y÷Ñ ä|†î`O‚#¡K"´0îwüú™v &ZÐZô2—9ÃI87z\©ùÑ{ÖËý±Ê©Ô³‹‹Â@=1cõFýýêÿûîC×Í?(5j+DÞ÷ó¶ùè˦½Uó•mÿ„¥_›ÙùÉLªQgÑuh /ê(÷ÎdIÚt¬A¹&ñ$6¸ÙB^×ôìeÀØ1ÛáÆ? 6r”‹ô$اäÿb{ȇÊi©-ÅÖAòdqp¿ÕìëŽîŒ{Ø#stÀsôªÈ:e‘·H…Æò}R5§n”YŒä˜6=R¦ùcÒP¢†ùçGMKl+é)ž‡>þ,ïꮺi¶’ÑùobÝØbÝì˜ 1 K¿kÞÜ2‰qi 6çfÚÕíïÆFÔ) ÄÆ ¿'m0]‡b/cl÷·BùÑkýÃèµöøèµ}?oÍI£åO[n¸ F¬\†q¾32G»¿5¾«är69]/ã4\•ïГ[ *†d¹‡‚ £Pïd\uò}5»­ÛnÜ6Ÿg £µ{P‘­; J7‘7+›éqým¼Ÿ½Ôe⋶~Ac¡ßB˜TbÜ5…n9,Óê±ø2.œp:uö¡ï:z„ïæ{ßuú”¾ë¸Ñ%_šNÇתèè T‡Ê «¥?Î{yrÒ½dÊ2ÁÖz™yJ€ûD¤¸ 3Ãüõà,7Ì·œn·ŸïZq‡kùÃ\kKUáPU ¼”ÝÒΦڶTµß›‘»“§¨'ÞñÀZ¹yØHOÒd}¾¤wœ/±ŽxÒèpÈV)•?•&‡RDbòÂ4·wç!bxs‚LÇ©ÀwDd© ÃÅXùB~zÇÇžòùq^Òb›^’ãñ^’ú‰©ÿØuô믎©ÿxÿa@ë˜ú!0ëè¯4rO9÷”sO9÷”sØvÍm]q2{YuµøîåF§“! ”µ=Ç›ñÞµ·“nŠ•+ñS[Í?LF ñ·e7_vçEÕãå¨nyÕI'éüžWïηuÎFÞðH~Igê¯Õ¯8gµ¨‹#¨Ÿë駺›Œª3õçÙ¨Of·«?IÙÈ5hÚ4¿ÞLÇ{_«W/^ðž1¿.J|·Á­ß³¢»¦ þ1™=›-&_—_Nnnj8ûÑ5> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 2577 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/plots-dark.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 2607 0 R /BBox [0 0 720 308] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 2608 0 R/F3 2609 0 R>> /ExtGState << >>/ColorSpace << /sRGB 2610 0 R >>>> /Length 19473 /Filter /FlateDecode >> stream xœí½M“-Çq,¸¿¿¢7ó °ylU~g.i⛑Ç$6²g’àò‘Ô½€ €fÌæ×OxxDFlê–6³è/áÝUÙuNeTEz†{¤§¿yJOyú—õãïÿû¯Ÿ¾ùñÃõœ®ütÿ÷Ço¾ûp=]O#_Ï×õT®ùÜÆÓŸþøáïžþåIÈßô〿úNIë9_Ouêoszî×SÎù9íƒn=_õéþ/þ:ý›?ü̯ÿð›ÿC~:ÚÓÿóáþI.òÛééoäùôb~÷|ÌçÙý§ü\ªüíO¿¶_§«<·ú ¿Ïó9—_ø}ËÏ+ýÂïÇÀ/þÍßç+?çõ ¿ÏýyŸûýõ¼êzºÿ‹¯ÄΪíY~ðù©ÔëynüéééûK³['ÿðëËMþ{ÙÍúüdðñÌó/ê y¸ ¹ /B.ôó‡\ósoO=?_éé“ÀËáo?ùoÛ|îSàŸäSýú«õÛ,só«?>õ=Áô…¹â_9C¾ô¯>?ýÿÿú»o¿ÿü«¿þã¿” øôÅÇo~úñéwßûñÓ—ÿôôÕß|øë¯0ï3é羶_žIùZÏ劯f”çÒ ê7s`°à^ð€’Ÿg‰ ÞøÙoÿ~ÀýÆ5Äøæ"š~îNýò+P%Pä›Èøf¿_µ/Ÿ¾ú ¾Á÷®`–®‡“óëOné¹æÛÉéÕg‰ŠûŸ­¯>S"I.8õçÂ3ÿçÿùé÷_ÿôçïŸþñ‹OßÿOù¾þôñ¿ôßð4ûN2‰´4Ÿf{¾ n°‰œGÈ`”ç•q€Áþœª`§øo”ù<®§5žËˆ9Døp@Î]§)á|®“ü;3ìaD‰þ¾ž×ôó7ÔÑ?=ÌèϵÊXòP^Ï#i$Ü Ãö-Ø!ß?¾bù§Q~–bø~HnˆÐ$·ïÒO*Ïɱ?"¯áÇwÜ®ÅÎòCß) “;•ú\w`WLJ¼ ð­nÏ-Ýžõvˆãû! ñ›jU‘™3?Òž{±ïE±<”›bgíC ßIíyÊÚ ZB©8~þðŸ¹ÒU‘§ëØÿÛ×\Þ`_ü$ü‡ýéOý¯}’oEÇoÏ™ëßž\×Û¾ å¡ÁO÷Å«óldQ9Éÿ ¼ 4Ñž¯~TÙ'ùVWãÉo¸dž+á^xn^o½hÉò:£¤½~Ybß"W÷8ùõwÈþ®Dg™öe½zúžÉ&åÕqìçJ°]¼K=¿ñóæKÞjœoø³ö žX¤èŸ}ë©ö-¿ú­’$»™IãÀ¾ä>ß0'³$ÊCCÁ¢¨®×`þé[4´«¾!‚ù·ñB¼’]úzý¬¶³#"F¯Ÿ^vés¼ýk»E…,'^Ìvö-0Êë_ü~vDF»Ê®œ<ÀÑM†‡Íïúú»Ì+¾Gý3ÛÎШo8—Qß“ö‡#,Òëï¯ýáŠ2^ÿÔ¶?,1aO¢úúh´?‘ßð ãF<ØWÞz‹oáð–YÉsã…ñ†¿;&Ö÷7Ƙ¯§åþÜëýQÊë¿.þéÛ#Isßø·Þox‚ØÙ·7†¬bßzéoŒõúÓ±ªH÷Ðèox|Ù•ß^×xóÙ·ÆxÃëÆ>÷í…‘ßtéú¹ï/ŒëÍ'K„Øwž_¿Üö“o/Œ×¿ªòÊ`ï‚£¸,ÿp=·)Ë™¼ÿôÆ‘6CñEzn#•ñ_åˆVÞ:Ò¸ðfÂEÉP’ò®7\v0Tjª¾ýª6!C Æ\øª®ëÍCmòA¾«K?àÔ¡R}óP›pøBIQêšø€ííW$ÃÐ>  õö«Ú ÃÊñáf|ÀÜÞ<Ô&ð«ÞAý€%½u¨wpawߕΫ•ß<Ô&âk×諭yŠÞh‚ O|À¢ßÕ›Cpïx~¡›:¸5b.€žMö ºV0Ü„Ÿ6ìÏ£(äÁÿôôGùÑ¿:ö|>ënRž?m8ñêþ´6¨ç×.¨ïGpÖ6üi㤛vŸöñŽu ùÆ 3G¹2F©àp  ,y-±o˜×Qu[£è‡=hݱ3ü)p×]š8Þ0¿‹„‰æà—Ù°óbøSà©[q¼a#OlÐ!Œ'?‹>° Ú)œnŽÛñŽù},<Ä¿U¯£äã†?m< xìOûxÇü>dܬ¯Py |Ök—ãOîŸâxü<|4b“îì•‚'¦áO}zøñ÷ùQtË¡Ú³ÝÛœ ¬›çŸâxÃþÊÁˆÑ–tŒšÆ𧱷ì;ÅñŽý;Eeƒ /ÓßiºáO«n-Äñ†1†Õ–dîWX•aì"”—Fä‘r”ÿå¿þô§ïøÇ/~üÇ/Ÿ¾þîÛ§ÿñåÓsùõ å/ =u·3ƾïmÿÃjÿËÓoþ÷ǧÏ/ †÷µ¬×1ÝûÐÁ¾úõÿúê“ ^3'ÿêÕ'·¥ÐÿØ_žš¨üÿ2ö·ä ì Û\Î÷wðýß|óçï¾þéã·¯¾IÁÆj¾ÓñÝO?|)Óúé‹ïjTnçþlAÕk <ìRÒõx-Ä`äÈþøÓÓß~úþ§{¡CÁŽý®t¸2*&‹»ì"ÿslo¾ñx½ [êˆy=´×ÕhÜ_¥1̯Æí*°1¥Ø–‹DÙ×?|ûô×?üðýoûþÚµ_àkèþs#örËúÆöKnºÙ®¡—G­Z!~8ä*V1f‡ßI’AäÛ!†¹ûqñý^Ý>âv±ÿÉéRÆÂ6x+‘½ýìŠéÎMW¶Ç:à­'ã5ê'ÿìBïNÎ׎I™Ao=‰•g÷×dë<Ë?_=ý–ŽK_ƒ/çßžvÄÏL‹=¹ü—“kOQ;äg¦èžè~Èm¢ßæVÑÏÿbnU.'‘ÊßP(½èÊÿ“BùP5UD½[žUaBf[†)DÍèxÎàä¨,Œ$”WªÀ‘ ¢@t`+P2Ì2™kÊŸX|dI³Š>e3¾GTi-ƒòZAº’ J"À’ÂÚk5(ƒìÝ Jé–Þ;…3=Õ‹i dûÕ2Ó*鶤uK?ƒ’¢ø©”['puƒ’«JR•¦Ayª ,Ë \€Àî# ˆJ-…KæoFµ`Å*O`îå[X§AùÂ+³0…ò'ªÖçJŠ(ùr*»V`Yn·Àæ#Ë÷Põb—Vc.ŽÜ ËZ 'ƒ’ûcQ ¢2³‚·"”Ë8»A¹Ý• PnwÕÕ¡Üîʲ.…kŽÜµ(TÙB¹¬¢ºAy« ,Ó Ünm”Û-p&ƒò-U%ôgÌ>²ü •#ëÄ®ƒeº€r+Q¶ ²ö5%ƒ¸ÝCˆÛ=µÚJa×*Öá#­z]>²Ü¬ºƒ€—'Ðbp"A¯‹Ë8@Üîå18q»åQh18ñ6]´Êíh—Ç ^@»<'ö\.Ž¼˜x .Ünvƒò- lÓ üÿePþD˃ [`ö‘åV ¬>òl€ÝG–Û-pêÈE£•À„r»ñ~Keê lÅ Ü,£”ËkÅb%²ò‰ªÅ @¹Ý5ˆ åv d ‚t쀌Aì]-<Õ¯fP.ëßnP¦}kƒ%Ñ8.ƒ’€ \>²|K²2I>²ü¼éö Ve d b=ÖƒåV6}ñâÕ3,±VÌ€ŒA¬õë 4BÜn[xâvO‹AY»ÊÍX.ƒI Æ j.µF1(° ¥cšAÜîe1Xt9Þ–Å @Üî…'” 8}d™öÈœ9²Ü­ÏÍ <·ûe1(Pn·@Æ`QÎBຠÊíîÉb,I,>²ÜÊ®·†P.^ c°h‰g76Pnw×W ¡ÜnŒAò w£Råf œÍ \ž,3.ÕþÅbP ¼ã6ŽÜñTç%¡|‡ƒå¬^¹&”Û-1X@>2ñ^n€ÓG–LLÖ\—,O*ŒA¼¦`måvw])Ê÷/ÐbpàVöŽ[C(ß;95@Éz÷x >²Üî®BÜîá18õvAÕ™tãB%(Z ê2¼OÁ‰§zŸ–` H€ÕGÆ힃:W2Á@z —±<•ÉÀæL3(­/K0˜-´\¸Ýãò\¸Ý³ äò\¸•ƒÈ%  ’3Œd1(PÞ€ƒUùÒ‘,Á@¦QƒUǸ|d¹Ý#“Š\JÆ0Áædåf.ƒòT8³AyŽb1ˆ´d2Êí™6 ÊÝØ}d¹Ñ£X "i‘˨xYJ¶ 1(yˆÄ¦@Æ`Õ7‚À1 Ê÷/1ˆ”F†jƒU/^`Í%gÍbP ¼NYžù£#¨ ¾áÑ-)È¬Ê Ù …@Æ Ò!¹Œa1®qYžc›ŒÛ=,%áÁížøò q»§%‹j³ƒÈ2 c°*U åÖ2(ïGYë$YfãXƒ¨ÿ¿™` ³Ê€ŒAˆ$* c‰Öxš—%جY€ŒAæ]ó²d¼Àé#˘3Y V]æÌ>²ÜnL0•e@Æ @ùà`\³AyŽÍl †ÀªÕ€ŒAr»g¶¬zwy*­ùÈØ/ƒÈèT£êûQ ÅàÀlh18ðýÏj †@ù‹³z ÜnÍG–™Õ’|’3Ìê18ñÌŸÍcpš–…I~Õwëlƒ·[ Åà´ &ùU§Àì#U±TYr†Ù-É—ôïÒm ‹Á…¹:‡ÇàÒÛ=,ɈÛ=<•4h1¸3\>²¼çô\Z±9-›>ç´$+ð ÈlºŸ5—Å`ÓÝ Lò™… d ”œAàð‘å)'pùÈ2æº,‘£@Æ`SªZ “ü¦ì·@&HYëÓJƒ”{¬d1È v%K0¸ °’Å jý3àô‘åzV¶£©Nfe‹AP+[ 6ݼ^Ù ¤»1ØXÀZ,‘ýÀê#Ëí9ä#ËíȤî…Ûù„’3¬j1Ø4ÓÈ(q½ª%H•3 cP KA’,W˲ZB¹Ý«Y J2|ic‰´î”1Áh*€®)”»³ºÅ`ÓëÈ$Ÿi¶Àé#Ëí^Ãb°é:š(Š©a1(‰tRýcIxd’/·{Z "'AM÷ï˜ä#EO€ÓG–œa-‹Adì I~Ó·ÉZƒMI’µ,‘À'@&ùÐT`§ÿ² dBÌ( VpóÁ•º,¯¬˜ˆ”‚¯d©¾àÔ[(ªžØbq`*3ÛÜŠr{º*HÞãþ||™óÀ·Ø"râæC8Ìœ_pnŠ™p`!1),^†…Æ•º%•®j9–UqöñgW\}|–®jiGÓ!°…æB*NÍbSs9`f%—‚-:¹E(ØÂSÅuÀËÇŸ¯{€jÉwºœ ëÜÚÌüƒ’-`Æh¿¨¾s6 K˜ª˜)H¿8œãšF·‰}|ò®ËrìD1R»¾ªXõ ÅLDckörVL°Î§Å°*,ð.†u>81†…ÑTÜ}üÅ]!. P½F5!C¶ëk˜1Û•ž檠k& ̨ÜXçÍ°Åb*ë6xòñ·Å‹ñ\rŠ¬Sºšœ#“%“n«;I†õVQÌàŒùœ&ëšÎ3|;©úäDVd¸gʺ>|‹­Þä\™,»0’“e‚1’³eX´a<§Ëצ˜ë¬â†bÆo×"5àéã£è79e&ó!9gÖ•™füvMB€¹ZèÔm¦f©J×<:%çÍzã6“gX vÅÌV°…7Oó!9w& <Öne Ξ ÎC1ã·S(˜9 –ø|N u ,àâãë|˜–¶ôÎùàZïœN¢uÍ~·¨‰QšœF\ºb‹ß‰Ìä¥Z 8“&ó!;•†E)K2š¿X oñ;*Š-†¡¤GÞ —¢ØâWWÀ¿Êns%ѵ€N¥¹>þÌŠ³0émà… ¶ø]ZV‘Vëkëx/ØÙ‰µ®K `‹ß…EKL||ù.áó9¹6”ÐæªbhîÌøÅzy(füÝ%OÙ ¶¡´:0ãwXݨSl‚GW<||F²“lXSãó9Ë&ó!;Í6Xª’gz#€¿C×0¨µç cèƒ8ûø£(®>þlŠ»¯óaX†32çƒÓm‚u>8ß6´  ˜IŽ`”ãdgÜ ÔŠ¿C÷t $H>¾Î'ÝFæ|pÖm·e©ÎÐÌÅ Œß¡7˜ñ;(í¡: CDTœzÃú(^>>æCI–ï€H¾É \©Õvú AWÌ|Gpæ¦4ãwèÄA¹ãwè ˜ùΨ^ Ü}üÁr§éã#«Éñ•Síø4Œü¥8š¡)f¾#¸ Ōߡ P¬3~A<$ÅÅÇÇ|(NƉ芧ü¥4[† %Ó€¿Cóf`ƯàBm;W"‚µ<Ë)9“åZ—aä/ÅI9ÁÈ_Š³r 3šbÆïº][œ—¿ÏçÄÜœÎÌÁùàÔ®Øâ׊ œœ#œ}|ä³Åé9p"U±Åïä|p‚nLÎgèÀ’$Å¿Só—âh“¦xøøÈg«³täQ€¹<š3ßú‡Ru¢nhÖlñ»(ªH–ï ]¸[ü.Í_ª“uà^ªâáãc>T§ë†º@¤ê|ؘK1óÁÈ_ª3v‚‘¿T§ì¦fªÅò©«_`ÆïÔpõñ1È^c>Tçí¦r(ícü‚Ò¹3ßa=0ã•ØµZ¾ÇÔBàìãOª’«¿X(Ì|gRþQÀ›úÅÀ¸ñ;3K »å;S¹x`Æ/ˆ¢B£‡ló¡v[¯€9šjá||ä/Õy Ëw–á_烓š‘6-ß™Zþ lñKepsîO0òY.Û‰u>8û7çƒÓsq>XÉ*0ò—æ ©?`ÆïÒDeÁ\¯€ ´2áa¸P Æø\YVÌõ ØAèoœŒü¥;¸hZÓŒü¥;¸T¦Ìø]šÈCÄÅõÊÒ@fü.]¸3~—¾€¹^Y‰z ç—nD¢81ùøÈg»3‚+{ñ"ã$dVÌøŒùÐ+93~#éN ¢ >)>>ò—îÄàÒD •›ÉÇÇ|èN .Ýf¾#X•âN.](§îìàRc-`æ;‚‘¿tç#ŸíN‚ìÌŠ§ùÐ"$û ÌøE öRÌ|gi`3~—.´¿K_d©OËw ÂŠ‹¯óÁ™B0¦I1óøÎPÏÅø…Ú3~gj!™ï®ô¹`ü‚TÍ”¤$ØX&ùø˜ÃùBÁÈ_†ó…¤]™ï,]è3~—îÀ&ˆñ+óÁlƒc> ç ÁÌ&ÅÓÇGþ2²­W@ÕvÅÙÇw!Ž?4ÙÖ+ðá¡‘ů>ˆP’oñ«Ä0×+KwЀ-~•ž>>ò—á|!øÞ¦Øâwj>;œ/¼s½8)¶ø:†ó…‚‘¿ ç —Úñ7ùËp¾pi¢š†ó…$Óp¾pi1°ÅïÒù0œ/\JD[ü.Í_†ó…à•›âìã#ŸÎ Öù`|a».Îã u>Læ;ÀÈ_†ñ…ÀÈ_†ñ…ÀRAÍw€‘Ïã u>_¬óa1ßi,Ýî_«0€ç4Œü…i.1ò—i|!°Jâ/F>;/æ;À˜ÓøB`̇i|!ð¢|¸r|¸*'N†3Kâg1Œü…i'1òÙi|!0æÃ4¾óa²”Rñ¤Bqùø‹îY‰ãÊ™ ó`ä/ÓøBàlîZÓ0æì\¯7Zkådóa_Œüižüe_Ø.-LÓøB`ä³³q½Œù0/Æ|˜Æ7ÊaV3¬º7ã ‘¿Lã ‘¿Lã ‘ÏNã ‰ù4/Öù`|!°Îã ‘¿Lã ‘¿Lã ‘¿Lã ‘¿Lã ‘ÏNã ÛÕ9Œ/Öù`|!°Îã ‘¿Lã ‘¿Lã ‘¿Lã Õ”ÁøB`̇e|aÃF@SÜ.Øëb¾Œüe]¿Z@˜VòøÕ B`Íwõ×ÀÍÇÇ|XÉãW¿¨´2óvéÂØâW À¿ºPîÃ0ò—•=~µ,­âñ;)^4a0æÃ*¿SçÃ*¿ZM¼†aä/«züj=!°Å¯ª82®”^Yü*±¥öo>>æÃjÌw€‘¿¬æñ»ÜQŽñË `Íw€‘¿,ã ‘Ï.ã 1Vçz¸Ñ´Žñ+óa_Œü…¯Abä/Ëø–´¼˜ñËà9 ë|0¾Xçƒñ…À:Œ/Fþ²Œ/Fþ²Œ/Fþ²Œ/lIË ¿)s>_¬óÁøB`¨˜.ã !ºŒ/îUqõñ%Ѐ»/I+ü9¾–näËøBà”3~窘ñ›´âx ÃPñ\Æ÷D#aÅÕÇW×¾Ì|x Ōߤ CTÓ_ðÊð óàR3~“&ÀŒß¤Äðª†>Ÿñ…À3+.>þªŠÇo˜ÀŒß¤ˆù2¾XEøùp-Š¿©ÑôÈøBà>O,ñ'QÔÏøMºnÕpꊿIk§€¿©S0˜ï¨L‰2FÆ/6Ž¶Ì‘XçÃ`¾<—z12~“Ö#æËøBàTèÕ¸ gz7Zü·éñ;8×+À:–ǯ.ܵQñ슇¿àÏxyüja"°ÅïÔùŒ/Æ|H—ǯšJ[üjqbNƤ¸øø³(n>þjŠǧ¨%%_-‡lÅâwÑWÁøB`̇”=~µHØâW«s2¾ÒT<~—_&ã 6¾ªb]¯c>$ã 7Âà—ÉøÍZ«˜“ñ…À­(füfý¢€‡?ý6}|Ììgêû6«q0ã7«R˜ñ›µdQ=U»á‚ë1¾¸]Š¿9Q2Û-ßÉúEó!_¬óaX¾“u¡Ÿ“ñ…oÀŒß¬Ä0ó¬Å‹ð½`üBh²3~úbT_çƒñ…À«+füf­`„Ä—ùNÖF•égÃÅ$ÁÕ0<=Ó²|'Îã ;-K“ùÀÛH,‰HÎƶ¬•ŒjiZ ËD„9)ó¬J%`Æ/6þ’bÆ/„'E1×+YW57õñǤ“´¿è,ÍõJÖaÎÆÃK*_ظQ·S®W ?™Š¿‚1²ñ…ÀÖfã GS<}ü‰Ïg|!ðZŠ¹^ÉêV ÌøÍJl3~¹ÑÌõJÖêFØ'3~s§s¶ñ…À#+î>þ¬Š§ù/lؘœŠ¹^ÁÆ$-È-~µÈ1çîñ«UŽjQž ·¡Æº¿Zç\|ü™7_çð|'O·áñ;9¦Ç¯&*ÀÌw²‡9O_-w¶ø¸9/Ëw°ñ9g_çÃòø]œËò¬5À¿Zô¾Å¯V=3ßá@À¿Z—ËãW‰vsg"Æ|(ƶ¢/ `ÆoÑB/`æ;E‹¿E«U^Ÿ c>ÀɨÆ|(Æ6Ú¹çb|!0ò—’-ß)Z©Î¿ßäúÆ6³(ÅÖ+܈füâ›Êù¿Ø˜ôž†‘¿ã ‘¿ã =ƒ¹^)Z ™‹ñ…Ài*füâƒ^Š¹^áF.0ã×lŠñ…ÀÈ_Šñ…ÀÈ_Šñ…ÀÈ_Šñ…­hñ:0×+øbðùŒ/Öù`|!°Îã ‘¿ã ‘¿ã ‘¿ã ‘Ïã [1KTã u>_¬óÁøÂÆcµê¿ã ‘¿ã ‘Ïã 1ªñ…À˜õ²|ÍK1ã·h•¤z³OÃÈ_j²|§h$0ã—7 ˜ñ[táÜ}|̇j|!0æC5¾°ÑŽ˜ù%¥êi #©Æ#AÝ~3Œ|¶_ŒùP/Æ|¨Åò¢¶\/lEë%ájÂø-ú"f¾Sè¿]«Ç¯&®À¿ZmšYWOŒùP›ÇïÐùP›Ç¯ÖK3ß)Z/ lñ«õ’À¿Z/ ÷®W0‘†b‹_M|-~ubOùK¿ú Î>>ò—:l½Rt£Øâwq>8_ˆuŒç|!&bWlñ«õ’À¿Z/ <}|ä/Õù¢õ’ÀŒ_lÄÅ\¯Ô‹óÁùBªjsu¾ó*ê¾ «—…ó…U–ÀÍÇW©³ó…пdÅŒ_LôªæíŒ_(`:Íÿ/ØÍùªõ’jö^ #iÎ2€³|¶9_XõÁïÒëŸÁZÈu;>ëüˆñô?nOë'o×£õ“·ëÕúÉÛçÉ:?âófñ}è‹äö}iýäíûÔúÉÛ÷­Dæí~èBáv¿ çǾŸ…ócßïâó#ûøÈgö|©Z?ó©V¶ðñùVµ~2æ#÷>_Q˜Ðoó™ó½jýdÄCÕWÄKU")â©j¢ñFqrÄ# Ò-^øåÏ(lh·x¯Z?σªõ“ñ¼¨Z?Ï“ª KâyS5Ñ‹çÎñ¼b!D<Ïx¡ñ¼«ºçaÕúÉx^V­ŸŒç) %Òíy[µ¯B<«¶CˆçuÕúÉxžW­ŸŒç}ÕúÉxT%â}Q烿Oêä|ð÷Mœþ>¢´:ÞW,¼ˆ÷YÕúÉxßU­ŸŒ÷!&Zº½/ëä|ð÷)&f»½oëb>ãï㺘Ïøûº.æ3þ>gáF¼ï‘T-TŠ|…×-Ÿ€´&ßòvy>Ãøm—ç3ÌWÚõ˜Ï Ó-ßió[χø‘/µ‹ù­çS-1Ÿñ|«%æ3žÑê+ò5 Ã#ŸÃƒhÞò½ÆNA;l‰ù­ç‹ÖUcç“-1¿õ|³e·Ÿb>Ú2ó[ÏW[f~ëùlËÌo=ße¡IäÃ|G¾Ü2ó[ϧ[f~ëùv+Ìo=‡èfÞòu(Ò¯[>ß çƒçû­¸=8×­0¿õõB+Ìo}=Ñ ó[_o´ÊüÖ×#­r>øz¥U_ïp=Óêãz‡…-±jZ?륦õ“±žjÚ°%Ö[Mû¬Äz¬©ûC¬×š“±žkZ?뽦õ“±daL¬›n<Åz²i!X¬7›š@Äz´© D¬W›ÖOÆz¶iýd¬w›ÖOÆz¸iýd¬—›:üÅzº©D¬·›C±oZ?ëõ¦Dh¬ç›^¬÷)Ê>  6wq¾zœqãšzBßд~2øˆ¦õ“ÁW4­Ÿ >£Mö—q¾£Ñfó!M7‚/a!Oð)mr>8ßÒ”ˆ >¦é‹;øš¦õ“Áç Ð§ÝøèqÆj‹óÁù¢¶8œOjZ?|SÓúÉࣚÖO_Õ51 >«_äkïb·½àÃh)| ‡‚Oëù9çÛúåüÜôñW»ñu(,7>¯'òµÎ÷õä>¸ä{"?ç|a§WÛæ{"_ë|cOäkì‰|­ó•=“¯u>³gòµÎwv-Ü>”^Á—öL¾ÖùÔžÉ×:ߊ¥qãc¡Ç¹óµ½¯u>·òµÎ÷öB¾Öùà^È×:_LC„à“Yè|sg£ÍG÷B¾Öùê^È×:ŸÝ+ùZç»{%_ë|x¯äk/ï•|­óé½r>8ßÎB©àã{uþ~øøÊ×:ŸßùZçû{#_ëû½‘¯õýèqîû ½q>ø~Coœ¾ѵ~2ö+ºÖOÆ~Fït5÷ýŽ®õ“±Òu"Ä~I×D6öShçû-,ÌŠý˜®Ÿ±_Óµ~2ösºÖOÆ~ô8÷ý èqúm¿¨«ÅDì'u­ŸŒý¦>èpëûQ]ë'c¿ªëÆiìgu}‘Ä~W×BØëê4ûe]­&b?>±ßÖ' á|?®kýdì×u­ŸŒý<èqúm¿¯ë‹2ö»5>õý®õ“±ŸØuáû4£ˆýH’Å~eW?•ØÏì‹óÁ÷;ÇÅùàû¡Cë'c¿thýd짭ŸŒýÖqцÔ÷c¡Çé·ýZ¢Å~î¸8|¿whâûÁC b¿xè‹ ö“GzÜo† FºíG£p­Üö«GbýïgÖOîýîÁúɽ>X?¹÷Ëë'÷~úȬ?ðýö‘Yàûñ´Òˆýú‘Yàûùƒõ“{¿äÝÁŽã³~r× ŒâõÌwPWnõ£xýãw¯?àze°~r×3 ÖOîz‡ÁúÉ]1X?¹ë%Feý×SŒÊú¯·•õ^A¨×¬ŸÜõƒõ“»Þc°~r׃ŒÆú¯A!^»Õ“ŒÆú¯7¬ŸÜõ(ƒõ“»^e°~r׳°P/ê]Fã|ðz˜AgÒ]/3:çƒ×Ó ÖOîz›ÁúÉ]3X?¹ëuë'w=ÏPOé¨÷óÁëFç|ðz¡¡ ³¨'¬ŸÜõFƒõ“»i°~r×+Ñ$ê™PxÝê†WD=ÔP犨—¬ŸÜõTƒõ“»Þj°~r×c ÖOîz­¡G=mL¢Þk¨9êÁë'w½Ø`ýä®'¬ŸÜõfƒõ“» …‡×­^m¨]mԳŎ ^ï6X?¹ëáë'w½Üdý䮧›¬ŸÜõvSLQ7µð<êõ¦ÚYD=ýS¢Þo²~r×NÖOîzAÚÑF=! ¯[½!ô8ùV8çƒó…“]Lw=ã´úIç §ÕO:_8wýdõñ­~’ñ;3çƒó…3s>8_hÍ0v½æ´úIç §ÕO:_8Y?¹ëA'ë'w½(»ÀE=édo×]o: ëi/œ¬ŸÜõª“õ“»žu²~r×»Òý%êaÙÖ4êe¡Ç¹×ÓÎêõ´Ìw&ë'½Xëi/œ¬Ÿôz^`­§u¾pVÖÓ:_H ™]/Ü8w=10ê'½Þ¸MÖOz=2p.Q¯ ŒúI¯g®#êÛ­x¤¨—¶úêìã£~Òë­Ûdý¤×ckcw«×Fý¤×s×[½7pëQÜgÔ‹7>v=90ê'½Þ¼MÖOz=:pQ¯œoõìÀ5E½;°Îç 'ë'½^x̨§o|ðízû6Y?éõøÀéV¯œ{Ôó[/$®W&ë']l-)²üÅõÀs„ÞxÝômêÂtë€1\Ï\z耑¿¸ù‹ë%w¶žxÞôÀ«‡£-ú_¸^8_¡çFþâz`ä/®n#ô"Àý¦'i´ïÙz“ÆíÖ£´Eÿ ׫«ÈùÂÅúI×»«Èô0Àí¦—î=ô4Àc†Þx]¡Çi‹õ“®×6=ó•]Äø]ùA¬óÁôBÍ[”8_¸èáz£ÆÄgë‘Ú*Ô9_¸ õ@ήB=é€K=p¡—jfUíz*àQBo<[è±»­×j«Ræ|áªÔ‡9_¸*õa¦V}˜ó…‹þ®'Fþâz3`Õ‡9_¸ØðÜõjmiýäÖ³[Û Æï¢ÿ…ëá€k½pk¡§î#ôv®G[Œ|Öõz zœz>`Õ :_¸ºë¿«ÓðÙùÂ¥õ“[OŒüÅõ†À£‡xÎÐ+6.$¶ž8åÐ;çzÈƆó[/ ŒüÅõ”ÀÈg]o ŒùàzL`Î.ú_¸ž³-­ŸÜzO`ä/®FþâzQàÚCO ÜfèMÇzÔFϦ­W^7=k[fGî|áÒúÉ­‡Öf^Î.­ŸÜzZàÖBo ÜGèqÇM¯ ŒüÅõ¼ýÒúÉ­÷N=ôÀÀy†^¸^¡'Æ|p½1p¿é‘;¢¶^XõíÆö+QßnzgàTB œ[è¥Ë=5p½é­Ußn|!°êÛM¯Ýi4µõÜDÂÖ{÷+SßnzpàœC/\nzrà:BoÜVèÑG ½:°éÛ—oúöÎñ•(ÙzxàtÓË—zz`Õ·_¬úvã û ½>ð¼BϼrèýûEÿ ÷N=ü€Ußn|!°êÛ/n%ü€Ußn|!°ùTÿîwЯæ~×eù‹û%#q?à2Ãoù¬û1÷~ Àãæç<{ø=#q?ˆ~iýäö‹Î%ü$:Û1n¿ `ík|!p»ùU›ÿÅòñ‘¿¸ßðêá‡Ñ/­ŸÜ~Àù ? à’Ão¸Þü8€[¿à>ÃÏù‹û}tym?N¢tû…#Ÿu?à|ó®)üH€[ ¿`ä/îgŒüÅýN€‘¿¸J¿´~rû¥tÁÛO8÷ð[.3üX€[ ¿`í!—<~õÁ¹ý^€‘Ϻ ðºùÅôĶXî'œKøÍ#q?`ä/îWܯð³9ün€çͧÓxlûåôDÿ ÷Ó6ÆoJôk2¾XýšŒ/V¿&ã ;ûym¿à™Âx•ð êÉšÅ_¬~Mæ7¬~MÆ×~EÀíægÜ{øc>¸0æƒû%õTè×d|!°ú5_¬~MæÇ|÷kn)üœ€{ ¿'àÑ XýšŒ/ì©Ò¯Éü¤:7‚¶ßp¾ùQ«_“ùUc>¸Ÿ°úw_¬~M懬~MÆ«_“ñ…=5ú5™ßVçF×öã6ÿ.ÆojîßUºaõk2¾x\ḟ\Oô¿p¿9à”Ãù‹ûÕ#q?;`ä/îwÜSøá~yÀ³…Ÿðá·×ý&Ý8çðëFþâ~~ÀÈgÝï¸ÍðWøÏ~‚ÀÈ_Üo°g­ŸÜ~„ÝÛ¯¸¤ð3®%ü[ ?Dà>Â/xÜüW¿Åžµ~rû1#q¿Fà<Ãϸ^á÷ÜrøA÷›_$0ò÷“VÿQã ;qûQ§~•À¹…Ÿ%0æƒû]×›&°ú_¬þ£Æ«ÿ¨ùm¯~œší×ÙYX±ý<ËÍ︎ðVÿQã ÕÔøB`ó­>¾ù&Ž_Ù«ÉøBàtó3VÿQã ÕÔøB`õ5¾¸ÏðSžWø­¯~¬=ÓÿÂýZS?W`õ5¾XýG/n%üb{ ?Y`ó£]>þݶçî~´Œß¬õ’Û϶³gûÝ—~¸ÀêGk|!°ÎóÓ7¿]àÙÃù‹ûõö<ØæÓøBà\ÂïXýh͸Žm ØÂLp¤m5 (³Äˆ%Èܦ¸3Çpc@yÄ»Å1 L7@¬a Øú6O” pke@¹{n¼ ¸Ê¶eîYK$Ý´¹3urKçÎJ17|¬iÛA¶²Í¢å0·’sMÊKÅm¨{ÑÒH7©Laa ˜û6¸î,€sûk@™/nŽ ˆÎÎF J¶áÆÚ€slÛmÀ¦Ü½¨Ã…[vÊ wCoÀÒ·Ý7 <‡Ý P^cn(³ÚÄgØŒ®¾MÈ{Q Ü-Êávn<`g¢Û›JZâæç€mlktÀÆé€3m[u@Ün3]ïE+ Ý’æöÆÿÂÜÞìÜanoì` +xÀÞ·Q<à˜ÛFp]Ûd¾}¤¸}çŠÈ êinÏ0,õnnHs{aQ 7ÆD/³Í„¹½1~½hÅ£[îÂÜÞ ùsØõwÖµº™?`Ûê°_» Ìíêœm7\c·èE ½ zX{@ô20–½ Œä”·›7>”œÃÛ"¢—1|€+Z*töqó† moÇX®Ý¬P² oåØÚnôØÇn8¢I z$Amwå &q»/Ái­+,µªÑ[WÊ·ä-{´½}7Åœs·ÌèE *¼¡`Ê»Ý`n»`»U |oä(Ï^oó(·Û›€Êíö!€kì"½ê†©·éäo¼ù ÌdoMXûn\Øænk8®ÝôpæÝPæ›7LéUë½  |‡ÞlPžùÞŠ¥³ ßµ¶¶Û¸ö±›¼¢!Žµ€”Yá b:»ÚyûÀÔwsÀÀ­ýzÓÎÿu6@ô¶€€è™è ¥€ÞRƒM>ÞŽpF³BÀÕw+ÃÞÔ,²g"“ü¦¥…Þ$PBÆ[(¶±,öh¿8ÓnθÊnÝØ›fÎÞرó¼í# Ü,o Xón Ø¢¡$`ï»Ý$ n·5£\i·ªìM‹ ½‘% „ª·¹”Çš7ÁìÜrõ™€-횀½ìöš€£í曀òÁ½5goZDè;SÞm=s4ý,}·DGTçÏš[ÞNP¦½7”G„·"DGTkTÚ›.Á¼içLö&§€ìˆÊ$¿ ëˆj1¨‰‡·O×n® 8ón½ ¸¢1koÚîÊÛ¶¢#ª3fŒMoù (áæ aåÑäíbå1îÍdG´š\i7¢íMÛ]y›ZÀÔv[@¹ÑÞâ°^».`Ë»=.`æ¹€rï¼µ. n·sdlïîmySÞM{;‰ÞÒ·³’ÂþÖh ØÓn 8Ên% 8Ûn4 ¸ÆnCÜ»–z“bÀœw c@ù¼Áqgˆ·?”ÛíÍ‘åv{ëdÀ™wce@y{ÛåÞ•Kñ¦Ì€Þ²°¤Ýа–Ýî°µÝ °Ý*p^»‘4àÊ»Ítïº'ëM¨e®#ÂþôôGôçÖ.Öñï½k·u½—Ø¿û½Çõ{ë÷×ï=®¾÷¸~ïqýÞãú2øÞãú½Çõ{ëOï=®ß{\¿÷¸~ïq­#¿÷¸~ïqýÞãú½Çõ§÷×ï=®ß{\¿÷¸~ïqýÞãú½Çµá÷×ï=®ß{\¿÷¸öñß{\¿÷¸~ïqýÞãÚÇïqýÞãú½Çõ{ëdø½Çõ{ë÷×ï=®/Ãï=®ß{\¿÷¸~ïq= ¿÷¸~ïqýÞãú½Çõ0üÞãú½Çõ{ë÷×Ýð{ë÷×ï=®ß{\ëûö½Çõ{ë÷×ÿ¿éqý‡Gmöç—ÊíC×ýBõ}hÂÅø¡'?Ôæ‡ýA©~èØ_¨Ü ü¡?ôó‡ºþÐÞ?(óÝþ Uÿ¡ù?¿€ÃMàð8œî>‡‹ÁKƒÃáðG8Üo…ÃyáÁ—ápmxáép8>~‡[Äá%q8M<øP./<,‡‹ÃÿâpÇ8¼3gßÕã…gÇáèqø}n ‡WÈá$røŒ<¸%/L“ÃýäðF9œS_•וÓå…cËáçr¸½^0‡SÌá#óà2sxмp¨9ükw›ÃûæpÆ9|s\uÏŽ<‡_ÏáæsxýN@‡OЃ‹Ðá1ôÂèð':Ü‹o£ÃùèðE:\“<•Ç¥~L‡[Óáåt8=>P‡KÔÝCêp˜zé?u¸SÞU‡³Õá{u¸b=xfŽZ/ü¶7®Ã«ëpò:|¾°°ÃAì…¿Øá>vx“Îe‡¯Ùázvx¢=8¦~j/ÜÖ/¶Ã©íðq;\Þ¸‡¸Ã?î…»Üá=w8Ó¾u‡«Ýáy÷àˆwøå½pÓ;¼ö'¾Ã§ïpñ;<þÀàḻÞ¯/œaßØÃUöðœ=i¿Ú7ÛÃëö…îá“{¸è»‡ïáÏûàÞ{xû¾pþ=|×àÃSøp>üˆ·â/ãÃéø…òá’|x(ˇÿòáÎüàÝ|8;¿ð}>\¡ÏèÃQúð›>ܨ¼ª'ë>ׇ öá‘}8hþÚ‡ûöƒ7÷áÜýÂ×ûpý><ÁÇðÃOüpð"?œÊ_ø˜.ç‡úá~ø§îê‡÷úÝ™ýðméê~x¾Žð‡_üá&xÍ?8Ñ>õ/\ìûÃÿðÇ?Üóoýçý×ÿ…kÿáé8þýÎvg;Çvg;‚—í Îvg»ƒ³ÂÙ.ál§p¶[xlÇp¶kxÙÎál÷p¶ƒ8ÛEœí$Îví(Îv/ÛYœí.Îvg»Œ³ÆÙnã±ÇÙ®ãe;³ÝÇÙälr¶9Û<¶#9Û•¼lgr¶;9Û¡œíRÎv*g»•³Ëc»–³ËËv/g;˜³]ÌÙNæl7s¶£ylWs¶³yÙîæl‡s¶Ë9ÛéœívÎv<ízÎv>?Óîçlt¶ :Û í†ÎvDíŠÎvF/ÛíÎvIg;¥³ÝÒÙŽél×ôØÎél÷ô²ÔÙ.êl'u¶›:ÛQíªÛYí®^¶Ã:Ûeí´Îv[g;®³]×c;¯³Ý×Ëv`g»°³ØÙnìlGv¶+{lgv¶;{Ùíl—v¶S;Û­íØÎvmg;·Çvog;¸—íâÎvrg»¹³ÝÙ®îlg÷Øîîl‡÷²]ÞÙNïl·w¶ã;ÛõíüÛýí_¶ <Û žíÏv„g»Â³ác»Ã³âËv‰g;ųÝâÙŽñl×x¶s|h÷x¶ƒü™v‘g;ɳÝäÙŽòlWy¶³<Û]>¶Ã<Ûe¾l§y¶Û<Ûqží:Ïvžg»ÏÇv g»Ð—íDÏv£g;Ò³]éÙÎôlwúØõl—ú²êÙnõlÇz¶k=Û¹ží^ÛÁžíb_¶“=ÛÍžíhÏvµg;Û³ÝíÙ÷±]îÙN÷e»Ý³ïÙ®÷lç{¶û=Û?¶ >Û ¿l7|¶#>ÛŸíŒÏvÇg;äÇvÉg;å—í–ÏvÌg»æ³óÙîùlýØ.úl'ý²ÝôÙŽúlW}¶³>Û]Ÿí°ÏvÙí´ÏvÛ/ÛqŸíºÏvÞg»ï³øÙ.üÞNül7þsíÈÏvåg;ó³ÝùÙýl—þØNýl·þ²ûÙ®ýlç~¶{?ÛÁŸíâÛÉŸíæ_¶£?ÛÕŸíìÏv÷e„´8·V§ÒêF Ä–V·¥5Y[Z ëÒêFMá–Vc>¸´¸÷V«T×K%'­]Z œoÒjà4BZ ŒùàÒê6)tiu£frK«û i5pë!­®7i50òY—Vc>¸´øš!­n“RI—V›Ôšñ;¥Ø^* ÍèMZ \GH«‘Ϻ´8—V«4ØøÂ6)uiu£†uK«·„¶´X¥É^*9)Uui5p™!­Vé³—JNJa]Z lÒiÆ/¶¯îÒjhtÇMZÍÝ®VOJu·´zRÊ»¥Õ“Rß-­ž…Òp/•œ…Òq/•œ™Òr/•œ”oiõ¤yK«§I•½Trš”ÙK%§Ö†´zjA`H«§×!­ž[Jmñ»¥ÖÌw¦I±½TršTÛK%§>èCZ=µ.0¤ÕS CZ=µ20¤Õ“Rò-­ž”šoiõ¤}K«¹ŸÒê©EX!­žú" iõÔ…xH«'¥ò[Z=)¥ßÒêA©ý–VJñ·´zh•`H«‡– †´zh`H«­¶´zÐ*`K«­¶´zÐj`K«‡Ï!­æ¶vH«‡y!­´:ØÒêA+„-­´JØÒêA+…-­Z3Òê¡Eƒ!­Z5Òjî؇´zÐêaK«­ ¶´zÐ*bK«‡¾ˆBZ=:¥».­Ò^—V­ iõ •Å–VZ]liõ Æ–VZeliõè”&»´ztJ—]Z=”(i5\!­´òØÒêA«-­´ÙÒêÑ(µuiõh”⺴z4Ju]Z=hE²¥ÕƒV%[Z=he²¥Õ¬ iõ¨”»´zTJ]Z=*¥È.­´ZÙÒêA+–-­´jÙÒêA+—-­Å¥ÒŒßQ\JÍøÅ¥ÖÍÇ7)öðñ¯»´zЊfK«­j¶´zdJÁ]ZÍÒœVL)¹K«G¦ÔÜ¥ÕƒV:[Z=hµ³¥ÕƒV<[Z=hÕ³¥Õ#Q ïÒê‘(•wiõH”Ò»´z¤GiõÐ…aH«‡NÔVÕ$…´z(QÒj&.!­ZoÒꡇ!­j•Òê¡VJ!­jµÒê¡E‡!­îZuÒê®e‡!­fbÒj…´ºë‹.¤Õ]­¤BZÝõÁÒê®Å‡!­îZ}Òê®å‡!­îjuÒê®VX!­f][H«»– †´ºk bH«»>CZÝuaÒê®-¤Õ]­¾BZÝÕ ,¤Õ]­ÂBZݵ1¤Õ]kCZݵ1¤Õ]­ÊBZÝ;çƒK«{ç|pi5!­fyaH«»&V!­îJ …´ºkQbH«{ç|piuoœ.­îjõÒêÞ(Eviuo”¦º´º7JW]ZÝ¥­.­îÒW—V÷Fi¬K«{¥tÖ¥Õ½ºÔšë.ÌBZÝ+¥¹.­î•Ò]—V÷Ji¯K«{¥ô×¥Õ½RìÒê^(viu/”»´ºJ]ZÍ…gH«YÀÒê^(mviu/”>»´ºJ£]ZÝ ¥Ó.­îùQZÝ3¥×.­î™Òl—V÷Lé¶K«Y›Òê® •V÷Li¸K«{¦tÜ¥Õ=QZîÒêž(=wiuOœ.­î‰óÁ¥Õ=q>¸´º'Jß]ZÝ¥ñ.­î‰Òy—V÷‹Òz—V÷Ë¥Ö¿çƒK«It„´š%Ò!­î¥ÿ.­î­œ/욈‡´º©ÕgH«›Z†´º©UhH«›–2†´ºi-cH«›3†´ºi5cH«›û!­nºÐiuÓÒꦉ[H«I<…´ºé‹0¤ÕM‹CZÝÔª5¤ÕM­\CZÝÔê5¤ÕM¥H!­nZÙÒꦥ!­nZOÒjᇴº)QÒê¦ÎV7µº iuÓ‰Òꦎ!­nZâÒê¦5Ž!­njÅÒê¦V½!­nZ§Òê¦uŽ!­nZèÒê¦Ä|H«›.BZM¢3¤Õ­q>¸´º5Îç ›¾ÈBZÝ´Þ1¤ÕM CZÝ´â1¤Õ­r>¸´ºUÎç I䆴ºÕGiu«.½n>¾Jq/l•R]—V·B)¯ó…­Pêë|a+”»´º©uH«[¡”ØùÂV(5viu+”";_Ø ¥ÊζL)³K«[¦ÔÙùBjøBZMb=¤Õ-SJí|aË”Z;_Ø2¥Ø.­n™Rmç [¢”Ûù–(õviuK”‚;_Ø¥âζD)¹ó……´º%J/l‰Òdç [¢tÙùÂvQêî|!5•!­n¥òζ‹Rzç Ûõ(­n—K¯‡oÒìåã_ù&­®ZÒêª!­¦f4¤ÕÜÈ iu]œÎÖÅùà|a]œÎV­ iuÕÉVW­‘ iuÕ"ÉVWUK†´šU!­¦T-¤ÕU %CZ]u!Òêª_LH««&v!­®ÚŠ ¤ÕU[„´ºj+ƒVW­— iuÕzÉVW­— iuÕzÉVW-% iuÕÄ5¤ÕÔ(‡´š‡!­¦b0¤ÕU¬!­®Z/Òꪭ$BZ]µÕDH««¶¢iuÕzÉVW­— iuÕzÉVS Òêª/ŽVW]ø†´ºVÎç kå|pi5?XH««ÖK†´ºj½dH««ÖK†´ºVÎç kå|p¾°Îç kq©µI« ¥Ø[Z](ÕÞÒjMß~À¾ÔKeÂK×¢ê>Û èß➺ÿV¥Ú~ŽÊCùõƒ÷óô ï£*à¡Ý„úÛæÞêãµÚå“Í,Óü|ÿ‰æçpÀ\†@“½HêñÑqÀ¯ýAü\G:6¶Ÿtö–¶s•²Øc+⳿Íßûuñ܇ëægÙ¥2Ÿï?Q ¥LI©¡ã²õ¦ Òil”²ÿÞ¼%í\C:6¶Ÿè>ÿ>W NöØŠ¾±+™5~o×eçÞ¯Û>KižÊëìóý'ºÏ­Î'L× ½-*&0Äž¾éïékäçÒ±y´ý„òb?÷¢ôÚÆVô]Éñ{».;÷~Ý‹.Í?ߢ//íúÁ®òˆÐч¤uåÐßÓCÓÏ5Ôýa´¢|÷>WÓÚ=¶"mÛ~o×eçÞ¯ÛîËÒgH³=†ý'šOé¶>Ó:̪ éw·øõß+[²Ï5¤cóhû‰®åö¹šIì±}cW²füÞ®Ëν_·}z'€r÷9æ?ѵ›.¡+g)úˆ³7 ‘þ=šZøï­7œë¨î9æ?QÞhŸ««–=vÞsÌÿ¶ýÞ®‹ç>\·?†Ùégv¿/û'ZG©NêÜ.º’>uópú}Q§ñ+~Ͼ ~®¡î÷eÿD£yŸ«„{ìê÷eÿmû½]—{¿n»/]×ø™ŠšÏ÷Ÿ¨¾U©Ø©Ksô¤§>Ú¿éE:þ~ÐóÆÎu¤cóÉd?¡£ƒŸË^ê>¶"Ž=6ͲâºìÜûuó³¨lDµÅ…Ÿo?ÐÕ¸‰X†r(ª¨™¾ÑC•õߪ•½Ÿ×L±œüPþ@ÉS?O >ªš]ƒÝ÷ÕØy·kµ[aU#Sû}¾ÿD·#µŠ…Ó žÖ®h‡ä¿g ¦ëHÇæÑö-…ØçÒÓÃÇVô]ÉÊû÷~]<÷áºñYþîé_>üÕ¿ÿï¿~úÍÏ%¢/SÎôô7ò¿¿| aþ;vU.01øù©³‡P³Ûã‡êÉ–:Œì ƺF¸öo,MÊ÷ã€ÎrÞ}‘oÜ/;>Eðë¯ìkúæÇ#_ÿ«ßÊ—þôÕŸt'ðÚÿ(Ôö㉾y_}~ú¹öåÓWùð×_éà¿xöÔ7ïýìןŒ—¸,•î'¿þ\62‰sÓkÏì,èŽ3ó«Ïœº5gV?ZþütÿÓ³,2¾] Ñ>;¶øa\ê½åð˜ñ²‹?jÿ].%J~øøô÷Oß½êv~†t=~bµ\•"ËEð1~û¯ß}÷ñÓÓß~úþ'ÿ@÷áÿN08 endstream endobj 2613 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 2628 0 obj << /Length 2968 /Filter /FlateDecode >> stream xÚ­Yëoä¶ÿ~…‘¨ðÒ©ç!.z$AÓ¤).Nû¡)Z®–ëUN+mõðž‹"{g8C­´Ö¹> 0àåcÈ!çñ›J^Ý_É«¯_½½{uóU^å"OTru·» ¥:J®Ò0‰Î¯î¶WeW¬›c_6u·úÇÝ77_ÅédΑæ9ìè¨Ã,D¢W’™\­uŠ8Ï®Ö*…EšÈÌÐ7Ó—…©ªÇШàý*”µGì…Aßšâ=M4;úí÷–æÍÖV4ö“”ªïËúžº7Dpl›ÂvÝ8Ü—+Vë$ƒ»}ÙQYïšÏÐÔDE*èú¦µ["2îÊp“5ˆ$c:½­ìÁÖ=ICë©4´È/ d» 1¥„Š"Oô“Œe 'PZ-šzÛÁPˆp$žpWÇF³ùÙ½4=“u4ÒÚ~hk»…»jß×¼ª0¼©º†ZCgi­iWaܹJcëtz¥Û»w?~¹p¯(a<6Np Ä Ì#œË¯. ‹jW±]•uOÍÞé[Ýà]À0¾Z…qд4m±óÁŽ•}=³6ÿ{q PŸ …JbÿØD°+{j†ª/+ûàŒ ûå»]ÛÝDÝñíͺµ÷-š•3d;DÁÖ[jðu´WMÌ'Ø.F³âsÁæ«u,eðùš~Aâð€òX^ÓЃos¦¾¥Ÿ_è-¨DÁ];I,¢,›‹¿…Ó6‡Õ:JÝâ(Ƀªìzäó †4ú_ꙵ²7öÃѶ%ÊMç„Sn¯‰rqÝÑ” {4g:L$T*xÕ¯Àçh )?z#à‡¿§ûêpøNNiˆk/f¹Ö „€H_ š±g9+fcˆ¿é ¾‹ >èIzaP[»uF mg”ð‹>JT˜<Ð:K @ò}ÃäS ÕrÜ;ô6äUæx¬JÏeŒmtî™ÓvC±ª0÷¾ƒ‚TI°Y) =M1#h#hTÖly#4Ÿ}o¶Â ð`£µÈe¥âàÃ!T܉#:“9IÂvø>ÄR•çÁ›Ž†<ïI8u§YZ0EÞ½N“Ó‚“ãé µÖôN`8Êt€è=µœZdîÍB:ÍÀ™¦À>3ÂXèx4&Zš¡5XÂçl0IDv†šñ ÷¶ùP‚’|á`¡’ß½%P¤rRÍ%ãž'^ààîÝ*ƒ+Ó0¤–Ca©M·ÏÓsZÇë®1Ë nð<™ L ƒ¨ëQ‡ëwbø‚°Ô.¯³[N)äÿä{:ÊÁ¨•D3ô˜,åý3¨ìY$€Ó\ Û[ vdÖ–ÂÃS¶1G’]p½ýìPÖ ûê³þÀ)Éô®tÂv«£c'&u.®c/_œb|éx¦võG¤Îk™)NÈ]1ŒB‡“ó„ÖcPÂþ›žÛÄ[y*Ïz†ATÑi_:¸Hr>qGtΆ`Щýb;´J¦ö)Ž…úOoç{ =¡ú1‘N²àMÕCòq‰ »ë¥””-Ð4@‡ ú‹2¡ÂìV“‚›e“"Áíixë¾¥ä!o‰£G[”˜Z`vŒ§qê B³ä½xè„pY õEíiE6f/yNÙËš”œ%B&É\ÇœØdç°A=Ÿ%P¸ÈÂiª=Ô´+°š²-5½öaamNI«0@Ì€âí\ðå ¡Š´l2OŸ¸OÑØÝíJ—kÆ+¦›Ýë¡hn6K>)!Õ¸í ‘‡ïêËÊ÷~v£2v*³4ä1N…Ƈ/J€!—k3B©s PQ£d–®I‘œSØñéñChªdRh3ÒÅôtEÓ‚ÿ!cgÐR‰8Ö—ÈŽ>ô€Ç7miꮋ•3""¶ü@íÉ• ÷‘+…)¤àÉi¨—]*¾¸l:š!´7|„‰ò!èÆnjHìž&C©ÔÔ*;Ƽ<‚ pQE2rê|RåBøÁFé0ò03Åiü¹é-ÑÅP˽¾hÄÁ¥«„±÷¾nP°§Ênï-m螃`jO3Ô‘;ÞÓicæõÑLfZµ@˜ž8wꡆQgXìª, ÜJ†‹Øt&vQ8“lVÐè ó(¸ÍùÌ„Ì,1<•U5îRSkà k‹Åªi\‹%¸~Su ’^ËÜÙ“”âÚ]CýûÁ´²ëõM%=çÆ0:ÍaŠÏ…†Ös3eDhßÓĉíÖE5lÏÆEp†·6FÜP³[R ‰pþä‰ W³þ±¨<úwDìúç;ZM¿‡s=Ì–">¥ªfé~ÛÞ÷­©ÀÑá‚ÏÓ¼ê{Ž´-¦*gÒ…®;gJù m8=FžŠèü`ˆOQ?)-¾ °‰Pz¤=šâ½q•lN!“$z”DBÃÙ%üB–Ò´|Òé öE¬¸ןRÇGÓvÜ••}yÏ ‡ò_•HášóÒëhQïa…Ö‘~!³u7Iuh¸hÇ¡7¬AëÂ߃):,d»qKW›Ðz(WLIÎnÓn9·ÕpÈp¢’îíg]Ýœ–¢.„TÍ*~L¬c|X^ðˆ^[ˆ~X«Àq€&\~¿¤b˜`ûz™Úr¦¯&çþ«àÇçô¥BÊñ a‚lpˆ]‹oŽŸ|Š4*Ö—Ò{öµ„ùSÀ3¸„ÊÁËè8´Ç¦ó¥ñù°îr¦X‰,½x¶,LGJ’?¸•?e¨œ‘PkéápKDs#tÄ£_â<Ú0ŽB8ìy“1ÉØTLd ¸­{^O‘QúWL•{¹Wä\ÙÞÒÃ,@\Ķ µü«"˜ƒ6æ~Gýƒy¤ÆÞVG¢v&¦¥w>zFü¤20Ùnh1 Ñ ŠlÃ;yÆ,«›…Ö¡HÏ•Ähß¾}Î4Ö~Ù,jz;å%yðg¢8#ÔÄFaüµ5ŠK‡ ©<ÛàÆíõëã†?¤¹ú¼³ÿ¬6³ìË\Êâü œ ö˧h‡º¦ò6μä®ðK‰Hó œ˜¸a2> Aˇá%ƒŒ»8¿“8L¿© ªŒøX¥n×’·’‹B1ŒnÚ<̓HÉ< íÌmíÑâkùÒC“á @pòx„zN(§Ÿd{Óòˆ3Q÷¥ÉBÅÒ‹… óBá{ŽÐ¡|³ŠñÁnß´çòä#)ÃLeh[¹ÐJñã‡{ú©v÷+ð\z—Á_WpçÒû~c˵͂)å1œi„ÔÏO›?¸  i× ÌeDÓÞÿ~ÉzT$b­/ÞŽEê¼ ‹›O+«ß÷ÇîõÍÍétž3~€ &ìŸó¹0†íÂY0_T†4' ã¹ÞÙuVêªî“Àß.e ~³’9¨&WXmë”j#%Cé!f¾€jp(ü·å”>šÚT„ý°Ê0õŽ~(]À þTM‹\ÐÁ‡"¾}Oá ØFgOÿÆåwP»¹g¨t̒מnæ"?`éÜÇtþÎÓìú“iW: –>@§OÊù׋ e Œ6§“…=r÷-ò [ûhüß”J¢L,=)Ê'¶µmJ4£€¯0Ktzós׉ Él)õ¢Ö¿¼{õ?#5˜ endstream endobj 2649 0 obj << /Length 3143 /Filter /FlateDecode >> stream xÚYYsÜ6~ׯ˜òÃî¨Jã xl*›Z;qWemUö!IÕRCHÈDŽäØ–ýv£’¢íA\D__hÊÍÝFn¾¿øîúâùK›l2‘Å:Þ\ßn””ÂDñ&QJÄ&Û\›ß¶*Õ—\ÿøüe¬&SMb„ØÈOªË~¿ëܾǩ’¿ðâú⯠M¹Qãæqb…ŒÔf__üö‡Ü0øㆲtóÞO­7|?‰ ´«ÍÛ‹û-Ÿ^c¦()bØ<¶ ôeŸ;dg+µÈRzÛÖîr§­Ü¾qû¶®]S¸‚:~é.•Ýæû¡Ü;Úr]Î(qš”=H’DÛc~ç¨U´ûÈ8ð@OÒC«›Ikº 9¼Úíûƒkhàý¥’Û¶»/›;î(‡µ†ƒ#šÉfd$"-¸òÛKmaž<ÂÄBkæóýýxöߥ•ySà¢ÍÎDà‰‰•È,K\·óÎ5®Ë«ê^ùôÐÚ·MqÁüááO³Ë›¼zè]_PbE‚ªV'ÂŒ†ò²êW²|n´Zª¹iÞ¸~èÊý\íuþ¡¬O5½ü\Þ£Š]UÚ–'¼è‡²ÎÑþ±¢4 »GBIC»ÿ‡¤Í2P™Ô ›¥ ŸÂU= ±Õ —­v¾*Eºéî6¡ùæûG§•Pgcvu.NM¹¸¹E‘F£EÙ€_ù1Py¬¦ßªß}öSZ¤± óoOÍ5Ö_]îŒRÛSïHàö–TÐM­ïõh˜TVØ‘Çi™ ­,{\Lß ©Lzï|óâõÏèCÔãF›Ñ;F#>'¾‰¯“ÈøiÉ;]’W}K-4–oîÏ—Ÿª:zÇ–§)…Wä-3­š(©J&ñxh‹oŸá៭8W‰ÄŽ³ÇÙì"©!‰æ!øë¥Uç]ÙžösêùÅs“Såv¯R]Eƒì¶m×Ó¬ÏÁhI hÎ5Í`ðâ»5(²¡àùʦVDÆ,‘å—׫›®dÑWP ‰†d]îÑq²ÝûPp‘§sx»A-Åé¶?´è7ïy’þÉ03°'Ã.Û· ïŽæ®?–ƒ#dS )]4‡z˜[âäLo‹’ýµs2ë»û(0|Ú¡¹h‚e4úÍð¤h6Rc4‡ÐÄW}œ²@Ièaâ¦,@ã‰Y~Sñ$@¼£ë[H,‘±ÛH]»µstzüD€ “xÄ´i¬š9—°+Zz6í@ FŽò#/@Àþœlóòî0ܶçyWÐ@7 j× ¼)Á†ñŒm4„A|µ&Dò¦Åo2\€ö.4}*Á-sfƒ7.€ÊˆÈ ¬|"ØTXkžDWL’-¡@|ŠëÏi&Ef4Ð-âŒÅUáÎÕûÎÓéUΊCζçœ>:û¯æ“ÆÆS>‰¯N±MJ36y*ŸŒ„Tê)šŠøøc5©*Ð| ÌYøDBá}»,NãÁ©¹o)ù hû’òö#Qõ Tkélîqû¶ ™¯ðZ‰d‚W ܬ UcOÙ3 d@uE2çç±›zÎøvœ±{E ]a®¶±0zÔÊÿí³kxk2‘Ú)Üò÷‰ôà™OaWN~`ýÍb¡–®¦ƒyEEdÓ7B§` ^€æ•£>»a£­žØó›Z%÷ð±Œü±°+§ÇþPîú¿NyçÖ¿ X« H4ìéÆ×Ï› çQ¾òÐJÔËðf¶€¥]5 7m]6”‘plb,“¤gI¯/”>ùí­u]×vÔÓÇdÜÒàèÁ&¸à¨8 ®åY-¡4^ŒWäá-‘õÜÒsîسpHì"y¡QP&(Çmn»¶¦wDTm¨]M2GÒ—Átqtû’U¤Ba¶Msªo<ðÓa§ÂpÒåËó5«L‘ê=ï׆ýÏ„Œ…žTQ"D† îb!W‚»tÌëÂÌf†È\^’hQ+ÁŸ´àéo˜†9¤oKQûÆ/‡,œwÃÉChDE Ç)ŽJDôfÞ–ÜGýÉÈ+€½üØ6÷5f2ìÅ}€Úë`€,9Oü©ÛÏlq:9Dœ„ņP!lGB„õ»ÉŠ”å‚«J¤c"*kžè î: cÍ™]û̪Gnv)hB- 9² àq»%.S¿§ ƒ9U"J¢E0ÃÖç‰H´>«EÊ•] 5ÞNŽ+ºM„U£SžSÞuÎ߬àh^—ð¼…®¢­¯øÀ”¿¼LnÌò—ñù‹ç°¤<šsÏËÇ:!b!c'Ùù>¡(-E<¹a­‰5ý8]ÔÛ»`aMÆŸSw >n¾ n%…>WÒ׎uUá™á:œ §Œ¿OÈŽ—í(ý²ðÉù‹¼¹úÉ€ƒvÎgˆ0X.ñ2µŒBãR‰Ð|Ji&¬þ¬ë;U.³X¡!mmµéäp).5®êT¯5CD$³eñ V΋ofR|ƒ—eñÍÌ.Ôx,º1Ágú—’´÷áÇâ»Ñ¥<ÐÛ{WUÔò·B£'%:ºO5r¥Deô’¼ø æäw§ËN¯ü}›>áÀ®LÕø«Dâ|ÝjE†iÁîHo7‘jö÷q÷Úísêü[¨Ùw¿k›4ßryäÒôj>¾úC§ã{(òü ºú¯–°þYÀ XqB´BuÎH„cÇNì‘¡t…ÿôÂק!¸»6{ù©ç@ybL[+25B7}áð3W¸Àü\×?_|ᢣqÅ ¤+ @¤k$ä¨Á³»ù+¼w·P/¤Œ‡ ïBÍ°ä Ûtïº!}@mû0ï¿TyÈ÷Ãß¹$€* Õ*,!˜û‡ßLõ‘5}þ E[a÷‰%¿P´LÔ¹h™èi¡"QãŸ7õÔ¢%Ümü¤B…ÍÔÿû G¦ÙôSwU]Ö9ô´Š2ý‰£“P‰¤Ô+ŠÉ6*ŠLÇéÕËΦ‹T;‰‰4¦\®¶=½‘E¡á¯:µc­ Ze…Å6ô[•l_5&òâŠ\—bÖQLÂ:`«kÔ¢¤éœkÄ0ÂBÏh4_ÌLãé°?ýÞBv|P¯èxÌ;z¾ÓÛ2ø‚ÀÝz¿³x#ä¼ÖÒ!¸§wU¨ûtw ÎÐ*Ú0‹tæ—cI‘ ”Õ˜pl(xC#/þ<õCMõThù ¦€/(Z‹~ÔߤùcDßìX¯Y^óù®ÔjL©Ð\åÉZ…ì­’{êÜÿN‚VÎ=Ǽƒò4x¢~ì£ZMî2Hë¥Cý«#ʤ±é×G¯ÎDzö°+ú½„þIÈ'"’‹ßÀNUA#C.‘ŸðàX ^Üöß>ƒ¤ƒhú忉>ɱâŸÉÀšÓŒX3þ­S ŸEÔ;Æ:´ÉcÓéO>Îe2>9cŸp+SKÁɉ䄒ÂKèdg•a÷!¯¬DØz÷ÅõÅÿæ&Dž endstream endobj 2672 0 obj << /Length 2774 /Filter /FlateDecode >> stream xÚ¥YK“Û6¾ûW¨²ªÊÂ_Jm»Nœ8µÙrÙ³ö!Ù$A#f(RˇÆãÃþöíøÐÐãoMÕÐÝhô÷ô7 ñó‹¿_¿¸z‹µZ'a²¸Þ/ßW:Ji¨D¯×»ÅïÞ1o¶«Ún›å¿¯½z§£z¨t½†éH4È4 ½ðe…ÅJ§Š×Ùb¦0H³Ø?«Ö.Wá:ðÚƒiyZ­GÓF¾ Üœ­mÚ¾ûüÝÌêQ¨RÐVóÆÍI“ûÞÎî—ï™®h¹g_Õ܃"¬'ü©lQ£º\|÷ó‹ e²H%±[¤>Õ•ùÄÊKŸD*Kz—¼|úB±Š²t¼ÐñüØ:áZeY6¬³Ò~à™r÷ &êTe:/}S-N®ï½²ïÊm›We£–«H‡ÞÇC^ÐòA¦t,VRë8–=¥-Ò™—Ouµ bïŒÿìNZ˽­m¹¡£mÕ®áÊÎ6Û:ß8Q³ ç¦fx‡j¹ ¼®€¢›sgMQÜse#¢½£PG†‘ïm¦¼ÉË'˜Ëúeµ có§VÝáUWàŠ±ïmjkn¥h¶·Ôkj²š¶ÕñdÚ|“y{¿LbOMÜ=r{2r;¬†*òå ýlK[›‚gü¸Lc¯ªoÿð}]ábwܾG…)ò¡ò›mÍêo¥)î+š¼)—`ï™”/Îl24¿ û‰+?Ú“-w°%÷\ßÖݶíêey¶ù~æl¢o"åGâ›ßL‰[DÃÜQ³2#-ØsÖ"$-ÜvÆ ù¦±õ Zu-xÏ ¼âKfîí¶åz“– äGÓ:yJ9TÚš²¬¤L¿¦iº#/{m5·Í<>h¼¯PÌèz¶¦k¤»¹4VªwÛ\ÂèZe ’Æ«’%>a2sJ°-"¶—¶nó'.óÿáÇ>l÷ŒæÎðšFŠ†N¦ns9èááLÕ…9$(À«¶…é8æ:Ì0rÄ¥yã\ÚXtFœ âÒæàÎDâ,vìkåõ`M8ø2'lTs='“OÍKØÕa:Þ5¬n«º¶…ᕸÁ!žƒ\#y#Ž@ªÌÇsG‚FF´¤–pŒÌkøç‡$Çéú€mí5B* Ýi,D¸Ú¹"$p7÷Ü!'f ‡1ëgîO«dà{_çm¨Sö`ƒ„¿u îÊ×h ƒæ\à«õpâÌ” _¦hWbÎé³uô)`òqO3¸Œ¢$ÈB§ìŽ8¨Ža÷v;Š1,ã¦~r(NNª†Ruäò€â 7ÐƼƒTp» cDfgíÑÍZZÆÔB©V‰¼_˜²"¥F@gL~=® ®Á£9ŒŽ3=º0ãM˜¯ÓKlâ| 0Èk_h¨«îæ -ý.ñ™…^I"ÜÏÊR;o ÿaÿÄØÙQ³Ü4÷ÜÎÄZ€÷z{PÛš“ÿÅÜ©qGŽ5."_ç_V ô×Å='ì¨;éqÜíj¤)f‚@ͨbœ×yJ)kHKì-º¦µºuÅ°I„&ßfTïo:IرB³NRïVˆ}É[Ð<žÛ§ˆ‰r"`¿åPª•I9j¡¢Ã1ñ½°•sÈmDŒÑ [$Ó&ÉórÑ…½ =jþx2Šý`&\ä„Ò‰öØQa‚ƒÁõ|[bž–ôX›„0`æfGƒ‡›T‡›Àûœå’91¶•Ã´d…JÉzt‚ßÑ3›11¢dóÎÆ1y•ø"%j·½57p>í6V›Öp8»¤_Ž·€ž'.ò)EyŒ?܉¡ÐENãØ)˜Ù\½N€Ô©ÎhÌÙB«$õƒ™„“Ò@bI½ÎKÂlØ-Ü´Pˆ#*!Ä|“¨ÍÔ9ŽˆëÈ;Õv—oÉéXîWXÃcÂû‹5úæT•œÙ¹il-¶L¬åSÍä, Ï¸÷ Y‘†g»$³T¿ÆäzÀa¬¡2Ý-6à z‡à^ØÀÚâÄØÍÈêÚŸA“µJãÄWž©L¥aÄ`ôÓ×Êpÿahu6R=X(NçaR€÷È6Ñò·½òalnå"…~ÝìÅ*J² –½Ô±—ŸZ¢˜ï•@C!óø²à^ ÿœÌÉJ‹<Óô¯ Â÷Y~,q¯ô¤2ÓeÚªs/&p·”[ÁÅãÂ5òÉÊ-t<¨Ï| uWh(ÜŒßJ¾´:E ¨ cîòB8ü¦—›²Éùþ,WpØÈ pö‰ŸDf^s.³uèÉל¿;öýá>w5álØEÆ`álj mg®8†eÔGü«SÚvXæ¯+™o¸ÙJ)Úkj¸XU÷¹ÌO\ü<%ægäiÔÉ” ‹œH°D¶h€›ë“Ý]92CJï™Ę̀\cv+Í´µ¾Ï_rÓ‡—ýò"üÿü—À<‘/ú@æ &VBûÆ(±Ð¥¶Þ‘*ï°‚ÊŽeÏ=­혣3> €ÉÙï¹HoO“8!>cb°ü¾v&÷ÒĤ‡‘3Ë7æ|±d Ye›—ŸL\;øýáz"rýî_?=0;Öýâvô°FÊ°FG£‡5çý!/` ›^½è¢m–Q¥µ;»›s‡,Æo&ç—O FB,1Ž0"á> ¤–+þq '@ï+ª&#\ù¢¢ßqÇ9ê—áùûi†ÏÕëèéÏ)€€Ù7‚gªÒ$xÆ=\«0é5s¯”â,ÿvô «õè†ÍÌê¡ Ñͼêýå`SˆDÿ²â&ÚóËì}´6‰‡§…¯²ùé'!¹€„cL“Hé(›»Ñ  •¸9<5 Or`¾¥œ…g$"Ï [*‹ûç·i•i€¹Ý†~> stream xÚ¥ZßsÛ6~Ï_᧠5Á@ðG®Ó9'MÚ¤ñ]&vÛ‡æ( –ÐP¤† ì8ýíbŠ’iÕ¹›Œ‡Àb,¾]@‰ÏVgñÙÏÏ^]?;«²³‚©HÏ®oÎx3™¤gç,•ÅÙõòìψçÉì?×ïÏߦ|¤*3ÉTšÁ@Nicl5ïteQõYìg8~.“œÉ4=›‹ „’ºÖæˌǑ®Íºm—³¹äYt³kªÞ´ÍçXq6›«¸ˆÞθŠÚŽÚ7íR×Ëiô9ŽEßkßóÎôk*õkí,?ëÐ&*~BÓ¤¯¼HËürºMÉ6·§Ö"%‹ôƒ½/`j)ajcɈ­îúÒ4ÞTm·º2e]ß{[’{SÁ/¢`"ÎÏæ°…R4øíL¨¨ìLÙTú¼j»N×%N}ã4ªÚͶmtÓã1¸è†ä8¦+8_Q¸36L34SÄÑݺìIÇ™ _;㚈>uÙ­)÷#: xNrÀŒâƒçÊfÙnHïÐa‚2 je7ãy´ÚmÀpÚd·~™H&ru¸þëµîôMÛi4;æ‘£EÁÑ¢ˆ#Ûwm³BŸ¢´\Þ‹¶;•†TVºÑ]Y“½Žß¥ÿn[Û“šw U¦YQµZëê‹Ÿ/ôß”\ªÙ]çK½s«Óôû.èñ°ëØý…e…£H(tí®ñn/QxùáüÓ›Ë$Õ¶7›²×–Úœ;@Ü´= ` ÒYÂ<9(´°9<òÃv¦ñ`B56Є Ø–]¹™O-B÷‡Ìx°‡µ$AœÝ­Mµ¦ê.¬ÝÕ¸š ÝlÝfeƒ«²0ã~4 Ý0È-`ÅjY˜¾+»{O2{’p=°òµ„Ù9"ƒ–æp?RZJUâYJd´­Ñw2Iüé.¥›:SÇàT$¯ÛÕüsAÇÒR{IÕ@ $tg¾ºD×`û‰³ zÃÙ¦* yb#Èsj^å!Ž¢=DÕQ¿ƒŒLAÙ¶kôµW&_`ƒ]·h奆’¤U­ËΫj˜Æ Ë>ŒïGqK²°ˆ%%µÇð¦üÞ#å«þÓÉà9ƒÐvÌàDà„)¢…&ÁÎQ –ÜI‘<(mwpY]DWZ“¸¬mKªŸÊG÷ô-k¿FÄ—ˆãÂ#ËOàÈ°È™HŽb_ôl¢À༌;0ZBøÝYKç8¡ €_w|ýI5³Ä#„»\.Lmú{Ò*Ï@¶ a¹GÀí‡È·¾wK_Ç•¤Öò²Æ²¡!a–¨þ{b6Kdþ};žótbÇ‹Aî Ë~ã ä¶¾~û‹,*oœ7Q8 X­ÛÊݹ­ÊÚ÷ò§®âßg)ðŸ®Öý áÇyNÛ­`»Ur訟e*·úÛ<ÈbÁŸ Äp3”óð}Ày¢ÿxÊ!Ç9Ï®1'˜²,ˆS;¹y‹#aÕêZzçü?K€3’çƒE0‘àÉ$T `Šì0„µø<$c“1VpÌÏBdá’›ì,eEøƒ1Å‚eÂïŸH`Ä„Ãä,å~ÊwxV³<²ˆiT„£ZÎ˦¬ï­¶¸Õy#1œßvƒ»íhû±aéݪÓ3}‡†a2F ‹y°ˆÊ-œ™¯!t“¬Ÿ“QÞÎ!÷vp .bŒPg¿jÁ"x´¸§ì’B(ªzg ›wí¿;̸PÉ47Ü5•W¬Ÿ¸ŠY­½Ú·ßâ\º»§ZMqi–ªÈ%Þ¹Ë÷°Å'ص*­ïì ËÜŠhŽò~Š \%UB+ ûL¦<hw¦¢{jw~ÂyÌsé½ÂðÝXÝQˆï ~Hzà~¾oíÚPÕEå".&‡C‘"Sk–Ž1”ËN¬7¬2]µÛØë;§9j”戔;»Œ k„‡TxÒ‰ÃOºß8W¹3.ƒÒ¢m{Hˆ>Ó¡+®3lÆôNc^¯½¾iö¹ƒÉ2w¤ñdû"œì³?‡iða×q¶¬¾”+í‘ÊaÊr21*k0¾9ò¼ËŠʨLÇ‚R¥!EPIQ Žr:f ¼Á¦"£‰.fÐgcâ¡Œ­³olþ#L„Ã@ ‹=ü1í«oV3ŒÈÞ’…8ËÄM¬PLæÃE쇻ÛÅ?Ñ“°Â9œÒ¿€zYÛ­~œ '.¦ä ^œØ¦£9Vì§\÷ýÖ¾…û’ûâ(Q˜ö§I–MÁRe,NÒ°tœ÷Wg7Œ+•L3…!ܣ6°ïhdµ?3_xŽŸd©@è"•Tá%AN‹UônÒs–Ôݧ¿ØÇ? *·»ðñ¯·Nm¯ìàÑ…ËFxm*€úøa,¶žÎA½9ž2ñ©ç!RÎÒbà‰¨lHÎü;’^šÊ4z**–åÙi®å-âI\ų& J…È`‡'PÜ\ k6øô15û\ð„%<9ÅÌ 1;D+Šš+dÑ/fµ2õb‡ˆ<>Î8ç‘«dÑõ,K"4 “¶mã{ÿįèB¼á[Þ‡–ßÝPºkóÅxÙ…Ÿæ"(ý:“øÆÚ·Û²ÿÚX?Ê›ý(!›¤,Jq“YVð 2âB8ó!#ôã"º2›MÛ,­×¸d$&ìó¥á¤Ô‚±fVc7†ï_ÅZü]€žÁ`Š£@/ìmg©nü °q; ÒSñÛ¡ùÁñqÏãËýì¹D%¤ Û{‚Äê)‚ä,{z¼æñ“ÎÀ(Zçî9£ß:Aî~Ý9b?\þW®>È×(â9†[D: Ñ÷9}®ofÛA/´ÅØ$æ訃ؖ‡7',_%°~„„œr¸—øK˜ò@îµ'~PR.ÀÂJ¦cþáËð*FÏ`“€àÙø…ó£ƒãß[|Ç ïhW•q/(NŠ)ž=âoC£ßúD(§5¸ÇdJž&¿ìÜ@!÷ñîŸé\NÒ æåVð5“«Lõ`á×Nïúo¾òš¤ äôƹ»¬—¾i`A¬¼‚l~S6¯¾ò«j wã",Ö/‡YPG¿h gù-4c¨,7›‘>Åã×*„Ы¾ÛUýnøµ’n @„Û®¬|ºî~ÚœxËwêÄ ÿ’ƒ}!c?¡xáÞ¥BN€¿…Þ7å& .†§YlZÜOAœ~\ÛÖ­Ù¿ï°ýZ€ÕÃÛÔ4õp¥£Û¯i 7ÁWM‘›*à2òÀVO"75b7^Çoð- ðroð$È y¾8XÈù¢ßÂgçYÈp~õÎoóK]•/(§s\X8°‰!Þ}–J5s(ô®ä~$@Í·ø äµ=Ðò´DF¯ñ¿WÄbI¯¯8–¨íŸ+ióŸ ᧡âð¡“®Erx¿(0ü6Œù?ÆHóHŒ>·öžbc[·ˆ°Õþ6ûx`,KâïŒò{£tO%É47¦0ùéÛ‚Ìà›‹y‘_Þrh“ïYo®Ÿýh¬A endstream endobj 2695 0 obj << /Length 1995 /Filter /FlateDecode >> stream xÚíXßsÛ¸~×_¡¹›¹P3ŒHv::MœŽ/é]m7÷p¾š„$Æ©’T÷¯ï.R¤ ÙJžúP½Z,—Àî·ß.H§Ë)¾Ÿ¼¹™œ](6MH¢¸šÞ,¦ŒR"B5#J$Ó›|ú{°©r½&›´­‹¯¤Þ¤³?n.Ï.d4xN$ŠDIVÍ,–¨4¡îEÓ¹ˆb£0ç<$¬Úu‘÷¯gs²àg#ÁOv¸¬ÊûMZºÅË Üú?ÜxK%å”rˆ$ƒs»Ò›íZÛyV•· ”ë2s’¢luýeÆe®QƒEUÛ¥nÓyZ¦ë‡¦hˆ=¥’ÃS†xJÞòºMÛ¢i‹¬éLã3pV§6'&RZå:/²¢Ô>çE„F¬³úÚi¨FH’¸WàÌc#1^uÆ7 =þã’‚Iq˹‚1qbðt탷jÛm󧳳¼*HU/Ï% ~~%Œ+îyûœñP*a"áèÊú4cŒº®Êâ¾À$#ˆ .Ó쾩J·ü¶š):[µwéN׳Nå·YÂâþ¼Ñe>XM‚«~¥Âï!òÝ‹º•ŸËt»uÂ÷½pÆd°k'ÿ¥“ÿ½XÎMTé8œË¢4ºLaiüjŽKœôCZ.g2óz°ý¶[øÉj_§ë´l '|ïlXT3åPÍ ÀiWUÞàz´•ÕÓ;HHmÿµ+7¹Óí^ërÞ´»üÁŠ,Ôë"5€’´Ìí¤hßÑv Y·)$ ˜` E\›ñÅü`LÉûü¸ÒN뙈‚ ½»²V®JØ/X°»ã=x“Dâù´´Wˆ<&Fyƒ¾í“‚ò@JL‰È›Á!U/eÄ纔`*ô¥CÂBþ8%|°¢Ö0¬ã6Ùq›dÁ›"E–Ô†µôC‹ô–Àoèâ«R-ìx”}h TrPªjg£šT(¨áÕÆ›v µ.š¶Tx !cÆ?/ñ©jW—HÁønÇwù.N­úsXœ¼Ñ«ôKLÍ,q$ø׃žÐÃOF GH•á#ðáŠ!~x"|’Šõ¥ b4RI+*(¥,ú€$8#T„§)¤ÉHQÜÑ u@R°ò·ª'·°¨DäÖ}Ê –®ì°/Ú•]°pÙ² Ò-0xºÔÞ‚ ¯ cÜÑÄÝVL§7W^ÔÆ*v]-Ú½%_"ÈÙää2*Ô)eT ª¨‰w{ù‚#ðçø"V":ûÜ4ä ŠTx˨I(å)¡æ –B|¸JlõæÝÄÉMyŠyWqYp} -U™­@õ£ÎÒ^ÍM°>Å"ø˜Ö·BÊr“ÖÌz‹³˜ΪCXGU!5mȪÍ‚ÅiॎŠ>š3 €QÛºÊt¾«†(7µä-0”•È¡i¦vœ… EéäÅW$ÏGÌ„*çµÆå%¼¢)ªò`kío÷ 1“aØEõ×æÁÖ±j]Í…‘iñë4í U×ñ«leÁ^løz8ñoã&ì÷5í^z¹ úÍðùâX‡Qüq?R)e'!U‘*¹A˜<Xé ã¹-Äx×é *[&æ „@[5G;·@Aá‹-=8ƒ%G;ÇNFgLN‡.~<Ö‘ ñ!”ÄkIdt¸9‰SXI b­’Èô1ˆï‹ußÈHÛÛOÞÝLþ=AxÒ)ëo„aLIÂÔ4ÛL~ÿƒNsX„œ&"‰§{£º™†Ø°…¸ÑõôzòÏþö÷x4×ÎÑ.lD… Ú®ðø•³þI×ɇ¼þîkk»„¬µ²Ý1 º©±lç *”¥ý÷ yÞøÊþýåî³áã~PÆßàsþzcŽBÞê&«‹-â|tüƒÆ –Ϙ¨Ø>}m|kI}PÙÑð8è©s6çlFÎéS9OØ? ;fë´i<°ãB€ zØÿýÁl¸5&4z.9æ*/ÃAN°ñym·œ6ùÂM !È>ߢ7Œ[©×¦®í6ºtÿF·:ìÙ­<ÊÙ1+ªaKË!ÄNCXĈ8¸övì sTÍ#SÑ”ängàÇÓϱ®–®[C›r063lႹdÅâÁŠ÷+€š®®ÉB˜tYˆÓ. ¡—jVÕn[ùSm¡ÖNwõÊj¦V§­›-êt£} b¦Ïþú%}º[;÷¿˜°¨‡êÅù‡ëw/úÜVígý.B¡¾YÇ3*BN÷{å< û†êÍâÂ^BIlo5â“OØž¤ëþ¢½9Ê äÙœs¯>ŸþX§Æ€4]ªžº‰ŽÈ~Þ¼Z/ì7§¥ÝÆã~Ìñ5žØ&ò©÷èŸ÷_îþênyshÌ1/±cø‹ï¦ —bü¡fBIdª_ »wÓ«'¡±c×›ì÷{Ò½,¼þ9H0 æ­\»ÇIDb&ÇQ¸Ò mƒŠ›ï@ÁÿÖ}˜æ)'…Éÿoæßs3~hþþ A>8ð endstream endobj 2711 0 obj << /Length 1874 /Filter /FlateDecode >> stream xÚXYÛ6~÷¯6±Ñ˜‘¨‹*ºiÒ-Z h›lÛ‡$@i™¶ÕÊ’«c—þöÎC¶Öñ , Éá73ß í:[Çu¾Ÿ}{;{}ÆNÂ’ˆGÎíÆñ\—ùAäÄžÇ"?qn×Îǹ'¢ÅçÛ_ßDÞ@Ôó]i¡ƒÌª½lPpæÒþ°y4X±´K–<†Iß,ü ÔbÉCwþ&¯ËÑò¾…?&œ ‡¦û7÷ý¡æ°­'Xì‡f[P†µEv¬Ïð²~ÀDlõE’²Høvž³Í÷û³%L„^ÒÒçî\ëËä>ó¸7zÉ#pºñwrÈUý„«[}wFAçä189Eæ‹/pˆ Èçi›ËF™a^nM§Êê¿©'á–µé£ë™eeU©úP묠5j×îd•É"5Újè]°¾†p×Rß,M«jÔ㓺{%ë¶R×Wïß_½¢C³ëæPÖ4ZÁ¨P[¥ÙuÚ[èÿ§ÈkøÇVé¶ö¬&¼È‹po0}ö ÖKµÙ¨´¡[“Ób÷>kv¤Õª.ó¶Ã @jÚµ:‚éЮò,•ÆMpâQÉŠd›Äe5‰€Â¦Ì‡À½×¢{'&ˆ¤ÒÜù0ûõÉ(ÐyjÌö ZxN æóø\ Æ®b‘¾.lªÖ9QÂ/ îZÝg5=È5R‚¬Iô'¢=M!–R^"€ /ÍðçÕ_Úûž†(Œ€ÖÅs 2);šHÙ p®¹Ø;Å*;hâ™ã´”Éʾ˜ båÀþVË­ºœ’Ÿ†ŽœCäÁr]Óô=N]ƘŸcý<1ÎoÀõÜù¶Ý«¢9Ÿ6¾ Ûù4GÜ'‹¡‰.³P Õ][Ï0ÐSúC®óCÆ 0¼üw´píqI`®øó 2f5=©ÝÚú Òlóh$6v U?ØMKµÁÇ ]xóLD8¼ìöªwe›¯Í§•êØË Š×.²°Zú`î·ÖËbÝ[©QÜÁ§)B/. ¼€3Á»@ÚVêpPÎYà…Ãò) ç¤dW»ÿùN52Ëë—çíÉáhÎOìÉ/7h©9Mbñ)€Ž!2E†™Ñ5-´-µÍ)€ymû´=Û‘mÉ°zÃ$IkE½£6 öŽìI‘–iuU‰YqTDZÿèyä…r@!Ï·•ïµéº5 ÌiCú}‘p]êþŸ„òÇNáÓ ˆ´- Ùƒ¿,+]fƒÖµ.­ü ìž C Ö£…)¹¸ª¬ $#É®ú2{˜ª*×U®ŒÒqÆ÷WìÚ½6È«Ù©¿E ©¢UY=eÛrÓàe 4 ¬í¨G¦m`ÆD& v¿S„<~Ñ)oÃyˆEØÆ´~°Ä^ªlIîÆCb¸œæ ¿ñ~UE3^gúÜ h4qµ:Û™ÖIMŽLhnªrozJj& ò&"7™ßêó@„Ô7Rƒ·UöW›qÓ­é¹ÓˆÙØ€-ºâ"ÀPkî•*¦—yŽ¾-Æ÷ ãSPÆ|†Hc8¿j2|>U'{.>×yävi ¤g. Bó¶6‘ŽOê­57Ì›g†žß©g<ö“„Å^Ô§âòNžeè˜qÿÚ?Ágiæ¦9?'BW›×4“óÐ…;ª•NÈ™ù}F?ÕZ&žÑUI8 Ô¢áã ¸›8þG/áb:rûcØ“  qE…¾YÜ•M8ì.¬_õ"ƒB) üù âevéwý Òy›<ʇ§—ßÿŠ@]ó¯ƒ °ðGÂ(ýJ!”xŒ‡|ŒÁPûÐ\QåãÕ÷Úü0¹’µíjã†DÕ8aÊ¡0²Êô#²¹Þ©­QPúhÚus´«y·/–‘Ìì”\w’S‰ªÿäo¦ endstream endobj 2611 0 obj << /Type /ObjStm /N 100 /First 1006 /Length 2875 /Filter /FlateDecode >> stream xÚ½ZÛrÛ8}÷Wàqü0 .ÛTvªrṲ̀jf'•dkg7•š¢mm$Ò+Qvæï÷4,ÈÎE6m3~ˆÓ"q9h4ºO7h¼ B ãUÚ’0ZCÐJXů´Öà‰‹F8 ,XácdDôù•)y¼ÐÚ«H#&ÇÏ06YÅRÚy")¡ƒ"–´ÐÑ&–ŒÐ)ä· ÷HhbÂCÙ”{ðD6,㋹ºƒ&žW½aà+y-KÀ!a-KQXŠ¹]ÖólüÇçYÒÂÆ”0‡1‚Y~féÜà {Ùà "V7I71K%ïy6«ͳÉsŠ‚"ëÀ['œrsX/œæµy„³ R„¶=crœW@1Z»lè)‹Ž»iîæÜÎÕó£ÃƒŸÎÓ¿ûë¬Õ˾ª·›£!ÿä‡ú úG½äwæ zV¯[n#ª_ÛÅy;Ì›ú ú{×ô³ywré’”xs‡1í7ÇüñY¿˜íø}õêùsî3ãÇ–¸6[és9în„ê_óîi·ž_½~1?>nWm×´kñ^«–ón³†!VÿÛôC»hxGªf=T»^Ï«“U}ÞVu³Úª™¯šÍòxÑ~ª†ùbÖV˺Yõ]u´jÑ]ê¦i»¡šÍ1Åz¾®d׳ö¸ZaîªigóÅ¢Þ=<Ýt'õj³\Ô›¡êOú®ýX55·>«›öÃçú|Ú¡Û5…þ6ï>bµýjÖ®Þ+èC}¨~­^UÏßëüã zÓ6ƒxoR8À|â%ÄG’œ ^Âñ¡ÝSñ䉨ފê—þ]/ª°ãNλ¡]ÕÍ0?o| Ì·f‡q ½›¢’Éä!œ½ÓJæÐáa”†Ûm”×S=}ò$ÏP=møPTo«¾yÅÿ~8†³õOUÕ¬êN®~<[õÿŲ_TPÖÇú¤ýÛ²êã~u¸ì5GÐ!’å${ŠZZö¶ÚK¸Þ½š[÷gÃtf•‘윓)xŽØ@¡½—1¤»kìd>œnŽdÓ/«‹óyÛœGÕÔª2ÉHph ±=a³ámVØ^E­–µÜt󽪺3 k­dÏ[pÀä-ñ<†OÒ¤ ÒZj‹10ÎÚ¡Ÿi'™ Îã0†Q@NËå„@¼’L ˜Kpã€,ϧƒ¡ Iç˜MDé@ùL1‡Õ:Á7îDZnË~Ö.&4ïëâ‰%+­¹HÓwÇpÌ“+Æœ‹¡+8ÁÊ`nW ¢áfJ­„ I;„ýRÎÞ cÑ"Fë~3Lh±&ÀT®6ˆrÀº âÒñ|ÑN¾A䎮ÛÁq*Éàã­x˜†Ì6õb͈®Ãy§í@kÁ£Dõç¿ÿÚ _ÉYŽŽD·Y,v $ó4þ%-9}Ùë%Ò$LÛ`ÔäÌöRr*ÿÀÕŸq´ÎC¼Z‚;ĵÜòÕÒò¯°k ÞÚ¼m±bQ½~ñ¼±ý4ˆ/¨ÐkD{°Y€ÙZs6—×ÁºZ÷›S»œáåg¿ƒuÕÏúO"«—eHúz]ƒœÎ]rÌË­aR˜3UÆ“Õ­Š‹¶‚QEÐE0E°E "\Žüaªxg$gZ°Éy-å8eCÑáo0R!=*@HY™pzÆ™2òÜjB¹ÃA~ÍŒÂ1qèu¬Í^!IVrÊ:É´±·=§áÓÙ£Åo-ë6Œmm@ÿƒÙÚ짷L}¯…¾/‚¢Ö‚¯X·?͘öóu„ êþ’J–J%TR •®œÊ\ñ„ÈjG™´”sço "DcŒi½–1^FÄzçqþbÊwD™ ‘eH9oêE3eí3òÝEAaáŽ|çm(VÓ¢àœÂè”ëÄqžK;ü}ºô9/óíõ¶V@1H¯n0Žþh³~È×nbŠç¬AƒSb á~©Ö ÷„Íbsô¶îfóætÂ0Ð"拤d´—eíÙýk,HßPN€£n†/˳4iLjà|w`B”úv,uן×Ó"Ñ0`…¸Â¬1ò™‰Í´œí±Î¸N\7ˆ;æ–øÓ“[`Lî{‘Æð§"[”°?°ò[aÜ|¼î±+ðõÊeæšÕ¡‘ìXŸ™ëM8¸W¯×˜Å(í§¬}y$[ñ Ntaž]}v8aÊ\ØÈüõÐŽelô(8CÝuíj½œ§_ê(Ï ïzårŸúËgT3@öcšÑ}Í4£½?Óô…3úÂCyÊ“XXd,,2šI/OŒݸäAÎ`—‘n$š4æF’|ãä’ÏÎÚ̼¨kóc ÑSzøg° ç¢ Ø åD¾<ð0ýê@ߌAøJHßÜövÚ€ DþJÓA3IÝ™ñ`ât”œ0Þ‚ãÖÏF|?¥a”rý+ ŽrG2EHU‘ÃNJ‹.拧\/'îƒL§ÔËyÊéïV/t‡zÅõÆ%ó'ë¤ #Û¥‹½!¿rÊß¡tž¾á®ÓÜuL78Þ;Ü£x¤VÎíìBãX9EßÍ.Ò]ì"}Ë." Äù»´&¤ÿ*mͺ±­‘Ç~}£³¿5—úÙÚ7é±HtÖûX$ÚA'>Þ í/º}~èøûvû ³´þêl•î¶R¡9©Ðœ´-–ÁÁáZìÿK±> endstream endobj 2729 0 obj << /Length 1968 /Filter /FlateDecode >> stream xÚ¥XÛŽã6}ï¯0z"cÛlRw%é ³‹$Ø<ö4’v-Ó¶&º¢lO¿ì·o‹ÔÅ­¾m0Àˆ¢‹UŪsªJÍ»_ürõ÷‡«ÛŸc±ÈXûñâa»œ³ Œ‰,²ÅÃfñoï ‹¶’Ýò?¿Þþ%#ñ ‹Y’e ÌŠ4A¡+nõ/VA’•ŸÀ¡€ÄôAåÅö±¨wË•Æ^·W´Èµ]ú‘÷™s?/TÝávâÕÇj­Z}CBM­h;—5íX}ô"í^×öú·MK¾ÁÈw?òY$Î÷u7wA², [®žyÿ¬ß²³ŽK­nìÕáK-F€–÷¿\]˜Ž"– á´îZu˜„íÂßgF'}.Ê’Œ®mÔŽZmðÒï‚O¸ËöXÚ =‹:/+ é¡UÞÔ\‡°¶Úš-=Ÿ\F;EVñ^9Áºk¥îK|¥õgñº±?HÝßkXdŹÐÊT”Âûzésïh#&m ÿ¨$ú€Kòp«òNÆBKpïa_XYB7j²6|X 9„Øq̦#`û3ÈT…"vB²]ŠÔÛ+ˆeqå§@]?š&ó÷½B·’2Eü‚%¡‡Vi¼luÞMìqWÒ#'äááfPòf‰,0>9ïëæ$_¤PÂâ°§•ƒ7ZŒ÷và~›"ï^²€¥žÙ.©˜Dy&q)¤¸7öu&i d$p›Æpb‡H¥sÆ!õ Ö êàÅ·µÀ§‚‰ìP›Ú!„úŽÐbœ=ضE‡ìžÒ! ‚cÞM”ù#žá›ã®×R“sÂs¶,zºÅt‹ªÙ([¬šõ•[j¤¶x_êæi!xÊ7O0ó*Av•'šX’f3 xŠ… ¾Ä‚%ú'¥½ËKÁù¢4«¥ˆ¼¯²:”J3«<)_ù\°$45u©þ¸Œ°êì› ˜ÆÂ2ë3 )Ä:c‘|™BËín |5$­¿-cî*ßwkyTÖI´2 ,bAê»›>­¬T'án«CÛ`òXÓî~˜ë·~M¹O’í©,1 E¢ÚåS¢B£N{âí»î ¿½½=ŸÏÌY^®.ƒù—X,"P'úSžÉAAðEd“`‘z¯¶Ê]Õ¹Ò¸.crÏ4Î R“ùf IR|·í#†_þMèg*s$Þ}%kY>j¥é5ÁÄ»§Ç¹èöôƒíŠtÈÀw2ÿS @–ôg˯äæØ‚AR™ê’•›Ô¥OTm ¡éS³íÎP#ƒÄSsÅ/aáÐÖnfò1Á@ÏèÈÌ:¤•=Û³Åg߇6ÁfúLpÿ^›¦@$ÝBAi$·_´f'ĬàÁ^Ìœat—¾|,u3 —·uª)‰abgǺx±W…,M.¨öK1ó³ÈC;»²ª^4”ÁmÅ`iÕ*Ëæí&¡,øCçC›ÕéE‹0ôâæ(ú1¾ÒèÛØ ;Ú2„iMí…±\kÓQÆ´{®×wÞ8 ã^? ¼‹ eq|чûÑÑÓf_öö \ Ú¯OA1Ë1‰ŠÏÍHQÇç4|û0©ç²mi«1ã,þ¦èœFn³eZ=,FS1&WFKïJ9ÐÈé{f¯˜¥Cƒ§€‹ëŽ¦nãO Y=@•ÄI¥ ¾xyè?I‚bƒüÖZ¶ÃæºSí K,ç[3RqÌðŸl†Ü—½‚2­ar íÇó‡°“áB™KÙ)z-›-ÚBÿiWP_Mk =›„Àliô®;ɶ®sŒqŒíLüD©ïWôTýÀJZ)©­º»¾¿¿¾±F‹»îÐhû¶†·Zíì[^ÜåÃox~+òþcë|çfôćA<¦q¨Š¯j³R[ó-e·ˆÅƒÍ& ¸¤¦‡+ƒ[ãjY6¹ìiS” ™t1Ah›ö»¹õ~­mTÕœúèö Šru°ñ„—ÊÞþl%p'Ç€z ÐʹvWvî7Zv›M %ê%?·2ïœp©N.FÛ¶©.lSgtµJOQ!ñXØ+ÜTXÑ;zü—œ%ã c\ÚÃ#¹¤ÉðM2¹ÌðMbü²ß$“Ðõ߉˜2…þצ}ÓO ƒHÃÎð¡—™Ñ3ýŸSƒ«¾?Û4ѧ9´C8:‰ƒý#†½U=åºîN|<»gÏ\§¯_åv‚>e´À8ʳÅÄ4¬©ñÝ|yÿÜ Þ¢bt™W/4˹™’ ÷Ú¦=ŒØ|‚~0fj S7kuF2¼ÇÙäÿ>Im¾u×ß¡Çyu,»úÓ ÕuÇ¿í›±Ù»ë5ÄìuHm‹K¦B{ ÓcçB|Sý®©ç™#CñbƒÎðS]!þ={Ü=û =©8Of‚Ÿ®þˆ"ú endstream endobj 2738 0 obj << /Length 1109 /Filter /FlateDecode >> stream xÚíXIoã6¾ûWÉ!1:f¸i+êKѦ@/mQ Lç@K´Ã—¢ãñe~{IŠZ#Ž33@^lŠz|ï{Û'’ÐÛzÐûeöãjöðè‡^ âÞjã!¡"{«Ô{¢hþaõëÃc€z¢$Ä€úH+²B;.ó½â•2¢3è,<<âEzM@Íšñ©]´À¡ž$õÒÛÛÛù‡ð^ò —¼Hxý˜ñgžÕCV¤õ@=¹—IÉ7‘^¨ªžÙ”²†¢žI )m`ÞÕ"TRD©M•ù”¢Dq|N…€AüR Òn|1˜êX)ž3%’ ]”‚è¼®! Lr–˜ÎŠ¡·@Ä~ü";É+ÙúqÇ„<ˆª |¡$«š¨„zjR#ª3y4váР6RKü°p sö7ôáQ¼«ŸŸ›A^¦NtYÿ}vu‘eeâdR¦ØRÿh è”57ˆQ8òZc?Vq§üà|9°&*ªl–%Ù>åmyV' 4’'*;ŽÍ;…½©‹AŠOõØ„j­^âï‰uÚή÷ª‰Muâ¹´:%\8ïæ‹­Á ¤Fkn“uÀ]ôÜšî _¥âƦû¦¯ÆMõUÙäF£¸YfjJæ|YO bEù̆xþZö`žöï”—h<ïî —Çõ\®›(2©-îÊ"Ŷõ|#Ò®]E¡¸|ÖÕ3™ÉS‘ŒrSðƒiÐ7â§,çŠ-$ßj;•(‹–šo‚ež Š%zÆs,[gLMñ½þ¼¡à›ð=í8ZGçj,­«º`I¦JY§rqJ¾8 ÛÚáwo§å~P»Î¥Èu®™ê:×L÷>HæeK]æ©û‰¬ÄøaðMÒ‚üVý:”&‡'‘õ}(³Ì6¥y?½™ALÃË_]ÛƒiS· Q ôöï+RÙÿ$ù*’d;ÿÄò]æÀ•÷òDê&¥S±a‰ån7éiÚ4~Cz¬Y±åR¥²<†~½PN ØhØJ–r¸/@@¯Ü:Lî& (Ôm„.n@ëÒÛ¿ ½<.0!]ÕÊÌ¥»Î€}kžYúq_©ÖÃØu½î3%Ú^4Z̵ôÖ9ð®ovy³Ö1k÷½³ŸW³f¦  ‡ÚS<Šc¡ï%ùìýè¥ú¥Hy+š{™ã±)´ÌûsöG{pÿÛ«]Y½«íJ@µ±Dèù[€À¬Ä ŽÚêÿ}iþ2ëôA×Ðöáýjã{ncmmpÍànŽ}C`_ˆ»zê·õG}¬ªÎ„!Ð]@^†úf$˜¸A¤›ÐBÿ‰W‰; »ïpçøðv%Ò¥ÝÅÇã¾H:—ÍÒü'LÊc=,ÍYÎ vãø¨‰Ø”.õÃÆiËXUµÄÐaÁ„êôEMn\LojÑl‚ñ‹î°…á@[VM)#1ˆüFLFM'ñ_ßÝܼ endstream endobj 2746 0 obj << /Length 2158 /Filter /FlateDecode >> stream xÚÍXmÛ6þž_a¤DbF$E½|ȇ^®{HQ‡d‹+Ð(-Ñ^ÝÉ’O’³›ûõ7áÞl®»Y´èa59Éyæ™!®ö«põ÷½}ñæ&æ«Œe±ˆW·»C&£x•pÎb™­n‹ÕOÁÑ´‡Soº~ýËí·onT2 ³˜%Yæ¬*O3Tzº@;žioõH@(iÐޛŰÇ~ßÜH9_mºÚð”eü|¡?‡*|x½Þ¨0 cÐåhll„}Nú_}E*%ýL×ÔÞ5-5òJwíüþ¿¶>‰2–òèÒr^.¬Ûf¿ÕíÛÛ? ¢¢Ü—}ç:yS÷mSyœ¾f°®ÿ“<_ù XXš^w<,>Š~o¿Û¾¶}íÅ!v3=×é缋A°Æÿº]ó0ØŸ¦î»«ô{„v‚ì<œ3~ž’ƒ‹u½ÞÍö_&ï]{G¿3´³%œÉ Ë—ŽF/=¹(J˜rЄ(º4ÆC–¤ÙÂXÕ½ôæ5–ªqVv¶ÅeŒˆ(†‰cpJÌøàO÷LÕìË\Wë ³ oð7 º£ÉËÝgÞßGLKt$þš5WÉv)2×b«lœŠMܶÕÝ5§ª öÖÐo®Û¶4Íלœ&6L6äÌyðf‡a£O•Ã¯ôîCO¸ÍYVxœ,€¦a2haì2²ùÑjüú7Óë²ê^]G€Gœ…)w¸²‚ü{:eÝ[gî­‹I $Ñ Þ’Ö§ÃvÐÄFN¨ÑûàûŽD6—-D>ø…ðO€°“ÕMïõ}SÖ{rÌÀ¤Y`—Œak€Ðvž— ¡øµR—4M¡– ]e‡ JrÉÈ‚O‡¦9¢·,9x|ÂCö°žåÎû /ë¢ÌMGÜ=)DAUZs BkšM’ö“ŘÏ1æC™ßÑ€¼Ç æB‘—6O’>1ÉÑÖy¼¬óêT ±¨çàùç:8ªbÓ>š :†æÃàÝ€®®º†Zƒ]M?]ߎ¡› WÂKW-z”š.Ð"¢ŒžÝ·æx !XÄÇ€À`Vê7’¡„¥K&êg¢œ¡¨‰k#Ú‰šÐNF´AºD;qhÇ£'´Q رÔ¼ì!¡Îú^%ŒGò^ÅLE|És:H>£ Š”ðÂßRêöÇJˆY>ÝlugŸ"€5bW˜:7$Áß~BPÁ¹(’6nÞ½ï(BìLòš‘ÊUN•â Æ)ïmõTSÑ´_¿ú3n$˜âÙ“êd|V'Ѩœîryšº þ@ßò>OüQ™ $D¸ ¹}ä£ë•;›cÃÑÆÜ€@üî½ h‡š-ýÚ×ÎEÎ"Ó¸ósŽEkšoyŠ¶Ùž`šÖtn£8á£{:ç¾~vYYWñš‚wß¡,ËNËJ-éJ—‹gåjŸ¡dB >L …–" P ´a ²ƒ½c¥)Dg¦†t=7tlqf/m$p.Ú“Ùù7qçß$h›S]`¤m¢”ïqaœj»dŒhSÀíJ ᦃ!KjƒvéìÓ±~õ¿QÁ©ã\î9¹î®m¾%ÑA—¤/瀻~¨d¦)Á¦£ Û×ÝQŸÎ´ÐMën-vÐá¨Û²£Ã/0Ö}ñÂb§t†ÃzZîùlñ.âê8ØÕu1­äÉ0 YÆÇË\!Û¦¹z,ŠÀYš‰%<¸©’öÚ·3>??û7ç˜ËéB\øÊÒÔÈåƒ~®2¿é ˆã8VÁ­¹8 *8zYŽAÛ†i % ®>“¤5pÞp áº'©½†øjUÂ29¦!÷DôH6RK25]Ÿ­a¼ÕÙ:#²˜ /ûë÷Mo^}A¸»œÅû‚„5Kå횧Ãóó=šdôŠD&î‰ÑÝG½Ï%H/žIn05Zê@294…ÁS¶ïËþŽnÞ‚Ûp‰lZ|â‘‘;9¢Úò∠‰.ŽÐ²ÈÂàé2BgRÛÏsöô8å3Õ•ûÚ-Åòß}ó¤¦fÛá O8‰äUþ}ÌÁ~Wþ—26§­âï©ŠpñF)éBä¶Þc¢l6] 9Ø\ByÝÌs%ÚØÑo? ^:¿3 Uv£®ûfþsÒ•7ÕÚ¦KÑØ€º~lZ²*Ò˜Þ¦P¡<˜nÐÕýbTèm×T§ÞÙ˜-»£‰awE‡qn ëËœ>`!jÏDO (t¯I^ºÕhｄúÖÐŒÈ,p‡èjäBöU“Ò°+4$Óy>ļaÍ-â%¸2dy¹·QÀWÕA×5IlâFsÿh›.§ œy–eógúùvÆC§[¾=9Y²Q}VÿF¢ ©F¢a‰†­hÉ2!Óa£jX(ppAËú,C¡e6e“º£I5néèlب˜¶ëômþ áÆ÷€»ŽÎkŸ¿eGÔŒ±üèÉÉ  /.Àÿ[:pD1?-)€Æ“ˆNÄ  6ù©ÒNLû±ª÷Ò°î„_â)¶ˆ§v Ä£á0!37T<ÇììŽ2’Vrw–„ÔîH‹""-µ }H‹ây¾™›¸s—^ 5#-vé04WõlÅŽU Ցݾ·>âz˜‘£ðÍ×þ¦gÔ »á×Ñ#Ì.U»¡5°;Ø gì/؎솲|,%€ ºpÌ@ò >˜‡ºÜ®ä¥üæöÅÿ7BX endstream endobj 2754 0 obj << /Length 3359 /Filter /FlateDecode >> stream xÚ¥ZY“ã¶~ß_1ñK8U34ž®òÃÚµ›lÊqRÙIü§*”ÍÀ¦H™‡g•_Ÿntƒ9ÔØq^Ä&ˆ£îþú€ÄÍã¸ùÛ¯Þ|þ>ÍoʸÌTvóp¼‘BÄ:Énr)ãL—7‡›F²·ÿzøÓçï3tÕ¹Š“TÂD®ÓÙt§q0ý€]ß^a5ý½N7è^åШi(Žº»½×²Œ†'„H¢óýÏ·*ªzt id{zr4:wí¹íÛ6ôÞ¹ƒ=™©o5ÐtÓ(Ç¡£ú¡l?Ø=½Ûnµ@{jìîV‰hì—c“‰™ŠŸæV¦Ñ§¡3'ƒÛ‡­ßÖiJÄ©U®¢SÛ¤ôb€û¬6ôÉ­MÕ~«º¾Ð[»ëM÷33êØ6Üñ{‘Šª»•Eô8žL3°´^é,.óÔ k7p§¥ðó8K ßgO ©hÇ<=­ ̶ôìÏfoúüüd÷OÔ¾oÍñÞĽgÀÊâ<¾Bí-p ǧŠ,êŸÚ±>íVƒ§möõ­ŒFh–x\ÑÁ·Ósx²<ÅG ãÛûDæÑGÃ3üÑ>>Ú†;U xjOç¾åYðè” Ž_tL£Üf"²fÿ4ìªÑtôÕ Ü«Ž·MÓÉ”§K©,{ f¨lÝÇ C & D’Ç0žb,•¤5Þ}Å ™@DdºßߢɜÏNÚOöT ¼ä_QVd0Øøp[ªήÿbCpcIœ-úḡTe,síÕÅ [_>üíïï6fKʸS×;\Ÿ ô#:ŽÍÞ³•F϶®¹Cwa¢¥ŽûªóMí8Qñ0²(>š„ᨚ§E- Ñ*‰Þn ICœî¦E\ÙRÂŒн3?¶sPo¨ÒÃ`›G|õxí§ö`j"qø4Ú Rç¶ïí®64&XÍ@”lQ ÏÉô»ÛDàùéBÎk4ãi‡ Š´CAœÌO½¡¥ÁB¨8IÆÖ™ª7ºêlxàÛ³ž¨™M~Alı ²oy?ï‡ñ`ýLh66ñ)… ˆ*“X“Vü¸¡7i’yn‘¾ƒ=.Ô*…J¸¯óØv…UBøô:§é‚Ñ,Rÿ£-Ú‚Ç÷ Ã’Èc‘ä,ƒŒ Ðuòýè<6P¡0fÏ8€ÉæpQosH<øÖÙ¶Ū _<¼ø·Iˆ˜ð ÷s¤g¨+ÉÚ<”¦ ¾ØØx6ºMÔëC5`HhH@Hç¡B·™Ð h‡n2Djl]hÐ ÷Y ýD´…@¦ß2UÀ™B¯hN…¿ÛR€©Üw˜77¡„RêŠÎf:VR¾²r«¬”VåÅ6H¤qRæ³Î’I,Ò°"#E$Á\KpÔeù%¤¼fz°¼T¯ÚžœÁ.+®¢„΋Ðø¤ÜäYßeª¸+„à>;B+,ÂÄþ,ª«,–¯³H矤qQ«|$LHÖʉKByàòJ—»ÎL[ú â]@èô–†Àã ž ŠÉpt†CptŸðæå”–n0[ À$Î×µãã½TQ" ŠkT£Í@MàFR™>JÊ6*"™r¸ô ÂÐ1h­ïÔnÍ©|Q_hᚥÄÛ1M?bbHiH,ʵt…)ÉÕ vÀ¼zjá'Á:AO*D†9Ó"\Ó0lç0îíÎÖv¸Üf©ó ZŽ`:YUÌ8× *K>zcÔDÈæã4\eÒ§µLôz4 …4zçôˆ'ðj´XqV#lvÒ6<àßï>U§smúß3îà|ÛÆOAÇàµUŸ€±J~-6BŠ6«zò—ÞcÍS¦ÙدÛq!'°uèZJ,êaU ‹ZN.ˆöI…rJáë¥77hš©”ä6¡ מÜ)´sQâ@_©ø„«6Ô)4/}®Ê•Xá–å2od!ðŠ3ˆ2 ®Ž å«8è5†@Ýî¹–™ ªñÁë9–à[`áõÌC%Ií'Sab•y¨Ä{Ž$Yð ærØRØÙÍÕVxkOÍe| Ê<*ñ&öQ ¶µ[âŠ>/1[ ðˆhýi4[º‰ºL6-Q“ÓUs¥äDP§;*Ð%ź„enZÝÑ«@ z±@KZ¼»¤ð¬„äE˜O‘Ð: .!¡H{ª“ÄE>9¯gTS4”8äœz© õ¢t3TT–h(û”Ï >vTië]hƒõŠ†E„Hìxv^F¹`‡(σôjmX¾ìz°wu<{,ÏJŒZ;4\YªLïsÍ]Á8ß‘1ì4IPH߶˵ÄÅ/$‰Üma–O\*vñÄ$»0k{s%Ÿ»ê!|Rå»…uçA&a.+% $…|­j ž¼” Ç ÓM6öS*Nrµô5YEKš³!¤¶ó¯\@J¿Ò­Ïìg[ªlÍUJËóóÓš½Y„FziXˆ….>âÆ®éWýÃ8ŒÂ7†œK¼zUKQqCxiuÅÍŸ×WIt¹:o¾:þŽ`¢xÎÄÇGºæU}Gicð-È/‚¨Ú}âœS•so®g\¨7:ê®^,B Þ™YÖ¨ÎÏV/›)Þ¾í`ÙsÛðáÐeT á`ζ©8ÜÁ\&¦:{ô³_ §ê̤ñÚH¨ÈÔE¦H#qWÞ‹Üp*ApµÄ‡¾Ð’D®ñ¤T4ÀÜëÉ9¸ —Y]ýC‹áÜדzûó:ÓÅ'ßÇÑÛ´B»ý…êÔŽ˜F+]rS—n/ÍøÑÞ{h¼rë¹ëòo ºŒ*­KF]úëz˜&\júì].çe¶Ä©Ù%n!Άé¸úatµ@Õ\«ãXx60cg~0{¾kMAKC±ˆUïǺò°ËWªð¤Û¤@Qˆ°ü„“>3«”Ch鯗π[‹àJSafK T~L² B·Š¢›ºu©3~¶'þävOd 6ƒ+”Á )~›nk€æÛnokr_)À¹œïƒÙ÷AÓ¶ïÓX{,ÔÒâ·ËMÐÕwó,WE-×é%ÕžŠBñe(¡»§÷пPð9ý {ýïX…zÅ6iLEÝ6ô ›¿þ@½üŸT°mg˜/‡>æ°ùgö}¡«ƒ?ô³smÝ/Aÿ‚ìN¶ñƒØ_T$Ñ#Æ1„å8™s:Üm_dß>Õî]†ÃUý–<•Œå,ÏoßnõñO_:Œb–¾pÎœÇÿ’Órñs¦Ó×|×ê*þÔàå›vOûvËLüÙ)ü›L¼{xó_âÑZ› endstream endobj 2764 0 obj << /Length 3038 /Filter /FlateDecode >> stream xÚÍZëܶÿî¿bôƒ¸¥Å‡()¨8iœ¤¨Û:½¶’ЭxwJ´ÒZœ¯}g8¤{Ü󃢅/5¤¨á<3¼xs³‰7ß¼øòòÅË7šor–k¡7—×ÇL*½I9gZæ›ËróCt4ÝaL?lÿuùÇ—o’tñ‚Ì5Kó¶³KyÎqÑ‹Ø}a³“)gIžmv"…—$-»¼5ÛT2º›ýPµ >‰¨¨û–èw[Gm÷KOwÕpKu»/ð…]¿/jC³‡¶4uOó?ÆIÜ㘀,ÛtÈ ¿ÿN,åâB*Ƶöè›juˆÓ#gLd¿pÝvôåÒ EU;†éD2êÇýí’I`3Üå!˜R už$´Û_­¨ '’\D(öž†wU]ãHFíqÓW†~÷E×U¦¤évˆJ¼á²ÖÊ÷³’ÏgA¹hJx±ÂŠcÑ [õnÓëÕî@t–x}ˆoÛ­H¢;ƒÿÿºåIdº­Š£‹íN$qÔ´ƒ¡Ñp[ 4:ÎÇÞ]=É_}×Ó èÌô²£lE ›Ã@èÅUíæí‰qpj'H#0gÅz¡R˜f"æð«Áüã[L=š•1œ1 ŽŠÌ˜ÎèÝ× Wð…¨½úÙìÇV‚HÛ×Eß+KGI3åíê³É똳ÉÏî—+¦UâßapNøõ®Ó¯W=Ñ ú©+Tíà8j°Ý¦jnèy  PœuMÊœæöíáØ6¦úÏOœdu˜øS"‡AÎáüþøkQ?æZ©fùìZÇ)T`݇4¹°´`2&óÀ–Ü ÊðQ^ÝgwRZ ? 7•D!ÈkŽêÎ=8¤.ÉžŒÂY0OàÇnù˜€`ðdí¾Šü“è<úK㎲/w *,`4öÏáŠ+–ðIÖúcJ2‘N–1¸/¶Wˆ­Hð2IY 6°y·®ŽÇJŧ‚‡Ï³.ï í¡¶–:‰Ôø¬´x ×BoÊ¢+iÓu«íê)œÓ"—¨ÝF @ãW£¾qêÄ“ÁÌ–žì€ Fˆê;É: B˜Xè\ÆAê è³Ú´Ûù êv¼q“Ä|Ê}²Š¥”LÆédx°å£*†šì.PRÈT²¼‹j '­?cñóŒr"Í—Þ ¶½T QȾ¬ÿéÌ®\•’@ð¥$ A”¶’Â7:SìÝ+ K,Ô¨fk| Á™zQÌÕþÃ×´Ád<~q_ÝìBÁ·©¬ÁÖR¤HmØ®˜a$?¾ìDè˜édÉn…ZÖ>P²©9 Ø?¯¸_ô9­È– e©ž´'¡˶-ážxŸ3Éꃒ/ ä—À~|ÑÏW=mæªä{zêE]c,‡ý®!ãÕ~¬ _JKå`ÎNd ,€:n‚ð™{Å9(FBãk_¶v/‹ŽmßW‘Dnu5P[f×W¥)½(²uõƒ:VAR ½~F\"¬ŒOå•­ÄŸÎøÕv§„ŒBj1|Ò%'Ë‚äáü”Ïaû‰,è Òª‹bJsNbåØ\ªï‰â®j‰Ò*ù-¶åQ3ÚÎn·Itla¦§Ý`!¤—$‡à³0{.Ê…ÇL.t?ü6÷ãÄ5È93RLgòq¯Ó±\¹H£p‚­MáelÞÔ¢Mɘ¥ ¢µªZDœ"Ò˜Íy¾AÏ%œ:7"Eê3¸§N>ˆµƒ³|áo¸nö7œ;ãováªÛk¯=…[0 ;OÐ!˜¼O€¬dh²0‹3)‰tFð<æLHþˆóP›5ü ùÉ"Òs 0Yù/~—Å\§ÄÍ´by*žÉAòQPþ€ÇƒERø}×®¦(c"­£BÒ‰­¡_Ò¯˜[@ðÜU\ç2;é:9z™MõÞö»8ZX/,HçÝ×øIL—…)RàȵHqUKk|¤ £¹IŠ8})ì¡H¥K”~Td öŸîè¡ èé›…zÝgÔsPû¡öWŒ%½ZCAtB’Úª IåCgîÅwæ̈ÛMHžé‹l€üGÒ?>µW=V²ˆÍm{CxÎ$÷ÆÙÓÓ¡ø…è,Å’eó­Î¯ÂGèÉ áD!;±—¨nÉïÏî²èUT½í¦î’DF—Û Ãßž¡*éÇ®[>¸ó”£+„,Ž ©[*#gð†ÈÇÎì«ž,Lº’&în«½" pÛ7†57¦ŒD‚‡ÙÎÀ½Å#øH£÷ßZÜð²ÔÖöXâ»!”ø›wÏæËh¢¿Ùn{6þŽv¤2 fJîIã½®ó²ÙjùÒË:Ž½ñš¦mÓ¹²¨C[éøåðBšÎc–Í…/^ÍumºyÇûôÉ°\„±ØUA~UjiCxSŲ¹zá½›ÔÆãÈ ½Yáe;VñðÃa D½;ì- (H_¿+Û¬Ž™cÿp²jj>æÕ=]L–€[á“ÅX„‹‘h³ 9w´cº‚ÇÑÂ'ˆ0Gæˆ1Ü÷ƒ)Êé¶6àÍ(Ÿ¹[Ô¿ïðó±D~¾Çø´²þâ…WÆJ& ™ ­¼Ì…ÆÃ`"Ñ ëít›RÃ5‹=‡=ç®Å›×ú[¨• eS>Ÿæ‚ö»sûºNéi¿,a|®´N`Ï8ŸÕþìèç*Ïr&ò gPn¯5DPNfÀöû±+ö˜Xï‰bãJ¦\\‚+0 *Žƒí&³…‡­K„ëÉäã¨S”9X‰ƒCñ¡:ŒbȦÀ¥=Úž'ò ©Ë]`BŠ„H,Eà“.J‚üK€jJè<ŽCœ‚{ÎAÕ9ÊÝÓH2^¢x³–è|=“yí¤‹sÁƒá8¶‡‚•öP ÆÝõIJe„{–?½»êq­æP/ûëËÿ1Üæç endstream endobj 2777 0 obj << /Length 2388 /Filter /FlateDecode >> stream xÚYmoÛ8þÞ_´ÀBbF$EQ*6‡ëîµÝÛ¢Hr»8\îƒ,ѶZY2$9‰÷×ß ‡’%WN²M€ˆ ‡Ãy挶:óÏÞ¿øåæÅÅ;¥Ïb‡"<»Yžqßg2Ï4ç,”ñÙMvö_Çbö¿›ïB>`•Z°@qd™¶¦ÞìZÓ´ÈúÂw+‰ŸKØIs¡(ij»6$_Ê¡*!pvÒÓªlëª ¶‘H3~àKê¼ÕncÊv6DìÝúÊÏ™açK„ ŒˆÖ¸,ò¦ÅY-Œï’bgÎgs¡|o“<ä­©‰ |B…,ê"›Í£@{oŠ¦1ìnçô½¼iw3¡¼Än ¬ãÃlœÍÁú±R$¥1I®M6›Kz˪Æ"1HùõÕ®Ìo’=}\Ç]UD(“º®pÍûY¨S3~3µwɤt,NÑÐKê5T¨½e·‡¼!¦4iŒU&ôªÒt´’Ì"”dQÍÒÖ¸E‚}Ú•ÿ^é@²XêSðfð\&éãpJÍÂöïóvM‹&ôpèí ½ÎýLMïí:)iÄQàÚ33®¼‡Ö”YÇè$Œ|ÂR¬'R€€"ÎT$Æ–*!ˆÈò4iž‚ìϽͮhóma?á„;TÁMYθï%iK o±§çý:O×4´šƒ˜‘æH_;÷yÖ:ÞjyôíhW ¦sjkwšTO èwz ¡±Š|(ÛË—{Ó¼<bQÅ{?À©A•Â%,ø…Э1oÑð Ó×H0©zoØ•y]Uæ;p!¢ã•‡6Ò¡ÆvBJ¶/“ `V{âµé¬¤…X—7Bg,)J\yKO (;X'Û­qcðQ÷9¡‡ Ô.ãíSÝ *zfu¾l{’µ9†ùëˆÐ‡L臓Ðh¦¹çKâ ‡U6Î|¨Fs2GÄýf‹ïÚuU£MšüŠðÈ…NÊŸ³È÷ªb¹šÑ1dpKÌB°šI×í"Ùa0#W™pÑX1õ[øùþnñÏiHóm]}5i˪zõ©Í‹€)妞“öL[D?tÃïý0`qÔÞuÛn›×÷÷÷¬[Ò¬ï –ÌG9”ä˜ÇO‚ c a¤®5¸2Kcsž)SÓü€ýßa,TE±IÊ ¤Þ¿ JÈ(òÞ0KÞOø{_êªI×ÉŒ{àºÜs?õÜôD˜xÇ®øj¦?fœs©<#–¼¥Qáî•žuRfÕ†Æf‰Q¸ó5D@ËΓ2)öMÞ8û„êtªú%¯`J§ÍòP˜x€?²öa¥&dĶ:€æKܱkU´·B„òÏ„Ë*Í|èñŽü'«rt• î30¿øÊ|ˆÚ¹ øCƒÂ+ˆeºÀÎã ‘UÌû¾ª2Ôýbí`(}ì“d‰xào#{jÅbÑw_0Lm‡ å«*à-Ö[ˆ[²´#&6{ÁJ HÎMK[ZûÓ†¾b‘BÒz¿­ 7f (!S‚Ì\g4ÑdÌù˜ˆcﳡZbeÿ6 Y¥þöÚõuà´#¹ÞÖP£!z”ò¬¬ )¦»Øú-_­ò²ÁmÅÊûˆ EáÀ˜ðr3ƒ†’9ŽŸm]m¶ ٨׎õ½{:»N÷b÷W×\s¯°]²QM‚A7ßhd-Ïf»«ój×tò|Qb÷èÞ—5ÆŽlÈôT¦ÚÀUmš°œ*¶Ô½‡^#èM‹±DõÌ•®O:¼4ÀE`ÇH?;„|N„q>1†c YL™† ÇÅØí¢É7Œk%¦bJp¹X}â¸2¾Íƒ~ …,èRGcî;ŒCøg»Ôu…Zó™ih–̓ð銮مÔǹIÔ×u›¤ß’•™‚O²AÔ'¸Õ®.m÷§mìQ\8¾q\thÛ,}]-Û{ˆtÛ9}o(­ìÿÙPËðï&SŽ0ÑÈÅc(G¡Ô_›†ÝùÐÄ侜LŸOÅj˜>§1w@»—ßoe(·æ¯y7ptÊ‚j(®o!‘—Ðrÿ5ÿdÒ¤gs›;¤÷)©o¡Ã-ç0hí¨—ø3°“êüKu9ćòKRÈ=•ð½qä;lsÈK(Î¥ß8Ä&%5Ù®F'Dºm0cÊÔD±‡¤M•™:CŠcµiéùƒ=ËdóQÕFëåãtsULÖq 5S‡ÂÓìSœ¾®à´I}eý’¼×qŽvøÉ@GšMÕ<x*ÌÇ1í§>äeŸ?'% 5ôTe›8¤M:¬r Ï7îI.&„s1Éï÷*µÅÞ†ØG“£ ñ©^M‚1ï•ÁÓ(¦BºËM–gT¸®÷%¶ yÓÕŸSXkÉ¢”Sí4ôº×€?«ü„¬ÃXÛ€ø1¬¡ø|­¨>*SÝ>Ç»1=>q]w ÄÛ¬É^ÿY§è£@½I¥Ÿ8FËpt±D'W§ÎrW¦-…öàˆŠ‰;¢¼Ä?Lw—8Ü:K'Ãõ‰ÃCó­–R%…öïùsÚÁ ¿có÷èÕÐ @îï5¡©}öjpªæ‡îi[<~G!œÁ¬uÖ|§©Rk4”iGý÷çk€êèp=g–Oª©¾S3ªá4¯èé®Yê$m¶dý†PvEÛ¸[éC?rt½Ö&‹ÂLžˆÑ‘‡‡á·Éf[œ8,kD , ú È#w'þêÕ+<Ä£ÿé®HZC¯Eµ¢õåv„ŽÛÐØ"d§U5lm[•t±‹¤µëßî’:OºC»­Ó>ìÙí$Ã;!äúyNOƒ97Å,´1IåúòåÕÕËs·h~Ùn«Æ½-à­4+÷–æ—éá[o‡o°Jr Ø"]u×7¨‰ëóèÈt:‡ïÊ;ÒÇ ým;1Ô’ *¿ÏÝÒwù‘Ãõ%MªEÓ?WÎPõ®|=5¿×”c@ŽP³d ÐC¾éî‘4àÀ§ÔkLËcïQ}.d@÷©8Í-kÅ*h`H\ù"/òv?ý ¥ÁÆO-zÌw>PôòæêßoOƒIœoK«ðÐx'¯ïÞÞ¼ø?9‘À½ endstream endobj 2786 0 obj << /Length 1147 /Filter /FlateDecode >> stream xÚ½WKoã6¾ûWÉ!YÔbD=­´¾M ès½§í(‰¶Ù¥E/I%Ný퉤,ùÕf‹.DCr8óÍ›¼•xßO¾]LîSìå(OÃÔ[,=(ŠS/Ã¥Qî-*ïýí– ÊfÓp$7ä͇ÅwI6¸å)Êòdvü8Z¦I`ÕÜ=F‘7î4n¹ý(›uì~›ah.]__¿ñ“ ¸Ý°­|º\ÒR+»%*Ê ùÌôÚPúYìO%ÑBZî߃$ …¼ÑÔìp¢™n*»"ueˆmSpV™¨ÍÆ %nã= ÷q€òÄ:AR+þß|Á­¦65ë'GË:7Ÿ¿¬Þpò«½>{©"šÌáß%õv;Ä(ÇÙ×êfSPih±4_¦[¿€uŽ¤Ÿ&©µ~)¤ó‡ùÒ)-¾-•›F<£©Ò§`F8l]§Qó+v54§Ã=s¸ ãOÂj”M}JAoàiHû€o·Rì؆¸˜‹š¿|}dXíô-)Q¬àôœ¿ÕHQZµ²qÅ_wóúÀ}’‚æª)YÁ8Ó/ç¼t”?g\×meç 9i—Ò¡-Ùq2è5=ãÈŠ)-YÑìwö©qºŒ.Å©"jíRl-$ûSÔšØâ嬦÷pD¡¨|r7žoèàû€«¾Ò¬ÜÇŸYè…èûa\óaj²ühȲ÷½†º"²rYÅnm¨h­Ú0÷šŸÀ8I—TÒº¤wuÃù±ÿ&çƒ!¤TÖôpË0ï_ïK8 XŽÂÕzÕ憤ÄPM]¹Öóš,cÊ¥•\ÁýKHôÚ5©.òêP­Û¨LZõµß%àÙʃªjåØ ´’ ­;´ þ\ÍË–'œFð×õ {´ãlcÎüdš´ÿÔê®ÿ ›äÑ•ì3ǧõŒ?º‚2í³·ŸŽ–áSCj({ˆä=˜·_jLÎEù™sòÿ˜7-ÅêÕAu(üK:®–ÂJFk­¾È´91X ¹yõònò°˜|š`¸x¸.†3ŒÂ<óÊÍäý‡À«à„£(ŸyÏëÆ‹áE™ÅÐÜ{;ùµ~»7)¼oR0.±¦Ê’øÜ›tðÜL“Ñõå3짿t“1L‚Û©^‹ÊÐ[⦗yc6~.þè*é¼í FI’¼ÆöÎÆ$=ñîq†BgãwT•’m]Ÿ>rÕÁ+¢èãÍlGxlêÒdck†æ»íÍÖ0³XšoɉRæ…?ŽA˜£GΉW½—®NüHbxÞ'ŽYŽ¡¹~„( 0ÈÍ3l8ß)²¢'-=¶|Œnl¹Kã·‘í46УBXš~á%YŸ.7'œóéàwÑHV£Y^åã4FÑ,ê²h4gv¶t_ÈŽ©ÁqÛ{rÇIÑï¶d[Ý! ²±h¢Ýü“¤VK» £•†‰èÔUlÅ´[”‚«ißrRW’UóÅoï,ã¶\ÏqînÑÝÆ£•¡¾«*ío\Vؽ endstream endobj 2797 0 obj << /Length 2201 /Filter /FlateDecode >> stream xÚÕË’ã¶ñ¾_¡Ú‹9U+ ðY.ìÄ›¬ÎÜìT™"!‰6*’ÚåëÓÀ‡¸i6>¸t`h4ýnÈß6þæï~xz÷ø1Œ7)K#mžöîûLÑ&æœE2Ý<›_<žÿ~úéñcÄ'¨2ôY ¤‘NU;°ü\Ÿ+ÖÕâ¿óÍ1pF4Ù¸µ;·"†IIû¿ï¸ïεj†~¶}ù}ü(å”åd³å ‹¢ó²èf$€lÎN§®=ue6˜ FZH9¹ÿº—ÿßu/ëB¨ºù²§¶/‰;É#%½á{È?ÂÖyq}(ó?ª³îž²¦ ¹¼í:ÕŸÚ¦(›MàU…â ýT‹ '—â’Rºð¸0ò/ ÏI—8B9"ÈÞ©¤ã fkˆwirÆ»ôèkÂËÐeM¿¿]êí ùË*ôòÔË  JLA„3‰‰阃4}¦áeÄ$Ú®6CŠ5)È¢­t%¸ªÊ̬§¥_ýÐWìÀÖ²ð"ôõïÔËi%}Ó¹KýßZÙZk®úö•ògó )çZ€@ 8ä7¸Zc4ëd&c]éÜ«âu½r(aâ4œ+6{»fá/4®õ…+N³>£f§˜Íê!jë—ˆkíçïPköª^Ãäüõõ*9‹ãhá°Ywèßä¯á\«†F©Âü»Ëë`¼§ HŒ<+¦A¨ ]mÃÓÝ?õwiÊbÎ52t¥ZÖ!jXĉEð'×,y[Ýá«S+䩤W €„³C=MË«ÛNÑ Óv=Á{»ü¹ìÏYUþG׉¸¢e@ eÐä&k‚^C ॉB€¢ó\ ohƒ]YÜ.‚ª=”¹Ž." ÍÀw N0x>*ý<¢}ô„j‚Âèã© ´1¡Hæ€~g3ô9E ¯£ÄŒ}´˜×bA“Õoh!NùñŽ´*E ×¼Ô»¶"Xß ¾¥ñ&‰ð~¸ÐL¡öh6(Ý)ÑEˆ¥ŽO•¬€–—]®` ˆXa¨áKÉÍOk U)±ó)›×³¤Öˆ»¨@á Îoí>©¤1—8¥µ7˜c®îxÒtb†0 ƒýË òº«2HºÚ_!³ÝÏKõ|g”²Åp¼?1Æî(Œ-+1fûì: è4(îe,ˆ€yU[}z^¾4ΟœŸ(ä³& ¬T»'d‚YF%ˆú³ÀE<ƒ0XB&v™DÒµ5Mg†ðJÄÃùn°Í tºô”a‡¡1y|†Yûø¼Œ &ßæ8<`QÞþ&3™Žnc$ÅÈcÁüˆ´Ç¡ GŒ#¥*ñÊÏ=- £n Uh›Yaz/™bXmD|Ü`± ¶(Cd—UÕcö |7>˜=íyÈ!ßêRAs£;²)¦õZ‘«®?6¡Zeý¹3Ìiø…D¡ºö U³ÔЗNñWýàd9_ŒW-CS¡ü9=Ëíq¶¶¤øåF1¼éß„É(ÿýÀÿX @G2Ôá^†É<Ük |úS"àcý%ÍßPñ…‰ÜHɆ)±ÂJÂ|ÀÞN°t)X“ÒÏñ©y–7:EÀ•íS-ê'CÇT´õîöp;ƒgÌATüõ½„8v‘ëÓÚ­8¸Ãÿ¸五Aê¡ OÂàsÙ+ÌŸ êÚò G µ“È’›Ð3¦r€)NfjZo®TÒP§Òýæþ)ºvwÁÅôß> stream xÚW[›F~÷¯@ÎClÉÌÎÃ¥ UÓ6[5RÕvwÓ>$©4†±Í€½ûï{æ†ÁË&m^Ì\Îœëw.ÆÎÖÁÎ/³ïfW×!q”„^èÜm‚1òƒÐ‰A¡Ÿ8w¹ó~Q—U‹¶•Ø¡fÏ–ïÞ^]ÓhðÈOB% °Tä$¡’h† Ô®%w½}ýèõ’âE×îªæ¦XÀ10Š&1°Á( ª/c¼¨ÊÍvIì°]º°ýkâEÁ³]»foô¡£mñýÄ"?ö¬)¯NÇõ{Þ²MÕ¸uSÝó¬EU³ý~Â Ä ^æéJ«"8ÀNÚ›å4b$3@ILì»]ÛÖ⻫«Óé„¬ä¥ Ä_ºw¤v¤†t$2Ú^D!B1¡°ðLnøüCâ?d\|K.}`ð„àB“x ´tý(VÎ÷0ÁZ;7„›ŸªCÞem!ƒæGÑBÚî²+h¢^}u£?§¢Ýé‹vÇÏÀaú´fÙ'¶åÆú bƒ8¶Nz»ôè¢ê¦ùTù|cè\H‡„RM}Û²¶m‘Ij ¥ÛjÓžX³ô£ŸF!°„‹‹`Œà‡<•)ç˜b_ºn¥å“ž1š€sà!‚½KlåU!atE0"qèGW÷B #öCT` ,„z( ,žñçZþëRT“X‘pÇ(Vè7˧è¿DPÖí»òK‡²á'}ìT¸¥ r±é€£ê`Ž+ýÍ4¾ô†™3) ‚)Ã\º0Ø+ÄdöTé0Jž7l_—ϤÍÓ4'ÄÀ0 ¬H‚"ËëÅ‹2éAEVfRG®·eµÕ‹¦ŸÌ ¨„^³CnžUMÃE 6«„’GBj×)˜MrÐÈ,$Ô„ g­¦zåê/R‰»=g¢kx:¿¹™¯ŒÐ"mëJ˜Ýv¾5»¬H³ó]»óHa)ü u¶µõ^jâA®?Æ~hÀ´jïòÍj ±v_弜ҿáb¬?ô-©ücaD‹ žÈ.ã` r4ADI ²Dɵ£\TM.;ŽZnô·îÖ% QyðÈY3T`hŠ`DZ)J) Œ\ d¤—\&Ý([ùXíDå¶Ø÷Pë±Ô²îÏ<:Zc€’Oé+¨ÎŽ_U¦(ËN´M/QT{ë5ð_óDãZºL|EªñÉ#{(D:ÿÕ³(},‹}ª ŒW0å˜ò©Ll‰MÊjsðp&E]aD©&—’=¨„$‹/OyJ-âùCJP¿«J¡YÍ· ç‡ùj¾.;Ÿ†çsɵŸtÞÜÍ>ψ*”¤ŸÃ¼Š‚çdûÙûØÉálW¥ç¤(÷N­) do(ÛÙŸÏ5ë /˜ê)pÀÁ3³Þ bZ(!Þ°ký¡Â$‹ço¦¸Ü”b[œ_Z–/õþ÷õ½Êãç § ¢ Ôÿ°\Y8*Ó=3€_H…?C1k …¥op®'»KÝ›_ËôfcMÉ„˜hÏÄ+IßØçÖKó‰ H`^ëI'»™Î‡õ¨-½0ý÷žô¼å6moý¾ª@˵ ´üÙÒhôÇ‚Àtõpy95« ñ4þ»1båƒ#è9Á¼’ÀÌåç6[$Lnîx;,u¶KIxÎb[\»öœË¶ã•õŽÙ~§ª¯© `ŽÆRe1” [bv0A¦w7ïÞػ˃Ý.ðZ! gŸÄª/}þ,¿‡"jè Ù[óÒ6„г¨ ûþ𵆉 endstream endobj 2718 0 obj << /Type /ObjStm /N 100 /First 982 /Length 2282 /Filter /FlateDecode >> stream xÚÍZQo7~ׯ ЗöÁ\’CÉÂ(à6ð]+sr¸¶qPíuâ;Kë“VIûïïJkK±e­”µ¯@bŒ´ÃápøÍ7¤g£Œrœ­²Ä"8å¢Çã•·F„ ‚Ï"°âD"D•œSŒÇ™Eß:e ¾…D2ÃLRÖú Ï<$‚„‡ŽŠ>C*/µ¸b'CŠ2Âa¬ObAÞ±èái2<ÂS£l.ovVì°HPv>‰eJ2‡?ADeb׉r–±„9f™z$¼%'ñœ"ã"lA*vÉ+‚û26Bâ2’K‘°ŠH¦Áj~;Ä„|‰$eEAœµo ,¶¼QÄÖ‰†ÄcL…b,^—­XðNyS¢±Þ–Hù¨<9YLÔSñ*Þ[ñ=HeŽ+ ÁFÀX–€Ä”/áŠoŽÅÆÓ¼|jU0IÆV™xW¸%RR!ÈÔbÈ*pبM‚ ¸ÁÆ˼”MŸ9"4$þ±¤K‰mÄS²b­b_Þb¶26â;Q„Ùʪ!üÈ='œ/O“BäÄ—˜â%ïƒCˆ¡Ø…!ÄAì"y0çb7@Êb %ÝU䢗‡‰ÍH^³ Dì'ØÊYl!ÒrŽ™U²,–$QÉ l¥äCyjUBXDr*­’ z‰eÅñª”‹'ØÙ`‰]2ØJ&¥eRf‹dÃw\™e¯2Iô’±*¤Š½‡™à«¨rÉâ„M’¼Ñññ¨zûÇm­ª“é´iGÕ›Åomùü·ëéFÕ÷Í첞½“oΫ¿V?V?¼³åè:«/ZõÎÚ¨±nÌN;d• ^KBstµu|¬ª7ªúKó¶QÕ+õõÙÕTÏ&c½˜^£¾ûn„ø¢Î†îÉYGϽy3™ ç‰sF§x Š–ÝÔÇ“ÉÇ#²Z :!¹¬ÏÚ‘l$¯‘ž[ݸºnÛúR¼Î¢¨­ä{ š­²6ض.³.oõåý¬¾Î €@Že£ ;È{Ò`d£ÕO›ãaâL@¤diÂá¼Õ¥Ä".ˆÕVOngõåõEû¹/¯ðÂhÅÜ™ª~þåW…Ü'ä>ê™@„éâææ|«2êqÑæŒÅA‚ôÔvÈnà|?m…÷Ñ>6%íP5úiSv:ùÞÚ>jïúj;2Ú®7´O›i[óõÑ»vÊR@Ãêj(êïêòÁ£š¬Ô n”x_õzÖ\¼©‘@ªzýêTUoëß[u¾™“¯ÇïëQõÌÖÓv.,$ËxI½y³˜]Ôó%3)ßý„„ßü®J¶–:WvÂëñ £…’„¥bÉô9 †%þ‚µœéÛ ®¨|'„Nà"œ´»½ÑŒ…Û¦£ƒdµÅ Æ‚²F ÷…ÒÂsø„Œ2yÍœ_bxï…8u®$Öäv»²c6œyÌ:X«²kÖØ ´1£€2i°ó» •ùT'ÇÇÅBurÑ^7ÓêMõ³åÿ×ÚövþmU}úôIOêv|ÕÌŽngÍ¿aE7³÷ß \-½g¥5Yñðcl|I“t°÷Ž8Á®#Cól ”ï=AH¤¡èáÈ3Ðt4:€ìZÐ'=ŒCzSzÑdAß¹"|­ÙNWžªÚ.íQµ×•»š¨•‰}µ’ÖÚžÚ>Ym¹¯6elíÏùÃ}õÛ,xë¥p£àm”µêW‚¤U59¸RzX ‰÷+…ëq ¸Çò­+wA“6Å™gÒ”$ÄóY´± ­;€êl,öÚ’~¶Økipðb{~¸ØÞÎ{|Gn|Gn< Ê`¸ÞWбQBíAŒ‰\`—ø¥º¤Â„öÕ›ˆ~ÞDÒ Íõì(7°s–S¥ ¶‚E –´I`1hœ‚ßîjñ¬iÚ8ëÃu]ywwô˜vÀÂàzj;%rnï6v_i¿h3ÿp3-­†œú-ÈÞ˜²“µ™W§ øÂÝ£âÝø(§†6\üH¬Ø<¡žÀ;¡ëÅB׋±“@=µ½KW•ÐÚ¶Aˆig[58/&“µ¨Â(بGgt–“ntÿ‰é òu=mõm=›,ÚzÞï˜àe’Naå˜àeÜí×ES_=¯[h‡e˯ÜÐD°yuëu6OÕ›fŸpíî=À Éi‘89Ã>*ËÕ…a$TÞ¿¼˜‘^ë=`uÙ\T§'¯ÎŽðWh'7_ýóÃG—M=ŸþËÛ£³£öÞ¿õ¼>š.&¿Õ³ùöÜQýßÅøZt5X/IØA®ÉÖ1e—4E9E%¥¼wíbÚ£v­+ßÕ.BcOm9!‹œ†äñ0Œ=Â1>ÀäƒÑ6ƇhÃáhËÚÆîT+Þ}Ó¿ØjE?$ÚºŒÎRîK‘9Ѹrr3ÉÈ6¼Oæz^ƒœÝŸ×$Ö\ºý?çy 3'¹ü]× ú¾ä½ÓÊ°eS.¡—Ç„¯sŒÿ¿²dåöÉѽc ›Üïrl?üß]ЈÙ_rÂnÊùÓ~í®—Ð:‚× +וï°> stream xÚÕËŽã¸ñ>_aÌI Œ9õ>î"ÝÙ ’Cv:È!›-ѶvdÉ‘¨tûï·È*RÖNÛ‚`áƒÈb±X¬wÑþæ°ñ7þðãó‡ÏOqºÉYžðdó¼ß¾ÏÂ(Ù¤AÀ’0ß<—›yAž<üûù/ŸŸ’`‚Æ Ë£¤sÝ*vhû#ëNB£ðé8"™ìÛÚ[ž0Äí?tlT?Û¾ü~~ Ã)ÇÙfd,ÉÎëòèéíR88ã–cÑ¡Q Dݵ])»Zö=Îñ}^×ƹa[QuE-q¥êñ’¬ø«”×»>Ï–¥¡»E[-ÃãâÖ[»cf}N%­ñ žUÕ6ý÷OBœÉ½7Y'i8Qj3x=‹¦‡ƒÉVŒ€ üűw;/ípC¬Â ÍM”z IÃÐÁ$¢ˆ c¼Šl¼h3œvÓd € Ú †Ò¡ …À“ ÐNNP¡‚WY.àu%ÇÛ¯¨¹yþ¢ sdJÛ™,µ-F×»^G‚å¢mt~!Ïm˜í#1fžè©ì„–ÄKƒÓŠ¾‚V+rÛ·ÇÕ\»dhpÒ¬:¶=EŒ¦¥€1ãÒà2•ÜcÀÊ}ÏrW¹ –Ц¹KÑ"º¾¡)¸µØº¨ÁÓq³"„¡Yª0™¸óRŽF5aLU£§•ùúÞ®Å7Œ›Û(½e³ìƒ¡‹öä-Ë”1?r8:bé“tÄ6CžŒq^ÃÍÝ{ä¢?¶C]"|G Ï N¬ Ñfkn»¦Xòù¥ÊS¯3V›¥G᫹ңŒB€F?èÌÂ`Õ’¥ ?Lë°i a»z tŒ“Ü÷¶kÚy©zù~ÒZ³VQŸâ.{Í"Ú CHZ[û3XIShó¸ µŸ ºDhEY)„£qfhœ>‚¡ðjºj“Çgg(:ä´¢ÊåDĤñŸ$d å •Õoœ`öCS(—H§¡²#ª5„EL²«i»»üíZÁ|~—ZüÀ„‘‡À³‘ .’ÀØðìû“H¢æξï" ÀL$ñ­<€\õÅÕ`\¡(8µ=tâDø¢ëÙš¹~•ÊÉo¥xŽY”¸>å釿~}|· ´ŠhO•Zh‘¸~§žÓõjεðZW§ëuðº¯Æ.’Ѓ•êµ­EÚZÂßÚZb³9ì˜Ø ’­Ü!Œä9‘'„–¶´'ÂtV¸"yg“w”Y—›Äqùߊãòÿ‡mìÁ_-º=T…öÐ ç†KýÕŸ1n¨ç/ЄšzXO~ô1äTf ¥¸ ǧa“œ¬§&ÌšcŽ„`ŒêqêÚ'³yl*ÖDT­½:äÄ]“øüó?¯“L&Û{-•Ÿ@Ú_¸àå$äËUÈÇÚVè:dW:´†³ôS}cìëtæ׶é£Ì¾c…Ó}²ßtܸQÑš(°¯·^ƒ£¬G…ˆŽ¢[´:Ô|Œ=üRÖC²QNþª)œø”ÑM óà!éâk Ö>ôØ5–œj[5v6R‡ëD\ŸÖ\¦.æh×q5jé§ê_D3?¾ÎNoi»NŠoý}Õ ÔPtdôbª!Ü;‹žÊc¨ übÊ¿î±!à$ygÞïÅÎYÊÝû/›ºjÛž pnKOl\­Ü“’Ĥ)A{Àã¹ìÛ¬+5~Ço+ÈÑîïê ùRÑDé â7ê aw…V©³©º|¿0e<]¨A³f.F ­ÕC¤«Ä¦|©JuD8ö¯n{ßtÀ˜ö>Û Yê'se4’u,‡øÂ'ž„’N!ÖÓ1øØgD”}Ž_hS'{¾Í¸jì{ag_ N-x/\ï>µ×/å}~NB2Xî¢ã2q¾c±?º€®Ëi@ê:âÌè ³¡vX1–GWºjÚF~fêùµ·—µê>ð›{%§¥,Jù…½æþJGË#–äñBâb'ëû‚yªš9@ðÙ6›þ»Ùg¯l,ßõÞ†ž¾. ±cÆ.‘ÂØù/ŒÿâQ×?ØæËb×NEÕ½ó^Kf-µUÃx¹©&q²^ô&&¢Av•€¼Ÿ;ÏøÚV¥¬ßÙ ,®«^ïó'ÆØ ª¡§zŦ`ùoaái:.¦ø“T¢ª×ÿ&|ó¸5û{ðIçjÌT ýû€cý\kê ZèS½y‡²¯{°2i”`fs?ÑøÅ oF/…Y2Ò2ÇãÐ:<²ôêëê3ÔØ’‰Ãh½jL©•ØƒB¿ÂR[7þ½–P܇ïòo8èàlèˆL›?Ì/ÓUkqí@(ô gúÏÄûÉ&éuu=>ø P‘φ endstream endobj 2831 0 obj << /Length 2001 /Filter /FlateDecode >> stream xÚ­XmoÛ8þž_a´ÀBb†¤Þ‹õá²½¤M±{=عÛ×û@Ë´ÅF–¼¢”—3$¥HŽ’-‡"Õ93ϼÐt¶ŸÑÙ§³_nÏ.®#6KIñhv»›1J‰D³˜1ùéìv;û·w,ª†ì+“ú æÿ¹ýrqƃM~‘8MA¤agiŒLgÔ2[øqb<†M¾e«vóOB¯É%WK}”Y£æ<ôîç,ôÜüVé¦V›9§^Û¨ªÔvß7ÒÕä–énΨ'ëRvu+K­š'»(u£¢‘n§n²V‡c¥å¤0Ë$jé–ó ¯ðPÚyUžÜó j¼Ë•`ª4 ­R{e®R{½\–Ö^¾?°W‘ ‰:s=æ ßòvõÏ« Ó†œø4èXE¹Ç"’Ľ¸§·Ä)I˜ß±¢îÄh±`QH‚<ÄÀS!·ë×脪ž/üˆy‡j+ mikv?âf¶MUës˜Hk%\Ùµe†Þ²;¶µ@aN€°‰¦‘îD™;J€¿­˜g/ã J·Ð‚$™Õˆ0K®>ØÅç  ;mBÕzÌã{H{öîþ ÆF~ÎÇþFûIìÔ"ËU¥¥Rè¶v –3òr W{YJO\B·BŠ,räó»#*¹C€~£”gJ–&óE ˆü ž¯öµ8è—B&°zBD­Ä¦ÀÈðyj|ÐH¼Om@àì p(ŠªÜ[Ò^x·Jì«Rˆ‚ íøÄq—8Ä% 1÷í¥"ó‹ÈŸPcÍçÞe=g‰·ohœ©ˆ¡‡ú0x,Ôa"V¼‡Ãù„˜0ÖÇæÓÿEŠIbx@R?‹YðÈ%pNh:NSc{o›ûl€aº‹¨§öeUË­9*ðrUH» Ʋ­$àä<Ÿ2 'aØ׋L”.Àb`€¹w#m>m5⩦²ß¬:¡fè ‰l0rÌjî6äRíóÆÒ¦Ö §j LS? ÒOvZ¤§W4Ð ²'h&öò—s¼y“W5æ1Ýå’>½’‰P gÄ™óû<ŠÝ~ÛÝè_sô’Ìòf#ZL¢]Õ™pJ?é}òóÃýæ¯Ùˆ]U/Žuõª.©êý_&]Ð÷G>£$6yÓ¯#_¦_@lÂz4ÍQ¸¸xxx ÝÉó\xpü[¹™… Ž¥/*שü4† :/Ä–{%wÒ€V–™Ôÿ‹¾wªÄPH¸wCñ7‘‹M-s3ôa¾qä}éÖ²ãÛ¹zµº…š3żJå¶ÝÎãÀs[/Í׶6œ2nÕ4uõÓ×õg»¸°¼Â~ Ýs•‰Â×ÇB<ÙA=ìÐM»uS¶úL·.®$E¡çL…Ãj z­¤–|¨FX×]ì­ŸJˆ­\4ý&ù[=…*È/ÓâÈ•#øøS½ 0ð ¨æ:·Gs|ãp_î“©”D§ØÜV axÁ(6˜_|¯õ¨pêp@G@¤ÙQÃt’E/4…N9z:áλÔy7‚•U¹m¡Ý0u5ÆΡ YæI›â»° Å¥•ý¸ w—Û´3íÌEv'örÒ“pl$ú_0ãUm]"†PÀÆõ;–o„’u#Èqèój×F'ÌSK=6O}h›§N»ûS5Ï{ UX¾»ºz÷§êî”óÁõÕð:VÍêDoxjµ)Ht»Ñ²Ó/…¡¤èáéCͺÃÿ^¹Ãë¶ü0ŨÅýظxØÆ) =ï~#êåõå¯ë«êƧ8w!Š´?#-™¼§ÛVËmgUv*›´ðÂMÞ¡Ú"Cž„̦håHÖ[çþÙòqp„ëL‘dѳWL&:…¦AðkîAs˜'–¸wF®ÚfÉ"7€6]Üé%´u¯£Ër^•ø“ ºùÕWÛÕíÙgoñ endstream endobj 2843 0 obj << /Length 1999 /Filter /FlateDecode >> stream xÚµYY“ã4~Ÿ_ႇuª6–,TÍÃ.»CAqÏðTá8šÄà؃ålvøõ´º%_ã²)¨<¨Õ:»ûëCNàí¼ÀûòêõÝÕg72ñ2–Å<öîî½0˜ˆb/ C‹Ì»Ûz¿øa–®~»ûú³›8MQ¸Œa#œôP5+ë_ƒ@°ö³c]šEW=ëíÝÕ_W!öÇÄIÄ¢8ñŠÃÕ/¿Þ¿ö`(K½N=xÜ$‰Еw{õc¿ß¼EY„Ë,ŽB/– ãÉ-ï«Å;‚„r²gY: €µ«5—ÿ­êöÍ–èû¦%âÅTøÄý~ó‡*:Ç,« ŠàÀÑY-^°Z NdJ×}£tÑ–]ÙÔ!a§–O½u˜1!ìò›c]àZ£k¨}èuÐXÁ¨sOmQåZV¦¦à“¡pšüdlOhþä2qÆ@ŸÎ쌱Èkøq R N3ÖùN-JûTúégÒúéj-ƒÀ¿Ô¬Å 7ÄHÚ$œà&b2éqóbA!ÑXs<ζ“ Œ$~n·u˜Àݹ‘!d™”Ö dðþ%]×ôá¨ë»Ÿ~~;bmï7úúæÕ7·Žiµ:MxU³+šwv)\Àã ALÔU¾aº{¬ÔuèÖåú:p‡ûkî6»ž@´½¢©XÛc î.Y?ât<?¤ã_µ«0ðwǃª­Ã]hü÷³ 0fƒé¸³F^½ásôrШÅpp?µw¬;eVìT«ÇÄ YÓ9íËbO¤Q æ­!üÈDNµàÒÁ¶Í;§U,kš¹UŠÆ~£ª•~1Ë“h2CÔÇÆ.dœ¥i[¥šz[Ö»iÎéLl첑~”]J1€Ò¹KPÄ„Ê ¡˜*a„P Ü77¯ßÞ­2Ὼ¥üNÓ„Š0¶±‹(ÓAGÆà[Àæ"3È’}°Á¾EŒæO s Å8tPBÑp¨;"ôŠ0<ÃŒ =adÀ0 Àuà^Ñ€œ '(§xQB47JИ h£Uè7N±Pº44ªñfÈ™Øa€’±ÃÇÃÇæÇ‹ÐXô„côcô b ¯VæŽ'âm±ó®, ¸ -n ï<¨ZYªUØ ß¡K¶E’QÈz AÔõ{0¢ïO"!0áB™–¥ñYL¦|Î.‚gŠQid*R.° —‰6#¯6Þ.8ƒ$OŸØ.å&…"¿Í¡`Övk CoìxïئC•u‚n ÜÅ.„-fž ”o>ItAzNõ¡ŒX0÷‰¡ô;_ý£±‚úK¢ Â,L€L#2rqwä™cXvLúï×ù{ÐÒpUéÏA-©ðCšxMCº;ní¶”|VQàC±É!Ðrâ_»Ãú™¸ßˉEl ·¸9`Èͦµ^š“•E¿!qFü»¦SÄíöy·(4åP?{òì)ÿVúßýf)•À áB"ƒv'e `:5y½%BPƒéÚ!Ý+ήÊ]&îñ+\Ô£WŠ I´3üÙÖáY /ì\ó@.ˆ¢'É3å%h]LµG¦‚'zƒÖ“™ÔêþX7¯:ÕÖ˜/¢Š÷™Ñ›é–šZñ’j ªvçŸ0±s¹`ch§<ªU4ÓUÅ5ñéÔ¶Ã\³FžÔ¹fû ªÚb>–†²€›ÑãaÓ`´Uð@‰XѧþëGâŒrÎKâÐëW`åATQ¶Tg•¢.ª‰6ÛÚÝn? 8QÆ’á!õДó§ýLJOÐ`B肘ÅɃS%c4QƒŸÉ.Púfw¾Îé¬7éû¼Í‹‹‹ü³kɉÆÐŽg.$ÁÌM^ü¹k›£qtܨ©è(í3P:{Àä‘͆‡Å²Œ¯íóí+ûñâXãé&!P^Þ®Íûjƒfi÷%bóø¤0¹D›ø-è"•š'ÿH¥æ«Sij>®î¸s¸pªR³‘U)6׳9¡HÒƒYP¯—\[—[Õ:Ñ÷á#DÛ2¯ÎP÷°ðÿÑ6}k»HÙPÂŒ•mÃNÙölÚAÙîMŒ ­r$ÿ„Áª¬ñÃu ÏÉa³“‘°¡y6à€ûö5uíï^-%dÿ5zþÊ)í7=›^Ï°TN $Ó½-Çõ>ߪéçÀÿÔ{ÒŒEböüaŒ}„1Ý»&˜”n³8úóæ}š endstream endobj 2851 0 obj << /Length 3070 /Filter /FlateDecode >> stream xÚµZ[ÛÆ~ß_!HCÑx.œ!ÔEÇ$HÔ»mâ¥$J¢-‘^¬n~}Ï™3Cq(Ú޴胭áp.çú —/ö ¾øöæëû›g·F,2–i÷»…àœ©Ø,!˜QÙâ~»ø%z8Ö+«7œ+ÖœrÖWåò×ûïŸÝêd´Ue†%YÛM"ËpÑ wwÁj3Z½òËW2IE›¾)º¼<¶ÁÆÑãëDºX‰”™”vþ|(*"J©Ñ*i˜J¥§ )«Ýóû×ÿx5ÃÎX’¿øËåJu‡‚»¾Úte]ÑÕNV¼áš øOÐc±:úwW4U~<>Ò\ÛåÕ6o¶åïÅ–fš¢-·}~lí}Ê"/‡|s{ûÝýß/¥Žòã I_¬RÄF!–iM4÷££è%’èe]¿ûb©uÔⳉ¶%R²qËc»<öËM´©‘vº¯)q!Óä ñú²çXäK‰DÂÎbUWð¯ïHÊB*I™Ö‹ù W1­J†e‰J­*Xœª…bF8Î䌾f¤Kº¬*Ú®<å] s‘ÂI+LÁàáô@œ¸ÝëÇ©$åÑ¡Öû¢*ÊàÆŽF Öd[n¬>ÓÄž‘Œ6çn¡S&iL¦i†AopGzÙq.Êý¡kÙrs}·›³òL2“f¾Ý­ÛÙ¹‰Y#;O½§hqÎÀ”NXg¡H¾~u¿ÌTôMRÇ#.ð­¥ `Ð5šÎZ;<€ÈEãÖî:Æ`oˆ.²9•ÕžfˆÜžï Z¿9äÕÞÍ¢ŒÊyQhðøØ3‡b¨ŠóóÛ?Ü}ZNèp~íh´îŽì8‘ÎD,B‘´ÅCŽa)ãѶ@‘¼/7îùƒ”&šI“L }4!Œ(J3ƒÍ2.éý ‚’MÞP9ÊÍË–~»Ç‡rãÁIEícü‚o<žêÞ-9ƒÂÜÛ®ß>z`RÑ)w»ÖîÐ!xJÑ°Ááuøþ_Aú¢êÊüø…£dG¿Ö+à<´%ä¡ÁYIžõŽ~.×Çc2?;ãáÄ®iúâ« ˜,„b±w,åÂISJ.úe¥ÁÕîÉ#d”¯ÛúØwîi@dæOö^ø=æÍR¤ÑÞš7>“½Œ AHÌyªŠ9¢%Ó2™\8‰L©ôæ­¢óöTõ§µ7 kÎð{ª·ÅÑ…"° !'¸»©‹Á¦r&ŽQãšBƒ `&rPxIÕWù‚HËBÿXA°„|Á‚NjäSÜHÄ‘óR{•£€øj€’'ô Š‘$onƒŒè•ªFû¸ÔP3|Ä,KEÀP †‡Qí%ú-¤½<‰\äÇ¡u%ÅM­ñEœÝ6úq1äÀŦ£iŒëö(/|@gÁ•àmAS'å}ãipãE[È9:º×X×±§Š¹°¿©µ“’P¢Q.‰¿¹¤×ùU *‡°°ÞC»;ÎFÂÔNKý qÉß€Ü ÝþØ ê½¾9˃É~2þlæ^ šäÉLJ'ãŒq©]JçÔIî A håÀ§¥™mÑn­XÒ ²W¼ nªq›G§GúíüᘫÓ—÷ÁÜ¡nÊßëªC³Àç¦ØÙnÁ㱬 [œÈ,úΗo·%âó—ó™cš.Å]ªä¯¦%4Î…%4Π‘‰h¨¢•Ñ´d -Ñ4$ÄÁ¶Éñ¶sE´äM¯€t2bˆnÓã 7áJ”„È¢Ÿ*ªþ\Ì7ƒd‹ø£WsÅ6ÎŶ½„æeÀ!ceÀkä‹F”t$c®pšªÏHÓi>ä~ŽjCŽ¿O­òSH4yöÔ"ß|¬È®Æ7×5¾L„• HÆ„’AºI20¢â' $Ó¹ct“I2!€ŽøÿÉ]¿ØÞ:‘W®è”˜ÈLòAð4ŒÄçg«XKÒfæM+K½þ2§¿ìCú³¯fº0;ívÀ©®Û/ƒn‡âÙ,ÆZ˜±.ç…Rù¾ ¼ÐÎwôK©Øß­ôånzô‚S®hÇÍVF0ØP,´sÕv8yFÍ*¨æ ¡Í' ’˜4ó nA;V©gQO2QägG¿—LTÅÃä°ÍJ†ˆ6L§fÒ¥ðâb¤)k+±·8[‰­Œ_Qʃ°i§Öùâ‰óÅ¡óŃóÅÎùâ–ð˜9e@zÀx’\¥~a8ÈýowåpõÀCÛŸîœ[A“ˆÓ]/7u,›,ìpÁ ‚,* .9ÒdD×Ô ŽÇË?d‰ºpÉ#¯ÏŽcÆGï¼` ˆ„ÚÀ× .ð;&â3ÏhzÅ(¥W°Ýh†?bË’Õ˜@Á%åö8¥ŒŽnKŠç0tlS[=â¨1…D×̇#á‘ðÍQÛ;§²ÑÈI(a(C(N—" r°Æ4)C˜÷™ù¬ß HéâãyµpÒ ¶?L±kP’maIÔ=ÞÂVÌ;í§J—8Æ óI•é$4jFºròsßíeÒóªN± #>ÕMWš†Lùoµï‹vCÝI°¬yHÚ¹ôÓyßÕ‡Î$L­Ý!Þnñ¼ÚM嶫‰ ßZ¶<3Í.'_IZ3äA}EDPòœ¸6ŒkÜsÙA^ÙÁb›ßŠèű­]>æ²7iúOŠåÓv»ÃÖnµg ¥:j”&#q@B†š¢ìwS<¸HM´¥læ"j 2r/šõʶ| ’îôÝ H4ë†z<öÀë²CD›CÝ•OJá aÉnë“íŸA4>À%ë²kòÆz=ÊS©è®_c6ß•¶enS«qXÅZÝœ¨PÑÛ~»w%<µ@þѽi‚™mUöè¨YsézßúÂÑZ•p~*«¡w<ÔzCE¼™tž/çìø®šì†"‘„:ýô‰Ÿ.¥¸å»õûY€ZVz¾ñG?€.S ã¸Û/1ÉqÌüsi€‘bsèÖyïãÒg «V=þTúçóûõ_OE—ƒVMýêV7û¿Ìa”²Z© ¨YêYb;Ê ‘‡àΠ™q躇ö«gÏÎç3ó7/W@ðèúé'å0€ãDvUQ_yNX*t ƒ×"°ôGuÿ7ߟ§’Ž9‚{ ÉÈÏËLÚÄ$Iéã.œh[xóP¿ßtÖþT‚m“._婻ЉñÕkúq}™Ä¥Œ~“Eœ}È7<ïò}áØ7zœUÁÍq:²ïÑõê l:jHܺ_î|éQø®Þuç¼Y*€¶¹¸@&œ†1ÑF`ÊÌœt÷‡ÏÚ_Òýâ„š²{Ž%\Nk[—hGÏð³IjTòìmÛ²÷\Vr5sû ª>k~`›×6&0¤m÷ð'üÑÑËCÑW{›éðèGF“´põƒ{œX†Ò&ú©ïŽ¥uZãë„°dðS~¾¯j[„Ñ —è±)•íœ-L¢Çë¢-H—ÄErwvõ|#óÇjÛÎÁ€,“æÉÚþdwsøS¯l!QÝBê9}ëdüÍcNßП½mÚb–2lÒpá®pxŽ¡Ø8K-ιá5ÎMÀ;‘½¯Š?0q” ?hvRÒvù{”Q:´©Oý%ç*ÆM馤Ϻ>p=Í‹ý°Y_Ýßü*%7¯ endstream endobj 2863 0 obj << /Length 1344 /Filter /FlateDecode >> stream xÚWIsÛ6¾ëWpœƒí© ÜÙ)ÉÄîL¦™4¶rJs€HHbB ÚÖ¥¿½›LÊ’ít4ö·|oöVöþœ½›Ï.¯ãÔËQž‰7_zcF‰—‚’0÷æ•÷õ,ÀøüÛüÃåuBFWÀ  ¾Ô5\¢Žõ›A2!Q¿¡hhkõn†-;à•ŒøŽ‚¤°:WtÓ5LL^/¯ÃÐËàqié3Ï'"$6´Þ¼ysîÇŸ•´)‡†Jf– _™I_‹vFeÍ…™Ó¶²Ïxß3Ññ¶ª[ûB(év«;Ú×´-´ ‘O0ÊãÌp¯¨4·þðÍÈ„’ãã £bèYqrssra™Ö…츰«¬Z¶²«².Êdz VúLñL”&±eœïÓ~ТtDCEG…dŠ=äš÷öh˨› ÖNž¸HÔW³ñ0YN²=x—µÕtS?°ÊgË%+¥sÃ+Ö˜é}-×VÙ…àÍ°3`/‡Ší¡ß ‹¦.•]ÚGIíq°ï§°8€í¦§Têok«ã›{µ0ÿNÎÆñ·'h9˜w á#ð”|Ó픕kæÌHW-². _·Ë©ð°Ñ œM©ª½ÈVEäÏ; $:«º¬— ‹5¿ß#L‹žÝÕaÖx ºuæ]°ÆÂëL¹{øàÓ‡ú ¼›êßÑ^‡í CÙEŸ`â¦{$FJâ ¹mX^8ñD¥`˜òîePXNo}]—ëG#XÝ%Á÷*iÕ¬ ò{ô„ú²µß_¿»š¿½=júù^¿ýëöj´W-¢˜ß|¹rÒ̮泟3±GvÅ#Ì1ŠƒÀ+7³¯ß°WÁ!0Eažy÷úêÆ‹ ¾¤‘*w;û|4Áë 9~T¡@ô$"^˜†(NÓ_(>¾Æd”g€1&†Ìßà ÆgdÈÊÌ—¼7“Ó'NÍÁ§ÅwðŽ#e( Ò_AÄÔæä@mIŠH`E~E¥¯;$UÌýú®*dÒ>¿ÚÒ$X¥‡òP5v;¸ÕÌ,–f,!d„馦 r“]Gpò®óh"Q9c÷Ù“>!ˆD Q©>!MmŸðEÐ{}“p@·¡­Öôº°q[pF*§dâFx!qâŸ@%Ò~溤C>ºG3D²ð9’~€#„ªìC*ˆãi?¸‚Iêš‹¦[»ù瓸þ|ë–*5 -N§t!³Ó¢8¹-¹”®=Xöìç„NÉÇ—÷P•·ähÕ³åhU±VÔr{±KLŠqb˾ÞØ©P}„,ˆËÚ÷•)Á†ÎX[M„C¹”µï\à[Zã±o½íÏ >[ ÖÊçÑ|ëa¿ÿ{~š€gÎδGÜë.%(|ô­WÆ$0qoøBÒºe6ÓéÍH ”yýÊsÓ›'ÊÆ)Â8yâÙÏ©E( É$ØAé‡QŠBÔ' $ÊÈú"øôë1å:/Rh?œÝ“ø °Õé§]د¡½W-¼^臢ce½ÜšM[ÏÕ¾r¹†›®T»”¾Pr¶<b8ÅAYk¯ÑûPꇦ2/Ìì©0õ'înã z§ç±ÊMÑ‘ý¿I“)"°Öˆ¤ñØÔˆÀøˆ,"jþÔ03=ÐÛÁwö®‚Ái¼Ä§¶Ùì¡«RïÔmå^Ev–ð±ýÃa+–²–`ìõ>MÒ Aîà:ò/vŒo.ì(—@3ôÿDòð¥ endstream endobj 2873 0 obj << /Length 2413 /Filter /FlateDecode >> stream xÚÍZK㸾ϯðÑ Œ9’(QR€=ì";‚,‚Ù휒d‰n+-‰^IžŽÿýV±ŠzYžq94)VñU_±^oó²ñ6ùðÓó‡OŸ•¿IEªµy>l|Ï2T›Ø÷…’éæ¹Øüs{ªL/Nº­Ï½îzÑÖ™87åÓ¿ŸÿúésOfËT‰8Mam;/ð|dúàñv®ýôYÊɬŒ;mÄ0(iò—_fs;ÅJ¤Ià6ªÌK™gÕÓ.ð“mo¨íN:/úx;êþ¨[æ8jêв¾4 ÄÛ¢ìú¶Ü?ÞöìF“­9,智a¦Ž) —k^8?œp¢L£ˆNú//ò*“Û-¡ïsäms£OAT/ÈKÝôwGs® êï5µF¯y—£SÁG‹øÞ6;W= ”a4“6\S¨Ôw¢ûüãß~ûyÊ ©§U,ðX`è§"ŠC?qÀ·ýòÛÊ0µb;`(à †–o†8p!Ž".“y -Åbȼ+Бœ•ÚvpL,8èï™wNEà€2n¨è.àâ9pvÑ¿7Õ…z­†óé¿âŸ¬áM¦µ×Þ2IÌoï”vçnúU›BWݨ‰ÖŒ7üɦEØ©ûë•Æøèa0\gbTné‹ E¢ÒûU2• c5WÉ}«³×î~µÌÚ'xÍ/çZ£œd¬H7cÂUÆñö”uŠcVÛ&<¤mÀ”›¶ÕÝÉ4EÙ¼ízeÒ»ûÄÀíƒÄò:ÿ­;R¨8tÜîtæ6ü1hPÎá¯áé6:¨(lpzx|eWmÙ`ŽpÑæ\ï5s›ÃÈdQ8™Ì·1d0fZýû#¾!ŒÉ7„jâ`pô @ÁÅϺÇÜÕ^ÚSköÙ¾¬ÊþBœ…nº²ø†'ò“Ç9üäo8‚wZî(~üý÷ ™ÆS¨×p{ñ±¿ÿ€|å‹ÈjÂDú¹©î¾9¡Í°ÒG7wÌÚ,ïB ™ÆÇ`µ†Ï93U%ØÓ Z´ ¡ê›—6«Y³²ö•Ú›¶ÐíÿÕ½èHl]³Öœ›bÉñÐUaOaÎý#w•^0½+~º»JO’YÁ±ÁiÃY@œHwEF닧4¼‰ÊzbÊZ&ÖÆõô“mÿÛ·ºÖë:k"2ûN·_qš‹˜8R³0Cëú2¿3”" x®®Ë]ßfMw‚s6nÅcVè9œ­.¾ÿÎnÁÔêÃC0%3•”‰?”Jb; E2¨$v-L‰çh– °è9LKðv ×Ïõ§æ\Uk˜¬c¨)ÊeGmw†8®¬O†\)*‰ã5§U­‘Ó—Ÿ€ø1pºQÆô¬}];ï „°Ãåq ÉÜ^ÂQªŽð9à(9Æ_f­p"ã(cÜ”öŠ¢Ñm£ywFû³žY¿ Ë Xß¿†w0¼jèY€o7PÜ „7ÜdM”)Þ0> Z–Zwëù~ K¸U}?ˆ÷%Nz$‡8µG>ŸˆBAX²õDDq2Ø;à Û- ÏqvGT7eÏ‹ã™j =SØÉÔ<ì6ï³²êæ ë,?®Ilž £¼Î„mz°ÖØÊÔe© ìdÍÁÏûEÿ9wïpPd‚.åø°ç43~Æì“8X÷&ÁºÇÁºÇ yÉx¨«`h‹`Ý{g°®$$eCèv‡M±Hƒ`’ëxCz&=_$A<Çd6†cŒÐoeÑoDSS0F‡§8SðØ‹©ÞŠG0Œ‚-9ì¼·,ò  hXDÎcÁ(_»V˧4Z©u. HUÙ`ÄŽÄ%Ì“nØ•‰r¤$MºÊ€\†H¢phC¸ñ¿ãëÉ3…wµLËgùqvLÅ.—N\½ :#ªðáPÅs¤ Ù6®L’ëYsáá zhϱõ¨±¹žéõŸ0.€×vqûv˜wÇÛîÖd<ŠÀO¯E৫5º”¯á§®H—N.XU~ò·ìØp`o웾c†KÑey-jø¶Ð#[9¬{OG‡.FÏœ‘ÄÄrb3—…±q|ðeéÝ”Ö@}­ŠC;>¦ œ”ÖPÁ©©l¸mw¢ œàbßšS˜—….æë²»Ž8åD®12ƒáyd«¹îBÎÿ«*¥¶3IæâB¼#<ãRyô ”ˆÁL5Ý. ¼@‰0Hh?krËë…ñÙÎ>4Šg>;£}87ùè“QÎݬßéÎúÚ¨`,éÝ(Jó­ç™ÐàüÅð>"‘H.âF¢|"Ê…h!ÞJk³y´ÍÀÖw`"B8Ÿi4QrLçlçh N¤‰_ËŒgy¥Z&î`ÛƒÔ×ôGŠ8ôçíXæ|ªµÂ.nOÉSì”;¡ÚÙþâJg>¬—Ü F?Òo™5e^ºüýᦎ†)ñÍõ©§yO#…~npÈC§3×@¾À̾³EþÂæ€5Æ’0“¬¨-sÕÚà ݮnVcFª)Iö·\ê\ËÍžz:oþƒ RÈo®ñ:…±Õò»ô&–§Ó½‹®UDFRxj@ÿË/?<ÿú5+s£ð¼AM©Œæ:ÿãÔ,¬l*%C,8Ö£—ª™ZKÅlךÚ%W]šèŽEö[« ¿qqo¹ð„á¸ÈàëÖ~¤I4œz,«-%ÈJÆ»3[[ÛÔÌ+h’Ýp'> Ý]Dèz0·®C±{´­øŒ@£„{ó©ðÉ:\ëÀšÌ¥Æj> stream xÚ¥YKÛȾϯì‹X=Ý|s³ÄØ ìaƒ™Ýâ(²%qM‘›yþ}ªºª)’¢;€a±ÕÝõøêkŽ\ìrñóÝOÏw÷Ãx‘Š4ò¢Åóv¡¤~-b¥D䧋çbñ¯¥'½Õ¿Ÿ¹ÿ©ÁPßS }Pd«¦GÝN6h™8Õ%λ“¼Üd­µ/}«aíÅÐè“žç½^­½P.›ÑíËJ…K]P *&ÉtYWš®Ìéµ4ü¬‹2Ï:7>ã挤«…YYE-EfönpUÖ¼ð'ʲ&yÓt{^<++Ö·mÚ‘âî¼R°ßµ)‹áVAh8üZ…"JC:âûv¥’åîtÐuG†õý]O$‘3kÞT¢9ñ°‘ùüX„Ê ³ˆÂåÉØ€Ô5ô4G—ÛWn´ÆÔÚC€¸uwFËMÖ²:k†á¼=X½ÙµÙÁµgIYË#“4ÚûK×ꃶVX'[1˜B‰4Œhß —HÝi4õ;v‘ßAêý.Vë ˆ8X ã¸~Yy°‹êä´l©#ã~˜0¹©Ç:#0EÛjslêÂpW3ÙœÕ8­ÐetïZ<»M7ö9ô]~à-s<°¨¥9Á¦Êñ1Üc×cŒÈqŠ ­ÞêV×¹¾¯OUEÓ °C[nVž\žèX8Ò=»æHÃpÇ#åb¿ v¡Å;xeGÏëz1/I(¿’žb¹ ÆÍ+=ÉzÐ{h ]Q.¬ðù FŒ}#·+ØoKrçFËë"k jl×KãeÝÔëkqžNî…ù3êÊ°o1e)–p¡ Ò0”ÝàÚIßW§ºÐ­›îV›:ÙÔÄõ\§Òåg!ÝÖð¥Ðµ)»Wê„”@Fê²A¡ØÈØ0J왉.F± ÝYejÚhjDsÁ‹ðX EhÕäVŒ ¡…QxàæÐ;ë¶úy ê²}°8eœ÷3½ Ò¿6ƒ\tÁQ†bÕó m&i(ëb¢lè8;Ï9΂hï8œcÏ7Äc>ßzdP‡­ì79ëMIBSW¯$™}ƒ)yæç½fÉè®+ë½pظšiG–Jm=áa†»u¥±ØzÛAÎuº•ñ’/ev+c¯k¥ D…® Vçb¦PªX~?&ß>Ҵئ\ë<yCý9÷Þá/°xs½`”ŠØOܤK„­UˆˆÎ(}zåèv&öBuã´a,’ ãªôN×sö=á'ÞíC›Ñ-…JúM??þþaΔ z=7y7ÈNÛAì³[¡hV0+RTYG鉤Ý®¨@â Ü!+ŒÅKÃ} ”1¸Ü+Q¯¶pFúšŽ#‡NÚcm*§6Á‚ÑPÏ….¥nŸ ¬•Ž;0Êô5 FGO¿Q^¤W†c'>¼”lËݾ{3cõ‚üâÏ¿¸ŒÔL®á'’E‹›ÄG¤ÚãEÄ]p8·¨9DP÷~FZóBT åÅcó6G´Œq>‘ËeU)€OH+y2HDª±'@älªÆD$ñió"fþˆÂ….XAÓЧ†§cŠÄ¾Ã±o‹R•F/ñw…i˜¦}˜žêœ“v@Y‚ÆŠF¼Œ»˜×ÙÃÔ]ÛTôb³vUp/õRÂR#+Õ#uŸ¤ôúû¦£‹èk‡´Ä:ôq*;U¹f\>âmñ”á²jrËZÖ8†¦6ˤ ɸÙï‚å…"M{€ÿ†û9\0S™ AÀ®\h{Æc¼cbWó9•Ã>•C‚nÛ4 ’™Jù"V—2]÷Ù\ÂÀ¦‚˨ÙLÁ‚)Ú¿=Í%Š/¤ìÓ— "âÚÈû{p\.¡ÈŽA1oÀ¿:EzyÉYítl™#‰Ù*ÒíxW¼Ñ ¦zÁ„ÊBÿ ˜"·Xvs¨yŠ™^R®È³;!ˆ³'dî´™˜‡¤¾H.æþíéá¿ð‘Dés‚QÑðÑD"‚2äEPÍÝ‚(tû¦µ©á¨YÜ7‚\%`Ÿ š´üsõ«©¶»2õìUtFçûn“ÜÅ W™9j¹×ç—Íß0=ëcÛü©óN4íî¯s! µ ôýQI¹“"¶9©ÍâujJѾëŽæ‡ûûóù,ÜÊ«5r­Ëò_Ëz‚:õß}à§@F!_É ]x Â<Ç«ùì?5u ±Š2ϤÞ¹bœXÛ{RIæôü Ò)ç;J/ñèë xȫцfáÇ,ìz¤S‰˜?U¸I„sÐzÌòÏÙNóáá’1SX6¸å_03šS[Ûï5 2‰ð„Ç2ðÉ} p_!ŸšmwxôÔÌÄE h&Ó Óùbä?šÑ‘Úï«—JŸá×WŸ<ŒDÌŠTÒ›†VÑ”E÷ ¯ ‘ßÿiŒx‘~$JéÏÅŠ =„“XyÒŒ-ïõæBåÛêÚ8€ú/Ð_‹ñ ¾ç*ÛøLbPÄs{mƒ7)Å¥²Î~Ÿ2úX¨¸ß@³ÁÄ4óPú"*>º_²Ã±º‘`× ›M@#\œ½b°oûö-Â/«òSe?5àkÕìHhKó™%,>†d[Èì´1Ä&ƒ»ëß^²¶ÌØrÖ ù_ ~ZÁQ?®é©±èØ;öAgæÔê‡7oÞñ¢åCW1~ÛÀ[­wü–—ù¥¯€·K¬’=À±Éw®0àNàZ”ªdb‡ŽÖÖz»E§P›e^sûoµï|Ž›-yé—r²‡áúSM³Û¢é¿6l¨öTÿ07¿ßÿˆ'`Ux”,Ãý’å77s¯ŽÔ4N‡^>Ud ù•¶d¬íkÖ&¢ƒÒ»Ý½¾q&> stream xÚÕWKoã6¾ûWÉ!j1¤(ê±h[4)°èqOÛ=È««‡—¢òè¡¿½C‘’%YvâÅ¢í"@<¢†ÃùæÎŒ°uoaë‡ÙwËÙÕ­G¬…žãY˵E0FÔõ,ŸäÑÐZ&Öûù6+%ytùaùîê–ù=}zÈC°Öh:˜*¥6\ÝRj í¹JÛ¦~Шێ‹To:??¿´Æó$ª6<Ñò¦é_e!£L?giÁßhQn¸ÊUÅÅC»ã!ÊêöÅz¤)y%µTÉH¦•Lcýøf8-´¼*åƨGiVÁ+¢À›`²päî*‹âZŒkðãMwB‘DÂxU”8ƒ!áE•ÊçÝÉà_)88Ój¾æ‚1¿*ê¬ÝîŠtUË´,^áSƒ¾K¹(ø”–4ä¡°m¹Èk°²Ø÷eÊ•) ˜Ú(xµ0Ü=&×±Zvþ\…¢Ä!($þIž>ñÄæë5ee–ʤEñ˜v\=–»·"’¥¨vŽVU™Õ-¾ È:1OÀ’AY¯2 `‡ò™GâP¤•VúÖ6”å‘:é95`Zü1ª×úços.äIÆovç-Ú+ £køwìø~Ô‚QÔöÛe~íV”O å‡N¨¸Dç‰R'mÈÒÌëR´É Æ’:NWi¦2j*t #¦}¿Ô»,I%×P0>äZkíXÚ¨ ü¬lb;8Ç®^Qʽ ¥ ‰1(x¤¥º€<=ݵ´j}÷°ÿ˜'r{gE'W§*D‹‘§æxíµÝÔ܃tMƒ‡ wŽTóê)KsýÎf 6Y2ºä×;nŠ&in@Ô]½œÝ,gŸfvb‹tMÎu=D=ÏŠóÙûØJà%G4 ¬ÇF5·\胾KAά»Ùo]cÿ6z]¯“B(<—X®"—í7Ò^ôØ`ŸƒÂ€´õ×&Ÿ†ç?q¹)-7yª„‹K‡©t¡YýÙ”ËÉv âó&fcCÂ÷¼ŠEºmÃ^€Fspg“yf÷m]Äjk¥aÈRÿn;ð¥¦Öú7΢ªÒCÉ0ô”"tCÉÄÕEz61¿¸. hìÅ„1Øp¦òÍÙä$„vš¡-—å¤S`ŠÐ­¬jWûFá,X½Ïòüe«Èhô‰µ©ç#¦¨q<ÈYs¯¢{>Éé>ÇC†·×ôŽšþhòyPw{”úƒ¹”¸ˆùQâÛ)Ê',Q`Ü ² s‘ë Ê06¬fO¦>}ú¤V®oßþxwc–BƒE¡FýGØóÍ„!¨DA‡Y⺹÷5"W—jŠvu=É ´vL¿fÚÕÝÿàOg¾?!m†oøš‘™*Ò|›ñxò¿¸#_àŽ°#Rã:=.ÑoÅ%ÁóûZí¨Ž–êã%úi4˜ ú‡ïõ˜š0©ë˜Æ¬dÒôeµv¨/û aJ_Ý–cÝÔCÄyu[î5xèql^Š©©ÁGÃ>£A#à,`ó¥‘ü6qUHÔÔ®ÖÑ*å!á)r}o˜=Í$×}M³ïó?øN„EN@_50Q춪ÓÂÈUùÃËAG“ ãé?–æ«H endstream endobj 2908 0 obj << /Length 1585 /Filter /FlateDecode >> stream xÚÅWKsÛ6¾ûWhš‹4µ`$A²wš¶q§™Ngb»í¡é"!‰ E*(E=ô·wŇ™Ôq¹.ßî~‹]ÑÙfFg?]|quF³„$œñÙýzæQJü€Ï"Ï#ÜOf÷ÙìÏ9£Áâ¯ûWW7Üë‰úQLX˜€"+´/*Mê0’Ô]ÐŽW7¾ß;ºô9µg—,‚M5¼ot ÎÐEœ$1ko,ªMžŠb±ô#o®+Õ^¦ùú„‹ãV꭬͂Íî•€t‡^¿ÆÑÞ‹Ç·USd8_I<˜Õbá…óc‰ÛohHA+.2¹^xt.šÂ)Ⱥj`/-ÁŸI"ð›¿Ü½D±y, å­ypGFÞzÑ£‰ã&œa€Ç!wa…îa!˜P/¼x¾iv²ÔŠ8t¼]Ø£6f~Œ ~”Zä…úHЇÔ2@âqwôÆ8µjLt(·!Pf‰“}]eM*3²XQ4ÿyÛè|8³«2Yà^VI…›¥ %l¥U ØJÜ¥¹í„_̹ZèªV—°á%Fc+‡몖JwȜܺ)K¸Œ‡Ô ±(™×"Ë ÁXäwÛ1 ÈpOtŸpV­q´v™‰Ò ,ê,ÿ[º3€&ÏŽ¶ËÜà cÖ!Ϭ“|¸œô,æ$ŠÃ6ê˜h×÷·¿M±0 H”œe/GØ ¡tÏ㊥x$Œ‡±VµÜ"µvÀjurdáÍE37¹hFç˜Y¿ÀˆwÃdä«Ýù…œƒÒKC· `âc¦Žªûpf‹#ÇóIàÐ2ÂÌÛ¨ÆqˈávÔ;#úFFÄ=#¦ˆ%6 ÈjõñV‡ç2­QŸ ÄŠFZîèsÄÏψ¸CÔÓ4FÄtƒeîÆÝï#tó™GØy"Ý6¤¼WŒ¸å88 Ë—àÛø4/\ÿqüµÒò)/ã·Ôe³[ÙwºG(¥›,— rÇã½ⲣ1 Œéëh/Nøy%ÓjçšåkC&ïԖ5#`Ê+rU8Öf~ê>.ÚkK=Åj.5”Î;]Knór3ò¾©ÏÛ™4 yê¾ e­MP¸(·Å۞»ªnú‚<*€/ ÞèmU›¢¯LE~J<ÿX˜¸k›Ê­A¿/8°V¦[½M[„Í5 •„ÄïŠöóãaõÝ /u v¾•©&U½ùv"»<è)Â./>‰`ƒÎj@醴º Sì½öÜVë½úæêêx<’öæÅÝÜ^ÿ©®Ãƒ,O¼äAk3€ŸD$öÂanåZZZË2•Oj5ƾ¨yhš@h6·¥3¶ÎgÔ£ˆnÉáËU ²Ð‡Äؾ¥(NÊöpÊvðé‡c®·øÁõˆx†»À½wbÓÒ‡ýg®  sNzeýQ‰Ýjd2ßD'7Ȩ;-t®46ĆJwÕZá9𣹜 F°À‹Q0ðù„ŽÄöî]L©o\w‰÷{oãAL&è0âQ6æVVå†FW%^Ìýèê­Rä@}NrêOfkÈ ÖÈr']–¿(T5ÉCwJbË~7}Èþ1ƒÜûù Šû>¡É9xoƺNæ¶Çu)ø<$ItŽQ×|~.×£< BL¢à¬Òµ¶Ÿ¡í‰{L×h»”Gc‰}FA×U˜jþ,® p©D Oüa*õ;ƒÇú—Än_|ämšü/ƒ2œ™/b¨ëÙ³gæe…UP´v ÿvqRçê›AÊW ç¶ß³Çª·‡‡Ë¾ZfKtçÕAÔ¹h_R[˜)ØîþêgB£Ôó%ŽR&¹wR¨¦–×_ÝÞ~ué.ͯõ¾Rnµ‚U)7n•æ×i÷-ƒU÷ n×ðCVé¦-ª ô‰ü°Îukn™U»¥\¯¡â8³±£Ÿ0¤–jhÝXqʆC>óH<‚}“Õ%tF“4BæžZ¶¦÷Úßÿ¼âlë.ÿ ³)Sí‹ŒÀJUEsæÚB9¢Ä¾YP€,%nœ$”é)Ç?@ÿÏ™ Ç‰^ãðO‹³h™õu‡áËEàAV¾¼¿øy­êÛ endstream endobj 2813 0 obj << /Type /ObjStm /N 100 /First 977 /Length 2056 /Filter /FlateDecode >> stream xÚÝZÝoG÷_1íÃÍ·F´Eî ÜE’®gäÁçlÝ9’+ËHûß÷Ç‘Ö±b)^)ë ¸‡ Üwø1ääŒS ê‚K5GìRŠÉiÂÿÁÅ\í}t±’x›3àIØÞ¨ËjDH®”hDv\é?‘«©-[œ–ö9»Ô^%¬˜R1*’ö.C\l‹VP YÂ"•öN\,š”$„¾ZÕøÀRû,Å(ˆŒÑ¾È„2óB“‹ÇÔ&3ª˜Ÿ3­šÙ\"ddðIµUJ*ôc–ƒ}šÍú`æ'¼Š¶P%£ª­FÅådJT85Ã1FE—s2{Jp™ˆ!Äå"¯º,¹ýš\®ÕÖ+Nf\˜UL“R…höÀ5Øì!u£ÙÇÑZŒ" 2`<bìqÛK&Gb^Æ"Xþ$Ûü¶Ú¼È Í‹x$m^äèJh^ìzL8¸’¤}[]T£1Ѽ‚ .,ö- -µ­‰¥6¿ã³¢Íï0¹¨¶wæèÒø vª RS‹,Å¥E eIí[BàµHªÅ±Fã«XEÙ´ªâ$³›#¡­\#(5­”‚°9aì¯ä¦ 2@2¼š²j«!ü„ÈVSUm5ü Å‚®"¤4²¸é S„›W F$"j5@–p“w–{x‡/45*ºlƒU“å£"¥›íWäT1ï)Ü-£ÔÁ3Å‚3¸Š”99==é~rg‚‚¼~æºýúod^ðËa¯°d~syùòäûïàNÙ#FrÃL¯ÌGáÎÐ$ŒåŽ5ø„HÜâ~º˜¯Üé©ëž¶Þ|ö´ °aâæñŽÜ\?`_ ©¸~@N Ò6ØS,{ÀâÝ/ËÅÅó~åÎ\÷ËOO]÷¢ÿ}ånå¾øãªÇçoú“îGèÐÏW×AMÌI÷¬¿^Ü,/úë5ôµwÿè_ÍÎXüîÎŒ‰¼ˆ—t¾Ä×Iºf|2Ÿ/°ÚÙ‚MŸÁkHµ!Ê@p#>R­-rÒ=¿ùϪ=ÿ}6ÿßI÷Ãbùª_6ÂËîoÝÏÝg±=˜Î°6Kñ»ÌÑW2¤Bl‘¹É Øž4w?wÝ_/Ûõͳ×sÿfqýö[óÛ$JPÞ0cõ†·È ’zÔ¯½Z\-f؇éôÈ VB¨Þòðî¹…¹xæýÞx;»^M©Eðb(MÕ+¥ÅPõÀŽJ¼êç׳ÕSî ûøš=¡x»’ùœâþ]9Ÿ-·6¥¥xÔ)®Ú2 ï ‚í>Üeð€µxÎq$w,ô)ôØŒm(ÙƒGcDŽ÷1"éñXAº%ꔈ€–Æ[C„xØ ÅðŠVƒa™Æïú–»Ä¢1tñCÔSòV+ Äçj r½EAôçÌ/o-i†tONO›„îÉÅj¶˜wÏ»>ûÙþ}óvµººþ®ëÞ¿ïßõ«ó׋å_®–‹ÿBŠ_,ß|;UzÄÅÐ p·cÖpÙ3ðhälœÃÉq—ù¶È×ä­IÉ8[Grg*sË}ä’/Û[•z+ ï”í£³òý,¤x|æ!ùrÝ&-ÐJ(Èhë%xË}t¯^à «™Âûãl6}yÓÏ/z¿|wîoæ³  µ9I“G³KÙê•MTŠHŸ@ˆå„:¨…ÚrFqBÿRBsF+Nü…”@`cÚ›l½TUÐçJM´--›(w™o+$lG›ò8ÜÐDbÉÝ&«7C‡×êýÍý~LÑé—UœFVñZä~Ѐô©â=¾lÎ=ˇ²™P½9}½e3†ê ìÈä£àÿ¨ž„Žƒ³YåZÂ! æ.î„:Oˆ¹‘ÜVqu,wĦ昧}£”РyCWdÍ@Güdx“LXyGæx|•¡ð´ýE ÚA]d€Pƒ˜½{E@ZLûgÀ«~ùîfÕO:"Ä \4ä 䈱Z®$ݫʾ áC §C2dwV‰;©Â#¹1"ù¨i$w„oˆÒt£ã#<ÉŽd’ÏH&›dâ!«xhgeÚv6D¯…ÛÑNeÔ-ë%ãšêCbús{7Ä2|Ãhfš8bA’iktbL_謇Šx ¢ßºùjÇóÞγ ½4Kür‡=Y2ö¥ÝË cŒ…"vÒkþ$ì}쎖UrÐÈ®„ÅP]ö§àáCäщVw$ZýŒDÛÔÚv'²!†Œ“!ãê¤gL‚yŒ=øã|±[kÄÂþ½ìßôóWFX¤6¡À˜ÔW¹uª }Ö/§G"ȳºo7‡vÏr(øB|4ïÕsÅœH|Û«Û™{ÕòÕöêR|°ûÞM¯žìH"•‡[¡½H= ꀰ.MrÉ1ê éXnX]ÃXn›júÜáuòó.Ý1¯ÖçÕ»¦ë!Ó•î˜iìX¹ìœ—&àFcœwvƒÿOÜ~WÎc¹ ÞÒØÝyàºddÁ}Ô# õ^HëzŒ=ªÛ=}«·:ܺêp몛I¹ÝÑOq:C©ÂNg¬ù,ñ+¾ÔHÕ£÷#Esjïb ¿Þ„2“ν)¢SI¼Ñ®Aѧ<¬ÅÍ|Þ_NÙ¯ 5G4¯µÈ%xûc–‡´Xž#'ÔÂ"GiØëåj*jñÛoóÅò•ßK¯g:c€|‹ùöÀ.ºêî?ÎÒ0 endstream endobj 2922 0 obj << /Length 1722 /Filter /FlateDecode >> stream xÚÍXMsÛ6½ëWp”ƒ¥ ø̓icwši§m윒Ì"a‰ Eª$Yÿ¾»H4Ëê´“ÑÀXaß¾ÝH•CŸ&?ÜM^ß„ÌIHº¡swï0J‰ç‡NÄ ½Ä¹Ëœ³mQµ¤Þp²+sÒˆbSe¢˜¾{÷ú&ˆŒÍ^’(I@µÜæÒM¨þ·ë»Éß]ê°þÂÈ'žËœt3ùø™:L¾s`*‰½\ºq|8Kä{Ð/œÛɽ¾q+­ñ<ÓFIè3' "BésÖôŠ“` Å%IÌ:³~‡ýó…ÐÙ¯¢]W™êßWµê\Xõ_¨Éß–‰´mä¿Ùáð}¿ iuZ|¹]ßU§~+š´Î·m^•[6\ÉbgÁâ{Lm¿Ù•©Ü+Íh+Õn{(*m˜Ü«6-xÓ(ž Ýâ&$`^èÔŠØÔB0Æ|½è¦í 7t =èÄ$Rë>4|%¬F?axί^Í¥³[OµíìKÿcÇ0:bÎ޳肋oÒÌo•QB"úMpü„¸À¬I‚àŸh@.Õ‘Š|£»‡c·¼"Q=ØÖ"½šnøÃT š”âêæÍ/·×—øÇø4Žãá¥y·Bî©Å¶1•6kž‰«»÷ú»•9äYfþ*/ÚÃUŠfL›ªÈ³éå4«ÚVdS1­¡Øgj{É 1!G6þø‘2ãHŸ7õœÑÙj·¥ŽÜ—ÒGéy嘳£|ïv®ä¥U§UĈwdÏô”pJ\ÂM½¥Z¶NgIQ­0`ˆ¸*#Ï GÒ·PDÂY =† ŠÁ³]¬`)ÔšZÈ£eÿâjHµúJ ™-:»ªsJ¤=vn oƒ¤7[ÞžåíóaÊb„p·¸ ÍÏÀß õã!4Ò!züqÀU“V%ÖL”©P’¼„°ÖnÐJº|ê|uSk««]©—(8qŸXXï”}½¦‰™(™é 6ö¬ÍíïJüÐ?Çò_~äú$¼h*%’6¢D ûä"#¹±o&7Ÿ¸÷`YU­-þá ’8½ì9…’(>&©=/²ç“”6ôœ”ÀXD _gl„Î,‚Tll ¥ºÜbv.%S¡//†Ð"†à ¾Õùf[È+¢¡­£¥&W¥U¬D)j¸§€-„ìã Á£`À‚DoþŸ2-ßnçd€ØŸµs6«T÷1 ŽI ÖI¥#Ëajd9¬©B»RÁ +ú´sKÑÉàÄZÖ¡cA|ˆ•ØCÛ‹IœôÏ|³Ú>W@× Æ *U`{AØГ§D 6þàÒ¯hä¦J[½ë ×ZGZÝBE3PØO" *÷-0‚…Có‡/'¼ÛÏ*:8B3Ô`päAÿšiµlÐëD¦$£çªéËA¢äW„n×ËàUðEõ6¼þÒØhÐêêbèÁxºœQ™(gž{c¾å —Æ„z£DŸ˜º4ÇÌŒJfFeHâefT¼q‘ÒKÕw Ëh4[U¼âþK"ÌšO! ÷VöÜ jÒñ¨h§#m¼RKÝk[ÑŒ¾÷Ë̯¿¼ÌFËO//ïbŸý+;÷yÖ®¿kCõg(BN·³ÒQ‡¬ç,î>ë7Âë»É?‚k endstream endobj 2932 0 obj << /Length 2364 /Filter /FlateDecode >> stream xÚËrã¸ñî¯Py‘ª,>SëT&›™­l%—'{ÈæIÅŠTHÊZý}ºÑ ø&žÝ‹Õý~æ‹—_üp÷—ç»ÇqºÈYžÈdñ¼_ΙŠ’E*KT¾xÞ-þ½”·fGPWÓï®Ñ+//nµ§cÚ®8ê®Ç¥Ìˆî”ËF{ªýR½ùð[÷±wÒ”ºmÉšJ­Ç,QoÍû 9ïéàÔ ­ØŸcˆ±XG)g<‹À> “´óÓÁX¹ò^¿|ªP>RHr¾,ªmÝœêôoi_ÓÏÑèöÜ8¤V¾<5f[´žÔÏ<æ—C±=< 1àÔ5Ŷ+¯Dº=ý¥¨^Üfáè7F—ˆB¼P –Ç1©à9ËXYÎø[=oà*fšõ>Àt[ì¯ô±¯äÒ Ik¥YÉxùŠ;á1Ò?­-ÍÁ€–ê`@Ü<ÔçrÒQE±»Š­Öq®ÈE·¡‘*fòy²<Ýõ¯¡`ˆr– A¶PI†âVÄÐ ®¢h$)~¡&ò8$4RŒò?^”²,Ïzf%8§ ˆ$%‹ÔXø¢uB´Ýyw%/ Rq<)€e®˜Š…³[B§o]­x. Z-ã,ÙÌjEõmV²d5™;«!0ò/|¡Õðwd5‹dC+ÿºÕˤgv¬ÃF­Uzc5$묆 µZQ­³E[%Rœ"mƒHùL.\ÑvˆäS™†&L\?·0xÒ>šŽÞ²€ÁhYwh0LéÓÉÍO)4À¢;ôtKö7æÔ†BÆxˆºêšº,­`JEÎ`*Æz´ÁüÀETÑ™VÃorÈ<—]q gL¹2JÞt—Ì“›ôiý81¹‘ñq$íË Üeì±÷+äÜêu²gÏ#Ž ̺ܿ¬phweï_«Ô7ÛC·ÑgÓ ¦ ä-\Tæ“ñ»ËëæÏ ¯¬OM/2¬n^þzIÁ÷(¥&y|Çs¾h@z~B%¦£Ë3_~]wjÿøøx¹\XÏî÷ÐÒöów±‰1ùxò :Aåpÿ†.BN„ýÉìm"X;~×+ÚÜÖTC#žƒk )ìè“YãK.¸K¢v¾‡a¼ïU*M—¨ûZWº¼¶vHm°[Ÿè‡Ü fïÑH«'½ý¢_ \£°2SüS¨>Ã%«$:~8wx“ ýÜÁœÑvŶë}wæ ÍÀ„ÒúþÐ Θ€ ¥XnŸ8GÓ³ò¯U8¸K™À](tK€k—óØ‚‰aô( 7f‰Ji[öÊU ®BÁ"àúÅñ$c?W?Þc … F; E6øxüóúÚÛo:ÕJE^+_1ýx3-˜öj3žËúãþ1oDiô†kkòøÅnÎÇLwxô@°i­“üûð«yÃæœg",—À=£7$ܲ”£õîÝ;¬8ì®ít§ ‚‰À]*aðhd1„Ä?ø€0"Ȉ@/@D(ˆ•ÿGÃB“ 3Šd@÷ç,/)–B2ŽªqÈÀlàkѾ[{tv€toú"ò<ë+>„‰lf}áN7À»>®Í~Oí¸F±gA7 hã²v+õn×öT ZßÊQ̼ßÛ©˜ÍQcî^‹ú~íT÷ þ¸O(c‡z÷tÿ¿ß÷0Dû›”¤1ÂBCðšHž˜ÊÝç$ Œ”8û=Ý#}ȃû‡]û´ELÎxìV¡ÎpÆ=(·`¬cPüoFPŸ€c5²á?Jv–uzá dûBñ&Ko¿Ê¼€ƒ_M¤'¸ T]¡ËßlTùíF¦Àéþ«SЇç»ÿ°¯( endstream endobj 2945 0 obj << /Length 1669 /Filter /FlateDecode >> stream xÚÍXKÛ6¾ûW›Cl`ÍÔ»€i› Z´h›uzIs%ÊV"‰Ž$g7ÿ¾3|È’WÙµ(Pø r8$çñ̓¦ÎÖ¡ÎÛÙëÙ«›€91‰8ëÜa”× œ1¸±³Îœó});òµÈIS%‹ë__Ýøá`$Œc8Qqs"ÓŒšK^ݸ®wà!÷Ò #žtȹÞôâÅ‹ÅÒ§tžd™´¢iWÈZOóC=˜uÒ|wBÄ}ÑvE½Õ3e€û—Œ’Ø(òõ)œÍ¯ûûVëwïߘi*ËÕÕ¦<ˆ+àcö ÎHÌÂIÕ%O‹zWt;=úé—'dbVˆbuu—”ÙC¢ÿ\þ=foÖ³/3[©ÃzœøK¢(tÒjöá#u2X„Ó‰GÎb­ z.ŒKçvöW‹Ó¯#@eF1ð˜ã{‰h0 Æδ™“8b•*KqŸÎÝNfzœËF^.é æÏñä—šüÇæXµ}D×#½H¥§LO=¨ÁÙÏ¢M›b¯œ8Tó¨î(Ke·õ­¦ô•F1=Éõ7-“¶Õ>ö@£ÐšòÊXÿj"x‰\n9‰á*»d1#œCüó°ÈÕœïÛd+&õ|¨÷X6«w`CCã÷ÖÕ_«½ Ô^û¨h8Ê~Ì#~Øcæå„-¼!¨F9qtÀ" âÇZ2ß#g0€Èöƒq$Þ›0Ü4"ùÜ®®nSÙuW†˜7âËêæõo·ƒ¬eùe“‰æH&òÐ f™¨Û¢ûv­’÷\ôý¾¾¿kŠjEûÜøéÐv+›–Ê»l•¢püšbV0dBˆÍ§®ö¸¾AyÚdú× †ÚöP‰ÚÖ¥ž6¿?‰þÃüÔã0©‡¨?ô!#îÑÓb>$.w-§ÜtIQ p*ój9áG"§Ù:vøîŠ~H(õèzLEÀjìy£Pûžé–<¡œû`À€°Ðd}­ ¬ž‹ŒçPÆU†ñ»ø ç{0%jŽ4¬=CUª‘)•M#Ú½¬3U¯qíáÉ2?ßj܇„Y)wÐ<¦wIöÞ²Òµ¢ÓÒ!¾»›ïT6Bè‚™}w¥“)5hª¢­T<(¢Òxn}¨6Â&àüȤ±—Äãn4þy“Áù>,å¶H“î™R¿í^¤EþMOîv œ’&xøAÔi!°TÄ\©Q€yò©2DÄó{DbW5- †¼Ç¸1\%Í•ûFn’MQBšÒ³Œ ìNÊL;‡EP˜À£¶1ÇTÚÙ8Tnµ¾ÈDŽ9(9”&S Ž w+¨J·ê˜$:Pç‰H¤Œ0~‰šÏw¡T=ò!¦¯]Ò$igaÕBǨRØ“†Ö»wH¸³oò“5Œ!¹m’Êà3ižL]ŠþWzi‘Lד4òPg§ÏRÕÚçèêR>Ô§VW—º:?!ÍêŠJq£ÖQ×ÑjbII§™’Æ,VÒŽv¼÷]#*Ñ¿ †ýÀÎÖÎÞDrÓŠæ+n×[„þß¿ÜhÊ×÷ç <£ÎŒ>íãVQË®IêvòÖ†©Ý%™»µÙÓñ6tWtô–i„ž…NŒÐ Ó,ÔèDZNfŠŸÚhÐ ŒJáÚg4‹hja.±2*nÏÛ*é ëpï„ײ%Ú,8ô+P{09±x{Ø høö²µ®ìyåþ¼ÜpžkñE}™¯lhaCz¾—´$<„•˜÷/ÎPÈ*Ä#í Qâ›âÃ/`Ñ`Á‹»[½j·lÌá(S¥,[òFV†l/?ì÷ HKŠÒkŠHÒÝù>Ûˆ\…ª2¦}¯¸ÀÙ¼Ëm¬ûüó­ } À&Å CÝ¥¡IX¦%¤ƒ–š–š–†6WZBX;i é…-aàBY3¢Ý ÕŸQÇ:N±±S]† %;â'%m³cM::»+2ü¿e2|FA®BÆ9Ll?+­Áóì9.ôù\'ó´SµÄ×}!ÒE‰ÊY@5ÚáPáš>©ét‰K%¼…Z½xêåÁMßÉc£2ÂŒ1™5&{PŠØ¨µš”ÔÙp;=nØž ¬9§–øäcPL¿Ù}‚»>Ê2ÍSn5Ñ›ŒëZÈ>à†VÛ¨ØXÇ}jûgÉÏ˵𒿠 šW‚ꤎ±zÒ=Ùï›õì_§s¶® endstream endobj 2955 0 obj << /Length 2136 /Filter /FlateDecode >> stream xÚXK“Û6¾Ï¯P•‘*>S™ÔÚ;•r°'ÙÃz”Jôð!äÈÊ!¿=Ýh"5Ï&¥*¡ 4èÇ×h€/ö ¾øéæÍýÍí;?\Ä,d°¸Ï‚s¦¼` Á/îÓÅ—’G«ÿÝÿrû.#Vx,1–åXÔ-{Ì3Ö” òÞp·ÈF“64k#CèR4÷GÝ&ya&ÓFÓ'Û‹± ¢™÷½ÚH-³®Úµy]áWh7ch í9ÒÜ´M¾]I¾ì.œuF£:ÙˆúÈ}þü‰ß~G<‰eò²+’V§ôÙU©nˆ#ò¨á¯Ú¹ÕhÌ¥Ï,^d¨$(¶>ã‘OZ¼nV"Zî»RW­!C+5RÚ ˜¼ÎÒÛF'Žmb³(Šz¶õœ G²gÈýyFŠRú/I=î.æ„ç]„l¤Ï—I•ÎH“‚Eþ°ëmÝ UŸJT’©0îÙ’F“ÌcbŒuÐ֧жµkÁõRðcÑ¢Áˆ"ò=Öd‘`<ÔF]GñÄÔ’y",y >X6«›Ëú´IÇ6¯öä|ý˜q©ž9›+&ù6är.$‹…<“À†çË­¦¶³–B -d[”³‘q q*üåi%ÀKgK¨ÙéÀé$eMâÅ/ÄŽm·F7+é/4=o]ºUýŽG‹X?H±V &$ØD°Øw6q ôÅx}T l­‰#·€ºN,-ÚܱnÐ)ƒu…\¾9“£­oˆ¥=sDÂR¯èœG“m{Ä?·¾¦¶®\Çlº¬ˆþÜ廇â<€¤d£Ë©¬0^šºD*"cÅÙ¾´0Ëu ;34£=$-”ùþàÈB'©T÷ln>µx ¯ézÀ7cyÞFÃÝ‚væ Ó‰v‹ÔXÚ!ÂîlŒŒBg® Ón{>滤;þ4œ—Jè'òʦ£ á˜sgÒ ÷˜PrŒœ;θ˜2%øô`º üȹÜåÎk÷ŒÇ®9ÖFãÑÑ(ü<:YžßýžRÏèèÐyGcuáÓ®†m•‚­è0ò<:o ;é'¡Ø¦EsROšXYæ"¯4¢€GËŸ3nŸßEÜNëÔÐô—ð<Óˆ4çà¼ÌÛõàõêÚhC;R‘}î ×6Mv89S×yÕƒvšïÝ¢¨ß í\’•, F«»vî( ™/&aáJÉ)»hÍQïòìì:íÞ€±6t€Ìz ËmÒ8q˜q'ó† ¢ï·XŠŽB ʺ§Æ9Âb5]8u¨®ÌvåzÊQ-4ß¼}!¨ Û=à9¢›JcŠ‡IP™¼=Ó 6m^‚§éËž!6ñjÇû$ß(›K±uóL¡——¸ÔIªH@[gE‹± •Sa£l–ŸÉ]¦¬ë–@Ã%äéc£ NâÒ §%pŒLÄõî)À‰ç-­[M³œïÆóÆC–Áb8x±~Ñšâù5çi£T¡‘ ª ­P œ›@]ÎCÕ/¢RŽ3OÛ‘Àj86Oº¤$ Ý{¨T[=ðØ€NyrYä)•€ª÷R§t®Î ™ôÔ¥*ÁÛŠFk¶gseìF)Å".¦–‚uîv8M®%zo:[ Åíï¯/:AhÙ6,ìCêõÊG/ê—0ýóÖóŸVE¶_û,øû*€4ªw‡v›tý‹«Ì¨ûL].ߟ·ÿ*áþÜ›ú“Þµ¬nö?Ì\zÌWjr=¸áöÈmíȧöäÖphÛ£ùîööt:±~åÕ3ûeù¯ÕßÂq"~Ñ*F'øS'¼×™¶‘‚×µrë¼6µÇ±Zñx ž‰åÖ.’Tîr@#ÿ®«´Û¼T.QõMR%ÅÙ`ù†³l© Cï©9å6 4æ&Yäaï1Ù=${픇 Ì@X}\ Ü뮩°"@9}áÝóM`ðÓœéëṗ:kO0.õL\„!ý¯n_Lü¯‚±}¸¸”+4+ÄG)/bóǶàò:´Ò:Ç(ºœ‰(Páí'cØ#W˹š‹áKªÖƱòA»ÃñuaêÙPù¿n—Wô˜g_n0¦î¢Oï“Óûf_þìl¶±>éÄCŒÞhžÖ5j(ê-âÐÌ¢J„Š…á•¥Þ~IÊcñ žžâ vÄÀÌ‚y܃ЫW¯0€NõñLTš´ Qt±Dê $?(r7?6õ ¯Ø§[j“‚A0äžÍµ¶jÇšÔ Åhô.1üÍ`É ‹@"v4#E(¢¯É£ùÌ÷ðª nñã‹0»¹ï7ƒ¾lKú¥V=Ô¡?Ú% UDW¶Êr'¢Ì¿èt£³ èº0Ñ4dclàØÎ:ÕÅP-Œ6Ó`2ò¼ÀnƃBâÍxÎ×ÔÿØ ÂËuüIM¡«=&.ù–ºNùŽˆo©;ƒ Ųר3×dõdTyf2 *¡ýd ª¶¦1Œ‘;øëÕgMÅ:RH¸·½Á6ÉN"ûüà»÷Û‹©ú§sû.¬Í&CP7›9 ÷ùµv>kºê»9F@«™ô /ÀGëaëw÷ï{Û‚]ï„TÞØ Vd4ù5ëÐímÎ> stream xÚXKã6¾ûWÉal`ÌEê…E 2$X`7™Þ½L¬,Ñn%²äèÑ=ýï·ŠEJ¢Fé¸ ÄG‘f}õúHß;y¾÷Ã滇ÍÝ}Ľ”¥QyGû>2òbÎY$Rï¡ð>m/­*ʼgç¬oÕŽ‡ÛÓî·‡ŸîîÃx¶R¤‹ÓöÕk?E¡oþêÃÃæÏ ‡¦ïññ_¢8d¡—Ÿ7Ÿ~ó½¦~ò`"M¼g-xö$#–Ú•÷qóó¸Ûò«b®÷Y$¹… ¾¢ÈÉ9à:Ë–&Üjóïv'â­^¬ŠÝ>ýíwœómV ª£cÓRãn¯åwÒßžÞÑè¿¿«¼ïôŸ®ƒ!#&’à-phµÃhÅ~kDFíïU—·å¥/›ÚÑyÒݱ$O¼=OX”„´üáQíöô9u®7ѽ¼9_†µÇžÑÁîÓ. œ÷0¦ ݶª»4uQÖ'’éú¬.²Ö¬PmÛ´V&ìŸÔ¿ú~P¨:7‡(ë^µf{&¨°\ÒÐw´Cc§Î‘¾y•u¹¯ã/qÌd4zïWä!_­ú9`Œ3s칙੷"Š„$ÿÓe'µŠþ—ÖpÙZCÒF_½Û‡¾¿ý(è{VýcSP[«Ž™–±Þ\²0ÝúÝ rî÷S ,6 …$ymŸ=—)“Òµñ’_ýÐ'뼧óÖêùÜéiçêbg³¢øüÍý·ÿüøá½6¸67;G´s¥žT5Êÿ>t½]¡‡ŠòTövÿ¾Íêîh;Y{²Oyóä,cŒÁYùš•Ã˜17ò·íŽCÄgU›H¿ÑÈÎ"A9nG`§À «ç.¥ÇsH7üZçŽËÿ• DÂŽVY*Õu¯Wç ‹ (‚î,ƒxKßD»cù™Æú†¾ÝEååñÅ bªBÉ)ÿ˜Ž 8j³~Çaó;ã–öo–‹1¬VÍóc™?Æz[lÌÒ vç;a¿{l†ÊÌÌ’<«ò¡Ê` ƒ þóQ™™ÿ}¯ú¬¬ºw¯cn°s CèzЫæTÂYà I¤ÑI8¡‹ƒÏkTK3ZeþJw­Š(sEòj(”…mj·ªcIX˜PM¥ƒjº¨Â´±Ï—4>Yíf>¸toÉ’)óƒ ¤Û´õPk°©‹“MÇši®»/ú<Á¬^´^PÁpÔƒ´fý„ q< ´¢&º†Zz¼¶£æo÷L­7¸HÀ…vüŽ.‚ÑE´„ÖŽÁx@©i.`¢Ñ Åie[f‡Š ë`+þb#jlß,`mU?´µ¦|ùEÜ}øœ/ð‡7ž®C×#ZC­hË̲ž'uúg¥Cæ|ú1‚=jèHé)R£.6ü)ðþD++…=ʹ aî”å+ðc‰×ž<Ûüå‡Í{0ºKo¼O.+.(—a95xÿh Ô2Æ{êˆ55*SÖÊnaÙìP‹u3,õ1Úæ¼°¶{È »¸%hªZø‚:SÐ$¦BéѲ豼$ ÅK²dÃ8â²aÚÚÖhŒY­FÍÐiF®‡>ß5õéx]š …ÜÝ0ì£w¼j /“1~„Âb¢9ÖJ.€}ú±•"_yÍ>Aœ2."®w½}3ÒÑ ¨œé;®.t‚L†S€ c%…>XI4Ž x¶û]ª,·—$»•aÎF—ÿyÕBpqt_¡m3Ôò‡·ú21áÛ ‚[ÐÝÄÐ]‘&‰y2B1úÌn3I:AÓžM—àHû¤t‰”Þ³^EÊMnAœl B§Úo;±÷+šÄ, ¥Õ“Nõú|YqR¸×$|tå`чª¤‹ü¡.Ö¯äÍOZjøÑá÷"(9‚àÉTÝ>»dì½%1Q좂dÄÆ®MŸCw“¿àeéwÑÙeæ.æµRc©>¼,ôä0Úï'lÙΰbÉ®ßa´0åZ®q®°¯c!dÀ¤X\kð¶xKð‰^ãw*þŒ^#Éôã‰aÎçÛ}Þì¸Ga$£b¢öz„ëuɘö‰ ÝY@­ÄÑ<ÉLìó°Ê¡n©aÀD_U ¢7TƒP²@†®•à ÿ‡5Xzëê;O*)@æ/æÆvË3Û=VdKì«ÙGm"ýæŽtwÏçï0IÊd:ÞÍM¶‚äZÅx¦£2Ÿž`7/%þ Ò€W ÀÍ'©UF.fž§9Þˆ†1>OG§•àœ«‹M‡>úÎx{s âTÿ‡ñÍx‚™ã%oE¹½ˆñ 8QŸIû(ú¸ ·/4x?ѳQM¤z@]uwyÖ)Í[iøŒìÏaWnj Cì:Õ÷£ÝÜ$%¸hpÅín±Á˜¥ÔŸÃ’If+àA¶‚߈—oÓ¯è39Ôså/ZH¼çˆâï1‚*ì8"%5]Ý ²±XðÅ3LI49µÔ9Y>6ãÜ̲É_\7Aʹ¨&ÄÊãj‘`ÂëÌ'ÇZTšm3:Æì™ (÷T+QÖ_W/Ž<õJA2‘®?¯j7ŒBçEôï0lîÐPCw$A }|€¦9E4¾â˜]2ú˜3i5XbQ Ëi‘ßµùáaóÚ‡ÙH endstream endobj 2977 0 obj << /Length 2653 /Filter /FlateDecode >> stream xÚÅYmã¶þ~¿Â8 ¨Œ®¹"%RÒµWôäŠ ÒØÛ$z*K´WYrô²Nþ}f8Ô›ÍÝø. 0IQÃá¼>3òWû•¿úÛ‹/ï_ܾ•Ñ*a‰ju¿[qßgA¨VçLÉê>_ýÛÜ_ÿçþ›Û·ŠÏ¶2d~tÌžc£ó"ëØ!í½æÒÛã+/|{ÒÙ1› PøòFD°‰,mõzH9Ó9NCïq-¤—–½néqV7nu•Õž–ºš¶¦ei,­GdFg]Ý ó91x£ÑÕñ‡3?ø’³õF‰Ð{·[ ½Ck{@½ýTñ’pÁ ˆ+‘’îQTYÙçH_„‘—Vô_Tn2}ìh §ømMãî!톑ÆAìÖÜ£³pö¶¤>WB¦B>jÀn VŠ%QãÉ|.VSÜòfÏÈ„,ñhdÚôG8•sÓÞ¥}DL$ÉpdVëŠóƒï‹¬ÐU×¢ðnˆi¸Ëpu{»SQ–4Új+œ¾«ÁbŠ ôö‹]ÊsÐ;Šu#|Îb.¥ š6lÁŒ- LUújjÌØÜÈ|_•ºE% áÕ2$¸×ê®uÐW>‹•ÞUùúí›oßí8 4ÛÿDg¤%¼UÁeQbd•pg%=”—)í\+ÅÑ•W‹GíµR—ÕHN´;ü…ÑðXÐY˜Èñ\»/œSR,r5Û‡vpi`1Kø(u´{W‹#ù{-9€‘:·dÎ#°ä Ç“ Ã8ŽÆðUü|Cö(ÉĹù«Th|õRa×dœ\XŠãà0f¡½7mÖ<ööý¼ˆè£¯ØWucB!,¦U>n(ó¦íhoV—ýÁòWï;¥½-æ;•‰‚0?=hØ×нc¶´×Vãµa£ˆçaÌLÛaÙļœf'Œ(¨R˜ñDfáaºÊ07Áþ«ºƒP,CŠçÆÛÀ¸=ê¬@AŒôŠÔ¡›³8ý¬7c<Áà»Ò÷š¹<ѤJº½¡±t4†C“WpзȕyZÓ™nMd§h0NçÁyQí¯ûˬ¡~7à$UÃõÄsàôЗ]q,5Åøù±ðp:Ö%ßFؘ¥–DH‡ha/à…Éšó}Û½¾¿ûÎ%¸µ?z»‘ ®·]ZŒ(O`¶‘·ŽÈ 1*‰ÅoÅóˆâyxÏ—‘6B¶íÃùñ@—À8w£ŒÈ„ERþO‰×È9#`u7ˆcôª?l!f‘?ì®ò£%È££Õ˜Bêƒtƃ=[›ú~CdiŸ€¶<" ý˜^~cLñ'Cõ¿\àëýË›—eÑv¬9¤/ŸÊk!0Œ™ˆa`TÞ=ÉnÉŽ ðŸWH™À Ñ')v 8»º,)n¬/Š€E ¾hß#©C$|øê¬*8Ï”®¦Šâ¹"RsÃJïgÚ~êä%¶¡­¾þø³’Yh;HÖicÂhÒ|3ÖŒ²‚•Ûëù±Ú¼c[÷U¾t”Ñ‹Îb­I6S¬ý},÷ŸÀr<þصêþ×õ¬fB?0õ`“BmykíKè‡û£ àÓî„Ò'ëË´³GÒ3ƒ^lé1Ò­+( ÄÀ/GŽ†z]%SŠÎ~*A‡!‹1ƒì¿!NJÇÁRýŒ±ë%ÚÖ‡7åy©1µI—1q{;IÀ¢žA‰³˜ñnç,C˜Ûƒ³úñºkcº‹ùîhDƒFw}S™PûS$…'&’ÂJ6’ÂèT ™Qñ'àŽ«ö–vòSon»ë³³ Áë©= PBÖÛ¡f–!J.í!Ý¢05§•òà_£_µ<+_ÈÜN,73;¾D:iŠœq“ÙS¦%Ú4 u§;?™¯ÙhÙ3›¢ô¥‚Iè06BW’¤ÃŽHÁ2]Q¡'a„°« õØ'üX¼jÐLixwaâ<< ‚)ÛÉç¬[4#à&á0öî×h6Ä1=qdJ¥·ööz)Mó´³£]5ÈÍÐ*Q®â¥ÞÉV0f¦ÕX‹Lò¿úò*X`û–!Ìÿœ TÕs|)ê‚b8Ž’%ìú@¾OB\¶]ù]•c" j_îý÷Žš’iv“ѨÝ;œâLLhêïƤÿ@´mßRqjêéO,½/šúÙ¾©H ÎÆóÀŒ•EœœeEäeY0™%ju"Ç5,MoëoX*!…†,Š'1ãü²ûa ¢¦0];š-Êw(vM}XÔSÝ&‡Paj 5e?ÕQÆ=ªØ}\4©ÂESIð™ |WS‰ûÔYWi!O¸b<ª='i´¶Õ"Urx5e×SÇ©'K ² ¥ø„mYcd4ȶ«;,ö‚Z–˾…-{)ˆEÉXzŽY0m Õ(²mÛ5ܶͻ:¸®›ƒ}°£»“Op1ësã6Cç¤øOì&ŠÖƧ3€2Y«F#ë1YÊ…¤+Œ˜öÕK«êeºô¥Ý!˜H™å¨ËFbÄ¢pôuîPtÈc ˆ¯. ©Ñ|åŠ',ed²€¸ðñé K©uù:‘®~„9 ŽÔÐ*ò øgHÝ6‹Àûû–ê; iÉ‚)¨wMZµ;Gp½xt½úˆÊ¹Yd9n_6ùT§,€ÂPu<–ål ;†hŽƒ9h€é€Ônæ/˜òÌ–ªI(ï,®M•O–¡WlAd#à±!¸:Ù%¾e*¼–ÆFò¸¥>„Hp• G‘à61›mOÏœò¦„ ÓÖ7®sˆ-u~ ¤Ý {—_¨†®âÐZ¶}%ŒE¬Û8Q©k¬ ˜>¸¸ó¿”Lw‹üÿf¼t³ºùsàÀm•»ýô9Üëû5ØI¡³‡n›öCÙ9}›XÖ`òS¥òçÓãö¯Ý¥`¹›cS#eu³ÿ‹ÓÉC&§Úã†Øg‘A ìð,ÌC×ÛW··§Ó‰ '¯7<Ç?‡8ËO0îÞW€®ÁÏ´p§wÚ|›@hÑ~ŽÎeúX[ÁcPM"Lg*¢–ªð¹?$xò8%€JW½ðî›*Ã_Z“u¢ØôÅñÑýºÇ”°ìK;ó=&Ç4û1Ýk{{¨“柳!wOØêtÿÊ<ƒqàÕzg¨Ý·p¨÷Ä°v–ÓÞ×»îP3ˆ<íú>ñÌíâL \$1_ÎgŸÕ‚áã+œÏ?¡Àõæ È*âܶòº@3ºÌÄcD·Û–=úb…8µþõý‹_-ÁC[ endstream endobj 2987 0 obj << /Length 1646 /Filter /FlateDecode >> stream xÚÅXKÛ6¾ûW›ÃÚèšõPR$[´h‘6»é% P®DÙ*ôp%Ù›ôÐßÞ>$ÒÑz7i"ÈŠápæ›Ã¡]gë¸Î÷‹ïnϯ#ê¤$¼È¹-êºÄ"'¦”D~êÜæλå¾ãy™ ¤«ÙêÃíϯÃØXâ§‰Ó aRZ¸jŽ éµ_{1 úrÑ«¬ÞW¼·V>ô}~íûN‹£@˜œ8kšê%R׳gÏVëÐu—E9È“ŸŽo;Þ÷eÛÈ~Ýæ¼’ÍûrØÉVU¿wCþSÙZõÝqé{LͽӘx òýRŠXæ$H|-PëúE^D’ Ã9=¢¥r6°ž(@ú1‰\@”º$  à©4üÛµéX½ßÊîßò³ÛËï7 ‡Áê²úJ6p¿4^@ƒûº°3%)=…½½XÙXÈ+ñ\v¬:p­Cm ûÕÞ ¿ÛãRt¬æ8¿Ûo¨ç^i³7ñ®´ÑŠFªnÙ ¼ƒ7YÛeΛŒ_<êDÖYW2U\aCW~T%Ftt4N<º±ƒjEž†äHàq§¼”̇¾l¶“Ù|;2zÆÀÏx2-ùJ®¼ÙÜ\Þnnß¼}u%6Ž<G¡½{ÍYÓo²¶ú64:ü›¦kïí©Ñ™µV*ð‹Ï0qÂËJ€lµÅ‹W·‹?˜0\‡ŽÙ6ˆâB.ÌêÅ»®“Ã$XAü4qî…híãIåÜ,~}09Š”‰ÃHéàKP'ˆÀ'êϦt#·šæZ¤É˜ß~éV~¼QóBwùÛŠRºDèz9P´l\®¼p ú/e÷õÝ<ú3  ‰ið% g­ëeTFc⇊/yŸuå~ÀÃ2wÁœ\hâBIáB äò[¤ŽO½eqh2¡Dô²¶ÞtÛ 2áä¨|/éȳo›\N”éÖä¬S+x×µÝ$ݼw]O$+9-Ó˜Ôª¥`ùÈWàZ±†"òÖÒ“ µ**²SÈoV±¾¯ ˜0i2\@l/fê/ ©k)¢$¬€¦)Ià¸b P*%ßölËŸ^</}üo|•Ñø°kÕ!Ž‹Ü4ù[ HÏÜè“H`‰±&²µ€LœS²¦>Ti4:Ì)22v¶1¯´ŒïõìÀ©ø‘WZbËꚌíøwšÌÅP1iÕÞ‘Ü›åùÇÍõ‹Ÿn _¯ƒ(YŠÕªÍò?ý`Mçå¶zÑI—Cù»P3붽jñ0—B¦ô­íð|$Öÿ=RÍ)ò€ Ir>€AJ ÆÿAü,ä•xŸ±ŠOóéy=0.¤öÎ:XRÞ –(Qt°_t°$yd°Äh Œ`žá0–F˜GøE·¢@¾CÍ›á|-ÿÈ–à¾#Ì,C*J< Ö˜éìiÙ,¦ÄOÏfÀÐtÌfÀ¿™´èƒÆÔ”º˜}(bV^|Žµï¤üuUU¨(ôtLZqá1( =B»¢á°‰ß£Kù [÷Žõ{ž•Å'5ˆ·ŸÔ ¯4¥¡ãJ€Š´cƒÖ|*_è‰û]™íæ..©)´*3ìZš ßïÚC¥æîÔ8.Ù¡b°†à… ùƒ«™ß_r(«þò<ä < óñ >õªÝ–‚î'‘ÔO P¼‡D¼ãœ.ãè´•èjQænɪCÎÕ(¨iä¸v ‹QM Õ4´Q…éb–ÜðÀÓñÝið”ÜI¢tb÷:üå…T}hXÒð‹7šÌ2<Ý^šÇC äD0«Oò¶ ¾G"ñ„0܃ä¨y"!ÁÖÈ$õ,Â&?­.ˆ4bÜ,“ÐŽ/ç‰qÕùŒ<û|B_œEøNg…[Ш8O®5Œ‰óh •MÕ¶ó2›´+¤"]ÅŠš»’#ëYÉÊ7 í‚BA-úº©Vt‰#xTjQ¦ä2‘pZ¥—ƒh5~ÊÒž 1c+½Öǹôø©Gtñ î¹®'áIœnëèæ›Ï¯ ”„‰YÔÇs±´ ù{ú¡krä0 ±Æ51<ÏPÅË^Ot\ËjŽ2•!^•ú=ŠZõOÃ[ÏÁTqã÷b?A¡Pü"哈*«¼4AjSChLO̯ú o½&6Ú endstream endobj 3003 0 obj << /Length 2758 /Filter /FlateDecode >> stream xÚ­Zßoã¸~߿¸—³5—?$JBq=t·hQ @/ܶ8E¢ÝÙ’+Éɦ}g8¤D*Údãy°H )ò›™o†ÃðÍ݆oþüîÇ›w>¥Ù¦`…–zssØΙJô&‚iUlnêÍ/[)äîŸ7ýðI‹@TiÍx‘ÂDVèÜ›º©FÖŸJ~ÇÝ7üï‡OJ£÷*Éíð½Ì SÑ$wåéTJv4æ8DÓ,Ö™iVäÒ»;M×–ÇÝ^j¹}؉tkª±ë©=vô;œMÕž\罡‡£ÙÉÔoÚ¾î°jÚÖ¸Ù;Á·å<ûã½ié©êNçËØ´wÔ$@ö¸ Xç-Ò”Ö‹«ÝíUšÂÄ£épåq`»½–Ùöïíñ‰ÞöƯÚ‘zøi•êí©«í’±—Œ¿Õ±ÒV„·ä’i€Ð!ö¨‰¾#ÉÚD1ULÐ~æ)Œqº€?–ozT =þã™bEÁÒܦ¯¼¤HY°<σ¯ ÚGÙÖ¹½,R–Š,Оr§"x°`ÐcÓVÇKmÿ¢7^¶t£Jú@YGCˆÐ¶E–1 ˆ”¤² ^¦rJxÉF1-Üªä š ®ÁØg!§ì‹m+0¥ŸŒ[ݯ2cÙ‡ïÙ¯Øo¤Î˜D¿)SyB“Þ›ñ¡ì¯rÉ·íådú¦Â†ˆ½^>6ã=½!¨¡«ß:1rD¿P1Ú9äËŽøÍîæò"›};R¡+p5oÍøh0z*ð@N}lí¤ô 3¼Â±>T]û™sY›¶2$?Íàœ…h7í~Ÿ‰Ü˜¬ˆ³0ìÊ¿Á¶7¿Ø± ñ˜‡lî| j²Po½EºýËÞ\Z»AÜŒ©ßC_®ê`|m(×»G’nzaÙÚcù; 8q7.°·5=ôÝiÁÕo6ŠÉ{~» ã5ÁLhÚüÎÁ  Ÿƒ™ð8ÀÃcSÛmƒßÐ>„*ÇY¢Ðí¾â9žoWq¡Íx?¹ ”-Ì©Ú]{0}ß]ÙvÕõ½©æ|­eB4Öf«)±¬H&rûôÇ¿ýôq%ƒ“ +¸Ž)ð%UÕ³\e±®ê殯:Ñ(¥-¢èw–ÛTFî©íÙNëžÐ îë%-ÙA_ ‚'?ßùXV–Þ‚©\Œ&:÷øåÕŒ£7 ëRìI½ð|ë‰rÄãß[ÍzìËv8\0s¿ùöЗî6F £ŸÃ¥õ\HÒ ºþäšG&(Åœ³]E*tbŠ[„f ²@»5쎽_1ÐÏFø|T±êuŸr™ ,e!¨‘ýâÒ‰‡òȾ¼3TP²…ŠËXu'7°i3 f¤‡îàH ÈWåza‚ã¥nì¹Ï¦9¶Êd¿¸S?cº=êûˆæih°€!‹|{so©Ň…øPÒÚ _¾Šv™P<©Ìyôˈēý¬8SP-CÔf|Ê肦m$ÓÒ•‚ÿµR,ÛCÁ] ö™ËµbçÏ&ßÙìÁõrIL¦µ\Øžà0\Ùh³îN±íáë¯Ûž,ËÒ7Ûžu¥éá—(€¥JÁþ¯šÊN¦‡’¨/ìôÅ`>ð4ÏG÷»tûtF×ý™—oÏÝ‹ ”¯pª½áïl–XI° ìöŸŽºœì|u,6f“¦Í8 ŽLšºÊ~=› )4ØDP`IUC»¤&)“ºs¤d3 ˆÎQ—$¾øÎQp'â^‰ÈQ  Ž±hòÛ³˜lÅ þ'g™+ß_q”,¬uK½Z0æ3í…>¢Xž©¯ùŽ¿ ˜¸Éž¡°Ùµîà>Ëöfe ‘êÿàÔEöfÿÉXžê¥=CL  Ù+ˆé|bŒ§çSLòɽX«ä̉ñÏ»=æß+KŠ)èäÞcF/0ûé×®”brÎæ~^›N2‘M!¼6.V¹`\ŠØ¼Ún´èã‘òÑÔ=º J¹÷¶zŸ{š4agen´ÖÔ‹K1ph@JÄõ´×5p3Kp<(©8z/¶\u䑘ZW ä®Ú=‹ø¼};í Ûð(ÓpÛïéÜõN}”È®%LåØ[ÎߘÜØbäç“” ULqL7˜çÓ¬XyžCê:ùÎï+ŠÝ{™(xÍñ( c µ–×vqL‰96ýÍaœjD3&ß»³Y×Ï#VÌ4ãp }q;+Š‰Ü. †³/¾š§h>s°?_KöšÍ´ê$Tt¹È…´—‹T¾+TžÒí¢ž=ÜÝ+áz¢r6ÚežÃù;çOò"¶3Mª8tý¯€E¡h m’h‹%Å|k´Æ•9ËÀ„¹çÙæÓºÉtÖ“sgûà_žX”Tµ—‹ã:vàñ +'E-ŽmrÒlV6¡r ÁÉv¼ÛIWT’˜õ<¯Úeñ†zC‘DÖ,°9ÜçšÞð0&_³<õšå¥pÌÌbËóajº3VþÎØ*ëµÃ¹k½G ; 8¤ÊE0ôÖ)UdØŒnÞ”#ŠÃšÖ8„Ù9€½ µŒ‰9t5nÞÒnº£„TÙHÙ;¤0H:ºÒ›åÝØç°²®œšþCt1î….-8éàkfÀ«*_ÜòR!RN¡rZvÎÿõ€ý%uú5aWèë*¾EjH%…2›÷¸Z°'Üð°ú9 ÷ÕO(x¿^Å\T¥S½¹<]í*î„©~AÛ³†}áas¥ÉTSi2šl‚H»ûêAJmIƒz§#5°1´ó–ã<õZ åãÍ»ÿÆÊ£q endstream endobj 3011 0 obj << /Length 3493 /Filter /FlateDecode >> stream xÚµZ[ã¶~ß_a,DƒŽ¹¼ˆº´Ø‡MšM¶(ò°™´MhlyF‰,¹’¼“-ŠþöžÃCJ”L{¼I ?ˆ¤hòð\¾s¡øêaÅW_¿øâîÅ«·‰Xå,Od²ºÛ­çLÅÉ*‚%*_ÝmWÿˆ]¹­6ëöÅÍ?ïþòê­N½¿¨Äõ”%ÉÈôcS—}O[´Ý¾/‡>°ÅZ)ÅròçZÓ U3”ݦ< ¯ß¾ùëw_vLc61äO°EžFE ÿjàˆ7RGn„ŽJ8i¢#à’<ªv’œ qÝ35îXõvË€~P„!›ïK£—2úÁçst!À±8O¢»GûfAŒ”ýPʆ. aò´ÉÊêòˆ4àžb£.vÖg´$B:>GÄÐmkâ1õûêߎ2%‰’†¹Qͺv§Á§pØÜÈÁÈÅB_o€³‡&™h ´CeÑ¡=낇}ãwàÙÇmeTKeF6ä» Z¿)©IL2MÒPl˜CaË?”Yº³O:É|¿‚Ö‘:>Rs×µûÚ É?ÊÎÃx² ;hO´†µF#ÑW ;ñ„íï?¸)ú²'U$e¢a-1_Z"<ÉöãdÔ&ŸªD=Qàâä@v=ô]nî'x.)$3×µÿpÑs)Æeð\J §ò‰sÞæÅGjŒnÇôªÆ†X´@–&æò¶ÞG¦q´?ÖCðˆIΤΦÀUÅ4)…¥q¦üdJ†Ò&¹œeS3„*Ð4*V²[›‘O€áà3ƒŒkbªpÈ=I–H/î÷8Æ–°´u–‚Âl¨£Ûå‚étÜï¿N×+Bó?£W‘S:8<òñs{0=ÝÎÛ`ê¥Qu±q¸°^¿üæËï^vÒ9KÓцnË¢2ŒˆêVûó»7_‡–K ÓésË%Ëå¾yóþâ@Ò)Zi1Hl³å²ß\hœò9ë¤èïŒ@s/g„fÛÄâ ¼uF3L^Nfa ” îCÀ‹Èò¡2¡›ˆçþZÄ3ØÓ âÀ ›GªK/¦!rj±³ðØi—YaŒì©¶ÒWÆ{xQ׳­, v!/°-e³5É f€fîåË:K–¨kÁA_«YÒ:‚ƒ 9@`o.U¤¢JR»)"ÿØ— úO¼’˜Ôq(Ž’× tu ‡ÍÂPb’å–¶2öî# îH·W˜.\©eŽX¡>È”ÏõÁHפëðN8Eå3éâ #ÝÑŽž9åTYJ…¯´[4 Â$§ØÅŘ ¦|†ŠÜĸn ™‡]7*L%q!)ò·fæ3° ð­Ò܃M”3Á&¶¬G†Ö–@MBþ ÒÒt^ ki‚E¡  CŒÅÜþ¤:±?"0#H¾ßWM1ýÍ@ú¡µ¼llðžŒMqkl°›gŒMjHà§Ø3ÆYe>æaï(P#ú<û}qaEàX )êylò͸Ÿç˜£›·µnÞ™¬æK7‘é$H߆iê]ÏÓ§eh}?þËŸxÚp÷ï-Ř-S©)>'ôè*¹ªº!'t_ÄN±ã ls&ÁÅ9.ÀƶuÂТÿ:Øfܘ3Íý”[e,ŽÅ'Ø’ÉLú¶«E‚GK¥\$F¶l„îA“»Ðë4aÌM|q„‚¶¿CL0™©7kJ//Ó ©”üÛ11fq’/I´ÿ %¥M ½¢KàÚþhŠ…0dàÃ17`íR°ŒÇ×ÁÀ;ÄÛ3A:æ° Èéêà9(™‡Äö¼y¼41XÏ KråªÊñ ºã«ãi’K1r?ôÁ%ŸeN 8YÐ>´0ÅŒþÒuÙ<€*Å=e¶¸è9w;’Òíˆ^ÜŽÌ/Å`¢ŽWÞ«ñnÇiƒ„¼iQQ¤*ˆ´V*ã3WÌÁÓe¿æŽp^1.ÓY¾…²ë Ò2Ø}ys#ãé²Ëö&2MÃyBy®˜!]2ÿR…4'àR@è“w6Œ•>„ú»ÎjHÏrOð”¥SŠò¯ûbp2ú9ö­Uέ{Ñ ÞP‰ÂBšœp/M|î™=mòe‹y˜™e© å<Ï,Ž@6)¦²ÜåkÿII+KŒwtë#/¼òj!г÷ öo® ¨´©ãÌKJdê¬ûWS¹]ÊÌ¢L±2Lç7R8eÔÅž&ø¸NEw7 ½ýÇ´$^ÿv]ÙZ[ÉÀwž ßmNyò$µŽLR£$™½qÁ±IW±‡Ñù¾¡8C1ÎÕuF ÅX/Ÿs ‘”½ÃÎmCwŒËÔ3‹?y£É\"„Xq~z 2ÆšŠÇxK¬ 0Íåj f7}b?›QÂrןô#œI/ñ¤}†ãuû°º¢éAçöå6L¤ñïRÞÖÊÛH ²‹jÚÊD»¶ÆÓ*+¬±e' X®®šŸ]¼gK^(©6„Lè)O¬òè ˆöå0œÓÓ˜Éé{ bâëò—CH… 8šn7néLd;°¹Z"Õ¶F‹õ0‰.—J bâ'Ñü¯.7Âô$\mìÝ•’?«B)¶È¹ÿEvÇ<Ëô<%Äî< âVÌ*…]ä’ÀŠáQnz}÷þûÐÇV:aI–ú>vœ&šÔ-^9¾Z€!^z°dYé>©«èé±íí=ëSµ¥Û0{ CD"Ý–©è¾è]“ªÑÒÜpC÷‹¶Ù•]×B(g† jŽEkº¿.ÙƒIg$~e‹n){ó›ëÏhàËw½ç b‹Š¶‡Jù…”žFp7ÁùZ¿ F Š)™>÷©Ø¯O†>#"ì)´òoËçq ‘Jÿ.„d&g÷æR´ƒã¡)­ÍqO5DËv¥f«Ôã”ùÔÉE<‡$y‘KšoÆ‹[ +ñ­âð>L Pýí&—fñYÀ&ðÇ?ÃÁûƃ/®ÜÿD—æØÞÑsS}èCG°éiƒjñÒû’õåí˺ê©yæK:n,žPÑ6Öô¡„£åFDŽúˆÌfë:ÂÅ-}mƒfK‘K®FB8ÕÖöû‹ÚÀ/ÁZÌovžeš¡ÿã"Wší$UÓW»—R«4m ËÏ¥Ž^2~aëµ] ñ5N]]^¿ý2À3Ÿ'@0Rt– Ä—î7³©X}==V.î2øòí¹¯< >-ÿ6’Ÿ@òñpø¿‘ëž_ݽø¯ëX endstream endobj 3021 0 obj << /Length 2818 /Filter /FlateDecode >> stream xÚíZëoã¸ÿ¾…‘O63"©çµ[ô¶¸-Z‡b‘ëíµ€lÓ±îdÉÕ#Ùí_ßÎP9›½^¿,Š!çõ›á(Áêa¬~ÿæÝý›»÷Q²ÊD«xu\É :ŒW‰”"ÖÙêþ°úûZÉpóû?Þ½ådªŽcd²“.9ûN4ç'¿ x÷¼{¯õdõV‡©]¾U tj&Rˆrç-Ÿ/‰E–*·gYoT´~2Íf«²d½«ûê€Íx]©«;êàãuEEÕ™æ—çåA´ð#i*¾ÖUù‰&k¦ÞäÕ¡>oäúî\|ÜÈhm[sD G³ïZšt®[òDñíédª%=¦¡Páø°ùáðñíý‡ï¾YRd(R=°õy¹…„ÊÄ9­úÛ—~œ­[à›É²Ìp É [(3œ9‘™í>1'3ðÃŒfKS'Α\[†©²‰Øþ}Ml[7×3æÜF©(XóVÐ"?„FYïsŒR[Çyä|óç…!ÄëÅÞÖgÞ˜*ðyIï¦4gSuíÝ(1KwÜ0! ØÃþp\ "¼óNûúñu¶v H-´UC‹éú¦²ÊOA–»!ÓHÑÒ3§GY´<À4RAO TãÆ™M~ùWoÙÇÙõlïºâå9ou0í¾)vp+•=+bµ³Tò]N(Îbv–@„¡Ñš}í:ÇÓà Ÿ&"lð‘Rš"¯öf»ç]Æ.¶¢¼k w!Ã;Î(Làd$8j9ðùž¼S2‡¶•y¬Ð’a'¢ÝÄ!4. ¦\üÂzˆ)A#û„?‘®4Sj~xfá2IEë1’/Y7$Ú‘òõc_ÙPl0_ßoÐjètèñD¶Ñ˜ÂTË|0{9½òŽ[Ç&?›[ÒºÔ“iê«L%BXª¨ˆ5ŠÿÕÌCXŒõÖ­À3»ýK2ˆÁésßÅSüpAI+bÎø*ômÝ™+×ÿ…l£3ðü®®Ðµ† P†l Rû¹¸ôsñ–¦ä /oh»¦gÓ„‘]Nxcn=i ÆÀ»boݺ=p—¨)¸ÌÐIèÑvp¤¼aÂ@° Ö‹üib$=”€›ãÄžpѶFÜr>Nä16Lô9ƒ˜&¥Sɨ"¹…S”þê9%’xH³²xT›´íÌx}ŽÐR„qÍæªo³h˜Î€˜Ÿ À(XoAÚËSlìâ,Äf¢C‚¨nH_,,(‘vêLÛ½½én>w¢ÛR@(Ð>¡ŸªS¾D °;É^$¶ÕxJ˜úFBTO?µ?¾†êVéh½¬†ÈÞ¼³æ‡S½_$›‰$™“å`©kéâÖö¹ábÿ(wÏÜd –ðÓ‚Y'8±ê`L&F6. gO„–  †­‡ÆXwÕ| ŽÐu°ž«9²Ã“>ËlˆYZ³|‘ˆR‘‰¯¤ås¤:ÏQâÙ¨î%… Pw” „ëª?ïìå ºíSD©²?W­ßÉ‹Cç86á4œ 8}ÕÕoè[pÜ›KÇý¦9óÀqœI™˜eË=n範û²?XÆlæi†|rÝߣ\ (ŸV‚æx S›kªa~¬f¶008áàžo!@Ç¡BÆb¡ã)ò¸Íšàgp¾/ °ÑlðRÛWÅK¡UƒÄU<­ N¤k´"W‘³©…m\5;,ʦåÔ!Ñ =cmËâáÔÑAºø­Ei½…LGϼÄÔBêBR¢€niìéTS£íLË+:î䌄2æè ^DWñBe]^F‹DÉçh‘z`‘ L-:i˜^‹ˆÁÂʈÀÂÊTK,(ß%è¦~3dsŸS~‚ÓD‚z¿5 9=*Ì"KëÎÒ¦ã Ziª¯‰TkÆ£q- 5‹â—…*¡‚h–YÌÄšdƒê\8òW )Ùƒ,éw«S€ëXùà)M­¥£v<¸¯›ÀéW˜àC–W–þPÚ¹vù¥m\.Mý±8ÛKw‹ÊÍRºààŠ}}¾ôÍl^“ŠŠzÏrGJ{>!¦©É5^¥%Dà€\¨­i*Áβv‰]S»Ä÷©]ÒT+ 0Æ©°¥0ÐdJ{/;·+g´Ô¤ü1Õdf9K|þ¹}i^ðºRläÙ…Â0¢ò]4F‡,[ËÑ! ¦ÉÖÈF±?¡†" ±%J^Æë¡®¼ÙÈtýÐî'SŠXRÐQÖ,GÛkÁûY=ÐÙžF²'°'ƒ7Ì(ˆ± âÓòôžÌ ²¸äi_¼ü‚ËÁxL3`Š;¶w†ždˆ{í}žƒ´ŸPø«Ç4ÂÀ«0¸ÊÂW‘'F¡K:aÝxq˼ZòŠ6*„o«Ïá²ÐÔûÜÖ}º˜·7x¸OKÉpêæðŒtç„­Hˆ 2°+ßo`ÎÙtù¶qˆÓ¶„ѸÆàØ•+'"Iø4§coV!/^ØžÛ%pÍ ñù ¸&ðþ¹D;›TE‰(6þŽ4–#E˜¨+x¬(1.Éå6)¤áó’Öá´ì„¯Ó;@[àK?6©fJ-z’{im³@V.x¶KŽ³%V³è®€wïlZ„ÃeQ°M;£¯vŸ;Ø/°zÙ­q›€¾§¾ûÓwæ*5v1\@ üpWØØð×ZZâ2X|óïŽhZ®ƒØ_9r 4}®a†uo pŠ!ÏÑ„h°XöðÒ$Æ_VñI´8¢Nkè°5/lX¼Åå»./lÑ׺äçu ºRÑô²»+ûË‹Õ?ȨC ö=ä•M¨íY*ײ耢ŠæŒÕkßÁ¶*÷U¡/´¾9ܼþ3ÊjË^鞪)*ÆôœrTΞŸ®.z¬ u ’ö¸T%Qq¨/|]™T=%/¶õPÂ6Î*ð Á­,¨†ËUh—`cZC†WÿÛŠ«uOØt o›áíu&ÉöRW˹Ìæ Vì÷þVP¾}ï*NcUW™¦©›–ÚNpJ}.\íÉ]«°ÅE+9Öªí侃¸É»|]â—×z©(„ÿÞ‘õŒ—¾plÝ\Ý‚¡´x€»ƒ«Ä?‘ت1ÁX7ž×0¢$~è$ó­`¹ XE‘_þzƒgéNu3~‡ûåáïmõ½<>l@ŸŽ¯¿lÀN ³?u»¼7üE ·Yúœ&?ÖDýô¸û-Æo°Ü-dôèÅ¢n~³”%ªPD㧨[:¾H,ò qó9avPð©ë.íWwwOOOÂíŒyßz²ýKð$# '³ëßTÝó›û7ÿNEb± endstream endobj 2918 0 obj << /Type /ObjStm /N 100 /First 971 /Length 2082 /Filter /FlateDecode >> stream xÚÍZßo#Ç ~×_1ÉCg‡Cg&0\¸ Ðï ´1îAµå;µ¶dHºÜå¿ïÇ‘e˶ä®,éš[Ô.—Ã!ùñǬb%rÁÅJщÚ'»íSq1"9*"à6k$ÇœíVu’Ô)e—ª±DvÊuÛ3Q\ŽÕˆärNF¨+"¸¢&…ÉÕbD,ŽˆSu³©ÃìH (($© @A£L<Ö¡”L'èC©¶' EŶeI‹íAðìrU†äšÚ5<ª­&¸±¤®³*–0S,K’i'ø—‚i"`Kb»²i)7ÔÕŲeJ”jk%X,°é”¢cªŒ%`8æfˆ‡=m?PŒ%Ú~R¥¶ ŽÙ³Ê©éžØ±6 hrœc£ ¹¤Æ‡»µÖšȬE*¶qc“›AåÆ_œ°í½*ØXMZN„L|ó2®)B$_&'9 vRÛ³™] ÙžÀVR f•\\âæä\]’¶ h‘¤í¢KK‹–ªY1’–-êRnÎ(\Jr ËhhæW5`﹘ۚ£p…š£ìRlb+øc[ T‹àVnŽª¬%Û-ˆ4wSnʉÓÜÂii×_9´­ÙeÒ¶F±ow«Ë"M ¢>ó9¬5ꂵ8Àª¹ˆQ”mPAp#¨ |˜ÏC(®pµk°[Il×€„’`#Ü­€!Ñ Rr¥ÁÉÉ ûɨˆ>sÝ?þù«£< ɾB¯É§ëë÷ƒï¿™[´ø‚­ôäŽä3Ø›5zE(õäìá×ÇܧÓÉÂœ¸î—DËÇNƒ/¿À4,¿ |i⎠þÌË;×ý2›^¼-ܹë~ùéÔuïF_î~©w¿ßŽpcøa4è~IJ£Ébn ª=?èÎFóé§ÙÅh¾LhíÚßF—ãáÓ/îÜ.(œ—k|…†3O–m ƒîí§-Ú÷¿Ž'ÿt?Lg—£YÞwé~î~<§öÅô¹ÀN„Ä—lÈ>!½¾áÚÜ*œÀ÷¦™ï­ëþ<}7u0ÿ7gW?]ßL/G×ßšaÖ=éÁ3µ6Ç éxKúÏݸμr# äác0Cª¹'72ŠÚ—[jô¹nKð=Š·G‘ø(øÖâíI$BtAÉÜ+yC$ò‘ˆünú´¼=$7Å ª­£ûDóÑlHä­’ â†öQ}<ëûû¨nAݽ99i to.ãé¤{Ûýýìgûûæãbq;ÿ®ë>þìoF‹áÕtö§ÛÙôßXÄOg¾}ˆÔý0C”=[b…šÈ|h&VHæT|ˆ¯€ ïÞØ5yeêÉíE´'7ÚQÒzr Áu}e£ïñVÔvÎØ ±Aˆ¥ŒBv8IzŽ á×#ˆë‚$¬:dvç|€HÖä[ÇXÔ[§ÅÈm¨¡[Cõ·ñ•ŸÝ ×#uÏ2ƒ˜3“°TŸÑà‰¢Ü m 5õZâVE>Žç‹j‘ŠÖþcûÍž7½•ì5ñV-.G“ùxñû3àŠìÜuæû£âCÑãp“կؓ[´zëËûq[RxÆý«viVÓX•xѻʹí Xeoó ‚Ó°Šà,˜0døüV_„ÈÅËbn¾¯½Xé·ø"¡$Œ8Ä=1£oÅĹKFkÑvp’]jï&n)ÁS,}¹²kìÉÍú‡¾š0 WTV{a¨÷ Â*¯‡°® ¬|HäÚFXL;® öb!‰¢ûBHÞŒçþìr8ÿ觷†¦ùá*gÌÙ!º¨´X2ºQwcFKt«N‹Ùp2¿z†M; dùaN³H®ÇᎥ¬ý¸,“¸ôåÑKH=¹)Oå«”Å'Í-2a^¥§vjt¿ÙáTÞ‡9?ÇaN¯Ça^Uмdæ!‡D&Üäí Œ™øÄDiÇ׬­Ön…Áílx³îÏÖ™ZqõbOnŽ˜vrOæàé+šFè§gZ}ÊøöôQœ®Vzœ˜¶å•#š– §ôÍ8UžeœrЂ/ ã¬I1x)öVÃLÙÄ(¶E¶Âõ7¿=+®e—`,ºK º‰[P¤âƹðÜ|Èù8ܶ¡¾šØɇľÜ1¡]Jº{áÞÞ ?ªÕ/œJÖ}°Â!ðS¬´WH¯ÇŠÜÕâšV„®ˆ¼"VG¿µXjõ@¥­Äµg=¤ˆá("Í##ÓE;¶‚7fô$/#üÓd|@Eób°ðË6K ¯>ru‰ŠMoÿ×ÙB0æÀý«ÑB³*×F‹=Mزt±|¬ímº'{õ-Ö –±#øÖ¹Œ¿øŒÁ‘C½×ÈNÝïÿÒèb:Út6ÑÞ0÷- ™füèí÷û½Ý’¯ž$¿õ®á˜Ó¢ ù®¾6ßµWë¦O{³~GäQzÂGÁ£¹UóJ°³p4ÙhôÀ¾0“<©0*©*Û¯,| vO–Õ\ÂPµ,kgŒ–89.á³@­l¿%ñA¿ž–R¹˜ÐÒÛèôÚp²½ß)Õ7RØ´ëÌ÷½šJÒW¼I>hG¿ç¯mÜZÚ´$w¥´"Vè¥zi ½ÿ\N'Œ endstream endobj 3031 0 obj << /Length 1812 /Filter /FlateDecode >> stream xÚ¥WK“Û6¾ûW¨âlBUY¾½«ƒíØɸ¼µ®ñ$9¬w« ¢`K„ŠÇ39ìoßƃ©áhÆöEx°Ñèþ¾~@xVÍðì×'/¯ž,ß$d–£<¡Éìj3#£0Jf)!( óÙU9ûwphx) š=›ÿçêíòMœŽ„y‚Ò<…V˜’Ø=ÁþNÒ‹N|ASØ Ý¡K¾áÍœd¯ ®Fçz†·’l¶ 9ÂIê4üÆËŠ«gó¥yð™1 þ˜X!¿û“Âà_»Ï¢ö[^ð#Ž1ɳF‚œI<¼-Lc½4ÓBiQ°;¿çz+Kå.ØȦße V³Ý­j9´S ¦„˜XíNÿ"øœÄA%½­¯^påjŠ.è-?²9av¬øÌ*>ÅZ×FYÖy?äÆêØ°ßÉ8§$@üAnôÖÌÃ4à@¥)ÿÏm2¶€y ƒ^h ó“”&Q6ÅrDÁôËY¦ËOÂ×*Àá$Õa„"ðÿTÓ˜xªí‚ÚŒ…½wÃ$<ð¿ÝÄËÚ¬…ñ…]hPÚe/‰‚w²°y»P9wb{YòrsWc2®‚Ó¼§ˆôT\rÅm…©SÛŽs+3¦ü¶†3¥Õ'¶«Á\‡P!uö.×è}Ü‘ðªéêd@u’§†ì”ÄSlƒå8:›ÓÓå§Fí‰:a L§¶e& ÊyϹ»ýÅNÉÉŽ‰á£lÖ˜¥›^š>:²®ï£>~6Bk^žvðQ¿=f©KìˆÌ 4Ø´uáʹÙÔÒ1Yïn hnÇ6¡Ý°B»ƒ®\XYL­ vumªÛµ¦·;£ãTžC…èSs½kç<¢! i2íyD{ ¹?´Ú›üòÝïï•oÇq‚pžŽ#UoxIMLËýZÔ†¹0q.›ÉÑe#stÙ}…Vè>øw˜“KŽ=Ò”¸c4AæöÔ££qŒÒ´‡€•åAînÏFAŠ(»ct¶™ã•¬•Û^3Õ 8:œòah®#œ†Bd€€µ½Fæ Š+íæ‡Ôh2u²qÚ¼¾aûÃîž7æÝ7' ”²$ês%C8%N×Ó§Oç‹^2P‹vÇL8˜åNVnÒõÙÏL­Tnnù´Çd ÇÚk¶”±®_]³F°îEl_5Àò¯òÒÄ”‘úÇÂÜTâ¤ڞ3Õ6|õÃååÏü¥b¥RùÕV5¯üª«âø­„ÕñÜÂVðƒÖEe³×[B6’àÅ£sׄæ‚oü«ÍìÙæ0åHÃÕØøŸa¼¸Þ†kqb̃†@\ˆ=³d¿æ <:γã¦îýbfyü77yu±|12<…«±µáGø*¡ÕŠ~—ßnZ~Æ4¨¶µÚ¬øÍákm­¥æÏ}„êCqp«gðwª‹[Ñ\äBÚº©\k%Ï»)Ô‰ä {°ÛüšBaÂÏÞÂ5/X«:7T¼ÖÂÿ³^Ì:ê$šyj °‘zæÈß½ÒÖÇóÞ%z=¶úèÌ9ãævíñlUŸü=Bþ'Uy×Þ5ôk¹w€¨í¾±¦R+ýQ³–>é‰sƒë\{ÅZ-©Pšº˜á]Ûy Wÿ—Þ žšó² Û˜§‘9þ `NUcçH—+O>b?AÙò8(9Ò¾|]àØ(Í Çô/ŽŸûwàQ$>IôÑ=o‡ìª”S×,áÍE ¡}Íß’í=<þ¶c:™?ï×]PvÉ';q#à}Ûò†?›HÓ^yÃ+hŸžÝ5üC\|5£•¸æ§¥Åö×.ÐÖ²­Ku_$Aµ£Aó›¯7°ƒÃ> stream xÚ½XKoã6¾ûW›› 1—õ,êË¢›Š>6{Js %:æV–\‰vœK{‡OKŠ’:AÚ‹9G3g†ãà.ÀÁ³×³Wqä(OÂ$¸^cD£$H A ̓ë2¸9Irq{ýÓ‡«„ôDi”#ç H m[QKÄêæ‚Äçû‹0>g¨Ý0µq†í÷>\Qd !‰”†9¥D«˜‡)0©SÄKQÈ?pŒ[Þ]^ÌcŒÏk~¿iÊnQ(6Á–:‚:"rDìˆÃb'²eu·ZðÃÖ2XY׿ù¤„”­`ç<$('™±æììÌH¬¶[ª®1”¨‹jWr«zÍWò¶à[iù¼Ý¸…£¤†3%=0B‚0,šïÄ®Eu E€)=ÊM)Ò”Ø0ÙŠƒv}Æ1Š£0˜ƒ-yœŸrKQ—úLìÂkèu‡”Ž‰m·Õƒ%Íð±©W¼m›ZXûš¶å…=ŒUÓ¢YJ&jQßMçžUf¶lvµA]Ùð,L”Òi˜ÔÂ&5 A9"vÄ&ÅÀ¤&?ÿºëäiѽ6\7âÀË9_­¤Î²š’[÷ï…\[x—]Sí¤©bRHŸ ¬. ±Ý-+Q°#ÚœY¸YOyËdÓN‚ H±ïçf„Š¢{64öŽÐÉ ©…þvv‚m†üöhƒÝT2Éðó¯ðØÃåÖ/¶›ï¬·­èþ´”ò´ÅÁ#PË(ù]ËC]¥ y<ÞMò ¿>ü\Ø%øRÿêp2LøÔ¥ýÉÌÏÉñölZ*É|z£ƒOM |š²ð)ZçŸÞS—.ÌèáS“#|j¦àÓ{óÔ kXš{‹ Û¸}Ìï_òªëûqrl¶Lìï'õé^Ic2±kÉqm²ä½}¦ÊûæQªé¹2§©mÈ5+»o- »QtƒJºbì} £ÿ"Sý1«ª¦èáurâòÛçãZEÀ ¸›/XÏ]IÞ>øà.ŒÒ¥½Ïi¿¿ƒ Îóþýî­ì¸<9¤NŒ¼¼9héTõyì˜\ÃêcŒ*¾‡<™rÈ›V7’7ÒV45Dx'qWî6›í¦ Ö 8gOÍgÒÆn·å…X džD‹EHwHkÞòUÙ©oIÿ0ñc?m¢Yg#ÄXσš©‹ÞÎj‘jn¼—V’¡=äuö@!)xp†ñ[ãz™1ÝC'9<0EáÀÛsêS{×ñA1R5ÜÆž÷røø>º 1×ÚiZ¨}£«”-—-ß æÓÈEáñÝëp¿28Oƒòõµÿmt“7ÖMN²{öézö×Lµ+8 ¾k ³å˜Åfvs‹ƒÁ Dó,¸×¢› ‚Æ2T{RŸg¿ùÖp<êÖº–^k ¾$ ÂúÎ(uû©n3‰ûC”g¾ÃúUíÔyrþ3—k})©‰^E¼×½¬Š ¥ù½aêàÑ«•èl»;ùeùUßÈO£'(ƒñ(™F=™hÔÃ#’…ƧxW´bëì¨ãf?ƒÄ(Jl^íjÝY$TíUãöˆTc}3“•‹Šuo3{êi‚RìÍwþ”Þá-qŠÂ,v² æ …€[šz}îžVšæ`€?qd%ú0Î)ÎPœä@âØâø¥S·é‚Zèõ·¢I ÏÔ¾}t¤ªd¿” 6BñÔ_G‘¨у,éŠ"”Ñð9Us’DˆfP“ã~~©Òpp//q'd·8|cËE ªNOÃÿ Á0$&BíHiþ<YŽÂœœˆÃÍ ¹½}ŒGñá endstream endobj 3047 0 obj << /Length 2295 /Filter /FlateDecode >> stream xÚÅXYoä6~Ÿ_ÑÈÃB X´Hê,ë™o2H Û˜AïƒZb»«E­w<¿~«xè²ìx²ý 6YE«¾ºèmî6ÞæŸoÞݼ9¿ é&!IÈÂÍÍ~C=p?ÜD”’'››|ó‹S7EÕ‘´’[8[8)iŽéöß7Ï/ƒhÂΓDI›+FF#$zã™ó€:œP»–ÜeLrÍtÑl©çÜõGQuíŒ}ù=¿ä|*{¼qiLÂXïóÛòè© QH’˜Y9Ójë²ÀsäîW‘uf¼×߬LÛV_uvZD ©Ýá;Ð΃ÒÊw+j "ÂâÀÒÊfe;ê&†ÝÊ¢U ~˘š ».-*‘k‘OEw0—‡‰7 ê@¯ž¨ „ó¼`Tú’æ˜O/²ädA:ÛÙå±GŸY0ƒ¦¼¸+†}Ñ8€=À»ÍÃœNêo[‹¬Ø?šÉƒÐƒª?î,%Ú¿9ÓRÿ©Ë4í|«Ó¡È‹êQ¥ø§m_j©A.¼# -_{}i4¿úÛȾʭ9n½ÀS»âŸ\ìÞ)ì¦'ŠVQõMï‘À|ÚíÊÞüÝ7ò¸ Ðà…ÃèËF1ÚÙ„òzƒH8²Ñg¦à«±õUb`:sñÄק±â ÕüCZËuß^œ¼ðéK‚DëFÌIñÃ/Û)s·{¬…^éDÛéE…˜‘•0†ù(êÒÌe.J½I°èúÖóXVà½Î¶®ïq Ü«ïêÞì_TYÙç N‘ÅL[¤]Ú3Ùt¢˜¨Ó„œCá¶ÿéÓÆZÖ,_º Ð̆§Ê@Èdp­e•ÕžªGN2ˆA¾†À8R’k¶8ÖZÃY%|G­ár&«®I[p ꀒX!Ã( éF%©, žtL•‹!Õá¸Á~F>ž¦N âoì@!ict"šD÷=%êHÙG£]]±ÄWwn3ÝÍ qögXŸYB1ë´»†$ ^G·oÏ–ÑÀêCŒÑÿÛ™Çm('~ž ‰ÌcŒs¢_ÜÀ›lk£ë4C‚”éQt¢iíq Yö}Y>§¢Fä}f#¥ºÖ<ý ‘êw%¼øá½ÑÅ»asÙÒH¥¼sËBÇÚ²8H™Ïoõÿ‘~柳&qH–Ïâûèþã›?ëŽOî=Rî­/¢Ë‚hEÞ§åDy'*ðæÇÇŸjRþÊ;Ú(7\L%I:-ºÃ„„è<›¸¯‰¢ ä݈ǪJ#~Ì7CS[¯…@BÕ5­” ßzw—Þ®ûº]·vmP©€4Uº:cî1MxÛ…â\¨Y=è6^…‘ô%æP?V–Æ ‚ãZ4$empœPÞ–†Ç%Ë£Ó2 †ûá›óAjŽÂj ¿i–áùš6Ò÷]ÝR©ãxLü0žç"¥} Ö•ªŸ{S˺X±)e„C½½_o|â­t äø°Ö4øŒ0ß›•9tÅèr/rnªy3Õù¦¢õ)¨NÕà[ðûFW¶°˜êTÓÔ­ès¹pAW÷¼z Ð' rƒ—àC“èN¨¦aÃhù*…TWí¶Ìsúöp¦lõƒO(csó0ÏKÌåƒ0p>ItRÎ} 3ó`—ñï1}ÔƒJÊá}@5‰Æ,Œú&í W_•Âö’3ý0?ô íßýZ¿Gb> @¡6,MýmöÇëÿxËC^‹¯®h±„3-‰UI¹.UBý¡ƒP¥A‚ø´D¸RQjCò¬4):qlmw`«i(ëF¿!CstZ©wžœü•çþЪLâв1a#qÄMg¢É?o¡ÕSVþöÖäf °U ÙÜ*—¢](¡]ßT6O«¸UA•F/¶@ÞwÙ ¹•÷þiUÓ$˽rh›Ø?oC°ŸÈÝ.íÅ$Í®X$ À£=ÿõô°û;Ô€)Ä'Œ¬.#›»¿­4lÉ-ë™–žDê‰_*ÌðéK¶’]W·oÏÏO§±'ƒ#+ŒÙã_êiiÛÑd̺õOߨ"Ó`ÞÁ^‰½P®'*|Køvý?qSUžrç#Á/s.ˆ™ø)mnyT. :5h/ц–îú„«²lù“ÈÒa»3½ßç-¥Ô ;¹ö91O6Â@' Ëô»ë_,÷ª¡Zi¾4/¶Ë¡ÂÍNÜ(ŠœºR¾$˜ºñ«¢, ÆÈ p ¶:â|àÔgNÉU>“hqXTšåXü¦6Èçʼn¢´¸&ŸaQò¼]»Í„̘:m]¯‘Zýïúüq ÃÀ% ¦a:R‘Ò€ê]S@z:h¾(†ÏWQ0¡*—˜‰á"¨—Ì®¨Ê ×6¿Ù•µ ~¥TϤ+9ž0îÏœ@AGLjºF )ˆÎm[òàæ ¯æã7oþ 'ùà* endstream endobj 3060 0 obj << /Length 1427 /Filter /FlateDecode >> stream xÚÅXÛŽÛ6}÷WIX@L“¢HJA[4mšŠ¶Ùmúä+ѶYruY'ß¡HÉ¢VëzÓ…DSäÌðÌ™ …½­‡½Ÿß_/Ö/™ðbó€{×`ŒhÈ=Aâ4ö®Sïí2 ‘ÿþúÕú%'£¥4 ‘ u‹UV4()‹w0ªöRoZ`« ñÑîU¿}˜¤FÈ•Rþ*`xù<¯Kgûé ?y•þk†¯µpJǧˆ¼‰ŒTY”·wŒŸL qÔŸdSVƈfg­Ù´EÒdea§KóL*%eqÕˆ'qöŽ‰âA¿²¼ù ’¦F©?^/þ\îdp ÐA¼d¿xû{)¼|hãÝÒ½‚çDHaœ{W‹ßfùÞ5›`ÄCâq ™xu“Íú”3G@ç&ýq~Õ{ T?«fW¦µE³Ç÷‰Ã–'fR©}›gõ„PvÉ/§30†yL&øL(°(B1fæL/TTÙ¡#Ã=§áäñ¥åQíépÊRÀþÙX¢å²®çxF9˜÷x?¹éÑ Ù¸@A8¢e:'’£HˆAbï‚sb£qNû-È®pc=ˆP‡ë  ´Ôú½–[uOŒOA=Ýû+†ñòŠšç¾ãšwTÓƒ„‚8” eŸÌ@Ž9=‰„‰4)-fç„­ˆUÅ€Ò)ÊÞa†?=5æ¦Ù6kêo>}ev!‹ˆ :Œö?€0eÅŒH3Éy$⌺çx8S®ivŒiö¼ò ^nÛ½*lÊø2š}:W@|‚Shùpº>˜íxcž÷Å2‡$_Éñfàݹ„H<(Žc‚§ZÔȬP©±ú˜5;{þ Ê/cèNÄœC†(ⱓAîsÊ*Ä A2^iÊ2Û5j\î0Gù„-· ƒÆA—ˆõ³>¨$Û|¶“ºúëAÑîoú•Úú™Â½ÌÍŸC.U»¢Ž»,ÙMuäÖê?•ªÛÜX=³Mõ®ls[ol R•m‘*;©dhNRµÑ — ÍLd“òÒÈzš45·~À–2oû§*÷“†¿:ÐÎûÄ¢ëø"ôr‡” ÒöÂ5êÃu¶˜Ä¡Ñ6ò Øš×_P’¯‡Ã¶Í¡í,’¼MUýÌõ…šz1Š¨0Ûßs½í”ªàG£ÜB> »/S•Ûâ^‚ÿÀºËI254ÕØKU&‹D­“²ªT.O­èAVR½ª\°õExÞȼÔÂ=ô7šb÷lÛ°T=F Örh^;=¯½=þÍwº Ò¹iÌ7>D\ÇõÀ÷–ÊÆYQZŸUªi«¢ocÇ1„.ªT>¬o¡nW:¾ë¾À=ÐÜ?ü´æ›­ø[cÅŸn*Ù57²íQ×ZfJGÌ=…æ×ÇÛ›ï€bºˆÕ¡*»Ó”ÕöÛ™ Bp;ZÁ§Æz$ºR¡+†Þ­N{±kšCýl½>¨×¬Ëþr¤þ\n!ІÅd¨'CþºÃ“X@ꙘկÕFu)HóíKÊêP¶bð AöQ‡}€ 6Æ­8¼ù¡,Ò¦}F…Ð-œ\ÉBæŸë®¸À®¬0¯^›GW•»¦ÄØM]¿§g2ù(}²Ò?é›sçÒFÁ€0®¯t\•@㮸DH]¢Vý:§]»j AªK¤ÍfWå¦9B§b©f"$‚L¼â0ò¹>¥û\pr.¦ħF?lÃÃ͵°"8˜’,-3ͧµn˜"NÅúC]£[ 7« ÓÙ¨e¤—I~ùo¾[\Ò:ÁUÿý‡‹úâ/Њ1~ïmÇÑÍà>±‡Ü'ç/îm¼“Ù/"SHáêÿã7¦¶ endstream endobj 3076 0 obj << /Length 1326 /Filter /FlateDecode >> stream xÚWß“›6~÷_Á\ÎÌØ:„B¦ÓtÒtš™NÚž›>$™)Óbpœ“ÿ¾«`°9Çwã­ÄJÚÝïÛÕÚs2Çs~™ý´šÝ½ ±ÃýÐYmìyˆ¡Ã0F!áÎ*u>Ì÷u^6(EïD³­R÷ÓêíÝÊ ãŽÕ[|Ì•Ò̳7ý¼š}ža=÷—„Œ :Énöá“ç¤ðí­_xä´æÎ À  ç~öGÜé¨!dèöP`'¤q\p¤?BAG'øˆG¸óèwµ×]úÔ›ÿföjySÕF¸u}:}k–ß­ÿI#õEÓAŽ>% Ú[Ü9l¡Çñ‰±øµI*G~ý!ˆ#g‰aŠíö7m™¨½Ò8ÒTfÜãPYßÌdcƤˆ¥4B€ ^Ø…ófª› >…b°`µ‘Õú¼Ž¡ $Î’xÈã¡ÑüKÆ™˜t÷Üý±}'î¿xá.©çÍï‰-a´¬AWÂÀY6J# ÊzîÜNÄ#’ë,·F§Ñ@3äÂaKÌ #Né€î=ê}YsÓ<Ëi'2ÏÊ|ƒd×òe&šwš)JýFn«~¿e¼P;>GQ/²ª…ÈD™¾n´w!„Ô S(Ìœ7ñUíbožµ;QÚÔy&ˆ_N|D1~Ö¸’ú:N3ŒÈÄgPú1?€Ûa_áŠ|Y’hô®÷À.¦óL[ ÷u «QîE’o¾ÚÅ­0BÙîÖ¦r\)(îâÂLöEœ9>ê°Í“íÉAšv"5“Zȶ0Vƒ]cÖl«¶ÐjÑ|-ÌXWm™Š¹KFƒù¯³Ú–Úäžç‹(Ú]Å–®1 ¹4£±Æø?¥`Õû}ª`ÇEk§›ºÚ5†æZRb\†Í0‚m˜׃WTYžèÈ3f<ñ !ôÀ4 |Ù/{w¤Õí¢ ²Ž.Œ¢LªT#ûrÙÆEñÕ|:äÍÖHÿhƒU¬—S¨%q™“Ú¥[ÀŠ@x_a8y1l<Ïh‚#¿g%g""†ð`GQÓÔÄ~(rêÌéÄ?Ï ò Yÿ U{óÂ]€…( ùuYK(b`áþ¦8>ƒ˜›Pª±'€šôЊÖJ(lÎÃ]z®ßª‘Æ`‹¥>YcieK%¯íw›Ôh*3.C¯…A²u]Ó9%x„8ë ä7È@9bG ¿QM EŒÐ1.ð&]Fe"­láqŠºÇi²1á©úI£]Œš8/ä“1Ûµ®t9ŸWm³o#«"§Æ²Ø&^VËd²’šn£ ”q]“Õ4©0ÀCS Wn,TcøPC½ÞWeš—™9Â_¦qmwŠº®êN»cÍ2(59Ü‘ÈÅTɧ… biûçDµžŸŠ¾ª(žÕvƒYY«Ga:Ô8‡ù½ oŽæÙ3:ÞUÇÖm}Í,­„¥uÙUœZ4m]v® ‡ËVvý ú-ô µj·d×=ÕÞ¿Ý®-6™ ±R€)3Þ»!ÄP$Ûf·gÕ5S G¡é9þýáaý#´/1dçr_WÚªÎ~˜È>ìCƒKúZ¼0æ#¦+¯*ÀV> stream xÚíYIo举ûWžCW.š‹V |è ÝI3™dÚsꙃJbU)QI-v»}Þã#µ”å¥=§‹Ë#ùø½Å½½Ç½¿\üéöâúcy KBz·;OpΔz‘,T‰w›{ŸWRòõï·?\ Å„T…!ãI¢SSTÓm––R_p{ȇۋÿ\hrO û‡Q¤T^v¼øü;÷r˜üÁƒ©$öî éÑó…ÈWÐ.½Oÿö;ÿšK(5½„à,ô…†’)½À\+˜-–,‰…»Ö?pÙz#¾J«œŸúã1m¨ó“îuÞRgW7ÔxG½£ÞÏÛé¬kͱËpœ  $»pAv¡ ‡ÃÿŸ‘¦8uE]Ín=Þ~.ÿØÛˆ˜xhùǾÊÌÚ”þª«ñ«KªíÕ¨³£ù¬LÛ–Tf.%˜„ó,¶—Ò%QÎøð%ãQìã'ô'LÔÛ.-,cEµÓ®2m!9QwÐŽ"/Ö2XÝyŸ–4Öv}^èöº©qæÞp ×S*€†`‰ƒÑ’lûìà´¾p(˜½ÇT&äÆÐ_Ût¯%ñX2sì¬dbÚç»ïÖ›€ƒ.*úRÛÜ9Db¦ã> ¢AÇß-ˆÊŸÁh5gÉ„ÅqüÜ>á'Ì÷-šÁÄQ¨_®ˆÑ¼Ø]{“v]C×4r‰¸ZÆöŒ8€ªX"þ—±°šÕ’3Ák“*ÙëÖ}Ǫô¨Û› ç.[]\^]~ŧ»´„OV°rKß~;Eê.mhé•Kc˜Kà¯ü†[êôtÒU~sû˯ìH£OešééP©ïty“Ž¹²8ÎDg;]“Víî±Àέ"ˆˆ¥©e¼oÖ‚¯öýQWÖU¾Í2¾œy÷™_‰B¥tBšÛ°mïèû”‹S£6<ï”?’·Ò6‚ÜÝÁ² ,öš½çš¿<º  ÅyøXŸºä\Ùé\%e± A}ÆˬÁãÿ8þAÉ6^#xE½Áj¯Ái©DšX‡ßö¤³b÷`1¦a£ê[G‰pã7Â#8ì3nç[Ý a³Œ?FL±Óè¶/‰kô³S¯Ñê¾´Ðo5}›º¯r'ôTr¡“ëZt »Ñ@a³$Áñ›þ ,ù°î£qZö¶»kêãÅYÌ}R(ݹn;¿úz±d‡´I³¡–\AÚpí©mZ˜rôv^—š|˜é™Ëâ*'B$¦›À(ݵ)ÒmiGˆ7»¥Ýq o;HƒÒ&_ŽnšºAGl Ò­–tEÛ™›ÒØ’ÒÝ\÷lâšÕÕoœË“)+5PÆÊÄŠEÞ~;ôC\z#ôb= «îÕ¨¦Î}«j¸pD_88ù#ôň¾pè;µƒ‘zÛ"` zY;Üog\ ‚ä³-¾ëÃ̸¡!о¬>ºQ# åÒTiÓã©4WÄá?Êl‘`°0œŸYέݯ¦þhaî”)Û6y­½Yu°~ýT·m¸}£ —¼^ÀÍé¦ÈàØ$š1 ]#ß$œÈz‘Ø„$œ_‹•#™Ê û(3KÝØ/‰ŒÎA_לRõe¹„ëa¬N5еÎó½Î?ò·y6Jä^kYï‹Ì„ŠXLjjŽÁ:÷H¦M‰]À€Ñ<íRÚ5éQOÖ¡ó0‘æîŠÔnNŠwv éCö'äÙ]ÒqƵRl(SHc›$R¹&£„)!ŸTÏL Jĵ®o(s0ápo/†=ëK\LDò4Ï ¬|Óƒ‰©¯hmÚQ+mì*L)ú2íÜ1Û‡%G±ŒÈ2 ‡÷[,á1$Žn7Vè¯Q°ÇÇ&’Åcýƒ9ÿ™š2˜Ôã/è§ô‹ù™‚Úºâ- ¦G L4ͅ‰zBÇäN_0Ø:u-Q O_>»Èëb ¨¡v³4W Û„pãàëÒ¦õê-L}·°‹Nx4n³ñ•2¡dÁÄ&T2Ù°_Ü0†j,“P2,ÅÆÅcÅ…‰À9h9ùŠ³:ÞZB+󜛑¿ú¹*ÜÄ\|1"Âç$yVÔ²GùKG¡Læ‹Æ – qZÞWSsfÁŒìóo»%}à“É`Órx½P°H&Ó§*Ã:ž81@[žKï%Mc<²öæÛG6³¦/0˜Òؘ Œ”ŠÎ\›zæhGŒFj^И-f%L4–00eJ˜È”0›e¿KuÖ q¦ÐBÙÚ‘fQ“5Û³«ÅŸ ÀÍ >‰p»Ñ_NKD ‹ÅàA@Ñ•¯Œ¢/e[?¯òÈÖ‚`†> stream xÚ½YKs㸾ûWè’*©bÁ‚äT6•ÙÔNf·R{˜qv;{€(Èâ†"U|XÑüú4Ð_¢mÙ“ÊÅñF?¾þºM ºøÇÍ÷÷7w$[$$‘\ÜïŒRÂ…\DŒÉ“ÅývñÛòXeECtª<]ý~ÿÓ݇0¬á‰$Q’ÀŽvv03醺C`¶Ì^ûéë ‚NŽ‹~Y%ÁRå­-l1<Å‹5KˆH.¾ßk¼ç£Y$€—Ð«Þ r?w×i“•Å ®(—»²:¨¦6ÑR[ìµû¹Îη[Õ(ìÚUê o¡óe]âh³WoiœVnj]=®X¸Ôn_½[ár§ÓgÔÙW]ãPY™‹/Ö1%Q$AŒ$aˆW.Û&-vfHÝ-¡Q«Ã1ÏŠüz4[«*SEÚͬ46ª²-¶Ú-ûBCÚ”ØÆ»B£h]a»Üáï6{È·U}Ôiö…Ò@oa=#ö²®iÔ=«)0yé×íá ªóÓºŠÂ@õ—Êr™VZ5öqÂ( ;ËÍ(Oy%@oVã¯Â§;è°ºÃδ,•(Aág¶¬àå…ʧkä²ÝÌ× %L°±ÖÔñ¨‹íw÷ŸþõÃÌ;C‚ ý;L'ÚíT³+ó¼4Ê=uºk8–…}7ñÆñµÜ!ëüݹÓ9›úïHú’$qào51`8xdÀÆ,œ«ñÖ32Vkl•*jãh~—Y²$!4bþl\4HáQ‡GÙ3öù¤X8‰àÁØz_!˜´¬*]ƒ ¶JžqÆç/ãvÝ¥Ößx™ÌHU^iUUVo¸Å×W\ܲéÎn²ºÉÒÚ›¯3 3¥»áGÔl´€]"ctâl•ô;¢8)œ*ˆÉb0çÎaÃ8Ü\+Ü:8ME£Ó²ËÓ$¡±žöÝŒA2JBÖ…¢´7üŒhr;cê<$ nÑû>=gëÔîSýZˆ!Z¼dáàñÆó­>c%ҾŬŽk´kˆäo0§4#ùæúóæù `mÜ{«Á£ŠA'{!ìÙ˜0÷à‰ÉuÀ#ðH"hr!—öri!¬ü_d$ñÿŒññ2L0yöùë^Cç\Øxwy\¡N‚NBªZ±xùÐ @âÞæbœ‡Ã‹}ã!¶\›iõœ 8…`Þ1—Ç9¿´-?cÎÕAxG=ç}› HâêM¾>uÞoO“–I\îp…]”õ0Ù&ýË-4b,Êå˜iÞZBiºYÕ™±A§g °"“!Ðníl´,ò³ã:Ç£o^Ò¶¸°ÔWKŽê0ðç²1ı状e»€R¦Mký:»¾ÉÝ‚B!«¦Ú”†!5µ[mØ[¾ê6žÓ6Ö“¬¶!¸õ¥D(ž ÅJ…ÔªªžÞP˜Öi4p™Úû«S|¬Ç!7à4A™™²c`TžY›N•SßžñÃÑ쿆ru]§¬ÙãNÄv ÷;pYìØœûÌ„V’¸çÕ/7¡ñhÜ:„œÄ”_2œÏز…ømyŽi8Sïçô…®S–çØÚ¸ISªNUÖ4ÍTƒ3Ê€>t÷®ô1W©~*Í€Ô7ŽøЂNû,ÝãYÝÝ1~Ùæ zÐZ$|ùýå†Bh8‘G­Ëêfî |^²é=?¼ÿççÙ‹Ãémøv Ci#N¨¦Or/Tûdâç÷s¸Ñ—P/6bú¤o¼uîÀF\•òÆ„1v}q‚Ï&¼’/Õà ^¹¯¾Va†,ØÈ ¯U@'"4\ÎjùZ…”X@67œ¬¶X€ÍÆë ! Ò¥s‚o('ƒQÙÈ}‚˜Ä@sz˜~C±ÈÀSÈe]Ú$?‰–]QN¬0:2Ìب1Ý­]×tì `’èIH,¯»‚.Å‚ÍCŽÀfÞå%ƒê\þ|¸Ü’¢.Ié¨ø4îƒ×P9äp§ù³æ·~0BƒŽËN7äè±vŠÁrëÍ€J!ÿ0¶ Ã¥E"±üèró×!æJÐÙç²("Ç«&IÝ•e½˜Dñ+Êz|Èa{äœÙjVÛè9JLâÎarý¨óÍöO¸ë¯«$”o×Íùhùë4_2“†ùRmy³ » aø Î¸ÒWgYaŠFc4´³É›† !’yˆ…ÊÚ a·•j|¿nöåÛˆ1ÒËÃá4›fyrœåÕ“Åݑ龬-žA{ÄœáÛ0çNÕÃBó˜FãÇA«º­ô¬mX:[£=C£[i>ÜJühkëÛв´~7¾*m> 5Ñä%Õ‡Üb¶-\2]¶ÑÍɶùX3üµ~afn»cU®ç|,+w„w¬—'q„éíŽ0' çÁ73<éiY¸å©r³ÛZ?6LÈëQ¹Ì³ÃœuCЈ£ùäÖî]⩺#H»K¶«â¹t¸Â.™½‘Ã]¯>.á:6€C⎥ƒ½×…Íp_ô5ã(èž8 §¦k'©Kj’)Øô?©öûºg˜!WȘQ¢Ü.á{’Y¸ÿE½_„}+›¶Úè DâK™ï,Aóõ±_VÆ9uºo6ªõtÈ3£û$$¼/êüåô¸ù€®ÁXÍ¿4HY=üu–· òq¬¿”:袂ۻ構ú“‚é¾iŽõ»»»ÓéDüÉ«µ©òõÇ?W•b!lÇ’‹šäå#³pÌï>鶆¬m4{ƒ¦²¶4` $ T“†0ð(¶Â(£.›‘0ò÷²Ø¶)Â+"Áj­ •Ÿkk¿°Ên3ô \~¹J_„ ôUúoõ Ýëe8ªô2 ñùie!²²ÿ[2û”;Ÿj⼑]ö•t_Ëû\îš–z.ÆŽHèíŒ2FÀåK4ÒH;€3ç³/A ELæëtŒSÛÚ–™1£;F!c•<ºû£®É#å’d”Ïjý‡û›ÿÐÈêÞ endstream endobj 3109 0 obj << /Length 1375 /Filter /FlateDecode >> stream xÚ•Wm£6þž_v+mcÀP]ªnÛÛJ'õm7½~¸»8 w(†Íî¿ïÛ$dIšU¤`›ñx^žy<¸ÖÚr­_'?-&³û€Z1ŠC/´+ »."~hQŒQHbk‘ZŸ¦žçÙ_f÷!>%4B^ƒ¢N¨ª³¢A+QHщ«OõáÁÇlr< ‹Dm}äÜv¼ÀÞå¢lß?á‡"«–S5|Ê 9´=²¡0RZ¹HXž[sè,ñ¡½«²VV4mΪ-’&+ ½\ªgRsÖpáù»82êöÇŸ=µ\~åI# GQ^y!òåšÜðþ™m«œ‹q>; #Ðú}„(DÈWº®¯¯m'pÁ'0µÍ¥[Ý4/×jPgâ›1ˆ„PcV¤z[Y×\Te‘f…Þ!¤uýì‰Õ+e-Xä`Q a•²FI½sÔS…쳸[ÎD[óùÕÃÃÕ­>4›7U)ôl ³‚¯õ,ÉæÉþ] ³ý;8…Íá-“5¨Æ§,ÑËF1ŽŽÂê*ÑþµÛ-«õ¤È¡N½Y Jo@ý©“‡RÚä¦f…XÍùse¶MÞ/&ÿNp~Üi¸¼ØJ¶“O_\+…—p"Â]'ºµ|¨cêçÖã䯓@é˜`ˆf03ô±¸1 LM*ò0ìô °AøŸr*ßx³)S]\¦Ün@Ýþ¡Šá´Ç~LcÞà±â¸p„ãü0BÄÕô €¯Î*“Í‘JòäkîG™¢Ú{®Ë\OVšIr&Ä‘ED¤àèj„H<Ånh¤Æ„À tÈ  ¶æ—ÓÇI§Mu<õÜêìv•!³Û•æÞGŠ ñQ@{oFÂà¢HcîX Èøþ9%&>òãPÙAx€cYtÏ=g¬³FÌŸ¿S½Š2øš›‡A½«mìN×í–Íyn>Ôçs !$žq—‡Øº Z#ý?² Êbº¿¢–\×í.k6ÚÆ îä€"wёÌ&:¦Õó)(8îiïRwyüÜÆÁtÍ«$öºº•OQñ$[½èEÙ ÈAÑn—FR†Y>Sܲ\MªœÉ›n j·É’Í‘¢|2œr÷g›7ûûñ¤bS¶¹ŽúR·$uÙ©I…p߬¤|%È@›ZÈÄöM ð£&çÉö‚)Ë[ÓóÔåöHBáKÂù”èè¦ èò|”p¢¾TSdªi”Ùb_ÖÕ 5@ÍÅ[ø›ê{xÑ;Û6U«# ÁÙ‰£€˜œ ˜JD–;‚­ôÒïº,uŸW:Ë*Ú£6@¤KÎÛï¤Åx›–\[^”ñ§ikýzH*ygƒ| Ü_K@Š¾gyc þ±#86_­mÀ£l ¥íÌ“M³d­A‡¢  Šp0ÌÂ_ñ®j¸é·ßˆ—ãPû.ÂñÝ2(D¶üxëbï¹ØUÆ9!¼ùúÿ&sF(•}sXÁòÑÑ!ìÊ õêA=º;¤{¡HQoêš¹Z±ä³ñb ,lš›A›IÀ?ê¿·>ÈR-ǃFàhIªŽ‘SÜèOΊP4Y"¥%¦ËU³Ú!tÊGB)‚H r”•H8¢#î¾x÷Éu‰ â­:ö¼ÐÐXä!ìzÇ KËLâim:ŽBBg_…@O. Qæ’ÑôCGý?Äò endstream endobj 3025 0 obj << /Type /ObjStm /N 100 /First 977 /Length 1980 /Filter /FlateDecode >> stream xÚÍZ[[Ç ~ׯ˜Çä¡sæB9Å"€Ãm€0Ö.ÐÖðƒ"iãm×ÒBÒÖÉ¿ïÇ‘dK–ä=Ú•Š –G‡3äðò‘Ãã"¹àrˆì"‘Å¥ZŒG9¡ŽÅ^¥ä$Û«”h4‚œ&1žêT2ˆ\ÄÒÞ#·uâbªö6)¤d6¾ä"«½ÍÙÅ’ªQJÚ[h#©I¨ Š ÍX«Z\Áï±* *±KÆ8h )¸ÛBŠ ŠéFx›bSN@±‰"œ2K ŠCãË.2Q¤.iP‚°»²­eì¬ÕV0v6Ù °s­&×Ûc…½Ð¶Ì)6­pÎ\iµ "È`,Ó`ƒµkSÀxmãhzSÓüÔüQ’£Ø¬^ð26³r”à(P ª˜aa5Ê1@B1WrÛXQh»TPd+$€ª¶‚ñ–ÉÂƤRI5i¹5›4ˆäPƒH™‘‚6ƒƒãœL–(1Y‚—Ô´ƒÉ™švàeŽ&‘ÄÜ´Ãñ¸4í`@.+íT5;)Öjlkñ[mÚ)”M÷ÉV¨¸’ÅÉŽÉÕAÀÌfœ 'ˆ¿RÈ3—R*~27!X‹¨ZÕm‡† ÀÖ(rÚÁàII[˜9€²€Bô#KeùûBÂPË ¤–ü†ßÔIIvXRÄ¢ ì¬P; ÉL\œFS%ÂXš,#cŒ–vR¦çLp¬f ƒ««A÷ö÷û‰ë^L§³å {óð˲=ÿåvúïA÷ãl>žÌß$}xßý¹û¹ûé]lƒîz2ZºwÈ~,ì$øhÚ§ä+¬H=â|/ÜÕ•ëÞ¸îO³·3×½tß]ßLýýüvºôw·‹¥Ÿ~ï~øa€ÿž¯OÔà+b„Jð ‘—H¼d{®>:ªÏpáÇÃåÐß̇'Ð+söÀ¤LìÅ¢B=@ òÌSÖ£jAÿ0½=£”}L…Õ'`S.ì–%øûë—»‡ûGµ9$ïâ–ø„sëƒz†@7ˆVÇêIÌ=ëµu/®®š„îÅhy;›voº¿]ÿlÿ÷a¹¼_ü±ë>}úä?N–ÛÙü÷óÙ¿ ÅÏæ¿~ÿE×’étíº¿ÿãŸ"3TDž‘œÓ‡»»÷G™‘ªèç "úq£lyCÙîW³é²Ùö²—8®–½z3òwõì Ô‰ÕW­tYÓ†î6\@)€çêø#+.í^Ïg£7˜Ýu¯_¾rÝÛÉoK÷~×u¯‡¿NÝOÐm2].¬.5ÅÌa‹ÙÃ|4Y¬êjûí¯“ñíðÇÙo®ù¸ Ï¥&8íõpŽÕVÞhÅØbÁ­²›>­°¯ mÄû3e|€ñGÅ:6΀úâ{Gúæv¹œŒÏäH"ô]PÏ|ÈõQ]z%×éÚˆ¥z±èò5YgP(³±|S›áx|?»û oöp°}>%Ÿò AqônêÇÍ Crß½­öÒŽ$ßN¾ídâNZ¡3*’¥¥X=ÍÏL²ºŸdYNK²3è)þÐ}›%o-ÈE¸©xé¯IN>âE?î(jt¬ÏCÚ-—~åù­˜x²³IöMÜËÙÙ¢þkDÍD¥|N % Uµ¹D¯ØÚj³ªU—ä…¾ÓÙ†ßÒþ}..U>÷©ˆG?±¾€Ê y³Íü8Žä‚½¥'wÎì™ûj’ÐRrîÍF”ãsA²_»²•POΡösˆõé9D´Î!æ ±É*– ´'›¤Šè#n’ÏOªÓó ÍvB®Ùùžq}„}­ù¨*£ÙôÆ.kçëþSTŸê—î?%ôl”/‘ågqžý‰è±#Ãy¯ˆ~U‹íuN\O@œmæÇç 7âä"Ìh'%roîàµôdfTôã&a¯9õ䶛wÔ¾{Ûx£”¾®IÖ¦jîËmÅ ôudÄÝ¢>½Ñ9Ø;Î9ºÚÕÕs¤…žÒ×¼Ö²ÍÏÙñ¤Ô ,PЀ‘+þØ䀘§÷ìÞàhqŽ1ˆfoÓòÏc $HÿÇ@˜¡o±q;¡G—Vͨԣ–Oî–Cèõa6ÞBá€p›ù3¤à~+\/â·™i?np—¾{S5[ÆžÜ9£­+}5IE} }-hu˜+÷äŽØ›UNoƒÎ6ê6QŸÑ&ê¦MÔM›¨›6QÏÚ&¶9li½™4D*‰@œ}áããáÉb4¼qd´Öý9i£E®@©ò?Ó"•ì+R5Vm%/%CÕ6³¦z|Fýñv1ò×ãáâãý„R|hˆWpo’6–H(ËäÔòtÈYM÷ŽàÊ ­ÐZùË$Åeøb“”*'Dô6óã÷šCÜÙ¾ç¼}âN!{:XüqG j:çld{òåÍW3“ðÀçšÄ°?eŽAžšë"×*·Ï—œ•¬>å<6+9{´Ï8¸d`|¶`P€plkÙ¾™ÿ¤´˜žãN€̺¸ÀÀ|±ÄµYÐ;qw˜MÜÃÜ0®}ùíÇÍ©xIúTîÿb"¾ endstream endobj 3125 0 obj << /Length 1417 /Filter /FlateDecode >> stream xÚ­W[oÛ6~÷¯Úµ˜!E]‡mX·6 Ûš¬{hûÀH´ÍV]‘ª“¿Ã‹ÉU ·(ü`’:<×ï\ˆƒm€ƒ?¿Ý,.¯ä(OÂ$¸ÙcD£$H A ̓›2x»Ü·¢Ñh+Õµ5[½¿yuy§£[4OPšçÀÓÒ‡!5D ìÅu2¢^÷äë0…Cê.]s¾Z‡1^>¯”œ\ø‡Ê‚ÖlÝòµaNéØ€,X“áÌë¾Qͱ.cÍIŠ"÷ŠodëtÐ;¯Ì¦k -dã¥û/ZÎ4wŽ˜J÷åÙÀÎÉ>)RÞ~à…VÈ*ùòfñiA¬udEBÁRšE½xû%||ÆSs°¤uA´ÒˆÂº ®ÿÌxnï©Â£$"AB(JqüX¼GîKâÉõì%½1›‹ÎEr½“¥wbïÖg=Ïgnÿ—3þ„혠'_c»µq‚·žYœbf‰SõWE+ö6¶s`;Ú¬®fq±°ßÇÕo67Sj64„n|Ò»éÉ |¢e„ö¤ÈSLò+Ä&¨‘ͯ”8ÂÛòGÒêØòÙ„ò†?}ºZÇ/¯©û¯}œÍÚÆÙ,Fv¦“êB"§ƒÏf\ñ4-9VÜŸä´&qŽ"LaAP±ýÇøîÂéZŠ­Ðêç»ÜŸ"„€ˆÌy×8däØçíŠà嶫yã‘ü•Ží!uwªN¥ ø%ìÍeÍdça,%ˆfçA,ÅÑC…ÒL4ÜçòAèWôŒj§CúŽÂy²Ã2Œ'Ð~ÌyŹqa‚hº+.„çû ÀW$^n9—æ¡Mdó¯ö¼›{hšY4]}ÛSw›ÿkV¹Í¾bWSV‡(vGŒ,Gͦ媫œÖ ×¬j'»Ê;þÖw¤VvMÙGÃyèU%ß(2àæ„š–'Í>~Ôã>¯Âxɪ®oy­¬(ÎLBœŠ÷®‹‰ÏȤó"A¤ï ò*ëój¶Ìå‘“6JÆ°Z©¯©è>ûn¬­4_ÊNï;ãÀÿß”ûäwnSCtîýN–¼r—ÞajãÀ[Ï–iÍë=ýÂP…§x©®(8/RÖ”ý‡ºfmO¥™j=- #?§qœ(¦> p^sÖø³Z4¢îj¿3Ê·J;ªOkµ¨xOÉKá¯EÀJ´F-ð„,òêÂyÍî g[G-?7ô‰`NôZ!»YüƒšªkMF… ßV8쌂CQv¬òÌátÇ5oå–7\è{wä4ì6&ø0Á². ÝX\îš‚zàWÈpÀ=V´Ry=XUMØ«îVñGÐzÔ6Þ¬À6龫_L§¥ä>áé+@Ëu×úÏÓ¦qŽŽÏW@ÞAo|ó ³Ò« ¤V›í bÝloV (^ìô-ëúœ7bfZWCëjÄO‡Ï·¿ÂØÁNë}+­5²Ýþ27k‡0pÐaZºpê£Ô¶,Ó¹üòËÎ5™CvZïÕ——‡Ãõ’Íœ°‰?ÙØb`G†÷ÑPH¿|¥0ÜÅ>> ¯ù†ÛZÈÓ\¾!Ǿ†"¹áB(D·ifb‚vë¾ü.›²„™ Ñ45Ã[³†U÷ʶ9¸%÷éµû³ãýàš¿d3ßœîYñQoýä-AAl” §W&9% ×6WàÙfJ姛TŠk[ ¡ðj¥k¹Ñè!4]ò`ÀôöOpqŒ h2Ã#·×‡˜bj\wáä“wa˜DšqCDpxŒ­R £Kx‘,¡éå¥ÐgL$0MVÓ¢8ždìw~DççÍm!(B’ïüˆ~ä0} Á ‘Ù§ô±Ýð¼üA`5& endstream endobj 3141 0 obj << /Length 1684 /Filter /FlateDecode >> stream xÚX[“›6~÷¯`’ÎÄÌÄZ]A¦ít›K;™^³núäcÙ&Áà"ˆ³ÿ¾G0bYÇ›ñƒ>’ÎùÎw.{[{¿Ì~^ή^…ÜKPÑÈ[n<‚1bAäqBPÄo¹öÞÍ) üË×W¯"2eG1e°‘:ÔyÙ ]†ê}ŠÚ2W+fØôr9ûoF`Š=ÒŸqŽ8I¼l?{÷{køóµ%±wÔ¢{/5x Î(¼›Ùßý~ãQÂØЂQ/Š0Š1½@G0/t6 (‰IgÞ_j©¿ !žÿ.š]µ6óMU›É“Ó®OÌ›?WEÖH}Æ´ýAŒ"Ìb¿qX4á°ˆ‚$Ž²/„ÌêüÐäUé˜x2Õuzì-èbW¿jËL/Õf4•'*k™yؘ1+R) M\G0ŠbÖãøè„Ó##í¨&ˆó¨FVbhð‚*Ïb“ajuþG¦[1ië]Û]õ¬íÜrýñcb<¿afÜ[g«¹v¶š låÄáL€BÞÛúdŽ`H*—‰£Í‚Å„ÛkA¢1`íh’J'’¿Ç!þòÔh»Î·y#øò™Ø·!"S+L4¸Üìx]ûÏ·í^”–Ï×:éË(ÞÏó¡¹i9¤ÚeLã±øR¢EшwÂÕªIóRØ >æÍΪ ?{õÖë¦oîr„qxré9#ÕŒ9쾺…ì& Àâ'4KŒ/‡˜ |η˜Ëª£Yò ²|sk_î„™”í~ÕI*´Õ¸Á}Z˜‡C‘fBº[wy¶m¤9¨àTµma´½ W­=rWµ…E}%ÌXWm¹î\¡x¬wUk±QDLa7ó"—nŽjÒOJÀŠ÷ë>û4œ§Ek7uµIš©x8ï‹®ñI`݈Ðå©àH[1Rˆª¸‹ªÉL—æ´a¢{!€©…ü†´¾ÔÆF`lÛÚÆÌ5‚0¦fX§ž)Ý[yzÖ¼•y¨+ëQåYß«•ï1¦µôɼéžC\¤+Q€Oï-e€î"v"Xî$:¶´ YU¹U¹ÎË­UÑj×tÖvìÓ«T-Tðu—ºèuDV“V¶Šûj*d` cBleëf§Rd Ž‘øŠåÐ`°p”8Îå k72¶ÛF£:³Wäd7<»õth¢‚‚š+ öƒgukÆ_E¹Ï-wKûßóêÊS¨RL°‰¢¦,ûÈ5¼ÒÁgx¥¢·ÌŠv-ä(7UQjãú®ótUùÌá>ô(€ H1¢¡­áï) ]¡wºäõG ­ke—kº,b-Œ?ˆSà+zò³}1÷€ÄœÅº  fC±PÒ©ê3o1RàÑ3béíTc QÞæÅoS‘Bž1ªa™èÈDNw!ï8íq‹ÓWax§{Èô£Ú¾¨«­(EÞܺ›a7í>ø4Ÿ*"A1µêËë®(@R̪½˜>òRÇq ¯d±’ÖV Q×Ý…Ay|Ò9$û¤Ãþë¯:ù¸åTz}z'7uZÊÍÄVÐœ3÷]× $Ytѽ¢<Ì%Ô}‰=ÐG6Ðû’Ø¥•öpèÞA:Ue-ʬÏÀ[Ó­rªeS%”“ô­ÙOwßZCU’rîHµhÚº'²{’žs™¯Š[? §ï8}nϽö(´jEyþË´ÿ×èÅfëtAßúª Ù®Y¥­8OÎ$„»Ïß?¯~‚TšBšYêJµP¨ª·?NRnF¬çìS£=⺯VíµÞm¯Ý SÓ䳫«ãñˆº“Õuf>8þ\3FBØŽ$ÃÌ6‰?K8\¾B÷ôFl„EÅoéÀÆP }pžNª¢ÉãqàŸçQZà›òã\Õ¯t‘–iq+u7«€Wú¯7f0=›úÃôäv‘¾Áª·‡4ûYÐï|ø`pl÷9áµ ´ è­ï°Oµ1}C'ç\>oè ñf]hÞT›æy…ñ¹˜à\rÀ~‡#_8þgÑÅ 3ÝSs>¤>´L]Å)ÔA:¦ÖºÊ‹®F$Ž¿ú(%úŒ¡MÍ1›ŒÕP¥ãWn„÷ëBV÷\™/¸[Žtþr©ËB0¬ý£Æjò»NV‹¾×qÏÆ ¿ïS…ûÕªN—iýyMšýr9ûG—“ endstream endobj 3154 0 obj << /Length 1353 /Filter /FlateDecode >> stream xÚµXÛnã6}÷WÙ±€˜&E‰”Š¶è5m“tû°»´DÛÚÕÅ+Êqò÷^¤HŽ$A ?ˆ”†Ã™9gfHcoãaï÷ÙÏ׳å9#^‚0ïzíŒ ™Ç AŒ&Þuæ}˜ïš¼jQ‘«5¥ð?]_,Ï#>XE†x’€N#‘ša·Ío׳¯3Cì‘~Æ) #æ¥åìÃ'ìeðñƒOIìŒhé…`)Œ ïjöw¯ïøiÜ tèÁˆ…ÄcQ„bØä7z …h´<@IL:þÒ ýEáù²ÝÖ™¯ëÆN;§vþçê³L[ev˜ö=¤ˆA_à»ñK‡´¤õ`à)¥ QÄ{OO'‚5Î¥‘* ˆžÔ´ Q‚BLa@PEvľ=³¶fù&oÕ÷·ßØ{‹!2_‘ahj|‚ç›})+GæW†öö(×FÀs :E5äÙóhÆ ¢ñ«Yö˜àAŒg0àˆb—_6–Ï÷0‘>‰æ ¢I`rJ?ÕN¦ùúνÜJ;¨ö媓Ônëg‚¥(ìdWˆTª±ªÃ6O·GŠ df'TûÂZ vYÖ¸š¨¶õ¾põl%í³©÷U&ÝKÍ(£UO2¹Ö” Í¾ÈÕ¸R´â‹pâýº?ˆæ¢Ø»éº©Ë# ‹·fæÓ ¸èŽ0J?¶te[¿ãŽß“' ín&+B«à½5¾¼¤¾ºNz%5>!s@…|žÕ©1@ز«¿àïeØ|ÝWe½¢ÝŠÖ¾O)ZÃ'ý07 £€'ÏJŽˆ¢€õÉÑe 1@×?c­lE^¸;{½A¹åØ"à1ŠÂ`¢@É (PäÒ¦…¼h²Bª£–bu)æ–Ÿ9ì!E+:N‰Òqé·Û#zu0Ò( UwŸÛ}Su”Ï+?Îæ*_w>‹l0™3`†Ò2~(öš× /VD†bλÐÚÖ¢;ŠŒ@‰D’ž½ý‘CÕ·"ËrM]!ô¼žPqÔýe¢K3†p=" Sd:u(ÌyfÜQ|°bö5º¬¨®½ô”ò¯SŠµaOµ±Î½÷@'Óm»û.Åõ6.'`Û}Iøîp³úÂ& >‹]Sk§PÝl~˜  ÑÓ>Iάùˆì5Üð!FýÛ¶;õíry8P·³îÏóÁöO±‚D ŽôiÝ×Í($^4FáR®¥)}²Ò½äÇÒò2Ä @ÕQ§8MðL°µnÁàË/u•í’4ʹ&«Xàî2u Vå•ýti6™õ[Ý"[‘àíN¤_àè¼â)lÆq¤ Ý„jÈsÓKAÔS­:¹QµºÒYµyÚåÕU½nÐ2(ŸË bpG²dÄ‹#0F lB‡Ñ¦˜êйŠG> c4u´„ƒcneu®i´„«‰åËÏJ¡LÊ1}ünBà.G€*ÿ뽌è*EÛÈÍëne¢rïj_–¢¹ÞÕÔñeModQÚnž{eÓU’Æìm®l„Âíº;‚½Ñ•M½Õ ®ò˜õÝÀÂ2y–†^’ûƒ{6Ù[†}ïDYxÐãJy»“éúàï„ÿ_#à endstream endobj 3170 0 obj << /Length 1475 /Filter /FlateDecode >> stream xÚÕXKÛ6¾ï¯06‡HÀŠ+RŠES4E»E{)l“CS ²DËjeÉÕcüû9ÔÓZ聯¦ð”4¿™ùfhw“mÜÍWßÝ_ÝÞ|#ˆY¸¹ßm¨ëÏ7œRzbsŸn~³ íßï¾½ éDÔ ”ƒ"-t¬ó²%‡¸­¥M+S+®\³ìN–:ýZ‡qx顆_›8“³e·wž75:Ú8THD¨èÅ Û \×zëáxí¾Jq¾«jœ$EÜ4x,>=¥> à9ÖK™íç úÄÙŠ"EÑ%=õñ})Јã7p?Þ ¡ižåmcš<+óiÚ¸n^e²ýåØæU©Ä¯›}u"Óï×ðšÞ¨}{[p£72¢…Ìd™¾š.4{B”­Àé50÷†¹?}w8Äõ'…\µýS&íÚS\söÿâðÆXò(¡ ²õ"‘ \7Cá‹ ¶%Yøõy.qïk›ºVÖdÙ69ã1®0ÜöqÉSS6ä!xõ°Æ¥í°Àµ0^Ì|‡ãÄÓ³í8%ÞèÇktàµ9åt+Ÿï‚@纨KøàãëyL¬©Œ¡b°^¹m·®—Ÿù3_ÑÆ "]>ÑFɺy¼y,$®¢xPϘq›îK„ü |‚E.®èó|…âù10@ˆhŽ&àóga½•À9ž`V[áØe’ï>™—{‰“²;l{I¤S<Ä>‹8‘Í\ÕiŸ'û…"&2ŇZ6]V+žœ%þ¾ê -Y[‰c]ue*Sb;<ð­Ÿvø¶+µÉ\—ÉXÁ÷‚~»lÜ©„a|‘78¢0Æ)#>¬{°Y`ÅEgwuu%¦æ†Ó½ì7〙ۦŒö|çU–'yÎñ$0ŽŽã!@uE; ¾á8‘íÑ…¹FFY&Uª=ëò¦‹‹â~:åíghƒÖΚג¸L$¦™>ÒKð•ð~?º¡ÁÏÊj="žËÔ¡ñ¸7äβj¬±'t²¢¨Æ´G\áG¢M­àÅé›3AWòp S]¶.ºežºO›u,\ó?Ö·T ”j@=  %TX«IaröÒϺã˜IŒ6¾Ôšµ/ÍÜ„ŽšoÍw“Ôd-$.»^O&ɦ×ÙTDDð¡Ž< ô5£#Ÿ S/€&(˜ûÚŠç{£B¤•í1ôQß_µ®DøȺ+ñ{ŒÚ8/Öû‘åEkqg¹× aU]{ìZœ+’Sc Ù=Ro #…™¬fm¿P6-иædõ˜Tà0ð‡\ãFå0…5ðõ±*Ó¼ÌP1À_¦qmVʺ®ê^ºµø„ÚöHš›µø˜’“boX—š…”-¥2#•:=é²U›(³UE vBZï÷²Ä×]£¬<#¸3þÙUÙX†õh£MIÑ¥H­€yšæŠ7À>¼…¡ËËÚ¸ËFÇ`26é\õŃÅoL¿ä^¤HýˆGBjÔ³•ó=†*ìF) 3ã}"¤:”ùÖf. §^ ^ä¦{šÊ X8=\­Z#™›ä9Ý•Áxç5ÊÅFÍ>wš¿»¸Æ «2%\Þ”AC‡´L-ºhößÙÐch^ùœÄÓÄRtÔ•‰r(>¥•44Vö¦–mW›ÏóÆóYV¾¶A¾ƒ[`­ðjúÛÌçÚûÞŽ`Ûb—Ù*A•ïìеr™ìÛmÜõ¥¶Y#ØúßÓ¾>=l¿…Ëi lìëJ§ª³oVB‹BxÞ˜+Ú|Âu¥U×LÏ î춺oÛcóÕííét"ýÎê’gM¶¿DÊ4uô¼‘>ûIÀÅs/¼•Æݯ‹¦zäbøŒbé•ñæýh ·‰ñz¦ ò¬8Îï¯I-²W/{.`ºöïÇ…]1Z²zîî¯þ¯9g endstream endobj 3184 0 obj << /Length 1614 /Filter /FlateDecode >> stream xÚXÛŽÛ6}÷W›k+.)J"4EÓ&) H›8éC ²DËjeIÑ%Nþ¾Ã›,ÙŠá-ö#s8œ™37.v2;¿-~Y/î_„ĉPz¡³Þ:cDýÐa„ FÎ:u>,ë&/;T‹fßw¢íP³Q_æ«OëW÷/6:N£±(áê ç1É´Àæ¾çëÅç;d¸*d1ßw’ýâÃ'줰ùÊ­ˆ;źw|ІùèÂy»øswº*{(ÛC0 }â„Aˆü+ìD_‚‰Eœ8®\OËùCÊY¹^€—¿‹nW¥šÞV&nÏ®¸Õ¯7ÿˆ¤kÕ…ó>¡yœ?Ä'Êö œÁ2ˆòÓ:?mÒäu—WåÄÞ£Ý@ “#ÀÔÑ—‰:«ìè*½ÖGGTÆ4ý±ÕkRÄm«ÃeŠõ§Ä†ËÍ™¿nfb,òÑÀžA†cl¸ëùòY¨pÍù®31kó¹¦ZZ„ZУG+7Àxù–êuo°—´Â^#“Ù$Áˆ6˜|;ã_EšaøNÖMdrð§—Dºö‘G0„@ü£<øˆüõN+æYÞµO¾þ  ók›ge¾Em7í“Lt¯UôÈs7í®: ñþ üLî¤øžsnn4®3¬…ÈD™>4w!„¤„9P}¦å)LM8>mV/³~/J“NÅÔúz’ü“ˆc! âYÿÆå8Ò¯ tFås† í™jÓÅy)L‰9äÝÎh ˆ;MæXòÍ™±C‡guÉdß'&:aÆd(hêИ˜ØÒt½W!ÅŠËL@ÑÈSµE®m-’|ûÍü¸š(ûýÆrJçË5Æ}\躈ÑNEvy²;¤r@ºU~4¢í ­5è5Ü]ÕÆû¡×¦êËÔB"óAI•©ØÊÀŒAšþ!o§³‹ÿ• †}8÷eå˸èÍ綩ö':êdŽ\Åxw‚É8ß®G¦¨²&øuÚ1åɸ1[ n Ü¸F@Ëô–/·3ÅŒzðÀÆã_2ûv÷Ưˆƒª£zr©z=Ó“‰HtC‰=¿îäx ×oÞ=Ÿ¹jKä šÝ ±v!êÜQtþúÒ¬r«­‰v$ØUÒ«‡r¶0r Hú˜x¿‚‚a“ã¡ã¡4n'/ä´F±ÒÎèúÆlOß³š>-ßOWÀß˳‘U¦µ¯¥‡–ò¿V2¦Šm¶‚ÈS©b߯B[‘ìºMÜÛ.#¯™k‘> stream xÚíW[oÛ6~÷¯Ú‘€ˆáEԥ؆uk3 ð-ñÚ‡¤ŠLÛjdÉ•¨8ݯßáEŠä*®Óç¾X2E~ßw.ÄÎÊÁÎï³_ç³³s9 JB:ó¥C0F,ˆ²Ä™/œk—ÒØû0¿8;É`*ã1Š †ô¤m—Õiy'E#Õü¶ÛÀá`¡ß­ôiƒÌ¬¿KQ{$vE™‰f´~`gäkìø$F Œ…w^ˆÝ\dky›¶`+Àî©ç8qß{ u‘ç³(vo0Ç OC!|ù­*m&ór¥¦DîFÈÔOË´øÜ€'zU^šO—æ±ËåÚ|kñ¸hYÕft›fwéJ ÁFPÇlånÕÖ°›±S-Õ"’™ç çfö•LeÞÈáp~%ʨÅA³ÿ뢩&µ‚á£Ø©Õ_óz©4rq_A[QoÚ)ùñ"Ähˆ¦\y¢… ^–m ZªJ;\™gV‹TŠ ˜TÄ%½zP½IQ[æ„Ä"Qï@uûQd²Ñ ÌÞÎgŸfDŸ˜ô±Ì£±0q²Íìúvðña°ëNOÝ8ˆ, ”͹šý3æ aŒÝ"À8œ+X‚#rÁ(¡Cþ­Àþr]-,¤È'*Z Kp×Ú>1ã`pD(&9†É‘“ÁyËoD“ÕùV3þ Ië|R-ÛG,¿öÏÒª©H›fJLŒ¢˜õp¾è(x1!£ A1ée„¦bbEn0Ž½ÈlOÄÜþÑFÛË—žÏ1ä0fž˸z׌«—ÁI#2põ'=™J@Ce ŸgŠü %HB $R6NÆš$•N¯‹|•Ë槇Ì‹E©„9™Ûb ­­¯AÚØ]µQÊæ Ä_öáP‹B¦OÌi9ÔÙq2‹bñq*ƒìÍpð˜¬dš—†µ®¢ÆÑ#’5$ŒÃ)>Ÿ:¨&v$ð§ðói!NÁ!"‰ mCãñP‚„ÊM+¡Úh,T8«g³Y¾üluÇ/e»¹íf*ÄÕs7º€?Û"Ít20µ[çÙzÏ¢Uý©EÓÆkðk$Øf]µ…ÅþÖV«ºjËEGˆs_Çb©Ô˜‚537ã$%Ó;5AìÕ¿{•£Ó¢íÊa]möf©™ì)Ý'MÇRÁ–¶r¤º·´¡5™ì’Àì6Ìuo ©Ë‹çu£ìyÚVnÛÂ2+Ú…h^,BÚ†v¦\2}¥|<çZ'“C>EvÌíÞðjX”‹´(N<ÎÝŽÁ´µìCÙP¯êZéc)Ê*àVß`L³P»ƒÇ´|Õ_m¿ÙB§­Ûl]äü}©|ÑKé·C©ÜÿXw ûótŸÚ®CîÔúŸ¨«)Ú1ØX§® Ú­o(èóé>pQ ë[YÙƒÔBBßoå9ÊÂè¨báÁüJf­Â¶éjÌsý}ïÅ°m±\yª©²Ôì_¥úì0Q Å ¹w÷·¿Ø»¿­+}høž¨ „B glt=™aé" j}ý²ŒJ{wµØív¨ÛY•^w°ý¡œA8˜#ÉàŠC& `P#b²§•ï×Öï×ÖIÖáò?xsM; endstream endobj 3119 0 obj << /Type /ObjStm /N 100 /First 973 /Length 1760 /Filter /FlateDecode >> stream xÚÍYMo7½ëWð˜ÊåÇÌ,ŒN·Z °S ­‘ƒë(Ž›DkH2’þû¾¡$[‰W åHi’fw9Ãùx®¢÷Á8½†DÉ” ¿l|L*ˆñ9ªLE…lBbσ‡È©àÄpN#Üq&yãyf0ãf— ´èÔS{h Á{ãCÔy ™ô!`1ªi!«)jÔ{ óã'ɸ1”½1–¹Þ‹Æ‹«÷UCô^Q³ c³W)€R­ÃRƒ+ºµ"p Ô†X®&RdX'²¢ô]EHIu™ uѬHÕ…É×I½VG`âì"VðXUªÖ1¦r¤ëfýªkdL€ÀwÀRšœ‹½ŽŠ«.Æ—T]Œ‡ÂU˜œ®P“¨Î†IRQ Æfè ¤Óå̦ú¾DDðU’,Á :‰ Kœè=x4P!ÅPˆêXAЦ’b§!˜¤."yC¹š‚ S®¿Q.:‹¢ÕH-*Yw³‹:`»…-Ù°Æ2jRràŠÃ½X³6Ã\g[X0• S8kx“ÍËJP› †K"hÈbĵ='H¢¶'Z ¤šZH N—55xEÕHÕê,Ö\BèX&©¸‘À«²È¶¥èrJ6É‘.§HЀOš·18-"opÞ¤€r„§Z%¢IШAŒº§æe˜QÓǦûý?‘*ÎF„¾·K˜\¿{÷rôèÑБ­Æ¸ S¶®4‚‘çqhEY-¹64¼h#¢Þˆf²A>³ä¨ŸÌÍÁéŽP;„Ê«ÃŽP ìxyÁ5½—H}â°‚!ÒꟑªzÉ»çÓþüd<7§¦{þôÈt/ÆçæFï‹®Æxpv1uO`Ãx2Ÿ)mU£îx<믧çãÙ‚Êê½_ǯ.Ï÷Í©Ú"ÈÔTÂK(:›b´²ÊrðádÒc¶ÓC«=•¡—‚_ »?³¨Žu'×Íëõ/—“·£îq?}5žV½îe÷s÷¬{rêë…šzŽEb¿°Ð/â-) GøZK+sì°zùÄt?õ/zƒ(=8~=±¯g“‡ê­Ø€T°J\DI„-bA|ÄÑ‚ä6ÚpÑÏÞl4bH+6ãoµB[ÐÔZ‘HJ%šÊQ´\H]GwxpP5t‡çóË~Òt¿?Óσ7óùÕìÇ®ûðáƒ}?žŸ½î§?\Mû¿¡ÅöÓ‹‡»rÓ2TØrm©›m©e­Ðæjo››j¡¸©3-Fø!² ·ß-Êuðª(A‘V©²½uØÆ÷æ¬q ­h0&5£)‰”C:f°qi{eÌFpd¥œÍ¹54h¬¶xØõSB]§ÚoÈ®äï²+Ú‡{³k\±+Ž¥wIªèÖ¬öFh¬zoIhìŠ%—7Vê›s;}f¯'—» 5zà[V‹¹Y¾_Vú œltJrÙ¦L[ºª&9¹-¨m|C? ëó~ÐØlíyý—-,­èˆÈ—Ö¹‰ØñèP’MÔjIÀÎíbiE»lclµ§,+÷é7SÔ'L¶ÆWÝŽièûWO Ë×Ó]"[Øt?"ãUw¸\ò®šBíõØL ¿ ¤ Î2œ±Sl®I°Ä›þÕ̾»œÍµ:wAbJœÒ%‹E‡bs²« Çq îXß²ê{°bw€®ûzlDsrVB+%HÎ7¢É{ËRÑ´¤gç6tÈÄßöH4]ûA³Ø= Q÷aûŽk{»7Q%w—¨$ߟ¨„—D%«ÖKÒ.‹B° v%¥*ѳ#Z-¯±T6RV¥|1ÛSùŒS$Ú€SùB6Jú~û-=õŠ&#ÚD}9‹SoL›¹ýl>_Ü鵤lÁ—ëà/#‡ÐŒ£®dÀ!td²úÒ¯ £4ZÑ„ZçFéXJq—o°öÚ¦ä6%E›’ò²èSY Ùí´úqÖÉZýè £Ëú*Û tζÁo~5r5ž¾¿žíÊž»îMH±D”Ã-9ä¤çoAHØÒyíèá#J´·Ö)oÓ:å ÍPìv€vÊr¡Í– RÁš² ÉZ-Ñnhø°“[–`Knõ 6¿ë¾¢È]f)tfÉ«·âåFØËëq§ïˆ³þIiõŸ/ñØ-ËÿB,«—å1gå6t> stream xÚ½X[oÛ6~÷¯Ò±€ŠI]‹mX·¦E ÛZ·{h L–h[«,¹·ÿ~‡7Ý¢8N‡ yI’ç|ç;Ƶ¶–k½Xü¼Z\=°£8 µÚXØuõ+Ä4¶V™õ~y¨ó’£šÙØ_n9k¸ýqõêê¹6Ò8@añr !±Z¸ú&ÒŽwH‹TmzØíß]>-šj´½ÿŠ¬ZLÕðµ8œÒ¡ ‘åàEDZ'å'£ôPŸ¡ö«‰Q~SÕJ¾Ó mÚ2åyUêåJ}Óš%œ)0ÆŠqdŽ*0w/6‚Õúo–òIM¯W‹Ï ,ÍÄ[J‘±•îï?ºV?¾(\v”¢{ËÏ……qa½Yü1áÀ÷c­±‹Ð&Àò û~;aàv°¹³åw±OÁô+ã»*Ó@h/mâ/k›†Kf{®¢Õ¥úé7à \QB‚‚´vDAs˜z>cMZçéê9þMÜ7aÚóY–z$´ƒõd£YT$M3G"JPD;@/´.æhädG_¤%F‡c`¦CSmîÛ&Ù²;mjø©{ôÈv|×]¾¡ê»×céq1ØŽRövv^Î@á ™5àâä$ 0ñ©ƒì{Èn;ÀØ÷ÿàúî—ÇJÕ,ßæ¼ùáËwj WkÆÑ&ç°¬Gz!›ñ,ê‘\õ´¶1½Ý³Rü¡€ë°ür*›…pcÔÑ!)‡ä;{!F4:z!„"í3Oò’é`?æ|§õ<#mû!r]ÆËw™)ÜŽHz‰BäÂír£HmQÎ=H ‰* Mc"#\|›KóÍW½(j†”í~m$Þâ›à>)ÔäP$)kÆGwyº›$é)0“š5m¡´½F4nvU[hè׺pÕU[fÆ‚â]IËØFp1ÓÔBÞŒóO> 6)…7"q'Ek*c]í'Šh"$N;E£;ò‰Ž¬óRTÛ<•ˆº±B¾½CÀ€ã²‘t„ Â`Óz“AT +sF’\—p…?ÌöUÆ %kðˉèXähÍæ|vµ5R[_êøkK©ª¸‚e'8þ×z€wt#™î|ÏT uq_i/2io¶<Åžºm˜,Ÿ1H&Eó …xÕÚòCkÐ+Ó¢ÍXódt ”Yäùp1AÄð!þXè½Lô~šÒƒ ›¶6˜î˜`MßL“šdÊ î½üP³,O¹¹íÿW  ˜;ØÕÌ+‘ª²øª«ÃŽ•smO Lú2 jîêõÛë™êãÇ( #lªp¯¹C<Eqð@ %FrÔð„ç ÏÓqÝœ‘仄O~œxÊ„o[Ö¬/‡lÎÖ¦Õž5ÿÎM™q>›4œXÊŒ×NX4±}ì½üì}›ª(*‘’ŽZDop2ªóµMÑ7ßöŸ;Î?÷ÚœV5°óP•Y^nµœ>~3ž4Œ—ù*“ƒ­PÇ9»TÓ¤ÌÔ —uEÄÒ//Õ·ÇQÌdЊAG–¹~ŒDðX!}CÖ°üBm»¸ÉgÛ²n÷}—7^/EÛ©ÙU Úk–&Y– f%ENïêØc¨dRˆÞÙÐxÝ"Ð}¥OjÑø3f¨¡³bZ©ï}[Ø"·Àë knÓy¥óO;‚[‹ÍÖ†˜11ôÎ âYºãë¤5E]Ü2ÃxgÒ¾ øþx³þ žƒ ðÜ9Ô•´¦ª·?ÎÐxR:"íÂE¡|3ˆ§ƒÞ~:ŒÞ‡;ÎÍ“««ãñˆÌÍ⡶\ª‹OÄÇâ‚f¼^-þÓŸ endstream endobj 3226 0 obj << /Length 1006 /Filter /FlateDecode >> stream xÚÕWMÛ6½ûW›ÃÊÀšæ7¥{HÛlE‹$»N{HrPdZVjI®Dï6ÿ¾C‘v%—q±I§K¢fÞ ß¼Ê8*"ý4ù~1™ß¥(•TF‹UD0FŒËH‚$K£Å2zS†§ï·óI¦Lq”r@½Ñ¶-kƒÚ*³¦ì#¼øÌöN3ª`‘9×;½Òí”$±®sÝü8£4@ ˆé~J—:_›Ù°8Ž¯¦3ŽÓø·iJc4…ÀIü L1Áp%°$áÍM½Ü妬 k¢âJ›l–ÕÙæS™ô^eí^ݹËciÖî…Yë¿VMëV·Yþ{VhäCÆ ,O’=c·S*âf×B4‡Ó¬¬äífP„Tg}o2Sv¦Ì­58¾oVæ1k§LÅÚQ¤‚ýïc]y‹a1 É¡|L0Ò¾FÞ²Ç,uW.>yG©ä‰ß(cCdŠ¦{ǵ1Ûî»ù|Ù”¨i‹9Áˆ$’©ùÇ®C˜ITbÈoFEö?c ¥<Z»øÏ7]Ô †_Œ’¨µîöÎ*h”ⱂZ]Ý™cñª‘à“ûMõõ¶iô*°7«] Bjj¿Ü¸kÞêÌèG¶ÓüâŠC!›unºžõÉ‹Åä éwI­+8G˜¦Q^MÞ¾ÇÑ^Þ ,M¢ÇÞ´Š8Kq[ÙMt?y`p0ÆYCñ$ô¯ %ìtç´On÷•õq eõÒ zWUYûÉ=ü¢ÍºYvžÚ=Ù—¶e Ò¥{|éÈ8Áa0ÆÈS¸p3Qf"‡ÙÖn?ê.oËm_ð/X7^,ý…W wTº%_h·“¡_Ì7Y×…ÄM”ªÃd¹ŠÐ®./ru$ŒÍ…˜@˜¡ªu‰¥(äiH[mš`V€EØÓ°ŠMU ÆQJt<Ÿ­Œ…‘(É5"óáßÉD¡qòS4OÃ7œ5Ÿ™‚Ç‚<9ÿž=›Î†&dîZõýçîûö³7ù)2jn)²¿  £açä@b N™ž‚SÚ’1û}ãØêÏ+—ê²,JÓù‡nÝ<®Js}óüçûûµ²¨ËêLÖv×…6/û^¶Ö ß_¸cÏŸBG³çΛnt¡ëåõÐÑÇBY§ž=e(%g"¿Z€|b'¹‡~àük©ÒÏK„G!Žºñ32*0+áÍ…ÿgmIñÕ-y¶ž|8gO~ÜŸ‡úŠý›ÊOógOåÑQà¾a-oî.Äÿ7Òó>WfNY•ŠÓ À ãêK¤·¸{sfåýã þ@üÂãBè endstream endobj 3243 0 obj << /Length 2831 /Filter /FlateDecode >> stream xÚ­ZKã6¾Ï¯0æ70f‹/Q Ãd’N&Xìa¦sÊ,Ù–mmdÉ+ÉÝi`±¿}«X”D©é~L‚>˜Ï"YõÕS-ö‹hñÓ›ïoß\ßÄ|‘²4ñâv·àQĤŠ†sËtq»]ü¶<5EÕ±æ˜]ýëö—ëm¼ 2™IS g— Éqћȫcoõª_¾%mzß\ñh¹?óªk'Ûç¿×7Rú·M+ž²D;BÎÏöojb–&¢¿hV]­„”Ëzýï|Óa[-ëmʬmé­“ãLÄ 7=…·Àv®Š·®(Å9œõ.@ ¨dBêxxä/<¿ŽÒ)ïêà­€W¯£µ/Ç‹´äs´Òé ï.¾pB`„ËYª5MÕMà"IÆSÚóñ˜5ˆÕÐQ±ab|ß—HG»0UÔîdá &K£Ø£ÆÙ ¢€Tä†_øéEð{lu4ÂÛ;ú½[ÎdÂ}I„x )SóZÞ8†‡Ä òÓ—sGˆ„EZMÙ³-öÅÌ$<ÉT~ÅõrŸ7W`kIJ«é·=å›b÷à95ªóqݯD.âï³’:§2Ûäí”Ôý¡Øf„,Dò-uš¼=—tk¸×Ãí¡>—vY²\çôÛÔçj›oÙÕÊhµü¸£Ñse¯ü%ŠD¾}wµRR÷Ç%pÇZÌ Ž¡¢¥_º#üfà·|Øww%ô2+Ï®»kêã¸Â¿nì£n¦„Y~Îa›HR ÐÖN$ðÇ’Eƒ’¡æ§ŸÞ,~[‰4Zò&ŸÇa7¢ŠçŽumÞeEÙR§®è÷Pã}暑OCº›ºêšºtƒw§^’vûÎÑÀ3Cá´ˆ¶£ »Ó¹{ i|‚<ïwÅ+ô·¬÷ÅÆ¢Ëp’–‰ÿø¬¡¹`dã‘yÖ#¥d4Û¥˜%f0Ò·Ÿ~ ^I0Åã×\éï³{ŸáªØWÅŽ¨›ö«Àe¸Œ®Ø—YžVƒ=hÝÚ"†ÌüæÕ¦ÞZÓûïŠöœ•åMÝÝZ¿Û #HW!`m²jãdŸô ˜ xúa„Uë4²53 .™4CÔÚÇ欚q(A®Ž;Êztš—MØìXÀY¡†=)–)ž‘¿ŠX7$ùÇù—ù>'T¿<%Vâïì °+P½±Q:§‰–ûÖFOVŒv²´”­,]ÛAÛk7ïì AâiÑۆ筰VË4a©Õòi0è”™QÏÄ#R33×c/—FíÜÜ=ƒ 'é3æn6IŒREÞEÀ˜à=È)†2¢ÙÉóLèvêٜѮ6åy›·ßNý2(•‚w ͢Ƚó‹zî¼uÔû#.i«²  £,u1Š„(a›£Ôî D‰J–ï?~xG»¾Zä´ “jùÁ tÑÿZ+êµy×Õ>e$Sß&€Gþî‚¥¸¨!B˜#õõƒK;t¬ÐÓ è‘ï R>«¿î+0Y:š9„K±š*µp¡ÚqÍ)–…ÁKAÍ‘ O&² “R?ãbÑí]ÖHžÊ‚ ®›!î¦O@@@]lÁï ³h¬XÞÔ`°ò¢{ …ÓYb–¥µ˜Z²)àÀxB}¼>¢ÅË·+.ÀnG¼ÃGðv]mÏ.XÎÞa<){"° ¢/ˆ³Iò$×7ܯ£®YÌ=1KE«Ìl„‘‰5GL%r!a¡»¦° RV™°·Êêž\ôwnÿsÎw¹¦®;BÕJ&Éòóùtþµ6¬ƒi^Ê·$Üp§•SžH@™åI‹y@ÌɴȈ[ödíÃñÔÕ:áDÖ-TÛ¬ÙR/o‹ÑÈÉt°"870ÒM‰†Qªç)žg¤ŠÅ„‘…{žMhìNM¸¸+0â!“ºM2e“³M³±§ºm‹u™•NM^£Ë*ötYé%zñå. v1¼_ñ—XøDéàÍD½ËàÞtêøv4´vhšQÀ@¶®Ñ™`³»B5¤6™î¦ ÐG6õñTW¶žG+ÇOð×R¨©…ÝÔM“—…U+ž4üµHQÜ€ W˼foƒ'`áR0“j,ò1XÀ]h‹•ø2VK‡•áŽýƒ0£ñj#ˆñÆV9í:÷–^9q-*§[׸ Àö•³\ jfU/ E”YÊ-Wd,—Ùv[8™@Ïú±3Oت1•4qlŒô¯KòÐÖþ•­#=&>¥áÑÔ½·~°¥ƂΈÒ@ívçm0 &áSDêü¿HTŸÁ«e•s²³”¿{Sû¦>Ÿ,(±7€ {M®yÓÁáZ/ÑBqnk(=@À  нߧ ©H¢1¯ôb7¢;ðo{&ÓŠÇÕôÛÜdf5Dé̹ŒüŠ V©¯4 kÀQÙ6§¸°ø”5`tÏeæ†É±Q{´ßVº¶LRõkôLDÆ/N{ãgë[ÈlÀ¾ŠaÆÓ³¹0É! jG}(S[œÄ‘ßCÖ*er {þפU!ÿwWóæÙÊí7t'àûŽøܸ/ËÁ¶¬ÈtœrGc“bQ˜¤ÃíØ9ÒLƒ%˜kæ’Š69)ྵ­WßjûW4ÖiÛŽ–6÷wÐ…ZïFè¸càíÇÁ|¬BÅ>²)ï¨ØGpEͳÍ!`iAqòÒèæIC+Á- ­»ÉPcõ‚…Þ€`ÃÚY[âuvÖ–`­µëš¡D;ºvK:yT¶²N8Óræï-³¹¯X6rH]aa ÷¶eì­Û¼¹l#Ê¡£õ–›vd"S·Íâ£tÀ(÷ðh{—¡»08©+[£á—’•yYºkΛ?øüöÙ´9ü­G«!ïí©ýðñýOÁ¯0Šm^Mîç÷Ÿ^r¹•ˆâ ‰ŠˆüÔ«§ûë?ƒdá’©òÓ44$Ú/¥è¾P¢¾Î¡ 0z¨×„×äN…ˆ<7"¢©;‚[háD{´Ê¬Þ•­ÀÅÚ>VÄKȨРúâ‰ðCkì…CkÔ=%GÍR©}âÂÌY{NÊÒÂò7ã¡=± âŸÈ)D ½$±* ù/CÕc²,××c4I/|ÏŒ!|ôôé%%`"qÐID@qð<]a“•Í(îR42‰;p¹‹;ÇÌE=Î.”ü*¦g××øq¢»Ïóé'¾œ;AናEC@Áý Q?a1í.Gnæ"lánûúÚ‚ nê6)üóï/Âÿ”#(nÃ?nÃ5Ä|‰¿o0 fn` v;ÃðŽ2{Wˆ¼ÏfYÔYVbXè\ù£ê|}\ƒQé密ü˽¹!8ïYþâ8}B«™¿Ä‘lÓ@N=;éÂuB¹•)ã!¢ƒ¦ïAÍ3I„Žú û:Êó±iCfØœQ·Í75•1ã`È+&ýæoŒyá 1æÅ»¹˜WÊá î &ø~jí(¹Òsª”„`?ñµ›¦X[ àðštÁr›VÜeI-,ð㢀¬¯ÀÝôçj@¢ê?üúßv¦Þ(‘ \b4\‡bJ›ž)ôÄV9ç³@µ? úþ/¨J kÆ"À¼Ì#EÊb-_Qèÿ‹£}Ù¿q$š¥òåÿ}4áoƒß~¼}ó¯F´ü endstream endobj 3252 0 obj << /Length 2753 /Filter /FlateDecode >> stream xÚµZK㸾÷¯0ÖFÚ¾DIö’`'›yìL#9Ìlµ%·••%¯$Ï ç°¿=U,R-¹§3½AHQY¯¾*ÒÍW+¾úãÍïïn^¿‰âUÊR#Íên¿œ3¥Í*‚•®îòÕûµTróãÝŸ_¿1b2UÅš¥ZÀBvÒ©-ëžµÇ §Þp·ƒoa3ùv«¤a*ŠV[à¢%>Hi‚¯/„³=¿_(H(1J€LÉ ÓŸhF¼2,U‚"&@ ÅŒ0N9šl3rœÕõY_v}¹»ÝleÊןåîÝD¬ >f}Ñá£\à/kꟊvWÔ= š{h62Z¢·Ç3-!×ÍžZÔÉÎë›>«hì#~‘µev_VeÿHƒ´ðÀ ÷[ÔÃÚS‹dµÿ¥`_¾h?nD´.r˜Éu±Ç5÷Å®§ç®ül¥‡nÓºöÜE¼ÆðXºa˜qj:¿ªUÚCÑmóPÔ‰ C§êì>é²ã©*ëzòº‘ì<”Ú)ìŒ6ße5uî j³¾oËûäëso¥HR°½»”§»1tÉnØiÏ®7¥c›­–éú ÚÌ?¦æXôÙ¶-ðÍC[t]ÙÔK²›¼¨nð©Ó‰|>£ëøL˜TáÓÍš€PÅɈ3| œa]„­U;ç:Ûíšsm͇3´áàÄýøXºMÀý±vpË[ jÍ’øƒ`¬2?[PËdærÞ#r&‘ƒ¸‡à3, ÁÆ, ½¶}ˆ<ì(“‰Ö%øú]ëG|ýï¿6}ñ õ÷(|°ôÜÕ©fÀr/¥"˜2·Á‡z²KÆ xVÃ4O¡£™I“_“g|ãæ|?W.e<ý"ŽA¶H8x–§žgEšN!ŽÃØi዆ºˆïàãQìBôÎÃy3´ã rk°Hs?!P"Ù”Å!¼§”ªÌ@©ØE¤Øv Te”&ŽR(BÇËg§îÝ*C$àÓ¥´Q£ã‘©ìBÔ¼˜©8é‹= ™”'טJÆ‘cbè87ÊXS&™¾ h æImR?Ó¡ãì« óÁ3¹‰H Àˆ¡65Žòi6äÄ)‘O"\g§î©&:~Åu/a™(Æcóòôô} ½(»$ž^Ò_“^=€ïí\¹˜ýŒ2Nhy½Œ‹ÕPÆ™$À¥q);ƒs ñŽ]¦/œ6(<’á“ûÇ‹õ උ@åÒDAÓZ8àyWsZQºGtläÒ»¬ÎiŒr¢q%¼q°Aô¹¥¯nƒŒæœºâœ7K‹8‹’ä n_æŽz.±<ÉõÅÛ T­){w‡[g!1™^ØHržb€Äõúou…&V N *û±$Eº·¨©÷sÙ÷ðˆš+9˜FÈØÃ|C¾pÛPœÂ›!N¡O^†Îõ8UZ@„è—Úp«tÂb‰ü1xóŒXµgžbgØÂgN{¿¸£…¿ÿÖÀîaOí®ÊºŽÄRjÊœ™¯àðǪãñÕ‚:e‰P~*„Ÿò)ד߸gןóGêVš—˜¼¢¡y¡ ƒ¤ÆâŸÈûØ;w.‰ÂN„,¡$ã2ZÈ…žÛ3GèvÐÚ‰„Ý ‘p(/]vi‹zç“Eæ[jZU(›mLFçÐy ÓÆûN<í;2#$ÈóçÊúNP&Âvx ÜÖSœ-(ò|iL•5Ž†ôF¹JÃáçîPºµ};¬}î°¸^NSR~ÿa‘’1m„ Å!bH$3‘Ýç¢=Ò뺱΋‚¨†ñ1ªéÙrjä+7¡¢.q*t–3”úæB1ÁƒÀFŶpâK„ß-fàX­&sœpgWDÓÓ ÏØšT'ËHäh½ñ0ÛºC¯O1è`%Âï@ö3_*®H"ƹþJ*à“ù€aÜnßÚ`ÏßÿÜ$ЯòmÿxòGx´é® l•¹óãUùÓ@UTå¡ir•T{F>HìüÖUfy%¢°éŠÂÅ"ü±dÕbHR÷-–<¡yb¨Ä`o§ª$-™o׆ŠðØx±r(ð˪[â–ê`iôÄòòTêhÿŽµ;\wô¸ÃÍñ#2â| ¹Šhò®,j¿•7“ý†ò†v(ë¼$v½X!àIsâÿÅ ÓÈÊhý™jPª®¡!» ”ƒ¹+5´†à|:áQŠ>™÷4×aw”Ù~o#ËmFI‰zM˜ÉµtšìݺÃ-ƒà¬©-¡älwÅ©¿ Ñíß^œTŠŸE¶~‰|š“¶“ °iæ{anr5fŸÝW®$ýTö7xpC¾öv¥îÜe¨šwM ö?5µ£t˜ ¥dCmëj[ ¹Û…vÒ¶³%§{ÚR Q‹îöx횥É1³O,ï– ‘{¨aòî)[ÉgåqµþC³;€W¶É`“jû}VÔÝg[ù=¤qEÒaçΆa Øúf颻œèR©ºL84©™„ö5“]<«?£¯Ø¦ÉónBŸ®ïJ­u35,ºŠþÐä¶%+<ƦóÏäX}-ÿÈD³X¤Aþ9–²‚ì ¼: +lÃ4œv`f\…ýîI’·ÁaŒÚ—îÄ{#« vSoììfz½dN}9 64¶k ëúǪÈ_ïš ¨?wßœ{¨ø齋':ÕÉMœÜˆYYl5@E\wTd×ftKt©Ê)Ûý”=ÌÙ3¼bÄû8DšlöM*mX]û!(ø½ íÍ™àŽðî|±uQ]0™ÄÁ/M ž…ãṄ‹…ý¹Þ¡a;ú¥$GËB”Pi˜àɸ?·5 fî炲=—×D‰ ãqäwéÎÇcÖ>.á ÎuF_J3Ý»£Í‡}hwýi!`§Çã#Ä+ŸoŸÚ¤pS„=ŒÑ:Á¿w„ ¬¦½¦¿BLxs1™öiñ~C(E÷N»r×·YÜ$ ‡ÇÄOÄu,7ñõ¸–â@˜ Ùó9jÆÏRS×8åÜø ()ž^ãŒöŸ‚–äš³Iàë9Œ3‡µ’á´Ù´¡TS3ü%ŒýEoj‡`?H,¶Â0BL¸l–ö#ÿè’>D endstream endobj 3261 0 obj << /Length 3681 /Filter /FlateDecode >> stream xÚÍ[msÛ6þî_¡é‡–š³ ñÒk:—›&}™ææ’xÚ¹izSZ¢-¶©ŠT|î‡ûí·‹_ 9ŽíLïC,v±ûì$ž]ÎâÙ×'?;yòBñ™eV 5;»˜ñ8f2Q3Í9SÒÎÎV³Ÿ¢Ý¾(¶ßfóŸÏ¾{ò"Õƒ¤UL[ ݹ¦BJltûf ©k°>’Ôìjïsê‡Йlûºò â™bVKƒ 4ãRÌœ%6¡Vµ2ƒ^‹M2´y:‡ÑMÄ#òš™vȧïcZfxhÈÑ:¤LÇf8fQàI5ëœ E9‡¿ïæ<ò}í+«‹I«:Ûî6EyIOïæ"²}‘•ËÀÙhËRÉÛé„•,ô šµµ9¬®©ø6Nã›K*5,B·Lÿ ½ÃѼ Œ¬Yªu'š_žü÷CÖUIO¶[*÷ûMqyY”5ööc ³ j‚3›¦Ôͧó…T::[WÛ]]•§ðhu$âXøbV®¨É2+©pžã¯‰ÀA—s\àUî[e5ý:}`«_šë]±Ì6ŸQýUѬ‹rá× kÆ*ÂT~êû€Šó:ß“âWn.ñxùöq‘/˜v Ú(þÈk*V{ÿ{h–Õ6¯A;œA¯<†9-@¦D§‡o¨‰™sl9˜â~xÐ4W°wûFujª›bIò^>jwhpõð W'´« ¥ ¶y»\ ã\Žä2#RσFOÝ‚r/,t¦ýîûwØBSÑÙðÛX&7…o`d`qÆîEA›áâü¦¯âධÎé wÅÉó³“ßOpÆ3З,¤¤ëÖ³åö䧟ãÙ ^‚0 ¯®\Óí ¨„ãÙföæä9ïÑ)‹1S"´UÁs°ü¾bFú%ü<` !$Ó u™0cýÏÊlS]Voí–öÙ>§Â¡níä¢5ëmñÚ‹~ø϶Õ*ßÔ¬Û/Š ã—û £ô‘Ã\D«|——+rš±ˆœ3_ò©PÈÁn·Yã%îÏÀ¾QÊê~Ö1Ù: DŸ¡yàĽ¨Lä66·ÑQèP:a©é¬çÛ@\ñbh Xó÷xŽìªØlhŽËuV^æ྄M¢¨xR‰ˆö Qµ]´Ž^B”WÇ|¤³éíã40Фââá«fºÛªÙX<‚¿ŽFÛÆ™+š¼¤§¡Ã•Ç®µ€Fô=V`âk'šDeÄ!Œ"dѹ×W¾E2—ŒÇ€”Œè›G’Ì€Ÿ÷m~ ¤EʇcXÅÁ€:€¤O_tRöMÙJÞ§‘ÀPæúóêéÍ~`J&5Ê"–Ï€0iÛè”\€´œ‰Tx Þ›4$}! AÉvr¬ò²jœÛíü1—#|ÃÁl¨öï¡!*Qð‚wë¼É÷Õe^æEsMïÂÊ1@†„Os‚W=*÷ƒ–‡íyîG#‰„ƒê‰/î –3Œ."¾ 41’‚+HnÁ›ÂvxSrÈP5Ä›TS”ËÍÁádz¢ö$*Tló&[d®ë¢F„ ö¬}9Dð‘]7¶Ïf@×c@#{Ã!œä d ¯ ¬ß…»lù[v™{kRÏ$ 4 ™¶”£öÅÎ jjçü1¾ØVT‚ÜT¿Ï6TM‰Ô®³¹hó¼®WßÇŠÂ~Ù lþ]ÖÐKß*A|„÷y÷}£äd±¼K”xøà ·Æ2¡ÑSÈGð&fø»C•ÏK4O냜{CÖèœÙÁŠÑa€gRðhòÀðIr4؆¨°â"@£Wnÿ˜Ù‰ †m™Ú(….Å@àÞù¶†X†¼XÊTl*PºäÎÒµô\ÅQÄêõ¨TüNR9 )<’GéØó<¶öÇ)eȃV_ŒÖ‡›ÐÒ'¹ùÀ.0#;f˜mš{ØÅÇÜ”ï…b¦ç¡îžæRÁB¿Xðu½Ë—…C+ðj™Õ¹oîèJ#Ûad pà“à@ukhm–áå"ôV)£Ëc2¡ ÔŠp|^á#Õy"3M͈Α©ó¤®ýuu ¾vða0V’”²“RbJ<`ÖK”Á‰,Ž!ýl¥ìž¤wbgaIk€DG^í¤‡¦ëjõô“¯¾ÿ$t6`7].åÍÔQí±h2Õö Ć<9BŽÉ„ùA ÉþHàÙ˜™ÙþrÖ_}2‘‰<¥ººßfìP£³›)ÀCí³Æ‹C¹ÄeEšŽŒ3– p¸/aXCS&ñ…Ù¦®|éÐT°I‘‡Gk“‰´žX¬§ûªìùÈÍŒ=7uŽ²TØÕùaUÏšÀg˜n _ßtÌ~ 7îãu¹ZyŽ™È¡^{ E[ŸÐ}(…¿°_‡ þQé‘œOneð1øÉ”ÁO>"?:Ñ[@>-ý¦¶Î"ž‡H«Ä‘$Knã: Ø'öcü›Òë‘ô/ç Áìyà|!›Sj–ÀKøþ–ó…ÄÓuìx˜¡ž%±dq{ürt¢wŒŒxy5©€–F Ô2­p“hå;ükðøBJÐ#²e\§7x%3>µJTúgit8Ó)ès`¡%où0EÆÇAŠ,•8i`Ê\= ¦‰•ù¨ó¬nE©Ê‘¨ûïÝëd§@¯Ú@͇I¶±ýD›ªhBèÍÆ %Ÿl[J‚NÏñwDÝ‘KÄêËŽÙR ÛD¾×ôÇqLí=5ˆÈJ†MA´x CSñÈhMB¦€fÆ…-Q© šŽ]ND [œ=ñ„Êôö!âdÄ…ò–+‚ú}^«Cæ[µÖ€eG©Âï kpGTiô­oç®Gíívl´ÄÝM§¡ÁÍö(éOb“k.©L‡¦òEÀÒ¹ãAþbØÍ–X¤?%þ»ðŠ¹ZËu«¬:tHb1}(ôš0˜|x—EGuÞP¹e‘˜è0+ªAã$ª<°…Rˆ4Â+X‚ÛÇó7ê¾ÖÜj@þRUÖ"…¯Ù¶ž¹ë6ÞÓÁõñ·žôˆÀMŽF;s»y`ÆSð,=á­F4 KçÓTÞ)Ié‚’î%žðj™µü.¼wå^º›8VÇ ZaN ­ÜÑKáRE=L$L¤­ö<ÔôøëÛì´½¾UãðÜ&¡¦OBµïÕD%,Kד»*Õ÷Õ²\ë‰?’`)KC0ºEõ¯9GÖë@oÈ'k—%b¨èáàîÕ)ûa¹0§mûƒé¬¬Þe·eÂB³ÔÜÈ„ýÀ•—Ï+ìàDÏ£ß×iÆÇ<KÂÈ°0°š×^œ–*ìV³nˆÂÝ«KíD'”„KýVV¨“«’Ýô$]¢Ã_R8£ƒƒT¯¦S-*ùªãY±‰aG> stream xÚíXmoÛ6þî_!¤À*1É” äCÚ5ëŠnë’´ÃÐöƒ"Ó–VIÔD¹iúëwi[RU7:t؆á‰<Þïž{I°·ö°÷ÃìáÕìä<^ŒbN¹wµòƈÜ„ Îbïjé½ò) æo®žžœsÒce\ D ¨cªõcZHÔ”‰aŸa§e¤bÁ‚¸»¸ 6™½~6_°ˆø:/7EÒæªrßífy;ç¡œaOR$ÃtkÀÃ&osÙ{Oç4ôÕ¦©’Ân¨•Y©ÿSÒf² éö$©––¸la[÷NžëÛtNB?S…šì¯o­ƒçÐ @à ­ÇŽ…÷X8â$Ü2p1!$îá8^ãøEŽç‹€>ï)åAä\ÀØЙ"$ð°8 ­„¬mkýàäd©r¤šõ ÁÀCÈÉu©kD(„i 2"ĵ2.’ÍRV×sŠýÎÀÆ"ÿÁJ‰ÿÛ<¦~GãÎ\‹a+„ã3pû퇼Z[n¹2ÑXÉ´µ7tþAê𸀚j©Ê1Ÿ¶Œ¥ZÊBwB©ÿce7Ÿ8)UËf`ß÷ÌôrNhlÓ=ªç˜'r¹–øiÄýï`±ÿÙõ‘[á:T²jóJÚ=óÆÇKlT>F"ac¶‹ñUæîeðºk¥ÞÚ/ƒA³6s&|©eÒböDßVOkûÙAÓ¥l“Eb¼jÎ&@H!]£>€èöª\¢Îb€Já {¡4Œÿ¨P~»ÌÚÕ´ ‘"F“Ã1cD¡ÁÜ)Å\ ÛäëeÿO„«Ðoâ{“¢Î’ÿKâDf4Ž¤A qx8<ЮY ÆË«ÖDçýÄ£Gÿ‹ù7<BÜí4ôê4;%ñŽ%¹Þ±ìÈ2É+G6rUä•ì#'í6ÎÏž]N`é£AÆû¿ï aè endstream endobj 3283 0 obj << /Length 2213 /Filter /FlateDecode >> stream xÚ½YKsã6¾Ï¯Pù²TU„!âÁÃ’ÝÌVö˜8§$UKSÄ,EªH*3Þ_Ÿn AöØŠkËUÆ“@ãëîVº9nÒÍ¿>|wÿáã'I79É%“›ûƦ)á™Ü(J‰äùæ~¿ù%¹tí¯iÊjCºs±ýíþß? |ÄsITžÃ’ãtÆNúº]`¶ fïüôSÐÉíGßv[š&ÇëÙ4C¿ø|]~üÄy(±Þì¨&RÛuÕ0˜ýzÿPZ%I®™¶h¶;&Ò¤}øÝ”ƒ«lYÖEßÛó.¶T”pMý w ¹6Õ]™,#šO{}Y+a–Kÿ¸‹bL´ o[ „"½©ÏíÞÔ±5uN¤Ìæ5íá»ÈÚT¥–‹×ý³búyd¥†Å’;®5a9í ”£Ú—ÿ«æ€Ø‡ÊÒ:v©Ë´Ÿýk*ÒCE26áx©Û!²c$£r~[H­Ô´PW5Ñ•@Ó© Ä¢/Ír8K ûêx.ØëÑn/CÕ6E øfi‚™-ÉÑt¶chmÙ_LYmÑ+ŸOUy²'¡ k“)’¦ù|Îí,µÍ×£H*6œH*œy‰iŠh Œš']Š®8›aïdl¥®þ‹vÆÔÕ©m÷NæS{­]ýÁÍfìp ¶¡`­À"æBxIÑî_Æݸ€}(®7‚.Ö gt‚.<èâEÐYÎг§  ’iþuÔóT?»ð°‹¤ÞÒä ò"@^8äÅ y©¹C^þEä»S{ðz â‰L±\æžËüE.S˜h*b\oæ`–ËÜs™GLˆÌ‘ùŠÈJ鿈½sp.§ê&Ü•^á®r‹; Ì<††F_âqÈbs-Èì.„@ÂúHXÿ (‰ên^¤&)}'ƒS4·™„5”ÐaM‚ M‚‡*/A©¥ ø+£&A*5 M¨<5 *0 M(—&ApýNpõåtœ*[3ÓYX˜é-,ô¾g*nR3'4Ë¢äÌ<9#…™Èé,,ô-ÉÉÀ/{—[þ¥®Î7ɳäD\â-î¬+±äþ 0Z·[oÖô£c:V®—‹ïYªÁÎìùólŽãÞV÷ñ¤+vƒ:›Â˪9Zlgœ3‡³HömcÈ‚žüp°C×f<~kö½h:/z¸6%‚âV4Tz÷“ŠáX®»¸N+)ÏÅP•E]?n¥HÞ~+oÕ#Ë—zdÎÄ@ÿ¬GhØÃèã®øRõ¶s:CÓcÛ‹É`A?œ¢û½ÿ8d>‰òƒ ³žh@xW* å4`'ônÊ$'ÔQ7‚íîL?˜Kÿz°›ëùa$©È\ÜTl«Æ „Ì>À.¦¥b9¿^Õ_èo±`â¯|9U‹•Ø×VÂ8´jÊúÚWxs-K0 ´b[#)üÅ«N'Ù¤[o²rM([™¬ùaÁâü(ÝþõµFÚÀÍC±ÜcÄàm=à>ŵlÇÈL(YjãÕ]–Êäc½EÝ·á&4)ltdºª´Å}€6(-ÂÍÚ4ÇÎÍa†…À”ÆجÛf|`°Ž— Ǧ˄?Óa‡‡#þà¦wëà‘qÞúÁÀA_DÊñœ\DÁ„n«cojGð ·,zóM”hÄBÅLN¹¿æòÚ]pUÝÎmd3 O¬˜<î®HQÚñò,ŒøÖŒÐ9õQì6Öx8&2¥+×Ζ¯g8b–·®‡¶~“5@¦yW¾5p¶ÒØæµ7Î)uæje{n¸GK/ˆíѤÌîîÊÎB»n»iB¢¸x÷s5œV†5òá"ù5MÄíË)hi@?àï*4–w:*g‘©Ù¥ü6ðá¬Ç‡¢{=üp&¾pÉ$&“æ ˆÜ¹Ç¸Mgz'/nh¿óVK¸„Žíýœæ•<%>ËS’ÍéÀûþ>Âu U&^Ÿœã‰¿JΡͩkóú–'ø¤´V ŽÒ–˜œRkéh€&6&4qÆ´Ý8 –€éô½GÇM,í}ÀÑ HìÞ›¨ Ë1C—S"õôÞ5íÝ+Á݉\&Ÿðiw&Âãd288(\æÖ¼á¼(M5B{Qùd¸îú¦ýMzsÂÙ”³‰§ˆ)Q|šrw0ª²íLl9‘Á®Ù"‰<¡Y¿Ô?GàÿüÓ EU÷{³ÏÔ”—ë|¦eœöÜU.ÖìbÍÖÉéÃôË®Þ'¬šÕ"³:ƒÏAo·Je}“+NY‚ÞÖ°¥6¨ö(5”VjŠ)«ˆÒsLç/"M<Çߟå‘ųY·®6î´vµi>ZA/œ•Œ&£¿žœdu‹vÕº{ŠÌZ8å©jÌÒô—)¦‡Ãy”Jö×®˜]û'ïú7¼îw“7>8¥8 ~½EÌŠcÖ¨­-Îiªþ䡼áÙÉ)asˆðN¯Õèøg+Ø8ýuøÁ$fFÏ­ËåøÔ Ü1`gÉw¶'8ð®Ûw\q›%qŽQ–”UWÖ.Œ¯úi±½[ ­žþˆÞt(­­þøä¤ s•32.¾{ᔜ9Ã=eœZÿDl0^ÚÅxç@ÓôCqœ.³‰D,«f_EŸûÒÇ12yx´%ê™Ã}j‡iÈ%‰çöAOmÍN·I(•ØìŽÅ|^.ÃSÍû)»Ÿ\ìwj»êm38c¸Ž'xû-ç_1o¼¢¾üþþßR½ endstream endobj 3293 0 obj << /Length 2801 /Filter /FlateDecode >> stream xÚÍYÝÛ¸Ï_±8 €‘Eé€>äÚ¤½"‡É}¸ôAkËkõdÉ•äl6}g8C‰’åÍn‘…L ¿†Ã™ß|0ºº»Š®þü⧛¯Þ{•‰,QÉÕÍîJF‘Ðqre¥‰Î®n¶W¿®”N®ÿyó×Wo Õ‰6Na!7èØ6Ÿ¢HU…h9ñ.þÿÕ[­ƒùkgnµ²@Դ̦*ëb2}Æ¡MD–*¿kÕÜ•›¼º^k«V}ƒÿzÕ‹M¹{ âý¾è÷EK=9ÑöM[~mêÞOl‹]Ñõ¦ QŽ×Ñí›Sµ%ê-Óòí¶`mïËÀÔä–Ã"©šþzG ȹUÖ[`¸/:ßQP²®Êß®e´*ªrß4¸E–­>_+³Ê«Û4m[tÇV©ïx‰f¶Tf~GáJ–˜Û45vnéØÊ k}Ñò~Dù™È-‹Ûb‡Ü姪çñiÅäV¥6ÂDÆßÏÛ×ï>¾¡a“[T±È"ëGÁ>RТÌkjäU×Pë–Èé¯>Š¶Üà‡ ÅCCûû¢¨Ýy×2‰D,ÕôدUo© Ožw”ÇýáŸ"-3|}¾–®PÌtxªú¬ÄkiD+âìK•ß>]ñû²¯˜“]Óθý²Î¿”HTÃ…ý¼#â©vGÃcÛ—³»S½éˆeß}çåÄÿGP¦c[‚æ26à5“gWÒ¾ßqþŸË·{ÈËú;aåzØÿòˆBˆ§Ÿ°!Pvû·×2]ÝY×}',’p·,¦ÝT"tÄúó§¢Ï˪»ài¦N |ŒLE’ÒÌ'˜( ™ ï‹3ÞŽºsú;æm_nNUÞÒ8øÎE︇îfGÿ$nè?4Û¢âÊP'ï²iÇSï·è=+P°CùµØz^L8ßÎõÅáq —|†2vÕà)‡Z¢°.Xðt¨ˆÎwàçp–ŽgîfãÝaPÙ´\ýô@4'¨a‰ah(—`)‡“pÝоtž6¯ïXVìß»—'0º¶ÉðAçH½(2çË<ÎäN—T+TM+(äZI!-âcQ U$ž€£÷Îy²ˆ½näÊûž÷Îød?.¸M˜I6ÑdÇä}¼áä­Ü{ÑAr[ïÖ…w†#¦½.cßí¿à\?N„ᢠÂ@"dÊÑâ'¥ÌtÔ¯kÑÈ[TH3H^­Ãån‰›*ï–bŠLÈÄ9~€øRœêò‡ùÄ©ˆõˆ1·µ Ö`õû²ßÓ~®ƒðéU‹|RóÃÔYÀžlˆTxïÇpNÉ{ŒõÕiF’EnFìAŽ†Ké(tQ±©ÕS󘘵;» ãq™‰43cH¥cd¯x­Nq  uª¯@ƒd¡ý‚axÑù8µµnú™?*þ}Ê«5…`¡;ºÌAe:Šè&Z!©H£dªÁßT¥eQŠM]]V–4)Ä¡²>/êŠQœë .Nº‚Û=OW"a³8Ô•ÃçGUXH킪(• :APL9Œ‚ÿmƒé ¶nˆÉ04'ýQ<åcúˆ°b¤ Ã,„”abv¹Œ£ÊYW¡=pP;ë…og½0TÞg˜$^½®”j˜„Æ׉Y¡=¸âš'9œÂeNSXò3{—ÁªÙ•w‡|I‰XC:XáË…•ŒzÐ秥UÀ¦2e¾µÊ Dí¾YZd„¯o²r—žv$‡´‘…$,‘ÑCf¾/—¸²„ÈC&!.L¹­hó! Î"‹Óër³§Î0Àœ À ™³`Žn>ÕÆ©ÎWö ¦cðg«¿ÕÕIû‘™Ý°QÇÎApXT£‚mytO”œ×)n7±×Dé€åŠ—Æ8~çÏWvÁz ÑÌã %d±·>>‹^FI‚‰Ìa”ÜË3QTÂER`â|¼Ôƒk‡ž_%Kˆ—ðU°GI2÷Æ–wK.Am&…M¶a¤•úÙHkâ ¿÷cXÃÕ$¬]“6êbÞ¹€ è–ÉÄw}¾ä­Ðchbÿ3%$*‘z~ìC¸q±ÏºÛäîôj”t¡©áÐ4¾ p0šÆ¦Uw)6M“¥Ø4bSólÄ *®OÉcÀ¾ÇBnœj—Ezø‘j=ƒÏ0MÂɵñ€ §?H™Ö”“³Ò…qH²€œ`@Öö+õ‚S‡L> šäÈɪ¿–+N“Pæ «=´1ye_£‚×  eˆÓ-JH­š%IÂJ¶\«F˵é,eÆH ¬š;¦öi91°*´OG'[„Æ`‹0ˆl‘w9×Z Apl†7¯Žû ƘH97ÆÁÇZÍàîÜN/ÔX\íNOŠ,?cQ 5çèö)Æzˤ„B¤w õž÷UÓwO¨°` hõ ^P™‚(gE$åÞ{Tðn„Th£fÜSOÎDYâÝùoDÍy:_·ž?÷`ß/ï^}xóË;ê÷nUÑZ,_Θ|‘­ØáûÖ%G“(atPEð@°z`¬ ¤ñjèŸb,×ÿ¬ûÃô>=ëôU‚d;nò Ù–>I•- ˜hú¡‹q¢w/€NϘûi•”^óRË9-4œhðŒ‹¯néä,ø‰<¸èÏó€íÉS"®Xº”ÅBvþ|,)ÅŠ ØmšÛyï‹—?§ §1a"ÁXÑß#øÔ˜¤nýŽšÃã$´GEÁïŒ^&Îõ¦”• [x§àŸN§R4ÏMCL,¨Í^8òÎÏŸ»¸ª–Š¹ ñ]—øˆÆu¡¹¡ýƒ*äzokJÏ€>­Q e¨DÐ'̹m˜Ó5ä´šh V¾Hª]ŽHõ- Þò¼š²½kØ3„v¯ùÚ;ͼpìCîÜ\ʵ׌쾿mCä¹Ü•¢q¤Ž·Ùqg_”(`²Ð” ‹üV0v¼»Z~z¶gÞ®¦]|Î+Ç2^®¥K=‚Œq'—t‡KC ç¦Fƒué<ôl‹M[äÝ6 e†lÔ£ 4f©1$võ±<”UÞ†^wfB÷¤]Aù{p¹/üe."°rÍŸÓ®±Ô™?Ì^¨¹Fºæº¾/•þ~Yçñõ_ñÈH!à %Œ‹ð{g‹0áX\Ù-¹€9|*Ñ.<,yA*ŒrOHa“7Vç$ŸZÂü ¢!–oú%`#w¡QÊZf!r:¹‘5NËÜSN:x9º43ñ ‹Øš Àá7>†ÜBâÂôŠ(Í8èí‹/ßšKŠ=ÅäÅŠÌ€ÁîÉÄû |P"<߆R¹W‡a•}y·ç§0Ò£ó2¹ÿsóâ?tŠMo endstream endobj 3303 0 obj << /Length 2193 /Filter /FlateDecode >> stream xÚÍYÝoÛ8ï_aôÉF"õY`n»‡½ë^‹nn_v÷A–i›WYò‰RÓÜ_3œ¡,)jšàv ¤ø1œùÍ'é`uX«¿½øþæÅõI¸ÊEžÈdu³_…A T”¬Ò0‰ÊW7»ÕoësÛü²Ò¢=›?nþ~ýcœŽ6©<ižI·\ª½ø”Õ•JCçÙêJ¦°IѲŸö›+eë3ƒŸéÚX†1Ut¾Í&Œ×ñŸngtÝ™ÖS+Úâ¤;Z“®í¹(y¦ámUÑnÂl}ðš¶3Mͧ6{梃3ÃWð‘*<¨öG{@¸?´í,Š â^py“ˆÝ—Q¼öm¥ Ë]Ûœ4õð,E$ ¼Ûñ‚ø²àÔìtÅ”[«&lvˆBYl+žDàŠz7#ÃçlB%Ž€$æTtzQœfÛ¦Ö@EÅ9¬bÀ¢¡G4jçSlø¥[ÓµE{‡XŠÍU¢’õ/š¿/zMË´_^¹5ĵ ‚·ÑÔÞ)orؾoA Þ[öÖ‚i[dd2&€™Êtw4LxA‡ð‚No¹ãíÈdñ³26a°Ö•96ÍÎòî†Úò¨ËÔuRecÅÀa$TÀÞ8“NAà¾.;¾ 4¼,Xß5Ë EßÑÇÀÕŽ¾«æp5eÆ?n$ØOÕóQ† e×UÅÄ/á“À¦kßÓúK0ÏÏ”9ù¶„iîÜ[væioØ9ùzoM} Ï‚šº?éÖ”/êšJ·E]êº OJ“Œr‘©Ì‡§ª‚M QLF"¿Š-5Š#¨¸m0 €@ÌÊ- W´õÀ"H­íA D"^$Ò(šS Ò¬~Œ"ùúdÇŽM½ù:í—Pìóp£ñÁGÍÉä0ùu\À•dÏû;O÷‘^iÉÏo®ßÿðóšðNÏä÷—ó¾ì;[“ ï[9 Ĥi ‰Ø;‚¬Íiè½sÖÖ”Ú¢ê_/èiæ)¥Âu«ÿÓC@`•„¯³ÑvÎœÝ,Ü°œà•ÎôPÃq¾eÊ# —ÎÜaáVSk«ýæ–¦o1%8&ÃqU™lî™È^àìˆsP‡tí"3êLJ…róT+ì7a8RØ–Íé\Q$¦t('-~TEçtˆ}mϺ4äòø]œÏ•ÑLÂ×}— sd!öÜ¿„º@œ>¾\2 ù>ƒü[—SvñÕu*Û ‡ïºÅT³tr EžÉÉÉ}m„Õ•Ã`‰€/ êœi6k—ÈKÉ)õÊ.Ê¥Džª™\4@¯ë·`5Q¨Ö§¢=JÆByP'IaîCš\v”ŠƒF/HÔš3ÿ“¹ÈÀ.~ Rëw¿¼ýë?ʪ·ïà&ƒˆ¥3õ>îÐ0q:6Õ7Bï”=A8ä_åY’ø’T&Ç\)ÈIžÞOÈ{FšÁYÃõÌçBøÑ2ªDDÙñOeõe•‡ Ÿ Š®,Ížì‰d<*ÕŽ_á×°ßÔ>ëû(eýgY,¢x†ç¿jóéú©ûOW…¯`9²+ãzj!ƒI<Qøu“KrßÏTDaàZæ.+´ù/àÚ2”œR¸¿§@·vÅtšÁ÷÷†nëKð%P‘ƃ¡ ¬YSºpÌÏu-´5•±<áîáí|Ô³i{,žüœ¥Û›ã¿©1­SÁrÖÁ‰}SqUÅ6 ˜`ÎÎåT7XÓ@~¬;ûz¨M‘ÄM¿­g÷³áæ6=À ¡ ;¨¡ÜöCxÍšl›»|Ÿ9í|û\˜¦1 þzæ!½a5‚êùEĚé¹TšŒ‹Ÿ!MØAê…J4ûíïR´(]%XÁdÎ"TÓZBNšrÉj è²húã@¡ªy‚à½;à¼Ï] æ±/DKө»¢v¼¢ûxAÔÈÔŸ°Täá¯öØ<7\KP¤"‰²_HCAÎ8°§ŠÓó{Z/YN {Ð(âÇXNüÍ\-TÙÔtÎGóܦ“,Þ’#™~CÓÉòhŠ\ºâ¹-'Yt"™'ß )R÷æ0B¢¨ÎÇgGB-ÚD„Ï‹Š •dÓ ýÅng°^õå2ãR²ð֖ך.%;½{T… ýÛåãñÆú¦Õ¶kMÙQ-ÂP,¼ãø\?¾Ô„ƒrè0—‚iV]HŽ88.þöUL p쟈cš_p„>ãèäY°îÏgÇþ 3Å:©»1€02}Ð{Å:Z â:S“¯ ‡9!Äãáãß1GQ±à·|]éJt=ãårè8¶þ³éôüš5Šß–‡ ‡§Vw}ë~Œ¤`º‰@fcÍîaI¼^þ5⇛ÿy¾øž endstream endobj 3207 0 obj << /Type /ObjStm /N 100 /First 978 /Length 1980 /Filter /FlateDecode >> stream xÚíZÝs·ç_Çä¡8|ì.€ŽšÇµ™¦Sä̤Õø¥[5ÉãTÿ÷ý-È“E‹´Ò©ã‡Jã)‡‘Äh¼xÝ8`;ÙNb»äTÒ€íC2‡=²Ó}£ŽH÷#=T€ü8.ÐíJ=J$\ô£*Dp©®`UE]!I]Y=F#©<Š]°Kd]AÁJU¼h‚TYÈ™¨Œ0]®:%ð(±Î‚G©| ®ªQUã©ÎêDÒƒþQ•@­ÃUÊ2EÕ2ã_JÊCõƒÒ1”ž“jê'WOÎ0»O*'CÑ×]`hbå+NQ¿Ãö$¬|… %WyŒØGò†J¨;³a—”›ˆaõ"Œ’á¨Îà L¹îW V¤åÄ: -±Ë«š¹ l¶Rmm…Íyk+ˆ-NÍ°JÔV°Z6²µEm…Y°ÙÚ Š“­­|xk«¤B°òÈÁÈÖVßq…A&#)è¹ÁRÒvܲWY@"%ÖÙd’˪•œM‚k記ëÑŠ308à•¤Ú¹0FUóÅ›”Ôΰ6Uí ¥’U>øaöÕ~8[VUcT Èœ®âXUã ™Ggg£æsà*°/LóË¿þ Ä9«&€.¬@)‹›ÙìÕè»ï>Oí™,#ìQŸ·‹9;3͹z <³.;‡VÙíö8W¯‚·ífTqa÷¤©kmp– [é6o^¬ÚÉåtc®Lóâ‡sÓ¼œþ¾1·|_~XN11~35Ï!Ãt±Yk˜¨›š‹éº½YM¦ëmè¨ßýcúúzü}û»¹Ò/àÐixFãV+&ý–ðÙbÑb·«m¸Syj¸Û J|"H]2j.oþ³©Ï?]/ÞšïÛÕë骲s¯š¿5?6ϯ|}P '8›÷É" ˆx›Â«<¡! Ù³ªÜKÓüµ}Ù盋_v5^¼ÛL×›oUSƒ“³¾F”mBÄ$'¶85O±ˆ¯Ç%™¾ù¬ ‡8#øÿ‘3«aλlžM:`MÅR¢W·‡©gižUͳÉæº]4—ÍÏ?êß7o7›åúÏMóþý{;ŸnÆ¿¶«?-WíÁŶ«7ß~”P]\ƒÑ­‹ƒ¥zx ðp`òöˆ;> stream xÚ­XëÛ¸ÿž¿ÂØ… Ø4EêYœ‹nI4×+v÷ÚM Ðm3‘DŸöúPôoïðeY^Åë^ûeE‡óüÍ ½x²™àÉß¼{z³øÆ“¥‰&Oë‰1¢A4‰}E4<å“¿{„&Ó<}\|ˆü3VÅ(¤™vµüŒ1)8ªK¦Øß`«TDg÷æîâœÄ@¤æúý4Ä^×neý‡¸?þ@È™°½ ÆOP â´˜¿MìÉb½™†«6Ó9±FØ<Û¶+ÖñÚ•ã¥gÓÑ„8§¾;ìW(yËÖ²žƒ‡_xÖ"Yo~onM! A–½:3æ£xRƒõvù œè PšøîÞ¶mwÍï‹Ãလæé >SÞ!ˆóS'NYk‡YHc”ø¡ÎÅ6 | ññWo~M ³éœÆ¡wìâO5ïÚ_ìæ{Gýaê{L¦>öX‘[âÓ4<ÇñŽeÛ’U•Ý~tôÇl+ŠBT'é¤HË®(À‰{šx?¹ãßÂù4¥¡'ÊòŒI WÞ‚‡s@~†§èa‚qj¢8hà=¶u—µ]Í ÀQ .T¹ZÈËZ‘9ºÈyÕ Ul% Ñ;+Žh̹6Ô«[ÁŠÂ2ÉUÃëýÔ=žJ~¬X鄯”9/s´:ŽYÎÕíç]!E+Tø)öÚ-7‹S­šm!¾ª,ðBl¥Ì-Z¢p€íÀr*‹wBŠ €Y2p¸©…0E„ăR¸ÀÔ >Õ Gd¤º9ô0Æ~¨Òù"˜x~JègB"ø¦h¤ŽcQŸ^U.…ªŸ…‘SºX Y¬Ú “[ H€ÂzžÙj¹ì+MN¡ A’BVb1äc‹¡N¾—U Ò‰¡qì©:Ÿd@Õé[¢2GæsíÖè$ºK`º¡îXö•AA©L«Ü{cY¤`@œ:öÇ) =ÙÕ•B•’hTHš;¾ [ˆQãeô(×íÕSƒÂ—!‹c‘¸³¶G£[ @@¿¯Ò$cɤ—\K~Ñxñ¥iÐÓ LÇ’îÓàÿ I'¡o“®7DõEûô™FtÇ™»…å…v£¿÷ök@Bˆ õï“Ì â²š7rnØNuk{MìÑ#šñ¼Ç¨Ÿ¼á&m™ê[—sÍ3Lù±´™fÿÃxÎÇÊ=¦(é‡æظ QŸ,ðé-¹ŽÎr¥±Êvì‡céÓ1¼Y®Õ:&‹/uS"?ŒÈØ4ô#Hu<†œí÷E#Gg¡ç%zºÛåËé~9!¡Ù ®×f8à.‰/·¨ ¡lO÷”žrMjê};Pƒ›yv³BBPòÚðBôšN(͸ϕÁ0 ±uWe ìz¦Á¤’†¬¦TkHç#ïtí°ÙÖœŸÍ4u2œivʲµ 2VÜû4†¸_Ù¼ç5Sr¨ÐíÁÃn‘Éj-ªöj²rÝç m@à›Ér×µÜmêš7;&Â=uÏ£â—Qз*Å’«'ž¡€ê¹Ó€Íèc1 •ƒêxÿÌÊ]ñGâËG# j Š‚SIÀã?$FÖÛ·oÕW¥¥Èº‚)Õ¶³9ô½ªUO´kýôÒ׆P¤FYwÚíY-˜{ÒêaÐnÞä¬5\ßÍÍ—«Ž›©TrÖt5_Þýøp7³JŲÝÉÆîV°«øÆî2±Ìú³výhaKøƒVÙÆýºQ–ž_Äa-Zçn•ËrÎ×kxú[·Méeל\´mEY}.þÜÑš7CGáŽâ? kã^\ûÂÐäÂPÀÛZ6]r¯~\©U˺’1,¿Ò ÖÌNB6+V/?Üz|ÿªJ–éžçB”¿Nͬ°Ô©Æ3_©~U}³ã™XÏý´+:_(Ûž4§ ˜~Ëi ‹¯®Fÿoš–ïãNÃ6^aDf¯6ívI42fîÑ™?[—0ç¯3Û¯jރĬ HW±æUýzC†Rª±¨¾­ÔÄ‘ªS§}Õ©]_uj×WÚõU§wgUçDív¼Êo›bnxkßÃøYl¥§"™Ç7,6µìvf©Ì¿ƒ{g¶Kk¡¬ÚZ‹ ^s{–e¢‚—[{îøónÈ^‹~?²bÑó«¬]<cí8¯ð5ü&5ÿRrYÀ¯ bˆ)w¢5'Ú¡™¶ó¦y½‹ÿÿ:7êw¥}ÿåÓ®?‹¥ìZçf©wä²G[$^ ÷m |%´.ÿ]?/÷¯¶sš¦„àÛ_Ѧ¡éèê¬T/w½ZšÏ¿ ƒCƒ¾¯{Éœþe(MÛåÇ™[«‰,ï~úó¥ÜÈú‡÷OoþÐZ endstream endobj 3321 0 obj << /Length 1277 /Filter /FlateDecode >> stream xÚÝXÝoÛF ÷_!$âñE÷¡¯bzèÐdÀ0tKã>uÝ KgK­¤s$9iö×÷eKŽÜ M·{HÄ;‘<òGIÙuVŽëü<ùi>9¿ô±¡È'¾3_:Øue¾`Œ|9óÌù0½¹©ES¡¦JN?Î9¿ô‚ž|DèS¼„F’iâš#Î/)uBàö™äžÑ Tì3À&ÕBÇÇǧ3Ïu§ëF,‹’노妺dó'ù ŸõWĬ’:ÓD“ y2œ:Ã.Š¼¨§›R:­EÇ_ir)M€Ì™¦’ìÓ¦íÌ._¢Ö´6BRwy‘æšÔfõJ/‹V?3QsMýáz®Æ*À=ï‰ï½ÅêD³ bˆ…Ô2ü-DeŽ¨ÇÔE( ½¯i Ûg]JžXJl$|’æmWTIÇÁt¬pœQ7@¡ëïéÑ~+:û¦~5†û:i$ Õ²wq*IrF¤òíV 4:ö’³áí.Ö$~(=&Bž$iÛìúR•¶¤\³ d8jûAgñÞ E8ÂxQg’»æa‘c›ñúÉ¿$ÕÚ^–»œ7†ìrC¬yòÙ\¥åÞ«²øÌË""¹x2ŸÕAÆ(wÌå̾ýqfÌiÓ¤T¾W¢H]áדî cÿQœžƒ¸¿ð²Ý¿Aq;pÿz—þ°!èWeU}èýCÐ[‡ÕÂxWÛ8Ý4 ¯»òÞŒ¢r­`ƒgÛ™ø%ëÁí¿YžÌ~3–ý³×‡_7§’w#Ú¯öãGúðýÞ”9ðÚ1ò3…2bF&Ic51ɽCSà!—Òï30ùò-õ½)$ÏC¾‡‰÷MóÒÌ ½é\~}I÷mžJHÔ°'­J¡±À&‹J®¿[ÔD×ÿ3FTìÁ—`Ì' ê²í¯ £¹(£!è·ƒŽFS>1þ¾`œ@ endstream endobj 3337 0 obj << /Length 2392 /Filter /FlateDecode >> stream xڽˎã6ò>_aôacmŽ”DrØIÒÁ.ÈôbÉ+K´­Yòˆr&¯O«¨—Õ=í>,|Y,>êý°·:¬¼Õï><¾{ÿ%«T¤q¯÷+ßóD(ãUâû"ÓÕc±úuHoóŸÇ¾ˆýj"‰8È"}þ\7íI´§ qßy|…û¾ÃÑæm(¥Ý½ †tF÷t֓ݳ×%±HUànÌY›ån7[?õÖ¦kËú@ãß¼ÈÓew„5ûðÉÝ©'T¢Ü)w­é²ºÈÚâŽp'7F±ˆUO#[èýÆ÷ÖÙ¥ê`êÓ}ÍÒ=2ŠÇ÷\ ]wK×ÈT(?]Ãçv ÓvÖy¹¢É—£v”ûd(âX®¶ °4ŠèGQù§.6[xĺզ,.Yepá{-˜Ÿ4àºÒM¢é&@>6—Šñvš¾ãËš y«³nkçM_e¥D@ÕQÓà\5ØlCàçGÍ°ÿ~¯»¬¬Ì7b¦ SýaUØú±ð:ÿœ_¯öBe?ƒcô3Ò * ]LO´ÌÀч#”xÙȸfäÎLíáï?}üaÁAR¤^ƒ8eâR—‹ „*ìåÿƘê«”.š(_¥Aù^¯yõå¤Û2GNÄ ,A|¼hšît÷E[§>¬ñO2$#LJÀ#ŸÎd-$eâÇé1Ž'z¼ Ž×Zí"‡y1Ò®~µˆ`BS³dx; b<+ åÑùð©6 4S×ßeŸAÏ|ÿ˜«xUÛœf¤c7{ù]SïuÛ6uùO5=<ùzöžÆbØ'Êc—! àxqA(0ïÓOÉ.0? O¶ðøxëÅô³ž`u#WZ}6oÑÿÀŸH* GŒà=<ò*ìÜø@XKSËø–d¬`ÞE R®À:ZX@_KiÃø8x´¿f;¬?_dÊÈÉ£æk°¯YœP19Âû¹© R"[ô ÇÛË¡scÞJý8¾÷ÔϪPS’Z,R­êÝþäª{zS‘šÊ9iHÀÊÈh_P0 Ùvž]¤… ‡U”ÙÁÝŽöPB8>Ó¹áM‹lÍã&õþÇž–/µ}2nÒ6d<Ž˜¸¸¿Ô91ÞvÜ4ª—íÁKÓwã¬5.§CS þÎ4UYÜÝßM9Çí?\[ðÖíªäÓ•O¼YÜBˆÄ=ôwƲ&%ƒñø²TÒeD.çH¸ºx¦ï;eXÚ*¡RÅ!ªu¯/â} »q¾Zè šVw®µà¯?_²º+!Í©´!ˆõÄ©G-(·¨˜J[î0;¼pˆÇ¾m=¹Ä_›¶üì’¶ÁI”üŽì°0XÖ¦›¨¢ó¥ö€XÍZƒaœò3é€`MáÜŸ¶À~û´s‹h£&," z-Æ eûÞÐHÿöåÎv’ŠÄëkË{ªbûw\u¹ñ)®° %"•NÕ–¯\Ûðÿ¤­hÝ œ'Ï(óà e€ð e~ )ƒ+Êží¥'R$Á´•Ž·QV'Ý;Cö­S(XbaÃÚ× Àù+½X Ü({Á!Ê#óFÝVb® „$SærÉ1¡¾Ê¸Ð£ÕËaÃ0’{/MŸ[Ym¼ÇrÆU°­† =ìý¤«Å{”ª¹†Î¸‚7úiô´~rê ÷jŸ¯:4£¿ Úær8.tx½{ohïÚ´`B’KZšb9jÂÄ!Ý Àçš0ʳÙôÍM$"N €£ãK¾ŽûJHoʵþ9¨ØȈŒåºøÄIÀC¤…‚ ðè,CñûG u¥0oôåÔ}QSB&‹¥·¢·ÃªýoÇ &PRÐP‘FJNÏp0òyv}O` ª8"ˆ¨Øøï&DîÛˆvÊ}©†[åÐ ª—„SSØ.QJ~“³l$bE…~χ˜c‹@û®i>Ñèoôù÷FAZQ,Ì14ò‚ §Ü2Š˜€••ð)S _¦G#’à¹í5|Ç»9#¬–ëK6I>ìZQCp|räƒÎf©jD-&§X=x@ð‘x9oE¦"ŠPªå¾}¦`…ú3IåؤËüd8•«u‚@å[MÀ¾Ì¶àð‡¶ÔÅ)«¿ÙÓ +´ò…ïÏ’¨—³n?Ò)ö¿ÎôvŸ®B‘¨þOYs9›Óå%‡¤ãì´#H¬v,„l%`Ñ¡ïzç3—òÂgj åTHq“¾X™Á€*XdôéÓâºF,L> stream xÚµY[“ÓÈ~çWLíÖ\…{ú¦R ¤vgf³© yí¶-%£–1óïsNŸÖu4¡*/ãV_Oç;·~±»à¿>z~óèòU$.R–F2º¸Ù^ΙÒÑE,‹Tzq³¹øwðùsYÕV²ÅnÞ^¾ ãÁ •F,NSØÏÍ•Zà¤GÜq±Tqâ&,e ‹MÛ绽©KÅUPž+S[úÈËM¾Îš¼Üá·„ïum2ë¿U`UÕìKc-[,u”o¶$”R¡¤YªZ™VU¹5u]•ùÓ›«?^Î\"Ö,ÝÓQÍÞPÔ ̓/ ¦¨Ž†$[U§rã¥Îjƒ»ÂSÎ" —üÒ0¤ýžwç/–R…Áºªk³nÌæ1~'­ð7‚³†f¸£±q÷h·AVRceh%3v‹$Ù˜ fÖÿ¶§–8—S®ý6~U^•´Ëv!‚ª¦vV„“ÒC…œé¤öÓ”,ÑÝ„ÚØ|sÊ Kè¨0a ¦Ð±ùáT4Yiª“-nQ fµ n©6$ãAÓ¨c_-dœ þ%ljÈí D\õ ^={w=K‡”Å\ è€{Ÿ÷ùzOÍCö 2–>›VÐcQy Uíû¬)mÞ佨ž(Z0Œ h!‡ »é9ØAUZêÛÖÕZhŒY‘7+ÜŽÃ><÷û'’&oPZA<¾‹Š »;ÙÊ3H€ÍrÕÍÊê…H‚Ýé`ÊQ‘À—ÒÐ)ÄIlTeSW}œ÷¦q†.ÀSåeci /{á\ÃcÓÎyáW¯ü˜“ÎÑ>>ð¶c^‡nÄnòí-ÁI–&rŒnujŠ l €bê>ç¡õwg?ý ìá§|˜é¸s(Ð 5›lx#Ò)K„ì'ðšQêì<(ïA„N"ôˆÐáA„–W~̃øÐÍE1qçê€ÛìÕÁg¦º7²ðT0¶ÀG4Ö‰ê€,¹(œC—¡B­€04Zmé—.ª©Ó‚¡vœ =g §ç |8Å”à]Ü”l!q0±,‡i…_±u¾¥X}÷l½|^¤u‘Ù9ïÂÇ$û l“Ê|1­Y¢äP¹ }D¼ÊK€ÄÙ3ª®FfÅcoV² в¦¡F³Ï­&­kЗS3£9fM¯éƒn_œ }">+Óœñ§ ¿´ÜÌD !?IôCQ dá”Äp«¦½ÁѬ;SU:fRL‚‚÷ð}î¶Du;íÅ^!IË‘|­m¨Ëų¯Mm~¨gDÙ}u*6Ô^ùñI‚ç@ì·ÊÇÂ8 ä@1p¨3~”ƒØc?úTÌåIà)TÔÎkÉ8½!¢R—„ÝM…’î†M…aÏuùë`þ'° ?÷Ù0P÷6L«9á¹ñ0=Š½à¸9á­Œ~ȉØͶlzCí¬m“k?±‡A$S‘~ðÿ­Š±i˜kx ¼‰…R B"ŽÏ‡DBLÔ½Ž¶[4µ4ã=“ Ê#ëÅsœõ:É6O%¸klr yÏÚuö7AH!«±Cu׳DK‡!6<‘RJ/íP&'µA]? p3ù(d:ê¸p¬ìÌÍ!É•š»9“Û‰,°MÞP‚ ÝÎîÑŸ»Œ:ÈܺÐè®‹Ñ ç$MD©.èΛ†è/F¡i²GÈïî*d‡I¨óôT÷l%‡É¤LzÇ:)[˜êx¥¿-•Û u ája:×"»ZÊÐW« WBùÑ“|¬:2%ÿ S1xìý²ÂljUÛVøU…çÐa~)Ñöíöh7¨¡ÔëvðsöLÈË_fÓSÉ´îÀsÀ.U¢XœŒ5p,²µ±ßÚ³*\Ü ù9É VÄm*0îôåô¶I õ6Z¨3ÚÄ% åñ„U8ÒG7L—Ϲ5¿|;×sùö{‡FÚ  쬦ƒ {R9|8… G;< M M:=Hé¤ôîU‡›Jã¨ÔG©”äé–#8Z¢A‰Ô¡H€PŠ†Ô@uaäÿs‘JJˆ†¯íïcX,¡nO~F§¹õ矩ø‚Öº:€'iŸŒv¾«Y©@ÿ<òu2w\FC‡âéƃ¯ËìknÛS«¼?ؾ‰÷³{bóŽØ ·©Ûq¨$¬zé%Õž·? úíÿMô^Æ!¼ÿ¨3]ßmßk±©6Í©.)MäXta’Û|Uô%ø½üÒ-E`é©ÙW5F5WƒþOL‹ÚÊ>DŠ­{ê¡Šw1ôšõ¾Ye'Z¡óžà™†LõøËùËêoÓd`ËËc]aÝêz÷×YÇ¢‡Áÿ1‰ÏÐEó‹¤÷Í«;<E­}Óí“ËËóùÌÚ“!EµõÇ?D!ug*Òq5£•)E8ÖÂzLZÐÛØ1õUõé1!|Åè÷ïÌwüL?NG&·+:jçG¯Y¯”HNhøV_f®º'4·ÚǤ!$RêÔÆNÈÖ…Âò8º£¦µ˜€Í(T'LöÙ?f‡à±ßAÞX•OèãÅ>;²²?Ú?rFLêpœ“¾W?û5e'ˆhžPàs ˆŠä‚û”=‚‘ Éiퟂc(€-Ë *å[‹¾WáqèŠ~Èíöʼn_ä~KHÅ!À­?e;3¾ÂŠ(IZLÞb\¯Àø³‚v¨¶íK&Í ë&kÀy@ÎUx•WÛæœy…Ì<3BIÈÓI’9bñÈrT4³GêÞÔïOª­·á|ñAÊ´<÷È%!–S£ÜT9ÚߥàaG*¾üh-ûÂUÄr>› ¨ µ{Æü¦ÆUõW¡×¸m‘éà}µ1´ÒÁzoÖŸHõ0×é~A› ½–¹õëÞøá~ë׌6¹^ïùÆŸ}³ˆu{öu“„ ìG~¦ÙoüàUOãrÿÜç4DJürc!}—Dà¡ÑÙÕk°›x Z‹Ñ dÎg+-PŒ£¡fG÷\Ä)RT¬ u÷†ÄƒçÕ:£­¯²¦Â«¸Á«wO¨óÅÕ jüV»ÿÌ”UHG©¢èe'B‰PˆTÏSBµB¡¦/Ò :+EðÞ9 sÎu¦Áó“݃¿ñÏõ¾õ³És¦IË®‚?ü†„ÿŸ N£÷qêü|ÊʆžADû>-L(•KEñ9úk?¥× Øñ6Y“‘uYÓØY’²HtVû›½]ã!û ªp©»Þ=¼7læ´.çâû=÷JE‡ÜÀ1è <ó 1ãɃ4ààOä2MÒ1(Æ™ŽæB°ä1‹@¨Q¢}m|¼z†šs“ΗSøæÝœb—ý³ëC™>bEé$ùž³"pÓ]HÀƒû‡Î‘)Kú‚\NU<¿ï@È´´ ‡'MS=t¦VÃÿËQÀǸ=•k_ó«ˆÞ_ñŸ`šq@—뇻eþ_]Ø×tÿþ;õ¡YꢮÈý'’ 3`?ÕÄfê Mà\²Y…¿¼yô_ ÐÁì endstream endobj 3356 0 obj << /Length 1302 /Filter /FlateDecode >> stream xÚÅWKoã6¾ûWIØ@Ĉz ¨[4)¶(Ð&ñžv÷@K”­®^+щãC{‡/Yr”ÄA[ôb©™áÌÇ™´e¬ ËøeöÓrvuãF„"ßöef`ËBŽëÆÈw"c™Ÿç¶k/¾.½ºññ@Õ #dy!8J-IsRp½™¥Üƒo``j Ó`Ñ‘v×;R6íF–/W7Žc„`ì»"Zð…CdKOççç Ó³¬yBŠd[Få´¨×Rhóî›’ËëNʤJ•Yݶ´kê*Í+eÑñØúÙisR%2VˆÇÄŠ<RJ˜ÔúÑ”#íx_,Ï*)é¶-ÏîîÎ.Õ¦yÌšºS³Ì*ºV³$“÷f‡o° ‰á­’5¸Æ:£G8d9ÓéVi]š4ËhÂTÚeÒb*À`œH[žÅS®bxÈ‚yHxHÚ’G)ÝÞʱ)j6µù÷ïUÝ–|;Cm³nó4^Þ}º~sŸ>á2ßÑt*_!>æl£ŽaÕÕŶ/¨ ¶MÕŒ ¡^êöŸn”j,‡¿t°íhø@g×ËÙ÷[ËÀ=¸aˆË3’röù«e¤ðÜ#' G¡Z.ÐDà: ÆýìöžD­; Òw±áaì¿Â!¾72³QbM:wÒÀ´=kþ ÐI1ƒÃÂÅÂöø‘\Èéï«?EA¼œ²Š>zGÊ’Cý uæì@¥ö3ÐA›7@;Õ$Óó0g¶áHõôͶJ„­ÈƒÕrLZ*XŽËíŠfŠZå.'™rP®“Ü>>ppm ó@x&ÕFQÚ.Š,_k!¥1â|ÛÅ(t9ç‡Èªk>udMO'ü XFë{§j!4êÎëî‘*÷ŽêHÊ6µâ~“ ß"ž‹¼ /¼‹ ÐÜaebS^@Çu_sbbÇE.ägBEž÷Rž ­m㛿Ý_«¥]‘—JÜÄ]AVý*92°GŒ· l¯ï&ö¤¤ŽÑ¦‹5+è-âÝbìo§uκؾì¹gà’Á½ÓeJ“‘v­ ¨I6±u&µv¶Ò·ÜŠ$ßt0m‚€¹bhªÉ=z@d‡¹òÙåÝó²8®PÏXðúT‰íKnKÀøõwÉå¹;~ ›'ð¡^ú#Õ°MOëR NçPq¯6i0jÒ—â7qàeÁè#7t5¼ÒNÏž[y"˜ÈÇ’©`ìšäÙ“œ,°7§-“É¿ [)rš‘»)KÞ‰Œÿ뙶Wk@æíšž:C~~†ð/èÑC¦ïVYüP¡g?*®|v¨C‹lôŠR‡êY=ù’¦iëþäivPGÌ}ðHÞ‘®£Kö_Kwÿ?§«Gx8ÿ ²k endstream endobj 3366 0 obj << /Length 2740 /Filter /FlateDecode >> stream xڽɒ۸õÞ_¡#»Ò‚ Ü*5‡™Jìš’ʸoö( ’S¤†¤Ü–¿~Þpkö¢žŠ«„€·/@û«ýÊ_}¸ùåþæÝûH®R‘FA´ºß­¤ï ¥£U,¥ˆTººß®>yM¶-²òö÷û½{Æ#l•F"NSØ‹ð­éÆ·Û»ï»÷JV­UœÐ²uPñâ¬û>Y<;*ŽDšî¤SÝ]QW·ë L¼]Ýà õºƒaÈ÷uö­hyÜùž>fÍ ̪-ÊlcÊVÜ®• ½_wŒx®Ú“ɋϾ˜íÀ"÷níî_oƒÐËʳi=kìDk:ä¨\ƒüÒ0dj7œöy¾·;W9’/fOÅdY^ËHÈØ éò6!…NHÚQz—^Ha/$=)tB GB ´’~,¤0„΄¤Âÿ¿ÚÎœÚ׋‰”©òªóqc×;þ²\dÚË$JšuK(qüÙý~bkv·Ò÷²sÙ1€±´š‰©ô~ÝWuc¶Œðp0²æV&Þþ|4UÇÎ7a}&?k3Ve,´ÒŽUÖ¶ï[³}^¬©ZF±–æ«)_/V¦iŠœ=¤7ö¥éŒ©xÎg˜5¶Ôƒd=®æ/šÙ­ôŠÝ¥÷D”5¸ó×[©a$B¨½öìãMrõÈàX¥ ½½³³¹Tï5N‰'K¢¿ÙD03+sŽFÝÔÇF½ùŸÉ»×[yd£ò¶ØÝv^TóŠ6è)‡/¹1 W»èPç 8&yÂw ˆÇ¬ä§29æäߣÝE~° ·—.š½ˆaSúýDzFŽ‰á>—[oì|SŸ«­±ÀÞýžÕZÀîw­Ì»&«ÚÝëe>qáu |¡+H soŠÉgÖÍ‘q™7€÷RQÉ L£ŒØ‹»…˜Dü9éCmý“ùvZ:‰Tõ嵐µ’J¤©œ:Ik¬¸³²­­pàO$«eÄÃß>ܬ>±å?"lbã¡uq†ñ2ŒïUÎÝœT2—âü+ÂÛBÖè²f…7Õ'<—|éÙQÓÛ䓹ÍÚôÀ¥ E¶¤¼ ~¨§Ê[P\ŠKz?/¥@žHâþûú"£¬»®¨ö¨¹Àk/ÇM]‚ušx¿\8rÂ;,!°úÂȲ'S1N^4yixŒjÄYV#l{Áž¶«¹œTePQ='•¾/>ew¤£u5ŽÐ5Û…°w4µÔd{µÁåõÙ4?dM–wÑbº†d>N@CD[FƒMÝlMƒÆ08¹¶Õ»>KëúȸÙÿf6YþeOÑþIFؤˆ°L»YåõÂãÞÄ•ÒAÏŽ‘+‚9®ˆ\á`Ìþ¶\)-‰« ®+dp …LmW1ë0‰0„.T3*,ÅÜ'µ‡lKÙÚŠ@û&»0„+@¬G*?ìÖÕ ¡JÆRÈÁ¥þýóRi©¨æ£ÚóéÔ˜¶¨bÛÑeËŠGµÛ“ª…:Oh-§T“ 8ç­åSÛò4™*¹6‡ò)Šl9{eQÙÙ–·ré 觅0µËa ±.Ïa¬ÿŒ[m› 7zX/i{pª¥B*œ¨BƒØš*·hÈjc W—ßòöšò jøë ,Í·×k„Ýš$y~;AFì³*“–wà#Ðu¾…eÕ›£Úóño7´â:íkÃ/RK»üXr³ªª»ìmùOqE¹Å¹øQ­%l`‰fÍ+ÄB†ö´˜.+Êö‰û©i`J€ÎD$iÂKãë/hÕ%•–‡è TðÒ¯¶>š®8;™geIÕŒ?då¦ÉŠî0ÚÂ:3öû†.Fðj êšz{ÎÝ:ª¯Çseš$S¾öp¼¹[ 2MµËúÊËZûÅOà=v/ ã´«úœ É¥n²ÎØE|<Œ¶Å#ÃȦžW5[6(—ï׊'@$Ù:ƒ*ùÒšöÎu S³Û[¡€JBPìÁëýKY ÓXœmûCj¸µÆšîa5ÃHÒw 7¦A+þmc¨v!@CÇÛ\“@sÞâ%CÃ7 [ž4V¹=§-¾sœðµ®?wy}tPΟ¬íš%Ö(X×sM4†ç¬ß)ôÞü—oê'ôô[JèÄùÕÒåi¬¦+ŠÖRèTÛÂ`é*_( g„zÕR¢Ÿ4fAJ‹(í{Ñ·Ÿ ˆ#auÛ{'^›O%—Ò±»IlŠŒªœ§yX¢Ï’Æ䰈2vXÄ@‡µ‹»†ý•£%²ý-œST-_V¯Sè½ÓdÖ÷щʟŸ¨äôDÀ°!‚FB!Xs¼-C0ü#œR4 Êë<ÿTW\×ñ/ç&´Å0¤rÁ¬ÿuEÎE^â O&3G™(>F]õeûeYñ‰fŇÅO ¨7¸ð5>•<éSp¥ÀÒ?ÿ—|Êm‰S„ñë|*|Þ§¢1‹îŽK…ÞÇ–ÛÉðjõœJÕ»g­š¯¶§†3}ž²OWEÇn¯Æ@öƲlèÓ„ ’ÙÝ+57š‹†È]å`¸I×TPÆŠðÞ¸°¨t·…÷õÔŒ*Èéÿ©f›4ÅþÐñðÀ}ŒÚ‚ÐÈ^7GzÀÇœB¼ðÕÖä*(Òj­D&ÏÅG¨Jª‚ž ý^*a’¼!ùù‡=”çþ¿-ˆ€FNŸ}¥'B¤VHbKQ°Xh{ÂkçTÜ9¥M ɯÕ-ÖAôÜø˜Bø"Ñú54*ÉèEGXE;È0q d2{€ÉŽõ™š±Ôv.ð=è”꽩LÑQ#™p0‡)×Ûmùç: ;${M]O2oŒ>Т n1Æà„°T)(¯ÝôK¥B¸d&J…hl'oô­Ù¾¥’"ñƒ¿ä ý^à‘R?ÊÔËV¼ì {Ba ãÜ‚M–¾CzK™˜DÕÓ¹3îö~Zø³ÿüXxcx]0o£ùìžÉ}AÏÒÏ`X endstream endobj 3378 0 obj << /Length 2188 /Filter /FlateDecode >> stream xÚÍYK“㶾ï¯Ð%UTÕ >À­8•IÊ»W9‡Ù±}ðú€!¡ŠTj´ã_Ÿn<(’ÃÑîŽ/©9èF÷×_78tõ°¢«oþq÷fû>ÍW)²8[ÝíVŒR“l•3F2^¬îªÕ¯Qœ$ëßî~ؾÏØH”‹‚ÐTÀFVH˪– ʽ¡~ûÙÞž3»bç0Éݺ»½Zo⤈Œ*»¶‚qJ£O4¥uÛ*½5Ù4JÃsbR—nÐïeïFµq«*-×,έ›îÚ è5èúaß;ѽ´ªPm]ù×u[Õ¥ì•/ÙCW©ÆÍ)Ó×qOÎJ<2w+ÒÔ겶®ªÆ»û^ÂQü¹ð!œ}x]vZ+s§ÔíC˜j?QWª-½PÝöJ?®ã4’ÍÅw²Ÿí¥ÚÊ\·‚ ç„r1£‘ÙËJUn¬zù¡¶þe Lpó}>6]ïF62—W,úc#?‡I¥u§ç[˜(òè=>Ã[ ;ÎG(Š9'œÇvzTÍwEê$'xK IÑ-A]½ f9[Xt^ãYû\qN ãÙDï‚Ò8>('»‚?& ãSœœ÷ œÇàÀÖC8ðhÃá`>`Üû^U«·`'Þ||yŠŸè;÷üãÁ ÿ¬þ{’Í nÂ’ÉQb’1qq Íœ”{…äID˜ßeL ) ïžo“<|Vd .-,Yx ‹8ú©­”žyNs:{‘q. €r.¦.·ø…‡$ ¬¶ò¯;lÔ´Se¿f‘q6"}ÎãHºûlI yrï‹ô/n0Û:Ž¤§ßÅì»SS¹ñζiÜÓ¹†@¶n…G$ÌŽSb!3Aä,dGFR>Ä£TÈßÝÝþôý‚_Ó„äÅx¾<ó¶Ã`Œ–8O›ŽžB*ÃXj?é4Z¦°ÓÝÉÒ¬Ö:…a S*"ºñª¤{ ˆ>5ý[KÁ ëÊlƲžpR:”‚‘Èö®ÿèÚ\þäIoNÁ*äÊÁª¿ÿ c,‚`00šH£FÞÛM`Úºk,ר]卵4¼ê:7(›Î¨0çd†e²ìm–NUeX.¶–Î.:R_—´‡Ò7R_6õñ¨ª·/Ô/Ü!ãY•ÒOÝ+÷kºæ1j½ ÷On¾nK­¤qEËn¡œÀAê5€éÖ¸7];“fÂÜp@{ß²¸QÊ·ðGÄJc·á†·ØtL‚3 Ì€ò£Ô×Z–“4ØÊ•d{"§V÷uyjÜ&Àé± ¬Èž×þç‰É’eƒ©´'S½³N€ò¥@ƒN¦üw׫€æ€kß ÙÒB¶mH•{õ¼k‚ÇuzÈ3߸Ä4ªÛ‹ˆ–}§ ñÇÉÆýÔ47.gèÏk`îP‡¼ ì!v¹ïo¼µ²—ÞP-þÈ Á¼TAð˜y7‹ó$÷8!,fnïÏ×0‘gPÁ†~c ŒÏ!­ÖNC“æ{Ç¥&k¨gž•1wrÍè·dü§W˜þôÿaz]™WoúSåI¼öôÞž÷Êcð›,0@ØÎËøƧfP1†ÖRr-‚9DF«þ¤ÛP å=Ö¦¾‡–¥ÑõŒKCÒÀÒSõϧ½m¼"÷~Y F³{XC w‘Ÿ×˜¥Ê}/OJ_. ìW¤„_ù×óãýߪ—À5h§~‡v‹túáoKœÎL9¿t)Ö|’[ÊGæ÷ÃçÌ?i<÷}4ï¶ÛóùL‚æõÑ{Qµ0@³T°bt™`‹àENK§¼w«vÊ’9^ÛÌkðA6÷ZËA—Æ)‹n}ücÇ̺žBHgÜ&á<ú åq—ÚƉWµ96òÉÉÛD‡ßÐî÷¸—ëfà ÏUí[b=L™*£Ô•ÛÔ^ãB€7ª½ÔªK9½CúW%›}Ûm|9ó2“ Òui–®W™aIÔ9ýÒuÆÕ àçìS ¥^„ðN •æ„&ÙSUW#|¶Ði0*è–Ò„²œf£S‰ ]²dÃ(tµ3N‡:¦™ 5ôC¨Y‘¡¾÷¡Æ0ܸW­åu­[øpÁN¡­†ú(ûÚ ¤(€PùéÊ]&Sh&@Ø8¡9ÂËetp/¡sx¸FP%Ð[¶›¥ÆÒcIPCƒ²›$²bøMËJ3¡ýýQUuY·jÁ¯"%¹È¾„’Žò¥oc¡»Å$BQ$¯ ·¦>$”æ™|@š,Ï^FGyzk¯Nˆûã€Q$9pÎÇ ¾„«kƒ¸ìÙÎ`äñ×v‹×Æ=Ú†q)2qRZ _~ÀÈwP¤d3ÝÏ8Ü€6ìÅŸ†Pºï„X(Ý~ˆÜÓ•µÃçB`2’Œ/­_ˆ­(^`€xÜ$‡—Á=ã ¥'^ 0–ù<þ" °,fIZŒ²@ž‰,Y 4$a³¦~^]¡øcÈiÅ²Þ k|LõñÎàÍ?»¶:•½%kžçÈ¥r#!DO)Wa á«[÷ãºg|áâæÙ‹ÎeùDÇf½‚Á"׃@tËЀŽï½Üä"?† ÁÇnןáÄóh)Ás¸(ÑâëË@ö­eÀD,E0ÁèÕè‹ŒçÛß!”g¤¦|±SKc’¤³Fá£ò=àMcºÅ>á«î¼óîA$9µõµþ†'Dä³&ëkT¥Ð ëPÏaM ”oqÉŸÑsT}wõ@ )}¥"1VôÐß hÓÄ~8øj1'iÂ'>|¼ªÃíbð…ËRlÐNm¨ñCþÚÏÆ8̆ ½•ËÎÐìÝðò€p‘˜óô; È"l¿¿{ó?„“­p endstream endobj 3387 0 obj << /Length 1399 /Filter /FlateDecode >> stream xÚÅWÛnÛ8}÷WEê¬Úݤè¢ÀvÓä)í-Ñ6·º¸”äÄûõ;¼È–9I½ @4$‡Ãá™Ã™±ç¬Ïy?yw3ysb'AIè‡ÎÍÊÁž‡ c’Ĺɜ»™d%_Í¿Þüöæ*ˆzÊ$ Q”$`J«ù4PJÏZí°§ívê®Á$1›.X±Íy=ØyîûæŠ'†Í!ÕÎÆŽ‹#ÆÖÖ«W¯ænày³”åi›³†›a^­ EýÍJ¬UmdVfv[%%¯·U™‰Òw‡ÑŽIÁÊÔx ¹ØCI`QÊXc´~vÍ—×Ê/^àœÕ­ä‹éõõôÂ*Ͷªíh £’¯í(‹ô¸–Á踧°üCËt ¦ñ9Oì´Q0 áY ë)ÿÞ²Üå«O FQe<3 È ¯' ¦î¶Ö³8qÑ Þlªl1½¼œöõ,“ì¾ P&Xnäm^5£.iå8÷ÈvÔ³M©7k6@J’Ä“›©•¬ #)#Þ…§h¥{ÑlÌ3u^mí6 ›5Z™UcœZ®)ÁpM­i® ìo Ý9uÓf{³¸­DÙŒ’쀔:X7ü,yM`-‘Å_¼#qÞZ±*OŒ0™Aá!G6†.F”ž£[*DÕ¶ð:B+ü´wô«É›ýbšUMóéÄ5{ž$ Š¹¬dù¾–“Õêä"Ï<ù¶>€ÄºÕ2«Ší-üoÌ×ÔàeÃå Bš]”UÛ%Áƒ‚¹½Íd(T:}Ε‹þ‹›ëÛËg/^oªûÑP=vó]÷.{õ‘º/t¯`׫ØvÞM.o&ß'6{>A“ØI‹ÉÝWÏÉ`ì#’ÄνV- u2¢äÜù<ùãlåÒ•ŠW¯Ò‚—!Å¡1ÂQtRi{%/ »|”ĸ+¹ï 2sקtöž “Jf·åR°šgfå“œ“hÆ3‘¨emTV•4«¯ç~ è‹ÚR¼6kºÖŠ]ú}ù§~ç!#J¢‚LC3èƼÄBó+”S)¶ê£½ÂIo¢{ƒ…‘åÁU[îO¨NŸê›VŶU}‚, š åš ·G4a´•}$aBQëÝÇÛOæÂÑÙH²±†Mr12ÄPµYFM˜P€PYpÍ`u`3¼€Gß"ÍY]›Nl@&ßG^v¬˜ÚxNGz6ª íU¤ƒ–Ê‹ƒ±b7íÿÐQÍ]‘Ù/Ã2äGª°Á9L*#<ãRV²6²aGTÍX¨ü±S@©L¨f–*CuÛ¤ÉD.öC¸ ¶öRy­‚@ö”ÕŒ3ž!ëÿ #U$ûfëmÍÖüåèy¶uÉí3é÷@¶ûªl*î3ôà˜¢ :¼ñ×#!¢ý$`£=b‰P‡ÉS†\PD}<¤™NCŠØ†’]ç;žšÒµh†ù´0¹îBƒRß‹ÒŽP±1äƒãøi€h½ÏÐù Ÿ—˪拫·?_>Æì9º¾•sìÍÖmÁm·ø£tµµØÜâô·[ÿ¥G!ÀéÓ†y_vŸ‘Wæ{.CE‘c@žÉPÄ?¤( ÂH†òP'/ÍPø˜¢†WÚ§-Èð$ m¤uL_ŽL ±zhBÉÌæ/Õl«á’7÷œ—jàÏ<3§  äA&õ­·<«½ÜXý<©Ì ó¤ÒȹíTÞãvJµæ]^ƒ?;rítâõûÉéãÜp9LƒÎ®)U dЂ‹\—<•÷…lüÛR{þÅó|ž]˜9Sõ¶•b,ksËÕ¼i ›±öM)ð“}=$µúWÔ@ÃP>hTþxÃO endstream endobj 3403 0 obj << /Length 2198 /Filter /FlateDecode >> stream xÚÅYKã6¾÷¯0æ$m6%R¯d³Ø`&Ø »äì¶h[YôêÑÎüû­"KO«=ݽ‡E-Š*V‘õøªXæ«ÃŠ¯¾¿ûðx÷ð)ŒW)K£ Z=îW>çLÈhû>‹DºzÌV¿yŒÖÿ~üááSäHEê³ >–¦R¥Þ#Õ'æÝóá“£e \· b˜nu–ò¦ž,Ÿm,ŽXš4snrSªb½"òò²Ñk?ôºÂ‰ØkŒûPŸõ.ß¡É£v³e{Úv”fïæ2 4>½ÿñ_—4/YÊãŽÊ9ý-í õ@v®(É`Œ½ÂV¯¼Ñ¸T:Ç"&º|úË:  /çËiF†Té',JH ˜èLåbÖ!5ª8áÖ&8¹+T½¤Ï„³Øïñ®:)Ö–ù»%L’,=¥Å‰@r,“Æ{'ú9‘1¤ø^`‘× ©ï¾Š‚µïÑúKÂ'"s‚_å>!S:¶)•—yy <#×;A½ÎPloŠÂ ´_Ü°%:­)ÑßÜr tõ”…¾ãƒ™ååž3ÊC(qÈC¯Ï×@ÅÎTºp¸¬?lÝ@ÒSmDW•©Þ°‰sΊík Ëj¼ ›M©äØÏàš45dšQ.~ÛFÛWl´=Ÿÿ›|ÕæD»PY–3£.´…£‡™{„þëb,CŒÁØÆXxXI©Æ¹+L«’]Ýk_.yst#Š¸gj•9ºÇ€i‘"XÞ:=ÜPQDÞesD H±F”p»p›vd}9nÏAÇSî5S ö•:é{B 1?I¦¨ð@X¡Ê¾òœâŇ\®üî0ªf¸fÅßÒACæJ®u@ÅÈŠSëR±ólÑ×õõÔ™Ÿ…nðéO²Åéi º@wè“ú¤{:Ä‘²± ÃÓÒfȇƱU«Î¿\&ÞuWEÔ»*ßv`ª¶û„ÿôb*¶ålÚåbʧ?™æKÃB@ U¯}¯q/E^je?PUnsUÛ 1‚‹Ú}nŽŠÁ·¹u.A5ÎbJáÓã[ ¾o΀æ+ÿ´š ÅPqÁê=Ù_tÁ,®K8ru]7p!îSfWP6^ÚQYw‰Pgp½t@4È$·À{Í‹ƒ$àœI’gm‹ö|+8ÔÒš‚"8ÔÁ3A—ù>%? ÚÆùé1&[áHUÚ È¶P_ºÑ¤IOMS =ˆÑ’“Ét·ÿ0}Ê„Ðòû`ÜçMs»<PÉ^it~™,¨ÿSÐí¬®"uÞ” Õe<³“››XéãZUl¦~+C§gÆ=Kƒa$£®t³½+¸nÚì‹Ž8böà] Ÿ>üøó?jÇiocæÀ(µ¾}É‹¢'¨ôf)„€EÅ–žœõt£“þzÔè4‘ÚÚh8¤°œ'Ž„‰8ùêmÌ*ÓÁ¬£K zUJñjÅtºÕãœm+až<Ÿ‹ÜzmD7Ì(VŽ{*ÑðÝâËè pdåTG³ÒTð`ÖvÁ×vÁVY9káìPÂâ›+aÝØE(·²K"Ö Ñ¡[ÑW³táOC&†2ë§÷ êõ–Æþ8j¦bÍ)' —¾Ý†¾f/´Ë]·¡¨B\µ·õEoù~,}9¾DƒQe(1éJ_Œô‚d%Ú¶p_2HÇcwhnüÚZ4ô5Î@8Á‚ËB;[ÅùqÝk9LëÞM¹sê續"I]49o¼ØƒÔn~Ãðf+ƒ¥Þg<ê­Ô@¶úî]ó’òd!¦àZM9}.‹×ÔP²8•_cO™?×¼„ÙFÓÒÂi– ”Ž«ÊŽf·È6eqÍØR $®Š@->ú,â³ ¼ö“¾H³ò| IRöuüg¢ãRt"‡ ç \Rû[@wX8”ÿ¼'È\»¿ÒzV‡ìaª¯?®º“«M …w ( ºu—‡$t@ Oðð]^ë{׎Í7ÛõÍ‚Dö”{lÐ&aWÎÙ‘vT£®#L«]àƒ•¾¹&™=¼éÓ9¯\Cv©¾ØF³}ÇæÖýR¿ ÒÆN/_N¯{ ]çJOJõiôª®›•ƒŽ[•«^n_¥ãvë¾ wUƒ'Óòûý ÔMÕ¯{C5þ«5a±?¬aW]‹ã—u> wÇf«Úî:R"l ú¹> stream xÚíZMoG½óWô1>lOWuõW pb8 ìvcèÀH”ÍÈ!H*Nþý¾jrdÒ"í¡4òæ° 5œš®×Ýõñªg¼wdœñžØÎN¢B2⣠لÄ*“pegrPSJ‚!çõyŠrAJÒ×Á3¤¤cbÖÁØò\LôxT8.ú€¨%¡@j ª¢Z`o(’ŽÆ)DX`<š\ V“Ô'0Hª˜£d©OHYíOŠ¿•”ô·hØ•*‘a¯ö©À†÷†×»b8F£Ï†³ *HAm`œ‹ÚŒWŠþ&0Du  ¹(>^¼Ú€ 1ÆON1 †OúÏë ©¨€Q²åFÉY±n”:JF\ðXÇh„BUÃÎQQØ aá‘n¯pVû!c[½Ú RVœÑVœ‘ ÕÍÆþÊf",D_%Œ’bÕóFJ]ù˜Lp^gá'.+&lX ÖY`וÇ õ7gB(úl"xVu$˜ ¹®YÂT\Å/ŒT÷>LÏaX¥bð(ÕZ&Cµ–Ru^܈‘ëxRÅ 1“.PÆÈ®}‚GW'ÀÚ$xæˆ,&Â\Ô“S ŽÏQGÄäŽV’nˆÇT’¯{[¼I"õ‰Iç#X¤´ñ[8eJÙcØÖTj´a—²‹: 8`fÒýÆPY÷R1YÔ§Q™u‡!‰ÉI­a×MÎÕ(g€„„QŠ£³³Qó²¯ÍÙ™i^bW´9Ç…zG í\H0‰íx Üns…R—Ü\è2Å*óͨùeÙ^¾š¬ÍÓüòâ¥i^Oþ\›‹n©Ù×-&¸1~;5ßÂd¾^i¼y}~ÔœOVííòr²ÚdƒúÛÏ“«éøÛöOóF­G8k*|Cã%žFää¸Q|>Ÿ·íÍ&O)žš§¶Bh£ó´:Ȩù¶]^M–Õ¢»h~h~l¾ÃòÓ…‚¼Äôµ–Eý‡,ü_,!~bbX ÷êö·5Æl~šÎožŸU ÍóËõ´7¯šžÿ¨_½[¯«¯›æýû÷v6Y¯Ûå?Ëö?°bÛåÛg€wávtS‡? ˜êEIÖ"IÎ6cY(ˆe|àN¤óz^ýá•i¾o_·¦ya¾:¿žÛålloçÓgf0!Ù¤õ£’‹ È[}€Ìþ“³5Umq ‘[vŸÇ±šÜÌÚ«ÉͬÌv‡¢³Q«R·CI=,tÙί§óµâÙÅò>ª©½é¿þý+Š±Õò“Xl@º™ßÞÜ\U&çªv,ÁF”¾žÚ¹§r`¶È[=µE²ÿìYl/qí§´Ýĵ—ÒP»­Ë\L2W9-síNÝ ¶«|·N%#…§Ñ†gr¦ÿkïjgÒWOmç-(A?eMÂ1—ïY¸Á£2ûû.¿öŸîû¿¯Üž¶åÙs'øNOìÓÓ¿Ö[GF^Á{ÇÎh˨«0gÛE‹\»° Áø¯–ŒÌÁ±Ø¢]ÊSbÇlºº´çWãÕ;Û.”R ˆ žƒ~ŽÆ«I¢6.„ŸEŽWèÉjzu;¾Y}\Š¹BŽ,ºAí ”÷Ö1¢%µÂåx¡¾]¬f·÷J¢'dØ]å.,9GH§W¢c|úÁÁ'‚OzŸþ^ðI|ÒŸtÁ'2[FWnKLwl lшþmÙ2±Cv¸£bä üF¾$YÎà‚éGq6(gîcönH®Ìñ±EÁX ôª½P,&ëö^Ê)!(BPR‚ÐSÛk‹vÃÔvH+ÔW›BDñ¬Ñ{ýôa‚£†x?M9-Mì®C'lß®ò益CÚÚ 'O£êËýµÁ ¸7n°Ô©ÐS›ªZÌOÔßìÑÀ;R<àHQ^obWf¢”ÚÒ¹,h0²V=¢Åšytú’Žæ«õr<_]H£8Z)ZìàîNLÁ£ôÐÓE¸h>bV¯‰§„]<äûž™«öüMÏ»â¡$F‚;©»p¸†;.Lù¾¦ø?ìÎSwn˜:&”:MJÒ aH§uV”´€>$ê‚‹ Ñ3ð„âuÜiãåQ=…—)Å/;¼ ™®ä¿5/+Îÿo‰ùô˜™£/Į̈xä8¾Ã¡m­2£‡p³Ç6ÔÅ&W> É`]¡K|{3› ‡Ä;oI÷d‹Ì ¡ÕÉþ sM¥]ë•ww•ï:µQ }µQQáY}•Ñ’Sì«­d•#=²sÝKíG Àà,6hvó#šÝ<èq±zxuwHAÞJúìŧOqêFæSš¥OaÛù`³¬?x†?€6ªL O¤­+]|Om=u ¥ïšPDjóhò¾7wÿª8zxx”Žæ”Ð ±º—ª¥{©Z¶Jœ2¨@ì~¬D?h(ÑnÞòë™;}1"Ï°«'Ž˜JšÀ3Ù}3‡ì Rœ›-õ½ÜÍtµöD”2 [&¬‡³>Æ’àŸz]lãxÆ+{5^íõr<›<.r–ôSÂ>)>P‚¨ŸÛ J%ÅõÛÍíbxŠ&)±é±kú­ Ò`ýÔFK¦;ž’¯§ëõäjà Û°VÎëñµ‚aƒ ”Oø÷òÓ›ÔŸãw¥©ãøµ6¥'ùRA3©~ÜÒ»pí)ßñ&¸µPê©­§|úL?m¢ø]šõ_FJm endstream endobj 3416 0 obj << /Length 1818 /Filter /FlateDecode >> stream xÚX[Ó:~ﯨ@B‰D]Û¹9èì,» 8 Nwà!MÜ6gÓ¤'—Ýí¿?3¶“&Ý줪ۓ±g¾¹%tºžÒé»É›ËÉüÜgÓ„>÷§—«)£”8®? #¾N/“é«Œò«ZVµýëòÃüÜ züNè“ Ašâän€Ljn¿Ç=kÙg<€EG?´+YÚLX2e5x¾'§* ZÂÇ(¾ŠJÛ¥ÖK{æR×Z{æŽõ™¨Çz¡çï£ò:Í2iØÞ*6n½6ì?©GY(Œ –ü ´¾æË4ªd’˪ÒLÅJõͨU̪:ZK-l”n£:-rÍå‰&v¥LÒXm€z Ò ìzž¾þ®,b™4¥Ä¨°VE‰DhmS›Y·6s-™è­,ÍeTjz[$2«àž®ð¬Ób»mò4V§9i®Ç‹Vájqz;ܱ.7²(÷zS߈O²Þ °h”û¸9¾Kü·(3:â ¡Ôp(C:hF%€@è«õöî†?9÷üˆé8=‘%.c­ÌM]ïªWóyR¤¤(×sF £‚Ωã3r¡þG.73¢f, ÂwßEM"ó¥Í©ÕT0 ÷=ë‚àȬïvÈ-b_àÀ­7åþJ­¸ÊcpéÂŒÆs<ã9ŽëYgÛ]Z ™y8Ú#¾HneÍ¢<Êö\Ý}¯orʈ¤QþƒÍ=«hʼ‡^ˆ÷ì%0;ìÁ)Ñ ü‘e¼ÆÊÑÞ„LÙ¡ÿŠ`”Å…£rƒ'§©:í£vўɕ‰uæÈQÚ—~Y ‰-²O>×é‘b*e\|T™Ö•ùÍÇnår…×€ëµçMÎ.'ÿM˜ŠdÖ}ÁàØ7Poo'?~Ñi› B@Loëv o„$P•(›^Lþ¹×yÕg’aþ„;ù.ƒ Ç¨÷ï~&é9þ ëaŒ÷> stream xÚ­XÝ㶿¿Â¸—ÚÀ™+’’(]Ú¢¤W´E Y$Ih‰¶•“%WëÛûë3Ã!eI«ÝÛ]~M‡ó=?2XVÁêo¾½}só1R«”¥±ˆW·û&Ãx¥8g±LW·ùê×µ“Íoÿuó1æ#R™LY¢FWŸ:ÓvHù&p÷x´eë÷l…‚II;?4¬ýÉT];Ù>ÿÞ|”r,l²Úò”©4"FŸçg5S1K“AZ½ÙŠ(Xßmx´6YW7ôÿRtGuGCƒzך†èrš1ûˆÖ{ØFÿÛâ‹i±ãS÷]VŸæ³ºò,6×{úf¥n[²òDG‘(¦dâå~Ûœô["›h'B–±§b3CL8‚R†ã-WŒsg»»âùƬ&yLVé¬nÓžë*/ª­µút.Ý¿x€ uSè*C3áÔoA‡ªnÐи£Ø/$ XÄ¥—åó‚1ÆEè ÇL½ñq®¶@4F D»‹p–FÎ"z„³Ž{ŽC*P?í.$SáÌ)­y¥W„Š},+åb¦f^Áµ¶ÓU®›œLÓÔMK+莪îÌ{°U,×uUÞQ]¢°±«â+ÿî‚™\¿[²Z~Ñ l±`3.˜âƒÍ@‡l¶2HX‹©«œæìÀáï(Ï*cr—–]MßËôöl²â· &ÿº¿R8~žCmµ¢{¾ÇêsWÔ•.áø„[{—õ¡Èh• X¨ 26E†2ÑÄÄÓðß*_«À†¯÷÷nÞúH0;¶Nù®Ï [¡¬vÚ-·Çº/s›ÁÔÈÞLE••}î‹aQÍê¥ív4ÉgK»”Ï\†LEOæ³b¡ã|~m1M°tüßSW†Xòi,äºÓ¯Šßîµ£}£OήY]uº¨(qÇ*é®ô çPà…I5 öa›†®› ]—¦võ†û}OëìÄŸª\ŠY¦ÒRB±¯:ƒ v©¬Ä¸`£CÚNÚ³;O‰nǹOžß¹ÔÔYF¬.Ç";Ε#¹ 9AÒ…ÌN¡¡Ý8‚†øßACKܸï ñŸÕËí™N{ô‚&W%Ò`Ž£pJ7膔ÆÇ݆2X ‚cq8N)È=°D œ=ÅêžC?ê ýs]"õU@XT¦¤ÉsY»åÂKÒÞŸ¶K:œL͵d—•8<éûi†¹:H™8-òç~W¢p.´`O¡)'ìi£lûÝÈÓˆ\ÏÓpm r'Nž±WØ‘¦Ï¸½"1)\±jã`êyËqäy¤pž·Äî «çq†î]¡¡RÌ‚8yª#†ãú@ÀÀ*P9iAFgAôhLAÎc §%M9yÓÁ)*‰XÔâ##Š)ä!裧ò@2ÈzÏó9àÏa'—â“ÓG…Íe©€×þ¿G8ÞÓ÷1tÁÉ$}ÅU œxRD3XûËÑvïÛ%÷ÀMŸSÛ̃!I‰éºò4!ë ÂÞÞêÞ2Œtªæn¾Ñ9#$|Z0ÃÜ1>…,''¦ù_¯ËÅ„®À.ŸÁãõi{M×d­,âš÷6lN¶¯¹æôó&… Zöæ5íÃ+ð£ ÄÕÁîÉcÉËaÊ’ë-{ÖÛë£ÂõÐÐÒ§,<~~ñí벬Ñr—a $9¢‚÷_½f¦1d¿L¨ÐõFÝ? R€â€¶:î©h 3&¦ü7NÈï²üÓ&‚ºèt#}$|ò*L NP|à•,+@·—ã¬óÀÁ—«6¿'c·ÙÎÜû^¸ù¸F9YlüÆAõC6‰¦ ý‹ijW(¼–cÿ a5¬HRðÓà(¥‚ù.¼|‘ÉàÇ’Uƒ–£ážàB–ˆáZoY>ep¡˜L‡Žákïb¶ 0!äÊþPwæõ8V…ˆ<ŽuN㼶íMÉue‘ N™³©Ü²Cå *îu•R…6&;VnÍÀ¾1`góŽîÓ × ¶Ñ®eîz0 9b‰·ÎÀë+ÝB1õfÃÃ|³I4r¹{~4Z¥LÃ) Ô HYÒBŽ;ø§ï‹™±˜`J‚n?™D‰ˆѤ|x*6‡¥—â±ÿ¤b*Z)åš“|¦ß€@al¨9’%S«!EÜy?ÏÑ!Qvºõéàks$X¶ê’uZ;K&ïI¼¾ÛòõjFo=п¼Tœô'´½¿ÀÄ]ö×ûÁó³RD,QúrƾfðP°$óÄt·¬ »a¥(œJ‰õ—·Ÿ¨Ø/õD ðQO cµþ§Sð\ƒ‰w%fÐð\ vqW±lðkĤšyöAmö¥ôÜЃF—ôoœcµ\ŠÖ¼›v]w³6[ …ýíã >c—œïYã¥ñY åéÁ6 ¨Ö"Ñ—07ø"XîmMñMéçM ™ìØítïßð˜%¬†»¶º?_îv—iH­-(‰p„ÕÍᯋϲ!‹¤¼>¤Zñ™²ˆqè†ã¯)ƒ¿]wnßßÜ\.æOÞlÉKþø§"”GÀî û¾ËùïßoßüœÈéì endstream endobj 3444 0 obj << /Length 1731 /Filter /FlateDecode >> stream xÚXÝoÛ6÷_!´À&cCRßÃòФ̀bÝ°$ÛÚ“eÊá"K)ç£ö·ïÈ£dÙqÜd/Ö‘<’w¿û¤©·ð¨÷ãäôjr|ž0/'yÂïªò¥$Œ/eŒ$aî]ͽ¾*‹ºœ~¾z|§#æ0OHšçp”eãQn˜&ÔÜɈ;èÙžÂdˆ›.D%Ô”e¾hJ¡·öÎßÊ2/`I“O8Sû‹ÅÑ4ˆÂÄ?#S¸)÷O‰Hýopü¡ø²^Î 5¨ïX?8ÖO4¦,Ï#ø2˜JãÌÿe%TÑÉfåu¡Š²JêN–'Û ¿~TÑÜ8îV)QÃö¶Á‰N詪UFGÐ+„óØé°ZÏjYº<¦þLš ä çFù$ƒM¬GüT¶KÑ)#ÑcëD!aIÚ³9Ž±E"’g¼gˆéž3,Õs˜,FG(#£Yö‰ó„1Êœ¬a8–5%”ÞqÝu+ýýññ¼•¤U‹cF izÌã0Œ¢dÏåË#BSDB¨ó—ߧ õ¥(¯»Y±ƒ5iîÿ1͹o,šfVTNuM`å¬mæëÒ™4M}®Š¦¨´Ð¸K6¸tŸ;Ù]ãBw-6›Œ íìª(oŠ…Øg¦®²¬×ýý”Ç~»Vpž®c¼ èùÐä¾ìÀŒŸnôe[uwà¹àÌbNiJ¢ ÎOzpš0yÂÐáØÐáØÐÆÊQ¶ÏÆ'Œò6fY¦ÇiMni˜IÃ=ò,æ$‚`8¤ˆ”;„ÀûßԺݛ(üR’yÊ ‘¼0ùbKÄ!_8x•XØxÜIU[‰ T:X θs ¦%´Æ7‹pæ‘;ôRå!¤Ó_1¼¬d]  ÎãB™3*š9Ÿ(åu4¸îu;„ŒAüFƒSt;ÙùQV&4æ¤Ã”M›ðµÞCÒ×.hNâo'F-4j”Ô‡HG$Ì|+Ý|Eøl ®5©:,¾\­;Ôˆjʨ_È:ÐEå¦~Ɖ ¸›ž«Âhx'Ž1×Hí+ ÑPÏÖˆó˜$Ùе¨—í\v™ nºm¶ŠÒÖ<ËTÓ-àíÙ} Ú ÖÌÅ©KÉïî‹åª~¢x?.æ ±$‰†àLáz×j¼~ýzÄ”ú¦åXC 8¬ÛPoeÊ¥FÚz¼ÝfJ¯^A®·‰ÞLi#Ý0º-”,úVÖa J»ÛçE‡\?øÚÈa,»…^+qòêââÕ‘»Tžt«V»Ñ FX¸Q)OÊÍÚF›5¸¥82+ÆzI8ÀxlãPÉ®W·™·Ë@TØΩ=8À®"JèmEÔ²0Z–ÇåÚG"³fÄqFæ~“hCh·L5°ÔªÐ1€cÈàË_¤l+ß ‡A—á½o!/(¹ê]à¥/–óÞ} »Aïâðäe<;m1…ù[Ó<ö–­©)ã)ä^Pþïqƒ…8Þy†Ø ž°ÓÖS„Î1ÚJ7ÇѬÐHÂIÍ>Ôd6³n¨Uíh¼æÖ³¿LªzV ùMC'ýüò4¶ªOØ÷.âšqè9Ruí—“ó7?]¾ë™ ¢O^-eÓçv½*”[<„>j¿¦Íe±^îù?µ¹?TÝÓdü~ƒW(‡§ù%x¬)—¸úÕ=]|WÆC§§$ð_ü@ü2¤¾&8Rÿ8KwëùÞG£IèÐÌ¢g&‘a0‘jæÄsbï8®ñn x†$LvÜÑ9>¨«ð[KÓk W¢­ÌÍ`áAñç[xÇÉZKvðÝB%pãó“ám|¾InM¬Bؾ Ú=[Gà«W¢”Õƒ›Ä¢Â‡²´ü‚Ň÷áhHûÔ€ïݵ,¯wv0s¡ñÖ–Áþ è_ÁÐ$ÏÇÀrƒÝC¿R6]²lÀ¿qõ¶×†Ä6«­þ0eÁ2 ‹:ðHwà°kðys–‰}WéG,Ü= X¨ñ‚} uå?½Ö endstream endobj 3454 0 obj << /Length 3195 /Filter /FlateDecode >> stream xÚ­Z_ä¶ ¿O1ÈËyÑÅ’,ÙnŸÒô®HQ E²E’çñ·¶ç.{(úÙKŠ”-{4{{A°ÀŽLý£HêGŠRºyؤ›?¿úãí«¯ß™|SŠÒ*»¹½ßÈ4:³›\Jau¹¹Ýo~L”Io~¾ýË×ï¬ šêR ]XÈ5êwÕq‡Í^¥<ºÿýúÖA¿­Î3×q«r jî>vŸ½WŒåV”…ò“»‡æ»ÙªÌ&c‡¿y2<Ö»æþ‰ˆõx¨ûe‹±¯Úá¾ëOL>ÔDßu}_«±éÚª>4Þ5 óúƘd ÆýJ“íØm?ñ(8èyî¶ ·ÒâgrƒBC“&?¥&¥)ác_ßßÈ4©ÎÇ‘Í@2^Ȫ,`´Ü¯úÝ7ýá-µZÈFe¢L§V0+Q. @É(y+ ••ÜÞŸÛ—+¤£ýÝ¡ê«ÝˆrÖi™ cß´T…2w4¯$ºe’ÜeMÞïºÓ©k_y¨NG®šO5Q?6ã¡i‰ZW»·Ïû§˜è‡Cw>îo¶²L“»š~a–ÇóXï>ÿÞ CswäÊU_G”!m& í%ðÕ©i¿Š)Ê"PE F@ƒºåb:6§ó õô&2Mž‹ÌNC|Ù4»Ø\[eK‘–ÅríÓ¬Zk²Î?‘OuÕ[m²ZGÖ+s¡´š }b\h-Tz¹æÅìUú;Õãz~Ð…±iòmÕ½:•î|O§^0ÕTdÙjÛjM1üPóÞzÿ§z¬šãðúùmÀ½ØÃcÕõ¯"S̘Àäñc"lá¶?,øîÊLªvWowÝ4IÔð£o~áaÙ¦±|WÓo_ç¾­™Z ‹½`§½ŠR᥹ò<쯂%)¡œ¿9.)) ›/5"„x¹::/jÜÃ7²HΧºÁÜÙpº2#ýÃŽµ†gc˹âÇ–®·]!rÅbþÁ D #l«¶:> ; ɤ»§ªÀÍxˆTþSšª]ƒŒR‡SõD ñ2g,PÇh"5Ï j&åKN¡7 ñËè0{³•û¾Cçhr6U(û’C[kÜpZ&ÿ<ÔíÔxàF+_ DS®"Æ/›ÜUó¤k¯ÏÉÞÀ5»gÚùî_õnÞÄtLiIî–ë\!.ùé·ì‘ém7½i÷õc ÿÚQ)µÉí!êŠL©/âžµñ"5¾‘G*šiçÐæ¾c–ÎNHq^›ôu5ÖÌ9‘öÕ‰†î€QI% DQk! “óÚ@”á8ÄÑ.C•ÖÁ#9Å'j9ÅKNQÐÄMëªVqÔ-⢰³›w?µ«Ú=7 &-2éúÆÔÙ×Ãc×î)¬OBd5µÑ o E«¤Ó¢ë: >Øöf^b™´g´·4 ÝÕÑðïÜÏp4ÃÂ'²ú´îV…Åñà}üAüÐ#âPñû œ”`Z¥šïS%NžÃH úŒÖ³×$Çj¥Ði¶]ÞÙÒMĨ”¬3G8,‰ÁÖø±¦ÎÐú#:“Î÷@ kw`–¦øëÀkúi*æcß ÈÅÌ.66(vøýB°þÌ vEªø±ò?›a›§Éw8Eá3›~@Xnhdª,¦¸"¨›zLr€xr Rº÷SͲ÷¼øXŠÉ"Û‡Và h’R2³‚„wÈÅe’ý€ƒVJdÊa˜ x6VM Æ1b¾—›ëd"+AÆÒýˆU \ç› n¿Ëù à´³3Ù|:2_¡¢ §ãE†j"AHúqžZ£#Ń•k°è1jC7ëkÕ çh¸=ø)~BUï¹YR: ‰OÎd,h¼’3ëµjKBåªtYŒ¢Pÿž÷ÚU¬as¼öà 5zhKŒhÑø²¶«¢Ó"0H;ä6.°•fED¸i²2ù–gvZ*B%‘ΨôcÄ”ÈçƒÐóÖ-­o1 ZÃ&hô8†Ù<6 âª^¨#Œ¯Æû9æýCÖYä/PXh ôá%ÈÙ¬E‰=ôî8“1Ú8‡È…ʃ5I±é–R-M¼0¸=ŸQ‹7fpîUê‹¡®mËPp—'8”¥BÉ¥3RWQ[û$†z×9§žÚ:O!¾k¹ ÃÃ+‘!‰¢DÁ#§ð—‘ ³+$p„`œÄ°{ –—H¬4š‰Cv'´ éÌŸî̧}Ú ¸J*5÷܃›*ô;þÀàÚ†ayd«*ÿŒŽ³èf[%E^–¡–¯@½9X×ؔÎ^4Ÿ?Wh>W€82ú\èÒÅø¡ø„4«\ŠSE™.SI©}^ýï{0µíX.S˸‚åòJU†QÔ—àL,—Ëp*|Æñ6úU<g/ågñ8ÿUÑÀ/¼óó€¬#z#(žð"ç!"SØÝú¼‡Gdøèb±P®˜Êß&6Y†&À sÏïE?Uö²0(>—ü¢e©—†\. Ýý˜è1Å­P½h…|¨QE*ÖÁÿÛÿœ§¬„Ê)Y§ Ÿ”`"ç1TܑٚŽ$ª <Â}wn÷¼Uâ2ŸH\㺢°j~ëæ¡æfèveY¤ØÁ¨ä˜¡êoÇû.,Äõ×´ÁÕ‚,Ëtò¨®iàCoo è\¶ c4¿‘iasóÙôF.Œ±ë3%.5Où 3´uí6•å;‹ž²Æþ¼é³¢<›S龧Ü㯧NcÕ8ÕYãûP:ÊÌÚ4ˆuN°–’CõYß6—Bi¹ŠÄýEÂgS˜°Ä, BdÛõ¹"_24é:G/Š [>T½Œ±‚z™ÒNÓ¾Z妄Ô:(ꢡ8ŸêÂ5˜{ç[‚¼K¾ŽxòXÄãóQóå9ᙵ—Bq@áוV캼"…°Æ§ m,4îêhXe gñz°Á;$,ro³Š¯Ÿ¼¡áǺ¯}‹9£ižY¥Î QØi»´×–©/’å›­.À:ôêäxK¹'¥XiP˜²ZÉEö›ªýí–ï¸KE1Iw>VDsQr8®»/½\@š°™ 4çèôãlØ•~7•þË×WvœLÁ~Òð줳e6?†YVý¬tAŒZä‘èÓâ.+ˆž|Ä‘Štéû²\or¨j ©ÊÒãí–°Ó|™™’Eâz¤òIÐÒ_‚¦ÄHyüy\n=Dsë£LšÎ‹ÃÛ(‡D<¥»Ûö\ƯýR;…Ž¯)w¦ôh¨c\Sr §á<ç$, qüry)(°°Ã$5éÀ’£ã\J©A:ßj¼Z«Žõò„aÝyœ³­ Ò=×ÒƒÅ_…íy£D=,§LUù9[µN,3âñ»‡Kñªt²hw Ø€ìT9㌀ ô™¾ýþo¯¿ ã`5e&”OB¨r}ƒIÏUË[¨á[¨ZÝ @ÝâVÀwÞ²â2<ìçWMÈR;L¥Q1Šü¦&‘¥’1a·—°À7ì/Èéc#ŸÓÇr3ÐïŒçøÅW÷ÁÀ‹¥Ï3Ïõ5Šï8Õ‹ÇGÎæb¦Ú哧Ìm1û-,»'ØÔÝ"É]QaáŽkÈXéÞ¹(¦·XUñ(lÙPD Öâ!šÙ{™Ì“ ¯–:ŒÄ'îW¹ˆ/¯k– È›mAÃA^)³ ¼oÕr>ÕK>ÕK`$¥‚¿¤8\û±Žet.ò¼ü²|¢¾’rÈt˜rp±`57ALp…oY§ÃL¬ïÏ55qÁ2ü*ú95ßi˜œ¡EºÞEî©Lv‘ñ†-¤ý³‹Bw™œsBëÌ£u8ÊÕ;²Lò~B”¶Ú%¢ˆ¬#J5 çóRizÿ{Èã( ʯlÆÃâ{‘#Q–ñ©Õñ+päÌ?$‚N´@9¸Ù¶ôß<ánÛÌOüÓ©Ë€ÝdÔ>ö$7Ø»Ì òÑ=N» €k¹ºÌe ¶%/¡0=¤ òöå”´Äò„)Ö?£r%ÿ†ÄòêåßEi›rz…ñwQZÁ2Ÿ'Æ"¿x&„ãR„@0H-z›müË)º5žX¿ÀÒÌXXÒÙ+ ¡Xñ]õ4â$1l·ðÚ-UX‘¥öE/´Œ¹1—‹†)üõoiƒëßå‹“··¯þLG¾Á endstream endobj 3464 0 obj << /Length 2502 /Filter /FlateDecode >> stream xÚYKs䶾ﯘڃéÒ@xðé<*rÅJÖUñº6Êæç@q03Œ9¤LË¿>Ýh€CŽ ­âA°Ñúñõ¯ö+¾úë»oîÞ]ߦbU°"•éên·œ3§«L–ªbu·]ý;ꫲ©Öÿ¹ûîú6ÉfªHYV ÊŠÉD Ð;î´¯6*Ë­ÀFf0H‘Ø¡ì][WëLóè¨ËöGžˆ+xÍTÔõ4R³yrÁT.ý4ïqÈûÐr$KÒI ”ò¨³³Œ¦n÷Ø,¢á ©¯ìëápÔÃåJØz£Ò4ºór[½[ •c3PGmkyÎ’ø¼Æ:¸D³‚g^Êíùt¨«Ã¤Ú.²¤×ªk7¨, T…XmÀ/E’Ðx£ûǵL¢r¨ññ¸I„‹†vuèêʶck‰ši†Ó)Õ‰œê¦!Òè^›¡>–ƒSCÆS²¡ gíë²­´¡®nG‚Uæ‚÷9—U­ÛÁxM¥Ÿ&ñ²Ç‡qÐ[»E¾ÜÛ}iàÃFru->•5 ¼Ú¥h×®u-§ÄNÖ[†ºËj˦y¢·¦ì×"öºŸ9Ý´QèÇÕÇñžÊ…‡,âèc«idE*`ªÆtNôAWõî)´-ÜC–F»±­ÀiL¿*ÈÀªuI \ÌóˤUãb§¡“,âËív<‚h^ 7˜ØFô˜C76[7oùÚNÓ·˜†÷6G ‚¤l^ÁGkfè¯[p¤ëj·Ô×ëaìÝÖܶ1 M]$,•ÉÒ:WÍè íí—±œ;(úКA—8CSÌʼn·7nËFhL‚ÀqlÊ+êì¬Ï A>ƒïÎgÐz(q}N¦ë{Ý@juN²¢¯¡öàFQØ€49Ô‹’'Q×ÜÏ]êƒ#¥Íýp(Æú ö²¸ˆn^ךÄLˆ ŠÚ: U(`â$`°ns2$f.f5vØý©"³ézœB=ä¹$±m›Ørù‹ÍÎiw8‡êœÞ4Ò>Hà[Ýž§µA’)Æyº ’¥cÒìì@L.ÐëÁŹtùŠý¥æ|ƒœï±MmÖÛ³ÚB“ú9¼î•§Lf“å_r¸8WBÿB0™È¥ÐX2áSù€fF§ÖÖ…;M²×CD²8Q^d‚ Ð}ïç ÇàÝš žxbâÂ,?Sêœk5ºÝn+e¨ÈBù`<‹ßl>æÒ™ÀF%) Š“:c~^Ò"Ï‚Áøç¥ir`4Ìã߸åSÔ ºv(¡X4šïu×5M·¶Å×Ã8`‚øz1÷s¨ ÖëHÔ¶.¤+ÌÒ9l £”À1®µëÉæÐ<ÕÖâТE*(_ø}¢¾z #Dè×1·ŒEyZ€cl±íèeb÷~>ܸ±åKÂe݇Jfh ™çq@Ÿ–©i;úÃ:cê{Ë gèËÖ`°T©YZ·µ9èþwëÊ õôkÉ£ÍÐm~ ­rReâ-r»½¥Ñ`²°×‚aãü»(ŸßÖdÂnkÃP|Aé6•c„ç.òH‹mÜÅ~Æ;[êFF`Ÿô0eo£OXs ž,Ÿp‰ÿñîÓ?¿ d:”¹¬˜øÐïRƱMê…o:0}ªÍ·¦²Z{Ü©,~/à(Ã'<|ÿXu !Dòa ¹šŸC•FÀY"²e&ß!ÙV9w[%=`ûp:‘µÚ÷[l?–4lt-F6¶îý'O±á,VÕiäþvÈÎO>˜¥u> stream xÚíWÛnÜ6}÷WÎÝE,†Ý¨Z )ÐÇíÂ/Îe$Ê ‰ ŠkÇEÑoïH¤n»’·F“ÀbÃ&‡Íœ3CIعs°óÛůۋwüÐY£u@g›:cļÀ A[;ÛĹ]RŸ®vÛßß}ÈÀ•­)bQ@“Šy×nØ¢t0ðwÛ . a‘™m±r©—¿ä•mïGøE‘£jÓL758cø#Ç% "LÁQñpÍ0QFQàûmð©TE-y=„ËB&"7+1¦Zgå1ÓCëL–ÆÒ÷\›1·KŸ„•H¬“´ Bs——<úËú$b/ÊD”Ú˜±TJä¼…P)Òõ›Ü: ÑÄí‚>k›èã *dÓýlaØï#Úý ×(V<ÕcöiAˆ¨IéšÔaÌòüPi ÔA?¬ˆ¿´âŠzþ™û\ SJãÒˆüØ¥Âme¼7þÕLQŒÇ&Á¯+‡ÊÁb½ù‚?À HÔá¯\cPlÿdf@*7³¬ÔÒ$’AŒ3‰HKæOÆc”…‡> stream xÚÍWÝoÛ6Ï_!¤ª#Š¢>€ù¡]—C¶&íKW ´D˨Irêì¯ßQ¤dÊV²(¶%0x$Ç»ïK¾S8¾óóÅëû‹›Û;)J£ rî·ö}DÂȉ1FIûÜùè¶üS·hdÝ_ºÿåæ–ÆÖ’F(NS80”(¦ ßÜqsKˆ“w*nÄÉÀîX }èÅ‹×õ}—UzäV6’ëÉ—o Éô E×kªÞê1«Û–KÖ‹ÚH(YߊŒwz&ÌØ°®ã¹¦ûZmÆdö»O}øa¥;èía¥ÔØß—æüÁ;9¡ôPã%¾\¿Ã«KQbVš±ë‡ÁŠÄjã©;>Ìo€+¯>ÌøÍ—³þœS-Þ£''¨*4Ee f6‚mx`­—ÕpMoëV]¿Ï5¹¨>ý¿+a$®×†yõi‰}#»FŠº«I-8m&m½¯F:T]iÇ‹cË•0ñ‘ÉèxŸ5ËÌÛBûÑÈ€d„(Lž•àa’¢Àþ dÉ· KþGÈ’ï€l~ò6IDÒÄù2°–N0•Ò¹»ømÊg§ãCÁ0+‡Â{D!vÂ8E!Œ&‡NùÓJ Pšà³»Œõ=/ ¨ïþ g;MÞèáõ~³Q ò¸û´µQŒhH¿ÅÚÁ*-T†DˆPªu|û¬ÍumËŽÎJ„‡Sä'&íßî«Lgle…ÊÇjÌZÎzcYgƒÐœ°¹|×ÂâØ°!Ñ+r¼ ä=óL1ky×M7—uÎe‡Lq³­ö”ÊAŒ¢ÄÄ×ûŽ|ÑÖsÛç^1Ú>w¨!»<Âa¡YîˆI%¼ßÕùI*É$T7Š³¢ŽCDãɱ^NÁxd mÏkK¶$xÂð9!ÑõiDôè# †Þ†jZž¯ïß½ÿÉÌ3aϱ¾}õönœv;–s³¯0‚ü‘P<¿í Eiؤºæ8«äA²ÍÄ>‘¬S§(Dß­ƒ·«)×Zwõ-«ºítÆžõ¬-:CKþÀåúp5Œ‹‚šl7*Ú‰¿øHƒšº}ð]ÙmEVKCmŠ›A{[v¤e­Èg(¶|+¡dʱ (gï×ÛmÇ{Ó·¬°u-ð*õÖxÑyÔJ~ßWö ¯æš˜ì|ßvˆ€ÿ"¸ÕìÎ$ƒ'Qú|P‚àÄ-›ZT}÷D°ÿSÎyÕ^cß-ö%¯LšÿÖœcòíá¤üÌ’sÁhRcêÖ›?xÖz«G æÙu1Ô’Œ.! }%.¾B€‘Lw­dQä§d&ª|¸\üú\e’ävÁÎ%bŠÒ£ " Y–KBiÅqJu¢Êä>UaP¨¸!Z=–{éi¿ Ð&NO²„hÆò¤êLËúº55JùCmŠ3µè¸o÷ŸS‚|?<Ú¤ývñ‘`t»ŒPˆ°<ÚeD)#“陕£ó/>Ë ôw´ô0tÑÇŠ¯wF.úÝÐ$X}ªɆ¥@7j­á™Ø>ê œÐDSwÂ40 UgÆíéMôôá: .kÓ=¬ˆjá„4ÒÚ¥”ËÌ«íX˲©{é ù×>tluŽ«Åq“Š•|îÓ–­-LmmŸèì TUüúGu!t¸˜È ± €EøN7ï;ZeXUN^ÂSáÄ-DÅäõ–³V ¸åð5¥vÇõ¦%óÃB!êvõ^ÂIRwÃÕº,ϹYRªãÎì ©~XRªšeêæ|«Ò.ÛË^ó‰ÅŒ)šbAµ& )8 è<`†+~TA?¨'»ÚV˜ºãΘÔÚ¶­Kó^ð׶…3’ïΟ§Åpï¼Á›‹¬îÙç5N© 0ÜqãŸß@-d÷-V"øù»n…Ù endstream endobj 3495 0 obj << /Length 2239 /Filter /FlateDecode >> stream xÚÍYK㸾÷¯0æ5ÐVó¡'‚²›Å{Úí ‡Ý‘%ÚVF– Ižï¯O‹”(µÚÝö$ÀÀ•Èb‰üêÉ2[íVlõãÝwOwÃx•úi$¢ÕÓvÅóe­bÎýH¦«§bõ›'Âàþ_Oüq‡U&Ò¢i¦VÝóÐÛ«¦Gæ;f¾aŸ¥tV¯eêåkà$!y9Y;Û\ùi"ì«fWæYu¿aâõ >S¯;ª¼Üžiðy¯ú½j Ç^KÞ´­êŽM]”õŽæò¦þ1Q¨:W4RÖ½j?ߋУ/¤Þ¦9ÕEG³Ý¾9Un6³¨Ò0¤MmôzæeE¡ "ikÌn€y"MýÎB6 j{Ïaå©2³eG¨Opã2ñEh1xúå?ÓT‹@ŽLðîÏpêBÈÐç aÍ#?d‚–oÒE’ÒWð2ê9ô™SöB0wlUQæ}ÙÔô>ÓDâh¿ñ­hâã_þuI"ðS]¡Š€ù Ù¨‚Ó²nŸêmH&õ¡ñ9hC²`Ô†æÀs#áºÁ£«œœê…ŽÎ|‚”¡éš(%r‚Úà‘9¼L!çñ2äIÇŒn0~ýﳚdgU×ÐÐÆ|>£GÿŒ›hÖªRU÷4˜ï³6Ë{m»°ø3Zå}Óš5Fâ»Ög^sûä|jä Ü"ŽQ§jZ´cžz[—h„ÈFÖt `*« "&þÂ_D.X<Ѳ òåvüÞzÉLp8êê<óØíð˜÷`œŒ,ª >!5ðÈFÀe½S[%Moû†±òI”úR•‡÷{Æ—uö¥D"éÁ²ïÀ6dx?!‘ðNµ³#<\™cÃŠí©¶@k§z#i`Å #Þ04fIs0œª»rS©%äòNª»)ÎWÁqþÿÂqþ:8¢¯‡ã*D²öœbw2îŸÄ&›%n6‹ÍŽÍv6‰~v0Ë:«ÐÂiƸ$ä¾Î$ºDÕ à„ ømÿ‚­ .9lݬ5ƒ›¬³¹¯©g>ÜfõÎzãîÜ¡)T›õÖIm™†®÷Ðæ+ C °2ŒƒÍ¦³QMð±9õ¹¶&äL9©ÆWÌMÊW¯nÜćà-}$o‰NÙæýgï˾#ìL'[Ð?!Eýd4öÂ?'QzôOŒ´j0Ƕ9‚Z{[*‘·¢ ÜÉõÇ=ÿïŽ{þ–k¢KÖ¿ÿ°Ç¦+M1Åzœ„b¢¿çž®¾€¶Ñçû2ÿDÄO1è”c³ª‡xU!\!3&ÏL^Rp^0ï×ÀÐ¥éà;2å³9S÷HŸŸVÙ&ºkq&º;ÑäÊxn ¬(wè¨ïF‹!iu­+èž(…L„)³¨O‡ qƤ"+€ñ K^x9VY®º©¨ç}™ïg‚Œþ`–ÐÂ1ƒÑø:þƈ!qÆcQã3ßâ ãD1îýs¯j7§¢Ò Þ33>…bfRþÎX(²E”úAÂ-„âç…[Sn‰ý`NÐfe…Ÿ×u°ˆAR §‡ýCµ  ŠÇlKUµ´7€pã‹15˜§”†óàÃGÔ6Üår@>!YdA ˜ Ò‚.L% – Ú2ŸYìxW| ¼$ñC@Êb·ÜGp-tè6:ýfQr³y«ú j„7Ò™ÎÜd×Ýöæ$,Rcì‰ë7)b…1vŒn‘šoÂEaâ©ÍÜx‰*ÌåîîjOs¡QÅåÚ¹#f‚¢L.\^弉€ì¶‰€ôEopËC—‹Nõõ帤ÚÔO¸´¬FïĺXÑôå‡T??Yµ¨ "ùñÝ%ñY0»6.¨n¼Õ¾•ëf°-ÒE6Æx›ûn+l²¯3)ž m(øL _2zŒ&år:&¥_Ѥ°N´vzȪæõ¢jÃÔçéà¬ÙE݆§á¨[à$—~šŠ©Æ´Â‡Ûî…ÿæèæ›SpŸµ»+msÄS¯”M”mvQ+5ôá6çË¥ÛxLËlÑ3CŸ…ÁÔ34'…/ãÁ!c,´ò(wfK’?‰¾Ë˜Ê„ù,–SP+õŒóÝ IH2á&!|ݨþY)Ý›ã£1Š…@pfF¨ù'Üæ·ý>q©ß'¦!s!C9sÈ«11¢õ¿ió{Õª™ÅO¯¦ºªs¼àéRsvÚÝÍ>!ƒšÙØ,‰oÛæ0ãh6ÿQyC“Ê¿÷ߪ¦ï)ÍG©×›¦"šº")ú+„Fd«›hž;Ĕ܉(E±÷Ý™œRE•¡ò²Í+#¸ì^¿ójø¿½…—Y|¾¨ÓTpË}-ê׋2÷Ì(ôžŒ·¨²¾\ÿko|t0¨ÆþÄL¨zãòù1È™þ#Ò•¨ÜW¤÷&¥ 7ù ›ÐÐÇ4 ðI4ð”›Ã¸|3{À‘ÑQîHmo¹Ï;^í¯mA˜Z”ò´˜äi‘JR¹»?ì#UD>«r·ïí¾Èœ`‰1§T9’szåÆ$E05®P Œ3$©2#ôpÚùøÚõ-]¢ÖÅB©-e!G¤PCð¡SeýùÃR–€*.}#ßp(чÂãÃçW$ ¨'“ؽ+Ð>{s²ƒtæ¶û±þÏižR¬˜Õ§ ¸Õ§…ÛTÓÚÔ#ZvÀìByûü¤Ž¶3ÒºrMÖô¦ÚVÿ‘4Úèë˲ñzåâ54!ÝÒ齪Ë8¸&OÓIäÂw4.|VªÞõ{¢=¨…¸g•2C{C„õ4!Œ¤þ¯eW7-z(<ë‹(R=f{±ab¡>öc§¡ÖfÀ…ÓvÑúR({ãÁ¬† öŽ?.‡ø­¥ÿûo”¥ÿôF(eÜgQ8UWÞ\Q¹ÿÀá1ËNšMãÿþNFGð7M[¨Ö´Þ§ÿK½è{Sz¹%å…᬴Ϟîþ Yú±u endstream endobj 3500 0 obj << /Length 2315 /Filter /FlateDecode >> stream xÚíËŽã¸ñ>_áÛÈ@[#‰zw“<äíÛîCK´­¬,:’îËÕŽÂDNŽNÀFÍšQbÓËnåe'_êž‹_²,V»¦‹Ç 6~¹4²ä5TÌFÓ&¯Ì«hÆq°o«½Ç't~ÅͬŸ× ðåÌzª¡úh‰óöØŸê aÆçŸÙÚò¤{‹to\Ø’Û%vC(έ/`Ñ­]c ¨hÙ¨…ÚWþçɆkt'wN¦Jsz¦/ÕeXx ™°yú¤B‡_8ûþI~²¯¤6ñ=Œ·’¯Ýõ¬d˱}Åý¾7ÞQÌ ê(œßË–a¯%ÏüpªšìãÖ²²g)„¥ª{:±Õ|’Sò!›| %_²þ½)(¦OcH¤Ù6¤_`êT veh% ˆþ_W’% ;m8!2þÙ$öÃL¬ucq>¨¸à˜G®P€+&odyߦ‰÷D‹¬Bð7°NIBZòK§/º›ÞçsvÃܺ<éÏmö¦ð?ÕÝ6è¬bâÔȇc«,^|ŬÁq!“KÞBÓhêw‘í̧3¹21VãbÔ@«ÝX˜F`wc…{iêóOá/k¿‘‚QM¥5y¬&Ž Ķ)oçBoTä3¢Ub?Ϧ_µ@êÂû®§% 0ð–'Žé1ÛâµÉ ÒEsèšôEX[®%‰ëo"7ž.m¡„­¦±ÑíQñ–Fd9`öÇ-¦¢Š^ôÙ˜Œ+„ÉÈËý× øž?ü.&/ endstream endobj 3508 0 obj << /Length 3046 /Filter /FlateDecode >> stream xÚÍZYÛÈ~÷¯ø%°C³/ üàì`ó6“äawpDJÃ]ŠHÊ3ʯO]Ík¨ñÄ ŒšÕÍîꪯN:¼9Ü„7~õýÝ«7\|“i¤£›»ý ÃÀØè&V*ˆLzs—ßü¼Ñ.Úþz÷—7"5YjDQÑ¢¶Ø*·9œª¦ÇůB9cqÀ­‰½v«c ÿr•õåV»ÍGÜ¥ØÞêÈlNMY÷<ìʳV¦ó¢+Û"ÿŸ¢MS y—ÕòNÑ3ÛÆLo› 4Ú³}ªÊãÏúW^8ãÔÄMý²¾YÛ d+¿ä¯ïV6¡‘_ñóU åîÁóÜ ÷ýÃôòË+·E·Ëª"— S I‰s7· ´~™ã‡Œd—ø-ÓMw̪­ÚTE×3apBæÑ®iá˜SS缿z÷ÏĨ®ˆÑÙAYó¦YUñ öÚ ;r¨\. Ä0——õ¡ºl#· ¶ˆ¦Í»NÄÆA’¤s1dð¦NPpçªG-j•µ[•l, xÀð˜]xpO‹cAf{Y¼ŠL„fó®ê‹¶ž˜™”3žð"ÃëðÔq„±ý,¹*óI|†úÓø4S|c¥0èñIL>IÈƸ@¥ñkx9›Œ´^ƒ6ÐðH@ÜÒ¯@Ô&ãsØQ#6öµKˆÚ+ÕàiTb?ËÒIæµ¢v„èì‚1]eêÀi=—É€Û$^Á­U)â–gùg„hêD @E›ƒ…'/$|ð „ >ý{x7wÛ$Ü4þ0 |Ä?M™ó‹ÃYàƒÄ[RïSa ‚¯Ê#UEªtá0„i:S€YU€ ’xŠBØÑ£†E½oÚùxÊøçXÖ%ú3zðrAN%ë%ŠàôQ`}¤ù¯d´b;4ZË%´~ ttnD¡ðùt(5±FÚ0ã €k"ýº°Áw+'EIà’tvÒ[uE\Ñ°vT¼7«—:¦)25œ$m#ÉC™Þh…˜·ÂèQdSÖB.÷è×öE[Ô½÷¶„g Ç0¨G’Ö©Hu§bWî/üÀøKG-â‰÷0ô3h»—ª ŒÒŸ„‚ Ò0ò«@HãCYÓ%8"˜Ä²q'Á¸Ø#Ñ]‹ Jé@× P´Q<Ã"l^”äÅVŒ´Ø}Ýeýñõê`Û!T4íºx7àòõÇk™ÀÎ2+âï˜ý¾UáFdÂ(uƒÇÃ!c‚Á—&¸à¹ÊP·MÛ—MíÝB/Þ‰À³ ½§ì„Øõàò³6gÓ¶M+®†€tõµì èÈܘQ™Õ;´(ô<–Ùû'îJØÞª”YZÑ… ìè «ì¾¨ÖñèV%bž`šè;CI6ð‚ šºo›Š ŽhÊ]Çã²™ãIÌæù²’·ïeŽ¸+ò€Më‡ýj2œ&³ë¼} f°† È,Ò Œ¢¹NÑ]®c Š3—ÔÛ»Ÿþþ~eg›‰2SwIb2àÃI®²ËCc'I8bàˆb.,žÊÀ­Ë@¹4°±[aW6ç~M ³âQdëW‡€¤Òņ§«Ú v³àª´¿0g/¸"^¤Í{´Eã½Õ¹ïÊœÒÇŽˆ’9¸Í²;°5µ© C yvðæåY¹C‹äephѲ¥T¼ƒˆæ8±‘Zõ‰´:5>C±d`tÂ\Ù­yö©½à&šÝDª}©šC¹#ƱDojXß–;~˜¿Á,¬é!Iõˆ/w͹Ê%˜L›ÜÙD›»,¯ùds‘ªl‡Y¦±çûùò´±¢ œ‚=Áük¦â4,¾0ÝëüÊnÆïf}­kGºÅI€ŠÌR$Ê›ËN^‡Ë4¨ÆGÉ\qtŠþ€çx_è¯Ùï‡ð¸Œ+n,fnѤ‰D\(49â Ë;cnc¾ ò#ÂŽž°üë‹¢^¬ñª¡Mè¾ãì´>!û1Cmø"Š8]ëáJ¥"CÙ²‰HPZƘûTB¡i´Ä¡ê\PÝ („)ÞßlÎÕ%@ɺ٦G¨?Jˆi»e/æyxeß´ÓbÚŒÝâÎGêð¹;§0Ž|õû£äñi<> ¶c®Ð`0ØŒËÎ/” ²ågfte‚_æìŸýºŒF©ÆÑÜàáù±¼’5>¢˜ð‚ÊŽªè¨°FPPM¬¼ç„úË–Ê;8îDÑŒ2¡$`E–çåB9ÊΕÏe§þB€@[¹ñX¯,úTw¯ó{]™C¾êF[x¢¥q‚$ÇHŠ^@’[ Éy$yæ`0 ) :ñ‹ÆM+‡¶2q˜6c ´]@Y÷ÙÁ¿D"™žz¹ÍžCœl›ÕÒçß3Ú¹ü6 ª!oEr× ¡C.X‰y‘XF¹%Ó(dÖ?O› zŒ]\r08{ÅIjç ÒŒëNJåÖœ$ïNÖ‰¼°u;¸˜ 'àI IÃ2°ú:N‚’NÒM[z&×5žzžà˜éss Ü7gLÃ¥¾ãÚm2íè­Õé6VaTà”¤GWʤyMùD*ù„Ïœõ4s&¦}%)½( MeÑ@ g’…wgÙÍë‚YGb­Œ©ÊåI?×Üÿ~ˆiû¶9J¯þÉM‹-wþ„÷yÚhU%cõʹÙK½úYÅ×KiÚCv·ŽÀ8m2Ý~­t1Óg ?©“9 ÎÄq/ò¯¸?WL“F*Å¡ -kÂcÑg·ÏÓðPM^T5â}% ²…o¦ýÔŠvi»ì$Rz_ S>AbüyêØ^pNœ¥[B¯ºÔÍÜÓb«ëÙb‰ãĸÍÀ™È"¯TÇØoªØù®Êþ3*È¥ƒ¯û¡öz)%7vš¥ȶˆ¿¡ÍXEÞÍkû1çvתj­’ Ò4Ÿ>fìÆ–ØŒ“^Ã&rû·Bú×û',þ‹î’Ði¡vsÃþþ2ôF{é¨+º8HÜ`jUq(ê|Ýy›Ñ‚Λe²²w¨d¸ü•YÁP»E 6c–úÄwC|#6ÏÉË;õ¼Ñ‚E3IMIÐù>àLŸçN椩+¡kŽ…-ÛÈ?7%‹"•ë¯>Øá›Ëdg&µY8m9v¥Ô§>èLÝüìêðüR÷V[èÐΕøöu GˆkµybÁ#jÿ£¬+ŠÏwêZQƒép®ºt a{Ðóžû P$:PzÑ{iNdªè0ì&Ᲊ©½äM/$oÂHx8ij0bW²‹…Ÿ ò}Ùè‘‹@ B%Œ{t«_t,`yh³?­5{‚t\°¦&"p¹²ƒþìÊz=Ï¢&ð´íBß¼U/2’½,Ýk×R°µ‹í¤¶CÁŽß¢,íT-ºF©ÆØä_²‹Ø×o0X­Hšê´“×ÑDâ¡TÿÌÔ#À½Ä_S7v8÷çÚ7‘€)è4ø‰Y²Ù|ŸµÁYíUà¯u¸%Þ릟„LÌ ñxœÙÊg®YôÉ .g ÞCaÝEÓΦòÿÛA:ÁÿØbCRû™®ˆ_ï¬ Û¦—߉õ‰ ÷<+ÌW>aÙ¸Á*^·ý75d!êÁ#±QÒÎA<þq¡·ÙA· RlñóPÆJ¾ Aöû’¶ãhjrC éús.!t,=®ž,›Ì"p™wÿݹÏ7xáPÑîSùg>qñ)²¦ÅYï¿xzõŽÑÕ÷=ˆ˜ ‹v}{ì'~©À._Ãûåÿƒ÷Óîá+˜§ã†¯8ÝåxßTߎu»ø’÷¥ÌÏ?{s‘ïšê+¸†·Æ/lߌ×ûÃW°zŸí~?´Ø˜ø_±îßß½úµiCø endstream endobj 3517 0 obj << /Length 2282 /Filter /FlateDecode >> stream xÚ­XÝÛ¸߿¸=iQÔgqÛ6w¸ä E±Ù¶MÊmëb‰‚(­³}èßÞ)ÉŽb,‚îÊ’Ãá|üfÆþê°òWïî~|¼Û¾ù*cYÄ«ÇýŠû>a¼J8g±ÈVåêŸ^'×<òíIõë=¾ß¾’Ù‘Å,É2`h6Q‚›î|{‡ûnß 1;µIjŽm‚ˆ‚Ÿò<]¿º,‰Y–:TE~Zo‚È÷žPHYôª£yÕ”°ØWÍæç£ìÒ.æôiUÕôvyͬibä%CQV{é&ðYàtõ_T/ao*¼þ˜#‹4€‘%©Ý¯ +M‹ì‡®‘¥¥6ëD®tµ;=¯ãÈcëMè§Þß4Êk”|¡.ž…,JR÷p#·füšQâŒ%bÜþ.͸§+_‘7N¨²ËQog÷»ƒ. MýÈÏ›’tÄ!<^mÀA²(š™MÃ>'ü__¼GK¢ÐÕ@"5o ÷ŠÈzheWÕ­rH&‰áB´^µ–°'¼ñLD°\-í™Ñ<@?ËÎòÌËÒˆuÞ ù l€¯óí³bz–¼dAwAe›êDKKþ÷ÏŸóº=Iý=ª€YsÄsoç)ªŽe~&—K®XnD %® =”,„ÆÝÀ“§ô´Énè\(ŠpÈ`VÑó»*‡øÑD2†ÿèû³l7çࣵ£š8âÎ.šàEºc­óZZydsèŽ}í¶È+ó>'R üe¹ZxWâ¢8±A4”´·Ù¦û¡qÑL)À,™@N¢¼4ÊXŽ63b-‡Í´é"ÍS6†‹-ÝÕÍÕTWª&·oŸÐsÐJI†»› ‘SÆÓðR=×FÌ"0YLöŠ–yW@™ ^X>W€kkî54µ —vÁ½Y–QºN÷S›0Œ½7cÃ;†–Î0'ÕùNÖ ÷M@ «ÆcðT?”•\ÄT”Žð±€áÓ²¤vàiávèU ¥Sa2#‘ÚöT™WcB¼NŒ×šÒ¥ûãž*Oi{îòûO&ÃÛ«x–yjè eôÔZæzèìŠu “U`PtÒV€¸ÁÖ.#ɼ(&Y¹ãèí’ºŸ¸u<å v7EòüòÚÉþ,ÁÓô¿ÂHð )À€¿E€ m§ZÕYÞf òÆÁÈÛL,osØ¿`zÜ"ò3…n25®Ú2\ŽW@q&¢±TT§ª^ŠWÁ|¨hãÕðVô• è¾°A&xÀB^UGSã¡ÂપדÎ'ƒûw¸Ö$ÖêšÖ)оªA+eSÈí¼$1¶•$öPJãLoššÏ…tW̳¥ËrqÒ¼¸È{³€ogÊESCÍ÷u 8íkDº_ǯ²8ö»|p] ^³`â,bbjš~8?íþXË>KmÀý°Uaª;ü~)ƒC q‘Âï|†…¿ê@z;|ø¢¿ƒÔ?¥âcß·úwÛíù|fîæõ&2Þ﮿ÕõñØñ±RøªD–€Ú¢K+<Ƚ4þŠN¢¿ÅGU·Z5¦þ½ “Iâ½3ÍÒohþKu€\¤í®÷v×_לsÏN×PÚ1 ü.°I@@ƒö‹BoÅR;‰=}T餽¨´mÃ; N‰9ÈOÏÚ`.ÌLŽ‚/´Ÿ0‰.’‰ žù$9½,ÿ@*£y ½}8*þC(¨!/hw˜¾ÆÀ«š¥B2Ê‚«ðÂj°Á=,à_)ÅÌø>wˆ‡¢ìcÄk¹@§ýùçeWb­Æó;맛7, Æ6‘¼ÚÆDÓÔT~H…=‘è÷ »Û;«âH[u‘÷½´t¬ùìÞ-}vëÒóÎüâ1í öüBdWíýj6û­Áý4ÒÜ®¬ï¸‰¾â6 ¿–¦À,G‡¡Üfx½zõ ó'@í3~üé žòÂ`±™P÷#zEb&|ÎYÀ8Cõû1 ¦-!à˜õs‹\ Vnñ€pU o ³(›˜á~ØŒâ²]qp+íÃÓ¯žœŸŠÊqûBhÒiÐUú“a­®ili ªxÝøäE’FƒŒ³'ì_\‰`òå-I¥F9–lrÿÝÃÃw¯í¥Õ}ß*mg;˜5ò`gEu_Lk%̦5´Ö=üs•â‚þoü“+ï+ûܺú,ËÜï¡J³µM6)1™ï´: £MÀÐŒÚYîL1 Ñ/8×zÔ3À*ù¹²*zr`c·ÞÓç¿N¸ý†>¯o[ŠÆŸïþüµiÿ endstream endobj 3408 0 obj << /Type /ObjStm /N 100 /First 984 /Length 2095 /Filter /FlateDecode >> stream xÚ½ZMo#7½ëWð˜–Í*²ø±0L2˜M€<³Àî>(¶ìh#K†$g²ÿ~_Qj<’ì–Ôöa<ÅV‘,«^=²ÛGÆH ± ®N¢Oœ D*‘T`³WÁ›ÌhølJ¬’!ç²J’„¤b “óB4†šJ쵤\‡†¼WƒŸTBW©s2~M\ŸÁÔu Ž†Óñ¼ÎuO†‹€ÄD—â½aït->@ :ŠH+[’áPm Ð_Çó˜æÀœY-ððL‰:J€‘®èlMÆ?zu²°v$,9ˆþцRLè “a=^Š®B[1Ô$æÚ ÍT- ø“’Z'0"g]Èçt~,~s«yàüúk2ð›Ú)RÒUøCWý‚‰µo1ЭÏ0JòÚ7b””u¼ˆQ2«-£ä¤¶Dô(¤¶DŒWª¿± !W0GtF¸îœ$¾öÀð"T¥IôWD—D§ó&ôˆºè€)%%K•œ‹Q@Ke„šK2ðˆ‹H¬+CHD8S¥`"“Ž†ÅG–:ZĆTÿdÝ©ãÝ$]6.Êj`<‹©>Ãd™«(dbÑ- ŽäV=¢I\{©¦G).«¿&“tQ˜‡L‚Y«½N±ÆJÉ «û½LØqÁâS™]©’hNÕ¾Åd{øÕä°ê!i†ÏRã y™c©ÏØ 0ÔÍÌRÜàìlÐ|˜M—æìÌ44"Dóü ÝL¶j 346V !øjÕÀè Ö­pYJµñÝwƒæ×ùìêãhi.Lóëû¦ù4úki.øIçýô¿û~ÞŽÍ°a4].4%¢ö4ç£Åìa~5Z¬R¾>ûet=~?ûË\èôØcø‡/1ÑpŽÞš£¼R|7Î0ÚÅ ¨ÔžškkZ[ÁWá+Óê ƒæãÃoËÚþy<ýcÐ|?›_æÕwÙüØüÔüpAµ¡6_aµDÉzM•lEO‚eL… ³H`¨½«îþhšÌ>ÍLóÞ|s~3µó»¡}˜Ž¿U×õcGòVzm;±¡“wöhÄÚ!Ú|t†$+e¯÷sìôÕR­éÓl³"×ÚvÁ"#_²åf¼\Ž®{6%ŠEÑØ«HNØ”2…ÜçLùmòp¿+NÞ›‹Zškþëßÿ1¥XÀ+0(`¸`¦“Éå^eTߪ‹Øˆ‚ÐMhb@±›vpÑ:–nÚ,d£ ¯¢M%Ú;k‡€ùÊ'_ó H>Ï' ù>QEcâÓ@’Ë6Hr:$Ù¯‘C+H+Ä>±Ñ;¶„"ÈÑaÏPž¸ ŠÀ¶¤è@OÃéËÑbÙ_"úì­²3BÆê2§õ¨»`£Ö9Ù“£Û~ µ"€Æ&L¬ä4‹u`.”-~¿!W³¹}Ö’]SƒUúâƒÀ–5Ö …‚’úœÜ‚]>®¦.¦ywvVghÞ]-dzió±ùçùOúï›ß—ËûÅß›æóçÏön´ÞÌ滟Ïþ‹Yìl~ûíW€šÖ°6•_¬]ÚÚ’ºj{J]-aàv‰•ôV3x¦ìgaû0åh aF#>­AÃçVhÙWhÙW WàZ’¢eP÷–^ê)s~ËôÍ6cO[C¸ßÒˆ,çã»›ñdÒŸ%Á=µHnqÆxÙ’Ñ¢OªE V¤Ç6«GXÊÙêÉ@xOòû¹ÖbÚ£'(Zchkι–4¡^0b1šÜÍ®G“-†ü€µ©ü2`íÔF "ñµ%8›\WK<ÊLòåu´É[=òvÓf°rîª Ÿè^žÆÇ6(X?@*;€TNRé$QÜ­ÞF„˜l$½¸C"H\ Ùp¬û"‡¤ì ÕH€¢ÒQ[kHÙŽÚJèÈQ\;^q$Èq-g£·B'NÜ8ñ”À)ÏNw*È4Ü¥¥‚ÊN]J¯Fã!!w†ƒ«rGmruÔfM›Òul&¥™|8B~Ƕýœ+o‡crLJclY_| Ö#U‚B±z“åë…Î[ßmE¬&-å`aŽᙓìõpi¯æÛ%;ç·°5щ°©ü2ÅØ©ÍÞŠËýEdòú:z‘"FfÚ”¥cPæ¼”)÷‹ì'W¬#}ƒD–Š_žùà+κUÙ›Ê_κ¤?¿Ž6htÙIK{ÐÆ1jgðîTvde'+Ý¥ÍuŽ§âòf@Å#Ÿ¤ÄF÷E¶ã¾øãã>·gñÒ¢riß„~”ðHˆlcüïô]«wV2?sN7=Ê9[—ãÊ7 G Ô}Û¦—,og‡×(æWŽdñV™ëSŒ{í¸/®ìùõpñ»Ý+Áêñ„î¥X½‡E Ë ´.›Q%÷ hÍƈÍ-¼*¡^ÈÃÍqnGæäã3§¤^c-!=³-Žj88}Íë=öBŽª¥P16•á9+>O˜ê ¿“yk'ÅÅ£wR_©WÄ“µ•¾]U_{‹´Òë{_Øêk°± Ì@œâÃÛ¾ï e]?gáZ¬e>+ü"βûÃl2ºM¯{D –µn:„÷êë‘z¦ÔçÉ—ìÐàÕÏ#:GúåÇHOØ"–þnŽnJÛÁMr|p·6HûaƒPî«/(N¾”êë»ö^  ^¿Ê+¢^Žfú 涯D7Ê[~‚ Ÿ³´nKú5Z;n'ww­!ÿúkoe endstream endobj 3527 0 obj << /Length 1085 /Filter /FlateDecode >> stream xÚÕXK“£6¾Ï¯ <‡Ì$6Æ`œ„C’ÚIm*‡TÊ9¤ò¨ж•‹Äç°¿}%$ÙÀØžÙ‰3©ø`ÉR«_7­{ÎÚñœï¯¾]^Ý݇sgá.¢iä,WŽïyn0‹œ¹ï»Q°p–¹óÛÍ4ŒoÿXþpwùÑ Ü(Š¥¢V¨‚[?¼Y—„ %|åw÷AàÄòT4S§&A¶Ç&Ó¹\ ôáëëëÛIèy7y…¶zfI%ßsáÂÚimüî…^|¬… –'#”$Ff¥!(MFߤœ‘Z€^û ,êFò°ouO}wáÇ7PþWÍ…Ñ4A æzNp…™#šëIŠ²wQ!ÊW¬*ôš`z¬0gfÒ8㽈âËE´—ÁE’)MÞ8òT˜fC»—@S>;áÆyhØ ÅƘ,+Èq&c¡!‘ñ¤el2&Þ‘¦ð¬¬A0À@­ 1Pk] ´Ì Ô†òüÔÞ3ñ™-BY¹ž´AªIõSÕ"FŒ©qÖ—Žº*XA43’-Zz_èÑ·i®µ5X«œ½üÁ)q²üù—7Ï+:e&Ý8Šú¶NÖá©ôktl‹g¥H¬€Ž­uoŸ¥‰5´–¥÷@Œe&Óbê”Õ‚ãÜ„ÃVOTø>/vÿ Ž•M a2*±͆#×8þÏŸLÄÅ>g›Ö ›n]àò ¬VÙlËtØ"Øb±1]®‡>1è:{Y§gèP ;@¦Ã¡ŽrÙÚYÅ?sFìë‰A¿@*I;l|À‡š1¢‰>X? 2¡}qðÁÊ‘@‰üêö¬¡ùs¨µwl¿ø T­1EÄ i£ç\þkw×iïOéV(Õ’­XÝ? Sõ«’9ÓÌ_¹.‘Þ×(WL ³M‰ì(+°Å»&Ã;S×ï+U×[¥ ]þsÚi#ÿ´Ò2V”ûÌ› æ)“­µ¶‘ÔÓuOJùóȪQß âçðÞ¶À1º›$òüS>‹¢ìïX<…­B/ÉRLsµÕ؆kˆÎ2E.2Dõ„²­¡"ˆsC<6À ‘‘6k"ì:Ûïkî=÷;,Úc7ˆ§–{¦EzD{æÎâÀ ¨ÈŽ©‘<Îi™»³hadk¨  B{ÖŠê”êÇ=@ßq^B†W;ÃÉdŽM`(ËX•Ë,“ÝáîðãØFó—["sy šÜú™4üI’üIœ¿©´ŒÍÜÄ–ì}5~=Ns‘Ó´â!˜ÿÇ÷8 è2<Ô¡|)ˆ-¶n*ñ“> y‚‘׬Y%¯!Òk(ò­èH^÷®ªP&àKÃG)Ù ^§0!òu´êÜne]•ŒÿÊ^ßø1Ù±K‚±C&Ð> stream xÚÝXMoã6½çWÊM€H‘¬X¶ÚêIbw©{j{ ¥±M¬Dz):¶{èo/)’ú`$ÛMEs0ir8óf8ó8NàlÀùùâ§ÕÅíc:‰ŸÄ³ØYmœ0üè.vaèÇQâ¬rç÷+×áüj»/(¿þsõËíã|Ñ9%±¿H¡°žÍ)th·Qä,…t|'¥½h±¬Å½ÙB,Fê/÷×^EW?zjdP›û#˜ ªµXÒè… «¯RFú ð{³ÐOÂ¥Byyyyí 5W(ÏÕDÀð*L‰ú^`•šn(S¾3a §¨(h¦À3•1~2×a?iM2&r¬à³òB}ͤ²å»T\]x­I—žZÊäÎ:–‹Ž"ÆUš­1ÉåÖÉìc£4ù¬v ŽFOM äü4ØyÿzØ¡·õçÛÆŒâkÜÓù½§˜píÊeŸt"S+³kf¨gÒzÕnŸµ>¦Mpº× K•ña8°5iCÆ /oö7%í œP¹/4þ㌳Ç&:(3u¯‘ ;ÊiI:¶ÏˆaAlv”LPN:ájŒQ‰ÿ‚öpMÖ‹°C¿ËÄ—3ÍÕß)‰AßùwËÈ0DrZè™Åþ²åü!=r¶0Ò/Œ?£þÝ房Óæz•ƒ7‚AÞ¹”ègšªÑU§\»d^Íò ÖI[âäl6™du …¾FÌw&¤Xo燲<]êœgˆ‹7` XìÀJ$P»¬…D\P*>ƪFš®}ž¡£.ñúñļö/µY/³Æ™š{x5îöt]å é²!86T_„ÏPiÝ:|¾£yŸ‹V /h8÷2åDOAIsxêw,àZM„8‡Ôä#⦠uRÓZ‹ôV;îGJ¼§H÷©éD\¿u¾áƒ-e8CÅPÑ´VRÖЗ1Çt´S²!Ž0çvý6uLÉ sU ®ÑçòO7¦ã¯i%’“­ek²æÛ(V=3{Zœ‰ m»£TDô¦4†:í¨WU+BÙFX5oÿK¾²Îh¹¯»ý~¢:,h:Z˜¹ ‰Õ–Êv¼iGÆc2ÙÑ1ÓÑ¡‚#"ýMñâW„¤vÂÞNu®8”‚t²i Ò€MçM†ýü¸ï¡¬ü|@‚¥…ùá$í%¥ýˆ#r°žpTùb DI_”ÙÞƒ>ÕÔ~}îIôõ]&e•A:k.☮ž~{èÜÀÿ#I8ÒB[<¨ÍŽ 'ë¦a\Ÿñâl¬Piõ;hMŸaê÷Ðü:"ôË=ssá÷Ñë×M¢æ¿f|X]üÂàjÑ endstream endobj 3536 0 obj << /Length 1776 /Filter /FlateDecode >> stream xÚ­X[oÛ6~÷¯Üµ˜E‘’ ø!C“ÃlköÔ-ѶYò(ÙIöëwx“%Y¹8kT‡‡‡‡äw®´ïm<ßûiòãÝäÃ-¼%,`ÞÝÚþHȼcÄHâÝeÞ—YÀüù·»Ÿ?Ü2Ü%1E„ H I1Çt¶iDÝ(á‰o÷øpKˆÃ*ªU Â"½lDÀ$fñ^ŠL­‚‹£džÿîÝ»ù‚úþ,“üÞP«ÃjUC¹r$OórcÍÖ y)¸4ôWŸúø#¶RBî U•ƒu þ׆æef‰Ìî¨ØG MG-óTÈs5ëJ6i¶R¸sŠ£(êžÚØÁºQ·T‡—¢†ËBf»*[–VÐ-ÕvüpäE½L;·uE¾³ü«>Ÿ¯–Ó뢨RÞä ÅýU4Û*›:þÐ,§åTƒ7ryuM¥¹Î3±ÄÖ$¼Y ì6.ÍE•èš§M%•ñ殶WÚÝßÞðÝþi½¹›ü3Á°ïáÖõ)‹°—î&_¾ù^“pD’Ø»×¢;/„èˆBtá}žüÞúúð«ã Ü¿_€ ±G)F˜±ÖÆ#aÃho]€’»`ûCÌC¶‘sÍD]k«ÔŸÝÍ“`¦Té‘v9EÜÊR†þ ¼ÉP×õãn'ùø DEnt &§°‘œB}ŠXbmùIÔ©Ì÷Úáº÷>Ý¿Ÿ—bp¸1ß.‡¥M{í¦2ß”K¸&«ƒ½¥ò°ã< 3.óêPæQå*!p–S­MbPôÍf#äû9¥3;is›ìBݜüîÀ¼oaæ-ÌŒÎI¤=|êrA‚l³áŸ5߈QTÎQê{×%ëX ‚‡ÇܵpTÙ²«Z¸„ Qɯt’ŃfEJfÈ@¢XNåŽO]†”«^NAµãJÑ uÞ,o¯ù|ã4盼©í!äÂ} ̾]h®åƒãv¢lêg!zš‡A´õ¼-blmeã]ŸQ74ãû¼ÙZWP];à'\f8b­\o Ë̸ÎÿÎãdë©iµryéTþÝ.®ÖÖÍ ^×±Þƒ8B‰Ý¹µu,°ÝÛ!J|æ¤Ðyµî؀ĀÐ àÈ,9毯‹Ò F03¨)VZIˆ¬}Ufº€«¹šïö…Ñ™ _^¦ &ÅR.oÊJõ zE¾„úˆbâÎò0FŒp:ÜjWà+¥|Å«ôà4†Î(ê‡Ã“ÁàÂÑ« ÒJ©pxÞ(8 rQ¬CCнÍ*AÄœ/G‘õe` ¬¢æêz!.3# ¤¬dmf”9ʪ+F Ÿ*PU #¡}7b'ýͽŠäêj µ„Âýh{Ø|3¨‡n1ƒ{œ«Y?F! ú¦²8 Õ ÂÖ®Lœ•Bdu¿Â¬l¤×{‘æ_}?ÙËöJ`ûa •X«Òe’«Êå½g;[Ûe°bh;`鈲Ó. © g­#)@$pW6vƒ­( u¨•>×ÿ)PmÓfÀv›~®ÓÛ¸Ìf•¼¬¡tîx§Žo…ÝJÌíú¶¸¼ ¶…®¶)lo<ÆúðEµÉSð9&J(C2OíqÑ3 Œµ×ÀW{ËÏÖ–¯áRæ`šÖ¢xÍ!Ë5p±B„Ûéz[Š¬¾õhç“y™‡ÌUž¼§SÃÒKžZv,yb¢ˆ>›<#FA7y¾µrÅ*O÷$Û\ðÔéžÔÿN¹7¢~¡½ÞÛRHüDßA}[0Ô± aÐ^j$t›ÄúPØEpCÑÔFx-«Ý@RõUM£;{ÙPV²¶j6/j»÷JŒUE¸×A–"»<,Íûô-5‚xˆ”1š€D"˜8ADlêQ\è!VNR%/ÅË@pçô©6õ«§£ê~›§Û¢½T;gãPX¼uWf1ìv³²:”ÙEPYç×û8§8«qhôs7ù믿 endstream endobj 3544 0 obj << /Length 3073 /Filter /FlateDecode >> stream xڵˎä¶ñ¾_1ØKzV¤$J2à‹;q€ 3Hq€°%δân©­Ç®Ç_Ÿz‘z´f½±ôA¥b‘¬*Ö‹¥Žïžïâ»?¼ùòñÍ»¯º+£Òhs÷øt§â8JRs—+™¤¼{¬ïþyèݽÊÏ£Æû=þéÝ×Y¾˜’”&ÊË$bm½‰e 6 êOþ s@&<é÷n´ÍyXM\,°ÜNwªˆLÁ3ÿ~¯”:ؾé¦áþ!Iâ²I :†gÆÚ¶fôŸíOÓ¥¶=¿}g±*ËžjCÈ<FγwÃp³‘í²ÃW ±,ê„{Žîr•û]rÜ%Úç«G×âêê#W‡KW7ßű®HDeÞRÔ{¸]šjw¯39ˆsw½¸–Ⱥ'¦`Q¸% ¢À¨í_q¨úæ^Á‰ÖŒA 쥃óÙá¾C^Q!œ©$Ñ êÊß7g±$R |û]’§Õ÷÷*> SÚä´>iÓÄh?­ÓäèèÏ]ïÚáüLA™$,ÙVh¹G<>œûÚ;/#ðÐ{²^GF?g{ä4(¡)ˆkXܺyžHÛºd¿…'èë20H&…(2)ÀR9TÄĺkÄ0aÈòãƒkžO àíÆk 1Ì_;Lç±¹žô„ÙÎy¬n†+K¿wxÈ5úMr ¸ggùëGZ¦~wizp"{EÞdëìà »°Œgh¡WËi§qŠ´WL"Å!ŠÀµw5úX52{I8^{<»]N­¥”@Š@w\Ï*Aû*Á‚L14?¹Aˆ{yNcÕ]<–¼gžî³ÃËçÔ²SÇÏ£lHQ×ïå?œ0ð#tŽ|T Žöd!ÅÅ)ja€€…/Ð2uðxÝ Š&ÁDJ›`X‘ «€a7³ bô‹$Nãú½*döE¹Þ‚ÖÛÊ %GXb=e÷PPWhš­ ž#$­ré…c· Á+\÷äÃPêƒ9 ±—éÙËÄXx– øÈøåâì0õò‚–‡PÂî=G´~LÙœÊbY}¤\Føêƒ)Tº É£\çž]åvGi™mY•E¤Jå Æ`Ð`æi”äf­ÂÚŽÃd á ƒ¿. ¨.ØÔ¨N]S\‚5Ž¨ØÀuTDP¾ˆ²‰§)Ð>ú%›ÚY†ŽîÔP„.ÊyÇ›…¥V¢©Ã^{1h/§nz>}Ž;'‡ož<Òõ2ÎŽ`(6Å9û8ZΩ¹22ˆ+sXû>b–¾O\°ïãdœ8)ø>mÚÖó¢{eÖ©صÕì‰Þ¥bªÓdt<5CÓ0Ùóù…_ô4'#‹’ÆÂT @¾ì¤Ý ì”M>œšê´™2õ]¬¬v”Eìn.€ÃÃÔ›”&³m¼Ê8^Í¥@•JjîGÖл¯“dé 9x‚·óÞ½Zô›¨0Á©@ÎJvñ*K€„ØX‰G#†â+‘ô¤´˜b7ãÖÆÇÛZHHÈØg @ÜÔ1×ÿª.=ü¥ºêžôH°$tòÞ œäZiöj©¥,—Ṙd5@KFŸ«z½µ\¬Ã–– ¤Þr « …@Ì–b¼ WYï»s*:ÓÄ4Q÷;’Fe¡ç Ç•ë¢ä ¬ÒEc¸ví|9 éƒt¢³§ ÑL‡Hú¾ÙaUé(ÍÒ¯1åñÌŸ+sÞÃ7Ê{ÝUÅYeŠ_sp»û‚ŽÒt­#ÚµÛì¾0çLŠ xZÿ~ü×" ¯«Îh4;|¥E”!o¼…úv‡3 œÅÁ›"É,&Ž 8ô§…‘<”lXü¾\É÷]ãCêN±œøb™ ÕðôQaT0“íƤQ‘M3;Ü&È —S(Bž'¼Éa , ;Ñíò&‹ôl´úoÏ—=¥eI”šª¤8µà*zãÓ(’RËÂ]ÝÄyµÂeHÜ» 2öZác‹ÂÞ¥TÈ-k-“Àµœ¯Xøc1×|Æ3Wè?sÍ/:HãH©×Ùöw¯4ÀŠ@w¾QÃ2  ºX_þ·FJÉ(dXö«?gSD¨ÿ Z|=Ðï¥*2èpÞk'8æÔ“{ÖøùªåÁ/N£vyÐ**iÖ:Ûô´VŒ`ˆÅ _¼…0´wžyiµ>ÏO ~;‰Ï6’Ydò’¦(̯äý¾hÃåGä·:Ìe¹a6ŽL™ ³¿Rëí/gÖØ«ÿ¿,¶ï÷˜ÄÐUê×™„j1ë"·ÎAŸ.J ¢˜ßF’á‡~ÜWx ²dÙGþÃÄu€û®?]Ÿ•×BaçÚ€“ÿ&Ïbí’Š5×ÿí”~©¸R (q)[Ç%i£©Åý^ÂeZ™F4óiüíÄìÏ8ÈfR@6X¸G/ ×Øh¼4­_óø²ZR‹“Ÿ''“±–öÄTf ñÎ…fYt©ÃF©K©K}#@ (áQ„ÍäZE3Öã(1HÍjîúæ¹iíYÖ^ç:iþdÌ~˜|[ÿ©Ÿ­ÿ62¾ZÿA~*ƒ¾ZÎ ÷Af¬Òî?ˆï$7 ®ís_ æY°,DúËHnBù$V¦¬Ú=aßía„xŽ¬onnÓ)ÞÑ[¤+!sææy·úJŠ$ʃ"Ú½*þAhÖõÝ"¥ƒÎÀI‰D½ºªyz$iT›ÙÍ)n7sÍ*Ü«4L”Í׋½ûät'ßѤPÜmyD4W–8" eÛ¶§^·>›<ä× ­¨—DmC÷¿²84#?ƒÃà ̾N\ã”ä,áw=ÆL¿½ Ja€:qCeÏÕöËßÊÈKˆËAEh!I&ýÜ €`¨‹¡"x꦳pj§±C문/ƒ¨#Í(¡xêz/S:(*ÕQœªu‡ËŽcßñËh­€¢ò­ @ ©sóq(ç–*~·»’äú£ö j-Ó ¦ºãÎV|h)g€„­ãî_\ßgAÙÑÖ1乃Y ¢‘éA}ÛóÐñŒ£H,-8dvÅ8 ".DAš+º„ò23Éæ³™Œ©|¶çk‘1+£4Ñ?{1}­ãbê¨,RFZÊ©åxÓ^'açf®ù0q™$6«ÿÔ÷$|ß]>Ý=tžFY¦©{ø@©à>¬÷âãŽìøJ‚…pçêúÎy4“} /ñ¸­…ùÔaæ> —mˆBJƒ™vÁ%}®£‡óþU¥ØfTQˆc–Š 7~Jÿß°N1Cøx”ï FRð˽Éø«ƒÿHTJDKp×í„ FþÂÐê¼>NèmUuS;6ûq@ãê}óeïÉäÚêµ[æŽÒ¸Môþãêp1º]ãüz )™Í2 ÖŽ÷À0]um=UcÈNØP÷3oÚ{±ï7q¢k—ÉЧÑõ>>ÁvÇÑ6žžÓã¿ÏÍ¥‘µ`ÑÊ÷»eùpû­›ò^üÓ¨·ÏN´ƒc?Yº®ÿRq®4}[Î7-c¯¶‡rh:[_~ëÔø¯Øi:o¾è-¥òAyêE»&M·í¢Øܹýó«Ç7ÿ€Œ endstream endobj 3551 0 obj << /Length 2509 /Filter /FlateDecode >> stream xÚ½Ymoä¶þ~¿Âð‡dÈÊ’(QR®)zE}i‹$rN´)­ÄµyÑJQòÆùõá )íZ¾‹] Ø"‡oÃyyf†^Ü^„_¾úëÍ««·ivQ…ŒåÅÍî" Ã@$ò"‹¢@Šâ⦾ø÷*–ñú?7ÿ¼z+£ÙT‘§1ld'õj¥«ÛA™'¿ ùŒ³6BfvÙ&΀(h±n×I¸ºÇToÔ³ÕOaš_Dz·}¹ê»nZD£¦Ü1úweˆìgFÕLâ¡áŽ‡½ªu5t=úÐrá³Õ¾«UCót;¨¾R‡F€IûUƨ¶rL©ŸÂP¨j0xk¸ñ$W¤)ÝËî*B\3è}9polkÕSS·°>nµÞ*mt×ëM’G«›;mx&M·W°™â.J©*ÇAw£iH>´10» ($”¼ l—XêvOò§¡=¥\Ç^Gå­bUÀàÐsI€ÖØäÐÏgvZûdø÷ûò%‚½GÝZ³>1J?nÁ׶Ìn^½@˜/ã­êz ØZímï°™~.õÎ<—‰°XÕNC6D,"Ø©îöÔ±Ä(œ–±Ü ååF3ö4oq>;bʶ$«Á½[*yíz½EìDn6Ÿ¯”^ “ÝØ4ÎtÍØ (»ÞJbn9„ÀÖŸÏäGBÿ"“ àÚ^ÔœBöPø]ÛµðÅe³_D—$óâ ]‰72š¤ËÐûëã=!ÎæÉmžd«·-h`x1V.ø5€›Ì¢Së‹nµ×¿Ù2£ÞLV/RøÑ&`H@ƒ2áR (EÀ_ÈiñN2q~�ÑE!å€[þ1$ T‘ÁIîËG'~ìÖûÁØ6ìùbÎÞßµÜö`'`’39°Q¸Ê+Ãt*·¼³Ö ŒÃ¹p7¡¿qéà¹é¸ópp!Àa„½¹¹BQYeË¿"ýH1EĈ"õX ”ÚA¿dòḏˆ¼1ã5fŒƒB2ª0‘¦Zâ†à@s–@Ï&Yó™Pù+Ú¤<úÙ—Ï›¥rö¤½jì*s§¼R G¥Ú3Á„ÏFÔÃbáŸSENx@â<¦2ºšàz¸Ž*&(+fÅ£á?v|ÈXÝñnD8» P4ÛÕbPë1­;ÝÍÍƲˆ+íØ3nö`cýЙ¯‘c>ØÚ’ ™o::=W³³%cÏ­}ù@-Ë¢ä åÕŠ²ä›ŸêÚgM+¿S¥²Yz…Cœÿð˵Å%ëE9{Q†îú íèû æJxRKÔ½&É BJ·ˆÁš•}/†%[&ØÚš½* (Ì]“ïæ§wDÞ‘æÙçßE¡+Ödõ*m+¶Ü#e®8 [-¸Ì ^q0ˆŠ ñ}ê‰s,ü†¸†&jLN;L€‡{ÌÏÐ+ë“Ê1Rj‡e»³ïa•7"sqR¸¿! qâ––rêˆÙ䈒}hŽ³n4O/¢ÖÔ@h±ÄÂ?[qÆwhÖñô²˜5=žßh¦ 2¡È%ÞѤ$¢ˆ:¶Ö±-Cך#N81`‰(Yøº¬Jó‹nx;Å›•ePAJ½F%§«¯;ÐB·0qá°¬xÿÜä«o¤ãV·¹]†_Ú?ÎN”n"þ7ñ¾CEÝ›_\ÙFd±ú®«!ë5~aD'd«Õ`šŽA±xH”¹DQ¦«ï9ó“Xa2ÿ͵pgä\Q`¦ÿY š2T{ëYuЫn7¥9+üÏÞÃÉR°X€dëv ¦7ø¿qÜÚ˜Qý¡ÿeÞ¬ñ‰}¸³éBh,/(¦\çÕšåǽ6ÿ°†P§Uu7lËq^=-”€Eˆé%åOÇûí_À²KÖòü &èúÛ?/ÔƒQœ©8}0|™}¢À— n>~©H‚"÷•ôÝ0ÌçWWÇã1p'¯7Vüþø=cDP¼Q1«KÏžÑÜ÷úæÕƒâK endstream endobj 3563 0 obj << /Length 3087 /Filter /FlateDecode >> stream xÚZ[sÛ¶~ϯð´3>ÔLDãBdçäÁqÜ$nÜfìL;sNÎ,ÁŠÔT\÷×w P¤_z,â²XÜ>|» ˜­ŽØÑÛ¯?½8ù9ãGE\d";út{Ä‹e’)ÎãLGŸ–GÿZ3ãi´êM×Ïþ÷éâäçTšÈ"‹UQ€B+,2‰B/˜ë¤³‘ôÜ‹Ï…‚BI®Ì­ig8š'ãY’1DÖ,šÍVƒ¡²¦hËî=”,ÖͲ£LßЗ8‰ÒS#h„B+‘šp\ NßžL&ð€æ^ÍãðPù“6l =Áž± Ën‰(  †%écDä1‘yDËœOùç²iMÝà’”ö<ñ¦ v}ßÔ.sêj/|íéÒt6™¸º$:Zöº®€tÀú%`ý²4r’Ÿf*‰œ4a ›ß´zÓ¹¦¿¸~®¼®€‹Ö×^¸Ú¾ö˜ògM³ÝÊCp±ÍEâ![ åÑiÕmLÝ“a5ñ~g •€Æùî,cAÍÅÒ¡8‰ôòË®s*,}bâÎ Á™Ú­Ûf·Z»ÆôÁcÓšyhkSw%R¯s.¼‰ÞyÏæ-Oâ‡g"&ŒóåYÀ0_™Î€ .ëûl7N¸©šgÑê>hmdâÙ6;d)'ÇÈi:`ÚóìÑ#Áóì„'Š#øóy1Áƒ¡ÐEPSÊ܃.#Ë*2á@ûƒ‘¹ƒ‘ùƒâ|»ÿÈ+yãÄ×Øn@=Ôþ⺸òJŽ]~×­}W1.èpðõ¶\& ÀˆjAÄÂôw¸YÍÆÙá7U„_ø, ‘ÇA( € x¾5ê9÷é%*±<¢2ä‘ ­xŽÏ' Å‚I‘dS˜XçÌŒ¹¬ãÞ3ƒh€<³œ¼þ¢€f·hvU©WMçjÞ9QGþÂ*Oê7rê6‘¬ÞnÛæÏrc‘ÐQ™µ;ðmÍr·0”ã%À©ÀD‘ÖD=x?•q²¿üž/°íˆ/0û_ûì÷â÷?Ò§› _$y”1 „<È`Oö7mó Z3p€ŠX¦Å!üõÄfÖv0EVåÑ™µ!zS~rÅ—NÎñAêƒÓr°÷¨vp6° n:zgË&$•`:(ÑÀµ$DÄ…OÞ7 ;?Þ#NTAˆ…ï•ÿ‚^0¦eí}êÊ/ÜwïäåäŽ2/]ÝkŒ›lcÊã"œ/»!äß‘„ÿqâVAkçV©‚ܪ܅³v‚s×v„~†?áÝ ‹>Z\ÛEÿ´]Ò¨ÁMÑCLã pMm†)XB»`IÌÄĶm·1uVî¢Õ;ŸPv¶.pŒFº8¯WôçÆøÖ”#Ú‰Ýô\W`þ>Ë@Ø,ÖýÞ JV€šB KIå‘7 $ƒš³¦qn‹R‡÷OØ —«®èCF+¬ê‘¿¥[½øªW&D0ºMò<èÚ¢ð‚ì½Ü©ƒ5"ç\—涿Ón'¿ß¥Àg(ž}ý ³ç8,r|…ŽÛš„ùG¯ˆÇø'Ϥ:ùÒuñ7&³¸d2x‡.ðYÒéVÿçÎô]Õ4ˆPÉ75ßßQaéï6gƒð'Þ `âW­+{yʤ»ÙkSk—z&€“²&(¬@®9^Ó,IŽüqû@0õÇÝ•­Þu&D»>(@wŠ‚ò黾i÷×Þá:pÙàŽ +L‚Þ¿#™åmè¨pHŠôà!s_#‘£6À~V¨GP®Ò491t[%¡–œ1a“Ìmþµ1tÆN«® ¾+2øeq~Ôb–’WøÚ8½ï8xmÄW>ÿúÐ e"aRm«9#®£×ÎðX}¥Ìô±Å@ûK§þ9àof®oËÍmYUÿÿð2«ƒÆFÞ@ŽXf¢ª(MNÅ?!!j†xðÌûÝB¬öîÿ÷‹ç(À“ðŠ·Q0˜kóþ„SÔ‘]èÊUm\ÎÖ?}‘ƹü¶«ŸüþÂÛz\JÙ«Å]o,Þ­ ËjÞé[W÷+Õ sØwÅËVãlî¬C¦Ôà‰8C‚&wêÙS¶Š 5œ:pí7ÍÒ<‰>ÙÚ‚¬”P‡ øJ€º=³L.nÞøÌžÿ©ñݳ{à¸þ[L*eY2Ôܾ8[]?þøãlž2«¿½§ÔR÷šReÝ74 ÅG:ð5joÎÿ5ðÕ^Œi>€ô”pïß B:lÊ Ø#†C20wÏ#µ+Œ1é1é ýZ±ÏñØ`¨€/BÞVÀ©+¸-†”¬IµÀkkCÙªYQ¢YÚ0RøoKÓùÇfHRÝ=òò ¨Ã­rßt[j2Z˜Eßìz§Ñlšo®Ã÷×ï¯ç ¥íã£wÞ­u{lŽ¦Ã±£b0˜Ý®5¯~øíꇗT©ËWºtéš—¯àÏåå«ÅP# Fø®ñ+øqÙnwÓ™þøI~Hß!îüÓ‹¿kfÍ endstream endobj 3570 0 obj << /Length 972 /Filter /FlateDecode >> stream xÚµWËnÛ:Ýç+§@“ÖVô²%W›Éîª@½kS€‘(™-Eú’”÷ëKŠ¤-˲'íÆ¢¨áÌ™9ó =§t<çß«O‹«»‡iìÌÝù,˜9‹Âñ=Ï £™û¾; çÎ"w¾Þ³èöqñßÝÃÌo‰†ÉÔ Ã@*j„¼õ§7¥€\(á+Ïظ{C'‘§f‘:5 gqslÄr3Ô‡¯¯¯o'SÏ»)Ð HN« , ˜ ®÷*šC¬”KÅßsçÓ¹µm$þ™˜ÓøæM½-ë÷µ]ä@€Tþȯþ)Mf;ðݹwðepŽ2€õë}YB¦—ÖñcML©|Üò$ájÔÒXL:+ô óN ©Wêãˆã"dûZPKøJ ƒ¸8¨à^¡uì©6ü­TœHiàÔ"£•%)GLú‚· N“w6ˆk;ò´Íy4oP¡ž‘:ðn‹Ì×OéÖª0×$–zr™#™2¬Ôõ¦ Ù C-ÊÑ/hT‘‚Ê| y{ÝRDP¦5+!ýB0$ƒ¼OÓ¶¿á9ÚdF»B† Â&ŸæÔìQöó­­$|”I/ÒAÙÎQ…0`214‚Òƒ\í^ ³ëé‡Ì'ãí$~Q“¬ íå¥9èÅu‘õeÚ€$/=Ú±ÛË•dÄM—` ÌëÕÊ2eóZ“øËÖyH pÛZj7í¦\ô‡_³yÝMV+º¶&ÍÍdŠýÖŒñãÈM¢©LïµÈÁŠÜ( ­A=JšÕ9j[]]š¬c´êÑ)G_%/Ƶ}.9Xã&ŽN ÂŽ.uÕ³LàM²ßóѼèU – ÔX¼´=ü­Ù>XTCȇ{˜÷Àò]ó!¶K­05=JГâødŒ2ã0%^¶€gÄO¹§zÇ`©wvÈiÉÃëDsKØÁ}2•žÃÔXtpv0#Rsh>Þ üº:ÄŸ¼ tcäy¿Ç*P‡=s¶CZþ¯zcßMÆ’R,Sy©>…VU®x……ö¬|'/ÁJþ«ÿxP‡}"ÁãÇÖ´YàMž†ƒ©zžñz?q÷<«>¿Û^†Ély󚼈×ãº\¿àîðVÿ¦Ï’æïA/Ñv-¶é(§B^F/†%$y/äæ‹2z’ZiÅP¹¶C"¡H=× Zæ›>â£|4ncé›Ágy|nÿ6”éh³DJý K軡œƒ=€Œ‘/-ç¾ÝrÌó³åD«ÜýµÏûÅÕo˜ u endstream endobj 3575 0 obj << /Length 1099 /Filter /FlateDecode >> stream xÚ¥VKoã6¾ûWÉÅ,F$E‰*6EStS @ûHÓÃv´LÛ*ôp%9Ž/ýí¾dÉVŒd{°ùÐÌpæ›o† ¼µx¿N~~˜ÜÜGØKP‘È{Xy8 #/ÆE4ñ–Þ×i-·y‘5ÍìÛÃo7÷,îÉÓ$Bq’€5-I"¦„&=àæžRƒt*iŸ1 "îù$†Mj”®¾ˆb›gåzæ³ ˜>Š:e*³vüXËe–¶U}õWÀ°ú©“*ߦºO’!B¨ÃòÃÝHHt![ MmñiFØpŸf˜Yl›"k·ŠÃaAeC\ÜöŠ?±–£€œ4 ec’ üÙVÇ¡WZŽùgNñ¡?wõ Óõ®eÛ\ôë²?Ï'”@GÀhâ0îAg²»­M©88°Ó|·´‰®J7± EUqà˜1tÞÃ{Xo|# w‡öéðz÷e½<¡$Td „N›TäÂnUµÙfÙVm«~«öu?V“FÒ|Êe¹n7Öp3Ææ$F!é:Ãó™9"sûÌ™³§Ñ#FŠ7¦=Ê|w¦o&0…”]:@˜1úäf­N|;øŠ¯¯Ç¿Ò=EäæD­«g«Z#©¦iU¶"+;7uøGáz^äÎåu¦öLšNÚM§¹Å¼+³µ¨”ŠÑ-ÿ$4‘ö«íq–×w´Ä“v~,«,¡—¨܉Ƀ /&ÖòbiV Ѹi×¢W ý‚íÁˆç!G”FγÈëa?ÿ£`«w”‡½mgïÚMUÙþvÜÿœqˆ$_­g€Èñî KÉtÓ.ÄNÖ/¡„!ztÿÝþiñ<Þ<Íüm]ý ¸ ª^ÿ87V*í²:7Þ£XßÌ58o§ŸÏê,ì?!6m»m~¸¹Ùï÷ȬnŠiïøKõ‡˜ÃIÿŽOô'ŽÙ0 ïŸÕãX6¯¿óŽÏm ™è.™Áó3U€‡s2çîæXý±—Þ…'ªÃë3xYËnêÇyü¿½8Œ¨’9Gs6ç K¾ËýÃE÷Ï@†wà=C>p endstream endobj 3589 0 obj << /Length 1663 /Filter /FlateDecode >> stream xÚíXKsÛ6¾ëWpœƒé ÁƒÏCikgÒé´ÓØ9%™–!‰-Eª|Øñ¿ï À$M¿4=vtÀb.ˆïÛE½­G½‹®o/ÃØKIñÈ»ÞxŒR"‚È‹#‘H½ëÜûâó(:ûvýóÛˈ ¶Š„Î8Ò›y¨›N6jç‚š.®ÿ,ˆÔcÎvs%¡·Þ/¾|£^‹?{°”&Þ­Þº÷8>È¥wµøÝÙ›ŽúB /À(‰æEa@ž<ñnppô 'iÂìu~º«²}±ÎÊòîlÉCê`¡Ÿu2GÕû*+ïÚ¢ÅÙ'}ˆ™lê…Ó3úÍ>#}Uœ¢ê·Õ_r ÕËÌ@<} @Èd4ÃdDC’ÆÌÜJ¶ë¦8tE]°¸Çdì ‰·ä”QŒ_öÕZ?«ïÑÕ8æS¨¶ *€ gYeÇ!ZHÉ¬Ú ƒ“ Žë2k[ô¿Ó<‰ˆˆ…%ìÄ€|‚[G÷À„óTbv ÑZŠ %œ† €ã§Æo>·ÙVÎõ¸±N€³ø•†ôûùÙ2¤Ô'„À”)ó`bÉI KoÞàŽ+ã^v»:GYc¥„,1ùq@ÂØùñé rÁÐÑ l3– ¥OZ2ˆ²€3IÐG/›‘6E)Á_ä¹»Ï>ëÞìº}ùG^¯û½¬º³XdõîúÓç‹s’¡ ñ°¼Ø]{oL¶ôU%K·RwUÝÉöÝåû_®.ŒöF6«º•æˆ)+S‰8?ô÷Àáõ[·OzÊ3ò}’›FþGÀ˜ó_P-/ –˜qÏù+cå±;,Y*K!hX É–YFš—ߥֹ(+Ï–‚†þz—5ÙZ%j=m»¦¨¶(«d£u¹.6wF¹“(À™EݽA#ÝȬ+Θ1;y •œ-ƒ8ô?nPÙWK’C§Öç~¥”ËüÜ\~$ñš­gÅO 0k›ËvrxÙý·EY"­+“KûVæÏPcFlÈC £!-jjiQ²®JgiÑJ0c_áeŽÖ *#ÜÌúÎ*Ô”¥*®ß;Yµp´ŽA­Æâ`¬‰ ‡ÙHˆMôÕˆ/,W;âfTÅZi N†Ã襕ºïjHQ¦ÀEá31a€ “Ü+àﻃ‚ˆ¥6A:}%Ø2ªd…®t±Ï™æ'@ÃcN¥Û™,Âì>Ÿ-"!uÅ÷ož²¦$Ž£{kù¸_Ͼf¹Õ½åmÝä/Kå3šUÍC„bÂ?ÚÄi£)[­©ú³›B5uƇ®¤YþóW(§¯g[U­—s]Ö[åZŠÂÔï UÕ(ºˆR“ÛÔ¼Â$±ä§ò¿… *sÔ¯$êÔ‹H£Ë6}¾èPµËZT¬¤¬Pe;·|.Ò”¹ ÊåFU¾¬/M*æÊN;:U™a‘ÈÃ1‹Ú䫘P‰N©Àîà¨r$"¿¨:”¶º ‰‹d;­Ôå´U¿_Ùª+]÷ÖÞ¡ÌÖ²›ºÝëÝÄСQ'çóٮĕ ;Ε¼’86u_åÚ—ƒ„™¢=ȇ‚s[ã1•jwaìcÍ…1û[m0ÛÝs7*t²²7ÓMSïç*§sìWŽÊžÐÕ½œD“á’:§«Á™šXÈ•¨+¬’Úþp€cZœáAÈ›LyÀ-ö!œ!±Ãæí´|(ëΞ¡BJ–Fh> ½º9 mÁ}S¦+b tÁ ‚Qy­+Ï°¤Š­Ù jâU½¨k7,étó,Ïõ—-¨p)0ÜB?÷Ô‹Û®Òpê>!ž'Rp"X0ØoÒ9|ò cerÞuTß #JVŒ¼Âã¸9X:áq=Ž=Ž2çqÔyyµþD§GÇ w˜·Ó²ñ8}†ö8j=Žþïq/!ò¿ñ8ÃÈçrœù>=¢qàª'¨q¼ïÃaâº5¬ ×ÔÃÛm(IU†Nêÿýk 5S`¸nœ™»CgJ”CeøϽCšÆÝ'ë£~”FZÀGÁç”JÓq¼›ÿŽÂÞüã{:ÄîWa °#B¡©·˜ ôòf²ì LÝ¿kæ/¼)úŽ²AŸ ÆÙ7Enÿ¹<‚&B’$é½Ü“t@üÅi4BÈ+Z6³ê燇Ìþsq½ø¨žÙ endstream endobj 3603 0 obj << /Length 2551 /Filter /FlateDecode >> stream xÚYë“ܶ ÿ~ÅN¾D;ããQÔ»SwznãŒ3îcÎ×´3v'ÑJÜ[å´âF¤¼ÙþõRµœ×—EB?\¾yÚðÍ×7¯oî^§á¦`E*ÒÍã~r΢8ÝdaÈÒ¨Ø<Ö›÷A/Oª7²ßþ÷ñ›»×I6£Š”eEÜ,¥H3$ºáNP§3ê[O~+2˜Œè£¿JS6­^|8c0æ›Û°`œ;Ír{…i°ºÊ4ª£·úҕǦ*Ûö‚Ið$;Ù—FjZ/;ÿ,Û‹nÜ,m“Æ»RËš†Ä4 Œ—uTµlÝÚîY¶½Mx6)3gÔt·¸1ØÌ-˜´sXÅ«v¨QQ É^õÇ’ÔE”;5Z³BqÎ ¥¹ÒÐäyò tl>p.Œ‘õ Ìóé˺Ѧov[ÁƒÁ4Û0ðbÔþJ†ÚiÙÜÂ^qï¸$÷[‘{Ø#Qèæ^kÕ/ö•Ð¾@ñJ¥F%"§D’¥6 lѽ¡äH„Ór‰Ú‘ä¾|òTÄ‹^üҧƯýÎiÙZÊÊÏ8q£iºìj¢ÖL êTÚ³s®l¥ìÑ,i4Ú‚”Ä1žÐœ”‘iÊ–V>ð„÷R7õP¶0‰è ˜_ö ݱ1Ïžž¸vp"gfiTY=kb ºŒ4m#{7 Û»[?’¦ûDè^ †º¡CâY§µDá¥ÀV'Ýg§V•úr×L ãdäiwÿYžIÁ²l䉞ÅÕfó…0…0çDüíŒ[¶ƒü-8Î`V¤Å fEÆ稊‹àÒÙÓRISsÄPYœê½)GS«ê'"ÃnòXî¥úN{Š„C Ä€nvíÅEUæ`iN¥9ÐȨ«%«)bÌíª;ï Òp„HYµ*efпCÈÿ[¾kº µ™S>aÙ@Ó\ÕK§¼8ôá5><­;ý½þ­ìŸk…uv~/^VéF$ OÏ‹¸\)åÏO-"¬¶»eì’ozج>|}smRÀË™>s+mÞS¼–Õ³EzÆpæ?ÃÛÑÁ–Öx +³Øn:@ù¶•5Ï;e"Ïœ;osÈ.1½ìjé°Î%Âh:áÙz¥zOƒ™áÍz(“ÌaÞ ?!;}ùø𯵼Ç,Ä2/Zæ´'ŽÎ :ŽT‡mÃBEõÏîí ­Jñ¯SÞ†V˜s–†éÒ T<%>ÿ$|Jp8y9y”ÒWh5¡! ´VU3e'²î‚1ÔžÚ†ñÜÝ\šz³fZHGE6bPÓJè—äš]ƒ˜ö„Vß8 †NŸdÕব{ŠØ·°8+ÿhÂe¿Örõ° ¨­F€sñ©F¢`y>’9á{Õ¶”k¬©b—Íb—%­Ê€òºR½ÓrBë5U"c•õÝš]X‘‡W`l¥9ñÙz“Ê;±ôkl8>A-<Ýy†®¡¤ÉSé‹SAÆ›ňŒšÓWŠ\cFñ@¯ ƒDÌœ‘ïVbéM4Åúcí6˜„Þ5ŸÁëJª25|–Dù\LÁ?SÌUŠˆà€8§R—€|Òã®þ‡X;ªÚMWpÀ5äÝvêKø,ÛO+½¹|ïU}±¶#ç×ÑØ€Ãp<¤8rÞùNFzÖÌZwˆëSzŽ'L¦ñh™8š¤ir‘‘¸ßK/pG •cã \®"‚‰ëµ½aŠõuiʱ¸Þõ=ìÆ2$_¯ÄI±<SÄî%S•ÔlIóÓ˜ÉK“lÖ­…^Æ">Gå©d•n×®2È # 8wˆ ä85Ò7³êª¨s&Å ¦Ê¨þ2Un¾Q,¢qÃTPyÖ”ØYèg!€¾XÖSÆ5¢3›õdùô¼ÿ'öe÷ôBÕàòTf•ƒo|®ÇÁe®t€cpF=IדÁ›¯\°jèè p-qÃ_qe–!N»VUÏö"œÉ<÷XÅÙ&y&7r" ÜMÎ…Þdky>m8u¼,bÉÃV\ g˜'€lÕY<Á·^uj° aHþý›/éÅÂ<¿?Ë/J„ØIGLŠÁàX>cr’ô¦!"ÜpïYè¡:Ш¤‡Çè‰À‡Ôb­õ|-Ž£ŽÙËk"˜üˆQ©šj1} Y±^ÍßÔ{ÇÅ¢_ƒœ7<,Í.?4ÍPÞƒ*¸m‡ÕûûE˜´ÚÂó@i^ô c ¹[/IÇÕ w£ƒœ«äJ‚bŽF¶‰XÙ=LB÷öNf§Mc>c%UúKˆ£¡×>å±éÊ©<§Œº<»_ÓÑßoñ ÌAõè]Ú¹¿±Áÿ·Í7ížüý‰´øv›BÌËê`vå ûé†j­8KX”¸úÇóÇÝŸÒ”`‹[8h{á¬ú§?­u‰"f ð«£ÏwW×X>/hÆœôîîÎç3ó’ñŠ;˜‰¿¾æ_¨‘»°øåkª"cy˜,ÎàqræaåïøOàÚÔ1Ç21æœ @-LYnm/xÈ]¯ÂÊ_TWÁZ”XÀÖoé/ûÇ|…¨Kô ‹ Ô{¹¬×â¬mL!ú€aˆî83¤É<—ñ”̾Á˜TCoq9ª½/%‰n@ïüevé‚âÚ›sÙo£,X+è3°4/ru* OˆÒ…ýëf:\¡_üðƒiœ³µzA°‹k'«Uƒþtræi”Ýý 5ûÈ£”5> stream xÚåWKoã6¾ûWÎ!61¢”TÔ‡n›(Šu¼½ìî–hG­^%%oÓ_ß¡(Ê’"{tl·‘çõÍÌ7Œeì ˸›½ÙÌ®o=ßQHlblv¶,ä¸Äð1FÄ Ml¼[Ø$X~Øüx}Kpï¨ãpÔEÍ!ÎD×4ˆgTŸY­0Azr¦4m^:Jüæ/š•)ÉSÏë[Ç1&nãt`˜ØG$hu]\\,MϲQQ>ªÕ›ïïÔâ@£(É™ÚÄ´¢j•äU¡bôq_³k?Ô1^ª#ã.rÁn{NjA®wN‡‰=‚BlÃÂB¡•5Î}kvî¢m´— @›ic Æ!Ó4ªSZµ¦Å^-x"þhW´J ¡Ö45RXyœä­„ évÊšG*AÒúYO™~¼·<+cTÔœ­æëõüª5š¬ª²ín »œíÛ]”¬¢ã·vÇo2[+øsÕ¸@läoè‡HévURQ1išÖÕCÁ[áùèùȨþ$X¹šÏAËßF¹©µOb¼K* e™Év;U-¤Y³t $Àwô‰tó1iý8$£@;wt²}íˆ:÷s¡ý¨óo¦LvïYÎxWœ•¯¦}”_—~¿O†Üä±<Ù÷C‹Ìn6³?g$-w´â²]l#Êfï>XF A9rÂÀøØÍ ˜ÇweG¥ÆýìדÐptQ» âbÃ%>ò yŸ¤%8Ó—¶Q`ݦëVniÚžµøm‰1^д–9”/¶T°X-‹\=/—¶'sz©¶¿loŠâ4ž‡B^‚…âk2Á×®MØ6=?@ûñ¤„6Ï'étÌù’> O%}[ç‘…Hqh-€›gTde-+Hn:TÕ¶¡¹,)“¿Yûæ°ÄÞ‚qÑSøÀ8+vj³+¸Z4mÓžxoYvUi “ê¡“lã|oèåún\ rÊ`rOEužŒSÇEé¸þêù¦L't¯LÈWèyG‹ÙÃ9ƒvˆÈÙË ºP©v?²’©ñu24°ä 5*“öl‹ÐýôMf‡³mäçæN—RÃoxÀ. ?6¡†ÐV"oݳç_NV³¦ª{§¥gC¡zMñ5S'¥Btƒ»Ï .ò|üttS{¸Li3Ç{Ò”Cí¹!n2ɱEC'퀨K˜¨j` ¦GBh@Øö뀠;m¤iØ`Ó@x„G@hZi.’(ºûÁ>©Ä”Œò}’Óô(ZòJ¨(6)’À4(nˆä}ùå˜LEï½Rôš£ÆE!© ¢( ~Ëù¯ ó_¦Ÿ¼$ú(­á.ÌÿüPÇ,¯ÎbQòb¿¥|uûÝO÷7_bu|^rø|€¯†/¾‚"9|EÒ±ŠDÄ…žuìñÅ…‰*ÉàÿÍÕfýV‹•”Ó4eéjžz:çQY‹î?…üÉuþ—úÑÚ2 endstream endobj 3524 0 obj << /Type /ObjStm /N 100 /First 976 /Length 1969 /Filter /FlateDecode >> stream xÚÍZmo7þ®_Á͇rù2ä…[ ià»w@ä€kƒ|Påu¢‹½kHëKúïû %Ù’%Ù+i]ˆíÙÝ!93|挖”Q>ؤ¬wBde™A8£œóBXåbßm¯c™(o¢’IEG#AÅ2ÊÅQæÁô)ZáÉ*—Q>(kŒQ‘,ˆœ”³Æ)k ì^ˆ”„‹•u¾Ì!gÌ+²xÅ2-FYbAFÙXV‰™ÊW¬•¸¼‹ÊfWÞaEÙeM*_j[Ñ€ å«SN ʃŠ$Á*VŒ¨PÆfå؈#Fp–wøàrÕd*S4 øå\Ä“zùÄž”ËXL½Ì¡`dÑ2b*.2‹¸\d[&+v;çb!‚Œ/| ËLŠ,Ë|ì¹”aoT„‚EˆDPB ‚W ªÈ cRô¢-gP,r&£ˆ‹åÖb¶X!aºdE&ö ÊncÊeÕD*X#_SJ¨|^|òÄ«Pð²©=vºÉªÙ‚Š+À0ËŽf à rfÌËYäL¬°Š˜ ƹìtŠ¶ìYf@2—%N*:f! –£À™G HÅl ´Ý,›$ bcÊÌ 0•@‰É¢ÉŠ­Ì'@à‚Öh¬b'6‹c½`r(¦$kXgpå«W̲ó¢*'$#ÛáÉ°øŒ‘¬ e#”JÎÊúpÑ䢬h$€ktv6ªÞÿqS«êeӴݨzwû{Wžÿ5m¾ŒªWí좞}0ðyó±úgõKõó[FÕÛzÒ©Îýt)h ϧá9êîeFP(Ü°”“õ㠵ɡ/· Úêý¸½Í:öeF\ÐÙà>o›®ï~€°2ì<ˆ³ÙåöžíåÑÈ, "¯¾ÀÉ\F0yõfÖNÞÕØ:U½y}®ª÷õ·NÝ­»@Ûñ§zTý ꦛK f/›>oog“º¼ ‹wÿ®/¦ãWí7UpR0›6ÿÍx†Ñ€"€.Œëvp=÷úÞ šoØdà C(ëíes?eƒ÷[Êzs¨²=÷|e㶲žNP6àÅëÌ+w@P×;ítfˈK¾'7aêä{s›¤MàÑ»á·k}ôîmï.¹Ãvw‘æX¸”J"O©”„x°þñY$ë`P,)Æ/B¢ä{dF÷'’z>_MÖÉib ÔÈШ팶R£Zà"­Y¤ €&äð„uæ»|–ƒŽF‰\€"†—Ñöº¡zÙFÞÑø ;B%åðÅ+|¥!ñåÓõ ¹ŸFm ¼)t}Ô¨÷÷îìÍlÚtzVêêy·g»ÖGK¡ìýúä´“FQBò&#*NM,_ªT4ª^ž•ª—“nÚ6Õ»ê?o‘Ÿï>wÝÍü‡ªúúõ«¾®»ñe;ûþfÖþ«èvöéÅs×™ï H¤¥ÉêÇMÖkïbOn”Âôá!sÞC 8úmG{<ŠC\¢8¬àÒŠÈK"š!n‘Ú–Ð÷jBßmð…Ý“d¼ý•ø¸ùò(´äÉjitV’x‡¿Ò?!I7›^_N¯® æuFä[I‚ÖTK¿ö¤$õ|@sÀ#¬$2´I,ý¾Gf±òfÊi¯—óf@KD=”+!Ðhk6éI!æõÕu{Q_me¶è+ëÌf¶½Ü.F-çý¸-ºOÄõ³æF%6xÑÍfGÀIÇÝ1ÿÛ)Ûʲï©lÚŽ®Ëmùxb.v!.’Ö2»ÈÚåðl¹˜é§Yg¾k_RÒrJô,Ü(„ {rS’²©/³gmvzï.nOön—-ö¬¯$sË‘çiM÷à=ZÊÛþ‘øxÿH´,1RXqÐf M™ܪ„ØàVEGh’¼ãGòêõÍÅt6`ZƒÃÚ(M"šÇ´pdCr⎮͇ý¹µ¡ä‘SÈáe±H­)н,(øÓ#­ãåmÓÔWe)^œšõŒëÌwI–N陸½ÓrÊß“ÕiÞÙìâ1hŽ¶'7 7‡g:x$F³Ý_ÈÁÿÑžWýE^õyÕ_äe!§dÉeCA‰tB/naeãàäYÎùÝáIr‚VCoäÇêf<ùKýðϾ\´_›G÷×ÒGwâ:JÚ•+¥#Ž7íäA?P(2èoQë ¹#"”Û9•›1LԆݴù£«¿½8ù„B ù¾*BÈ!“ž£*¤ã]¨Ø@ÚY·8QqùÑ»§Ûfú0ÚÊM`ïh»ÁüdK³“I_ûûr£k”+è~ÜŽ€¯]‡â»¹ .¸J?îrfCþÄæj_è=:ÀÚíë)¹®=6ÀÊ ì"ŠZ·"üŠ !k)â ƒ•bŠt Aë´—ƒJ‹÷á âN>Ëyâ=eí|ù߈]O\å~PŒ€0dó½™´A—ßGŽ›ºk‡=¹É.ÝIâ( ’Ký,²u¹¹ÜŽ;/·÷Æ—×ÕH„1=7â §ü×pÿ Ÿ¦±} endstream endobj 3635 0 obj << /Length 2681 /Filter /FlateDecode >> stream xÚµZYã¸~Ÿ_aô˺1G|ú’ð]ÎòD$»‡ÓŽG“*Ù¥œ³D滇j÷÷}¯‡ºšŠf`ý¹¸ÿÇÃ?}‰ÓÅ"™',Ís i¦‹$ÇI"» ÌN³núA¤Ð)iÑçþžGûÇé¬ÛqX-ßþ~ú"åòÄÙîÀ3–dD§;þS—ãvÿåiÓ„å™p‡-Úûƒˆ#·Ž¾Oô[6Å0Ð}W[¦œÉŒ; wÀ”»Wàv2OݬŸ£8:u}€O™±›çy ¨ˤXPälsÑ჋x ü…‚Ó²ñù¢ßΞñI#/2Z_©åN¶8©éþúT—O42ºµ€hE_ÇF/WËý4h"srtËî|™F¿Ô´û‹=2›‡“®Ôï `fÑÓn8Z„q‚ªÿ«+êYE‘y×6ÏÔº&üŒÅ<»YÈD‡7Ä=yÊ2X·B¸^ëa¬Ïx•7‹®éë%‡ Ž¼Æ_/)l|}Òàxzjxvµ¥þTv}¯›eO£(‘®5á-ѱQ~­ïêõÁ² I¦8¡"ã{Àk Räj©ÃÄeð‹ŽÐ°’/ûL°(òòª’))縈•…ѬÌÜÔn´T-ШHÿ1>·1‚‡)=É¢5FïY »¥k?vE[ãQú^e™µÒÆ…Ñ~ᱩ£a|*4{«‡¿üõ‡À–à†rq €¢ÔZ1/EŒ»Åû–O°¤4š 9%A„äÜ(©ésJŠ ¯¤8Ãog†.}WêaðëRâ*%þ¸T4êùˆÝ•>„TtÁ\©â0s%$—Ù,Ó6èžBÌ=ÄyâCJCq•,®ƒ1m’ïmÏa¿º6¬9ñµ)ûtÀç ¯a•…(QΑŽS€}5ªWÛ0/ÌQÞݨo ñ¬ãjËË4¼]Éêv4–ýh'&ü3>À{*ìtVÕN磛éòg+ =¬ ³BÃk7Dfa.–ƒ0ogËæ}Z§X5—6¹Xá\,ßקPHˆ!ˆ£»Ç÷Wµ(±/S%pYû?œìN­añÏQ$t…aÏ)"Þ›ƒàç6óÁŽ¦Cge4ˆ§œÅ¹Úøõ¢|ª[íQŠ½6ÞÆ;ìµHª©·>l)Y? 6·«bU?Öãð I™¬52"²m˜A; NA¯ÓLìÄóc_ÏŽÞ¥)JÔÑ%)[ÍXºô¸sÐ/ƒw#GQ:chDåüí»©­LõC{DIË(y!i)¬4qÉÊOáìÚÒ7gÄßâ_8ÁN÷ë( i&Û<õÝ9td/Bò”·›˜çã±èßM‰ÔšU*hÞQáHA}¸ °w NÜÐtûvj߇wÿÚR÷"…ÁptóÀNä{rÕ7)¹ŽdÞoÄ)㩧ÿåóŸ~ ²»Uýás%r-8ÆØ ¦gcùäžg®DËìéV•Ýœ’σHXälÝÖ$‚%Ý­Ç_—r Añ»ã {ÊWPâhN‹¬&IaŸ–&€ý‚›&²Â”·ßY8@ÊE¯é C}¾å‚NýïÉ(6|Åvöˆ¿¼<þÁ;# ÊwÔô†;Ø0€ç¨ÙÚn+ƒ_ ËGoÊžкÆ Güˆ‰ˆN»·e7<ͪÂ9Qà¸v uã܇FXTþþÕªêÊOz}ßa(9$*vljñ¤j”´ÖÊ)~ld=K€!Ï›¦"v@×n‰/S˜–îû®,ùQye?` îD H r#·ºt7i¹Úås­›Ê~ÿ™j°Ô0b³ è Ïõa™{Í%Éù ƒÈ©‘IL‹v…ÎjdRÜ°IÄt®ÌÔ裫YÒĵ÷1’wÅä+ · ’ 5ê{MìʽÀÇF jýjŒØiEÝÓ “¸£FÎô‚‡–<|;±àB¼9F”[ÄX¬¦K”!ÿ_$Ä“tù,ç«lxN£Ý×ìœBÇW3œˆñ\¼*{B2pÿ¬qeGŒV³8ÙˆZAš¨Lg!ì¿Ý+ð Áû *~ë¶iÆ¢tU²¼V†È“ô†ÓÛ˵ '«|ž‡2Î ¨·Ñ¦‘9~¬7±¨/º˜Šž}ÖÊ ƒÍòµ~Ù¢ŒŒâMQFFji 8/Ž1´§‰/—ÆT~ºBÇäæ–Þº:DFK,ƒ Áp@íŒy¿TÒÆ YqJ^T&a–#A-Êl’kå1!øüîp­:&VÕ±ÄWÇàËdS _z`híá¨VgÐäê ¸Ì˜ÈäûÎ@@ J%Ô¶¨†á?Àr ¨öU1£°Ê!ê³èEÈ|‹àSQΉå7­×g¸°_Ž§>ÒP r ( .]z]Õåèˆ.2lžÂþð Û‹³%§¼ä”˜/gjåbÅ}€F݆#æns/{­Åôª¶>¾×méÈëñ«6•SÅÝÌáâæecMmfƒø–¿ñ¢KÆñÜê8Ö/‚Ü[JRy[[nÁš´{ésT‚C¶ ‘ÏЀ g…â„HìUiEK_³õÚ GNDarÄ“8fÒ¡Oœ<1¶áqíêÀ ?-ãÇïãØú›híhLŽž LCe.±¤3Ö¨Î=uKpÄ(É@½„ÏÐétE‰Œ¶ÇÑ ŠæbQ¸èÔ5 e°väáù|»Sg ¹¤s-bҀŴ]OEB©±L|Dw1a1k©`ýŸq4Û76·Ó4ysP‘/*¬¢áº‚Ú–ÂH­×0¬iü\<[ŠÓã£F7©iœøå(®Pu®zØv£+æ¿7IG1 –Z¹:ä²…ÿšiöÑ)‚Q<¯'ÿ/ i„p¿™X»ß>ü`}²E endstream endobj 3652 0 obj << /Length 2894 /Filter /FlateDecode >> stream xÚ¥ZK“Û¸¾ûW¨|âT­` 0U>ìfש$®¬+žMR•Í"¡Æ©åÃãÙ_Ÿn4’%kœÒ ˆG£Ÿ_7n6áæO¯~¸õæ]¬6)K‘lî÷†LFÉFqΙnî‹Í¿¡Â»ÿÜÿåÍ»„φÊXÃвƒZÓ•ÅUkº]N¶ØÊ(´·BA§¤éïîx4-í#圤„Å¡·y «³¡._ÓÈÅÊ‘bI”Ž#›ÝMÞwß­,)%KøDy×gu‘µÅ¯ašÂTßÝmEýóѼ}7uQöeSgÕkÁW6æ*eIìÌ›ÃqèM«hÌæSqj‹ë ‹0žÆ1-\´$ÄÁÓc™?b3 ²ÖP_ÿh¨§0w">—®ÞQ_³§§Ôì:Ó~Fîš‚æ›=NÛshDWþnÆÙ­{=bìÝ·ÍádëéÜ쪬Mæ¦ õ®Ì:Ø.ÏtlMQæžÒ0@nÿðþ—eªí"âÃq›0èú¡xÞvG“—¿†¡ÈÝçvpß—G §£„î(áâ(´igŒÓOø1½iQM©ùwÔÖ¥ª„’‰Ä+Õ®Ž×”›CZn4žŒ‘œ¥Œ§1ð$a‰ˆoRúh¡ô‡Ï«:/X’Äg:¿)šÙ¤Eg5©žåäþ™z3§ŸÕÐõ¦-ëêþŒ,ÍÚ2ÛU†F Ó@Ëè3Êæœ^Kè-€Ö\¡W‚j0P®ƒ‡á`ꞘµBüy?#׊äÀ@,• •Âk&‚Ð_ÎMü‚%kÁ8÷Îæ¬ËF‡b¶ôPùWW;çÒÞÀ#1: |ñ²¸a°­Èº­åV4ö0T}I½NFãDܽ¬a*x™ê™8êÆRž.9fÍBåàº_Æ ÎZ1 © žÉ±ßme’’p æQcfaðöTöeí†Ðc<•}A‘õÔ$3‡%½ÓUÖÅÔóÏаÇÞ.œJB§YòA©3òO>}ßÓùÕ¸x2'?WUƒk>uÔ|ͺçñoú2Ÿ³*¡Ó© ,·Ýo¹gx/Ê*w(Æ=}@Îbðy=ñ“ŸÜp“°TICbÐ|ÃX”F4ª\Ñ°ÔRmfƒ +ä‡ÖxŸèüëº òéäŸMkVhãaʤöÞïÿ£M/i«›~¤Ëûûz8ìL»$véÀ½zͧ9ÎÜ-—œI¥—îö£±ú&Èún1woïe½¯Sç†9$r-hÅÀŸ¸“ÛvÂÓ4^ßõðùꦂÉÐËŒ4Ý»\³2ê&ù–-„‰-0?qÐÞì¡n:PöŽÆöYï¸F*˜E&"µÔÛ¡3û¡rú5ßÂô(´ÀkYƒõK8G_fnhx¡¿ÒÓz¯Á[ô„\Hø“èof¥ˆb¦¦¨|ƒÜ JÉä[ŦÕb«ëÂ’ ,5 k¨ "1gCÉ8Çœ9@³ÌÉNùÇ]Š =˜Å.—à Z˜´Ý?•¤·Þ ¤y߸nb9¶¬µaÃzE;=ùþÛð…fûES =Í~î¶d<–g¹Äà‰˜–bŽ°ã9j÷n¡Ð’ļʺne{@Kð¢ã¥F¿®Ê®G{[Å]€/¦Â% ­ƒ2;ÎèK9…oê>+koÞ‰M±ÇClÖY÷ÝNthI¾#f+8¸›xÆÃkš§ÀÁh1!ÇešÎÅ<†‰uá¥MA,8…Z7ÊnŽÕÁîMÿâýyˆÐšŸ²5ð |Šù:¿ÈWLq1b-¢HgnçjÞ´pŒ#f€£L={(iÛ¦í®Sá–\ñûí4,!o1ã,OÏ°£r>éïSÍ´7 ?aj–·´ì‡A¸È˜ƒëŽ_æ à¹`sN¸Jêo× d·bJò¥Uý“ÐiJè/M–ÙSšœfOÐc=<}k ‡Ž U`N‰º-õSéy¹c+ÃÞ¦èŒû¡­Ç-G§8§ËÄy¨ttùØrQY°(YI¾Zœ$Af`¹˜ÄÑ jTÌZö¤5KT4s;kõ”ˆ¥Se‰ü®›uô,L—¾ÆSÉ4 ²]ƒZDÞˬ × Gg° CÃo&ÕžZª’ZðkS`¢ãî˜W\=2†Ãž€®†žñçJëztpãIüþ—x»’”Æᥤ4>Ë%ãE.ùR÷év‚W³ˆ³øöâÚѵԣsNc¤|î3îÇ4×[´­õÁœÀ!s^­ÞbãØ¢Kv/cæx+`sïûìJט'@CYm–¯‚û; çŸÓHmŸ³ƒ(AðöÚ¦%ŸEÖ»Ö¾Û²™}äÊQÐIå(h ó/\§L„'Fð"Œ.cVË:†40»ýµ³ƒ‘>…ß«è!"—Kðý7Èa_„»ùL%8ú¢ áo{£µ€ÝìEŽ¦ÒÂÒ… Ó7AÚÉ5pƒ<«ò¡Êúqãµ5”¡Ùø‡z:™¤,n¥¤!â*ç«Ue i·w¾}iíPruµ`yDÝñ0p´gôآÕN!oŒõ’㇃ µ[XÃZzbCz]v®—l]yéSf þ!ô¥k; ó”ŠT™&ø>Qó>Q/teBqòøötZ€"k5Oˇs”Ýxš(Þt쮳9Œ5æ0W(N..†>£ë4P9ìIAþ]9ECæ듳 õ3ª…cÈrVÑà–íÇ؉¬³o-+æØ9KÛ™¹5úöÙ5Ò”a¬þàVŽôܹá˜TÙ:àDg2Tšâ6 CµÍÉ–W.pp[p|¥ŽYkc<¾=¡î5-©`KåûcÛä¦ëìY¢H»Ž¶¥Q׋ôÑz~Ë3÷%Xª|XÇm«ÊTo_wu󴆌”fJËYŠ±¯ %+KZI ÖÖ0Ù{å-Ýúí€fS©©ÎÃÀH¨7~+PUIl”¢¼êÉ‘´ôZS‹ÓÃF„õßlù .' E¬'ƒÎKE!íÆ7äkÓV |@5CŽ‚+«S:•av‹##±¬â;/ PÒ¹2¤8$x`û-éaú2D€µ×sI_sP¥ÓÍ1Ë?e^$cèˆÊ—R*)R¯’p@óáãÏüë,—¸RÆUú‹ŠEjvò÷ÙñH·B®Ü$geH'´\ZrâŸ0^Ñ¢hž2Ý`² ò{5¯ ­·_T¡Ÿnä á_=/07ô¸ïÚY’ú N+Òóä5¤8ªôtÕ¤1Øp¢ïBGn‡ˆIO°pãòŽ_êòË›÷e=|ÙfUé¬e*Zœ„Ÿï+‹,ûY˜ªÜå¯õ-µKw;œôGwÑÛÐÓi>6½Ùáβá+`ïœÃ³;g1^uâu®é×þŒAWO¥c:{`Þ¾ûþýÇŸÖt&á‰y§CûtÈ’ôTWm]VF‘ÅqÔú€!Ïôâs×:7olÕŽàŽ›äë°ô^º~Š¡Ðchä 3ö²¤Fk¶ã‘ ·õÞª6mÉóRÄ}\½“‹>{ýZ»l“ ¶ž=tc»ƒckåï˜,tùºW­Œ+:x:m…ÖsiªÂý1ÄŠúÀÜÚæ ž´—n[Äg™Ž]}žé¸Dñè¤Î4/n°W²6M¶ÐÂ^€«ë7çúâ͹>-R@Ï´kÔÄ`«|¨¨-ÐÓÝVî(²•7b-EüéþÕÿÛ?»Ž endstream endobj 3666 0 obj << /Length 2533 /Filter /FlateDecode >> stream xÚ­YëoÜ8ÿž¿"h…è(–äg±=\6×l»hoIpûáz<¶fF?’æþú#EÙ{Ül Ü—±ž$%’?’÷|wîžÿzöËÝÙÅuÀÏc"8¿Ûžs×eÒ ÎCÎY ãó»ìüßN­uIÞ°ºHVÿ¹ûíâÚ6É8`aI³\„¹–ËÅ5?f±–ad–¯Eƒ’6é%ºÌ“²§ÚîWkáI'M…-áT%´{E‡•ð¤ÖI™ª‹´ªk•'­¦eÂI«âP•ªl›78à;›•p®¥YÝXòU ‡Uu²ÉŸhd»â®“4­ªiå×w“2£ÉjÛ*+Æ“Vyf©4ºÐyRã™à¼æk¸ÑØ÷‡íò¶Rœ™E.Ìû,ÍD©DìÉ5ÊÊŽl}UÓèMn{mEß/®+ìBº¤Qe*§f²¥S@Æ”½èUÛq“ÑÃDcB‚1øQ¯‰—© ¨YUAk[WÅL¬,iaºe«µt¥s·7 €ñG[ié’è…ô™óé-ê’$ÎÇÌ@K½(ÿ¼\– æùƒ´d5y§Pßu¶UMvŸ´Ô²ÖãÞ¨ÛŒå¹.wKHÁ|¡nÚ.³[tùý:2„5ñ¤áÔ.ó¦B«"#Þ)O1?òzR¯ÀOYñðj¥'Xàñ~aµùªÒÁÙ´Q´ú¤y‡f§„>ý‹ìV4•j4:•ñBG·4C– ›Èradc÷Y.ôŒå"/ðήUtgBøSe“áD~/:切H+î;ÆÆaº›Ñ4j¥mÍFÏiZpÛ¤ÎôUFk{`£) ­?$u«ÓýxÂØtô–Úƒh–¥-­Pª"U$m­¿Ñ"ðµÞãOŽv5€­58PŠ¶&—XË䀎¶ëèš¡a\͸3~„“òžf-ʬ«ÚÃr5¢¸äU"!Èp«%7²‚û~oì yæFÁÔØï"ÄÜÞ`äÈÞì,b€da8ˆÒó]pÀØžJ$ì›®è9´ ¼ÂB¥è dJ ÛÊU¹#ì“@c¶ ñÎR¨õN—OÔ??àFÞï¹ sÓdè÷œËà‰V6Ý‚^k —Ó­ÃD­ &Ñ ÚšÙDC|ZÀ m ; ¸JtýIPÃ>9!¶Æ»‡Nr8䚎ë;YWûIHÕ^:÷éÒ[Óí*Ý“ðd[][Øé”Ìû„G[ôN3óxßy<  Ç[\Q‹®Ï™D/r},™h‡!¤Æ"šBÓ5ªˆ¬Âƒ§-“ª0H€7/ù`œûÓ½ÿN€ŽÇ¤ícá!ó Cë Új‘d|ðú7 ´|FÁQ®B1r‰fëã¥m7ê¸Þܱñ8Rcà…S¬¤Kƒ ¬ ½¶àïŒG3¬;ÒèD³ È¬`ÁqAÁAK"`žà6[Zù˜Øï«9›,{RŒ…É4~¡²#Æc¨ü¹‚´¤Ê·»˜¤I€ê¿VDH•îÛMÒõ1¹,Ü,$rr .??>lþ^¨6TYê m‡Uõîo‹‘Ôc¾œªíÌe! ¸ç5o›7x† OŒgÞ}Ûš·¬ç ˜)ØÈ~V©MÅð꺡Z™ß¿Œ!qO”p£¶Êx•‚j¬ù‘ûmÙùAe;eŠ5(>1üz =fG¢`û{~¯K;ôÑ.D¥pð¤#©’¥ƒõÃ߶€Z.Ú¶¯L= (™¡Ñd@Hzjt³¤9°éPŒ)=7ܹMJÚý­@v••õêò-M\¦IŽ‘öY‘`QÔ—ŒÑú| ™‹¶tžÛ¤ç:ÝL8Fˆb¼p¹k#S3WU™u© Fax|87B’aê†>6Ú„}Œ¶›(PÂè!Iï“Zºo l½hæßé«®¦ètlZ¼î×M?ÕXð-Þ€Ú2tÔ‚ÂÁùg°71Ú‰£È`Fl'FÛw%^ÝâÏ¿x[p{pf•Fw»€ò”G /¾‚6\0BíÊî—Ó”dÙ$DÐ{¿í R Ç½êÊŽ…®ó™Ñ -\²ÝR ïZÈájš§Ç¯m3Ù!Àã@àd:Ù•úiC+7ª”%x˜ÙÄÂTÝ;EÄÜ[¯*wš¾~ýl!zIÇE‰àÅÀ—òãæNŽýŸ 4.ü%…ûPVzÁsú†„öâkÝ.f4QcéM#ê­²91¾-TÌ  ~4)‚mž¦³4³Ç®ÔÏå€DQ8KF^ n0 '…éþ96rÕ1@ü Ÿè˜fÃÏßÝøÿãD»¼(~„½ãPRÿ2–‚½ŽÕýw &Cï䦯÷Íû´}/6™+½{ö™xò ƒ{îÇrËŒõ5ZŸÅsÉLÝ·ê,¥öéп«öS³®4±¯[kݶ–ÈØËïhöz®ËmnP‰½À¸£ññ©è‡TÃð‹Á¦\Ÿ×Vƒ±8ÑR—l›ý«=4Pu1ý®gž¼ ,ˆäûoIqÈ¿“wŸæáp¬«;oˆÂ^çëׯ±j0OÞøŠÁ»yµ£F­›{ÛÂÿ[j›0a¶á?1Í’M“uàPƒÒ ½ûŸÍøÀá‚)ÅíúyM_Õ È…Jš®Vï^Ýܼzc™êwí¡jlo½Ríl/ÕïÒq.ƒÞ8‡o9ïà‡mÒ]_/¢$à}1f÷°ÕmÜ2«ŠµÚné!ÇHq ©U3=˜ žâI[ôL˜¿¤/»MÇ8¨¹\ú¿ž¹ £ÁãŽÅŠ¦O (°ðå‡/ô7•-Ý4©R0*Ù4U>H‰ÿÈ!C;w´l‡þÚ8±Ï÷wgÿ¡W± endstream endobj 3691 0 obj << /Length 1474 /Filter /FlateDecode >> stream xÚíYKoÛ8¾ûWîae bHI¤¤ÅúE“‹æÐÆ=u ,-ÑŽP=\ŠjãúÛw(’òclë³/æh8¿yÐboíaïnòçbruK/C ™·XycÅÌKA,ʼEá}ôÃ$œ}ZüuuËÈžh”`Dq Š!Ys´®êZKN°Ýàê6Š¼–°X/ "k‚0fdWŠnPŒý?3‚ª¿1ÅÛòµùþꈺ-¬èÜ ?ÌÀ—WV¦àŠÏá4m Ø„e$5»½zõÊæm½é•0êÑê Ѩò»(¬1¢+‹žWSF0ʨEFZqm.º='7‹É— iì‘SÀ ¥iìåõäã'ì0 Q”¥Þ·A´öb€=‰# +ïaònÄñxÐî9Ìb1ñÖ¼ôEŸ0z°0DYJœï…âÁuëmWÖ!ÕðsC܉FÈ¡>¯ >šù¶l—†Ö0Ü—O¢nV3’ú+‘+Ê0}ßÂàx š%(aÙ¯d"˜ˆ` ácjNõFt¹,7ªl›,v˜fD(I‘ƒñ¶oòaiaæ«V‹CeXµmF|®qSen¸â „Ma‘l~ÒØ8šBÔ6…Ñ$jë@¬f!5˜Yµ¯AÆ ³ãºtªöÖœµ¬1Ç…+Ä>¥.Óô²5Dj7'd»M4Ýwe³6¤v9KüµvùènàWÎÝìMµr%y-´È·Á~+?#°–fþƒF`)ªÖÌ »¥Î͇)%Û¢·žÑñ¥=3ŒfÁD‡ F©'מ#ßßÇKÂÁ±  ÝpŽV΢Ä6<ÿÌ×â(‚%‰PŠ#§`ÕÚ\¨[) U€Î²²É4Úú(:á$µ)±¶„AÄ T0°’Äf‹ݱEÏÇ5â0¬]uÐnä®Ä.‘;¢pDCF*tÔÓÈ{yjä©ÜXÂǹQÚ½qŒÒ(<ô±.øn¡à]/Å^•·dWñ¥#ûe'ÔëSÑ‹bN®B·y;Ÿ¶MµÅS§O¶Œç‹÷n,ÂKÈ\l”eîëd£u¢šO?Ü£Û‡éh¦zl‹ùôþ­ãämYµ·yÞÊùíõÛ·“šO¿OOÚ]‰¯°GF{”»çšë»wóÄÝB.ÛN¨-Êu©ºqO-•ýB¹«ê8âXh¼°p×Rg캯á¦ëž©Ÿ‡wÊa -v±Î‡´rªÖFHÈ£Öþ5TÙÀ-ýûÿUìvÓ<ü‰­Wxùb¶2¸íB—­°ví×jK³+%Æ 6Œæ»rÓ®~®Üæ Óÿš˜3î%^å/…(J²±¼ŒW‘Þùùbƒ^ œ›¡”AY!áÐⶼàvnù·_ÃÍV¶â‚ÛYñ×𸳀 /ÀÜÓ%âÎîqç§.wÞ¥ª.wfª^p; ·ú‚Ûyî‚Ûyâ.¸—§úé䧑k‡V9¯fA‡ºiCRÛ´Ñbzà0S6yÕÂ|´#¤‘2vkŽî”I®ZÙ¹uVÏãž@…fM©mXº]ìüŽÚ@0Küœkm™n ƺÔÎþ:ô¥íïÌ7Ÿf.Uhgë±ÍZ=š¾Ùì"Yˆuð|¶³}3Óñ¥Ûˆ¼\m‡nºÖkÎ9lêç“^tûïzÜAˆ b˜è¾žYnÍ„ɘd´"®dùdXßÊ“X„iŠv1{ ‹¥tìˆK“z=_– GGÍY÷¸1¸ '`E£=´5ܼ­úº±SÜ>Žbñ;,f|¶,ù²3Aœdþu¥„l Ïw!RmgŒúã `pO/?Ÿ÷G ™[÷1ñubˆ`S¨ÌØwîyÍ5DmDÕ-—6Áö˜ÿ¼1Uâ7t²W{³˜ü  {l endstream endobj 3703 0 obj << /Length 2581 /Filter /FlateDecode >> stream xÚYÝoÛ8ï_aäe fDJ"¥;ô¡ÛK{hwmû°wÀÊ 'K>}´›þõ7á>Ã8Žá‘£9œÏÇÞêaå­þùæÇû77w’¯bK!W÷»÷<ær¥8gÒW÷Ùêu}HØCq8\ÿçþ_7w¡šðû±d*Ža5Ã)”Lo<»Aÿ¼¹óýÉW_Eæ³P@ôéãƒNš®Ö³Û)ÉâHô»¥û¤NÒV××?ŒÖM[çåŽãu[YÚQ§ùî‘&í^Ó êÚ´:hbí·%û]×Ø·»ª^||Ðm²Iʤxlò†¡´ Ïô‡!ÉõkÕ4ù¶~áëêØæUÙÐ$¡ó-ôy,â~¬«_>_9T-pÕ3¹pE#þí…^Q=Xj” ðttn%É2+F€Lo’ðÀg<ìyõÓg·,`?~YTØX°(Œæ:z*`ä­ó2Í3]¦¸ŠŠQJM/ž—×—,ôå ï¯qÊ«˜Œý¹¼°,É ;YyóÖÒŸ<Ǻ:V5Úò-‹Ë€ ÏÏK;¤ô˜Š¦Jýø³KJ_0_-´öRÂ`´pè’1œ+04jÓlOó@äÂc<„gÈ$—´q–´ÉùAHî´£ùÖŒvur°b¤UÙ&yi‚sv ‘»éŽÇ"×™e¨Œ»®Lq›Ó‡±‚ÍÓÉöÒÃ|½æáZ§moˆoy»§,ª‹ÆÊ6µ“1*ŸeT_1/úþë°;äÀ˜÷ MÛe¹nNŸTÁ<©ìQ•ý²Û6º½è°B %‚·¦ áë²;è:Oû(åsµÀÜX ž˜k¯ùÚ¤[C7ÖÃ$˜W;K£cöq˜Ø×;êŠÌ•T·Ö 3gÅ›Á,+Ce ]Þy4ð9-z¿×Mÿm}í«õ¶l­eºF¿ûä>)³bpesx~‡"„kË“ê¢hnÒªƒ¥nvfaý¿âNü·S†õ¬x‚ÄK²ì|s–U¹)5Úæá:\C¼¡µêV¡!·º¦1ÙLõÑ÷–39 èsN”eF€#Û‘9î[Ç06‡6i]HA.ЗM{—äëo{º– ¿¤H»Ž`Ô,{W‚AžTÓ¡2âÕ;<çü‘8šü;-h=?¢ro·1&“Þ¸f^f¤«2¤ `ˆä-H&d¤¯h…¤èÐÒø¢+3í*ÇÂ)ÙFÙB:1.£!+S^2Ënívð¶$Lžªƒs;ÈÖœùBX¥ZÝ\Ueñè9a@À"9Àê ™¼JŠÂ‰y{òüeò÷ÌJ~ øm\N>ƒsã I;%ƒõ¢AµXX ¤‚(¦ò¹7 )œšÂ™‹xBÄÁ²0bÞm¾&Æx0 ™³B î3Ž›Ö(bzΉ&ÖóĘõ¼óCj(ç>äKD\N‚ˆDÆiÍd(ÉÈFXÉeEÏ4its£Çªbê$ò¢÷Wvôê ?¡dÊK"o+XØ‘eêª;ÚÀ}m9üQgà)¡/¬§`nØ÷ï$Ì°}‚8?Ãú! cõ óC2Ꭰ‹;ï(L H¸ðr1?²Û'Nâq1n@Ò¡Ê´¸7=>?;R\Ó)‹± t«³0‹…Ty 9<ÕÇö?‚üŸ34)&®Š“¤¤ç¸}cýFX¿1¬”¥§K“*`p€ ¬6`†n<¼ÊW`æéŠvæ­6óÆ‘þbÆýÁî?ÿvë*+0ržûN&O2/ð牀LxIiå±7”V£J ­Ï †ˆJÀÁƒ.u†Á‰õÃðx´&¿Í¾18@@o}û\U”Ÿ1n®~ûÄªÅ¦çœÅÎh,>ƒ±P£ÎZç³(PÓÝ>¹¬øSÕ^}øÄn?ž³…“³jÂñŸ®øþŒU=B¡°ôŸÿ òà 7ÇP2Å ‚Ъ²‹J(58”PÔ@3´áb“1vÃÄ®27¢¤Ø­²+%ô¨!ÿT‡ÍíbëS®ú¢ècOÇmk*†ï©õû’È´í|é`ÌŠÀ‘[R¿Qíí$À(žÖáрͽñ"OJ}wu{ë2f05vŒŒrýž6°Çï+‡´´ðþ¹øó¤ž7}·hfÛGÛhÑmëŸ#,ãOÄÿäôÅP11bÂSÁx©ŸJ@*šûiZeVö3¯ÄÔº …w§U oÃ5Çôr†c !™ošÓ^…nÚ˺j„T¾â&sT4} xÆô³ñ ðnÚµç[*¿_G°Q‘mjâî¸LCû¢Ž(·ÈPrq­úð“‰ÏØüÙfÕïC:ƒÅ¸|Ûçé~Ê8u›4±À]Úwô•YRÛ—eU(¥€>r´ûöZ& '6JDëßOG”œj¥=§ß"”o‘xµYnJtSôeÔwÇ‘R6­N ú‘¡ å—¦tÑ“1zTuâ’¼úðC®œÿ?kéT“`ÐàߪÆ4tˆ™aj Ž÷Ô¬%GŒ¡<Õ´ ýõ5W  €ý‡>!µ²¶ºý¦ûf¢GŠBxÉ=Kq4!ñû°V Lƒ•˜‹Iï¤û†ÏD®+mšgþ½‡rú‹áß.‹MS¶õðòMÔe…m{ÙÿM|ñç·myî™n|jzõÜþµÄ'×SœØðÅ÷iEù uŸæ¶ÂmÓƒck?-ºL÷+ÛE÷–PJHË”£§ÿò`¬¹±¨öCb»,&|h÷}k¤þnD­˜ó›2bÑØMx¨õñ”¦…`Á¤ J…¼}&ô÷oþÒöÀØ endstream endobj 3709 0 obj << /Length 2497 /Filter /FlateDecode >> stream xÚµ]oÛ8ò½¿ÂèËÙ@ÍH¤>Øz»M¯‡t»—æîe÷€“-:&V– IÞ4ûëo†3”DÅiÓ\"zHç{†Ã`q»o_üíæÅÅeœ.r‘'2YÜìa%‹4 E¢òÅM¹øe)ÓhõŸ›\\&ád©J ²‹ÚC!n«ÃW¾ø÷½¸Tj²u­bi÷®e @Eê×oÿéížÑ–&"Ϥ;ïØt¦7+/_…ñR¯ÖR%KS÷Þêé²oh¢;ê­ÙÝÓ~¯i¶>6´2Y6;ú@ÒñØ¡)>í^¯éløWT§¢7õ-Ÿ¸gZŠ²8®‘! y òÌã˜HŸ‘‡Ë·Å©ëÖ×íÁô *ŽÇ¶ùd+ö¦© jÙÁïž—UÍíº2¿­Â`©+³ošR¬Ö‘’Ë·¢Ô;œ-NUOË |S^ùQ÷iYŠ8ÍîÁQCß>Û¦muwlêr6OôÁàª8VÅÖ5ýt\Y–à|”}Ô¼ö¿?5½þ‹˜Ù€o9lë0iÄ„þ®ÛMÓé§ÛÍl‹ ŽO¥%¿ƒ…¨T-ïöXhi¦9õÇSÏ«öÍ©*i¼Ñ´øV׺-zÍ`Ô•E¼çy`ùĚ쀦æVœü¡)u…"I–¿ì"bø,Úd¦X˜%Y7õ$æ0vœ_¾¾úø†Vyò‘‘ȃԭ‚cBA‡ü@šC#ïm4Cjú=õ9£Veºü÷ NF×Ð-ÿ+­é—“™åªD@ÐL -¹ )ÙH#ßÊ~JskúîéæÓÑz­ýÌCŽâ£¦!G¹¨€Prhí@¡&·àŒýe6Eu·7Ûý ѱœËsÆF8âl´Ø8%‹XÛœêRc¨H”Z¾ÛôT[’Ñætù `YÄÇÁ¤gmˆË0þˆ±X5 ÀZ þD¶hQ¦4¼~ûbñ‹ÝÞå{¬…g6¾žaiwjÉ!QÑ¥î SqÈi8´ìŒªw~Ú6uß6Õ,( a·ï'›z¶ÁÙÛ“-+"ªÝñÏ0- ¯L‡®ÅD%@F~²1ùXƒIJM0AtDw=ÇZš(ªÛ¦5ýþÐaìIõ81W½ÌHÙO kbtŸŒðÎiKØjŒŠ$ÓΔz&×Ý©Þ~“LÀòB<]ÖEYšAÚ–òU˜-oO ù_pL¦Gæ)©”°üȶx®ì™22æL$íÿHQb’kY?}ñÝ™PêP"c¿¸™‹’íÞ%Ü OŸºQÎ5Sãž;0Œ¹~šª"·èƒ0¿wzËúïÌNõM;x g]t'HßùÎ"LP{‰H".•2þœÊ3%C½Éx¿ùáúå)%RÈ$q‹wŽ4L ý™Í¶¨;˜:è3_ºZ¦EÙt¯|º×Põ¦*òtð<ºß]Ÿ'<2ÊžA¸©·à`õVÔëÏòn&߀Ÿ¯>|=¦ÿ 'P/› ³7¡Å+ú9Èu…Ûþ4ÞÞ]_ýtŽ¹¬KæßFIj ¸@~Œsß#nöú3™t^éeÀµrDé*Üí碡R"ïocüPc·mÍÆÖ!ÒU‡ táJ‚÷û¢§ÑPnÀ¶ ïšä– Dµbcì¯ÉSÒYCšÉÐ/l Ü0½P AR VF_²ï±Ôþr”} «¥ä\×ÝßÀ¦eøºŠ†ýýÑÆCR*ÄÁJºDiªbS1.5/€$tÿ’g)ɦ•9ØC…NM’V„ÑÔÕ ”Ž¥{ "ÉD.³ ß E˜¦Ó$¢¾i4õA(ï-íoY$"™>1FǹHÓdzé Õ«L{žîõwX4ë[¨aœ’ÆëtÝ»ävrCfáay„…0ù>5^G"½›Ó,Ó¸BÈúùÿ“ëм¾ù¯÷âòãYÀDòØG_ЂŠ;('µNà®_äî’ÖT¦Öï;˜OV˜åzLö-s†Ä®\ Úï ©®?•÷¤K&ÍSåëŒ#ÛkÜ4¼W½ÏÇîr e„áƒZWûb÷´¿Óç30øm ò'ŽJÓ/N–?ÍpT:H“úÝrÚT Çð,—Õ¤æ¨äŠÃbc*Óó:¯ä˜Ë¡M(É2_ˆÆâ¡»Kwô«Ø¶MÇc¤Æ¸ cûð GïiÁ"ØÑ—ë%4¶¿º½9’Ò-FdÆvc(ú>ÔŒÅöì‚MÇÀÍù©u-ì: ‹Ùª; fuæK?ø%ñ¸í‰óà 5ÏØ»UÁÓ÷(„Pj Eìogtœ‰ ¢Wy:î 㨺Šz9; ÌeIa;§¦b2Ü8ɳã$ÇWT(øqšÏz²”û×2ϾaèógßùÈ7ÌÐ GS\Œo2tÝÁ !ãW£Ì7_Þgï2ö=¥ò\/Öv·ý÷\ËoÕ™‡ AVb@9ïb…~ýŒ9æP2g<‡ˆŸ§ONÝÊuBî®h Eƒ <{O@#éFk¡ó³B®Ûܬº(ŠÍª8ò…Lb°g«(¥G¥ˆµƒ€¾é©F͸Ýñ·E§» ïjÄ+lh¯.ì›Bä4Ø·›‚þãÕ‚LCŒ¯-èÑË0!•.¬¨#k¡tõS¤ÀÙ}¡À`YƒÀ¶ÀFK/% ŸU¼¼Ç'ZìFhˆ’}‹y§JÈ٭٠þNÜÕPü*p(îrˆ#¬Ò ¯cɨ!BáÓ‹¿Ù÷´ÇòT¯%‰}z® RÐç ÷øN‘LküeOAÍAº4üZˆ,iÀ0!„"yÂoA0Ç9 ƒó»úçº+on^üD]ü endstream endobj 3716 0 obj << /Length 3550 /Filter /FlateDecode >> stream xÚ½Z[oÜÆ~÷¯ü’ª¥9rHðƒ[Èi ; )µœ•ØpÉ-É-?ô·÷܆r)KðCaXÎÎå\¾s™ /î.‹ï^üõæÅ«·F]äAn"sq³¿PaèØ\¤JFç7åů›îPwõápù¯›¼z›¤½ÎMæ9ÌF”Qš Ñ‹P¸ØêTIž]l£>ÒLV4åå6ÊÃÍ®=OC1TmSÔõtfùÆ^ªdóéh›¾ºŒ’ÍŸøjƒËmå›_îmß÷–É›ÓáÖvÜÙîeÞâRmzÛó[%ŸØbwÏßôé|A!ê°íl [šÖ–[Å…áŒp¾-0)O>Ó]מŽHmúê³í¯˜ºm,wÅñصŸªC1Јr'‰äàÅnà׺úãRÁ®ëê¾mK¦½}Iøq[5í¡*j,«~èªÛË(Üœ¥W¼ñ÷Ÿ¦´EÙ˪íÚ)`^)ànåîTvD›ßÂ$~<¡_8ߤ_øq ž?µUß“å„çÐ4îèêS8ž; £å™N¯bJ ÎgI M>´~*é|”:€®Ê}¶ºÛJ¸(Ë;‚?…#›«3# R@Ó™V¿éAÀ|²x³ïÚ¶ôföÓ³¹C?É w¶±Šiœ]" N jÍþ ûî‹^[¦/ín\éã½…I»9Áoa Ü…¾Ÿö? 9[n·“kvÝ‚µ_›G°Å&-£Eë°ñýC¢6o‚I|#I² ÌF)ð^`ÅÙ ç"Ì `2£ÉTBMgnð ½7n©·빺¤&È"5Ùépß–¯_^_¯iP‘6íN¶r0 ÂàÿB±Q™G6z‡LÔ£‡Ìà ÍÌì‰ò™pˆ‚Ï/2 L/ù~ÕŃL¢Ü¢Å ó—¸kÀpTâùÒ›ZrdÅÀ”+ÊBöE¼Fs®ÐÉñ\F‘åV T;´‡ö$Cìk±Ut¸ž‰aeµiø­³{ÛuÄ£X‘X>ÿÝyømÓBt]ÃÝþâäZS_´C±]ÙÐ;ä)ˆöêj›ÞÿÞÀp{;Ü2 1ˆ“> ½€ aDQT~rM<§|ÑŸ0ÀN·M¡­KnÞZ~NGW6ã³~,^=ÊÈ D3^fÕ5ÿHQuš‹[Ì€¶“ü Îßv=pÜ ·–;ÀƒÖ'Ž ·’ÑÂÍÞ zþ¬¤oØ£8 â²÷kÀ¼ë HÀZi„Þz¹ÑQ“ –™¡ŸI§|&xÞyîI†ß‘¦Ð _Ñtº©>rqž»¶>q ðΓì7N)TGâkÍõÞÉn±ABã PsŽÂTÞ)~ÑÈ#ÑcWq'S×ü-du€Ä(ôºˆÉæ|ƒÔÙŒPÿÏ5´ BmA,G°´2Ÿ ÂÄ|I àÞTäD7(!À†`#$:Aªâ8 @;à!fbÍéù¥'ºy+]®1 Ž^YÐÀ¿ÛÚÒWœÚàn5vT¨pnh„¯ù±,-)2lKu5BG455ñîœ Î§³ôNQ¬Ò­<¸$™9ó«SC3J¦™Ï§i¥~¢=c𜻭pICàà3I¯¡‘g:ªÜ®í0¸mŠN2 ˜20e›¦8€ ‰Æ¨µbÇRˆÐE.…'è¬ù¢_~åEª¹ÂxÁÙ²{ ~ðh;{\ÄÂE9¦q”>'.NB?í‹s ŲC?tàŽSûéWQ^ÊF3nåõÛ7ï~¾^ƒºCŠ1&c[R&PY´ˆÃk˜ª)‰;hJ`剀=8‹S/=ý:Pt¥”Úà_]tXqãæ‡ï^,ó¿8Â|ÜHêpª‹Y©nYØÌžÀ¢h†â¯N̆íK'qz‰óX¬‹ÍæûÆ r‘ÍÀYz€G+G\w¬**ý„cS@øLçŽq‘9å€î÷ `›¼%öY¤›ZNÅ…5x÷·˜(É—Ža<¶ç§œ™G×tÇ€¹eæQàú¯¯«+988þÔ¯<Ž°ŽúÂ2¬„`l&Õ+èET™€sÙ±†$)x‡P-*oQƒÌ1üÜQq„Ò~½9¶õG»¯úc]‘^cæo»ƒ#a÷ê ÛåNÜ4t°öCƒ„O[ôeà0…ƒ€Pä‡OWœ“ž÷Xþ ǸOt3C h Ûu±E>Öšah³d\¦ËB?Xœú9rÌ+ DF‘6ψ'ô›*ËYO’BÊŽW«ضL ¤ Ã- SuÁ¹-IÌ9ˆ¹lQâV"g HŒ±5VU^q-[Þx²å:œÒöq%ƒÔ¡këšD d„Úþw~Ķ’DŒ²ÐqþE»Ü2×ê)û —öðu£tÁÆè¡W‹ÓpŠ4ŸÏÙµ¶üPOoˆ nŒ•È7,U pÄßë9ОyÜÎZ¹DñÜI÷©F‰¾ô?ž2Þ.A¶®ËË^SMF"»Ÿ1Ë… ¼tĆ›”ð¿z_}‚Áë½6pä=å”ß®°c½ø&RÝ`Ûc.E&›cÑAÊÍ$ø.DF³Ýp’ë,¡[¡Pü&>9:¹ÊJJ›››§ç6§(@7X°{¬î‡ÎïÉþÔè~;¿S!dy˜ å:ï·(ZÜÒýºMBOJcåkª­-‚ªEéÓ ™g)‰!'Ñä%tÌD)D¿9˜Ñƒ8Ó|¹Èx-rˆ="²+÷BÀ5ëjq ©Àç¤Âz‚‰'ÙÐ;ýzêøka'׎H+]ÌÉÙdÁµ{Ï:dË£ Ïö´PË'7͵®W«Uò¯c–y¨Ÿ+Gó9š¹m?ÐhéÒ\Þ\Û¸b{µ_/®G^ÒóåBâ¬Zêå: ƒD/l„“,™)Af¦"á­CW{;Ô”ÜË´ †&..Å@ß”>coy:„x‘Laß6;§—%ÓÊÓ|ãMîsõ:—k ³2‹›š •Ôâ‚aÄÆøaËÏ϶k¥èr=+4}D¤\‰rBð®éW ÕQîY§Ýl¥¬E _0|,WcG/:óWŒ©x•ÇuBéºo¹Ë¡ë•wB‰Ë‹´¼“7ÈÂJ!ïùG 2-oGA¥¹ÕãðNJ.êöî.o¤ýå׭˭܆ѕcÉÔ_¸ãt…|üý„ ,*Å«ˆAžO—r“uÝ[ðÄ-^ðTƒwŸÕ[Á‘[[sè+=õ‡F®¬e?7—˜põÃûÞU¹gødw«|™jåxÍ%]¹ŸõêM”^¤†+w@×Î6”NHŠ7„7ãô#tº£L±ÐÅ ŠŠ²«ÀU»e{7Þ”§«"NÊF—†òƒŽÕJ7Õ ñ{ãôÀij€Ø$|Ýù2óúmØÄç›Ùâ4{y )íÓ$~å›[¬îRwèÍ÷2Þ¾ŸíÌÍO3®\ÑÑü™Cž,B¤œ`m9<Ž°p %ËH¿üN']— ‘¯­ìO%Ð<’Ç[ú™‘Ú¼©W…öxÅ&Ê3÷SŸÜýÔ'GÀ?M¿kš &™·,£[ó-g-œFóGŽ(?¯ÜuÅôû¤kùô €Ûa-%T©ûˆê÷û­ŠiMI² Í’5ýð¨ ìk‘GBkäÙÙ²ÍßÏc ¥òÒX)ˆsùÙPæm;¦‹æÛ• Æ@Îí]$* aT8‹aÌbµ •ö¨ôt¥œö'ÑÓmÈÈçlV bíï÷5æ\™;Ú\$°ï0ò=#0ï±@MG©%ÿ¯CæO(“²Ù)9`Ê&Õçà=ËFµŸk;V ÏþÖNzÃÑ¢„q¾:]ü$eòÊý®°8kKu ãݤÌï§ã@)ïp¯w¨¼ú*~ä!΃l*XÒÜ°*‡®‘‹ÍÕšº’›ìÞŽNe êc‡ øw<ƒLå §¢È$ ç`¼UxÎH/¢Ã—ñ±Aæ‡-²Ï=· !óPŸ^{×íü¿-æt8¯ùìn.™dºuÙèÚÁÿ~tsL¾àɸèZHr}óâÙö%2 endstream endobj 3723 0 obj << /Length 3269 /Filter /FlateDecode >> stream xÚZK䶾ï¯høÔ lkERÏ{ˆÝØ#Îç Q³g”UKQòîøקŠU¤Í™}Uâ£X,~õÙñîaïþôæÛ»7ï>¦ù®ŒÊLf»»óNÄq¤’l— eªÜÝvÿÚË<;üûîÏï>fbQUåq”Ætd+ —*zh/¬ù&æ6½U’F*ÎwG™ƒPQËñQŽJ&ûKÒí/q*¢Ã1UÉþ‡ÎŒº:áÇtߟ©’¹êº9?5ÝÉ}ëº×ç~‰cY7ºé{7]îõ`ÞÂ[¢ö}çjW}çþHZ±l¸ÿdîš¼RËɧi””ÊMþ~©ÒÚ˜IT&‰«ã'…5Á`¾D)ÀÒeš:ST ¶T)ègô[¶%ü¢b7 I©ø3Zv­OÉ2wC= úúÒ:Hɬtµ?7mKƒÞk|fûÉèIÆžžFWCýHe´ˆ­V¹vÓ£¸«.Úp?<±l©Fב]:Û»µ7HÅéþè/]s1¨C&ËD”fÙÆbÚ`ÇY²o =kP˪eÁ®‹Xzn–AÑOÿ¯\#Þ8WÖÈ£"Ç`yœë[DE¢v‹JÇY›ªcÎ}ÛöhœÏ¬_ež.×±Tô‰e¬úcs4ÿªAÓû©AË Æ¦ïHú¹³’iÉ\¸i]B)"•û{Ò‘¢¯hÖ ¶¹&îÒ­kž¡Þ©¿àIXè4~F ´HÕW´ãz%:0…ÝlÐ/mæXñ®%¡Ýù »ñ2ÃÀèú„¸Aõ¦îäš.úC_EÑã!Ý?]{øbCq6ä ®5C.£X¨» ®MïEUªÖ½¢’ø¤=…¶('m©Ü°LÚs3»áà.7ñb3g sÆ€¦E¤$£éwÕ¨ú½‹zúPu¨Æ~0,´i$e9·¶^á{ÈR‹Ë¶z¥™Muߒ礄¦X°Ϧ«ÛéDÛßèIž{äÎmªùã-Ðʼˆäe ¡ Ì-ÍRW©¢Ø?LB¢ ‰"^žo–ùóAÀRbPH3Æ.,U×ëÐ_aæ£níÇÜúÎiº\žØÿ VÝÛ‰ÛâÖœ(ÜØêuÔÚ³ýèžmÓSÙšÐX±‹¸Ðþ§ÎÎRºe‘{ {UT>õôd[€ÕÇ"l±ƒØÃgÈ%Ü•(½TÝä° ¶#÷A‚ =üšJŒ—©eùØ?èyt‹~ü×Ç·4‹²ÔÇÒsU—Ÿ§Üb bSW3¦ ï5@ßiì/¸R$}䬣&€3»ÌT¾ŠfP¢Èõ®~¬PÉN¤Û¢†Ç¬èጕ& cÁ8ý¬Ó1´¸ ¨fºC‚h^¦,FÎÖ‘ÑXæÿ”»C d~Q`ƒÂw}‡Ø^3þС„Õ‘ðEÀ)¨÷oq…‚8@ªNíTM–ë†>Zp…gÓ_JÄŒfŽ ²`ƒÃwZN(8“´š4"™+Ôý0hsí;^v+ZÍѪ€s„€¼^œŒfÃAÁØut z_©‚b¿ö3‚.ÕÀ;p‡Š]cÿÑ2)0‰Ç¦Ý:ë’,Ñ¢"àSùš Þð¸[¢’ÂÚÐh„«¤ÜW÷=: y!3ø,Îö4TÙÂÖkÁzx°]E[‰yîˆ9T­]]£ÇPáúë¶yì{®c5=ëÀ†š9—“’Ž~ —’ofƒ<ÐV°û ÛEßÒŽñôrê5+jXë¶ýå:Ù(u—EQW‰ÛÈ\¬BGžx‘ÁØ’ÌÌ0ÀiâçºÜ&5ËüªAÜxÄÜÊó}Û?×F6k{ø+Q&Q®Ä~íÙÒQóx5¥G§q…‹«E¾r’b>_8<£#®6úí^dsŽ–ñN…… (4ÀF>E‚†äjóˆP€íÄ­)Ãs£>·AGŸßÞsú>4Jä”2t3qøTâWjy:°Ht/¦ç¬…ë´özb™pÇWMÍ4ˆDú tl^…äÇRF Ìg…ç?Ý›EníÌðáŒKJå¿5¿iF{ô?M#8»—žg›q¾ŽÇ<ñœNc/#ýš£B‡´ôÐÔ[fžÅníG:mrd8d3pS•1Ú×S[9ë3{ͼ² @ñO$™}šªg€’ϨbŒ ÞÜ'„ÍÍ邽™°æ ŒZ:zˆnT1__lTS îYþt:qc‹‰\&jž>s=!nñ"é†$Å3V‘Ã(ôJŽ …عm¸„·KEBotz§’­.;LÀ¾6ùY­ÛöÝÒÿ-Êb›íÍM¹ÿ'Do§¶ºY×7Ô€`"q0z\‡BÛ…^¬¥±áfÆ 'ð$ù8è ÷„ <…±‰BLJÄ.Áð¬¹!1–} £Tð‡ ;{¼u‹)qàìëz"³Ìi;¸ÛÊ:îúÖ-@+ÄuÂTI®J±p@”ž8 òÓ¸/AG©ràC@ °î“ÈŒ× ïdԀꠊ½³€'ï`$éÜáNÀ­èŠšUÌUD%Å&ÙYøZ²¾aKØõ1Ÿ…1iázPÖ™Ú½‚˜•=¹‡¼¨ `/¸™Pò+Ø;_ü{y<ºqIÈ(8Œ÷Œ“Ý©>ÿØ&³¢„˜ïó`܇“§Ü^ËnžÖeÑ|à &»íå¨ò,J7IúòÊÌ)w¡¤ÿ7'Ãðôÿ™À—Ï|µ/W †µû©å–÷Üå,«Î8Œ*\OX Û%µ'§Ó¬WÇð=/vû™O@¶û©n†zº OÕD”£yÓúK5uÃ5Ôšk@[Ï5“-å7ªÍ G0 ÚšÕ“¾ÏHçØfjÚ þ/žwHÀ ·Rp½¶UÓá4$$ß„©ô9L«EœDb>4{ÖIÅœ=ë¤éÌσ^*$ U„nt ©HAzød·•p§aV÷ài˜ˆ‹àÑŸTýÕåv·VKVgaÐ)%¡Rze×·“ÐÆëz÷óß?„¯¨ÅœXBþÂÿZìEwß²¾ Ë19§,"ÊLHst{=„ÑDEI2[¯y_7Íat¿Á:f±˜õnÞŸ^èJ,ºz½º„VûE4ï¿Èð Œ1ÿ¡Š úº¦Ã[ÔÕ½’;ïNKo.mª{>-ZðÜÐϤIóÞ§oîÞüŸÞT endstream endobj 3731 0 obj << /Length 1724 /Filter /FlateDecode >> stream xÚÍY[oÛ6~ϯ0òdc1#’ºXòÐéš¡éÐ,[¬{ %Ú檋!QI½_¿C‘”eYv¬´ÁŠ}D‘ß¹_쌖#gôóÙëû³Ë7>…(ô‰?º_Œ°ã êú£cäÓptþ)CË$M'ßÿrùÆ Zûiè£ á´z' µéÌ1Àn¿µ{j·OIDª_úc’1K*¾ójëˆö…x6šâaè—_eøŽÇùüIµvÆùBÓ¢„•¥Mi댣`æZÌÑ'ÇsÎ-çjy4ÜÃnè"ßõì›h2%pÝýŠïc¥¦1ý/<.¥Á•g’‰LdKý]êœñ"O’|B¼ñcó,ÊÓužñL–?v$»ÃÒû>r‰’¬ƒB#›9—¬«Ž67±ÜðRŠ”IWžó…‚òÉqH$MWÂUÿkÐj‘æ1OÐQpæ"‰\èëJ~:´R²,f…AÆ‹"/¡Ù‡=ÚL_÷ïKN'¹Ò«º`JRŒ^œ‘Ûz¸(/ ^‚ŵE)ëéƒÂ î×G%óÓï7æÌ }÷<¯²ø p2%—˜g‘¡ˆLò€5"]äÅ (˜ª0U­×ß+CFK¸Ñx Áæ4Ê'ØÛ!'g²_0údä®É*òìÐÅRЊÜ«‚ÕÛô¥`!™YNO®4W<ë;ÆEŽßdÏ”ËU___Ÿ÷œç¹:[¹ç˜Hi¢»ˆ+–)û¶R-eoô2áJçÊ|x¢IÍE¢äÛ("Ï’ÍÖüû¤ë âlå¢2ÌÕùï·èî·>Éø  ˜ÝJ»OH6„îlW:ŸOLV¥sÚ’¼´~%Ul'²Ž¿°Œ%›R<Ã-Ö_òPNßCXK|«/ÍO“Ašmu<‹øZ>-ó¾(•¾7G¥Ÿ§™˜Oˆ3®Ìþm·'+ö &¡Ê®¢×ècŸÎÙÇÉ ,"‰§r³æ]@MEq ònw6yää@7T[®×Ã8;^{\Iä‹,X$LiÓ"uí›Bñ®¿Ï%Žu<0gð‘ïÐ휕UÁ¯Î½ëm§ ò¶JémÐÁF0Æ{çÝÜÝ=ÝŸ÷eÑÝo÷ßô·ûò¶C“Ãøž7>¸ÐC}åË=rT¢ÁÝyÍí»ƒów‡kõ”Yu1Òò²> stream xÚíZ]s·}ׯÀcòP,.p d4™qœq›i:ñHîLZš¶US¤†¤êäß÷\ DITWÒšîCla—Xàà~ž $ï3!ù`8é_6Åëßh(dm$C™µ!Æg¼—b¼Ô¾øŸãmÀSí\ …„Žœt\Š&:íØèXh$#^ b$md“Ñ`r"4"™R ÞåúY Ÿ16;C,ÚŸÉPòú£ŸDý‚ðŸÙxW×ÀÑx* kô¡Â`,‡Sí—ON°®ŒsÄ`|®ËŽ¥xý5b”RçÊy/á‘X[ƒª4Ð8«H* ªßâ?‰ú­J%—€9°RvAÑ'±%ÑÔH¿Å#s¬ï²áètdH‹#ë ùƺJÁ(©"Àb8UYa©œ]ÂTüú«°‰žt6,!Ö‘¡Å¸F*bâ©d×H¡ç˜‹~‘IÎë™L¢TÕí¡Ï¢úÀºbÀ°z-GŒŠ€ð¾Ž"&©£d#DúY„-@š‚âKTÁ µ;ÌPBVe”€A€C?*€\ŒD5#dDu_1Zvúk•õ;1x¥ ¬ÌSO19¨PÄ9“£ƒ2Ä1L‰¡…Õ¡…/$«æ\4Dý5™âTëBžâtHµxÖwNÐ*õ]4…Õ„¼)‘ s`€¢òE ^&p¹ èR`ú†ë\Ðé(£IRßÂì]ÐE Ž×y°prÊ@>àªgIÐ"tt||ÔýhÎ`{ Î}bº_ÿñOÜØ?³X]Õìj:}{ôý÷ÿïý?Õ;dˈaýz‡L‘c·÷«ùleŽM÷ áƒJëg¯n"ìxý€h…˜²y@Øåè7ˆ'–¹ùFÝxý ï^/æãÓÉÊœ™îõ¯L÷fòûÊlç}óÇå?Œ>LŽº—À0™­–¸ëœGÝÉd9¿ZŒ'Ëu ¯ïþ6yw>úaþ»9S, ®"Å¿ÅD£¾6!æuÇ›r@¤ÙÊ¡”*øƒÕhxWh7;7¡!NØ„¸Û¯7"¥EœÛ'â]©Þ”÷~#^h¼y–T׃íJu=[©v/f³9F;['ZÅSóìºÁ®5¨5Z­Á­[#µ†´FnõÈ·VV1u§W¿­êóÏç³OGÝóŻɢâwo»¿t?u/Ϩ>è’Ç{g5c!ñâ/ÄËÞFp$NIÐïEÕЩéþ<37Ðð7'ïgö·éÕ¥]\ŒìÕìü[•ÿ h(ë‰:mdåDÅÖ¤š“åB{ÑœÏÞO¯&³ñdxH>Âp‘s¤€ÈR2éâßÃ!‚qY§œ#¸o ŠD4¸h˜Ä¸EÂ\,! ÷2¤@<·: ˆ£­ÌÒe¨JcN°YÊ^—‹óÙÊNÏ—+…4 ‡S&îUQb¨d+JvÙ’öã-í»Ñjdß/F“/€+äl?@Øï•ðÂ÷•p¶[/ñpúrl5œ¢ ²” „epeBFÉþ}£ét2P"3ò;=d¯ÿäbôiòúô——O¯–«Éb@—òɺ’® LÚ÷‘ÌÏ£ËËéCÆ= H@¢Pä•d3ª;ÊêS¼_4ãé •´„Þ‹oÜìÜDŒ®â~½T ÊõhF·aàõÕ}ÄïÉÜ#¥»Ü#q?“;Ü#6Îgˆ3ÄÆFRc#©±‘ÔØH ðŠûìe’¡kWqðʼ” ZÈP2#or~»µÀj€Ý‹ãã:A÷b¼:ŸÏºÓîï'?é¿o>®V—ËïºîóçÏöb²½Ÿ/þt¹˜ÿ “Øùâ÷ƒiM^ˆ}R,Cs÷³ÏH¦ì—D ü‚ÔÁp¨nû¹ø8 Ž‚¤h8|%z/—“Õ|ÀÈj ]#¤ODå>H>L/.D‚Ä~’œEDf³ÕHÖÕ5:¯y.çòWaÅóPp :ä´+¡ÉS|D’¸Ùy[÷CcJßÞ(7|ïÞ ºH©go-] Ëã Þ¤³“ŽvJá!ö ÝÍ@¹<=I+h¥´Ò ZiÉIZr’–œ¤%§Ü’SnÉ)·ä”ÛȹœÛȹœÛÈ9Y!£¢;Õm_¶jæS²£!¢6ÝÏš7ÉËž¼-?‚¡?AüRW$¬\·åµ¸`Pê6g¹Þ_|M–ãÑtüpÀ—D·]Ä‚˜ãáq >×Mà-§åð8Pü©InqÝXáÃã@1¬lo‹¹$>£¿7ÒMÌ-çÁ ýáq€MÔcª ”pïtxuÓäÚo=ê,‡‡Á 8zÀÖ`€Ž²;¼™*ÝŒz8Õp œrx·õyè‰[Ãá•z}½€Rñ µ€{/‡A9×ä×p R±Á>»@þÚk)û·¬†ÆA…mzFóPê¨nu¡2x`;àâj:ºCt‹{ѽÙy{ú»tùËôŽnH};âzìÛ›Q78¦gîËÜྷXñgBâÂV¬§ÙOfÅ¥1ÕÒ˜jiLµ4\6XÒ‡<ÝÑ M½Š±ë=FQÂQŸQœœ¡(´¥èæP©ÆâÙÙŒJ€E£íá¢+ëºõv æwòHTw5a@¶„ÑŽÑ–¨›« nQ÷È´~&D·è÷s‘‹óåxSO,&ãå€ú)Q¯%«7z²ÖóYïõÁ2¿Ô=¼å°'\¤{Ï›hr¬á«FÛ¶Á?,&—·C­^léjûÔæûw‡(ÇÅ•{<9ð´ÝêzÛfÈ ¢ûq)ë­&ëu‡œ@w b<%ÿU,†8X¯·¾€ÁUÇŠ–žEpìÇûµÉäþÙy§ó6)z-öž™åv[6m †Ç¦m£ “ñèîI„Þ­z²á‘ÒÞ|BÅƾrÖ›Ž."i@·¨¨ù+ {¸—Þ)û2a‡–ìD‡UŠiyK­7˜(½“ö,µú{ˆŒ§g¨u³ §ë6F[ü ´…ÿ3ªŸÍǤUHDÄA„Ñ}xñ½ãÿ3ã\&롘¢õà¬Êt]Æ3’6íOBïGãÕ|1ìÁLPó'FR¨HvÕüa³¥ÈOªÔI`ùz½C4A´&Bì ¡<6ÈúGçå!OmoEÑk?|²·ºÇÛzn¦KHw¼Í§æ[Ò7öµÿ+œ@w endstream endobj 3768 0 obj << /Length 4014 /Filter /FlateDecode >> stream xÚ­ioÛFö{~…áO4M9œƒdˆÛºœcÝE»((‰’ØR¤BRIÜ_¿ïÍrHŠ’¥n š‹3oÞ}Œý«õ•õý‹»Ç_Ý«ð*f±ôÕãêŠû>R_…œ3-â«ÇåÕ¯^F7ÿ}üé«{Í{KEè3åG°‘YTm¶Î·[\ù·ŒvŸ ˜ofAƒ‚¾üe“´¿½Å°$ìö‹r™ë[N »Š˜Eª]÷òf&¥òšM ?ô~óý ªìho]•û5³š~aßtIK?gÍf.|D¼=` ‚˜ùAiR,ië†:]”í`„cçqÅdÐîæO'Yìàa7³0Œ½û¬HòüéF«Ÿ§Ñ:€Xy5ÇJ ëC.ïaWÀaæfBI‡]¡D{5Gìâ¯Å.λm ™ ù©ëFÀ2r€]ÜÚ :ìâ`ÂñóxÀÂXœ¢&¢7è¡WÜ{S6ö¸f“4µ$â^ÀÚqÀ´Ï‡®›t›Vå{I•R£(jdÅô½O7‚É,)ìð¾X¦5íÍ°™'ó4§f ·\làhfÎöáP@gÌO –f.l/¸å·×?¿fï?\O`C‡L¢þ ¤†,Pʶi³)—·×¯¦öSðß× ½²@ŒD‘·IGQè5% ,ÓE¶´“ÀÑ€óÊ.ØØÑ `*·Ô®›ýò‰æÓbs•.ššæë†@\kB0$O‰|F~ D@áÍSê/ʪJó¤¡yË_´Ò@C$0ØÒ †{7 _zwO´h SøaŸ7´ô7_ùK¢Eèc",8h$:ÕXÝÞ¿zøðÝ/KP¢e`{þ’Ž.ìõêýbChJ1?ŒÇšn•€®9I¶ö‡ø ýó&ƒÝÌ<­ã^ó´ËF3Ñgv›d·«Ê°º+œ¨ëývçÎ9vu ‡ˆÆVá«`êî º¸èß…Y\àCª‘¬îk”eà€Š~–™%a•Ñ„!+ñÐæV¸i|UVÔ°üé$7ê ø<·“Žàr*(?8ÃJÐ8²Ó¡Á”Þcþؘ>¯ï[†Añi Þ!oHX`±¢‘Mé„Õ”KÔ}¨ªG m(ª0`d~çVOdOù1A5Y[å;F KÇ£¾œ<¾ÿù»ç\¼´UËu{ÀžX;Ø›í6Õ¼dV㇠ÿt4T¾÷YÓªTË Êq@¹o¯ú´kÍB¹¢_£‘ëö°û¬jW€¹Ï?Ýpå¥UbmÀ˜9Ì-¶¸Ï×ejk[=ðÒÀÅaRÁ= bi‘j¸è×™ò}ï÷›ä°TÍ¡Q¹?fT¤ÏŸ5*=¯ÊîøÍköjÒ¬h0+*ê›âÁÐ\¤*%Ý•­7ÄTZ{yš 'ƒÓõÇ}BH‡2Û¿<|°l+;“mg­EQ ì߀ÿw9è„Âì.ÀÈ úµBh…€° ±KÍ÷è/P‚ÐòNσw}ʹæã›´Ú «L«´áw_8VMázp–Q[ðLø.ÉgÉÄar¿ß-¬“f_%Ý=‰y­`D1ãjdh3HpñÄ^„è²Lv#®×Âû>Ù×õ쇴Úf‚»-+„Ûö‰ Ú£š(ð7¸Œjh“8zdK«S„\AkL9«Z#p¿†4ZI„†šÆ¡PÞ#¹ j$Æï6ÏR»ôˆ5å†MˆØwG„–;{Ú‡‚N4È‚PsˆF€Ü+íØQo£yRQn¯|ÿ~ ‚šßhÚ>Jë"s@/©øàˆwo\2ÑiSêïM€üðfjÃ0`Sc¨L€ë€;×7h–yZÔg+ =œ• f ’g<LÅrhyþ–êŽ]LôlD€ª6xðbJö"u {04½H’ìEj${0aØ)RÊøL¡£Î9²JÑ—½YëÂþȧ!:ô ZŸ¤õYŒBmím~Š´õ˜š“c/âoÑR ~Lû.>8bˆ!^Ôü€áßNŠ¨ŠÿºÏBØ{¿ÎfoÈú6™0JªÛ±WîŒÞØf™@F ƒÀª>ƒÕ…³¤+G³§¾”k˜t2ZäÛ¬˜Ÿâ0îRSÎÖâÁ†3à×r´æOô;Œö`€bhôŒp »iLa&º¿°g„±;0ÂJ35V™'Œ0(y_üÍP^h “š"ñVçwÒ„ñFà1Ô~T®mhë)´Æ%‡ZGû*Ĭªé;Ã!V~ÁuŠâÑ­; ÂãÙ4ÂÙ|¢a¸s:2ØlH?Å)Ìw<å•h ÈkÓXCö¡j£n˜-qÄúý´¬[¿L‹:kžìºÕh¶(‹Ù®Ñ 3%Fzm¶,LuÃ#o–@õ*[ gÑE ù ¸|{„džÑRÅÞ‡L-L« íýÍŒ{بiÔä·î"4vI|ÑáŽc/­›l 8´ËMfÌ|7o’¬0ü «P‚p4+f]ž Á×¾ELnµ¹!y?€uÍ’Âĉ±gÓ8Aú;ôŠ=ˆ6A&1ñÅÀ´¤¥m:@]È,ØIå<ò rR­@T$Ô„Z£WÓQ ÄAZ׌ÈQú®÷-ÜïÓTÎ ¥ì Û%‹?“uÊß¾÷Óq Ì×`#Éë’ZuÚLúDTb/W,Wæ·9p²9^¸½ÞUÉb›\›`ê(ÊJ8œs¿x|ÆI@ÔÅ>ß×ÇΚ À”ˆ&ì‡ÑA6•ÍER[E3úP1_u&.øõ×'å9+"b¡«ulþøó$RBðñ:1±5}ÕÖôµ÷CYþ‰¹¼töSÚ«ÉÖHpŒ¯Ê:*¶ÿôñÁ§ ½z?ÇI:« f)ÞÐÚ«$#¾ÐB§’οÆ´ÎK‚£`Ë/Ϥ¼zÓÚt:p{Ùm½‚þ´­wÂT-äˆ;ý˜×B#çç.©þÊò$›Ý•ÕçÔä{Ì»Ìd™7{ËtaÛaWÀñ¶3Å%uaŠíeïîžu¥°té„쥫¼_`×úÎØûÅz›Ï°oïyÕeü‹\çŽú´}æ(t^á°±'ß ©5Eeåì‰i`9ÏÓ-[#eò¿µI–š(k5úæa†1ÅìîŸ7¶Ÿ½ÄCïø…ðôí퇇Žù°TèLÞT!Ñò?¾%…–{Ú‹YÍÛFýØñTŸ‰íÞ<á )m€sëžN.hÊY`*¡îb—\4´&R*zC+z¯³$'‡‡?îË&­Ûgx1†e†yEL˜-ËQz¿U]&Ÿ @°»âÅFá8ApsÓVÓŒ|†>…½Âé„«™p*0ôMSMƽ8rqL‰_jÚÚ8°á1Gc&ìŒÀzpÀ0°ÆCNÖ3|*£hhW'^¼\×ÇÇQl›|¹å¾ï¿lŸ›å ³,ßï>`_´rÎ%Vë+¦µ>|@Ãcm’D<6OXìízwoïþó¯W4Ø©[Ã1’Sn|ý¤¡±NPqø3±±Š‰„ÐCÚ¾³ƒ“@&zûMÅ=S+ E…Tj_ä¢\MWG”«¿#§èŽƒKÙQå:vUú~A;¶!@¾·“ƒ'ÊÂËËõ,ÏÈÎ3ˆä—Ý#cáÙ²!}h3n°#å 1·{‚2)Ö©}`D–>˜Œëc༔C«ÍÖáKïczY–USî~¯ÒüXÝLL j}F ÿ´C‘’"A¸¶b9ÝîÒ·×oÞ¾{üýáÍïîÞ=üûú¥­ò‚I96. Ùx)”n}BºCɱl p´/—m1òå¦ñð}‘n ôÌÐèɉŒ2ÀÅ]P¿Øíëéê%žûæon´…)mÿ$~•Y= îÐþ~÷øâã œ" endstream endobj 3803 0 obj << /Length 3405 /Filter /FlateDecode >> stream xÚ¥ÙrܸñÝ_¡è%T•†K€wª”*ïÆv6ee[›àlƉŸeâl#SXX·×‘^Ýnµ¡~sGí¶1º¥n×PÛ· ×0ð°ÃQUUº*S]ÙÔ4øKÚßù—„qN0–Búy6`¼mêÎ4ÕUU¶.kŽ]y(ÓæêÜvÿÆûŸÛ½à¼|Êã˜6©·Ç¾½’°^¬ÒÈÏbáD ŸöJ„Ÿ&9îéK‘Ñô?÷º^Ã:ñ£Ømqh ]]ÿpí¿y¾r`’ú‘H´ª‹• Eꓵj{£¯Îú°¶aœûi:lxyÌžÚv=æ~es¸q˜Ë‡è¾~º%ð^&)ò¼ Þ/A MÛÑŠ¶Ím§Êû‰×vÊte½c¥°_Ï9ôùBÆžªz”¬0ˆ­ ‘ ÂÏÏÎ Ê+u?¼{µ¸N$A„‰±b1“òÅ}däçA:¡V(2¯mè`]‚èìG^DC(våÝ “ÐO¥yÔí›âêüÍ›UE ‡ñTÈèŒÆÐ!Éä¬ á­f¾Óåq×ïO-‹‰×-]kä Žvp"ßÿV;D £]ç`ÊÚ±/÷eÎÙ×5ªHk˜‰ýlgþq!È¢)›'”Âû²/·{:‚ŽJ½VóÙ¤6©'joï©-ôÝ…¹ì+|Ì@b$Nó¹[¦?ÆÌ•HP‡O¤7"Å%›ç7›8O¼Ñ„E1%kØù3sÇ~@èU7õ­Aˆ #ˆº.ÀñhQ'ɽ’Áê~€·ÒãΞgcz ç(sÏ¡[3ì çr Ñœ|Œ‰`ÓS^lz5DõvÜi3@¸„ûc–J‹ÍZ*%H>‚ºæ*ZcdQ4f·€l¼ÙUòŒM,RYà âïTŒ»e§v W’Þ0|©Ã,Â}]µ ò:/ËÌ ÑŒ£gG³è¤­äÒêõëw_¹#š®è„»FŠ -¥²¡äˆFÚ£Þ–w÷ôAê'Ø·îÚ_{U€×‚äœv86àÈZT0™{7ne¡7¬øü$Yª£•i2æÂôiýJšz)²<“ÎáT»oúª é£iP-?—¯k{+ݘÈmKpUÛmoÔAïyÿšZ{Mìh\æઠž`ýØ°jv›ªü„ØëªÜ7M1ìè2Á‰Ú¬é–)Z–RKÝÚ Ç»×óœ²mä;ƒ¨~=êºÕ4ChÄÈ#]¡Ã,ô>êÎìD·'’q #‚>·1º=6uÑ2d³8ì½:VjkM Ž«#PõkyP›µ eBA–bp9É _![5h5­#‰ÆÛ"D†zÄ—N³yŽ²ÌûkÓišìö@–g+ "û§µüí fŒÈøÃuTU5( _h|^ªÉ9RXš ¢Ã Ÿ)¨5X¤FœsGkñe½Ð¶ Sé‹$ZÊ–-aý|íøx¢„%£ì‰RÈô›Ê+l‹ÛÆ9¯’«SM†O7¬ú®9€bmmyŽÖê…‹ÔØ‚ê|S{W6Ö˜Bä"Ÿ—\~¬AäZ´ØÅqϬ£E~†/3×ÓªcˆF¢Öt°­Ü„±„ûÛÚ‰hyÚZZ˜ÅÒñócI€O+nåW]üÇÒã1<ãÌ—cãÎ4FaÕ³EãÑ1¾{}­ uìÊÏzM®BpCƒÌÕö“Úñ_â&ÁÑAœ$s¡Æ’þÍõ÷ÆʉŸ&r~5W~_¹ZlkWÁƒíÝu¸ÕzŸÈÏeý@Z;ìSºrceg\[XñÀÆÈضl¹×Ó™Ld§­«ó)‹ÎOÄÀ`¸H6ÏëÁd ù“‡2ñN'À@Dci˜ : Ù ùWŒ¡Aý“ØsÊœÄVºÊ $?°ƃÚ!*‘èøw†üˆ”C\2L“ âú+¨jט²Ûø›–Üò *ݻ薣 ÓŒ Ca÷ `Ÿµ¹5¿ºùðó›'k.è„ÜGÆrΞe½µ•/1J}’¿‹ËጫocŸjÇ‚Sj€Þ6‡cß)*>[Ë “c|1á 2LäÎè>*4¼YÓu×WŒQCmµëPo-`Ø;7*V §@86½fÀÁ°ã°Ó¬Èû©Ö4EwX²²8„®d-`‡ç &­+?¨+ìÓ¦î¬Ò …v6I (ôY9.!¡K‘ëÓlL÷ïK]|m=òƒßÐLÆa<žqþuª+“ŠÐ²Â¶v¬W;ÜÂ5Üfå&&1yëvݾæãÆ$264T¦¾:•žC8#ÇûwË ÑÕý$'“à™“ç[¿Eº¬°h½à-2 Â'k‹r,ä¾ø-2‘ñãíãN6 n*âsK3Fµ¢Gž Ó…jÛW“…6È\"jowį̈€´o!$Tƒc³ˆº©7[ÈŠŒ}†‚ýdDGMI¢n þ3姤W€õ7%î\‹ ó“OÁ"÷…üÖ@æØìä.vBôŒþµ/íÃ;~ jhˆ,ü2J'YJ ©`kCgvnØ>‡j^.sEåÙ]ØR ›Ì0dNY¬á 錆£è‡{z6Áa… 2¤õ›Ðþ¶iùÿ2øUô†œ{˜;5Ìÿo÷ý?kûªãõV2±³+§¾‘æî:J׈Ĭ–7[¯å?;DÎÐ`ÏU’°OÅ^˜5ªnŠŠ£v`XÆÀ_3ԓÑg87èô‘gMÏ»P}9ÙÆHÈ”íªÞ»b4&‹‹´Ö€QHANA”wo%Ðk¸È½/w{k`Ðhˆ ÁŠ‘¼ã¤6|7$>]iÜönœÕe,›ã.Ì#ÂŽÝ•[àÚ¬2ñn(=¡3ZÁÆéì(ÏŽæ*³¨¾¼@QóÅVŸLÍF\–¶íuá6·· ќօ2  !sDÀke0»0È­ô~eÓg4—×·—ŠØ²‚Iªû–µ KJíú—\X­¹è5ˆ$ÀcíÝv2· _ΰçËú¾-V¹¿­Š\ü;Wp™ÿÑ„³ŸöAUfõµIB¢åÏ~D„æ%¥©NõòäCq/“W¾ÎôÅÑ…•ë§ó|ómI¹„—ÃͲ€5DÂö„3(Sâæªú?(#û#¾Ò­PG\i‘lV·(ºl¼!þ¿nöO¼=äAë‡Õ 5 << Z5;÷ö¦“ '¦l?q#°öòáËsj•o}yþÓ 6 yñe‰ãT¶z¬kßܼúÔ}õe endstream endobj 3820 0 obj << /Length 2973 /Filter /FlateDecode >> stream xÚÍYےܶ}×WLéAÅ©Ò`q!.TWd%ºÙ²\»›¨b;ÜÎ $^6$GùëÓ €r»Ú$~H©JCÍÆ¥úœÆÒÅnA¯}wùèì¥Ô‹ŒdŠ«ÅåvÁ(%"U ÍQ"[\n¿$ÜÐå?.ßž½Tlb*4%’päŒÚ*'»²ªÐò  ¿'£¬„È•f±â…÷ð+çröõÙK!&_’ªq¸ªÈ»C[üññO?üøØÏn6„Ò„§£õ¶i—+.iR6;ÿзyÝAsUl|ÃuÛ\7mo›º{:›Åb¥%ÑL-VÌFÓÿi²çѹr•¾5×6_2™Üħ·X™”0#Ý ®Ã¬¨¤ý¾€O¨„ÊۮǗ4éo–Œ&ïiêò‹oöƒASÕlŠ²ó“›-„1E˜VÃìÿõyy[…P$£ã*òzs¦HÊÓ©¯ó¸¯”• v°*ægy¦}èl½óM>¢Ð†#º»)êÞöÁ´´õ§Îw„ÅÂf [te릲yéwºˆÐhF2)CìÜÆåJÀþ½n–BRàÿŸ1:E»LiòÔÇÈ™úGÜû¾÷“„×ÛïîöEWsŠn0)÷Ͷ/ê×"ðìÿ[ª¢µë¼aqUÌW@çýÛRÑÄæ`™Ñ°f“9ŒêM³Ou_lÜîÞUl ;îb$NœÃØóvÉL²s~aK…µÔaÔu^ûyäe×ø§m‹uïùæãÁuœ+<¸a]÷öP¯ýƒALmçû]±ñQd0) ÂGQ†Î’M±Å³Jœ%7ú‰ÛÛ` 1üˆþ÷ÑŒ#~úš°cF€´õ>êIeF«ƒƒ L98äbš5Ã9°}ô,Kɦœ­zÉ’èÂ%*àãóßoá?þî 9\ ¡'§9,_dæ¾ CBVÙ1Mÿ9:cAäÑ莵 ¹££xúwŽÄlé0wðq((¡œ‡Ts+IÍiÜqá.Qâ÷Áž}¤ÏÇoî¿!RËÿh ÞœÇã/`¤º½ +¡9äi6ì]8€9 -¦Û€ ò¹"¸(Š@âð˜E‹\îÏoQz*DZÍ+ ¹k.N—$Ž+wä#RXRÙm÷öH"¾£¹vô¦öbŸ×;G Øh'é«ó-Öýê@ë؉µ© oƤH‘OƒŸ’f¸Ý-úÐ4ñ¾ai6ž»°Ï¥elZÃ4‹Šz]„Ï<¦ +Ø@bni¯Û¢Ï}ÚÆÎf{bàƒeøUjLD½­ò~pŠIûf_Ô#·MiÙv˜òŸŽ¬4“s(uÝÊ@ŸWGέa¸²è:5…]*8IuàŽçKøðÐï›'Ô |ù5‘‹n8#Ü|XàÃr»[JØ® ¼ : vNñ‰, lÚ[7õj ‰²EÕ„ {Á—ëÂË•¢µ€¤ žl/WKŽ!÷Àõã:Pâ\Ú¦:ú¿{#OûîÅ»×ùúÓ¼¶øÅ«8hÏwEóÍÞ®ƒZ´Aö‡6<Ù€í«¼*—&tý`ó ½†‡ó¦¤$‚ŠSÊ ûóbëwÈóÿñÏw-žè°¬çd6>™ˆ’/ÚÅGRyé%ö®™¨ÞMÞçÃJóòKg»è©$4•´Q^o‚÷²wTõWÍ'Ì{EæúãÛgþáŽmËÓô—¥’I,3‚(=Çëwù®éc…I~Z2ÆôÏYòŠ¸Ö,y‚ïàݺњJºC¾ÉÀÌ›O¼Yب,ÌTr‘¼µfÿµd)pK È,Y¡€Û"—lávÞÅOí:^xiÝì1ÚB¹çÆñ§ áL¯bÉvÜåWÔ/üÝ6eéë¡ÕáÚ7uýac‹`ŠE_ôy݇ï[ÿû¿ÍÛ/¾J‚†Í¡ÍÞ†(Іp^ºŒ½©6µƒ4½EÇ ™¡a˜ñw¶Y…R/x›-³C®À®»;JÒ#û?œ Y®”3Œîô0ÞÒÌ™:Í»›ÆbŠ=c0wNù“R¯R¹ŠtÓÀ d©8é[H6€ ]*EògâxòC¸mŒ‡®wC×Eo?ÖÅðÅåR§ÉÐuÊ_¾F³ËŒfü”ñäÃÞöEèC|Ûyøõhg& ]g ˆ×õ`ÒÏ[ëðŒïÍF»IQŽ —2i!6Õj~:¤<‚_†;׈à÷@/BŸ¯2…TN˜À9Cmâ<·€Mw¨*À°i6›nƒ±šh9âèb9HÀ¡{¶´Þ»¶uƒ–&‚ñ¯¡s4:âÃ=Má©1!#B6Í~å\1jd ±JHU÷ –AÊ?ëlË3Q¬2žA]w¢Óp™LÞ"å³)6<ñïŽãBÓû`3';@I^"2rwÞ!áÎüUéî( ·D–é÷Uçûü}†–™3J©`¨¥àšËTGë|&‰Té7¶ªšzƒÔšÒ RV&yABÃÿþÚî Æ¬Þ«#yËOwø¬‡¥† 2˜£°gWÔ…——ðɶÍ+—ükûÉÛ„rË åe.´øÂÈàe¦ šïn‹(O˜ÜÐc23 GÕþq’Îl”O”³"’ˆÜ" &¨x\:3^‡¢W—‹s(I¡H:YãÙÚÇ4˜R„ob8SDYˇä%p–2‘À¹54n´&ÑËnŸo`oZŸQøˆÊakD €ˆÌåä†õÈŒ0?2£ "yW¿å³LQ8ÐËøƒ• ãJlS)ÈóŽ¢aßîHl ó”Ù´Àð”ÆdŒ¥‰I³Øß@o¨ ö|êu× Ë*èyòñ°î¦õ­úPûÊ]çþg¸(Ÿ¼pKê[¯sÐIÉ'¼´Zx2N_Œ¤Ç?„Í®2Ðc(~WƒÝ (3‡œrÑlû¯Ñb±ɔ҇ßiõT"¦U#Æ=5±¨§‚to¾0Jè³]G>S¡ˆ¥"zù—ËGÿù+Å endstream endobj 3828 0 obj << /Length 1162 /Filter /FlateDecode >> stream xÚÕW[oÛ6~ϯÒ‡9@ňÔ*æ‡nKÍ:¸éS»F¢m"åITêì×WÉŠÕ)Ò!‹è:<—ï;<¤oåÞï'¿\Ÿœ_&ÐË@– Ä»^z0@%^ !HÂÌ».¼Ï³¦"`UVÕÙ_×ïÎ/ãtG?Ìf™´¦5†Jé$°¤v²£í;u¥r24‹>Rzæ£8˜½-Ûz´|xÊÀ^£†F\(ãa¸:ö|˜£!ꎳ‡ñŒ¢N]쯭æ®"aèÖ)?ÕzÊ ÊÆø9ül¨¨'’žb8xÒ°^ïAir»›ôˆ@˜öú˺1>k±¦V¬ê‚–FüHÆWf¸ìx.XÍ[p||>L0ÀAªG–ë‚À-¿RÖRéTÈ8 ¿ƒŽXÖnìÖ=t‰¿é=‡Ë¼.KÆ[˜á˜LyL3»•†è‰•‚¡]ß›†‰`–M¢›¤ ADcÉu£KB®”m –U–*!ÈâبÒ3©¶%Õ¦¤­-¢¥yÊ…FèZºÿF7¥q'DÙn?Ò¾"Y½QŸ£«G`¢„YÇ•v©¢ÔIpÖ†‰ž¡xv§ÞQ.Ì”DŒ(Üa8k©U#ªÃiÉF~€Ts ¨°¢¤ÂûlìÓjL²ßü–¬¬Í¥‹†˜‡‰¢ie"fBå\J!˜å5/˜J””æMY¯X+XnFvÚ%Dh0‚1W’Ë1 mªN¡êùͦ©I¾¶;Ýõ…ŠÜöÛŸñ%m(Ï©ÙÿÏ ÕÏPv@íóÂÕÆábüÔ!éK’¨?°<cëÕ3þ9|dç̤gÿÌ%ÔÜruåÓå’æ¢5s_%v­FCkšãêKòšI5j…´AšÂÌ,.öŒÉã}ËZ½Ì‘H²†ã[Ù©(i»†ÎO?,N_Û•l.6ukG7rÄéÊŽr6χw… ïTiÏUG¸ÉÝTEź.æ§WïOwãx(íATÔÞ݇¥¡w¬1åp~™Â¶Q˜‚$è÷ÿO}‹T"áÈ)”˜òŽ¢)+JêïvSöÙû(QýYR‚IáZØ ;þæk=Z²)íî×äebm¤%ÛR[$­èŠ{#Ž@V¸é. I¤KÒ•b¢jzäpé¨l槟®ÀåÇoϱp˜"{’ñ∌ËW7Ü-«ˆ°ü–ì––l]×Å‹Hö×+ðö@oH¿+Yº%¹8&ÍÞ.¯}ã6Š½ƒªX³ý¶\[-‚ÜZ4‰CºU‡ªÖ`µ‰ª£]ëØ%yªÛÀ Aÿbª3å ^¨ˆv{ÓDuþ7'¨h㢴áÝ;ê a{¸²Žl¸9Y<+'O굋ß~”ëÿ õòNA|w»o;Ùë6u£?§²zœtÜÖ…Ÿý3PЛ¦c\~Ôe“ñÝ0^WŒ”>¯%ƒûýJ:ô,uÉî{¿n3s»PßãKÑp/,*ÚŽ“8XO¾ÿà jËæ[feÎæœ=(ÇüÞµúâúä_ÿ¥›¿ endstream endobj 3839 0 obj << /Length 1367 /Filter /FlateDecode >> stream xÚåWKsÛ6¾ëWpì‹4ÂÁØ©îÔN§“Gk+§8ˆ„$N(R!![ίï‚(‘’%×N{hmËX‚ØÅb÷Ûo!ìÌì¼ü2\\‘£8ôBg2sƈú¡‚B;“Ôù<ô˜7ú2ùýâ:$;K)#{ 5‹ª%GË…Z7ÀÆüÅ5¥…ÐW . i£ázLR­·ªDš%ò¸õ›‘`<”/êÙX(ËËy¦VeL»A1aÚÀùù¹VšfE¹Ìxî%8“ëÉe™ #>dra&¯×•ŸýñîÙžRû¯kQë'®Ø×Yñuw‚Q˜èTVégW*ó|¹T&;;™Ãm²ñ&3r‘ +§\ò1üÛÛˆŽ”جþ‘øÜO¡Ç,…Ìäã ÒÍ‹cŠÑ«C¢ìlòªÊi&{‡mžÆF3ÛˆÔ³™Hd½¯£ ¿BŸž7['ÇgÚ…³ç…¬ «•ŠË^£^gëJ.DµÝÓN‰ÌÊÂœM.¸‰CY-$å:O­XÔ'c¬‰?P _'‹—FªQ~|-I¼Ðq *ø{‘ãw„úêÅf‹fâj:ÁvlÞÙÏá‚ÒšWEªÖ(M¦«uq¤ØOÓu®&ƒoÛ`‡´}Ì'>ŠHè$ËÁç/ØIá%x‚hÌœ‡fé–ùäܹüÙv¯þØ4Khh;ÍbúÄ¡q„Ø‘.%Ōضù^Hî^<¬3€ˆàá}ƵE¥…÷¼"w㢨¿+nj&…\”éÓG§,@!&çèú>¸Ð D ûÚç_ETÙJÕvç¤ÛwïÐñ C¡ ѵ¡…‘KI4”¥ï0ö¤Å·50²˜¼`h˜TM7ìY·ZÍ…„ín0D Ô&°æÊBü% cû^mxÀF>8ßµÑ9 lB[#’Os¡]âEª…•¨ê²pe¶4oTÉj©Élãÿ¼ëgV Ë/P/A ·Z6éFJ o…AÆT䥊Ӄ~lœè@'+dU¦kñæU¹]¢³¿€ßjîXñæíXˆ‚¨=78Ûü”ÕˆFCwÅ“¯|.z¸ïÄ-¢ j Ì@±ñbYVÆÓlf¹©ÖÙ…¨…]©òLJvƒû$C”y „ˆFgŸê¾GOý²6xâÝšV¼Æ- O­´¼Ü’5i%ÏJ›vnÓÎÉvNª9•xê#™¬‡6Ц5|l¯F NF¬s>µâzZ ù¦eÿäð4“ ÏîVŽÏÊ"Ä­½ª\a<žÜ|º:¨ž”UUhè®#îE>Žóx/ªiY‹ñõå»Û«6pe·­!dÛ@?uל¹Iœ¹W\V#€ø|½„ËeýÁt)µK0“-fxOkª™‚òœõjA—¨®—ÕZþ´ÿ5f»›îc¾gÈgGQÙ{õ÷# !– ü€SsㆃÛbì’Q Ø£ÇM‘;Éh1Ž3Zäû}Fïf0±(’LÝ]”“Í—€ÕJïs1“ZJDž«;…1Õì¤vØI-Ó ‚9­ãƺsni™4éâ[Æ*gÏc¬NšXÝ éÀÞWÙ|!µ¸ƒ—€/0¿‹xÔxÙð¢î+ñÿ 0É‹&¶€aøi†‰È † N 9qeŠÂ=~‰{€aúÛ¶€0þ[Ž‰»Ã,ÇÄÌ0l9&îrLÌþ;˜±#\úÿL‘ endstream endobj 3855 0 obj << /Length 2239 /Filter /FlateDecode >> stream xÚåZK“㶾ï¯PíIªŠ8x‘}Kb¯“TÅNmæç@‰ÐˆeŠTøðz÷×»h€¡Ö³Ú­Ú*§æ@h€ |Ý_wCÃ6O¶ùþÕ__=¼Iø&‹²D$›ÇÓ†3I•lRΣDf›ÇbóŸm{É£Ëy÷ßÇ<¼‰Ó‰´Ì’(Í2XËÊ -Qè£åýóᔓY{™j;m/Rè”nrQÎæ.¾”&Q¦…ÿÐ/;oͱoÚÝ^*¹}Wögl©m6NO=™œ¨Hg:h鸚.i­¼ÀOŒ‰ç‹p%±X,2ÓQGŠI/Ðç‡Ê8íN­ùß`êci:§äO,fU³ñö¡´åÓ¹wÍ£©*àÑng|ûoCË Íq¯y]̶¼Ùg<Ò2Ýìº,ŽéT›ãp1uŸ÷eSïö"fÛæäž4Nþ"½iñà]óí3Ìtñ$ìÞtǼ:~ /)"™Ã8 õqTà„°aãҴƵ ÓçeÕE‹%çfÃÁÚb!¡V—Ðk~§Ýˆ”“Ý` lûÔ6ÃÕõuåD ›~Bë°sš>¯:7 !E»i»Þ ÚuF™J#L`ĉƉÜB¶·ˆ²9–_Ç$Ï‹?Gý…qLÁ˜`SsŽþgÞÿw¶‹pÄ&áˆM;ÄŽØéqÄ6âØ™ccË/C0&R“7ÂÀÔ‚Ñ.FÞÈþÏüð×»ý ï‡Ðr^z¸ Û“‚§Áwsë¾s}sǃŽ)b"#Äp`êxðêoúÉ9F+ Þ…˜ˆ#«¯Œ˜„È÷«ø’ÌÉGÄ/Oîù 1蛺ØË™’ß`JlN–‰¿Ÿéi1³ Ð×Å-asÌú»½L{–ZÓ j¢>×w5m×Ôû¾¼Ø §³…ké9*‘R0wŠÈ9¤¦ß ®µØ>)%#)ë×E*‘fé­»= >KhÑa@ƒ´ oVÌæn³¹[qÊ#q` VìÝjü [w«øìV“wCk^Öñœ·ù±·Ù{¬·]ß–õ“Ï&¨ïjŽåé½{¡´Do›¡?6Ê!ügÍ:=5íbò6·Ïë¼zß•n‹KxþÕt]i LÚ\ûrd¼Û;[ö…°×R4O+Àz“¾~ûöõJ}#D”( p¡@z:TÖÕŸsîÎÍPk ìLâA±rð¶1‹oà`V¬CÈ(Ké&ïñl:?·ÝÉtûdÓ².$h·s›oI¯¬º‡c3ÀR'»p¸òúæcÀ2§žvÚåEñr4kHjƒÐ<íâ-òu(5°ðKÆzÚv3Y<eÛy&Éü‚šÏ%Q—IG‚;¦–Ý­“jhýiCBö0Öbô»³•Qplû ¨nOWy`X PëÖ+Ü!’;öîÝ_N)Âd:»¬ we1XëFyïf–þÿš“ yÕ5®uX½·@ºRbîŠ*rxöïvœY+P¾dï0àìÙؤLù [‰íXM¨I…í²sO2vì©sÃa5õB‡Å ùÏò“Å&ã&”+o8èSi5±$•’¦IÐ4 xÂ*Àéï ÌÉRÿÌëÞT«éôßrSwŒå_‰ùݹ)"Á|¾®æùºôùºOv ñìnI‘›ÊO¼©@æfŸvU¡¸XËÍ¥%+—]$H%‹«ÌOKØ×øå]éºPcº.¤K»±/¤ëB¤Øí²'èú!È«ÁÞ$ÂÀPf-ÛLF|̉ÒÚqñ1U£`—=Ðç`ž¡. T"ñêç 2òHŠEòöº©«÷l-Ë‹ $”SkÉf é÷˜ÜæUµš¬©(céË—)OìÆJ2‹tÌÇ• *&7òÈ$Rb\ø߬ª j=þ–ã àÌsžœ—f.ÆÂ3w‰™àë„ô€­j)Ñšµl'Q"?¸8ƒá|ä:| ‡6^!¿áHnóÀνÝqÇvZ„è ýE%ŠÍ© {¦Ô†¢þÊ›»Ÿ.ìsèW)ËQŠfŽZ¦‘±<â+mÛD{8m¤½qnìioBq0zÁ‰åÐ)²Üjò3á"S_÷`ì(ΘW%mseìårY vaY'VƒN@̲ˆ} ù(ŠÑï'Ð]7îyÌ;Ó=,¯oQ騡Ef&òTIƒ³îx{húóšÑÙË)\Ü1Ð9$öá毆:É+ô"aÂ!瘼Ï]†f.¡C„CV}œô;.¡\ÑL<\Þt.phCw7ÏÔ I>¼ä-MsµÌp!ki+0ò^¡4ÛZ0.LYœYœvŒŸÊÝë> stream xÚ¥]Û¸ñ=¿ÂÈ“ Ä\‘Ôg‹>¤—Ë5E’úp×®DÛBeÉ'Ê»Ùûõጾl9»¹ƒD‡Ãá|¬ö«`õÓ›¿ß¿¹û%«Ld±ŠW÷»• ¡Ãx•H)b­î‹Õ/k•†›ÿÞÿóîc,'¨:•"P)òHíшãñÞL¾ÿÞ}Ôz²q«cíwnU@Mûó¦mmÞÍ\0—Ä"KU`ÕìËÜT ¬»¾q¶v'›—»g>lw°íÃœN¯‚äMÝ•õ¹ìÌœ”M=©{Ìãé ¸{&y°È.0´qeQDŒýÐä‡ÖÔÛŸMÝÙjûck÷»EF#Øc]G#×™®t]™‹‹;Ï…Å—ÞÊHd!ßÜ>¹W ª>m[æ›­Váúq£¢µ©Î§ÑúÁvO¯‡k}L]Ð"APvø¤‹«x{ùýª°uÎ.ÞòI„\Yœ=nd´¶!ýDÁ v·‘ ŸsŲ*}³è¯,UBI”CWµl2ñ¿—ö2¡q¸é²Šçt¦Û!ãUÐÈ!mu Ö1<øà+¾nújŽ§Êr,TI$Âô 0rèPa·…g± %•O€V©hŽåï¾…y^•5×É0ëÚÒ`­€;0^~þáÞ×ë´Š¬ø=Í¡i;>€âV@qÔ»nç=ÔÞÀ`XRèÑø9šgBm-ê¥BÆ—taÌ…Zk:Ìñw$Ž´-ñA\>4w\ÎÜÕM½½ÂöÜ ÓÐXBxÂtÒ3=oà2¼üTvÚ4„%œÈåV ¬Ò—:‚Ža4éÇêŽ@^!wo¾MÅ ÝŠ½ð%o¦;°¢¾WÄÍ'0QLˆŠØÐ÷Í•E)aµ©äúSÍÛ™-{ÁBnœÝ.]g¨µœiZ¥ƒ:¥öš–½¦a>,‘¦Bš†9iÚ½nat+Õ”¢g @Ș#SWßÆ'~Ý»¥Ë(bL/*ö9`½æ8HQÓ ð™Ûù¥Á–¨2ÃÞ¼!RŽ‰F}%‚%ˆoòŽè±™^1¡63U /f÷àô3F…ÄKÏ! ê`™ À¹ŽAm©ªÊš‘jk}Ɇ[MqXåP  y(…¥ÇÒŒÈס"Òàå줾•Z ÖþXvš‘È_Á…—Ô줄O[ÌN+ +'ÙÜèf}ÉØß÷O"¦ç¯Íbì¡~‹ Üp›uvv,°òä•É?[d©üž¼þ‰ipÂp*~È­â Ò³k¨G«›Ê}x逜 |(cnÃB~ÿ--@~â'I±{À`t6=mÓ`Å·iSÔ\‡_ë‘h¡ï™`x£7oƒBïºiú´Ü§ÅPÌD³÷f¶±”z–¶\ÂëDèHÏCLÏ®ÊzvatÕS©›|§©£%¶?¼Žmiû`ÇŒML¨©ÂÁÐTÁ„bpvÑT!ÛÔT©Œš*Då¦ †¾[AФ©‘‘J~G[€7ïjfùÞqs²­ƒß•G;icäwµ1pVœ ²ú*±©ˆ±0Zn_ýÖ êåÔp¶%ŽE}=¶-‰N_è[ÀGÇ°ðu9,¤"HãªíDDã!_ÕËtúvAËþ)]Nž©½ößKÍ!ž¯©§±n}ɆM>U&“eg¡aàPhjõBÓ›C*©=žzâÍn#uÔÉ›ñ0|±k™ÒyE\ìßÿmãNpÏñõË7è~81uÎz†ß¯±27þ·š?ØÅ)x¸!ä^³í.þÉó³íMqë¹-d³|z büSªmŒ$†™/õèŸepä$ˆûªËŸO¾D…á“/õxâÎû=Tõ¾ß€éÃ3}ñIÿÊ}ÓƒñF8ð*³(ó!|¡”¥"2×DgÿتŷjZÄ3ñK µesv0gXëhž…ÿïø_Ÿcx眹 e²¾?ðêµôxôÒ§ñ$ø2u³X‰Ûrèz6AJ呲 lÀ·ö–٬ᷳ©¶–³OÞñ-ü?(s£7%#žLÛ•ù¹2mÅ1ɤîÌÞ²X"JóKÒ^² Mí|*®5,MÇÿ,¸ÁÒä/Ð9§0œsK îhªŠ‡¾Éà14莆ÃßAÞl¡W¯¼Uá®æx‰­OåÓËz¹©ƒÚ N뺖¤/2½þW¨ÿþxÿæÿ`Aë¢ endstream endobj 3737 0 obj << /Type /ObjStm /N 100 /First 1007 /Length 2802 /Filter /FlateDecode >> stream xÚÅZ[o[¹~÷¯àãæ¡g8¼î¹ í 8)Ð6ȃ,;ÚèâJò&Ù_ßo(ÑŽíÈ–í³Z —‘Ä3üÎp8ßÌ>q4ÎøÄÉx²á,<Á¼‘D*ˆ ”T&Ä:¸˜è „˜Œ>‰Ÿ²!WܤbˆYG‰3äƒþ*„Y «Ä†b}³’>I §sK0ìDç”h˜R— {R¬ˆ"sH1²~œáDA% }6°á’õ`ŒJPÏúO ì³Î0$pÕ‚qý«NYß#àýJEuŽH°S}Vò^µÀ "Iß7Š‘H:/‹Â€TŒäRŸF Lâ3—s2«aœ€ITò&¯Æ-°{LŠ B&£DJPÌ%a rý.›Èu ÖÅë¼Ù9¥ÀV†Ñ×ïR¸LW_5;h©ø²Ë&9O*“0|f2Éë›g«¨è±´X§¨ZðDpŒ9àE©:DƤ“C³Å×ql0"À+d^“½¨f,^–¢óÂt9zE…—ÉI½13~-œtŽbŠ+ŠÞ;SHTàÊú<¶°×'  xõ¡Œ—.’ëÞ”è«$¦$]­ g.P3E¸®“p0¤âÔ- QE¯^ì(ëtêÆŽÕ'²ú±ãT'Är^ý(Ã…š*4Õ«¨žîR…©®î Þ/O¡)¢Rgƒ2òu¹àîDëcØSu‹d¬=‘n2¯ÎN”“ëAìHß>±.”Ã>‡‡ƒ÷ßÎ;3x>›ÍWƒwÇ«úùŸãÙçƒÁ‹ùâ¤[|p îãàƒ_/?Pýp08êF+óʬ=;o1¹þÃ{1‰å"öÜšÁ;3øûüýÜ ^™ŸŽNgö|1ž­ìb:´g“éô™ùùçüy:¦buûQ!+XIѼ›ÓÂ\[ñ,/¦Óáâ›"êŒwdYÃÞ cæ>0§ãÕr5\-o¢y•Éë„Gfðïÿü~ cGDZ±Aav1™|Ü:\GÇlÄÙm4ûdcØu4"óíѯç³U}ÏדÁ…õc¯[%Pû€ 6 _+Á`ƒ¬?h¸€ƒ¯? œ¸Xeè¼]ÌGï:Ú Þ¾zmﻯ+óñúÚ½žuƒ—€ÐÍVK ·YŸ×%ZÎ/£n¹Áõ»7ÝÉxøbþÕÔUˆOˆ¿X¦·ÃžV6Û ¬±ÄÄ•àOå·µ ® Ôn‚o‚4!4!6!5¡i–¦94Í¡iMshšCÓšæÐ4‡¦94Í¡iŽMslšcÓ›æØ4ǵæ}mYgAÐJs6`Væd´vMŒ[w G[Îg=& ÷IuW_l º D·èFDd`M ²ex:R«¼"ØéûCAÑÛÖAúb3ö+!b„¤Û5ÛäÊV³Ét<;î1˜#ªÒao5a‰¶hpðb‘ÒlÅjéÎÃU×ã€ޒr=¢ 8kÄ&FêcsÎ[¡|ê–ËñpÖ£M‚XJ5o´iƒ[\Í``›´G >xLxÄXâOÊGRƒ„Ã!}ƒ‹`³ §¸ÊvŠŸ¯Æ=†d¦–5k³‹¬Ó Òb‰ÆØߎ¡o@,e,Ø I`õVMDïÍ‚, ‘4{$h)qŠ‹ùñ·ÿõ˜~b7ƒîpœE‰,i­ˆ êâ‹Ò}¹˜÷‰«Pï5š£jA{ŒãžÍâÝrº‚¡ÑœÜkŽ Ü£Gvá’àðŽ<´Þ¸`ZãÎ][¥Ç% \LF£)‡5Ã9„Ž î^¿~îш”„ô±ðà˜Òï1›~î“ز-ñ „x%´x/ˆéðdÙ'Š`µ ÃÂ(?QuJrÉ°lGq1Bü<í3 ‹Ø}…£ÀG‘?߇cr|z¶<ö£>kG°ZÒ—VVR‰M»?,t'’åÅñù¤ûÚ#„­¡KCE«RÙB0 #º¿È‹}³Šz&rãK È•Ý‹ãhté†R½ —0ù5åÞ‡ã·i¿8¢¬ÙÄ!ãÑN,ÌSHq%ë}¾›ëQÐ'“nÒçêÀM´"VEWi 2 Š(¤d좛¶Ð×kPÅ.ÚRé&y¸Yj¯#¦Ýš.W­ŽkÝk}]ºƒ×ÙÄÔd¤Äô¤¶GvþVÛCû¾n{”Ö'(­OPZŸ ´>AiˆÒ:¥u Jë@”MB{Ã=6(ºÚz‹pKíµk¦\EÝ¡ì-ꪚ-Xä@BeO½ Í3@é! ÑËé DD-[ö×UЂÎØÕÚH«{mIiàŠ.í³š'Ð|p zͧP´>"†"£}Ö®-•ÊÞ©þ¬]†RSsöµ0ž {¤{Ô4T´‡ Ìp›°¿¦Yázc#鎿ê]ÁZ±ß›1ÀA.Qøè"Ý‹b:þÚØ£‹‰ÎOúäUR:×. ªžË¤§@Œš2ße•éû7/n™1>ȶ÷ì¿#²GÓ»Û´DùÑ´¤Ç–:ÉM(½òJA–¥ç´ˆ¤$6‰öCFP£íÍêÓát<ù¶Õ-~4±3dèÊ/µ"‘XC–C~S;Â!cmA\óšÍ»ÔW{±H²Ü••PMòNFóÉd<[RÉ¡Ï.µC*Îù‘D¤Âi7Dç‹ñêw*%=gÙ¯^¶‰„Bѳá¤U ,ÄZ@Æ^ylÑM‡79ŒÓ8ìûÁ÷^ïøáèP´›%}^ØÀž×»`Oâ°õ]ŠëæÓã9Ì7Æò±|c,ß+-i¿°ž?¢’Ô´ì€9½×è³½Þß$böèd¸üd7þÑçIj+xÅPæ¼ÞÒJøœàYq{ [Ž†“Ñ€Ãçzw‰CöKØ?=™ÔSý†C›„w,Ómucm®í¶g¿|™I’Ôžú1Ú#€ê=ŸGY½´Ûh®-ù§ö@¿KzoÄ•kMP1zò¤°²¾u=¬¿[XÉ!Ý+-Ém÷ºr»×•Û½®,—cZ"Üîuåv¯+·{]yc­ýºy‡Eí…oÜ<&í…óþ¶[äÚñ‹‚ÒPNø8MVƒr+ï}ÛG½‘¿³Šxç÷ˆa&iC6‹= ÚÜQ2Úc8F[@×¹U½bŸ¢U Qƒ×qøTK-¿]½PjÉ|°9íßR³b¹²‡Ó« ûÃ!90b çd#B‹D\Ÿ‹^nÚ ïK  N ½[•õJ¬÷WÊŸ€ƒ¼Ô ¢ ‰·âòCÙzsA¶ïèV¶ºqÈ×G‹'Òx¬<žÇÚ-â¼¹\çÿ?ÀhË3 endstream endobj 3870 0 obj << /Length 3006 /Filter /FlateDecode >> stream xÚÅZÝܶ÷_±ÈC«n‰”()ÜÀ©S4 š\[ Z‰{«Z+mEÉçó_ßÎèsu¶Ó-X‘CrHÎÇo†äù»‡¿ûý‹ßÝ¿øò[ìR‘j©w÷§]àûB…zÐ*ÝÝ»¿{í%—óþŸ÷øòÛ(žõV©qš/×O&vzá3ûÝAňÒdw1 RÔí¯gSï* ½¬Îª§eý€Uå5Ea©¡Íº²±wPI|¯;jÿ¦ÉÏmV¾ÏêÎT‡7™©íSÑø‘ÿÍ÷oà¡3vxݬ•†3× Â¯÷‡Ð<àwÀ…â°ï4Šh¡ã-¥÷üÞ0!r‡”§ƒ>Y]P¯û=pÏÚ¦6¿ÝG‘g©VÓQéÔ´Ôñl:Ó6¦6e÷Dm¸Ìiü8O óÐbxÂÊ6Tº¶Í>ˆ¼weax Èçø´µ§Âœöðï«Ù«ˆÅ¤H É°V(Ùa»2§jié›7—kß¹É`ÜcÙy ±ÂuWÖ=íËÕÛÖä ÓúkRewye5Ž<Ö¿ü Ì7Vßœö2òN{°'Ió:£Tjn”¡ˆüp°Ižùå·¯þøóë Ö¡ˆÀ½QÌ‚¸“•bif¥2V^Yç è:7Ô ¦:•ÈheÌ¢@ê±"õ3Ø*ÖÄq¿‡4'ê8 w›à¸¥B‰°Ô˜³E©!=阳íëÚäÆÚ¬}bV ÏST°Í… Ñ2¾ºÛL†›šnzÒ‡P™ÅKÃZ˜ …ä>Ìkí>b\Å „ß4ØçqaŽ (—tÅ,þü§jºŽ36NÍ‘ü‡emÙô–ZJ!°íÔ×.O°ÌËɺ89Bû\ŠPuâ€æ¶ “‡´o ’Ød&¤Þ/áö!HyAªŸÁË0¾ú(\Æ"ŒÒ\bV›Jï!CÐ&éã„ÛàåZ0ãÄ¥`rŽ-÷œÙXfæ䎽3=˜“«‘ð«Þðæxorwˆ4ä{j)•MÃ`9ØÁÚö­óëÍ,ã.YUm/€Àý£Ò‹’±Ã¸hžÌ  (œpÔá$¬]šp› A"F¤BÏ»7ˆ…/Gµ¡Ín°Mˆ"Ü`ƒ9T¼•aóÈý Á¯`©5œsÃé?Nâ•e^M^žžÈ+I¾±ž«ì¹é«‚šŽLƒ}’ñÇì.zðx[³ÐaÔ,Ž¯yt_ä¦z\p(Û¼¿ åN;®àfùÆÜŠatSÿãnêêì˜ØyĆ5(á9â ’JoÅ9Ø:÷ùœ% :*ü\^Ê*k!_Ñ Ø|ÝÃqgÛ–"áû£¡msõý­£–„#YøÌQ+‰Ø’p0 8%eÒ8Ï„¸Ü2ä‡ØBç~,Õ<Ðe$·YôÀüÆ3ôjêŠy»þ|lÅÕÔÁdœA†p\T+Lb¦ŠÃÑêTÑýÐΠ¦Ê¹£^”µ¹hr·ù!ÃŽ)éÑ,f8˜ÀŸHv-žO¨øS–G] )G3kq¾YëA ŒGÞ!ÌÐ (§»Vp¾¶´–QÜØüŒþ_H-?&¡HÃQûwl* Èþ&Ìß2KÝåÝÈ Žé3%¤uÁ§mS ëg@JÊ£$©} Z ÓÔûîDd2,eô±àÒ•¡ò ‘°J÷l;¸X¦mÌTò×=¦™t­¥èòƒ¯†N½­øÔs7jhÊ. sa­¦„Œ§Çâ"šhÅP¬GÒã8n Z:r@µ- ,@K«´tÈ 4ç¤8iñ¯ÞvžKóÂ!Í ŸIóÂYšr® ´KV˜E^ %BH·‡9Û[x><úÚ{Uu¦­aÿÓÜTBgy öz¯hJL0Æ„{ž„XªóMYöVѬ6Òð—ðF1%\—°©•þœŽ¹–³"`iÝõfX´ä¬DsÿÓŸ·nu%ðMFÌ=>¿™§¢©Õá)ÔÅkÊRñ¤‹„icxŒœ´[ð}$¤˜2Zª:+_æåËM%"·B·o뀻‚cù²ø‚1¥+[ä:™uðM’Ù¬ùÀ®!p«xÏ.ñ ¥$‹¿ÃW¡„¯T<ÝŠÅšß_€J÷yP‚x™—tù½Ðâ¯.’Ät‘Ö×pl·T§›4è5¸,çÑ ª›lØ>œ‘t~Ò­CÇ¥‰-R@åS ˆ_~J‚’Ó6õ”†à{Ñ'|/€¢Œæ/*wÄò¸—¾×üÏÃäÃ÷ÚfXÒ^4\˜F³£7¡?>:evàcøºkE³ ,û‰cY|«ž "€ÉOVˆëîèU4¾:Îîß±BIí/ühIwDø…U߬ølR5»/QÃÕ(’ª»Õ»¾Ñï#H>Þį.ޘѢ€Éð‹ï_ö©$c|æâ~¡p”a‡ ^Â+Ž5Íñ_cäîâó ¤·0áÕsóôìüžp§„›áPèDÎpAÀßam¾‚rœô©J;ÞWÁ¡ ¬oƒâ©©*ÊÆÇ6|øljÌ ¾Z¥ü+ˆ‘àÁEúp¨çwï£é²b ð<]<<´Î´Ýû=¶Ê„¯Ú!ÿæg)ÉWíwôXÅÍãM¼LÍÓ ¢äx֢ɯGÓÕz4=\sëÖÛò‚§ø¨„x³ )ø²ÕYóùâÁs‘µœï˜¶Þ€n^}6¹H‘~ù:?¼ËªÏ_)½¦» mxM·ÿ³¥^ÑRÝk© /F‹¿~Åìy)ªãçOÏÞ6¼#‹g$•ãâ/‡7ÕáÕ‘×ú_­´ÿ+í¯×ÿÇ*ÿôúW™Ý3«œzž'Zþk DÝíÜ×÷/þmú® endstream endobj 3898 0 obj << /Length 2791 /Filter /FlateDecode >> stream xÚµZYsÛ8~ϯpÍC†ª²`\È©Ý­MR“L296¶kó°ÙJ„,$<4$e¯ç×oãà%Ó²äqÊhtýu7h|ru‚OÞ<{yùììu(Ob *N.W'cĸ8‘„ Áâ“Ëôä?Äì¿—ïÎ^ 2˜Ê"‚0`!;©Ê”¯Í¼gØ/ßþž½flð✠fßœS ̽ÿù×ÍèåÁ¤@qDÛÍ–eU©z£‹TW³9 q°™_Ïh$ÙV¡…Æ»û•æ$D! Ýz~;|ïWår]%ÅüCR4*›ÿ–¨¢þSe³9‰qШºq­ºI]7zé¿â;%Ž¤!a„8fíÚ¹Jêm¥þþÓ§óŸÜì‘ aŒ¤ídX’¸ÅËÊýÞ/¬ê&"2†£‡þè9ï‘“ Dûb¾=Ÿ”Sp$¡c ç~“ @ˆïØäx@”OˆË‡ïíln¶ÜÑe¹r¿—³IUêçYµëí_[û™ÆZ5ª*¯T¡tsÛÛ£,2ÿt³VÅ„u(#àµñ£Q´_?Ll°ÜUГY爃#ËtP*C룃~?ü˜Å6_¨jlûºÙ¦Zy“ëb™mS•¶Ok¯‚¤H²ÛZ×ÇÃõVO?¶äêe;Ð&‡…H;áZï;¨ ³Žë;‰¯g$ Ô²)wN]n›e™·ÇN â ÔI¾Éº'‡‰J'ÅR=B +Ý ãƒõá6KfsFYi㌦u£›µkÙSÚÁòjžéï3‚•éuY¦§0Ài*#ïµ×v‘àÅÛW§î­—¾Åa€­Iº˜³t­Îj÷¼-R vwÃÚxL×Û4ØTzÙ´0ê´»;0ùxm"„×c æöò¤©nt XvÏ*S¹*šú¬?,òhCbîD ±6óø šu™Ö÷dãÌò ˆoBúW/õˆQË6k¬‚@MgÓŽ~Ř6 H¥®#/S9M3©”{ :Oš¦b5n›J¾wÀ!­é@RøCÑIevÍó;ª§"F8æ­í’ûÔN w^»ÚK£l4›‡”oWƒS9±º˜Tû$ –@¡¡G•ðÖ[—Û¬ÅSV—®µð½ÒæÖ׋S×·­8# ¶íh»ÞæyRÝî;%“ˆ ™· cöíXó`8G!ï¸hâA–à"ê5û­½~”ÑÈÿš*Y6Lyf@ÕeÍÖ«$£=.W¨! »[Õ:Ý‚}ö ÎQÄèˆöÔ ûD´iR¥Çl5§˜Zç8üÉžC*,Õ~øs‚$ç»v©]ª;2ˆé¨Ósã¬ÛúÔÜžMÿ©|O§Yð# ÏïU2£mx›;kÉ–јŽ!§›C°sæOurU”Î×\¼KŠ±'•‹&ÑEKЖ1Ç‚] ÎTr­ˆÙû` µ°$PãyPúâëµ9hiˆ Y11Š-TæªNæ@5³˜?¿X,¾²ø Žļdû-1Ä#h°ÉJ˺Ðmõ`Ff¬×ƒé=N4ŠPD{×´bïeÌEQô€@±Ô@#?lŸÒNÙ?dc+(ãèÂY²X¨½ûA`ÆrèæRéæ@¦½Å$Ÿ|’Izq‚Ìâüã"øÞxCQØÏн4Q¾4îq­S›ÐJ˜Õlz£Ÿ?ûYîfØfÁÒ'¦1&3e@8Ž\K$Æ–ùT¨écó2ɲÃÕ!¡›ö9ˆºWýqÒEßr·Lq)SKb>_rìöMu¡°2Þ8»/·ž[™“ù÷JH¥½Nb†@æO½ð‡ßæÛ Òš>-ñ²¨&™·UT_Vj¤ÐiŸœ¶ÅFYt¬\«Ê ×ùV ÄŸGçÊ]¸<9±³ÀÊ;¸ÛÃ=èb‡Ô™ŒÁµù8×ø6«îä*m*5žƒâôˆ€˜e$ì‹|µÚ'6&JL†eê²¼~p—ð¯îRï%Ä»…õ#¶€¢ò½þþCxž ³T¹út/ûÁNá_ݪڽ†Éœ £ˆ¯]çtRvúxyÀv|ä$»'ø I<®8_ÌL‘Uge˜£¶.Dõ¹U¾˜¿2[]Í€SZ¾ù÷L€—©åºØúå=÷­qñ«Síßn®ÿ4äÉΑ¡YTVWÿ˜¸õ!@!Û…'’V±F¿¾ù<×M³©9;»¹¹AíÎPcâ`°ý^ý©Å$¾sùvÇPŽF@"##œ«è‡DPn.Uýýû;zƒ20Ä“²šÌ^†ÁûË­Þ¡ æN°9(;¸pW0)÷×v¦»…FÝTª¸J-\.á9_ž—þÆ’Q¶Ê”´×“n–„´/–,r K0$ˆ¯Çé„a%‚ò ÖÏ27Èí]ŠÇ÷ü¥†ƒ™›¡zbUÎrç–pd¢Ñ> &ø¡‹F£X«ÕÓ>0 ¶“Ùp"¿BuÌ;PŒˆïo³[$¦¥6 ;ƒê…2,φ31!ÏÜ/0Š…o*¥Š @Áq\ ßxnÒË(8/º¨}ß;›sÊàƒÿuh‰Bxúê¼Üç fŠ½Y‚u÷èaÛ!·XÙÜÈLÙ$U’›«~7¼ªÊܵj©'¯ýVe–•f•›ùvã«Í¤I¦Œ/p„<‘ñG ÏÉ=ƧCãg|+c3‹hÒÊ2^þ•iÈ°àlÊÊÖ5‰Ð(CtŸÀìel|D¶Á­©Úc~¸åzõ|{ ‡, .ÜÍÙŒz™dn…¤Þ€k÷à.E{™}ê96†rãÞÒÐWMJ»Ö0‰0|÷ýÀ~ç[¹ßT×*©Õ”õ%ÚíìñÎ,^n+{;\ÁŠl“ö®Ö<½2™‚ÿ˜ø¶„7ÛFM™ðÔ ®’(=5¼E ¦$±ä“¸ !Pˆ}ì@pÌξK}f p†x = ››¤ô|ÜV9¤ñ6p°Øº?eû“6X`¼¨oóMSºo}¬õqS-5D-cOó)‹9˜æ³^e«Fx(ÊBìÖ0f!Ç+eU»g÷ºèÅôUj§ú™N¥ë£²]zøžLÑGT²ƒéAD‡šéZ~Ÿ44zaOp\@ͧ‹I¢`ÉhÇÔß›ðýÎÖ‡’/¡0÷D;aà‡?¶ÃÀ#TÄ£XbÆ/ NDÔâD´8² Îœðª5'üºÌÞ¹óÍÞŒ¿ƒ¹žeYÌ'ùÊ\™Z—5…¶ù]”æS„½êtű†å¡ÑMh–Ø4ëJÍ!¹é†3ëÆæ8æÉøÓi£ˆañd¡X  5ô(,i0B –e"6ØÒIºà°ŽÆ9Å9è9wi&ÇÁïž-˜ cx¾hž»‰ï“zí{.g#ÿþ{ûëÐD1Ž¹óXýætÚ#}+UžÔF§*×%™ààêvâ<T||˜cV¥þí xî_k%€ÍZ'¿øŒ˜Ó¥Wƒ/Hïõf£‹eÙøk“/38•Î2äþ~áùhà;8ê=Ðé8‹U õJ±lG™´U¦óIX²÷g4ùåÄ8Ç­cÆÝÁdð©pSœ#r¼ës0ÔQ±›à á+»¾{ ·_|X©öŽënæF8{ÂÌ­ËyxDÚn¥%àHÆŸà—O9”rÆñTµø­Y·ª›d‘)ëU2â“eܯ—Ïþ¿N~ª endstream endobj 3913 0 obj << /Length 1949 /Filter /FlateDecode >> stream xÚ½XÝoã6÷_adN"š”¨ðÃv7é¡Ø ¸$í>t œ,Ñ6o-É'ÑÎfÿúΔ-ùoÚÞ ˜_Ãr>~3®§túÃäûÇÉü6fSADÄÓÇÕ”QJBOÆHŠéc1ýÕkÊŒ”‡Ùo?Îo£¤GŠ˜$B/C¤ M¨c?õÃ$5~À¦Ð’=ÎRêeM]Éë™{¼{m"¼×~¢e"eÐ2˜ EêýTÙ¥v_–Yól²ÕªÌtݴȇzõÊÎ7r›i5 "ï0c‘'ݬj?{‰8ê]"ˆF¬»Ä¸¯Þ7U¶µû WàþnƼM3ã°Z©ÜνW­ÌZÙŽè†1Nxœtl¯IÜ#‰ŒªAÈG˜£5Gj>RbÓ€° ™ú`'E–€QÔ*5¢ÃOAó8u—þh°ËñÊ­wíwóyQ+R7ë9£„QÏ) ˜/bcjÍ!(¥±OGŽê[–>‹I8fèÖÐÂZ 9CóÈ:¤ÔÛH-›z-+©@ïúÙÎj0yk÷.Aï…íÖn\¡í>Á±s%+mÛ¼nd;jøTÕû½ªK©õ9¹ç$HÂËÆŒDÔ$ÁkŒÉœ¹P5‚¡µD4f,?ä‚°­=j5Ηæó„6rj¸èþeSOÉ|£—Ù^‚ƒS¸ŸÏ©ð>ÎDàa&©9o@­‡ÁT +ïêªØçZUk$I<šùÄÍ3F„Ù¥*»to›'¥7vAoäiÓªnìì.Ë?gk9f,ˆPÂÓt4J‘D© GgU[ê x`‘›˜†àx¨Wú)kfaèðŸJ÷¿dmNŸŽ¡¿ÆÚa/8±ùhdr° .…f‡Éü_mK4Œ‰¢áÈù|¨ÆÁUy#ÑéAJ+ÿí¶­P}jáGÒiƒCÛ½ÿarvD†ê„F§ô°¯Ô€ßy¢à$Báë$ ÔŒrÖÛ²¼(Hô„åEÒNêú›’N‚ŒZ³ªx½Ä€ƒ´/ÒæØBšJŽNibeÖJ®[Ö…tŽ ¨mhâpµ¯ PëªÃÁ3_Á4ž ]åæKVî¶6³xÉ°57KaÌþ‘‚¸<ðæÍ›™@÷Bµv ³+¶°ƒ¡²­×,Ž¢(mQ\»þ¾5—l½Ë*-·þß3Yµ_QNæ¦6f1ÀGúeÍå•Ä÷\\ýtum·ej¡wuëFKUríF¹Z䧵F§µ"ÓÙþÈ2·wp‚ãô¿¡¬cþ_ú¸ÿŸècró8ù÷„™Ø`Ç’“óˆÄA8ÍËɯ¿Ñi‹pDÕßôÉ–S žpDÕíôaòýÑÔµCÈ‚‹Æœº¦$bÁ…˜dÆ‚>.Ü¡½Þí§Ü;¨Ìvîö[­Y£2-çf°•X}PñHðAURŽé£’ïÔYø7«K½•ÌuÛw—~¢¿Ã°n/(ŽÆPœÄDqFA蘅ID‚NAïe›7j‡È1Šç%ï0/Ü:ÐÁ: J¸[‡L¶{rm j *Qq¶r‡?§ÍÒióXÐoO¬¾˜‰Â·Û€ÍR½ºœ—ª[·µ¡Ñ³“dµj¨M]2¢yS—Äv½ÞéÃH˜{uà¢ñ\Ø:㤉¢1á6Ž‘Äk©0µ™g—r[#ñ“š !s[0a¥Vé¦6u—){a5Û‘\Ê>{Óa…dÊ0SS™¢Èw•Ø¥|”„$=UÏÇ|TB¹m{ðTFئ*ÛÂ![ÙKWãI0Ã{‘~nÏt1],WÊèY9úŵ] 'k{øåºí6[vÝý²•Ú”®¶øõ¾ŽV7`­ÅÕ»‡KÁ„²ÉåN/ï¾¹îã2@îÍ݇«ë1oÄÇÏâêkÇ¥Xµ‹+xÚ¨bŸm»É­¼Yˆ¨Ãi­GYÝ»õûJbÀyx#uZµ.³À t¶ïºÍ¦v½uVž(v5*!?òÅíÛÝýÚ]Ö´r0uͲ>›+ÔZéNùyξu#BH‘çþÅnÚ0‰=ÀÛfÆà¬û^‚í è5Äzç&Ü¥ÃÇ“§Ú—BÇËLídÞÝ9uí<œÅöTµÛëïÎÂgà•XÀ©…ƒÚç‹õsC:> ,æúX®l»•ÕÚÙü–õ¿êÄáï¶{ñ!ŽiÎ>Ó\´:àï•[Ø™¦Ùq«¾Ê.Ö»síuoQĸlq|}üó½E†¿‘K ‚' &±äüµú§ÔÄDjÔ„íËjD;}±WOÎÔ„š°q¹ƒ‡±©ÆpªÅ:ú8:¦µ*Gm1‘xÝñ²‘±4!!MÏŽÄøà»C"‚Ó;“#l 篾VÿˆîkS-ÄÅ0ÂkSÞô¨¬gºÌ7ðÌ£´a|¨i þI÷pÆîpúøzç¨MUc¾p¼Va6Àq&¶! +íNæjõìÈìÚ þð{àÊοèX,…ª3¾€<: @`½‡°›Ôó ‰¶­Lô¨'©ÖƒE<²ñ“cdw=KPcŽ”„ño8’é½GF¶‡ï{Ë+] k¡ þ¢Q¸. endstream endobj 3924 0 obj << /Length 2747 /Filter /FlateDecode >> stream xÚ­YÛÆùÝ¿BØ—R@Ds†w‹óŽ CÓqE·¡>ª8Ý? —餃³(kU=>Ø£ HéNZ –X#Øu ä’o¿´Y“3„k{SÛ@g¥“ß-Kª„WîyA3‰Q´™3(jªôO}Myújúá9^fàÚ½æ–xÐ×ZÓú¦çØSú¢‘³´˜,°(PB<—Y›z‰·LjF«#Öò&ŠóÌì*î3UÛ?4®³FUEÔŒT${Üz®ñ|#±ACÊ´½ÀÏ 6š ?ÞžØÜLA÷e•·YtÎÞlß´½ŽE¤ÁÒµHƒqlk>¡¥á¨5JOô¾Îlla•žü÷kÕDiVÿÍœ!0uB8à‹$-óçk‰JÑÛ¢lržßEgš‚À¿«Ó„" ,uÞ×ôgY jQ7zrîÚY¥üÁóÑäaQ1˜ Ú£.ìA/5‹ê¦j㦭Ԋvü?þsÑåÐyÏgl|ˆª(n·ÒAþTì)uŠEs½ãïò%|èC[ÓŒœ ˆT!²¶Np—Â5+ÄLvZJ«ü{½‚™S§å…¦×çB£X:¸¦”SÙP®gyƒœ¢â™–èá ˜óp)ÍÐî=é8!¥¸î7¬¢§øà%ƒžÖ«W¯Àƒ+ }1"©K<òcÙrrâõcž«¦ÒÎçô$a9Ú Gý¸rø|WžœuPÍ®c¢) ?墪Ê:VIT7i Òñä9éÙO#ç@å!ú¤ìêÓû>¸vŸÚ•Õ"•f8‚óöæý ‘3eJsÙ¶èµ5ᕱ>ï†LôI³ÁÓSbà™j¿c:m]"ÜÁ<¡¼{½ˆ.øÆAI_„áâ!"ŠSà­Š&mŸ:VHËtƒ^c¯^¿»~»t² ';áÚÉI=PxfŽ¸pd¦ë(Ø †<ýêúv…r!Ý©6Jr4^ßb\:ðãBÛ`p!TïÚÊm./lJ‹Ó¢-Ûzפ¹>ö ZD¥¿Ωá õ¾KñVByHŸô(ÙZ4 a÷R¿úøá柵Ó1³Xâºû`çíõ§58^ø pèçwï/4Æèöúî9€:æ-Ü3å¡âÇ?.B—çN}H'íÖsîÕO’ú^W„ÄeU©ŒR¾Y:Sÿ…9KZ€=Åêø?¤-} AE)QqœúãûW0TÊñ…€‘ bBß;éå+±†ż!]¾º½YFL†f§ˆiÞùMüÐ-tQwÜ)ËÆ–À™ý’îÛ ü¡¼­'TÑ„Þ›¹˜ˆ¸L}kÐD_k¢?ÖDx9p€_è(Ú[c±ŒérÍ+Üdô©'…z‰f8C^I·fkþš#¶o­UœágÓÚ3 ß‹äÛ`ä"^%X´¸®ñÃ#oJ ö­év^E_§ ­ß_ýg1؆v4Ší;Ž¿n8(KvÍãQñé¦æs‘G¬Xƒ¹Þ¬’{õ™„ºá å=ö0TÀpá_i|o“¿¨¥B» ½Æ¨H¢J/‚3Í©íß$Ü,¨Òû­´Œ–Û;_ƯË~ÖšV ̘f•1“°OI™ÄÞÂ.I§‡ò> stream xÚÅZÝ㶿¿ÂØ—h˜ÇI¤ ´À5É%-Š{Èmû’+Ù’m5²äŠòîí¡èßÞõ¹ò~å€Â"‡Ôp83œß e¾Ú¯øêÇ7¾yóö},V Kb¯nv+Á9Sa¼ÒB°X%«›lõKÐSv¼½þçÍ_ß¾ôh¶Jb¦“x¹yÒ$8é ÷ì»çÛ÷JÞZ+mÜkk©¨èe[ì©œ¼?[MÇ,1²[¬>µE]¥åõZ™$¨ÎǼ)¶Ô¹½QoÛº¡þ'ñzGíöSæGß*ójß ð µ³iÀx“{>&­²úHí¢jaXò`¢ƒpkÐ\E$ä6?µ0/TÁ¶>žê*¯ZK}{Ê·Å'Îež!A·EJ#¸´SõDi",2¦Û½aÁ$Š)®ºiis-L°åT-hAøjzâòŸiuÚ¯“³ir ¢fEµ'þbì k¡Cf1Ýç'®MÖ+°’VçÆŒG+ÅbágÉy5¸›—fÝ^Ë(HËsŽf³(5»^‡Rï®× ×in» ž¡â¸Ûþe±Äï‹Äئ56ž@ÚDÏËüÀ=>M`ó¶Ee:¢S´{¢hGÊËœ¼h-8œx¦d4"L”Â9">ÛCa©56´«»9¸ 8h–Û¢q²µß èVqát äGu+…b´Á¯ÍckqQ· Æ]Q–ÔÚxJnÛ☶ ¾Ó”Ó*žê§@­DÜïs TìU§·‹BiÎ"ÙŸÐÆñ\b!“Yj! p¥e-€?&ÏÊ+D,—ò ˆqQ#‚àC"&Í(ÒÅ9„ü8œ[¼ƒMKP„»à<8¥M[laSÍÁîe4†ùð!E,„pø$̇q´ ExP„ îE¹¤¶b£…ŸIÔ«ö˜§•ßb{H[Ú%y/ã Œ]{¨ÏeFs6žÖc óIBh˜T3Gz)ÔxÔ˜ Ms¨_•‡Cþ<˜:ã=ù4üÐh&øW(Jä(Œ-³™CÄSlÁ«èÂ<¯žbóìéQ¤%Áž+mü!L ÕØz,LÌ Ìaç8,M¦°‡ýGl ¹“NCgãeÈšÚxXÖ%µI—kÉe{3±=À@yÉéN7y{—çéª<ó;ŒöÕž¹„Ñ+|vh½Æ<€CÄÅ¡ó1­z¸1f¬e˜°HÌlßc‡ŒÃ)v ±Ÿ°â§x;$¬š\ÀIW}@‚6ÊRÃi–Na ^àGa>6b„Ka¦ÍŠ­1  N/Âg‰2OÁ@…3 B%mg%Ëx×X™xÀöÆÓF0’¿¼¸!gJ‡>äûíîÓã‹n_R»èŸLGý”®^™Ÿ«/:®†’oSÎîÚ$öi^¨]V›oá¸,® nâWŸ È(4ó)\szUS>ê gb-ž2ãý)~úp(m.Ž×ØòKÈð§ö=Š'+7®d"é‘ΧsO7Ì„LÊxdÚDxÓ&”ð%ò1ÓB•#ÄëM+˜ǦMÄÌ´@p¦MÄeÓÐÂ4RüŸ-»½½Ý>ß´e½/¶”¬y°§ÓÂîž:wPlÜçh¼‚1¶Í=ùச"­¶ùz[c|“h«¦øLmªIªóûÒñËo'yČ骦dÃ]Ãá`ZÚšZ._†§»ÖÁÆâ]ŽP ðÞ¡¯nÓf[ß.%#!D–!Ç[Nn°S^ÍÕâ93‘'6>™5¨¯Ì‹©@j×Øü5Â}MÏÇÄÁCxWâÔݹÚzSy¨_tp¶yÇʼn∽S@»Þü RHK“hI}ÉCrô±Ï-Ýáñ(8ÕÖ›õÄÃÁ#p„vY ÐÏ'"ë,/©‰§¾»—…ö¼±mZa\ÞÓ  °±ÍÐ~E‹îZZ&‘3ÒXPðýP·ù+ìu›7›úuÓ’´§åÈ`Z #%O.ã¬ÎJЦS£¼eiÜM+M¯<ãƒ?5õ²Vë‡wÃð‚µ:}GñDßQä,峞8ÈrJÏeK£Årz¼?‡ïßýíãOÖ@`‘ïœ_D‘H¢”* h$vsпö , c˜–:øÇ5¬ì’2KÓÿD³õ:…ù¢\á ¸ž«¡éó;LaÉÂh9Â+'+öEkŸï;£â]M·?ºÒ‹GÞ4\êÅç1å‹%…–ÜBrêùÊtënuF¬ ÞfŒN ®œ-9x8òˆÌ஑&wZSŸ«Ìå±RÁ_vD=W#dǼ҄~9œxò*<ÿÐsqf@‚óR&ü˜Y5¨Sjþüã›Õ/îu8ZÓãêè&ðuð<0ìÎ F4tFqÝûBEOÈ­ïúþcFÕ6u9«:¸×ý÷ï>Kš½ÐùÛK=«[þ®%Aùeañh›ˆ¤Ê° e¥A ½0à?—…]ÕCw'ïë¦hG‹_™榗‰-/~>úiwh³¹UyÖéÔY>Ók_ë$3Æ^°gYÑkÛI>äš–ù —LBZRjf” .>ÇXü„?®dÄðf%a¢{ý#‰þS[¯šïÓ6ýÃB¤Fk„L¿ã7_G£L{çÐpÁZǘNdD)º)õqSTéðÎ]ßó±/C@»§Žs=àÐv+-}ïƒ&Ä°þòêÛâ‹óí¿áóÜÂJþU(ãí¢ÓÒ ' ±Bì*Å#¨v‚}î­ ˆ!} ÊÙžùªPœèMaó-Ü‘×YfƇײÂo¥É!‹îÆñÚáÂøÂÉÀT(K› ”€º#ÿ¾„ê÷!¤:ùpb õÅ"‹ÞŒ½˜4è,à¹uo6)šèŽ:Ó»ÇmK–q¥ ôçoû™ÿv1ba–X =žIjz·¡÷……ý &–Æh±¶^™½ìÂ4ÃÅš½%äïxà‡ù”%`nGÝèàœ°V+ [qÀ—ÿÎöÜy‰‹ƒó‹D Ùôx*}Oê*ÛýDàä4~‡‘Ѓ+ÐËâ7$äÔ£¿‹ð‘Á¿ DF Xå~уº”A 圀tqcóæ¶ÿ“ MÎÌèÎ ¹s‡O:w–&¸ÿÉtLÊ:nX8TX÷Åò…Ïé_'€3ø>­ååVþI€‚v ^ —?ܼùª±™ö endstream endobj 3940 0 obj << /Length 4029 /Filter /FlateDecode >> stream xÚ­[ÝܶÏ_q}êê•ù!‘RŠ<¤€¶HÀ6âIt»¼=Å»ÒUÒÚÞ ÈßÞ)‘:î®m÷°I†ÃùøÍÇnv7ì滯þöæ«ç/ }Se•êæÍý g,“¹ºÑœgJV7o¶7¿¬DÅnÿýæŸÏ_*L•%Ϙ(Ôêìðç}Åùíµ,Š¬úf-4tJzïý­(VußÔíÆ ·kQèÕû¦¦Æø`èÃRtT•ÉjúîO4#ú’Ί\ø uËËÕîx0í˜Ý®¥ä«´DSfþ’m õáqß´;z2}ßõŽ«ºwS6]ß›}=ší3ì¨ðeG°kí”]Ïðh6Íý)ZÏÍZ«¬ÊoÖ äª(ˆM஡/°H&ëMwË‹¨‹&ê±o>R»»§_· -ƒË`^¸ìŒpì´. 7×g„k×&”È´°ºô ‚ŽN¸3Õ¼30DTù´3áš­iÚ§µÒéÌI ã¾;¶Öð¥vL ÁEÄÅ;¤@24òÝÞ ¦§Wio¡óÇý;—vÏcú}ý›9¶f°¾ fÓΧ)j¦ôö¶ónfú‰Mú{³Û5¸«’•ž˜Db°ïy)W/‘y\ Ž÷5>}ÀMŸÁÞ—Íð`üŒ[ÁVë±[ÿNÏc_·Hâ`¶ô–÷¨JÀ¯‚ü"N¶â$>˜ðÔ‡c3Öw{C¯Pä²y‚ByåT|)y²’…‘×£ivVôJØeóªdnÙ2/¬K²cÀêh9ròÐÙ EôjÖ†°Ã‘?Ç“‰Ree!§yÍ“A`,x¾ôdŽá×ÆñVï‡îÓyXKpÄR-|Íû«¬€æzbÅꇴæ(Ñ &'‹ãC=R‹öW’»År·vRG#Øű?nÜáÇǾûØ@T3ž¨¡®FCœ}p:³v|ÇšC²ää5Àd¶æÑ´[òåÂcÀ°÷¥óÐå<†ë%ýƒFM£.^”KGUºØ ›¦ßàuÑM£é1á¶&]ÙÒ›_, °Aí™íg–›„'(ö(¶ê ðÚ¼P¿³;@f¬×u[ïOƒqôÀBr‹]àÍý{>*>öd¦4ÏË~ƒ}§”¥“~ ΢媪U…·…ÈŠÒ½ýš ׄ~^6­CóÅ=îñðuÖ°°¼Åµ4ãC "q@±<ƽè_NÍ3úÊO6?ý#¡&\c]9³ÒHŠþð# Äl׳64çÐmÍžšëÂù#9'xÛBéñ4`£k?±`m7š¯Ñ»ò° ©ÅÉœÅä‚œ¥>]‹¨²²,çµ<¥”ƒ”f:ÍîP‹/¢Øö¥à “®)rš¢¸D®È˜®¦Í{èRDr@çù5"Ó»úð¥k‹˜y|h¾˜™‰È«  PòPíŠÒc…åî‹ŒÍñç"o“ €;/Ôœ¢ jF ÿU˜|¡u²”ý´óÇ©á_mvm×›­Ïàõ)<ÃW~œ5Я¥d½=/ª,_ƶƒ÷ ‘GµÚ5ÄZ– Mluw¢%ñ0›Ue¦ô´r?#fÀ‡ô¤Y¿2ÉT‹YÔ?ÐŒ2"Â*>)RDdVÎœüÊ„À±úëíš+å3²&‡ŒŒé€hÊ÷DD•åÕêƒ'KdVÌ\žÔʬ˜mwE]“xqU›n<´”‹àÉ3R°Çp žÕŽP”‡Fw8™æmi’¸Ï, Vd\óHJ)6ÁlZ•‘̲Z"ÊH׈•¾Þ—RU9àˆ£›æxCA²|6¦X$Do™_Ê¥9ã.CA"qÇLþ u˜=Õ*—›"£~9a‚%ƒ‹²ŠæžúkgL9Ït)bn(]ÞUF©[€z|&4î`eÒ–z¨QŠ3%^™RÕå„.«T ½[Å&±4r‘éêÊ~”RFûlÖ$ΞyjKNù t6Š`¡¢¯GÒñ9y—SòÞ´›ý‘ôÐ>Ñk5ÉgI§£Rž+“åy¦gË…‡À—ç ‘à8¾¥o `Gû€»_MSYUÉX—(ËÒ‚²,-ŸD9,d 4TÓ#n_t5*i«_«Ö2vÕšìû÷¦Ýy8»b®²BN®ø]RŸ& <ÇPÐ>ÏÛÍÙM¶÷¶(VÞÖD!bùü븛G[PpèÙkV-èÀË iqîN4É“XDŒÞº71G}/7¤÷®éÜ°´`|kf²Tä’1Âäc~NŠ‹É"ŠçsÐLÈ_gjÆlï’aPW“;%ðÁP‘‹E)šàYYYÂßÀæjö‰4f O만KÐ[¾1ï—}œbÄÝÞ¸·PP&ÛeÏΘX1ckbÖe|ã|È]Ó"`d0§ƒ¦˜›ò ⱜŽ0õ2ÍpÑ/€H1s:+g•F¾(Qà‚«€Ê§¤4dÕiø+P: 'SNI†Ç'su1aIUšÜã2h´µ-zà˜5Èy¬\î(ŽQ¡(/gãCoÜü…oã` 4=.L…4}>À™Ï°Ì0š~cç@I!t»õY¾ ÑaxRˆøÔäîD¿[H¸á 5x ê8¶ðídv\*H¶æpæYùæå·ß¿~‘ ¡&&Ó˼Í10È<ŽjßîT[‡‘RUØ gþd©*\L«VÖ¨KJÛºß~Æ ˜›]oûúâ êûôÂpjÇú#}Ý Ø™º*x½VòXìʺÙAºxJ6Üò•qK<ƒÁ,5—W"-U\ ú¬Â£€‡î¸ßRûÎB7ˆ•ç½ƒà]pú`ë×ëÁXxô "Ä|¨£)ÝQ2ý9ëÏþu5Q<„'ÌòÎ;Nø¿ðRB0,¥¸Âú1;ë/³?]v¤| ¤Tš…y-Z-fÿ@ ©7SéžËÕc·?µÝ¡©÷ÏÌ Pj ÄgúƒŸBˆÉÙåÆ!:æsˆ~M=4˜ë# ï˜Û?&ƒWâ0>éqn¡duåu³DGѶÆ!µ¬ªÕ[*_”,B0¶xëÞpät(HéO\˳'®ŠCšª®CIÍŹ”§ÙÒ¾Ìb¸,ƒL±ŸBâÒõÁ†\@| ¶µ¦~!:°¾嶇ÝuŽÔD©…ã°¨Ah_ÍÑ«Þ‚rBd¡?„³¦w£È¥w8HI4ìÙˆmm›2*í‡"/Üÿ±§¢ØÄNÉÊ+úÑd•ÁK«yòéþ%Ç<—rÃ/ØÐ+g ZÉ'¹¢°­BXD1PVg„¥ »ãWT9OZFÞ·&ÇAäè`pµ™éå%ƒs^$uóå<ÜÝÂç÷VäS$8ߟ SCìp^$›< b7±8+ÂIÖxe„._v@)—»©hŠø”t¼ÜRÏ2§‡ÁdåZ(Z^*]s–±¹Xq®v-²¢(þŸµëŸo×Oúy¦-©‚­SlLa‹Ï-`ƒ Ï°s@Z奫æ»k[ƒ'dÉ}RE™ã]8þ"Ù-cÕœñã½P(Ð.ª0Ÿ"±(ÆGïùêÒÀÛ «F¦Ë?øàêã3!º0Ñ#õR Nm‡ZíUŒŽº¸£yï?;QiÚôÕŠÉd”²HŒZ¶>Œ¿nÄ“Ò“>»Ê¸Rg+à°<8ËMH•'J×\‘ ýø…b;ªD+ɹ"ãµñ)¥&lfGÍýÚ×eÆÄ“[XLl<Eà§*—yêà©ÊÁ­œ'Ó”K•ñ¢¼" •qÅãÒ’u×R¦«†Ðe†Ñ^–ØÒã™âg°²¹–~÷Ôöððh²½o0×ÎÏ7ø<],+W°u*«´,çÊ•„LÌ 3E‹ðô³Þ‚-È*I‘ƒÌD• Y^¤8;‘ˆ9‘hsôt0MeBL©O,!ÏrjøÁsÒP_,Ô¹WaiðÝÏ;ç!ÇC^ÊX½ß&Q,rÖ”Á.,¯ÜFk-ÁÔ§IV-$»8sà"–¬w:μõêƒiv#µ§r´QkÑ º£œ0aÒì£@ݪˆ]“^ývÜjú™”^8)Mø~ùŸ1•œ ZgfÔàW—¸û€Á]WUr ?íV®Ã‰îf2ó7“Ý•£ìÜ;tÄëŠxÃokì=€HêM¡¨í Ê~§ñ°È6ä\»¿³&æéJ_ây¦;|î-J& W7EN÷f¨¯·$Ÿšä½œlþ@³ml-üi Òì²ÇÐlDSÍÐXÌ;–Úá/݃Â$ÌIaãì½ø¼˜Ó úLHÉL2yæPªTõæ Iâ XŠû´äéL¹·P~M3Ò¥Òœ®æóA¶ƒš>EJÐÆ 5^@3º\Ó=„|µo,Z‚–Í;ñ7 Ž"†ùB §+s?=Œ§G×í/9æþ’cî.9æ˃¤Üí”}É®¹Šå=~ØKA2:Δ%8Õ9;íóˆË.•ü¯K‡¶)ß!À+Ws•z-ᳯ›>zÌ5-m«íÃ< ?M¢›ñìé vW¢×l^å®ïŽ8LÀŒUÏËó')á1dr¡èÔ `¬E{¤æS±ZAûÇ麧ÔÓ}ÍýdûîµéÜ’èØòlµį³-ÛRîÍÆÉaŠ±”×}ñæ«ÿÇ@– endstream endobj 3962 0 obj << /Length 4110 /Filter /FlateDecode >> stream xÚÕÙŽä¶ñ}¿¢á£Øæò/~°ãر lïyˆó îÖÌÈÛ-M$µÇùöT±¨[Ý3{9,fÅ&©bU±.K|u³â«ïŸ}óúÙ‹ïŒXyæ4«××+Á9S‰YY!˜Q~õz¿úǺ:¦ìøÛÕ?_ÿøâ;m³•7Ìz°Â<éNzÆ#øÕFYÁ´w«´ð’¢i¿]I½N§ìj#¥Z—×ôlncG•ûòHíì'_g»æ9v¸õým~h_<5»ò˜Õôë>on©µÏãKUV4ÔÕ-YÏ× d)5 K: ^vdåûÒ…d©v Á¯òtÛ"—Vm£®OÇl×+°Ã+æ„\m€Í^k²Å7l²Î‹}v—ÁEî6ÊÉõëÛ8Ô­Sìbpà®,ˆP«ágUe5ôìóâ†fÀšáYŸv·ÔJéq]VÇÓ!þÈkzªeÐ…Û¢\ EDiËtÒqç®Ͳ+üU'ÆõJ1#"mr… K,ˆH?)RûuALRÆ1nü˜IiµÍ›*­®6»uq:n³ Û6l*ö¡ØŠÖ4¾K êFF‡‰wÙ.ÿ…s‰ôbG;3¥Ÿ‡¼n¨E í Ò5ÏØ {¾ CŠ æLˤN¤5_EŽþC?=þI§·G”ç{ñœ&M_ |/œXà³I˜…Žn¿t€ÃMTá§r%¼îåª^!ãê$`µó¸l`Ô9‹¢á¤]Ih3ž/`‘0­ž †â n„…|o°™Ä¶º$f•ˆ.X¿õˬnH˜t·çØîÍXMo’@i0@yìAÑŠÆ+¦L»û†–«Ø“®ªDÄ8ôì÷¸&6O5ªý\ѬKã.ˆã™/@®Xã-ªoà‹’m3j^Ä©&,Sêh—ÄvÏ š21Z8¥5” t,áÉXÈSÀ¬›ª<Ý‘¡jl„çÚ$ꯛê´kNˆ;þÌ zùÂÆ>m"„~ã6*‘ƒà-L‚zØ{ê¼®‚Á‚«ÓclÝ¥wà÷lO"Ö‡t[ †YZ!Z * ´âˆ„ RyŠB`ÐŽéõ!O:Åyù1?¤u‡Î, Aô”€d;xT†!*ôϨÄ)DežÄ­0¨¬Ÿ/‘×Ï)èë(†_œhl‡‘Љ$éÅ°|ý*Ëâœëv)tz¼;´C?])ônu“MyWžeMSq7%"Êô Bãeú&½¹KŒÐî¯@Ó~Æ!¯vÝk7€•¬æ¹‘­ØgMšjÖ¨P ð¹U…'jþüý³©-v,,¢fƒ¨²7cZ‘Âщff ±¢wƒO^B WÞ–UqL‹Brn/- 6Çòw]qDk¹­ò ×S—Ö3°^eX$‰kwòi KÍ1\xWeû XË/­ J.˜uz,+4 Duâ-–,Uè©Ù¤Ezx¨³eÙù!(­ÄØ%oò2þ"3½°ºEÚ 4øð@Cd $)ØÝë²Îøv‘Áôî)fx¤ñUKÇpxÏu{hƒú+sæ|›{?q“ `Á›ú°|­oà,KÆI†€€!ÌDqÔBœ*5¸¢²…-èGJþì©eÜ:£’8º;)ÇLŸnˆ Ê‹"«FL« = ! þº‹…EšíM4 ÒF+dÈç`k˜¸€ŸC´Õz¸+çp‚S.fZô‚Ÿ"!’v–]°ëú6枇”Îì0ÔgOì$Ži” ïá…¡˜~±óPLº˜/±gHÅýw¢ÓqÚ9©®ŠÞX7Q€4Ìrr|⡳À„üàãM›ÂÑa Ñi±âM{@” ¯^ÓKg²@ VJÊÇ6P:&ŒQµˆ9õ¤)™.-D'>\“©­£¼M ·-¦…zŒÉøe0¦Lcÿy”|Uò„MÒ^ŸÉk!1HOMyk¸KÁ "UÅÇÛyô¸qÀ®)«.á!­µ€¨÷Š05Gfffgd¦TÌl)‹gãXÆŒö{}ý;CŒ9˱…yƒ ×Ϋˆg$ ±ÒÊGYï†YÇ!ë_Ɖõß1ÞEŸ/2¥™‡À`Ä Bü«Ïþôê³…õt¬O®]šhŸ=¥N!¤Ón]?Á}VùŽüÀŸA$´d:5Kr–±!X;Ä×&¹ÌvÑË\È:b8àÍ Ý“ÌÓ=i8õXÚsŒŒ[¬Ò ñp;1Œö’W×ýžŽðqŠù¤Sû_i†j,éx‹§OëÚL×8•8ûÎ'} G7c×_àÃÐö/©óÇ%OÍCv=™pŒá¯'ÄŒ¤Gs¦ú ï‚i¸Ï‰iØtÀ=ºÍVºóR1¬ÂrN˜~…“ÉâžÃé¸#'`Øú¥muLÊN¨=Û+Éק†¦Ü•u><3Ò´}†Œ.ò¦MÆÉqܱieBÐdbÿv%šˆ¼ÑkˆÆªüwjÍ6f ÙF_ÔìÜÙ;:×¹b[RlwI±%ø›b‡pÑ cê]•o[”Óm$6²®k»£Ÿ(ÃÂu7—á0Gc(®Y·Dl |‰¤ Šî˜&òó+Ø–¾$CÌá87Ìc˜Îã13Ág[}ÜæEK¢÷Ö1Xg1Ÿ¥ÞÊ>!И͙;íäÜs‰€ b‰vÔgxËÛ.;ÍÑØ$’w.ŒÖŽñþÊýB”r&Šn­ƒãëïpUJ{ªYÚÓ·QdÍâIJ1ÑPÞ‘öÐ ¦ejøúÛ’ëòT-ÝÄ;``Qó¡ Š™°ÞÙoeFfÑŠ`š ­ÈnšT‹Éº¯ø¢ã Æ$!`o°ÎCz??}lwzm×^ÎͯKp G&%Œ›Ñ.ñ»51ygÚNÍ”›uYû¢]s|°†€@p†s=³€Ô×£;ŠÌ;Å\´Èp°x¹,`{ëí̘Œƒx ¦0`|ªQ7í½P„íJ¸úÀ8&LˆdŠãû“m?Ù„kN>u²ÿ(oÅÉ¡Zz&”\)ÆŽf©%¥´s¥´ J©Cl¶€Ã…4Ìyÿ‘4Œ‰{Mǀ㹗¶£ò•±  XŒ–‡iâÑ t°J‚á÷æü&!&L: %Ø &.aˆ,°ö à.1ÂŽ±¨q ăxEþ®œPA3ÔÜÿ Aù‘·êÒ+™´‚¶J¾'’O}«’¾UŸ‚ꩾŸ,% îÌŸ0xͨ÷ä0içÅáeí&Vqq[m2‘»%ˆ6È҇㷑9ó¸«bÝ{Šœ{ÜÓhÉœïÆSõayª>:Oc8714O£U~´Ê+?—ÜŸÇr“™÷{K“+>ɧ,>‰ü„i•˜Võ ÓªžJëÇqïÚXÿ>»¤õšÉpbåL·†ÿUŸéZ¨jRð‚Ÿfõøv1«oÃýÔ Î{!ÍgC{ïÛ¾þþ³åÚ"mÅRñê×SÝPë¿ÁˆÅz,8›æg. ŸŠ¹}×ÛGüŽ¡jo ”åáÈ<.+¸Ëv“:8£©×Çlê.»k裀P—2O/{ÉŒõÞ%%ª/›¨ `!dEyMìàq庬fÜgÔ“åTœ‹í›öõ4‚Û¥ª8öë‹kòæ~µ*8¹ŒoÇ—öyzSé!j ‡S®˜Ô^ÐÛ‹…†ÝÝÔF™sWò ÔÍú'éÄ +ÿæ´DoàJJéQ7§ý5‰êpk2¸œ^(êöBñÆ"°ÁwF—®-—Pn¯^Ó(x œÐoy:ÁI,ŠÊkún$Ví)!©)aÿÃ]|#ì$<[ÀÜ´:>§ª,út,ôѬþ³1ùlëO‡=ÍÞFà±Æ,ãKu“o–ÊžA>‚tòõm‰pïéhkYÜè׬ˆƒŸ£?ì I壺8Þ~CBnãÂm5=ï˜ÍX¡Æ‡…… è_^„¥”ZßßfQ¿T[«³Çò°Tto…O*g¸ÉŠŒ´L ¿Ö¬©#ÝUe]Œ)ý@?þ„­_ÀÖìj£µ[¿ÌšE~‡Jô²zƒßDøq50Þ¿R9],Z… o Ú•‚Ãý$¾¡-ÞoŽbÕˆg]u{¯‹¬?h¸‡Xw•s0¥Êþuʃˀ± ƒC¢'NékŽjñ|c!…[¿J)h6¡Ù ß™Úaɹ‹wbÒÛø‘©VJ‡Š|i­}T¿¦Ù–2Yš¦ôö_ÊÓ}vÈ‹Å}a@åS~ý5lò¾Æœ¯?G!àñó_ š€qü4Çè“8)ÛOâ +è!ô 1k®@ ɲËøaŠˆ_Þ`Û“Où:‹ïFõ“sÚf’ŠÈ6-“3EŒ"/ÜZkÇÆP:ךlF¡qn|¯çbå® > N ² ghñ÷´~a úP3Üõá³/ˆ†_Ç,­CyÕ¾³+ËÀ^a[ók[Ó‚­`Zb|ŒEüHÐi‘5ý¦jh„íkº¥šù™†‘ø¡¶céo;ÿŽ\„Hãhv½(‡Á„¾¯ùú®-,öqüZøùMVŸ„%N ªϨjXÄï½û’š?Ræí§tŸÓãçô>˜êFêÛþÓ}mÖ}&Ñ>ÿüúÙ`PÑí endstream endobj 3975 0 obj << /Length 3943 /Filter /FlateDecode >> stream xÚí\[ܶ~÷¯䡘E;4oâ%Mœ"N\‰álI´3ÚÕ3ÒTÒÄÙ èoï9$u¡FsY{7N‘ÂÀJ¢ÈCò\>Šß˜ÎîftöÕ³/®Ÿ=™è™%Vq5»¾1J‰j¦#JØÙõjöÃœ[~õë¿>©Ø ª0ŒPn@«TmS²ý ë=£AüHöB$ 1\Ï\C¡ðí¾Ï²Ðþ3«°­¿}ƒ"„O®mÛå*mÈMV½ÍæT×Ê-º¡þéò%I¨ö—Öu^¼å”©³ýÙÇèïmºIó´€ žìPK¢ùcô·JïʺɋòœJ$Ê º\pÊçi±º¼oN‰î%`çË*½m8¥â´IK¤´³ø¨Mßü¶¬®ÌÒyvÅ’ùÏév·Éj_RÞúëv¿iò+žÌÂ?i•§MÞdMºH‹ts_·ÞåÍzÐ ¤aûfYn³šÀ„áñAÞËMêV‘y‹t·oÒ'½ Œ `Ýír¹¯V÷`*ú0oš-$­kýAö†à5<²w“EVÕ[Ðõ¹ˆ²šPÃÚÆÎÚ\Êùí¾jÖ™{HF¦Ç×hz|ãl&tƇJÙæù´7`£m¹Ê6µoèÝKÁêè؃Wc‚XPo¤˜U õAbÝTûe³¯ÜPàùGšÐ:ËüCº©ËŠ›ýàjÁIJH'®\†Ù£©² ~åVy½ÜH•…v*Ö…‰l³bÕÖwÅÀ««·?BØ•W®À•‡Nä¼Þ/×¾h™BxÀ<q ñÔ䚘ޜ.²´*‹s¨£á"‰Ü@$ üÐ_à ö€ÖwxKQXrsht,vF÷·MÙ @ø%¼¯³¢ÎƒÃäÍ}[cÞî²e¾ð~aa¬å ÊåKl¦’9 ‡”úaê’’°8Ö°e››Mº: Ô–(%ß=¬d´ÖîÒ»MV‚ùI#ÁêGÙcô¸)wÙ/ ö!ð¸T?p%âÄÄi˜»€~O.DŠJFäì/=-åš¿*áµÈš6}A´õ‘`#ö…9קv¼v æE㫺ٯrWU¶+«ÆGë×1ÿ2m‚°n­Ã:M¾Í|ù®Ì‹¦FÕ ämåôÞ×shæŠn²¶³´.‹ÅL¤7‡³ÖÅNÜe·~·Ù²©Ÿ÷ãw"ªPeYV=Âs‰ªò_¹yÛWº„Ú+§÷¢ ÅE¸î›²rv»ŸœK÷+ êFõ¨ïô_Õëô­ÌM7u)Õ’ýg¸Ur~}%žsHø ûª}Å?øËw›·yáZ$ЂqÁ‹DØ/@½f‡†»}µ+ë,´)‹0ž¥J¼Y—ðÚgõQ(Œgèæóù'/Þ|â+G@äY9Ì¥ð&¨weT+YP-skäC%ai»Æ†÷€¦Ðp^v@],3ßb˜PÑø±áž„ȸîRž©¾–ž)bq àPF1D±0I>15ÈU Z j9°Ç!½xƒfeh„0lð”þ‚3"!ɉ”Ø:¥_“5¸ë¶tªÑ,¸9”ù‰nöÎ¥á…ÃÝÆT0€rë ûH7ðòº­‹ 0ú9´6×°3v明M(ökªôÎ$>’¡“z]î7«®£"è‚žë¢Ê0Ñ€cþ,Âìà¦ZîëðÆÇ)ÜõàCEë,PœK„ïd„0sxîzêj .TÓÒqQÔ˜‡Ö½ã>,ç±všyö¯}ºÙÜûe§Þ¥KÄ|ѧÂ'x^¯3“B?éÆ×Nßy(×ÇÌ—’$öóY}Ä|nUgQ6¾Ü5ëÓ¤¢ {nIFoYø¹#údyåoW³ ôŽjÕfþÃÚâUÝ’¡ C›šKBy-- }}‡ áÐj˜pØÁ­sL\}oŸÚÖþÙçT¹¼¬ ‹"Öó—u~RÖ`ȶÂË0w&ÉÈ—# *FåÑßùë!PYNx¿÷}N1:¨´€l“øá4¤ÿœÐ%Í3N>»¬20¶Ÿ¸RÁá&†[,éáÖ=:‡ -§Å”&¬wÈ©‘H¢z€ÆXFi[dPÛ¶ïf › ÀË~·±@¬Òl­/óÂäÕÎìˆ?. §/!Õ©Baçìƒmaðeâ8$<~ù„šÛün’Ÿe ûU’0¿Í8tcAa ®Üø/Ón ¥Ix¼¹Á8ÝÊq^ Ã+î5ítÍ(s%)./ nT–¾]1Ömõ"˜²G Éƒ&Ü°ks 4™cÈ#½bs¿¶„ÕP!9¾¢€ºÛñŠ6åîʃzäÀD˜D×JŽ<kOtK¬oƒä[ÓzÔ%Ó­Õ$¦‘þÀ Õ%J|R+^ ˜wQ¯Iaa„Dö¶Üǹ.Üu+PH­ëP}¥€ç>y$Å pa± Yu”™áÎ%mª|9Þàø%Þ«Ú~Ú)ÅÀta[ŠJQ„ Ób„q˜w.,e,^Œ‹ÄNÄ“‘Á(‘áz2«êÖó„hÅ|¡j "ÌA‘NÂwð€Ñ†ú1àœJÕš[q‹K“ƒs £ÄPÁy$n1¾°€ÅF+ÓÉãGdZb;'Ʀ`Z‹Aµ¢€lÛÃ1N„RŸ(ÁHìцÇÀ›Œ‹;¥@~V$dYŠ?ž¬éò=(ž^ ŽÉþF¬;=¸ i‘át,€xT‚h>0Ùrô!äè!䄲ĕ¡OºÀâa¬ý3'p Æ­Ž%ï¡LD)žía×Ú¿`SÎÏ ˆ% ÕØYèð›Žð{ÒÅ•ŽH“<èHÚÔ¹$5ÏŠ»\“( 5úPOg‡Z¨SuV§èÀv$ír›‹GµùäÉ]¢ð(6?1è…¡-osþ+ÿ¡äÓÛÜãêÈèÁ½å“»›ªx€Ë' ¸t€æßrbílgj&íQÅÿÄÚ»J;Xû¬xŒÖÒÄr7R~·¯q#ðu"šÂD›Ñ#¢…ÚéˆOÐRKüi8G o[ò žø ͇‹áVôn«üuÿê€a1áF4‹6Âé ¾t^wÆÍc­I=ɵe„÷~ô\[ ¦±׶¥|Á’n‘ïÃ)àŸRCö“)€÷³#ºÕY¾àpÆÞY$©Ù)¿§Â·w.Ýï‚ÔO¾ýåß_·´”£g?＃~eœcP;¥vÇì*û.|>Ø{FdJ"˜î%%S‰Ñ‚YHùe<é¯Rü)Ñ$•é`¶_½øÛ¯;Û)oc°e`L²ØÛtäl­ …áa†ã†Œ¥™“®{L½œÂ.qìTØÄ¥Õ%ÚýæÕ·gµëبSºe„ê3ªuw9’9t¤8Yƒ,¼ ÁWc&L±áÈHzC/¸6óÏð¢çÓ#ãh{ÎÅ9äÉÐE>&ÙˆvÚ+,Y^b”7/®ÏeÊ š°)_7#{ˆ ´$ß×fCW÷‚7Sá` ‹Ý”ÎÝ^ócóˆwyO1sjG½%á°ËÑ,ëì>óåe À÷¯¿~ì 5Çb–MšÌö$óO'¢Æ}ï“#Öd0Qï±Ä ?iu˜ 87:óT£›t¿vŒÎѧÑ^}< 4„BPÂ~¥Žûè*ëvÉÜjŸóNx4úf4Øw¸,ý3Ÿ´™Øí\ÞIKÿ?;ø_ïhÿ›¼5¸³:´£$¦ÿIì”TM¬ì*ä“»(B“ssïá…£±#?…ôµOpè‘quÝ–øÓ÷wy eÂÃöæÜíÐò_ÚD”âÙV·¿¹2ÑÇLŸøB hÕè‹Aô S¿á²ûP$¤ÿP¯^çþ¨ô¥~çÅ_„OVP†žÁÌÚ_0*:»ï,m%Ýú&Ý·#_Ü}vÂO]Iû‹ xáP$ÄðõþÃt{ýòúÙï;¶7 endstream endobj 3866 0 obj << /Type /ObjStm /N 100 /First 998 /Length 2795 /Filter /FlateDecode >> stream xÚÅZ[o[¹~÷¯àãîC)ïS d7H»@ I ´ òp,Ÿ$ÚH:Z]’M}¿¡DÅŽ#ûØf²@.#‰~œût9Xe”Ë!+òD´ÊrÂ)çI’Ayçd0+ŸX¾a¸ÌJ*‘ŒI¤Àò „U™Ë¬¬ØË,|"“‚ rŠ[¡¼¢àÊAQÜÿå=3Ìà(ðRV–Lù••µÁ`…l”uj&eƒ“_3Ðï¹d§l¦Byì(‚Œ† …iÖ•¹XÈ%Y-c#d7{‹!b Æâ©Ì`ˆ‚­lÀ½‰2?x[P±‡h¼ìˆ!$Ÿ3CJQ¾cc@ÉBl’²—”XÖˆÊg .LøŽCT *s£ V4Ã&©à8›¬¾ ˆPôø1“&T(ìÀkŸ%€ì13€‹à™¢ŠÆ [H:š,Ì°÷H²E&%bdëTt¦Œ“UBÇ*†½<ð]r[ÌÈ… v’Œˆ‘­%fÄΊy:U²"_†Ö“w²Yh.AB‘JÁÊ\Ç*ɦ0¦••5²‚.ò^Ù¤ÂÙ¨l¬2ô V›}7çà„sÄwÉa¨pUB(p—ï#dG/{g˜+ÇTæFÅ\8{1ëb× ®d,ÉHÏ ¸Ú’@F­3üÞPtÛ$ÃE/‘;e¨àDhP‘K…V£`Ë4¬F1–iX²)±q‘\,Ÿ=zt6yùiÕ«ÉãårØžM^ìηåó?fË÷g“Ÿ‡õE¿~e ÌëÉß'¿N~yEåÃÙäy?ݪW6:-«DOÚ`ï6;màù1)bÜcõè‘š¼P“¿ /5y¢~xþf©³ÍT?¿è6ïô°ÚΆåæGõÓOgøópL>e]BöZßsÒÅ]8è”ï‹é‰z'“eŸ«É¿ÿó_¨Y;/Vë5œH-wóù듃a etðADÇq£} v3r´¬SøÉÓa¹-»} ñöÓžÂìbÉþâŽ/á^>À¦|8p E"êîiĈx(À{òl=L_ô·š<{òTM^ölÕë«|Ö½íÏ&¿B¿Ün$HÆ¢¨Í°[OûÍ>”ïþÙ_̺Ÿ‡?TÑ-œÚBYϺ5fKvIûÅ.6X¸¤Áóºá8b‹žB¨Ë¤#¼ÉÛ¨m8i7ýfÚͧ×m…ïb+ü}&£m¢Sú¼¢Â+Ê=­O›dü7R.çëÊåxå"Ž žR ˆP‰X‰T‰\ >ÙT‚*a+Q9çÊ9WιrΕs®œsåÌ•3WÎ\9såÌ•3‡¦&š£öÈJHcÚIIA¶}sÖ–ù¤®Ö³åV¯^¼ki‘Ò4Š$,A{df¢&)o€ò:‰f³[,ºõ'ÁÓŒ3¤Q÷Á@,ÚHø¿Ì›Ùv³í¶›¶hÈyPÀøh´GI†ÊU‡R‰N¢Y÷›ÙÅ®›·†ƒ\ˆ:±¢Aù KmzHfyÑ­/Ú›bm„û1äcÓD»‹þ[Ør¶:£<õ>!‹¢Ž²ˆšÐ‡Œ$pºj˜÷݇ž†]{Dh&4Špï¬6¨½Ëå"ZÍñ{`CÛ¶æ#kzFÅ’¼FŸt;–ÝrÙÏc‘òŽüK ƒ¤nŲî‚c!BÒìi”ï蔽†aš¹ʼ;?ï#‰(-Rþ …‘(ÂíPλÝo]ck±”uK=`A[ŽXhoÅòûïËa½hîG”3ücð?z! ƒ1Ò¬#{r§sæ|øNPSréUµC#‰;0¼Ü8mO‹fº[ìæícº´ÑT¦¤åäÂ&§C–SPö4š¡ÓØdR„ùÚÏH Ï·ù0>´¯"¼tò Öþpëf$›Æþìþk? Äù¬¹G­f"‘”“Š„¦r¨öÝ‘ ¦²NE"ůñ|w ’zä<ëÅŒ>É×–6Š]êQ-R 6í຀àÑZzTù>$ÿú¸›²™ÉãGÊ “ÇS9ј¼˜üëù¯ò÷‡wÛíjó×ÉäãÇzÑo;” Y­‡ß°ŠÖoü¢›åt‡nöòàãɇ%Mˆ-ãF»ˆ"žFF¢‘n¨áÉÇ•N9ÉyeÐ)ÛuÊLîZ§,G«÷í”ù°Ÿr(| R%r%¸ez(|ÔääÄ2 ðÔä¤ät±, l·œ5Ìí!ikè3ئA<ÈÛùbÑ0ƒ”£°§ŠÄ¢ý”sŠ1HVývhˆ$:üg™X㔳øм8–FÊB0ÄèìäþÁMt:H‚Ñá$vÕMßÃ}¾<]“+‘ÑñèÊàc<¬@c4‡q,kïƒÎÖ}“Ñ’b)gähTqì&­µÌÝÏ/…Ä/¢è•øz%¤68pd믇QkïFép®'Y{ÂÖo,5žŒöÙ‘Š¨#äòÉ"™;3b ›Z{´-{é´Ü"Y´HÉîÏÎ ûR~3…1W%ë~ºi»Ê­b–It¼O²1ÌПrŸä€‰bT„xÊ©Üsk¹%ÄÓœÒILo×ýêZܲn\ܺsõrÅ»Z)î+EŠY¤°‹×¼ËÆ–.T/ùlFOùxÉgñ¿a÷€K>¹½ŸZÜ×)¢n²á7'+ÐKöÞÊõæ+ÊÍPn­7m­7m¡®ÆP×ô²ŽÐð$ˆ"¢ô”K}J^G,¥êaºÃmÝ ‘H{è æ¡t&Ç´Ò¨G‰X7„Ðu[$ C y/B×îå2J¼áü¤­,j*i ’ÑYž´ Ä$ïNyîOI'¹â»h¥ØsÐI€®\rr8z—<»wvþFÁûtëy©Nºzc‹„Se††2Yº+¢¹xð‡ûQyZs |%BÛ¨€zAÞz8©—÷òî³?©ñ‹n«ß#l»åvX »ù°A[I--v‚ôYÁv´EŽì|X/ÝriImÏõ(§#"ò_žzA4œ¯g½àq-ï˜"ŠâϪ rº—ÇIhºî/z(Ì\sÙHwuÙ‡¦ç+Ï* ~8:)<Åš¯ylyï2äiW¬³Êû²ø@ÞŠ«þœÜü¹ž3ùš÷}Íû¾æýPóþA~åiÛ¨Q Ô(ê V¨œCå*çP9§ÊðPâ6‹ÈZ([b6šK‡¤(Ër#`oöÐ~ý¾ÿD̹å-Ú¾:ÂA¥›Ñ,ŽÁÓm6X[^Ã}`¶‹QD°1xÞwónÖ-! Ø²/Ë©ñHšY+/TGºèÞ›íl9´Õ™G±Sá˜S'žéº{³mMå’S¬W„„>ÉK³j¤fàÛµµìV+Oj[:yQ|€‚‚³˜Nwë‹OÖXÓ°^ö¤âG rB攕×°˜P(¦ñ FXöëÍb¶}×ØÃ,,ÇyyN­ j 2£<µß¿|–Ë£Ã=žS‘×çT&ÞlD}·–mÝ‹¤œGbˆTBê± ·TÈrvù™ày‡˜ØÏÏçÝEã0åœÿÉ•¾n¤U÷v>ƒ”È6 ‹ž5’x$Yåyé@óaÕÿ6Í-¯Jã¾M¯p佃§²M/5/¹¶^ï-´\‰ŽÖ8MË<Ú†p#š7³eM¹¶þ.‘7v–Ùæ]÷þr;ðº°/ endstream endobj 3995 0 obj << /Length 3708 /Filter /FlateDecode >> stream xÚ­ËŽä¶ñ¾_1ñÅ=ÈW|H”>8±½q`wâÖHœiÁj©£ÇîNäÛSÅ*êÕê™…ô¡ù(’UÅzSÑÍãMtóöÕŸÞ¿zó]"o2‘%*¹yÿp#£Hh“ÜX)E¢³›÷åÍßÝ)§·ÿxÿ×7ßÅv­³DØ,ƒ½<œÊ4½Šxû›;m¥ˆ³ôæNYX¤ lìÝíŽâC;]‡Ms(«~È›‚'N.ïÇÎõÔ»"˜Þ CÕ<Òà/QÁrêŒMÙãÉ5ƒ+aBÒh~+Ý­´‡ÇñM˜%´^ R%”QÄc‡P¥ )ÐÐÒ®ò\nªG6€qÊ?U§ñôÅÎÆwÚHaåÍð;‹cZðÐWTš<Øà°c¼Â©{7|t®áoeth©sn«fèi ²«Ïã]’CÓv'äÕkèf1Ò´ÃkEªÔ‚æ˜pø)±‰™ˆ¾¤!¿ïÛ;\DëX˜$[S]BÚlI MÂí£EÛveÕäa͇[ R m×Rüƒ¤É%­€‰G @öi6©°:™h~,Ê=jA “T­©]â÷ع|¸+ª®¨·Ty(›#Ó5 çŸß¾K ­pu]û¶*iË“Ž­—oò—%‡ï×LÉ5\Žc⊼wÞ¦~bÈI><Ë(IWå÷µë´ÉOŽ€ÓŶmóX cÉݼa„ชn4ZÓÁ°qä)ªj—®¨Ny:xaÀ%:F>‚6QëT5cO;zl¸I<†ÆÏ·itp §¾GØ@ã];Çp˸Ë@î™þ üEÊ•bB;TÕ£ýýÀ%h8à/Á ³$1A-ºêÁóžk¸éò‰:÷$¨[´§3t‰È$\#ˆ"oº¾%ÐsÞó^ñâÖò(:)!´âC]yº åj‡6׶»7qt;2D›È¼dó´ñ¤9XÒ-)âkíÅO+ÃXc‹eNMãXlǺ¤6Y~å9Œ}¸ÒÓXs§}Û1Îî)h¬…Ö“¡é@Ú]ðWô÷ú«X0þM ÁX¯èÌÐ91ã5[¨Ô¥53?‚µw»fRÄv²pìå!˜™-˜É$Öm:Ô2#«˜KÚõÌGÒ „-Ú\â¹mJr‚° kQ…?¾)Úz<5†ÜS³j6]xYfóôšHØ$X£„°\¨ qðC•Sc_ª+Ô|/×=©‘W¤Êc’f"‰5+&còÎ9,à'Ò›ã jþôöÕV¸‘Úé„2Ä)¯:§"™­¢“ bˆ½I×Ý›ú÷æêS~:×lLP\=[7äwy“×O}Õo Zì\v0€þ:k¾}?;tc1@Øa„Tfm¡¾nö´ÙˆÔLÁIþ¦qÝgÉM/'•TIŒ•ŒUJ¶þA•Kšx&/KjL “î%ôsO“šœ @œÚÒÕ|ÜJÂ,ÈãÚ¦ùøF{®Â„…Ôð7ÿå”FØ5k7G ÈûŒ4"6+èB¾úâí·?îÆ;™°³œM4Qvø XQ©+Jb¡gnÓ-íFVMª÷v"Ä+&€¹­À ¯¬OD2_Ž2R¡½æ‰6¸³±*–çä‚M1N<Š×{¼Š Š_6ÂòNRëÓ€ú,¹”Z‰(šŽ ¸1eŸl-"¢üëŒIrèëöìú/™ K¼6qÞ«Ä ð’<–P$4ž%ÔxŽÐñ¸†þæ#¡·ë w¾¤þØ7û͆¯áyÎ[´2Êò!]Øz_žt‚‰Ú‹uàÖšä(.Æx2Íï)à³³,€¯¸+©yÑ´½êÁB“Y ìÖÀd`64}lèV}Ø–-Œ†1ÀEð’ý@ÇÛ¥ŒŒBf6ñ¦ÆÆf²­%à=Þߪè0nûj¨Oâ>•Ý_S Ž¥ƈlTw1çXiƒœf'º¡½¦`&,ÂNOÔ¸w{Ž?ŒHɈMð§˜ôÂÙÀLðOUCº`BZ²íÝiJïh‡àzúcu& 9Í çd^ò»œ,),Zšˆ=Œ§PœNöáû¿6îrš^pkÁ§7` rvýœ=ôЪi¨Èë:Ä#ìVÝÒ·uÇ_’ŒïDüÿc`ÑÞw•kTéç" « .úÛ»žw8±¼é9ÄÂÐjʼn÷û‰B ±A¶±ò;u ˆÈ¥Ù ê0ˆ5G`ƒâ?Ô6C^…aú댖ԞSé ,ÏîâÚÅ¿;²‘H¬YxœÙHà©MËÉAl…ŽÔZøOmçþŒi”¾F—u ²°;‡W&¦›6SÚg8åñ-JÔ»ßx‚¯¼|raþ|è‹®ºw¼uΠùý‹¼¦¹ÙÖ@50äƦ›Øg­ínJß8ª%YÅNÓJÀ¡i2Ë «tž¡rYNLc+93TÆdo‘Yú8JX©n´H$¥önFH ÎkÅUÅäX¹‰¨aÆS3!.÷Q”:qfgu²ì‰L/c=mã+*£Œ0sÉŒLþžÊ(8Uï« âÒfÄ{àp‚˜,óÁË…ëÓF±–¨CíšGŸ4Bú¨hÈW,áŠýà‘¾èîýÒÙya×Û1Wù愇Ïã—,äÅ ƒ™yžAÊ×ív„_0OÝbÁÒàäÚS5‰•$©ÚÔSI™IªÂ3¼HÊi3Œ?øñ'0:Q[Û?ûm¹È,Õáq=OSÒ^ãš„8=š+y?íFIj®T¶AóC"ŒÄ`aõ ×YiŒ ¬ˆ¥½2¤½!Ès¤Ö(-¬Þ0ƒèK¯©ŽDd³çÉKMr%´€mùa$õézç@MÌWÇÓ팇›êŸ#¯…(eQ¶×t=N…‘ö%YN÷•³m¥Ùé_?}ĉÑz&i‘Ö^ñý: JO½¹X¦µdÿKzdé‚ëÕWcákƒþ1@¶Œ0iø4ŠÙáÂèÒ­z‚–j¨+l”]ÕÃŒ+<…¿à,æÌ5×ãÆ¿ò€{Å䜛4‹"Q˜ˆ €[Ÿ‹â#³ëN=εE¿Ú[Òv}®È<ò>†§Àiš)ÇMWvyZ¡®xrðU:[zrmû "é‰ ó=¾€KZR)Ò(»7VtÊÛÐB^Á(ñ·k»]K(ì“}þ‰¯'nl§®±G`f’nøs-ÒÙ­6Áž|åÁhÎÉ1¯Ø‹¬!=‹¡“º¶‘^=Áa‘˜ RÉöA&^Šÿ^±9!û¸Üâ±kÇ3OÇ›Šú^üÎ;›Ã¹RîG|f‘'~ùxm{7$2£?ç•s/»^@óPMæ‹Ø!Â÷ée0s.àxe ¸ºî#3„à5µË}N‰Cçs×~ªàZü' « ø«ŸÄl’€Y&®Tm¦Ø Ñ&?›fôH=&á†'š§‡êÌ;ªË =>‰›øðv= *[Vöüc.¤CÄ-Ø#[pFL£dÆUF)½ ¯l8â3*\X€±!øŒãX5E [ª¼@)ö´•các7èà‡UJÿþ˜waò|¼Ou‹•ô¡*hðV£íxY~j½¨#KÈ{Š¼©ú¶°ñJëùα#Ü›ÇÊ·±^°ÿ%É)¯û)á/^t6å/ç/—:aÁ»ÉøY?ëMuÐÌíÓ^’˜už•…G7͘02?ºéPn£”F¥\¦‚Ñliµ°çú¹õ2N¤à`>2›^~r§¤Ü¹b¹ aå"„åRŽM[Ì´bgËÊã#91X‚® Ù‚¢€÷aòòéw#›‚T´Ö*zpd¼*ÀHôÔ=†à¡N¤Q¶ÚðÍÑAhâùPy-Ç]xy>ù\?åÄOk—5ŸˆØ¾–`-¦lIëdÉq4\ߺ‹ëŸ"<Ìùo¹×$„ðeàœ&¨¦w GmOmÔ1IÅPÇ!¹M|EšZ%°¾ª½‘JÒÃ×=æMø@6Æ*SšÚðÉ{72IVjûJC( Oü©ŠÂÏAÀ’{³¦ñ=¯-ªéË—PMÄEnv;þýÎÂ.žñÐnÆ¢víP•Ü?·õz>z³³ƒ&2èÝë×a°¦®`±—<ÿ•—ûçXÕÕ}Wùo#%1õ‡oøÍP –N_ Ü“fé+ ™°qå%<¶qZ8´ðz9 ·‡>9½qkÈC ›ü}™.>9,Óü÷Z¯¥ÙxúM¯O¥%Øû¼õlÎ;6 ‹sšâb¥Ù£éÉ£iöhf‘²0)\¤&˜M¥›yÎ_ýíT)åKUJˆ¦æ/µ¦·È‹Ø.:üðÍ•Ït&s¸ü$qÚiÆ°jŠz,ÃSeørÜXÃåóaøÿöý«ÿ™ endstream endobj 4003 0 obj << /Length 4203 /Filter /FlateDecode >> stream xÚ½[ëã¶ÿž¿b±_êb_"¥÷ášæò@“¹mS )PÙÖî ±¥­$ßÞEÿöÎpH½L­}—68DÑÔÎüæÅåW÷Wüê«ÏþpûÙ«·‰½ÊXf¤¹º½»œ3¥Í•‚•]Ýî®þ¾’™¾ùÇí·¯Þ1ªRÁ¸LÔrvxã>ãžüŒöZ% K¥½ZK Š¾»}(ˆ¸RãudÌÂOû‡v›ïý° I¥™H²0,onDºº?Šª»Yk™­¶uÕ5õ¾Å·tõPßÈdõD?ò®)·EKoíc±-â\;û¾Ìé—.º>É3–Ú~}‘¥eL&byeySÐDnk;v³Nµ]ýx£ùªì"3ÓãZ]­áh²$sæõuUWÅud&e˜°ŒŸxÂë&ÆîŽ2™²û5ÐÓŠÉž\œ”`–§3RoßüéÝ—r ³/O|~³VZ®ªšžøyYÝÓKÙâS­Ž­cX’š—&„b)7³•\oë&Ê(ÅDšœeÔZYÍ2hÇNAÄ&AŸÄËãÌf³eÞþð—(¿4 Mfü’ R ªÿXzÕ RóTÄ©ðJhê@e[¿—[ZØ’æ*ËTÏÈ»cµíʺ¢‰ñLð‰gâ—RÓ³¨Ú# 9-/ºÆ ø–‡‘°’¦Øçk\0äärÂl?·µc6ug–·íñàäǹD²z¦·§ÂÍ#·5v¿G0È›2¯¶EŒžÛôn‘ûÒOúÒ†ŒT™zI·Ló$"€<*–%Rü: ”1Œ¤:Ð"D»¦í>Bl ò#ÅFàã$E‹ )À¶¼ÚQTÕ·è·b_ Xúoê;ß›o¨Çˉèp‡÷Áv' ®Ô~êO)³Sp€4í¹iæÓP1±xùz†ùBO0_Œµ“óÓù2¦xÈ ª SIÎôNéXfôXXþ²ÌêžÎëS: K© ˆì J˜¾¼1ùÿÝØÌSaÜLÔ¥{p"¦¤‡ÿâ±Z9=¦¢NºàùKÑÔÔrÊ®Tøâñá`d_ßUÑ•ÛS2VR0!äT1Çbé¾hëj×R‡ƒ˜±Ô·û²ó2ìŸýoM]w4¼ªw¾/èE?¨kŠ"LvxlÊ–Àp:¸:EXÁC˜Çë 4¶Ý1ßïŸÝ¦øt7y•ïŸ)ve–®Þ–•m’Õ縲†éDžbàû8P±ì¼»¢˜UvFT-aßDš`ÑB­êjÿL-8üº¥·#¦J”²ÁK‰)~ÊtzF?R–dú¤r²£ˆ›À²‰—ÀŸJœ°Å Nd•D†Û™íuNSñw†:bDƒ]ÿ0uPtƒ{pâìÉ+/ZÿƒÓ° j€æwÅG8:v'z¦ïòŽêc“K.ÅKv ,±HûóF+õ+fÜ—É…~i¾ì¤ìƒ;yPD½r~LJüðHâ &›Ô]¯E—¯.¶ô“&Éu­ÓÓ‚/gnU’2®lÔ¯Âèš#€HÉô¬ØnR@žûNV*hrl¹SÅÆX0Ö1Y™íe?À½M(´¸s_øV4MÝ´ÔF‰.YÁ>éOš238·hì]ÎcÉÇ3ƒAìh@êñNf†™lʺâ·vWl¿ÂíÀA¢ìÎ[/óÐqßS_‰»,üw9ýü˜7prÇ}ÞP÷?>€D¬ý9Ë`ü°WFhÓ"Ò°èجcßÍ{¤æVéÑæð=Yµå/dZõÊI*>˜—µâÉêÏ4?Œ¥.oœoFŸ$ÞÖj¿ u²hø -„³äüÁûpÜðšN(D|4 X-Fৼ]°W†eV¥NÁ¸åŠá·s›5à0ä0(&mÌ‹Í¥OçJÀ4¨ &C™úÈÙdú‡ÍÇh¬Uªa÷bzæ?q‘Ä–náÛçÓZJ°ù*ïé AD<¶ÉÊDuT '‰ÈþX´Á‚§«‡üFò *õl D@«ÞtyY9ù„EI`…ïGïAó(ǽìËŸoåC]»o- 8üPˆ¡ah†"$Lò”Ÿ'´¤qºppîbÀ¬àðkážzÎë;¼ôúlóŠ?Ŷ®—h’ÄqfWDA ò;Ó«Ísì-ŒíMÖwqÿÜN]/@ Žè­Û2 ˜¡ÊÊ è‚sJªŸyÕY{î û‹BÇœJ&ÌÜÚäðBï£OèB¦—¼AŒ…égÝÄ|´‘×ù@1É–bJ ›õ’þ7?B´0S=A«¨ÛèòBc5üL—Ê¢xÅ2‹L_¤8Š0ÇÔ(*žŒ þïs¥ìÁKDÑmŽKÜ0ŸÌ瘠‚ )=ÁÌ9JzßóéSH‘é`yCúÇS^ºL¤˜Eá3™m13}šŽnçæŸÍŒÏ“ýZÆ=›Í(1c”Ç"h<åýCGmB4ì:’]ýøHl&ûCëÇè Ì*§ÆèÌ/„ ù=ø´yéßœv÷L/GðWЬw¢Â>ùi¢ >óqig>*ñáå8ÒéwÞ2} Ò;ï#'ÞŒ6 ñæyú¶ü@Výõ&“¦_}Ž8nxH@Àˆ/zç÷vÍ" 7#†µ‘Ðq§½<·åý!Ùm 0Ĭ±Ð]ÿúsìòcŒ @I&“3TúÑC##´¾x!÷ùá² AÜ#Cð6Ïd f†€þñ¡Œ-Ë25ÀI"HÿÆgI†,¦Kâ¨ÌÙ.Ÿè™øïšO õ«Ó¼QŽžydc'XIåÂf…n½Þ—H’ÜŸŠºz/ K# ílé¿ OXóÝqOt\”‰mQµeGäÊîÙÏÖÇ–8ÖyPìž¹ÚŒŸB¤¹¯»Žª3ÒÃ6J˜£ŽðäÕÄ›‚ð bÕõ‰ÇýyëŸô|¼8úqÂòYüÙ³<‰þûžÁ¡ê³‹ˆ®Ý¯ x|>›i}& É]h@pW·=xÙmÙ„tÈy·nûiªY e—wy4[òé¹ãÂ`lÈ'à~³*ï"ÊaÀ¦ƒÎRèë¦yí6e‹Lãÿ¡WAûïBIjág¹”ÏM’qµ`©¶hŒ,miI¯`ÞXÖ21¶:¼…3­ÂÔáÙŽxdMÀkËdb¦¾á¦¦SÔsõÍÆ ½+Í›…\L¦¦sbü³ß{gÊßÓY!vãÑg5Áëæy†NÓ‚ñ`Lbyýâ91U²×[ü„þý›ä°\Þ~‡Oˆàõq¿ Ó¡(D¢ :ž]¨7fI\³—ôF‰t,®¡.ν1¨vSöÅêœÉ4¹T©Î­òb¥b>Ò’¹Òè‚÷sÕ&לFˆ¸N'uáYMf_{ƒšä¤k3¦‹ÅÀ¯.‰¹uˆÔ„`v±p3©ã!5üªò˜-HÁÅ‚,otʪ*š‰á©]ÑĪWà+@ëÏÉæɹoÐÁS¡V‡­mÞ’ çhÂý1žX;¾_³tŠÁNã AÒÎ}Täò†YýOd×°…`€Ï˜Ø®ýڂö ªô]ÔÆKغR}xxýÅ»ëOŠ; ú³½Œ]óÇO§ÒÕõ›>J<ézýEœžÔ.p2ƧÚ±±/Z›P×…FûN©Ëšyík:Þl"­f‰T~ð³ôî ô:w|&WÕñ°)º]’YP9¸º/AúÉe  Üv1cج|j³ž»«yým¸‚®¶õÆ{tÎo÷»GAˆ™ÉV+Õ[€{ˆÃÌ /k9”ÆÆÚ!˜^½ñ¹~Ï/˜!r,RS¥ žšÄdf%²$D¹É‰•]¤¨VÜ,‚>&kMvôOçKéÝ4èð­2x_×°óÏöÞçù žåùðªÄSü‚²ÕL ÞÁëP›dr)þ VÅ29r3'¤Ê4³\Ϊ$ ‡Ï]™ß×®`o Õãÿ²%½ôΈY†" Üžòò}MÉx’ñÚ°( m/(§¬Ê2 —Ì…!XîÏôØ…;¨8åØÅw†GÈÕp£Ê•"ª]Ïð¢Ç¦b´VVœê@ûà³>Ü_y€ç¬L"¹÷Y9Þ†ØÕú©lýغÙ9<„æ¨à!…¯•`4€é@;˜åE3î]Êiâ[î­×LÎζ€±»è_3ÁéÚ_“óD)™'=]Ùõ6T ¦‡ª¾p@×üì³æääl»½/7äm_]Ý6妿n¾ñNbèE9Ö` Ç×9þ|¨Ê Þ29úYnñNGeÝ9!ðü®Dλº¹äÇà³YAwáÜž!S·û£÷MýOD €uVÈ«'‹‚‘-Èúl É7èS3z×ÎúËúî÷j. "QòZm`y´2Ž v~¶ Õ$h”ˆÂ¶xt7‰ÿ':þ·ðÇgîådE!EéSƧðÙ1â‘[£›i6µÛ.JW¢Vßxø'¥'Ë õ@1&"_Þ~ö_…òK# endstream endobj 4015 0 obj << /Length 3714 /Filter /FlateDecode >> stream xÚ­ZÝ㸠ß¿"Ø—&ÀDkI¶l°wÛîu \¿0( ܨ'q&ÞuìœíìÞEÿö’"%D™k‹Ñ[.wÕ_xâ ÚW;ZZ¾n³ÞüÆ¡¥¯Žòõ窿µ{¨õtu$ò,q{ø0 –©È”t.MÆÌMæKà0ÌgûÈ\zÂ¥…™¯ëé0ÚäWšžJ,Ad=•øíÕê7ßÐBîÖ~äC ñ]š½ût2Ú*’Ž›dýtn¡§'ç¨íjÈ@Ý7V ©‘\xã¡»àÞ$@J¥¨Ý« ‰ð¤3`p:IKíŠi%ì9f<#*ý!žf3Q'8TŽÈHÂwÅP>¶ZôxÕ®Ú®ÿ&°莵H´¿¶VáGÄ|r#Ð+­¼«Š‡š,'a m؃ÀsŒ7ôFO:ð<"NH˜;¯­J3TÞfáÃ>° phè˜igCôàšØØ!¹JÓx¾Í_6¶ƒBbØwa«8Ÿ»ö +0—Rjmg9žØþŒh±¹T'ú#¾††Cý!a¯Ž×ð¬«ü0µ­ {J|þdS£Ü¶¨u gµì¨½oéɺŠM–ãœÖWøY_Õ#Lâ#è¡Ø o¶­ûbîº.ÍŽÝgó Ÿ{ÚîQÜð*HÈ1€{ò,6†A‹â՛ݱè@$»H .Ï*ž³ ‡SVO”óÃg™‚¹,êã…u.Í&Ž8­í¼?qÎã`Í•Õÿ·nä~“ƒÙôÎkQ8ƒÆ»¶An{Çžï"Nœð³µ~‰›ùÎæÕ¼?‰z©›*‘3ï©“² msn›ÄW{r“™¾‘i³Â¡Ÿs=h7iY<2Œà–Ë Hš­ÑŠ€k„0Ü='Ô¸nC ‚RÐlç¶Ð KÑqgæP°i,£>j&üp¬ê¥±Î«0ØCMðtÿ5!&€#°®køY/ª±/ÑOÅÌ<´hƒdˆ Ý €ýo{b¶~ ùê«j "òÔ!r`Ý9^L3@å"Š}²Œ }ûzx,€‰,‘“ô§©xpÐ"ÂOš°çU°Ñ!Ñ‚ ¡Ñm9S5ôòîtƨõ `¢b˜R¬A9»aîŽûx»°iu®­³Å×aØ­n!B-S+t?1K<ƒ°ïŒˆ( ##‘¤¾¤qa­Ò ¬´‹ð°2߬çùÃJ´ñXz×.u'7·q;'ž†Z–¸·`Êû€®~=æ×éWpëX5À½ ¨Ê´}Vá©Ðã 7ž˜ÑÏéÉ“0Œ×\–„§Cì¤|ØÅ(Z`úg`¼ÒÂdz±’ŦËD]ÃxeŒƒX(D¦Ñ#ÙJOØÈ CpO¯SÐh³ùÁRPyQ?õ3‡7@aV=–ÔÂÊ3ÆCŠkIÍDÒt´ÝXà [Ò%Ú×Ë!)f5ìÔU—L>­ÔX¶“Ý{OïgˆN0ûV ”?"19!’fV"Õ \e ¸Y{Ü\±Ä°•nü’(.[RÑ&ëJD ™åUjþöõ§æX„¦†óKë©8ô2T–¬S¿ƒxriªçP¡ŽE6žÊ;¶¦ž oÓҳؼôƒK4a)ãb-&ÞÊ®tåófúı:»Þ;T+T± º_„u`¹D|ûrD÷ìtïLö»åÃrpÉ€ÄàÊÀY´™ ÓSÕ`.Ç`:u€ÄOŸòW¿oêNç,ðpxµ’ ° â%_JTîšb±Ã10g~‡÷‡þík86â†LÉä"ÞØD Æ®xŽŸ/ÕPR³¯NçâBµ£w Ñ /0¡ÓѺæŠ#•°í“ÑâàAccD×´Çø~¿É¢õÓ™§ù@k$¼ÇXõP‹àבïÓ™aA2³Ä ™¹Â ™OIñ»Ž¹†¶¥FSÀ¬¶à„ï)aäÄ@ÈCñ¶µM!KþÖÏÏÏ P‹áSj™KV¡jK‰»‹Šª n^*”™^b9J¤KÑÆÌG¢ l’£pö/’ œßX0x1ND³¹£‘)k“ë‰$„±ÅØ[-Ž ôP HÎã®Òwe¾HHéŠÃÕ#°A˜FrlJAsÑÁúáDóþ"!Pu½ !’‹Ð^bg,TšÌŠC¡BÈ<›;í½ ÃVg_‚å€s±òðÄbËÝ'rG³* $M t0ò—ðUX¿HÒ4 ©WöÄ3᥀u׊«°÷m}95Ó=vcÁ§ôsô®ú%¸2%²‡ÿ= 3ä6:™F(˜ÃÕœ}QõAŽsTﶬólEmùszÌ Þ;ð<ÎX¥‘)(‡ŒìPî,0áûúÔ–”ïë›äÑúÃhýÅžœÔØiÀÓØö|Dv(Øa«‡)F³K³¿ó‰úrÂùÉKSÚ•t°€H†‰²”<‹5³ÍY¸«:€Ùဨø+˜/ÙŸÅì‰-&ÏïoÞ K¡bêàh:NgàÛêb¼rÌF+9%¥Ÿ/|%é Ø=õ½õä¡üžAïlÏ oúåMøC€ÔïãÿMe#Iq%|rбH3zòîtLJÖ$"͉XAòëι„4¿n ÍÖ+æÑ7êÏ’Ö(qjHN©ìuQ4­Qf ¢LAZ²”Ð5vK.ÔT5 Õ½ªÚËàüç<¯‰œß¹¶ìõÆ-ÍpbcÀõ,Š^]ÙB]“ª\X]hkÄæ·DU)`¡ Â8͉£œ\IÆžìR åíÚ3»ÄÚ]ÁÀ–ßû’\’/ $JŠhü'M8mÏ“ìëu™çSÏL«Y¶ÚËVÚ‹¼ˆ\ä蔧LËõs¸Î1 ëïäýÐÇfòWŠñc¹(¦@Ï{{gy7»QkãÕéršKµ”`J”öF,“¢ØVpmegM±mï{à餌}±3æ»_xòÅ50LñÌ“ÔǦ«ˆ9펉£ Ò-7¸½ý)¬ÆþWËšå_ÊE-µŒZŠ‘žšF-àêí¥Þ;†ÁÆ>hRV‚ 6œ+ã åîo1¶õPt¡ðÿvÍеõ|./͘¯ ù=Æ|e±ªŽïI&»«‹€Ež‚$– Ùë¶wŽÌ]SІøûÒ1ŸÄü„¨œ!aÓ×éšµoŸ©¬~´\.¼Ž~$œÌ«éÖ,çB468×ȳ™äc•òœðôò1ì<\AðÇe‡™(¾ÐÊwdžøŸ1R]îþ HÁ«Î¸åŸ†±ÌÅ–ûÔàrŽðÈê Ž¿³Þ'K…Ö‹Œ¤û÷e2þA317n¹éZ´$·€Ü·'£åËAÎÕ1 M«HŒÏ&®g_ä]Œþ3Ë»¢Ð}.:‰_}-–þÏ×bîjN±[†—¿áhùà«7ïºã½u‰ÞƒîipÜ€yÔë nÕ~[žKþ:çÄ?wÿÒÊG ŽÄ1nöÔÙÝe7\l9úíߢpI%ÏXëqÞ~䢪IîÿóKTª ³]ê¡:×åíË3ÖM_üúz·~뎣õŸ»¥ªù?tuõ Õ[ÖÕ±µ6¤®<“ºöLø=»Ð`X1›‹ß‹&h!¿»õÑ¢çÜ endstream endobj 4021 0 obj << /Length 2451 /Filter /FlateDecode >> stream xÚÍÛŽã¶õ}¿Â˜—µ5G$%J*‡v‘´)ÝNš‡nÐ2ÇVW–]<Ù|}Ïá!u±5³žÉPÌч<÷,v‹`ñ×7¹{sû]/R–*¡w÷ L†jsΔLwÛÅ¿—"U«ÿÜýýö;ÅG¨2á, \d‘êƒf‡â½ Üõgw¯e±DÄ‹µˆaQÒ¹YÁF¼¬6­ÎK³Å¯dÙ5y¹£voÜ­ðÇ’E—øiH9¢‘r󞧬*ïó²}Š)™°P¤þÀ}Wfm^•lµVR,ßWumšcUn{nŠüÓŠKSäûªrÌÖÎ8fMÓ6fº$€$L Śˀñ”šN£ˆè;±…Lž'6Hqé¥ÐeuÒO ú‰8šè~ ¢`óáôw8êz`éE¯hïPmMÑÐÆÃÞÔf`Ûî7ùïn©º§·•Øk«Ò€a舻qã¯z-©ˆÅi4URŽTGë6míœìE𿩆 ²+ ‚N+-uѹ¼tGön¡6Û.£‹ÉŠàà2”Ëï[wÊQÖESyUbõ¢?û]ú·³þamžrhV˱•‚ áÞSuuŸæÉxŽ™T3ž„+úŸíMö‰Àûª&Ü\LkÜ'X¬lóA ô&/òö3-£îcèã—«Ö¼%/34bL³$‹ÙRkL Þ­R±c:nPùž#¤õÁ4ù¶Ó…·r°ü›å‘CPíLi€±?QfžèÍ Y¢œþL駵t²R#à|iDóÕiøû 1oè¿îÚê‘é¢p[™®ëܧíªs$6n×:–¥9άrùó*-·ûþøÊz· $תFòadý ª“»¬‡½8F¿Êš“4gPªZ›¶·&ßí[Ë: FûSͯµÐ…jkÊÆ:¢bÔàÖû*Û׺|»Šà Ùó3;ŒDùÇŒ©b–Ľ»®‘qF$RjžíŒ#_SDb¢Qj·nƒ€>h{_T›c¬jÓ˜ú„ÒØ4+Æ:ܽÉZ:‚)»qÈŽØ‚Þ8ò¹Û-´õÁÝÀ Ô:›¯Iž‰Ø0+uY²êŠ-}’bD¾7º1nËFl5DŽ%X½3¥0Ñ¥;G²°Ë—„-i)«ðkœßÚЇÊRHÒá|Oxì‘Ê{d éBRÅP@B,*ÀPÃ¥&ß•6{@ÐÒù¤PjÙt»³(®ïµÇ R@MUJ ÔÜŽ,Dk‡<kÕ5Ž‹Ÿ÷¦|,ûp©¿€¼ÌŠnKÚÉsRÏ}”©‹2‹Ö h—¾ÏShIúF̹>Š¥±L×_s¦!a}; ŠÅ’/FHk§I LÙŸÃèkš¿T´t¬ûJ}›f=V@ªäÉYÖÇ™ |àÂqÑæ¤1Ö4ÎpegøíâÌ";ƒué.íPó´3–•[ÓYVueëo¿÷wl>œ|ÑúbbtWÊSß À‚/ÞˆÙÐÒ$ì-®.iÇŸ˜Æ¸<‹q1ĸ ”qŒ‹ ÏÈ1D|ä#>ºŒø豈†ˆŸ±_“ÇãW”ù`Rßÿ…õÝ_¿¯P9'Û+Ò]þƒ†fî7‚©!ñ5¾áç´À¨)   ù¦ìŠ^à{<„¾E(“4Xt¸7#,°2H½­Mc¤ Vi–!˜x`¬êõ¥öÝÕ^Z¼å~rÃí猌›QÉIuøŸçÁ’së3JÌ0LB]bCFÈ7<.’YÄÙg³”„ò™bA´LqÇŸ˜±FÈpâ!½›¡#‘ /IE,Lä´Tz1>¢6wSÄà†àê;x4Çq Gž¯°8D9g!™Ôˆu5seÊÑãô3`ãf»Jý9‡î›/;pi,¢øÂõ‡fH*IÀ„:›FÛÓ.Ö|HT‘uà¶Æ-S[ ÞóqõÁ•è³q‡K€ûÁ<;²oî>ü4WÄÅÃþmË\m~í\.´ÒB€¾ †Ðy?B9÷åá„òÍI׃7sU9d1, ÔQ›q4´g·C»œ‚qåTu0ÄvYûÍÍO?Îш€F~Gu’ ¢×Ü,‚7¦! ¦ÒhF°Ó¬`1‹ƒ>ÐsG£ï”M—“öH]‘öFÆG8w­¦žÆÓöò¬É€û Ï}ÁÏîÇ[@†T¼ÂÂÓŒ¸¬X6­Ñî¬MŠc:“ZðWøRÒ†ÐÜèV˜ƒ{äîÈ?¸HÑ÷¸·ù/uv_»YUbièËÇš¦+Z÷&%®P>œé•/]3ƒ×Ãk{ØÿeÆo¤}zêSÇ)›ñ²4ì]ô-#³JH± §Êø§yÆ«Wã±¹7»'=“¯ý£†v‚m:®©8èO}«Ó5fÚz4õu<ï±Q{ÌÉ?yÓˆ!eƒ„0‰À>îyð¥í‘vi¢ÁÔ”0•¸§ Çqï#¾²B7Í\€‡Pžúò“¡SßÐcôÍ;nlwi¼$²}eÔÜù¾kÌAÞLôQäþÁƹh~ÑMÞWEQ¡>ô{Ù´M)dš)y”°Db¦LY¬üyûä{n …6éU0t2Ž0ÍvÍýãÝL«i#’=Éœ#L²8vYc®g­i!Oéz;î²áæ’íg°æ‚î÷“.®g®íâ€ÍŒœg¯ÉÜñYÌeÓŸ"ì›åzhhžo¶,gÅæzúÎýé&Ðí£Ê)Q/[ÓO89L«µc¶9{yýª:¡ºgÕÿçž!Í—KaŸÌô‹™ãÙ!ß´xIòºìøÃëøOa€­&sFGöÿòIÿ"GKàD%SSµº{-9_:~Aypæ“õ¾z%9Åì ¹ ùÅw-ÿ"b"M§.¹Ó‡WsÉϾ_ÅTR¤g5fŸ¿’©æ†mü)]½ÜTºI8åÿÓõÜ—Ýa㓹Olg?y`†ÿä•ÞýäÈþððÐn3}ÿJj¿Î2¦.uñ¹É_Rþÿ˜huuŽ~„¥yå¹ìXmEË̱ý²¥æÒüᵤyRûÕ¡Ì7+CŒÛé[8óðê=ÿ|ûíÝ›ÿ̘ endstream endobj 4070 0 obj << /Length 2675 /Filter /FlateDecode >> stream xÚÅZKoÜ8¾çWsê"Z"©×!‡$ˆYLff7Æî;{PKl[ˆZjHj{<¿~«XE½Üiw{0Xø ŠM‘ŪâW_í_Ý]ùW?¾ùpûæú& ®R‘F2ººÝ^¾/”Ž®â ‘J¯n‹«ÿ¬Ú]&vëÿÞþíú&Œ'£U‰8Ma.;N¦1zãóôîy}£Ôä+OʼnýÌ“1t*úøïŸfß.VŠ#‘&Ò-Ô›®_{2ôW]Ÿõe×—9½6[zö÷†ÃÈmÓRã7?ô[Ó•Å!« Pï½éMÛܙڔýÓ: Wb!Î| ,„BÆ¡ÛÁþü-äM B웺(ë;aï=¬e¸Êªƒ¹`ñˆÿòW¨¯ÙÕåf-ýÕ¡[êÓÝ5…i³¾i»WhìËÿQceÝ‹¦®žÎ— jîÊ<«œŽ2ÖD åh†^Á•îM»Ð$ª‰¿,y`V»ïÁõr³ï=+Î8üò==•GNijïá- ˜M¥a¢À øç‘ôT /ÎðïS ¥ðÁüÎQ=*Õ«‡u®LÞã!U©²Þ…ýÍ¡Ï›éÞ®=-ÓqüÂðr…¶ÌêÜxyƒN»è»]Ö·åïó5pRdòõÒ³Ëvûjp5Ó¶àâoåŠï›—–¸ü0\r€­üx§±„õLA¯»¬]ÉꮬÑK•¡û+ÚV)ðä%¢U³éLKæáUÌgØ‚µè½+ÿß?¢A‡¸Îˆ—ûó¶ìbTw¾n2Z³*P=–ýýÂZp½ªü¶À®Uyß4¶0¸µ«îzÿù#·> ­Áþð#CçD¯€Á‡‡üüý½hQ FsÕ~h-Š}v÷Ø1~mRQ ©iX Ž•©AçöÃå‘/“@‰êç÷GP#ÐÂ÷¹ë#óx2 a"ÉžÃvÏA%ïnÞÿôõÓ14JE €†!ü´Ê‰,%œë\q¾Î;ð^¶|Q”¨+Lev¨«ë…ýaºh*CJê(RÆ|à!N4E÷Ê4WeÒ'"Š™‘ÝÚÓ)ƒ€à¡BS)I!;{÷ëo ÿ¾_tt¡ƒa ›Ykè+ Fà.½b}ûSAƒè¹ÉIbøÉU‹SóÏt/£Tø©vz´SžR»LDàd{¨sT¶X{¡”«ÏÛÉ®H¬¿þ€3Å"°¦ž8Swß*ÜG¤ÀB]C­ n?Ò–öÈ[€«ßbD€í\°ÇÀëGƒ¯vÃ'Y…J„N’‰û6ìP¸°m\¤e È!¦f¾™Z %K=óÒ¬ ƒ*ù½o3‹ó‘“;K˜ Ç^Þs¨*Lúk»ƒ3„ŠEœÄóxКâ£G[ š9€G]SwÔQÖô^´ã.K7áÉÆÇæÄøöPsh§¾!ÎÍÚõüIžñJè v™MŸ•µ“ÑzýÙfXD¿¬n²“ΘàÇ΃©¿ú×:”© ¯Ú£LÒä•.‰3Ð<Ö½XÝÈ‘„@3o(J£ºò’Ðûé{ µÉZ7v·Æ€À"5nVÒ46,Ï #²4íb¶uF Å!À¦¸5=Õ:]Ý®cE;Ä_ ~JU£ð…!š¢˜'3ÎòèMÖoÝWQz—W‡ÆRv§€7¶ g1= Ú1ôÒJº9Ê'.áØÄÙ.Æh)P‚S.¡mDAN"‘†bøŠü„~úÎR™<_Æ“ÇÊ Á÷À9¸df./ÜM0Š{’á$ÒÅBlm{þb°Vª& Ö›âÕyJ‡«„%ëó°õ å®°íÁû¡}¨7%yŽ¡=yìÚQ ”Jæî` óÀÎ\€Ò*a<Ķ6«á„^€V¢Hƒ>“¹+Ü^*€D¨t° +ƒœŽZ$jžýéüBO–´®‹¬-.Y 1¸Ìk¤qœL=€œtQ _„ËHˆ§xÀ,bG›aÏ#½P¼†ÛäAÜ3(üP+µúz‰£xA ¬ R ™ß•õŽ5‚á©ÍDS*BÑÂOæ¬Þ] €fQfwu㢨ŸZü4âN ‹‘evÖÇvpnèµDpV O_Ò¤ŽEi:âã …hrúÜšµì\y,ðŒ¯¥·ÓÜÊå7T2Áå9k±Õ= øÖ¸¸’»êÊÆ•²þŒK´=S°òäÉ…¼'Õzqr%h%#>ºœ|œÇ8<‹qÐe­¨´Äzèó‰z¿ŸÄá¯Ó$Ž¦¥'…c=&0-…?#ÖÓo¯ã@.kêí ”_Á™_ÂõÍPnð%¥cÏ¢Ù]ï ŵu o,IØ Gìmˆ ñ…)K&"Ž¢1È5Û²2/Ðy%å2 ’²r#VnŒ ¿ ˳¡‡ÔM}uí«¦§›ÒiWŽÑW¯9@îøÉ"@uú#3`öƒ|øY¹ƒú3¢Ô´i&@œ{ø1Yu{“—–PR÷ dRo]p:WÂqü_#\£©U0À¶GZ9…ˆó-+¡ÌÕóiËÑ F–¦Ë1knI œ‰û¯éA„s³© ½Ûèa€)êî‘j—#M¬y§UÅd qQçÜK55¹T“ör“Å©÷ìÐ70ïQí]§VH³0ÞºQ3Ù SM•I|>"“iÚoø&é*0ï+{kƒÖ˜`(_éQô¶;P?F ÇÖµ?¥ŠiÚ°0ÙÑ‹®3âìÑàøÅÝÆ\ªçëƘïˆãUÑØŒ+LðRŠºj8­»‡7Ý÷å®ücÈ… ‡¬d ²ÔÃòÅã5%p̬… AWÂàû቗4”LªþôR¡‘BE]A®¸9‰ Rè!—\6V ÚtAh‰2KðvJhßcÏt÷‚.,©ù7J¡A'¿ËÍèQ”|[KU's^ËÒóSÅ$2ðßÎu2ÂÆB&cbÉRqƲœ/Sâ‘ìÔ}ÛTÇþ-æÔ;6 LÔs XNxÏÈ é„?IÿŸ¯x”&Ëõßá³wNmï~øpóã×u]‚{ˆEµA:ºgW*"Hå ýl*8šÞ“ß]/ÑBùé÷¯ ÝóÓí›ÿ.dR endstream endobj 4086 0 obj << /Length 4018 /Filter /FlateDecode >> stream xÚ­ZYoÜ8~ϯ0ò²m ÍH¤¨c?Ä3ÉÈd²‰³‹™Å@-±»µÑÑ#©íx~ýV±Hê°Ún/,ŠâY¬úê«b{» ïâû×7/^¿“ÑEÂ’‡7Û ßó˜‹È÷Y(’‹›üâ·OâËßüôú]蚊Øga ݨ­RVÝb»ž~6öZ„B÷Xó*õ»V]‘«Ît„?_´ØŸŠŸp!ÆóLDvÖº¬ŠzóجB0¶}Zç—k!’US+SØÒ³ßëŠxU©~ßäÕnÛ¦:i>ç 5ßNÖú¢zlm<`‰çöò ¦ ýaeYZS!-»ÆT훦S“Äó$4oñ—jµTAܾd~Ä/Öp¨‰”4›ÞœD¨ûéãŠ9bž´K!ÿ™R£é"†n¿‡4û’îú»'½‚)öê|ñÉù‰°£›Í=MzR| ‹ãxßù1á»U×êîØÕÜOäV[34N‚`¢£Å’øÛ¢9v³…Zq'1K@FqO–/¤‡Ë×ÏeóŒ9 |§RùÖaÍ\¼12z`¡80ªÌ3Î5aAà&ÜÿçË£ŠY0ààlÅmE~hš/—¾Šù“RƒšvϰᄃÝUO¯‡Ÿ^ÏU‚ñ\roµþY¥9"q$µ³8{=  !93¢*Í»G-Ž‘Ëɸô.AágÕí±ä­ÞäéalÒôý»¢UYOåÏ*m³½êèÍ)…ñ°Ó®XVe>“iÁdSr®_öÙ  Ç |ÆöI:ƒ H`áà ÏÇÕpÒk¹ÙîºÈ›4šÞLØ€ ºã¦#QëN ³¨w¤ 6OüWj8€Ïù«M€Sn¹0 ùõQl㸠òd¹Æž;zÓD`@ ŸqLU²K+EL£†ªzl¹Ô]§í_E™ë립Sƒ vצyØDo¹Ê\™Ø•§†Ï@`á…  v¯××O’'àq˜ŒÉ“ÙÇù Ï™/œ2|Êv•[ð9+ÿ™/‘|º­ž˜Øk(ƒ ¡Ôf Û ?5­ ‡´MËR•Ð(§B‹¶+ÐʱBkɸÏûõõ»ï?¯¯émäUÅÜ«êŠgœéZú,‚;‘—ÞÄG³ÎÇöF@Jâ©ös‹ÚXø&BÖvö•ôK¨çŒ,ÂŒ¹ÖŒ,¢‘ot>âÍôZÓPªŽ]O¥©Ù¸¦ªWx«”^³=l1ëí`]ßj0Áò@¡ƒÐŽ«ÿ<6½ê®ˆÚùyÑù¥¥²©û¶1/xÒ•ZëmyS í·×~âQ\7>»ƒÊŠß=ãqbÅm‘Ra™fø^Ì¢Àyr»‚ž²h ¸i{éǫݱÒ8ÃãžÛQ80›$ô™ÚÌqU]¯%ÛaUúõ bSïh«JÖC_­cMkBχ•cmt À=%áT+ßáQ>‹ÓG,òüóyîƒ " pÔ¹Ú"Je|Utô¡oèyìLKÓ…¯®¹þ×ßßP¥³Ò´×vŽud0زߧ=Õ9‹Á—;°r*¥Ô¤º6"Š˜Œ“ÎMÙ‡Hb<ªËÀ³£\Õ™þ­²OŽ`'Ñ°³ ^-jÍÉàMC'<‹1g픸]_ý ºñŠÞ,„K¢äø0^›2#¦‡CÛ|-`wv.'}þLU”ñXµö´”Çs¦ËTá%Ö|ŠÔ/HN¨BÄ ¶÷ìïv‰Br&Döv¶1°ôª±Œ#°~:ÐNÁºoíÏMÚ§£>Dç]<üíD§Ù‘H(åP®gRm[l´·Á†åèJ²¥wLŠµ°es,sj°1ÓV´ôÒùÕéÜpõ¦³“.älá@`p‘ÝyM2Òah\fÒlðìÊF_áQk @íRZŽ¾4ÓÀ)NÓØði§ã»?f_¨¨ýy¨ý ¾–M¦Ã =ð±ÂÔ¸¤W.F`ûxög ^8>DONÑÃÑë£aðFŠ5î=½i÷äcÒ ‰CZ¢ïE=¯jrUš‘(ƒwÊëy‹@z"'àÇË>·A}hó4$ŠH?ì ÃÉú¦]ò9~ X0\(uÅ®J9+êÅü„ X4üÆa)I#™ð†À2=ž*X<\¨?9T»oN¤ó4O äñ.­žÚ`0 Ü^‚ÎïåÁ„_/4 ×°/NJ€³$.<4« 1Ùé‰ÕÛ )•æwÐ q¸M† ­xx©'„¿*zª,̘)õÞ5úž?ä*¥VЖöž*š£éœ&ðn é¼XGÀæYë‘ýɈJŠÅñY¥”17lüØ* ç#¦?¿uñmí l'•-bÿ5©r6K$ŸÆF¡¶ÍÀ²3Ÿ·“ϱEL hné/…|â˜úŒ#Aþ¥©ÿ†ð€'¦ªýbP@õ[Âît¦# æyX›½Õç‚®b 3æJh/ºÏTýà;©Ÿ™Hß a3@_lsOõ-˜ ýòA^Í¥x:ºÐ$ù NòÅŠ!ø3piUw#¢¯DCsù‚]ñ<3œ­6²=–T§UTà8ñªÐª÷Î/ ›ƒZ‹ïb"3ôÂά®A3å’‡“æfƒVbÞZõÕrÚ0V(gº²ì)„ 'Y=43MQ÷Z`;eØ•ýõÖ-%ø®™| À`>ß±øûB•¹1Õ)ÀX½±Ö[L Tz'î¤09ÄÂxoØåˆËណ¥º˜:—,‰&?ŒÐÊïÝ¥m}u*¢ÂDw[îÐØBy?ºöA‚’‡SXúuq-åbÂc}ßÀßSS}š{àWÇ=è•°´'ëÖAÄìu¯¯ç1ßAuèQLcBû˜‚u0 z/J2¯´2¸ÆB°4Vþ0žâƒ¨òa`~ÍFI%xËìPê ùЯèíítÙ^e_ܨ¿­µ~x'®JKùºd{cqvĉŒÓ†2b˜°ùªG„'°eS2†ÖEO5…épPik;’ÃfuwÔ`†«Ê CÒäLéÝ8èš¹õšEIgf–²„“Æ!¥ôk‘y7ù&)W:pîFS7°çz(-XÛGG¤ˆ ¤AÔšXЉë¬çJ³¼q T:TvxÂ_/2|Pò\ºþqÉ$L—ŒÎ ðµ0Ž:0ß> stream xÚZYsÜ6~÷¯Ð“‹Så¡àáͦVv|ÆJ\’²Ù­d !4ÈCN‘ùõÛnpÈ%+)W‰@£qõñu7Æâd}"NÞ$>w˜á.ÙW°GÛÞòÌ®¹b5ä ã~s8µk°$Üùä8ª©4 …Ìü o™%ž\AÉÔ3 !Í,#E'éÑ*A€5ÁBqtWô[ zŠߥŠå'—«mzL"&’¶\Èà uÚÆ>„!ẳ-ùCA”ƒMa_]ù§ <ÈÜòwß {*ž°¬»Þš‚føM¼ ÐDæB S‚ê¶`ü.ŠfQp]5+Ô8t‡¯¡"®¢4ëÄÁ ôí~Õ°³ÍÄR:›ÍlFåjYìADäÀ8ó·³¼:;&íLð䊵2g4þªÉýêÖ¡R‡äŽoi#‹¤ P<µŽØí°ÅÑN=€iM&PVýžS vSå qP¸ƒid²„òÊ€ˆ€ Ö Ø¶¬aÜźÞDá×è}1¬b µï¢E…Qª½PèHÿ¼ºøåÕœübÈcÏûŒ–v@{Pv¤€Ýz hî:×øBLÍõ ¢1çWH¥˜†-´ñO¥¡ñÞGä0u¡#27!"ŸüæfœÓê“”–FvfukÖlªNV9``’O…uVuKÑr¯wȼÝ&züpÄì ãh9q‰¯9ã ˜b,®y¿ •tðɶ×ÍýJHTò’÷¹Ýì+:ò¼ëÞ”|²'ÚRRç  ÙˆÓ#sñ©Æfð>—Sp¾1äyb" èIGÛ¬Áë1B…|ôd ·€éa,¹´8[`ÓošµÝù,wPß=.#ó0I3Zæ×E¨WÝ8ðgú÷"ƒÙÕ¦¿6{Ûúsk1£€\CÈ"âwŸ?]ÿ Š "[•ÐNæ]?£ ©âPÃZƒOÜo¥ÇŽæÙ ÆMßïºç§§Ÿ?ý·Dýöå”\3—ù! ²¡+ ÊÓ0“zª… {c®ZÀ¯î/) ¥^Ø–ó}@CŸW*/e•ÐÁeÈ„·YWeͽxø¥>«ûÕŸævù¢Ù¯ÜŠÍ¶óCžç¼Àç‚ã´Œ â ð OyѦ*ÊþO&¾á­Îø‹– ó<ãð¥rœƒà—“°É±Ä@ÔûÚ¹ä2¢XEç!¸•;,TuÐØs¸ <­“ù„K“`Œ3!õy%PGy%k.Ñ“”H†ÑÁí/{pe(ZV¼ŸaXñÜå "Â\Ò—ŽÓÂg3Ö¡Á"'é̹{8™P å÷Ì×/q˜”L âUú»R T"œq= ªC5äý hJ4ùSF Psêàn†»I‘§K¡tæU(e$Ü@ú\©ïpÃçÏMY,»r›ëè{È%ÃUóµ\Íe€¼?ÕGtˆ7•íÖ§Á48 Þ‡LxJŸŸ«[2eh¿c'!rÿ rPV³ÚÔÇ~`+ìÎÖÕÔqz”&”òôw5ÑÞò/›f7s¼Oª<`®·¶XÛîÙ\ø”jô÷È ¥•óQèÃtÈáL…i¹{¡Ðt›WEZ>2K|RjH ®6ÍM »vê‚*r·CQ‚l ’D[ds…¹‘C²‘l¢4ñšôùÉŽâàA>.¹~Nƒ{¨+ˆ—^P‹öuá‚ílýý®Û˜[<[&ƒQú©fÛÂG(!{n_ð௠Ƞ=Ã{Hvî| ª ÞšºšÂ/²òü3?÷)õ_š¶9bñ_¶ßÔK²îó‰—Ó(|«¦^—ý~9gfEIÅȤë÷EigMk#®½„Ø€nBÓ®ZVWsª×ÉõžM"l<³Ä„/®ÉÎÝæZi´å³°•†"N‚-™¦§2EšÆZ¤"‹t2©‰PÇr‚@?šÊ@5Áþíÿl?Ipaö€ × …OA»df2™&P&#L:£èôᦷ<™ôP¢&è…ÚâCJó{‰£mdNÏGÆñ±ûJþß@¢ δ>hÌmÓs*ÏÊÜ7U.£òh¤r¥(TEúï©\D r‘)¨.òÿ„°çužl‰|Š ?."p,¨êMÝ7»f_5ŸË锳W%¤éñõHMZL_§ÀH*î¼Sä‡g]fåGÐá½Ñ•À×oZk—Õ¨BfEmïäKzš/ÍÙA”º¼Ý¿NÍD¸ï8º¢”; Ø8ðSÎ r‘8øÃñW~ì)õß5¦®Ë¢ô|3‹&³„ ”CÄjÏv€lh'ø­m?ú½ ò#­©çë¡f U}Ap×»²fÎœ H–ßyèA‰>r²öÄâÀq'§šsØ,LòèÑxú¸Ç h„§*uÁ}cÎÊM“ì[Õ“v•R zIÍ‚)8…ˆ’ h\a"Ý–·ŠΡ#¶jS!§ô;ÊðŽ£czÇÚq(¸<®ƒG¿ÒLÞoð÷þ†Z»kÚžôˆþk0ÝKå–ÒÙ5%@Òó9û9#õΗl8bv»¶1«MxÏCVên¿Ug«$~´©ä©ÎKI¤@K¼ë^KÉ[gK@¢HÉlö ûÕÕ“ÿgºt  endstream endobj 4103 0 obj << /Length 1799 /Filter /FlateDecode >> stream xÚ­XmoÛ6þž_a¤Ã&1MŠz-æY—®(Ú5K²CÛŠDÛÜ$Ñ•d§ŠþöÝ‘”,9Žëu…“G÷òðt$-FtôËÉO7'Ó§~8ŠI¸Áèf>b”î£1ðxt“Þ8œÒñ»›çÓ§ë±ò0 õAfªŠ„¬D£ó„Ú v¤O¸é57„AnVnÆ®ï$åxâúžóL­ïD.Ë…(Ïì1íbÎ+Qfµ&|ç…žåαßúº‘—V†ïÜŒCϱrÞRŸº”ºÐ2â.uÎ3«C*2ÃTˆf©²Ú²42a0™$e’¬eý #'à©Ø÷)/×y#Q”‘Wɤã ‹©“¬V•JÒ¥¥ÊÌt´ÈJŒ™ï,*Q×R•ÄúÚï‡%ô‹;__7I#ëF¦µ‘‚ bûRd2•¥0®<âÇn+àÌr=` ¼epÙ±Ž™å@7zèCt1u?Šßºn¸ž5€óÞR? <ˆÚµË¦YÕ§ÓLI¢ªÅ”QÀs§µ, ãÑ={Cœb¸ üDiAŒ°^¤Ëæ6Y‹jìQ0mâÑØy=Ž]Œ8#qFmĘy¢Êl6€3d û¡µY…NÅ©+ÓÜÉfi&š¥Ø.š«ÊŒ®’ôŸd!öEö^ÔYÿ±¡Öìf䨹ÆÒ¤å@ª‹5r»>u®Õ¼¹Kª1}Cöt±–Çš·†ý†Ù‹öEÙs!|î¡(G§×5ÙPIù¾P3îì7¡´×ãˆ:B¢^èü9fnìKá™÷ç™\,dYÛÁçÄŒ^ŽcŽ%,x{ø)àÜ"1P@ ´,'u³Î>š‘TáùìŽ4d‰ÚLèÄm±÷Øë™~ÊdŒÀ˜e`¥S Yå6_¨u“ªBÔûðGÄÝFðk“;:p÷Œ„½dÀX¬aÂ\êïJ逳cÒ„ñý&à1tbBCëÌk! FÏózø!Ú¶ð#ѨBÒt¯ð35ÐŽáŒI"ü²­KyèÀÂ?ÛipqŸbyh°5Úæ‘ÿ³Ï—¾Ôvò{Ñ^ůÖÑ[º $Dý=yQÚ²÷º=ubÅ]ä[Û-T&l| iì¡r¾.!›«²=/C°°8 a8ÄÊҤ€ÓV?“a«m‹@`àu‰ 6G?zôh<ñ)u I§ë\Ÿ~$sµ0•a-½ «²}]èeª‚ÿ ¾IÚ ªQ»ŽÚty§M!Rˆ-ϲ¤1\?NL+jÔÏd!’z]‰Ùé««Ó3»©œ5+U[ê¨R,,•ÊYºË€ÚÎÁ.É þÈmºÀ“þ&v³hÇ=sÙ´^(3ULÄ|.ÒÆzû뺳Ü>4æ¡]§?J«éFî¨Ü_¨õ ¿^ÅæZôR5ⱪ\É_®!0Qc Ÿ›û[µCºØ°€°½¤JÖ­¨y¥ŠþU%6R­’÷;ÏÚqßƦ?3ÍgÓ0Ó|²{8ó/ù| é2"»¨õ ä%{vZWC&(¶ÀÚÁ1|œs l¥÷àg·øGj‹¤¶øGj‹MõðߊZ­à&2{zþâúâÀ‘0*>ä T‹Ætr±y=Í“[hÌ)0¡³¨ÔzeºhÚiªÊSCάöªl*•OKUN6I ß~HD™ÕõT|X Ùa@T²e“äÓ-ÿ— ùÎêÑO8ó$mT…Z ¹,&ŒU3‘Ü3fë=£ 53Ú 3­'rÜÓ#:Ò¡Çåáo—{É©ðå‹Wmþ gPݵ.(4åîfY‹à¯ÃÔ §ÝÊM[‘~ëWé»R왣íN6á±o² Îú>½™i>†)z½Í8»\^‡~XðÉŒèý¬íWp››þþë©9Ê‘•ýü_Üœ¼?aº˜aÝ–®ÜBÒâäÍ;:Ê`G£;ÍZŒ<¨äC«à|t}òÛƒåƒ~g–˜ FÅ‹"â…þÁÂløÀÜ~-÷ïçíýB—B™˜Î¥¾15ê¼ÛÉ—ú]ãa£YJ¤ÿ`´yD ö<"1{FÓŸáPTr…EÚÞ’k÷!ª­Á™YþÔxÝS¼iuhºâý:ÉÖx³ÐÆa íº[¥‹Ã¨¿OwVÖÕîö¦Ã¼þm‰°0ÚÞt¨»G €Êów„ ¯\$Œ;!Mr‹÷<ÔÉ|ú°§ã†K3ßwZtÌà¶2j®88 ‰S¡­w†ÔùL¹æ5ò׉Ÿýò¡Jƒt¥nͺ‹ûA„%Œz­9úD?jèW‰‰} 9T뇜DÛ fW몲7¸ dÊÜ¢¶Óu)jÑ» ˜jÿ”ÙÿìT8 endstream endobj 3988 0 obj << /Type /ObjStm /N 100 /First 1011 /Length 2940 /Filter /FlateDecode >> stream xÚÅ[[o¹~÷¯àãæ¡Ô^‹tdƒ´ tÀI¶AÆòØÑF¹º8É¿ïw8¢|‹$Ç¡‡©ÎáGò;Wr9¯Å)$eüe•äw²Š) ñ"¿Ác£4¼ l¤Á*„ lÓ#ËRÔ˜t„–QDÞ˳¨ˆ›ü6)YøÀ*r1·ð…ç-³³¸FQb–VP¦ñùYTÆ4ùYR†ms„/¼26Zù–•qHÓ(ã“´­˜G#R&Ï£!À&¥…™˜`ä <³<3iŒA ­”0†GË3É[+«!£%㥅LÆgðm2ˆr6¿ÅOŸg$Œy\•òXBGMÀ˜ª3NÖ€­rœ3;åœÍϼr>¯ì€Ì•K^rRRÐBgoln‘òœ¿°FygcXVÞ;Ág­ò!å~NùŶ´ "‚!™¯Øf—û%l^S€ >{ïå1D²BÌcx|›é! ß’ŠÌ²~t±y °ØÑ72#gU ,+äÈr?.’¬`$²c¸¨’ Y^R Û £5*9+_xRX\‘ìJ‘dFX¦”œÌȃa ’ âÕä÷M`4mr2é°™ªtA$é$Ò­©É»8D&oLuiÁl²y3cVÎ †…—ˆ†•½¡8ôeE¦úbC!?Å`½Ì,I— %E33ߢ™Š v ó1E4CÈ}1 ­:zþühôJ½‡ª[hþ±ýû?ÿÅ i«¤öëéôÃѯ¿~»31÷Æ”5VüFç×ó~¥ž?W£×B,{þê5º9ðaø!ª  ?ÀµÐl„¿ù_^€kÛO¢(Ÿ/Ý¢X(_Þaùñ«|–íöió‹äW,(`u°D›WPƒíX¢Ã7˜ÇèÍb>~Û­Ô{5zó굽뾬ÔvŠï¾^txÑžwG£ß0Ý®_-źeh¦“”ÜÞRªæ}§RÝÓÜ0Å×ìš]¾åX”¢­¶\óczHî®Òý¬7:†[z˜cXÁ“CØM#–FU=D\¡#b5¶‰º£ÓÞÐSÒ>í¦ÿù¢»¨Ç6 Vl®#«#bk3.±âZ Ùm ÎÚñª®1€BÔËã#¼3&‚‡ÈЂÝ8³V¯ûIÅÁÀ1©’ ÕFØ6ApÙ8f“åXŸ¶ËzÑ—wT˯]W®Ýêx=$Û¥‚5¢)äNô }L×G*úHT¦4bU¿H^#U>Š[’¼ ²>Ÿè³Çõg“~•™8»¬¨°’ùx"/Cš¡%uD¸OÛÏ/[AS×S{˜(dB:À™ˆ§F’;xjG;¡\,æg“iWi6±''‹-C £Á9±rš¼Û­¤íjÑßÑMÓÜ;ŸºÙ¹äS ÀÆs¦7Uq§úVˆ]CsWG}|¸Ž»ÑHãJ×Fñ¢¦xQ“6 .šÍE³¹h6siÉ\$s‘ÌE2É\$Û"ÙɶH¶E²-’m‘l‹d[$Û"ÙÉ®jJ‡h7ûë6R§€óe ´à3·G¯ÃàHàij–PIF‡aV-׳Y»øZ×ä0‘öRmÙ€aXc'þø˜³Éj¹jWËÊš8)jhŠCµ',ã1=©%@¤F û„½1 œTB˜³;8YÌOÖËG Ì/Cy…ÆQ*ÌLšR.ã S {è 3^U&Œ•0:]÷ñ ðeÕVÞ$ɬqpZê•aA2âûw³eÑöÝY}WɈã%®ö+HpUNÊûÈ.cïFÓ-'§ëvZ[‘°;R¸-p "Š˜£N÷§íâ´>‡aW$hÞJŠu/DëÓî1¾ÁÔ°ÅØ?òV\ì_„©Ù]V›ôgÓu×ë[Ùòz0ˆ=âa“WÆ&h–õ@¸» q99{#ÌMÒrÌ@F8Ÿ EŸ<:7«ACõÌÀe3! X䉔̓‡Ä†#ø ‡€l>Ø9pC²`ö˜?„ÃÓyeSl°3©!eìàd­¤¶`é@iÏ^u•)càòÈ$Ü »<„är<¿¬ìžà¨óÈ X‹Ìò ’eW‡ý¤«½aì• ‡q”¸ª¦]‰ÃÈ$É”%ûH0•G.H ÁÐüŒ5±ÁÉ^ñÕZ“«q?‰•hÅ\!I’ú‡ƒH>¶«ËžhùXŽ1‘òóo8i·ÛÞ~î&çWõÑØ@z¸!a´•3Øý(GË)ï^Ÿ~:›ô'5¹ëµ—Úƒ\%MbÀ…ãîŒ`~±šÌîB|úŽBÈõÎ¥b“„w÷ìl°¡>…¬Ö8Cˆþn=$Ú‡×C\);¸Rvp¥ìàJÙÁ•²ƒ+eWÊ®”\);øRÐðE²/’}‘ì‹d_$û"ÙÉ¡¼ åUؾ*ƒ†2h,ƒÆ2h4U@Ä”˜m½UÒ$?T[÷Ôûkë7 !¹- fI¬íAw¨Bø殊½A6R·ƒÅÞõüäëÿjLµÜ¤*8¸q9œ<„£ï>¯çUË?IKýs‹\qÑÄqRy=ÄËXx9,÷bW‘¿"t;xXÞOAEM3{3\pXŠ¹ôrGM’ÊM9°V{)©ÿÈõ2ïÜÞû~ªÈŒˆ™‡-)ùC‡bègŸª‡"å8„‚ ï:x2kO—õOn Šrr{Åz zV·ÂdvH°AX"ŽÆ#ÙwŽ==9;_žð¸"5¤fCi‹¾L‹ó:„d¹>¹˜v_j†ñˆM·ûR²}è`ÿåËÊNeË -C9Ÿƒ"uâ„¡ˆ#t—¼\ôÁþ»›©Ç—³º8µ…É© á/bÌätˆ~¿£G°×N§Ý´îšHœèÄŽÉ­jïu’›ÅNÖ*>™c‘üŸ÷8᧜ûÊ}`'‰á©—EÒN¹+!×.ò=i)ÁïY—tÜs¥ïÚÅ›W;q|kàF‘¢kŽ^ò7ÎG:rãGêä)Jt" 86sÉS½xþ<0z1^Mæýèíè_Ç¿Ë¿|\­.–Æ‹¶×‹¿\,æb=_œ.Úñ'¤û£]-&_žÕKE½6F®6G-÷Í‹š[l¡‹{Rõn¹œ´õõ‹åˆîZ†ÎH•ƒOˆA¬AL ëääjj£å|[jêÑ=!‰¦#”¼a Ä’³èèå߃óæáªêͼ95Ï›cÉecIFcÕ+wrWÙù«Ø1"™0t0v¼gÍþ°‘‘rÁ¸8„h ‰‘$`qN<’{B#s+[9ØðÀØ«Bœ?\ïFL‘ò¹ØwBýüù³žu«öl~ï³[ß\ƒ¾_ êzçRUÃó5Êûõ¶’O!X­x·üÆÕ×wz¼äó?¦rôkçtÏkçßT¹T A©‚Rѽ͵sȯûÿ1l¢0¹óƒV¼„“;/{¼Õ­‹žÿt endstream endobj 4120 0 obj << /Length 2005 /Filter /FlateDecode >> stream xÚåYËŽã¶ÝÏW³¹20Vó¡/ЋI0 ‚ 鬒,d‰n QKŽ3˜|}ªX¤,ªÕîŽ1¸wÑðB¥R±T¬:<,Êls¿a›ïÞ|s÷ææcÂ7*T‰H6w‡ g,”Q²I9©6wåæ· {ÈÓÚíwßß|ŒÓ™½TI˜*ÞŒ¥dÞ0û°NfÖ;g¾)(% úµÏïµ7ì©ëÍG)çÁf›W!Âów³¼z·ÝÅŒ{'N(ÐðI A›( 3)À-„nÜ–ù[»¾Î÷N÷½h³b—å-¿Öpho߶Mý…½uïïÚc·w?ÿúaux­?éúVÅÖü“îöm¯o?¾ÿá—Óî«¡·7aÂŒ¹­Ž—ïDÐt Ý1OÉýûnËYp?>èfèWÓ˜ˆ×ÒlëuwÔ½ÞîDÌ‚¼ÛÊtòeT'Ý yÕÐ `Æ\1…$UÍiþ»‰WUȆ€°¹_^-5Ç_š„*~Ÿ¶<t1´Ýv'Ó,ø\ G”Ò`8jÊO6œÄ¡‚IÙÁ‚ x4³ÈB.3gð;câ±ÎBÅâ…/Æ,L£È ù¾ÖÝ¡Óº)*ÝSˆÛñ ¤çµ> $º®±Äáv—(ü¢5 ØëºÝŠ8øLfyS’`g»Ù)¦ÜGWÙ¦\ùPµ¶JíÁVëè–!üÂlÓaÊIüùQ™²4äÉ”yÝy]\ª”¡L'¢8ŒMqà€Cá¡í,²J (ªûðR•ICw< zÈõþZÀD¤uÀ;Ä—ð’†Y*žÅK]†‹Ì’%\ ". ˜Ã%âAWÝz2ÃKœÅ/ Ÿãn /çÉ^8`5{e€)®f哱§àe†‰Ÿ'àîËó0›c müŽc”Ï1™ãåa|XŽQ>Ǩ׆™òj’‘ÉDO“ŒÊža™,zžebq4“hF.i&z„°™¨FzT£¸£éStTyT“Éô•Á:Îëp#Rnqƒ&èâºv<‘®¯þÆŠ¡èt®fL;äuO𤈛®è¡ñcË(SÛaàƒYq )ã,nJ¶[ëb¿F“¨%þ—u̾rSLʯ£¸výÇÓž‘P2ŒÊÖE[GÍ0›êˆJWG”±Ž½.Z³¸œGâÒ‘xì“xâH<>“8{môç‘°=ay½<˺üÁ†5ÀSOÕÜŸÓ´°î¡W«+]ú'£ÉÐÍöòll`ÞdðPzíd<Ž{Ë1 S]÷‹ÜO÷>È4djÚ‘þ\Ùmฯ¦>¨Æ¶—Ë3pdIº˜ª9t_5ÙŒÛì¾*HÁˆ(áAhïªÂœ¢ÂKKÆ©ZpíOºE¾X½©> ÀŒl– êhšôªá˜ÛÇý±ërmÙí-ÆÞ¡ÄK<¸a6_úŠ’·8¨OèÀó³¸ú°~z¨'$»…ÿ7lþQXÜöû›¢ÁÕÍÁ8žÚ†uº/Ë—W³i›]£±4÷Û8rBJ£RATp:î±G< (SK¢©š)ØP&AÈ0zkÜZ]YZ+«€Y['fƤü|Ô IHhc ‘@¶V Jï‚{ èè(Ò’4ú€ÁcxMÛ7è:®š’¦Z•£.Ú»5´‹¤ ¾ÍRÃÖÐÒ ½œÓÑó—|ƯAíZô”MüÊ$ ¼0iûÒ¹‡€›)ù2 ªžtÉç@O¦±Sê ÁKÑÙ{´Lšô’6×~§›RÈmŸ¢ÜºÛ&Qž"ƒÊŽ°‘‚ÆV½a¡…w?é¡ýÏ6ŽƒžìôplKSa&5o˜Ö> 6år{øJ;-çpdÑÿ·U"ÊŽ|ʦÏÆ/[àÅ1ïòb0Ç ïLö¥fA[˨¤R¡š:)P}Âäçõhz(x06%¸3\é+˜„¶nJ˜å¡EtTžLI²ÄmÜîíë`œ¶*Ü]4lŸ«¯ƒÜðP áãÁ~^û®‡Àdê„Þ­xŒCyþªø6¯ë57" K_î¦:°'¡fÎúhêš}N‡6s‡ÕóTÑ>¼ŒÝÜžæ2¶à2þ,—™A¹{ë=5˜?n^Ngç^`íúÏýˆ2@5œ7ɬeÄ'Ô‹ƒº±‹¼§‡‰aÚËÓY„´ÆÀ¶±ðÀlº Þ·ä)¥b¿V=Çn"#v™4>i«´XiÞõ;Û?Ú²AƒˆO\Ÿ“û4îh4 Þ;#]ÌnðgCÉ#*­„Wõcq$Õ”>¼É;mµz C÷¦OWQ6û ÿãûªRæ¿ÊScÃT蘘 U{ûÎœ.ÞÑD\¨w]—¹±0éß9º‚€˜ô«ãº/®\›Íº/ÐNü„O¨{LÕ¢Ù ³0ç‹Ê‰×¡òéÄÝÙA® Oö:ÂÒ!lg’¥H3b‚;˜ÄŒ˜`ZbÞÿÆyuÇ1ÐøT´ÝUÄ$â0Š£ÿ-1¹ë‡»7ÿ5Ÿ endstream endobj 4129 0 obj << /Length 2843 /Filter /FlateDecode >> stream xÚ¥YK“㶾ï¯Ð)‘ªV‚$ø°Ov¼»ÞT»H€òʇ³éÌnh›Û]˜lOÃÅ4}Ǥ«±}^5üâùy–—¶45ïøQ´—ëÐç}Õ6"!oJ´CSßÜì0 g;ôakÊËTÊ[«Í#ˆ_ò/ô:ÈÒÀé ÛªØíà Ú>î½ÍëÁà«ÞLÿdLÃs>?hg8 jg ŸÝÕÕñ™gé´H-Úæ7ßJÓB©šÞXù3×ßwJoMÍL¿ùÚGp< ˜6Óšw\šãNŠ†ºgU¢´L˃ÎQüyéÆ¢xøˇ7›_‰él¬Y¨IèÇÖ²”Ò€ëv¢¼×ô¿…î•ö²ˆ÷øhì¡íÌ×›¡nOUAúHÖ(<'&áöél@!–gØ-„ëÜuÉãƒaæ“iŒÍ{#ä¶Ág™¿ÚödM·SÛŽ íqâXÑùÌgÑš}_5'÷ʆ•½4 EáBaJ%’ñèï¿ûÛý;f[((ˆ¼ÌOחͨÀK Üçv(«SÕw_o†öŠAHvcòTtÊ©¢œ “aHJ*„ÒÁq’>VãÅÉ»Öyaº¥¨§sUœo]-~¹\"–”e:P.ÊÐédy°åfÛ¡)Méíöqn?™:4´e´)ß-äs0¹°ʪD~$Rîpæu×¾Y¸|-²p5FÖŠoËŽ= :I~’BÏ-懧e>…ÄÒÛ¶¾I®Î´ü(2Ù Ø!››Iÿs€{ž÷õ^•—eåüJJ†J]ÉðÄõãù³ˆ¿ÄžDO?ˆjæŸýÜsh/ð1 xIa¸g§#wTÁyŸ³€h§NœŽ5OÒk?”•q•Êº:Øup ri$È3@Ué2|ëÆÆ^ºÑ`´‹tžüÄ Ç, E]Es]{*ÓSšp….$£Ê½”±´—M ©Ïµé–>4* œøBÊ#%^ª20RàE©’2ôPÍ…WÑÃ_!ömŸ×,Hk/‚eTœ ¯NÌËš(O‡“ƒU»½Ž³h{€A`.RÕÊ1÷²ìs_ ¾ø¥Â}©¿¬~Iißó3E.¬RMO.5Ü|Ý|²a¾&pa·+2"/à†Ãÿ/¢ø û T„ˆVŽ¤¼hòÛrMÔ«`T,¤¶G ¤A¼-L]3éhÍï`(Ž;˜Zÿª‚¢™øéîV½@%”œ¶×PŽÆ“®Ûx)gÜ´³5½rÜùö=æ‚W0C•õ?ùåZ›·A¢!n¼“Ò„ZæGgY€, L XØ{©þ ÌïE]5Œ¤ð­·UNÕV Rùå/èx–¶‚kÚsk{ù'7´­RclÀrYÃÈÜŸM) ià¸äϲ's4"š!>×qUoMÞc¸cu\4’üØ}H3j8´wRðٿà¦ÝЦ#ÄêûjªŸw±&…·§ª?³ä)/Å4òC¬+»í˜YeÛ`oPqdJ˜"xoºžßPéÆ;yoÙ7J8îY ³|Æ`ž!ˆ ªÙ·GµA-‘ùÛ,çûÄl EÞ™ý„ÅYuåTbÈÐQ¡ïzx§"ÜRÈÆø.6FA9| ‚¹™DÂ@Â-uL¥¿ÊÏ»G? U,6ÉQS¼ßˆè,øv·ìg7£€ ®ˆ»ºÝåÊVÝ'D ±è¼yz[Þ¶ 'ñÞ*l¹=ÜÉŽŸw`ShÏÿŒ ¶Ôã¿CÔ–ŸG+‰JxñwØòhˆ×+`œ 6¼‘2ˆ|‚þ‡°ýúPngÎøGd ‘ËpFÏWÂÁ$7T…»át§^ ^ÏüüÙ_Àc c­¶ÿÜ)È+C7ˆxÓˆjŒ‘0@ÌR=v;·Îúàúê )‚ûçÊê¤Kç‰'Sμ3 Â&¡éEoÞ©ã6¡ åè$Ž²ì˜Çâݱ»°LÍåf*S^ÚìzFoÍCùq2"Ž¹éÚ5·}U unëgžÉK¾-húüdÚAøK4<âãMVÂ9:%<+huŒÉODip,ê?ÓÛºÝàæå9¶Z𙶭؆Z°Ë÷Ýå´<– vPµ:a„ø®nY«¦ä^•_•Ì°72öƼ¬m[æ+«®«.hQXùÚf”5Úk5ÕËÞR-_Ic¹T¨É,@ï ¯­y]çƒ5¦©ù;0û'ž¹Ïk1h7‚L¬²Ìÿ†:ÚÞ?#‘ (`²¾k¸ýÞæ%ÛÅ6ÌÆìšÙW‹Ž"È”Éö ®"̺9–‹HnCpàúmz;l|áî§Y5mXС¥: “„QP ´2‘À“ù7 ²x§Íù”ÍQì¿ Må>ŽZåì /&ï*³Ú?SÁ½ZÈ/ïI¾.Ùþtè@<¤µGüçú¸wGrß³KPÆ—ðgþÏõJÑQ¤80Ia~-ƒ»ôO©_kº¢5& ƒŽL}äqÙre $ €ý>T䶾óx„yyyµÄ„öxÃÑ¢ØÈ%‹$³Ñ'CBœ ¡ûŒŒÙýš•F`-è0j ;.zŒ.$_òOdˆŽ'ºn–‹%œg%Az -{˜"¿”‹¥—u¬=„¯uÖ±—„êKu”e¯wÖa”,;k Éxû/cÛéNVŽ…¶ä® M½d©KÄ}Y†eÄ]ø…€&ŽÂ\{Ɖtþ,œX›@JÆ‘¡–o>tœå¬£¶‘¤ux²Öq@ å…í0ÕÌÊ•åE1X™v›‚ê «…„)v¤Eo.Aóô€4äFr)•)dä«ð²Hc Óu¹}Q-3äeɇðb„š]Ÿ7"Ço=(Lí ?qÄNGÌhe›¹5kåþ64ÞÙ¡¡'H0ƒk?rÓ¸P]äcËƶ{\ëVîžÃPÚ$s‰±ƒ˜i媆ǡ)è—’åsE:U~X;S’ù^6“…a.¹›ÍnSLaŠX9õzÂà“L !DœZÞ&S¸|Z‰§ÔÓSÏ-‰œ"ŠÃí†1 ´€¬rJz[˜ËŠ\òÞA’•l¯u¬ÂËF2_.‚F7Á·ù/E>ýbAÁšj/ˆÒ›—< ö'žG“'Õ4ØÈ‹g`AlñR?°œÍ꽊ï%i:»Ð]¿Ñqò…{•Ä›]™´ë·B:O¸¸*æ-sŠ„30Î$µ‰ú!¯x*Q7Pnü±ÂǸÍÉ‚ziÁx¸¾ÿ@à]rŒ¥ÇuÝ‚ïÒ’e't78p½0¹ïÂÂÊÃ]‰ ¡IH&+yp,Øte¹‹±(¾‰Bœ|•HÜáÈÅ.ÔåÚAgX?¢çh0Ú R•ô!(=]£DéÀ û†:öb=ú_iÛ«ï¯Ý:Æea›Y›a.e)xJO‘ÊGéü7(x!¡™±GHÇ›ƒ+*SÜU„àvJH©t5ƒ´)£$3Þ¥F{!~³8ß=¼ù/¨Kï endstream endobj 4158 0 obj << /Length 2574 /Filter /FlateDecode >> stream xÚÅZK“Û6¾ûW¨|‰TeÁÀgj½µã-;•­l§&Éa½Š„$Ú¡ð1³Î¯ßn4À‡ÌÑHãͦæ ÑﯻÁñ»…·øæÙëÛg/߆|‘°$áâv»àžÇ¤."ÎY(“Åm¾øײ>¤ì¨Z½ú÷í?^¾ ¢Ñ~™„,J8Í씞ÄMÏÙ£‡ 3’ Vg8“£eÀxºwnúùÍÌÁ€5<ìéo>ÑÁ£ÈDì—b­À”A.ßj¶ž˜!ƒàDŒ Ë%È}Ûåh{T(M0‘DS·ºG¢s ©*赑¯²âÕ¬ÖÚã¶î ü9Þµ)^å—eG†ÒZ³ð9xBŸ¯¾¿y,+0:ëWŠ ~'¸Ç~‡«äw6ù²é²½åÉê•NpœVºµšc êù ٳȊÖdtÆ£²ÑƒÞU¥jšI4Å.š>îk‚…Ç0ö£K<ÞóãAáÀÐá…e$-M#²çm‘ø, ù#ÑÀa(úzÄ%%8{³Þ²kìŽxa½Wʈ…1Ÿzï±N¡>(C… ?6&€A´¬TŠLë›a³#þ¢bÁö•\Û7èUØ–µÝpbQ¸ÊNU™¢}”u`¥V oC³”}›î@æÛì…dz¾¯H½„t&—ÑÈe/DÇÚ.Ûôu5t¢¢™5G8®pDÀ„j!ó¹­MY%‚œl\(>P0r(l9ø{LïÞS‚Eo>¨¬Å1U®8—• ¢Çú8"?C]>w÷ó8|ŽüÏŶÏB?·r¦ˆ>åý çRú)±ViZË—†B»¨Œ ñ¹¥<Ò²¤ú¶_Ëôá¨+LÂ_Ÿ”Ñ‘@¡"AÂÂ(pE›ž+¾£%ñP(ïvµñÔÝ b¾¥òÉså“×—O?;Ë=zÍÚž¦Q—óÒ´åÓÚ² êÚ,Ù{~€ë¸®fó÷»´¼œÑV5-Ql°yjšÿ§Ç«8Ít Δ÷±{\?xV°rs9uë×Êšq`“? ',0s‹0ST-V$†Õ§0Ú]Áhw<þ L¾{óE.÷“Ãέ‹Ÿ½.õNUªhM²z«Ç?Íé>^N¹êu}EöÊÊ.wQXT§ÑZ¥å§¦h®æñSñøUÁLa çôµÌ]qNÎP0OöuTÏ0UìY{Š”èÞtEuÆyLwéß¹ýŒùšôE¥{"SÖE ap½ª¶EËЇ›+’vò©i?at_´{ÙF¢të²øˆýŽ*‹½¦ŠÚБ"[3Å—7ßþý½õÚŽ|Û`Â,f47Ðø À`î<,Ù™ ««@sm]d=Ð÷Z=]˜òzµcW$V}pžç^¶9ŸP¥2ÍþËAÖÙ .ñ‰ƒq÷OSô5×Ôo‘åÞ^Aò¡¾•Â]>rgSn®ÚŠ(êIùò sUÒ:"aPÛbíÈ¡nGpÎi“s~Ýͦæ%}ÕhŽ<§v3îñÓ›Mì½…½°sR[£òÁ4 Ð:C³L›ºf¯»Ò¹“i“Lž²Ýn‰ª4×5×ÜÞz@+î;9h/ØÒœ»¾˜ GÝ•çЧkÔ¨3àû,ð{œxx|Á Œ?¿@6¤­~¨n±yëy:ô ¨\YHn‚*æÁà——+Ô÷}x²ÁÚóŒû,–b’.Ô ¼^Eu_(_Aj-<á.ª/t~:&1" ‰ó¼ûûÐc ÷ëÎ. õ9ƒàDâÌ==˜°Å“­ø]Ù™^³¶õúN¥ØƓ˯ímHä3/Š§h -ÔZwÖüy‘î*=*Õ³´šF’Þ`ƒæðÙ ÆŸ@æ‡}~.Uz§8Ò¾ØBÎ-¹ÇäÔ)ߢ ó‡½#ÅVª´u ’Ѩ›ê¯n6›÷Ò^Ä;@ !ץ݇´¥;¨c©[{µdô€óµÖ=àìuzqÌb1„¦aû,b&,Žã'DDÁ7v5ÐÈ£t¢/¥CÊþCäA[1ˆ© —éfs¶ƒ˜½hæQxe˜˜Û“\,!ÞuFâ:àžGÀùÛodð³ùF°`Ø?‚û³¼Æð€:×”ø‘·ÄÓLy«ïÞÙ]äî¸l*äÈ8˜nŽ½Ôp‰Ã©e~¨Ô Ž ¹/ /WGÓb¨1J}^ý*°>ûêÓ†J&b¶^"t£{ªqŽ¤HŸõº³øèt†’Ù÷4”ÐV'‰dæòy„S7Vøî@ßéú²¤¿#L×®ÁrÌ^Á{1§®ÇÐUÊë°‡$ïJ­<ÅA™Ë»ÿ=°Ëœu¸À6Â=á ¨Ë(Ðvê²eÝ`³ú³ZÅ•R£ä9ê[¯HHà³’CK®¶çØ67æá“ “q ›é»G©O¤2t3gÑŒ¾Th&¿+>þ!8?%WÔ—žE? ôÅ:ƒ¦ö¬aNþ1¢o]/Çt\öúx} ¹Ù†bŽ®á`°Ç€¦³FàhÜuý•~]Å åÖ\È:¸ùeB©lßBta‰Tæ>A¾zÍþåþnó7Ä6¨uÖe™®wû.èHybL½¢zíðïÜ·í±ùúåËûû{æ(C‹é-GäϪ0-áÉøû›Uä›ÛgÿG-% endstream endobj 4173 0 obj << /Length 2278 /Filter /FlateDecode >> stream xÚíXmoÛ8þž_a¤À Ô _ôº€qHÛ´@zIz‹Åv?Ðmë*‰^‘r’ýõ7|S¤TuÓ~Þ/65É™GÏÌͶ34ûpòæîäì}œÎò0OH2»ÛÌ0B!’YŠq˜Ð|vWÌ~(ŠæÜ]ž½Oð@•f8D$CF©­YØ5¥VO+~É‚¤ ¤vá ßðvŽ³€7k.GëvF‡ 8 ³(¶Þ´¬XÍ º¶y=_P”×á|Aò$¸ ÞqþEºÉËñd¼ámU6£Ù88÷³ÿ°ÚWbͪR8á¹Óºq¶>£„RøÇ Š¢$¸îÖ;;É aµÙJtÊÊ¡ve³ýtÎõ½á® ð{»{­E½gm)EKhˆýW;®i°çíF€ãÁqcš+¶` «U §î…;QHûp_ªµ¬u«ùœÄÁaŽc…’¡‹y<Œ9ŠÃ4Â>æ·Š©RÂÎhézÍ‹r]6ÜZÅ.‹Ã÷^;1Jr’˜8_$V“$Ærƒ"gKGk÷C„HŒ‚˜~&$ISwJ £4DY¿r§Ô^þrvVˆ2íö £Þr&ËZ$›ØyƒxO8 1Ž¬-çMÅšBŸ€à6t ðê-«ÚŬ1rlAæèyŽxHžoJ&í¤q*üÛ¨Ã@4|!ßÛ'U;0èAì…@o­Tª®x´Ã–Ë®úFháFiœO„V#sá§G5GW‰7xšbr,ÞQ˜g½B>eð0Ête¥:̦©8»(½ ÎQš!”#xµ§¢ !)Á.Üîö·÷œ+ð² ¦£öeè·R†:³¡†»ÙÌ`ž¯X½â­rÂsŒqàTß:ƒŽZ"‡ tñëŽ)«¤„UbEaV€=¿üË.ø$¹:ÝM˜ý#ÊÂ0È>‰c`¢nÚ•Jã(Nà¹mùZ•¢‘VÁ"aH<²tSÞ†.3§µ‚)6BðA˜Å“ô2Øä8½dyt n1 ¢G9¡ß`2Ä[Þã- 0±¦i<…¸%9¼(ñØLJÓOœÁö›AF'»N@)¶ä¢¹nxãeW†ÊïKéž/ýÄ[Q1ÈçúFb+^nwÊö`ÔS–¢²Ø0A²¦bvrU‰õVpûTt­á¨#,Ü´mdù ˆÕWÛ¢4Y*AäÍ£€µ^)EÁyc'…NN6Cµ‡Ò^ÒÍlì¿eI´°µ¨Ë¿xá&ZØb’ùˆÎqÏÛyëP°mçe¹”þhöÿ-3ò¢4J&×]ÅZ;÷®”œÉ)hâ( qžü@ês"éKR_< EJcQâO’"NÎ$B”.PBtVB6ð@‘ˆ.&2£(çÃÿεÓøz§V¬ƒèGn åNü:ωAVš9zÃ>ù%0óV4E·VEi:d¨Í* =ucÿl9£' ü"“µtÏ s€A uŽ†õT Äa”õí¥†—€šRCS[Œ¹\hõFJOVÈ„[±Q÷)Sp€Â<ñ½ÄØç=ú¢úg˜ MEÙdùC Æä2ÏÙÿ¤ ˆ&a‰èZ1$ÝHSÑÁwA¿åÜî^I1YÍ#øEa6kõ£ÞètľÆOŽ¶CoÐ(ÌÒ‘C_¶ÕÈÏzŸmU×G7ÊIê7"Ãêݱm ‘dOhtQÕ„úâ †ƒŽ:´úpôb$„—ÅëÛjö„J‚»a- îðý˜²ï¨~Üt-—ŸØBŒÒ1m@q®mžÒ‡;q É‘ŸˆÔ ¤ú³WßÝqÐÀ@~Š~0*4¤I>ÜûQçu½ó±as2Š Å)¸½µÑ¡ºƒÖ™ñÕûÊÐ$6”ef,+‚ “ÜJ<™AA§­þ5m@œ$ñN{¨=¦*vÀÑS—è‘NqTQ%ŽBÜîþ ÓìñüÛœ1ƒIÔóF ¼á¾]¼zõj¾ˆ¡ZyV™j‘vŽþ7ÎÑM¡•ØjuEát[`wáÆ4¨×ýR<84çaòÄîÿìù¤A é UÙŸQ÷r6.àD”ë¸ ˆK>ö¹>(+—j/t)§—®à©á[÷´.—맹žžætí½Ô¨[­íMµ—/îNþ<Á´¸ÿD#Ft¶®O~ÿÍ ˜ƒê-¤y6»7šõ,Ф‘NAÕìöä?ß ’ùÐ4Æ\+ŒP’„I‘ü(GcL†t}­£z>è7 +™\A‹ÀZOV1º.x±¸ØèoMè^¤³i`5­É#žèCK÷#®°ßÖ’‰ok$£aînüŽËu[îõëñ3_¾Þ»WË~ãÒ­E±ef+2¨Ÿë¶Ï~ ²RþgǪ…æ.œíSRFD«ÚÁ’-¢|£K!ã3gÖúËè8eû ¬.½©Áëg­k3ì|z7Ôµm¡Ö6×!P‚ûMôî•Óbfÿ*Ý(þÞν1kkÓ²ÚµP¾‹ö‹iª3W¹€îŠW·¾‡ÑrÛ[DºU­0ª ÛóžÆôà1ò4úÍ´0‚òõõ‹©^Mj*È…)`·ühf¢KÉWÙ»­«È °YVî5MFÉÉ]NÒ4†êú~Xê}’ÏOt”¤¿[Üé0>–Ž¦~ ¹Ý›îÔ³+{êëY¯'<7hp?"~ôÐËz™êeJËtHiɳï]µQ‹ Ÿ¨‰å,z¡,ˆ>ôŠ^¯õå?Ø?Ùò¢¶·ÔøIˆŽôA“Áí1tè³~±†´kùòôÃÅ¿O¤ïýY±•v+ÉÕë)³¢Xâ3â½"–§¢©Qo¯{„–ïϯn/œ^ Þ®ù^-ïn>]¼žzËm~[žÞ\\_Ž‚Ê ·ÊnÇ¥Zžþu:y²ŠxµÌc}¥< ú‘b?ù·+!ùè¤E¹-{éO[­¨ÜS†>'ênÊg<Þ ú7L¦_dÙÿ3‹Š endstream endobj 4205 0 obj << /Length 949 /Filter /FlateDecode >> stream xÚí˜MÛ6†ïû+_j1—%ð!Ewi÷”¨,ѶP™4Hj7›_J¤¼¶³5¢‡ˆ=ˆ£™Ñ3/GòÂd›ÀäÝÍ/«›Û{ŠÅ4Ym! M „%,Y5ÉǹÚW mú×ê·Ûû¼81'Œ‚‚1ël4$0Œn ÷{Oȉõ‚°¬L¸°‹ÄÝ´ç•î_ÎÞÝý1{“.rçMe*?Ô]µž†ýZsófaÝ/lŠ,Ï“ªi–è{C#—3)ºgxô§äÂåýÛ÷îüR+ W5?˜åêáÏ»Wî¹ÙÉf9{¸ûýýä鉷Ûá¿Ë…ãÚ,g_f¯:éø#ï–,÷¶kcü¨:ŽLÕO™?rµ–šŸeÚ´ÛÖh?©¥0Jv~øsä+COYç(sdQ3€²ÌåòV¥ηýž £Ï*õR1šŸÊÁÖ 1—ÞÁjÇ5O8·é«”G_ãÒ+SµÂMŒtס”nÔŠCo~¾&‹g³ÒE{n/ŒÏ´WPÀJ¦ô¼ éuÙë!Þ˜ïEÂ/@^ëøllÜÞbè=¡õÂ6Áì¢^®¹êﯙ<˜VŠª³¡G ¥¨ô-iXÉ\²;úÀëvóìÍÜÞÙI°ËãI°×­7*ml„¯…‚°‹£`]ö¶Q¤Î ÿ!c¿°)øçB<"k‡XèлÇâQçí;¹z>gX«8zªãšwrÐÖ“o÷¢¹8Ö¬GÒÕP‚óf2ظˆö”‰»áÃ7)# Aé”×uÕÕ×&âHyÓ‹ú%ƒÍÔ×öRMy:n×±aÊ@I/与܂¸Õ‘[·&rû1nþ„@\àŽà‚À}ŽŠ ÎDÅ…½LT\˜âöQqà¢âÂÀé&J.”\Ô\ØëásäÖä"· n*r ûþÜ‚¸m"· ÷Â!r ü‰àÂ^ ñ .😑Û%·éz·ºù žÁàÇ endstream endobj 4107 0 obj << /Type /ObjStm /N 100 /First 993 /Length 2532 /Filter /FlateDecode >> stream xÚÅZßo7~÷_ÁÇöá¸ä 9$F´ï ÜA’î.ȃ"ˉ[Yrõ#iþû~C‰R|©bÙ^í‰ÅÝå?gæ›!7¸’Œ3Á•l<‹6Š¡Ä&x‡ÛÞ ÙD!½Œ¸¤h$²I$FÐÅ™¢>“Š?CÛÌÚÕS¤è#È÷¢"]1žŠèCg|`q|”¬-2>9ß³ñ[!ÁøR1ùh¢0‚Cî‘7ÄY% ¤@ˆÑJ^ßȆ¢W)„–Ô‰à’R©o@^a—a—{Ãøƒ1}ªï&ÃDŠ ¢Å)fÏR³áÌ*ƒá’꽸ªV)ªL¨jÕ!cH:”³‘ð żdE˨D‹M$©­`"Õ)t#×–`r•’L̤£éº•¤óňªè :ˈ•å¬£EÂj’¢ÂšŠD[ÄR§¢è#Öºpy1ÉÕ{ºÞ® ä³` (6Q]Ë# ¤RîqÒ{k‰QñI0Iªî%š”Iû‰šÔ§ÉäáAÅ™ªQÁ|2W«JÎä &”%ëCè:§ªúÑJ:5üɶ´h@Cv.°§‹Ë¥ÎËZœÓ1µ¸èT¾GK-“ð ¯Â`À±Î&V¤®<–¦äú.XJÕD†µ:—ÖÁ;òºVÀè]Ø<(3ÆÉ Mñº n·êkð ˜hB?pŽºŠ¸†wˆ(p xŽ¾V0LB_ƒíÀÎ’bÀâÀ¶ÂÆ,`úÎÎÏϺןo'¦{6›ÍWgÝ«õ»U½þÇõì׳îÇùâr²xãÜÛîïÝÏÝOo|½8ë^NÆ+óÂ-Á¡,é„r±*ˆ‰-Úè÷ÌœŸ›î•éþ6=7ÝsóÝË«™]ÜŒì͇ïÍ?œá_8 Y„Ÿƒ˜­®é10n'«y@(²M)ï‘”höv ’÷Ó››>UÂqDíÆ üñÍ&ü"ìÚÈù ’›Éjt5_Ø——£å{;ÿ:z?ùÖsóš0ØKÓýû?ÿ…•[êØÁFXÜl=¾=ØŽP{Ç"¶À¶ì²e„ëãz“ëb8Io=«AóNï‹ùlU•y¡±<úÍkˆ€|¸½@°L[ˆƒ!ºí…FØždô’mÛk¤Mõu/óñ« –Öt/ž_˜îõä÷•y{×Z^`±ÎºŸ€g2[-•‰ê(jËùz1ž,7¼Wïýsry=úqþ»©v$ ×T†ñb´ÀÛúrØt¬6¸ÄÀ•«O¥êMûÖð­A­Á­Z#¶Æf’o{r»ìm€íÅ –á~ iüâ«Eûd9MÇ=ºÃá³Õ”c‡ƒ`íRÇ3(´á@ê`“§áqˆ·â÷0’Cl’á` kNÀ W§¬Ót5 J¯ ­æÔ;mà·„0×!? è¬úJ KÄÁX@Uipu û©ÕÔTÅ"l‡„˜4óÎ"=Ö’ÀŠH%Ê@ñÙJ¾<€¿ìÜF4e@¡qdoh`ÚøèÝ!§Ãt‡©ð.Þ»ðDr*_“¥Ç““O[v¡Ø+»*!Y‡a)su`Aö‹Êåp*u½oó¨ùíêz>[ögµ!!’‹–qÎf` %Ù‚ô^œÇ}~$¦jf”`Á_vÞekð T°GöÈÝ3ŒïiÕ ¾cÛ'µà˜¿¶à(·`’­sK¸¥NÜR'ÞõiæÎ-)ã–”…–”…–”…–”…&94É¡IMrh’C“šäØ$Ç&96ɱIŽMrì×3ˆSc^F¤&c «ªM`’™‹ÁXÚ# VjÍ æ‚Z)!r»Ã¾w»¸ž­NQt‚©Æ@‘lRQ¬×½:Ä-)‡œåúæf´ø¬ˆzTÁ(Æ:¥Õ{À\]¯–«ÑjÙ/¸Mšëp²¢å’Ž¨Õ0ByæÃh“åõåz4íNºOÑÐ#x#¬Þ‹š™]Ž—§0ž€´/‡=&8S i}99=g0‚n΂uto— ¿ˆ£Íé°ŸO'£?_ŸSpð)hÅ«A?p¶ÈYïCºšÃ’Vý‘V-AÕÑ°¤`YwµïòžÍ&Óž±hVmX¢&Ñ%Þ‹e17öŒéª;=°äØ€ß,ŒÐò7¡LGïÞMzFbˆ(­vP #ÞåÝhý˨gk!Ÿ‘^ù–Zõ1Ý‹å·ßfóÅÍ <Ég ¬uØœ_LÆéþ5”„\â0{Nç'qì„rOO¸åžf‘%Âà9%ÕƒpÆë›õô$;ÈZ~ÂŒ#¨Ù%FY R›’Ã{&ãùäªgËI+¦=hþtãùÇþSŠ î´¢;ºT÷!YöìÖšoÚ+„uWÚÝ£¥6="‘ÿ4$…­ÿ$êµ Ÿ†Dsa”¡Ã L(ö~‚n}ÒÓ‘üÙÐÎ@÷{è6¢&—©QϘˆ ëRÒýílêdºgççu„îÙX ðîU÷¯—?ëÿï>¬V·Ë¿vݧOŸÚ9Ì_nó_0Š/Þÿ?…zL(Ô¿ì¼?VI6•rdïêÿ9Ù§…£>|cêP%ÿè=ñ×5zò¯Ñ¥•¹ÒÊ\i´´ZZ-­€–V@'×gM¼MzBŒ6Ñ&DfD¬|+{o­g×=²úö$xéôŒ#€ô{ðIŽ¬«F´AÒƒAÒç™t; Þá@¾£ûÜGáøØ{ZETýZf»0È£†q‰Dt<ŸN¯gK_rõ»@Y?ýØ"¢\#ôC½ë3Áˆ¶Þ!âDÈ ù(DŸ×Ëõ•âéqÅ”O¢n S.øõ0€Ò\ŠO<ºO9ºOôŠ?ë­G’éØÞ˜j’c{ëÞ’ðI:Ã"r>V#ú•‡æGö&¤L¾á}g[ûðî7¸-?‰3i3æÎÔâñÑœ™ûå¶}œÛöqnÛǹñjn¼š¯æÆ«¹ñjn¼š›äÒ$—&¹4É¥I.Mri’K“\šäÒ$—­dr®5|ŸÔÍàê¬_ûe¸;rø,6é‡_Å[ÜÍn0$Öolv8RP3ªª P6šY${«_îp¸o†uósƒPüæáqpA­€ò‡Ã 8C†Ç‘õÀ3íp0ø%¹0<=FÞáHºiMÃãÐCiÝ$o8n_†ÇÁÎjPßá@.åhø0¦›C”÷aŒ‰tkdpTÄrÙ‡1Í(( Æ(Ý>ŒA7(üð89µßÇ1JÞ†8|£ åØFüööÐÉ`P¶ú-þ‡¿¥áÃyo ïØܤ<|Ó¯¾\؇1d›6Åþ¡Zhµ endstream endobj 4219 0 obj << /Length 2593 /Filter /FlateDecode >> stream xÚåZK“Ü6¾ûWtÍ%ê*7‡=³åƒŒídãlbÏVÉV­FbO«¬–zõðdüë H=zäžG|Ú­9Ñ ArøêzÅWož½º|vþ:ˆV KB®.·+Á9S~¸Š„`¡JV—ùêwOñpý¯ËÏ_‡bªbÁ¸ŒAajö)ë«Ÿq+ߵ篕šür£Be~º‘ Ø×y;ûõ‘jQÈ’XºéêCWÔUZ®7Ê—^Ú¬Eì]÷{]uH^WÓHQeeŸkú¨+×iˆk_7–³ë&íê¦u¿³rv†’­7Ax/‰ÔÕu©QgÐjK‚`°…¤cyYŠÒ’лÒD¸.Ö2ð>­Eài;”¶4”Ò'eƒˆzKm©«ënGË!¦Ë!ÉDàÜó‘8fL˜ÇÐtVloÁ’Kvš‰A³´ìu;84 héFr .¾dpx襈{ïú²+%ÊUáÜÁ ìlì€ÑäÎ¥Îiäê–¬“HEEžAAi×é¦Xô…Œc%§|³8PCèÖ8ÑMkíK"újn_Z¡rÜ.@‹ Wè–¨Y]öûÊ‹ñ˜±‘;cy8  “³›"½*u nó£Ä{Yvº©Òn"åí: ¼çð)Œ¬¤Òæ ü±xÕ`ÚP÷ýœ; ÐmÝìû2=•o*b*t.2,n"Û¾ÅåÂf¶6¢,qgù\Ú(Á½Úÿý½îÒ¢l¿aG ÌaBÀHB'd¾”6p³”rî±8áËð'‚Úû2q‰'L§¡–pù΋ŒÂG¶ŽÅXŒR˜ÓÆNƒpbXB‹²ÎRÔrcúWýf=0sÛ^§mß<ÂqÙ.mÒ B`$&"öÏD8®¸!û±s{°=„ló´Kí/úá,0r¦r†Ÿnû*CG€Ý1½ßvŽ&wO…²µìÅÙ›‹ŸÏR= Y8àâ<à¹Þ®Á«)À| H+É%)!îÕW­n(ïr¢?¤âИ¾Ûâ3¢£anlÛwY½wTƒØÉê¦Ñí¡®ò )3ÓŸð- ¼6݃sÜ× Uf 8ïíê¾ÌiØì$ø£Á£øev½Èz ΣVf‘Z>ó#ÇÊÈgI4Àâm±àM¡Xć] ½+GÄLHßñ|Zƒ¡ì$=[„;žxè?ðü ¤ÍZUÛé4'Æ›t{vFÊ$ž{ÔJ7™.Ým~ƒ½-äkÛÝiƒ³‚ººi `ß8;ÝZx;ˆoÉÏ g\ ÐÚêE?G àoðóÄ1³ õ;½UH ‘uÂY"ZÝ--˜3³M°âîžÀ6ü g±;§„ß;Ë,JlóKÆj–M8`³ »˜MÈb³‰ˆV›–†rÝfMqe6ì«\7Gäuf•Ràã¢ôt!CkÁN?| ı:;¹*&eäø'‰¨ª.¡½ÙÙŽºYÚjêQ• }ßvÔ Jn 6ú?}ÑPÙX”Å¥¹ Æš Ö7‚j~žl‡CS :»»Ì²H˜b­~Œ“g’÷’LXÇx§÷6ˆfÆ£Ànn‚~fLBI€&’Û°·mÒ½uEVCøAÇ´œ¹GàA㸕=v§nËôê©ÆLO ømêcÓ¡º´«ºuÃÃ60?I`–'þ©òŽmÉx”èú¼ÀòõäºIÉxÍ×­í¯, =ÚØX˜à,ëë"#·ð!¼ B¸)2 &"ÌÜÓá[“V€Ô¦j…ƒá3}0á̤©º]j‡í¦¼°MÜ-•gŽ§œknÛ‚œì`):¤‚ýÔºìr§Û1_á4Ë׃n0nç1¹ƒÝªBÙ˜ígÀMÀƼ.Ëö<«{u¾5‚\t•ÅßžZX>W/Íó‡/gëêÚ1½Ž {¢ïã°ZL7ª`µd*Š±ú¾ˆ†HžÇ3xüÿÐx‹[9ì&œÿ9à8%­Ý1#ç§cêž»gèÉ­ƒ‹PÁЃ²Ñ, <Ìôá;⩤Ó¶3˜Ä›’Æ» ú0•¥ &“ÑoìYEJŸ€YóÜ áD4y:ÎÀŽ¸>Ð'‡µ¥ ®h—êk&ÔP‚\¾ÿçÅR} ]Îëã宫ºq€}³| ûƒÏÜÅåqeÅðXån5‡ï_î¹ÿH|¦ÌMÛcöàû:Ò9^FÑpŽ—QL‹€´áæ>Æų¸‘Ù ÒrC´ÚJJ©i >ëýf¬ê[bs ŠòOo‘*ñðú¯ëtÎèZìeEdšv.Ú³8 Krˆj–ÍÐ{¼£]:êÂ9–% 9õÅÙÅÅÒ BàÃQuÀ§#MeÍ· 0‚jöè|?S_©A}ì–4ª_tÊñ°Ö-«/”Ï‚ÄŸ«¿t^0ˆ†4î$Ñæ¢Z{Ö  5;KØÖeI÷¢ Â·K:Ñggßÿtö¥<˜ž/ÈÙ(á3Ívövq%0§fw9t®»sœebLϳïþq¿bttWTl. ¤·žfbÀøÈR>.Ú泄‡óáǯ¡Ì»Ÿž.eˆ¿³÷Ër槻ûµ¹xõ5lúåÝ×°éÍÅÏ¿~ ›~y÷îË}” v‹[q΢8™éº8 àD&Sè‚Íôr(¸&›«!,n§¡dQðص~âÕµ“ÉØny7º¸Þ!:>¾Œ1ï05µã% | Ûœùp˜¯…;b¨-{_Í Û®ØÛ¢ÕLôˆ#¡+ Íðåêp¬‰¼l"ðþê “ äÃ2«£+‹<ð¤ŠDE|¨HTd_m£É[~ìh¢3•ám±JÏg-Ð]d.oЛ9œ^5QLmj6[úµ9ŠËw¼(áO÷€·Çó*$IÆ ͺBKÕ»©cü ð^Ýë|Á€—sñâWB§¾ÂËΟãë•?\W, +©‰eÃ]Ù1jÆkrü‚ªzo2~“ãi×ýj-!ì“O$úäCŽé¾è˜UAmÒ'Q^·É‹ù¤D7E´””†B¯ ¨”x_ÐI„ Ãùb}¬véý%¤Õ˾¹«Iý†5¤ÛÇl`&„Òû{•ØU6Úö6mºÞäP1®$çÊb ã EãÀžÐ “‘6`2}Z‘ “¤>qÚ^ýnØÍëö4é ]Ù̆¯ðÎl†4#rî0ð€pPd÷]!Î.KíÖPêOÃ+ø ÇÞ âCº?þ§~â‹Zw£ÍcÀ§†\ƒ‚[ŠA(hG„r§X¤AP¦ÐCÌ¥ž¼Ö“C÷ZÂzÓ&ÁßìEôÉûyXs¸°X³ÉœBáîàÚ‹Ëgÿ4b4% endstream endobj 4228 0 obj << /Length 3015 /Filter /FlateDecode >> stream xÚ­YéoÛÈÿž¿BÈ—•Cï-vãb=€Æm?l ”"GÖ ©rH{•¿¾ï2íMŒ…kæÍýŽß;èoî7þæÏoþx÷æÝmlr/OT²¹;lß÷Â(Ù¤Aà%a¾¹«6?o»Sá ¹ùÏÝOïnãt6=Ì/ÍsØŒ&†~Š“Þø²¿û}w†³U»0ÍhÙN¥@ yñ¾ï‹¯ŽJ/Ï”;©=÷¦mŠúf§ûpÄ[]öm‡ý`Û˜nšÊ”Ú2±o™hϺ4‡ æ&Ø–Gî•­>ܨxûÉ÷UitÓ[^ÂKد¬‡J»ÍeߣÚScö7ÊßWÝó8æ+÷Úö01öùzð{j+ÝpkëÝìBØáOEÃ#Em[níµPøÇöiî¹ ·b~ÁŸ—m:d7ÿñ„åA’yY;öÝwúü³•ò¢ q³À×8ÞÊ%?j¹ÒÐ}ajûwµÕRØ ŽV@Ú l*Ì(^'ìPå ac¹†3a#%†¿£°q%Mô²¨57ׄ>nAû–5èÉû2r_ó\ XL waÝß›úÂÄNÃñpèþ+QŒ)04ê¶,ðÍ;¹§Ó–Ú¾RÂÐ… úbP¯Bn›á¤;Sr‡QÈ X1ã€<ñ:d%Ø(Ní€ïÅ6‰~?ù±ßikª¡¨¡ð>GÝ뮽×6½ìB¼ÇMÖ8ßMÕžvÀ—Pm‰“ð{2¿¾T;–ò4ÇÊ2”›xÓØ^•,?ð/ÈÎœ@dsÐ7=Þ…àGÛZ}d‡ƒ;ÐêÆšÞpñÞó‹&¢üÀÆ‹%\J:[{÷Þ÷ØMd# ŸQ뀕€0Ð+5Ô½,.Ü/ÿ†¦D1ap† ;˜#¼ò/GÛþä‡ÏJ7 ï4ÌpRìEY¸ ½$+«ð¼(,Ÿ&9Ö¤jûã/44¤h[º’2`Âà¤7È$SÏÏò+sZ{Cà{i–ÿO€éÉâ FŒVä®+1Ì®=‰5Åðª¢/^¶9ô¥*ˆ–F÷ »}kõ×Û]ÝÞ›’Ì.Ó‚ßÉ´Ò`Mí:i‡þ<ô2ëØuÅmô#8Í©ã‡ÑôF6>Êø,4 4Î2lTf¬3¢8!í{ô§ì¡RmaX²­À¹ P^$ÄÈk’ÈÒQÁæÁè§nßÿåㇹ©ÈËýtRÒ;K®.›šC·Æ|‡‚å1>¬ow_®Ãóè,ŒBðj9éLäo©¹¸–pQC˜ÄntRQ8Ãê~5¥D‡§²1(µÜEâs Œ³ç²`´Aœ`‹Ó¹{ q)Pn’e¹m$~DDß ôÚ|F‚æçÓ§._4 ] ²ùhà€‹°* Ž)€¨GÌg("€Ä}ouÇ8_ñŒ¹â 1C¢l± õÁL–èô ]•¯¼@e*/k%¬ ôÂh 8çèÉG€)LGåšÓxQÇiId ùHÃe³`?£ÝÞAÒÓÛ'Ð Ç ÷aõòÊKýpíòè‹@£~“ÚÚ «WðÐ÷â—OÍ©h'3P³€ÕhØSmÝxÄÁÝ®k;á†K˜…*ô‚‘…—þ7_}¶í¹EÖá»H3µ‡ÞšÚ#™4G–­p!˼جիÜO½<Ÿá~”æäÔ¾ºD—„žŠG¶j¬ü”/…¡õ“àÉmâëHøº½ð„œq6›H®³lŠ?³})ŽWÕ€öÈO6!ˆî/aˆÜ'NÝ'G÷IC(x²2ì°¢Àœ++£mçVv…2+b¦òia]èæo;œNEwqõTÀn€Õ’C¥1*‘]ßב6‹tDoÌYç5g?ô˜ýÐ(†¾ÅÈd‰Õœ‹®Ë¡Æl’ºã&ó û¤ÙwhÙJÙx”ÐGŽË¢ŽÃWáX¤:!RàÎ$ßUhüä‰Ö¥Ö­ ÉG¼(MÎ0]ËÆâ`çG4VZtDzÊu’øM¶–'Ù7Ø”DOmIù˜IÚ²3{ÒV?w¹-Ž,ÔúNía©=&µ÷jS8År9“›žJÃ@GŸªDœÅF¹‡j)EöJ îÇcѳÀ‘sïÑ¿¨†K¨YÕž½u™¥Ðï$¹ ‚¹[÷§Qæ%éˆQNV¾ 2¦Ñ3Nuq§`¼Õ¨ü³ÄK¢«ò ÆF‹\yªÄik:gå ™ “aýwcr,"Á¢:?Á{æ³Õ"q…D¯äÇ¿’ñüKb/¥<ñ,åÁÒÚ < VgðKvÊ%cù/àJ“4øÄzpùŠè®ÜM¤PS®Ž/ªà¸V !>êZ*ŽLá*õTK_–ÙÎaÀ©OÇ'Ð|ËV…t,·ù³šÔØ](NæBšnεžVòW3îSÜ€¡¥Œ/3¦íuÿ¨µýL%ÓAYë>ÜŒWļߎºF`P-+/\áYú™Q Ö@ª¿X]^„°…¶)•xašM¶Öô.`J˜nwç¢ü\Ü¿\G½l º>ó}ΰŽK¦ø “Á2oÁM²Dr½ab³Ù‘²°·|ÊœsÉœóx²cL?ñ-¸¸Àlʹ—<~4ãúNîžeUÅݹ¤ØXòXóX½œ^Kðî+±bâ©IP_±Í¤1~FËkxYÏ–Å)¤/c€É¦Ž•«Ì0¾+ðOÏL3/›0˜P§#ªà/Wë§È1¯¥ n}w*ÐÐ.F*h®Šyl«ß¿ýðá-™ýÚã#È(·“¨]äƒ[ ®ÜÚGÝ÷ëi xh•Ì­½ýðvå@`[¦fŸ‡à¡ˆb~Ìß ¯˜¬ N“ùì_økáÄfüØ÷,›ñ°lö)·ZÿJ=n²ZO†c¨(ÊW¥~el9n"™³,ty“|A"ƒ=î.ÅeþZ‘å^BõºyÄÏÙ’¢ïݹÓ}áÒùæãS¸`5“"yBXP<›^ö»]Kb C;4½|¿‚A©ôË›(ɶÿ¾ÉÀi›û#’òÕ¼Ú»ZÆuEÌ:£ñ{‹Õ»9^ðŒGÚÛy¤L1’À¡µ¿ðï¬(Œ—ã¼\ö™W§M¹Ã oÆþ ³zœäg£Ûye|¸{ó¼}h! endstream endobj 4235 0 obj << /Length 2938 /Filter /FlateDecode >> stream xÚµZ[sÔÈ~çW¸ö•+LÓÝ’ZR(¸˜e Þe±CR•M²${$¯¤œ‡üöœÓç´nÖ BÍC_Ô·óõ¹÷È£«#yôÓ½§ç÷¾££D$F›£óË#%¥ðs)%ŒŸçGÿð|ÿóüÕÃFM†ú±RÇ°ÔV©Ø×%¼'yý‡/|2c㇡ˆut´Ñtú4ñcQ^mûŽv˜Æ„ŒŒÛ mUì]í«¢îÅñÆ—ÊûkM“‹üx£µòŠ®/«´/›ÛÚËÒš>\Ô±ïÜЋ[ê銾/ë+Ú}vZ­0Z¹íÝN_¡ÇS‚%¢ ÷îØH¯,²m‘îݤ‚×NwâsnÆZªð»²ÃÙõPF ?^e´Siz(èŸÍQ¦ÔÑUénÇÕ´ºÙ›®ü7¯™5m ʘl´å§ÀU,;|¤:u™]3S²¦±h² ©ï*Hg¯¾FÎʼ¼Þ¼jêëÊÚ‘uy²£¨yŸ ž1*‰ðb¬GßU”N)Tå/ª²B…J•~*«}EP£€Ò]¹mšœú¦ªšV¦Ò6¿¥æ}*ηMuÓ5H·”)«W£èŽ^ÅÃo˜¯Ö«ß‚ÒÛ“uœ 8†*šã¤"Æ *-àЖ™õ°=â;¸Aß70îˆÛR¿ÒCÀ|ß2Š5D s’DGšI`y°ï$>'O¿F|Šê¦´œ{ø4½ýŒU:…RN¥§EK°¢/x{G ®ÖB…ßU¬Þœ+RfÜbs TÞX÷uzóœXðV¡wF;BÚ‡ÔuŸ š„¼LjˆDà©; #$¸úÄ@ÙÃͤìKìÓ· ôÓÉ/¿­ŠU,9«À‰U Œ‡>f›îÀ¸äôå· D} He4b~¿ãÚá˜ûôí/iF ãD+c«w±@Ñafõ ætMýë|Oëôæôô€]×&:,_U‘£¼¯/Ê”"Kè¼Ëtn]¹Z­‘Iùáÿ^ä“UŠ#_ÄF/%pŒÜ¥;Ü,¹gð••òìªþa,›ðQþCÑìFÅÂø³è‚oAŽŒõ¢ÀöåE—µå »JÐo㫈Ù;æñZ4áv«cŒ9 šƒ.ûQ8®ç¬Lè^GWÊN‰‰\çT™Š Î'´ÒRÎ[£¤ÙŠ;˃6K¹aÉdØ»c¥@!µ°çuI£¬vò54 wP3›¶Tkãòádœ=?.FàRgs4o¦ìf #E§‰LàýÒôÈ`}f`¨±Ç.MaçT IJ«àt×5ÔÆngÙPj·‚òÞ» NëŒÍÀS‚¨¾îëþHífõJÞsäÆdNæ8¨¶ì`q¢¤ý¹tL¬í»Õ´EÉ–ÒúîÙ¡=Œx¹žF†Ëåžýú¿—ëùœxR]Aõ~‹p[nêØ7òU(TÍ£Âhç¾%zéÏc×ÔCÓn‘ P%z¸Q¬ ½§ì­Ð¶nöüžgËÿ89ËÊÕN]%Àœ«düyP&C´¬ßÃÉn©U‚\öãt—7â0X3 Ë¥×õ!ãtÔà[ÈCa/h錋ԣ…†ÖQ8×Ð8bz”ˆ©„2ͧñѦ¹ÜT ¦ÊºÕØC°AïÚ™§:1²q[´â: uJ†´Å{¸)›ÿuxäu7EVbr1s `ètš~L˜Fä» Ó^žPɘEÞó×KÀÚU¾ù×¾cmg€Y¹ëÈÂBQ½U”©µª‘t(h°)ý€ìQ´NÒl°oIÄ! ¦†ïLÎ U &ºÁL£…v·¬[Ã0ô^”µåSz<á€ôz›BNÖ\›d‘ÆL,&P‰‡óðü‰r˜‰ó•’U·(aØ¡2çPè8ì‹eR»ÿœ•æ §s1uÚsÌ x÷Å,ÒVКØŒ:O&z°Y7¼(iF»`ÉÁ¸Œ>áªGëte;8ú¾ kŠÆ6žb²ÊÚUúÝ<Ì;rµi‹~ íòãbÞÂÝ—º™ó·>¯µ•„½©Ø«š–{P÷¶ƒhÄœã‡6ÇeíÀSÉ©·ä¯©[‡nz>”Ü·žÅ×çu°I0qí•Hkz#JŒ÷„vèàbwËó“Ó¤*³ˆÔˆ&?"š ¼šp ²4>ù™>镶ÁQ©Ã"eÖìöUÍ* Ú´HÖ»ïö‚¡Üõè K¢š>µ~fôâ¯×wp–Ýw«‰.oIGúNGÚ-[î­i66ã€Pö‘Íx§û[{-.S®}ycqÇpÆè(¶üaÐÍ$Ü>½¾Á•_¸Ðµäòæ¦mn@åõ“¥w4—∶üDMD½Æ%n‰ã+ÐßW`÷ªé›¢í¬Î^YÏšÏ]ÃìÝ„™Á¡AªN#Ûð`"",$  < >pçtÔH¹„ÛB`m—«Œg›ƒÉ¸ØY3$)?\ˆ+‡Ó\ÐT$”œ šÕù!ñ¢¬s\¾(VPÕcÕw¹¯å{2ÐDƒ|¢*„pð£¥àî90k)Âxñ¼†›®- UŽ+ß]ÎLŸñ¼_° åpê| %Hõ$MùB'ËÙ$}†µ 1«ýØY£Ø«ÓŠü„Ø £ï¤;–—]œ8ÆÚ‚‡M¯~9k+'¾ÁÙs—È(ñ}"+n8ñRòõ§yî²îiyÌ}4Cn$’ÅQ²dƒAÂ÷b‰Ÿ×Ü×pžnUË+ÐòƒÐ G9üЈh.\ b„Šõây{KÕéÜ3r~Œ(@ÓIÈÊŒ†e¶ßÍó´Í9³?µ˜`¡êÛ;y@MS'Õ~—.23Ë¿7Ä£²ènë>ýD»[°á8¬È¹Ó"½yPÎA`¼Ÿk÷ÑÞ|Ï#r&ñÀóx Ž¯ü +ˆªÏE¦nñH!V·mö»œêÖZ&öoTqÿNH8(ÂÐŽ @Ó•Ä`Ðt€Ñ·K*™fúºÆ;Ä-6צ¼º’ßÃ?*§ÏjHØG}fbB6ù+ÚËŽúÓ¨8—kš$ë ÕÔ6 Ä"€;¶NíÓŸMO)ß»iv·uSAøñ°ÃÈQÃHÑVn™é{$—›iè î—ü (‹´+m`‹™V’ïOúãXø„Kr­Zˆåà÷1oƨ(jðòo‘$Þ߶֗‚O3Ÿ%¦¿°Ärê,Ž ýä9Æòçh”оùÏqÀ)cÛÈóô„‘ˆVôÕLÔ]yr~ï¿’i®® endstream endobj 4242 0 obj << /Length 3346 /Filter /FlateDecode >> stream xÚ­ÙŽÜÆñ]_1ÐK8ˆ¦Evót Ùˆ"90Œ8 äÁ.ÉÙ¡4CnxHÞ<äÛSWóÚž]Ùæ}TWWWU×Õãïîvþî//¾½yñú]ì2•Å:ÞÝwï+Æ»$Tl²ÝM¹ûÙë.¹›zÿÏ›ï_¿‹’¸Éb•d #@ãgôÂü»ƒIeéî Xd,ïöAêÝ—ªöÄ^Ýã7ò껦íªRA/˼M?Tyù zZ{éà¦8}Ý6¯«=¬ùUzŒ¡=2@Êf¨º¢º_í{EÛ ]{>W%ƒÝ>lÖõ÷UQÿâû àLpžð$‹">ñí.ã9ßL˜y¿ø‘_©;õŠYdÌ‚EQª2ctiKÜ?ò½7üù/|þü‘?lôvÀ8ĘH…©Ý¬íäÀ’äYz¾’jøpT³êò¡ízî?Ç88O~çôŵýÌO€ƒÑ±ÒÙZ˜`Rq löÛ¯Ý+n~®‰_.¦ÂFq²ä*T™÷axÀ;càE>p«Èû Pš(»Â ÔWAº67ÕFé4pswA»K_¶ð؉ùÒ05•L£m?°YÐ!X¬ç´ûOéŠËïöpßjYµòÐ'/°Ä²ô4 v_­üœýOâO|<ƒòuȤÿxiêÛ½ö½Qh¹ÙgÚ«úa}‚&õýÆÁgkÌRÆù9A Ä‹ŠF܉ό$SŒµ'AÖ3\»" &ZD€äçó?7‹–-$²¦¨ñ–ʶ½oʱˆkˆ”´ Xt—C‚É"Æ¡K1B/Ìñæ]/3(²Öpå+ Dd ˆFÚi³5WáÍ0ÞAÑ´N²êÞ Æåñb>áOE×±AøQ…Ûéµdp†%“&vgù@Ã)wí¼DÅz2ƒÄ–·püPÞÛ³SbÀƒ&jÜ“½çùa|¥3¥b°ÓL 64.y3µÜ›všÙS ¨¬Ù1Â(©à<›]9bÆѬ¶<ÊÄê§×Œš1¾ÊÒÉ=݃˒&*Õ+O÷¯ÛjÈç=%|IUêÇ[ÖôÃD®Ë€ÄV«J ³¶H½÷LP²œ˜”ƒ·LAL;©0«â3Xº ;T!; 1$Á2ÒŸd²ùhA(0þb¿r€õnÊ, ŒŠç@O¼^¢ÁàkËét„fIñŒS{¸µP€ròž/§ª«§4"ËèÿtÌä·rƒ:­Cv¥nµ¿¯DúVóÝ ?ëËm5ëMUÎAïA›X™d£•³»21Å›V”bÅÞ—z89îJª XíMÊk^…W0Si`–Ҿѽ×Ö¹x3ë®ä&‡ÏÐ8¶cDPÛyv@pìÚ‹Å ¨¬ECTLXÍÑ8#hÌfù@¬’éMº6Òø’ÿQƒ."¶è¦¹ ØÂþS··ÃÖ£poƒÓZ|Ã\°¸Éœ96”ñjýäð|ÃiS—¥&Zœš MhslœääÄ2“WÀñiµkOè6ã嶢Є†í>A·t4[zÍelèˆA•ËDGÿ͹ó•;µÊ ¦C‰eN|°+ÉÚK,b"‰|9ƒŸJwÆqÜü ù5=„ñ“ ¸ëªûU¸ ˆµÒ³AøR““†MéÂBì;öxÀ]eøöUÞ'né’bˆl×9XÃMÎ)(⑃žåƒEÄ7ÄX~c8ãGÞÍI¨XIJ8 4ò‘/[Ç9E.1³ÄK÷–q>þßV|+™§Ùþà/¸Öµg8Ì԰шQÎç™óEèËû‡ËýÐu!áFLzG¤ŸêCÿï‘­ôË9Ã<8€ÑÙ®Nñ¹Òsî{q)dfwªy”ddAWl` WL‚p“jÚ¢À•hÛŒÏ9å2b "2ÏP‘Ä3 °‚.›¯­51rkyn>Œ¹L.-šÜ ÃMi—.ð¡®âÐ r¬‡ûfz¶ŒFwÊ9ý)ß­ü`[ùéFɾ¤Ôc»6Câ;Aé›ÃA`úFÔ®¿ d.ËliÉŸÜå×frRÀü.ª»¶Cíú-9[6¯&­˜0@Ì<%hÜŠD·çJ²){ˆÙ¤/‘¤/ö FA.èZ$I!¤JŸËð5X†èZ ÄA@¦I”Ý÷©ê¸3•st QlËÐÊïï»öN>`6C éN9^.¢:?ö²Øܲ7üc¸†Ñ!ÿp`á¬#qÖð=× ØansB­\õÇM5 y¸«UÇí²+N<€äc¯XI‘Éw9Àµ‚¼ƒTÂæšÖ™›Så™6hïªy[2ËR×W:¶(Vq49Ñc^ ì¯ù¶ƒ]±r¬Ç±)Ø‚Ÿ32ƒ‡ö‚"âQ2O\`‹Äås°P2c­D&.ëuqÊ; ‰ìMà?-’ìp/î ³°9—éqº*òÑÎ"¡³Ë G‚}èKnÛ±I‰¶0}$ FfõQaímó‹ðz½ BŽF<Á>šIi–µÔ;¹V ߇¼8± øÂ(UÃëÒ].¾­Ä%bFþ{Œœ­NÙÂY#õ»¶A{ N¥»üƒá=‰rþ#ø-åý|sq<”ʱ«éy’“ C5*2Ô%ñÔ\IŒ¤Œó’R™¹ØÁNˆÏ‘†3À¶bOC«3 xFÏ®Ú<;ª^þ(”,·9zÐäZ%G"ðé %ïd²Mewò8&¡Š/ˆòTŸ«(ÃM•g¤ hÄó=EÁ"rÊAyØW’bå·ò$ƒÄÞß÷ÞJ¦–Ë¢üü¨T$)'‰¤°°˜»ªô‘Šæ‡+<å›—ÃK盤šë:²K-¸ƒÓ~½ìlNK„©ãZá8¡Ætd›6º#ÔÞ–t«IQÊšdF ;™›D•Š¨RƒC0}-PM1œØðI@ÂeV¿|}šÀ{0…»÷n'*Jµ;Ú¤Š_ l_Ùp QA¸)ì[åN¬r'Ѷ8=)wÙ‚)Œ«ìy,—‘w.^Áü5^Ad“Ñ3át8sz9[ó ¥ŸfxšEÏ3<ÍÓ OÂÄÍðDž¿S&'2‰À7€oCõÆ׃*ù¡^ûú9¥Ð™µµØh²aÙœ]`›¨‚/H¯ÆX çî"€¥ÞYÞäçJ ¸çbºNŒ ýèi†efRᯥ”ß{8¿1ñó÷›E9}‘éu½(𸜤¥ô£¥~¤Á©C(ÐÈÛõ!7ÿËaUwi;z¤ Ð TË@¦)hq°6ŸšSèâ\C•'\¢Ò$¶|›§Æ*Ùfhùˆ´µ~GáF«xÆΔœ>õ”„*YÞŠ(ÀcƶèBè n[rßç°Äô>˜r¢dY¶Xü÷º¬?ñ,¿1Bãû¶ùt¡ äH@ƒì¦5‘4Þ_ˆ¹øôi¢L¶IÒN§Dò#–¹’•X¼F2Î/V8M¨3õ0ÏÇûÓÍ/ÚÙUòC©æj/ŽâÓõ-BAu`Ätlg€²8|"[ ‰aÊÚãX’Bf$Ú:JÍé/ Â(À+•!†•çÝc[©%‹à{pzŽG*5„É j­‚3Œu^´Dê -·ó¢hG¢:T9ÃãO°VQ@ðžÃ|àJ––îó4¨ÐeFo'q¸¬'aôTÁ5o®ç¿»ª Ѧ°T¯ðB³ááÀ#2åòd½@ÈŠ²ê ˜®~1ä¯Ñ<ê×õ¼p÷3-±o)óÿ¸æøÆ{W7”"ñKŸ1¾T|©QàFî Î\W|ó2/Omá4 D(ñ2’ }ö&™"9ù·¤Øùèžá5#ZþŒ€_Qxm2O8,È9^bYƒ$¿ÕÓ(, Y !xm-E‡Rì íÿÌÂh™À°½(8Ã1 w§°¹ã9 2&n×Æ[‘;}¯PŽ+:KÄ ºÝ4ý ó½±Yl‘ø%Iœ“è|ŸŸzûÿŒj°µ;%ÿ_Ñ~H³¯,c¡Iâï­Ë­ÿPAvƒ *BÙO«ûŠ£ï+Ê\Á(ÉõüƹëŸo^üBÁÄÙ endstream endobj 4246 0 obj << /Length 3242 /Filter /FlateDecode >> stream xÚÍZK“Û¸¾ûW¨æKe‹K U‚ÏBnÖøZEQH³XK•Š~ünõɲËÛŽJ·uC…÷a6y[ìY eµfyŸwySßåU^tŸH°h険zŸuÅ6+Kþ´Íš¦ÈwôRXņ¿v÷9ëÞÛ{¶þb+çû¼z„½_‹Ô‘ÔS>¬d´Ìš"Û%‰&0l¿sª¨7mÞ|X‰hIá–ù-þx›o;’h‹ÏyË ‰Àl뽫-øYfÍJ$Ë»¼q:²Š¾<®D?•¬aúsTûñ4‘n½Üd­3£®|#Ûf0:Eu·ZK•w+³²®rðôb¬j‹»ªx†r›UUÑHHp¨öpwGÛúûÌI D(Ð5‡œªhÚo ¬Ò†EÜ<ðúe•×‡–Mûñ>¯¨}ôGç°øNmiƒµ-;« ïír~,µóc+ÖbÇ+u(#g+ÂE¤F%ƒÇ®E S6ûǯãÀ¨ÅHf=j™íw,AÕS†ˆ£åKr^KÐ0R15ç¼?Ö½÷Cqð~¬·. ç+±|=f_ Î|j&¾¾³¯ãsðux«j+©–Ùv[ªÎ5„}ö ¸e´Ø1Zl&c†!Ưdq/žÐó7þc2ˬ¬e 1žeðaÃ*g³ ¿ð,ƒbÍÿöóÊÓ‰ãY…n–ãÊ(¾Ä#OÖ¤ ´à°õ¶ÞfÈéë@<È©±ï±›í+›¡):cíÏï,0‰é#¾a8©¨:+ÛšJ㨚³ÞŒèr܉Èu" ûN@ñ'ë#Ïya1FΉŸxÖb±àï œDhEUÀ ÇüœûÚù"Ü|ùä¡h$ID­Iª ©dÂÐa¢#™×¾LD¢_Ÿ¼…&!3ÒÁšsª-ôi‹5Öö£-µëË+• OC:Ðq:Ööу4•jJc}2Hép¢ê·é—üíú%¿F¿^­Ö"…}ÄËWÇM $Ê8ñSíÉcœæ½›õÀRàI¡(0?MåÄ%'êT RµX‡ÐTrœ>ð´z¬qŒ@h°j¬ðI^‹L¨žšÞQ)qÕÞx™$Ö^&™©„ëú–÷±Ld¦þª }Ž±Þ‡*|’´þzŒM„©ü, }­$Aõ|KÎ =sþ?ÁåÄlꎻ°ï^ÇAd̹QK LNíöÙvíC<1zdœ†àì?a‰!}-d¿ØÛÓ@¢ïœwó#×» °£vÖ"‚¹¡&0s¸±²†¤Ð¶+>8`—£GÄ®¼Ä®HEç€ÕQâÝ&Q2¢Sul] »=õ«Äî‹”]»?ûyI]ã’'b·¾¤_òÚ~ˆÝæ’n©ß,t˯º=Ã?éÝ1N¿x© ÒP^º/„óoè6_ ð[Ïvt-“8Æ’ˆTÊå*òÆ›k1Ô=>±ôˆ®Z¡ž˜PÑ„sûáÞ }‹½Ö€½‰ƒ3ºh%¤&xÎòC"<)­•r" ”X(v×ïv÷–Ê©«DQÔû¨3LMà¿„‘ŒEtÚ0^ŠŒ¤ú-æØ*Lw”Î0N BiŸ}¢ÂÆös\ef+V®žõvØÜ7Z2˜%±˜m¥)ß#Ž¶ÝP ­­@Í_ú½6ŠcØ*ó®ãÄÍ<>¨&d:ClÍqÀÃ3ÛCDqúæÒƒù4®%SÄ_` 4rÎ<=ê›ã>ïòªî¸³ ¢Üe%ÕU‡ý†a‚rðtÉÞÖ”ã³Ùß"¯ºÖ¥ÌÿÄL³Ž”s’8òogêlêù´H—7Ûü¡ók;þÒö¢£Ê§0`AVí¼I_ÐÐÏœ¯—.Šì‘Ï „ Œ}¯‹§‰(‘)Q:"¢ÉŽ‰HqI ¹¢9÷;~ñL $ad§D|Î,­$M –¢œ£uNCŒ—æT–x V…È DMðBÔd(ñ+Q“¡ì'V5AEŸ6ƒJK¼P7O›JIÛÿÝ£D™1O0Ò2fV2Ù+„‰8Ë@xœ©¿î)I1Eû›ø(h­ŒT:;Në©Èñ»-0¥j "døtiäÔËC¶ÞRNª†&ŸØoå ZÕTä4å¨(g¼¾jƒ0§œ£MXÀ¾š„Q3°Þö ¸y®P”ÅÆoÖY¡Âf³ë°øS‘Ñ—~C·fI«+€¤õØ-eêÞÿøää°Ï­ãƒ’ŒÍÙåí¶)6Nw¶©1S & tô<¸ ^úlQÀC˜´¶Øïkzü§O ÆLº½ï³½”¤ÒP¡|ëX]ž>xn´tç*æx¨"à oÄ xã€7ò ð&í1íYkŽ¼¹¦O oäY<5L¡fxjÚ3äÔPª@¦ñ²,ªŸ©d“û©;cÂ:(€*>œ¡“êÔV@Á’2ÌŒöÖÖVt“w¹=äLßk¨;ZÆ.Î/ÖlõdÇ8ÃÉ–é„çèd«ì‘™=ʼ+ÐK²sY¿žÏ‚È0,3&#ê´‚ÕFäº=úCïY“áÙó:x·'zðÜp«ºZWö¸ónˆu£3@§›¤¹Ã&‹DÞ ‚ÃíŠS2rêV‡jWo­?ç;NÓ(5õsÏÜ 5@ÙzÒë›"Kƒqã»=b‹žÁm -ào¬®¢§k‚Þ°Y<¸RñèPMõwPžŸûºÉÝ??ãéq^rNU™gìi"Ñ›ï[7/ó¶+önÑ ïM ¾ºoÝñf˜.߈]a vGÁþŽ…Ѫ]C¡ŸXç XŸñO¬7]VTÖIжÂ^ðù=Â\çÅ°túXì{: ï¡(îëzGC~p:ž°?ŠÓøóî¾Þ½¾ùþ­o,# ¼©ÇCmÓE\®µ]S¸SúÿÁ¨(„§çFýýß,Ná‡Óì*ÆuÈù¢a 9Ø|ÇѤÞW9ǾbxWoܦØô«" >¾1E‘ÂE«ºÚ¶ MWõ9׆vÆ”—9ÊÂ)of]çÛX©Ÿ dN( ây.)ŽxZ\Ó³?©Ç¾Ùbë‡ÈæbÔßq/ýi4ì~I6»~±†5¸ÝUBD wõ‡¬qÃsêÇÄæ»#øj eØpoþm/ÎØò-=·eÖ¶¨‚u?Q¶8<7|7ñæ%–n†¼þD9Þ°‚½;¥ù¤}f‘æPì£,ZþN„„À·Æ8‘ •„h]–°ƒªøGþŒ>·€ CðjvmrÒ# Èb¯ %Xæٹ˖¢aÒ/mx:99åÜñxÛ @pÖ:VVî`¢Í/·¬í€‚³† Ë›†.`øŒ9¶ú ËØ¥>€mÔÅÆ1·à ꀌÄí¯iÜÃUÆmë˜<ˆ6nhÄÃzH0\=jÛ"(7—«/É›s¾¥²àî$6Âk‡mO,^³¶¶ÇW_¾¤Ð©Ã:<<üŸwèýé×ó`æzË¡k¨â)žÁbà㉎>ÉW{Y—äóVŸJÙz|Kkî€òÕ©ïJ\ÝØ ŒÙ'_ü`«Jûí~è½i­‡TÓ#Þ®õ43Y»¥Ñ›7'×kÑy|‘òÍ»gÿþ—Ú endstream endobj 4270 0 obj << /Length 1659 /Filter /FlateDecode >> stream xÚÕY[oÛ6~ϯ0ò$1#ꮽ­C³f@µ °Ûh‰N¸J¢'RiÓ_¿Ã›,ÙŽc%u»!¦ÈCòœïÜv;óg?Ÿ½º9»¼Jð,Gy$³›Õ û> £d–bŒ’0ŸÝ”³?¼¶&¨kØü¯›_.¯ât@æ JóÓ„!ÆŠèÌ·ç»ßË«0ìZ„i¦·-‚&C³YP$IŒغ.MPžî6!IS’¶œ/‚Ø÷hÛòÖ ùÊüÊ;jׄd5‘Ô’’šwÓþéÇ~K+;RÁ›Ù;*iËoiC™|˜'±‡¶ØËeù[àùYl¸üx¼@MW/é– Bv%£Â|°¦¨ºÒ‰Áš-1ICªÁÄ&sóúeLœ®æA úAÁh#Å#Ö¼¤Õp#kn·ÈX°t-•&¦C^ŸJšƒèóºaËyà{¥—`vã“•ø-‘¼}†ŠÞ½>^ªÍÍà#’õxƆrå¼çdžðîõ3+x L¬y³1õâ^©…T}|oOß©tî{û»žŠûkzÙu®ÀÃÔFRÝpmÒ“†™Z†õˆ,Áž„¡(¼1 BóEˆ}稜]øCÙ¬U\›áûyƒEqâxY·oÉ Y*ÌSGÞ;JÍ[+oI%aÕ Æ)F~5üæ” ¿Ù9G~n@Ž9þß#ßÇ–üþ” ¿ß9EItŒ%§_ÇãoŽqˆâxËáfÄ›êáx¤+~Ë R¹ˆJ¤Ë«%LKWò|‚Äsç2ô¾:‚ WülÕ ÍΆ|z|ØWòæºbµ2\‚ÑQÔ[ÇýËøý¤Q õ‰Ká†1X1Ž=ZH¥á0Lt2R󼓯©¸€Ï8ÝÐoå5%H½®ìWbÝ¢e¤)ìî/ÍbŒQ ° - ƒÈcW‘Ù²ÏÓ5°b©,Ž7+¬¡W1•ˆÕè“wfdøT‹üvQ±sp7Z±;ÎK%R€ý+9ﵘz {?^ÿtav½²£ÈJS°X˜Q7„ùîšRY­»v&],Ŧ/iì`{aÌëô:!4¡­±ü”%“Œ7ÎIiEkU_n„Õçn. |¸xv¥lЄ˜Ÿ†£\^ŸkQÆ$عvæñåß`¸f—ñíÌÖR¹WTDˆ=þ‚sŒÒM,T {®ºÖJœ_œÛöÕŒÎuI»ë“8OJ{§³ªÈ]Ñoqª½f(ƒ#®xUqͧ¾o¯Ú툴6®ñíº²qñOÙqoK®05ÎýÃ!+ðǪ ÕúŽo[ír¯²Ç[£Âø™WP4‘×=ñ´ËütOúrOª©,îi'N¢ëåŸÁâáÞá8 UË©\XçqÙ~É;÷Õ(ŒJ z÷-Ëb«¥ýªø‚hÝdѺõú¿*–ÕØ=™Z$›j`QØ ´™²!@çüã^來^¦=±'¦^X éŽÞúlcŒÒR›Ÿay5ï%óÏ ß ŸÒßú5ν¼|øN//=íAlžñ*óá;¾Êœ¸”ƒã’! yd ;87°ò¿…ŽŒ—â‘—þqU•÷P)áÔl½18VnWI]+…©IéV•v¤œc–fÂZª’–š]!‚HGbkrlº`3ë÷Å?v¥Û‘}u’ûª§ë a¿/W]S(°¡£ƒÀ»^ ¤2l ]NyŠpÛrÒCw¼«”I¨‚?7£¥?‰¼[¦[‰Õ—ä|a‚ŒØOQî÷4¢«kÒìßà EYæ6¨¡ûK`J]¬“P†æU•ß÷zO¶zQ¨Ÿ¦¶p¶W[€¨‚ä³l‰ê",Oµ ]‹Lÿª«*³`ÀkEç´=@še㢾¥eWè<•ä}Ä„¡ªì!ß Þ3¡Ã+üB°¬í”ŽDðk5¯†£¾M£ƒqgæZÕ3¹S…´[ boR¦ ¯YJÂÇ£6ù£u°Õ”’†.~ÿ„¤ ±÷Û<ƒS• ù°¦öiÁ𫆺^QAÝ”öxך©}YK“ÚÍHHZG[/Y£JÑ¿d´Ôœš€Ô`i™áË…Õ°á~$r]æÞ ‚,°É¦Ñ1¦nù™÷+蹓Ävqj‹Ul2%Úðg90·#©ò$aÿÕ¤F¿@¸´{ú…Ù~DZ÷õÍÙ¿U›€ª endstream endobj 4304 0 obj << /Length 3700 /Filter /FlateDecode >> stream xÚµZY“Û¸~÷¯˜§,§Ê¢ €àQ)?Ø{rv³ëIå!›ªP$Ñæ1æ1³“_Ÿntƒ‡FÖHöîÃŒÀ }|Ý`pµ» ®¾{öúæÙ‹·:¾Jý4’ÑÕÍöJ¯Âè*ÂTzu³¹ú·§„¼þÏÍ/ÞFb6T%ÂdÙAm•ùC]àÀgÏÀÿÀO®Z|¤æ¯ßÁ’JÍæY©HÙ‰V2¢¢énM[ ½éúÅ„» C?QÒíÀ¿^©0õn®ãÀƒ»ë•Œ”—ÕjäMý[È©sC”¢îM{w-µ—•Ð9(?†Ý’ÒÅÔw³7—(‹…Ó.LWl´Ù³}Ãóó× ýXŒªÒv=ˆ+k7O.%¦¥VRªË¤,…/u8[t7uÚõI?FcØunu Ö‘gPSïÛ,G1œRî©—<"4oÅÿ SFÉ‚ÊË4õ^m6믈µ/ùX³ƪÀ«š±MámŠlW7x;È;¢¡5þÎGñ¨ÐëzkcÀ©V`BôX V0_d< £0;^Cnk~iæ†`¼uC–Þ_¢b*LüTŒ§XÔ[p|*NÂʽ´Š; a&“ÛPiDBê¨m†´íh³¾iÑ„Jy¥É0¼ÜáÛfÕÔðGc#'^’-¬Dp8¹†H(üdã–<_$Á’/ØѸ‹‹B²fžS£°ÍgÅÔ‘$Pði‹ŒÂµvº‘¡h‰°½†¹AÇá%"fhÖ ½Ð ·Úù ¤~89»â¤ãàøÂðÀñ©(õÁ,£í+ôâŽeGˆ²µ2ƒj²mdU3Ô=µ›-ý¢e9Ãe+ÅÙ£a5;S›¢p Ìî|ÓT/ªâw«e›8wX~kr‹ž`52㔹°¢ilE¿“¨Eš\(êDùbŠO ™mqÚû)в(i™Lå¤e¸²É­¦¬º<+y‹¤y„(8½hc.Õ¨£nÛ7wWlx+ËÓÇ /Á(C†È×BxgGtŠˆCk ÎàE;<¼™ ²¤Âdè”úÜ– *ràW1øž™ºüÊ$ñ9úå­Ýö“Ø-þ‚ÀJÂYD­IóÏÈ_º ûOYÏ `ÅAÈ.³õÚœáðÈcq!š !Ÿ­fMJrÊh¨æ3¬;#©@|YÛÂh©ŠÔ甚M]>PËZ¾0[ NÁ6ŒgÁý%¸(.¤’_=ʧOuÓV§‘$¹‰ÖÇ‘ìJ-œnZ%ÎjŽ¿ü£˜ehbÀ_ë püÐa×ÐéXz?׆:ÈF¡ÁÁ’Êò¼zv‰Û:©U ÐãˆWËŒÐP<‰/Á=-bÌ2uøÒú“&çôËÉÑÇÌ׶h†Ž,4lf½Kïsã“žÌ;ùTLt±0%ÒbL ¾,§œ·Ùå“_ùœÞÄs·)¹ÛKäjS+¤8á -#’=0K°js@AŠ¾µE‚8 lv«²øˆ¨Ë”žix•¬£þŒ—»k¶T;‹ÚQ7“Å«ÅàÓ²d£ý0QWÊ«¡–pÓ¬f£ÐšaîLI»bX.8t„AÆâr„B6ù3TŸ»ñÎË:Z=ƒ\ªÙ‘Ò£SZhº²4-øˆƒÆlûÇÂ?0Î4|d’³:ˆ.‘<¨J*W ÿÀQB"gùÙb‰Ñ;ÎòõÝSîA%~©#rQÒp-mÉù? ¿ •áÖk”’íŒ[*õº}ƒ¹/êu’’3j®²öZ$Þ®¨a=Á3v¶¦´ºÑí‹[WÃA¸ïµéï©àX³îÈYçÁ”¡Ï›Êp’Bé·¶æBuŸÒä½;†&NqÚ¦:˜ßßÖ¹’ʬò ¼RT©Ã2ÐNØì‘šuUeúöQ÷û"ßÓc•1’lħ› ÅIÜQ¿ÍBà÷vX—Eî²3|±ÈƤ=uI{Â󥋤=ýºÄ\öÇ'KÅ0>L¾´†žhRæ§Ö:’Ä3³Xˆ ™¸Ž) éeñE„‰Š1¾€¯À•çË…jØ´:1!èÄ„ +H±1×iA}(W.Š\,±•(«êðƒb‚5‚DZWU–Ž˜•]ÑMCÎç\B¸P£ÇÙç'suélj˜9íìší–ÀAüO& òhÇý>c~¥‚l…'›ß$¶_Ï'Å^Ú’Ž­-Q ÍÔE{n{‡x:A|ë~¿7uUPó/ôóms›Q¡%õd †ÁJ ƒiJªpk™øû_ª+æ¦ãÍtÅ®.l°Á*Í7‹:ž¥ÀXJ´Zy.êLa·DRW/°¤Ë–Rz´MØòÉsýT$‡5Sà;Ôšù† PU©(W]¶å=ÿD=sÙµaÎ2z´šÌs¸†A ûœž°?L?L­?#±ŒJ‰6n‡16 †±óóL nhºôèêKêW¶n÷Þ†¦±Þ6¯Ü=*µÍÀú¢°wÙyFÒãñˆ 4Ž¨…ðYò8*{% ð&^†Éɇ 3 (zœœñ"M|N½ýäC5”‡¡0´¶—­f.!L¬Ê¾ñÝ›E"Ò&¬†ˆ 0eaYcÖÛÏ–c,*c•ç³&öU=A`r”¦eôòëøb:ÃòŸAZò0³Û‰†I³û ¥$`¼6—è Âj-¦BÝé[*M©¿ ¤¢ý4¥s—7wO®}í*ÝÉt"µ7æ_¹$ï ­û3jP‹u6æŽÊù§°¬¤Å×®ôê‡oÏwv-¸îõŸ¸Æ(@wtÉý£Òò2øI¢òUtPf¸7Ånßw—@]ÊУùÔZÚ!øuGŽÚü©éÍÁ—"Ç…ˆÀ(…Խȿö… ±IĈ߿jïû7–¤½¿½ã¾÷?rƒgä}÷æ§_¨8§¨2¾E‚ç£ H]À©©sKúó%‹ØWÈÖlTÖ2+\à&júÍËh«-Ö-¡kÊBdä×+áÕxÉúœƒÀáœ!‰I…ÞßßñÍë¯o¸©Y@{óš~¢€çŠð*´(mÓ‹´-ôŠä,–ב¶ð!˜0¾û†QW¯DÚT)©«ŒJK¼6¤Ô ó8Œz4I$½·EgC ¶»¼i)Àb¥¯ÜÁS¿¯¸Tç²[è*¸”·ü†g*&Þ6®ØõYÛS.¿ˆ‘îã" 3 Y‰h|È£Ð]ÝR…Á½ði(òåÃ1†*|Ÿµw° Í¥'Ò8þ+54uÝÒþµ /¼÷YuÛ5õ4:r@^„Þë"o !Ú¡ìŸÓkœ,,˜òÈ=Zá ÓÁ|ìŤæúx¦ù»Gî )“]Ý£ÖÚ—ÀL͆£5qÿ†ñ±ž%usÑÄ™=RÜé2Ý~Eõn¾û=ffoäû¬Þ"ÚJ±Ö®s\@“þ ?zä籃УSõ”4#?†>/iÚ“P×U cVÕíÇ YMo'ó—?coTÍ6aÏ7È=x¼×pàˆìôYûäb~‘Aßsvpîlåbüðƒ@àÕŒ­Ó9ÃïI²ß‹jà ë¡Z;Ωâäææ¯^ðÛþÄÖì  ÔAÑŽ“â™YÌ `˜ÛBPºDš•¤–åUê-8¯šŽ§ÊÁwcNx?Ôè¿gù|³ÔM{÷³kǼz4×=)ûçð?Vy©þί[‘ú@¿`Ç=ç²héÇŒ¿3í‚ÎË›_ÿùæȹëÔãhž)Âät¯q3|¯D Y4Nü(ÒkY⮞® zžÓ­‚·æ¨>;›\Á~­ùx5Ø´ˆ’C™ßñoz Sn8õ5S¸ãvüFeqÒƒaò•È×Ñ#‰«c7€¦ŒŒ¤JecBf®˜À‚§{¶[܉Õ쬭_ —BB ÆžNU”ê¶i³¶(H‡ùÃQé©Z¦Ò¯°\z›‚kd­5 í)´à€Ñ"8 ±RʾoÊ ?Ó/ çpFö’J† £Ç1¤o’•~»[“Ûš”Õ<©"£®Dœ®%CìîÛ¦<¦ˆè𦃠¸>T–c‘ÖÎð÷óv§ ò³$Õ®ô²,ºO¨ÏéuÑ¿¼cIQù„%µ ¢˜@DûÌ¡ÊoÓƒä<ÚW‡WaÖç†RÁ©™[lI¯4õK8HEÙ#­wÃäBâ¹°c”±ÏÑQm‘´æ)²ÍüžzÃÔ¦ÒãÆtEK}jö•uºzÆYç8J9ƒ5OJ ­R%éüC„9ೇlJºP¢GA?÷Xd·-Øõ@_ôp„³a¥Š-’*G „¶Ô1–ö¿3@ë¦òÖ®mÉêÀw¹;0{ßà0›P#ä!ò‡¡º%(]YÛ ô•¨‹—3¼ÒÊ….2”—£|ÈK~g‡Ww{ž†h[Ã"ÇI¢(†çô±ÚÆä­Éºq}Þ£$ÑKßÜ<û?ßÝW endstream endobj 4313 0 obj << /Length 3611 /Filter /FlateDecode >> stream xÚ­ZYÜÆ~ׯXAÀ 44›7èÁ†$Ë‚'Ö"y°c€CöîtÄcÂ&µ^ÿúÔÕvƒ©¤å R?ŠDšw(¤°È½¿¾Ç9Š ¦r$‹¬o_ÿåoíhÚrì+}‹bã#r¯oXÒ oagðñC?€[ 3F*ðO¦:q[[~¼Ž 0Y!ðÈ°—•þüüf@aòÇoŸ}YΠCße»TMÐLP8âýÔU£é;ç¼ožnA˜Wë{\b95#J,Yå¸ÉšA×üRVÕ4”n\¾ÄÓÝÑ•~´L;öÍÞÇ~Çëóå1å§Õ#úßSÙ09ö;³%…Ÿ‡‰È_V'Óé?Ôýtl´¯Ïö—À“Âä\$"Õ” mQEâ„.v‡\gwHã!bQ 0:æ_K’ùY6û 1‚=‡ûyZ\Š&Ùß>Ê1í,jOÖ)ìs5^PÊJËcÇÉÊÌ6ª²9áÖ¦óÙíöØON4nã""ôY°“OheÃV†±£Ï[k¬ÕåPPŸPË®ˆ)|µHi,§ÐQíú]?OÔVL8.j>IƒHû•Z#Ñ”âÞ~'k„'JT‚Q«ÂÏâl‘õŸÚ²Æ]<œý—pg‘):«|-{ãkíLá|²0Ój»Y£ò,¨ýàDÕêÚ€gÉÂIšl%[mßL#~¦`¶ä¢L > õ’¹´ËP›G‹§†g_sxø¯«‘{Xó- ˜ý McÕ·Ž 䦭¹c‰›ãwû5p™ ×p1ŒúK>Me¾*.]šènîZÍ¢Š0àFáVT¢¦m‚…G$ŽšŸ«&Ë{‚7ÚÓž.( O—!\ÞËO8ÇEÀ[óœf3óJ ÓØæi$FY.O`ÌM_7à#ã0¦SÆ'2' 3÷ʵŸ˜µŽ~ôŽ:ðk¥Ï#¿xÇO FžçЉ972ô“ÑMÍdGc<Ü‚h·r5Ÿ–éîQ—ÜqG­lÁÕÀR¢H1¶‰8Ô jm u»·4 ’$ôÞö¸„G½,dÀŽá9Q×׊Cºµ‚éØy t0jÃ,óÓ<] ;Š¹Wv“úEåšü8n"?U\ö<…4†C]zÝËÌÓ;Ö,–„<ĹÊö N¡@Ó£­Q8Ð5={.+ ²ÉÀé¼ÁÍöÒÀƒå‰÷öà æ¼ýð¨XeÞÛ×Âzõ½ŒQ@$ÅÔ¢JôUþáæE ñ=/cР»ê0`ä%d”äÍñùœÄºPoЀBïøÄÏ&ÿ‘®*Š`="~1”˜,þ"ôt×O'¦GX(X³ðc? t¦®zê‘7ø¥ˆ­@¾³Òí$ŒþÌ|3 mTzíœØZ¶àmlŽÂ$Ù0g¤¨Iä::PSÏ}-„}æôãÉ :GS™]4™7| ’6e‹þuÌ-ùq]IaŒ¾Ó¢ðÐóJ,þ/ù'ZÓ}1Ð*@“q6c;J•wÄÓž å‘à&ðVN®VV2ÀW@Ì­@À«±{ð!Ê!ý™ÃÇ–‡Kýd®,/ý4[cÝ€@- ¯;; Ú­°\­U òƒ"ÞJ¨ü‹Ï`„·0Ȭ."çLDƒÖñH&ò$_p.KªìäèxŒo'´díáCujM=^(ÞFI]B…qÀ ”¢ÇçðYF·†µa§EéM·™žGtá²ã0PÚª(çxÁ»æ‰)3uv *Ã)\g‰ã_õW]÷íaÚ–ùm_ë†ÉÇ“–qK8¡§ß$Làèà›R\1xÜhet7ZÏ|ÍÕ”Ò@G/‚‹,çÀXj”AA~·:l¸w„lAª®¼Òš_9—ØîšpoBwýÈ£Û³® -\æíÝ€â'ñ@)Ê.00Õ„©`àò~iuÉV/¬T̨sduDïï·)¼èê4ËIËhxæa$Î÷¸È6÷‡hvñ 9cìØ`™ÇP{c˜]°`Z@Ö-¢Ë=0lM)^—»¢Ìû`jóñð®ï>¶”Æk}hðjÇr cZò³(E׋Œj˜j½ùLÞö1/¤æ+§õ?`Þ|íò¢¿—¬ÐÈšG²¤¦sÍ(_Ji^•qp‚%‹²ž4úm“¬´à(Ñåñ|êÇ\:“Ì2VÊûîžøàÒ;ˆð¥Œ@fã 4N¨+¼+ãA0ãoØ™vt.9GX|ry0§ÈˆÝŽz$OŬ|  (+Ëz.xå¹ÖùmÝóÓÊá>Ï¥åj3e¥lüsHਆ¯¦Ü‰ca@~]̓1ôšÎŒ_Ž½1èC’_f¹)jÉE÷‡N*“´+ªJ6¸ª¢?¹—ÒdÉvrYƒP©LJ‡úù@çe¸.@Áçc«Ö{©MÍZ‚섽ÔK¯ѱªÏ2Ú’ K/œô]%æ~YaësLlž¿xþêûç(ÙkÒ9BŽµSI“ØOÓ‹¤‘]K¾@‚~²ÌØÔ̳BB8ª<ŸÃÀ‡,ö§Aš!ðš†I1…`÷ÖÁúœ‹Ý±2æìÃñÙövÄØK£Y}?5<‡&`ZÓö‚ø4GÍ8Ÿ8Õ†P*¼< êŽS¯”ö5‰¹žÛWÇGsøOàâq÷À22E<$æD­æ¯ YÇû7/Ü"…ÈK»'éEÌóÝŽRrȲÓ–2R1[æ¾ÛP®”M¯¾gÆå&T(˜ëžD<Þ°voJ°ÇÎM ögí•Q8â(»Ñp-,òLâ¶Î׬©0Bø´Û:À]ðùÃR¶tE½Èž{k.nuåYȼ›Ù/~ ÊŽ¸a¿•Ï;úî^ºˆÇ] ¥æ¡B”t¿†Lçuå¶C6¼#Lª(ZFÎîbøš" Ú<œF¡ &wHŧå›&¤Éì¹ÕN¼ýbñf/?bÓì–¶¢|.벉Âjh‹Ø3FÄ¥Ï;›$4Í{#uˆgUåë¬((‡Z¤¦BXE‘m}Ãh°.²;ˆ¢[ÆDþ2&·“¿äè‰5ÇFs#Ü¥kNg¸OE«ârPù«+Ø¿¤}c Š9ÅÞ9ômJîó$1ÿ¿T$S¼_ý¬" OÝ&©Š\ª†sõ"”êVF~oŽ ÉÞ« ³M {m^ÌCÀ®\€]Å/ 3ïª@ÐQ§¹ŸÇáuy!JlË'F•¼úKœaT¬ò{èdÆ‹Î0YðènXó·åð$à´MºÇ]o­\È—ü›P‚ã›—eh‚.T}Û9|1†D*okW'PoOòÄÃß« Éue€î)ëÂR^ù<`o]4N‘ ÄXe/ÿà …¤«B1Y8$á(¢Á5óSn¬¢ÙV°àã #öœð<Æòz¼Æ# ©tPŽ{cÈ|å8€an†áô4\eˆ‰”8`Ë™ZîñöÒR6„0•«HLãùÑ Ïï4¦¬øêRy{2gæàÔ$W1¥20HF—®lvIã+‘#iš%> qWd€*î\ƒ»>Û½…™Æžbé%¹XA€€5Ÿƒ®'þHæ~©’Í¥ $EÄëoX¢ô5I©ã“¯•ðοẺ¤º¼žáÝT®`.5º½„0Ë]RzMc]ƒfÂ)@I€T¬À>J3,É7s?(!‚Ÿzèp€” ; zjí¤kB´±÷J7zd}§añRK¶'ز>ï=]ž>˜ÛýзÂí1ˆ+Ù’rXÊžú©qôê7.›P`Ínâ•Z°×RSJç^k;;&IA%RÒzŽ=yÜõr!Ú³ü„g†æi•–®7fÿ¼ý…•Š Äßøòc­ŸCþÅÇÒå§CR‚-ZEŸ ½wØauSJv%-ŒaâhÎ ?™ÝÂ2$ÈsT^.ŸÝï³2 ®°ŒqÐrÍpŸæ^OÚ],ßdÞÇŽ‹Ñ÷çlG,,Ⱥ7EwFFq°-¹tYr‰¡¤Lªð®·ß@¶­âõôÊ]Ü)¬XLâT²ºèáDò¤ÖjÑ/Ì꺠g\SÁ‹=ŠŠçDÃÕ{¨ï!Nʱ>S÷|}÷ì?Œ” endstream endobj 4208 0 obj << /Type /ObjStm /N 100 /First 1012 /Length 2832 /Filter /FlateDecode >> stream xÚÅ[]o[¹}÷¯àcûBq8~Á»¤-ÐA’‡¶AnäëD,yõ‘îþûž¡DÙŽ#Év®T ˆ)™—àÙ\t<5yQ—øXŒ©]Z¾bp ,›‰DRÒI^ç…9%GµŸS[‰˜Hux,újS8FS,1£¥oÄ0N ›9àïRÝ+pøæÝ$«ë þKAƒÄGgàÀ‚9"™³>½IÙ+‚ˆ)±ÎL&ªß‰É›Qb49¸ú–Éd©>Œk$<‘k$Y0Ë-Ž–=9+Xs;T,Bù 8^š÷È$£¿1£þëßX¾VSIòÁ –Òl=~ØÛ™œ«½#;±vîõ~5Ÿ­*ŠW Áò©½R>Ú~`emß~ƒ%nû Sû ÒZÚ΋ÁG¯óñÛv0£×/_™Ñ»þ÷•ùpß´¯»OýÅèW`èg«¥¦·¢Ï«—óõbÜ/7)¯~÷þrÒý2ÿÝT£G¬äTt•½îxiLJMÇê°%&®‰XñÔ<¼ik jÖ9xÛ­±±Ç‡a‚ “&›€Ì3Y*šhØFÙ˜WóÅõzÚ ™°†ÍȬBÑò ò·E,!«‚¹R:ß qˆ_(ÁOOŒàn!±äÏÈ D–SÕ06Ãù ‡¨Ž.Ùéü8²· Ñpp!ëÃùaÄ`ât#Ð(Ÿ G:Hˆe›•‘’&’T]:à–ëÉrlß\vËÏvÑ—®›È¶ˆ*‚,~²NåÉF¿h~³šÌgËìŽè»ßòõ=Š¾GÞ÷øú+ßãëgS´Ï)ã(Œ÷€¢)nÉÖ7Bö}#dßÙJÈ ”JŒÙ ´?g±B3&ø3íçŸO‹þfÀ0‡~D½Ö+VJ²êU¯ÉË3£ê-£© ºš jÙb {XJÎLj¼%¬ ÔmÀ (ZœÇh%œSÛ:[üFS ké„ŒÅZ©pì§æë~Õ!}oÝtÓ¿`9 ‹ÁˆX|E¡u0 J4c£˜Lè\Ï/ûéC>òé jónç¦6CI#‡ý˜Ú¼Ç^(¿]<"CŸMk,iùù´Æ~H¦ò`¨ˆ¶ÖVE·q,D2¡ôów”cu‡e›Á ‚àº%¸pKÚfέQÕøH)Y·¯Vb„€Ü¬ >”s¥Ð’‡‡T±QÒÔ¡’¥&8òq¼tãÕ|1 öŠ áHw†xc$X¤–ç(¸¿ž¿Ï©nïòMF\Çï‘êÉ´¯˜|˜TH¤ ÿøðO ÿ{†“'ÐúÝÎÖ}’Z"=™&öížÍïÚù®ýõí¼{hÙol~Ǚ϶yrmóó)'´­i[Ò”®4¥+MéJSº"Ãæ²Ê]T èÉA†ÆÄOA‰‡ fïB¼YLf+»¸îìz6² (¤0= ~¥x7#•ž;°Ux28Œt ëx(nÀðÅ¡ðUx¤V:7Ý( A³{¬l æÄO‹¦ƒ9äTÖñbõd«=|ÜHòcÚc¹¾¾î(ža·&b,;$pœnéÓA“ÕrÕ­–Â!G¬ˆ–Ͷ·®uBÐpÞ_t³ù×î[ •ocy9ßíÜÈ™·zšuzÍý\re+;ÿ|r•¶{ MØIvÒx76ÞwcãÝØx76ÞÒmäØFN­sjSëœZç´ëÜ`¤#7¹ÁÈ Fn#ç6rn#ç6rn#ç6rn#—6ri#—6ri#—6ri#—6ri#—6rÙŽ¬§lÛ ª’7+'fg³žôE•©øŒ4ñmrfÕ/O@r ‘Ö÷J/Åj´éFܾÐbþq} 4¾ ]ëv·“Ý°Jt ` Ws.’rBDìÀÀkzP~ 8wÕ_̸Ȉb/g“H=zͬÐPïÐþí ÓõÍ b¦@½¨Ý¢ñ¨nrôšE7ë¯N‡!ª°š"rFÔsGY…ïóãƒE¿œ\®»éÐÙ1#uÚÁÑÓ.=> ™zvÙ-.O°¬DO@o-š´!=Ñú²?…´ „¬!k 2O«Ó£÷¶Ð~D“ÙÕtÝÏÆýɈP2}ò;jçö#šöÝמæëS)Aóií²…²îÖ‡ôur5lD{È,x E”nm2"¦R`HÉí?.ÏgW§)B²Žiˆ3#Ÿò“M—Cn÷èyr-›TNF5§³–™;x¾½ÍéBÑ9QYî°$dTÏDZ¬g³~:0=àAžhXD/„@†ò蠇§'©Yô¬)¨òÚ-zÖtÊ´ûø±‰r„ïJÉlsÊÇnýŸnèhÙî—6,‡aùí·Ù|q}Š¼à-J]”k 9T)nòz2#ª÷+‹›éü$ Oé-Æ"VP쬃å.|Íb~5™ž Géý•z+W3CÒÛ¯¨—G=Åãð I{„„Tôâ«Ò°^ÁõRsHî žEÿ©9lð4’õ$˜´rÉvÖ I¿he5 +è-Ø-OðNx’þÓ°@&pzou $ —Ímу@V‹É5âez‚øñ'½­ËÛã%ؤ¦¡|Ñçñ)v÷r½Œ¦ÚAôd=´q1z@Üëôƒ® zEÔ°.è€X‹Pƒ×‹PRö ™«ålÀ8‰X®zˆ¾œVù(ˆe?­‡èCòfL†á V—x \ÝíÔd½ÿôn¼¾^Ÿ"Z1mÑ» zŸ–ô#¢^3 ù[$£ñ¼Z€ë~‘μE°SÒ¿G8‚äëxþuà=¤¾:sC‚• E²XD1 Å:oÃ_I:Ž£mˆɲy3ó‰²lл”gG¢‡Îuæ†Ä2âÿÃ&B€Âm¼jQRáÏT’õzCRô r:Šäs·úÚM×ýòd L²*zXB6 ¹ÿö“OŸWßÅ£ç"ú‡;>D¹×¹¢(©@wyírïÅ¥{· nϱŸ}ºBüðt…èq§+Lòíé ·[ó¼½5_çÿL·œè endstream endobj 4346 0 obj << /Length 3952 /Filter /FlateDecode >> stream xÚÅZYܸ~÷¯ø%À-‹‡®~ðlâ ¯½ñëd¡VsºµVKm}ªXE]£¹œ‡`€iŠ¢x«¾úªÈàlœýøìâòÙË7a|–úi$£³Ë«3¾ÒÑY,„©ôìrwö«§„>ÿ÷å__¾‰Ä¤©J„È:²šcæ÷U ŸÜÿ¢óÒÂâl#c¨Sô]}u¾‘iäuÃÓvTj»¬+Ú®È[zΪòºiL{ª«]Qí]Uõ1äÎT9÷STi¾œËÐËJ×AÃïꪼ¡’9¡÷5˻Ňì\Þ|ËßTõ±¨²‹Û€€Ò0¤5ä5¶£ÆM¶‡”ÞõÁTX’´6[Ut‡¢Ú´]¿»¡Wmv<•ü¶-¾™–Šv¦ø¾Ìšs‘x®ÏA¾ñ_À£J׆0MS7T,–ïì`(²•5¤š"³TðûP³Ž¦òl©º=fe óþù&T‘÷ƒiºŒ† ½ºïòúÈMÖöû§nü½ºÖnR8fÞ?´Ÿ{^zä5uÝQm×dU»Y›õUÝ l™ C¯)ÚOTÚW¸š+Ó:`]v.¼Š[¾)ÚƒiþpÅ–¿ÅÝÞtõæ=Û§[•+AëÊU;j]^˜ªC‘à+Í›m¶Y뾇ϺTu~[”Å7Rl¨fbÇn¹ò¡Â*‰º]SÝÁ”'~Ë5ÇìÓ¹<ã¾1üIÛöÇ­_X „ßOUÓ¹æêUe‰nϧޱÏ\ª­™A©¨«l[† g›Ä×Q}†ÜçG)Ãy«_7axÿ Oc+ꮳ’ÁÇŒ~ŽÅWkx»— ©]}ÜÞü¼k¹E½3å ‚01…0‘†~$û(ºø,òÓX%Ø(ôu¢Î4ä‰Jj3ƒ6X6“Vî¬hÇ“®¸Ð Ëê@Lã{ûYâ7î îÂF€¹aºDŸ ´¦B[ m¿Ðß`ª7Øh[~y°ÓמªÉ$©-zØGkÅÝ 7«-Ü2è Tæ¶4eûAª+Íðnij_Ç$Lnd—!¼×vÞ$˜.Ü|îÑÆ_°|˜~;•)>´G)í²fGO([*[£±é)k²£A!RÛ ñ±3wbM >Ü÷\óXˆ’/°œz7…)ÙSÙ[€¢n˜Òè⬼Á°W€‚ %Žh‡3dzãÂú¹#ÄW Gˆ?ìwÐ‹Ç «š+¯‹¡†¦ªûýÅŸÄ E\û·*;ãþ%kº~-ùe(FH Z¾û½o»£±J«ã™[‹¥×·Œ;/ß(5µW©üjXÃ)¼zþ©:dÏW”(Ô~<ÕF7vžUTÀ=Ãßž@Z'v7m“º¯ìÞãCG¶¥SS”í$Ÿ«VóDœø±\jQ@Âù>Ì3 °à-P³ä-Pu}¨[~ s8©v3‡µy m*“VŽ²üàûS+P‰ôFTÅg5xeùþÎÞOœ?¼ÚÕôK*¯çüÊà˜R3j N¯äÑœ3¢Þ@”M±ÅzòŠ¸nYS³±Ä/$—g,µÓv;+¨4t¤3ZÝ·ÔÈúŒ_kÐmaƒÿ™åëÀCE&¸ ÛO°S_‹#3;nÛ&ÜÐû­AQµk¶NþSEÐIž÷ .<]Y9CáH›¥Ù¦À³Û(ºÆã¦à—hìþàüK8…CÅ>Cú_™sQåèì rB@…KtB0_ƒ"Š€Kôs®d·øëÄT² ƒc™ ¡ƒåÊ••1;kÒŠMêÀØW)¸«Š(*çõðk0à–êèT¼XßX¨Z¨7Ô¸ðÁö[NT©l_.ã+Epwûs貨PˆàFÜdWÄ?l²TSÚ-•žÒn #Ï©/6ŸR_|žQ_ìaF}±ÅÔ׎ÝÐG[žÌ ôÖ¸¹Jß›úÈeQÖ"œiÚht1Šˆ¡Î¡¡) ÒÀßC_ÀßìoÂåüµ_FWÖ¹ø¦Í³Ò;&ÓFyD’¨~B/ñSšO Ð…Á Ö|)2*T&M‘güa dúX|s‚Óý¤6Q0Ð’ŒÕ°™‚ÂÆJ4С›Ïú²{ÁP ~rÖ bSñÆÜ3—~ ¤ó‚U J¸½/FW0‹@¸öVd‰% BX AaºzžòûŠßY_‹S°Š}VòÂ&ÑZ7ëÓðXVM½ä–Œ4an"Øå}+—‘?Dv§EØUÞæ!2ñ…¨B×Ôå Q‘Gƒðëz¢=Øûh›·Çˆ„êt1Æ«<~5èÕó‹7?þòÜZàí ˆÒÕH˜`ïVHUà‹T~k•ö“ä ʬü8ùSèÖi³ X¸¢_Âû"fÓê]KµOÓ:!!–L£AÔª›CšiLŸ¸™I…Î ÇZÎ}+œål>¦>„ piìCF_Å<è¶fƒN£AÜ ìÏÙÊžƒ1$zP±S–¢ XNhý£ÅBoá°e}½½¡Aïc ‘Œb|ô@`šU2×}ý¤q63'Íôô_ Û>qahInPÚûˆ÷Þq77X(;N¤#S'º¹jŒa’„µt:"Z͉Ѿn€‹-›‰œ¢¨È)Ê#}ãBæ ºÙ<`®RE MzA!?S²È{g©Óu>½»9qeVò„é±@Òˆ0K,CàÇÏZŠØOҩ˼oÎlDë‰^Ì&; +¬°•V~D‹(¥œˆ[¦‹éc…Í®&w˜©±ÅÄwWö,å‹Þ¶TI<ú 0 ¨¢—qøýÓ½J|9LŽb™ºôo ±UMYÊÍ_Í„·O0åTøQv|p:"½{>äå,'æ-µ±žo:Ad’2 žªÖ~ [pÌví½ }1¦'‰zI{,üdÚ•^ï²Ó‚1C퟊Ɔ†XþÅdM~°Q F•c`Á… Ý~،†Æ£ZkÃÒÜÇD‘/¤ºíbŒÚÃa•}Žæê^˜~¢¦Nýñ#ž’ƒ¢”Û«}»Uù}ciéÇ#ðéP8Vµý¶C2›ÖŠ—£0P¶q+f480 Ôãg›€/Œ‡•ÂPÐå×{%È%»äàj:]´ùA­µå}s$ÚSb€Ë˜ˆ0çR%ºTo/²æ[QfÅæ¢n®Å+¨Ý7Ù® $tµ39—#&ZTžÃ4| Z«0òÕ¨/äQ:c gH°€(ÉÛ‰ãÇïV–ëõC¾?«¸K‰cýÝZ,õ “¾Ÿ4Ô@èmŒ4Q%qæŸPî»,M vTÑlKñmBÚ/ø›È{»Á0dsAÕwŒvƒYíÒØÃdN6ÜÞÛ¶OØ{0Î$г…ýÌs¿O¸Ë‰ +žQ&Ér©1–Ð0C(%Ra%å®í§WAŒSu­àSYTŸ¨„鮲 |½„TüìÕs×ÕZÂ;ÖþÈìу¦³¡&+*+ßP.s¡²®ŸÆÊ3fŽ¨\ê,„Ù4ÔÌ»¬þÒWéw¥‰`Òh#ÀŸ€†D¾ øB±zâ& 釩šžI–½i9k ”‘šC Šá)j{•úa²vêÖ¼mÂfÏò)‰pù”DzÛª™dwP¥í½.;ÓTÙ«CÓт鹨¨+N¡AMžµÜ–Žù4,“OòGÒÖeuº—§€QQ?4S_0gaòþ ®ug¥~F]qÿqz+Jx¼Ç¨Ÿ•ÜŠü”P”]\ÜàÆío3ð}Õ¾°a|L)þp€[%“ÌŒS8¿ºàð;™~7CŠu…E•Ùþþ+=‘²ûiݵW‘ÊÑù•Ù6;®¥€ÏÜŠ9Ÿð‰šb]MgéCx¬±¡tìíœL)? ¿û‰yUTeA1ƒxù|JÞ¹ÎðäÉ­¹×DC?ƒ{²ýdÏÝňš”wä­^=÷öýÏ—¿½}÷Û/?¿ýçs¶nXD‰‹@óŽî4oœ11Ê Êˆ.+Ò?â5ÃÄ]u„ðð®Û! ¸‚1Û{)+ƒ§Ê—cxÏg«…=¥rqT\·Eåxsœ²Õɘy>ÔLx>Ô"a1†V+Ûj_FÃŽ2üáíëµù&±¯ÇTÉ4Ì‚-ûƒid}W㽃œoÀ«°ÛÃkGfÇSæl*–‹Ø·°'q@ Ë’.?´ôÌçÈ:Íç>+i¹ðß±þŸ.íÙv5ýZG‚»%³Æžõõ!Ç-5e¡~,Ì6d@þ|¶8+¹Wò³WàEC1wêÀ•Rï‡a«tòàVâŠÌŽW@.Šî©¦\ {]UÇh6+ 5æXDðŸpM0lNtnhÊŽ€±Y«+ù²®Æ¦iH[QT;s2Վν5ßCÔ쥽‰6ð´3̽ú¡Z‚ðÿ•àÜp¹;1?† CÉx+ðÆ;ÞŒT–`Þ²pÝ1òŠhì¡dJ@±Î©í8ƒÈCâàî-cχŒûܳz‘…†Îížùµ5÷ûçËgÿˆç«+ endstream endobj 4359 0 obj << /Length 3330 /Filter /FlateDecode >> stream xÚ½ZYoä¸~Ÿ_aìÃB LÓ<$Qrv±g2Ç&³»;Ù‡ldµÚÍ I=ׯO‹T·ºig†!Š,’Å:¿¢šŸÝñ³WO®nžœ¿LÅYÎòT¦g7ë3Á9Sqz¦…`©ÊÏnVgÿŽú¦`»Ö,þsóÓùËD«=ƒ EÓøi–±d¿!xQ_…øʘH2OE›‡œ^1Í'24ÙÓ¥DÆ$O§¥,o__ª·T¸í¦²f[)ý@ë$/.ÇnXÓÓxÒLe Î5VN|\2™yñ¥´c]µwã†M†’°,sAï%xx]{ •<#gyÕ]ié,@ä:jºUUŽÒr”ËVàDSõ½eGa|:RMkeAkB+;ù#Tµ¢·ÛÏ4 1+æ>ÀAë7íp(|ÜYôºS´È¸TÞ qÀL lwMÕ›ÒÊÂvXÉ~2 HvE=»Á­KÇ¡ ,;ë1PóÝ«''~°TLêß+³ rl/šqû ë][¢ˆ‹uß5Ž Šy§V©“Ól8Ø 8Ù‡€Y.U¢X–˹ð¶Eù¾¸« zÈ<Žn6VB\Q”óŠÖ6ššºmê¶Uiœì€Âå/õ2ƒÎÂu™¨šôÖ¦}ï½6º £aÀ{s‰m¼Ÿ/Ããè)]Ïr÷)ö&뀞É~­ )³<s©x£–‰vé+É@ú©o¬†‘:a±Bœ)­›$y´]î9p]nAÍåƒl!©» Ds ™5`4WÊEsœiå ¡r»ëxì`"w» 4 h%KóôÈNŸ}(¤%š%éD‹yKê,*è!žZ6?ó-ëF:Ÿ8k\þ€Q?ý¶¢ç¶"Ï(ÐŒA“—\3µç½©ÆM·bE7|•÷C~&¦ÉÀq%xÒ,–~“님i›çÇ<x~’XO#“…—UEn¸«Gê0C@,¹b<Õ÷eà O}ý³ Ýñž+tlq³[©Ð.¥GÀ‡³K4ß¡£Zè)oK%r–¨tnš!1"=ûnÛeS|wg ÔInàà\-˜ÖÙC² } ”;q÷î”j–íBhï4ËbpÙX>“øš X¤Œï‘õââK{œ=A]’$òa¹H&ö Íþ°5‚1‘›ò@hš²"e’¨·Yd4ú(»ËGn¢O d–ÊÅk‘ƒ›#F°ÖÂj™pñ¡±Oê”d Ëy÷!ˆ’þF YU‹È¬éI¬CÃM¥—Ò7nÝèIØžÖ5æX¦ZAzP©Ú/¼Vøæs¶©f9Øe×öU1t-”YŸC1¿vqO›M):óY@emÞcH©j³éº »žâLéæY4σÞ ‡©b¤eŠóÕlmAvœ .ëj hž¢@ˆ(1×yìÙt„çOŽæGnrA©ž¼=%´íy­ñ‹Ã‹€Ñò ߇j È+SÔ°œÀj¾ Î.eνDsgvÌíж™™:*Ú¡‹Vå‡2ï±s7 ØÛ5.¶àFš%óìame|ÅŽ(Ö=W•­E=”½ý<ÃÇ,Çæ©BÎg%¼†yt]ㄳçU$tx´ú¸ BJµœƒ[®ª¡ìÍmå\¹¸íPJ>@`—Ë8|Ê8„\o{»ž¤r·€SŒ•÷{ãv0ð«˜S}z˜¡´/eÊbíÂÀåÈw-zLƒOS¼'â2P)¦­òÛ"ãQW¯-;> ýk‘'U¹o‹]åÂîÊê SÙÔøøáö¯x ˆrKˆ4@e]÷c(wÉRîíŸ÷LÛèŽAÞ5O‘ @âLL@f·ÃÅùùÇ™ßy±†¶(5ˆ–ùFä¯rHµCfJxW­+Ê*{öíò¿ªzŠhCSå«Óè9š¶æÑ5s¯»â û–D/ì°2×ñ¶ƒS×À q7å%*×|ï&t58å×ùÊ-sévC%‹ü~¢÷?Ç /N¿AŒnÝ×íœñ^´kí>Ç'…¾ªé^ýØÿn!d3Z°8LæÐBìTúRÌý—b]ÒY!¦Èáé/‡¡+ ñÈ}ºylØÐÂð*É‹QiQ¼RAX‘BàPòk`PBŠ×y â·ƒ8“G†b 'û[~h Þ µ >óà=SÎV4·ÙÉ|Çö 3à4‡plM??8$"šÁ| it›È)Jþ:|¦J««;´Ë;‡aÉ«XùhB*¨—¨s}ÊÒ}Y–«oÈõT,b0=þÞ¤²Ì*1OBJŒ9‹ã‡£¿Òç«^àÂ<Å$ƒ%ƒ·R»yò_&Xï6 endstream endobj 4365 0 obj << /Length 3399 /Filter /FlateDecode >> stream xÚ¥Z[oÛ¸~ï¯ÈS!kY¼H¤úrô²½$Ý" öààô Pl&VcK†.ͦ¿þÌp(Yr˜DÛÍCD‘CJâ|3óÍÐÑÑÍQtôû‹“Ë‹w±:JÃ4áÉÑåõ‹¢PÈäH1&"=º\ý7,™ýïòãâ]¢B³0â²BÕ6 Û"GÁ‘[ÿ`ñ¹H„2ç :M|oV7¦þm6çNÃÙœ¥QðçŒñ4p7_£8biÊáÊ ‹C×™i²yVd›û:¯C÷vñðC¤E,º·û8ãqP¶Ì 5Ëkº¾]µË¬ÉË~à¢ÛºÉ—5­:Þ®C Ïq«þæD’ˆ ã¨,SžERûíN¿M⇹ à*ýÊyÂÓÄ}•ƒ©qŠ¤ßòuÓìêW‹ÅªÌòºY0Ћ8\U’¦:‰˜Š" +z^b.`ƒ¢˜ÍY š~  Ø}Ôç²Ó…ë}‰ü±¹Í ×õÁ ’žtLzòèD$!Ûz¿Ó¸õ8kšu¹ªé×eÕ÷îUíÓ‰LBÅ»EáUDÄ‚‹¬ Ùor3cqpSºw}}üŠŽ—ÙÊló%®€Ô<ÔZÀn°0cZëKej¬~°OÅ6ÇÓ48 ]wFÃÊ]V»®®'!áñˆEÉ’k/¾F_™biH(/Sý@Àf›šºh3 QeŪÜRÛ\£ÌµY65=e¼SVÄÝÄrÞÈà¯f< Úº)àK ÿMI×]{µÉÉ4¨ã*Ïü–ÆDÈcù@«n½ÜM?3«|™Æ£A 6“òÉFÅÓ)FÅÓ¡U¥‰3+-|v¥X®À/òEoCy{,„Ké`Ò¢*g2‚š‹8¶xBoC×ñïãàb¹Þæ«Æu¾›é(p’§îê|`ô¨m%qÉ~Î:S¹èëð:˜T¿ªš Šòâ†ÞÆ@—wYÑ4‹!l ¨JµfÓ=u„)Z¯6™m,ÑüÖ †yÄ‹<ÇgÇ ø#í˜EÁåºlk1Ìÿ#»µ–M²ch\d7†ltîVYêÇly[—ÖSÅIð&tKü@½v°ó¼=‡½#77ŸÐvIUxùs–¨ÍrÝ\eíhú¿g)œ°3té ]€¡ö*cq ‚àü–í&£Í·Cà±XÒ|ø²‹ºÚ€ÓòÓ@û kÖ†zÀŸå«Ý-v_™æΘb^7íêžh*Ϭ3¢uÝTçx°=r<(dU‘£EŸ‰>Ãóê[ØÕׇ ¡·¿“³×ŸÑæó"ÜÕrSÎ-7÷ÞøL@Ow/L>ç^œSa‘×—pjh=áK˜NL*qHë9“sXÉëS8 µH´ˆR46N3Ü”»Y®ç¬:ÿ*”\ÞâíQ¤ƒß;DvªÐ Ý¡PVýÈ¥ GãÓª ^1ó44ö>«š¶¸™*²ÝŽº@Û9"¹‹!؇ôƒÀ5ã vØâjÆ‚¡Ïbº)Æ·µ¹n7$‰à#÷b¶¦h¨“‚›»É*CÓÀ¨ }nÚ=õŒ†À —¦*êùЫPÅ©'âY7Ô Ó'&$„v„îê‰0(Õ0ùqšî,’GpÊGa0î <\¤\`)œ? ¦é”(¨$c>Ä2X—ËCÄš¢¨òåá$9xYô‡X£í`6!»@EowÛ øeÆ œt¡M±P%ˆ±ˆ‚Ï¡s×”Åü<Û­kŠ’·„Õ+NÖ¬\ï榬òf½­éž<%4¶Ù_ù¶Ýú0ºÉÉ‚6ùº,Wä|Æî{–åvWxk[‹oÌVQ˜È~Ã/1~rnE دüIÀ+NÅt¦§Ð%6`KŒ!H˜òAȶŒžòn\DjÁx¢R?D€Œ‚”cˆX·OÎ-aÝp çZ\§eÔ¢ °‘èl¶»ªÄÝûÿP×8½Ô4‡‚.42ºôdÄÆd}1ÍÜphŽ[¦†Ø½ñÆê¥{‡’ÆøP !ÓN½ôMv‚ßÐq¨´zÎo°ž>óIxP¿Á“Ôú ®@Áø =Éq@0æ^T0ÊCTœ7Ík…dðÚF!|¶×Î èÉÜí¬ÊÈtHÌlwyåRL˜}’Ý›šFòâX.D± bYYÝ“1NXvYŸ¸Ä<÷â-3à| Þ.&Ü(&X^†û{¼5øŽNÕ㼇ëº\æF}üF†J$“õ¯&ù¡ÙR¡úãØ[“P<ë€ê¨(Õ~Ýc4H—íÆàHe£D€ëxI÷g *³q}ÃïfåEmŠº­IÂ1åÖ¸{R84îL~³vln¯-!Z6eåW?PÀXk¿úa:f^x}È]Ý(í2ò=8>÷å)¼;i)½ÊZº·O Ð+zÄÊ[%"TûÒѳ(Ñ“*W#r¡,H„þ5”$׋ïàiÃHƒ,÷»‰|]¬ÇP9ÏZÈ–\%ò ˆ–+°>)<êbFÚñ>Ffù“2_¸ÝGšQç?e1ƒÇ¸ h$W“`—ÚÀ¢<øPPç{÷¯Ër·gÔðr§î…º*§'tì+q:±XW®š××îú§%HÙèF¥o| âDºñ—áÑgÚÄáa¹5|àUYÞÒ\Éæa¤¾/¤TjR]©I¥Ïì0­Ù#Ñ*¥›jVáoĬÍ&óƒMÙí\Y€§±Å‹;g=$4þö¬£º}Eƒçm]›Íf_3 Ö;üž²ÓéIÚa­ï"_å·Žª~r ô%]>–Åí6+Ü -î€ú?h*À÷pÓ6sˆ„;›¸C{”ïÛža*O+îùéseoÅÐ}-mÈ&hi·»NlŽž ,R±éƒMªÐ # ¨R8•¦ÿ(5êéu òò(Šýº•<>…®Ê•‘(WºÐ"!iþÒ¨Snœ9í*-P»8T”¡RFœ4ÎpdŸD^PGI±oädpÒa_þ<¢©^’™„L©gOCNòr·Îªm¶4m³/½<}&'a,Øô|$þ[‘òMY«ú—ÎDX¤ÙâäÃX+Š0/‰½¡EA–ÜAäÕùÕùåØi}³vôT÷Æ_uü|Ð…3{_0òòÆ&oî©kŒ\lˆ”pÇüÀ@U¸e¶ºVÞ?ÐvßìÓÀ[ÆqWúº¾j\ÿµZ‡ú™c2¡{ÚËI¥Œ$DâȆ|Oz ø[|‡l$QóT«$DU{œþåEx¥8yÄ{p©:$e­rè=öÄ”¼Þ;t¨A=¦, lï‰Aªx‘‡^…^€¬Ò}^ô‹^å…×uXêƒjçÑnšz , ƒ¢}ìSézê3ÝmðdŠÛú°4‘¶‘ɇ’P²÷[OÅð=þÌ´Ç’d|èC¬ ”Uä·tFqßÿwg…ƒc ~Óu?r¸"ÄcÝ͉¤g?šº“ )-6ÑŸ@º‘¾Ä’¦®Ä‚7€¹þ?ºþ÷ù-7yaeYB† äªt®÷4<*íãaí7ÝÀK’¾È6°U×ù»[ÃU–“þ€xZ‘Ï$ù>jº£ Øu`ÐCôySû>­Åzo“ùºCøY_Ë ÚßÉNq±'Ëûc o8…—RÓ«{¾4mÄÅ‹{±eÎ*ý¥âžµˆïU 4‹%Ò_Þ“àV¨Öx”Ô§g‚õ!³ãËs¸Ǩ;„ìR/{°gî ø"rÇœC…5XÂIçZ"¹J¼·ç\‚¹³2Ñxy­`DÌ,D0ûóA’©ÿþoPìÇZ>fÖÙ¢>£dày2–²Á!žEˆ¦^1²ÄHÈ)@’>{ )}ø+‹F^—l²;âVjhÔÈcp–E Ӆʼ8@p“(ƒÞxðîèùAQÚýzÇuöEA’eaªåusGÅF•›M'§fbRƒÌÌê[z©·äàžüÙ„N„Z|¯ëðG$’0÷Ÿsâ©‘ŒãIªæz¯j¸ª)“Ä, 6 )GVÌÛ®`O|ðXehîi—QCƒ” l[¶öશ¶ï€ta—EIÊÏÅžÌÎAWª×ÕÛ–~f±3™ 5€ÒWo9 bSŽ¹y1upF½/-ó¬#ï;ˆrý F? DwwwáÝ«„ˆäb“_-Ì_fqmšå:Ü­w‹&ÛÜÖ¯P ß~ì5öÍdÛo[«ŒoMÖòp·ºö“¨(Ô›NÐ>ð­Š9ý&ƒ§_E"væç¼k8YËQàzì®-}]˜Éà´$×;¯Áà ‰Q1Úî‡lBé%V!KeýÑ0KÇ€0:èyŒ@‚ªõà‡n-=ãÞë01ŵ'COR›S)ökÜ7ˆ©Óÿ´»¾½|ñ9tµ endstream endobj 4373 0 obj << /Length 1643 /Filter /FlateDecode >> stream xÚÍX[oÛ6~ϯ0Òa“»X¡DÉ–Šù¡ÚE m°=,{ %Ú&&‰®D9uöÛwxÓͲã+°)©ÃsçÇàÉf‚&ï®~½¿º};÷&±Ïýùä~=ñrq0Ÿ,<ÏãxrŸNþtÊœ¸uÁ¦Ý¿¿}.:ì8ž»‹8aŠ{ Ét…ŒüÉ /"Å0ó° k¶ß§sä0šlÅŠÔ´œȹ™ÎüØsþ˜Æ¾ãšÉ‡<Ç;úuf ³þÞ…1ò×–ñÓ¼"ÙëMHÃfˆ%;vîHù€Ã°˜!ÕH|;c¤> ùÈ aô`)@‘óZ Hx¾#åÔGÎLz Î Jqj¯XÅ )náðµçήä Më’Vz]p½.h%ôÊš—z)ç)-‰à¥ae…Yg_¦^èÐtF×S?tÖ4†%§‚ÌJ*?o@EÅxÑÊÊ*W§kvÓ…n6]¿U‡DnßòŒO=älXB2åÚÌrö<¼£bËÓj¬{ž•{c8æŽÀ#ß2øhD†¢,‡Ì–) ‘ƒçèÁ÷çx¿0îl .‚¢5{·BìªW··)g./7·r=„·0$|n ™µ3r÷lü› ’±¸¦’¡RoK°Ÿ %Q'C’&=w/-äJIJ3£e©®HÅbÆge¢Ñ_Ñ„[¤ÜÔ9-ŒOòöVæèЩ`ôR¦€¤'ì剳õrÍGjB[ g-'9©àháuÀ# ]¯Å⟚ ²åÜ Â–¡¢lDˆ‡Ý <'CQ–Aªz·ËÃ؞̙ÝÖ°Z˜Õ]‡çù.ŠŽ°èiqªÏÐÂAräÇ=ëÖë¹â1Køœ€³Ðó Õ®Cr\ñþ߬UfO5ÍÌ®uI?×´H½(Tãž~p>Ì(6Àì©èÈ9t¬ª[µ¸ì5Á‘_™ØêEñÈ͆Në+?HGȪâY-/=É×ujf§qW¯2èXULÔ—…X Ñ@ê«e²bEªg &ZqÏ­—Ü‘£êðÈá>ïç¸ÚÑ„­ŽþîþçÀ»ôJSK=üc ’þiòçÖËïç¡ix8 àµqóÀŽ—;³ö9ÏIQãDZçùÁÞ¼mud<É2nKP9O¨ä1§«±Cµ˜-š±5¼×¨Å3Åhrg’w­·]ߘ¶$Ñ©j×ÊH&hY¨ÞÞõÏÑ×ì”*ÕÞÓ*{þU‡JÐ’ôûi•íN ]£*G3§Ô—$FÑÒ V 6ì _ü¥'m ¶Ö5`ŠÅ ó8¾lƒÀ°ñÝ&rD”üƒM|ñÅ}Ôw–tMËÖñŒîíA¾°ØoôÝGî„+(c‚¶e=nå¡»íXðH:^ÙçŽ[w$Ïö¬€Ð&t'NØ´f¥­­„íÆà†.†]º¾ÕÔ+ÄÒ…ûæ«òßœ|Øu ÇÒz-ëYK.´çß==ì ö8tt ½Ïݹ¢¯ý'ß/ÿçZ\õ"2,íóã?ŒGÿq;:µ:¹ÆÔC×—‡F/”¦4í¾‚±“lI {%2J^õðYeÍ[¹¤†¨W™—f'/ö´Z ¯âÜZ2þ'”7÷Wÿ=ãï) endstream endobj 4379 0 obj << /Length 969 /Filter /FlateDecode >> stream xÚíX[o›0~ϯ@ɤµZ¡R’tËˤdÒ¤>DÊä]*œÄàÌ6Iû²ß>¶ƒ Юíe}11Ççòs¾c ¬¬O½ËÞåüjdMœIàÖrm¹8þ0°F®ëþÄZFÖ×3ߟ_~¾œnEÔ»ðÆBQ!Dèd)Î{@ê¿œû¾5'‚a~Âö¿8b{#±é˃ˆÛWœ}°ËUhú®À=¾(ïÕCB"):-—ßå㘄åã»r¹GpC.ÕDÃi¤®8Ÿz×¾0éæÎ Çm8“«ÉÑ=¹í¹ÎÄ—ÛƒÁ <ÎãÚòa1=`†¤9¼^#ŠÒPŹBü€P*oQ‰íÈ­ åÀñ¼‘Âöm)b€9t†c_ ”4èñœ¡t©ÉŸ´íQ\†k{CÏ_‚!£†)ÙɨHø¾LópÈóíË~áL?dzŠi#x,[m(Év8ÝÈ\#Ê2‰SÆô6”âb#FºÄû€ùÖ[ÃY¹['fv”ìqtÌl5áÚ9(S$ŒE|Ò.YËÄÁì‡w´•0 ·flªÌ2~ÌxñfÉ QS+ãY„U¡:»G =UµÄ«§§ê­ÀÒG®¹í^ÒÐ¥•+›U-ÿdâëÏ;˜ìâÚ P·pùI`31gŒÏˆÔ#EŸª6ņ³‚©¸Çóˆ’CÊ<†>­17?¹H2¤Qu¾7LvãŸj-{[gš endstream endobj 4385 0 obj << /Length 1435 /Filter /FlateDecode >> stream xÚ½WÝoÛ6÷_!$bc#Šú–‡®kŠ†%îSÚ´DÛjôáéÃN÷°¿}Gò$KŽâÚÃÚ“:û´e¬ Ëx;ùe>¹¾õ¨’г=c¾4¨eæx†O)ñXhÌcãaZ‹™mM›ªž}š¿¿¾uýÞ zÄC§x %ÓÄB×·Œp{Žä6™(vÓöÈP¨f¦kYÓŸM½–ÿh¹Ö—ä'ý½m71¯ù üÀ)•z@‡I-ºá^’mJBhòå奾¿Lj½©×Bo*žá.+b‘ê-G{¸^Ò"âuRäfñtÀÝ7!8÷1=i7zùG/ôzm´Ñcû^Ž/ß¡ÊbQó$ QÕIÆküZ%ròæO{Ì–M)â$’¦Z`> ;õÈ›öEuÉójy#ž6ý7ÏãøÀ¸º¨yÚÙ¹i±«’¿q'•oZ ¡¬ts(óø™Cð9ðì‘·‚K~ÈP0t´&_Kú Î:-. ´ª±°P*¿;}¦sãÇ?pÁ–— _¤­áÏ¢åyYãíˆ#_œ,—¢ü†éíÈ)j~fƒ[ú«ó@œ¼™OþšP8µ ÚÕQÇ÷‰ïÚF”M>YF ‡ €°00vŠ53(µ¾Ã`Ÿ÷“?ºÊy¸ªb Å´W¬Á Ï¡†ãY$`nW¬±P÷j°ç®Ù$ h[±_§Àþ€ oÞí+½i»Öt> mY *ý©<,7¯‹ü£eÙ±È#¡)ïr±å)rªz!7W3Û•n¼ÒŸ¿/>‹¨>˜@ãñÎLãz#]̱mF?óWQEe²QáÚgÒ ­A92)˜‚Ué¶É#é¶@!’«ß•PI‹z0–}¯FMC´h!% B‰—†˜dðÃG¡óBžîP#G¦¡¶`ªE@æ¢d_Õr³‹]Ètƒ%Sé«Ë¤tO±Ô«Êp¹Áž(·Q!–R²´:JD^ºº@ß$E)¯*=6 b×–fø¬  ‘‹‘éÂvHhù-AŽ¾¯A‹C‚@®$°Ñ]*¾£n~îöaJ Ý®“Izá «º¿!ƒ>Æ ˆ¶5Tsܳ® ­‹ø ™öÀñSuˆëwz5‚ŸÓOa4y2"‰6^xLI?ǦÃÀøÚÃyü>oæwÞìÏ÷Ý»$Zßܾúí¾=ˆ“URWã€õU~wÄ²íˆ ;„` Žæ„ÄqÐxï»áu÷´yìگʵ¦«&S©y,öÇüÓAïä£ïŠv ìèûÌ?-ñ}JØÞºc¹ïø„Ù]…Гءéñƒp ,Û^ŒþK!Kuä%8 bz Ø“Ž&í_ ¶ºŸ ÍvFÝ©P¤É¼Pµ æà ²Q²ü‚DYfåÅ'ùJsu%|‘Šáý¦B²• ¤ªËÚS{»[a| Ò #çû®xVþ~1£B>ç ±ÈöÀë2y:'â¢Ð N§£™«$’³?s\ …ãõ ân åBŽþò„kZ•ñ45Û¿ ò *ÊR`#Wë¢Ic}¶šÆ7›4HÔº\ˈߤ}Èuâ¿ ¥þ0éu”üÿ×!…£¼’M|5]• ·wo'ƃbzÑ<ßðèQö[­«…ö ¤AÐÆC‹pri]¾8PÉ(™I£g3é` :]‡OG¾P³¥‚žyJ· ‡•Bšùú嬵’¨2¨y“-ZN™Š’cÖÊÛ¤<’ÿŽú¢vké¡ M)5ÇcÈ•&•°1Ëï¹ÉG7ÉA²Éc“™étúNšayÓ&W&KlE m‰Ù6ªƒ+1Ì„Ðux“Îè´Ö´Uh_ÃÊ%Þ订cü\–Ev4t“9ÛÐAÏð¡Î WÐNƒ¶’Ñ~ `þnëæB endstream endobj 4397 0 obj << /Length 2557 /Filter /FlateDecode >> stream xÚÍÛnÜÆõÝ_±È‹vpDÎðZ q¥(b ±ÕhZÀ\îH¢Í%Y’+Ùùúž3ç 9¤¨›ÓÅ>p®ç~õ7×óëח¯Î/¢d“‰,–ñæòjø¾Pa¼I‚@Ä*Û\6¿m•ôwÿ¾üûùE8GUš_ÅÈêšýNúÛS?àÙW>£ø±sɳ·<™À¢¢»ÕC^Výì¢`F`ºñ‚TÄ)ݼ¼Ñ;O…ÑöêTCÙÔ8 ·ES÷Cw*†žvsú§;¤Ósè5Wt?”Ç|`pÍ}‚nowÀte^Ú+š]Í–è4ÜïÊO.„ÐB€Íæ +dØò@¼YE£¯Ô¿|_¥® Ñ~ºÝç½>à0Ù¾`)§iŸ×‡»²¸ñ†Ï­¦&¿éè u@_ÓRÑÛÓ 8 s¤†441[e â">I=KÚ‘K³œp@\šá}¾@BPZÙÓ‘Ik8»++s5°ƒæÅ=nón ‘Å™ÓçZ׺ËçÝ.ð·M÷pª‘ßÀ+Œ¡LÍËë¼úÜëUŽÊzú¨[€SÝ–õ5Ü‹|#½J£Ú?ÑÂA·ºFQáÚgZ#›;u(dœç½=Û]¹m’…ÃO¤› œ†oxµùͽўù$F:#‘Æ Ñùq `_!Ïù©¾†XÕâ¦|ËúP¢4nËÃɈ*WÍÏsÀÁÜðŠk»`ÛÓjÞiºÀk×¼GÓÁ;” œ’\Ž5ëwåpC¡%pCËB%5 #©ahc鯀 |áÊjéÄ,š$¦¼0Ú½î4i/!áÁ÷ ø ¶úÐQÀQ¶½»)+M{d÷Q¼mŽ5sÇ·Q 4:õb^Óá‹5qÀþâ©QÇ ß:Æj&øS¼ÑƒRnÔˆEÞœ>€sùö߯è,Jàl2y~䓪 pò‹µ)Y“~úpIW’ÊgC÷“íùé’ n%V#ì`ƒPŸÎ%wúʶ*)%ÆRd³`¸(°BºoÖY(Ò)fÕßБtö`èJhŒ(XˆÀqôD€ME¢ÂE¬q)‰Üøk i¡O$dÄcÊ…Y«¸!Yô˜ÅAÜÆÊ`nêVÎÛGð¯ÏMÅCŒõÁ)­Tóv N;0”¡¡Íò~@ÚDì¨*2Ss¥îÑêÜèHj—à¦ÆîÑsí‰Éã$æ…z±mŠ{׆t×Ý%1g‚AøT0N0Ƙ³pÙ÷ß½ θÜ¥tî”ã¸CÚV’õÐåTø$4øŸÁÜ=àÏRŠd2Avè‹o|·êÑ™H’Ø5Á$•ÌÒy¹@M™Þ:–¼¦†E›ŠÑèÛª½ͧæFbîì›ü _sëSäÄj¯‡5æä592ªÛ¿ã&硘•¦"˜¡dÙÊ k¯§ÌÔÔ"1%7VÞ<ÄÊ#4¥á¢-shXTä^µk›ókÀ€´üžLŒ#T,~›=ô¶5Ž¹ÄŇ¢¦¹Hå{hKñð^)nº˜s’e¦^±Ð'ã¬L²1ÎÊ$eʬwµ ®­v °NdûM\±Ñÿ@§ž³â7۾ߗyïuúp*챪¬½\ãh ö÷Kå34®Œ¬ ÌŠ£.AØiê™afj°Â×»JsÅ4º°ô¦ø.7\˜ÒÞ´o¸^*/TÍA¾‘A£ÚÕ­ϨšÖ"4&Û—;mËvhê5m’ "$Aæü„FñÔdÂf'ÐfÎÀRòoOâÓpÓ~˜†SÓpl4?òŒ‘­E±(rºP‡óþ"}¹¨\ü€Œ6¸r¡ -Ú¸ ƒg»U˜P#IÛ5-¹FÖˆð0}Þå’†ÓøçåÀœZ¬©dBèº× 3×55ìë Íë 4Ö9oMÀùÖß Ä­Àr¯ÏPP=-^î2¹õúÿœ8êôt4TÛÀtÞ‚-µb¾V*£fÎM…ãÓE£ä®¾“èaâJRªQ’0DIÊpÊ°°dª'øþó&·§ØÔ¤©&Ò- ׃RfTA Jë'8™ž=ÌÔ$@ø>àñÔ»š4èzÃGç‘Åu ÁyaöĈO„Pü†?_þ‚ŠÈ«“þ‚÷Åo9i7ûºæ5yQå}¿’Ë’PÑXL~ñ8PÝ|õdžÆº$ðÙ«hKû¨DŸª´%bƧªÁÞ¾jªŠÁfÏX–!lÿeñL;cÊ5ÌÇØ¥#}, HÿùòqwÖøCy›ŽÙ58ƒy%q8Ò©6ÉF&‹8© óÏD™@£îc<Þ>ŠPŠtz ·²±´è)Òã×x•ˆʧYA‰lFÒÔ £¦ÿ—6\MO ‹çÉŸ ü- ý9:è@nªí¤pœ7n5kïLE8ýÇñD]"²QTGõ½0à FÍèL‹n‘“qàþËŒCù"˜žgZâú1-èeš,µÄÖ¯¢Tøáâo’Ë]b¢2’ÆÛaÐk»dT_Û±Ãpµð£|úh®íÙã ²\Áj^[¨$9É!ŒIr0cÉÑ­çKzf‘Nn•×Íí£e¦g/Ìd3“ß½*ÿûËWÿ†ž› endstream endobj 4404 0 obj << /Length 3165 /Filter /FlateDecode >> stream xÚ¥YY“·~ׯØ'eX%‚8æt¥R‘ä•eYr)’çpfÉY29CÏ¡Õæ×çk4@άf7²Sµµ4Fãë ¼Ø^È‹ï=ûðhõ"U…(R^|¸¾PR §™R"5ÅŇÍÅ¿¢¶¹Zh ]¿ø÷‡W«I6šaŠTdEyŽ×hEL¤_Üéˆ{Ø—:Ñ𤛾šÌͯ¥ò‹¥*„JÏû°«K­uôi¡“¨lmyµ÷”îX­íÏRêjãYlÉÚ3Ù¯Yf‚öë=6YµsÛÌ„Ìuà³ -»n8„ú†¿W^…æÚÓƒ–]yð­}Uoûµ dÜaÛ”}é%´vkër¿¿åþëa5h;ÄRäI‚†¾N/§B‘:Y_nV'"WIØC{(ÅPÛù½æ*|M;g7%tE>ÍIÒ"7'ë^õº·Mݱ’?ËD–5¯H"{ýæy,r}ÒÜèËÅ4ËOÙ.Tmq:uÏ’oJ²±±ÜйSÙÖLaóƒŒÎ½C³©öÌAh꟰õµJD,•·~ê­¿«œ0„}L ÝØýž[WžÒUe»Þ±>:º†½=c¿³'yqÅ  ]· '4I³¶ëaP%ËØÄÑÓz¡’èÖ/0\uUßÛzË2¼ÑUÔV‡†øXK¯`K[”Sduý°±)‘k§·¶ëXn6»˜´.{?ád{tÊãqoÝvÑÙ íi>[¤z££éŒÞŸX¬]î»ÆKúæPövíÝd´ÀÌ6œƒ$Ò/…Æe9ˆÅ–çI3® SgÉW…“sÞ¥Sw‰©!b“ŽcœÊ"»©Jn¹À‚o†FýÜyV‡S¾±ëݲ¿=V„ f­ºÞÂ\dè^‡†3yÇm¼h õÔ í*ì®éÖÕ¦„¨µío™¾.ë‰Á½ú䦈ú¶\;h_•ë_Њ%(—@¤j¹OPEš‘ÞOˆUE/‡+7ŠY3£ iÌüigûj,$—ŽEGhÆÞCŒL£—U½®üP¿P‘³%„ª~×xaÎýðÝVõrMUKNc¤q¸¤osÝS  f[]WmK{62v;%jéÝÙQc´uá’·I-¿âaȵ3½ožÜ€ù%²Êqï)öpl½Gã_EØ ë5³îÀJÏ»ÆI–­'nªnÝÚ«pòW·L~S®°uÝÔÜeÓc<˜^¥Áô‰··.Š3Ž+Rí3ÌÔÙ ÂÁ@¥g@'";LÁ:ÏžF€µÎÑÈ|.ÎóÁ©‰¦õC/Ú¦é™äÕ-¼›`° Ü?-€ „l[º3³–Rô„·'ZÏåZmµ/{®2_#ä!ÙgÑw——~ÂGWBÌÌÎœåõ^Û’a|.£:{noä*l% ¹@êè9òDëL}ž§¢7ØÔx’–*ñû‡Ô#0¿£Ó£ÈÉ8ã¡ðÚO¶¢á–æ8ÆÇ:,&G]d•í#QÑ{»±7   …T´aÆWMýËÁ©ˆŽ? ä !¿ˆÐLýÆ0hë¾m6Ç¢"»oÉÀÌ_ŸÎÝh¹,QÜ"ôÍÔº©{o"¬nR°Ôèz˜¾l7ÜkÑi«ƒýììµYV×d¯ëjíÖøƒ¶ž¤ÞyˆŠº…dRúÞç)NDØËD‘ð¿ÇN¹°¯VŽk_ÏxÏ9pj&…Ôö9Ñ£3±5úÆø¾¬6Ûª{ ƒêïØ7µ'0BÑxÕìêÎá6‘¢’qÍÉur± »î¹¿³<]`Ò€ý·.:ü–†f1?-¾ûëí–q¾±[¤Ø\µÞõWåà|È+8S‰0ç{Ão>]ý™LˆÓXÂÇ>â¼EÓnÿ4S.(‹ä\Ó;Š]ww*¯èUye÷twE2†áñHF…¢‰‹Sù) €4Þð&ÿµÕ¸mÇWÝDžëy¹·CÞÞü]Þ+0A¡»q¸ôG?ø”äbRZL® ¤HÏ)‹xá°Ð_ÞjP¤!T°سEéxüõ~šzx6.íݲ«\ŠsÖÇp£&²ð âüŸm4º÷£\ž4†jj(eâ1@/Us±LŹˆµž‹enW¶g‘ìDûËPÖ»Ø觊‡žRI sÍR…¹~0¬%ˆž§À£ã¯ kƇ5“èÈC˜ò±¹NË;³&Iæ"ž–"Ñ戧ÌVÚ‰Òj6ë±€ Ì&åµKaqšUé"÷Ý—n|'µ·}ã…<sŸó•wãtÖ;0Ť 4_`ÓÝ(î”M3d$S±3Š Ô=ßœ|eÿãË)¿â|A¥âT¤ò”R‘©†£ÌHšø¥ÞßÖX«Q™5‹1¨š™¯.¯ÔŒJ­zŒ05ª®Œ Zé,ˆ°‘X>”6\sõ±íbCF¡¶ÔÅ´râw(_!‚¿]`‹®Ž6_dKzNãçzÜ«v%!á“uå1²š —9”Ÿía8,÷Ö[»kÂKÛé¨xÊ€óõO5¢à¹7뫸:¿ô÷³øiÌØÅ7dM4óç•™dMôÿgÖŒ±LžÞŸ5!Ãí_ΚhŒ³&º3YÔqÖ$!^¡IÖô?þ° áTú»Ò%ý fb5›/µV„=¡‘»ÿ?©1,6Á›{Ú¢pŠÓÿÁÕØ2úÇ)fõ1Õè½ËWrzï'¸ºIñ–€ôº©·–~Ãà<fþ%…ØË;}à4¨¹­jzâE@Ù0g¸éÑ`x ù w"×3Û Æµö—¹­bø^öõ%wf¾&7©QÉ­\jÒ³wL?jš#GaVWNÿUfj3[rK\駱¦¡Ó31‰¿Wî92¾žð˜ûîÙØ‘Òè¥ç¹ó~œe¹ö¦Áùjd¹•KÄ6W.Ý—KsÏùá·‘Ž~DË}Ê¡Öwõ Q .yÜ›7ñ„wxjƒûXµ½O=ZåB½mRÅ>`Ò÷[bè¬gsŽÔB*õv2aô¹®)~K]çIddâ®kz6ïÀõ2ÇêN­8‡"•®¤‘1쟑SJ>ÙWê|9w‰“S(½¥kóG>:wúe“_zLa° º®†!E „ÍI‘CôKÏèË—<\ö½Ÿþ”‚ÙçÇSÌà+¨÷>·¦w¡FÜýTÁuP‡yƒšû:6¡à ±ž$ð“ÌøvŸi`òvL„ûC“FÁ¨òyèÑL~©7Ñ3Š‚ÙL}ÌÆ£{öË(ÝÌ`3SBfbG¢„NôB9ýÆ£—fÚÕF¹ù]o Jær%3“H …;p§tœIϾW^~xô_I7Á endstream endobj 4413 0 obj << /Length 2200 /Filter /FlateDecode >> stream xÚÅXmoÛ8þÞ_aà€ž D4ßDI‹ë‡t7½ÝÜn[4¹]`¯÷A±èX©-’òöå~ûÍp(ErÇ-¸(ÇäpHÎópf(>»žñÙß_½½|µxų”¥FšÙåj&8gJ›Y,3*]æ³JÊù¿/Ïª$f\0ä”êêj.ypÛ´¨ûŠû%öì‡Ê¤nV(cèT4÷r®¢ ØµUy2çÁ›‡2ÁgqÉE­€.­xp±Í6m²íncQæA–ßÀÒ[[¶ u¬ªš„ÁÆÜﻹŒ‚¬.²riÉŽmÚb›µEU’Æ}Ñ®IÚÚ6 k;Qp]Û¦æ] NÅg!ø+":ÎÇæq‰SÖÕ¦š \Ë ·ñà7Û®«¼!#ϤŠq.:ožx 3ÐÐ,Mzɧl8—z ôBÇÐÒ*Ž>K  *¥S#S÷`®Ûv×ü°XäUÁªúz!8\Å ðÇ?!&V…-¦„ˆ%‰žÀVò°u‚ ^ÏC‘êà# co*tØ]ó›Ç¹‰¯}ÎHëÌ·{Œ©$F„PiDìpd@¡¬}_µ¢v[å¶ÎÚªöýY™? lðœûø~æ\™À¡Àª¢¼FQx†Ccžañl.¢v¾=’hRIéâs\¢º­K¤šÁ3á^ÎòÛ¥#t7à…Â[»Îî p¬”ÑéÂÎ*Òí‹ À†—SdUp1:š¬ú(²šY ×HV£ôw‘U .¡Mš&FD†ž¦“”å†âhLÙ‹"/¾ÀFtœÿ`^xáGçUùe›•¾óÜ%¼g4Jìä;“(Ni¤¬ZKº=öŒù#Ã8„EIý5 Wm©Ï®pÚÊ.‘Æ8è˜3ÅÒ—Ù¤ qýË„A‰¿wȹæA±ÙÙ¶ASBŸ•d¿2ªß|4ã})9®ƒ%;”\ЂvT„ó¯Ø ÖFa4È ,7X Ö8nK]ÛMÖÚœÆrˆESîV:aü©@ FŽœò¢VL˜øGC• ."sLʒâF» Ü@Þý® þ ^a¾ •´8ü³ìaŠ½,òtŒëïs¸Ú庽ÊnÁ«€2Ö2<Ä¡–FA]ã«ìZ#?V%•­/wãa‚± Í¢br5ôŒÂà÷Ó$,öî²å—ìÚNâËê$y¦Î±4qÔíôFñ¬Ï[Ý£ë¢Zµ÷Y=Wq`'üÇ Ît1«Ì·¾¼\šÒ“JKHCòè $¸Å \Ö;x6³‚«É2êd핱®³òÔ® /ç§\Nê J§ˆ¯N ™ÓP¶ÛÕÕ^EĄ̈àg¸Ìî0~)CÊ(8FXB¯Ï!KŸ?h´*mxY%{$­ßNߘƒC~Ÿ xž*Kü%û°³%9qÄìÀòÔ¡{°åêå:tø¬ž Ãåý>¶B|¶Z*³¨n†P0)à]= .dÑ(5Ï€+㸢WuU&Äeæ=}QÃ=¡Tm† ¬çððÞUpUé>ð»ÏÐÒõa Í»-áùLÃ{$8PD(#Oû`÷K KÿŒ »ÁÑ¥¦Ï¾TNó;L(ùtýêö˜üæ \eWÅ7ùµÏ%O àÇÇ?_^¢¯YSd‹œ|ÓÊ”%üà‹Ek‘.Š›¬Ù±;QH–òd*YIt‰°e:îB¢µ¾ Ø4ÕèûÜS ÿX2«ñ'‰ŸðëÝh#mÂàaE/ÌmÆnËâÐ÷>3Åûº åc3,}XƵ¶w—’®ŠñúT>h¬nË%’ßE€z[Q·ÿ†ƒ¢ûÎÓxmš÷ëb¹¦¾a2ªctÿ= gP ŽúU‰ÖsKµ ôe7Ÿž4:œ*"·Ài™ù°wå«®Ú nkΦ G\†pŸ=¸aÍ3H[çöŒÝcÆ>Ðüåø×½>$œ[$½ýyq8rµ{$)w/L”V5>pQz áÎÖmøS]Ý#–Øg[j³ #ÁW¤® §ð|E‹Åàxižrþ_ûûø¤ 5é‰ ;š°"ÀxÐ@ù NŸ¬¹Ýý-ì̮耹;bä¬xÏY«Â› ¡]ù·?ö?\®m3^núì±8¡ßw€¼ÿœ'Ÿ±tÌÛÆzTéòàÅq—†@YÙšn‡ÛîÓ7ñ¯–q³p‹°àÉÈâ›"nîð.º%öHå›·yuž¼w—{|qúí›:ùÚâ›ËOÿ<{q³=¤þ[p÷åî9L“oÅtÛ{à 5ÿ¡fcËëvýÿþ«¨tvùê¿Kê¹N endstream endobj 4419 0 obj << /Length 999 /Filter /FlateDecode >> stream xÚÍWKoã6¾ûWÉ!61|èÙÖ—E“-Т7—íh‰Ú¨‘L—’œ,°ØßÞ¡Hʶâõ:À’g¾y‘ØûàaïçÉ›Åäê&"^ŠÒˆFÞ¢ðƈ‘‚"–z‹Ü{7mÄìýâ—«›0Þádi„â49=£L3M°}uØ—whnŸÅIÏîÓ™Ù¤ä²kÚ¿pˆ•h.g~ˆñ4«`I¨y™Ã:Ñ2AžO JIbvŸŸÖëµhïeÞ˜I¡dmFí½d.où*,³{³²æÙÿ œx‚Q¦§(uù\â|ñçÛëgÊƃ²ßìwŒL®?šQÎ[>†âW¹jZ¾jåZv•´Hi)&¤×½_)Ãø:&;Þ£€,XW_Ž=ÿ(H˜c! á1>¥ Š¶ï-¬×íG0=웣8 NQZ!uWµe%6¢2s>”µ/ŠBd­…¥–9|>¢ÙWEÕÕ ãÇÒÆÆ Œd3žòÙ‹õ'kNÙ´ªÌÚ«&»—²ºÜúp»a5Våp´RÃF®o¢Úy¹J¬²Qö¼0œâ¯0Mj''kòª’õPÂ~Ög¼BÛ¤%iš|=i1Aqü÷YKRÅñ Y»ìíÒÊÝ W%_V.Ù6¤´¬r»BK£篥û8ìG}¢ƒL?“‡\G‡“/‹Ñ¦¦íòR4?ŠºAÉFŽ‚¶»áȧU¦‹–ê²vtÞÝŽVO['¯d+¾·‡•C²Aƒ+qTå# ÂàÐh+Þ–rµ¿ÁæTãsSÎmR¹XuÕU>6_ª`wûñ±Éx•i³µ¼Q:óê†ruÌh憕 U—–úœ#Åó„¶Ð»­§4$½æšŽš€^ºëi¬…Xæ¹!Ÿ Á†|gˆìÚLÖÂîq}ãù.Ëg&Ÿ ŸðÊî4Á5?{ûÛ™Õã¥]$ùÆ]$ùz©î x…-Äû¿öÉõbòÏD_¼°G†»9P„qèeõäÝ{ìåð4A,M¼Çžµö¢k¿.í•w;ùc¸•iÿ€r¾ó€¢K",Ø}ìÜí£po Ei2\¯ŸZ5#á”ëBGCë=¸…+[ÎÕŒÅÓܬ\+5 Â)%Ŭf©6³‹ uŠ]˜éïË¿û‹Ú—Á‰ 5±ÓƒF^A„QD övý$šL•ë¾"Eeï}1áSŒ‚Ô¾unºUfªi‰4Th¤°ç`5, ”PJª Ž´h˜IahVñ¦õV!ÊR6Y/¦gžu4@)¸ÐAKø÷r˜ endstream endobj 4316 0 obj << /Type /ObjStm /N 100 /First 997 /Length 2420 /Filter /FlateDecode >> stream xÚ½ZÛn9}÷WðqæaÙ,ÞŠ\xH&Èî»ØÀÎ3äA–[Ií•ä8ó÷{Š2=òE¶dѹº›—ÃbÕ©*v{g²2Ê;2Š\Á+³¤äÂ;ðcåNRÌ¥MVq½Ìê9)"–~Öb$¢HN‘÷,÷¼¢œHASi¥Pú²¢œ’HIY²e䬬 2½3ʺòÔ‘²Á–{ £ÅÎ)˹<ðìd<ü8SÖ€c¹Ç -J»¤ )+­ òF9ÒÃcÕÙÈj=~ŒK˜Ã£ qQ…,†äÇËe”vCù$˜.cQb@fY–I4Œ¥SQJe£‚ósD‚”i5hð®´cHEkÑ«M‘ЗMiç y™Ñ#…ò=r–uĤ"¹2GVѲ芊¾`Ább(Kà)IìlŒELÊŠ£¤2[BßTFfV1—¾XCC"‘b |ƒQ\ö$b –þ‚„½ìš‘[že~Ê ö!=&Ü‹¦Œ†±ì=Ïl¤GF»d V‘¬Â†ËÓlT"+˜ ¸„-ɪä}¹çT E£Ù«Ä®HI¥T`))Vë1|ʱ< *øç`à0H¤²-[ 3ʞʽ [‰U¢Qà9`c!Y•£X'HlJ8L’=õçÌsÀ·ÈPy eÅJ!ceÉQvØÃóÈÈÞÇ 7er‚»A @  ÌŠ»‘‰¦X±L=tÿ¸©îÍlÖ/ºãË“e¹þçxöõ {ÛÏOGóOD`>wÿè~é~þDåâ ; —êæÒ0膷Á—½†Ÿ MÉ¡Ùux¨ºcÕý½ÿØ«îúáèËL_ÎÆó¾_þ¨~úéÿöÇámÒ{×¢@ïƒ6VL=hÐÓF ÓÁé:ˆwÉ¿QGªûõ·ÿbK4ÜP±õ:ÀZf—“ÉçÚø}?[–Aß‹Â J¯÷pNèúïÃõxï±o ݯ.`Ô0—• œ¼’1t÷aÞGX”ê>¼{¯º£ïKõù¶ž> ÎFÝÏ@0š-B;¥¿¨cÑ_·£ÅŠŠÊ½Nǃ·ýwU4IüÄB%sôâ «†Eû L\(]ðJ_ ÖTª`«àªà«ª«ÀU¨#Û:²«#»:²«#»:²«#»:²«#»:²«#»:²¯#û:²¯#ûÕÈŸÛØ%øÈ[§ÇRÖ6–¿ðÍo6™Žg'íÜàÚÁºp‡ÇôÂyÖ òFýÅrD䳕0R_ P=’T A _âHV›npXĶ‚ë ““/g‹7lh ¸ ‚xÍ@—'“Ñ÷†8XpˆeÍH_áHXÅ–G€¼}Û:Š·`'Ý2‹… ÎKE –çÍÉîÑð ÒÖ@œÈ5 K’n„§q|›¶Å(+E’3N'$®ÂæRä8àaköH‚“ÉhÒ< C=TÜ…À`$9a6@·Í°Ÿ-–ó·5Éü¤¯`¼O:ofÑOf--ñKõ¯sÀ_‹4LþrÒ)ð«Å[‡üˠ¯8$Þ¦§a¬m 5ÜDZN¡*œž3)<‰gpy6œµ¤T˨Y-E-§lá@r”ž36¼ÚöX¤A\Ž£–ÓETk0á7–:fwG.õ¼»Öó·Jø[ÅýÆþv¡oð$ìWЇ|¿ üü‚>ÔÂ7Ô’:Ô’:Ô’:Ä–5±dM¹<â¯YÕƒ Q3 M›ÍÖ}>Z,ƃYÛhiä¤T²m¬‘"Hñ2„ sŠ¯ùƒ5Ј%M ÿBþ`bRAò+AR ‚¡ @˜ÜÞ@šÙ(ÊZhu9º4ˆrì£ 9FEµn³ÅõbÊZº7‡‡e†îÍp9îgÝq÷Ÿ£_äÿçËåÅâ¯]wuu¥§£åàK?ÿËżÿ³è~~öãi;¸×˜ ÐXŽräEÈv­^fny`(gÈÁTR *²Ýab¸Ï0ÑíÆ0ëzˆ¾Ï®­ïÎÊ×ô앳»¿r¦çsk¬'±ž@Æzɦé1ãõq»‰ˆ“H-¥Hv”Œúcs67Ÿôô¼ñå?qd³[á¸-û–9\2—ŠÄ¢K0¸mœM¦-úBÒò¦¬A‚·Ã1ýv/ea»[­7®ü=ÐÓ–­ƒK±vf«­Ü‰©týŽàù>û@>Äü|¶âÔŽ­š/6=@Íi[jNùA%z„…¶Ú°byÓˆ¬¸VF©¼¾¼ÜØ1dçXþz´î.ïPÂ߆“Ë“ãÁìôj<<¿“ßÁ)Öß„p–2‹^¦µw:D~™ÖH=&±]kX¶–WsÛµ¶ŒMtyÏDe3´ð†Ì÷½!‡=¼¡–B¹¾Ìõõ`¾yT«¤ì›ÖDN^Ä€Ÿ-Jù%Hrˆ¸ŸÒæ81/†úèt°8×óÑp±G^_22~ÐIÉ-C$Ò1…×pæ=5(6Ig´ ÂFp%W>Òi£/æãÙ²ÄÛËٸ剒Ԗ¬íçvøß÷-JÒòuÊ8_6ÙÃÊ,òD§Ë€ œ–‡[Ae­ÆÞnÉë PÑæíYÿmpJá¯wëo²¢ŒÈåhËÖçØ»ÝÓ[x«†#xú*i¹Ë ûâ¿G“òÍÑsiR¾pÚ+i¨•~ð0Fú³ÒûÿR…¾|¡µµ‘Üjü¤‘<ØÚ£ÐyëÖHË£F´Ýœ[78 ðt¿–Ìžo9×Õ¯|ÔÖ¾ú•WÂò…^ýØ ™1*¯Çk¬¦œ/Ü.o3*k@¯òþi ÷‹=O;{·ßXBbôqËÖÎgÌøBg2M2>OùƒäÝ ò–Ò.*~à<ÐËšjämO|nëÿ4 endstream endobj 4430 0 obj << /Length 1214 /Filter /FlateDecode >> stream xÚ­WKoã6¾çWÙC%4¢ùÐs±)š¶›{tÒí¡é–([»²iˆ’\úÛ;)[R´Ž·(„Cq83üæ›!g«žý~õËãÕü>ˆf JBÎóÁ1?œE„ %³Çlö—èïþýøi~’žªò} µJJh+lMƒÝ°§ìuÚà#3{þP|5Üö­q~ÏX?Ì a`¿sþ„,—_DZ߸^€±ƒ‚oD[ œ' £ýîQùMä¼)k3y`f܈z-³÷Sû.ô½ 9—•Ò’+eÀúà⣾Xp0* |”ÄG…j笀Î)CSF<Â|ä'á÷tœZ FPŒíÁï*—`gÕlĶVg³ûFVMcZõé…íÈ·®GÜí3rnÆПAìã5àxmÏØ÷CHuZhÒш!éÅP0fB—CÖkQ™¨9@wP¢)ð¿Ý:HÀg7¡/›éÒWüô;ãyï’À¥äPÔk#AtFP5ßf¼ÊÌLT•¬¦c|Eô¨†JÓLu¼º8RËÒ?Ýò[æ+7€Ô¯LŸÝ;…H×õ’7ŒÚÍDî“r„ýÃa¿üŠ”Cqz»Jj!Y­~šàB`Ën½1á#Í<« z+.^ÑcPµëºÞ©÷óùáp@g]nNÏý9ÞÌ‘¤3§œLK€‹$fa!rÑÒKlS¡þ UÆXû€NŸ@j€ÈõX·àSL°‰Î aåW¹Íš´.tÒXéÖÈ=¾åå‹‚HÚ]ÅÖ,-Ì`è§Zúu›Ú>ª¿îxúUß%ı„A/pžý8îpúäÒÀ‘M)hº{Þ >Ô¼.T]¤Z[³éAæõ*“EŽ˜àF!€`@Q>`ᄤ½#OiÅL£wcü“'JC?FSwEÓ1½2Yh&Í F$Y4ÿ¢Úc¢³É‚ (òƒŽ/‘ÅAغ¿+•üF[‡?·`ÅÅ›M:.j¶Å9šÃG£Z»Ä•¾ýhï†D›õ974Añ‰$ßé‡õýìD-Ï<äÿð´*7›7=yÔ¡Wf—{¤EÑÄýY‡úb[žÔœ¼ÙB¹Ë­2S@§Ÿ0¦µ j#3QÚåã¶ÃºH×F<^6m¡R u'ÃB57½î»·ÀÒ’Vèûì¹®xZ‹ì¢[êã3ßìJ¡.ŸÆ`,ô;’“HwoAû„&’6%¯…™–re„ªP_­ÝF*#ëL™m²ª„ÚAÛl{¦þ¤ttÇÙžWïúxûÅŒ}¿gܾq?xfJÇ¡ûÊFpÕTâöz±¸¶/=^ÜÖ;©ìl ³­XÙYZܦ§µ f§5ðÂoáZ¦«þ›”1yaCÚÏ"óDžÃugOÝRÁˆ¦í·Q-•,›#nRÝdbÓ®Y–Ч5Ó̇ÁíC›÷ŒÄš(HUB ‘Âk˜^ {È}'€«zk†º8ËíO1Œ üd¹?‡š0~S*À"-º÷Ñ®5 ×õ1Àþ›™øh/Û–mÇ·^«c*mâæ—CÏÏ«Jùøxõ/û endstream endobj 4442 0 obj << /Length 2151 /Filter /FlateDecode >> stream xÚ­YÝoã¸Ï_!äÎÖ<‘”Déa lÛÛ¢‡ëµEÒ¾ÜPY¦mµ²¤åd÷¿ï 9úr¸‰ì‹EÉ!gæ7¤Ãà„Á_nþxóÃÇ„Ë‘÷û€‡!“Q(ÎY"³à~üº2º:5;]­¿ÿ釱šÍ—YÂT–7;SŠ'Ý„´Á÷7Ÿn84À¼•²,ãAqºùõ÷0ØÁàO eiðh§ž‚¶W‘„vÜÝüsäwùµH9€‡,‰x$‚…*z*À¸$ ËR>Hr§+]ôeS¯7"WÃåÆ®÷ËÃUú™ìÙãÄ£|è²d°ù³6EW¶ö(óãOb, ÂÓ`ÃS–¤nõÇs=“¢oÜ÷·0½kš¥œVM†‘¥ç‡Û gƒt°™ü ½GzzÄ¥‰–GŒó[‡Ÿß­7q®cÐåÈ8l„díúÝwnÆtß“îÍε÷MçE•ãdP tóˆÅj´ñ÷nÊâpÑÝ)gçºôp’K“ì9FG,œe Ê¯ Ûi55óª×]÷åƒ~{ètÝ[k;]PÓœ·F÷Ôn}þΪ*‚SIA;Æ´c¯[3N-€§)ëÃû~¾û‘ȺÛ6F/h»òPöú¢©û®©žç#àtösœ|èÖ<\Î']÷æY¼<“ÏÞ»€½JÀnb°GNhn¶ÿpS{ï¾3l,vSœÉÉò·dú[OÌ#-ÓLvq¬ d’ñ,†F_Š§hðë…)Žy—„õF¦)سû¹6ú³¥µº(÷_ˆxÔÔÀml e—i6wv$[$²õF‰hõƘr[ l¼1®“wÚ£¯p ³Û­îsŸ¶DÆÒ4„yçu¹8”£âyµ¯›îäÕ<ðâòz^µ>èÏí­7o±4æ×sªšCiú²ø§j›Gðjß¡AåZñ€DÀ»šƉý¹~ð>V)C–ªì}éçI­gæõÎÃZp°ÔˆÇR›þeC°%ž? Á`«i›í-âÕC áu÷‚ÿ¦’ÅBÿR$šEé7¹±HãÑE¹´Œ´Á±cÝGM¹Ó»ZCвtÇæãÇu¼úÒ6Ð7%Íy<êšfª¦}Üà±Ý ©u™œº‡5WòiB8÷EsÒC¬šB„Bvü!‚'1“rŠ©CBó™.eéTFbv´‡EÞ;½Ç’Ÿ«ÓŽ~±‚Jk欠¬kBÑ&Š@ŽÎ‹ç³˜óKùâú…L¦Ô”exâA1(*=ÃE¯ê¬Q †b†ÈÔꃇ?‚x Ï°WOØ“6ÂAc«çRRJ¶_ÜÐØ“àK!äYk‘ÌV’K­)\þñ6æÆ-ž“p¢@ÉáÆ–ÒÆ722ÝA±ÑÙCÁè(ÆÓHxu#hOEäW”£XrŸr`ËDzªH^ùÞÆŽX†‹Ï S«ë–tís'Çûß…:â¹:pFˆ ?m@qï'žU$pš1¿|ðÈ…­+£ä’‰T.ÝÛ^â¯wïÉ¡ÃdéÐз^ªUSk"ÐÀ©éô°„4oÜT—ƒqÄ"t±èlhh«ÝdA¸hØs ÝõyY¿"*¾&fC$Þ8®××”52Š0ð2A&°¢u4ã¨}ÑEqþ"ÂU˜×žíOcÏBG e!ÚÍ*‚O¥»ã6–îŽPú^^Dš°0•b_¡^, \(¶¢B] "^„ƒ¿ÛB±ô´Eª½"==K²87Á”÷ÏÝŒ!¨©Éõ_¨x„ÇVKǦ§·7@U*ájvøN5»’Tq®pí¹§YÇæ\í\Û"&t­;-íôši¼í¸µHðÆ,h†ç 9`1NÜ#se—‹³É„ ì,°!âØ ÌyühØMèú…5#¹<Ó¡½1hŒP1… µú÷v]èp³¹ë j| _øš‹¦5€]mB7Ä;MÔÿüÒôúû7”~ö¥öMµŸ\Šå0¦$]¦:–s@´PhÉ2.ñk«¼°±`ÆŠŠâ£¶Ãw¾\xPPêA í!Ãt͹ÞáÝy¥|õ×½Ë.çz–yÞ¡Ã’ m€ÇÞÑÊ!»5ôÍÿ‡sôó¨1+C°»ïš“ïÔcá_Ÿ¸è‘ýM·ض*ÍåK71$ÎRMLÿ•, #*œ¦»Huhº²?ž¾Pc¯ŽÒ­½uOåèEA0ûŸñÿTÚP˜ endstream endobj 4450 0 obj << /Length 3387 /Filter /FlateDecode >> stream xÚÕ]ã¶ñ}…‘—h5CR¢D½MÛkS4Ú[4I€È–vW©,9’|›Í¯ï ‡”(™Þ½&háSäh8œïŠoî7|óç«/o¯>{­²MÎòT¦›Û»àœÅIºÉ„`iœonËÍ·Q,ÓëïoÿúÙëTx q¦X–j@d€†ª9teÕ ä·öÔ{eëÞÙÊ &czóÕXÔÍ°xÑC° ^KRE¯¾©šj?Ö]{ ¨ãÈ0à8‰Š¾¢É‚þꋆöM1X¸înýnÅh_Çêp tì¦óÛžüúâ¾²¸û“u§qo„e`Ûrq t:œZåQqèN-jlÊIœ0÷€”uhõøDKF½`iz¶3oÑvP+1ÄÞ[ ö]ß·«òSZ!ñ`#Z€ñå ÎFâ@ÆÔ¬BÆ$’Ø Ì@RµÛžb­étÚ¾ðÙœQk ;‚jZŠà™0hÏ arWÁQì  œŽŽ¥zÁÚC<ÊXüûZðÈÙß±)ör’]oUšD·†\µ¨Œ àáîÔ:Ìð+Gcä ™?¨âµWÐו‘L8KNÆÅàÈ#^$‡fvUÑíµ¹\ÙÀÐÝ \Àè[KÒðК2t¨#ùKÀdÌÎÑí®·"úñZD°)-²Gãfàé±hd}8uø1½éÑ·ÓðŸèâãØwñ2f\KVúCÁNm½Ž*~Pˆ5S£_µ¼„ø %Zzx‹,´Yâû-–k¨iÛ(G“Äþéöê§+a`±4L& ø8Í„Ò›ýáêÛïù¦„E0&ã" èaI £fóæêÔ¹YÒ4¡‚t4þx½MôÂLLê*\)Œ€ß`UQ4åý¨Æcê]ÒÊ›÷ôH%¢…˜ôѵF 5âLŠx©¸íɤÜK®Á¡;§d9„™dr©-ü\[–¤ mù< eP©Lza\†uB󋺙˥¶l(äy(ŽAQ$¦XÑ7é¹ïv P¥ñ»P%d‰€.YR{¼àž‚ðÒÜKSG [!Ï>ÚàÏlÐèß9GAŠÊ£Jñú.d †?ó½ü¡Õ}[½ú侯 xü$€[p •k»%„9äG^q=Ãh¨¤ÿ¦œN_ä4$¾ øj½Ê|}Ž7Õ0„Ø­s–¦É’ÛPPH¬(j¦Y>·.±]ÒéÕÅÓ§ŒëdãÁße¦#‰' ÚJÊ„VÏÛ h„¾`)ÉÊRÒ)«ý1$b¿ÿ‚„—g\l4‹X-öÒ«­|CÔü€ˆ_֌Ź ZÜøرÛ2hs"ajâ¶,I\5µÙ292‘%ÐÄyÏ*Ñ-Öé™íJdÑhZ ÝÖ`±Ã´—òÞPûøPõUÀ B½"yº–î%fUód®[09,!ÔÉ¢ýé`š–¸¿ëñã| ‘µ¯w˜ÓŸlųsÿËœÊtT4µH2ŒÇmYôåܹbYŠ´]0}Ÿm€¾È£×Ø©˜û*¹”³KÈHfßûri ÷%Ƀ¹–ž‹é¬øã}X 9Wºñ‚.Kpä1X¹«"ájK#@•¸ò8ŽúêL|0»îkàœ-£ … ë–wEË*ûÞÃØ® rO[iÂèÁ\é{¹¹-Ûü‚ü«»P•Œþ-dù1ñhYY°4™(ú‚¼v€p4A‘ýj”ƒnšJ &ª…Òsð|—rS¨‡rÀÄ“~VWׯáê S€ÙY¾á"-Ð!ŒBªäÌ‹Õ9Ô!+fØ›¢€Çá\µÿ_8åGU,kDΣÆ^L`óŸMÝ„ƒ|sãfý.ŒK†¸œn&Öñ¯Itþ¾).x|GYeõáØÔtºì §¶sœѦEO'É)¾¦¹½E°=ì:@ˆnž,žú¾¥æ\×bˆãØ õÊs" {?y8¦ÔS*|ÌKye.Í7N®gÂÕY¥²Ròεýœ§ñÜæŸÛàYž§ZÓ¾¿‡‚w8 ¦éøFÞS‘¸âƒ†’-}ÿüjëÞ\¤³ÀÏÛ½®‹¸zVWg7Àöl¶!=³¡/óy…4½¶›”uO$±KŸ‘¤ 7 Á l8*÷Ê—Õhcã›åéÌuÆçFaЄ’7³ú&lvP ¨LùÝëWŸì`¯ëU)ñ{CÍfŠéYîçxçWØÁÎ.ŸL»gðÎgLKÚN9$?ìèœËK@\1çO-Î'šûC=š…îúêý/´ì¾@ØjÁâl©(ÿºB€¦N:k¹ŠÎ˜žÙËÀ°Î—F–µÛpóü ƒŸƒÑµê…Œh÷ ø Q.<×æä÷?-L„}î ¥_Þ5ú ›Â}ÄåÅà˜¥RbxÍsË—HÅ28£†Ýf ¹¨õ;o)“r e"@ÔVÄ,C…Aû{¦³J$Ö›Y6í'CE4Œ|ñˆ %tv^Œ¯ú3ø-Ú¯ñÈHcÓõ~A4b!yA4ù»‰&]‰fåõø2°¼:˜2Ê>tUs¯¾MÏ÷#Åó&‚ Öty9òE°«ˆ1˜_N‹Ž_ì˜r½/ÉòÉ黜>G2] XFÞ’‹–¶á-3±nxãT á+Ôð—ÞÙKýnÅr™| \õs< º°“ÞS$/ìÑ% j¹Àxò›}e?Á²¼µAR@lìˆlÀ­öîž"Å{¤t•›lXGmGÿ‹¬˜¾³èé¶SØÑBÙ/5E=F_ݺIô{÷§Þ¦½þG7°X7Íi{÷M¢¶þ˜½íÇ‚ÚÿÆÆB=ø8.|•hXdéyÃ"³ý¥lymÓ”À|Y«ÖÁÚ9ËçlÕ¥ÈRûõ ¬¸+Êî4Ð }âd¾ð¦Ñ8IYì…÷Râ•[‘2y§‹b‘| ¯|ÂêJÊ~0ír$KýÝö¥øÔòr%ïó ¨IÜ6Cºsé–ÍÊڮݺ¶»ïèžÉ´ÂyõŸn¯þV§2 endstream endobj 4456 0 obj << /Length 1792 /Filter /FlateDecode >> stream xÚÕYKoÛF¾ûW=Qh´Ù÷rÓæТIÓ¢ RÔ·¦Z¢%6”¨’”_úÛ;û ¹W¶$@Œ9;œç·cœlœü|ñãåÅó×’$iIeryŒã2Q„ Étr¹NþJÛ¢ÚÕë¢Zü}ùëó×BüLK¤´i–“Qe˜.°ßàÕ圄PW Ç$³dµ»ø÷ E8·Á£]ê¿ó„ç¿ìxòS}ñüë—–½Ìe Ôži¢cÏÅ4œ)NÓÚÅ’2œ¶Çͦh»b ¯T§WwŽüî´êéMûÁüø…÷X`Š)‡_òÌXÚm ·æŒdWùÞ ×Ê÷S»¼Û`½kŽûUÞ•û£–7 *Ò¼:½†»¼ªŠÆ±×±/œ~ Ò¦ʛÉÒå4²ÛÃÓªhº¼Ü÷ä¦h·uµnÑbÉN/­æâD;x«®¬ý‡× ãøV¶½¸ÂS6¥ÑùƘ©'Áùl´It1‚¸¢É’‚ò$sÊß:Æ,àSˆcÒÇ”±xDC™â=ÏÁ3àD"­Xf¶‚5w\å|'†QIÀcü 'PYúl$iú_ì ‘=¼9Gœf½\"Ÿ²ÎsÛK :b¤µt|Ä c08j»Là*o°ID©ê•"¥–„!Åd²Tˆb1± áÁñ(Fœè„"¥Ô°!Ï>…n"a§XL½âÙ¤è  æŒ,”qñ…¼=æb‹#BøCÞ#Î{ÞNôŒ÷t0÷ž<ñÞ¤Œ™´Bà<*fÔçζhŠù9i†(Ø ò!ƒ²‡ yn x^F‡jÐfÕhP¡1gü´×„¿Ë?FĘ¼”ŸR8À±,æ ¦¦g'AÝR‡‡ÿn±$RE­©çä1á)Ï„çé †dð›Æb3kºo$g÷9`ØZÏXz¹ÈpZC©ÄÊV‰Îì¾ÈpÐ!ëÍÚˆlªÓÃ<Œ8îŠ}‡&@®ÿ…ÏehOH7$õIG“W×Ë·uÀå™Sñm±Œc|wcþ+–¯>Àíû®X~«7eÛ•+ÿšï=y· ÆãðÕmoþœ¢“ßM,µ/"§Ã¶åiî ï;€?]ÿUÑù*†²Ã|´pˆ ½}|`ڴݪ<½¾>a¼®«ª6ÁuëðÝyd5¨?±®FŠ °-E<#î û|ó6!&Œ†Ò×ÝŠˆ@ÅAàg0^$kH01Íš­ñòÞz9¦†L CµøÆpæob9ªõÃAóS|<„@‡AlŽtΗ‡UL)Ð4àé‘×DÎzæ…ßuo(DL‘IhHÐggÍáEB³{X˜0Ÿ”u¸lP[»à‚°´ä1ÿ<ûbvÿBG<"tÄÓ sÈïS ‚˜8鸕/öð}ÏúÔ½Oc-¦as^²–ó!D4ÂZ|¦ÊBì Ùì¸û2V¥àB6½†Bˤé·îç¼Í8`Aªž~ÚK=¦06õ(ÂÜpp€¤h‘{‡øžzâL˜K2Íðþçóš<é§sví1ÞNŠ*t¯5ôo‚|ûv³¼L†W>y°ÚÏ(aÅÎñ€”¯×âÉŽ±õL{ßö„¶Ü•fÞèöjêCÑteás/Ò!` Øí<1„Ó°ä&„§£Ì£3®,Fg\:Œ.ñ£{Òkƒ&ê¦g¬Ü—n_sÁTñÛöØ£æéOS°½x »5é``@Edð@ÕÙɽpv‰2ÂêEÒ¶vZwÛ¼sj{ýåx/pôrw¨î<‹cØÕûìT.­áú¥‘$7±å Ä™1³ÐéºX5EÞúkˆN›¢Ê­ümyp”«¢»-ìôV7Ž£ÁßËôÈ2¹GhWùUY•ÝÝB 3&`,½de˜Sš‡á”Ïb¡ðfkDýt0ƒ1Îxq½IjîøPÔô0;ºÖ´Þq|i\åóA¦ûÚý62S¢úd•¶YlŽ»*üuѵuo^X×äœ7"jG­Êön]•Ûº^;š½‘šÔ ‹€ôi ¿.xL1Á'm:òŸÝlOâÂ\u›X‚ACaJÞog…„bMÑŽÚYA v×us¢œS­)ëc{ÿ¥Û½Þš¿cĆüRR}ºî±ŠM„£gg±ÙÊ«Ë‹ÿŽ™ì endstream endobj 4447 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/selmodel-beta.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 4459 0 R /BBox [0 0 504 504] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 4460 0 R/F6 4461 0 R>> /ExtGState << >>/ColorSpace << /sRGB 4462 0 R >>>> /Length 22841 /Filter /FlateDecode >> stream xœí½K|ÛuÜ9¿Ÿ¢†Ò@Ô~?=‘aº°H ‚EÁ’“’mºÛ_¿ÏZ±ëì%Ræý÷°5à½7X•‘•¹NžÜõ‹¿þê+ýã×ûé?~ý·¯>1Ò×,¿Hé«Uü+ûÿ÷ßóõ}ýÓOþ»¿þñõï~ùSz~–¾Þÿüå¿û?*¿(ýëþô7û•¾þî§üõWÏÿþñ§l¿ðõü4«9µÙ~‘ë×ozþŽü˜l·\oÙQn9ÞrÜV㶷ռ­æmµn«u[­_¬ü’ûå–ã%×óºoÙnù¶Zù²zäeUn«r[•ÛªÞVõ¶j·U»­ÚmÕo«~[ÛjÜV㶚·Õ¼­Ömµn«çm//ù¼í·/¹Ÿ·ý–í–o«/«G^Vå¶*·U¹­êmUo«v[µÛªÝVý¶ê·Õ¸­Æm5n«y[ÍÛjÝVë¶zÞöú’ÏÛ~Ëñ’9=ï{Ð-èué|Ù™¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üVð{ªÑÞú)GÐã­í¶t úòËùö{ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~3ø­à·‚ßSþÖÛ¾ý.=Þº<õº}ù•|û=úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áï©Çxë§A·®O=‚nA_~5ß~¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üVð{ê1ßú©GÐã­ÛS [З_˷ߣo¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üžz¬·~êôxëþÔ#èôå×óí÷èÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð[Áo¿§û­Ÿz=Þz<õº}ù|û=úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áoýb§·Þ¿¨AÏ·žé9èôå7óí÷èÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð[Áo¿§ù­Ÿz=ßú™Pç {Зß3Å®Aß~%ø•àW‚_ ~5øµàׂ_ ~=øõà7‚ß~#øÍà7ƒß ~+ø=õ(oýÔ#èùÖÏL;݃¾üž¹w úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áï©Ç{~øÌÇkÐó¥Ë3ÿÎA÷ ÷¥óågúö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áï©G{ë§AÏ·~æß9èôå÷ÌÇkз_ ~%ø•àWƒ_ ~-øµàׂ_~=øà7‚ß~3øÍà·‚ß ~O=ú[?õz¾õ3ÿÎA÷ /¿g>^ƒ¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üVð{ê1Þú©GÐó­Ÿùwº}ù=óñôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~3ø­à·‚ßSùÖO=‚žoýÌ¿sÐ=èËï™× o¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üžz¬·~êô|ëgþƒîA_~Ï|¼}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà7ƒß ~+ø­à÷Ôc¿õS ç[?óïtúò{æã5èÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð[Áo¿}íÌšnA¿·yË3ÿ.AKçÛïÑ-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo];¶å™§ [ÐïýßòÌ¿KЗß3ÿNA· o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿umå–gþ‚nA¿7†Ë3ÿ.A_~Ïü;Ý‚¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸ[žùw ºýÞ®Ïü»=./?Ó-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹õ™§ [ÐïýáúÌ¿KЗß3ÿNA· o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíçÖgþ‚nA¿÷‡ë3ÿ.A_~Ïü;Ý‚¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸ[Ÿùw ºýÞ®Ïü»}ù=óït úö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n}æß)èô{¸>óïôå÷Ì¿SÐ-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹õ™§ [ÐïýáúÌ¿KЗß3ÿNA· o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíçÖgþ‚nA¿÷‡ë3ÿ.A_~Ïü;Ý‚¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸ[ŸùwºýÞ®Ï|¼}ù=óïtúö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n}æß9èô{¸>óñôå÷Ì¿sÐ=èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹õ™ç {ÐïýáúÌÇkЗß3ÿÎA÷ o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíçÖgþƒîA¿÷‡Û3¯AÏKçËÏtúö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n{æß9èô{¸=óñôå÷Ì¿sÐ=èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹í™ç {ÐïýáöÌÇkЗß3ÿÎA÷ o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíç¶gþƒîA¿÷‡Û3¯A_~Ïü;݃¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸÛžùwºýÞnÏ|¼}ù=óïtúö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n{æß9èô{¸=óñôå÷Ì¿sÐ=èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹í™ç {ÐïýáöÌÇkЗß3ÿÎA÷ o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíç¶gþ]‚~ï·™®ýaÓ-èËï™— o¿üJð+Á¯¿zùýÒõÿ€îCŽÿ€Ž¿ë·_í-?__¿ ?‡Ρû@ùþ9åë¬Eìõ ”¯_°=œ×/P¾aß¿°ã/´ßû^¿ð¿â{ôëßýž÷èw¿þ§Ÿþü/ËWþúÕße7IçЙÃ0¿úíן›=1&Ãó'ÆdøØòĘ`¨sbL†ç†œ“áñ'Ædxî‰1pbL†SÐ'Æd8”{bL†3¢'Æd8"wbL†['Æd8@tbL1eŒÉÈ((cLFBAc‚^Ïc2 Ê“¾QPƘto:1&}£ Œ1é eŒI_((cL°IvbLúDAcÒ' Ê“î+¨'Ƥ”1&½£ Œ1éeŒIï((cL0ù81&½¡ Œ1é eŒI¯((cLzEAcÒ=—àĘô‚‚2Ƥ”1&€ˆOŒIÏ((cLzBAcÒ Ê“î€Í‰1ieŒIÛ((cLÚBAcÒ*ª“¶PRŘ´‰š*ƤMU1&m¢ªŠ1ieUŒ v¯?'ƤuV1&­£²Š1i¥UŒIk¨­bLZCqcÒ*ª«“æ«1Ÿc‚Õω1iVŒI+¨°bLZA‰cÒ2j¬“–QdŘ´„*+Ƥ%”Y1& ý?'Ƥ:íü91&u£ÒŠ1© ¥VŒI]¨µbLêB±cR'ª­ÐŸcR½[üsbLê`½cRëÍ“êÝ„ŸcR;ëÍ“ÚYoƘÔÆz3Ƥ6Ö›1&µ²ÞŒ1©•õfŒIõݱω1©…õfŒI-¬7cLjf½c‚ռω1©™õfŒIM¬7cLªé>'Ƥ&Ö›1&e³ÞŒ1)^¶Ï‰1)‹õfŒIY¬7cLÊb½cR&ëÍ“2YoƘ”Áz3Ƥ8½÷91&e°ÞŒ1Ýô91&¥³ÞŒ1)õfŒIi¬7cLJc½cR*ëÍ“RYoƘ”Êz3Ƥx·ÒçĘ”Âz3ƤdÖ›1&%³ÞŒ1)™õfŒII¬7cLJb½c‚Õ÷ω1É›õfŒIÞ¬7cLòb½c’ëÍ“¼XoƘäÉz3Æ—ÙçĘäÁz3Æ$Ö›1&Ù§BŸc’;ëÍ“ÜYoƘäÆz3Æ$7Ö›1& ?'Æ$s¼¥“ìtÐçĘäÂz3Æ$sÈ¥“Ì1—bLrf½c’3ëÍ“Ìa—bLrb½c’ëÍ“Ä‘—bL’wC|NŒIÚ¬7cLÒb½c’8úRŒIš¬7cLÒd½c’8SŒIòդω1IƒõfŒIâL1&‰ƒ0ؤÎz3Æ$5Ö›1&‰ã0ؤÆz3Æ$UÖ›1&‰C1Ř$§µ?'ÆôðçʤÂz3Æ$q8¦“”YoƘ¤Äz3Æ$qD¦“äôÁG1&¶»‹z#ƤnÊcbõÆÄvQoĘ˜F½cb»Ï¨7bL|wÚ_/bL|÷:S»ÇfŒ1ñÝïFí~õFŒ‰ïžãù;ü8>cŒ‰ï¾ãõø5Ö1&¦QoĘøÊ^ï„_e½cb3VÔ1&>ƒÔ õFŒ‰u Þˆ11z#Ƥ‚öÿ(ÆÄ4êI½iÔ1&Ö 1ýùcbõFŒ‰uW Þˆ11z#Ƥ‚–ø(Æĺ5PoĘ˜F½cb:ùëEŒ‰uƒ Þˆ11z#ÆÄ–‹ž¯Ã¯³Þˆ1a7ÊG1&Þ­R¨4êïvÁóOøi¼†ï–Áë]ð+¬7bLL£Þˆ1©Kã5ĘXwêÓ¨7bL¬ÛõFŒ‰é6©74êëB½cR‘ÎñQŒ‰u#¡Þˆ11z#ÆÄ4êënB½cbõ¶y¶i×fƒßÀRcLL£Þˆ1±î+Ô1&¦QoĘ˜F½cbÝ]¨7bLL£Þˆ1±î0Ô1&ìû(ÆÄ»Ë2µûy7ÇG1&Þ†×ëo”w¯uê z#ÆÄ»ßu7XoĘԩñbLL§Bm~c³Þˆ11z#Æĺ÷PoĘ˜F½cbõFŒI¯!ÆÄ4êë.D½cbõFŒ‰éܩݯ³Þˆ11z#ÆĺQoĘx7$^ï„_c½câÝ”xþ?§'>Š1ñnÌNýü¡Þ­‰ç÷ïæœÔÓtf½cbõFŒ‰iÔ76ë&E½cbõFŒ‰u£¢Þˆ11Ý'u‡F½cR±›öQŒ‰iÔ1&¦QoĘX÷,êÓ¨7bL¬wùëEŒ‰iÔ1&µk¼†ëîE½cbõFŒ‰u £Þˆ11z#ÆÄ4êë>F½cbõFŒ‰u3o<ŸÇ˜xws¢žÐ^oƘxwt¡îÐ^oƘxwuwáÇñcLØýQŒ‰wooêíõfŒ‰éŒç÷ë÷z3ÆÄtÅó7øq¼Æ“ŠÝíbLLg<‡ÇkŒ11Ýð|~õfŒ‰uÃJ½¡ ž¯¡ÞŒ1©æ}cb:-j÷óÛîG1&¦+žßcL¬ûê ÝýùcbÚëÍ£ ¼ÞŒ1©ã5ƘàõfŒ‰Ó þüˆ1qš!S›_õ5ðbLœ†Àó{Œ‰ÓÚü*ÇkŒ1qÚbQ»ßd½cbõFŒ‰é\¨Ýo°Þˆ11z#Ƥ¢å£Ó¨7bLL£Þˆ11õFŒ‰iÔ1&¦QoĘÝ‚z#ÆÄtéÔÓta½cbõFŒ‰iÔ1&Fß Þˆ11z#ÆÄhÔ1&¦QoĘ˜F½cR ÇkŒ11]µù•Åz#ÆÄé£DÝ¡QoĘ8½ä¯1&N75ê z#ÆÄé¨IÝ¡QoĘ8]…çŸðãx1&¦QoĘ½…z#ÆÄ4ꣿPoĘ˜F½ñF˜F½cbtÙJÔõFŒ‰iÔ1&F«¡Þˆ1©XFù(ÆÄè7Ô1&¦QoĘ˜NþzcbÛ}¨7bLL£Þˆ11:õFŒIÅeøQŒ‰iÔ1&Fû¡Þˆ11z#ÆÄèAÔ1&N&ê ]ð|~õFŒ iÅbLœfìÔî×XoĘ8 ‰ç÷‰‚Ó’›zBw½ˆ11z#ÆÄhLÔ1&5s¼Æ£9QoĘ˜F½cbõFŒ‰Ñ¢¨7bLL£Þˆ11z#ƤbÙó£Ó¨7bLŒfE½cbõFŒ‰iÔ1&FÇ¢Þˆ11z#Ƥâkã£Ó¨7bLL£Þˆ1±ÍuÔ1&¦QoĘ Œz#ÆÄé`<¿ßœ.ÔÓte½câôq£îÐiP»_a½câtó¢v?Ž×cbõFŒ‰iÔ1&5q¼ÆÓµS?~Fg£Þˆ11z#ÆÄtÞÔÛôb½cbõFŒIÙ¯1ÆÄhrÔ1&¦QoĘŽz#ÆÄt[ÔõFŒ‰Ñî¨7bLL£Þˆ11zõFŒ‰iÔ1&¦QoĘ?'u‡F½cbt?ê§ý3õ„F½câi•ºC£Þˆ1ñ´½ˆ1ñ4‚I=¡QoĘXšÁNÔõFŒImñQŒ‰¥% Þˆ11z#ÆÄÒPoĘ˜F½cbõFŒ‰¥9 Þˆ1)Kã5Ę˜N•Úý:ëÓ¨7bL,mõFŒ‰iÔ1&¦QoĘXzêÓµP»_a½cbõÆf³iÔ1&–®z#ÆÄ4êKë@½cÂôŽbL<Ý£P›ßÔx 1&žÒ©4êOÁóûÆ‹§,j÷›¬7bLì_¨7bLì_¨7bLìa¯wÁo°Þˆ1±§E½cbõFŒ‰iÔ1&ùŘ˜F½ñF˜F½cboêÓ¨7bLìm_þ|ˆ11z#ÆÄ4ê“25^CŒ‰iÔ1&vY Þˆ11z#ÆÄtö׋»ÌPoĘ˜F½cb—-êÓ¨7bLL£Þˆ1±êÓ¨7bLL£ÞX˜³ê“Zñ£û˜¢Þˆ11z#ÆÄ4êûØ£Þˆ11z#ÆÄn#¨7bLL÷E½ Qoܸ춄z#ÆÄ4êÓ¨7bL춇z#ÆÄ4ê»m¢Þˆ11z#Ƥ ×câ·åL½ QoĘøm½RhÔ1&þµ0¨Ýo²Þˆ1á×ÊG1&¦S¢~žö5„z#ÆÄ4ê…rûZ[zA{½cbÚëÍûšôz3ÆÄ´×›1&öµëõfŒ‰i¯7cLL{wcLìkÜëÍÓµS»Çkhtocb:oj÷ãx1&¦½ë†1&¦S¥6¿ÆñcLL—Am~m¡ÞŒ11ÝuƒN›Úý&ê͆êç‰|˜†ç÷ Æuêõ2ÝQoƘø0qQh¯7cLlXéõfŒ‰i¯7cLl˜êõfŒ‰iÔ1&¦QoĘذw,êz#ÆĆѨ7bLL£Þˆ11z#ÆĆå¨7&¦QoĘÐŘ˜F½cbõFŒ‰MPoĘ˜F½cbõFŒ‰MKPoĘl+~cbÓÔ1&¦QoĘø´ÈŸ1&>mÊÔõFŒ‰O»*uƒF½cÂiÛG1&>­›ÔÚû7cbõFŒ‰MQoĘ˜F½cbÓNÔ1&¦QoĘ”ÊñcLl‹z#ÆÄ4ꛣވ11Ýñ|>‘7z#ÆĦ٨7bLJáx1&6mG½cbõFŒ‰iÔ1&¶ °2õ‚F½cbõFŒ‰-3 Þx¡lMþ(ÆÄ–)PoĘ˜F½câˉÚý*ë_&)ÔîWпÁ.³|câË0ƒÚý8^cŒ‰/ãlêz#ÆÄ–}PoĘ˜.•Úüòf½cR2ÇkŒ11z#ÆÄ–¥PoĘ˜F½cbË\¨7bLL£Þˆ11z#ƤdŽ×cbÚû7cbËp¨7bLL£Þˆ11z#ÆÄ–õPoĘ˜F½cbõFŒ‰-z¿cLL£Þˆ1±eGÔ1&¦Û¦Ш7bL|Y3S7hÔ1&\ý(ÆÄ—M;õ€F½câË®‹ºA£Þˆ11z#ÆÄ–qQoĘ|­|cb˨7bLL£Þˆ11íý:\(·efÔ1&¦QoĘزµ÷o0ÆÄ4ê“úø£[G½cbõFŒ‰-«£Þˆ11z#ÆÄ´÷o0ÆÄ–éQoĘ˜F½cRÇkŒ1±mÔ1&¦QoĘØ6êÓ¨7bL|"Q?~¾M‘©tÅóùDÆ·9õØ®QoĘø6É n}ЋzA£Þˆ11z#Æ$cøQŒ‰iÔ1&¶ÍƒzccË4êÓ¨7bLlÛõFŒ‰iÔ1&¶ …z#Æ$#-à£Ó¨7bLl[kâù:ü ëÛ&C½cbõÆÄÀ4êÛvC½c’·Ækˆ11µù­Íz#ÆÄ4êÛD½ÑmõFŒ‰o+&êmZã5Ęø¶d¥v¿Áz#ÆÄ·5;u‡öþ Ƙø¶¨¿^Ęø¶é¦žÐ¨7bLl›õÆF´iÔ1&¶m‹zÏ¿Šþ Ƙ˜F½cbÛÀ¨7bLL£Þˆ1ÉH÷ø(ÆÄ4êÓ¨7bLl›õFŒ‰iÔyÛöF½cbºoêç5z#Æ$£eý£Ó¨7bLL£Þˆ1±mzÔ1&¦QoĘØ6¿÷ë0ÆÄ4êÊ6bL¼ SOhÔ1&ކШ;4êocð׋osXÔõFãˆé”©Ý¯°Þˆ11z#ÆÄÚ0PoĘ˜F½cbõFŒ‰µu Þˆ1ɸŒ?Š1±6Ô1&¦Qo,¬™ÎÚÙœÅz#ÆÄ4êkcA½c’A3~câm/‰Úý4^CŒ‰·ÍøëEŒ‰·Õ4j÷ë¬7bLòÐx 7&oÛYÔõFŒ‰iÔ1&Öäý:Œ11z#ÆÄÚŠPoĘ˜îx¾¿Âz£ÑËÚ–PoĘä¡ñbLL£Þˆ1±6(Ô1&¦QoĘX[ÕÂëõ³iÔ1&¦QoĘX›–×›1&¦½ÞŒ1±¶/¯7cLL{½cbÚëÍk#óz3ÆÄ´×›1&ôñG1&¦½ÞŒ1ñ6¶Dí~¯1ÆÄÛà*õ„Nxþ?Ž×câmv“Úý êÍoÓÛÔ:ãù'ü2êÍÓµR»ÇklÌ4Ýõ31ñüþÁÈã5Ƙ˜n‰zC{½cbm^oƘ˜öz3ÆÄÚ$½ÞŒ11íõfŒIn¯1ÆÄÚ.½ƒ1&¦QoĘX'êÓ¨7bLL£Þˆ1±¶PÔ1&¦QoĘX›)êÓ¨7bL¼-Ï?àWпÁokÅëð+¬7bL¼-¶SohÔ1&ÞV»¨Ÿ?ÔÛnñücb:gêçÆlm»¨7©M£Þˆ1±¶_Ô1&ÛŽŘ˜F½cbmŨ7bLL£Þˆ11z#ÆÄÚ”QoĘ˜.Úý:ë“ŒiÝG1&¦QoĘX5êÓ¨7bL¬-õFŒ‰éŽ×;àWYoĘX›7ê“\9^cŒ‰µ£Þˆ11zc¢îmæ‰zŽ/oCÇëõoS¯ÔõFŒ ÛÜ?Š1ñ6øIm~e±Þˆ1ñ6úMÝ¡QoĘX>êbõFŒIF›ÀG1&¦QoĘ˜F½cb˜êÓ¨7bLL£Þˆ11ìõFŒ‰iÔ#Ë0Ř˜F½cb:áù&ü ëÓ¨7bL ³@½cbõFŒ‰iÔ1&¹p¼ÆÓuR?_܆ Þˆ11z#Æı>Ę8VR¨;4êb)Ř8¶2¨'4ê Pɱ—EÝ¡½ƒ1&¦QoĘVƒz#ÆÄ4êÃrPoĘ˜F½cbõFŒ‰a?sSOhÔ1&¦Qo4zF4*õ†F½cbXêÓ¨7bLL£Þˆ11Ì õFŒ‰iÔ1&†MyÿcLL£Þˆ1ɉã5Ƙ†…z#ÆÄ4êúPoĘ˜F½câX¦v¿Áz#Æ„ÙG1&Ž™uj÷ë¬7bLS›ÔîÇñcLL£Þˆ11z#ÆÄ09Ô1&¦k£v¿Âz#ÆÄ4êÓ¨7/ ãC½cbõFŒ‰iÔ1&ÛŘ˜F½c²9\cŠÉ|¯“½Yld˜ìÅZ#Âdk¨† ? 0Ù“…F~ÉÖ8 ñ%{ mƒé%{°Ê/Ù¤!»dkŒ†è’ÝYb$—îü(¸dk€†Ü’ÝX_Ä–ìÊòbœ¿5:ChÉ.hÖ`fÉ.¬-"Kvai‘X²52C`ÉÎ,,òJvb]ѽ5,CZÉNèÊaXÉÚ,*²J–Æd@Å—†dH*Y‹EPÉZ,(rJ–ÆcÀÁØð“!åÏ”óËV'†åHù€ÆÅ7‘Þ‰ ù­í["„Æ?‘„ÆÇÀ¡ñÁýBã£b»’Ðøàn ¡q\£ïëPâf¥­ABãs„Æ;ÁBãL5¡ñNlŠÐxc×3¡qm‚oo$ 7v<o¼¡oì·"4^7– W®F¯l¦!4^;Ö׆¥Bãµ €ÐxÍh” 4^ôD€Æ‹ y@ã…]ð„Æ Õ„ÆKÞ5¡ñ–3Bã…6¡q~„Æóâ_hç§t«ŒrwÔh~ · ï,AG–­oxõûò òçµÕoS4n‹5 â®°µ -(B㶖8‘»_Â=‚иC ‚ÄÍoú4^‡ A@ã¶Ûµù¦¿gÀï‘»_D?à'ÈÐxí[P½Ó ßP q‡ µùõ!ˆÞ¡q[ÛÄhÜöÞиí%(<5‡j§nÍ›þó¦6¿&Èиï¥,jókÜ”"4n{77¿Öøþ?Mó„ƽ)~Q4Á'Aá Më€(WmJ·½¶!H¼ éœP·ïNú^üü•÷&qi÷T š×÷6_иíRÁè¼6·½Ø74î{¹x?¼[Õö~‘·½ã.Hà'ÈëÍðŸðK‚Ì}vzš —9/séõûnR™Ìc!4nMˆ¸ÿ·&ÃHÚ¡qk"¬Ò¶É; hœ½šAãÞ(ˆÜýT@ãÖÔ‡P@ãÞ{ú‚ƽWдÏËú[S :@ãÞ„7©Ý¯éùüê7$î~‚º{/0üü2?߀ƽ)N?7¿ó}hÜšÚ;4^´hMhÜ›Ø&µùõ!ˆÝG¸Þ¤†ß÷1{¹?‚ÆËÔ{¯x£nÐù{/: ê ?.:÷&1h§oJ[ßxƒN/hÜš¾ð~·¦®&í~‚ò; ¨4!ó?nZ/‚¶“eø/‚²›Æçи5Qáûи5Iáû и5EáóhÜtDn~U!€Æ­é ã%@ãÖÔ´‘è…§ýÝÔDhÜ›˜:µûqÑ‹Ðx9¡'€Æ‹ ;«“¨Í¯(иi\?€Æ½ÉH¹ù6÷&¢Eí~ !4^ŠBa[®/@ã¦1>4îM@Òî§ @ã¦q=·¦¾>µ;í݆ÞÄÓ¨Í/³©ŠÐ¸5åàþh¼â!4îM9€œ½ûÁšn0^4^´¨Fh¼Ê!4îM6™Úýôù4nš¿_à§!@ãÞ4#H¼B#dи5Áàý4~šb[LÕÏÍO ¡qozÔîÇ&1î;›¹¨;4!ö¿†;¡qkRÁçи7­àùüŠÞ¿?Aû€Æ]ÅãÖ²¦|^{  fßÝ°¦|¾“­ýÏØKü'«û4žOH qg¥Ý›F„ÆÉ[“®7@ãÎ&ãïið«˜áwÖyPoh¼^@ãÖôÏ ñŒëGи5yàþhÜ›>‘›ßRè  qg¿+õ„Æçиýß|>‡ÆMAä¶)»ØEhÜÿŒBm›¼KßØäÅé1¡ñ|Æ#€Æím"Dáw è ¿Âñ ñÓ”AhÜË&¨|CŠ4neÇß hÜ/ü¾¯DØe4‘wè´©Ío.½/ôi² 4n—5ÆM'AâîǦ Bãö±ÔhÜ4!ô ¿Æëиé&ˆÜý’ Û4Æ è¶òÛ„ô„>P¸mò*tÐøi’ 4î·-AâšÐ´CãÞ!HáWÅOøýý ~ù"ïÐUÚ6eûì÷¦é ?@ã6 Æûhü4-?M „ÆOÓ¡qoZ$î~\$g7snSPzß$ôh܆ý€^{Ó ì?†"÷¦…E½¡ þÞ¿ö ‘Oh|ޛΉÚýª ï?Þ ›N/hܦQCPx†Ähܦe[¹mʶü ‰Wh@5€Æ9Íû7Ý u‡Îú¹ùU†X7Ï' qÓuÁ¦;CEsÚú4îM ð«ðãz¡qoj„Ýà§û q›Fó÷ü†~¿Ãoȿï Šðë‚Øüº ó¿ö ‰Wh@a€ÆMãz4ž²HhQ»ŸB›Æýи7àùü­÷&Aâ‘ÎõBãÞ”R©ttí7Ó„ÂÏ'ôиm[ì4nzJ/h|ÿ7]¥4ý*üô}hÜô”^ЄÐü² ì¿,(½ÃOãq@ã¦ñþ7û qßæIÔº §îO€ÆmÛõ4îÛH€À7MßiÓ¸÷¦šJݲ7Ñ`|hÜ›l9;4nz"и~›>8ý0¾4îM9x|ßäû hÜ›tð|~lB$4Îm¸ ñœ”Ýà7äßà§Ï&²¦û ÷m¿L½ ù÷ù%AäîשOøu½?~Ü?"4nº½ qÓø¾4n×  qÓég…–7ïg@ãÞTÔ©4Þ/@㦋 rúa¼hܶY •ø1„ŽÐxÖ~8¡ñœôù4îMJ›š~ohÜ4Ÿ¯ÁÇç6ðGиé!ˆ|Aóõ øŠ"4žOˆ  qo‚êÔôÃ|Ðx>!+€Æ½IjP?7Fnc›ÆxÐxVh+7¦|µ1™Î™Úý8!4îÛ胺AÏðSÓ< ñ| -,´™®€²«üÊ ÏX&ø÷m}ü=N×l1¬`Æ·< 㛫$Æ÷ í½Ê—%/¾·ðîA«‚'š´:p¸Y1딬ø>h¹÷ˆï…"ßaÒÚ #'¬½ëíßË;ñ&T{+¤ö✚ öbŽ9íÅŽ/bÚ‹©³¤´— >@Ú‹Ë{d´Õ½LD{mÕ•Vø8Ð^l= Ÿ½48ž½¶hñF+\Þ€³Ï’ ›½ˆÍÖ¦ÉìÅVv‚Ù‹¹¬ä²×fÉ€e/¦L‘Ê^›¡€²—E`²g[D²Hd/ZÈ^Ad]Š{Ž½6oª ±—ÂFc/fû’Å^ìÆ'Š½”|{qM ¶šÆÉa+–žöZ¬>(ì¥@Øk‰©öu¬µx1Á>D:ìµtZ­½gƒ–£µD“OZV`€½^K(»ÿÇ"}@òz1˜àõÒðܵšä‰]/¥N€ºV(?¡ëÅíD2×K@®âI\¯%à¸È |r¥†=À­×í\i…‹°õ"{DÖz1š‘¨õZßä5¬p‰´Ö19ëŘgbÖKãgPÖ`§?‚¬×S=i…‘ ~mñ Ö‹sÖ ÈW«ŽxµN7 ]½¯vÀÕ‹m]d«×Šœi…/Õ‹Aü«×âGÃEŒŽXõIAU½b…‘Õâr™êÅÝ8"Õkñë Dõ° z)o <õÒ\8õZ¢£½={MÞcS/’d©×AͽIÉŽ$©ƒ¹ R¯)ŽÛï k2v õbC)êu iÿ®Y\Ž!C½)M„zMÈ™VkRî·,´Z/|úÐ% §ûH O/fí‘ÖÑD§×ü&©ç[vY%JXˆÁÒÌÅ jú-a5ñ7OZ-2½¦ˆð)+È%+ñÓÏ,®\—~ËY(7ä‹•~KZ,β’„9èL«ƒEà T<(éÅþ'BÒoI«A¹ß²ÉêHË.«FÙoI+ÀÏCV’´ªyË)4z¿$Èç·œo™e%I«õü-‹¬$ç[VYIö[ÒJ|s½å|Ë.+É~ËËjÜVƒVM`s¾e¿å~ËE«#Ÿ;Õ·ô¾ò·ì·Ü/ Àù-i7ËJ²ßr¿e‘•äeUo«z[ÕÛªÝVí¶ê·U¿­úm5d%Ày¾å”•d¿å~Ëu[ù°ó[:Êü–ý–û%Á1¿åÛ ó[ö[^Vå¶*·U½­êmUo«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝVÞÖñ-}îó–ý–û%‚¾åÛ ´ò[ö[^Vå¶*·U½­êmUo«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝV>çú–›\ð‘/.˜´ò[¶[¾­H+¿äeUn«r[•ÛªÞVÿ‚VÎÏà̶QË—õl—?L+: ´²Ÿ˜¾D+Û ¤ï-SƒV.Z­\×¥A+—•\Èòöa'heßÎ_¢•z±¯<À6¾5Þ¿D+ûNüü­lû>­ì©ÍýK´²µ1àgßçqœd‰Vö¦‹ô%Zù$£ÉÖ[D¾ieÏv+o ò8àö%Z¹4Ž$A+{{?ÖiåÒ˜ ZÙš{ ñd·bÓ?hek5ò51ÐÊžkë µÓÊ~È=¥YUžÂZÙÚ®|Ê ZÙº´üÝ­lM`8i{Â*c|»&¬Ø›„©;ØD+RËž¾êÏëÀ^) À²SÑY¬ •‚ ¼lIÕ…á •y°¿½ßE瞀VöØR—¾0l}8Û¤=„4‰V.j­lRð²[±™´²·€Ž/ÑÊžÚ¿D+[C©¯\V¶~ÔFéV"ŽVöî×ô%Z¹$®ä`oÊzmýª­l§Vû¸Þ:uý£Í7kôm„—ÝŠû, •7ð?Ã9_“‰Ò"©SA$iekjF÷5hek‚&Më«¿ÖDîtÐʦIû6¯Óø}oÎ:Ò‚´²5}/ý|Ag<…»gH+;=¸Á‘R¤•Móïoðã'´rÖz?ieÓ|¾¿sµÓÊÞ´/šyAóˆmo“ðÈBm~KG‚V6nyÐÊFðp/ð‰t$­lšô·ÓÊNˆFN ‘/Z9ãîð­ì†èd÷ãîie‡:^´²G0êÍ#¥ýƒî‘‹ vèDz@WÑÈæ79ï&­œuäie‡büõVönÿN= Aw€VÎ:R´²iÐO •­»4hå|ŽXD[˜CB/ZÙ»û7uƒZ™PÒG´²Gvêg®nÝû¤gV6MúØo¹'â´rÖ¤•ó9"´²wóûßZÙ»ù;uƒæÖ~¢©Ðf˜uÄieëÞçÜ ~¢ý@+;”¦Ÿ/h>¾ÃO´Ú*ó¡1q{vHNôrƒæß?à§ûheïÞ/Ôæ×AZÙ¡¾Im~}]´²Gâ÷VÎ]ô=heÓøüV¶î|Ðy •MƒN­ì#hß ?Ñèø&3Mº¸ÀO´hå¬/xÒÊÞ­ú·Â¯êï©ðÝ ZÙ4ànðÓû ZÙ»õñ÷vøe=_‡_}=à—¾éåôÐÊYGVv¨µR›_[ßGZ'èö¢•š•~¾bª…öÂ9t[©Çôn|ÐH •ÚmÔ štq‚_çç´²wçoj÷½ ZÙ4€.ðSÚhåܸAOZÙþÅ#­+ü¸7NZÙ»óuƒæÔ ~¢ûA+Ÿî|þáþgƒðãЃ´²wç'êE'›_%MAZ9z´²wç'jó«lä!­œu$ie/ã‹Vöî|ÑÉi}G’VöÈÁIí~J³­ì—•èå}hd÷ë¼ßVöîüJ½ Ï‘ÖîwŽ ®ðã‘“¤•½;¿S»û/H+{w>èá?}ÿVöî|¼¾?Ñð •MÑËî§ïÐÊ~xÑʦñ}ZÙ4¾ÏA+ÛmeJ[„t=t·Óʧ;Ÿ´òéÎ'­ì·±BÝ AcƒVöî|з~#ÈEõ­ì·MÐÄ~‹ÏZÙn»ŒzÑʦˋVöa׋Vöî}ø9­lº‹^žÐ¤mA+çùM/m›™.Z9o:¹æïî}ÑʇF'­œ9_­œuD;iå¬ôÒÊY×+iåÜy½“VÖ„P´rf$¡håÜDƒVÎM~ •ýNZ93ÐL´²Ž¨­œÙq&ZYGVŠVV7¿hå̈}Ñʇ¦'­œá*Z93ØL´rmMZ9Þ_H+ç¢#¦A+ç,´rf$¯hå¬ù$iåœù}KZ9+­€´²ŽÀ­œE·“VÎIG@ƒVÎŒø­œÙÒ#Z9ëˆzÒÊI÷cÒÊIãSÒÊIŸÒʉ½*¢•“ŽL'­œ¶üA+'¥¿VV¤¦håÄîÑʉm¢•D+'Ñw¤•“Ž$$­œøù­œ¸Å(Z9qËB´rš:’ºÈ/‹^¦_ÒÏÝoèlÐʧûŸ´r¤-H+§!º´rbÄ´hås„(iåÄïÑÊ©ëˆjÐʉ‘­¢•“èNÒÊIGÂ’VN]Ï7åz´rꢱA++RT´rb¤µhåÄuFÑÊIG0’VN¢sH+§¦#ª“üHƒVN¤ÕE+:€´rª¢¡A+'щ¤•»HE+'ÉMZ9éˆaÒÊçÈTÒÊIô6ie‘"ZùФ•‰*Z9‰ž'­œDÿVN¼_ˆVN:bš´rÝFZ9q}F´rDZ9eÑÚ •=@Z9‰n&­œ²Žx­œ¸Þ#Z9éxÒʉ÷ÑÊ)‰­œDÏ‘VN:â’´rIZ9‰6"­œ’èß&¿,:™~éE+o.>VÞ›ìXå­ó*o‘I¤mvèTÞ[\ó¤U•„U\´Ê’°óFy/ýUn"Ö€„ò^|PÞ1OÞ¼áOÞ¢óA'o†ýNÞKPZIX‘.´¸0yOqºÎ%oaæÀ’÷9šÚ©ä=uR´CÉ[ +˜ä­sß$‹D ‘¼™N y3„<òž|'#+²’4ò>'`;U»Ù]°Èˆ"oÝkA"ïÁ €È{ðNya¾μ™RC y+Äò¬>äÍ2"È›±Ù$·N­€¼uH*øãÝ…ûL|3½Žô±°ÂÇ›Ïd•-Lôxë8OÇ[·v€Ç»“w¼u£v,ŠÔñÖmÐñî:{ÑŠçl{óáæ„ÄñÖW€ãÝôŠ|ixë ¸±ŽD"m¼¹GØx‹%k¼õåÔxóø1’Æbëp%rÆ» Ó­´õÊx+´ñ> ³3ÆZ4'b,ä„ñ®:UÚצwÕ¡ÕN¯ìÊ‹xñ®z½ƒVãox¶xTzѪ‰$†Uh¼=—(¸â]u–·w8 ˆ U¼9#T¼Å°‚)ÞúÒR¼• ¢XCŠÅG'ÞExoQ*5~Z™Jê&ÞÜß$K,\‚(ñVRHbmM$VÀ59â]øæ#ÞLÁ$E¼Ë÷ÉÔ°Âņx=i…Û&âÍS +I›ü°` âÂ)Hožè@xx–71vƒC Ã›Ç ‘[ApXl¹áÍ…ObÃ;‹²­´/hX‘Þ72¼5&1¼à`˜æG¼ð>gXwZáª-¼³`ÞA+Ü'Á +jŠ¨ðfÜ4IáÍÓ Ä '¼yÖ1áEûcŸ“´}þ®s2Ââ2ˆo® “ÞI@k¦îWàƒwN[hEz·Ðêœ +À\iÅóª+­†H`Xüm´ê/.xk`,x+5 Tðf¨#¡`Ad‚q Þ‰5Z“V~'­p£@ÿ³˜âÀ[´7hà­pÀÀû€íÛ<›¨'Q`!$$FX‡É‘ÞÄB‰‹ø ¬VBÀkë fg€Ï¹õ@€—F} €€BþWñߥ!"6R×Ö ØVS¬/¬ˆZáÛäïÚ:½zÒŠ‡?OZõö»6/P¿këäi'# #ó»6@~-âwé”Q¿¨ÔG¼¯òù‰ûx´ïâ(—°ïÒ‹`}×f+>PßµuÜt¥zïú®-¸Ñ D8ߥ£èÀù®Íîzp¾-ç»t.8_4óÄùj‹™œï!MÀùÒœïbº9ßÅp1r¾<ç»–Pip‡ñä|ƒ Èù*œïáPÀùœïbO9ßÅŒcr¾Kç»Á1p¾K§öó]Ì"绖Ψn´È Îwé`p¾Zç{ p¾Zç»t:-8ßµH?ó= 8ßð€ó] µ"绘Ù@Î÷ -à|ÒÎw1ð„œï| Î÷.à|áÎ÷.XG>P‚ó]‹p¾xç»–Ng®´j/ÎW ä|ÿÎwq^FÎ÷ð/à|Ï…!ç{pp¾ëœÊ“þG‚óuÌÊŸ·Áªã‚ó5é ³à|=ºÞéã+²0à|O«;8_ïlO_â|ÉŸ‰óµ¾ôשÄ&q ó„ÏœÀâîi:ǦÁé1ç{ZÊÁùZG¸/‚óõ†q’¼–.œ¹@ Î×ÃÜ¿9_ïwÐ5ÊI­à|½×Û^ zœ ,_â|½³›Øï‚ĹÃVlB‹‡°;Û`Å7:§Iœ¯÷d»ì°b— 8_'ÝyÀŠgÌ£!Ë$þª«‚mp¾ž>¾ÄùztºÿU Vì­çë­Õ¤€TÍùCl ª©Áùzµ÷1ƒóõ¾iq½ úpÀ :‰ëõÔdrIÎ7íëTbï“.Ô ºH/è$®· ¯y½9ß´äÎ71­MœoZ7相Ÿ!Î7MqÅà|“N1#相 $Î7‰ƒ!ç›xv¶8_õA‹óMC§2ƒóMCï'8ß$N†œoâ Áù&:IÎW)èâ|•‚.Î7urFä|“NE$盺8ap¾©‹[-ò+âzé‡÷‹œoÒ©­ä|ÓánÁù¦&Îœo‡GÎW©èâ|Scß:9ß$®‹œoj¬?9ßTÅÝ‚óMâøÈù¦JŽ€œ¯RÒÅù&že/Î7UqÉK~ÝÝ…{¿×îzs¼ûmóø>º»“oŸ»;oëÀs·¾eAçªpîÍÝú š«–t’¹[As·¾ŸÁåªCX®b÷Iåž#×åªaLîæWDr·l¹ê_'»uZ7x\eôÇU;;iÜÍ£‰ãn ÀânE—ÅÝ:§$îÖ€ ®šÝÉábÓè# Wùþ¤pÕûNwóD72¸[C ¸[  pwã w7怿ÕaÄo·Î}»+aAÀ·»ò[ìíæÁDo7g$owåû ðøâGÜ­Úè‰ÝîÊû3¨Û]yźչdn·†B@n·Îƒq«&{·[ã$ð¶»ê0]ÇmÕsOÚvWÁ³‰Vø샵U >QÛ]9bi«# ÚîáZ¥f«}R¶è‚ý²ÝÊÐc»5Tb»Elƒ°ÝE®O•Õ¾O¾“¿ðZv@ºvvÒŠlñ¤QÞE+ÜU@Ön Öêhrµ'†·»èL\¦ì¢#p}^½Ëuð.BB3­ðÁQ«sÔîÂÛ5žB`qÚ]D“VZÁµ°âÉÀV2¥Ýåû\`XÔí´â©ÀV((0ÚÍ3`IÑîÂ#·Ñn2€dhwòës6Ø@‚VŒÚ9ì?»~ì¾çlhг;ë¨[oìÞY쪳³[ëÕa$g7ƒoÎ ÜìÎÂB ­H¥Zô4»¹¶Bföà @f·ÎóÃKE˜=ôxYA\vëì$вf,»óu²¯N• *{ز:d‚ ìfN9Y9ALV)Z¤dùHvóÄ&2²›Ddw‘šh…6z²: ‚|ìá"€Çê¼ Ò±[ð&à؃I€Ý‰t ÐXfA2öPc±àô»u'–t֩؈²ŠÝIÌê È ±›çm“ˆÝIÇOZ¡É<ìNÂ]­x6¯÷jâ0ìN¼ÌÀÂêØ ¢°;¾ »uì#@Xåž‘ƒ=<0ØMªžì>Pk¡0°›‘YD`uä ØCk€Ý/V8<’ø«à â¯:š’ø+ç|Â_ÏAŃV@ˆ¿2xGø«Ð⯌=þštæð¢Õ…¿&1ÃÀ_u` ñWÀ_øüu èþº—Iüõp À_—Žrþz°à¯këàÚB+`{À_×&|üõP"À_—qþª”;â¯þªCDˆ¿®ÍËøëâì˜øëaH€¿®-úwÒjˆ†…®và¯:q„øëÚä‹€¿Âøë!L€¿.NÉ¿àøëN€¿êxâ¯KG8BüUü ñ×ÅCÚˆ¿ G!þ*…ø«pâ¯k‹Ym´Â'øëÚ‚r;­xPo—•WXáƒüU° ñ×%œø«ÎA!þ*v…ø«ŽE!þªcQˆ¿ e!þ*”…øëbÞ#ñWšBüUd ñW‘-Ä_×7ˆ¿.AæÀ_ºèBüU'¬÷BüumžñüUÜ ñWq/Ä_Ï_!þº¸®BüU ñ×¥Óå¿.ÆãCüu Œþ**†øëZüÆþ**†øëâ‚8ñWA2Ä_É]Bî¿Š™!þº– ÕL+x›e’¶ÈªPÒJ4,¬ðéþ*„†øëâ10Ä_…Ð]Kõ6Yáy»¬ %­Ä»Â Ÿ}à¯kq|üU€ ñW6Ä_Ø`CüU€ ñW æ?Â_ÅÛoCüU¼ ñWñ6Ä_ÅÛ]ÜÁ þ*ü†ø«ðâ¯Âoˆ¿ ¿!þ*ü†ø«ðâ¯Âoˆ¿ ¿!þ*ü†øëÒiËÀ_EãCüU4ñWÑ8Ä_EãCüu-¡³Ž¿ Î!þ*8‡ø«à⯂sˆ¿ Î!þ*8‡ø«à⯂sˆ¿ Î!þ*8‡ø«à⯂sˆ¿ Î!þ*8‡øë[Ò d—Õ «CüUpñWÁ9Ä_çœCüUpñ×o¹dU)Ç÷‘9Ä_çœCüuM1«Ž¿¾åø>P‡øëš:vÖg(K¹DÄ_¹´+üõ%i:´ÊJ4,­ åzË&«LI+ ³VK4l»%¬0‚"þª“ʼn¿¿þú’´ê”´ÂKX²’߇ñBv¿¾äú>ŒGø«xâ¯GfZ·!þ*À†øë‘…Vlˆ¿Š¨!þú’íûlá¯G6Y5JZ†í²’¤U¡\o9d•)Ç[NY‰†…¨â¯G.ZŠ!þz$ðWa0Ä__r}Õ#üõ%Ç÷Q=Â__²}Õ#üõÈ"«J9޲ʪP¶[®·l²Ê”ã-»¬e»%¬ú}Éñ–“V Lˆ¿¾$­ü­#þú’£¿$ð×ùÍ»¶[®—$þ*ðƒøë‘YV’íû¸á¯GYIŽïãv„¿¾d»åzË&«B9Þ²ËJ’V™r½å•äxË)+ñ®í–ë-—¬$ÇxIà¯Sl0ð×—\/Iüõ%Ç[æËŠøëä¹zÄ_,²’oYe%ÙnyY5YMÊñ–]V’í–ë-Çm5n«y[ÍÛjÞVë¶ZD:)7‘Î#Û-×KüõÈ·ÕÁ_l·¼¬ÊmUn«z[ÕÛªÞVí¶j·U¿­úmÕo«q[ m7þzd»åzKá¯Gé¤þz$Nž¶+ü•GÆ =r¼¥ð×#aÕoüµßøë‘ã-…¿I«L¹ÞRøë‘´w*üõÈvËõ–Â_yb®ð×.À5Ý’V‚c×[ =H'îÀ=²ÝH'ψþz$­üÚ8øë‘í–´ºñ×#iVVøë‘Måz˃¿fÊñ–-”í–³:nfõÄ_;åEÒ®Ê=ø+Þƒ¿J’Y]”û%¿ñ×M «)À5ßVS4,¬0T;øë‘´ò×{ðWŒ þz$­üü£Íƒ¿R ÅHõà¯óÆ_1è=ø+ϵþzs«áôÁ_y&®ðW€ñåºÂ_)…¿‚À?øëºñWÀüêðWäü©EÄÀÁ_@pðW¤üußø+‚þŠX„ƒ¿"4áைT8ø+òÎ1·Hg8ÇÜ"»ás‹d‡sÌmz㯠‰X:渭€‰¥cn?±tÌ-¢+–Ž¹E°Å9æ±ç˜ÛüÆ_Ïa´ç˜ÛFI+Þ?xÌí¢ä‰¹à?uÌmy㯊9ÇÜ"@äs‹´‘sÌmÁóê˜[$•œcn‘crŽ¹­oüU‘(ç˜[„cn§BüUa+Ä_•ÌBüUçUª ñWe¾Õ‰ÈÄ_•CüUá2Ä_—°Là¯\(þÊU5á¯\sþÊC…¿rùNø+×ú„¿r%Pø+× …¿rQQø+C|„¿rARø+W/…¿2HøëÒù²V<›vЊçÚZñLÜI+ ;iÅÃw'­xRï¢õþºt$0ð×¥óƒ¿rýYø+Cš„¿r)[ø+º…¿rU\ø+—Ð…¿r]ø+s¦„¿òÌ0á¯\ØþÊeá¯Ü#þÊ0,á¯ÜnþÊ -á¯Â_wãø«šK‰¿ª1•øëîü,Ý<úŽøëæ9”Ä_wÇÐ…ø«ºv‰¿ªã—ø«º…‰¿î¡'ò1HüUÎÄ_œMüu¾±À_7¹â¯{²¾À_÷Ĩøë¾ñWõ¨ÝóÝÜ{"þª$tâ¯[à¯[£௛tñW Ø>Â_7C‰¿:±©'4ÞK°'Ÿ¬³"ƒzCãK ìa[Áñúˆ‚u6§P´™Ø‚KÖÏXØÔ†m¦ÎóèAÂ:KåÏÖ,i÷ãn?aX?äEÃ:â´¨ÍOgÀ‡õ3{ µùÍŠ â—?ýùïþú?üÅׯ÷“ݵŸŸ¼þù»_ÿÓOÉÿëýOf}Hð?ú›¿ýJ_‡•ÍúÕ¸ 𫶜uýï¿ùéë/~òÅêïßoþ²ÚcZ=°û­îûÐ|à35´7à[óýÀê3¶ïBó¿ï`=HÒ÷¡õÀ߃ëÉG‚ß„öþů~Ï»kïùŸÿåøÊ_¿úû¯ìÅNçÐzÿL=¿öÛ¯?ù»?ýúÕ?þôïe–þ—^÷c]ÚÌíùÒµrÅCóõÐõymÞó¼º×óþo¿ïyÿÀƒ³*_~®±ŸñÜ…—Èyø×ÏxîšþÕÿëÏŒ^³}ðþ£KeÇçKéUªò3ž·ù2–ª;ºó£¥ÒåÙ|võC—góVõ¼<¿Ÿ÷.ÏïÿÐåùýð¸<ÿЃÿ¨Ëó<ƒöåù]ª¸<¬T¼<¿\~äò¬¾8øC—g-çƒñó/ÏïçýËóûÁ?ty~?ü.Ï?ôà?êòüÁðàŸ}y~—ê.Ï+/Ïï÷¹> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 4468 0 obj << /Length 995 /Filter /FlateDecode >> stream xÚ•VKã6 ¾çWøhFK²±;—¢Ý>nrÛíÁq4±PÇÊÚÎLçß—2åWb`¶ÈÁIQÔÇdhtŽhôÛîçÃîé‹ÔQNrÅUtx‰¥D¤*ÒŒ%òèpŠ¾Æ‚gÉ߇?Ÿ¾(¶0Z­2p4u¦¾¸“©½åŽ† ~=ì,hÄ"Æ%‘©ŽR*Á³ˆÊËîûŽHÍÒt°X,Õx.žþ¸Èè·û ~£j?úÜ/œn¼)X±\¡R ÷wÓšŸ’=,î+ÓXr¿Üš²·®éüVÇEä&a2þ·7ÍÉœPÕ;Ôuí.ã·àÀµA_…£W×uöhkÛ¿£ ¯ŠádK8¹â„‰t„ó M²……&“ö•tÇ ™–£Í5ÐH‘\‹ÌHBÜHšìã=‚hÍ6pƒØu?ã‡á¡Ê<%"Ÿ.8Àó÷¯ž¢¾™êѬ+¼¯h/¨‚ç ˆ‘\JôRš¶/l†*;{nì7JyY4¥AY_µ¦«\}ÂíÉ4®7as|ß@ˆ)ER1ÃÈÄÆSrBú ¨ 9OòÞ‘ë!ˆMYtS\ãµ²5uÑ[ÿðWO¦ ­í? £±©må\ܽ $ ,Uù(33PÔs—ƶïù~&¾ã¦²ç W˜X€Kû êo'k‚£cÂi| š“)[ º‹x]cËùªé‚»<û+Î?4¼Ö¿ˆ®Ÿ2@#@{ŸY/›2ëÉG’½¤2>$ê½yŽßÊ WEÌùí*HŸ^l¶*K`=|D™NÄ™ð–ôÍöÕc½íEÊMGî+<¾UßšèÙÿg¬Å!”=ÏK™N§[e›’> /ExtGState << >>/ColorSpace << /sRGB 4473 0 R >>>> /Length 23531 /Filter /FlateDecode >> stream xœ¥K³mËUœûçWì¦ÔàPïGö#ÛF7 ‚!. ¼%a„¾kŒÌœ{Ö@Æ\Ü@R²Ïʵ櫪fU}9òÇŸ~ä¿ûøßþëÇÿøèóûH³|Oé£UüWöÿß?üøñß>~ûíÿgÿñòËoéûšý#}¯Åþ³•ôñË?ù/ßÊ÷#ÿéÛŸÿÅGúø«oùãOÏÿýÝ·œÌè?›ÕœÚlßsýøÍ·óßé‘Ÿ&e\”Ùdÿ^($­Ò29d•:$­Rt«ú}û?ž°:²CJw^°ªßW‡l”üëÊ.g3¹¿ȱ ¥ýæuŽ²7ÈÙ$­ª}veYÕI«â²ÈÊÏÆ‘´J”nU¾o—V¿yUXüÈÕ`U¾÷ Ù [ƒ¤UµS·º¬ò‚¤•Ÿç5`•ù½Vùû gcÂ*óð'¬2wÉÊo†#Ý*}ßr—s›<§Îç´C6ûìNvÙM–Ù ¥Yý}™óÎnuä Íÿqq«# eƒLÒ­üž8²Âj}ïr@V;Ï»Áját«‰»îȉŸÑa5í,¸Ùÿ:`5pÚl£C.Èê?cÂjð{'¬:nï½`Õ¿÷Ù ý¢¹ªKŽö9 &Û÷Y!¤ß99%;-¦³t3}éÝ«ë ;?mÐîÇ»8§¿‚óiºA—Ií~çï7Óº,× ~Iÿ¾Á/É¿Á÷MNÝýú¹S6õ€îøüp¿£ó¢6¿ÎÛÁô‚nð›ð;§|R»ßü>“뿉GÏ´ûË\©Ï‰4Íï?—:wêaºŸ®­Ù…®ÒÍtC»gzAÃ/gø±=6í~§­óãÉ~ç4oj÷;—aR/hܹ¯ ‘2í~ OÎ ~Yß×àwžêM½  üºûµFÀô€®øûp¿vNÓ¢nÐ-S›_›:þ ¿ó-êüzä¿Áûõè:õy†Z;ÏÎpí­„i\ߣ‡é†g+oL'éfºòþ;zAóï~EŸÏð+ô/~ç|vêµûûÛï§Rݯîï{ShosñÞ³ÕÅûíèݵùÕ‰–3—?ݯG»ßø>ñ{ü†ÝöÐî×Ñ™^ПŸðk¼?ŽиÊ‚_åýUütÿ}~˜éŠß{®‡éŒæÊô€ÆóRÏõ0ø}çœÑŠÎÏÑ Ç>h~EÏ÷Ñí——L{ Ý ½·0í~Þ\›®ðëÖ^Cèÿ¿fãh÷«ú} ~L>'Òý Ÿ;ÑÐx¾Î…p¿s¿$j÷K|^Ž^ÐhÿÎ…5¿¼ÙžVïœÚ¹í7þýr¿£ñüÙ20^ÜÔç˜Æórn´bzè|cÓj¯Îš }ˆgº™VÿÒü*Ÿÿs£hßÑîWx?ãAi§[‰ºAóßø%ýûê~IíËÑÚÇ\Ù\Ó Ã Óæwšqþþæ~Gãù< û ðL»_g{o 4îï£Ý¯}¯ÒîWy?†ÉýNÿ(= qÿµ¿ÌçÝ>Ó‰÷FÓ<žmc=Ýx“¦ßix“éÉë}tƒFÿÛýÆ©g¼ö§gøuëö 4¾Ï:Ó Óîç§Úý ûgëh ñ<ô ¿Ìöº7ø%žÿ£´VL›ßÚìÿOGh~g,‰þ®{CTÏ@÷ÇéHtÔæw†±hߎv?Ž•òé¨Ý¯éx'üÔ¾[Goú<Ÿ•ÚýÔžÛ@aõùm«iÜ?GÓ‰ß&éèó’þæèfzñ÷½ ÑþÛÀÇôäñÛÀÈô¹^~>Ï@Êýôüí~×ûèó?*üÔþí~…×ï üÜ/cHkºA£}?ÚýÇ#gXi~g4ö÷hóÏñ ÷‹×óhó“ã£Ío >¿öÓ]¿g¯qüfFиv¿ªó»ì‡Woúõ8?¬šÎ:?ÛŒ:øN’Ïdè<©OÃZÏeÃón//¦ù>ñªSm¼'=¡1Þ°—,ÓƒçÛÞÐLw>Ÿözgº±=Æ«b=žo{)…Æù»ríjŽv¿ÌþÇ.´éÄöeú¨¿žf`IOhú ÷kêïìF2=õû†ûf‹¿o¯³¿œ~]Ç»àw~æ¦v¿Êöáèó"PŸñϹñ«éÌñÅÑÓô9Í~þ—7l¦ý-Éô¹Ñëéfp¿m~UÏÿyÐÌïtkm~§DûzÔ ûÅ\Ó|92í~~››®ðãd€i÷Óød5ø¶/G»_f{´ûñ56Ÿ†ÆüÊæõ9ÚüžñÇòfçsùƒ]Ïxï#Ëßëo`|p6÷Óxõh÷k¼¿OÃè~•ã?k(¡ñü}NL=ã ôO§a­¦³Žÿ\Ó‰ÇâóÁzÆ8þíQÓm~gü€çù4ìæwÆ 8þ£Í/ë~:ûu¶G»_ãxhø5ÿ®ð;ÿ5¨Ý¯°¿Ú ~s9¦Ý/ñøÞÐ8þÓ‘™_Ú<þ£Í/-Ž§NGh~IãëMŽ¯¶ßX¦Ñ¾ï ?¶A»_ãûâéˆÝÏ_› Ý¯°¿Ø>P7çótäÕtæóyô4ð|ëøëG±×öDÝM³½5½MOœÏrŒ*t–ž¦9ž)©Àý¡i÷kx>M»_ÅóYR…_E{iÚý îÏ’üø~hÚýNÿ.m~ç6£_w¿£³´ùÛ”¿Ï§<ʹͻ´ù­¡ß7à×u¼~]Ç;á×0^-iÁ³{¦Ý¯ày4}.¦ýz”ä/¦ee¼ÿ˜ž¦úÏb7ÖÑ“SO¦»é…çÅô†öñD97ªù¡Y…6?õçåÜØî×Ñž™v¿†ñ”é ñ}~œ€4í~…÷GnðËèLwh~M»_Âx°œÓülîlS›ßéV'>?ÜoðýÛt‡Î‹ÚüßÊiÜϧ] Ý¯éü,øqJØ´ûq¼eú|Qœè,Ù;‚2ø>`zBûx©œ†+›N/™> E±ùžBm~§?÷éÍr¾ íãwÓæ×'Úób/^¦ÏG)ðëhoL»Û¯b/rÐ¥Q»_ÕçüŠ>ßà—õù¿¬ïïðK¼?ŠôŠÍŸà÷ûÄQQÿnÚü¬_Ôæwú÷¿é~mð~/~lÏÊéˆÜ¯ã}дûq¼bú œÊéßü·5̦s§ž¦ Æ'¥zG^ZÆûˆénšý½é ã=©ùþÞÇo¦Í¯²¿,§ãÍÐiS›ŸÍ_Ljó;ý=žÇZá×y¿=¡ñ<׿ÆûÃþ‡iŽÇLoèŒïïð+¼¿v¿çøü2úsÓî—ø¼ÛÀäè¢öÛ~¸é…ùRÓº@/÷;—‰¿o¹_è?LŸé·_/(™îèLOÓ÷Kó®i´GÍ'Nì6ÅñàÂØmçý\¸ çË.¤éŒþØ.´ûq¼`ºCãy:Úü2ç÷ìF1¿óXûøÞô„Æù²¤é©ïIÖ¬ðß7ø ùwøq~Ô´û5ôßvcghŸ¿1í~j/v¿çx'ü8?gÚý8Þ¶ËýûŸ£;t®ÔçÅ˺ <ïÍ_$¬[YzBãúž;›žlßìA7ÍùbÓ÷ÏiÜïG¦'4®O/ðk/ô¿Êß{ô†FÿÑ+ü ÆÓ¦Ý/cül Y†æ÷7øéz÷¿ÄóeÕëÆ-¸ÿ¬¡4½°~` i†.ÒÝôdÿ`åи^6‘nšóm¦ÝómÖpgè"í~M~ËVÓôÛöbbÃHôßÝ'Šl؉ëc/‚Ð>ž+XX°a,Ž×^¡ÑþœŽÇýÔ>Û‹æÑ6¾ñï;W†Æý‰…†ãzØB ´/zÇgZçcTøq>Ã;JÓêŽv¿®ïkðë|>mÈtcyô„Æù·%%ÓUÇ7àÇù8ÓîÇ÷7ëè+4ú›1áÇù(¸_ÒïYðK|ÞlÙ-}Økî‡á³þZ˜¨—iõÏ60ÆõµåBÓŸû@÷³­Lš<3Ãop|qFî×ù¼a dã![5­þ`Vø5¶OXC¶×t¯M¬˜.ìÏfƒ_áý?;ü¸¾eºA·Jí~:_ç‡hÜïv GŸÓ‚çqúDƒi<ßG›ßPÿ1}"̧EðïýƲi”-}:rÓüþm ©MÃð÷¹±OÓtêeºc¾Ä¾Ç¿ü4þ±‰/h<vc@ãù³‰2Óï¯6Ð.ÐèŽv¿Âñƪð+ìߎv¿Ìöïèçg5ø%Ž¯VƒŸÆƒË'jmZíÇò‰Óx^–OtØ´Þ†ŸOäd­ÿ™иìÁ4­ñÕšð›¼ßlbÒ4×uíŦ@£ý?z”›ÆÄý¾| gºêfšó_¦4~Ïix 4žÇàÇõ({KÐx>v†_áûÅÎðãz‹½È¹_æøîèÝðù ?·­!5Íù'Ó ×ã4¼æ§õ>ÓíÁöei›ÖÆóstƒÆý†Þ4Æ—§#p?Î×›Ðh_­ã0=8Þ;ºAwéM¿?ÿ£OÑ1¬0íÛlY`/êÍó»m fÚ×^Ô‹iŽMhÞìÅ>A{{cÚý8ÿjzAWøø±?6= ;>_á—ñþeÚýÆ˦´÷w61Q Ó¢6¿º±>l ºvjó« Ï·é=p<¾0hº,j÷›hÏl"%A÷IÝ K¡v¿÷A›ˆ)нRæšÇ·íƳe±Õ¨tOÔ Úïw›ø)¦¯ÇÑÚûO›8JÐ~?˜v?]?[x‚æ¿/ð«ò/ð+ü=g`™ ½ý3Ý ó¦v¿ÌãÍ ~ºž6p…ö÷›(s¿„öÝtƒö÷ŸHƒ.ðîg럋z@ãþ²…<è:¨t’6¿óþ1ñ{üØþ™> Y.KçË'm™wI7è.½ }m!קø-¬Gø´¿™v?=½Âë¶X }üå ‹Ð¸^g ™ qý{—ÎÇÑîÇñ’/\BÏE= é?áÇõZÓ çûhúeÿ‚_gtô¹QM£=ïÍóã'¦ÑbãžiŒG†wt¾­/QÓ÷ßÈðk¿›nÐS_Ðè?m#"4Η½x@ãxìÅýý¨òÃõ¶‘¦+ïÏó¢S }|mz@ûxѶ4¿¯Ã¯òúÛžNh´§çEŒ~èOlƒ¨é‚÷[HOÐè_Æ„_áøìèçã¼hôÿÃ7Šä¤þç¼Xfh´¶°oZý‘½ˆBãþžþ ™Fÿd»{¡q¼¶q÷ËÌò«š~h/g‘_ÚÔîÇùbÛ¸¡Ñ¾Ø¾lhœoì7=à×à§öáhúUøuù¡ý™]~¸¦Îÿô}«{²»ô¹“ÛeÃW/ZáJØ”G6‰†uúŽ¥#ù;¶={ãµËäù›»ü|{‰Ë%9]¢Ï<ïÜÙåì.»$¬|BÁv¶ÀªJ —gUZeIX%I³â\ƒm¢©.—ätÉ_å[Š4ñç;r\vIXa˜`ûw\¢°å?—8WkÒ Ï¨-ºDr¤Y ¶@Ëm>@ËÏÒ¼‚¶é·óòu£=ô#}fsó®íRª.qoÛ"§KÜZ;Ó #ói…†kgZ¡_ß…V¸¾Ûç£7W-l{Uv‰FæÈî}€-ÎBúo¶½Y.ñ›m)×%:´Ýi…þgwZaøkßè£=h…ól§Å%Ú&;á‰VxRpì¦CXnÕ0¯àÔªKüæmýýÔFÙ]bк½·Þl³mó[ué·Jó¿®‚mƒ•o@ñt…V~D¶ïVySÂ*ãWZ¥AiVܺirCâgømW ¤LNHüæîVDNLÂÊÐ$¬¼Ñò݆.{§„UÃ÷NZµJ «:)aUaµhÅã]ö6ßé27ÊîÒçLnHÿ"SÉ™N“Ò¿ÈvdºÄáÙ!õ×íÒ{aÛÞ +_43 «¿VZybVþЙ„Ά”!%¬põm*d£„UÑ_aUð×A+Ü öΉ¿NZ¥M «Ô)a•pD¾ŸÖžñNy|g«moÏ;ë\m»Ð;ë\mûÔÎxC°­¼²PÂÊÇ¿¶V¾½Ä÷»Ä©+™V¸‘l×d¦„UÃUZµB «º(a…3yÞ‹aåä†ýG›£xÛþ «R(a•%¬pbí]2QÂ*áWMZá&ÄÄÂN|‹ïC؉çù¼ WÈByFE›{£mx†l”2Sn—8í¶b Ù(a…;ÖöŸ»ÄókÓ7•Vh¯j¡UŸ”°B󅩤0!`V¸(G ûyý…UK”°Â³Y¯xj§š‚Úiåo¶¥VhlÇ?¤Ÿº:i…gÁæï %¬2~Õ¢®à‘çn. ›!e‡Ì”§=Yܯo C…”ҿȦ9!ew‰ëÛ2­|hhŒ¬|øaVh[¥.w«´BÕ*­ðз\Xáê·F+\ýÖi…æ«uZB +Ü mЪ/JXá =¯³°Â½Ñ&­ðÀõâ²á³‹Vèøš¯)®Í–°9Ò´8Qc²»DÃØ|‚pmÞ9Ý×ç´JiV> pº2S ­¨í]„U¡î+[i€„U¥UÉ”°ÂmÖ+­2¬­r§„îºóê «œ)a…ö¹wZá&ìƒVèÊû îÉ>iå“F&i•(ÍŠÈ„±_rRžaØZl‚ºËâÈÜA3ÈB¹!Ýù¼½V—¸G¢•ó zƒîç‘iåƒ|Gæ ÝyY%JXùÑøòÇý‘Ý$=ÿ=€T9òÃo>~vþôóþîÛ¿ÿÁ½ÿå;tºüë?mû°Â§Û¿þÓÜUüþôø Ÿ^ÿìÓë_ÿéÏZþ:kX>ûÆ (À®Xø;6W¯?g\bý=¿®8þo-«Ï? |ý_kúúÊ÷?À[ýóø’ÿõ”bÀð>†ŵõáËGo?ù¶Â‡IÿüôÛÊ?m{OWð“o+|ÚVŸ_þn+~ï_?ù¶Â§ܯø¶bCð­aÄ4õFÙ4Žâ”üÛ´¦ÿß…o˜›ÙçËÏüóŸýýý¯ŸŸÿ÷ÇÏþòóþøó¿øøáO㡾>þG/×ì>N$XýÙŸù¿¦Ýÿé×ÿýüÏtþçç¯ÿöw¿û«ßýõÇ/üüñWÿøëßýöù¦ŸéQ—}ÿ:×Öþÿ‘Ü2ÎHÁÔŒô:Fz Nó0Ò³èO¤ÇHèéÑ9›ÈHνûŒôèDCéÑù.ËHÆOŒôhœd¤Gëý1Ò£þ*Dz4B”Œô¨Ñ0Ò£ÜJŒô¨ÜÁÄHZÐi3Ò£ò•‹‘…Ó¥Œô(caFzn¶c¤‡ÖzéQøÊÅH¼øWDzäd¤Gnx{c¤GþJø0«Ì]vŒôH†0Ò# \AFz¤vEz¤Â³Hä<(ÒæëüL"ÒÃæöü;ËÀ³ZŠ¸ð¹ŸBnŠôpìÒ­ ¬%‚H›÷á<"=œ™d†‡YM΀"Òà 3<ÌjÌù!ÒÖ1ÚáûFªðl3õE—ú¡H[³©_‘up-{VmE ¿jÀŠïîˆô¨éaËg>)‚H[óK†H[üÛ”ç·ÛÚaýŠô°¥IœXô°•L tX»°•RFdød‚­´¦W¤‡­äC¤GÕÃÃH_iF¤…GzØÊ5QDzØÊwUćùU!SˆôpänS›_­ŠiðãÆHZ…h"ÒÃv.ÑB¤‡#sƒÚüŠ3DzØNŒw¤‡íô˜ƒÚý8)ÈHÛ‰²¥Í/?!éa;_ÑáãwÛY3'õjÞŸ‰G¤GÕ–sFzøN!DJøLˆí,RŒHÛ¹‘¾ó éQA6}*ÒôW¤‡íäòHß &í~…$"=ꃔ#ÒÃv²©C¤‡ïŒ[Ô­9BÆïóHÛ™‡ó‰HÛÙ$‘¶ˆ9"=l'aRćûqâ‘E]9#=ÛÔæ·„D"ÒãA¾¸—¤h‹3#=ñÂñùT„í,e¤‰OÔ8ÒõŠô(KH="=l§,î?DzøÎZüÝÙß™;©ÍovÞ/ˆô°Àx^éQ ÅH¢8&FzøNfióÜÂÅHÛI ‘¶óz½"=l§öT„‡ù nQa¤‡ïEzØÎrFŠ ø)r‘¶“½½"=lç{}EzøNzEx$ TUÕ¦^Ã*܈ô02È$"=™zEz‰€¿#ÒÃfv?]?Dz)Qña~m «kdbDz8鱩ͯ ¶?ˆô0’ˆôpoðSä "=ìýd êEä ÿ¾Ã/ñz!ÒÃÈ\ODzäùT¤‡#NÒ ˆÚsDzI„ó‰H'“^‘åAšéáïî™zMG˜€Ì"Ò£hK"#=„‰‘Nr)£MG˜p}éaÈ#><ÒÑ%E| JŒØp¶Æ^QàDZ#= QÂñ!Ò£n™`¤‡!IC H#2ü2‘ZDz³éaH#@œ¥q$ ¿ßY8CV§nÐŒñ½ª† ñø'üº";&ü„d#ÒÃ#´Wˆô0HDzr„û ‘N†Vê±1ÂçéaÏ "= 9Bû‹HCŒ€ØãA1ÍH _;*O‚H¢->Œô0¤ý;"=LñG¤‡#FÒƒˆtƒ_åõD¤‡!FèéQ´e„‘%q‰‡‘†áyE¤‡!EŒñHÓI‘ HQU„G!R4©‘"|ß‚ßÿ‚Ÿ"]éaˆ;"= !BD"=œDGD…Gz˜F$ ^êlEz2„ç ‘¦‹">"œDz˜Æñ!Ò#kêž‘BÄH'ÿ'õ2Ô_‘ž$ Ý Ñ^ [Ó  ;üt½é‘—"+éa× ‘† áùD¤‡!BKí3"=<©Ç¿à—õûü’¾ÏgËM'ExT C<¿¾,ãIþwDzä©È+Dz"´ô÷ þ ‘†1’"Ãoðú ÒÓ4^‘¦Ñ#ÒÃ!´ÿèè³"1é‘(ÉHŒLŸŠôpÛM½¡1@¤‡ý,\ODz˜F{¶ÉSºC?ß@†øwgÏMÓß'(òx"N<ÒÃ4ÆCˆôðËV¨7"ôˆô°ËŽç ‘dÙ§"=ì6Âø‘~›½"=2–>éaý7"=ì¶Fd"=L·W¤‡=¸þˆô0û‘þXuêI„oðËŠiðKú½ ~\8e¤‡#DzB·W¤‡#DŠðèÐ_#ÒÃ4îDzä'B‘lÆ>éáÍÜ îÐM‘»¸Æø‘ÞŒê ÍH ÏÂðf8Sw"EÒ›Ht†Ÿî_lEðnàéáÝD¡îÐŒ)ðÓø‘Þ uê þÛo¼ÛÔý"=Lãü!ÒãN=_ˆ#=Lóx0÷ÚÔß#Ò#cçð§"=¬Çû)v¬e!ôŒô0û;é|XðŠôða¾ß—Q9zEzdÊŸŠô0 d‘Y„Œô°a -Dz˜®¯H9Ò„H&ÍLÝ¡ÑQàW‰p!ÒÆ]@رw5·;ÒÇmº92HÓü=~Y¿¿Ã_Œôðad¥îÐ@ìÁ>Û0”‘&>P1 䑹>‘!þ ù°vPwh _ˆôpD Ú_\QjÔz¼"=LWé¤7$"=|Ø.=‰,!¢£À¯+ò¢ÀO‘+ˆôð×DnTø1b‰‘öZ1ᑉ0UêþB˜éáÓ+Ò#cíîS‘¦ë+ÒÃ4oÀ¯ðþD¤‡#M¯HÓå鑱éåS‘ù‰D@¤‡éöŠô0_‘âÄHGœ)ᑦq!ÒÃ4eDzØk$#)<Ò#+r‰‘ŽS©'4#Lü¸›‘Yï—Œôði"è ?!±ˆôx+Fzd½2Òç¡^‘6Mň¿q}ÚJí "=8Íõ©HÓI‘î§û‘Ždmê 瑦«"<:4#. ü„ŽÅ­A=¡Ñ¾!ÒÑ-E|th?"=rVû öÖ§'õ„~Gz8ÂU¨;4#CüÛDzø4d¢ž@´–";24"céáHצ¶HŠ,$ Óùéñ ^ŒôðiÒBÝ¡áHG¾^‘òÅHG¾©Qä—^‘6m‹ç‘¦ÑÞ"Ò#çzEzä'ò‘YóŒôx0FzØ´1#@é‘Õ0Ò#ÞߌôÈ[b页)Ezä¢ã™òKïHÌ÷cEzhþC‘9ó~b¤HÝÏ'Ò#göŸŒôÈŒV¤GÎ<ŒôR¦HL„D‘™‘âŠôÈ\ÄT¤Gæ¾JEzd"”ŠôÈÜð¨HÄõEz$n=T¤GÒóÍHÄ÷[Ez$õ_ŒôÀ2Ãç顈[Ez$¾(Ò㉠a¤GR¤#=7Z)Ò#q‹“"=#‚é‘ÉÁH¤H&Fz¤I¤Ÿ‘‰ïߊôHŒlT¤Gšü~Fz¤©ˆ,¿ªˆú¡½c¤¶Å>‘‰ó=ŠôH$>é!ÄM‘I‘QŒôHŠ `¤G_‘ôÃýÍHD²C‘ið|0ÒCœ"=’ƃŒôHê¯é‘8¯HÄõEz¤®ßƒHDhC‘I‘8ŒôHŒðU¤‡"‹é!dN‘I‘1ŒôHŠTb¤GR#=4¨H¤÷Fz¤¦Ž*¿,M¿$í~¬ô¡HTHÍ7*Ò#Uý>Dz¹S¤Gª|žé¡õ1Ez$®Ï(Ò#UEtLùeiú¡ýb¤^«>ŸHÄHEz$E¾1Ò#E‚ Ò#E^ Ò#©=e¤G*ŠÌÈò+Šø #7²üð{éeÛÏ'Ò#)’†‘‰È®"=Ez$E 1Ò#qþD‘‰X"=’ÆûŒôò§HDX@‘‰x€"=Ez$µßŒôHŠÌa¤‡@Ez$EN2Ò#±$"=„*Ò#qC¾"=#Å鑸¹B‘Iˆ1#=RR¤E–_VÄýÀ£1Ò#q~—‘{+áÃy›Í]ì ôØì,˜ç±¹qXñÿTš‡Vræ±ùâÌ,E…3ÊcsI›Û¸ä±Å9#Çcsï5c<¶R#ⱟßò•€ ½tD¾Mcsúš {)€Ä§Õ6¿™ß±JÄwì¥tL«ö ïØÌevǃ2"ºcs€É{}sÀ <r;öR,†Çv(U•©[!'íØS™žÙ±¹^ÌÈŽ=ɶ!±cOììØâ·‘×±'i= Š÷dZÒ:*a{êx­j¡<çp+yI{ò‚âõas—9Ú×Ø¥°1¥c?¡Ò±™±ÌŒŽÍùIFtÇû0žc^nÄnl…Á œc´ÈæP4£9ö O‹dŽ=xõ̱‡rH­Àµ"–c3ˆ©û ™´Jú+¬ðü"’ãa5‘ȱ¹zÆ@ŽÝ•â´Æî:9DZ™ÞÎ4­D1Œc?Y™V@×ű;v$qlá ˆc3’9牎ÍKLáØç !› ôÌàPÄ#8  ›@À±9™Àü EüÆ~Ò0|̵nËð-vÙ›óŒÞxQ$ol[2xc7å„8ø±ó‚Ø ¥2ucsÃÐýÊà€UWĬ˜X‘iÕÈ«úÊÛØܶƸ­4¤m즰‹J+œXdmlŽ‹µ±Y‰‰I›A¹ ڛʜÍ0Æll¡˜²±+Ï3B66‹¥1cCä*#6¶°± É€]yÇ"_cs®™ñâZ™®±+O;Â56'"™­±ëWÔ¬À¥#YCÔ+ƒ5¶r«¡Ê§b5vUJG¡pq„jˆ‰e¦ÆV$ "5veb56G ÔPÞ5ó4DÌ2NcsªŠi[á*ÓØœXe–Æ®l7¥!ž–I*œÁ ]x£±¹¦Ê­Ô)¤hˆ¶eˆÆæ ;346ÇŸŒÐØÜïÉÍÂr ЋËüŒÍw}ÆgÍezÆæȕᛵ˜¡upFglk™œ!p—Á»pp‚ÜŒÍ1/c3vQ H§z:„fëef†"<™±Ÿ„‹I+ˆLZ1ocÒ â267‡2-C 0Ã26k0+cEuø ÿfå,&eìÌGA"„™“±3GˆÉجÂÁ” í `HÆVÆ226÷¿0"cg¦ !C8126ß™!º˜ñ;+À¢Ój(,Vã•­¹ŸO4Æ“ü1h… ,FcdF'0ƒen‘•Ò±hõ$eX܃2¯ÁùYEcdvmŒÆÈLa`4FVrD¢AŒYÑÜY¦h e1ƒû6‘ïh q1ƒ‹ŠÆàœ”¢1XUEÑ|ãQ47*#ó6c4ÁÙhEcpó–¢1ŸÂh òÒŠÆPX£1”5ÇhŒ¤¤ Dc(‰‰Ñ ba4·+C1„ŒÆHJ¬È´šJÊ€úFc(Ò…ÑIñ…VCá°ïh ®)#}eaÀj()ƒV ¿€UGc¤¯à X1ûcÐ 70£1Hq+C©3ŒÆ Ô­h N(*ƒë¡ŠÆàtEc$%t C/£ŒÆHÈ)C8£19^Fcg4£!>œÑ ÆQ4ëø)C¸8£1±^Fcˆg4F"ÿÏh ÁäŒÆH ¡è´åËh .+C¨9£1’+&­Ø1i…ŒFcpEѬ4¥h ¾•3ãáÒ¡²ŒÆx0uDc¬¾›ÑµŽhŒµ¿’2h•(aÑ‹õVñ0íˆÆXÜzÂhŒÅ•"Fc¬­ ‰&«D «‰/ê´ŒhŒÅºŒÆ«ÁhŒµ‰#ãÁãñàñˆÆXLAb4ÆÚ$„±(ÈhŒžG4Æâ\8£1–Ñ‹Åìñ õˆÆxÐzDc,n{b4Æb°£1ðÑxhŒEæ‰Ñ‡hŒÅ zFc,F¾3cmÅj4ZµW4Æââ£1hÑ‹[S±8cÃhŒÅZ†ŒÆx~Dc¬­ÀŽI+þˆÆXL›b4ÆÚŠópXäþ±¸ƒšÑÿhŒÅÈnFcŽ-"•} ìVN*·Ìƒ •m°ÝÉ"›UfiÌ@·L¸¤²¿ ø?î°bn+Hå–™}RÙ«$ç‘ÊöÔ .›UšxÌA*óÍK¤²½—ùý R¹iõ¤²×7"•›âbA*ûk)Áe#mUÌP¤òfc$Ry³¸—HåM&^¤òî$H*©¼Ul™¤²’öD*+ÕM¤òÚ"¥A*«é©¼D’T^ƒ;õI*¯‡<©ü&©¼ I.’Ê+s§;Iå%R¤òÜú} •çé Ry²8˜Hå9Hâ‘Tž O©In+®MÅA*ûJP¥nÝ‹íâù©üUl¤rU±’ʶ¾’¤²­†á|ƒT¶¥4Üï •}ßï=MÕNw’ʾä¸Á;ÓI*ûêb¡v¿"Ýá—Iž€Töâ¹Ð¾âêk¦ÒæWÖ—6¿2/RÙsùýN*ûJð‹T®EÅYA*û¢ó >Ζ¨Ñþ€T¶mD •m5ÏH寤ʶðÒ ¤²-Ó“ö™d_ã/Ô槧$•«Š×‘T¶Í$‰ ü¸°CRÙ÷9dj÷ÓýR¹jç!IeÛû¤²é$2Ùü’Š§ƒT¶­ W@*ÛÆ´ •}J£v?‘î •mƒK}‘ʾAÿ~ÁOdIef‹TÞK礲¶RˆTFõùÊZ{©¬åf‘Ê[í1Ie-î‰TÞEä1HåÍb‡"•7w‰TÖ“He½ÿˆT^“d!Iåň"•×i Ryq-]¤òj"…A*/®kŠT^9 Ry‰l#©¼’HbÊsóþ ©<×™œ ³Èdó›Sç¤ò|þH*OnA©<•DARyr§²HåYEî‚Tž\m©<3ÉL’Ê“óæ"•·;‰T~ŠÍ“TÜy*Rù!I*!Ê*f&Ryˆä$©<*I?’Ê£Þ¤ò(ì_@*{r‚Èd÷ãNb’ÊÜ ü)R™š?E*ûhh'•}ô´ùõ!?Ÿ ± Ù<~Ÿƒ3^¤²'+€,vRÙ‹Ñ6ê¶=YÇ R¹¨øIeÓèA*{ÒÈ__µ ð(FRÙ6ÌÏ©lš¤°“ʶIxò üðoðë"ƒüôü‚T6MrºÃ{H* ÀÏø‘Ô~Yß?à§ö¤²‹z@“<ö-Îh`¼RÙ\ÊEŬH*;@Ò¨gò¤ôW • H!YìËG´àxA*›."“ݯˆäÍðc4IåRE²‚T.UíHe=Ÿ"•‹Š?‘T."H*P„bð •@z‘ʦÑÞƒT.zQ"©ìHá?î!©l@Éã?×A*‘<$• èBÿRÙ0‘ÉšÿÞ§ (£¿Ï`;€&ryB“´õU&Úо€TvNßÐH>©l@ݹ<¡“Hd÷k©ì@ߢÞи?@*; ˜©ÝOï •‹ŠåT.Øù)RÙ4Æë •½m¢6¿'¤²”“Úüw’T.*CRÙ‹Ñ6j÷Óó RÙ“"¤Ý¯q|„™^Léç  JÏâI¸?A*;к¨-÷PÅEH*í &©\Ry RY{iE*k«Hå͹N‘Ê[ýIeíÆ©¼'Û’Ê[ãM’ÊªÓ RYûêD*kÏšHåÍâ"•w RYÛ‹D*k¿Hem1©¬}"•µ¾/Ry“¤©¼4 ©¬e ‘ʚΩ¼HJ‹T^‰T^"»H*¯!²¤òb1?‘ÊKäIå%²Š¤òj$cH*/&+ˆTVÒ“HåUIv’T^åëïš©¼²þRyeý¤òâö‘Ê‹KÕ"•'/E*O.+‰Tžœ©d0Hå©bÀ$•gáõ ©Ie%YˆTÜx)Rypü"Rù)†KRyˆt%©‘Tn“÷Iå¦ëGR¹Mý{ÊMä.IåÆzI"•›Š“TnÏ;IåƤN‘ÊÅ$• £ŒE*‡I*ο‹T."[I*—*R¤r)ìÿH*—"2¤ra’ŸHe­uŠT.êïH*—,?Ê%ó~$©\8ÿ/RùIÚ ©ü$mT.Üd,R¹ðýW¤r©OR¹h|CR¹Ä©œ5Þ$©œ¹Þ&R9s}D¤ræû‘HåÌ}c"•³ŠÙ“TÎë&•3×ïD*gîz©œ•TDR9/ý^ÊYI3$•UY¤rfR•HåÌõS‘ÊYý5IåLÌO¤rÖóBRùIÞ ©ü$oTÎLR©œõüTί‘TÎþ$•5"R9ëy"©¬o‘Ê*®,RYó-"•sãù!©œ5'©œÇï$•5?#R97‘É]~$‘A*gÎ_ˆTÎ/’TÎê/H*gïI*g7H*çªóR9ë}‹¤r&$R9³ŒžHåÌçS¤r._äò€øDRYI"••Ä!R9sþW¤r,RÙ—uñ}~*î VÙtÊL?m •sº\Ù–‘·ˆäMعÃÏ7‰eOæÀ÷ø©˜+˜eÓE”2ý² f'³¹‹›ØrNÜNMn9k[ÁeO⪜ ›HæÍãu£¯âЀ—½8ô¤v?Î?_öeùBÝ Á6`6 †sNï\äš7Ž's$jú$ÅüUL{G<™£QhÐ@™}›Á‹dödŽMM?œ°Ì¾MaPÓ/‹W¦)àÌ^|:S/hбš=™cSŸ'OæÀ÷ùÄüW1j0ÍžÌÑ©4ˆL çÄÄš}†@f÷ëü=›=©#Q/èùB›=™cSèö‚›=™C83ýÀØoödÍôK/ÀÙ“9„4'èõBœ½¸µô‚/ÈÙ“:¤é‡óÌÙ“:¤éW¤é‡Âº }Œôù"OêÀïõ…„¯bØ€=©CzA“ÊõŽÙ“9¤é‡óàÙ“9¤éWE@Ó˜gOê(ÔôÃõõü$u{~’:È={Rˆã?®‘|ö¤ŽúìÛŠ;Ó”u—¹ê!?’ÔC~¸Á?û¶%ÏîÇd=ОÔï[ðêú«7 hß%(ºAƒaýUœ´'u,jú¬ ýU¬(tVô)Ú“:ø‰> íÛ¸àWá'J <ôW1oÑžÔß×ä×EHÓ¯¿˜è¬ùBÑYIÒ¤¢=©¿gÈí%¸hOîúL?Èhu$£·0jÑ„qDFoÒ £IÁˆŒ&É"2šIDF«R8Éh¾v‰Œæ(Td4‘ ‘Ñä DF“VÍM‘ÑÜê/2š;ðEF/QÆ £ÜA2ZÁ$£¹a[d´‚;HF+¸ƒd´:2’Ñ î ÍeV‘Ñ î ­à’Ñ\³­à’ÑKÌ5Èè)ÈdôäóD2ZËIFóíSdôdgD2ZõËIF3t[dôäñ’Œž<^’ÑLÄÍÀQ‘ÑÌÿÍE‘Ñ*vN2z²";ÉèÉëK2š ¶"£ŸdôÐ჌:|ÑœŒ­Êè$£š%2š5”DF3BKdô 2šÛEFs–Wd4EFs¥ÈèÁ!Éh®(‰ŒVO2zpüC2zpøA2º‹ÈÝ…`ƒŒî<9$£(2š™é"£;.’Ñ;ÉhUd'ÍüW‘Ñ|é­í$£»ÎÕ¢U(m´o×¹ÍdO‘Ñ*ßN2º³µ#ÍMÝ"£™&2ZC’Ñ]”1ÈèÆSG2º‰#݃ŒnlFHF3^Ld´Æ0$£¹%Bd´*Á“ŒVŽÉhåxŒær³Èhæ,ŠŒÖà‡d´r’ÑÊñ Íàb‘ÑÊñ MBdt’ 2ºŠAN´"tœi•ßdtVœiÔŽd4gÍDFâr$£™ã!2ºj#Í,[‘ÑD'DF3I]dt! F2š£S‘Ñ\œÍÊ{"£9tÍš)"£9q 2šãZ‘Ñ…¤ÉhîJ!½9è%½¹G›dôæ Éè]Ȩ‚ŒÞ\ #½ ±SÑ›…"HFk7&Éè]‡‚ŒÞÜ{G2z⟠£w!à 2zs M2zsÞdô.Ä0AFoŽÂIFoN’ŒÞ™°$6mr$£w ; ýö™ëÍý<$£7—oIFï,šÛá>Á $£w¾íäòÎⵌÞÌL%½ÉàŒÞ\—'½¹ I2z3ÿ˜dô΢ª ­HUZ£®´"7]iõ€Ò°Â­2zg¡ÐV„;­;wZ‘nî´"¿ò©á,RN5œ9ÁñÔp.7]9²]žÉ £‹È+’Ñe¨f4k87îŒW g¾Ê;Ýœ´œÝœ´é@âfæøas²$P‰›E"$¸‚ã} 5˜y~@âfÕ%¶ÈpÑI5cIF§!Òdtê$kTù}‘Ò¬¹ÜEB»Ÿj‚Œ¶|ÖP.ª¹\_d´m0ØÒ¬¹ òdtQVìSù¨¦2k8‹´T gŽ¨TÃY 1ªáüí5ƒ×ø"¡½FrÉšÁë©1šÁ‹É˜¾Å5•AšdÔ žìL}K j,ƒt˨<Ÿó‹ÎS$k8ϦóƒÎS5FYÃyòÝù©á,òŽ5œÇS³5œŸ‡¬á‘ÑÚ .2:)Édtâ|‰Èè”Td´vv‹ŒNIß2ú©¹H2:©Æ;Éè$rd´vf“ŒÞz<›·ÛÊyq.[¯_Xôf ©èÍ•;BÑ*ƒH&z ™½•x"Z¯ý¢7£ÂÉCkG4qè½D;ûÅÜêrCkÆ—,ô ZåIBk3Aè-Ó‚{~h®.Ç‹‚Þ‚A«† hMTÖfcÐÚ]Lz«².øç=„Kû‘îÁ6ô³*ý~ÞûíS)›PDŸµ˜äóVÐ –c¶¸BpÏ[v=o¥t€zV ¡gUÜ#ó¬‰"Ï»‹®´àày«Uï¬Ý¶Äµ½–´³öÓvÖZ²ÎÚ1KÔY[dI:«¶Ag³#缃Ìy“ê1y^BwS¹fçت¾ Æy7!Òþ¸™(HÂys”€ónüÍà›wÎëx36Ž~ŠnÞ Ç#ܼÉúmÞ*Ê ´y?dr¥KWZáÀ5oèÖ¼«êwZ¡iÔ¼ÅP‚iÞBò4ïJBD³öjhV>0yfíÆ$μ ïgÐÌÚoé0sz6X’eVe4¢ÌšŸ#ɬÚg™UìŒóÖàó.ª—œi…G³ –‘aÞŠ Â¬½‹$˜µY‘³ªŒ‘_Þĉˆ/«Žée#¼¼É‘]Þ|&º¼Evƒ\ÞY ò +0OZ5aÊí«€©eUì"´¬½|©þÚ¼GdY»õH,«ÌeÕÕ"¯¬BZÄ•µÅŽ´òNlÛ+ofË‘UÞ*˱E¢ƒTÖF8‚ÊÚùFNY[݈)k3)eí^#¤¬íjd”÷Sœ¸ÓŠDq§U +ò̃Vħ'­ðNÖ>1ÂÉ[Ù2`“µõËÑäò”pr2¹<›»&«*¹äýůÅHñZ:@/NÃ(^Küñ¢noTgX¢ÛË–U¦Þÿù/”Nf*‘J'I#U @ø%Ç[~ÉvËËjÞVó¶Z·Õº­Ömµo«}Y~ÉvË·á—¼¬ÊmUn«r[ÕÛªÞVí¶j·Õ}Ú ¿äxKÂ/Ùn¹ÞrÞVó¶Z·Õº­Ömµo«}Y±tòK¶[¾­X:ù%/«r[•ÛªÜVõ¶ª·U»­ÚmÕn+ß$ý–ã-~ËvËõ–󶚷պ­Ömµn«}[íËŠ€ð¥[ÐëÒù²# üÒ%ø•àW‚_ ~5øµàׂ_ ~=ø9 üÒN¦\º½.í€ð¥o¿üVð[Áo¿}û¾t úò |éÛ¯¿üJð«Á¯¿üZðkÁ¯?„_ÚɃK· ×¥´¹ôí·‚ß ~+øíà·o?—nA_~„/}û•àW‚_ ~5øÕàׂ_ ~-øõàç@êK; |éôº´—¾ýVð[Áo¿üöí@øÒ-èË€ð¥o¿üJð+Á¯¿üZðkÁ¯¿üÂõ |éôº´——^Áo¿üvðÛ·áK· /?—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁÏÔK· ×¥”¼ô¸ô ~+ø­à·ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~áz¾ôº´——ö—nAß~;øíÛ¤é¥[ЗáKß~%ø•àW‚_ ~5øµàׂ_ ~=øõà7‚Ÿ©—Þ—vîÒóÒ¾oåÒ=èÛo¿}û¾túò |éÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFð ×€ðK;éséyißVtéôí·ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øàç$ÕK; |éyißõuéôí·ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#ø஀—KÏKû¦¼K÷ ÷¥wðÛ—áK÷ ÷¥óåG@ø¥Kð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFðs õÒóÒ_º½/½ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚_¸„_Ú÷°^º½/ídì¥/?—îA_~„/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà7ƒŸïÈ|ißb|éô¾´—¾ü_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~áz¾tz_ÚKÏ· |éôå@øÒ·_ ~%ø•àWƒ_ ~-øµàׂ_~=øà7‚ß~3øÍàçô/݃ޗvHøÒó­ _º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~3ø…ëvøÒûÒN_z¾5øáK÷ /? Ä—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üÖk¹øSTñ¥[Ðë­_úòZ|éôíW‚_ ~5øÕàWƒ_ ~-øõà׃_~#øà7ƒß ~3ø­à®pãK· ßKÉ$Ž/=.o?@Ç—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛ× 3AäK¿×˜‰"_z\:ß~ ‘/}û•àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à®åK¿×›É(_z\:_ë×Ä”/}û•àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß¾Ö›É.iÀË——Î×ú5ùåKß~%ø•àWƒ_ ~5øµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíà® æ/ ªùÒãÒùZ¿&Ø|éÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ×z3qçKKçkýšÄó¥o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁ/\pЗ—Î×ú5QèK¯K—àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß~ûö }éqé|­7“‘¾ôºt ~%øÕàWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·o¿®Ðé—Î×z3áéK¯K—kýšüôK×àWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·o? Õ—~¯7ª¾tz_º\ë׫_º¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛÁo¿}ûµ¾ôåÚúÒ=è}ér­_“¸~éüjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöíûÒ—0ìK÷ ÷¥Ëµ~Mû¥kð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ—éìKÏKß׃€ö¥÷¥Ëµ~MFû¥Ò¾túökÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛÁo¿}ûÛ¾ôåpûÒïõf¢Û/]®õfÂÛ/]¯õkâÛ—¾ýZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~à¹/}ùè¾tú½ÞL¨ûÒóÒõZ¿&×}éÛ¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöíÐûÒ—PïK÷ ßëͤ½/=/]¯õkß—¾ýZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~ À/}ù¿tú½ÞL üÒóÒõZ¿& ~éÛ¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöí4üÒ—àðK÷ o¿r­7éz­7¿ô¾t ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛÌø¥/?Pã—îAß~åZo&9þÒõZo&;~é}éüZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ·`òK_~ÀÉ/݃¾ýÂõRþÒõZon.nTùÿþÏþã/>~õûoÙ‘ò÷þþW¿ýæÝÛ?}ûó¿øHå¯ëv{,§è¼LÄúø#‡PÓÇ?üøíãß|þÿë ûO†c‚¿ñÊóÑŸ†µ¯óö`ÿy8ŽµëƒÕyÁ¯BóƒçmÚJeg+˜]óýA€x_„æóãÚF’òa8A¹>˜œ8üú ´>øJtóƒöªö>Fjÿà/~øô¾Þ?þã#üð×Ù+‰§ç? m¸bç{ø®ì~óñ³¿úùÇ÷íßÿ`–ÿ¯W°M_þwׇ˿øᆅ‘¯§ŸðÍüÙÍ7¿ÿöׇÿ ?ûëÃã'|˜?»ú¸óá?ÿÙßþåç_ÿöwÿðó?:÷ÀÏ~óó¿øøáOšYñ ÅnöÛÿæÇŸÔôñ³ÿý÷ÿ§äK%vLŸ¿û›_ÿþý«Ÿ|h6=±~Íßÿîçg¨ú³:ÿu~Òÿðü¤ÿúíÿ®ÒŠ endstream endobj 4475 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 4478 0 obj << /Length 1719 /Filter /FlateDecode >> stream xÚíYKÛ6¾ûW{©ŒÆ\>E*À^Š6}ŠÙž’•mÚf+KŽ$ïÆùõ>$K¶œìv‚=hDŽ‡ßÌ|‘³8ZG8úyòÃíäúEB¢¥ M¢ÛUD0FŒ'‘$%,n—Ñ›¸Öù¶\ê|úîö·ëBöôYš ™¦`Íi2šZ¥  üt;! àˆD„ $¸Œ8`™E‹íäý I8w=ÑMµ¿ ׿n“èÇrò þÚ©YksÖ3ê|`lµX >)ᑾ¬tÝ”ÅtFqëÆ>eœå„TÄo±ÀcOâU²¼.½R½_¯á·zé' 8zјÖÔj_¸·Ú+ßot¥ýL³ B¥ó¬1S*â»)±Î^77O †w³)Ë`½\®áçgŸT_ŠÒâ§8. g ¤¥ÞébY·Ãþ逰›ÝÙå³|¯ŸÙϧ0¼f‚¯ƒ_TzajÓZ²ñÑhܯ]“ˬZúI]Ue"gW_Ø‚à™mÖØ7’:S¦U¹·(Ç|¬›ýÒhpˆao2 ×Gώи6[“g•Ÿî¹WBj¦ñSÛìà…yøá.Ïöµ™çÚ7¥Îêz¿mÇ6YãG vÈ.ET¼ÖaÅk?¿-« àãÕ‚ì‡1§6™u‚ùÇƬ7Î$È»ªœgs“›æàlí³£‚ 1ðUßn´[¬?í_=§Ä‘€Än=傾Ë÷au‚m±+‹¥)ÖFiCy¨Fð·dÉ@ÇvÖ=‚~h~x*HÒÛ3’"JY@\‘Àè ‚ïtaS÷v2ÁvC[mšÃNX”IÚêô·'`h”²Q€€‰Óå«YQVÛ,„%’D´‹]Ym«|åu ¹ëÞ+¨þ<☴ó6A#6R’·:» €£¥’)« &<@< ˜ó•bDF=?©âÿÐv=¼ÿÛQÁŽ0ñL O:$1$iOÓsœNê¼…5â0Qˆ¦–=.u}«Á€‘¨§t\q€|¸¤W'ñeÀ„;tìˆVÀOR@#ù1#”d ¥'Õ^ÛMµžBëEfnøl^]4æAl-ôý«ÿW“‡p5y4WÏÌàä,À£\ˆ09$c^® |Î`[«úµóŽ¤ŒrÄL»ÀNå2iásˆSñ‘V=ÒÓIû@β/”¤qJt¡¼«Ã©ÐÊYiü½\NLjPù­²<>K—ª g BÊía~08|~¦¼ìJÐûÚk‹çàH}üRõ¾}Á¬ó!é„z ggzg ïªà3}ÜLG†§~2—m‡%e±+Á؇4¢ F@"¸àÆïSî®àg~Réý·§Ë¾)ÐWª¸¼«ëR ªœ¦½ Ùɱ×AR‰T"ásëÂWy±¼y‡£%LÂÝ 1ˆÀ½SÝF°[¸½åÑëÉ+ßôáhŠ ¡ÂQônÄEŽ”;aBÂ?X{ õ§~Ü(iäî×$\îÓ´ß €7× ð¢k¤þ²yÎ]B ’¬ãÉñíèÝlÚåàj¶¼f ¸ÂúË«[«ôÏc³Çbj‚®möp!Í䮹38¼±Éð¬ó ðÈ6<ÛË1¶·’°Ø,u¤0²Ö…®²ÜÞ¹?º&QâÛ ö™å¹/iaØE „}m¯ý}Íz§ÖÄêp¢ê&ì>Zø÷­Îê}&]6h×$´3 ËŒ]ãmîLæoÈ]~Õ–Q·¡ÎvË CöOºÛyh‘ì·p ­ Fpü²¬C¿Å®VîÚf™o<´á³%Û<($E`ñ[JÅ@í«‚Û•êC½¹ªµ¹,(b¸#ÝÊQU´*zd¡¯U?;AGJ[úa#=áÝ(@EŠ²O̶»ÜÓ]؆˜ízU&+ú §H¦äÉ8 S܆R"ªÄe¤¦˜ò¶eWÕmöWcþ´²ùxîE^öd/ê÷UsÉ žG:R¿ßw¯ªtíعÊM*âC’ÿQû´R×åÖuNÕ±{åÆ}cUµUy4oekÞÏgµÊüë±`t6ä°¿«|-³Ó¡¡¬à(Öm[êÚÚ„)V¶96«+ªRÎK×\Ñ£¡Ckå€DžÙ¢ÙC¹<…¦¬\1ùÞ@ù-N¬•ó¿ôÂ-Áã]V×­²+}Aq¤¬A'Böš…—þÑÁ¡ªî¤Þ&"ä L†Þ¿Ö!Óþ^6ú;4 hï$ÿ¾|:p endstream endobj 4465 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/selmodel-preston-step.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 4481 0 R /BBox [0 0 504 504] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 4482 0 R/F6 4483 0 R>> /ExtGState << >>/ColorSpace << /sRGB 4484 0 R >>>> /Length 22751 /Filter /FlateDecode >> stream xœí½KvÉuœ;ÿ~E É>åý2ð„†m@86`± ªeQ§HÊ¢lùç;׊ˆ];— [­3:ìî`Õµß}É·'Vþø³üñwÿíÛþøo}~éc–ï)}´ŠeÿÿþáÇÿòñÛoúû?ÿ¿øø·¿ü–¾¯Ù?Ò÷Z쟭¤_þÛÿô­|?òŸ¾ýÅ_~¤¿þ–?þìüïï¾ådFÿñÛ¬æÔfûžëÇo¾§G~šl·\oÙ¿—[Ž··Õ¸­Æm5o«y[­ÛjÝVëûÊ/¹¿—[Ž—\ç{ß²ÝòmµòeuäeUn«r[•ÛªÞVõ¶j·U»­ÚmÕo«~[ÛjÜV㶚·Õ¼­Ömµn«sÚËKžÓ~Ëñ’ûœö[¶[¾­v¾¬Ž¼¬ÊmUn«r[ÕÛª>VÅdƒUý¾6dƒrAž»íÈ«ú=H·*ß·ÿtÀªð³Vå{] wÂ*_r@öirÁ꜅ Ù ÏÅp¹ê‘éût«sÚ![…þ}s:çýè±íCÐ ºK/èR\g· ßÊô€îËußú^µûÍï»R/èÏWø/<©Ýoè÷ü†üü†} Úýú÷…Ÿwøõï½PèŒãðó† ºA·J½ Sw=áwkRh?÷9-ø«œ©4ÿþ¹Íu†>'ÒtÆÕ1= «kkvM'úÝ {¢^ÐÉÿ~Îî×7ïè]üøsq¿îÏ"tƒ®›ÚüÎ;dûùÉ~“Çô€Nðoðv t^Ôî×ùýr‡_çõ=Úýtþó€_û^µû'nR/è†ßŸð;ç»Pè†Ï/øåï»S7è6¨Ï#Õú9¿ð÷eº-êó|¶¶¿o×%Ù`ºMêfzñóG/hø—ì~íœÏF= q•¿Áççè]µûu<ù¹Tøuޥ¯}Ÿøý¿Æë}´ûÕï3Q/hÜÿ¥Ã¯XC= ~>à—y¿í~IßgÀ/éx§ûÕm¯ è]ðûËýêâýytƒÆý{ôGŸû ŸßÖp´ªçÿè]ýûÕdÚ깿uƒÎ“ÚýšÊ\3ü*¯×ѺBø•ïSºAã|ÿp¿s>ð÷+üïèësþ°ùÃÆù?ºAãù9ÚüpLw÷;§ ÏçÑ:ûù9_Üý†þþ€_çýô‚.~=Ήt¿Æçóh÷;ß~ ~•Ï[]ð;÷ƒ~~<Ó Ÿßöà¶só|yCsºŽß§_¯s#$h´—GŸ¥ÇíKKîw;´çÆ*Ðüýì~ç1Æýd7¢éÁówtƒN…Úý:ÿÜØî×ìkB»Ÿ®÷y04ÎÏÑîwÚçMí~™ÏcëðËÖÝ„v¿Äûó<¨æ—t¿Ý s¢6¿´Ø^5±5{mljó;¯´/§áHÐh­!1Ýy½>/¶–¼Y5½í‹˜ÆûäèaZíãiÈ’ébÿ7t3­öðè÷ùiÝOï—£Ïëé&àù: k‚Æý` ­éóþHÔËôy~ñû~¢+ú3Ð:áxüÎõ«Ôî×x=ìÅ`ºòûö¿Êöâh÷+¼þ}À/ëó~IŸðKúûÓýNïÏ« žL/ÿr¿ÓÑÅûéèõé ÖÓMÆýd/ZÓ÷‡½ˆMŸöÙ/êºt?Ý qí~…á—y?í~‰ý›Ó‘Hиߎ6¿©ïs´ù!OÇß÷ŽJ=ã%\OëȘÖýghOƒ_·®<´û©=9)÷Óõ9z@ãy>3÷+ìÿí~™ïÏ£Ý/ñ}`¿£­ÿ¹¨4®×ðEµþä¦6¿ókMú<¸õØâù:¬¦;zì¦'4îŸé'®ž¯U¤»éJ¿£ÝOÏÏ9p÷Ë<¾£'4Úsë±›N|~6¿s ?€î=·wûó9Qæwn;œ¿é/jÓx¾läazðù<Úýt=Žv¿Æþó¹PîWÙ8Úý ï·sa34ÞgG»_æó3üûûçF1¿Ó¬ }·Çôâù<7V†æ÷_î×&¯÷ѧãZÛ`ÌnLÓ>‚ž¦Õÿ³Ùtåý¸¼¡­Oe%øéy?†ûeöOv¿Äë$ó³þȤîи?—wÔëyÍaüpDó;¯I´ŸG›_Õxã<Èî§þÆÑî×øþ?zCg?_§!p?½oŽv¿Âûá4î—ù<í~‰ï“£Í¯¨ÿyž Íó1ÝïôÐ~ž†ËüŠúOÖ™¼>…zú Ÿ÷†Â4î·£§éÆçÿ4”Ùtåûøènºð}t´ûÓîŸß~‰ïÏá§övûÀ§fG¶Œj^lï¶wäkÖxð4ôægïÿEm~ç}÷×nðë¿Ú‹Ãt³Óí~•ýùÝáWØžî¿Ìç８2tÊÔî—Øÿ:ÚüÎûýŸó¢3¿ó~çù˜îwÞï<ËýÒàøíèöçèsãÔ¤ñÐy±VÓýA{ñš®¸?JòzM÷‡én:£?gzC{ÿ·œÿp¿ÓÔǯ[”c”M³?fº›ž8^Ó:Á¿š_Ù|ß™v¿Žö¼¤?ö¿L»ß¦7tÂ÷éð+hßL»_FûVΉr¿„ûÁ´ùÛtI›ŸÝÖ8¾é~ö,jó[ìO–s¡ÌϳIí~ý}Óg`Sì1ÆñokhLgéiºò|Úaº ¿`º›ÎhL»_¢_ÎðKô;Úü&ï§rnLó³fTÚü¬Ù]Ôæ§÷uÉÞq7í÷§i÷ëh¿Êyܯa|gÚý*úc¦74®:Òe<Ÿ¦ÝãårD÷ãûÚ´ùÙûzSo茿7Ýo°}2m~ç}Ýá¿ÜＯqþó‚_çõ<ú<è¦ ü¶ üÊhxŸ˜ž¦9SNC“MÏÑÚûǦÝ/cüXJ†_BûnÚüÎûçç4t:ujó;ïoÜÿG›ŸæGŠ5”¦¯ÿÑ:ùõ8 «ûuŒ‡M»_CûdÚý*ŸÇÓ0»ßߦ'4ž—Ó°»Ÿ®†¥s?Ýà ÓËýÛ/Óæ×t¿}ŒLóø·=å¼Ï{¢ž¦¿õÝ4»iΗ™v?=?çEè~ó¦'´÷o âÅæ&µùUŸ6ƒ6¿ºØ~UPMãù8ÚüìýŽÏûƒ]Îû}vêÍãmðëxŸø˜f« #`¶Þ´fh´¿Öq0Í÷½i÷Ëú{~ã Óî—пñ?ºl¶ÿÕ&~¤Ïaº@{Cb—µKOÓƒíï9q:KwÓïÓî§ë×2üúw¦Ýý»pîW0>÷ íïOÓî—ùü· ¿„þ¯ió;1îïs£d蚨Íï4Þ_4m~§Ùø|w¿<ù<¶¿Áöîܨî×õû~]¿?à×ä?áWù¼ØƒÍãYð+¼ßÚ‚ŸÞ¿6¸\óûn;Qö‹zBãþ:êyQùkfQwÓ ãEÓï_먛ž¼^G›_ìXÇ￣ݯó}o ‰éÆç£Wø5ô? öZÇõ9 S†öùÓîW0ŸcÚý2ÛïÓ°UèÜ©Ý㉂‰aëÖðï{ÇÚ4Úƒî u‹p¾º¿¸Mãþëþ"´nž§¾à70?jºCésa¬›‡ëÕ}"Êt’ž¦õ>Þѳn&üìÅ]¤ÝýG‘@ãøl"ßtf{n/Ó‰ï£Qà—ØžØBÁÑèv›®îw4žÏ£Ío©?p^|æwú3¸ß†O”˜n…Úýô¼Ÿg…Æõ=Úý:Ÿ×1à×õ÷üšþÞ€_ãó|^ÜîWyÿí~\Õ²}†Fûe A¦ý´˜Þö"4÷ÇÑÍ4ÇkÞ‘€ÆñœŽÆˆØ0Ñçs¼ã÷±­r™^ïxGÅôd{bKfи¾Ö±1ÍùvÓïë™î<XÌóau¦v?η[Ǫ@ûx×;Z¦+ŸßóÁ÷-:f6 €óoï'L¼Ø´ú3GhôÏq?µŸsÂ/ñy›>QeÓ¸ßω)ÐYú4Œ6MŸo»°¦³t3=¿~¾ á.L1=ø÷íÂAãøV†_çó»2ü:¿ßÑî×Ø?97JÆùY~:çFKиíÆ3]x?½ +>ßàÇ•RÓíë¹ÑÝëi¦4î£Í¯s¼m…þÝò‹é„ï;ÝÏæsuƒæùšð›¼ÞçA.ÐhO–¿Ø|Z?ßÖКFÿôèfºëx½cjíßiH 4Úg(™nìÏž†(Aãx¬a2]yþ^Ðxb æÓ¸z@£}Ù~…ýÙ£ÝKÑ>ЃæßkðKìOî?µÛܦ­ñ<Ú@íçÑ íëö‰0›Gû{ô€Æù´ªé©ãŸðÓó¿'ü8k_÷¼ßíÅS]£}ÂD·Mû/éöoûB¹i¿l ]L7<¿¦´Ÿ_˜»w˜nÐÞ~™^Ð>Ÿa}÷+è/šÐþ~ì˜nÐÞŸ1½ ýûØÄ‚û%̇™ÐÞ·‰ˆµù¡ ½ Ž×Þ³æÓL›Ÿ­ïáx|"Ót­ÔîÇöÙô‚æñ.øqýßô¹0¶¬µñómÎtŸÔ ºèçË4×ÿmâ¦@{ÿÇô€öù-Ÿè1Ý0fºAûóΉ!ÓÞ~ÙÄ‘û±PÑ4Í߯ð«úý ¿"ÿ ¿¢ãið+ßšv¿Ìû#wøñù2Ý K§v?®?ÚDYÆùÌ~|ÞlbÍül>qS7豨t…^î§õJÓ§á·eÚ‰ïãÞ—q¥t–^¦'¿ÿéøè.= q½Ï@Áýï£4Ž¯dø ô?m"²@ûøдûuô‡mâ2A{ÿÓtƒÆóP*ü8ßãŸÐü{ ~ ó)>Q íó '[†_zAãz•?Ž|":áx&ü Ïg™ð+X0½ q—¿¬ãõ†Ðô„¿¿˜L·JÝ ó¤^¦Ÿ§schoOMh|_˜B{{nÚü2ÛkÓ zàç¾ÐcšŸ÷Ž²i~¾º_æøÜtƒæ߯ð[xßØDzöñŒi÷ã~ ›ˆOÐøþµÃãÓ ÚÇÇ6‘_ S¢v?Î×ØÄ‚ÆýR'ü¯_ðãú¥/˜æþŒŠ ¾­ÇïŽižß8bšßÇ&l› ®gó…#ÓÞÿñ… h´/-ÃóÛ¦´M»ç#l¡¤@ã}d= ýýe + ºH7èԨݯ`>Æj ôи^ö"„.Ò :I»_Æüš- è!= é7á—yýÚ„_æóc/zÓ\ßµ…¨û±ù@Ò·MáüúB¢i´7èhø6«E}NœmÃBû{:*ÚûK¦4®Çéè$hï˜nÐhÿz†ßBÒÞ ´÷÷Lh|ÿÓKЭQ7ho¯òC{×ü&ŸçÞà7Ù_°Ž!t_Ô ïïÞá7Ùö!?œ>àÇõ _˜„Æýytƒ¦ÿ„ßàõÃD©é2¨OÇÀ4ÛkÛòð<ÛB)ô\Ô çÇV¡}þÎô€Æó` ±Ð8ÿGÓ/éçî§÷ý8h\ßQà×ø~~ç æ‹~N?¼°lÛñþ:z@ãùÁ³okÜÔ ÚçùPmšoÈ× Û¦Ñ?~…ïs,„û¶ÊN½ 'ŽoÁ¯ðz}Nß–‰ß÷+¦k¡îÐèÏ oø}[§ÿ3ð¬¦3û¶Í÷÷ÌðãxÖt‡Æ÷~zÞm,4Ú[ ”³Ö³lcýÐß<ÚýÔÿ9zCãýÆãçÛîÐx?Ÿñw†Æ÷Ÿ]~è¯M?´gsÈ÷ïôI[Ý©3üÎ.Ñ»>²»ÄËÅf%\¢mš¾iFKq&Ï=ˆ†I_BÙÜÈa²»D?qúÚæ6#ÛÿQ]&I³â"½íÉ.§dw‰.ΑÛ%qÙ$a…ñÆoêHÂ*K Ååo)[K\”Ó%^M6çärJv—¸PËG¼¶rРÔ#a…·êeà Àš´Â5[“VxDÏVxƒ,_ú܃ ͼ¹Ä󳼡ß\ž2¹]âÔmßæ·r'Zá ÏØV¸µw¦î¬#a…ï.´Â™Ü…Vh†Ï°V¸¾Û‡››þLn—xž1vu‰»îÈé’ÇÜݪcÂÂ$¬ð>ƒçî|ýØѺÄÕ·óà²àûNZá<ïI+ ÷¤n»…Žl|Rìn¬Xž7¹­AÛ§}û~óÍY6“ÒŽ¹áéÜ܃dVÞdÛ^6XyÚ$¬ü*4´TvŠðË…VeSªà—+­ò „UÚ”°JøåæV\909!q̾Caó=àú\ú}erCf—ƒV>)aVþ„ÚæAXõB «6(aÕðw­j£š0 +ï#™„•÷ú )ƒš/¬­ÅÛ{TZ¡5;V¸ÛG¥îö3h…Ú:[¬ƒôK†µ¼ÅƒŽÖA&JX ü¡A+¼ÊmŸ$þФú9cÒ Oʘ²ÂZ²J”gˆ¹úÞN$B.Êéhz{²¸KÓéGÈFI+ÿC3Ë*SÒÊÿ.ÀêµøÐ +´ÏG ÝYi…gðôâäÎ/ ×~ÓØé¿ÿi4¶¿pþ/46é7í-??>~~EÖÑ~ì8Æ×Ï)_¿`™^¿@ùú[Ðxýåûöý ;þBûƒßáõ ¿øçèW¿ÿçè÷¿úí·?ý÷å#üð7ÙMÒóè¦ÊÇR?üæãgçG?ÿøáï¾ý»Üûÿüa'€îO—þ§mcUøtûçÚ·ߟ?áÓëûôúçºÅ³–¿Î–OÅþ†yB¦íŠ…ŸãaÃŽ»¯g\bý<¿®8~Á÷–Õç(_¿à‹M_òý {¼ÿåëcÀ_x‡Ƶõ­áË{o?ù¶Â‡‰ÿüôÛÊ?m›O_æ'ßV…{Úûבÿ„ÛŠŸÞåëÈÂm…O“/ÿƒ·‚omíWc&É}êJþíZÓÿυØPxð/~ö÷ò?~~þïŸýÕçÿñçùñßůúúøŸ¼\³Oø8`õç?~þÕ?þšv?~ü?¿þϦ󟟿þÛßýî¯?~÷7¿üñóÇ_ýã¯÷Ûç/ýÔLºìï¯smmRð™Ìôøc¦ÇÌôHïLΠ0Ócp`ÄL11–e¦Ç ~ËLÁÕfz nÞf¦GçZ3=:·¦0Ó@ì“éÑ9ûÂLÆA3=ÚÄX‡™­af™­ð¨éÑ’2%éQ—26éQ9O­LÊ5.ezÔB¦Œ™UL#3=Ê M™…s×Êô( «LR”1‚L’”L¼ôsdzä=ÊôÈ™ÌôÈE™ÈôȉŒ3=ÒbF3=ð¯Ï'Ó#5er Ó#q‚Q™‰{Ö˜éa3Ö`æéa½‰­ÌsÞ«&¾™éa=]0ÑÈô° 0¯Èô°µ„Ѩ[c,m~k1F¦‡-Ÿ0ÃÃ3=œ†_Ÿ|dzØzÒVæ‡ù¡yýT¦‡3½“Úü´g•™¶ô&™¾Ô'm~c)óÃ7ÓØÒ$ÿžo¶¶¥L\dzØR)2&éaK±Ìðã%fzøRñ¢6¿>™IL_ÊVƇùu1ÈÈôð¥vhŸ{ð¥ûA=ú·|*Óö0sÂg×l«Ž™¶ÕÏ2=*¢>•éa[/À¤"Ó÷vjó«‹ß™¶õ„¾ù¶ª¼3=|+ŒŸ_dzÔÊYkfz8#º©Í¯leŠx¦‡mbf‰gzØÖ£®Ìó+Œ*2=l+˜YdzøÖ*|¿ ¿¤ïë™ên+Óö†ñ|úp·>™ Èô°þ&îdzT1Ìôð­t~<Èô°­wå•éa[û˜qá3¶Î\"£ÂѶò÷}öÛO¸‘éá[µû=™~…Ï2=lë&3E<Ó÷~"SÃ3=|ëh¦nÙHþ=ß\`[W™ùá#)Ûúúd|¸_Õçü2¯2=Šæš™éQ4 ÈLÛ:Œó‰LÛjŒö™¶•™™$>Qž dzØÖid Óö^ƒñE¦‡mÕsŽLÛê癶•œ~c”'S™¾u]æ7;™zdzØVyÜÏÈô°­õx^ñ`ÙÖ|¼éá[ý µù ÝÈô0ÔÏ 2=MhÔæ73éQ0qõ©LG)ðù¿Êû™†j4e|¸_ÖñOø)󙥓ia¦‡3ƒƒÚüúÔ÷õLò0þÈôpF0SåŒ`yezªƒŸ#ÓÙ@i÷ãž)fzJ„÷2=œôï‡LC—ž ókS™žéQžL"l7Ô í º0†fµW¦‡¡]¸_7–'c™†’1“¤ÃOÏ2= ]{2;̯’yc¦‡iÜÈô°ÑpV†‡ùiO03=ÝÃçüô<"ÓÃ涄LcöÐâB£Ç Ïô ºø©LG•áqntcöŠ2?̯(™¥e¦‡1yx#Ó掞ŒÍL¿Æë‹Lcò˜ÑQá§Ldz8ÚªŒ÷K_™ ý+dz”'³™Îàáø^7æï/dz˜F™Æàá~C¦‡1wí•éaÌú§Èôpæ®S7hfxCS²2½éáèt¢žÉ™:|™¦ñ< ÓÃ;ü}dz8c‡ß÷ÍFÎØjóK“Ï2=Šö¸1Óغ¥Œ ÍL ?Ý_ÈôpTºÁ¯²=E¦‡3u“Úýô| ÓÃÑþM=¡ÑŸ@¦‡1tC¶‡i¯¯Ì Íïã_Ìæ%ÐC¦‡Gàï-ø ¶gÈôp†N;ƒ¡S†GÍÎС}@¦‡G5 £ÃMge|ôìÌÚWdz3·^™¦qýéáѯL¬EAfzd­V1Ó#ký‚™ѨÍoM¶OÈôð¨ éñ2=œ™ƒîðSÆ2=ücÈØðk˜¹b¦‡3s…Úý¸G™¦Ñ#Óƒ_ûS™¦yü ~IÏW“Lãz`aÎ.ϯÅ~ÙüçÈô0Í Ïô°ÛïOdz˜Æû «úváû#ÓÃ4®2=ì¶ÊøèÐYî§Ì dzøc©Ý¯òú"ÓÃ42eéáÝ ÞÐh‘éa-®'2=L§W¦‡7Òúù¹ùý•áQ¡ñ|"ÓÚ!¼éáÍÖ¢ö¹Ü'³Ä_TÎÌá|{¦‡3szB3£Ã3=¬™#XÖ›áJí~b²‘éaL22=¬Ù_¯LÓ̼(ð+dÆ‘éá¯exThfrTøe2dÈô0•áá~IÇÛàÇ­ÌôÈO†2=rçû„™öšeƆo¶7 F™Yó&ÌôàküS™þšÇçüļ"Óû •ú<ØÞ@¦ˆ¯c{7#QOè‚Ì ßÇ`Ý0†Èô0]¥Ý¯*£"Ã÷/3=L3“£À¯ñC¦‡w³2õ†ÇLï¦Uê ÍLŽ?ŽÇ˜éáÝÀM½¡™Áá™Öƒ‡LÓõ•éaÝЭ  &™ÎØá÷'ü¦2?&ü”9€LŒ­ ŸÊôðns¦>/jïVÃÏ3=Lãz#ÓúåÈH|âÌ]¢îý‹¹c¦‡uó™y‘á×Èô"Ó#?ÈôðaĦîÐU:½2=lXÂ߯ðãxœ™>¬©ÔîÇþ 3=LãyD¦‡ifŠtø‰‘D¦‡³”áÑ¡q~éáLü<Ó#×­ ßüoL.2=|Øש;42é‘•ÅLgô¤'43(<ÓÃt•îÐOƇû ~dzø°¶QOè¬Ì÷#CÃLŒÝKŸÊôða425*ü¸•”™¦q¾‘éáÃòBÝ¡ù÷ü*æó˜éá ߢžÐÌüðSF2=r-Ê8ð#³ÅLgú µû1s‘™>M±¨;4×;n¹ŠùF¦GÖ|3=œñóãA¦‡3~“ºC#ó™¹p#3=|Ú%SOhÜÏÈô0•áa~eéó~KŸ¯ð[ú|…ßÒßoð›l¯éáÓH•zC£}E¦G.bΑéáLà+Óãa™éáÓXzC#3™6 ¦™¹¨}A¦‡3‚…ºC—W¦‡i´7Èôði·F=¡Ñ^"ÓÃ432¼£æÌà¤v?Žw˜éaÏ 2=œ!„_Ÿ2Héá á¦v?ÎG2ÓÃ4idzpòS™Î6êÍL’?Žw™éáӜҺ)Ã#C—w¦Gá¦Lez”¤Œdzî‡T¦GQ{ÇL’ä‡L’”A‚L¬þ3=²2r˜é‘÷é‘·2'é‘•!ÁL¬û›™Y$ÌôÈÜò£LÌñ”2=²îwfzˆQT¦G&“¥L<ïL¬ûŸ™yòû3ÓCãkezä¡ãE¦GÖóÀL<˜‰ÁLLò@™Y™ ÌôÈÊÜb¦Gî<¿ÌôÈ™ÌôÐx^™YÌôÈO¦2=2W«”é‘ïfzä¦L dzdîàW¦Gn<~fzde²1Ó#s¼¥L¬ fzd½ï™é‘+û+ÌôÈU ÈôÈOfG“2˜é‘™ñ®L¬÷3=4Ÿ­L¬ (fzä¢L‘)¿'ãƒ~I?w¿ÌëÍLÌÌxezde00Ó#“V¦Gf}ezdõç™é‘3Ï3=27F+Ó#s=Q™Y™iÌôÈO†2=râóÁLÌÝÂÊôx2˜é‘”ÁLÄÍ·ÊôHz¾™é‘63ǘé‘ôþb¦GâSez(“Y™‰ó#ÊôHÜI©L¤LDfzh½A™‰›ü”é‘3o˜é‘¸> L'É™‰ûÊôHSÈôH“Ÿ™‰ãKez¤©ŒŒ,?|fzˆéT¦GâxT™i~ex¸ß`ÿ‚™I™|ÌôHÊ|a¦Gâz’2=´¾ªL4¾2>èW”ñA?œfz$½Ÿ™é‘˜QªL¤÷53=’2˜éñd\1Ó#u2=×ה鑔)ÈLÄõ0ez¤NÚŠ™©‘yg¦GâøP™©)ó™‰óAÊôHœW¦Gâ|™2=Ò“R嗥闤ݹÊôHb¾™é‘˜¬LÄÊôH¯*Ó#1óX™©2c™IÌôHœŸU¦G"'¤Le†)Ó#ex Ó#‰)g¦G*dŠ™é‘XE™‰ó?ÊôHœ?T¦G*ʬÈò¦ÆLT¾2?è‡ãe¦G£ÎL”‰2Ó#ee~ Ó#ee` ÓCóµÊôHÌ W¦GÊÌxa¦Çü2Ó#qýX™‰ëŸÊôxXfz¤L柙‰ý-ez<ö" ŽQÜæ–yæw<ð.â;6·®3½c+Lá{ñ9AvÇæ¶Fwl&)1¹c?Á•Vø‚ÈíØ,ÛÀØŽÍT:¦vlN 0´csüÇÌŽÍH}Fvl®Ö2±cs²[ù@ÈëPyÆuÈÕØŠA¬ÆæŠS5…3Tcs¾“™[‘#ˆÔØÜÃD­Î5„Œ3OcW6›ˆÓÐÊ/Ó46Ò ÓP¼²4”+KƒÉ×ÊÒ _®, æŽ*K£(xYÜ«,¢Pdi°Æ“²4Ôýd–Fá%c–FùJË€ú¦ÌÒàÖQei¥VZáÁa–kÁ)KCQ_ÌÒà,²4XFYE‰VŒåè´B{Å, …¸0KCýafisW–wÓ*KCefi%|LZáú2K£|EkX>Dá3È, eÅ0K£(xYœåP–7Á)KƒsæÊÒPÌ ³4X¥IY™WŸYê¯3KC‘SÌÒ O¯, +Kƒx½²48Õ¢,̳4nÃ,Ì÷³4mÅ, ˜¥¡`?fip [YY±“VMá°jŠÖ°|ˆ¬ÐdihxÁ, ‚ûÊÒ`/ei0_YŒ¯V–Óx”¥!¬ŸY§(K#+L¢Ð h/³42Ñ^fidEMTZeF£UV´¬ò;KC‘ÌÒÈdy™¥¡„fid¥t Kƒ{i”¥¡Àfip'‘²4”À, fÇ*KCqÌÒબ²48èR–FR²48%®, … 0Kƒ4ei({€Y\.T–w+Kƒƒ9ei¤;KCÉÌÒàJ’²4TÀ, î»Q–†r ˜¥‘”ÃÑi¦–Y‰L-³43ª, ¥0K#‘\g–†B˜¥ÁŠ¥ÊÒPæ³4&+”¥¡fi$ÅT$æCdg–7¶+Kƒûª”¥¡€fi‚P–†ò˜¥‘qQi… fipECY,*£, ¥)0K#)£Ó*+<V¹RÒ ÎƒVˆ¨a–Fú Ï€žfi(‰Yœ–ýÊÒÀƒódiÇC–Æâ YON²4«N0Kã‰m@–ÆÚ|¬°Ðù¤8 Kcq6˜Y‹Á˜¥±˜°Å,µù”!Kcqr€YOä²4žÈdi¨” ³4ždi,N,0Kã „@–ÆÚLaA–Æ“,'Y‹“ÌÒX›O(²4+¶2KãI@–ÆÚŠÙŠšh”Œš(”û-‘5qgi0jBY]Ñý<¡, óO–¢bž, <ÝO–F¿³4ð°?YxØŸ, ÆT(K£)-VL­P–Bhž, †X(K£ÝYÈ´x²4Ð2YLËP–Z•¯,N9ïð ZÊ?˜¥È–¯, Ek0K‡ñdiLÊ~'m0K‡¡, o(K-Ò“¥‘žA«LyÅr,År¼³4ž”di0|XYOh²48ɦ, ex0Kƒ…*•¥ñ’´*”´BZF‘U¢d‡Â3˜ð¡ðŒþÊÿx²4ö¥±ï, ´„O–ZÂ'Kã‘WXˆ²4ÐN>YÌQ–³C”¥fóÉÒ`”ˆ²4‰Ô $åYÈy²4Ö¥±î,ugiÌ;KcÞY”ÊÒ@ƒüdixƒlàs>§õUʇmð.>ÿmþ#Úü¯m¶gDhsA·„hóÌÚ<¹ì"´™•‡„63(Xh3×l‰6kK2ÑæQÑE'Ú<¸ÀF´yptC´¹³@´Y3ˆ6÷æ…hsçÞ,¢Í E´¹3fPhsçÖe¡ÍýA—67¶ÎB›Û$J´¹ië?Ñæ&ô†hsÊA´¹qk•Ðæ–¿ÐeG¯Ù?Ú\U^˜hsºH´¹v¢ D›+çi…6W.Í m®<ÓB›+‡™B›‹ÐA¢ÍE(Ðf&<(³£ÜèöD؈„è´ï¡òÑÍ ÍËãüm¶qÐ?ì ñò߃Úü²Ê½m¶Ñ!Žh³-_hs{Êy‚²a+Qà?Æ möòÜÚüûbD›mäÎÏ;ÚÜT>‹h³Ï(àï;ÚÌéˆO¡Í6[ÁãðãTÑf›Eá÷Ú¼…RmÞ, ´y«¼=Ñæ­óO´Ya¦B›57+´y … Ú¬i¡Í mFS÷ù ÍKh8Ñæŵ¡ÍKåy‰6/NQ m^œ–Ú¼T.h3ÞJŸÚ<—Ðh ÍS(Ñæ9ø<mž*J´yr–_hóäV,¡ÍSåh‰6ONRmºD›‡ÊÿmB͉6NÔ•hóJK´y]!ÚmV¹;¡Íƒ[“…6®y m…ýG¢Í# ÝÚ7¦.¸^@› ´¹´,ô×çÝ°i/´ù)GL´Ùˆ<Ï@›*ÔæW'ß?@›(ÂõÚlDÒÒÏ74¢1€6Ñ„çh³Çt ]v?õ€6;qµ¨Ý/³½Úlž_ Í¦”Ùü g/‰6;Q6©Í¯Ì m6MtÙÑf#Øð¼mvNºCeö¹/#èê m6í/Ðf'ö\m.B[ˆ6—¢ö hsy¢l€6;a(ÔÙü2g²‰6±H4Ú×îpÔæ—'ûç@›˜Äý´¹µ ÚìQBݯɿÁOQW@›ËóþÚlÄ(ÀOQXØ f*úg@›I¬~ m.ÚšO´ÙX´ØßgíÐf#hÛ mvßgÄMçÚìD/Ð__¦2x¿ÐfÓ(7‰=ªF£Ü)ÐfÓI¨³û©Ü,Ðfû׃:wè"í~\‚'Úl:I»ŸP¢Í›ãs¡ÍÚå)´y/Ðæ­­üD›7££„6k<'´y«œ'ÑæÍòFB›·Ðc¢Í»éø6o•ß&Ú¼+Ñ¢ÍÚ#´y¡ß@›Õ¿Ú¬|¡ÍʱÚ¼"´y ½ Ú¬ùz¡Í VÚŒ™µÏm^*·N´YQ B›1‹÷ù Í‹Ñ'B›7â m^Mßhóâü€ÐæU…nm^*oJ´y Õ!Ú¼ŠÐj Í‹Û?„6?劉6/¡ºD›cò…6ϵÚ<…¢mž*ïM´yª|)ÑfE) mž,(´y~?¢Í“åé„6O¡[D›g¿ÑæÙˆ mžMh5ÐæY…þmž,."´y²Ü”ÐæYˆRmžEh6ÐæÉB›§ÊÃmž*ÿL´yr]hóØú¾@›×å„6®zm_mº‰6¡wD›ÇÄûThóB‰6n‹Ú<:ï?¢ÍCh:ÑæшmÜ:)´y4ý= ÍCåx‰6£Ûûù ÍCh'Ñæ!”ŒhóàüÐæ¡öhóàž¡ÍƒE.„6$ôhójI´YýK¡Í}ßhs_òÚÜÑ¢Í}±ý%ÚÜ'Q"¢ÍO”Ñæ>„ mîƒ( Ñæ>„&mîì?mîºß‰6w]¢Í½¥"ÚÜU~šhs:H´¹Wý} Í½Þhs/B‰6÷"”hsZK´¹«¼7ÑæžÙ~mÚÜ“Žh³¢¼„6?哉67.Û mn[(4Ðæö Ü@›Ûú ´¹q׿Ðæ&4hsã†{¡Ím]$ÚÜ8Ÿ+´¹ ý>Ðæ¦è¢ÍOye¢Í­ó}J´¹©|8ÑæÆò}B›ç+„67]O¢Í[y…67¡þD››Ê‹mnEh6ÐæVø<mnŒFÚÜÝA´¹ Í$ÚÜò6·Ìû—hsKŒ!Ú¬rÌB›ë®m®Ü+#´¹ å'Ú\¹3Ahså:·ÐæÊZB›ë* ´¹ª|9Ñæ*tŸhse9I¡Íu …Ú\§þÐæJºAhsUôÑæÊù ¡ÍUýE¢Íµ³ÿA´ÍÚçƒ6Wn§Ú\…m®º?ˆ6W¢vB›+÷… m®U¨6ÐæZ¿Pçû‹h3šñÏm®…ï¢ÍUè=ÑæÊrŠB›+÷µ m~¢!ˆ6×åÚ\3ÏÑf•Ú\“>´¹ª¿K´¹&ý} Íeó~'Ú\¶ŽhsÙB—6µÿD›ËÚ ´¹0zKhs!$´¹,ž¢ÍEï¢Íe Ú\t¿mF·àóA›‹ÐV¢ÍE(+ÑæÂèG¡ÍOTÑæ¨@¡Íe…Ú\Ô_'Ú\MB´¹t¡¿@› i¡Í¥Ýhs!**´¹ Ú\8?!´¹cÚ¬rÓB›5Ú\5&´¹è~%Ú\*ïw¢Í…;ã…6—Â÷ ÑæÂõ¡Í…»Ã…6—¢ó´¹p=NhsÉB—6?ÑD›Ÿè¢Í…»u…6õWˆ6EŸm.º¿‰6½‰6îxÚœ¹}Phsfé&¡ÍYh9Ñ漿PæþÑæÌí=B›3w¥mÎäó„6gŽ§…6çÅëC´9s>WhsVûK´9³J¦Ðæ<ùþ&ÚœÝ)´9+Š‰hóSþšh³Ö_…6çÁrÜD›ó ´93Ph³¢º…6+JBh³¢$„6ç. ÍšÚ¬¨`¡ÍY0Ñæ¬r¾D›³(¢ÍùA±6gF» mÎŒ†ÚœÙ_Úœ9ÿ ´9W¢|D›³ð¢ÍYÈÑ槼6Ñæü Ó@›sÕùڜżmÎ*ßK´9ó}"´9‹(!Úœ%&´9‹í ÚœhmÎ,D(´9s~@hsà@´9«\/Ñæœõ÷šüÀ mΙPÑæÌíöB›óƒ"mV´„ÐfEKmÎB‰6gnÑÚœ9_!´9sKóƒ6 ÚÌM¾Ú¬’¼B›UÞ[h³ÊÙ mævÍmÞ_(3ýp mV%^ Í-1¨ôÍœ ð‚nöh‰MM?þý&?ÜOœ¹­ãS„³GM$ê øŒ³o ߀ß!=à7I!sö¨‰LM?ÐB˜øý*ÒÙˇOêóàû6•ëüUNœÄ»‚vö¨ 0ʾÝÞ·½$júmðìåÅ…8ÓÄgšô[àÇè1BÏ5ì·ÂOˆ)°ç âäSܳGM€)nò«ÒôÂôù‰š ûüUžðóWÔègß&$= §€ç=^´GOHÓçkɯJŸ ïÑ¢žt~QоIzMDO€öU=!= §Ðç  (´GOHÓ÷`èŒiÛOÑÐ¾Í xp•Aä*?´×¢=jºÁO\ hš@ÝáW„[wø±ÿC*Ú£'ð}†üÈTù¤íQB¡é‡rô@£}›þþ‚_fû8Ú5þ¾ï„öè‰BÝ g¥^Ðh¿H{ÔĤ¦"€H»~1Ò=Q¨é‡ó JÚ£'5ýð<“Ί&&(íúEJû6<ø5ø%QÉ ~Ir—î.¿.zš~Ķ‡üð>0íQ8ž)?¼ßLEO€™þŠž 4­è BÓz{šVô¡iEOšVô¡é-¶7ÑŠ u¦® ¡iEOšÞ_”4¬ÐèšæÆ~AÓ[t¥UCmV\P4Í悦—Ðf@Ó*Ohš9H‚¦Y¼QÐô$>h…–‘Ðô>iÕ„Tà 9¡i½ÕM/}A@ÓŒo4Íô]AÓœá4ÍoAÓŒ*4ͤcAÓS 0 inv4=ÙöšæPTÐôŽ]i…ïKhzŠ¿n´ŸKhš»MO¸„¦çR +¼2Ms‡š éyCÓã‹’î.ùõM«·Ohz°1$4=x¹ Msè,hš+킦átBÓœç4Ím<‚¦õÖ&4=x{šÖ;œÐô`Dhz0h…Ðô€\i…›Ðôb hšÁR‚¦YCÐ4ךMsj_Ð4Gþ‚¦9Ñ,hº‹ Ÿ´ÂÃNhº Ÿ´êohZcBÓ¬f#hº³ÇGhZI„¦;ßß„¦¹Gдz„¦™K/hZI„¦;›>BÓJ¢ 4­$ BÓJ¢ 4Ýx_šÖ(ŒÐ´:-„¦•DAhZI„¦ÛC +œIBÓ톦•DAhZ½BÓJ¢ 4­$ BÓJ¢ 4­$ BÓêšV¡iMs•^Ð4óeM7ÑÊ™VÄ“3­È#šf… i&Qšæôµ i&QšæfAÓ\û4Í¡ª iöÌM3LÐt%WHhšÃZAÓ,!hšù‰‚¦¹F"hšK†‚¦9#%hšÌMWá瀦+Á:BÓ\½4]IÚfAÓ•…Ð4“(M3£LÐt%hFhº’#4ÍY2AӅ׈Ð4×ÜMs‹ éBðŠÐ4ô‚¦¹¿SÐ4»£‚¦‹@ïA+TZ&4]DvOZ%4]„r/Zá š.¼‚„¦‹`m@Óìå šæ&JAÓœÃ4Í.° i®x š.®3­HXZ$4]„TWZ= 5¬.hºÜÐt%Ýhõ`Ñ°Â3Hhº$$4]>Z‘t4…6šfµ2AÓÜ&h:óêšÎ¼ú„¦™ÜIhZ»1MïL8ÐôΚޙ7 é…gZMQÒ°Âã hzgQÃ…V¸7MoNÊšÞÜ3DhzsʇÐôÎ|ØMofÙšÞ_šÞ™Ï> éÍÕ BÓ›“G„¦wæhz³ª¡éÍPõ ¹iQÐtZ„!Ý¡úЄt› eBºŒ©óÕ(@»I4!]@‰îeÒU½ÂDHWëAë­¢zÐKëA/NK=õ ¹ é©])³´êe³ôä&=ÕƒžÜ¤ªzгbW=hAêª-(–õ ÇSoõ Ç ŠöúÍMõQz¨žŸêA«^/ëAwÕ#Fá›k hƒj{—? Ýþ|ÿñÔoÆïOÕof½g@ºí9^@ºmð~ÊKõ›éšn‚ÄM«>“ éÊYAÓ•›”MWA¯„¦kSýe@ÓUõX MWÕ£#4]¶ê'š.Üô!hº<þ€¦‹Î7¡éRUÐtQ}@BÓEõG Mç¥zÖ€¦³ÎO¤›»êUÒÍ•PG¤›q@ºYõ³ ÝÄ„‡¦Q™4 Ý4¾ ê†úË€pM'ζšNÏù4Øý#4ýeš¶½1ø¾€¦‹r€ MMÏš. ø$4]”jHhº¨ëFhÚö:±^sE½åùUz ¾2 $Öƒ^ÐëA?õYzå/HÚýt½XzrS¦CÓ¨§Ìz̨?<9«íÐ4ê'zFýáY]£þðS¿½¢þðä¸Ìw{¢~2BXz,B—¬=1±ô誌zÐCõèYzp~Lõ 7Áªôx àüÔGÆÏQº«^9ëAwÕ›d=èþü}Ôƒî …`=è®öˆõ {V}jԃtäÅzÐMõ´YZ›ššF½ãý@Ó¨wÌzÓ€tçRšF½ã¢¨wÜhõŽ‹ é†zÇ€¨Xº.Aä[õŒ oÕ3FûÉzÐUõtYºrÑ]õ «Ž‡õ k¾ icš ió+[õ’QZ›6M—©úÊ€¦Ëš.¬ÿ#hº4AÉ€¦U¿JÐtá유é¢PBÓÚÄ'h:ï/ÝPŸøÑ‹õˆq<¬?̸r§P˜õ¢YXýƒþÔHh: *$4­z:‚¦sâû–ÐtÒóEh:-Õ?4­M6‚¦µéEÐtêª h:5Õ[4­M‚¦SD h:qÓ— i-ê šNœ{ 4Ÿúö€¦zÃçšvV°S ÈíMgå¿›f½à¢Ÿ{ýa…B Öæúi¯?\TÏ™õ‡çë…W¡q}MgMišÎ $4më{Ckê šÎO{hÚ 4BÁ~ªW hÚ 3 iƒÊš6ÍúÏ~ E4mÙQ»ƒc M;KÜ©Íoêþ4më/ûêŸAa„’šÎs ºF=èÉM›ª=¹”éÐtvÍúÓ¨? é¢zˆ„¦‹ vBÓ…k‚¦ Û_AÓ y4]¸ $hº<1 é¼=šÎ‚^ M?¡é¼šÎKõ§Mg=_„¦3ÇW‚¦ó¤ hú8Mç©zÌ€¦ó dBhZ† é5 éÜ!šÎÜD,h: "'4YõDÐt¤Dh:WÕ;4ýÔ×$4‹ a@ÓYP¡é§~&¡éœõy@ÓYÐ-¡éüÔ[4ÕÞšÎIõšMgµ¿„¦3 MgµÇ„¦óQšN‚Ø M§­úÖ€t“ ö H7©þ2¡iA‚¦“êÓš~êQšN‹÷7¡iA‚¦“î?BÓiÞõ CvMk“¿ éÄþ‡ é¤PBÓ‰ï[AÓi|AÑš~M~IÚý8¾4:ŸGBÓO}GBÓ©ëûšN í4 šNMõ£MkÓ|ýì›ä u‡F½TBÓ© Ò4:Ah:UÕ74:'h:=Ðq’_$í~ µ4X¯Fд6© šNEþ€¦SaûOhZõM'îh4íš~BTM'V4² è.?^BèÀ¯§˜s¥Õ›`¼!*ðÅk Gî´baä.«JI+±Ä´jL+†Ï¾.UØX¼¸dN®xM öó¿¦(hƒhÿ‘CÅ·¤U£¤•$ˆâ5…Àúöí5Å÷úž®¥xàÄK´%hâÅ=k„‰ßV녯ɷ3Hâ5UܸÊêÅ¿%­pÌ]V‚†Û-i…¯0d•(a5_ñ[ -ðá/¹h5Ó ßhËJ’V’V€\uÚy:ikòµzø-d¡\oéÝN$ï~Šþ’UV‚‰Û-a5^ôð[ *èá·„kwYAY &o9eÕ)Û-×[.Y5Êñ–[V•²Ýr½äL²*”ç<|Iï…¾e‡Ì”û-rzKZÓ­²’ì·„ú“ ‡ßr¾e§¹äN«Gî·²’¤ß)+É~Ëý–KVƒr¾å–•d¿%­@µ&YIηtzø-û-7¤pázËù–UV/zø-iå7èá·œoÙe%ÙoyY YÊù–SV’ý–û-×mµdå·ºoÙo¹_•NßòmÈé-û-7$xY§‡ßr¾e••d¿åeÕn«v[õÛªßVVM¸p½å|ËI«Gö[^Vë¶Z·Õ¾­ömµßVNßr¾e~[‘^“@èá/é`å[ηtzø-û-/«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝVë¶Ú·Õ¾­öe•“¬&å|Ë,+ÉÓ&¼å~K§‡ßr¾¥ÓÃoÙoyYµÛªÝVý¶ê·U¿­Æm5n«y[ÍÛjÞVë¶Z·Õ¾­ömµ/«’.«’.«’/«rŸvÐÃ_ÒçÓÞr¾¥¯/¿e¿åeÕn«v[õÛªßVý¶·Õ¸­æm5o«y[­ÛjÝVû¶Ú·Õ¾¬jº¬jº¬j¾¬j¾¬Xrù‘(¹ü’ó-Qrù%û-/«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝVë¶Ú·Õ¾­öeÕÒeÕÒeÕòeÕòeÅ’ËDÉå—œo‰’Ë/ÙoyYµÛªÝVý¶ê·U¿­Æm5n«y[ÍÛjÞVë¶Z·Õ¾­ömµ/«ž.«ž.«ž/«ž/«~Ÿv–\~Éù–(¹ü’ý–û-ÛmÕn«~[õÛªßV㶷ռ­æm5o«u[­ÛjßVû¶Ú—ÕH—ÕH—ÕÈ—ÕÈ—ÕÈ·J.¿ä|K”\~É~Ëý–í¶j·U¿­úmÕo«q[ÛjÞV󶚷պ­Ömµo«}[íËj¦Ëj¦ËjæËjæËjæÛê>í¤‡ zø%Ç—4z8¥ôñþçéá?ÒÃÿ:éaÉv[µÛªÝVW_r¼%èá—l·\o9o«y[­ÛjÝVë¶Ú·Õ¾¬D¿u z]:_v¢‡¿t ~%ø•àWƒ_ ~-øµàׂ_~ ‡¿4èá·nA¯K;=|éÛo¿üVðÛÁoß~,¹üÖ-èË%—ßúö+Á¯¿üjð«Á¯¿üZðëÁÏéá—vÌèÒ-èui§‡/}û­à·‚ß ~;øíÛôð¥[ЗèáKß~%ø•àW‚_ ~5øµàׂ_ ~=ø9­úÒŽù^º½.íôð¥o¿üVð[Áo¿}û¾t úò=|éÛ¯¿üJð«Á¯¿üZðkÁ¯¿p=@_º½.íôð¥Ç¥Wð[Áo¿üöízøÒ-èËôð¥o¿üJð+Á¯¿üZðkÁ¯¿üzðsÌèÒ-èui§‡/=.½‚ß ~+øíà·o?Ð×nA_~ ‡/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃_¸ ‡/½.íôð¥Ç¥}gÀ¥[зß~ûö=|éôåzøÒ·_ ~%ø•àWƒ_ ~-øµàׂ_~=øàç´ê¥÷¥¾ô¼´oܸtúöÛÁoß~ ‡/݃¾ü@_úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üÂõ=üÒN_z^Ú÷Õ\º}ûíà·o?Ð×îA_~ ‡/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#ø9­úÒN_z^Ú1ÃK÷ o¿üöízøÒ=èËôð¥o¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿p=@_z^Ú·¡]º½/½ƒß¾üH_º½//?ÒÃ/]‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚Ÿ³.—ž—ö]‚—îAïKïà·o?Ð×îA_~ ‡/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà®èá—öMœ—îAïK;=|éËôð¥{ЗèáKß~%ø•àW‚_ ~5øµàׂ_ ~=øõà7‚ß~#øÍàç_Ú÷Ø^º½/íûâ/}ù¾túò=|éÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üÂõ=|éô¾´Óמo zøÒ=èËôð¥o¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿üfð›ÁÏ·¤_º½/íôð¥ç[ƒ¾túò=|éÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð ×ôð¥÷¥ë¹ô|kð×îA_~@ˆ/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà7ƒß ~+ø­×rñ§¨âK· ×[,¾ôå´øÒ-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Á/\àÆ—nA¿—’I_z\:ß~€Ž/}û•àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·¯f‚È—~¯1E¾ô¸t¾ý@#_úö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Á/\Ê—~¯7“Q¾ô¸t¾Ö¯‰)_úö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿}­7“]þÒ€—/=.¯õkòË—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛÁ/\@Í_Tó¥Ç¥óµ~M°ùÒ·_ ~%øÕàWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·¯õfâΗ—Î×ú5‰çKß~%ø•àWƒ_ ~5øµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíà·ƒ_¸à /=.¯õk¢Ð—^—.Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöí@úÒãÒùZo&#}éuéüJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~#\ Ó/¯õfÂÓ—^—.×ú5ùé—®Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~@ª/ý^o&T}éô¾t¹Ö¯ V¿t ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß~ûök}éË´õ¥{ÐûÒåZ¿&qýÒ5øÕàWƒ_ ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛö¥/?`Ø—îAïK—kýš(öK×àWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·/?ÒÙ—ž—¾¯íKïK—kýšŒöK;¤}éôíׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß~ûö¶}éËàö¥ßëÍD·_º\ëÍ„·_º^ë×Ä·/}ûµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíස߾ýÀs_úòÑ}éô{½™P÷¥ç¥ëµ~M®ûÒ·_ ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛ ÷¥/? Þ—îA¿×›I{_z^º^ë×¾/}ûµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíස߾ý@€_úò~éô{½™ø¥ç¥ëµ~MüÒ·_ ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛhø¥/?Àá—îAß~åZo& þÒõZo&"~é}éüZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ·˜ñK_~ Æ/݃¾ýʵÞLrü¥ëµÞLvüÒûÒ-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·o?Àä—¾ü€“_º}û…ë¤ü¥ëµÞÜ.\ܨò?ýýŸÿ‡_|üê÷ß²#åïþþW¿ý毷úöù‘>þÚ‡ëv{,§è¼ÆÀúø‡PÓÇ?üøíãß|þÿë ûO†c‚¿ù°þÒ|ôçLJaíëü Ø?ODZv}°:/øõAh~ðŒ¦­Žv¶jÚ5߈÷õAh~0Ÿ>®m$)†”ëƒÉ‰Ã¯B냠~7?hCµ÷w¤öþâ‡?@ïÛéýÓ?>òÇó‘½ÌxzþmÝ;ßÃweÿð›ŸýõÏ?~ø»oÿî³ü¿}¸‚múúð¿¹>\þnXùúpú ™‡Ý|óû¿ð°¿>ü/8쯟ðavõ=pçÃñ³¿ý«Ï¿ùíïþáçrîŸýæçùñßý4³âŠÝì·?þ×þQÓÇÏþçßÿ œ’/•ØwúüÝýõïÿñ׿úÉ_ͦ'ÖÀÑüýï~þqºª?û§ó¯sH?þÃsHÿùÛÿÜF›3 endstream endobj 4486 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 4491 0 obj << /Length 1846 /Filter /FlateDecode >> stream xÚµXYä4~Ÿ_ñi‰öúˆí± Ä%æE"ÓíéD¤“&I3»üzª\N'éö,Ë 4ÒÄGÙuUnžž|}÷ùýÝ‹¯´M Vi’ûÇDpÎTf+3ªHî÷É/©R|óëý·/¾2bAª¬fÖäp‘'\sìö®AÊ;\ݾUš3ml²•ü¾Ý¶t:VåHœòÅ©L0eÍÄçԻўVX•{Ás& ³Li¢¬‰l%a¹N–4qî]Ù4opœ¥%-]9œ{GkÝ#-ÖGä_u×ÒÆ+®ùS=V´]Õ‡Êõ4þs#uZ6g7å®ë{7œºv_·‡ oG[M‡´Op$N¶Æ0-Šd >(´žÕöl¡`p,ÏÓÏš¡ûx³•¹ù7B§‡ pì÷€§´Æ‹ß±r8°ép‚k^q.w´qQ'»ª\n GÌJœ—y¹Ïd5œn»²q{šy“Üx’ßêôœ+eÌ•Ë»r¦³•+_n¶$}æR%˜4EìR± j¦„]ßzÃÙ0“‰)åk g¸fœY^ü“*7LÑÇ‘àµÌ@ˆÆu;Ô{ŒNð•Î<#ŸáÂã¹Ý,àËL€×Ï»Š6â&”a™”ïb×~É"~‰)$³ÖNl»~Ò‘> DçHkÿŽDñŒå×2Œç=f°iÙî#0fÖÅ¿ÐÑ<&9SàÖѧ£Jfç8‰©Ÿ3c³µö UÒṳ̀åó@úÐ¥C¸öŠhJæ} àúø„lº•RÁ[ûú¥zt½kÑ7Yž.êNW¨s ¨Öbœy˜ð£¹4E^7/9TÙ"’iëÜh44ƒLßÖ}KúLÕËrmXÀ/6£pÀ&äËû;L?žÈE °d¡ d¬P"Ùïþ¸cÚŠ,ó‹¡ßšÎ……ßmòEw÷üM[ÛéÎíâÒHC¨da™¤ì-朱é®Ä.Â@)…JNKçÁÑ™·šR‹ë ÎD>÷\£ƒ,‹Ø@X_¨Ê~#òôp>úX@&å@<ö}ý€EÛ/?¬ò)ê6HÚ궤 ÄÐóÀV\\œ×ãˆ4µÙ,¢ªž»Ù`!\ £ÓvÕBÁÊœÈ~JØj\¦E€ÃªkP'‘ˆ(¿ 'Ö轧´‡XøüöŒ¸kÒUðÈiQ`º,X*í°&sjò-Ñ„Äå"ÓXá“ìr §¥ÃBº6V÷ÞD²R¨œelaß–ß\ü‡®ß!× ?ô*9f8¾Ó08Àê±$[^a˜Ôj––ǤHÈò™F¢±Ë 4þùJ^áOž\­æ2°ð¯úµyì•u$üöŠÙê©£Ë[äå,¶a‹¬Kšq03gE*#7al`µ5sˆDÜ! ãF@;‘·=À ÓȘ„Ú/ ¦e€°'èO¢˜ï`}»ª1ëCaÊŠuA:¢g¹¼0äñäü"¹<’ÖÉb‡wõ»ÆL¶6þÿ/µïB ´Ÿphö!}¾+ÿ:÷Ðôd°ÈŠÐäöêõêÒTŽñ*Œ†ué_T˜=ù†GØ>cÙžù:{Od¼²la–À¸ƒÎv,Ûq¦nBO¼ýŒ@\±ù'Îw•'æi 2ÅR xWo£¿mô†Š endstream endobj 4487 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/selmodel-preston-prec.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 4493 0 R /BBox [0 0 504 504] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 4494 0 R/F6 4495 0 R>> /ExtGState << >>/ColorSpace << /sRGB 4496 0 R >>>> /Length 41605 /Filter /FlateDecode >> stream xœ¤½M5Kv7¿¿¢†ä@¯2¾#¦l„mÀê< 8ÈDºHZ¦lý}çÞëYYyZ”͆}ï]]UëäɈȈxÖ._ñU¾þîë?ýö¿}ý§¯±~ÍëkÕ_×õÕ›þUòÿû¿þðõ¿ýÃoÿúŸþÝÿôo¾þíï~»~í5¾®_­Æ?{½¾~÷oÿ×ßê¯[þ—ßþò¯¾®¯¿ù­|ýÅý¿¿û­\aô¿ü¶Z8õÕ•öõ÷¿Ýÿ¾ù²#«äF–ãWE^’X];ä´Õ5$±ºªdZµ_'yÉê–Cr"Óy˪ýÚC²#ùé.)Wy~Uɹ%'2Žyßß[rtÉ.Ù§$V-þv[µK«š²Ú*ÏÆ-±ºiU”MVUǼ›¬ªrwYÕ_cIvÉÞ%±jqêö°UÙ’XåyÞSV…ϲ*¿Ö”Ü’:KV…¯¿dUø¾ÛVy3Ü2­®_gJîšr÷i—”ó}Ú%{üí¹â²‡¬C²K^È°šç×çSÒê–9%{þrM«[Vd—¼šdZå=qË&«ýkÉ)Ùâ<Ÿ.«­/xË´Zºën¹%uCV+ÎBÊ)Yò§SVS§ý–]rÉ-Ùò0–¬&Ÿ»d5t{Ÿ-«ñklÉ.™å–»¥Ìçèܧ!dÿµšä”Ì;§\Wœ–Ðź‡¾ë-=Zê"»ºK_~÷ý÷Smé×ίsÐS:äR³÷ìms¿ÝºK÷ ~m©å,uÈÏ÷ë­ÓoþZ:Þ)¿·½tú õC¡·tÑß/ùuî[OiÝ?u˯qÕ-?ß·¾,tÓñÞ×#tQszJëyi÷õ}ñy÷Ü'¢WŸŸ[oi}ÿûïúù¾õ”Vûã¥ÐÙÂJwéì-B§_6ס›üF´×ÒSºÊ¿Ë¯ÇøD:ýš¯Ë¯©ƒ)÷‰L¿Êó'ZZÏ×}!Òï¾_.tú]':ÆvwãÝz†ÞßÝð^¡×ûÖ]ZýïȧÝã µ?£ÈoD·'=¥õyфN¿<ÍÒéW韣£‘Öó0šü íõèò»8ÿ·îÒ9Z ~ûÐÿßaøÝcIõw#¢vDuÜé%}MtøÝÃXµo·N?ÆJåî¨Ó¯ûû.ù¹}Ž>ôý|6tú¹=¹uñߟèXCëþ¹õ }ñù÷Àäºõý’¡þæÖ=ôæøo½¥ÕþÇÀ'ôâûÇÀ(ô}½ò|Þ©ôóówëôë\ï[oiÿÙäçö÷ÖéW¹~÷À/ýŠ†´¡»´Ú÷[§ßÅxäV†ß=šVû{ëð›Ï÷™é77×óÖá7ã[‡ßœ<¿ñƒÐÃdzä׿…‘´îÇ[§_óùÝqà-Æ›y=îk¡‹Ïω£MÞIÊýEŠtYè»am÷eÓó//¡y(zÕi1Þ³^ÒoÄKVèÉùŽ7´Ðƒç3^ïBwÚc½*¶û±Ðó/¥Ò:_zWnÃííӯÐÿÄ…}Ѿ¬õ·»ØÖK¿™~Ýý]ÜH¡—o¦ßÝlq|K~ƒþr-ù ß-¿û0:ýííïöŒî¿….Œ/n½Bߧ9ÏÿΆ-t¾%…¾oôvw3ºßn~ÍÏÿý …ßÝ­i|pëð»»Aµ¯÷ƒZ¤u¿Äƒš—£Ðé—·yè&?&B§ŸÇ'»Ë¯Ò¾Ü:ý ýí­Ó×Ør74áW×çÖá÷Œ?vXhÏv»ÇzÙù~Øîñ†ÆwÖ~¯Þ:ý:÷÷Ý0¦_cü ¥´žß[ß'¦Ýã õOwÃÚBÿûz„¾øþwC|ÿa»Çúþ'¢¡5¸uøÝã=ÏwÃ~÷xAßÿÖáW|?ÝAú Ú‡[§_g¯É ÈÐéW¹?J—_QzHçó:ý.ëý`†_ÌtøÝÝêÒßÏô›¼‡Òe£Ãoò~Pï† ýrÚE:ýºÏÏ–S¡ÓñVèûƒêd¢³–ìêä} ô’ÎñR½®úÒx)ôÝPÔ˜ï©èð»ûóœÞ¬wÃפsü:üÆR{^ãÅ+ôä|Ô*¿¡ö&túÑ~Õx‘“®~ÍßåWý÷]~ÅßåWüùC~÷GÍ^ùNU÷ï¡Ã/ú÷¿»ò[é×'÷{]ò£=«wG”~CÓñJè{àTïþ}ËÿDú ô ]5>©-;òÚ‹ÞGBÐô÷¡´¾ïÝ‘†ßÝßçø-tø5úËzw¼Eú:èð‹ù‹…¿»¿×óØšü÷ë­—´žçÖå×¹?â?B3 }¤‹>ȯrß:ýžï7åWÔŸ‡N¿‹ç=&·®n¿ãÀCoÍ—†^ÒUz§ß}™8¾~uªÿ}ŸÈ¼ òzÅ@)ôPÿz…îÜ/=º¡Õõœ8‰ÛTßG&nk=ï÷…kÒz¾âB†.êãB§ã…ÐCZÏӭï0¿7JøÝuŽïC/i¯H†^þýœHŠf…ßïò›öòc~4túuõßqc霿 ~n/o~Ï÷]òc~.tú1ÞŽ+ý.úŸ[éÒÐ÷‹WtzÞ{¾HD·²zIëúÞv ½hßâAÍ|qè#­ûçnÒ÷£ÐKZ×gTùuÆ £Ê¯q¼·>Òê?F“_Õx:túŸ£!+Ò|~—Ÿ¯÷èò»8_1Q½¿bØ¢û/ÊÐ[ëÑéj=B/ú‡˜(—ÖõŠ‰ôÐÌ·…N?æÛ¢á.ÒÕ:ýºýv4¬¡ñ;ñbÃHõß#'ŠbØ©ë/‚Ò9ž«ZXˆa¬¾o¼8J«ý¹;žôsû/š·ŽñM~ÞÝqiÝŸZ‰a¸®G,”Hçav|¡}>f“óÙQ†vtëôþ¼.¿Áó«@¡;ýå­—´Î,)…nþ~S~ÌÇ…N?Þߢ£oÒêoæ’ó91PH¿Ëdzåwñ¼Å²Ûõ¯}ºfNÌæká…Þ¡Ý?ÇÀDZ×7– C3>ÏŒ´îçX™ =9«Èo2¾¸Fé7xÞ4P ­ñP¬Æ†v°šü:í“Öã5]ß7&VBWú³ÕåW¹ÿ×ë[¡»toèôóùº´Jë~/rëû´èy\9ÑZÏ÷­ÃoºÿX9–Ó"úý¼±båXßyh>ÿDCÓ0_ç4Í@ïÐCó%1ð­Òúþû’ŸÇ?1ñ%­ç!n i=1Qºéý5ÚUZýÑ­Ó¯2ÞØM~•þíÖéWhÿn½¥õüì.¿‹ñÕîòóxpçDmLË©ýØ91ZÏËΉŽ˜Ö;òˉœâõ¿ÐSZ÷C<˜¡=¾ÚK~‹û-&&C³®/6UZíÿ­gýŠiLÝï;r¡[E÷ÐÌ…ÞÒ:ž»á©ÒzÏ%?Ö£âEì’ÖóqŠü*ï§Èõ–x‘K¿ÂøîÖSºëï›ü<ÞŽ†44óO¡·´®ÇÝð†Ÿ×ûBOiµ'—¥cZ[ÏÏ­»´î5ô¡5¾¼;‚ôc¾>ô”VûGèÉxïÖ]zXoiü¶ü|þo}7EÊйM –ÎFwiÎï‰Xèü¾ñ¢^C3~ =¥óy‹ûK:Û›ÐéÇükè-ÝäWåGzJý}“_ÑûWèô»4^½¥³¿‹‰‰*}mtøµ£õá˜È¸¤Û@‡_Ûz¾Coé©ï“ ƒ¡ëF§ßR{)—ôXè.]+:ý¦Þc"¦J†ž=5ßïÄËb»£»ô¸Ð[:ï÷˜ø©¡;×ãÖS:ûϘ8º¤ó~~¾~±ð$ÍïWù5ûWùUŽçX^ÒÙþ…îÒå Ó¯ð}K—Ÿ¯g \¥óý$&ÊÒïRûºKçûCN¤IWùÏô‹õÏžÒº¿b!OºMt—¾¬Ãï~ÿX:ž-?Ú¿ÐwCVêöùʉÀXæÝÖ]zXoéO5-LƲq>ï9Ñ(­ã«E~ÌOåĤt¶§¡Óùè˜È¬ÒÙ_‡žÒ9¾‰‰Ïôëê¿Bwé¹Ñ[ºË¿Ë l¡Ód1ñzIë~Ö‹Vh=¯uȯ©¿‹‰Ûô«j_BOiݯuɯr½o~Åçgɯð|Æ‹¡´®Ç­ïÝк¿t!c‚ž¿šBs~sËTn[Èï7Žtο…¿û²é~‹Yé|ŸÝ¥ùû’~åøïsàÛ*Ô^ÝzJë|ßÎ%­ö¨5ù1þ ~‹ëu?˜UzUô”Öóx?è—t΄îÒWE§ßTÿ UzLô”Îù¦XH¸¤u¿Ý:ýÏ«6Nä¶}Þ–ß }oùb›Û\tþN¼Ïo‡îÒk¡·´ž—žq¡u<ý’ŸïÇ^ä׸>·îÒ9½¥s| /UºZOé|_‹…šô«ÚºKOë-­û-::éj=¥ÕŸiãLl;ÚÖ]zZoé.ÿ)¿BûЧüŠoÉïâüÇB•´î§[oiÝ1ñ%­ç±çºè|èøb›•ž[wé/æ™´î‘ÇÐjF~pnÛJÿIç|D.Ì…æ}·i Zç3ò¤u}F•ßÖzD.üIçûWèôóó0šüXŒ…Ä*ã¯\X”Öõº’—´®ÿöÓù¸uú1^Ê…KéµÑSÿ%?ÖkCwiï[ãWôý·üýÑ­ï5´ú×{à}Is~râ$´úOmÜ ­ñÈÌŽ.·õ]hütÿÍ"¿®ñ{è.½üó-­þ36"Jë|Å‹‡´¾O¼˜H«¿ŸÍ~ºÞ±12tãþ¼_tªtŽ¯COé/ÆÂö%Íç ù5®ìé”V{z¿ˆá§þ$6ˆ†®zˆ…ôKZýË\ò«ŒÏn½¥õ|Ü/†UZýÿÌ"årÿs¿Xiµ±°ÚýQ¼ˆJëþ^ù …Vÿ»{¥õ}c〴î—Uì×:?µ—«Úï:èôc¾86.iµ/±/[Zç[;ÀCOùuù¹}¸5~M~Ã~jÖ°Ÿîß[ã§ó¿òF?îo¹RæìJlÓ()Õßr¤Ì¹“'e×Go¬t%bÊ£„TúrÇÒ-9ŽÄ9zí yÀa—_n/I¹-WJõ™÷;wI9-GÊa)«œPˆ-²j–²ÒåÙ «b)«Ë2¬˜kˆM4-å¶\)9ªÜR䉿ܑ“rXÊJÄؿ“R­@,ÿ¥Ô¹Ú +=£±X˜R]È-ÃjÒíüjgòít!e¥³#eÉŽ”•®~ìC•ìHYUÿTVU?XéfˆwIýtau¤¬®”Õ¥o”ûiãÈû‹ŸâsuâíùŸ«úŸ«uŠÞb+o“¬HYåø76Ë*·—ä¾à”:uµ`¥)výH¤¬º>¨aÕ+RVm#e¥3y¿Ë*‡I]û£øØþ,«Z‘²*)+Øx×—¼²ºtT +Ý„šX8Ï`Í}çâ<ßoÃM²"ïQÑaotl/’9$ ò¤Ôi[ÉŽ”•îØØžRÏoLßH6¤¬Ô^µŠÕXHY©ùÒTÒ¹4!RVº(·”•öûõWVýBÊJϾf½ÎÅ5j+5m`•o±¥_VjbÇ¿džº¶°Ò³ów’)«¢£ÚXé Þò>‡‡%Á`ŠdGÉ‚¼Û“Í~ýšäD.Éü ˜æ”¼#¥®o/XåÐ0 Yåð#¤¬Ô ÷†•.woX©ê +=t÷[®¬tõ{ÇJW¿¬Ô|õÕ¬HYéf諱‘²Òz¿ÎÊJ÷F_Xé ê%e×ßn¬Ôñõ\S܇–°'Ò´™¨ 9Rªaì9A¸wÎÈõ9¯R†”U’î‘,HY©½+’²ªX龊•IY5¬jAÊJ·ÙhXYu¬Ê@ÊJwÝýê*«R²Rû<Vº ÇÄJ]ù˜Xéž «œ4 ‰Õ… +‰`¿šäBÞð½i‚F~—ÍȽÿ¿ÿ8 Ï¿®ÿò¿Ž}Xô×ý_þ×ì*~ÿõüþzÿW½ÿåÝÿø¬•Ÿ³¦€3±OÜ€âŠýÑÏõ°¥zý¸èûçåuÅõ ¹µ¬=¿€|ýB®5ý|òý z«~—üŸ_pŠ¿ðþÿ‚k›;ÃwŽÞþäÛJ ýó§ßVù×±Wðî þäÛJ+‡Ï‘ÿ ·­÷¯?ù¶Ò_'¸ßþùÛŠ†à·®Óò•d÷8Š hù¿Ôšþw7¹an}•œ/¿ð/ÿìÿüWÿÏŸßÿ÷ןýûïÿûþW_¿ÿ‹?þª¯?ÿW/×’>I\²úwøþ÷ÿùo±ûÃ×ÿü·ÿÇýŸ×ýŸßûÿñÿæëÿÃ×ïþðý‡¿þÏûÿð|ÒŸéÑv|þ¾¯m üÿ;"=Ø2N¤Çd5‘si@G¤Çdš‡HÍ¢?‘óRH¤Ç`6‘HÁÞ}"=h(‘ƒwY"=:ŸˆôèLéчFDzôÊQ)Ò£QéÑÑéѦn%"=;˜ˆôhU6‘W."=*Ó¥DzÔ©±0‘•ÍvDzx­—HÊ+‘eóSEz”©/H¤Géz{#Ò£ü$|„Ua—‘Ã"=®©+H¤ÇÕ?"=®ÊÙP¤‡réÓuy&és{yž5úŒYCsFzDßHø˜5YÏ”‰éŒ9Ôf*Ò#gg ü«íˆ‹œ;È)äþåHÄ.Ӫʊ(EzĤxçé‘Ì$aµ˜U¤G,l2<ÂjUÍù)Ò#–1Ú‘ûFšñm3ÍE—öåHX³i?‘m²«=«±¢¤£š²âÝ]‘Í ‚"=bù,'Eé«syÉé‹y{¬¶ŸHXšÔ‰ÍHXÉB§µ‹X)%"#'b¥õzEzÄJ®0Ez4?¯™R¤G"w~­9"¤Ë'ŒHÖŒh*Ò#v.ÑR¤G"s~Õˆ™"=b'Æ;Ò#vz¬‰N?&‰ôˆ(Ç:üÊ’‘±ó…ˆŽ¿ÇΚµÐ»g*$^‘Í[ΉôÈBŠ”È™ØY$¤X‘±sIœ"=rç“"*2Ò£‰lúv¤G"h¯HØÉ%ä[‘¹Ì:ý*¤"=Úƒ”+Ò#v² ©S¤GîŒÛèÞ!ãó2Ò#væé|*Ò#vö IV¤Gìb®HØIx9â#ý˜x#Ò£º+'Ò#°ƒ¿m$R‘òÅ^’ê-ÎDz$â¥ï—S±³”H“œ¨I¤ëéQ·‘zEzÄNYÝŠôȵúy²9¹3w¡Ão îEzÄN`=/Šô¨…"Ò£:Ž‰HÜÉl~“-\DzÄNj!Њôˆ×ûé;µ—#<Âo²E…HÜ)þŠôˆåDŠLù9rA‘±“½¿"=bç{{EzäNzGx\B¨š#>:ÕAîEz dR‘‰L½"=‚DÐÏé³G§Ÿ¯Ÿ"=‚”hŽø¿~@ÂÅê™!„X‘IztøõIû£H IQ H$Qôó.?G¾(Ò#ÞOæDo'ýþßÅõR¤G9ºžŠô€äùv¤G"NÖ[ˆ“ÚsEzI¤ó©H$“^‘õAšé‘ïî½W"LBféQ½%‘Ha"Ò#I.Gxô•“®¯"=Y"â##=YrÄÇ¢DÄF²5ñjLF•c7"=QÒ÷S¤G­l™ Ò#¤éKH]~¤V‘Õã,"=I"$YšD’tüÉ‚´ºK ’{UAâû/ù Gv,ùÉV¤G Gj¯éZ‘:ŠôäH÷›"=’ mè¹1Òß+Ò#´žEzr¤öW‘ ±×ƒšHŒ\;ªO¢Hê->DzR¤þ]‘¡…ø+Ò##ë b$Ýå׸žŠôÄHý‘"=ª·ŒéQ/–xˆô¤HÏ«"=)"b$#=B_ŽüØBŠš#<*HÑBO"}Þ–ß´ÿ–Ÿ#]éZˆ»"=!RD‚"=’DWDEFz„V$^ê“lEz2¤çK‘¡«#>¦"Ez„Ö÷S¤GñÔ=‘BD¤G’ÿ =… W¤G& XwiµÊÖÈdé!?_oEz”íÈ Ez„ÖõR¤G Cz>éˆÐv„G•Vû¬HLjÐ÷ßò+>þ-¿ËŸ—³å¡/Gx4!Cœß\–ɤ‰ü¹"=Êrä•"=Úþù‘V¥H@„ˆ¤(ò›\Ezd’Æ+Ò#´úoEz"¤ö_}q$&‘Å’Dzídúv¤GÚô‘Öx@‘qXºžŠô­öHlS~Më!ýüüâçÉž‡Æ?'(Ê|"N2Ò#´ÆCŠôÈËVÑG‘úEzÄe×ó¦H"²ìÛ‘qi|¢H¼Í^‘EË ßŽô­þ[‘q[+²L‘¡û+Ò# ]Ez„Öý¡H|¬zéç]~Å‘#]~—·Ë…S"=!êè%Ý_‘‰9ÂcHk|­Hк?éQžAEzÐŒ};Ò#›¹‰ÒÝ‘§¦ÖøZ‘ÙŒVô’&R"³0².èRd}@Š¤‹ü|ÿj+Bv¯Hì&*zHRåçñ¿"=²è%­þ^Ûo²;è!­þM‘¡uþ鑈Ñ@¯bD¤Gh¾æ^»û{Ezíþv¤Gtãz?ÕŽµb„žHк¿µ“.‡¯H6èós5‘£W¤G©üíHÐBöéQAH¤G c„l)Ò#t{Ezä0(‘&EzÄ0iô&¢£Ê¯p)Ò#†]BصwµôÏH¶uôr$dZ‘¡9ž!¿âãò#â‹HF6ôb/ö9†¡Dšä@%´CEz”öD†äƒ”ÃÚ‰ÒB¾鑈’t¾¸$¢ÔÑKz¾"=B7ë!}Y!Iú>ŠôÈa»õYRDG•ßpäE•Ÿ#W鑯 ŠÜhò#b‰Hx­XŽð( L =^‘‰0½"=ŠÖî¾éº½"=Bóý¦ü*÷§"=izEz„®¯H¢M/ߎô(O$‚"=B÷W¤GèòŠôx'"=qR¤DFz„Öý¥HÐB”鯑DRd¤Gq䑉<)â"#=B—ŠBš¶~¤ùû&¿í¿oòÛþü.¿¢©H|MvÄÇ‘VÄ‚"=BëþP¤G"Qò›ò› ΊôÈ×tG~i!ÑŠôˆ×|"D–üŒ4ŠÕJDª¡‡´OEz„¾^‘L+|;Ò#‘)ENä. ™"Ò#‘©N¿Æý HÐBré‘•üªüزH¤Gh!´ŠôÈiù7ù1ŸF¤GN³èóºüª#EºüÜ~)Ò#¦m„ +Ò#§qzIa2åÇn6"=Šß/‰ôÈi"é%?#±Šôx+"=ŠßG‰ôÈi¨W¤GLSñ‘7nN[9âcI«½Q¤Ó\ߎô}9ò#ý|+Ò#‘¬ƒ^Òz¾éº9ÂcHqQåç u,‰hMô’Vû¦HD¶ñ1¤õýéQŠÛW±·9-¸ÐKúé‘WEi"C¦ü&í‹"=ròB/!ZÛ‘EZ‘1ŠôH¤ë #’¢ÉÖÀ"tyEz<ˆ‘9MZÑCZþŠôHäëéñ _Dz$ò¥Hj¿ëéÓ¶z>éZí­"=Ji‘å‰ðS{G¤‡¶Å?‘ó=Žô¸ >éaÄÍ‘—#£ˆô¸@¤Ç5";ðÓýM¤ÇÙáHkr>ˆô0çHËãA"=.÷×Dz\Ìß;Òãb}Á‘×ðñ(ÒãÚp¤ÇåH"=."|éáÈbGz™s¤ÇåÈ"=.G*éq9HÏ:Òãòû ‘WwG³_±Æï²N?*}8ÒãjŽÀP¤‡çéq5Ÿ"=ŒÜ9Òãj‡ÇÉJê8‹ ª×‡Ã$.9Þ×CL‡SØHé8OhG†t2–Éè8ÌOÑñ•z;Ì–ÐqÌ“Ïq¦Æ>ÄsœÉåVìÆqŒÂ9ΠU6‡£áˆæ8žVÉgrõÌq¦sH&VâZËqH"•ã<¡# «Ë?••ž_Er<¬¦9«grœáü¤5ÎðÉÉ8ŽCz;i^‰"ŒãñFsIÏ8Œ\ Ï8Ô^ ;ÃëàDg†µ$gÜ%8ãT'ÊÍ8Œy‰Í8Õ) +õt Í0ÖKf†#<‰Ì8OÂÅŠ‘…y +uŠË8l%-à 0a‡Zdeœê¨Ž|á?TÎ")ãIe˜&'ãFŠÉ8Tá %Ã;É8ÎØQFÆaÿ § „ ãÄdßÉÇ0]L<Æ)°XM‡eÈj¾²1´5÷û‰Æx’?&V Ê"£@4enQœÒ±±z’2"îÁ™WDc0?ëhŒB×F4F!…hŒâäˆ +Æìh v–9ÃÙDDc°oÃÑå3ÃA\Dc°Èáh æ¤AUGcðÆãh 6:£p›A££1˜v4›·áø¢1à¥á°0¢1œ5G4Æå¤ Ec8‰‰h ±Á¶qGc8†hŒË‰«å¤ Y©O!Ñ.Dc\Ž·¨XM‡_Èj¾£1X;r4Æõ“…!«é¤ ¬~!«ñŽÆ¸~‚3dEöÇÄJ70ÑPÜŽÆpê Ñ@ÝŽÆ`BÑѬ‡:ƒèŽÆ¸œÐ¡h ¿Œqi çh àDc\p¼Dc'ƒè@Gc˜'ƒ`GcPÇÏÑÆʼnƸÀz‰Æ0=N4ÆÿO4†ar¢1.‡P ¬DùÁâ°£1Œšq9±baE`ÇÂJ Dc°Îâh *M9ƒ·r¢1.]Ñ.[A4ƃ©+cõÝDc<Ôº¢1öùIÊÀêBÊJ °¢16õVˆÆx˜vEcl¶ž±Y)"cIt[]HY-}ÐÀJH°¢16uˆÆ0«A4Æ> ÁŠÆxðxEcŽ™(XU'eÈJ­Š¢1ž°EclV6ˆÆUôíhŒ';@Ñ›*¢1ž(Eclêºñ$ (cçY ¬Š³0°êH¬”v±lå¤ ¬ +gaÈJ©ŠÆØl½#ã )P4ÆRðDc¨ùz¢1”YðDc q9)«ŠÄJAŽÆP[G4Æv‡¢1œw@4†óˆÆØNèP4†ãˆÆØ´„Dc8 hŒ—ÄJ9mUXé Vû eEöÇÂJÍ&Ñ/¹2²A;Dc8Xh "ᜢ1œ³@4Æ#‹­ÞÑNa Ã) Dc0óéhŒG6¬Ô ጢ1Èåu4ÆKb¥<‹a+'e`U‘ç-§­ +‡_ÈJ9Ñ/)«ù1?£1ÔÔ?ѯlˆ'ƒlGc²Ø®ž‘Ê?ÅvE*7 TŽõ-‘¬"•c5Lç[¤r,¥é~©œëpúüìišwºC*ç’ŸHà.?v¦C*çêbE§_µò+'"•³x®t®¸æš©uøÕý£Ã¯®R9sùü$•s%øE*·êâ¬"•sÑy¢ï KÔjD*Ç‚¶H"‘ʱ®çM¤òOR€HåXxi%R9–é!…s&9×ø+:ü¼óR¹¹x¤rl>€$®òcaR9÷9túùþ©Ü¼óR9öcèþ©ú2™~—‹§‹TŽ­ "WD*ÇƵ"•sJG§ŸIw‘ʱÁ¥½HåÜ £ßßò3Ù©ìÀl“ÊgûüˆTöV “Ê꯾RÙkï&•½ÜlRù¸=†TöâžIåSM‹T>;4©|ØdRÙSL&•ýþcRy/ÈBHåÍND“Ê{š´©¼YK7©¼»Ia‘Ê›uM“Êû!‡E*o“mÊû2I,RyîHåµÈäKº˜L¿µ|>D*¯Éó©¼Ø‚`Ry9‰Ry±SÙ¤òj&wE*/VÛL*¯™ ©¼˜77©<ÙîdRù)6©<ÙyjRù!!•ç´¿He33©ÒLo¦øåC¨Ö«fR„îO‘Ê ´nt亸¤rõÎ`Håz]&E*{/­Ieïq5©|˜ë4©|ÜÿA*{7¦Iå³hO •Ç›Ê®Ó`RÙûêL*{ÏšIåCñ@“ʧ™Œ©ìíE&•½ßƤ²·˜˜Tö¾ “Ê^ß7©| )M*o •½ dRÙÓÙ&•7¤´IåÍx̤ò6Ù©¼§Éb‘Ê›b~&•·É+Håm² RywÈHåM²‚Ie'=™TÞ ²RyןŸi~.Ryÿ\¤ò.þ¹HåÍö“Ê›¥j“Ê‹ÅK“Ê‹e%“Ê‹éq“ÊËÅ~!•×2I-Ry-ÈHåÅ<”Iå5M ‹T^.† ©ì÷}“Ê‹¢&•LeRy™Ô„T^&% •×C‹T^. ©¼*×Ry™€T^Ť°HååâÙÊ‹ñ„IåI2’IåiÒRy²ŒeRyò¾eRyn®¤ò\ðÊ“ñ¬Iå9! •§‹MC*O“µÊÓŃ!•§ïWHåiRRÙI&•'/M*OÆ/&•Ÿb¸ÊÓ¤+¤òtqjHåIÿoRy²Qʤò,$@*χ¬©dR¹ñþjR¹™¤„Tn$Ù˜TnNJTv±_“Êm˜d©Ü(öjR¹™\„T~’3 •›ŸHåæöRÙ+L&•ÛCR‹Tno@*7Š ™Tn.f©ÜØÆlR¹1ßnR¹™ÄƒTn&í •½¦eR¹™”ƒTn&á •›ï'HåÆnA“Êíâø!•Ÿ$ Håú"“‹t7™<¤uþ •+û;L*W÷Ê•õc“Ê•Èc“ÊÕ÷¤ru²¤r]´'Êu™Ä©\ý¤r…L2©\)çfR¹2ŸeR¹’\eR¹ÚHå ®cRùIÖ€T®Œ÷M*W*¤™T®A*WꜙT® &&•k7é,R¹vžHåJ”±Iåêñ0¤reþݤr5Ù ©\›Ii‘ʵÒÿA*×j2[¤r%ÉϤ²×:M*W÷wʵØO¤r-ÜÊ•ù“ÊOÒ¤ò“´©\ÙdlR¹òþkR¹šÔ‡T®ß@*WHL“ÊÅãMHåÂz›IåÂúˆIåÂû‘Iå¾1“ÊÅÅì!•Ëþ$• ëw&• »L*'A*—íã©\œ4©ìâÈ&• IU&• ë§&•‹ûkHåægR¹øyT~’7 •Ÿä HåB’¢IåâçR¹x¼©\þÊž?1©\ü¯ÉÏÅ]Å*‡nF™ñÑ&Z¹£ •cù˜H¾¤‡üx¾!–3™CŸ?åçb®b–CWSÊøCÌIf³‹l¹\l§†[.Þ¸œIF•/én’¹Kó}Óè§8´àå,½ÐéÇü#ør.ËWt—Û €9´Ìåzxçj?Ñ,ºq2™ãBã'DóO1iíÉdŽŽžÒ¢2ç6ƒÉœÉŸÎ¿Xæܦ0ÑøóÊø‰Μŧ zK‹ŽÐœÉ}¿8e2‡>/'æŠQ‹iÎdŽÞÒ"v41\.j €5ç6 ƒÌé78Í™Ôq¡·ôz¡Í™ÌqÐSº¿àæLæ0ÎŒŸ{áÍ™Ìa ¿ë8g2‡‘æKz¿ç,nm½¥ç rΤküt¾„9gR‡5~Õ?ÖéœÛ`¬ïʤo.$üÃìœIÖ[*7;æLæ°ÆOçOÀs&sXã×L@ã'KÌs&uT4~º¾¢žŸ¤°ç'©î9“:Dwù±>ùœI/ô9·vÆÊzØ®zÚ’zÚO÷£øçܶdâ9ýHÖƒ€Î¤}Þ–ŸQ?1Ð?ŸAç¶(CÑ]Z “0èŸâÜâ 3©c£ñX)ú§X·Pè"¬èÛ,t&u®ò3}&:·qɯÉÏ”˜xèŸbÞ¢3©CÇ×í7LHã7^Ltñü?Ptq’4Tt&uèx¦ýÔ^Š‹Îä£Ïøñ}DF»û€Œ>ƨEF㘌>¥EFCÁ˜Œ†d1ÍF“Ñ®Ík—ÉhF¡&£A*LFÃA˜Œ†V0ÍŠ¦Éh¶ú›Œf¾ÉèmÊXd´ƒ; £Ü͆m“Ñvpd´;2Èhw@F³Ìj2ÚÁÑfÍÆd´ƒ; £·™k‘Ñ˵ÈèÅóí‚åѼ}šŒ^tFÑ®_Mè¶ÉèÅ÷…Œ^|_ÈhñLF8j2šü_“Ñ,ª˜Œv±sÈèEEvÈèÅõ…ŒfÁÖdôäëCFO}‘ÑÓ__d4“±&£]2šÐ,“ÑÔP2M„–Éèi\d4ÛMF3Ëk2šEF“Ñì±4=âAF³¢d2Ú08чuyÈèÃ2$dô!ÿ2úSÕ+¨êŠuà nºaõ€Ò²Ò­"2ú£Ð+`ç°óÀ ºy`¿<±‚_žX,/¬šAiYéF} бÈèÃ&ÈèÃdôa 2ú°Ã2ú“¹²âXÈèS ÿ¬.£Ð²Òm&2úP2ú°µ 2úP2ڱюõ€Œö¶ÈèÃ*#dô¹h‚DFöŒCF@!ÈèC¶5dôPŒ>ì瀌>÷¤ÈèCYBÈèûmö2ڱюõ€Œv¬d´c= £ë}X5‡Œ>”GŒ>T¦ÈhÇz@F;Ö2Ú±Ñçâ~ííàÑç‚píXÈhÇz@F{+dôa&2ú‰õýÄzˆŒ>`/ÑO¬‡Èè'ÖCdôá2ú‰õýÄzˆŒ~b=DF?±"£ŸX‘чÜcÈè'ÖCdôë!2úðj ýÄzˆŒ>OŠÈè'ÖCdôë!2ú‰õýÄzˆŒ~b=DF?±ÑŽõ€Œv¬d´c= £ëíXÈhÇz@F;Ö2ڱюõ€Œv¬d´c= £s‘ÑŽõ€Œv¬d´c= £ëíXÈhÇz@F;Ö2šéo“ÑŽõ€Œv¬d4U¹LF;Ö2ڱюõ€Œv¬d´c= £ëíXÈhÇz@F;Ö2ڱюõ€Œv¬d´c= £ë}>ÉèóIFŸZV°Ï«‡}ƪ!±*H¬ô¹ +µ ÑÄz$}óh½£Âó¾o²?"£ËG gÕR~j8wdpµ“uÀ%DwvÝÉKˆî¬ºXKˆî$qHðGÜÀ…ŸnÊyÛ/!ºƒÞ%DwÐã¯m¹"» ã Pz +6 M çì/~j8ç…þ©álšÎ*üÔp./2º‘Ì]y]ÙU×pf‘ß5œùF®áÌ”*dtánt g6H¹†3ûU\ùéŽÚ¢+æZˆîÅ ¶AtIAß º¶Ñ%ãƒè2HÛ*&ìXà­bž¹Ú*&ìú­®á ¤³©áÌvSÙ0ûC gjáj8SŠòPÙõT×p®z]ÙŸ΋P×pviej8›2¦†3™Ý®áÌ•Γ&‘Îs« p g¨a«n“¸rÍÊÄ]¶šj“–¶v'Q:$³ð2Àí;†ZfÍƼh¾VѸƒÕ€#wcF çN` 5œ;!÷®ál²À5œûOÍæ®ÍÍ?O·Ë5ŽEF72kLF7æ#ŸÎ&å\Ù Ž§†sý$£#[“Ñõ©‘,2ºš¼‚Œ®Ó5£©áÜÙïμÊ'Ý“´\Ý“´ép‰Ä-ääaO²R$Ð%·˜D¸DâŽÏ%PÕ`æüˆÄ-®! }“á"£/׌…Œ¾¦I_‘Ñ×€¬q çþCJSsy˜„N?×8 øÔP®®¹Ü^dtl08ÖÔ\ù#2º:+ö©á\]S™Î&-]Ù•k8;!Æ5œ²½¨fðž?$tÖHî&¹U3x?5¦U3x“Œ™[LTSY¤IQÍàEgš[ZTcY¤[QÍàõœ_Õp^&‰¨á¼ºÏj8/×¥†óâÝù©álòŽÎó©Y¬ÎOCj8O×,§†ó4™K çÙM«†ó$4Ö5œ]ëý©áÌk”k8c?ÕpN: †óX®­ÎÃäX®‘LMèéÉ"_UªR\Ùò4©I½\#Y׫.×H¦öväbšÉ—Éé­šÈ"I¨áܻϷj8÷f2W5œ;1²®áÜË~û‹ŒŽ ÃýEFW½#~?5œ›Ï5œ›“ ¨áÜè.\ù1ëÎͤ5œ›k¢SùñªîÎÍ54©á\Ï¿§}‰[]#¸‰Ä­¬<°ö§Æq‰[»?_$n}ŽO$n­>þíšÆÕ¤´k¿ÉèBD›Éèâó]LÊCF—Éù‡Œ.ì¼6]ºk"‹Œ.ç2º¸½Œ.Lt™ŒvÍ“ÑÅ5Ö!£¯ãšÌ"£]cÆd´#HLF_&_!£/×…ŒöΈ$£U£ø2 ÝU“¸˜œÞªI¬û©/× î­Äjúv âeRº«æ°jÄ‹ŒNàJÇ\ƒX$•ÈèºDæ^òsMY‘Ñ ŒYoéb:ýÜ_ŠŒ.ŽZ†ŒNàm Óï2 ]åÇJ7dtñ dtyÈu‘Ñe»¦ÈèÐåEF—m\dt’\ ~¬¹†ó6é6~j/45ƒÕ~Œ§f°úÓñÔ †Ü¦f0Ñ­IFŸ$¯ö‹ŒNKZ5œ—“-¨á¼œTB çÅ2ªk8/_¨á¼2Y5œ×àù§†óê?5šÓÏÉ Ôp^Í¿¯ÎË5±©á¼|ý¨á¼òZ5œ×å˪á<=^¡†ó<®¡¬Î²Ã5œ§¯'5œ§kÌNÕ žÓ$85ƒ]SvR3˜šC‰T]I6m“ÐEºZ§ŸkÆRÃy²Ç5œ§“@¨á<ÝSÃy“¼ªáE ç-·1½—d´tÈhiõ?[$ns2Œ’üB?¤tú-לV çg¼#2:‡&¡‹t7)=¤uÿ‰ŒÎaŠIèVH“ÑÍÏ/dtóù†Œn~ŸŒn&£[³ŸÈèÆN:“ÑÍÉMÑ%6“Ñ)“Ñ“Ñí!—EF·Ë5˜EF·Ëd¸®Gu{¨Ž7I•Ž^Òi»P ku¾HÜêñdtÝ&«EF+Pèû!£+×Çdtå}Ídtìô‡Œ®”Ÿ1]$dte'©Éè:\³Xdt5ù]]ƒ 2ÚÉ &£kƒÄŒ®ÍÇ#2º6H9ÈèJ’¢Éèêeѵ²s2ºº¦dt}jB‹Œ~ÈŽK$n-®ñ,·^&ËEâVZ’Œ–ÖNÈèÂd»Éèâ¿Ñ™]ÎOÍæðóüÉèâ‡ÑeC¦CF—ÅÎ{Èh'C˜Œ.ˤµÈèbò2º°“Ùdt¡’‘Éè2M"‹Œ~j”BF{>ÃdtaWÉèâÑÅädté®Á,2ºt“Ôº…ñX’ÑãE6‘¸OMÑ"·4ÿ½Èèb’2ºøþŒ.õ‡„.ÒÎ"£‹kôBF?5A!£ óA&£ ËÎ&£ uLF“pÑårMh‘Ñå!ŸEF× ‡Œ.¾ß £¯ãšÊ"£/VYLF_&m!£¯Ãý}™¼„Œ¾LÆAF?58!£/öGV!o¹³_Z$îÅ|E’ÑS;ù/ô‘™ }-û‰Œ¾LÊAF_ ò2ú¢¤—Éè‹R“Ñ—I^Èhï´7}¹æ.dôSó2Ú;éMF_Ã5’EF?5-!£/JP™Œ¾\£2ú©Y }™ôŒ¾(éd2úb{—Éè«’Ñ—É:Èhïd7}5“Þ"q=ÿ^Õ±çÎô>ÒÔx}1þ7}™ìŒ~jDBF_NZ€ŒÖ4í÷CF_ì1}9Ù2ú*&ŸEF_Ôˆ1}QÙÅdôÅ>“ÑÞ n2úr’dôÅ|‰ÉèërMh‘ÑÞÙm2úºüy"£Ÿš‹Ñ—k¼CF_&÷ £½32úøñìÙn;ç%¹hm½~aч ¨èÃÊP´Ë ÂD#óB¢DDûµ úíÑàÐg›v΋yÜå†öŒ/,ô1 +Úå!¡½ú˜Ô´àY?š[Êù¢ ¡@AЮ!í‰ ho6†€öîbèãʺâŸÏ4.ßôLÚlÑÏ®ôü|ö;§RP ÏÞ ù|t¢å˜c®PÜóq]aÏÇ)¢žôìŠ{0Ïžxy>ÄtÃJ€£€çãVI¼³wÛ‚;{{-´³÷Ó;{-¬³wÌ‚:{‹,¤³kÛ:»˜œóq Ž0çÕò~ =Ýåšóã¸ú®çÓHçà!QÂù°N à|:Ç,¾ùt㼉7kãè·éæC8póõm>.Ê+´ù&»E.ŸbybEæ…U7¦Ü xA-»bв÷òU¥ú{óȲwëA,»ÌÀ²ëjÁ+»¸²·ØA+Ÿ‹¶]°ò![Vù¸h¼.Ç1‰.RÙᕽó NÙ[ÝÀ”½™ JÙ»×€”½] Fù<ʼnVÅ«n YVðÌ+ðé…•ž#ÑÉÞ'œ|œ-#6Ù[¿M®O §$“ë³¹ 0ÙU™à’ÏSð8y\oЂJöŽ, d﹂Iö&+äͼ.D²Ë’½Q y3IŽì½OÐÈÞìŒìÝM°ÈÞ¿Š¼ŸÂÊ+ÀçÕ0w,+q½­ Ùûˆ€÷Ã/¬„¬ Aö^ $ÛSÄ'äöTí?v]ðcâ>v©àã}gÄ»˜è±Ëå@»>à±+àÀ»ä ر‹Ú@»Š бëÔ°$ïJ4 Ç.=qìZ3Çûᥓ7v½pcˆ6vE`c×|5v‘Pc×m4v¡–ûSŠ¥iÁÅV3îOu(c×O2v…cWH1v cW90vYøb./vièb×".vµØb×-vÅÈb—,v¸b—ù+v]¨b—ê*Ö¦¢o3Å{s )Þ CDñf xoóÇ+ÝުΰM·×c«‚¼¯ìÞfóUa3a Jì¤BHâ½]Ñ8×ù¶‰BqÄ›±7ñÞ¦t«­Õ6¬„Š!ÞLïíâÈ«òˆ½{ ~x]>¼]‚\ôðæ•xxo² Äï F$tx›ô9¼ Þ†"Å ïmÌxÛÊT0V ‰•b¬®æ¾âm¾RÄðvtÃ{¹ qnuÛËülâÂÛi¢…÷¢6¥`ámTS¬ðvÉu¡Âo‰•ÀÝn«‚Äê… ïe y`¥vCðœXm#òzj%cõ„ß+}…m«~Ëc«ŠÄê„_R€ðf9@x³š ü–]r#·¤àâŠÕ#±?Ûle‰•ña¬^€ð[b%2wØÊ«ŠÜo9me^x¾å²Õ…ìŸRVó¿¥¬Ô +Ìð-û§ÄJ ¬Oû#oϽÌÀælÈ[vÉÜo™€ð[beøú”X5ä~Ën+K¬„ñ[YöO‰•¨Þi+Ëù–ËV²Êý–ÛV–²¢rôÁê‘ýSÊ BöÂê‘÷…þ‘9¼Ë!¹ç-sÇÇ[®·l¶šÈñ)Ï[v[Y®·¶Èñ)Ï[N[Yb%ªwÙÊr|Êó–ÛV–VÇV 9>åyÉ}ÙÊr½e®å¼å|Â?2á·\oÙle9>å‡U·Õ þ‘ÃV–ãSž·œŸVóÓj}Z­O«e+ÁíS®·<¶²Ÿòm%ç-ßV‚ËÞr|Ê“Ø6á·\oÙ°zäø”VýÓªZO«ñi5>­æ§Õü´ZŸVËVyÞrÛÊr½å±ÕÊ—UŸr½ey[¿åyËZßr½eÂo9>å‡Uÿ´êŸVãÓj|ZO«ùi5?­–­r|Êó–ÛV–ë-ϧÕù´:Våú°*ׇU)V”N~Éó–*ü’ë-U:ù%ǧü°êŸVýÓj|ZO«ñi5?­æ§Õú´ZŸVëÓjZíO«óiu>­Î‡U½>¬êõaUˇUý<í”N~¤J'¿äzK•N~Éñ)?¬ú§Uÿ´ŸVãÓj|ZÍO«ùiµ>­Ö§Õú´ÚŸVûÓê|ZO«óaÕ®«v}XµòaÕʇ¥“©ÒÉ/¹ÞR¥“_r|Ê«þiÕ?­Æ§Õø´ŸVóÓj~Z­O«õiµ>­ö§Õþ´:ŸVçÓê|XõëÃJÛº~dù°êåÊÒÉTéä—\o©ÒÉ/9>å‡Uÿ´êŸVãÓj|ZO«ùi5?­Ö§Õú´ZŸVûÓjZO«óiu>¬Æõa5®«Q>¬Fù°Ÿ§ÒÉ/¹ÞR¥“_r|Êó–ýÓªZO«ñi5>­æ§Õü´ZŸVëÓj}ZíO«ýiu>­Î§Õù°ªù–o«Y>¬fù°šåÓJ€ðK®· ü’ãSž·ìŸVýÓj|ZO«ñi5?­æ§Õú´ZŸVëÓjZíO«óiu>­Î‡Õº>¬ÖõaµÊ‡Õ*V«|Z}žváG ~Éù#Þw§£Ùøçݵ' œSÉÿå·¿üÊu—Ü®üÏü×_}]_óß*³L‚‘Ë,ÿÈý–*³ü’¶JŠw>VÈþPËO™å@I™å—Ä*§<)³¼(æG™åÕ?`âÕ?Ê,/ö÷/ ů®IM`âåúÆ‚‰!LÀÄ‹­ÜÀÄ‹sÀÄ«=lqG–¯&^MSÀÄ‹]FÀÄ‹u`âãL¼p&^¬·Sfy`QfyÁëPfy±O™åEÊ,¯.¼l•37{Ùj€ c5`‹±—¬2Ë‹x'Ê,/ hPfyïD™åE¼e–WÓ?e–Wƒ-.¶ÊIzÊ,/–ý)³¼à{(³¼\ ¹ÚJE˜›­Ä«Ì²«ˆSfyJ™åEbe–WÕ¬-e–M”Y^/˜X2g)³¼a¢Ìòb:e–W}Øb¬T„yÛªCc¥S§2Ë«jõƒ2Ë«r®r3¤àÁÄ© ºKkó¸`bÚ¤oÃÄ©_0qÖYL[åW\¶¸Ê0"`âÌDÐï7ûMÃÅø fLZ›Û‡~Ê.ã÷ÀÃøûûñ}§ý.ÃÅøis»Ê,Gƒ}˜XXyÉï2œ¼åÉM™å,4ßÐ÷z®Ò}¡§4°mÂÄ]1ˆß†‰C×LZ0·`â̧èð›,¡‡¦,sÂÄ¡qs—~Æ]èó“b%þâÛ0qöv/˜8Ó#*?Á‚‰3MãgçÙÑø &R™åèku—Þ†·´`(QÞ¡§õ”ÖùU™åÐÝ¿f}‡Öý!˜¸»L0qèËðð52ã¼`âÐÀ¶—üX&=_0q<ÛVûéz &î.CLœãÁ·Í~º¾‚‰c˜s^0qhŽ§Ëoúxºü KŠ"­ûOe–s¥Ï›öfžö+†‹ñ» §ŸË܉Š­ë¥2Ë¡)S½å7|>rM>´à&ÁÄ¡_ &Î!aþ½`âД)N˜8Fú|ÁÄ9¢<[ä×¹‚‰C ¶LœRÃÃøéyLx·ÉÏð‘`âÐÛðð%-˜E0q‡ oiÁ~‚‰Cïû½Ë,Ç`ûîÒ‚kTf9ãò[òsY@•YÝ ã§ûMe–Cóy 3ôÿ6LÜO0qh}?ÁÄùæÐÐ]ºùçøQ¶¸Øï)»œ~†{ç{ÊBwéiØxKëþLœ¯9/˜84po·ßSV9üñJÀÄ¡ù> çKÕ &ݘXº>0±´Ú3Õ»ŠW6Ý*³œ¯p=¥u?¨Ì2o|ß.³ÜŸ2õ‚‰CëùLÜKÒÀÄ¡xø’–¿`âЂë‡¾-ö£Œq‘ßt™æ*¿ÉùLZϯ`â|ù5<\¥)ãÜäÇæ`âþS¦¸ËÏႉC ÖLZχ`â>ØüLÜ]Ö2Ëù"_Ñ[8zÉÏÏ»Ê,w—}£Ì2Óß.³z½`â 5Òçå«Ðê‡Öý.*54ðlîÖ‹9 _ÁÄý§ìr‘»C‰CëyLÜuY¾ Ç É6l¼¥ÕŸ &ÎÔ%ë)Ý^0q/¸8ý&Îéé!¿Ëeš‡ü<^LºX‡ŸËÒQf94~ wçÜ‘õ”lª2Ë¡/ëôÛ.K;¾z7¬.˜¸÷íó—š2Ãy`¡¯Ló^j‡V%˜84eš‹üϧ`âÌ­ºÐé7_ &î}ºLs“Ÿû[ÁÄ¡ß0qNéUô¦,t—e%€‰{§Œ0qh¾ß”ŸÃ9‡ž†‹´Æ#*³Ü»Ã2Tf¹?°­Ê,‡^†‹‡ôxÁÄ¡)SCs< ÇT)ppÂÄ¡ç &ffõÛ0qhàØ"?‡K&­öI0qèn¸xH«?L³¾zŸLÜàÞ&?—Lº.Ò‚÷Ç3ß'a✂Þè%MYㄉsÆÚpñPv™ú •YMÙé%?6ÍQf9´ÚWm Ëéò‚Òz´A²»,0qN¾ôª–¦ñ¤`✫¿ÐCú‹´îÁÄÌü&½^0qh=‚‰C×LË ‚á粃áâ%Íßwùy|&˜81üó#Íßù9\B0qhŽʯúø§ü(ã LÜàå%?²…)³œë1:[~̼åW S'õ—«;:ž|qŠÅŸc¸xIOÃÃEZ‡(©Ð”=ÎS¯.Ó*˜8´Ê´ & ¬›0q7ü LëX¢M÷Êû0qh‚‰C ÎLÜ+»À€‰C NLxwÈü¦Ë"Où¹ Ÿ`âÐï2˱À§½÷*³šï»ä7(#©2˽º,˜Ê,çjâFß.4°qž¨Ð‚bçÚ¤`ÚÜæþD‡° ˜8W:÷ù™#Lš²ÁU~Õeœ«ü ¿ &ŽeVàß&?æC€‰s‘VÇÓåw¹lr—Ÿ‰ÁĹä«ãòcþ˜8Vˆ—áá" lœÔgèú‚‰cùY0¶`âЂ{Tf™Õêo—Yîeûó¶ü\ÖQ0qh>/Î\?èÚœ™`âÐú~‚‰s¡½¢´àtÁÄý©‡¦Lr•ŸÉ-Áı迭´®Ÿ`âÐÕpqú1~&= éö‚‰sC‚¾ÏŸË. &­ûS0qhàä)?úC`âÐÓðp“nL,}=0qè˰𖟱ÁÄÝaMÀÄÝáxÀĹ¯ãw—=&Ž]!OÙå#­çU0qn"±N?—ýLzZéö‚‰C7ù¹l´`âî²`ÀÄ¡Ë &Ží1z>çîÁ¼C~.++˜8öÞGOù1ž&έ::ýš¿Ï’ŸÛÁÄ¡Åå¨Ìrÿƒ·ü\æO0qà_ÁÄý}Ç&$`Û„‰C Lœ[˜^0qìpÒý-˜8´ÚÁÄýº ûæÄ1û¥¾ g¼è…>ÒzÇf¬§ìò’Vÿ¦fîÝzÁÄ¡)kÜåçë/˜8´Î—`âæ"7ÀĹì‡Öý,˜¸=¼¨`â @]è%Ýiµç*³Ü\±ž8´Ú+Å¡Ë‹(ÎDU1µIMåþºSÜ\‹¨8vçíUÜxPXqs©¸âöp{‹ÛCÛ‰,nN´-n€‡-nb&¸¸9º¸9Ù¼8w- Ý͉»f²À8ö<3ÄEZ÷‡ãfÆ8wPê÷—ü–Éoù÷·ü¯Rf¹m·ÿ3…Vç#IãÜìÙÑKÈ7YãÐú}ÁƱ“T¿/Ú¸m?ßÂCëxÄç¾Tý~•_s™æ*¿æ߯ò«.‹Üä粺‚ŽCë|Š:Î-´¦‡´Âć~ƒÇm3ž„<­ë+ô8ô»ÌrsXðqn–_NT‡®/ü8“zõùɾ„摇´Úȱ1™2ÔI³å¾åƒœÛšóø!Ç®çm(yJ«ý†J¹ÈÏH·žBS6¹Êo˜®òóøO,rhµ§‚‘›–¡‘›×RÁ‘ŸðaxäæåD€äÜK^Ð]Zí•4ôõb’3½x¡§4€ó’ßõC)wiñßâ’Ùÿm09«juô}ã¶y~XäKš2ÒÉ&·éþYpróz trnà¿Ðéçë)>94e‘‹üX¿€Px`›I®Òº>b”CÃ,7ùH ¥œ¤‚¾¥u¾Å)çŠÜåGKHåÐ× UjBýXåÐ ÅS~•÷5,‰d¼på$6^¼rç,‡Öó T¬)‰ÿÛe–›Ã`a–C«ÿ´ZýxÖ`O ‰s!0Ñ”ŠžÒÂô.زŒ*wéf’yK:Wù-ÈU~³½ÌÍyáË¡u?‰_NDG q—¥Ò ˜CS&zÈÏãk1ÌéþÄúM1?9Ú`ÌS/ù9lE s¢J›Ó¯ò| eÝ–9’¸‹Ë8u³ ͺšnÞJî¦,ò¥Øoæ‹šC#Ì—¢½k iN¢k ýý‚šƒƒL® ÿ6%)¬9´˜;qÍA—‰ØZì£Èæ@ÕŽIç)Mã!¿ à(¸9Á7³Ï[ú]f9tyñÍAÕ-Í„“ áœaå~ͨõ–”Yn½º,s.¬$h®¹K ×çœøà t-E¤sëÌ·€:›¸_¬shÊ(ù& í¤#ewÝL4_Ò‚<'FÙÑ[Z…É„<„ ·ÜågÜGÐsóüÔsž"…=·Æú-ÜsèòŸƒ]f›/éfºK áûœ0ª>˯Ïz ¬Ç€ó%ý”]îÒ”™Nº9ü:48ñ%?ö›À@u+ŠPth á"?J!Aƒô~›ƒ-ôW tÁBEEBg8ýBoéjø9ü*û €¡C?øó%-W8t«† ÅC‡æx§ü\ÖZDtþKŸ¿ä7}¼K~ÃÇ»ä7|¼[~ÃÇ›|nÓ²þ·Ë,‡æx“Ð ÍñæÄ`|m¯Ðè Û±ÑyÚDøùÑ^BG‡~—YŽË¢ãš2ÈU~åƒnÚ&ñmD:t1Ò¡’nž‚’ÍñfÇŸ·á‹“ÎÛt¢·t3~F‡…J‡æx—ü–wÉoúx—ü¦wËoúxsá)‹ èó³#Íñ&º›µ ê½²ί˜éÐíM·â²Ž¢¦C6ݶ7ÍÒ6)]¥…L‰œMã&?jÅÁNg3x¡·´pÑÓÙŒ.ô”y/~:šaHíœè=^us¸7u4ó@Óù`„¦ló’Ÿ9xQÔÑmIFÝŠ>ËÏEnUi9»%}~Nt‡nJ½³X yB½¡§éé*­2ñ¢©£Ûó-œ:4Å‹‹üHM¨ŽnÞºÊ] ÕÙ˯ɯšfnò#ÿª:† TeîòsoqÕ¡©ø<äÇû=duhªIùÞ[óÖSZy¢«C—^Ã&¸î܈PÊ5où9"@%˜«ȨÁZ÷»Š0ק ±ª0‡Öý£2Ì ¿Yç0ñÅYg1Œ Ý¥5>iÃPO„ZקԫXëúÔ\lÃZOD[קì¨pë&SE¹Ë¯~×Õ…*!®««>‚\W×L„¹®-º®®¹u]]fì:´žq×Õ5¾¯«ëIA^çkÆ@ß_,‹}èóòÂÖ'gCÕ™ã5F÷›Ê3‡¦^qv´Õó1ð×u €ô¹ÈõBì|íÞ\åÇz6vh]?QØYld£‡´ž'qØ¡õ< ÄŽ×D×Db‡ÖøY(6¯™ßf±ó5Ô¨ö‘¦lò”ïàØ¡Õ^ˆÇ]_@v¼&k<*";ôÉM‘êÜ”¯ÝÆ®Kù)ŽBÙæÐåÁ²KKÑõVáæД.¾äç´‘Ù1M°ÌbéæŸéëgç4ÄB/éö³cCãsñÙOqíк?DhÇ4É1±½¤ÕÿŠÑÎi•ŠN?¶ÁCi‡†øžòk.¨<åÇ~@íÐï%?÷{ÉÒ©°Ú9ÔÐ÷‰Êi&ý<±á˜†Òû˜êÅUï×¥ shõ—*ÄX½Ÿ–’ÎYl&ï!ÛL‹}›Ù®ÞÏ ´Zý«¨í˜vS%l;´Î·¸íêý£€Û9×ÐGZí©Ðíêý°ÛUÍзáíÐz½Zí“ðí˜v¤°ô”_çúàÎiKÏ’óß Üu¾J@iõŸ‚¸cšTi&*óšÑù TïW¤ÐsNÃ> ·´ªí©Ôsh•÷U­ç˜ÖUD{­Å‚¹C¿Ë=ç´±üç­}â¹C«¥€îêùˆîêý} Ý¡©ÝåG^ Pwõ~=¨îêýy`Ý1mNiç!?Âw»C«ä¥Èî:(?ÚÓö=¤)`½äÇøº;4¿ŸhÕÐTªq,#ðûIç2CCiý¾j@Wïw£tè§ìsú=%•‹üŠ¿È¯ø÷«ü\ W wh~¿Éïòï7ù¹¨Ú±L£ãìË8 ½¤ùý옪÷›Á{‡Öùð]=?ñ];!2 ß¹ì”×KÌwWªèôóõÕ‹KÓùmì;´î¥˜Wï£2t.“mô¦€uÔcYí]:´îgU‡®þ”òйl7ÐCZÏ‹øïЪÖ*¼ …ý6ZÏ£ð\F¬èô#ܼv !B‡.~.B,<—5/ô¦Fs’à±,ªêªBÁCS¤:YðÐ*k+<–YU–[4xu±pðÐ*’+¼z>‡ŠÑ¡©˜hrèºÑCŪTVVE£C«ªªF‡Öý§²Ñ¡©ý\ä7\¹Èâ€á¡©$]åçë-4¼º¸lx.‹_è¡âX”qnòkxxÏè¥âYOè"­²ª"ÄCëüj£X,óëüŠ­Š®‚Äkã}J<· ôæ|-ù¹þ±@ñ,ÖUÐke±.JK'³œÛzH«½W5éØö ûWå¤kÝ®ë|É^„‚Ò±­B…ÚUÕ,ô°>ÒTQ®ò›T ÖƒZ÷‹ ñÐTlnòcÿ4Øxhµ?âÆsÛˆõ¢¸˜Žwȯóü ¯•ùuØñܦ¢ï3åw=šï³äÇþføñÜSÑGZå|5qš‚ÔÉ2‡ÖõQ‘é܆c=¤Õ©ÌthÝŸª3]],‚BÓÕÅ"¨4ÅЬï<¥˜óE:´Î·XòÜfd½¤© ó±-iYén}¤9¾.¿åãëò[>¾!?æ›`Ês•õ‘VýcQåÕû™ÀÊCSÒzÉý–€å¡U^Xdyè"½å×]^:!çÜ&–÷ƒªO‡®Öãd±7Ê`'çšÚÎ9Îmi ½¤õÌTù¥áTùÙÊUnrª|²Q ª|.µ“På“miP哧ª|2©Uî5o¨òÙ?¨òÉŽU¨ò ÜU> l‹*÷ëT¹&½ª|V f Êgù Ê'uÅ Ê'gª|²p¶ŸÊàâä© Î6¨òÁ®w¨òÁ¤=T¹™'¨òÁ”/TùXœ+QåƒêWPåcê‚B•òÿ¡Êo³Påc€‚‹*÷»TùèT¹É¨òa@]T¹‹´A•Û*”D‚*E‹æPå£hª|\j¡Ê5ýPå,Tyg~ª\»Ðª¼³ª¼ Uîw¨òN;¨òÎN ¨ò>õ"UÞ‡nB¨òβ>TywIS¨òÞMy‹*ïœZSåÝÔäÿÛÚ½ôÈ’]ן÷§¸Ã&`YçýxB@2à™ž %Ë(>@?¾ëìµþ'¢©KkBiãvžÊÊÊŒŒˆ³{Y•7ïâ£Ê›»0PåÍg•¨òV¬Œ¬Ê›»hPåÈ@«r®På\«rü}\U^7j[ªü‰Ð–*¯¨>«rvyQåu¢â¥Êë´j³*¯u.U^ ^ª¼ú(Ž*¯ý‰¬>*ºö'’ú¨èJĦUy%rЪœ³|TyE©Z•WªUyE©Y•Ww¢Ê+‘œVåÕ]Ǩòš‰t–*¯7Zª¼z=ª¼\µ.U^xý­Ê ¯¿Uùl³*/¾k†*/¨«ò‚¶*/óQÝ…€*/ŽäB•£PååF~K•sÖ*/ ¥.U^ˆ ·*ç,U^ˆ€´*gWU^ ŠZª¼x¨ª¼ÜÈk©ò⻚¨ò”«ò‚ªµ*/L°*Ïû«*ÏDÄZ•³ ‹*Ϩ%«ò¼x~Råyòü¤Ê3Ÿ«ò|#¦¥ÊóðëgUž‰x¶*ÏþÂD•gþVåÙ+¨rv]Qåtí£Ê³g± Ê3ªÍªÔíñ³™ãÈéP啬 «òJR…Uytµ£È‹»Ú·ëñêj·*Í(”ysW{r½Ôµ®ï©òS¿#ªO_ªülŽéx!U^—¯¬ÊO-u+U]ìÛõP­÷ƒTylÞ½Tyt±W×ëÕÅnU^ÅRå§Öï'U^—¯ê­ÊÏf£Õ{ÓzùQäEµT«Tylfêù­çË6«òS'þ}©KÝ‘Üqà:µ#¸ãªìÔVø¡ÊÏæëx©òØœåß·ºÒu|’*?õh®§jý½¥ÊÏæðF‘wÕŽ„NZï/©ro6 Êc3Z*¼h½þ(ó®®ôÅ¿oÕ:þJ•Ÿ:£Ì§ºÒ­¾›Ö#"Yª<6×Qç[]鎄îZÏ»nVå•]T«ò³™¯÷ŸTyeÕª¼Þ)KRåÑ,Ð]OÕz¿J•ŸZÇO©òÓ| ©QR姶RÛ118þ¥Ê£¹á¥ÊO­ï©òSëï/QïÔ©òS[g­ÇT ©òÓŒ¡ã¹Ty½SsôA8µÿûªõ|—ÞªüÔ5žÝÅ^]wu©”ù~u±[•G{u=ÝÅ®ÿ~h½Ê?´ÞÀZ)1Rå§öï;µ^áõYZ/óú,­ÇT©òh¾‘B/¶Óœs#«§»ÚQäYµ#Ÿ£]º²«jUÍ@/Uîf¡TytµKiÇñÔŽt.ZϺVå§9IÇ©òh^®§j½ÿõÅušŸÝ´Ç_©òSgyu—{w=_]îVå§Öñ]ª¼êkèU~j}ޥʣ¹«¹žêbߨñ¬ZÇ©òÚ™² U~šË¬Øcû2šÍšë©Ú*:Ú‡N­4?©òÊÔ«òSK­H•Gó[w=Õå>_ªüÔR Rå•) Vå§ÙNñyRåÎ5ù@•ŸZ*@ªü4ó­—*?µœTy4ÿéçu­7‰„îZo‰=´ÞD±­7ˆ¸Zo8ÁNªüÔÊ“*¯ìºZ•ŸæƉ2節ÖC•G—¼êPå§yr¡Ì§j©&©òSç—*w3æªüÔŠy”*?uy©òÊý«òhþl®»j«ï¢õˆì–*?ͤú}¤Ê£ÙTuÓzDvK•ß.z«òÊ.¬Uy4·ROuÉoÔxV­¿Tù© õV×¼Ô¬Ty4ÛROÕRÔRå§väöÒzŽ¹±*æÞ—*.{êÙÕe/µªüÔº«.Ô±1£Rå•]Y«òèºW]´žïY•ŸææI½U[yW­G$·TytáK]7­G„»Tù©+õVíí®õÈ«”*¯Üϱ*®ü溫ë~QoÕRaRå•]Z«òZÉK”*æò麻K¹þüOí×#8E4«'×SuGçñtí[•ŸføwDu4ÇKEg­ÇÔ©òS[U­GJ®Ty½S+¤ÊO-µ%U~ºö­Ø«ÖCJ•GWuÝU;Bºi½ŽâîZÏSQ¬ÊO­÷£Tùéâß(ò®ú*ó­Ú?oj½Wdõ|uý[•†X®»jÿ~Á³O—¿Þ_Rå•ûMVå¡b}©òSëõ”*?]ÿó¥ÊCHIg­ç)cUžˆ‹¶*Oî"@•'TµUyòõ)ª<Ô¹TyâødUžPÖVå‰$d«ò”Is–*O¼¿¬Ê“·:QåÉ]À¨òäý#TyBÕ[•'«TyJ¨ðøÅBY$×Kµ¾O¥ÊOmŪ<0ªžO¨òPËuSíHé®õ˜Ò$U~†Uy¹©ðRåe;G˪üÔ…_ªõ~‘*? CÇ©òPú÷¸1Jc¸nªÿ¾r¨ «îPå¡6²ë¡º Æ“êôRå¡8^ªüÔý¥Ê¿TyÑF몼Ü@r©ò²ÝUnU~jýþR埫ëXÏ£½­ÊËÊ¡o…û•Vå§ÖßOüá(Ÿ¤ÊË“‰=µÞ ¶žZã›Ty¨ý¾Këñþ“*/7ÎYªüÔé¥Ê“£Î—j+çØø9µ®w¤Ê ©¾VåçÇ,”yS­ÏŸTy!ÚÕª¼njUªä¥ÊC• ×MµU{ÕzœŸK•—;õCªüÔNÑîZÏ*Öª<^öê:Öã|]œèÔe>Tëý$U~j½¤ÊãÏŽ:õ¸ž“*?µ®Ï¤ÊOíxíØ( ¥²]· e¡Î—ê"/ª+Ê|¨Î¨ñXÏçkVåñ¶_®—ê&¥]´žïÇúÀªEÿ}Õzž2f®V„E>På¡\ôß7­‡”*/ U-UêeÞTKAH•—å©RVåq˜X®‡j«ö¸‡•—*³]Ÿõæ"8|i½«èƒc—‰2”*Ãʼ©öï”8 J‰‡*?uG™ÕVàYëMB±³ÖÄQg­‡ª‘*?µÕyÑz(7©òP6ÛuSíêªõ<¥ÊªüÔõ¥ÊãkEë¡¥Êãk¦¹^ªõúJ•ŸÚ }h½J÷ÔzõQæ­½”ŽTy™žªaU_‹Óõç6ÔŽ~ÿ¸‘[HC°*/$X•‡âA‘—JGo©òP=RÔYëe?©ò23ê:k=”Tù9-X/U^˜²bU~j[W­çûVå…>2«òS[‰G#À©õ÷’*ôRåe ,¥ÊÏiÏz©òPBÓõPíî©õH­–*?µT—Tù9Í’ª‘*?µãã«pÿÛªüÔeÞÆKI•ŸZªLª_µ*?õ@¯ñRMRå…©2Vå…ûñVå…)ìVå§/UêIÊ9Tù©­Ä“ÖËDsg­çë%«ò¸LA™/Õz½¤Ê㲆ú¬×7Š:>ØqÔ]7Õz©®/U~j+ï¦õÞ]ëy?Ǫ<.˨—j+ô¡õD—*?—yû¥Ê¯²²*?µ•üÔzLM‘*/ÝS­Ê M‡V奿”yS-u(U~j}¿¨™/Tu¬Çû_ª<”uSݨ—j+ï¢õÜodU~.£½^ÕzõªÖs׿Uù©õ~“*ÕEëùüĪ<”uSݨ—j??©ò^y~Rå½ðü¤ÊQ`¨ò^u¾T{=©ò^xý¤Ê{FåK•w÷ÿ¡Ê»ª¼sþbUÞ9þ[•ß©>Vå=YqZ•÷ä÷‹U9SÏQåìw Ê™zŽ*oÛÊߪ¼yj&ª¼ñ}`UÞø|X•7>Vå …oUNß'ª¼-ÔºTy[žJdU.¬ñqUy›"oª;ê|©–zµ*oµ.UÎtT9½¤¨ò6H—*oÅ-UÞP©VåmøýhU~§Y•7ßC•·Žš–*oÝŸg«òÖý÷±*oÍçÏVå­¡Æ¥Ê[# [ª¼¹_UÞ<åUÞ8?²*oµ.Uުϭʛïw Ê›ï§¡ÊSY¬ÊSu¬ÊÛUëRå õlUÞÜ"*§_UÎuTyË(g©òæ)f¨òæ¦zTùªdUÎTuTy³ÒA•·„—*oîç@•7ߟC•·„b—*¯V¨òêþ*TyÝ(q©òÊ÷UyÝþ¾·*¯ Å.U^—¿­ÊëòÔ)«òºPâRåuñ|'ëùùJ•W+TyåûǪ¼Þs©ò:y¾RåÕSôPåuøüÒª¼”´Ty>°*¯\_X•W¾¬Ê«§ ¢Êk÷ûÁª¼v¿¬ÊëUáRåwª”Uy½J¼±žÎ?­Ê«Õª¼2Ǫ¼¶/©à§¶‚—*¯Vj¨òZQñRå•©+Våì¡Ê+SX¬ÊéwF•W«%TyåúÚª¼¸Tyu¿ª¼«B«ò«­ÊkA}K•W¡ÊkFuK•W_¿ ÊkFyK•3EU^3*[ª¼ºÿ UÎÔ,TyM_ÂÂCQf×[µT Uyq<ªœý:TyÙzÿ¡Ê‹§È Ê‹ïo¢Ê˶¶*/î‡D•ßïD•QåÅý¨òâëyTyAåY•÷ã¡Ê™â…*/¾¾G•§& ÊË´Jµ*§U^<U^PZVåe°¾TyV¸VåÅýa¨ò2X_ª¼tÖ—*g?U^:ëK•—ÎúRå¥óü'ëy}©òÒx}¤ÊKãõ‘*/ÍJͪ¼4^©ò⩸¨ò‚*¶*/¾¾B•”±UyñçU^|~‰*/E]Xï*òX¯ ª¥Ê‹ûÙPåìg¢ÊKy”ùì/¥jU®mû«Ê S ¬ÊKF¡K•¦X•³ÿ‰*/Þ_@•3µUN>ª¼ø~ª¼8…U^ʼ«ÖûêœýxTyrªœ)„W•ûþÿUå/P僟gU>¾¤˜—ÄTùàçMÖK(óXå*ïü¼…÷ÏÛ(pÿ~û*ðx½QåÝ?U~UxBoyù¢Ä­Ê›?o¨ò«Æ¯*¯(óõ3Eîõtüýª<¾2§«¢|;½õåÏ«rÙï«ÊAæKe{«r²E•{1ª‚nU^ôþG•#Ò'@=™Ôã?^õ86UîS{²ÊÝiIV¹oL‘Uît(²Ê½-AVyÒ_ Uî5ªÜ=.¨ò­? ªÜS¨ò­T¹¿¿QåË1àVåÎð@•ûäUî^T¹ ¢Ê§ŽT¨rǠʽï`UN¾U9Y¶VåŒ6³*îA°*ý‹*ÞA³*]'€VåÃ)“VåÃíTVådÊZ•f)-UÎÞ‚Uùpë‹U9ûVåÃ'ºVåÃ÷¬Ê‡‡MZ•¢OµUùp‚Uù ÷[ª|¸EϪœ«òá1†VåÃýÞVå#ëö£U9òߪ|¸¹Óª|ø^ŽUùHú([•w_9Z•ÓøoUÞý=bUÞcUÞQVå}¡Æ¥Ê;jΪ¼“õlUÞÝu…*ïÓÊÓªœÙ÷¨òNÖ£Uy'+Ϫ¼{vª¼²Í¥Êo6ªUywW ª¼£D¬ÊoªUy÷ìgT9³ÚPåŒ/@•w²­Ê»wuQå½YUX•÷öU•w²­Ê;ÙyVåÝ]£¨òî®sTyGñY•wÏzA•wT˜U9³ÞPåÅoUÞÉ’·*ïÞåB•wÏB•w²ô¬Ê;ÙíVålv«òòžÈ—*ïž…*o7+]ª¼]•.UÎ]{TùÍ*µ*o‹ßGª¼9 UÞÈv´*ç.=ª¼¡­Ê›ï"¢Êµ™õqUy›2oªõûX•ßlR«òæ®ATyVôVåm8kÖª¼¡^¬Ê[yQíls©òÖÉ2—*oL)°*oî"D•7²­ÊÛUóRå­‘=.UÞÜÕ…*odm[•·Êï#UÞ*¿TycÊUy+ü>Rå­ðûH•·Âï#UÞPÞVå-“Å-UÎ,;Tyó¬XTysª¼1%Áª¼%²Ã¥ÊY×Vå-‘M.Uά;TyÝþ}¬Ê+ŠÎª¼nºTy]¨u©òºø}¤Ê+ÙºVåÌÂC•×Åï#UŽÂ@•“u€*¯5/U^QÌVåzØÇUåÜåF•×A–ºTyEiY•WwQ£Ê+YºVåÕgÁ¨òJö¼U9w±Qå¨ TyEqY•Ww}¡ÊïÔ «òZÉ—*¯ÕÇk«òZ}¼¶*¯Î#«¼2ÅY娲ʫg¿“U^½‹JVyõU,YåÕ'¦d•×«à•UÎ]g²Êkö÷©³Ê«g“UÎ]f²Êk² uVyM¨ge•sW™¬òr¶²Ê‹ÏÈ*/>= «¼p~à¬ò²<µÂYåe‘Õ­¬ò²PÝÊ*g–Yåwjˆ³Ê SœU®æš›UÎl?²ÊË°vVy(xe•Ž·Î*/oU^8Þ:«¼p¼uVy¹YéÊ*/oU^8Þ:«¼8ËŒ¬òÒÈŠWV9Ùd•wU^ÜEKVy! ÝYåÅY d•—úE•ÇÍÙì:Ö+dw+«¼ þU^ŠÏ¿œU^Šß/Î*/Ùïg•“JVyq×"YåÅ»þd•wÕ’U^˜à¬ò’ü~qVyaJ³Ê…Ã>nVyv"YåyQå15e¸>YÛyûxé¬òÌTg•çEv¸²Ê³³¸È*ϾÎ"«œÙƒd•£TÈ*Ϩug•ç›e®¬r²UÉ*Ïœß:«Rå:ì|\U¾½k‹*'ËU¾ŠZª|;KU¾P®Vå7{תœ)E¨òÅûÙªüfñZ•/ÞÏVåË»*¨ò›ÍkU¾Èj·*_žB…*×Ö«Ê×D½K•/²]­Ê×ð”«ò5PéRåk à¥Êo–¯UùVQV嫣ԥʗÏQå %kU¾®²–*_¨F«òÕ<Õª|yʪ|Ýlo©òÕÈ—*_Lm°*_dZ•¯Jv·Tùª¨v©òUÈ —*_¥.U¾ŠÕ˜UùbªƒUùB=Z•/ÏZG•/²f­ÊW¶rµ*_dE[•/w% Ê—»úPå(TùJþ¼Z•/w¡Ê'ÙáVås£°¥Êçþ’UÙÃÓõVí¬o©òé)w¨òé.!Tùô¬nTù\dŸK•Og« Êçôßߪ|¢$­Ê§g3£Êç$K\ª|”¸TùdK•OϪE•Ï«¾¥Êµ×ôqUùì¨z©òéûèòé) ¨òù³¬r²wPå“ãµUù|e—OÕÎÚ–*Ÿî G•3U U>­ÖPå7Ùª|Þls©röÔPå“l{«òy³Î¥Ê'Sk¬Ê§ï£Ê'ïo«ò›¥lU>y[•O²\­Ê'ïo«ò‰²´*Ÿ ….U>}=ˆ*ŸÎzE•ßìe«r¦X¡ÊÇ&û]ª|l¾Tùð.9ª| .­ÊÇK™wÕV×R僩8V僬_«òá©H¨rª|Xµ¡ÊQ@¨ò´*G¡Ê*ت„*¾¿*G¡ÊQ@¨òÑ¿ªrª| „­Ê*Óª„*G¡ÊÙ©C•£€På( Tù¨¨g©ò›mU>*ÙáRå( Tùp×6ª|¿?­ÊÇ*7+\ª|p~â¬r6ñÈ*œo;«|p¾í¬òÁ”g•Oe#«|ø~3YåÃÙd•„ªWVygª³Ê»ïUÞeFVyçxî¬rö÷È*ïËßçÎ*ï(cg•wg‘UÎÜp²ÊûòñÓYå)@Î*ï5­¬òÎûÝYå÷»³Êoöµ³ÊÙï#«¼G‘7Õú~pVyw6/YåÝY[d•“ÍDVyg*Œ³ÊûUñÊ*ïî «¼7T·²Ê»».È*ïVd•÷Æ륬r²œÈ*gâ9Yåóqg•wg=UÞ+Yí"wÖ¶³ºUÎñ¬rŽïd•—GÇzd«“UΔ2²Ê³ß_d•gÔ¶³Ê3ÙèÎ*wWåÍ*OdŸ;«Ü;Ù7«<=Š¼©ÖçÑYåósg•·íóg•7g…‘UÞ¬–É*gx;YåÍÙ3d•7g‘UÞn–û& <£Èn%¿É·êVVys6 YåÍû/7«|¢²U>e¾T;»»-®®}²ÊQŸd•ûx³Ê=Eûf•£xÈ*G½‘UÞÉúvV¹ßÿ7«U@V¹ßÿ7«œ¬È'«¼ ÈUž^ª¼2•þ•U®¬Ç'«¼QMa³B¿Yå›ÚYåÎFwVy±ª"«ÜSKnVyùYV9Ê™¬r²{É*Ïd‡²ÏëK•ÇÔ6)íJöù¦vö¹”‡³Ê[";]Yå-}Qå§VöYåÛï²ÊQnd•£ÜÈ*ߨðA–º³ËUŽz&«ÜSßnV¹¯WoVùÍVwV¹§ÀݬrYå…ï¬rïŸß¬r²É*÷Ô›U>PâÎ*d‘;«uCV¹ïÇܬrT›³Ê+Y¨Î*¯ýQçKµ””³Ê+ÙÄÎ*¯žJAVùU6Î*¯|œU^ù<8«¼6Ô¸²Êk#»|’õ¾^ª<¦Î½TyàkÕÊ*¯(6g•3…Ž¬òJV§³Êka=e•WïÿU^ ê[YåÕÙQd•³IV9)d•×ì)Î*¯7›\Yå5³ž²Ê+S,œU^ë)«¼&ÖSVyM¬§¬r²ÇÈ*/›õ”U^6ë)«¼Õë¬ò›Mï¬ò²YOYåe±ž²ÊQ1d•—ÅzÊ*/‹õ”U^˜ à¬ò2ý÷pVy![ÔYåe~Qå•ýN²Ê Ù±Î*/Ãë9«¼ >U^PŸÎ*/žÒBVyñýJ²Ê‹÷È*/Ýïgg•>Î*/|>œU^ø|8«¼ðùpVya †³ÊÉF#«œýP²Ê JÚYå%í¬òâ©Vd•—êï3g•Ô™³Ê S1œU^Š¿U^˜à¬òâ®u²Ê ÊÓYå¥øøç¬òâëc²Ê‹ÏŸÈ*G©U^˜’á¬r²×È*/ÉÇ{g•—ôd—/ÕRÎ*/|8«¼]í¬ò¼­šUŽB!«œ©~V姮ÔCµ³×§Öc ŒTyLù{©òSwyQ]_ª<¦þéõ‹F®óµ³©›jg»G=µT¯Ty|m%×Cµ>Råñ5Gëñy‘*¯EÕEëñy‘*÷×誼fO™´*¯Ýîz©ÖûQª¼’’aU~êwVy|­/×±^CÅw­×PñCë5²×‡ÖCmJ•Ÿ:SÇzn…µ*)ƒúý–Ö«(öh<ª¹>ÙäYµþÞRå1up¸Þª¥Ø¥ÊO­ó-©òSK±K•ÇBj¯'Å.U§YRÒEëy˪¼¢:¬Êk¾YàUëe{ÕzL™‘*Ó¾ézªn(ò¬º È»j©]©ò˜bˆ"¯ªõy”*?u©òS×—*¯Â–¨ò˜j¨ç»´Ÿ©òSëó#USQæ]µ_Ï81<µ^O©ò8­.®§jÏ¥Êã4¼¹îª­¬³Öã|Lª<¦ N×Sµ¦rH•ŸZç‹Rå§ÖñMªüÔÎoZ¯ûx$USQäYuG‘wÕVñ]ëyÁª¼’rbU~j«ø©õڣ̻jg¹O­ç~«òSëý$U^Ù¶*©ŠËuWíß?n¼ŸZ¿¿TyLYÌ®c½BvxÖz¾~·*?u©ò;uѪ<¦..×^ÏYçUëñy’*¯ì[•Çe§~^ÓzNñ²*ËTÔx¬ÇÔ©ò¸¬Ý®·êŽ"¯ªõ}$U~ê/ª|L Ê÷öñĪ|o²Ô¥Ê·¯ïQå›ó7«òí”$Tù^(x©ò½PÙRåì/£Ê÷BMK•oO¹G•o²‡­Ê÷üšU¾'J]ªœýfTùF1Y•ï‰"—*ßþ~B•o²Š­Ê7ÊѪ|{ʪ|£˜­Ê7Jɪ|“]jU¾m2PåìG£ÊwG½K•o¾På»Y­Y•o’UùF1Z•35U¾½Ÿ‡*ßöC¨òíþxTùF-Z•ïJ¶·Tù®~¾Vå»|Í*ßÅÏת|£­Ê·ï£ÊwA¹7ÖKoU¾ÉNµ*ߨD«òy¾RåÛS=På•lU¾™*`U¾ÉÞ¶*ßd1[•“²ƒ*ßþþB•“ºƒ*_Õ.U¾6ª]ª|m²·¥ÊÙÍVåëfwgÖ“Ò´*_‹ìo©òEv»U9ûߨòµPàRåk9;ת|ÍG™oÕVìRåëfK•3ÕU¾&Ùáõœµ.U¾ÙãRåË)N¨ò5È.—*_N!A•¯ñU•/ï'¢ÊWG­K•/ï· ÊWGÅK•/OÑA•/O™F•/÷—¢ÊS¬ÊWóT«òe‚*_¾ÿ€*_ ¥.U¾ª•­UùªdyK•/²©­ÊŸ?«òåýGTùª~=¬ÊW±²¶*_îçC•/”°Uù*VÏVåËS¬Qå+Í*_™,u©ò•QâRå lU¾ü}‡*_ùÉ&?*z%Ô¾Tùòý;TùJ>Þ[•/¦X•¯„ Ϭ—Pæg½¹=uÀª|n”¶TùDýZ•O_¡ÊçöñΪ|.¸Tùt6ª|z?U>í På: ý¸ª|òy´*gÿU>ù‡ßßVåÓ×k¨òé)p¨òéý Tù¼YÞR峓Í-U>=uUNJª|ú~ªœ©Ÿ¨röÿQåÓý‡¨òéÔ!T9S@Q峑=.U>}ÿU>}þ‰*Ÿ%.U>}=‡*Ÿ|?Z•O>ŸVå“ϧUù,(t©òiï€*§_U>™âaU>™âaUNr4ª|f¿­ÊgFIK•ÏL6wa=©}«ò™<%Ǫœ~T9SEQåó•M^UëýnU>™ÂcU>˜ÂcU>˜ÂcU>˜ÂcU>öWUN¿ª|xʪ|øþ ª\xüãªò±X_ª|,ß[•>¯VåƒÏ«UùðÔ9T9SIQåÐ`TùðýyTù˜^ߪ|8Å U>ëK•ÁúRåƒóW«rüp¨òÏĹœ8YåëóÍøç³ÊÏoýÊ*72¿ýÊ*W‡˜)Þ|)¸xóôX8ì-ތß.s~ñÛsá·ãX>Í›-´_Yåñ$Ÿ¬òöíU.týd•çoï¬òbsî¬ò8È>Yåõ­Ê=ˆòÉ*—î¶*7ã²Êå·oV¹ÀöÍ*W„øÍ*ɾYåqíød•ÇVôê˜ä‰*·Iì=0Éú&Yö[¼¹û¬q‰7w#Í%ÞÜm2—y³ß¢Ë¼y^sî¬rý 7«<Îן¬òx»?YåñW «Üë'«<~²Ê=@éÉ*¯vãIñãñWx²Êã¯@VyÖiYå>Ê=Yåq'«ÜçOVy¼‘¬Ê›çt+/´±Á½å™›§p«¹5·—niææîè-ÌܦóÕe™›Ï…·(3#·$së*w¹Í¹³ÊEßUîa6d•{VÍÍ*' ›¬rïbݬòBö¶³Ê=+êf•“mIV¹»pnVy"›ÛYå(d²ÊYàRåu[)X•³Kz³ÊÉ%«|¡Ô;ÙâeYÛóÉ&ìîAºs%Ë0 ²Å¥0’síVoi’-.å–ÙâRmIŠ¹¢È*'K”¬rë߬r²zÉ*G-’Už­äÉ*G%’UŽB$«œ¬P«òâÙܨò²­.¬Ê˶ª±*/WiW²Å­²Ùâ_Ty™¨xg•žo'[¼¢Ì‡²Âý|¥˜ ŠDC£Bí¡Î—j?ßI¶¸Ÿ¯s©/U®ú*ò¦¬p?_g•ß××Yå÷õuV9¯/Yå¾ê¸Yå¼¾Vå™lj«rvmPåoUþd…K•³ë‚*ϼ­Ê3ï_«rvMnVù°"#«Ü³ònVyÿªÊ3ª·t²Àõy+RÌìZ„*Wö÷àß^®*wøpM¸þ}‘þd•«nüûRÖ·T/YåV/7«ÜÊUþd'²À3ÿ¾”ímµÉ×ûÓª<ù¬ Už|àE•3»UžÙá•,p)|«rîŠß¬rÏÚ½YåÍÇ+²Êmw³Ê«Yå¾Kª\ÙÝVàRÌÉÙ¡ÊßYÞj߈›£ÙõPPäÎîVÖ¸8û©3ÿNv·Tú&»»¼Tù¹Ù«÷ŸTyÜ ž®›²¸7ÿîìn+óLv·vÖzu]ÈîÎ(òX,Y©òÈæ–¯Zïªôªõj»i=ßÅ´*?õÍ._ª¥æÈ*gjYåîÊËjç:7ÿÇtÝTëû² ²¶5•A¡›•lšPåÊÒ–ªk‹¬mOš³±}×€¬òåÙÖd•/Ô«³ÊS\œU¾¼ëJVùº [Yåkxꀳʗ»ÒÈ*_U¾8;«|ñ}ç¬ò…òwV9ꃬr”Yå‹ã…³ÊWáù(«|ež²Ê¹Kt³ÊÊÜYåé¥Ê•íçs³±uüê7ÛÏÇÙØî: Uî,ìê:²±ÝEEV9wQÈ*ŸÞ5 «|¢,U>Q•Î*Ÿîú#«|’5ï¬òÙe>Tëýì¬r¦z‘U>+ÊZYå“©4Î*ŸÞ&«|:ë’¬òÉÔg•Og[’UÎUžUβÊ+ ÆYåõ¥Ìc½Ÿe•3뜬òâó²Ê ÙŸVåÅ£Qåe¡¸¥ÊËâçI•¡UyA Z•²¦­ÊËàçI•—ÁÏ“*g¶7ªœ)/¡Ê[t%úçI1—ÆÏ“b.•Ÿ'ÅÌlmTy!+Úª¼^O©òâ®tT9SWPåÅwÅQåÅ×ã¨òâ]aTyI¨k©òŒš°*Ïd­Z•kóøãªr¦  Ê3Ù‚Våùf}K•gÏfE•Óe‡*ÏãkVyö HTyFYZ•çö¨óÝž.8Työõy¨ò]kR& ~²s5ÞåtI­Y•g²L­Ês&Û]ª<ûø‚*Ï>¾ Ês²*²*¿Ù·Vå‰) VåÉ]Ȩò„J±*O¾•Œ*gjª<ͯª<ù|UN—ªœëITyâýnUž<%UNWªœ)¨òälTyºYéRåtAyèà=)æä]ßP媥~¬ÊéZB•ß©VåÉ»>¨ò”PÚRåÉ]¯VåÑU„"¯ª¥Ü¥Ê£KHŠ:Tyt5×}¼²]¥ÊO×Î@‘×ñtõX•Gv+Š<«®(òXÏ]oVåO6«Ty`¨í:Ök"Ϫ Š<ÖC K•c} Êk%×±^yùٵݞ²ª|ª‹¥»Þª­Þã‹ñt•Üìò©ú*ò<_Y¨Rå‘}:\oÕR—RåÑ5òRåe¹«Þª<º@¶ë®º¿Tyd—¾Tytq¼Tytmhý¦õüýjUY¤ÉõVíçßµ¯¿TytQH­çYëVåQæ[µÔ¬TùébÐ÷‹Tyt5èçŹèb®»ê«ÎÏ®íºYî¡Ê£ ¡¸žëÉú´*/WýK•ŸZï©òè²ÎÚö.£UùÍê´*]þ꺫v6yaWÞª»²+¯Ï¯öP"kS?¿±‹ÞQäÞ•·ònwý¥Êc×¼ºö®÷~©ò» nU^fE±­W¬¥Ê ä­Êc—ZÏG™y=»ÔVú‹]å¡×g³«¬ã™TyìKQ'võþ–*7†þ@•K ÊcWw¹ŽõÈ––*/oEë1õCª<07Š¼ªÎ/U\êºi=ï0Z•&G™oÕú¼H•Çèc=O\¶*?µ^_©òÈjœ®·j)\©ò e«òÈ^Ôï³´ž»vb{Î*Ïþ>!«<ûüŠ¬òìýB²Ê³§t‘Už}ÿŸ¬òŒÒtVynVkÎ*çúš¬r²„È*Ï7{\YåÙSâÈ*Ï宬òì.A²ÊóUöÊŽÏÙï¬ìx²yB•«–âqVyN¨je•ëÏôq³Ê“§Â’UN6Yå õî¬òDÖ±³ÊÓ$‹[Y剿³Êg•3“¬òä©Ùd•sýMVyº ]Yå‰ìag•'T ³Ê ÐYå©ùóè¬ò„òsVyr—6Yå©®¬òÄçÇY婼Tù©3¯§²ãSæõTv|ºÙîÊ*OÞO «ü* ©òsÛÑÙß±Q|j)7©òSKµI•ŸÛ˜ë¥Êó&TªüÔRjRåç6©T–TyÜFM®c=²Õ¥Êã6lw=Tk*„Tù¹+E&UžwGÍw­Ç” ©òÌõºUù©ýó§ÖCeJ•ŸÚ?j½ÊÏ_Z¯ðó—Ö+üþ[ë~þÖz™ßk½LvwÈâ¶zu=Tw)éà^q[~»þü"9·íõúK•gö­ÊOmU|úl8û;nüœº¾TyFuX•ŸZªWª<¯«Þ›Ö"OªýÝµÞ ‹¼k=¾¤Êc›dºªÍ>µS¤ÊO]^ªülÓHu«ŸîÔÎF_Z%Û¶Ö+d½o­Ç”…¶µ/©ò³­4^ª<¶¤¸ãƒÛRÝuSÝQçKµ^/©ò³íå,ñP姶bU~j/¤ÊÏ6š²ä¥ÊO­ï©òS§—*?ÛtÎïZÏ—Tyló¡Ì—j+ð¡õ|ÿתül#êï+U~j?ß©õœÂbUž¹`U~j?ߥõ˜ªÑ·Ö«¯¬rÕ~¾[ë†þì_[•Ÿº ÆÓ©Ý_dUž'ª_ª<Ó¥nU~¶yõ} Uži3¶*?µŽ_RåÞFþ@•Ç6³Ö UÛÐÛõP­÷¯6šO}•y¬ç)ÏVå§Öç]ª<†­¿Ty c×Ï›ZÏSo­ÊOí¬ô©õ:YæKëq|Këu~¿­õÙì[ë5²Ó·Ök¨ð¤õU;+¼k=¦0I•ŸZÇÝŽ¶&=ŸPå§íÉYâѧj+ôPå§N(ò³^³z´*?µ¾ÿÄO[–•úÒzî§ U®ZϵµÞ ;}k½›=ž´SÀvÒzUª<Úʲë®ÚÙäq#á´¥éø'Uži߶*?µ³»«ÖãüEªüÔúþÖ‰M´É¡Èc½›íÝ´ŸO©òSKÝK•Ÿ6=ÿ÷]ëe¿¥Ê3©>Vå§íO׫RåYÛ¨òSÔùY¯2ÅAªŸRå§vvw¨ò|³ ¥ÊóÍ~–*ÏL²*?Œd£Ì·j«í¦õP Rå§ÖñCªÎÿþóöTFÍçƒÿáÇÿõ??þù·¿û|Ýþæó½ÿão~ñß~úoß·Xž±Xì·¿þ—Ïñó[àÇÿûû¿b%í®Ÿßéãwÿò¯ü?ÿú«ïÿÕR\Qųùýï~ñíóìþÇûü?ŸOé×øú”þ=ä–íùõàïÿ ¿üýä׃¿ÿƒüzð÷_þþòëÁßÿA~=øû?ȯÿù¯ü;ëƒüzpúÏå»ßï!:ÿ£>ÊÂóòQŽýÏÿÏr•Iÿ åÿþÃÿ _. endstream endobj 4498 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 4501 0 obj << /Length 2125 /Filter /FlateDecode >> stream xÚÍXÝã¶ß¿ÂÈKm æñ›Ò!ûR4—¤hQY4½ÕÚôZ­,9’|›ýï;CRiso/)Pz?g†Ã™ßÌ®žVtõÝÝïîÞ}ÐlU’Rs½z8¬¥DH½2Œ-ÊÕÃ~õ÷õ`›S··Íæ|÷A™h½(51e ÔÜJ!.º£Á·w tÅVŒ+¢¤YIª€²XíNw?ße˜”nEÔtSÓ¾0ðî‡S±úCw÷Wø¦©íDsugJdœV‰’Ù—ôáX›-7ÅÚ šf]6\­]¿sO½­FÛûÙ” »ajýKýX7õøâ×Ô­ŸÖ ÇêlýXwðCËœmìn¬»°çpi]ïkèjý¸át}ý\o¾Ô½ fm‡±Þ¢’A[¸¥R)¢Såé ª_ü»]‚Êuµß×8]5~âÜáIŸñh®[õÕÉŽS÷#UtÞz¬šÃ¶íúÓ´·j÷¾Ñ:myÃd‰!KM¨â“a~¤LûUf¥IiD‹$‘¬‡YJ¿ŽglÜS¨U´hì<{J”ot½—ŒÁ= %áêPöX'Í è”‘ÍV©býý­$Œ)bT" õ«ŠHW—±$ï3'7„jñö¹‹„»eV£eÌì~³•‚Mr%*âˆlbZ9“¨Ã%Õ§sSû»ë¶s¿¬$Ô”éýÏÎî häÐ:ÿßwÎ% •Qc)  ˆ?™ú5ª×Õ˜!Ô«Q%æS$×Á…Ž™Ý{‡Î©Œ@–ÅÄ”xU1ÁHl)÷S×ÛJÆÀ-ZlÐHç8|Â/ ‹G$0 ,µìºÓc݆áù¹¾åÍ[. èþ|¬waAc«}X1vÓp?ʘ ;eL9ûäŒ(PÒþF˜ÿÒJå[V*äÿ¬•ªØµüïC.·Ù2H”'#AdLB®¢`Ni6àYüÚHÅ2Ü4Ñ…H¦™ˆ†-qkŠ‰‚¾y â€S:ÑPƒì*Z³0LN˜r¼=ž EÀMÒÓÅ"Aø4s>x¿èIƒvʮӫ’‚ÔŸI"zB í^c¶¦óÏÜ?ƒ Ü‘cÌgaj ^K2v–[ÿu˜ ! Ò]Œ™BñµƒoÅtÁ@Ó=Õ;—#+ ¶˜w¶ . óΓ㠯äì18q‡q©€6Kè†ê ºë®eüºÝuý¹ë¡¦¦¬îü| 츺 þa·nß‚‡sßíì0¤ þ v©:}4T¹?Bä‰|˜0Æõ~L9üÙÕ1ï3×HÓí',Sn¡œC~¾$6ãËÙÞ…ÛW¹§t±$9^ÓÖ3º^ˆ+Â>þ]¸÷#ú¹s°Ñ7ÿ9¸㺔Œ¯Ô~ç;U(ºövØõõãDïñŇ(ÿ !Ó[þáŶÎÀœÅLõ"4¾ë­muÊ—™¬, t è¼™óo§uÉÁãTâ6zï-ZUkgµ}n˜†nöÌþÛÛæ ˆ\BPÿ{I¼mê#\FŠ W?¥»®ƪá lý“Í¥ÿ ²it ´KqÇM ÌÕÈW±—‹$ýÆøöžë¦ñ­ê2vø9Eó†öA¾ÆCk²€ ñý¡ «f4ÈߌBCÙ5ª¾á~¯?äHX¯ßV¯½­”R/o+ÄúÁ¿ªÊô]VÅêIÿRì<Ì_U|8é#â5ÞhHM—>_ŒPö?+Gôm9‚úºÏ‰^€äú¶¬Há妮øWö™¦,æŒ/¹'["ä¯ðì”#( ÎõÍmÑ”šçó’<°_™Ö7^U9õ£i“ÓÿUy¥ÄUyÅeNP~hõ[õðyÍ?ã{V!+5ü·ÞvrL°h&¯Ž©2ÕQrʜǺ²,y ½Éè¿}¸ûï•' endstream endobj 4488 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/selmodel-negexppow.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 4504 0 R /BBox [0 0 504 504] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 4505 0 R/F6 4506 0 R>> /ExtGState << >>/ColorSpace << /sRGB 4507 0 R >>>> /Length 26217 /Filter /FlateDecode >> stream xœµ½K¯-ÛuœÙ?¿b7¥†.ç;s6ªCÃ2 T`ñÕÔ0( –¼)Ù¦«ü÷+Lj/råÚ"é{N¡"ÚgÅzäk>Æ£~üÍGýøçÿöí?~ü·yü´ÊÇÑ~*åctýWÍÿßÿÝÇÿõñ/ß~õ‡¿ý¿þøw¿ùV®¿•çþæßýŸßÚOm~üÏo÷÷åã¾Õ¿¹þÕøÿÇ·£‡Ó8ÆOµüþÛõßå–Ÿ!Ç»<ŸrþÔÞåzÊõnµÞ­Ö»Õñnu¼[ïVç»ÕùÓYrÿÔÞåzÈóúÞïr¼Ë§ÕY߬.ùfÕÞ­Ú»U{·êïVýÝj¼[w«ñn5ß­æ»Õz·ZïVëÝêx·:Þ­Îw«óÝêúÙÛC^?û»\¹¯Ÿý]Žwù´ÚõÍê’oVíݪ½[µw«þnÕß­Æ»Õx·ïVóÝj¾[­w«õnµÞ­Žw«ãÝê|·:ß­®Ÿ½?äõ³¿Ëõµ\¿û=¾èóM×7»Ðï~í‹_ûâ×¾øõ/~ý‹ßøâ7¾ø/~ó‹ßüâ·¾ø­/~ë‹ßñÅïøâw~ñ;¿ø]Gc<õu8Ð ½ž:n»_ôø¢Ï7]ßý.ýî×¾øµ/~í‹_ÿâ׿ø/~ã‹ßøâ7o¿Š^ozÝ~Öã‹>ßôñÅïøâw~ñ;¿ø]ÇcJ—Ô;ž~oz=u»ŽÇ=¾è7¿Vßý._Ù©›ýn=¾èóMwûÝúÝoÜ~'z|Ñ盞·ŸõzÓëö;Ðã‹>ßôqûYÛo¥>o?ëñEŸë©¯ãžèõÔ½Ä?|Ó=Ðç›®·ŸµýòzŒñÒ=¾hûåùÜûíg½Þô¸ý*z|ÑöËó£ÏÛÏ:ýúO;o_ò{èñEŸè<~ýßCÛ/O?o?kû-ôyHë÷½ŽÇ½Ðù{ŽþMtGŸoºÞ~ m¿ü}F»ý¬íWÐøùýG·ß­ñ;óûa¿ó@ãw.ôù¦çí7ÑöÓ÷[·_GÛ¯¡í§ÏÜ~ÖöÓ÷9íwl4~lj¾¾Hj}þëx z¡óóÎrê莶_~ÞYo¿Š¶_~¾Ùì·N4~ë@ã·òóÌn¿5Ñø-}žqû5´ý*Ú~zÿi¿y¢ñ›zÿe¿¹ÐøÍÆoêû·_EÛOïwÚoœhüƾN´Ôú~×ñ@ôBç÷[%nÔ© zH÷Ư§ÿªöë_ÏÏ¿šýzEÛ¯ ñkùùW·_[hüZ~Þ5ì׿VÐøUùMûÕ…ÆO㛵ì§çí¥ñÓóêÒøéy±ûéþ|iüt?]§ýt¼tú5î_—ÞEZ¿×Ž"uCè|ýQâÁZ÷ƒKOôDã§ëù¨öÓõyiütý]ÿ?]o×ÿÀOדÞ8´®¨ÔŸ® BÏÆOç÷¥ñÓù|Í©ñßп_öŸÎ¿Kã×õïûé|»4~Mÿþ´ŸÎ§Kã§óçÒ»¦ÖùrÍ®;z¢tþ>ׄºJë|¸ôDwtúUžw×»£'ú@˯ɯr|/=ÑŸî¯g·ŸŽßÙí§ûß9ì§ãuiüt¿º4~:>×d?Ý_.Ÿî×ü?Ý._÷ßñëúûa¿v ñÓï}M²ñ«¿ê¿ï–šßw‡qêŠ>Bžÿ×L»¢ zJëú¸ô–Öõ°«ü Ï—Kã§óýšnã§óûÒøé÷ÚÍ~ºÿ^püt?ÝÝ~ú}ö°Ÿî—ƯM4~:ÿ®Y8~ú=.ŸÆ×Ä;ü®Û„ίKOtCoi¾ÿ‘~q[9ÑZŸç´Ÿžw—Æï{Æ@(´®×k>ÞÑ }H÷x}»æßU:è)]7¿¼žÚ5Ç/¯ŸÐéwêzi×ü»JŸzJ½Ñòëò;uüBã7õù†ýÆDã×4~ùÿ´_ΗÚ5ÿƯTtúº¾CoéSŸçß¡ó/ô!½¤Oùº_†Æo ô5p Íï?|èf}Hçó­]óï*]¬gè¥ñmè-­ÏwÍÇ»ôa}Hçý£]óï*çhüòþ?ý~×|¿¼ÞCã—çs»æßé75=¥ù¤õû·&¿®çahüô}[³_ÞO[ëòk~¿.¿æ÷òkœ—žÒú}/½¥»^?í§ã{iüt=\óïô«üž—žÒk£·´Î÷k>Þ¥u=^únò;íW:ý ÷‡K_†Ð‡~Ÿ?Lhüw „Bë÷ºæßUZǧç>´>Ï͸†ÉùÞ¥ëCzJ/ùþþK~‡ÆÇ¡Óoqÿí‡ü–æk¡i>ß)¿Åù~é)­ûû¥¯ k\Ó ­ï¿ãÀM‹¤i]?×ü»Jë~vé)ãëÐé74m£Êoh~úÖýq4ù±ž:ý˜o‡ÞÒ:ž£Ë¯ÇÖ€ô!­óûš§_ãþ9†üçóòkܯ¯ùx—Öùuéô«ÜïÆ’Ÿ¯‡KOéá¿oéªÏ{ȯpþ\ú^úýNùÍßBOé:Ðûš^Óp]/×ÿèÒ« iÏ™“к_]z†>¹_Ä‘Öýèú ]Z÷ŸYåwð}g“ßÁï}é)­ó1~Xiݯ®>ý–߯Ëoi<ÒâÀJWëô›Z_ ½¥u¿¾N¤.ݬÓohý©Å‰+½ô”æó-ù±>×âB ÍzEèCZçO\¨Òe£ÓùXèk ZÇûºQti¯—>BW­§4ݨBëßÇMZ÷—K§_Á?n¤Ò9^ }Hçúi[ybŽ¾ùü+'r¡»ÿ¾¥5~X¹0®ËZ¿ÏÊ… ÐzèA7ºïGzP†ÖïZé&¿)¿¥õ¬Ð‡´ŽïZòóý$¡§æ?¡·´ŽO ŒBûxÆ@Kš÷?å7´^:ýXïj1-©ù½vnÍvæ÷¡Om[ëùyiï1q]¿ÄÄEZçCL¤¤s} tú>_LL¥u½ÇDûÒzl…Î……к¿i¡f´“ñ¦êB½>¿hh]¿—N¿ƒññ5ÿ.Òº~.~¾ß_ú”îò_ò›¯K/i¾ß!¿Áñ¿ôžþû)Íç9åÇúYèرm¬Ï´kþ[¶×0FçÛ¥‡´Žß¥cÿ·UÎßkþݤs¾:ý ÷³Ê¯hý)tøÕÍñ¿ô)­ûß5ÿ¿zj=5ô’Öóøš‡ß5l<­‡ôý÷ô[þûßò߇ü¦ý§ü¦ßÊop>]ú”æó/ùy¼x.ùuÿC~Í¿Ï!?ÿ~—N¿Êï{Í¿›´~ÿ3'R£úü¼æßEZã÷3'‚ãšvèø^:6†ËÉñ¿æßMZçÇΉõ(þ½®ùw‘Ö÷ÙU~‹ë{Wùyþ°›ü&ó‘Ýä7¹ï.?Çw—ëí¡OiÏ×ü;ýüû\zIëy¹§üj 3¥Ó¯øûMùyh Íúuèôkº_öë‹é>ÐéÇúRèS:¯ß~ýPéWt|C‡ßÉýª_?t‘®~ç©ã:üÎCã¹~¸&]:ý–Æ×=tèé?å7u¾†N¿aÿ%?®ÐKºêõ‡üšî÷¡ÓûIèSºèóœò+º~C_³~0è×…PB³~zH7ë3ô¡ó©_R ½tý‡^Òú>µÊûkèôK§ûg=.li½ß¥Óõ×^»ü*¿_íòc½-túÝzͧÇzÐF‡ß:uýöš^hßK‡ßb<×ucë^?è×/ýx~„^Ò:×3ý¿‡N?öSB§_Óýº_7â&]&ú:}±þدy Íz]èqé¹5Ÿ}†öñj¹0:¯×Ðá§a^èš~sñ{\:ý|>¶*¿©ùcoM~Có×ÐéÇø°_ºôkü>­Ë¯òýZ—ã…~=8ÓùjèðÛŸo¦ßàþ:üÆ¡çyèð¬ÿôëÁÞ¤õû_:ý¦Öoú50H¿¡õ²ÐéÇ~Xèôc¿¡·S~Õ¿ç“Ð:?ZN$ú5þÔñ¹ôu¡ö¾µÞú }r¼¯P ÍzYèðëKó·ÞóFºttúMŸB§ßÐø´÷&¿Îý!r¡›Æñ‡ôóõ¯صM/}JëxÄ@òÒ×Ç® ~Í×ûõA¯ZÏ~õ³Ðá×&¿çõEÒoøý—üØß"ýšž?¡‡t9ÑéW9?®2ýŠæ;]÷¼ ôþ;.ü¸l¦õ}ø÷ȉb\¦ºßèÀåem~Cóû8ÐéÇ~è!­Ï7ªüØo‰'ý¯…N?ß_G.\q•¿’ËÔÒáWüy¯5üâ6¢Ã¯LžG׉~ƒûí˜òcý-tú5þ%¿ÆóîÒéWy>i¢šÕŠ¾üⱫóûÒgè“ûYLŒC\ÿ—¾>h ô|‹‰vè©õ•Ð#ôð÷ÛqâÇ0&çûq#h¡÷³YäÇ~QÞ8B¾o,,\:†i~§ïרIëüž¹˜ÃH½_Èv2þÈYèÉýR + sCù1 ~M㯼Q†®o$±­£ñÇ™… ±-¤ïwvù±zJk<vù±Þ‡ôóõtéô«ϸхöýéÒáW6×Ã¥Ã/¦Ò¹p’Û|ÖáWçsLtBO­ß„žÒÅ:ý¨O‰Súu­Ÿ…¾n\± ªç噑ØFÕõzéºpþœ¹QœÛ¶ùþ׃¡‡>µ¾úÍ|4&zUZ×Ç¥gè¥õƒÐé7¹Ÿì&¿Áù¬S½ç›×ÿH¿Æùyéô«Ü?w—Ÿç[{ÈÏãÝqY ¿Ïô;OÍC‡ßÉúrèð&z¥_¦}Hëþz}ÑôïK§õU9QÝìÊzÐ×À­žÔ+äÄ?tñïµc"–e&½C3ÞÍ…„Їž?¡ÃïXú¼±Q¥«uúM/C§ß°_“õz,tT×'ÅBHúq¾‡N?Ö—C§û ±°~~Þ…>¤«^Ÿ7†(sÊó1tø-ÖC‡ßZú½ba§K—~SãõXJ¿ûûòë~ý!?Ö×c¡)ýšßÿŒ…¤,K“ߎM›ô”® }=¸£,Nß?¢¡OBÒy|s¡,4ëW¡ÃÏóÃÐéÇ~D,¼uéj~Cço,Ü¥õ–¡§t­èô£>*CW]O¡iýžuÊý Ðá7¶Ö×Boé¼¾sa24ëu¡Ão°Ÿ ›UšÏsÈñAèô›ºÞr¡TZç륯e¬Sï¿c#3Ê`wEOév¢wèÆù×rbe·~Ô'ÅÂoúÞ¿Uùñ¼~ý®XHîÒ:ž-oLYf,ÝÓ¯S¿zJ·N¿¥ûA,lwiýþ1‘ Íx)ÊÓoèyzJëú½túuþ%?ÖsX˜2ïC~‡ü¨W ~Ô{…ÞÒ:¾í”ûᡯ[=Ÿ…ëBˆ2öq ghæ¡·´Î¿ž ŸQFŸó§Ð‡´~¿^å·4? =¥‡uúMÿ½ÉoúõM~Ãþ]~ÃïßåG½wè-÷ëØèéÒú~—N?ÖÃbã¨Jë÷‰ڿߥ·´~ßëÀ¦õ¡iŸžéÕû ¹ñ%­ã«±À:tüc (­óãÒ×?±ýûNb#=¥[GïÐÔïÄÆ^—ÖïÒúþ£ÊýÐÐSºZ§ûë±Ù¥uÿÓÿø'ì~÷ñ¿ÿÓ¹þg¹þçç?ýçý×øø×üøÍï>÷ÛÿñOÿú/÷;}oNÉy=0b%-þóš“þÿ˜SÏÒGNIýxæ”äÈ+§$ŸÃ¯œ’;¼rJrÃô•S’ãcç”PNàœfWÎ)a²îœƆÎ)aiÆ9%T^8§ÐÓ9%]Oiç”0pN Ô¤sJ€ SÓ蜒®!œsJ¨ðqN ¡sJ¨çuN ËGÎ)éú5œSB±¼sJš¾ sJ@éœSÂÊ sJè:§¤ñ™[u$Vú§­ÞrJšæÎ)©š2;§„?ç”T+SRµÞ✦SÎ)©ZmqN ››Î)a-Ó9%”Ú;§’Ê9%,4;§¤hžîœ’ [åùLNÉÚZä$§D¥–wN‰%rJ+䔈£¼sJÖ~Ë)1NDNÉ¢z™œÕ€Þ9%‹µrJ¥Ì䔬S9%‹(rJÖGEN‰¹甘ÓqN‰¹甘ÃqN‰ëfœS²˜×;§d-¸1rJÖ„‹#§dQ'뜒5áüÈ)YÔy8§dM83rJÖðçQN‰×aSâ:ç”,çHS²Ì¥“S²ÌI“S²Ì “S²º_¯œ’ÕàØÉ)YÍﯜs(Î)qsJ–¹IrJ–9GrJVåxS²Ì’S²Ì’S²XGuNÉ*ÎéPNÉÜü^ä”Ì ÷JNÉÜ~?å”Lö‰S2OÎrJ&ë Î)™'Ü19%“ºç”xßÖ9%óxÏ)™ì“9§dRwàœ’¹à^É)™•œïû:§d²®ëœ’É$Ì9%sø÷VNÉü{rJ¦s È)™Îœ’Ùù<ä”ÌF9%“û©sJfsŽ‰rJ¦9YrJ„'|Þ9%³Âm“SbŽÂ9%“}sç” œS2ÌI’S¢å¡Ï;§dœä(S2X7uNÉ8¢œÅ-|Þ9%ãàú$§d°Žêœ’±ø}É)Ôe8§dLrÈ)ì«8§d°®êœ’Á¾³sJ†shÈ)Î] §d˜ã'§d°Î眒7朒áë“œ’QõÀwNÉ€órNÉ0·KNÉ`]Ï9%}sýSÒYŠqNIgñÅ9%Ý×9%ý$7€œ’Î>‡sJúÁïENI_pÚä”ôÅñ$§¤Oç˜(§¤O®rJúôçQNIpÆä”÷ú¼sJºs-È)éÎA §¤7çn(§¤SW㜒^¢œ’nn›œ’^ÞsJ:œˆsJÚ†['§ÄûÎ)i'29%íä|$§¤±.꜒×꜒vp?#§DxàçSâºç”´IŽ9%Í¿'9%møïÊ)iÎù!§¤õ×ß#g£uû+§¤5¿¿rJšÏWrJZuN‡rJšïä”´âœå”TsÚä”Tÿ~ä”T&Î)©¾?SRáˆSRYGvNI…›qNI…ÃsN‰ëôœSR'9ä”Ôáœå”Tê8œSRïœå”Ô—NNIõ󘜒êrJjå~NN‰pãÏ;§¤rÈ)QyôçSRXKuN‰¶s?—휒G휯³;§¤ø~INI™ÎáPNI™Î9QN‰†AŸwNI¯\’ôcþ✒â߇œ¯s;§¤Tîä”âÎ)Ñ°ðóÎ))Åï—9%Q. ñˆrJ²¼  Ï-®@ïŸ9%Y®ðÈ)I®@~§üXè%§$¹‚Þ%¹×4¾­å”ô;9%±Ò¨Ï¯€„к_) !V0tÿUNIh]_ °ˆr=Ï•Så(§sK¦t³¿ss~*§$tyä”$g Óä ¬§4ŸoÈoùóMùQWLNI,ïñ}—üÏw唄ÖóD9%Yn¤’C~pä”dù’sIÒ}|rJ²ª£¯A?}QNI–Wô!­ñ‚rJ¢\K¿^ú™Så^:ÿ”S’åbÎ-9¤õ*§¤{*JNI¿s7”Så~ç#§$´Ž§rJ¢|Pç¯rJ¢ÜPã{å”$§ÐÑé·¸ž•SÒS@NI–CVô5pŠòÉã‘SZÇK9%”c~:§$¹ç’Liw”SåŸänTùçzTùQ7ONI”Ÿê~§œ’äœc²¥»sIÂo|?å”d¹¬þ>äGŽ9%Q~{øï[Z¹HÊ)‰r^rO¦üœ ¦œ’Ð:~Ê)‰râῧŸÇ'Ê)éæœÉ)‰rf”SBùó§sJB+WF9%]¸ó§sJ¢üZç§rJB‹‹SNI–sôìÉ=lç˜liqÂÊ)ÉròGNIäÒ‘SZ\™rJ²œÝ9&éG.9%¡Éñèòc¾INIhq§Ê)‰r|qfÊ)‰r~å(§$´88å”@®IEœ’ä&&:ýxþ‘S8Ã3§$´¸lå”$QÐéÇb9%¡Å+§$ñŒ†>FrâL•S’\ÅF_7šÄC9%]å*ŸÎ) MŽGNôOQŽHg!O9%¡«sLÒoúßwù 8J唄®Î!I?ÖÉ) îB94Ê) Í¿Ÿò«Î™ò+ä(§$49-¨àíç”—q>rJºâH>S’x”>oþ!8 q¬Ê) ]cr tÏÒçÍœ’~s¥Ê) ]KRgn-’3’9%Ám(C9%Éq(w£ÊõrJzeßœ’Ðâš5Юc>rJ‚ëW¬œ’Äí :üŠsq”SœÇé\’)MNÈß„ÛTNIr}H‹CWNIp Ê‘ÐD$9ç˜lé&¿C~.V9%]·Oç”$â\’Ë/¸q×Ê) .D©rJ’qnɱ’Qî‹rJ‚Ùœ’ÐänùM8^唀¯~:§$8r?šü˜Ï“S’øìD§ÏgrJ’+™èCZ׫&®Á™ ç–„ß¹¹>”SZ節ýàLtþ*§$qd}Ÿx„Öù¢œ’àN¦ÿž~“؇Vnˆ&òÁ¡èø(§$8”íÜ’)Ýü÷ëFÞ\×KNIèâÜ’ãxq*ä”´nœ’к?*§$¹åtäÄ;¸Ý_èº>rJšÊñ?S‹®å”$~ï\’ô›š‘S\ ¹"C~æÄ•SÒ<ˆhÎ-$§¤9gœ’à^t¼•SÒœÓFNIp0:~Ê)iÎ#§$t{ä”dÜ‚þ}æ”$3ÑSZ9Ê)i‘Srs2ä”'CnFÞX‚“ÑýO9%ÉÍ5¯ÿ’SZ÷/å”ÿñ霒vçö(§$ãD”‹2ågî[9%íÎÕQNÉÍáSÒ4ÍÿtNIhÝ°ÆÇÒñWNIh]ïÊ)iwn>hü,º•Sš\—,`Ÿu=rJB+7I9%q˜†sIæ~q<ä”äi \ŽÌ)‰ÓdZ‡ßðýN9%¡»uúMî/Ê) _—ßûÑåGn19%qÙ ëôkÎòc|NNI\¶º+§$4¹(K~>”S· ]Ê)¹9!rJⶳ9%¡Ë#§$ncó‘S’·=çqD?*§„Ûè§sJBëù¬œ’¸ “³‘9%¡Ë#§$nëúüÊ)iZ¦ýtNIèöÈ)ÉÇJE/éê\’"IÏSå”4דSÒîñrJZóó_9%¡›sIŠ8%]Ê) ­ñŠrJâ1Í÷[ò[Œ‡•S}¯”S’Ãç’ i]Ê)‰aÇé\’&­ç‹rJbآ㧜’æ8·dˆsšþû)­ß[9%É=è%îIÇWIÓœ[2ÄAézTNIhåì)§„aá§sJB“óÑåG:9%9 ­èSÜ”Ž—ÎÐ:¿•S’Ã^ùMù‘ÃMNIèáÜ’S•Æ[Ê) ­ç§rJbØ~:—¤ÀY9—dˆ³Òø]9%Mq ŸÎ)ÉiDC¯–º>rJšëvÉ)Éi‹sKΖ\–æsÊ) ]9%9MR®F•ßâù®œ’æº[rJÚ+‡¤Éo0^QNIhå”Ä´Oãe唄Öõ¡œ’˜6’ë1äÇú!9%ÉyIOùÿ}ÊÏç—rJb¼KÒ¤Ç#§$§ÑÒ ¨†Æ?7“ ³>¥ù|§ü|¿VNINûõ}2§$tqnÉèÉiü¯œ’Ðâø•SR]¶INIhrGªüÌE*§$tÞ?É)‰eå\’&MNH“e䔄W«œ’X–!÷¤Ë¯ÀÝiâP_9'¹0Z¹ Ê)‰e"qgÊ) M®Jn¬Æ²Óé\’&MŽÊ’ßrŽÈ!¿‡¦œ’ÐŹ%éÇùHNIrm}M$bYM´rJrn£ÇHÎÜ“\ˆ­ï£ /–ùÄ *§$´r ”Sˆâè•SZŸW9%ÉÅ)W¤ÉÏ\¢rJrÙR¹™S’Ëšœ’ÐäšdNI=üû*§$´8få”Ä2«8lå”T¯É) MîÉ”ë¿ä”ÔÃœ£rJrXÿþß|Ë)Éeä†>¥Å%*§¤ºï9%Õ9óä”Tçš“SR朖H„&ç#“X6ßœ’к^”SZç»rJb^œ»rJêa.\9%7×GNIh?唄.Öá·¸¿PZܯrJbÛá´^Òù$Eº8—$ý×£rJBã·äçÜ唄Æïûä”Ä6ËrŽÉ)M®É)¿îï› åÕ¹ªä”„w«œ’Ø:9%7gHNIl+‘ËQäWcRåW9Ÿ”S’ÛT }J+çB9%¹Íu ÃOÛ`ŸÎ) M®Iæ”TדSzêõ¹qº9·$ý˜o“Szºüœ; œ’,ƒhèô«Îýòs.rJê[¤œ’›+%§$ô|ä”Üœ)9%QÖ±­—´r~”Sº[i=•Se#ºÞ”S’e%}ÝjwN•rJ’SunÉÖõ¤œ’,cy䔄Öõªœ’({Ñù£œ’,‹è!]9%QVCîF“ûÅ䔄Öï/@;´î÷Ú‹²=Ou#=9%¡5ÞRNIíÌ7È)É2¡ÒwnÉ)]õ~K~ÍŸwÉ>䔄Öý\9%YÆ´ÑégÎ_9%¡u~*§$´r”S’ÜíDÏ’œ­r*”Srs¸ä”„ÖóI9%Y–¥¿gNI”mœ’ÐÓ9&[Z¹CÊ) MÎIÃQÆë»üN¿—ßé÷ïòc?‰œ’(CÓçWNImÎÝQNIhrO¦ü<¾RNI–¹éý–üœÓ£œ’Ðä¤ò[ÜŸ5p‹²:=¯•S’evÎ%éÒ:þÊ) }ç’Ô*ŽØ¹$SúpŽÉ–žÎ%éÒú=´ÐKYà§sJ¢lðt.É”Ö|C9%¡5^SNIh]?Ê)‰²Äí’*­û‘rJ’S®è-­ëW7·LNI”Ej|¤œ’,“è)­û»rJ²¬Rï·äçÜ å”TïW‘SZÇK9%¡ù~‡üØß!§$Ê>•³¡œ’Ð:ÿ”SzZOéîÜ’-­ß‹œ’Ê~‰sJ*ûÎ)©Î½#§¤Ò×Á9%õd|@NIu.9%õàùFNIe=Ò9%õàùKN‰×WœSR}?%§¤ú|'§¤z~ANI]ÜÏÉ)©ï’SR)SR}þ“SRé‹àœ’J½¡sJ*}œSR§¿¿rJ*\°sJêpNŠrJ*ûÝÎ)©ä:§¤r}8§¤Rÿ휒J5ç”Tú€9§¤ö÷œ’J.¢sJ*ëmÎ)©æŠÉ)©ôIrNIeÿÙ9%µéürNIe?Ë9%µÙÚå”Túô8§¤:gƒœ’Zk¢œ’Êõ園J¥sJ*ã ç”ÔBn9%•ëÍ9%šfÞ9%•ýç”Tr:SâýUç”TêœSR¨—qN‰×ÏœSR¸SRØ¿rNIáù✒âÜrJ õ'Î))¬W:§¤œP¹ä””Ó9 Ê))ç{NI1MNI9;¢œ’r‹CNI9ü~Ê))‡ßO9%…ç•sJÊáïwÚÜå”rhSRç¾(§ÄûÏÎ)qn±sJÊr‡rJÊr®†rJ ë÷Î)ñþµsJÊ#¢œ×+:§¤ÌW.I•Ö÷%§¤°žëœ’bÀšœ’âœrJŠs È))Ó¹!Ê))ÌלSR†ß_9%w®9%Ź=ä”8—Ù9%eøûöS9%Å÷rJ `šsJ }SRè+蜒â\ rJ óEç””þÊ!ÁOÄ99%…œ=ç”ê…SRšsG”SRàUœSâ\iç”Æ›Î))ÎÁ §¤øþDNÉ‹@NI¡„sJŠïWä”x}Ø9%…¾bÎ))ÎÕ §¤°þ霒;Wœçˆ9§¤°ÿ휒BΠsJ 9yÎ))Îé §Ä¹ÙÎ))Ôw:§¤Ð·À9%ŹSä”ö“œSâõmç”ún9§¤0žvNIñý‘œ’B½‘sJŠsp”S²™¾S²ê¢”’;B!%{;%3JöæÖ¦ˆ’M‚% %{¿”8/”|’½ý1¬ªÓHdE˜IVlzÉŸl¢ê‰&Ù'W„’I¶ƒLL²;¦\’íÕቀût*‰CL %ÙdÜ’I²ZI²ÙÉ$‘d;0K$›¼AòH6e¹Ä‘l§Ÿ)dû&®0’Mï²HöÁï¬(’}89eaÕ7RVý‘C²ã¤’}8eåÀŠ¯pbÅWÈ ’;2C$ÛO%l i Ùˉ!…@ Åù(~d/Ž‚ÒG6Eêaîð–Ü>²¸C>²"|Ĺ1„óìðª›><èðg2> æð‘鈅Lnü„·êð?†™þ‚Vº4™Îb9±Ò#Šð‘éH”MbH+H%†èy}‡ÜY$ )Î"Qbˆ¾/á#d;|äÎQø•¯ðÐ;|D÷©WøHE¾…ÄE¤úy•˜aŠÿ,8=5Í‚³” ¾˜ùÂ맻YðÅ8| n±à‹*FXðE3"XðUø«XðÉ” Ü+Ä°àsò¾bÁ'ü,¸ËK`Á'£eXp7%‚ç >Ý^`Á( >ÆM{‡•×aÁíÄ`Á”&,x§Y ,x'»¼sÚÂwV`Á;A¡°à¾¼óøo¤HÁ‚76›aÁÛÒ=Üg°à&•`Á[Óu ÞÈ/„w\*,x=ùÇbÁëÒS ÜÙ_°àžÂÁ‚WXðJ,xe¾ ^¶î°à….°àeéd€/SÜC9XðBZXð ^ÈÏ ³WñÜSÝ5Hƒ Þ¦-<¦ÖíÅ‚ÇÌ<ŠXðœø¿Xð\7Hnþ”UÑ#OOÂ\µèfÁsÑãÅ‚çšIû0 žK.b»‹zLܬtQ ³­‚~rÉ(k×Å‚ç’ÓF‡ßÁÚ1,x,q‰m Kbb/Ä‚ß=$`Á“Õ8ÑégVG,x,Š  Þ½— K’bÄ‚'kñ`Á³„Yïð{±í¹©K²bÄ‚wÂgÌ‚÷e–JE}¹§°Xp– ?Í‚÷›Å KÜbÅ‚ç’¹Ùðè11™ËÁ‚Ç’¼Ø?±à±ä/VOE˱E Ï+<¶Änˆ- Xê&¿+!¼³ZbÁs Åìwø¹Ö <¶lô{‹-±\bÁ³ÃF§= `Á»{ˆÁ‚wgb‚Çìz(’%x°à±å†ÎQQ²':üú²ÎEᛀ-Åa6U /Q,xh±SbÁÛvk±àÍ=‘`Á›c“`Á£d ¶='Qⶭ×ñª}‡’9]obÁ£ÄnZ§Ÿï§bÁÛI¦,xÖº‹½nòóýB,x”êz %‰§ü»üœu!_²àÙ¢¢—jÑÅŠoî Z,¢Xð¨E×ù-T[®û¿XðfÖ<¹‚vO ±ãÛ=5”=$<4,vQj•`ÁCëy%x~‹ÏZõ‰>¤U‹.ѱw{N³ÙE~fÕÅ‚‡.¼ž,‚‡»&¤§Ùï*­ï+¼Þ,­Xðæ™ýîÒ:_Å‚Ç0Q׳Xð¬½?ÐSº?XðvŠîò#[¼:¼º‡,x]ãÏa°Ùï.­ëCcÖæ‹U_ò3»+<‡Ý½U‹Ï÷?äw³Ü‡üš¿Ï)¿fÖý”ßͶç@9´²Ä‚‡®Ö±·¼B…=­§´Ø<±àu²þ ZϱàÙsHlw²à¡a­•Ž<݃\,xÖö‹îòóù ¼N³ZbÁC¼:+¼z}<§u }¯žF°àYû_ÑSZç‡Xð˜FŠE Z÷±à9í4ë]UëÿdÁë„Ý€Ïi¬Þ/¡ÈÐ|ÞdÁo6<§Å,xfÇÅ‚·› Þ†Ùw±àÍ=raÁ›YYXðF+³àëÙ,¸×/Í‚7²ñÌ‚7³š°à­¿Øðô3« ÞšßO,xk~?±àý³àëÝ,xsÏyXðÆóÑ,x£¡‚YðVÍz‹odU›oÕl·Xðææ°à7[ Þ̎‚7ö/Ì‚7³À°à­À¶Á‚kÚýy³àõ³à­ÀÁ‚7z˜™ofÉ`Á+Ï_³à7› ^Ù?1 ^Yß4 îl³àÕl>,xÝfχýÔS¼º5,x¥RÕ,x=aó`ÁÝ#Ñ,x5ë ^O¿ÿa?Þÿ°ŸØXðêìXðÊþ‡Yðzøû‹¯¬,øÍÁ‚Wسà•ý³à•ñ€Yðêû,¸³ûÌ‚×eÖ[,x]f¹Å‚Wߟ`Á+,YðJ)¨Ypg½˜wOH³àÕ,',xuÖ,x5k ^Ù¯5 ^'l,xfÓû5³áøÁ–‹¿Y$Xð:üyÄ‚W³¢°àuøóˆ¯Î ¯d“š¯¾ßÁ‚W³¥°àu¼³à•ýs³à•¶7fÁ+Ù@fÁ+YífÁ+ã}³àÞŸ0 ^Í‚WgmÀ‚WسàfŸÌ‚Wê)Ì‚×Æõ ^¿,¸ëEÌ‚›2 ^o6þ°ŸØ9XðÚ`KaÁýh¼šE„¯ÕŸO,x­f“Å‚»^Å,¸K Í‚Wg'À‚{Æ,xe¾b¼²ße¼:k¼VÎ7XðjÖ¼³ÚbÁ«ïÇ°à•ñšYðZxÀ‚k™úófÁk1«½ì§ç,x%Ò,x-üž°àµð¼‡wýŽYðâû7,xÙfÓÅ‚›í2 ^|?‡/ÔÓ˜/›û ,xa|h¼8Û¼0^4 ^6÷Xðbö¼8›¼œZ6 ^Îw¼f¼œfˇýô<‚/dç›wV³àfÉÌ‚—“ë ¼œ/Ö?Øx±à…jO³àåðç ^~±àfÏÌ‚—ß_,xñó¼0Ÿ4 ^³ÐÅ~°ÙÕ~ºŸÂ‚ÖëÍ‚g«À‚ö[Ì‚—e–Z,xñóÜ,›YðâlXðµ`ÜÙúfÁ‹³$`Á ëÉfÁËò÷YöÓù ^–¿Ïa?¾XðB¯ ³àerý‚—iÖ\,xa=Ò,¸Y9³àe2þ‡/~¾Á‚²ãÌ‚êõÌ‚gÀ‚»ÞÙ,x™f£›ýt½À‚;;Ì,xf§Å‚ø³àîM`¼ ¾,x¡ªYðB¯³àe0Ÿ‚/Î*‚wO`³à…l<³àåfãûÁ’öSö,x¡!Ypg¡™/t™3 ^<߀/¬§™7ëgܽÌ‚—Î÷…/ýņã§ñ$,x!»Î,xéfÇ»ýºÙoü4ß„7+h¼tŽ/,x†0 ^šÙk±à…ý*³àÅÏsXðâ,(Xðâù,xaýÃ,¸YC³à¥ùûŸöãû‹/ÔÛ˜/Κ‚/žOÁ‚ÖÍ‚—Š ^ÜÓ¼¥a¼Ð+Ä,xa¼`¼ÜìµXðRÄ`ÁïžÐ°à¥šýîöS?dXðBv§YðR͆Oû‰J‚¿ÙGXðRÍŽ/û ‡ƒ/Œ?Ì‚ö Í‚ÖSÍ‚²tÍ‚—j¶],xa|büf'aÁKñï#¼~Xðb–¼°^{³àÅltµŸ˜-³àd=Ü,8ë»7 nÝ,8½þnÜ=µÍ‚߬ú°¬õ°ŸØ_³àŒ‡n¼˜5Ÿö+f¿ñƒuÏ—£AÁ7ÉšàûáßäöÂo¦Â`à7è) Ü…)@à7÷)|o#ω€o:ÀA€oµÀ7ù§ðß›’ ðï½MG7¬t‚ þÞìÃ~o†c ß{ëî ù}#¤¿79Spß7Q*ìÛ©äPß7`*èûî`.æ{ñW=œ«r ¾÷i þÀ >ýÀJ¤pïÍÚ{æì½ïÁzïÓ(}¢Þ7«*Ò{³8è}£«â¼÷ù†yß$«–€7 •@Þû4ÓÜ°ªF¸eݱ*ÀÊšnøî}Ïgõ¦;t÷ÝÏ]p÷v–ØîÍöh÷&é²{³¹ ؽ7®ûFf…uoR¡ ºo‚VP÷&#¦ûj…to'&ˆèÞ@"ÝûàwϽ)9çÞt߀æõi˜{†žVz|åÞ$³Bro6¹7¬·cHqS¹lŒ{˜ƽ´Î`Œ{™ŸžXé. ÆÍ¢±1nò²Œq³dcŒÛ˜/7|ƸMý‚q/ó⸠ƒq;8ŒÛL07mAq³SjŒ›&Ƹ'?7ÛLƸŒ›†PƸé'aŒ›-XcÜN«ãfÀnŒ›¬RcÜ ßq;ÙŒ›Á¼1nÖ¦ŒqOóâV§©nYéÆ=yîqS–dŒ›UycÜlãfN`Œ{Ô. Éó‰qSÀjŒ›ý7cÜ7å\±ÒuÆM1›1nj¥Œq3µ0ÆÍNž1î‰6ÆÝLu˪½cÜÕܶ¬t•Ý·®²ãÖ½1îbP[V: `ܬßã6] Æ= þÁ¸ [ƒqn}`Ü7{]`¯u|Á¸oÛ·ŽïqCfãÖ%ycÜ€ÚƸõì~aÜæ¶e¥Ãýo1îzµ¨kãn”E‚q;ÑZwß4HÆS§Z㎙«ziçRmLì T÷e•Í¦ê‡1îX&Ê„0î>)oÆ‹€ùãŽ5Í ·Vµa܉êå%ÆÝ 'Œ;ÖïÕZ;1îØn˜/Œ»Wr„qw¯z ãÎ0È°*=­㎵³ ãνñaŒ»ù¹,Œ;·5c܉g%ôœË¶¹‰{|ãÎ=c¨î°rí¨0îÜ_Ƹ›+3…q'Ø´?ŒqGù€zxçzI¶ØÈ×ærLvÐèƸ2Êœ‹IQº‘W½0î¬ êŽ´ïŹ*Œ;ëXʇ1î(ƒQ[îçF•MZ ãÎ"þVsAfç&T›ìý ãΊ¥¦›¬Ø¹ÆõTywÆœLþ51î¬îªƸ£8l¼0îl°€L«ÕV~£)+v¤„qGÝݨVzmaÜY¸?ŒqSDhŒ;kLJ1î,aÌמ²¢í©‰Q ™'’†® ‚ägNŒ;Ê7åœãú&óÓwV‹èÑã†(Œ»‰ý4Æ-*:ýª±æ&¿â–ÖÉÇFõíý÷ð«§_ŸõÍÛR`ÜÍÛD`ÜY]¼Ðé7^˜wúkƺX§_36¾äGYëyínÙ)Œ»Ê À¸›#¾À¸£Z\Ø€0îÐÂ>´^Û ÛT`Ü­°ÆÕí|ß\¿nŽ|ãÎÈ|cÛc$– lAwó4Œ»Ý-6…q7GqW'ó€qWÏQÀ¸ëÝRSwh}~aÜÕã80îê± ûQÕ`0î¤+„MOù›ÆX€°ë%¿æ–âK~ÌAwh/aÜYößÑKZX0î»ÌŒ;ÊøcÞ±Mzž~ÿÜß2þiÛ®ç2Vœõ(UwÉOcÜQ–·ø>¥õù„qg™þF/i¸£ Ì»ÉÏç«0î(Óîò3†¢ ±žn±*Œ;ËîOô(Œ;Êêù¼SëÛ-³§"Öß[zgäüã®7öªGÒ^Ò‡ü˜–0îÐÂVTeñ:_„qgÙ¼±îØ&=†[€g=gFÌwtl»ݘubÜ¡§±î!]w=š±ä*¿¶.ŒïÓw–Á/túùzR=VFÊ cîŠ0ß´ÜÆe驪"Ñ)sã®ëuŸ”¹Ûn*c§÷”óSêã2RÞz¬W¤<÷)Æ}Gʃqg»üOù1ãÎ2öÆZÇWw”¥«E¼0î»lŒ»jDÿiŒ;iÒŠ>¥…) ãÎ2õ½T†.ŒKwènl{Hƒ}7ùî_¸CƒMwE˜ß-¾‡"Ìo z(Âœh20F>‰~CŸòc1Œ;ËÐzHOcݧ´Ž‡0î(#×õ+Œ;ôz`Ü¡…5 ã®Ó-×…q'½,¿Ü¯ ¦žüLhZTçþj”‘Öƒ2óÆe梫ü:ÇKwFÐK7ùub„q×ÖÜäDz<w–•wôz”•ƒqgYùDéa¬û”ÖýYw|ìm¬{Ió~K~ÆÞ…qßõ`ÜYF.,ûP$:AS`Üù³>0î:ÜrVw–‘Wô©2qϸCóy³Þ7³~aÜyØzHcݧt5¶Ý(ßè% öÝäçØaÜY6î¿Ÿ²q0î<zQ6nl»P6>у²ñŠ>¥…- ãÎ˨£×~EÞƒqÇe¨û£0îЇ1ïSZX«0î;Œ;´ÎgaÜyÙôžÆ¼·ÊÂÁÞãMËòäQâ6³iWÊÄuOiÝoÅ?åmJs•-®xpÜ‘ù`ÜY&nl{R&~¢7eâòïŠD÷ýIwèØv•žÖSZד”¡õý„qÇm{[Ò`ãK~§[l/ùùù.Œ;#÷¥ù¹Å°0îÐøòc›Œ;t·Þ*§Åwò|ñ˜ÚÖ‡´¾¯0îÐóq×ÎbwFô »®òóýQw– [nòc‰ Œ;ËÆ;zS6®÷ïöÓóUw>¦å?äçç£0î,7Ö½eã`ܵcæS~7Ö½äçû­0îF ô¦l\¯?ä×½öÓñÆÃO¸Ck¼+Œ;ËÈw½c„q‡ÖxDw–‘Wô¤ŒÜ˜÷~”‘ƒqç°êq×;Iw½c „q‡Öù!Œ;ËÈ…EwùùúÆ];‘©`ÜYV^Г²òÆL|ÚL;ù¾»¬Œ;ËÊzRVþÀ¸C'Æí–Ƹ›¯G0îæX 0îv2>ãn§1paÜnY`Œ»±ÓcŒ»~gŒ»¹¥"w3& ÆÝcϸÏcÜë×w;ü~Í~Â>À¸ؾ1î¶À À¸ãcÜm½Z~oéil»S†^Ñø/û cãn”uãnÆDÀ¸Ût‹naÜëß÷Ý"Œ»M·(Æݦ±qaÜ.K7ÆÝŒñq·aÌZ·×KŒq·aì[wnÉ]í×mã'l Œ»¹%9wë~aÜÍwë~aÜ­“ÆýlñŸZ,ƒq7ÆwƸ[wËraܲLcÜ͘ ·ËØq7ƃƸ›±0îæ–¼`Ü2LcÜ­¹Å·0n—µãnÆÒÁ¸±HƸó;cÜwËJ0îÆxÓ·ËÜq·jŒºÙOç#ws‹T0îVüy„q·âÏ#Œ»aÜn9aŒ»0R0n· 0ÆÝî–ÛË~´4_ö+Ö›2x}~aÜÕ-[Á¸+ã cÜ.‹7Æ]Õ€qW·4㮌GŒq×Íý ŒÛeòƸ«±0îÊ|Ë÷ÝŒ»²jjŒ»ž´´㮧[f7ûéóq×Ó-Ä»ýø|Ã~´ìö+Ö[eí´ÔÆ]+Æ]cÕ¸«ï¯`ÜõxaÝøé|㮾߂q»ÌÞw=¸€qWßÁ¸ëñjá²ÓPqWßÁ¸«[.ƒq»e‡1nÇØãv¾1îJ>³17ûéó‚qW2™q×å–ܸëäøƒq×i \wnÑ-Œ»ã®w‹ði?ZŒ/û'Æ]Ùk4Æ]ÝRŒ»seŒ»N·<Æí2~cÜÕX!wþ½…q«úçóƸ]ÖoŒ»·ÌÆ}· ã®ÆÂÁ¸]æoŒ»cÓÍ~Š㮃û7·Ëþq»…‰1îêX0îj¬ŒÛ€1îJ¢1nUG}Þwíœï`ܵs¿ã®Ý-É—ýt<À¸+-…Œq×k?íÇ÷Æ]ï–縫ŸO`ܵùû㮎¡ã®´X3Æ]ɃqW·¬ã®ÍØuµ-«›ýÀ¨›ý„!‚q{?ÂwmÜ¿Á¸ãdŒÛ-[Œq‹6û¼1ncƸ«Ÿ`ÜÌËw­þ~Ë~ã‰q×êïwد?1nc Ƹ«[¨ƒq×jì[w56 ÆmLÁ·[Æãv̧1îêç)w½1maܵ¸euµx³ß4Öv·ß0Ö-³»ýÚã®ÆVÁ¸«ŸÇ`ܵpÿã®Ì?Œq·,ã.Û-»…q‹Nü¼1î²9Á¸ïÑ`Üeƒ]ƒqöÛŒq—mŒ]wq‹d0îâ˜0îB ¦1î²Yû1WûÕ'ÆíVcÜ¢1?oŒÛ-uŒqÀ¸‹±\0îÂþ„1îVgŒÛûsƸ‹Ç `Üåt ði?ÅP€q—“ç·[öã6vaŒ»Ü-ÊûÝX7~ºƒq»Å1nǤã.'Ïs0îâùw¹1baÜÅ?w9Œu ã.`ÆƸ %ƸËaì»ÙL»ÙïnáŸæ`Ü…õKcÜ…9cÜ…ØncÜÅóI0îBYœ1ncƸËaÌ|Ùl[·±cÜ…ê7cÜnadŒ»x<Æ]¨x3Æ]–±raÜÆBŒq»å‘1î²^ØvCW4~`ÖÕ~´À®öëþ;~ˆÁ¸‹[¦q»…’1îâ–•`ÜÅ$wYn)>ì'쌻ÐÃw™Æ®…qæ×ƸݒÉw1F Æ]¦±öÃ~ÂòÀ¸µ ÿycÜeºÅùi¿i¬;ös ±:ƸÝâÉw¡ÔÅw¹[V ã.¬ŒûÆVÀ¸‹±M0îÂøÏ÷±€q»e”1îB•˜1îB ½1îBa˜1î2Œ™ ã.Ô‚ã.Ã-±§ý„€qb¾qc¢`Ü7ÆíUƸ 1Ƹo,Œ»+ã.Äžã.ø0î2Œ½ ã.ÄÆã.ÆPÁ¸‹[â‚qbŽŒq»%–1î28Á¸o¬ŒÛ5UƸ ãYcÜ7fÆ]:XwaýÕwéÆćýh‰=íGËíi?0êi¿õĸo,ŒÛ-ºŒq—îä‡ýôûƒq»…—1îÒùýÁ¸ciŒ»³ã¾10îÒÝ"[wéïwqKp0nןã¾10îÒÝ[·cÐqßØwi0îBÛcÜÅ-­Á¸ ãucÜ7Æ]ˆ 2Æ]Ú;Æ­ÛæçqbòŒq—f¬ú°ß|bÜ…ú cÜ7FÆí˜PcÜÅX1wq‹f0îâ§`ÜÆŒŒq—fÆí–hƸ ëaƸ3oŒÛ-ÓŒqÇ@€q—fì[w¹1faÜŽ95Æ]Æí–kƸ‹[ƒq[2Æ]ˆñ6Æ­eèÏã.¬ ŒÛ-ÛŒqk2Æ]ª±óÃ~:~`Ü…X2cÜÅ1`Üî¼bŒ»0¿1Æ]nìZwa¾cŒ»T·´®öË®öÓóŒ»8&Œ»T·oöÓñã66eŒ»8VŒÛ-çŒq—ê–߸K1F-ŒÛX•1nm|Þw!ß·[Öãv=™1ncWƸK1æ~Øï­¥wa½óƸ ãcÜå…m´1ïSZÏ/cÜå…uãf\í§ãmŒ»û®ö£nöÓñ6ÆmŒÝwyµøÆOã cÜÆÜqî·Æ¸Ý2Ý·[ã.ná=í§ãoŒ»Û^öÓøÃwáú6Æ]^X÷å·7ÃQÜ›Õ` nSc0Ü{s.áÞ›SA÷ÞŽó'ØäéÂo›)ßÞ¤õAo1ÞÞÛlrà ôºa¥[¶ÈíMc ÀmhpÛn›¶½ïŽá+ ‚¶7“]˜í½¤O¬44±½#`Û…“ðÚ›uopí½9-Dk»á!°övvŒXmG=ƒjïýêâ=%ä–|pÚÛ1´7-ª ´ ¾ioÛa´ÍÁho¦ÞÚî: ½™ˆÃgïó ÏÞ'é%¢³·Ãgo69a³÷é6Û+ºdO¬tªÌÞ§{„/¬tÿ–íPÙ®^ÊÞÎÔ“mà${Ÿ¯nÜUòdoò á±Ý+Û84ö>Ýغb5,ö>ÝF»biÝ°¢iuà î¸cõÄ°7©”PØFù€°7‹ 0Øût»î‰ÄöĪЖ•òÄ_ïÓ8÷ª˜¶–•Î+Á×Æa¯ÝýôÚT äõ¦‰1ൠŒá®7õQ`×ûpÇë¼ïÞÌ  ë»‘¦˜ë!r½Ó+q4‚íý¹V7N-+aS¢­ïžœšNlM`­÷E%ÔúÆEZo‚0­oQœõf}Ìz𳢬÷aHûÀj˜¹–•(9!ÖN|‡°Þ‡›s'”ºóÜy¹IF´oÒ7 «o°Qpõ¦ˆ¶úæ…VïÃ]²+VÍ൬š9jY‰6V½Ù΂ªÞ‡!莕ø;1Õ›µ êÍÖDõfe zS O½©Ã§ÞÇ‹ž–•áS/÷õLMMƒaj·B¦6_ L½8c©[S“2l˜Úô%0õriÁÔ†1©—Y㊕N``ê»wÅJ\0õr§ê†•0@`jµ S³h˜Ú '0õ2¶<°ŸXÍ'Lm̘š‰†©ì-0õ2-~`õìž½‘ S/³ä'V£"^FËS»‹,05Ù,†©MŒS³äf˜z½èiY‰ã¦6O L½ Ô©—S“ùb˜z¹ÝvÇ òºcUMOËJ'?05ëz†©  S/xa`j£©ÀÔËÔöª—ÆÊluX\¦¦ Žajs¬ÀÔìÞ¦6Ö LMí©ajS®ÀÔó­9öž“+V§éi¬*RV¢Å©Ý­˜ÚH,05%A†©§ûZw[‰€X-³Õ²Ò˜Úü,0õ|ï‰=M@/[™­–@ô½¾¬æ¦fÔ0µÙ[`j6¹ SŦžï0µÉ\`j SÔ¦žF­+Vý Sk¦¦öÜ0õtíŽU7=UAÊ L{`¥g 0µ™ß¦¦‘µaêfÔ«w˜¦Û0u5.-«» ¶¬ªQkY颻aêúSëtÃÔÅlµXc]ƒ7L]LOÃäñ„‹ S+¡˜úf«YcqÊͬñB’rL}“ÈÝV‰•Àä•.I`ê›SžXi¸Lml˜šJÃÔ¦˜©i‡`˜ÚPó SÓ^Û0µ.ئÖ{ÃÔt7L­¡Ú SC@¦^¦§Çˆ6L½Þajøè¦[}ÃÔ)«iÔú|§§©ò+L}]Þ±‹=±Ïë@þI˜º¹Ç­`jJ4 SGEOŽpSGA–èé¼Íd}[YÁÔQÞç&ØaU˜ú ¦n…*ÁÔÍÙ4‚©ïVA‚©³·|¦®›às‘bõdQ0u=¹dSG•µXã\–ˆ"îüýSG¸eXìÅ ¦¾;¨¦Î‚ùüǹ‚™õ÷/˜:Û‘ìÃÔAœÐÓaµf ¦NH*Éë,†Iª}¦ÎÎóÃ0u€yú ¦Nc~¦Nþ(?dî«Ýx‘0Á€DòôL=* §Ãj2ÔOx£>‚©CVØê´¢°\0ur9éœk Iß¼`ê¤l’N˜ºÞt7$3Ã_Ãj¼(˜:¤šBçÊë ¼¦NLi¦N|åü0LôIž„‚©N醩ëà1-˜: «öa˜:É’ýa˜º ™t³Oœ ¶zIê¯KV„ƒ ¦Î^õÃ0u0¦§›dž*š·%Á‘=eE_SÍé“Ï8? S'Ž=Ý$óiÉ*a‹Lp…ul~öÃ=°‹Ü ‹ ¦NfïS'Ó§×7ù-÷ˆnò3ì#˜:àzjwùM÷Ðîòãâ¦N˜áDéa¸ú”ÆÊbcvqC ~LpBE§ >0uÂú÷‡ü ‡ ¦NÓðtú¹¨`ê„ 6:6+{õû%LðÀ¦NX@0o®’&#jxzHWÃÖ™aMñ 05Ìé§aê,þ×ßS·mØY0u3<LÝ ‹S7ÃbÀÔÍ=¼©Å†©™›†©ÛáÚ‚©›{S7R„ S7.GÃÔÍ0=0ucf˜º1×1LݘV¦v±½aêæž|ÀÔmÚO0u›öL}÷ˆ¦n7ì+˜úÕÃZ0usQ`ê6 3 ¦n†k€©ï“ÀÔÍp 0uëÀâÀÔÍp 0u3\LÝ ×S7Ã5ÀÔ­q½S»ØÝ0µ3Û S7zì¦nd¦nîÙL}÷¼¦nõ­'v³7ô xý S;£Ý0us]`j«¦n…û0u3\LíâtÃÔÍp90u+î±Ýì§÷¦®Ûð°`êÊ‚aêêë ˜ºR¬f˜ºæ¦®Û°ó°Ÿ`"`jg²¦®¬Z¦v&»ajg²¦v&»ajg²¦v&»ajg²¦v&»aêêžÀÔõðï-˜ÚÅㆩëážÑ‚©+K|†©«á{`êzУ˜º\oÀÔu&L])Ž2L]Yb2L]× ®^‡ëó ûñy†ýº5~:ÿ€©+Z†©ë2Ì-˜º²~`˜ºNÃã‚©+áV†©«{2S× ÜLíâoÃÔuú÷LíÌvÃÔÕÏG`êÊÀÐ0u½{> ¦¾ÃG€©ë [ ¦®÷¦v†»aêêç-0u¥¸Æ0uîAÝí\Üí§ã LíânÃÔw 0uíþ¼‚©+±2†©+ƒ,ÃÔÕáÀÔwZ`êJqŠaêꞪÀÔÕ=Ù©+=  S;óÝ0u%3Ö0uõø˜º‚d˜º6®_`jgÀ¦®{¦®w¦®íÕó?àáf?zX7ûéú¦®7\ÜíW OŠµô@¶>)ÞÖëSWÃðÀÔÎŒ7L]Ý#˜ºV÷à^ö†§ñ놫ñÓñ¦®+¦®†í©kåz¦®Õ=»SWÚÀÔµ¼àêI±vGoŠµõïSWŠ S;sÞ0uu]`ê»G10ue3ß0uuOx`êê0`êZ sûéûS×bøyÚOǘÚõ†©Ë6l-˜º°cn˜ºøùL]n¸û°ðùi¿õ„© ³ ÃÔeûû ¦.Û=½S¶¬ S‡»S?/©qo˜º°×l˜ºe˜úÕóY0u1Ü L]N®W`jgà¦.§álÁÔå4ü=ìGîa?ÀÔ…ž¯†©ËiøzÙOáÀÔåäþL]NÃä‡ýt~S?Ï©Ëéßç´_õß7ÅÚú¼‚©Ëéžß‚© ;¡†©Ëñ‚§'ÅÛ†­7Zð¯`js¦.¬¦.ç0µ¦QŸ7L]fL]ÃÅÝ~ô°öÓõL]Ø44L]<ߦvq·ajw¦.‡áëe¿ê¿ã§ß˜Ú™þ†© Ût†© I§†© °›aê²ÜÃ[0µ3ÿ SßÅÞÀÔ…M3ÃÔ冕‹ýS÷l¦.7ÌÜì'x ˜º¸ç0u¹açn?Á¦ÀÔeS»‡€aj‡‰¦.†í€© [H†©‹á;`jƒ¦.†ñ€©ËtÏjÁÔÅp0uqJ`êB˜“aêÂxÍ0µ‹Ã S»8Ü0u™îù,˜ºNb˜º0¾3L]&p0ua[Ä0uqO@`j‹¦vOÃÔÅ=›©Ë4ŒÝí× Oã'x˜ÚÅㆩË|õÀƯ®Æï ¦.óÕ?ÁPÀÔ.&7L]Xê7Líž †©Ë0Œ-˜ºÜpº`êâÅÀÔ..7LíârÃÔÅ=j©Vg˜º¸90u1ìLíbsÃÔÅp#0uaük˜º ÃÅÝ~‚©Ý£Á0u1<Líž †©‹áH`ê28^ÀÔ…ñ´aj÷t0L]G2L톩 =ä SÕÀÔ¥sü€©KçøS—îžÜ‚©‹{üSÂò S»XÝ0u1œ L]Ϧ.ã LíâuÃÔ.^7L]ÜS˜º8<˜ºtà9`j³¦v1»aêâ°`êÒ뀩‹aP`j·¦.'¦v ÃÔ…° ÃÔÅ=5©]ìn˜ºt÷à>íü-˜Ú=- SæÀÔ.~7L]ºafÁÔîya˜º4Â1€©] o˜ºj˜Ú=1 S—öÞ»¦f˜ÚÅñ†©KsOêa¿Ãp5~wlüÞ`êbø˜ºc˜º4ÃÖË~ÀâË~ºÞ©ÝƒÃ0u!x×0µ‹é S—fX[0uq80uiœÀÔ.®7L]îÖ‚© ó7ÃÔ¥–®ö¼ Líb{ÃÔ¥½ÃÔîùa˜ÚÅ÷†©ÝÄ0u1Ì Líž †©]Œo˜ºö¦.ø˜Z…mŸ7Líâ|ÃÔ¥ËS»§ˆajë¦v±¾aêbx˜º¸g<0u!œÏ0u1\ L]XŸ4L]ª{T ¦v1¿aêÂ|Ö0µÃL S»¸ß0µ‹û S—êžÕÍ~:¿€©]ìo˜ºÜ0ó°ŸÆÀÔ¥ÆL]nØyÚOç0u©œoÀÔ¥r¾S÷̦vÏÃÔ…ý ÃÔî¡b˜ºT`Z`êâð`êÂüÜ0µaÃÔî¹b˜Ú‰Ó†© ¦.ø˜ºÃÉ‚©Ë g ¦6L`˜Ú=[ S—Þîö£‡u·pó°ßù„©Ka¼LmØÀ0u¹áïi?Ýï S;lÅ0õ ‡ö£‡öa¿eØ?¯†© ç«ajÖ'n˜ú†Ë©Ë ¶>Ñ‚©öb˜ºpþ¦.Ü SN7L] '7ûõ7˜˜á†©‹áån?zFwûé|6L] 7ûѳ{ÚOãaÃÔ¬ÿß05á[7L] C/ûÑSû°_5<°ôa?߆©Ù_¸aj÷Œ6LmØÞ05p0õf9–Ú-u@©ÍJ@Roö.©·9}qÔF'À¨ÝŠz;tGõ6Ó/†ÚÝy@¨ V@PoÿªNÙ›G¼*ˆ¶ã{TÇeÎzzo÷°^X-³Ô²m>°ÒÉ/rz³8½·¹ç+Í„…MoRÒ ¦ eM»IÌôÞ/Dºõ£!bÚ-„¦÷~ñÓ²ÿ­X©ð^´ôÞî™Ý°¢åtÇJuøB¥7ÉÒ7Ð!buosØ+a^¤·›EŠ’ÞÛöÄŠVÝ «fd+9X‰þÐâËMh-È}ŽÀ£oDtô&l8Ú]`£÷vGí<ßö6¹œWíÞ€œ£oTDk¼ÛÝ-…Eo77}“#‚¢ÝP &úI„Dß ‰ˆèÍ!@ôÍ•ˆ‡¾¹mìI4ô™†vo&XèM4(ôMˆ„vç&@è}Â%Šƒ¾!aЛÔ)(è}ºÎ‚¥›I½ÝÉSô¨ˆ€¾Л%Møç›Xþ|+¢Ÿ7áÃÀÏ7À"öùX„>oÔC>ß<‹Àg·—‚{Þ'°ç}šBXé¢ô¼O3É«a$+9/[€–U7ß,+]ƒÂoF´³ûX;ßhŒXçMT)¨³»\A:ïó>Ÿ’æšÛ«˜ó ΈrÞÔa9ßç}r… qÞ$z@8»€ó&O ¾ù¦l„7ß”èæ}ºGôÀJ¬Øæ}rÁ mÞ§Éë‰ý¶Vº`Å5ßHŽ°æÉÕ¼®_AÍ7¡#¦Ùm¼@šo`GDó ìhv“/xæÍ78óvrÑÌÆy€™óÀ2o¢L@™õÜù4ɼ žd6ìÇlØŒy»Y­(æMH³Ùæ}Iž¶ªH¬ 4Ëêæ•eE×é…Õ“^6(¼¼Yž‡]67ºlnryó6nŒnÙØò¦0jÙ-Ï€–·[ñŠY6d²ì†hËfŽ–ÍÁ+»]¸²$he#HÀÊn¦«¼nB•÷aÒzb¥…@å}p£§l^ LÙ¼”òf_HÙøŒ²ñ%å}˜Ø>±Ò}C€²á&ødÃMàÉ› èd³NÀÉ›Žo°Éûxu–U}Éû0\±Ò]E\²I(°äÍÆ T²Á( d1zŸf’ÍI$ïÃñÀª@–<ñÄJ ŸpdSTÐÈ›ð`dCU°Èûxë(í.u&‘×;‰ìvÍÈ W&‘—9e‘È˽©E"C`™D^îŒ\l%·bE芕îHÈì™D¦àÒ$2º&‘— èn«†ÄJc`ul¤¬tƒ‚D^Æ¥'V4ožXAO/[ $VF±ªH¬ž$ò2j}b¥± $òâö‰|÷À‰LùIdvÃL"/öÅV‚‹«­ RVÓœ²¬¦ÑcYAæ6¬hÝܱš“±2˜Œ•>Æ°UEbeôXV4žXi؉¼Ü{a¥{$2›y&‘éQhÙíÀ!‘—»KŸ¶z’ÈÐj&‘·>Hdà5“ÈNˆ‚DvŸqHäÅ™ ,“ÈËpqµ•@Ýf«‚”•nŒÈn`‰¼ÞIdçRA"¯˜Œ•>Õ´UGbÕX=ƪ eUŸ$2ùï&‘¥a‰:“ÈÔG›DvËuHdªÑL";9 ™½S“Èî ‘Ý Ùü$2û¬&‘ãA"ǃD^nÝmÕXLÆJŸJ$ò‚D6»‰lvyºÃ²Hd£|ȉ•>äa«ŽÄª!±Ò‡m5Çzñ•Èæ+!‘§±å ]+ÜÙ¸%$ò-+VýI"Æ„DvOUHd³™Èf3!‘Ýqù!± ç;züçHä_ýáoÿï?~û‡o±Ë[>žÿù‡ßþË·’ÿëùŸ*çóÿ~û»¿ÿ(ÿ eÌþ1NñX#džuæìæ¿ÿîÛǯ¿åÊôëßü‰âH\çúï?bRZnýùñ|ôy½CLmâ?¯G¾­_8äz½Pš^3Ï@ªk€Õ½¾¿°çjéë…Ò¼ðµ·ö …‚½^HÃ[^øGPn¿°$óöz¡t¾ð×?ÿ‘_7~ó_ýõú¨?ÿãGÍã\îÿŽÉdüÜ+'¾?ÿþã/þá/?~þçoÿþç°üÕ_7½ø|­Z`ï,ÑŠë¶ë¥õí¥ö}c’s}»Çûþoì}ÿÄ‹™þxñø©|Ç{7N‘ûåßñÞjïô'_üçßYUn?úâõåÅ¿øPÅXáB=UûŽ÷UÃ> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 4513 0 obj << /Length 2521 /Filter /FlateDecode >> stream xÚ­YÝ㸠Ÿ¿"¸—:ÀF«K²ï°=t··´èÇ}è¨'Qf¼çØ©íl:ýëKŠ²#;Nwf[äAEK"E‘?2|õ¸â«ßÞýx÷öƒ¶«œåFšÕý~%8g*5++3*_ÝïVK”’ë¿ßÿüöƒ«²šY“ÁBž©sÕ¡Ù¹ 9ïxØ`¶úFi䱫´@Tôåý:ãI³ÞÈÌ$‡â—µà‰£Qÿä;:¡•=­Ü¹º/?q.‹‡Ê½b®“sø s=TÄ':c™Î‡“~â—]–[•!SÊR ,ÍSâÄ”E+Y–åÙ*ây·Þ¨4X§ª4 66eëM*lr]P¦,ϲëó >;`69àç…]-ã©ŽOøe-uRT'×:mݾiƒÆ@›M´Ôm’ª¤[¨Ê§¦Ù­ÙãnpsR±Œ+8ˆ`¹Öãå»m_65ðÊ<)±U<,:D[6§Žfʺ_‹ÄµátÚºªèK$}Y „ûf¶|<~I‡xŽ›‰¼0õàú³sá@œhE½[¸FiµŠ®A]›‰aʪ%3™ÜÜ•/n_q•üäê­7Y•zi¼B•Ê˜ÎÍT¡õ©BÑ4OžÖ:y>6ÀÞ•‘~º>–åL¦†Î–à×æ Ç2ù*âù~A ši¥_n‹zb‹ñnÀnt¼<i³åÇbã€×¹ðŒS&¸x>/½Î4¦§{ÍÜiÜë‡õF š€ÆPc‡æ"n,3–§bX¤<«Ò…ë©jÇGÁè¢8L#ÐÇH–炾ü€†ŽÖ«xƒ°Z‰’2)÷´·R±b5“ââx{wìÞm?qð­\¿¡½ASCO=,‹ºås3Êvƒ«—\•f¹´_w¥SO%=•V“G‚æZðï;s7„4pC¾<÷ƒ ' 8,΄Ó÷uñ Ö& 6ê _ ªïZøÌ0žÉ×Ƶ(<ø¡¹ð¸399è\ù` ¡ðØÆî†äý  Þ5¬8Uð¹¨dYzÃ+Jp-š«×ÞxzCèl&4¹@›C`µÓ+"3êÚ €æÍÚØ `Hfi@ʨ€DÔñjÀŽ æ:!#o_w$”O…¢«2WJÇÊP ‚†n :`¢CTî„çGôxòq\Õà‚gvO4êhØm›¶uݱ©weýX#c‚áþT#žx.F×9•¢}(ûB{õL„íSÓ-zŽÏ¿5°L É0“eqd¹èÒûÚ»÷÷wèÏøJ¬x, ÑXqØ çöp÷Ï;¦­ð±‚¯¢®Ÿ¾ „·ùê7ÍÝá7Lm†57Ñ¢ X:pÉ\1nM»¿à&3G§jGý‡@+zj+Wt¡ÛÔ8gó¤yèö Y†¯â÷î ç²Bð…}WlŸ¨7ÅKHñ -ÚPØ>ì¨çÁ6X›Éóäã~˜Åc/XBá¥QÒG=¥ÄüåÁÌ`Ø ‘˜K€«¯\ À&c6•3\žÐãK‘2œ ŒXvzM–ÿ? @JàŠ˜0N—Ì1 ³Z^nLÉà^@‡x-­¿ În¦ÉËÁÔù©„;^8¾áÌpùZŸ-^®ØŽÇB‹ ã%à½ÀÁ¸•Sr]_ŠÞûÁ\„DcJÄpýâÈ«'°c²ÒÍõ‹ñß _% å²ÑbÛEg•kïx.=¶Qûö9tjwm¹ï±ËGRY£5Ôeÿ¼6Ú§‘Jùgé¿#o‚Ýbèxø™_E˜¹ýe ç“úÚà'G?uÎBE\ŠEðó¥‡#/rùÍ(3¹£›`Ë·žyV˜È$ƒD9äH_ÉB²Ë®Ÿ—žÌ%‘ñ¯E.Ú¡€3*û¿f!†¥:îiv¸£&ì ¯ýª¶ Ï2 ­dFí; µÁ¢cÒ¿]Û€ë4M>ÖDr%Z2õ·Eç‚(UNUß} —Ð÷áÒoçÀq"ºÒiZJåùÃu>"/b [œ(//ª’_bs8ì,¢-mÍPÞ4ë)þqeÛTUqì˜é[ï`¦Ø}>ua»€¾²‰+ïhîT÷e>¡”ßÎØ‚û¢ €Í eÄä!ƒÇvýi7ø •ŠäÇgâí\ß#¼Î-Eš3{)[{¬²½»ÿÓ_Þ/‚N™ÍÓÈþ.X6‰$sägê·®?µuGl†füJ¸wHâxÊ´žBÇ€9wÍ%÷î.í{w8ƒQS¨C-QøƒŠ`£–15§ÕïëbJbÉÌÃ2ÄÓãÛš'äFŽá¶¨àújH#¾¸wßy«síwKñ’[–éñ³ÁÛL¯C„LW®\×--›ƒ<*&^à<8/€ê„+ºîtp$ž”ôm-äùfú‚Bb®—²$n’ rΫŒÝ„Œ]O3v²}C7†„¦Fó—÷¯ÞkpsÙ|0ñË°C`1ÞìKסÌ«µäÉ)ì/ª¹p/¼­]ÙÒ1‹ c.؉¤¼[Ëá!áÔoAZXI$,dvîH­F7Э§öŒJ!ï%µHNÝ ÞzX;ªxÃR§.tÉÇH8Wt¹ txüë”Í×tRZËx%ä_äP¶çoåcíkèÛ¢ö^NHo)Ž=¢¥HÐdœ¾^äçž©•a8¡¢\Rxùã 1­;‹ ±,عL%³rZÓZŠw1/•¯¢]‹,yó­{†Ç^Êi¸Õ´œ&Á Ê=î<¸Þ.5óÂCYÿ‚Ë /{Á¤hp¨k0j´U¤SvcÓ•³B6PÑj qîækãjѵ s¡íɆ6à÷+·X½Ç+s ‡²‰Ëa\ª :Y€%À×蓾¿^BÆúp½ä€°w ü³ J\UxjrÄçPMb<öOÝ’¡ØŒéL‹«å—šo¶…Ûx(ñóf8G€³MÚ4_,¸Jý•ê*8R).ÿ‘6R©œV‚ÿêµ!¹wG·-÷ÏþUá¸d À÷ýí©?6ø'Š•áCïŸü4²þÀ,Zª…ÐÙ6n&º îˆb#vQ¼þùXn½«ºÖ‰R€‚½©”ðß1M®ýf:eÒŽ†ã¯’9€Ãë#€ÅŒ}½-d,ö¿‡] ùsöª°›å̘yö›Ú,V0k ÚE™Ò ûkÕÓÓ™?ÂðFÑi“ü£jÛ‹¶€\KÓq-˜ü†¿¢)¼õ‡?ÿn Túª_PЉö7è}Ža"Nù¥YL€£²À›Åœx[Tz3žÏ¤–FèÛÿ(Ðß[›ˆëÍÌ'Kíûû»ÿ¿zÄ endstream endobj 4510 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/selmodel-stepfun.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 4515 0 R /BBox [0 0 504 504] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 4516 0 R>> /ExtGState << >>/ColorSpace << /sRGB 4517 0 R >>>> /Length 2962 /Filter /FlateDecode >> stream xœ¥ÝMoÜæ†á½~—É¢ _ò|n´‚¶@bY]©ƒ$µ6IÛ¿_rfdÏC=ÇF–t‰äÌí¾²%û Çôå4¦§?|5ý{R´yòåqž'Y¯ïÆås?¿š¾™Þ>|öË×ü|úâÅüm›§û·/¾øËÃò¸èô¿‡¿þmš§<ŒéËí×cßaúóƒ¯û-‰ËãX§7G¾~ØÞÏ”B„ú¸P¡3€B„~Ìa3€BãyæãBiÏ3¶ç™R(ƒp2F¸3€B„ë1h„rÌ eê1h„vÌ eú1h„qÌ e,Ïs;½)íyævzS eŽCÒ—cP(ƒp=fï¿@]¹æåKÞ•Ëó”=’P(ƒP÷HB#´cP(ƒÐ@#ŒcP(c}žÛÉOiÏsÌÛÙßXõ8Ԝ٨—Òƒ–ÆA½–´QKéAKã ÖÒƒ6j+=hiÔ^zÐF¥-C˜·ÕÐؘ÷¿7–ÆA=Ž='6ê¥ô ¥qP¯¥}ÿçÅÍÃäÎÂ,{/µ4jÝ{©ÚJZµ—´QGéAKãPæÜ¿3¤6æe[/¥qPcωz)=hiÔkéAµ”´4j-=h£¶Òƒ–ÆAí¥mÔQzÐÒ8Œy[yÝÖCciÔãØsb£^JZõZzÐF-¥-ƒZKÚ¨­ô ¥qP{éAu”´4gÞÖCcc–m=4–ÆA=Ž='6ê¥ô ¥qP¯¥mÔRzÐÒ8¨µô ÚJZµ—´QGéAKãæm=46fÝÖCciÔãØsb£^JZõZzÐF-¥-ƒZKÚ¨­ô ¥qP{éAu”´4ŽdÞÖCcc¶m=4–ÆA=Ž='6ê¥ô ¥qP¯¥mÔRzÐÒ8¨µô ÚJZµ—´QGéAK㜙óqmìÌ>?ŽÆÚ8©Ç±çÄN½”´6Nêµô ZJZ'µ–´S[éAkã¤öÒƒvê(=hmœƒy[9¶õÐX'õ8öœØ©—ÒƒÖÆI½–´SKéAkã¤ÖÒƒvj+=hmœÔ^zÐN¥­saÞÖCcgÎm=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéAkã\™·õÐ؉—yÞÿ_µ6Nêqè9³S/¥­“z-=h§–ÒƒÖÆI­¥íÔVzÐÚ8©½ô :JZ§0o롱3m=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéAkãTæm=4væe[µqRcωz)=hmœÔkéA;µ”´6Nj-=h§¶ÒƒÖÆIí¥íÔQzÐÚ8y[yÝÖCcmœÔãØsb§^JZ'õZzÐN-¥­“ZKÚ©­ô µqR{éA;u”´6NgÞÖCcg–m=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéAkã æm=4vfÝÖCcmœÔãØsb§^JZ'õZzÐN-¥­“ZKÚ©­ô µqR{éA;u”´6ÎdÞÖCcg¶m=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéA+uî¶ÔÒ8˜}Þ§©z{N,ƒz)=h£^KZ×ÛÛ¼ÿ˜Wüæ –½—Ú¨u稜ÆAm¥mÔ^zÐÒ8¨£ô m0ç>³K-ƒ9æ}ž˜Ú¨Ç±çÄÒ8¨—Òƒ6êµô ¥qPKéAµ–´4j+=h£öÒƒ–ÆA¥m sîs¼ÔÒ8˜sÞgŒ©z{N,ƒz)=h£^KZµ”´QkéAKã ¶Òƒ6j/=hiÔQzж2ç>ÏK-ƒxç}ޘڨǡçÌÒ8¨—Òƒ6êµô ¥qPKéAµ–´4j+=h£öÒƒ–ÆA¥mÂœû¼.µ4æ1ïóÄÔF=Ž='–ÆA½”´Q¯¥-ƒZJÚ¨µô ¥qP[éAµ—´4ê(=hSæÜçu©¥q0/ó>OLmÔãØsbiÔKéAõZzÐÒ8¨¥ô ZKZµ•´Q{éAKã ŽÒƒ6cÎ}^—Zó:ïóÄÔF=Ž='–ÆA½”´Q¯¥-ƒZJÚ¨µô ¥qP[éAµ—´4ê(=hsæÜçu©¥q0˼ÏSõ8öœXõRzÐF½–´4j)=h£ÖÒƒ–ÆAm¥mÔ^zÐÒ8¨£ô -˜sŸ×¥–ÆÁ¬ó>OLmÔãØsbiÔKéAõZzÐÒ8¨¥ô ZKZµ•´Q{éAKã ŽÒƒ¶dÎ}^—Z³Íû<1µQcω¥qP/¥mÔkéAKã –Òƒ6j-=hiÔVzÐFí¥-ƒ:JÚgæÜçu©µq2û¼ÏS;õ8öœX'õRzÐN½–´6Nj)=h§ÖÒƒÖÆIm¥íÔ^zÐÚ8©£ô }0ç>¯K­“9æ}ž˜Ú©Ç±çÄÚ8©—Òƒvêµô µqRKéA;µ–´6Nj+=h§öÒƒÖÆI¥í sîóºÔÚ8™sÞ物z{N¬“z)=h§^KZ'µ”´SkéAk㤶҃vj/=hmœÔQzо2ç>¯K­“XæyŸ'¦vêqè9³6Nê¥ô z-=hmœÔRzÐN­¥­“ÚJÚ©½ô µqRGéA»0ç>¯K­“yÌû<1µScωµqR/¥íÔkéAk㤖҃vj-=hmœÔVzÐNí¥­“:JÚ•9÷y]jmœÌ˼ÏS;õ8öœX'õRzÐN½–´6Nj)=h§ÖÒƒÖÆIm¥íÔ^zÐÚ8©£ô Ý˜sŸ×¥ÖÆɼÎû<1µScωµqR/¥íÔkéAk㤖҃vj-=hmœÔVzÐNí¥­“:JÚ9÷y]jmœÌ2ïóÄÔN=Ž='ÖÆI½”´S¯¥­“ZJÚ©µô µqR[éA;µ—´6Nê(=hæÜçu©µq2ë¼ÏS;õ8öœX'õRzÐN½–´6Nj)=h§ÖÒƒÖÆIm¥íÔ^zÐÚ8©£ô =™sŸ×¥ÖÆÉló>OLíÔãØsbmœÔKéA;õZzÐÚ8©¥ô ZKZ'µ•´S{éAk㤎҃¾ŸÇEça÷ÌÆìóa^øÌÒ8¨Ç±çÄF½”´4êµô ï{^ìWKï.†~ùųC¿^j=.ÿOïÍíÂëO—Ϧuûåñ¾ênóm þiûÓ|üû./„´¾ÛáÆ».“ïïáÆû®×d|·Ãíïwxºžûm‡ûßÃç/oÑ·¿œœ·_ÿðýO?ýcúé»éūׯ¾ýõ‡ŸÞ¾»§ß¼š¯_në$÷¼¬„ãö«îk6gÝ|»êÓöïvXŽ·¿ÀÈiàÝ¿ùIõËD‡\®+t9e?ü„½\øpìãø˜ÓŽÖ?Zj÷»{ÞΉé~¹ì?³ÚßËç~~5}3½ýГæzûkž|ÈésÕÓº{îü¸ß~~‚Üïq~†Üïq~ŠÜïñÕÃÿJ¢D endstream endobj 4519 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 4523 0 obj << /Length 2153 /Filter /FlateDecode >> stream xÚµXK“㶾ï¯Ð)EU­°xgNÊëJªò(g²9@$4¢M‘ 3«Ÿn4(’Ç3NmNM Ÿ_7È7¾ùþÝïÞ}ø”ˆMƲD&›‡ÃFpÎTœlŒ,QÙæ¡Øü+ê\uj Wmÿý𧟴™ñ«,a&Ëà4Ï©”B¦w<\ðᓘŸ¾SF0¥›4@TôÑg.:Úl–•"oÌb Œ‚ÅYL|råþ”qofLŸ¹æŽ=²÷ÛJEôÛö®…¹Ö‘ëi´Õ¸+¹È¾Ùîbn¢?ç?ÚÚÍ9ã%gâ9ÓèoC×»Ÿš­ÐÑS÷3âþ }üCS<º¶›]2 ¶Ý%RGGGÌ=9Ô4”,VFÁ2­I‹²pv»“©Žö[É£¡§EYÓØã)8É›ºw(ÂÏGÍ6làtÿlµs‡-Ü}pyß™Üé§Ï[Á#è¶êš®ËÛrïŠ Æ…Æ?^\ý¸Æ–î³u`ø¾u®>6CGZñ¥>è‘¥)Y"0(pž‘Äð—ô؉Œƒn¶'G/B˜—cœM!#ø/ÆÌO+1“0ž©Û˜94íÊ­"a©¼Fw8,1ÇãöG°„IÇ0]ž£á¶td„@‰‰~‹CBƒ‡oˆ˜¯È-ëÉZÁrôµÈD´¬À9"1îƒEkš bD}ËÓ¹º”àK¿aixlíÇϪòg W•Ç¦)ˆ†á…'"@0•M8ç'ç]ˆi³4^ÆÀÆ ­×oYâ¹ó¦m]wnêâ*W á݆‰ÒºÊö%Rž0îÇ inÎú̹l»þþ”‹È?ncØëdj¥æ¦61Ó`ü`lL³¶©>Ve×£ñ yzËNöËGáýpï+!á82ðžÌ¢² boi–AGI~”FE®{æêÓ!Ìíß:7}ÞÃ8s ²zÇ ý¼››)vO¬ˆÜá9YÏË5ôçLH¨¾€Ø+¡;[Ц=CÄPèǾøœ0‰S)m2÷”0H‚FqÈ{"9àâ® -ûËZXØÚV—ÎÇ¡1ô®‘RÞžÊÚ‹¤Ð h9»¡êó÷%¾®Lóê KÐíÞšÂTÌÊ¿LVŸ´&¹ò`8­á0ñ ‡U|ÿ~†Gª6Š%B¿ü|†0€çÍnÆ嫦¡b„ºƒÍéæi Å2.Ãë 2Qðš½éüÑ9j †¶t=æ°Q”áøÖas†$è º+ÓŠÀÐ¥}•F J<,gL‹ UÒ»¼už {Q¥ שñ%ö±)űr]¹›÷Æ Ltê–z_»Û±liMe+üȘHÓeÿDy ãP»â¨ð•’Š (Yô¶Ãõ:˜©™Îâ¯&±T/õ:(ÂSiodY4{:cR‰©ÛƒÇÕÚóZBu­ô¡¢ X…Ñt`ÖD\ e„î4”Á`«€ f#À† °)’1Yyzÿc†â‘žQÐ?tD àýEYU>9nJ ðŒps®Æ¯¨_“>±à‹pBNÞG”\¼õp9öá@ÿVÂ3 @vë@èŸ:Ð"ú_@Í®·eåíz66û‚Ó+ÜÈA>š-^\°áŸy-, …íÃì€D¸ŽštPeÝt×–«*lñ7qú«¸¯W1(B•²{ΣßíhD1˜—ýçm‘°Dé¥= 2}‚*ü“ƒCŽìœ¿ßæbšNTÁ¯S9QÕ4ÕC2QÍ4Í&†lFÍfÓ‘ì9¼_óhø-ÑLÜë!VOîJùš\3i“‰A¯jö릯hѹ§·k±.úêÅ1_óZuàÌ­/Mßà ùë}1S(}M·d•aöÙ+¡% ¾ïµHn}!ÿ¾˜™Z®ç -WnµxáwÜîšïˆ¤ÛÒ°ñ~ôÄXƒ÷¢_M 5b×âgå3ßbß=¼û/@…Z5 endstream endobj 4527 0 obj << /Length 1568 /Filter /FlateDecode >> stream xÚåXKÛ6¾ûW923|S šŠ$MŠöPÔhÝd™»&*K®(ïfûë;|È–v¹ínP-‚=˜Ž†Ãy~³8»ÊpöÝâÛõâÅ[¡²•’Êl}™Œã2S„ ÉÊl½Í~ÍãËßÖß¿x+É„•)”,@g²ºÙw[Ý8ÎŽ¼Y/,pF2B\e ̲z¿øc„"œ{ŽÉÒßE‹÷{‚³×Ýâ'øÏV£ÐÕDjâQ‘‹•J}×;mõrÅË/»cWǶL×Z·åyÕGŽ JÙ^÷º¹ {½$"ÿXí¶RµÛðÝuÇfˆm7„Å&Êéý‡WK¢·:~QEuÕv­©«nãñ^,ð/KBÜHE~í¾ÖU8ûÊYÌ°W•"¾êòÀy×míóåŠ œSŒ!hæ–ñì$'vY”€û‹h¡¥ây©§ª÷ÚØ¡7›%ÅùÑÙ)PÖ®ÏÛ]¼ 3óƒÓ•!%¢ü;Ý.pÜ™‹JÄ)Ãj¸=èWϧƳ„HQ"¥äÈì-‹|Øi·àyH¿¬¬=î³ÜfØUøŠ¬àÛj0g#jc~_œëÆìÀ¨Ö]†_;y5l·ú Ûm¼À;Þ3ûf«B"Rª¹¯üÝ LyX]»‹«æ ÑÀaã.p¿'ö;ÌNŸÙy·±º¯ØŠ¾tŸ\‚ºaoÍŸ#oCÝíïH¬"÷pÜÞ.¥ÈÑr%`ÿƒ‚'ȬpŒ(=q9p&Q©Xá88* &@¼Œ¨U Ee¦­kêQ#oM&(bŠDsÊX€L{Õ8¿*¯Ã¡3­sBQø,ºÙ™z¶gk£Átm.0¦>ÌáàÚTá¤ê—¤È¯ rÚ!ªD HÅS ôÁ&žDé)¢}¥pÂO*©ÜØxŸÒ¨ÅÐâ&> ŸéT”3„½I'Qul'Ï ©åâ!¯&‘€"¾" ‰2Öû›ÀX̼rr­³fÊÿ¾´>Îý?ÝFàݪÈ_E™Sí"PMGx,Z˜Ñûbƒƒ¶+ÚÀHŽ" -¦ã#Ìeâ™*Ä?F¹H=s&FzÇM˜¾ LI„ ã˜ÌDÖ ‘+Ác4`Ä%ÍAdàU39-f“Ö6F§JþÛág‘ Ly*b1D>í¾TYQ½ Î ìK™×ÇBo€…÷·$„ÝMº‹´8¡£ªtßB‡¹†nvÕkh©}ªŸ¬†<œÔŠ„§‰KxªS×V¾„¤ýl9+“³‘éëÇå¬ø¢rV|žœu/ˆQñ@RŽÉÔnSÙWRD§3Öãý;óð¢LÞ1ÜtÈùÉ4wI€Õ)jm¸%ÀFhµ „î0SJ?êø¹Ç (Ì¡€ÇqªœÖ/·õ¨8"YJ7 õ¤k€ÏœÐ+šÄˆ0þôŠÆ‘ÄÅ¢§Kòl÷Oþ°ã,C9·áÝ Ãâ.ªw´î2ò.žš¯`Á ¬àwQ6ÍP6ìʶ‘¹¤³mØ…1ÄKuúTM¸7ºéœ¨›‘M‡E½ë¬nÏẓûÓ‹ÿ°Kˆƒ“â*W9ÎA°:+@a€¬6sš„€ÁDF—ÁÂæÚÔz¸z[ÚCÑS@ Àå“Ò±(‘”Óæ±lYäït[»h¥…Œ].n£ú;˜¯oœXcÇü€àUln‰w÷ã Ò²d³²ï7&FYNÁËDP $˜xtP‹YPÏ›8e³yèUè:Éê­òŒ9ÌþÐ?òLi»;XÃp‰|áÌåïýD cioÚÚoiICÝWéÂÅv‘³³Ölüð»!R»ÍP™(ˇ€ÒS}4ûã>Ðî×°±ƒÙWC”Fí‰ÁbŒz¬ÌߺÐóeÑ3û<ð]q\ü¼’Å\‚ xâ T*<GŠNÿõ’Í †ÙÎßjŸ(MôØÕ$ŸãÑæ6Õ\ô9å± „Yôÿ Õ ~—ÎtоäsÓÑ$dHRõep}Mþ óÍzñçuâ endstream endobj 4520 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/tmp/Rtmpm9B23c/Rbuild2b81d1e4874b0/metafor/man/figures/selmodel-stepfun-fixed.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 4529 0 R /BBox [0 0 504 504] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 4530 0 R/F3 4531 0 R>> /ExtGState << >>/ColorSpace << /sRGB 4532 0 R >>>> /Length 12740 /Filter /FlateDecode >> stream xœ¥ÝM“Ç‘ á;EÉ9þq±™5“ÍìÚŠ0ÓA¦„LЀĬÄÑüý­ÌªÒݳ_Ò@?Df×…DwåÙn¿¹µÛŸoÿï‹ÿ{û7ñof»Ö¾q»µ¹}Ó×­ÙüfÈí/oo¿»ýôÅ?ýõ·ÿëŸoÿòíÛ7Û¶ÝÎ?~û/ÿû‹þM×Ûÿ|ñû?ܶÛ_´Ûoîÿýù‹¶pû/T¾‘uñÍ´Û‘ïwšg'®õ:õ›¦ÄÑ+û7cû5<–ð*͈³×zöXB¤Ù7›?iÄ} ¯s_Âë4#ÎN\ëuzŒ,ƒ(‹hFœƒ˜"gŒ, ‘…º͈s¼Îµÿi†ÈÂ1ˆº͉)òLÛBdesâD݈æÄ)¯³ÅÈÂY8„¨Ñœ˜"{Œ, ‘…CˆÚˆæÄp1<(÷ƒÖ“ò:Ç7[#îKxCˆÚˆ6‰)2Pbda›Ä!DmD›Ä©¯Scdaˆ,JÔF´IL‘÷ ªCdáP¢v¢MbŠ ôY" ‡µï?SdàŒ‘…m‡µmï_нÊ# Cdá0¢v¢-bŠ<ÓïŸñY9Œ¨ƒh‹˜"[Œ,<_ÀOŽû‡ž'ûFÜ—ð:÷%¼N߈Ó^g?–ð:Cdáp¢¢oÄé¯sÄÈÂY8œ¨ƒè1EÞ?- 1D'ª}#¦È@‘…½‡UˆÞˆ)2Ðbdaˆ,“¨BôFœóuzŒ, ‘…cU‰Þˆ)2ðþiQ‰!²pL¢*Ñ1E®YØ;qL¢*Ñ;1Ež9·YyŽ¬‹¨JôNœëu¶Y" Ç"ª½SdàýŸCdáXD5¢bŠ 1²°âXD5¢âÚ^§ÄÈÂY(Q胘"5F†ÈBÙˆêDÄxüó0DÊFT'ºSd ÇÈÂ.DÙˆêDâj¯sÆÈÂY(¨Nt!¦ÈÀû'¾I ‘…Òˆ:‰.ÄyæÚBdå9²RQ'Ñ•˜"[Œ,ìJ”FÔIt%®þ:{Œ, ‘…Ò‰:‰®ÄxÿÄ·ˆ!²P:QÑ•˜"%Fv#J'ê"ºSd ÆÈÂY(¨‹èF\ãuZŒ,<!÷d»qßž4¢ ⾄×éF\ãuú7m#†ÈBDÛˆnÄ8cdaw¢ ¢mDwbŠ \1²0DŠm#º—¼Ê¶m¡òÊçÎ+‹°­±ÝÙ¹7º}Ó;öV‹°­±ÝÙ¹7º§Þê>Ù"lklŸìÜ=Rouì­e[cûd/%Kê­Ž½Õ¢lëlŸìÜ­ß´ÎŽ½Õ¢lël_ìÜm©·º/¶(Û:Û;÷F{ê­Ž½Õblël_ìeä™z«coµÛÛ;÷Fß?Ëvì­cÛ`Ï{ƒÛ{/<6¶Û{nìåä–z«coµ8Û{nìÜÝSouì­g›°çÆ^íÂmß&ò´“}¬,Î6aÏÆνђz«Gc‹³Mس±×$kê­Ž½Õ2Ù&ìÙع7ú±·–{«e²MÙ³±so´§Þê}ÿ/Y&Û”=;;÷FÏÔ[{«e²MÙ³³÷=Á¯{¥ÞêØ[-‹mÊž{ƒûvì&‡Þ Ëb›±ggçÞè–z«÷ýÂdYl3öìÜÝSouì­ÖmÆžƒ<Ž=ÄäØ[=[7¶;÷FKê­n΃­Ûœ{£5õVÇÞê!lÝØæì)dK½Õ±·z[Ûœ{£ýØ MŽ½ÕCØÚØ6Ù¹7z¦Þê6ÙCØÚØ6ÙSÉ+õVÇÞê¡lml›ìÜ<¶Ø{áÐ{á¡líl›ìÜÝŽÓäØ[=”­m‹{£{ê­n‹=”­m‹=i²*Û;{.²¦ÞêØ[={ß5MöÎνÑvì&ÇÞê±ØjlïìÜí©·zßIM‹­ÆöÁνÑ3õVÇÞjÙØjl쵑Wê­Ž½Õ²±ÕÙ>ع7X·c89ô^X6¶:Û…{£[ê­î–­ÎvaçÞèžz«coµ4¶:Û…½y¤ÞêØ[-­“íÂνÑrì''ÇÞjillWvîÖÔ[Ý•-­“íÊ^l©·:öVKgëd»²so´§ÞêØ[-­‹íÊνÑóØNŽ½ÕÒÙºØnìܽRou7¶t¶.¶{ ð>‹i±Cï…e°u±Ýع7ºû¹É±·ZÛ6¶;÷F÷Ô[Ý-ƒmÛ{‹Wñx¼èd÷Ø׃¾¯}_Ú6¶;{ YRouì­aÛÆvgçÞhÝ÷{£coµÛÛ{£-õV÷Éa[cûdçÞhO½Õ±·Z”m퓽”\Øk#Ô{agÇõTËÆVcû`çõDKê­Ž½Õ²±ÕÙ>ع7ZSou¶llu¶ ;÷F[ê­Ž½ÕÒØêlöjdO½Õ±·Z['Û…{£ç¾{«¥±u²]Ù¹7z¥Þê®lill×Ìy=Á}‹ë¹pXÏ…¥³uþcve¯Nni=Õq=Õçõ|»ßÈü—nS~$þÂmÊŸwAÿñöò¿¿Ý¾ÍG<¹ÿÍd>˜Ç‹ü?ðäé€}ÌW·OG¼ø|ÈãèŸyú|Èþͦq:äéÓ!±þÓjN‡üó›çóõý_/ž¯¿~ÿÓÿôoýÖnoþx{`ßòúxÀƒ§žÃ)^x™Uq:àqÏ<ïçy:à‘ýñ€Ó*~ͳtì˜{|aõÙ—×ól9^öÙ—×ól?^tõÙW×ãlÙŽ—4}öÅõ<{·Qø;®­ãl?nWðÊ¥õø˜pÿqÜ]âå#Ü‹e·Bxÿò{øÂ?ÝŽ²ëÚëOy{ûÝí§üË1,rܺ3Ýî‹øý—ÿõõß¾º?ÌíËïÞÿ÷Û¯þp{ó›ütœÎÿúôn×ñ׆~Ü‹ùxO¿}ûþ»Ÿß=ßÛÛÛ¿¿ûÏû›ÛýÍ÷ïþôá÷¼}ûöýÛï~÷á§ø@ƒš÷»y÷û“uŒ?è?>üðö/ßýüöö~zûõ›¯îðîõïÞ¿ýáâýïÏk_ëôÛ³oÈêë¶ï[¿?ÏgöôùmÞ/Ì}äæþ£ôÇç·ã&C¯~~Û±…ãåÏdòûÃûQò>‚“¼ù1‚–<ú…ÉÓ¿ÎÇzÀûˆHòììµÈµÙzÜ¥åicïë!ïë!›±gg¯E^©·zI–Å6cÏÁνÁm‹½½ÞG`’ÍØsÛñU9öVÁÖ½À$çÞèžz«›³Ç`ëÆ6gï#0_÷H½Õ±·z[7¶9;÷FKê­Ž½ÕCØûL²9;^/¿ÜSì°õ‘InÎÂÖƶÉνіz«ÛdakcÛdO%{ê­Ž½ÕCÙÚØ6Ù¹7úØ"‚Ž½ÕCÙÚÙ6Ù¹7z¥ÞêØ[=”­m‹{ƒ÷Âêì¶ØCÙÚÙ¶ØÓÈ-õVÇÞêalíl[ìÜÝ™äØ[=Œ­ƒm‹{£Gê­×ûÓ/#6wŸG€^ù<ÂôÊç Wö=Gà^9öVŸG˜^YÛ7öt²¦ÞêØ[=œ­ƒí;÷FÛ1"“{«‡³Uؾ±so´§ÞêÞØÃÙ*loìÜ=Souì­“­ÂöÆž“¼Rouì­“­ÊöÆνÁûze‡Þ ÉVe{cçÞè–z«{gÉVe{gçÞèžz«coõXlU¶wö\ä‘z«coõXl5¶wvî–cD&9öVÅVcû`çÞhM½Õ}°Çb«±}°×F¶Ô[{«ec«±}°so´§ÞêØ[-[íƒ{£ç1"“{«ec«³]ع7z¥Þê.lÙØêlöj`Ùbï…Cï…¥±ÕÙ.ìÜ}|S{«¥±u²]ع7º§ÞêØ[-­“íÊνÑ#õVweKcëd»²W'Kê­Ž½ÕÒÙ:Ù®ìܭLjLrì­–ÎÖÅveçÞhK½ÕÝØÒÙºØnìÜí©·:öVKgëb»±× ÏÔ[¾Þ”ø’‰ÃÆ>ȼ².¶{ ò #2¯{«e°mc»±so°n±÷Âç™W–Á¶íÎνÑ-õVÇÞêóˆÌ+ÛÆvg/!÷Ô[{«EØç“WvgçÞèFd^9öV‹°­±ÝÙ¹7ZRoõyDæ•EØÖØ>Ù¹7ZSouì­>ȼ²5¶OöR²¥ÞêØ[-Ê>ȼ²Ovîö0"óʱ·Z”m}‘yåÜ=Sou_lQ¶u¶/vî^©·:öVŸGd^Ù:Û{ØâˆÛ+‡Þ ‹±Ï#2¯ì‹{£[‘yåØ[-ƶÁ>ȼrîî©·zll1¶ öÜØç™Õ#õVÇÞjq¶ öÜع7ZRouì­gŸGd^ynìóK˜^ü|]ÁÃNÖcD&y_Yœmž{£-õVÆg›°gcï#2_·§ÞêØ[-“mž{£ýÖèØ[-“mÊž{£Wê­ÞGL’e²MÙ³³soð>‚^Ù¡÷Â2Ù¦ìÙÙûˆÌ×ÝRouì­–Å6eÏÎνÑý‘IŽ½Õ²ØfìÙÙ¹7z¤Þê1زØfì9ع7ZRouì­ÖmÆžƒ¬ÇˆLrì­ƒ­ÛŒ{£-õV7gÁÖmÎνўz«coõ¶nlsöòL½Õ±·z[Ûœ{£×1"“{«‡°µ±m²soðýÐ{á6ÙCØÚØ6ÙSÉ-õVÇÞê¡lml›ìÜÝSouì­ÊÖζÉνÑã‘IŽ½ÕCÙÚٶع7ZRou[ì¡líl[ìidM½Õ±·z[;Û;÷FÛ1e‚{«‡±u°m±so´§ÞêØ[=Œ­ƒí;÷FÏÔ[Ý7ö0¶¶oìéä•z«coõp¶¶oìÜ›½´Úm´wï#è…½¯‡¼¯‡¬Âö=ÜRoõ>"“<œ­ÂöÆνÑ=õVÇÞêál¶7ö>"óuÔ[{«Çd«°½±so´#2ɱ·zL¶*Û;÷Fkê­Þ÷ÛÇd«²½³so´¥ÞêØ[½È$«²½³ç"{ê­Ž½Õc±÷Y0dïìÜ=™äØ[=[í{£Wê­ÞG`’Çb«±}°sïÙ²m¡÷ÊçÞ+ËÆVcû`¯ÜRouì­–­ÎöÁνÑýIŽ½Õ²±ÕÙ.ìÜ=Rou¶llu¶ ;÷FKê­Ž½ÕÒØêlöjdM½Õ±·Z['Û…{£íaIŽ½ÕÒØ:Ù®ìÜí©·º+[['Û•½:y¦ÞêØ[-­“íÊνÑ+õVÇÞjél]lWvî ÞÍ-vè½°t¶.¶;÷F·Ô[Ý-­‹íÆ^ƒÜSouì­–ÁÖÅvcçÞèqìç&ÇÞjlÛØnìÜ-©·º;[Û6¶;;÷¯j;^µ[õ÷õ÷õmc»³÷ýÞ¯ÛRouì­aÛÆvgçÞh?ö{“coµÛÛ{£gê­Þ÷{“EØÖØ>Ù¹7z¥ÞêØ[½ï÷&[cûd/ïó´;ô^X”mí“{£Û±ß›{«EÙÖÙ>Ù¹7º§Þê¾Ø¢lël_ìÜ=Rouì­Þ÷{“­³}±—‘%õVÇÞj1¶ ¶/vîÖc¿79öV‹±m°çÆνіz«ÇÆcÛ`Ï{£=õVÇÞjq¶ öÜØËÉ3õVÇÞjq¶ {nìܽŽýèäØ[-Î6aÏÆνÁc‹½-Î6aÏÆ^“ÜRouì­–É6ù¯j=þ˜>¼¯‡¼¯çu÷c=äÑØ2Ùû~oòlìÜ=ŽýêäØ[-“mÊÞ÷{“so´¤ÞêÑÙ2Ù¦ìÙÙk‘5õVÇÞjYlSöììÜmÇ~orì­–Å6cÏÎνўz«coµ,¶{ßïMνÑ3õVÁ–Å6cÏA^Ç~orì­ƒ­ÛŒ{ƒe‹½Þ÷{“Ç`ëÆ6gçÞè–z«coõ¶nlsörO½Õ±·z[Ûœ{£Ç±ß›{«‡°µ±ÍÙ¹7ZRou›ì!lml›ìÜ­©·:öVekcÛdO%[ê­Ž½ÕCÙÚÙ6Ù¹7ÚýêäØ[=”­¾Þ¿pîž©·º-öP¶v¶-vî^©·:öVckgÛbOë{/z/<Œ­ƒm‹{£Û±_{«‡±u°}cçÞèžz«ûÆÆÖÁö=Øc±ÕØ>ع7ZRouì­Þ÷{“ÕØ>Øk#kê½°³ãzªec«±}°óz¢-õVÇÞjÙØêlìÜí©·º [6¶:Û…{£gê­Ž½ÕÒØêlöjä•z«coµ4¶N¶ ;÷ûvì'‡Þ Kcëd»²sotK½Õ]ÙÒØ:Ù®ÿ˜óz¢{ZOu\Oµt¶ÎÌ®ìÕÉ#­§:®§ú¼žo÷»ÞŸoi¿mÛíüã~Kûãû¥[ÚÇNùo/ñðûÛíÛrÈ‹·cøòãñx¡ÿÇCž>â½æyútÈþršýÛ±[ž>²Çiœyú|HXÁ§ùç7Ï'íû¿^ýðpß_x)÷ŸŽ×_¼ùñöåýu{óç/þõÍñÞùôý¾_÷ë"œÞ?ãôÇØËpº|Æéë˜ÚN·_ú¾éà~цÓçgœþ˜Éy:½}zêöçuß°ÑŽïëþx{zÿ-œÏ«±ò˜1÷p8DŽéSŸy8ò˜DñéçdŠÓ!Ï›E|<äåæçCä¸ ë§C‡Ž[]|öåörºw’xír{|¨øBæã~Ï~/~þôþãoæ‹ÿt;>ߺ߇½üé/oo¿»ýôÈÙ_T"ãÖí¸eù}!¿ÿò¿¾þÛW÷‡¹}ùÝûÿ~ûÕno~“Ÿ“Óù_ŸÞmßÿÞ}ÿíÇ·¯Ž÷õÛ·ï¿ûùÝóý½½ýû»ÿ¼¿¹Ýß|ÿîO>üpûðÇÛ·oß¿ýþçw~Š5°zßÁÝïÏØÜ7šôíÛ¯níþ {{jþÏOo¿~óÕmÞé»wïßþpñ û,Ç[=î6Òæ1”¼Ù1ûîùôž>Þÿ ßömyvÛ7ÿ=>_&¼ú9p¿‹ÂºõÇÍžŒ|¿óþI8;q­×yìnŽ^¹í;2%¼J3âìĵ^§=–ÙŽWQ?hÄ} ¯s_Âë4#ÎN\ëuzŒ,ƒ(‹hFœƒ˜"gŒ, ‘…º͈s¼Îc¯0DŽAÔhNL‘gÚ"+›Ç êF4'Ny-F†ÈÂ!D݈æÄØcdaˆ,B¼µ4'†‹áÁíxMãƒò:MÀ} ¯sQñþ)˜"%F¶IBÔF´Iœú:5F†È¡DmD›Ähû® `ˆ,JÔN´IL‘# CdáP¢vâý¯RÀ8cda[Ä¡DíD[Äût¯rÅÈÂY8Œ¨h‹˜"Ïôãß`€çÈÊaDD[ÄØbdáù~°­ãÞÿj¼/x_Ð7â´×yìE†ÈÂáDD߈Ó_爑…!²p8QÑ7bŠ <öCdáp¢ Ñ7bŠ ÔYØq8Q…è˜"-F†ÈÂ1‰*DoÄ9_§ÇÈÂY8&Q•è˜"=BÀY8&Q•è˜"WŒ,ì8&Q•è˜"Ïœ[ˆ¬ˆ)2pÄÈÂ>ˆcÕˆ>ˆk{# Cd¡lD5¢bŠ ÔY" e#ª}Sdà±G" e#ª]ˆ)2Ðcda¢lDu¢ qµ×9cdaˆ,”FT'ºSdà1ß" ¥u]ˆ)ò̵…ÈÊsd¥4¢N¢+1E¶YØ•(¨“èJ\ýuöY" ¥u]‰)2pìó!²P:QÑ•˜"%Fv#J'ê"ºSd ÆÈÂY(¨‹èF\ãuZŒ,<!÷äãˬ(ƒ¸/áuº×x¾o#†ÈBDÛˆnÄ8cdaw¢ ¢mDwbŠ \1²0DŠm#º—¼Ê¶m¡òÊçÎ+‹°­±ÝÙ¹7ºí£ѱ·Z„míÎνÑ=õV÷Éa[cûdçÞè‘z«coµ(ÛÛ'{)YRouì­e[gûdçÞhÝG#¢coµ(Û:Û;÷F[ê­î‹-ʶÎöÅνўz«coµÛ:Û{y¦ÞêØ[-ƶÁöÅνÑkˆŽ½Õblì¹±sopÛbï…ÇÆcÛ`ϽœÜRouì­gÛ`Ï{£{ê­Ž½ÕâlöÜØ«UëqÇâ§<öшè}=dq¶ {6vî–Ô[=[œmž½&YSouì­–É6aÏÆνÑÇÞZtì­–É6eÏÆνўz«GgËd›²ggçÞè™z«coµL¶){vöZä•z«coµ,¶){vvî ÞGï;ô^XÛŒ=;;÷F·Ô[=[ÛŒ=;÷F÷Ô[{«uc›±ç ãU(äØ[=[7¶;÷FKê­n΃­Ûœ{£5õVÇÞê!lÝØæì)dK½Õ±·z[Ûœ{£}ß Ž½ÕCØÚØ6Ù¹7z¦Þê6ÙCØÚØ6ÙSÉ+õVÇÞê¡lml›ìÜ<¶Ø{áÐ{á¡líl›ìÜÝöÓèØ[=”­m‹{£{ê­n‹=”­m‹=ÙKÉ3õVÇÞjQ¶5¶Ovî^q¿÷…coµ(Û:Û';÷ïsž:;ì÷¾°(Û:Û;÷F·Ô[{«Ã~ï [gûb/#÷Ô[{«ÅØa¿÷…}±soôˆû½/{«ÅØ6Øa¿÷…so´¤Þê°_ýÂblì¹±so´¦ÞêØ[öÛ_Ø{nìådK½Õ±·Zœ^/pá¹±so´ûÑɱ·Zœmž{£gê­-Î6aÏÆ^“¼Rouì­–É6ù¯ê—¸ïž½&xŸa/ìÑØ2Ù¦ìÙع7ºûÕɱ·Z&Û”=;;÷F÷Ô[=:[&Û”=;{-òH½Õ±·ZÛ”=;;÷F˱ߛ{«e±Íس³so´¦ÞêØ[-‹mÆžƒ{£-õVÁ–Å6cÏAöc¿79öVÁÖmÆνÑ3õV7gÁÖmÎνÑ+õVÇÞê!lÝØæì)àµÅÞ ‡Þ akc›³sot;ö{“coõ¶6¶9;÷F÷Ô[}žé|å!lml›ìÜ=Rouì­ÊÖƶɞJ–Ô[{«‡²µ³m²so´ûÕɱ·z([;Û;÷F[ê­n‹=”­m‹{£=õVÇÞêóÜõ+kgÛbO#ÏÔ[{«‡±Ïͯl‹{£W˜Å~åØ[=Œ­ƒí;÷žÝ·-ô^ù<™ýÊÃØ:ؾ±ÏÓΫ[ê­Ž½ÕÃÙ:ؾ±sot³Ï¯{«‡³Uؾ±soôH½Õ±·z8[…}ž‡~åÜ-©·º7öp¶ ÛÛ/x¼åÆî9ÉÇ= н±Çd«°½±so´íû½Ñ±·zL¶*Û;÷F{ê­î=&[•í{£gê­Ž½Õc²UÙÞÙs‘Wê­Ž½Õc±UÙÞÙ¹7x¿ù¦±Cï…Çb«±½³sotK½Õ}°Çb«±}°sotO½Õ±·Z6¶Û{mä‘z/ìÕ/7óÛÝ[6¶Û{mdI½Õ±·Z6¶:Û;÷Fkê­î–­ÎvaçÞhK½Õ±·Z[íÂ^ì©·:öVKcëd»°soô<î2OŽ½ÕÒØ:Ù®ìܽRouW¶4¶N¶ëçûåÖÍ»÷õ¼ê~Ü·Ý•-­óïðóvÙ»]Ù«“Ûc=à®l9½¿ãFñçÛ”ç[Àï·)?á6å}ò?ÞžðàûÛíÛôëOS—_žÇ ü_~ù©O¿¼øêöñ×_x:àqçó[>ãl9¦3œÏ¶Ï8{×æùìùëÏîÉ›ŸÎnŸž496ýØñ­Ûo½\ÒûoXúõc„ÜC§_^Çd©—_~èôËÏÉL/¿þäù€Çý<·ìŸxü#ÂÇžÿ¦ðé€gòËçüšçgßgÇ—·Ÿ}M=N^Çkï>ûšzœ¼OVó¿ãšzžýxÝØg_SϳçqOŠ¿ãšÚÏ>>'ûõ5õü pÿ˜pÜAâùaì…ÏŸÞüý{òO·ããèéñºöÓOy{ûÝí§üãÈ1 ò~%w±¾÷ÿþËÿúúo_ÝåöåwïÿûíW¸½ùM~&N§}z¯kÿkß|:ÞÑoß¾ÿîçwÏwöööïïþóþævóý»?}øðÃíÃoß¾}ÿöûŸß}ø)>Πâýå÷O?Ãö]¢ÇýLJÞþ廟ßÞÞ|u³ûüÏãq>|}÷¼¿ñÝ»÷o¸x¬ýùík}úMÚ·^í[kíøƒù|ŠOŸÉÚ·ýÅQý¶¿Ä¸ŸÉŽÛ ½ú™llÇf—?–Égg¯E>†Í¢G¿ðó‹_ãc=`3öììµÈó±žä—¿ 6öèlYl3öììµÈ+õVÁ–Å6cÏÁνÁm‹½½ÖmÆžƒÜŽªäØ[=[7¶9;÷F÷Ô[Ýœ=[7¶9{ y¤ÞêØ[=„­Ûœ{£%õVÇÞê!lmlsv¼^Ãk_6[²›YÈÍÙCØÚØ6Ù¹7ÚRou›ì!lml›ì©dO½Õ±·z([Û&;÷F?6ƒcoõP¶v¶Mvî^©·:öVekgÛbçÞàý«:»-öP¶v¶-ö4rK½Õ±·z[;Û;÷F÷c3 9öVcë`ÛbçÞè‘z«ÃõþôË°Ýça˜W>+½òyØç•}cO#Ça·WŽ½Õça’WÖÁö=¬©·:öVgë`ûÆνцa^9öVg«°}cçÞhO½Õça˜WÎVa{cçÞè™z«coõ˜l¶7öœä•z«coõ˜ìó0Ì+{cçÞà}ؼ²Cï…Çd«²½±sotK½Õça˜W“­ÊöÎνÑ=õVÇÞêó0Ì+«²½³ç"Ô[{«ÇbŸ‡a^Ù;;÷FK†yåØ[=[}†yåÜ­©·ºöXl5¶öy˜dµ¥ÞêØ[-[íƒ{£=õVÇÞjÙØça˜WöÁνÑ3 ürì­–­Î>ürî^©·º [6¶:Û…½Xâ0Û+‡Þ Kc«³]ع7º…a’WŽ½ÕÒØ:Ù.ìÜÝSouì­–ÆÖÉ>ürî©·º+[['Û•}†Y-©·:öVKgëd»²so´†a˜WŽ½ÕÒٺخìÜm©·ú< óÊÒÙºØnìÜí©·:öVKgëb»±ÏÃ0«gê­_o>½ÿ1/6ö±½¼¯‡ìÆ^ƒ¼Ža˜äØ[-ƒmÛ{ƒu‹½îΖÁ¶íÎνÑ-õVÇÞê}&Ù6¶;{ ¹§ÞêØ[-ÂÞ‡I’ÝÙ¹7zÃ0ɱ·Z„míÎνђz«÷a˜d¶5¶OvîÖÔ[{«÷a˜dklŸì¥dK½Õ±·Z”mí“{£ý†IŽ½Õ¢lël_ìÜ=Sou_lQ¶u¶/vî^©·:öV‹±­³}±—m‹½½cÛ`ûbçÞèv Ã$ÇÞj1¶ öÜع7º§Þê±±ÅØ6Øsc/'Ô[{«ÅÙ6ØscçÞhI½Õ±·Zœmž{µêí˜qû´“õ†IÞ×Cg›°gcçÞhK½Õ£±ÅÙ&ìÙØû0Ì×í©·:öVËd›°gcçÞèc¿5:öVËd›²gcçÞè•z«÷a’d™lSöììܼ›Wvè½°L¶){vö> óu·Ô[{«e±MÙ³³sot?†a’coµ,¶{vvî©·z†I–Å6cÏÁνђz«coµnl3öd}¼r {«Ç`ëÆ6cçÞhK½ÕÍÙc°uc›³so´§ÞêØ[=„­Ûœ=…ï÷¾²(Û:Û;÷FÔ[{«Ïû½¯l틽Œ,©·:öV‹±Ïû½¯ì‹{£5ì÷¾rì­cÛ`Ÿ÷{_9÷F[ê­[Œmƒ=7vîöÔ[{«Ïûí¯lƒ=7öròL½Õ±·Zœ}~½À•çÆνÑëØNŽ½ÕâlölìÜ<¶Ø{áÑØâlölì5É-õVÇÞj™l“_ðª~y=üîO7®¸öšä~¬‡<[&Û”=;÷Fc¿:9öVËd›²ggçÞhI½Õ£³e²MÙ³³×"kê­Ž½Õ²Ø¦ìÙÙ¹7ÚŽýÞäØ[-‹mÆž{£=õVÇÞjYl3öéN9—νÑ3õVÁ–Å6cÏA^Ç~orì­ƒ­ÛŒ{ƒe‹½n΃­Ûœ{£[ê­Ž½ÕCغ±ÍÙSÈ=õVÇÞê!lmlsvîÇ~orì­ÂÖÆ6gçÞhI½ÕçyÙWÂÖƶÉνњz«coõP¶6¶MöT²¥ÞêØ[=”­m“{£ýدNŽ½ÕCÙÚÙáëý çÞè™z«ÛbekgÛbçÞè•z«coõyžý•µ³m±§u‹½½Æ>σ¿²-vînažý•coõ0¶öyü•sotO½Õ}ccë`ûÆ>σ¯©·:öVgë`ûÆνÑæÁ_9öVg«°}cçÞhM½Õ±·z8[…}žåÜm©·º7öp¶ ÛÛ/xT¿ÜÏd÷¾ßûu?î÷@Þ×C“­ÂöÆνÑóØïMŽ½Õc²UÙÞع7z¥Þê}¿7yL¶*Û;;÷Û{/z/<&[•í½ï÷~Ý-õVÇÞê±ØªlïìÜÝýÞäØ[=[í{£Gê­îƒ=[íƒ{£%õVÇÞê}¿7Y탽6²¦Þ {ñÇû1îîƒ-[탽6²¥ÞêØ[-[íƒ{£=õVwaËÆVg»°soôL½Õ±·Z[íÂ^¼Rouì­–ÆÖÉvaçÞ`ßöýàèÐ{aillWvîn©·º+[['Ûõóýr?ïÝûz^÷q¿tW¶t¶Î¿ÃÏû©ïve¯Nõ€»²åôþ¾Ýoz¾¥ý¶m·óû-íKì—ni¯Ç ÷oÏGxðýíöm>à…c߸÷8`/òÿxÀ“§üØeþñ€'?°¿ŒÆôSÓ§öï3Oýðpß_j)·q¼àåÍ·/ïÿ÷«Û›?ñ¯oŽwÎgï7úº_ç³ûgœýsy>[>ãìu i8Ÿm¿þì}‹Áý=Ÿ=?ãìÇÎOg·OÏÚþŒÎv³ã[è?Þž|¹¶÷ß´rÄ1MîÁóë˜òõñ€Ï´~ÌÉúxÄÓáÇ¿|:äùoçCÖñ¯Ÿyø|ȳþã!çÕüò³ÕýØniÇ‹6?û{ž½Ž[Ê|ö5ö<»õãŽ-Ÿ}‘½œ®Ç Q>û*{9}Ÿ³}þeö<½ïÛÝý•ëìù±á ™Ç='žá^Ø÷|û‡ü¿‘Oÿév|½uíôùö󧿼½ýîöÓ?þæ¹o&Ü/Íû~ÿå}ý·¯îrûò»÷ÿýö«?ÜÞü&?§Ó¿>½×¾ÿ½Ún~|wðxW¿}ûþ»Ÿß=ßÝÛÛ¿¿ûÏû›ÛýÍ÷ïþôá÷¼}ûöýÛï~÷á§øH›ûqƒÅ>Ž}¤Ç#}ûö«ûepûòooïOÌ›¯nv”ÿy<؇¯ïž÷7¾{÷þíø¿øÿ.r{ endstream endobj 4534 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óû endstream endobj 4538 0 obj << /Length 2521 /Filter /FlateDecode >> stream xÚÍYKã6¾Ï¯0ú$cFõ 0‡ 0³ÈY,’Î^69Ðms#‹^QšNçקŠEêá‘3ãyADÒE²ž_U±ÃÍqnþñâ»Ç߼͢MÉÊ,Î6‡M†Œ'Ù&"–ñróXoþÙœu-›í¯ÿüæmšÏèy™±¼,á4KÉyŠD/BwÁfÇóˆ¥e±ÙÅ9lâDöt’-Æùì°8eÉt–hzÙµ¢Wï䫇c'LVXˆÂ‚¥q1nkë펗¢ÑG=˜æ’[·–)+òtõÖF³veQ² dq[Øv—'Qðx’Ý6 äAwòåv—ð0Píwƒ¢’¥YºÙZË4ují¥^ã´ô¾æ"+uxVí‘æýIÒ ú‹VmO³wJL¿¿/Q”æ,#†ã=³"X$ÉóQp`¾ŽÃY¶=°gÀ¾»NúJÓ«3˜¡ž¸°§F ŠRÆÓÄûKeD•o2Væ¼@¢„%`±]öNˆ.^a¨òÍŒÍyüK÷Ò‹/úk^ÝaÉ¢üJݤԼ öº?­0Î3†ù‡ùΉowj´ÂwÎât3£A—\QT΢,ÿh=¥·õt}ŸQç¡éE+ó£ÐÖ†ðíŸ/ª_~·Ò@vnV«Ã6N—0®àZü%LCòC˜4ê·m²Q'­kZ3CwÀEQ!QŽwéCg‡ÿT/É8yáZ.mÓ Ç#ºUTæÁ“óÀ( P ui$­7ø¦¡¾ µ±ˆmÌÓÞÆ‘t®ìÜVAdóq·Úç=„,x Óµ’<-yÊVªÞ‘ªv:€ÝàFŽQàÒ³?f¤U- $d[¹X)u¢×a‹RÈÁÞÙÌÞ ^ RèÄûi¥—º#"P¢Éë²å1‚Ü?·bñÃÞ ùïaßàOÈóæÛǻ•ï‘<pKÐè,{±Ã¢êÙ mÖùìWË+|IAYá‘”VEçÈ~kÉ:îtŒN«Ú‰¦ð!é|ÏÔôÝ»C\ÜZ—™”kp2£ô 8ˆS(‡€ÞsTP%9ä=ïÈÖQFê€_<¼ó F¾ô‹Òí›C>'Èg&ÔÝÚ #q¹ø¡•—ÜyÖn¥Ž(Wó0Ô;zЋJO”Að´»kyg›¼P?êþŠ•ZÊ¥,šjÌ‘Óë!f%o™P^·N‚J´t¡+‚i4bq ¬ÍÒ¤Xjá餪‚`â°cë¸6º`éa WgF‚é,/ãÞB0öv!*´¥²Ó¥‡£»×• HŽ¥ÇÕµ‰ój»ŠµÉŠ)U[5Cm]/ãJYâãˆÔyÙ!Öe}†ñŽ áüèé檥«P< {»¸÷äôIÙ² ét·ø ê#¨=*šŽW€kÛ$ lƒÏÒ4’kWá]Éç4”cæGT!¦djËŠ?þ@ºW~ÑFEîu’£ {Úo- µèt§Žªõn\M–ç€ý &±Ä ¤ChøcŦC€¦áˆÓK/!Õ'£#CÁ†V-þÚós–…‘ßàÝì%•ÈƉ$\Ö†0 î—Ñ–Ñ6<,æú·ó³­Äp´—ô%H(|´˜±íªvÙ±¨ÆUa®È¼Æh†š´êÅ º=õÓ0Q³óßÇ‚¸|lg¬AVZN@ƒ2YC:ûÉöÆ+%„#£¥7 ÖšÜE ÏúâÂL)nÂÆ Â K=>Xˆ*¸uoWÏì ¢°ká›Ó…WøAðHÁ‚Ô“±–ÁbçÔ– Ù~5DŒ]u²÷$œjž$¶²—Â"%‘¯[ÂŽ,œ$VÄÎôÒ¢ ^â%Ó w$0èäÙ5(CÔÖ“àÇ)§$ܵe8:+c³ÃŠ î˜Á+¾C¯¡=;O\#Ë*}U^]ÙöL ¬@z±»ŒÛ7w)*À®ê- b1¦–„11ýŸ-Ö×Àô­zmQŸc *XVÐÞ×­¯uÿ7¯j}-\5?+Ñ’'ŒOY±Â8{pòðG¶ú¹ñò”Ì^žxœ¸&ÈÅÈ©>¡R"…ÆÝvn°mf/T;–ò½ßMxaÙÖç äå¶÷g¸ Ý¡U”qã쪅§ºbÀt Ï“O¸„+¦$ b(ÏfÙ‡GN àcTô6ßÁÔ¿YšR:†Á^PZàX‰Ñ×-*X·HÂœè€`üº ùA“nC|'Ð]/Ú¼‡n·óØâ ß,äôd¤&A¦ç9ãŠýW;wÑ.JÁÇ3ŒÏšÅ×¢ó¯']=Ø nÞgûÖœÞþx'šg<ÐùˆÁG$lº¿&s—»˜«t×I!_~yÙMX~ÿõ•bÍþãïwA!]“½×ƒokW”ƒw\O·j{|f°Ìš«®ÿ‹ê„îj¸\þæ½»CšùƒÏ®šÕ ´ä‚\ôúý† DŽûÑ¡CüÉÐ%ÎöÕlÁ,æ%ˆU¢qïï½®ÛG0xÝ`¹J5ëóZš£Œñrl’ÃÕ·û$ [ÿKØô Èm']¿zxófí?SiÂòrVü•Fy^²<âKŸ0’ݧÕÔý8ø,ýûÿ$KLÉì{—E]+ßnÍy˜*¤ÐBæÃIÚŸfåYÒ¾#ËBöûŒ4»–âNûrUç^pîÅ°ùì­$Œ?ø–²)¹~¦V²îgèéòe˜š¥ÖÏ`ƦØ{¹ùú‰öKø£M´÷ŠöuÓí‡Äòß7/þi$ÁÖ endstream endobj 4569 0 obj << /Length 3142 /Filter /FlateDecode >> stream xÚÅZKÛ8¾çW}r×(i>¤g73X$™ÙLv±³ÈÝ­Ùr$9=™_¿U,êiÙmç°‹1E‘T±øÕW6_<.øâûW÷¯Þ¼ £EÂ#Íâa³œ3¥Í"‚•,²Å¿—J™Ûÿ<üýÍ;#CU²ÈÄ°TÛb[f¶À‘¯¸ÿ@ûûæRƒ© #77t*Záý§‡Ñä‰h‘aI,ÛÏ5¶nnòeݤM^7ùšË ý6O–Eþû­àK[äOe™Q_SJ?®[hSV“©°'»†‘;z¤ý¹æ>­Ò­mlõ y ÿ 6‘}¼a/| ‹£°Ûo¶¹|Ç™½áò±²¶ït]Y¹=µ‰ öÿM²ï/}|¹•á2-ö#¥é¤dMzWÃ*‘#X%Š” ¿Í­X:™¡}$3ôµ2à íZÊo×wå»GêýŒ*Z€‘ŠQÉcE vÁt¢I$NÃâÌši“,cþBcÄÐ> Sݶ~áJ-d:V ÅŒðú’ÇŸŠ— ¶tw‹æÛŠ5f„‰$ê?úA£“RL‰nÌÇ·sËH8ÂnÈó“Ý‘Â~á\6N0¸ÃÄLÃĸ* =0So«öó!-»AÜmÀˆë ³¹î¯DÓÿ ÷û&]ör9A>ìnó>,çn×$¡…î±írUÛê N° l¶öqgiQâ¡#ß5¥_¾]ºlëú¹5õfÏz×.½úÚÏ:# n쾞A¸Õƒ3…ÆËÇÃÖî<ýŸ€«VL†/âU‡z„×ãu¤fŒ–_ dçSsÚ]Ùúº½]稛½ b Z } PÌ»u¹õ0M³,GG˜zÿŽ5W¿éÏœù혡 ‰&tÊ„qP¾[õƒmžÊ¬>(Œ5 !Jh|$ò€°Q€„ÊÖ‡Z!7ÔÙÐ[í‰уÝÞmã‹´òóÓÛ´’î2°¯¾÷9ož¨ÛÄ„,^T(-5?)yIBOK¸ä9KäØ›ÃÎ…ì69ow¬—è9@dÈ/1L9þ8^i—¢§uK+¦Y•¢ý>ûn·Û‹7)tvÑI½/ʳ{„CL åG3Úƒ0à/âp ЇkT-@Óa¯èr“Ÿ§=1#£©ªaÿQäõ §ŸÈ,µãèq¬¿åªIs?*¥Anãôrã;jƒFQ>GôŽ3kššÒãXŠr3ãÊe’°ˆ_ìÍÑ7Û7“°ÿ`0  ÿÞˆBäÆÉT´Ð¥â.†7ÇÑ0õ;•ÀÐn 7­¸Y~WV`Åûr—‘€×ër‡¦›+òœ{øXl ¨]zV~Œ·‰? +nîÅÐRšÅ=_ƒd›Ì°¥Ì±Ï‘"‡SHƤø±lì·0âOn¡„GðÈóÀî¬ÜYêù’§Ôµ·Wåë´ þrÔ’ÿ™ÒÙ ¼{Ecˆ[áU˦Ã$¸?0B.ï¿Ò‹Ì’ëŠ~}…Æ}q¯B'Õ9…í„™ãVàÜ·ÎÏ̸âP±D‹ö;7÷ï¾ÿùfÆV”b<ùb\•X[..R"iýNZ„ÛsSv“Ë lhKùîŠÀG„,jvÅ6ß­Îî#aqÏìƒô)©©þKihtG_Ó³Ó|7äH‚‡ÌÄ®AÄÏé| .e'Ú>]ÿž>ú/"àrfÙÔ†L&båê+}ôRÅ\ü!pZ½•ììó¡¼ê;°?³¤hàBäBÔaº­®ÜZ^ûÑ]{žÓFuƒEçSŠßF÷´ápÌDÔ²œéÒZKÁˆ2¢vMÏl]~^«äÀêl\ \`6FÒëžO½˜eÝÛ‰Ðô˜o÷”x9„W™gÂtï_Á<ÏFìÀ1Zm³ç´M@4Ÿ¸^:*/¨bËF*‡pm,¾ ïèÅ S5ÐÕ™j¶éˆñرȾØÕ+~¡Íê/ A’aqêé·ßÏj(/ÒG|.P>þÇMýP–ü·¶Gl}…9' Ý¾Ä¾Û~«<>º7,œä-o%_:‰ÆQ:|±Œ€ÑWë¶é$³Ÿ€¢‘/{k‡Æ[c´n’åÛ,Ý£¥Ôä¿ôþ¯yIµ¶iµ~rÕ&xêÀÖ²J¤úe}û*Ú™ÓM±(Ò3Ay–ËùW³°÷€‡5¸—³%~TgdW©sfÕÅ0ÅjóX¯ÔúÜ·4|‹>Hm¼Ž QV5ØŽ j§WÊÊ4ä}·žx¾P_ÏKWäê†é¾Î_ƒ%ÿx)£’ƒ"¥sì^bBty±ž@Ú›¿«$úKÑ\¡Q§[ßÚA q"Zø ±¼O«?ó"̓û²z¶.ׇ‘UšåT(˜Ý¬»¶Ï1\{Än®ã rV¡aªw÷÷/ãõµ×0† åqGçŸÖÛn§éoD0„X}öéËöªOõÖ‰g˜¸°%q‹ç˜ªEa ”QÏhkªaÀX‡Ž¸­Ù@Çû³ÁàžºÞÝ=a„“x£;ûðº³ÃäFŽ6ö“—ýœ> ê/ž˜Çðn¡ZçîE½!„dmIŽ£<®ÈR&Ã<w´´¶wÓ­•ïy„h;êre/Å]Ù ×O°ÅuÓ.V7ŽL¶ s¿ÀçCÙX× ¹‰1(Jã’>ótTœæ*BKDâk¢Ø@¹ñwP`§—úbãT69­¸ ÷5,2j>÷ÅåÏ澂…ýAOsßmúGÞÜ Îùk}d‹Þ Ä'`Áb1I€‰?â~’s½Ãc¼*+ãàâòù( Ñš¢ò@Ã1ªIØ!])_`Yµé§Èåý÷ÿúÇ[êìhÙ×·°ŒE»l8m¨¯³| *¶RJõ–¯#Nk¤£”À™ÄxL·šwE4©ÊîmJ/m_å*=H´’®Òp€ã[øÅ‹1ú{°´Àâ ädÏOùúÉ¿õ³üÝôP ðiõÀ[Á@ȳ*m•žÖ~¡QÅFúŠŒ¯Ë)&ñÊr7g¯jÁÍê™ë4wå.U¤ÑþÎiöÅ F·I¿>âqã«‹FŸŠæâEIGå#9çÄ37É°8y8¯ HáÓþO&æ8NÆœEBi黦š%'™ŸóPþô‘jrOU>rEÓFîž ':z‰©¸çH‡Óx×¹¦»ö/šˆ¶ZùçÞc>FÕžÅD33ÕA}Xeù—¶C\4¬œ'Ì}ÄiG÷©{xõ_¿1Øâ endstream endobj 4421 0 obj << /Type /ObjStm /N 100 /First 988 /Length 2105 /Filter /FlateDecode >> stream xÚåZKo#7¾ûWð8>„ÍWñ<öN2ÀnسH²†©íÑFR{¥ÖÌäßïW”Zn,oË’|°\Ý,VYõU‘M:g”PÂ9„óøo’Ð>FXË-Æ — Nx™ ¼c‹¤rSZÙÊj¡u #PFhcX‚µ ²P넶:¿#P”ßy¡]–b!Å9Ö`#¨”U€"Ç=œfË”ðÁâ‘Ö ÆFe… ÑS–“e~hMÙ&­)S$Œ‚‰ ¨˜J˜…M ¬á¤…qÞcPfHçq‚”@¬ƒÐ#·Â0“Ûîµ°ÊóxðcµáQxب[ÖîAQX§³jÑ­>p 0ªÀïÀlcb«ðhSd½?*Ëcf•çÖƒÅdGñ#”p+ÿDöF„JÊ}#XB/?†<Ë?1{ƒ§)æn! ‚Sù•ý‚y&{$¼sŠ-Àd) h Ÿc&‘  3z„À’S•X2ŒôÊdÉ ”‡dRp¬ÁðA!̬'¦Høz¤<Ü0W¤‚ðÞæ òbö/¦É'¶€´0€ûjD«qùÁfˆöÀNÆ_2ŸCT§pw8Rºr"* *ëEøG£2_Ñ*–呃øØ PFD¿hµ Œ°DŽXPŠ#–ತòxÅÉèÜ#‰d3†€pÎ|€«#L]¢Àc:RÊöaÐZ) G''GŹ¸p" ~!Šßÿø7IMjÀv2®~ø!s¿«&µ89Å;1OîöŽò”-lïò±áÈÅ|æCÓÂÁD*?@xñë´ê_–µ¸ůçïDñ¡üZ‹•ÞÝ•hèÝ–GÅl('õŒñ˜û嬚Oûål‘ò»”ƒaïmõU\1“gw's E½)z#þZ™ñt2© íj‘ÒØžœÒ–„kjß!ßؘ¥o«é œfÕêºø©x_œá êš­ícœÖi8£Ú P¤Ð$51†¢´Dໜ¬!³øûpògqzr’5§ýzXMŠËâŸïùïͧº¾›}__¾|‘ã²îÝTÓïî¦Õ¿¡EVÓÛc˜÷…Ké"‹Ø`ƒ‘µa˜°FKƒÜ†¤+æ e°l§92.Eñcõ¡ˆ¬779÷ä|2<³ƒ‚Ôœ9Cb’ `ìbÈøÓíHZ&À­±ÃX+#×ÅŽ»²®g‰±^†èï- Qúnr;hHŠˆå¸2ëi€³N®ùܶ#§%“îÓÐÁY ‰ZÊÈZVÚ`nr˜O„‰Ð¹ ÜÔ•×ä•@7n”c©tgn£dÀ,vãÆIòR¦7ê¿ÔakV_Käë)þ>]wLñOÎêÎlfu§ºeu¬m2c{œÞ!ŒÚÌ«0 HÍéY˜]\Ð;r[”†:rS²2êÊ­¢vÏr¿­Â%¼~Rn¿(¡j¿‹»EI»öÛôH9ß=:%y«Cy3bB†ÂÁKü.Õrá²]R¡ëš ÷~Ë‹ð/hß4(<4ý±«¬ÜChàÓÆz“RjZ,Zôžáá7Ãܓ’ÈÙ´ìñšë¼W—âÍù÷[µÖV!¯lmû0¬Gh¹?N{wŸ†ý™øe^ßÍëã<®Á¼_N¹ÕI+õñRWůŽ×È®jÅ!¿ÔGÅϽ1·„doVfw?•£Ïe=ì÷ŽŠ¿MúÕ`8¹]l0[Cê Ó·e^þ5þX¸÷UñþìŒ,4OèuKd£qÑy¥¿øm89̆÷ÍçÛ›ÓÍžü¨'ó™H¾øϼªËQySó¤T˜¿ÙlXÜN{ŸË¢×Ÿ×eÑNûóñͨüZÔÃÑ ,ƽþ‹âÓ<èÒë÷áÉb0„ŠÙpVH xPÞSè.úpÿhÔ[½ü4ŸÜö¦óñ¨7¯‹ê¶š”ýË›Ýõúå:¶ˆvb›yU±HÞìžh×ආª6ܶ鄶¸êo¶e¿ÿò‘7Ù¶÷cÞ¯»°0}ܦ÷‡fz˜é3¸gf WLº³KÍëµn6¡’?åÙý €J8Û<8Ôè¨Ñ ‚š^Am ,úõE›gÚMm˶Õÿ@ŸqëýN‘É<€ó4ä¹3æÿh¶~c]Ÿ»ûDóôé L>IøG’„AIÂîú%Õ>(ó»·Õh°EðZö±¯î#+-ïX$ûtÜrn?³Àûðø'ÔÍ´Ä·§Èì™—ìæç¾Ù³ðZ'\|gè€'\NG™ø.R 2Y¾E2’ظÉhÓ®'\|·©óG‰5æûcs(6zÏÌNÅêw—ȧMïúðtï.uóõ®%aÂ55„oˆÐ±!Ò’XD#™ÉÔH¦F25’©‘Ldj$S#Ù7’}#Ù7’}#Ù7’}#yqHp¨ðµ‘$_w$å¥O_m$ß|$sÛÃ÷Ù­>ü¥&ãa6e.‘4& £äÊ‹•Þm¿9s7ªVÖÈY9WƒrÔ˜õ_æ¥=C endstream endobj 4584 0 obj << /Length 4401 /Filter /FlateDecode >> stream xÚ­[K“ã8r¾÷¯PôŪˆ$g]‡ÙõÎz|XG¬ÛöÁã%±JÜ‘H-IUuϯw&2A‚,P]ž¨ˆ"‚@"™Èüò!±yÞˆÍ_>üñÓ‡ï²rS$…Uvóéi#…Htj7™”‰ÕÅæÓqó?Û¾:_Úcu~øßOÿöýO& ÆëÂ&YQÀln¤Öú xÍNg¹°S¼¤iاSõ°Ó©ÜöCÙ uóLw/ÊlËó­êéþ©í¨1Ðx±ýEõùAšmu¤'Õ¾óT†þ;豩ë蔳}å*12õtþ"tJ£²MŠLç8È$i®6:±ÒÒ0Ùq–äÖ¾¦Q#ÙDÒ/ˆ¶9¡»®:Wøœ5õÖ ?-›c{ùþRó¦vÁ~hÇ}µC"6;YXYAC&…1´ôÖ-L¦²|ë¾QËK`…ÊSXîHOâ<)Š$zb‰´ÑíšLú1ײ+/ÕPu¸G·Í_v6²íáÔö“SÞ†öRõ¡<#3°kÿ…†¹ï‰O·ÆmÀl¶û%¶·µ :”~Æsß23~µtÎŒ¾Â7 lLâ…w¡xáý¥lnL>­ËémÇ­C²"°sâÐ6C×FOD–d6÷ãÊîAæÛçÛ¥j˜¸=¯×_«Cýôe¤®ôD¢ }¼oŸ{*¯×®½võ( JÏ9QŽu)ÈGó<œ°mÜiz»/cá¼+Oî¾ʤnê!²±4Mr=Š‚ûbD5¬ÓÃ6μfp֗ͲDã²CySw—UËeI²S¿þŒk°¨ãZ–zA3#×¾3;¥4™ÍY Gì‹Š$Ÿ”LB_ˆ;w8 ‚áý…@K˜íéA 8*çw¦×Ô_V|ý¨J‘Þ=ª°"Uh€÷CWÖrÛ 6ž¡åA<¤ê†UÞ€ªz®˜È×S}8Qw}Æ"÷éô<‘ã»x÷õ¹x¿î»èñŒmv¤wÉâö:Ô—ú·’5[nAšžÛ®N—äa—Âyú ×rßÚ=~È 7þùP]b<ÐÏ‹Ógi@ziør­?âqÿYöŸ&8sÚðѫΙ8ëí±™6‰½l®A·x²°5JaOC€ÿÊr“(1’&«‰ñšjI“c;N Ä5‘©áì ¹Øt?TW°;±}ï´J!vå$/FvÀÁÏ}¬]U¢|üô·ÿüsìcSgzLeàÕ(eÁÚõu’(AcaÅ"¬¼ã°–®9-,?K bzê!{ }ÅKžðl©í “­"Ml±­Ûˆßï}¦±ˆF-RgñF- *#× 8¢ì¨Ýò•…Úß@-ƒý$¦8.ÔþØáµ?¶ãÇE!Üvú¼¨öAÜ£R“æIúšXeGð}|fPÙbÞòóW-_BÔNªOë-©ƒòr=ƒfŽØv”ÐÅgy<×ý€ªd\ùñçæÉهșÓl×hóÏõ““!­¼‚×ÛÛõZuÔ·ooÍ‘Éük;ð€áT²²R¶Ht¾(wpwÊgtà2ª º­z0dµáîØ1 Ð>œÛž»Ý€kíŸU‚‡Gºqt}7[äÕ‰®!ô…µ³"8šç¬ûþVɆ ¶ÞÑü#Œs¬XGŸä§ M¨<§-Üs|00üôJG Ö¥.p¬FÚÔ9Yü®uR%±ÏªdšH©¾A•~ä‰ÝšL•ªN%Âï—ÚIôÀ1z‹D¸MBùJ#ò™ÍJ… mVdäÙ„Tx€˜ybB¢«“¤@»U¿] ЙÌ6Á˜)†/§&ŠGC1£üT•H»Ðük¤i"ͬ’–­•›`Ì# @š"nØÒlÔ‹^e̽W [UïdØ}ªT„ªèÑ·!8AÜe³íÇ™§u2¡… œ†®5@•Ïè“‘‰r°#iHà?¿Ýð"ÍGá‘QÔTL伃Ÿëg3ŠÕ Åæ=ë{§I‘‡Ð@K§.2æà +¶ÎUytMíTv*»_«úù4ððêàßÎ‡× j¥¹5Ûï؇„C›%ê!H¢hÚòÖ“Ó\lÁîÏÕ¥§'¯L$Œi/ׇrà–ÝÕlƯ¨k«s}jÛ#=ô^?J•)ؤÏ-jÓ×qŠ?Õƒ{•»¿Ñ„ùàù=H)·\APŽº:0è”™‹Ëü”…õ›ÁC°hðJêÿµõ ¾‚(Å®š|$o¯»0º€=CÛÒl§¨®‚ž ¢Å[DmªPÃœ]Y.îÐ+©¶v±둵dÄ ƒ@¢Í8ºa³`GL äúRžW°Nª3Au=lÀÌη³veÄ"¹}F4*‹¡DDV“p½ØR‡ó?ˆgÝÜþýé ¢aŸE>ç[]­MÜ=ÑpÆ•\ƒQžW趬¨Ô)ˆI™›"ŠÀ5{ðu Ø"à#î »²«Ý¹Ã69Wš ¶'üJ£âþPh%øx«$“v¾ë»C€ /æøâÚÂJQ€QœµK€¡Ö ­*-âÿi`m"òtaÊ0De¿aÙ GgÛŸ€ÁuÛ?|® „7ûÂ1x‘p§'\¥¶7‚ŸÐrஇº;Ü.¤ªÜ™I½jWÆÏîh Ã0Ã,¼y’.Ð38Ú(‡Xn§`ˆñÚñóìÌ8”óçÀŸI§èÜȱòÒ‹—,ò±yÌ‹‚þƇÂÁkÕîÀÁ£© ¥àó]ý™^8´]Wõ׶9’q€ÇΞ Ãû =õ;ÐxИEæ_˜gr¹zÓœ;Uü™ƒ<V2̓šJýö r:le$`rJ'àÓûéj ¸¥ tnغ“83T¦ w? ´±@$.à0 ÐÞî1ÆXñ²`^IØs gp‘í€m¦‚½Oùl6þµê{!ØJ §È˜Œb&xmÀt>!¡3KÏNpŽ4äÖÏæ¥dü%ù¦Ãœ5ÿö—K™«$Ÿó‰H™%Ö–.O¬¬ÇD´ôS×^fD,cÓZ!¨,æüíý ìï%n·õd·¯åá×ò™ÔM“”š¾ëGZ¢>Gýˆ;ÙÍâ±L »‘rüèý1¦‡AºG¥2KƤÞxOnr†¡ãæXvGº«º®ízBÁVès`÷Nþ0¾7Ôý˜Ï’.ÌC} Í8ÇmÜE³¦µÆ‘@«êøêq±…©Ôöß]Æ ßt8 þ‚†<îfûŠ˜‘¹ ä\”þ4t1¼dÀWã¤@¥Eà‚ e kµ ´#b“Ŷê¢bFZOOÝœpu˜®×²ïýpgm‚1k¹3pqÓÑD‚68µÇ¤ìžû؆P«®„ q Oô7NØ}š}ÓáD_9r8qeTd$¥psôùY ncæÞG`me±bmUž˜)·³Ä—Á×ûºG‹zt mf©KáˆÌù‚äé`WGPFÕµPR#i: Ö]Ý£ U  Ã®<\Ê+2³IfäBú¢Y ‘Èâ ‚?Üη~mIim¢&¦æý²M ô̸ÐZ0û“sûûá‡;÷>¹FØ .½‡¼Ñßamð T¢–1./Ûìß“åÁÖèÂ#öBÐ0yÚ +Â/RbŒ|¡U7ý–ƒ'¦ŒvØ\Î}K±wõpS®“¬_GdÚ!2³ŽÈò &È“˜,@ðÙ„(9ÓìT\÷œ@î/#øvyfªQ€·jÉߌÞÛ)§ÈÓÍ…« hó#Þn $[¥ÑÃÌÅI[¥„ÁãBÑP-ú‚“:~‰ÅÉrU|5²‡ú7t×þGüóðbé’ù˨ó%â*hÚyñ×·{K“BÌ✓’XC?FçÉåò‹-! óòFP–4²–àl|œíí-#ëh0[Ì9 ð¤unOPïÒ‰I!0B”—Èt¡CŸ‹Óâζæv­œ¹|…qÔ)/qâ\ûp;~ñá7ÊÌ7ñ‡Bç¿Ã¡@$ó™üû¬ÿä ºÌÕÿàž»Š;Öð¿U]K­'_n@άáz^¤üÄŠ«b%šêÄØ·‘Iï£H ü|E7ERF»fHê=Dcá¡s¥]jX7¥ó‘àkXFf„ÿøìpZbß— ½½ç—Ëã.üû­(>ZP üÿµ0`šˆ< ë~†xÐlÏ—áB·ÂâR®2"yŽÆ²  S¬&A™€G±#¤MLZ„ðIè_ëpD¾9&!£Ðr1¥Ó‚uKt±8‚uÛðÌlÿƒ"gͼ\­žJcì;€ÈIÖ©Ä:\ûî2 €ó™.¦|ELÝÛ0d]S=]¾Áý¾âl@$ògÀb¿—ÍîÙQøöàÒ†š„@Žµ…`m!̤_¼K Á‹Hó¥ó¹Ð=Zz5£¹ä“éA>%(¨’¡Ž;Ò1œsÿ¹ñck.ÃBŒëJ¶Ì4Á"˜†kÅ未Åbq™¨û¾¾k-¢‚ þ‰2‹˜Î§1jwï 4â‚kyôŠï(£‘®ÖkêäkVf×4©rD-5[pî|rm益Ѡڊ»å÷T šmþ á+¼ÆÁöÄ%Ú­{_¸0%ðI«„¥ „ý¹ »øÒ:‘mý•äC8“ò Òóã§ÙãÜçý'ɧú<L_NpÎ2Æø\ﺂË90DY f”§˜úKÕíÛ¾Z+¬Úùáoâ¦Ìœ<§‚¶ù'ü CØÕýJ•\‡ýÄ&Æ.䟹‘uuª4‡zr_œœsq²›*îJcQ¡™$’÷´R@(ã–§o¸‚±\Õϳs=ò<(±XÖõšbÉ@õõê%æÞ—º:{ªö R¬ õ\Zª"ňX(OZ¯m’̦KztìT˜«¤Pv©­}B%ˆaQ¿È¬,ŠV±©kUuìßžEv4Ç4Ö¬Íòøiè•ãS_{)̪ºËf55]uˆðVÁíZž¡09,¾L2¸Š„b ûÂ;­±*ïi¢öä*Ó¸|¯þ­ò` ~®ÓE¹œó`Æ£¨iž-,S‹éútÃÚ”³rOÿS Áѹ¥”ŽÛS ˆ|æ²Ê$-TèAf&É—¹ëQÞԶܷî§Æ£èó_ÀµÝpÏÉdÀ+‡Á0À±>Ò¬b«yâq¶vÿwQ0F g8y`D™KbÔEw~L„IŠ©Dyª!ô`rçú.ÐCé´¹Fõp;©½üå t9K”û½äÚ—ÙBËk~==l÷=Æù9[ˆ=“ëÈË13qpGS÷´ùÞWw`ÝJÉUǘçÄÅ‚Æ~[8[§ ‹S–ÆîF³U’¦:Í6‘oìXˆéýY|4gƒ±s6ÀˆQ¦,Ï“…lÀY‰ Ð?²úGùÊf?H—Q _ 67¬§T*¬"ÒB‚E¦Q\5­ÇÜ8 =•Tªr—à9—|B«i·¯søbì©œá½Ù@6u0`!“[S-á0i ªOeB9 ªð =W>¼8Nä¯þôáÿ«§^ñ endstream endobj 4591 0 obj << /Length 3030 /Filter /FlateDecode >> stream xÚ½ZmsÛ6þž_áOjæádçzsN·Më¹Lìönæzh ¶˜H¤†¤ì*¿¾»H‘ 䨹›sÆ!°\ öÙgwAÓ‹‡ zñý‹W·/WÊ\d$Ó\_ÜÞ_0J‰úÂ0F´È.n—ÿN„Hgÿ¹}»¸Òl¤*Œ"F§0SjízS/í5_Ð0ÁÑès¡Œ{fÎ …ò©ìV³¹ YÒ­¬ŸHˆñDšPÅúyö¥W™.[*e¯’WËÈ0ÌyXîãÃ43–&»­ºÖ/Gž FO¬ÔÂxöÿ_é㌫$_ïlXæ“mÂò´=¤(1Ð UuX‘,½NQo¶»Î.ðh(o^øGÒ‹­ì›ïÑØ“·Ð‚°Ã[ضÈ×ÅsààIÓAŸÌæ2M“«¹[-@HSBµ¹˜B3¥Â:óÖþe6çB&e‡Wš”3–´¾Ùvåzí›ÛºmË»µõ½®†+Ï’mÞÕ²º¯›MÞ•uåù]½ë¼ÚÜ—o¶ýmù wÝݯèçíOá‡×†¹É®*ŸÛ' SÃ÷»ª8¬ö7ª¨%Äí…Hvm ¥sÁ9‘àä“- 3ãûŸW UùmÕ·—y— ÿ&‹ƒ»âC2MžVIh÷¼oÝ7ù&êFš(fú–y§à#tÐ)«b½[:CÀ¸axïM™{{Ã*‚kõ8 `e|p¨ËÁ¦qÕ«xÒÂi‚¹™ŒˆŒO·uÀŠ XÁm#î šð¦Ü+^•¬n?Ó ÷LdoÂw]˜, «³¤q¾TVþn}ïŃz±ª[[yᶱEÙ:|`wcóv×ôzyÞA /U¬œ·ƒÆ…ý»÷·îö^ØڮÙ?ßBzôÞ°D‹³{uùóÍ›È~ ltpw¯ Ç8Í8jÌy ¶ ¡èrû¸ëVuƒ@m{ ¾rÂg„–¸tÃüs–ÂÆ­ïf€ÜH4ϯ3 `‹Uw—ïlã…8Mäm3ED:¬þ¯OwßØ.ò˜o›úƒ-:R7‹ÂH%ÄÁ?Üò‰qTšŸS…$Y:øÕªë¶í7‹ÅÓÓégžÍaÁ£éŸc¦`86Ī•Ç6™!)SS+¼·÷ÖG[àtÆ~€WvÆTòðH—B'¯‰Gü+â&yéû×ù§Ýf qXÒ$¨^U´ Ë2é>7*Mþ±µMÞy¿b•7yÑÙ¦þ/Z/tÎ×Ü_š¼ú´ë¦±ë@üÎûlÛùlíைpíßa»»[—E*`çïʼ%‘°«Sxh0Ü«²{5¸¢ÏÁ!1fš 6Ž ‚ p×Cs2†kìJÝòf4Mã\3F{{Oƒ¶!”fÇ [Ö%âiÁ(XšC‰LF–„æ©­ÇËë¼;ôVd:yƒVL>nŠÕoBëꮩ—]]¡“ÅïzÅïmãy½lÄ€/g¼W»† O‚ü¥ýP®—7Ë0ÂÛ ‹[ÃC=‚hš¼FB ‚–w 4­o•Õ í¶íXw]?ì¿5¥€§ Å.‚Ô:ˆîà‡rôØy„¿w¬D«zχz¹|Ìß¹çÊ0ôµÞ ]žŠÒw :¸Ayô€HÞµû¹\ýøxø ¾Ó ÒÝúÚ#è¦(ÑëOzv6xy ÿcŠsc—)])cÈ…Ê‚Jý r3ˆ\¦¸TÀ|©4,‹CX2bDzá²ûˆ;Q#øžÊâiH±®‰kp7@ׯ3ÆXbQëwÐæAÑÁ~×?à§~—þ ¦-7uUÖ»ÖKžlù°ê|ûð¹žC(4\íå‹CŒ¸)B]§˜ŠCÑw° äz°EØGœ~{±¸ã.e. öOåsö§Â,ÀË(ü@$‹Z2O­ÌÔòW¸XT.¢Þ%Á+K~rWLIÓ`Jž™ä ÄœMF<Ô‹®áy[7!hÀŽÖ(»eé\:›ªÿ(ó&vÒ4Ú2(.wÖ+¹Ú‡GÃÏcÕG*–ŽT°‡Ú þ÷º®:»Õ: iöþÙ×€2ìÝ΀ì Å^Ç°çr†gñiDv TÊ#8"ˆ,J š@Îú,$˜^| ¤Kh?BD?C \CM2öìòÁbâ§Ð­¹‘èÿP †NHRx†‹PƒŸ¢Â4‡Ak׶8t­ÏÁAÔzAnL°3¥`)Äêo:˜ó çÁ0À34.lËsFƒ¬ˆ®Ž*s‚Ïù)>çR£ñ¸R_ÇçœÉEÛ.×Á¡…ŽNsBy:±Û{[ù” d$ܘäÆÕÌ&EÇÀù}cmµ¶Aá-ñ7^…«·mÚ;½0ÄŒÇ=%·¾=dOîyÊ]ahX²lrô±'WtÀ= ¨Y7Q»*AÒTÄìê‹ÐpbšÓÆŠZý%Ê(Aœcc6É73Ÿnš“6VgÛXP s(Q¤_7«¼r¶KSo3pRW_ðÔ$¯êÂEs4ñº Z¿ÐxéµÈ+¨£Ã?…!ngà<¡B¸”Anöa×Ú ÏÝ)=rô”†Œ[e8—Ž1wïæ˜ZÂä—NŸ÷9†?ùF9&\ÇTÝͦ=Q Šß*ò*;žÇ~UCM2MÌ¡Hy‡Y:Vƒö8ᣠ“ô3òˆ>ß #LÞòO$š@ûåÓdF*1Í´ÖœKÍ7'Ò9ë¹ï(ó”ØI5¤±³Ý›sÜa̬\ÀõIîL¿gÁ)0¼š ~i¼²Ï8t¦õ[ô¨ÆðÖÔxT/}ÿPð™Pði=*ø´îí®ú¢@¹C¼ó`+Û¸Ô:Ápó]Û4wM¡aÇXÁþPú>~Hò-¸ú  -¤Ñ,ÒåRTLøܱ@–9rÇØóÈv« Jéôlàè³xTŒ€#™++¤P_JÍâÕ '“"üº¹t *{G•¥[¤£lT¥Éî"ºÿŠÈ!iʺ)}»?‚t$Ž £`a°aRò/">‡ÁY%ý_Ça9ÆO8I”â+ñ# Á§)Ÿgiö/è et;*¤›h“M¿ŸÝØðEørÝÖÑÏggýíÀÑGµóþvàp&äéFõ‡“ŠŽÿ˜@…¿ŽpŸ@)ï|s8Ò€öÓªtTáK²ûrò÷ÎVKüšì´ý÷r5ÉC’è.¼¹}ñ{s0n endstream endobj 4598 0 obj << /Length 924 /Filter /FlateDecode >> stream xÚÕWKoã6¾çWî¡Y bH=­bui›(ºE½ôÐmK‰ªH籇þöEÒ–b9ërhsˆ†ÔpøÍ7/Û?\}»ºº½ÏHP "‹²`µ Æ(N² 'eq¬êà÷kÅD#k&Þý¹úñö>ÍGúq‘¡¼(ÀÚ Ç…QºÂîÐÎFÚ¡W£6c{èî‰6`jròÜóö>Žƒ%Î’ïl%§ÎÖWoøgðÀaDP÷xûïÂãkfAÛŦ—•¾ãú£|äÕ'»¤mm…ßØ£Vü§8Â$‡'qÇeo…5ÓN (g•æ²µËý'xìûJvÏVª©7Á[-mÄr2b,ÏPDR°¯­Æ„Ó%ËØ+€½#$FIR¼fÄH¹W8Ð`Xã-A5>…LjĨH—Ç›½÷áA­©úÈú.#OÉp®˜ >ÃÔ†;«=€’MÈ6 ZÍÐ<¶Ù35ÅÒ7ÔÄQ5õØ_ÑÍѯþ¹eÃôNÖåâÃO ¯À·\«22àÌm¯x°o[@9Èz΂Õ1Á–»õYð¦¬Ì¾Á(3—»7O‚®Ëů¡}Í?1­ŒºüûžM=k+¶ƒÐåóü^–Ëcо´~–>Dûö›9EåÝ÷Ñð jê°~îX¹08ç˜V¯VÕÀ®5µc³¾Ïv5cÛœr„‰™$Ø`:!s @¶Â•5í:/~‹Õ’NIïkî³÷‘ë³gï©àÚV•ì™žV$ømBàëd¿VL—Ã]ï ¾40Ç$KŠøz¯˜ã†YkÈ”Šj“·fiSϼQd^)2+µeöP2fvTí¬,;ͨ‡^Mu¶L[¡’íë·¦0^ó$„†:0•,£¦ÌÛ)SfGiÖ)›.G)Ôl‘§®j¸[÷R”‚«!Ï`ËE+ Ë®/3ì’Ìw™w×ÖÆæ¸?“«‡Âoø«_ôUp+ìÙÜU/úÀ1/O§L€aãÒQµæÌŒ™%$»xXÕû¦qñ@{N×~ÊÓє詆¡= ¯(ÉPšgo80dí—öñ+Jãß› •iÛîzVóJûÎO!«éÖùmCùâSeÒWôÎÏêÚµÖ'ÎaôŸê U|pŒ·ÛÙ.jMÛJË I¾—’ Zéÿv.!ã8U¾ˆŒ/(ïü¿ñEý §}Œ˜Ï*ÆÓ8ñèO~/Ü­®þí¡M[ endstream endobj 4603 0 obj << /Length 1090 /Filter /FlateDecode >> stream xÚ­W]sã4}ï¯ðxa؉]Érâ˜Á/0)  ³„'àAµ•Dƒ"[i7üz®,Év'Í26>®î9÷è^IEÁ:@Á÷wß.ïî¦YÇù,™ËU€ŠI: 2ŒãɃeüñ–¤èÝ_Ëïfx`J²iœÍæà¨5j˜ØªŠ cy‡Àý!Á–ÌR³$"Ó¬]L»òÍ»hŠÐÛRí¶UQMm‹K­,t†~²Yœà©GþÊZ!¥q:'Þü8Á$NÓüšÓʼ••åÄ>Ñ-—l@VF$Æ858Ÿæ=rk÷MÔÙǺ‘ B¸]‡Î¸áÇ9ÎœDoœH[¦iD%‡†7vH­ì÷ŸhŠ„ZÃvUåLjª¹’®³o¸\Û¦Þ¸0~¦R3½§L6ÿÂz¬ªÆXÖ |BÚ°Ìw½¥ñvclmö5+Â_>†;IyA¹kKÌ ø¸^É‹²›I`&ñ=£k|—¯¹nŠÄuA‹Fï«Cí†CçÇ©FE¹T»èAµQÅ\»ÛùRÕàw§dÕ)ØÐíNt½'Zs*Ëûj.°Æð­u¢™v/ZˉÖÎt¢ùdt¢µÝZí*–_\’é4ÝŽeZqǘý³§"b«+µ¥«õÎå|Ã0!7LŒÏòé]›nE¸X„Cº#¼v5«x©Y5ºk}5Îü ø¶°–“ÄÏݲÅ*V‘T°YÂç[ƒœO,2J2©y7Œx£y99)zfµ+ & YàÔ¤ËhYø“íƒrLê½üzÌ<âãÌòWÎÉžvPI&NWOB³Z¶¡`Mž%¼ÃInÇ•@ƒ‚o„éÃ!·ÃxÅ?#œ'½§ÝAÔK(c•)ü.vWËI"@Ö—ö2«AXnX™­¾X§½MâŨªö”ó¤Eø(ö,¼Á¹âN„[\¤W\¬kÆä¹jÙ‘j°ÐÕ$“½qíŒ µÚÕ|½Ñ>¸l˜.à`ðr}(ÂF ^yñ\É€V{@€D´ü;œX©&m´“áI˃à˜ÀKj„Œóò¾?8<\øaäèè&:Iåð×6玫ÈÃŽäX³QÏþÕ| ·øÉCRÛ¿ Ãk×÷o‹æÒkúxöt£ñª¦[f¼@ çÞgîíܤKÿät€œ¤v W}G<9)d8còyfðÒ|6ÀkXì¦yf!ÏÇÈñØÌû±cùÇðkõ,!x#qúw¦èõóaôe§ö¶€ƒ[‘¼P_×ß Ík=0ºõÅpÁÙÌÏyx\v“¼Žò:nÒÿýšr¸°;>|"ø%Ý¿šþ{±¼ûnÓ endstream endobj 4607 0 obj << /Length 1046 /Filter /FlateDecode >> stream xÚµW]oÛ6}ϯÜ kY!%Y–Šéa’mEZ¨ß¶=0m‘Iƒ¤ãúßïR$eK‘wKý`“ÔÕ¹‡÷Û(X(øýê×ÅÕõm†ƒ"*²8 Ë#%iÌ1Ž²¤uð×[E›¨ióîŸÅ‡ëÛÙüD>)²h^€ÖJ&)6BWÈ)¸¾M’ é,5ÒÓdž·âÓãؾôæÝt†ÐÛ%Óvêh¥™àvÛªVvÍxÕìjÆWNR^YÛ•RH»$N~+iÅÔŠµ“ÔnþF3Ä…¦ïív§ ,âSŒ¢bVôè©Š4Ôà•·¿Ü}¹±‡kêÑàíÊ-?Kª´WIÝ¥HÕÆ¥ð‹íIÍÜ€çâ ôÚ-ôÃöµ1–Žæ'!wü}O0ïœéôþ<íìÝÚØ0=¡S}ØÒr²&Í’ ¹™„Gƒ–E™? ¦’ÍAº¡Jù{ã ÊãËépº¢_·Fþ^l’ËÙ4bÅ”fÕ÷4Nz9­ØSi4@x½™GÎûy°{Úp÷ ÑÔåšXºp¦&ÇX‡ µ›JH`¼ü˜¿_nÔ¹«krß¿yM4‰–’l¨A=QR:xsl‚û‡öYØÙ+$ÃÔ*aË%G"_@ÐùÜèK‹ìDŸ¢‘L‹¹Uùô,éŸeV±?3º;SLÇôK±çpyc0Æ9–o –ÐäHØ©ÉXÒxÿN>ÑUëö)äŽà”kvòðnÄ“Ïmó‹;^;îøIÄÌ{¡U³JS¢®]ÄH`%Ž‘²gzmwÅìG»øíÏs<è1° z- WËîúÚºbZ•ñ0Æ—>ŸþLü:0ÉëÀ¤ßÓKxç¿ëðÓÎrÖã¯ø§ôÆwrM¦„“æ ˜¯?|Ð3ér sD¿8QþȤàHÒ8yqOªÊÅ¡ÚˆÚÇkv¾\Uz¼›0$SÏTÉJlǺå‡-ì5Ç'CÑ<‹b<óÔOV¢76¥Qš'^ðF@p¥iñˆYͽ@W”éW²aœžPm FI„qÚ+£yX’£5©ÔšìqQäc±èèž1S7óAlÖb3µ.S'ƒßh ò-Çjg"ôÀ\d?ú…¹Q _a5kQ—“wçë`Ÿ/eËçÔÅͶz ÁÊô4y’|D—0>©¶n£(ž…(š…8ŒÃ4Ì}?pÒ‡†mJ+Ry¯[œiÓšn;Î'ÓôØpýßæÉãŒrùˆbXŸÑ‘d%) ²›J@TÙ;GŒaF3âáå‡dÎÛ¤õX¿F ÌÑÙjdp6o»’ú‚í5ت"]ë¡¿Jv¿{Á #}ÐÚÙͽ/(tIv~Îû£e:ùVk¾Üº?€þ÷fqõ/SÄÚJ endstream endobj 4611 0 obj << /Length 1029 /Filter /FlateDecode >> stream xÚÍW[oÛ6~ϯ¼K@RHÝUL/+šbC³]°ËòÀJ´M@¢ ’öæþú‘"©‹-CéV ðˆ<<ç|ß¹ÎÆΛ«®nïâÔÉý< çaí@ü0JœB? sç¡r¯Ã(¸yzøùö.#Õ0ý4ɤ¡N‰ãºi+\+Í+`ÜÞ…¡“É+I¤®xaœvw¼ •›¡¾ùÍgüQÞ¥g/€~³ÞþpÝ``3ß¿×Ëm[ñ¡­â3°ÙWþX()µ K#‚Ї0zÆŒ/Û-¦0ÏàÂ\ŽÜxi&—¨.÷µ,z“*O´ÞGÓ.rLsùn5¶Ë–1,ue›ó“W«;â»–V2Ó¦Tžû¯bÑr¾Ï@b®âR ŒøžÉÖüóÕ¯ïm_2R0;ô))èépŠÿÒ86iýêž+«@6Dð"üo¯—¡)…M:`†6ø,“C‡ýMÄVåñwZxõÓ%ßÆúÉ€í*¦Ð‹ÿQ´l¡cå¦vvïêVÌ%IëLkÒ]’ üHyYðtò@Ù׋ÿï94&E gÍŠü5C VW»+Y‡l:õÕ3sã…ax]èECó¥+WoHâ° A/Ãn8ˆñ  »é æƒB>ÚÍG¢Ýî8vg×¨ì žã€³V_˜‹km2(ijÈ>M\@Áñáù(æCŸu¹ü„³ ¥õ’øŒ\Ÿž‹ l [2«0º¶PZPÖw¢ÿ—Ø®¯®þí*Ñ¢ endstream endobj 4619 0 obj << /Length 1635 /Filter /FlateDecode >> stream xÚ­XmoÛ6þž_!¤b1CŠzÝ–ÚºkÓ}i;”¶i[ƒ^}ó~þõµÀ^[#ØC„AqD=¹ªŽ¥¦c²  ­ô‡ÈŽBú=9¬‰#?þ9BØø]œ&CÉ%ƒÞ{D†ø@>‚ áaLèaDí©£Âˆ¨&«¥ÑµË*lή¨½r‹ 0³Lõý(e& ÿ¯Ý†>5±¥L\¾¶œ¤AkÆ{Î}½¦d(é±èÕb‚Ô„rÑãè$¾²ÊÒ.©= 7Ýý¥Ó6lFžÁ½,7ßÐÛ:ö¹è{Oá„?»ÍÔÔ£íþ¡_8ô1Çi*X’öDU´¦qZ–¤X9ý¨ºqá…/÷Ÿ(éŒp™*ç+k6ˆ_üAÓÉÚ2;‰¤ Þ²Gðƒª*nOjÁÓýz6l2–ð»ë?ÝêÖ endstream endobj 4633 0 obj << /Length 1597 /Filter /FlateDecode >> stream xÚXIsÛ6¾ûWhœC©©7´q§I&É4“ÉÁqÓCÓE‰Ð”ô×÷=,\dÚM2›·o¡ÃÙzÎ^_<¿»¸~•d3Nx¥³»jFð8e”’”ñÙÝjöwÀâxþÏÝ›ëW)\e ¬yŒÌ%UïÛB Òî ¼}:! !-<Ý"Êà%³Ôæ< ŠíAŒH,FJ"1%Q˜ZâgóE”„ÁªÐ…]Um±vyªõÆ*ÏØ€E“”s¯{ÊÛK#9QDbšúK¥Üv°5+½q’¼Vv+ªy”•(µ?þW8bÙºçA—r'AٳϥÉlAsâ »3¼ãÄ›ÇiðÒÐÚå©žÓÀh›¢qO­Ûz9Âà Å„h‚ðæ]*!V—S^à$Ï»0“ù‚…yðGåd´sšëÃN4zBD“$ꦽÌîR­&Øpæ›w¾};Á†Â2Jü¥+«ž ¸mì sV+{¤½“0A@g$c5Hž$–¯¬@á‡ä³ñi—·Ó±á5ï4"·E³’;â½ð¸SpGF=ÕRT²EýRêM;¤Õ²±§9 ƒB¹C]´Â_q—ˆÚS­e­-Eí.;–t`»y/«^äýpÀ ’„ÙÿÇ5‰:C΂u %Çþí󪘌ÒAñòsÝL"–¡ »ä>ý({G1?¯|d€"ÛZéaÞ¾{¢q ¿'´È9IÓ¸Ï{cT £8%) {ÁÉ}µ}'õUA›’¹Ç3÷åž݉BZwrP¦JÁëÊÔ¢!UÑÛ¯Ê&GøçRš•%â.Èš\Ùm)ÛVX<ºÛE+&È–BŸ„hìɸ ì…Rið35Ì£`ßʽl;ÞÔó¦CÞtÈ; BwÓ33rüdãÈK[&):Ã’=öœÐ¨+“rûP«`›»¢¥•!ðxéTЩºb’8ægÅf©DkŠ¸îšåèQkeק1=ã]ihÖö¤Ã·»‰¡6ª‰+à˜FjËNÌi|)…¿k56Kã~5DðcƒŸ„<¢vˆögós#[£šÏ¥ïÿ_óªÖ¶Zϱÿ­mr˜cÉåF/‹ƒpMÅLµ˜„°¾Ç<=—¿ï„. Z €à'hãD¶ëߦOMŽ±¾óõIf:6·¼ß bÂó®¾l´Þ«_®¯O§ñ’ç Px þ±¾A¡×rÚU½À`ÌÈqÌFáVTÂ`V4¥P?€s_Ö!ãâCh`´Ã±ÁÁ/ ihµ[¤pòB6«Ci˲,@Û¶!"‘ªnìÑ­}ØêÍ2W´<‘)eøv_”Ÿ‹µpÖ§Éhf¥$7}yhAšåcÛ;ö&{o„ë÷KéºÄÛ¥÷²Ò'Èu–bYFÀþ.΂1K'xp3"÷1 ™¯e Ÿ~Œ¢4ÎÉœãˆÐ0:ÇÖJÖ£k˜Lhž²ìú“Rä²”Ô!›ÌÖFàä ,ï…k£Ï¶JNbåÛÆ£3Áw94õcgݾ±7«ïÆ2ÂXWÅQÖîø¨¨ î€bÛ$OƒêД¾ÁÖ”ux~ ÃHÛåN®ÄÖwd§M]nìrX}y6þL0Çö3–žØ&Øö-ƒÑ¦wÎÆ]ºÈ¬E#ZòM5øå—b·ß>÷÷ëø5f0Ûø(†æ$ÃêÉ“'X´B ö_íêù‹×vq,ʲÆö‹ûEƒ«ºÑÒj cï€1ƒu?ÅýÔ¼¿CŽvÉ '¹~ãO¡n IÁÞ33Ê=]tê’e¹öípËÁò3“‹miBk·[¹¶‹¶VŸÝ û¸²k3XOÁø¤öPM ÄW ãÑíŽE[¾.›fû˜¦B¡X*ÜÈwsy{{yå„Ö7z/•Û-a׈µÛ•õMÙŸ­`ןa´nàoÏSZ ]“¹¦ªµ÷~-D…ˆwž03ŵjl¤-öµvjëoÔ¯í7:Ÿ”v—¸—ÂkˆŸCølÄɽèRÒø±0ó´9hìÓt&g¹ö‡ |ïÅÑ«„ƒúÎPüOÅMr嫱ø!³ß©´~ywñö9”h endstream endobj 4643 0 obj << /Length 1764 /Filter /FlateDecode >> stream xÚµXK“œ6¾ï¯ Ö©ÊLÕŽ,!$ÀU{ÈÃŽãS¯O¶ hfH˜ Ø]çקõIJoÙ'ôhµúùu ìüvöóÕÙË7œ)Jyȃ«]@0F4âALâ4 ®ŠàãªrýùêÝË7,žÒ”£8M‘&¢SDgØò~}uöï!ÈÀ–Ç ‘˜ùñìãg°ù.€­4 n4é1ˆàæ8¢0®‚÷güæ_-;¥SÙ F<"g "ódŽ¾Ì;¢4!N‰«u®„ìÖ›áU³3ß×·¹ÒŒß—ûºü„q˜gu.4ëeM#†Rø~…¦Z#ƼÁ C 'FÆ_…ÌÛòÔ•Míi6j蹉$Á†$(I‰9þ¦¯s}V«Ó5æ›7uÑçVïî ìàŽ)Äš°ÕÄÒ3²a2Õa£cD¨•ÿƒÌöbQò»šøþiÒ} ß^¬7”ÒÕuiR £~+Eg'EÖevø_b;̪N´uÖ•×âò¼»i, Qœ»§Cv‰0³s°ÌÀ¤ËúðBéDÜ€?S6ƺ˜amEä]³oEÓs»j›ý6k/¯þúðÚ;¢ï&Ø®å¾ì¤ „@w¢¯ß¸ûCŠœm^¼0tï©ùEwh 3Þ5­äU&mfDZxHŠ ‰ç‹hš5>ø\€&Šb²!4BQê,Ç å©-ëÎ9vTüòö‡û,poÄņãOíšàÕ¾?Šº“÷äŒ ³H»:iS"k×4x饓h»¬œ%”Š63*ëSß½šg â†(Š#sÛíŒÖK瘃åCgU{ŵÊJ‘wʱj~Sv‡Y*7 ­¡+l*ïÖ![í„ËzYþ'¬FŽOÓwysœ¯fµcù÷pØáÃ$¤<Ã$F1 €•û¼=fç 5%„˜ÁÜQ¡‡Œ¶¡IŠ¸N;Ž§æÈuùtãM­Fah¬F 7VSKyÓ¶BžËzoödv> stream xÚµZ[ë¶~ß_aœ—x,˨K€S —“ô-’¶[ô!IQÙæÚjdÉ‘ä³ÙüúÎpH‰Ôr÷œè‹%‘Cr8œË7CóÍqÃ7_ßüîþ拯t±©X•Ë|sÿ°œ3•å›B–«jsØ|·…†ÛîÿôÅW¹H3 Í Y¢ÉŒHtÃÝÜ@­ê;UJK~' hT4èþdFs{'5ßÖí*¶ÇëÙtÓHM3LuÓÑÇÔ»çÉ €'zëèin%ßþ¼7£?6Ç®ùžs¹¯»½ùrÅžR{øL«lÞÌ´"ÄTä¬*¥ßz™š¾«[X5˶ûS=ÔûÉ ø©¶ã44Ý‘ºìà9^̾yx"Úö>] 5Ù a mq©¶×Ñ?ôƒ[®ï×ýäÖ§s{À½ÁiV:wÜZiI–Ћ´äJZìöNAÿ·ý86»Ö mÔÒ 80CZ R(NáEófj䢋$(+V–¥'û<1“fœgó<»¦ëÏ©‰TÆʼZ&"F‡kš•BÌ3šŸá”>>£ÄïëÎ óNVÀXQ:™j"Ú¡€”ÚÖ»HEê퇦žÌÇòlûþz¯=x”±9 § ðt\Ðùpíö(]úÚŸú~4#}Ì4NC”Ól! ·]=šƒëì–q¡8fõT³×ŒáΩ7ŽR¥˜M‚Õ-¨uWOÍó Öq'$,ꆇVQ‹UÀ»ÕmlCáÜŠ­5ŒÂ‹;šƒ9t¤¨ði÷öŸnõöéÒÃ÷Ø82"_ˆœ¤‚ñ$¤ôÌr]æ ò|1üxÁ2É_Ìá8PŒ!¥vYɲ٠¾çš[Öqêƒy¸à!¯íí"i,9ËôìÞL=³RK-¤3VT:°Ué´Å€öJÆÁ)FäM "û¸M[ÃáÖp¬7ÞyG¿¶‘×4Qðœ•<5ËKçœ/CÜÕçûç¶?6{ëžµó¤Z>O¤=POMm¸Ì༣Þ₶y<õ×öàÍ܆zì¨y><ì z›1!iY Æå,»û¿ýã]BÀ^¥tD0rJ h8ŸÓ7]ûD"LKÇŸºsa6íŽ&Š!xD¨h!`¶KÄýDÇ9ŽË©þô#r0ÒjëF ž`ɽmWÞ¶+oÛ¥ƒÐ7øŽ­™h—c‚ø˜ Áz b‚“ ÁLJ/Sè&ÓD¨%N5.Åew˜å;c˜·Í¹qÒ…=4g°ˆÏ˜[:%Ù¥ü¥÷¦mëÎô×1¢> ñø Ð›iü5˜G©|Ût“•ømH)òéØ1[™ò±[»ëyç)ñÄ°í„g?ߥ­÷ý©OÍþ´šè2àʇ”ÿÓ…³ôHp6ÚÅ ýµ;|ÌÿD íffŒýrò~Åž(ýÙ¸CM V«2*à`À›»¸ù¸æ……‚’øœ±5¬ËóYÀ×¾†Æ" ø诽LžØ™ö¡)ñ"6%hfJoÜÍÎøÜ=Ñó}_w]shÜȺsý÷·Jo‡æǺTç:Ñ%çÅâÕVzOáÐGr|Û££Â—‹”W‹,QOOçÂÎMçFÏ®ÞRù9ûÝhò2n‚YGs§£y¼uÇÂlÙ#}7îé}Ê+L'˶pÀN‰lYL´Ã¶õbÐ-$´90±Ér Çfq—ëE.¤Öë¸~Â’ —wš‹íoÝàg¢é†z‡ù=÷Ä Ù ýŒó‚’‘‘zÏõ“#»t”Hpª'j&~àeß·­qš‹$óôÓõ`5?¬¼¡³ëÝðÁ\ÀôÁĦ.² >š!ƒøÒÆS%6ãb¢q^£w!±v©i=LÍþÚÖƒÏN/Í~Q[Ì4”°¸„e•UTpj ) 6^j4+|«éAìî§~ âG ¦+|‰uÕÎø€;}0¨‘bl~1nZ?Xú¾?ûV46€_I ’3žÏ€õçP ýš«Û@縙Ý÷Å¥§ÈG@…ÎɪԮϗ–‚#—.  jÙèš’¬V’ 1sú¡I&X¥ÈCPm#2L餽0^ú2ÃЯ®*¸b\Ìéáh’ë‚Œ²,–‘]µ_­úf›¶ÂSþÂïÝì™Ú÷zîÛz“™FÆd9óõf8×IŒœñ|Áèt*€>!¥wŠ+C›ñµoÌD¤oHáôÍî9ëÀäÈ6£ YŽÃÞuDÁN—ÎÚ©:zÖŽz>0lüç-`´º=ÜÙÜ8aǸâçvÕk5£kÚ=y|“vjúÅW",t‰¼‚$u6gªp5±_!ß@¸/TI†‘+Äà,«BsºQ³y2hÞ¦–¬€†œŽè)¹\ $±œÈ¢2ŠV"\ÍŠaß¼^ü‘Š`µ‚‰*ÞœåæÝýÍO7XUá±QR@X6°ÙŸo¾ûoÐçÂ@o-åy£ ±Di7¿ù+"#¶•(X.`¢ÜNH‰_bA©Y®V–X¥zmÅ’‰,_­Ê|™ Æy¬÷!-wY¥äÉÐ5¤þU„è0]쯷àÜšn´žš{_ *||à,€j<5QÖŠ_äÛ«A6z§KùŽNÅ6ð«ë‡³Ÿ@ØÍFpr8ØŠ³vdŸ'Gaê½”.@mòçÚ\€†ÎY«Hhr,¾|>dÅmª<íÃK={¬‡tiO1Í«%}œËTo_/…€ 5Ë« a$K¬•ˆ"JQß2®S4Dɨ$É}úB‰€YåAö9úl¾ÿl¦¤s(˜ÌæÝ~“’¨ð"Öƒt´^2öêØâAhXR_A9_]à`ç`7qàøz…A³œ\·ŽP6ÏZMŸ. ¸lLƒï‹CNîâŒöq†i£úØ=%d' ¾<@/R&ÄWZÇ {xX)+ v<ÐÊãÄ"Px®ª»T,.ËT,=@ìƒ-żä@ߊ§Pt¥Z 6“,à¥én3î±øhîBœD¦9žhÿ]‚œÉë£#±8œuÜù*¸ó%¸#ñ„ýs¨—UA¦òÕYx ?G7Õ?¢ÊÛ|> ýy5ðÜlÉ'µ@ˆŠŸÀ –…¦„/QS‹aˆ„S+˜Î‚Ó÷‘0¶/0±Ðˆ,4„z{õË1 gÐg@4[b¸Ï /³{}XúŸ3WA‚¯gîR‹¢ÆÍ[ÄäÁNæ/ƒ 9­ ’ëØã‘Ž›!µ¢âLçòÓ命*©B,Bò°áAq%¶÷ˆé誚߿§§…æD¡rW™žœ·Ì”Æk–xƒEEÅUöÛh–• — '™˜©dœÃªß„|}Iˆ“òù[ªÒ¹'èŒoVç=–T E‚><2>r>Òf^öˆüÔ³Ÿƒ÷ÞušÖø¿á7§ÿ+Ì]!Y.Wèc¼ž×ÂΘÃÿñÌß8ÅVéÙÎÿ:£ëëz 6`ní> stream xÚµYK㸾÷¯0æsDR/.²A6@O‡ 4vÙ‘%¶ÍYr$j¼½¿>U,R–ÜêžîÆæbQ|©XõUñ«r´Ú¯¢ÕŸoþtwóácÊWŠ©T¤«»û"&ãt•qÎR©VwÕê_k«ûÍ¿ïþöác’M¦J•²L)ØÈM’q†“n"¿÷j+³ÜMØŠ Išö©Ñ›­H¢uY4Ô(ê¾¥–±º+¬ÙˆdýuÓµ®hàç(MíX­íÁoðçõà_Û{’‘ÏŽ“J–ª,Èøs$ÄÂI2Ç2Ìé‡ò@;ÚCaCËä´}üÕ¹T +;‚§Æ£üR꾧÷Þìƒ' ”~•q ^myÆáÉ™JHÿw(jüJ²¶-I/åÔ1Qćﳢ>Š…sÆ]$Ñù`ÜaakÓ/m­ÏÓ°‚ñhaSž1™ó0g÷@ÛUú~ÃÁ¶CmáCœm¶2Ê×wNK0ÜéFL³Ç×xfJ’Å=Ë¢®uESlXúŸÚ¥Nе9VÿŽ† À©Qæ,ŠÅ\n×,ÑšÖêj-1‚% ­R¦2™»I,Í2Ø™ÅÊo ÆI×渤›„e‘XMæ:ý€m‹¦1É”:É]ÿÝF‚vÌ—¢6MëÑR"Š² H­ÿ' ¤04]AAÐ ¢Ap~ê(Ûãi°Å®Ö¤·4f‘;ÜTm÷ßòã]݆çë½îFÿi@Å#ÅÒ<!`¥a¦¾:Ì’Ï Åâ#æ3‡ÏÄÙï— ±„Àÿ ÍÈ&(ÈWr†‚%߈Yœª©ù™Ÿ”N&mx°Ì)N&‘“?n” Oƒjx^‹›ƒ(ŠE<£Å?xý´»Ïº¼ Ge]ôK¾žÅŒ'£RÞYÞ-œHÄLEc A4‚—ßhL¿PQxp˜˶±…iÈù§ÀºoëºEŸÇ1hÛèÆößÍôp%ûVÁáP‚ˆàÖJI¸/W+æ!L™ÈEh†ã.À7(¬·Ce´?iÊz¨\ProWG(š¢~èMÏž•Ö|ËS&2>½AÚv×뎢zFþÉ}c/—Ôkdô½}ƒŒtûÿgƒo‘B´o”ÖÍÄúä_ñ ¤g/÷íësÄàõRÙ‡“ž uaàIÕ€Š}½)O_S¼^šeþ3õ€×òŸ×+òÔžÁ ¯—¯ÑpVx—ú#QȹFäì@oð8åËe¬Û½)És¼VÚ¶ A¦‚A;ÆÄ@Ú‚l¾WwzÁ—Þ€Óƒ¶ÅÔû:+  ñ ØøHg‡>„û "-¯ßÀ\J l|nI§VÁ{¥RF²Š~0!«Ž†iö~AO §<{9¿IDSq¶šÌ%2ù¬2”dÒ‘œ :c/WCßýXU¢k0®k}Ä[ýȲ̒ӛ|ä”6bѼ¡½Ž÷ qiDgš±÷lìáˆVšÇ,#îÜÚ%þŒô’OÞM‰Çz‚ÖELái Ž¸¿ÑýtÐK\3ë‹C•†$ºpñUÿnßi\÷n€1žL³A‡ÚXD×ÉÛ{èMê­¡ñqb8¿ï¦hsµLÌyŠäqL´?-ã4JÆ’RHÜxÑêŠ_M>OVü7 »iþ1B9K.YÞí‚ 02a'ÜŽé:팢ak|6•Ö~bá'¹›[Šð9½ ñýú&Ü è|ÊÒp\)䓦¶ç–õ˜é¢±!ÃÀÄ/~OŒ8¶ éÞ%Ú5Èê}I+KH５å“VŽ<{ÖʬݭѠWùƒDˆˆªZ‡Ã;mÏZ/!_$Šqñ-ÓÄ—(è *×:‡ #ÓçTÄ$we‹T¨õG7X4Mƒ[™ËuÛx¸r S–I©*e1dá3¥öÚ.EoÉòëØÄ9jp¹E¿ˆKruñ‹­È9euY2­,ézM¾Ê’L¼'&Ë^ –?¯y¸ð¸˜†>Üì‘/àÇê Óq"-Æ9úâüÅvòQA*ÎDrU;›pÎ’ÐÍó =Ýx¿4hÚf»€D3öTHLY’©ß("‚å3B£ÈCqEiYêvÔÓâ#Å ‰Å{?ÑΡa¿þ×Uè¡ãi&:qßTÁí ¡ýeáÊL äW?âò|¶$â /G]ôCç_|2-Œ³/puP Ø 2Pœs:%Ãv_úéd,/ûg…%yë7-N§®ý-Nº¦Ó£¤!É )KÑ_¥&HN ¸èÓÿãÑÇS=&t¿êkÎK%\Žþ8]D„/«8‹U(§«88)´èô±ßÅõ JÁ qvµËIéÄñzg ¿z·Â6¸òñgȥܵ;“cºkµã °P.*¹ù7 u×0š¡§Ic ÚnG‘<*0Aý©y$î,ÒõÞlà²ï˜êË" SO˜ì:Ž{Ýß» tïu£»  ï~¨ ~W›,É+-õ|D¤HBzê™m…ïÀ>;šs*:kÊ¡Þp u•¦+‡coÑÃýW a{†q/“h–†Ð:ÚÍÏ퇮µÆ:À†ºkñlÆ>,‰î.Pþ‘@{:W€®™ûÂ{À64¸`²÷ßÞ—h`äPø);­¯·é>»‘JÓñBrÿl¸i•Þ¡ÇrW²ŽäúŸÚ ô±µ¿?ýÓÂ¥ûô‚ ©åè¹ )&²E7VˆÛ±&|8ŸÏ,|y³u•ñóÏU3xÛq5'²Kš¼½»ùV° a endstream endobj 4573 0 obj << /Type /ObjStm /N 100 /First 986 /Length 2240 /Filter /FlateDecode >> stream xÚÍZÛnG}×Wôcò°=]U} „v ïØ Ù ìÆÐ%%$GKR±ó÷{ªIÊ¢DJCq"°¥â¨§ût]OuÓ/Ƽ7X…`ÄEðÓ É„TÈ&¹¢B1Ùë“àLÉ:&!¢¤â GÄdêä:{†">BŠ†RÖ…B2TXA„lØ…ú¬¦¢ã¢3,¢kD2ìcV‰ GÇX#Šá$õ™7œ+–¨;¨Xb4BA$g„‹>KdD¼bI )×w“/ºZ#:þê$.X{—UÂçD%LERgÆœê_‹*L䕶 éBEß(Ø`E!å¬Ï78ÊX#CÇê³l@ël` ZNëP ´Y' *z¨zPôE-UmVð,+¾è¤ì±&ÀLNŸ±‰N±DçM$ *¤\ÿMdlR6JP)˜èU§‘œ‰Aw ³DW×(ÖÀ &&Ý9f51«""y¸ ×wƒICE( ºÕWa÷$p>É*¨’"“I^¢J IUYL MEÆl¡¢c̦ïcÞI-oT¯ŠM*RßÍ&»åð[VME¨!KÒwñ1Wß a ,žU™’É! ³DõæµæTuæ1KRŸ‹pÐœëaœ\2îP¢„ Ê+[“ìM!‰XÁ«Tw†…Y5†€+K½ãu@Wt0f‘º3Ä\ñugp‰²ŽC¬Ýþš!iFDXÉ!5þ¼nMój:íGÍû›³EýüÏ«éïGÍënvÑÎ>:D¿;mþÑüÜüô‘ꇣæ¤=_˜ð ‹õR²A‰-´j|q–ØcÔ+s|lš÷¦ù{÷¡3ÍóÝÉåÔ^Ϻ˫qkg“‘½™^Ùy;žtíø{óãGø7®ÀÉA³„-DÊźjo‹“ÈλéåÕtñ"ƒ},©\°¬aId° áyÙ¬»^\MT%+š´È ¼¼· ÷‘½åCÁì°<²m,Ö#jÙ'‹A [áüR(ಪú[¾À$Iž„1O®¦gÃḄÖA ac~«‘b†–x'Ž›îìÏÿÄᜠŰ&Õ§pLÛÏ7Ý82’ ²ÛŠ‹UŠðŽ³õÁìmD¥û fqˆ6¤Ê,0=âpÔÙ€~Š4«uÃo•g=cÀ`dTÔ>±ÊÅÔ7¬õÙ·ï¿ý>dÀÂ1P”× Pÿa'1L'b…3bQ& ¢„î­Wb,ü(ˆÉèb> ¤®\Él±Zà‘ÆlRH¬`'»SÆ9R×å€!BdR´FýÍ9=‰c|vùi~&çú†›Àµ×H|ŠV‰ÙSHæ7g×ãöËÑ S£ j•“PSåG¼~=t©‡GBŒlªmȵåXQ“ëN'çŸà"¢@Œ …ãÉ°8Š<’(«yÀ®™Á»´YÌHò9>Î9Þf£ñxP¢ íÀÖF*h'(F«- {Q¥«-<¸ºqx+i+´¦ˆá­.¿¸V–ìT=W º,¡s!(E¤ìDæÞ~ší]$oŠìÅ™Óüç¿¿˜R¬ J¨êÚ+OoÆãӃɹ::x%ÊÜs´&¡‚–lcôÛnº¨°ßmñiùÚÛ¨ ~X}mïyõ+šÎ¥¬=óZFgД/?Ô£W?`æݬ;ßB…¦y÷æ­i>´_ætÓ*ïFŸÚ£æ'Ài§‹¹žÔÉTùóîfvÞΗ§õÙ¿Ú‹«Ñëî‹©öRú‘ŠR/oëÀ¸Xm=ÇÂõ\DñÔc‘•×BZ y-”*œ”uaÖ£‡ôÿõàЮžÄ¸Ð#ü¤Ï¯FæÀá@•¬B6à–@ÚÐmY!zI lã’ ¦êš•TàzIE»«t $H\u/ DÏD¹þBâgF ,ˆð¼ûТŸÆC'¨ÃÈøÊëõÐ8Hõ´;É­Ž&¤¸,ýRÜ×4´‘y6rÒF†¹›†6òÓFNrµž nž˜ËI…¶ä¤òüœ”Ý*ßdZ ëT”ó Èk—ZLÌà{¨¨>)á0±ºÿ ºWÞ‘´FÕ¸×Gëi·8׌më:C†î !Ô‚‰u³º |‘У!Ï+ß:½ÝJÝIóêø¸®Ð¼:_\uÓæ}óï“Ÿõÿw¿.×óšæóçÏvÒ.F—Ýìo׳î7¬b»Ù§ï‡æJÏQôDˆáQÏ Ãâö`w¯¹šIT*î9: {fî;š`œý¼$ªñ€ü£ä‡±^â~±¾±õ´ Ò=` ýçmÜ's¤÷ éIîëIïdž«'½ãÙ³dôe®Cl6mÙl8`³q¸ú8øf‰¶l¶<³ä¾aËRy¸YJý6ùAi×kÄZÈõq%„!+º +d”pvÉê½›D”V§·Ï(­a7sµ'£éE7±ó¶½°S/hŠõ}ÍY ÿœ‚uøI›Þ,ÞIdëÿÓ8&ܯ›z+Ü;go ¾í¹K¬jÉèAb¨ïhO6£åë7ZŠ³.ôE"ÁVúêDLJ‘Ü®z?L6-EMè€l°:jÐ;ý•PV‚¸!Óq®'˜XȦˆ€TCêW4.b<,-ô'Ú>!;é×rVDÛgxß7K³%¸Ê@×4[Ú‚GŽCÏZúuú5vmèdKÚÞ#mÝü(ÕÜ9T¹gõ‚E÷!wŽFÀ[â¾HôrvÑ(•F÷!» õFV"ù-‰ÈîêÁïã~›k¤°ýÌyˆÑ’êw zŽf½—ž£2~U®ßhŸø-רåd÷\#àe×(Û.TieÿxÚÐÓ†7”¶q¸q¶·qè§_ÓK[Ž õít ÊãC•ÿ|Zäkíÿ?ûIY% endstream endobj 4669 0 obj << /Length 1858 /Filter /FlateDecode >> stream xÚµÛnÛ6ô=_a¤Å&6CŠºóC·¥ÃŠmØÒ {X÷ÀÊ´­V–TQvê¿ß9<”,%NêvØ‹Å˹ßi>YOøäç‹n/®^†ñ$eiäG“ÛÕDpÎdMb!X$ÓÉírò·'ƒdúÏí««—‘€ÊD²8I€j+VTå/¸£Ä£ƼC™û1JB¼Ñ+ÝLEâé2Óf„? 3(ˆ”Ea@^6ªÌr3›ÎýPz?3üúÞ[rŸ _G8ÜèºÈ3ÕæUé€M ;ÓÂaAXYU8Y¦"ôÓ(ô¨*—´¨wï:*„ó.W†9 …C ñˆ …^MýЫvMÙñªVDð7ÕnôVµs¤VrhsðA†„ÜIȽ?ÌÁʶ©Šj*¸·>둉"É„癃:#`i":€0>A#µ>rhÍM9#)D(ßú~$¢Ôi.å5Œ‡(r¸›¶­ÍwWWË*gU³¾œ .¢«÷ìý¶fè#Æ}ƹ @ÿ¹ŸBwêì 5ñQ˜êdÛàðËY2ipKËl&#ï7“F¯m>ßëcCk€ I¯”u¹H# ‘BîÙ¤_7ô¶EØK 9s4Ï*I€Copho>'S Xò„H@Ž²ªitáš×WH&Ài‰¸Æ°¡µ‹†ÑmêÊvN:2(]¿Û+èŒÝœi{.‡°rsîRµõýœ¾Ú èÉ­Vf×èÅåÍÍåÌ1ÍŸ˜r›R䋲ßexUwW>^u;à¡ðÖUSvCF'Œ1&¹g jN´¡QW8IXÝtauÅ©b4¤”}gzõ}q™mrÿÒT³ÖÚÙ°ÝàÔAë]=oh+ „´¹ÓkŸßSpö€ãg5W9±•ã¿ÊÛ¶g*ü^_Ó—â}˜ªVf ÷Ʈ޽׽-«{—«]IypBßF›ql4[u–¨V-.¯¯/?cK`q†Ñ†™ø¾ÅwgÚƦJàK¯È·yKW@%ßöÈb¯Š¦KŒü‚ö­"ˆ»nÜm=*]ðY¦†NôÇN!–Nå¾Ú0UÔõ¨¶Èðž1þˆâñ™˜º\·›<#Pïq¶K)->~ªëâ€$ˆúŒŽ;‡ö–¤½Æ/î÷Ýbà>×¹¢;AB‹žÜsçQQ‹ªIe#åï<}¨¡¨T]M©3ÐCãA‘ÀÉZC»j´<<¡VÒ½É`¥Ü¯èÓ'ùܪD÷õW5ff{a,ËO‹ý k¦ßöÃï$€Ù½ŸáJšm”-PiÃô ñ\ʽÅæ2Itê±íQ±ÓÙƸ˜±4}*ã’32Ž8œÈ¸cøg -zrge\/Õÿ’qÈf<üª\Ø,àmôæÅõíÅÇ aG@Ñÿ1'Rp¾˜dÛ‹¿ÿá“%Ü &Ódrg!·0nCdÅäõÅŸŽböÏ¿³}ÄE êä©¿õF¯Y“èà i|yïuÓÒ@ù“Âc§ex“ÃKwK»7öÏhÇÝ ÚÚ¿"C»z ã5 @¯mŸ0I°8ù"›ÐŸÑ‰?>…LÂXmUù À&¯»™à‹ÿ—ìKÍP»ÌÙ_½Ìn»Uø’}*ôË.-µ"“Œèöo’{C0½E “T¬û/>²¡‚ endstream endobj 4681 0 obj << /Length 1309 /Filter /FlateDecode >> stream xÚåYKÛ6¾ï¯0r‰ Ô´(Y¯ÃR4[ è)qNIÒmD•¤öÑ__>eIv¯ÖëXø !9C~óà{“íÄ›ü~óëêfqÁI ÒÈ&«Íz–Ñ$†DA:Y哯SAAA«íì¯Õ‹»0î°iâ4•“iÆ`™*¦ÏÎ/¹£÷ܱÏýXvFè G[ÜûÞwq]¬Éd%=”ß¼Ð+1â ÿÌæ¡çM±ÄÚ™#rGT°¥|G=¶}mŸhû„ꓨ¥ @B ‚4 –²e+[QžÃ=¹_¤etkWس·àZàH 7Z µ#›5ÇÂÀòúˆPžß…簾·ï*Záwn:FkÏ»½ûðçç¶ë^³×ƒêWùíêÓ—–1P¡sithãçð06¶ñ#°ô­Ÿ>°ô¦Û¦Ä•à'ý~ÚßÖÉÀë†g4ñ]t¢Ù܇ñ4Û!†2™irÁˆŒmI'Ò,¶¯ÆÙ<™†Øa3Š73?œnfpŠ3aº8ù.j§£Èhi%D³.e óšV¹]/Vëq•Y0Rî,KÄžLCyÜu×u!QœƒÙ$TŸÑÒ,%vÈómŠüXú$UV49ÎÝ3°ÚÑcX4¬r2ë§á)gëÏÏÄ(ÏÏ·3ÇxvP‡°g×a!Œ·<¿ ø ˆÇžú¾ªÞÒ:}ÃÊ›?KÞ°îÝ¿ÏÍ2AMÛ £;,f¦ÌÇ$õ·‡aWgƒ¢dž,U’P´Mš^cóm8¶=*‘Ѫ°3ÈK½Ã©#¥íl‡½A¹J]ðè8iÿU…W.OªDzøqß«›ÿÔj‡ú endstream endobj 4691 0 obj << /Length 3070 /Filter /FlateDecode >> stream xÚµZ͒㸠¾ÏS¸æ䮚戔(Š©Êa“ÝI%—TM:¹dsPËì¶jeÉ‘ä™ô>}¤~,O÷d+åƒ(¤ø€NvÏ»d÷§wxx÷ñ“6;+l®òÝÃÓN&‰H³|g¤yjw‡Ý?÷©Nîþõð—Ÿr9cM‹T˜¢€‰<Ó؉¦kŸ‘ñ]Âó‡çÇOi:yŸæÚ½Wˆ)MPžÏ®=,Ưgra >ØtÏuU6w÷©Öðu|æûáìªúé…ˆ_n<ºž9ŽŽXåXé©/OŽš~ÜÏI¢Ü¸¾Ôå4Î ¿AeJØD†µø9=×bÁ*Yž¦²¿“ÅþùrríHsÿœè¤~ Š<inv÷ y«5 éZ\ŸÊ÷Çr Æ£s-µfK†y$Ý¥9Vzön¼ô­cêØ=­ÀÛ×z<2ýÈì~}ë©ëOåHí !³X!Šà‡ªTíîéN&ûòÒŒD¨‡ ÝéL+ªîáóßÚP„¦Ò 4åË–e3tØ’^PO¡Gu,û²QD|íøÙ‚âûº¢!_î¤Þ»j cGÏh?øòõXWGÚ0=­ó¥è_M­ËÇÆÁî(€Eu§ ‰óD$yöš±(‘É|r'š‘¼B¬ÜbéNR[°3… a3É«+{Ñ‚}o÷¨î<Ö]ë]JÙ¹ñu®1|–cz }÷>M“É>Þ¸ö9Œ:8l —®¥gä¼enãËÙ±1¤`i~"-]Ú™7| Y%nÊ¥­P0zÜ8DÕöÝÖ=2ãR¤° Ø||¡çÌÆïb>ß ›y•‚? ­xÕ?º±¬›á6.íPQ"/Ø;}€~¢Øõ8ˆšŸ¯ |&SѱÜèX}k÷ÓTÒþIM©Í@Ì¡êëG¿V£k!õk}pÔ ºrã qtOÔêž'°zê_Ã$Þt€Ô]ƪ;ñD'W—>°ŒÇ’ÇU%¯äÑ‘ êT¨´XšLs¾ŒÚ2‰x…įÞO öû úe¨°]H¯Pß9\N§²¡|&ù2Ðl )@áoÐËxìGý³…CGÙ3,¥æeË|«®K ,¶Å¾ö"š™o `¼Y /eu$×8>0€±êzøâ¹kµiè÷Ë„gIÃx9¼ÜåzòZ_ÆŠDfg÷ÚD QLX=7ørù zmÕÚÃñ.(2Í¢ç4¶né8‰ŽXÂaï ”aì/UôKzÐ9ä˜Ï!ï~°SàÂ3¸ Î>¸‰CDå#"Ò>¡’ÉÕÞáËÊÓ¹q¨qex/d4ìî2«•æßt2\hs`×™J¸£+›1t¶"žÜ#xªÚµ•ÅøÓq4Ø&lïÀ„"mØÛ ~ljÈ^üâ†ß±‹h¡0ØÃC¿à;Â"rJÿH–DÅıÁœµÈ•ÚÐf˜æÚù: -kÆq¶FkLó}+ë éîyØ­/©W¿T…/â—Ôæ—¤6BY Ú”R4bù~É„ÊŠ™0×ó-6îÃV@*t¯Çß>Euk 5MqŸ&©Gˆ ‘”(’ÈzØšL‹‰ :¸¶ó1L@"lT®i¨õÔ»_sjÊ0†Õ ^Eò£š¡íÝ ž55è»_êÃ"n$¦{Š€šÆ{;qùxÕ*r?ØÂb •.­ða¬«KSöÁÓGïÛÏAÑt.\+ÅÐp”xÛDáس3ÚÂæ<2ÍÅÚ6Àå<1Žì;TÄWFtA†ž™>çÌ;|D+é'³`·ÖP…±S°‰‡{—f«½ƒ.@>B¯y*nÉè/›ØT¤=]á›JDþ-ˆÄ¬-} "³iÛ™.’¥"̇¥rÙ2ÇŸcc;—°ze²ß†™(^‡õÖª7¬$*n¡`g¡_CtÒ÷¼¼ÀjEĈ‡Nå(Iœe¬¸¾… Ì»¸B=zS¶¬umnh½€Üæ¿|“Ü~Î^™â4@V–esŃt7á7™²¢›¡½©ù¦œk öæ¨×%·ªÞ“Š‰ºò .rp`µª?p€ ¡w ¡Í2,!ÓòFø謦x‡£È­ð?k· Xø±PnR6Š-ïÄØë˜ 0¬l˜«£§¯lù†?hŠp ™YÄ/°´û€˜RH•-UÀ ¤3¸b‹À¤à 1KÄ·ÇrM¿#~,†Î8ë Ü÷DOÔ'ÚKaBÄr«®¥ ÌLU4²÷Ÿ?¿µ°µmÎiÞÿõö,ùÛgùüãûí’“I̬ȖԬÚµ )¦‡<”@3ŽâïSY…T6»WÙ Æ+z–/š¾Ä sêöËžlÜÐ]2›_²G÷`VoRÐA”­$„\ÙqCƒ“&ÅþoÎMÃ7R“CWyƒŸe®!Õ¿§8S@Š1o(΀1{ysBLSׇ¬—KL´Àv‰ Y¯ò$Êê¦ô:&ß*ÂêOè°€ÅéLn,iv+M²©f TªÇ$:dÐí«D‰fó-ïq؇u€z™9c" /‚ 4àìxþXôÀˆVR-¿ïÃT.Y&ÚDzsÖa­cX>Ÿo~>¹Ä²¨QusËá0jŒ§\»DS¦À x¨zÀä0Õj^—#ç [¼Gšß³dÇ‚&¹±d³8;±hs ï²ì v¿Œß¬(´^º“b‘ÓÔrD©Ù+¹.«cÿbã” eâ)cA¢7µ‘±`'×\ÅžGÍ ‘À"™Öoô©[W+MçûXr__H¡¦ð&—ÛxœNiÝíf1‘zõxˆhg÷?4¾4t3æËÌž.¤Ö™<¤sED£/èï¿¿qs™M!¡V–‡à ÓÁfóˆðÓ=vO €=¬<Ç…ÃX@jˆöVeà °ªp¦›³€…öFýsX@¶…W¥|6÷´ë½†þ[^•bQ§x˜5„ešˆðõe¹æŸï0€©ÕÛe»%ˆÍo RdBkõÝð€§j€˜ÜÃ<%¿¶LHør"’‚ÈöJd»Ù†m‚Æ,`¼–«™j»Äö›»'̔ą¹7BcÌõìÜÌ•‰b~x± Vü«¡$ì´*&bIL+¡¡c!´ åè…ôßêóÎÐ &¹jîèÌ8 µ»×…È× }m$|vãØ›2+\Öosé^¬5ß,ƒH³ºN–WF!M¼ ƒ&…ý’Óஎeûì·ˆ”ÉÊ[™¬J¡§,sqyºÆ·\X+oäD’Êë§ËÀK~ä…úÍ‘!˃Æüö‘‘ ’J½JpèÆôCˆñðÊ´×"WQÞÒMפÓ=ÈJ¿±°î/AÂ%§kæE®ºi@>^Æ/]ÂeË ×Ãò¶uóro7U.2Ã%ïÜaÉ°¹¸ÿájôBK:KÂß9H—ÓØrµÿ³ÃFÍÌB‚”}«f©Í*Á*–¥k¾]/+’zÙr=½y ¤ÜwýÖý†Ðñ¸ÉþOK1ÄÅÌ\Žãp¨ŠgW7ë@ˆ•åŒM&Ŭ¼¹œZž‚'˜7¶‘Újý‡ÌKCa¿y<‰mžÞØL8'Œž±úë#C£9Á ©Èñ_q—-„TÓµ‰ÿ_Æ­@Q§Å<ó_)×k&‹ öP7Ç2ƒ5Tþäó]‹|UºQÍDnôþt¢6 Ysd,V…cf$_ÃÉxU+gWµ|%î^Wtw'ùŸ-³ùº¾~®ýßN–³å@̓wÞ¢õQš‰õ*C*ÇpW®¯þîrŽcõiV§¿B¤ŸÞý~ï  endstream endobj 4700 0 obj << /Length 1259 /Filter /FlateDecode >> stream xÚÍWKÛ6¾ûWÞ‹¬h’zqÑ´Ù Põºí!É–i[©%¹moúë;CJ²ìµ»mÑö`“CçñÍGŠ¤ÖÚ¢Öw£oæ£É»Y IBZó•Å(%žZc$ôk¾´>ت$J,¶Òù4?yD=}/ I”$`MkzC¥m€vØÓv[u—G0è™Eoœ€Ú{µ)«4 5üéë»f±å²„D‘oÌüêÄÔ.·«µØ¢X;.³¿8!µ3™nÔBìeeÑÉÅóz“€x1oSy}<,¾Î¥«²rwUùY¦Š”Õú«+(0î“l5KoMø$‚jU}Óag>}’Ĭ]·QjW¿šLŽÇ#i=;.Üs ïY˜c]1HÒD{Q…ˆÄ,€*$$L¸ÑžÉàÃb[©¬ÿJ.±ö) áú4Ò$Ü&ŽëE±ŸSFMt.ø·¿-‹å>UÍ‹"swE!¶_jˆD¯Ê 353Í1S3¡6ò´3£;‘þ&Ö²É> úŒ·~· ½wx`—û ¼;å Hž ;! £}¯„Êj•¥¨Tº/Wê(*Ç‹ìkÛ#ŠäÆ‹‹bœÀ ¯ØHôN9Õ”zÝ­ñÏ>rú1¹BgŸFù%·–e†4š0JXzÑäs]“õB’QïYXÀ‰´di¶ì½”Æÿ›m]^å Ò’X³¿é>fǠƬ¬Øô)Š{œDA—”®7#[`Û«}4* 3¨J3š–ùn¯¤,µ¬ l¹4#r…XÁþ2êuö²N+7æ˽#fÔ0XÍê´¬*Yï€Áš¾Ú€Èw[” LĆF¡‰û€E• Üjú¼Ó`.D­ƒ‚®ÎÚ:˳­hέ¬€E'Ô'­â…[yt7ý>bú¦Àº7 (|X­4}øD­%ÌA¤ÄKbë¨5sˇKKäãåskÝ~üÐêwäùÍB }ðåy„%ñ“÷³ë9c¼#†§¾# sð¶ðV3Gßà…W÷¼}è1Æl8ÈÛK{ߘãÛC{Õâ;‡QXÕRl@& š?îð endstream endobj 4713 0 obj << /Length 1311 /Filter /FlateDecode >> stream xÚåËnã6ðž¯ö²2PÑ¢d=|Èa‹Ý(zꦧnÒmD—¤6I¿¾|Ê’ìd­’-øà!93œ7ÉQèí¼ÐûåêçÛ«åM’yk°N£Ô»Ýz0 A¼J½ BÆkï¶ôþôã$Züuûëò&…=Ô8ŒW’‘F´©°Â¼ í’{Ú# Mer26”1/9B›qÉ@ÄÜ `ÒÜPß´M¡Iƒ( ¥æ¿«Ðÿº€‰™0“¼­kÄÌ DˆXZƒ\ÊÌxKYįØc·c˜hS’fg×´ú=R`¬64?J@š¦Fþ?8Úá³zŸÚ!Ž·ƒ³ÿ—0 kŒxËðO‹ C lP8 t@;(rÐ}7wß͉nN¨9)¶·Z<Ž¤,¬«TÝ¡Õ)/áüöù“ƒÞqg.ZqiVxÎid´×.ÍÌ^؆þ®­q#ø“®}Ä¥™M<ëÇqJõ³!KÁ:\ªˆ†™_ìC…ÀÌ ¹`&HanYÍpA¶f`¢Z®âí"Jý­L3æä_lP¨åE[QÐÚ¢;ù̦£ŒP|éÀ68Ìni?Ó.Õôúí"€þáPIà,‚Xfógl ÿþˆ"o†¨) `³sí—´ÐÖG¶2È5º=â{ÊÈ=¦ÌjÀßOå)ȳؙW*TO¹#pƒàÛjÔÖ˜åœt5ƒê ÈÁˆý@žÀº;€+Ê°3N'—ȸÆݱ?V6ßyXF7 SGlO¸ê³p8„/a2YëR?ä1¬²NÂ~eøŸ7ÁÜL¨ÚÖØ _á­-Ï®*•¡O¦1ÈtŽõ¬·y«Öcd·ÿ~óoÊ|]D‰7k–oÙ‚ß„Ðl*o/sÙP;FÛƒ½3ÊЊï˜QÁ] ªzú)2.z|–ÿÛº+îò:öQcy«.gÓì~f§5m½qa¥{ù•|†V]ÅžðÒD¢§Ã‰;¦© fvƒŽ{¿ÁŒÓ&¤Æ/`{½²à3¼žÙàòÞÓjé¹^çõóÍÃæu2C ç®×¸«Ðñ9^PÕõHôíWZPž±΢W9Š¦‚׫î¶3 ‡TŒ/Ç7ÜçË¥[QKfú6Î_Ƕò–¡ºk7‘æØ)v"UDŒ¨G“-@;ÒËÄGšÏˆ-`Þ5ÍÔ†*C7!P*´™ªò㮑L±{At]¯^0µ%y–ìsÏ´y'‰›Cû Ý‘ÂLØóI.ÈË7f¤Ð^=1PLŽµä¿êªÆ¤nŸæ¶ˆê#˜†õ!¡æŒ–f+±Gv™ïi[•çÚ£ìN—¢jK\?Rôb€!û)ƒaѲÆanÆgœí>Nè,–ååVæ6waGÇëÅ]X3®.oÂƈ³Üá_¦~¥`5*êô-*osÌ|yÃÞWß毈¶cÒ?¤4éhW¥æ—OrmëfyüÊs^@÷ÿéöê?¼é‘Ä endstream endobj 4724 0 obj << /Length 2503 /Filter /FlateDecode >> stream xÚ­YK㸾ϯ0f.6Ðf‹¤ž‹í “ìn€½èiì²9ÈÝÖŽ,9¢ÔNçקŠU”-[ý˜MÐ@‹Ïb±_ËÁâq,þöá/nŠå"Y¬âÅÃv!ƒ@è0^$RŠXg‹‡rñeߊ>ßÔfõχŸoŠ’³õ:‹E’e@Í­Ô‘ÆE>VÇg«×~ùZ%0¨iӦϫÚN6ž8?N¦‹µLEœÒ·á]ð'ÒE‡›¨y{µ>ß›‰PIÏ©±E^—ÌN®¦E*¿~;4E_µÍ î.KØÞUc±-s=V¥¡ÖÓJÁhW™þ™V´[š0[œÙš¢§¾­þ㉴ µC_´{&´7¹:¿¤ß弯ș““Àbi¡4JGŠ,Šˆg szSÂÊP.·î€0pÜBb_çM^?ÛÊŠÕ:J¥¨›´Ã~ŸwÏ´¡Ì{Þ3X¢€MПA~×ZCógŒÃDÞñpÿ|¨@ðõ³ã:¸ä·KhÜq´¬ú>­d´‰µ½ÁKë¥É‹Í™ÚìMÓS§h;8ñÐ6eÕ<Òc3& ÁÇöCù¼‚Ü7Ž"o@–¢’HRyÕ¿bþ¡aÏØ]É`éD€Ý]eIU,8Ì.tU5 Ÿ}NÛUZjJj€Tlß Eoý».¦&X—ãMN\9 E&ÁÌ}aœ0=ÂÝ‘ÏØvížZýΠJ±‰f è 2V"SàÇ2YHûB5‘«¥Áοóý¡6 ³P%¤ÍLŽ®Ñ––þÊÔåØ‹;8õÂâœG{g—ÐØ™¼îý$J÷¦D£¢Ž-*ÓÆ!ÉGón¹$ë°LËsâu;šcLbÆCàßÒ·Ýö¯’¤K8u×öíž®sÈü¦jÀqüéA¶´-M²ó&ž$@ŽC$plñYª[….l:“ÆÝG4+&ZV (zÁŒO=víp`­Þt6¬QÒÒÄâü‡*^Ò›noGë"ƒ# J'6¦ÀSFøWl†áÄÆdù¨ëk*™‹Sv&jb§7ÄYŠcÎ~ÇÞ ña­¸&íJ÷ ¦ƒŠû¶;"@D ábbN˜žÌ5n$RDzä3¯Sc„è ÍPÇËFV3—[ó¶kµyÞÞ:©ð'•ãIjö$%Bep”Ê„Ô~;0žY*ÌÎnsMp¢¸›‘ˆ‚7/‘Pï&Q¼ƒ‹µ´Ã†™+)‘ãiå1 K’‘Zišƒ›ò„ÂÔ5µ¶ù×hS9Üdôª„ÌŸ¥öÓQÛ¹|+Sè»OU9äµ# —[ômˆÕJ.Ñáq¬j0Šá–œÑ7€ÔD…S‹ˆè«b¨óÎ;{ïÜû±%4:E•k¹d 9ô—ž7S N¨Ç5ótd ÂS¦y#ttF@ c]‹²82ø 2úœ‰”ã5Î<Ä%QxGÂL¨ˆ‚¨{L×JG^{КjO‡ˆ}×a4SŽÈ«Q4Õ£Ÿ8DºB8ˆø5Œ!ÙÖodÈ×AR««XŽv¨ ‡úpM{0Eå¢nIOUN~6’À½JÂ7‘àU7Eú6è÷Rx@>ü|¦á[8 Oj§’éòqÀ\“ÅŠv ÙÅ œ=qHHTL×@FçœÜå°µË=%g,õ(yAê)$ôYò¿ ÒØä[D6K!ÎÞH3Ãð\îp¹ñ7ñ›øѬàÉÅAÚüPAárn%·ŠÎÚ“„¡‘ò °õˆ [2Î^yd¸àÖО¨t>¿ ßÊo$øÏIQß@dšÏO¨ÌQ*tv&9z@ÚK'`T †Z½ðôIíNá3à¹w"’8œÓiwíP—|,)FÁˆ5¼ 8¯yUËÌ6æ‚ëàŒ_ ¡ˆÃx6c­ËLrÂ-2£Ä× Œ/cìmrë›mã÷VžÊóÁÐfdG0kG3‡Où§¤—ÊŒ½C¾Éñ öñþþãœÅCSůC_Œ^øñïÿ*÷?ÌQdLUr²Dˆ½,C/HˆH¼½ ÚðůµV©P2šúÍqW¹<=< >ö£ÑÄÜ$žßëÍ ­È-}ëÖ%D0ó2d gμº)yµ3'XCÖ^F=X1–8puêá%H—_Œ9mŸyU•máŒýì½î_Iý·Ô¤Rxø5)ˆJIz]opoö–3¿}Ûù;WÖˆÁæ"ƒB˾xâу”©íó±ä°R빪D|¢F…r.Ó_—®`ý»³>Oóªºlßå½¹àlð%‡“P+_™à; 6ÞIy˃*,•ÄÊ/+LšëÁüÚâgW¯È<ŽbóXõ»`Ž¤Gú5`†Üí”?qÉÊM.eA ë<•íé}* 0s¹Ü™Žº’g¹«èÃé3åÊH¶Ìý%‡®=t•5ø‰ÎR®¹wh&—%¹zØ7ö]Òþ¼BÕõ»¶sE÷èøv¹ÿºJAïõöq…¨òHZÿeƒ¹˜b×oòÁt§—ÁÜc&:ãä÷ǧ͟±Ô ½!ünŠ^´ÝãŸfs>€H=͇>"qŒ~ÌÍk?†(“ó]ßìw··ÇãQø“á,ÏŽÍÉ]áîTT6×ÅtHQjÏ•po¶ÆEcWûò¿u,¹õ+z“ šÊ^2`ÌŒa毾CÑuª³ú²«Â.W„©{ú8r\£MT¨†Îs´Œ¿øš?–Aã!œ¦# þŒNÐu×¾Xç‹B´nbÛ_¾Áá\é êK»íËèd9—ó$¥èÍŒJ&f ã·n¢æJ¡«)ý¦T¦b.v+!OÏoae[¡1ÝBj(ÓX'·¿[+ž‹*г.)F&CÁÎÿ\ÛvÖbÞ÷ûÊÔŽÞÌ’h¼…¯Ô@Ušž7táO˜7¿Kɤ@^ Þð0<.h~úô á6à7 µ¹"âs¹È¿n–È2.ù~ÍKù÷´ NOï0龡鼺ë­åÞzyä^Qݧ¹znOÅèªåÕÑùü›ÂS°_ÝrÛ»ãsNyêÙä¾iÍáÎóó‘dNp?>|ø/X– endstream endobj 4735 0 obj << /Length 1480 /Filter /FlateDecode >> stream xÚíWKÛ6¾ûWÎÅFc­¨·€úÐ<6hÑíÆiI´DÙ$Ñ!¥l¶¿¾3$%KZe³NОz°IÎ ‡Ão89ÖÁr¬W‹g»ÅÕuY‰„nhír‹8Žíù¡b‡^bí2ëÝÊ üõ‡Ý/W×!ˆz±kÏEJ¨áöm‘1\8FÿÕµçY1ì}ܱq×ö&=½Qð[¹Mß;³ü‹¦iQÓ†e˧ëMà8«åï¼Ñ³d‰á§¼ì6ïžýÐïÚ=Û()ü¡EÖ&"väkC; ̽2Ú(¦;!±&?yòÄ( ÎÓó†îK&;q¥%>kQ"?nŒ(·•4ZU1*[Á¶ËŸon:ë>“b ¿nåÂÊíV ðšž×¯Aû…Ð-üÙG*’$‰Ù(Kºßž¨l”²i³;ùcTtBì´íÓ˜¯—ÜsÏ[*r*ŠZoy%x{ê÷ÿQÒ”íùÕs^7‚—C‘ÝÉ%ŽøíEgsXW=Ö2ƒ%þ™u Ëš<€}ΩÜóv·÷ë–u¿êýTsQÑ:Ó®š¹ƒrœä­H™Ù:Àÿõ‰¥-‹¿Y¦yÏ©`½nxÛ5p üâånñqAÀÇ"}P2"VZ-Þ}p¬ ˜`¯í%±u«D+ˇ4ùÌKëõâÏ>ð§£J4 ‰”‡>±üÄ·8ì£}®Ä¤Ë:ðÜÖ¾³úÄøÞ œÕ @ZÏr±öƒ¯ôÊåõAÏ>b¼]Á ÏV«ë5q`/øê|ü˜Ø±]‚N¸áLÂõȦ‘Áá“©(NM·bqÆdœ´cðjl‡I¤·_·uªöŽ.š¨Ö$Xõpe=\‡bí†kvf,{Ðr É€·=xZÈÖ%ctÙ Zê†vùÚÒ7’Øìï_yü|&W6/ïÔå ñÄ©‹(–ŸiŸ¨fuâ²É‹Ï&Øl²|º´ÝAbô;0€ EÆS4ËŠl»»yóÒ(BÊ«Ó„”1Yê!±*ê’Õ[÷œPk µ‚QvM+Ö~õp‰jaЪF±=E9ˆ´¡C¤ð¤W‡¶bu#Dü+H«3ÐÑcŒBˆO·‹O:}f¹€{=ü¼ìû=ÄàrFÿ†ç¬üüx£XÑ™Xo<7YÁLOjeÎòI4xn¼¢R³©R(¹4m:=²ÂxPQk>Õ¯«ÐA‰ÊfÏH¦gHPY²¹R·Õž }"Çs”G®†DM?á1P·±Ž‘ï¥'þ¹À¦@$ýÿѶ>ÿþ& §=®* …&ÍwF@úÄ1@j¦xEÃÆ#¿3D4©p&¬N™¦›#G5\­l4coäyÝMò³¦l•"‰p„©°C*8ãŽpEOØÚµ?çš]óÆlúù)ÒâN_¸ª¸4b¹`[ÈŽåæð4m…Æ—úàs ©=×JlËTE”÷êßÆå>6Õêò8#I mÁ‰ª+z:$ •ùȦz¼\jÑ´áæõ#Oé‚Mj³Óƒ ¦˜(ÒÙ‚89ôË!·ëÏ)ï ¼wÓ\Vô\oœëú}`!KÙ#´‡æ¨ù®&œŒ¨o® š#ã½ã¸Ÿ5¡9ªV dÔÊ ?Â2M£9|1‘•˜h1îGZgÄ4 ÃA~ξpOœv iZEøâ1U‰Aš}W¨Žëñ¾(ù¡H1ÕyŽ§òŽ}>ÃÅí‘™r ªÁñŽ·zÇ©ÑÜ@5©\©:ò¶4{CY6>Q—!˜èL3Ý Íb`>@ö¤–§sÎ÷Ì(Ñž¨B׿NQ4¦ßà€Øµcøîû>t#|mþ°] endstream endobj 4742 0 obj << /Length 2548 /Filter /FlateDecode >> stream xÚYI¯ã¸¾÷¯0úÒ6ÐÖÓ¾$A 2L.of3š–h›GK;ïߧŠU¤(=¹_gN"‹Åbñcm¤üÝeçïþþî¯Ïïž>¥Á®ðŠ4LwÏç]àû^§»,¼4*vÏÕî×ýØywUÉÿžÿñô)Éö¨H½¬(@˜fŒ’™Þù,ß|Ÿ>E‘3ëe¹žv 3 F4YTU%ui"V f©Wä¡Y¯î.ªõá†)h‰ßd?Üd©Î/D¼_åx•=u}xͬ*¢}9@GôJœjI”áÚMuE\'¦Š²rWƒïUO%F–îE£Á5€c‘$¤îo~ââƒçCàïÅTDP¼€*ɼ KÌ~ŸüéûS Z&X%ðV.á’ØóÅc§„4­Qm-ÿìU;ÊCì/ˆ.¨F¿MÄíbÄ«fj¨ ]Æ+µ»óŠ€ïGÙ"ÐؽôÝt£f ¸ÔŽ1ìŸ1=ná @WŒ4:„u³ôÂ@šÖ.iŒ¯û^nxDf^Yk¯ª÷oºÄÇ 9±—幕‚{Û’^>³9[|-0 ¼8Œ­DÚþûÍ éåI°’ÙK<Âöæ‘ÁâQ!ˆtòõ‹µ<žºWÄdpaî¥qNSÿ&G¡êáAl^—ê…•¿õ²p߀„£hEý2ªI‘xƒy\¼U‡J c?•ãÔëx }ÕÒ¸ îçºk/ˆ¾Üˆq@K†hÍ"¤(¯ÄÑw¸õ»+)äÈ»V¤ìú^n›è­k+´®, è _A0ëìM•S-z" ãT½P“#6Ñh¥wñ´²ü{)Fô1–Ö7t,à7áþ§Aµ^îªxáóÔ–£"gÃD[dM|w/Á¾-5N›1LÆ9Ê0&ãÆ¢\‹ÂgÌÛˆ4Ãûfàa˜#j‘ˆE=Ë2ˆà:”];öbÍúâr7Wí0.f"¼Œíæ6ΠK[r°ÕJx–Ñ ›Ï×ÍxyIbÝŽ”Üðcˆ¦if¸¶ÖŠcëë—þ¶W2Ï÷m\ ÛÄa6ô +4¦A£-}&ð ßÔ þ +Îmy†9h®#§Ÿ‘ \#b6ŸâªTºèѱ$ƒ+‹— }~…›U° æ¤À Ú wL7ìíÔœdÏÍYAù5’™‰B¹]=5-µoÝ ÐâÙd0½0ïÀÜë-¢p6=+‘·h£ÞÚˆþyÃ5°Œ¢hq. ÕgÛ¢ìoë s¦ÖH.i…”M2gSèPÊ„†cÒØ5% Ì£¬gä5z ¶NÌÚµ’uvej!kðëGyE´tÍ•ñ‚mès}–(üÿg’x9¤"˜>ç| º†ê¾â,; Ï )æ!‹¦meHÒûÖʦ}MØÀuä_: æ›·*šWõ$&€¨Ó|ÕÜêDšZ{§6ÜÚø„ÐS—^N¡A÷~œäHO¨‚/© £VÁcƳJ Ü­'µ±'E—FíI>D(ýüà¦H¤Û¼í«ÀüÏ&¢YOR[µ}”Ôf¬2ðñÛŠÕôóèð|eQö™2àáÕé׬õÆ–xAXµƒ¶¦ŸXʹ¯":"ŒTA]çuD÷)H¦¬i@šâÇ œÊA ©Â,â¼›#]Ÿ3ÒG3ß9±MP˜Êœòìõ!ã—ñŽÚ:è÷–œ1Ö1%̽,³Ï.ó/†¯¾²þ›I ™N”“®õJôçÛº\Y³â«"Åo””í0õ@#êIþÞ—×$4ÿ•àîMÿ•4‘k}hÍ¥$²¬jÁÐ)ÿÂUùGO±(Á͹á¼ÙÈü4™-o·¾»9Œ’8èEˆËW?bðâìüU© (g2Åj·®f‘>%ls_¹vnÜfß>£ÌÀ S'¸¸÷ºÖ×wúßqZ¿èb¤>kŒÍæ~>¤àî²¼Ž'1™Má2¾R$^4ÿïùÓýËé/øèn|Ðÿ ‰ÒëúËŸ·Ê¼0ö’(Züìxç{èvþ®í¹ùã«¿Sø«ÀÖ×q¼ xzºßïžYùp…å¿öà ÿ*Añø7¤ù~ÿüîç9-ê endstream endobj 4756 0 obj << /Length 1091 /Filter /FlateDecode >> stream xÚÍVKoã6¾ûWÉE,šÔƒ’‚æÐÇn½mⶇlPÐ2m«•E—¤òúõŠ”#ecÇ)rèŤÉo^gFƒ½µ‡½_'?Í'³Ïi樠õæ+`Œâ„z!ˆÆ…7_z7~œÒàvþeö™’4Î „Óu -Y£V7ÁN=覰—£ c+wÅW\$÷ySr5’èùHŽhnüPìW¼ÜèkAU‚ýi&¸ðÿŠÈGAg¹ÿ §8ÂÃJàˆÂÍÏ¢Y¶¥®šµdþ–k²†Õ 餪Æ^]Ùå¾Ò{¡7üYh%¤=ݱòo¶æȱ•Ù³I¾gëK¥¾h%X³zDGpäp!<@‘¦}­™®”®JƒŽRì_‹•¾g2ˆ3Ÿ[c#†² Aü½­©C ß"AENz@L_ÑQtO䆽ØP7µöÉ·(¢Iîã¡æõ‚­wêb6[Š ¹žŒHNãlö—RèÇU8~Å¿¤J þ0¢()ÜS_sníÿX+ñjª`øÅ(÷¤ùk·W&F.¾H R4Zn™~™»Ù8ª8ÙGÕ=¸ñƒÙeÕ6G¢±ÿ´°+èUZB†°5¦Ü!˜•ÕƒÝ/˜âK»íU9™%ÓpçD*ww_-àèAÎÿ]8À2*ˆ l  SŠ×‹š-IQäÇø€J¦4eØi¦™ÔË›µØñ'¨Ìâ˜9š  þ›¹dhN,dś۬;h¯@YœDx;¶®+&³˜EL>¢â ÄGŽÇÝÃt¶Í'QÚå…i>ÔÞVuÝBC2=ë. ©ïòŽ›ýÛîj®Ð«Eœë÷“(Ý—]âÌAäY_´mbuŸŸaŠmqØ© ³Ö´t³³•Ñ‡ACTÅž) ù!Ü«QwŠÀMi#™&ÓxMÓ)5-òv$?K»ã¸%ù‹ $·­¢•Ü˜&bV[åïŒE däŒsp7µ‡J·ËÇ˳n9sgk¹»<Ó’3½åîO%_]žíjVò… ï˜T—ÉEä!7ŽÅøõ}£zË™ìEø˜êFüi¾ ¬Ô/Ù¦ÙlO>Í'ÿLH× È~|‹ Ó+·“›[ì-áäQ uxß!·^%ž%¦qÔÞõäëÁ*ìFÄñ×¼  ñâšr^™þF!Ñpæ˜iêKÓ@Œ`ÇôþúÙ}NÕ‘A[ Æß¡vé+ÃnmÄný…«RV»Î›÷£Ï®G&å£û´·î;~gÚ)“•h{ð㎻-LƒöHÙéqÖÒuâVñU[ï§7[ çÙãýÙ½âo ¦×Ó›óA¬ÛHjñdJâ¡%ñ`°uÀ'-äIÀZ¬+}²:º“bqªÖ£X:Â2Yªª9Mí;°»•3ïZEó¶Ï%¾{V¨µÊ]Š½ endstream endobj 4661 0 obj << /Type /ObjStm /N 100 /First 981 /Length 2021 /Filter /FlateDecode >> stream xÚÍZß5~¿¿Âô¯gücltB* HU[$ êCz·=Òì)IUà¯ç'{IHÂm.¹+G'›±ýyæ›ñŒ7!Eoœ )Š¡Ä*dÃNT(†ñeHÉ.EŸãCÐ'Ù„œU`“BÕñFDuR0…ä B4äbÔGÉA=egÈsÂ#QIH%2H׆”t2ñ†¢+ÆcÅ:‡Às: )Р+èt’êP¬U¨M@šˆaÊŠV°#O .³áPçË›sºq¨p ”n¸¨ v,Dºæ˾ŽÅ|Et,T<‘Ž-R¯À4\ñ•)(ªŒpQT°ž\×ÍÆÇjç’ŒX£v k§LÆ<¢3¹@*A×amH˜‰¼W »"µ¶8ÌÉŒµ6'ÅY°yOгÀØ…8ÌS¤ŸIœúÐg•0¬HL¬;ŠtgBÉĺ3—bÝLIw&ìM ÄXÃâb Ê&.Ö€Ñãb Æ·EI$L&‘×Õ`Ä¢« †TI %]A˜Pá2L¢ÇÞAª³x̃Žð `,u¤äu¦‡×ñ±þ)OsÂqð ì ‹«¾O†®ú)Õ²ÁN1, +(NøA¸b ¡ˆAz‰U ªƒG’¯Ï0³Ò’C\°ÎcJ¦Œ5@O)¹ê“I™)Ñ™ÌI]Éäàê369j þ—•DJÛœ+/¯9ç: ›\ê²àP.’ÏÎÏÏšWÝ´¦y:™tó³æ«nzÙN_;Dº{Ó|×|ß|ˆ¼7gÍ‹öbn^ƒž–{·Q™ZŠ%Ì t8¡÷òÃÛ9æl~¸žüÑ<=?¯+4O/æ×ݤyÙüôâ{ýûì·ùüföEÓ|üøѾoç£wÝôó›i÷;V±ÝôêÉ—_žá?Eøy”é…i~þåWƒ%½ZŽƒˆ§É‡ñøÍ^er®jÃà–ÓPmŸÉFðs˜6Á(HcÊϺÉÜœŸ›æÝrÔ3¸#Às‹ÑÅXxrù èp;GºZÈ•€ý\­®~À¢Íóiwñ²…Lóü›g¦yÕþ97·x~~>ºjÏš¯­Ìgš%‹ŽWïκÓ‹v¶ÈœõÙíåõè«îOS ‘&¤0<ü|4Åh(rZ(VöÌ°pMôŠ§&ú¥z!öÂbÿ‚¶¤à’>¦òg7#©~èI$Ö# Á®Á2 " ¬c…û´ºá¥i¾í^u^üìÅ»‰¶Wóv6bVD;@)þç`3RÇ@F“?N‹Ä—h‘&o‘/›w"™O¯ß¿»O‡„"‚N“»wG;dÍIë’ìEòn69¡9Ëš{½Õ³â.³vü¾»l7ÌQSªšá¹h]ù6-4L;J‘âPmŠØíй©›pˆ<ˆvð–qàíI‹™p3G®ò¾Áá/¼+GâlÎìK™¶ÓŸ”é/Ç­ô'}Ž[&ìZ^.…|ʬ@j†Åbv6Ž„Ð8Vê1¼›Óíìb4¾8alY­Ï5°µfôêsxˆåAô)®„²Â‘±óø0|² µæ-Œ –œ€£FUv$šuå»ÍNmjtG×1»£ë¥ i±-ÇÅkÙ¯ùˆxÍ}˜f9iMÿ xedí˜3 D|ÎlC¢Gã#Z\”±hCQüjO X^{Ñ '`8”Žå:–]sÿÆÚA ( ¦­‡Ÿ6|Ý`òònÔí÷e²8·Íä’`r^2¹ô”.ÿEéá^JÎjÚwz œÒ‡èôNÔ›“ÞËZ+þ-æzŒƒ¬¡³i[àq2SÞ_|wv>z;n·£®uåC`§vH–R¨£z³1PÛ%¸d 2E°¡|ÜɵVwÞ;ÆÉoŸ^‰Ý7ÆûοÞÎ-…Ü åAªKtŽècWåe@’Íù”—8O×Ê)‰8VÓ'¨.Ùê5öªº$½û奠±—ò2ày®÷¾ƒ3ˆò™e·v©r¨³^Vä#»Ç‡,Fõºv+¼™ïÞä–ÁL}TSY ÜÅôuj‘3ˆÝשÈ|Hëòèuj`¶([ú:5xæöÞÝìðÇc}µC_ãxŠ(ÿ·%;®z}‰ÃHÏ^òc—8$ý¢Ü^¹RFZfú¯gÜM®¶òÐògXZW¾;íÒŽ8=@ôÚõ2ugÖÚ©íõÞ£ Ôæ¿å¡H4*8ñ@mJ8|À°uåÕ­*¡»¤Ñ)Xòƒµ)£½¨ì‘ ÒÑMñÆì ^:Iàm÷7̽8–¶N_NÒé>ò;M}_<œ•ëÊ« ÇÔPev(¨v¦]ÚzyïB:<}ì»N¹7YbÚ&K ÷'Kè‹«ÐW±/®–›¨oÔ—‚€W• m°þ¡¿H¨6í/s.`ŒéûÑüôwõvÅ:4—±è-þþ>âr4·¿f³vüv<º¤Rò K@Ò7î²Â$§ Â4înÚ¿ÙQ9!œìP®àx´~Ýö8ÝÛéu;açü [¿­«?“Yà Z¹“„çft5¾M;8ŒO‡(ø’QDæÀƒÍÚ ìC~«<äg²óg{KÁÝ? Éhœó@혢 q É? ûTø endstream endobj 4823 0 obj << /Length 406 /Filter /FlateDecode >> stream xÚ¥–Ooƒ ‡ï~ Žk2)ÊÔy]².ÙÙÛ¶ƒµ$* ØÚõÓOm´â[vÂçùñò F‚JDЋó”8ËUè¡Ç¡¢¤@!˜>„(ò<Ò% ½Ý•6ºX|$¯ËUh‡8Šã6«çhuC†øåŠÒíÒè±Ç]?j'é8sY¼©ßI@vü~á„Ü™T•ºñºÔ6Ñm‹Šƒ`êéOeþ¬9Rf?kÜ®¤›í•bÂiôuð$0î *߈=ˆÜ¡|Ðn:óÆÜüöò´òx%JnìT©Dfë¦j­ycåö=ªËfxÖ$ x±KvîÐ&;yè“¥¼ÙÚš™±k13âË]ŠŽôÁ$…’⻂¢ë*× ¶` <äZìÞåEÁ ;Èr fkfS’ÙDk¼ã“h…ʸ¾Á?ùÀÊìB‚œÕΫ†8ìuÚëU#º’§r=ÓÜÁRsÖ¥µn‡tpB÷ÔУÖIð%|‰aï&7Xæ©Ò¢]Í‘Æx™ýL¥ãÏÖa|Nœ_ç>ÏÐ endstream endobj 4827 0 obj << /Length 1951 /Filter /FlateDecode >> stream xÚÅZIÛ6¾çWøVˆîSôРzê=4Ê‘é±Yr$9Ëüú>.Z-{<3N{E>‘ï}o§÷ ¼øåÕ»ÛWonD¼PHI*·›Á1.1!H2µ¸]/þZ2‘¬þ¾ýíÍ$R–(„E9¢¦ÒE½±t¯pØö–ƒ¢ö‹ˆÆ0Éüw?V+‚—÷‡)šzôùôù憱!«°ILü>_²éÙC¹b‰TB[^?­ˆXš´)«UD^–ÿü´¢b©óƒ©ý{Súç ïNƲڙ5šœ6b- ÇED .©?´¸ƒµÞíóÀL=˜ú lÀù|øᦥk¶añ=Æ´ªÿr_•‡ý3€£ÿ%ǵIËbý"†›+ð»7U]Q“íZVu@±ÊêOçiŸ^ÎÐTe>À ?¹U«À&Ì׺¶¸oAî|)È5¦ìņ­È3ÄyÄûªÜ—U“•Å*b„9ˆ¡Ë¬Xg–ÉOÙú óÚ/nl4Òy’´T6 Ø%g"vе]÷» V›Ïv‹Ò¯:ôê–B‡o²0“VF7fmEf#ˆ¹JÏôÝ׉]®³t[6å.{ÐV”§;~£«ûúrÔò¬uÛÏ è ¼õ:³‡ë`bwÒÅîÕMíUà¨Eê¥ðòhÿùÉ4:ËëïO8ãü¡¸—ŠJÄH*|0›8¦¹mœ0n[7ež—Ö>;¥?ÆsëŽUø<=TÈŸ…e6ÎX@Ìú툫aˆ àž `Äï)çÔ˜€ò&ùUMù°Ê&8Š•hißzXo²<ô»•ËÀtµ¢x5eôpFÎVƒi ‚僕´4‹“µÿ4ëun£Ä×€‡®=#QhŒóu£‹­ýì‹uÿy˜B‰ -ùqŒ€b"fHÄržƒèƒ½"š+Þ¯ª6ãÝôBÕc“!ƒ^Oh¬ª9-|ß%¬³€r[K±N–Çðä(‘ê,žkæU(}õÄRð0]¯k'ÊãfÚ‡÷'˜#ÃHð½–ú~ðcô<~ I¢^nÙ)%X$L\Ã"‡P“ªÓÕþ ðP.{örx@Ýw—è¿E‘Â]ŒøXÀÞµ³6„d¸+˜ÐiÀ ™ú?lèÅà\Í‚t•B¡z©yê¶9øxèò~U–O4¬©DÁ€ý—GÜì´D/V7ÔGl'ˆâø ž¼™³PÈk a–9–˛ʘ.¢ÛËÃ[`Ë¿­¹TâÌq]î\ïïAg!(ÕkhE–­’`Ú+ >))₇’–ÂÑ®Fs£J]Ûn­Ü}í™älK!ª®²úcuq÷p™^ž´'ÍZÛñ/ƒ‡Û…۬ⰻ3Õ¬ÿB®äü °T—Å&ãsÉ’±cÁíœK„vi¶6Ejük¥n#!Hp$Öíï_|°þstšóÚÀáȨ'1šÏˆB"ÌåùŒÈbâDF„ï2"¤ñm-PúgŸaÙK?æ~ÅKj7˜O6­‘Ž“æ$³ü4³agˆìfRgÌdƧ\_/Mž²Åç{èéZóZþ£·Ÿ/©5irìDyŽíóèÌOë|¿ÕaXûg}¸¿7µ½Üu¯ö:×>Õê&Óa[gRvðçVç&L†Ü$­w¼>]v:'û’š½ãAúÛe'b2nÌcÜÝ£…¾ ŠÌÚQƒ‹!Œ7±¿ÖŃèçöQÇüxBNoDØñYñѵŸ§ˆa^Å,qù%±XØË1– ˆTÜíóÃñ&áþª›Í•EˆSŽØ“ÕhIìÈuÁåþ02a0h:ÚO†¿0Úw—IÜÀ? T*[.A¶þê§ "UF»ÊʃRHÊxl ãL5ô¯c%H‚ˆ8VÂHú©Þjzžç2tƒâ*×^ó.z¥êûÛTÕúî²–ò㬠]­+q<Uìtˆ*nXûç ªØ×»¯~£weašð•5J ùð1JF¡Â’ô¡bäÁ³af>"(Äq4Ü¥-á'#gëÉÐ%Æ¡ËcÃÄmEÿ³õX*UðX*“Îcí¬÷X;ë-Fªáïû~eô‡ ð…Ÿøõ‰»Ú•»:’Î5}9 òI9tÞ])ب¸À_/ñÖöùóí«È@“³ endstream endobj 4833 0 obj << /Length 2420 /Filter /FlateDecode >> stream xÚåZßs¤6~÷_ÁS‚ëÀ R@’ZqNØkšsB‚ °&³cR¸½„ÂT®û@×àÔíp²nê®êVȺ‚JPkírí]½öÔüëVDh\Ê»G'œ¶ÌU߬ž£LR3`~Ø´Úaåzu±{×øIÅîÚ.åyŒ&U½ÔYÐYð¤F30»wÞæ»6À-ÄBIæùíc½]áD‹!žyþ짧]zžø×Èü{%ÿóϦwŸÏ&Lf†c¿Ýy÷ëÃß5Ì™°#祵ç…T3çýØÁùpåR¢ó~$¨øõ¡©¡1©– Ê" !)¢5+(ÿVi´é2£P~0Tðª?‚ò4b„3l´œc£l@±aÄFfYáï[–tD'Ú“ ƒôiazh››ã8ÙКŒÈLHó‚±QÉ)½hH 8™³ˆ¡1KJ Ð ?¨²]wU}*PJÑi@óæߪ C@ÙPÅÍúA4&^tïË6ž·MÓ/@¥Æ¾Œ™ xü#ðã¯Áoût"Ks3 2:'*?6 2‰*ˆn¾&±ŠihÂ,_°k©âA‹ &>ŒpãV¸[ýKŠôÿ)–Ëëû?3–¡{¸o6n L(Z”MÚžN¾Ïið8¬Èݤý š“ΨŒO–}YoWµ"¶}û݃››ykÓöõîú~ᘷÓféÎâêß鞎;#þêàˆ³óÊvVo«þd-̬àç«äG†5¬>?Ãøæ“=f°’gLœƒ±&Ÿê²²ãÆ^X\öÇ‘Ëa8_;¸ì‡¼ËþXÆ'c^añ]ùº;ˆ,¾½$ùf^¬9³Æྠ¬ LþC½q¾Ïv„àyÙu÷¦p£ìñNùz<ÃeB¸×tñnUOÄýǃ¶ë‡ E»òý%¬F£M}ëÊÞm¼YÑ‚zƒ²[£[4õ§ñœe~—cÝÔ}ÛìPçšÍæñ¥ÃâÄŸ`¬îޣĦêú¶Š‡.jŽcpÛ½Ãý0Vépè°ß¢Ð†T]$áÓ/yâ#­ó¦sýpÒŠPÉO‹&u<š4ÑÊf#¡ªÞTkÀ?ø3µô¡i#Á0‹´ãuS¯ßÅÇ•à®|À7®r®ž¨éŸü^eƒ:¤As|§ŸÅŠ8r…!\ †É‚ñi‹ß’¦9& -L6óÏ)hØSÔð¶Âätà"i÷Š®öÜyäšg˜«“yèð­C¸8Fƒž¶Õ:îÖÞ5®K…Xdõnñ³šHŨ ËèiVõr²sÝÒ/Œ(xö,Îÿ*®^Ú¾\½ŽÀ¹Tc÷{`‘À¹¶„á¤+ïÙQy‡·Ê.Þ¸¥ðŽ} aˆQ¯ÆÂðÇèçà„LéGbQáqïèŠ%‹t n_i¸’{æW2Ö0†[Ækç6ÝpËá ÀvÉòx‘¼^I|}"íÖX…Ò¨ .Õ1Ú‚Ø#TÛˆËÊÕ˜¸Œ:F\*å-õoìC3È“vdy­µãv¤êbàB…b&Û%2#êõtV#ÏÃfL bÍ™ÚQñkGŧmG‹¤Õ£vTÍ£ŽlæÏ6Ãxœ°™×ü0`ñÂ?2–Á0L'Ép ³Ä‹1Ÿøëæ6²˜Ä‘âã•„hª ¤OP¥bW=|üjÜU«‚P ŒƒÛÒwZ Ž”(²­î¶´:L^ÂÓÓÅðƒ¡¢A(6û fEb\èu÷4ISš¤Çh² „Rç÷lïÌi‘¡ŽGÆÇ´wg`DáíSgjðŒ"<ì}¿ž›_vKà@):”-ωtá‡4«pÑÇ”ý¥?›q¢  yéJåƒóÛðó0Z¶°[6œÎ#KÑ!¿éž¥è”¥hd):a)òiðúÙ=üØâ_‚£;‡?iÄU2¤1P¥T)!Ìý§ˆÁ†²Ÿ§¬£‰9L8[ø÷"‚š…ÿ“Ò?9‰(ôGñ$;ò‹™7 oÞj5’Zl!ê¦?’Ñô°O5ìrÅÖÓ$Ý[Ž¸±ô‹c¤¨nø"ùM[­ãégx€Ij]ßÇÄå”Éy* ǯ¯/þ0>Ö endstream endobj 4837 0 obj << /Length 3708 /Filter /FlateDecode >> stream xÚµ[mã6þ>¿"ŸZºq­w¹ÀÐ+ºÅí¡×î€k œ“83F{j'ný‘¢lËŽò²Ûí';-Qù™lñ¸È_ÝýýáîÓ7Ê,ò4×\/¶ –e©zaKµÈ›Å‰ÐÙýÏ_úF³€TØ<Í”…Ñ¡-ên‹tw™¾ÎæX eRÙÅ’hôýOœ«Éן¾"øʦRÏ&K7‡f½+;bn2‡ÎSì{òÏî—ÂjÿUÓî‹CÕÔ÷KnMÒlñi“îPÔ›¢ÝT”jÙ—EMo›j{ÏU²-Û²^Ãt®ñÐÐëf¿o<ᮨÅcI¿Êí9[,=3Ki®±´-× S&é`J|ÓÉO™Ê¾øæËàɨï7œ·Øݤð)¾]Õ÷L%/ôÕGÔõŸ{›%Mýø Ú„å9ÇÁïŠ]×Яu±Û¹UÂׇ§’ŸÛfU¬ª]uxK=N2Èßñ¹l«¦…0ukʦ«ù,dßäÈ8uTõ¦Z\öºI±}2)õê*¨¶lÓìwo©±+öÏŽuìÂAqšßªÍ±ØÁ¶mö³9~Ê2Þv‡Ûms|*Í“§yÓ4/þ®ŸÊ–ÞÃÅÀO౞Ð<¯‘G-NyÏ£©$²îž%庩ýW_¸sUZ¦¯bü¿<•5)? -“Ë43½îoˆÀý`uJôý¯a—M²ˆ1•Ê|È)V†<×ýжã[ÕѳüÕ­ÖQ5ôÌRåGxyªÖOôúؔݔŒÑ£èbëÊDÊØ|e–XŒî ªzÝ–EWvƒÞàØ£uj,Â*ÕŸ!D C³¹ „ˆ¨¾—¨pÙv^‚dkH¥@ý”Jæ|›rØ]b›ÿiìL«úa°]k²ž¡ÁJäû±u›+lˆ¨ ÁªÐ¼=ÖëÃø«i=5¬ÎM5aŽi‘*“ß í†§lT‚«T¨© /)‰ÿ‡ÒKøÿlåÇsé’¤>Œp«í6ª¢ ›iʼnk ”bæš Å»&x;uM-}±ó½÷KP¤Q›<ŦÜ z]̉,lÊtþA„±*»› D¿™‹BéD!Œ˜‰{Høv" üE«ªnö•C`h-=%º`ìu.ø¬«ÞTÝó®@¯ÈÄÔ#3áðùû¦+kð hL:‡ =ßaR„<ÎÀ ´ä¹IPõˆ–ü’“éÃK`<ð«©wo‰|%x’~îáèznZ÷QÄKðøÌ91„#×I®ÈðÁ]ºÞÞA{·† ~¤ÅŠxq(6€ÁŽlª¢îSY?ý@€#Ñþðä¤óðræÐP+MY] ÜrãeªOÜ‚…€ßdFØ~º|á—/<ðbC×»a1®úÇÕCû|õÐä¿ÏÆÕãà]Œ÷®‚øà­7ñڣѾª½õ>õ^tе¿¥ö1³T`£E„ê¡ Nq¥çfÉ!lñ}§…OCWÈiÃœœ=]AvêY$Ájbô—ºAòg9f` i@<Úûž{FAq‹E]–›Žz{ð\•ÔÕ=—ë Ã-:`ꉻ4.u*²A‚‡¢}Œy28þd£“-Ú{f“Çã°dÀŠˆ¶Ï«˜{©Q&tŒºÅÈÄá9sƒ§Ä¾S÷Î=Ùs±ÍrUupÒqNúÀâÛrׇž—“°¢Ã¸"3ÉçÁîu‘­1,•ÃV׬ŠÉÛ@à2xCXI4XJí<Ôüú8›²&o#=Êr)’ú¸_áéKqŠØ‰ø8ùrpØŠ<ºÖ5±Ñ¡&W–Œs×ÌŸøƒ=Û8ÔéÂóäÛȺAüÒ^“Ä+£Ñ‘ŸI•´Wä7§Ed›1â‹ ÑàbcÖšÑw#aÑu ]tÁ ¹ ×ã,ò5=â|I‘fL„ëss;§Ílˆ¯1fp¶™ÁÅ3xÆß+°ÜJ“»3ÆqWDZV§ùb·ž"[@³Öñ'C ãÃÃß[pxЄé%“‹€êud,ÐÅ"Í9vw_>Üýz‡ªž-Ø‚+ˆêy¾\§™å‹õþîÇŸ³Å:ÁÁ¦"·‹GºÇÓ¯v³[üp÷/ºã±ó cI0&ãÙÌ©Yjtt¹1'sBœØω*ÃÅlÎÉû±Xžf9Ÿ`5H3·À¢“+“–÷4œhL0–H­E“‰>‘15f)IÉTõø½1ÅÍ Üjsž ¿n^,‡ŸGMÌ µqjUx³F˜ƒŠ:FÄð‹ôßï×tɳäYzGž‰Y>?(öñ‹¼`9ø4-®Y€" -€ ½¨ÎYœ€ÑÄy€s2[² Œ“]´ÐoÍ.Y€ ääø@(ĸ™ g'?¶ÇŒ§"€`÷§’C˜ÁoÙdø%Ćʽü*ë˜Äs°Æ%Ì—{M`±C™!”HÁÎKVÈÄÕj%û +ì‡zçòèÍ¡a*\â€pEôÊÆ+È}ÔâQsM˜ ‘…Ç«úTÁ°>A–ÈŽàå¥ qå“øLYÇ7Ìä%NûÂT€ÒYdá“Éâ"ÖŒ÷xùºX7«Ž°ø#º–*À*Ræ}ó¿ïu–Tåúé°*Ž¶Ê¬¿Œæ°±ËÝw@nWÕMù%Å"7WÊß\Ás~4ÃÑ$vst4Ix(‘ý¡ÄŸ<Î^Y}Sý‚×(ѳ)Ø}Ï#J=çÉêžgÉÏ}ž…c.gv†ÂÎ]¢"OßÕþ­eÞ„O­É$KàX8¯?Y•‰j¢S‰þ`1L…QùKuxŠ…²©¶êÝ\û …`TŒøv99E§ÌÀQ÷Y†˜«ðàßß {ÉÕöc)ˆÆ¤ 朿 ïÑÑ=ÌLB€»ñÜ5þÌÕòÑ7Þ0‹­Ÿ9p‡èð¢[WœKvqý°ÃÆ’Æ…-”o±¥µ×Y&œ†åÿAyà[ £¢ó-æÒú-8²‘f¼p™Â5ƒ˜Ê˜R¨›Ž^³ÀsšÁ¡ç¡râYU©ó~¶‡¡²çÀš¼ß®p¨¾7¹b¸¶Yˆ `gÔMºÀBòK1B?V¨ ·3 <š«qçM3ñèîáÁ£~%1c4²=Ý6pð2èødç]`>Õñ™Æi!¦w:ej%DoMÊÇ;EºœêÂ[xÖŽ*„ò×÷r¼ÜÀÄ­–.@°ÚW¨w½@Z£ vJ¼Wîmå=–OIÊÄ%]DX¦‘-¨Œµæ½3½·™Kݨ0Cøp7þ¢Ïè@ƒs¦ôêÓ§ÂÓÇ`´e4Îïbá»±ï¢ÿ‘Ë<ù•ÄVGLùž*áÆ|Wf6Ö=GlÙ@öRŒ{y¼ÛÉù¸ ÓÁ–èkc³dj¤Ëôð<Ã|P¾3¯2–¬v%õn›ÝŽ2ó﵄_ƒZæ,¦–@1‰‰á÷GôˆÆ¿‘ÌÒ_ C„x6>MjóH½•²>©mO£Eh›E‹ÊYÁó<]Jèðyzf¦¥>îf>C8¡²Áxž£7Vx=cO0 ÓQd°šO²Žcj,’tÅÎ-çÅnGúâ¨úŒ˜0¼h×|H´ Ó iRÞ— õ™5J(cée—R¹ˆrš?mËâàÂíÜ$+LFæ})4lgšC³¯þè7.§lÙžO^EïóTåƒÙ2*GÎPÙè­HïEò1dàݭѧÅ$œüâטSìÚfælp‰•ŸÝ]îãäîr(%áþˆn¼¢Ô¬¯×™\Q¯ë¹ÎÞýg˜#“¯³TŤ•S¸ÜO±±v*'+èžABcÉ#Û‡,è9pL‰jg>Ú%Ï)a# ˜—lšX§ô9êuѶU_—Ò¸C!•où:“n 0×÷£+‹IJ”³÷={ŸÔu*JŒ°þ4ÜÝœ–”™;ûÞOÅ”çd¸¹M¾+‹¶£F‹X±9®Ë}ã0ɵͰ>%s°½9Ø`Ã/ä$ Rl`ít’W4è‹?†[_‹`íPëOö6øú?_ [u}l¯xåÍ”ËIZ4¾˜Ñü¢Á.{¢)‚Q”¤=<i™¿>PrÌ|ªþ–BÉ)N+ÓJFp§8í¨hp18â´¿í™L7ŠN8­|áOć;YJ ´ä„ÐRŒYØS—ü BkJú<õ¾œ •*a§ðúž˜Ã2£¡¬ô\ñiD "K5Ëß;> stream xÚÕYÛnä¸}Ÿ¯è‡ PÍ‹¨‹³Xd'»³À;ÆH&r‹Ýͤ[êHj{<_Ÿ*^tkÚžÍ8›~ »D‘¥s‹U4]íVtõý›··o®ß¥lU"åéêv»b”‘¤«Œ1’Šbu[­þõmYwÛõßn¸~'³ÉhQ¤$+ ˜ËŒ)ÃAo¨›Þ·«X¤¦-V1Ïàea‡à\ÎÆ_¿b2{N’4÷s[H{ºë›*àJš nôÍ:–Yæ^jÚcÙë¦^Ç"O¢f‹­ˆN®ûøNwªÕåÁ>Û4m«fpgGõ}Òõe]•m¥?©ÊZŽª¬í˜Jo×\F[Õ®9btn;bÀ±Òz¥êê¼Äht»×°—4òm§§Ã£í÷{åÖë„F÷k&#ÕvÎØ8.fh±„“,s¼ª¾È^Ä‹ÌxšXJ¨ÌÁ}IŠü ø:ÔM .„ËÀ>!Œü‚0΄!Œ³$:4;Ûiªª³ZÖY+2elºû‡µŒ¼à¯ÀÊYTvÝù¨ë]Ú¡§²íõæ|([ËžõmFÞ=ÎUÎŽprAÕ¦©û¶9Ø»¶9Ÿl×9½TÒ‡½ÞìíÏZ©Êqoœ‡öÎÍÕÔF ”£ÚÐp¯Ëq¹KòyÆË™Gó´ àÍ8Iä øR–G»óQÕ=øÅ.PpÂ(w H¾Xíç( — `Ea@©U€1X€É+­DêG‹}ŠÄÃŽ‰ÇG¥;!Þ˜G–ŸÒ!^°ÌxÁRO<Ú­Ø›?ñ8ÜÄ0ݹ¹fÄ£Áï— /1°Ê牄±âiâc èü±é•_¨ì}b“Á§Hm²@â\oÜ6Eazâ’åïÙ0¦ræ¡$rð°núÐWH’ÐA-6¦_ê˜É<­@VhŽ¤#  åD^F3áÇ?К0£eÁG-£ÕèÚŹwî@oß,SΑQ(¿IØÃЃN¹PUé®oõž]gsò¡*Æ€õ‡æ£ýñ[Û¼¯Õápeû¬È‹Pð°¾Rè¨`e…¸½ )Ÿžù":„F@2º1Ø’ £ÕH6[‚Ž :ö [G^Ý|D›Ïƒ}¯ëÚÁ Š¾óHrDúÕ¤ý´fé|3±_ì æéùß”ö+`þjÒ^j–>£Ù™Ø/öÄô©´Óÿ7i»ä£W=9©²íµPb”9fΨðD\*D£p8µ­PÑPùƒ|ÞxnºC–mË;i4«/ ¼~홨K_œw;Õõ>¼sÅÁŸÜ— €²â×±Ò;ð"!ƒÏÈØB€r !õ{ Bè RÀ6‡,J4Rz(3(Ÿ€ð[ós1Ÿ–N>-Ðg9æ@~ÜiöóŠŸ&^Ô»KpƒIf_þÆ¥ô¦¨Ûô¾xÐý~QR e€OO» «K7MR÷oxx;–Ÿ0¸¹k}H½ˆA#M¿oªE]T>=~HÍ'°éýO¡ì‰ÒÞÉ'#$É’AhH^`Aòl˜ãShšMç`¡™ˆt8õ|¾ÓH€e®$e˜Ûš™°™­™ä/Ã*))2‘›8o®Cb(Íü­ÈùtR® MH‘QJX–ø¼xPm;œõ@³ìYøþ3è]Ì1 · ÍQÈ_ÛêS€æ˜U µWS©ßçÎm¢H\™WÈè ºï5ÔF\•I_¶»î7‡fàh¶œÄ]6áuºÉɉ`É|¾AËù @‘„C5IöpÒ‡ÐÈ’ÿ+óºŸäTL·Ö çJÕî­ÕЖ¶ñÉg² wÝÆ%LºLÁÇ Þ™‹°Øs ©H#õϳ™P˜c;@£$Mo?êp-X>%ÕÌgƒu«KHº¬eX, /VÀZ‚Í™ïË3¬™$gb¼¿‹%¤|oí:•Ú®ñÆã|è¯ËÈ”dùç –Éçõ‹¬ byÙù‚n3Âï$ð¼2êTw›†V•ê”weíãhŸƒG˜IÂ7ë­µœš®Ó0>ôá,“$o=ŸXòɇk·œ9 ?bJbS ðhÛ6GûÐÛ`:6•:8]æ )D1‡¦¹û;œûxã)ñ‚Úd8;k¶[Ø<éÎæ°¸¼ ¼g‘ı'½±A¦õèNm¼†¸»Ù‘+—ÀÉW-f¶ûÓEjª%ɀݩU•Þô‹\rþßbÅ4̬“è›Úb#2FD2/-,ÀåñtPóÛñSÛà£{] ¹œr‡á:•Ñóéð‰—ÄxÙ$~~ç£Ó/ÍŽþ¼ÎiÔ¶»5êÏU@?¯SpVmöý]yVí˜[†¶¹$bÜ_=ÜßýR¨˜á3Q¤iw_¿\ª8öHfhCö\÷’=áx?¼ïûSws}ýðð@üÊA Ê~ù瘅 râbÎm0u†¨ »h–”þ¤ð?%,† ”_JÀÛ¦V}o®uyô-Á›\}ïZĪJî‡{ä½×T Èv` ÑX· ïA;k±¹«©: ˜5Ì‚ÕÄsì ·ž}À¡Q¦®ÆëÚ†iÜøÃi_’À-§€Ü¶(†sâ|·9·uéb…>[¼˜¦ÑwÕyc¶= h0naç­Ú—÷\g­í}c± ï‚7©"Žú» 0*Ohž….(Lâ:ÉüÊ"#„„B3 %áãGŒE¦×bÕh”Ý5œ·‚Qm–)å¥ ÌNÞ°8[\ïúûLÞã¿ÛRéUáÊä8•Ë0|bþí¦lß2Ø·÷üÐÙ4ÓÿÁYúÑn2h] =SÀÚnïZån^0ÜÛÕ>©ÅüçÎYt=xQÚ´†.î€üÇNwAqeœ‡9áßèA׶ýƒ¶®UK8¨dñù¢`Å¢àSQp>UTDFL°.ð8Sš€.5º(²˜r™{J†VVÜpþ.rsSê*b³<ùZJ6Íïx| †šïnßü ­—üô endstream endobj 4852 0 obj << /Length 2947 /Filter /FlateDecode >> stream xÚµYÝsÛ6Ï_ákçRj&‚ðA€dçò`§Î‡/i3Ž§}¸ÞEÁkŠTIʉû×ß.¤EþHgîE ØßîBüh}ÄÞ<;¹x¶x­“£ŒeFš£‹Ë#Á9S±9J„`FeG«£ÿDÊÈÙ/ί8`UiƸNa#ÇÔ·yÝ]"ß3î·¿³÷\%­˜ËˆŠÖ½j6¶~1›+i¢3­àÑï\s‘¥)´‚ùOëƒÍ„V×?õy_v}Yä-ß5Ÿm‹]åu^ÝteG—'÷K”¥Ýä×%…Žh¹ˆº¢´ua;úðä RÀÓlø2žSÖ+ÚÊ®wg2z[VU·Ê+뮦£ŸÏ~ÄýàîYÌd,æ áLkÚè}ŽøÜâwgs©ytÚVË|¿¥Áq×5E™÷¶sÒ€ÏÏ…ÈA„_^ãOŒÚsæ Ï©ùTÛªò¤SÏsæ[/ìì>a ¥™Ñb¸óñ(Q\Ü\R»,ë¼½¡þ*ïó€ì2Í$—_‰WÜŠù¾©WMý# ^mòÝ6¯'·y›WóÒTœ¥` $oR?•ëåÍÌèe¯Tôq&@­nw½ñíϾõ×WþšgÑñn×6_Ê-˜U½&.o0б`èŦiË IT4mk+`mjâ({9ÿιDKêCBU’³dÅIÙlaÛ²™\¬˜0#ë Ïa84K¹T½s·ɻ۾ ª$W7SƒL´ú]J“èÄŸ^©Ã3qÇ£lú~×ý¸X¬š’5íz!8µ$ ©Á›x8ÏÜo0±â×e··9ª ¼ŒÚÔDÇ®Õ^SR ^Âÿ¥&§Ç#¥å-óeeiʶmÓ9&g°@Îiø•²h–¸ôT¹8±²«}aW4{Ù6ÛÉnÝ,sôÐqvùvWÙ !(ÐÞ¨›`³NY‡À'ei*²„˜eéè¨"dL‡ *ZÉžÁ¹âÔÜÕófU±M^¯àBµí2ŽùBhaB–7ìWÝqÐ×­µàÔîqôÁ‘Š^ÏR1O|NÍJc5C|EˆÜçÎüºßf€·¾O6¢ù'’ÃJG.85íÖ©²#^§Y§KجoˆH–¼^﫼Û0Ýý¹Ï[ßo›&èäwŒà¸è„o‹ŒpÛ9숧rÁ )c4 =Åêзö$ÅSÐ &4˜'ÚI^Ù÷ž8¢»”(;‰#¿Ô….âÁ¸ŠŽi¦nzKüίâ²f|˜ ZÛ5þضÊw; p Ë®i3BÎKš¨Ñ¼*¢­@ƒm¹œùíç!@pëC6#ÁEõèr»›Ï°iª}`MvâB¼Åc„Œò2“ªÇpb4"!tÈÒ€'Å ÷ñ$v¨‘ÄÁðAƒÇæ¡ð³ ص`1B2û+&DY¨˜bÇÛü ¼ƒÀÃ$ŒòžÓø· ä^Óh&¦ôÇ H‘˜Á:0Í"Ž«9Á5ñuåº.]xÈ)9$b=ñºŒIe½²; ?µŸÉ«Ý&§9 2A+£NÐT Î&¾6—+\…R,=ÉÈñ“ÐAèò_Ô»Tâo骋dqòšƒ»ˆ4æA•Íb~'5xWûhnöÖy÷a´sÀG'm¾ªfbŽv6¦Àwê¿g49Í}"DtáxîAÌ€œw¾¥­·6ïöí°×¥Ÿ[cä—,m>[[S.SVe×;D–„€ÌïšÒí40Òr;ä.0v‡àCˆCÂô†4K\€ÓqÄ6˜ïʾ´a›<P¯šíÖà|˜¢«b¨Ðü50ø•õÝ èÃh¥Áú'Ý]]ð´ý¦Yã¤ÉX*Ÿ'Ez'LêÁ¥J5eNi‡œj]%ÔƒÎrA#x&ÓŒ§)XŸL‚ÁRC6õˆ³¼h–(4Yý}!ѯ3ò´Å¦‡:rÌ«‘aÌ—€ËÇÈdÈ©•ŒNÍXœAd¾fÆβìl[:s€Ñ4E΄7ETfßÅÁ)¹Œ®Ñwò¶ š>a,*×!+vöà_> û`Å*R¨hâAö綳È)¨Õ€z»©áF®}Ä–à|‰z²)¥¥ÝLCÆÙ‘Hù½Wö0¦ÊÅm·ÅÜ+ šOf˜ÉÔ€>oZzt em¢#B¶ü ó„ç4þ ±¶©×žúɳÝÖÕj€ÒLu4ìzLl€€+Ž«Â´:_[š!½´EOã®üËÏt„k¦„é8~8I"ÌñœÌ9ÙW•…Ò> +ˆkZ‹oHÄ}©S|_U¤nqîï…P•,8W ],chœÓ„pí•2-ÕÅ—pûTFnRøV‰Q:(┋‰8Bƒ…>dt–"@`Û\¾¼›]¼9¾U³wÕ9öó¶èÊÚúI•/šq>ºÃñ€ò²!ÀÐäPÆHRæ!…Ç1Kã§+\ɧĉø@ÝB¥ÁÊ:Aw}4:€¢…âš¡>€'*THÕàâ¿#~©®JÌšbH|Þ1ßAÎ {*ëaÊé"ÂO¾õŽ¬±/fÎÅ…EÒõñ¶vµÿ,c Ž1·O´÷Ô1¸ÅÞˆÙ¿ÎRŽa (zôÆôIÞ(¼zðòBk¾&ÃÁ?RÆ…˜âÇS¼´ŠVwÞn?Bhê—Ü&Ò°4©×Ÿ1 ˆ˜¾ SÑÔ_¥‚@v/PôP¼F‚Ï°ï‚9´÷—6Õž¼Í}å×wïüÜÓÚá6‡>¹ $lò6/z€K¬µiâÏ}^÷%º#}1¤º¡9J–ñÑ.ÏSð€dt±›²jºf·ñFë/°r§Güºƒ¯{ M<8Á1œ€pÞÜ «>5¾÷7#£C‘ácÓ÷y÷$í]ú€ŽõïßÇ ›”)ý õw¦5ÛçºpÍížêôƒ€’¥‹â*Cà”23ÀtOkî󦃚*j÷2›øb;£b;…ñ~éIî/ˆ4NÍùkÈ bI¯00Ó•Xeûek[ÛÖY6¬ÝíÛ]ÓYbƒŠgWå74C³I´Í¡*ï÷+;%»0óegïÉ.±òÞÙnsÉAÚ•Š1Ÿ!k³oëañð|wºÚSý2L|t7ÁW<ˆËæÉeS™îRJC¨–ý½G> stream xÚ­XÛnÛF}×WNP@Äp/¼¡ðCŠÄE‹Eõ©ÍE®$¶$Wá%¶ÿ¾3»CŠ´iG Ãàpwv¸{æÌeå;Çw~^ý´]½½ ™“xIÈCg»w˜ï{B†NĘŠÄÙæÎ_n×Õß¾ÏËrýyûëÛ› š¬IèEIöŒ®*­|úÄÛ!œ´C‰ÚÅF}Ã#vÑ©Qy‘uûߨöÍzø>|5­Ûýµ}xêîäu7̥͡½.‹Ö¬éÒž_ÃÂP Rߪæz#éµ?àU‚6ÃÜ"loÙ—°ØnâÕ«WdüX´VJËV[éV7ÿ¶Ã*æ{Iüÿ[_Ü]ôôîèy«¬c¾kÃGW¶«/+†|‡\âÈ‹™p²jõ×gßÉa¾å‰$vnjåH K$È¥óiõûèý‡OC8 Ä„p°ãP2'ˆ|/Î|ÛöP"…Ál÷’˜ ´Û®ƒÀ…eë ™:·ÂÍZ.Z2oïê´¼o>|ÛëÆ ¯×ÖV©××Åk;ôÛî•uí3˜±ì%˜˜³áB°<ñ|AŽ~¯Ú¬)N]¡ëÙùÏ8ÌÂØ»a°—˜B馯3³Öœ£Óö™¥MsoEÝw©£ºu©€ú©¬°ïëZ™,ÇÝS©»ÓUѶ-|i;øvqÍ\Ü…jiø¨û2·òŽÖÕ©ïTîÁ¦XìþB_E­Ô×æ,˜cUþæüÑ¡€ã–Éë!ÝĮɿðÌŽgÈW¹·à½¢¶ãv× ìÏéÞruRunO+ôCmh ú²#Û œ…žÖ,p ×ŽF;È ³Ý£ÓüV \…?/všƒ3ˆ,Ä,PcÌmê0~Šé"òD8è•(W]Z”C%êÞq¨XhéôÈèÇç‘7f¿ËÃopQx¸(z>à ‡–r¤?&Û…a ò`Pz³`2i0*\ýq‘•ôã'Bò©?:èê÷ ÌQàÂÑMà± ÙMÔâ ò …3´Fi¯›³‚ ac†¬î«jæ z¥P¹º>/T;41Ð]Û`F’ì±°¤Àv;P,euB=Ø‹Üðmnñy2ˆçÜ¢"z9³ K·±hà̶vÜ?l͹-ÒU_ÙÑ8 p €_O1S´vÜÆÓÔ5†0dC>i a:'Á ‘"E#¦ÐY,á½”—ãÎdâ1ŸÍq§VårÜK}(2SO#N¤æSR (AÊDµ™îú„ ¶Ñ¢ê€òNY僪wE挡á#ÍŸm²-MïÏÓ @“ñúò¹¡È]åA7iŒ÷¸Û·*§ òõ)mº)øàtöØé|ÉéF>»^æn†U‹næqèùrÌá¦_\ð4OûÑåžpAMă¾ Ð¸¹¨Šîá%g$1ÕtûòñNË^µ¦ÆûTãý…Êî»5]À¦öӆ̢gž?mrv0h§_ÐZjÚÏ®¡!¡Þzñf•HûµiGþžÊëK®¢Ôƒo |’¤’©ä„TrB*Ém£ƒŠöµÖ55¦ÈìŒù9#­ÿÝìR€ÏTÍÓŽ¥Ø«°W«°W«»”:"ÜŠÊŽuñ¥§A¸´0½»_êÂÞ÷äqP !äîvão/ JŽÁqß÷Sô}¸(ï~D9q±1²ËÍOJ¸~´kÔCT,×7BF„¬á9[3{_ ©á„'ÅwhÓŽPuU4ºœ<Æ¢YǤHL h4m€áeßèÊJ)Í/6“"éæU˜3û@sýétn'ß±…VtÛYÉ·»®QM{S\X/A×jÒúÉdL¼7i`èòQÆ.Ð DhÑű]ZD׊´?Ø+èܘ޵ª±©––XÖ™=èA9í¾±‡Å\Ž'M€²Úd‡ û}5ò>BÆ•i“h…„“Ö¥"¥ `Æ„Š0®˜®Bc¥êè£x€H NLÆšØ_ˆ >3´r#[¡›Ë U#¼x”÷vÈFˆ´ ™+ÌÐâ@¦©Õ¹ëìŒeMd‰Íã—>-7d¹¡9;‰!×ÕŠÂN¿Pá®tn®z‘½øžò0êb9~Þh,§¹ÛÕ¢…ì‘ endstream endobj 4820 0 obj << /Type /ObjStm /N 100 /First 969 /Length 1236 /Filter /FlateDecode >> stream xÚíYMo7½ëWÌ19”KrøYœj´@`»@[Ã×Ù¸n­!¯‘ôßçÍHVV¶¬?zÓÁÎpö-߼ᮋ d)Xü$ 9Yª^þuä8‹áÉõ0y¯ž@>«';õ$⤌lžÀ(¢z*…*˜l)ñdG±¨ÇSbõ0¥¬ž@Ù«'’Εs¢âÔ“©D™9ªV=•jLAÈsAÌVƒFÀÎjÔ…É9 »Xw‰ä¼^,9ÖÐK¥±— Kƒ¯–\Ðè+8‚†J5þ Ž¨*8’*¨àH*¡‚#«L岊¨à(ª¢‚£ˆŒ‚pEt ŽÊêG-êCö­WÒo³ú"yçÔ—`%õe¬’è(¶ÀŠê«°DGq–<‹Žâ¬¢>O>°úÀ²úÀ½úÀ“úÀ‘œúÀ‘DGqàÈV}àÈ«ž£” &ðb`ÁW!–#¶AŸ¢hœbbïY¬ Kj§°%fÀ3Ê>OU/œ“wó¥åSÌW4RÆ|5éSü²NžŠh§Ùe„Á^}ø’‡¤ëVÞÐu+ºT¯VY”¨D ,,‘e–«ªÞÈ­r Q·@¢+ Ž˜)"â‹Ø X”„’Œ3ygÅB5¬iÔ]ÁX?$^c¥˜½0@h”Kv––‡•üd:4oé‘FlèCj~ÿãOìkJ88SC¥ùͧO§“W¯žmƒà=xÞƒ÷à=xÞƒ÷à=xÞö5‹{ÖHt¨¦Ú;Ý講÷4R3C_Ѓëk3i‹íjŽYD{Œþ{õ$â’éWf½žÊó5ïÝùQÛÓ 5ïßΨ9n¿ö´¦:þïªÅƒ³‹vÒ¼m;ï¯å®Âòþ¤9l¯»›Åy{½¼Ý¨ï×öÃåÙëî+½Üšp]<ÑÙoã6+…Ò嶴–^«*GÓob »”oŠ¦áYôå-úâô¥qúîoë ¡jî{ãБ­ 1<±j‰lf´bšá†,ß,VGÙ†Õ Ã^£,ñiëÀ[ꌟPgüÿÔÙ, ”o&n#=°ó¶„&r±ÖÕ R)k#XwK?>»[ªœŸP圚ÝÝ•¸;»•8Ìôf~†YÜÈû0×ßÓûè$†-%F–h u <˜Ï;Ìv²üD#ñè1îð+rÒÝüÕëø—Ëù¿“æu·øÐ.”Åž6?7ïš7'NØ9$…ȦxòÑg‘ÛjM’qòÆÚ Ø®È5?uÇaA_~œ›«$œ÷fñùì¥äh[,ÛÈ-9rkrÞxTƒ«lä«d@u¸XÈã?ÎÌ’‘••ÓL§ÊÐœ÷—ݼ9j~;|'?/þîû«ë›æË—/æsÛŸ}ì?\-ºÀbºÅÅËïjAÿ€cw¾=Hƒw5:Ì9j‡ö>©ˆqhW$ƒù‰§ÔF°qÖïÞaëcêÑ;dI¿¹C–ÄãwÈ0?·ÚF­ê¼N½n‚üðCiwþž£éÀ†¸Ÿ§ôø“dÕO>Óâ7ò½•}5(DiL3Ú@vçá±h/úöºË5ÉYÀ¼¥¿)ÅØ­{çнS®cÑÁùÌ8t@'Ö‰vÁ ï‰ö'ytˆß=þ1 endstream endobj 4870 0 obj << /Length 2569 /Filter /FlateDecode >> stream xÚYY“Û¸~÷¯PÍ‹©ŠƒÑ9*ÞÄŽ“ÚÚ{²yȦÊIÜ¥H…‡gg}ºÑ ÎÄ㚪Ð>?@ru\ÉÕß^|wûâõû8]e"KT²º=¬B)…Ž’U†"ÑÙê6_ý;ÐI´þÏí?^¿OÂÉT½„„Å’&uMqþIJU–8÷…ä-®øot’¸U•QÓÚ»¢;Õ}·Þè,ÎunÓÕMû“ŒC±Þ¤QÜž,µ05§~ ‹JîW5/ß¹‰IÐØuÇu˜&·<Ë´ÜRs·e`îiPhá}a˼¨Ž³™çºa>Y+ —Eþ ‡Ü€®²8¦£Ø¶+ΦƒÉ*NOl»“' P_ðœTÄ$°dy°ûŽ'5Üöݾ>ÛW8Ê‚ÝZÉ ç)x\jh8dº©SÀ¯æ\Tî439Z[µEWà¾_Šn¶0g5¶íË®åµõÒyëÊÍ•ÁÅ4]±ïKÓиµ%¨¨+žíþdª¢=ÓL+ aÅ+>ÊåP7¼‚„ƒý®,öfä¼+ {ŠóÑ8™º[¸—“Bn÷Çu¦Àx½9é#Ί‹C†´ö-n «w?“©9 ¶ûÒ´-  õ„EªE8ÆÈ}Óœè«B`ÄŠ²¼yåIÔ»ÁÓðaæâDBËÌ3ƒÈÐRQd\‹U´ÔjÊ¢åûºêŒw£©Ñªha%Éܸ­9£×+ëÎ0R…΀cÃ-mê:Ø7AÃG3ýñ ›È=]¢\b#…ä¬,žëÈT¹wi—üØÛ1K¡… .ÉBΙ˲ƻ〔3½âØIå:e[s/‡ôõæJ3õAH*%â%úE>¥¹4ÙVyÍùtÅg¨úóÎ6ó€;m;ÈÛv}^ØV<%Ά·Ø„©PÚ»R‘ÛgˆäxO*–¡ŸvSÚCw³*Z‰HþT/q Á£aÊMSOˬ®= saQå.‘Z’€röTìODr¦úÈi5 }UYÎý—²î®>£Â7ìqR íT9ñ¸kcL2*›ÌT ÷.8Âõ~Uœ/=˜û hÅs«í 0 òÒ®¶iê+·úE>_†Ë³D¸l¸T÷ÉQŒÅ„:Ûر˜±çª?´ÈÒ°Jõ¹f°ÆÌ(¢,"ÖrÁQ"ÈŸÙj2éÍzKˆ©š8q„ƒÁtnïêJ¬ý©†Í3a-\Wå=îN0ã¡[ƒË€ 2^D%uóÇ›rÉË“LàiYs¿_` 7DËo—ÊÄ\ 1‡|W´v(ÍZ:L@bÍM}_|½¡;Ÿ`ë]kBWèxQv­ dŠß\ÀÀ§Á! e1õRöPÄH2D\ŠçOÃÌkÆ<>†â3ü=èË·(a_7€Û ªäc¢0çK9ŒèMaª½mŸƒˆX¾^*,¶á6(ë#äË’d }ç¢ÆÓdŠcN¢ØuQ -E†[;ªŸÖ. ‰éß‹@žtí¬8Æ:BX`ºÏÜ“‚†^x òÄïß~ÿéÝÂv*™fy|Ðäˆ@T Öä Q &yàc‚Ê•Ò¼ýøÏ%9ͪx&‡ã‰°HpÉ ZF )Øéú•èñF€gh;ÿ!PGH Fx‘+©kŠÙd†bøØ: 1¬wĆç]š¢xâMqäóÕS«LÄãÁ˧œXmaúàÄP¯ÝM†5¤ã­Q:Ï°Ûzð׋Šíè žB¼JètÈÐþò3I}?IîÒÐ5*‡‡• @à!à1VäÇÒ¨Ëbù‚'^s}ëÚ*¡à¢2»yýPwßréº=5ÅJ /8™7à)HRc]kiŠ«ðøΔÑÑh#¢…Á¢`ã$ ƒ/P„s¢ã¥©í9™ÔôÛõA–NK—d Y%¥4xQ‘I€ý¿n@øßÚ)#, ²ÐZ"¹+qéD„´'§²d±ß#F¶¯–’b„Æ¡ó2€ ßy ·ZΩÐjäóý£|âl–_QÈÆB©…ÛVŽÔýmÅA%ñ ^Ý­r:"$†#fƒ-9+¶ƒå$̱MãÿwR-Òáx_F®|c„^Áí<–bx*AljH”Ù¶x‹Â{ öNk¨ýÄB­Û"Í&[Læ“23JÃJŠx{ã–®bcQx<Œ$à“Û1ß¼ì7ÛÔbðØI•ÿ;†J´A£$¢ž­i{uzò] SôMW™Ê”÷îèHöí®î«Ü#4”ÜŠ£{ ‚¡C/¥«<›œçzÙÎvo}Ù„KQG‘…ÁïBÇ\QP7ïÐó§¼Ã)o PŸfzf!˜ãGÏV@Ü›Š:½ ÚHúòt„ÉvúÐQ”ô´ð0x´Òcð¬~û3e=ؤ«i[Æ÷,B‡Ææ·œLªÈ樶*ü+ƒ»;Œùü 2¸õwÊGÑ/z˜©*_Füë‹ÐKݲ#:펰ºÐðàvSœ¡¢ÔcìzÿJƒ¼oHÔÈ¿QÑ=ϸ›(_b &ßÛœ5eœ,§'.·¼½ÞÏeýÈ¿šÂªº)ŽEeÊ2Rõ3/d½°³Ñ_’8(¸9oÁòõßÞ”›ñŽÂUÈ3†™“.¦åbÄækœð‰ÛÅ•ŽÊק'ö Ç}ïúg' 85,DÕ`í%ÐÊAû8Ò`­fFÐjœ3¬šu8M¹<Ï +I<èí¸djE%SóiaýÒi5kU,éöä’³Gç`è~KÀ×vĤq|fÖøÿ%º€¸f‚r–ÀÞŸ ÊJÓÀ%ÌÕ~«ÕÝTj8~}žË‡t—còRÜÏ[]Óó;µ§Eˆ1õ•xP!ëXIïéj´»âB Bïô@qa è%ž¾Ñ·¯+È’¬­<.Ò`m%g֞Ρò0e„«(œÜ<ªO˜È=±&ÂáÎRk¨ùÌÚ¥æ%£©4èü½ÁZ÷ãý³†lúÊ?å1GÊéÈšŸba¢i‹òžúî®3Ù;z€OãxÐtLO ét¸nÔE¦§uÓaA' Ðéw&³Í€Lš%ÔH6шõh" &r(LŸ,KñùݯøV`Û—Wœ½pûïÛ®¡‹ÚÒïAã¤k9d&ö{<õ‹ 3|»Žñg¯SÝ`5jýÝù™×ˆ!@¯Ëƒû=З»× D€ÝŸºéý³÷#×ë,v±\“ÿp÷e÷ç³í èg‡qÙ¿nŽZ|‹D¬õø‚줩»â‘»¯ˆ‘ÈFÀ~êºKûæõë»»;áwÆÆ`²ýS÷Ç0va6½û‹EE¾»}ñ?›ÄÏ endstream endobj 4883 0 obj << /Length 1826 /Filter /FlateDecode >> stream xÚÝX_sã4¿O‘É1Œ3S«’eËö yèAḆi;ðÀñ 8J¢;Ç–Óö¾=»’ìÚ©¯W`à>DÒjwµ~Z­KgÛ}÷âõÍ‹óo›å$‘˜ÝlfŒRÂc1K#‚ç³›õì· môþ¥QY.~¿y{þm’$x.Hšç Ïòr‘ Ó ên1à;ö0JÈЕڨfÁ²@U…2#ùžá©,›…,#YâMüæx»ˆ’@–g‹0âipMpŒƒ·Ä¾Ä7‹ŒwJ­µòWžóâ8ÞÑ„F”R 4NâIApœ²Zw¬“WÈnÓèý¡Tns¬*U†‡²nÕ4jíXöªÝÕ^E½q´V™VW[tÜ !ú9Äͺfc9 äúýÑqÙå¦nÜäp\•º­®+GXiiÜL{ )CYÉò£Ñ†¸,ŠdψFDdY—Å׺‘Ff"ã1'L¤ë™çf9& ;†DLè°³ŽÃ†Ã)PÆIò.ŠD,¸7•óh"=Þvm{0¯ÎÏ×µ&u³=g”0ø;O ‡"ä1»'˜NX‚Zr?aKÈ™  1„ES€Êr¨,ò€*c§€‚X[@ÁÎ^¢ÔÊ*¦± °Tuut¡vÜóÖá vÎ`âp6w =z`âh²(êcå t„ÆI‰ói”(a(8Ó–}(Œ ’ð>üo1Hõ± §Èšc»SNãÅ^sÒŸxÝÂñâ¢ã¿0¦.´³éqjX–‘(žÆZž÷`Ì“ç`-Žóm``–#Øòl k!ç9IÓq§ G3zN™ˆXœäoŒÆ)Ïé”AôÓPãQd¡ÆiPs£PÒá'ƒ2†ÑÅ=‡œY´8v[©íÜÅ }_9â¯÷ÊŽPëvgZ¥+{>.<½;ÿúضu·ù¥ÛûÑï½®UYá©Ò…–_® A˧ŠNJ’¸¯9?Ð)x‡N˜iO¡ë.ÁÏͪ¸Z°$¸UJc^…¤1ʘ=Ð,!õ÷ Ô¸BŠ;SåSA"‘ s8 »q°(E°°8vÉ@ŸÁ N2&Æ ùz§‹ux×bX¨Ñà²Ú–`ZÎhð+îèÒšþq!’€ô1 ã—….UìÚ•<öÚbšƒ|hXÚa„Q;_×ÕúX¸¢ÀÓtz”/o^ü m©Ÿ¹ endstream endobj 4900 0 obj << /Length 1669 /Filter /FlateDecode >> stream xÚ­XmoÛ6þî_!´b5É”†mX»¦C ÷ûИ"ѶZ½x’·ÿ~w"%KŠê:A ¢(òx÷ÜÝsGSgãPçÙ‹Õìò•§œ€’Kgµv¥D¸ÒQŒ)g;ïçBÊÅÇÕ›ËW’õ– ©1Í’ý.kMÊ,Ä•3j¸ZÍþ›1R‡u²¥Ä÷='Êfï?R'†oøøΡYš9.¯\ãÔ¹™ýÝÉ?„èÀ(‘.s¤'‰Ëý“ÚAÞ`+'ÏZ“þ,b.–Ü£ó·¸?É7æm]”fp±àÞ„^˜×¿n?騮š#¦ w]ÂyðÇ䄇$ê)ft}©«¨LvuRä –½ì;KE•ÙþjŸGÍÞ%—j^æiP3ã0ÍàõèíW3ŽõzÁè<ܧ5L33Yê”òÚÌÐ5ð•¢Å÷ ÷Ä,(Çñ¤jWeè…Š,–B²ùëÚ\èÊêºMì¨UJ/˜7ÿR—ad=Ö¬jÌðçQ¸`ó45/U]”Úš•4¸!*€ª€'#çÌnppÑ8ø™yÙb¢[…ijWÌ`Ðaãû˜Á¤Æ@ºÃaºH ë£XbÁêGÃ]Éâ6ÔßVáFOÆÀý˜zgOŸ.–¥óaž™®·ElÆMà Jê2j)6H%· NëÄ‹‰hpû¹f3s,Ö¸î)!K&\°]fQïãÙ¯¦s‹Ãà‡ ¸~‡ñ èš#lÎPb±¶EÒ®„öM ISÕÇVî¦X×(¾ïÂ÷™C)HŒú’[73!'dý{<â(D]ìçÒõÉÔF»ðm9'.¤—KF ó¥P—ŸªŠÜQ!IBÅdýõúac+Pw=xžçLßÇÎÉåQ,™Ìê¹ì÷ˆb“XÛSÇ€±þ9g§ë⻜Á~ÄIf§À ;q¢¸÷ vRÒíõ²ØˆGšÂWß4ž0m~Éj†æw(óù°M¢­™¶-m`[ZŠØÒ$+gÐÑŠÑ/½öê²½5‡Éˆ½ZÍþÚyK endstream endobj 4915 0 obj << /Length 1376 /Filter /FlateDecode >> stream xÚWKoÛ8¾ûWéamlÅŠz X²m²À¢A±iÚK·Y¢m¢’¨¥$'ÙÃþöI=\ÇI‹áš!g¾yÚ±v–cý±øýnñæ:¤VB’Ð ­»­E‡x~hE”’ÐK¬»Üú²r­ó)?X¶ãm³öÎ]<5/ž˜ç'®2‰’?°|´®?RÖ!yÏÛ=RÞ²½ãW!57ª›nQt3xÑÃÛ.×»>D¨»MÁ3 žJ<²T¾˜®ã>Ÿ4ÿéxØ&~~UËs7?…LïVŠS)ÑIÊø ñh`2öÅ1K*Ÿø±oP‡·PH`Ï=w R‘aÐîu¶c‡„IüóPµØg`Š_Ó“\PÑ‚ÔÍ{“Ç-/•ËO¸â”¢&— “¾ËÑc˜*€ÇC‘]Q–xñÙøòݨÍwÙÐPs>ô5ÙÆšƒ»±æ èXsðÛXsúݤæhö—¤î³þÔ5×úû\øÙÐ|šaG¯¥Å'§u-Åú×4 þ|/D~*¢ž0ƒë‹·7ärô÷âênñÏ‚‚¼cÑ¡­B‹$[Y¹øòÕ±røOÒá¾g--:oä{@ÖÇÅ_Oö¾wCÎMz7(úÔò¸Ñ z÷¤‰†ÁLÊ%ILM®¾UÓÊ.Ý€.!gûõ`ZùÁr€ Û½&>¯(¥KÝí·bEÇ^‰îòfßW6È!ùƒ:[%ÿŽÕ¬²¼Á­né9«zMœåÕvEã%VxµÿÈÿÅCR)é,?tm&J=KœÆß ÜÁ¿Çy6ȘËÜj%¥JÑwÐí%¯M•81ºÌF§~tI`tÑâ×]•©¦â¹Á²jÍFgàíÄu³=ÿ^‡~Ö~ÈÀó#År½ú+·jÍÑ lܲ-J)°qß(°µ'ü$4ô¯ç)…dŠª%ËxÊÇU, ×V­ >×ã¼…;&eߢ‘Ɯㄑ׃ÌÐvFX]?†úÛçCkDühh] ¼‘ÇÁ‰-¹³ yûÇqªy1ÄÈÐ%±ì–‡ãÙwú¨›8Ž ?Ö¢U›OȾ ÷â„'q÷§&ݱ—ÇOÇØÁŒ£Ã<–]Ó2©wM·ÙIÑÕz+6¦Àµ53$/Ю¦w²¦#iNïÍÙ=œ`ÔhTè„ÃÜœj6¹šª÷FG …Ä(’íYö­Î×w·Ÿ®ôQíN®/ß4GM lvD1…ùs?R*M!¿”XÁv] qþ—ÉsósQ…Py‡X¬à9É3 F²RÒO%’ßW\›Òhûˆ›ÀÔ_–5þ,ãu¤2Í7:—IõH®>MS¾¿ÓÔWÿ™”'G&αµ6 I AÑQ÷rdæ`8 g †cL‚z("›‚¥„‘)% ÌùCNþˆ%&c^nŠ¨ÍD¢T{a9מ‘C/ìka5Ôì>´• VH×Ls ¬Ma9r—Y¡[þ í$# endstream endobj 4928 0 obj << /Length 2005 /Filter /FlateDecode >> stream xÚåYKÛ6¾çWøV/k%ê}l‘l¢-Šf{J T–i[, •Íö×w†3”)­v“5 ¤i჆ÃáCß|3Êþê°òWß¿øîöÅõMœ®r/OD²ºÝ¯ß÷Â(Y¥Aà%a¾ºÝ­Þ®Ã$»úýö‡ë›$pLÃÜ÷R!`"cô¡,êÍ^ø<»}^ß„¡3n¦Â ܈”! o·ýdðl_iâåÙ¸VÛéªmŠúj#ýá*ˆ×²Ô­Âv°Ö-éwU¯«æ0Tý‘:vÕþJÄë½T²ÑdËJEìH#Ù¦Ô4¨¯þ’=óí Ëödµe«”Üàæa{À-cÚfßµÍvv±OÛÂçQ’Ð'–ʶéµÌ’1¯O%q†^^ïd'›m:Ɔª*¶µôf¨M¡fØ6Aâ%‚6¥ï;y ÒA.&Hc_ Ÿ¤I1AÚغ=‰ížžãk[=O»ðÞ.º ÎA¡'`0Võýr õÌÍñÌÍè v³¿uóó!®N2¸ˆÍ~²n†“TU‰xJmè4}ßɲÚß³Ò¼% ÕU°>q£k«Eùî(8Úή "`Aˆ,ÐÚl&ÍÜ0Hóõøšõ[]T™ôïüدê¡ÕAxçûBõš,JŒ„€ú€:®q>ß*tM¶ Öy¸¸ZÜòy«&®: ØN°¾VE¯¹w+õ4x!ƒî®`ÂhHí᥂gÐ"8óBüÇy‘Ä“ô˜X^ þÌ hN$v— è%âK²K °AµM}OJÖ·D €2ylßűÝ.§åËSÁ—åÏAu¥•0’ØFÆàsdŒQ"r(T;t$b²žô±‹ ÇQØ$'LÌ'„ZðÆ@ÿÙ €¿,n“lVd\äN¨&6×ÀÀ£ˆÀ£áØwl ùH~g¦GqO¾Üï.;EÓØÉ–i4ut€þì‚Ôf@ê78wE£w@gRÏwj•5TE ™ ÒÏKÐe½À{È‘ KÕË Tƒ]m*ª´¸¸iJIš;YŽ¶Ã±ˆ2›CaŒK.­,?Ì`Ã6šO=jF,eÍ?8#Þ‰ÿ#AB‘Í‚— Ø6‰[pF@Áæ”ݼc)o»Ö_wÞf~ì ]\ÄX׌5Ò^¹75,bÞ0n#‡Šª„°yäX¨«²>±±Hۇиg§Lul?ÿ…ÝÕaqÁÌn!)"Þ­ˆéª[ˆÒ»'²a‰|NËG1+E<òæ5<“‚Z'Y,—mƒ²x¡Þ-)< ,ædTÿx%ÁKuÿÍóÓ«Kñ 3.« ¦Ïe8”ß&¬@.Ý:0Ò(ªÐ9E5.zhÉècŃ-z ˜–l‡Þü;²² §ûÁ?(òC¡.ú´Æéà8YïÍkC#L Ú”¸@#PßÂɶ®A0 «B“dœ`¾ÐpOK Œó°—6KÅW^y¶>ŽÃÝ<§0ÈmB¯‡]E½]…÷d©kíÓ¼âr÷Ñ®Ô5uͳªÜ,ASJ”?–²Ód²§»ðÌG3†”õÐkɆ¿„©&#Ó›ÝÂ\àæ,múaKçßù"á…‘6̪êÐÀɸ£ÛÐE„ ÒЧ¸„+²|ßí>Ÿru{¨J“õ#ú¤%¢ÐI€‘)ŸÀ£ŠzÈBÐ:<È°ÊtÇGÓnS²¯Ü#­òà*¢Y cv’= Ôª=ŒçC†£["‰šJsY7ž7;H(s1ÔøU¿ä×Ô÷Ò4µÝþúÛë§ ŠØ±qγnµü„E’zIM³p# u™ c>Ãb·z‹cÇ…qd+.˜~^¶R¸‰¿>Øa |/† úç­ýòê©­…‹Äh¿š’Ólc¯ÚÓl^jÇ=°{X½5æ?!A>N3=Ѻ+Ê÷ÅAÒ¬ý±jªÒ6Az¾ŸM ´Ã(Ì×CgABy×æ“îµ¹¢ªÝɺ'ÙÔ¼Cy¤VÁZ}lÉAã9RY˜€ç D’ŒA µäÅ0ÝÛaÏHG"Ë ¾ ž:ÞÐ> stream xÚíY[Ûº~ϯطÈ@¬HÔ…Rû” =ç¤@Q Y´9"ÛôZ=²äŠÒn¶¿¾s£DyµÙ´(Зb9Þ†œo¾¡£›»›èæçWïo_½ý)oÊ°ÌU~s{¼‰£(LÒüFÇq˜'åÍíáæKp¿¯šýæo·|ûS¦=å¤ÌC]–0©%y‰J¯"ýf›è‚¶JC§„Õªa³Uy4¦²R¼TýPW Vò ÛÄYpÿLßTÖèŽüµãîïf?X® ',ö];ôõn£¢` ·Öí±ëÏÕPw­¨w®›q½Î›8¸Œ›m PštóiÂóØ õ¥‘!Íq£²à+ÀÂ.·`§2Ëxg¶þ§Á•eQÐõò˜ÄØpÒ×aä,q‹ëH²"¸ôÆšvàÊql÷¼¬í+)ìDw´æÀ%Ü©t­úq/ýqê$ÓAu¹ôÝ· =7Ý=n¢êëªÝ›í^ì=‹X úõõ7ò¸¶]/t`«ó¥©Û;¬åpj}×[nA+â÷`.¦=ÐIe6#À†£=«8ñôÈbØ·>Ô™Û-Ü þ”p¶u¿ÏvÀÙµåÿeÑpªa†$ÉÀ& 4ÙÊ®#[ ¶Û‚Ÿ4p:ä)Iâ»UY„q–8OùËŠ3a¢´Sð'âKÎÓ?ra'S¶Æè6@¹’õÔíe}²uÄK¼%#lU”‡i!¦Èy:¸ÞÊù\ó–´Y  Â;a†j[µUó8Ô{uÓX.Wô-ùÎ*¹³øý5ŠÔ0àJ±öP'.¡í1à/,nz.~úùÕ• U¦Ã ILžžï€s O*œÕWýYÖÈÒªÆvßYÃÍÚÑÉôf‰m_¨7Z˜­ZÀ¼Q~…pñTиÌgpBËBrqøVü¹3­é“$ 61‚Èo`¹¤Ãcx`%9Rå…52^ÝnÒ z6÷ä(†™¿àl¿±À9ãe«@Fp2*“Ä«Øõ®ßÄEp7žÑ©Ÿ^øl¯”3þ¾í`úµCêÉ/Ч”Šã°D _{1ûúø(BÂo¥Ü¸5@7îEÓÝ5&„ýFQð‰ (cË훇‰¿¤Ä½›QƧ @šnenxq&]†i™-‡3ã%ƒ»ÕSP«ix ´­¼H$ß ß@]«àáT7Ò·ŸWŸO¾ƒ]jÑž`EÓê­LÛ»…X µ˜[Os×í4{¸vn7E<^j·Ç Á7kç‡Z¥?tÞÉä“uÓp˜d ˆÐðc‡ñðÈÅ×U#€ÀxY„“á£"]^É¿âõûÔˆ>e*ç[&î|AäŠoðrR/¯¨¿Áµ‰q¨qw×wãŲ†4´Kž²§ÞŽ½€´Ú÷µSËvÍø<]äâ%ŸÓ„g[·Ð•3ßTz:ë4å]§‰s>(ÑMIÑv8k{â;îOÜ4ÙC–èùè‰yp(: ìÀg¢Ù×èDc8ʬ̗‰ çÎc½ðon{pG劕Ü1³¬Å¥‚í/æpŠß…ªdòÂxá…2¥t¹º"Ó À$vÄX{K°«§ì¼S¥xrðõ¼“^¨nEå(]O†jûî,C{ ¹“âÍA®G¨•öâŒ!+”^wlèZ•ž¯×6Ô ò`ÌôB‹iwø=‰ÃÃ*wuëx7æã}J€ý»èRµ«L, ­ÀK’2,2§'¨£RK[ÀΟ¼ ¡\P[¬»œ gbŽ¢™Úbmgš®½£hUFçÒå(¥;*è?ßj3XQþú׫£ñá¾$׀ϗWŽŽ­²@T~·$=írˆvJ…±Ž¹³Ÿer9³QzŒÕ^– 8Šë¶d¬H‘“›ð.DpŒ¶Þeïkdø~WØ1ô´pu¥pSdhL[åi? Õ#ºÞóý‡dŽ•ÃEè-g÷û¥:×Í@£‚x1 ´~ª^´}ÆMsgùåçÏ8 [žBx%q£ \ÀOŽ¥ŸF§WN‚ñ^œ$åÜÁ_ºÊxr&³#eXc6 NÂ×c– »6éÎ`û±æ_·2âG„Êò¦±½’ÑÁðyàÌ9z®Ü•´£](Ò]ól GDŠáÄ0øEÀBà„¦"»„î“pð…ÏšAwvÇ;”C¼2ܸ¼û¨ä¿bDWÏM/*±#Ñ•¬lík·³¦g`¡ôæõåK°¿>v—FžÖ‚„@ Š/f9ø+3wMÃ,*,KIÃ(›lc%ÄE¨ ?AI zAj¹$Ï1¿.áwÁ–X°€¤à\,u9ÔÞw=Z£k| ½‘ù–C B)Wa‘\¥žI¶¹Îƒk!5ËèL^ÜzžÅ‹½CnB©òÃ|jIœ5 ­ú¾½c85½ö§îÅIÏ#…u*håL¥¡ó–†Yb¢…r¢ô@´è®7ƽ€è0/²µÀ—²ù›‰À•>w„™æ,ó¼Pì¼°Ìø'Æìiú 7ÈøðCMŸkzlâÙÈųìzM)Å FS’†<‘ \ø­eòJÌ-žâK~5.Ü^£|Vr„¡- æð—€rdîeÀ”Ç»K¾Þèòõ4*PÈãsŠs‘DòâÄ=vªDóÛH*þàÓæ#q uh(¦5D.&‘(Ã,·L3 D °±SfieZŒs,Ò@!~ù*âáÍŸ[¼sæð³mš¹k ¢K…ÉÉZ–`fÛ»þÂPiz„ÆûºZñ&¼Ç¥÷ öœ;%zⱃ¬Å9 eóº ¥0/ÇZ0d§5¥Y(¿TuÏòUŠ¤0‡ô3¾òªçpE͘:¿ZàR²éE5}…ÉÂÀc²<ª™d.E{»ïšñÜòmuæ×1þ¿Óèókæ`&IË8!åU^A«[Ñ3¡jlëŒR^<Ç\ÅÃlÌRÈ-^d¦s´|êZþòi˜DW™ŠZåê^þRjŠ°–‹üj¡çx"òÉéK|þí¥£<_6Ó¥ŠÊµÁØ|Ö¼õó•r™×[ñW#ŸŽš_QüX9ŠÇ>Åée”¾|ö±{ñC‘㈠¤/8b¼äˆJ¯¥$^׃ǠQ^É ÓrV`Û=H:Z® GüÕ%‡úñWå‚øÓ `Ðòt½(å‡MH ÛoüË õ±,œm‡5·¼Â-r}»þVˆŽXÕÙâàÝ4<\ûµ¥ƒ.ýóí¦L‚w]FrÓÇ#]$Œø8‹Å•b/{ÄÚÑýêVqÝ{#¯\P¶ ¾±ÿ›ülÏpµ»Ýüh!IÈ°XáòPúŠîðú¿I_UX–U"nü3 YÏËTʆ% ±ZžtqõÜ‚…Í îl}® š†î¦)¬q#.IvÐÀ6:V®Ñ1{Bþñb•Ìæy¨²òeC¤E¹0L°d³”AvÆÖÁŸ‡^ ´Q ˆ¿‚5œh±d´85Sƒùw2íÎ"“§Ih™÷@áIôž0ÚM¨Ÿš0ÉÔ³°<,ÊO±ÇhQì-–Ý0þ%ÀºKY2å?aÑ )E×)já×ñÝ-°ÏÎ{LÇÃ)Ü;²¾&rzæ®ZÏJKîª=î µ|}Ú *Ît ¿ h!Ÿš).TùÔzA>eyÏýÔ¼ ¢äú VyT*LEË×p ɵÿÓÑÿ€Ž> 3Œ.é¨# ª|‚uøÓâ’Ž¦YÉtµŸÐQP:ŠÍäVQ4>„‚eéÑQ^äÿ†~Qãüe:꾸}õ/‰åÛ/ endstream endobj 4939 0 obj << /Length 3311 /Filter /FlateDecode >> stream xÚ•ZÝoã6ß¿"oµX‘D‰’p¸‡]àöЊ¾èC[ ²ÍغÚRN›¦ýÍIIaÖ»@QCrHçã7#Çw§»øîß>=~xøœwUTéTß=>Ý%q©LßIiUÝ=ï~ݨ"ÞþþøŸ‡Ï:™ UUi ŒhЗC}9à°±p·ÏÕ;¥U”i—@T²F´˜{÷ë.ãÍOÛJ³Íx6½áfÍ|s.có|òøúlnv2éеÃØO‡q¸B¦V3Ø°›Òó³¡WÓŽÒq­_yµú2tL:×Û4Þ|Ù&ùF8íiq÷wIe¹ºÛðª<çƒMƒ9nwiª7¿ÅyÜ´Øv#Ó.¦F& ÝÕ0€O8µtÓ±10H¤§ãŽ+LŸz³®7C}•‰NÜQ·G¦ŸM{ð³,:,íî´… *^žgƒ³x&L|3O[˜÷dh%xš¿Q¶ØÏtXUñÕ!én?˜þË–ÑÀ`:œ¦È@9 ’à~—ƒÜÙ"¸…Xo>öۤܜäöH_•šëk§°ÚJìhÌJ7iÐâÀ(´·Ü’"J²Ü²ƒó¸Á˜"VvÌpî¦ Ê¿(ð€-·Hœð5Á¾îdðRì?‡gshž^Ýtn°û¦›PØ…^\8d«À&ß=4Ö²§KûˆÊ¬\žœT£{ùæ•Úü¸M6-R ÚG6V­K—° +˜lÆÜ8UX¡ôç.$¸2R…ÜuBÁÕPXø¬ùÁ6xÉza[dø@_¶ è‰DÖ;™AöIÂÞßâ8í-ëQ†;9ñlX:IVFE"ÒѼ­—ÄÐîæÏQ+ûÞ\H²L`¹çV©¡1˜c‰ÐÜõÎGîÍø¾å+kDÎD³(÷L;û¹5lp‡ºe[aï…$¿’™vi±P<“Ø›•!’ÍňOÄ·'wàb«8ˆ©æ‡;,ºÂ^ºZ~úƒ%ëƒÅ³ƒ%ö`NöIPÕ²8x2ò·Åæã ‹ï;´C6ÆûÐ`{Ї6¥RÞÆ/¼‘:â½£÷£n6vh­â,PúmùåáÐ]¦kË´"ñ’Ï ]’ö’Uãó,,¦¶ùß$mïøÜÇ|óÚ9Á¶g‘Ö·Ý¦ÜЄ‡ á ò‘äÀ”²HœqY·_ïÁ¬€Ó®KPóu¤tÁ² ºz´—oÃlºˆ¤XG¯u2˜QB¶¾ V"#šXƒ¿ãƒÄ5œ7 p#Í•ÎÖ±4—ŠÈÙ+b‹ê­á JÞn„??9\šrÍ÷ž¼•½c.ˆ¤nT¤A¢ìÀ]>ºï²¬Øô5r~YNFØ}ÝñÑñh¹o~ô#dséN±¯Û0Ì•¡³‚EÁ¿–•ÐpJ|ó ¹ÉÀføó¡;‡·óðn­¶&:c{À]±+WÊ¢•õ„p ‰’ ¬GT³L^07j¸,ï%×Ì"ƒrMK62 N?Œ6xõ˲JÎx¢ŒÄÊ9?a`«]ÐÅ8{Kè¸ Qýîæ‚IíøžK0+4[X4[šaV P(ØÞ†ép¶Z ‹xÖ)3E£"@!i$ øÈöÂý0ɼÚ3ì»Kè Nô¨-R/RyéA&Ó?ñcΟFÑíCchlÙµ¨ßqýñ+¶ÉÖ9\ŽaÊËÄË[*ªA©$¥)rPNpoÜÏBÆâ.Z‹“>hhß]¹Kn(Ûü1œëÞà·™Hp¼+àÒ B¦Ð2(‰¿ê+\)Yâ¹}‹´¥VÀ~P¢{Ó§ÃÂs.*J‚Ðæ®3èyƒÿq[²Bkàt8t»ÚJÒ!ÓÑð$:½L“4‹boNýsN^BÍ¢iˆ“Ž*_òFéMF® ª-ª,Ò]ô¼²¦cºÁë%`¸©ÉÒ çphmzº .ù•Ž¶ò¹/çÆNðžA'œ.ÜñÂF³¹£61ÖÔV;pÉ…7Ð a„ßÕâZ¡¯ÕŸÄú­Þ2Ÿie°$³‚±iå"ôs¤K4H–qI~2poÀUÅù\þyÀÍ¥÷Ê su‹y¨é–:Qªçz•2×ä>ykèÈí㘀•˜íIµößN×½é%ë„èÎ*ÄÚævi–D±*–Çcm‹°›#Â*_õ–dŸh´om;.³æ¹EòéÍ‘.íÔyg}(V:|ü„—™"jwò½HKrÀ†¦ò§h5BaÏs”e^yÆh7È.•wR*:–XéU¼ð ØEŸ b.2@ïÓÔ|'a–XŠ­ØÍÚì²GL[Œý_0÷è..§ùdágæK«CVsÞ¡ÐîÄ[ùÂðå‚’¯ T V@¯`3ˆ¸’Ä" u2­éX,¢뼡Ó€#ªÙ h¶l•OˆjþdWa ËEüJwlFI- çß(Àñé ]=Ù²Ž ßw’š•õ‘«žs]|qçÊ!Ö@±r¸‚ A›ýŒ}¤ËÙ^@i@Îyòh¸Šo+PV¥ß…†—\Þüõ3©iù¹Ð$Ä.ïiÜ®öœÉ,nm€\êÛ~W££2)¶r‹½†È») ×Øv²Œ0Á+7k~XG8sv@e sš!%1ågdžyø‰í))Í~xÂ߇ª(^ÿáÝK¥M)ýB„ÊqÑ{HÉÈ*¿6´SÃâô[@]‰d:£Ì´ûhO—ðw³ ÿÿùÍ74Ÿfa7!Ó(ÊÈ×ݽe|U‡uñ iâ÷†gÚ´Nâ37Z–ï)©Àªò€î¿oÞ œ:_›÷›ŸHþëñÃÿŒ""> endstream endobj 4947 0 obj << /Length 2482 /Filter /FlateDecode >> stream xÚ­Ë’ã¶ñ¾_¡ò‰ªZa €ÏMíaRåMœƒö89Ä9p(HbV"e‚œñäëÓnð5ÔÌ”“Ùªe F£ßÝ7ÇM¸ùˇ?ßøô5‘›\ä‰J6÷‡ C¡£d“J)oî÷›eq.·ÿºÿÛ§¯q:Y¬óD¤y¨Ü2J\ô!d쟾j=Y½Óq"²Lnv*…AM›ºêbÔ—ò×0åG ¹rP¢Dšùcž¶2 šþ¼ßît¨‚êr=?#(ƒ‚FžªîTÕ;Û?üÛ”¥¹½±Õ±æ'Óî›ÃVÅÁ6Ѥ­þc,oá*(›ËµïÌÉÜ숲p+c¢¯lê®-lWÕÇíNå™»"Bipmª ÂQEŸ¢Þ iÉãVÆimoç›3ÚL ¤µUÍ8ècáÄ3/>¶MÛ]ëà®ÝJé/ö;æÎä¢A2Ø{=U+ 2é—Tž¶“©‰ :ŠE/Ñ[ãÂò÷¡ÁëÑqH]CSöjÊêðL?1o軦lÚÖœ· Þ®jjo‹…Sؾ5xEKˆI hÖqƒi@M«„Qœ:84íˆ ïÎ/ñB™Tš ʤÒt~'@ª²8¨:Z7QU\ú`h˜¨`¸Üîì¯ã¦{2†°¤õII}R¯>0'é7Üfåæ·¾BÕ~ÄÿŠ30 L&‰$7'ÇÁ> á8€5}è8Zª á+8I‚ìU$’\щwç3¤HR©ôw)N´ÑÒš¥ZÀª²¨iîœ~ü†ÊéTŠŠs4€´eô £*˦wfƒ$[åß(Ž¢jÑ_àðSµgìʶ2Ýóœì½¹šz·ÆÓ½©K$ø™Ùö|5VÌüßèãdbJ©P!9Á,e\¿Xrˆ‡Ôpa£‘‰òæ×>­e"Œ:Oý*´úùüyÅ¢wi(B™Â¥b!½§¿G)É< }]’>ÊUÆ64~mITÀ9K#Å°¦3m JLŠF¢t ®°©(OŒe‚ëÁMÚ®íKò“8Õùý4Šº4»’uc¢ý—¢k«ß×$Ó37³ô7u.¢,Zcg:ggš 윪-úU%ƒ¿BLøHž¸© xémGÐèИÔŇ S±q.ïøpökœ›îß]aMçG‹ŽÃ(U,—q‹½6ÎdUJ&¢¼÷r¬ÞíÀŒciéÎVLŸògôíú}…Jîâà½^’ [쉞ÊÈ€Uº0`pAAQôR>ð•Ýƒ%tôÚFÁk¿§ãÈb/(—J€H%;7ÕêF–‹R’p8M.Þ¾¡oÝt ÃS]ãÝ(}ëÈØ9J© ¡Êæfö2\ëàZ´]UögP®(tÞX'ÁÙp”–ÓÄ,‰EÈùÉÒ¯Q¹ÈÖ4Gr­G››Ñ/sÂ`Nk´iéáŠÝ‰:ƒE-q8Å‹Pñê½×zcš)2¥Rdza´Kæ*ckט­V­ßâvònGy2åöÒV€ŠCÛ\V”:õŽš_´|1N¼À_9™ÀÈàlé'³ [¸˜a¯ê`Ð}TI ¸ƒüd ·0…YшŠ]åBEsVÛ’sV=óá,(´Õ¹cÀuU±Â©#!ÃA?×ø»ºbbÄΤRG?éJôvpAˆ ¬p?σ¾µ¼€x èºSkxŒýãGæG‰0‰×t/KÝs?˜› åf‘^8Ž/0i ¦Âð:ñˆÌš’¼üWìü*Núª`‚~Ó€ rÝvOÛG¢M¿šUÎè¿7Ї|ƒk°¡rRC^ÂA¤Ž}ËCÄøÜ4ߪ¾!?ŒÇRÙÏ72¬™ª„ó\å„Ò6 ž+=ÐJ(hDk×þòÚŸÛ µ<žN±øúÓ¼[VN_ëEò BRȪv¯ýݼ‹ú£w™Óü/4èÿ?õ-~foðó½xâ)°@ø‡ñ,(¼)ß7uuá@–ã|ÀJŠT-‚“³Ð/ôq)Ø€ éW«=ÝÈÂ0Y ‡N¦ÙIüp „óF.·Må;%–¨ájFä…oïÔÀ€iÊ~^Íà¼K¾]ß©Érù6×Sh!Ë÷Bä4×s© {(ûÍçµï²4õV ¹¶€¥T+ß àÔƒó¶|,᧣06‘ü"Îå£ÒAê;uì@ÅøR€2€´üè’;_ÍéAp¬é¹¤^3”Fy¦^ö¼ðì¥8Ÿ½”x«ý¸ÈDë¦ÞAöjƶhÍ…ý ^‡ìy'%>©"Õþ+&¦3Ž’ýk¥ÊŸ‘à]Ö"ÇNhãwN‚SÁMÌr»æQÃ\„á »ïËæÐ~·Â¿(ÙØÒâÆéÏÆÛ&üÙ¦EÓ$𧥬‚;Œ ÒÅt§fo¹xm«öª†Œ—^B° ۸׸'á¢Qßí·45®îËwÒb…¨çÌ$¶ÝxõøþþÃãX¶F endstream endobj 4958 0 obj << /Length 1977 /Filter /FlateDecode >> stream xÚµXÝÛ6Ï_aàZ@Ö\’ú.²‡ö®iqîP$ÛÜC’Z¢×ÊÊ¢!Jëlÿú›áP²äUº¹¢Ý}àˆ9_¿š¯îV|õó‹ܾ¸þ)NW9Ë™¬nw+Á9 £d• Á’0_Ý–«÷A˜ÊõÇÛ××?%bÂ朥R‚ ÇôP¨º@¶ÜKÑÉ„3lØÈ&CÚöÓéÙ®ÉîÙŲÕFd,OSÚ÷£>ꦬš»õ&Œ²À48¦A·×D”ªS´d»¶/º¾ÕWðÊ3‹=ê¢úÀ¹Ô%q>¬e¨¶RÛZ[Ç-ÕøÅç¶Õ½¶Ä°3-™+ §æŠr–eá`®voˆéBKñd೯emÂ$c2ËÁ$‚åqLìÇ}µ$2by "A+¦AÕá•¥ñh¬­@küŠ@Uå×ÒH¦!;¢ÒÈ3Úª)ô¦0kϦh×AumõyzT4¦Ϭº ÷<àn¿¥ÔhÚ¦êü]NU·¯Z3 Кt"íÒ µ‘yL«‰*êÞvºµôõÇDù/“ Øëâ~-xàô‚…Ó^7 qÆÂ,Ìè¶Ë›Û7¿¾Z°yœ³4M¦6w’«b?=ÝG+¥Þá%T_wkWl½‰bükG ¶ö6¦Ù<1³Š„èW³ ˜Ú3Œ"´u^)(ZÑa~egú¦Ä¨OÆ`‚V+ ®'V l7Kvtâö¦¯KZÞú=ˆÜõuýè?§&F> *V.Fðë,ëPÝí;§ ŸëPA¢Š"‚›UÇc3•q‘!³£5¯"ØõM1,ó!‘ÜŠgáç<^TŽµêÇœ³$G†/$98ŽGÙ3Iž2‰¿0ÉÙE–$LÆnÿ‹á Àêë®sŽ¸[8;N©G¬j´j'Ø#–æñ$ØÃ$wV&T‡–­Zu"ß ¶ÏN“’q™NOûåÇËJ2=1 YœŒügWãÁ»ÖHÁñ ,ugã< WX½wìÿ&„š†+°ý¨Š{u§Iª Q˜ì­ b˜1ÞŒ3ôv¿ !çð´‘q6ÏGœðàç”™8E ÄdÂì9Å4Â0n æPºOO¤Mƒ‰ÔVÓ¤ ΪövàpUÏ;@Ð¥œ¬h픯Á2æpë8x$Œo5‘Sõø ”â‹Jñ™Rs³^Ûh#ÂÌ›÷‡5ì黽iç-"èÿÕUd>=ÖL½»Mê%r¼['ºØw[Õƒ5Ü$³8yÄD6"ÿËÓÃöûƒî ÅæØšOºè˜iïþ¾”Â2bqžóè˱{q&ìãcîï»îh¿»¾>Nl8y½A3Ÿÿ½ÜιÈqÎNa,Äßa ñÉy qßñ¾Ñ;>‘ºÁlú=óe Gá:â9Ä}.D4s•\pß…$°òOÓ”ÐûQ·BµQª­k#`WÕÐÒ\´¸j%ü&ê `Њ¬7@_”Ñ(ËèkÓ·p ‰‚*M‘èùfžx‹±d;èj‚’·f×T»†¾W/ø$M¡ç¾ôøÌÙX¯ÃdɯîAsv+ÑzWt¾ø eel!–"É——¹[š ÓôZp“0½þd-{àaÂ*.ÆK,Y_ÄË[í¡ô‡ÚšÅpùªâ|DÚ.=ôfåY²ü HärøãrZ®9ŽšX(d`Öl­n©*”4}2Ä€ŒXmõ›‹@dniÊôHfÑô†s§´­¶G3<Q€:ø²í¯=«ÚÐfÕmZº©¾¸i§U?jï±Æ=ݱüDªãg¢‹¡Xs_¢ùôÝž¾¡âó¦¯}Îc=s…NPæSa‹mhoFLä³ð+´F¦Ak܉-7ΕîE¯›n¾ª}kŽ|…!çc_à]æï=Kÿ¢ö+òÆ:(vxx¦ýLe<·V;kÁp0¥®‰Ä›v5³djÇ,ö}R…òSî£ï2‘Éx¡#àþ¦IØÔZÀ0Ë øòHz\@|ÓµgÆrå«z¬WŸ¼Š¾Pzž–"02ÀF’D#Š¤€£’dýíOüÚS Š‰t”]>s4{] JÕ1emÕÜC‘K(‘qÝùÑ} Áì?J0|U[ú@×áHOV·¬:©Ù |+Y¢{‘çåfä<öÔ¼ágÛkUú+^Ñž|hd/¥úÄþ ‡{ gºlDBï(&œ)(&~UqÓ]_VÂkÏ‘Ò#qØA> stream xÚÍWKoã6¾çW¸Nî²"J¶‹êÐM±Å¢‡ÂÍ%͖興$º¤ä¬ûë;I½,?PmÄÓÙoÞ¤3{9³Ÿï~\ß=<úhÙ‘ïú³õv†Çö–þ,@Èö½h¶NgÏö Γ/ë_WAÙ‹|;ˆ"Õ°y'™î-ýáÑóf!pûKɽð‚°a_¸lzêÐýýýÇÅÊq>Ô‚(«%aœ“W”•jƒmÕêØ"¶Œ+‚l·$©-è_Dô$ˆ+SZ¾ª­Šé5ÓÊ.4Uv¤Uf€ äØÑ*MINË?kRj’á=5Xp™^kÆꟘq™±.¥ ‰·¥eb¨ü¤ âŸË÷ µ6Éð‡³röÔÒóZT„Ç¢ªÓƒÕéŒA‹\õÛˆ˜šê¯)®p ú+ÏX܈…ðZ­‡`Éÿ®PáÚäb—ÓJžyêd~ÛGÁY]}ž”óŒü#ËEv„‘ ÉW\Ð’Œ²ä(ˆ®8ý:Š_£Y‘ÈŸò䈶wAÛ¬7û;ë A´ùÉw4€µ©Èð›ë8A–¡¶5—q“b¦¹É»Òx”Š.ü‚TSà§aÊ ôN¥BFpªj?®úY3i] ®´93 l)ŒúÄ~$ B…fxG† RÊ¡ !iâ¹Ô0×Û4ÝcÏ›°›½½]B'ªæ:·æ{:—FX~?°Ýe8RÐ✊&§š³®µ´|+T'•¡rÛ³VV`E¦žZï,¦Oà™ñ”ȼteN Ò¨:_Uœl¯}]P!Ú~\,jøµmD,I°é,ÙrV´® „„ú àN‰õ@‡èúG9{o|®cÖå³õëï_¾ Ì Æ’±÷Q§93ªŠö·-åB£]uƒBož@wœÒá唿U¼63¤S\ç¹¢¤ÄMÎ’7“ ø••8ïl:îoï´ÊÌlSë¿I9¨;¥´B ÏŽ',D]´¡7Âp]±3C2 Ìaݠ䮞²Ýp?Ëö 9´ù8·;£ÛŽu³™bù©7v%ÜÑx;©ô} 5/P“Ú gÌ~1Ú¡Ôæ¨ñ ÎOÙ5†În‚žŒÒñŠa«†Õ§ÕË-f^OÌÿgè½áS\¢(òÿå±×Ó|]—@îQjW¶ ˜' *! ˆ&»Á°ˆáÖ¦ˆØÔ«ï_¼ÕžëîìÍ$@½WB®í„æ òâ¼;–ö2ô Þð Î'举vO™)9’ ƒ¼æO€‡ç] üš’â^ …ÕUÂú¯åá…ë ;X.ou™×jNßÞeìOu»æ"núr-ùñ¢Ï.Ïô²ÿ°æ7„¿‘^x»’oŸÆfýi}÷7G¨÷Ò endstream endobj 4972 0 obj << /Length 1335 /Filter /FlateDecode >> stream xÚ­XYoã6~ϯ06šdE”dËJ«‡^iQô¡Hƒ<Ô Z¦""²(ˆ”-úßËS·lè>¬†ôpæ›á\Œ3{›9³Ÿo¾¾¹\³Ð—îröœÌ€ãØž¿œØK/œ=ogë;/ð?¿>ÿzÿ¸-V/tìÀu¹ É´a ¶GK¿ô¼ÙŠó/}Á?÷W˜{|“å±-dŸç ǹûv®¾|ÃÞ ò@®„@.lî;+uäööV±îa‰á&CT/VÌ·zÇÕ;1)KD b~`DS¤÷èÖ2ç1٫ŲÇF>Iz‡(«¶Ño HàØᢒjUEõqCö 0¨b’SVV1ëé{i¡:*ú/gáä„¡­ ç1ºè X¢äpè×)Ô¸Җk3È0É», iÆ=Ž€¢RjiY¦ˆ’(7ŒÁzéƇŒ3a¶§uÄYE*#X±””z³äfÐH±lÕ>z¬:Ö`Äÿ›V=²Y’*ß ©ÜE.·^/-¡n[ÚhÜóiJÚƽê“aʺ1Wß MF‹ 3‰£1ì«Ž3’*Å ¦£¨ý>´åØ·å¢=Sñ*Û¤&M#RZípþ¦¥:"õql¿3(IÑDñ—žK†ÐLâ×*Ú¹/«ZZU ×vV¦¨}­8:uÌ·ý•g~ÿqD† ‚s"$eDJàìÐó®ÆñÝo8–—pÔ@IÅb²3EêThÏÎAàÛ+quRîq/+ù]ÃÌjäFZS/ ­:"~ëS)YGì‹5ÉÓỎàýßþMŠ´KS”’hpï9, ×A“Šu€'UÉCS/¶ˆAœ™”›ÈÅ´ñ(°#Fk­w,i8Ãz.o<ÈÄ4Ì󼻸D!E›F¦V,º…yÞÅœ‹š ¤ïŠ’ E[œ$8®2vÒâÉnƒsÝW$'52…f*óY­zCåhiuPè²…ô®;ª\TYamÆ}’U×Ñ&…ÑçO­ª8QLÿ‘€g÷“E"à0» µ5t!'1ÓõW"îÞŽUܘÈk\{Ô5¦v¥ôŽŠ…Ž²Q äùÆbí°Oö'ãΖÈ;hæÚqƒXó ÝaÔ²5sˆ ÓP-É_¸wì@ÔŽ@CyÀ,5lU©( •(gÍRz #sˆ§#Ò¢Òó£Ó`2™:ld-µfÙ¨Ÿ7a]ž¹E–ôwù§ºcÇÔ“Z #‘þ³”Se¾ŠMÇvW‡_áÈsòÇÜúÔ :uË"¾¸7µù9£•YÄ$‹VSþ´^<¬,ðà÷bùiÍ÷,þ[o_Z8š(ðM€hÎ55 9œ?j |üèðÄD£<äüþéÄî©s?7©\¢B·ídã4ò[å°ÉnnФó?2AB<¼0—äˆw²ÏL¼€`ó‘€ÕãÝ0 ê——I(šò~Ǽñ¢h=nÎ “µèV–›£;RÏ—"šï‡élf|Z 'ØÀyîÓˆ²G{õf0ÙÂ,cr"i7hv\µc.ù¢üoúŬ\¾JcKBðCÛ½G64ªûlk{šzhÍǤ¼Ð®9›º_šýèzí½ê ?}Û¼ÛOÚ2Ù¤¿Å]™¾„?þö+MŒ †ÿ—ZüWàZ^Kv1WíἋ© ¿}—Ñ÷µUˆ®÷Ò0È'šPcÀe0®-Š XÖµAü ¡b³£¤vÛ©2ߟžoþâ~ K endstream endobj 4863 0 obj << /Type /ObjStm /N 100 /First 983 /Length 2154 /Filter /FlateDecode >> stream xÚÍZßo¹~×_ÁÇËÃqI‡? ÷€Ü¹Ð'Ú~Påuâ‹%Ò:Iÿû~CíÊV,Õ»ÒƸ‡ ³«!çãpfø ×>qPFù²²®^¹D`å ‰ûò&ªð6E«’"8•²T¦$‚W9ÑÊIYã2^%§¬¥2Ža$Ë»”õT¦ˆÊr,s`D4åW€IÞÊX£lÆœ€ËZч!°‘‚r®`L’/Ö,¤,Ö`ÈySF$¬i#á],‹ÉF¹lŠd/¿b)d£Ì’IYÙ+òefLJœKŠ¢|9*J¼ñ eqE6Vü†¥ÉRL"y…÷V|‘¬… a"çì|ë ²e‰ËxÕ›2ž1{¶Ø(ŸÅ{¿²—ó…P$X‹pz€{ð”`Š„eÕld"XaÃ2­Š­)Ó&H²¯ÙfH¹L=GÄAo +gL'’SÈÁ‚ƒ^’5e¬“³ÂL0–%`² *\Ö•w^Çb’ÌLxÇ$³ ^Çòc¡˜ „PÞ%"‹  É'‘ðk*˜±—!ÌðLØ À†Ä ì~,”½WÑmÞ%)Š ìtô®ÌÌ$2ö7†2&cŒåU1[ËÈ“ʯp°ó‚ž½JTÐÃʼn7c³Br!ls0J¬$R”¼É³D ®²M‰R1¥µ yVF•KZe$¶Zv ™Š]”_‘˜ðu˜œMª×ËE£ÎÎTõV°×Hós<`1D›‚»€ó€iBì`Ñcµ›Éwl°<üôÓ¤z³ZÎÞÖz¯ª7¯^«ê]ýµQü$vßý÷¶ÆÓõ¤úêE³–œ.“Mªóz½¼[Íjy‡%”w¿×—×ÓŸ—_Õ{QWÇì.`hºÂh(bWŠâËÅb‰ÙÞoê”à)uªB'Ä"|ƒ¨ŒToïþÓ”ç¿_/>MªŸ—«ËzUìš‹êoÕoÕ/ïmy¨3,Ò%£=vA­ˆR!4!œ‚aÍ!@ïeqó[Uýº|·TÕ+õÃùÕB¯æS}·¸~!.ˆ÷AK}¥œt©Ì‘tDáE¡ÑdâA ·«ëE3>ë³FÅ ´GþØdµA¤Q†{òa4Ww‹E}#pBÙg瀲[ÛävHdk’æRM€…Âfì•¿Ø.§¬¦zyvV,T/gÍõrQ½­þqþ›üûácÓÜ®ÿRU_¾|Ñóº™^-W?Þ®–ÀŠ^®>¼¸Gø  §dɈþëß &Ij‰ó¡¡w77•­1E;x«j[?mŠËé©ŒóTËQ°£}_vò~·"i9N[ S:–cü Óŧq€féˆZÔñ;ÄþI 1âž W£pÖ5ãÔ·)é€ØÓlƒ¸Z/Ft„ šÄ-ÏI[$ûS ÖõÍ|yYßývàiè-€ç{P«&E-‡ÊvéGutÒ«Ú Þg¢“.ÆR4;îÄÈ™8>ÜÌçã!iC‡¸‚J >ÛÈüó自u84ÒöPµEÉ?߶XŽ:È•I‹#É®P/ó#ÂȤ ªa Ñ×åÒ¦ŒÛºYŽ¦”Pìãº1ÄH#G)iÁ[DRmúÅÇn”–ã,i$ò¾FUÃ$þ>ÚØì ÝSÛ9ô`¡§6*Œ¦Ð[ÿ;ÓW›àI¹èé©À’»œ~ÚNò0Ú¾ÚàažûÎ-'¨\YîÜžïú&[~Djän°©ÉÎ|Kjä’rDâ­Cµ¶rË«Ë]œG¼ƒ¹ˆ¤Ma`vÊ]jïìÜQ~’õîÕ&°õ¸õŽ¡ö#zj;á·ÔSÛ&0—Oäß»7÷¡ºÑGÇ­KãÖ…ããÖµŒ[Ž‚V 1#™,j¯ÅN„– ù #»‹N[G#yQOWo^À¢=èÂvkØ£¹Oؾ{Ãyô }¾Þ¡ÐÕítö ô×ߧÍêúë‹ñÚsÃbõrí/—ƒ¨M›²:ˆº•Pwq@ö?TÞæºíäN­ç’äèè§Ç·oòåøè÷]Ðó¨A/-ÚÓ`¥lÊg³ CjäJóÙZ¹?Šœïqdl$’ï)óëõLŸ_N×õªž­E ¸EÙQÞÞt°ÜwsOmIÙ0¼*q÷AyOÀÅa·³¼4ÄsißILe+ûi3š¯½Ìw¯¶/Ü?œ”çG{ÚÇÇžö||j{?êG3¸Èo»%ð0ãŸnçuóqy¹ÖŸgËÏóió(‘|•ï) ðxwRr|Ã_@;£ñ݃Áïcä P¡ýTqôžó2Ã'™v åkv+t¬†©º’Ï£–|ÇVË%'Ö,|'ÉÇLVœÑ9¹ïGsHè VÙÙ¥ŒÀîÞîs±œ>9–¿ŒaœFΗÏûÈ%¸ §‘ÍöÏw³ÙÞ Éá WWí2ù"Ì|xOëõlz3ý"8!Õ )”¿ ¢ õâÿ°Áï‚LñÁÖÞjK<´!å!””ã†tŸ6-¹ÔS[X“aê«!R_ÜjŸ¿mHOû¨=FWö¾¡ïá»ùx¿³ôÐó\|Rqõ³qÖîb»¿æ°ØÿI¾Áç endstream endobj 4978 0 obj << /Length 1851 /Filter /FlateDecode >> stream xÚ­Xßsã4~ï_áé=œ34ª%Ù–} wpe†`àJyè•×QClåü#iùëÙ•dÇNœ6íÉÊJÚýv÷ÓJž³p<çdz×g—W!ub‡,t®çõ<ÂýД’ÇÎõ̹u7©šÐÀÝLÂÀ%ežL¼ DoC"âVÕ3¸Pè̳]^qîD ú(=å"ÒâS&`›I©Ú°T•Ÿ½À»©noY|w}:™žç¾1MU7³GÓÝfõÒÊuR&µ4_¥ÚV¦7W¥éÔËRÚ²PõãZV¨è6e”Ä42¼ùÚþ×g_Î(lã9´Ã6d1ñ…pÒüìöÎsfð'hBx9[-š;>À/|ý•óéì·ÇýV; í9z$ô©RF|Î:nZÇõ|ƒ‰ŒÄm=øñ¡.ÑéIZO¦< Ý› ¥ÔMÊL5Ž÷z"|WC©ÔÜ w‚I‘Êé÷:ž»±ŸFòç¤.³´7/'~àªÜÌ~;a ª¾mýHÄAh”úõþo™ÖÕqhƒ("ìeÐjaƒÃA„˜­UZfë:SÅÅšƒ|€ˆšRxf§_5EªçNYDÝZ™V"´6h}‹±–4øbñíËhxÛÌÜ ¡¼ƒ¿æ%ÂË"ÏUÁÁŠé*©*“ÔƒXâ„mHœƒ[ÎGrŸù$ÞI‘ÉÔ÷¸ûáQ;2= ‹Ö™œcT$ͪ¾ÌPi:Ï[BÚºÓ×FôWøìyìçÉ™€Í`¹µ2Û–²nÊBΈ5ªSô °ãVç?ªd!G] ÃŒÜ …7–Ê>qÓæ²^ªÙcõ\"üL}ˆ.KߎxÍï§qÇÖÃU@Æ÷ŸZdJ¹Oü8æòÒ³‰¢ K®¢ßœÏ³9;·C„ÍÜ'Àú¾ÄHX4¹,lb¿V£Óà âT„€ k­N ?fÞ –Ž%„ „ï°}2Ä.Â>‚aAÛS=ÝŽt™ HŸ 8 ˬX˜>ÒŒ[Ë4›?ÚAÌÝ™Pdoó–cûlú¡P›~ý=L.½Íæ~?\FÀ 9ñ‚<³*,6šs~G t«$öõÑÄ-GàÀ€#p`À(ŠaŽâšÄ¬Rƒ\èqÆúÅ(’)Ænu_YÀÂûV3Ê-¯A'O U"w‘ÉÊŒ<Ï•zšåJèëøî§ÆÂHŽº§*YnZŒhÜÇÈ|WÙ¿ú€„GÚÂ!ÕÔ©Êe5†e!T&ÑyV×G JŸ@‚»hõ±óÚ4s(†¦uÁáù&8¼À `p VfØ,¸‚diŽØåéþЮRVÙ¸YŒD^tß°¯U 8!¾A:O¬ë¨`Dˆ½$;~¤ Žèj­Š™‰/ÔJA_ š«[í_ðèpÒ[Áû È7p­×™U{~©qNðÅf5_L0a­-7“à–é²¾Oš¶ÂÂmF¢/à¾ÚEü×ÛÍýw9TUPœL×¥Â0&ª\|;Ž绀Ôê¡ÑJÐÞv?¨Ï˺^Wï./·Û-iwÆ'··ýS%%…*$¦ñŽ¿á¢4ŠäÇë³ÿG·Ô endstream endobj 4993 0 obj << /Length 1603 /Filter /FlateDecode >> stream xÚ­XIsÛ6¾ëW°Î¡ÔÔ„ pïT‡´;“iµÝôä‘„†‹B‚²}éoïÃFQ -[ž^„…xßÛå;kÇw~›ý|7»ºŽ'CYLbçnå`ßGA; Æ(2ç®p>ºAÏ?ß½¿ºŽñˆ4HR„Ä×D»9Ž\–“Š I<ó `Nyö˜GØ ôá¶bí§.«sÖœÝs hêx8Eqª/ø0}—³|#–´‡«Bß½œ{¡Ÿ¹Ï3⢹äë~ò#Ÿø؇ÃV _~iê¢Ï¯×’$q+&¨GkZ>v ˆ:ÅkýéF÷\lô±aûC«¦Õ»[š¡k† dÑ2`¦©…ìýœDnÓ·ÀMßÓ¬ä!ÀÈÐy …,Š4õ­ ‚w‚ç’šD¾{Û¬Ä=mçAâ2Íì¡$Að~ËëÒPŒu¢,Å– ˆ'îÈ”Š …D/Ð]jþø!q˜š‡Áøf‚°OìÁÛîÇ««¢á¨i×WØG8ƒä꟮C;?ˆ÷ƒ ù<Âû=£ ¶80¦ù¿-»fÒT|øõQê´r©§7Ò€D<2 ¶¢¨¯ù±éŽÁB”&x¾ŒÀœ ç$ŸjsŠ ÉPº·‘3ù¤c>[&š“Nþ?^´.«êNJ´.^Î’`¸áÄÝI†Ihé•oJ–«¾_ojðlf.À£¶?ù>z«j Vv†ZƒÍû Ï7zOù¼ÜÛIç¥-÷´Ë LJ.Ûôæ&ñ¸ef >®F{žBÄóòFFÏñ–&‚`ÚòÜÍi­'Kó™ÉS¢¥¹`šô Ô8O¬%z÷@«mùDˆý6ä‚ R¸,IÀcB}×›7oæ^äK¹Ê¼/©`zY6k=iy÷ÅÌ t5žKµëcMÛ²n XE_¹ÕIé†ÕÎ`¡¤‰<Yd’RyFQýäé‘uR¤*F»¾e‹‹››‹KÔ/ĶéÌj «š­Í*ç‹|ÿ­€Õþp¡ øAË|-CŸ•Ì1ÃÉ+nDªø+<¶Z±\˜W+»ÒS@”TË®)û7Iô;‚iÛ/KúÒlõÆ#ƒ ¯iF—ÄM;‰T˺C¤À}$LÜ­:’%Gá¡î¤¼Bw„„:ÚÀ8èN.Ý) õn˜ìõ W /ì?xÉÛ6M_z¾4ß[¶-iÎÌ®.$å ? `(/Úwí'a×3Y¡h¬íxG=¥}T³ú !eàà ý„ÐeX׊,j^®¢F¥ûgÉk€€‹Í-ÃêNgXjÁNyš v`ÿÿ7í× endstream endobj 5007 0 obj << /Length 1545 /Filter /FlateDecode >> stream xÚÅWMÛ6½ûWNµ€˜+’’(uÑM²¤Z4ëÝÒh™¶UÈ’#ÊëM}‡’%[vœ\z0DÒÃá̛ᛡç,Ïy7x=\߅؉Q’Й.ìyˆú¡Ã0F!éÜù4zJîçéo×wk‰Ò8D,ŽA‘¢Œ)¡guƒtØ’×âcÂ`‘šMoEÅÓLv6¶´Ã‘3Æ1ò1[§+áŽ)óGO. F<Û iæinŒ¥´µ;ˆQH‚ÚÖçw"ĺc(|Àž‰¥÷9ÔsÊ«T•:µpç2¸rIU”.öF–ˆ yÍàJñp¹æWfúÇL¥²<eÒïAD{ÞÉñFY@öHÝ'ɤL7Ú𠘻mžìV=Œú&Åz³­ÄžY–"%ÏÒÅ\‡^ÿaÊUÅôÅ…O£(÷Êßßɽ–Ó‚ة IŶ¯Zù 1ÜÛb1ì!1à°x_¿O䎻Äñ ùR\Χñ…ÄT.?Û‹…jßLBÛŒà‹Fâžš/p媘›±†H_Ô=¬Ó›Ã… X“ßW=€uHÐêÓ2¾NÉS¸ÙqØ­è>Ϊʎx3ªø,Š)…U TÔ]–éº3‡*±œqC…º9€nL,BÌ'¿?|øPï⬙È&üÚµ<Ùlå¤á׬¡ºeZÉžðŒëƒtþ(®¨?R…(ŒÏG ê¦Op'x*äU;VÆûÉóO§`øfŸ£éq íp^/³ß¸(Ïçš.Íeçy›0.ã ÍíÙ“tÁ€’Y«×ðTPµaØ­8õõOÛ´ç»~…! ö‘¡|Ÿ‰À{”ï5Qþ?†GÍÕ© )xEUäàÅÎ|³ îûå±+t¥RÝ?¨ 8 ]dõ\¿„£êÈ> stream xÚÍZÝoä¶÷_±¸—îYžHê³Å=4i|½ mÑœ›—ëÕJ\¯­äHZ;î_ßrHQZ­Ï6´0`Qü’óù›Ñ«ÛU°zõõÍÕÛë(Ye,‹E¼ºÙ¯x0Æ«„sËluS®>­e’n>ß|÷ö:æÞÔ¦ÆI„ô¤ûj“®¢mŸo¯¥ôVme*ô²­H SšÅù0LÏN•Ä,K…Ý©½ª¶ÉëÍV ¾¾ßðh­Š¡íÌ{»7Ϫ)«Bõø"Öÿ ¢ÀN¨«~0­á :ÕîaSGkžý*ªý£yÉ ‰^ Ó ú"¯•i­ÚoDÛ¢¨T3ôx8ïؘE‘9÷^Ÿ@òõá*¦™›Ç­jT—×Õ¿Ui:î‘\ÞUyS(ÓS5@]æxuÓ±ßð`ÓÅáïøþÇ×tèéí©&‚;"S´Ç»Ó J¶tÂoò†î\÷Ä ½®ŸÓ¥‡®jn·ŒÌ५Egš?œ‰=‹X”H+ÁÛNÝ=%o!‡V0ò-ŠÖl³D¸þ[S“`:ü6^5$ž½“s[hnm=AÛRÕžNôJ=ÿÀª”ÅY6åYwÌÙ©©žºŽ Ygö:(6›>߇³4âЈÏB³lÈwµz¾‘ÔímUh‰b£×ÀÂQ¯¡óá ÐhÆA™(PO“­ö@ïŽFó²T¥OÓ­Œ oMß™=,)›¹ÐVD…¦ƒ/¥2š}ªÓQõÆûL˜”d,î¶×üþã·fÖT‘B–É”óš¦Ñ"lkösš…]Ó$ésg¼ÖÜ…&,”‘·'zžsR¼F¿xi]àY<êv:ýÒ3PºØ -ѳIÁ°{GÃãQJG¥1Ó;ulÑ×ßkD´¶Kš®T{EäŒs¤ lĵ}×MËéJÚ•ÆSêÍð5Uõ=J åÕÊ+RÉÀ—=K{ãçû ™F,äb*ܾ:¾Bª"“Zª" G©b§“ªž¡¯ SJŒ©à‘«ÝFë“ R8€Ágª#¶f „9§¦´!h«;ÿ0ì-HÖªŒàR«Œà!^ðT…ÁîQ06Œ.ŠƒË„ñôu¾hꨉ»™¨éŸÍŒà½À¶@woõEa` ‰#oáåТ²>è‹oy,X&Óû yôu»>YÅÖDÑGFý¼àΠȲ rëÞÝüð¥ËË "’÷ÕÌzž§ôøNé¢ Í`ÉãASD/Py85š©ü]×Þîòî5j“ÚǾhâÐS{ÉÍ·éTß›7ÜPOu:“ -mc^/ˆC‹’ì9â G8eU^ë 8ñ ¤,KJ&…s†Ë‘³dô—oÀ¥UÑvj‰\®Ny€b@>*òÙÿúk;¨ß½\ÏšâîÔ?_ɦÏQλú‘ÄZ"¶5tˆœr̓è¹²fFd¦·„ùòË/0§ÑM .`å©L°çì:L©dž"Ç,Mœ í%Þ]T¡d.F‘~JÖö´Sãe®y¦£Öüd¦A'&“4×@΢,œâP5jš†"üåãçœ:*[øbuðaýrÑ”Õm5ô¯”ñT-¥LŒaK/ƒÑÚIA¯UKìÔåè+aâÑÒ»«sSkòH¹*Gè®ÃË%H,iÉè@¡­(<»2äwÛ0åZÒ2ˆÏ$• ³,™„}œ]}}F|æ?ãšîÖyA_u´”Á[¶»ŸT1¼\ˆŒ±Hæb݆§ëÛÓKmŒl#öwËB³\žRóOjÈ«º¿P¥œFšBx!(¤/š¤ëý©)H•“ÄÖÒz3†aÍ«ãQ¶ž$³ZNÔò4]WËëÍ$†¥K%%»‚¡#\cÛõEø鈘âÖbaïϘPií°R£·Îýú»¯r3â³z1Þ!ªwAø×?•Bãâñ¤‹¯°CÕ€'*•ÙB¨Kï>MÚ-hÈfOÞцƒ.YjW¦¬ßµr¡ö P h¯• ã•SÂèðï¼?Õè,3¸¶t Q“­Bƒ(éŠ(¾ÛÒ4LÆ0êÔjœgëéôŠvuMtÀ« ÞÒ:ñH±§T¿œÈA[ÇdŒù9~ô”Ü7’„AÞ$@¤æ¦ö§8žÎ:òMYáYî«ò”STý¦Uû±Úýû±ãñ$‹2õ¯/äŠ(ØŠ)FIåbhL$#ˆ{¢ìæÂçS2dí6Þ8ï”_ö¹Í𻂮zÜðÊGçŸe$ª1…´ò{E7áþ‡ðÙXŽØÑŒ`jÈT§€ëb ÅBëIZàà ¯¼I¥v茔 rØp¥?¼êèLà ' "t,m²xLLµ9Ä®è‡ÍóÒðdßÜ<ýØ=Õ&§Ž.ø<Ÿ2ÖZJr2a2ˆ¦àÇ 7ÞL9TX*»?-\ }œ¼Jé„3 Í›óy ȃè+ x<ÿÄ#ßj¤´Ÿcå½þܵ ¤&‹)å·„|`‚ª•våúÅTBq’#ªÐU¿šÎv³1!!&ï†-RŽg~5‘~O÷E{ÿ¥@îóÅ\›»ÁþþßÔ‚õÇ¿në¯ Âª—M*€dŠGsÊ™ £äêœÎ,œZÌD^ÖP=ÐÈYNN'.§žÑa·†”þpŸiÈÅèlÉrpn5]œN"KˆYÏB¡ˆÆ‚Š‹µØU5³b‰+ÚëC^Ò·àhò¡‚Iè½îâ׌4e Tc·ÓH üòæpÏOYs¢1³¾dÎéo£ çöîiÂçewóÑ]Ò•§VLÉ|ÄÂ$™‘瘩§Üèï%“ˆå¾Tœ³§×4Ç»5AOÛm°{ÔGã ú”LÀ cá Ä‚l°Úü?q´¿[F "Œa‹Sþ_ãÄÕ·7W¿\qíhùJ¯yšGÁ¦@¿ŠãÕ§ÏÁª„A†L=õ¸‰†Áª^}¼úûÂO>-cg¿ä$à5þ_°¯$I&ö59‹Ô¿1A$DFø‡Å­€\/:]L9±Ýæï2éß’äƒù5‰Í t¿ÿ› ìØðu3›4 Þ‚Jþï›'¾Z§/’E§Ý¥NÍ}…‡Ž;ˆ1ÍPÍRrE[×Çá ¢p*b_€y‰€*}Ê“É$ÑÉ<ÑA[Ñ¡¤~¾<>ûp+SéóWkF¡ã ¢õÍ&…ñ³s˜IP•_(XôEYÀßµ6G°¥©|æ7}ß×Ï«WSÀ¥‰§òŽ2ÕuÖíNÓ~f?á±¹ÐGó žå œÀËA’ endstream endobj 5027 0 obj << /Length 3058 /Filter /FlateDecode >> stream xÚYYܸ~÷¯è§l7°­uQ °9lÇ $<³ÉC6À²%ö´O~}ꢤÖh¼vÐ"‹Å"Y¬ã+¶¿{Üù»÷o~ÿðæî]¢v™—%A²{8ï”ï{a”ì´R^f»‡b÷ý§ò|øçÃwïb½` ³ÄÓY‚ˆ)Ô2½ñEöú ³“Åìc¨•géîh †,äýß>¼ëÇ ö÷çCïÛŽ;÷vr{æïZ{þÙ÷ƒ¼´ÍÐÿvcþî¨"/NSý'&j?\,7궰7˃Ú7y5¶gÂù ü½É‡¶ÂÏ~ìç0¡ ³]-­È¯Ç ¤ åµ’uŠ±®Ÿ¹ù ÏdºÒœ*ÛƒH%S;ùÂÞ¤Ùó–ÛG<%KyYó¹lg§¦ù@Š28®xðd«¶yäöÐ>ZY xðpÖ{ô¾Í;q׶znÚº4•sùx*snöתlø02½m,s×æ™)O¤Ífpkó°=¨xÿyóL¦.IœæÒ♞¸Sù…[|‹Ð˜ŽÜäB¡» ¢½©*&—sr°œ6ÛÏræ‚nAF„ã_mÙ Õ³ë+˜™,wzvÂ+ÔlixÞ:ÛS9\D´L<ß;ÐÐ(§ U/.8h“±³c™Ry‡c¨ÔþêÔM.e/wò$+妑lëë8Õ0íÑ6°vUþ—Ž´4'Ôíò( ¥l@ƒ¡ÊVT>» ë ]ZL8›üÌ,¿aúŸÁj†ÁâvC¯²,˜ç8ÍÂm %Y0ñøäóa¸ðù <íÇ.&†a#0(í©Ô±˜î ÒýãX[²Olÿ3±2UYL,¤(sº  ¶!€Å™—¦ñí5—¶ÇI:Ø67ŠŸÃÓ¥$»¯4T“úK;VSO–ir}^»Öû‡‹Ð{Ø{'º¶˜JÃ]':à㘴a¨(³Õ5'©D¿Ìq¤°d ËNCœàÚÛ;¼ïË!Þ?_m‡7Êô¶,˜U¦ÅØå€Âq/ÛÖÑ»Îö׎@6BÚWÏ¡²€E« #²Pð~ñ{ã³I¼µ™¿ÿÇ{ 8F ^ù{4R?’ɘͿÑìÈ Æ l±÷T¼ÆïNXŠ²³9E^ÂH‡Î|nO÷” ±…:<™½à6NÙƒ(ãdþ†Ê$<‡¾‹Àu›\î4›*7[0ÝÆ ôƒi ÓIÏvÝ`¦VV‚ò—Áú î%lDrsí;Sö|¥Úy4f §\]åš:î¶VÒ¥ËGàóYâœ^1‡Z"ŸÈËRå~x)âfÏlI½4žV©_ I=é…µž/ñÃåBOìÆb!@µ4^­vé”é‰ܳå^j¯ëÓBu^¶"VÄŽ¯§à ¡/=…+S´ c“¯÷e8àKî‰ ÝT}ˤþjóòüÌãUÙL ÝD¾ ºwýÐ]PJ‹BÞ Œºà Ss^†¢.tJÞ½g7šÅ)Á@˜W²•­é”›ùšø @ÝäN ¾ ±©ÐyûÙÔûúï¼IЀι9K÷U›“«ûÜ°ÛjNä=£æÆ0"˜!KæUÃÏKw‚kn~DŒ}“ U{³ÑwµñƦ¼ékH¯½4ŒÜ (pd‚ë`|‘Ð{Ùùv2V~ä…s26¯%ãÌÏ^ÉÆ™äXÂpÔ;†Aâù~ºÂ‹©ÚÇvå…1ϦA“Æ6F üN¦&‚¼:åsì Ð7*wƒÍ-@I”ÀAÌ›†?±HŽdplŸì–‘Í&µUB­J'!‡§Ås?ÚãÛ~(k#àhF–>À*0©¯(Ž@„*¨ŽjR‚ƒ‘Ê'æ6y¾p¨ªg&»ísu ÃÌÞ†2+#d)¼xâJ­<£Þˆ“·lª³tU·Kmhu†žaNyºç.oh¾v ômm¹•W7)ŸhŒ¸mªG{ê wÈÀ@Œ9„˜!Ð ºÁ¡ ÓèZfÖtßÙ£å“YÑžT4ˆú›‰¾³u‹±*œ¯Iê¤-êYÕÈqîÚš›N„+&bߣàëŽÐyl!óÆëjU¾|ŠfÂpð¸QpS§Êa¬(Œ¿€±Bß¡©@é{ˆ <¡¢–à–冫¡2uSCM8l®¡µÌÙ´"†K¹’ Fí´ÀÁÂ]4Hs¸í” I¤9ËǼԭøMÝŽdïq: @[T}`ïbÛµˆÀ–IC+1ªÄ!Aj¬\0h‚Fe®ÓÃq |a‰wGºš —ö9ÿg’s3.$²PwŒônH´@¹çª.‘G]qDM¾ÊÐ¥•ó,|—90„ˆÏ*7ëÒàÚ ÖŸ¾˜/Ôé: 2¦‘$D ¯¤÷$!ÁG„„<;òwì¢ÇØ0Lè+‡aÝ«^ú3qE”ì­!}Šœ÷8tÊ• 26²«åÛa«ZÎR/› fg]PúááãOo7’†Ž<­¦\-‹•.1ëÐK¢lžœ)|z +WÎgÕü4rs uvqëŠ+4¤ƒþØ]°ÃUãRÒä¿D4ƒ&¡’+1&-*5ÏuþcËÈ¡Ô+ã0‡„“ 8/ ~Ñîé)™žù+¯ z~¹H÷—–Œƒ†iÿÐrÊGD^Ô ÁµUYÑ{‰>‚Õ÷ÜcÍsK®PªC9Š‹Óˆã€Ã{Ø^ò6l,’»f8ˆ’V¹Hlÿ›pð%, õ ‹Â”¤‰aQ˜.`PÏ+®"eu 6° ¡œó/:d›ž7‘ùôÌßz¬àË÷^¨¦·eäpÅáêLKDe«¬¬$~ò%8À¯c”î`>¾ bª(e|Oúbz>-éðÌãg·pYµ.†O-ÁM_V”.!ë¯ûIÂ*ŘýËdwß¡_'áþP%Xƒ¥²U/^…zž)Éæ¡ÄÜu/cÊ節IÒ sœ¬mœ2cþwb–Ô•[†s^”û²—6à€ìŠžúåý™ßcÒ=XfÉUœÊ¡3À»o¼è} ƵUÅü±ÄÒ_¶ËéðµÁ¤ŸšÂ=¨€æÕ6ô4ù5áƒê:zÇòNà®]Ùäø§N! ×k×B"&¤•r Hä=Æ. Nü3èÅQBùïÙŒ¬µ,˜äϧÙÞq¤n˜f¹8.º#b@ò`*œ&1P“?Yphú“e yÚi¢ˆÊ‡QŠ>赧Þvl²ÂjŸatnÃX"O$Û§&!üƒ¬ØàB€ï†"SY¾Nûw)x¥ø´ØmM*$ÃËèâlÈñ uÇM韜±nD"]Ñ<½¼!òwåç9bSÕ‡´³PRsÆåй½0tëáÉòUi§{=‡ÏÞrí®VÃIðé‹ðb¹ ÃÓ– Ñcòß×õe2½Þ ‚^ÀE/šÐ"hø5˜fÞü,‰±&Õ®ƒ–ûŒR¡¥|ß®’K¼T¯ 2xØÄΠ6Õî1Õ¯À[•jÏŸŸcaÇÛïO©?=y "Ð-Qd¡$IáwèVœ^.¡ã܇ŸD%«hmîÂ×kùG›$üSÕýå³^“IÏuÈæ#Žï/q|z|BÛY6›(Éeà{ë ä9@eãò2øÎáÂÉ'¡òv1m@f9@?„.²;š°ÚÙÖÛ«“£²dÎðüGH2 üèA 1íS)Wž&ÃЛóaù~Ã2å¥ú•—IZ¶)æ%¨Q˜Aör»ññz­J·ë_ÛY’y:š ’D~ËÞ¾—j,¿‚ÿ„‘]+WBB‹ƒ·)£¦îJÀÂÖ¹3µoî x¢ƒ@qê_;Gàé`Š)Ô†)"•ô Ùž?ß8RÝdŽìP”¶€ÈÛ‡7ÿ¡ÀPx endstream endobj 5038 0 obj << /Length 2562 /Filter /FlateDecode >> stream xÚËŽã¸ñ>_aì%20f‹¤žrH€ÝÉ!6ÝC6Y¦ÛJô0DizúïSÅ"©‡åNwÕŠYï—ÃÝÓ.Üýôé/Ÿ¾Äé.gy"’ÝãyÇÃÉ(Ù¥œ³Dæ»ÇÓî_ÌÂý¿ÿúð%á³­lMÒ2›¾UgÜô)´g¯>È4fQí"¤¤ž«áRµûƒa0\<z¥/ãy/âà÷0”êD˧b(ú=ŒÃ²WÅPµOöÓ=Ì×—]\»öä—·lº“ªéƦúê;œËÙþâñRiÚõ¼çaP¼ì“8ø ™gƒ)È-pzIåqLü ]ÿP^Š¾(Õï" ƒoxoÑWűVšPE¯¸öÝUõõ ½Ý’i6·8©¾ÂÅo{n®iì©(ÅžØg|Í‚ª…5 £êZmPipíê—¶kª¢ÌõúZW­Ò(ø v„ÆV¨åà^Z=ô#°xb(¿ÐŠ ×ÜÓ(ø¬kÕž Åxæ¸.Ê óDŒ§‚(ø;ÚB”Y[ˆÒ ¨'Ü$*HE¦fVí¶ÌëA£KZ'åiZ8UÈ —ôxn-à}Ýt¯±t)g¶ ÒgÈœ¥Ãešv-,\H&3¿©è÷< žF`}°TÃá–=üö2ŒXß/ôPvõØÀV‘„AwF±åV €pü!l¤ ω5ܺ¶#TR4))÷ŸµÝ@ÀLIh*‰tÕ–öÂáâö;ÕÑ)eÑâvT”e7¶æì(8wè‰CFÃ}!lÕ‚^í‘p]C½TWMŽjxVª¥—µÁ'•]²r‘Î7‰(ZxE’"ösï›~ nuÇ A§Ñ¹iV¥uô²¦6vN €¾tcma?Gï+7W_,%ƒVõ™‚Ô¦ë ÂdžX¯àTŸVÇ=„±Ñp ØÔÐŒ«=P@?á©¿~ýB˜ì '°ðŠvaOÁ 5-vÒU3‚þŒíDRN÷cxëzws‚7oE÷9ùI¯•v>^ ´b¢‘ñݦ¨k`½]EÐë;^è­;jÕû ‰W,Ï/¥ • àבÂ\Êàë,ìl02gwn:eÝi«áÁšÿì­ªu¡¹J‡7¼bX™àÄŸ±ÁˆYò7™¤áoN™Â¯¾½jÔ¦M=‰†qð¤ZpŒ°!ª‚Cu­íš1—ú…²mè̬bIý°0…\52^l/e7jÂXÕ‡ÉêŽ8ø¹ëÛ?ìcøhS€Á@0Htù¢~Ñ”š(ž'±Ís˜ÒMŒ’à1 =¿jÍE¸B2‡•vlŽ&¥Kò Ä¡yt-D1{ðƒ= ¨4í3Z‡…ÿâ‚RWš†ôÑ«•*yƒ#éíÓE.ÊN5³Ù)™×_"f"ä¦üJ!o™cÝç‚Ìb^¹Ý©àx4匇–¦?·Îþþ£Öñ°¬ ­72i Æ —#€š‘õMñÃF6"–Iîvú:CÝÞ錹 G AÏ×)Cát9÷ŸsW×zij_›TùÇU» ”’±<“ Æe‚¿©ôMøÄ3a—sK&B&ÃÓ¸{pM0VÈÙúxéÞv—É/øµÜ®éÎ8¢N§ ýÒx4¼W-z¤‰Í¢¶1>Ì^•‹åñÀS9±èwÉ…"²É¦‰ÿ…úü¿Ÿ¬óòÛéò׺ÃX‹riZ”•wK:ÙÓص.D?c˜¿õÇ, #~þ§Ç_þùã–?ä,ãÒmõUÀ]ÎE&XœçKÖ!"¿[!¾˜ÚVÆ,{ÿŸÔ£ß!fê-á’{r‘ —˜¿].R&, ³¥\0s¿O0 _Zjâ<‹g[“òYE  aâ#<çRƒ2J¸ËùQ†_¸š‡. :–OWaM°é½,Þ£-ž@ë“'oÕÖ{Œ8dB¬”Å{»®(æ™ô0‹y¦ö©öfúab™j 4æ!þ·;vš°ˆ{ëû¾ÁqÊ’Ðoðý¨é‡èQw¥‰¯]õº—‘S¦3Ô‰€U@TI!¨™@„­]éÍwaÇŽ¬TN“£`º„ZSèL¹XõEæ›úCKlÄoƒ¡7DÒ·‘sØ빤ÉÛ€+èÕæíÈ;àœŽ¶$~<‹Ð.[=¹`RNŽK¬ÝX/KóiO}½lž±<ô&n9|Æ&Ö’J}1o‰öLÚ>ŒIF+×Ü lGo*R&…O󂨰¾{Rº„öÏ^Žú>kêqÄ ]úY‚c;:Ö¦¶. ,ž€  KØê¬_-Ö' ÁïLT8d§(÷|šo·„žB¹é…~Û’*gð¸Ï¨å†[ˆ¨éFCÄ’~÷¤[†,¶hŸ37‹I¬`[?œƒ0R3'kˆàDz]ñˆÀ_nb„È4ò Ð )`æò×¢Y’2‘nJ€g÷‚R(w~&ölfÓ\¦ _:{åM“¨ŽÊÊ“n$W]ZÝ ¾nXVo—jÌBéŃ'¾&LˆßæF·]‹b±l—þÖ ꔾš~1žšIß%EM+xƒž02I,»žR5|Ò«4Á…‰+°ñ ï•o1]«ŒÐ3…$lf¡ú¸º“Ï}×lQZ—Åê[S’±dÙ_±¥ƒÛºì[iFRŒ)1ÁüÇŒ$³$øÚÊ?* ­Ì´š[ÏœŸ™Ü«fÅ7 ÓIN‰ì‘•¿ÄîwÒOÒ7BñTbo¸5ôƒšF —î4 Nf1ô7õÊÙ9+ÉÆ‚… ÿˆ“J§C9YâZ¥NÚ.w´zTôÞ«‰QiŒ.q¬(ÍȃÆ{Œû4¦ 4Áe†¡=´j°D:ÄIr¿Ae¶3Š±¢hŽUkˆu¡a{”0 z¥4%õ½+a*æbŒ¹›Èûñâæ£@xuRµÃ;Dí”ðCåþD°ƒZ{ª@”Ý`šl<‰&H& ò(3Z]¦3^7ãI±š‰ ?ån&*få¾R\á…À,sÄàx?ã@…ÄÓ{TÓÌp4²]G)XšFoÐs$™ˆ}Ľ£Éƒ„Š;\e‡7( À©™0NÉS+‡‚*}Ó·@¢¤9çUµzö†J_UY¹½n@C±€Ó¸¦3Üx½ÐÕ€Üý åz$nÁùà4r*Úåø_Û¡þ×øJTyêšËÝœ2ŸRKîæþÙS>í™wŸùzŽoo¸äþüsUÛ³îºJc€³ŠÀÄ¿´J¬á µîu) mÿ×B©‹G6â#ÐÓÓz˜Å:Ö¼í9Ä?²ìvü+-èè¾?0óXx®r…ùÆî¸ÜÞi![ùÿÇÇOÿEÉ8 endstream endobj 5051 0 obj << /Length 2643 /Filter /FlateDecode >> stream xÚksÛ¸ñ{~…ç2ÓRsD<øÊ\:urIš\r—±Ó»é4ý@K„„"U‚²â|èoï.¤H™Ö9Ïàb±À¾w¡ðluž½zôìãÙ˘Ÿe,‹E|öayÆÃIŸ%œ³XfggÿnÌròŸof/£¤‡*³˜%Y„’L9"= =í³©LR‡0 l’„–/]O¦2TA³Ö4©µ]ï–ÃPšrÅ&S•ÈàuÙ"‹³(˜çVŸÃ”'ín€U5˜ð`[•‹É”æ劭ÙìŠ¼Ñ ¢ô1ŒÂWðÿþú%AnðؼØi\²¸Dð½) š]ûs¬nüu*’†”}ixf½4^—c";ˆÄ›EáâÉ90(¢¸Êš™¢iÒÝ”>«%}–üSm-ÌÆx²íA{¿”o·u•Ï×ôµÕõRÏ=*H®1óª(L©óÚ4·x C¶€Ë)XƉßPOR ¸–¾ö¦Y{8Úš¾@_Ú¢#Te Ì=¦¾õ“ GØ­vÚCP_yê»-×}¡>‚Õ„Ô§·Å°©ƒ¦`d¢q(-+=eà±B% ím^ƒáàWì'$^ÆÍ1@nsm­ã¿½êÛ´ ¼ëÎ;2žfàoª5<³(tñô[VûFL(IO⿪Çh†,vîôú¬õ] ¦¢Ý•ƒ+Ý¥ ö ×…}‘•óíÎŽ)awÒ'lµÑ4ë4~y=ái°rá¾Až%ÍÀè¦Q$ƒ÷¨`Ï­xxus°@R‘¥Ïu´…s¢©}‚?–žÕ«hzùêÑ·"á,J“cA¢ÜËJ2®²ÃŽùç|åV„—™:ƒ›J%X¦øPˆŽgßvE2w7îõû«ßžÿ2/vÃ쉛¦‚AÄ>R÷Ãå ã¸'–·DŠÛ“rIXÄ;ãZîÊycªÒÇûµ.GŒ-V,äÙ7y†êù…#½³Þí(Έ»vâœÊhV²4CeÞÑŽ’ïðKλ]ía=o\2ué ,n}d÷±Ê¶ 4þ³4_foM¹û2Í ãݤ‹èpjÜg‹+Å8Ø>H‘©,¥Ã/&@g׬«ú,û²¹GF<z)‹=•?&)ܪXºHí¬¨þ>‰!oéùº¹Îw-Oxʈ³L·3¦Ÿö7×ßè&_VõâÁ'È_¬ªW&h Z~ë9Ýž%Î$Ð2üô®e(–¼eÝ4[ûd6Ûï÷¬="TôŽ?e4<rÓ¾W 2KXÊ£¡.õR»@©K}ß!ÿgº°”+o'qœ“¬f4^0ø1vkÿõ¢ÿ…§D 4o.Y‹xÐÏÒ°Ç\õ/ZŒ².Š\ê‰ ƒU=‘I€½µÚ…ÉÑRWeeÁGƲLÆ™8i†Åaüª1·ì‰Æ¿&œ<â -þG™ž¨¦™Š4fi*¥ÍKDª¾“JÄÁæ& JAfç#Òˆ2Fé)u¢1µ©-öm^ø½ŠV3Òj4¦Õ´z0«­BGšÌž½ …H3¥Fë,#êõªñ!¥X7Xƒ…©sQ‘Å2ø¹T‰W³Rið|àˆD*†I¡s§c˜Úÿîrì<á#ÖuÔ‰büuâ8b*ìR×ÐâÕÜ`T+n$˜wtJ]N£NŽb„ÄÀ=Ó^I(˜Øy^ªØhÕ¯2h:Ô0|Œ©Jp5³võJr©d6raëèòHŽñU¦.R‹ÌÅðH‡ÑXÈ#½ ’šî}>Ûá$§¡ÖP#4„TöPc?ã,êi U6m} Eö¢ôÄ  %¹ÀèôpÜ:æØ Ú.ñ )&ø0îå Åç ÐnMPºÁk³%z>Žzkzcª¢Z™9m´Í¨Œ'†8c‘HîØ”í‚wzaæ »ñÈ®2qʶb'sþÀC².êxéç(ÿp‘H }F†)ÎOG1³fÃT’†r|(Ç¢ƒ§Ó·ºãjêÌáaÖ™¤È<#h€°ò¼*»¹^H’«?o5®ç„]Nà°tIƒJÍ~*@}8ÕáX•¦ã9èTK/]w:»_UËfŸSuO÷fNï2~ˆÈ~@]«tLÓÐóCTÓtËdöÉZvʘ™qECÄaÊYÙŸiZ@;Nšv‚ªZ¼ý(c¹Õ_§íÄãºÊÆ ?’eˆ64I®‚·ˆ©S]hîÍÉÒœ Læžd)ñÐ\j«Ik”Ò[•;œ¡ÆoK01Û¾¾ÓШ-ìx.IýÏ%Ùqy¦E_ÓqOÓq– ®þÝ _Ì>ÕvÃx‹Ñæ4Eõ¦WÚ7Å…­F»¢‡½m {¥z“³]iN5s`t‡öãüáo °-ê*6> stream xÚÅËrÛ6ðî¯à$‡&‘&HQ3奻ӚÚC)Œ!@@9Ê¡ß^€(J¢d%uZ,.ö}ï"š ~¸ùnys{ŸÍƒ<ÊgÉ,XÖˆã(΂9Ñ,̓eüþ&]$oÿ\þt{?Ò©&Í3-¨#Ú’ÚÝÄNöí}š M=›êP éÈÃd®Óžé8‹–“·aÇo$Yˇ_î<ˆqU€$j*`ÄkÑa¢,¬€×¯-á«Œ Ÿ¹²°hÙ Ëܳ8ž;â-2„-DXM¡"œY°†Hq!-ÐJÂû©VŽ^àKEÖ¸ÙÑÊ_â(Ïò3& ìØqgùyKÚrÅŸ¼ ÐYðë÷NC(œZÌ»ÂØÓbm^eárçä H{kx}dÕFàŠXËGŒh-Ñ·á^”ãsJ*î0 ² ŠŠ|ŸuvÏáb ÛvÄymë?Ö¼r¤…ýùÛ…ÊS̵ê\Ú¾àžGÔ:éJˆDZÚ|ˆ1ʃ$‹²ôÈE†xƒ…<#f ›qÌ+c*pöUPÁBÿëó"»í_gU_ uK© ,uT‡ÁY\wÙdÀÿÜí/öwÑ:è „ëOÕ§ÇY9RHˆr‰³ÚǦlÓth!¥;bäPˆ3I*,Nœ™é¸n©"ˆS]”X7$å„A§ò6”¸ïþJ_ܾõé†ÚÒ+[SåÛ‰/:}­QÁäùô*&lº²™ e+pñê·ï?<¼ò¹B ák—‘‚‘syþâÁvrãv|R|{´T¢EêR Žèv±Õ?;‹Z‰¯ ÜA&BéîÓ)¯?:éë]‚¦¡Å'èû3F⋆ø‰È‘ó åÆå±Á;Yô©*ºÜJ&É @¥ÀðQÿep`’LÊ]Gq ²ÕGªC–Dñ ^b±¸ªÛÔ\8¬³„£.ºá`xêÌÅt¬ãþOÉo4YdX€ÃÀ Tþj%Ž]üù…ö_OÓûLÝbåÆ·=ùè¾LØýa•ŸBk¿á¬êW2i’§‡üŽ*¿´?ô’Bm¸¯¨RC 7B¤@{\¥¡=·(*QólC«‰Sɬ3¡À6OöÍÌ&úñæìx7´ ±COW>Ø׈<(&µÒ+HHñÖKµ™öu戞äÞß.¯;åNvz„_—W°ëß#û¦â—6¢3hK*½øÄÂuMÁLÉ«ž#Wmm^a¦÷ª‡MuµâGz›¹Ô=-ç`ðXL’ifþeù¥8xNN£é"õÖýcb¢ée1Ý—'äL˜ÌôôH²g|U*U¤ïû¹Ö¿}ýïÝòæa2ú~ endstream endobj 5064 0 obj << /Length 1499 /Filter /FlateDecode >> stream xÚÕXYoÛF~ׯ d¦kÃ=È%ø¡‡] -Ú(ÍC ´´’Xˆ¤Âêûë;³»¼dÊ‘S£I_´ËåÌpvæ›Kž³v<ç§É÷óÉË›€:‰8ó•C=p8’RðÈ™/÷î^%ëMU’"/>Î_¿¼ñe…G‘Q519M<û—7œ;!P©g\†š|Æá1Ãtvvv1ó=Ï]Ä™ÙÄÛ27»r§ÉêÞÛ³ªH²µÙW–n]¨Ù­òU€ÏϨG"ß^ã.Y}ð|¯P奡»­ª«i¼Ýæ‹)¼  £$¢òËÛ&eÕ)aôÛ(c5I{v %<ò«’©!o@×1)œˆGeè]Cë:U™UmgKóP—ªÓÖÜ.Iëm\%ysïÝ®ÈãŦµÔŒ†!a‘¹±×ϹýLQg¯NöšOÙ%%.}üÖe«ÎÕü··×Í£RË+ʸxà¸p¨Çu¶D}u–Éõ|òiBÓsh‹|Pá,ÒÉûž³„— |:{Mš:‚C tÍÖy3ùµ…úáªÃ ÜÑ /°@ ¨ã p®£áÕ‹œÀð2…´qæyº«+pó=÷ÝEÄ\#Æhôáæü‚ù.H>7¿Üþ©@tüúœ˜zÂõõ5ý`$‹€ÁÒÆøª\ÉN#ªÍ´ŽœÑˆÐÀpßÔÙYñ~Ò=®‹Ö Òb7ûÖð°NÐwÔwUÖç¦C~[ªÂ,͉Z!× ŒežËäoejÓâZWðùætY›”4P$Í—jÛ¢àéÛë|ðªÈ¢¼“¥/‹)é¡PíЇúÝ}^?b)úàœq&IÄ%ä Ùå‹·e¼V£¸|ˆÓ¡†8mòÎnÖTU›|yPz•ƒêKñ%}˜ÐX×z|D‡Ñc‚fÔ‡Äè—6r0e(Ú|[ÝïÔÕt™Äë<‹·S{Jéç_-ÈÿJvH7#‚ ! 7 Pˆ¡òÿ_+`¨ÁaGàvðøsâk…Åz›¦ÿ!¾©¸û"à0ÙbzìçÙïŠ 5Y÷¡å£ùöXž¥FQë a”€…Ú¢‡ý;š k÷+³+°´ÏÑsÕWßãÏT_%^_=æšÙèи‚Ý0ò„ò:c`¾9¶;hG q=°@‡CX%¶³É°Ç ì^U=ú Iw[…àÐØ—·FRêF»#L Ÿ7y8½ö{Š&àVÄŒ1(Nâbñ¢Rp-²v”å!Õ}©>k&K<ÜoÀª µ¡ n¡ªºÈÌYžmïí[t¾nÔ¬¬xóšÙèKZi êüT‚jߌ˜ɺV¬ÍÇ,+Rãd”Œ.ÅÕ($`tɪƒk­~šæ`$œv°aù<|Q!€° ÷{ÿÑÐ`!‘ôÔÈÄ- âŠÉ¡…«Mú/Ýòê¿pw«Æ²(wäû²Ç1ƒ¡«Uµ›?ŠG™ý Ø̉Mîç]¶Ä ^±P»jfP…gzˆ)±‹ €ðal@i8=4rtm€CØÔ‰Ñ6>šÕTûµßqŽ·µzÒ„i+Êub?/þƒ Œ„ÂÅrAíÔÇÝ=P™—vÊc½hÃ'eòWiÈu¢ê7ØÆ}ƒmMXê˜8ʸåRºï6*‹ãÎ{FlzZÂSOKmmKdòŠZ^vÌ÷T‡#µŽY_t Ò.HYÚãzg_[ðSÏ{Ñ¢L_¨‡#}ÑçÒ& ´ÂÃ6cÀ¾Í°ÇXCÚB}ªUYé‹q?²QˆoÌ*5ؘìñ'¾oÎÌÒ˦ÀЯã7mqB oáðXq:ðÕ¿ÜÙ©Å3Îíb¼`6ëõ|òI` endstream endobj 4974 0 obj << /Type /ObjStm /N 100 /First 974 /Length 1957 /Filter /FlateDecode >> stream xÚíY[s[Ç ~ׯØÇä¡{Àb/MfgÔfšN<–;ÓÖãV¦5É¡(;ù÷ý°$%Q­Ã‹I„馓¥=@D÷j6¹8ÎÝ[×½úáÌuo†¿ÍÝ­ô7¿O‡˜|žt/¡i8ž_[à{ÿ¤{=¼žÜÌ.†×‹dÐÆþ>|9ø~ò›{0€M‡¡ø fxŒ0Dc|1O íí"SžjÃI÷ýdö~8kÒ»î¯ÝÝK<£wàÐ%²gˆBñÊ-5xÂ~UsßùÍæÙýt9þµ{qzÚ4t/.æ—“qwÞýãõö÷Í/óùôúÏ]÷ùóg5œ>LfšÎ&ÿ…?™}üð–{”ûíÑ3…иWŸ`¸çàÖ\=’NOæÑð™žÜD^c_ÙQÅ[ õãRjßEâèð™úÊ&ø‰Â/¶ÐZ̬EÓZ! ¤¼zP[_Ø ­î Ik ‘Š2’ø’ËYš\N Û,UîŒU6ƒ±ÒþÁXàÚ ¾$ÊŠ¨K¢†/ì2Ø\‹¶Çã—ÚÃ*~‰²·"¨·“4zÔW@ÊÛ‹¶Aç®ûËäÍÄaƒ¿yýaìgW3¾üÖÝ…å84{w@Jõ¹®«_Žˆ£²·i…ƒE|…ÏôÁ1Î'ÇCÂ’|3Ý"Ɉ7œê}|]]IEnG¹B"Ûû9ÉÕ§û8Zz¨¼Cê¾Ï|›Œ«ú$Ô—[ÊÜZÜ=™Q#eÓg$íï3–>#tÔ%{°+gì¡eä˜á;xFZË­<{|¯×þý`>ðfƒ«¡ÿtùáa9{)(¾2rº]PdY(Œñ/ÁšŽ&óÇÐ4G’¼CF“Gï2Ž|éÉÍZ=:^þÛÛ•6}1Ö|‘W¾¸Jd²:âE—D\MÅÕT¼J+"¯ˆrLŸŽØ&Šh±ÑrdûºƒþÎ>þ$´I·ÉÓÁl0 GGtcDS"«Ëª?±;ÞjdæT·W(Wƒ_‡¯Î~ù·‹ÑÍõ|8;âmµš *¾”ò$"˜æ§Át:úýxP"B›m—–P”гÛ.=eœ‹Ñ—‘ìГªÝßµ¤9 E­¼–tyÏØÎ÷oï% w§øuïCŽw@*˾ôõrä[5*>ÚwÔ%F­)è¯ú Y/1Ž³3 e_‘aØjî,p°¸ó1uè¥':Òr‡F{5tO yò,oGܪlêuzÞg¾==‘kb,}¹cñœ{2 ‹¯½E›³ØµôaŸS¶_ç£׺ydkÞíÈ^³CùÃ~–Uìæbï¿Ø$;¸ê}æ»›1”$Ïà _ÕTÿϽVX3ÎüÒ“Û>̦Ôw/íŒ} ìÇm÷t¤÷Šöÿ&Ï«á endstream endobj 5083 0 obj << /Length 1836 /Filter /FlateDecode >> stream xÚ•XÝoÛ6Ï_a¤Ø c#’ú,ša]Ñî0$ÁöÐîA–h[-"•4{Øß¾;e[Žš¥/ÖñëŽw÷»:š­fÑ짳oÎ.Þ'Ù¬`E*ÒÙÍrÆ£ˆÉ8eœ³T³›zö!y<ÿûæ׋÷)?Ú*SÁ²4FnÓ½jVkkX·-qóYäeœe»c¡È`RÒá÷sžº#)R_(eI´rÜÙöîœ6ŽË‚å 6¾œ‡¢à]+ rÛõ•í;?ÔKúúuáoO“ÛÒvÍg¢kµSmmü©vt vêZmˆüEÂZU»Q5L±Ókte[ë-Ñj¢³0I™LòY&/’„î¿T•E©" š¶ÚôµãÌ‹Ð4ñân.’ ìš²­TXi´äñmÚë,œòÇL¹ÝmšvE#Õuº3sŽJpšZÌ᧷þ>þ^ziUK·ºó¬* ¬Þá³S.«E·O¢ Õ–ˆO½ñTÝ”+Ý–¶?˜°"ã#q ±ª«ÔΆºÝ«p7"éjà}ÙÍe¨©À†ÌûÄ#ÿËt‚Gᚤ£ä#Ñt/I>ÿ(DçlÍPÚx$N¡UëQtÁ#ÆóTfŸŒaw‘LYÉ é!‡dƒþÇÅxÚÓ2Iž–‰÷´àÞÓI¿S’—2ªµªnÉå°×ù¾äzHöX<$˜EÜñ_ü®·^ÂÏŒx]WëmSû+Ü̳x¸Âµm>µªõ+ßÒî_ü⛪C­ëÊ ¥‰wµadïÇP‚hËyΊ'™û·¾mžJ}€Ò<;É¿Ï‘yû®O\?%FÀã<¾RŽ8–³SV?©Ð£× ”m잟-RD€ê|¤ÛÝ“9;¨F5>‚bß·šukhˆ½"~Ýk‘Vø®ÙïŽùÎÉ¡³NQ¢w›|+G nš2x^Ž‚‘Ú;€ÓÂʶƒ&WÕìù¶?&šv¹é±Ì±g +ÏÏöáòU€–=?´™c©Oû"‡ä]ˆ±3°³‚rçÉÁªþÝÔj,KÓí–ˆb&b1ŽÔwŸñÍ÷…Bÿ¸ðƒ^9pLã}xfžþñþâÅ lSàñWnª~SbÅáF¯ˆèsë)( ÚíÞ‚î˜î [í  pÐÀ©Ã‹Gwþ)kö±íÿœ¨KK»^‡ôUï©t«JOþËó««ó—^hsiwÚøÑF­ZùQÕ\V‡µF‡5R^Â[T«¡AÅ›€+ÏOì°lü•¶ÍgU‡jé_óÉ!¤6ÆÝjaô¦ßÛ ŒdáÅb¦]¿Ø@ëa]£ ZÚsÄLŒÏ÷ KuÊŒ-@D3=4^É»>~ë%}þýÝá'&ú_ó(Š`¸îÄ0`?»wþþÁ—DT“¯þ7Ç‚Žõô'p/¨üè:Ù³®3¼ÄÝÕèÏ“)“ê¾­QÐX¦·=ýèô¹oÛp>þâçÝÍÙ»žþ@ endstream endobj 5161 0 obj << /Length 1260 /Filter /FlateDecode >> stream xÚåZ;“Û6îïW°tfr0ˆA¶™‰=I™Q礀DPG‡/“ ìüû@$Î'J ¨UÊs…T@»v¿}âptŒpôñ _}þ²{zÿ'aH¤"ŽvEcŒ(K¢„$H0íòèӻߚ\}ûé¯ÝïßùþCÌ¢ eæØùW8zæÅñ|üOŒéùô$ûí@Lst:#»ªÕó!J/Å1΢góIhbÏæy×VÿX‘ââ4e(M²W™?[ˆæ¥QF:ýããSôé™pü.»ºÅB÷³çRŽrUȱÒÂX0ÄØ b7càK ]¯òò Q_KŽŒ¡„qâbå9­áFÀ ôŒA0«¦HîçV.µ<ªæNv©á «ƒã6$Cišn“Æ^{Zy ÏökºÊpÐM˜ŸÚVàâæCY•ÔjÍ›‚2êÅ`.0œB€&ÂË%fb›>B¦ö0ÖªÑR—í&¥¬Wër8<×m®ª!H”?±¬ÀÅÕ&mw=„ðm,°o' ½:¸Xw¤Äëßħpÿ¾ Ñ^ŽŸ¥‘*ˆ§Š¢íÕDyŒÓûµ'—Ú‘‰…±ZÉÂPÇ þœeºp¬WãÄüˆ‚¬±Q­@ ·˜1_LAüv°—l›FUAØ@˜ •ÜïUˆ¬s.[Uõ²ÿñê _ý¬Ûpfô~ò ÇvxYqΆ‚ûAÌoMQ6Åd 46¥HjšÈ”ç3r²otª¯GmÃrÉ8ˆ§`?E^%Þâq;†Jq~?9fyNíg AUS#â4†1%U-Ì7Œ1K¼¥ê©,Bu™ p'ÒõmQV*ÔØB(7d_¾4m_‡*„J†EÐ˼”AJa>é¨ãJÚñ„So+è2ÿ]­ þÞ`ݶ‚WÆ,†ÆR¦\1PkOýám.T¿¸æ¥ó7PÏÁüýü,oéAÙü­Ý-(8«1Íj†?kÊÁü¹*ûן×îOSĨˆ˜©Ï,œv?†éÆéF÷çjBŒ%B°2î $×>ìž@ªeSv[dYµ¯LV:ÉJp;î«¡«Ê ¤¢¼Z<´6õ D@mD³#žŒò"ßHåéCÊMW¢ƒCNÁãÓ (OªëM OÁ=É᫬òÛ‘Ä߸–_yÑ·c“‡àþÆnÈÅ}U×]¯º ÚÅýÚßv)&î´ê‡ óûF컚±ºh;½6Aƒ7·'hq]K»ª.‡a-öcP1åÛѵÄÑ-ªÚæ$ín%‡÷z-÷• q}ÊãG®ÿµÌUëoìO\¡§M#7AZž€KîIÈJÍ_þ&ï„™j¥_Ú|¸³™vA!"ù@>o€\ ùJ@/ÌO#+p¹†Sò¤âvÔA¶û\€ ˜Ébmorx˜,¶A¥ËÎT*‡Ãåùb#Ï‹‡µÍè”Ç£™Ïœ«ï¼ðw ~¶M{’k˨aI Ž•}5v!%à> stream xÚí\[oÛ6~ϯðc, ï—ÇekŠÃ 0 Å’­òe–ì¶ÿ~´­8¦LQ¢D©ÁZô!AàžÏù¾CÒp2ŸÀÉ›«Ûû«›;&& (Žùä~6ABùD 8Q“ûxòî‘ü»¿î¾¹ãèì£DB ˜Ò‚zûëO¯ÿÜì –Òoî9ûü5áHý§k,ôÉñ¿ÍÒ¢Hb°YDG†5T‰È“†ïKéú“Í^Éñ×ßß\MÞ]c_!(œ&”¯µwJk:Z°Ú,¶YTc£@(êcÁNJGäQlºœeÛd9MöF€ÅÎb‡P@@äc•N;JF(L;¶ËÔbˆ¤€KìcCNCJ†!‹¨Ø$s‹v¬PJíܽ¥@c9i>½^¬â$˃d„@í3â){í`†ôSMfúg„dí3¢ Å:Jµö¢žP ¹òRÏÝåá(ÐÃ:Ñ{³Hr›Tžx%¢tïˆR iÀ&‰Óij’ë Ÿ„ÄP9­(š«PZ¨Da䟛h™Ìl’¹rêÎÂR áÿ&ÉÓxeyM¸6XÿÁÃîN…R ]çÙbaÛ ºˆ0õÂ]”ŽòÌìÃcˆŠˆ¥GE<óÝÚ–:h´¯“b òÂ.‘··BïH õ.ybÑ|øÍG1&NÅGy†Ûy’šPˆ cÖ:è¥×ºï-fiD;'¾Ú·ë8*’P ”pÞ”–ÑßMW»ýÞþ ïèïR[©Gº2Sê¥Ù½×K†ã“tþXä¡Z‘ÕÅGÔÀ½©00¡ÝVæ¦î!oIé^”ïnLŒ 6–¥SRÓÙ¾ôÞµÂ:Ù¾=œ|œÏ5‰Š¤Œp.£j=P’ÄjTÏžu’f<³i¬Âѵ¼Nóð-!€3U³õ„Ôÿ(M´Æ@OfüðöÇ^35'ôa®”W‡Óö¾m²z§ÃwY,GÀ XÐe $Ç‹4•y ý¨â5Énâ6MdkQgN@v–y¹EØalB£bØ0S @á W‚a$À@êãñt•Ìòö ’vš4`5D4_'•¢º¹Ö‹þÅf H/ÉJxRŠ¤³zìÉ–èÑEË°›µ§Î MÈÚoe*œ…Yç/îk ¡¤aÆnÃ4gUÀŒ5 T PšG8¦™fTô°û Œ:‘©ÅÛ`ãAÔú@á¤?qTD`¶‰I¯©s_Ð.eÁ Ã4…‹{•áA.%ƒ«Ã{Ø°15ˆ' BTÊ,‚c ­F¿a:ûpb a—y»D hSwYV­|Ûyõ»ìî¯í®ea (.3ò!Úþc½õà#Nô…ë_1ƒÚbÖI†fR^íÏ··«u‘.zN8a©cÀR9 ¡Òâ¾I£ôâÊÜàa I´yÜëâky‹»Ï¬’XŽî¾¼^ÌÈ µ->¶Ì½ýz&^·_åÄë!‹Ó(È“$¬‚5|‚¼‚²|¥Å`]’À&‚ãuq¶wð)=ùãõßù``±¡œ_áNíÚÖ@Œ¥lu¾oâðç k—é‚ÃMÿjiXÛy a0I»Ls1#Dm ÊWžï0“7uȲU™»`õðùßh°}9$:Ç>è<÷y è¼|Bpà¼ü¹S÷ªc.¯ Ò7œ3+>Æý*…ºTV…Ǩ¬ø×øò\#\I}Þæñ‹Þ³ˆû¿0¸ýôÅxnèi¸ .‚øÒÕ†§-Þ·xHûg Oèù‚¬\Þ_cለmq° Õ먓^ÏSnW•/Íq> stream xÚ½[]\· }ß_¡Çä¡š+RŸ…ÀI6@ ¶ ´5ŒÀµÇö6öÎb½Ž“ßCÝ9³Þ4«Ùš>Ø£™{/ÅKñu6-YÜâÒRűANÁ Dü§6H.gûR²+­Ù ¸¦ý—êÂR‚š=ŸLÒ₦p†Qt!¶þ[r!Å>Oƨöߊ YíÙ )21 .Á¤!CJÕþDs’²Ý×'¹õQpR%bŽ&NZ2yM¡8DaJ0E1¹Be§±ÏÛŠÓl¶V–õjsZíjX{6,ÁÅ–3ŒÄEÁË`¤.ÆPm]LIl”\Ìë³Ùź>[^|±‘)´>‹ ÒŸ ¸Ðµ ÿA+Ì *÷g^¿$³AÀcfÂK°H"» SÚ¨¸,ëÕêr\¯6—“YÃÖ2çjòp!WÁz—ÛzU]YÖ«Ñé—äŠ&“'Xçh– R\É]²TWJŸWš+«VXžº˜Ó,c I1‡Š«Ò­¡êêj+¸JMý}5¹ºÚJ³««­´¸Úº%µºf‚Qs­¯`€Ó4íWcp-ÖŒ9¢¸–û¼Q]+ëÕèÚº‚¾¶¬KálKX¯ÃÛé£9m\Ÿ‡×.ë2bµ°€}¥ *Ö-L…KX¸¾’X¬\5SÁX°`Â`N¬X´Ùfƒð. ³…l«OÅJaʨö|iýyL ï† UíΦ¶<©pšY,ã^-æþȃa !c.më ˜+†õHˆ²Þ Q›­MÆ1¼BÁ›ÅœÍ6€*,ÑÚÙƒg›ïv×îÁ·ù®£+!<Âèaõ ”ŽIö_ðt…«¬_ /^Á«Gɾ|õÕÙ懫݋ÇÛk÷Ôm~øö;·y²ýåÚ=;Ã%›÷ɯ—[\xþz{¶ù:l/®ßHºä³Í£íû݇«Û÷k<è¿ýuûòüù×»_ÜS›$,¥É3Lôü OãF8e¿ñáÅÅÒž®Ìôél?Hd •ƒ¶Ôõu~£u—¶ùzwõr{Õ•Yžmþ¼ù~ó ¾À¸ÏLÿxsÑê-Îå%úŠp ©x‹lp _‚Ý÷øÿ®!só—ó‹Ÿ6<è3l¾¸>ß]loþöè{û÷Å›ëëË÷Ül>~üèßm¯Ÿ¿Ú]ýáòj÷oÌâwW¯7/w?}ð—o.7×ç¸ïãöüõ›ë÷?ž_üxõî¹÷óïv/·o߉·ø¼Ñ(^¤”šÏ [ó檩,>¥iïq—‚{鮋ÿ}}CÿB}10¥yÄ@Õ Ü%Æoq×ÃîòÝæO»';·ùÖ}ñèÕ…7c}¸8ÿÒMS#e¬{8èQ«G¾—ïÞLT£/å †¨zK+÷Qãr{½›§ˆ$ñÈ…Ô£ªoè½ÌñóDsìc >"OÀ¹ ïÅ ^ÛÝjœ_¼zûa{ñb;ßOD ÊA!]Ô[ùò¿)tÛBߺ§½œë‘ùïÿø§kfr¤t‰>AöŇ·oŸÝy3Rg¿;5…÷½9Vê}EÇ 'D=q¿»µ-X£ßÜ}“ºne«[yìVêú$AÝJ]Ÿ›­Bÿ•­,­ß+[…^sßÎV•y§-05á@9`FkÌh­1£5f´¶—l¥í~8”ƒÈAâ sP8¨Pr ä@É’%J”(9Pr ä@ÉBÉBÉBÉBÉBÉBÉBÉBÉBÉBÉJÉJÉJÉJÉJÉJÉJÉJÉJÉJÉ‘’#%GJŽ”)9Rr¤äHÉ‘’#%'JN”œ(9Qr¢äDɉ’S”4Ÿ‘áPÀÒضøl…eÎø+‚ò@~7r]D¾ÍLnÕ7Û7Ææ#VFÂâVÑJd—»uËÄ „m˜µxìEuñÕ6Q± ßT‰v(Í/¶¿B„o¶_@Ò_€[l2-« ”ˆ3 žèÍ›âvé{ûî¶$EïV¡†‰*Àl넽«·ýæªB„—-w« q¦OV”–zJö¬Ä€°ÃÎÕc›r·õ–ÈÐÆZ3«% Šáœ:ä2ß+±!ÅÆ;Ó–<¶è¨ùš/wÔ6«W–p‚õâ-üÖpEœi‘'j‘a ¤øˆÝŸåoè…§$¯2€G¨2¢VRé!bÇÅBÖ TI9 ¥zìÖÚÛ._m4ÙubÌF™Ý°‡U3ª*˜Àº†-–d¤ÅÔô-¬C™L›rH_ І:r͹ÉÃB„Ó|AmÅÜ¡)@©‘g†v·Àö0Z‹˜nØQ v£›5»D€s…‡"pÄQú€î'0v¦Åºæ4‡,#|äe¾gJâêÆ3Aðá£ÍLbA3X³ÀšÐbA1¥P`È-Í (ïPÚK®Þº„‚ˆ] jM°¤C-f,U_±C„Ù±›dE>ᢒê v/3Ý“õ2£"£[ƒsb'#ÉÚ(2ÒBgvLª·~¸hèYLbê6±VóH‹4¿®€˜¡7už ‚¥6Ôâ5–, ¬j,±>×H Ó3Hh)\ÄàŠÚs¤Ä 2 &Ÿíøe8BX:ªþ§VXëž8”Å[óE¤·Ö€†x Eš8‘5‘,ìÈ7;âJÙåú9Ü”êT-¬õŽÙ»J°V|ðýŒ Ñc7cž±‚uYí°z±bGÎqäå^a¹ÄNéˆq”ÉdfRׂBƺ¶ „w(ðªvŽ[ísà›:³ÒÓŒ’+b]#”(¹aƒ¨ÇûFÓ lÑ›6ŠB#Z¿äXÓFf*Z³ …_–ãXÓFgúD…ŒpÔ28”hÈJ)|dà™3AzPbß9:(q¬w'VXÚ1K>ôŽâ%ôÝ£™;.PÅ&›GBì8ÈšGq¤ÄTKØÙS:ôŽ"¶"vfv¬y”ã|p£ÈÞñŽˆè±”8J>H§S7J`›˜F]‚RNà—bŸP&@ ;ÐFäÊ˨‹65N :GëšaöfÝ‚}Äìý«\G]´D«ˆm¨8Ð3-xÕQƒ7§ù^Á&£ÕÑ6šN W{S°¶7Eo£…Q‡7…˜bßF£)¬¦£‚bfÇ„©œ]4¢ôhMÓ bÛhSXmTøëÔˆµ‡é¾¥¨ì¢Äã-¬© ͘ [ÐÞÁ’Ž6°bœŸÃ¬Uz[³ùñV*óAj ,5ÖÍ Ò£ ,¤Ùù5[GX /%oM=9,6UóaAŽ¶Ž¦€X5¦¤5mŒ¢kûä°ïÙŒBw('°ÖÅh t ëØ„gJ˜Q¶l¸ ;Ú²Ñ,;6\Þ±îGãLt`5z»hmØ°¼ê ›ávtbISñiŒÏfL¥ÜÖ®EFr~è ‚›FÌ`G›FZO°ûžÑa9¬g4ÚÇåJì›F%Ž5Šž`9(ÅÂö&z˨ŒÊþÛMn£ÕÙßRÜ› xëæ¿ûÏ|'ïSjÖ,ïIÕ¿eàÝõ>—t§+×êéNWFÖg‘îŒÆ¼2£2ÙS™ì©LöT&{*“—•O‘—UÈË*äeò² %“…ÈBd¡²ÐYè,ôP)¹Rr¥äJÉ•’+%WJ®”\)™<Ã@ža Ï0gÈ3 äò y†<Ã@ža ÏPÈ3ò …q ”·¹ùiþ¹l²ûÒç²y±¿Õ¤ž€š*\Óv{nh”ao½Öù”¯TÔwZËžJ_ÕODo‘ÿ¹þÌÏ endstream endobj 5340 0 obj << /Type /ObjStm /N 100 /First 1014 /Length 2247 /Filter /FlateDecode >> stream xÚ½šIË7†ï߯Ð1¹hT‹JCH9Ź™²˜v0Î!ÿ>o©[=>©ç ˆIÓ‹ž®½ª•©pH!S‘@¢~ -ûAÒªXÈÒ¯)Á¬_SCÙNµÐ„qPS dæGˆSzÁã‘"þ®VüHYò‡Õ°¨?­ZÀ¿~¶ÜJ~TÓöäxj)°´æG8 cÆ íë6 \¶³xƒÖ×mx…ÔŸÜ,÷'·åëâ DÍ_·‰ùY¬¤Hö# ªqд• ´Õ lÍrPÅ YÐ,ÅJPÛÎÖ u»·mý^Âë'_—©ŸÀ{0áUEÌãt; ÈŠp[ñ7bÂ%ÕuÀ„…ZëwÔ`ÄýŽŒÍïàLšßÁ,³a f¨/;K°²Õ`™s(i»×BqÑᨄ"Üï€ÆÕú-”ÜüØD)n,J5ÁP”ÐÏJ¨$þ<»rgÆë×nSŒW­y;[B5×/K µkZµk5…Ö5ÈJ¡A)XCFçd•Ðt;«¡å~¯æЊ[«…Vû“µ„ÖúºZa§Ô¡µápãÊn½Ò±3Ì7 ëdî6íÈ0à´±eXpÚà2L˜6º v³÷ÂCÙ.Àj0üþ¬F¡a5ÚÔ ylßµcÜýÆŸ9wot<‚B!ÈÃß O`ê`5üÝ/Àj\· °|À­£`5IÅŸ[°¼@_^½z¹ýüß?ïÂí«÷ï?|z¹½ù÷·Oýïÿzÿ÷Ëíëÿx÷ñmBdH¿Ü¾¿ýpûæ-õ?^n?½ûýSx Ï ²ÊFQ¡BØKlpÚ\(B±¸î«ðêU¸½ ·ï>üü!ܾ _üóëŸï"lþËðúõ þ[@¡-’[%þ_à`dÁ”[l:Aм¡Bî©Rb@¢ûŽ–ؤN ¬.„0°O7³+©“:’ë„& …2d0¨Çi‰Õ-–ª{¸ÆÄ3‹¨WP$Ø!²ÓAAáË3Š²^ ã0ÄÙC#)á÷‰UHJ+eï@0×[ô@R 2@2«5R¦….¤ž˜c‚L°2Vw*øêÌM…åÀ>ÒÝE?#Í ò cDårPdÆB3QØJQˆŒ(‰’Åôb^Äbffˆ‚`‹¨+QpÅB3Q”• ‘½ÐÓdÕÌ2’8”Eèd±2Xì©åÜ´©T“FÕ6¡¨+­¢ÕØ ) 4:ò˜Ôs™@è ñ£ +aFfò(#¡‡F•1ƒ¨@"jõ‚S,Zf+R®Ü ñæ9ÔÝD@73L´@+Ã|ÔõPašäá É 7ƒHf¢à•ÅG8%#‚‹w¹PŒ·ß Õ©Y¬L¥è‚ПÇŒn‚ŽÕi ÃSf%/ë²ÈPú™,ÌÍc‘/°M©ña›è-‘SåI¾zE«Ž>1¢B[ Ê=tÖH©S«(èƒ' ßõ ‘êÔ*êúnŒGôË{C/¼>k„¸­Ô&óg±- Úþ …¤õ¦I+(wÓD±…ú^fÙô‚Æ”`“½Œ2,ƒbVlª\ ‹âÅ9…®tSAPÀª¨þ«Ö$ZUÊâ =«¾ÙK^BÔîå?Š-õÂ?PPNg[?¶9úØ攀È.ðÒÁ°{éÄ«A±¬sˆ•©tÔyÄ^ç=@±0 ÄjŸ‰BA‘0 Tèë›1r™ø°x˜µ¨EŸãÃ(v†#\1ÐÂü¡½óà`hú ø”ÛEåòA(ºŸç èÁøœ€–ÜR½¨8.²ºQX§ÁNTå)bÆ(÷óÁàƒÉç´0FŠ{… zñVÐ}!¥ª`}€bi´ð¯Nwˆ½À{¢¬/ñ o QvžRðÒ¤Ûôý4¦Ù?§ŸC,ìµøWA»Sx ˆBVÆMØfB¼Ù›üˆ,ÚJ?í³å⻞"r)j‹^ë‚J¢Í&6K3Ù(þŠ?õ­6g²r“‹&øi¾ËbTœç+¿€ø'RŸöû†ê2Y§¢h4ýtAøV7;ºßñƒ‚üI#z£ÎñzwoÇ|ÇÍ·­ïB†a§yýˆà€ØËÍSáõÕæ1È„Êúü1|êíLg +÷_):qÚ7¢uzû½3Ê+%Q½Ä< ²+,öD» {øv¸TîÙCò‰w¬œ ÙcPŒìqN¡d∧j„ŠAá_!¨=@QVæ0Eªw ß §ÈBêJ X'mÛƒ7 9—G hýðÆwkú–î1¼É,±L+]¡-ÅŠ¨1ZÂD0–ه벾¤8FGx ±²5Å 8:Â3Šµ3“­#< FGx ±td²o-5ÖšàííÐôc-—º>x{ð>§hu}ð#xŸR,uÓ¼Š=xŸSˆ­ôö:çþ!Æ77ˬÿ0Z?wWßHàýH&X…o$yÖ°yxÈ rF±6d ÃCN)–›‡‡ì‡‡œQ¬ œÃCÅðSŠ+†Í^æԬǰ¹{§Å÷}Øü?(Xº] endstream endobj 5568 0 obj << /Length 2356 /Filter /FlateDecode >> stream xÚå]Msã6½ûWè˜T­1Ä7pÍn&µ{È!åÃV%9@d³L‘*’rÖùõ J¤†¤’ Ä3©9Øå’ˆî×ÆëF7'Z=¯¢ÕO?<=|úÌàJÉ[=íV0Š&lÅ! ËÕÓvõëwÿþù_?þ÷ûߟþóé3å­cÉ—Ò<êô1,xõ¡‡¨~ú§Ï·>ýØ|üqóG|þÒ&Ë^ °‹R¥ ò½û·óZŒvÖ‚ÂÕ£‘KRzþîoÎí,„†¢*NwÉQ>šKÀ#Ø|Á<Út5åÍgþQëiþ±Ê+uÏ¿þòÓÃê×GD£ï ƒ`@ļVˆ7`ä ÔEiÅú¤ÿzÚ Åå{hD*B€À¨J4B½!#˜M&ói>[$IF¼¦eø§ãþ˜XBæÉÑ-VâQgíÛÔ€æWD›Õ`${ztDƒF4Bî ]ÈÛ"‹@X¤gö‰»JÒ!Ñ*‡dr.ÈH0ÿúã{Yäš CxXX½Ú•ßLÜdç¨ùbÙkÔDMÎf;t4Ü¢n@ºvÐefÑ°œí¡#¢q#rAvLc›`gm< V«ÿˆ*Éê#|«J ’L£boÆ”|º-yK®¢ˆÓW#ógKýg$‡7™$€jÕñåJÿµJŸu^nóì´@QD,0ÀÈ|9šï:|XDsˆ*äµÖ›g_@ˆé¡©šÎ_õ;”Rxóš1ƒZ"ÀI²,Õeiü9ò&ÙÈNk Ö†,ËÓ½JSãcÜ"Ú‰£ù ÁAÙ„qdm¨s ”±(ó&܈A;²µ€ÛdI§”‚*o²]íƒÎò”2͵€!˜Í0¡‡†7Ó>Ù衼v¡ ¿”ÇT¿^{Y®v&lDØÅæçZ4@ú05…QŸYÀ&×[튚˨?šN±YØ jw4Þ‰"d¯Vi.}ÂãôZp;æe\ „³iÃUBt}Ü@ iتç¬(ã4sw ·(¨¿µ¬ºÕëüW‡¡´E›³N~MZ‡´+àô³!„F0èm+q×NØÅ©6Æt¦Ô7‡®µ¿Bl—«*…ˆ„7Ää}ˆ=Çë"«œ …ÛËi2º+¤¿²yÜ;‚æ2Êí°vhmÉòÒ8²ôæÈBÞåÇ/†ëd¨­+f.rÔ>æ2hùìƒkR6Re7\‹ýOLÈ¥k!“¬Ãþqñ¢^ùÙR$ÝÈ^U¢b•ºÒ³SÆé;ßv—¯ZåYꃡ{JmÐRu8NëÏœ¢²u JÄb˜,­îõÊ쓬0@Ø 4Bú'÷Ý´³e£De¯³ê”†Ôr‰ç€àb÷‰ÖŽ’ 5þ#g›vD¬:^ƒ;‚‘@@ì¬Zõk°bC6 ?°Æî*Ýh¥UjÑÁçÛ€eý§Lzlœiàå !p”iÔú+ÛïUœk¯£ì2þ~³9æÛw=¢·AÛlUëÄœéÄ[)pJ¡ÚRÞßgI’½;âÌ2l£'YÿgORH ‚­(7’Ê6ŠUIݘzd0û “Ù‡ _Ô¯èÚqTÍ*?¡éåù©”€Óc áùÁÀ-²|¯Ò­#Õ_$ÆG[!®m›lÇ:u•ûJZ`ˆr?þyþ9…¸ù ž“Ø$‡ÆþÈÛ9òñøG‚<.ÿ4úûKA‡ÀÓÅ¥û¬n+_èê¶{ù–—o…ÞNÞ`í;Ë6À&»Ou^ìãòÅÑÀS'¶ßB™ã\B°¸Ùû±8îª{ëpù]økkëÓI©öº|ɶޒnL½Ó ºÌMS1žÛT| KÊ;¢¾N‹¸|wôkÍï…2@,ŠBp—ˆßÎÝt¿©2~ÓKW¿.s2^ý¢=®«ßâj€ÂÛäd$€=Bt^#Éе(+éê†È°bŒûþÛö”îÃÀ¤=3:]³‹Ë¢TeáØ™0T#nª‰èð%€@ý4`r]ÄÛ£J,RRPG̯MeaÃcû1j·Ö¥²ŠÈfÔåöù©K[{ç¡uÛäÂTt$åG0έŠÌz!€¼ÅÞv€Œ @íëŸgÇt;ëèoXÌpBP?ï!@P=§÷{­ÒÂñàüŽ‘!>½½¼AÑèqÈõaù$;«•llÓmFT1»afêvà¾;W[Îf j®‘¯%¾Ô¤÷œŽBÿKÜ3Ç7œpMãÌ?¼Ìå‹Ñ›à}„&¤&;h¥ó¾_˜ÿK.–ÌÒ{ÅY£¿$À-¤ôžYʼ ̶rCèk–ÕâÌOF(Ĥ q{Úù«*BlÐuÌ—ˆ·ArõÛ¹JÂv)ï¼ú(AýÀ.äûò`A¨b)Ýt‹UõEmòÂøâ÷9xøæð~o¥.²éË–<¼¾bA}‚°+}Ë¿—yÿ÷wR7Ëíïv\æ¼—Þ/v ¼=›ƒÌ¥Ÿ£E˜Î%.‹Å¸ºÏ÷5¶^ )¼¯ñýXÄS!ùÄ¿E¯¨ÇØ7ÒÒ(ÇAã-ÂÜòÀ彈K÷à;ß#9u«Ëeø»óyˆkŒ¶z§ŽIìu–` •‹¡!Z.‚#>Ò†c" ‚V“ÎM†1ó~ßúñ<.î1AÎÕ‹[Ê;ŠD'jûO_/ßäþçWúTy*Á†Ó› ‰= ¸Þv7™ Éñüüšâ›“Ny{W:q+ÍCÔÛ„qÙ…à^AÞH3hû¥ß—rUÛïêî$ØæQŽ]wÎg±úÉÝfQëîsœ»uÄXNk*RÛnn>*0žË`¸«•ebiá $Àÿ™€Ø_2Šác hâ^ÇaÿçOÿ0aE( endstream endobj 5341 0 obj << /Type /ObjStm /N 100 /First 1024 /Length 2853 /Filter /FlateDecode >> stream xÚ½[]«Ç}¿¿¢“—Ù®êªþa°-”¶’=8ö%˜]#Éàüûœš³+?xæBzW©wgöô™ê:UÕãÚ4åäÚJ’"Ñ°¤µDÃS5ñψFKµj4zjâ1ÒиÜs’ìqS—$2ô-¤z|pó-Kâ#ú鞤itÔk’î+JK2FÐé=©œ¯Ž¤º^Å-=ú€ºFCÁÖƒÊ( ¼Z´ðCeಠ¤H_QZ*EV”žŠyp#5/9§Ò¤EKRéžÐR€VI&R£eÉÔF´´ <$·0EÁÃJîC›á9{Œ‰á^üYo€ûˆžo€ÿHéÑ©u4= W0L´u°n*m-_ýtLGošÏ7 7•u°áUð@‰§rô¦fñXðDQ?# 7mkðmo¯7 7¸VÜPshjí¢Jha½¡†,Î$kˆÎק¨è ÿ4ôVÑ[i=L\Ñ[çЛåõ1a_19# 7[=¥`LÄÎ$›¬z ·Ø™dHÜúú˜]±ÑåáÅ‹‡Ó›ÿþü˜N_¾ÿôéáôí/ÿú´~þëïÿópúêéÃÞfĈüîôçÓ_N_¿•õÃÃé›Çï?¥·f²D‡Vòù™—%<(¾6Á]_¦/ÒéÛtúÓÓ›§tz™þðówÿ~\Šÿ1}ñÅþþÿ0‹Ãa“e„nëX`Ó±ÀοÏAÇDMÃh\8t[!ŽI™H¢êâ|r]Â1Î ¥ Õ–2Ú‰<Óm‰°z!Ñ1ïJbs‰2|Q„1ºDvx¥ý>‡:s4  ñÒË’!Q„†Å¬Ë(‹•;è|¸ph°BêD߉$:´QôJb@µ?ƒDŸG².²IÂd,Q*‘P±‰$TíWKX dícÃ%ª‹E‘ó/$à—ÈÇ$¬N$ÇD¼’€c†Ÿr˜è—¿Ìþ™!bwÔŒG$Z¾B‘@jŒ Ú‘@›í%½A¼„/DöÚÇ6Ç^ m}~æ ‰aHí$ÆLi uõFÙ",}L¢L‘+óÅVlÁÔç$J½Aþ*•Ý¸æ/|/;$šß@ä@up@½ƒüEÌ_G$†Ü m$.ùë„Þ ‘ó× «.ù‹$˜¿ŽHô[ä/’Øòׇq‹üEÌ_$J.7P¨VdçÏ*Ìâû$¦¦¯Q/ðCA-1÷è” £e‘¶Çbj…‰ $r^†×«BEé{ŸÄ*í}©­_’¨"fi.÷™[i˜uÕ¤­"À1 íAªE¸Ø!1sÖQQMÄ:bõ%ç«cjÔ°ÔûøÕ¡Žó:!×ZuÝáPç—Uä°ÍÇ9ØÌ*w {!4m,#ƒB§‡¦æqCtilŠðgØAzž) $/»‚Ê8"¡23R9’×Å) U¥„r˜-1ßÉ£^HÀ+syŽ!ÆÌ,·Ìz‘†#m Ž%F»AŒ0Yrõk r9SS(YlEî1‹™±ÊPE˜ÂÚ—Ö4¶V–Ø]QšEÊ}‚•U 7K*H_=vpÂà%Š¯ãN‹ÚuT¹&rq ~§°½‘À$b¹Î{PG`0êæÂœ# /±_Ã9fWð=½‹­š–±2²‰Tð±¾3õÃAÛ€’(^o` Ç4£]W¬ß—º³beý¦ ‰M‡$ú ÖŠHââšG$dê l«ïÄ)b¾±xâˆ;Náe~}G–a ?¤0s©ˆÓ¯ µ%1q˜;˜á˜Ä¶.R†\jÙ™‡ú v:6§<âÐo°€IÛæ!‡ÉÂ8ïÉŠÊ:垬”Ø›Þ)&æ.nAt‰#ý.±‘àÒÄ!‰©ãa#BâÊìRÖrŒâÆþV‡øoR_¦·^Jö7éô÷ü3…I­¦Å;žêý/?ýôŽ7¿zzÿiE}åq:AοzUÝûö\0%Ú>ˆÅá˜íC,ãxæoWηüôúÃÓ÷ß>â¹ÒéõËWéôæñ×OéÝoMõôN_ƒÃãûOã¸K߇E>>ýòáûÇõ»zþîo?üøÝWO¿¦ÕˆUâ,MÔ7¯¿û€_'”¿Þ¸ÀGt¼š >ë‘™­QØ06.÷T6±5¶§]Èl ";‘ÈNd'²Ù‰ìD®D®D®D®D®D®D®D®D®D®DnDnDnDnDnDnDnDnDnDnDîDîDîDîDîDîDîDîDîDîDDDDDDDDDD²å̆°¡l6Œ g£²ÑØèlYˆ,D" ‘…ÈBd!²Yˆ,DV"+‘•ÈJd%²Y‰¬DV"+‘ ‘ ‘ ‘ ‘ ‘©&+D.D.D.D6"‘©A£4jШA£4jÇ®œÑ "SƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF 5hÔ QƒF :5èÔ SƒN :5È<„Fe£±ÑÙ 25èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5èÔ SƒN :5è›ßÍ©“´äu£½VÔIPˆZLð¢øˆ ø$™9óuiºz¬zÅʪ·8aŒÉ­ï¡Ó©,b‡"ª˜ÕÁÄë"ø¿bRçÞöVh'Öð[p¾ŠÙÌZËLQ1ñ±³ 8ó ÐeU!ãüÊÈÆ"NiŒç˜*Sš¢ÄQ*»š"Hï¿ø(óºaöu.MQrìsí¬2=ı_i×ü/c–º'Ëäãb endstream endobj 5570 0 obj << /Type /ObjStm /N 100 /First 1014 /Length 2143 /Filter /FlateDecode >> stream xÚ½šË®ä¶†÷ç)¸L6lÖ•$00àÄ@ «Ø»A¹ ‚ ÀŒaŒ~{ÿ%‰êl,ž[Àà4{$‘_«þ*’2©–J2©žH$5±{4Z’Þ£âR+É·KRí5œ:Çå&‰ŠS´4u}CËÐ%o÷£sõ¦ÕDÖ5Z-Qå­“ž¨mÏö’¨w‹%&nÑâÄì-I,ûUMlÜ1¾‚6zöÀwŽ1:~B±­—ž„Щi)I$®j¡$WµpÃ@hI’ÌZ4»¼¡eaˆíYOJ,ѪIÙ¶ûZÒø1hõ¤Æ`Q*IÝ¢?¢¤µÅhÄI;Å„Šöhá5Á?‹jü_Üb1Z|5-t_÷«x¬mÏÆ@½ SrŠ”99k°ÒcšÐÒäF†1Ø0}û³ž¼îWkò¾?ÛR-û³=UÚ®JIUW3®÷ §já Ÿ¨u¿ª ?²b ±ðŒíª§F6škØ@Zjá`hõÔ¬ÄhZRsÑð§Õc(§ÖKô¢’zÑètªŽ1€ÑeÖS×ýÙšºÕ?¡×cà§Â@Ñ‹•Ô{¥Ý°T¨Ä˜*,›¹Ã{Å·[á¾Å c³ði Ì4•êÑ«ÁƒKëÛ½pa<t&ò¸Þˆß݃NM¶C£‘yX pk=‚¥IxžEÜx!ƈK˜bHbÞ{ÀhÀ݆Àh¬CÅh잊H¼CVŒÆ½Äc£I‘èö!!oo>¼=~øåÇOéñíçÏ_¾¾=¾ÿùŸ_·ïýïçÿ½=þðå§úéc2”¿?þüøËãiûòöøÛ§}M©õ\à¾ÀÜá:\ði ’¸íÛôáCz|Ÿúò×ôø.ýîÇüçSF`þ>}óÍþ-€¨€ÀŒBs2‡);å‚…>dÌôoStYက„A6`»BC<8k—߆hm%„f8h/Y´?!jÉÖè®ù¦Ð–C·O kÙùÂ}¥)ªæ°„x†"±äáu \¢ùB„;—’»÷9C/ëÍÀ(îiÑì.w…Æá•ÄÙ¹ ß¹@…9×â“ÑBtÉQSfÁ0ø¡TB%W½P*­ë¸4¶?ØrCÅ5…XžÌ n®O EA3 1_ïÜ HÄÃ)1sít—^îJ…t™]ŸáÁøl"7ç/ä®ìQG2E)Ɉ]¸Çm›R  ÎµÌH¢¨¹s§~sê`…o¢À;'ÄB;/¼ÕÓzá‡VL!Ö†)A,JˆDCî†7ÂTâpE¯(h½l2!Bä´Wdt¿)H­gÔ¶[7ƒP…g¶XZøÊ]«pÈŽp@-CŽœ$É(¥ïµ5¸a, ÅŒHEð^9„®Ðí“Ÿ%fˆœä^ÝÆJ*7}Ûä5³õ{²9a¹Q°â£¾›B¬• ¸`è à‚ºé¦XœÍ A-{C·É,K¹”LYŸHIŽœ‰ko,‡ô®6ü‚)ó“A(K»ˆ¥ª½çrŠzSÛs6¨gå~V~9öå±Éš´ô,B±Í†z•ÉB(–(fC£Ìç Ks0ø>¸b)Æv³ªÞ´1€_»mœ ˆ9¿b. (Užv€Pé•P­\žv»fkíP`«É¡• ÍTÒŒ¥1˜ ùÉîÙ›^slö»@‹=! •Úé¦êR©FzxR¦5î;(¦ 8ÿŸ-¢ÖCú˜R,M¡Z` éÉ‘6 ×g| qØm{©g€ Š=@f K-qf¤ Šsþ‚¯È^ÆzÏžÕ9ƒaÌÆ b©THƒ0ÅÑJD«Iœ?eqÄèLï)s‡\ …§ ‹Ý’aY~BH¬6úbm„ˆ†¢…þ€0”xf~Óæ„*(âØkPIJ0ŽÕfK'dĨUÉ¥ÓˆQk’êMEÍ£'ãS)º2F9Çi¨9ŠÊØFí°–çV)öm®|s}:£ÚžB˜-/ðN†13†*ëó× ±å¯)Âxád8#[ÆùklØÄéÛVf'C¤úÕÎu_Š#wL)¸¼ Ø#{¼ƒba“~¼Z‚O‰CYÌH‰“÷š/POŠ¨s ]¨'Ũsˆê 1uJÑøÚ$fú Té‚,{µÁý<‚úYç´x endstream endobj 5856 0 obj << /Length 2473 /Filter /FlateDecode >> stream xÚí][oã6~Ÿ_áÇØpx¿¼NÛYìvº;hó°@»(GvÜH¶aÉi÷ß/m˲Hë.’“d‚<ØdòðÜøñœÃ#8[Îàìïï>ܾ{ÿ‘‰™Šc>»]Ì„€P>NÔìö~öë7DÊoÿ{ûÏ÷9ªŒ£Ž‡”’!ŽÇ!L™ˆ‚?ÂWYîín'Šü¸IˆlÍpLÜÃö§@0+ýóðÇ£ëŒp£ú™D8,"¨u¹°ú§ £ö.c•®ÃÞþváÉd»¥ÜÕuxÙÇ¡ZÉQ©jC>ƒôÒ.ˆØqK‡¿¦üE}ªÁ ÃL5ô æKwÁüQñì1~sQ5Ù^뀴û£Lšð£A9 òLå!ø×ÅpÜŸá Ð+ýÎãå.Ê=nO¾¾†uìçRÎk¶‹æùê©ŽeEZkrI{á ÓGpg$ÑÝ]<©ä®4ê¬0Ìgu- Q]‹ûª¾,¹[,³;R—ÿ-*û¾vøŽBÀ÷Þ掠ÞX •¾Oâè)F›}>ÉA–¶%Ü]ʹ„—nÀý¯QLV ¯ï]ß!©«ˆ1 2qOÄÚíWió¥V:8I¶É&Ÿ$Á³ír8¸~<Ù,?­ý駯Ą9û> ?£§±C|U51F&¡†\pY¬ò,òºJCs¸ºãÛoô©º‹ŽËi”ïâe ¡\LåUÏ7ñ¢y¼#(gŽNXÇv"V lZ±À‘Þ‘îk:–sÔôd®cýø œz‰-AK~1XGi}Mµ6w4yc§¼»Œ“]Sõù—÷ã<Ùgyí=°þ!³/•¾À'¢ ‰ˆÕ$Ð&‘¨G|ÙÚªžÛLê®7%ƒp vLD06ÇA\×ÙZ¯¤²<Å<‰¶ÛäÞ$aòV=~5õöÚD±2PiœG‹Í®Õ @øôS1ÔÍ6š?F˺”–ЛRŽ“O¡y$õœ¬vÑ&¥æ>ª)Å£‰&DSúˆ‡@w"DTA†(Ý“AηÐSéž‘©+K÷hø‹–ö§eGˆí;fLh:•4¬¬ã?ë`r‘K²ÿË^É„Ëù6÷ˆ³y”ÔåŽ7'g[U{‘ßÉS¨”IX²ÊòC¶Õ5N¯Öï¾Å±§ùæICC~Y%SâîD î»¯Übõ¥íÈÄäÜ°ìs{A¸ÄŒ„uv_²UYeó›ts'YSR– â2ê}ê-E| AKyµY»q3‚s3‡ùwñ¿×UJãKÒÕúî¥ߨ{Yí2wTÿd^-?¹˜¬>qìÞœî sºg«Mßî s¸UãÛÜÕz5n¦hP^««òËõI¤£ð‹K 4ð7‡ÀFúìÛûheó¶+õ,¾®jÊçh%ImÈ¥8à¿•¨=«ûe?®ŠëÃáŽñ¢YU¢|…¨ÍÂ(D)æ£:J‹¬IGxŸ)@Ë= ~´ÑýûÚžŽ.qõLµ6µV»ú¤¨£­Š8}éˆlwE‘ª±ºÌBpÕ§¾ùâÇÕm£7PŽˆ ß'ÁS§6:(å±moõ‚öbôV¶ì°lùX¥®ŒüSSýª›»ó¯§ÂýÅë#~^E²çVØRÅO¼%ƒ‘ž ÞÆ»tŸÇYîÍDˆôßýÈU…h Šö!:ªÂ%²xTŒû‰‘4¼õ¬£î |aÓÙ,ëï»yuÀ¯¥ïWˆ>× ‚þØ¿ÉWÜ#ÅkëX‚orL·'Òw§¬¸ 0ߧû¤¡<§‰x©¸¤_mu¯>Pqx½\‡˜ë bÝUZÒbáXWï¯A×õ”ìý8ƒ%ti¡æ|«­?9×ûuÓ=¹*S¶»Íb•Ä •f‡è¨A-øÚÇóR[‹IWs28Æ5‚¨×Æþþ’ódðÞ}=È⤩úóÜ5h%¬g¢*)O«E+×–c(†#yMCåþb/VtÖþüáöÝÿ†%g endstream endobj 5571 0 obj << /Type /ObjStm /N 100 /First 1015 /Length 2859 /Filter /FlateDecode >> stream xÚ½›Ý‹%·Åßç¯ÐcòÒW¥ª,°I cû!ɲŽ=³cÖkpþûœêÛ§gýàÛ ÑXv4s»N—ô“JjÝÞ¬§œz3MR[,õ(xj¹Da¤^ÏIuDA’ç…’Fµ(Ô$Ù$J-IÉý¥ɺ^ñfë –Dóz‡'±¶Þ1’8lô6r*9ÇCR‘wŒ’J±¨~ÔTš„ÙÑRé­ ŽÑáöú©¦â×OñcUžj¶xª1R-QoÏ9ÕÕUÏ’j³¥’ªæ¥šªÕõº–ª›< Ôü‡’¦&×{-µOÔ3ÂÔ®Ê#µõvØhº~*’6RIx‚¸WðA^ëT¹Æª 䯮$æú)Dõz/ÚÃZŽ.ñx"Ü—4£r”$©´¸£”¤k¬z©I×XõÒ’®±ê¥£ù®ŸjR¿~jIG[õ^mí¼úÚ® u¬ «°ƒÆ‰kvPo<–ÂNÃ}ñWØiÑQ„¦u½¶EÁf·¸väx t3Á¥qú… ÿDm0"h¾P²Ç°¶%žåáÕ«‡Ë7ÿýé1]>}÷îéÃÃåë_þõaýý¯?¼ûÏÃ峧÷ß?¾“14ä·—?_þrùü¬¿<\¾züîCzS½, }O·Ø©c,Þê¨KëŽë>M¯^¥Ë×éò§§ožÒå‹ô‡Ÿ¾ý÷ãR¼ÿ1}òÉþýÿ.0@-ˆúî¢ÉXÀþ #OtQ ë9­Â:ã¡‹še¢‹v},ÒÚu¢ - Fýg6 pÂÄÌnΙûG¡¾ L'\Ø<¡ˆ‰¢š,UâçXZ‹Ðþ^o¸¨3]Tº ¨Ç.ü n.vP]´qPé‚ ºèõ ÒA=taeb¿è¶DJP›/Žt«Z[oªá¦Üpc¢ 3)Ï.F[vp1&Ž˜—\Ý] GAËœˆEÍã-Ru‰ ko‘fRÇ­)5ϵÐ"HÎkiË(1ZÁŸZû‚äá÷]ÈÌ}`iƒÍEËh‘~l¢˜Í´Ð-êx6ŸÅθp9hÙRî.\œð0fF"º  mC]LÎ-àB>ŠºfŽÁãÐ…È0•²Ä ¦˜Õ—ºˆÉ­ét樉9y>-8,`¡xèAföË:0¥=-#¯À2ñÐD‘™™*äfóP0Ÿ÷(m& óy{DäIƱ‰™„väݶ{@§”H==L%Ð-±ÞM [æz"¸~fP°(r^´EŽ‡œ?¶zDÐ,vkþ²ùyMq¬<Öåñ5¯)Ⱦ˭oª Kln!e[Ôø@,ªÃ•EÞ{ÃE¹&Ý]lSé‰>Q¦O¥»‰m.=aÂçÏ¥»‹m2=vQfN Èñbßœ.zÆtÖOÄ¢ä6#­ˆ!&Ïi%VF7]¨Þa¬ ‹m#íØÅÔÕඑFÜH;t1w%¶m¤í.¶´cSAÝÖç%cý'Ïës¬0–ÚúK ZÛú|w±®ÏOxó×织m}þ².8‘É@Â_ƾ†„¤ÈKµúdE¿»¨hH±Ž]Ìl‘Š^Q>ŠEG‹h=ábf~ÓèI¼ç¤ kKö3±˜Ê)C9Þ=Ò²¬xI|ì¢ÜaI&Ž…`,×·]‚^k/”pn›&4Á\ïØÄ\DÖdo7±%{'LŒùÉÞîbKöN´‡LOöv[²wÂÄ’½ÝÅ–ìp1æ§Y1ˆ÷ÛûAºUÇ= »¥4±­ÈMÌ] s&Û\p&;áBî‹ÅÍŸcKç|kû¦Ü£[4ä±Û¼eßÒûÒÊÍw1e~ö½»Ø²ï.îpÞ„.˜}»pŸŸ}ï.¶ìûØÅÔS/ÛkìÝÅöûÐEÍ:ÿ¼ÉîâzÞ䄉© ¢¨-Ž}•%NetÎ0UÊ­§Þ‘"kê¹#Råö©—¹.Ð-ºÇ);tÊv}‡1U-H?o¹¨w´è‚ƒÖ‘‹RîÑ"tÁ9vQï0hm.öAëÐÅ=ÎÞì.8hºÐ;œ½Ù]pÐ:r1wゃ]lƒÖ¡‰æóÉí&¶CrÇ.ô73êéMïjÐþ*]þþ¦èäM“•¶tt³w¿üøã[^üúé݇UõµJŠ“Õë]¯{œ‚’íYùö‹ö¤vý—/ß?}÷õ#ܧ˗_¼N—oýÞþ6 _ÂäÃåsÔôøîÃÏqLWãþx~yÿÝãú·výÛß¿ÿáÛÏž~Mk¨9žxôå·ïqwê‘ý­®aþ¯g}ÃÏzÒw+8 c+hfAX(,T }+¯1^c¼ÆökX»±vcíÆÚµ;kw*;•ÊNe§²SÙ©ìTTTTTTTTTT›²æÌ‚°PX¨,4: Ê‚±à,PY¨,T* •…ÊBe¡²PY¨,T.T.T.T.T.T.T.T.T.T.T®T®T®T®T®T®T®T®T®T®TnTnTnTnTnTnTnTnTnTnTîTîTîTîTîTîT&MJš”4)iRÒ¤¤II“’&%MJšT©¬TV*+•ÊFe2¨dPÉ ’A%ƒJ• *T2¨dPÉ ’A%ƒJ• *T2¨dPÉ ’A%ƒJ• *T2¨dPÉ ’A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF t2èdÐÉ “A'ƒN :t2èdÐÉ “A'ƒN :t2èdÐÉ “A'ƒN :t2èdÐÉ “A'ƒN :t2èdÐÉ “A'ƒN úÆàÛ9I´ÄË%„ƒ<’èøªÖ"è¡™‘Cß8TÔ'¾—Ø8‚ô ûÂÇtâbBâ…#º=àGÆvèAf~ÕEâ> stream xÚ½›Íª$7…÷÷)´œÙ¨’B‚Æàƒm˜ÕØ»fþiŒ1tÓ³ðÛû„2#ën\ª…t¡©VQ©Ô—Ò9¡R·m!…R´’ŒBKk³…œØ øj µv+äÐŽŸJèR¬P¥ã7 ĉ_Pj¸åQ7ÏjÍô¨&k§S k¨s ¦d% œŽ_s`µR ÌGÝ8'±’."h£7ÐV#è=°â£Ô„'è"V¢ ©ª•8ã+JDŒÙ0$×j¥Än…R ¢’¬¤AZÅsÔÔ‚t¡ÔC&¶º”Bæbw&t“4k—8äÂÖIȵX Ê!k³;S ¹3[ M¦bín@=¡ Â%£n•‹ÕàttJ¸©²Õ°´j|Œ<¨P m%T®£F Uú¨¡¡±6pI­uÔè¡êx^”¦h‹) *Zã:”¨hõ¸­q?.@krÈMÑšPë/ï޽ܾÿó÷áöåÇŸ>¿Ü¾ûÿŸÇ÷ÿüúñ·—Û¿>ýñó‡?Þ'D†ô¿Û7·ooÿ~OãËËí¿~úÞçhú‡Ùb‚<)S$Øƈ%1®û2¼{nß…Ûן¾ÿn_…üþÃ/"eùgøâ‹ü[@‘s$„§‹¢‚šSôº¢‚"½ê‹F1åü ….¤h9&Ö)ààØë}Á¼rDN] øG‹&$5BÊU-–¬OQò­Ý!Z¨º‚BHcÆqˆmš §¼¢@šˆ¦„Bš˜Ø§J )Ò|5©>±Ò]bï÷®`øbÌ|sŠ¾ŽIMì|WKŠmøe¦ ]èR‰ SëEQRÔöŒAt¡,ÂEÕW}¡ @²5§hmƒOÅáX4ŽÄšE†ó¢—•>íñ˜ðôH²…΄×Ï Îà‰î”¡®ÏsOFÛý 9ä•Ñ2aú”K’ÌÈqGØš¹b¡°ª­]’¼¦ðƒæ•iv‹/I^YöŒ¡Éú$Û<ÇžZ“d}Ž›ÄÂùJ²3´ªôhââ´>ɾ(Î1§¶!F8Å™fÏ)ª¬O³Âóì9…¦õyöEqºô Ú`S§(%jÍs ^¹ðáÒ¢–W}¡phëOP,MhÜ©H§ŠíC»SîÑrx‹SÂ:¥ÚàT§p§Î)xƒSOŠË©SŠ¼Ã©NáNS” Nu wê”båöòåT§p§N)tÇœ ¯ØkÆË©X´·ô(^hÞàT§p§N)ZÞàT§p§Î)Ú§ž—S§}‡SÂ:§à Nu wꜢlpªS¸Sg’vÌ©Yãx“ìN-j»ð(ê§:…;uN±aù¢p§Î)6l2;ÅåÔ)ïpªS¸S§µoP'Z×ôjɠ馑¶AœáâœBô Út×æ ¢ï˜DNˆKšY¹—v)Ó!\™3Ñ {«ŒPîד,»”·:Üq1¹(νÍ)<µasÓ)Î#&OPl8bâ~Ää Š¥oA°´„LH¿¯³™ f}«på1ó@ðˆ9Cè;"æàñr‚ ´#ë>> stream xÚ½šK«$¹…÷÷WhioTŠ‡B\Ú° ^¹g×x1fº›¦½˜ïÊTÖÝ8U`eÁÐW5YJ})ˆPV¶RC ÙJ $‚FMͼAAZõ‡,ì fÙJkÞÈ¡m½,PÚº•@ÔÚ ZÕoIþÿps5E«¥@¹ßµQ Ò¯6T·«ÐÕïÒ40±Ñr`6XšßJàÌcàV íwi‹_- OмoIx„dâ-B膖î- ¢Þ·¤$o}-Háê­¤¿ U1ÛÕ”úUJAÙ’·(¨-šûI‚vªBt£¢t£"<àFEø2¨0á¦"ý~øÊFÅø˜›ûGó0µË¸Ðú¸¬Á¨Ë9ÛþeësUpÁ2c=ü±l£ÜûbHÌ¿?–OÏÞâ  K‹OÎ,XqíÌ’CÉ}&ÅB)YJ(XAŒ!Õ•Ñû¶Pû M¡r﫪ô¾Ê¡f_ý¢jWUQ µ¸6ŠæPÛvÕBK®¢%4jXó¢ÕEç¤ÚBSW]É)4KÎ’)4ÇE‹C«æ÷ËÐUJÉ»dE“¤÷Éhré\¾šz/è7eñruQ—Þ N5y7Ì>¥¦Þ “I”ŠwÃÌqòÑð¨D¢Þ äDZz7ŒFF½F#\4}·Ôâ£7 Þ £1v šÀ#æêÝ Fc%ï&â¬>ZÁhÜ÷hÔI½Fã¦>ý$UŸÿ‚Ñ„©¼¼¾¾Ü~øãËÇp{÷éÓço/·÷ÿùé[ÿüÏß>ýþrûË篿|üú!ÁÒ¿o¿ýãö×Ô?¼ÜþõñçoáU úàV"–†SŠ Ø’JÄ^Á×Þ…××p{nûüÃçpû>üéË¿~ŒBúçðÝw/øïÿ‡à$±a•§X!ë9„Ø:Ò kÎ5Ç ‡ ³H@Êç ”ËBk1Áe†j1Á æ5-¤¨ €>'ŒþW[©‰›Ü§‚±¦’d!×è1í Pÿû€,„xႈF&Œ³[X&èsá›WOT¡+U‘7ÌwˆBÐ*Í!òÊMZ0X¹340¤ùDpZ¹M|í&x&âØbéD IE³7’(ŒU9s KPÀ;MßPXŠ$gz0Äæb©] a†!ÌC+s‡8„9Xë˜$º„ ˜#›B,5Ì*‘zQ¢—DžÖÏ„ÖÈ|¢Ë”΄4°E.OîY¹þŠE¶£…¨á"#‹ä¤±"y$É)S†^Ï–c¡&îÂý´6Ž^¥Â&PyÞGt–Q”º2ÁƒO Á>(`äæ5¥h+) éÍ\T8jˆ)ÅÒŒ{¤ýƒbäýsŠ¥)÷îÜÈ^có¨§ÜîdÿAí‚yðÄ›îó@Û&…QÍë럃b/€ h+s]Ù,bP((x“]¡€Ho¦aÃÏæea^Ã&Ñ ÔKü„TZŸ\!¡Šý(A±;ü@ÀJDt=¡¸ *> ¶-:C ãõUñÁ°WÅS $@ë«âA±WÅs¾ *> öªxNÑì‚HŠ¿Õ§d¤”3Ò'¹æIÅI hD∠3Šµ¶9"È dJ±Ô6G{™A,µM‡Hꇥ«'V(@’kU0Î ÄÊì q"e?æ…’Ü K(*·ç0 »Ú†]ÍÈêv5 †]Í(¸ðúC¼ƒb?Ä›SÔ•¨=Ë›©0¯ ™ŠºÒ' ”ï5GË<§´ôØÈó(ò÷/ˆZÜ£Iá8£Xzn„ÔÆW`PìÒþþgJ±pE¤–¨$Á½Xƒ¢N— 5~Ò6•V¢`[šùL Zô7¾V|&NN ÚÂ@ª ð ËeƒðC¤»†ÔF¹ž%Xy%cþK0x„‹BýüÔÃN)¤.¤`vó¹Sø†¡6§²0’Jæ˜AͲ Q<´J Í³üjeN!…Qñ·;âš&{„bå.mÂç 8vÈœb¥,|‡àæ/€XùvP*Ä)Ø Kü7¨8!‹if±T›Ã6Ó–æ ßtï>{ñPl½4ssÇÒ»4ád§+Ó UÃûÏI©Vjëp(X…Г–CÁ…úïT@aA (ç*3 [i›æñ*dK…çüÛ/t\²OZ‘±A²z4ÍÇɹSðJ¯8(ÄÅi À©˜-çvÁ.Íœ;ľK³¸6Ï^‹­|¤ÈëYeriÖ M<6€IÎ!¨æõÙMNîšåÈn2¹4õIÈl"ÖÛ³"²CšEá`È/*Ê‚Ó b²Ò7¡ ˜ÃA±KóŠ¼>éJê/!çK_)"ÝçBýÐ×U:£•€ºIð›¹ð30Î9ÅÊ:ýP§(ì®NlàóYùšðPç êœR´ J²Aq¨sF±ô5á¡ÎA1Ô9¥XùBuH¥®Ê¾"¤™@a y–. ©Ü)¼8Vy€b©.ö°~PìÉÅ”b­.ö*yPŒ*yN±TÃ/\oýuëu1übP ¿˜R´r_ì‡_Ì)®ˆfƒbøÅŒb­:G4#šM).Q§$<^½«S“¿[~¶:ÅPç”â’h¶SêœQ\ÍÅPç”â’hFžk•{4ãúL]Œh6(F4›R\Íňf3Šk¢ÙNqD³)ÅR]4äX¨5¡\õ¿ä§z^— ×*íI?Zg¾R%•qæ붑žR·ƒµb?X{€¢­?óãÌwN±2°ïg¾Ä~æûı ÿ£ä¾Ö endstream endobj 6251 0 obj << /Length 2528 /Filter /FlateDecode >> stream xÚí]Kã6¾Ï¯ð1¶9|?®A2ÁîaAHöàu«{Œõ£c»Ø¿´-«%™¤$Š¬±•ÁÚHd‘,VÕWüX³—žýúé§ÇOŸ¿H23ÈH*gÏ3‚1b\Î!H23{|šýþÃßÿùó/ÿúñßÿøüE¨ÚÃÌH¤Œ±McÚú„ËÖ?a¬öôÃåñªì²óK¯›íníh›rd°º4ý·²aûéÙîØþùçoÇn¤¨½hßÓäòžTA‰¨AZëÙ¡ˆR] ´]n{—Dç‡ã$¢—÷¨nIÔèãôkl„àPÄ>ÌùØ™%DtB @'ÌdëäcMÄtщÌÒÉáqqÜ!.½éüC¢Lä×Êv%å  ÁƒV•ƒ„ ¥Y5u³ŠvÅËëj{8›×FÊ>Ì.]ü>?Óhš!F*ŸàoŠq¤¥©µE\Î˶ÕËšÏ~ ÛQ³ŽQ3¤o9“]ñ´\\Ý[G»· áj<­µ,»»bù» ¸ô[q‚ƒ¶§©eñ.ŽÆˆ^—Q¢}Ìšf™,½•Ù²ôZÆL„Vù'‚òÑ(WùÕçÚ*e1ø"füBv_%ÓjTþy`„战$Agf :þôû²¦¿Uˆ ÓÃwWþ¶l íÖsG{‚[œÈSûoÒ1d”6­ ¥³X¯Ý-ŸR(+*m`”Š¦ R˜8W­ç9$“ö%¦Ç+J—sfCÖ‡3š#©©{ •ª4$hªJ5(l©]}9 9Úºâ$S†Qö;$Wšü £ÙÇÎcâ«0ŒJ3v•ìJdï˜ì]œ-5ˆ+ÕŠC™H¢p€Œá1 É¦Ëbh–(ßæB¤v)áé0 ‘ƒÈJT@ÄÂ+ø©†Ð€Œ¸ð²a>ÎBXFç÷1]²#\¹å ¨bðFËÔbO£†äO-y'·æšÑÔÈ“á0¼ÓÖG¸ šo¶ïsòé<+ä#Ãbœ¼žu´ØnžëX³1mSDÈ UXl‹gƒ'&z¬ƒ0W§<-µ“ .Cà^‰µY Ý7â©Xæëâðuû”F<~¤Ø/æ«… ¤”" A‡ ÏûC€æî% P6èàe»ÿêщþÙ—JŠðñRÙ C'¾.Ž2 ·ÍÒe%Ω£!rðˆ\ÔQŽåæyÕ”¤±¥5‚I|+6‹"ÐjSåGìÂ’”¶ ¡ Ĥ…kJVËý•k8ž¡y’jg¶)‘Œ GLÉ•=m¦“Ëwk+Ð/§ì4Õ9Õ¥Ÿ9'Œ "µw6’YiA¼9äc."ùk±[¿ŠótxŒ±ñ§PƒÄQgö§]âì¶ÏËUáS#…ˆbÃvm¨½,áea6×Hb§cÛÍ7ÿ=®EµÔ‘jiuÒ'„¯ŠtÊ]SáܜÃŒ à2ŽÛaý>js†3ð¸ÿ̘¶`î}ÚyFIVWœÆ”íßÖëùîxëán×X‹‘±pÓiM­SA Ùóÿ¬ŠQçeÁT©4‘fÞnhì¶ žÒ!±¡»f~"lä~U#SEÄò¾Ø¾[q*¢|þAß>ÐfÚ°¯Ìnw,ôÙ‡0×J¿/Ÿ=Þnøàm[cV{Ȉ™ ‡ Z#M¯<Åɹ{X~ãI>à”4ÿI!Ñ8ŠàEr°ˆZ’qˆLt‰Ì@ðÛŒÉIé6M,âb²¿‡2Žm|Ep’wî7øMÚ#æHnMK„öß–Hçð…΄²ÚaJ‘þ|Ú¹(±?©͇C‘’ÏsÖÖ‹<Zó Ú»®Ü MFFÙ“‘t”ªTÕ?C·¦äØÍ#u¿[SõiòJ4æÖT#a¡µœÌYa8¥m8’\´Tª¶‚MãGSzHp~nÊwÄÖØ3ÉŽØL¿¨íjÀ>€ß{g÷” lðZ T¹ivó§å|uû›¦"´¢Òµj¤9Ãÿ›ØkUŽ±¦z»ù¦xÎvéµûBÍ ÅæbìªK6Fï©5kî+ðk á3än¹È-º+;‚Q˜ì aµïMBg„ö½êˆ$GL·ÐÝo‹—õr“/.T€° qqŸþ-8‘0¥wÓ#3vž{磢î[ˆ¿*QÝ/xz]ežPøebÂ/†³gÑÛdû8‹>z»HÑáÂÉù‹FC@˜I\lVYô°¿” Â!>¼ÖƒKÏÆàD-qœë«:qŸn9 vMk2|ò(aS£ÔdÊôTNÔ8hjÁ!t*'‘¢ÞºŠÉ_u¤1Ò0à5HªD&>S­R%*aªd:Y o~ALgcX&ÕÕÒoÕéI”Üc‚¡¨èýžš·Fb¾éÑ|Žyë“Ÿ»æ£×â°õ1m¿&B ý³gô; oºÉ—AÓÉ-5‘û¦·G “ xRb"%vshæ/ÉŸ¼k€'¢„C‡`gܹºá…Óáó{&xbÿ{f"8 hx‹ñ§1Ì¢ `ÐiŒÚÇ0#'¾Lóÿ¹°Õ­8 ïÁ˜Tž±»Ëhó˜¯Õ†CšÕ€¥a÷}ó…Þ¦A}O´hVÿåñÓÿê¢þ¶ endstream endobj 5860 0 obj << /Type /ObjStm /N 100 /First 1025 /Length 2941 /Filter /FlateDecode >> stream xÚ½›Í·ÅïûWð˜\zXÅ϶%@°uH"è È‹Àˆ¡5ô8ÿ}^u÷ë]2œ{.mO?¾&ëÇ"Ù3¥µb(­Y”ô´6$ä(h(Û¥jíäзK%X*Ô ±šG-ˆÆt‡¨C2­RÏÍo°¤F3 Ò’«™éÛÕ4nWsPÙ®– º]­AsôÖ¬-ÉІuw›üo´G´Ö#žÀ²x$!Å–=Ò4vRH)GrHy»ZBªÛÕRËêQ ©·z‡¨£#¢ùß,dÉh­K Y[õÝ”ÅõDC.Ùõ$…\›{‘rß®–m»ŠÛâv/>¢цtïãõ*Ê뽊۪øs¨?þÚ®ºµõ^Å`l®4‡*«g-¡j+ÕPóúDÚB-ÙÛÐŽák«Š…ºõUŠ¡n}•$´¸Þ›44]•S -­íbü[Þ®–Ðêvµ†¶¹Â cÜÚÀ¡×W= xz¢Ò\¸—‚¼In\K =ûãw …H1$øiêÚx‘^ý¡Ð‚ˆ™+ANT´£¡\jõ–2rO“¹¹ìÉW6dŸÖMé§mmíŠZò)h-ź:DkIlµ˜?Ú£ ̾ »è2³¨·E±;\d¸{Ð4³Ž¡RHÒ5ûúéS—7HM‘'=ÔŒ˜Í‡.ÒÌñàÄ©Í«i:&Níž-ù¹Ù·dtÁ-Ù .lú–ì0±oÉÆ&¦²oÉû–lèb."Û–ì0±oÉÆ&¦‚ÜŒ~žHÈ͘n芹„ì… ³Öâgc,d˜;Ÿ1-N‹/pì±U_à”k}qBÛM°Ž< O¨c4Á:6vÑO¨ct±Õ±‘ñ„:F¬cczB£ Ö±¡‹¹{Ó¶ÄG%¦ÅÚ-]¡}þÊ[} éXykÁš·Ùµã´™{S¤E©hU±°@Šr¢ Wÿÿ&Ú ûãÃ{bàaò²{Ÿ¹i‚3÷ÈDIóÏÒh‚giC&óÒûQÚØ„Î?I;Lì'i#ÚO8H;Lli#)¦ùçh‡‡ýmhBÎ TPÈÒãy7fe,,ÊsºQº ¢C=žÀèîâ`tìbæÏ°°ñšË·—Ø>äpU®»Kó·b@1ìCŽ­*jÖzÍE™¾Ãz‰rìÄ0'.¹É3`åÔü?6?þ¶<,¯üŲ“¢í¹yMðìþz¸.†qȽ{WÃr³]=i>á õ}¡ÇöCJõEš¿7ƾºàÞX²çæµO8Í•ÍŶ ’äÉyíô(¶$zr¦ÇON»vÔü»)ëex[z)Ðþ!\þþŸ€s »ª‚)ðã×_~yÇ¿zøøeU}…ÉÒß<¬w½òïwÄ]âjk.Ê+%Ô¶ý—ן>üx÷áòúå«pysÿÛ—ðî÷ò&ï.ߣ¥û_>û—PÖfü¹??|ýôáÞÿ–mûÛßîúùýw¿…µ«*£™#ñúý'ÜŠTÝ>¸vóg4¼~•Åý¬_dÙed…AeÐt¶…Ê…Ê…Ê…Ê•—*/Õã­l´²ÑÊF+­l´±ÑFåFåFåFåFåFåFåFåFåNåNåNåNåNåNåNåNåNåNe£²QÙ¨lT6*•ÊFe£²íÊ#a  ƒÌ 0¨ ƒÎ€ÊBe¡²PY¨,T* •…ÊBe¡²RY©¬TV*+••ÊJe¥²RY©œ¨œ¨œ¨œ¨œ¨œ¨œ¨œ¨œ¨œ¨LˆŒ!2Bd„È‘"#DFˆŒ!2Bd„È‘******W*“A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42hdÐÈ ‘A#ƒF 42h;ƒ5î "Ê 1È ƒÊ 1è ¨,T* •…ÊBe¡²PY¨,T*+••ÊJe¥²RY©¬TV*+••Ê‰Ê‰Ê‰Ê‰Ê‰Ê‰Ê‰Ê‰Ê‰Ê‰Ê™Ê™Ê™Ê™Ê™Ê™Ê™Ê™Ê™Ê™Ê…Ê…Ê…Ê…Ê…Ê…Ê…Ê…Ê…Ê…Ê•Ê•Ê•Ê•Ê•Ê•Ê•Ê•Ê•Ê•ÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊFe£²QÙ¨lT6*•ÊFe2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… 2(dPÈ A!ƒB… ”Áwsö^âÇÈ…ºžNø7ÂÅÏ`Bõã‰k›á:qˆ„]pkí‹ÿæIµxŸÖ†=±ÙµãÔ‰&|^Ó£‰ c ˜D&zðã™þ¤#z]¼Dßàbâ¡€ø»iÌ{tá‡xv‹ x‚¨±/¾F?LhY|«7v1óûg~¬í›ÙÃE†‹xKZ”‰¢­?éŠZ–¦·t…M<6SoEðpÑËR1ßà¢Îœ*0_ù”¶øâ̽¨ÕÚüÛvÏtœ*þºÇG€.8EåºÐ4“SßSžô…ÓÞop‘gÎYþƧµÃ…ñû1 .&§ªÀÖ…‡‹PÓ-}Qò\¾Ô¯9/@ÃMÄ5Yý¤ùÚ›û™oiD’.iý‘×^M³Ü+%ÝN(¦ôP±¬ð ?ò0ó;åâß!Áòÿ0AJG&R:Rš ¤#2óˆý€twq@:vÑO€”.éÐÅÌß;`¹»¬?R¥ ÐÙ¼Æ]Ìœ° ÊhyÒ å´ß@6 'Ì—êo£XNSÄÈ<×Ï.ŽrJuì¢@*]Ô‘ ÍõRw©cíR邤]̬d©tARÇ.Ê ¤ÒI»8cá‹}QµGP1P½]+¨3t€º› §#S¿íspº› ¦Czƪw3qP:4Q§î‘“oºýõÑ{ä¸.~k¬ÈÔkß!ÃÅÿÎ á™ endstream endobj 6253 0 obj << /Type /ObjStm /N 100 /First 1014 /Length 2204 /Filter /FlateDecode >> stream xÚ½›M䶆ïó+xL.lÖ«H`aÀI€$@N±o‹{av csð¿÷[TS=—H} `Ô£–ø¨XõVÅ©­q*©¶&‰„ã@›ÆAMÒ=,U¡8ðdÛ©–|;ÕS—¸¼—DÅâúN‰¨×7qܲÅßpsµ¸E×DµÇ=zMälqd‰Zíqä‰zwi‰‰kõÄ\q—^JbÁíqD‰+뎴Õão’Ø#Î2N”xÞÎxPa š fÆ­´Žïá#ž?Ž`ãm<ïÀÖ®QÜ sOÆ_ŽI1×bæ¬rŒé5wIæÛYM6†ìR“—íZKNÛYO.ã΂ߨ¤'¯ÃÎZ’û8«”¼UÃÊðŒí¬¤FãΪ©qgÓšš´°®Zj5¿«§fc\m©mTÚS&éµ$ÌbŒ[)Á†cT†Ó [UI¸gÜ·ïuÌ/nÕ= ÖqYoÛYO}£ÂG*´]Üq¸y–…÷ʸ^J³ˆqàÎðé1.Û<"¨ôá"Þ¼¾|n '&‘qFƒãË0¤Ûwéö×/ßI·¿¤?üòïŸ>eoLß|ó†Ÿ 6pÊŽh…s’ÁAõÿÄ24Øb0!¸ÔÜŸ`àÒBÔž)”¿+¢ˆ–ˆ·žá¯D )¸g†NTõ /ƒâl¨ž]ê‘-B¨fBJÛ!ªe‚ŒCèó1!àÁwQ×GÇd˜ÑqÆ |AtÜ!¸”Jx ¡ !¸HÝß!!JOø¥ÊBj9Š•BJyü ÂWZB$7}ø%kÍ­<á—¾Ð/Y[FzÚ¬dTç }¡`² {ç—­d{b2P$, ^†õ¥æò”*ÌŠ·ˆ¥ùkJÕ„˜©ã B—JÕ½˜˜eâ)„/„èˆPTSb—‰3ˆÚ/‰ ßMž°„éJ™h¹ñ;KT EìD_XM 0‡ì¼³„×lÑœBð!Ê’ÑN=B4„”9• btRÌ=§Ð ‚tRÌ =¥P» Jï{”žS´ ÂtRÌ0=¥0¾ N'ÅŒÓS /ꤘzNáD*F—L™róˆvE23PÏ º_§bÆé „,­mf˜Þ!ö0=ƒXÙîQ:!f”žA¬,°ö 3HÏ Vftj’cqJ; @ôacµ·ôlJž)e½g*ZÑ>–z7ÏÔîYIŽòØÊ 1‡ácYV‡N1¨š¨*÷`Bêú¾XsÕ}ÕH]r)GÓAíˆZw¼CDCÆíbåÒ•)º*OŠ0)M5ÊE….ñ(w¬]3BT<€¡Õrˆ f9Rmæå«5ƒ\c±ù¾œªŒ?ëQhðJÕŽÅÜ…BYúc¹F¡]§Cקrq­î©\š£Àà£NŒ. ¨ $‘Â$Ã9_%VÑý$aXóÀ•3Ü2 Øäe2±y¦ecÚ=SØá+väu½LHѯ§Lin¥½ˆbÜ9:î½ ?„ð•õ6çxm7òÔŠ ¿9¤CÆû‘^‰.÷ŠH¦^Ú%>Ô«•®‰G/‘ÂQS)é¾Æ͆yé‡zÕקVÉŒòfK\Ñ™¿ª´ºÇ æeV‚b´£ÕþrÁ|P,ñ¾›x3D/‚`çÜÓQ,£ÒLŒ2Ç= Pu6~•`Ý[Aê¬wk6 óªG+y+]%K¸C¬ƒ²?ênÈÕQg.+w§^…s´±]cÓ+j%ßWY¢£Š—ÿÕsõhHK.±Å Xt0rÅ*)‹£´!PÁK `­½è}¡¢ÀbèÕ9B]/;Â](N!à4ë Iqo€ž€X¹HQPSÈÃMˆÛ3+—üQa6{gŠû›ÁS î¶üÕà4;Äž€XY_AœáÁ­f«ü E¿@)eDìc ‡èä/Èb“âžÅÎ)–.¡hw´ µŒÊÐîê±— Å'¿ªâ¶(¡Å]¢žÕõE¢> Ù36ÑIlù¡– ¸²¿fãr"Ò% ¯‚Î&@õohIÔªM[(œRcíL“!£›‚Xá£(ºa‘†•†ˆjaÐ 4êèŠ>aЊz2ð‚é˜QsÆ^ÝSŠ•/?Ð{¢X² ÙXV<¥XúâA åa ›ÒÎ)Vꦢ׈mŸÝ,=V7T/³´¢_àÐM´d¿€nšè«(î1R{ˆCÄH¼{¨öâÙ)¦-N)V–Þ3F&Å#§+#uÆÈN1cäŒbm¤Š£å~g‹hK"³R¬ŒÔ™Ej‹¬±'‘Š‰ò£}̲ЂŒ¥ñ†öÎÐb µž3ðÊ–,V×5ÞÐn ­õ †•¥·8¦ôá—þÄZ˜³á‘1ø1è\ú‹öåíÓq§˜óq ±R®öù˜sBÎ(–®ò¢¬Íã?’&…‚ↅILQv‰™ ±Þºý/Î ÅÊ-Š ×$zg‰x_7þ ãŒÂV 7\³< jl¯ö'L±8J¡Û±½Ý¢¢rTÈ"ñ"huŽ^ã¯Ü&-^Èñƒ¹L¬=Aaõ‚ViìÀÚ“˜Ññ¬Ç~Íß.é¼ã endstream endobj 6254 0 obj << /Type /ObjStm /N 100 /First 1015 /Length 1940 /Filter /FlateDecode >> stream xÚ½š=7 †ûû*“F+RÔp0à$@ UœÎH‘C° Ã)òïóR3ÔnµÚB:à Ýîhô É—¢¸“Ze\j5:Š¢qœ‹’“@:È.ŨƒâòñUuõøª¹Ögµà(äª#rÄŸ0bÜ2fý 7—¢Ë4q”CŸ‘•ØgdGµ°ŽŠãúŒê˜¤ÏhŽ¹ˆË!ǪŽÈq~ˆ•6égÑq MGx‚&QGÉÅPŠŽ²‹L¤£âb”>£º(¥Ïh.fÒ\,¢3pq¬•°±Bgà!Q' ÓeýBäø6;I¢÷£â$×~¿ê¤R¿_sÒú·ŒÇ }.ÆxL¬Áxü(Y?ƒ¥*†™2õë’KåøÆ©5è¨è bL;¨".ÒRÀ_äª3àÍ\IgÀy¹%µKL®„ªÏ—&%ˆÅ•˜ô9à¨"êÿ›+™uÜSJÒB®ÔZ±†0"ƒ•¨””@ÄUnÊ ³Wa%ÀÃÔ””Æ®¹õˆªÊý~ÍÕ–” ×BS@6æ„5#è’²­Ií׉k¹¯  vPaqDª®‹)„þHX“à³~dž!÷‡Ê¾Âʘ¿¸‰:%sj½CFÃgº@F‡ÖŸ,#†1îÓÄĬ÷…Dˆ@(‚HŽ °å~”@Tú V£ZVƒT8ºDÁjLI …ÈÇm;$ÂœXºé VãÔŸáMœ» VƒûûX[g@´P< +V‹Ìòôüütùå¿O/îòöÇ_ž.ïþýýKÿÿ§¿?üótùæãç?_>¿H á×Ë—/ß¾§þÏÓåç—?¾¸÷1/0MJä3¢#VñrD¬‡qÝ[÷üì.ïÜåû¿|t—ïÜWŸ~ûëÅSˆ_»7ožð·€¢‚ª4 âÈsˆœÖAH(>B‚Åsy„¢„…\<#6…€â†ºÐ"7¼±DOš²f,m!Bª»R 45}Ì)ÚJ 4Ã"…è[yÀ±ðB}¤â“î±ùˆ}{›¤5lS¾æ|Ç¥.¤(P©:À(TŠ”6§h+)dª8)°“ûHØ"’, E¸ÚB"dªñ1¥ˆy¡-2û„J(!i q .šìØ)ßB½ã‘´4{³T%ƒ¢Á&ZDN)ZY™¾ÙënmB ÈœÁ³Á#” Ðzõ'²ñN_æ£0L)„7x䤙Q0¯ÜF˜½ÓƒŠÕ²xNWn# œTEj0ö#¶ºrKeZ¼R :{ú˜B¬t‚Së÷Ѫ×cäœ"‡ Bņ^ÃMê$lðM^+]˜P„:¥X&Ô“buJ‘ã¡… uN‘VÆÅq ’†‚«l„Ãõ½èÜA¨Ì™Πl¹G‘Wz$[)hôÈ }¨ËAUQ™ßÛØóÒ²Á±[òŽÔ±B©%WΞÒÝÍle¾hв”QH€R#Í)x%…(ø ÁHzÀ\W†E„Påƨy ÂS,­÷ö²r…ȀЬ1ƒˆ+‚Ø -_)›Ú ›S¬ÜED2ò7w}–Çä«bp( ôZ:5…DÝßóU!Zú¿VK«22eÃŽŠàԛěÜÙEVfïš}*j⫦ŠèSï9Wˆ÷^Ï Èú-.ñõ¦g€Ô‰$~ç„ZÖw ƒmc3†¶¾·8ÎkÊÛú Ë ¬i1…´¾g1 ΞÅ‚VÆ¥à<Îœ¯HR¤EÅœbå– 4_) ŽP±¯ÜàíüŠ zÄ1®? ©:™Ó8 iOˆ^©[`G¡AqêtN‘Ò¡žvz€¢¬? Šó(4§È¼¾g1(ΞŜ¢†õ=‹Aqô,€ˆë{âìY<@±¡Ý«'"ƉhU¥“Z6Õ(L¨3 Žš‹F1„:§ B5 ê”BdƒP„:¥Xš´L¨Fq u QhƒP „:§Øð+@ÌAvº µ|~ï@¶E¨FaBQÄ6õ¤BSìªQ˜P§T6Õ(L¨S – B5ŠS¨Sˆ¥½EªA˜P§eÇŽ*Íçr³£¦ê“Ü;VZÿó~ŒÙë»z1£ªh ‘ìS½ÓíÍÚÆp¶ ¦ ^0 g»`Ê°£]` –4g ¼áƒ°vÁ¢mhÄÙlžB,mœœ½æÑ_‡š",m›œoC „óm¨)ÄÚ¶Éù6Ô 8߆z€"/Ê ìm¨ ꆤÍHrÓ¯ˆâsäWêÝŒêÊ(,QL)v¼ca£ºšS쨮ŒÂª«9EÚP]…UWSŠ¥$«®Œâ¬®æeCueV]Í)Ú¡¤rS\!Zò½±—ö†NO“é‚6Èô€*AìiVœ&Ò)„Бž¦Ñ9ÄŽÐ qJtÊ°ò‡Ê!Ñ“Á:…XÙ. 8uÅ›­”‚/|ï7ۥ瓨Q˜Fç;¶Ò“bˆtF±¶]b"5 SéœbGGÑ(L¦S ÚÑQ4ŠS§Sˆ¥ÝÓ©A˜P§yC£‚kõéúZ1¦äòP·äßÒ¿_ endstream endobj 6255 0 obj << /Type /ObjStm /N 100 /First 1015 /Length 1823 /Filter /FlateDecode >> stream xÚ½š=$·†óý å„Ã*¿€ƒÙ$Š$e²}0 w‚püïõ§‹³‰¦6 8ìqv§ÙÙõÙ$kêR¨©ç@9kA×¢…òhZ¨¡äù|ª¬…Ú˜ßapGa¤@©’–(ü‚£JÖ¯ T.e~O•¡uàzj\µTõª7Àíhà+(õÀt¯yf­™R œõ¶”(páñ‚ƒ¶fý]Ü”—Z0ò¼MHu^QC&TŠR 9gÖRYjÕÒ¹¢úJ”BnY´D!÷Úqâ )i}”ƒPÖúH‚pZ*A$)Õ %+µ µÍ+zžæ#ÈÈJÀ)”Ô”€)N÷`F‹pEš°„‚.ÖR ¥É¼Ï¢7­õÑ$%Ðn¢û_ñ‘ç_õyɼV;¢áÚè:kÖÝ“¶\›:²Ö‚fµÔ´¹†ÆIÛÆ´|ÿ+ž¸Ìác«³½Àm-k-B¡Ýû ýÞW’CŸÕ“Hè\'d ]’’J ½Ü¯m¡×¦-—zOóŠú½¯J ãÞW…j©à…øS•†Læ"aÔÉ\JM” Ô0î}UWéÞYˆB„Ïì­2Pä¦UÃWH)jˆÜ±ŽÀiÊC¼^Vˆãyb¥õ"Ž(¤,wCË­F¨t¥A° BHqÐZ„Ȭ¡©-½iס•É€&¡® ‰ç…à˜­ÀÄÄ|¨€FPÌV6Üëì"f´ Ñ0»°ãn9ÍgDA’—wï^n?ÿÿ·áöÍÇŸ>¿Ü~úß?>ÏÏ?üçã_nýôû¿>üþ>!5¤_nßݾ¿ýí=Í/·?üósxŸ;GADqï}šÇˆ­åÑc« _û&¼{n?…Û·Ÿ~þn_ýöë¿?ÄÜå/áë¯_ðoDi±@<ÄX!S®EF¯±§þçm#CmQCCeŸaldh`€ ‹¡(ðÛe ¾bpÔôl’$"©¸ ¼1 $µ¨©a1ЈŒŇ(!˜#cX]Y"CE"§¹EŒ›xÚo˼1.¥pÄX¸ §Ž`.ƒðFø©Ãõ‚h#b ðvF’e*!CbÂXáç©~VŽE[Ž§P1\et„ˆÎš$b,~’$RÞHaã†QØÀáSÔy¹ª<úbå —‚ù@¢0Š o¡Øœ Ì*EA¦7õEÛ©)R楋âÒÔ…Èù€§Ù̘CšG±3c-Q‘=›¾†˜¨ø}ÏFsD5 Õ¥¨å€¨ÅÕ¥è逨Fa¢úr@T£0Q}Šz@T£¸Dõ!ÚE$ÅV^e%Å!üdžGt@£0E|Š|@‘‹b)âRd9 ˆQ˜">E= ˆQ˜">E? ˆQ\Š¸"Æ2ƒ°±Ì§8!*wÌt_e4½={!KD5 Õ§à¢^KTŸ¢Õ(LT—¢ö¢…‰êR´t@T£¸Dõ!耨a¢ºˆJx%•ò•[LùYºØ:®›¨Fa¢~QŠ%êE±Dõ(r:1¢…‰êRP; ªQ˜¨.ÅÖ7eÕ(.Q}ˆ#ªA˜¨.…ä¢&¼“Ž‡§TÐ#ÏÞwN.–§„iêBÔ‹8wˆe©qb8½ LRbô‚0G]ˆvÂÑ âRÔg¨½ÌPbì7”Ç‘_ ¥)ëúá³½±/§‹Âõ)dÿîu¼…H[»c4(R}²¢V÷ïŽ-†Ÿaçâ{åÃttóvÆåhjÛb„ˆÈä3ðΉ?!ióƒ%êî¶Ï°3]bÀfÝÆ7ˆ+i»ù@Î^Eâ> stream xÚí\KoÛF¾ûWèØñfwfŸ×¢IÐ-ŠÖ‡M´D9BEI)'ù÷]Y”,R$%>v¥¾$¶!ÍÎî¼¾yìòÑÈÞÝüpwóú­2#Çœ=º›Žç ¥!˜F7º›Œþúÿþﻟ_¿Õâè£h93ÊyBOúé×ßü¹ýØ Ï©sÿ/gv´Þþºûñ÷w~A­Ž¨Ü¢äÌq;ºãÿˆ;bLT™KÉœ”û•_å½`5ÿ=+ö߈…EüŸÞèjO_RMœ¡dÖôfLŠ2c¯¹ºÅý·àgÚõgMvb-È¡Ý ÿMé´ÿA0§ÔžEÓ‰EìôàpzJ¨µ¢°åÑl‘g™h¥.^×S JJgà<Œ"8Ë;xE+ |Õ] ÛÃvb%r^‰€w/põ@@ÆâÁ)P¸@ñ%]ÐÔªƒ6¼ÿø ³))!Ä0Ú?ËD›>îMï©X‚ó0¼‹­Þ¿ µ‚@ìyÃÞ‹¸0`§Úb)*ò¼N®µezíX¿?h5ö@áµA‡×NDRíÄ.)-"AJ‹² 6BIÛPSh›&ðê(rÖhE Bc»èqÁã4ZŠ' 3bA0OJìcó:ìzy¿I³])¶À8f­íŸ_Ô0À€b0l ®QZÖ1­1–Í…•fÑb­'ò’^Oúc=ý­È‹#§>QŠ’ÉqorÞÔš¤X¤n˜GM{òï¹Ê»$²ÈP,s§³É&š§lDµdF™#Š¢By¶M å=M»Ê®Æ2#dÉÕ¤Ùf/ªœ zg£úWÂ9E‘º RÔ29Ežöâ Î Ǥ1%tÆSì, ì'Žì¥¸`(Ån´r–ÜM 3ˆE7ñûc’ÌÁ ŠŠ‘³Á‡ àˆ'Eà¢dZzÅ`ŠËÝwÒ¸BzO?õÏŒšv<ÈBS”q¯Ý‹Ì ‡½›ýH¦°¾Óxž,'ñ<|iµD·›G&†1Š¦QH¤s´A©¸êÒZà:œôŠïó¡èú€@Ñ<êžL˜€þ"‰g_¨ú–ýõsù–´²¨ÕÅÀÚí=yÆÒ8ž„òäZ4r”WjJÁ%K¦ËU/¬€Æu”ŠbjÀø¶…æÃwkУöÄOgû$¤ˆð í£î#^ÍuÐ<(žÿ–#–DÙ:~¨ÊŽ€Ömd0^ÆÓzzÊg[N œm¡:jé½õ<ï;ÙÌ£,DïöÄjRLå˜1zèMË3PŽ[ŸØBYÿÊŒx(2:9ÁâÉ/ç‹U08Í /°ÍýjªÊ m½«Ï¼Åוy;¶ý±¨Ø›$‰ÖŸƒ‰Ð¹ð EB Ƽ$ù_]’ß ›„šDÙg)|6†­"öj=[d5¡ë ²‰‘`3r²–Y0•ûeq’¼[Ϫ¬ñТwÐ4×mg\Tº§ãh>®8Cã1¸ö©%O4 E eZV ¥îuÝz=~ ³uÕaë«Õ:NÓߢñ?ÑCüG­³Íêÿÿ[ZÁ”Ž qk·ð ]¥É&\cA6ó”GàB¥<‹“Õd¶¹´>Ÿ—\jV#·a®ÇQ”’®½Ê®î-ÕpÃgê.…qí½ fñ§ªö¿ÿ¨ƒþýAqI (êÛØ …ò™Ž¢Ù.Ù|¹xèåJjb‡SÕ>5ö[É¢ûy\WŸ½íJ‰aíJ‰Ë7é›ü8›ÄÁ\óE‘‹SµÃ›ë >ª[Qj˜eëh‘NÊsÄþv~ | „àKÈð²0âmEÑ鶻uÛ½bVI€ ¤·›)n I¡6’w(Õi¸1T7ú©ß§Š7þ„"(ð G1ÄA2$(î§hÞS†™YI—÷“jàË{ª9ÝÏÛŽ%”6K¦³ù<ئ™B×éNðð\÷` \gÉ㲩ì¡FUöX:¢òÿ%ƒÚ2%ÄHÏ“Ë r3Nf‹éUÎ?Ãÿ° ›Ï?kÕf1[/—Y¸Ô>ü¤¨ xgBXŠŸ\§‡Ï\øÇiPœ]©wÛ,ï?ÿ½x‡+ö«IõÀCãÚ\êÙ‘ªëYoKrrèq«3 ¥ãžõ>c˹œÄÓh3¯òŠÚ1ƒ\ÍofmׯEÍX^Òîlö5Rðˆ<Ø?>÷¶CLBºðÅE‚²'yS¼ƒGržŒiMû0õ8^>Ö5útïRpøšùË-°oøX›7DNµ½"|Ööb'˜­fж„jÂyáfÂ@hhš{ø>=uN÷êcù<‹’8û°¬zÄÀóø¹õ´|3Ñ|ælèéñfaoós°P?™eät7ž^o(ÕÝ‹ªÙ±Nx¡Þ%Ž=ƒ?¥š¤ºÕî>;¨U6ðÙt虨£+€¦Ó@KðHéU>¬cÌe7Ö`øÇxöð!Kû(Ws¯“än’çO¢>ðEÔ®a~mï zÒoÜ<'UwWjëöåÐáÞ6œœwû®rÃu¥ Á©åÿßÜÝüŵù endstream endobj 6256 0 obj << /Type /ObjStm /N 100 /First 1028 /Length 2520 /Filter /FlateDecode >> stream xÚ½›M·†ïû+xŒ/Ö¿Á€mAI€,’:Èò"0bìÒ pþ}ªzúíY_†„” H5»ÍâÓl>ìbÏL¡Æ!…BM { Kö é݃²ˆ5”RBáÌ¡%kÅÚCS;XYC—íà$u¾³¨aöL=‘Ü<¢ jÿXÄA¬½G¤æê‘iÝizšØûì%([ƒò¹m ªœ­ãÓœ­_6-–Ê" Ú¸zÄA{!$ädé-ÒùüÛl§Uü,’ žÛÖ û)¦rÍý΢r3ÜÂd§í·ä[[ò_l™I|šGöÒÒxd§_úÖÂþi²µ°Î{ñÞ¨…šz±>¨‡ÊìçÁ)TÙÚ2…ª6q¨eËlCRëvF6tµ›íbœÛ–ÐhËl'ظûYZ³¦BÖ‡Ò²_Y6ŒVüÒ²Phͯ-Ûµo½x {Ù)yb•ek‘íò–­E =§­E v[‹z­Þ‡MÞ“·Ð(%Ÿ¬d!Uo£l¡$o¤6á’ª÷£j¡¶‡ÙB‹…ÆîaµÐºð°ò?Ö™Í "oa¡ÿTª7³Ù@”ýb°] ¢¢>ü6fDµùøÛà’MDb+²±` vi<ƒÙÈlŒÁðªõfcCÖóë«_[¶1!nêͪõƽy³j½ ù%çÊîUöŽ«+&ç¬7Éç¬7)ç¬7©Íäa;W’õ¦i;MÃ#¥mìTHe(c"5!<´Þ4oCíBkMÞ…)MÚÄ'IMÚ«Ÿ…imã”ôîÅ‹»ÓÛÿþvNß=<<>ÝÞ|ùéi{ý·_þswúþñÓÏ÷ŸÞ%['ÒûÓ_N=ýðŽ¶w§ï?>…wÒ9J÷K×£_cÃ6el˜£)k‡}^¼§7áôçÇ·áô2üé·ÿ¾š¿ ß~{gÿM5ŠÍ·ƒÁ:w1‡­N„`ŽÛE„ØÿÔÇfÅD 5 [ÀŠÜ#©ÞBQ&RŽ6ß/µÇToh!Ç”Ÿ Eo±÷¦¦¹þœâexWÜâ~ §üó_¶ÌE±…£²Æl³ìá˯¿¾ÇÁ¯ž¶¬¯lÙɶn­^Ùz¥™ö60šyá«r=¿°§×Ÿ?¾¹7úpzýòU8½½ÿý)¼ÿ〼6È»ÓÖÓýÃÓg¿ólÝøy~üòéãýö39ÿìï÷?ÿòáûÇßÃ6TÅÖ¾ÚÙÎýõ‡OÖ:ØBÄç·aþlo7rçÙîãç '„€E2÷=³ß¼÷€0A 2‚‚ "h™™™™™™™™™™™‘™‘™‘™‘™‘™‘™‘™‘™‘™‘YYYYYYYYYYY‘Y‘Y‘Y‘Y‘Y‘Y‘Y‘Y‘9ã'ùø ú*è« ¯‚¾ ú*è« ¯‚¾ 2d.È\‘¹"sEæŠÌ™+2Wd®È\‘¹"sCæ†Ì ™27dnÈܹ!3Üa¸Ãp‡áÆ; wî0Üa¸Ãp‡áŽÀ;wîܸ#pGàŽÀ;wîܸ#pGàŽÀ;wîܸ#pGàŽÀ;wîܸ#pGàŽÀ;wîܸ#pGàŽÀ;wîܸ#pGàŽÀÛíAFæŒÌ™32gdÎÈœ‘ 8(pPà ÀAƒ 8(pPà ÀAƒ 8(pPà ÀAƒ 8(pPà ÀAƒ 8(pPà ÀAƒ 8¨pPá ÂA…ƒ *T8¨pPá ÂA…ƒ *T8¨pPá ÂA…ƒ êîàû9•yéëÛÈFVyÙV£X5è[_²Â«^+¼&Öã䕯ïØwˆZbòÍõB&–ãä…o¾ŒDϱÛì¼bâöˆ¼ðõãÂjØ}‹;„PšaeTì¦ $Çm[:†à‰Òâö|h‡È9V[o€Ð‰¹Åš/#Qs,¶PÝ1sN@Ñbÿû“8jV+_£Xá(( 阢-°tH‘WXºSšŽ)êMAOÇ}§ €¨CŠÂ DLRT^`jö‡\QK™®-UˆºCÀÓ1D^àéM‡--Ðô qX:†Ð–ît QHºCÀÑ1D]àèE‡(ª9úŽçpÔ†$—k E玂’Ž(8¥’‚–Ž)x¥;Å¡é‚x¦ €§c ]à)( êbæNè0uL¡ L‰þ†$DU‰%•ke¨;<C¬(zwh:„˜¹)<4=C–Ž!VÜLwH:†¨ $Ý!àè"¯¸™îPtQêEÙöÃåÙÍT(–L×(ÚGAI‡uÅÍ°tL±ÂÒâÐtLQh x:¤h´ÀSP@Ô1Å QAS‡}Å3¤ÔcNýb*õXú•õB¦œ00uL¡ LLýº0u§8LRðŠ²0uL±¢ìLS”¦‚¦)d©¹Û¶8?{G&ÕX•®Q,xÚ{PÀÔ1Å‚Â÷ €©C •ù¦‚â0uL± ô=(`ê¢,0õ €©cŠ¦0uLјÚl[Ü/÷Ôl³´¶këE]°C=(vSo Xa*(vSo è LÝ)`꘢-xûô ØM½bêãÝ>Óš«í‰üCÄÑf¨QI¬ýê3ß©oF¨¿z¡¨S£1÷™w³ªþ™Ö¢Dºa(„¦>ç”í3­ `J± ßB1Sµå¢˜ŶÌŠ-ZÆD±¥~mK4sÉ*¶XØr}04[²8ß@1uR4£ =(8Ùbq„Ìü 8'[+ä2̶VÔrÅÔ‡ß,Ñ¿_‘mrøùØîlþ‰l÷–Æ_í9ŽÚZÑL©Ñ¿B6&ä+˜V[?¯¾Ÿ=sZŒÂ P4[,To¡˜¹X4[±D N¶X”›Æbêì´%+· §Øú-c1óm\Ÿ­= 5 CL]³X "=Š’¬ÔÌ7PÌ\³¸Ø½BôBÑR,u 1uÍ:ê^®¶€^Ê^/sê׺›z‘•Š?IôÏ…z‘•6(Ÿ,ýk-Y(²ÅJz)²ˆâ5†©¥7J,0 Ä0ô6¿À ¬ëBº ¼ÚŽòjÀ0õÝBÒíËlþ*63¸Dÿî­Z¥!W Ídàîï> Zü“=cšù˜U& ¶"sˆ°¤ÈÂ^cŽ!VÔ˜;Ä^bŽçÊ {…9†˜[a¶ØÊe Ô Ò SBXæ˜ZjôïƒáÎ¥µFMíÊ`‘øÃK endstream endobj 6427 0 obj << /Type /ObjStm /N 100 /First 1015 /Length 2057 /Filter /FlateDecode >> stream xÚ½›K‹$7Çïý)t\_TŠ‡^0l/ì|Zû6ìÁÁÃŒ1³{ÿC•RõeSuˆlºÕ“©Œ_IñNUáVC …[ $bƒ¸ z šìR§EmÀ¡”f -± 4t7ç@©Ž»K Nú‚QµGŽûñp­cBTfMU“(P«j#œRµ‘&%i`®ÙF9°¦f£8kzÁ¨‚ö>·n÷«ø]!M(ÜaÒˆ‚0™4â ¢6ƒ$ˆV“F¤I£¤Þ¯– ­6È Š… ñ¼”t<¯…8ŒË„ÿ´ÍjÏcZš=%h#£g ÚïWsÈé~µ„Ì”!ƒ«­±Ñs YïW{Èe¦AƒSã1 *œz±iPxÂئU(11Ûç…¢™L !ô~¤ À†FµØs¡œD­Hƒ&Âpî7@Óý Æ<ž€m'Ö!{LœÇ XXâÒM)±ŠÄMlG°US´ ÃêlbLƒ4¨$¿¼{÷rûá¯?>„ÛW?~úürûþ?}÷ÛÇß_n_úó—¾Op é¿·ß¾½}óžÆ/·ÿ|øùsxO¹GÈ…ž×ÈXxªM©aPFŠû¾ ïÞ…Û÷áö¯O?| ·†üñ㯢æ/—_¾àŸDÕ°:චØGˆ.±cƒ&ÜLì°Î=EK~L 04)$Å5‚B)DbÓ‡VpN±¶'Ö‚“£Zp–X뫵¨ @hx‚ÂS/¤ãr´ˆJ¹@ñL[3Œ@N(\µsÚ館%¦ÂÏP4OCí1åWkÑs„o~‚B»§¥¶Øáf'Boì¡{Š"ž– d:‹BrlòÄZ uñ´Ô-ž- ü®ˆ{ vµÔk~µ5Ç‚½§Ðv¥ªF¤vK…Ñ^O(Šg0ƒt2_)-ƒ\J1§þÿ) yj‹H¼‘æÂ`‘™¡’.÷˜K9 #Õ1˜!u1ÿƒ´»Âm`)K¬I©Æ,|BQ<ƒ7¬A ‚5HÈUjÒ‘ciÊ1·“ ‘ì×--Gr­ìAX‡ïä9—3ûpôXXÕˆê•4ÓRφ¶i0 z–òUÿ†Å¢( 0ÿµ¥àâ_œ.Š£8ÝS]à*’Æúªyc:ÊéÍYÓWLŠé+¶YüõÂR-ëŸ,½Hb½¥3 ò׋E1õâm)½Ò¥¯˜n Ÿ%zZýËÂq”…[ÉêŸÞP¹Ç’Ù¿±ØÂMÎœ–§nÍ£ qèæâ‚~Ú‚8Ìt‘ýCú‚8J-„°•>!8!¤?¡ê¨œÉå¡—¨nb뺇¨ž(G[{è¥eßí ×R ©= J}ÊB=Ûî(ªèƒ¢¥h'1öù¿‘UôÇË[²WʧLþñ|QLG±§¸ ù_Gò¿§p}…|dÿ“bfÿ{ Mþéÿ¢8Òÿ'(ŠÿËÛEq¼¼ÝSä ^Þ.ŠãåíéHp¢\–Š5®gdÞ‹bZê–¢ë–:)¦¥î(8]pÌbR,KÝR¸p˜–:)¦¥n)\»›ÓR'Å´Ô-…Ê–:)¦¥î)®°TÔ‡¯b*Ò9íoº–!ÓR'Å´Ô…¸z­Y#³un꣊Êý­œ³™Gü…§¿hŠ²T§{yf-\#{B)’Ûƒb–{ ¾ ˜G°ƒpm9¯:`BÌ:`KázNnÖ“â¨v¾=çé³~룯gï'Î)®èë-Šé³¶ž2TØyx VûžDT;‚Þ±!§îÛó¥¥Ø^ûjÀÑ5Š}` áyðEzvtÿ€PRÓº=„ë¹; gß™Ö^³/vl!<#ˆŽÙ¾±S¬:Ï¥@&zJáé4—NLˆ©;òì².¥8(–Vl)Z¿@+&ÅT‹-Ewl\¨ØÉûWkahûÂËžÂQ/4Û‘~PØÁ¤öÄZ]á6­L–ò0”É™ê[ûÍI1mdKñpœ%ò¾¯ endstream endobj 6428 0 obj << /Type /ObjStm /N 100 /First 990 /Length 1268 /Filter /FlateDecode >> stream xÚí˜Ïk\7ÇïûWèØ^ô¤ù) ¤5n =„؇´Æ‡6]Jhðã@ûß÷;Ú}ëSöú6ô`0ìhô$}FšÑŒlÜ<•dÜZª,!ôDÖ ô’¤P5)[hy|Ü9µÂ!Hêû.Mµìû,U*²ä˜’ÇT˜\|ÌÕSµ¢É¤”T=z¥ÔT[ôÆrTŠ…ĉª”$¹„¤‰¤Œ–H¥n 9h}Ì×µ}/,èR!Õ’¸ŒÞZ: Qb‰‹{H’Øꡉ]ÆKØ›Ž5ªc#êѾ#zj1‚°M1 RM¢k%±#È’´#ˆ!%-‚Þ®èèXRº×aÞ cÅnl ¤©†“jáÐI‹ B‡Iµt±aZÜBRH8.l3z+:°õ!QÝpL¯•‡ßUïš@²¡cHmèYûÐ…êÐ…(t’„Î@E:ø‹’džըÅÖffØÁ-øxlgð1ì`‡s)Ãvø¼+tpAe:Ìn cã¸!a¬„ÌÂCfÑñ˜Å†ÌÒ†kHØáŽ54ìpÇJC‡5T†k¨ÖаÃápªmè°†•ñÖ°:tXƱ6ì Œµ°C{HaG8—ZظêaéÕÃŽjXÃÑA¢v@ÂX·¡‹^Ø÷Æ,;(&ÕVëÞå5†‘!hµIè¤MCWC;..6ÓÍ?Ÿ¶iz}¿{ÜLןíŸ?Üÿµ™¾Û=ü±}¸-¸ÊÝôãôÓôýmÍôvûþ1Ýâ¼sœ‰©çV¸f„™g­Žï^§‹‹4]§é‡ÝÍ.M—é›O¿ý¹ÅGòmzõjƒ¿ÿNÌáKG –Lqw,R°­IaY,n"ÍÅ‚‚³ *Íjt‚ÂV¤8žV¯ð­ã‰gÓúµ(ÜsDžQÅIàÒì @Ø"*¾&…RV³÷Ž_Ç%.Yb¬ôìÌ_¦¨}E8¡ÄÝ5CxÏ f ‚늲0=Aà—#/îDá#¤Pfõ#ÒdF*~…—)ˆ2µ§½E}ŽW´5÷B@QžÜB´ç*ÏØ êkî…Q®‘f 8'j¦eß4_Ñ9×´EvÂ/ŠH¤H\Û±5ž‘‘¿Láºf˜â®€éGˆC˜.B OŸ!NgŠCœ.R ¨:Cœ(æ8]¦è~†8)qºHÁåq:Sât™¢Òât¦ØÇé2„·5K ˨»£ÍLñÖA3*MÍNÝk*JvÄ\ÔÐŒ‰ãÁÔ20Q+ç^OQ¬YqŠ!B(ž y<µÁí¢œ¯¹ë©Ñ3TŒxspCyïé g¹8ÉsÏŸÃÅÉ-—rªìõ5K=„©ÆÛ®Â÷Ϭ}!Ë¥Ÿ  âgØ‹™bÞ‹eŠv†$2SÌId‘bÕë{N"ŠcY¢X÷✓ÈL1'‘E ?ƒ_HÇ#Lú“_ÁÝÕO¤ëûÅ‘bö‹E -ëûÅLqô‹e ^ß/Ž³_,Q¬#‡ââH1K+Lj!oxü'2›ƒBYQKGÑár‚bÍÑÑ;-ÞíèÒJœÌ³).Ó­E,émšÞýòkŠyÄ’“ t’tÿùãÇ»ùã«Ýýã˜õ*> stream xÚ3¶Ô32V0P°P06S02U01SH1ä*ä24 (Be’s¹œ<¹ôà ͸ô=€Â\úž¾ %E¥©\úNÎ †\ú. ц ±\ž.  ÿþøÿãÿ¿úÿüÿ™ÿ3Ô3ðq¹zrrJi` endstream endobj 6459 0 obj << /Length1 3107 /Length2 22640 /Length3 0 /Length 24185 /Filter /FlateDecode >> stream xÚœ¹P]ÛÖ%Œw'ÈAƒ»»»»ûA‚»Cp îîÜ‚»{p‡àHŸ¼ûÞMîëÿëþ«‹*Øc®)c5ç^» %Uza3{ „½ =3@ÚÎÔÞÎÙÞÆØÅØËŠ^hájcì­1³ÃSP¨Y¹Øÿ'/x  “³•½Ïßþ¢N@cEÌئæ È{˜ÙÌœ<,< &fîÿ8Ú;ñä­L-6UKc' <…¨½ƒ§“•…¥ àïG•)5(‰ƒÍBP1v°Èݬ€vÿ 2·rrv±3¶2Øÿõ dakleÃ`joKM÷¿%dfþ+á?«z‚¨Ù€<þõ—ÁÞÉâÿ+’•þW(Çèÿ#Ã_[PÙ:ÿëAÈÕÔÙŒhæJÍð79+S 3Ð àjgt¨JËÌAç°ùËrHí€N )Í&ž€_‡&¢üUŸ“‰“• @eéââÀÃÈø+Îü׃³9ƒÐ…‘$±¸™¨½­-ÐÎÅž™ `feê0ZXÙÁ3þJ¥æ âÈ 0šÿ…å]œ¬<ºL LL̦_??郤0³·³ñüí®À¨­¦ª¥ Lû?tÑßÎ""öo&=3''€‰ÀÅÊðýgR%c«“bú(mgnøy3W‡ÿlÀí¯ÆPý«ñ¨ÿL¥`ïÒ@õûÔô˜Ø™LA¿˜ÿ‡6ú—Ãÿ©{~ÅþÙ&üOý§uþµöw÷ü#ÿ«þÓ:¿|þ»{~…0èêüßúæ—Ï)Bñÿk–þŸççÿmfþsòŸF W›u!ÕíõŸàß øß}!alkeãù¿Å€BþÛSøñÿ)‘êŸ*íb b%lgaó·ÉÊYÂÊh¦dåbj 07¶qþeWÿµ+; ’½³Õ¯%h$Ø™þkMÍÒÊÔÚèì ø÷ÐÎ쿈ƒØ›YÙYXØ9ÆNNÆžðL afagx3¬@™<@PmF;{PÀÁÕŤ ü¯)â`0 ÿ2ý…8Œ"¿'€Qô7â0ŠýFÜFñ¿'€Qâ7b0JþF,F©ßˆÀ(ý±e~#ÙßÄEî7q‘ÿ@\~#Å¿ˆ‹Òoâ¢ü¸¨üF .ª¿ˆ‹Úoâ¢þ¸hüF .š¿ˆ‹Öoâ¢ý7âqÑù@qÆ#VPœ±­èõe :Ô¿}@,ŒM­¬L­œL]mÿ¶3³pü{ÁÅÊÆ ø·å—Ùèdålýûp~%qùTÉä7E˜›Z;ƒÛòül¿ÌN@ê˜8›m€æ.˜Ùÿmþk ÿÎÊü—ÙèònÖ¿íÿÊôoÄ¢hjoš‚¿7ÆöËbkû[0f&š¿•b bfocó'gÐ%Åø[Ð@0ÿQ”ã׺£+èõw?ÐxØÿ!5H!óßY@æVn¤ýµlïúgY‹Åï" u‹_5À?]@Ûù­6HDKOK Ý ›ÕDþýÔ;Ö@^¿7ÁÆæ×[â÷:HÝ?vº7—bå²½]~‹*mçjkòë*µøƒ3H.ûߤA9íÿˆbfmÔá÷2¨†ƒ±ÐîçÏÆüoë?OŸDÔú ø®ÿ²YÙÿ>c6°6®lŒdqü¤ª£«=è³ÈÄæõé™A»û´ g ­Õ?»ý—Ðíó`%q}ýMÄø¿Ft1þ¦ºÆ],€4 Hwû?@9\O¨æ¿®4gS{§?e­ÛDØýù%õø‚ªzþAGâõ›3(“Ðé/ÿ¸6L]@gâò¯)Ðòlnº¸€@ )üê’½)oðûúà·Zá·îôûSv×¾Rd×n¹~rXk1‰GDÁóÖÅŵö< gh#?Üzk°ü­ÒTOm‘~¼ÑHÊLқ̗é}o\él³œLlBvþ¤4‰Ëy #™Péd‹ÀRÑO¾šÅºü5Å+*µÏšN…Z5ÅÛ ø¢Ë-ìÜåŸ\Â!°™òkY÷òk8tÄ®z¯E÷Sé„Ë«D¯?âñØßÝΧrøEÞ"í¾@shèE},¬ÂþRäÚÛLŠÍ UŽÔ/„I?=ßö(.b­’ìrj¢ØN;øÕ’3 ÿ>C«©ÔTY´Œº¢Œ|èIÕÃ.Ù†³»’.¥aav‚VÃz’”á¢9]Ï¿/(-t qRËγšßTÊh>Jžùý“±*IÜvÀÎqîçf¸… nØüEi‚^ÙžÑ6æÉzré#[î:œ€5¤}N{^˜í+Ƹ•­§QñD¼ÄäÕÔƒ&ïžP¹Mö{ìÙpM—9^E¨Å $¿ëÙµèaó—²e®:%ø}•Q„&Ñ3Út ¿/i°$/Vß‹0†ëOUëüà*»CCs—˜ƒèT—y¯"on]f|Iw­×é+Ô"îç|ìcqæ—î([øÞ5Jñ¦†¶gŠŠ|ŸùÒ®èȯ <Œž,Tã$™ûz1ó=v²ë b<î¡:– ¤_‰=E&]>»Z‚(·’ˆ€êrw!MT¸Î¸PHa´7rž½ÏÍl­>ßÎOgGÝZX+Š†¢ê-2$¾ˆŸÈ£@´Â;Í)Ø[FˆžMKLi&ÿÓ0öÀoIK#:iˆ¬4ÝÙ¼mrV†‹e¼o¥‡X_^y™ŽQu ½C8/n>¶/.+(ü-zWé%üöYY‹`dÀU•¦‡Ã OPÛ ï™"<“ðšxE$LƒŽ‡ƒNƒ5ê´¢פ+ìÌñ²½ã¸q†™ÁMáÝ}dJîÛ“¨RÞqøŒøä!Qúçz4G¢@ ݶŸøglä+q‰=÷#:¡ñÑ{º$ôΆ”zžQ!>µ<ïêÀ¿hØ(ì£CIЭ¦Ñ&:´®åJì ´|ϸîù¾Îsð©Ë³’+Éίï$ª¬Öï˜këXË;¢- xµ[}…ä«ÓÄÚ~5—h»hÙô1ØÀ¥Ü'´:ñ¢ÔLdáì†# CV/÷Ü Ï t+jlëû…ÞähÅÇôÖb¸HÞHeyÛV2¼ n­“ ‚Ûp”!ã”)‘=xÇУ¯ø×±mü±ïö|mÌ Dæ 4íu=2Pâm’Ôý1ו] ô-J`ƒÇ¯à|ô¯TöG™?8¿¿5^Med«¦\ [Ì!7Á¸â„UÈì¡Tá“3Œ@rbÈ«‚…üH¦Z`ã©#ôX½¶¶KŒÚ$ØJ–ÆD¶X€O-D$­›{JÇx5©ho•ŠœwSuÇÙýy¬HÈx·¿Ø´ye%°7‰†¼&œÖ৯þ–ù”[V¨uèÎ~4ø,æÆíôv•ý`¦Ã-AvÈL8eÜ1£^]‘©'ÿ­Dfç2O½¿LŸò7:ûèO¤ÉÈ[ËAöQŸ×? Hçm.2iá÷Ló‹!PÚf1Nu·¯Š÷_E»äñM^šäXy¨+…烷U'ÑÅŒžMC0`âëïKÛ«]x)_wíÙ}÷»ŽaŽw,>£üpaHϲª³T„Vˆâ^“Ú­OæÜ`~blÛå6ðõ ÷’èû&¹Z¡éz€¼5×Ë’ð÷6š¥†dYÛ‡Ÿ}4ÌÊ{o~ºö•H÷ƨ˜ ´:1xðÄÒždÂa}^|3 þ©±Ö$‰MÂ\FÏóƒÛ#‚«Æ±»ªy§…èµ”ÚçˆÌ¡¥ŒŽÙðÅ4Ê „Òˆ&Kå‘* ÷©—÷‹¸?8¥ÏR_« áEcÀY+>¤G(ª[_EÄk\\œžŸæÇ}»P$$/˽¢/LNìK›luug#Ì8yYÿؼÜJq|ŸlØ’o°Ø´¿Y‹…LJtzPùÀb/»“è |,X°‚K>Y81BjËå·:Žzy¼bM€¿OGm]‰#8Û¸§ìGpíÃlªuÐX ål›AoíÔCxmÚ|8Õû,k`þ&ŽE|ÑîPÀ âÍGrhy‚Llõo|U‡©òS¤XTrØš.ºÚ\ß­!¶„äý™†+׋‘8j89×e;H,U­SÞ[¤ÅËL½ä(:ÄÚªÐ6!P‘ðàÎD¤ €ùmZÛEÖÔvC4¢­ðÔ}‹äõÍ.&ŽD›ÐgÐVipn_ÞÀÅ›üø¡µùٌЅñ>Å1h4æzâß¡SÝse!œnŽÐI¦ø²ÐåÉ¡Y°]wd7ye:ì²ON  ÙÑþŽZþ[*FÛB©Äœß›Ðñgœã2ÎœÃÿh©~Û! Ëиüuø;#l ÅÝ-ÂûA§("ÂϘà"ç >ûÐf=ûš; Ÿ‘¡)©:kN^vRl )œ¼©f©áåC ÍAú‘–_'h¥ƒlƒÆh”? ¦˜&ÿ¶ u 1ψõ ä ¼lªœŸN¯òpê›Q”Õ¢yœƒ/ô˜P«‹õåä-R\Ü)¶5·²”Û¡p˜àQc”C°‚°w%Ôj°n$RÇž5´e}™‹¬ú_—rÓûi+:Õqãq"îݼg'ìÙaX°øõ>#ãÂJÏwJ€?ùQKÔLvä¢# Ó\§ŒªàyŸp'q^,ýÀSõq÷ßoG#ïÿ1ó­¥ûqÕ¡ÊÛF1½ž–Þº¸¶ïeØXì~ž~¾–ìYÝúœêsƒ6EJFÔÛaŸÉkÒÜVœ<;ÁDåG´œâ?zœ#uSB(•OÑ^ó[£vGÀ¤ô÷VLË…{ßä½Ý—ôE_³¯¿š«dÁ<–wpa§KE-[ýZï6ÕÖeÏZšo2¨.— )ºÏM5¬ú ò‚vìœa{KÓI}esI¯q… b••€wÒ(fNB™‡çª+$¦:_ì<ªœÇ³WFCqIkH¸ÂéKe„¡à>àám /N"w½»g>ë¸Wz‡%t>&¯Ã]ßà`ôvýA{ñ´á£o úú›óýmcö5Ê1\VÌ4=%³ë­×eïÛÂåOÛ‹HØ›eI?žK ­HúÖe S׺ÕÌv^¾á¡$,Y;‚1ÇL}P©0JqÀ¨§ì¼¡œÖŠÃX•?Gn`çòcAÆ'÷<1ƒ^ËÎp¸zV ok»qæ !>+¾rÔQ–š›ežÓ5ÏÕ÷Ä÷z¿B4É£ê¸úžË¶÷bìÕåÚ<ž} ̵èK¬Õ² o‡83VGB4¸>mjŠòq½Î¿c`KHkX1м÷I RëÜiŒ¡3T×Õoþ³ÞÑ -çÑ †m ¬N.cRœ¾*¿OjÅÐkíùeHî“_“šoA~YYpØÊnmó~gÍpˆ .¶a~›*»ê!”ÃÙ­HÛ³ú•R;N9%‰§‡Úîò‰Øõhê5…bø~Ä7äÃVcOCÆ`éîß"®ôƒà¼OÎBä*V¨Í ëÉaO‹î7’`í \r¯û~¬HÃB7{8¢ó–¥PeŒ¥ÌÈ—êÝSÄeÞéÕ¦~ùj¸-FÏ u«O{Û=–’’6÷ô¶±¢Êó'‚7¶“k6’r‰fTªæ’—ºMzÒèrÕ›YËB«cb´·wô¥ÛïÉàcÁß|• MÞ®7”N_ÆþÊZ†}s²áî%èðÅnšFàë)Š«±b,¸ògáÜpí'\RÍH¦uî 'ǧ» cÜyg óêŸÜaiOMñÐÀ6êÓµ¤Þ¢x,×ÜÓšáÞ-ÿ†þ¯ çãí ÷UB¤²öö- Ô£TÝRüàh¼´ËUÑ,ô,çkü?2x–JñNZš*î,ÍÙ3ÜÉoÀùŽ wMÉ1æj¹Éãî ôïM³ÎæÇ^¥j…–ñÕÁd#JM†:-£åŠ»ÃeWdÅaXKàþï†*Í{k¥ðĽ“"#hœÄO¡’mŸôÃ3Œ-F _Dlê6Dþr Eh!*…:'o|Fzh±OÝ«F8€®hŸšIa~Ýçe ÒOµa-úܶȥèðiäñ^aÔ2þ#ʦÔùd6:œ"f=é+6ø'7ó>€²ÉDûü¾%ø’­¸Fç;FåÂE!þõOáœ'VÖ•²ñz£¾QxŽX®ûþæ—¶(I|­Þfiíå±Ñ´ï—«!*tJ¸HUÇiKN&žû¬Ù›w:úUºé6ÀKêM"¥4±Â–u‰ÞÖKY¨èÖ`kl‚»J(ìš…"Ø1ê L…[fE°igLè•6£´ä`Ì!4•8_ú .ç»  ™—¥»›S¢Î÷¢DÄáäh®fåv XÔŠ—¡øVѺûS V(xšé#”ÏËÞÁêœbÖFîˆhÎÑq!‹‚háoŽ¸œ8˜âzxÊSÖÕN_Ý)uºÝà±ã³j-OÓko©Ô”ÜvÜ’™' ðwø×…æ=Vy¡íäSêöÓVEŒdúX½OÔ«êPíPnBùDï'„P1rèÇòIX›šÁ½‘aÝ„S¼~VÊ9·¶„r[2ØùCÁ‘ó™h0¡øeŽÉÁß’…w']?6TïU†åjÒ…â÷‘‘ûŸÒ+12¬*7Ó2ó<¾+w´ Xñc?êlÛ_†|¾–&Q¬u5šº{µ˜%¯jF¸ePÈì}R¢²öŠŠýìºn¿š·á=‡Ý2ÿämÈ¡Ûý£ÐT˜peÿÙa{GÂt¶üÊË«™‚ôÛ®Ô·“೦yQªÐ’j¦©®šXú|ɼ¨¹,ž»dÐuòç”[†S®› 2[ÖÖ×qöƒÌ].ˆÄúÛÌÚ$J÷(~W8·°÷k=«v†¬ªáHÓN ´ëWb1Ÿ*‰Þû¾¬°¥•™*Ç[AôMrΩ%è'”¸Ý5sÈ:rg(ax|õy Ú[“z¯å–ôv‰»³sALïÞgÀÓE›È9üS÷e»Ú`Фuã@ÉÇØTÙ QöwE\‘4ѵfh)š&Ì·²Ý Ë3ÖûZ>ü°'˜=?²‹ÃâÃD$zKYð¿1'¢ÀÞ†–i%ã¤:‘¥Áñu‘ÒªgÝ':Öq 8ùý J§Qô”O`©ôeÚ\ÇŽh0\d¶N :6öñ@IÌ¡;l@”ÂTiБ½W,‹|$Ý^¹pT-T`A 3˜Š¯Å¢Zé )²ÇÌ1F›8^PŽ§‹W(ÆÛO¸}­]nrã»äGç:j…¤Ç“(Ô¦" ^¬„ƒ;©sZ–4ÉÚ'”Rô“vÓ˧XÚaê!€5€‹ ößÈ[X— ð‚•nøáJMÒrd“«»éþ\!ËFnð ‚2( %QTëñŽ¨¨Û>ÈJ,mã„UR`˜vÇ.îïï|¡,%ÇðìKÖÏÌO@³ª{ßå'¥\ëÛ»•#³Y¦Ÿå¾ÕXé·P†ÖI:æðì›àÇQðµäZÁU.zå˜Âqª#jœ p¼"6¼Zp"ŸKwú&›øðö¦¡¨kÁÓfx“¸‡f5X¼f‚Eç&¤æê“ÔÒÙO4øU‰HdѼ÷.ûǦ•Ð›·f½Ül¡çO§è‚«Rýmr-“ìQŸ:ÝÅ£ÃU¢©[K í'Uì•ž¸åC×Î̲ëd÷Þú¾-iC†¿‘a2ϸÙE\ì×ÜvªIæ½ D \.”2h6o™làáÖêSޯ尅ê±EÕ¦õΛÐlwè{v2ÈÜ@”{÷ ¶Ú‰’l¬w·ú›"~ìÐ÷ºÁ8½šÔ”›•ñ\ÅAᜢ+}y·ØôkŽl| Žjó%ÛÁ„Ëu -ñ†Þ’ã°s¶NÃú$xÂyðf žMØY§2§1kD¹?_°Hí“>î ›–šyUK¯$ Þ˜Š«Ä¥v.œûôVqšbÝÔ aw‹ÄêåU?Ÿ—©é“ý¾®B8!ªù‚kgÕZçg³/z-ØÈòVÛk¨]áùŸ Pfe}Ÿeö$4eÆ¿² @IÌ™òÆÚˆ¤E A|šB±»¾¿º%›J™ÔÛ ñ[/qÜWk°Ó~4±…®xÿÖ'㎺™ á%`·R³l_6Ô׃.¼z‚Õ¢LÔRßÓQÏÊ!s±·‡EúS1F²Ô1œcˆyÛfèŒÕ¢gÁª’»m…Wß®W몇}ª'Ù–êV¼õÓ+«ðtÑ—q‚¿{45%Aº¼ŸÖ{­pLo/t&6”öÞÑèÖ¸vÉ“d¬ŠØÕoù=Nû2)¢¢“%e‚{Nû4)}â{˜±Ï½›¾Yçï’CŠò§^`ò)Çðî "¸š*|zã «JqO\¼ýΰI;´·&Ÿê¹ÿÚÕ)ëÀËÝgˆO.‡qQ˜öØp7 t«ñÓPÿ|,Ë÷LÂú'f£¥ZÜaêŠÛö).øV̳>9f¡¯'{EäVq¥U®/}2¤0ûeš½ß”ÊUY…ÃïNEYÈCÝÈML­—eEj¹"SY¡Ûo§¿(Q²£9spùâÀ72&?m ·6«òÿì2hòO&g#ŒÒœ¤rjãÓ¶ßp"N‡›h/âg_·’' ê•éŸ3¹¸JécÁp!PÔ¦íÒß1û¾~é_rßJÄÀ53|óŽ>p0š´R¾ór»ôÓ‚rƒFÚ ë“÷w… ¼àÐCÏ|éþÞås̨¬bÝÌ´æ¨ãïÏl°Î€+6ÍìÜÙí|¤êЩxå ™WÅBôd9ÝÐ ¯½¬ç°‰«(˜bÍ—£rz: ¯ɘØ1ðÆE´\_em‹ 3w>ðlnQ]$_–­éÌدP¬D¥eŸ7'75²u 4Ädé½¾žn†¡É§$ïFÒA•Ólâ´Ô@{Y«ÿöyr„ÌI2*p¬œ(¬ª÷‘·fñ""S€`¿ü S5Àr¥1€mð ×TÔl•¦;Û§á¦BhÅR°ÜbÙŸáÙÃp¡F¦ã=AïßQ»}1¼¨ÇþZ®Šûö|{ƒ¾}âs÷Š·(÷¸¹z ã$û×g·+<Ï6¢Å3u …³d$ÞX4…è£,ÄõõÇŠù‘ÔßÍVºñ±/í­kuƒë¿•vîc… 7©'ò{Ý}…"ç¤BEÍIöjZ–ý)r!µÂF‰=¹ Þ!Ýù5%a{pyMÖƒ‡ß;H þQ˜oµÝö¸-5M»²“‚ÙP[€™ÇÄôƒ0³} 7–y$ýóÅ^ö"ÜyWXÂrcc½w*4•ûð€Bàó‘ý~æy…Ád»vçòAª{7×Àæ+ç²Û¥¸—ÿ;aÕøÃS­v£eî"„C¿Î/Ô O¢HçIÝÉlR}%_9Eîe?tki<Ïäwg$&Ÿ¨P­Í0VJ|ãìÈ<׈ÏÕ ²€ {Å`©záEǚ̞F5Œqðc†rˆ¥¨¨ÚJs.bɳ{âºH®²Zø(ŠCáÒßÅõ”݈éÐoK%µRòÎgJWš< ä ó ÔkD’Í>òÛí– ¸ÎBíè?ÎñÜòxóÓÛ;Óz.pQé&R0çßw«%Ш«ç·#ºùÉ#ü$*j:];j…3h;f›¶Qæç×jÕµd^¾'ÿÒ‰î,|è»Ëüa´`²ÅBPb^íò6Æ6 œÕÍç”ä~èt<÷à <@:A:—ÊCúÆ¢ß^ã¤Ë# ÎP1ð^4° ¡úÉR;çáç·©ežªÐ)Äç§Ü.ƒ¡Dæ#:]U¼uÔ*WL³œBüPSœ Š÷«¦yœVd%IÚgÔ˜·/¼=Z¡¸ùà¦U¨«`ù¹S9=­ê ùÃÔíƒ$|ù)HÌ™îâ¬R»LÃ=º1WÄnì68>b’ç¸ú߯q^½XE Þ®ßí«`žº/¾ÍÞ ·¤££eÎ_¢‡IóE-Á·W£„Éë ;Èêlj e¡8ŒÍvÝ¡ir 8£åþb‰¡—}7ð•K@£Ác™ú‚¶akÇ‘å3‘Uá >Ý—ÕÞÔê{ êÀž‰¦d‰ÊwϦ-kŒcWÑlõï2ˆg˪Š¥¬L=¶y°?Üe¢9¿-‡&½§ôŸ~̉ 1ËÑùü…7ÿ€Z‡¨Ea6Á ®¡M.æ9þÂzº3~õãõÄwåQ¾‚§ ¥ŸléW)ãë—g•,U­sù©KIxÉEýš¿»íË( ·nä£72"]gž+}Z©êѯÈ:ÏUü‰jŸx+ÑŠ­îÍ,AÅxTvƒO¾ZÕ¦­Æ‚-’š¥<Âe¬/©šøNŽªpÌ=Ìôʃµ‚(3f‘¨Š‘xµ,¢VIñõ;ªí")UJ˜S´ÛænŸ–·¢¹ïn1Y"£3]c}¸ŒÍ.˜[´»ãnCOtqÓ´l<ôAˆ¢<ä=çOÿ7¾›9¯T×BG…HñQQžÊ‚—ä*ŠoˆG»—<-Lêò § ÙÉ“ ŽO:ð8MŽ\¾lÜ6ߘ¹*¸Qfæpà)$™œ¤æjÍÆN\]~»Î=O¶çF.ÈÄR\L˜3¥ ÿòù”5­’{!"2ØÈÈh4“(#è´V½0K ŽÈ %7d ¾2•´´ªm}¡Ç®Ÿ ýY­<±\Q†Ì–™|vwɲrºöe¹€¶ Ùª%YÚ©goåÁÛ‰„Mw̨0€ Áâu(ÖT8Øâ7ò–:û3¡QôDŠ§YgdžA{DŽn­ m<‹P1Nu%s2*à;pþ`½]·‡È·çØÒaõ}˜ïÁíE=aµL•±Œx†i9Ö«³Áìp.S«IA.§Ð}Âq‘ÓÛ›q®•ÚC:-ìÛG ±èI<õ•Xé;WÇ,CrÓç’&ª«8ªaóÚånÄ£’³¦õÎ.èÂ_1žJÁx½vS˜©Ã ðÀsuìr ¨ìIÏ©äÒ!I69IçÈò¥ør*¬÷ t†8MÞ‰WüôŠY½cÛSQtŠåÅvT#²·—ë~ìPÅ2þÊVš´—G0ZJ#×È&SµÊ7•ãÈcOãQî¸kPÿD J|êÑ áK¨},µå+—êí_Ë×î«ðQÔ0 'öý¹ùhCá¹¥Ã<°½âÃd-ÀÙ’JìÛŸˆgçqCöTZ›–IâfÚÅ®,€á’ˆr¶^ý¸ ÁR±Rû=ÂïÊ.În¤„§ToK8ŸüNé­¾è„ñÛ%u›=dㆋE™WÃá˜òqÖ¿¦bOX% Ç@çåsZ ÓÙÆó1ÂÍÉl²p t‡Ôº|ôbv*¸&<}R‡ª¡ ëÙ‡†ïÚPp¢dVHè G[Ôx|Mš/Ö!á¿#ºöÝg9ßÎ(>H˜³-ýwÓ ºèrýþ=ôM—u9`Ôžæ‹BË÷Bc ßhTØ´è:×9¼W¦Ûw:Ørç6çâ7A³êω}IXh²á²÷‹<Ðe•#\6¡t±²ûÃI„•gd”lR±†tƒéÙz]-iý9¤ÂzH<â÷Š¹]`A6&nžøt$–9eòlóŽÞG‹G‡ô¾æxo­”Ôë‘‘V•S\[:F‡ýõoèµ­;ßÁäÁ5½ö Og%ð&çdkyú7Œáöª.I$Ð-¤9~FjfÛùÜçŽAò°%¼~7þò=¶ø0Âea\<~¨?QIjÕZÏ3¦Á0öñÌ–ÄÄæèŽKp@•íòî8NÀtáÐ0—b‚²cf–.Y"’¼Šæƒ@‘—#.B¶þ³AË*Ëk1zÿ[v§zN—W[@ÐZn°UâÜžub½ â@8Q¹Ù'¶àF—V7c¸@¶‘¬ÂlÖ±[¶ˆÃ˜µ}B‘ÅÅ‘Á ê]¦øªéŒ¥7>…ã×"ØIN˜*.âËØvÂ+ói±®yW°ê`f)ï È!„Âzn#—O»0XÈh8|¾"ÍÏ=3„ȶèiÏ`à™×k±îˆ²¥{8á­¾fKêQªxãÒ,b•ÈBB±‘A Ùd%v=R²Nit1è.%a4°QY ã.ãD3|˜ò2û$ÔP}-ˆˆ…;²ÛïOÛØûrßÜ”j¹iŽ4‘gÃAÍ–ã!¸V»÷€Nòhá©c_ça–@1§¸íɬ|l3ŽÍˆKOˆ–Õœdîá>›Ôô¢Uà__@cÓÖåou¬IF»ãÇš5Q™Š ô¾¨bÃ~­ÝžDôüL_A)Žû[²f[ñ(g.ª#r J1DãÔÄçøüØcɲwž4ð*‘¥®3»àƒDÁ«š|^‹í±ë†“r¡˜K•iŒ‹dÐ䨥×ØfÈ‘yUÇCÉ™Ø>ß¼ª?꣈Ksò.â;~ÑBTS!F£äÖ€Ô{–ëÃ$­ù†x'ùåM¦?/,'ìVf@ÑÆßßë?Pƒ“œÄÊC–ò°RLb VS3­uéçΡnšÚõ*cö/:Ó%E]¸õÙâÙ’[©Úíh¶Š“?Þ~÷E½{Mº.ÒM¦´Ü3^ G|dÂMz©ñôŸNì|á{W¯=z$gƒ}óN«knd‚zíËR;†E¦wåóe–Ãô‚Û°[,èÅ›¼¦¿þW¹æë^tjêàÆÓÏyÏÃD}÷„ÑÔ¥Ãw%ž¹LS~»ÄÞh¸v@É|Yù—fSyÒŸTë3Ü›ø˜‹3›ÖÌ pA}ÙFŽœòP…”wêfÜ¿©ÌcZ”[/) +9.å} à0Ç`{›+^‘V\ SŠæBöóÚS¡wÍ:èCkïdŸžÑ·¼ZSÑV «/+Oüò]"ë8_Õ Qq˜ÜGC‰ñðÊqÛ¾ ·ÖVgžý¤Ä.©žŒézZ‹šÎÀUËóÕŒyN7šøÉRÊI&U@¡&…€.¶š^%¡”µo59†ÉN`“®í'‘vcoɦöŽ9%¿@Ëû~ hdÉÑûYûãhqZ}ˆv• ºj?ûn?<”øñ lwaî™É`ln}oµ¢®Šƒrm¥ä>Ð5ÇŸ`°€jÞ댼¤Åгú!Q„¦þÇ‘?ï¼KNJº BÎFÊÉ #¿î錭ä]­Ž—¤Š©ÇBø&S „ã‰! t7ö9CTá¸÷*FùÏ,µd>»à>q}¤ùø:¹Ü!-¹.> ƒm{•î(ÅÓ†ïw/¯êj•{k¸à}vŸ;¯ ›Þ ‚ê:Ë,—2Œ“&OS–>õ¬Ú”ò·vξ¥cÍ{•-’ìÙÉ^’°ìV—ÉÒ»ä -€|ê£Gm6÷ õ9{ÕªxáÃЭg'Ö€Ùum_æ&«•n·æ8¤Ñ©y•–Mo2ÄNgÖ8b¥îHuË6ñT’>Ž`NÛÃ/Ï,W­úp™s2+k\LHwM=„uD SÞ²X@‹‘¸ I»Í—%4ý»¸³ˆï`¨iêyºû'ÿãl§Xháž„œšÊ(^5u—:ÇýM&=»ÂíÔCdx‰`f>"ÛØ\ƒúm ¼×AÃ䥯“¿oTøKÊ®î"š[>’£ê€ÜÑ]ôdœ©ŸÙ¬¦¤f$œf–öÙ%¯2iäMŠìÙ¬³z û‹™BšÆ$×­˜«$^…zW]Ô±V½ˆ/Ž±äTK—ôuP˜¤±­2D‹8±_&¹}Ú>é¢zpÐ!Cëíf[´NÁM?ÑLŒ¹>Ûè ±–Gï´5DØ3˜ âµÄiÐ1ÿt++šÕ“OäS\Öš >[ÒÛq&?[t¤^*´í|¦nC#¬Ú…|”6‰¯`¾ÈòM(ªÜx\³t{ðC¯AVEòõÛæj`63VRøNðÔ2ÛJ,t)iÝšâ<0ªÍJZTNøzóÏ–ŒÊÑÕj)üü’vgu±¿ö<Ά;Ÿ)}< èd+‰ÆX¾ßnz074„ÖÛ8› AHáÁ*‡ôY"/c˜½t?ýl)¨)ÙqÈh9)1¾;.LôFƒ£Å86?¬ƒ”%ŸýxØT¸#Ëî²w:ƒ!Túf9Q*³íɺŒšjkW[Õôm›ÔìOõš½…÷Ýí’‹Æìs-¡bÖ2šPÐÈTŸ-†«%{O0+ "VÈh”ˆ‡ž…Jé´øêñCB%‹ÚÎ̱-bGZ€?XFk búž(¼øôáŠÜöº[À¨MàxNyÛÍñùÕ\BÜmÇIü¶£-` ¡ôyç&|GišÍ0qˆžcîÓŸÞ¹¹e7Rˆå£u{ ôáÎ?¼ƒnŒÍÁ¶1ÆÓÇkÉ΂p^–Ë4 7´gR)d´îv¢Èeém•g3á EØ‘ê|çÜ~Ë:˲³®‡Ž¹f€Ž4ƈ¯ƒW¢SÐÖ¦Z–*×O A•vb̈^Ô´ÐFˆŽÁG‹’q~mpU-•ð6N€¥­q+PZ­‚}:"\* ã’Þ¸¯å¬Âñ|Ê æzâížÙCrUp ä¸Ï·×²Wß^°Ç›gÞYÞpâ¡I²ÌñlëuËûÕžÈï#*h° `ú6í}¥ÊcÄjl… ëÃwÁ_À%Fš lPaŸ ÓççJ›÷Fº|àE°· ÐÝñòò¹OÃfàÂRínëDÓŽ+N†"Ž~t2y)!¤sti²*Áû™4n"s%Í—šÔŽuåà~#)©ƒ¦ŒŠ(&Ο#ê6þ¡^n}ú…Ìk¯ÀXÌÃçü<‘¡þÛðÇ¥ðÐ:†dw\•›!þ;¾jíQEô#Ù!IꚉÁ?ìâíQ'ÖöÓ«‹¾›9&AarÖu–ü¸› ßÌzVTÑäÖj,¾™{à ܨb¡ßS?pF4œ´³¢¯¨Î’æv³JZ·†ÝL—ꋨÚGFér†ÄLØï—9² C³¥.ƒñ¿ë3^JO¼ Ñâ9'I»Í@7K¨`Nêêt+^°#ØØÀ¤÷ñIê> èGÔ¿¼Ë·÷¿‹XöTðîÏØWÔƒ·èÄ«´Û„ÉOð;fz’uëÙ»ÃïÓÜHp¡‡¹î¹ÜnÇ'¹±õ(tÇë.:ÛðK­TN#35œõ×vŨa!^|ËÄâ[ØiÒB‰Kg¦à@ÅÀ‡J|S`/˜Ggõ£x¼ÜŽÉ®zGó²÷ÌŒÍ88¸ß^´Tžˆ Ü~pé»÷zN­£I†hã䞢}ŽŠ /ô¡}Ø„6’Oº`}'œô=X[›vSFkZ£SïˆIé)UíÍ{Ø7'ÔÛè-ÀÏ?%ÝÎ.9¶ ý»=ÜRFmû¢Þ&áä‘Ø q¤¥gŽÍÏ“ïFzEÀN¼û[QëÏ*z4Ù¦‡-ÜÈ´Y$ó°ϾöT¼ç ž¬ý.àCÜëbƒh¯®ç9‰„öÓ/Ðh5¯¦–œLµÔ6é¤E›]ÍNìÿ3UÖ$ár&>K ­/M¤ôøã­ïÏj~䉳ÍÊÚ«Í@æCOö)Op[+ve¼É¯Âù"F£¬t`3£³¥3X?G 7|wp!†>O‰ŸÈÚd¦Ò -·mÿN3Œ}½0zÚƉù5õ“ ”ŠÄΘÃüaÕ:­T’ÿ%ûPËè-¼ðyÙÇå:ÝÃÃœbc.Uܸ=ù‹ëo_Oš í´Þac ™àC•}îš™ ›üqèH¬Ñ_ìƒGM37\r×öi¹Y±¬£×xÙi&@P{%8“,lß õD¥á9”òEØ;l\iQëÓ⪆½‚¯­æâ$û£XR`çÕׄKP¨8Ú[b°âªM!¾dH׫>¢÷0ßàês Ud)¢NÈóˆÒ™2Ô²Ž¯÷(p)u“uIÛª­¥}Ñ,`YqyÖ™KîKÆò˜‹aÈݧ2ôïL¼¥LïĦ’ ©vg3š}mV$ÜÝ?0  šöCSãã/Ø7Øã#;LýŽ–ˆöÃœ ‚ï°©Çr´¦3–¦-×›M©5ŠDr[W)®ý}&ºæ˜¾ÀfºIä÷4Ç”>Ùh‘Ÿ%¦Ü9œiëÙfA‹}­N–ê?!Ð&¥b•àÌ)½<–[Ęà;JÒ˜ÀïêDƒÛvÜm=‹¯.Ÿ//-Z´p´œªzv<¸™(×\Þ-‹ÉŬ‚ŠIv@H{– |Ò„i=*éõü 3kà§i©Zý˜iÝÓqô¢œX¤»¤öUì°øã)ûU7Äú ˜jCq>|ŽÉ\ðÏÿvS.WŽHßN;°”^v“_0æ½®Û‰ÃT8Ž`­möoƒ}<§[å}Êt#<Š5»%á=%ËKÇ"Yñتîr3÷@‰2S‰Øé‘rs}!ó±.mïwb6 Ÿf8¹™¹Œ×¸a§à*||ÇÝ·÷*Øx©ó{y7Ø5‡üPš„šƒ¸“»~¸ÕéÃï @ý:6öZcØ‘œt·!QÑ sR’¥OW¹ tûk–%l/üës[20{«·°©@Hnâ“1ÉŒÑê䦱ºEÌHÒþH!ð¦tc+W¬{kì²~{ —}N‡ykævƒ¬µ|µŠVŸo:ÍÂ{:vb‹¬ ª"ª$„,+Ó"Hîƒ&®€P‡28€oדRì1ž"¿ÖšŒˆlÄU¹ÄB¬y 匷©&Y¤wûç b¨¹O˼ì4¾øo}K#1;$⪜"G'v”R©+‡8¿:¸/ Dá)‚Óçè¬Ï´}#!w$쿇¥ ¨ùéhòÊ/º½áÇRÔŽS, {¦·’œÆ­­¡&ϺȄ谫ÎJW 8Í[.øhmEÝhÅï½$ÏÈ/™®I_Êm®NBã=bâXÍþziE/¡RÎÈ%L"ŒÝ̤öyò5îÖ¶çÀé–í;] '×é`²üW6¥=Ø<ßÎ*$âþ åÒF™žÏ)Z;è^ØIZ‚ܾ4ú¶þÎÓµ|÷õºþð¢ Þm£`ašÍÎè2$½†³Y c4}[Â+wÀïŽòd§±1M#T¦ñ¼ì&)ùó¨Ãžòr>ËÍã$|+qÎZCCË=j\*= þv{çQˆ"úƒLÃÒ3Kªr_ºï Þn*c]ˆ–¶1y×B/7׿™I;Γ†í #–ãZ ¨.{xØ#QÊ" É?ÁñÞb¬kç«MaÞÝ73tq¯®Lò–̯ˆ²-`^môV1ƒ=Œ3e=ÃáqgS€ÞN‰•âóµÝž%h´õTþ-XF!ëz]É¢¦iƒjó•f…zÚéÀˆ£æzÓ÷Õà.ÆŒáØPêgès§ø™ýøÆMèŸ%½$ŸNãž‘wRŠ<ݶÄÁ9j³\œ!!ÞŸ6Ó]g_¼õ¶ûq%÷¡Åx¾PÐCf— a؞ʗ0ë$@úÊi»]k±°¤túH„”ðTßkoâ•ZØÌô×µÍé±W&@¸(NšÈ—Ò´s·•jÔ¡ÏŽPƒ¡Ð´Ãä0Cµ™g¥:E;ëó¨LÚÅ{ä€VtÕÅna´éy‘øbçÓ`µß?ÝXíiY“§?õvω,ÑÒÉLФ¦ô}턆—ÂÏH …§)?Fs™må­NïÕ YïXà Ž¶ë¿i¦cUnƒñ¼ŽžˆF·_a…È9­¾PF=eû)ºxÚ›3*F8¾ ÖiÆ‹¢¤³BŒã^R‰û`ÿ•uN üšê'^åöõ £^?çÁOÔµø`¢=¢Žì¸ÔÓd¡!€n¯SÎW A4.âÁ¤ÑE»Uwí;<5°M 2L©Pdé>ërþŠê°7Y[~ý‹÷p+¨¨ßŠwt4˜NÍQ;×øîoº‘¨oÕgÝ‘--¯j/D0ÔÒ,+sµÓ]¸€ Y›Dœ‡ØÉýøËÔ¯"øþ®¸Ž}FcÛå]YJ"ßÜ׸ZÁÛ 4¢ÞÀ©GÒÀÄ)ʽÝ*3M €•'À,©1 =鎡_)°–(ë ¯g ¨í†‘kË⶘…¯Tô;KØO—è¡_çupuÚÚwà rÁL£¶ÃX×È}£!Y=ÀÕÙIªl€ãþL¸Žœ=»H;›„ç‡í3‰¥2"Bá0²z­ºôµë~´ŽAåap¨/ÅHwCgqTÕ6Û0ª/Úõñå#K]µò¾é±H Yõê oã«È®A¬¦jK*[LˆåAÐÚÇL?\ >0ž;íŽê£n¸ZŽ\5x‰ ñXe©èˆƒ7œYÁ©´;_Õ”·)áõ ¼Ü&Q¢[ã mú…Ñ£Uf—=û`Éîו¤Ô ™ÞVW‹4´• ‘¥#Hé¢+0ï²Ä€LU1¸GŒv‚`(þRúpë°?¬—ÑÅÁ¯êŒ÷!íS7N4¢cK¬’93ß_ÀYì#ª˜)ªš•i™ Ÿu]uïñOj›ÎÔÇvw.‡—{~ü%†Ä ö†¬»çËBëÜöcçn°³÷òUê³Qµ=À6ˆ­£PÿM~>@ü¹nâtÔ¹) ŒÓ½í6õ‹· 'l.'ÅÄsqÕ£»Aha§wöéjnïñ0ª,4»Nå¸PÜÜ'\ÛP$L@ ù)ˆKkµ‰ÝØÌ·I$úóˆ¸\¤iØø!sƒöiä’Ôdˆö÷ൗóZí:¶)ÞzùÓââzô©ép,‰ôáG²’ú¡o€iJ:ó—õ7ææ_-[}-Ì ªT[ð…_/±®e7–0þWj•ãßïŒË †jTŸÆEí÷}¢©&<.|b01äœ$&]EJ: -¥òy4JÃľpx6HµÊU’áî#‰5JrK8 ;É3e¶tîm˜#L`;“³äÌpåøež@)×ჲðd·¢&¡Y¬>´9ê½û²›X±ý÷Í/V¡dæR¿“€è´Ü×: ƒÍ¼"òí¾™¿ÅH`•ØñøBöªÃmY5Î~ªøÅžpV„½„S%=TÀC6{ùƒuÀ;ƒÛLï!ð Æš,º™åÚ{°„Þ&¿(‰èÇ?Ts Ï0ªzª‰t>ž¢N•CInÃP%{§ž£Ó„(Åò=.ÂýSõVímɯÕí»Â½[|è( Ô¡‰Øöo¿ã¤ƒÊjj{_ƒ€SµUgSiœDÇ ÑµV lÙZÔoШ“iÂÍ#µæÞr™ADå²d™.=Wndð²ŽíŒÜ9`Mè­áÃIYkGgqÞƾ|@GªÕ|–i¶T7W¬†&ºžaÕ"?.Ò~œO–È7³8D•ª<Ý-šˆ`3È>ŠÉ¶ÐÀRX§ÈV°Ykh¥cpûÖû§DIÓŸPJÁ%6èS0˜P±µ©áÈ*gbç:ÐWPõ¡ ¹ˆ½}-ie' Ãj"ïAˆÅÙHhò„ô—ù9H·åî6¿½UX¾ –û?0 “N„QN à$wÕBÔÁà™]íÔ.C)\„à-…ÆQû»¡è8—¶n-àò¬ì?Ãþ/à ‘q­)ªƵ]›²@¨3ñõ+¼éU x¡š­. lpù]Hh„Ý6k C£Ú.fhàãOJm[ÐmÏc!! L¸ˆ¿¢ñF)©Ì.‰Y'¨Õ‘ƒ©‘ÚзÁðõ¨÷«¥Ü\dfrHIVúèE)“Ñ ¡Q÷½g–¬*­%õù- ±Ü\߀ù@žP.þÀjÄ'/óØ®Šâ\[IU³Bq±‹>ÙʇµM^¯ºífóûøî·ÿßÜ÷g2Gˆ‹kÛºÈ#–A†uà÷2Ö6¸ë;Å>"²“¨XëJ—Ò {ø«®–š'ŠƒÏåñ˜’ºûÏt3óûãÿÊn}¨ü[ŤPQ*Š©-cã…ù*2Ô˜BîÀÓF»ŽÕ‰¸ RO˜Ic{Øô‘³dùh§ELx-­¹1aT;±(†ýa´:‹TG)Ãòh¾¢!7-Ü‹’2ƒ”o‡Í2™üoöÙLp#`º7} 9^÷a¼÷ë1艃ýâ/ÿUcÁ]2®6æ xÖï%ÿ”Ÿ’{w"ŽÊ\«§/‹Ûû&Šz GP0ÓJ'ÀÀ$êGxÉZ£0!ìT²ÚÍà Æ 8ÞÔKÕXÑ)}Ì-Õô¹X›d-¦É©Û.vI&†€ä¿§gØá‰övn°Ü¶^C­&{a"ñzZ? HYøg÷]¥èêHN›Á涎\CkFCæ ûÐ'‚vº âVw=ò„?³Ë’(Sé{ùAò´ÌÝ—a§4[ŸH¹˜N¸þeWÅiÙ’Ëñ9$/Šw~:Ó4[ã.¡X`½áSÓˆ_¿$GÞ° óýi"ÁÚ=ôf£˜øÙ±|]ÏÛΫGÁî:ÐínŲû|+U°tα¼ÜË]/’£úD¤rÃJ;¾Çõ“ÒÙ¼\È£ÜEÔ:ih™d¸€aNÝ{ÔY22Sg¯ã{ýâDr+j}JˆÕ*zj‘´¤a”ßàäˆ×/­ß4ݹSb Mö¸Þ×h Ü[v1ýty”ª¾âZö¶í«nσŜ¶Ÿ š© Àg Ž\Õ:ºiÇ–E¨’‹h>}S9÷_Ž!ðõl7g:«£ž§bD“‹Ò­)Èë>?ºí\£ hCæA¯dÛÃ\j%’ÝÌÏž¥¤4g|ú'¾`—Ìè‹‹¬Føã×s)cb— ®Ü%è='£où_}´Ó¿—صäè ô ’÷Ùÿœ½ÑØÀÅ{äáŽM­3ínƒ BìÕŒò€±´ÿ®Ej R‹”ŠD&s&Ië!"Kôb÷¨€ñâúPé•úÐm!u»£—’¯îæðqJ@ë=ÕàÉ䌚ûÚC%6¤£Î™F­¨ãŽ<4Ž9\{y¬øQPÞ; ׫7[%µ¶WóŠ„ÿî-ÁµÐb!M<ã‰\;Ӱׯ‰¹ÙŽl(õALÖ 9Ì®dÇn#ÛÛJô,ám?ÊTɃ﫵åjH&ª”ßw+r‚ó…®ÝçW}MóÝ·…­–ôHDÌ4€·ZSK•Ù`…Ï-ã,×P°4i:c^*3+)ܨ-~bÌOO„³Ü¾Å‘Òòy¦à¸Ý#ãhs¦ýÌ^+F¤º’±¬ç!é•…öI<#¹xßð®45};½²k¿ë…mí`àÒö@ÐZGõÃõý£±ï®çVp³Ø‡´¹O@FžÑ¬¹™[H!ÀQ°¬ôÚá.qRË´¹h€Ñ9M¡N.}·HÌGãªZyÒeiÆKœ±8ü›š9žŸýÉwÔý|T?Dˆ¡Å _‚ß(ѳ„vã£Õî'ÃÏÅ(U±ÇiЂ½A^¥nW”›YëVüÃ;¡õçRLèx:Ί§²{I,à¬ÐÃT‘©[|t·œS¤@Tq Ÿªš¿bE¸*²çîµþ¹êjàÎÁ)'"SËRlÎLÚ<¦{Š„…¥¬!ÉÒ»1‘ÛÕ#C~éÌßHÝv×Ó+Óˆv(Ùè]»¡ú¤Æ.¹Æk?áp&ã§ChEÜ ‹OUv˨Œ¯.Ë|òª²ãÛ(³ˆg¾ lµ‰‰UãçíA΋`éÕ9«7õ "éh塼˜½õéÖI$«ÈarçÌæVR|ByÁœh6mJéP©ý©2?Þ³¥ê{Þ >"Èû@áœnurðÌñDu3OÑ'“³Bx¨ÚZëÇ5¾Gî#)a~¸ ÿÃ!ϳ˜[öæ`3V‹ú9½5¨yb;!Bæ’ÎBÇùy&”*½áÒ“(Ç8ò`rÊ{ãWôW×â®AÊCN¥rX¿`¥T`!8³Y[¾õO„bô0ÆyôÆ(hσø? ÛöóÄè7ëÅ8 #¯où:ɨQÞºÙpÿj:È*.Ìõ´NÖÎAÓYª©qÍVÖ¸.08°Š¡ÙÛÏ«ÏraÕ†¦›’ Œ£ý™8ù%~#Š1~ï\MÈ]Æ+r-4œL¦•ó‰<²Tt”ï3A¢Vúâ™9—Ç3J ÐâÉvŠ,ô3¼(Z©™í„ė̘8²;´Q¾WO·½°ÙñBäŸõÕÒ™»h«>°;LÏ6B%4ª#¯Y[–tèZb+t¬œ ‘KuÊ?å0}xÜì^aЀ] @€TŒšúÙ&E¾Óu°¥Dm$É]‹B]—õƒRyT‡1ñRò†¶Œ(Šl·GŽÝŘãZ•_ºÆK‹`S2ŠåPÔÃʧ׊Øež•ªR± q¬Câ{°œØov (ïpøضåáv3£|O¾» 6ÓNÌKYÄâ`‰U¡.7,!Qü^½ªø;èH÷&¼mš(Ç“Š[QíòSÐÔó´YhðgÀÇÖeèÎ%ê$ÛïÔÌ?R¹rÞA·;Tçò/Õ†–¥@ ½/tÔrYC†*¶ÔÈc[YÇåÍýÂÿ«»¬_§ûý§ÿ¦%OyH,ýÌ,& Ùdï¹ÿs¥j=Dê‘Êz¬‹WQøÅ–‚Œ‰öU#ä\÷NðÀÔC …½sãÖ?Dô µ+ììBY/U>ÞÚÿÿ×?åzkyîò Ã¥ÂW·15/Å×tÀ‚ð¥¶Í±¸(Suõ™€ÚÉûLðÄ/ •惴v?¤~èÌ”Œœ©tñgRþÅ>ä\„nª±bô³B9ZÖ7^]uº‹«£pR8‡ëªa{¦ùu‘„o‡ß(øÂblm=}Ëvc¢£¼ ™„#e½Â‘€V9æLü˜³ "“Þuð3“¼áè®}¸áµºrÂW2ðⵜJQJ™=›ª­ÂÕ¤“\5»O§ob}RУĄ ñ#O²ƒˆYŽB©xÚIÂ÷S|Ox¡"À¶Açm›RºÁÀ¦#gyÏ¿”Œ@'È“)0y²é^…ýøW•P²n ˜‹Ìî0»íÅ2;Êá`RCîs§‘¸ø„Y—<ÊóÄ®Š~—ÍC ¼Ø$Foã£(B÷$eÀã¦Ç¶æçVè¯oçN¨äχq¾M[ !{¹´V “vÎ ¿£}Ã8ŸSž¿³”oóåæ±Â© ¹—‚ Ôæ­©Ÿkx sI_±  AIY0)2дG ¢eŠ¯ Ò¶;\WÉTl_Ë·™0ŽQ¯›„g GMÖž½\—@ÄÉH¡ë!xÿ»ÜáÎ6þ)œh(£I§Cg}BšS×>h”q5ئf³sÜ=M³ÒuâÓ¼×`5uE¸ò§øå RpÌ0¡6xeÅ”U3»pX²qV[*·…WútThF+rvRÿ^ªªß}«åd“÷ò³º»”‹MüXêƒÒÝü»þ­íIºßÏÏË7J«Õñ+]OÏ*ƒti}ÜÛEÜên3Pþ_R[}Š!ØèÃ(\}ݺ²¦ÍöÆOk±(ïÒ4üº£ IÏñëWÁ J]ÍKÒƒsâ—Sõç@­!5ÞY„ÛU:¯m¯ÀEY„ñ&ÁqsɯS#¥u•öewžTfÄ„u7ðÏò±#‘cv$÷í$VØßh¹”3X‚D¾rŠ«JÔÏ.0£-õ>—ý8y‹‰åÍCtuo2ü“Õäå!Ï{8¤ÝaW‰øÒ‚|·ðrlK‚ãQûS¯ nÆ®kÉÌ‘1nŒKaÛ(Nˆ†¬L‚0™ÉçÛ õƒZŸ<¸óðŸm5åÕtUBç˜tT2>oÕôÿEVH³¯ò«£§ãÉCø—i§î‘ëÌ´6µ/Rë’*ýNÖr’ë*w-É“‡>Gôë y¡;ðS‘9mÝæÊ.Œ,+n `è¬R_zOH/hé×Mþ§³äŠ¢m7M |<Ò¢XÎrt¡Î_W$wWv­+08^}Ó DÄëüˆÕµ±¶ÉŽ(æZšV7Iñ]L/[Ù‚š\õ0OìE;Ì9äG×CMÆ|ˆmÝ/Ž¦ÿÊÚìQ}£mºG4Ô„òÀCWÞîZáX½54kï¨w™*~6–@ºbˆè““®I †ÈÌþ¿A¾(káZ'»òn¶Êi“we†"'ÙÝït–³Ç =Ì{$c˹{è eŸƒ«ñ§\/íçT’ö6 ýiš´<‹kúØE÷éät*ÖžÔH^—ˆ ]ä·2~@«°3ƒÊú=y³®æJQˆ›÷•ËJˆ.àìîí¼,Ì@ü\ÓŠmS‹G÷ºßmöÈ‹‡*¹õðfÒÒ2xív¨Œ`£o ¯ ¦õàq‘ IOå]÷áÀIß^É*2„j"¶æPñtœLœæ4óÀSÉ/“ÁæH-| sû»£³ëëÙ*²ú/’ÇMp…JGŽ¸úÑçŽÌ6Y;±±><Ñê­[l8'®k³>~t؉?²mjÜm&‘H¡ «ñ10êP¢(ü†É¼˜zÓ]›Êå¨4‰ù_ZÃùª[üÊ[«mO¼B ì³_ôk7ÎëX.A!3ã#ÛŠOÐ4J5ëÎÇØ}þ¾KÀôy®òx¤½í¤°’KLÌaä fHq›œ ¡\Ë÷ˆ&͹‘UTYùöŒÞ¿÷í#f;kÓv@C&eTö_—Á•Sã‚( -}Áó{ŠqQn-”B‘¶ñŽ+åBÄï` ›ú3ܸ Bål§Õņxµû'DE¹ÁDï°© ÍCËî°ßW "ðj¥,JZ‚¥^·Ã<ôm=¾aT=qð_£9µßU1+0\Tr‘/× «¬`³Q^—‰_ǯOl7&q„·ŠàµØøl5¤“Ò¿øxv=î}á,’Ô«iZðˆ®ü²gH \ÎÁû| `ÖÍ·°œÎI·]Éô½áB±M*;sÉ°PáT­ )‹hFXËYç@ÐUö”ˆ¨ &· »!¹I,òn f®çìŒ.ø/˜SáÆBV‘}ÁŒ-$ åj*1Ãxá^ö“êF2}UÃEÝ.2¯›M/Îþ3ÞHÔkÇTÞð£Ðp)ÜÇZ<ÚíÝz»L ÕÒ#yQ4Ë 3ìÝøzd —–pêrˆ«ûŸ!a¨Øï‘[¶\B ŸÁXA†å˜†O ŸKÀ-¤h–¶ ã¡Eߎ‘‹€Z±‘]Iw“ìh(”;Sx¸¬ôL†mä)¬À[IÖe8Ù°gý¥ªÿû<0:ØW ½XvÑè®FzŒÁÍèF—#Â~ùÜÐ'`ä¸þ·Ý˜ØN:ÔXÙˆ„ T__­®‹[œVFz õQÙÊ[+T)’r\Þ£A7E:V#vþ‡t†‚jì˜H\Ȧ¹ü6ÅY7ƒÿ~à.«„x£‰O­ üƒC°Å¬ ·stVtAâk†Zîq' =;0#Óœmoè ¶ØGµ²JØ[+ßÁEZm^lÙfSj¤¡ßêã–×#ÓÈ%˜—ÂÀiŒvH‡ +`f7™Nü‹ä£xžÂä#ÇmA~bäNr†t0m'FÛʼ¾åAÃóbnz•ÍY_l Ëªd-_/ÂØeºŸð’°ýqÌo™?Uþ¡5ËJ^±ÓtÀ¢ùZËMJ㦛ƒdWSnГýô%5Âc9 ÌÃO5Famp‡0Ú÷mks£êt¾Öõš+Ã8÷¼måL©«1DdûÖè0/˜Å)ßnâ:ÅìaÅ”r²y—K´ ,˜A„Áz±jÞ§$HÞ²å2áóÀ’bÌ%Ú_ªã„æK¹½aó1õ=g¤xw²ðƒ÷P£cÁ]¥Þâ„ê]ù0)pj,yCËhÿžª|ó•Tð„¸".–ÐZ¾×ye¦mZ'Œ=%DáUÔ»$Ú1_Q©°†UZ_Â)”³tð†W`é,¿aSe¯Op5jëLÛUš9E–â_fÿ0ÈzºœÃRoXÂew­ÐÃ8šåù¾ø7®…ÊdÛízJ[±Sà鎅—¨,ðÖz`ƒR¢8tĆ¼]%µ- ÈY­Sš ûú¢Ù`¦<$g cÉe ž¦ jÐ|»$B@åm»¯·B¸‹á]ä'±øn œÇÞœ—©î?P5£ü`¦)¿ú•Þ\0…õm˜ÇDOÉ „Õèiã#µ{§`cž’s„@˵¶úNÖR¼rêgƒª;LÅìêUû¡0Vbý`Èìb+ã s„Äŗ³Ó7ŒboZ¤|0 ¹4°?õ›ÕDU£b¬ï¯ °¬Þ($Ù抭2àFjî]àk)¤îs ƒ^Ö¶ÂQ‹ôXWš ®Z^›íJƒ??èï£ó@"jÐ:\LþøDžZ@êf5ˆnã¦Y 3ýx®^QÞF-–5÷7¬]ƒNí‚¥Á²§‡óBgÐÔ µÀ8 FöÿyöB] ¦éPSÅþ"”ÎSf²ªQ<Ѐm£c“aê‘Žšû`É%?º‡ŽÐ¼‡pFodÄTÝ»›l‡&oPH^RÂS¢“º™BüðnÔ.ýb`SŠwLš9`8d  ø'dùUpRÍZÕñïoFÖ3 1ö8ψN+eTL°^)< tì ICw£ÞñöýóÙÒó„ôaH2%nÝ€ÕQ2Óh;\îò?:Ég¬F¢ùü«ýµä «Ï¨ö£#©ð: :.ªrjr! Ä©båÉ@ª8Ë*̶VùÛÀ14ÈØ ’¿Z˜©5üÊÛ­ï3á„þRXÛ™™7g _>züiþ¢XÂåLDw4\†D¾—Φ'ÇŠì[}Å6~ÇN•‘GÌzòä“ö®EÜ+×yÔ¨ÜÇ_^©(8`uQ>.@lˆþKΆ.Ó‡fžIL¿‹½Æ88LWA ¯U< «ª/Q½=ë‹ü¾ ·PB{*§¨Ï†¤š¤N%Ãz"jön9µ˜!͇¦{ŒÕ;‹*PäOûs-ŸWÎNr|>åAv”Ld h™‘(;m(ï&•š!}•þ@ù±jôìÊ>Ú°Pã×&Ï †5' Яƒ^k@÷ùe](§ïX1 ýcÈ‚«%†¼òr|zMºÈŽ&¬2÷[‹SKÔšsy¸^Ü›ÑÜŽÊû³iRj (},kˆI®;.¥£ÃkJøØn·_Õ-‡Õ§ž”Îß—ÃÒ5tMó â4òN€tªZÁEs¡jAóUæÕãÃOQ‚‘_o{åÆ$alxr®H?^T!Q­ópðgåÖ Lm‹°pj²rÕϨeÔ˜CŠ\5¢òQƒ$Ç"<×kSïPDJ{+ÕÁ™s´º›¾Ò(µ–%GýD»} dˆ¼–u,µÍÚ5ð._GyT‡É€¦cÂ-˜´t¬Ûƒ¬Lnð½7Uc"L¨DAÒzËÇ=‰WÃræ®H"hKZÌÉ‹1tدŸ¢#ÕGÒ> stream xÚµTT]6L—”t3€tÒ Ý % 0ÀPÃÐ%ÝJJK§H7HJ "( ÒRúø„ïÿ¯õ}kÖ:sö}Ýuí}Ýû0ÒiêpJ[A-À P'8'‹G «&ÿÈàááãâááÅbdÔ…ÀÀÛ±õÁ0WÔIô?²00~o“ÁïÕ Ne7 ‰òðxyxDþv„ÂDr wˆ@   u»b1ÊB½`[ø}¿_,–¬ ˆˆǯp€´#±9Ô@p[°ã}EK@j ýþHÁ"n ‡;‹rs{xxp]¹ 0›Ç¬Ü  vÃÜÁV€Ÿ”ê Gðoj\XŒ][ˆë_€Ôî‚÷ˆ%ØÉõ>ÄÍÉ ÜWè(©4œÁN9«þåÀø½9 ðŸt¿£&‚8ý YZBAN^'€5Ä ÐPPå‚{Â9 '«ŸŽ Wè}<ÈqYÜ;üjPÖ€îþæçj ƒ8Ã]¹\!?9rÿLs¿ÍòNV²PGG°ÜëgrØò~ß½¸®½ÔÃÉçï•5ÄÉÊú' +7gn='ˆ‹XIî·Ï½ ë_› àá€]`OK[îŸt½œÁ¿@àOó=?g¨3ÀúžØb ¾ÿÃòq¹ƒp˜ØÏç¿ÀŸ+, `±„,À6'¬³ß›ÁÖ­ïÏñóÜËàùùûçÍô^aVP'¯Ý1·¶’‚œªûoÊÿ€22PO€'/?€“WDäà ñüþL¤ ‚ünä?ÁJNÖP€È_ýÞoÔß=»ÿËï aü™Kz/]0€å_¥›ððXÞ?€ÿÏzÿòÿ'óŸYþ¯JÿߎÜ~á,9üp#ÄÁë·Ç½tÝà÷c ½§ÿu5ÿ5»j`+ˆ›ãÿ¢JpÐý8H;Ù8ü³‘Wˆ'ØJ·´ýK1Ùõ~ΚÄ ¬ u…ü¼]œ@žÿÁîÌÒþþq½—å/|??–”w²„Zý4^AyaÝóýJ༟H+°ç/!¸¹œ ðûÀ==?€5†õóLyÜ0%Øl ·€ØØü„!¼!ö`ø/ þ/Âÿr_à„çîü/Â÷òKÿM'ð'ôß|À?¡ÿ$¹/u¯Y° ä`quvyýƒïI9ß_nN?›üË (üà¶@¡ßȯ:Ĉüù3èþÀ YýTî!@Þìÿ±óß÷åêrµý¯³ð=W7GÇ_Ÿ˜{òṁl黯ÿ5ˆ÷ ø{ýëjƒ=Á–X ³PK±»º¶‹iJÎõ1‰Œë¬œ> °v·¸è©¬ÕYAŸagÒ©C=øK_åYN¥>ÒÞøì47 ‡·$kµ^ù^›%jO®·bÍO ŒîH×÷ScRqêJmøÞ¸øêÚ#7#v*3湸 ãjæ^xô)zÖ÷—-¾›]×Ú¨Typ]6Å«cX2ÍøÊ"{†Œ ÎIÁFpè‰7}zö wüŽV9‘Ëo7–¯ÈÇh…7îrÆûS….¯kù#r#2jäS‚÷“L>2›iʤs>¥EËÓtqÖÎwŠ’Ægºp{·,f lMðû¨1W•ÌLê® ”'eç½>ãPQ,°à»Gîåi…¬š• :r“‰¡®ƒ{Žã  M^@¨EÑÿó+lö >ãþ¢Ð—B1|ýÙ$¢Lnê¯LeÖ0•ÁŽÝº_õ°|‰@RFPÂUÐàFµ7b•E*¶Lö.Á&TôÔÍÝãeNLÉBØ… Ólt…Þõ>»\¥tQÿÊçézš=êµÁÍlO±FSXöC©ÂDô»¸Ü‡¯ÑS«Vžï­û[ÿPæÙž¿ôqOQP;É¿¸øÒDŸé_ñ 5iÛã¥{Å—Áéð[b`ãÎmߎ¶£òS{ L{”8¢™­~ ±\NlÄ2Ù€ñˆÔÙáë3–½1â) Uqƒ§Kø˜¥$ÎÏ _BÐI<^ έJ%#[¦¿fV"žÜKùÑIïÕXÛϺlî¦TðP:uݺˈ~ꔶÏÀxMƪªY]ÅKñÖ¢Äl—Ì4ÝIŸcúÇ9!Up»ñ4ñ“ºézýPµ$; á¢Q€yø©‘ÌúK–‹MÈj‘ug[`£±&¦b!k÷ó 3¬ƒØoíÉŽ æaZ;éǸ& h³'#JÞçOB_×x=JÏCÅn \àâ®õ´æËÄG?]Ü_}ìý˜b£Oä\}2Ëóãw÷‚Ök]Ý96êV%U¿Ü7.T5_J-<矟Q»áúµ'T1m‰ŽíH8˜ÎÐ쾘„Š655„oÊ'GWBKöŒã¥Ÿ¥ßœáD §sã­ËkŠ½;ÒÞŠKÁ¥dé]¯B))K7úXÌÆ–µc[Ô|€)â¤õšöS—xéÆaX6 !­øGĈØLJ_ö0V¿Í‘p"^¦×µV4i.Ž–ן¾*áÚÖ½Ùì]W8+]qFèÔ£Pç,`‡Ð:­}{ïëSdIaíåËÏSuÕ³cê®.yô)Úˆ`ü˜òìR½94a.õ‚ ¢˜öÜ¥8¯Ã52›ÏßÆó.2@|õ¼ÄôÍ{÷œªYGt£óý¢¼!ìÌjÚ+‰v}[C<&í[ŸJ:ހť¶Mæu˜ õPm¼Elž}¡Y0ÙÇד_1¶jnIrI»^SŒ®î0wIEˆWù}pÕT>%<7;»2[èS}Òí”F¶@Žå1*•ñY+|…c5»ÞŽÆ«|–Vµöø ¤ý#rL¥B(f%c.>crž´[_ì]Íæn%»1‚Ì1Uj'† ¿¿˜P^½@9Ô@I缕iŽ/µtrùÈXu}ï²üìð³O̵&«þûÿW2™@#SjÝ«ØY^"°˜„Ô¡e§Õ‚X¾ä¹§34Kòó±·2V›áÊàŒµ±°>» õ$V|‘ríÒÓ«usHèðI”´ ³xÈÜeoÚë’{l¦QÐ"´EôEM…®S †Åu›ÌZ|Xž£õ‰Ç²ÑÎc›†’¾Ñ'hE$Z@Zõhºu1áR?¿}>^Á´ÍÏ"ÌÃÓtXzhm/KNd˜[•¶äIó‰YÂ3¬Û àÉ÷× þX®¸%QÄ7á—±±õ…íÏõ·«"B!™ÓÊaª+d~0&¥’ûÌx}Ê@R@ ¿¦Ūš/Ýödãã8ͺ†‚sVM9åÖ¹Ò¾gdY™ÌÒdûå|ÍV2•›Ï(/cÎI;8“S ×AëÓz4õÜ‘²l&¤]PüîÛE?ú!½ÜV§ÍLh…:ÂÍ.|\¸úxÉ0»=‰âi{ÕøÄvMåÙThGdG·¨5iùÓ‡jÝK»¸¯‚XJüáhþž1}›'–¥ìeæO,×܉è³Ø'é6l¾Æ!S;à“‰1ÚoŽ5ã0żtᝀ z˸¨öºE:Ip6LÝ' ôcKªi,™ÜU¹ØÆc¥¶ú‚u›7tY¯du ›ó½Pë‰AÒ(27Q(_žWµÞá§ü¹CP.*I·ê.sòJ¤u¹Ôjæ ÷ù/Q·F7ÕvÔeêLƒ‹ˆ¹¼ÞBN øz¯0|"bÞ=¢G £Üš3¼6-3Ï£ƒ|®ëjBjœð|*Bôu8Ü«—ú¿p ‚ù~e$Zx<9õeU7@¶ó[Ú´=}A"-ÑWh›¶ÞGܬ`Äš8%?†yŒ§ÜÀa"TT~¾Hã£"È žVõÒÔãÛrÎi¦¬tYN*³é+‰«+þÔê}yé^‰ÂÚ1Ñ5iÐÀ»þÓ!ã¯ÅŸ¨A lÍQdI£‚"éFQ5¦Ã…­mÁ¾Õæ4Ãã’D$Ñp÷#…Í|ù1/ëÀ5m$Í,÷çWd ÷Zäþ‡ÝR^¯£ƒD¦- wˆs“ï.=ýÃ|è0G ¼‡ÄN¡q\p‹AëŠC­7+þ9Ã=ù5ŒSÚ¾&Ø26uÆCÿjÜr³)&‹…k˜8Õ )è%ÈZ;!y°ïGÝG¬(´W9"¬ ´qo›O`;ÏIÚZ xÈQoÄž×\åÔK>‰U'mòYÜÛ@¶¥ÌPJ_bp€4lzÕ'“.`<ºƒ~o€“gFAž"‚zóöƉÐxsÅoêÓ’Àƒ‹/ƒžFÆ+­…Nâ¼^™#Ž‰Y7E£þHVÓͬp|.ZóäÕ|Ò¬ƒ!ŽBÚ€}bÕ»DŠ¨.rÑTE"ï'7!-ßë½÷"} Œt€Æk}o0ŸÒ—> Ñý8LÜøCÔªóm-¸Y-'hn¯z¸Ú]E÷A19Aj§Éõç ä^Ü[KÇÛú.³Po#Ë/þ~t›/tIZšëÕ11ä“Êâfè;¿HØs<>á\Ã\ÉK ¥\#•o˜Ž©I˜!©ÕâùGCàÇÁOŸRk°4á`ц]˜K`­M.œ=,L®#I¬«f"¦gÖ½®šпûÀκjCßCÛŸb+ô½èl³Ã|i“‚(– agñ²^!Ü·5’CÀF8´ lNká9¤ßÛhÅv+ȶâHtÕüXjÍj³/„¤¨¡â}šŠõ|m£«S'ÿÙaÊéT­öŒuÂî›[ù“̪»WÄz÷×zé#b¢ëÆZGÚÖEæ©ì¬:Â.=ºR‡M¿A<gÉ¿Q5Ûoj¬2Ô­>6ŽtIVÔÈø¦_o§Ly´I»¹½{ì£Û/g*Ôr·3thµºë“|Y‰1EþÕNü=XÍ™0,ò1…ðÕ9» )Ž³‘©pSgo~s¥‡¥ƒ™<Åîüu×Û±çŠH ”—sÓj»{ÞlW¾”05"`ËŠ›…kÝè ´–>„ÀúOËÎlW¬ÔDhº>8Q°µjÖ:¨â²V¢,>ó…”oÉ´x¢àñ±Ï¤€Ú¶v¨¡$¡—&ç£2^–¸Þ$Ù¸Ãv|pcã‡Oæ$ú·0SõR1ü‰œ·ÞËQám®sUØ *%W­XòÛˆÏnµ’®-Êl·\í˜t"ÉÓ”‡ ØeÃÞ„á‘Ëä…[=#ì÷(ë‰BZ€469òÅÐOy±Éè%û·±LÍÍjI^ÈÐ…5iM¶ÆN<2²X©‚EEò’gZ…èL“?•ô ‹aÿš£:dXª<þÌK x9¼‰K Øa±õÑ«£¸ž×‘;–ïq(p[­ePGMSÓ?¢ì±ÃÎÒ÷ :KãÅÚpÀÒhp°`Q0U|øãsí W?X¡Î´T¼¶.‰ÈBÊçýP¡4-"—NÎõãh×™jÁÀ+ÁtîOß:Szû 5žT¥W ÃQOÆðEíö×±„u 6âQ®uM<Óv§†5lI¢6ª_ÌêO)M.x‹=ŸekJoÍÜ}ö¯Ø¸ÈQɦEuƒ'éÜ%š¯(j›Óè¦Úðí>éæ_Ížcž«h㘗-Úg³7•/“¯.ã?´ó]mZ‚®´>Q×Ds!ˆLx¨l3Æ?°·µRàsIó Iãý“òÁÇy®­£cTä“• ZE¨ñ™¡{m"—R¶N{ >±Ý˜^ƒª{Dc²µ[JÛHQŸ¿£Ö«Zkš^WÅ#µ1‹ ÖmmCÞÕ¾ÇU^¼V‘(oƒÇÈ[õðRP^÷v毿7#‡I±‰³I6®mÐÆ'pízåšjÚÆ‘ªÏN”O ß»<ï=Ø€Úì×Õ¨Å5h~áŽÆ%ØîÆ:1{:4?¶ÖÚ±sc–þìì&d¡07Dì0øþT±MÐê â¼Ã? §óˆ¤Œ“µN~‡”rzô#K·ù"hïÀ,<´ÇîY4çÆ$³±S¡“±†Q¨ÆÚí´¤^\JY@IBŸ·˜ ´Z†Râ—Àm†“ɹ2!—Ë ­££ÒXÓbŽ®U;“ÊÀ~=ÏE§ç9ñݬm'¡'1V$ç²Q«Rü9‰)ÇMdë eÔ%sLN\ô3 ±:ú᪪E;_ÛÑ]@ˆåÚ-*ãGOÓò¹H1”ªÊî>dìCÒöuÐÞ› m¯°\œE£¢3±½‰qgÏ/æ¼ñqéF¸a×z1ÅH3Åûü¬ý¶MIjèjV}£øÍI·³Ø;@þÓî§W‘M® 2ú}éòŠÆÁS0ìÅê›$‡8du¼¨ù±Ãض* Rr2ÏPŸ/WéYtf™˜Ê—º»¢ûöJªÚCë ã4ª §o!ƒ ±‘Qž©£,‘ÞÀÕKb«àÞÂè˜\Ù‡Ïé³jU0žAB{Eºe}ÏM©•¿­!‘ò¿r†ÛõGõ&ʦd¼ O ŒÅꫤ˜V¤oF®sÓhP¾a~–¢«Ñ†Y|—¯å9ªìÎDšBד¬6¬Z~hß ?W .tN?å"4÷$ÿÎ>O”Ìëb$Šb÷µ¶x n FÖ^£R&6 \=P,…íºËärmu)m‰Ó·CÕ0Bªøì“9Ÿ’1õJÄÈ3°õbèëc·ç)­hj ï=?ùzƒüxz%‚=ÃOfáˆÙó°Ðr°þr¸c’KӼ΀gt’™÷8Œgcv aÌýÊÃËíðb"(`úòu?]•azºwæ,ýÈM°Âg{íÑofÆÖ9*_šÛ¯2Fg(¹Y€®Lnµ?†»‘Y‘/£âŒŠÂ—$›jv ‹uâ~\½â6xê@¢±[eÚíSj—€ÕUkžaé웲¾-a¤‘9ÈrÀ^vc¾ó«EÇÿeÖ$M¸•-Æ;¤ÎÙrSýE`ÃÌtÈnoþà 9–1ã^n"¸"– …¥g×;/Wå¥z6v³ûaŸ]4õã“8Õ’èÏs \…±ª |žå5ËÎúMjé´š”¥ ÝÑ%Õ‡–­ò ±¯5Øâ°yg(¸/P^c-Í‚8Ìë"ûf„‰šì¾é)#ÜȤ˜FÊkŽ–pãüμ%§€oc!á@þîJƒjÓcØ[,^\e¯øé3¬ Ü/Lñ†O.¹©hÊén£nÜÆw˾ö ãÕÓŽö³>PŠ—‰çD’f²ˆó‘qíâÚB]Z6ïíñy’½ìÅëß6³_R9Þ½Ä5{éœÐñæñlœ;¹¯'ƒ—bÆ ”=’íÞíUvôk$Æì7 éŒmŸa’l6ùÀË×oKb…OÎ|õ䢖_OùCü]ËOö3#…A¦_Íý›Díf‡·z%´±ÃÃM‚H@ê §iFL±Y_‘™'&ª²îß”6ãìÃöƒ¹<;v£ ¦dpÕreg}™U™¿©²ºD3#¬#·[>±|˜³D! Õº€Š@JÖhçSæ%Ͻà 5éÿ)÷!” ìJ… ,M \É;&k~ÞW;Œ<@xjyǹ/ÙmInO€»ª)ø¢-@Øœönœ¬…À˜óîíå«5óù‰ÖÁ~}I.­Ý£Ã7´á„¥)5 –/Åm¶•g¾Tê“Á.â'§LmÏ?®~†vÕä;‡š—Üà ,óÅ#r®—µã\ÔÓò´Ï‡/ ñ·©Þª¤¯Ù³Ê)6 <‚ÿtŠiÀõm"™Ç;¶£‹ôWI=#kb”Ûk®,•± š2 [¨œ1J9¾µ³—Ìmá w™Kôúè$-b18çŽ üuݕƵZ¾p`ô>•íÅ­æv¦{ [‘½)†À‚Ü•àF¬d…çߊÏ"cÓDµüqi#Dÿ®+ïÎnàCiusIŠfA0º§ñ˳¯NjÎ}R3 O¸eJ /w ¾²òN~›­ºwWÜ·мÎöààÊng°iE+¹P]èÚG>ä¿u#”Ñ?—Qi¬§uuX»‰êâ˜úJ` rž“gÐ.lî¬Û0@7Ì ²5–?´>.8¢òu»IƒKðŠÊÉØÀÙ£é5aµoÞùNÇlí—¬ÅxV+â1ͨf#x“ëMîNÒÒRý©y¿,¶G-†ƒ±Æn%q1}iYï±XLÈ´Ñæ™î £ðbŸE–+q°²¾å[€¤‡9‚O9qˆiÌÆ´[ •wwÛv¹°ø|߃]þ¤U‡ÛhÐiÒëöé¹J€Ck®p#zÛø€ÆTwÜÎæ5º€.b5 DgýŠÅq-[ÐDåXe£y&|•±›¤â‹¼áž]—š¸ð¡V‹\ÞK^œÊœ*û”Z‘É‘“K™ú˽úx‰ž )`\P‚‡0ÈZIhC«iBjn¿ˆGåFè Å™¦6j3_d%GDãá)"ÒQšƒØ£ÛØKúm·âšUò.Äåïï™ë·ô@ÉxJWý™”.ó'´¢ïÕM\®¸*žŸêidÔ¤ãhÔ¢ˆÞ˜´‹s0¯ã@c-[ì]jÃbã\#ôÒ?31ŸÔ˜2/f6/ÌtŠ2¼ LDxÆÌü¼3¯Cù »¬wï>¶Ã: Ž”p(ÎÛƒ8ýxuÇ¥´€CšÙQÞG,ñ†Å|¦‰Õ”©;«Z€õ2è VøöÍõƒÒx¢N‰*eÞU rN™†‹Œ¹²©c†Ìfq Ñ•¢t>—Àñe‡HlÞZ#‚Ùç!dkŽ á¼~ãªJ¼ó¡ü–î q…gBîÖ9lÛ 7ܧqÃuÃ\Ñbˆïiù¨áVêm/W0ªà-á'ÑšE¾0JTâžQ0¼Xz±K;lÀ“ß߶p,p >Ï1(1}dÅÚì±Gq$" ¥º<Ûhíƒzª&ÔÔùà¬ZÿG¢öù•|§láøq¦rÌ‹âùÍ„KïQ-¦”À ÕìtÄl£Ð[ìxUñÀêYÁ™»/×ë’þ¸½•G)±&} 9VØ/«?Ÿôîνǘ‘.Òê¬ØÒƒr$.- зón]ÖÙö§mÛ.?™7ùH4ÓRn•Gõ£“üûœzsn—«)JÙáu§ Pwå“·jЇP4µ²† e]e¡R’½ßs'Bäâ$ª]'}ÐÌÒû`éQÎ9WÈ ¹Î•1Þ ._T\Ülâb9,JtV=ù "%UÓ»É{íÆn/T<ñ>ôˆ[é,Ü„Sðî€t)dºeny—¬²ø…A±ÖõªÙάLàb³^ξ‚^bíÉ—eɵ;œL -żÔ•ILЩ#Í™æÞÕ²j!f#O6‚g&¤!J:4-_¼Å§¾{áë¡Î—°½¤tÆ =LT}tv|‘óöàB@€ÃŽo—Û—QEoãÃÝ®µB餤ûàÞ#dýí1Õ¢×?Z!4PùfQ±“ųg[ŠíuÜÝtzêrB^ì nKÚËç_9H(ÄÎÃ5„>Pe–ÏShŠ–>Rf^SM.V6ë)ðïs¢V¯:¶&Åv A&ò—¯øx5:£ünЀäÉùJÓŒ-#µ­ˆ’3~^ÚuÉVÄÉñJ^r¤âÓÏó†1º½ÞnvBnn™ïÛ‰ÝÚÊñg/Ïãå6X€ïÍT:6rz\=dÜîi?P§ƒ‚KmP-SûedŠ‰cU)vF\VºaoDªÞmL,r¸{uõ­&r0>>}z.GŸµ}¾ÿÌF/ÄÇÐxGôDå¢wS70‹XÜäØ ÍJf9†¤¿‹Èõ(K‘£˜mUU’âd»‹5›Ül«ë;MK˜,0d^ôqVF­9ú ØÑʦD"T)°Nv`0Æa™eh㫲ë3ãÑ~Þ1øò“Ê1¥YWs9Zdf3™†ülªõÖˆÊ{±Œ­ÊHô[¿TŠŒÚµNtˆJ¨Í)žG ³M§®ã½š ×Ûv«Ìtä’ö‡Y¸íñ8è1ùj„¬+-Þµ8 -¤Ø2NEM¯[c®æ¹hžJLÂÒ˜Ùb{¬XìʺبrpÍÞà²ýôüQ};•4Ňz¡ÁS0t£DÄpB$í½‰L:Ú’y®‡«RÞP?éÜãÖ,r^©ð¹×€9!8°3CÌFš 0i›ÄnŸÎO][Wøˆ¨sd )0ÖÖ$UVPóÔí&Sû]@Á‡>ÃŽ3¥ó_‚øñWÞaÙAÕdiÀ©êl®Ç&Õúc‡“²:v1B8^([XŽß´/l4§N^¿¯ÜÁ/IñmÀåe¡«Çü8Q(š ò¸*GLV@«ŽE·Ú”D wœÂ—WzA× †á,§Í¼Ìä3oä–²{R7â˲†!Í£V5ÂúÇ#NX6 Þ` `ù\vEâQ°CœçÃÝw}1ÈJÔqøÖÃc­HOíyòUþ-Ef ñ­%3÷ó6õì}&ãQ‡göUùä;!Gl:‹§ùÕ›lL‡íª1D”{ÐÓZÓó6"ì:ßɼèœTMÚhEG¤è>äηZFñß›ŠÒY£É+íý–^ôn8^%’€æ>FA×Åï1e6ë¾hR “Z»{ß-…aè«mäŽÎ­U€žè„ùI½_©îÓô™Üwg½ÁW?Ý ÃYÑ@¬-££h}»7Å)º¶pÖÏHáK>yV¡6“¬Ÿ(H/a¯û¥:¸¼T|V™à›}³Dn#wCÁ±nÄ“çÞèc/-åwm‡AÂðñðhù´ñÿ`uá endstream endobj 6463 0 obj << /Length1 1509 /Length2 6214 /Length3 0 /Length 7201 /Filter /FlateDecode >> stream xÚµ4œ]6¬ BD &z7z¢÷ÞEŒ™Á(3ÌŒèD'Dï-"ˆNô‰DôN´½—D÷IyŸçÍûÿk}ߺךû>ûÚû:{ïsí3,÷uôyä k¨ŽæáçJä5MÄ@  /(@ÈÂbC;Bÿ˜ YŒ H —ø/y$„¾¶)€Ð×~š8@ÍÕÀ/à‘à•@ øH €è Ðä¨!àP!‹<ÂÙ ³µC_oóŸO;˜À/..Êý+ çEÂÀ 8@„¶ƒ:]ï9ô`íñ»”í,ÁÇçææÆ rBñ"¶8¸n0´@Š‚"Ÿ@!€Ÿ´@NÐß•ñ² ì`¨ßv}„ Ú „„® Ž00ŽºŽp…C HÀõæ}U €¶3þÛYã·7àOoü¼üÿÐý‰þIƒÿ Á'gÜ·ØÀ¡m% ^´;š‚C~:‚QˆëxÐÌd}íð+s@INº.ðOy(0æŒFñ¢`Ž?KäûIsÝeE8Dáä…£Q„?óS€!¡àë¶{ðý>Y8 îõgaƒCl~quæ3„Ã\\¡ª \®M„ÿÚl¡h€0P\@TDu@ÝÁv|?é <œ¡¿@þŸæë |¼œΛë" >0èõ‹Ð z ‘®P¯ÿþ^òó 00` µ…Á ÿe¿6Cm~¯¯ s˜¯µÇþ|þùzt-/îèñ¯û¯óåSÖÐR0~Èõ»â°‡î/a€¸°€_H\ **ðù›Gû“ðß`U¸  þ;Ýë>ý'å'Àþg:8si!®e °ÿ«r  0|ýÃÿÿ¬õ_!ÿÿÉòSùÿ&¤äêèø fÿ…ÿ`ÌÑãõj]Ñ× ‰¸žøÿºCO­&suú_T ºž9¸­ã?m„¡”`îPˆ ¶û-—ßvßcæƒCu(ØÏ{ÀÃþv=[`‡ë»u­É_ôztþÞRF@~Θ€°„D‚<×Rxñ_#êþKÅ>^8}¸.Ï`ƒ@þþ¿¡?„Õ vE"¯gý—¯›ðŸõ¯‹ u‡‚ 'Ç`É ûÊ æã 9Z7žo}BÄ÷ŸÞ0^R¤~²¢ /ur ø*bBîÝÈrÄÉ<é†@ÁUƒ ÐÁrÎ;5B‚b²º×Æz‘Û{€Tút¥á*°¬ÞÚjf%‡ØRìÔëu¹ÊsPr»ì}ÍXS–b­/ûQj·ƒÏV»É{«ïy>•˜˜àM¬ ¹Œ–²‡oä†GÞª2£öeû¶âé”ÖNR;z„¿~œ*âÆ„-¤Ò®¯;«f¬?HYm¡Q· ³,µ)ΫZ!T¦ Œ–ï¾{?ƒÿ=¥#¿ïêÏ+þÑÄ;‹óEEÚ†dŠ¥#f£mÍ÷ e^YÂæÎý§Ð¢([ïoìÃð”©I–…°ƒãeRT¤:ù›Íéi B'ÄÛ¸˜©…ø8íN]§X ã5]Ä|ÚŒ_wk»K}iXy„rA@ªò[áÛ¸Rr GãªÅZN³¾Æ•‹9TH=F:¹—Aqp©MXVUÓµð0õlÙÊ„5ñC’”«Yõw¯œ´Óù`&MÅöCKª}rýÄBJ†N)£Šô§e)ú0Œof%Ñ«%ÅM^k"Êá{Sú€û1¯×…·töT´vÕÌ‚w„ü‘É–ó¤‰ö¾eûU³1ìûQ–‹…C¡:ŒÝAHói¾]ËÅ ~p뢒ÊÂä|<ì’É©V°  îÄùçü¬›±mß³‡A´rM¢dÖl««Y` ›½º.6gÀw•`|nÜÝ«/!h‡WÆ:Š/„RýÓÕÐS6t¨¦®¸í×`ly3Ã"«‹Fï¾9ÑéâGŸ™Ó ¿FãÀ}—‰BY.ƒ¾æ–Uy¦ÔDÞÐ…„U3Iâ¿Y ¡|ÌÅ,nƒ½^㘡oÂ.×.Ä#Äsë¨È¯¯%W¹˜ŽlT©›so>žMp|'Ž]æòE‡Ü³*È®±[¾òÐ3VsSý¨¦V1;ÀþI4¹Œ›dÑ]jÛâŽÁô»xç‹‚s=5…âó†ûƒ"$x6ž¥Uj‡òî©:§¬èÈðÕj¿ýé¶Ô팺›kág²¶¤ 7/`^ùE0KÜ­:ºÅýímýðáh¿ÁêÃI|>Ò±n\ÖN÷„–âØñGLAØ* »o°¼ªºßÖ†¯îj_#Ifr™×^éQ¶[ðî‹™/MÌ4wûBùMÙ­è''íåNMxß>EG¨'a¦Lïõ÷fÖZÔÊIÓ½Ïn5*˜SJV2Y½!>J|åOÐI(¤Ô**pj\|a:Ý‹­ev''E•í¨Ã×á‹nÏȬʲ… ½"µ/'çgsæÇVÏ2hÌgåˆP¥¥âTN§Ö(Š"ûó0ëq„0ú û®„O—]Æq›Ç®õ ^OÆQ^!­îI´ôÏ'»U‰}ßߘ]Jnïó|šï©Å ^$³¨Kù¢PбMƒéáaÅÁá©ØÑkÔ6\rÙ¯"¤ÃáKÁ¦èA­©|ùVsÖuãÙn25Sˆj1©åË|õjéH êôCÕrâÇ=ïO4OA%˜'bV ´‹&!Æ Ã™ªDýUÅ—FùúZþño–KcxÚK9JÍXJ^Ò—ðçViFSùa3ÞÂfHóxRã>¼à¥ ÏÇ4™ùœßäbøœ•6Ò±'Ëw)|Ñ ælà;íë'E.REÇ+N~u(M0Ta›X‰Ë ßÆ2‰hÞÿœ¾GÁðçñpôV_•öÃm]¢b …è ðŽƒßeDö=ú ¿“š±j·\Õ¦¼¤•ÔÎF„Pv!ÉW Ù/„F€ðF¸SÊÌ›'‹\¼W”eW°Û‹"³å9ZèfμbèÊáOùâ²×¿à.9™`÷ýð¨EÖôŒ½ì…ÚÌÌ; °£Wœ¥àËR“ŒE¾.ƒV¹äúÄ[ øŠŒô" þáæ¬!ƒ·ˆ+ýì©Æ6ë­ ÇL¢ì,E…jäbX“Da锇ú¦¤ÀJ_}Ø&tØ18ža)_IŽBZÅ §Pû0g‰)q‡ðîËÉ% ‰Fµ@SÒ‹ÈlÝ™û<ÇÇdæ¡‘`­æãé’NZ¹äwGxÎ…d¾äþ{…ÀQxkƒ ¹>–)Ûï B¥î–»lhe]À·sVs!gŽ7I“|«õt”[¾¬ÞÄÎÇ{8ǯÈú(÷ „e½ç)}ðwô¢•Š¶á7gms¦•¥qyŽËE‰Jgö˜©½âq­õÔFÓjnobd¤]&#¿*Õ#뫉à•¬M4Dz­§~ÁÂÔ:ë-3Ðqù™µ2•—ù.æ‹ÏÄáb] û§{X¢%ydýäÔ¤– ÖYµ09S¾[EÞ1ös GižVŒÉtkt3èQxxRÐQا¦-Áqt1YìÁbQÏ8fsgò÷¡í`ÓûR¤>oa/©Gb±^²ÒƪŒG{Q¬ ?pI¤Å¯K=Z‰×“¿w¾óNs…Á÷i' š„Ûv³×­ôýã*>m™ZCp˜ñ-^6mQ}{¦Ù[˜ë¦|ü*»j©Œ‘6Ò0S9ªö]uo×¼‹×ê§i‘IÙy¥¯äŽ8¶œíZåo½nô´ßcú¸b<áÕ”#våuP¶ÝtJ/ê«ÙðDÛcˆëèž… ¯ÿÈÜ úD·¯@y8Ðå1l¯9Ÿ˜ ™˜Ý߆iÎíÝõIïA6»T°=šˆ &¹ {­ßwÔ¤eÊ·cŸRÔ]wK%rêŒ6´äÙAVÖz™3Ò,à)J'”D™-öamøºa¨Ö©Ä>Œq*UÞl;1œî]ºþØeì*¦6Œ‡80eVÍ1rž6îõ•1+GHö°×™ñÙçQöE=““¹¢‚‘l9P#¼™KUõtw7ôN¥—¬)ÑncLsíJü‡Ç߶Žø®¢Ý÷„ªUç>FÄI öp¹¦àç%¼›ó;ÖÚô˜@Ñ)â˜XéÕ͘ËÛ1žŽî‰Ïè…PЖÆàôЄ w;Ë-§ÎK!K,kàæqSßð›D«)Û+9}âM÷/ht½RRc¯Ô?÷'(¼ÕK FRífª½B¡ÒZß ö\’(²ñ6£øGîé0„~šIˆ¯ô€³OàÖ¡¤9”Äð8ŽÏ¹rñòýŸ…Œ‡·³DÍ«h¦ÔÌzï(7¯hhÖcEí=šyÊ9Cü½i;Ït]ýà6ÖÙo’D]ȬàÐcæí¸ümµo+öÉÏ¿æã3Äf¤ÖC0¿Ádn UÞ ˆeëÌ~«|©)Whjbl…Õ•Ûwâ,0V5ðÖó1[uß’šhã‡Q†0<š—IÅÀ³<ë¢dïË‹1JQ%ÿÁ`cÅÕÔ¸³P_UÀžA"…1ÝÐÖ¡LÇéÉ÷;Ñ)œ`‹Æ‘xÆsk$»6ïTMT~U$Õ;–@ ÃNÛÅ š_'4”¯Žñj™ ¢ÊÚ—FgÙ3Œ· ™¬Ó§ÂâêoôÞ°ikÁ-ô³É&”dkºÇsfL%Â{•qÐ}³)ì«ØÂÖêèéWýÐmb¥w_Ê6Æ÷oe7V>—ÖäÔÃ8ùà˜¨;3®®;÷U¼ÒxŽL xÎç£>ü<ù¤®Iùq|ÓF×q3!®$¹Eä¼´˜-¯BÇIÔ%Ï{F±«pF=y»08õäTùûÙ$Pö6?›–ëVÀÍ÷à/1ïÓ;àn5푺O(±…{íIfåª#nU Íbæ²&ÿ˜Øƒëàì<Þ‡Õ¢ç‰ÚÓe½‡N’VUÒÓ˾7o$X”ßSÀl¥<Þ{Àt|p(e–{Zåç œ ÕlÊã—°ç|^¥q_Íé¤Ì¶ C–œ—p:¶°uÕ3ï)1<ˆ \ £3¤'…ÿ â13…nÏÞ–%ÊO0²»Ÿ\&¹d„!Ú®DœQaúØÀä)+ö>ÝïôÊ‚¥tjbŒy]>À=s"ÕJŽyH@@bù9w6¶gððDRÅâ,}ñ»p²&T,\¤ºë} +Q2›ä“q#ì*“ dÕ¥]ïÀOP—ÿ\ÝÄÖõ/}ìåD(A6,Àh\¥;‡+ðæ[60„rž‘mÂöbÛÛF‰ÓwuÐÂmÀ¿­¿!>}é¦zºÈåE쉞X,ZO¨?>ñaÒ3¥0÷™‡BŽ‡ï×’ãOÅ~¬ºˆ,ݲ„[ïäBûèÀ¦& a +¦}µ]kÄç‰iuÖZIEÙ¥ú mÄ®cl¤•bï±*27O0?ã|j»]œÖð 1VUúdeÒûXÂÉ¿7U;‚&z߉)¶Ql„dÄI@þ‹M~Ax¸ ÕaêÙoŒ(fÇÇâ3 PÃÃ3¡˜â&Üoiú0KõI•#í=³ê#­yáÀhšhåApØ¥RN¶~fZܾEßÂð•ûìe8§ºT’BRl=)m6Ù¿Ò‘0§ÏË´ä]³Ò“û…[ÞÌ-BÔìþCoªWׯ§ö–…ÿÍ`Àç½uÆÕLÁ‡S´¡¥å>ÇçF²šßÜ,Þ­ÚvÆ›éß ^ìq6sïØ TœàÓö>ÿn.ùÂ8ªÇ-ëd·ªÂ#…ÅxFNì«ýfw\»Ø(ŠÓbœkUgH½V—5Ù{ßòk@OÔQ§,‡ªb³Œ0-mšFV»¢ÁðÝ{?8ì¬ÚìÙÏ~ð uÍY…nssÛ3>I³>7š¶ä_@œön*šÙ@=Ûb6ô )ž‰{cZ¹'0ÈÝØÎ%?e÷(9~ïÐLez‰OË(Á||ð°òÓºl[Ãt†vËê©íQê`ºGàdB—h?:ƒÂä=Û/*­gÍ!‡(þÂæÁ7´î4Zo.ï^¨. o +~u\î]5ð¥þÔ=94@ÔyµO¦(þFíVÚ0ßm9+{¢hZ­;a­á|müT;‡Ù¥÷Áð*[ûŽ™‹éÊÖ×ïlž&½óïí#¿Üâÿ½ !'¯’®Y’6âHÍ=ì/¼5JÙÑÐ ÜP€xˆû2³„ô>fÓ9u÷Lµ&Kk¹÷T‰áδâ9xìiÞcEVg zâÄ6¬§DôAÓwO]f.Áä(Í=êT05àkž€Á¼ªmuL±Â­:UÕÑáìåÞ«±dË>wÍ¡ðáuo¡¬ø@³~ÿ׈{)þŒ¦ç…9¾júu!Ų“ÊhXú(b0÷ÎÁËÊOHÇ©ËOÐ..ùM¨ˆ/cqÖr: ûøÆ">ìü]­KÎæÍ[ÉTx<*¨ù˜„Íî?»jŽ~&žÔ‘§­(í65ÂnÇ¢û_[¹=oÅñ—QfÊkE©F|&ÚøÄþÖgœFííLtg"{Ú c¤´u£/DAmFN'Œ wi&ùNLû– ÎÛà}:-¡˜“\n•Ü”ñÃô3¢:ÛIÚº‡XÏÓ:DÍ}êëÄÝÜBøÜ‘gˆ¢Ï˜´ÌÝ&a좸Ûö.¥¶{?å+%ŠÈNKªdZ’»§5t†LáWÜ£í2¡%ÝÉ^¤V·;édgڋ䤻A›œÞ-Iæ¨Ü0jâ¨T3‘’ÿ`€Y8B`¡*$]ÆËK¬í;²á›Ð$±]l·úœMsb{+f,ºŒYOìžúѳûCÝIî`™¹'<Õnõ( '#ÒØñ™ÎM¸Ð,Më-!áÚ°ºL#¥rà1Ä¿˜÷IKd{‡ø`$ýks †O­9kÔ°H¾‘øo²ÏCçQ%ÓHê®ßø®Mbæ' I9ÈK»*2ÍòbÓµŠòEë뢥T 2“ÿlvz„KðgIþQt‘%{iÛ‰¡1¶~ NÒwôîBBG·£Þìž¹§–…è“š|ÃQ—@yî.X§î˜ø-¦7o¥®¢Â‰¹ÿŒ/‘nÔm4O¦¹eåÚ×°ƒ9:s™GÚ ±.µc³_gOaFoÆãÜ~q~GÕÙEïÖ9àÙ¾ÈÂðEyyb€‘Hd—œa5_‡ûŒs·1ø<’@˜úΙ$߀|LB“>!?«á@ †{¦–-÷¨¦SÕ Z­×;ªÙ'¾È…Æ3jÐ~UËnÜ&oqyç 56Oq‡â¤P&-ÊüŽ©®ïY]²jH̼D –\=_h»5vDÁ©¾ŸãPÒo;‡Cß}Œ—ÛØ(—Š®lãAmûÖÙÿ±ñBj¢t³fW·„j¢m¬Ð&Ïí¯éðsÚJ)^<´yH­ù¤'6~ø`Ur¿óuÕÆWÒf )— –Ì&MúÊЙŠnbâÖr'Tá.Œ6÷ãxkµÙBíµ­D²¬¬}ñ2P#²yÊHá$áG‡™"øj]Ú3ê娈ü‹%[%·ÖÃn*½é3sþùOMŸ`MY3–3YæròF<™¬Kvœ_^Yüx¾ÁÌÅÖ@FI?º•4Pž™f*X ¥m|+EWÆËø¹FøZ{À$êýJÿj÷.ë÷ͯ}ŸJmJE'¯ôÏEì^tˆŽ³.…*3ç½ß©+x=ÙM—÷KúîâFºßÿ»ª" endstream endobj 6465 0 obj << /Length1 2244 /Length2 17533 /Length3 0 /Length 18874 /Filter /FlateDecode >> stream xÚŒ÷tœo÷ Çlœ&ỉmÛæÄNÙØFc»±Ó¨ Û¶yÒß‹öýßZç¬Y+ó\Û×¾÷¾Ÿ ±‚2 ±¡‰˜­#= ,++ÉÌô@ ™Š…“µÉädj&Žv¶\Y;˜€œÞd" §7CY;[€”³5€‘ÀÈÆÅÈΘ€@ÎÿÚ9pD@.ÆYz€”­‰#™°½»ƒ…™¹Ó[žÿ<(¨Œœœì´ÿ¸mL,Œ@¶Y“¹‰Í[F#5@ÙÎÈÂÄÉýBPò˜;9Ùs10¸ººÒƒléíÌø¨h®Næ%GcÀoÊ9É¿©Ñ#TÌ-ÿ¥P¶3ur9˜ÞÖF&¶Žo.ζÆ&€·ìeI€¼½‰í¿Œeþe@ øwsŒôŒÿ ÷oïß,lÿqÙÙ؃lÝ-lͦÖ&y1z'7'ZÈÖø·!ÈÚÑîÍä²°¾üS: &¨½1ü7?G# {'GzG ëß~‡yk³¨­±°‰­“#ÂïúD,LŒÞúîÎðïõ²µsµõü2µ°56ýMÃØÙžAÕÖ⓳‰¤È¿mÞDdf&NV ;3+ÀäÀÄÍÈœáww{“”Œ¿Åo¼=ííì¦o4L¼-LMÞ¾<A.&'goÏ¿ÿ‹ÆFNC3 [„?ÑßÄ&¦ÿÂoçï`áо#øûóß'Ý· 3¶³µvÿcþÏ3HŠÊɈHÓü›ò•BBvnO:f&+Àdá°¿=xÿoÅ¿ëøËWÒÖÔð;ØïzßõŸš]þ=”ÿÞ*Àÿ“³{]åŸIײÞþ0þž÷\þÿùï(ÿ¯“þ+s¶¶þGOù/ƒÿ=ÈÆÂÚýßo£ëìô¶²voË`ûMÕMþµ»²&ÆÎ6ÿW+éz[A[³·‘¦cd¡²üKná(fáfb¬`áddþ¯±ù—\õ÷ÂY[Øš(Ø9Zü¾bÞ¼€Àÿ£{Û2#«·kÄñm6ÿ¥9¾­œÓ?ù›¼-ÕÿÖ!jkdgü{û˜XÙ ;ÂÛá¿!V€'ãÛš›¸ý3Ýz[;§7Àgo€©Âïƒfã0ˆþýƒØ™ óÛ°ýA,©?ˆÀ ûqäþ ·˜òÿE@ƒÂÄ`PüƒÞò)ýA¬Õ?ˆ À ö½åSÿƒÞòiüAoù4ÿ‹8ßòiýAo~ ÿ¢·•dYÛ›ÿ‘p¾E2ü£«ÇÐÄé/õ[h£ÿ"æ7w#s‹ÿbÖßÚ·ëé¯oGÊ`ü¾õÌØÄú¯€Ìoû·[îmþkõVãßIoe˜þoÇ`ú; Û›Þì÷ èmvÿ8½E6ÿ ¾5Óâ/øÖMË¿à[J«¿à[¬ÿ„ã`ý{ÿè߈Úü2½¥·qþ«©oö±ùÝDû?=z mÿ¶þvºÂüfoÿW3üô|cò‡Ó[åævð[éŽf·ãíX­AŽ±g|srúãòVƒ诊cóÿiùï3ø›Ò›…Ë_ð¿ë_SòFÀí/ø–ßý/øÆßãø?›jäìàð¶Êÿ\±oküüÏKÓÄÄÍÄa~ÆΈ;в6°í®ZÏ•n{œú4åNƒ‰n¼@Ω_tR=N93cAºTl¾QLϲSNèÓ]ÖÊì¥çVQ½;Ë ‘Øž‘aÌÌë øt¼ç->É J3X®z’!W‘C?˜Aj<¿±Y¿2ŠEmï\¼+9f±»TP›\GWuq† >§Úц’S‹áÊ6ëEö†Í—€ÍH°d¹4ižŽ{„8×*ÔµÁá¡%´>‚î)—ÏÛg¤ÁNh¢ÜCø",°UjKyÈOÙE.‡i螆â‡Æýe«TIwµræ[‡ºÄ” ]ìæ ¦‘ŒG÷höK˜B)9ù;áÆ‹Y!DMƒ|ñ·Žj½©=+VR!AÒî Ó½kOÎÒÉ’Ú?)ieãx_Ê·Ž¼ÈÚ£\Lƒ!¾QT'¡m‰Ò`ePx›ä Zg.ÝPM«3is¤˜·©ð}]â üæ§ÆÌŒäb‘R©ŠÌа;[¨yãéÁò’wÙÑ!D¾ð©*Â6 =Òc­nÉ+­ ÷ᔑá{½QjM¤°‡«ÍúW•Ûº®Ì ]¡w…G› ëñÚ,Zt¤€(«ä 3<0 ‡þ[IÅâf_è5a9DŒ1X±\NÙÕ?ÖØ€]3‚K±äáÇó!D@Á¾ÞºTá=·Úd§Û`^?"ß<íë9ß·dy?)Aàè³sãL 5ægMÖ·-tN´õ çí² [ò(æÞt‹”ÑHŸ1‡öã¾D¶ ®]µdGPMÕàM¿k+æõ‡£ç,ÙÍ8¼b6Ãûp™Á‹L¤Ý¡Oôjøj§ÿþL_­`õaàólã…: Ñ1.ÄVcfzÏèbßNKÌQ>–*0¡€ìÔ˜é¢Å5R®µbJ‚ïZÄûú n13¶_3¹í¸¾†ÑR«2À¬¦“Ñ°£%CªäeÐaUdèKÕíªpj¤M´L8«Õcw¿3CÀH1ÇUn Ê#‡öõF·¡›<0Ñ€gôúñ¬Y<Ôö/÷l•.×: ô£Lªê¨!<¼’bÕ-è›8G©¢SÓ…‚•£W™|ùb•C«i—væ1ÒB bÑ‚Ù<À€F_z`<¥™X@›G9Ro¨e¶·ËyÌ( ƒìpã6•¨{Ð&ÒU½é¶LS ÷a yDÜÚÂ:¤¥ .[slyh,ÅÙ×^e§gJ«Ý.ù77úq³ä嫢̳rÑn>¸`~4’þB½4ÃMãñã=¬Fdº’»@qjÕµŸôiÀm›1Jò¡e\•<ˆßäç¯ÛXÞÐÓ–Fž3Ké§è)R«fë›2ý+R]ÔTÎMº¾€œml+̈û• Œž?ý1>`Úæ„EÿÊ[ð4Tim3… Þ8Ω𠓙<$íêBÖÈäÜþºöp{Ò°ÊÇï±°U¯’37dw¢äš6µÎ…B˜nÒrŠÀpöm¿Ëýñ¸Ù;0'ÄigA#/à »ßÅ'§À5Óï.ô‰ªê`(e¥)Dwltž Çz&ËDy½¶õ€o¨d]ﾨf~ Zó䛎bÈ)¯*¶±[ÝŽ“•{çÚ/bïzšc±ð…£‡Ã깊|=0Q¼2Fîƒ<YkNè­ t6ðÃÙ¿³`æƯõêo$0y|$¼º~9AR!m´¿£€pÅ÷ôýIÅn‚·€£ùûȃ{ßüG{ ÒTÕq|ÐW¿Z¿LVE&-f.œÌ&¼!Mñ OÆ»W#5IÜjH6J}Y’»0§ c?¿€åR¹Ã`&]# Ðú Ëå+ï)Á˜Cj«‹ûb•¹u·„ô|—ÎÕœf˜+FÃÙÃ|fZꆾpVoúÒBίØÕÙ$l ¶z4dÍý4ïH¶&oéà‰¾Z5Öxk$ìâ(C[—ÏHðÂJ(.tàÅú„Ï5nEã€gCB3ªzÊͽÃÛoKŒŽ4$Ý“˜²ÁÃJDQÉЉ»nyß² ¹/Ó qK÷†¥b †å>õjµnéÕR:ÝÀl2D±´¦žòë.÷ˆµ"’*Q °½áÞ˜÷]¯0§É>¹˜6eBÞSÐ}ÌýWþqœ(°ð㔶oúW•A°h“¦òpê+?!6‹³‹ïË·±QV q•äU¬×ï¾Oß7üšƒ÷¯¡[•ÑTÓ*5íaÜæKiãÄù˜Î BrÒ&•±Õm`ë3>äOù¸[Kð•i¡ù¿ðÀ!^ÎN÷¯º[S~Þ”oùáÔšCyªƒ~r´ß…[f#0Iõ£‚ɳ(ÚQ¨.oF·4Ó‰R-±o¿ƒƒ ’€!$Óñ(xîAe˜œ" µTƒöÌd »d P©IT“yžduW—öòð›¼ÜL>óZht‚-°2ÞRã­ô˜g^èR™‘òiÛÑ®íhxùÅlðì’óboë úNVM½4ý†~C“Îi/5e¿º¢–É#ó×yl`!X2›cƒuß²A«aÚN8Xö70ÉC¬ }ªL­ÔËi}TQde'¤BU#Ö£1áuˆÏvý¬¨ƒn2"c‚)á¾Ïýr_ ~*Ád"Ž3LÜv˜D(“>ÚæÔ.Ìd,Z,E•þ˜(‰tDêo‹ Øx wX«†$¼Õ.¡ƒ,n:ºFÞ (ö÷hOÚþâP r°6IZ(TŠ(Á³ËÕ,„u ˜Y™%÷ÇËšgtfê:ø#Ä]%z¥}‹§¬ÁbÉ^-¢Ü?ª}¦C³jkmÉH²*\¿zl•&¬´‰XXÑ/¤Ø™íÒú6Õ…GKªdo3-¢ YÕeï3rVy†£±/øÌa#è1½›eÜ!ÇM²•êƒ3WÜa¿Úv“ü¾WXü+²_¼ÜÏìêè¾U/n€4ì j—àêíô ÁV‡%"6˜VÝ¿×Õ¯dÔlx:s—B;ëñ ±<ÃÛ ‘¤ö–~]û®½NA4Å+•R¥ÓYMOÓ€vÕÂþ‘3Ç=Ío™–AÞy:=N°§Ã÷„© "ëÛ€ÖaxO “¾Íw©å<¹Ux?ž½zè=“ªC¬ï€Ñù¡”EX ¾Âp)4'cøÍøóZÍ/ö¤òsTPJ=©hiœ˜D” Õ*öJ3t¹ÓªÒ¶Eº5)ÌÍŠøY8•ËsWœ®ÕÛÊGfB`÷¸¼iDœ·O¯Ì|î€Êª*½ÅžÃp*öNÀQûÎMü•>6åGþ68M+âIJjS Se©í'-)è4àƒÒbõƒ£iB}~ÁœŽŸ‘£] ÍŽ/\ÈèÎ*”_·èAˆái­på§Ë^òàg ŒCÉüôé(‡vÅÆžÏß_7•Lì \âÖ¿9cÛóý˜®¬Ê0ý%<þ¦¦d¦EúÆ>xúÒ &/`|H0‡•r^Wv w óf)FÏ¿bâ—|bõòŸî¼øWÅz¬¢‘þ¸¤/ŸGŒŽW€#VÊáö_ÚÏ Ì‹ƒÚC  ¥Æâ_¬"ÚZFÅEͧÉ÷øßò1Ö*ñ 378#ˆSìtdâA*ɺJNˆG(U¨»oU¹ƒéD'>lÅÛµªn,w²nU5u>µ3%tð•I»}bî-\û®ïTDP‘¾óÓkB}–,˜?Ê»#+Põ-þ”IoÍ¡®+›’@‚¯ÜdoAat¹nš»êvnp67ÐÛF=cŸî¼Av]pÜÃÑÀÑÐ;&+rþ¹×±YS?Þ±"9kS,´3E>N´§,Ùú$bÅ\GÜÀüDÈQÖDJ¹r1¤§ÊŒQõ)­~úútóRš¤ìÕ¥3¢ùÚò ,Š?%ûaiD`ªi‡•¾Ø‘«Cw[‚©2¨½–ߺ³¾Ö}ëL¡ðöŠØ.ñ€Î‰1zŽáÃ`¬!OpbüÒ³Õ#öç*ÌþD‚]úxFà—±ÈÍ£Bq2´0ûñ¶ï‡M²ç\S‰¶Ï=¤FÊ~‡x¬Ä¥qY߀‰á AÄI>["ðS9¸ßùæ^Ô¿^:BdëTóš ŸåÅÖû/óßïÎzÀrGéëÆ·9ø˜˜$â«Âœž{/÷Ø„KØÅÍ¢[Rî¿ãq¡Ü ñr’^Þâ¦S7±Å^? ™; \À™”sï ûMª÷ÓûÜŠ¿ESÖÇáÁ V· £Ü,ªÃÕJ?½‹m®*K¨@±ß5+wu×]ÑÉXrdúdsòŸE?W(ÝøpÃíy}­ÒÂò5¸+»çK‘\Þé4êL‡ÕáZŸñš[·¤¹(ï`@Qh¡nœ®@%®ËéÛ‰äçÇãt¦eÜÊH…!P©/ýÚðÕɿ⌜ŸÝ[T•ü­Ö cÞ~‘4 ‡á•ùwzµi(L稵÷Sî{¬LØxº´G÷Ê9Qgž§¡‚‰¤ÖŒ~ˆCÔçv²š^¡KÏ<`! +*j„+¾?MÅ}w·|\ûRP>›²2Øñ»i åÒ£ý¸È¢ 9t }8¢ô©Ou˜áæ31¯³è¥â~B2å¡weußpÓÃê¼äö=“#&A^ãê£`½Y°xü˜œò`¸ÑÓôÓ·YtúàåMö_ÂÑzÂB9ë{Õ˜¼Ë1I˜ÖŸ*(™t—;SåLð2¥÷€uGüE“öŒI·çˆzQ)ȘïÑ |”_‰x¥—_ùEïw¤ñÒÓÉëh.ÃòtH™àIµg#Üfì™;À74UsË?@7PCä8Jn+âU9ûíb¨íßáß#‰ÞX[ Ø*Ò\Žr+ÅFÚfÅ…1¹ÿ®Â œoô&lÝ“ÞŸ“VS øXÆña=2+Ñ^”«Ãu83kKÔ1>»·¼—Wòz?¬HjÐàì{‚•’ÛéJÜ~ dŸ<ëý‚yñG¸o"¸ÙóÀ!£Ÿî,©Âw›Áͧþ…\Ÿ °†ÌÝ¥—ë_ĸy4_³=ùôz]”5­ÂO£a\©08t>%ª:ì3±úáÂx̃èûÆÉ–S¶;ÚGI•nÒ¨—q÷ôù“xp‰${‹–W5#ó,]kòÅÕ\±Þe®–Tù‚}ÒCápÄ"\Å`h`AdT°˜ œÍtY·øç¡A}™ä~üctê®à)“.»åÑ7{ÄJŽ6j|z(V‚,ÇCžëè:]Å`à)õ]£ôqâ,M“Ÿ =Ý‚]éÔ—½aÜJ\¨¤Ü?ëaÔÓ \%š÷¤.½vI"…© fÁ«p/îþ÷9{ ŒE/Ûìx*>ƤÜjÂ’|Xý{/s—ÖZ’÷ N).‚·;ZÂèÁÅóDOà”¥~¨$Ž–~C„ÒÚ˜pºßØ$þnwÜŒuT@’ ñ,6ÙKwwA•Eª§‰¼^ãeñ T2 ÅúÊ‹&ov0&l âð .gúaòÂV°«;ý™0ÃþÒˆ<1\RÊ–·!OÚãýÄë¸!Âh=ó Åg'Oµa%r3;ä&IPi ÷âóÖDïÜ÷Ý [ÉýuØ´ÔnÄwc^ïHÝLýóˆzÚ&;r«æ ®Äg®ÙÝ-Uo8ªÞ) Ouò&úÂkpöD=-w|„ko P|›²Þ©Y¯Æ®™jHu„/³ïtšt{ à¾<ú±L3`)¥J†Z;a¸ðqèv•^)Ò2nvŒKD•¿úMpâb Ê·ËåS0ÀàÒñÈu“·g=¢ŠäW(Y=å{³ˆãvῈCN:†}6ødÝ÷¸WÀ±fûèP}ÑÉ ÎÉ•2µÜ¦,pæúÙ¿T‡Y$UÎ`(›[Ô²°® YYKžƒg vÖŠ/L)¨ÒU¿äòu&¿ZÈË¿[1höó’ sà½ÓdIˬùLé•‹Û23(iþ㊥î¥aD‰!„NC`{ÿŃO—tGŠÓÙmÅ÷juö²xG&£Yó«û6¿J _ÑÖö!é§$a?’Š@(¨Ø Äçûj™úQâŠnw[¿&V e·ÁÎC…}å@€AÓ‹…Gë¢^­Jfw1 #ÏwIƒÙļ;“7±¢Ü3YöSÈ9ý$7 lÈëZ¿¹ã.ƒ5šQqŒJ9ÛvW~¢74Þ öÚýq‘ü±( RBô"dFVªÁæ{ŽÑݲžX?©îõ÷möïb0âuîtú°ÚäU$u,Dˆâ{Íßï ±$J"V©B'iytXÊ≧Ÿù4ea½|v~¥òÉtPäqX]M¢è×êø°Ò˧*ÂnÃÍœ¶ô¾­QI¢iÞŒUÿ¬K.`,v4z^ŽùeõrpkO¢ÈãVù™y«‹A¸_½RúA»I™Bæ}ƒ Âtƒó¡äˆ'©~hÂöu̶nâZÿ˺O‘øÏ QÍÜ„è(Ü.jU…j›äò ¦Œúæ×r|CNÌ]û¦3º lY¾*,ö¤ê;/µ×¶^Ç늾ÁÀÆÜ(¼%Î}ºÌEDÇwdÄá{”“™NOa(¥eOûI9v:‘ âÝ0ý@òðNeÑ}ˆ °þ6eìgÉéï2§ãˆÑ£#ÃHÆ #Ò©+w ÷:ãeåâ¾øv4×tu31~yå“hº%G˜Ðàá•¿aWé‘9Wƒ;Ýœ¤™´òLß[ª_‡™PÅ,¬!ž‹ÊÁ´ä`ËfeP–-E·}ÒB'ÀT‚ûEÑšâR^b DòeehÃÃà½B>öæ•])ÌsŒïn“W2ï9ùº—~¡èô«ðô¹t o³î>:X2ZY9e÷†¨ËûÄam' ÖÈ”ýÅ—'÷4 /ͨ¸]¿¢@¥«œâÍ88±0$_Z»‡ºm© /NbbþUÆèjðD•Ý¨gî9 •kSã+zþ¥¯8Þæ<£L¬c+ºòS¬i%¸6þ<ÚË ÜÊÐ¥ÜÈ úàͺÿô®4™)¯Ø/;µ¬>ZT!„ þ +‰ùÚùA KLFr"0!›ôë…ª½ÿ|Î{w `\šCsµÁ?VÔ–ó7ÖS)… ¹ÿšõJ>§?S¯Å›ky°âx‚_—±[‚ÚߺţGÿ©~‡Ýÿ <²'ŽÒƶŠÂb Ö•zFYº×{S¢ì~Ä23€%BÞ£<³ .Ð'Õ&¾1Ðiå;ÉéÝW¥w»á=Dz‹¤öÅ宂©Äþw)‹w²ü}á2ÚôóžÇuÛôq¥H|IñE¬£àþuj]dÅ&«ç Ý¸[#·`>sî¿€Ø _ }‚-›yYÓA¬Æ¡® M‚Y¡½©Ä Úà½Ùќɔ£‰] l'ýÞ¯§‹ }–óâ®iª¹' ”ˆòûÉPaúì=%UP]ÃQ×G™þ¥È5htϹù«Ö÷™TÒä€A—©–.Ka ÊÎÑv ¢Ã] ©jfd,¤–Þêa®œO!„ÆI¤&)½Ý­ü‘=qF !žY8jŸ;½Í$8ä'aŒw—g  tÓ§oBŽ~‡gõV¨©ú+œL8…½íš{á­£f‘l£ jôz&n…Ðpù3ÝÎ…Ñ·U}‰\…U}n-¤a¥…Ø´ìå:çÚò*}4ü׈ÅÅ'>æuq¬ \Jïöœ^ë®áBXóÚLgáÖת\=[K-’¢™–ïz²,̼ךyy<ûP¶¹G{uâ–LÈD8/=° —ѹdK}÷ËéGQ_óÖ*jŻėéi‚w.€È£¹VÂJ±Ã®DiòÜaN<1{kµ‚“÷Ž„³+œé.évBÕFîJ“¼Wñ¥?¢ÚÂê.™±åuF¢T´V³é·ºí¯•áuŒ/ˆ¢[õ/Ÿdfl9ì'’ø³ÖsÇu“@ï0Z£c—™ç§j³h¦Ñ¾{ÓF;¬º¢9º•’R^jKî75jnœ[çY‹iåèÊjtÂÏe}¼7Zö(°8V}ôxh¹9þ(|#¼ÿù‘®Ì©Ð{û ü=,…9ûÚ3¯& |»MøÎ2Ðÿ4BoU‚W²”ñp‘ÑkìˆMMý0&8 B£ïÀ±a–³×œÞ—#¾ƒUŠŸ©‚²í‘Gù`ônxcV?âºÌ 4·ï>óö L5It&_ðàÔŸª{Y[WÀOÌu.ªóûÒë@Lv/=•5˯àK ¹ º;ö‘‡xÆrhcþ~xzº€%÷ÅÉõ‡z8;L¾ˆHkS ,˜pþhûX£Y0“í4-öKWx"rÞ °Âû+sÅx´é.7øEèbÎV©`6Š%´´gP} Øç‹€Íô%iuÝþ¦È"{[‘_—?÷»¦ncÀˆÞ~ØŒò{ §É¡¬]¼8†(ˆóÈ=œ,2µ¶ÃjªÎæ`×Þm®#”C£$Scö•ÓÅÐJ~N¬`'«eÓX.^šÒxèÁo2±J&ek{¼‡º×ŽEuP}î†ú4O3¢nÐ~ÇÒpÀ¬¼[å-ÓK"«ó*qZ†j_ŸUUÒ]œºlÇêlSCe ¤3’)Ãœ•ZPe{cæ8 3Öðˆ$(lµ—Ø_å^ƒ´ xß(ø݆Bž„ˆ§ßCìõÐÄ—S,2f 4½ø™n¨áËVLë )vf(Å°Xt7ªp±Ò¯µ{éÞ{½ƒžm-F¨  º¨Å Ãó´ÙáÆÙa ®ÿÚ[@ϦÔtö~V­##ŒGh«nf_ל„ÈÌ°Ôâð>7áKR%6$ôi¼Ìl¹$äªÈl-3i²o6Ñ3ôtS-—^cÀ-dAÅÕÇÛÏc;m³a¿ôººEB¥'<0÷cm„íîõ+ú& Îú6V›¬+Ï­?°L¯wcàÈ1h|CG¥$÷ÇyÊ–»âµfÃ|êh½Þ$qʻޔ7ÞD±½:Ý£ÉA„»y5)Ž5Ê×´E2çijnçËTk˜¶â ;³3—Èm±WÀ‚eਃVÔý‚)HEžküÚ‘Û»È΀æÙ’ŠãÃçvj-ˆÜUÌšŸå Ú±•_5kãóWZÎH=[‹†o’ËI³Nôlp³bIÀcLÄÊ"¨ŸQI ú‘d •%òŠ1ãÏ]šq×ýñ€²@hÕ_û3°ÅX¤X›Öñ©–”-¶Z Æ›?³Ë÷ðžýBè\+8vp¡Y«ž--/SgÆñµeQÈk÷IÑAü\àpô$ ݶ‰?Ûm2l”Sí†ÜëÆäv3Åsò¯D93צ¼[Á2yƉÙGäÅ ÛùîÆB  Ï~† ÃuÝ#“–·Y¾ßíÔáF‰ÝÑ·|SÛa„½AX¬ÂÅñ_íiµå|½QËn¨ Ì,ðšA6j©#è[v œÌÙës¡ä4–ÑÞÄrÚïüi[´ö¹^Õ0¸~ÑÒòÖ¯X;5/£°µiK‚b5n´ýÀ í’C‚ò;ëuÎK÷NYàáŽEª¿ë'-£›‹ešñëÆ”x½-á"´ÄGJŽ9ÙrX‹*~$•3.ð|—MZ™…>IîÑ6X{çΩÖ8¤p øç=“¡YÛò\ ª¨ÊÜÉI½Ý˜êh€ì4æ*.OsÕËVŠ>5ûZÞjd;uù”¶Ç±Fû/ÈÓ_„ôN¸ie|WÜ©6}õ~ô|A0ÜÊþôˆ¤µy‘ñ {#/*_ôm~Y‚ñÏ«šÊ&‹vÓ9s5æ«E””CXÛ5$»Ä=d³z²WY|R°¶ „ð =ùUOF†¦“^Ïv{ µ‰çË"çYW3Ž³~”Fz¼Ôiµ2@C1V™«ê yƒ™Ê£!Y£~Êb¡Kêý…À¹¶q OՆś{p¨å«P?´–î)ÙbSú:2ª¨.þ 8oú#1*ÔrO˺§•óH„KiÑȵYÌZÜ@cÿݵ¸tH²ÑÊq®.´³‹®qÿ¬;~þ `¯½0nïpý#¯UV…à{ÉT5.¸v¡¶ƒZué´ö¢ Ë%lS!q }Ö"/úN³„¶”:T´š4~¥o™Ïx Tëþ;l&g[lI ʦc†ØÀœãl ²±P»•wG¢ÒÅ[«tQ<}ÞËÌá¨|¯ï ¹ÀóÖS4rIÒ+¿$e&cŽù|A< JSžÁjh:Q7vmkÓ±PqiX¿Dyl%¹±ôÖv–TÒYPqÅš>LoíØ߃ðžQYBþÊ3{DìzÜë.úØÃi‰˜Ûú«Á†©¢@Ž”ëÊɉᅠØç’¿gójÛH†7œ‹WtÉ ¼Ó¹x¼Y÷YØÁ²4š¾±¶™¸Ïœó@Èiuë‘þàMÅ¿Dƒžd¼oò`œ‡Þñ sËQÉ(SJ°¶ï‡\Ze¿˜˜zÚ“å°‡šOX†^»Ñ ññH’”×&Ÿ.ñUTL9ô±E/ÎJª/7Þñż5Vìø®ƒu~b9Ïô-¸}/“v:rkS0ñ܇<ßþc(싇¸xtH¾ª> –Q8«Û§º–á•­E*R(?¶÷öÀ;'gŠNœs+ÿ® Λü‡Q;¡uŸ'ªÊ­²#ÂþÀùÖ5¼ú»!‚I%·á 5¼µ¦Ñ&%ôã¶=eŸúYp?ç“Š™a­¼•(„ÞÔ ËÙxîáÀoeŸ‹—hèºHàæǯ„Â|¿øÌì>Æû…Å»žr ½.Õ8K~ ®+ ö«J—iŸ'7UÕ2‹óKNg"9£ƒ_·ÛRÈ Þo˸WiĵBF»-RÁ$þ¤¨îºä²,BÐÁ›Ob²HŽ [Ûyõy£€ÈdûpÈÒhóˆŒy¤:´ÉS·$¥Aæ5ŠB×ç”?š_Ži"hh¶i÷§&f/–nXë ÈÄ|%NÍû£M«"žw0A%™kö»\Ø –ÎYUÊI*8ÿWµÅ銜£—YÖ<‹RéîZŠ‹/»siG¯l*Gh”,Ü6'S%³ºyª(ž´ÓfôÃáïPw2…,t­; Ò¹Š>ANgZaE¯0‹ˆ6NÒ ¹Œc¥Ñ»}>Iò¨ù2ò»ê«CqtlH05oáPÁë,ÞÚy÷ž!DѤ å&ªFQEÊY,a¸›ÿZ9¥ƒõž üX-µh¬M)Éè­'µ¸^€¢…“½©NÕä®L£X#ô½–¯¾¥JŒ®Ç×&ø‰7Ê’éÝ@.êø/¥[2UÔ,ÈXé (ÅÍMK³Ò2ûÛð=€i5ÓÁÓ…2‚´üRŽIB‚â)µÔ‹|>q¡@¬xeÛ7ŽËÂÙ˜£+A[$q¡LÙ’”÷ƒIL ·)¯$¢­Üwè@›qæÉÂ;iÞœ./°ƒ˜f[4*]´Ãû8è¤ü½ø,ñ@LI¶³Êµ-x¸PãuI„Y%+3 ùФ­o ýܪÚ´ë¾Ò ´£,ŵ«éÜyM_ðôÞËe ¼…øäËaPû†ý»©Š¿¯ÅEÀÙöDu®–µž·[ÃP”üÜQ —]Ö“%‹¦'٧̲Ä_N¦ŠÑJ0ÌIR³Ý,žû«Ê’Av™¦‰\ÖÇ/3©x–K_s^HÌú`ûÁˆÃ½à£‹a;~eÖ%°:¾§•Š÷g¹-!ëV nÔ¶V0¹‘|ñß©ƒI±ëéùÖí<“~êJÿñ‘1w‘ËËØi@¯î½ ®BVlf³ú\`:ÊøÝÅx­ÂAWß³nMNÞ¶! Â×G‘4%pÛme+f!¦•WaÔâ’¦wo6F0¬¡·Rö›>eÇ1dyNgŸAZ”}±LnK´°™»ƒg`$²Ë³–Ùi~-Pô¦w+…9’nF9R«”v©šüØì:+7å"–ÃqsRëL .4\ê>s7í{¨úÙ » ±L¶/¹o\aæ ®hIË!Sȶò<,iÿ½ÅΫ•FU- ;O³Ñ¾¡>B&YH0;‡U¥10 ,„ŠW§ è°lfu¶F"$ßUÜ,y†E5éÆ£ [²·ö€ÚĆNjæÂ%,û#i¶$C5Úñ›§*d*ªlq'QaG »aæs¿Þ_žH. }í•V`€/Ã=ú¶k{qg¨øÁJ,,˜2eÔ{Z<¦©u^Ýù]ð“Ö’Ò&Ò=ñý¦g”Ø°ƒ}W‘ÐZø4OqæØtÂþ€e–;ÊRL¦%!Ù£?W B‰Ê¶† ’Ò‘ÃŒ8üE-$AvGBýËPIÔÎXÇŒï}öÑ¡ ƒ¡!–_MÃK_"‹‹WAÓù,îˆzÔþ­Ýpó^àzî©í’ <–šy¦Ø®X}¼6ÉÑLº>e6¡…ÝQÇÆ’çÎàz2ù¡¯-ãÝÕ3GÙJŽ¤$ÈvrÎÊš]ÃìCÑ÷4¨Í{ÕSá'ùÍjvùl¶Õ{Êh¤²«°vî2¼ÈëšÅàÀŽ´˜¢®µÄ0õRV¾XôÎ|AÖ¹õ«®h°DW½BïÓ)ŽZ™wncíBÞ–¤8#eFUPÚä[Yž¦ñTª…[ÙŠ#M#ßÿœ7i£^ìròiÅsÉ…|ê#ݤ‡eåeS E*†>*o*n+ÞÃÆJ|Ab49š‘"5$Ô¯§L"LT2Gãw›ž›9%ú—öv—"ž‡RYf£?ž 5+ôÙ,¯«Ð5LS¨êЈÈVQ¨nSXƒ7:¦îÓ¹9Å ¼º~¾aNßd˧àÑðX¦ ®ÿF¹Ó—ù2[²,±»–%-ÈUÿÙý°<»H2Z²ÓùL¤¦Ï¿TS#;Ÿ)ƒ cJ×v<™¢âëœT¯3kžî· W/óÝ’ÆÔåÃ>z¨=Ìm©ëÇÐ H ñŽQÏffÅ_½Ã±3. íî5 $y·h*X"K-Íùp+:Z(QV\‡Ó4 æ3ÇÑÌ…Ôg«¢&¿r{~¨x%ƒ`,¥¢€Ps5—8ÍLtêÆî…M|ÍîêZ®1œ½ª<Ð^w”d6fQ·˜ø«qáò*µFTƒ>äd“vÐ_)W–{VÎ2Å"ּǷ›ô9þøY¨Ä³*‘´o˜ˆm4Á øÐBW:€>_³Aœ`io¡âŸ‰þIýÓùÁrSsõÚKu>¢ß(‘eÍzã{æaERS‚bºîLdÁ»¥»»Ù ’.S& ÙO[¶äW‡}Ü»ˆú½ñJÊج~nàx›6î_„1ï¸iô”ЈCˆ gÐØŒŸ%åGÙ"#Ð S×¾Ë/IÇÃ%6óDuS1•²!íç¯ú÷÷$¶Úß©4ñ6(—<ÎzlB1¼ýc?Puå!.ŒÇˆÄm újJ’ï™üÀ…!ðüþ2+ÿ3b–4ÆTЖ•LO;F® §Î üW£ú+z€x-]}³¢y ê&‹Ts¸¬–ïR‰ÜǦ›)·­š§Òe6ƒ:!ô ²ul‰ÄýǾ23 Gm®Ï0¯»à™òÛ­9?;˜ ¡,ÂD=Á¬E¼–ßçåà‚­Õ§—sbÄCãB:95ìИ­ÀÜàc·ÁV<¿n˯B¾»´a†PlìI$IŃÃC~WßÚ7ãæ*Foç ÌIØGB#“÷šä6˜;¦.hÐû¹%ž:-F’T\Iuö†úå¨P}3žðwYŒ×þ‚[S=uB꛶³ŒLU·êË„‚Ø øËRXöm’¤”w„¾oäcJÓ0½t¿d;æûœãÅ<8s×uR¬þiÖWÉQ¿JÕ¹§ÛZHCÊä*e¤q;Št»èZ¹—-ä¨N6,›oè~•ÌíᄉG3[·—‰ é}8F›É=œ·L0ÅÒ·¸vKdôf¼à.…u¨¦ó!ÜPƒƒ$σ•n _sì Ñœ•ÕK Àcå$2–ø3‚ƒeS¤7Õ9•Iv4¿`ˆÜÈ-6:L+âÞÞTB[1½ø$ÌAz© «²ÐŠh‹Á‹]|aßå ãz¨Ô¤~}"’T—ÅLŸ27PÁ°µÀ˜ñ ùp¬ÐÍ´/SAûa„)T\Iå§K”ü} *ô+ÛŒ$üGøËi3¾­¤î˜t˜vFö\ê1Üh+Ô„ö5Š¾Û»9>b‘´[+ÎPžžO¨ƒ¤Þ¨0û$´ú½ ¨TîZ?÷Ð*ô&“„Ï ÈjÆ?@Ô!¨H§%f.mºŸqÜX_JzîTÆœñÁ¨æÒ£‡ñ}ÝsZ(dtPæ{uÍx,OèÙìKèeÑêF¸‰,øÙdù÷Lì[cñͺ‚P èn Z¡» OçÚ¶÷öp-slw>lÓ uX̆÷y—*’·­ù7¡É™ÛËü2ÂðæÊh©)Å€FÓ²tëYZ„òq¼„Ûë)Gc䄲tË¥~ù,$®Þ$­A\çéâõ¥á¤íûYNÈj2Ü>Ú«(ê®Þ,}Ià·ß~gE]SaÈX ÜS–ŠÃÊ°th~ªº2viˆò4a…¶E]6uŒ€¬Õ8ŒÇ ¡çܞ⪣æåMJ/`Dtúˆ+ýðRîØ6Ó›tu%<ÆŽÑ‹Š&Ùzãðl yvï¦P—‘řݞ˜¦=XׯšOô¤ÀÏ”G94|¹šÛrDò—ßíQ?½ëñ¼ÐÜSAÖš…ÅJPUÉJ£œ~7MòãAõ™ÄcKëq¶ø^Dñ³ƒÖ:Çîùó·;ÿ¹Œ…œ†ƒÇÌKŽæ•äZOâ¯69‘|£W³OTU÷wx©åO*šš\|d@4|²¬Xhà!䡸§â%“Ò±ßÏ &€.ß Z¨]Ñ!èÄeÑoüŸ‘U< )R§eM~z° –!ö]ãVZ•ñoÀó2±ÕúƒRBËF$_““«ÝnìWEÕ<<{ÊÜ2²¡aý¯†Ç¹_%cj=tó•«•VÙHÈTý£íûŽhn™ïvѲ©í±Ì{›Ý¹!ÙÓ ½±‘=ZýÝ)“vŽüÔZ0O6`êé• Ìlpßû~&á° ÜàJ•‡ÏÜ*Œ»RNqÂàXºGϦ¯s7ÙãiJ÷;–Ãct@Ù ÕpÁ »ËÉãE§å8ˆÕ &åH¬þmÛŠÖXæãP0šJ1‘g¸p¤M]ÓÇWÎP3ìÍvͬ哼ƒ¤ÏrØ…º;rwÖkÜ~ªYDìØ:% h奡Ìóì Ë„¯V[ͺÒgAë[ÌWfÓ=s§ø*KpÌ`ÕˆŸ„òÄ4,íJq>#oè«j`ÚæDå œc3‰©±=“ ýòÅC!è³-,QÈ¡ K¹rW‚O݆ïÊŸO»oÚ…1Ü+¬j¡ ’±/jªX]ú‚^©Ž_Súê-éLô„ˆ4‹SðPÝ»ô&HÕXùN„ºNiavЛz¥ZujTkðÍW°Ü°šÒ±G¬ÿÅÿü¿&JÀç@†>ì,*ëcQ¿õX¯.^߸Ž Wmp”$ä¼¹ª~$·u.ÃnÍ{b#9÷F)é„ÑQž ׌`œ.úÝq'°:ž¡RêÝÞŽ»6DníO^3Q9¿h¢Ån1ÐÄ䲧¶fò?nò>~Çò-`ˆVèªzh¦vÅÁsd[Õà—1W¬‚×wÃÍÉzyÀ÷tW«ÀÌoJª&ç`êÞ¶{Nbʸ'As—st†¬eùßõ†‚20/GC£ì¿÷'‰!÷åÒˆÆ?¥†EEp ÇRE„"ÖºÌisí^2ÿ"â8œDÞænáÒ¢Be!SÞG‚ñ xÇ ûü\/â †û 5˜Ntè/²È*z§†¶½ÿeøyã¶&|luS¨à—á{k {¤™Y¼ÊÇݤ½âkGÙòòC/iîy\?’”SoØÂñ£ÉU;Ÿ»¤=Í-ïŽpï4ß­?ãà¸j°!'É!lÕ¬tŽ_ kk æ¼GèÃø˜Áù%B€çjC™¬‰åúiûŒ–3£ºàïg³“¶v´ÆE#^ñ[]ôb_B̶oÏÌHõƒY>5zÒÕka”ÜêÈ/»U ´²LŇL‹˜¨ /ÜVÓþ’t‘æ%๮¡¶´bd¤–'›„ìØ-ÙßfO”D:˜ð«¡Ä™ \¼Ý3Ï0ßd1ä;Mò= cKêD@KýZÚV('òᛯfz_-Ø;z?U² à:5ÈZüá=â:‡Ê¬ÅW*-ýŸ|jò”à¼ç9}4p³;E§mµFä~…¹»/5çjúWpWµP4ð‹C»ð‹\û@I!}=íªÚ¹Í¾Ã11¾ ¤7µ³/ð÷J¬²fS¹ÔÀ*šËèÏr yvcXždËî†#|ÿ'ÕFAn^ç/äºâ§4‘F…Üã—©Dº¾y$Ìñé‚IN['&wCÿOã÷`;ðN¤Ì§Y¿U¹æ¦„˜[úë`‰ÕŠ¦ÇìÝJíòÅÐrbs~^º_íÝ09;Š‰à¯ø¸ßÒ6sÒEGe.ˆêZÞJ¬²Ca6T׎ŒÂº¥1Éi—›ÇV“‡jݸAêò0d‚"_<9Ä&†û¼ìúIèîzTtV6KÃOç%îý;òýUKÑAê•6dSÅ Oå_& -ß5¥>`+_a¤<•¡ý<ë2ªFA#ß¿-<“™6 âpEGÍ'ÓR¥Y³gÌ ÍÕÒ·Î#IÅ2z÷ãÛNÍ0òÈ÷X­ªm뜢 b+ö$¼û|±Ù^Øn/ÊÞVÀ  L¢¨7d-±-W˜Â2xNˆzÁɨÈÓ49¬ì-J¼SBTâ 5“&|6W¶ó–TçÖæ{ÀÄù¥ ÷6«\ÉäÅ)·y—%£ôî{È}CT (>yAÉ×ò;¦Ûÿ¾»m›_ϧ`€%¬Hñš0McͦÎ%RM%ÁÂ(V¢âÝ 5É$xpÆ£°OŽ¯yñÒb€@Ï*•ùüoÿk)Ìå/ÊÖ˜mdßéܵŒw‡¤ SÕÌê™0@þMïu‰œ€ŸBCX3Ë Ë€ˆÆ¾î—“Êlm|©‹¡cÕ†áʦãÅy„ÆBmœ$,AÌ«ÈøÔ ~»ú=Ëb´2û¼«ïªÞ•Ì`JUÛ@øáõ&Ë#¤ÿ‡ëg.iÑyùZ°$pŸ}hPB$àߦ¶¡ Êk«õ½6³D¶” ÑѯAQà2É–æ RÊŸ?}ÛiTÿñ¤çÃ8o2œê¶7¥¤hò©ò,åë_£¶(Þâ³(äˆÄßðP§ç…‘TÀëÉc;N¡@Cl[k¸)oó8·ns'çF4ò­L ÇŸe“›¢aé@cXYŒTUñ]õ±~aœ †´%ŽŸÓï7êÒše ûÁ$zoûܧ$|Y €ÐA}Ž«"öÄøŸ%'Ç›)´ôz1ø¿UúëO~Û‚]êeeP…žðS¾i•ïõ‡4ÞI1éíIUì¶íé’ P"U¯Åžÿß|@HâÚäecͬ s hA2ÿC Ê…Š§•Ž‡â»ÏïÐTþ¬4æ8^./­4çµ`Iò&v:}РLM É|"ˆäÞ†ðʸ&—²Ý±k ¡2‹ùA=÷ä³ÿŤ!î]O£gAÀ“x$Çb®õLû¾ 5¾¦ n/'Ä9Ä2@6¶¹è¹ål³BóOÂ Ò EkvœðzŸ:°o–ap´[_Æ£oÝ&¹é1o2W¼<ž¹Ùz!EX,VEï¥8‡æÞQ•(¾4F:³htN¸ìÅÛ²÷C!¯÷°OÕ,—Ö[\Hûú£ E >è]rïêy¸ÅÌ™(ƒ´o$Í¡ìïháÏÅù¨çÁ¶Ø—9WkŸ3: }æ¾köÒþÞIs£[³0äM¨ëÓ⌻¼“r·6€Ž2D£n5<ýÛŸ7F uµ®û ™HKÀÑm…¤t>Qmí¨Çöï(ñôÚžÅ{ŠoJÉêI É«mc³)äÿ6Ñw“êGˆÞÐAÔí:mèc–ïxÂö8±q¸´[¯†ñŽÍC?â[õ6ª}j|©óÚ¢ýŒ¶‹$,#IMÁï#+Ñœäû&Ðñ+y%,ª¼cÌý‰³Fû3: a„XKjP9f e€¹2nHoÆaMŒË˜L6%¡ ÜÉ´¸ÈDø€e£g}d@1$·Éy¹´hp¢Œh$h2ç9”y©¶Ð– ¶^®ö²xEµE(*ï4X½‚tÂ’ý‡“\£›ÿ½Î;¨°sË*}&èò½3¼Oÿ×'ü !¾Á­F¢¾uV€Ž¯ò˧ï¼î^’VØßrëÙ风͒T‘VíGºAæ´pWÏ?³Í?8&#¿æËZáñ*îˆwžjb¼I=š0±A¯l¿½¡KW¸^ëâüߌ²Z…ªÁ=ÄÉù^ÒIÎÚ\÷ˆ‹Ç|Õ€`Æ’ô×9knq¥áü±öcÊ0Sµ‡^á9sÖ `¨—‰ÕL¬û8-Bœ6±¿^Ÿ² ©Ã ?[?\C æÛÔps9E„k…D?TZs¼ýÇÔ®ì$îñéC£ÓŒüËœÔŨÞÏiýÎÌ–&M®ª ЃçLö6°# ú‚#öjÒœàʃ5.zÓ>åȸ©Òé”ÚÇ·cl0r|Ά0§g¦9WF ™ LÛ\ÖÏÆðßm[¹3qÖ´U"ôWÎâK¥_T5ý†¶ô` endstream endobj 6467 0 obj << /Length1 1430 /Length2 6812 /Length3 0 /Length 7786 /Filter /FlateDecode >> stream xÚtTÔÝÖ>)]¯” 0€t Ý1Hw#) 0Ä 14Ò%¤"-‚´4"Ý ’ÒJ#|cÜûÞ÷þÿk}ßšµ~söÞÏÞgïsžç0Ñkér¬á–8 ÁÅË A!ØÕ싼z¤%ðåE Ôâõ‹ÙnL göØÀ]q^3/PÀýéûc xìÿ6yù<Îÿa"£ˆ_æ?š°rwuEvù‹;Èÿeÿz /ˆîìÜJ<ľ*¤ù¢Díɵ>,y˜vñ„k8ßÑ%?öt%Q÷UÖœê;…ÙN^sûV Y—‹×‹Óß|תéj¼θè¶lé,ã§îÎP'’|Ï2Lգ侔¥+ríBÑ¢‰&þ„#mmÛ¥ËDäÇRÕ1“äÉLúVAX%´Yã㧊·YjäE ö¾ê ,{õÖ¿S²duŠ ^1LÕÈ`P•øx‰›èYN¼ÜÓß;OÒIÓý\Å#hýèQ‚D^¼÷¡œV¹Á|.áMv‘ÇnÆ_¾–Š÷ev­»J–Ø^^TiœØ­ìšÑ³»t¾®£ìÄÞ+PSL|–‘ÛŸ(3”Pñ-Átª4¶HêÅ;Ü* Ä »'ÙPG{¦í×öe,f]àð¼mÂ=ç¬dúä@ìÁÂÄâ½Èغ MÅ[V§’8¬ôê·üùåy§ÏH¢R]Â0£ÆÃ!{Û›ï±]çJ&V %W í»$óŽÀÌgí¼° à+J.è¾øUÒÑñ”âJÍÖ·,|}í7ælj(þØOsù=Ðç`Þ³J« gaJ'™5Øð(_šo¾b5:"Z¦ÁLåtÚ5F°¡ÕÿÊôNTÙô=àeâxʧ˜èŒgà ϮqòN^p3ã•tT@ö(ÓºD:H`å}oð(+ÿÐ,¡³ó÷BGkXªä¡"l´ok]K-Œ>1ÁÝVr¬v'ñSTUíÂ.Lü”à½Iq‰aÂLŒv0ì ܕùdô]~¸Bí¤G1Zsê8áÃ@• èªã°dnˆ1…B:åΫ篆ƒ^Tg<ë—dfäe¹”òh»Sxa EXÒÔÐ9çC3©š@u>_ª wÜ‹ºÄÊdD“?=}7t¦7ŒKÝ,›3K$FHþY~ß‘jdº¼·:nBM×ÌÎQïLü {‘ÈÇ&Ýeõ›²ôº@J„ Ÿ—äMWŒ [}3y…½#mÅÜ÷Ì%j‘þ™ŠPµ‰©ÙÏæâ½-×üÞ -"Bù0‹ E–{™åC Ëö¥m¼ ë_²=ÌTéãѽ°ªñÄV¥;FÞïæ ¿Åº»ëñÁˆ¡ÞrÎüÄP'¿Iùuë†GßrÑR>âbu}Ä šRs¤™š<‚Ü>ñIˆÓÁ÷[n5?*«m¿ Äl?˜p¼£ï™ŸO¥!Œð$Ç ¤}H⇺šÚïËi]t„È—©‰äÓ¶¨“³ÊÛÞ[¼èN$%èZ™ɹ*ÞPªd61Ñ­"¹†jˆà<ù ÆÕììÐPs*dä86gË”òt,¾v ÛûRPû¹~‰Í6öùœ1L©‹¼!öô(•z—“µ;’<­òÀ‹ç›ÛIæ!ø•Q¯ ¾ÎµøoR‚ßÑapr×-vŠ7þ ~Tÿx®«ãªý oÆÝÐÌ…[%Õ¶ÉÀd…ž>µ·’鹞™Í —­(ˆxõ¶` †]Ô<­ð ,gQ!ABú‰‡µ÷¨tVá‚ZÕ+…ô1^ØLð­UThùkÿ²«}1NT›Ê«A™ ¤aoEðËgÐÍÉlöPÚ°fÖòj ÝR^?×LÚÓ~ÝYX³ÓD9­3éfzl,y´Sx\îx/”ó„fî{6w,[ï YÝ‚”™ —T ±=Šý²tÍÒïSÚ¢ÜÙ L+ÒÌQÌé+ò“ŸÍ=”šÐ…5-)û«ø$µc™fŽu95ˆ º–³<½üŠÏE‰Ÿr¾² óŸÌa<{ÇØk¸/|qv»Qíq|3̲ܸà6õÁµ=¸©xúŽëöøÒ"¡™*įŸ©’ÒšìGÇ«¼Hva¦#΢žnÔ& ½'W”â ̽À;6šõŠ·³üºh‘r‚8Ê%3í´;Ý/¶VÃÍr)²:ƒ{º—{„¨±Ye”‰õ¹’˜±ÕDáðHöº4z™à¾HÅ°Dl#”ÓU <.ÓW¸JîY@„—ŒæbdÙB8°|._ÿ^¸3Ç™ö­Xþy á¹›ÇÎÙ$súýÔˆ'–„í‘mæÅÍYq‰ÕMÕ¥ýSÎ ô햌ܭz•¡½§øJ™¬“(GN‡Fqx`ØXµÏ­š‹D¶f㺤]x­‡jxo5ï4ù¿ûvPhÕ(YHú|ÉØæ)¦ÚmÚ#²I#„ê×0íc‘˜&”£T¦5T=¤ÿzÅSS¾yÙÄ%ò—ÅÐxî f«¶XÎáTv®o×¾1½œÉ^ûejµÁ¬Ê±°P÷xXªöûÐËÂÐÛZWš~s¿£+þžÇ.O‰ð÷ÜAX-+ "És&¤¥´Ûã¯Ê¡äJqf>"ª‘,s«ÌÐsš@;˜l€¨¶À¦Ï|7IcÂ{U4az ‹Îx]£>¬Ft¹ ­\Ž Uý* ÅD­l­Óv:ÝÙËí#«÷ÇKÒ¿‚Åù5·–œkÀ€“ý³l­ÞR+ò wYn¯6dn؇?tƒbê,ÕfhmL¸õ”¬Gù€O\|þ]SÖþº¿¨£`3&†ÓÞ½}iEõŒÀÚ3™Ã €(Î?ôÅ™p¦&m,Ñ@Ï'ÌÔ+Ê¿²ºˆàݽҬW ñkˆÐ02±H«‡ ?3ákêKKÚg)a>Òé¹çUáÆiNü"ìwN+lGJëÖ³¥Û´ !ÄŒÉbÊÖ%†SÄbz˜‡#£»…!¤Èp$^ÚzûÖxPÔZè uÒÝvš¶5n½7¨ à“ a‘;_‘¯€ÓÂAy* 40éq^jf£å1Ç”¬iÚY²*ë¨< «ƒÈu–.-O?ùfüðæò6fò²£*=Æ@!n’ëâÀ¢;ÉX’¶¬ÇECxߥgáM…Ø#rÆ8ÅÆñÜ.´‡N§¡Æ—½>aªJâÕ·x‚æûzz2™ÞÌäÔŒ´kZÏ~0'ïÀG½é£EtÏÛÿ1yŠ—¤û™Áwxå£Pz43Ã'÷Ì)‡59Y­'ÙYû›63 2žøµõ)èÛLÕ¦({¬ncó*lØŒ×>µþûeƒ÷¼•“XX·2ú‹iVË3œ>®bpõ{EbÞñ`’%˜¦m¼IiJ{éOZ1_^lÉ­ÁMØÚc7ƒZºÄ:SÐ^{À³ùîŒç:þz¡‚ƒžîtÔ6éÊoÓ)´†'ÅÑP‰Éî2bª3O3÷@õ:’tzuzbšŒhên(õj½ØÇ¥»¾å¤LÎÛjæ£"wñ°ékA.ý×söh£‹Û·ãtQ(Æ&³âÙÊ#ó’ƒÃ¶8g|,] [ÚLÚÙ“–7¬vì`{ÑZ½%¯º±×íöþ_wÉã•1ÚLRuU¹Ô³ņbž4Ù¾½ú[çÉ–Ôgï©žqžNÛqVÅÔZißï„Ë%¹É.ð‚Ÿ~“ž²¨»ß‡íåÏ€I¤Ã¬÷„%}´Â ¢^»1®Ù*ÇáOG4Ò ¥ò£¥[t„yЗä.×êWïñ1/W2¤ÂvÒã|t@G–ë*£KSûÌŠ}_ãnë‘a&x‡ù-Hk#½ó¥°§=„íL¹yr®äù„³3åÀw`ði+±z¹~»Ëý0ˆ óå¸òLøA5û¢‘È€h2Q…B>—ÛõK«ù±üËÝ;"ôo°ªå¢Ž0Íç¯Ï+BµéÙ¸”•x0ìõ‡\]nѸ "ì¬ggö c±_—ÝIî[‡Ìt€Âh/jH˜,÷ r寈Ñ?¸,Ço4”p–þ)aÿXqî;–¬!ªvâ`¥òC o¸jÕ]~á³YŠM{âìÜyvà´Ü›Œ Ý"¥¶Ñ¸L)3áÇm×<|6_Ñ™9m,}oÇ«DÀ뻌Ñ5ûÃ8s+Ý&åmiC£5f²C—RäMAãOƒh_+ß{öÒþªªD'1îÅ”`z]‡O¡Îu° ÎzK’ØÕ ˜”Ñ­K ’Škº‘mÝÊ·®£­œé/çŸnî¨Pì9¸ß¾9_ÊÑ̶l¼ð|ïªýÉ¡)ƒãuKÿщÃ!ÿ™Aa<£ÙA7ã vÆUÐ"û ¼!Û‹hz† /ÓBåPèÛJYÑÍILðëX¬ö}#\ª‰º“Ê’“x†¶+ôUé8™ÌG Tõ­#°ïo×Ș%¼²#ïI¹|J hGWTH ¬»¡Ý Ÿžþž^÷Qݔ䙢_z5\ëv(i© šn%ÝJèó!ºA_:Q4ÍL³ºöÇOèÂœŽôþr¶] £ÌÆ3Êi šk^:Ë áÌDüøž#äÂö’ž¸[{Véáþ—S&‚Œ}ëí§Ï>Ë–•ñ<{^Š/k$ÙAÐß!°¿}À2ËׇA0?š2Ef€µI%¬ ¢/VÓiÑ$,…߯ÏKP0ÃÉ¡ýëpÙÚ'Ô•ô2}u«a”³#3Ù¹ Ãóý+·F®éfj‹«‚:焉n°ªÊaôQÃf÷Þbé^ijðø|Ÿ¤3»bó§9$öqš ¾28BÔyûGf½)‚0ç¤Úß¡œ°âËåèàðH·yÚ¹cvÆC]6[#²YŸÉ'§R[˜ã ¹R›ñÚ:ŒKá05æf1O½)oðº5_j«ªžÏg½ö`èó¼+T0ßæ45žÜÿëü9SQì#.„€Ë—'ô2QuakE;¯W Cu%À‘—†O®9ýD¹Ý³Ø^ ®ÚDÚ9-wί2++ i5>P±ÄîÚ©u®t–ætn%ØæXýÙ´Ò¿ìéšKV5w9?®\}AƒIޭϼkJ¼f:M~ xQ…úÃ/òýúûDc tp ÞvtËy¼ôR ðäõ‰ ÑÈÆ]Š“+åO3ʳïïîósç®õ ÍÈIõ±Ô>QiRò5Ë'Oª&Ýd Fí©XTu€³ÿáa¡%ëŠ.ÎcG¹þøe ‰fM8ÈFÄ´ã,lésÕͪv1z-ÊFi›ŒÅO'7yÖjض^B)íŠA€÷÷J ¥ °ëå2E6¾Ù5“N~´ãífCâ|AÓûBoÁ$‘OZá‚©ÈøÙë3vÅA­«œÚØIÁŽå,A¾7æ㢽ÓxâiÖQCŒïR¶äKêuÛÛ>}ƒX.¨÷ô—À ÅÅÁ åÐÕþfݹp“gz’5¹ºH… +Uß àæt¼Å¶IBuåJ†ëá¥"6E$d^êœõ½ÊËÞÆa uo¦H*9« áâh…Ú”ÍQD–Ï…•‹È6‡7“ª¢-Ö' «ïñàËÊí4k%òÇßÓ¤Aó‰.íX”'ƒ¨$sQ‡w9¨Û¡–ysö¯¢džèÚUSÛO*Â[ÄïR¤N7c‰ëZ­QLØ?FÜOÁÅÎ /ŽE¡ÿ¼àN5I¶ÅG…e´e…-ßTq°y'$M|ßZ’7M+B±¥ {^Ð*%æÖÁ8Œ#9H+Ö¾HËܧn,³Œ½WÁs¾€±GŒ™ûf1±~Œ+õMy‹õ,{<Ò’19W½ïØwéŒ]:ŒøV€žüâªüÉMôž³Ä¸Å8 ­À¾Ç£²[ “›èžv>Ô†VNÀ¸êy°c%gˆÎO½o,Ø )Ú· lÚdYŸðŒ” 96ÄR}Ô&õBéyÏRÔüýÝ73©ò‡Iu`X— J‡nIÞ›Bù<W£“ळ'd÷H+&è,¸ù ˜`£>^¿¶!®åâgâmJη_X?GDyVДžzéãêרðÚ¼™`/¤;…bá[î,Š¿+=¢TS†¯ƒ¦Œúc*;’h…Þ…ÚHoÕ2®ì¸Ç_÷RŸ;ÅÎðwŒì³›Éàݨ?5ïóq”5xøÞTF~ˆµÎHòW£p(û^rÚ´C³ $dÌ84Ý%àõ%•ýÝG•Ä¶ÁE·ÊÛ$1Éç_X M;bín<š©é&)Þ˜W`×s“ž0½P|ûÉ1¹ö× ”w2ñU.¹"®¼ÙzÛˆúGŠh9òX¶V¼¤ŒÔúc¡eL¯ß´-ŸLžK²0'Ð|2únà 5£N‹±¤ò|Â×:÷üRVsë\@àœÈÒXþA|T£¸¿¤\ÁøxÙ·†Ž©%À!àmÀ¹£b;fËÍodº-;JËŠ»"l6±™ž„—:zü ÷j‰jÖVVÒ¸¼¨N×…fr'Dðƒ¿ú\ËŽ“îݳp c: +þ®uåÀG®R¿JIPÞb­·Ût{߀-ŽwT«ßr3œ•†.2ŠKèbÐ>›R\-ÙÅ¡Ù)Lšn¡þ8ôj1 ¼œv‘§Å“Ì'FÙ|Ïö'Ü(jŒ##­«PÛmëÜÍ Þkë›ü’hlÓûøÕcy†o‚¦Ë¾ô¶†²±ØÞd{w÷rs÷–×ÿ˜Ï9à„˜Žºñ·GäyííDötDdëÙ-ð²d p£`ìy¼Å¥iu0ÖK¹Œ„# óÂ'4Ít‡ï¿4½qMÚÐM,'}¯þnFÚª;@[€<åÁWñUÓ“«‡j=W)qi†¢Ã≄[‡¥’Ú,‘Á¹Ã̓ÌüYSË ßy˜}š¶øò ²6$,.†ûñA9[Ù¸|üîûGùp³˜“LßIï’Ž&-£5Lê„÷«Ö«àškÓ¦ëMÜûa¿¾Cù=å¼Ýu<¼’R²Qš2ÊL6¾Œa<;KŒD9¸÷Àxq²é|g•Ýa:¸{+§4ƒÕ³½àF/åk>;ÖÛ6}F@°;Sæ|> JóQÜF]´Æ+…dDË_9¹å ,ùߎ ¬ð“G¤©ÚSøc/³îï->ß$Ì Æ?m1„2È*ËäRntØ8÷ŒcµO€À¯¨Eø °P‡ J£·šž.E)¬zPQÑ#mQÌRwž¯µz€"¹ Ró Ù˜îƒ>Ž&û’ð1 ~ò jíÂ|Oî]˜ÃxøE\t´w‰{€”MÓxe<Ê.|øÀÐ ÔœÎÂ, =õ½Xk;¶ï6ž´¬Ý“cóÞ»¼_b2ÊÚø&Ôs]]!E>&œ”ÚÊ8zî»´úå]ÈÜ ¦ûbk]£r‰ñJ •2Š‰;‚5G¶yˆagðhÇ£3Øð¯¯üþ—õ¡etíã“’-8˜C]y.Ï=ƒä7è$X%w|*ÌSˆÔZÇùpÚÖ{møL…L7Ξ…ýìÑdCR{r †@kƆÿÆ wÑÌ®õxB+ãö•<`H'+AÏ®ž€üƒâ †Æçhú71nµ•†[¹™q˜ i«+X¾¾~õK–öߦ©»øò¾Û’³(çþ}, endstream endobj 6469 0 obj << /Length1 1385 /Length2 5996 /Length3 0 /Length 6941 /Filter /FlateDecode >> stream xÚt4Ûoû·ÕR£Z{‹Úµ{UňR{-‘1"vQ«¨­ö.«f©U[Õ.ŠÒ¢µJiÕl:žçùÿž÷=ç}OÎùæ¾öuÝ×çsóóšˆáh{ŠĊu==mY(%JRòó›"±®ˆ¿jJ~sƉF)þ/u Š%è4 X‚ŸÐñr€¤ YEœ"þåˆÆ(4 ÞH8@O ƒF!<)ùÕÑî~¤£–Pæ_G€LRPý»!0HЃbn„Š0¨+À C"°~ÿH!¤ì„ź+JHøøøˆCÝ<ÅÑGaQ€ë0Fx"0Þ8à×À}¨âÏdâ”üS'¤ç½ ÚëÅ …+†@y"¼Pp@(0ÑÖ¸#Pœuÿ8ˆþÞ $úwº¿Ñ¿!Q¿ƒ¡0ÚÍŠòC¢HWÀ¢+ŽõÅŠ (ø/G¨«'šõ†"]¡ö‡ßC°Jðïxž0 Òë)î‰tý5¢Ä¯4„[ÖDÁÕÑnnÖ“òWH F¸v?‰?›uA¡}P$ îðk¸—»„ éá…ÐÖøëBPQþGçˆÀd€òrRò €ð…9IüJoêçŽømü­&LàŽv8†@"„?ÊO¨7€Åx!þ·áŸ%€#aX€=‰¢üOv‚áðG&,ƒôX Ø€¿~ÿ>Ý%À ŽF¹úýÇý÷~%, tÀwDþLüo›šÚ@¨)&)€$¥A9Â!ðŸY ¡È¿]ÿªr@@À?Ý®é_{ÿ€Ð_rþ™LM@- ôÛe€0Âôÿ õß!ÿ7„ÿÊòÿù7ñruýmúmÿ?ÌP7¤«ß_h½°è¡ 4@ý·«âiõp¤—Û[µ±PÀ(G˜Å@Òâ@é?z¤'é‹€"±0§?ù£7ûE5W$ aˆöDþz[Q@àÙü‚¹ÞO.ÿ˜ ž²a¯ñ—Œ ÐéŸ}h¢`hø/ÞIÊÈ  Ô’°z‚$C@ p„ïod$ÄQh,!@˜9à€ÆPþZ3$ ÀþÒQþ#/Ì ƒ!þ BÑÉ¿É@ø"`”³Óh˜R¸smxëÑ30»Øʈò…Œ#KI±‘§÷(°½š¶KÉ&¹9s·ñÙäžs‡¾šÇQÞû·ß>Õq×ûIˆqCÖ¹í§Ïˆ'r\›¦m"zb‘¦Æ¥X‚é%2䌹òòÒM¸c¯ ?í}ÁÚî™Ç> ¥9ˆVýö—ÏJst™8Ì·–±Íö¦+2{,‚ùËn acm¢Óõ³®ÝVn?¦Lö©¾²Ø?80µ‡³3&DÇ;tå+ßCìUM¥ iòjóùÂË'ù%Þ›YtöZôêL&zOxŒY(Ô SšwXlNxÉ-s¢Sn²Ð¶f­áœÐÒ¥dºÂäÓó'¯E:> €+/@Œ´7¿œ`>œ½°8øÉ•êåX‹Pï}§ŠÒÝà ×`“çŒ*˜•˜¸EbšþIÝuê°Y ”®ì›×ût7£=BÑÌIÐæ<ÏÝÌ`ŒääœCÛS'NY mv}“ÈÛHC2§¤Ò±æ­¯ðÁíÓPÜ)ëåp¯Ý&..RUf¥Êâ]ÛïRiÔ0zŒæSY­“øXÓuÀl¶i‡•Å^'Ù0ÚmyG1ϧùe·€+{ð|xØ!S©J‰Ï~—Ò¡†Ù¿ÏîºW>Añm´–EžQ&8h ÒQ»[m6‘ëJ­‡'ºN/$÷À…ºð¡÷ÆÔ[#o°&·I3¨ŸuF=@ íÃ׊¹×á6s1”à[¯*Õ(î€ðeªæ g—Ñ ¬â0[U›Fíñ§¸~Úˆ¢0ØÀ÷»6EÜAŽN›ÕŒpJácƒw¢CR…F©e?!ÔÑ ¶Ê•¸ EÔ•T€ Í´s5¨rÚ–Æ#¡æè¡XÏ»ÝX]áÀÓo+oO“'Þë ÂÙç·n)ƉûPñEÜ~)D›î%Ì(ò"…4B{¤žš7ë‚…‘ªä«Tv-bU¶9â9©]{×]Ÿ.7›ýÏOss% mUþ¤®¶ÆÅu8¤½ø!–ì-— Üjöf‡>”ý.…®/ ÿ°QŠµR3-NŽì_ïé}êH¸¹ iûq*Í­¸· ,‹¨–®ÙVH¿¥ÁËÁ=s3>‘üR\íã¸È©!¶*ŽÎ\éƒûz#¬Û;ž7æÒ’+M‚¶7Ò6Å[)E0í¼æ£— ôSR`îÙrï¹p!.[Î'æI§°?ǘõe]þõâê-A¡ö·• éE´÷0!·Þ™“Éò‡ÅÄʵÉìF–jf=eõSVnaCas%Ä Œ' qŸ%ý”=^ׯDܨ?@Ý;ÐïC{êõ|ˆá›Ÿ4JI2jº&¯Xk{äÝÁ¥2Äóä*iv{\Òlùãs ð¥Óy”¯¡îÿõ؇g=|#ŸO–HTï…ŠÍÐWo‘yHš×í1ŽÁœ}‡· C‰ ­,oÊìÄ’]û}ÚjÒ'qÚ᛼æƒ1Ê> + G.²÷Ÿoä #>cŒDÒ\å²ÖˆîÖŠÈ:ŠŽJÜz]ÅsÅ¡ °¬ÝpR0’˜ls úÆÀ+™Ê”È ýs~åÞ#On¶*oLhìÆ:ýÝIVì0´½$Ç>œ.OY×:ÕLßÞÇ®©¸Qu¥Îê5".]™äUÜóÙ¾ñ 8Hîw\Ã`¥ù Ãc÷0ˆ(‡ÞmþQr’!uŸÒL'{2/–ÃæÑ æ%ôÇ{m»Å—mÌë%w„øýtÙKõµåž~Ri´˜Öíf^Åï;¯f<<קžü˜Çæ*CÝ“Å(½¹!ûïè`xÎÜÚ´ÿÓ([#YW±sG‡òH¸ÎTt¬ÄÃ|ëçÐ{ka¶ò%~¯5˜†çMŽ–oH˜9d?ÿ"nšT¼"jèI&ºÁÆs¹ïRG[x]eIv·@/ã gÕ®GàmNÙ¶9¬OõÆgh®‚uÑXPŒŠ~Åœd×­á}.?׋&œm˜‡*n.éV$î²6ûZHw¦I>oŽ¡cd„óç2ÅD©àK.Lpgꆜ²}if÷ ®‡I®zÑ͘m²>q¹½;\¨+ñJ¢ájùÉà?‚§.B}ÆNÉè ‰SF³ùl÷¾°á¦3-jvõ¬Bœ~ò×j©¦èIhI¾Ê †¿p”ÉcÛ×÷B¹åûéyXiìNÒ7õA7šm¿å^¹—™ßçòBákíϤsM3Ÿ¤ê€Ë9Q<‚Uã]¾¢Êö3tþÂ$`ûÁÂVñD”¼àMÆŽÀz˼;²éŸW)O:>Äs ôŽÌŒŸéÊð³ÿpÒ wf–î[äma5»^t*Õ²7èÈžuP‘W[¸ÍíÄk¾øÂ&[Ê탵‡þÂeeY ÏyîkÉr• nëP’obÖ3ÙF[±>.‹îéž ÏŸL©ëBLö#z^¬z ˜tÓvò&VaŠ/;’] àÍár(°oZ}Ç:Yd«¡Ê_¡hÇé¶Ø…Ñ“˜Ñ^té'½Œ~ßד2Xæ÷Cw×m\{¬,QÂrãÖКdÛ›ÖESžê¯ ¬Â=§Öˆ± ó‰º%|7ß.ñ¡;yÍ¿¨;þ0aM0ÈÐÚs2ºÏÊö3‰Ì¸æ‰œÃöšW,uU²F¯Ç–˜o¬2»ÉîS·¯+†»²GÚÛÑE"{3=Ó L%O¢én-št °|Û‹‡L'GòVR@ §²·£ÆU´Âñ&£, åTÙËÈÆêÅ÷×{jH3œæÚü†D[¿Ójø´„ã(q„¿Ifˆg3}§4Õî ¸‹ÏÔÞÛùTfQwícõ”}¯¢s¹åU½Î>Æ=M•“dzú¶! éÑ}<ŒDÕ é‹•Â×2õ¶/=@5褧Wb/”WµZÊ£yT1×JËH.NÕH|«ÔÎjïViŸL‰VN †-n³u¤¬0>ÍZ. e0xÁ”JÚjÁ}¤~ú¸Ì«†Ÿ Ã›‰4 J«Ùô?á$#1kN雲!º·2ýÍxEe¨ŸÚz:ËâuÒÚÅÝ|ÐÉp§;³yÈ*·¬f¡?B}ÿ‘ÿñZ-óÛ›É/¸çÜ$næÁ÷ÅN¤cý½òjøÖt‡´vD/('îˆD›•–¾¡˜áÏ1q{ðm0P¹+’Ñ€ óà$2å˜;O¸‡F°­Ý¢¦~ñ ¢¶Øƒét&NwìÛÝ¥¿_-{{’ÕuGë¯Þ"(µ¬åNÕ†ÚD'£ËØÁŠK).ù7]|>§b¦czzȧ~T9_“e^¼M A2ð߬™¿?œµ»E¹–今øòh'œo:Ò¤[u+¡”Ï6ÞVî+YÝ¢’vŽŒâ"7£p¡ Àå5¸ÏhB›•:eÌ4ûÃå<}y„¿Ú8碣çø£ˆ1mOb®[nbVÁ#Ç×ÁÛùJ#>VB|Ó¢’à¶]IpÁÑÐÕ—êzÇ´ßV|—¾¼~;ÀûôèQvwb`’Ǜ㊎öMï ÿ&žùè,Þ¤¼‘ávf¾kÇgÝàõqúâl‹!‘‹Xˆ£‚‹gþ¬„~qš›š]E¼°éçûˆ‡ ɳ0’ä(ûŽx›EaV@ÎŒ¿ðÐÌ=xµL=›ÚþTË?TyU‚B˜·ySti•1™Ù±› º>\êÛ¨Žaåf€¯]2ü¬ê-=ªiOÕ{lG^?çU_D⸶x¯X]xS°?ž÷H0S‡Äò8F8f^fgôþ"kèÞóèd>EÕÕiÐk¦PD d Ö¹pŸˆë]Y^\¸h£m®®)LòGöÎ]b}`«f⥞õ¥ýW-„×£yà ¯h—´Ú¢8ðÂrVý>ÞÝ ö@|‹½y1à æäÕzß”ä×Å “('©6„P&^¥CZuÃG›MºÞ&< yqÁÕÇéCŒíF¯Š‡iOkîU9Š“£º[ÔUyÊ‚¿zŸëh2xv=®áZ‚håa-CGÆEäßæÓ>|¸‰O}U+ýŠ™¼ª"”þq)›"z>¯ô>¼c÷êˆÿ‰$I‚õkæÏmø"†-_“²õeuEsì”õG®MænÜ&íÈÀŸ_‘ŠkÂñåö‡lå/Ì{‘¯tòH—͈»Ù¾ó{Ò]Çx¢¸ÐÝhú,Y ÅFŸœ*¥hm’Á÷FüáOF½Y…†[]^Nò¨÷2çuv8çÏëÛüÕïYH3oŽhùám•ð‹"ÈR‰å›ªŒ ¾ëz˜Ñë¡Â2aåa“·ž1S!Q>!>õa5zª—Z\zød¯}XU PÌÕ¾ÞàŽ¢Èl;ŒˆŸÚ©–$¯uk=ê†Û{ÜlÄfu¯XáÒàÈú5¨D*¶ ~_twç0Œší;ýjejÖ7»±’šviY?ñµZ4¯éñ»%¬Qhßà@=yû}8Ú„™8Ïàe õ3±*¦Kî¦å“ñ—Z;[e<p-y³þà6åÈVö)mšƒY¶h‘Š“M,KÐÅÊqïî¼f2Õ㡃T}v³¤k¾ør}gDŒÁNS›š,ê»óø´úKr4=Üc­íy~$ Œ„É·qN;–£Ý¸¼5÷vÉC¼5{ó›6— ÈÔµš;×CG.VRµ~Ѓ©bÌÏ÷¹Fó.ò&ûÞÜ}öÕ*4N¥R´î¦=šì¼¿Aɵ Ši†«@Î4Ÿäk“HL‰{ÃwN’Ö_OÛª7£]£jâ3oßct“² 7™(ÜDáatw÷L;yu!gB#L‡Û³Ž†ŸÝ Fòà_U„ûN"’ÞP˜åxÆÕå }O¶!5Šû⫉?_‰ «/(, ™*ª=\\_%Gߎ‘>¢®Íȧ~Í¡JFœÉ†í ô1"nx…VúëÅÙ·Gú’5¢U÷æu¹é]gõÏ/öL%­#˜ý( 5Šf—$áb•FŸ>“míªpf×(p‰¯{ó0 È-ÕDM_?¤óXûÜâªBÖw6¿ÍÔ£½Ì!"eùƒs~Øß;šŸ1¸,VcíéŠ${Çþc\.¹(wÙ.s6“ÇWVz•FaD÷½q*Á ŒÊ¹©F¼ßvŇ0/â\]œ?šÎô)‡r.Š=Nj£3Ú7«è—NtœoìÜë<"ÎNë¹`oLúü‰ÖY`ú‚Ê& ÌJ›² _Óp-¥x‡ÜŸ”< (qtàò¢=hê‰;.¶.C9ÂÚÇžŽÉßWÂ… Õ]'™ci„hÚ™7ðˆD\7mÀq“ØOªE˜ke÷8~ŸÁÝ ô´‹£ŠÚ[éj\è¸K¿%m-[ûâOÁÕk¼lx¿EÞIØË.ûg15RvÅ4NÍi5×ÈœºÞ+èëžíË['iÞ]õîǵK•üdtä/æ:ÞÄÓš¦YCl.y³Ä'kËð{wg/]aÙ9ƒå&žeÈœ' ›” oKÉGùZ »Z®–˽ÎÙ¨žÎ‰«éPœ¹3¡Ò?,w¨u·mù¨\Ümýä‘$Øa:±´ªÕE{eÉ!ìÓ}îê³kJÊZ:Ü6fêM€ü“xè•÷<››ª°ýaÿR_®ŽföwëÏt×G/l~D67S0KPm±Ý…“Óú’É ÝK*æ'-MŸöΧVQT§–á/ÇùØÅ;—YL£Ÿ5^.LŒ8Ë Û¸Ç­}¸” (ù±›oú]<îvF‰ïݧqûg¯ž»\®ñ ­fÕÃEÅ„® ×J3/n8²ØˆËœBI^̺vH·wwZzdà9ÿ•ÙœT¢ºõ“í̺°}MÞ‘ý–‘|¤+虦Æ!¿üPeXZ}”¶ˆáÓìB:oaSîÅï£ èÐ'B²ÒÁ÷ˆ\9lb¸ÖG»Þ åp0´)È]î °S *íš±,½eÛ·#ÞÂSL×pKŒ-Lnå¡$çм›‚>÷”@9 éš°I×\]¶±PMœ |Š£Í& $—6Ý~x¤ÒTðøý1»w­>.!-‡ø:öÕTZI”ŽÇ5&\þõaGõÉ’bñÕ/ÑhÙíòx²¯‘-eÖ7…„nàÏuÏ.ü,øv4tÀú§ÉðÙ¸ý盜êÜCr•ê¦"ܲùCxe] Œ_dó[ÛÍë¼D ¤M|òÝß³§Æå&4ñ ÌÓ‡B‹9|Â݇{žzÚëò£ ™ã,fN±^qc °Ù9Wã;ng‡SÒàe `¹ÝCÎÈ“çýDL|–ž:Û™™µ„Üg‡åÙö˜7ò&M¹}òž_t”× ûªNRwûÄVj®ÆêðN:á¡#8¥±ï+|¨9Eð0Ý×’k„æê)Qw8F×;I&µC ,éWù™#C©Ì‘±)2,ìbâùÿæB{4 endstream endobj 6471 0 obj << /Length1 1794 /Length2 11894 /Length3 0 /Length 13026 /Filter /FlateDecode >> stream xÚ´P\k·®‹»—иKãÜÝ\h\‡ î<¸»K ¸{ÁÝ]Ykíåß÷VST5óö½c~cL U 1sS´ƒ=„ÈÊ.PR’ã°³s²²³s ÐÐh‚!¶ Ì(4Ú g°ƒ½ÀÎ È‹MÒò§ä`wµ9@ ¯;;€ƒÿœ’&n`s€+@ÞÁä‚B#áàèé ¶´‚¼ó?z3ŸŸ—ù¯t€˜ÈlfbP2Xì^N43±h8˜AÏÿ*A/d8 °±¹»»³šØ¹°:8[Š00ÜÁ+€:Èäì2ün lbú»3V€¦Øåo»†ƒÄÝÄx1Ø‚Í@ö./®öæ gÀËá 9E€Š#Èþï`Å¿˜ÿ¼øŸrÿdÿ.¶ÿ+ÙÄÌÌÁÎÑÄÞlo °Û‚*ÒŠ¬3ÀÄÞüw ‰­‹ÃK¾‰› ØÖÄô%à/å&i15€ÉKƒÿ´çbæ v„¸°º€m·Èö»ÌË[–²7—p°³ÙC\P~ë“;ƒÌ^^»'Ûß7kcïànïýX€íÍ-~7aîêȦevrÉIþòbBù×f ‚¸Ùùx9ù8 'ÈÃÌŠíwyMOGÐ_NàoóK¾ÞŽŽ‹—&@¾` ÐË?o7âì òõþÓñß„ÌÁf€)Èlòoõ3Èâo~¹|g°@ýeö€ößÿy2x/s{[ÏÃÿº_6uU q¦¿;þO\ÜÁàÍ°pp³€@^ €÷åÁ÷¿«¨š€ÿQÁþoªœ½…Èþ·Ú—×ô?ŠÝþú–ƒðßÅ”^¦ ÿwÈõÙ¹ÙÍ^~€ÿÏ£þWÊÿß„ÿ®òòÿ-HÚÕÖö/7ý_þÿÛÄlëùOÀËкB^@Éáe ìÿw¨èï¥U™ƒ]íþ·Wbò²bö–/ÃÌäbeçúÛv‘{€ÌUÁ3«¿Gæo»ÖïU³ÛƒT\À¿¿-/YììÿË÷²_f6/ß——¹üÛeâò²l¿®ñ7ƒ^Öé¿uHÙ›9˜ÿÞ;n€‰³³‰'ÊËÕ¿7Àø² æ ¿&ÀÆjïyI¼ôì °ppFù}Í<ü6©ß¦¿ˆ—À¦ôzY 6õÿ?€Íô_zÉ3ûqÿ¦— 5ùåwolæÿ"× l!l ?ðå0‹?ð%Áêä°ÿ@›õø"Ûæ|Qjû¾ˆ³û_†œÍþ|9×ñä°9ý/2œÿÀ.ÿAž—\lM\þÐ |ù_„¹þ/JÜÿEŽ%àK9Ï?ðE˜×_ø_næêìü2íéË4üÿõÕ<@f( ³f‚ÖÕ­7•b$î,›£BðÇÉ7º,£y†H>©I£_±é‹ ÅÒ ½@iCëeq§›ÌŸsçÞ5䵞\W,äÒ;–ä¦Ñ³ÏWÐÓqÞפ”³˜P_tÅ_ :÷A©’…cu"¿1·ìÓ Áô¡«î™s§Å-’æ•jUnï¬,JWÄ'å×>XS‡4™hnr_Òe­ÙE}\ÐMRN¥Tj¿E‰u¯ÀZíXÆî%ë ÷—w Ø<¡þÁ– •äB¬Ð^ÎÁxÈ*tÛOÅñ6•y%.Ë 7ÉW½™Ö§³ç\1h·õyË5W°ûƒõ~ñCºØÀZ2LÇtcµáo›G5UçþËòäσ„°þ­Qåœ'¢™¯òÎd[ÙI+l{K0Zk¤Âwö@‹Tä9r/-ŽHŠÒ¹Á ”Íá&²~èülžåcÚC] óx½â÷á=–q?*'oóÃ’,÷ß=iš¼©õe$ °™* ù0!1d4Ì"–£¤4ߜLJ`ô·‰Ÿ_>C½ÕöÔ"·ŠåÂÜ ¹ôq¥LJ«ä±×h‚à½ÅòŒ}Æ;ëkܲÛôìÐ÷ÆÍô61.¢;ôH©Ñoeëw¾Ö…´{ï~ét™ž/ÊËâ¯ùy=–¤FOÓg:öµ.”® gÖ)SyZñR<†&¨1|ªc‹wÜ&Èü-OQ¨WÕ€?-ŒöºâÓÈm&;?8اïëN—./¹ªzžÝTï«<¡•îÐXáÄ iÓSŒ_¥\YHiÊýÞr÷Pfm=üÁ#u}4.‚·årËáLU¸>è+z x¸š:­Cic Ÿyi±~ÊǺoÉF/tnúO³d´Ke‹6圳Vú¼€Ü!~¤-ØS/J—‡wçü¼Ñ´×jˆõxÄ´0O[cn¤7lFq0Þ÷¤œ‹¾ýhý„ÍJ×cëÀ<‚þñ°ãYŸAèôN˜O1ç™$œ×šö}e;õ’S†j–‹YC÷înFpaTQ‰%©ŠÏ‘‡ó2µÙ)ñ³;ËäIáÌØg"Ñu}œHKCÀó(©×9” ?áGê"ô …ØÔâU-H.ŠW ÚÛŠtˆIËXy…øþëi´Ðk'ïùo·Î #ýÙCHqðà¢qî÷ùz=÷æ)¿i}yBfJëOX(k ôËÑÃ}õ€îóÝNPhE‰mqÖÒ$æàÝÁ*%E@Çm¸öû2åsi5&ƒuò—IµÖÝÏ_§ÝëR¿P€šBÃkç¥Uqyd«•?ÛɼÓ}æWsƒ1wzÚæ•ÐûÊ5ž©c@™c K7S~“{d£a9Ê$]ºÁ¨iJ£ºªomN׉»‡U,¼­};ò½“¢S‘µCêÈ(G"sÀÙì\Žr‘ŠÛÑö5FëFW0•ÎC~ðþãÅ\_yŽ6ã+âtC–w²VÑ·!J=æc´•î7êÞÕy¤Ô«äÔMÝÈ8hÇý¢Ïñygâ õjýôJc• ÿÄ›ÞzŒUAýmÄeǕ맣„¦îõø‚${õÑ™Ùø^EP½Ç~ÇÌvÖRà,r’6ånÔåF;üg€÷ÚÇ·Î{ÃŽÒ…h0×9Óô…Eܦ\A‚;ԧ¤„ÝØ(°xNøx†SÆP3ðÚµF,Ëp+IŽú}‹ùÏŸ#ï‚ÆO,xflá0§¤ª>ëüZ܇)lŽz\ØßÚ§œÂêöçZ‡b¿©4_*ý•|Ù| KxÂ¥ìIØú‹ÂÅ⯢àÃJÜ-/›D3’ÂÃj}$ †+~<ù"bkyDû´à^Yp4íó‰[B‡„!'") ßÿî,ddŽ'ÅÍ÷·€‹Ce¼Úð`ÃøÆPÃT¸&?g-›$¿åɆ™/‡|ªpm»ÖÝH¢žH9J`rëíûPsøæÖ§ÅÍôWÀš<Ççå7üÃê•SoÒfÜœ\Qq}Äæš¼šû•·$+q¹ñH q‹î¯Fäš`d²S·Aß ‘zjW?'VÌ%f|?‡ä“]´-yñÀ†qwÄoE|E)o:‡±AÏšSÇ88l‰Û1‘·n͘—À¶› 1O–UEš®·3ûX }ý¨¶~ †.[1÷:cAÒ[—V„4ùvGK +®\D²G㺮ŠÞ›‘†o쳿;˜§j1M ¿s¬r&²ä ´~­œôšÎW¨C0Q3cq­7Žäc&Ë„näÑoVš""¨jå òPŽù7_&UTòûËÝÅ%~é­×ß`×,´D^çµs}û~ÆÐõ눮d¨?eB´dZ Z¨b µûåK«…Ð>ö¶7FËpò» Sg¾ükió8Â1šöš°²ámáK)¥ð ¨*×gµXGm|GZ^=~§%l5¹£Ç‡:íD¸(%“Þ¨[@=yÙï>U lkÒQÎÅ·Hñ˜êÚn1†çp'åÈÐWÃ>½_Yâç=daK0?g ú½¡CÜ·ìðšÇ·­.Š ¾9ÙcÎÞ$­¡j,Hm«—.KI|k—dˆz Áúª`Þe¶9úX„Àt~N;{rJKæ±Ò•°ywF ?rÒS"ªµ\Çe½§r6´Ú_N“[zäƒüa;hèsç3-K5ˆZ;{̆† ¹wÿ0Ñ͖ꊎç4 5¼†ï&.]v¥],`ž7-× <‚Í z‹´è14¼±ÂæIdap‚²'ríd¸i{æWÝ …½õž®&ÃÖøœó ®k÷lš~kX2»Dþ¾{×kZÝZÌýƵ܄ ¢¸/%Da·¤¤1ŸU¨9×ItƒKSæm œÄß“ÓæÄ )ÌŒ×oPÕÔÑ÷¥kæÆø¶‡è_”Èòʈ Ó7ýÀë„'u±ÉÉÛq8E¬å§¼™ƒë8‘´&U_‡U¦×ݳ›yÕ(/B»J*pŠL¨a–:vAôzÐ×[ÒÓNR+±ÕjzWÁ¨Ä`óíd‰Aõ ‰†…ÍÛ²ߘüdÖvOà÷KÍȪsŪ úô³ÍYRpGër Y}ðw‰º*[ÀŪ ŽÖ†Ž½í8¹.é-ê¸Òímˆƒ ?íà<çU n97Ǽn?ŸóÈ߮Ï6QŠ&67X×&-f©ßÁ˜ÅEg½6ÆxN2œîÛÓîÐaÅštíÌDŠEŸxã¬ÅBPïr!=TME ¥ÚçUÓ QÂ>'¦XCÕ±ñ Wòâ^ßU¸@Uz8x닲Œò¾&”Æê‹ÓFYuŒï}Í2P¤éHûÞJ+|ä’ŒÕêÌ74,%OåØê³?gýŒÆrT½úÔ†m6Wàœ¦•´!|€vÃmü½kôj}[…¨¬Ï0e^*ƒýœbå1mIUkH°ZXe¶æß´ÉIHê(z±8¡ÔlSЦ‘Y9¼z$V‡›2Î7[éŸiZätž>[ƒRP¹W¯8IȪÞJ;dw8º „¡‡&д^|ßôZ’DoçΛ*ýž|°ÿ¦Sß»ºy_’ÅQå»PäDsPÐß”qÒç5Z-´¼|6´¦Aϼ„ÜÇÞ ±—´b²'MüÅv„âñ­e¹òbFK>Á½=ãÉ"I~gëiÅ@?¸-xª'˜X”ÜT9ñ0½íÉ,µzz»:£}ß7> ïŠ1rÝwŽx·¡Â²Ì¦µE€¼C¢¨ç«GŸ‚I¿àO3‡ønV ­ÞémP{’õg-~e g …÷pbW¸Üðßí}\ž˜kƒ”…fCÒ⢠Z)±Ø lJþqe³8Cî-‹—·( ïd¼Læp¤:äïs.MéyÆúCÞ,˜ZçÜ¡,µiÏX ³äÐ?õG {¼)xïкGœC¤ýÒ °¹|q5ý„¼À/Ûë¤Åqv˲ L2+øÐj~"YšG$±Ù©~Ãí¦°%uÖþIq׸}ÛT[%蔀ûi ý Bëãwžthý¾ªûXËò­SkàæávT¤FibíʉήÅÌ6X¥uøP$_W!Rñ˜ƒ²O„¿‚:4ƒLàÇI™àºB À8ÚEŠ]º² š”PÜÚ6 ÛGÒîN¨Øµ¶]a‘ä˜è€Røš‰•“à±¥Ùp›uŸküšÀ8h+^Â+öýDèqØôMég7¬7õ÷WZÍïï‹RÀ›3¬\T#ŸŽûGëi…‰í¢‘Ç4«¯—˜á·O"&„Gº‹JRq$2ð sÖ¬Ñï·V¥×,«O½ßÞÚÖfÝØÜWû>y_žŒîµø¶¤%sqÖ‘KwU÷pÒOÃ1›Ç‘ÈQŽ–¼ÉÊ69]þTkþmPŠÔ7í³j¨£:#õÜ´YéC×â:v·\ð<KtoÚ‡ÃsÕ‰aJxe—Ð\V‚|“gÂö7VC¥d”[㥊‹iѨŸL`Ó¼b§–p Oˆbù©‹næö £{Ô ù¸¶¦ ЇÈ$ü@1²¨{…^R[Ź>Ï¢榴-¨ì5™ËÓy)u§½9DºµéÓgwQÂñ!³w_š–zó榎Ï;*ñGPO˜.zuFnRü10€yE¾ûìkˆÊzméùç†üÖRöìq3R Â3Œöl€qÞ.‚5´6çú—ú·v§T®TMaŠÆË *Ð…bÅ" ²1›gåA.‚Ãú¯Ê#ø'„Í6f*N7”a|$…´ r‹{±¢±¥Ùù(vôÂEz\\N ~Nï^»n²«±Å,î¿Y¤tk: ªo˨TŒÎÌoe…%†RšòÐ+G>ûškÓ‚¯H~Ó0Òp—àæ2³nnû… iÇ:X\™± æu5†¡’šÜ²…W8Ò lûÙe?/!3ºR* [Ýò$3o<„âòôýÌW±¶¸PÇ.¼$Öì:RÜ>ì+\Ĩ}5íä‚AÞShEßµõµ$Ž žƒf÷˜½/€•(ÆØ¡Æ[9ŽáŠtâjùª~?*NœnàΔ"A(10˜Bt€‘p—·Àœ„‚ÉÂ}'„XáèåÜ™°mDHO;`ýÁ}/ôËRlù¨¿ìû_‹‘6o\)þ ˆqêâôZõı̔E6Î(Âßãl¨¶ý —/ ä„™*MÿL¦|xȼ¹,LÅ‚±]ÐÃÀ± Ó ¿Ûˆ®o”ü˜{="d´äEbÖಜúÄ@™1QP%(ˆ·yõ*·ó©X5ÕúCíÖ5ÐûèA.€}éHE‡i&V]R{«˜ˆmèX *Ï+EØ÷˜¬õdæ…¢bdlU}Ë\¼–‘R>ðaôÊsÍr^S¤äâ†úF¯,G7Î[¸ Á;y£Pîö¨ò~Ê™kž´þ™žò´‹Lù‹Æ[bßæܲ¯X•° <+ˆ£ùE‰ÒH†UVYK:y>.øt,¤·7$a™]9E‘‰Í¶ g]mè Ì©]w¥ú8ÍýbbÄPgß½÷á¤XMÒ€0­ç½(ß{úxʧw“ZxÜ]© ”ГܒšOç(à¤dWbgŠO¶ÒÌÖ'B~º„jë­ º¨çé4S¶¾·8 5.œ„MG‚âÇáìÜ :wx$ž»úCÉAí}s ÷ÍåŽh€â‘ühU´Ý.ºNŠwßmCZµÖ›W^'sVsº­èÞS5P1ª,‡6MÍo°3Ó35ŽýÇ)?µsÊ" ¢j(£7©©¹fUÞê ¼O½1Aw÷S|<ꧪ&Œ’£ë´;¹lÃR5Ë)Iž¢³µ}ø ­y”)Hæøä½ËÛ&#t]ÏïÎÅùYvÊŽCo’¡ôO—¬ò<ÒˆúÖ }’P|…#¡ÿˆÖù=ÿàz¢:òóBOÔæ›er>›t}K<’@xôÜ2ïÇlÙy'*ßbü‚ äéµÄ2T—´áŒÄ^¹¶ y´ø L÷TºÞ>ŠñLU!¨íäÏ2ŠÊòTA#¨µ^æS@ã^˜FËÁm³Ë©ËA„νÛ^Â×ñ罎ÎQÖg¡›H„¦ƒîuüuÕ´hÛ+žþQõ'\‰ìk =Zì¯Ò/uû—Îêž*Ü4ÅŒyx_÷1åÊÆ‹¾~3ùAC0B“•= ÷YÎÊcðŽÜïQÁŒÞˆ(U®ÛŠøapag‹:¬ðùÊö`ÏgrâZéËâMŽÛ â,qVd/øì‹®óԖΣŸf©ÿ¿ ¾ueS)φ++ *›I¾TyŒÑ M^FÅ£J¥Û<Še»‹üÕÔCèž`dÿˆî-~²ŠNôò}$+ŽV5ÛTr¯¤+ÒMÞàSÂ¥‚rã·¤oÝ’Ò¡ºD}/²…Mw“˜¿}x¾±‡¡q°‚aÉÕ&"›Qôb¨ä© ¼ÏÞrØÊd†‘4Yt÷òWÓØT‚Œïrówú¶º¤ËÐñÙ:S÷ôlàòYö_L¾ìÀ­o^‹¨ f$¼èqÌòb€×‘.îö9¬7þÙo'æoùwî»×P=Ú‘>¼?ÈÒw9´µg ±£Ê£‰6Tj¢ú¡¯òtíRziÔ«Z€êTQfÙ×üñÐó‘ ^I#‘1ØÙú¿®™gÙÍû·‡…où×ÇN ­j'üum-å¦Æ’7}âdâ½zå‘â.…ñ˜²+{M¥‚5jÄ°u­Ùå¸6جb'S d“&-õ!A[µ×™}hÓ%äK×Ï=êð_ ‡Æ˜ŸÕRüšPÐZr<ê£Eâù˜³õX¼aV$!cùüï`“PÂá?yŸ …=1Ç{>ó`I¦/ñ9?z”Å¡ó£ñæjtë¥MçŸsåØšB7¬¯·d»Ÿéê”ø¤v öxû¡}K ±½Xie` †ÖiE€‰ÈÏlà€ÎÅi],θԩÜM-“¸‘'*ýªf ò\LÞG  ×РV¶Éšž¶ ÖÓª®˜OØ–i?sClF Š>7N"¬M'©4µŠÍå;ýfÙïСШ´¦Õ}œ:™þß-ú·irJ°´ØõOÞð«Ï¿etiwêžpëÕµ81MKˆ$Ï)?,T6g´…‡Öª#„iÊü죟~£kb¤3’ؘ• “Vo]X× bŒßX1胠§Á`×›k5ÍèÌ_:Šµ‰9‚e;rì\.G½%§nF¦Ø–2ºšsHq¤q¥ûfàGs$SO54r¢O _`ö`²ã{Ó†î©ésæd%e)ø›®“d@§’ ÇW”ËÌœb­¤AŒÑ3ΚჰGœ5ÄÅ»qÙ¼U¾²~¹÷f^ºùÐ(W]Ù¯ê×ì¥2ȵ/·ni ¤ø^wüB‰/ÓZå > 2¸”‡ycÊÕZ>Èð™PPk»™Œ ?‚–5¼%n¢>Ð~¼K·‹^õ.ÇKfë†ä=ûôS¬èßù7{´b|×ü˜D¸%ƒh£½TáuÐRæyOoSR^ÌMa E]SMŽÜ<Û¿"o¿$˜Z«‡² ÁÜÿŠJx7c_ĉéZÐâ]yãTÊå7®s´Rj¬FEÔát (zÞ4š.¤lm–E'Ã?´°¯ÑÜ ¯{uuV%™ÇòOø1¯Ü—(Ô«žÓjÈhÏŽïwÉ'ÿò4?IDˆ|ð”þÌÎÉÎ*÷¥?hÊ£5!ëîj¤ü;g|ßÃ[‹ÇІÐnr?[|¤(à“£60ºƒ¡9c Å©1—´9wqé0þ`Z÷¥¢SUüYŠ]¥æNs6†É>K߆w:´É§È§Ò½£üyÁCÁBÍlga:M1Y΢„Ú:‰”ºªÓPêßÉ:cšÀ'¤!b1xz7 8{‰–»fßR–58[ÔÉo¡#=Ëaóu³Ö[Æ»ìe ûü6ÅzðZJ/ήœÏ’›Ý® §Vð†pi®íp~S@ VþS+^0é+5\ÜuÊèêvÑËæ%&îé¥i75‰õñƒ‘ðJu` Q†`[}÷Úòq2kv¼Ü>0ê¨-ºpÊÕƒsM½í«>!mÞ e÷«Åh‡GÔ(;^s×´Ýž¸ë×¾Ì>Zã)JœÛ¹Ñò…ƒµ×#éÛãB-¥íRu|•¶NÊêxÊ?ätÞŸ­âí˜ øõ(êÜ{ *º nÀ%±u%gÿ2cÒ}Î9uÂ"Êš1yz¶ùo:y;àÒ׿¹iµŽ·6úAT +ΗÙ*i‚…F™pÉ {$À\ª“ßG‡wiÒki8Ù¨ÕòÐùJ8¹ÿÈÉkáÔ÷$ÅïÛ¥Ä9Hñà>?ñµp ñd›JLeåŽM#•Ëx­8°•Øäµ ²¡º1婃[UåžOÊ>oíóÓà“êˆ .EM²ß<Àœ3ÄdäUãSA/KgKznærmƒ€N¨™O ¤©æåRæ×> DkPˆ£êŽXâú-´E2G{¿ï„—‚‘Rdü­ÜJõÌ°_®KžÂþŒ¶‰Dh’¿Þlj˜¦ºp5¯€î£×6`Ÿ“e&¹Ü·0×Fu‰·¿¸èF$ô„¯ Öªp¹m·çµfh͇q?ú频Êçc=Ég)Pu¨¸Ō檙ÊóÔhæ]V+Š  ä›SØP(ûYÇT„j/²6>vO쩸*÷É$¸Ae>S7U%âÒèk†«pïj­Ú?0í©ÎHæO¡â\™š±©ÃËÜ+0WvWØdˆäßæ‚ä£?¹^há –-Zå4%ˆj}.A†êmð…εŒH^ñŪµEíkb/º­ã»øŽÿQT¿\N]öoñÀ»cô A 'ÃÕt‘x›™ëápQžávÀ6 3ÏÔv÷‘d]_³sçX¨q¢ï(ÄHê9½C@CSÜxTÍãT2ãä}ÕäìgžT&^WŽY0%ìàÂdö˜»IˆÂ0m)™¹3v HEݹG0 ml>¡9˜ïÝ9 ß]'šl³£Ã–~ÔŸ’Ièÿ’¯¹îÙ„‹—дòJÙignCÏëOÂÿ>=ù=/CïYõÝ<×+JùÏMbÜ˼½YÉ6bô;Y)Å£yl¤™Ø_¤n¼E³¼Ãw×óAÑpWó=eJëãòв#Žòâ¬H¿û ,°Ehfv-$ †#þ¾äëzéWR…42ùÈ`éï‘L̪¸ ¦Â3ÕaŠYH­‹Áí=׆ÖÿQ}ÏÿàðÙT:Œ*16­b™Ü”šÜeŠl}ÿMúgÔLbtÔíGŽBq3ÔoõcÕN–ùê×pû{·²£‘¼"I8ù3a´–‘¨r^Çoöä k„;›„]ýຮ­c±êœ‘“b“ÛdªF¥T2àí¶å¡u*ô ²—Ÿ¦B½h6§¿Ùç¦xÄ$Ï?(Ž¨ ºó¬¦ÈÖüòr§Ü¾¾âosèQ¬ÊÛ±œ+honA‹WìRÑ:±Z=l!eBò «‹Üxý$¦þD–ßGGcB¹G¾L@f‘;O”ã×Þr÷OÓ´é{ĦDJ¯Pr8¢€ ÌæÁò¡x@sïôV,oFú‘KGß+iU°%;ŸÒ†µO1à”¶båÈÁÀYž.Oý!€¢pa‘ä¡ (ó\žó“éát¢RRSA¬&èûyf!.TñùÑHÉÕ‚ºocK›k¬¼êRüùEEa¼YÂsùž_ÍçÛ¹xÅm¡“† d1¯ã;òÖ7ÎÏE…È-»Æ¯ð¨è=ö*ü¸a’SA[è ¯G·x1 ;·ÏoÊTòôÂ'÷I¦nzûÎ@DúÔE5šBV0¾]®Ä6”fŸ¦iŒ:BÇ”Aª:ãÏ}J)MÞ3XÊ:&ŒwW¨AQæ K"?Û]ãss“”ØAG">ta ípÆ ÛO4r[}³·]ì¾Ï̺AUzý÷´ÒÐV­"r³Þ…£î­ŠjP„‹]L礪§Ò¡Ç™Ÿ6¡~ï9®ŸÏXQŠ:`Ž‹Æ?ºcbš{c3ôp$²p±¨o®dB‚©C²ÚÛ¾5<»ZÞi]¡bÀtzÔµ’þäŒtcAï>lg–Qàâg]A‚TD½·$¯ ÎjÎoW!"äút÷éø[\Ëíª ³‚ÊܨNL¯#œ,–<Ï ºxP×Vv0BŒÒY=;“-àÒñpÜöÎ4î”;Zî%W DÞûBt/vð›*±\ìgÁÖœrNŒ.dO2¬õ&a1” #…-YñI®Ù”ýÒv·æ•½‹9 “ç9G*Æ­ºK~™·Á[89GÉHw´.°…YX¤kÖHøì’jp‚a ßR?[‰¼éCŽ2h—–L2ì}ͱñÇÇH.tÀzʬ‰ AQê,‹ïv Wp¿ÈAõ¦kÜxí¾N·Q¤… G xH8ÔiÎël>3~à…}¸‡yÜþ(ìÎú Kó<%ÒÙµå[zß”ä4éŠ[7ßäã¡ÃqËw¿«‡ÿ«eSœe¦¦k+-–X/Tí,ÛC™À¡,¢·šKŸÙ‹ß¹ÝrG@òÁn*«àÓN:íH)¡“‹f©cUü Âßà­ë·¯¨‡<çö]›Í3QýÊQâWH+FÝ,”vrÐ+¾BÇýŠ“ NaýÅƯ¦¡ 9¤•%Ïd¥‚:ëD rÇ< ßEƒIöm€Ö_ÚÜmØ>S²j:½íAº¾Šh|ÅXíkf á8‰CîãÙ²UÄ0󠙬¨î¾°Ž·oé~8ÌÀ»þ¥ñe‰öÙq½Ÿó&H—ÝI¾=Ŭª[Y2¿½ç %I½†X¹Âì§qéç*;a´ÑŸ€·ïŸï(¸h¿ œmÒó‘ÇÉœ·Éõ¸[±ïU¤úâ¸r¢öÇn﫶¿Úr[?KÂS€“nKû…¯üu+ý¥ZeÜ ×.r‰Žè½)H¹D›Y=_‡bŽõØRP(Jprøå3WÕ Hqqîy¶ŒO½Í£ïÉóK”yݬÓC°â}œY†Àùá5«º—” tùpÄÕ»P['gÞÔ^yÕ7 Ø5ƒ­<ðô4 Û;X¹Ëõç¾j{PdîŽÒ"tÐ a[HÞ{¬ZÞBÕ¡¾t½•P‹¦ø¹òè7Í;£²XùpPÏîy:åZÐvœ3ËL´¨xÓÛ?o§P˜”t55áAaó¶Áz }FŸ’1²}?’\”â$$Ç¿Ãql…oŒ½*Qôå<ýh“OW‹[é#4Ö‚»PxÕ­Ôá@m]¯GãÀª¬vof2†:)äöÕ¢MÁ3rX[w_9'wUíÓT–cîÚ êó<àfJ\ûRö”:š~§ºs,¾ü¨JÁ®Ô¡’\…Øé\¬¬“-À¿éÅ¥ËS.ì‰ÎAs,}=•Á9Æš ÅlU*¨«X4zÛµfÌë ÇË83;³ËB3¹’³d‹ }w™ž¯:Y ÚÈQ•íÍcL! ‡üÄšÕp]* }=ù>ú†=’°jŠçµú1@®íÒSƧXR°RRÚŽ½G%c¹aä!²üØ™‘E¡-ݵT›yº‹Ð·ïŠ°4hƒÿÀ–›qûÅá+N8þ,2vµHO\ñðÔ̇úxûÝ»š×“¦I¢U°pr£óòóÁ'«‘>OŠ‡äÉŽ^â¦5Ú¯vÕÔÛïŠcé£þàŠ?2ÆÌ&DÇÐÆÒüŠëuø¤Å„ÿžM|šŠÙú“n‚F3æö´”X°à8øŒ±}ÀÈ;•CÆýc «Ô’A¯•8pãµ³kŽŸ‹ÊîýçóícM5ÑÕ°9¬’®vI†ËùÑ1v¶îÐòÍ´[ìm0× RÜ®èeÆjæ9¿WQMh'×úw0ý”€m…’hýÛb tÇÅB¶Î×|ЩӔ»v'C;Ÿž¾„øklœæçÈ9c^GÖ’ TÜ*§HɲºÒmì½K9€J6óŸ&éÊeI¹¾6ÂôeŠ@õIòÌc2@ÈÏWâì$ASÀt ®Z³t,B5BJª®ñ½‡±ïùc¥ŽóÉ-ê¹¢_ºÄ HÏ7àßd¾óÞìÅýòü:ß7®z@§HLÅø–oÆfã½'¼÷圲yâ<ÃRT¿° ówN|HE´w†¡õ›ÆòÆˉI½BUGCÔæ7-ËçÏÉi<5ò÷“5’?±¸úÆÏ¿+)oâÓÐÓŹ‹/L Y\õlk ÖWAšùKöõuÖ1\g¸è_è£8F :U-joßë­T¼Ëúî?y€t§W¥ïI* „] ž%>®üÞàÊ[™¦ q¼·Þ‹U•UǼI’Cm·Â…©5s!p&—ű3Ö4^¶‰öžpÏò‡ ´Ÿª. X)š~–!†ÆëJnËìqså?âõžŽÈƯl •^bÓžbaÚ½Ÿa%w´Áø, 2Ÿ¦¨”2¡]â¸3ÊX *P_DùÙOû©#µŸ›«mT\GÒdW— ›>üÑCk9¿9øW¤ ¢þÒùªàwáÖïÞR_×)R^íû´{˜¯Â!è멵¹Ê¸c?@µ/c£íeÃø•“3=DK‘ÅÛZ!núFxâ­¡ñ5ps5KI2Ÿ4Ç|òeÎÿùɆ‘ƒö§á0%휧9ÿg_{Ñ•ÕêèjhÈË°^äÞ®Æ7‹/h¸«BŽKœ)z˜XéZ¶U¥Æ47]—ß'µvâ`‹ûšBW›‹ëÓc•6ÛÄôùÙ<ãbÖ4mQJ¬*NÄÑ(€·íõiçÏ+øÓZ­÷øÎÕž»Ð›†tô¼¯ ¸4÷ßÕ}œhEcWJžÓwt¡ç¨¬ã†ö$Q¸°Õp½«NM8G¦åÈ¡ ói£–ÈEbœU¯} g¾ÄÍ^îÚ³s^bœm¥:º\`·M¥8Â?>;Á“ªjf˜1Œ¬\ì‡f—F§9$!œ~'üŒÊåÜ·¤èv÷IC°9þä]¤Xé\×=${ÊI”d(«ª9H ÇŽÈȪ­²WÊÿ™ú€oæ(¢ßZ÷쀑ú ®Qƒ\¸²þ¾ EÞµÂ*€¦ÛiQÄåmþî` »›ŒIÆ Ù´†:âoKËþ\Ù²©†>Î:c‘Ï»0™b¡Úšú™±•ã½'‰;³Ò­•§ZÏt“[›‘¥ðD?>ç´!¶:0~#hlµ%åÄÛu9Õ!à3`¢µO=-¬ Ù3=e/sçsC^«Œ)\«hƒhLe”ZÆ’ “p §PY¦…˜nV!cÿ\ú¸^rWr,u|þõÕ'L‡œÌó/¡©d˪'FŸ»{a̵Äó¦‡-BÚ´oÒÑËÔÏ*§+¿öš' ˜Ã”~ÂA®)hpÚïÓp†:óå£W×K†Ð‘Á×ýrð*œÊ†M†7ïàèW†|Û–bÂPD ó±{" U4_‘ Kª!ö¯(ãt‡Äø9ãÝ-“ØE”þ¸Jš€Ì´ô[<(¬ýÊ]h¯Wã½:*¢^ _‡ý>1ó¼Ë¹ð€ÊN&À¸íØs#IŒÒ³< Üq¾‡cšs(FªãU s7zc ð3KËw„£e†,›÷ŠÜâ NšdÇžS·VÙ¢©¨û.€„±T[÷MñzV€í3!sìÅw‚)¢•néæ!ÙHç…Ô2ežíA‘§ãËÅÆÙvJ¡¢ÚÄ Kæž öœˆpjr‚Ðáç ¡:‹}GË*jÝ!Jú¥3ŸãÛFÕ5&êt‹¦€ú_Æ+‹rÉ<\2(»Òˆ|Ô¬½¶{,rà q¶} éYÄ̬b]Öø4%±úµ¾ÜÓaN÷F p4Ýÿæú]¨ endstream endobj 6473 0 obj << /Length1 1403 /Length2 6097 /Length3 0 /Length 7058 /Filter /FlateDecode >> stream xÚtT”ïö.‚€‚€C RCIHw7HŠÃÌCÌÀÌPÒ‚tI‡((Ý)ÝH*©t ‚”JÇŒsÎÿwî]ëÞ5k}óí½Ÿ½ß½ßý<'«¾¿a UEÀÑüB@)€’ŽŽ†$…É89ahgè_7§)‰‚!àRÿ  „„‚ÐXŸ2Åé àMwg€@è¾”¸%ÿD ¥Ê  #ÐDÀ¡(2N%„«7fï€Æó¯W7˜ $))Î÷; àEÂÀ 8@„v€º`OƒœF0 ŠöþG ni4ÚUJPÐÓÓSä‚@ íeyøž0´ÀŠ‚"= À¯º èŸÉÈ8Æ0Ô¿Âí BBX‡3 …£°îp À0ÒÐè¹BáÀÚ|€¿wúw¹¿Ù¿ Áà¿“A`0ÂÅ÷†Áív0g(@OU[í…æ€à_@3 Íy€`Î [,àwç €ª‚„ðïx(0æŠF  `οFüU{Ë*pˆÂÅ G£È~õ§ CBÁØk÷ü³Y'8Âîó×°ƒÁ!v¿†€¸» šÀanîP 忬‹ì?>{( ”‘@ÝP/°ƒà¯òÆÞ®ÐßA¡_nì~>®W€v¨ÌŠý#óA< 4Òêçó¿ÿ´È„„ °…ÚÃàdÿ©ŽuCíþØØå#a^K –{Bà¯ß¿ß¬±ô‚ àÎÞÿÿÞ¯ ¾…‚±¦ÿSTDx|ø…%üÂb@€P\ Ž}ñûg}ìoÀÿäjÀíØŒ?íbïé_-{üe÷_uðþYL¥-Àý–[Å€`ìCèÿ›ë¿SþoÿUåÿÅòÿnHÕÝÙùw˜ûwüÿƒ\`ÎÞXÖº£± ÐA`uÿoèCèÕê@!0w—ÿŽj AX%(Àí±læŠþñÃPª0/(D†;üáÌ¿É/­9ÃàP} öëã‚Íÿ+†Ø ûAa‰ù'BaÕ†þ½Æ_6«§ö¡# ¿„',vB"AÞdØÕc-1€V¡¨×ojà46€Ù`‡@’ýZ³ð}€ ÒñËùÇ–¢Aî¿ívG"±ü涋ٿå…zAÁdŸ§à!ŽU!ÍÇ ·=ù×F¤ wSÍ„ùGò‘ {TÆl–Œ²2g´ŠT?w ©>rlÓUt;Î^˜þ¾Sã-zÈGuÃþŽmÜÔÕ!îD¢ÏÛUNîÃdE©·È}æÈëí¤rû#N*ß»U]Ÿ=¹h TÅ5C›u[Û+ 2µé™$M·W ѶýÆkb?nÝÍYq‰ ^²zž¢›Î¦%ÝzB–àY~}©o Žº›¹#2PÓ#hmãšZåA?“²(q¹éÜ+Êóœ·[é4>¶j7ä· =Å‹<ÉÇUº˜ƒ-kÖ{nÝÙõ·ºI¶óµÕž¦çÆ $ÈÇW|·š* ƒ/Ðz ´É9åx•3 GÄœ<ËUÑjÆÏ*è9¶–?—í Ä2Þ8sUxõô—´™Ùß_pHÝïµ7²âQýäËÕ÷èï‘‘ßËÈ 1R££ì`}±ù²É…MmÒl"¦È8}…¯dþ¶%vD…7Upô0)÷ —ꦃÎEy!¨ðoï™uèGÈÙ€¨ŸÁ/Ë›? ¾=U"åDuP_S-E¹Nó˜n†œ¿n;•ûn ‹h˜Uý°‹Èt†1îpOÎIædØ”fÜß` –RÌŠ8‚‘m0qSëÕÛÆGyGâ¶ÇÓ'ÎhŽå‰b$‹8|g`„E³R³êwT_Éð »_ Ô»:ñìN¾Té K½^K·}Ol•­è~[CQrßTUï¾$¿×ðT!>Cú$Ò+“eV;ë]®UŽÇñbI¡äö¦üF×.M©7ÕÝ“:] 9yN‹Æ¬´,ºÛ CÖ‚Í3e8ý‡\þ7íTËÍ'ôÓÇ%yœ‰v3Öuä6|¡æƒwž~Êfï¸i¨A‘UWSÛ™´ æoØØAÑ&‰O”ºåƒn'àVšÌ¤Y7§ø”µéÞb¾ŸÁú;ZEE`Ṫ~qnL=¿ƒÔ­óê“Ûá6_vRÆ n€66œë ¦‰[§îî-\©”Ò ø[“É^U~Û±u6 1{gYÆ“?ß/zSŽ3ª¼ãVé)¾ZpI29måÝÍŒkëàóu¾$a¯íµdiGkÒ…ê7 à^ªÚËfÍ”_Óì²Öíå@:áÃ!²”Ïæ=é«¡…T4õ ¨GdÍB²GгTä•…Ÿ€!+i¬¸â¦7µbFß÷IÔì ‘ƒÅ±¡á ñd·lž8.e9°õojÚå NŒì%Ü{YwìçæU†œd³sÝåÝåbâq­"Kž VñøÛµz/kc~Â'Ë‹T»5Œ’GŒ¯ìLÇ”š¼/ñ ±Y‚R]¸/qvËÅ¥ƒ¹¦šõ÷ðq½ŽÃ…m{¯QÓí›Ës‹Ê|9²¾&Kè-/­ÖІoˆV_ù7õ­ÑIœ ÈØPœúÍøåii\¾ÍqÍaåéP $î‡Xt°(¼Ÿ"Ìgûr÷_ÔVmp4´XÜDd„‰ÕÌ‘›²:0 º™DSé§á=7Ͳ~M´P¾Vµî¸š«ô8y<‘©±üS½|0ìK±ô溙þ§siürf4w¾~ÍÄO„îv o"·S¡â±[DOñÂJ²z„OÎð¦Î¾ˆd Rx…"fæzÈ”|Ùhgs|Ó…Rȃ¢kÄyü>9Ç }vøtƒ¤§O!ïC³V9»€K_e‚·&à²îiÓîz™ÙØ{g“”ðËßXËyv€oÀJ-p{[’‹lß-‡´^Ž†ô3NpЦ}»å ÍšTóžçˆzê"8>aZiÌ”0œªÉCŸô&oð*›@@ꂘrfF1TËþ^ñdr¦£ËÖÙI?÷öc.%׊ ‚‡'GŽg|ý(æ;ŸÀ}ÅLõõ¶÷¼ŠˆÞð|¡~û˜…ºP¾Áã{ž®óã—§‡—Ϧž>±ýîŽHžˆ•I tÅ<(”Òx ¼õÕW9DuÆ–ÿ±¯_iwÜ‚¥"×»ïï5$׋ը1/G«:Ô8óKX‘ö6€E_[´æ„~Z°_­ª¦/zmóDJ\c™Ë×°`æUoïÙVÁôôÒL¸fRxO#^‘ŸŠÜßÀžþhg¶Ëc‡4(Ì=œo—pصŸä(p¥=)¶rö¼È@]ì¿úãøvötKùOâ²Ð#ùw7…%½ð‚ƒ‘ ¾êT©Œ;ÔôÆAD[:gßùse¶øê¦Ö È20Œ? ŒA:£öœ¿Z÷»^û![—4”âµáíbŒË!–ZöAkÉ]N¬F–‘r=Ö·ž‘V¢WÞü*\Ñbc‡ËV»·ŒC’êÕq--—V ¸"ç¯3¯°,¸jãž‹~¬·}[Bï’·F£Ô²ñÉí´IaÒ€Å~ £1_é&Jé…QâcƘ7 -ø ²!Ùç2y^ ¡Â62.G›IA´×®ây—;.¡õ1õJîq®TRÏ¿qñt5~¦»Ï;ýíû»Ÿµr¶)ì¤_:å‰-dªž¾—¶¦~þZ?ÿq«¨<Õª\bOÙ¨ 0‘íú°ÛÐñÓ] ©yó‰ú4ó£Ï*è×}ò2Ï€¢„,ÌO´¤ˆ×oµß}éˆgÚµÃpÄ4ƒö5ÆÚ›K?km?¬(˜¾#Ö$‘`Dó.`õ£÷Ì G†VÊ^ûì<õ¼Hòw8P‚mºº“ãrox2¤ä‹†èʨOÜ´¢OiÁ »v”5é KÇàD.¾ÆÚ1šoòqN%Wq¢„»º+9ë²mlHa¯OŽžNȯJºïÿˆÖ w‰•$äUOüIýMuˆ3Ü!¿!êþb³ºE_Ï­{Ö¤ÃN²ç©­vj‡H-âÌæÒvÚ˜2ö`ö Pi©Où§ÚC ïÎoκ…Ó1UH'תM`: ¶tÛõOp࣊Ÿâ›Š"ÏýM,‚.z"ì|N­4¦‚_U ÜEÅt çÒㇰJ“ï„Æz¨Ðͽ}æÛ²f}Íin¨} $oBèh2¦1–›nË}P_ŸgtÐ\Ô­²nŒXÁÐeøó×/gH×w¼<ÉUe27¼~µþŠ³(Ï—Sr!ã2¿²š´’`ÔøM´cÊfeL'+Sòò3ÑôO¦B6QG¤þ„P„ë×8È¢J|Æ&„Dðr‘­¯OÃÂìüC úZwÕÔý¹ ‘m²×lNŸ>¸d!»ÍM á™ÓÓù^S¤ÛQ§ËžT•×(ïRVPüþržÂ6@ŠsΓO¥Ð¸Ú5»ãoeÚ"Êg‹!6ÆÆ÷l–8ŒÇe%ÙÙ¯kLûbyq "'‹\Ž‚á*=]È'·4¼2ú}sÅ ×s¤8çœÖB)Oé| ”ꃳªB ú÷àó.í44ª,$®ÇÃRÒ)™» xq[­—¾W·î»Ûd„—(çK—Ë»¾4[vºÁ¥ï}_|p•¯Üb¬a2:ýæ‰fXúÝñÛ;ÌÙGü¥JZ%…Q»4Rç}õ@ò¶çÖe¯[蔊îˆñãÏvwwõ% v¾É%ƒ8â>iØ°6–‹à1õ½,PLÉ À¨=Â×u—©2èz^mäôð eûh¯aðek„'ÎoI«rýK|á#ºÇ‚« -M¼§ýrŸÑµ2•+h#iœú$Ávc™£_€NèÔ*óa AžCGeK. ZóXƒ˜QxÛÚ‘K–J^˜u«›™ãÂC<ïå¡E‚ˆôéq;[%œQ<]3séØi˜é=Öý?ÐŽ¸ä‡á½žÂPQþÖñÃ[Ônᆧ=“ˆçŠäN=âµüí@Bu“÷I…—"½Ó­Ã±‹g´Ñ°¢$T¡± ?ÕrJ ŸÜÆø&‘Ð1_ŸwÍË5m÷íé÷…5ÛSR«ÙJ%TxH¶ŽW̹ÆO»N,‹û¢^‚"#Ô.óhš;/¦Æ$³RÊ«Åä·w¥C=4VR¤Éî!Ä~Ü.V ¦€¾Ú/£f©»•Jaø$“@&_%œÈ^Í]©¶Ò–ŸBIèpŸoÑ\@S6½f³”¡í*¼ãÄŒ„Î.‘^¸÷ίã€/n»ì5äWŸ×Úï¸(ö;l¤1®U(%>æ¡ þÑé´®‘â÷Õ­w>hæk‰ƒÓx®»À’>ÑêGe¾–X5¼†’†ÃZi>"NC˜Í2© š@‡'Éý4z “~9îÆmlfÓ×äM•?¶39eÁ+ð( êÏ( Næþ<ÕvÞ7ÓÙ ÑãO¦_Ý¢bˆt2¾iõÕ=àè’R6@*5¢ “N‹Så„6¯±óüú¬ú~FégÍ‘WcG&˜ÍAüÉã—÷ ò¢~´·Êõº°[·1I<£!Ü?"£Ðlbô¢ƒP–ø^»—˜î¦_­BWM$…š\~é”Qw[èpžå‰zQ¶¾EÍ¿í~±ö0ä]´B¥ü¥Ž´‰6c`2!9õ÷qbAÖ·)L=,Î*COï~$á=(òJ¥ä;y#:•B´àL=ÎM•;Öû¼zÿ âK¿&ªÛZ~Fÿ*iɧæ'•V¡– c¢-Ï΃›û‰ &°[LH6Þ½pûžŽœO \ja€Wo﬿“ª‰Ø²ˆ}óÞb‰|œVö“¿Öxh&_s(Å= …k­·#2ZXÞ¿?Ç…|-RËx3O AI«£Ìs~ìE ý©w”pöìþ>& rÃìú„‘uwšÅãÏ#1ä´gûŽù„}a¿úóÆq–½_Qåj’µ[¸+r1ð +¥+Ÿ•\U¯^cžRöëµ›cÚ®ÏV¦áÌ<îMî"¢gdÃø¬çb’;a'+«d„iœÑ²'#^cšÂ!ÆÚµóåˆÐ¹é©çx…¯d”8Ï:rz-»]Z¿Ü/ÕdPý™`p8O Éà®zÚç¤f'Ù˦ä°ë'QóÄÀ“ÒkCiqùà!ÐmÀª‹K=uã–Uëf-¿™¾2î~Ø÷ƹ™v®Ÿòeð¶ŽàE¦S5e—dÜ×ƾó,×zÞuÞ¨ š¿'û~2¹JNg‹ôURcÓ|tý'I‡Rà!“X¢ä¾ö'LE!ùRÞìC¥p’{ÎD2È‹˜|\.vjy*#Ðdäê t%þ‰£³­8Ú±…VãJšÁbV~¼M¦†@_Ü‘ü”Èåê2ÿÒ g0•É¬]PKh¦¢U™p7aÎ e‡ÿ>»€!Œ|N{1üª¹k6åNss;ûÝÕàŒ'¦ ,NÝ‚}é¦m zšzßéó`÷`n¦4½zo´>õ)»ÜâË$v†0·¥SRþ¨r¢’·(=zx¯$&â¾þKÛˆdeíÞwGç\n[&Ëoë­3žyÎÎѺF”-¶µ¼Þ-aÀ%ÔÔ¶ßXá%¾ôÀtÁ<$$$})²oèµÈt¸Ÿ_0,¼ þð*.VroÈÊÊ2˜q–Qty£v´_[T4ÄCîYÛ“X —€o˜ŠŠUIÄÇvÈA{ç—S¢;-TW˜oÍ?ź^Rh~òeà!þ¦²§OMVçË&í€IÚOœ¥LI/UŠ¦V½•ð¢¸„—C²p™©kÃt_šI)–uÏÁÊÚOOe<$œKj>õÜÑc—;›•¢á»” ?Aœ•~ÝXžÚ¸®©µ3Æ”½ù†áÁ¡0;ôØ–7íÜ»€6Ç‘·n4ibµØíÆu*m–°RÃé½õúmŸÍÎ9w%ÃË_|œ)ô(&ü´ådY„2õiÔ[Ç V«~ÒQ|¥9—Ð¥`s]§ÂLï1³?8sÅE´âÃïR`ÄçL·¯z¡:ã>kNrïU£ŒÈÔ;¶§s;m‰';G3«­xí)4Sô˜–ÓjSíŸ{5€¸»áª3²±+ßt?3²ùQí¬}Ö¿å—Ãßø³º»¿ÛDÏ3®èÙõó÷{ýéü³]¯? ììv.¦¦Þ Šúióyq‘ððöŽ‘aêɉ÷¹IÒAu!9Ï)úÎÙICÜùÒ-)êÔer›W%\wÜñŠ5Œò^#ÍG+Jt>~àu0éªH"Ážø’ÂY¾†-y .1ac“n ɻߊ’woǵAbÈÌ)?ª,ÅÚ‡#-7× k×É?SFj«<úQ¨/Æå[:b‹ë•¸¤  (&J^1$|ÂÿjÙ™¹Yz0åTPeí®“c›/ á×H²†ø¯Ë ©ö-} òóN~0vÉ35àÐB㻺ÙÊM—Écha¦°ZãÔ^½YZìik#ç|ì4ð$@À¸–9øê=}ðºa¦¹ý´ho§Í« ¿¾Äg1IG,ãÇ AöÖýgí*éa7Ô« ”ð «ôó€PÁdóK{õ™›Ì{)-†4Š moûPÍ$Õ­|=ž´?aÙšÔÉÂ0ã猈‡ªU¶ñȬ¤ÜÓ0ßì`.9xµëÔ\ó…Ë~ÑÛaÛVœGKwëÔ€¾=ækjuÆÀ3š¢A¾(¶:‡qÆlðsj{bša€óÓ¨R×áÁÈõG @’|sÁ±Ê»NÚ ÖQ뫉ƒ b¬OÏ֧ؽ淣4' Ž†ä6QÌœ²aÕðøáOv×¥7n¯™„=® ¯7 Âd²a°óؙà fCádˆQ‰¨0¾XÿòÿÒ± endstream endobj 6475 0 obj << /Length1 1976 /Length2 13800 /Length3 0 /Length 15044 /Filter /FlateDecode >> stream xÚ÷PÚÒ  Np‡Á!8ww·à:X`pwwîîÁÝ]ÁÝÝ%¸<ŽÜ{Îýþ¿ê½¢ ¦Ww¯ÝÝ{õž‚œXA™NÐØÚ(f r c¢gäË*11Yè™áÈÉUÌ,Ãpäj@;{sk׿„í€Ã{œ¬5 åh `b0±q1±s12˜9ÿhmÇ1p27ÈÒ¤¬A@{8rakW;sS3‡÷cþó@eD `âäd§ý3 h´372d Ì€Vï'X”­Ì®ÿCAÅcæà`ÃÅÀàììLo`eOomgÊGM p6w0(ívN@cÀ ä ¬€uFGP13·ÿ W¶6qp6°ÞKs# Èþ=Ãd ´¼P–”ÈÛAËü@ ø{6&z¦ÿÒýý‘9èÏd##k+«9È`bn È‹ÉÐ;¸8Ð @ÆXÚ[¿ç8˜[¾üY¹@LP`ðÞàßíÙÙ™Û8ØÓÛ›[þÑ"Ã4ïS [[YAöpÔ'bn4z»+Ã_7û dí rÿÛ01›üÑ„±£ ƒ*ÈÜÖ()òwÈ;÷f t°222²s²€¶ ‹‘Ãô*®6À?LÀïxºÛXÛLÞ›zš›ßÿÀ¹Û8vŽ@O÷;þׂcb›9 ¦æ ¸Øßa É_öûåÛ™»´ßµÇ`üãç¿ŸtÞåel ²tý'üÏûeUÖT–¢ù«ãÿú„„¬]ît_t̬Œ¦?DÆþþÁói Ìÿ.ã_¹’ kç_Õ¾é?;ý-ª¿—ƒð¿\rÖ直þ¹6#+£Ñû/¦ÿÏRÿ3åÿŸÂÿ`ùùÿ-HÌÑÒòO7ÕŸþÿ·•¹¥ëßï¢utx_Yë÷5ýßPuà_K+ 46w´ú¿^Iƒ÷E™ZþwŒæöbæ.@cs#³¿Ôò®úÇ–Yšƒ€ Ööæ<+º÷«ù?¾÷Õ2úöþtØ¿KòOð}sþ÷HQ‘µñ+ÆÌÊ0°³3p…{¿äw‹àÎô¾‹Æ@—?E ` Y;¼§ÞÛó˜XÛÁýq£3ó?°?M6ƒ²¹©•ÁNvÿ,&ƒ¡Ñ7àû[iâðÎò_ü¯ûþ¯ƒÀ`ôõåÝ2·3r´2±|/ë?0ë{FÖ–ï#øÂô.uà?UýaÙ:¾‹ã?Ëûï]YXýÃò™˜;ý“ÅÊüX;Úý‹õ=Äô_&+€Áü_æ{–ÿ2ßKÿ‡ùÌÊÀÈîßE¾oÃ?&ëû¤@ïwö/ÿ{ÙÖÿ5¿¼óYÿûÒæ÷;™ÍûS úŸÁ~aúýß±²¼Ÿe´{rÿúÞœ¥£ý¿x÷?Ý¿ ‚ÁèüWÅï~{óîáË;«½¥½Ù?ïÇ;˜ÙÿU5ó»DÌ-ÿ5ç÷Êœ­ÿòü‹õ}¬n@»¿üÿ£]#G»÷Îþ|]Þ…ýûÏï Ðh·8gmÄ`ñ# í¾ZÏ™nw‚wš|W=™šÎ}Ñ®ÝñécuUºßºÝ­`Âpϧ•mQªßKD/îÇÍuƒ[â[Ÿ<žõb”¦v[á&1~æ ÖöÀâÓ©ìy¼Øz¨ù~ƒhë”"϶uä@RÈE»wîw©í/] šÛUÜ«b“†.ýE©¡í[4Cžc˜1‹Mí@GóõÂyæ÷í4jÖÏ7"©8Ï“H–wÍ æ¨‡Y·Õrfû.2Mlˆß¨cSîB‰RXóîÅ+ .Í<DYˆ´I+tŸè˜ÓªÌ•ÂA½5Nc‹L;Ù €J¼´¸š’Ft=;yŒªV½p4‡–o@‚ƒ¡Õ¶[µn‹$ü%Î_µo€D ³cŸ¦n÷§:ÛÕᑺ» ¤–ûáÆ‘ínOõ"þ~~|Sg¦Ï¢fZa+Ë\iIP¥ãà]ê@IôO´KN ÏP<î~—B¸L[ùŒŒšP½`cøg¬Ù—Qžõr3(ó–Ψ:þoþlro†Iù8f,¢úéAT9i¢Ý¡9kÑ”ŠÜ?€õ3þ¥ ˜ô"%®D2±[¬ —ƒd_$Å{wç+‡Ã´ý\-8óèÏÔ*T[¿³æ)ÓÔû ùöqÞlÝ–• ébZ«=\T8‡ Gmª°ä„v(ùduÙ˧ˆ †ƒÞmÏöÂ’žª9[5F#««ð>nw>;Ó–JŠS,ÊöKò{,ê,ˆôâTû`†þnôaþÑ.Oõ!ýÓjyúÞ2©^ûp£Úå+®ž²Ê}.©ÛƇÞù_ãÛÄ£SÛdî–ÚE_úšÜ¬)–1ÄóÛ>©×ë¼Ta¯&aMkªÎ‚uKø5i3Àõ“¡1H!Òí,Œè|'€üÊô5™ô·¹¸L‹-· G¢è&ÞJ{íkè¿yËxµ»4ÀÈÖEøCT`'÷žÙ²~¹ˆç(‚ËðRÃpvÌ«Èçâ3‰ç§àd˜?`Õhe¦¢ÜlxSG˜~õƒ1:@ ‡ù°Í3K‰>ô#:ñR ME4‡8€Ž«…eãuRI ¹Šj±ï‡°ÔÄ)‡Ò½îìÐßÙjàH}Õ&{'»Žgç$fñâ®ÃJFÄæMIÄXã£/•CÈ<ªÞ|­y&ö'’àá§ô½x2™K<`RÞxZ­ÎëÒ׆Í.Ö²Ö+}`êë««Óø‡qôù¯Ù1áõƲ¡´:®9\x¾0Í\ó:ü¼—ø°„ŒÈÍ–ÒÜäi'íÈtÈò”ª*üÊ<³N¡âÇÔ´ç­+6áÜ«—!¹öºí¹vKËÞù/NÄZizw’-¹ÕçµUÏ{FḌëeW²R²YŒåcÑNîlëØñsÚ÷½p»,ÛáTÞ;ˆø •_Òô+ÒØGÃÔÝ´Xâ#Òî!šBâ™íp„®ËTHaÒ”A½ÌòŒÓjI•l’ dd–O‡åMtqXZ]ØÇ3ÀñáðûA\é±y frÓxÃ*·à;©1œZGk/Ùræ>l·5ÇØ”ìà¶Ï©­Ÿ û{˦Þ8;'Š×ùûò¤ã1¨±GÞmj_˜f9TPð—lGýì»yA«;·Çíµ‘eËi 7¥åO,ÉßÎý(Pgv!:à°%–1þU¹g}ìµÃ¤Æ1$Ä+PsóxJÌÛ­‘cíö@vú0y7èCÞWÑ95Œá¼¹¶É¬c]Ú»¨Ô{á—4Ev<Ȳ:ƒÆâªgB‚YH4†)re»óëZZˆ!`Ë€X•¯œ)J莧««2ÅÝî‹9°y‡(cw¨Æ^Ú$ŸÍäëæÜwäQHÉL2NF³VPæõ…]C$²'GV}ê³AØùV+†äŒ‹ÉPŸõS?öåÄ­Ç1˜üîÍ°l'WeÎá"T¤V’aØã)Å%Çt¨ùFYRYšVvg,þªˆ\%n:(MœÕÞ|y0ø¢È„U=æ(ãܲU+h*+ÄÚë~;͵7ŽJ!¹ÅtÃ|¬ÈÛÏçšÃ—ÉtÃщB¹(µƒ+È-õw’é—gç$“”1¥ˆ\0ÅÛY²¹‚KÁF‹É×_ñHÃî+ŒçËG b8Åy¯ý²Ì¥Ø¯¿×د£\œø ¾4¹ëOÑ•Ëè+ xÅÁHe0‡5_üåk˜‰Û# Ç1Øç&(Q0›ÅçJ¥•íÒ¼µêÀ$èXQš`#ø“^ëKžò³¡s<À¡$ÿLˆ‹m†/2öc¾Ÿ$…˜Ðk§Œ›†ÝF;ßÙUcKNw•U´r|å ?Ko¥9Q¼þnóâЇŠPÁ²mêŒI…ÑþÚ‘æl{‘äñšû‚ÖÛm¸nŠκµj=Ûbˆ1ÙÞenUIÌåçÙÌAÒ:ÀôÕ*&²ÞEÍõwýÊT‰©›vR‘ÓU7bAPLÊíB1½g(¨IC¸B˜é±Ï¡ÔX€ô®˜ãÃä7¹à™péj°ìiî¼®£™8K_±G*hø…¹ë°B0îÍã×òž§S°ØŠOÏëŸÛÂx s¶ûÑÐJ!ì» 9yêÅ£…EõÕsÍ6Ú‡ûÈ1ã&Ä ¬Úû¶¦Pü½ÉJ¿·“L±°´Ý)pÎsžhFÚsƒQêoW"žØ-©?pÉÅœ ÙOÿŒo$€6ñGH×%P_ ¤`þâŒZbé¿G6ì~ŽöÃy5pàDžÓð-o—D¾0 md\½÷³ªÎ*C¡¾ki„b lÈp¼¶bBžØçÒsÌËÈ]9À­±^ž¬¾~2¹J­\‹4{t RÊ܉–]AÚóÆï~´S [ g[Í>BAøÝ‚F°Âã Ü„˜ªhîÉõkÄÅ´´×,²Dåz>0ME dÉÅ ò¼·Äô.­bjö>ŠŽçl³ PB Ρå̲AOƒJï%åW;ï™õ(BJ&†*QîÇ~öèd*\E½»´Xýúò…î·4õБ橾LUž̲A¾jXs¿ûsªÓÖ¹ÌúJË^î—¸¦d2o4;+Á·3ûôžë+æ:Äç”VÞ’»ûßÖiè†î1®sð0ÄÂÂDáîXF0ôêÞš 'ç„{ŒX ø C›@S{…dc2º)íÛª‰™4 ›NHÔ&dK4f¯´:ŽƒGúá¾Ä“‰A7×b'¢M½Bn•#ÁYA7ÌüN3m0ÐàG×m¿çƒ{¿‚äsàÌæ[Á%.c›:/„ƒ¹g߃ÕpUÖñº ÌO©x°´š;,ƒ%JÌp"f|8h ‹÷CX]<+]7Ð ñ3¹Wpùâ#˜áqôQý¹Ž{Yœpý“ ‹Ð ëâõóÞý¦„6Ét™ô=SâDÊ©«Ü=g© 3»T«ÐËu½=ÄYXƒ)ÕM‰ †"-’ŸVåÇxœ¸}“/‘§:EÈ£•k%µy=N˜Óð¡EÏ­zq¸LŸ’.’eç±K­^ö¼F×VÙ¢*Èõ½³eôó°hQ­ÈõxÞÅO ùý‹9ÄžkúñgÇ"êø>C¥;sŠ_›É %Ö‹ö‘Ç$ó+Ú`½‡fé5ð/@ev‰ŸônN@+¾=0ˆòÏÛ‚rPt2ˆ Äð$~(½5L]½ÀeSôØz¯LÌhîH}ÂêÉÓbi¡àµ 6`_C÷ QUL_üe§¢MLnY®÷4uWPCÆC}ÁC$÷GeJÝæß\;R5Gè.eµþ¢TŒâ#Ü-ËŠ¶àQ%ƒñßT(›/2?qgò|·Å-ì8ú:XÊ3Å}í°Žã&ÁÙÆÌ÷Ùþ*ðåß ŸtcV¦éÂÏS`êõ"ƒ+3ó”I%Ê.$XR]NדÁ¶‡w¬läX¥ÙÁÔ_€aÔ½Ë ka‰šÍÓU_#U=;ûûö{oŠ¡ÑUSÄ£‰ 'GˆgÀ$af4v‹§³p¤ÉŒ D«šNŸÒx…Ç$uð|”¡™î¤×Ó-(fHcZŠA2f¥t»~^Êv¯®¬Y ñ’ÙInBNÈH|È’),˜á¬>±«ëST¸p÷é1|ð½þÃ"Á¹Ÿ¶í1ì0ü\Váöè{ø–&窪r~~Kª\²ìã¦H¬"åÙ_J­¾~§6™ÚsKÓoläÏÝ–4ú  ,A‘ÈóÕ{ t}à@óÍóÃ×ÞV«)eé¿6¨$vumÛ溜¦AÏ4"Îs¹€Jô3ü)û:ºÉ`âɲž˜v4‘.ëÏO‚4Ü-–õY<,Á*õ[(%-³_¼7jˆwëžs~O+ôŒœ¸ÇçB‹V%ŸóNØèÂû.˜ËƒÐÏhƒVô¨”ãÊÛ="­c‹–®ÏDØìq˜¹¿ç„k+ú­ëuªÄYõÄÓ>Þ×/2>!;0DÌÀ¿nDŽm]Àm| ­aª…è=‰ðyÚ@Óì™”šrš‘<÷ƒéœË>è/èþj—¾åf-ƒÎw±Ê•JvÕ{z˜v‘Ÿ‰l¡©þìùîܪIÓþR®É5q¾ß÷3¿?©óªÞÒ{Ø…7¦ïx/ŽëY~B„1·rP—: »Ä†wÆé:õ¤op‘ƒZ8„¦U5öIÿWǘhf^3n7Ô‰!BŽÛžù•ŒAª§ÅHõþ°ÀS^Ø®g¿· òÞ¹zÔÇ”]P°}T2#è3’;R•%¿f‰ÛuxÂj8_Ó>Ç)‘ ÌÅPÞĹ´>@¿®˜¼G?1÷lµsؾ”¿Åi´u@Wû9ôs,ÆÜ‹âÈf±œ¡I Ír[ÇZ@¦5 läb‘*l›ÛÔµé‘é¸ÁNÔwÇ:±ì©ž^´¯®«M¥å“àŸÛÀ‡Loß¾ðeÖéùþ¥X"u<7mþ*U·{ÒVhý#=YõôÚ á® 6v’ï„z ÿ:Eô=¼¥¸BäÐ]$H‰‡ÙáE¶ðæÁ~·Ðçé§ä×›X“¼’ô)ˆ­·Ÿ/O4h‹…_EOŠ? ÑmwMö’|–ZVfGêZÒ ¬‚Á?€:·XF$ øµ(x …@S¶ÒÙÜ ƒº„Êû;Q.g—ŒÍé‡2®ŠJ(é2v¥LÒÛ—‰¢³}þ´?)oOîz¼Å°ŒÕÄeæhiö1í1ÊÅ_ó7tšJlëz!‡oÁÌ"ú‘Ë4 ËÝDJX©iY² |Ô<êfú;²m!|oó¹Ão^›ÀS5©Y¤––¯ÈžSEÂvaCX*C‚Cð&Ø/àÉy±ñ žÜPa$ÓmÒ·Ó¤1*ÙHbwÚû¸/wº3q¸ðÜ)°]GJí>?D Ƕ7Åþ—ÉdÊ E–!CnÒ¦("–k"å1®R C”Óeò&©˜ |#9òogévjk¾=8.:ÕÍÐm|Ô[çYÝõ:>–¬ÖŸ´ös&Ÿ?ÑÊQS¢™—„i×È)vK^IÌŒßLuñ«p ,ˆcí˽ÁTþÚ½ÊXÃSNÝj¶¡>íÛþŤYL¤Ñ,z™~¡VœZWjŠŽ0äìùB ¢)×$Š1) vSu¯©¬w뙹½`iû¥ ×°àpúúª±Éª%楗æÒé¡šéNù5¶~08@\Yuî›$¼6QJÀþÊ-ß3×°šÞø0ßl!çgIFOÌézm÷ ˜sÕ%·ËaDZtˆ±ÅüÀß ëÅ#Ô¢ßC8ýžU Ò©+/LÑÂF1lg¸6Œ-H š«V0BÌ>Ú¤·Ù[#Ò5 ÄÂICˆ³Go“Tx(Nƒï•>î4¯Üì=ý<óúdfë”Ñ ¸|LJg­ÚŠzYΣç.”á™ûxqbæ´j➥ҵWj1 +ð¯0N–°}ž= G:,˜¦Ò÷í^Ã0*»¦*_qƤœzh¥‰<À`¯ê&¨­}ÿž—üœ¦P§µ²Æ£Úý• Òoi™ßˆæ–|£öT®uEH™•3èÞ¿»,²4“¤w®/½Öô@å°muG×°D½z™êÇg2@„3tùý5FXDÜv .º±]E¯†[OA–]· ±¤0ž>Cˆ¯'ŒÍM{Ôò yì%,]ú îçq_i:œùUõå]…ðñJÁRqJÿ>̾•G¬ÚÉ_c¢çÌ “ ìÝXU„§;êÃt?ĆQEecæuR‡„B·²ÈP?è\2“ó(6ïmyíA˜énnŽT{ç ’. ºÚ8O|04?"²†á´‹Wu¹z²)ë\ó*èmŸbú†Ö«ÚUl ä”´ŠÂîä­ó_ÔåÙJé6+pˆ÷ç“uq+±ö¥á+W„¹ÉVÆæ[ ö”išÔ µpk…¾…D“Z©/3h*Ôz¯«Óòæã>ù˜§‘¨(›UYžÏaŠycµêAí'§·@¾`_V¯vŒ£6⟳«£”–7ëÿjýYæ0|d!..H>5ÿ¢zÏ-ù&áÄpÛlÏ ºBRÞ‹£û] q­ë IðõYاüøŦp\q¦5 rVr4Îkz…ïm ô¬:]õ©AücD!¨)ê(‚÷£&þBù¸DìÇÅ!‚C§¨2-kIöøNTzÈg%h9£I¨+)B ‡DOSWØVWOUÚžJu÷RÀÿ„4µjÉ`’ð¼#´i|î‰ÿûËõa·¯£°Lüê¢Õ4Ò ÈŸ<÷5ÚR\BîOF-îÊa¢¡ºII‘5éŒ,–Î>³Ø .þv³-"לÁð2’¾Y|:¦µQŽæ.cˆk=¹FFõø·ÀŒõ‚û(5}ô1ðüàëÇn‘¼”°–cVôQ¤`ˆ+Ðÿ£ —µk9hR¯´ßEþ ã,8ø|ðñ> ñ>Â>ªýBPu‘÷»õ*FE>&0Z¨´”à¹oø ß«=ŸÖÍoÓ=TpìÓ4ÏÔ0‰,w+«ö‚Èä}„8óƒNIû©vèaZCËŠêé¸Ãòè>i°Ÿú”osÓ¨ç€FI„d‹·Ð1¾Hv*ó7ûä/2mám+üLudB„s®]þÆ/·(zO#¹sT~ã°×£ÛtÙóA¯EÛ{mØ?Üœ Яä28‘î‚̇ˆžŸ˜µ´Ï¦!÷l]Ç&ß´{D4ùKãü ¦›l ¿Ÿ1¤­r•Œ”žŠÃËÑê§-5¸ó’û©6Ü”Ð3ÑU;vTtnöÄß«<êµ×} ƒà±½czI>¢ˆQëÃXLÚX4_bunчhñ@šWó®yËø·î¿ÛÌ8CAP+íÍïU:؇L%©BѤÕ͉±ÙCu«!¦Øùn¿ç3Pi¡ú¨æ÷„·ÙXÁM˜i•QvÀ—½Gýƒ‰#å¢WŠÛ–¦ÙeÈzHÛç·'šžhRŸ²VªÖ—C'"Ìv s +µßV󸪮̉)ê×âCª†`Ò¥‡·³Ô¤¬ÚÜ+ ÀTÎqú¿-"é W{)Së³VV¬4Ï5†Åꤪj†!Ê¡² \pŒ«Å:†~ÞÉ~nØÑÆU•ªø` ¹¡«„Ûö‰},úKûéÐÍC4$ȹ&ù8ŠkóÓ ;@È …^¯OºvÿjJ÷ÔpLÁrÄ[8hÞëÀ¥#èàsÈ…,¦Þ4-ÓÔóÂÚõfLSR·H'zvîQ]‰o–¸Q‡n£T31–—„0~õË ÛØÄÁ¨¬ ÀSŸ¼H¤@9æZ*•H™ç|ľ4:\¤¸X âí ˆgî~øŠN©€Q]†Ÿ’¶Ðss!z†¢zpÇHž´F¾OBv“¶*¤ÛÂ0ª5¿ßN8'|ŠÃDp“#×gêÁi½`lO€Ý‰},øRpU[ôL°£Ðšü0¯]$M c0IÙDX#f´ý‘/'S„Áw F±ä ¨æ&í–1“Y·T¼Ýb‡« E.1]X80Pæl¨D¢¾AN“jß~#VËŒ‰ˆ¨=î-6²RœÓ'ŒC7 ~’ÝV.ð+¼˜¡=ë>üf^”@¡€>y?^à”²¶ƒ‹JšúúæWä¹n1^ù*BŒ_¾©c¤–Û™à à}éO>„6êz·)ŸŒåŸ€Áb°a­UjèÎF¿Ì¸h¿P¨mo$ñßX°lŠ¡“t™˜ÑÍGŽB⸬R7àË„ö“üpO5i/°u;·¹»?t‘ÑJ÷'IWMÞR—¯C‡•†‘X2-ÿ®~Ù1D K§¨(.4­ÅØdó]1±ðÕ„žç9[dB¾‰n Õwgy©ÎæÚëZ¶qþgÝìXpq^?ªdc*—™*¨ødi,¨[šP}ý*×Ù¢|0«¹2ÀÁðIÓO¹QXú)ûD9†g°LÒ£æt´üýùn&Ñ“À€òRý^H¶¼¯jâiÕ©á<,âyÖgeܦ`?‰„¨¦‰‘'Ñû8Ö˜lúZ|(ß²K"C”«=OÿÝÇæ„àŠÞBÞ$7Cb{mø†¯ã±ãj0v%G±za³F‚®‘¿Ê­/zsÒi[WY§¾î#›|šàO1KH›lDmDØ%g¼ãee‰k&OÌØ_‘µQ",¾CËüÅûê IØšÃa=,…{:* ûè´Åd-Rx/¡·áÞôÉ¢6¯š¢`·Y|…74½×Æ1uÂ÷ª7 ÅGç—Sha¬›#¶jË7¹F:ó‘`K¯Öœlaj0ÙzcšÁÎBö‘è’8‡þd *ØÞ :E‹»`RP˜ÚÆ'×ð[ôUèMA´ÂÈ;Š"ŸAÝJ/0ü×yg«Qç…W¬°> ~\ð%9M“P`roH¶Âª›_· ÎM¶³àÖ7“ k%žÇØ[.M½ïëBGÀºEü€”‹“â0±Ìm(œÂßêË™…2ôªFÂ7àK˘G`iJˆ—KÔÃ’ÈÄ®d0UùM ž剞óûÙNHHÆy²©…‹ŠC4Æ¢™•Hÿ¾äa$ã[;R°YžŸ³Ö›?ÓKøTë“h|Tðh<¹¾#Yµ·ˆ_BEϱv©ä4&”êžÛσé>›ètNo„6å–À©Ã_þo>ûW?]6 >ôA ð_DøËvJ#ÜÌL}v\¶áî´¹½"«U%šb¼•á!N‰ŸÑ•£XOït¬³×(]?~ í?Yr¿ìiYt§­õº/Jßö‡+³Z~ ²U¢éL7Mœ7Ås˜-£Ìêh_^½)T΃×òMŸ½Såº_N›æ¸„FÕÑÒÅ4N ÒÀfòÎS0ã¾–ëÌV—¼lGT×a@¹÷\ÙºÛ>«"%9¢ ùtöa„*è…`ñ߶Ð×:ól´r’^|ÕÞ‹³Áòä.ÉÀïÄD4úLm‚ÚÖÞгê†}/!Ê)!NÖÐFkÐ÷è¯óÙÊ=4É@'ãÇjyôãyfŸ/%¥"©âìhóØÈU+d`‰éûAšÎYÁp6j®cå>â¾ô®K^ã5ô¹"=èaôiž±*U½±γӃÙô l=kgñ·hˆÄ€5T›êjuólÄ6Ÿ&5‘\³û<.9e¾vféS CÞ^7¿oN«Ú}l ¥–u¡18î·!¸”—R(0Ÿ(!xõ("TlÖ©‡oF$¥‹OæÂzÆÓ¨IXßB‡÷Ð[8"&wqˆaPØc)AÅ$"yf5]Pö‰þ¾tCâÈÌHAä†û©¥pk{bwÕ]’ÚKÈæd¸<¨ã§*9Á¾ã´aïy7šÀ+mnäƒ uÞ‰‰¹õÕH>LŒÃ§§-è¿2‘¢ u¡$Ÿ׌ƒ¤\°$qÿôZ!å"`6TlRE“VÇ›\ ÎW©nÒËr-•™g“±ÂI ñ"d¹äͺŠD¢»e}¿§ûÄ%_AõåvYÉ[íi>Óg´R›¶O)ô·%:Žž ÂÂõ—JÏU7®3 Ôæ½—çÎágŒø"õöáçWù›Á^%Æ°CËÉÕnG£¡+¼l­4_Wà|Z¦…›éÀr(¡)ŠÆ˜ÕùPi©ÃZ“¥ßæ&a¾àé–˜Ã0œ&›p¦Ìº¬Â\„s;E…ìy9þ« <²Á"àížxøXì–3ßê„êüøÆ O|Ú™ᜡbåí^‘æ(çéÒ©7“gx${(-[ØXúI¼8 ࣓óuÀ“ÌVØG¯ÙJfnïØ:£}º"ä øʸŒök÷S*X‹Øàxr—d#Œø!¤“I`;ëèã3 õó„mýÑ­¿ŽŽ˜dY-®"K†Í#2àŽûvɦ•@ESAjD <Ò–©~€þQ}©“‘W§M«Sy—B•S­4^-8С­˜ \€ E»VÒ—è«g•Ðü£ 3NˆaÓe*^»TsõÇõ_ˆ¬ËžZY{@¸“Ù”§;iû€R©ì ÙN}õ±üTSõ¯áV)& úðIú†«øâ¬Í¿z…¹#tÕ2Zïëi Óps´24”­i­îZB`5 *^¥Š[”Yys‹Þd¾'˜Ë6?ªà^†¿—Õð\\`þ¡å6/©\ºº)Ú®‚Ü™B%üx£ýøesE àüË~±ÍÞ*Z+vöÊ׶.Ö†6/ý1%£@§/:°(Ktú­R64Š2âÛRy3Õ û=sc»W)Å#&ûý„0u9šÃSÝ&$ÃEŽPL\¨{Ø82W­AšJ÷|1³L¾X‚ŠŽr0rñ^Xœ½©Žž1tJÓàWÞ©í}Á#á#Ͳ5V{ÚhÚîðJK„ÿ …„h’1EXä!>#k!–›Í–úîx±ap[{¶‡–e ÁÜ·“je¡&íHM…ƒïT•Ê’§pÀ„Í¢¿¤„,kçÁÞzµ£{:V†ˆlºÄWj4Ø®' Wì÷†ÆE®~§GmQºãDüËÅþjx»Eô¨Q»o)„‰ý X’èo! |NŽí[9;Š˜ Ž~-¢º¿]šMG]æ¹Ä=u÷EhnlÄß°¿%kO‰Ø“ Š†·«ù€1™£UЧëÙ4p‹5ôË;›Â}a§ Ÿ n96ŃuÿY¡Œ©k&8Ïnš/ÕÏ›"%ÙLj0<òýEÑͯ"'JbGPˆ #ÌcB7‡7ÃrrJìŽûiT]º¯(»ÊVçŽ´Ä ü†+:¹áÙíõÝËì1tšj ìNÂRÒ<¤6x•ìrÐót#fý¯/‚«JW—ÈÅ’É">ò¶{}íÁ-b+3LûxîQ×2ûÀ(«î"u“¹®WŸøíç¼tÏe¸©T®òXeiOëÒJü¥¬2Dšú³³¥ôÛ ìUö\È Ñ\„øããÌŠ³äíö³Ð°]žôùõ™åÂk–a³˜„ÞÜ–<|ÔK·Y—–hQÓD}áÆ =èJ°ªÄÇö…¢42Ä&©Ú€«ÎF[ë`¦Z¿ŠÞ„%z{# •ìQ¸Âl[WËÛè‚Þ£ÈB§õÃ¥gúbÈÞrx o1Âz«/YšƒînGk&,–+Õ¹úDëϬ¿¿«r|l£êÈöÕÇ ´Û³%O룛N'€téþd&¾Êá+Kº¿¯¤9”ùÒ…E'cÇACô 'à—êRÙ[>#Øë[g öêtÛ­‚³.V‘á³': V¸ZNq•‡’IC¢ønµZ¨ð®™Fæ~¾ýuÙÉ âYÈ®d>¤å7]‹ð.zË­?Ö­bé×5—§7+Ë)UÌ:AFÇñ‡ž{^}%|œÇS„nâÜcç1ÝK­1Ñ®LÑ‘¿æÙä­íÅ ”çëPŠHRÍÂÁÓÓ& -‚gŸÛ›˜eî·7A»–BóÑ4Ù¾Œs.!w¥ôd‰Øæ×ÙüþOY8¥…Íq‘öÞ¦Ð_‰|]w±iõë 4s¥ÔdD÷ÄÎXÜ­¼é³ü܌㖪IFb“šl´>(×Mó© CÈ´Z¨„è.ñFäóF5Y>“sÞ¾U_)n<*Æùl¤g´ô¬zSäwÒ8ÏœP¥ÿƹ0jýÙ„xzó€–öå½ øÈ=Ê),Ž¼öe“#¾Ò;ÜE ïwd×}JN4W6¥,õܽ.ùv8?mÆ(•qÑŒdÑŸ²E$™Ÿt}:7e_ל»·™%ê<<¾žY“õ“»å4zú¹zëó~`¯Çm\w-13ûc„&Úîhâš%à.,‹•¬ÌÑŠIÄryÌQz¿ÁăEfÃ0y¥†µ…ÉËȉ ¿³Fß÷‹š9dãgbåû¤-þDFÕ–óùd¾p?÷SÒ‚\.‹Š¸·5©ÑK¡RPu¼©´Ôp^ ¹Û)Þl]…Ü¥õö2Ü PJ’i»™À¸RðQ3‰¦eÎ]Á¦ôtÄÖ¾è _å¹wyøW·ö‚ý´k£P‘B¹ªE W?Y‡vP3ÕQ0q*¸DoaRÏ6ížÖ}:½qMX~?*á7½I£¶Ðœ.4¶‹û7 úì󟶯]Âç½@‹?[ö~¼!×æ47Jµä—$1²¤ÌBñºò4üý»@ádŸ§ŽâzlÊê<ëLtŸwHÛôwIæäìî®ó?f¸‘L|yÖá<ü2á!d¤…¡e”Ÿ"þ¿Ä¦×€ÃyçéÜðÁî&Àx}³8G«'{P•µ“,‘ Rn(¾Àa@¿\`ìx¶;9÷ÂK½ÿ¶Í³ÆyÕèM¡§Z&A)ÙTŸ‡zþÌÝ’hönJžºaÔÔ•üèô$x‰÷õyãÎ/ôùÛ{µ=:*È[âèô$çXC% #.Ó­ši÷Ïk¾ˆ-Ô }myÏí°ŒÍ£ÞHÂ0¤ì[ÙÅóO‹OJÁC0Áþ%™»Ì¸tŒÎÚ=%¿„áyo†\H\<Óaméc=’áÑ£õ‹ÐD£M»Ñèôî¼CãØ?#ñhyß7ËæYI–7ºO¥OâsK{ôeÆkÐвVŠ êß_!pö.;<ÆBJDÜnéÀñy ymñÅÌŠGÀªÕ›—©º(°¥{7yôå§Xþȹ!o6Ó*AzËšÝÈUZ&9«"âUŒùßm©p¯=Ž÷8üÆÆQês›Uw4IC¥å‡~—O6gYÌ1K*Á@é¡xRç^ “¾ã½aØ|üFYX°7—³âן‡öur5ÚwâÕ¼6Ó/d„CÖ¯d‘ÄUeQ•—•ÕQèê /›#=vdgZn›Î®—R»mùåd­PÜî‰Â¸XðD ¦¬}ÕÈ—˜xyè‹fÀê¯Þâ*”þÄÙáù ’ÖrüuOìTKñš?Fkb¿{n¬,ÁÈY›­±A[ûæâSsž¸05*¢ÛªZ¡I!1~âvøž‘—V®#z'§¯¤áÍ+¾ìÙç4×4iN"*}RDð7òÁÃàŸ¶…/ÛO­O§BűaC(ÕDI¸‘úÀ´I±GÎU±ç2ë‹aáWäa¡ üà»JÛùé"9Åmw £«Vè$6÷‰ÅG§=®µ÷y¯Fa~i׸î{— j³¡c-S6Å´J|Öi cs(¢Ô¾,þì%BÉ!m^$CÿGK’ëD÷pwÜÁ~Xýµ½MãdzˆÀ{MQƒP䀎¢ÒkÑA] &ægêe4•5:U;(£ä)vð™ÐÖåY+ÓÎ(¢!1”º®•Æš¢ŒÉqæôïÕúûU•ó.š‰6ù®v„·á5 ÝÈP®(.‹¤K¦VáðñšÑ§S=ÓÐlbh]®Ë¸I¸^£PΣ)ÄR„Œ²fNÙßB«!ZŒ_7-ÐÖ.c•Î®azŽ£žáqV A–¶v¤°×7†ÇB‰ ¦s ÏÃÝ pF…©Ê>¶X²Ÿ”šU¥òlÌÖã߯o¯Î-Jø 7POüÞÀº û¦ðƒZø§)“`ùBè 05éÝzÐ+R/M¶Ì…¯Ñ]¦ ~e¬ÉÑ X•=L LÖñ¢g.—ÊñOͳ_f†þæ?}2"©zž~€sý±;‰# èC ø Ë &Οž¨¦y½x4Oy)Åq ¡”¤áu¶ð<ÊÉGæö '§P4X¯Ÿ€¿²¸xÚýéLÌAÿIÒ«£5w° ë§^Žä@¡sœ F,kèí»­2Ò¸AZ/Ó“O°0[Wëc ÞOi‘Á*äå… =+ü¹ž’§<à!´aC¾Í^ÈÎFôÌÞ˜¼(YG·ÅÃ|éêÏ]ˆL`OnÅbðjJ-ñú—ÁÁc,†n’dŸµ‹çÄ-W+“Æò&då–lâ6‹€³`«ŸˆX  ÑÁk9ïö§ÔöOxÊÏ*é è1ƒQ’Ÿ£yK7,Œ˜£|þÂ@O"tR¬pwø|ŠTzóÕ¢ ž¶ø)wG52 ™ç\¯VÈÕ ”¸àM“WÒsæ…ž9ÓaµÁI|©.°Æ;[bHÂ`jç‚Øæ#€ò”²ýtce¹¸îº’Üî¿é ,Y4M'<.ëÛ‰ëç_ïS¾j.ŒFšRÃIÕEã6lF0k±9Û§z95œÁl3˜o\Â?+x(Xêì )¹3±¦‰:q:SÁºÊéÁðºî9Wzfˆ¾ôJY(‹t5%ÑäÀJ\!Ô Ó×,e`ø¤j;Åïo$þ¥ÞAC”wg·±Ç²"Ÿ\»šk Ø\–ŸÑBE1ëÛœžÉÂzMCðÆww¼1®Y0.ƒ›©Ù@e’îë(¡@:èÇGÄ aÂï?:\ñök ?Éð\-BOĤÀôÙÅ1}­(Bˆ3˜Üó\4]ŶlU½$Å5& ä¿­Só‹µ ŒX4‰{%…ô“ùâúã£Z•7ÍnØü]KaÄßüÂÙmÜçx†aâM*£±‡úªÅ«üDI[q`¬Ø5gœ½gQáÏÂÐÕ7ï}Ö‚& ñ³G0>m =4ë#xŸîH÷†Ì“M0 Iý#¦#¢`¦¸m üºñ$ùþ1ôh Š–àf‰¶WsaX²cHÔ2›ÒÍi0º³Ÿ˜\{mûËc3O¿xLCõÿªÓ^J endstream endobj 6429 0 obj << /Type /ObjStm /N 100 /First 928 /Length 3700 /Filter /FlateDecode >> stream xÚíZëo7ÿî¿b?Þ¡ˆø~E<Û´Iš‹ûH[äÃZÞØ{•%G’Û¤ýÍoÈ]Q²äÚmpÀc¹äp8œ7‡Zkgb#í´l”£·”¡±¥ÆÒX+ßx‰·km“xl%  ¬j-&uŒ;ÒÒF"Eä’ÖòšŠ †V%‚•h DGk†hÚ• >Ò”sèÄF†„FGwDOÌBcphÞ@|jŒÄÙÆx@œiL„À&bmc%CLc5Ctc (“Ö1„äÏޤƂgO ²‰!¡qŠ!¾qš!®q̳RcžiÞ1Ï25<ìÁ³#Æ1œàį‡—$â—:Š° :ds lí%OZêiwdlð0ãQ/¦€^ Ÿ½ï`º‰z=°šfÉVZzP&óiÉÛ’Eu`zpÖàÓõÈIŒeƒtÃ=²!HQì"I+ævùsš â"z0Mž¥&)¬užôz¤Þ`±!“ÊÀ•‡Z˜RlŠ‘a$¯4d¼G˜$ììI:™<¶¶• Ü%}‘M5º´ŒÜ–»´LEoŽ~zdóªOúõ›OÃOÃOÃÿéað“Hïäq:¥ %V$'i§wèQZë‰.ˆŽ~‰òÚ­éoÏT˶!Álj+íÁ%Æ»Iј‰)-åF=ñÃKÒ_†Ps›q2;1ʼn*íÀ|Þ5Å„yŸ!NpL)ö ˜ ÖƒJÊ m$‘!â”ÖðÀ·”à6,9Dæ•ÈZÚ”„V MÇÆÑ ÂÇ‘ùÖE»%ëõ¶Ö#bjO[›Ä1ã¹e?"Ÿ¢*X»-ÍP¥A칈#:í&ØÌì훣Ï??ß}¸ìÈ}óõ‘8¾:Yó@s$^´˜ ሞ·ëeÿ¾ùEN¤2\XÒߦÿ&c=x° œ&’/P¥GåVC¯ºÕâj9íVÍçŸ7âår1=îÖ„%^>zÒˆ§íY÷ yÓ|ñÑè—«õÃóvIÖ=ÏÚjðcº>_åò‚¢îH<žO§ýü,× 2è¯rÅQýŤ‰6M-ò°öH<êß¾í–ÝìQèŠ6‘¾ip[.N¨ù(ɯµ0™šJÇ,îKæ„ȺTÇI–˜¡Òñ½Ùw©Ð…xò)’¤Ë_"E U½†]˜ûTqîíߦE2.»ëâ[‘.¯Ã3õÞÛ3[K·a#2·7,2ß en•TÈù¥RmK›qŠ: ‚¾´•yo*ɸÁšõZ"»Q6¢òRyd+…ôAWd)J%éSÄG΃dcÊt ­2é#‡Ãò¹…¹fåzÜ$ghÀ ÊmÊ»²dDJBþQ[òîi+ :ÂûÚÊ4TéŽmö¾z¶Ðá~žEbu8û,碄̚Û` ›Ü:x7n£a»-®;õC7ËY™_Y¹­WÕy³n£„Š¯·J0Q^‘3iiéÒÇ{œ!7·1ò·h ~¡=îQåñrB*Е tÌj)—_7$/HÇ[&qó‰¤,£-lowÃ+íY%qÿÍä®C2/E¨Úª¶Ök^+9Ò]ìž[çm¿ hÄ ‰–ÃÞŒs§-4«;9ƒHÎ-ÆѲ—ReB¾Dù„øñ’ã/ "M€-#WŒi•}5Òõ®”ìÎ,tFÙ¼œ7à,æÈg›ÝÃÉÍ2n=å'·¥ƒëýÂNŽ¡g¨ ÒÕ|YÅP/‘ç2„£<¯qó<Û‘¯ PŽÊyšrÕÕš-"ÌäRŸ,fàŸf)shöx çiƒ죇†rUÀ]%¶ Ÿ£\⇅¼Öâ¨',µ9ö¾röºžáþN[ÓEªJ¬a˹Þ4b'Œ-G…“žsŽë\®?•Ì(Á= ä]ت{’²¤‚Á¨È$å…ȳå0å²6_êÇÓvëÈí¶æl&’m@‡•Ågˆ%²(A,Òb­)6·Ò–<@“€¯¸ÖVùàÙ «‰«ÍÕ”‘ Ï&µt4{ü€HàcZ# òIéÁÖñ̳k8ϪS\ó!b%NY*‘šŽhë;<|¬H\Tl²¿û¥²3`¿Âô §¸×Ž‹:Å‚fÊžg3§‘Âҗç@à“]ÕäÔZ,ïòÔkÃHaÓƒ6S9^ùB¢,_brúb£Z.(¢/‘áp"ò½)Z8v®z—¬‘®o¸Ø°L?K²ÇñíË+ÃÚ´\éñàOÖVK ]¶{Ýn´b§‘P¬ÎÞÀµdMÃÎ6‚S‹ÄÍv4ù¢s+ãÑu$ENíqH]‘VBærØ8\(-»,Tq‚r3pé8Tl’Ž¯`áO4ª™›[w0èí—Ý‚(7û¡Ã~;¾¸‹V-{Q5~ÝfÌ¥ ð\$ä6c°¨ùG†ÜVLæÝpèRsžmÉ¥5Ça. ‚âƒ:qÌ…·>Óñš ü.!‘&$œT>qeÈî-Ýs•žƒ,ÀÕRÌ[™’Ó gé?«k••t­´_»þvÈë7!^~U @æ°Vܵ~©—+Å×µ`¦i²Ü{Ò öÙpZSÇ8ñ–óxjê8؈·Ùôj¬ZhW9ÏUìýÕá•|PÉIîAC_æ Œ×êùêà /ôÇ«·wƒ}7‚îö*0±bª_Y¡[6ÕÅn;c¾[™Äô²AªÙâIUݾñ‰:‰dgÌ?cäI`I"¶ØªüHnñALòœ‰‰!À‘þx^Y|Éä>¾ó ûh(`Fú¼'‚'¸oп­' t@cxØé5-?›Çèãaþ¬åyÈþjÜáÍàÇ1ãñ'G?ê…õFo|0øxÄû– }<<”µ[òAç…þ@<â‡÷dZŽßΪÊçT¨nilt è¸ß2á(–Üe€ Žá¯;Šó ƒ9f쎂ң£Èø§Ž‚þª£ ÊáŸø8ΆõaËøƒÁG¢G(}6Øàʼnjƒf‡>àƒNX^ŸF Ô2¼ky/ý°GîÇZ'•CUáþéù¯>Ÿâçÿ!~rÂ…¾Ñû-0¶ŠõM¦E6¥ä®m8&qWU÷œ’£O[0ÁŸãø]‹5ŠWíðßBÁæ`ÙE ŒÿɨbÜ™Ñ-®6eåðØÊ»Äbóçmyj÷$9ô€¯ƒsÎoL°ç©ÏÃúÌ^›ÿàãímƒ—Þ{‚7ð§‹ÂÉ­ª$pU´ŽÿRÚºâÅÕñd»LâI†e’‘cô‘VLJ¤˜8þ‘çƨ qƒWÌTÓÉ×Ίh¾.ªí:Éù¾å]ÃÇ5¥K˜×”ˆæv× çFS]ˆ7þán§NÚ½k_ _lUJæP)m¯}Ô­¦Ëþr½Xæ¯ùkíOß¿~qÿ³§óéb¾ZÌÚuûGoï½êήf-gíÙª±õ§ZÙÜSøÑDÒÍظ7GâþjÚÍ×<Û˯ºþìœدÀŸ®ÛY?½??›u¯»‹HGâuA·.äO±øÌûq_<Å#ñX<_Š¯ÄSñµøF<ÏÅ ñ­x)þ%^‰cñø^ü ~¯ÅOâgÑŠöâ²[®Úù©hWÓ¾ŸöËéÕEî¯ûÙiGÝu·ìW¿Šv-NÄI;ýu5kWçÔ[Š“e;ífÝÛuî-ÁwíÖ#˜úyb*¦‹ÙbNíÅE+NÅébFê`qD÷îýtÖ^ˆ·âmÿ['Þ.®–âLœ-»–¸çâüÃåy7½ø·øUÌĬ[­Ä…˜‹y?ïÄüêâ„„éÏæb!¸—í²›3+ÜËŒÄP2ÞýâT\ήVâxwµXw§'³ÜYõPüäbp)VbÕ]ô™ûU÷1°êß‹¬‡µXŸ/»N¬_ˆ+q5?%¦‹e'~¿‹÷âƒøCüÑ-ÿÌÞð¤'kzëÒð­û6îöêé“GϾýìáóǯ•Üë^÷´mîéÄÿé(´ƒÞ¸˜=äc÷¼<äf6TnfTíf£ÍOú³³ÚØ'[¦ïÞ×£õå–+œl{Æ—‡„ÜÏ×ÝÙ²ö«ËYûacÆýÙfÀlì:Îå=0¹lOûi;ÃLé8°Õyâº'5vï×Ûòê.úòÙ‹G?>` ¥r0‹øU·c }w{£>¾Iv´c_<{ô içùÓCþk4©'Žæ_l6ÚñÉÖêñÑT R˜¬tOÙ½©r[EKz¬SãNZœ]ž·ÈwݺEâ:ï7i«›¬»\õH˜+ÎZÌmÒÔN~º¸¢u9æ"öŽ²Êò|Ay䌎™¤½¢l’W›ô±£ywÍÿðÕëïé ‚æÝ^Å›PônlúHzOò Þ¡–K±iá.½~ùí×÷b‰ü^‰¨šÉiªî?ŽDÑ”hW–»åõ—Ç?~ù€e ûÃbE…&‹º!*žSœð9½åêäà—¾`W~—OÅâ·Wû}5Ü)‡¾üùþw_?dmÊ¡iHÁ}¬$q8"<) wDºSâûæññÏÇ_“H¯å=+‘äߊ¿ñ`ðé @/)ïs¾io,Ò¸|;£# W<ÝNiVf=;ÄE;]^©ÂnWz¡æZ^/¦r)Å…' ª÷{j§0fÀÿ¢±a< endstream endobj 6477 0 obj << /Length1 1408 /Length2 6448 /Length3 0 /Length 7411 /Filter /FlateDecode >> stream xÚvTìÖ.!´¤ÀRRCKIH‡tç 1C ’Jw#% Ò(ÝÝHw‹ÒJ—À?ú}çœÿ;÷®uïšµfÞýìxw<û]ÃH§¦É!i 3Ë pnN 0à•Š?äåy°µ p{ð_(6£ØÙƒ ÿ/ý+g0ŽÀ¤Ap„™ Ptµp󸄹…@(ô/C˜³0@䱨paP° 6ã+˜£§3ÄÚŽ¸å_G‹+€[HHý;@Òì ±A* ¸ Øq£È  ³€€ážÿÁ"j‡; sq¹»»s‚\8aÎÖ/YÙî¸ @ìvv[~— x rÿ)Œ› eqù Ö„YÁÝAÎ`°‡X€¡.W¨%Ø€¸ ©  PuCÿ2VþË€ðwkÜœÜÿ÷·÷ï@èg…ÌÁõ„@­V{0@UV™îg€ –¿ Aö.0„?È ±™# þ$ÈJª@ˆúþ®ÎÅÂâwátØÿ®ëwD“e –¯``(Üûw~Òg°¢ëž\Æj…¹C½ÿ:[A –V¿K°tuäÒ†Bœ\Á Ò[ ìÿ`Ö`8€ ¾x;À6\¿ƒky:‚ÿ(¹Èü}½aŽ+D `_ˆñƒííràή`_ïÿ­ø§„ÍÍ °„XÀæ`kû?Ñ0Øê/1ygˆÀˆ 7øûóï“1‚[–0¨½çÌÿ —KSUQUG•íOÁÿVIIÁ<ÞÜ@?ÁU @qðýg5äï,€ÿñU€ZÁB%‹èÒ¿vû{ú,/+àŸ±^ÃŒXþCp# ?ÐñÅýÿMó?.ÿ7vÿŽòÿ øç#ëjoÿGËò[ýhA{Ï¿õ¾ºÂÜW!6úߦºà¿ÖUl quøo­„ØI¨µý¿›q‘…x€-Õ p ›¿¨ò®ý{Áì!P°ÌòûA ü/b«,ì† ‚T`ÄÒüóJ¨Ìò÷vñð @ÎÎ OlĈ?À›±†–`? pqBap„ Qž/À æŒý{žü<.+˜«óoôÀ'àB¼Sÿ–ã‚Û8ƒÿD î°?ò?r±puvFlâ® ý—ügíÁ`°öÂ,ÌB$ض&¸åªJ’Êc{LlŠq[7••Ã{Á¹Õõ#‰µ2#pÍùB2i°‹`yK†å\b‘öÎ{¿ñFHS‚zó­Ï/Ó8‰ífìù/¤}ãùû’µ½ÔXO9´$¾ùÜ9ùèØ¡6"·+2æ8¹¾ÀSË%¾rï‘ó¨í-]y7»­þ­R@ çWé$G”v¤Q@Ñ4ãóÌrzt85æs¢ŸøÓçSDÙã´ŠqlؾQ¼Þë<Ñ×3^+eZ<.Ï( È©QωF&˜¼¥v’É漋 –ûæ=E h³³§,spî𼯄hD@뻫ÝFÚ¸¿æ$‚™©úˆ¿&T—Ô“˜:Ó«>©l6 †WóÚ©wÚ¬¤I4fé8ãϳ ö?¶£2bÇjôÆFrEûþˆuàz—+¹‰.åY"ßó©(r(ðÈôJ×Õ˜ýD^üˆÛ³a=¿j£µì Mm¹}.‹V#’”=¿êa¼)Æ*É´9uzz;ææu‚1>»!á%åhÁÛú t]LiÕ^9¯™¯‰ª@óUï’ІOj&»”»)àC¡º7G- ÀKÙ­)uŒ`Š®2>ÓéûN)ø/œ'±]ÔZíeû>YÒ/äGëAÌw I,r)ó•Æ¤B|ŸÆ&ÂÇÐør³žV¹<íZ’ñ°IÿÈ"È©+øƒè ·µ‡{Zᇛx_I ÀîMñœMgÌ‹<9Wúcì¢nsŸ¦ý‘Ýõ«åÑú}&f®&ÂÓB£`Êiô†—ŒŒ®Ë•ST»üç”Úï KTîî>5Ç)]bfëR¼ˆqF‹}c^R ÁùzÄW[€/}Ô7…A†èÅ<±œŒÏ¡Iú7û³>¾ÐóxŸ#'³ÒûE±’ê”gú±ÃÒzQÏׯ&njæ· í†dò=ªbVâêÒݘ2|’&ÈgKD%üñí\™;-Y62H åûûE1ìAÞߦ†çQÙËl]­äø3*Ì2¬[¶>Óðôìt&²Ä¤÷ï‘Œ…‡gl ‹pñÄ›Ì`,Éž™ªeøßÙÕˆÉ|ÿ™gîZ¶¤pöù• àæCuÏçÏb—H»8¥X|'Ç­¥3¢1ïÃE`îvãEßd%€ë*¬ÃÍÑ5&f¼Œ}¤‰æf¯±Ö)´‚Û;m‰å®fÔU,oëøGmîÎ_qLõap ŠRÇœ+fèÄÍÕÆœêèÁŠ—M§­Kñ=³­+QS0ÆÃ_QÅmÖñN„ã+ž³­c̳1£·Ê=æ+¤}ÏQxSÚÞÒõ" ×mA}»ã¢oµ•"¯øá蛯H×ÜÚ*ѪÂËʵ';kz™çM|ŸÕ }7â8²é©sûVp4tH<6<¹ èUµˆßîÅsHd¸¼QÖxF¦Œ¢˜"Vó2 oþ%|Ã6û˜bS- JSô ’çã:ÊÏ2êcú‘À§~ú‰ yq#ÊÀj!¿Ì;z–CöyzM™èøèŒ zÅ'¤o®eaÈ?U«ÊŒ¿lg´Ð/t½r¹Ž¬2tÛ\N!œt;Æëôñcø}Î Ç/?¡Ï|°Sµ»rA•‘îЊ–¡%<¸Ÿ×?èp&RQh"ÄJ!ÜÖ„Ñõl rÀe1VØW¢¢B`™ÿéõ]kD›ÄV{ͱ•feÿû7ÈÃζEv—X±Ô.g¢¸GËZ Ú’k<Þ(ß¹i‘>YÄZE×b˜š»!ó§xzÇné JfE®Ëð‚>[¹+¹.±fÂä¨=±&³ÉKÚ–k¿L&8¡¤`Æwº—äô0×ï 54&sae¦¹¦ÿ Ëòõî‘qq"¤«1®ÈDø}½§%³ E§³{¤?šLË=ÀøØ9+~äUpƒbÎÅg“¿aZ7²=Úâ2z´²ïØXÈZ!õ‹BE»6ƒqœ(_G)ЊëQy4eœ—)½r~¯›Ëã‡öÎR®Ñys4 ®-xjŠ«£àø•Övm’—ë}Ö¤´bj¿#È?s¸R$_Q¡—‰¿ê¥Ov½³ÊJO= ☗r›ÄŸçªLY̸C‰#Ìð’°®é²"µSU•^q ˆu¦¸ªÙ¤Iu‰jªmðRy÷¤öí9™@ÓYI–j°XPä©`{ƒQ‘£{8Y‚(ê×`/¬å'O.Óí… (h÷ËúHël+·dI´VöÕÊâ4µ”Tn^Üÿ—çùrvóÚ=îºì ! ¯ügÖR}´n#$A±Ÿ!]13ÜáW‘®6t4rñ 18O}QWÕˆ:=+¾eCï ÀcË6'KØç»c=tUWrÂ~sm:Hv¥ÌCȲúJ¤¤^ó^vòËJ”ÿŒ¬SfF­Ú4ÏÝRídªªx÷íí½ã–ÁTÈÌ“ºwx†a&ÈFEǦ×È`ª »‰”mb",L؇”ºd›€¸Ü–[ ªÒ!‚5Þ÷ìx"\‹‡«Høã îKyû¯IŒJñöÖúùúH˜ÕF¹úÖ ~zÙáòž°½ÒûË+]7^B™Z£ÓͦâÑ›p™ñª'ÉÚaí‹r ý½‚M›ÛH«}x’|§,ò³,ÔÛõ5v¿"“°p¬—ŸÜÃy)øq‹žÞ.Ø´ ™È÷ö| ¬7O+£YÀ½¹R¥AÎrµ³v›w“ ýqoÚð"…?×3EpTPxÞÝõäèÜñH%>'óL;+Ò‚kòP`ð§ý‘Ò}ŒÓÁ¯ù/ }çTU+©¢—;û1BzÏ–nÑæåÍgS?â‘€É ®jœ"Ãüµ1>_mä8,}åA'øÂv=qcaßïöãáóÒä Y©Lžûãó„éð·È :¶»þÏ~ôG* %¡øMasqKŽ²^‰¼'ùáôY˜ÚÇq‰Óêõúq¹…XKÁkŸãñ™éÆœB§Ör2ää‹ÖîÍÄj“A÷ͱ=%ýzŠfAæžä+:¶[‹q-aý@ÿ°î!Ñ<›¿²#¼¡²\‡’’áí5Dâ¶$µfl-¶ý}c.¹ÅdãeæÖ^O EË /K{±øâ ³ï¸Û§Yù^ï´hW±l~ùêârßG%KßÒ³œÆrPüöREGöÜŒ[½h‹,ÎoˆSäí°3 Ê,bå—H¬üs7êÉ7ŸÚ½¿]¢ñ“Ó«~$‡áï:Cˆâæ¥êÌ#•¤2YàŒž0¯5ñ`«‡s³@ Çzš¿.©¼›2hQðj ¬"ø8}Hé[]Æû¼¸˜~Éùsn&¦bïJÞŠØëg‹²Ÿ»\ ÂuñÃ8„Œ ½«Pˉñú+T’µÐ^c&µâÎd£F:𶂤r²}èŒkÉrT\ vóCº šÇ©«ßVe)¿µµOø~7®ZÄʤvEͳºSÓ¤fȨÎ=Š½ã8/¯e£Àúqû Íäý*¶EϦ:EôØb : IaZÝüׇƖú'bâi¬[^É8‹žO{Ÿ’4ÛÆ+êÁ9Ö0ö¨ë]øOéj.xæ|?xYÅö]ä#ˆ³iµK³Ÿ±6LÛh¦×–¹HÜìÙªlIéˆÎßZƒ½wê#ÓeDQ“M¬]â±—Àk.FÀ£ªQÍ:ß—9‹ƒ´Z§EM´ÔÖ1Ô ©î`‹£WTôî6T=>P{+ ‰G±wiöJ¡ÌVàq)Þ± Šöï(Öb†éNî…姖)èx|•ÑÇ—ˆ—ždˆ¬ÞZnðh™ŸZÏ<Á0Ž£ü¾[ˆ“,~`Åä #ôÖ¾ b±¤òhM” À;2ê±éQ,Æã—ÿ²[;ŸXE>ÊŽdYWÇY›è<͘%[¸Ó ïé~g³ñ”¤a§¶KÁ–¿ ǬÒE(P_×`3s]œcÈ*]=îÁpÌOyÛtú ß}ÍJK²h¥EYˆhŸâ~±snr©(HA-‘mÝp´hOÅbè4,‹£¾B‘ÁŒ¿wŽ ³×аëKp$¯™BÆ2jÞ ¯!Æ YzÔûÖkÑ', ›i! $N9‰/íK,IÙ˜Õ¡ÃÃUbšùÊ·O/œRúòfôI®Å5¹Ú âÆHìn‰rõ&|ho3Ý7-¸‚B;Ì€Š`½\Íú‚ÆKAŽ»f‡Z4\¥Jv^¿7jâ—öñCËÒp{¹õ˜‰p4˯vðf³s½×ªFmBÕgì¡Ÿ Ì;¾™VËÀ;¶í‘û,ѻɮ¼šÀ¹Y ÄýOIäŸPÊg´,ì¹Øx’©O_š§ìäÄTȺwç‚oõvª Ô¡uñÃ{‹û=£ðßÄJ¾i¿˜'¸ ò=x=°BJ\¥¡â/‰³™çeVaV¢ 6,Ÿª˜' d>àc´*$6~†þxƒWº¶09 ö2áó»*Åí—µ:R…~fÇÓ²¢N“d °ëîðhÚdö „BŠxÖJOyß÷ö³#»e ê²ìûþ”ÃM7ÃÉìVìPæ_Iéõæ&·iU %U-"¸—æ'kL~!RŠíÏ_D…T‡/,li¶FÌvM3EÚb†Ï©?=k²‘ÙÛ3§eçàF†Æ„UNNW­ù´‹r’2‘¼¨[]ÊÓšCÅo(« ÷n¦+]YÍÐñr; ‰ôoœæ“m˜˜>èüŒ´Jäw¸CßR”+Q°ÞuEõm¿*Ô“§´Rq1È[OZÏß–|ºó{6A¿PÙŠÙ0*U £Ae}¤äYkN_¤¤·p‰pà?Ý5⦭¥2¶íŠ‹iõåh_>U2ûâsJWÃ&¡ÒØຎ÷a"T݇ÁhsÃÇâ￴ߘ©cÇ=Ïhz?r™1xV:â4<:$2C"þ¢·y¹\Á6I°Èì<³v9úÙ½Ú=k«É1èåãt±Àƒdþn—ˆ‰xz\‚·¼e®vÌ9)A-IºBëcv%Ü9lR7Pô@½n´…±¯Åñ)ë÷ ?+ƒÒ ÌÀSç@ÒÙÅ/jñ¬ý~(¤Aå§.±J¼R†çÇ·k¥•Ur6úèœ ‹^å–lë~íÑdÆnƒèÛøšË»÷…9µö‚ÈâxÏ>z[/ßß JÖè\"éyw ÌwŠ ÿXÌP2’D66tÖ¦@/ö¼FjYÏ¥ƒéy¸x QÒFXùaRÍwï¡~}ÎÛ¦GÚib¦ïv0¦kxkª·2cšÑÂÝÂügÔ¦j)gpÉíà e·é²Ï"'Ñ;x›æå <Ù^Ï/7ïµ;ÖNcò‰Û×:ì,R2Õ@7=Põ>çF½ã»ð¢âêR:ʘ˒+òFJBÝÀzŸ^Ëkçj sP|K{2£"g÷Çg´8}L*ö͹տÈELŸÅeChìY ÈbKƒhi},*功=Ö0&Ûa¶Æ’ËʸoÅñMâoþž;R²ˆßsò±#æëÊ`ó.… érnÀA*ÿ1cA|×زLG%Šó,=zµ¸A2¤¯®žºYŠhHß½³+£þ+à.­¿àr-«ÐðeW?ü»œáë³–ÓMÇámF1´ˆ2Ûw7)KÏ&7‘b-©3’=°d¾u_’(î‹ù%ô¿s{b-ùQ!=Ý’äùÃ-PcûR-Ëæ«ÕÀ;!–!¤ã;[Q_ZoL±8/2À[|§¥÷[eÇ£‘J†oQa`L5ž«Á¶½Ó±ÖBÇ9üÂÚÏâ%‹,ลì=ô[û“fØ}Þ|‚îZª°†hx?„²¢Â‚kW—<1ƒV -;èttàÐÏ-çrÊ›­c†U¶ÉNkhíeõŽójÝ#=Ò:ªÛRµÚÔk¯Û&R˜°l‹Âý+FZ7ÙËÏÃOØÄÓl.0ìýš¾ñùÁë7)¿yj ¢©™¥36õ÷%Äø2ÑHÛx‹ª§‹£bäeÖ v¦Y©ÐÏ{(èäÛHöÂßV| tå|F¡>^¶ Dly#Šì~†êÁz|zôDJüÈn#£ù"‡¤4Ô›”ÅëåB”ÿ®¢ÀX’Ó‡ ¥ãã^c4¦ˆ~ªÓ•S/ôRg4t«žeoÍðSÑB%¥ùö¾©‚ ÷kRÛ–;†Ò½Cï¦Ð«üãq먮­xw‘ Îü»zngݺCÒÊéÓpî~îã¾bjxûÞ`•¦ãŠ°ÑTï2õ©÷ó"*‹$TŽ®iàwñÐí«#q”9Ÿ‘ì¼–8ý}”Ú·?_âì"ﹺ¢ÇùhfT*Ä Ì¼¶/Ëa'Ì™½…ÛÈ–CÔõÝÏ*%b1«¾„œ6Ñžä¯ûR|4î5M²1(f½¦[žlÁ Jièø¦Ö´*g}œÒŠn†‘óEÛûK1% 4',z&KvÑÛ\«u¤Å ýÝæaÎ7É97»½t­%‰ovO¦ fϪ¹4]­Zõ|ˆYÖí O%öH¶T°j6“\;d'ªpžr’R’ƤcÝžq÷'Ï!ô|:Ñ+$±yÍ:]§ã/¥.Ö÷ÉÔ…Io¿¸Ê¬©×€Lu¸– èÜÈ U«— ."&ψX«ö^mS :—G'Îµí¿²\Dö—`²QV+Lï¾ä]•Õù:Òɺ\‚d°Eå’È<÷=w’¬ÍV?‘צD[ɬ4Lª£â†˜~q‘Xá §²Ìà¼Ðšä°–n÷B{ñ¦”­Çu{ÚeTEbœñ Ë?´-×q9-Nð(®ä‚%q½²2mÿðEor?‹í-:ÖÎ#'ørݪžý]`„v¤bMŽZ_׈-þkÅg ýÖü4/… š½:7)¾s,ÐÁiÚδÎí4Æ36“œLÒP¶ªÄ~þh£>”²Ñý;X­¼á{ˆÓ”ûOëïÜØÖ´ï–N^b3h!)ŒƒÔ¡Ô[t°(œ¥,Ïj5¯~ýòÅÀ›qu¢Vt]AíºžHn$Xh­Ã»‹TànŠÏ©|Ùà=áØä“ÓëçðºÜïzþ`fˆq…~ÔÁTW|ú% e9VP5ç~!Œ]Ÿv_„NµÝ‹'°}ìÇƌ¶†¤ZE*ŠeuQõ°%F¶“¬:ÔO}¾Ú>\¸`*aË7úÍ·0;gè¸E='*x>›Á]ÝM¬§‰f9=²f"³x‰\…°~EŒwq`ž]rB£ÿõ¹'Çì95…ebfç¸@à2i·c:Èh*Eä‘ÍjðŽ?•ˆÅøJîø"L8]#$¥V„¯’Ö·§"­g)x$¬½G¥®31ô#sîeÊ÷há€ÌÓìÜ`ψ/åâ!Ò2ç2¹I&{üêÌé«8e«©–äñ½f¼x"}eά†K®Å¼(¡å>›\[|ÿÊ…è”ècŽi·PæŠf±ïéð>¯§{¯ÛC'¤|ƒF}bQB\kLËô&ÖX¸²¶P«ÁáG_¾à²Æë>Ö~ °N(»¨P‚oºål©nEXN»äçJŽêj¯ìyw}ºžJ0ñãP¾<ñïþãì/Ê\ýY}H…£>ÔÕ6šÃpM³«z½ü+Ò+A%h úPÓ"Há jÕ0­#5¾™z¼ï$)áCÝ76(»ß[…•Ÿ¿ç…ÉtãPÙ›µ ³s̵—w =?|¨³ää~„Q»‡cìPQ«à·9Wo ¯›–ËØ># zp-ŠgY.Œ@–+P‹îYx³ö^~wª;QÀ«ñ,dù(b•ÇÐÜ$ãæC¥Æä€SJ¼å”r]_×çƒc¨,!tíÌÜ„ú },϶¼ô?X…8 endstream endobj 6480 0 obj << /Length1 1408 /Length2 6441 /Length3 0 /Length 7405 /Filter /FlateDecode >> stream xÚwTlû7€€¤€ #FÇèîî)aÀ€ l86Ò"H "R’Št#%©Rÿéó¼ïûÞï;çûÎÎÙîëwÅ}ÅïºÏÙÀ˜OÑnQƒÃ|‚ü )€²®‘愈@(Ò òJ 4ƒ <¡p˜ÔÿÒ+# `$S#1fºp@ åŠI ŠK@!Hò_†p„@ìuèò´à0ˆ'1PîჀ:» 1·üëàtàJJŠóþq(ºCP0   Fº@Ü17:€ÝÆp(éóœ2.H¤‡”€€··7?ØÝ“Žp–ãâxC‘.#ˆ'áqü. v‡ü)ŒŸ0qzþÃÞ`€Ü ˜'Æs„ ˜»Æš:}ì/c¿ x· È/øïp{ÿ…ýq;8ÀÝ=À0(ÌàuƒôÕtø‘h$/ sümvó„cüÁ^`¨Øcð'q0@MÑÆÔ÷wuž¨Ò“ßêö»Bßa0MV…9*ÃÝÝ!0¤'ñïüT ˆ¦ë>Æê ƒ{Ãüþ:;AaŽN¿KpDy˜Â OPM•¿-0ñ0g Ä%$'ÚÁEàwpÈ¥ào“€ŸÜà„)u‚`~ˆý<Á^‚øýoÅ?%bAA€#Ô °‡8CaÄÿ‰Ž!NɘÉ# h€Cçß‹Áøg,=8†±çn 9`¾ÿ¿iþÇåÿÆîßQþÿï|ÔPnn´œ¿Õÿ‡ìuóù[á+ ‰á¾.³°ÿ65‡üµ®ºG(Êý¿µšH0faÎnÿn"ÔS Š†8@‘.Qå/Üô÷‚¹Aa¸'ô÷ƒàþK‡Ù*WÌ£á‰áã³4ÿ¼Ræwü½]B¢b0ö!ÆŒ#‰ü1kèAÿa0@€Gb\˜òNpñïyŠ œà(Äoô " À¼Sÿ–1@º ÿ aoøù¹8 Ì&þá &ÑÉÖACˆçgàÒáëÂÛÎjïyó­ÊN×ÍŸsñùÍ#ÚQd„é\ÕÙ¡+ˆŸŠéïî,®©rž(|bºòÛii ŒlM5|ûËÿÒ6Ùhbý-ñÜ8mïXÑŽbý‡D÷ùL6ü¯žø›…¸â¶`wjóŸ $È ©Î¼{ÔÑõʆ#fÖ 7ªÅ´I.Ë&ùâMã¬CJ> ìs¦éX|nqS É?žüœ¢Ì»aÒJæ!Ø.ö³\J8Ÿö]ª0òì¢g£·¤{€{B9<ÁùLëî¬ßëâÄpÆ4mûÈg÷4A·MNßu=£3ÄÖGìÀ1)Nz:\jÍظ•V÷æ‘œƒE­´æñ{O^ýè¾›x^ÅÔ+æ {êû{´vV6&Fù¶UåÈ„KÒê„q2ëÒn‡Rï‰ÎŠõÓï~6æÖ—/Ù–?¶2ÿy5㸆2ï,Žiâ>ßu$þ¯R‚3o€3–Ž§r¦Y5ä‰F¨Hn(’¬ox“÷ÉêöBLKù“¤šj¢ w KñÁÖ}W>uÛ%ë/ÆCT5>êÙ':¹ÇWiYIz Î/v… ¤¶ÞÝÙð¿P¸ÉÏÏkføõq ÙíöDjO¼òÁ’]Wp‚Jxd‰|õ-­Ê(þ-nòiå¾RQÆö‰ÌuÏ:a¦ô®tîå·Õž,˜8 Z²mTNúg.n4 £Ý>UéG¢fÑ)Îê›þØR»ìz° 6­UÃ}ŸËoËa"7GåJ=|8¾2 ?»y ]â_¸œbè{õoH20fmtÄD‚Úȱ—V+“à4P³ÀñŸ¥V1¦øÈ^G8Ø C,ŸEŽ?Ï­)Ó‡¾ŽŠø¹Qù:Iƒ7âXÜîäYü†­¥Ì!•sΡeçÕÎÈeCÙsÁJ^^PÐt^è“ô(@‚ÇVª‚KD÷¼yûµ+ƒÓŽÉàî3rº Ò5ˆR@ŒòCjÜŒI‘f®4ÔÎs|áÇÛF “Lóþn‡öXÊ!mc¾¡5ÚŒ¶xeU8P^ŽÁ1ÃÃLñG©Â­ª-gSeû»A±$Ùp»,PM;úظ!wò)dóè²²å⨨µƒÃ“à;‚íÖ{œHò5Z~UFßDsÎ(ÖP]½áäF±OܳªÒ37ãʽô…ÕàG‚§>¢%K.->Nĵžw>ñK„ŒÕˆVu9@)ÔÙD‡œAûÚ&n׸—³ ór6ô7N_æqÌ'¿…/ˆ&ª›í¤­VÀŠîåÉÚàoY&ÙÅQî¥FpoàŠ“l²ä’çßJüç°1wêýÔ\€Sseêg‘ã´EkväW–X¼2´a°{“\Š×««ÇB¸èÈØ*òˆmh½Óz#ùm}¡3i&Hèô± ³€›PùËŒw_·;EzÓk»œoÌ°Súˆî®sQ/gKhæj9Xgïê3]æ”DL%˜<Û>¥YúE%™s_e’skÈgJr¿à¹'d–þiŽ÷w£H ñ%æºÑx²gJ =2ív R¡^‘ÓY÷ÆCçþBV¥zà( c²ÄyDQ:ôK^ZKÚîñ¥sñ©zZZ²XšøõÁ #–™x'X%ŸP¶ „«©o㥢y¯ˆ°Ì©onz㹊ý•wUtÐX°ÐSÐÙÞâ,°Ö²*‹DöCŵfÿÓ¾× åËïû5¡ r†ŒöOÕ ¬ð¶©ŽJ}8<òÙÛ±¸MØëçž1¾ÄJÛMhÊNç:~÷J³eš³f\0Ï)=UZm=©µ¥jm,ù³Ê<\aÿaº}ÕøZyð%Yïmµj´qàE©™ac¦ùz¥*ÂÚxoE3¡Š`Ë,(Ï“ˆ 剅G6Á˜Í¨ÿ ®?BÿS4v0¶ƒÃ–ˆæ(^ÛÌ6'Bät¤ ~ìñåՎ瀄bïæÛœŒodk#Ûon ,pDøv§vtÖ¿Ý®©î9À’ì/í©™Õú{Ѹ÷TñmoWfsÛëè¿7Ý="îKÓî¬TxàéTæ®õòP”~©:elÿ•£¢• ýãÕªŽÐ:|>s¼ÜïR+ä¼²4JÛ×îe«Ïw!,Q$Y%yUaðÀ÷‹%ux÷wåxW½çÑš¶€H½gtÅçáyô3#$VaC±!$º ßEúÀgÅ­îô m2›Ó®€ûüP`­M³ÎÏû@ú\Ìòë¦'~ßš*oµèÇwÆSpaW.±ôYAú½£eAÐ!C?#νå{è¼#sºÕgEìäU6\¯®'ã@ªTYZ…r€µ­wÉøVIG°_LE‹G·XöÊÄî5™N¡î³+÷$]Ö+b#â§[/‚Ú²Ë'ØÆów+ƒ÷#Žñîõú¿kÉôgZÏLêOTO¤ÖÌh²ëqr}r €lÆ·dÏáH~'ûõ–pqøG{<Íçû¦¹¢·Â Á•ý½W¥ŠíÕØ_ó(y/K~p}£•‚Òßêu8p±”rëܪž ½-£–%þO€G⨺Ӻ`§ÛŒ¿>;níú°ˆ‚Ý–ÿ¾ ‡òew±R#T¹ÛCÿI-%¹Ú`w†ZÅf$O†ñî;" KÐz4óAÿ6^¤•eàLhZÉק™ògGöMb’I!J§j¯yéÔÄÁ{w»Í,fS~í Ãú©äå 'DkÎúZ¸ôm¡ËV &º!Õ¤u÷z1þãB»ƒå5/1U˜g>Py§uy¿TÚ¤°?b}’cUKpL¼xLŸ\¥‘ÝŒ7Õ=„Y)ÙÒô =³Å'S€¡žËëLòÒ¨˜›R_Ç}D7cÑË¢ÒYÝÓÅL¡I áZþâR%îDsûÝ‹™nBŒ4ˆ¬¸-|2ZAëоJØÿêžxé€ÏLG´‡£k‰É§áY#àq¬½Ë[Lu‹ÌѵŸèœÎÔÈÎêË«X9]±BòÆ@*ÿF{`ÍÚõUFá®;²WJŽNUÐBKk_ ÿ¦(Å2!µlëFIƒ+Чm’Þcz8f²{-?°qTU*~59klº7T†fiüplÿ\$PÄæ!ÙtëFJÇéƒç’U’&2íó_hoã¾|ÚŸ'Ik¥é÷ÜàB.Œ!L”ÌåÀιWFûs ´Xæ•CQw˜Ÿ'}à·%|…Æ xk äïÀ³Ïƒ˜çïQ” AŒÑ»*Ø¡Œ/ËïÁw37?û-¼íÚjÚ̸EÐé ã578ȧ®ò}ó,.[z†Ç( ùÔläáášì‰õ$êU«R:á‡ïG¦œÊ^½¸Þò³D‘7X*yEthä÷‹©°Ö‹Uƒ«~49Vù”@|]xPS(WÕÏjCS&yÙÄ`íúé°HRÓi)Y’˜¦†s \u†#²pVg¿q¯ÇÚ­rX'ÅÅgçÒ^€¬L;ÀuÛ,ëzY…•O&Æʳ°E' 'įØ{7­§¥ätöu3Ž=Œlþå×ÑGHbÙ>ÊdM×Êyãxâkî̧“d_œçqú‹ÞÇzÁ—€ÓÙ¨DìÖ*d¿o´«B;þ͵úÝW²’¦BK%ŸÃhë[”k®^1%Mk|é†{$ 8Î?á©ï 𚶠-²5ö¶RÑ“´¸HÏkb†Œ>+ •b„«œõ›¶WÒ©–Ÿ«5ûÀ¥AŸ®ƒÈ//L.¸ŒË1° ±ö¥÷^ÔR'˜ˆj1s3œ­ß=7¾«P¢»!Î*Á>³Ë÷ªä<ß'vÑ#ùbùø Ý€o±Oþl¦Í ™“-Vþ˜ÿs¿æ³Þ(©$­x#kYÝ—ÀÁ^ÝØ““ìE“Ú.ù%_š³F#-ù…†Ôu¾å¥³6”Tž±e&;ÇS á™dDOÕùú–F’ºÁ뾕ëGÁë\ÂäIY{ºm? ‹5*s Ñ÷Þݘq¦ósNyÖ\H¯ù¯Øè›äMç>Ü™”´cTÇ¿}Éf`>_±Ø;\˜uR~,Òg OðpT)^r?öíÇ/é±ùÜBQ÷f¦ß·+R;­IcæJìMX+u|¬ÛJ˜ï>1+2tYfaÖÁZpþ¥µ9«E÷²ðÀæÕw_áìKÉ5Š(<ä9(+ÂýÓÕYœm4«°$}i’ÇW& +{½Å¹T=‘ÅÞ@ö(ëh$4'”:VïÕ‰ÙØfíBnјb¿©+;Î;…Ž±‰çžïÂ"Z#l¥[ 3+š¨cžœpÚ–^5çH}o㟗âÚ ¥e´š bdz¿F~à×;xEàßõÑ`Þ½7à]—@ªz•U\‘Å´ü=Wc¸‰õ¬%zGƒ€ -<Ì›è œ{¶‡¨»š¦[uMÎò0ðî”×ͼg¤£ã½¥Oò]¸ɆO¥Áqù¡V™€B€²áº16ïvÜea÷´?o¡—lË~ÀVD6“rTYv¶˜™wóÆq"n*b¹K‚HíqHÜhÕ7>TjdvT$¼%¶SictîrX7Éÿ‘½œ×Xêˆw#§%ÔÝòHïqÐY·•Þ´Bz>·å›Ÿ6¤Y]\µÅ¿± IW+/5†þª"õV¦L¬NHf™bêµjðQ)×êçe±zmeÆ-@S¬<×þ*›0žæ3äœ.)¦É¥ÉBÄÆœÜ3-ðúüDÇ <…Ó ÐÇh»»"ÌÔø¥¹ Ó95³}LŽú«ñnHOhاrh=J±æÝ<úq·M”Õ3’³ôÇ3²‰ªY‡ÓyôBgÊ"À¡£† Š!G„á^ë$m!µ€twr~Ò§äóå?B‚üoØÂ?tîÇ þÒìǹ¯Њ-úy4”Y¡k›Zsè¦<1ÿây0Ã>ͬ9뫾¤„z²49/^ÝåCÁío]ѶkÕ »• ¨AðõHzú~\h[ÅadR³sq‡¥`T¢TðÓÀ (gŠ[\Ìš¬ë“*puÅ— ù×ì¹e)i®™e¦Þ±»(´Ã7yÅZpØü#æÒc2¬ºè–|m.Ó‹/ÄÙ²ÅcÊãÂáV~A‰+ìÅÇšç&ús†¤Ä†a74L¹i>‹œÅª4Ü]¿ä:+8V"WÂD£H]HƒÂÍ‚3–ìx7O¼Â&L¦üVnÚ…iô;®öslãdvFçTvyˆJn°—]h–¢ë„©C©d>¯Cù·¼5¤j¦FÙÚn ©p†4]½’-¯Ü+ŸbÔ†W串åôS–trKGë¤XÍÕHØ ¨JOY'ÕoRÐáŠÄ“ú",åî°±:žäSŽ½`ê¬ãƒ×7Râú"…«÷A º«áyñ èH\q,f¥‘<] *’?à«X¹¹Lfžˆþ ´›Ñ˜÷°l=õð˃½çïòûÆÊQvRÒ¥ØL0©]ýñ>ýžU¨ó‘¦ß{GE½”Þ ¢{ÜûÝ5yRÅf{TÎŒ×@wHyÑ“¥Ô$+a™1]%“"pÓ*B¯ÝªôtåR?˜JÄz¡g³:B ÞÛ<¼–¥VA’ø+çjá@.eˆã¡c ݦ—‘Ä ½“ïj«¸ü¢qº>¬¦Ð“Uºí“wÿÏ‘dll¡âÙå®õžSŽþL³l×ÕÈ-JÏÂéî¥&ÃÔ…æJ ¤ÒÎÊä.ËÚf«RQo“ƇÚáõ~3ä +[,c >þÒÅW—±·Á7Q=«@u#݇Î/lV%ˆ!ïfëôÀšÝTn$§~èXK¸¨Íš„ŽVªgKz¶‹†aºnÆxr–cý`Y!—ÔÁv!I—½¢â‡bw‡!ÔÛ5ÛJ_[IýLK=oÛÌ_Nv,ŽÈÓžµÕÚÆÄ4¿Áo ¶ß@Ý4ÄL·©½í«}¡o'æd)±])᱈bw»omߪhhåÖõÐï±—ÃIÝ͵¿eƒWU—³œ&é£`ž-{d³3çi¢öDƒ¯²Õö”³øæÚp¦§…4—ÿ௎}+l/6íZF«˜692Ÿ)âjû°#®N™¢Z?E•>©<õkã“¿èn-¶”[¾-È+·qRhþD-0nY”(Ò~ß"ÿ×—ñ—(,áB¥Ó2%Žbµ¦¨ÇJÙµøSɉ¦ è`¯ÅÊÓ‘}^³­•Gêmh=7&Ù)u×\‘^ú:|%›ˆZ 4Ksе§åvÎý!‰Sö?÷®Æ®¾m=سLœŸÊ •g§teÿÔU”Ú,¡Z·¨–2ðºgÍÝâçÑë­6¬ÇåìT¬…íáž_^ô¬_$(/ö4½!Ëõ™áÁ/ö5^eïÏM:â*µ1l¾ ï¢ôÞêF%Ò¼q~}¥¯Ù½Ì–’8,ÚWi†:Ÿ Ž~±vúÑqë D>Òxˆåœ0ù \¼:¯‡WåxBVS2j~¸oï~®#»úùcuž· é³u~$™àœã³&® GúÅ”úß_ñ*úJè׃Áó;A®6­I QXÙ ?ÚNam?ÞÊ÷ c͉í_bûÖöÚ9À´õj¦tQ»•4î9OùúÑõ¹HúQÎíTu˜µq Ý)zQa,m {mžcçK,¶q*hÒÇÝé´‰7< |—Ç‚Ó¯ñ?¹SR7 endstream endobj 6482 0 obj << /Length1 1633 /Length2 8330 /Length3 0 /Length 9405 /Filter /FlateDecode >> stream xÚ¶Tê6LI Ý CI334(ÝÝ)5  1Cw£´„H ’Ò H‡´HKHHKIŠ€„È7ê¹çÜsÿ­ï[³ÖÌ»Ÿgç»÷~×p°èðËÙ¡láÊ(¤?D, TÐÒ‚ÁB`° €ƒÃáåÿƒ8ŒážRò¿x8Ô )B½ÐjZ($PÝÛBD%!b’`0P –ø"ÊC¨õAص€ê($ÜÀ¡€ró÷@88z¡£üçä‚q!b|¿Ír®p ŠjA½á®èˆ0¨ ÐCÀ½üÿå‚ë¾£——›$äëë+uõ@y8Hsó}^Ž@}¸'ÜÃnüU.Pê ÿ]˜€hèˆðü ì½|¡p pAÀàHO´7ÒîDǨiuÜàÈ?Êšø€] "ùÛÝ_Ö¿!¿¡0ÊÕ ŠôG €ö8PGYSÀËÏ‹EÚýR„ºx¢ÐöP(Âj‹Vø8¨,§„¢ëû«:O˜ÂÍËSÀáò«BÐ/7èKVBÚ) \]áH/OÀ¯üpúÖýA¿ÛêŒDù"ÿœíH;û_%Øy»Œwo¸šâ_hðæ÷Š€Á`1 0î„ûÁA¿œú»Á“_0:ÿà@7”Ð]<aGÿ=¡>p —‡7<8ð¿‰Kh‡€ymá$àïhnÿGFwÞá|Fþõùûd‰ž-;ÒÅÿõßÍé+éh™óþ.øoJ^å äò Š€ˆ  P }þ·](â¯,Àÿت!íQ@‰?É¢oé? ûüÕ}®¿ƒøo_Ú(ôÄÂ\ÿ ¸X CAþŸÇü·ÉÿßtÿòòðÿÍGÙÛÅå7Ëõ‹þÿ°PW„‹ÿ_¥ž¸(¿®Nû1°¬x©hÊ»$VèS†¥JÈÌØ}DŠøk™l–M‡Õï{„ÍCH>•˜ªùô›×|•¡UnX"›[?À§y¡d3w*(kY;¼S8¯Ï¢^ Sgc¹-%uÊù”ùÈ#~Þ‡YzžYå„>½Š% D̬G¬L¢UÒgrebà)@Äså²² Ê»óa"”ÒD}E?ìRùÔ­*1ÐãðYFX¶hioàa 8nàqv,ŸÄrÒñÝnÿ侇Epä|—/uÓZ&,køç` Œ‰5)sV2:m“Ê›š>ÏLÙu{ôv ÁcçÞô͸4›ýÇ毚žö‚N’ (ˆ ÓyFdÒpCaAxŸŸn˜ô9 :RR®§o¿¯ªµíFˆ;Â=Ï;jôH—[…¹• R.(}šßŸ= Ó%2>Ø(£™MîrC8§4Û8N}¶éÊnèVª4âFá|i09"t’׶ï^èjŽÔ4L˜Åm-ùµf?Ü!{E<è­hG5+”¨‡–!Oon`ïï-L´[æ׳RÒºº<¡}qÿg^d–áÃZéªsší¤Zv‹4ÃíàÉPÀ,ç†aÖ wy5»ÇèûÊ]5¶:~-ŠÔ±mc?çQ’¿¾=Ù¥7S 9”æËꢎa‡¯Öæ¥åæk–G‡q%É:Ù’Q¶3>­KT`x‡Å5ó iÁ>fOAßpêàö­S˜nµ|@`ßíB{ ©åóF;HÜ—E•gœ½]²v£Š!þ¦iŠU:æÉeJƒcÉŸ¤vS¹8¬ÊÚA‚Æ]Í´ÜÍ·ŸùÐ×ÿ™kùhßõ°•Þ¾•ï£~¢ ˜Îf)¶ÉPÓõ„yöY2QóÉ{ÆâY­;®¯™GŠ_çý˜%àµÚižñ‘«{@) ýTñc®ðaÜÛ7mRó“ÃüfRŸ÷oàrZÚo^¡§¢sWd'òéÉ!‹oÁ¤ÕN*ÑÕìÛâYŸ§\Ø'Â|üEðž¯o&ÛŠðe@ú±ë{2‰Šuîp÷îôòç+ñëø òËðý”ö€ì§Ÿ2Ó$ò¡Þ¬VeF˜Mñ‚yµ.¯Âú¤Çbb8¥òÛúÕÔ¯{ö–ÃÑ ¬žnȈš|ÁA Ð¥”Òy§ª],áÓ)sí÷‚ŒêSßðV™Ÿ˜'4/¶ØÒëó£p$*nß;ÔãÈÝâ~¦ëOB(üɪÁÕ›Aù g¶_ð2®àéË¿WÑÜûÆV.ØÌ£ÆIþß«^°*‹“ªlö}~Ûô¶C>Æ©dëM\¯A¦M²…éí›gW¼Å–¹ìÐ>SN]§§ó*xrp^€„;½íUEãÇÑñ´ÌCÒ¼»Œª›íöòJUûÞ„{m çX¦ íü$Ì2 G]È&|{@¢²héW4 "Qû¬1áV =Á»Ê?a}ß œ§´ë# ·¶Ì€§¦YÇ,Ø2Þ¶=J)½ÛeÊûÐc=öõhÚ¹ôçJRfá»ø*}2ÅA¢Ùe$YšÜpßžº”O½™ò¼SòÉ°­…Ü|¡GÝ>€ìŒ–ú—’à@ozMSoá¸Þ‚Sp »‰•æšÆ´˜$D ²~}ú½Ô\{ó|~&÷nj`ƒgµÔ¶«EDxDZ§7¹‹•Š£öó,®ìÕî cF²'±NÛ¥(uêãkÛK­èpN ž/øœØ%}¢2Ÿ7v‘rù-9¹5YÌ|mY˜Àl¥³˜=}?WmaúVçåM.* _Êì!°ÖYvgÞÂ檅F}àf«~?ëÔízÄkß‘àö2jŸTú€XújQÝdpÖÕ]x ˜U)~à5¡FžI§4Ù~€9DkþؾïrËøKÕtjå’“˜1Ô:Øõ픕?mrŸv³”?ü’p&¹Åh«“±ðà+7ùê«7xSr¦XóJ»mOßÞ”~7rÈ»ïÜà^Š¡Iß['_¹9óžÇéåd+¹#ÉŒZ'û­ÙyIW({G…› P> Ä@la¿³á­cÊh'ÑÈÛ8zæøô±Ÿ¥+ÖS¢ý-Vƒóô¦Î„{â‡"Þ!$™yUÂ$Oj•yYµÉã“·Cw£Í3]é3ä¼d Æ‚öÎÆò\x¥j*ŒßRªâšä뎯]a廹fYÛŠ;ŒìĶ?vÐ<06Í=L(ñj¯V~ßì1Ýèßb’_TOg?ßÐ>>ÍA=yÀ|úHEkE/dJ*QwèPqÌãó‰&¹¡[¿Ù;7õõ3"úkØ’ÞsɃe §Ôõ²eÉéKàhen~,Ùö…ˆ¤„©ÑÐ)K?{ÙÍòËĽ!çм¹,e½-ìY÷rr2_ûùö¡?kn,þn­oÿZÿ€EÖL`êÈÓPÿ´­Š4ËñvRó’Û ¾Jð'nøÆWß®‚€ÕA?Ô,Íí^nå€P›vÆêì²UA‡ñLíQ´ „<_ÊnwdûûÑ\“‘iä‘Ž±N“€«¶w…αÝ}p2”«¬ï˜Ê¥(ŸÅ‹˜Èû[a‘'˜HOM 褹oâ”–†º×D%0°æýôP üÄÌ^*í¹‰·´Z„{ \c&[vÑ:P&rY¾MÖ¨Öž8‹%M9ìk+¢5®P¿¸É,'(Õ%!sPô¦›U?†¼Ðí`=ÈÒxõÝ]@)ˆD eŠÞCȘÆÙ G.ž{}‡çvýĦÚš¿iÒƒ„ìÞMÕ´3 >Œ2ù–M.°+\š)pÐfÅ1ÂS<~§ŽfHq.èÐ\¦nÿ¡ØÃDÈæ+"bÅûºë!'Ë‹ØÂõÊó´üEÜ/O¤ï|¥R¼'£k}sè5Ž*ù¦—–¬Ç «ˆ;mºƒqºDð‰q9:?Þ•ŽÊWšª›ÿyÂ,[PJ"ѽÐѵúìùÂø4›@ƒ¬,ªqyîÈxôF`ªÏxfQ™wÈWˆr1/ã3·¾))Ûæ’‹B‰bÏ᯦±¬µl¶k¤¾Øš¹0Œ(å0íW«NøœÙïòõâ¦R¼ZÎ/>Î#Cö+#;‡Ò‚*¬û˜(è–“›:q½R¾q ×Åyr0ša]° 8`„ìÈϾdÉ8ñ\CÀ;º¾Eœž†ÈlžÛQk¤QüÑvQõm£út¡ ¥t¥¥ ž»•#+†ã•,ÂßÎU]ñÎÞKoMئ÷? Rÿm,ñB%ÿ$G*(?ÉŽ-hKmÜ›ÝaÂ|rØ@¥ä}ôÌj¯Å²^L-êUgôÑK€ŸÕF“M›HMQšNîìø¡Ñ{IÔ+w¢:2 ÒŸï©¿n0ç¹Ça•ÐÒê.c¼÷ºJ툹ÞÐÓ?²ªÏçS-Oªd‹Ñ·Ùj.B%uûTº7û"/ë¨o&‡ê¼ˆºÍÑ€B_®nOZðín$¾Î´Œ )«ûé„â¨èSoçSlaë`æ…þ\¶r"ŒbíΘK°v%^Y›µÂÆË9ùûkR•»:$Ð%´eŸ%z*•ËF}èÕGz è~ý¢¡2ž^ÉWd†fÝw›Kû‹1š°ŠºW3!#Þmqê¯|Çè GV&bš7˜\ :U·Å=úBi÷@ 4ý¸Öø*w&ÖY(‰ÚFAzl€Ml¿ÞjôN'h¼Z3¶C¶XW*±G•F'(4ÍvÃm¿¬&%Óq—²yÿ„m/®àmóÜ/$sÅí fÀ½a Ž¿j^ß!yyržf)Ö˜±ŽÜ~t¶ÙI"E&{¶ ab³y…ƒÒ²iV[ùüDE!ŽÖ·¢öX¿‡Ëž³žB*³–¶#Í‹g¦Ç `Nõˆ£â©'·Û‡±ïK~Gg7ª:´Šúj^aÅ&D/¯•—Ë”ù¾œÉ.4%?ëïuá_ãð#¡l0YñÞz§‰Õe˜‘Ÿ#ÍlLÐüŒµ•ZCO$Ò4—ÁçÄB6=tÍÜ›îPöØ3PçÍ ÁKrõDžày“IJ4§”x…n˜iò±)}ùé94sÝ,.F*;~‡üÆU¦ü°÷á³µžæëÉN³ƒ Ú.±i+#ptÿW-›Ž9S¾¹Á3V@É3¢m˨²ŸŸ®pI Ž Ýlg†&;n,Æc.úèù ËE†wÕõ¼ï\ƒ³ÕÀ;FSƒ†®‚™Ô¯î¬Mò£žÓe茚¦+Xn"¦úA—ï¾\5è­J¢õp¡ Lˆ‚ÀÜ{˜«/Ê)ðÚ”FïßÈÖ™(,}wŽ4S]!{š¬Â¾«>÷öt*5C§AZƒ7œ˜‘Wyá›!‡Æ§ý›&ó¤$ó;K&æ·ˆÒ¼aŒzd…WÓú‰T%É[†/ ¹ /€‹Ò‡Û‘gÙéûq ÷”Ç™TfJ¿r^wÜ‘¬í+/²£Þ£1C©½9µ)+òsmÑAð£´z"J´ÙmÝÒÃ>¸5Ý7²=³ ¦”«*ï]ÔqöÂ4£Mªç+*(zKó>¢Ç°„S¼mÐ-í…Ð3­„.ñV WîGŠsFÁÖ„'Qò3y—ݹ¯B¹ä9ñx+5jÕ{–‰Üª:Íb±ßÅ<îØÙr2’aàA…½H"& ð6_ÐêÀñQ¨µ.ü 2ŒBÓð›>¼I_-o”êëžñ=OðìëÑ_åO¿ãé¯YZ´¿?Ä-ìSjWÆœ¼ÔÙ­Œ›0—±wô`ÿ¨Ãf°"4íÓužp/20}.„5k1õ}¶´;B§êì°šùuA 4´ªHŒ² Ä`¿ëiÅcx±]Šw\°X¤9d§u½kw¯®‘­^NET^¦‘¹¯Dq·b¡º[‚ýã„7Öº|o,ƒdN®³[µ¤ûÀ0”ôHöV¹Îæ8¢5­Ê 8ïFIÂôX¢É‹Z[(õÇ›}’>ý²pÞÉwðƒI€üjnDd“pØkµÐud~ÏehËÛ¨ æE×Ëê’ñ$dâK}­›Ýœb@½éõ¢¡º‘›À`L  ã­á]…*Q ¤B°WÎeäŽl¨ üL9!ðaѵâ°I =Í­‚[.P]eÅD˼à\ê5óï)µÜ/“ÄÝ"JD“øî4ðpU²¶=¸[é](9ȃýÜã™÷ÿAœTfY«‡‚<ÒÓašáìáQΈÃäù²¶¼B)`þ¾míh%”ð›À\ô/E-ú?ÎMÀØó©²pjòöA”T‹èKÔë²—´Ç/¦IªîØOX§&›ívƒMUË9„kxµT±½|÷é€ã ÝñÓø\Á.aßÞο†È][ùÁR„¼e™¶cßÒÀ½eϪ QIj”ÏN%ë4dØŽ-FNŪ˜CoË“žªiFèÍüx\àȽª=:Z¶@³^¡!Mnð*±^'æ±Ñ)Å—yC«µ—ûl=8%è|Ã\»Í¨ÿ{â. Û2±Þ‡vR…šô\µN@KÈ&Šá;!0('n]B‰ìò“ÈiÙŸ–x±ŠwÕMn°½E«A ²'wÀ¥ã'Éü°—p+sOæ 3 sÀúB–)°¥bW¸MÆ|[N}‹šC˜àþÂxH™Ëä ¥µàÐþS“§Š6;-ÞNæÏq ®ðr†ÖÞöeÂ1©BWÌ ‰Ô8Ø7ûAÛ GÑ2ËDi³;z¸²]‘X–Ù§õôº‚ŽÅ &»ܦ_}:S̓?°çx»Rï!5r–%š5û)ªx¨*mZùCˆÂx_cwgdÒU9õ/¨3ñ²Hø~ðnüX¥K=ÒÞ…~o£cW.ëØþÄ^*¢¨@Æ^.Ú²æâÜqÖÈ#|*à¡Ìd\g×Za¨,ùéºfÇŽW—ZÆNNÀoθˆA¡Ÿ~TÅs1ø ÅXìdY˜æ®Ë tf‡ gÛ [V痢úD­GÎ B:¹“s¯åÙµ‹âˆ)·:+l‚V0 ³ê"vÙ›tð•Þ×±—·#Ý#ªÒ[˜W1|" –»–sµûǶƒd-Ú9°ßáEÁ¬÷¤{)ÙMOÅaòÇÍœöDÅyÈ<=¦ZsíwúuIȼ’`ýödÈž|ñæN­õxNÂÇg[=[ü¤“øJE§ÎN›c»Ÿ\‘άO>Š”:B^®ÛÆ'*U=’øÃÖ­œîj¶P¾¤­èö*ÃÑPÔœãëÕ¸*ŒìGŸ—SÅq€P^μ5ç)YÜÊX,¡çAö»B¡ÞiÐ lGxn¦b?CcéGµU](áªí!‡ümYö -»Æ=vq®]ÏÔxÝ÷&°³›#IÁ´ í»Çîä8#Ÿ„3O“Ù eÆf>u=ïTq[h €ô*„¼2I•å¢ƒŸ¥×<î6U•Ë›}¾ªeûìG¡ªÊ«È‘àcb¢óXÆ_¨O[›PùÑdxŽÄ8&^>à+k[ƒ‡ëKxNLÆnæPàìÔO!MæÛbI[9Ïûë2ÞìêãØèiˆ¿f¶8?:˜O ³;žæ¿†Ý¯º§*xDì9û 3dñFwùbO1ªÅêU?Ds 2üÐâ;YB‡²íá7-=Ì€ÇÌ­CkGj Õ5âÍö>D•üs£+Xó¹Å:á“ò†ÆOphUËÌhy»ÜÔƒ ˃µ®nêôBQeƒf®¡…žD‹y=8 <zfš­òºÖ"TMpä)Þê9ØomŽ:CÈË÷ø /`'p°üÝÖ)>ùÂféìz¿÷³ýÞãCnVo;d³Ø¼}Çï ¯Û’ñÝrå ®p{ÕóH;%°Íþ$_),FÖ^;Ť@àŽk_C$]ÙKµ òÙÛž­Â"ô ü½FTƒd´Ö~Ï°Vnl†•ÙH–7:“G1’î-•{ÂCy˜ÇQ¯5z'J¸œmjÂ._7¹†`×Hž¯G‚ûn¹,&>]å¦t©œ’¡ ?š‹´|ŒE4ÙWÿín\ ä[ˈš€V–…N üõ!­+!êiÝíÏûÛlÇôóŸ†^–» <ø|`ôšÍ)„TdÆ%‰m93½,Â~ù)–mè Ê.z£ë*òäϜػᨇ›Âô™[ãT“›ŸíÍÄÙ˜¬èÝã€aç“Ü×ðŒÚ¡}KÕc’öŽ`øõ-ómóÓ |²3ÿw# WÄr Áj AS£ß …¬]©çÐEÕ$Ï[ºñãÎ4]#OÌ?<ïXtC9w')Wll½·Í•_‚?aiÜ—æá(ó¤’ìÿ𨣅šMýèÿy÷–oÙ½å½EŸ* Ø0Å,5†{ÁŠ®us¶øøÔFžAŽ #µÍL‚¾¦{^ +ø¯x0y›já¾gq(¦»“çk Æ¡É]|5Wyê™øð“£Í“7SÁS<²d^;ÌbO3v£'E†“pÅ-•Œ|2ÊQ°þòkà]@gPƒÂèûªüŽ!ð­¿ïs´‚üP&ßHrEÏÓºYÁ³‘óŸr–³ )C›î!EN Êèr!Ù`ç´¨³"Jfez¿âÙ8Wy“ÃΥ˄7¶GîÚ…Ûþ&Ôˆ×OÞö*Þ Ï«SKºØÉÛ=^Ðfx fºWgÆzë¡‘7ÜÃ÷õÀ. Ï{gW;iü§m’¢d)ñ{ãµ@¾ð¤%ÊÚ†bÈ “dOëÕ([Ä¡J¯ã4ĦWëØó¦àd©¦ÅR¦~ƒW^LõëùŸµWkÙ1WÃÏ{ܱ4j»e¬Ë .µbƒ~òµ·0´ï_õu¿ÉT7ž@ëµHÈd™¸“Ìdê·÷vl#Û–²î³ª<̦ģްƩô—ÑS(cö¤þàØ€c|pkuüÊ–œº"‹”XC|äȪ˜3MŤÜûø§¾>iH8nµ¯k"¼åÌ”E˜«„ÍcG0Ë^â˜!ª<´ÊÖ÷QÈ€îd}ňXÈñ¤¾ª ¨6ôˆ~¡Æ·p¯(”Ê´}fƒs)·¿¹¶Þå1x¤nlÎ1Lö94Ášª‰•D~ì+-Ɖ€(,›HöØ#2M)êJ=â„o¢ø " Á›Ã>«\T»¡.°Ž×¾u¯ýÛP £€×VéŽØœü9/l5 áçZMnšØ›ü :rXÙÖ—¬œÜò*¢ú…hÍ:´™å¤oTþyöy€/¹ÍGáDò éÌ€äÆ)³Ííö›uù'¸dÙ5 ¥*©láK•¶›õŽE˜ºVÕ;(wŒ«"ùëÊz–B¹÷Þµ.| ÛÔÛÒ’‚+ìÛ”\ö³éˆ³Ú l2WÓDëÏŽðË€"ëé:EväÞ˜éÕ¤<ˆ&YÚ»O£¨¢Q•¡cÁ?ͧsšo2¾ñžL5³õ§æNù9Z–|m b×a/I\6 Žïæ1TýöJäk¾ÔýÖ¸S°8ÎwßpHÒ¯ÈÁÖ‰V©ÙU}§Ü« xµ)…3óŽÔ+5›ìHWI« Ø‹vÒ‰…:¤æÌׯl$ø¬höAqÂÝ’ia Aa‡VF/¦Í~}_±¬œzœ¥¹{J—CiMX÷:¯æK)AÏU¸Ï)ˆ^,DZéÁφGÛpKwŸO¥†¼>g¦ØEn nŸm•¦D›íÀ,\RÕøŽ´_ Ø×n°z˜ï×LfÔo¸í_@~rj1ZÀ¹Ÿècæe=˜ø¸/Ì»”Ï!ìœò¹êó„r/cqÍ‘mà¾GªæOÒ=ˆpÒyôc‘¢&Šü-l„ÈjºŒ¨;á·ÅÝÕÇÙ…Æô¶çüæ.¨´²Ö°œãתãSìdÕœG:­—¹ÞíøÍ-ZœSÚÍcìÉ|Ï(6;ùØ–/1L¿•uèxAå•-¥bF4WÇæ#nåzèjß!Ê’Dâ8~38œ—e£– 6ê#Ž}Í68Ô ßѲì©á¶rí©DÜ=Y\rÌñP ¡,Ç Øï{Bì©dcÓáæài­ÚT,³×cryѺéžý’5W•.c]ñQâÓ=ý’ázkà¹S™¯åTú牞‚|×]]z)2V+êGT€Ÿ½L#VúB¶_»Û½1 àbnÖñå/Di$ Š'1“/?qÈDžT7I m`š‰%“UÇS_4m/c9ZËh<2Â2¹À…õpfgpß n?Òy1&¶Fµ`àùê%øL*0ê?_ ýB®Qh‘ºRn×Ú $–gNf*ûÄw:ý¤ÿd,©…¼1F¶F2£mÈð.1Δ’HÿJYœSÛê¨[ÖñìÌ»;¿Ö®èêG½OrŒÄKkõt¾¯=ü‘»Ž!#KÑK áq ™ÈY6c<Ú¸~0~è§Wƒ<ñv<ÚwöI7¸y'[D/&×Sªô$…w•f^á}飰„ûh7öˆë¥OO´ÔÔ»’Cåg‡£{t‘8+þœ¯.=ÜûÔ˜“Y–¿Ùå]öLFµ4# ‚ œÙH?à ’ȼùתRÆjµI㨌·ƒ`y| U˜å:z·"Þý˜Òà¶f°9™ÊZ—írTQâé ¸ÍÎBß'Ú¿ÉòÅ•)…÷<®ççô6]üRöyÉm°¿ŒÓRI]2ÿãkiÂ'l„•6"*Gc_¯û%Yz*°¥VÍ·”ß5;£Õß *Ë/ëo)z½ÅÜ| ã*;YlXaûs“+sTwPå½Å®ŒÖ^”Ký’¹&ö[»i³šÏûêš› téÔˆUÓèãÈš™j|vìBVA·ˆ34û=ô]}õœÞä†ùý‹å› ±aþ­v(‡’àPi¦418ž…8•ÿøÐfÅ^uqx²SI÷þèõ–¡o£W])wÛÖd#È^ú6ÙÚ÷.‘‰¾\œ¤þn=>SrÖ¹~i*Å•Uzbÿ™}U&Ù;#«ÃtçtŠ ôî–ò[ÖP»ºs3³÷ò3¦«–xƒ\õwrÊæ(õNt 4¸½½ÏýÅj¡ô;º/n†d5€Çeí¬Q¡mB‡Ú9Ðyš‚ù¬ÌŠÒÝ Ú¢ùiü$ù÷l÷â_?µqzAÄ#¾r°©ï"‘»Ð{©ew®@IÎò)—®”wÜï}¨bºäah‘ˆ<1Ìù ‡Æ!iy2qpú-2 šXuûä\,*±°ƒ¬ ß#QóÅ´áôø7õOç3¢ýs÷Þ߀,zUÖ>äñ’$Zö¤'s¹/×:÷²;P»SßïJ3jªä XˬãÕ®E>4þŽ¡´¤ø,6ãË›ï>llÇ0)³í»!¢Ø É°×*-²[Û> stream xÚxT›]³5Å]‹nÅ­¸[q·â„ î.ÅÝ …âNq§h-Šw)P ÅnÚ×¾÷ûÿµî]Y+yΞ=3gŸ™9É #­¦‡´ Ô ¨…À8x8¹E²j:F<Ünn>Nnn^LFF] ü ÇdÔºº ‘ÿ`Ⱥ-apLÎ'ªA!€çî`€GP„GH„›ÀËÍ-üê*³ôÙÔ8Ï¡ &£,ÔÙÛdgƒçùëÀbÍ àzúÛ ítY[Bj–0{ <£µ% µaÞÿ Á"fƒ9‹pqyzzrZ:¹qB]í$XŸ8J.ñiÓ)aqÒy݈/hÖ`£F/ðã ]M2Ýu•õ&î_‚â¯d:cÉxo˜Äg./¿ÏÌà;+T鯬Ž "ìóœ6o,y˜œ8)÷y‹“ŒÀ¥lyZ"y±SÓ ’…ÐÊÍLáPGÒ0Ÿ{“ºl0–FÀ‡f÷¨Àœx^ßÊÙóÍÝ\8d­ÉÑöOë2dkm.G3OjùÀùýÈ$ÔÔ†îŵhiÙ•‘*â—æX´€P>³íI²k‹¸ì$^Ó4qð³á¯od5ÁÔÎc¶_nÅÒDŒDšÊHê´kîcôO9¿¿UÒ¤@.v[ßwŽöEžBŽ©ˆ§ƒ »²ö“Z”.?è³É ÂêU>C{ÌYòfµóó5;ºE¥„ç'éôùð t >ëªî dªc‰„KÍàã9—SÕ|©üðZ<¤U<íYwÀâäé#9­Ãüú ,­¾(f‰V®§\¼èf*ùÝÆö¥êÌÏaü‰ æƒÄÛ]£éàS¡¹•|™{½@s¢²€ù¶q7ñßw.šNò ¥¢ŒÁÑ©=Óæo>PuÅ?Éì<ìïbNÛñRjúy‰|Jd5ª(2LV ®lNh—]"ŽÖ3²Tí¼hEwíû`Û|ñ›ÇäJ”3ØÙl·IýÄù¦ÂEF@ˆÇ<.Ì·Q­Ä$ì‹Œ¥(‡óý!ŽådSï„ÁÞ¶s,©ò…¤ðÀ„áek AÃOEçÓËþ'ËDíõO¸žûX_!‡(<»ñÐä[úÊe¨!øÞ[ÚSp°cjàB)¢Ö†eÄ¿ZzÑJPh”0û¡ÐPSþTõŽwÃœ· «º­ª”æ‹ÉCê5MþxdŸ¹§ÓܯŠs}ùÓ@†J;[>õ¬ä(«-añâ†)u#L£ð@ò"P•QÛž§†Z!Ïê[Iõ„?{$GöÚPR¼ØÇ‚öÄÃvÊn;A–«vpDÓà–|bͶEw\m¨]µmZ᱉ÿ T¦R¡12O«ŒûvæíÍÙwm‚{sØŒhVχo™ÃîR,ô0¶¥D3Xz¯s}ý6¾×ò·äÛR(#¥uŸ?óB®¢D+š†%+H—õU¯‹6Ð~Ñ_™¼Ç‘m}ªmÈXôhÏ;L–ìkH¥MÍ­[’x6´QZÙý‚®òGsZ6é”öŠ‡¶lÚ|1r®–œ=&9ùÓ¼a’±\¼.GB’8+[ðŽ´òµ¦bEC–çB6Q‰òˆ’#‹õ_¨×M"uÌHð¡Î¨ž¦rƒ­¯ÊxùG7ŠpìãFµG\‡ï&L Únæ©[U5 ¤²”B#RÅV4™ãŸ¿[ ôHš}:ÄÐHg¯Wª&yÑp ¹–âÌ6&äû™T|Q“ÇÍC/EªH=YÀì”/-Zw«á™m{€Â[«$2´Mƒ5¬§Š[hf{š7#L»èg²¶Ï¢ósÛ=ßÈI39û¥ ±ÍB߬¬u™´±ý9ÿŸ½C yn¼¶Ì²çÞ+ëuæÃ535R¦ÖÔÏRê!B.Ì¡äÛT¢nù5ÄIî+¥æôÉeKà§ËšPù—+¤ÛŽˆŸ²Øp…Ð]L¾Ð¢^ýlŸßyí1ûÌлu~fJ𠜖°ÙâÖÆöŽ+q}ÝŒ5›Vwk Èçq­êxa²a$¸K‡®@4a7íÖÝ A'SZà,KPFœ`±Ð²˜¥»^•P?ÑI>uUNdÊ…ú‘#Ðß7jjhD*&ýå“lrkËqgÈÈâFãÌ×Yß õò„{F·{§y„¶ÏkêE$!›[Uú_6LJC{,˳M/v%gŸb#YÁ À)™öø‚IQ}楨Ú{„ufHšG´ZÎWï)¯Ú\¯:߉7§ïö mzÌS ;b{Ä“4)%{;‹RÈ|Þ¤8ñäNŠœj‡™V-çXù(ÊJÒ1†ø—‹=iwëÓ? Ækkî2l·´‰â„܇k©¡yÁgZµß8̯-Zîõ?Þ5nù#çæ cŸ­çÒÃk‘UèQ ï×Èç[¥7SÛÞuÁÀÝõãJw&ºÁ^nãj…TášÑl¯Àò„Û’nOÇ/‘dÔ×J<¬Bèe º¸Éþ“nªùûàÆÊ~}IP!a´Ïùγ¡A¿žb ›oÝì¸àþ&}§áíŒ5r—Òv²£äIçI'ó½íÙ„}P:¶t£dW¹`íIƒ™(¥P*¶£ áØ!׉Yå—P‡Z½#•K"/‡‚vNŒ§¨¯Ù­xêæÞ~ÃîWÎË©žh#ñ_5kr@ g]Ìb“F]«¨@ŽC®kÜØ|¡àX6yú ›ÈoEÐøt_SÙ †{$ ;ÚÉ(¶7Ðv„‡˜Oê7ÁG‹?VCÏž% ªxjÙ-Ç9ç²ñ˜á†pÎÅD½ï;¨ÇVÕ¸xÿp{í„ól9ŽcÊøø“®Ä"±£Ü¼F«ô$bÓ¹÷r0žz Í-QÀ›Ó04éÉôÇÖoÛO u ŽJ.mxTò ++?Ä8,V¢SB¸}H+k¨Öh\¢[,Ë ´ö}ÂfÈž¿m›7,¢(ìãƒ){st¿áDž¡4I¡/¢ •£—ÿ’ìì\«ÀVYö½~%ÓãÄUcÆf"Á*"˜F²e«¥<4ùÞ½#1Ü™-ÂöqE•Êñcq¿p2“e²ƒ(;•/qw$ëäéd»þ:¶ý`C•>ÄEýffŸãóÒT_X1 Ç—X ³º©ýY‰‹ªã«¸ÏNÎöÌä@ew&%§"nb¯–Zyûh¿=^Ñ‹üé—ƒNúC@?ìÀvJ/fßE3ØÿêvÚOü!6þ{¦O@ÃO³u×-[ø[)u¼ÿæV &»³tÐÓº§ïÄý*ydGB„r¾Ïb'Ÿ¤×6eÌ?ÁäÜãR(£¤iã.L‡iç®µÇ rÒ=ñbÛS÷àj½nÎ99Ÿ?„6JÕÕ¯§?˜ŸîKOò•®kïõÈPë_0œ ˶“$:ˆc¾4•Tî¾òõD©5Çà»*V8¶›éià%“µ»™s(]VI¸Öåòvât fµweŠ¿ -†:²(qò˜§FÓ–ìFÕùÓ9Á|Á‹N”'¯]‹JM’–ßyX|Åîlª¿‰#½è ôºRdxȧ +ÞŸàô/hÇúÚRFº4Ñ­ð1+Õº®>;)Dœ¬ú--é#¶±® NT®OÔhígí,R /³}p¬[»¤úÕ™”2ò–ßHÒ¾wJ~•“à<ÐMëË*í^¿zöÉ‘t6 EÌû:WÝÇ2m¿¸¬k³dè¦ÞX<æ}‹ßê(­lÉJªvجS¸ý`”¾i¢‰CEÍJ˜e*c3‹§Nb¾µ–BÀ['»ejñ[,ʸꦞ¢8ª#|Ø_¨`OµÆ­j+ðfv:tËÒÛ v¦5ïF,Õêüò}“¹D=G±ñd %Sq°ìc¯ƒi#!äœÏPâyä‚ÜQ¸úuø£.+Uœ¯ ©•‹ÝÂ3¶Ý—Ý#˼ù®¡ë1×K€ óh¥>œ9Ïõ¶kÓ¢ ì.ÊDâ›×¾òÉÄ£Åý/=ƒÈײ8ˆõ×vì)`¹—>Ž ŽŽ ¦üµÄȧֶ­?kñ;d‘ Ò¥ÎÆÎoø^]f8Ó€µj_§hmgE#[­•s9Ÿ?j:ýD7Å¥[aê²ùý¬4Arä€HëÚC¡“J¼/“¨ØlOj°ÓÙ† HèÃIãAî›oÌl$w.†Aº g01ÊÙXÇ3.tÉr^'rÖ¼± Û‹¶Ú£´µõÂkoz–Z Æ/¾”ø¥´ZÔ¹\ÜLn«^m¶;2•ìU³®/OäWOL`S_ì4TžÄi½aøÉðVü1Å×Ϲ’û6R|Ö¬ø¦|é¸û³OfÙÔü•žôSdíç‰ÊÚ¼YËDquî"¯ãyìp—¯@@ßeîFK;Rd¾Z—}‘ÞîÌŠ\Íz‰zŸkN“MPÈZ?ËÒö3§¸ KM­³©! Çeȃ©¹vôJvu‹O¡YÕØ­ÁSWÓÝ7‰Ä­³}¢îZ3ï%;Ç«êò½—õ ßõ®5é:TÆ#"Ø+;§ºBD’Ü•,i—è JÊlÕFQ;G4áw„,Fʉ±`‹šïÇ¢³Ä;ÛÒ“èJ"5¯×Œ”¨¬xRšÖ;”†}[=C‡µÍŒ¦²ÉqŸb¾fP(û”®$·p¦O!é|†æ=•ÑöXs…QA¼#¤oxH&õrá²@Qe^Ó¾!@½Ñ¤YyÔ|?*HýT—ÄgeÚcCl&=5ö6ø‘?ü[Yžgî9sçÝÚ2ƒ…¿6*^Ú—ÀeAë꼎¶…–çP÷çB|¯ñ÷Ï<Öö{.U |sÕfVø$?'Ä•«™þ1 }LàA“ŽŸ‰b¸.Š&C“Œ]jH”À©¹¦,*™O«[àÄjq#9DºÔ3ݬ MŸ2Œ¹ÇºKhì r RƒIx‹×F°m[É"u˜átÁ)¥]ë ÀÌÍ׃%i·ç^\\ÍçÅÐ6é&Ì„ª‹9Ðo£ß3‡ì tòTÍãöŠúÓà†¿P |e=Ç"2L¨—¼ Ø 2Îâ§V‰²‹D.Ü-ê+ßÁ#’ŠÍÕ­JÌ2[^Ò1©øYh©ø-|¿qæ.‘›ëÎt7ðL˜ón®´cÇŠÂCÆš=P¾‡]{D $Š ,|aئ)1 ±»ÀPVØ‘샥Î'¢êèiŒ[á:ðÊ:™­Ô’v4øéX\XÞ…8fXËúö˜ª„$¸OL¯ôígõÅgªP‡E·Ï¸|ø‘ØYô”ßÒ§`̆i6ÄÂìòBõ§ê›¨èY6±Ï|MÏbÚ^qE’c }ÃÏëøO\lCáAþÒ1Õ(ýòžÆêLt±—E›%? ùJHAJ61à ‰'¼~VM—óÎ.E&æUìøà‚æqü…¨Œ™V‚Fy ß6,¾†PwHC˪òîþC¾¹*ðÞâ&M&CïªEˆ?‡0±×@ñ–Z0(OrþÝðÈþt]Ó#jüCûM$Ó˜«ÓŒ»½ŽýJó}^±©ëéCìÈø‡°'}u&¹õQäÏ îË5¤ŠÕ’”CVöp`%M󨡳/(Ú¸¬6¦úÏÔôˆG¹ÆÙ•·x „%lÓýË[ø“×Í|°Èæʇö‡Šˆ’~?ºÒÆí‹ãÄ9ÌüáâÕû|Äx#BâÖy¨€#ñê} =c šRò „§U^ã~nµn^GÅJyb *›‘ó(ìK±ÚŒ'ÉÂœž®LÙëp&à"?'cn©»/Û\òTßzÕ` ®‰f¸ÖXÕÜ óì7ŸŒ–玡UYá‹ž£3Ûšúaçr/Ì]o+?Ä"êL'~?jký™3ÇQÑíhVvì x#CãÇ· ÂQôRçäLßÖÕ2eARÙt•;Y$.ϺWNÑ*—Fu>1ÔhÝPOɪ^ž'µ’xezb|í.¡ Wh]ÉAa   Û”O‘øá×,jŒ7ˆíqÃxMó¥V×äÈzÕô$ˆC§˜¡Gá·Z‰æs óðšq·ÑJ"q7ö6üV׆.¥âûÎ;Óyp­×WfAϳ A÷²ø=r*Ôhäï"msXì¤iæ}äéósK·uåç÷Âòc+úËœG&9>Þɳ È@žªEÇY méC –Áp)ßDqo‰žÓ¨M‰ŸIµ;ÞRÛƒmzk?Ñÿ¥Ð¯$:lí›~*æ-c%T¦eòJh?E‘*üt’†ÎaS€¼Øå¾¹ÿ¡ï#â6]fà³ûñ¨1­Ä"ß wciç³ÙšT2ÖÙ,ß„¶:¹Ÿ¼øÚe}x^ïwÐi¢´Ñ/W€s¬N/}DÛê3•½g_ÈFy7¶íìZ樆Ý"…*Õdê}Í—– î†é\m0R±îr9k_¯,ôVБñ6¹cfÊ“®ÙêÜJϘ)Ð×·•~Ïüºc¥õ–ââ´NL˜ï0x H$§ðAó GÀ_ Z`ä$Rñy¡þ¸ &lçvãŠD~íéPŸwš@\JÄú˜#ø¹õ°þ×"‘i ½Þ©V‰ž¨ÏïSèðz´ Ú_‡jÜ}ŸJâgÓð¹iç´n=w°N­4bº]]šŸŸ J8Ü?"L5"Ëj¼¼~ºÿTZ2ª¼ª“Æ•+yû!&k ÇÔÒ³Që^v¶Fºt§®(Àí夲FÏÐ!gú‘[…¾̽åÚýµòy)µRPJð¢zõ‹I3~æãÜ]«ò‘Ž š^f•i Ogë ]¢ôÚ¥EóìK¥Lʺ똶¸å˜ˆ¤ó{*ßôA’/þ÷J=NÆ0hê×Ä•}¡ÑÊîÕ¤|­¼á–î+ÄR®±FQ)õë°˜›v…ÙkkLºÊL,¿S"{êçZè2Ì/^!5||ÌøA°oó-ßnísV4é;Ò·ìº}gѽǥףq®U¼ ÕìwꉩRMò>;J® å6,~íWïšØP}¢–` …n$l´Ù¨œv¦Ê¹ûÊXßW]“:V*Ù+qX„X!$Øò%Qcò ßVFƒU%¹F?Y¡T}L³š#IÂ]ˆ›»«âWù.ó¯¯å(èåjë“~j“µ„¦º¹XÅUÔ /‰¸ ÊP/æ_†dËΖóY-Ÿ ‰(Q/b9e°EšÍU dè%9Þ]Z˜"Ù©ÛmKG0R×Å?†{ÄƧ¦ßwšœÓ÷]/ > stream xÚvT“ݶ-H ¤D>¤CèE”ÒQz I€PJè½)MªT¤7Qz•"R¤+H—" ÒA¹±œsîÞ㽑1’ì¹æZ{­½çü^.]ƒë H¬ J‹Á]†Âd%-q…Â`" ^^C4Î õñÞC¹¹£±™ÿEPrCÁqxLŽÃó´°@Ãà „%d„%e`0@“þë&(Ã=ÑH@ h`1(w¯ÖÅÇ mgÃoó¯¯?B–––„üNœQnhhÁqö(güŽ¸`€E Q8Ÿ”à—µÇá\d„„¼¼¼ pgw(ÖÍî–ðBãì}”;ÊÍ…~ hÃQ&ƒ‚xC{´ûÜk‹ó‚»¡<à„F 0îø  åà7 Ôï:.(Ìò?ð÷la¨ð¿ËýÍþUù G °Î.pŒcØ¢P€Žê(Îàä/"Üɋχ{ÂÑNp<áwçp@UA€ãü;ž; í‚s‡º£~(ô« þ”U0H%¬³3 ƒsýêOí†BàÝGèÏÍ:b°^¿¿ [4iûk¤‡‹Ð] ÚÕ¥®ü—‚‡@ÿÁìP8@&-!!& \”7Â^èWyCÔï ð/?A€Ÿ Ö°Å @Û¢ð ?w¸' À¹y üþwàŸ+°0€D#p€ Êý§:FÙþYã/ß í ˜ÁðÚ`¿^ÿþf—‹qòùý÷ý ©ëªj\û3ñ¿cŠŠXoÀOD¸.-&‹‰I’ÒÂ@À?«èÂÑ»€ý'Uc‹¤ÿ4‹?¥5ìù÷þùÿzCøg-m,^´(€ÿ?7‡‰Ãø7áÿo¥ÿNù¿ üW•ÿ—Æÿ»!U'§ßaþßñÿ# wF;ùü%à5ëÃë_ ‹wæ¿©F¨?žÕB!ÑÎÿUÇÁñ>PÀØáµ|]X ûƒ£ÝUÑÞ(¤.‡°ÿ£˜?øÝ_NsBcPºXwô¯G > û¯Þ^GüãÃ/Ëß!Þ=ÿÜWƒÀ"ÙLD\€»¹Á}@0¼šDÄÅ?a¼‘(ïßB„ ,Ÿàg l±n _׊W„‹?>ý£4ÂÃÍ ï°ß Àïû¯õo;£PÞ(èÃ$q#Ü¡&¼ù¨JÝëúÊ éübkT‚Iw¤8Žo*×ÏþY¦Ú¨«¢5²üÒÛ4Ý÷Å÷G&ýÙ¿ y›wd…Ì¥ÞÎÁ¨t/+n_úæø{‡ê2Ëf7,™µL÷-QLcmFlv5Ùhò,B²St­bõÙV÷5SéMÀ(< åJeÇ=TÈnݼcÂųˆë71§£w3K÷0T¿;üãB :îP±9–õØgÙ,.£v¶/«§;Mt7O³«R¢ü>+£¯WöÛ¤^V¦Ä,Wî|ŠâJÅ) WX œïóÍYKÎŽåõ4%öŠzÔÙi+…Pê¼ôxÁFB¯_ò%¦„3‚ÛaP‚¤iç ã'<‘´¢hÞKpU¾G»-ÊË*¡”[ïñ¡•Ö> S() è­¤Q)19JÎ+§ý -õÍË®²˜»4"=ª™@ã©Ä{O)ÇöþþÖ‡«-=J“µ˜Ø6‹× þßèÒ¼iγ§A¥ ±«—êY°^)øXyì8tzÔ»³%m%†D¯;&FÔ»Féf¶‹3^uV¡räYæj<ÖTéáƒH½©êµZŠû&—z&ÖoŸØ_@(ÏfÉ;Œxt6Ñx7Óp2ô¡n ôò¬¹ —AË”|yH· ÔšDg©œÊþɦÙéÏÃ]Dpwëm²þ`zŽlFokÑ\w„>Ë­ÈÃþ/¿ß˜|¯¯Nµ*c™Ò²mxÑPTcš†Ø¢Ðs_^0¬¿æ81ýÃ`Ê´R¯ÆBÐr–VÝȨ:ukºÜ)AŸ÷¦Ëòcú&É[3¤4U<ĦóöRænwóœ;Ú‘Gš^JndSf'ÿÖ®@+ËyúŪy“P“tXËÉ&Ü:­ƒÔl§ä– ›:Ý^Œp¤'y;~7&Îùü­ÝdÊ'swZa:Amí«¼èxMµžx´¨n¶­Û»3FzúqÃÏb ’à\ɱ‡_·¿¯ñõ0Û@»Î(_žù`)Ävèaé9a<Ådš Õ|'úü?Õø¾ÖÚëÖ»D[æêv _~Ì dvxðVvàEÕjc—ç±õSÙˆÖÞ™EÔC¿ì¶{Ð “j¶x例¿”J§ùã‹#½6¶¹ #QºOÎ[9ú¤´Š¬)™Ë­…Â9ž¶R#ÛþvUfŒ;¾âœßS+[iD-g))ü´··óßü´ô{0À¤¢{›³‚Œëu÷ñbXþû È~g=ÕË,ºC#l-* ä=Ô™·VlTÅèNÒ=IŒªÖ¿/õ1*™ lßÙå·A{” ¬µL|18)CÔÞ~('.gä#Y $V¹ÓEà§eq±ü¥ÊYú‚ðæ÷¦y~* ÀúÔ»æÏúäºM%Ÿ÷VâR½Í<ç á‡Q«lù°ôCSc0öê'åŒÇGö¹š#E믤ºËt½íåw+v”Ý4úç¦Q¸îöÌz®›.Ÿ¹ý½crcÚõÑu="‘{ÅŒ> {÷ˆ¢g[—Í^ª ßVxE±»ûp‡iYðaRÅÔ†:*ƒ‹Ó_ äï0‘3š¸GbÙ„fŸã ¹ŽÚ(‰øNÏé6ÙJïզ‚.W^HÙ°‘y{d?õÇb>|yÂpOViùýÜ^[»3ú่Z’{EÝXÙ–¾¸XøÜê#ŽV»Uœ˜íõyèj «îjtЬõc<äJµéíJ‘‘нj4Βݦ©7⨴33ÊèGŽØÚ6µšÛ†¹5Ô¿ð·úΖyq -R˜®Ž’oš‹‰Ðìª?èZÀp%9¥áÒæw‘úúÃt¬.Y²w'ؽ¨GØ꤫§ ™î¬q±iv¤PtÌ4ãÔ|0öBÏÍi^“Š~-“¿?Ìyêð0VÞZšêN…!…ªZ™Sߥ¤ycÙhÎßéž7 /‚¸g ÅùƧå³'/(ÃAÇ_+Þ ª y·R'©`´BP—,"h}7ŠOäƒ@ò\ l¨`,Ž€PV”IÖø^XÔ‚0‚öÍTuc2lËL3úƒ.A$|MžW‹ô ·¨Jç8#c8ã¹7\J•¢a9,þùiKÒÜö®½×ìñažŠd‡ˆhQA¦@5.Ž·Áä{ý÷ûsZÉ-í_Ò‘0ÍÞÈ?5µ®QÍ2W–K0•>“A×Ûˆ‰YsUuâðÿUoÿ¼·òIÚñBßîóŘeýìNï•Æîçë£!I Ïu¸hfIÊ6'¡Œ#H_[OO#sÏç’“zžË*ω!Hïìß#@33úÛH£“~ž;‰b—xá^2Œê‚ÄLrÔD^—l¤«þ$[?,α&\|:6DNïžeˆz´oøIj.o](\ÙŸõîœ}cîÉΡeí¤‡Ìô̇t›ük.ªÃêaæ¯>ˆCï„:4MÏ_ÑÔŽ¼Wñ¨qeáí;½¤‡«O=¦#Ì›ï^uÚ ‡xHËQ.†Âú?/Œ½K( Éß ßž‰ÏáºT¯ƒºMˆ˜TŒŒ¦ŽŒ&ª5œX•Ob[shHvµZõ¹O”l™êž\´ŠýÊN™ÜË)Ý‹#í±¾ÈÜIë'Uã$Ò±š›dÞ cÕ~;Pa;ÉÐìiå‰Ö8v ‡´'­Ú—ìËj\ªßÁJ¤=ç¶ë¼)Üöù˜¼² ƒ€E,Ê­ÉžV—æUQr.´å*ô)Ö~Ñ*(ZiO ¯FY_«Ö˜ ¨Ñî|SÛBázLÛÛ‘Â6}zmNµ¿3N[WËp§qaÞ‘G°>VÒ­cÐùÉ«>s¦ùN³ñ¾‰ä¾Ý°}VÒ«gC|7CÎUHE*#— ÇFõmÕÍ»ê3¾Lzbué˜uú1\D;ºáãì,þÀ¸ÎÑÎ¥x@L,ãËißG¥`âeš¡E€£bS]àµIåšbÕ½Ž¯Þ©Ò5‘.5"i9-1¹wëUYžS¬Ï“Çeg„’ Ëÿœ búä;}5‹*´4wfëÃA×Bz‚c´ Ä’\¦ä3mG¤»$:žŸf'Aêó†Û_õÆø‹_Ö¨UšÌ»,MŽœ†ø'ù-Ÿ²äM!“™mAäÞa:\DÔ7Š€[ÀëÊÕ9‚ ‘Qm…Õ ®Û= ÔVš°ÆÞ¹|²‚%…í3y 9œ—É@:à]=#þÅA2>J¯õ,C?‡ ÓMVë˜ÐQ^²/Úôê³×ÎÃLÞå‰Qç»{ôìõ¡9òÈ ¶+‡ åîn*¾{'ÒˆÆyð1E0L…Ä쀩í8—§ŸÎ–rÅôz®X`¼4üÉÖÞï¸Ö¶Æðmƒ9y?ã æfÛ­æ©!R–oêa7†j?6b„àîï‚+¥ w¸ÜëÉ=n²Gô$éÞÒôEYÙ¼äf“ò­°kû!Î!ý6bjÌH€ v+µµ@®¹Ñ™ˆn¤´”#ÃÍ¥†0’Z54áãǸ×>ªýåœ×fz£¢JÔÈÓ´¢ŽãÀóØÐqoÁA ÐÐæÖ„ˆÕã ‹(Šèù¥GTFJ…å(ÿ!¥–¨ äPQ‹t“ _\Mk»ôž.yö˜¬jIÊZH“‰¸ t2Á+øY_ß#°Y‡ªµàæåŠÊ Àó"#Ûl.d÷…&Ô„S±$ÁõòtÜÏëfÉ¢ÑÏ‹èÄl®d  Y'ß(ßOOlžÈ·Éy0ÏCÞÍ|·úýbêÕ!]Fœ«áF¥3Ä%¡h”aHæÎꤡO8²Ûº/êœHĪµËå¾ J³w_ê Lò”º›¸>» a6ö7 ›!'†Ïtéz4;û€'‘¥u ƒÅ<‹÷bÇëÙ‡è»aý»‡6%d–¾}:»óN…Œ`qš.¦…J%Ö°Þ¥*D¥bÐ^Âr“ŸÁÒ¾v½iCïÐSc«^©õiÀµõ3×Eí‹Ñ3ç+?Ø rHP¯{ÆÚÉbÍ5tuÚðήÊ^Ö(ïy2‹ÏôùWz¦†Àf-mεïÜÀƒµ›ßzxPzœ:Å:Š“†Ò‡ÍÏvÏHºW¼ z;è8ŸRº­dûú´Xß²6Ÿ ó>\îTõÕ)¥#¯)£Î.ðÀ°˜œï¾³·Ó”³.›ŠŒ2Ã~ÎÁ¹Ju¾y/Mv½ébr?ÊŒKÖ¨tˆYý4x]“qªÓkv‘^eæ‚þp'²N«n²ŠË«KWÚ{¾¬>tªÛM4N.Àe:K23QHèÞF¡×Òòû·ŸÉ/+:¿QAÓq–wœeiV´m£ùêò ÚXÊ€*ôSôqëlüBO³¼}»ä(¯G˜>{Gt˾NV­å„¹Øí£| e‚ÝÙ9ß¼­Çg0jCÁ+ôÊ»]–—?+]<ù´Nt­˜ Ï´ë¼>óTJ¯¾%lìx¥Srª¿Ì¾2®†eQ æ©gL§LÃßïôm®ö5žOÐ敇vÓTTdz!H…Ÿ"Í«LyÔ¢mByh'´_²øYÊ=çK¯›f²úf¤ãhÒK¡Mþëý:’#µj^1Zñnn:wó.¿©8ÌÖ-—L¹Ô÷4ÓÜñb¹çJŒå®´´ÎÀêݲäî² ÍUH`Ó ªDÎ89^Œ®ñ|äûd¹gÎJQËÓ¨AuÅ pÿ‡G°aKy'Ê’CDº XwIp*|ˆ^{!L“(¥é™Ìç‰é00`ÚÍŠ‹ó=Õ T¦o·»¸š²1y’ápÁƒ=+ÕÂãìb¤ÑgGSßD©;+dzÑZ`ûyl§Î¯ÍírVNº3ãÖy5EqG¹^ì­—/{2’t«¸9$S›,®ó—Îuûª³-”_{”üJËÉ祋CåÛ«œmEõÞŸoEŠúo¹7}äÁ("¶°Šdš…ókH­€³ºpÁp(kCÙ1ùt=ŸÙ^‘º™X-e-Jªç•Ä ÙôÚÑež6“Ôvgá¯`œ¯´EÝá= µ9w¿gHd`–.GøÈ¡LIËWaLx(ùŠug»©»ìÕ#¦ïyéql­Í¡¦ÒÍɶ‘»¦”r£­Í¾æ¢GØ׌ﹴˎ¨ÓòWü¬óúäî4óD&y“Þ¤ïýÊYòùSͧý~UÓZc±åwÑÂ߉#•Ižé¯ nµøEÍ »4EsTx| cþðªcçRjg5ÍYõ@‰š­·Ê¦ñ,JÉ`Îk¿Ü!_°"Î~@cDtÍ edê›êñ~b'"v5’©®Ñ+.ò).Ô°œ³6­L­1§£ŽtÐö¨µhØ,uâ&¸zÄR<±eÃ÷þGñδ27£²D9'÷]9iÔg,IÍbÓùR\ÉÜ̧jù^™Ë'¡.È­St(au툕e©rXýgoÚ͆Jĵ ’/×¼ó—XˆŒØId³CØŸÏ*®˜®o¿ô( µ­ñ§P6'ßKKÊá·pœâç÷÷ØFi\t:§ê“Ü–…ôkÜ0t¶Öí+íY˜Ê]®níÖÇLoý„¼€%ïmÆOÇV̾*íÝG• ]©Â2ßfš¿ëJ¡~²ÒsÁBßm¡t†Ò rf|‹nÄÒú2Á þ”ò±«¤Îïˆ{WŠ;ˆÒígò,=3éX¿­2?õúaGPUÂ'–ÿ¨2-¡¬ÄéÍ÷)1$èñÔòÞD/tûÙÚ”Pî]…ÏWkª'R¾ÕßêúEþtÉ{ëZ¼¢YÓ&çÚ³$:o•¦„Ž h›ÇBEkh Ù÷Îh"œ]áCí8ÈÕ²C¹¢[­JÛŒMF¦åzNÄd5ÙÌ’zâ[¯´Þ0¸mcŸ“ì²Òl}¡î°¶`¸r@œ3øõ‚‚E¨jH7m{U ¦¸RU ô¦MÆRP9“rq¾•Ÿ ½wª| ôš/&ã¢O Æ®)J˜Ù+í³9xªd´VœŸd³rÜd#E¸¢Ë|+Í™pW¾®4Š9\mê”ËrÒäY=8½¹NTøùü]~Ïñ|©ëe‹&ß…YjãWì"´7v·j!ˆfK9&¦ ‚©Š+­{ßJJ–2B]wÝ3 µèIKMº´(3"e“‡«w»ùÏÛ’7Á¾Ù ŒT滚‘ŒÅJÇ>QiÕ§ˆÜúmúÔ®÷­b‹2T»r|{¥Wký îBä-.‰,9~È/sZƒç*”+ö†M´¨›-½Gï_Ðxde ¾Í6¶º”›ÑEéÞ,<§Ÿç®=ù:°^îèG“ ¹F óQ2àhrhørwª0¯v‹VQa;…cø˜t—'ßž_… Ø Êç¨"í×2ú•<° endstream endobj 6488 0 obj << /Length1 1387 /Length2 5968 /Length3 0 /Length 6926 /Filter /FlateDecode >> stream xÚvPÓßÖ-Ò«4‚Ô¡£Ò{ïE!’@J(‚"½HïEš¨T¤£HGº€ÒT:(Ò¥~±Ü{¿ÿ}oæ½ÉLò;k¯½ÏÞç¬õ›ðó™Š)ÃÐŽp 4 '‚äªú¦ÖÒHIPñó›!pîð¿0¿ƒE Qòÿ‹ ŠCqL Š#ðôÑ(€Ž—;, K˃eäA €$÷/"#Pƒz#`} @‚c©øUÑx ÂÅGØæ_A'!XNNFôw:@ Ç œ (€>ç Gvt‚ºLÑN8ÿ‚Š®8œ‡¼¸¸ŠÄÑ—B¢Î`ÇÂ1Þpà×À(þg2 ?ÀÌýƒ›¢q>P @ÜNp–á…‚Á1ÂæSm=€¡õ‡¬÷‡ ø{60üïr³B ~'CœÐH( @¹œîp€¡†ç‹@Q°_D¨;MȇzCîPGáwçP€†²1JðïxX' ‡bî¿FÿU†pÊê(˜*‰„£pXª_ý©!0p'±ãÅÿܬ íƒòÿ»pF `yyˆ›£ž^pmµ¿DõÌŽ@@rÒÒR2¸'îëä*þ«¼Þþ;þ&ô÷@{œ CÀÎp•?ê à0^ð@ÿÿøçŠ ÀN8€#Ü¢úOu wþ³&\>á °´€~}þýt› /åŽÿý÷ýŠ«h©k›èˆü™øß1´/À_L &'%K«„@FVøÏ*FPÄß.@ÿIÕF9£rš%œÒ¿öþ{ÿ‚½!øg-4A´p€à4n‚€œ_àÿo¥ÿNù¿ üW•ÿ—Æÿ»! /w÷ßaÁßñÿ# E"Üñ Ízáú×G\€úoª%ügõá0„ò¿£Ú8(ÁÊ(‚–ÅÀR@ÔÕ@øÂaFœ“ëÅüÁÍ9Í‚¡±ˆ_¯Bô_1‚½œÜ¯,A–¿Cp‚{þ¹¯:Ê ûe3 ˆ4ŠÁ@ñT ‚š$ €?˜àGÜ÷·â@GHf 8£1T¿® ’ˆ;B1¿Ðß ŽD ¼°¿låä…Á÷[„>þµþmo8ÜîD55vRxx·úaÓa•2‡ØâÙÜBKd¼ug'ð᱿«y¦æˆ§Š¬ür_šÑä³°á‰áo‡ƒ¾víÙ÷gSµòpDê_T¶Äò{~î´»À¯ÂÐW\ÞˤE~aüž`ÌEï`Kj{=Érâ$T¦Cr¹b©è´»l#·@žì3ð¤ràb•s[Ö‰£­y®-àz­íâ.alӽ̴ÍߟG#âTšbØâ¿ØÆeôÎÌtg¿ëL“Ü.Ð}S)]ÆÄÎì§Ã“Û—ØÅÎ’­S‡%Pì«>K‰çe/F† Ì’ «ÇÀœœ×âÞ²ƒ€λ}ʈˆ ‰­ÇJW7îV(5)&ô#'žîú¥¬®å¸Ï1G¾™Îµq:-öñ¿Ídh»K¼`Um»iK‘>Ìf`Õ¨äûqèWä±—J”5ÜÉp¾ÎÐ}.›:gDaï Ôö’ùyµ„W·“Qêf/»Ú/ ï[œï^=íIæ¼(åóTØõr gó¶bâRVýÖ«"bi¾{L©M&¥—‡š ÉmœÀ|¨>mJtÝë€.»YAÊU ð̸+ðÞÅ’µ˜A­}ý³Ðqòì›6¥g)vºúé¶eÕO°ÒOçV¬äé#†šŸBBh/(ª¼jtL»N«ÎnØú:½¥I˜»IBuCbå&¦5µd3C[˜ë3)xØ4.¶<Å­“. Wýh=ÚÔ‹fï™±\þõ|Š´6ò-]¾˜ð%y4CÒ¶üàç¾ÊgìÕtß²yœw‰.¥lÈéw³‰bÃa»—[K¡æœ×fµô6ìÛ&/Gô@%Žƒ;™Ø6…ödEÇøå!/¾|¥YGÙZL0Ö©DÆ}%i¾"Å"É]ã¦&ZÆѺÄÕᾶAöw¬ lo/5ɧó—Ÿ&˜<Îë³!)Pœw4ô ’ª¨²Ž|×2xµL“˯U“×!{´—ÕÄ;굑ìqAèþõKTTÊspÎ][úê2Â%™ˆIœâ§ãuÕç”0Ì-cÕdtå¯ÔOÒçÁë;s‚4²åG ÝÌgró}ÃMU%×ÁTœÅŸ®‚Åñ*‹Ÿ‚ýí]a¡'·_”›y\ˆÂ§w':¦œ˜,ó5“´¾2F€”3׉ˆ)™lí]™/°õ¾19‰ôðgâÙ¢1×aU[±¦X<ÔÂtqp4ê:0C¬Êå3Þ‰Ühæ–”.v‘©á‡R—ÛðÃvKV¯—›RVĮߗ=‡ÝqZŠ…†—+\ºžwµhŽ‘O~æ… ‘7ó·ºr¨’ÒÃ:꧱Ɵ_UÃÔròò4œ óÑPVeE)7— äË…ìTM­…ñ@²ÓíT´„µÂ–3’GŒQü4DçÏ£]^=1ÜÏQÔu4žzd‘Õøƒ{ÍxÏWô ókí÷Ç S¹zô•îÝ »{=ƒÁ3<ԯŭ[–«W1BqZù0å'5Ô ’…ë¥Q´goRµ¹aEq*<ßH*%-µG{ÛKeV#± K2¥e «‡ˆÙGõ:JÚ*Š±¬Ãl#i®Ö ìÀçF0ŒyWã¯ð4fë{ƒèjD”âÚä›YÔ†«x«cKÜÔÏFêñм…X®,-’'Úe§nM¸¾cîe#¹}©ï`Àزº)mܵ®ÛÔº‡7V¢–eÝ?^ä\Ý­ø%­_¹Á. ›oŽÆR Å=3’žRD6žæY𨂆“²k5—„íwb?€ûü8>@ŽÞ‡ê‚ê¦p'²o7¸®ªÕ8‘<V̦H÷}¸ñh"˜íí`Û§¶ð|Ié»WŠ÷æücN{¨D!U²­ÂA}!œ=ɚ̟ôÎ*¤ÕÖ|OÜî%TŽÇÒ Jäû ÜišL Vû~÷ͽãƱiZÛ,ß[ôUíT…)—Eúó-+cy£§ø2)× ˜¿¸ßÈ£K‘ô|(òGª Œ¼R^‚Ä!0”ò ‘Bþߎ¾¯»4 ìYEôÃöŒ)n+÷hò *sîR5]éèÏù®VÝ—÷IV*ð2ï­ç*÷‘Š+°Ã­³@ uØf‰{!=¦« =T^›Ý¾RÏ™½(U, ×° N¾1á,%ä&K2z’rÉ îšƒÌñ«´ô;ôÉÅLzÎçùŽä“£Óž»—\¢~ûÀ¦t™§«)×ÞÃóSz”ïñ~C]6å”Gô ] §£ÿS^È¿\לlÙ!“hÏ€º»Ù…'è¥Nmí;Id ‚¬«Ú,4_Öã)· \„&ço9Ñ_ÐL´÷¢x½½§lÌûù¾O:º^,ÖZw9[G ösëµÁïœf“ o‚ò——µôƼÇê÷Ã÷»:-npص쭆ƒIí@¤å´âŠ#x­é¹’[þ9§ocØ6/|ö× bdzÅÔ ×îtV·eŒ ël_«·—ÍÙ.æ;¸*ÉEÙ€( eèl`åZH4KQw§.­ s¼PÕlO-ðpÎÊ”5Wo\PzÍg1Dt™b/\™…Ÿe`Ö.¯‰3^‚c¶ïxŠsGT|Û-Ò´~p2Q×\ÚYñê9—·=+/¸ÈY_› =¯ÿõÈ@…¤¢òEÓ›W©3šÆ½«ßòV7FXO@-k#<t'^Éì¯jP”ñœ‚~åRhà ,;ï¤Ð.±é)bÞfheË£ík½–Øá¤;i¬Þ\ºÓIÁYÞL*7WØ^7ÇDÏ'{àCc·Ó爖3Ü–=îµáÂjÜÈÕx«ø-àSn[äÓi«ORëgci'–=œ7û&½†Ò¿Xlϯ‘ËZ¢‹[Æe-SÝ^öÅÀšb %¾wÑìÐ|$]enö®ˆQUòj¹Ý”+•ÒS]hH„­ÍkÏždOrp§«ÊüZ“I^Áœª¤ï‹®õ^!éª ýȵå{0û®n­0Öì.Ÿ{Áã¡3‡ð’Ø„"îÚíRAæËÛÛXØ.3µ½®Á1ÇŒ÷€ºÌ¥ZJÇ*žÂàˆ¤¯PŠe%°—Þ¿%ÆDÞV‘½ôB | 뼺½™5OÁürìÒÈ<;בi]Ãåð<è€L™òÚ‹ˆ(œ5ÿgñLR¹ÙjR_ká]ê·Ó†×ÚúP¹ùšurÛÏkixƒž–$K—’ k‘Øæ„Ý%™©p,b¦~.Õ^!➶|Gb££ árJÙröR¨óàÏkè`žX|ê¢@Å1,ÌUh=à¼IÓàÀœbœáWPsÜÒB¿U|¶BŠþZ1cUlz0Eòãܸí¥âŒ 7‹Íüƒ–pý:Òzîq5é¥+ü§ïðWfî¬zÞîŒÁUêæ1AO1ñ62²®X‡,¨F˜ >{¸§À𨠪%Ð'³ã¨7ÅçÀUD¿H2¼ŠìùµÚ—jª–eA•yU«Ìv¿toá¥ö®·~ Oîu‡ÝìûA5YŶ¢&ÁS/‚^¦§Q¼ûzìGþIüæØÃK~Œ¸{jziÓ&£´Œô2aÔž¼$RËDqwÍAÔКƒ…k3|D¢ó•Ð’Çï¼4 N6ÊIV!~¯?škäIpñIôO©Qµ\¼{ÇWMmäDûð=ÒÀÿhU‘,ªœ¯ËÑvtFÝǵ¿ª=[}nÈ9—Ü¥Pðèr·Í8÷tÚ×Qäl;ùè6pœ‡¥4R ‚Žˆ6a‘mÂf7!£FÌT¢L£Â·¼ÿE“sU6,ñ<Õ<%&mÊï:*4­ªIÊ-Ÿß-=IO7æ‰F›Ç Ñy)tÂVg4ùÜâË€§­vv/‡Ã‚³ú‰¼×æºjǬ=OAžë {ü•O¸7禑bßkãæŒï2À› ùD‘f·ÆœìnHcPâÜm¼\b۽ś–`Í©€¬äñ’#7+K;¦¨ªö¥”¼Ìü 1õ&Z“ÉHÕXþ8–‚”™1:Óâ¾¥=¾6ûà•¾p±ev©=·ì=i‘ž C·¯DNôÚyW/9s>ÊÎ^¬ínùâ|k× àcÛÎÛ ×;B¨/¥WŸvÿÜ©Yy3{®+&èôŠ+~¢9Ñæ0§ôÍ[ÉIïøµÞûìûŒŒ‘OÈËñMØŸt@“ÿKQ©,,óììoÍÇ©äRƒOO¿ EëhÔ2™¤§¸eG6]§Ýµ ï7J ìxr¡™˜üt>öÂíåtøkL¡ržÒVZ«ý‚«mñe ƒ5¤“GóÊO“›¢L8È&x¤©Ã#£HÅjKOjwËï†ØB"y>'Ñ4~{,ùf-Ç7f…1Úú´ì0ßUÛÓ…ÆÕŠpÍ”‰u·Å€vGz}¨sR&xhrL‚3Ë-Í_†<×Ië÷ñ`Ï|'šç¡•ã èW®ËŽèålÍ´­ø•ô~ë`o¹6’zp"˜>c.«“/M5zÒFÿÑQ$ü6ÛauŽý¤zY—-âÙg ¼-y¹¶ôuÖõäeßf²¡À÷ß»ú½ïHžz„R´[Yi¢òfÖI ôZûú¿Ö>FR¦üy}õZeô÷€˜/Wüñ­y©'t­ÁºM‹Ô=ùqCCÌÚŸSšGT½ýS…o?ÝLìÈ[‰Gœ rä{ùMi¸òËïMD;‚Ô*²}#®ûÓ¿ÉYáa8Û+­§ëÛ,ÖX;uT}3€|Ø)£Và+ãìk_>1[˜Æ³ùF+óŠÑù’ª‰–øWx¾W}Þne–Ê"â׳ÄÿsúÇD¡Á%i‡dò þÄŸtMú@·1wY^%ëöÑ­ý²¨Î›µ´üä¡”Q~·(í÷M»¾:€~ì;~¢›©˜ø*Ýà"hªž-w¹Á&Yàý_J0°÷#Çæ¤zŸ%?e>óÓäjdY±‚ ñbѶ6 bË*ÛÕG+¼Öî/ÿpG P:Ù­Ó&ئüãÀëÊ‚Ž”'ÏïÒ‚ÉáÈîÎYŠÞgwð%5Q²µZnPwR´¾°½·2,Ô¹xÿ…ØäÅ´Y•+[¾œGü/õå‘vi$mDæÉ;W8šž8ÞìqBèµÒBË~Hímߨó{Pb\ ÛAKfôïsã#ÈÑ~x©û¦G&Ý™ï Osf§n–8v§äQþa)Æ¢ZVŽ‰h©˜# ç·¦ J3|¸`ów]/ó‰ÈÖ[²D½Ÿ2r!«òkÑËŠåæ©•ø ‡YÉËæxª^–“C¾5J¹´;ݹ¯’yÖ4²†óLÊõaüdš»Vâìµ3œØÅ~ÂJe(&M‡ú:‚ÀU`~äq’´Ñ³™ÂS0Ø4½"˜Ë ø%‚˜ñ‘Ù¥ŒûÕO 7Α¬–û$‰ïòEÚõŒÑ^'X$…Ü^õš°lUœœ+fs–h?:Ö¿ ÷G IÍëŒÎ _}›-ýµIÌ̽ÿåá}—•"3fbù¯Õ(Ò ºíòŽÚ˜Þ²Ò»¼D×çNNBmÂl ©cCnI㜷érüä?áFš$JÛùÄvžÀ¨9ãŠ"ÂÛbº ´JYõw÷߆v¬ÖW5“˺dx§£Ï6…¸iê“Ô=…Ûï¿x§62J"I>ËÄŸÓÀG³yèê×·ôæjÿ R÷¬l:l{*Øæœw$ðÑD?ˆæd| ¨Ë”´“5»!sÝzÒ =?®?Ïbû”œK,ÌXH YOœBg5ƒxk 5ñ´šÿ“R"¹—«hª*4«cÎyûˆæ‹3]4£h}ƒöS;›µ»ztòˆ‰ø€ ~?Â÷W¨–6¸‚5ªqñÉËÜ.G‰,›&=Ž‹waÏñô³CûÈXûãG<+×#³ƒ™Ç„fG—ØC÷ðBûÝMàeUî´|©«ò[Ì×%¼k£ÄزœÉ¾“U?{îáv3ùmü ËÄ$ã ßÉeæ÷K¡óïj „³ðªPû%ƈ×’;6,x÷† ÷EÈÆ ÑÌÞW™Þ’¾>ÞúP÷FÃÝÕtRu]!gš-–œtµqª¢v‡Ek‹F“qïéé5v]üŒt«ö•ýˆcüx&ãeÑû<—áIpÜ´›ÿŸ2$ 7˜õúžµÜ ½ý—°¤t•<ýØ^ݲ+Ø"À½$S%•tn¨ýõIÝæ[ä;e‰òsëÊ­ÔŸõë/CœÓ 2äŠ.òWW5IÊþ’PÉéäCÐ2|!œÁf–コ•”›òªŸÀ•¿1»jXè°¾¤M,Éé‰5õR¬Eü|m¶w]äƒoVï’m±êé” (dfL‰Sò¾D!q½Š¢{aeœ.n+vSð9‰w«ä›á ·ýŸÃKj¶XRXÃÚü‹Ò’Iá ðÆö`T-N'üåýy1'º…éªfÈ&‹#•ºó'p<>ÏBs%¯oW»¬dÁEÕ²<ò· ¿â&m‡„úèú:zŽü,ŸÕl²Öìß‚5”˜ù©lî¬÷˜afu6M,Ð. ŒåUÏÇ„–ö}Pçng‰«IzüJR9È.ö’ñQ¢ˆL:[‰þzžõq«`v¿œâø/ý˜uÓy½Ç¢¸Ø Ö_¶½ÊhO7É‘ágû¾ÔÔîSįU0Ø­Á– ?¶)^3oß0§¬jþ¼œµBíà·ñ妧WÛÓ÷O(_²÷ͼô(ãlÕèí­Îä¾yRO³àÉž%¤Å:#ÿÉ~ÁÔd(øR<´ÅÓ¨#ÛdüìÝivËALN­Tç׸ÂØÀýhÓ"Ó¶õx ö­ç5;Ý-‹,MÃ3%[æÕ›ç2eMšlM°<“çœêóKy&f¯lÛo¥3ÍßIº7 ÄÊ´0Vw[bª‘ÿ›ü`M¸íidÏÏG)þçô¤=Ò6bmïÍ;H¨zågóå9¹V~=Mº1ÂódK;âTÓá—d¬Î+æ¿¢G#ëpwAMX²;½·œY|8+Åó2¼#YÑ×Ñ]JýNT¼õÌæÚOŽì<·äíU|v@¨¸0ïÜÞÕHš|˜Ÿ¼ÉmN\Îp«VéAmð;o?wö=¹kŠ°i.ò»ˆ­ð†ˆ×ݧÁ`=Í$#W¢[––™Q7ܨ,ÛÍתê~8pmxø~6-ul”e¯›”ÂCÊâIà ®Ë¦Üg®°‰¶mŽú ‹*‹;Ë mæTãÝî~°,ËŸ½WX›¤àrÏÈkèŠÚ¾»Äš£,9 'I*È›(B×1>8¦¥µÜ(Ô¯ç"ÔMtœLݶŠ•Xü RÕWNᯘæ"åNÖg¿ZÞ´ªÒRϾZ+.ô¶èÙ./’4Éå=ÒÁÖHìþ)/$”éT ­š¸‚ru»­ù“±¢q¶¼1·×}Ùg Mh—3îeÿ4¿Öb¸Ý§ŸÊth^CßKýT¥j]Ž[œñìIáW¶QLw…šè[Žh‘‚³RGU ^¨N½*)ÀˆUQXK+ Rj¶ÛXS|uc/ ëC @ƒIbeæ4'õàn­-eË»<“½ø+µ[e­ƒ›né-‡ª³j´d²ÖöW7.-¼,-zsàÆèœãÿÎÍ_… endstream endobj 6490 0 obj << /Length1 1467 /Length2 6488 /Length3 0 /Length 7493 /Filter /FlateDecode >> stream xÚtTS[×-½£ô^‚R„$@@©Ò{G¤ † ”Bè½#M@iÒTšR¤J‘¦t©RDé½wø£Þ{¿ÿ~ïñÞÈ'gÏ5×Úkí=çááÒ3’·AYÃUPHŒX$ PÔ64•€@¢Â ãÿ &ã1†£Ý(¤äÿ"(¢áP S‚b°WÝÛXÁ SðP?#fÛxAXv GyÅ|NÛêLM{?ª·Mü ŒvÎzÂ%{Æ̺Fù3uK`áN¯%ê»ØbõÚ@Ï ŠXÕrÃYÐw‹KKà÷ƒÏû*¬,¯´2P@â)VØ{Ù( áå-ëfƒX¼ ß饢 eÜJrCºvá껌4=SÀ8bϺ}Ö(Õ!i–›5kÙ@ó‘t±o …>M>®³C·Ô‰’ókzC&r|Ö˼æ.Iq­Ó„ÎuÔžÐ0>eèÙ¡ÊQ+ äÇPMâü{À«K¾}yk½Ü=m?ãJ®o#×›†6±®jfäÈí²žåÖñ=Åi¨xŠâ­£éì/W0ëåèŒ'ŠžÕh\`5Î?ºÎ¯ö©êÇ‘+4™5Mî~«ÔWRÎø„‡:¼ÊW¥\w§S·ÖÞâóAË‚0,‘÷ð$†/²«KeË{0„Å»o{MÛ¼£ÌJÒ S ñ¼%V÷.Xî‚Ê_i˜ÎHÖm&cœš’\0ß_´ Q«( ÷õ3†·ºçƒt‡ôç§ ÞYEE=ÍM«RƒˆµOˆ­ Òâ|ËÇÆS]Z€üaöô×?œJžk ÊwÓuÅør(»Öî¿w&L¨ÿ"pM‚ÄUØ^'E¾KMÍ—(DqGTW\ZÖžÞjÊ™}zÑ$YÉHPµ¡„¿rãsÕ\$öª5±•@N̪† rö»Ðõ£ÃÀàIcªÊ;ãÑÎY3„§Íý¥O$.('┈´¦%ŒóÜrrd/Ê?ÅÅ–ùM÷d2SºþøÓVÎñ !æ„õj1¸«hc’$|­½¥o“kÌ䮸ò-é5ŽäõVg^þíxfª~CO1.ÑêÍ­’¹þ÷lųÙU}ƒUá©Æõë)K®·Cãï—šµ…M™gh|iÒ×d&ÍÐJ½S6^5’Ë|WžÒM~91iGì×]®RñÈhnÉq'™öIŠHZÖpFÃ׸ÎÈÝқќ}YŸÖ¼¬;…šß#-þ”DùfŽ0t.BO<ÎM áŽÜYÝ4åbBâ[ŠÏæÎ ô”·Ü®gñ’ÈÞ\~®Ýg"^ªÜÇE¨v!YãU€ þfsïð½Ob©ˆ2¸K¡göÚpF=vH>Šœ A~‡?Ò×ûöÐbås¦ï×ÖjmHbËyýfxõEHÚê.ÎH|Ñm©[Á]{”+[ÖScèÍùs(‚êkwÂe2#>ÜõÃMö1.‘Ë)±bÃô¥%´^†Úûª½6¬¹‡!£¾6^{VgÃ"Bgh3)LØëû|nÆ“’8ZÞÂ1`ÞÄg­ú¸+.†:ó:Úuç~8M{«>v? BáQœƒ ¸ yeÑF_Þ"#¾kÚÇ8— ²Å8aùšQU¢Â5xof‡…Øßÿu´«2Ãõ~Öäoë¼èƒY.Ä™[³æq§°Œ_ñ²­;ˆ!“Þ¥ùj°¬ï"­Ÿ=Å#äo̽*Z«å7aWðeÄ$÷¿i„^ljl­ºl3±³pð`¯g”‚WÔFºêm¤R.‚caQžÚ|“ØW¿}-§ày ”/‡xÇXd¢Q‡"«t¨õƱ×ý¹ŽD8dO×?±Kà—“i~nÜUõ/©óBä(F³$Ç€,eÊDÉó~y*š{x‹ƒ<\¼›9Ce)áÉ¢¶wrÆœÎÖlBjd­Ý½Q9Eâ±ÓgâÜ2=VõÚpßn#²ˆ»²^ä¨2!|ëY*#oê*{a!¥;ÞÑGU@)0¨ç¶"y²Nú1¥¶¹ØÛ1aå…É£B‚ÎÔhöÆÊ<~ßTWkw›STƱ8}Ð0Ã\G8¿é€¬øg® ÊŇ~Æ=ÎÇÄ„Ö%Þ` ™ë «%Å­.¡‰ŸYŠïŽ1-+ "d”9]Œ9!ßy+0AOp #]Þ3—Q¶Ì¦’³sU>Œ>J«þDÔ;®»¶ÞO½YÌ|¹U×ÒîZ×MU£ú:$]µBE(-_´ñU½XÇy:àAåBÈ+‹P&´Á vù—o/—R2”XüDN5ˆÀ©¹x÷»Wi¢6jó|¶@(5\ÄìõgøŽ ¹—ãö¯—NÆdB‚£äzÇVY4LS‘òyør$O!Þ¼ÄÕ±sjâà÷ÜDl>¯b΀>’ŽõBÇL” Ⲷê‹"†ìpñ&¶«lJÇÆ ÄE%Î}ño¯žË0 •Ár˜O­ë_AGVZD¯‹eá P ^²ëGÊëo¯ƒXEðý&SâX‹jª3˜Ì…L¯|‰¡˜Î }ÖaE`0ó8×”¯Zòi>R|sÄj³¹À6¿$mÎìb¨þ¾!8Ð7DjìVVÔž÷á¤t•AØá w ˜}O€ÄÌjgC%f݉ èq}Á•±¨‰$ «DœÎêŸ}Ò:Fûõ=¶×í:¥ÙOiç†(ÛGÓ¦8J4®Ø*ÖÈ)VµìØfuúu/´×-Dª³˜Içí8z¥“üÛåü H¤æ3u}8Ù>T[>³ïèœÿ“žŸØ/ú­[<íN´J€œýã3ßÃ#wûo^<Ãb‰ó~A-Ä SË‘‡Dsòˆu#<úwÌ;΢¯jú%(j¢í6Œ|‡!±.O1ªt“ž£Q´û"ºÅ¢¤ûÌù«¶LI&ÌïÞiÍÌœ%*ëæá–QÇ¿®"œŽÕ›$|Z£†k-u Âþe÷¨ìýíÖ(¤U^ûòfÛÌg¼²Ï†¸†ö­si¹•I%˜W!%ä ›Y®ÔRÕDMÐÂÁ"í/A/L¬.¨*Õ‡*óu]žçC>¼„¾¦ŒPØàéüv÷õyîÃu3®iúoR‹ÀÙÔåÁš1bÌzÎÄÖÃxŸx& :|‰øÙIݪSç]ëÕž•áǼ” uxæ1ÄôÉwûdsÆwrU(ÒQPM—j‡°|æâAÁUô¾nŸ¤ªÃŽw¬ì[×>©éÝ»,bD„Ãì|ŽÍ„ gÑ–µ(ƒáã­é>s`@›b ÈEåþ*þ#©vMè¬o|Kè7&¶°’/+{pÏÚX6¹SöÆ“Œq]¿ºJ©Åàæ”]³Þ*“›ëàÝ"Ê]àWÖ}û‡ '{ϧ,FÚ5óµ­–ôìYé=–]ûÎp<µÒðVq¡áßî9Ý¿1Èeö­Û±-LVˆA†•ø…ú'Ze!y½{µ\î-wk¶ø{&ÛÆ<Ÿ澻¸àö9· OkIx+õàg>º$ó2²Jú}¯2i‡¤–Œ;öé²ų́9¹"øçš"ggæ¢ÏDWËjñ˜Äà~`ìDÈcÁ€ÅüQ}5GìÏ“‰þ8ÁI¿³'olÁ)’JV·xïA|pa€;™ŸaöËǦÝ$ˆGkã>h•6_UeËj1EÁ|yvþ ÚÃ㣠ÆB•e?Nm\é*Ì×£Û,)£¾FQ-6âǽÛ)'o%U Ê¥M_#–¬úkØ”ÂÞlv·î¨{Ež}[xšô¸9–Owg†?^>ÂDCÌhÅ4£è¯0[(»©ï±+:¡©lHqâ&š·…eþZaø{-Ô†z k£’væ!YÛÓB¨Ž wú¡â“ ùqÖ …þ€š?tÅhé†ÆÆIÑÙHÖÓßÊH S±Ÿðjï ñ0£-a¿"C_KDÇ5Çü>¹^ÀÁÃàc•ÎtþQöuS•äOï$-jÄ:\ý˔ʕ—‹þQò턶Î뽕KØ‹çtû½¬vªh5“¤9.©öš^]­ßo/ÕE³¯. E ýØy…!ˆuò< ~€o '¡§OÚ¸$v‘þ΀0†TûT<$¯iœcÔ'œ)´jÔ’€Oîãü;f ­gÄÎϲøaà;Ã壙E[Â,’ý¯T¯ß’mR,'ÝÊ¡ó›­MÖÜ Ý  èˆ0Ó'½ÛW Ž ?}¹¿D¤^YwÊ´ XÀ²tDJvC|½™zû,óÁw=Ü(8¸1{2ÊÃY¯Ž¦N¤àa“£Â?…zp*Tû÷(?p àC<¨V²IèÞ·Ðêäåéu˜Uj:þ´ôÄ?†§æ¶k¹ÎNÇé§a™¨L²¯ÏïŠk·–~®ÿ¸ zëÃ,ÜÚzóèHñ,ç²UÛÑVÿ.3U½µ¿¯l^¡ìN°W¨%ncU°u94þÓ7ü¡tЦ±®šdL­e¬ƒÆËÑ-ŽCž‰)Æ!tJ2c§…œ”¸'­ê½E~aíTµŸ¾†)´ûîE¾?ïÀÍFõ”²í° ,¾®ñ}¥^1kƒY".Ä)Áì¥öðAþD•„¼ØG£§z™.å™ÙÚoî|(Oi'²ÝŒ"žlHNlŽ/%·t 4x‡ôz_ë÷üj{“ °r ‚ŽÂß™ö6›[Ëd¡K/·Ùô)~öÎPóÃÏBÑ|~Fx¤¡H,ª0£ÞÔéU†»¹ß5ƒEówéÒ¤ó¬(ióJBœôÍ{”žûüíwÚ‚wQ™-ß©ƒH'Zøø·ÔøídV?úÎüz—SÿPN9À(°¦„ïèroÜ$ŠæVuô#£³–ù¹žÔ×¹7ÚH»åï1Cïr®Ì -ÜÏklã!ÛxŒàZüp–«jìjFGG½Fè6F›äNm0÷!Úÿbçtœ–“ðžy½@.% aµúÊ\UæVJþž†1|Òw¢þí‘ƵƒJ¡oU›žzU+ý,áÅKä²CÎ&x8¸Ö^1Ïâ +¤)9%Ä5®PQm^ÈjJnÙ¼,LŽÔœ×ç,‰áš€¾ê6y‹)Í‘, 8ö ³X%‡„h®ô#tJTô3‚¾0ãf=ÛNÙ@4·Ë¬Õâ…~W¹³)Pù’n–GF»”Õ/âƒyaÿˇxµj!¡Àµ‘n¢b6ø³R`r-,ñ©òÏB £,û•^]¤áÎT•¥í·±ƒH-òŧ7‡ìŸ“y*\ï(¶IG~óûQí›…Óm´y©šiÞjÞÈ’Ó+\q†G}Ëžê,YzèTÙÙòi¿ôÎË+±ç8ôt—ÒxBª…Cí÷|HZözKv,ƒP°ì{ó!¨j³ýêêêïÈÞ赫vðñ¹ÜÖëîOü…4"Ù%ùúMw&³8 Xb–vº•lM†3ȪU:ÖÕ|úßÐåmÏ’ôç.GÙFUðèièS—L†²=}ÂÕe6‰ûø”’ÄÒáó]ÞŠeBêy€sý Ùjù›/mFW*,-eó`’m‰†‡£$%x|k—{[k±Û4Üñÿ=i25Â3@TÁ‘w­©¬­pÊnUÒÞƒ®ùðº÷œoHý‹è©ôÞî9( çTŽþ0©c~QÒkwGS•ÎjTÅ<†:ô)xúS@ì¡W+ûf{Ñ îÇ*ÒqQç½&ñW'ôªÃËúþ´w"Y'­žùlz:®YKªÓqî"‡¤—϶¯\¤¦|Ú)Ô«ìóód6Õ?hT‘³“MüÌü¹lBÈ(XÃÊ€“õ–'ŽZ¥}Ì|èSBFD2¬Ô-‰Ç8oW³ï[nºï/rE#{¶-¾3µBAÞ©™º«oäDQø­ãêiG–yaC{óãÕaKK˜?=›°[aq>û¬åX¦ªì•ÜIÅåvï¾…#ø!ùPÊ0A¬¯Àþ²Ó‹~ØgûµÇ‡ÆŠåWbÝÞ“Å}àìþ•×£íG±'+xãÙŸ<\5­æ³>œJ Í–N:Öù†,åJ m´ã¼±ÈTúmE?˜?*a‰ÑëÚ’Fº¶ßÀ V`Öݾ˜É ³š ÿÚ|6B|鼉/Ä“Öh"º“ÖˆJ«ôOK8"øÛa¼*—V2GÛ³ôÛªŒËœtçýŠRPº¢FHb¯°FÒ¦Üíu9 )Ðk¹Ù´×E«ßÜ¿jÎnÑœ¸ËÃÐôss®=W‰Þ¸E ¢]”ì òTÊßã.§z°¸!£—©Cc¥‘¯  Ð냽¢Qm–™V º©×.Xƒy¶šŒœ?o‘h3¾å)z¢ùå~‰ÎÛW/Ø ch2¦À4eû㟎3g™‹W‹§Eg×Ð4 (J1’»ÏtZ¸o°’#xòM-Iñ^Å--v hÖ)î ƒ1~®:릳+I?UÁwï‡ÓiÇlˤØÝ’Ë’É•UBâf9‘ýW­×`°ˆûÃ]ßW­¢{\BÕío·3¼m¨·}9Ѷn'$­7ûø<´¦xäç1ÇðëÌ:¹à×ÁíR›C5ŠÛí©¦L‹‘—ÅÒ7ª­~> stream xÚuSy‚QÊaˆ"AXHñx\dúƒDÄg€"ÀB+û1+à„ðÄ|ˆÍ&üW­Y³ö‚#]ü…œAĆ#t rÞt&T„A>Z4s:–¢­gBÂévŽPÈ#š™ñX4ÅL,Sš­B ]3ÈiâôÌœ!>È@››Í[ŒÄÀq?À,fδÄñÌ6ÀP”twþ'…¿alPà±æXÖ£p+ƒc62@ÌgHÜ4Lƒ™Ûãx`Ѹp;ÄÑŸbœ€ B¾Ü÷¿Ä÷;E`B !@Ùè5|SGa5»÷¦ ùÐV kŠÅâìô÷u‚^(¹âoá>´H0óÚèîáî²fnï_£Tƒ³¶0æ6xÔ)¨"o1W‘Bƒþ©ûí°;ÌBÂláèľ ò¨ “î¾WòA„L¾™d3Eýþp?5ÏwüO-47‡‹ˆËéßd¶qí\xÓ½siüÂi‘Wü“sÁYŸÿw! 1È0›ûuLÀÚ 2)Á™5Æ,¾fμ8‚ é7 `pxÜ.€1"`P @Ý7C0sNÊõ0aB0  QÿÑø̯À4Íñùèxf.=ûeÏ‚ÐAp+ÈP¼/A¶Iág“ê'ϵc0ÏnY´Xm˜ø,Zn©¸—+ûÄt^³fD©¶åñ·6‡r)mûÊ`9o9ÙäLíõ{­c"Ž ¦ jê»Ôæ¹¥i½0=gçCT~µÐ¤ó5¶EkÿÍìcÏÄWÜFW”OÚ;ÝT£&#ñº“›¤ƒQ¾òÚzå‹|%«¿¾ß1âëÆýÍ(ßu½Ñ¾#%[ÉãÒ…ÛSÆ›”.¼x§^Ñ ¶¥[ÒꨂïJvUž}E×*µ&6Þ¼dþžÓàéÐ(Û´ödz¾±t̬]éӣ뫻”å5ì×íS^¬©Ù‘ˆ÷Š´½ÏX¨}¤ûDkÃm“ëÊ6÷0dxË0ýtŒ~zli^¾¦ÈKÁõÑÀƒÉšv󶞆{kŒ²'éêÒúšÖ©#%‘Ëúî„´ýíÔÜèùøI»LÕf=?xäôÑ$äÂÐ6wjØå‚ÃV®u–ár¡Ýhõu(¾±237káò¡<]iu4ôM¨Ñ‚µ”ò‰Ö¸­'ÿ©°" ^…õý&Ç?»¹öøÀ’êS^PZo“#f¹÷n=q-—Þž'ÂI©S£ 6Ɖg'v5+ÂÁ:+E-%F#/7óË삯Où—$1×èwßÔé_èHÒû\Ýå¿äWÏ8™¶·PîA¾›ëóîÝ“Ò¨ý©ç㊻ûØ@BþžT9åÆ>2…§hZJ?UÚ7Ç[qËf¤¶*íLÐ&½\¶û꺪#žo£ÕÎXlñ-¡ÿAòi÷‘Ûh\•õñ¯Fѹw‘ö)¼µ}Ê­ÔDØ¡x5{báÙË ºœ2+î:£ M¯¶°ê%wäû:~ßuxéþÚe[ؤÅé=Ãj×Ì*/Þ§ Þš¨z:…¬žŸV]Òùq[ÓeÅ"Y)¹saÚ@šý¸Ôü&YÔäDtd[Ÿ–ø«¯­Ó~³L²wñp[Í:e…MY1¦ušX|®Æ¹Úª~9qluL,a$+Üo”[{‘$Ýmš—r>[š4øÉçá|½x~âÝp7>QåiíŠÏ¾\ÃîÈXZñ¨T< 0å‹\ž8Øeë@<2}ll¢DùöÓU§Þ­®\™Qý=ðD-£)p#1Íve©9Èk|UßÞ\Ü´3)¨J)´º}©AؾގÄWÜ÷uˆÐ‰<ôÚ¯4kç©l×i3[µ}!òFW½¿7ýå=ÇÛ81ì&A¦ò¯[¹%îúEµ Rˆ9e§tIÐÙ犓Šš%?Hdö)‰¯g×ÖÒ{}:Æô†dr—±Þˆ‚ëæó>~¼s¢Ø@ÒžhReQ?©ÿäÝü âý– {Á¥Ìóú#¿†‡èn»q69WæxKëïKÔ‡‘¶ná7ûr§ê²œÊp=í*VømI.xžÕu$ #c|¥œ?µ­M>¯óÕ™e–†:éËïÈÿY©`Ž{Yt2öéCƒ eºÍº÷iÛÔ{6iÁ8UÒææž5 ØKßËÕÖ­^ô]ð᪉Û%´«+Í Ú©#‰õVEó–\î~Eù¥"P•½kù®ì£ÏÎ~%²lž÷¸LÍs+Ä™yŽÕoj† UVÉHFŽª`åØiÝéͶûÈó8Q¿ïŠO ³½6ÿ²ªk“êƒÕK½Z$ÖM‡îžŒ áßôàsS—ƒC]·‘Õó ÷×Ä…h„vöú~¸Bù1‰Jìa:™¬Àœ¼í`:Øö>°LcœKRÍa¿ºƒ-â–†4&¤w(Ù[ðˆnRç·×Ë(U¿ã’KÚÓ}ã5*ñòa㧬æ§'RÊ4¥ï¯>o R:`¬4¤VàñÌ·÷÷(Ö2ë語rn­çÇêx¨‰êåj¦Ï×o \sš¿ÌÍ“òôTÖÒ…Š اP²´ÓPËÛhy£Ø`#qRãÈvEjÆÁA fRð[SiN¿óëuC%þeͳNyÕÕ©ÈsîáGƒ©ÝÅ9ÞÄÞ·h{ÜÏܶc¸dE>!¥Gm,)hiþ|êß-MŸèî7ÂQ21dÕˆáœÝÀ²Ç±êh½ÞEÍm ì©’ÿ\hŽ endstream endobj 6494 0 obj << /Length1 1626 /Length2 15681 /Length3 0 /Length 16532 /Filter /FlateDecode >> stream xÚ­·ctåßÖ&ÛN*ØQŶm»bî¨âìØNÅN¥bÛ¶mÛ¶QÝúŸÓÝosû~éû~ØcüÖÄ3Ÿ9Ÿ¹Ö›’TYAÄÌÞ(iob`adæ(ZÙš¸8«ÚÛ*ÚóÈ3(ͬí””bN@c•½¸1È ÐšĦVV %@ÌÞÁÃÉÊ ÖPÕ¢¡££ÿ/Ë?!ÿéù›éleaøú÷Ãhcï` ´ý…ø¿NT K ÀÜÊSRÖ–Q”PK)j¤€v@'c€²‹‰•)@ÞÊhç ¤˜Û;lþ}˜ÚÛ™YýÓš3ã_,g€1ÀÙhjõ7 èn tøÇEp:ÙZ9;ÿýX9,œŒí@g²XÙ™Ú¸˜ýCà¯ÝÜþ_„œìÿFØþõýS¶w9›:Y9€«*‹Kþ›'ÈÒôOmg«¿n€½ùßH3{S—Zú—ï/Ì_/ÈØÊκƒþ©e˜Y9;Ø{ü­ýÌÁÉê_4\œ­ì,þ‹=À haìdftvþ óûŸéüWŸ€ÿ­{ceÛÿ+êq°9mÌXXÿÖ4ý­mae‡ÀôÏ®ÈØ™ÛX˜ÿm7sqøŸ>W Ó¿DýÏÎÐü%alfogã0š#0)Úƒþ–Pÿß©Ìøß'òƒÄÿ-ÿ·ÈûÿOÜÿÔè»ÄÿïóBKºØØ(Ûþ]€¿1€¿Œ±àï;üóиØþ¿RŒm­l<þ¿’þ3Z øo¶¢ö6fÿé“ÿ‰ˆÅ_Y˜™ÿm´r–´rš)[L-æÆ6çõ/»†ÐÉÆÊøW×ÀÀÂÌü>uK+ÓïvÿÀñoÐÎì?éÿ•ê_ä™´uÔTå¥èþë¿•ÿ.HÝÃá/·ÿÑŠ‚½Ùÿ:ü#*jïðb`áä0°±³ü½{ ñp2ûüJþ ˆå¿Î Æ '+w€îß¾™YþÕýÿøý×Iÿ?`$ìLíÍþY5±ÙßMû_†ܦ.NNþ×åÿÛõÿ<ÿkç@w )Âê’½)_°õÏô4P nöЄ¸n_ äPˆCq½zAž•}·ßÏðžr£·êƆ)ÞVÅ3‡÷YÚѪîàU.¡9Moúæ×v.ºÃ@&ƒbä´s­(¯ëùm(NfÍÃÝ Uƒ¢7¢©v6'¸ëgr×<,Š'_ÓÔºXì´0Œšü³ó¯‰'ÏOT£ÃCƒÝ·Ð½_è²bá)ùŒq}“ÏH“@FNõ¦Ð\¹À4F]tdWÅãÍÛ~)˜WnÒú¥3õÓU~cÜ]¬®zº·UHÖ Ôµ}*Wq©>™«•r„jX$«ûEZ ýG#®ç9º6zô„0ÃÅÌÁT-ËVQÓBýâóÇ) T‰œ;{ܨ§+GòtA@­‰/‡â› É¯ÃH`çCï)8¯h(Ï%”ö/Ï•›€T˜µÂoeüp·$Ñ íË.x“T~a?³xåsxÖ<©o¶FL†Bæ`À?ðÅ'ÐŒ~‹©Ü1áÅ)|"ËÛÊæe¨š9Y³†÷@À²Z[ÂJ;ÜJùö`QÁ°ù)ðås9Ÿqü78áBá¬<Ý%ɇ$ª°œ5Ðð‘ùUB€¨ÌYÅaœ–Çb Ë ‡‘hà(× 3ÃÓØ‹Û¿‰“¾kõ58õgÎeêÏSâÆ^l©:ZЫ»’ÕFrÎñºz G€‹@z'á RèK±ãÌÜVƒ’QFÄÅÑwÆ>áoN?aʇ† KÌθîŒê—Œ„ßf§$pâé„çT…½¬¤Ù .á 6ã~ÚÌ|ÎêK{4ÔñÅYÏ?Iš‰ðE3–kÊéÍ9j$?Âüyê Zgä΃Åe:Ÿµ›#Á÷ÙuO®.ؼn?éèÄ<Ä7zgÄUo›sI!úï”3‰ Õ¥ŸÞFZÒ†~˜w09¤VŒÙþ*z¨Ti¼Ý¼beP#xkûjÿÊnZéýe>˜tÍƤÍÎG+§w»Í5>k¥?Ä8ŽÆˆ(岄Í-Áú‹€mÓó…pK·¨ÚÓ©s–C±_飇!Û˜œÿ|*¸½ÝfF ¶tYˆ.Û»îŸ:È¥Ä÷Ïý>¼nœí3Ÿx£û)~}ÍTfÈÏTKìTñ¡=b©`ìŠÿ;tWä)ÆcX‰É*¡òAmc{µ»ÔXk”/¹…E6}¯e}kØ14à %ËÙµo“_AÉáÒtœÑoÕö&âÏý»³œjý‹vºËÇÊ2'YÄ›/rFd©¨Y[mTÂ\»ò±nn1Ö5xtþöSè¸Çž€®‡u;Of†þWÇš,ÿùoV·=O_roóáAÔ6çÒü*èŸd¡e½Ó­vòBöß>ÜMúâEéf'£ô:Qä²Ì8¦ß¹Š:^?:õÙØLPï>o~£$^c&›¬9Õ’ö…M£µùØÑFõžXQ‡‹»Ë³¥ÎÝ4~GC•xº"ØnÓ•Ðjñ¿Q©ét?j*™2­Õ£8âûÞ|ñ]boTL‰Â?m™Cµ–úiÿì[6ÆW¥¯Cë<Ú”2,ýlꡯ†­·œ¸¿z€jä¯ø̽‘<Ñ*»â4׿V\2͇£„g*8€þ¸ÕJªµå…%JÈ+/Òì[ãç ÉêaÕ`úò‚béÿä¹÷eö="€Îó Þ1¬~Px«Z¹#S»P»®³m ¦ éÆñ‹R€Ë!9ƒ¹xÞW8®['{˜Jò`“óÑåO×#”ù·ÏàP¡ÙUI‚$…ñÐa²¤OÌ|Ô $EóDxYÍ$&<©&ÙÊKæ˜.D3uì{1:Ñ”.î’Äe"ßoï5O8Osë]F˜± ŸêÆ1z¼Ê¢tø’ÃÛâ<Êî¯{U9÷ª­£Ê žÛ@|…ñ,ë*e$цëƒD[d0Ôzì5e㺉4‘kë/MŸbdÊI*Xå§ÄRN,·\1uò8ýÓ“ÔÕ{¥ ²¾æ3¥*6ñ2¹J4Ó{d¢\]hb,9|øÕÉL°<Ö6âlvƒ=<?WzðÔyKãU vÒÀ¡qåJ­‰¸ŸZ…s"ôXmLÃJÛa8·í‰7€‹OÐçÖW»H¶G”G´+0(—(Qf¿+峩$T‰õmŸ¶3+Ü#M³Ù¤ŸŽI«¥gBƒu6;݃ŒlpÜò)]2'á]`l‚¹. Ô–—uáç²’«Y‹)KÜ£ÙIApmpÂ}±õ-ç~ ÇQ³púl¥L`±¯ã’¸²Û Æ·Y¯ŠÅI²Ù6§ÈÂÌüvº”yé4OE¹ù9­ûÜ79¸»40GÆ› ¬iÇ©®_þ¥¦oJ–’§ašÄîç·caIZš¨éÐÕ>eAúÚŠ®³~Ôìëhl@÷˜ÞæÒ,šáζ҆Áq’-{”øâÆ?'ÄØLY¸d«ìŠú í_ÆŽ"²®-í§G9Wã½ÌãU\N<¿ÉZ÷šn¢Ê›ÌSR¢V°xFmqÙ/§y¢¶½1ÚòÜ=ŒN Ë8¥“ZÚ1•…÷‹H›Í•Y z K£U ~ÛµQéÈT-YǨœ>NÐ÷±Â÷wžþ¾ËR€žGPä(ÝI«†Ï1‰ ÉJã÷´ué¸ýâmÃRVJ!|kîÕÒÿ3¼¼ŒµÓ¶JÉ}^çRpµŒ™Ao<È¢q…j°´$3g®¨à×Éš’3øê~…òƃžØr•¨p÷ƒ)Yî&÷îÌ~–Vsh“xÄñr*»]cÁÜEån¿¾¸Tåi)ƒ°0 ÐXS¿z³÷„veyÖŽÙ g=ç;s%ØŒ´°<¤©´J׆x£ß+‡NG^¼-ѳ٠$úµº}ÿD™X°¦wØäV·’e+%ãEᗜ٣Üs³¥NÀ,äòö6¸7ã7•œïmÁäãèتÌø8¸¢dÒ©|UßóCßkèÏUÜóïû"¸CÕf†"6`âFØîÔ}ÝŠ©ì™•­Ø¯¢(;2Š·170vr„È|<ì&mIÝRcøEËÎÝPO&„iWļîûå=R%TžØE/Þ]¤ ¢ÀLr¸]Î%cG—ä³váå›mSàÅÊp«BßódóþQ€ÛHÓG¨RY£ÌδïLñÕ‘ÞˆÔJÆ]—šµžŽ² "Þ.N¶-í&…/—\‹º:^s|V¬í+™G÷§ñ!TŸ­©°n%×Í,±Û V¤ õAæxÐÄ-£t„ÿã\ì°˜\Å(¸õÅ"µ·²²}X3´à[J§‘ž•m)¼)9¾Ôf#S ŽÍa¿­ûh‡¿äcE“$d8yÐS=œn»Ó˜¤ê3†ô+ܬ7ÖB!ñ•zR´ÜkµPñÈÈ;Wój„ª¾ÑŒ3ùÙÂ+ Zß0Ý–ÑZ^ ñêÁ[S²AÕP;O~c¡©«=  •¤;f>Rm³[ÍÜJúÒÖôš»9%;0o¹DåÃÆZ¢>Ð’Æ%1oTáí×!FnŒ×ÈgÛNÈX$cç×çŒïkƒG$\¬øð¦ïàW­²˜ ï9Õ€ÕS,¾ž"ç2Ê^:¿êÖ•òP‰>µcÌݲÎÙQ‰t×ßIýF ²r–é{ !àEU½~hVª~¡`ù¥qÀNÔï_ÀÚ Ì;(Æç­£fªF¡zÓAš%2eå$Ì¢¨´sœ9 ÷#¼jjè¶ ®íq,ÐÛ_ûm ;Œ¹ìB%.g È•Oõº¬{§ºYz\‚©-ê\܉^¿x²%î’F³Å‘QϪÞ ã}oÞ^*Ç¢wsÁØÇ8wV¦[­\¾'ª'€ä !¬¶üÕ¡Ýh¡á„«£lß(¿œjÕr7¯î¤u%!ôæìNõªgFL?.±V˜Ö¤”j¢àR-Lžß§÷rË“áU]ÇÛ¢s*w”z'þÔ¦ôÉ/Ý•³Æþ˜1@“h/3JíiÖK]/ â×¾²bÈò½…"*co££ø\Í"?ynàýYÅ®WÉ+äbØ‚-ú½uÜ­UÈhrX.ïrãÞö‡B6«€’PœšžŒ‚ýgføká•žÿÕæ÷4ê4m°5˜3KÓ±kc5èAa=kÖÓ’÷[_ $]r(Õùž é‚ úa PœNW23õD± Jx4l5ï-ƒ{ héùä6ZÝfõ´vÿ”ŽXнÿ°C¥«hYq¶mÖËò'ý'sa­(uÒs.4#ŒÄ³v dÒ"!î­UüMÌ¥Öeÿ2’k®~;ò}ˆ«œñ|‘\\êVyfMsòÓöˆ¾8Lmh°T÷·à1·Ýù""Wr8fZyðWë,çÄúᕈ¼ó ¾?;Òw%´r9ÈÓí±·[Vä]‚RýDˆ:¨«¶ÏÚµs6vU1o\ŒP ‘[¸·´efï¶Eħ©¥„:_P|§[¹ˆ„©š8вÐkBG^#œìI—Ä4|ò $ß ©Á­vApîÔ÷ev¹~­Š7k‰¸†©·…±Æ>ì"£Û*¶ (ËŽ²{ü¬e~•Ž¯ªŠgÏ0ó¼³ÃYqҸ䴷÷«…q$€3à5ËÌvTß+`‹«´µì–*ž’xÒÌæD˜\’0+òàñ¥ª~µN‰dçëñµ÷•C„\@»¼´Ðä(['˜TÛÆÊRLK¡I`C½d %ZÑÄe^“}tà–^$Ös@oKEÅ\YM—ª§·„S»Ö:¤XÝëT×Ȧ—²ÓÃéÎ ?„q¡Cɽ»Íó»¹ØÃÛP&(?ó›À.Ø ò©Ù峜¶®goÄnµ é¹Cc»Ö°¶ôeùÜ]ˆ;kÜ•iD%†öÇ âFhl½z¨€!‡V§–VGü§(»]q-=;zè’`uFáÈ’ÐU±­ÊfûÅÜÎÏœÈG‘‰¨u µd(Ÿ·<ºÛ$NúPz´þiA–bB8÷!yŠ*âþo´iš ÈsISÛ£”º¶ˆÄ”?ÕÓe |vÁRx[O¡—øò.[Æ.o¹~D/„Ã~ïíÂÀ¯Ï²³5a–A.¬2ÇrF‹Ì²éqãÕ!³”¢©¤f”W®HÆ0¢^á#"Ð%iɘW²÷S²8ß0ÂÆTG “ý¸*=Bäg‰ŽìW*h;H…\ü&Çb†nNÏØ"º¢bP]ïcŠá ›}2ÏdæiÈÌØ'•v“vÁ„†à°#]†­—îZ‚±xgõI¯oèÊþj£ñJý–EÕRKl½ú†óÒûâEFX/¿[¾‚¶¨¡÷ )"ÂäܬnÀó#OqOº,Œ}÷ÑŠ3’T¾»Y-­Çe8èqo}Ze ŠÖ/T^§›3±¥æ´u ãC£± "¦f5ü †¥ZI‰LæÏÝ C\nSø]üL¼<½+@ ¡$¦ÚÁm,Q]t áÒ .?ØðIóŽÝ§%8áb¢¨ rÉ›â¨n`=¤ÊŸÙ¢)IpNÏ¿#Oé’"õmÚ³sÎ|GÚ¨è]W˜¶—.$U]â»[ÅEs°lcóõ#òHœSÎt Göàùh(W³+¿ª—ºÞ92üË_vžË&ê» žø=âf–/¡]à˜¼ÚLVÝ!P-Zª‘„]¥hd1¡™Dý¥oÊfÃçŒé²}ÕQ~ q¥»ÚO?/Ë›Edv¶Y»óËp%uc(3B½©Â(šÎ@ßAŠ†8FgòV¤þ, „óáƒ3ìÊÚHR‘ÆÔÞ™(kU™þ¼±ÒtüA© æÐÓ̆¤ÃbJƒçS_nÈ`ÄœW9þ)MRbôÇôwÐÄ}~-{èªôØ ^-I•5­³¨Ál|§aËêš{qE£-¾òXAâjºÉ®YøKy'ÚFMJÞ!{©HÃw&ƒA8)ÁëNsí¨ ÛŒ·a¤¾‹*Ŧ}9å6à÷3o¶²“pôr`j2_ü| „}7bB• ¡DOÙQ=Uå)£ê¹|(W^qYèHT ¯ŠvñCï sq‰“a5ñeµb4 ëœ" úÁ'Zt¬9bdö!ìÞ¥ü›=ØQÙò{täÔ$È)~K_AéY-´ž>‘-Ø5   4pþFø¼Ú’Óõ3‰/ßÚà<7k=àƒØ­à!“¦òøý"n Ž¦ò"8ÀSWbç–+Úi`0H&/¡`"Š·[Êüâ×tØí쯡¡e Î¸Õ7C%©¯lV´ŽøÖܱ•Ž³Z¹Á<î9qP-äÝݵqÁRýÊýv±^–¬˜Å`wDºË¥»è{9’tqeæn=BÁ„TElû–ìOŠñV³Ã4´vˆÔÕ ÞK­—J°ZìÛMøòDpÃ*%›ÐVÔ†=%§Ü¤$ì5©föF‘~LKŠ‡Ç%8"ùµŒö¦í,2ìlmÓ—ñòˆˆÂÚ[bÇ$‘>9ŒÒ²Äñ Õån#zEž`1‰”ƒeª ¯ó'ó÷“[´BöˆkèÙ8á,Â*lx7zâ¼­ú’ì+ÏÏŠ1Î;¹ÕÁ%9¨5= üêîò*Ùû½Ê3-žÅf8÷xÇ#½aêé¼ò à¬]ä®@k¦Õt.í´®’,S«H6¬[AÓƱ%z‹²WøÄÍ_*¥¹­ŽÅ Iõb qïùÝç\m"ë…¥Þ‚µ°nIj³^ÈdËS¢œìÞ‡»ýžÖ)سÖ.%¨<áB@Îþ£MüÅ"v¾Šr‘Ø$°%7Go)l”b& š¡PôEä0Êþ a¿:%Ù®m¶ç[Muâ²V<ÔI_&4©‡}Dè)ò£rËa6„ÔÔ1ø}z–/¿ñ´á›'yµúÇÙ9ô¢¤ ¥g†ã‡žj2XßV¬q¡Ù«ékm%ÎX~È{ó;“ZÓ0˜ìR̼ mlÉz›YT¨YûtäòèèÍ×<·Ãîä%ef,YõæQÖBïÕ3Œ ‚%4‘—j«è†œZ1GúqãÀš_½4ž\Žì™4›qiõbzGùf>>rõÔ¬7;XDå6¡[]Ôa¼'ãú¹+Ó‹-ŒH!9?¾fmZ²=D#tVä+ì:.‹…÷²w½)’ «tÔ´´øð¥u:ïéö¼ÉlðNa_ UÑBÖQ:É_'†¢kZÙ:sM ÛÚºÎ:ÌV• ΠxŠUÔGÁðKÌ v–7Šœ//¡-©S£s¯9^G¯b;œ2‚‹MˆdÅË+8&™D0Ò¤f®  ÂéÞfñD´_^f—¬½g‘’ʂΔò’ö¯gðÁ)qB6½`™ðBÐ+†‚ÆÈ׃/ì@º$4Ul6jšÀŽû ‰Þ ]?†MÛE´®e½ïÞˆ”‚:¸O`Ó¿àRº¹”R Õ.ˆµW-'šl5Ét¶“B­@»ÊWo¾T€žb"°÷¹Ñ9½@+¤7à%´€L ñ?›åG F §­ÍîjëW&CÈÜ )ò4‹fÞ‚ óż6‹«ÎàÍä#bpX’‘_8Aä˜>³C¥e"vRx‚Ì,Tµžt-Q.÷a’n ák±QÆ_Äú#YG¯†š;wE"¾IĤ״Ȋ) òwÁƒžž¿¶LZuúïñƪŒàÎ’ª]»ä f¼¢å””$8T¬7ãø—Om&³BÚŽÑà;ÿ8µæÞ®]W$ ¤EzRÒüAõPÇ”ý=àõ· R[³rpí´˜yÉu“¯è‹´òZo“O”I_:O7Ï«[*Kܲ´ãqmV³2@0ƒJI<®±¶ÅäR„„Å®u+ä Á+°¹¥Ú§*û½Å:jC=Æ’knB•KYéGV×úÚn/}q-̼¯åñÅ1øÕ4¥qz\á©÷2™êYA…ï-¯Cmw L¾Ú>eWëÇY¯­|En§€ëþìð¯y»*Xâ>šÞïb†é´{2©ÖÐ)7x?”±ÍÒäbŠ±Ä˜~M] …N'ÎÔϳÑ 2ÒµÜn( »&«CÛut½Wãag™¾2ã½k<4ëÌ@)ycÉ‘mAdŽhmПšI¶Ã0Ÿ@Í_Þ„›Fëƒ|¹R„û4Œ1õòúJõÄKê4¿ÜÅPCñ;/h—œ*ÏþOv˜2€/ýl-qúy4e±(ûH¥†k®»#§× ç©%"ð^ŒÙ~.±®/NßYƒœ@ªùA-Sí'¿´ËŒæ@_¦²Y­c?;n[—-\˜ëvk <´@ùwp¦®ïìÚ°Û˜‘£úQ “y'þ L`>³Ê{ºäØ^©Å —Š¼HYó¼søÎqÙâxrëÏDì pÒÓ4šëó´žG9hé*M¶SK쎂÷H^á5Ä“·›øõ…Vƒ*ö¢ù1cÚ¾D UöüTïÄÞɪ鮔*Øø˜ÕÞ«¸Üá¸dMÚmÁƒIPç Õ‡+ü+f¶Ë 1p­Å3âO9èyhž=Èå‡hSáò°ò=Õaîs*Ÿ¢:ü*pú ‚ 6Ãê¦ 0G,Ú5ùi‚Aaª?ó15ï+n*°Ê ÷å~WOG)éÔùTo9ð˜»F­°:/¡>ÝûÏòŒ?cpÇ(®3  ÂË!7tsùuËóòˆ^æO#— Y·–P?Ó_MBÖ)È›õàœ%ƒé”»|hA=e@°0pÖþ»Ññyè¥Üõ²Ölïc#¬RÿªïÑASî\‘õRpIh,Í8+"$VxýV¥#y¢¢f³9r„èë6:u%È¢öVÎœs9ußï¸#8=×ó 0ÿåÍOöJ’K%wN(S¶R’ ɵ‡Bü¾ŒÓiÈ& ¾Ñ¥¯l€0Ñ!ˆ/a܉ºœ>Ör†Ï\ú\º›aÀ†4+ a²­"·°†Ê¡ý«MÀ_E"î¶èñ|=ÈKÿÎ÷[?bM(pĸôÏÊ#»åY ƒØ駎yÕ ²>é¤%4 Ü3+[…|7ldÁí0ÿ+S‰Õ½Ôò­±´¤îÚïrj–®ê옺CAìß’RƒgÞ€öVDÒç(îgðÄ3ÉÁQÑ€Þfð’]ÕãáóP´\{E_®¾!3/PÃ!É<]7rj¡Ñ¡&½nÂjérB†ÑÚ ºýd´ƒxúh¤¶0y…NÑü‰„Ï÷MÁÈgÚoxÞ(€»”)š:¿2#Îò‹*ÿ¹±&å®û#žŠ(Ùk Þ+ÌÊ¥dJAåú/ÝO’011Á¼ó9P\Âá uü‘ïùáéûå*ìMÜ€! -¡zЈc}{’žŠSiþ£…ü¤†+ ?dü;C}‡±pl‹ÄJ/E¸æ[KB’ºÇB.UMɹQÏlF²û{ó¶¶v[ĦüZõ¾ùks¾íAèºz«2§=<Ö^ÛÅ*d¾°'Ã"ù—|µÍlPªÛ \ÍëuY]Fë#ûÖit¬jgm!êã¹>IÑ>Æã28Ñ•©òâim1qö·ŸQƒ6*Ý9”‚sX%µÕõ”A£iB"ï1‚FVsÃêyäÿyW,L~[&mXO‹T†Æ þ9³Ü N#fêdñôSÕ@R¹êÏ`ŒöVXŠ»Š¶“­ñÔ}Ñçˆ÷!ð{.’¦½±ï¡|ÎÇyÏ‚°4i.ÌÚ·1Ò«?1hÜv%¼³¡¦6¸¢ý)ŸØ OýXŸµÃ@±ÍҨ}jцÔú%jÙ¦ŸKhµ ¶Ú^»óÞ*³a+O–’Ra˜Û†sî ÏÆ ÷¥‘F†ßŸ Vˆ°±ÕãC4x¸ÓpS“¶lºÝ¶Õ[/ ¢ýÏ; /¢?M!Ìa*#_i³î6CJè»,|Ì–pHO|°§yi7¶o§½ù g"ú”¼)¦Zd;nûŒgVÅ2ó‡féÅüÈ%œœœ•1~G=GÞY€9¯v3ÙQpÛtxŒE@–èµÎ²È™ªõÚ·6IÔk*Ȇ³@>cqùtÀ(Ù,_$_Óó¶Pk„'¢o÷`?áynú8+”“™†¥ÚóÁ¼½ÃôÙú·;GSC´8ÿjþñØšEO”8ùâC:þ‹Rð÷€ÞwÏ)L¾&gËÎÊ*$¡ux[_˜Ö çቜïA¸«å-ÎiŸÕå¢ÏNEûEØbÎÌQñ(„³—Gçíâ&Áè¥Í>¼ÂÏÍ—( hfMb£¾6j¤:yë©dµ‰ûGJÕ7]å>ü³NëÙÇÏ•¦=ÜšÐQo¹ôféjO†c°&›¥‹ÞÔ?÷!Ⱦr™FA$æ5 ®R9β¶×XóehäD7—À´#¿/âgejǵ–#eTFÚû¤“]õ˜dÊ&P×(u¹!­>^'˜â»§¦0‹çR³ž {­JÙ=ƒL­Tˆ½‘«,›ë¢ê#å4st§²@éÓ*ÒZÉ>O=‰¡’ŠL#Ö±ºnîe%¡LOø×Ä­éZpºÊLF·´Ëã¸tœ¸¸ˆK ñ:Ë,ØOçísý’Úæ­¹y»RWv{Ï!÷'ªÎt2¥ÚµNó¸´àÅ7ص-¤ý³ðfToV\êrÍÔ[ºÈÄͲ>3†Ig±1¿ -–Q\X6»å±H¦OKa'NîÀ vàܧu*Ø{<ðôŠ9k÷Ѫ hz%›¶®LW•Öõè]ÇceÃ%»¬!6êê¹fYüznØ·[#˼Óèà ®eË$³Ù:¦oÂÁÇ%”ÖëWÇ6œ*𣘜´áQX™‹$y¹ Ì uëÌ:Âm•ËívO `áD†ÒÒ|¿?Ç ` õiio!UåßWµ6½Ɇõƒº˜x*—Èzù÷ÏBaÞÚDàR;C‰õ•E>·Æ å¯ÔMƒÎïo6®B~¥ Í®š»›“/~=÷0š¤Q ᛳ&lvÈb Y6’k¹ó‘¦Os¬Èî6¬§E &n‡9q{ÓôW™*ݳþÊqÓ ·–)„g.:'qJÃ>årÐüÕ…ÐþLù-3,Ï^ÅD±aõò¶6'í$äN"ë¤Þ [§80ó«•øÆ#átÃîÜmË3£‡¥UÛN«Ë"½î*ǘ/Wƹ¾€’xG&‘ñ‘f}¢éI”²¶Áɼ!Nn÷àpDÉÃwhÈ0m«‰†/TE¸Žk¤»˜]•’D»¢ ~#5Aú5ºlÕÞÑómýw™í°×)!’øÝBž‹ÿþršÞ jkÝ)%lÆ-ŸÓô!…%’u ±c€1KÚÒºŒ¤x4 Åq?V€aHÉÛ¿Óšó MMJØP¦!w5+4Êš÷Û™‡^€]]`Œ©Ò†’¤pRzîFMBÌä©s²[[/à·)9W0HλIlê²ØJeÌù2ã’[l4«Ò±~ôHH;1¿o‘o˜Ššýhþ3ƒX?÷‹ê¤–Nx.KtH;ÂbQ}ë2ùŽ9í-µiÕRí[R“~Óè^–íq›Â@5†_©åN^@ž])ìiv7;Dzþ³Eð>fNº¦Ï—¡]â®ý* AérŠ1ÞÓk ÕÂr m‚LëžwªÜv”ÿ:(ïS XØü@¯ÑÎçìô5"ƒXÍG ÌHp2ÜOÙ˜’…É~n(œá"UAm•QÊ1’2#˦NûólR'Ð /3¦<2@-ısnØáE`$99,#T ,“É:ãøó—£¹óƒ}š€ ¨!â Ÿ¢£!L^:Ššc‰çX/Ø>ª.«Yw)!ßž´ýæ0g |nÐÍ–Ñ´wž DµÚüà¹äi+Ë(¤í9grkû1˜Uü]$™Ñ‚}ÐAäQWì3†5iAöûˆ[‡(u‰X¼Qý!¥c,5ÚöÚ«a¯ê, ²=,q¦KÍz“}z¦{¤c6>whÍè{û)‚ß)2gùáƬïñ–zj6i7) )I‰"[š‚ÉÊÁé±ÖÌ ¡LÇ1÷,W×úEz¼eYD ¶¸VN!/ŽÈ£Fg$ ‰;r‰VY^˜L×zkœÅéŽYBGGž“´"Ú&’ Ì6nÌeOŽ€Ã^¸}‡d¾LäŒéÆ5üþЯ–ßeÕ´‘Zféã›ð .ðgäÅ Ž\Q‹Ÿ2&A²ž8e#›KÄI|CËÚ_ÔEПü&h RoÛ6NpÅ#Šz¢« ¿Æ iÑùB„ÐuÜ?>õAT‘ bž¤§Å_ßÄà vH)ü½òt…&<Swi§ÚP%¯Ís$Sòò¾DâJÊ¿Élˆ$ÛE›ÓVõb56î|Çzšž²!‚wU¡ÃĪZÁuõ-ÚD—Ø®jlL߃¸ÖÙCþ^¨ÇøcÒy:ê¦ß`n!vŸ(¥‰kp.óÒ• tµérêÎäª3“Þ4!“Mñ[–nû@Fó§ê&=æ…V«ä*{Ó›¢Ç^bœ¬S‰÷N諈Í÷—µÌ8ÓX©1Û'Uì.H‘õÜ5ˆõhD8¥ìÄƯr?×qûv` }â}€ ôƒâÌapOa¢múòw ¦Êý+C?¼Ÿ]TeUÈ‚æ’ô ¹wÐpÖ07lìv[1ìåZNvß8")!’—1/ç›)2 î²xÖrÊc®Ã­Ÿ*o¢Í˜Y‡-…Û‰°ØÒÌ$\kBPD˜tÖRÛÍc¶ø0„‹­? ·óU•e ¾‚ÆE`ÂœÂK;1œwŒGÞ†Y˜:$æäcâØ6)‡äÍÂæ-MªÅÓTÂ|pÊìØ‘´TT¡í]±âW~!z¼h£Çd]„Z+òQ‹³œ¯¯«nŠžyé©j`ŸªCrûªý¸^hS%¹9ùôÃrøòôûe¹ö¬œ[ÙµÄq‚°ù‹w…„îd€\LÝ{­a¦Îú7ƒOÒ!vå¥{çÕ`œü¢°×‰%$kf°_¡K4&§Ô~XËØŒfWö ‚?æ§ìe:Öf99¯Uƒ—B(qÊNro¤ÕÿÈÐÔãE­å:®ïs…G” møÜ ²($Ýɽƒ… ¢ÈŒ-øõ›²2rL0î®IÄöP›tjOØç‹é͸”\)Q‚8ˆ¬âÌŽ\ bÏoÆP¦Hþ¦‡ôd²úE˜˜ zþÿ<ì…\pRÈÄäê¥y±ôœïÕ%ÂÎì­œ}ëà—."sb§™øz¾k€ðÆXøÏkC ˆ>ô)Îs,ÿ;õ”¡Ï5g4'¹„€¯~Ôö½¨ R¸X°’ÉO‘ÐoÃ#ÙfÍ¢vÈ[ß Aß°ÔɵÆ)N£ÄûX«¢ƒ<ê[$’âÓ*k%®‰aKÏ#÷ gîÍ ër7t¼_£C§BÚPkdì¿‚=%ºÖž‹3‹as[*¿}¦¸ß“Ç D&‚ßÑ”¦ËóÖi. Ó#¢Ä™bŸ<"l¶ ©8µbç\<ôZ¿¨ @÷ûâO#\6T½Ì ¡q¾ýð{gÂ3 B¦ZíÿG&%ˆ]s@Jµ¶Ã7¦&¤¹ ªÑËAdÍ›ª ðAtO?~ϵ¯O†ç*š¦¿¨ 5/&ìE\Æn7_잯迶ÜßÆJ× ‘CóoJâ±ä± …r/¢Ä½åík3nöu• @ùÜÅ‚Ù#¾æ¿|ôM^_‘ÅØQã.:$ú"]d°ks bvšt¤‚zà3;†ßVøþ˜?Á‰ñZ“‹l/øFËŽŸí'.ΖÿGOVÉ_Jð¥ÓO' ¦NhBE[ U—¹!õ±‡˜Nÿ'qŠ"5tO¨å[;Ä;AôçY>ú'¥®*÷.Ãëó ÂáÒùðomp2gLÖÁØ*ªL +º·µãBræ~Íu§kŠðßíCžƒãÄ‚>™6¬r†{™l”Æ$Å’ÌÌRÕÙPu2ÃoF >£ÓÝJCGƒb\$¥5 G‚¼±¼ p þm ù'œ‡Åm¸¾qÃ[µ´ßüŒ]S­ìg6W^ð¡O\±/};i…u°>ûCþtëÆMWæN‹†¼áùÇÃQçsD»ïÛÒEk?ŽÏC²ØøH8jn[l1Œþ/•§j–£Mž‚ÃÇûóÇ üùE^:p’`ˆ›Üêy¥_eãC;"óú•os)/Æ=7Ç×üø‚MkáUÈl„ž$âoIi£Óuià¨Í]·„&9/һǚ>x^Ù €;o[>Mµóæ.f/&‘ÏŽVŒ-ÐÐäç¾”)1£»MFžç.Å#ÀŒä¬Œå¢ ¬¦OÒHGDxþÞ»&R’deƒ£f#R)qìêì«N²Û—ÂRã2ŸÜõ)B…p‡uõ”ãýÛÄuU»5T°ÂiEŠ*êÖÛš{ÊD-¡Ò%W3o™D>´-Ð.àè5ôqQbö=PE\™bAàAb=È’*ºoàS•FaÚ¼§yWFýð­_a½¹H+3ÕväM©ñÛS‘@[™šÏY‚ÝŽÃÉN‹®9›ù¯ôãüˆL¾×ï9ñ«G0\q¿\Éø^˜…™žs¯ßcºW}êB?¾ÃT[½šÊG)¡‰Ê¸PYä|F;–BïHÉŠü®’é¸ÌH[ŸŒ 5†D‚ÙõsSɵÃc¾<ÿxתùAÒÆXW¢Ûγ•×=Y6%¬&ô%ãÔj:7³LM‹/ʺèa*Õ‡jP0Ê+çÏ#Ô‘|†5³¤aƪt.ª’ݶž¥·0AB€ ®/˜^c÷æ"f Î«>3úÚuí'$Ο÷%î£%§.Ix¬½Ýa*âÞduÞ(¢é™ ÕxòÇËÁ×÷c¸[¨ðš£76^+)¯‰-¨+ð)k4«H¿é Çn?JsJ'0a÷*_`%Iªur~ä<¬ D0¬#œŠ"Ÿ¸.¯¡É Ùi’–H™¼´í©’<^'v='w¬õ ü6´9“5¹ówk‚×Hû­26Pû–LJNò€x:šG6•9Ï#R¸l²ÍºçAOl¶ëy|k{Uœ!}±tàò ,bûÅH@L‚Ò÷3jZ‰úþ1Ì]4q³Å!ø`\I-QMºt¯ycRAxq–ZPpÏ6©hpHëËÞ%#\y’6ù ( ×Y…ÿ³Ž²„âÍUGÕ•’qy½¶~ý踣ÉHÙœXmϬŠ!è³™ÚèÓëÇW>éâ’§³žôx‚˜<;Ù¹i³‰©üKû^Ü“ØKÌå1u‘íââ7‹ã©×OÓ^Df/éœc"ÚÏëR×·[ÝÅ$ ;ä d`;Š£½>i¿µÎõ‹éVU±’p)ï÷÷¥üsÇI|÷Ðeçþ©PBŠóm 4º™ÊóÓÈb.‹´±’Œ¦—ä§iÞ,&‰•}Ý\{;»mSÙ»›±SIïúÄSá׈õRz¯"šhn+—úcô3Ò§©0ó÷¬oŸh?~ÝžëÌž'P&óŽïÀQÊÔŒ¶ûp[çÝPWÃZÅ?{¢¦Þ/V(ÈÉKÙÚü1[ÛÐKšJ7‹uµb†{d—ê¯m‹–Ô ®¦Ø]’Š ·µŠÂЕáRô¤«É@Ôrô_ZË™† †:úT"„ÍŠíþ§'´­$Eº«j-Ñ·éT¿—/ûvÌàˆÊž­Sã,&éâÜ8?WØpuŸqÄ¥%æ®)ÿNƒLöq…©¨¤ôôÚ˜áhZþHù;ÓÈ>œV=ié·_6øv¯@ïwë¹Ãìy…ÜaЈê°Ú*$߉êģó2(ü¼¾Vã¥CØ÷z}"ØÏ…¯ÂW*1Âݼèäêú¡×–a¶0b¦£10éÆ¥Û¥ñ8’>ªåBRì\m³‰VŒ7a¨?…bê›<ÊéÜ{?µt™Ÿ)¾ÌèêÜLÇAX5¢OJAf™³•4W~cHª&¡ïv»ó~q¼®;E£1YÙ&Ní~ÄÛ xT­˜ô‰¬‘swLp{2#¤ÅÓDúl„öÍÕ3?/¿„l³éæ· Ú¯¯®ß|úÁ9î´p„iì Ò5ßÇߢvпü-õÁ[KÅ…¼0±ÿ'¦·Âp§–â[šÍ “ œDšîhòfnSú©4•u¡ KÏ7Ú9HÁ¿*rº…$u·Xçkorí\hŒ7½ƒ/ŠÎ¡—ý©†Lf± Ï1H¼Ä)1Èg¶3ø\à!çÓg=2!KÒ¹ø™gfIðJûÓÊQÐu½ýCHH{q—7KÀ‹]ÿâ³//í”"xà L–Ã`îñluMÁÑà+WÃN†AÇb˜;GT¸Q}Ãó燤‚U_Lv,ѹ™}ˆ ¨‹Þ‰$~¿ *<9PÌšâônöm–»ShÌ(Gßê/´2yö7©¡ìÁÊ* ÚÁÈ“@htK`<Þ$µ}x¸óE ÿfRðÒ!&o.MÄMºòU^-ûžžbtúͼ}ÕŒžâߘ2£žõ B€ÙƒÖÿ ~‚{ endstream endobj 6496 0 obj << /Length1 1630 /Length2 20367 /Length3 0 /Length 21217 /Filter /FlateDecode >> stream xÚ¬·ctgo³&Ûv~±mÛ¶m[Û¶mÛfÇ6:êØè8oÿŸgÎœYçù2s>ìµö]¼ª®ºkíMF¤¨B'dê`l&î`ïJÇDÏÈ ·²3vsQv°“wà’¥S6³pü•³Á‘‰8›¹Z9Ø‹¹šq4ÌL¢f&ff @ÄÁÑËÙÊÂÒ@©¦¬AECCûŸ’LÆ^ÿ¡ùëébea ÿûânfëàhgfïú7Äÿµ£Š™ÀÕÒ `nekQPÔ’’—PJÈ«$ÌìÍœlŠnƶV&Y+3{3*€¹ƒ3Àö߀‰ƒ½©Õ?¥¹Ðÿ%ä0¸8š™Xýu3ó41süGE p4s¶³rqùû°rX8Ù»þí«ÀÊÞÄÖÍôåæÿäèìð×Âî¯îo0EWg+GWÀ߬Š¢âÿÆéjiäúOn«¿j€ƒù_KS·Jú—îo˜¿ZW#+{€«™§ë?¹ŒÍ¦V.Ž¶F^sÿ æèlõ/n.Vöÿ‰€àlfaäljkæâò7ÌßØÿtç?ëü/Õ9:ÚzýËÛá_Vÿƒ•«‹™­9= óßœ&®s[XÙÃ0ü3+Röæ&ÆËMÝÿCçnæü¯Qþ33TA™:ØÛzLÍÌaä\ÿ¦Pþß±LÿßGòÅÿ-ÿ·ÐûÿFîåè¹Äÿ¯÷ù¿†w³µ•7²û;ÿÞ1€¿KÆÈðwÏdÿ,[#çÿŸ‘•­×ÿÉë¿Zk˜ýîÿ!˜”«Ñ߶Ù[ü¥†‘žñßB+q+O3SE+WK€¹‘íßžýK®fojælkeoö—Ûµ@ÇÄÈø_tª–V&6öÿÀöo•™½é­à/]ÿÂÏ ¦¡")©Nó¿Y°ÿ2Tü;®ª^Ž±ýjäLÿçáŸ0žo:&vN3'Óßû÷3«ïÿ&å¿1ýçYÎÈÕÙÊ ó·nF¦Uÿ?žÿ<éý—0bö&¦ÿŒŽŠ«‘½éßiûŸ‚Ô&nÎÎIþ×ø[õœÿ5÷ffžf&0«& ðg»Yœ¡nþP¸ ‘>;"ø™¤7Å£÷ µ¡4Ÿ_'Ÿþy¦ù9>6Ú>x„K“MÆc„é—zN”âêeèüØlòþæÎáR³’Ó®Q‡œ¬æñ÷}Õô)î*Sæ Å·ð!£àªq¼ŒÇuxlsI?-á¤Èœª´~cϪÔÅ:ûæe?w†Mö:Wœìï–èU‰ ’¶Ý/duJAÉ‘ålí°DSIuFN¤L%-õh¾9ÖF21~„hÁ†€ŸU)û‚¥±úÝ®¾P|}@µªùŠtc|V t±L¿=¢xµ¬Ã¨/bž!ß”+Yãxq@ÒvZ0„«f¬kÇ6À!2Zãz‘ë=d®ÉXްÑ%wìZ¹c¤òÉ|RõÛûuzû2ÄØ‚à— çN†ZdÊö¡¼šÇ´$û®€*d ùãä üXSµ/>–ëG[Zhu¢OuUãæt §e÷G±¤ðàgžoX1ÈÝÔ Ó&áÃ<£l–âFP¤?0X0ÚžI×iB7xºµ£±tÌ›^ £Äì@â×÷ýe?f¶!EÞAÔýARª=¶ :£ÉÉ¡}ÜݳW òkÑI{ V>CÜZ½S1µJu›3·çÜ!r¶Ò,KŒm&Lêð5ÒÀ€QUgø{•Z¥q+=óÝ=UmvŸes”¦ÌdÉ4bxd|húk%LIª5Gý%›JesEkÙììÃ* B=]Ô‘žÝ=ƒјžŠY„€m\šH¢ˆBW%/µÄ¨àQ,VÀ¦ÊX!yJ‚ ¦ò›~`õWÏI tµ¯¢G׬ö,.öžV¬û1B^÷ñ[üƒÖ4Ðü—J%FHŒßû˃…böüµà¸À?åõòÎdCup;ŽE‡ßT毇i/ËwR‰ ,e dèKërÒcTÑÙóp9œ™2‘nkúïB/­[œÝìJ ïˆ~²4È”œÏ\6Ÿ,ýÈU×6E©aüˆ ì‹ ªÅRÔÈ™ý2Òó!6*÷syâ¤×¬Ã)Ýý(—@(£IøEŽXõTùÃYµ!‘ëÇ,Uõ^IŽ¯ÛLur-³;OÑívקà[ü›‡ÄEv+þ 0î€ :ÓÖö¹o“l(ÈÏHk<Úylœõh–ù66Ûä ¿ #ÀÍa£éXI1;ì#^>f“ñ»K’\Ž†…šóéà+ êûBƒ È“w_WщÃõWAGNð 2†ŒJK`O¢àJ.:Mã“…ˆh!üø ^é®<é´ÀÇ|¾-éË,úD5â¾ e‚`´<4ÃNOÌ-èlV°]Â;üm²‚üâN¢w  2bwÌi0s!v†¶$J\%·B?RRV/PÄRbùŽÔÿ\4¯¥šg6¬ùU:dMµX1_i=KþÀ›>Ïô:| ë¯}h”öHGpC/2· Žù^ž¤š4«ÆÂí»üÛ0…Êä~Ÿ{s|\®À÷Ñ£ÏáÒvصìY¶±íI žA$ÚŽô©±áÇrþ²™.Ï-ìQŒ,|Ø Qý$âï~¦`;øÍ£\' [‹ƒùŒýj§µ±À‰uÝïl—µLÁÁîý™©³ñ«aÐŽ®èWòR/>Òæ¹z;§pŒ»ïF;:ãè-îÁ¢Þ«©,åÃÃ:Ú‘ [¬ã®÷X×× ‡·¤ 0dƒö¢õª5ÎWí¬ÕÅ.wmãèÇfYÚ[6/¿IùÈæOÈÃÖ©¨ŠºÚ+¼±ëN03ÍžÖ‰ùÍêÓä©SÄn‚¥÷lu¸Åcªþ÷âfšá_9ë‰|»ù<`À9¿ÖHŸ•±ÉzÖÑäL_¥aaAü$²z‘#Rh÷ÃîŠX?_j/Ôhüüª4ü–V´€aÎ%!¡ßMŽÛ'Y½´²ücgxŠ¹mèL㸤ÈÌÒôy|\{b$γ %OÒѬ{D-"Š'8‚þ¤ÏPÄí· {óc‚’ÚŒ½î&/’^ñ7ö«F$õ˜ØÊ'†5¹Ï-s3µ–Š1î¶-—å±%¦OÞð'þ$ýзÈ-jE>‘i«ñ¤~¾,ȘxQ…aN<ûq&À 1Átz ¿Ý;þÄðÅX„ IÉŠMìÕÁ¹;D‹¬µîDâm}‚åÛ¾o¦~# Š<»k=ÈÓÕ¦F´ Õde#õœB. €°ÔG}é¬Su¡Å‚•’ºÍàêdküS)z·ÜR )£É 2-}9%‡mOýí¨ê. ›az"~ÊL §ÏSz0ï­áõ\°Z΄ì€C^òŸÉ´WõõÄ#tlô@Ï¥LŽ^ßí@ýö}í3øÉÕ´Bȵûêƒèa½ùˆFÒ⣆/Y;š±¹`ñ¨?=Œd­-&•bìŒéÅÉÝUàÍÚºµÜéB”O‡Íž¹ã|$~™ºÏìßú¡xï³¥ˆÙG«mF¬¿]DÌ÷[¢žQByU_!:L•j¦]v¡7ÆWkÉÕšÎi®¹ˆÜ#¶j`Xa›ŠÝÑ ¾Òå×ÃPëÓ $¦¥*Âhƒãí±nÜUß‚ ?SgE$tK2êº?€yÈ®x Ðº\ëˆÓ±!€¸eÑKD•añj~Æ»Jt ÊüVT–X‹™‹¿Ê.dþ*Ñ–@±>ßóaN\¶uF”q@l¥e帱ðçh• ÅûÙm8 Ûwºë€&<æÞpÒ#C+¼ˆ‚ª3sô~ó¼bUö(΃2„¶‘gy‡::æCGÆ)ç׌ïu0bèJÄ™Aqð6¾u%RºÓ£‘îõƒpX¤äìÇZö|¯¿ 8*Q™&Ž#¿ÓWÀŠ£0'Éáå–‰r[¯ªw¶MWuJ¹Jmòwæ«?ÿXW³í\ å\›¬ z†‹×4J¾­¦Ñžžïˆ=tÚ±fPF3U ¸ÝJ¾ÌM{ÒÈ‘@Aê*ßc¶=Ù Qgf«õ/-l V !¼ÌÖ tðGK›¢ª%0Ý´i³™³è¤q@eŸ´p»¤wÐyq¢ôð†§ŸI­ÿF1|^ü¾vüϹ•aìKV ¸vÍ®Ãbá öbhô­ hâª{!×´`ûFgÒ²ÀÁµÉ“/xŠ^íÛ °Ñ<…;!H ~ÝRjÑ ?°v¼¾ 6Ȳ÷ï"4bùà¢×B˜ƒâéBw5Ò‘º?§%'2Ž¶æŸÀ1#ˆ!õQýR@%±íŠOîER˜–ÔF-Ó/ñAí# ‚T7ÆhÙESˆìk«šëP€§Œ±XŽx»ŠíÿNêË"í[9ÛÀ?oã>“¿¼©Ã·Ó$Ÿâ–Q_;«ª ¢õPä×ÉÉ?¶ &(¥‘À x7 í}q¶™Þ—ŽÂ Ùè&GuVéŠÖÄ:Ñ*ŸôÂ\&•+Û3YÚfÇÝŒh)( ×W+¼iXWj9Âê±F br.ˆvKküL®ºC¾÷€ØTµ-ÜŠXÙÊ>3‹Ágª}¾\‚Ãö -ØYPõß ó*Û;Wÿ&@ÎæÅŽxp.‘@Iq©6Ÿ†¥€IzÆOêjz’ë>§Ç²‡ÀlzH"Ä)曡ÅÓŸîö…ÊE|=Rq®ûâ]×d{è×ÞÕ*3(tT²¥Àu¦f€ê%ÅõĨ‹ðTÿzrNÂÌ o²éœÃ/›¡iHÚc°>„3ê<é[XàW‘ÉÄ@*°(„¼´‰}s°•%ãšpý±Ä¨ñT9\y(S”êlâiKè9wËê]BÁ¨*iÖçÕ>bä×$sI cýG=òÍÁnšÉÇßÊmOŒ ¶”“,¸paL ® q]_mlß~)+l·Øsõ¨ï ü›!‡ûwpL`^ªûÑ ‘%ÈH%ê.½ã^l°›y‘‹ßXGX yá0ªÓù äÄ*炽ú D²îÐÞ„caù¡à Xây?ikOxž[>V„z1Y}]ByÒ»<¼ù$œ´i)„<^C_HëªF õ“à +ŒT" «%ê§^åïgû‚Ý’GÔ åËêy~ºÅ—SDþ‰•X3beŽlŒ÷ÒÜt•öÀ¯_#ÓFXT½“,²«)&Ä1 ÁûâNdí¼y´ÆŸõÁXNç0ô¿d‰å¿ÑšpHæ}û%kää;{Ë®a)§~·V¸NUr¬v ê¿œôâ$?„eGœýº¿áZrÁZ“8‰>æ†<­* ®êf ›qñâ"Â3 /!rŠ¡ÄÄQ÷-xÔ0´â[;ˆƒ |ⲇü)s¸}E¥;‰ÅŽoÛËÄî ^>²,ÿLÀ…©—)·Ô@ÞmÉÍ¢}†.˜×¬ IHc25£éå}Ñ<ærƒ¹o‚oˆ®5¬q HrÒò6ƒ$ð_ÇY?=äÞÓS–ª~Ù·1ÊÜ94·Ó¬¾„C í²)G 6 $ÎH,‹ìÅ“³8#Ð^]Ó>LŽDbGûàü”RKw¹A‰*ɪY[’¹ ”÷x­ò’×èE{ö,}Ø`BbÿxXÊJihâÉ FÏ75ØrW2ö¡dË5GMb…¥¡©l+`T/w‰,Èb/3œÎ`t†`No‘RªœøæÐíÀœµõlËÄi-½YÛ‘frBå+œ­×ê qRœÏGmá*³[^ºä£N˜Sv«Töá5.¨#-CÈóÅ4;ïu›ùÈBX’/ç~£‡š »• Ï ·Êï@á»J‡®pk¤ð¼½ÚM!¡¤d{ÍùþnU4óIìg¸ö1?àWx–½ªa6cŸ$t»ÂG±8ÿAþ)êŽvPXŒz[Oú³Äî ÃÂ4. —ÕnÛ¹ÌYJ2&‹~)÷uÁǬ#‘½l.UNüìž h|6±ÎiM˜ã™Òä‡ïó9\PØMfÞزN{Àž¶«é‚ƒG‹2{wöwŒ¬.º BMT¦ÇÍçl}Ôóì-k{†ñyUP/È“ùÁ^àˆùü£…†%6ÙX*‘NscR’Ø&bâpö¾¬(µ_Èf§KlDWUÁÒ þ kÞ<¼\u2}aY¤%N¢îÍKi7Ï^A]0ñYÃ2š$RñàHq€$þ„ô‡ ¥®9ä7Õ Bz¡©{Œg¸{^Dñïæσ1.Û66· 'Õ¯«ìáÃΞ¨¬~M®kug×ÂÞ…•aÛD~tˆzeR¶lzþˆY¶}URL˜zàà®GGV-·šÒt”¥1‰1%À9 %ÑÝÂ\ÏzâŠçï%Œüݲ%!¡M8Dù TD_M/‚UÒ^’_¶EÐBÙ3¾2™}# ¼ì÷]ýeoøýz"·Í:iõ¤}uÙ9nb¦Áuè+'%¯ayáÞÞ€J£Rcô<ÕÞïç.Í4‹Ú«Ùµ Ü={O¯í+v.|dÞ/«q=ÓNÃ?®•¡i(ÎuŸíòE|¡õšQ¿ž[øGœ“&ˆ|`æùÂ÷§‰{1¯!MR*Þô'‚t†ë£ÏÕO^ªO>ž~pÆ>·Á{ò©'hëy¤$ÈÂuêSW°¡)ÿ"nÔzs–¨ÒL@þA›•i!™ØÈêƒ SÛ±\'$†aÿ«Ò œ¶eŽôAàÃð$€ `#²×°Þ»!ÿ©~ ¨ƒÝÙÐÄ´5·£é*,n¨˜)hQ̉yÆ̓ÒËJ4m?°«}ñ¼‰:´é5E« Û_ã#Bv«£_ùv…­.¦I‡Mt*\Ígo(Dz…>wÈiÚ¸Ð(a‰þ ¾ou~áüÑ„—ð6³ïëA¿Ð"hdAP²—@ÈÒQј^¼î '¸zi 8¨Æ0uC÷ÊívØfë% Îõ«ö'Rz4‡€ Už[gÄj`vÛ-¨N÷æëKçóû þ¹Ó/•OM¢ùLù#&Süã÷Yƶ;vWYDHÈ"Cç}C]H†ôM©lc"…‚w¨•Aïʺ "î5lÖŸ†ä-ÉÖ¯Õè»G%Í.LÜTÛy±³Š£{¾þã¦,s+uÊ /©x9ô+Œë±©±ÛÒqgàå6²:Ç…Ž£Z:eÏçEÆLÐÛÖsøy¹Ûž¹ñ"‚ËTŒ}`ÖÊïäæßä>ú»ò:!Ñ»í6áʤybц´˜º§N~‘›à³Š‹*1¬Ïh °ºO ™CNmÇ¿ÑV¥}œ9(Ù.¥3»¹Êë¦FðA±vÔQÉ'°úwYhs€Î,ÔNP"}°;Cæ÷RÕ.¹œwD”“ËJ²²_GYý‚„ç÷ìq{: žï¨,F‘Š‚*‹—êá¶ã [ÄôadReÒß3F F–8êp‡¸ÉÑ ñèÖTYPDG´éÓTOà ºs?9ö(Ÿµ¿÷²B°!˜Q³ ÌÏлߙ»›넪X\ wË2M¢K¨n¥rý1>?ž¼»\ã•™éÂX™¾óSöª‰–ë¹¢Óbrß=~ÜóúýA-1³ãë~¶q…Œ#>„J{%™£¾ò#ïnî.ÀåI5Üx·¥ŠÑ9U©¾q˜ç;æÁ@¦p·ˆn×;,>·tRø Œ0gƒ™á•sWíÞ^Z:_ë€KDMr9ô!ºÞŠ#íØ÷ûð r…r¿.ìÚ.m•v’Òï›ùU1Óe}älÂŒJò$YþÃu+ze}Ë["#¹:yUÒž*™EaìNãoÈD0÷Z( nÈ)F‚â«ÏŒµ¢_øy3žÜih⟩2à˜¶ïëyðŒË5 TÔ•¥å¿+*ܱB_ ûÊ‹â Å_Ä-®¸–² á6êš—ÓÂÕöµz¹ë+Á•¬óÜã®Ô”"éð£µy¦­MõI›Nó%ùÎ(9« ô‡µ‚x¬Ò ¥Ä¬ÑñlEø÷¨‚~¤úíÒzÀ¤ýåäþùîÐLDzŽiîZH¦ö‹ÒïÂ#;™GuV ±66»XRhßš†x#¾C;¹[Á6Ÿ_Ã"œzP^QIéå2OZxMápúÝÆ/úfòö_g'WÌÙ‡±;áÅB|”‘l4²ƒ9= îOC„˜[ÈNþ'âÓÌLÎÀ;‹¡xZ+qÈÞ¡Ó˜úä4‘»[[þ”I¨eš„Ÿš}Çö±‰?“jÓ?“y{ØHÐËH@г}b¿©+Y ÕõO¯ëg„Ò|§O"°mΆxÚõ¯ýrõ« \±áŠ·›½À¿7 Š9Ç6œŽë^ÌÍy&ïcý3ÇÜ„òC¿”˜-=WºõGj)ÇÃâÀr.]ŠË4mù=68Ö¤»XPæó!ÄY á&/ —ƒØ8ªñ—-æ–"_t> ÿ¦N_?ªAï®`&“<«òÂ01W ƒßH&-®¢è 2¶÷W ǃŽ¨1泇5–1álëè 3 (¯#Ujñq E;&JþÒºÑlINo–[¨-XèÌøzó;©håV4>Ôeš|@9†ËÇšb¨†€/çò²(lj ¥x­”fÕšoá{¡À±ÿŽ$oèÑ5 ½0‹x–›H䤲¡þÓI h½Ä.MKï$ÓçaŸ†¢x„ï,í²&¦²Âs·…‡Ñiç°Ö‘cD^lœEÂ[M†EñMœDô%]ãÕo[ChÀ|ß ¨5×c]Õ‘u’à ̽ñlá±Ü7= ç‹bFëÕÑ’7Ú"8®f“õ*:¬tÌŽŽûSPèå-fj§m,õ¼)¡l)ò ›øˆ‹€ÃÁûëvõëcJ?¶›ˆ´€ ]Qeɦ:9->¢Ä¨òÍVŠ´¬eá(Õa‚žìèÙ¹d=ñ'#€„jMÐäª1ÿ• \ëÁɹøxÆ©?•îÃIä‰ô5}V&z¥…áªíÃóZ«“hãÕN´µ™9Cš!n¹:þÉê=x1‹§j^bž.;bÕLnm¡ð‹Â\]GëºâúOÊý´‰-ç§]óÏÝê0!è‹™’ŽNU¸b«€Q>µÛî×àè´rÓ4­gJÿãùM0±%ßž~—Ò‘¶6æD~‹´Vö"èo©µçãÁIV‰¾SwåQ¼$×’ðåáõfÁX ²É¸Å4ž&k;§XÅY¬„M2³,<"ºœŒÍ.oŽ•u(‡CGˤ6|Þ0©JÓ—®ØáŒp­ÂåÁÆý6m½áS‘…7*^d¨ÊX¼´qGÛòuÏ4dç2“7`˜è|vt¼~„–dN+!Z&÷OY: l|¨¨þ "Lµ¼’•ÝdTEião\Â¥0|Üß*v„× u=à ®Ã”*ߟ‘6·'5©_±2@ƒ·×hû8Œ#àz=ßóLi÷Æ—L¸Mß&v©Ý€Mêæ…YçR[w+õÉÉMPÄwæºÛ Ðõ øð{%x ÂÔIÇ«·ž’Þ— Cà­+#ºRï’Þ¸cv J{¯‰—r.crQ\ÉÝ{@?ròvÖýÞ&ýòÞ¾D»~8¿Ðqø4ù ÙÌËÏ¥‹£¤[/šñ¦Â™÷2yÅÏZ…QçÐÈ(}¾ÕϲûZSÞÔÍ»ëRBŒ>DÌF>¿pÛ|ž´×Œ ¦ÊPÊÝ…61ÃÂÌñ¤(5Ìì+,_Ñ)¡æÍPÿì·ü4ÝjgƒW…#š¹²"N.3à ß2Òòh‰Ú§vg7£%çkâ>tx¿O±«\SX±z!´<Ö¡hW@Ú¤,MzUû`Þ V}®ü+ÄâÝ.xͱ!‹&qž2m¿ŸÊ®„[0IP§ÀSw·32jÏþУØýŒÁuCÏA†Árjò4MÙ¬ Ë]ŸÆÈ™Öûñ‚+½·¥”ŸH†:Õ͉"ñ(nSË% Åc:xÔ+*VF´ôE~=±hðgß\ër„UÞ F! ô4¾fI¸³WïÇCýÌEyvˆî–mI¤C÷ÿ—l^v¿’ßTž½£àïTä ÂEÙ›e¬+T³9û¹.íí~É®Wk÷#‘5ã?q­Š Ðaû§”q ;—|ºí _z›7€úK¾:Õ%WýnvŸ-Á‹ï¶Žt·EÉXñSNC7¢\JlI‹ã9>°î®8 4°§[“r´’–ÐÆ4`,Ü‘«Ù jT¢<`É6ƒÏq”’ü—6œO2ÊÝÁ Þ ˜”LU\‡ÀŸ’ÇdOãdgˆ|ÁUï׺Xø@•Æ6lÕ`jý··Ða¡£“ V~„"p8MÝÍ„¡”Ûƒ…2…O}¡á‡Ü“ÔRøv™ö;&.š JƧ]Ñdæ´Ø±äî3e¸kóàêÙa ¥3L½Ê+rª©FT°CzÝÜ"Ùd¼Ž<õ”©`bn³„ª_šŒù—Kt œˆ#,pP‡ÖIôC¯\ ¿B&êÝ!ˆÏ9 hû$¢­ù ’{Y5çÂÎ…ÓŸd°æJc–¿ÝjDKÆu8e%‘ãÄs§£&«"A¨{ÎÛ¯æµÒüCî•GþÝÉVÍø[÷m ¥®Œn€²„³s¯€Ú,SLåso½÷f]åÖ¹!°ŠwöuƒŸ} ßT1Xèõ–$jt¥Ð¨ wõ@Ÿ+üêÛ‚1‡P‹s›Ù7®Ï Ì0´ÿªì–²(eP‘.´>¸·@N‹¥Ñ*dTîÁë·ÆwÛq¼¥À‘ådâ¬ÞAþãï;ù±À¾›KB`£Ò.Jm h)0:´!'ö|H%­"\Òå’Ï;ŒÁ_°äTb'ظµÉJTØH}—[ä…^XwðÇÐrP·ªÚ¾šb‹tå÷fHzDÜþûIŽ#™'$ÜŸUL¾5N ,@œOÁÖe ¡g+<3ÌNø^«Á>À5þSoÆ^¢iýÜo'>CL)Ea™§'¼ÂƒAø°eÚø|·Ö!+úÜ/®' ûîob'ÖCz$ãDô[Å€ÉULû±éÇrE…+ɪs~`¸l°Á›hP3ÿ£òzÐ Ì5M-иÍ\Ž°Hì(ÔßBqÙ0Ñ°ü^°HX$]ºmÀ«…Ïþ¥ñ„®Ž¡ÄÈÙÔbv3£×ºU<æÅ×Ê@ñås)¢æûþAý9Çòõ,U妧Mºg]ï^æbßÛ­Öý±ÂYßê±èlè'c³*5t[Ö`)Ð*n B*=tÚÿú‹~2 †>×¥ïQÎú.…ERYÐ-ÀoìdMŒ•¶àæÏ!¬6k}f†ùXk¼Æí¼E/:WöøU/ÝÒáû&YS¦Ž5¯i ¹0¬ê6ÿ”Ô rŽ|¶D/\щNæP0àÝE`W^CÞfþE eò%8Û9ÖRؾΧ"‰L£iÄ*gvUÄßÕKÆ¿CHSÃÆ·ÚF(Öñ ãrÓ‡ÄOhÎ LŒ÷Õ¯š.Hˆõ,ñÚ*5’Í‹ (œ´ñðYÚ€6ÓåÙ»è'B~ØÍÊÚo5ÆŠŠ…ø’¶ƒmâ†ô ˜Óðãá“›f $é0ÒÇ“w½åDcÐeÐ?%%5ð> Úu.æDö¢œU†óK$àHA˜ÙIÛãÝDW$³éõ- FQà[TÊLÅÈ.µöÒáX–ŒS%œºIÓˆ…äÔS£m às@=ÂY¢½’‰+÷op$¾ô–Vµr®÷6ýÆ^À1ék·ti½ëi A@ežÇš¢A :Ÿ ÃÆ'üž5ˆè2±j {I¥OmͽßA©,¶ÿ¾»TÚÛ´óœ]Qb} ZUƒ;üÁ¹2Y!³ž±:¤¥I„èÉg'RdMÄ­8U¼ bm”´«G¶Š4ãÞ›ž•éd–é7Hh½½(PS—%AtUù¹À¾”k õ%Â2 ÕËõÎÜÿ‡éÄXYµàÂõ™—RŸNy5ûl¼VWÇ Kp7? Žé«[rCØífÂÐd×µZ¼8^­»Ìg—,'K+#ËE‰–-`ºVÜ”U½ÊPY´˜_û× &­síY^%Á*˜D1vàÛ¥±Åaià©¡aüŸÃð/ÃT=;â k]Prª Òi\—ÃjRùÔ‰uFÇz¢ž¼J\×KôÜ  ]ºšƒ? ðWßjlÖ#·áºV[ ô^ø•nhj³Òj€‰4³M{€°eWÓÅÜš91bgHj“){4S·=¢ |)‹¯–ÜC‚1´Œ`˜RÓ@»„Ì‹šÂvI)Vã\ýVe“ÞhDâ“Áh…',…»™‡”H(F¨ˆ$ WiØ'/…7–^§4LS«ä"G>!C𫟢ʪm¸è–f ±Tœv«èУ[âô‡>Åyz¼vÜçúEòëÁOy ¤*Œ._>ø7Ãå»ÏÙ‹ýä§Ô¯7òäÌ1æß²ð’ÌÉTµ¹mÎùDÍjô@ýÄÊðªOrùEj„âyH(¥bV¥¹&ñÂ@ˆN¼ä|Ðè´se„…ÔºÁcú3¢UŸd¬›Pîo³ì_\,ø#‡%SŒ£—ùÏ)´0Û ¹Ï°nõ§0ùý9ˆž’Ó•Ï^"{‘X´=k7ÝòÏuØ×±nÎUÖ½‚ѧfÜa[«³Mßâå==“®mKhÍÜõ÷XpcÈ&wÛÒÆÀ¼ˆvëŧûeÓöj"M0jIVx f[ Ê<Žtrð]l}H%¯1Œµ…݆Þù\Ëaãî­>™Ø·f™=ýYfèÖ-[Ü¥!&…ÏÉДXg@39ˆÍÃÓ•Üüµ4Œ•yž£þ§!äXÑuñzñ¡Ú¡!~þY•ù"w¢ŸlÖjm²¡œ¹YzÀê»Û Ï~.†‡ôœHÐX™<Š·e0›JÒЮÖ_­† Q]ýÑuFãŠò(`LvCYoßyœá~'b„Ï¿X¾ÝÊ°'¼Ò3$¥á‚Ï8fKÜ%eöx¹È¿w‡tW£ø’s¯Ìjþ’ŠßJ£—fù<©O^ M—ŸÙmÀö;…qÉZÅëw)Ýö©_˜ÝK¦Ö žéxáïôÖ_ƒ%îîâr•ˆàõ©3Ê\—Ö…"›ìá\yÅ6ò§­IòÀ¸S&Óh$§ò“Ÿ¿¿+o’Ð͵˜7}µpÂ'×tç]Jü¶£„”Vý婳‚ÿ}äáb¹;c93®Xá[ÃåcþùÛÐõ²øRÿ Û³šwÎú$J‹‘ˆ@jí;—Ù¾-0…üÌ:O²â}ŽpLØ®ÉZs4Ý×ïùÞI°5äpRJî«à ƒao£•¸®"8e ßÉïŠÔ £ãš;zQD­<Ž’ˆÝt3@dyø  «Fиý½>Éó&Ê ‡Öo“þƒJŸK"k㢦Td½1®Hv‰#‰'YƒÉÊi]·ÙþbI¾Y¯Ã!*díð•U€Ò^‘M’‘<ÑÞåÏøýHé0QÿÙÁÊfU:ÜòHŒD+ÿì—JR¼r¼†jNL*ZAöÝv9Q¨Ü`ø•+{ðŽÊã‚Q’CƒæiÚùѯ}œö¿»ªðܹ/Bgö¯mï¡Š÷ó‘ ÉœéÞˆاþÅ |±þ GS7žæIÃ}V¾Ôà.;`-ÛÞ9í´7fôM¾ôóZN=· L¬Þa™Ù”3šHˆ XánÌP¨ ý¨À”ræ$"E(¼,é–丣n±‰AMZÍÌ»Åey`ƒêün¶^&ga†cÁÖ“Ô›ì—p ®4/‡Ÿt……1=|™$2²ó¹„K.…VñGI–hÄY¢ù«m2·ÜâûŸÆšn5Á]–½›á¶E* f9¿ÐŸw ä-='7ŒB~eC°y|;Û)€4ŽƒÅ ;ŒuLf‰Ua"hT6w–Ž>²:ò”¯×à°pHF”iJˆ^l“ù¼ ÍÌüŒ ˜œý¢ï El,?Õq6=…³5ïÎC!¿%n—•ø…»u õ}ú›?ƒ{ÅSÈa»+‡ùah‰À[Dléø¶Ù#äk–eíºð±’_rðƒ:%·ƒ O»úþ)ÉdÃÙûŒ m£åŠ‰©D„w%)k®¹ Mâ6ŽÂÖ“ k$óܹð¤ù²W®?¬“ŠöMXC¹AÀǪ5QØ ¸Ç IÏ›«{ǹZø!³Ê uóiQAØYß^¶%}~›—ÒSzsP¡úc¸\›½ò‹2w”o`·îsÓ"²/ç¬÷M›bV܈£¦øA@þLkÅ¢ÌçÁ•$§hw'ÆmÎbÚm‹Ö ||»¸Ç¦tý… 4s¤èŸ5'«´ fUû¾$›!üd„¶·ÜÕêy^{"Ó1°óã2ÖšUùžhgKnhÄ᪪6æ¦p ÿ‚Ó• øýgjæwõ¢‡<ÎÔ}i’TÉ&A¸ûKcÔÉ>;{nЊSõŸÞY¯µ45»›Vó´ñŠÑsõÇelûBßZmóŒÒÇóÈ—q¥/·)îCÑÕUSÅîçEÌǡ״ýj©îr¬±ÅZÆjh.,pèµö57α$¤µóŸ§Â/ò“Ø÷…Ž™[ ßk8RŠ°ß+,\8ø=®Œ¶j£Ç9,Œå³–4¥•â†ßîðf©=ek>WŽ,à^ºÁ‰Â p²bòë&ƒûÑ•BxªÇAØ¿¥ÙX¾Ž”+¡‹ _3ežŸ/<ò*…Ü÷Äo{¹µ43bt4ñ`Çð¯.­pñT|ij¢ø»pé.¢ÒÚuÏòµáæf½ï‘t „¬|Rïw\ „\3Ó×£ 6ðrªúŸz±Nþ26P¿‹–˜øDë7ÙÑÿÉ‹£ä#æ!iR¶gµ°g«\±V§•êœ,(ÉÐu(²rǧyRøʦuQÁK”0¯mƒ+|ýÕec“Ie#4µ9\ò.ÞˆŸ’18Sf]»?Ïf,ªÎ›È橧|€ áÄXé}ýªÏ“Ó!b¡sñ^Ìù¾ÌÞ¯vbžÀÙK­6ž^J"( eë!/e°òosélÑ[aK Íý©NX¸­ƒê(¾ÇULs&Ž[4F!R÷ $T¾ŒÆ蟥oGï¬Ö¹í ·é±s­À é믞½·ÝÈ"'ߪ§äÔ9ÝÇu}9˜±ÍWVêSê^àdùÕ†ç }w^¸®¬þé…òlkFÝÙá"ö›S£¡¬yoç[\Š•‘ TÉ'Ð$pæ= íC9óQ×"|õã‘ø“ËÏØϯ[ÆUuøœSÆŠ„0 Úže—nÅ_Pq4QWŸÒaª¬žø§›"B`¬ZѯF÷T¿ Ì7±xTÜ Þá»`/šT?”wÝ‘î“Æq–Û2Rû¶¤ìÀHšû·¹?%Â/µ™cådÏ1eM7Þkk£¥oÎRQP>óüEÕ1ú/СÇ 1ñŽõpŒÚǨh/ÿ·3‚ÁDŸé{†º hK8-SØÙDáQ‰ô5#É]lÑ"w×A¦{áܤìAض=âÑÓˆJãW´àâÀ––k\-é“eC<`ï~\ï0îÒê|!8Å‹¦IS¨$ì 0udÛ¥7g¹zJû+bpzªUD÷Q š”ƒpÇ%¤¬‡ÍoÕmZšÏãcñbâ¥2k”樢üô1ÿê?¦‚Ôu$`‘6¸Ìòqž—E=s%Ö|!6ò>ÈÁ//ǸîqPFéœ0 ÏGoý¶»äA‡€S+@}úôN[/C<*˜ ó¯óH5’3ˆ°ð^į¶íäo‘û,܉Ô=µ´ùñ{÷;6Eƒ¡ @®æ¨K&¡ÄFZ—Õ]Ný”´¾Œ¬—SHÇB;,eãøP®Ëk(Ô¾“ž¸æÞ{'³‘+ôïר0>ª‹º«¢Y¿ïš§*³µM·Èiõi…cðŽDMrAùgqÒt¤Avc.Úˆ¥§A–YE¶Xãöô‚þƒqåÇ23†õ×󨯸n _•W=â§í·þv~!ee߬‡ ™ XgM£ïFΊ”ðè@ûK·8§vÛ´í†Çd‚_ÓÛW×Q¢Å’Qõ`¡£ÄT¢ñ0Ð@ –~Y("?d¦w¶@³V«‚$@<41_l­Ê¨ƒQ¬ýÛ–÷´«/e.—^ "[2"ÜâÚoëû÷¿*ýM§á?¬S ÀMæ9ztó2àpUjX ªÕ!ÜÝ Ø6ÀTÃáñÝäè½¥áq™“9¼‹ žrb¼—¶‡È!BÆæîÕ9+šG‰L]¥nâí+˜®¹á?ªS&m•‚¼:ïå¡e?…Üwwb:ÄX±×)B¿{`2Ò6_Ùçbéä l«Š ¬ìÌ$lä%ð> €7œ…”–y·Æº+øb”Ž÷"¸5£ìûÛ©µº#«2ÖP—äg¢MlëŠR´—ø“þ¬·ê‰T[ÓÎŽdk'äÀs +fZ‘ôÝÚ¦Øæn*šÓ§œªr) dJ†€*Û”„gjgž›Dÿ |ÐÑ°¯Ô“óÐq:_÷Eeˆï]j:Ž±ÚL¼BA‡“"øû‹Ñ>fv¾cÚLk‘ö' ²!¼ìYk3ßç¼E‚c2§³|tØpVwÞE\îš~¢j-7Ј°ßײv4[ç) y×0‡'€Ù„B>;ù²)K-G¯Rla0¦¯®Ó/«ˆoø«I||%Ïæ¬Ý&q«KÁÁtëÚ{‡üŠìð,¤áÔý=ŽÆ]a`%ŽÜÐñ°>J ‘?ÍŠ Û*)Ù(WI»'ú“ò@8X¶yͨU³ñ:rý8±ÕüÎS.îdx/öø÷£[ òÎ/ëä¨e»Öß ó¾5Q†4Ž\£­Kµx¨B`e"l/ÖE$’®O=+– ÝTóÓ#¤Z†“¶“EokÔ”ÍáÚa¯|u|C´gpfÔ”^1;.W@Sïñ5Ï Üpm‚µ'üæe/ìÜ«0Qf…r*(ª#j*?r Wü·£ ºS4™ƒiº`PŽy‰_ÙýÛÅz m 7Wã« %DÕï*¾ \«’Cóã7‘Ôlûˆ éH†ún8h,Lé7.)z©—uhÑÍVç€ßuõ¤9·›>?¤+»Äoªš[^ðWF´_§¢L>çhT'2¸ Z}‚¤{dd¬EÙMÚ­ì>{%0<åñðYȤz\݈ŠÂÞÚAé#Ç"î Ð.úláÜ:‡J3*¢ŠªÌøŒfbÌÑyî%íØ×øsÚüp%FâõâÖ]wC"«{KÙ"!Ѐ$ϸz¶( š,¨Ž~·y1ôA´ÆnåG¿˜Ü:Ê¢–( ù{íØ€øá°Êì¶lÉ—|GM¯ªLZ×ûŽ’0I†ÜŠÈÒ:‹>´oçÃÀùvè˺͉IK<|œùÄ8àeÞùø}tPͱA¿Þæk Ã×åtžüÑ¥µBð|܃î‚„ýÀз†·¦F¦ÔzM‘{îÚ{åøqð|ÿ¬ªˆH¤ÑåÓu•Å_”}“aÿa)S”Ó ·,°£²ò €n:–#%ïC½A,.f\ ”?d‘í÷'%z-°ÎU.5ò…½¥ÆMÑ.d©=ëm»q§í± I,ÀůÃFf4‰Z‘Åå@+Ž™:V&)Š×X±ü!¶ôíœCš‰èé] @ ÌÙxH®yÕ½T '¼ýúÒ_ƒÚ3I%©"m0}Ö…®˜ö°·ÿ†Cƒë+ÛëêK«:Õ0OTk8éIc@(Ks3GSï¦$lOǸäe'ÈÇ2A^@e‡­B–âFò²wǽ¼Ûµ)ðÃpQƒ.xSóÌ+Ä•žé-.A0 2 ðÅÁo²5 p`~éÑKD Ê®”Ã+J\Da˘ˆÚ/ ÄOÄ\Û×æÉzQ"%|»'ß@æ:ŽÓטM¬ñôœC¦ýJÕþ“i#î±–Ôø‹Yb¾ó¡–¦FDáù©ëð:»¤œ›¤{ŠÉÕÁÎi/R",Ùú i ÑHŽk+bRYŽõ×µ=Gƒç^‘XBéù^ñ¦‰%ôÐÌhÿ1šGãB~ ÝÇÀ!Ád¯ƒ!¦D´ª<ˆë6w%'¿_5”÷5é8’{ŠNÆê¹!!L8ôS;O$·>Œ\6Æ•\×: Ž ŽMw¹M:^&s–v§Hæù %ñÚæMªEÁì£Æ‰ÌÙ[ØßùƒA-q¤æGX+ºT¤Ž¸·k¯È_IŒHW/i„å¼å㥫,¿ ´Ÿf[Ð¥˜ †·a€[ÂË”¢­)í—nÒ"ÝdŒÖa¤ÄÙUt5;²´Gb×ÞSŸ=×PÌz££ 2—ŰÕ…ßáÐëP*¶v]§’´[Ø9šæw]bêVŒTvJ`ÁGaý%wq7™ýz—O+.@5bÑ6¢d½uG]/YŒ•Õ™Òø~–™ÁT{‹PC‹Â`š"Çž§úÊœ|ÑÛÐú eUtKå,*óÀ‘%’ä!ŒÃ‚aãŒ~T!,ä+mfYØ«Qg‚µÉ"[³ÎD²N5\‚™tN bªÍŒz7vÙ‰ãß+zvu3$²¦Ùer©±x´—!U“W˜t]<\£>ÂÑŠ­Q©fÐVuΈÐsÌÚOr¯çxª›òË݉/ú àï„J²f A æy¨ð¢nkñ¨ARž¥D‰è.åãäN´ØYÓ ëR3ÉÍ4üÆ> ‘r$͈FÛ¶fÊÑ*îææƒ*å–Šå„Ç:pðçJûIG›/z·eûæ¤iáŠÂ ÜáÕ]j1k[³ëûØС ŽìL*ˆVí)ì\,Zd”5%ö”“óU¦…z{XŒ¯ ³aMÿ:7&^” Ð[Mý* Ðõ?¢¯e3t!%x/ŠôcT¯Çuî3âv'\ë3Ž‘:ëq±/ùÕèví% ÚƱo1ñ‰—̬A·<ý}µÁr\Õø²±üœë(Çi¿u‘ I©Ž!¢ƒc6j^•±aÂÒ„Q’²Δº¹ê(%Zn¯ÇΤ‚i¼$dÑ~š*Ü¥0‚J§ -E›,£µœÚå„Yno>Î]¨ú"To¥žú²`áq‰af‰…LǶNÕKûd¦ì8ODìp¥h3N÷Í *º4®:«êº+H…¡Ýì‘ÿSM¿t!1þ“PJvLSÌ{çàZ“Rk¸Ÿ`9‘”¸ì_~,pWò…ÚóÈ[z¤—B©‘åû”|½á*ŠÓ:ôd.¶¦´‹| XâªñïONNF¦ŽÊñƒ8ÆEy]=6 °©96víu­$‚ÕyîâjÊÿÛ$îÓ|úVtè í Ôý]òõå+:YKxÜ“`¿F•#*?-äà¼ÁHîé²¥Lãù>àÏ£ $Èi íq6vÚ&þ¬|Ö‡o„ß'§x?$|éÒë)6ž Êqy&Ê‚6Åœ*lïë=Š†åÖ7Ñ–ž¼­¨j1ÙÙxó-/ƽô{d— 3š=úwë5 ¦aRHjFœ§\%Ç,Ê÷'w‰¹è«!5qè#’à/é ®z›Óh3à^ž)eŠµR~æ€m)­]ÀL Ù{ý¤!WN )Iߌ!uå¹ ^8³K[ÚúÐÑ—³7f°ø;û¦ä!ãŸÈvœ85BfS›µxÓÀ±Ž~®TAo6Àá‘Iò®6‰þ{Ù/Å‚¥®6¨•ß[á.á”÷ckLY2ûhh0ÖÂ?‡R§zóÕOårÞQ4òÂô‡Ê‹Ài™æT{Ì„¨™ï=•^?2m[üï0]åQQÂã½ÛG¶) Ë·hbVD†—Â`‘þÊw }²½Íca´õj1.”+ÀI[HåáÒË|à¢[Èhä¤ÃæØ--,¼*œ?kc¬}‚Å2Ó¾X\rþŠôسèYñ¥{.§©‘\§‹´€Ÿñ*ˆmϳz6N Z¥Y{º¹#mCni‘à¡aŒ™´:g¹ùi¸à'˜‡ò[냠a–²xáaÉji:¦+i0q¤îhèÇz—ø˜[h#¼•íI˜ãPh àX¥N«îœWˆAÐs(—‚•ª¢Ø:>x‚’u‰6q¹fþ¿º„(çj€ópèÙßÆ…úïÃ{¦GÖq/‡¸HiD/¼K1SšxT ó½g#÷†4VÐá.åõ7VZ7‘¤ªX È*UÆ¢àÈt¯œV5½Iš3÷ÓÜ¥87µÀ™@‹—•hºÓ^߆ïzø}uˆpjá´xVF7•øù5b„€2Ùô”‚à4qºdX8Î]ùÍœW³¤Æ¬Ýt¥¾>OZ8NÒ9.©¡MàÔðÝs¢\Tî_Ú´#7UséñÁKÜi…Œ­;¦ÇåEØèùÍzE©rdÖ¬‰`5>2z˜Ú E¼ØÖè—z —5ÏàZÜæ-åȨ#BaÊÚ2aîþÕËdn¦ýõ å9 ªÌ¹¢ ìw} ¥PÉànÑ—Ï¢3I¾…€ÖØ eV߉ú™¬]sœÞ#›Å½?§ñƒ‹È¿ zÑ,k”{ltt\a<Œái7r)ªN r²Z¯ràˆÀæŠ~C&Rñ‚=³ê¥Ó˜*v-ß?0 FºÄÙtð8>ÿTÛ{ðU‰m]á}‘¼󎞧•( öÞ®•\ºËK’óqƒY¡®«åé6#\Þ rÕ!è¼QK™óMŒÄg£ív Èî8ßù¤éäfx«¨²@v NûyE L\ç^ógâôõ†q½ªtº^+«&ÂxEÿ¹w (+\¥iè Ò!mìÔÊ>¤áN$%vcziˆBe†EÀtH ÃÐP++ZÅBá1¸ßCBXvŽÞÌ“Y}‘*¼#•­VÌÎi1,!UL³Iš¨Á\¶Æˉ˜°ŒN¤ƒ8U˜áûa@}âò«8\1÷9kJJpÿZÔH*É#Q±[So{ЕpǵwÖ ÄŒ'qÑË2¦=ª;Š–onœ½‹­‘Øe«ÒÎÕ 5™e'0Ì(Ü;eãh A 9ÌÔ!â„ïm…Œ’i̻犖ƃŒSïîóÅò\?ÄùC‡OJåQê?Àr,è‰ÿssBã žqU\\HüSömÞ²ˆ'1‹íD;|Ú=¨ñË?’fë¨dx¯k1’XC0>i|-—¹ø®ËÓ'Ïš@K!IRÐçW- Uþ›Ž±ÑOüèµy° ¥…\/å Õ.2óú+ÁÍÊ"â¶Aã´ùÑOõ€Qó; ö,×6­zæT§ /«E6Mbõòᘺƒ¸m<^¶š”)t¦RÅ®?Y6~ÒgÕqŽ³©#T£ “¯imñAß–_•¹çÆyPþ­Ùâi𒡇o–ì,*C…8x°2V-À½„9¡3q¶ŽøÿÉš¨á_l6Æ2ÉgŸ#}8Qœ»¡¢±b¼=ÿ²F¶o/ôã"ä¾ããZˆÏLò‚þä"‘ÊdnŸ´2ªÙƒá½Ñ…%X?0Lü:ëfûgÂ%‡üÄv¥Ö•w`Âòk¹ßLÅA«²Œbï fÅœá²èt$ÆÛ½1Î65~sað²×9cà}Öa~½/•1t˜ëÚ¼/T•Q%÷Eáщ}3OÝ“}ÌkÈ"º6/ºA(ž4+½J9ýÎÝÛc„;‹„Ç÷ªøˆA „‰I™VL¦cG§n0_Aå»3dÒ!Ìpâ#F´8âo²:õ3øn”´Í{·: àDßgèôp´Ò’Ð?ô¿¢wQÜ^Õd5º¦XØœ@…¡2 ¼‡FcôÝKó+.þÇÊ^¸’Æ*ô¶[³ŽÈ»ªŽÉ¸dÿâO¿…D½w$¸ -Ȉžvcp×¼kgúœžö²ÞÛˆHÎqvóÔXƒ»ý5ÆF†ÐŸ²mÇŠQÔû›½i|#§¡šà„e X»N Y`euYîCÃ6ô±^x˜^\¦¼Ñï¶Á§îq6%µ/± IÍp,hþäøºØf¡67ý¯Âø»‡™ÖjqKn øBtóÁð*—!¿‚éþÛ Ì›ZtúùÇ{Š«€â6ß B„eü¿Þ#Ɉ]5ºî›£ ѧêl<€ ½û^TÚ¦ _Ó_´o‡\:û\Ž1cÔGÒxT(Í­¤¿®Ï¨¬¿…óv´r­ªj{8e¾Et."ýR¢æŽÌlï#·FÚãcxìªwfd‚€†é ’¼>:3v|wså|)ÜæŸ@rÚPÀáHÛ+eëÎqø$[äh>³kòdV7…ÙC¦<¿Åüf”¤[QÚxVŒþ ÆÈ3$Í`X³F]hà¦ó7÷‘çÇÒMAºZÔp³z+ƒÄí´SP†Ú“Ø*$¨€/ÔP–‡t»§Ï§L ^ooÝîJÀ„ÕŒÏ"?§ðY3\Ò9„¦ý¹`§Î¹r‘ª <¥©ñÝ“WI1ˆcÑùWÐÓཊùWÿY‘ /{Úè9‚jÔ•·û´ x»Õªöy`’ȳ§¬ ±8ëjþÙà§ñ z΂މ_‘SzIÚEÓ€ŒšEIËèaËñAÊu6Üú¥KlÀ+/yçhD÷ý÷,SmèL]XÎÓ=§YËRÕûdÈÁ› ¥ÁX×r=ÎMy'#û-ñº—‘^gå4æã|ZÎ+­ÅºÀ-;—~™¿Ý;„Mw»Ø£Zð—þÐfX2õë¹,û›ˆÏ(zMÕ(G*èš}"º„k1_+Û«¯{†L-"¬#LíV;:°ËÇ‚l~óÀÆã†ýNžO§ðåïy»nØ­}v¿øìVH¥01Å»âmóðú‰ŽØ2ß iC$q~)µG…Âÿ4Ž~€’Ü“žm},1íé46?eؾاa5{eô±Ïà—­¬ö˜»¶p+U¼öwbÙœáOŸÔºÀÅ ÝïRq]o^¬kÛ‡• ûS]—žâ€ Ã2vbi{'Qwa¢®4®ê·4 õ)¿>§!2`ÔGZ©¹€RzO*zŽ¹N}2)¨iI†Põ¦wí³!Ùï'ÚáiÍÞwÌ·½4RSûÄ‚GÈ!ƒjWGNxœêŸÔa…y¨LcbÎ?¬Í< PFV¤gB?UTÞé?‹™ÎqE—©Î5Ò¡#—e0Ò䈹HÖ´Š–‹¤­Êtÿ|’—kG—«•\éªôÂüîRÎ ˆ‡VÇ2uõ`Ã2‡ÅsÊ·²ÿžvßvâ:WÄG !y?î!)ÿ%’èÿÊ×r+›§^JåZmŽa— dìмmú\?g‹ÚÄXLëäG$•Sl ±l’%ÛÍéÏÒ¼4߈*]äæ½40¡†Øa<­¼z\¬ÿɇø ì†ZÖôå*7ôE6³G)رWͨUZð!ÝÉŸHÚ»çdà’v¨†Sb; î‘YU&…xü½•N]yy>NÈF³ åS¸¡8¶\›—Ü‘é}l8 ×»¥6t`ïIV‚. †Š´kk!×ÚbÖÍÁ•¶²g6»°žéa îç{š KóüºwÅ«úŽEjQer+Õû¼ùy*n«HA€8K– ™hÚŠ[[xŽŸ);¦€Žgµ¬Ô2‚ɬ]}™}ãSáëÅxV ãZ„_!h\ jxï‚9„¶1€oSkeX+øåb-a¶Pð‘ôVÁLáþ“‹´t‘ɧœByŸ1iÝÙH×ö{¨!U ŒÁÝÞVÚb»˜’O~cL ‰Ï¸ÍäÜ­ ΨücΓ  x©(ã'ùß"ET±6¥Ìû–È"ycâIRR¨ù7ï¿ÈiTy!;_ÏSÇá7TXÂYÆÝÒ%  FŒÊk%ÇðŠíƒGÁ¬ew¡ògb%¢)+Íy²ü4ö[Ÿ^!=ê͹ ÊšDùÜ­óào~R`Ú°–½*‚j–¦lwÖ…>JX‹~Wüɶ²G/÷‚š…Œ(Z> ÍZFüñ¦0»"B°€K¹•¹¼Kj‘ ÑÇÅÉF«Ýº/~µºµ¥¹Ÿ¢Èž¡ŸÎGa×ôÉ»'d¦jt0´²êw¼/º—‰ìØç¶MõØC°QFåéàâºåhOêô´ù?ÀçF5$\F÷ ”‹ùóZïlá ›Îý$0`õ´²ÿĦ‚8MÒ»= éq*«1‰I±¾‡ˆ0ÝÚt|‘âdÕ‹#Zœ× sG.¨È1w¸ J\B7(V¢Wí H(º³DtüP7RDÁà“ˆï2A©¨&ìSïlF XÎx2B4)‰þ^ºñ.$ÎÚ»•<Ñyõçr¡>-Èm܇'€sˆf ksíìÌüÄÁ©?¦*¥B  “Fõ%‡åîiÃSEé ‰ÌöËìpSU\XÉ/Å鈙ä†zD˜«Ù_Ÿ¶s´îS³è÷‘RRZ[Êfàäl6K\a¯_8«%¢Â…Ü·‰ÕœŒ‰º.jK)Z¡ÏÖ$%(¹à—Á':-¶_?²#täó£èUÔ¸A‡ÓÏqïî×0*‰Ø•vór Ñ‰‚¿8d€OY±\Yüª2s: G/â>Gâö-‘¾ï£}^U7­ý5;Áaót3cyçüù[³|ˆ·¨¶*X~íûˆL|ô-vÇ–‚©wV¡êƒå… þÉÜ2¶`Fyô…ø¢{v…i¡ôþ™·¡6-nÍÁXA“~Ãé_1q[9bë&é„ñœkFÞ>qrkÐkMì8„­÷izinÀË~z¢F{ÿÌ÷îW#µÁ‡‚>z“aâ22 ‰ød}óóÉ¥õ<[R“9iŠ™û±D*ÿ_¦Á‘[ož¥Ht±.àà À™ÀÅ#z›y«ºÛml(|†cAmAªGúÿú‡AÐÊjÓ`çßR z¦ •Ã¥V ‰gJ¨7ϹÏ*èÊ-Q×Kv†"–Sy÷õ™¥Ë¿G­,û“‹ \åÊó†.:þ#á,³1Æ I&m» c0?ø´l½\³ü¥¯„ÁÑÞ3³´œ)Á¥ì†‹;¾ÉŒsÇK[†·xí‰6&ºÃŠŒ†x~9yˆÆð»ªoµüϱÀ·Ô‰‚nk°ö;œì…z”ðš/òK§7hblè`­Ü–WF¶¬»¥»’·R˜´áÆ¢m”óÓ54Œ2yÎ endstream endobj 6498 0 obj << /Length1 1644 /Length2 11708 /Length3 0 /Length 12551 /Filter /FlateDecode >> stream xÚ­weTܲ%®ÁÝwwwww§‘Ðиžàîî‚wwwÁ-܆|wÞ{³îÌü™y¿ºOíS»dשÕMM®¦É,n¶Ê€ݘÙYØ*vî®`0¿³ÐÆðnçF¢¦–tš»Ù¥ÌÝ€] @ h àà°óóó#Q$ÁNÞ.v6¶n:m ]zFF¦ÿ²ü½°ðþäÝÓÕÎÆ@óþÅ;9ÝÞ)þŸ5@€›-`m$UÕôåUdt²*ÚY #ÐÅPs·ÙY”ì,Ž®@z€5Øú×` v´²û[š+Ë;—¸+Ààê´´{wzYþBL' ‹ƒ«ëûw€+ÀÆÅÜÑí½n`€£%ÈÝêoïvkð? 9¹€ßo8¼cïdj`W7WK;'7À{T5)™åéfkîö7¶«Ý; [¿ß´[ºÿ-éìæu3·st¸½ÜþƲ¬ì\@æÞï±ßÉœ\ìþIÃÝÕÎÑæ¿2`¸mÌ]¬@@W×wšwî¿Ýù¯:ÿKõæNN ï¼ÁÿÜúÏìÜ\ k$vŽ÷˜–nï±mì‘XÿΊ¼£5ÀÎö/»•»Ó`@—D÷wfèß“0·;‚¼V@k$V°Û{HÝÿ›Ê,ÿ}"ÿ7Hüß"ð‹¼ÿâþ»FÿË#þÿ}ÏÿN-㩘;¼À¿v à}ɘ;Þ÷ @ ðwÑ€Ì]þ7s;÷ÿÍëßoëÿ•îÿ…LÞÍü½-âŽ6ïÒ0ó³pñ±ñÿ °s•±óZ©Ù¹YÚ¬ÍAï}ûÇ®íhtÙ9ßõý§µfv6¶ôlí,íÿ Áý/èhõïU¼KöO ¬*ò²Œÿû’eÖ½›);ï¿\ÔÞÇÂMËÛ øŸñt•ÁVÿyøK(!öø2³óð˜9øØß_ã{jü\~ÿ‡àÿ±ÿ×YÙÜÍÅÎ `ÈÆÂÆÆþNú÷“íoìÿ4ŒÿFÚÑlõw4ÝÌ­Þgï? aKw—wÉÿYïõÿÇùŸWz-‘VÁ–‚!Ó2ÓݾãåŽKöv³C†:•Ök|þî Hû²Í_iö\ÊÒ0)ðÚâ½pìô²§Àðk¸DÛ•<Ï'ö£¤ï)ÀØ iãeüÄjRŠ’~¢å{1¯´cÀæókg\]ääŽd²ÓáâŽþ3¥GÁglª['TËÔºXœvôÌï…Ç'4‰‡w·´ý#Cƒ]¿a{öˆsb©Íñü“ɓܼÍ\þÔ[¾Â>zðºV-dýÐý†‘¨íéCô´èNFu³Åž~ÆIjó&ù“MlÑ"VÑó<< 9†£(A„‰lTrJKÁ¤¶}Qþd™gõ´ND Í>s™?Æy¿!rQ6²ˆ{óC‡NL®>Ó ,ÞJN‡=]]_'RxŠ—«–P”ZZ5Rìûç‘Š¤±âh“67?RáNˆj­´¾Úì5æAa;hæhö}ψ?ÎBlbbúÃN¢ná5ʹbDw…¡R6p%*&>VÍ®À‹¦5Æt`Ôx*žÿ¤æ|$ÇÛph ˆ’Ï¥¾þtlò£Ë°£3Mš;eNÔlê ·A±dÁ»~P_®ó ¢LQ$F%ÏŸ+ÙàäuÞ¢f ¡É0òÐh»’(«U"%³+‚g7I$p{Á…»Kã!ªŸ2Šæa:3ðSaòƔՆ t¤ðM± Øf‰oh]wŸ!ík±¼ ô<±/ù¥•T鹞×âICíôñ“‡GæB\^n5åÏÒ…—÷îFßdH<ý™b#§út§õ)¸¬µ”8Û" ûaËo$º)0XZ"ê Då^¹^Zö›·JYêc` µn” â'Æ®jY+ÊJ½¹ºb¥l©jnt‡À°2ÓP¯ZWô[¯`'lö›5Nq5@ÿ=t)´kñ³"Ýûj ,ØN;H+ |Óœ]u18(«<•U˜æš³ÛUæ¼ê©½s.GNWSG/;\®(qï«Ø5‘žŒˆ"§êEæèlo;ó=ùÒŽ"Õ°D#*Æ9GJ¡F×DÍ¿¤öïvËs—à æUZè%Qç2ºÓLŒøXp+˜ûùÁGVìTëz›ˆsË6G›ò½ÁR/œß‹Ž'Îëæu ¬0«Øžc;¿—Cã«éfBM¾šÅ|¢0/õw½ácÑû† !Y¼ù\*‹Z·MƒVqSîã¢õ=žßg’¾êãVQ–˜{¢2±šC›—G°àr½õEì1öÑSö$³‘d’ž¨Û•‡}mýدN)jäëGb¦iÂåHÎéï܌ܠÄ4ÿs^ÀãÏZ«Á¢Bä?Ĺ˜é»5ÙÚÏžg‚uy**Ò8yÏâ6IìÔ¥‡©§Z˜&"l›²_ï"ÐÜRÌ:¼ñ„ŒyaüÕIäPòUküJm=`ѸBúÛ’å 'kÛ‰ibi"ÿýnÈœáÁ⟃ÄnéeÀ—¥/Ç^¶ÆáÍ*SÔê^³³ý?îBý´]ÜúŒ&7ƒ¢•kõ¶Žðñãñ>©R ºú—‡§sŠñCÈ»!ô¥ªÖA®œŽ§2Ä͘Q9—‡@·QÇÖrt ¨ÖóoFøîk{L”g?ý_¤>ñ®I³"ãe=õ1“J©u$Í>ƪäÕ Ò¸{`¥ï@ xïš_"½2.ö¥è·a!üy’‡ƒ†Šw=¢ÉÑJ(ä‰)ä¾´ÒZá°q“¸‰_ðç‘fáã q5¶‡#f U”Åñ_É+ JÁõyŽÍ\¸ÿè¹:˜}*;ÑaYh3A ˜§Y],*€À`O:VIÅ ï ûHôÆãÂB}ù®¥\ö œ#™­ça}(Hê#š"Å^Aü3/â-}èKîR<ÁÝ@‹÷l“Yk»€WÒ÷vxÑ™_g©þdªšå†3ý!… ˆª³*6m’jPü¸R²'’êÂç&ì©âCãóKÔp9Æ÷V¨=Ë`á»þq>:bD‡Ö*O ¨þaÒ]v Þª´¿Çÿ qR$øÄö»k™ç†»„Ê683„\¤[­êÁdb.¶«psG²gÐ9Âr='ôìBòã{Ñ`ìAF‚Òì/¸x͵×T·Eƒ9o­”.‹b¥$Q%ÈÊÌ@ú \ãòËØq^ÚYq–Ø9Ü'†7Ñßêg=8.Ë®›Û:"OÕqUVÃLÒÆ:MqîÇäoRSN¦wü”.Ü4aF2‰¶ü ¦o‰dã~ˆi¯Ñ^aÈ6ÌW³Ô¶L’÷žq‚öEÌ[~ŒGïæ^LADZ³Îy†]0ÑÔÒ æEÀ ÝŒmM\HþÙŒ÷ªÀ‡4¹?ºR*[ ³üï/²…3 ¦™8…„É—ùŠ%¶£§'ØhZyÿ•ê¢W9²¶¶hÓsÙå~€é$†'(Ã÷ÉyVâç2­ñ.å3éðÖ ã¶Ä«_LŽÄÛñh1‘UéY=}šÌŒ?‹ýñãŒh÷ÇîlÓ]SHÐi<òçøÎœ™SkéÔs”ÆsШ¿CßGÛbå*ήI:jÑ‘›â)$ã5+fÝÚNoç¯ï|ÌQçwÝJgæ=b÷ÀüÌqÚÇ_øð|Ë¡pÚ«-·7p$m®E`yŽt.)Ú³ÙVmïÞ6ÚbH­'­Ù$¦Û "H% þÚúXÙ6@”ªW®‹\4n6Ü–3iÕcºlœSöbn¼û –gblÍñI*óÃÇ ½0Ðð/Úȧ ݉R÷è3¤´Éâá¸×F^‡_ÚsL¨"ãÅeU"!Ö-ørO^gÙÆ+‡eÏha|3·…õ‚8T°õyèæ@³ ÓWÊ ð=úe'×5j1Sa‹Ý>UËõ<¯SL}æ+:êM_©ø + >—úÅèþ’zo õ¯“B©9Õ¨­vÁk–6È»žÔðp{W1ŠUð§|—§Ðz©OžQsŒµ˜˜\ãp.¯œ,k™r5t­Á¦8ÈôM=îZnb $Þ32–o5æÁåôº§ÖÔx/&?Í–W!Ëí¬YFka®Y¯qlð¡ÁÁ= = ›`ª N²àå'¸¡WÎþCeÓý'h"¹˜L1P—‚»y²êÅ“sr½"óY'Ÿ ­^)@žŠ×·Þ¾ºÂhøŠ†‚ɺ@þÁiŽ!f-ùK½]m¢öÅôÙʽŽv<Š;Îè7foY6³T cœú´¨r±6œxØ‚ùCœ:åÑP­ cu1£SbỪ*Ð1Uò랉=kÇ©ö76Q!…GÚÚïýrÒ¤¯9Yà¸üŽ~l¿~`¦–VJâÜÆÚ=¿hÚ rÀú®Äƒ…ÆáÕU®F2aÁV¯Ê…'Ÿm •EÑÜdg$ⶵ’<Ë‚ÑõÈ2šƒ/i·îo/^ÍTœ‘+°]f"‘“_²ƒ®¯ÑÂ6xùgö0 Í"1 Ê(:¦wôV³] sR&3¡ó¶éažó–ŽM?ú×gpCK£+¥h´Æ¾@j¼O—Äk,/ñ¥~IÛô'íSéàÜme%*߸Pú’ eoÖϬG@ž¶%/>±\UäüápѬk³Ð ÌŠ[úckÐú+!s.úÀÛ“³t÷öËâÒ>™2CwÜ»ØOÄ„¬†2h ¨ö?Á¦vñÞ¤5ëê ÃjâYÛ"Zš¡cyÓ©-3T}‚#Ñ™t³ù•ó %ü5âqŠŒŸ¸§ñ6£r÷Áj¬¨ûL · )¨3ŸgÊ]¤G¯É40}H nx2ž5n“?ì¥ç—ñé匩pwQG¦r7ÍZ™ÆP÷K0R±'´À^l” pyç|{p»W.F^NÎnsÔ|ŽfÛŽR¸í×t Î];÷%bF4[nçNóx~Þi ëáPEc³Ï[ÌõAÀeY~é«Ð;¯Öµ‚>å µŽ4‘ Ä•ðØŒX«Ç¦Ætk'Ë} ¸Í®ôPÖ Í[‰µ}^ãR“kã0á 2aûy6ÿêÄÕ¨ïŽSFÜÝ6tJMGÖÈ$͸EE°x—gcèÃtü…}‡bê¼wsÊ£¢¥¾óIØÂ5|0ŸËÒ4 ÑèOÕzÿ:IŽRý~Šøœ·A“7W­ýL¥¥±Ï®ÕÉ›Nú=±¢vÌ –¯Wá—«¤æ‹O—_•€æ—°ƒÏ;yGNÐf@Õá[Oí“‚ßHÌ"òàÂvAk•iFßäÅÄÙðÞFÉšˆøÅ !b‰XdÈ6B–9gÚ-ŠàØ–‰€½«žÒ´¦Cè¼ò¬Ê2¿BCMÆQÜôV¥BÛ¢çĉyz ?ãk¸è¾zXë9¶@Ám4|ã˜^ÆÛ¬!_8§nùG&ÜÄËÐEa²7g žÏ+&†Š;A f‡¥Å% ÁÛ¿?^ n(Ά CiÜ·yJ0µ†¢†+¹w‹îzZŠó­$z|WV–‘É ™TÄiá[¡7|­yö ³æÙÇA½1ñ§ àTŒ39zÚ- [¬êîµ[Û&›ŒÎÁaœ~P #Zc…dÞíØŸsè]^:¸Éž×¤'^cÏõ®ïlJÔ/‰)'o¢f™‘5;ˆÅUÝ îëøÃU_.¥ìðhOjÉÐá /mµ¬·¯—Î+É_|Ž³õß¿“·í¬(CyñÙ.A6JVPU| ž´ ·v\Æù´+3m”ãŽärFõIšHo &ÿê<¼oO¬-äTÕGS‘‡r:èMQ/É}dª$r£«³0¾_º£„o¦üŒÃ×(Jܱ$ó”™‘xlTòl°¬“¤z,•Ñ»IºÎáÕ†ocCçn6G±\P„è 90V jȉNð]™ïý²a\òqØê[ÀÏSµ‹iä”ÎxÕŠ”R|£ þÔ„V–Cýj®}MÜ0+*¤Í¢à>u«?uTÀé“ì¥HyJz-÷>»W]5¤¦°‡o^¬ D—>¼~ µµö“!Ñs¢?Ô:ØÚž¸F¶mmœfBˆs@!×jKS:g¬òGLšKðötT› ˜EP=– ¯½û8v?Üâwi[­Ï7hÝ„í´ê̘äJl¬ fØÑ’_T–Øz#©+¼xTù;Ž§ñùi‡K«"Õˆ,ë{»©°]g'ä–Ëùk“ 'ÚµF ;a ”Q|Éd÷¥-:²êv.T‡>y˜ïþÕ!W*ÄØ‚f~m©I1sE#Ïøß6m"bå þƒÛ,þU|æÀÀ,‚!-§'K£´$_Íè`Kø¾ÕÆ2k°Ì$[ˆp!i/•ì*4¸35eóâ2æÛ¬Þ„ÿ2ì’^ÌMÆ<ÊqF}?ýƒ\ÀPl˜ÚºÝýëjV¢YˆmÕtô£5lÚÍ‹`Ì$ìè î×½ºYHüõÔój°†?fo&ObçË ‘­Cß:—«¦2÷Äîìƒ[_V%“VWÊøûUJŒ”“­'’µ? ÏúCjŸWú,hXúšÀ~/Æýµ-!8 $aYNÆJ¶-Õà]|:m¢ÓJ­œ®…ÚìL*„¾Á‘WíœNQmWëŠÑúwgr7õ†y“Ýçš}«¥Ï²X}ˆ<*#Õ£tþÓÞ?êU÷ÛÉ4W…?®lb“X3ÚÌNl+sŒí4S Ô5Ù%3©[íGHq]}Wu×IÀ–­ ׯV’BÝŸ#}E÷A—†û’>r]XCÂ_§ç8¯›UêÝ‹þm׉{_œ™kË7©›îºg›öíB÷gx„¶ÿa¯uP]œ ÍÈТÄÉΙРúÆ_;ŽÀzB¯›–c¥ÌjXe üÂËÌDÖÓÔ/•?qTZâ°$K ½Ÿ9†ä‡åšÑ$J•Œ?çS J3 L¬(6jØáP5eqbç$²Ö~ ~Blr;I-vÔ̼=ÿ2 V„úeú×_´ªz½ÒyîVQ™ÁPÄa#÷>t–sSFgo¼§ŠP×¢SîæñKD«+ ¶CÈNçæ“þ‰+ßAa¹_ôºÏ‚K‰$ÛHUµÒTHÊ\ùÎpú7ªÆ—fÂ_ºKùi¤D?¥˜u:ñ"3—“ÜæÐòÂC» 'Ú ®P_¿¥/ˆœ["*ò#ôx+ ßZr Ÿ‡ ë §²'M7qtTeP; ‹Ö=+»±Ö°žù b³"uM—B ">Ö™vR„Q0û~ԅ‘›§'>o1¨î¼·!¬ê[X<½a¾Cþ@A &ñàïSOµî é%§´M¨¤?+IGvX¬¿u05اÛMúÕƒÀ§€J!Æ[ ™¶õýWí‘š25 æsG^¢úâœÓŒ!’a‘3O ‰èúp{˜{׉ ¥,™ã<•µ^[!¤ÎÝd ½¥w™¥ß$c›˜»/zºN ö…´ «ÜàËÀ÷ÝÌg¾¾JÑš2ìÄßÍ;c„×µÚXì¹®‡G°«ºúðg¿C®k±¿Tu=)¥ƈÆ(±íQ¿ ¹ñUÑóg mðJÒ7oÅÅÕyí`ý¦ADÛúè“”¤3˜%KÞè£Mz[†¡|.T \fà†½°÷íé”Uë»(€T{¨A2^ÚДT|MyŽÅ)ÝåÀ©?«¦`¨UeÍC´~90õ¥·Ÿêœñà…r‰<äÑäÃ8£Ïë¶d¬lqš ëoûÁ9(7ulQ‰£a+‹f–ÀEÝó›gú‰,EßJN¦Pn®KÎ:MÆÙÍÏÙÝûü0Vsoòë`LtM>)¡Ño‰Òš—6Eò¼x·½íjçÀŠ^ÈOõS{Y Ëåšy̹BGà 6d_#ªŠy¯­±Ž0¢ÙÇa„Ú@Ê~hñUɬϓŸ.V·[‘°IÃ9,Ýh5º›ùßrLR6tišZÅEC>~ñᜤÁ^ =)_‘ÊRŸ®95¡çU'ÑÔuÈ’rXpœ4Ã×S5œl†Å_É%œtã}’šL4ŒÚþN‚7ØÏfHÀLÝ0Î?õC 2¸æg[¸ÉË—+·ýÁ-tÆN¸8:£v£4IQƒz2Uè„T,–I´˜Òé.Nœ¼!“$¯ ˜EÇ“xAtÒgÆH¹•íÅ{âÓ…2ôã¤Û{*ç—a÷ùª9/œÄˆo{ÑArÏ‚¬E±¸u7E 2ßÜ4ˆ !Êø êänàؽ´œÚÒ;¾â‘¨K2ÖÔæ»`ñ"¶ë«¹÷Æ~$áÉÜ D_÷C¯³\’\¨, D°B?$ÄÁ5-¥&ëLÍC¸VÙôXŸN@Öýpê…#š7C*úySN Ô“•€:) ÓL]=;+äi M,Úɦ¾e4É2ÙP˜îÊ84HóÜQÝ ù¸[NÇ=¦X«A‰t?wåÄ)aÉÂuñ{l÷¶ã¹½µÜ¸ÊóT÷#$}ƒáše8dï{¢¢õªO?kC£U*rõ¯Tï°$ˆRXIKൢ…$òÀ"ƒ&[#²è+¦4–M¥2u&P± CýÔkðZthœŽ:…x¯V`Ãk°mÍÕàVqó;ìU'[ƒî…^½DWWmy’eqžò.4óôÕ—°-¢­˜‰4Ç–,l{ ó^ýP÷]ÈT99ïL¿Õ¢þþ¶xg>èZ™¥(g_*.sA9»³ý•ÐQ:5lÒÆ«FÑò£Y÷Ÿ`Mdp†ëa°Zx^ hé4_çÂ8ãeýS¤ùXeìN½An1’zßlʃOsçî“àÙL×j3ýEìðçYT:ÀVsÒ.°œqUÉêÍL„ò)/Âv‰¸!0¤—Åa  £Ñ$f»5ÜUUe!$þ”M“¤Ã“kÐk_jr¸—-ˆ¥øóOÍÈüJü$q@¸ îÎÀeÈw¥AŽnÁbõ*×ôøt ¹R‹„>A™•²•˜§ÂúÓ ÅìÎJ^•!¬nÌÐM_´h„*·[}­ÍøŽE$ώ̾ãk̘/ùjÉ¡ø‹]ð›<[lÜ¯Ö <ÝÍÁ½ j”.p~Wu{•-8Šá}Pûê KyWXÄO^ïÓ%~.R‡½ósId‰ã¼j ËÀ/[€ºˆx'£aÓ{hú%±Aà°¥Èfz®ìß´ÆG]I<@¶G¦¡9oÞíE¥ 0d,ñ3%OÜC7ð¾×²‡U±ƒÒ“Š­üTäìÀËѹñ@ü¨" }ƒ;UÓWε5Ói‘Žnùv]¾ÀB¡Cý,øEn®N/š›õC¸ %r¾¡é*c8AuZ|ó×y8q†Ÿ"–”ÂYƒG½©¡4ɘ#îyYþu$Ç„éÉøH”|Q–ù¡zªuÑË–‚» ÂÕ'†ö›¼eª>{ÇIg§À…öj¢½1VJ@€òé|B1“‡?Ejhšè­T¯Æ˜ªrÞú RÜÕ–x>MÚ¯8o…Ð ÐOf ŸdÞ²UD÷‚ j´l±?ÒªƒŸÄ…,: q·ÖöÙqåºÝÌN§>´µkß°ïVêÞ7Lÿ£„3véHØõž>U8ßæ:.ÔѾî¯W¬%³H‚üᨋmÍ*2:á'‚ôÕa$2ÇÛ¼Ù”Ëë%XÌ‚^‘ý\5J‰²WŽ>X9ÃK‰<ñÄ»@—·xbô¾lEÉ߸ßwoCÔø~Y-C7Ãý\½LÑBs)­ÐˆüŽ¸ýœâÝeÒ[IoK^JÄ^ÓÏó¦çÆvkX¾…Òó)[¹*k¹´Ôi´L˜´}¯bK…CÕV€ô–ýM–ßÉÃÿÌ9yóèð)Ñ,¦’TFúÄÓù¸[¬œ–AS+ܦÎý–ÝX’ù[·nè¶9IP!8·åCêIïñ!&]П‡FÅ“©äEùõ]à>q*ße¸²]VQÞôKåx¿@f~¾ñç(ÊÞq„(R¬ÙýíÚZ/údž‚qÎ=N™Ä@¯®æ݆ãRZß½n\Ÿ&ÄÞ%%j^Ë x½Ëpço’ž+‚_×$eâD‹ðao' ¨5jèº?Ëß|… ᜫ¯ *Ô.µ/xvÆûD‰pé…Ä;· ­]3çuÇcõ8‰W§¸#Zž)3¶Îú„Ïì,6¤§a(>°d(‡§2©ŒI›As^OeŸªÇ,ÕlA:;Å”ýD³_ùeëì«ñt!WI^Áü<± ¡ð±ðèeFĸSfš—ÑBTÔ¬«äI`³|óiÔp5ݧ¼ü G~‹“Ú?^Âtx‰ Û¸Ù%ZÀÁú½fʪ¾É&…ËwcÞ ú‡þaøÌjõš”eë•‚‹TÊ¿óÜ¿óÏOC™¥j7cÏÚήk$Yz~f'£y¶EýÉ\Ãç9XÊÞgظ#x'gÇEE5”I)íß@$ ãî1= @l…wìL n¡}m£´”ï+PËÆ|C M·îR?‘CˆÒí”3{ë²jRÊ œß1ÄWät²¶Á«¿üû•õB'Þ¥Ó÷±kéÚT._MœYÆ߀(°ð3;ÆŸ?XTÕ#ŸO£oP³ w\­Ø×ZHqÆšRnÚêeí:§.ìú3¨¤{s`ªkn&Ù¤\aþÒ˜){ú¥ìðX‚¦g*9É ¾ U,÷üwÑírm#Þ›d|ažPæóÀ3yg½9ñâ]È‘°ª…Rk éXžCàÖÅš»¶HóUÁ×ãõŸÑla›ÆÞœ&—Â¥´(|Có¥ùSG¦‘„—„²š[ù- Ÿ¤9½³’>m+J;ŠŸ ü¤³e¾ŽÔ(•GHó¨PŒ~¶•ëÝmÒ«6þk‹‡7QdE¾Ýçœ#>aþRÒ¥3ÎIÙ“œ"C»f”xVBê+žÕ‹ø1¤~òsë&•zÿºrÏ%ùyŸ)êVz†_¦È½2­©vÚ@áË '¨Âgô:¾}´ÿL%$æn¥·ðÓ*Ò½f¢•F¥É•«se?Ï…­y¤eYd>ïÅA !SºXlÇîÅ…¡¶?üêšÀžˆ"ÓѳŠeßX+Ô~£‚ÑO¢•…&¶D7jÁS=’Š“:Q™×T3‡aKy¨›¾ý•!ƒÌ¿FŒ¤„*5×Uõ’«Ž›žv?ÈaXnfGÒ™è%a¨»$”<Ëböš… u;îÛLzoV:KCÚå·bœ†Få¼`¤Têìuø^O¶WQ·½ƒ-Ò7Ä¡X6qdµ¶ú¾^ŽdpÆœæ@ÍžËÀ?Nº²ð’´…Á³$1‰î§‰Ë bÕ^‡ôKÔIy¯æP¨K7ѨFÄD®@ÓË:½?*âVˆà aÞ‡Z°Éý¾¤Þf–ëi÷'í$SRŸûH¢â'æ¾6Nl‹Ó?ãÑ}ÙG"MTg²<@¸aÁSOjœô‘Z-\$߯ÖÓ¿.14õ dípÚº ®¸N^y%&¦^µâÂ{žÌÒ=K$‘Ö9ž ÁJøÿ¾'b^m’p‚µ¬–JP³&)ëež„DÔ¥­p(sÎßS›<2pñ;e:¶7½R&b3ZW4Ýr\8M‡{ÂqžÌÂß:™oF¡QÏpd4wñÇÐfµiiˆ Θv| ,ZÀ³*‰@üêbéí´N¶ 9¶rö! ƒ|iÈ7¤’#ë®cb‹æä«KPSB”’ÜóÄw¿H¦Ê 'Ý€ÊÁËã7RJ¾*©åzxü¢ïQèQ)WÏ­ÑÚ]ãíoÊŸ¥+`ÓV”˜¯Q%m™’“ÿLòd~¸%ÈÐZž×óƒ1'RÖÃÞŠ &{â¤⡬âñP’é#ÈmÄ< øééÛ8©Ûr{ÎÒ¹Âì{7J¾‹¹Uèà • µâ˜*@³ª±jÙ¸;¯ºË§›Ò˲[–yîtÙ(`LCÞL²•È~´Óé¬e»õÝ Ox`F:  ¬™Ž‡˜í ô¶“¨Âêh‹‘ΕÚ]ì÷®?×ñ!SGÏ›‰^ç<ºÿD¬'íÅ3² $èSöÕ -Ç# v¹‹CëΨZ6ø¸Ã[™?©$2<—\8*íONØú]q‘%Ž,YãÁ [ÓL€Ÿ]݇qñûS oIµ$hywF;»šýÕÅ?$QèiÔ1[«6o¦édË‹Oh.œÕpU4–‰aöœfV{=Öƒ,ò¡[^„VÒÙmå‹YLxUb’³º±€”i¡Múñ¼¼±q4¬Æ¯;‰¢Ac¾4·êöÀPP²Oi]ª§ŽRUxƒ’íiÒ²²ùnÚjd¦!ß/9ܺ7Ã3ó«ùN¸è™rhÎlëäðýú‚ã?ºkI âælÜÙ¸UæY¿åµÉó{Åøæ$†9üÑÍûp{´P„®éƒº5r;³¤äœ$ ·Åáš«õ;ø* ó5{¾ -«€ÏÊcW.Ï“´MµÂ;…ýÚjìË¥_ƒ¡ä˜}¢';чÇCÏðÆÝã)¾Ü'å`ɳØê&cŸ€JÕÜÑ&·rŠ ±´Oâ[ä'…sè’6W‚ŒèÏf(ø¢fh××(åî×íš $»í ¾ø7RyÊn™M/øâá¸óBì¦Ò ÿh…jɪۋcL+$ñš;7ûlHzZW§ˆ"Ý1ª»k“‘D9(ér·A:÷¬M!Ô’Þc‡¡E5¢$4*­«pœkîꯊ¢ÒÍ `ª§_´e" éÂ%Aö³37wس+EÕ$zçm4=ì‰9ѶÂîSðТå‰úqyÑ2ƒá[¬ ` Cž/»­Š_ú mìÇÖ|FE°Œ~Ã{I²n)ó÷±zWLX¿ºˆªìÏöpF±è!ÚÔ¤÷S|#_|+}Éhøõ*“T$àáxjól0?'¢8Õ¥_¯ν(iÐÞé7kí·Þ›§¥s XI24/×û¥÷ÇqÒØ\Ôxiúü©—ùàà4A-«¹ê{›;ªDNÃÑäô+9$§²#ÅWTÉ’Ú†ÄZ$*y½±¢AºŒˆ®=ù¡JUzé´Î0L]fO<%nmú’®”5C7!©•8ŒåçI¿¼L öú» ‚üÐd-¯É™?_y¬zÇ—t¿,§ñ+κ´£T`?j>ñFÉín…¼8äÒäR=>rSnÜìß—›ÓZ\+Rˆ]sB*X+cB,Çœüžˆ}ús —ÒQt@ü Ý)VÆüi­îøa¿ß½":Qp»VøÕAÚ>IWù) ˆ‡§÷[A&çR(9DOÕ#8êÎäA¯ÿƒ½$ r®æ¼„Ÿ5öY¾ÿ΋¥ôO•Øþæàvìí‘ÃÅjŸ *Û[*9€2Õ(Gd ÝÝè9 PøŽ½ƒLºÙz­÷3ßÇ»€X¦ÂƳ5«z¦ì^}ñÅD³íyºMì-{Ö¯YfbácÑAè«-„€ú ?“årÊÄÌ.¬ÑO±7¿jÜâ+uôÜLÒþîÏÕ»>DáR4 õ} þð÷rk¦†è£+6WÝ®(òÀŒFq[à-iE­ìRöä‚Ùqe柞AB…Û¢JÆL,…lùJíº Å ^å׃XîÃPÃä«úÏ›’eŒÌå«ù„ØNÙ2žÞÎáiL/Ëqpö ÅYÿצÊ endstream endobj 6500 0 obj << /Length1 1647 /Length2 16947 /Length3 0 /Length 17810 /Filter /FlateDecode >> stream xÚ¬¹ct¥]·&ÛNE;¶mÛ¶míض]q*¶*¶m;©Ø¨$w=ïÛ§Oó}ý§ûüØ{Ük^k^sÎuÍ5ï±Ç&'VR¥6s41—ptÒ330ñ¬íMÜ\Uí¹åèUÌ-ݤÆv€¿;9¹¨‹¹1ÐÚÑAÌhÎÐ47ˆ™›XXÌÜÜÜpäQG'/kK+ €J]E“š––î?-ÿl˜xýò×ÓÕÚÒ@ñ÷ÁÝÜÎÑÉÞÜø—âÿÚQÕÜ´2XXÛ™D•´¥$T’ êIss—¿E(¹™ØY›ä¬MÍ\Í©Ž.»/¦ŽfÖÿ”æÊð—KØ` pu27µþëfîijîôDp2w±·vuýû °vXº;ÿžÐ`í`jçföOíŽÿJÈÉÅñïû¿Ø_2%GW «©‹µð7ª’˜Ä¿óZÿ‰íjý8ZüÝiæhêöOIÿÂþÒüEÆÖ® ¹'ðŸX&æ3kW';c¯¿±ÿ’9¹Xÿ+ 7WkËÿÌ€àbniìbfgîêú—æ/÷?§óŸuþ·êœì¼þåíø¯]ÿ+k «¹3Ëߘ¦À¿±-­àÿéi G3Ó¿ífnNÿ¹›»ü뀨þéê¿I›9:ØyÌÌ-àC¨þïTføïù¿Aâÿÿ[äý÷¿jô¿]âÿ×ûü_©%ÜììŒíÿ6À¿ç àï 1vü59À?ÃÆÎØðÏÀ±6ýÿ¸Û[ÛyýŸœÿënMógý?9ÿ+üï–¢gfg`ÿ·ÙÚUÂÚÓÜLÉhj°0¶û{xÿ²«;˜™»ØY;˜ÿù_çû׉‰é¿`jVÖ¦¶ÿ¨ÁþoÈÜÁì¿ÖðW·UÀ(#*-¯,Oû˜¶ÿÚ¬ô·+€j^Næ€ÿISÞÑì-þ¡qôøÐ3spèY8™þ^ƿב›…Íïÿ'쿈˜ÿs-o t±öè21011þ~ÿÇç?Wúÿ…FÜÁÔÑìŸ>R;˜ým½ÿeø6usqù«ø¿¦ÁßÊÿcý¯K`nîin ·¾âhÊj“™¬ÇΙÓèc s*kR+. ¬uì ÈŒÜã®2z¯ chžáùl÷Z>wú8”¡9ëò£ìM7¿.Ä÷#¥î/Bݦèä¤= f4(C̺Ќõ¹Y’Û…Ðá`Ò8ÚŸRV1(}‡"˜édu¹y¦$u/ Ä {rBò7ÍhLÀìBiA«ÿq~A‘rúüD94>:2Ü{ÙˆG›—KÎkŒíŸvNœ ô2rùÝdú ùêÎéï胞õáFä@’é(Úà½ðÂHÕYö2£'’áÚ´nÕÌä}3òÛJ”ŸöþÓ7H¢ž4Þ4üþåp€÷™ ?m‡VFý{·»VàcÓZ:¢¯#ë÷KiÏ{ãMc-6«V^‰ *•M‚lxÕ'7å–Ó€oÉ…¹«À©‘¹Þ8¢ºFÙþ¦qʤӷd¨¢ñ],S©R_ùQµiVT»Pr4ï¤ü×3’§K•ZU Fó†Í"¦Ò*›õØ{ï÷F+N)ÿŒôBô?ƒ!éjPßÑ;ÆçVæ–Ú"1“‡ÞÑnœŠ¼ Ž¹°°ë”<>¡·4åßGgšñq·µ¥û°(˽$ñú¹ßr•Y¥ï Øç¢m&UMØØM³«! já0r•øf4ò¸‰VQʈþFcðRíK`$‹6 ßŠÇ0bJ°t[q0Ùvá´}¦ ^VÄ>x`‹ðêqzMýM¤.Bù4u·œAM0ösùÁá£ójË#I®3Ö:¾ºUèy¤)Ó q²°ø8 :…A"Ïtt@Ži—žJtÿî§V+‹™±ê¯íƒñûí´Ê èuwZ‚æ%ïÈý l‰ê}¢RqhFàfí§êÚ»¶VL2¹yUQ¿WcîÌL ¹üª WL»ŒñReÜy!í‘}Ms½h¯'ÑOÌoòdI½EKÜ0 ±Ïz]¡Ü<Œ°u„ÖwÖóÝÆ”ÑÕNu2ëžY ¯<·#•:9,zN0¿LS¢ÛæÁŽœMá³ä3P1{¡BX¨ A³|/«æ¯…UsøF$õWÜ”x9N·ûðÔÙ߇£ª]1eÁÁ¬š8l&·p]×ÓÙg1ÑJè/™k-x·VKc[–ü§`A䈹­_šÃ/ïg0[­=Ÿ¯ä7ªÃ¬u¼‘{dBf%<@PÎâ\nÉÖ¬\ŒX‘÷÷ò""c‡„¤+•Š(Í!¬àw¶,‰DF¾xÝ\0[ç½>Æl 4*¿Õ̸|N+µ@›5~›z§W-Ñç'­DæQ0lÕÊsðrÙ9v­cr?£÷?èÍ¥Áþy>=É(æ%‘î)§Þ|7ìð#÷®®â—µ¶Àtã]E-SA0žF¿ç­6Ô ÀfBžâHÅÞ¨ŽèZ¬ëpÛÙz[>§va-@_ÝÙt87B•Hô Ô4Å­MXe ŠnË—é†r|E šàfDï4þ$Z÷M à«“Áž@Ž9·r¥Pt/IDÌØŠô»©ûf „5jp‚LîöɃx#u4®˜“8=ÊË@qf멱”EºÂì:d¾JN“ÈÀ≽ØDÛ×…"ì­fÍ¿rªå'õÐu^ˆgEù =bQKr¤In{[ÖUU-Ý¥° , %eé^èÁ’ö~å_ÅùŒ! ÿ±"ªQê“Ù1V{¿â¢ÜÙ ¥GÅëëÃ;çÖu±ôg1ëT‹ðüµ×0ñ†¡Å°{—‹A®Ý?QIÀÎ9eŒÿ—õPl^ÈçXå³1ü¡ûÂ|… 3ó¾Ž{¥ŠT´Ÿrv»…ê+ež“eh¥3¹Á\ANJyOqÍ‹³™°§!zsòbï£a¸g Ö‘t®ËÇ^au£`îÞÑKOþwEHÕ”T× )• ²æäávðô´ f-¹õ;$ Vêv _ ›âIN/þí­,‡¢œ%Âiò>H¤&^¼Çù¼ü u-¬¦ÉH$HË.ÍYjk„"býÓ#\ @‘MY;æiÏt™¾ÖxswºLÈ8q*ût.àþ£Å·~3[œvy½Ëç¬2º•Ž³–2SøVbè™dU1Ô,©$G–Jî—»)Ëý¦ò:x¹BO¼ET2¶Ö½pªÎ‘tä2#‹4Ã*ƒ‡¼r ôŽX8K d¸ÉŒ„’¸ÝØ Êη±ìýá|xJpúN¤ÃË—ŽSö­ê.A‰–)­YèêñrŽÃ§åϨÑgÀ=îØ £ O}ªY›â®îMò‚ù⨋÷˜ÞŠîeÛ>u3]Y˜í“–ØüšK†.å2t+› l‚\YͳÇ9fÆB!äd Ó{< v‹Éñ*Wv(&!Ag`&á@-¥œ_¤¢ÅÖ£ÖfÁƒÜ’§ÝÙÞÞúÁáHù*~’MD p@z´úS$X ½´Œž¦éœfR;–kÅ*šƒ3¯âÝi'‰ ?ÍÓ?Ì3¯Ô±M‚ö~æ=ÃÁ{O,øg ßÉ ¿evˆ1jl Ñ¥€Vˆt2 µêNYjÓ>w«³†þ–T ×hCŠ€“YŽ,ùœAò}˜cI ‰WDÐa-M…fÍz®2Û ó—Çx¼rèq˜¾ËÞI øWôfAê/ЈW× dƒ–Á¹EüûM(|æ%¬Ç*ƒ@z:ÎFe&bPí®8”,Fý…-4¹×Kn¡*ÓƒˆyFv2¢N|þÕnãœë‚HÔƒ<8–j†ÌªŠ„(âÎ%6*DúHLí7µ¾vDf\I1°þ»ÅÁºkÁéŒùj¥‚„åër£„±£»3ò±j47\(acæþ~ü^¶œ[CPæ¯ ŸügÓ&\Èð?X¬ÓÐg<*)¼×–$áÔÚp`§ "²ñ‚F÷áK1MUp(ÔþTñI©øÿ(Û4÷,«pM1ƒé9Ò"îî½ÏOó #“®;ÕÏ÷M^;Ò©©µœçlñE ´2tûîÈ°MŸNe-ÿ^aΟ©÷Jýºµ #2¢õSNà¹ùý:¦h´ÝÏ'm­<ÍM¢fÉ©zjY½"Úñ¯O­‰†"œ—÷§ÅUI!zæ³ Y•¿ï;y^5·¨;ZÍû“íúVÃw-UJ¶°Fóö ŸÄUõúKTóxŽ£aµ6xßp$¹û¬×̳wS ÄL^V BdJ’·jO÷X9ïq AúÓ°úA§7”v$Æ |äZøZå 앦­‰JV¾Ž›uŒfÄ·Ú÷ß’½oßݳ`€E¯¥Ó‰^d¸\£H4PÖ˧¥Ït™–Œ××þ(ßs§Ð¡ƒ7v§+3:õÏbsp}CƒpßÔ Lq÷üý¾Õʵ'íÀ¢[=jñ¨<¨ë^Üë/ñ•¨é'³¨™8’žžã\é Ë“™'nÒêàÅ(÷û¨³~3ýK{²`M0¬gñëu¼²)Ýäx¾lÀ„&bß(äçY7{SûYR÷ü¾£~'êøÅ|xúªè{Ðr&T)êÄ»}šnR¡ÙœŸ¿nÝuÏûˆ>0¸o’/á ö]7gëŸ}’HßS÷…4¤ˆaUS} BâïK꧑ÒÇC->QzWô.ÞcàK}ûtR‚Ý$"†ŠAV:¯â0tÉÏU,µèË!­Ä†>ïÚGì² 8˜Â«=§`S“ýZ4pb#» ]\÷‹9úFöÞ¬^ä.–Á«¼_Ò‰`E¿ Á@íWn5x(¾MK ‰à¯ã 'R`–dR楑Ló‘”sB·|É ª&®«c#îÑá¼~Êú U%+f@ιjʈcÄøš.¥ÇA²ùÛòÔšUH›¦Óó™É^B)&À',îòÉ…Š[.ÂùÝ{QÚ˜@)‹H˜ÿŽJø½,ÐB8,/ç/šm¸’}GAùª6k]c,gvPÏÄMv×iàãH.ìRîzH£{UØT\£ëdñ‹®‹œ¤Ë×,ÌèÇ0Ü~(Ì>š Ç$Fµì¯ÚxMt‰ˆÎ[G…adUc-¥"˜}ûÈW³Iñ±2)bGDV~jÅdË]]Т´´*G9K?˱'‡ú‚Ko7±ÏhG¶K:´³ã y:EePp0B©tån¶Ë8>ð Þ›.{—% ‡Ûòô…vÖ‚e~®2U…c0S•ZâœnÕÀ– BÞvúÅË*'N´»ôÚ¼¨Sã@4²1†ƒÆ-t°3`TEd’›Óô°4T×™ž›¯GΪ19mþÞÓžF°á1ÓéÇ=A.¶0k¸Ú©B^““gx›ž¿”v$tjsÙÈêh_ü¥äªk²ÿ:¸‘•˜µÉ¾Ê¼³A<%¡Ø%Ö‰Žäœ“Ux$ÜqU‡¡:dÂoP;YçIÿ,[þÖçN3òJh­åø-¤®2ë©ìÕc#Ûë å,0¬»ÂñgÎ$W«OoáeR¶ÛRçT½ÀãoãÐíûÖOê«eñk|ˆIºŸ¨ˆMåqÞn,ž£cÁ­½^üÂT bAQçž+2Ò% Í<Ñ„,ìî¿DîŘƒù·AÅš%9à1ú4Yƒ¯!,˜Ë훑a éN.áଘÖmåÌá¥aHöB—Vµ½Í“:=h}©Ôœ¥cö]‘‡¸Pâ»Oa}ÛÑX%Àò>SˆI¦ >u@Hÿ's‰'×8}ý”4o "À}ú¢¿ë¥ÄArÌÉ.¼ÄÍhÂZ7»Žh…î¬%ˆU1¡ª¥ÎIQ™4h»Ÿ·Pdmõ7êtPꥺúfgå¹ÕÄ&ª¤÷‡ðr; ãD‰Œ,tÓÏkÿ6¸Vœ^<–á%5!÷ˆ×þ+X®žÒÐõrˬW7 °ô2ÙÉPéz’å®;G$ÖÄàP{):Î&žòK ÒÁÜ™‰5 WHÖèØ“¶MPZŠ"²UƒKÜ‘c]T⬡¸íøÉ¥CMÅ£|qâÕ1ÝÇoBÀ# ‹ê‹õ«">=ô]>à7Ê>±s#:ý¼i!r°€Wâ½Êu,øØõëØÊ­àÁ×þùò¾Ö̦ S:Ó÷Ò-— ³BÈšÏß´椎•K£‚É!Iø¡“ÇOˆà­ Û7½Ñíj~4Ömî(ÞÃÊŠÉ|û~vžŸ!JùéÕ&²…ö»ñ2ŒwŽ¼à‚lá>÷„Ö3½í“Ü̹aæ8&àjM¯Kc dr¤--«¥ÑøêŠëiRt‚«å•õÆâtÂE>¾M'wiÇ¢Gí‡Ã'CéÁ‡Ë~ÇF3–/œ Í;Õ.ã£h-ý:–òØ’eîÀ¡Äç¦5g«–¼sµu}äd#—wÉü K!׸j 4w=Õ±a²¡>£Ôð!¡~³÷ë ¹jÚ? g䨠%£Åzû³-C iÉ($R\ó–^ÕeÕŒ¡¦ÚãÂÅC‚VP [c«:æ§U¼¡‡à,9Iƒþ䪷*TYÍõwÕ£3ïËkµkf 4’ÒxƒœÞñÔ¡v{!ÑëµÖ²Ós)ÚìÁæcŠ™ ê£ko:ü¦åØ Ó—° IÂ×j§¹8¹“3{wþcérý&í\¹÷P%Aƒâ䢠ŸoÃ{‘9ßä^ThzètbE‚6ã. ‰sA\ƒÓºÁŸÒu#4Um…(õÝÞ)è®ßŒf©AŠ-¬ÊípÎ^õø°% Lö¿¨¤ÖÇ/ÇÌiV]?Ô÷â¥)ª&ᶴ¸˜I`¸`ŽÍd.SšØ!w%yž<7ŽBžŠéˆ£+"Õ– ÇóÄ}Ôû4S‰¶t·PÈInlêÃœìØØ×Jê(ä‡#ί%‡Z«Ài¾§ÐšâŸ§°vóѱ¥º“w¡l÷ò¾V-a4õe$ä ¿V]w)H«Ù¤:6ôB#çT\ Ñ´Åë ØáU¡ÃŠ^"¤]Ãñ9HE?•§(oÐ^·^˜°}¿«ˆ8[”ÀäM¥Ô&òBl9 ¡ _Œuû=Ú„aw,Fù>é$7´ÚV³¶_Ç,`¡%˜ ,¨ó4\ø¿CÄ9.£xåóÄðEdpQʹ‚å†ÑÏü…®¸¼ôvö¥ß›’@ùÈØÿ d óøDÁêo´¡lˆJçåbíŒkëéZ.ø „/ð’}ó6Ÿ‘a3tÓWf©3ÍÇ÷òò„^åE‚%,î{/ù¬ #€åà³» »lx?›NÉ–»€“êY›¬Á¯õ‰V'x BðƒMkQcקŒ»Mq2]£¶í±¶mo\D¢2ʘ‹Ÿ»¥üÃ/ ›jÔôî·˜èYá„¥ÈNæ$87c'†805×¹ÞeÎÏó"+‘Ÿ—ò³ôšÂ/½ñ/ô9zÙ!p4j—þ;jíèwW’‚fRQ¨qßÅ$f4LÁN%Y. 3ÀßpùÇ讂Ýí0'pÃ&NÏ4ÓV^7µiÙûíw¬yÏ M½9rÑ´*„Ïât–ç³qû&Ú› a5¼?a¼ 38¿­N­&‰Ú_«eòØ°Z(ú ñ!åÔiÛ9åm{sd"ôŸ;â™ÖY—‹+ëÊ¿ù¯ôÚUxÀ&¯»–v¦ ×Ëg³-×MŽ›ÏLjwï<ÔWÒßlaJÂ÷Wù‰QݪÐO´%=dfI?ÁºÄe¡±‡§Üº§ì¿‘“evв­£!Ëc»Žñ0„ú´&"¯Ãvdm(§¹h?%g`ÀJ@·ö ‡R°|`­”FÊUú†$ë½{òJt˜{êÁøŠ`ý–0¶ž» ŒH%†eÜ#U‘ï¯EøÞËâÌH@ù{»|ü3³ÌETQȺª@ý#ËèˆÙ<0Ò}hðQ$%EB3+Þ‡Vº$V íÍ5áÐDɯ*P(Lø,uy÷yTí„qjÎ@EЩþƒ—.w)Q`_ôö+ÔŠÑáZrÙ£¸9ºW6DŸ³`H“ü]Œ)?ËåÝÄáK)NÕž Kkyícô˜Bp¢ü·ãX.”vœ»p$îú+T•bŽ–[(¯Ž‘È?ŸÐ™[,ä E|×âÅ´ùÄšŸ™e_éåìËQhM÷ *$Ö¡¦û!ȇù‘*ÈVT8ÚèV˜{]³¯ƒ&ÜvCÆF;D¨W®†[WëHxÍ^ h7’ÐO ½Í‡JVä~nÅêN4ÃÄ:¨ PA–P> ƒ¹j‹eËk‡ ÊFÜÐë£åQLØì²<åUAƆT­FJõn'y—ŠICYÜÞ¶øÞOÄÅžù9jë›w}£VHØ0µ(?d‹£i¢ió‹Hvj=ãäª)>¿gž–ÿ(-%™È÷³w„áGûc†s{„0»À$ø“RoÎH˜dX»z6°Â?§J"`Ó ƹqúÆu•½óŠ8WÑ.›`ѯdäâåüí—3´¸6Ñ¡IÂsÁjÅ£¬m‘Åsìr¼+iG‰Ä ÀÉÚØR«rb}œ© mÌ® lRà_]Y¤°ñƒršÿ¯>þzVÀ˜O*äx Áv®c~M#qä”s®•P€<Þyœ+HýXú ²$c—@¸¦o‰bägèè`)ø•_aj&Ï'ʨŸÛýJâѲ§Ò¨>K}îYoEj‚-«à“!T7áT,›Úá]ê‚œM/åûhé‘áiNêudåªüQÕ4èŸ+‡ÝLdÊ ÃTµñy¹§J›g#?ícñDùê[PGyÁÓiWçN,5'™‚=ÄYUki¦·lUBïþæ¸`a¯è²/®Ë“¢!Øú÷çrbû å¸~J·7‚Ý'’h–~šËËûAëZ.HÆÖ¸‘¬–fØ–Œ¶ÆA~/–ÂZè–”Ûó­2§E‚Ǩ>!Ž²¡Þ`'uÑå÷7-ùœ%˜›€­A ÷ÊørS$rSÅÚRyæ<——ï0ú¹—lMy¡¿àÀ“°ó×ÓŽÀÚJÅ!šÉY$qD/—GÇh´—¥Â¬b0þlF‰2 ¿uœÃƒ£¾ÍYêq„1ÞXæØ[”¡5j$ ¨¬ÐÆM’wd?Qƒ“ ‰Ò¿ûM`³¸Ó݉crá+KžCÀû œïÞ+¾™W‘HÚÎ=çk…K•ÔO€ôüZ¯xåõ­Ìãû¿dàÀ­×ò |ÿì…¾‚oßþ¶ó-u"d`I¯i$ù$V¾Ù¥˜#š£_ ¾jWß#œR3ìÊ¢6-'#Æ]±µ•åJü¾èáÌÇe‡‡„È­ûuÓ]¶‰´–€fëΦÖmxpMJ‹Í|܉&%´z†¶À§Ë¸’Ç…ó© ƒÃž6v þÄÐX\ÀÌ ¹êU YM>Ðÿ!Šå ½÷P:Ç­NÛ"j®Î®WbG]³Ù7k:yÍM~±À,I&eÛnú@ÓÍb7?XçJ"aÑÊþ‰riÂЃuxVÁpoe2ÄzÃR<»¾4ù1×lï“=½nz’(q¨êÆL ßÂXb`l¨'îþt#6ù6ÒSUZâaŽ÷’ÃitQ¨Qïîn\»Y«­eeåõÞÓ‹¹©ûa1÷e>F`]·UÔ7´rGœßÇÉKz¡îº\„úÔÁ!Àªœqoc +ðÛæ>ÖÞ’qVËH“¶¯INI8J[3}{ïÖ†ë,Óµe}ðýeý+Åå—‚à#É£Ç<”)3_'¼DÜYJXó-ÒÚ‚ÖàÄ UÒ÷âˆ9‰Ä‚ï˜Ü<)Z€? &×W›;°.™Ý ‘g]Ö´­OD­Ö=SLž‰ƒì³ ÊÚQh±_ÌEP \\ Û>ÎêÃäìÓ}=Ì ˆ Ê#ž° Óዤ|…\å˜öj ^¤“; æ ž&(µ¸.AÈ_" /}8âØp2Ò4h<ÒCÌ "Û:ÕøC_/[>ž9‹´Á&F'E¿õ¸±!ó¤¢yx’hÇñz£èõ+•ž§‡é‰`Ì${ ŽX±c²õ0Zh¾Ë…,¬C šâðÕoð¦î¤ó„Ñg|ó;¬òE×,i™ÑÛZÇK`Ój$[ÙR7¿èR£©tëÇI3[! G›…¦€µŠt"î}Yf¸Àè;±8x¬`ìE„0·ù}¿ýþÉùýiQžñ=úÑÙU|碟Í-èdö¶ eþÌ4Ÿ´ð-ÞtØ<Öµ#c,Ž¿—ß±baTûfMWò.§ -AV/[±]¸Œ˜@·ƒ^ªt?8ïC²85á0¹~Ö„]¬jO ~n+95£LýMyº,ÃÀè‚}(qoê‚ÐË`—„'lŠ, gK¸j¤Ž »9ÄZŒ¹’?f8ØÈÕ–k÷\1Ãçó&—ˆ§­Jø;WžëµÀè¬ôÐúì›3ÊðËj·¾æš¹ƒ•¸‹º+)g1!·Ñ*ˆ*.éOêž¡v\Ú|sì^P:Pœ0.ê­GW4ÆrôŠ‰D¬!ë—ŠQLÂx‡õ6Ÿ +4ñ‚ªëïÍ—vwÆx1Ùäã¯$ •µnj<Ái;ñ( Ðùø„Ž<ïH ¾ò÷Øw;¹çLiRÓù]¯(?i¥³Ü[²oô›ñlÏ}ê5fF£a?©É®äePW}þTJ_UÿOèzñÈWd^a‡¨Äo¨ä‡r‹PiÛ?Nx‰#ûi! eŽ‚åMLD¬â¢~ñ›t×Ò §4‰†.Ͻ+pS™÷zbŽ¾½FR`‹w \8=YŸ{É÷ˆ"íoŇý@Ø‘? 3Ä‹q2d£ÕÿP‰|UCÉO¹×ìÕeÁjuavßž/ËŽžgÄ=iDRX_4¶Cj&ÂuÜeÔ¤±õýyþ;Kç¡n¤JÖÞ±d望1o›üD$¿DßB2õÌvN;Ð7««¢”øb†õ¤Ò]»ÌÖw,ES—Ú$LýÒ ³¢4RÜ"7§É}´UéL7².G§»b¿Ž snG#SöbĦ׋”?å—þ—p@Q»;ÌìÒ–Ê WÁ¤A6Im‹4±ä±sÞË<%” Ù©u]žÄ9UéƧSL­üãà(ŠÜN{h˜ôT?põIàNUèEÓyNÓÓÜP¥ß¼8  ŽadK ö=Ps"f§³ÊMšïºTÝÓòvRÁ`Ws³š}lËÓÆâùm;k?Ñóȯ=ë¼Rž!@ÿ½ö2šœQÐvÚ´Åe#ÈoпtEá]ï·Ù.„UhÙˆªœÜ³m«ÿ/Æ{†:1}>eX­(w?‹ôÁ¼ygu,qfÒMšùÈËƃáCõˆi‰¨5R&¦ÞãÏÕ 7òÔ[ÿ”šØ7‡åmë=|wŽ²¼m*Œ 02ˆ Nî­ôž(K”¶ð*Æ3pYÈ%Uí~óD3Fá™FvÐeê¢ ýYÌ¡Ò”½sh¸¸˜Ûp¥›ôבûK¨„"ÉR¾ÕO÷5é~Œ*<{¾¡Ñx¸Ê ©Òºu'¹´=ÜE Ø44 $'ð=³‹á›í]¡xHÑ´óv76¦*fòÄ$åHS°î°Ü QŸ*­øœc¯b•Ø)9)£Éþ-¶zÎsÙÄ»¶Šåx6\Ö)Ò*,8*MyÓ$£ra€:‰°†*wa–ä 9ÙžJÕédˆëØâR’KË>Âð¡º},h 7Dx-O üì&JIŠáÇ«{4ŽÖøQ²€:PÛ4›sö„F†éq/82·Ò§§U;Òa`1òíy• 9`š3¢1¶<4²Ãå–ZŸG¢@‰»ò(Qê³ÃaÞÊòt¢voþTe\O{²³Ï"q¢¿Ô;ønÝçç2²ƒÏ›o}êæÕaÀ¤‡ éüWv³À˜Á}ÚÁ-mØ8º•’#þ@£¿;¸`¶QaŒýlÆŠ‘ÿÅ»JÈ2*5¦0(ïæ›Í•ÁrÅ]­ÿZH=Sà-Ë ;'«muœÀo0¶-K†MLF{M¼† Å6ôWÆœ1ühÏÞyýykJ¤Æ0 îý§Æ3ÙðZ]_‚!¤÷’ʘT½JîYÑ$[$ ž¨`7*cè+¦.¸¿•“ èOjdô]šÚæ/…­³÷Ò>ªQ|ÁW~±žë¸ø“ÁË Bñi¦«Ý;ƒôÝwëÈ«ÛÔÿ¢a_c´¬ ]âûzšãˆ§.¸E˜¦xߚ©ù5G°"›á¥Ö@Õú†0(HÉ-Ù;þóÕZ¹pæW—ÝID­;Iɸøœ#ý¯÷ðw©x§¥,ÐWú¿¯û/ FqLzÓ¦žÂeVìAœ±Õü{¸ÚßÞÔ6ºbÖ§46tÝDT˜k$'AÍ¢‰·;dBˆ>p˜Bˆ;h`ô5‡‘4†hó/Ž¥Þ­jàöÂàÐ þtüá±IP.ùŠÌ/‹¤>@Fÿ«š•ºtaéÚKî£Éy Á›{<–‚z2HA,7³)¿uŠ¬"rŠùC©º¡H(¾ïÚƒ3²7äT]ÒÓ9ðÅ'֦ǿÉm®£'yB.ÍÌéx.X‚ŠŸ— 醰ñSR)M×{|AFvIªiÜ µô£Ìù"ún¡0hWI¶RgJ¨„±ì†þ¤™ôf!†-–OÇôøtl~Êÿ|¡}m‡ÐÚ·žç…' • °ØÆvÇ£!FXÖfŸDD"¹ìâ‹ÆË׎ÙdØf¯Ì@äéð=3æ¤yî˜uH.‰Úè“ÉŒÜÙ9H‡[ ‚B5Œ LÍ..äXô^qSt–Ï&dôTk?ö‰˜²…©G(iÌÞ'dÞžó ÓÓºµqäLlআñ€{Àÿõ@4Šq^Öë»غâÄÄcm›Ý7ƒ`xbôê@Í¿sá;ÜdZ3#ô´ÞV‹$—––:ΊÞ$µpkó0»1°ˆ-åú¨ ­¾õà|#•@yD?ýÊú8#Kj¥:¿¦çü¨T=7oÿcæÍh€Y %¡Š ŒÙŒ™·ÖõÜUè¸3e (2DyE )NyE³Ñ J¹ü‘HCœ ÈŽW…s¥=žF‘JƒÊˆ…™ú$Ê¥Þú‡½ßüœ»!ÇÍÉ‹€>gÛ¶ÛFÌû!ÏÏ+`ï|¬È`¦ß8}ŸèÀ¯PíFŠV¾âR{xG©aÖh›}èÆÀ N€w°Í(MMº"—'#ÌJÜÀ0.–‰ÅÝâ³™SœPßóq†ötØ4 P¤°Wž¸ þ–á7ë!`ŒÆY-w&³û˜(H©p„ÓÙënj¨ét¡ç(u†*ÊÇ€ Ÿ ý^ù…b`5ù‹Nr§F%ð%-­.T_âéxr‰qÛ†‚ `üÏ¥þbÔÇ&âØØ¡ãžtÎ÷˜ÌÓ¹·Â*zËQÅÂQ÷ ÷Þ dn¤R»ÿ–J7tñ<¾öãg¼Cv™zÞ ªÔ­ž^¯êèÍvÔÇЇÛáÑå®#}·VQBÆ„}¨‰…Ì«l i èb›ÿU«IW¯Ùø!lØQ‰ú föÈ="'ԢłYf²òïnŽ¯"FA?„› àÔ‚¥¶-U&„ÂॼŒ]±CÎ`q—Ö` “»µU˜®Ê¬TÓΛ‘Ð0…Ó–9ší蜿íc#Æ8×è_¨tu §”¾eÑÄÏíˆ5ßÞ8“~Yo³«ºmä47Σ&W»¶GÇqŽÃˆŽBÜ"B.Ë1yš .A⣪¢ NZ^à),´ðmÂø¶˜ì­N1+ûƒ3–~ÚC­Þ¬ç ¯ñnJþÑ…Š‘„ìÒÆÒOÒ$nÁG¾á- ÖRÛ¾®<Ñ¥W£ü´†¿f±TÌL V8_ËÙjùÌÊ*ÌQŠY—F¸µû‰ò}Ù½y²ýådp’¥ñ¬ù7´ìdÐb„âOÂg5šÖ/Øeø˜Íú§¢þ ¦rL-vò°v8è!w(Uê]4ß¡ Ó“AÒÖ}â ²_†Ç¨²¾+¼<‘pDµºpŽy&_8±Z¨l 3!YqÌJËn§kÜÖ7¦¤dl‚Þ,³ÎË”qåTáš°zæÚr°m‚šÍæÜêMÖ—Úlù{5-ÃL=NÌ¢Hh¸îLj֯찄o“ªJ­ðµàåî¶*®oáñ£óõŠŠ<¸‡%¤AŠ+~ñð“ø‘Ÿh„Gèú~‘¼:/,±±:ëdá¥cîç jîânftZP} úZÉ9VKÚ‡T5‘.¥µ²´QÄ2Ƥd8¡¥âÒ†Â\IóHá8‚ÇyŽU4ÁycæÝ‚暥ƒ._ïN;+œÔ0Nú‚ñÇ>ÙO¹P GúNçóÓ„F”)íJä ÆPòû 2¥#¡á»xÅIÃ𧈪XÔ"½D&\TÆÙÆú8_Úˆ]¶vÇLœT™W®¾bˆÆ']èù™•Ó×¢J·ŒÜ®nz»û¦S­lõ\Ï™ˆ_îIu—ƒX©¿­2 0Ív&ÇÆ_3"C‡c0š(}Dõí-Ž4Õª­Ùe9Û¨Ô ëC›¸%À˜åF¦ ’<î Ú¥š¡Šns_“Ž> “vZ±gî¼@å b¾Ë$•5>MaöÉ3g->¥ØÃóx†?|Å•rZÊ'ã9Ê•¼ŠÊðpöÇãÐpçÜ7BHu’΂Âk¥%™ä¬2î*‘/½åø¼ N©1ïö£¾° lÕù,ŒÿÑ´Ï×°Òt¼%›=¦¦m0C†áRßiâhÅ·ñεx%¼þ=ä»h4Ú*ÚõÔ]}JS¡òY¡¥-m=_"ÎúÙ5¾`ïÙØâàs²ol•}Xy•Œh<}YK`JTï}ÇG‚‹×Hñ1Û9¹®CèO^>`ŧžº1ønëÃÇçJ l.¿A­Hõòfõƒs€~yJnú':^€Ïö8<•¤^Èioùl· ßt¾P­à·{H¬ß‡æ7`40»Íá‘Т©R²°¡*lÐßà+‡ã軨‹¯íƒ/âú t“ÐÜp2Pl¨‹í¯FºM~·]i_ù‹Tpùä‡Z®ký,9Õ =Éàhg§6HlñôGFˆmÄØ2\éVußœä YU #vX“\sFpqó ±¯ð|vú-z8=®ìè²€k}Ä£~ˆ\É^úòY²Xu«G¹˜$^M5³±*s—úRµ¬{lÓO\S²_¸ø"Ü° fýÎ C0l®&BÅ5ĦnÙ»ž#Ž.£¼âç ëJ?^±äÈæ2+Uå\ˆ²l‘2†>©ë†j=·³OEAkêðÈ> HHÜ)·µ†ºÐí2^¥*86=fÓ‡tÓ²u÷Ãà)j— ¦÷ÇDßÈ/J*Ä¢xÊ^¥VµŽä…+Mm{f)ŽëKŽ§°g¡¾ ¦×0i;…×BôïèçfZ%‡ÞÜ‚Ç.\_‘r]*, I×Î’Ò¬¨-7“-ÐmœJ“ ÎT¹_xÛHÒ<®8¬EFŸ]bI«t+¥Zö|±Â€qŸŸÜVRDIobẆ8Ó¬á;õx*xëí5y¢ÑÇL/ñó35L§ Ç„$ãç—ùTãÜ[,>ß_&Þ&@Ú‡fjïJ&-O´-v)z:v™âKAaÿˆºÓªâu‘(B’ºØ5 øì]H\ œ#R{'žîK$ãË (ÒúÔw¡Þ~[–Ê•¢!oì¬Zªü÷P4PTêÑYN+Û3= û]4Y¿zšOþÀ—̺†½èµ3·0%û¢¨nNtné‹–g‰°°‡ÑÂèÓ–÷ï®Åª—Îr2×ì±Vïšµ–ÄêlÒGß™èv$>‰$B¯;ÝþB'ÛeB+5VEï´8>Eõ¸ˆYw¾Y€Öì%i›Ç54 9òïåð£úÃl_»x‘j41¶é;‰Ác½6ºý³ïÝpð®?†+Ÿ-ÉbåC9ÒÀ£8² ucÑ¿áÇĘ$Û_Ì%œÍÓ9Ø3!·MܵŒ?ý°0^¯¶•-¹±Âz¨5Š à¸GÅää|Àð Òn©-ž7G•ÌÍ=½¡ÍC]!åM&Hð‡¢Ä?¸àdêøkëC€ÃÊÎ+¤Óš­oH&p›gÑTl¬ZTÈC4ã&—(»K9û“™‹zý†²ÏP:äÂk%Fµ4 H›néåßþa~Qˆ ‹– ت¼™¹-ÉPQK„Äžmƒ­D.æÓûÕÌši¸|`v…\ÝöûZ’Ú-“°DëRâ<ûJ]£*T,Ìû&>5ÂÌC9òÄqç¢]Òm¯‚5œsŸýªMS«}êÆãÄ> ¸DCÂtÓ–œd v&8›Óã’ÏNšXíŸqg¾æCÑÅøôeE€—u›?§˜5M7wõ¶â£Ðó€`7b€lþ³LˆlW 1ÂÕ4#–Ê?cS%¦ÜC 2Šb Ζ‰{YKyŠP>j'º–^¦Â&÷¡Ž1£û‘KÏ©¤1ÿ•ìU endstream endobj 6479 0 obj << /Type /ObjStm /N 100 /First 1016 /Length 3643 /Filter /FlateDecode >> stream xÚÅZiOIýÞ¿"?îjÄæ}I£‘ŒO<3`c앵*š2Ôº¦=¿~#+# ª†êb5þ`¢ëÈñâeDfv;ãÌ™ ™’1š’a™W:žIaëK‘IåXQ2™^K3é•J–e2êú®gJ=+2-¬gÎ É´öi< VÐ2Y6a¥wd€,˜Œà˜ŽÎ0x œ`H£XG¬òðvdk„xa™µ*¦ÇÁr É;f}0LZ·Q¦ç“ÏB{ éÀ Oª€*E/C4¹iRÔà›ój༅acᡘ¼ß½”.+x±à7µ±pÅÁ§¤yïÒ[†ù¨á²,­YІ©Í “ðœeÑ‚¡áu) Š˜—R’#RIˆÚÁÀp ,Ëô0ohˆ4DðÈ‘,Š À‚e×zÃŒ1i¹åé”ipÊØä:<2t L˜ L`V)Í_kЂÁŒ)š¨’. äÉ$¤±Ú~þyÀßý¸)1,ž•óᬺYLgƒúóQ1†;§o_¿={ûÓÓ7'.Š«93ùþþþô;û÷ä{èIÁ‚Ò­ø<àOæÃr²€ÉO>-n^•ÕÕ5| bÀHº·'Ó̓E1ª†O&W£’ÁÍÓE9>5ø9¾ÔÀ×Åì´\°ð/ÓåŒO'%_\ÏJøÿé?³//*Á˜¼‚ ~ùåA¡½ÿt¶|œBs›CST´¿M?,4½sh0¯;„vòâýÛ7ŸRh~KhžBÑ?Fh~{Ö†¼äõ ^þ¾,FüKõ­¼‹÷†ß³r2*¿,²5«½-ç|Æçå·rÂçÕ÷;^øŸål•Õ…œý÷ÏöÏœÓRl¡'²½è=0¼·wôWèÙ“†2b+AÅ|QΪù×q±¸æÅŒ—£r &¾ªoŨœ K~5+ x,SXM¾T“jñƒÊù<_W`l¼-ª›Ñ>).F¿q§—É9xó²&5?7+.«!¼5¯ÆÕ¨˜­ÐiºÐùüüøàÝëšÎÍ%êî^4&ÕŸ:‘@¦u[ɼ™Uãr%×I¯žœäx¶Ô“â ©Gæƒ{ŒxÔÖx’ꜭĺÄôñåù“9¦-ZÐ^„… ´:XÝõŠ÷E"_n?Òg;æØ©ž¼>xñÓQ5¾XÎO‹ÉáÞIyµÜ=4Ü=•š¨€%¬wáKÕ ¿þx>¬|¶•z{¼UºüÉJTŠ×ÇO§'‡/1ª“éøh÷Þ”—Õ–À`±·§a}Áе };¯±Ùž•ˆ[“­BæZi}Â÷ùSþŒ?ç/øKþŠðCþ†ñ·ü˜ÿÆOø)Çßó3þüúÂp:šNàÿñ¸à—w]brY̯ùhØ+F¹]\ñk~ýãæ:BÅÿË¿r¨z|Â'´‘é½Í¤.ƒüwþûrº(뻵•ïB—iô™ù(/ýfÉ¿ñ?øwþƒÿ¹¡÷ÄNÅòý‡ÓW¯ÎVÒw.SúT ô)ÓHŸ­ôYÙÒ¥{€.M=³ïÉÞkþëÖ žóüä±(†ËEÉ‹1œÎÊûÚ©ýœì¿Ü Ð½ÓQ1YüG:ÿÖê^|€X³P@šçXL’†²6FÛ*Åm‘ zx_´'ù wÚìë§o~{³»Þ6Ö`©©|Ú4ËUÖ\l±–>6¯^m¼öv-´¹ûÿ˜æwcbÿ]ûê´Ï'C(“+àµúòf,´ç°`Í*bZ6')ÓšJÍnØüß–‡;ž.oŠ ÖB¹ˆd‘ 8G•¼Ï›A+XÓYs[_ÓɯɤÂA%¤.x¹lRm¤Š\ìTêEÝ*ê°bj£»rל™I íÉxs;©ƒ¨I$-ÞWS±P‡¨ûSÊbCb*¥‹Lí€) J¦»kLYuWY??H&ëzà“åøX¨®&ür:‚Õº<`#¸Yò´ ü;Ä•Ž‹¾²€´ ¿f'[-¿˜«jX͆ËqC&,ú]ôQ]"\^g” ˜E5º,˜¿ØœÞÿ:+fŸ× =ÔÔåÅ¢þ˜.B1Ý/æeºÃøÉÁ‹g‡élìùy}Ðê @©Ë+{þ¢šÍ©³Ôê ú6ªËÅõ<~ÛÍæ>^=û°_;7á›UüÔCoñ­mÀkÓþàùÑá³_þÍÁæøÝZü²¿RÍøCwÎ^¿?zR;`7á‡5|a[ pMDwÎß¾~ò±vÀmpÀ‹uÜVôœŸ~x¹_;à79°®@³=¾;þñ§'ï^?­ñ7)Я)P5ãW¡¾îÿëóÓO§é\ãd£ýš[ì«&ûvöÛ‡ãkèkòK'"wӯɽŽÝÑÛç׫è°8ºÚAy­#æ5t½†.ZÂ7Má¹î𫇸kØUîÁßü•SÏ5x¿hà›¦ðÍ¥wår >Þ½h•Ù~åÊûÉoU¦ýÖ£½5GÖdTÓÐtÄb­¤ÕBþ’º;5÷Э¹·&Ò¦w2uë;÷£¸wßÔš{þ>÷T«„Xÿ(îýÕzÅÅôƒ‚‡3¨ÅҬqïuTɦ£æq”øîôVG0Êd>‹âÏÊÔžÂÆdÓrimµ¢õövéÖ}´‹Í®–>ÜU–õ m6Ðx\\•ó:]¦3—|žÕ§/Vàû¿V—°[0ºV8ÃËÌÑ_óßœaæeýÜç@|^1Ÿ¹d>¯!˜Ï•‚‘?‡> !/4YÀˆBüÅÁóºß$‰ÈB>gQd°(3MQáßœ’Ý@b®ÙéG,ø7Ó^Gp)DP¤P‡Ñ,ÿú7-häOúK7(Ý‚‚B€ÃhÏÒGW]Éáí¥Æ ²¤Pé—/hXÄTY»ByBÈ˲ô#™œ!©…$oiÙ‡@ºþ03Ú”Á€5E¥mìåÉuÔºÔ‘®äÖ™¾,C(#U¨ôÛ´<ŒB–pÍž¾T'Ã’áºhÚPž\hàÑ)òÖ@wl>µØÊZÆQjÉ ‹SŒÐ*bî©ÞIÌŒ#&Aé8Û‡@çP ŽTï¨68Ò‡Ãz.±kìå±H/1*¯ÈЈà Ãô fÆ{Œ*>‚DLì,†²-¨@BÄd Y„@P#±TÄ&æ>J /*DH¿äËFÞªì eÑõHª^$&# %Fµ;”XJ•†Œ€†Òhhºbe(Gù¬ œ°J`óUØÁ=r¥$J[IMãŒAbßW…¢dèF kA)”…R¸ZQ Û1ôJŒJá„PÊ÷‚”CïhHX+ôBºeb(ÂSÚÓÀXâ¡ß#·†¤Óµ_µ¡¨M)êN 75é[M‚¯û@Q Ô`_ŠV#¦%/¬q= ,.ÅÀ LŠ¨»õ+ß‚r v¤qGWÊÑó9ò¡<:åi^yƒÙó¸PRž’æ½ëh`Ò[ ½ši´;QÁ¨PÁÒ0sHõ*TˆøLì¸foCE\³«¨É "Iõ´3Q±1ÿ”‘iJ T½¦MŠúÖè¦ÀЄÒÂT^$ƒá-®à2WKÑJâDK,tZ¢ð´Äݵ–®DÛJaq…ÚŠÁ(¬ ZYºåÐ åe¨@ã^GkJš–dPÒ´v= hg£5žÀpdàB¶CøŒª”Á5ìª3c(iTâµéH`lCábOãoì’jÀy.|µU®”¥9cqÙ¬-Ee-ÝÂBFì…»¦é$I; Æaã‚,ö!Б:í Šv°‡Åg¼R= <HÛŠ*»Šnu,Lm¨€5-È ªG‘&XTÖR´ ¢¦að@DÓIlðÑ :c2¢Û¼jCZªªãF`TF`×4·Fö‚’˜#q Ãœöh`4J ;J†P Sn”¦ñŒ$£R§=re¨¦MÓz×hܤZø‚Ñ'*:ï1´l6tÌc yA'6ƨNÕBÊ”!ºðKJ0°ÄZ?:±1øù¡è˜ÇXŠÁª[ã´¸D4Ö…>PØÌ„‰3×P14tPcœì•£<Ð1qæÖ@JQêzEå°_*·†¾€>ˆ˜÷&°ç1= <É‚¾(0r(WÝÖ²ýµG ºèk¨ZPÝ5´¢6¡ÛqÖ T¤©lPÓq©cb·CºU(GÃà¶ÊDšExö¬@Z!ï¢úP_B endstream endobj 6513 0 obj << /Type /ObjStm /N 100 /First 905 /Length 1829 /Filter /FlateDecode >> stream xÚ¥™ÝŠ$É …ïë)ò &t¤øIXƒoÖØÆøÎøbÁXÖffv±ßÞ'*£Z¥&Fƒg.¦[Yq$ŧʓUS ΣU)ýhµà€Ø ôP¹¿b‡¡Î Uuíh&3èG·sãõ¾ø<ÎVo­J™‚sµÈ!2æraŒ¹žDǘQ=ÄιUÚ!õŠú!­êaÊe]f@µÞ á¢Qõf ÖÉ—MÆÂBŒš(ƒÅ25¤Éa¬ÐÁ@(3)å¡'èkç¡,Õƒz AoÊRÑK9´sqçeÕåœ* ¨UØ´2nUv¯ó•u+sʃQ¾Ä€f›òÌÔ:••‹«ñS¨L ÚY¦ò¤™˜ÊYS½Càn*σ(<`å?+ƒÊ$bÒ¨ÌcßlÐæ–Éàä‘°A³.³ƒÃªñ´Ø 5æasË!p6h½³96h£òØØ ª7°ÁZ扲Ab¦2$+*³Á ö›ƒ19ð¢êIe6Èþ¨ÌkåB°ÁÚ0pq/TfƒµÉŠ‹çô€ ÖS'FÎHáÜ€ ¶2î„Æ™ sÎlÂÇÑTNŽÇHÏ9[ëzŠ¶ZçÈpq§‰¥´ÎA–ÆÅ0h£\|*•Ù6 P¹‚MxX]•ÍŽ£2¸+¨¬\<§I¦[·9ØG¯•ÊÄÙ¯„ëzgÂ! R*S½JeŽN?©!¬iÑÛwßÝÞýõ¿ÿ~9Þýù§¾|¼½ûÝ¿~ýåÓÑn¼þð2£ùî)Ç_nï~|ÿÇßøFmóšPxØWÀ–W0VÐtã¾ùï·ï¿ÿŠTóŒî2úHUÛ æ„΀ót­iœÃ/¥ÒËžsqBï2Ý.¹¡×õçý÷Y¯ßrݸ¾6L\w\½N~+Pm+è+0Žê7ä²!—Nm×añ<Ë Ú*£ËZÓ¯5_›k<Îç,«ø³^3€²:ż-ßÑò ¹ø¾ºÀ¼ë܃yƒ¼†Gp® Öo 4]Åw­+Xyë¸'ÁùæªÏ¹xW½fŽ7Ü+—âã:UÕuª:èrÙ¸@§³^ÁXAëWË´Ÿ•tuúµ¹Î¥C;¼Êäz¯Ò;ôjÐôÚÃ`œßËÌV®ùqëè¬áŒ•‹7Ð/æ*ŸÏ5ìš;QV°æ°®»Äõ€ó…|fxÎÑžsÜŸ‹î··G?÷ç¢ÔGÐÁû‘nY²ñ:W°Þj÷§©|yîÎâ’ò¨Vv÷—?ýúéç÷¿Ì­¿ÿáã§c½ùþðÓŒu]­ÊËxÝûþÓÏ/üûÂñÃeÞY_/|xùíþ7¯Þl—×í×Mù³Û±Žé/ÿñ²¢º‹Y.† ¶« êb%“ñ,¶êŒbr¾Š=pNÌ‚vb~ä’¹”g±Uç1Pr%€âŠæbÄv bzž™˜žýY¬lè9\¬æbÄd'f.&©Ø8ŸÄu¾+¯b£çb5ˆéFl4Ó\ìÀ£Î7b çzbu#Ö@Ït b;Ýô@ ú@w-Ѐ¾Ð@Ë´ í4Ps5h;ÕÔ@ Ú@u5`@ݨÀrÔs–°ÀvÌh@ÛP 9 l@€æè€:äèr° 9 ° @r`@€äJ ;âJ ²P@nÂLøQç±WÈMÁ„u1¸ #7aÖ ÃM¹ #˜0v& 7aä&Œ`ÂØ™0Ü„‘›0‚ cgÂpFnÂ&Œ ÃM¹ #˜0v& 7aä&Œ`ÂØ™0Ü„‘›0‚ cgÂpFnÂ&Œ ÃM¹ #˜0v& 7aä&Œ`ÂØ™0Ü„‘›0‚ cgÂpFnÂ&Œ ÃM¹ #˜0v& 7aä&Œ`ÂØ™0Ü„‘›0‚ cgÂpFnÂ&Œ ÃM¹ #˜0v& 7aä&Œ`ÂØ™0Ü„‘›0‚ cgÂpFnÂ&Œ ÃM¹ #˜0v& 7aä&Œ`ÂØ™0Ü„Q‹=FÇ΄Q^?£Ë™~FŸÿAò,¶ gw1ËÅÄÊNL],ý’DÆó—$:£Øxý’DFËÅ,ˆa'V] ¹Ø3€GoÄ@ÏôÄ6_’Hw=ÐÄvºè9€ô€æZ } 9€–h@Ûh æjÐvª¨9€´€êjÀ€º`ÀrÔs–°ÀvÌh@ÛP 9 l@€æèrt9Ø€€Ø 9 ° @r%€âJ ²P@nÂLøQ'Åþò¦òn endstream endobj 6518 0 obj << /Type /ObjStm /N 100 /First 969 /Length 4710 /Filter /FlateDecode >> stream xÚ…[˲㸑Ý×WhéZŒšx "Žpµ'&Ócw”=+‡”Dé²/EªHêv—¿Þ‰I%À$½éVå yNâM\‘e‡ìàÌÁæ'B»CQ¤”‡B¤ËEvP¦8XsÐZ¬<äB@ö`à—É>™ì`•:äŒÍ!Wëº88ø©õAd2?è þï ˆuŠƒ‚¶$(eqJ؃;å²Oì´Qv¹7;“ARð¿BÀÊæâ`rá¢È øå=œÁ_â !¸ÿ%‚Ã_ BÅ'øÙLzYî‘)ÿË@""÷¿ìAiŒ,}’.ürUä>ŠÊ€óv rP eÎdøKZ <äJòLù\TDç%:øÚCnsü&™ðm(0‘ÆÿÂ&ðl,° ¿ ]ç|­€û\B@šÕíòƒµí ~h{(„ôYA %ÑèËežAm´÷¨…3/É Ì(q*Ï¡\Cñ9¤ëB.ðHų ‘‰ðê’iÞP‘Ì ã‹íûüPïLûPJ)dám}8CSЇÄTI“C¹3á“2¾òPVÿZ“ªÀŸÐš4Òã„„!–õÁl滢‡Ž%”B § e°7XhMÚ³ÐT¥ÐšVHtnètF€ÖtaÃÒ ¨ :Ì,^†Â,’(’T¤P„±þù釟ê{=&M/†ÿLóCÄtŠ†T^@“ÓŸëˆ$÷’°Lƒš¬ýìw¶6Mlns6â“*ЙRæ \똔‰¦¯M‚3í:DƒN„¹òvƒ—cõ6ŒœüX ç²9{5[:6u>=±ò ÎsêÛî":‘%²Ð’Ë#Ç ´´ÃñRŽåñÚCË‘»6[V箽ÖíN[šEÏdÿbñ,DæM=Ìíú³áF‚õ5åÙ<×¢ÑóÖ”0dµÊI÷=•Ï_üðpƦBŸ³Z™Nül}#ÝÔŸÅz:ïUÙ‡‹Ÿ&èrj.u‰³M–¥RÌ2§ÒáÑÔ£7¥‰Ähí¨øù@63ÍèeÎ'\«88öºg[c#”Ìîôý[éç+ ôÜUW?è,–Á<ÑŒÐÚøÖyr2»£Ç,, gÊqˆvdº·IËAåÃÒn…ªGÕߟc:ÁD‚ c˜·ÂXybz½ µ›åhï8ÀQî©Ï6Úáy¿—ý÷¹MáÂëŬĄ'—­µS<“³*Ã(^ukîwt5›0£¤ùˆ_VÍ€X>‰ûj‹ íj¯}Tcçõ–§eîVlªa£ÔÜ;è°h'yb(ûa¶ØÆþ¯aÓ¡•ŽÁΪcÛà<ƒ{Üh™t”cucb?Žò7éíJQŽ{±ò•bê³ê# u?±fi¨ÁöòDs­?ªöé{^ÊÄ¢C?—è~-œÃ§ð…Ú@¶ä¹òÙ@ֽÒëLÙža«"ea Ú¥—J©Ý®vF ðþèç(¿¯W‘üC‚zC–Ñ–Ÿ÷§ï¨Zkhœ6ñáazòf“6^SëœÓMOÓýÌK†¦{ X¿eÓU2óg3‘*Ñ CݾƒŽLÒ„.³Â7çËy±½Í©loU?^úî×vYç6™«"nþtöÓ«¡+>Š«þ½ú.œó'/G÷ô¨íÚj¡õ ÉTÛ·÷²m¡Iès&m²{ö Ñý1ÑXvqÝ@ÀGÙäàÜ5MÝÂy‰8Mœ ÑŸPŸTîÜ—Wš)ßQíJY]ªÀ‚r6K•õP^Ÿ^fÒódèA -žýXcaD¶ÅBŒsß„)oÝ0Öm·T2©Õ¥:õÏÚ—ÊaŠ ÂêüƒR 7Ia¨ ®Â¸ ¯°aõÝ3+°ƒ$Àoõiè|›‹-àIöœÿ&ò7è€ÏûB}’ú[Ù1ç*Õ °¦šò2•FšÔè­lõðV¾Ï=?¥ó½lʺlCÇõ&rš=뽉û½*û®]Ê­“Úòñ€kq®Ijöî²»G÷lºÁÃᛀhÊîQÖ§ÎW@ø›£“®ßTU¬ ‰ªÜ€Fn§RÇMÜM t ‡IÛlý0ÍB®I-›îQý <:¡ë^Ö}”°ö&<ÜÏ0/ßC‘€j•ª/e[W à@&ŒÛ»¤ÎûnB¾Ã¼Ð}®þ£^Ò¾Ÿ!9B7*IÎÿµª‡j©†Þ6Àé)O :XïÚË<ˆ²dt§¾®ÚiâtÛØ)Îyü£¼55ôH@"ýÉöèëñ_ Dtéì4T~uÂõXšdF„ÐVýy¾-‹rRùïÏáyõÓ12GŽO•®Ø‚g¿òåQÇGRzgv©Ú¡¿C®…ŒÒéër„¥ß”8Úª:l•„¥»ÍY>ß:F ?ôª¡¾<ËUüä'¹r䑽 –†iU®§j,ÜBÚ•˜lCóŒ×ÎûOº\ûîÙú*åÑö%ˆ‘_v'¶J5qcñUwëáÏ‚¹$dƒøÑW›•s ÖÓõ ÍŠTˆw)ïµ<~­¬dQ, Qk6õky¯ýµ®*$™®j,Ç»O¾–‡„,£˜Ë«"Ýè¯ìýS‚T:_ÎÆœ\êÀ#YôáJ™ Ÿë}„*À\ib™D¡„#ÊŠHöÊH­®]gëØE.N…zð™£.d§¼~Œ[½­VY¾®áEA5±éUÓ¤Æv Á—gÉ;õ؃9gñî›ñG)E*a¶ÆdœcÑ[W¯z6¥÷ÈõJJí J ·ømÁš B.´„C룗< fTö„%ÉOº*ªJÑX¯ÅKU¥àOI^œ/'Øž¢at«Æûµ{ø6szU|kð+Ý €¨Âù‰^Pù;µ¿ÿß?ÙÐ-œÞ|S–/ IçeÎfî5.GŸÁÐ=Ä­/ñÊEJ*ó³µ£ØÞÊñ£lžUX£ ë»dÎiñn,’ØjZÞè éÛÙKhîoa• wÊ "î´k½UÃû,[ûIMNKAŠƒIêåÅÃøå?0’œêö !¦»'Ç)èµS±­hó-ƒé B&w Bv늙oz±`ëv¬ Sù€Àª¢íÂ<K0nÓ¤¡½«)O'/TtW‡Âc8‘§ÒБ]ÈšÓõ6œÔ™fçi’YìÁâhªò£ÝÓ÷EL‹"äf9Í|»žù–>Ü°…Ù²=VÅMÜ*¿“Ó×…#ÉšÚó›GÓ!»ð¹Ÿä܆&½µQÝžÐPR)ä6 |9™¬¨# ¥½‡í m§;á!™^@yÙ2ù“ä—çbt:BáÏe_6 V6z«´ð-œdW=Ì(2eËË/O¿·sô”ÿ(ëð6zg7ICŠX>àîÐP¡_R¢óˆ~z-ì†ä•OâÁg?«ú‚W‚™8hŠÌ|Ë JšQ -L¤ L¢&§U¢+=M£Öotéî‹Þ$¬ BvÕHAlئ€áZZ“æþƒ‘ôþ ˜õݵn¦­³’ô¼ƒúÀVáäZžÐqŠð¾¼Ô& &Æ6 ËVºpLÊá„T¸œQMìÂFØ,èJ@uäÕˆtôÈÈ‚Ì&3†ÝÛ,ódô¼ê0ôe˜¾Þp•¡}ÁÐðCŠšœ`¨Gò‚Vâ[Ø+]lWyI‘så‘…÷ÝáÍÏ>«ûýú/®£‰kR“ »ÛÒNçéA«c5Á‹ý¢±¤Ìøìa|M¥Ž.k_„)©Raü¢4ßÔb®¹LõÌ«²M›ù5ªÚ?ŒZûo`OÌB²&M$þ–”GKmj€!ÌŠ­ù˜â2Á«‚ŸN•áZrúû½5v&ÿÄyøt¿½Ñ šhm[ÚðâxU¶ø.KïèC€ÝÉò&ù›ûÖ÷z<*‘N¬2½ªÚDÝPeF²VóÓe³¥E°Åª‰yH½v%sD¡·9H‘pvˆà—ðUŸà×ðbm—,â«©Á?G™Þ›E¼X‹Ñ×s ™|7^§obb‚ì2™„,V…™°IÇ(ð‚#Ë8MØŠÀd*8­_}U¼‡éé TЩmÄ$áµïÐeñ5×ö´Ž¶!¨œŸåÎ]X #¶l&ÆÔª7Œå©ñ÷ªùš²Ñ_’i£wêüÊ>ñÛALÿlfÕ&ùƒè”:5vh³Ï+”âU¡Gh^‡ï’åÞü¾äËùnà|Ù„·Ë®à[ÇÚ&»©¦o“%­Ñ·Kí¡é[]o¨ß–=Ýƶ%Θø°¿MñTôQ(Hç}(ý„ýÒ„b¬jŸÑ§=¢Æªè±œ*?PÉ¢çlŸtthFŸˆ:ÔOÑ´}y©K<Ð#g†?{‘+q*/¨¦Å¿×Ȍކ”Ž¿àÄbBUhß$­þè†÷¥›PÒÑúZDdôÜ‚.ŠœûéšØð/Ï—ôˆ1cÞ¬Ež@äJÌ‹µ<ð®‹8Ò‚K®ÄI±û¡>ú[¬—=¢z4÷zðŸ'r:¡ÍòÐN¬èzü*¡ò¨“4§x0§7Êøt„F°·~¯‰õ”ðÈc1QÅgÅüMYo)Cò´xú¢~÷š,}G9‹C„‚G²ä—ºðx¦™ÆÒAþL&âŸÓJlM,CÕJFŒö†}ž] ûÍô±Ü–¾C$[ÆèCeßžáêÏ®¤Á¸X‰gÐ:c|–æõôÇ ˜×~0ñâù—¸—²ÇÞ*iñgÅku0t9Jô¨W[úi¦7Ñ´Y„Qd¢~1ŒÏK…Gt#ÙË’}ì±…µ‘]7G>üÓo‘zÁSlL——tö*¼.±T‚Ý€ÿ£¨U¶/h^oq¢¿ æóŠ£û4úgYô¤BïÔ>Åkßmy‡jœþ(^¨‚k4ÅØeyçCªož’×å %¹öüuçY˜ÐÑ\Juˆšd‡®iø'eŽ‡4çH¬Í¿êp¢˜ endstream endobj 6595 0 obj << /Type /ObjStm /N 100 /First 1039 /Length 4670 /Filter /FlateDecode >> stream xÚ…[M“㸠½Ï¯Ð1½‡ŽHð³*•k.I*•S9ô‡gÆ•vw¯Û=»›_<ȶôLQ{˜) H‘À#<ÀškÆ!ÅšïòBÀCRðx¨C‰iHiç|Ä“œ¤O~pi´Q\IOaðÎ_ô)^²@¦ë§Pð”_rÅSĹŒ§:ˆ8Œºqh2çÉ“ÌRVÑ¿‚Kö† >é.ªÂÕA–†¢ªÅC?] Ô­\¢‹é@]TŸÜC†EÞ1¬âeˆeÄ> ŠKÕ=`´{CMõ€&yU2DØáퟶŠþ3ÈD7ª¦‹¸!;„tì³=Ƀà5 CV„u‰CÎ «Hrõ6/eœÖ+Cñ¦½èq[/Œz0†¤*^2N 'Vêü‚ ú`²0T=Ý#Ä¡ŠiÒP£VÈCÍÞV)C-„:¸q4ãtO7zÓ&ê©R°xÔc£Ù§¹1;›ô±œJŒê+c0i‚Û8¬³>J±èc4uuƒs\¬˜Ç$ÝÍ‚Ý’îæõº›—dRÝÍGñº›Âæ|ªP2én¾˜oê,'£©žt7u0[Aw ˜u7 öZ6ŽP'ënª#ÔQEœT;EÒÕBwS‡qÁgè §éB› »©?ÀI²î¦noÒãq¡ 6V³]œ¼¨ènª9¶(º[ŒæBªž‹ÙCõX§káÝM/ƒÍÕÝÔŸ ¯ž‚ÓÁÆEwSým]Ý-U‡«î–õ4ð¨»e1§Põ\ŽæÝUwËÙ@ÕàÔmë—?ýéËÿþpØ} ÿþÃ?¿¾Þ|>¾¿ì~½Ó›¨{Ã?‡³øpx8þ¦b=ŠF|¿;þrÜ?ßÁ°¸2üñôðòt|;zx8wßti—VF‡Û5cè?_þø×ýaj´m^ùÏ—?ÿyŸ÷÷ãîããOÿ}ø¶û×éáxú|ÿ›Jô_wƒ(¼>us¸ÎUzÚÞŸ÷GÇ—b¼¯7„D÷Nç•°”ýzRª÷ëælë7/±jÞéíþåíU‘ pãyÏI<éRH~zx|ÙéüLzŸåöBõ4ðËþYçëÍsxšžÖìº*v3ÝŠãÃëÇ×»¡¸%n&ÄañÃã F¤•‘ï¿ØˆkGŽOûWôÍàÓËîãôöl£²jÑYɵ—6¬º>½=î>¦…[ót‹ØhìÞï_'kÓúŒýׯÓúymüåõí¨‡ñm?íRºsôÏÁ¦Ô¾ý³9Ý~Œƒ©šÇ55Þ~¼Ø [<>Nd¿:úþhƒ²6øéllþOocqÛæCk±¾ø;¦~Š-ÝžÚî×÷Ë™æ¼:zx{¶[šÛãÚŸ}?×Õ¡ËÂe\¾¬\ܶÅP~ýå-«÷çëWüÊîß¹*'ëÃWåÂÊøõú–ؽ®Ÿº3®[ä û'3º¯o"°?~tX9:\Ãi°v/Ô±7áb@moÉþ}ÚºúÕ¡ûïv¿«lY>©¿öê¦ÕïÇ·ÇÉ´ºrvÓèÕ¶Øq5nåϸÖöÆì?~>Nc-æL£çX·ÂÛÕŽþ[0\fžCiYÉ\Ӕ㳠»Þðц}oø´;Ý?ï¿=þfÓdkÚûîáøñöjÛ“¹8d· ›Õ¾¿Éä’elôê2elôèOoÿ³±öH5ÖO©~uðœ+Škñ?ž_u[ñïýö/Í/)¨8¿¶§ÙâÚ“úŸ¾gCauè|eŠ‹ëÃçûR\Z÷6¶é.z·ov¬Ý¾î_^Œù’Ê“|âkqe@)úýçë^‡ey¤ŸO‡ýëW+>ËéÄãÛx³_^‚Ï·Çß~FqpNª­Mí–ÓW ù|~8ºJ˜ôþy÷õáóÀWçšQ«Oô½Õ‘ €…[þ˜ ¡² è&³™n5_”£É«füxzûe2íøöCMx9é¼Ówx;j÷›ñK æÆe¼¶¡©þªË°r‘O:/nëݓץ B]u³IAš»nÈ4hø¥²{uŽ8./•Š¦i‘e¦·¯qô/»ý·ï§¬°¤×gñô†«ëT`¡QóÒª ‹ “~uuÇûo/‡ƒi”ÖÇßm4wFNï˸>ú¾;½ÙÛe}Ün —©è½µøÆ€Õ—ËŸ¾?¼ŸvÇŸÌäp6yÿú¼ûõ~Äe?{ѻֳӔ¼ŒP¶’d´®Ïr…¦‚^î=OmTP`žØÓ2a'^~æ9")¾5˜y¤ªO‰, >÷TLw‹‰£ÃÞt¬˜ Gâ(9Þ‡Èé'3a—ˆð‰ÃŽsªÑ‰=%ÍÑÈ"M2ašr ݼp IÈ‘'ÁsÂØ ãØ}žØQ1án²ï%`<”àh]"´é @ ‰|"e“ubOšÓaê¦ÃO‹.‡g íX¢˜¥‘´É"R:ÃqΩuEÁ9æn6ÌÀìæÊä`2:þ Ì"߆œ ÁYdî‘á91˺–y¹› 3-ÂQW-™6*¸i$Ÿ(ð´äyž‡Þd^ ©«ãœ K7 – P‰Ø‰7hœÅ @˲‚il0@È¡siÊœ K7ê …5¬À,Gò´ Ì2ß… W»vsÏ2Žä· œ»X­Ž3Œµ›h* ã¸Wq7‹'0*0»IëÕ0#W®À¬ÐmCÜè%™zÍ„½ ÆU(+{þä"‰€`¡`éAŸ}),3y5 XÇõ ã¯Ióz‚™‚•ø¿×Ç—KQ±ú“õ©˜¶taÌ褣àŒ`/t{p}_É—<¸~ò#‰0‰€{Ð)Éç<¸fO–EÈį+éf]ìj‰‹JNç¨e ¬8œîfs@æ l5¥òZ8J|¼±®à•I`^GAœƒŒT´xl„Ï?–"ø%EÚœˆzÐv“¬]\^ç¶û<±§"|Œ›ÇÇç&K𢫠+OgOìÁ ìâCCe˜ØQ _|äeác>±>@LÈÁšÅó}i_Y§‘NÄ1æ‰=- –p¼¬FQGu¬D³=H³U‘¬]„¬=ux„í>Ï먎/B¼ßƒä‹PŽö ùIx@ |σ9ëB§¦¶ýç‰=% 3ÒGÕ©‘¶Ç—@у4 ³CÖ.º¬=…žŠ×ô‡yÁñíkŸåªð´8ÒuÉî ˜´ÊÈBÐøÀ­,RÖS·Ì]\évìÅh?u¤¬L•˜xûM©’»yûY‰º="ÛlL¾Óד¹¸–nÃ^@C b-Æü)! òk‘§e“±1-PÌ„ªrÇ+熽töàßnŒîm•´„W†8² °E† ë…èYL¶Þ§ù´»={ý‘Ȥ€þ+Dä ÿ!Òï!Fm_a/eÕd´ž5í{:^F_GÐÿpAÿw¿ô?p'G@¨Sæi« 1>ß;í¹g/Ýž½€þ‡ÄÎú;ø*„-uH…ôÆÔ®h(TßÑñÊ/¤Û´ðÿDíG‰öÙ%{Z´ï%)› èô­ŠpÌ|>•õÌ-sÏ^º={û…Ýì_etŠ`ÿ¡ð)â÷9GÅ„€Ïë4z„>”NÁ-sÛ^ºm{IöE‘^ÿO…‚«1pêPnæl8ý¹ Ûê87í¥Û´ð5 PcRf¿ÆqJ£5°Ì™Œ€¥5v®Íܸ—nã^PhÈËû”†ÀE ˆ(‰õí ¿i ‘Å ô];éfnÛK·m/àÿºí„U©&ž¡àH >GÎJÅ:·œÞÁèSídí¹m/ݶ½€ÿGþíU¬m_YÉdP°’pþ±C@è5ÚÞÅú±€æƽt÷HÎñ­©Æ[©×g¦,·FŽÄÛþ+Ë•ý«sÅ°ÛûA¦pž2 2…ó¬¾ ðT3Ú¯µÔ'EÜwžz/ö[m§O:7}º=¤ç©žQE25S œ§;‚ˆë¸‘‡€¯„~©.â}ôëÔvîöt›=H N(Y!58!‚†Ìà„b "­ŠH;ƒ‰Ì„å×µ››<Ýn›I7d'i©‚ 8É`¢™ßPa†øýz_âš»½dÇ„‰À1_F"p4"«ã_ˆØ] À®ïeYÇmîëô²G¶+·¼ H.P“ñß1qÎæK${ ÊæîLyÝævN·›“-Š-ÉöÅ×òL÷f€@ê"E^”)Ê!Š»Øù±|nât{8ñ)< Þ»Híc„{)X#|jMMºJTc!|»3ëm´››7ÝÞ B½ãùé³azÇTÖ2àR„m—¨ €¶K/±æ®M·iƒŽ‰KãвqLŒÐ±q‰n!6*Z#ú5ŽÃ#Ú5îÜXlÔ›»5Ýf ú%.S[­—/·äc÷tÚ¿½þd_Sfi¥£}œ¹µ%.ÿi!cY¿ÁÖ½¡¹Ö‹Q+EK»s°c#&oç'“·šZwéÙ.äÅä ÷bÍø…-3Œ>\ê»Yîp‰¸íSLwù ~!7êp ± ¹ñ×€aZº6u³^ü†ö¦óí6Ñä æö­¦ó æö½¦“vÃ\Úu ¼ö“SÖŒ_Ø0Ãóz»‰}ÈéZ×·9]hNÎ>èt±9 û¨ÓÅÆ8ûRÓÅÔ7ÂßÝÌß²Á ´ö§k=Êä+Vä©qoçÆÕ¸óÿ˜íØïxú† bˆçAëuºÜ (†xiçOì·±MŒ·W[Œû w‚fü–É–k cÒÒBXLÞša<¹u´È]#5ÆdÈtwó†V”øÐ(e•‰ÍYLGl®êTv´~9Õ­_¯-ÃY3~aË Ã¼uç`˜§ÆEεI3Ji0Ÿª”ÜÊ ¼¼áPЋ_Ø0ÂÊߦ¶h˜·©ÍŠߦ6«d|m0·rÆ׌©¦ikÆ/l™Ql¹v«ŠÚk‰j§4Þ?•<¾muoÎb*~Ú_ÖY/~aÈ©pj/q²Â±½Äiª›³KS Ù€a’ÄÖ<o+[$¦i“~¤©m\uViŒË†y˜óTk6Æå©àlW7ðʆC%¦y3_X5&µUË0oïK¶‚tlîK¶ªtlÕµÒtlî‹Õ^a܈Q™éGÞ¤¨ÛÚ$fÅ[h§XéÚr"+Í‚4FX}ZcEZ #øZ”Múaõ]ÛZ‘B»»AÞ’"«àB›F¬Œ ­¿V`7l`úq>‡ÿ$â$Ì endstream endobj 6696 0 obj << /Type /ObjStm /N 100 /First 1041 /Length 4168 /Filter /FlateDecode >> stream xÚ}œ½Î&¹…ó¾Š ·7°K⟾cƒM,L`o`ß?LžiÖwúeb¼æTIâ‘Dñ)êk÷´ç}Ü3ž•Ù?Î#¹ûG>–ëñxß'ÎéëÉýc?kí_ò,9Ò¿ôYvÞþeÏŠÈoõË«Ñð¶Å³WXÿ:Ï–@»ùlóno½ÏïçÖzvz··ö#Ëwÿ’GIJé#f=”e„Yõ±¼Æk=–.Å=Š¢å|Ô´ÿë~ í–÷z4¥ÛÛû±%=ª-‰à9}Ì¤Ç·í±·úØ^Rìn¯ÿgí鮎d£½jÊvTÞß»¬_Õ@®‹ì§¼ê–Ež²÷#ÕQØ‹ç쉒³ú"ßîWâ9oâÝóœÝo ÷hv+ú>dzûÕõœ“Ýžî'ßÓ핃¹O¯œN=í›Ú“~Võ¡ÞØí•8ë}15¥Øzw Å¬Ÿ튽õ³Aÿ\õóxÈzâ_ïV­f¾”è!•úå!æÅjî—[Tgæ½H03V½í׺‹zjí­h·z۪ݘWoÕV?ëÕÛ>ÚBÔì/yµ=ô^gµnúgõ&*=ôÈ©ÞjõôBì¡×’Zúö¬D zéî©Šre©îî"ª7õÝíÖB¬%ƒ)+·—½«[(1–íÕcˆ^Öúv µ|—ùÛ¾•p½ØÑXõæïÛ¾EõVÍ¢ÝêÍ¥7TÔž(E²Ç{ª7lOõV[¬»¨í³jɶoµ§VÍ:ží]d§}«ÿ_êôÈê©h·z;+zd5õë¶W­‡=zdÕxµŠy« ½Nb¯ÕÒY¹0oµžV v[i¥Y~ûÓŸ¾ýñ¿þ÷¯¿þýùŸÿøû¯ÿ÷ßþÿoÿù‡•ï÷3ü>ÿýü»}µ½ôüjß°/² ì›ì »Ý`϶ÿòíùí¯¿ýƒGv¿ðË·?ÿù“ÞÍn´=Ù~`g7ö¯n”ÓV!Ø3øÙÿ~?þÙZ[ß{‘ õ±`W²oØì;Ua²÷{ /&"xX˜ú /&"’ì˜ÊÕåÅD$»‡‰ÈÏ{#»_˜ÜÀDPÆ×É4'VÒŒYÜø’}Áέ´ækq;» NÜs±¦ô¦(â¥eÓ•f®Uvò¹Q±ìäs£b1ýçiÙýÂä$’P ¹°„\ØmHNçf{ÁÌ$ ñtrâÊû…Á …æJN(4筪М·ªBs£9Rhîl‡xþùØÆÈî&7 9Ÿw Í 9D¡9!G¯æQ1h$’A¼¶¶^y`¿08aÐÌ…Ý!Êbtã 9î>a'1yõ7’ÕÓ´‹·p0hX,{ N\y`¿08ÑŒYÍq÷ ;mËfÌ-”¶ŠCsÞGÍ–šC<ÿüé#»_˜Ü€æô¹µCú€æô¹UšóÐœwW@¼b”ßéGŒçE@sÞ~̓‡Íé¢4'p—€æÉr@¼N½¸ÓÓfL^ šóæc 'Ž€Eå°¨/9XÔUåÞgL?€˜Ê!ˆ©‹VS9€•cXQy×7+êž;ýç„©DûÂTÎrA˜Ê¡¨¨ôáO€ŠJè'@ÅUП{qW#e¬F SÝ€äY@˜JŸD¨¨tö‡ê÷ë–èäcú¤)w5rL=€©´­€©´­€©Dx R䲬‚õ,²còóg½«‘:V#€©tj+Sic+SéÔV¢Ò©Ýi÷U¢f NÜS1V#€©T R¦`*ÓVa§9)ÚâööÏŸ=ô®FêXT&U€i›‡›°Óp›i§(HÑ((HÑ䜸Ò@«‘ À4áAAsÚð À4Úð TäR«¹¨ª@EŸÜ¸«‘:V#„éÂ*¶æNQƒÅáÁ‚xCÁŠN´­`Eh[ïj¤ŽÕHb:ï ¦Óé¬@Ì ÓYÁŠA§³‚gÁŠñ~N=ô®FêXT fð6nÄä…ÄŒÅö;E4°bÐá¯`ÅX>8q¥:V#ˆ[€˜Á ˆÂNCsa÷ ¹°{O‡}qW#u¬Föhñ°1ƒ®w(3èz‡‚ƒ®w(X1„¬>œW¥c5RA˜ÁG13ø(aÅ@Å  ŸùNÏè¾0ë]?(“ï3(“kô À<¼µAŠçå±*ìܾÁ>yw5RÇj¤0Ïâaì$9óp()ò'éÞ,‡¾Â+HñÇ €NÜéÇXTæá- À<¼%˜G(â€Ðê)rí^AŠg(é]Ô±©Ì£Ü=4çC €yè£Y¢C)þ$)þ¸ðÁ‰;ý«‘ ÀüI„`çî¡9G â¡ú‘ù€§*½ÞÕH«‘ Â<‡‡Í9´4arà+`ÅÃyXñä°¹ïj¤ŽÕHb&Ç fò¦b&oz°"_5P°bòIVÌõôô®FêXT fR‚`˜_ûîƒ7ÀbÒg?,&eüXÌ=lŠ»ic5ÒÀ˜|ÍÁÀ˜)Ü=&‚‘“r{,òu ,¦~>¶í®FÚX40fR–ÑIÆ¡R¨1“r,¦ñóÐܸuˆ7Ô¶í®FÚX40fï“ï|3‡ ͇ Í݆xCúaw5ÒÆjd'p@ Œ™”Y3)@`1)³2ÀbRfe€ÅøèþÔoc5Ò€˜™Ü;$Oî’Ó·k&“—ª—Ö¬(/ŧNr§ kw5ÒÆåÔ„)ïæ>ì´å›0å~^`ççvò­QQÞá’£ÝÕH«‘Ö„)|ËÆš0ËN J 9„ $§Ú}óD¦ÏöàÄ•ÚøIКS¢d Íyk+4w~šSc Í)‡1…xþù´°»i#Z˜BsŽ8 Í9â(4çˆS£åÃÜ šÓm3ˆÃYqW#m¬FšAsú kÍ9B4çeÐœ#”AsŽPñÎg´°/!j¬FšAsQÍ9DykÎVhΫaQøÂŽ5,–}ØÜw5ÒÆj¤5cVs<,…‡Õš¯ÅÃrØIŒ†EY?qûÀ>ÌÅ]´±i͘²èRÏ8'¡ÖŒYOÓf hNßž- 9}²€xk8òîj¤ÕH h¾¹{h¾¹{hN_- 9U’- 9Ýâ´€xËØ]´±ÙË/‰öí@sa;4çCï@s>ô4çÓè@<Ô½-Æj¤H®Ü;$§ÊœHN|n’Ó%;œÓå2ÿ`>ÜéÇ8 Åù|N(N´o Åé©%ç¤<¡8'å í¦¤ü®FÚX´„䜔'$ç:!9}ä°„äô§œÕzÐjí œCUØîj¤O©‡¿˜ºë/æ>Wø‹y ²©¿˜ªjú‹y8Üæaø O¿«‘>V#ýÅ<îó@\í/æîú‹y ;}Þ%-J_o¨Fú]ô±é šy¦ì—%°/²+ì´nšËN‹¬I±ìŸW”ßÕH«‘Þ€)|'Ó0…ïdz¦l:;—HÚðÞ¤XOSëMŠeÔ]ô±éšÓ©êšSE×74§Û¾¡9Ý®ð Í7·ñöçSÛïj¤ÕHaò¥Laò¥ÌNkø ‡ƒ7,VÜt°8Xq&ü®FúXt ææíÄÜdˆÉ—/¬¸9È‚7¥üVÜÃßÑû]ô±é@ÌÍ¡°“*bò-G+ ï.°¢ð¾+Ê´/îj¤ÕHbòmFbò½Ebò…B+ò…B+ ¥V”á¨ü®FúXlPàO]Äe;4§Vúhà`E¾ýè`E±á¼¸2(«‘ÂãÑBrçÑBrçÑBrÂs* ‘mÃÔô9Ðïj¤gSˆ’€)DÉÀúH) Ÿó E¾ûè E.Cù]ô±éLIVK®¼Y˜ÊG!HQ©¨ÚÍ$U#¤øã6á'îôc¬F:“/!:“/:“/:HQ7·5Wa»Ã>ÌÅ]ô±éL%fs¦³9SéCeOQr°)òíG)êð÷ ~W#}¬F:S Í€©„fÀTŽ\@EåÈTTή€Š:|ô»éc5ÒA˜êì4çÓ„IµK+*‡k°¢2»€5lpâN?Æj¤1•—S2\hÎ,V4NËÁŠF_­¬8]ô»éc5Ò˜üÏÇD#æ×ÍÒ‘%éNfù_š À"ÿK3X´áº„ßÕÈ«‘Æä‚Æ4JrŒi”ä`Ñ”ÝÃD‹‰ÒÙ¸«‘1V#Œi”ÎvKªFÓœŸ†ætÿ ‹æÜÄ>“Ç]Œ±`L£œ9À˜FŸÉŒi”L`Ñ(À¢Q€E‘1V#ûhKîcçÆ4ºÛ€E§c>‹NÇ|}øGWâ ²1V#ˆé/{á°ÓT1âM€}q;-¹SªÞÇÕȸ«‘ÿúºüOb]& endstream endobj 6797 0 obj << /Type /ObjStm /N 100 /First 1035 /Length 3663 /Filter /FlateDecode >> stream xÚ[M¹ ½ûWÔ1ÙÒ?€Å‚ܲÈas rhÛc{’±Ç˜™Ý ÿ>$»ßdªY¥õa2§$’”ž(©‰•–u!VYŠª7tiÊ Éº.Ãþh²°voÔEµy£-¥hñV_JÓÕ[c)CÄ[´~c-¶A%ºÊR‹D]jïQÖ¥ö¿–²Tf¹Ô¥*ûw¥-­p|×—ÖÈG.ciƒÜ¸BKc¦£°ÙK1Š,½Põ–.½‘R×¥á}kY:á­ºtÞ£¶e”á=j_FÑc,ctõ-fž˜ŽÊEw,ª UzŒbŸ´îö5ûßhÞ£ÙÜܾfƒjó­-\šûÖú­E±ð¨Ñƒæê~X7Öâ¶4Y %×aƒšnïkŠì?¯—EFñ¾½.BaKo‹pàÒû""ñ×±èºF_Z´¬΋֣Ȣ-¬2Wµ‡¿c]ôŒ®¡ÄŽš£,®c4 þête]‹w6<ËZª8,êk­dj†…}mg©¥ÕÚÏMµæ¨>­Ö¤s³X“ÏÍjM97-ÁV­# m±£iÚJ©®˜L[©µ˜6³¸”vþÀ´•îQ2måK¢R¨»c–Y¥œ³€M[‘HŽtŽ\³t,u ×Ù´YκélÚjÕfÚØ´Õ8ØW¥Ž5T˜¶JÅUXj—zvÈò½T ”Å´UíÞML[[qñÙSFt3mYt3m­±kÓÖzÌ›Z¥'˜Å·4Š¹iS¯4Ÿ…Ö,>#ƒÔ´™®Âæké%б9\z Ë,» 'Of±aJïMßüøã›þvúrû´üãO·ïŸï¾þñ†ÛúvidY».¿,¯å%äœä5ä’äÍå–:×òò‘äÃåãüóÍ?ß}¹{Ζm;üóÍO?¹A1œ&5ìrÎîIÈK’«Ë ß+¹yás"‰=‹Á±ôöªÃÄ‹ k±;è\²zÝ Oòò<Îy Fwô|Ý †[¶í0sÃA×’rahÈS.ƒ^’µ´Æç”ä%äi òÉüvö&^ƒ®9sÉ@ïkN5.ÏÁ yþž]žgIÈDZnÙ¶ÃÌ ½a^«á=¥¯ñyòšKÈS0¸º¼&¯¹…|²L¹aÛ/|5ì%ÏWŸ°¶CK¹ã9eòü=¿=ïè®åzáŒR Ç“`¸eÛ7$@OÚ%@ç®èœ2]tNŒ(ºí5’ÜÑ«çUpß‹íÄ°ïgN8æµgíŽyÍ@ó–SGó–c$ò4Žx“ŒrÃ6ßOœP‡¼qÊs-!OƪCnkp’·'ȵ‡<¤^S=öB·›nBÔ1ïy¥Wy6WBžÍÕ_›k_ÛvâZ¸F &sB7;™m@¬&t͉¬D yVî°$Or„m@“¼‡¼%ùy?ô",Ûv˜¹hÙĆˆ´Ùµ*-ä)Å1O¤c¯ÞÛÄ‹m,Ê4%@ï=© Ð{ò®è#^ô‘öKVm»<í­öùñ$,Ûv˜¹á ÍhIȳ{òä^ ÐÓçÕA§4é¤:zTg^lvƒÞaâE­1\ò¢¶g³zȳ:åÔ¬ò”š•CÎÇnÔúöªÃÌ ‰áRFW ùõ^Û9Ì@OÖ¶=§T Ðsj¶@¯ÓÄ‹ éy‡‰-@ïi¾¶=Ï€ äu ÐGö:@§ì^ ÇÇÔ–m;ÌÜÐóŒb³¦Tèz¢tézÚ.IÐ%¥lôd²Ø¶ÍnÐ;L¼èzžß=@ÏóØ‹ÍÎköšCžÝ“çñ5ä7z{ÕaâF›5¥”›3#z±iò$¯ÍLžÇqÐ9Õ«F“×IÛ}”?sbÄh)¡G`ž*oyÚÉËÌ3À<¯RQ4NØz1% È3S@ž×. È3OR@ž£¨¹g'¼1Yji» ¡é&$JM΋N”šœ(5¥äï5äéû¨Óñ„DÍ(U'^l7!<Ý„D©™Ïl$JMÉàF©)ܨ%/ÙQ3Jª_$jF“ÙÍÛMOs*JMÉ G©)y¥RSR9$Q3ö´EÍ(©J’¨e¶•âí&D¦›(5…³ú=3@”š~ô|-ÐSý$Q4JªŸ$ŠF]'[ÙnBdº ‰ZS×l®†<™µfžßQ5j*«$ªFMe•DÕ¨ëd•’í&D§›(65OJ›šNÐ$ŠÍ|‚&Q5æ4‰ªQózU£–É×í&D§›(65MpõbóÚ&b3Mz²Q»&yD"Í.²Q©L\Øì@¼Ã± Õ¦¦Ù§Qmj:©Õ¨6ýNñZ‘lnDBJ’G$äxv‡eÛ37"i¿¦Qm¦¥K£ÚTI^DÙ¨iÒk”ªùû@orĆm;L¼ˆjS•’š]%ÉtÍîècMuzÙhò<Ž†üxZ„eÛ7¢ÚÌ™ëÕæÈÇãêÕæÈ'¸êÅ™Éè^6Ž5m+ÕËF“JºYhýû™ÃGKçÁêÅæX{ö"0ïÙ‹À|¤Ì¬yºôÓ¨'Ó; Û|?q¢äéQ[@>R¢µ€<]j ÈÓU ¶€½»¿½Yo|«8C:ÝðdÛG›¯¾N¦¿ü-®±â¿HㆮM‰«&Ö+éùΣ^IãÜr\ÛÇ’Ž ^[óúãc³ãB¯ÍŽâ ¥*¤¾`U¹²Ä'âвö^y2BØMæ·¯¿=´Ø3„°ÇÐóãåTBÏ¢+'4^¬xîW«÷_ï>ØW4.5’©ZÑ(hT4©´øËÃû?ýýùôølZ~ùøõæôéÓãí§ÓóíÍíÓûÓýû¬ðr0f BƒÑ4`T¾ñÙSâ3!þðþáëÇ»¯Ï7_N7Ÿî¿|ÉÚœkp®Á¹ËÕ¿5`a£=í¯•Ü?]48=ß¼{øõñôôt*Æä;šáeƒ— ^v@ßa]¯{š]Éû‡ûû»¯OÅ6+§WºÞ=ÞÝ~­ëÚ²æ;<ìð°#Öu9Òüíôéþîôø`îÕ‹æ·OÏ;áÙ€gž à>`U®Wÿ?ôKd?ßíéðcÀ?P°…vséó¿þ}QñåöùóǧÃÄ%¸@pàX‚A´›:PqoÞxþ\4;=þ|úöíþ¿;JáÁ‚? l†ñnÖ¼ŒþóŸ¡ïñöÃÝûs—¬“áÃ-†[ œvñn¾¼Öð2G¾=bÚ|ùmG+üø%ðK¸À2éûZ¡àÛíóÃEëã~4. \¸$€Z`’î¦Îãfíy|zþõÃí×,Uø¡ðCá‡a…Ê»ª.ƒŸÑû|QùüpóŸ»·{1Tøp)·=Ö(hT4ÚžÎçÇÓקPÿ¸¹ûöñùæs^Wér0a¡Áhz¬ÏT<>¼»ŸüvÁ8),p§ÀwJCFå«ÞóØ¿™[× ÂRwtÀ… \mh“jÚº_n/:úÈ:@²¸&#Ü‹.¬;*ïëðëK“eG¬¯âí¢5€øZÛ×á§{çfÝ È·t„k9Â{H ]®Ì’Šê{×K³ï„4I Iê0G ¸Ë}ZÖÑ_ÂQy' D\”YVƒÔ¤Fc?ä•_ÂÑVÎ:@ ÄP›OkÀŽ±òæç(—fßQ£Á~¸˜³ÀíG¼õ—p4Þ H@zD0¬E`­Ë+Ó¬ƒ_Â1òÎoP ÷}„›yQ'@fŒ*ŽAO zâ~œ}û¨÷pÔpMK¸—%\ÄZöôãÔèÛ;ýÎ;á¹1ÈQ±1èŠAW<¹aìÛ»¹±æíƒä$ǨÚpóK¸êµõù85ÆöŒ}ôxílÇ(ÚüÅà/¦ãÔÛÇüƒwâÖc°£VcƒÈxrF:¶/riÍûý1èQ£1(AiÌǹAÛ×uÔvâ"d!£2cðƒ×xòD†¶Odˆwâ6d°!£,cƒØXsƒ¶7Ý¼æ ƒtȨËÄÆ ¶óO^‹no¬6¿ºyÑãA‡‚zL@lb“õûC9^:С ›€ØdrùsõÀ]r¸l(`CA& 6±ÉäÁíõSÕVwtÁ Ð!Þ}zÄO/òÝïÍ(‡K@‡øANüòÒ¨ 6©üÝïFt'\ Câåáç=ñÓÉK£}÷ýo^¡l(`CA•& 6±IÓß¹Å9>UÆHÀ…øMPü.óÒ€1¹T»>UÞ=ýà“˜øç¹:“\«mOÿoü'à?A¹&`2“ÉøÎã›Ãb]@xxCxiCxZCx4CB¿[¬¿”nÿ*‚7 endstream endobj 6908 0 obj << /Producer (pdfTeX-1.40.20) /Author(Wolfgang Viechtbauer)/Title(metafor: Meta-Analysis Package for R)/Subject()/Creator(LaTeX with hyperref)/Keywords() /CreationDate (D:20260426104857+02'00') /ModDate (D:20260426104857+02'00') /Trapped /False /PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019/Debian) kpathsea version 6.3.1) >> endobj 6898 0 obj << /Type /ObjStm /N 10 /First 88 /Length 362 /Filter /FlateDecode >> stream xÚ…“MkÃ0 †ïù:¶ƒ%¶ãX”ÂXoûd§ÑCÖšh›²d‡ýûÙiÙÚl·ÇFÒ«W–1‚GÌ •ÇJÑ&‚†Ü¨¬Á9& E(•‹à±ËB@¶Él–d7Õº7GÎ…§ á '€$À–Iv[íª6äOåƧ9æS˜4~ÕVõþ"5ÚM—É|þCU_µ€È¤,~ë ŠãPËjuFK 8@q€ÜI?¤Gµ¬ÖC-§ŠS-$.H\L”¤ÂQ-§ÜP‹ÎØ"1Ab‚ÅËPÙŒ*RA¡-ß·>U)ŸÖgqÀâ€Å‹–‰òÉ*,êÕås[~´ÿ½OÜâ®HÜâÌ?0Þv\ü¾ˆý«¥3¾ aÝG ‰rûòuð]—m¹­7Iö6<ºA’=|¶Ûj¼ÂãÕ}¹óÍñŸuç˜rW¯}öÚx ‰¿¿êLÍ(~oñš endstream endobj 6909 0 obj << /Type /XRef /Index [0 6910] /Size 6910 /W [1 3 1] /Root 6907 0 R /Info 6908 0 R /ID [ ] /Length 17181 /Filter /FlateDecode >> stream xÚ%ÝyxemZ×û<™*cídï]U{×Nê­yžçyž§Ô<Ï…oÛ6¼I)¤ÀQ0´A0Òê‹ÄpÚ $iE0Wƒ`Dš³ƒ‚u£l“À¡QsÙ€ ÝG‚1'Ÿ»ÿùÖ^ÏzÖªõû­g­u¯û¹wEEEÅBeEEeEª¨È,þSùnWeE±» -AåbÛÜ2m+,VAµ¶µÚ–[¬Zm‡µ-³¸ê´ÝЖ·X •UŸ¬Ô–³ØMÚÖiËZl†¥Úîikµ˜–ŶɌ¶‹±"«­][t‰æµíÓ¶Ôb|¡åÚni‹ÝÇSÐöJ[“Å"¬¬¬¨¾^Ò_­mÚ¶ik°Ø«´×Ö°z±m$¾KÅ5°V[|—8$ë`½¶Új-n€•5ÛóÚâpn‚ÍÚNh«¶¸¶j{«-¤ØÛÛ†>ÐViqìÔv\[ȸ vk»¦­ÂâØ[YQÛ¶xHŠïÞZÜûÛi{cñ¬¬X²¦BÛk‹‡à°6ÇêÝ+‹Gà¨6ÇêÝK‹ÇึKÚ^X<'ÛzZ´=·x Nks\Þ=³xÎ.¶-D¿§ÏÁymk´=±x.j;«í±ÅKp¹²¢îS¼ûî‘Å+pUÛIm-^ƒëÚj{`ñÜ\l› Ç»û;à–6wÏâm¸£í…¶»‹k믵ݱ;x m‡¶Ø,þóGÚ^j»e1¾øâ_T?¼D[ü—ñG?ÓFßw7-Æ{¡m·¶øºq°_i»®íºÅjQÁ†}{µÅŸJä÷‹'{õó +žXqU—¼_´OÃ@£6Çê=‡½¯Ö¶^Ûe‹Üù¾V›“éãüž³ß/Z¾a¾JÛE‹ÎŠ÷ Ú ïhôÞõ¾IÛAmç-:ß/ÕvG}ß;“ß/jÞøaƒ¶³ìï³Úâ@ðÆ{'ûû¼¶ýÚN[t²¿_®íª6¾zïd¿x²7Ž…NZt²¿_©m»6ž|ïdߦÍI÷î¸E'ûûUÚ dïøù½“ýýjmNÄwG-:Ùß/þ©M»Â¬Î…÷Nö÷ëµ­ÖvØ¢“ýýFmÚwΣ÷Nö÷›µÒvТ“ýýVm7µ9ß;Ùßo׆ÛoÑÉþ~ñdoêcåü}ïd¿[[AÛ^‹Nö÷{µ]ЋÑyq/M³ñw[Œÿè ¶0Mì*¾äam·µí´àâ_Þ|«I[|88ǵmÒ¶ÝbØ“Ú.j‹?!DYT«y´UÛV‹!èYmáøóà çµhßm¶Fº¨ÍÀý.]˜pÑKwE¿ÃÀ‹XÚß9»3àýâ©‘Yi@~·Þ¢³çýâ!ni¬Ó’9óÞßÒ'ÓZ‹ÎÚ÷‹m™ŒÁ#äv²¿¿§íµ¶ÕìïOöÖ áµ°Š“ýýâÉÞ:Ô*‹Nö÷O´=Ö6s²¿_<Ù³⸴Yt²¿¡-üu²¿¥-<¹Ò¢“ýýâÉžOÚÂÞ‹îL/žì+þi…aš‚¶‹'{v!Nì« Z[œLË-ÖÀâÉžû¨VÛ2‹K NÛJmy‹õРm³¶œÅFhÒ`Öb3,žì¹±m[-f b1úÅbÏñ_Æ÷‹/¾ ÚREݺeù¸+ÁU¨ÃÈÐáTëX§m¹O|úVÃX Ñe=D—° 6ÃØ Û`;쀰 vÃØ û`?€ƒpÃ8 Çà8œ€“p NÃ8 çà<\€‹p .ø ×àÜ„öT‘ùRÞíˆ?õ†ûºnÆr°öÃ%7Y°î¸ª‡¸[Ú7á™›"l€³î_J°î¹%ÉÂ1xí.£ ŽÂ97î(ŽÀ÷+`¸¼÷,…{.à>-´Á)×䃻.³Y8qå\›à¹ _˜õ6Ü»pîÃxà1<§ð žÃ x ¯à5¼·bÜ!'p_ü® Ü ¿«÷Àï–€;ßwõÐÐÍ°2Эò8£*j•ÎÁJ'g¥³¶Ò9]éd¯4 TZ*éãŽT‘û£øjmD`+\vß \±—ÀZ¸ ¯]uWÃ>¸å¢Yí°.¹Èå` ƒk©âùŽ Ÿ^º5Ã*Ø×á‰ëÌÈÃY—Ž¥° nº,µ|öC\žÌϽ; ×»ŒÅÕpÉh{^cã€ñ³¹ÒH]i¯4¶Wô+] *]&*]?*]X*]q*]Š*]£*]H+]a+]*+ß­Jk¾‡s§S(ö¼öX\1´¬4zŸ†‡Æâ&Ø×Àø‡à0£p NÁ¾T±õã[‡àRÔáZÑáNµÃ-gGÆùÖäX]ƒ8÷ÏÀY8çá\Ó©âð¯Åž]¢;b(m·x .3Ò.RÄ1ì} ®Cìþ&tÀ}¸š*.]‰ý݆;pîÛÆŽô=GÚ8âá<†'ðžÁsx/á¼6|Åé÷ UÜÙÿÛpšÎYœsšÎU¦ŠŸüXt†ÎÅSª?a.žM¡sÎÐ9gèœ3tÎ:ç s†Î9C眡sÎÐ9Çe®:U|â;b§ÎÕ9§éœÓtÎi:ç4sšÎ9MçÚຓÉÁž#òÜC_tqϱèÜ¢ë:ÿaì”çxnƒcï`ÏñîïÎñîïÎñîÜ>Ø›RŧŸÇb¨ß »`7'Vcã/bŸ¹½©â»¿-:óýÿÍqÝÜQòÄÎzs'ÿæNÓÌñÐ܉Tñ½{cÌ5çƦÃY6wnÁùTñ7¢Ëeˆ?ÿ*Ä_Ä4sL3Ç s 2Ç s<4Gý9f˜»*þÞOÆ^œ)s¬2Ç*s¼1Gó¹'©âsß™UæXeŽUæXeîµK[hþ6Uüøçâr—  ª¡jSjïµ.ŸŒ@E3Ô¥ŠŸmˆÑŠ ˆ3|Râ“KSÅh>º¸“8/7;÷÷Y\®«Ÿlƒ\ªøÿOl±„">Y„•P2¼^÷i|«a+l†Å ý—ÆÖÂzØÁ xûiŸ¶ÁvØ.êŸÜ’*~wOl»vgÉöS>Å×Ýà(,úå+¿[„CpŽ¸’ı:'à$œƒ3p,UüÉáØ6vÚßf¼j~çá\„¸%¹gSJ“±Ùe¸WáÄÝÍŸnÁÍ”?;à1ÜN)ó­ÑvîÃxà)<ƒçð^Â+ç¼qÄ%“•Ÿ¤”ÿþØé[m>Mºãn?‘Ò½‰Enš¬…%P­P•ÒÆûÑÅ›ä¦Inšd³I¯Éw79ŸÉâœI˜Ì¦´ã§bL3ñ+¦™dšÉ0×$ÓLº¥›äÉuÀ“«SÚ7|“ü2É/“ü2¹ øjÒ1ÜêèòÚ$ÓLrÉ$—Lî†c@îIrOí)î=ïö™dŸI~™ä—IO»\RÛc[êOrÄ$ŸN²ÊäYàœI¶˜¤ôäÑ”NmŒ=sÉ$—LrÉ$[L²ÅäU··Ü^†(ì3IßÉë)]éŒmÙbò6Ä].GLÞ¶˜d‹I¶˜|OÝåÖC„ŒSêØ»b•IVqRåÙ¯j2\òVç HP UP 5Pë–x•oz<->tDçFh‚fX Xu)=ûÏѯZ! 9ÈÃ2XÜ ]ÛO›¨äõBJæaì%œÑl‡ˆcƃÓ6Ÿ„+¯¯AÊë»`MJŸü“Øv#l‚Í°¶ÂvØ;ÑϳÁõ½_c?€ƒp v§Ôõcχà0£p ŽÃ 8 gàœNéÓ¯cÛsp.Áe¸Wá\‡p:àÜ…{ðÂâ¸ñ!ö|À[ijÐsx/ἆ°À£”>³+vðÆí¯›ãÞ«nWãnØrï§?p„UFXe¤*Rúá·¶áœÎ©I•uQ쵃ªc¢«íŽÐHðË¿Œ0ȃŒ0ȃŒ0Ès,IièJ왳G8{„õF ÐœÒOk¬å¦nYá;/÷uÏ[䜑ˆgSú¹‰èÌH#<4òD\d¶Œ#èöÈ8Â#œ3Â9#|5².¥_ì½0Ò#0á7pÓÈNwÒ†úva×vá±vöá—‘Eûü›¥±6á°‰.ñ NÃá”~ínô‹£‡¯Føj„¯FN9ºñ_ÆÃí8“ÒúRlÆa#q 8l„ÃFxhäbJ¿w-º0ÜÃ0ÜÃ0ÜÃðÚÈ­”þpmt¾ ,5r7¥¯·D¯ðßÈ#`Ç^áµ^ᵑWž±c‹§)ýéêøÄz#o@@²ý€è3©òG^Vè\ UP Rekk¬­ÃÒö%PõŽ†7Û›¡1Uú¢s´ÀÒT¹ê×£-+ 5U®û¥hËÁ2XEh‡BªÜ²<º¬„ˆl_ «RåÞŽXû¬…u°6@¼'Ùñv$¾¤÷ÛפÊ'bÛ-ïIœ)âfíbZí¢~íšížäÚ½Ù¾ öÁŽTyõÏÆbÅØ àìO•žE—ƒpÃI8š*_þV¬=§á \‚S©ò›þe¬= çà<\€‹p®ÁåTù-g¢óU¸·¡//ßþ½±Vl¸#îÜâ︎¹•*ÿjSt¹km¦ð^ÂýTùÙUÑå<†'ðžÁsxá’Îy•*û?[¼ÑæÓPªJ•ÿ¥!Úâ"Ç*C‹#×ÿ³hc®!æª&j„¥ÀCC|5Ô ‚IC<4”VjN•?µ3vÅWC|5ÄuC(z¢ÚêÚã ­RªüÙß‹-Xo(ƒTb©!–b©!–ÚkSåÏß‹-8lˆÃ†¸iÈýPûŸñrÍŠWj±S>Úž*ùUì€s†øjh?ðÐÓ 2„3ÈÓ I•¿þ±…àÙÐ àœ!Îb•!ê-ÚgüsÑi†˜fˆi†˜kè2°Ï¿ ňé½F{üYqHn qÉÐ]`•¡ûÀC¼1Ä CÌ0Ä CÌ0Ä CoáfªœøL| Þ opÓai(Boü¿qÀ¶ÀfñˆµP‘*ÿÐU¨¶­ª jRÕ¿¾¹x%YKRå×ïFç:h…†T9÷¢m)D¸£òMUé±6Ë¡ËRÕ’îX± P‚Õ°2Ue_ÅÚ6hwimÀZXkRU{6úy]ݱöYÜ› þÞí°6¤ªíëb‹8ñ\¶6hÛÛRÕ±žè²vˆ»÷F¶í„CpÄTÛŽÂ18'à$œ†Ý©êj&vï"×.âßîÛ·{1×k§F»›ÀvÑ­v¯°ÛÛ@,¨}¥mÏBÄr/™Tõä§b§çÁ;¥vá§ö8°—á*\J‹ÓÑï \‡pnõTÕ]]: âC1\;ºíË…ãèÞ…ûp'Uõ¼‹-$´/óé!<‚ÇðžÁƒTõÙgÑù©Îñà™ƒ,„¥^ÂóT5ð ¡^Àx•ª>?m¯Ý²‡YߦªñÛÚœ=X™ª/|[,Ö£rì`uªúõ_‰^évð_Š´³í`4A}ªšjˆ~Þ¾¶sö` ú±÷ o:˜lNUÿ=¾î £2ÿ 1èÝç˜ëB{³E,¤ªÿo_tv. t0BÚRuõ©XÁòƒkàƒTÝúµhsj ®æäØAR 2ú £nFÜ|?È»ƒ¼;È»ƒ<>¸6UÐ;åñÁ¬²ò``wªÞöïcm¤0ú {òËà¡T½ww¬eôAödïÁSÀãƒg€EYt'/³^ždÂAƼL8ÈuƒñðÈŽƒw€×ïà >‡©úЉ¯ñnánáŸ× ²Ôà+xíÊÔM`\|‘ªOým¹Å›–ETBTC Ô¨KÕ?ñÝѹ¼"Y“h…,ä Ë`9D ±!Ußl‰ .•Þ±¬i‡Uð¬ykÖÁzØa,Êxïó±«Í°¶ÃUù´öÂ>pCºfQäg·cÛýý"ƒäÈYs0UøÑ%ÒHŽA$œé!kÎÀ8•ª;¿Ϥ5à2\ƒ¸šª»‡£ßu¸7á6ÜàÔš[©ú/}&:ß…‡ðî§ê¿Ö+wšñíŸÁKxšªÿö?.Ïá„úÞyõз'ä~•ªä·£ß[m®yí^¢·7¦š›1µ|ÐÃ=|ÐÃ9=‹ƒÌϬŒµlÑSõÐÖCýžæTý/¿-úñFoôðFGô°@ϲT]þÑèâM\ÏJ([ôpDO1UÿêW¢‹«Az¤‡¥z8¢‡AzG‹ßúöè·8§Ç›½ÞèÙª§ÿS¬Ýœª¿öMñi7°@[ôH,êa•ž­©úîEöéÙÌÕÃ\=;aWª©Šs¡'¾Ð¾T³´)¹©ç°—*äéáœÎéá—žSp4Õ”¾¹©'âõ#ûô°Oûô8z.#õðZ#õœN5[¾;¸ ÖÃR=,Õ·âlÛÃR=·RÍž=Ñ™Íz©çnª9ø¹h»!¼ñ(Õœ8+x­ç)ðU#õ0R‡õ¼–ZÐy›  ̵x›jÎ}=ÖòÐ-ðÐÓ,0ÍÓ,4¤šþCa=öY0´,0ÃBSªy”b™Zà¡Zà°ãË7-KØg}Œ …Tó<þ˜ãË7-_ØÇË°% \©„Zà—…­°1Õ|Ó³ØÖø²ÀC ,°`ôYØ–jºò±–#8Â{µ% ì#ʾDîÂ’…xþ嫶X ÷ÂîTó®‹mµ ì³@­…øÇ]4ßxóØâ~£Ñ“çÞìqÓ3,œL5Ÿù[±ãÐÓ,D"Ó,Dú«,ðÆG,\N5ß×[°Ê«,0ÒÂ-`‹ÏB¼ù¾™j>¾ÙgÁS[‡ô½öP‹}â»0Í—,0ÈÂýTó#ß›=õí%“µ‡ÈL³À4 L³¦yãMzØâyªùÇÿ+6{«­TBUª­þ(Úja ÔA=4@#4A3´BMªùâãØl)d@<ûSË!›jþÍŸµy(@VB Ú VÁX‘j~5›}«a ¬…u°6ÁfØ[al‡°vÁn؇aÑuÿ±+þ½°öƒ\ƒO‘§ŽØïÊ%°¶»¥k—Ó^Õú…sp$ÕL/‹‡I §á œ… p.Aä,J*ü”lÃOO5ÿíÏÅ^"qñDºâ ¤ø©+Ðá«Åz·SÍ•c³{pÀ#x Oà)<ƒçð ^CX…7„ùê&j,¾L5r7Ye‚U&ª :ÕÞý…XÁ*¬2Á*,0Q›j›ÿL¬åœ Î™àœ Î™XêMp¤ùŒ4A߉–T»üoÆfË€‡&VçLpÎçLpÎçLpÎçL8ñ¼Ò'.™à¦‰µ©¶=”žXïÿoÊ9œ3Á9œ3Á9œ3Á Sí¦Ðr‚‘&i‚‘&i‚‘&ö²ÅÇK‹äžØŸj÷|>6㡉Cp¸dB^ËoL°Å[L°Å[LðÐÄy` ™ þ¹'N¦Úƒ³±g¦™`š ¶˜`‹‰È]Œ™Ûp5ÕžþÅèÜ‘ÅÊl1Á!侓j¯ÿptæ’ .™à’ .™âd• V™ð¼ßqÊ;‡K "Õ>s¯R­ª j`Ñ?ýÙX[ ÐMÐ KaÔ¥Ú·UÑ9-Ð YÈAÚayªýæÏD笄ȉ¹ö¬‡µ°*Õ¾ûZt^ kÀ÷ka¬Kµß9]6ÃYsmì„]°öÁ~8‡aoªýžû±ƒƒÃÈi£E’£p ŽÃ 8 q8OÃ8 çà"IµŸý¥Øéy¸àÜ?èÍÏ‹6®]«p ®Ã]¸”jÿÁòØöÜ„¸·áD¾ò½Tûc¿ïÃcx˜j?ÿƒÑIXO!”Cé'©ö§îÅZ Ê×âUÔkˆ¯öV?k‡SZÒ½?>±Å0‡É8LÚáŠпú?bm-Ô« ³Ê0« ³Ê0« ³Ê0o Ç»÷3Ž®ï2Ì>ÃËA¦Ø0G -†Ùb˜ªÃäΦÚ_Úÿ%# ¯¶f‹a~^ì3¼ÁÿÁíÃ1LøáM©ö×ÖÆxcx;ì.æ¦á½ÀÃÌ0|Ljßú+±Ù!ˆ×±ÈÃl1ÌÃGSí—·Ä .f‹áS©vöm´±Ê0ƒ _€³©ö÷Ä ±ì3| ˆ<|1-Iwb-— sÉ03 3Ã03 ³À0¿ ~øvZÒt+¶Ú>LøáiÉò7Ñö"oýiZ²ù+Ò’ï»+"-ïqZ²òÇcñ™D´?¾O6Ú>YãûêA®ø¾F!¾¯ä…ïsÁÝ×­…„¾/Ò’µ­‘Ëöy ‘ÏuÃ\7ü6-ùËåèH Ó}_Uª“k³ø©:-ù-ãi±í­ÅP€"¬„´A;¬‚@ݾ5°–§%_þ¶Ø©L»}ë nuÏÙ½ÁR0©aß&Ø [@ìzß6Ø;À»Ô}»à0HµØwÂÆ´ä÷_Æ´äðíÛ„Áãÿ=ÇᜄSpÎÀY8çá\„Kp ®Ã8”–ÌýÏø//ndÉ·IÃA+Š›5ì»Ò ÷uÀ-¸ ÷ájª«];¸wá<ô­ Ï@ÈS¤ºÜ™Øâ1<…0Òsˆÿò%¼v  bÖ¯ Ä\¦½Mu¥ñ±Þë 0Üà 0Ü@&Õ}û7¾ › äa,ÞàÞàhMu;*6c•V`•VˆWìñÍÖ¤ºƒÃÑ™i˜a ^_°À Pu`Kª;ö8úqÄ@¼]çˆY|0@ó½©î|1úñÁÀ!`šÈÏašf ù Hu·¿/¶`8éJBÁùðo ðÆ@|qÞàŽ8êžÿ‹Ø« È5à’«À94 òÀT÷‰WÑ™Ìõèˆý=€P?RT‰<@ÐúÜKuß¼#6{Ô þ¹çcÊ çCä©îÛ Ñ™sœÉ®Ý ó,5Ïó5©îWŸE[LM1ÜÌÇ„™gù%©®g.ºpÄ|LM1ç¬í9<_cž7æycžæÕÿëÿ 6c•yV™g•yV™g•yŽ˜çˆyŽ˜7xÌo„Rªûø‹±­³v~=°Å<«Ìæi>¿)ÕýðïF?V™g•yV™çùˆ¾‘gžsæ㆔´óÔŸßê†öĶü2Ï ó 2Ï óÔŸ7<ÌóÆ<á祺Ãæ¼Ñbžsæù`žnóñ~žðóÎøùs©îgÿJlÁó|0Ïóü2¾ŠCבê~ñ{f†y™7 ÌóË”×÷¡Fn€uPLu¿×;0ÍèCóŠ>\‘#¼Õ§° vÂúT÷•K±ÅfšýaôÛ‘ù³vÃ8»RÝ×þGlv‚·‘¹ÝŠƒ|xNÂy8šêþ÷ÚØìHßû𠜅spî@$‘_Hõuc±Åe¸‘{nB‡ÃkïÂ=¸à!<ƒ'p;Õgþfìï<†çð^ÂxšêWE¿WÀñ5ÆX`ŒÆX`¬"ÓýmªßüE—¨…%©¾{C´5 Œ±ÀÍÇêSýñïµÍÀ4c`‹±ÈÛ,B6ÕŸûýè/dX`,¦ Åü2êQleª¿ò·¢Ÿ¬û±˜iöÄü2>óž®ãŠO|0Æc„£àØúTg"vÀc„ã’±]Àc,0&Ÿlì#üoŒ… p(Õ?úbìÆh>)›4£ùÍÇxc,æq,¾ßUàƒ±‹©þÅéØK°ÅØm ôiÇH;v7ÕøGÑú’áÍ j£ô¥Ç(=ö•©œ«c‹Jw}klFé±×VT@‚J¨'û®¨MõÿðËÑ¥¡ ŠP—êÿÒÝXkšÂ®VÈB¤míZ’¡v­3ë:äî*A´ÃXTõ{vÆþÖ@Ì \1pÄÀM3ÿ¶AÌí;[Sý÷çcæñí2^í2{o×>0go׈œÊ# qÛkϦ]¦ŠKù)¸ÇSýg2öw΀i’ð›L›kÚ‘á Äßv Â}¸œêÿÎhì%âM·à6Ü»pÁc‰cè =¤úðM±íSxÏ!f‘¼‚QÊÜ®·6Ó¹7¥úùMñ‰Œ½µ@žÞªTÿùý±¢x£—ª½Tí5+¥—–½ˆ'CL/A{û^Rô.ž¦?u öBßÞHv£o/[ô®úöÒ·—¾½Àj m/i{IÛKË^2önHõ_ø¶Ø)i{9¢×TÎ^3dzc²¦‰0½´ìÝžêá7£sÌؤtoÌÓ¤o¯™˜½‡€-z÷§úûߢ3á{ ß{hÞKó^š÷¹—Ƚ„ê]TÿK?›‘»—ȽlÑ{â¸Ü€›@Ð^2öÞJõÿoClFßÞˆIGöâ`‹^J÷†Òí½Ÿêÿ[Š-b ¥{º½Dî%r/‘g9b6ú=Oõ|>>E®äÛÔpÓ-DÓ¬ów6.Ö„Ÿ%ü,igSj¨¹]Ì0š¥þ,õgس,0K·ÙæÔÐôsÑ_fγԟu:Ï’{–ܳäž-Íg)=KéYy›³äž%òl)5dëbÔŸ•8!× i–‘fÓ³|5˳”ž]—JñÌòÁ,Ìrɬüœ‡}–¾³;SÃÆÏDg>˜åÙ˜›Ë³1#—ܳäž%÷ìáÔ°í+±oÌêÏR–ú³1óŠæ³NñY§ø,¹gO¦†ƒÛ2Ã,3Ì2ìs6ò©ã«yözj85¹i–fì³\2kd˜åˆÙ8„Ÿ%ü,GÌ:ÅgY`ö¥7+±—G©áÂÅ'Ž˜ GPvQýŸ‘iÜ|«ª j L»µh‡ѯê¡ša©“ÌZ! 9ÈC ZRËoŽ,ƒH2Y(‚Ù­JšoµÃ*øVÃØm©áÕ±«u°6ÀfØ[aì…í©á£bl±vÁnØ&ÁÝŠIÔ' ¦XïK ßþ{±Å8‡à03p,5|ÏÿŽ~1ãúD´ÑÄ.)2Í·ÎÁu8›¾÷O£ó¸—á \µ"::|ŠÃŸnÁm¸ 7R숽ÜûGí^jø{›cňÿü xQuë„#§†Ï}&ú=‡ð¼Ž»õÖ[-kGcÂà«Ôð?‹ ¸d”KF¹d”KFkScëëè£u©á~(¹d”AFSÃè–hóÚ½Ã_4Ê£KSÃ/1V0Í(ÓŒ2Í(oŒòÆ(ûŒ.O ÿ®2ú±ÊèJà’Q.åƒÑE[LÞ.L3Ê4£L3jÎã(ƒŒn„MÀ*£¬2Ê£ëSÃï}klË9£l6ºxh”KFw¥†¯þFtáœÑ}À/£{SÃ×ÿ(V°Ê(—ŒrÉ(—ŒrÓè1ðn±ƒŒ£\2³ñyh”ú£‹Ãß~6öÂ/£ 2“î¹dô27QuôpÓè à’Q.%÷èÕÔXù )âÇÿÆ%£œ3zøe4võd4Þd>ó~¦Ñ§G©±éó±ÞåÑxUûV— HP UP 5°ê¡!5~º>:g¡šRcñ{¢­âUTr‡e°V@Š°JÐí°ZSãúŽØé*øVÃ:ˆ×N ¦@n‚Í°¶ÂnX›wýAìel‡°¤4wÜñi/ìƒýpÂ!8 Gà(ƒãpNÂ)8 g ª(ìIG7Æ~.Â%POÁ=áRÓ|—Š-Užb©ÛÁ¥î—OmoÁ]¸áNj¼ú¹X{Àcˆ ¿OaQî{_ˆ.O༄Wðž¥Æ73ÑEÝ9KÍ#XÚÏý|пM+Ø¢Ÿ-úÙ¢ßKÛŽ»©ñ—³±–Aú š€#ú9¢Ÿ#úù¥¿اŸAú¤ŸAú¤ŸAú¤ŸAú¤ŸAú¤ŸAú9¢Ÿ#ú9¢Ÿ_ú×oôóF?[ô×¥ÆïúÝøjÞ4D–£ôÇb›¸™¬Éb¤IJ˜,ʤ,Ê©,Ê®,¶³å^e\Ûâ\U{§-®5¥lÛ"mÚf›7&RE—ösb?'ösb?ëõ³^?ëõ³^ÌfÑþ=Àzý›Rãg¿ñu%×Gš©üÓ¥ýìØÏŽýìØÏuý±‚ëúã¿äºþ˜é}ΟöïOß;åâ~.îgœØ cö_ã©ñóÑOûù´Ÿ‹ûù´ŸOûù´ŸOû™°?ü²86ýäµØÌyÔϧý|Úÿx²Ÿÿúy²ß`ÔÏ¢ýìØÏŽý¯Ì^ŽðdÿƒÔø…?ŽEžì¸gm‚Zm‹NüW5+¡ ª¡&5©uÐKRãøt´ÕC4ÃRÈ@ ´Br‡e°V@Š°JÐí° >€Õ°ÖÂ:Ø ‹CäïôÆwY`#lœªñà­Å­° ¶ÃØ GàlI³_Œ]í†=°ÀA8 Çà8œ„éñ«?›€Óp.Â%¸ 1›üTjœÿ—Ñù Ĭäû>]kp>5Õýnt¹ 7à&D¥[âÅfà!<‚ÇðžÂ3x/à%„-^øžš ÿ›³¶#žC†é?®]”¸]l gDZzŽéÇa•»©i‹»æÌÇ‘/+»ƒÜj¸å€eƒå…eˆåŠeÛâlÜ“šþÉØÃ)é’Q¯%£^KF5—ÌÇU©éü‡ÑÅÀØFå[2Ê·dÔfÉ(Ú’ù¸.5ÝÝýDC%¯e«gTnɨܒù8¾ë©×’Q %£†KæãLjzû?bÛ(UàÀªÜ’ù˜?^žšþü/ÅZý˜EmÉ(Ú’Q´%£hKFÑ–Œ¢-E[2Š¶dmÉ(Ú’Q´%£hKFÑ–Œ¢-E[2Ç—Üñ·±ž¢-E[2Š¶dmÉ(Ú’Q´%£hKFÑ–ŒÚ,µY2j³dÔfɨ͒Q›%£6KFm–ŒÚ,µY2j³dÔfɨ͒Q‡%£KF–ÌÇl¦ôKæãU©é;?4ß+ “ù8J[Äɉʙd”3É(g’QÎ$£œIæã8~Œ©~IF9“ÌÇ'SSogìYÕ4ɨi’QÄ$óñ“ÔôwÿB¬eV%N2Jœd6i‘ÙÚÒ˜ ª ò&5ýèŸÄZ'{c-Ô§¦éo¶¨3Ñ K!-Ð YÈAVBSÓÏž‰,ƒås)úT‚5ðSÓÿltnƒvXka¬‡ °6ÁfØ[al‡°¢¬ÈnØ{aì‡ ­¢ñ†°:5½ÿøBGà(â5ž‚ÓpÎÂ98&è6^„¨¦±(Ùoˆ]y¡Úx®BT¤ê5§ï‚JS÷áızá <…gð^ÀKx¯á ÐÜ;‡–.šwѼ‹æ]Š¬tÕÃýn§¦ßù–èGý®ÚÔÑ™–®hèb.èb.è¢y t-Ž_ù·±[tѼ‹æ]+€#ºŠ@ß®\júŸ'¢3¿tE5eÍ»VC{j®~]¤‹ºø ‹ºX kMjnY]Ø¢‹º6¥æö¿m¼ÑÅ]ÑÅ]ÑÅ]ÑÅ]ÑEý.êw‘»‹Ü]äî"wGtÂw¾‹ð]„ïâ¡®m©yë7Žsu1WGtqDGtqD—Ú6]|ÐÅ]|Ð¥†K×u¸lÑÅ]ìÓu¤‹Aº¤‹Aº¤‹AºâÐ1Hƒt1Hƒt1Hƒt1H[tLÍ{:â›òK¿˜œŸ×E­ƒµZ&Ã*oSóéeÑ&²ãqjþ¹H(6‹©e2n ŒŠ ´(‚Т´T‹Ò-J´(}ТôA‹Ò- {¶¨ТXBË$ç(‚ТB‹"-ÊRµ(}ТôA‹Ò-J´(}ТôA‹R -ê´L²Êduj~R_Ò xó²Šmf…šœU4%«E‰„%ZÔDhQ¡EM„EZ&ôÉ;0ª(‘Ð2›Å_¹(í§K±–‘”HhQ"¡Eí¬•Zkgjþž/D?P¡Eu„µZ&¥æïkÙLy…eZAh™<ššà¯ÇZ¾R"¡E‰„bA'£ Rdc0J-Ê&´(xÐ2y!5ÿà_ŒmyHa„½ZTBhQõ eòVjþ‘_Ž.QÝŽ‘&£¦#©¢Ð2É>ª´L>LÍÿäÓÑ9þsnR¬õBØâEjþiÏû­*RËúéøTÕPµ°ê *Ssù»¢s=4@#4A3,… ´@(¿t!›šù³±mLV/@”Azššos¬øJ©yìJ,¶Ãª´´ã'cq3¬NÍ¿ý›±¸6ÁX ë`=lHKOÿAEZú¯~!:ï†-iéµoÅ]°¶ÁvØ;ÓÒŸØ]ŽÀž´ôŸÿL,‚ðöÁ~8S¦¸¿"e¶]ZÄ—ÿzlqŽ¦Ìºo|Õ§.ƒãpN©”ùõ7Ñå œM™/}%=v„dçà<\€‹p)µ\ýÞEñ^žŒÎ·àjj¹Ÿ‹Å¸×áÜL-ß|oq‹˜mÜzá.ÜN-Ý¿‹wà)ÜK-ù‡¢MÑà ÷!Ê$>Å/µÞüs±mVBÜݼôi|a=´§Ö»_Š-VÃPLîÀ:ØêKPàëÀ†ÔújKtÞ Û`;ì€(¤±öÁ~8Çá(ìI­æÃØÁA8‡áœ€“p ܸÇRëŸû­Øì œ…sp.ÀE¸—á6\M­ßú‡±ÙMè€[pÁÔú Ñå܇ xhGÔ?}O!ʦ>‡(–꘎Ç×}œZ?s+öfP"õÀ[k©?NýqUOÇk X`œÆY`œÆcF ã„'ü8áÇ ?Þ Ôç’ñ<ðÁ8ŒóÁ8Œ~œðã%`‹ñv þ8õÇ)=NéqJSzœÆ7oŒ~œð㪠Ž“{œÜãä'÷8¹ÇwAÛÔ§þ8õÇ©?NéqJSzœÒãÌ0~ xcüDjŒú±ô?•ZÿÖñXŒCÒŽŸM­¯6Â~œðã 2~)µþð²XKýñë°¨þMD›Z‰ã,0ÎãD¿‘Z¿0k9bœ_ÆïoŒ‹†vÐrü1, ?ÿ_£³*Œãœ3Î Ñö$µþJœñãQ16‹*¹oSv¯´äìBÔÁ僅¨~Ë 4_H©õ7?º°… tYè²&Ðe˜Á´¹¬¢¥Y“å²ê”g͘˚—]hL­¿{%vÀ&ÐeM Ëš@—]àè²&ÐeM Ë*}š5m.kÚ\Ö´¹¬isYÕγ&¼eV¤Öÿ‘YtYSî² la]v!êͱ…ùtÙ¶0.kÆ\±-ºp„IpÙ…Å Æ|»â Ó沦Íebš‚ÃdŠ\Ö¹¬)rÙPe=«>kvañ‚ñµ‹±ÃÂóÍL¸ìÂéÔ:ÿ-±‚#Ì“Ëš'—5 .»p)e뿱–#L›Ëš6—5O.»À fÇen¤ìò(]lÚ\Ö´¹¬‰qY3æ² ¬b]Ö츬ÙqYÞ² wRvõplÆ &ËeÂQÓav\v!þÀW)»ù‡3â¶o…5] ²Cy”ÜG)ûW¿Ÿª@ýâ*S6j6ä>ZQ¹¢ r#DíãfhVÈBò° 2){®%vµV@ŠP‚6h‡ÕÓŒvCTÝ ¤ì•‹½¬ƒõ°6BDk·À6Ø;`/€]){«"v°öÃ!ˆYµGá`Ê>½]Ž(ߟŽÃ 8çá\„3p,e?ñ}Ñù$œo¥Ûâ«]‚Ëp®Â5¸wàlʾûíØÁ ¸ p nÃ}¸›²ßù QZ ±ø e¿ëWâÓx Ï༂×ð…ÿQons’s’s²s²scä–;˜#·Ô¿ÜXJÙhŽ-¨/c0'c0'E07õ®©?F}ÕtsÊæ£ÏÉÌÉÌÉÌÉÌ­ÂKÌI ÌI ÌI ÌI ÌI ÌI ÌÉ"Ì‘[RaNŠ`NŠ`NŠ`NÙÞœÄÀœªa9µîsRsRsRsRsRsRsRsRsRsr sc| Y0'Y0'Y0§pN›œbù9É‚9É‚9É‚9É‚9É‚9É‚9É‚9é…¹1¶6˜“6˜“6˜“6˜£¹’—9…ös*XääæäæäædæÆîBèKsY„9É‚¹±–”ý;ß¿P‘,Y¢aNaNaNÁ✌ÁœŒÁœ ¿9%üóBy¡¼XF^|#¯æc^#/Œ‘ÆÈ cä…1òÂyaŒ¼0F^#/Œ‘ÆÈ cä…1òÂyaŒ¼0F^#/Œ‘ÆÈ cä…1òÂyaŒ¼0F^#/Œ‘·È‹eätÌ‹VäE+ò¢yÑŠ¼hE^x"/<‘žÈ ^äÕ|Ì‹LäE+òÊ8æÅ(òby1Š¼E^P"/(‘”È Yä•lÌ‹GäÅ(ò“Gá‡pNÁi8gᜇ p.Áe¸Wá\‡p:à܆;pîÁ}xá<†'ðžÁsx/ἆ7@syyyyyyyyyyyyyyyyyyyyyyyyO‹yO‹ù)š{–ÌOÑÜ#cÞ#cÞ#cÞ#cÞ#cÞ#cÞ“aÞÓb~Šæž óž óóóž óž óž óž óóS4÷P˜÷P˜÷´˜Ÿ¢¹çÁ¼gÄüÍ= æ=æ§hî)0ïÉ0?Esσyσy?cŸŠóüqÊþý_‰#y*eÿÙw.^*GÇ" x(Ì{(Ì{(Ì{(Ì{‚ÌO±€ʼ'ü'ü'üGÁ¼GÁ¼GÁ¼GÁ¼GÁ¼GÁ¼GÁ¼‡Çü (»7C?ï7ò ó ó ó óžóS,ày0ïy0ïA1?µheÿw$¨„*¨†¨…%PõÐÐÍ°2Э…äa,‡P€"¬„´A;¬‚`5¬µ°ÖÃØ›`3l­° ¶ÃØ »`7ì½°öÃ8‡à0£p ŽÃ 8 §à4œ³pÎø—à2\«p ®Ã ¸ p nø ÷à><€‡ðÃx Ïà9¼€—ð ^à¹y'ËÊ4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍË4/Ó¼Ló2ÍËD.¹Lä2‘ËD.¹Lä2‘ËD.¹ƒÂ™”ý?‚ÞNÙ__}¾ü¹Xd2 ”Y Ìe(/Z`¹iË¿œ ª j –@ÔC4B4ÃRÈ@ ´Br‡e°V@Š°JÐí° >€Õ°ÖÂ:X`#l‚Í°¶Â6Ø;`'ì‚Ý°öÂ>Øà ‚ÃpŽÂ18'à$œ‚ÓpÎÂ98à"\‚Ëp®Â5¸7à&tÀ-¸ wà.܃ûðÂ#x Oà)<ƒçð^Â+x o€æB§Ë§i>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišOÓ|šæÓ4Ÿ¦ù4ͧi>MóišK\>CóšÏÐ|†æ34Ÿ¡ù Ígh>CóšÏÐ|†æ34Ÿ¡ù Ígh>CóšÏÐ|†æ34Ÿ¡ù Ígh>CóšÏÐ|†æ34Ÿ¡ù Ígh>CóšÏÐ|†æ34Ÿ¡ù Ígh>CóšÏÐ|†æ34Ÿ¡ù Ígh>CóšÏÐ|†æ34Ÿ¡ù Ígh>CóšÏÐ|†æ34Ÿ!ò ‘gˆ<€‡ðÃx Ïà9¼€—ð ^à¹òU¼ÂG4¹+øù‚œÅ‚Ÿ3+ˆÜDî "w‘»‚È]Aä® rWë+|Ds1¼‚^A ¯ †WÃ+ø9Ÿ‚È]Aä® rW¹+øy´‚ð]Aø® |Wð+|Ds¼‚@^ÁOí ‚vA»‚ ]AЮàÕ "w3 ÂwỂð]Aè¯ðÍ… Â!½‚^A ¯ ¸Wøˆæ¢yѼ‚ð]AH¯ðÍÅð bxº‚]A€® |Wøˆæ‚{Á½‚à^Ap¯ rW¹+ˆÜDî "w‘»‚P]A¨® TWª+Õ„ô Ñ\”® rWøˆæ~© |_Á/Æ„ê Bu¡º‚òPñº‚KA»‚ ]AЮðÍå¾:iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšwÒ¼“æ4ï¤y'Í;iÞIóNšKb+Hb+Hb+Hb+Hb+HX+Èd+ÈU+ÈU+ÈU+ÈU+ÈU+ÈU+ÈU+ÈK+ÈU+tYêZAšZAšZAšZAšZAšZA^ZA^ZAÂZ¡‹È’Ó ²Ñ 2Ô ]D–—V—V—VˆVœVè"²´‚´‚ä´B‘e£d£d£d£d£d£d£¤¤ä–ºˆ,C­ C­ C­ C­ C­ C­ C­ C­ C­ C­ C­ C­ ­ ­ ­Ð÷C§Sv¡.lmÊ-ÛºxÅ^udO/âÀb3HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+HX+ÈP+ÈP+H]+tùá™XÅ’Äè’”´’_£-Uƒ}%ÉÍ%EûJ~ê³äGJ~4µ¤ærÉT°’¼æ’ùƒ%%?JÒµK~Ç©¤XtIÙè’ôå’î’+I[-Iæ.I;*™5XòV¿$S»¤vjIMí’ô³’’t%GKæô—${”Ô*™æQR¼¤@xɯh–Ô /IS+IX+I]+y‹WRè£$ùº¤òÉo”¤z—$}—¤—$‚—¤„—¼Ê+I/ygS’g^’q^’{^RÁ§äWäJ&m”¼•)™R’9_’eV2Y¤dÚHÉ’’ÄŽ’$¢’é%%MJ¦œ”L>)™†R2!¥djJÉ$•’Ä÷’‰+%SXJ^ß–îƒ_z.y—_zJê–ü qI¡î’J+%5WJÒHJ* •Ô*yOWRG©Dó¶H9Œdxš+(_TP¾ØFó¶Hh§¹ òEUå‹m4÷‹”E?“WŒ¿VK¾Øe^h®Ò|±æÊÈ•–/¶Ñ\Aù¢ òŶHà§y[Ì¥¹âñEÅã‹ŠÇÛ"åæm1Y˜æQ7¾-†‚º”ÛñïãÛ¯O¹S ‹çÖåï¨HùÿõsQ•5ʘQ¡ íTh¿r7~7ÖR¡ íñC2ThÉšþŽö(ÿOŠö¨NŠvR´“¢íñ«ñ&=*Ó£í‘[á´¥(íORîæÆÿû4å~âïƧg)÷ï~5>=O¹¯|">½HùC?>½Lù)>½Jù?ŸO¯SþǺâÓ›”ÿÅïˆOoӲƉ‰ iùÿüÇiÙ–ÆXLiÙÅwñ©2-ûÔǧª´ìoLŧê´ìó;âSMZöK_ˆOµiÙôŸOKÒ²ÿþÓñ©.-ßQŽOõiùw¯ŠO iùð7þËø¡k¦y?[Í4~dzø.~ì6~ƒ;~˜iÞů+ÇMiÅ’Çñž)~6Ý÷cžÅw-iÅR)-Ån¶èf‹îø%y¶èŽß…g‹îø¥v¶èf‹n¶èf‹nCA·¡ ÛPÐm(è6t º Ýñ+ô†‚nCA·¡ ÛPÐm(è6t ºãç ݆‚nCA·¡ ÛPÐm(è6t ºãgâãwæ ݆‚nCA7v3a7vÇÏÝ º ÝLØÍ„ÝLØÍ„Ýñëòü×ÍÝü×ÍÝü×ÍÝü×ÍÝü×Ízݬ×ÍzÝ\×Íu݆‚nCA·¡ ÛPÐm(è6t º ݆‚nCA¹"­X#•µ(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·(¾[ß-ŠïÅw‹â»EñÝ¢ønQ|·X&¼m±LxáÞ¢poQ¸·(Ü[î- ÷…{‹Â½EáÞ¢poQ@·( [Ð- èt‹º+7/ ¿_šóÊÍ *¡ ª¡ja ÔA=4@#4A3,… ´@+d!yXËa +¡mЫàX k`-¬ƒõ°6Â&Ø [`+lƒí°vÂ.Ø {`/ìƒýpÂ!8 Gà(ƒãpNÂ)8 gà,œƒóp.Â%¸ Wà*\ƒëpnBÜ‚ÛpîÂ=¸à!<‚ÇðžÂ3x/à%¼‚×ðß·(ü3ÒVö¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ï#|áûßGø>Â÷¾ð}„ÿê¢ð÷ÝL¬ü*á¿Jø¯þ«„ÿ*á¿Jø¯þ«„ÿj}Zq÷ë‹›=¼Zñÿ4Õ· endstream endobj startxref 1529674 %%EOF metafor/man/0000755000176200001440000000000015173343621012467 5ustar liggesusersmetafor/man/replmiss.Rd0000644000176200001440000000147715173343621014625 0ustar liggesusers\name{replmiss} \alias{replmiss} \title{Replace Missing Values in a Vector} \description{ Function to replace missing (\code{NA}) values in a vector. } \usage{ replmiss(x, y, data) } \arguments{ \item{x}{vector that may include one or more missing values.} \item{y}{either a scalar or a vector of the same length as \code{x} with the value(s) to replace missing values with.} \item{data}{optional data frame containing the variables given to the arguments above.} } \value{ Vector \code{x} with the missing values replaced based on the scalar or vector \code{y}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \examples{ x <- c(4,2,7,NA,1,NA,5) x <- replmiss(x,0) x x <- c(4,2,7,NA,1,NA,5) y <- c(2,3,6,5,8,1,2) x <- replmiss(x,y) x } \keyword{manip} metafor/man/print.regtest.rma.Rd0000644000176200001440000000347515173343621016355 0ustar liggesusers\name{print.regtest} \alias{print.regtest} \title{Print Method for 'regtest' Objects} \description{ Function to print objects of class \code{"regtest"}. } \usage{ \method{print}{regtest}(x, digits=x$digits, ret.fit=x$ret.fit, \dots) } \arguments{ \item{x}{an object of class \code{"regtest"} obtained with \code{\link{regtest}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{ret.fit}{logical to specify whether the full results from the fitted model should also be returned. If unspecified, the default is to take the value from the object.} \item{\dots}{other arguments.} } \details{ The output includes: \itemize{ \item the model used for the regression test \item the predictor used for the regression test \item the results from the fitted model (only when \code{ret.fit=TRUE}) \item the test statistic of the test that the predictor is unreleated to the outcomes \item the degrees of freedom of the test statistic (only if the test statistic follows a t-distribution) \item the corresponding p-value \item the \sQuote{limit estimate} and its corresponding CI (only for predictors \code{"sei"} \code{"vi"}, \code{"ninv"}, or \code{"sqrtninv"} and when the model does not contain any additional moderators) } } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{regtest}} for the function to create \code{regtest} objects. } \keyword{print} metafor/man/forest.rma.Rd0000644000176200001440000010100315173343621015031 0ustar liggesusers\name{forest.rma} \alias{forest.rma} \title{Forest Plots (Method for 'rma' Objects)} \description{ Function to create forest plots for objects of class \code{"rma"}. \loadmathjax } \usage{ \method{forest}{rma}(x, annotate=TRUE, addfit=TRUE, addpred=FALSE, predstyle="line", preddist, showweights=FALSE, header=TRUE, xlim, alim, olim, ylim, predlim, at, steps=5, level=x$level, refline=0, digits=2L, width, xlab, slab, mlab, ilab, ilab.lab, ilab.xpos, ilab.pos, order, transf, atransf, targs, rows, efac=1, pch, psize, plim=c(0.5,1.5), colout, col, border, shade, colshade, lty, fonts, cex, cex.lab, cex.axis, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{annotate}{logical to specify whether annotations should be added to the plot (the default is \code{TRUE}).} \item{addfit}{logical to specify whether the pooled estimate (for models without moderators) or fitted values (for models with moderators) should be added to the plot (the default is \code{TRUE}). See \sQuote{Details}.} \item{addpred}{logical to specify whether the prediction interval should be added to the plot (the default is \code{FALSE}). See \sQuote{Details}.} \item{predstyle}{character string to specify the style of the prediction interval (either \code{"line"} (the default), \code{"polygon"}, \code{"bar"}, \code{"shade"}, or \code{"dist"}). Can be abbreviated. Setting this to something else than \code{"line"} automatically sets \code{addpred=TRUE}.} \item{preddist}{optional list of two elements to manually specify the predictive distribution.} \item{showweights}{logical to specify whether the annotations should also include the weights given to the observed outcomes during the model fitting (the default is \code{FALSE}). See \sQuote{Details}.} \item{header}{logical to specify whether column headings should be added to the plot (the default is \code{TRUE}). Can also be a character vector to specify the left and right headings (or only the left one).} \item{xlim}{horizontal limits of the plot region. If unspecified, the function sets the horizontal plot limits to some sensible values.} \item{alim}{the x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{olim}{optional argument to specify observation/outcome limits. If unspecified, no limits are used.} \item{ylim}{the y-axis limits of the plot. If unspecified, the function sets the y-axis limits to some sensible values. Can also be a single value to set the lower bound (while the upper bound is still set automatically).} \item{predlim}{optional argument to specify the limits of the predictive distribution when \code{predstyle="dist"}.} \item{at}{position of the x-axis tick marks and corresponding labels. If unspecified, the function sets the tick mark positions/labels to some sensible values.} \item{steps}{the number of tick marks for the x-axis (the default is 5). Ignored when the positions are specified via the \code{at} argument.} \item{level}{numeric value between 0 and 100 to specify the confidence (and prediction) interval level (see \link[=misc-options]{here} for details). The default is to take the value from the object.} \item{refline}{numeric value to specify the location of the vertical \sQuote{reference} line (the default is 0). The line can be suppressed by setting this argument to \code{NA}. Can also be a vector to add multiple lines.} \item{digits}{integer to specify the number of decimal places to which the annotations and tick mark labels of the x-axis should be rounded (the default is \code{2L}). Can also be a vector of two integers, the first to specify the number of decimal places for the annotations, the second for the x-axis labels (when \code{showweights=TRUE}, can also specify a third value for the weights). When specifying an integer (e.g., \code{2L}), trailing zeros after the decimal mark are dropped for the x-axis labels. When specifying a numeric value (e.g., \code{2}), trailing zeros are retained.} \item{width}{optional integer to manually adjust the width of the columns for the annotations (either a single integer or a vector of the same length as the number of annotation columns).} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title. Can also be a vector of three/two values (to also/only add labels at the end points of the x-axis limits).} \item{slab}{optional vector with labels for the \mjseqn{k} studies. If unspecified, the function tries to extract study labels from \code{x} or simple labels are created within the function. To suppress labels, set this argument to \code{NA}.} \item{mlab}{optional character string giving a label to the pooled estimate. If unspecified, the function sets a default label.} \item{ilab}{optional vector, matrix, or data frame providing additional information about the studies that should be added to the plot.} \item{ilab.lab}{optional character vector with (column) labels for the variable(s) given via \code{ilab}.} \item{ilab.xpos}{optional numeric vector to specify the horizontal position(s) of the variable(s) given via \code{ilab}.} \item{ilab.pos}{integer(s) (either 1, 2, 3, or 4) to specify the alignment of the variable(s) given via \code{ilab} (2 means right, 4 means left aligned). If unspecified, the default is to center the values.} \item{order}{optional character string to specify how the studies should be ordered. Can also be a variable based on which the studies will be ordered. See \sQuote{Details}.} \item{transf}{optional argument to specify a function to transform the observed outcomes, pooled estimate, fitted values, and confidence interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{atransf}{optional argument to specify a function to transform the x-axis labels and annotations (e.g., \code{atransf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{rows}{optional vector to specify the rows (or more generally, the positions) for plotting the outcomes. Can also be a single value to specify the row of the first outcome (the remaining outcomes are then plotted below this starting row).} \item{efac}{vertical expansion factor for confidence interval limits, arrows, and the polygon. The default value of 1 should usually work fine. Can also be a vector of two numbers, the first for CI limits and arrows, the second for the polygon. Can also be a vector of three numbers, the first for CI limits, the second for arrows, the third for the polygon. Can also include a fourth element to adjust the height of the prediction interval/distribution when \code{predstyle} is not \code{"line"}.} \item{pch}{plotting symbol to use for the observed outcomes. By default, a filled square is used. See \code{\link{points}} for other options. Can also be a vector of values.} \item{psize}{optional numeric value to specify the point sizes for the observed outcomes. If unspecified, the point sizes are a function of the model weights. Can also be a vector of values.} \item{plim}{numeric vector of length 2 to scale the point sizes (ignored when \code{psize} is specified). See \sQuote{Details}.} \item{colout}{optional character string to specify the color of the observed outcomes. Can also be a vector.} \item{col}{optional character string to specify the color of the polygon.} \item{border}{optional character string to specify the border color of the polygon.} \item{shade}{optional character string or a (logical or numeric) vector for shading rows of the plot. See \sQuote{Details}.} \item{colshade}{optional argument to specify the color for the shading.} \item{lty}{optional argument to specify the line type for the confidence intervals. If unspecified, the function sets this to \code{"solid"} by default.} \item{fonts}{optional character string to specify the font for the study labels, annotations, and the extra information (if specified via \code{ilab}). If unspecified, the default font is used.} \item{cex}{optional character and symbol expansion factor. If unspecified, the function sets this to a sensible value.} \item{cex.lab}{optional expansion factor for the x-axis title. If unspecified, the function sets this to a sensible value.} \item{cex.axis}{optional expansion factor for the x-axis labels. If unspecified, the function sets this to a sensible value.} \item{\dots}{other arguments.} } \details{ The plot shows the observed effect sizes or outcomes (by default as filled squares) with corresponding \code{level}\% confidence intervals (as horizontal lines extending from the observed outcomes). The confidence intervals are computed with \mjeqn{y_i \pm z_{crit} \sqrt{v_i}}{y_i ± z_crit \sqrt{v_i}}, where \mjseqn{y_i} denotes the observed outcome in the \mjeqn{i\text{th}}{ith} study, \mjseqn{v_i} the corresponding sampling variance (and hence \mjseqn{\sqrt{v_i}} is the corresponding standard error), and \mjeqn{z_{crit}}{z_crit} is the appropriate critical value from a standard normal distribution (e.g., \mjseqn{1.96} for a 95\% CI). \subsection{Equal- and Random-Effects Models}{ For an equal- and a random-effects model (i.e., for models without moderators), a four-sided polygon, sometimes called a summary \sQuote{diamond}, is added to the bottom of the forest plot, showing the pooled estimate based on the model (with the center of the polygon corresponding to the estimate and the left/right edges indicating the confidence interval limits). The \code{col} and \code{border} arguments can be used to adjust the (border) color of the polygon. Drawing of the polygon can be suppressed by setting \code{addfit=FALSE}. } \subsection{Prediction Interval for Random-Effects Models}{ For random-effects models and if \code{addpred=TRUE}, a dotted line is added to the polygon which indicates the bounds of the prediction interval (Riley et al., 2011). For random-effects models of class \code{"rma.mv"} (see \code{\link{rma.mv}}) with multiple \mjseqn{\tau^2} values, the \code{addpred} argument can be used to specify for which level of the inner factor the prediction interval should be provided (since the intervals differ depending on the \mjseqn{\tau^2} value). If the model also contains multiple \mjseqn{\gamma^2} values, the \code{addpred} argument should then be of length 2 to specify the levels of both inner factors. See also \code{\link[=predict.rma]{predict}}, which is used to compute these interval bounds. Instead of showing the prediction interval as a dotted line (which corresponds to \code{predstyle="line"}), one can choose a different style via the \code{predstyle} argument: \itemize{ \item \code{predstyle="polygon"}: the prediction interval is shown as an additional polygon below the polygon for the pooled estimate, \item \code{predstyle="bar"}: the prediction interval is shown as a bar below the polygon for the pooled estimate, \item \code{predstyle="shade"}: the bar is shaded in color intensity in accordance with the density of the predictive distribution, \item \code{predstyle="dist"}: the entire predictive distribution is shown and the regions beyond the prediction interval bounds are shaded in gray; the region below or above zero (depending on whether the pooled estimate is positive or negative) is also shaded in a lighter shade of gray. } In all of these cases, the prediction interval bounds are then also provided as part of the annotations. For \code{predstyle="dist"}, one can adjust the range of values for which the predictive distribution is shown via the \code{predlim} argument. Note that the shaded regions may not be visible depending on the location/shape of the distribution. Internally, \code{\link[=predict.rma]{predict}} is used to obtain the prediction interval / predictive distribution. However, one can also specify the predictive distribution manually via argument \code{preddist} (this can be useful if the distribution was estimated via some other method). The list should contain two elements, the first containing the x-values and the second the corresponding densities. The examples below illustrate the use of these arguments. When using \code{preddist}, the bounds of the prediction interval are by default obtained numerically by constructing the corresponding empirical cumulative distribution function (the range of x-values at which the densities are given should therefore be wide enough to span the entire distribution, so that tail areas can be accurately determined). However, if \code{preddist} contains elements \code{pi.lb} and \code{pi.ub} (and optionally element \code{level} for the prediction interval level), then these are taken as the prediction interval bounds. } \subsection{Meta-Regression Models}{ For meta-regression models (i.e., models involving moderators), the fitted value for each study is added as a polygon to the plot. By default, the width of the polygons corresponds to the confidence interval limits for the fitted values. By setting \code{addpred=TRUE}, the width reflects the prediction interval limits. Again, the \code{col} and \code{border} arguments can be used to adjust the (border) color of the polygons. These polygons can be suppressed by setting \code{addfit=FALSE}. } \subsection{Applying a Transformation}{ With the \code{transf} argument, the observed outcomes, pooled estimate, fitted values, confidence interval bounds, and prediction interval bounds can be transformed with some suitable function. For example, when plotting log odds ratios, one could use \code{transf=exp} to obtain a forest plot showing odds ratios. Note that when the transformation is non-linear (as is the case for \code{transf=exp}), the interval bounds will be asymmetric (which is visually not so appealing). Alternatively, one can use the \code{atransf} argument to transform the x-axis labels and annotations. For example, when using \code{atransf=exp}, the x-axis will correspond to a log scale. See \link{transf} for some other useful transformation functions in the context of a meta-analysis. See below for examples. } \subsection{Ordering of Studies}{ By default, the studies are ordered from top to bottom (i.e., the first study in the dataset will be placed in row \mjseqn{k}, the second study in row \mjseqn{k-1}, and so on, until the last study, which is placed in the first row). The studies can be reordered with the \code{order} argument: \itemize{ \item \code{order="obs"}: the studies are ordered by the observed outcomes, \item \code{order="fit"}: the studies are ordered by the fitted values, \item \code{order="prec"}: the studies are ordered by their sampling variances, \item \code{order="resid"}: the studies are ordered by the size of their residuals, \item \code{order="rstandard"}: the studies are ordered by the size of their standardized residuals, \item \code{order="abs.resid"}: the studies are ordered by the size of their absolute residuals, \item \code{order="abs.rstandard"}: the studies are ordered by the size of their absolute standardized residuals. } Alternatively, it is also possible to set \code{order} equal to a variable based on which the studies will be ordered. One can also use the \code{rows} argument to specify the rows (or more generally, the positions) for plotting the outcomes. } \subsection{Adding Additional Information to the Plot}{ Additional columns with information about the studies can be added to the plot via the \code{ilab} argument. This can either be a single variable or an entire matrix / data frame (with as many rows as there are studies in the forest plot). The \code{ilab.xpos} argument can be used to specify the horizontal position of the variables specified via \code{ilab}. The \code{ilab.pos} argument can be used to specify how the variables should be aligned. The \code{ilab.lab} argument can be used to add headers to the columns. \if{html}{The figure below illustrates how the elements in a forest plot are arranged and the meaning of the some of the arguments such as \code{xlim}, \code{alim}, \code{at}, \code{ilab}, \code{ilab.xpos}, and \code{ilab.lab}.} \if{html}{\figure{forest-arrangement.png}{options: width=800}} \if{html}{The figure corresponds to the following code: \preformatted{dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, slab=paste(author, year, sep=", "), data=dat.bcg) res <- rma(yi, vi, data=dat) forest(res, addpred=TRUE, xlim=c(-16,7), at=seq(-3,2,by=1), shade=TRUE, ilab=cbind(tpos, tneg, cpos, cneg), ilab.xpos=c(-9.5, -8, -6, -4.5), ilab.lab=c("TB+", "TB-", "TB+", "TB-"), cex=0.75, header="Author(s) and Year") text(c(-8.75, -5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) }} \if{latex}{The figure below illustrates how the elements in a forest plot are arranged and the meaning of the some of the arguments such as \code{xlim}, \code{alim}, \code{at}, \code{ilab}, \code{ilab.xpos}, and \code{ilab.lab}. \figure{forest-arrangement.pdf}{options: width=5.5in} The figure corresponds to the following code: \preformatted{dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, slab=paste(author, year, sep=", "), data=dat.bcg) res <- rma(yi, vi, data=dat) forest(res, addpred=TRUE, xlim=c(-16,7), at=seq(-3,2,by=1), shade=TRUE, ilab=cbind(tpos, tneg, cpos, cneg), ilab.xpos=c(-9.5, -8, -6, -4.5), ilab.lab=c("TB+", "TB-", "TB+", "TB-"), cex=0.75, header="Author(s) and Year") text(c(-8.75, -5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.75, font=2) }} Additional pooled estimates can be added to the plot as polygons with the \code{\link{addpoly}} function. See the documentation for that function for examples. When \code{showweights=TRUE}, the annotations will include information about the weights given to the observed outcomes during the model fitting. For simple models (such as those fitted with the \code{\link{rma.uni}} function), these weights correspond to the \sQuote{inverse-variance weights} (but are given in percent). For models fitted with the \code{\link{rma.mv}} function, the weights are based on the diagonal of the weight matrix. Note that the weighting structure is typically more complex in such models (i.e., the weight matrix is usually not just a diagonal matrix) and the weights shown therefore do not reflect this complexity. See \code{\link[=weights.rma]{weights}} for more details (for the special case that \code{x} is an intercept-only \code{"rma.mv"} model, one can also set \code{showweights="rowsum"} to show the \sQuote{row-sum weights}). } \subsection{Adjusting the Point Sizes}{ By default (i.e., when \code{psize} is not specified), the point sizes are a function of the square root of the model weights. This way, their areas are proportional to the weights. However, the point sizes are rescaled so that the smallest point size is \code{plim[1]} and the largest point size is \code{plim[2]}. As a result, their relative sizes (i.e., areas) no longer exactly correspond to their relative weights. If exactly relative point sizes are desired, one can set \code{plim[2]} to \code{NA}, in which case the points are rescaled so that the smallest point size corresponds to \code{plim[1]} and all other points are scaled accordingly. As a result, the largest point may be very large. Alternatively, one can set \code{plim[1]} to \code{NA}, in which case the points are rescaled so that the largest point size corresponds to \code{plim[2]} and all other points are scaled accordingly. As a result, the smallest point may be very small and essentially indistinguishable from the confidence interval line. To avoid the latter, one can also set \code{plim[3]}, which enforces a minimal point size. } \subsection{Shading Rows}{ With the \code{shade} argument, one can shade rows of the plot. The argument can be set to one of the following character strings: \code{"zebra"} (same as \code{shade=TRUE}) or \code{"zebra2"} to use zebra-style shading (starting either at the first or second study) or to \code{"all"} in which case all rows are shaded. Alternatively, the argument can be set to a logical or numeric vector to specify which rows should be shaded. The \code{colshade} argument can be used to set the color of shaded rows. } } \section{Note}{ The function sets some sensible values for the optional arguments, but it may be necessary to adjust these in certain circumstances. The function actually returns some information about the chosen values invisibly. Printing this information is useful as a starting point to customize the plot (see \sQuote{Examples}). For arguments \code{slab} and \code{ilab} and when specifying vectors for arguments \code{pch}, \code{psize}, \code{order}, and/or \code{colout} (and when \code{shade} is a logical vector), the variables specified are assumed to be of the same length as the data originally passed to the model fitting function (and if the \code{data} argument was used in the original model fit, then the variables will be searched for within this data frame first). Any subsetting and removal of studies with missing values is automatically applied to the variables specified via these arguments. If the number of studies is quite large, the labels, annotations, and symbols may become quite small and impossible to read. Stretching the plot window vertically may then provide a more readable figure (one should call the function again after adjusting the window size, so that the label/symbol sizes can be properly adjusted). Also, the \code{cex}, \code{cex.lab}, and \code{cex.axis} arguments are then useful to adjust the symbol and text sizes. If the outcome measure used for creating the plot is bounded (e.g., correlations are bounded between -1 and +1, proportions are bounded between 0 and 1), one can use the \code{olim} argument to enforce those limits (the observed outcomes and confidence/prediction intervals cannot exceed those bounds then). The models without moderators, the \code{col} argument can also be a vector of two elements, the first for the color of the polygon, the second for the color of the line for the prediction interval. For \code{predstyle="polygon"} and \code{predstyle="bar"}, \code{col[2]} can be used to adjust the polygon/bar color and \code{border[2]} the border color. For \code{predstyle="shade"}, \code{col} can be a vector of up to three elements, where \code{col[2]} and \code{col[3]} specify the colors for the center and the ends of the shading region. For \code{predstyle="dist"}, \code{col} can be a vector of up to four elements, \code{col[2]} for the tail regions, \code{col[3]} for the color above/below zero, \code{col[4]} for the opposite side (transparent by default), and \code{border[2]} for the color of the lines. Setting a color to \code{NA} makes it transparent. The \code{lty} argument can also be a vector of up to three elements, the first for specifying the line type of the individual CIs (\code{"solid"} by default), the second for the line type of the prediction interval (\code{"dotted"} by default), the third for the line type of the horizontal lines that are automatically added to the plot (\code{"solid"} by default; set to \code{"blank"} to remove them). } \section{Additional Optional Arguments}{ There are some additional optional arguments that can be passed to the function via \code{...} (hence, they cannot be abbreviated): \describe{ \item{top}{single numeric value to specify the amount of space (in terms of number of rows) to leave empty at the top of the plot (e.g., for adding headers). The default is 3.} \item{annosym}{vector of length 3 to select the left bracket, separation, and right bracket symbols for the annotations. The default is \code{c(" [", ", ", "]")}. Can also include a 4th element to adjust the look of the minus symbol, for example to use a proper minus sign (\ifelse{latex}{\mjseqn{-}}{\enc{−}{-}}) instead of a hyphen-minus (-). Can also include a 5th element that should be a space-like symbol (e.g., an \sQuote{en space}) that is used in place of numbers (only relevant when trying to line up numbers exactly). For example, \code{annosym=c(" [", ", ", "]", "\u2212", "\u2002")} would use a proper minus sign and an \sQuote{en space} for the annotations. The decimal point character can be adjusted via the \code{OutDec} argument of the \code{\link{options}} function before creating the plot (e.g., \code{options(OutDec=",")}).} \item{tabfig}{single numeric value (either a 1, 2, or 3) to set \code{annosym} automatically to a vector that will exactly align the numbers in the annotations when using a font that provides \sQuote{tabular figures}. Value 1 corresponds to using \code{"\u2212"} (a minus) and \code{"\u2002"} (an \sQuote{en space}) in \code{annoyym} as shown above. Value 2 corresponds to \code{"\u2013"} (an \sQuote{en dash}) and \code{"\u2002"} (an \sQuote{en space}). Value 3 corresponds to \code{"\u2212"} (a minus) and \code{"\u2007"} (a \sQuote{figure space}). The appropriate value for this argument depends on the font used. For example, for fonts Calibri and Carlito, 1 or 2 should work; for fonts Source Sans 3 and Palatino Linotype, 1, 2, and 3 should all work; for Computer/Latin Modern and Segoe UI, 2 should work; for Lato, Roboto, and Open Sans (and maybe Arial), 3 should work. Other fonts may work as well, but this is untested.} \item{textpos}{numeric vector of length 2 to specify the placement of the study labels and the annotations. The default is to use the horizontal limits of the plot region, i.e., the study labels to the right of \code{xlim[1]} and the annotations to the left of \code{xlim[2]}.} \item{rowadj}{numeric vector of length 3 to vertically adjust the position of the study labels, the annotations, and the extra information (if specified via \code{ilab}). This is useful for fine-tuning the position of text added with different positional alignments (i.e., argument \code{pos} in the \code{\link{text}} function).} } } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Lewis, S., & Clarke, M. (2001). Forest plots: Trying to see the wood and the trees. \emph{British Medical Journal}, \bold{322}(7300), 1479--1480. \verb{https://doi.org/10.1136/bmj.322.7300.1479} Riley, R. D., Higgins, J. P. T., & Deeks, J. J. (2011). Interpretation of random effects meta-analyses. \emph{British Medical Journal}, \bold{342}, d549. \verb{https://doi.org/10.1136/bmj.d549} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest}} for an overview of the various \code{forest} functions and \code{\link{forest.default}} for a function to draw forest plots without a polygon. \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which forest plots can be drawn. \code{\link{addpoly}} for a function to add polygons to forest plots. } \examples{ ### meta-analysis of the log risk ratios using a random-effects model res <- rma(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### default forest plot of the log risk ratios and pooled estimate forest(res) ### pooled estimate in row -1; studies in rows k=13 through 1; horizontal ### lines in rows 0 and k+1; two extra lines of space at the top for headings, ### and other annotations; headings in line k+2 op <- par(xpd=TRUE) text(x=-8.1, y=-1:16, -1:16, pos=4, cex=0.6, col="red") par(op) ### can also inspect defaults chosen defaults <- forest(res) defaults ### several forest plots illustrating the use of various arguments forest(res) forest(res, alim=c(-3,3)) forest(res, alim=c(-3,3), order="prec") forest(res, alim=c(-3,3), order="obs") forest(res, alim=c(-3,3), order=ablat) ### various ways to show the prediction interval forest(res, addpred=TRUE) forest(res, predstyle="polygon") forest(res, predstyle="polygon", col=c("black","white")) forest(res, predstyle="bar") forest(res, predstyle="shade") forest(res, predstyle="dist") ### specify the predictive distribution via the 'preddist' argument pred <- predict(res) dens <- list(x=seq(-3, 3, length.out=10000)) dens$y <- dnorm(dens$x, mean=coef(res), sd=pred$pi.se) forest(res, predstyle="dist", preddist=dens) ### adjust xlim values to see how that changes the plot defaults <- forest(res) defaults$xlim # this shows what xlim values were chosen by default par("usr")[1:2] # or use par("usr") to get the same values forest(res, xlim=c(-12,16)) forest(res, xlim=c(-18,10)) forest(res, xlim=c(-6,4)) ### illustrate the transf argument (note the asymmetric CI bounds) forest(res, transf=exp, at=0:7, xlim=c(-8,12), refline=1) ### illustrate the atransf argument (note that the CIs now look symmetric) forest(res, atransf=exp, at=log(c(0.05,0.25,1,4,20)), xlim=c(-8,7)) ### showweights argument forest(res, atransf=exp, at=log(c(0.05,0.25,1,4,20)), xlim=c(-8,8), order="prec", showweights=TRUE) ### illustrade shade argument forest(res, shade="zebra") # string forest(res, shade=year >= 1970) # logical vector forest(res, shade=c(1,5,10)) # numeric vector ### forest plot with extra annotations ### note: may need to widen the plotting device to avoid overlapping text forest(res, atransf=exp, at=log(c(0.05, 0.25, 1, 4)), xlim=c(-16,6), ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.85, header="Author(s) and Year") text(c(-8.75,-5.25), res$k+2.8, c("Vaccinated", "Control"), cex=0.85, font=2) ### mixed-effects model with absolute latitude as moderator res <- rma(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, mods = ~ ablat, data=dat.bcg, slab=paste(author, year, sep=", ")) ### forest plot with observed and fitted values forest(res, xlim=c(-9,5), at=log(c(0.05,0.25,1,4)), order="fit", ilab=ablat, ilab.xpos=-4.5, ilab.lab="Latitude", atransf=exp, header="Author(s) and Year") ### meta-analysis of the log risk ratios using a random-effects model res <- rma(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### for more complicated plots, the ylim and rows arguments may be useful forest(res) forest(res, ylim=c(-2, 16)) # the default forest(res, ylim=c(-2, 20)) # extra space in plot forest(res, ylim=c(-2, 20), rows=c(17:15, 12:6, 3:1)) # set positions ### forest plot with subgrouping of studies ### note: may need to widen plotting device to avoid overlapping text tmp <- forest(res, xlim=c(-16, 6), at=log(c(0.05, 0.25, 1, 4)), atransf=exp, ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.85, ylim=c(-2, 21), order=alloc, rows=c(1:2,5:11,14:17), header="Author(s) and Year", shade=c(3,12,18)) op <- par(cex=tmp$cex) text(c(-8.75,-5.25), tmp$ylim[2]-0.2, c("Vaccinated", "Control"), font=2) text(-16, c(18,12,3), c("Systematic Allocation", "Random Allocation", "Alternate Allocation"), font=4, pos=4) par(op) ### see also the addpoly.rma function for an example where summaries ### for the three subgroups are added to such a forest plot ### illustrate the efac argument forest(res) forest(res, efac=c(0,1,1)) # no vertical lines at the end of the CIs ### illustrate use of the olim argument with a meta-analysis of raw proportions ### (data from Pritz, 1997); without olim=c(0,1), some of the CIs would have upper ### bounds larger than 1 dat <- escalc(measure="PR", xi=xi, ni=ni, data=dat.pritz1997) res <- rma(yi, vi, data=dat, slab=paste0(study, ") ", authors)) forest(res, xlim=c(-0.8,1.6), alim=c(0,1), psize=1, refline=coef(res), olim=c(0,1)) ### an example of a forest plot where the data have a multilevel structure and ### we want to reflect this by grouping together estimates from the same cluster dat <- dat.konstantopoulos2011 res <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat, slab=paste0("District ", district, ", School: ", school)) dd <- c(0,diff(dat$district)) dd[dd > 0] <- 1 rows <- (1:res$k) + cumsum(dd) op <- par(tck=-0.01, mgp = c(1.6,0.2,0), mar=c(3,8,1,6)) forest(res, cex=0.5, rows=rows, ylim=c(-2,max(rows)+3)) abline(h = rows[c(1,diff(rows)) == 2] - 1, lty="dotted") par(op) ### another approach where clusters are shaded in a zebra style forest(res, cex=0.6, shade=as.numeric(factor(dat$district)) \%\% 2 != 0) } \keyword{hplot} metafor/man/cumul.Rd0000644000176200001440000001564515173343621014116 0ustar liggesusers\name{cumul} \alias{cumul} \alias{cumul.rma.uni} \alias{cumul.rma.mh} \alias{cumul.rma.peto} \title{Cumulative Meta-Analysis for 'rma' Objects} \description{ Function to carry out a \sQuote{cumulative meta-analysis}, by repeatedly fitting the specified model adding one study at a time. \loadmathjax } \usage{ cumul(x, \dots) \method{cumul}{rma.uni}(x, order, digits, transf, targs, collapse=FALSE, progbar=FALSE, \dots) \method{cumul}{rma.mh}(x, order, digits, transf, targs, collapse=FALSE, progbar=FALSE, \dots) \method{cumul}{rma.peto}(x, order, digits, transf, targs, collapse=FALSE, progbar=FALSE, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}, \code{"rma.mh"}, or \code{"rma.peto"}.} \item{order}{optional argument to specify a variable based on which the studies will be ordered for the cumulative meta-analysis.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{transf}{optional argument to specify a function to transform the model coefficients and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{collapse}{logical to specify whether studies with the same value of the \code{order} variable should be added simultaneously (the default is \code{FALSE}).} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ For \code{"rma.uni"} objects, the model specified via \code{x} must be a model without moderators (i.e., either an equal- or a random-effects model). If argument \code{order} is not specified, the studies are added according to their order in the original dataset. When a variable is specified for \code{order}, the variable is assumed to be of the same length as the original dataset that was used in the model fitting (and if the \code{data} argument was used in the original model fit, then the variable will be searched for within this data frame first). Any subsetting and removal of studies with missing values that was applied during the model fitting is also automatically applied to the variable specified via the \code{order} argument. By default, studies are added one at a time. However, if a variable is specified for the \code{order} argument and \code{collapse=TRUE}, then studies with the same value of the \code{order} variable are added simultaneously. } \value{ An object of class \code{c("list.rma","cumul.rma")}. The object is a list containing the following components: \item{k}{number of studies included in the analysis.} \item{estimate}{estimated (average) outcomes.} \item{se}{corresponding standard errors.} \item{zval}{corresponding test statistics.} \item{pval}{corresponding p-values.} \item{ci.lb}{lower bounds of the confidence intervals.} \item{ci.ub}{upper bounds of the confidence intervals.} \item{Q}{test statistics for the test of heterogeneity.} \item{Qp}{corresponding p-values.} \item{tau2}{estimated amount of heterogeneity (only for random-effects models).} \item{I2}{values of \mjseqn{I^2}.} \item{H2}{values of \mjseqn{H^2}.} \item{order}{values of the \code{order} variable (if specified).} \item{\dots}{other arguments.} When the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}, then \code{zval} is called \code{tval} in the object that is returned by the function. The object is formatted and printed with the \code{\link[=print.list.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. A forest plot showing the results from the cumulative meta-analysis can be obtained with \code{\link[=forest.cumul.rma]{forest}}. Alternatively, \code{\link[=plot.cumul.rma]{plot}} can also be used to visualize the results. } \note{ When using the \code{transf} option, the transformation is applied to the estimated coefficients and the corresponding interval bounds. The standard errors are then set equal to \code{NA} and are omitted from the printed output. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Chalmers, T. C., & Lau, J. (1993). Meta-analytic stimulus for changes in clinical trials. \emph{Statistical Methods in Medical Research}, \bold{2}(2), 161--172. \verb{https://doi.org/10.1177/096228029300200204} Lau, J., Schmid, C. H., & Chalmers, T. C. (1995). Cumulative meta-analysis of clinical trials builds evidence for exemplary medical care. \emph{Journal of Clinical Epidemiology}, \bold{48}(1), 45--57. \verb{https://doi.org/10.1016/0895-4356(94)00106-z} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=forest.cumul.rma]{forest}} for a function to draw cumulative forest plots and \code{\link[=plot.cumul.rma]{plot}} for a different visualization of the cumulative results. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0(author, ", ", year)) ### fit random-effects model res <- rma(yi, vi, data=dat, digits=3) ### cumulative meta-analysis (in the order of publication year) cumul(res, order=year) cumul(res, order=year, transf=exp) ### add studies with the same publication year simultaneously cumul(res, order=year, transf=exp, collapse=TRUE) ### meta-analysis of the (log) risk ratios using the Mantel-Haenszel method res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0(author, ", ", year), digits=3) ### cumulative meta-analysis cumul(res, order=year) cumul(res, order=year, transf=exp) ### add studies with the same publication year simultaneously cumul(res, order=year, transf=exp, collapse=TRUE) ### meta-analysis of the (log) odds ratios using Peto's method res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0(author, ", ", year), digits=3) ### cumulative meta-analysis cumul(res, order=year) cumul(res, order=year, transf=exp) ### add studies with the same publication year simultaneously cumul(res, order=year, transf=exp, collapse=TRUE) ### make the first log risk ratio missing and fit the model without study 2; ### then the variable specified via 'order' should still be of the same length ### as the original dataset; subsetting and removal of studies with missing ### values is automatically done by the cumul() function dat$yi[1] <- NA res <- rma(yi, vi, data=dat, subset=-2, digits=3) cumul(res, transf=exp, order=year) } \keyword{methods} metafor/man/matreg.Rd0000644000176200001440000003574315173343621014251 0ustar liggesusers\name{matreg} \alias{matreg} \title{Fit Regression Models based on a Correlation and Covariance Matrix} \description{ Function to fit regression models based on a correlation and covariance matrix. \loadmathjax } \usage{ matreg(y, x, R, n, V, cov=FALSE, means, ztor=FALSE, nearpd=FALSE, level=95, digits, \dots) } \arguments{ \item{y}{model formula or the index (given as a number) or name (given as a character string) of the outcome variable.} \item{x}{indices (given as a numeric vector) or names (given as a character vector) of the predictor variables. Ignored when \code{y} is a formula.} \item{R}{correlation or covariance matrix (or only the lower triangular part including the diagonal).} \item{n}{sample size based on which the elements in the correlation/covariance matrix were computed.} \item{V}{variance-covariance matrix of the lower triangular elements of the correlation/covariance matrix. Either \code{V} or \code{n} should be specified, not both. See \sQuote{Details}.} \item{cov}{logical to specify whether \code{R} is a covariance matrix (the default is \code{FALSE}).} \item{means}{optional vector to specify the means of the variables (only relevant when \code{cov=TRUE}).} \item{ztor}{logical to specify whether \code{R} is a matrix of r-to-z transformed correlations and hence should be back-transformed to raw correlations (the default is \code{FALSE}). See \sQuote{Details}.} \item{nearpd}{logical to specify whether the \code{\link[Matrix]{nearPD}} function from the \href{https://cran.r-project.org/package=Matrix}{Matrix} package should be used when the \mjeqn{R_{x,x}}{R[x,x]} matrix cannot be inverted. See \sQuote{Note}.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} \item{\dots}{other arguments.} } \details{ Let \mjseqn{R} be a \mjeqn{p \times p}{pxp} correlation or covariance matrix. Let \mjseqn{y} denote the row/column of the outcome variable and \mjseqn{x} the row(s)/column(s) of the predictor variable(s) in this matrix. Let \mjseqn{m} denote the length of \mjseqn{x} (i.e., the number of predictors). Let \mjeqn{R_{x,x}}{R[x,x]} and \mjeqn{R_{x,y}}{R[x,y]} denote the corresponding submatrices of \mjseqn{R}. Then \mjdeqn{b = R_{x,x}^{-1} R_{x,y}}{b = R[x,x]^(-1) R[x,y]} yields the standardized or raw regression coefficients (depending on whether \mjseqn{R} is a correlation or covariance matrix, respectively) when regressing the outcome variable on the predictor variable(s). The \code{y} and \code{x} variables can be specified as character vectors (assuming that the matrix specified via \code{R} has corresponding row/column names) or as indices. One can also specify a model formula via argument \code{y}, giving the name of the outcome variable on the left-hand side and the name(s) of the predictor(s) on the right-hand side. \subsection{Regular R Matrix}{ The \mjseqn{R} matrix may be computed based on a single sample of \mjseqn{n} subjects. In this case, one should specify the sample size via argument \code{n}. The variance-covariance matrix of the (standardized) regression coefficients is then given by \mjeqn{\text{Var}[b] = \hat{\sigma}^2 \times R_{x,x}^{-1}}{Var[b] = s^2 * R[x,x]^(-1)}, where \mjeqn{\hat{\sigma}^2 = (1 - b'R_{x,y}) / \text{df}}{s^2 = (1 - b'R[x,y]) / df} is the estimated error variance and \mjeqn{\text{df}}{df} denotes the residual degrees of freedom (which are \mjseqn{n-m-1} when \mjseqn{R} is a covariance matrix and \mjseqn{n-m} when \mjseqn{R} is a correlation matrix). The standard errors are then given by the square root of the diagonal elements of \mjeqn{\text{Var}[b]}{Var[b]}. Test statistics (in this case, t-statistics) and the corresponding p-values can then be computed as in a regular regression analysis. When \mjseqn{R} is a covariance matrix, one should set \code{cov=TRUE} and specify the means of the \mjseqn{p} variables in the \mjseqn{R} matrix via argument \code{means} to obtain raw regression coefficients including the intercept and corresponding standard errors (when \code{means} is not specified, then the intercept estimate will be \code{NA}). } \subsection{Meta-Analytic R Matrix}{ Alternatively, \mjseqn{R} may be the result of a meta-analysis of correlation coefficients. In this case, the elements in \mjseqn{R} are pooled correlation coefficients and the variance-covariance matrix of these pooled coefficients should be specified via argument \code{V}. The order of elements in \code{V} should correspond to the order of elements in the lower triangular part of \mjseqn{R} column-wise. For example, if \mjseqn{R} is a \mjeqn{4 \times 4}{4x4} matrix\ifelse{text}{,}{ of the form: \mjtdeqn{\left[ \begin{array}{cccc} 1 & & & \\\ r_{21} & 1 & & \\\ r_{31} & r_{32} & 1 & \\\ r_{41} & r_{42} & r_{43} & 1 \end{array} \right]}{\begin{bmatrix} 1 & & & \\\\\ r_{21} & 1 & & \\\\\ r_{31} & r_{32} & 1 & \\\\\ r_{41} & r_{42} & r_{43} & 1 \end{bmatrix}}{}} then the elements are \mjseqn{r_{21}}, \mjseqn{r_{31}}, \mjseqn{r_{41}}, \mjseqn{r_{32}}, \mjseqn{r_{42}}, and \mjseqn{r_{43}} and hence \code{V} should be a \mjeqn{6 \times 6}{6x6} variance-covariance matrix of these elements in this order. The standardized regression coefficients are still computed as described above, but the variance-covariance matrix of the standardized regression coefficients (i.e., \mjeqn{\text{Var}[b]}{Var[b]}) is then computed as a function of \code{V} as described in Becker (1992) using the multivariate delta method. The standard errors are then again given by the square root of the diagonal elements of \mjeqn{\text{Var}[b]}{Var[b]}. Test statistics (in this case, z-statistics) and the corresponding p-values can then be computed in the usual manner. In case \mjseqn{R} is the result of a meta-analysis of Fisher r-to-z transformed correlation coefficients (and hence \code{V} is then the corresponding variance-covariance matrix of these pooled transformed coefficients), one should set argument \code{ztor=TRUE}, so that the appropriate back-transformation is then applied to \code{R} (and \code{V}) within the function before the standardized regression coefficients will be computed. Finally, \mjseqn{R} may be a covariance matrix based on a meta-analysis (e.g., the estimated variance-covariance matrix of the random effects in a multivariate model). In this case, one should set \code{cov=TRUE} and \code{V} should again be the variance-covariance matrix of the elements in \mjseqn{R}, but now including the diagonal. Hence, if \mjseqn{R} is a \mjeqn{4 \times 4}{4x4} matrix\ifelse{text}{,}{ of the form: \mjtdeqn{\left[ \begin{array}{cccc} \tau_1^2 & & & \\\ \tau_{21} & \tau_2^2 & & \\\ \tau_{31} & \tau_{32} & \tau_3^2 & \\\ \tau_{41} & \tau_{42} & \tau_{43} & \tau_4^2 \end{array} \right]}{\begin{bmatrix} \tau_1^2 & & & \\\\\ \tau_{21} & \tau_2^2 & & \\\\\ \tau_{31} & \tau_{32} & \tau_3^2 & \\\\\ \tau_{41} & \tau_{42} & \tau_{43} & \tau_4^2 \end{bmatrix}}{}} then the elements are \mjseqn{\tau^2_1}, \mjseqn{\tau_{21}}, \mjseqn{\tau_{31}}, \mjseqn{\tau_{41}}, \mjseqn{\tau^2_2}, \mjseqn{\tau_{32}}, \mjseqn{\tau_{42}}, \mjseqn{\tau^2_3}, \mjseqn{\tau_{43}}, and \mjseqn{\tau^2_4}, and hence \code{V} should be a \mjeqn{10 \times 10}{10x10} variance-covariance matrix of these elements in this order. Argument \code{means} can then again be used to specify the means of the variables. } } \value{ An object of class \code{"matreg"}. The object is a list containing the following components: \item{tab}{a data frame with the estimated (standardized) regression coefficients, standard errors, test statistics, degrees of freedom (only for t-tests), p-values, and lower/upper confidence interval bounds.} \item{vb}{the variance-covariance matrix of the estimated model coefficients.} \item{\dots}{some additional elements/values.} The results are formatted and printed with the \code{\link[=print.matreg]{print}} function. Extractor functions include \code{\link[=coef.matreg]{coef}}, \code{\link[=vcov.matreg]{vcov}}, \code{\link[=se.default]{se}}, \code{\link[=sigma.matreg]{sigma}}, \code{\link[=confint.matreg]{confint}}, \code{\link[=logLik.matreg]{logLik}}, \code{\link[=deviance]{deviance}}, \code{\link[=AIC.matreg]{AIC}}, and \code{\link[=BIC.matreg]{BIC}} (some of these only work under the \sQuote{Regular \mjseqn{R} Matrix} case). } \note{ Only the lower triangular part of \code{R} (and \code{V} if it is specified) is used in the computations. If \mjeqn{R_{x,x}}{R[x,x]} is not invertible, an error will be issued. In this case, one can set argument \code{nearpd=TRUE}, in which case the \code{\link[Matrix]{nearPD}} function from the \href{https://cran.r-project.org/package=Matrix}{Matrix} package will be used to find the nearest positive semi-definite matrix, which should be invertible. The results should be treated with caution when this is done. When \mjseqn{R} is a covariance matrix with \code{V} and \code{means} specified, the means are treated as known constants when estimating the standard error of the intercept. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Becker, B. J. (1992). Using results from replicated studies to estimate linear models. \emph{Journal of Educational Statistics}, \bold{17}(4), 341--362. \verb{https://doi.org/10.3102/10769986017004341} Becker, B. J. (1995). Corrections to "Using results from replicated studies to estimate linear models". \emph{Journal of Educational and Behavioral Statistics}, \bold{20}(1), 100--102. \verb{https://doi.org/10.3102/10769986020001100} Becker, B. J., & Aloe, A. (2019). Model-based meta-analysis and related approaches. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (3rd ed., pp. 339--363). New York: Russell Sage Foundation. } \seealso{ \code{\link{rma.mv}} for a function to meta-analyze multiple correlation coefficients that can be used to construct an \mjseqn{R} matrix. \code{\link{rcalc}} for a function to construct the variance-covariance matrix of dependent correlation coefficients. } \examples{ ############################################################################ ### first an example unrelated to meta-analysis, simply demonstrating that ### one can obtain the same results from lm() and matreg() ### fit a regression model with lm() to the 'mtcars' dataset res <- lm(mpg ~ hp + wt + am, data=mtcars) summary(res) ### covariance matrix of the dataset S <- cov(mtcars) ### fit the same regression model using matreg() res <- matreg(mpg ~ hp + wt + am, R=S, cov=TRUE, means=colMeans(mtcars), n=nrow(mtcars)) summary(res) ### specify the outcome and predictors as character vectors res <- matreg(y="mpg", x=c("hp","wt","am"), R=S, cov=TRUE, means=colMeans(mtcars), n=nrow(mtcars)) summary(res) ### specify the outcome and predictors as indices res <- matreg(y=1, x=c(4,6,9), R=S, cov=TRUE, means=colMeans(mtcars), n=nrow(mtcars)) summary(res) ### copy the 'mtcars' dataset to 'dat' and standardize all variables dat <- mtcars dat[] <- scale(dat) ### fit a regression model with lm() to obtain standardized regression coefficients ('betas') res <- lm(mpg ~ 0 + hp + wt + am, data=dat) summary(res) ### correlation matrix of the dataset R <- cor(mtcars) ### fit the same regression model using matreg() res <- matreg(y="mpg", x=c("hp","wt","am"), R=R, n=nrow(mtcars)) summary(res) ### note: the standard errors of the betas should not be used to construct CIs ### as they assume that the null hypothesis (H0: beta_j = 0) is true ### construct the var-cov matrix of correlations in R V <- rcalc(R, ni=nrow(mtcars))$V ### fit the same regression model using matreg() but now supply V res <- matreg(y="mpg", x=c("hp","wt","am"), R=R, V=V) summary(res) ### the standard errors computed in this way can now be used to construct ### CIs for the betas (here, the difference is relatively small) ############################################################################ ### copy data into 'dat' dat <- dat.craft2003 ### construct dataset and var-cov matrix of the correlations tmp <- rcalc(ri ~ var1 + var2 | study, ni=ni, data=dat) V <- tmp$V dat <- tmp$dat ### turn var1.var2 into a factor with the desired order of levels dat$var1.var2 <- factor(dat$var1.var2, levels=c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf")) ### multivariate random-effects model res <- rma.mv(yi, V, mods = ~ 0 + var1.var2, random = ~ var1.var2 | study, struct="UN", data=dat) res ### restructure estimated mean correlations into a 4x4 matrix R <- vec2mat(coef(res)) rownames(R) <- colnames(R) <- c("perf", "acog", "asom", "conf") round(R, digits=3) ### check that order in vcov(res) corresponds to order in R round(vcov(res), digits=4) ### fit regression model with 'perf' as outcome and 'acog', 'asom', and 'conf' as predictors matreg(1, 2:4, R=R, V=vcov(res)) ### can also specify variable names matreg("perf", c("acog","asom","conf"), R=R, V=vcov(res)) \dontrun{ ### repeat the above but with r-to-z transformed correlations dat <- dat.craft2003 tmp <- rcalc(ri ~ var1 + var2 | study, ni=ni, data=dat, rtoz=TRUE) V <- tmp$V dat <- tmp$dat dat$var1.var2 <- factor(dat$var1.var2, levels=c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf")) res <- rma.mv(yi, V, mods = ~ 0 + var1.var2, random = ~ var1.var2 | study, struct="UN", data=dat) R <- vec2mat(coef(res)) rownames(R) <- colnames(R) <- c("perf", "acog", "asom", "conf") matreg(1, 2:4, R=R, V=vcov(res), ztor=TRUE) } ############################################################################ ### a different example based on van Houwelingen et al. (2002) ### create dataset in long format dat.long <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.colditz1994, append=FALSE) dat.long <- escalc(measure="PLO", xi=out1, mi=out2, data=dat.long) dat.long$group <- factor(dat.long$group, levels=c(2,1), labels=c("con","exp")) dat.long ### fit bivariate model res <- rma.mv(yi, vi, mods = ~ 0 + group, random = ~ group | study, struct="UN", data=dat.long, method="ML") res ### regression of log(odds)_exp on log(odds)_con matreg(y=2, x=1, R=res$G, cov=TRUE, means=coef(res), n=res$g.levels.comb.k) ### but the SE of the 'con' coefficient is not computed correctly, since we treat res$G above as if ### it was a var-cov matrix computed from raw data based on res$g.levels.comb.k (= 13) data points ### fit bivariate model and get the var-cov matrix of the estimates in res$G res <- rma.mv(yi, vi, mods = ~ 0 + group, random = ~ group | study, struct="UN", data=dat.long, method="ML", cvvc="varcov", control=list(nearpd=TRUE)) ### now use res$vvc as the var-cov matrix of the estimates in res$G matreg(y=2, x=1, R=res$G, cov=TRUE, means=coef(res), V=res$vvc) ############################################################################ } \keyword{models} metafor/man/methods.list.rma.Rd0000644000176200001440000000343015173343621016151 0ustar liggesusers\name{methods.list.rma} \alias{methods.list.rma} \alias{as.data.frame.list.rma} \alias{as.matrix.list.rma} \alias{[.list.rma} \alias{head.list.rma} \alias{tail.list.rma} \alias{$<-.list.rma} \title{Methods for 'list.rma' Objects} \description{ Methods for objects of class \code{"list.rma"}. } \usage{ \method{as.data.frame}{list.rma}(x, \dots) \method{as.matrix}{list.rma}(x, \dots) \method{[}{list.rma}(x, i, \dots) \method{head}{list.rma}(x, n=6L, \dots) \method{tail}{list.rma}(x, n=6L, \dots) \method{$}{list.rma}(x, name) <- value } \arguments{ \item{x}{an object of class \code{"list.rma"}.} \item{\dots}{other arguments.} } \note{ For the \code{`[`} method, any variables specified as part of the \code{i} argument will be searched for within object \code{x} first (see \sQuote{Examples}). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### copy data into 'dat' and examine data dat <- dat.viechtbauer2021 ### calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=xTi, n1i=nTi, ci=xCi, n2i=nCi, add=1/2, to="all", data=dat) ### fit mixed-effects meta-regression model res <- rma(yi, vi, mods = ~ dose, data=dat) ### get studentized residuals sav <- rstudent(res) sav ### studies with studentized residuals larger than +-1.96 sav[abs(sav$z) > 1.96,] ### variables specified are automatically searched for within the object itself sav[abs(z) > 1.96,] ### note: this behavior is specific to 'rma.list' objects; this doesn't work for regular data frames } \keyword{internal} metafor/man/influence.rma.uni.Rd0000644000176200001440000002073115173343621016301 0ustar liggesusers\name{influence.rma.uni} \alias{influence} \alias{cooks.distance} \alias{dfbetas} \alias{hatvalues} \alias{influence.rma.uni} \alias{print.infl.rma.uni} \alias{cooks.distance.rma.uni} \alias{dfbetas.rma.uni} \alias{hatvalues.rma.uni} \title{Model Diagnostics for 'rma.uni' Objects} \description{ Functions to compute various outlier and influential study diagnostics (some of which indicate the influence of deleting one study at a time on the model fit or the fitted/residual values) for objects of class \code{"rma.uni"}. For the corresponding documentation for \code{"rma.mv"} objects, see \code{\link[=influence.rma.mv]{influence}}. \loadmathjax } \usage{ \method{influence}{rma.uni}(model, digits, progbar=FALSE, \dots) \method{print}{infl.rma.uni}(x, digits=x$digits, infonly=FALSE, \dots) \method{cooks.distance}{rma.uni}(model, progbar=FALSE, \dots) \method{dfbetas}{rma.uni}(model, progbar=FALSE, \dots) \method{hatvalues}{rma.uni}(model, type="diagonal", \dots) } \arguments{ \item{model}{an object of class \code{"rma.uni"}.} \item{x}{an object of class \code{"infl.rma.uni"} (for \code{print}).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{FALSE}).} \item{infonly}{logical to specify whether only the influential cases should be printed (the default is \code{FALSE}).} \item{type}{character string to specify whether only the diagonal of the hat matrix (\code{"diagonal"}) or the entire hat matrix (\code{"matrix"}) should be returned.} \item{\dots}{other arguments.} } \details{ The term \sQuote{case} below refers to a particular row from the dataset used in the model fitting (which is typically synonymous with \sQuote{study}). The \code{influence} function calculates the following leave-one-out diagnostics for each case: \itemize{ \item externally standardized residual, \item DFFITS value, \item Cook's distance, \item covariance ratio, \item the leave-one-out amount of (residual) heterogeneity, \item the leave-one-out test statistic of the test for (residual) heterogeneity, \item DFBETAS value(s). } The diagonal elements of the hat matrix and the weights (in \%) given to the observed effect sizes or outcomes during the model fitting are also provided (except for their scaling, the hat values and weights are the same for models without moderators, but will differ when moderators are included). For details on externally standardized residuals, see \code{\link[=rstudent.rma.uni]{rstudent}}. The DFFITS value essentially indicates how many standard deviations the predicted (average) effect or outcome for the \mjeqn{i\text{th}}{ith} case changes after excluding the \mjeqn{i\text{th}}{ith} case from the model fitting. Cook's distance can be interpreted as the Mahalanobis distance between the entire set of predicted values once with the \mjeqn{i\text{th}}{ith} case included and once with the \mjeqn{i\text{th}}{ith} case excluded from the model fitting. The covariance ratio is defined as the determinant of the variance-covariance matrix of the parameter estimates based on the dataset with the \mjeqn{i\text{th}}{ith} case removed divided by the determinant of the variance-covariance matrix of the parameter estimates based on the complete dataset. A value below 1 therefore indicates that removal of the \mjeqn{i\text{th}}{ith} case yields more precise estimates of the model coefficients. The leave-one-out amount of (residual) heterogeneity is the estimated value of \mjseqn{\tau^2} based on the dataset with the \mjeqn{i\text{th}}{ith} case removed. This is always equal to 0 for equal-effects models. Similarly, the leave-one-out test statistic of the test for (residual) heterogeneity is the value of the test statistic of the test for (residual) heterogeneity calculated based on the dataset with the \mjeqn{i\text{th}}{ith} case removed. Finally, the DFBETAS value(s) essentially indicate(s) how many standard deviations the estimated coefficient(s) change(s) after excluding the \mjeqn{i\text{th}}{ith} case from the model fitting. A case may be considered to be \sQuote{influential} if at least one of the following is true: \itemize{ \item The absolute DFFITS value is larger than \mjeqn{3 \times \sqrt{p/(k-p)}}{3*\sqrt(p/(k-p))}, where \mjseqn{p} is the number of model coefficients and \mjseqn{k} the number of cases. \item The lower tail area of a chi-square distribution with \mjseqn{p} degrees of freedom cut off by the Cook's distance is larger than 50\%. \item The hat value is larger than \mjeqn{3 \times (p/k)}{3*(p/k)}. \item Any DFBETAS value is larger than \mjseqn{1}. } Cases which are considered influential with respect to any of these measures are marked with an asterisk. Note that the chosen cut-offs are (somewhat) arbitrary. Substantively informed judgment should always be used when examining the influence of each case on the results. } \value{ An object of class \code{"infl.rma.uni"}, which is a list containing the following components: \item{inf}{an element of class \code{"list.rma"} with the externally standardized residuals, DFFITS values, Cook's distances, covariance ratios, leave-one-out \mjseqn{\tau^2} estimates, leave-one-out (residual) heterogeneity test statistics, hat values, weights, and an indicator whether a case is influential.} \item{dfbs}{an element of class \code{"list.rma"} with the DFBETAS values.} \item{\dots}{some additional elements/values.} The results are printed with \code{print} and plotted with \code{\link[=plot.infl.rma.uni]{plot}}. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. } \note{ Leave-one-out diagnostics are calculated by refitting the model \mjseqn{k} times. Depending on how large \mjseqn{k} is, it may take a few moments to finish the calculations. There are shortcuts for calculating at least some of these values without refitting the model each time, but these are currently not implemented (and may not exist for all of the leave-one-out diagnostics calculated by the function). It may not be possible to fit the model after deletion of the \mjeqn{i\text{th}}{ith} case from the dataset. This will result in \code{NA} values for that case. Certain relationships between the leave-one-out diagnostics and the (internally or externally) standardized residuals (Belsley, Kuh, & Welsch, 1980; Cook & Weisberg, 1982) no longer hold for meta-analytic models. Maybe there are other relationships. These remain to be determined. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Belsley, D. A., Kuh, E., & Welsch, R. E. (1980). \emph{Regression diagnostics}. New York: Wiley. Cook, R. D., & Weisberg, S. (1982). \emph{Residuals and influence in regression}. London: Chapman and Hall. Hedges, L. V., & Olkin, I. (1985). \emph{Statistical methods for meta-analysis}. San Diego, CA: Academic Press. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} Viechtbauer, W., & Cheung, M. W.-L. (2010). Outlier and influence diagnostics for meta-analysis. \emph{Research Synthesis Methods}, \bold{1}(2), 112--125. \verb{https://doi.org/10.1002/jrsm.11} } \seealso{ \code{\link[=plot.infl.rma.uni]{plot}} for a method to plot the outlier and influential case diagnostics. \code{\link[=rstudent.rma.uni]{rstudent}} for externally standardized residuals and \code{\link[=weights.rma.uni]{weights}} for model fitting weights. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### compute the diagnostics inf <- influence(res) inf ### plot the values plot(inf) ### compute Cook's distances, DFBETAS values, and hat values cooks.distance(res) dfbetas(res) hatvalues(res) } \keyword{models} metafor/man/robust.Rd0000644000176200001440000003033415173343621014277 0ustar liggesusers\name{robust} \alias{robust} \alias{robust.rma.uni} \alias{robust.rma.mv} \title{Cluster-Robust Tests and Confidence Intervals for 'rma' Objects} \description{ Function to obtain cluster-robust tests and confidence intervals (also known as robust variance estimation) of the model coefficients for objects of class \code{"rma"}. \loadmathjax } \usage{ robust(x, cluster, \dots) \method{robust}{rma.uni}(x, cluster, adjust=TRUE, clubSandwich=FALSE, digits, \dots) \method{robust}{rma.mv}(x, cluster, adjust=TRUE, clubSandwich=FALSE, digits, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"} or \code{"rma.mv"}.} \item{cluster}{vector to specify the clustering variable to use for constructing the sandwich estimator of the variance-covariance matrix.} \item{adjust}{logical to specify whether a small-sample correction should be applied to the variance-covariance matrix.} \item{clubSandwich}{logical to specify whether the \href{https://cran.r-project.org/package=clubSandwich}{clubSandwich} package should be used to obtain the cluster-robust tests and confidence intervals.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{\dots}{other arguments.} } \details{ The function constructs a cluster-robust estimate of the variance-covariance matrix of the model coefficients based on a sandwich-type estimator and then computes tests and confidence intervals of the model coefficients. This function will often be part of a general workflow for meta-analyses involving complex dependency structures as described \link[=misc-recs]{here}. By default, tests of individual coefficients and confidence intervals are based on a t-distribution with \mjseqn{n-p} degrees of freedom, while the omnibus test uses an F-distribution with \mjseqn{m} and \mjseqn{n-p} degrees of freedom, where \mjseqn{n} is the number of clusters, \mjseqn{p} denotes the total number of model coefficients (including the intercept if it is present), and \mjseqn{m} denotes the number of coefficients tested by the omnibus test. This is sometimes called the \sQuote{residual} method for approximating the (denominator) degrees of freedom. When \code{adjust=TRUE} (the default), the cluster-robust estimate of the variance-covariance matrix is multiplied by the factor \mjseqn{n/(n-p)}, which serves as a small-sample adjustment that tends to improve the performance of the method when the number of clusters is small. This is sometimes called the \sQuote{CR1} adjustment/estimator (in contrast to \sQuote{CR0} when \code{adjust=FALSE}). For an even better small-sample adjustment, one can set \code{clubSandwich=TRUE} in which case the \href{https://cran.r-project.org/package=clubSandwich}{clubSandwich} package is used to obtain the cluster-robust tests and confidence intervals. The variance-covariance matrix of the model coefficients is then estimated using the \sQuote{bias-reduced linearization} adjustment proposed by Bell and McCaffrey (2002) and further developed in Tipton (2015) and Pustejovsky and Tipton (2018). This is sometimes called the \sQuote{CR2} adjustment/estimator. The degrees of freedom of the t-tests are then estimated using a Satterthwaite approximation. F-tests are then based on an approximate Hotelling's T-squared reference distribution, with denominator degrees of freedom estimated using a method by Zhang (2012, 2013), as further described in Tipton and Pustejovky (2015). } \value{ An object of class \code{"robust.rma"}. The object is a list containing the following components: \item{beta}{estimated coefficients of the model.} \item{se}{robust standard errors of the coefficients.} \item{zval}{test statistics of the coefficients.} \item{pval}{corresponding p-values.} \item{ci.lb}{lower bound of the confidence intervals for the coefficients.} \item{ci.ub}{upper bound of the confidence intervals for the coefficients.} \item{vb}{robust variance-covariance matrix of the estimated coefficients.} \item{QM}{test statistic of the omnibus test of moderators.} \item{QMp}{corresponding p-value.} \item{\dots}{some additional elements/values.} The results are formatted and printed with the \code{\link{print.rma.uni}} and \code{\link{print.rma.mv}} functions (depending on the type of model). Predicted/fitted values based on \code{"robust.rma"} objects can be obtained with the \code{\link[=predict.rma]{predict}} function. Tests for sets of model coefficients or linear combinations thereof can be obtained with the \code{\link[=anova.rma]{anova}} function. } \note{ The variable specified via \code{cluster} is assumed to be of the same length as the data originally passed to the \code{rma.uni} or \code{rma.mv} functions (and if the \code{data} argument was used in the original model fit, then the variable will be searched for within this data frame first). Any subsetting and removal of studies with missing values that was applied during the model fitting is also automatically applied to the variable specified via the \code{cluster} argument. The idea of the robust (sandwich-type) estimator for models with unspecified heteroscedasticity can be traced back to Eicker (1967), Huber (1967), and White (1980, 1984). Hence, the method in general is often referred to as the Eicker-Huber-White method. Some small-sample improvements to the method are described by MacKinnon and White (1985). The extension to the cluster-robust estimator can be found in Froot (1989) and Williams (2000), which is also related to the GEE approach by Liang and Zeger (1986). Cameron and Miller (2015) provide an extensive overview of cluster-robust methods. Sidik and Jonkman (2005, 2006) introduced robust methods in the meta-analytic context for standard random/mixed-effects models. The use of cluster-robust methods for multivariate/multilevel meta-analytic models was introduced by Hedges, Tipton, and Johnson (2010). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Bell, R. M., & McCaffry, D. F. (2002). Bias reduction in standard errors for linear regression with multi-stage samples. \emph{Survey Methodology}, \bold{28}(2), 169--181. \verb{https://www150.statcan.gc.ca/n1/en/catalogue/12-001-X20020029058} Cameron, A. C., & Miller, D. L. (2015). A practitioner's guide to cluster-robust inference. \emph{Journal of Human Resources}, \bold{50}(2), 317--372. \verb{https://doi.org/10.3368/jhr.50.2.317} Eicker, F. (1967). Limit theorems for regressions with unequal and dependent errors. In L. M. LeCam & J. Neyman (Eds.), \emph{Proceedings of the Fifth Berkeley Symposium on Mathematical Statistics and Probability} (pp. 59--82). Berkeley: University of California Press. Froot, K. A. (1989). Consistent covariance matrix estimation with cross-sectional dependence and heteroskedasticity in financial data. \emph{Journal of Financial and Quantitative Analysis}, \bold{24}(3), 333--355. \verb{https://doi.org/10.2307/2330815} Hedges, L. V., Tipton, E., & Johnson, M. C. (2010). Robust variance estimation in meta-regression with dependent effect size estimates. \emph{Research Synthesis Methods}, \bold{1}(1), 39--65. \verb{https://doi.org/10.1002/jrsm.5} Huber, P. (1967). The behavior of maximum-likelihood estimates under nonstandard conditions. In L. M. LeCam & J. Neyman (Eds.), \emph{Proceedings of the Fifth Berkeley Symposium on Mathematical Statistics and Probability} (pp. 221--233). University of California Press. Liang, K. Y., & Zeger, S. L. (1986). Longitudinal data analysis using generalized linear models. \emph{Biometrika}, \bold{73}(1), 13--22. \verb{https://doi.org/10.1093/biomet/73.1.13} MacKinnon, J. G., & White, H. (1985). Some heteroskedasticity-consistent covariance matrix estimators with improved finite sample properties. \emph{Journal of Econometrics}, \bold{29}(3), 305--325. \verb{https://doi.org/10.1016/0304-4076(85)90158-7} Pustejovsky, J. E., & Tipton, E. (2018). Small-sample methods for cluster-robust variance estimation and hypothesis testing in fixed effects models. \emph{Journal of Business & Economic Statistics}, \bold{36}(4), 672--683. \verb{https://doi.org/10.1080/07350015.2016.1247004} Tipton, E. (2015). Small sample adjustments for robust variance estimation with meta-regression. \emph{Psychological Methods}, \bold{20}(3), 375--393. \verb{https://doi.org/10.1037/met0000011} Tipton, E., & Pustejovsky, J. E. (2015). Small-sample adjustments for tests of moderators and model fit using robust variance estimation in meta-regression. \emph{Journal of Educational and Behavioral Statistics}, \bold{40}(6), 604--634. \verb{https://doi.org/10.3102/1076998615606099} Sidik, K., & Jonkman, J. N. (2005). A note on variance estimation in random effects meta-regression. \emph{Journal of Biopharmaceutical Statistics}, \bold{15}(5), 823--838. \verb{https://doi.org/10.1081/BIP-200067915} Sidik, K., & Jonkman, J. N. (2006). Robust variance estimation for random effects meta-analysis. \emph{Computational Statistics & Data Analysis}, \bold{50}(12), 3681--3701. \verb{https://doi.org/10.1016/j.csda.2005.07.019} White, H. (1980). A heteroskedasticity-consistent covariance matrix estimator and a direct test for heteroskedasticity. \emph{Econometrica}, \bold{48}(4), 817--838. \verb{https://doi.org/10.2307/1912934} White, H. (1984). \emph{Asymptotic theory for econometricians}. Orlando, FL: Academic Press. Williams, R. L. (2000). A note on robust variance estimation for cluster-correlated data. \emph{Biometrics}, \bold{56}(2), 645--646. \verb{https://doi.org/10.1111/j.0006-341x.2000.00645.x} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Zhang, J.-T. (2012). An approximate Hotelling T2-test for heteroscedastic one-way MANOVA. \emph{Open Journal of Statistics}, \bold{2}(1), 1--11. \verb{https://doi.org/10.4236/ojs.2012.21001} Zhang, J.-T. (2013). Tests of linear hypotheses in the ANOVA under heteroscedasticity. \emph{International Journal of Advanced Statistics and Probability}, \bold{1}, 9--24. \verb{https://doi.org/10.14419/ijasp.v1i2.908} } \seealso{ \code{\link{rma.uni}} and \code{\link{rma.mv}} for functions to fit models for which cluster-robust tests and confidence intervals can be obtained. } \examples{ ############################################################################ ### copy data from Bangert-Drowns et al. (2004) into 'dat' dat <- dat.bangertdrowns2004 ### fit random-effects model res <- rma(yi, vi, data=dat) res ### use cluster-robust inference methods robust(res, cluster=id) ### use methods from the clubSandwich package robust(res, cluster=id, clubSandwich=TRUE) ### fit meta-regression model res <- rma(yi, vi, mods = ~ length, data=dat) res ### use cluster-robust inference methods robust(res, cluster=id) ### use methods from the clubSandwich package robust(res, cluster=id, clubSandwich=TRUE) ############################################################################ ### copy data from Konstantopoulos (2011) into 'dat' dat <- dat.konstantopoulos2011 ### fit multilevel random-effects model res <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat) res ### use cluster-robust inference methods robust(res, cluster=district) ### use methods from the clubSandwich package robust(res, cluster=district, clubSandwich=TRUE) ############################################################################ ### copy data from Berkey et al. (1998) into 'dat' dat <- dat.berkey1998 ### variables v1i and v2i correspond to the 2x2 var-cov matrices of the studies; ### so use these variables to construct the V matrix (note: since v1i and v2i are ### var-cov matrices and not correlation matrices, set vi=1 for all rows) V <- vcalc(vi=1, cluster=author, rvars=c(v1i, v2i), data=dat) ### fit multivariate model res <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat) res ### use cluster-robust inference methods robust(res, cluster=trial) ### use methods from the clubSandwich package robust(res, cluster=trial, clubSandwich=TRUE) ############################################################################ } \keyword{htest} metafor/man/ranktest.Rd0000644000176200001440000000740115173343621014613 0ustar liggesusers\name{ranktest} \alias{ranktest} \title{Rank Correlation Test for Funnel Plot Asymmetry} \description{ Function to carry out the rank correlation test for funnel plot asymmetry. } \usage{ ranktest(x, vi, sei, subset, data, digits, \dots) } \arguments{ \item{x}{a vector with the observed effect sizes or outcomes or an object of class \code{"rma"}.} \item{vi}{vector with the corresponding sampling variances (ignored if \code{x} is an object of class \code{"rma"}).} \item{sei}{vector with the corresponding standard errors (note: only one of the two, \code{vi} or \code{sei}, needs to be specified).} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be included in the test (ignored if \code{x} is an object of class \code{"rma"}).} \item{data}{optional data frame containing the variables given to the arguments above.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} \item{\dots}{other arguments.} } \details{ The function carries out the rank correlation test as described by Begg and Mazumdar (1994). The test can be used to examine whether the observed effect sizes or outcomes and the corresponding sampling variances are correlated. A high correlation would indicate that the funnel plot is asymmetric, which may be a result of publication bias. One can either pass a vector with the observed effect sizes or outcomes (via \code{x}) and the corresponding sampling variances via \code{vi} (or the standard errors via \code{sei}) to the function or an object of class \code{"rma"}. When passing a model object, the model must be a model without moderators (i.e., either an equal- or a random-effects model). } \value{ An object of class \code{"ranktest"}. The object is a list containing the following components: \item{tau}{the estimated value of Kendall's tau rank correlation coefficient.} \item{pval}{the corresponding p-value for the test that the true tau value is equal to zero.} The results are formatted and printed with the \code{\link[=print.ranktest]{print}} function. } \note{ The method does not depend on the model fitted. Therefore, regardless of the model passed to the function, the results of the rank test will always be the same. See \code{\link{regtest}} for tests of funnel plot asymmetry that are based on regression models and model dependent. The function makes use of the \code{\link{cor.test}} function with \code{method="kendall"}. If possible, an exact p-value is provided; otherwise, a large-sample approximation is used. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Begg, C. B., & Mazumdar, M. (1994). Operating characteristics of a rank correlation test for publication bias. \emph{Biometrics}, \bold{50}(4), 1088--1101. \verb{https://doi.org/10.2307/2533446} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{regtest}} for the regression test, \code{\link{trimfill}} for the trim and fill method, \code{\link{tes}} for the test of excess significance, \code{\link{fsn}} to compute the fail-safe N (file drawer analysis), and \code{\link{selmodel}} for selection models. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model res <- rma(yi, vi, data=dat) ### carry out the rank correlation test ranktest(res) ### can also pass the observed outcomes and corresponding sampling variances to the function ranktest(yi, vi, data=dat) } \keyword{htest} metafor/man/print.confint.rma.Rd0000644000176200001440000000271015173343621016327 0ustar liggesusers\name{print.confint.rma} \alias{print.confint.rma} \alias{print.list.confint.rma} \title{Print Methods for 'confint.rma' and 'list.confint.rma' Objects} \description{ Functions to print objects of class \code{"confint.rma"} and \code{"list.confint.rma"}. } \usage{ \method{print}{confint.rma}(x, digits=x$digits, \dots) \method{print}{list.confint.rma}(x, digits=x$digits, \dots) } \arguments{ \item{x}{an object of class \code{"confint.rma"} or \code{"list.confint.rma"} obtained with \code{\link[=confint.rma.uni]{confint}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{\dots}{other arguments.} } \details{ The output includes: \itemize{ \item estimate of the model coefficient or variance/correlation parameter \item lower bound of the confidence interval \item upper bound of the confidence interval } } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=confint.rma]{confint}} for the functions to create \code{confint.rma} and \code{list.confint.rma} objects. } \keyword{print} metafor/man/formatters.Rd0000644000176200001440000001433115173343621015146 0ustar liggesusers\name{formatters} \alias{formatters} \alias{fmtp} \alias{fmtp2} \alias{fmtx} \alias{fmtt} \title{Formatter Functions} \description{ Functions to format various types of outputs. \loadmathjax } \usage{ fmtp(p, digits=4, pname="", equal=FALSE, sep=FALSE, add0=FALSE, quote=FALSE) fmtp2(p, cutoff=c(0.001,0.06), pname="p", sep=TRUE, add0=FALSE, quote=FALSE) fmtx(x, digits=4, flag="", quote=FALSE, \dots) fmtt(val, tname, df, df1, df2, pval, digits=4, pname="p-val", format=1, sep=TRUE, quote=FALSE, call=FALSE, \dots) } \arguments{ \emph{Arguments for \code{fmtp} and \code{fmtp2}:} \item{p}{vector of p-values to be formatted.} \item{digits}{integer to specify the number of decimal places to which the values should be rounded. For \code{fmmt}, can be a vector of length 2, to specify the number of digits for the test statistic and the p-value, respectively.} \item{pname}{string to add as a prefix to the p-value (e.g., something like \code{"p-val"} or \code{"p"}).} \item{equal}{logical to specify whether an equal symbol should be shown before the p-value (when it is larger than the rounding cutoff).} \item{sep}{logical to specify whether a space should be added between \code{pname}, the equal/lesser symbol, and the p-value.} \item{add0}{logical to specify whether a 0 should be shown before the decimal point (for \code{fmtp}, this only applies when the p-value is below the rounding cutoff).} \item{quote}{logical to specify whether formatted strings should be quoted when printed.} \item{cutoff}{numeric vector giving the cutoff values.} \emph{Arguments specific for \code{fmtx}:} \item{x}{vector of numeric values to be formatted.} \item{flag}{a character string giving a format modifier as defined for \code{\link{formatC}}.} \emph{Arguments specific for \code{fmtt}:} \item{val}{test statistic value to be formatted.} \item{tname}{character string for the name of the test statistic.} \item{df}{optional value for the degrees of freedom of the test statistic.} \item{df1}{optional value for the numerator degrees of freedom of the test statistic.} \item{df2}{optional value for the denominator degrees of freedom of the test statistic.} \item{pval}{the p-value corresponding to the test statistic.} \item{format}{either \code{1} or \code{2} to denote whether the degrees of freedom should be given before the test statistic (in parentheses) or after the test statistic.} \item{call}{logical to specify whether the formatted test result should be returned as a call or not.} \item{\dots}{other arguments.} } \details{ The \code{fmtp} function takes one or multiple p-values as input and rounds them to the chosen number of digits. For p-values that are smaller than \code{10^(-digits)} (e.g., \code{0.0001} for \code{digits=4}), the value is shown to fall below this bound (e.g., \code{<.0001}). One can further customize the way the output of the values is formatted via the \code{pname}, \code{equal}, \code{sep}, \code{add0}, and \code{quote} arguments. The \code{fmtp2} function is an alternative function to format p-values, which yields output that essentially matches APA style guidelines. Values that fall below the first cutoff are printed as such (e.g., a p-value of .00002 would be printed as \code{p < .001}), values that fall in between the first and second cutoff are printed as exact p-values with the number of digits determined by the first cutoff (e.g., a p-value of .01723 would be printed as \code{p = .017}), and values falling above the second cutoff are printed as exact p-values with the number of digits determined by the second cutoff (e.g., a p-value of .08432 would be printed as \code{p = .08}). Note that the second cutoff is by default \code{.06} to show that p-values in the range of .051 and .054 are above .05. The \code{fmtx} function takes one or multiple numeric values as input and rounds them to the chosen number of digits, without using scientific notation and without dropping trailing zeros (using \code{\link{formatC}}). The \code{fmtt} function takes a single test statistic value as input (and, if applicable, its degrees of freedom via argument \code{df} or its numerator and denominator degrees of freedom via arguments \code{df1} and \code{df2}) and the corresponding p-value and formats it for printing. Two different formats are available (chosen via the \code{format} argument), one giving the degrees of freedom before the test statistic (in parentheses) and one after the test statistic. } \value{ A character vector with the formatted values. By default (i.e., when \code{quote=FALSE}), formatted strings are not quoted when printed. } \note{ The option in \code{fmtt} to return the formatted test result as a call can be useful when adding the output to a plot with \code{\link{text}} and one would like to use \code{\link{plotmath}} formatting for \code{tname}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ # examples for fmtp() fmtp(c(.0002, .00008), quote=TRUE, digits=4) fmtp(c(.0002, .00008), quote=TRUE, digits=4, equal=TRUE) fmtp(c(.0002, .00008), quote=TRUE, digits=4, equal=TRUE, sep=TRUE) fmtp(c(.0002, .00008), quote=TRUE, digits=4, equal=TRUE, sep=TRUE, add0=TRUE) # example for fmtp2() fmtp2(c(.0005, .001, .002, .0423, .0543, .0578, .0623, .5329), quote=TRUE) # examples for fmtx() fmtx(c(1.0002, 2.00008, 3.00004), digits=4) fmtx(c(-1, 1), digits=4) fmtx(c(-1, 1), digits=4, flag=" ") # examples for fmtt() fmtt(2.45, "z", pval=0.01429, digits=2) fmtt(3.45, "z", pval=0.00056, digits=2) fmtt(2.45, "t", df=23, pval=0.02232, digits=2) fmtt(3.45, "t", df=23, pval=0.00218, digits=2) fmtt(3.45, "t", df=23, pval=0.00218, digits=2, format=2) fmtt(46.23, "Q", df=29, pval=0.0226, digits=2) fmtt(46.23, "Q", df=29, pval=0.0226, digits=2, format=2) fmtt(8.75, "F", df1=2, df2=35, pval=0.00083, digits=c(2,3)) fmtt(8.75, "F", df1=2, df2=35, pval=0.00083, digits=c(2,3), format=2, pname="p") fmtt(8.75, "F", df1=2, df2=35, pval=0.00083, digits=c(2,3), format=2, pname="p", sep=FALSE) } \keyword{manip} metafor/man/confint.rma.Rd0000644000176200001440000004377415173343621015213 0ustar liggesusers\name{confint.rma} \alias{confint} \alias{confint.rma} \alias{confint.rma.uni} \alias{confint.rma.mh} \alias{confint.rma.peto} \alias{confint.rma.glmm} \alias{confint.rma.mv} \alias{confint.rma.uni.selmodel} \alias{confint.rma.ls} \title{Confidence Intervals for 'rma' Objects} \description{ Functions to compute confidence intervals for the model coefficients, variance components, and other parameters in meta-analytic models. \loadmathjax } \usage{ \method{confint}{rma.uni}(object, parm, level, fixed=FALSE, random=TRUE, type, digits, transf, targs, verbose=FALSE, control, \dots) \method{confint}{rma.mh}(object, parm, level, digits, transf, targs, \dots) \method{confint}{rma.peto}(object, parm, level, digits, transf, targs, \dots) \method{confint}{rma.glmm}(object, parm, level, digits, transf, targs, \dots) \method{confint}{rma.mv}(object, parm, level, fixed=FALSE, sigma2, tau2, rho, gamma2, phi, digits, transf, targs, verbose=FALSE, control, \dots) \method{confint}{rma.uni.selmodel}(object, parm, level, fixed=FALSE, tau2, delta, digits, transf, targs, verbose=FALSE, control, \dots) \method{confint}{rma.ls}(object, parm, level, fixed=FALSE, alpha, digits, transf, targs, verbose=FALSE, control, \dots) } \arguments{ \item{object}{an object of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}, \code{"rma.mv"}, \code{"rma.uni.selmodel"}, or \code{"rma.ls"}. The method is not (yet) implemented for objects of class \code{"rma.glmm"}.} \item{parm}{this argument is here for compatibility with the generic function \code{\link{confint}}, but is (currently) ignored.} \item{fixed}{logical to specify whether confidence intervals for the model coefficients should be returned.} \item{random}{logical to specify whether a confidence interval for the amount of (residual) heterogeneity should be returned.} \item{type}{optional character string to specify the method for computing the confidence interval for the amount of (residual) heterogeneity (either \code{"QP"}, \code{"GENQ"}, \code{"PL"}, or \code{"HT"}).} \item{sigma2}{integer to specify for which \mjseqn{\sigma^2} parameter a confidence interval should be obtained.} \item{tau2}{integer to specify for which \mjseqn{\tau^2} parameter a confidence interval should be obtained.} \item{rho}{integer to specify for which \mjseqn{\rho} parameter the confidence interval should be obtained.} \item{gamma2}{integer to specify for which \mjseqn{\gamma^2} parameter a confidence interval should be obtained.} \item{phi}{integer to specify for which \mjseqn{\phi} parameter a confidence interval should be obtained.} \item{delta}{integer to specify for which \mjseqn{\delta} parameter a confidence interval should be obtained.} \item{alpha}{integer to specify for which \mjseqn{\alpha} parameter a confidence interval should be obtained.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (see \link[=misc-options]{here} for details). If unspecified, the default is to take the value from the object.} \item{digits}{optional integer to specify the number of decimal places to which the results should be rounded. If unspecified, the default is to take the value from the object.} \item{transf}{optional argument to specify a function to transform the model coefficients and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{verbose}{logical to specify whether output should be generated on the progress of the iterative algorithms used to obtain the confidence intervals (the default is \code{FALSE}). See \sQuote{Details}.} \item{control}{list of control values for the iterative algorithms. If unspecified, default values are used. See \sQuote{Note}.} \item{\dots}{other arguments.} } \details{ Confidence intervals for the model coefficients can be obtained by setting \code{fixed=TRUE} and are simply the usual Wald-type intervals (which are also shown when printing the fitted object). Other parameter(s) for which confidence intervals can be obtained depend on the model object: \itemize{ \item For objects of class \code{"rma.uni"} obtained with the \code{\link{rma.uni}} function, a confidence interval for the amount of (residual) heterogeneity (i.e., \mjseqn{\tau^2}) can be obtained by setting \code{random=TRUE} (which is the default). The interval is obtained iteratively either via the Q-profile method or via the generalized Q-statistic method (Hartung and Knapp, 2005; Viechtbauer, 2007; Jackson, 2013; Jackson et al., 2014). The latter is automatically used when the model was fitted with \code{method="GENQ"} or \code{method="GENQM"}, the former is used in all other cases. Either method provides an exact confidence interval for \mjseqn{\tau^2} in random- and mixed-effects models. The square root of the interval bounds is also returned for easier interpretation. Confidence intervals for \mjseqn{I^2} and \mjseqn{H^2} are also provided (Higgins & Thompson, 2002). Since \mjseqn{I^2} and \mjseqn{H^2} are monotonic transformations of \mjseqn{\tau^2} (for details, see \code{\link[=print.rma.uni]{print}}), the confidence intervals for \mjseqn{I^2} and \mjseqn{H^2} are also exact. One can also set \code{type="PL"} to obtain a profile likelihood confidence interval for \mjseqn{\tau^2} (and corresponding CIs for \mjseqn{I^2} and \mjseqn{H^2}), which would be more consistent with the use of ML/REML estimation, but is not exact (see \sQuote{Note}). For models without moderators (i.e., random-effects models), one can also set \code{type="HT"}, in which case the \sQuote{test-based method} (method III in Higgins & Thompson, 2002) is used to construct confidence intervals for \mjseqn{\tau^2}, \mjseqn{I^2}, and \mjseqn{H^2} (see also Borenstein et al., 2009, chapter 16). However, note that this method tends to yield confidence intervals that are too narrow when the amount of heterogeneity is large. \item For objects of class \code{"rma.mv"} obtained with the \code{\link{rma.mv}} function, confidence intervals are obtained by default for all variance and correlation components of the model. Alternatively, one can use the \code{sigma2}, \code{tau2}, \code{rho}, \code{gamma2}, or \code{phi} arguments to specify for which variance/correlation parameter a confidence interval should be obtained. Only one of these arguments can be used at a time. A single integer is used to specify the number of the parameter. The function provides profile likelihood confidence intervals for these parameters. It is a good idea to examine the corresponding profile likelihood plots (via the \code{\link[=profile.rma.mv]{profile}} function) to make sure that the bounds obtained are sensible. \item For selection model objects of class \code{"rma.uni.selmodel"} obtained with the \code{\link{selmodel}} function, confidence intervals are obtained by default for \mjseqn{\tau^2} (for models where this is an estimated parameter) and all selection model parameters. Alternatively, one can choose to obtain a confidence interval only for \mjseqn{\tau^2} by setting \code{tau2=TRUE} or for one of the selection model parameters by specifying its number via the \code{delta} argument. The function provides profile likelihood confidence intervals for these parameters. It is a good idea to examine the corresponding profile likelihood plots (via the \code{\link[=profile.rma.uni.selmodel]{profile}} function) to make sure that the bounds obtained are sensible. \item For location-scale model objects of class \code{"rma.ls"} obtained with the \code{\link{rma.uni}} function, confidence intervals are obtained by default for all scale parameters. Alternatively, one can choose to obtain a confidence interval for one of the scale parameters by specifying its number via the \code{alpha} argument. The function provides profile likelihood confidence intervals for these parameters. It is a good idea to examine the corresponding profile likelihood plots (via the \code{\link[=profile.rma.ls]{profile}} function) to make sure that the bounds obtained are sensible. } The methods used to find confidence intervals for these parameters are iterative and require the use of the \code{\link{uniroot}} function. By default, the desired accuracy (\code{tol}) is set equal to \code{.Machine$double.eps^0.25} and the maximum number of iterations (\code{maxiter}) to \code{1000}. These values can be adjusted with \code{control=list(tol=value, maxiter=value)}, but the defaults should be adequate for most purposes. If \code{verbose=TRUE}, output is generated on the progress of the iterative algorithms. This is especially useful when model fitting is slow, in which case finding the confidence interval bounds can also take considerable amounts of time. When using the \code{\link{uniroot}} function, one must also set appropriate end points of the interval to be searched for the confidence interval bounds. The function sets some sensible defaults for the end points, but it may happen that the function is only able to determine that a bound is below/above a certain limit (this is indicated in the output accordingly with \code{<} or \code{>} signs). It can also happen that the model cannot be fitted or does not converge especially at the extremes of the interval to be searched. This will result in missing (\code{NA}) bounds and corresponding warnings. It may then be necessary to adjust the end points manually (see \sQuote{Note}). Finally, it is also possible that the lower and upper confidence interval bounds for a variance component both fall below zero. Since both bounds then fall outside of the parameter space, the confidence interval then consists of the null/empty set. Alternatively, one could interpret this as a confidence interval with bounds \mjseqn{[0,0]} or as indicating \sQuote{highly/overly homogeneous} data. } \value{ An object of class \code{"confint.rma"}. The object is a list with either one or two elements (named \code{fixed} and \code{random}) with the following elements: \item{estimate}{estimate of the model coefficient, variance/correlation component, or selection model parameter.} \item{ci.lb}{lower bound of the confidence interval.} \item{ci.ub}{upper bound of the confidence interval.} When obtaining confidence intervals for multiple components, the object is a list of class \code{"list.confint.rma"}, where each element is a \code{"confint.rma"} object as described above. The results are formatted and printed with the \code{\link[=print.confint.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.confint.rma]{as.data.frame}} function. } \note{ When computing a CI for \mjseqn{\tau^2} for objects of class \code{"rma.uni"}, the estimate of \mjseqn{\tau^2} will usually fall within the CI bounds provided by the Q-profile method. However, this is not guaranteed. Depending on the method used to estimate \mjseqn{\tau^2} and the width of the CI, it can happen that the CI does not actually contain the estimate. Using the empirical Bayes or Paule-Mandel estimator of \mjseqn{\tau^2} when fitting the model (i.e., using \code{method="EB"} or \code{method="PM"}) usually ensures that the estimate of \mjseqn{\tau^2} falls within the CI (for \code{method="PMM"}, this is guaranteed). When \code{method="GENQ"} was used to fit the model, the corresponding CI obtained via the generalized Q-statistic method also usually contains the estimate \mjseqn{\tau^2} (for \code{method="GENQM"}, this is guaranteed). When using ML/REML estimation, the profile likelihood CI (obtained when setting \code{type="PL"}) is guaranteed to contain the estimate of \mjseqn{\tau^2}. When computing a CI for \mjseqn{\tau^2} for objects of class \code{"rma.uni"}, the end points of the interval to be searched for the CI bounds are \mjseqn{[0,100]} (or, for the upper bound, ten times the estimate of \mjseqn{\tau^2}, whichever is greater). The upper bound should be large enough for most cases, but can be adjusted with \code{control=list(tau2.max=value)}. One can also adjust the lower end point with \code{control=list(tau2.min=value)}. You should only play around with this value if you know what you are doing. For objects of class \code{"rma.mv"}, the function provides profile likelihood CIs for the variance/correlation parameters in the model. For variance components, the lower end point of the interval to be searched is set to 0 and the upper end point to the larger of 10 and 100 times the value of the component. For correlations, the function sets the lower end point to a sensible default depending on the type of variance structure chosen, while the upper end point is set to 1. One can adjust the lower and/or upper end points with \code{control=list(vc.min=value, vc.max=value)}. Also, the function adjusts the lower/upper end points when the model does not converge at these extremes (the end points are then moved closer to the estimated value of the component). The total number of tries for setting/adjusting the end points in this manner is determined via \code{control=list(eptries=value)}, with the default being 10 tries. For objects of class \code{"rma.uni.selmodel"} or \code{"rma.ls"}, the function also sets some sensible defaults for the end points of the interval to be searched for the CI bounds (of the \mjseqn{\tau^2}, \mjseqn{\delta}, and \mjseqn{\alpha} parameter(s)). One can again adjust the end points and the number of retries (as described above) with \code{control=list(vc.min=value, vc.max=value, eptries=value)}. The Q-profile and generalized Q-statistic methods are both exact under the assumptions of the random- and mixed-effects models (i.e., normally distributed observed and true effect sizes or outcomes and known sampling variances). In practice, these assumptions are usually only approximately true, turning CIs for \mjseqn{\tau^2} also into approximations. Profile likelihood CIs are not exact by construction and rely on the asymptotic behavior of the likelihood ratio statistic, so they may be inaccurate in small samples, but they are inherently consistent with the use of ML/REML estimation. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Borenstein, M., Hedges, L. V., Higgins, J. P. T., & Rothstein, H. (2009). \emph{Introduction to meta-analysis}. Chichester, UK: Wiley. Hardy, R. J., & Thompson, S. G. (1996). A likelihood approach to meta-analysis with random effects. \emph{Statistics in Medicine}, \bold{15}(6), 619--629. \verb{https://doi.org/10.1002/(sici)1097-0258(19960330)15:6\%3C619::aid-sim188\%3E3.0.co;2-a} Hartung, J., & Knapp, G. (2005). On confidence intervals for the among-group variance in the one-way random effects model with unequal error variances. \emph{Journal of Statistical Planning and Inference}, \bold{127}(1-2), 157--177. \verb{https://doi.org/10.1016/j.jspi.2003.09.032} Higgins, J. P. T., & Thompson, S. G. (2002). Quantifying heterogeneity in a meta-analysis. \emph{Statistics in Medicine}, \bold{21}(11), 1539--1558. \verb{https://doi.org/10.1002/sim.1186} Jackson, D. (2013). Confidence intervals for the between-study variance in random effects meta-analysis using generalised Cochran heterogeneity statistics. \emph{Research Synthesis Methods}, \bold{4}(3), 220--229. \verb{https://doi.org/10.1186/s12874-016-0219-y} Jackson, D., Turner, R., Rhodes, K., & Viechtbauer, W. (2014). Methods for calculating confidence and credible intervals for the residual between-study variance in random effects meta-regression models. \emph{BMC Medical Research Methodology}, \bold{14}, 103. \verb{https://doi.org/10.1186/1471-2288-14-103} Viechtbauer, W. (2007). Confidence intervals for the amount of heterogeneity in meta-analysis. \emph{Statistics in Medicine}, \bold{26}(1), 37--52. \verb{https://doi.org/10.1002/sim.2514} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, \code{\link{rma.mv}}, and \code{\link[=selmodel.rma.uni]{selmodel}} for functions to fit models for which confidence intervals can be computed. \code{\link[=profile.rma]{profile}} for functions to create profile likelihood plots corresponding to profile likelihood confidence intervals. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### meta-analysis of the log risk ratios using a random-effects model res <- rma(yi, vi, data=dat, method="REML") ### confidence interval for the total amount of heterogeneity confint(res) ### mixed-effects model with absolute latitude in the model res <- rma(yi, vi, mods = ~ ablat, data=dat) ### confidence interval for the residual amount of heterogeneity confint(res) ### multilevel random-effects model res <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat.konstantopoulos2011) ### profile plots and confidence intervals for the variance components \dontrun{ par(mfrow=c(2,1)) profile(res, sigma2=1, steps=40, cline=TRUE) sav <- confint(res, sigma2=1) sav abline(v=sav$random[1,2:3], lty="dotted") profile(res, sigma2=2, steps=40, cline=TRUE) sav <- confint(res, sigma2=2) sav abline(v=sav$random[1,2:3], lty="dotted") } ### multivariate parameterization of the model res <- rma.mv(yi, vi, random = ~ school | district, data=dat.konstantopoulos2011) ### profile plots and confidence intervals for the variance component and correlation \dontrun{ par(mfrow=c(2,1)) profile(res, tau2=1, steps=40, cline=TRUE) sav <- confint(res, tau2=1) sav abline(v=sav$random[1,2:3], lty="dotted") profile(res, rho=1, steps=40, cline=TRUE) sav <- confint(res, rho=1) sav abline(v=sav$random[1,2:3], lty="dotted") } } \keyword{models} metafor/man/print.gosh.rma.Rd0000644000176200001440000000242115173343621015626 0ustar liggesusers\name{print.gosh.rma} \alias{print.gosh.rma} \title{Print Method for 'gosh.rma' Objects} \description{ Function to print objects of class \code{"gosh.rma"}. } \usage{ \method{print}{gosh.rma}(x, digits=x$digits, \dots) } \arguments{ \item{x}{an object of class \code{"gosh.rma"} obtained with \code{\link{gosh}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{\dots}{other arguments.} } \details{ The output shows how many model fits were attempted, how many succeeded, and summary statistics (i.e., the mean, minimum, first quartile, median, third quartile, and maximum) for the various measures of (residual) heterogeneity and the model coefficient(s) computed across all of the subsets. } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{gosh}} for the function to create \code{gosh.rma} objects. } \keyword{print} metafor/man/funnel.Rd0000644000176200001440000004415115173343621014252 0ustar liggesusers\name{funnel} \alias{funnel} \alias{funnel.rma} \alias{funnel.default} \title{Funnel Plots} \description{ Function to create funnel plots. \loadmathjax } \usage{ funnel(x, \dots) \method{funnel}{rma}(x, yaxis="sei", xlim, ylim, xlab, ylab, slab, steps=5, at, atransf, targs, digits, level=x$level, addtau2=FALSE, type="rstandard", back, shade, hlines, refline, lty=3, pch, pch.fill, col, bg, label=FALSE, offset=0.4, legend=FALSE, \dots) \method{funnel}{default}(x, vi, sei, ni, subset, yaxis="sei", xlim, ylim, xlab, ylab, slab, steps=5, at, atransf, targs, digits, level=95, back, shade, hlines, refline=0, lty=3, pch, col, bg, label=FALSE, offset=0.4, legend=FALSE, \dots) } \arguments{ \item{x}{an object of class \code{"rma"} or a vector with the observed effect sizes or outcomes.} \item{vi}{vector with the corresponding sampling variances (needed if \code{x} is a vector with the observed effect sizes or outcomes).} \item{sei}{vector with the corresponding standard errors (note: only one of the two, \code{vi} or \code{sei}, needs to be specified).} \item{ni}{vector with the corresponding sample sizes. Only relevant when passing a vector via \code{x}.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be included in the plot. Only relevant when passing a vector via \code{x}.} \item{yaxis}{either \code{"sei"}, \code{"vi"}, \code{"seinv"}, \code{"vinv"}, \code{"ni"}, \code{"ninv"}, \code{"sqrtni"}, \code{"sqrtninv"}, \code{"lni"}, or \code{"wi"} to specify what values should be placed on the y-axis. See \sQuote{Details}.} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{ylim}{y-axis limits. If unspecified, the function sets the y-axis limits to some sensible values.} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{ylab}{title for the y-axis. If unspecified, the function sets an appropriate axis title.} \item{slab}{optional vector with labels for the \mjseqn{k} studies. If unspecified, the function tries to extract study labels from \code{x}.} \item{steps}{the number of tick marks for the y-axis (the default is 5).} \item{at}{position of the x-axis tick marks and corresponding labels. If unspecified, the function sets the tick mark positions/labels to some sensible values.} \item{atransf}{optional argument to specify a function to transform the x-axis labels (e.g., \code{atransf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified via \code{atransf}.} \item{digits}{optional integer to specify the number of decimal places to which the tick mark labels of the x- and y-axis should be rounded. Can also be a vector of two integers, the first to specify the number of decimal places for the x-axis, the second for the y-axis labels (e.g., \code{digits=c(2,3)}). If unspecified, the function tries to set the argument to some sensible values.} \item{level}{numeric value between 0 and 100 to specify the level of the pseudo confidence interval region (see \link[=misc-options]{here} for details). For \code{"rma"} objects, the default is to take the value from the object. May also be a vector of values to obtain multiple regions (for contour-enhanced funnel plots). See \sQuote{Examples}.} \item{addtau2}{logical to specify whether the amount of heterogeneity should be accounted for when drawing the pseudo confidence interval region (the default is \code{FALSE}). Ignored when \code{x} is a meta-regression model and residuals are plotted. See \sQuote{Details}.} \item{type}{either \code{"rstandard"} (default) or \code{"rstudent"} to specify whether the usual or deleted residuals should be used in creating the funnel plot when \code{x} is a meta-regression model. See \sQuote{Details}.} \item{back}{optional character string to specify the color of the plotting region background.} \item{shade}{optional character string to specify the color of the pseudo confidence interval region. When \code{level} is a vector of values, different shading colors can be specified for each region.} \item{hlines}{optional character string to specify the color of the horizontal reference lines.} \item{refline}{numeric value to specify the location of the vertical \sQuote{reference} line and where the pseudo confidence interval should be centered. If unspecified, the reference line is drawn at the equal- or random-effects model estimate and at zero for meta-regression models (in which case the residuals are plotted) or when directly plotting observed outcomes.} \item{lty}{line type for the pseudo confidence interval region and the reference line. The default is to draw dotted lines (see \code{\link{par}} for other options). Can also be a vector to specify the two line types separately.} \item{pch}{plotting symbol to use for the observed outcomes. By default, a filled circle is used. Can also be a vector of values. See \code{\link{points}} for other options.} \item{pch.fill}{plotting symbol to use for the outcomes filled in by the trim and fill method. By default, an open circle is used. Only relevant when plotting an object created by the \code{\link{trimfill}} function.} \item{col}{optional character string to specify the (border) color of the points. Can also be a vector.} \item{bg}{optional character string to specify the background color of open plot symbols. Can also be a vector.} \item{label}{argument to control the labeling of the points (the default is \code{FALSE}). See \sQuote{Details}.} \item{offset}{argument to control the distance between the points and the corresponding labels.} \item{legend}{logical to specify whether a legend should be added to the plot (the default is \code{FALSE}). See \sQuote{Details}.} \item{\dots}{other arguments.} } \details{ For equal- and random-effects models (i.e., models not involving moderators), the plot shows the observed effect sizes or outcomes on the x-axis against the corresponding standard errors (i.e., the square root of the sampling variances) on the y-axis. A vertical line indicates the estimate based on the model (or at the value specified via the \code{refline} argument). A pseudo confidence interval region is drawn around this value with bounds equal to \mjeqn{\pm 1.96 \text{SE}}{±1.96*SE} (assuming \code{level=95}), where \mjeqn{\text{SE}}{SE} is the standard error value from the y-axis. If \code{addtau2=TRUE} (only for models of class \code{"rma.uni"}), then the bounds of the pseudo confidence interval region are equal to \mjeqn{\pm 1.96 \sqrt{\text{SE}^2 + \hat{\tau}^2}}{±1.96*\sqrt(SE^2 + \tau^2)}, where \mjeqn{\hat{\tau}^2}{\tau^2} is the amount of heterogeneity as estimated by the model. The \code{level} argument can be an entire vector to highlight multiple pseudo confidence interval regions in the plot. The \code{shade} argument can be used to specify the corresponding colors (if unspecified, default colors are chosen). This way, one draw contour-enhanced funnel plots (Peters et al., 2008). For (mixed-effects) meta-regression models (i.e., models involving moderators), the plot shows the residuals on the x-axis against their corresponding standard errors. Either the usual or deleted residuals can be used for that purpose (set via the \code{type} argument). See \code{\link[=residuals.rma]{residuals}} for more details on the different types of residuals. With the \code{atransf} argument, the labels on the x-axis can be transformed with some suitable function. For example, when plotting log odds ratios, one could use \code{transf=exp} to obtain a funnel plot with the values on the x-axis corresponding to the odds ratios. See also \link{transf} for some other useful transformation functions in the context of a meta-analysis. Instead of placing the standard errors on the y-axis, several other options are available by setting the \code{yaxis} argument to: \itemize{ \item \code{yaxis="vi"} for the sampling variances, \item \code{yaxis="seinv"} for the inverse of the standard errors, \item \code{yaxis="vinv"} for the inverse of the sampling variances, \item \code{yaxis="ni"} for the sample sizes, \item \code{yaxis="ninv"} for the inverse of the sample sizes, \item \code{yaxis="sqrtni"} for the square root of the sample sizes, \item \code{yaxis="sqrtninv"} for the inverse square root of the sample sizes, \item \code{yaxis="lni"} for the log of the sample sizes, \item \code{yaxis="wi"} for the weights. } However, only when \code{yaxis="sei"} (the default) will the pseudo confidence region have the expected (upside-down) funnel shape with straight lines. Also, when placing (a function of) the sample sizes or the weights on the y-axis, then the pseudo confidence region cannot be drawn. See Sterne and Egger (2001) for more details on the choice of the y-axis. If the object passed to the function comes from the \code{\link{trimfill}} function, the studies that are filled in by the trim and fill method are also added to the funnel plot. The symbol to use for plotting the filled in studies can be specified via the \code{pch.fill} argument. Arguments \code{col} and \code{bg} can then be of length 2 to specify the (border) color and background color of the observed and filled in studies. One can also directly pass a vector with the observed effect sizes or outcomes (via \code{x}) and the corresponding sampling variances (via \code{vi}), standard errors (via \code{sei}), and/or sample sizes (via \code{ni}) to the function. By default, the vertical reference line is then drawn at zero. The arguments \code{back}, \code{shade}, and \code{hlines} can be set to \code{NULL} to suppress the shading and the horizontal reference line. One can also suppress the funnel by setting \code{refline} to \code{NULL}. Using \code{refline2}, one can also add a second reference line with a funnel to the plot (see \sQuote{Examples}). With the \code{label} argument, one can control whether points in the plot will be labeled. If \code{label="all"} (or \code{label=TRUE}), all points in the plot will be labeled. If \code{label="out"}, points falling outside of the pseudo confidence region will be labeled. Finally, one can also set this argument to a numeric value (between 1 and \mjseqn{k}) to specify how many of the most extreme points should be labeled (e.g., with \code{label=1} only the most extreme point are labeled, while with \code{label=3}, the most extreme, and the second and third most extreme points are labeled). With the \code{offset} argument, one can adjust the distance between the labels and the corresponding points. By setting the \code{legend} argument to \code{TRUE}, a legend is added to the plot. One can also use a keyword for this argument to specify the position of the legend (e.g., \code{legend="topright"}; see \code{\link{legend}} for options). Finally, this argument can also be a list, with elements \code{x}, \code{y}, \code{inset}, \code{bty}, and \code{bg}, which are passed on to the corresponding arguments of the \code{\link{legend}} function for even more control (elements not specified are set to defaults). The list can also include elements \code{studies} (a logical to specify whether to include \sQuote{Studies} in the legend; default is \code{TRUE}) and \code{show} (either \code{"pvals"} to show the p-values corresponding to the shade regions, \code{"cis"} to show the confidence interval levels corresponding to the shade regions, or \code{NA} to show neither; default is \code{"pvals"}). } \note{ Placing (a function of) the sample sizes on the y-axis (i.e., using \code{yaxis="ni"}, \code{yaxis="ninv"}, \code{yaxis="sqrtni"}, \code{yaxis="sqrtninv"}, or \code{yaxis="lni"}) is only possible when information about the sample sizes is actually stored within the object passed to the \code{funnel} function. That should automatically be the case when the observed effect sizes or outcomes were computed with the \code{\link{escalc}} function or when the observed effect sizes or outcomes were computed within the model fitting function. On the other hand, this will not be the case when \code{\link{rma.uni}} was used together with the \code{yi} and \code{vi} arguments and the \code{yi} and \code{vi} values were \emph{not} computed with \code{\link{escalc}}. In that case, it is still possible to pass information about the sample sizes to the \code{\link{rma.uni}} function (e.g., use \code{rma.uni(yi, vi, ni=ni, data=dat)}, where data frame \code{dat} includes a variable called \code{ni} with the sample sizes). When using unweighted estimation, using \code{yaxis="wi"} will place all points on a horizontal line. When directly passing a vector with the observed effect sizes or outcomes to the function, \code{yaxis="wi"} is equivalent to \code{yaxis="vinv"}, except that the weights are expressed in percent. For argument \code{slab} and when specifying vectors for arguments \code{pch}, \code{col}, and/or \code{bg} and when \code{x} is an object of class \code{"rma"}, the variables specified are assumed to be of the same length as the data passed to the model fitting function (and if the \code{data} argument was used in the original model fit, then the variables will be searched for within this data frame first). Any subsetting and removal of studies with missing values is automatically applied to the variables specified via these arguments. } \value{ A data frame with components: \item{x}{the x-axis coordinates of the points that were plotted.} \item{y}{the y-axis coordinates of the points that were plotted.} \item{slab}{the study labels.} Note that the data frame is returned invisibly. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Light, R. J., & Pillemer, D. B. (1984). \emph{Summing up: The science of reviewing research}. Cambridge, MA: Harvard University Press. Peters, J. L., Sutton, A. J., Jones, D. R., Abrams, K. R., & Rushton, L. (2008). Contour-enhanced meta-analysis funnel plots help distinguish publication bias from other causes of asymmetry. \emph{Journal of Clinical Epidemiology}, \bold{61}(10), 991--996. \verb{https://doi.org/10.1016/j.jclinepi.2007.11.010} Sterne, J. A. C., & Egger, M. (2001). Funnel plots for detecting bias in meta-analysis: Guidelines on choice of axis. \emph{Journal of Clinical Epidemiology}, \bold{54}(10), 1046--1055. \verb{https://doi.org/10.1016/s0895-4356(01)00377-8} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which funnel plots can be drawn. \code{\link{trimfill}} for the trim and fill method, \code{\link{regtest}} for the regression test, and \code{\link{ranktest}} for the rank correlation test. } \examples{ ### copy BCG vaccine data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) ### fit random-effects model res <- rma(yi, vi, data=dat, slab=paste(author, year, sep=", ")) ### draw a standard funnel plot funnel(res) ### show risk ratio values on x-axis (log scale) funnel(res, atransf=exp) ### label points outside of the pseudo confidence interval region funnel(res, atransf=exp, label="out") ### passing log risk ratios and sampling variances directly to the function ### note: same plot, except that the reference line is centered at zero funnel(dat$yi, dat$vi) ### the with() function can be used to avoid having to retype dat$... over and over with(dat, funnel(yi, vi)) ### can accomplish the same thing by setting refline=0 funnel(res, refline=0) ### adjust the position of the x-axis labels, number of digits, and y-axis limits funnel(res, atransf=exp, at=log(c(.125, .25, .5, 1, 2)), digits=3L, ylim=c(0,.8)) ### contour-enhanced funnel plot centered at 0 (see Peters et al., 2008) funnel(res, level=c(90, 95, 99), shade=c("white", "gray55", "gray75"), refline=0, legend=TRUE) ### default shades are chosen if the argument is not specified funnel(res, level=c(90, 95, 99), refline=0, legend=TRUE) ### same, but show risk ratio values on the x-axis and some further adjustments funnel(res, level=c(90, 95, 99), digits=3L, ylim=c(0,.8), atransf=exp, at=log(c(.125, .25, .5, 1, 2, 4, 8)), refline=0, legend=TRUE) ### same, but show confidence interval levels in the legend funnel(res, level=c(90, 95, 99), digits=3L, ylim=c(0,.8), atransf=exp, at=log(c(.125, .25, .5, 1, 2, 4, 8)), refline=0, legend=list(show="cis")) ### illustrate the use of vectors for 'pch' and 'col' res <- rma(yi, vi, data=dat, subset=2:10) funnel(res, pch=ifelse(yi > -1, 19, 21), col=ifelse(sqrt(vi) > .3, "red", "blue")) ### can add a second funnel via (undocumented) argument refline2 funnel(res, atransf=exp, at=log(c(.125, .25, .5, 1, 2, 4)), digits=3L, ylim=c(0,.8), refline2=0) ### mixed-effects model with absolute latitude in the model res <- rma(yi, vi, mods = ~ ablat, data=dat) ### funnel plot of the residuals funnel(res) ### simulate a large meta-analytic dataset (correlations with rho = 0.2) ### with no heterogeneity or publication bias; then try out different ### versions of the funnel plot gencor <- function(rhoi, ni) { x1 <- rnorm(ni, mean=0, sd=1) x2 <- rnorm(ni, mean=0, sd=1) x3 <- rhoi*x1 + sqrt(1-rhoi^2)*x2 cor(x1, x3) } set.seed(1234) k <- 200 # number of studies to simulate ni <- round(rchisq(k, df=2) * 20 + 20) # simulate sample sizes (skewed distribution) ri <- mapply(gencor, rep(0.2,k), ni) # simulate correlations res <- rma(measure="ZCOR", ri=ri, ni=ni, method="EE") # use r-to-z transformed correlations funnel(res, yaxis="sei") funnel(res, yaxis="vi") funnel(res, yaxis="seinv") funnel(res, yaxis="vinv") funnel(res, yaxis="ni") funnel(res, yaxis="ninv") funnel(res, yaxis="sqrtni") funnel(res, yaxis="sqrtninv") funnel(res, yaxis="lni") funnel(res, yaxis="wi") } \keyword{hplot} metafor/man/hc.Rd0000644000176200001440000001117615173343621013356 0ustar liggesusers\name{hc} \alias{hc} \alias{hc.rma.uni} \title{Meta-Analysis based on the Method by Henmi and Copas (2010)} \description{ Function to obtain an estimate of the average true outcome and corresponding confidence interval under a random-effects model using the method described by Henmi and Copas (2010). } \usage{ hc(object, \dots) \method{hc}{rma.uni}(object, digits, transf, targs, control, \dots) } \arguments{ \item{object}{an object of class \code{"rma.uni"}.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{transf}{optional argument to specify a function to transform the estimate and the corresponding interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{control}{list of control values for the iterative algorithm. If unspecified, default values are used. See \sQuote{Note}.} \item{\dots}{other arguments.} } \details{ The model specified via \code{object} must be a model without moderators (i.e., either an equal- or a random-effects model). When using the usual method for fitting a random-effects model (i.e., weighted estimation with inverse-variance weights), the weights assigned to smaller and larger studies become more uniform as the amount of heterogeneity increases. As a consequence, the estimated average outcome could become increasingly biased under certain forms of publication bias (where smaller studies on one side of the funnel plot are missing). The method by Henmi and Copas (2010) counteracts this problem by providing an estimate of the average true outcome that is based on inverse-variance weights as used under an equal-effects model, which are not affected by the amount of heterogeneity. The amount of heterogeneity is still estimated (with the DerSimonian-Laird estimator) and incorporated into the standard error of the estimated average outcome and the corresponding confidence interval. Currently, there is only a method for handling objects of class \code{"rma.uni"} with the \code{hc} function. It therefore provides a method for conducting a sensitivity analysis after the model has been fitted with the \code{\link{rma.uni}} function. } \value{ An object of class \code{"hc.rma.uni"}. The object is a list containing the following components: \item{beta}{estimated average true outcome.} \item{se}{corresponding standard error.} \item{ci.lb}{lower bound of the confidence intervals for the average true outcome.} \item{ci.ub}{upper bound of the confidence intervals for the average true outcome.} \item{\dots}{some additional elements/values.} The results are formatted and printed with the \code{\link[=print.hc.rma.uni]{print}} function. } \note{ The method makes use of the \code{\link{uniroot}} function. By default, the desired accuracy is set equal to \code{.Machine$double.eps^0.25} and the maximum number of iterations to \code{1000}. The desired accuracy (\code{tol}) and the maximum number of iterations (\code{maxiter}) can be adjusted with the \code{control} argument (i.e., \code{control=list(tol=value, maxiter=value)}). } \author{ Original code by Henmi and Copas (2010). Corrected for typos by Michael Dewey (\email{lists@dewey.myzen.co.uk}). Incorporated into the package with some small adjustments for consistency with the other functions in the package by Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Henmi, M., & Copas, J. B. (2010). Confidence intervals for random effects meta-analysis and robustness to publication bias. \emph{Statistics in Medicine}, \bold{29}(29), 2969--2983. \verb{https://doi.org/10.1002/sim.4029} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}} for the function to fit \code{rma.uni} models. } \examples{ ### calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.lee2004) dat ### meta-analysis based on log odds ratios res <- rma(yi, vi, data=dat) res ### funnel plot as in Henmi and Copas (2010) funnel(res, yaxis="seinv", refline=0, xlim=c(-3,3), ylim=c(.5,3.5), steps=7, digits=1, back="white") ### use method by Henmi and Copas (2010) as a sensitivity analysis hc(res) ### back-transform results to odds ratio scale hc(res, transf=exp) } \keyword{htest} metafor/man/ranef.Rd0000644000176200001440000001211715173343621014053 0ustar liggesusers\name{ranef} \alias{ranef} \alias{ranef.rma.uni} \alias{ranef.rma.mv} \title{Best Linear Unbiased Predictions for 'rma.uni' and 'rma.mv' Objects} \description{ Functions to compute best linear unbiased predictions (BLUPs) of the random effects for objects of class \code{"rma.uni"} and \code{"rma.mv"}. Corresponding standard errors and prediction interval bounds are also provided. \loadmathjax } \usage{ \method{ranef}{rma.uni}(object, level, digits, transf, targs, \dots) \method{ranef}{rma.mv}(object, level, digits, transf, targs, verbose=FALSE, \dots) } \arguments{ \item{object}{an object of class \code{"rma.uni"} or \code{"rma.mv"}.} \item{level}{numeric value between 0 and 100 to specify the prediction interval level (see \link[=misc-options]{here} for details). If unspecified, the default is to take the value from the object.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{transf}{optional argument to specify a function to transform the predicted values and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{verbose}{logical to specify whether output should be generated on the progress of the computations (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \value{ For objects of class \code{"rma.uni"}, an object of class \code{"list.rma"}. The object is a list containing the following components: \item{pred}{predicted values.} \item{se}{corresponding standard errors.} \item{pi.lb}{lower bound of the prediction intervals.} \item{pi.ub}{upper bound of the prediction intervals.} \item{\dots}{some additional elements/values.} The object is formatted and printed with the \code{\link[=print.list.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. For objects of class \code{"rma.mv"}, a list of data frames with the same components as described above. } \note{ For best linear unbiased predictions that combine the fitted values based on the fixed effects and the estimated contributions of the random effects, see \code{\link[=blup.rma.uni]{blup}}. For predicted/fitted values that are based only on the fixed effects of the model, see \code{\link[=fitted.rma]{fitted}} and \code{\link[=predict.rma]{predict}}. Equal-effects models do not contain random study effects. The BLUPs for these models will therefore be 0. When using the \code{transf} argument, the transformation is applied to the predicted values and the corresponding interval bounds. The standard errors are then set equal to \code{NA} and are omitted from the printed output. By default, a standard normal distribution is used to construct the prediction intervals. When the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}, then a t-distribution with \mjseqn{k-p} degrees of freedom is used. To be precise, it should be noted that the function actually computes empirical BLUPs (eBLUPs), since the predicted values are a function of the estimated variance component(s). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Kackar, R. N., & Harville, D. A. (1981). Unbiasedness of two-stage estimation and prediction procedures for mixed linear models. Communications in Statistics, Theory and Methods, \bold{10}(13), 1249--1261. \verb{https://doi.org/10.1080/03610928108828108} Raudenbush, S. W., & Bryk, A. S. (1985). Empirical Bayes meta-analysis. \emph{Journal of Educational Statistics}, \bold{10}(2), 75--98. \verb{https://doi.org/10.3102/10769986010002075} Robinson, G. K. (1991). That BLUP is a good thing: The estimation of random effects. \emph{Statistical Science}, \bold{6}(1), 15--32. \verb{https://doi.org/10.1214/ss/1177011926} Searle, S. R., Casella, G., & McCulloch, C. E. (1992). \emph{Variance components}. Hoboken, NJ: Wiley. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}} and \code{\link{rma.mv}} for functions to fit models for which BLUPs of the random effects can be computed. \code{\link[=predict.rma]{predict}} and \code{\link[=fitted.rma]{fitted}} for functions to compute the predicted/fitted values based only on the fixed effects and \code{\link[=blup.rma.uni]{blup}} for a function to compute BLUPs that combine the fitted values and predicted random effects. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### meta-analysis of the log risk ratios using a random-effects model res <- rma(yi, vi, data=dat) ### BLUPs of the random effects ranef(res) } \keyword{models} metafor/man/methods.vcovmat.Rd0000644000176200001440000000335715173343621016107 0ustar liggesusers\name{methods.vcovmat} \alias{methods.vcovmat} \alias{print.vcovmat} \alias{[.vcovmat} \title{Methods for 'vcovmat' Objects} \description{ Methods for objects of class \code{"vcovmat"}. } \usage{ \method{print}{vcovmat}(x, digits=4, tol, zero=".", na="", \dots) \method{[}{vcovmat}(x, i, j, \dots) } \arguments{ \item{x}{an object of class \code{"vcovmat"}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is 4).} \item{tol}{numeric value giving the tolerance for values that will be considered to be zeros.} \item{zero}{character string to represent zero values.} \item{na}{character string to represent missing values.} \item{i,j}{indices to select rows/columns.} \item{\dots}{other arguments.} } \details{ When printing a \code{"vcovmat"} object, values equal to zero are printed by default as a period. This makes it easier to see the structure of the variance-covariance matrix, which often has a block-diagonal structure. Values sufficiently close to zero are also treated as zero. This is controlled by the \code{tol} argument, which, if unspecified, is set by default to \code{10 * .Machine$double.eps}. } \note{ To turn a matrix \code{x} of class \code{"vcovmat"} into a regular matrix, just use \code{unclass(x)}. } \author{ The \code{print} method is based on the code from \code{\link{print.table}} with some minor tweaks. } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{vcalc}} and \code{\link{rcalc}} for functions that create \code{vcovmat} objects. } \keyword{print} metafor/man/baujat.Rd0000644000176200001440000001154015173343621014225 0ustar liggesusers\name{baujat} \alias{baujat} \alias{baujat.rma} \title{Baujat Plots for 'rma' Objects} \description{ Function to create Baujat plots for objects of class \code{"rma"}. \loadmathjax } \usage{ baujat(x, \dots) \method{baujat}{rma}(x, xlim, ylim, xlab, ylab, cex, symbol="ids", grid=TRUE, progbar=FALSE, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{ylim}{y-axis limits. If unspecified, the function sets the y-axis limits to some sensible values.} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{ylab}{title for the y-axis. If unspecified, the function sets an appropriate axis title.} \item{cex}{symbol/character expansion factor.} \item{symbol}{either an integer to specify the \code{pch} value (i.e., plotting symbol), or \code{"slab"} to plot the study labels, or \code{"ids"} (the default) to plot the study id numbers.} \item{grid}{logical to specify whether a grid should be added to the plot. Can also be a color name.} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ The model specified via \code{x} must be a model fitted with either the \code{\link{rma.uni}}, \code{\link{rma.mh}}, or \code{\link{rma.peto}} functions. Baujat et al. (2002) proposed a diagnostic plot to detect sources of heterogeneity in meta-analytic data. The plot shows the contribution of each study to the overall \mjseqn{Q}-test statistic for heterogeneity on the x-axis versus the influence of each study (defined as the standardized squared difference between the overall estimate based on an equal-effects model with and without the study included in the model fitting) on the y-axis. The same type of plot can be produced by first fitting an equal-effects model with either the \code{\link{rma.uni}} (using \code{method="EE"}), \code{\link{rma.mh}}, or \code{\link{rma.peto}} functions and then passing the fitted model object to the \code{baujat} function. For models fitted with the \code{\link{rma.uni}} function (which may be random-effects or mixed-effects meta-regressions models), the idea underlying this type of plot can be generalized as described by Viechtbauer (2021): The x-axis then corresponds to the squared Pearson residual of a study, while the y-axis corresponds to the standardized squared difference between the predicted/fitted value for the study with and without the study included in the model fitting. By default, the points plotted are the study id numbers, but one can also plot the study labels by setting \code{symbol="slab"} (if study labels are available within the model object) or one can specify a plotting symbol via the \code{symbol} argument that gets passed to \code{pch} (see \code{\link{points}} for possible options). } \value{ A data frame with components: \item{x}{the x-axis coordinates of the points that were plotted.} \item{y}{the y-axis coordinates of the points that were plotted.} \item{ids}{the study id numbers.} \item{slab}{the study labels.} Note that the data frame is returned invisibly. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Baujat, B., Mahe, C., Pignon, J.-P., & Hill, C. (2002). A graphical method for exploring heterogeneity in meta-analyses: Application to a meta-analysis of 65 trials. \emph{Statistics in Medicine}, \bold{21}(18), 2641--2652. \verb{https://doi.org/10.1002/sim.1221} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}} and \code{\link{rma.peto}} for functions to fit models for which Baujat plots can be created. \code{\link[=influence.rma.uni]{influence}} for other model diagnostics. } \examples{ ### copy data from Pignon et al. (2000) into 'dat' dat <- dat.pignon2000 ### calculate estimated log hazard ratios and sampling variances dat$yi <- with(dat, OmE/V) dat$vi <- with(dat, 1/V) ### meta-analysis based on all 65 trials res <- rma(yi, vi, data=dat, method="EE", slab=trial) ### create Baujat plot baujat(res) ### some variations of the plotting symbol baujat(res, symbol=19) baujat(res, symbol="slab") ### label only a selection of the more 'extreme' points sav <- baujat(res, symbol=19, xlim=c(0,20)) sav <- sav[sav$x >= 10 | sav$y >= 0.10,] text(sav$x, sav$y, sav$slab, pos=1, cex=0.8) } \keyword{hplot} metafor/man/rma.mv.Rd0000644000176200001440000015667715173343621014204 0ustar liggesusers\name{rma.mv} \alias{rma.mv} \title{Meta-Analysis via Multivariate/Multilevel Linear (Mixed-Effects) Models} \description{ Function to fit meta-analytic multivariate/multilevel fixed- and random/mixed-effects models with or without moderators via linear (mixed-effects) models. See below and the introduction to the \pkg{\link{metafor-package}} for more details on these models. \loadmathjax } \usage{ rma.mv(yi, V, W, mods, data, slab, subset, random, struct="CS", intercept=TRUE, method="REML", test="z", dfs="residual", level=95, btt, R, Rscale="cor", sigma2, tau2, rho, gamma2, phi, cvvc=FALSE, sparse=FALSE, verbose=FALSE, digits, control, \dots) } \arguments{ \emph{These arguments pertain to data input:} \item{yi}{vector of length \mjseqn{k} with the observed effect sizes or outcomes. See \sQuote{Details}.} \item{V}{vector of length \mjseqn{k} with the corresponding sampling variances or a \mjeqn{k \times k}{kxk} variance-covariance matrix of the sampling errors. See \sQuote{Details}.} \item{W}{optional argument to specify a vector of length \mjseqn{k} with user-defined weights or a \mjeqn{k \times k}{kxk} user-defined weight matrix. See \sQuote{Details}.} \item{mods}{optional argument to include one or more moderators in the model. A single moderator can be given as a vector of length \mjseqn{k} specifying the values of the moderator. Multiple moderators are specified by giving a matrix with \mjseqn{k} rows and as many columns as there are moderator variables. Alternatively, a model \code{\link{formula}} can be used to specify the model. See \sQuote{Details}.} \item{data}{optional data frame containing the data supplied to the function.} \item{slab}{optional vector with labels for the \mjseqn{k} outcomes/studies.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies (or more precisely, rows of the dataset) that should be used for the analysis.} \emph{These arguments pertain to the model / computations and output:} \item{random}{either a single one-sided formula or list of one-sided formulas to specify the random-effects structure of the model. See \sQuote{Details}.} \item{struct}{character string to specify the variance structure of an \code{~ inner | outer} formula in the \code{random} argument. Either \code{"CS"} for compound symmetry, \code{"HCS"} for heteroscedastic compound symmetry, \code{"UN"} or \code{"GEN"} for an unstructured variance-covariance matrix, \code{"ID"} for a scaled identity matrix, \code{"DIAG"} for a diagonal matrix, \code{"AR"} for an AR(1) autoregressive structure, \code{"HAR"} for a heteroscedastic AR(1) autoregressive structure, \code{"CAR"} for a continuous-time autoregressive structure, or one of \code{"SPEXP"}, \code{"SPGAU"}, \code{"SPLIN"}, \code{"SPRAT"}, or \code{"SPSPH"} for one of the spatial correlation structures. See \sQuote{Details}.} \item{intercept}{logical to specify whether an intercept should be added to the model (the default is \code{TRUE}). Ignored when \code{mods} is a formula.} \item{method}{character string to specify whether the model should be fitted via maximum likelihood (\code{"ML"}) or via restricted maximum likelihood (\code{"REML"}) estimation (the default is \code{"REML"}).} \item{test}{character string to specify how test statistics and confidence intervals for the fixed effects should be computed. By default (\code{test="z"}), Wald-type tests and CIs are obtained, which are based on a standard normal distribution. When \code{test="t"}, a t-distribution is used instead. See \sQuote{Details} and also \link[=misc-recs]{here} for some recommended practices.} \item{dfs}{character string to specify how the (denominator) degrees of freedom should be calculated when \code{test="t"}. Either \code{dfs="residual"} or \code{dfs="contain"}. Can also be a numeric vector with the degrees of freedom for each model coefficient. See \sQuote{Details}.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{btt}{optional vector of indices to specify which coefficients to include in the omnibus test of moderators. Can also be a string to \code{\link{grep}} for. See \sQuote{Details}.} \item{R}{an optional named list of known correlation matrices corresponding to (some of) the components specified via the \code{random} argument. See \sQuote{Details}.} \item{Rscale}{character string, integer, or logical to specify how matrices specified via the \code{R} argument should be scaled. See \sQuote{Details}.} \item{sigma2}{optional numeric vector (of the same length as the number of random intercept components specified via the \code{random} argument) to fix the corresponding \mjseqn{\sigma^2} value(s). A specific \mjseqn{\sigma^2} value can be fixed by setting the corresponding element of this argument to the desired value. A specific \mjseqn{\sigma^2} value will be estimated if the corresponding element is set equal to \code{NA}. See \sQuote{Details}.} \item{tau2}{optional numeric value (for \code{struct="CS"}, \code{"AR"}, \code{"CAR"}, or a spatial correlation structure) or vector (for \code{struct="HCS"}, \code{"UN"}, or \code{"HAR"}) to fix the amount of (residual) heterogeneity for the levels of the \code{inner} factor corresponding to an \code{~ inner | outer} formula specified in the \code{random} argument. A numeric value fixes a particular \mjseqn{\tau^2} value, while \code{NA} means that the value should be estimated. See \sQuote{Details}.} \item{rho}{optional numeric value (for \code{struct="CS"}, \code{"HCS"}, \code{"AR"}, \code{"HAR"}, \code{"CAR"}, or a spatial correlation structure) or vector (for \code{struct="UN"}) to fix the correlation between the levels of the \code{inner} factor corresponding to an \code{~ inner | outer} formula specified in the \code{random} argument. A numeric value fixes a particular \mjseqn{\rho} value, while \code{NA} means that the value should be estimated. See \sQuote{Details}.} \item{gamma2}{as \code{tau2} argument, but for a second \code{~ inner | outer} formula specified in the \code{random} argument. See \sQuote{Details}.} \item{phi}{as \code{rho} argument, but for a second \code{~ inner | outer} formula specified in the \code{random} argument. See \sQuote{Details}.} \item{cvvc}{logical to specify whether to calculate the variance-covariance matrix of the variance/correlation components (can also be set to \code{"varcov"} or \code{"varcor"}). See \sQuote{Details}.} \item{sparse}{logical to specify whether the function should use sparse matrix objects to the extent possible (can speed up model fitting substantially for certain models). See \sQuote{Note}.} \item{verbose}{logical to specify whether output should be generated on the progress of the model fitting (the default is \code{FALSE}). Can also be an integer. Values > 1 generate more verbose output. See \sQuote{Note}.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is 4. See also \link[=misc-options]{here} for further details on how to control the number of digits in the output.} \item{control}{optional list of control values for the estimation algorithms. If unspecified, default values are defined inside the function. See \sQuote{Note}.} \item{\dots}{additional arguments.} } \details{ \subsection{Specifying the Data}{ The function can be used in combination with any of the usual effect sizes or outcome measures used in meta-analyses (e.g., log risk ratios, log odds ratios, risk differences, mean differences, standardized mean differences, log transformed ratios of means, raw correlation coefficients, correlation coefficients transformed with Fisher's r-to-z transformation), or, more generally, any set of estimates (with corresponding sampling variances) one would like to meta-analyze. Simply specify the observed effect sizes or outcomes via the \code{yi} argument and the corresponding sampling variances via the \code{V} argument. In case the sampling errors are correlated, then one can specify the entire variance-covariance matrix of the sampling errors via the \code{V} argument. The \code{\link{escalc}} function can be used to compute a wide variety of effect sizes or outcome measures (and the corresponding sampling variances) based on summary statistics. Equations for computing the covariance between the sampling errors for a variety of different effect sizes or outcome measures can be found, for example, in Gleser and Olkin (2009), Lajeunesse (2011), and Wei and Higgins (2013). For raw and Fisher r-to-z transformed correlations, one can find suitable equations, for example, in Steiger (1980). The latter are implemented in the \code{\link{rcalc}} function. See also \code{\link{vcalc}} for a function that can be used to construct or approximate the variance-covariance matrix of dependent effect sizes or outcomes for a wide variety of circumstances. See also \link[=misc-recs]{here} for some recommendations on a general workflow for meta-analyses involving complex dependency structures. } \subsection{Specifying Fixed Effects}{ With \code{rma.mv(yi, V)}, a fixed-effects model is fitted to the data (note: arguments \code{struct}, \code{sigma2}, \code{tau2}, \code{rho}, \code{gamma2}, \code{phi}, \code{R}, and \code{Rscale} are not relevant then and are ignored). The model is then simply given by \mjeqn{y \sim N(\theta, V)}{y ~ N(\theta, V)}, where \mjseqn{y} is a (column) vector with the observed outcomes, \mjseqn{\theta} is the (average) true outcome, and \mjseqn{V} is the variance-covariance matrix of the sampling errors (if a vector of sampling variances is provided via the \code{V} argument, then \mjseqn{V} is assumed to be diagonal). Note that the argument is \code{V}, not \code{v} (\R is case sensitive!). One or more moderators can be included in the model via the \code{mods} argument. A single moderator can be given as a (row or column) vector of length \mjseqn{k} specifying the values of the moderator. Multiple moderators are specified by giving an appropriate model matrix (i.e., \mjseqn{X}) with \mjseqn{k} rows and as many columns as there are moderator variables (e.g., \code{mods = cbind(mod1, mod2, mod3)}, where \code{mod1}, \code{mod2}, and \code{mod3} correspond to the names of the variables for the three moderator variables). The intercept is added to the model matrix by default unless \code{intercept=FALSE}. Alternatively, one can use standard \code{\link{formula}} syntax to specify the model. In this case, the \code{mods} argument should be set equal to a one-sided formula of the form \code{mods = ~ model} (e.g., \code{mods = ~ mod1 + mod2 + mod3}). Interactions, polynomial/spline terms, and factors can be easily added to the model in this manner. When specifying a model formula via the \code{mods} argument, the \code{intercept} argument is ignored. Instead, the inclusion/exclusion of the intercept is controlled by the specified formula (e.g., \code{mods = ~ 0 + mod1 + mod2 + mod3} or \code{mods = ~ mod1 + mod2 + mod3 - 1} would lead to the removal of the intercept). One can also directly specify moderators via the \code{yi} argument (e.g., \code{rma.mv(yi ~ mod1 + mod2 + mod3, V)}). In that case, the \code{mods} argument is ignored and the inclusion/exclusion of the intercept is again controlled by the specified formula. With moderators included, the model is then given by \mjeqn{y \sim N(X \beta, V)}{y ~ N(X \beta, V)}, where \mjseqn{X} denotes the model matrix containing the moderator values (and with the first column equal to 1s for the intercept term if it is included) and \mjseqn{\beta} is a column vector containing the corresponding model coefficients. The model coefficients (i.e., \mjseqn{\beta}) are then estimated with \mjeqn{b = (X'WX')^{-1} X'Wy}{b = (X'WX)^(-1) X'Wy}, where \mjeqn{W = V^{-1}}{W = V^(-1)} is the weight matrix (without moderators, \mjseqn{X} is just a column vector of 1's). With the \code{W} argument, one can also specify user-defined weights (or a weight matrix). } \subsection{Specifying Random Effects}{ One can fit random/mixed-effects models to the data by specifying the desired random effects structure via the \code{random} argument. The \code{random} argument is either a single one-sided formula or a list of one-sided formulas. One formula type that can be specified via this argument is of the form \code{random = ~ 1 | id}. Such a formula adds a random effect corresponding to the grouping variable \code{id} to the model. Outcomes with the same value of the \code{id} variable receive the same value of the random effect, while outcomes with different values of the \code{id} variable are assumed to be independent. The variance component corresponding to such a formula is denoted by \mjseqn{\sigma^2}. An arbitrary number of such formulas can be specified as a list of formulas (e.g., \code{random = list(~ 1 | id1, ~ 1 | id2)}), with variance components \mjseqn{\sigma^2_1}, \mjseqn{\sigma^2_2}, and so on. Nested random effects of this form can also be added using \code{random = ~ 1 | id1/id2}, which adds a random effect corresponding to the grouping variable \code{id1} and a random effect corresponding to \code{id2} within \code{id1} to the model. This can be extended to models with even more levels of nesting (e.g., \code{random = ~ 1 | id1/id2/id3}). Random effects of this form are useful to model clustering (and hence non-independence) induced by a multilevel structure in the data (e.g., outcomes derived from the same paper, lab, research group, or species may be more similar to each other than outcomes derived from different papers, labs, research groups, or species). See, for example, Konstantopoulos (2011) and Nakagawa and Santos (2012) for more details. See \code{\link[metadat]{dat.konstantopoulos2011}}, \code{\link[metadat]{dat.bornmann2007}}, \code{\link[metadat]{dat.obrien2003}}, and \code{\link[metadat]{dat.crede2010}} for examples of multilevel meta-analyses. In addition or alternatively to specifying one or multiple \code{~ 1 | id} terms, the \code{random} argument can also contain a formula of the form \code{~ inner | outer}. Outcomes with the same value of the \code{outer} grouping variable share correlated random effects corresponding to the levels of the \code{inner} grouping variable, while outcomes with different values of the \code{outer} grouping variable are assumed to be independent (note that the \code{inner} variable is automatically treated as a factor). The \code{struct} argument is used to specify the variance structure corresponding to the \code{inner} variable. With \code{struct="CS"}, a compound symmetric structure is assumed (i.e., a single variance component \mjseqn{\tau^2} corresponding to the \mjseqn{j = 1, \ldots, J} levels of the \code{inner} variable and a single correlation coefficient \mjseqn{\rho} for the correlation between the different levels). With \code{struct="HCS"}, a heteroscedastic compound symmetric structure is assumed (with \mjseqn{\tau^2_j} denoting the variance component corresponding to the \mjeqn{j\text{th}}{jth} level of the \code{inner} variable and a single correlation coefficient \mjseqn{\rho} for the correlation between the different levels). With \code{struct="UN"}, an unstructured (but positive definite) variance-covariance matrix is assumed (with \mjseqn{\tau^2_j} as described above and correlation coefficient \mjeqn{\rho_{jj'}}{\rho_jj'} for the combination of the \mjeqn{j\text{th}}{jth} and \mjeqn{j'\text{th}}{j'th} level of the \code{inner} variable). \ifelse{text}{}{For example, for an \code{inner} variable with four levels, these structures correspond to variance-covariance matrices of the form:} \mjtdeqn{\small \begin{array}{ccc} \texttt{struct="CS"} & \texttt{struct="HCS"} & \texttt{struct="UN"} \\\ \left[ \begin{array}{cccc} \tau^2 & & & \\\ \rho\tau^2 & \tau^2 & & \\\ \rho\tau^2 & \rho\tau^2 & \tau^2 & \\\ \rho\tau^2 & \rho\tau^2 & \rho\tau^2 & \tau^2 \end{array} \right] & \left[ \begin{array}{cccc} \tau_1^2 & & & \\\ \rho\tau_2\tau_1 & \tau_2^2 & & \\\ \rho\tau_3\tau_1 & \rho\tau_3\tau_2 & \tau_3^2 & \\\ \rho\tau_4\tau_1 & \rho\tau_4\tau_2 & \rho\tau_4\tau_3 & \tau_4^2 \end{array} \right] & \left[ \begin{array}{cccc} \tau_1^2 & & & \\\ \rho_{21}\tau_2\tau_1 & \tau_2^2 & & \\\ \rho_{31}\tau_3\tau_1 & \rho_{32}\tau_3\tau_2 & \tau_3^2 & \\\ \rho_{41}\tau_4\tau_1 & \rho_{42}\tau_4\tau_2 & \rho_{43}\tau_4\tau_3 & \tau_4^2 \end{array} \right] \end{array}}{\begin{array}{ccc}\texttt{struct="CS"} & \texttt{struct="HCS"} & \texttt{struct="UN"} \\\\\ \begin{bmatrix} \tau^2 & & & \\\\\ \rho\tau^2 & \tau^2 & & \\\\\ \rho\tau^2 & \rho\tau^2 & \tau^2 & \\\\\ \rho\tau^2 & \rho\tau^2 & \rho\tau^2 & \tau^2 \end{bmatrix} & \begin{bmatrix} \tau_1^2 & & & \\\\\ \rho\tau_2\tau_1 & \tau_2^2 & & \\\\\ \rho\tau_3\tau_1 & \rho\tau_3\tau_2 & \tau_3^2 & \\\\\ \rho\tau_4\tau_1 & \rho\tau_4\tau_2 & \rho\tau_4\tau_3 & \tau_4^2 \end{bmatrix} & \begin{bmatrix} \tau_1^2 & & & \\\\\ \rho_{21}\tau_2\tau_1 & \tau_2^2 & & \\\\\ \rho_{31}\tau_3\tau_1 & \rho_{32}\tau_3\tau_2 & \tau_3^2 & \\\\\ \rho_{41}\tau_4\tau_1 & \rho_{42}\tau_4\tau_2 & \rho_{43}\tau_4\tau_3 & \tau_4^2 \end{bmatrix} \end{array}}{} Structures \code{struct="ID"} and \code{struct="DIAG"} are just like \code{struct="CS"} and \code{struct="HCS"}, respectively, except that \mjseqn{\rho} is set to 0, so that we either get a scaled identity matrix or a diagonal matrix. With the \code{outer} term corresponding to a study identification variable and the \code{inner} term to a variable indicating the treatment type or study arm, such a random effect could be used to estimate how strongly different treatment effects or outcomes within the same study are correlated and/or whether the amount of heterogeneity differs across different treatment types/arms. Network meta-analyses (also known as mixed treatment comparisons) will also typically require such a random effect (e.g., Salanti et al., 2008). The meta-analytic bivariate model (e.g., van Houwelingen, Arends, & Stijnen, 2002) can also be fitted in this manner (see the examples below). The \code{inner} term could also correspond to a variable indicating different types of outcomes measured within the same study, which allows for fitting multivariate models with multiple correlated effects/outcomes per study (e.g., Berkey et al., 1998; Kalaian & Raudenbush, 1996). See \code{\link[metadat]{dat.berkey1998}}, \code{\link[metadat]{dat.assink2016}}, \code{\link[metadat]{dat.kalaian1996}}, \code{\link[metadat]{dat.dagostino1998}}, and \code{\link[metadat]{dat.craft2003}} for examples of multivariate meta-analyses with multiple outcomes. See \code{\link[metadat]{dat.knapp2017}}, \code{\link[metadat]{dat.mccurdy2020}}, and \code{\link[metadat]{dat.tannersmith2016}} for further examples of multilevel/multivariate models with complex data structures (see also \link[=misc-recs]{here} for a related discussion of a recommended workflow for such cases). See \code{\link[metadat]{dat.kearon1998}} for an example using a bivariate model to analyze sensitivity and specificity. See \code{\link[metadat]{dat.hasselblad1998}}, \code{\link[metadat]{dat.pagliaro1992}}, \code{\link[metadat]{dat.lopez2019}}, and \code{\link[metadat]{dat.senn2013}} for examples of network meta-analyses. For meta-analyses of studies reporting outcomes at multiple time points, it may also be reasonable to assume that the true effects/outcomes are correlated over time according to an autoregressive structure (Ishak et al., 2007; Trikalinos & Olkin, 2012). For this purpose, one can choose \code{struct="AR"}, corresponding to a structure with a single variance component \mjseqn{\tau^2} and AR(1) autocorrelation among the values of the random effect. The values of the \code{inner} variable should then reflect the various time points, with increasing values reflecting later time points. This structure assumes equally spaced time points, so the actual values of the \code{inner} variable are not relevant, only their ordering. One can also use \code{struct="HAR"}, which allows for fitting a heteroscedastic AR(1) structure (with \mjseqn{\tau^2_j} denoting the variance component of the \mjeqn{j\text{th}}{jth} measurement occasion). Finally, when time points are not evenly spaced, one might consider using \code{struct="CAR"} for a continuous-time autoregressive structure, in which case the values of the \code{inner} variable should reflect the exact time points of the measurement occasions. \ifelse{text}{}{For example, for an \code{inner} variable with four time points, these structures correspond to variance-covariance matrices of the form:} \mjtdeqn{\small \begin{array}{ccc} \texttt{struct="AR"} & \texttt{struct="HAR"} & \texttt{struct="CAR"} \\\ \left[ \begin{array}{cccc} \tau^2 & & & \\\ \rho\tau^2 & \tau^2 & & \\\ \rho^2\tau^2 & \rho\tau^2 & \tau^2 & \\\ \rho^3\tau^2 & \rho^2\tau^2 & \rho\tau^2 & \tau^2 \end{array} \right] & \left[ \begin{array}{cccc} \tau_1^2 & & & \\\ \rho\tau_2\tau_1 & \tau_2^2 & & \\\ \rho^2\tau_3\tau_1 & \rho\tau_3\tau_2 & \tau_3^2 & \\\ \rho^3\tau_4\tau_1 & \rho^2\tau_4\tau_2 & \rho\tau_4\tau_3 & \tau_4^2 \end{array} \right] & \left[ \begin{array}{cccc} \tau^2 & & & \\\ \rho^{|t_2-t_1|}\tau^2 & \tau^2 & & \\\ \rho^{|t_3-t_1|}\tau^2 & \rho^{|t_3-t_2|}\tau^2 & \tau^2 & \\\ \rho^{|t_4-t_1|}\tau^2 & \rho^{|t_4-t_2|}\tau^2 & \rho^{|t_4-t_3|}\tau^2 & \tau^2 \end{array} \right] \end{array}}{\begin{array}{ccc}\texttt{struct="AR"} & \texttt{struct="HAR"} & \texttt{struct="CAR"} \\\\\ \begin{bmatrix} \tau^2 & & & \\\\\ \rho\tau^2 & \tau^2 & & \\\\\ \rho^2\tau^2 & \rho\tau^2 & \tau^2 & \\\\\ \rho^3\tau^2 & \rho^2\tau^2 & \rho\tau^2 & \tau^2 \end{bmatrix} & \begin{bmatrix} \tau_1^2 & & & \\\\\ \rho\tau_2\tau_1 & \tau_2^2 & & \\\\\ \rho^2\tau_3\tau_1 & \rho\tau_3\tau_2 & \tau_3^2 & \\\\\ \rho^3\tau_4\tau_1 & \rho^2\tau_4\tau_2 & \rho\tau_4\tau_3 & \tau_4^2 \end{bmatrix} & \begin{bmatrix} \tau^2 & & & \\\\\ \rho^{|t_2-t_1|}\tau^2 & \tau^2 & & \\\\\ \rho^{|t_3-t_1|}\tau^2 & \rho^{|t_3-t_2|}\tau^2 & \tau^2 & \\\\\ \rho^{|t_4-t_1|}\tau^2 & \rho^{|t_4-t_2|}\tau^2 & \rho^{|t_4-t_3|}\tau^2 & \tau^2 \end{bmatrix} \end{array}}{} See \code{\link[metadat]{dat.fine1993}} and \code{\link[metadat]{dat.ishak2007}} for examples involving such structures. For outcomes that have a known spatial configuration, various spatial correlation structures are also available. For these structures, the formula is of the form \code{random = ~ var1 + var2 + \dots | outer}, where \code{var1}, \code{var2}, and so on are variables to specify the spatial coordinates (e.g., longitude and latitude) based on which distances (by default Euclidean) will be computed. Let \mjseqn{d} denote the distance between two points that share the same value of the \code{outer} variable (if all true effects/outcomes are allowed to be spatially correlated, simply set \code{outer} to a variable that is a constant). Then the correlation between the true effects/outcomes corresponding to these two points is a function of \mjseqn{d} and the parameter \mjseqn{\rho}. The following table shows the types of spatial correlation structures that can be specified and the equations for the correlation. The covariance between the true effects/outcomes is then the correlation times \mjseqn{\tau^2}. \tabular{lllll}{ structure \tab \ics \tab \code{struct} \tab \ics \tab correlation \cr exponential \tab \ics \tab \code{"SPEXP"} \tab \ics \tab \mjeqn{\exp(-d/\rho)}{exp(-d/rho)} \cr Gaussian \tab \ics \tab \code{"SPGAU"} \tab \ics \tab \mjeqn{\exp(-d^2/\rho^2)}{exp(-d^2/rho^2)} \cr linear \tab \ics \tab \code{"SPLIN"} \tab \ics \tab \mjteqn{(1 - d/\rho) I(d < \rho)}{(1 - d/\rho) I(d \lt \rho)}{(1 - d/rho) I(d < rho)} \cr rational quadratic \tab \ics \tab \code{"SPRAT"} \tab \ics \tab \mjeqn{1 - (d/\rho)^2 / (1 + (d/\rho)^2)}{1 - (d/rho)^2 / (1 + (d/rho)^2)} \cr spherical \tab \ics \tab \code{"SPSPH"} \tab \ics \tab \mjteqn{(1 - 1.5(d/\rho) + 0.5(d/\rho)^3) I(d < \rho)}{(1 - 1.5(d/\rho) + 0.5(d/\rho)^3) I(d \lt \rho)}{(1 - 1.5(d/rho) + 0.5(d/rho)^3) I(d < rho)}} Note that \mjteqn{I(d < \rho)}{I(d \lt \rho)}{I(d < \rho)} is equal to \mjseqn{1} if \mjteqn{d < \rho}{d \lt \rho}{d < \rho} and \mjseqn{0} otherwise. The parameterization of the various structures is based on Pinheiro and Bates (2000). Instead of Euclidean distances, one can also use other distance measures by setting (the undocumented) argument \code{dist} to either \code{"maximum"} for the maximum distance between two points (supremum norm), to \code{"manhattan"} for the absolute distance between the coordinate vectors (L1 norm), or to \code{"gcd"} for the great-circle distance (WGS84 ellipsoid method). In the latter case, only two variables, namely the longitude and latitude (in decimal degrees, with minus signs for West and South), must be specified. If a distance matrix has already been computed, one can also pass this matrix as a list element to the \code{dist} argument. In this case, one should use a formula of the form \code{random = ~ id | outer}, where \code{id} are location identifiers, with corresponding row/column names in the distance matrix specified via the \code{dist} argument. See \code{\link[metadat]{dat.maire2019}} for an example of a meta-analysis with a spatial correlation structure. An \code{~ inner | outer} formula can also be used to add random effects to the model corresponding to a set of predictor variables when \code{struct="GEN"}. Here, the \code{inner} term is used to specify one or multiple variables (e.g., \code{random = ~ var1 + var2 | outer}) and corresponding \sQuote{random slopes} are added to the model (and a \sQuote{random intercept} unless the intercept is removed from the \code{inner} term). The variance-covariance matrix of the random effects added in this manner is assumed to be a general unstructured (but positive definite) matrix. Such a random effects structure may be useful in a meta-analysis examining the dose-response relationship between a moderator variable and the size of the true effects/outcomes (sometimes called a \sQuote{dose-response meta-analysis}). See \code{\link[metadat]{dat.obrien2003}} for an example of a meta-analysis examining a dose-response relationship. The \code{random} argument can also contain a second formula of the form \code{~ inner | outer} (but no more!). A second formula of this form works exactly described as above, but its variance components are denoted by \mjseqn{\gamma^2} and its correlation components by \mjseqn{\phi}. The \code{struct} argument should then be of length 2 to specify the variance-covariance structure for the first and second component, respectively. When the \code{random} argument contains a formula of the form \code{~ 1 | id}, one can use the (optional) argument \code{R} to specify a corresponding known correlation matrix for the random effect (i.e., \code{R = list(id = Cor)}, where \code{Cor} is the correlation matrix). In that case, outcomes with the same value of the \code{id} variable receive the same value for the random effect, while outcomes with different values of the \code{id} variable receive values that are correlated as specified in the corresponding correlation matrix given via the \code{R} argument. The column/row names of the correlation matrix given via the \code{R} argument must therefore correspond to the unique values of the \code{id} variable. When the \code{random} argument contains multiple formulas of the form \code{~ 1 | id}, one can specify known correlation matrices for none, some, or all of those terms (e.g., with \code{random = list(~ 1 | id1, ~ 1 | id2)}, one could specify \code{R = list(id1 = Cor1)} or \code{R = list(id1 = Cor1, id2 = Cor2)}, where \code{Cor1} and \code{Cor2} are the correlation matrices corresponding to the grouping variables \code{id1} and \code{id2}, respectively). Such a random effect with a known (or at least approximately known) correlation structure is useful in a variety of contexts. For example, such a component can be used to account for the correlations induced by the shared phylogenetic history among organisms (e.g., plants, fungi, animals). In that case, \code{~ 1 | species} is used to specify the species and argument \code{R} is used to specify the phylogenetic correlation matrix of the species studied in the meta-analysis. The corresponding variance component then indicates how much variance/heterogeneity is attributable to the specified phylogeny. See Nakagawa and Santos (2012) for more details. As another example, in a genetic meta-analysis studying disease association for several single nucleotide polymorphisms (SNPs), linkage disequilibrium (LD) among the SNPs can induce an approximately known degree of correlation among the effects/outcomes. In that case, \code{~ 1 | snp} could be used to specify the SNPs and \code{R} the corresponding LD correlation matrix for the SNPs included in the meta-analysis. The \code{Rscale} argument controls how matrices specified via the \code{R} argument are scaled. With \code{Rscale="none"} (or \code{Rscale=0} or \code{Rscale=FALSE}), no scaling is used. With \code{Rscale="cor"} (or \code{Rscale=1} or \code{Rscale=TRUE}), the \code{\link{cov2cor}} function is used to ensure that the matrices are correlation matrices (assuming they were covariance matrices to begin with). With \code{Rscale="cor0"} (or \code{Rscale=2}), first \code{\link{cov2cor}} is used and then the elements of each correlation matrix are scaled with \mjseqn{(R - \min(R)) / (1 - \min(R))} (this ensures that a correlation of zero in a phylogenetic correlation matrix corresponds to the split at the root node of the tree comprising the species that are actually analyzed). Finally, \code{Rscale="cov0"} (or \code{Rscale=3}) only rescales with \mjseqn{R - \min(R)} (which ensures that a phylogenetic covariance matrix is rooted at the lowest split). See \code{\link[metadat]{dat.moura2021}} and \code{\link[metadat]{dat.lim2014}} for examples of meta-analyses with phylogenetic correlation structures. Together with the variance-covariance matrix of the sampling errors (i.e., \mjseqn{V}), the specified random effects structure of the model implies a particular \sQuote{marginal} variance-covariance matrix of the observed effect sizes or outcomes. Once estimates of the variance components (i.e., of the \mjseqn{\sigma^2}, \mjseqn{\tau^2}, \mjseqn{\rho}, \mjseqn{\gamma^2}, and/or \mjseqn{\phi} values) have been obtained (either using maximum likelihood or restricted maximum likelihood estimation), the estimated marginal variance-covariance matrix can be constructed (denoted by \mjseqn{M}). The model coefficients (i.e., \mjseqn{\beta}) are then estimated with \mjeqn{b = (X'WX')^{-1} X'Wy}{b = (X'WX)^(-1) X'Wy}, where \mjeqn{W = M^{-1}}{W = M^(-1)} is the weight matrix. With the \code{W} argument, one can again specify user-defined weights (or a weight matrix). } \subsection{Fixing Variance/Correlation Components}{ Arguments \code{sigma2}, \code{tau2}, \code{rho}, \code{gamma2}, and \code{phi} can be used to fix particular variance/correlation components at a given value. This is useful for sensitivity analyses (e.g., for plotting the regular/restricted log-likelihood as a function of a particular variance/correlation component), likelihood ratio tests, or for imposing a desired variance-covariance structure on the data. For example, if \code{random = list(~ 1 | id1, ~ 1 | id2)} or \code{random = ~ 1 | id1/id2}, then \code{sigma2} must be of length 2 (corresponding to \mjseqn{\sigma^2_1} and \mjseqn{\sigma^2_2}) and a fixed value can be assigned to either or both variance components. Setting a particular component to \code{NA} means that the component will be estimated by the function (e.g., \code{sigma2=c(0,NA)} would fix \mjseqn{\sigma^2_1} to 0 and estimate \mjseqn{\sigma^2_2}). Argument \code{tau2} is only relevant when the \code{random} argument contains an \code{~ inner | outer} formula. In that case, if the \code{tau2} argument is used, it must be either of length 1 (for \code{"CS"}, \code{"ID"}, \code{"AR"}, \code{"CAR"}, or one of the spatial correlation structures) or of the same length as the number of unique values of the \code{inner} variable (for \code{"HCS"}, \code{"DIAG"}, \code{"UN"}, or \code{"HAR"}). A numeric value in the \code{tau2} argument then fixes the corresponding variance component to that value, while \code{NA} means that the component will be estimated. Similarly, if argument \code{rho} is used, it must be either of length 1 (for \code{"CS"}, \code{"HCS"}, \code{"AR"}, \code{"HAR"}, or one of the spatial correlation structures) or of length \mjseqn{J(J-1)/2} (for \code{"UN"}), where \mjseqn{J} denotes the number of unique values of the \code{inner} variable. Again, a numeric value fixes the corresponding correlation, while \code{NA} means that the correlation will be estimated. For example, with \code{struct="CS"} and \code{rho=0}, the variance-covariance matrix of the \code{inner} variable will be diagonal with \mjseqn{\tau^2} along the diagonal. For \code{struct="UN"}, the values specified under \code{rho} should be given in column-wise order (e.g., for an \code{inner} variable with four levels, the order would be \mjeqn{\rho_{21}}{\rho_21}, \mjeqn{\rho_{31}}{\rho_31}, \mjeqn{\rho_{41}}{\rho_41}, \mjeqn{\rho_{32}}{\rho_32}, \mjeqn{\rho_{42}}{\rho_42}, \mjeqn{\rho_{43}}{\rho_43}). Similarly, arguments \code{gamma2} and \code{phi} are only relevant when the \code{random} argument contains a second \code{~ inner | outer} formula. The arguments then work exactly as described above. } \subsection{Omnibus Test of Moderators}{ For models including moderators, an omnibus test of all model coefficients is conducted that excludes the intercept (the first coefficient) if it is included in the model. If no intercept is included in the model, then the omnibus test includes all coefficients in the model including the first. Alternatively, one can manually specify the indices of the coefficients to test via the \code{btt} (\sQuote{betas to test}) argument (i.e., to test \mjseqn{\text{H}_0{:}\; \beta_{j \in \texttt{btt}} = 0}, where \mjseqn{\beta_{j \in \texttt{btt}}} is the set of coefficients to be tested). For example, with \code{btt=c(3,4)}, only the third and fourth coefficients from the model are included in the test (if an intercept is included in the model, then it corresponds to the first coefficient in the model). Instead of specifying the coefficient numbers, one can specify a string for \code{btt}. In that case, \code{\link{grep}} will be used to search for all coefficient names that match the string. The omnibus test is called the \mjseqn{Q_M}-test and follows asymptotically a chi-square distribution with \mjseqn{m} degrees of freedom (with \mjseqn{m} denoting the number of coefficients tested) under the null hypothesis (that the true value of all coefficients tested is equal to 0). } \subsection{Categorical Moderators}{ Categorical moderator variables can be included in the model via the \code{mods} argument in the same way that appropriately (dummy) coded categorical variables can be included in linear models. One can either do the dummy coding manually or use a model formula together with the \code{\link{factor}} function to automate the coding (note that string/character variables in a model formula are automatically converted to factors). } \subsection{Tests and Confidence Intervals}{ By default, tests of individual coefficients in the model (and the corresponding confidence intervals) are based on a standard normal distribution, while the omnibus test is based on a chi-square distribution (see above). As an alternative, one can set \code{test="t"}, in which case tests of individual coefficients and confidence intervals are based on a t-distribution with \mjseqn{k-p} degrees of freedom, while the omnibus test then uses an F-distribution with \mjseqn{m} and \mjseqn{k-p} degrees of freedom (with \mjseqn{k} denoting the total number of estimates included in the analysis and \mjseqn{p} the total number of model coefficients including the intercept if it is present). Note that \code{test="t"} is not the same as \code{test="knha"} in \code{\link{rma.uni}}, as no adjustment to the standard errors of the estimated coefficients is made. The method for calculating the (denominator) degrees of freedom described above (which corresponds to \code{dfs="residual"}) is quite simplistic and may lead to tests with inflated Type I error rates and confidence intervals that are too narrow on average. As an alternative, one can set \code{dfs="contain"} (which automatically also sets \code{test="t"}), in which case the degrees of freedom for the test of a particular model coefficient, \mjseqn{b_j}, are determined by checking whether \mjseqn{x_j}, the corresponding column of the model matrix \mjseqn{X}, varies at the level corresponding to a particular random effect in the model. If such a random effect can be found, then the degrees of freedom are set to \mjseqn{l-p}, where \mjseqn{l} denotes the number of unique values of this random effect (i.e., for an \code{~ 1 | id} term, the number of unique values of the \code{id} variable and for an \code{~ inner | outer} term, the number of unique values of the \code{outer} variable). If no such random effect can be found, then \mjseqn{k-p} is used as the degrees of freedom. For the omnibus F-test, the minimum of the degrees of freedom of all coefficients involved in the test is used as the denominator degrees of freedom. This approach for calculating the degrees of freedom should often lead to tests with better control of the Type I error rate and confidence intervals with closer to nominal coverage rates (see also \link[=misc-recs]{here}). One can also set \code{dfs} to a numeric vector with the desired values for the degrees of freedom for testing the model coefficients (e.g., if some other method for determining the degrees of freedom was used). } \subsection{Tests and Confidence Intervals for Variance/Correlation Components}{ Depending on the random effects structure specified, the model may include one or multiple variance/correlation components. Profile likelihood confidence intervals for such components can be obtained using the \code{\link[=confint.rma.mv]{confint}} function. Corresponding likelihood ratio tests can be obtained using the \code{\link[=anova.rma]{anova}} function (by comparing two models where the size of the component to be tested is constrained to some null value in the reduced model). It is also always a good idea to examine plots of the (restricted) log-likelihood as a function of the variance/correlation components in the model using the \code{\link[=profile.rma.mv]{profile}} function to check for parameter identifiability (see \sQuote{Note}). } \subsection{Test for (Residual) Heterogeneity}{ A test for (residual) heterogeneity is automatically carried out by the function. Without moderators in the model, this test is the generalized/weighted least squares extension of Cochran's \mjseqn{Q}-test, which tests whether the variability in the observed effect sizes or outcomes is larger than one would expect based on sampling variability (and the given covariances among the sampling errors) alone. A significant test suggests that the true effects/outcomes are heterogeneous. When moderators are included in the model, this is the \mjseqn{Q_E}-test for residual heterogeneity, which tests whether the variability in the observed effect sizes or outcomes that is not accounted for by the moderators included in the model is larger than one would expect based on sampling variability (and the given covariances among the sampling errors) alone. } \subsection{Variance-Covariance Matrix of the Variance/Correlation Components}{ In some cases, one might want to obtain the variance-covariance matrix of the variance/correlation components of the model (i.e., of the estimated \mjseqn{\sigma^2}, \mjseqn{\tau^2}, \mjseqn{\rho}, \mjseqn{\gamma^2}, and \mjseqn{\phi} values). The function will try to calculate this matrix when \code{cvvc=TRUE} (or equivalently, when \code{cvvc="varcor"}). When \code{struct="UN"}, one can also set \code{cvvc="varcov"} in which case the variance-covariance matrix is given for the variance and covariance components (instead of the correlation components). The element of the model object that contains the resulting variance-covariance matrix is called \sQuote{\code{vvc}}. See \code{\link{matreg}} for an example making use of such a matrix. } } \value{ An object of class \code{c("rma.mv","rma")}. The object is a list containing the following components: \item{beta}{estimated coefficients of the model.} \item{se}{standard errors of the coefficients.} \item{zval}{test statistics of the coefficients.} \item{pval}{corresponding p-values.} \item{ci.lb}{lower bound of the confidence intervals for the coefficients.} \item{ci.ub}{upper bound of the confidence intervals for the coefficients.} \item{vb}{variance-covariance matrix of the estimated coefficients.} \item{sigma2}{estimated \mjseqn{\sigma^2} value(s).} \item{tau2}{estimated \mjseqn{\tau^2} value(s).} \item{rho}{estimated \mjseqn{\rho} value(s).} \item{gamma2}{estimated \mjseqn{\gamma^2} value(s).} \item{phi}{estimated \mjseqn{\phi} value(s).} \item{k}{number of observed effect sizes or outcomes included in the analysis.} \item{p}{number of coefficients in the model (including the intercept).} \item{m}{number of coefficients included in the omnibus test of moderators.} \item{QE}{test statistic of the test for (residual) heterogeneity.} \item{QEp}{corresponding p-value.} \item{QM}{test statistic of the omnibus test of moderators.} \item{QMp}{corresponding p-value.} \item{int.only}{logical that indicates whether the model is an intercept-only model.} \item{yi, V, X}{the vector of outcomes, the corresponding variance-covariance matrix of the sampling errors, and the model matrix.} \item{M}{the estimated marginal variance-covariance matrix of the observed effect sizes or outcomes.} \item{fit.stats}{a list with the log-likelihood, deviance, AIC, BIC, and AICc values.} \item{vvc}{variance-covariance matrix of the variance/correlation components (\code{NA} when \code{cvvc=FALSE}).} \item{\dots}{some additional elements/values.} } \section{Methods}{ The results of the fitted model are formatted and printed with the \code{\link[=print.rma.mv]{print}} function. If fit statistics should also be given, use \code{\link[=summary.rma]{summary}} (or use the \code{\link[=fitstats.rma]{fitstats}} function to extract them). Full versus reduced model comparisons in terms of fit statistics and likelihood ratio tests can be obtained with \code{\link[=anova.rma]{anova}}. Wald-type tests for sets of model coefficients or linear combinations thereof can be obtained with the same function. Tests and confidence intervals based on (cluster) robust methods can be obtained with \code{\link[=robust.rma.mv]{robust}}. Predicted/fitted values can be obtained with \code{\link[=predict.rma]{predict}} and \code{\link[=fitted.rma]{fitted}}. For best linear unbiased predictions, see \code{\link[=ranef.rma.mv]{ranef}}. The \code{\link[=residuals.rma]{residuals}}, \code{\link[=rstandard.rma.mv]{rstandard}}, and \code{\link[=rstudent.rma.mv]{rstudent}} functions extract raw and standardized residuals. See \code{\link[=influence.rma.mv]{influence}} for additional model diagnostics (e.g., to determine influential studies). For models with moderators, variance inflation factors can be obtained with \code{\link[=vif.rma]{vif}}. Confidence intervals for any variance/correlation components in the model can be obtained with \code{\link[=confint.rma.mv]{confint}}. For random/mixed-effects models, the \code{\link[=profile.rma.mv]{profile}} function can be used to obtain a plot of the (restricted) log-likelihood as a function of a specific variance/correlation component of the model. For models with moderators, \code{\link[=regplot.rma]{regplot}} draws scatter plots / bubble plots, showing the (marginal) relationship between the observed outcomes and a selected moderator from the model. Other extractor functions include \code{\link[=coef.rma]{coef}}, \code{\link[=vcov.rma]{vcov}}, \code{\link[=se.rma]{se}}, \code{\link[=fitstats]{logLik}}, \code{\link[=fitstats]{deviance}}, \code{\link[=fitstats]{AIC}}, \code{\link[=fitstats]{BIC}}, \code{\link[=hatvalues.rma.mv]{hatvalues}}, and \code{\link[=weights.rma.mv]{weights}}. } \note{ Argument \code{V} also accepts a list of variance-covariance matrices for the observed effect sizes or outcomes. From the list elements, the full (block diagonal) variance-covariance matrix is then automatically constructed. For this to work correctly, the list elements must be in the same order as the observed outcomes. Model fitting is done via numerical optimization over the model parameters. By default, \code{\link{nlminb}} is used for the optimization. One can also chose a different optimizer from \code{\link{optim}} via the \code{control} argument (e.g., \code{control=list(optimizer="BFGS")} or \code{control=list(optimizer="Nelder-Mead")}). Besides \code{\link{nlminb}} and one of the methods from \code{\link{optim}}, one can also choose one of the optimizers from the \code{minqa} package (i.e., \code{\link[minqa]{uobyqa}}, \code{\link[minqa]{newuoa}}, or \code{\link[minqa]{bobyqa}}), one of the (derivative-free) algorithms from the \code{\link[nloptr]{nloptr}} package, the Newton-type algorithm implemented in \code{\link{nlm}}, the various algorithms implemented in the \code{dfoptim} package (\code{\link[dfoptim]{hjk}} for the Hooke-Jeeves, \code{\link[dfoptim]{nmk}} for the Nelder-Mead, and \code{\link[dfoptim]{mads}} for the Mesh Adaptive Direct Searches algorithm), the quasi-Newton type optimizers \code{\link[ucminf]{ucminf}} and \code{\link[lbfgsb3c]{lbfgsb3c}} and the subspace-searching simplex algorithm \code{\link[subplex]{subplex}} from the packages of the same name, the Barzilai-Borwein gradient decent method implemented in \code{\link[BB]{BBoptim}}, the \code{\link[optimx]{Rcgmin}} and \code{\link[optimx]{Rvmmin}} optimizers, or the parallelized version of the L-BFGS-B algorithm implemented in \code{\link[optimParallel]{optimParallel}} from the package of the same name. The optimizer name must be given as a character string (i.e., in quotes). Additional control parameters can be specified via the \code{control} argument (e.g., \code{control=list(iter.max=1000, rel.tol=1e-8)}). For \code{\link[nloptr]{nloptr}}, the default is to use the BOBYQA implementation from that package with a relative convergence criterion of \code{1e-8} on the function value (i.e., log-likelihood), but this can be changed via the \code{algorithm} and \code{ftop_rel} arguments (e.g., \code{control=list(optimizer="nloptr", algorithm="NLOPT_LN_SBPLX", ftol_rel=1e-6)}). For \code{\link[optimParallel]{optimParallel}}, the control argument \code{ncpus} can be used to specify the number of cores to use for the parallelization (e.g., \code{control=list(optimizer="optimParallel", ncpus=2)}). Control argument \code{mfmaxit} (which is \code{Inf} by default and is independent of the control arguments of the various optimizers) hard exits when the specified number of iterations has been exceeded. Control argument \code{nearpd} can be set to \code{TRUE} to force the marginal variance-covariance matrix of the observed effect sizes or outcomes to be positive definite (using the \code{\link[Matrix]{nearPD}} function from the \href{https://cran.r-project.org/package=Matrix}{Matrix} package). When using the \code{cvvc} argument, the variance-covariance matrix of the variance/correlation components are obtained by inverting the Hessian, which is numerically approximated using the \code{\link[numDeriv]{hessian}} function from the \code{numDeriv} package. Note that these computations may not be numerically stable, especially when the estimates are close to their parameter bounds. One can set control argument \code{hessianCtrl} to a list of named arguments to be passed on to the \code{method.args} argument of the \code{\link[numDeriv]{hessian}} function (the default is \code{control=list(hessianCtrl=list(r=8))}). One can also set \code{control=list(hesspack="pracma")} or \code{control=list(hesspack="calculus")} in which case the \code{pracma::\link[pracma]{hessian}} or \code{calculus::\link[calculus]{hessian}} functions from the respective packages are used instead for approximating the Hessian. At the moment, the starting values are not chosen in a terribly clever way and could be far off. As a result, the optimizer may be slow to converge or may even get stuck at a local maximum. One can set the starting values manually for the various variance/correlation components in the model via the \code{control} argument by specifying the vectors \code{sigma2.init}, \code{tau2.init}, \code{rho.init}, \code{gamma2.init}, and/or \code{phi.init} as needed. Especially for complex models, it is a good idea to try out different starting values to make sure that the same estimates are obtained. Information on the progress of the optimization algorithm can be obtained by setting \code{verbose=TRUE} (this won't work when using parallelization). Since fitting complex models with many random effects can be computationally expensive, this option is useful to determine how the model fitting is progressing. One can also set \code{verbose} to an integer (\code{verbose=2} yields even more information and \code{verbose=3} also sets \code{option(warn=1)} temporarily). Whether a particular variance/correlation component is actually identifiable needs to be carefully examined when fitting complex models. The function does some limited checking internally to fix variances and/or correlations to zero when it is appears that insufficient information is available to estimate a particular parameter. For example, if a particular factor only has a single level, the corresponding variance component is set to 0 (this check can be switched off with \code{control=list(check.k.gtr.1=FALSE)}). However, it is strongly advised in general to do post model fitting checks to make sure that the likelihood surface around the ML/REML estimates is not flat for some of the parameter estimates (which would imply that the estimates are essentially arbitrary). For example, one can plot the (restricted) log-likelihood as a function of each variance/correlation component in the model to make sure that each profile plot shows a clear peak at the corresponding ML/REML estimate. The \code{\link[=profile.rma.mv]{profile}} function can be used for this purpose. Finally, note that the model fitting is not done in a very efficient manner at the moment, which is partly a result of allowing for crossed random effects and correlations across the entire dataset (e.g., when using the \code{R} argument). As a result, the function works directly with the entire \mjeqn{k \times k}{kxk} (marginal) variance-covariance matrix of the observed effect sizes or outcomes (instead of working with smaller blocks in a block diagonal structure). As a result, model fitting can be slow for large \mjseqn{k}. However, when the variance-covariance structure is actually sparse, a lot of speed can be gained by setting \code{sparse=TRUE}, in which case sparse matrix objects are used (via the \href{https://cran.r-project.org/package=Matrix}{Matrix} package). Also, when model fitting appears to be slow, setting \code{verbose=TRUE} is useful to obtain information on how the model fitting is progressing. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Berkey, C. S., Hoaglin, D. C., Antczak-Bouckoms, A., Mosteller, F., & Colditz, G. A. (1998). Meta-analysis of multiple outcomes by regression with random effects. \emph{Statistics in Medicine}, \bold{17}(22), 2537--2550. \verb{https://doi.org/10.1002/(sici)1097-0258(19981130)17:22<2537::aid-sim953>3.0.co;2-c} Gleser, L. J., & Olkin, I. (2009). Stochastically dependent effect sizes. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (2nd ed., pp. 357--376). New York: Russell Sage Foundation. Ishak, K. J., Platt, R. W., Joseph, L., Hanley, J. A., & Caro, J. J. (2007). Meta-analysis of longitudinal studies. \emph{Clinical Trials}, \bold{4}(5), 525--539. \verb{https://doi.org/10.1177/1740774507083567} Kalaian, H. A., & Raudenbush, S. W. (1996). A multivariate mixed linear model for meta-analysis. \emph{Psychological Methods}, \bold{1}(3), 227--235. \verb{https://doi.org/10.1037/1082-989X.1.3.227} Konstantopoulos, S. (2011). Fixed effects and variance components estimation in three-level meta-analysis. \emph{Research Synthesis Methods}, \bold{2}(1), 61--76. \verb{https://doi.org/10.1002/jrsm.35} Lajeunesse, M. J. (2011). On the meta-analysis of response ratios for studies with correlated and multi-group designs. \emph{Ecology}, \bold{92}(11), 2049--2055. \verb{https://doi.org/10.1890/11-0423.1} Nakagawa, S., & Santos, E. S. A. (2012). Methodological issues and advances in biological meta-analysis. \emph{Evolutionary Ecology}, \bold{26}(5), 1253--1274. \verb{https://doi.org/10.1007/s10682-012-9555-5} Pinheiro, J. C., & Bates, D. (2000). \emph{Mixed-effects models in S and S-PLUS}. New York: Springer. Steiger, J. H. (1980). Tests for comparing elements of a correlation matrix. \emph{Psychological Bulletin}, \bold{87}(2), 245--251. \verb{https://doi.org/10.1037/0033-2909.87.2.245} Salanti, G., Higgins, J. P. T., Ades, A. E., & Ioannidis, J. P. A. (2008). Evaluation of networks of randomized trials. \emph{Statistical Methods in Medical Research}, \bold{17}(3), 279--301. \verb{https://doi.org/10.1177/0962280207080643} Trikalinos, T. A., & Olkin, I. (2012). Meta-analysis of effect sizes reported at multiple time points: A multivariate approach. \emph{Clinical Trials}, \bold{9}(5), 610--620. \verb{https://doi.org/10.1177/1740774512453218} van Houwelingen, H. C., Arends, L. R., & Stijnen, T. (2002). Advanced methods in meta-analysis: Multivariate approach and meta-regression. \emph{Statistics in Medicine}, \bold{21}(4), 589--624. \verb{https://doi.org/10.1002/sim.1040} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Wei, Y., & Higgins, J. P. (2013). Estimating within-study covariances in multivariate meta-analysis with multiple outcomes. \emph{Statistics in Medicine}, \bold{32}(7), 1191--1205. \verb{https://doi.org/10.1002/sim.5679} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, and \code{\link{rma.glmm}} for other model fitting functions. } \examples{ ### calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat ### fit random-effects model using rma.uni() rma(yi, vi, data=dat) ### fit random-effects model using rma.mv() ### note: sigma^2 in this model is the same as tau^2 from the previous model rma.mv(yi, vi, random = ~ 1 | trial, data=dat) ### change data into long format dat.long <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, append=FALSE) dat.long ### set levels/labels for group ("con" = control/non-vaccinated, "exp" = experimental/vaccinated) dat.long$group <- factor(dat.long$group, levels=c(2,1), labels=c("con","exp")) dat.long ### calculate log odds and corresponding sampling variances dat.long <- escalc(measure="PLO", xi=out1, mi=out2, data=dat.long) dat.long ### fit bivariate random-effects model using rma.mv() res <- rma.mv(yi, vi, mods = ~ group, random = ~ group | study, struct="UN", data=dat.long) res } \keyword{models} metafor/man/print.permutest.rma.uni.Rd0000644000176200001440000000406115173343621017512 0ustar liggesusers\name{print.permutest.rma.uni} \alias{print.permutest.rma.uni} \title{Print Method for 'permutest.rma.uni' Objects} \description{ Function to print objects of class \code{"permutest.rma.uni"}. } \usage{ \method{print}{permutest.rma.uni}(x, digits=x$digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) } \arguments{ \item{x}{an object of class \code{"permutest.rma.uni"} obtained with \code{\link[=permutest.rma.uni]{permutest}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{signif.stars}{logical to specify whether p-values should be encoded visually with \sQuote{significance stars}. Defaults to the \code{show.signif.stars} slot of \code{\link{options}}.} \item{signif.legend}{logical to specify whether the legend for the \sQuote{significance stars} should be printed. Defaults to the value for \code{signif.stars}.} \item{\dots}{other arguments.} } \details{ The output includes: \itemize{ \item the results of the omnibus test of moderators. Suppressed if the model includes only one coefficient (e.g., only an intercept, like in the equal- and random-effects models). The p-value is based on the permutation test. \item a table with the estimated coefficients, corresponding standard errors, test statistics, p-values, and confidence interval bounds. The p-values are based on permutation tests. If \code{permci} was set to \code{TRUE}, then the permutation-based CI bounds are shown. } } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=permutest.rma.uni]{permutest}} for the function to create \code{permutest.rma.uni} objects. } \keyword{print} metafor/man/print.rma.Rd0000644000176200001440000003104115173343621014667 0ustar liggesusers\name{print.rma} \alias{print} \alias{print.rma} \alias{print.rma.uni} \alias{print.rma.mh} \alias{print.rma.peto} \alias{print.rma.glmm} \alias{print.rma.mv} \alias{summary} \alias{summary.rma} \alias{print.summary.rma} \title{Print and Summary Methods for 'rma' Objects} \description{ Functions to print objects of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}, \code{"rma.glmm"}, \code{"rma.glmm"}, and \code{"rma.mv"}. \loadmathjax } \usage{ \method{print}{rma.uni}(x, digits, showfit=FALSE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) \method{print}{rma.mh}(x, digits, showfit=FALSE, \dots) \method{print}{rma.peto}(x, digits, showfit=FALSE, \dots) \method{print}{rma.glmm}(x, digits, showfit=FALSE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) \method{print}{rma.mv}(x, digits, showfit=FALSE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) \method{summary}{rma}(object, digits, \dots) \method{print}{summary.rma}(x, digits, showfit=TRUE, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}, \code{"rma.glmm"}, \code{"rma.mv"}, or \code{"summary.rma"} (for \code{print}).} \item{object}{an object of class \code{"rma"} (for \code{summary}).} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object. See also \link[=misc-options]{here} for further details on how to control the number of digits in the output.} \item{showfit}{logical to specify whether the fit statistics and information criteria should be printed (the default is \code{FALSE} for \code{print} and \code{TRUE} for \code{summary}).} \item{signif.stars}{logical to specify whether p-values should be encoded visually with \sQuote{significance stars}. Defaults to the \code{show.signif.stars} slot of \code{\link{options}}.} \item{signif.legend}{logical to specify whether the legend for the \sQuote{significance stars} should be printed. Defaults to the value for \code{signif.stars}.} \item{\dots}{other arguments.} } \details{ The output includes: \itemize{ \item the log-likelihood, deviance, AIC, BIC, and AICc value (when setting \code{showfit=TRUE} or by default for \code{summary}). \item for objects of class \code{"rma.uni"} and \code{"rma.glmm"}, the amount of (residual) heterogeneity in the random/mixed-effects model (i.e., the estimate of \mjseqn{\tau^2} and its square root). Suppressed for equal-effects models. The (asymptotic) standard error of the estimate of \mjseqn{\tau^2} is also provided (where possible). \item for objects of \code{"rma.mv"}, a table providing information about the variance components and correlations in the model. For \mjseqn{\sigma^2} components, the estimate and its square root are provided, in addition to the number of values/levels, whether the component was fixed or estimated, and the name of the grouping variable/factor. If the \code{R} argument was used to specify a known correlation matrix for a particular random effect, then this is also indicated. For models with an \sQuote{\code{~ inner | outer}} formula term, the name of the inner and outer grouping variable/factor are given and the number of values/levels of these variables/factors. In addition, for each \mjseqn{\tau^2} component, the estimate and its square root are provided, the number of effects or outcomes observed at each level of the inner grouping variable/factor (only for \code{struct="HCS"}, \code{struct="DIAG"}, \code{struct="HAR"}, and \code{struct="UN"}), and whether the component was fixed or estimated. Finally, either the estimate of \mjseqn{\rho} (for \code{struct="CS"}, \code{struct="AR"}, \code{struct="CAR"}, \code{struct="HAR"}, or \code{struct="HCS"}) or the entire estimated correlation matrix (for \code{struct="UN"}) between the levels of the inner grouping variable/factor is provided, again with information whether a particular correlation was fixed or estimated, and how often each combination of levels of the inner grouping variable/factor was observed across the levels of the outer grouping variable/factor. If there is a second \sQuote{\code{~ inner | outer}} formula term, the same information as described above will be provided, but now for the \mjseqn{\gamma^2} and \mjseqn{\phi} components. \item for objects of class \code{"rma.uni"}: \itemize{ \item the \mjseqn{I^2} statistic, which estimates (in percent) how much of the total variability in the observed effect sizes or outcomes (which is composed of heterogeneity plus sampling variability) can be attributed to heterogeneity among the true effects. For a meta-regression model, \mjseqn{I^2} estimates how much of the unaccounted variability (which is composed of residual heterogeneity plus sampling variability) can be attributed to residual heterogeneity. See \sQuote{Note} for how \mjseqn{I^2} is computed. \item the \mjseqn{H^2} statistic, which estimates the ratio of the total amount of variability in the observed effect sizes or outcomes to the amount of sampling variability. For a meta-regression model, \mjseqn{H^2} estimates the ratio of the unaccounted variability in the observed effect sizes or outcomes to the amount of sampling variability. See \sQuote{Note} for how \mjseqn{H^2} is computed. \item the \mjseqn{R^2} statistic, which estimates the amount of heterogeneity accounted for by the moderators included in the model and can be regarded as a pseudo \mjseqn{R^2} statistic (Raudenbush, 2009). Only provided when fitting a model including moderators. See \sQuote{Note} for how \mjseqn{R^2} is computed. } \item for objects of class \code{"rma.glmm"}, the amount of study level variability (only when using a model that models study level differences as a random effect). \item the results of the test for (residual) heterogeneity. This is the usual \mjseqn{Q}-test for heterogeneity when not including moderators in the model and the \mjseqn{Q_E}-test for residual heterogeneity when moderators are included. For objects of class \code{"rma.glmm"}, the results from a Wald-type test and a likelihood ratio test are provided (see \code{\link{rma.glmm}} for more details). \item the results of the omnibus (Wald-type) test of the coefficients in the model (the indices of the coefficients tested are also indicated). Suppressed if the model includes only one coefficient (e.g., only an intercept, like in the equal- and random-effects models). \item a table with the estimated coefficients, corresponding standard errors, test statistics, p-values, and confidence interval bounds. \item the Cochran-Mantel-Haenszel test and Tarone's test for heterogeneity (only when analyzing odds ratios using the Mantel-Haenszel method, i.e., for objects of class \code{"rma.mh"}). } See \link[=misc-options]{here} for details on the option to create styled/colored output with the help of the \href{https://cran.r-project.org/package=crayon}{crayon} package. } \value{ The \code{print} functions do not return an object. The \code{summary} function returns the object passed to it (with additional class \code{"summary.rma"}). } \note{ For random-effects models, the \mjseqn{I^2} statistic is computed with \mjdeqn{I^2 = 100\\\\\\\% \times \frac{\hat{\tau}^2}{\hat{\tau}^2 + \tilde{v}},}{I^2 = 100\\\% hat(\tau)^2 / (hat(\tau)^2 + v),} where \mjeqn{\hat{\tau}^2}{hat(\tau)^2} is the estimated value of \mjseqn{\tau^2} and \mjdeqn{\tilde{v} = \frac{(k-1) \sum w_i}{(\sum w_i)^2 - \sum w_i^2},}{v = ((k-1) \sum w_i) / ((\sum w_i)^2 - \sum w_i^2),} where \mjseqn{w_i = 1 / v_i} is the inverse of the sampling variance of the \mjeqn{i\text{th}}{ith} study (\mjeqn{\tilde{v}}{v} is equation 9 in Higgins & Thompson, 2002, and can be regarded as the \sQuote{typical} within-study variance of the observed effect sizes or outcomes). The \mjseqn{H^2} statistic is computed with \mjdeqn{H^2 = \frac{\hat{\tau}^2 + \tilde{v}}{\tilde{v}}.}{H^2 = (hat(\tau)^2 + v) / v.} Analogous equations are used for mixed-effects models. Therefore, depending on the estimator of \mjseqn{\tau^2} used, the values of \mjseqn{I^2} and \mjseqn{H^2} will change. For random-effects models, \mjseqn{I^2} and \mjseqn{H^2} are often computed with \mjseqn{I^2 = (Q-(k-1))/Q} and \mjseqn{H^2 = Q/(k-1)}, where \mjseqn{Q} denotes the statistic of the test for heterogeneity and \mjseqn{k} the number of studies (i.e., observed effect sizes or outcomes) included in the meta-analysis. The equations used in the \pkg{metafor} package to compute these statistics are more general and have the advantage that the values of \mjseqn{I^2} and \mjseqn{H^2} will be consistent with the estimated value of \mjseqn{\tau^2} (i.e., if \mjeqn{\hat{\tau}^2 = 0}{hat(\tau)^2 = 0}, then \mjseqn{I^2 = 0} and \mjseqn{H^2 = 1} and if \mjteqn{\hat{\tau}^2 > 0}{\hat{\tau}^2 \gt 0}{hat(\tau)^2 > 0}, then \mjteqn{I^2 > 0}{I^2 \gt 0}{I^2 > 0} and \mjteqn{H^2 > 1}{H^2 \gt 1}{H^2 > 1}). The two definitions of \mjseqn{I^2} and \mjseqn{H^2} actually coincide when using the DerSimonian-Laird estimator of \mjseqn{\tau^2} (i.e., the commonly used equations are actually special cases of the more general definitions given above). Therefore, if you prefer the more conventional definitions of these statistics, use \code{method="DL"} when fitting the random/mixed-effects model with the \code{\link{rma.uni}} function. The conventional definitions are also automatically used when fitting an equal-effects models. For mixed-effects models, the pseudo \mjseqn{R^2} statistic (Raudenbush, 2009) is computed with \mjdeqn{R^2 = \frac{\hat{\tau}_{RE}^2 - \hat{\tau}_{ME}^2}{\hat{\tau}_{RE}^2},}{R^2 = (hat(\tau)^2_RE - hat(\tau)^2_ME) / hat(\tau)^2_RE,} where \mjeqn{\hat{\tau}_{RE}^2}{hat(\tau)^2_RE} denotes the estimated value of \mjseqn{\tau^2} based on the random-effects model (i.e., the total amount of heterogeneity) and \mjeqn{\hat{\tau}_{ME}^2}{hat(\tau)^2_ME} denotes the estimated value of \mjseqn{\tau^2} based on the mixed-effects model (i.e., the residual amount of heterogeneity). It can happen that \mjteqn{\hat{\tau}_{RE}^2 < \hat{\tau}_{ME}^2}{\hat{\tau}_{RE}^2 \lt \hat{\tau}_{ME}^2}{hat(\tau)^2_RE < hat(\tau)^2_ME}, in which case \mjseqn{R^2} is set to zero (and also if \mjeqn{\hat{\tau}_{RE}^2 = 0}{hat(\tau)^2_RE = 0}). Again, the value of \mjseqn{R^2} will change depending on the estimator of \mjseqn{\tau^2} used. This statistic is only computed when the random-effects model is nested within the mixed-effects model. You can also use the \code{\link[=anova.rma]{anova}} function to compute \mjseqn{R^2} for any two models that are known to be nested. Note that the pseudo \mjseqn{R^2} statistic may not be very accurate unless \mjseqn{k} is large (\enc{López-López}{Lopez-Lopez} et al., 2014). For fixed-effects with moderators models, the \mjseqn{R^2} statistic is simply the standard \mjseqn{R^2} statistic (also known as the \sQuote{coefficient of determination}) computed based on weighted least squares estimation. To be precise, the so-called \sQuote{adjusted} \mjseqn{R^2} statistic is provided, since \mjseqn{k} is often relatively small in meta-analyses, in which case the adjustment is relevant. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Higgins, J. P. T., & Thompson, S. G. (2002). Quantifying heterogeneity in a meta-analysis. \emph{Statistics in Medicine}, \bold{21}(11), 1539--1558. \verb{https://doi.org/10.1002/sim.1186} \enc{López-López}{Lopez-Lopez}, J. A., \enc{Marín-Martínez}{Marin-Martinez}, F., \enc{Sánchez-Meca}{Sanchez-Meca}, J., Van den Noortgate, W., & Viechtbauer, W. (2014). Estimation of the predictive power of the model in mixed-effects meta-regression: A simulation study. \emph{British Journal of Mathematical and Statistical Psychology}, \bold{67}(1), 30--48. \verb{https://doi.org/10.1111/bmsp.12002} Raudenbush, S. W. (2009). Analyzing effect sizes: Random effects models. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (2nd ed., pp. 295--315). New York: Russell Sage Foundation. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for the corresponding model fitting functions. } \keyword{print} metafor/man/blsplit.Rd0000644000176200001440000000303415173343621014427 0ustar liggesusers\name{blsplit} \alias{blsplit} \title{Split Block Diagonal Matrix} \description{ Function to split a block diagonal matrix into a list of sub-matrices. } \usage{ blsplit(x, cluster, fun, args, sort=FALSE) } \arguments{ \item{x}{a block diagonal matrix.} \item{cluster}{vector to specify the clustering variable to use for splitting.} \item{fun}{optional argument to specify a function to apply to each sub-matrix.} \item{args}{optional argument to specify any additional argument(s) for the function specified via \code{fun}.} \item{sort}{logical to specify whether to sort the list by the unique cluster values (the default is \code{FALSE}).} } \value{ A list of one or more sub-matrices. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \seealso{ \code{\link{bldiag}} for a function to create a block diagonal matrix based on sub-matrices. \code{\link{vcalc}} for a function to construct a variance-covariance matrix of dependent effect sizes or outcomes, which often has a block diagonal structure. } \examples{ ### copy data into 'dat' dat <- dat.assink2016 ### assume that the effect sizes within studies are correlated with rho=0.6 V <- vcalc(vi, cluster=study, obs=esid, data=dat, rho=0.6) ### split V matrix into list of sub-matrices Vs <- blsplit(V, cluster=dat$study) Vs[1:2] lapply(Vs[1:2], cov2cor) ### illustrate the use of the fun and args arguments blsplit(V, cluster=dat$study, cov2cor)[1:2] blsplit(V, cluster=dat$study, round, 3)[1:2] } \keyword{manip} metafor/man/coef.rma.Rd0000644000176200001440000000432015173343621014447 0ustar liggesusers\name{coef.rma} \alias{coef} \alias{coef.rma} \alias{coef.summary.rma} \title{Extract the Model Coefficients and Coefficient Table from 'rma' and 'summary.rma' Objects} \description{ Function to extract the estimated model coefficients from objects of class \code{"rma"}. For objects of class \code{"summary.rma"}, the model coefficients, corresponding standard errors, test statistics, p-values, and confidence interval bounds are extracted. } \usage{ \method{coef}{rma}(object, \dots) \method{coef}{summary.rma}(object, \dots) } \arguments{ \item{object}{an object of class \code{"rma"} or \code{"summary.rma"}.} \item{\dots}{other arguments.} } \value{ Either a vector with the estimated model coefficient(s) or a data frame with the following elements: \item{estimate}{estimated model coefficient(s).} \item{se}{corresponding standard error(s).} \item{zval}{corresponding test statistic(s).} \item{pval}{corresponding p-value(s).} \item{ci.lb}{corresponding lower bound of the confidence interval(s).} \item{ci.ub}{corresponding upper bound of the confidence interval(s).} When the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}, then \code{zval} is called \code{tval} in the data frame that is returned by the function. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which model coefficients/tables can be extracted. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### extract model coefficients coef(res) ### extract model coefficient table coef(summary(res)) } \keyword{models} metafor/man/forest.default.Rd0000644000176200001440000004620315173343621015710 0ustar liggesusers\name{forest.default} \alias{forest.default} \title{Forest Plots (Default Method)} \description{ Function to create forest plots for a given set of data. \loadmathjax } \usage{ \method{forest}{default}(x, vi, sei, ci.lb, ci.ub, annotate=TRUE, showweights=FALSE, header=TRUE, xlim, alim, olim, ylim, at, steps=5, level=95, refline=0, digits=2L, width, xlab, slab, ilab, ilab.lab, ilab.xpos, ilab.pos, order, subset, transf, atransf, targs, rows, efac=1, pch, psize, plim=c(0.5,1.5), col, shade, colshade, lty, fonts, cex, cex.lab, cex.axis, \dots) } \arguments{ \item{x}{vector of length \mjseqn{k} with the observed effect sizes or outcomes.} \item{vi}{vector of length \mjseqn{k} with the corresponding sampling variances.} \item{sei}{vector of length \mjseqn{k} with the corresponding standard errors (note: only one of the two, \code{vi} or \code{sei}, needs to be specified).} \item{ci.lb}{vector of length \mjseqn{k} with the corresponding lower confidence interval bounds. Not needed if \code{vi} or \code{sei} is specified. See \sQuote{Details}.} \item{ci.ub}{vector of length \mjseqn{k} with the corresponding upper confidence interval bounds. Not needed if \code{vi} or \code{sei} is specified. See \sQuote{Details}.} \item{annotate}{logical to specify whether annotations should be added to the plot (the default is \code{TRUE}).} \item{showweights}{logical to specify whether the annotations should also include the inverse variance weights (the default is \code{FALSE}).} \item{header}{logical to specify whether column headings should be added to the plot (the default is \code{TRUE}). Can also be a character vector to specify the left and right headings (or only the left one).} \item{xlim}{horizontal limits of the plot region. If unspecified, the function sets the horizontal plot limits to some sensible values.} \item{alim}{the x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{olim}{argument to specify observation/outcome limits. If unspecified, no limits are used.} \item{ylim}{the y-axis limits of the plot. If unspecified, the function sets the y-axis limits to some sensible values. Can also be a single value to set the lower bound (while the upper bound is still set automatically).} \item{at}{position of the x-axis tick marks and corresponding labels. If unspecified, the function sets the tick mark positions/labels to some sensible values.} \item{steps}{the number of tick marks for the x-axis (the default is 5). Ignored when the positions are specified via the \code{at} argument.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{refline}{numeric value to specify the location of the vertical \sQuote{reference} line (the default is 0). The line can be suppressed by setting this argument to \code{NA}. Can also be a vector to add multiple lines.} \item{digits}{integer to specify the number of decimal places to which the annotations and tick mark labels of the x-axis should be rounded (the default is \code{2L}). Can also be a vector of two integers, the first to specify the number of decimal places for the annotations, the second for the x-axis labels (when \code{showweights=TRUE}, can also specify a third value for the weights). When specifying an integer (e.g., \code{2L}), trailing zeros after the decimal mark are dropped for the x-axis labels. When specifying a numeric value (e.g., \code{2}), trailing zeros are retained.} \item{width}{optional integer to manually adjust the width of the columns for the annotations (either a single integer or a vector of the same length as the number of annotation columns).} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title. Can also be a vector of three/two values (to also/only add labels at the end points of the x-axis limits).} \item{slab}{optional vector with labels for the \mjseqn{k} studies. If unspecified, the function tries to extract study labels from \code{x} and otherwise simple labels are created within the function. To suppress labels, set this argument to \code{NA}.} \item{ilab}{optional vector, matrix, or data frame providing additional information about the studies that should be added to the plot.} \item{ilab.lab}{optional character vector with (column) labels for the variable(s) given via \code{ilab}.} \item{ilab.xpos}{optional numeric vector to specify the horizontal position(s) of the variable(s) given via \code{ilab}.} \item{ilab.pos}{integer(s) (either 1, 2, 3, or 4) to specify the alignment of the variable(s) given via \code{ilab} (2 means right, 4 means left aligned). If unspecified, the default is to center the values.} \item{order}{optional character string to specify how the studies should be ordered. Can also be a variable based on which the studies will be ordered. See \sQuote{Details}.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be included in the plot.} \item{transf}{optional argument to specify a function to transform the observed outcomes and corresponding confidence interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{atransf}{optional argument to specify a function to transform the x-axis labels and annotations (e.g., \code{atransf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{rows}{optional vector to specify the rows (or more generally, the positions) for plotting the outcomes. Can also be a single value to specify the row of the first outcome (the remaining outcomes are then plotted below this starting row).} \item{efac}{vertical expansion factor for confidence interval limits and arrows. The default value of 1 should usually work fine. Can also be a vector of two numbers, the first for CI limits, the second for arrows.} \item{pch}{plotting symbol to use for the observed outcomes. By default, a filled square is used. See \code{\link{points}} for other options. Can also be a vector of values.} \item{psize}{optional numeric value to specify the point sizes for the observed outcomes. If unspecified, the point sizes are a function of the precision of the estimates. Can also be a vector of values.} \item{plim}{numeric vector of length 2 to scale the point sizes (ignored when \code{psize} is specified). See \sQuote{Details}.} \item{col}{optional character string to specify the color of the observed outcomes. Can also be a vector.} \item{shade}{optional character string or a (logical or numeric) vector for shading rows of the plot. See \sQuote{Details}.} \item{colshade}{optional argument to specify the color for the shading.} \item{lty}{optional argument to specify the line type for the confidence intervals. If unspecified, the function sets this to \code{"solid"} by default.} \item{fonts}{optional character string to specify the font for the study labels, annotations, and the extra information (if specified via \code{ilab}). If unspecified, the default font is used.} \item{cex}{optional character and symbol expansion factor. If unspecified, the function sets this to a sensible value.} \item{cex.lab}{optional expansion factor for the x-axis title. If unspecified, the function sets this to a sensible value.} \item{cex.axis}{optional expansion factor for the x-axis labels. If unspecified, the function sets this to a sensible value.} \item{\dots}{other arguments.} } \details{ The plot shows the observed effect sizes or outcomes (by default as filled squares) with corresponding \code{level}\% confidence intervals (as horizontal lines extending from the observed outcomes). To use the function, one should specify the observed outcomes (via the \code{x} argument) together with the corresponding sampling variances (via the \code{vi} argument) or with the corresponding standard errors (via the \code{sei} argument). The confidence intervals are computed with \mjeqn{y_i \pm z_{crit} \sqrt{v_i}}{y_i ± z_crit \sqrt{v_i}}, where \mjseqn{y_i} denotes the observed outcome in the \mjeqn{i\text{th}}{ith} study, \mjseqn{v_i} the corresponding sampling variance (and hence \mjseqn{\sqrt{v_i}} is the corresponding standard error), and \mjeqn{z_{crit}}{z_crit} is the appropriate critical value from a standard normal distribution (e.g., \mjseqn{1.96} for a 95\% CI). Alternatively, one can directly specify the confidence interval bounds via the \code{ci.lb} and \code{ci.ub} arguments. \subsection{Applying a Transformation}{ With the \code{transf} argument, the observed outcomes and corresponding confidence interval bounds can be transformed with some suitable function. For example, when plotting log odds ratios, then one could use \code{transf=exp} to obtain a forest plot showing the odds ratios. Alternatively, one can use the \code{atransf} argument to transform the x-axis labels and annotations (e.g., \code{atransf=exp}). See also \link{transf} for some other useful transformation functions in the context of a meta-analysis. The examples below illustrate the use of these arguments. } \subsection{Ordering of Studies}{ By default, the studies are ordered from top to bottom (i.e., the first study in the dataset will be placed in row \mjseqn{k}, the second study in row \mjseqn{k-1}, and so on, until the last study, which is placed in the first row). The studies can be reordered with the \code{order} argument: \itemize{ \item \code{order="obs"}: the studies are ordered by the observed outcomes, \item \code{order="prec"}: the studies are ordered by their sampling variances. } Alternatively, it is also possible to set \code{order} equal to a variable based on which the studies will be ordered (see \sQuote{Examples}). One can also use the \code{rows} argument to specify the rows (or more generally, the positions) for plotting the outcomes. } \subsection{Adding Additional Information to the Plot}{ Additional columns with information about the studies can be added to the plot via the \code{ilab} argument. This can either be a single variable or an entire matrix / data frame (with as many rows as there are studies in the forest plot). The \code{ilab.xpos} argument can be used to specify the horizontal position of the variables specified via \code{ilab}. The \code{ilab.pos} argument can be used to specify how the variables should be aligned. The \code{ilab.lab} argument can be used to add headers to the columns. Pooled estimates can be added to the plot as polygons with the \code{\link{addpoly}} function. See the documentation for that function for examples. } \subsection{Adjusting the Point Sizes}{ By default (i.e., when \code{psize} is not specified), the point sizes are a function of the precision (i.e., inverse standard errors) of the outcomes. This way, more precise estimates are visually more prominent in the plot. By making the point sizes a function of the inverse standard errors of the estimates, their areas are proportional to the inverse sampling variances, which corresponds to the weights they would receive in an equal-effects model. However, the point sizes are rescaled so that the smallest point size is \code{plim[1]} and the largest point size is \code{plim[2]}. As a result, their relative sizes (i.e., areas) no longer exactly correspond to their relative weights in such a model. If exactly relative point sizes are desired, one can set \code{plim[2]} to \code{NA}, in which case the points are rescaled so that the smallest point size corresponds to \code{plim[1]} and all other points are scaled accordingly. As a result, the largest point may be very large. Alternatively, one can set \code{plim[1]} to \code{NA}, in which case the points are rescaled so that the largest point size corresponds to \code{plim[2]} and all other points are scaled accordingly. As a result, the smallest point may be very small and essentially indistinguishable from the confidence interval line. To avoid the latter, one can also set \code{plim[3]}, which enforces a minimal point size. } \subsection{Shading Rows}{ With the \code{shade} argument, one can shade rows of the plot. The argument can be set to one of the following character strings: \code{"zebra"} (same as \code{shade=TRUE}) or \code{"zebra2"} to use zebra-style shading (starting either at the first or second study) or to \code{"all"} in which case all rows are shaded. Alternatively, the argument can be set to a logical or numeric vector to specify which rows should be shaded. The \code{colshade} argument can be used to set the color of shaded rows. } } \section{Note}{ The function sets some sensible values for the optional arguments, but it may be necessary to adjust these in certain circumstances. The function actually returns some information about the chosen values invisibly. Printing this information is useful as a starting point to customize the plot. If the number of studies is quite large, the labels, annotations, and symbols may become quite small and impossible to read. Stretching the plot window vertically may then provide a more readable figure (one should call the function again after adjusting the window size, so that the label/symbol sizes can be properly adjusted). Also, the \code{cex}, \code{cex.lab}, and \code{cex.axis} arguments are then useful to adjust the symbol and text sizes. If the outcome measure used for creating the plot is bounded (e.g., correlations are bounded between -1 and +1, proportions are bounded between 0 and 1), one can use the \code{olim} argument to enforce those limits (the observed outcomes and confidence intervals cannot exceed those bounds then). The \code{lty} argument can also be a vector of two elements, the first for specifying the line type of the individual CIs (\code{"solid"} by default), the second for the line type of the horizontal line that is automatically added to the plot (\code{"solid"} by default; set to \code{"blank"} to remove it). } \section{Additional Optional Arguments}{ There are some additional optional arguments that can be passed to the function via \code{...} (hence, they cannot be abbreviated): \describe{ \item{top}{single numeric value to specify the amount of space (in terms of number of rows) to leave empty at the top of the plot (e.g., for adding headers). The default is 3.} \item{annosym}{vector of length 3 to select the left bracket, separation, and right bracket symbols for the annotations. The default is \code{c(" [", ", ", "]")}. Can also include a 4th element to adjust the look of the minus symbol, for example to use a proper minus sign (\ifelse{latex}{\mjseqn{-}}{\enc{−}{-}}) instead of a hyphen-minus (-). Can also include a 5th element that should be a space-like symbol (e.g., an \sQuote{en space}) that is used in place of numbers (only relevant when trying to line up numbers exactly). For example, \code{annosym=c(" [", ", ", "]", "\u2212", "\u2002")} would use a proper minus sign and an \sQuote{en space} for the annotations. The decimal point character can be adjusted via the \code{OutDec} argument of the \code{\link{options}} function before creating the plot (e.g., \code{options(OutDec=",")}).} \item{tabfig}{single numeric value (either a 1, 2, or 3) to set \code{annosym} automatically to a vector that will exactly align the numbers in the annotations when using a font that provides \sQuote{tabular figures}. Value 1 corresponds to using \code{"\u2212"} (a minus) and \code{"\u2002"} (an \sQuote{en space}) in \code{annoyym} as shown above. Value 2 corresponds to \code{"\u2013"} (an \sQuote{en dash}) and \code{"\u2002"} (an \sQuote{en space}). Value 3 corresponds to \code{"\u2212"} (a minus) and \code{"\u2007"} (a \sQuote{figure space}). The appropriate value for this argument depends on the font used. For example, for fonts Calibri and Carlito, 1 or 2 should work; for fonts Source Sans 3 and Palatino Linotype, 1, 2, and 3 should all work; for Computer/Latin Modern and Segoe UI, 2 should work; for Lato, Roboto, and Open Sans (and maybe Arial), 3 should work. Other fonts may work as well, but this is untested.} \item{textpos}{numeric vector of length 2 to specify the placement of the study labels and the annotations. The default is to use the horizontal limits of the plot region, i.e., the study labels to the right of \code{xlim[1]} and the annotations to the left of \code{xlim[2]}.} \item{rowadj}{numeric vector of length 3 to vertically adjust the position of the study labels, the annotations, and the extra information (if specified via \code{ilab}). This is useful for fine-tuning the position of text added with different positional alignments (i.e., argument \code{pos} in the \code{\link{text}} function).} } } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Lewis, S., & Clarke, M. (2001). Forest plots: Trying to see the wood and the trees. \emph{British Medical Journal}, \bold{322}(7300), 1479--1480. \verb{https://doi.org/10.1136/bmj.322.7300.1479} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest}} for an overview of the various \code{forest} functions and especially \code{\link{forest.rma}} for a function to draw forest plots including a pooled estimate polygon. \code{\link{addpoly}} for a function to add polygons to forest plots. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### default forest plot of the observed log risk ratios forest(dat$yi, dat$vi) ### directly specify the CI bounds out <- summary(dat) forest(dat$yi, ci.lb=out$ci.lb, ci.ub=out$ci.ub) ### the with() function can be used to avoid having to retype dat$... over and over with(dat, forest(yi, vi)) ### forest plot of the observed risk ratios (transform outcomes) with(dat, forest(yi, vi, transf=exp, alim=c(0,2), steps=5, xlim=c(-2.5,4), refline=1)) ### forest plot of the observed risk ratios (transformed x-axis) with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05,0.25,1,4,20)), xlim=c(-10,8))) ### make all points the same size with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05,0.25,1,4,20)), xlim=c(-10,8), psize=1)) ### and remove the vertical lines at the end of the CI bounds with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05,0.25,1,4,20)), xlim=c(-10,8), psize=1, efac=0)) ### forest plot of the observed risk ratios with studies ordered by the RRs with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05,0.25,1,4,20)), xlim=c(-10,8), order="obs")) ### forest plot of the observed risk ratios with studies ordered by absolute latitude with(dat, forest(yi, vi, atransf=exp, at=log(c(0.05,0.25,1,4,20)), xlim=c(-10,8), order=ablat)) ### see also examples for the forest.rma function } \keyword{hplot} metafor/man/pairmat.Rd0000644000176200001440000001243515173343621014420 0ustar liggesusers\name{pairmat} \alias{pairmat} \title{Construct a Pairwise Contrast Matrix for 'rma' Objects} \description{ Functions to construct a matrix of pairwise contrasts for objects of class \code{"rma"}. \loadmathjax } \usage{ pairmat(x, btt, btt2, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{btt}{vector of indices to specify for which coefficients pairwise contrasts should be constructed. Can also be a string to \code{\link{grep}} for. See \sQuote{Details}.} \item{btt2}{optional argument to specify a second set of coefficients that should also be included in the contrast matrix.} \item{\dots}{other arguments.} } \value{ When a meta-regression model includes a categorical moderator variable (i.e., a factor), there is often interest in testing whether the coefficients representing the various levels of the factor differ significantly from each other. The present function constructs the pairwise contrast matrix between all factor levels for a particular factor, which can be used together with the \code{\link[=anova.rma]{anova}} function to carry out such tests and the \code{\link[=predict.rma]{predict}} function to obtain corresponding confidence intervals. The \code{x} argument is used to specify a meta-regression model and the \code{btt} argument the indices of the coefficients for which pairwise contrasts should be constructed. For example, with \code{btt=2:4}, contrasts are formed based on the second, third, and fourth coefficient of the model. Instead of specifying the coefficient numbers, one can specify a string for \code{btt}. In that case, \code{\link{grep}} will be used to search for all coefficient names that match the string. At times, it may be useful to include a second set of coefficients in the contrast matrix (not as pairwise contrasts, but as \sQuote{main effects}). This can be done via the \code{btt2} argument. When using the present function in a call to the \code{\link[=anova.rma]{anova}} or \code{\link[=predict.rma]{predict}} functions, argument \code{x} does not need to specified, as the function will then automatically construct the contrast matrix based on the model object passed to the \code{anova} or \code{predict} function. See below for examples. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit meta-regression models for which pairwise contrasts may be useful. \code{\link[=anova.rma]{anova}} for a function to carry out tests of the pairwise contrasts and \code{\link[=predict.rma]{predict}} to obtain corresponding confidence/prediction intervals. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### mixed-effects meta-regression model with the allocation method as a moderator; ### by removing the intercept term, we obtain the estimated average effect for each ### factor level from the model res <- rma(yi, vi, mods = ~ 0 + alloc, data=dat) res ### construct the contrast matrix for the 'alloc' factor pairmat(res, btt=1:3) pairmat(res, btt="alloc") ### test all pairwise contrasts anova(res, X=pairmat(btt=1:3)) anova(res, X=pairmat(btt="alloc")) ### obtain the corresponding confidence intervals predict(res, newmods=pairmat(btt="alloc")) ### test all pairwise contrasts adjusting for multiple testing anova(res, X=pairmat(btt="alloc"), adjust="bonf") ### fit the same model, but including the intercept term; then 'alternate' is the ### reference level and the coefficients for 'random' and 'systematic' already ### represent pairwise contrasts with this reference level res <- rma(yi, vi, mods = ~ alloc, data=dat) res ### in this case, we want to include these coefficients directly in the contrast ### matrix (btt2=2:3) but also include the pairwise contrast between them (btt=2:3) pairmat(res, btt=2:3, btt2=2:3) pairmat(res, btt="alloc", btt2="alloc") ### test all pairwise contrasts anova(res, X=pairmat(btt=2:3, btt2=2:3)) anova(res, X=pairmat(btt="alloc", btt2="alloc")) ### obtain the corresponding confidence intervals predict(res, newmods=pairmat(btt="alloc", btt2="alloc")) ### meta-regression model with 'ablat' and 'alloc' as moderators res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat) res ### test all pairwise contrasts between the 'alloc' levels (while controlling for 'ablat') anova(res, X=pairmat(btt="alloc", btt2="alloc")) anova(res, X=pairmat(btt="alloc", btt2="alloc")) ### obtain the corresponding confidence intervals predict(res, newmods=pairmat(btt="alloc", btt2="alloc")) ### an example of a meta-regression model with more factors levels dat <- dat.bangertdrowns2004 res <- rma(yi, vi, mods = ~ 0 + factor(grade), data=dat) res ### test all pairwise contrasts between the 'grade' levels anova(res, X=pairmat(btt="grade")) ### obtain the corresponding confidence intervals predict(res, newmods=pairmat(btt="grade")) ### test all pairwise contrasts adjusting for multiple testing anova(res, X=pairmat(btt="grade"), adjust="bonf") } \keyword{models} metafor/man/se.Rd0000644000176200001440000000252715173343621013373 0ustar liggesusers\name{se} \alias{se} \alias{se.default} \alias{se.rma} \title{Extract the Standard Errors from 'rma' Objects} \description{ Function to extract the standard errors from objects of class \code{"rma"}. } \usage{ se(object, \dots) \method{se}{default}(object, \dots) \method{se}{rma}(object, \dots) } \arguments{ \item{object}{an object of class \code{"rma"}.} \item{\dots}{other arguments.} } \value{ A vector with the standard errors. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which standard errors can be extracted. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) res ### extract model coefficients coef(res) ### extract the standard errors se(res) } \keyword{models} metafor/man/escalc.Rd0000644000176200001440000027421215173343621014220 0ustar liggesusers\name{escalc} \alias{escalc} \title{Calculate Effect Sizes and Outcome Measures} \description{ Function to calculate various effect sizes or outcome measures (and the corresponding sampling variances) that are commonly used in meta-analyses. \loadmathjax } \usage{ escalc(measure, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, fi, pi, sdi, r2i, ni, yi, vi, sei, data, slab, flip, subset, include, add=1/2, to="only0", drop00=FALSE, vtype="LS", correct=TRUE, var.names=c("yi","vi"), add.measure=FALSE, append=TRUE, replace=TRUE, digits, \dots) } \arguments{ \item{measure}{a character string to specify which effect size or outcome measure should be calculated (e.g., \code{"SMD"}, \code{"ZCOR"}, \code{"OR"}). See \sQuote{Details} for possible options and how the data needed to compute the selected effect size or outcome measure should then be specified (i.e., which of the following arguments need to be used).} \emph{These arguments pertain to data input:} \item{ai}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper left cell).} \item{bi}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper right cell).} \item{ci}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower left cell).} \item{di}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower right cell).} \item{n1i}{vector with the group sizes or row totals (first group/row).} \item{n2i}{vector with the group sizes or row totals (second group/row).} \item{x1i}{vector with the number of events (first group).} \item{x2i}{vector with the number of events (second group).} \item{t1i}{vector with the total person-times (first group).} \item{t2i}{vector with the total person-times (second group).} \item{m1i}{vector with the means (first group or time point).} \item{m2i}{vector with the means (second group or time point).} \item{sd1i}{vector with the standard deviations (first group or time point).} \item{sd2i}{vector with the standard deviations (second group or time point).} \item{xi}{vector with the frequencies of the event of interest.} \item{mi}{vector with the frequencies of the complement of the event of interest or the group means.} \item{ri}{vector with the raw correlation coefficients.} \item{ti}{vector with the total person-times or t-test statistics.} \item{fi}{vector with the F-test statistics.} \item{pi}{vector with the (signed) p-values.} \item{sdi}{vector with the standard deviations.} \item{r2i}{vector with the \mjseqn{R^2} values.} \item{ni}{vector with the sample/group sizes.} \item{yi}{vector with the observed effect sizes or outcomes.} \item{vi}{vector with the corresponding sampling variances.} \item{sei}{vector with the corresponding standard errors.} \item{data}{optional data frame containing the variables given to the arguments above.} \item{slab}{optional vector with labels for the studies.} \item{flip}{optional logical to indicate whether to flip the sign of the effect sizes or outcomes. Can also be a vector. Can also be a numeric vector to specify a multiplier.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that will be included in the data frame returned by the function.} \item{include}{optional (logical or numeric) vector to specify the subset of studies for which the measure should be calculated. See the \sQuote{Value} section for more details.} \emph{These arguments pertain to handling of zero cells/counts/frequencies:} \item{add}{a non-negative number to specify the amount to add to zero cells, counts, or frequencies. See \sQuote{Details} and \sQuote{Note}.} \item{to}{a character string to specify when the values under \code{add} should be added (either \code{"all"}, \code{"only0"}, \code{"if0all"}, or \code{"none"}). See \sQuote{Details}.} \item{drop00}{logical to specify whether studies with no cases/events (or only cases) in both groups should be dropped when calculating the observed effect sizes or outcomes. See \sQuote{Details}.} \emph{These arguments pertain to the computations:} \item{vtype}{a character string to specify the type of sampling variances to calculate. Can also be a vector. See \sQuote{Details}.} \item{correct}{logical to specify whether a bias correction should be applied to the effect sizes or outcomes (the default is \code{TRUE}).} \emph{These arguments pertain to the formatting of the returned data frame:} \item{var.names}{character vector with two elements to specify the name of the variable for the observed effect sizes or outcomes and the name of the variable for the corresponding sampling variances (the defaults are \code{"yi"} and \code{"vi"}).} \item{add.measure}{logical to specify whether a variable should be added to the data frame (with default name \code{"measure"}) that indicates the type of outcome measure computed. When using this option, \code{var.names} can have a third element to change this variable name.} \item{append}{logical to specify whether the data frame provided via the \code{data} argument should be returned together with the observed effect sizes or outcomes and corresponding sampling variances (the default is \code{TRUE}).} \item{replace}{logical to specify whether existing values for \code{yi} and \code{vi} in the data frame should be replaced. Only relevant when \code{append=TRUE} and the data frame already contains the \code{yi} and \code{vi} variables. If \code{replace=TRUE} (the default), all of the existing values will be overwritten. If \code{replace=FALSE}, only \code{NA} values will be replaced. See the \sQuote{Value} section for more details.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is 4. Note that the values are stored without rounding in the returned object. See also \link[=misc-options]{here} for further details on how to control the number of digits in the output.} \item{\dots}{other arguments.} } \details{ Before a meta-analysis can be conducted, the relevant results from each study must be quantified in such a way that the resulting values can be further aggregated and compared. Depending on (a) the goals of the meta-analysis, (b) the design and types of studies included, and (c) the information provided therein, one of the various effect sizes or outcome measures described below may be appropriate for the meta-analysis and can be computed with the \code{escalc} function. The \code{measure} argument is a character string to specify the outcome measure that should be calculated (see below for the various options), arguments \code{ai} through \code{ni} are then used to specify the information needed to calculate the various measures (depending on the chosen outcome measure, different arguments need to be specified), and \code{data} can be used to specify a data frame containing the variables given to the previous arguments. The \code{add}, \code{to}, and \code{drop00} arguments may be needed when dealing with frequency or count data that needs special handling when some of the frequencies or counts are equal to zero (see below for details). Finally, the \code{vtype} argument is used to specify how the sampling variances should be computed (again, see below for details). To provide a structure to the various effect sizes or outcome measures that can be calculated with the \code{escalc} function, we can distinguish between measures that are used to: \tabular{lll}{ \ics \tab (1) \tab contrast two independent (either experimentally created or naturally occurring) groups, \cr \ics \tab (2) \tab describe the direction and strength of the association between two variables, \cr \ics \tab (3) \tab summarize some characteristic or attribute of individual groups, or \cr \ics \tab (4) \tab quantify change within a single group or the difference between two matched/paired samples.} Furthermore, where appropriate, we can further distinguish between measures that are applicable when the characteristic, response, or dependent variable assessed within the individual studies is: \tabular{lll}{ \ics \tab (a) \tab a quantitative variable (e.g., amount of depression as assessed by a rating scale), \cr \ics \tab (b) \tab a dichotomous (binary) variable (e.g., remission versus no remission), \cr \ics \tab (c) \tab a count of events per time unit (e.g., number of migraines per year), or \cr \ics \tab (d) \tab a mix of the types above.} Below, these number and letter codes are used (also in combination) to make it easier to quickly find a measure suitable for a particular meta-analysis (e.g., search for \code{(1b)} to find measures that describe the difference between two groups with respect to a dichotomous variable or \code{(2a)} for measures that quantify the association between two quantitative variables). \subsection{(1) Outcome Measures for Two-Group Comparisons}{ In many meta-analyses, the goal is to synthesize the results from studies that compare or contrast two groups. The groups may be experimentally defined (e.g., a treatment and a control group created via random assignment) or may occur naturally (e.g., men and women, employees working under high- versus low-stress conditions, people/animals/plants exposed to some environmental risk factor versus those not exposed, patients versus controls). \subsection{(1a) Measures for Quantitative Variables}{ When the response or dependent variable assessed within the individual studies is measured on a quantitative scale, it is customary to report certain summary statistics, such as the mean and standard deviation of the observations within the two groups (in case medians, min/max values, and quartiles are reported, see \code{\link{conv.fivenum}} for a function that can be used to estimate means and standard deviations from such statistics). The data layout for a study comparing two groups with respect to such a variable is then of the form: \tabular{lcccccc}{ \tab \ics \tab mean \tab \ics \tab standard deviation \tab \ics \tab group size \cr group 1 \tab \ics \tab \code{m1i} \tab \ics \tab \code{sd1i} \tab \ics \tab \code{n1i} \cr group 2 \tab \ics \tab \code{m2i} \tab \ics \tab \code{sd2i} \tab \ics \tab \code{n2i}} where \code{m1i} and \code{m2i} are the observed means of the two groups, \code{sd1i} and \code{sd2i} are the observed standard deviations, and \code{n1i} and \code{n2i} denote the number of individuals in each group. \bold{Measures for Differences in Central Tendency} Often, interest is focused on differences between the two groups with respect to their central tendency. The raw mean difference, the standardized mean difference, and the (log transformed) ratio of means (also called the log \sQuote{response ratio}) are useful outcome measures when meta-analyzing studies of this type. The options for the \code{measure} argument are then: \itemize{ \item \code{"MD"} for the \emph{raw mean difference} (e.g., Borenstein, 2009), \item \code{"SMD"} for the \emph{standardized mean difference} (Hedges, 1981), \item \code{"SMDH"} for the \emph{standardized mean difference} with heteroscedastic population variances in the two groups (Bonett, 2008, 2009), \item \code{"SMD1"} for the \emph{standardized mean difference} where the mean difference is divided by the standard deviation of the second group (and \code{"SMD1H"} for the same but with heteroscedastic population variances), \item \code{"ROM"} for the \emph{log transformed ratio of means} (Hedges et al., 1999; Lajeunesse, 2011). } The raw mean difference is simply \mjeqn{(\text{m1i}-\text{m2i})}{(m1i-m2i)}, while the standardized mean difference is given by \mjeqn{(\text{m1i}-\text{m2i})/\text{sdi}}{(m1i-m2i)/sdi}. For \code{measure="SMD"}, \mjeqn{\text{sdi} = \sqrt{\frac{(\text{n1i}-1)\text{sd1i}^2 + (\text{n2i}-1)\text{sd2i}^2}{\text{n1i}+\text{n2i}-2}}}{sdi = sqrt(((n1i-1)*sd1i^2 + (n2i-1)*sd2i^2) / (n1i+n2i-2))} is the pooled standard deviation of the two groups (assuming homoscedasticity of the population variances). For \code{measure="SMDH"}, \mjeqn{\text{sdi} = \sqrt{\frac{\text{sd1i}^2 + \text{sd2i}^2}{2}}}{sdi = sqrt((sd1i^2 + sd2i^2) / 2)} is the square root of the average variance (allowing for heteroscedastic population variances). Finally, for \code{measure="SMD1"} and \code{measure="SMD1H"}, \mjeqn{\text{sdi} = \text{sd2i}}{sdi = sd2i} (note: for \code{measure="SMD1"}, only \code{sd2i} needs to be specified and \code{sd1i} is ignored). For \code{measure="SMD"}, the positive bias in the standardized mean difference (i.e., in a Cohen's d value) is automatically corrected for within the function, yielding Hedges' g (Hedges, 1981). Similarly, the analogous bias correction is applied for \code{measure="SMDH"} (Bonett, 2009), \code{measure="SMD1"} (Hedges, 1981), and \code{measure="SMD1H"}. With \code{correct=FALSE}, these bias corrections can be switched off. For \code{measure="ROM"}, the log is taken of the ratio of means (i.e., \mjeqn{\log(\text{m1i}/\text{m2i})}{log(m1i/m2i)}), which makes this outcome measure symmetric around 0 and results in a sampling distribution that is closer to normality. Hence, this measure cannot be computed when \code{m1i} and \code{m2i} have opposite signs (in fact, this measure is only meant to be used for ratio scale measurements, where both means should be positive anyway). Note that a bias correction is also applied to this measure (Lajeunesse, 2015, equation 8) unless \code{correct=FALSE}. For \code{measure="SMD"}, if the means and standard deviations are unknown for some studies, various other inputs can be used to recover the standardized mean differences. In the case that the standardized mean differences (Cohen's d values) are directly available (e.g., they are reported in some studies), then these can be specified via argument \code{di}. If the point-biserial correlations (between the group dummy variable and the quantitative response/dependent variable) are known, these can be specified via argument \code{ri}. If the t-statistics from an independent samples (Student's) t-test are available, these can be specified via argument \code{ti}. Note that the sign of these inputs is then taken to be the sign of the standardized mean differences. If only the two-sided p-values corresponding to the t-tests are known, one can specify those values via argument \code{pi} (which are then transformed into the t-statistics and then further into the standardized mean differences). However, since a two-sided p-value does not carry information about the sign of the test statistic (and hence neither about the standardized mean difference), the sign of the p-values (which can be negative) is used as the sign of the standardized mean differences (e.g., \code{escalc(measure="SMD", pi=-0.018, n1i=20, n2i=20)} yields a negative standardized mean difference of \code{-0.7664}). See \href{https://www.metafor-project.org/doku.php/tips:assembling_data_smd}{here} for a more detailed illustration of using the \code{ti} and \code{pi} arguments. For \code{measure="MD"}, one can choose between \code{vtype="LS"} (the default) and \code{vtype="HO"}. The former computes the sampling variances without assuming homoscedasticity (i.e., that the true variances of the measurements are the same in group 1 and group 2 within each study), while the latter assumes homoscedasticity (equations 12.5 and 12.3 in Borenstein, 2009, respectively). For \code{measure="SMD"}, one can choose between \code{vtype="LS"} (the default) for the usual large-sample approximation to compute the sampling variances (equation 8 in Hedges, 1982), \code{vtype="LS2"} to compute the sampling variances as described in Borenstein (2009; equation 12.17), \code{vtype="UB"} to compute unbiased estimates of the sampling variances (equation 9 in Hedges, 1983), \code{vtype="AV"} to compute the sampling variances with the usual large-sample approximation but plugging the sample-size weighted average of the Hedges' g values into the equation, and \code{vtype="H0"} to compute the sampling variances under the null hypothesis (that the true standardized mean differences are equal to zero). The same choices also apply to \code{measure="SMD1"}. For \code{measure="ROM"}, one can choose between \code{vtype="LS"} (the default) for the usual large-sample approximation to compute the sampling variances (equation 1 in Hedges et al., 1999), \code{vtype="HO"} to compute the sampling variances assuming homoscedasticity (the unnumbered equation after equation 1 in Hedges et al., 1999), \code{vtype="LS2"} to compute the sampling variances based on the second-order Taylor expansion (equation 9 in Lajeunesse, 2015), \code{vtype="AV"} to compute the sampling variances assuming homoscedasticity of the coefficient of variation within each group across studies, \code{vtype="AVHO"} to compute the sampling variances assuming homoscedasticity of the coefficient of variation for both groups across studies (see Nakagawa et al., 2023, for details on the latter two options and why they can be advantageous). Datasets corresponding to data of this type are provided in \code{\link[metadat]{dat.normand1999}}, \code{\link[metadat]{dat.curtis1998}}, and \code{\link[metadat]{dat.gibson2002}}. \bold{Measures for Variability Differences} Interest may also be focused on differences between the two groups with respect to their variability. For this, the (log transformed) ratio of the standard deviations (also called the \sQuote{variability ratio}) can be used (Nakagawa et al., 2015). To also account for differences in mean levels, the (log transformed) ratio between the coefficients of variation from the two groups (also called the \sQuote{coefficient of variation ratio}) can be a useful measure (Nakagawa et al., 2015). The options for the \code{measure} argument are: \itemize{ \item \code{"VR"} for the \emph{log transformed variability ratio}, \item \code{"CVR"} for the \emph{log transformed coefficient of variation ratio}. } Measure \code{"VR"} is computed with \mjeqn{\log(\text{sd1i}/\text{sd2i})}{log(sd1i/sd2i)} and hence one only needs to specify \code{sd1i}, \code{sd2i}, \code{n1i}, and \code{n2i} (i.e., arguments \code{m1i} and \code{m2i} are irrelevant). Measure \code{"CVR"} is computed with \mjeqn{\log\mathopen{}\left(\left(\text{sd1i}/\text{m1i}\right) \middle/ \left(\text{sd2i}/\text{m2i}\right) \right)\mathclose{}}{log((sd1i/m1i)/(sd2i/m2i))}. Note that a bias correction is applied for both of these measures (Senior et al., 2020, equations 5 and 6) unless \code{correct=FALSE}. When \code{vtype="LS"} (the default), then the sampling variances are computed with equations 11 and 13 from Senior et al. (2020) for \code{"VR"} and \code{"CVR"}, respectively. When \code{vtype="LS2"}, then equations 15 and 16 (with a slight correction, multiplying the third and sixth term by 1/2) based on the second-order Taylor expansions are used instead. \bold{Measures for Stochastic Superiority} Another way to quantify the difference between two groups is in terms of the \sQuote{common language effect size} (CLES) (McGraw & Wong, 1992). This measure provides an estimate of \mjteqn{P(X > Y)}{P(X \gt Y)}{P(X > Y)}, that is, the probability that a randomly chosen person from the first group has a larger value on the response variable than a randomly chosen person from the second group (or in case \mjseqn{X} and \mjseqn{Y} values can be tied, we define the measure as \mjteqn{P(X > Y) + \frac{1}{2} P(X = Y)}{P(X \gt Y) + \frac{1}{2} P(X = Y)}{P(X > Y) + 1/2 P(X = Y)}). This measure is identical to the area under the curve (AUC) under the receiver operating characteristic (ROC) curve (e.g., for a diagnostic test or more broadly for a binary classifier) and the \sQuote{concordance probability} (or c-statistic) and is directly related to the \mjseqn{U} statistic from the Mann-Whitney U test (i.e., \mjeqn{\text{CLES} = U / (n_1 \times n_2)}{CLES = U / (n_1 x n_2)}). If the CLES/AUC values with corresponding sampling variances (or standard errors) are known, they can be directly meta-analyzed for example using the \code{\link{rma.uni}} function. However, in practice, one is likely to encounter studies that only report CLES/AUC values and the group sizes. In this case, one can specify these values via the \code{ai}, \code{n1i}, and \code{n2i} arguments and set \code{measure="CLES"} (or equivalently \code{measure="AUC"}). If \code{vtype="LS"} (the default), the sampling variances are then computed based on Newcombe (2006) (method 4), but using \code{(n1i-1)(n2i-1)} in the denominator as suggested by Cho et al. (2019). If \code{vtype="LS2"}, the sampling variances are computed based on Hanley and McNeil (1982; equations 1 and 2), again using \code{(n1i-1)(n2i-1)} in the denominator (and in the unlikely case that the proportion of tied values is known, this can be specified via argument \code{mi}, in which case the adjustment as described by Cho et al. (2019) is also applied). Under the assumption that the data within the two groups are normally distributed (the so-called binormal model), one can also estimate the CLES/AUC values from the means and standard deviations of the two groups. For this, one sets \code{measure="CLESN"} (or equivalently \code{measure="AUCN"}) and specifies the means via arguments \code{m1i} and \code{m2i}, the standard deviations via arguments \code{sd1i} and \code{sd2i}, and the group sizes via arguments \code{n1i} and \code{n2i}. If \code{vtype="LS"} (the default), the sampling variances are then computed based on the large-sample approximation derived via the delta method (equation 3 (with a correction, since the plus sign in front of the last term in braces should be a multiplication sign) and equation 4 in Goddard & Hinberg, 1990, but using \code{n1i-1} and \code{n2i-1} in the denominators). Computing the CLES/AUC values and corresponding sampling variances does not assume homoscedasticity of the variances in the two groups. However, when \code{vtype="HO"}, then homoscedasticity is assumed (this will also affect the calculation of the CLES/AUC values themselves). As for \code{measure="SMD"}, one can also specify standardized mean differences via argument \code{di}, t-statistics from an independent samples t-test via argument \code{ti}, and/or signed two-sided p-values corresponding to the t-tests via argument \code{pi}, which all can be converted into CLES/AUC values (note that this automatically assumes homoscedasticity). One can also directly specify binormal model CLES/AUC values via argument \code{ai} (but unless the corresponding \code{sd1i} and \code{sd2i} values are also specified, the sampling variances are then computed under the assumption of homoscedasticity). } \subsection{(1b) Measures for Dichotomous Variables}{ In various fields of research (such as the health and medical sciences), the response variable measured within the individual studies is often dichotomous (binary), so that the data from a study comparing two different groups can be expressed in terms of a \mjeqn{2 \times 2}{2x2} table, such as: \tabular{lcccccc}{ \tab \ics \tab outcome 1 \tab \ics \tab outcome 2 \tab \ics \tab total \cr group 1 \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \tab \ics \tab \code{n1i} \cr group 2 \tab \ics \tab \code{ci} \tab \ics \tab \code{di} \tab \ics \tab \code{n2i}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies (i.e., the number of individuals falling into a particular category) and \code{n1i} and \code{n2i} are the row totals (i.e., the group sizes). For example, in a set of randomized clinical trials, group 1 and group 2 may refer to the treatment and placebo/control group, respectively, with outcome 1 denoting some event of interest (e.g., death, complications, failure to improve under the treatment) and outcome 2 its complement. Similarly, in a set of cohort studies, group 1 and group 2 may denote those who engage in and those who do not engage in a potentially harmful behavior (e.g., smoking), with outcome 1 denoting the development of a particular disease (e.g., lung cancer) during the follow-up period. Finally, in a set of case-control studies, group 1 and group 2 may refer to those with the disease (i.e., cases) and those free of the disease (i.e., controls), with outcome 1 denoting, for example, exposure to some environmental risk factor in the past and outcome 2 non-exposure. Note that in all of these examples, the stratified sampling scheme fixes the row totals (i.e., the group sizes) by design. A meta-analysis of studies reporting results in terms of \mjeqn{2 \times 2}{2x2} tables can be based on one of several different outcome measures, including the risk ratio (also called the relative risk), the odds ratio, the risk difference, and the arcsine square root transformed risk difference (e.g., Fleiss & Berlin, 2009, \enc{Rücker}{Ruecker} et al., 2009). For any of these outcome measures, one needs to specify the cell frequencies via the \code{ai}, \code{bi}, \code{ci}, and \code{di} arguments (or alternatively, one can use the \code{ai}, \code{ci}, \code{n1i}, and \code{n2i} arguments). The options for the \code{measure} argument are then: \itemize{ \item \code{"RR"} for the \emph{log risk ratio}, \item \code{"OR"} for the \emph{log odds ratio}, \item \code{"RD"} for the \emph{risk difference}, \item \code{"AS"} for the \emph{arcsine square root transformed risk difference} (\enc{Rücker}{Ruecker} et al., 2009), \item \code{"PETO"} for the \emph{log odds ratio} estimated with Peto's method (Yusuf et al., 1985). } Let \mjeqn{\text{p1i} = \text{ai}/\text{n1i}}{p1i = ai/n1i} and \mjeqn{\text{p2i} = \text{ci}/\text{n2i}}{p2i = ci/n2i} denote the proportion of individuals with outcome 1 in group 1 and group 2, respectively. Then the log risk ratio is computed with \mjeqn{\log(\text{p1i}/\text{p2i})}{log(p1i/p2i)}, the log odds ratio with \mjeqn{\log\mathopen{}\left(\left(\frac{\text{p1i}}{1-\text{p1i}}\right) \middle/ \left(\frac{\text{p2i}}{1-\text{p2i}}\right) \right)\mathclose{}}{log((p1i/(1-p1i))/(p2i/(1-p2i)))}, the risk difference with \mjeqn{\text{p1i}-\text{p2i}}{p1i-p2i}, and the arcsine square root transformed risk difference with \mjeqn{\text{asin}(\sqrt{\text{p1i}})-\text{asin}(\sqrt{\text{p2i}})}{asin(sqrt(p1i))-asin(sqrt(p2i))}. See Yusuf et al. (1985) for the computation of the log odds ratio when \code{measure="PETO"}. Note that the log is taken of the risk ratio and the odds ratio, which makes these outcome measures symmetric around 0 and results in corresponding sampling distributions that are closer to normality. Also, when multiplied by 2, the arcsine square root transformed risk difference is identical to Cohen's h (Cohen, 1988). For all of these measures, a positive value indicates that the proportion of individuals with outcome 1 is larger in group 1 compared to group 2. Cell entries with a zero count can be problematic, especially for the risk ratio and the odds ratio. Adding a small constant to the cells of the \mjeqn{2 \times 2}{2x2} tables is a common solution to this problem. When \code{to="only0"} (the default), the value of \code{add} (the default is \code{1/2}; but see \sQuote{Note}) is added to each cell of those \mjeqn{2 \times 2}{2x2} tables with at least one cell equal to 0. When \code{to="all"}, the value of \code{add} is added to each cell of all \mjeqn{2 \times 2}{2x2} tables. When \code{to="if0all"}, the value of \code{add} is added to each cell of all \mjeqn{2 \times 2}{2x2} tables, but only when there is at least one \mjeqn{2 \times 2}{2x2} table with a zero cell. Setting \code{to="none"} or \code{add=0} has the same effect: No adjustment to the observed table frequencies is made. Depending on the outcome measure and the data, this may lead to division by zero (when this occurs, the resulting value is recoded to \code{NA}). Also, studies where \code{ai=ci=0} or \code{bi=di=0} may be considered to be uninformative about the size of the effect and dropping such studies has sometimes been recommended (Higgins et al., 2019). This can be done by setting \code{drop00=TRUE}. The values for such studies will then be set to \code{NA} (i.e., missing). Datasets corresponding to data of this type are provided in \code{\link[metadat]{dat.bcg}}, \code{\link[metadat]{dat.collins1985a}}, \code{\link[metadat]{dat.collins1985b}}, \code{\link[metadat]{dat.egger2001}}, \code{\link[metadat]{dat.hine1989}}, \code{\link[metadat]{dat.laopaiboon2015}}, \code{\link[metadat]{dat.lee2004}}, \code{\link[metadat]{dat.li2007}}, \code{\link[metadat]{dat.linde2005}}, \code{\link[metadat]{dat.nielweise2007}}, and \code{\link[metadat]{dat.yusuf1985}}. If the \mjeqn{2 \times 2}{2x2} table is not available (or cannot be reconstructed, for example with the \code{\link{conv.2x2}} function) for a study, but the odds ratio and the corresponding confidence interval is reported, one can easily transform these values into the corresponding log odds ratio and sampling variance (and combine such a study with those that do report \mjeqn{2 \times 2}{2x2} table data). See the \code{\link{conv.wald}} function and \href{https://www.metafor-project.org/doku.php/tips:assembling_data_or}{here} for an illustration/discussion of this. } \subsection{(1c) Measures for Event Counts}{ In medical and epidemiological studies comparing two different groups (e.g., treated versus untreated patients, exposed versus unexposed individuals), results are sometimes reported in terms of event counts (i.e., the number of events, such as strokes or myocardial infarctions) over a certain period of time. Data of this type are also referred to as \sQuote{person-time data}. Assume that the studies report data in the form: \tabular{lcccc}{ \tab \ics \tab number of events \tab \ics \tab total person-time \cr group 1 \tab \ics \tab \code{x1i} \tab \ics \tab \code{t1i} \cr group 2 \tab \ics \tab \code{x2i} \tab \ics \tab \code{t2i}} where \code{x1i} and \code{x2i} denote the number of events in the first and the second group, respectively, and \code{t1i} and \code{t2i} the corresponding total person-times at risk. Often, the person-time is measured in years, so that \code{t1i} and \code{t2i} denote the total number of follow-up years in the two groups. This form of data is fundamentally different from what was described in the previous section, since the total follow-up time may differ even for groups of the same size and the individuals studied may experience the event of interest multiple times. Hence, different outcome measures than the ones described in the previous section need to be considered when data are reported in this format. These include the incidence rate ratio, the incidence rate difference, and the square root transformed incidence rate difference (Bagos & Nikolopoulos, 2009; Rothman et al., 2008). For any of these outcome measures, one needs to specify the total number of events via the \code{x1i} and \code{x2i} arguments and the corresponding total person-time values via the \code{t1i} and \code{t2i} arguments. The options for the \code{measure} argument are then: \itemize{ \item \code{"IRR"} for the \emph{log incidence rate ratio}, \item \code{"IRD"} for the \emph{incidence rate difference}, \item \code{"IRSD"} for the \emph{square root transformed incidence rate difference}. } Let \mjeqn{\text{ir1i} = \text{x1i}/\text{t1i}}{ir1i = x1i/t1i} and \mjeqn{\text{ir2i} = \text{x2i}/\text{t2i}}{ir2i = x2i/t2i} denote the observed incidence rates in each group. Then the log incidence rate ratio is computed with \mjeqn{\log(\text{ir1i}/\text{ir2i})}{log(ir1i/ir2i)}, the incidence rate difference with \mjeqn{\text{ir1i}-\text{ir2i}}{ir1i-ir2i}, and the square root transformed incidence rate difference with \mjeqn{\sqrt{\text{ir1i}}-\sqrt{\text{ir2i}}}{sqrt(ir1i)-sqrt(ir2i)}. Note that the log is taken of the incidence rate ratio, which makes this outcome measure symmetric around 0 and results in a sampling distribution that is closer to normality. Studies with zero events in one or both groups can be problematic, especially for the incidence rate ratio. Adding a small constant to the number of events is a common solution to this problem. When \code{to="only0"} (the default), the value of \code{add} (the default is \code{1/2}; but see \sQuote{Note}) is added to \code{x1i} and \code{x2i} only in the studies that have zero events in one or both groups. When \code{to="all"}, the value of \code{add} is added to \code{x1i} and \code{x2i} in all studies. When \code{to="if0all"}, the value of \code{add} is added to \code{x1i} and \code{x2i} in all studies, but only when there is at least one study with zero events in one or both groups. Setting \code{to="none"} or \code{add=0} has the same effect: No adjustment to the observed number of events is made. Depending on the outcome measure and the data, this may lead to division by zero (when this occurs, the resulting value is recoded to \code{NA}). Like for \mjeqn{2 \times 2}{2x2} table data, studies where \code{x1i=x2i=0} may be considered to be uninformative about the size of the effect and dropping such studies has sometimes been recommended. This can be done by setting \code{drop00=TRUE}. The values for such studies will then be set to \code{NA}. Datasets corresponding to data of this type are provided in \code{\link[metadat]{dat.hart1999}} and \code{\link[metadat]{dat.nielweise2008}}. } \subsection{(1d) Transforming SMDs to ORs and Vice-Versa}{ In some meta-analyses, one may encounter studies that contrast two groups with respect to a quantitative response variable (case 1a above) and other studies that contrast the same two groups with respect to a dichotomous variable (case 2b above). If both types of studies are to be combined in the same analysis, one needs to compute the same outcome measure across all studies. For this, one may need to transform standardized mean differences into log odds ratios (e.g., Cox & Snell, 1989; Chinn, 2000; Hasselblad & Hedges, 1995; \enc{Sánchez-Meca}{Sanchez-Meca} et al., 2003). Here, the data need to be specified as described under (1a) and the options for the \code{measure} argument are then: \itemize{ \item \code{"D2ORN"} for the \emph{transformed standardized mean difference} assuming normal distributions, \item \code{"D2ORL"} for the \emph{transformed standardized mean difference} assuming logistic distributions. } Both of these transformations provide an estimate of the log odds ratio, the first assuming that the responses within the two groups are normally distributed, while the second assumes that the responses follow logistic distributions. Alternatively, assuming that the dichotomous outcome in a \mjeqn{2 \times 2}{2x2} table is actually a dichotomized version of the responses on an underlying quantitative scale, it is also possible to estimate the standardized mean difference based on \mjeqn{2 \times 2}{2x2} table data, using either the probit transformed risk difference or a transformation of the odds ratio (e.g., Cox & Snell, 1989; Chinn, 2000; Hasselblad & Hedges, 1995; \enc{Sánchez-Meca}{Sanchez-Meca} et al., 2003). Here, the data need to be specified as described under (1b) and the options for the \code{measure} argument are then: \itemize{ \item \code{"PBIT"} for the \emph{probit transformed risk difference}, \item \code{"OR2DN"} for the \emph{transformed odds ratio} assuming normal distributions, \item \code{"OR2DL"} for the \emph{transformed odds ratio} assuming logistic distributions. } All of these transformations provide an estimate of the standardized mean difference, the first two assuming that the responses on the underlying quantitative scale are normally distributed, while the third assumes that the responses follow logistic distributions. A dataset illustrating the combined analysis of standardized mean differences and probit transformed risk differences is provided in \code{\link[metadat]{dat.gibson2002}}. } } \subsection{(2) Outcome Measures for Variable Association}{ Meta-analyses are often used to synthesize studies that examine the direction and strength of the association between two variables measured concurrently and/or without manipulation by experimenters. In this section, a variety of outcome measures will be discussed that may be suitable for a meta-analysis with this purpose. We can distinguish between measures that are applicable when both variables are measured on quantitative scales, when both variables measured are dichotomous, and when the two variables are of mixed types. \subsection{(2a) Measures for Two Quantitative Variables}{ The (Pearson or product-moment) correlation coefficient quantifies the direction and strength of the (linear) relationship between two quantitative variables and is therefore frequently used as the outcome measure for meta-analyses. Two alternative measures are a bias-corrected version of the correlation coefficient and Fisher's r-to-z transformed correlation coefficient. For these measures, one needs to specify \code{ri}, the vector with the raw correlation coefficients, and \code{ni}, the corresponding sample sizes. The options for the \code{measure} argument are then: \itemize{ \item \code{"COR"} for the \emph{raw correlation coefficient}, \item \code{"UCOR"} for the \emph{raw correlation coefficient} corrected for its slight negative bias (based on equation 2.3 in Olkin & Pratt, 1958), \item \code{"ZCOR"} for \emph{Fisher's r-to-z transformed correlation coefficient} (Fisher, 1921). } If the correlation coefficient is unknown for some studies, but the t-statistics (i.e., \mjseqn{t_i = r_i \sqrt{n_i - 2} / \sqrt{1 - r_i^2}}) are available for those studies (for the standard test of \mjeqn{\text{H}_0{:}\; \rho_i = 0}{H_0: \rho_i = 0}), one can specify those values via argument \code{ti}, which are then transformed into the corresponding correlation coefficients within the function (the sign of the t-statistics is then taken to be the sign of the correlations). If only the two-sided p-values corresponding to the t-tests are known, one can specify those values via argument \code{pi}. However, since a two-sided p-value does not carry information about the sign of the test statistic (and hence neither about the correlation), the sign of the p-values (which can be negative) is used as the sign of the correlation coefficients (e.g., \code{escalc(measure="COR", pi=-0.07, ni=30)} yields a negative correlation of \code{-0.3354}). For \code{measure="COR"} and \code{measure="UCOR"}, one can choose between \code{vtype="LS"} (the default) for the usual large-sample approximation to compute the sampling variances (i.e., plugging the (biased-corrected) correlation coefficients into equation 12.27 in Borenstein, 2009) and \code{vtype="AV"} to compute the sampling variances with the usual large-sample approximation but plugging the sample-size weighted average of the (bias-corrected) correlation coefficients into the equation. For \code{measure="COR"}, one can also choose \code{vtype="H0"} to compute the sampling variances under the null hypothesis (that the true correlations are equal to zero). For \code{measure="UCOR"}, one can also choose \code{vtype="UB"} to compute unbiased estimates of the sampling variances (see Hedges, 1989, but using the exact equation instead of the approximation). Datasets corresponding to data of this type are provided in \code{\link[metadat]{dat.mcdaniel1994}} and \code{\link[metadat]{dat.molloy2014}}. For meta-analyses involving multiple (dependent) correlation coefficients extracted from the same sample, see also the \code{\link{rcalc}} function. } \subsection{(2b) Measures for Two Dichotomous Variables}{ When the goal of a meta-analysis is to examine the relationship between two dichotomous variables, the data for each study can again be presented in the form of a \mjeqn{2 \times 2}{2x2} table, except that there may not be a clear distinction between the grouping variable and the outcome variable. Moreover, the table may be a result of cross-sectional (i.e., multinomial) sampling, where none of the table margins (except the total sample size) are fixed by the study design. In particular, assume that the data of interest for a particular study are of the form: \tabular{lcccccc}{ \tab \ics \tab variable 2, outcome + \tab \ics \tab variable 2, outcome - \tab \ics \tab total \cr variable 1, outcome + \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \tab \ics \tab \code{n1i} \cr variable 1, outcome - \tab \ics \tab \code{ci} \tab \ics \tab \code{di} \tab \ics \tab \code{n2i}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies (i.e., the number of individuals falling into a particular category) and \code{n1i} and \code{n2i} are the row totals. The phi coefficient and the odds ratio are commonly used measures of association for \mjeqn{2 \times 2}{2x2} table data (e.g., Fleiss & Berlin, 2009). The latter is particularly advantageous, as it is directly comparable to values obtained from stratified sampling (as described earlier). Yule's Q and Yule's Y (Yule, 1912) are additional measures of association for \mjeqn{2 \times 2}{2x2} table data (although they are not typically used in meta-analyses). Finally, assuming that the two dichotomous variables are actually dichotomized versions of the responses on two underlying quantitative scales (and assuming that the two variables follow a bivariate normal distribution), it is also possible to estimate the correlation between the two quantitative variables using the tetrachoric correlation coefficient (Pearson, 1900; Kirk, 1973). For any of these outcome measures, one needs to specify the cell frequencies via the \code{ai}, \code{bi}, \code{ci}, and \code{di} arguments (or alternatively, one can use the \code{ai}, \code{ci}, \code{n1i}, and \code{n2i} arguments). The options for the \code{measure} argument are then: \itemize{ \item \code{"OR"} for the \emph{log odds ratio}, \item \code{"PHI"} for the \emph{phi coefficient}, \item \code{"YUQ"} for \emph{Yule's Q} (Yule, 1912), \item \code{"YUY"} for \emph{Yule's Y} (Yule, 1912), \item \code{"RTET"} for the \emph{tetrachoric correlation coefficient}. } There are also measures \code{"ZPHI"} and \code{"ZTET"} for applying Fisher's r-to-z transformation to these measures. This may be useful when combining these with other types of correlation coefficients that were r-to-z transformed. However, note that the r-to-z transformation is \emph{not} a variance-stabilizing transformation for these measures. Tables with one or more zero counts are handled as described earlier. For \code{measure="PHI"}, one must indicate via \code{vtype="ST"} or \code{vtype="CS"} whether the data for the studies were obtained using stratified or cross-sectional (i.e., multinomial) sampling, respectively (it is also possible to specify an entire vector for the \code{vtype} argument in case the sampling scheme differed for the various studies). Note that \code{vtype="LS"} is treated like \code{vtype="CS"}. A dataset corresponding to data of this type is provided in \code{\link[metadat]{dat.bourassa1996}}. } \subsection{(2d) Measures for Mixed Variable Types}{ We can also consider outcome measures that can be used to describe the relationship between two variables, where one variable is dichotomous and the other variable measures some quantitative characteristic. In that case, it is likely that study authors again report summary statistics, such as the mean and standard deviation of the measurements within the two groups (defined by the dichotomous variable). Based on this information, one can compute the point-biserial correlation coefficient (Tate, 1954) as a measure of association between the two variables. If the dichotomous variable is actually a dichotomized version of the responses on an underlying quantitative scale (and assuming that the two variables follow a bivariate normal distribution), it is also possible to estimate the correlation between the two variables using the biserial correlation coefficient (Pearson, 1909; Soper, 1914; Jacobs & Viechtbauer, 2017). Here, one again needs to specify \code{m1i} and \code{m2i} for the observed means of the two groups, \code{sd1i} and \code{sd2i} for the observed standard deviations, and \code{n1i} and \code{n2i} for the number of individuals in each group. The options for the \code{measure} argument are then: \itemize{ \item \code{"RPB"} for the \emph{point-biserial correlation coefficient}, \item \code{"RBIS"} for the \emph{biserial correlation coefficient}. } There are also measures \code{"ZPB"} and \code{"ZBIS"} for applying Fisher's r-to-z transformation to these measures. This may be useful when combining these with other types of correlation coefficients that were r-to-z transformed. However, note that the r-to-z transformation is \emph{not} a variance-stabilizing transformation for these measures. If the means and standard deviations are unknown for some studies, one can also use arguments \code{di}, \code{ri}, \code{ti}, or \code{pi} to specify standardized mean differences (Cohen's d values), point-biserial correlations, t-statistics from an independent samples t-test, or signed p-values for the t-test, respectively, as described earlier under (1a) (together with the group sizes, these are sufficient statistics for computing the (point-)biserial correlation coefficients). For \code{measure="RPB"}, one must indicate via \code{vtype="ST"} or \code{vtype="CS"} whether the data for the studies were obtained using stratified or cross-sectional (i.e., multinomial) sampling, respectively (it is also possible to specify an entire vector for the \code{vtype} argument in case the sampling scheme differed for the various studies). Note that \code{vtype="LS"} is treated like \code{vtype="ST"}. } } \subsection{(3) Outcome Measures for Individual Groups}{ In this section, outcome measures will be described which may be useful when the goal of a meta-analysis is to synthesize studies that characterize some property of individual groups. We will again distinguish between measures that are applicable when the characteristic assessed is a quantitative variable, a dichotomous variable, or when the characteristic represents an event count. \subsection{(3a) Measures for Quantitative Variables}{ The goal of a meta-analysis may be to characterize individual groups, where the response, characteristic, or dependent variable assessed in the individual studies is measured on some quantitative scale. In the simplest case, the raw mean for the quantitative variable is reported for each group, which then becomes the observed outcome for the meta-analysis. Here, one needs to specify \code{mi}, \code{sdi}, and \code{ni} for the observed means, the observed standard deviations, and the sample sizes, respectively. One can also compute the \sQuote{single-group standardized mean}, where the mean is divided by the standard deviation (when first subtracting some fixed constant from each mean, then this is the \sQuote{single-group standardized mean difference}). If focus is solely on the variability of the measurements, then the log transformed standard deviation is a useful measure (Nakagawa et al., 2015; Raudenbush & Bryk, 1987). For this measure, one only needs to specify \code{sdi} and \code{ni}. For ratio scale measurements, the log transformed mean or the log transformed coefficient of variation may also be of interest (Nakagawa et al., 2015). The options for the \code{measure} argument are: \itemize{ \item \code{"MN"} for the \emph{raw mean}, \item \code{"SMN"} for the \emph{single-group standardized mean (difference)}, \item \code{"MNLN"} for the \emph{log transformed mean}, \item \code{"SDLN"} for the \emph{log transformed standard deviation}, \item \code{"CVLN"} for the \emph{log transformed coefficient of variation}. } Note that \code{sdi} is used to specify the standard deviations of the observed values of the response, characteristic, or dependent variable and not the standard errors of the means. Also, the sampling variances for \code{measure="CVLN"} are computed as given by equation 27 in Nakagawa et al. (2015), but without the \sQuote{\mjseqn{-2 \rho \ldots}} term, since for normally distributed data (which we assume here) the mean and variance (and transformations thereof) are independent. } \subsection{(3b) Measures for Dichotomous Variables}{ A meta-analysis may also be conducted to aggregate studies that provide data about individual groups with respect to a dichotomous dependent variable. Here, one needs to specify \code{xi} and \code{ni}, denoting the number of individuals experiencing the event of interest and the total number of individuals within each study, respectively. Instead of specifying \code{ni}, one can use \code{mi} to specify the number of individuals that do not experience the event of interest (i.e., \code{mi=ni-xi}). The options for the \code{measure} argument are then: \itemize{ \item \code{"PR"} for the \emph{raw proportion}, \item \code{"PLN"} for the \emph{log transformed proportion}, \item \code{"PLO"} for the \emph{logit transformed proportion} (i.e., log odds), \item \code{"PRZ"} for the \emph{probit transformed proportion}, \item \code{"PAS"} for the \emph{arcsine square root transformed proportion} (i.e., the angular transformation), \item \code{"PFT"} for the \emph{Freeman-Tukey double arcsine transformed proportion} (Freeman & Tukey, 1950). } However, for reasons discussed in Schwarzer et al. (2019) and \enc{Röver}{Roever} and Friede (2022), the use of double arcsine transformed proportions for a meta-analysis is not recommended. Zero cell entries can be problematic for certain outcome measures. When \code{to="only0"} (the default), the value of \code{add} (the default is \code{1/2}; but see \sQuote{Note}) is added to \code{xi} and \code{mi} only for studies where \code{xi} or \code{mi} is equal to 0. When \code{to="all"}, the value of \code{add} is added to \code{xi} and \code{mi} in all studies. When \code{to="if0all"}, the value of \code{add} is added in all studies, but only when there is at least one study with a zero value for \code{xi} or \code{mi}. Setting \code{to="none"} or \code{add=0} has the same effect: No adjustment to the observed values is made. Depending on the outcome measure and the data, this may lead to division by zero (when this occurs, the resulting value is recoded to \code{NA}). Datasets corresponding to data of this type are provided in \code{\link[metadat]{dat.pritz1997}}, \code{\link[metadat]{dat.debruin2009}}, \code{\link[metadat]{dat.hannum2020}}, and \code{\link[metadat]{dat.crisafulli2020}}. } \subsection{(3c) Measures for Event Counts}{ Various measures can be used to characterize individual groups when the dependent variable assessed is an event count. Here, one needs to specify \code{xi} and \code{ti}, denoting the number of events that occurred and the total person-times at risk, respectively. The options for the \code{measure} argument are then: \itemize{ \item \code{"IR"} for the \emph{raw incidence rate}, \item \code{"IRLN"} for the \emph{log transformed incidence rate}, \item \code{"IRS"} for the \emph{square root transformed incidence rate}, \item \code{"IRFT"} for the \emph{Freeman-Tukey transformed incidence rate} (Freeman & Tukey, 1950). } Measures \code{"IR"} and \code{"IRLN"} can also be used when meta-analyzing standardized incidence ratios (SIRs), where the observed number of events is divided by the expected number of events. In this case, arguments \code{xi} and \code{ti} are used to specify the observed and expected number of events in the studies. Since SIRs are not symmetric around 1, it is usually more appropriate to meta-analyze the log transformed SIRs (i.e., using measure \code{"IRLN"}), which are symmetric around 0. Studies with zero events can be problematic, especially for the log transformed incidence rate. Adding a small constant to the number of events is a common solution to this problem. When \code{to="only0"} (the default), the value of \code{add} (the default is \code{1/2}; but see \sQuote{Note}) is added to \code{xi} only in the studies that have zero events. When \code{to="all"}, the value of \code{add} is added to \code{xi} in all studies. When \code{to="if0all"}, the value of \code{add} is added to \code{xi} in all studies, but only when there is at least one study with zero events. Setting \code{to="none"} or \code{add=0} has the same effect: No adjustment to the observed number of events is made. Depending on the outcome measure and the data, this may lead to division by zero (when this occurs, the resulting value is recoded to \code{NA}). } } \subsection{(4) Outcome Measures for Change or Matched Pairs}{ The purpose of a meta-analysis may be to assess the amount of change within individual groups (e.g., before and after a treatment or under two different treatments) or when dealing with matched pairs designs. \subsection{(4a) Measures for Quantitative Variables}{ When the response or dependent variable assessed in the individual studies is measured on some quantitative scale, the raw mean change, standardized versions thereof, the common language effect size (area under the curve), or the (log transformed) ratio of means (log response ratio) can be used as outcome measures (Becker, 1988; Gibbons et al., 1993; Lajeunesse, 2011; Morris, 2000). Here, one needs to specify \code{m1i} and \code{m2i}, the observed means at the two measurement occasions, \code{sd1i} and \code{sd2i} for the corresponding observed standard deviations, \code{ri} for the correlation between the measurements at the two measurement occasions, and \code{ni} for the sample size. The options for the \code{measure} argument are then: \itemize{ \item \code{"MC"} for the \emph{raw mean change}, \item \code{"SMCC"} for the \emph{standardized mean change} using change score standardization (Gibbons et al., 1993), \item \code{"SMCR"} for the \emph{standardized mean change} using raw score standardization (Becker, 1988), \item \code{"SMCRH"} for the \emph{standardized mean change} using raw score standardization with heteroscedastic population variances at the two measurement occasions (Bonett, 2008), \item \code{"SMCRP"} for the \emph{standardized mean change} using raw score standardization with pooled standard deviations (Cousineau, 2020), \item \code{"SMCRPH"} for the \emph{standardized mean change} using raw score standardization with pooled standard deviations and heteroscedastic population variances at the two measurement occasions (Bonett, 2008), \item \code{"CLESCN"} (or \code{"AUCCN"}) for the \emph{common language effect size} (area under the curve) based on a bivariate normal model for dependent samples, \item \code{"ROMC"} for the \emph{log transformed ratio of means} (Lajeunesse, 2011). } The raw mean change is simply \mjeqn{\text{m1i}-\text{m2i}}{m1i-m2i}, while the standardized mean change is given by \mjeqn{(\text{m1i}-\text{m2i})/\text{sdi}}{(m1i-m2i)/sdi}. For \code{measure="SMCC"}, \mjeqn{\text{sdi} = \sqrt{\text{sd1i}^2 + \text{sd2i}^2 - 2\times\text{ri}\times\text{sd1i}\times\text{sd2i}}}{sdi = sqrt(sd1i^2 + sd2i^2 - 2*ri*sd1i*sd2i)} is the standard deviation of the change scores, for \code{measure="SMCR"} and \code{measure="SMCRH"}, \mjeqn{\text{sdi} = \text{sd1i}}{sdi = sd1i}, and for \code{measure="SMCRP"} and \code{measure="SMCRPH"}, \mjeqn{\text{sdi} = \sqrt{\frac{\text{sd1i}^2 + \text{sd2i}^2}{2}}}{sdi = sqrt((sd1i^2 + sd2i^2) / 2)} is the square root of the average variance. See also Morris and DeShon (2002) for a thorough discussion of the difference between the \code{"SMCC"} and \code{"SMCR"} change score measures. The log transformed ratio of means is simply \mjeqn{\log(\text{m1i}/\text{m2i})}{log(m1i/m2i)}). Bias corrections are applied to measures \code{"SMCC"}, \code{"SMCR"}, \code{"SMCRH"}, \code{"SMCRP"}, \code{"SMCRPH"}, and \code{"ROMC"} unless \code{correct=FALSE}. All of these measures are also applicable for matched pairs designs (subscripts 1 and 2 then simply denote the first and second group that are formed by the matching). In practice, one often has a mix of information available from the individual studies to compute these measures. In particular, if \code{m1i} and \code{m2i} are unknown, but the raw mean change is directly reported in a particular study, then one can set \code{m1i} to that value and \code{m2i} to 0 (making sure that the raw mean change was computed as \code{m1i-m2i} within that study and not the other way around). Also, for measures \code{"MC"} and \code{"SMCC"}, if \code{sd1i}, \code{sd2i}, and \code{ri} are unknown, but the standard deviation of the change scores is directly reported, then one can set \code{sd1i} to that value and both \code{sd2i} and \code{ri} to 0. For measure \code{"SMCR"}, argument \code{sd2i} is actually not needed, as the standardization is only based on \code{sd1i} (Becker, 1988; Morris, 2000), which is usually the pre-test standard deviation (if the post-test standard deviation should be used, then set \code{sd1i} to that). Finally, for \code{measure="SMCC"}, one can also directly specify standardized mean change values via argument \code{di} or the t-statistics from a paired samples t-test or the corresponding two-sided p-values via argument \code{ti} or \code{pi}, respectively (which are then transformed into the corresponding standardized mean change values within the function). The sign of the p-values (which can be negative) is used as the sign of the standardized mean change values (e.g., \code{escalc(measure="SMCC", pi=-0.018, ni=50)} yields a negative standardized mean change value of \code{-0.3408}). Finally, interest may also be focused on differences in the variability of the measurements at the two measurement occasions (or between the two matched groups). For this, the (log transformed) ratio of the standard deviations (also called the \sQuote{variability ratio}) can be used (Senior et al., 2020). To also account for differences in mean levels, the (log transformed) ratio between the coefficients of variation from the two groups (also called the \sQuote{coefficient of variation ratio}) can be a useful measure (Senior et al., 2020). The options for the \code{measure} argument are: \itemize{ \item \code{"VRC"} for the \emph{log transformed variability ratio}, \item \code{"CVRC"} for the \emph{log transformed coefficient of variation ratio}. } Note that a bias correction is applied to measure \code{"VRC"} unless \code{correct=FALSE}. When \code{vtype="LS"} (the default), then the sampling variances are computed with equations 21 and 23 from Senior et al. (2020) for \code{"VR"} and \code{"CVR"}, respectively. When \code{vtype="LS2"}, then equations 22 and 24 based on the second-order Taylor expansions are used instead. } \subsection{(4b) Measures for Dichotomous Variables}{ The data for a study examining change in a dichotomous variable gives rise to a paired \mjeqn{2 \times 2}{2x2} table, which is of the form: \tabular{lcccc}{ \ics \tab \tab trt 2 outcome 1 \tab \ics \tab trt 2 outcome 2 \cr trt 1 outcome 1 \ics \tab \tab \code{ai} \tab \ics \tab \code{bi} \cr trt 1 outcome 2 \ics \tab \tab \code{ci} \tab \ics \tab \code{di}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies. Note that \sQuote{trt1} and \sQuote{trt2} may be applied to a single group of subjects or to matched pairs of subjects. Also, \sQuote{trt1} and \sQuote{trt2} might refer to two different time points (e.g., before and after a treatment). In any case, the data from such a study can be rearranged into a marginal table of the form: \tabular{lcccc}{ \tab \ics \tab outcome 1 \tab \ics \tab outcome 2 \cr trt 1 \tab \ics \tab \code{ai+bi} \tab \ics \tab \code{ci+di} \cr trt 2 \tab \ics \tab \code{ai+ci} \tab \ics \tab \code{bi+di}} which is of the same form as a \mjeqn{2 \times 2}{2x2} table that would arise in a study comparing/contrasting two independent groups. The options for the \code{measure} argument that will compute outcome measures based on the marginal table are: \itemize{ \item \code{"MPRR"} for the matched pairs \emph{marginal log risk ratio}, \item \code{"MPOR"} for the matched pairs \emph{marginal log odds ratio}, \item \code{"MPRD"} for the matched pairs \emph{marginal risk difference}. } See Becker and Balagtas (1993), Curtin et al. (2002), Elbourne et al. (2002), Fagerland et al. (2014), May and Johnson (1997), Newcombe (1998), Stedman et al. (2011), and Zou (2007) for discussions of these measures. The options for the \code{measure} argument that will compute outcome measures based on the paired table are: \itemize{ \item \code{"MPORC"} for the \emph{conditional log odds ratio}, \item \code{"MPPETO"} for the \emph{conditional log odds ratio} estimated with Peto's method. } See Curtin et al. (2002) and Zou (2007) for discussions of these measures. If only marginal tables are available, then another possibility is to compute the marginal log odds ratios based on these table directly. However, for the correct computation of the sampling variances, the correlations (phi coefficients) from the paired tables must be known (or \sQuote{guestimated}). To use this approach, set \code{measure="MPORM"} and use argument \code{ri} to specify the correlation coefficients. Instead of specifying \code{ri}, one can use argument \code{pi} to specify the proportions (or \sQuote{guestimates} thereof) of individuals (or pairs) that experienced the outcome of interest (i.e., \sQuote{outcome1} in the paired \mjeqn{2 \times 2}{2x2} table) under both treatments (i.e., \code{pi=ai/(ai+bi+ci+di)}). Based on these proportions, the correlation coefficients are then back-calculated and used to compute the correct sampling variances. Note that the values in the marginal tables put constraints on the possible values for \code{ri} and \code{pi}. If a specified value for \code{ri} or \code{pi} is not feasible under a given table, the corresponding sampling variance will be \code{NA}. } } \subsection{(5) Other Outcome Measures for Meta-Analyses}{ Other outcome measures are sometimes used for meta-analyses that do not directly fall into the categories above. These are described in this section. \subsection{Cronbach's alpha and Transformations Thereof}{ Meta-analytic methods can also be used to aggregate Cronbach's alpha values from multiple studies. This is usually referred to as a \sQuote{reliability generalization meta-analysis} (Vacha-Haase, 1998). Here, one needs to specify \code{ai}, \code{mi}, and \code{ni} for the observed alpha values, the number of items/replications/parts of the measurement instrument, and the sample sizes, respectively. One can either directly analyze the raw Cronbach's alpha values or transformations thereof (Bonett, 2002, 2010; Hakstian & Whalen, 1976). The options for the \code{measure} argument are then: \itemize{ \item \code{"ARAW"} for \emph{raw alpha} values, \item \code{"AHW"} for \emph{transformed alpha values} (Hakstian & Whalen, 1976), \item \code{"ABT"} for \emph{transformed alpha values} (Bonett, 2002). } Note that the transformations implemented here are slightly different from the ones described by Hakstian and Whalen (1976) and Bonett (2002). In particular, for \code{"AHW"}, the transformation \mjeqn{1-(1-\text{ai})^{1/3}}{1-(1-ai)^(1/3)} is used, while for \code{"ABT"}, the transformation \mjeqn{-\log(1-\text{ai})}{-log(1-ai)} is used. This ensures that the transformed values are monotonically increasing functions of \mjeqn{\text{ai}}{ai}. A dataset corresponding to data of this type is provided in \code{\link[metadat]{dat.bonett2010}}. } \subsection{Partial and Semi-Partial Correlations}{ Aloe and Becker (2012), Aloe and Thompson (2013), and Aloe (2014) describe the use of partial and semi-partial correlation coefficients for meta-analyzing the results from regression models (when the focus is on a common regression coefficient of interest across studies). To compute these measures, one needs to specify \code{ti} for the test statistics (i.e., t-tests) of the \sQuote{focal} regression coefficient of interest, \code{ni} for the sample sizes of the studies, \code{mi} for the total number of predictors in the regression models (counting the focal predictor of interest, but not the intercept term), and \code{r2i} for the \mjseqn{R^2} values of the regression models (the latter is only needed when \code{measure="SPCOR"} or \code{measure="ZSPCOR"}). The options for the \code{measure} argument are then: \itemize{ \item \code{"PCOR"} for the \emph{partial correlation coefficient}, \item \code{"ZPCOR"} for \emph{Fisher's r-to-z transformed partial correlation coefficient}, \item \code{"SPCOR"} for the \emph{semi-partial correlation coefficient}, \item \code{"ZSPCOR"} for \emph{Fisher's r-to-z transformed semi-partial correlation coefficient}. } Note that the signs of the (semi-)partial correlation coefficients is determined based on the signs of the values specified via the \code{ti} argument. Also, while the Fisher transformation can be applied to both measures, it is only a variance-stabilizing transformation for partial correlation coefficients. If the test statistic (i.e., t-test) of the regression coefficient of interest is unknown for some studies, but the two-sided p-values corresponding to the t-tests are known, one can specify those values via argument \code{pi}. However, since a two-sided p-value does not carry information about the sign of the test statistic (and hence neither about the correlation), the sign of the p-values (which can be negative) is used as the sign of the correlation coefficients (e.g., \code{escalc(measure="PCOR", pi=-0.07, mi=5, ni=30)} yields a negative partial correlation of \code{-0.3610}). In the rare case that the (semi-)partial correlations are known for some of the studies, then these can be directly specified via the \code{ri} argument. This can be useful, for example, when \mjseqn{\eta^2_p} (i.e., partial eta squared) is known for the regression coefficient of interest, since the square root thereof is identical to the absolute value of the partial correlation (although the correct sign then still needs to be reconstructed based on other information). A dataset corresponding to data of this type is provided in \code{\link[metadat]{dat.aloe2013}}. } \subsection{Coefficients of Determination}{ One can in principle also meta-analyze coefficients of determination (i.e., \mjseqn{R^2} values / R-squared values) obtained from a series of linear regression models (however, see the caveat mentioned below). For this, one needs to specify \code{r2i} for the \mjseqn{R^2} values of the regression models, \code{ni} for the sample sizes of the studies, and \code{mi} for the number of predictors in the regression models (not counting the intercept term). The options for the \code{measure} argument are then: \itemize{ \item \code{"R2"} for the \emph{raw coefficient of determination} with predictor values treated as random, \item \code{"ZR2"} for the corresponding \emph{r-to-z transformed coefficient of determination}, \item \code{"R2F"} for the \emph{raw coefficient of determination} with predictor values treated as fixed, \item \code{"ZR2F"} for the corresponding \emph{r-to-z transformed coefficient of determination}. } If the \mjseqn{R^2} values are unknown for some studies, but the F-statistics (for the omnibus test of the regression coefficients) are available, one can specify those values via argument \code{fi}, which are then transformed into the corresponding \mjseqn{R^2} values within the function. If only the p-values corresponding to the F-tests are known, one can specify those values via argument \code{pi} (which are then transformed into the F-statistics and then further into the \mjseqn{R^2} values). For \code{measure="R2"}, one can choose to compute the sampling variances with \code{vtype="LS"} (the default) for the large-sample approximation given by equation 27.88 in Kendall and Stuart (1979), \code{vtype="LS2"} for the large-sample approximation given by equation 27.87, or \code{vtype="AV"} and \code{vtype="AV2"} which use the same approximations but plugging the sample-size weighted average of the \mjseqn{R^2} values into the equations. For \code{measure="ZR2"}, the variance-stabilizing transformation \mjeqn{\frac{1}{2} \log\mathopen{}\left(\frac{1+\sqrt{\text{r2i}}}{1-\sqrt{\text{r2i}}}\right)\mathclose{}}{1/2 log((1+\sqrt(R_i^2))/(1-\sqrt(R_i^2)))} is used (see Olkin & Finn, 1995, but with the additional \mjeqn{\frac{1}{2}}{1/2} factor), which uses \mjeqn{1/\text{ni}}{1/ni} as the large-sample approximation to the sampling variances. The equations used for these measures were derived under the assumption that the values of the outcome variable and the predictors were sampled from a multivariate normal distribution within each study (sometimes called \sQuote{random-X regression}) and that the sample sizes of the studies are large. Moreover, the equations assume that the true \mjseqn{R^2} values are non-zero. For the case where the predictor values are treated as fixed (sometimes called \sQuote{fixed-X regression}), one can use measures \code{"R2F"} and \code{"ZR2F"}. Here, the sampling variances of the \mjseqn{R^2} values are computed based on the known relationship between the non-central F-distribution and its non-centrality parameter (which in turn is a function of the true \mjseqn{R^2}). However, note that the r-to-z transformation is \emph{not} a variance-stabilizing transformation for this case. Given that observed \mjseqn{R^2} values cannot be negative, there is no possibility for values to cancel each other out and hence it is guaranteed that the pooled estimate is positive. Hence, a meta-analysis of \mjseqn{R^2} values cannot be used to test if the pooled estimate is different from zero (it is by construction as long as the number of studies is sufficiently large). } \subsection{Relative Excess Heterozygosity}{ Ziegler et al. (2011) describe the use of meta-analytic methods to examine deviations from the Hardy-Weinberg equilibrium across multiple studies. The relative excess heterozygosity (REH) is the proposed measure for such a meta-analysis, which can be computed by setting \code{measure="REH"}. Here, one needs to specify \code{ai} for the number of individuals with homozygous dominant alleles, \code{bi} for the number of individuals with heterozygous alleles, and \code{ci} for the number of individuals with homozygous recessives alleles. Note that the log is taken of the REH values, which makes this outcome measure symmetric around 0 and results in a sampling distribution that is closer to normality. A dataset corresponding to data of this type is provided in \code{\link[metadat]{dat.frank2008}}. } } \subsection{(6) Converting a Data Frame to an 'escalc' Object}{ The function can also be used to convert a regular data frame to an \sQuote{escalc} object. One simply sets the \code{measure} argument to one of the options described above (or to \code{measure="GEN"} for a generic outcome measure not further specified) and passes the observed effect sizes or outcomes via the \code{yi} argument and the corresponding sampling variances via the \code{vi} argument (or the standard errors via the \code{sei} argument) to the function. } \subsection{Other Arguments}{ Argument \code{slab} can be used to specify (study) labels for the effect sizes or outcomes. These labels are passed on to other functions and used as needed (e.g., for labeling the studies in a forest plot). Note that missing values in the study labels are not allowed. The \code{flip} argument, when set to \code{TRUE}, can be used to flip the sign of the effect sizes or outcomes. This can also be a logical vector to indicate for which studies the sign should be flipped. The argument can also be a numeric vector to specify a multiplier for the effect sizes or outcomes (the corresponding sampling variances are adjusted accordingly). The \code{subset} argument can be used to select the studies that will be included in the data frame returned by the function. On the other hand, the \code{include} argument simply selects for which studies the measure will be computed (if it shouldn't be computed for all of them). } } \value{ An object of class \code{c("escalc","data.frame")}. The object is a data frame containing the following components: \item{yi}{vector with the observed effect sizes or outcomes.} \item{vi}{vector with the corresponding sampling variances.} If a data frame was specified via the \code{data} argument and \code{append=TRUE}, then variables \code{yi} and \code{vi} are appended to this data frame. Note that the \code{var.names} argument actually specifies the names of these two variables (\code{"yi"} and \code{"vi"} are the defaults). If the data frame already contains two variables with names as specified by the \code{var.names} argument, the values for these two variables will be overwritten when \code{replace=TRUE} (which is the default). By setting \code{replace=FALSE}, only values that are \code{NA} will be replaced. The object is formatted and printed with the \code{\link[=print.escalc]{print}} function. The \code{\link[=summary.escalc]{summary}} function can be used to obtain confidence intervals for the individual outcomes. See \code{\link{methods.escalc}} for some additional method functions for \code{"escalc"} objects. With the \code{\link[=aggregate.escalc]{aggregate}} function, one can aggregate multiple effect sizes or outcomes belonging to the same study (or some other clustering variable) into a single combined effect size or outcome. } \note{ The variable names specified under \code{var.names} should be syntactically valid variable names. If necessary, they are adjusted so that they are. Although the default value for \code{add} is \code{1/2}, for certain measures the use of such a bias correction makes little sense and for these measures, the function internally sets \code{add=0}. This applies to the following measures: \code{"AS"}, \code{"PHI"}, \code{"ZPHI"}, \code{"RTET"}, \code{"ZTET"}, \code{"IRSD"}, \code{"PAS"}, \code{"PFT"}, \code{"IRS"}, and \code{"IRFT"}. One can still force the use of the bias correction by explicitly setting the \code{add} argument to some non-zero value when calling the function. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Aloe, A. M. (2014). An empirical investigation of partial effect sizes in meta-analysis of correlational data. \emph{Journal of General Psychology}, \bold{141}(1), 47--64. \verb{https://doi.org/10.1080/00221309.2013.853021} Aloe, A. M., & Becker, B. J. (2012). An effect size for regression predictors in meta-analysis. \emph{Journal of Educational and Behavioral Statistics}, \bold{37}(2), 278--297. \verb{https://doi.org/10.3102/1076998610396901} Aloe, A. M., & Thompson, C. G. (2013). The synthesis of partial effect sizes. \emph{Journal of the Society for Social Work and Research}, \bold{4}(4), 390--405. \verb{https://doi.org/10.5243/jsswr.2013.24} Bagos, P. G., & Nikolopoulos, G. K. (2009). Mixed-effects Poisson regression models for meta-analysis of follow-up studies with constant or varying durations. \emph{The International Journal of Biostatistics}, \bold{5}(1). \verb{https://doi.org/10.2202/1557-4679.1168} Becker, B. J. (1988). Synthesizing standardized mean-change measures. \emph{British Journal of Mathematical and Statistical Psychology}, \bold{41}(2), 257--278. \verb{https://doi.org/10.1111/j.2044-8317.1988.tb00901.x} Becker, M. P., & Balagtas, C. C. (1993). Marginal modeling of binary cross-over data. \emph{Biometrics}, \bold{49}(4), 997--1009. \verb{https://doi.org/10.2307/2532242} Bonett, D. G. (2002). Sample size requirements for testing and estimating coefficient alpha. \emph{Journal of Educational and Behavioral Statistics}, \bold{27}(4), 335--340. \verb{https://doi.org/10.3102/10769986027004335} Bonett, D. G. (2008). Confidence intervals for standardized linear contrasts of means. \emph{Psychological Methods}, \bold{13}(2), 99--109. \verb{https://doi.org/10.1037/1082-989X.13.2.99} Bonett, D. G. (2009). Meta-analytic interval estimation for standardized and unstandardized mean differences. \emph{Psychological Methods}, \bold{14}(3), 225--238. \verb{https://doi.org/10.1037/a0016619} Bonett, D. G. (2010). Varying coefficient meta-analytic methods for alpha reliability. \emph{Psychological Methods}, \bold{15}(4), 368--385. \verb{https://doi.org/10.1037/a0020142} Borenstein, M. (2009). Effect sizes for continuous data. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (2nd ed., pp. 221--235). New York: Russell Sage Foundation. Chinn, S. (2000). A simple method for converting an odds ratio to effect size for use in meta-analysis. \emph{Statistics in Medicine}, \bold{19}(22), 3127--3131. \verb{https://doi.org/10.1002/1097-0258(20001130)19:22<3127::aid-sim784>3.0.co;2-m} Cho, H., Matthews, G. J., & Harel, O. (2019). Confidence intervals for the area under the receiver operating characteristic curve in the presence of ignorable missing data. \emph{International Statistical Review}, \bold{87}(1), 152--177. \verb{https://doi.org/10.1111/insr.12277} Cohen, J. (1988). \emph{Statistical power analysis for the behavioral sciences} (2nd ed.). Hillsdale, NJ: Lawrence Erlbaum Associates. Cousineau, D. (2020). Approximating the distribution of Cohen's d_p in within-subject designs. \emph{The Quantitative Methods for Psychology}, \bold{16}(4), 418--421. \verb{https://doi.org/10.20982/tqmp.16.4.p418} Cox, D. R., & Snell, E. J. (1989). \emph{Analysis of binary data} (2nd ed.). London: Chapman & Hall. Curtin, F., Elbourne, D., & Altman, D. G. (2002). Meta-analysis combining parallel and cross-over clinical trials. II: Binary outcomes. \emph{Statistics in Medicine}, \bold{21}(15), 2145--2159. \verb{https://doi.org/10.1002/sim.1206} Elbourne, D. R., Altman, D. G., Higgins, J. P. T., Curtin, F., Worthington, H. V., & Vail, A. (2002). Meta-analyses involving cross-over trials: Methodological issues. \emph{International Journal of Epidemiology}, \bold{31}(1), 140--149. \verb{https://doi.org/10.1093/ije/31.1.140} Fagerland, M. W., Lydersen, S., & Laake, P. (2014). Recommended tests and confidence intervals for paired binomial proportions. \emph{Statistics in Medicine}, \bold{33}(16), 2850--2875. \verb{https://doi.org/10.1002/sim.6148} Fisher, R. A. (1921). On the \dQuote{probable error} of a coefficient of correlation deduced from a small sample. \emph{Metron}, \bold{1}, 1--32. \verb{https://hdl.handle.net/2440/15169} Fleiss, J. L., & Berlin, J. (2009). Effect sizes for dichotomous data. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (2nd ed., pp. 237--253). New York: Russell Sage Foundation. Freeman, M. F., & Tukey, J. W. (1950). Transformations related to the angular and the square root. \emph{Annals of Mathematical Statistics}, \bold{21}(4), 607--611. \verb{https://doi.org/10.1214/aoms/1177729756} Gibbons, R. D., Hedeker, D. R., & Davis, J. M. (1993). Estimation of effect size from a series of experiments involving paired comparisons. \emph{Journal of Educational Statistics}, \bold{18}(3), 271--279. \verb{https://doi.org/10.3102/10769986018003271} Goddard, M. J., & Hinberg, I. (1990). Receiver operator characteristic (ROC) curves and nonâ€normal data: An empirical study. \emph{Statistics in Medicine}, \bold{9}(3), 325--337. \verb{https://doi.org/10.1002/sim.4780090315} Hakstian, A. R., & Whalen, T. E. (1976). A k-sample significance test for independent alpha coefficients. \emph{Psychometrika}, \bold{41}(2), 219--231. \verb{https://doi.org/10.1007/BF02291840} Hanley, J. A., & McNeil, B. J. (1982). The meaning and use of the area under a receiver operating characteristic (ROC) curve. \emph{Radiology}, \bold{143}(1), 29--36. \verb{https://doi.org/10.1148/radiology.143.1.7063747} Hasselblad, V., & Hedges, L. V. (1995). Meta-analysis of screening and diagnostic tests. Psychological Bulletin, 117(1), 167--178. \verb{https://doi.org/10.1037/0033-2909.117.1.167} Hedges, L. V. (1981). Distribution theory for Glass's estimator of effect size and related estimators. \emph{Journal of Educational Statistics}, \bold{6}(2), 107--128. \verb{https://doi.org/10.3102/10769986006002107} Hedges, L. V. (1982). Estimation of effect size from a series of independent experiments. \emph{Psychological Bulletin}, \bold{92}(2), 490--499. \verb{https://doi.org/10.1037/0033-2909.92.2.490} Hedges, L. V. (1983). A random effects model for effect sizes. \emph{Psychological Bulletin}, \bold{93}(2), 388--395. \verb{https://doi.org/10.1037/0033-2909.93.2.388} Hedges, L. V. (1989). An unbiased correction for sampling error in validity generalization studies. \emph{Journal of Applied Psychology}, \bold{74}(3), 469--477. \verb{https://doi.org/10.1037/0021-9010.74.3.469} Hedges, L. V., Gurevitch, J., & Curtis, P. S. (1999). The meta-analysis of response ratios in experimental ecology. \emph{Ecology}, \bold{80}(4), 1150--1156. \verb{https://doi.org/10.1890/0012-9658(1999)080[1150:TMAORR]2.0.CO;2} Higgins, J. P. T., Thomas, J., Chandler, J., Cumpston, M., Li, T., Page, M. J., & Welch, V. A. (Eds.) (2019). \emph{Cochrane handbook for systematic reviews of interventions} (2nd ed.). Chichester, UK: Wiley. \verb{https://training.cochrane.org/handbook} Jacobs, P., & Viechtbauer, W. (2017). Estimation of the biserial correlation and its sampling variance for use in meta-analysis. \emph{Research Synthesis Methods}, \bold{8}(2), 161--180. \verb{https://doi.org/10.1002/jrsm.1218} Kendall, M., & Stuart, A. (1979). \emph{Kendall's advanced theory of statistics, Vol. 2: Inference and relationship} (4th ed.). New York: Macmillan. Kirk, D. B. (1973). On the numerical approximation of the bivariate normal (tetrachoric) correlation coefficient. \emph{Psychometrika}, \bold{38}(2), 259--268. \verb{https://doi.org/10.1007/BF02291118} Lajeunesse, M. J. (2011). On the meta-analysis of response ratios for studies with correlated and multi-group designs. \emph{Ecology}, \bold{92}(11), 2049--2055. \verb{https://doi.org/10.1890/11-0423.1} Lajeunesse, M. J. (2015). Bias and correction for the log response ratio in ecological meta-analysis. \emph{Ecology}, \bold{96}(8), 2056--2063. \verb{https://doi.org/10.1890/14-2402.1} May, W. L., & Johnson, W. D. (1997). Confidence intervals for differences in correlated binary proportions. \emph{Statistics in Medicine}, \bold{16}(18), 2127--2136. \verb{https://doi.org/10.1002/(SICI)1097-0258(19970930)16:18<2127::AID-SIM633>3.0.CO;2-W} McGraw, K. O., & Wong, S. P. (1992). A common language effect size statistic. \emph{Psychological Bulletin}, \bold{111}(2), 361--365. \verb{https://doi.org/10.1037/0033-2909.111.2.361} Morris, S. B. (2000). Distribution of the standardized mean change effect size for meta-analysis on repeated measures. \emph{British Journal of Mathematical and Statistical Psychology}, \bold{53}(1), 17--29. \verb{https://doi.org/10.1348/000711000159150} Morris, S. B., & DeShon, R. P. (2002). Combining effect size estimates in meta-analysis with repeated measures and independent-groups designs. \emph{Psychological Methods}, \bold{7}(1), 105--125. \verb{https://doi.org/10.1037/1082-989x.7.1.105} Nakagawa, S., Poulin, R., Mengersen, K., Reinhold, K., Engqvist, L., Lagisz, M., & Senior, A. M. (2015). Meta-analysis of variation: Ecological and evolutionary applications and beyond. \emph{Methods in Ecology and Evolution}, \bold{6}(2), 143--152. \verb{https://doi.org/10.1111/2041-210x.12309} Nakagawa, S., Noble, D. W. A., Lagisz, M., Spake, R., Viechtbauer, W., & Senior, A. M. (2023). A robust and readily implementable method for the meta-analysis of response ratios with and without missing standard deviations. \emph{Ecology Letters}, \bold{26}(2), 232--244. \verb{https://doi.org/10.1111/ele.14144} Newcombe, R. G. (1998). Improved confidence intervals for the difference between binomial proportions based on paired data. \emph{Statistics in Medicine}, \bold{17}(22), 2635--2650. \verb{https://doi.org/10.1002/(SICI)1097-0258(19981130)17:22<2635::AID-SIM954>3.0.CO;2-C} Newcombe, R. G. (2006). Confidence intervals for an effect size measure based on the Mann-Whitney statistic. Part 2: Asymptotic methods and evaluation. \emph{Statistics in Medicine}, \bold{25}(4), 559--573. \verb{https://doi.org/10.1002/sim.2324} Olkin, I., & Finn, J. D. (1995). Correlations redux. \emph{Psychological Bulletin}, \bold{118}(1), 155--164. \verb{https://doi.org/10.1037/0033-2909.118.1.155} Olkin, I., & Pratt, J. W. (1958). Unbiased estimation of certain correlation coefficients. \emph{Annals of Mathematical Statistics}, \bold{29}(1), 201--211. \verb{https://doi.org/10.1214/aoms/1177706717} Pearson, K. (1900). Mathematical contributions to the theory of evolution. VII. On the correlation of characters not quantitatively measurable. \emph{Philosophical Transactions of the Royal Society of London, Series A}, \bold{195}, 1--47. \verb{https://doi.org/10.1098/rsta.1900.0022} Pearson, K. (1909). On a new method of determining correlation between a measured character A, and a character B, of which only the percentage of cases wherein B exceeds (or falls short of) a given intensity is recorded for each grade of A. \emph{Biometrika}, \bold{7}(1/2), 96--105. \verb{https://doi.org/10.1093/biomet/7.1-2.96} Raudenbush, S. W., & Bryk, A. S. (1987). Examining correlates of diversity. \emph{Journal of Educational Statistics}, \bold{12}(3), 241--269. \verb{https://doi.org/10.3102/10769986012003241} Rothman, K. J., Greenland, S., & Lash, T. L. (2008). \emph{Modern epidemiology} (3rd ed.). Philadelphia: Lippincott Williams & Wilkins. \enc{Röver}{Roever}, C., & Friede, T. (2022). Double arcsine transform not appropriate for metaâ€analysis. \emph{Research Synthesis Methods}, \bold{13}(5), 645--648. \verb{https://doi.org/10.1002/jrsm.1591} \enc{Rücker}{Ruecker}, G., Schwarzer, G., Carpenter, J., & Olkin, I. (2009). Why add anything to nothing? The arcsine difference as a measure of treatment effect in meta-analysis with zero cells. \emph{Statistics in Medicine}, \bold{28}(5), 721--738. \verb{https://doi.org/10.1002/sim.3511} \enc{Sánchez-Meca}{Sanchez-Meca}, J., \enc{Marín-Martínez}{Marin-Martinez}, F., & \enc{Chacón-Moscoso}{Chacon-Moscoso}, S. (2003). Effect-size indices for dichotomized outcomes in meta-analysis. \emph{Psychological Methods}, \bold{8}(4), 448--467. \verb{https://doi.org/10.1037/1082-989X.8.4.448} Schwarzer, G., Chemaitelly, H., Abu-Raddad, L. J., & \enc{Rücker}{Ruecker}, G. (2019). Seriously misleading results using inverse of Freeman-Tukey double arcsine transformation in meta-analysis of single proportions. \emph{Research Synthesis Methods}, \bold{10}(3), 476--483. \verb{https://doi.org/10.1002/jrsm.1348} Senior, A. M., Viechtbauer, W., & Nakagawa, S. (2020). Revisiting and expanding the meta-analysis of variation: The log coefficient of variation ratio. \emph{Research Synthesis Methods}, \bold{11}(4), 553--567. \verb{https://doi.org/10.1002/jrsm.1423} Soper, H. E. (1914). On the probable error of the bi-serial expression for the correlation coefficient. \emph{Biometrika}, \bold{10}(2/3), 384--390. \verb{https://doi.org/10.1093/biomet/10.2-3.384} Stedman, M. R., Curtin, F., Elbourne, D. R., Kesselheim, A. S., & Brookhart, M. A. (2011). Meta-analyses involving cross-over trials: Methodological issues. \emph{International Journal of Epidemiology}, \bold{40}(6), 1732--1734. \verb{https://doi.org/10.1093/ije/dyp345} Tate, R. F. (1954). Correlation between a discrete and a continuous variable: Point-biserial correlation. \emph{Annals of Mathematical Statistics}, \bold{25}(3), 603--607. \verb{https://doi.org/10.1214/aoms/1177728730} Vacha-Haase, T. (1998). Reliability generalization: Exploring variance in measurement error affecting score reliability across studies. \emph{Educational and Psychological Measurement}, \bold{58}(1), 6--20. \verb{https://doi.org/10.1177/0013164498058001002} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Yule, G. U. (1912). On the methods of measuring association between two attributes. \emph{Journal of the Royal Statistical Society}, \bold{75}(6), 579--652. \verb{https://doi.org/10.2307/2340126} Yusuf, S., Peto, R., Lewis, J., Collins, R., & Sleight, P. (1985). Beta blockade during and after myocardial infarction: An overview of the randomized trials. \emph{Progress in Cardiovascular Disease}, \bold{27}(5), 335--371. \verb{https://doi.org/10.1016/s0033-0620(85)80003-7} Ziegler, A., Steen, K. V. & Wellek, S. (2011). Investigating Hardy-Weinberg equilibrium in case-control or cohort studies or meta-analysis. \emph{Breast Cancer Research and Treatment}, \bold{128}(1), 197--201. \verb{https://doi.org/10.1007/s10549-010-1295-z} Zou, G. Y. (2007). One relative risk versus two odds ratios: Implications for meta-analyses involving paired and unpaired binary data. \emph{Clinical Trials}, \bold{4}(1), 25--31. \verb{https://doi.org/10.1177/1740774506075667} } \seealso{ \code{\link[=print.escalc]{print}} and \code{\link[=summary.escalc]{summary}} for the print and summary methods. \code{\link{conv.2x2}} for a function to reconstruct the cell frequencies of \mjeqn{2 \times 2}{2x2} tables based on other summary statistics. \code{\link{conv.fivenum}} for a function to convert five-number summary values to means and standard deviations (needed to compute various effect size measures, such as raw or standardized mean differences and ratios of means / response ratios). \code{\link{conv.wald}} for a function to convert Wald-type confidence intervals and test statistics to sampling variances. \code{\link{conv.delta}} for a function to transform observed effect sizes or outcomes and their sampling variances using the delta method. \code{\link{vcalc}} for a function to construct or approximate the variance-covariance matrix of dependent effect sizes or outcomes. \code{\link{rcalc}} for a function to construct the variance-covariance matrix of dependent correlation coefficients. \code{\link{rma.uni}} and \code{\link{rma.mv}} for model fitting functions that can take the calculated effect sizes or outcomes (and the corresponding sampling variances) as input. \code{\link{rma.mh}}, \code{\link{rma.peto}}, and \code{\link{rma.glmm}} for model fitting functions that take similar inputs. } \examples{ ############################################################################ ### data from the meta-analysis by Coliditz et al. (1994) on the efficacy of ### BCG vaccine in the prevention of tuberculosis dat.bcg dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat ### suppose that for a particular study, yi and vi are known (i.e., have ### already been calculated) but the 2x2 table counts are not known; with ### replace=FALSE, the yi and vi values for that study are not replaced dat[1:12,10:11] <- NA dat[13,4:7] <- NA dat dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, replace=FALSE) dat ### illustrate difference between 'subset' and 'include' arguments escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, subset=1:6) escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, include=1:6) ### illustrate the 'var.names' argument escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, var.names=c("lnrr","var")) ### illustrate the 'slab' argument dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste0(author, ", ", year)) dat ### note: the output looks the same but the study labels are stored as an attribute with the ### effect size estimates (together with the total sample size of the studies and the chosen ### effect size measure) dat$yi ### this information can then be used by other functions; for example in a forest plot forest(dat$yi, dat$vi) ############################################################################ ### convert a regular data frame to an 'escalc' object ### dataset from Lipsey & Wilson (2001), Table 7.1, page 130 dat <- data.frame(id = c(100, 308, 1596, 2479, 9021, 9028, 161, 172, 537, 7049), yi = c(-0.33, 0.32, 0.39, 0.31, 0.17, 0.64, -0.33, 0.15, -0.02, 0.00), vi = c(0.084, 0.035, 0.017, 0.034, 0.072, 0.117, 0.102, 0.093, 0.012, 0.067), random = c(0, 0, 0, 0, 0, 0, 1, 1, 1, 1), intensity = c(7, 3, 7, 5, 7, 7, 4, 4, 5, 6)) dat dat <- escalc(measure="SMD", yi=yi, vi=vi, data=dat, slab=paste("Study ID:", id), digits=3) dat ############################################################################ } \keyword{datagen} metafor/man/misc-options.Rd0000644000176200001440000003476015173343621015414 0ustar liggesusers\name{misc-options} \alias{misc-options} \alias{misc_options} \title{Miscellaneous Options and Features} \description{ This page documents some miscellaneous options and features that do not fit very well elsewhere. \loadmathjax } \details{ \subsection{Specifying the Confidence Level}{ Several functions in the \pkg{metafor} package have a \code{level} argument for specifying the confidence level when calculating confidence (and prediction) intervals. The default is to use a 95\% level throughout the package by convention. Note that values \mjseqn{>=1} are treated as coverage percentages, values between 0.5 and 1 as coverage proportions, and values below 0.5 as (two-sided) alpha values, so \code{level=95} is the same as \code{level=.95} and \code{level=.05} (but \code{level=0} is always treated as a 0\% confidence level). } \subsection{Controlling the Number of Digits in the Output}{ Many functions in the \pkg{metafor} package have a \code{digits} argument, which can be used to control the number of digits that are displayed in the output when printing numeric values. For more control over the displayed output, one can set this argument to a named vector of the form: \preformatted{digits=c(est=2, se=3, test=2, pval=3, ci=2, var=3, sevar=3, fit=3, het=3)} where the elements control the displayed number of digits for various aspects of the output, namely: \itemize{ \item \code{est} for estimates (e.g., effect sizes, model coefficients, predicted values), \item \code{se} for standard errors, \item \code{test} for test statistics, \item \code{pval} for p-values, \item \code{ci} for confidence/prediction interval bounds, \item \code{var} for sampling variances and variance components, \item \code{sevar} for standard errors thereof, \item \code{fit} for fit statistics, \item \code{het} for heterogeneity statistics. } Instead of setting this argument in each function call, one can use \code{setmfopt(digits = ...)} to set the desired number of digits for the various elements (see \code{\link{mfopt}} for getting and setting package options). For example, \code{setmfopt(digits = c(est=2, se=3, test=2, pval=3, ci=2, var=3, sevar=3, fit=3, het=3))} could be a sensible choice when analyzing various types of standardized effect size measures. } \subsection{Styled Output with the crayon Package}{ The \href{https://cran.r-project.org/package=crayon}{crayon} package provides a way to create colored output. The \pkg{metafor} package is designed to automatically make use of this feature when the \code{crayon} package is installed (\code{install.packages("crayon")}) and loaded (\code{library(crayon)}). Note that this only works on terminals that support \sQuote{ANSI} color/highlight codes (e.g., not under RGui on Windows or R.app on macOS, but the RStudio console and all modern terminals should support this). The default color style that is used is quite plain, but should work with a light or dark colored background. One can modify the color style with \code{setmfopt(style = ...)}, where \code{...} is a list whose elements specify the styles for various parts of the output (see below for some examples and the documentation of the \code{crayon} package for the syntax to specify styles). The following elements are recognized: \itemize{ \item \code{header} for the header of tables (underlined by default), \item \code{body1} for odd numbered rows in the body of tables, \item \code{body2} for even numbered rows in the body of tables, \item \code{na} for missing values in tables, \item \code{section} for section headers (bold by default), \item \code{text} for descriptive text in the output, \item \code{result} for the corresponding result(s), \item \code{stop} for errors (bold red by default), \item \code{warning} for warnings (yellow by default), \item \code{message} for messages (green by default), \item \code{verbose} for the text in verbose output (cyan by default), \item \code{legend} for legends (gray by default). } Elements not specified are styled according to their defaults. For example, one could use: \preformatted{setmfopt(style = list(header = combine_styles("gray20", "underline"), body1 = make_style("gray40"), body2 = make_style("gray40"), na = bold, section = combine_styles("gray15", "bold"), text = make_style("gray50"), result = make_style("gray30"), legend = make_style("gray70")))} or \preformatted{setmfopt(style = list(header = combine_styles("gray80", "underline"), body1 = make_style("gray60"), body2 = make_style("gray60"), na = bold, section = combine_styles("gray85", "bold"), text = make_style("gray50"), result = make_style("gray70"), legend = make_style("gray30")))} for a light or dark colored background, respectively. A slightly more colorful style could be: \preformatted{setmfopt(style = list(header = combine_styles("snow", make_style("royalblue4", bg=TRUE)), body1 = combine_styles("gray10", make_style("gray95", bg=TRUE)), body2 = combine_styles("gray10", make_style("gray85", bg=TRUE)), na = combine_styles("orange4", "bold"), section = combine_styles("black", "bold", make_style("gray90", bg=TRUE)), text = make_style("gray40"), result = make_style("blue"), legend = make_style("gray70")))} or \preformatted{setmfopt(style = list(header = combine_styles("snow", make_style("royalblue4", bg=TRUE)), body1 = combine_styles("gray90", make_style("gray10", bg=TRUE)), body2 = combine_styles("gray90", make_style("gray15", bg=TRUE)), na = combine_styles("orange1", "bold"), section = combine_styles("snow", "bold", make_style("gray10", bg=TRUE)), text = make_style("gray60"), result = make_style("steelblue1"), legend = make_style("gray30")))} for a light and dark colored background, respectively. The following code snippet includes all output elements (except for an error) and can be used to test out a chosen color style: \preformatted{# calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat$yi[1] <- NA # set one estimate to missing so we get a warning below dat # fit random-effects model res <- rma(yi, vi, mods = ~ ablat, data=dat, verbose=3) summary(res)} \if{html}{For example, using the color scheme above (for a light colored background), the output should look like this: \figure{crayon1.png}{options: width=800} \figure{crayon2.png}{options: width=800}} Note that support for 256 different colors and text formatting (such as underlined and bold text) differs across terminals. To switch off output styling when the \code{crayon} package is loaded, use \code{setmfopt(style=FALSE}). } \subsection{Removing Empty Lines Before and After the Output}{ When printing output, an empty line is usually added before and after the output. For more compact output, this can be suppressed with \code{setmfopt(space=FALSE)} (see \code{\link{mfopt}} for getting and setting package options). For example, running the following code: \preformatted{# calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) # fit a random-effects model res <- rma(yi, vi, data=dat) res setmfopt(space=FALSE) res} shows the difference. } \subsection{Dark Mode for Plots}{ By default, plots created in \R have a white background and use black (and other darker colors) as the plotting color. Figures created with the \pkg{metafor} package also adhere to this standard. However, all plotting functions in the package are designed in such a way that switching to a dark background is easily possible. For this, one should set the canvas/figure background to a dark color (e.g., \code{"black"} or \code{"gray10"}) and the foreground color to some bright color (e.g., \code{"gray90"}, \code{"gray95"}, or \code{"white"}). This can be easily accomplished with \code{setmfopt(theme="custom", fg="gray95", bg="gray10")} (see \code{\link{mfopt}} for getting and setting package options). Figures that make use of additional colors for various plot elements will by default then use colors that are compatible with the chosen background. For example, the following two figures illustrate the difference between the two styles: \if{html}{ \figure{plots-light.png}{options: width=800} \figure{plots-dark.png}{options: width=800}} \if{latex}{ \figure{plots-light.pdf}{options: width=5.5in} \figure{plots-dark.pdf}{options: width=5.5in}} By setting \code{setmfopt(theme="dark")}, all plots created by the package will automatically use a dark mode. RStudio users can also set \code{setmfopt(theme="auto")}, in which case plotting colors are chosen depending on the RStudio theme used (for some themes, setting this to \code{"auto2"} might be visually more appealing). } \subsection{Version Check}{ When loading the \pkg{metafor} package in an \code{\link{interactive}} session, an automatic check is carried out to compare the version number of the installed package with the one available on \href{https://cran.r-project.org/package=metafor}{CRAN}. If the installed version is older than the one available on CRAN, the user is notified that a new version is available. This check can be suppressed by setting the environment variable \env{METAFOR_VERSION_CHECK} to \code{FALSE} (e.g., with \code{Sys.setenv(METAFOR_VERSION_CHECK=FALSE)}) or with \code{options(metafor=list(check=FALSE))} before loading the package (see \code{\link{mfopt}} for getting and setting package options). By setting the environment variable to \code{"devel"} (e.g., with \code{Sys.setenv(METAFOR_VERSION_CHECK="devel")}) or with \code{options(metafor=list(check="devel"))}, the version check is run against the \sQuote{development version} of the package available on \href{https://github.com/wviechtb/metafor}{GitHub}. } \subsection{Model Fitting / Processing Time}{ The various model fitting functions (i.e., \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, \code{\link{rma.mv}}, and \code{\link{selmodel}}) and various other functions (e.g., \code{\link[=confint.rma.mv]{confint}}, \code{\link{cumul}}, \code{\link{leave1out}}, \code{\link[=profile.rma.mv]{profile}}, \code{\link[=residuals.rma]{rstudent}}) automatically keep track of the model fitting / processing time. This information is stored as element \code{time} (in seconds) in the object that is returned. One can also use argument \code{time=TRUE} to nicely print this information. For example: \preformatted{# fit multilevel mixed-effects meta-regression model and print the processing time res <- rma.mv(yi, vi, mods = ~ condition, random = list(~ 1 | article/experiment/sample/id, ~ 1 | pairing), data=dat.mccurdy2020, sparse=TRUE, digits=3, time=TRUE) # extract the processing time (should take somewhere around 10-20 seconds on a modern CPU) res$time} } \subsection{Model Object Sizes}{ The objects returned by model fitting functions like \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} contain information that is needed by some of the method functions that can be applied to such objects, but that can lead to objects that are relatively large in size. As an example, the model objects that are created as part of the example code for \code{\link[metadat]{dat.moura2021}} are approximately 120MB in size. To reduce the object size, one can make use of the (undocumented) argument \code{outlist}. When setting \code{outlist="minimal"}, the resulting object contains only the minimal information needed to print the object (which results in an object that is around 13KB in size). Alternatively, one can set \code{outlist} to a string that specifies what objects that are created within the model fitting function should be returned (and under which name). For example, \code{outlist="coef=beta, vcov=vb"} would indicate that only the model coefficient(s) (with name \code{coef}) and the corresponding variance-covariance matrix (with name \code{vcov}) should be returned (the resulting object then is only around 2KB in size). Note that this requires knowledge of how objects within the model fitting function are named, so inspection of the source code of a function will then be necessary. Also, there is no guarantee that method functions will still work when including only a subset of the information that is typically stored in model objects. } \subsection{Load Balancing}{ Several functions in the \pkg{metafor} package can make use of parallel processing (e.g., \code{\link[=profile.rma.mv]{profile}}) to speed up intensive computations on machines with multiple cores. When using \code{parallel="snow"}, the default is to use the \code{\link[parallel]{parLapply}} function from the \code{\link[parallel]{parallel}} package for this purpose. In some cases (especially when the parallelized computations take up quite variable amounts of time to complete), using \sQuote{load balancing} may help to speed things up further (by using the \code{\link[parallel]{parLapplyLB}} function). This can be enabled with \code{pbapply::pboptions(use_lb=TRUE)} before running the function that makes use of parallel processing. Whether this really does speed things up depends on many factors and is hard to predict. } } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \keyword{documentation} \keyword{misc} metafor/man/rma.uni.Rd0000644000176200001440000015021415173343621014332 0ustar liggesusers\name{rma.uni} \alias{rma.uni} \alias{rma} \title{Meta-Analysis via Linear (Mixed-Effects) Models} \description{ Function to fit meta-analytic equal-, fixed-, and random-effects models and (mixed-effects) meta-regression models using a linear (mixed-effects) model framework. See below and the introduction to the \pkg{\link{metafor-package}} for more details on these models. \loadmathjax } \usage{ rma.uni(yi, vi, sei, weights, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, fi, pi, sdi, r2i, ni, mods, scale, measure="GEN", data, slab, subset, add=1/2, to="only0", drop00=FALSE, intercept=TRUE, method="REML", weighted=TRUE, test="z", level=95, btt, att, tau2, verbose=FALSE, digits, control, \dots) rma(yi, vi, sei, weights, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, fi, pi, sdi, r2i, ni, mods, scale, measure="GEN", data, slab, subset, add=1/2, to="only0", drop00=FALSE, intercept=TRUE, method="REML", weighted=TRUE, test="z", level=95, btt, att, tau2, verbose=FALSE, digits, control, \dots) } \arguments{ \emph{These arguments pertain to data input:} \item{yi}{vector of length \mjseqn{k} with the observed effect sizes or outcomes. See \sQuote{Details}.} \item{vi}{vector of length \mjseqn{k} with the corresponding sampling variances. See \sQuote{Details}.} \item{sei}{vector of length \mjseqn{k} with the corresponding standard errors (only relevant when not using \code{vi}). See \sQuote{Details}.} \item{weights}{optional argument to specify a vector of length \mjseqn{k} with user-defined weights. See \sQuote{Details}.} \item{ai}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{bi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{ci}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{di}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{n1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{n2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{x1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{x2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{t1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{t2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{m1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{m2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{sd1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{sd2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{xi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{mi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{ri}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{ti}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{fi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{pi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{sdi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{r2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{ni}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{mods}{optional argument to include one or more moderators in the model. A single moderator can be given as a vector of length \mjseqn{k} specifying the values of the moderator. Multiple moderators are specified by giving a matrix with \mjseqn{k} rows and as many columns as there are moderator variables. Alternatively, a model \code{\link{formula}} can be used to specify the model. See \sQuote{Details}.} \item{scale}{optional argument to include one or more predictors for the scale part in a location-scale model. See \sQuote{Details}.} \item{measure}{character string to specify the type of data supplied to the function. When \code{measure="GEN"} (default), the observed effect sizes or outcomes and corresponding sampling variances should be supplied to the function via the \code{yi} and \code{vi} arguments, respectively (instead of the sampling variances, one can supply the standard errors via the \code{sei} argument). Alternatively, one can set \code{measure} to one of the effect sizes or outcome measures described under the documentation for the \code{\link{escalc}} function in which case one must specify the required data via the appropriate arguments (see \code{\link{escalc}}).} \item{data}{optional data frame containing the data supplied to the function.} \item{slab}{optional vector with labels for the \mjseqn{k} studies.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be used for the analysis.} \emph{These arguments pertain to handling of zero cells/counts/frequencies:} \item{add}{see the documentation of the \code{\link{escalc}} function.} \item{to}{see the documentation of the \code{\link{escalc}} function.} \item{drop00}{see the documentation of the \code{\link{escalc}} function.} \emph{These arguments pertain to the model / computations and output:} \item{intercept}{logical to specify whether an intercept should be added to the model (the default is \code{TRUE}). Ignored when \code{mods} is a formula.} \item{method}{character string to specify whether an equal- or a random-effects model should be fitted. An equal-effects model is fitted when using \code{method="EE"}. A random-effects model is fitted by setting \code{method} equal to one of the following: \code{"DL"}, \code{"HE"} (or \code{"CO"}), \code{"HS"}, \code{"HSk"}, \code{"SJ"}, \code{"ML"}, \code{"REML"}, \code{"EB"}, \code{"PM"}, \code{"GENQ"}, \code{"PMM"}, or \code{"GENQM"}. The default is \code{"REML"}. See \sQuote{Details}.} \item{weighted}{logical to specify whether weighted (default) or unweighted estimation should be used to fit the model (the default is \code{TRUE}).} \item{test}{character string to specify how test statistics and confidence intervals for the fixed effects should be computed. By default (\code{test="z"}), Wald-type tests and CIs are obtained, which are based on a standard normal distribution. When \code{test="t"}, a t-distribution is used instead. When \code{test="knha"}, the method by Knapp and Hartung (2003) is used. See \sQuote{Details} and also \link[=misc-recs]{here} for some recommended practices.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{btt}{optional vector of indices to specify which coefficients to include in the omnibus test of moderators. Can also be a string to \code{\link{grep}} for. See \sQuote{Details}.} \item{att}{optional vector of indices to specify which scale coefficients to include in the omnibus test. Only relevant for location-scale models. See \sQuote{Details}.} \item{tau2}{optional numeric value to specify the amount of (residual) heterogeneity in a random- or mixed-effects model (instead of estimating it). Useful for sensitivity analyses (e.g., for plotting results as a function of \mjseqn{\tau^2}). If unspecified, the value of \mjseqn{\tau^2} is estimated from the data.} \item{verbose}{logical to specify whether output should be generated on the progress of the model fitting (the default is \code{FALSE}). Can also be an integer. Values > 1 generate more verbose output. See \sQuote{Note}.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is 4. See also \link[=misc-options]{here} for further details on how to control the number of digits in the output.} \item{control}{optional list of control values for the iterative estimation algorithms. If unspecified, default values are defined inside the function. See \sQuote{Note}.} \item{\dots}{additional arguments.} } \details{ \subsection{Specifying the Data}{ The function can be used in combination with any of the usual effect sizes or outcome measures used in meta-analyses (e.g., log risk ratios, log odds ratios, risk differences, mean differences, standardized mean differences, log transformed ratios of means, raw correlation coefficients, correlation coefficients transformed with Fisher's r-to-z transformation), or, more generally, any set of estimates (with corresponding sampling variances) one would like to analyze. Simply specify the observed effect sizes or outcomes via the \code{yi} argument and the corresponding sampling variances via the \code{vi} argument. Instead of specifying \code{vi}, one can specify the standard errors (the square root of the sampling variances) via the \code{sei} argument. The \code{\link{escalc}} function can be used to compute a wide variety of effect sizes or outcome measures (and the corresponding sampling variances) based on summary statistics. Alternatively, the function can automatically calculate the values of a chosen effect size or outcome measure (and the corresponding sampling variances) when supplied with the necessary data. The \code{\link{escalc}} function describes which effect sizes or outcome measures are currently implemented and what data/arguments should then be specified/used. The \code{measure} argument should then be set to the desired effect size or outcome measure. } \subsection{Specifying the Model}{ The function can be used to fit equal-, fixed-, and random-effects models, as well as (mixed-effects) meta-regression models including one or multiple moderators (the difference between the various models is described in detail on the introductory \pkg{\link{metafor-package}} help page). Assuming the observed effect sizes or outcomes and corresponding sampling variances are supplied via the \code{yi} and \code{vi} arguments, an \emph{equal-effects model} can be fitted with \code{rma(yi, vi, method="EE")}. Setting \code{method="FE"} fits a \emph{fixed-effects model} (see \link[=misc-models]{here} for a discussion of this model and how the interpretation of these models differ despite yielding identical results). Weighted estimation (with inverse-variance weights) is used by default. User-defined weights can be supplied via the \code{weights} argument. Unweighted estimation can be used by setting \code{weighted=FALSE} (which is the same as setting the weights equal to a constant). A \emph{random-effects model} can be fitted with the same code but setting the \code{method} argument to one of the various estimators for the amount of heterogeneity: \itemize{ \item \code{method="DL"} for the DerSimonian-Laird estimator (DerSimonian & Laird, 1986; Raudenbush, 2009), \item \code{method="HE"} for the Hedges estimator (Cochran, 1954; Hedges, 1983, 1992), \item \code{method="HS"} for the Hunter-Schmidt estimator (Hunter & Schmidt, 1990; Viechtbauer et al., 2015), \item \code{method="HSk"} for the Hunter-Schmidt estimator with a small sample-size correction (Brannick et al., 2019), \item \code{method="SJ"} for the Sidik-Jonkman estimator (Sidik & Jonkman, 2005b, 2007), \item \code{method="ML"} for the maximum likelihood estimator (Hardy & Thompson, 1996; Raudenbush, 2009), \item \code{method="REML"} for the restricted maximum likelihood estimator (Viechtbauer, 2005; Raudenbush, 2009) \item \code{method="EB"} for the empirical Bayes estimator (Morris, 1983; Berkey et al. 1995), \item \code{method="PM"} for the Paule-Mandel estimator (Paule & Mandel, 1982; Viechtbauer et al., 2015), \item \code{method="GENQ"} for the generalized Q-statistic estimator (DerSimonian & Kacker, 2007; Jackson et al., 2014), \item \code{method="PMM"} for the median-unbiased Paule-Mandel estimator (Viechtbauer, 2021), \item \code{method="GENQM"} for the median-unbiased generalized Q-statistic estimator (Viechtbauer, 2021). } For a description of the various estimators, see Brannick et al. (2019), DerSimonian and Kacker (2007), Raudenbush (2009), Veroniki et al. (2016), Viechtbauer (2005), and Viechtbauer et al. (2015). Note that the Hedges estimator is also called the \sQuote{variance component estimator} or \sQuote{Cochran estimator} (hence, one can also use \code{method="VC"} or \code{method="CO"} to choose this estimator), the Sidik-Jonkman estimator is also called the \sQuote{model error variance estimator}, the empirical Bayes estimator is actually identical to the Paule-Mandel estimator (Viechtbauer et al., 2015), and the generalized Q-statistic estimator is a general method-of-moments estimator (DerSimonian & Kacker, 2007) requiring the specification of weights (the HE and DL estimators are just special cases with equal and inverse sampling variance weights, respectively). Finally, the two median-unbiased estimators are versions of the Paule-Mandel and generalized Q-statistic estimators that equate the respective estimating equations not to their expected values, but to the medians of their theoretical distributions (Viechtbauer, 2021). One or more moderators can be included in a model via the \code{mods} argument. A single moderator can be given as a (row or column) vector of length \mjseqn{k} specifying the values of the moderator. Multiple moderators are specified by giving an appropriate model matrix (i.e., \mjseqn{X}) with \mjseqn{k} rows and as many columns as there are moderator variables (e.g., \code{mods = cbind(mod1, mod2, mod3)}, where \code{mod1}, \code{mod2}, and \code{mod3} correspond to the names of the variables for three moderator variables). The intercept is added to the model matrix by default unless \code{intercept=FALSE}. Alternatively, one can use standard \code{\link{formula}} syntax to specify the model. In this case, the \code{mods} argument should be set equal to a one-sided formula of the form \code{mods = ~ model} (e.g., \code{mods = ~ mod1 + mod2 + mod3}). Interactions, polynomial/spline terms, and factors can be easily added to the model in this manner. When specifying a model formula via the \code{mods} argument, the \code{intercept} argument is ignored. Instead, the inclusion/exclusion of the intercept is controlled by the specified formula (e.g., \code{mods = ~ 0 + mod1 + mod2 + mod3} or \code{mods = ~ mod1 + mod2 + mod3 - 1} would lead to the removal of the intercept). When the observed effect sizes or outcomes and corresponding sampling variances are supplied via the \code{yi} and \code{vi} (or \code{sei}) arguments, one can also specify moderators via the \code{yi} argument (e.g., \code{rma(yi ~ mod1 + mod2 + mod3, vi)}). In that case, the \code{mods} argument is ignored and the inclusion/exclusion of the intercept is again controlled by the specified formula. } \subsection{Omnibus Test of Moderators}{ For models including moderators, an omnibus test of all model coefficients is conducted that excludes the intercept (the first coefficient) if it is included in the model. If no intercept is included in the model, then the omnibus test includes all coefficients in the model including the first. Alternatively, one can manually specify the indices of the coefficients to test via the \code{btt} (\sQuote{betas to test}) argument (i.e., to test \mjseqn{\text{H}_0{:}\; \beta_{j \in \texttt{btt}} = 0}, where \mjseqn{\beta_{j \in \texttt{btt}}} is the set of coefficients to be tested). For example, with \code{btt=c(3,4)}, only the third and fourth coefficients from the model are included in the test (if an intercept is included in the model, then it corresponds to the first coefficient in the model). Instead of specifying the coefficient numbers, one can specify a string for \code{btt}. In that case, \code{\link{grep}} will be used to search for all coefficient names that match the string. The omnibus test is called the \mjseqn{Q_M}-test and follows asymptotically a chi-square distribution with \mjseqn{m} degrees of freedom (with \mjseqn{m} denoting the number of coefficients tested) under the null hypothesis (that the true value of all coefficients tested is equal to 0). } \subsection{Categorical Moderators}{ Categorical moderator variables can be included in the model via the \code{mods} argument in the same way that appropriately (dummy) coded categorical variables can be included in linear models. One can either do the dummy coding manually or use a model formula together with the \code{\link{factor}} function to automate the coding (note that string/character variables in a model formula are automatically converted to factors). An example to illustrate these different approaches is provided below. } \subsection{Tests and Confidence Intervals}{ By default, tests of individual coefficients in the model (and the corresponding confidence intervals) are based on a standard normal distribution, while the omnibus test is based on a chi-square distribution (see above). As an alternative, one can set \code{test="t"}, in which case tests of individual coefficients and confidence intervals are based on a t-distribution with \mjseqn{k-p} degrees of freedom, while the omnibus test then uses an F-distribution with \mjseqn{m} and \mjseqn{k-p} degrees of freedom (with \mjseqn{k} denoting the total number of estimates included in the analysis and \mjseqn{p} the total number of model coefficients including the intercept if it is present). Furthermore, when \code{test="knha"} (or equivalently, \code{test="hksj"}), the method by Hartung (1999), Sidik and Jonkman (2002), and Knapp and Hartung (2003) (the Knapp-Hartung method; also referred to as the Hartung-Knapp-Sidik-Jonkman method) is used, which applies an adjustment to the standard errors of the estimated coefficients (to account for the uncertainty in the estimate of the amount of (residual) heterogeneity) and uses t- and F-distributions as described above (see also \link[=misc-recs]{here}). Finally, one can set \code{test="adhoc"}, in which case the Knapp-Hartung method is used, but with the restriction that the adjustment to the standard errors can never result in adjusted standard errors that are smaller than the unadjusted ones (see Jackson et al., 2017, section 4.3). } \subsection{Test for (Residual) Heterogeneity}{ A test for (residual) heterogeneity is automatically carried out by the function. Without moderators in the model, this is simply Cochran's \mjseqn{Q}-test (Cochran, 1954), which tests whether the variability in the observed effect sizes or outcomes is larger than would be expected based on sampling variability alone. A significant test suggests that the true effects/outcomes are heterogeneous. When moderators are included in the model, this is the \mjseqn{Q_E}-test for residual heterogeneity, which tests whether the variability in the observed effect sizes or outcomes not accounted for by the moderators included in the model is larger than would be expected based on sampling variability alone. } \subsection{Location-Scale Models}{ The function can also be used to fit so-called \sQuote{location-scale models} (Viechtbauer & \enc{López-López}{Lopez-Lopez}, 2022). In such models, one can specify not only predictors for the size of the average true outcome (i.e., for their \sQuote{location}), but also predictors for the amount of heterogeneity in the outcomes (i.e., for their \sQuote{scale}). The model is given by \mjdeqn{y_i = \beta_0 + \beta_1 x_{i1} + \beta_2 x_{i2} + \ldots + \beta_{p'} x_{ip'} + u_i + \varepsilon_i,}{y_i = \beta_0 + \beta_1 x_i1 + \beta_2 x_i2 + \ldots + \beta_p' x_ip' + u_i + \epsilon_i,} \mjdeqn{u_i \sim N(0, \tau_i^2), \; \varepsilon_i \sim N(0, v_i),}{u_i ~ N(0, tau_i^2), \epsilon_i \sim N(0, v_i),} \mjdeqn{\log(\tau_i^2) = \alpha_0 + \alpha_1 z_{i1} + \alpha_2 z_{i2} + \ldots + \alpha_{q'} z_{iq'},}{log(tau^2) = \alpha_0 + \alpha z_i1 + \alpha z_i2 + \ldots + \alpha_q' z_iq',} where \mjeqn{x_{i1}, \ldots, x_{ip'}}{x_i1, \ldots, x_ip'} are the values of the \mjseqn{p'} predictor variables that may be related to the size of the average true outcome (letting \mjseqn{p = p' + 1} denote the total number of location coefficients in the model including the model intercept \mjseqn{\beta_0}) and \mjeqn{z_{i1}, \ldots, z_{iq'}}{z_i1, \ldots, z_iq'} are the values of the \mjseqn{q'} scale variables that may be related to the amount of heterogeneity in the outcomes (letting \mjseqn{q = q' + 1} denote the total number of scale coefficients in the model including the model intercept \mjseqn{\alpha_0}). Location variables can be specified via the \code{mods} argument as described above (e.g., \code{mods = ~ mod1 + mod2 + mod3}). Scale variables can be specified via the \code{scale} argument (e.g., \code{scale = ~ var1 + var2 + var3}). A log link is used for specifying the relationship between the scale variables and the amount of heterogeneity so that \mjseqn{\tau_i^2} is guaranteed to be non-negative (one can also set (the undocumented) argument \code{link="identity"} to use an identity link, but this is more likely to lead to estimation problems). Estimates of the location and scale coefficients can be obtained either with maximum likelihood (\code{method="ML"}) or restricted maximum likelihood (\code{method="REML"}) estimation. An omnibus test of the scale coefficients is conducted as described above (where the \code{att} argument can be used to specify which scale coefficients to include in the test). } } \value{ An object of class \code{c("rma.uni","rma")}. The object is a list containing the following components: \item{beta}{estimated coefficients of the model.} \item{se}{standard errors of the coefficients.} \item{zval}{test statistics of the coefficients.} \item{pval}{corresponding p-values.} \item{ci.lb}{lower bound of the confidence intervals for the coefficients.} \item{ci.ub}{upper bound of the confidence intervals for the coefficients.} \item{vb}{variance-covariance matrix of the estimated coefficients.} \item{tau2}{estimated amount of (residual) heterogeneity. Always \code{0} when \code{method="EE"}.} \item{se.tau2}{standard error of the estimated amount of (residual) heterogeneity.} \item{k}{number of studies included in the analysis.} \item{p}{number of coefficients in the model (including the intercept).} \item{m}{number of coefficients included in the omnibus test of moderators.} \item{QE}{test statistic of the test for (residual) heterogeneity.} \item{QEp}{corresponding p-value.} \item{QM}{test statistic of the omnibus test of moderators.} \item{QMp}{corresponding p-value.} \item{I2}{value of \mjseqn{I^2}. See \code{\link[=print.rma.uni]{print}} for more details.} \item{H2}{value of \mjseqn{H^2}. See \code{\link[=print.rma.uni]{print}} for more details.} \item{R2}{value of \mjseqn{R^2}. See \code{\link[=print.rma.uni]{print}} for more details.} \item{int.only}{logical that indicates whether the model is an intercept-only model.} \item{yi, vi, X}{the vector of outcomes, the corresponding sampling variances, and the model matrix.} \item{fit.stats}{a list with the log-likelihood, deviance, AIC, BIC, and AICc values under the unrestricted and restricted likelihood.} \item{\dots}{some additional elements/values.} For location-scale models, the object is of class \code{c("rma.ls","rma.uni","rma")} and includes the following components in addition to the ones listed above: \item{alpha}{estimated scale coefficients of the model.} \item{se.alpha}{standard errors of the coefficients.} \item{zval.alpha}{test statistics of the coefficients.} \item{pval.alpha}{corresponding p-values.} \item{ci.lb.alpha}{lower bound of the confidence intervals for the coefficients.} \item{ci.ub.alpha}{upper bound of the confidence intervals for the coefficients.} \item{va}{variance-covariance matrix of the estimated coefficients.} \item{tau2}{as above, but now a vector of values.} \item{q}{number of scale coefficients in the model (including the intercept).} \item{QS}{test statistic of the omnibus test of the scale coefficients.} \item{QSp}{corresponding p-value.} \item{\dots}{some additional elements/values.} } \section{Methods}{ The results of the fitted model are formatted and printed with the \code{\link[=print.rma.uni]{print}} function. If fit statistics should also be given, use \code{\link[=summary.rma]{summary}} (or use the \code{\link[=fitstats.rma]{fitstats}} function to extract them). Full versus reduced model comparisons in terms of fit statistics and likelihood ratio tests can be obtained with \code{\link[=anova.rma]{anova}}. Wald-type tests for sets of model coefficients or linear combinations thereof can be obtained with the same function. Permutation tests for the model coefficient(s) can be obtained with \code{\link[=permutest.rma.uni]{permutest}}. Tests and confidence intervals based on (cluster) robust methods can be obtained with \code{\link[=robust.rma.uni]{robust}}. Predicted/fitted values can be obtained with \code{\link[=predict.rma]{predict}} and \code{\link[=fitted.rma]{fitted}}. For best linear unbiased predictions, see \code{\link[=blup.rma.uni]{blup}} and \code{\link[=ranef.rma.uni]{ranef}}. The \code{\link[=residuals.rma]{residuals}}, \code{\link[=rstandard.rma.uni]{rstandard}}, and \code{\link[=rstudent.rma.uni]{rstudent}} functions extract raw and standardized residuals. Additional model diagnostics (e.g., to determine influential studies) can be obtained with the \code{\link[=influence.rma.uni]{influence}} function. For models without moderators, leave-one-out diagnostics can also be obtained with \code{\link[=leave1out.rma.uni]{leave1out}}. For models with moderators, variance inflation factors can be obtained with \code{\link[=vif.rma]{vif}}. A confidence interval for the amount of (residual) heterogeneity in the random/mixed-effects model can be obtained with \code{\link[=confint.rma.uni]{confint}}. For location-scale models, \code{\link[=confint.rma.ls]{confint}} can provide confidence intervals for the scale coefficients. Forest, funnel, radial, \enc{L'Abbé}{L'Abbe}, and Baujat plots can be obtained with \code{\link[=forest.rma]{forest}}, \code{\link[=funnel.rma]{funnel}}, \code{\link[=radial.rma]{radial}}, \code{\link[=labbe.rma]{labbe}}, and \code{\link[=baujat.rma]{baujat}} (radial and \enc{L'Abbé}{L'Abbe} plots only for models without moderators). The \code{\link[=qqnorm.rma.uni]{qqnorm}} function provides normal QQ plots of the standardized residuals. One can also call \code{\link[=plot.rma.uni]{plot}} on the fitted model object to obtain various plots at once. For random/mixed-effects models, the \code{\link[=profile.rma.uni]{profile}} function can be used to obtain a plot of the (restricted) log-likelihood as a function of \mjseqn{\tau^2}. For location-scale models, \code{\link[=profile.rma.ls]{profile}} draws analogous plots based on the scale coefficients. For models with moderators, \code{\link[=regplot.rma]{regplot}} draws scatter plots / bubble plots, showing the (marginal) relationship between the observed outcomes and a selected moderator from the model. Tests for funnel plot asymmetry (which may be indicative of publication bias) can be obtained with \code{\link{ranktest}} and \code{\link{regtest}}. For models without moderators, the \code{\link[=trimfill.rma.uni]{trimfill}} method can be used to carry out a trim and fill analysis and \code{\link[=hc.rma.uni]{hc}} provides a random-effects model analysis that is more robust to publication bias (based on the method by Henmi & Copas, 2010). The test of \sQuote{excess significance} can be carried out with the \code{\link{tes}} function. The fail-safe N (based on a file drawer analysis) can be computed using \code{\link{fsn}}. Selection models can be fitted with the \code{\link{selmodel}} function. For models without moderators, a cumulative meta-analysis (i.e., adding one observation at a time) can be obtained with \code{\link[=cumul.rma.uni]{cumul}}. Other extractor functions include \code{\link[=coef.rma]{coef}}, \code{\link[=vcov.rma]{vcov}}, \code{\link[=se.rma]{se}}, \code{\link[=fitstats]{logLik}}, \code{\link[=fitstats]{deviance}}, \code{\link[=fitstats]{AIC}}, \code{\link[=fitstats]{BIC}}, \code{\link[=hatvalues.rma.uni]{hatvalues}}, and \code{\link[=weights.rma.uni]{weights}}. } \note{ While the HS, HSk, HE, DL, SJ, and GENQ estimators of \mjseqn{\tau^2} are based on closed-form solutions, the ML, REML, and EB estimators must be obtained iteratively. For this, the function makes use of the Fisher scoring algorithm, which is robust to poor starting values and usually converges quickly (Harville, 1977; Jennrich & Sampson, 1976). By default, the starting value is set equal to the value of the Hedges (HE) estimator and the algorithm terminates when the change in the estimated value of \mjseqn{\tau^2} is smaller than \mjeqn{10^{-5}}{10^(-5)} from one iteration to the next. The maximum number of iterations is 100 by default (which should be sufficient in most cases). Information on the progress of the algorithm can be obtained by setting \code{verbose=TRUE}. One can also set \code{verbose} to an integer (\code{verbose=2} yields even more information and \code{verbose=3} also sets \code{option(warn=1)} temporarily). A different starting value, threshold, and maximum number of iterations can be specified via the \code{control} argument by setting \code{control=list(tau2.init=value, threshold=value, maxiter=value)}. The step length of the Fisher scoring algorithm can also be adjusted by a desired factor with \code{control=list(stepadj=value)} (values below 1 will reduce the step length). If using \code{verbose=TRUE} shows the estimate jumping around erratically (or cycling through a few values), decreasing the step length (and increasing the maximum number of iterations) can often help with convergence (e.g., \code{control=list(stepadj=0.5, maxiter=1000)}). The PM, PMM, and GENQM estimators also involve iterative algorithms, which make use of the \code{\link{uniroot}} function. By default, the desired accuracy (\code{tol}) is set equal to \code{.Machine$double.eps^0.25} and the maximum number of iterations (\code{maxiter}) to \code{100} (as above). The upper bound of the interval searched (\code{tau2.max}) is set to the larger of 100 and \code{10*mad(yi)^2} (i.e., 10 times the squared median absolute deviation of the observed effect sizes or outcomes computed with the \code{\link{mad}} function). These values can be adjusted with \code{control=list(tol=value, maxiter=value, tau2.max=value)}. All of the heterogeneity estimators except SJ can in principle yield negative estimates for the amount of (residual) heterogeneity. However, negative estimates of \mjseqn{\tau^2} are outside of the parameter space. For the HS, HSk, HE, DL, and GENQ estimators, negative estimates are therefore truncated to zero. For the ML, REML, and EB estimators, the Fisher scoring algorithm makes use of step halving (Jennrich & Sampson, 1976) to guarantee a non-negative estimate. Finally, for the PM, PMM, and GENQM estimators, the lower bound of the interval searched is set to zero by default. For those brave enough to step into risky territory, there is the option to set the lower bound for all these estimators to some other value besides zero (even a negative one) with \code{control=list(tau2.min=value)}, but the lowest value permitted is \code{-min(vi)} (to ensure that the marginal variances are always non-negative). The Hunter-Schmidt estimator for the amount of heterogeneity is defined in Hunter and Schmidt (1990) only in the context of the random-effects model when analyzing correlation coefficients. A general version of this estimator for random- and mixed-effects models not specific to any particular outcome measure is described in Viechtbauer (2005) and Viechtbauer et al. (2015) and is implemented here. The Sidik-Jonkman estimator starts with a crude estimate of \mjseqn{\tau^2}, which is then updated as described in Sidik and Jonkman (2005b, 2007). If, instead of the crude estimate, one wants to use a better a priori estimate, one can do so by passing this value via \code{control=list(tau2.init=value)}. One can also specify a vector of estimators via the \code{method} argument (e.g., \code{rma(yi, vi, method=c("REML","DL"))}). The various estimators are then applied in turn until one converges. This is mostly useful for simulation studies where an estimator (like the REML estimator) is not guaranteed to converge and one can then substitute one (like the DL estimator) that does not involve iterative methods and is guaranteed to provide an estimate. Outcomes with non-positive sampling variances are problematic. If a sampling variance is equal to zero, then its weight will be \mjseqn{1/0} for equal-effects models when using weighted estimation. Switching to unweighted estimation is a possible solution then. For random/mixed-effects model, some estimators of \mjseqn{\tau^2} are undefined when there is at least one sampling variance equal to zero. Other estimators may work, but it may still be necessary to switch to unweighted model fitting, especially when the estimate of \mjseqn{\tau^2} converges to zero. When including moderators in the model, it is possible that the model matrix is not of full rank (i.e., there is a linear relationship between the moderator variables included in the model). The function automatically tries to reduce the model matrix to full rank by removing redundant predictors, but if this fails the model cannot be fitted and an error will be issued. Deleting (redundant) moderator variables from the model as needed should solve this problem. Some general words of caution about the assumptions underlying the models: \itemize{ \item The sampling variances (i.e., the \code{vi} values) are treated as if they are known constants, even though in practice they are usually estimates themselves. This implies that the distributions of the test statistics and corresponding confidence intervals are only exact and have nominal coverage when the within-study sample sizes are large (i.e., when the error in the sampling variance estimates is small). Certain outcome measures (e.g., the arcsine square root transformed risk difference and Fisher's r-to-z transformed correlation coefficient) are based on variance stabilizing transformations that also help to make the assumption of known sampling variances much more reasonable. \item When fitting a mixed/random-effects model, \mjseqn{\tau^2} is estimated and then treated as a known constant thereafter. This ignores the uncertainty in the estimate of \mjseqn{\tau^2}. As a consequence, the standard errors of the parameter estimates tend to be too small, yielding test statistics that are too large and confidence intervals that are not wide enough. The Knapp and Hartung (2003) adjustment (i.e., using \code{test="knha"}) can be used to counter this problem, yielding test statistics and confidence intervals whose properties are closer to nominal. \item Most effect sizes or outcome measures do not have exactly normal sampling distributions as assumed under the various models. However, the normal approximation usually becomes more accurate for most effect sizes or outcome measures as the within-study sample sizes increase. Therefore, sufficiently large within-study sample sizes are (usually) needed to be certain that the tests and confidence intervals have nominal levels/coverage. Again, certain outcome measures (e.g., Fisher's r-to-z transformed correlation coefficient) may be preferable from this perspective as well. } For location-scale models, model fitting is done via numerical optimization over the model parameters. By default, \code{\link{nlminb}} is used for the optimization. One can also chose a different optimizer from \code{\link{optim}} via the \code{control} argument (e.g., \code{control=list(optimizer="BFGS")} or \code{control=list(optimizer="Nelder-Mead")}). Besides \code{\link{nlminb}} and one of the methods from \code{\link{optim}}, one can also choose one of the optimizers from the \code{minqa} package (i.e., \code{\link[minqa]{uobyqa}}, \code{\link[minqa]{newuoa}}, or \code{\link[minqa]{bobyqa}}), one of the (derivative-free) algorithms from the \code{\link[nloptr]{nloptr}} package, the Newton-type algorithm implemented in \code{\link{nlm}}, the various algorithms implemented in the \code{dfoptim} package (\code{\link[dfoptim]{hjk}} for the Hooke-Jeeves, \code{\link[dfoptim]{nmk}} for the Nelder-Mead, and \code{\link[dfoptim]{mads}} for the Mesh Adaptive Direct Searches algorithm), the quasi-Newton type optimizers \code{\link[ucminf]{ucminf}} and \code{\link[lbfgsb3c]{lbfgsb3c}} and the subspace-searching simplex algorithm \code{\link[subplex]{subplex}} from the packages of the same name, the Barzilai-Borwein gradient decent method implemented in \code{\link[BB]{BBoptim}}, the \code{\link[optimx]{Rcgmin}} and \code{\link[optimx]{Rvmmin}} optimizers, or the parallelized version of the L-BFGS-B algorithm implemented in \code{\link[optimParallel]{optimParallel}} from the package of the same name. When using an identity link with \code{link="identity"}, constrained optimization (to ensure non-negative \mjseqn{\tau_i^2} values) as implemented in \code{\link{constrOptim}} is used by default. Alternative optimizers in this case are the \code{\link[Rsolnp]{solnp}} solver from the \code{Rsolnp} package, \code{\link[nloptr]{nloptr}}, or the augmented Lagrangian algorithms \code{\link[alabama]{constrOptim.nl}} and \code{\link[alabama]{auglag}} from the \code{alabama} package. The optimizer name must be given as a character string (i.e., in quotes). Additional control parameters can be specified via the \code{control} argument (e.g., \code{control=list(iter.max=1000, rel.tol=1e-8)}). For \code{\link[nloptr]{nloptr}}, the default is to use the BOBYQA implementation from that package with a relative convergence criterion of \code{1e-8} on the function value (i.e., log-likelihood), but this can be changed via the \code{algorithm} and \code{ftop_rel} arguments (e.g., \code{control=list(optimizer="nloptr", algorithm="NLOPT_LN_SBPLX", ftol_rel=1e-6)}) (note: when using \code{optimizer="nloptr"} in combination with an identity link, the \code{"NLOPT_LN_COBYLA"} algorithm is automatically used, since it allows for inequality constraints). For \code{\link[optimParallel]{optimParallel}}, the control argument \code{ncpus} can be used to specify the number of cores to use for the parallelization (e.g., \code{control=list(optimizer="optimParallel", ncpus=2)}). Control argument \code{mfmaxit} (which is \code{10^5} by default and is independent of the control arguments of the various optimizers) hard exits when the specified number of iterations has been exceeded. Under certain circumstances (e.g., when the amount of heterogeneity is very small for certain combinations of values for the scale variables and scale coefficients), the values of the scale coefficients may try to drift towards minus or plus infinity, which can lead to problems with the optimization. One can impose constraints on the scale coefficients via \code{control=list(alpha.min=minval, alpha.max=maxval)} where \code{minval} and \code{maxval} are either scalars or vectors of the appropriate length. Finally, for location-scale models, the standard errors of the scale coefficients are obtained by inverting the Hessian, which is numerically approximated using the \code{\link[numDeriv]{hessian}} function from the \code{numDeriv} package. This may fail (especially when using an identity link), leading to \code{NA} values for the standard errors and hence test statistics, p-values, and confidence interval bounds. One can set control argument \code{hessianCtrl} to a list of named arguments to be passed on to the \code{method.args} argument of the \code{\link[numDeriv]{hessian}} function (the default is \code{control=list(hessianCtrl=list(r=8))}). One can also set \code{control=list(hesspack="pracma")} or \code{control=list(hesspack="calculus")} in which case the \code{pracma::\link[pracma]{hessian}} or \code{calculus::\link[calculus]{hessian}} functions from the respective packages are used instead for approximating the Hessian. Even if the Hessian can be approximated and inverted, the standard errors may be unreasonably large when the likelihood surface is very flat around the estimated scale coefficients. This is more likely to happen when \mjseqn{k} is small and when the amount of heterogeneity is very small under some conditions as defined by the scale coefficients/variables. Setting constraints on the scale coefficients as described above can also help to mitigate this issue. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Berkey, C. S., Hoaglin, D. C., Mosteller, F., & Colditz, G. A. (1995). A random-effects regression model for meta-analysis. \emph{Statistics in Medicine}, \bold{14}(4), 395--411. \verb{https://doi.org/10.1002/sim.4780140406} Brannick, M. T., Potter, S. M., Benitez, B., & Morris, S. B. (2019). Bias and precision of alternate estimators in meta-analysis: Benefits of blending Schmidt–Hunter and Hedges approaches. \emph{Organizational Research Methods}, \bold{22}(2), 490--514. \verb{https://doi.org/10.1177/1094428117741966} Cochran, W. G. (1954). The combination of estimates from different experiments. \emph{Biometrics}, \bold{10}(1), 101--129. \verb{https://doi.org/10.2307/3001666} DerSimonian, R., & Laird, N. (1986). Meta-analysis in clinical trials. \emph{Controlled Clinical Trials}, \bold{7}(3), 177--188. \verb{https://doi.org/10.1016/0197-2456(86)90046-2} DerSimonian, R., & Kacker, R. (2007). Random-effects model for meta-analysis of clinical trials: An update. \emph{Contemporary Clinical Trials}, \bold{28}(2), 105--114. \verb{https://doi.org/10.1016/j.cct.2006.04.004} Hardy, R. J. & Thompson, S. G. (1996). A likelihood approach to meta-analysis with random effects. \emph{Statistics in Medicine}, \bold{15}(6), 619--629. \verb{https://doi.org/10.1002/(SICI)1097-0258(19960330)15:6<619::AID-SIM188>3.0.CO;2-A} Hartung, J. (1999). An alternative method for meta-analysis. \emph{Biometrical Journal}, \bold{41}(8), 901--916. \verb{https://doi.org/10.1002/(SICI)1521-4036(199912)41:8<901::AID-BIMJ901>3.0.CO;2-W} Harville, D. A. (1977). Maximum likelihood approaches to variance component estimation and to related problems. \emph{Journal of the American Statistical Association}, \bold{72}(358), 320--338. \verb{https://doi.org/10.2307/2286796} Hedges, L. V. (1983). A random effects model for effect sizes. \emph{Psychological Bulletin}, \bold{93}(2), 388--395. \verb{https://doi.org/10.1037/0033-2909.93.2.388} Hedges, L. V. (1992). Meta-analysis. \emph{Journal of Educational Statistics}, \bold{17}(4), 279--296. \verb{https://doi.org/10.3102/10769986017004279} Hedges, L. V., & Olkin, I. (1985). \emph{Statistical methods for meta-analysis}. San Diego, CA: Academic Press. Henmi, M., & Copas, J. B. (2010). Confidence intervals for random effects meta-analysis and robustness to publication bias. \emph{Statistics in Medicine}, \bold{29}(29), 2969--2983. \verb{https://doi.org/10.1002/sim.4029} Hunter, J. E., & Schmidt, F. L. (1990). \emph{Methods of meta-analysis: Correcting error and bias in research findings}. Thousand Oaks, CA: Sage. Jackson, D., Turner, R., Rhodes, K. & Viechtbauer, W. (2014). Methods for calculating confidence and credible intervals for the residual between-study variance in random effects meta-regression models. \emph{BMC Medical Research Methodology}, \bold{14}, 103. \verb{https://doi.org/10.1186/1471-2288-14-103} Jackson, D., Law, M., \enc{Rücker}{Ruecker}, G., & Schwarzer, G. (2017). The Hartung-Knapp modification for random-effects meta-analysis: A useful refinement but are there any residual concerns? \emph{Statistics in Medicine}, \bold{36}(25), 3923--3934. \verb{https://doi.org/10.1002/sim.7411} Jennrich, R. I., & Sampson, P. F. (1976). Newton-Raphson and related algorithms for maximum likelihood variance component estimation. \emph{Technometrics}, \bold{18}(1), 11--17. \verb{https://doi.org/10.2307/1267911} Knapp, G., & Hartung, J. (2003). Improved tests for a random effects meta-regression with a single covariate. \emph{Statistics in Medicine}, \bold{22}(17), 2693--2710. \verb{https://doi.org/10.1002/sim.1482} Morris, C. N. (1983). Parametric empirical Bayes inference: Theory and applications. \emph{Journal of the American Statistical Association}, \bold{78}(381), 47--55. \verb{https://doi.org/10.2307/2287098} Paule, R. C., & Mandel, J. (1982). Consensus values and weighting factors. \emph{Journal of Research of the National Bureau of Standards}, \bold{87}(5), 377--385. \verb{https://doi.org/10.6028/jres.087.022} Raudenbush, S. W. (2009). Analyzing effect sizes: Random effects models. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (2nd ed., pp. 295--315). New York: Russell Sage Foundation. Sidik, K. & Jonkman, J. N. (2002). A simple confidence interval for meta-analysis. \emph{Statistics in Medicine}, \bold{21}(21), 3153--3159. \verb{https://doi.org/10.1002/sim.1262} Sidik, K., & Jonkman, J. N. (2005a). A note on variance estimation in random effects meta-regression. \emph{Journal of Biopharmaceutical Statistics}, \bold{15}(5), 823--838. \verb{https://doi.org/10.1081/BIP-200067915} Sidik, K., & Jonkman, J. N. (2005b). Simple heterogeneity variance estimation for meta-analysis. \emph{Journal of the Royal Statistical Society, Series C}, \bold{54}(2), 367--384. \verb{https://doi.org/10.1111/j.1467-9876.2005.00489.x} Sidik, K., & Jonkman, J. N. (2007). A comparison of heterogeneity variance estimators in combining results of studies. \emph{Statistics in Medicine}, \bold{26}(9), 1964--1981. \verb{https://doi.org/10.1002/sim.2688} Veroniki, A. A., Jackson, D., Viechtbauer, W., Bender, R., Bowden, J., Knapp, G., Kuss, O., Higgins, J. P., Langan, D., & Salanti, G. (2016). Methods to estimate the between-study variance and its uncertainty in meta-analysis. \emph{Research Synthesis Methods}, \bold{7}(1), 55--79. \verb{https://doi.org/10.1002/jrsm.1164} Viechtbauer, W. (2005). Bias and efficiency of meta-analytic variance estimators in the random-effects model. \emph{Journal of Educational and Behavioral Statistics}, \bold{30}(3), 261--293. \verb{https://doi.org/10.3102/10769986030003261} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Median-unbiased estimators for the amount of heterogeneity in meta-analysis. \emph{European Congress of Methodology}, Valencia, Spain. \verb{https://www.wvbauer.com/lib/exe/fetch.php/talks:2021_viechtbauer_eam_median_tau2.pdf} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} Viechtbauer, W., \enc{López-López}{Lopez-Lopez}, J. A., \enc{Sánchez-Meca}{Sanchez-Meca}, J., & \enc{Marín-Martínez}{Marin-Martinez}, F. (2015). A comparison of procedures to test for moderators in mixed-effects meta-regression models. \emph{Psychological Methods}, \bold{20}(3), 360--374. \verb{https://doi.org/10.1037/met0000023} } \seealso{ \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for other model fitting functions. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit a random-effects model using the log risk ratios and sampling variances as input ### note: method="REML" is the default, so one could leave this out rma(yi, vi, data=dat, method="REML") ### fit a random-effects model using the log risk ratios and standard errors as input ### note: the second argument of rma() is for the *sampling variances*, so we use the ### named argument 'sei' to supply the standard errors to the function dat$sei <- sqrt(dat$vi) rma(yi, sei=sei, data=dat) ### fit a random-effects model supplying the 2x2 table cell frequencies to the function rma(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) ### fit a mixed-effects model with two moderators (absolute latitude and publication year) rma(yi, vi, mods=cbind(ablat, year), data=dat) ### using a model formula to specify the same model rma(yi, vi, mods = ~ ablat + year, data=dat) ### using a model formula as part of the yi argument rma(yi ~ ablat + year, vi, data=dat) ### manual dummy coding of the allocation factor alloc.random <- ifelse(dat$alloc == "random", 1, 0) alloc.alternate <- ifelse(dat$alloc == "alternate", 1, 0) alloc.systematic <- ifelse(dat$alloc == "systematic", 1, 0) ### test the allocation factor (in the presence of the other moderators) ### note: 'alternate' is the reference level of the allocation factor, ### since this is the dummy/level we leave out of the model ### note: the intercept is the first coefficient, so with btt=2:3 we test ### coefficients 2 and 3, corresponding to the coefficients for the ### allocation factor rma(yi, vi, mods = ~ alloc.random + alloc.systematic + year + ablat, data=dat, btt=2:3) ### using a model formula to specify the same model rma(yi, vi, mods = ~ factor(alloc) + year + ablat, data=dat, btt=2:3) ### factor() is not needed as character variables are automatically converted to factors res <- rma(yi, vi, mods = ~ alloc + year + ablat, data=dat, btt=2:3) res ### test all pairwise differences between the 'alloc' levels anova(res, X=pairmat(btt="alloc")) ### subgrouping versus using a single model with a factor (subgrouping provides ### an estimate of tau^2 within each subgroup, but the number of studies in each ### subgroup is quite small; the model with the allocation factor provides a ### single estimate of tau^2 based on a larger number of studies, but assumes ### that tau^2 is the same within each subgroup) res.a <- rma(yi, vi, data=dat, subset=(alloc=="alternate")) res.r <- rma(yi, vi, data=dat, subset=(alloc=="random")) res.s <- rma(yi, vi, data=dat, subset=(alloc=="systematic")) res.a res.r res.s res <- rma(yi, vi, mods = ~ 0 + factor(alloc), data=dat) res ############################################################################ ### demonstrating that Q_E + Q_M = Q_Total for fixed-effects models ### note: this does not work for random/mixed-effects models, since Q_E and ### Q_Total are calculated under the assumption that tau^2 = 0, while the ### calculation of Q_M incorporates the estimate of tau^2 res <- rma(yi, vi, data=dat, method="FE") res # this gives Q_Total res <- rma(yi, vi, mods = ~ ablat + year, data=dat, method="FE") res # this gives Q_E and Q_M res$QE + res$QM ### decomposition of Q_E into subgroup Q-values res <- rma(yi, vi, mods = ~ factor(alloc), data=dat) res res.a <- rma(yi, vi, data=dat, subset=(alloc=="alternate")) res.r <- rma(yi, vi, data=dat, subset=(alloc=="random")) res.s <- rma(yi, vi, data=dat, subset=(alloc=="systematic")) res.a$QE # Q-value within subgroup "alternate" res.r$QE # Q-value within subgroup "random" res.s$QE # Q-value within subgroup "systematic" res$QE res.a$QE + res.r$QE + res.s$QE ############################################################################ ### an example of a location-scale model dat <- dat.bangertdrowns2004 ### fit a standard random-effects model res <- rma(yi, vi, data=dat) res ### fit the same model as a location-scale model res <- rma(yi, vi, scale = ~ 1, data=dat) res ### check that we obtain the same estimate for tau^2 predict(res, newscale=1, transf=exp) ### add the total sample size (per 100) as a location and scale predictor dat$ni100 <- dat$ni/100 res <- rma(yi, vi, mods = ~ ni100, scale = ~ ni100, data=dat) res ### variables in the location and scale parts can differ res <- rma(yi, vi, mods = ~ ni100 + meta, scale = ~ ni100 + imag, data=dat) res } \keyword{models} metafor/man/print.escalc.Rd0000644000176200001440000001313215173343621015343 0ustar liggesusers\name{print.escalc} \alias{print.escalc} \alias{summary.escalc} \title{Print and Summary Methods for 'escalc' Objects} \description{ Function to print objects of class \code{"escalc"} (and to obtain inferences for the individual studies/rows in such an object). \loadmathjax } \usage{ \method{print}{escalc}(x, digits=attr(x,"digits"), \dots) \method{summary}{escalc}(object, out.names=c("sei","zi","pval","ci.lb","ci.ub"), var.names, H0=0, append=TRUE, replace=TRUE, level=95, olim, digits, transf, \dots) } \arguments{ \item{x}{an object of class \code{"escalc"} obtained with \code{\link{escalc}}.} \item{object}{an object of class \code{"escalc"} obtained with \code{\link{escalc}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{out.names}{character string with four elements to specify the variable names for the standard errors, test statistics, and lower/upper confidence interval bounds.} \item{var.names}{character string with two elements to specify the variable names for the observed effect sizes or outcomes and the sampling variances (the default is to take the value from the object if possible).} \item{H0}{numeric value to specify the value of the effect size or outcome under the null hypothesis (the default is 0).} \item{append}{logical to specify whether the data frame specified via the \code{object} argument should be returned together with the additional variables that are calculated by the \code{summary} function (the default is \code{TRUE}).} \item{replace}{logical to specify whether existing values for \code{sei}, \code{zi}, \code{ci.lb}, and \code{ci.ub} in the data frame should be replaced. Only relevant when the data frame already contains these variables. If \code{replace=TRUE} (the default), all of the existing values will be overwritten. If \code{replace=FALSE}, only \code{NA} values will be replaced.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{olim}{argument to specify observation/outcome limits. If unspecified, no limits are used.} \item{transf}{argument to specify a function to transform the observed effect sizes or outcomes and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used. Any additional arguments needed for the function specified here can be passed via \code{\dots}.} \item{\dots}{other arguments.} } \value{ The \code{print.escalc} function formats and prints the data frame, so that the observed effect sizes or outcomes and sampling variances are rounded (to the number of digits specified). The \code{summary.escalc} function creates an object that is a data frame containing the original data (if \code{append=TRUE}) and the following components: \item{yi}{observed effect sizes or outcomes (transformed if \code{transf} is specified).} \item{vi}{corresponding sampling variances.} \item{sei}{corresponding standard errors.} \item{zi}{test statistics for testing \mjeqn{\text{H}_0{:}\; \theta_i = \text{H0}}{H_0: \theta_i = H0} (i.e., \code{(yi-H0)/sei}).} \item{pval}{corresponding p-values.} \item{ci.lb}{lower confidence interval bounds (transformed if \code{transf} is specified).} \item{ci.ub}{upper confidence interval bounds (transformed if \code{transf} is specified).} When the \code{transf} argument is specified, elements \code{vi}, \code{sei}, \code{zi}, and \code{pval} are not included (since these only apply to the untransformed effect sizes or outcomes). Note that the actual variable names above depend on the \code{out.names} (and \code{var.names}) arguments. If the data frame already contains variables with names as specified by the \code{out.names} argument, the values for these variables will be overwritten when \code{replace=TRUE} (which is the default). By setting \code{replace=FALSE}, only values that are \code{NA} will be replaced. The \code{print.escalc} function again formats and prints the data frame, rounding the added variables to the number of digits specified. } \note{ If some transformation function has been specified for the \code{transf} argument, then \code{yi}, \code{ci.lb}, and \code{ci.ub} will be transformed accordingly. However, \code{vi} and \code{sei} then still reflect the sampling variances and standard errors of the untransformed values. The \code{summary.escalc} function computes \code{level}\% Wald-type confidence intervals, which may or may not be the most accurate method for computing confidence intervals for the chosen effect size or outcome measure. If the outcome measure used is bounded (e.g., correlations are bounded between -1 and +1, proportions are bounded between 0 and 1), one can use the \code{olim} argument to enforce those observation/outcome limits (the observed outcomes and confidence intervals cannot exceed those bounds then). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for the function to create \code{escalc} objects. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat ### apply summary function summary(dat) summary(dat, transf=exp) } \keyword{print} metafor/man/simulate.rma.Rd0000644000176200001440000000535215173343621015364 0ustar liggesusers\name{simulate.rma} \alias{simulate} \alias{simulate.rma} \title{Simulate Method for 'rma' Objects} \description{ Function to simulate effect sizes or outcomes based on \code{"rma"} model objects. } \usage{ \method{simulate}{rma}(object, nsim=1, seed=NULL, olim, \dots) } \arguments{ \item{object}{an object of class \code{"rma"}.} \item{nsim}{number of response vectors to simulate (defaults to 1).} \item{seed}{an object to specify if and how the random number generator should be initialized (\sQuote{seeded}). Either \code{NULL} or an integer that will be used in a call to \code{set.seed} before simulating the response vectors. If set, the value is saved as the \code{"seed"} attribute of the returned value. The default, \code{NULL} will not change the random generator state, and return \code{\link{.Random.seed}} as the \code{"seed"} attribute; see \sQuote{Value}.} \item{olim}{argument to specify observation/outcome limits for the simulated values. If unspecified, no limits are used.} \item{\dots}{other arguments.} } \details{ The model specified via \code{object} must be a model fitted with either the \code{\link{rma.uni}} or \code{\link{rma.mv}} functions. } \value{ A data frame with \code{nsim} columns with the simulated effect sizes or outcomes. The data frame comes with an attribute \code{"seed"}. If argument \code{seed} is \code{NULL}, the attribute is the value of \code{\link{.Random.seed}} before the simulation was started; otherwise it is the value of the \code{seed} argument with a \code{"kind"} attribute with value \code{as.list(RNGkind())}. } \note{ If the outcome measure used for the analysis is bounded (e.g., correlations are bounded between -1 and +1, proportions are bounded between 0 and 1), one can use the \code{olim} argument to enforce those observation/outcome limits when simulating values (simulated values cannot exceed those bounds then). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}} and \code{\link{rma.mv}} for functions to fit models for which simulated effect sizes or outcomes can be generated. } \examples{ ### copy BCG vaccine data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) dat ### fit random-effects model res <- rma(yi, vi, data=dat) res ### simulate 5 sets of new outcomes based on the fitted model newdat <- simulate(res, nsim=5, seed=1234) newdat } \keyword{datagen} metafor/man/print.matreg.Rd0000644000176200001440000000360615173343621015375 0ustar liggesusers\name{print.matreg} \alias{print.matreg} \alias{summary.matreg} \alias{print.summary.matreg} \title{Print and Summary Methods for 'matreg' Objects} \description{ Functions to print objects of class \code{"matreg"} and \code{"summary.matreg"}. \loadmathjax } \usage{ \method{print}{matreg}(x, digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) \method{summary}{matreg}(object, digits, \dots) \method{print}{summary.matreg}(x, digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) } \arguments{ \item{x}{an object of class \code{"matreg"} or \code{"summary.matreg"} (for \code{print}).} \item{object}{an object of class \code{"matreg"} (for \code{summary}).} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{signif.stars}{logical to specify whether p-values should be encoded visually with \sQuote{significance stars}. Defaults to the \code{show.signif.stars} slot of \code{\link{options}}.} \item{signif.legend}{logical to specify whether the legend for the \sQuote{significance stars} should be printed. Defaults to the value for \code{signif.stars}.} \item{\dots}{other arguments.} } \details{ The output is a table with the estimated coefficients, corresponding standard errors, test statistics, p-values, and confidence interval bounds. When using \code{summary}, the output includes additional statistics, including \mjseqn{R^2} and the omnibus test of the model coefficients (either an F- or a chi-square test). } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \seealso{ \code{\link{matreg}} for the function to create \code{matreg} objects. } \keyword{print} metafor/man/methods.matreg.Rd0000644000176200001440000000727415173343621015711 0ustar liggesusers\name{coef.matreg} \alias{coef.matreg} \alias{vcov.matreg} \alias{sigma.matreg} \alias{confint.matreg} \alias{print.confint.matreg} \alias{logLik.matreg} \alias{AIC.matreg} \alias{BIC.matreg} \title{Extractor Functions for 'matreg' Objects} \description{ Various extractor functions for objects of class \code{"matreg"}. \loadmathjax } \usage{ \method{coef}{matreg}(object, \dots) \method{vcov}{matreg}(object, \dots) \method{sigma}{matreg}(object, REML=TRUE, \dots) \method{logLik}{matreg}(object, REML=FALSE, \dots) \method{AIC}{matreg}(object, \dots, k=2, correct=FALSE, REML=FALSE) \method{BIC}{matreg}(object, \dots, REML=FALSE) \method{confint}{matreg}(object, parm, level, digits, \dots) \method{print}{confint.matreg}(x, digits=x$digits, \dots) } \arguments{ \item{object}{an object of class \code{"matreg"}.} \item{REML}{logical whether the returned value should be based on ML or REML estimation.} \item{k}{numeric value to specify the penalty per parameter. The default (\code{k=2}) is the classical AIC. See \code{\link{AIC}} for more details.} \item{correct}{logical to specify whether the regular (default) or corrected (i.e., AICc) should be extracted.} \emph{For \code{confint()}:} \item{parm}{this argument is here for compatibility with the generic function \code{\link{confint}}, but is (currently) ignored.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (see \link[=misc-options]{here} for details). If unspecified, the default is to take the value from the object.} \item{digits}{optional integer to specify the number of decimal places to which the results should be rounded. If unspecified, the default is to take the value from the object.} \item{x}{an object of class \code{"confint.matreg"}.} \item{\dots}{other arguments.} } \details{ The \code{coef} function extracts the estimated (standardized) regression coefficients from objects of class \code{"matreg"}. The \code{vcov} function extracts the corresponding variance-covariance matrix (note: the \code{\link{se}} function can also be used to extract the standard errors). The \code{confint} function extracts the confidence intervals. Under the \sQuote{Regular \mjseqn{R} Matrix} case (see \code{\link{matreg}}), the \code{sigma} function extracts the square root of the estimated error variance (by default, based on the unbiased estimate of the error variance). The \code{logLik}, \code{AIC}, and \code{BIC} functions extract the corresponding values (note: for compatibility with the behavior for \code{lm} objects, these values are based by default on ML estimation). } \value{ Depending on the function, either a vector, a matrix, or a scalar with the extracted value(s). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{matreg}} for the function to create \code{matreg} objects and \code{\link{predict.matreg}} to compute predicted values based on \code{matreg} objects. } \examples{ ### fit a regression model with lm() to the 'mtcars' dataset res <- lm(mpg ~ hp + wt + am, data=mtcars) summary(res) coef(res) vcov(res) se(res) sigma(res) confint(res) logLik(res) AIC(res) BIC(res) ### covariance matrix of the dataset S <- cov(mtcars) ### fit the same regression model using matreg() res <- matreg(mpg ~ hp + wt + am, R=S, cov=TRUE, means=colMeans(mtcars), n=nrow(mtcars)) summary(res) coef(res) vcov(res) se(res) sigma(res) confint(res) logLik(res) AIC(res) BIC(res) } \keyword{models} metafor/man/plot.permutest.rma.uni.Rd0000644000176200001440000001657515173343621017351 0ustar liggesusers\name{plot.permutest.rma.uni} \alias{plot.permutest.rma.uni} \title{Plot Method for 'permutest.rma.uni' Objects} \description{ Function to plot objects of class \code{"permutest.rma.uni"}. } \usage{ \method{plot}{permutest.rma.uni}(x, beta, alpha, QM=FALSE, QS=FALSE, breaks="Scott", freq=FALSE, col, border, col.out, col.ref, col.density, trim=0, adjust=1, lwd=c(2,0,0,4), legend=FALSE, \dots) } \arguments{ \item{x}{an object of class \code{"permutest.rma.uni"} obtained with \code{\link{permutest}}.} \item{beta}{optional vector of indices to specify which (location) coefficients should be plotted.} \item{alpha}{optional vector of indices to specify which scale coefficients should be plotted. Only relevant for location-scale models (see \code{\link{rma.uni}}).} \item{QM}{logical to specify whether the permutation distribution of the omnibus test of the (location) coefficients should be plotted (the default is \code{FALSE}).} \item{QS}{logical to specify whether the permutation distribution of the omnibus test of the scale coefficients should be plotted (the default is \code{FALSE}). Only relevant for location-scale models (see \code{\link{rma.uni}}).} \item{breaks}{argument to be passed on to the corresponding argument of \code{\link{hist}} to set (the method for determining) the (number of) breakpoints.} \item{freq}{logical to specify whether frequencies or probability densities should be plotted (the default is \code{FALSE} to plot densities).} \item{col}{optional character string to specify the color of the histogram bars.} \item{border}{optional character string to specify the color of the borders around the bars.} \item{col.out}{optional character string to specify the color of the bars that are more extreme than the observed test statistic (the default is a semi-transparent shade of red).} \item{col.ref}{optional character string to specify the color of the theoretical reference/null distribution that is superimposed on top of the histogram (the default is a dark shade of gray).} \item{col.density}{optional character string to specify the color of the kernel density estimate of the permutation distribution that is superimposed on top of the histogram (the default is blue).} \item{trim}{the fraction (up to 0.5) of observations to be trimmed from the tails of each permutation distribution before its histogram is plotted.} \item{adjust}{numeric value to be passed on to the corresponding argument of \code{\link{density}} (for adjusting the bandwidth of the kernel density estimate).} \item{lwd}{numeric vector to specify the width of the vertical lines corresponding to the value of the observed test statistic, of the theoretical reference/null distribution, of the density estimate, and of the vertical line at 0 (note: by default, the theoretical reference/null distribution and the density estimate both have a line width of 0 and are therefore not plotted).} \item{legend}{logical to specify whether a legend should be added to the plot (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ The function plots the permutation distribution of each model coefficient as a histogram. For models with moderators, one can choose via argument \code{beta} which coefficients to plot (by default, all permutation distributions except that of the intercept are plotted). One can also choose to plot the permutation distribution of the omnibus test of the model coefficients (by setting \code{QM=TRUE}). Arguments \code{breaks}, \code{freq}, \code{col}, and \code{border} are passed on to the \code{\link{hist}} function for the plotting. Argument \code{trim} can be used to trim away a certain fraction of observations from the tails of each permutation distribution before its histogram is plotted. By setting this to a value above 0, one can quickly remove some of the extreme values that might lead to the bulk of the distribution getting squished together at the center (typically, a small value such as \code{trim=0.01} is sufficient for this purpose). The observed test statistic is indicated as a vertical dashed line (in both tails for a two-sided test). Argument \code{col.out} is used to specify the color for the bars in the histogram that are more extreme than the observed test statistic. The p-value of a permutation test corresponds to the area of these bars. One can superimpose the theoretical reference/null distribution on top of the histogram (i.e., the distribution as assumed by the model). The p-value for the standard (i.e., non-permutation) test is the area that is more extreme than the observed test statistic under this reference/null distribution. A kernel density estimate of the permutation distribution can also be superimposed on top of the histogram (as a smoothed representation of the permutation distribution). Note that the theoretical reference/null distribution and the kernel density estimate of the permutation distribution are only shown when setting the line width for these elements greater than 0 via the \code{lwd} argument (e.g., \code{lwd=c(2,2,2,4)}). By setting the \code{legend} argument to \code{TRUE}, a legend is added to the plot. One can also use a keyword for this argument to specify the position of the legend (e.g., \code{legend="topright"}; see \code{\link{legend}} for options). Finally, this argument can also be a list, with elements \code{x}, \code{y}, \code{inset}, and \code{cex}, which are passed on to the corresponding arguments of the \code{\link{legend}} function for even more control (elements not specified are set to defaults). For location-scale models (see \code{\link{rma.uni}} for details), one can also use arguments \code{alpha} and \code{QS} to specify which scale coefficients to plot and whether to also plot the permutation distribution of the omnibus test of the scale coefficients (by setting \code{QS=TRUE}). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=permutest.rma.uni]{permutest}} for the function to create \code{permutest.rma.uni} objects. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### random-effects model res <- rma(yi, vi, data=dat) res \dontrun{ ### permutation test (exact) permres <- permutest(res, exact=TRUE) permres ### plot of the permutation distribution ### dashed horizontal line: the observed value of the test statistic (in both tails) ### black curve: standard normal density (theoretical reference/null distribution) ### blue curve: kernel density estimate of the permutation distribution plot(permres, lwd=c(2,3,3,4)) ### mixed-effects model with two moderators (absolute latitude and publication year) res <- rma(yi, vi, mods = ~ ablat + year, data=dat) res ### permutation test (approximate) set.seed(1234) # for reproducibility permres <- permutest(res, iter=10000) permres ### plot of the permutation distribution for absolute latitude ### note: the tail area under the permutation distribution is larger ### than under a standard normal density (hence, the larger p-value) plot(permres, beta=2, lwd=c(2,3,3,4), xlim=c(-5,5)) } } \keyword{hplot} metafor/man/gosh.Rd0000644000176200001440000001501515173343621013720 0ustar liggesusers\name{gosh} \alias{gosh} \alias{gosh.rma} \title{GOSH Plots for 'rma' Objects} \description{ Function to create GOSH plots for objects of class \code{"rma"}. \loadmathjax } \usage{ gosh(x, \dots) \method{gosh}{rma}(x, subsets, progbar=TRUE, parallel="no", ncpus=1, cl, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{subsets}{optional integer to specify the number of subsets.} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{TRUE}).} \item{parallel}{character string to specify whether parallel processing should be used (the default is \code{"no"}). For parallel processing, set to either \code{"snow"} or \code{"multicore"}. See \sQuote{Note}.} \item{ncpus}{integer to specify the number of processes to use in the parallel processing.} \item{cl}{optional cluster to use if \code{parallel="snow"}. If unspecified, a cluster on the local machine is created for the duration of the call.} \item{\dots}{other arguments.} } \details{ The model specified via \code{x} must be a model fitted with either the \code{\link{rma.uni}}, \code{\link{rma.mh}}, or \code{\link{rma.peto}} functions. Olkin et al. (2012) proposed the GOSH (graphical display of study heterogeneity) plot, which is based on examining the results of an equal-effects model in all possible subsets of size \mjseqn{1, \ldots, k} of the \mjseqn{k} studies included in a meta-analysis. In a homogeneous set of studies, the model estimates obtained this way should form a roughly symmetric, contiguous, and unimodal distribution. On the other hand, when the distribution is multimodal, then this suggests the presence of heterogeneity, possibly due to outliers and/or distinct subgroups of studies. Plotting the estimates against some measure of heterogeneity (e.g., \mjseqn{I^2}, \mjseqn{H^2}, or the \mjseqn{Q}-statistic) can also help to reveal subclusters, which are indicative of heterogeneity. The same type of plot can be produced by first fitting an equal-effects model with either the \code{\link{rma.uni}} (using \code{method="EE"}), \code{\link{rma.mh}}, or \code{\link{rma.peto}} functions and then passing the fitted model object to the \code{gosh} function and then plotting the results. For models fitted with the \code{\link{rma.uni}} function (which may be random-effects or mixed-effects meta-regressions models), the idea underlying this type of plot can be generalized (Viechtbauer, 2021) by examining the distribution of all model coefficients, plotting them against each other, and against some measure of (residual) heterogeneity (including the estimate of \mjseqn{\tau^2} or its square root). Note that for models without moderators, application of the method requires fitting a total of \mjseqn{2^k - 1} models, which could be an excessively large number when \mjseqn{k} is large. For example, for \mjseqn{k=10}, there are only 1023 possible subsets, but for \mjseqn{k=20}, this number already grows to 1,048,575. For even larger \mjseqn{k}, it may become computationally infeasible to consider all possible subsets. Instead, we can then examine (a sufficiently large number of) random subsets. By default, if the number of possible subsets is \mjseqn{\le 10^6}, the function will consider all possible subsets and otherwise \mjseqn{10^6} random subsets. One can use the \code{subsets} argument to specify a different number of subsets to consider. If \code{subsets} is specified and it is actually larger than the number of possible subsets, then the function automatically only considers the possible subsets and does not use random subsets. When \code{x} is an equal-effects model or a random-effects model fitted using \code{method="DL"}, provisions have been made to speed up the model fitting to the various subsets. For random-effects models using some other estimator of \mjseqn{\tau^2} (especially an iterative one like \code{method="REML"}), the computations will be considerably slower. } \value{ An object of class \code{"gosh.rma"}. The object is a list containing the following components: \item{res}{a data frame with the results for each subset (including various heterogeneity statistics and the model coefficient(s)).} \item{incl}{a matrix indicating which studies were included in which subset.} \item{\dots}{some additional elements/values.} The results can be printed with the \code{\link[=print.gosh.rma]{print}} function and plotted with the \code{\link[=plot.gosh.rma]{plot}} function. } \note{ On machines with multiple cores, one can try to speed things up by delegating the model fitting to separate worker processes, that is, by setting \code{parallel="snow"} or \code{parallel="multicore"} and \code{ncpus} to some value larger than 1. Parallel processing makes use of the \code{\link[parallel]{parallel}} package, using the \code{\link[parallel]{makePSOCKcluster}} and \code{\link[parallel]{parLapply}} functions when \code{parallel="snow"} or using \code{\link[parallel]{mclapply}} when \code{parallel="multicore"} (the latter only works on Unix/Linux-alikes). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Olkin, I., Dahabreh, I. J., & Trikalinos, T. A. (2012). GOSH - a graphical display of study heterogeneity. \emph{Research Synthesis Methods}, \bold{3}(3), 214--223. \verb{https://doi.org/10.1002/jrsm.1053} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, and \code{\link{rma.peto}} for functions to fit models for which GOSH plots can be drawn. \code{\link[=influence.rma.uni]{influence}} for other model diagnostics. } \examples{ ### calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.egger2001) ### meta-analysis of all trials including ISIS-4 using an equal-effects model res <- rma(yi, vi, data=dat, method="EE") ### fit FE model to all possible subsets (65535 models) \dontrun{ sav <- gosh(res, progbar=FALSE) sav ### create GOSH plot ### red points for subsets that include and blue points ### for subsets that exclude study 16 (the ISIS-4 trial) plot(sav, out=16, breaks=100) } } \keyword{methods} metafor/man/regtest.Rd0000644000176200001440000003373515173343621014446 0ustar liggesusers\name{regtest} \alias{regtest} \title{Regression Test for Funnel Plot Asymmetry} \description{ Function to carry out (various versions of) Egger's regression test for funnel plot asymmetry. \loadmathjax } \usage{ regtest(x, vi, sei, ni, subset, data, model="rma", predictor="sei", ret.fit=FALSE, digits, \dots) } \arguments{ \item{x}{a vector with the observed effect sizes or outcomes or an object of class \code{"rma"}.} \item{vi}{vector with the corresponding sampling variances (ignored if \code{x} is an object of class \code{"rma"}).} \item{sei}{vector with the corresponding standard errors (note: only one of the two, \code{vi} or \code{sei}, needs to be specified).} \item{ni}{optional vector with the corresponding sample sizes (only relevant when using the sample sizes (or a transformation thereof) as predictor).} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be included in the test (ignored if \code{x} is an object of class \code{"rma"}).} \item{data}{optional data frame containing the variables given to the arguments above.} \item{model}{either \code{"rma"} or \code{"lm"} to specify the type of model to use for the regression test. See \sQuote{Details}.} \item{predictor}{either \code{"sei"} \code{"vi"}, \code{"ni"}, \code{"ninv"}, \code{"sqrtni"}, or \code{"sqrtninv"} to specify the predictor to use for the regression test. See \sQuote{Details}.} \item{ret.fit}{logical to specify whether the full results from the fitted model should also be returned.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} \item{\dots}{other arguments.} } \details{ Various tests for funnel plot asymmetry have been suggested in the literature, including the rank correlation test by Begg and Mazumdar (1994) and the regression test by Egger et al. (1997). Extensions, modifications, and further developments of the regression test are described (among others) by Macaskill et al. (2001), Sterne and Egger (2005), Harbord et al. (2006), Peters et al. (2006), \enc{Rücker}{Ruecker} et al. (2008), and Moreno et al. (2009). The various versions of the regression test differ in terms of the model (either a weighted regression model with a multiplicative dispersion term or a fixed/mixed-effects meta-regression model is used), in terms of the predictor variable that the observed effect sizes or outcomes are hypothesized to be related to when publication bias is present (suggested predictors include the standard error, the sampling variance, and the sample size or transformations thereof), and in terms of the outcome measure used (e.g., for \mjeqn{2 \times 2}{2x2} table data, one has the choice between various outcome measures). The idea behind the various tests is the same though: If there is a relationship between the observed effect sizes or outcomes and the chosen predictor, then this usually implies asymmetry in the funnel plot, which in turn may be an indication of publication bias. The \code{regtest} function can be used to carry out various versions of the regression test. One can either pass a vector with the observed effect sizes or outcomes (via \code{x}) and the corresponding sampling variances via \code{vi} (or the standard errors via \code{sei}) to the function or an object of class \code{"rma"}. The model type for the regression test is chosen via the \code{model} argument, with \code{model="lm"} for a weighted regression model with a multiplicative dispersion term or \code{model="rma"} for a (mixed-effects) meta-regression model (the default). The predictor for the test is chosen via the \code{predictor} argument: \itemize{ \item \code{predictor="sei"} for the standard errors (the default), \item \code{predictor="vi"} for the sampling variances, \item \code{predictor="ni"} for the sample sizes, \item \code{predictor="ninv"} for the inverse of the sample sizes, \item \code{predictor="sqrtni"} for the square root of the sample sizes, or \item \code{predictor="sqrtninv"} for the inverse square root of the sample sizes. } The outcome measure used for the regression test is simply determined by the values passed to the function or the measure that was used in fitting the original model (when passing an object of class \code{"rma"} to the function). When using the sample sizes (or a transformation thereof) as the predictor, one can use the \code{ni} argument to specify the sample sizes. When \code{x} is a vector with the observed effect sizes or outcomes and it was computed with \code{\link{escalc}}, then the sample sizes should automatically be stored as an attribute of \code{x} and \code{ni} does not need to be specified. This should also be the case when passing an object of class \code{"rma"} to the function and the input to the model fitting function came from \code{\link{escalc}}. When passing an object of class \code{"rma"} to the function, arguments such as \code{method}, \code{weighted}, and \code{test} as used during the initial model fitting are also used for the regression test. If the model already included one or more moderators, then \code{regtest} will add the chosen predictor to the moderator(s) already included in the model. This way, one can test for funnel plot asymmetry after accounting first for the influence of the moderator(s) already included in the model. The model used for conducting the regression test can also be used to obtain a \sQuote{limit estimate} of the (average) true effect or outcome. In particular, when the standard errors, sampling variances, or inverse (square root) sample sizes are used as the predictor, the model intercept in essence reflects the estimate under infinite precision. This is sometimes (cautiously) interpreted as an estimate of the (average) true effect or outcome that is adjusted for publication bias. } \value{ An object of class \code{"regtest"}. The object is a list containing the following components: \item{model}{the model used for the regression test.} \item{predictor}{the predictor used for the regression test.} \item{zval}{the value of the test statistic.} \item{pval}{the corresponding p-value} \item{dfs}{the degrees of freedom of the test statistic (if the test is based on a t-distribution).} \item{fit}{the full results from the fitted model.} \item{est}{the limit estimate (only for predictors \code{"sei"} \code{"vi"}, \code{"ninv"}, or \code{"sqrtninv"} and when the model does not contain any additional moderators; \code{NULL} otherwise).} \item{ci.lb}{lower bound of the confidence interval for the limit estimate.} \item{ci.ub}{upper bound of the confidence intervals for the limit estimate.} The results are formatted and printed with the \code{\link[=print.regtest]{print}} function. } \note{ The classical \sQuote{Egger test} is obtained by setting \code{model="lm"} and \code{predictor="sei"}. For the random/mixed-effects version of the test, set \code{model="rma"} (this is the default). See Sterne and Egger (2005) for details on these two types of models/tests. When conducting a classical \sQuote{Egger test}, the test of the limit estimate is the same as the \sQuote{precision-effect test} (PET) of Stanley and Doucouliagos (2014). The limit estimate when using the sampling variance as predictor is sometimes called the \sQuote{precision-effect estimate with SE} (PEESE) (Stanley & Doucouliagos, 2014). A conditional procedure where we use the limit estimate when PET is not significant (i.e., when using the standard error as predictor) and the PEESE (i.e., when using the sampling variance as predictor) when PET is significant is sometimes called the PET-PEESE procedure (Stanley & Doucouliagos, 2014). All of the tests do not directly test for publication bias, but for a relationship between the observed effect sizes or outcomes and the chosen predictor. If such a relationship is present, then this usually implies asymmetry in the funnel plot, which in turn may be an indication of publication bias. However, it is important to keep in mind that there can be other reasons besides publication bias that could lead to asymmetry in the funnel plot. For example, the sampling variances can be inherently corrected with the observed effect sizes for various effect size measures, which can induce artificial asymmetry in the funnel plot unrelated to publication bias (Macaskill et al., 2001; Moreno et al., 2009; Peters et al., 2006; Pustejovsky & Rodgers, 2019; Zwetsloot et al., 2017). Using the sample sizes (or some transformation thereof) as the predictor can mitigate this issue. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Begg, C. B., & Mazumdar, M. (1994). Operating characteristics of a rank correlation test for publication bias. \emph{Biometrics}, \bold{50}(4), 1088--1101. \verb{https://doi.org/10.2307/2533446} Egger, M., Davey Smith, G., Schneider, M., & Minder, C. (1997). Bias in meta-analysis detected by a simple, graphical test. \emph{British Medical Journal}, \bold{315}(7109), 629--634. \verb{https://doi.org/10.1136/bmj.315.7109.629 } Harbord, R. M., Egger, M., & Sterne, J. A. C. (2006). A modified test for small-study effects in meta-analyses of controlled trials with binary endpoints. \emph{Statistics in Medicine}, \bold{25}(20), 3443--3457. \verb{https://doi.org/10.1002/sim.2380} Macaskill, P., Walter, S. D., & Irwig, L. (2001). A comparison of methods to detect publication bias in meta-analysis. \emph{Statistics in Medicine}, \bold{20}(4), 641--654. \verb{https://doi.org/10.1002/sim.698} Moreno, S. G., Sutton, A. J., Ades, A. E., Stanley, T. D., Abrams, K. R., Peters, J. L., & Cooper, N. J. (2009). Assessment of regression-based methods to adjust for publication bias through a comprehensive simulation study. \emph{BMC Medical Research Methodology}, \bold{9}, 2. \verb{https://doi.org/10.1186/1471-2288-9-2} Peters, J. L., Sutton, A. J., Jones, D. R., Abrams, K. R., & Rushton, L. (2006). Comparison of two methods to detect publication bias in meta-analysis. \emph{Journal of the American Medical Association}, \bold{295}(6), 676--680. \verb{https://doi.org/10.1001/jama.295.6.676} Pustejovsky, J. E., & Rodgers, M. A. (2019). Testing for funnel plot asymmetry of standardized mean differences. \emph{Research Synthesis Methods}, \bold{10}(1), 57--71. \verb{https://doi.org/10.1002/jrsm.1332} \enc{Rücker}{Ruecker}, G., Schwarzer, G., & Carpenter, J. (2008). Arcsine test for publication bias in meta-analyses with binary outcomes. \emph{Statistics in Medicine}, \bold{27}(5), 746--763. \verb{https://doi.org/10.1002/sim.2971} Stanley, T. D., & Doucouliagos, H. (2014). Meta-regression approximations to reduce publication selection bias. \emph{Research Synthesis Methods}, \bold{5}(1), 60--78. \verb{https://doi.org/10.1002/jrsm.1095} Sterne, J. A. C., & Egger, M. (2005). Regression methods to detect publication and other bias in meta-analysis. In H. R. Rothstein, A. J. Sutton, & M. Borenstein (Eds.) \emph{Publication bias in meta-analysis: Prevention, assessment, and adjustments} (pp. 99--110). Chichester, England: Wiley. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Zwetsloot, P.-P., Van Der Naald, M., Sena, E. S., Howells, D. W., IntHout, J., De Groot, J. A. H., Chamuleau, S. A. J., MacLeod, M. R., & Wever, K. E. (2017). Standardized mean differences cause funnel plot distortion in publication bias assessments. \emph{eLife}, 6, e24260. \verb{https://doi.org/10.7554/elife.24260} } \seealso{ \code{\link{ranktest}} for the rank correlation test, \code{\link{trimfill}} for the trim and fill method, \code{\link{tes}} for the test of excess significance, \code{\link{fsn}} to compute the fail-safe N (file drawer analysis), and \code{\link{selmodel}} for selection models. } \examples{ ### copy data into 'dat' and examine data dat <- dat.egger2001 ### calculate log odds ratios and corresponding sampling variances (but remove ISIS-4 trial) dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, subset=-16) ### fit random-effects model res <- rma(yi, vi, data=dat) res ### classical Egger test regtest(res, model="lm") ### mixed-effects meta-regression version of the Egger test regtest(res) ### same tests, but passing outcomes directly regtest(yi, vi, data=dat, model="lm") regtest(yi, vi, data=dat) ### if dat$yi is computed with escalc(), sample size information is stored in attributes dat$yi ### then this will also work regtest(yi, vi, data=dat, predictor="ni") ### similarly when passing a model object to the function regtest(res, model="lm", predictor="ni") regtest(res, model="lm", predictor="ninv") regtest(res, predictor="ni") regtest(res, predictor="ninv") ### otherwise have to supply sample sizes manually dat$yi <- c(dat$yi) # this removes the 'ni' attribute from 'yi' dat$nitotal <- with(dat, n1i + n2i) regtest(yi, vi, ni=nitotal, data=dat, predictor="ni") res <- rma(yi, vi, data=dat) regtest(res, predictor="ni", ni=nitotal, data=dat) ### standard funnel plot (with standard errors on the y-axis) funnel(res, refline=0) ### regression test (by default the standard errors are used as predictor) reg <- regtest(res) reg ### add regression line to funnel plot se <- seq(0,1.8,length=100) lines(coef(reg$fit)[1] + coef(reg$fit)[2]*se, se, lwd=3) ### regression test (using the sampling variances as predictor) reg <- regtest(res, predictor="vi") ### add regression line to funnel plot (using the sampling variances as predictor) lines(coef(reg$fit)[1] + coef(reg$fit)[2]*se^2, se, lwd=3, lty="dotted") ### add legend legend("bottomright", inset=0.02, lty=c("solid","dotted"), lwd=3, cex=0.9, bg="white", legend=c("Standard Errors as Predictor", "Sampling Variances as Predictor")) ### testing for asymmetry after accounting for the influence of a moderator res <- rma(yi, vi, mods = ~ year, data=dat) regtest(res, model="lm") regtest(res) } \keyword{htest} metafor/man/leave1out.Rd0000644000176200001440000001246615173343621014674 0ustar liggesusers\name{leave1out} \alias{leave1out} \alias{leave1out.rma.uni} \alias{leave1out.rma.mh} \alias{leave1out.rma.peto} \title{Leave-One-Out Diagnostics for 'rma' Objects} \description{ Functions to carry out a \sQuote{leave-one-out analysis}, by repeatedly fitting the specified model leaving out one study (or cluster level) at a time. \loadmathjax } \usage{ leave1out(x, \dots) \method{leave1out}{rma.uni}(x, cluster, digits, transf, targs, progbar=FALSE, \dots) \method{leave1out}{rma.mh}(x, cluster, digits, transf, targs, progbar=FALSE, \dots) \method{leave1out}{rma.peto}(x, cluster, digits, transf, targs, progbar=FALSE, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}, \code{"rma.mh"}, or \code{"rma.peto"}.} \item{cluster}{optional vector to specify a clustering variable.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{transf}{optional argument to specify a function to transform the model coefficients and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ In a leave-one-out analysis, the same model is repeatedly fitted, leaving out one study at a time. By doing so, we can assess how much the results are influenced by each individual study. It is also possible to specify a \code{cluster} variable, in which case each cluster level is left out in turn. Note that for \code{"rma.uni"} objects, the model specified via \code{x} must be a model without moderators (i.e., either an equal- or a random-effects model). } \value{ An object of class \code{"list.rma"}. The object is a list containing the following components: \item{estimate}{estimated (average) outcomes.} \item{se}{corresponding standard errors.} \item{zval}{corresponding test statistics.} \item{pval}{corresponding p-values.} \item{ci.lb}{lower bounds of the confidence intervals.} \item{ci.ub}{upper bounds of the confidence intervals.} \item{Q}{test statistics for the test of heterogeneity.} \item{Qp}{corresponding p-values.} \item{tau2}{estimated amount of heterogeneity (only for random-effects models).} \item{I2}{values of \mjseqn{I^2}.} \item{H2}{values of \mjseqn{H^2}.} When the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}, then \code{zval} is called \code{tval} in the object that is returned by the function. The object is formatted and printed with the \code{\link[=print.list.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. } \note{ When using the \code{transf} option, the transformation is applied to the estimated coefficients and the corresponding interval bounds. The standard errors are then set equal to \code{NA} and are omitted from the printed output. The variable specified via \code{cluster} is assumed to be of the same length as the data originally passed to the model fitting function (and if the \code{data} argument was used in the original model fit, then the variable will be searched for within this data frame first). Any subsetting and removal of studies with missing values that was applied during the model fitting is also automatically applied to the variable specified via the \code{cluster} argument. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} Viechtbauer, W., & Cheung, M. W.-L. (2010). Outlier and influence diagnostics for meta-analysis. \emph{Research Synthesis Methods}, \bold{1}(2), 112--125. \verb{https://doi.org/10.1002/jrsm.11} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, and \code{\link{rma.peto}} for functions to fit models for which leave-one-out diagnostics can be computed. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### random-effects model res <- rma(yi, vi, data=dat) ### leave-one-out analysis leave1out(res) leave1out(res, transf=exp) ### leave-one-out analysis with a cluster variable leave1out(res, cluster=alloc) ### meta-analysis of the (log) risk ratios using the Mantel-Haenszel method res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### leave-one-out analysis leave1out(res) leave1out(res, transf=exp) ### meta-analysis of the (log) odds ratios using Peto's method res <- rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### leave-one-out analysis leave1out(res) leave1out(res, transf=exp) } \keyword{methods} metafor/man/to.table.Rd0000644000176200001440000001376315173343621014500 0ustar liggesusers\name{to.table} \alias{to.table} \title{Convert Data from Vector to Table Format} \description{ Function to convert summary data in vector format to the corresponding table format. \loadmathjax } \usage{ to.table(measure, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, sdi, ni, data, slab, subset, add=1/2, to="none", drop00=FALSE, rows, cols) } \arguments{ \item{measure}{a character string to specify the effect size or outcome measure corresponding to the summary data supplied. See \sQuote{Details} and the documentation of the \code{\link{escalc}} function for possible options.} \item{ai}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper left cell).} \item{bi}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper right cell).} \item{ci}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower left cell).} \item{di}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower right cell).} \item{n1i}{vector with the group sizes or row totals (first group/row).} \item{n2i}{vector with the group sizes or row totals (second group/row).} \item{x1i}{vector with the number of events (first group).} \item{x2i}{vector with the number of events (second group).} \item{t1i}{vector with the total person-times (first group).} \item{t2i}{vector with the total person-times (second group).} \item{m1i}{vector with the means (first group or time point).} \item{m2i}{vector with the means (second group or time point).} \item{sd1i}{vector with the standard deviations (first group or time point).} \item{sd2i}{vector with the standard deviations (second group or time point).} \item{xi}{vector with the frequencies of the event of interest.} \item{mi}{vector with the frequencies of the complement of the event of interest or the group means.} \item{ri}{vector with the raw correlation coefficients.} \item{ti}{vector with the total person-times.} \item{sdi}{vector with the standard deviations.} \item{ni}{vector with the sample/group sizes.} \item{data}{optional data frame containing the variables given to the arguments above.} \item{slab}{optional vector with labels for the studies.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be included in the array returned by the function.} \item{add}{see the documentation of the \code{\link{escalc}} function.} \item{to}{see the documentation of the \code{\link{escalc}} function.} \item{drop00}{see the documentation of the \code{\link{escalc}} function.} \item{rows}{optional vector with row/group names.} \item{cols}{optional vector with column/outcome names.} } \details{ The \code{\link{escalc}} function describes a wide variety of effect sizes or outcome measures that can be computed for a meta-analysis. The summary data used to compute those measures are typically contained in vectors, each element corresponding to a study. The \code{to.table} function takes this information and constructs an array of \mjseqn{k} tables from these data. For example, in various fields (such as the health and medical sciences), the response variable measured is often dichotomous (binary), so that the data from a study comparing two different groups can be expressed in terms of a \mjeqn{2 \times 2}{2x2} table, such as: \tabular{lcccccc}{ \tab \ics \tab outcome 1 \tab \ics \tab outcome 2 \tab \ics \tab total \cr group 1 \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \tab \ics \tab \code{n1i} \cr group 2 \tab \ics \tab \code{ci} \tab \ics \tab \code{di} \tab \ics \tab \code{n2i}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies (i.e., the number of individuals falling into a particular category) and \code{n1i} and \code{n2i} the row totals (i.e., the group sizes). The cell frequencies in \mjseqn{k} such \mjeqn{2 \times 2}{2x2} tables can be specified via the \code{ai}, \code{bi}, \code{ci}, and \code{di} arguments (or alternatively, via the \code{ai}, \code{ci}, \code{n1i}, and \code{n2i} arguments). The function then creates the corresponding \mjeqn{2 \times 2 \times k}{2*2*k} array of tables. The \code{measure} argument should then be set equal to one of the outcome measures that can be computed based on this type of data, such as \code{"RR"}, \code{"OR"}, \code{"RD"} (it is not relevant which specific measure is chosen, as long as it corresponds to the specified summary data). See the documentation of the \code{\link{escalc}} function for more details on the types of data formats available. The examples below illustrate the use of this function. } \value{ An array with \mjseqn{k} elements each consisting of either 1 or 2 rows and an appropriate number of columns. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to compute observed effect sizes or outcomes (and corresponding sampling variances) based on similar inputs. \code{\link{to.long}} for a function to turn similar inputs into a long format dataset. } \examples{ ### create tables dat <- to.table(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", "), rows=c("Vaccinated", "Not Vaccinated"), cols=c("TB+", "TB-")) dat ### create tables dat <- to.table(measure="IRR", x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat.hart1999, slab=paste(study, year, sep=", "), rows=c("Warfarin Group", "Placebo/Control Group")) dat ### create tables dat <- to.table(measure="MD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat.normand1999, slab=source, rows=c("Specialized Care", "Routine Care")) dat } \keyword{manip} metafor/man/print.deltamethod.Rd0000644000176200001440000000255015173343621016405 0ustar liggesusers\name{print.deltamethod} \alias{print.deltamethod} \title{Print Method for 'deltamethod' Objects} \description{ Functions to print objects of class \code{"deltamethod"}. } \usage{ \method{print}{deltamethod}(x, digits, signif.stars=getOption("show.signif.stars"), signif.legend=signif.stars, \dots) } \arguments{ \item{x}{an object of class \code{"deltamethod"}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{signif.stars}{logical to specify whether p-values should be encoded visually with \sQuote{significance stars}. Defaults to the \code{show.signif.stars} slot of \code{\link{options}}.} \item{signif.legend}{logical to specify whether the legend for the \sQuote{significance stars} should be printed. Defaults to the value for \code{signif.stars}.} \item{\dots}{other arguments.} } \details{ The output is a table with the estimated coefficients, corresponding standard errors, test statistics, p-values, and confidence interval bounds. } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \seealso{ \code{\link{deltamethod}} for the function to create \code{deltamethod} objects. } \keyword{print} metafor/man/conv.wald.Rd0000644000176200001440000004233015173343621014653 0ustar liggesusers\name{conv.wald} \alias{conv.wald} \title{Convert Wald-Type Confidence Intervals and Tests to Sampling Variances} \description{ Function to convert Wald-type confidence intervals (CIs) and test statistics (or the corresponding p-values) to sampling variances. \loadmathjax } \usage{ conv.wald(out, ci.lb, ci.ub, zval, pval, n, data, include, level=95, transf, check=TRUE, var.names, append=TRUE, replace="ifna", \dots) } \arguments{ \item{out}{vector with the observed effect sizes or outcomes.} \item{ci.lb}{vector with the lower bounds of the corresponding Wald-type CIs.} \item{ci.ub}{vector with the upper bounds of the corresponding Wald-type CIs.} \item{zval}{vector with the Wald-type test statistics.} \item{pval}{vector with the p-values of the Wald-type tests.} \item{n}{vector with the total sample sizes of the studies.} \item{data}{optional data frame containing the variables given to the arguments above.} \item{include}{optional (logical or numeric) vector to specify the subset of studies for which the conversion should be carried out.} \item{level}{numeric value (or vector) to specify the confidence interval level(s) (the default is 95; see \link[=misc-options]{here} for details).} \item{transf}{optional argument to specify a function to transform \code{out}, \code{ci.lb}, and \code{ci.ub} (e.g., \code{transf=log}). If unspecified, no transformation is used.} \item{check}{logical to specify whether the function should carry out a check to examine if the point estimates fall (approximately) halfway between the CI bounds (the default is \code{TRUE}).} \item{var.names}{character vector with two elements to specify the name of the variable for the observed effect sizes or outcomes and the name of the variable for the corresponding sampling variances (if \code{data} is an object of class \code{"escalc"}, the \code{var.names} are taken from the object; otherwise the defaults are \code{"yi"} and \code{"vi"}).} \item{append}{logical to specify whether the data frame provided via the \code{data} argument should be returned together with the estimated values (the default is \code{TRUE}).} \item{replace}{character string or logical to specify how values in \code{var.names} should be replaced (only relevant when using the \code{data} argument and if variables in \code{var.names} already exist in the data frame). See the \sQuote{Value} section for more details.} \item{\dots}{other arguments.} } \details{ The \code{\link{escalc}} function can be used to compute a wide variety of effect sizes or \sQuote{outcome measures}. However, the inputs required to compute certain measures with this function may not be reported for all of the studies. Under certain circumstances, other information (such as point estimates and corresponding confidence intervals and/or test statistics) may be available that can be converted into the appropriate format needed for a meta-analysis. The purpose of the present function is to facilitate this process. The function typically takes a data frame created with the \code{\link{escalc}} function as input via the \code{data} argument. This object should contain variables \code{yi} and \code{vi} (unless argument \code{var.names} was used to adjust these variable names when the \code{"escalc"} object was created) for the observed effect sizes or outcomes and the corresponding sampling variances, respectively. For some studies, the values for these variables may be missing. \subsection{Converting Point Estimates and Confidence Intervals}{ In some studies, the effect size estimate or observed outcome may already be reported. If so, such values can be supplied via the \code{out} argument and are then substituted for missing \code{yi} values. At times, it may be necessary to transform the reported values (e.g., reported odds ratios to log odds ratios). Via argument \code{transf}, an appropriate transformation function can be specified (e.g., \code{transf=log}), in which case \mjseqn{y_i = f(\text{out})} where \mjeqn{f(\cdot)}{f(.)} is the function specified via \code{transf}. Moreover, a confidence interval (CI) may have been reported together with the estimate. The bounds of the CI can be supplied via arguments \code{ci.lb} and \code{ci.ub}, which are also transformed if a function is specified via \code{transf}. Assume that the bounds were obtained from a Wald-type CI of the form \mjeqn{y_i \pm z_{crit} \sqrt{v_i}}{y_i ± z_crit \sqrt{v_i}} (on the transformed scale if \code{transf} is specified), where \mjseqn{v_i} is the sampling variance corresponding to the effect size estimate or observed outcome (so that \mjseqn{\sqrt{v_i}} is the corresponding standard error) and \mjeqn{z_{crit}}{z_crit} is the appropriate critical value from a standard normal distribution (e.g., \mjseqn{1.96} for a 95\% CI). Then \mjdeqn{v_i = \left(\frac{\text{ci.ub} - \text{ci.lb}}{2 \times z_{crit}}\right)^2}{v_i = ((ci.ub - ci.lb) / (2*z_crit))^2} is used to back-calculate the sampling variances of the (transformed) effect size estimates or observed outcomes and these values are then substituted for missing \code{vi} values in the dataset. For example, consider the following dataset of three RCTs used as input for a meta-analysis of log odds ratios: \preformatted{ dat <- data.frame(study = 1:3, cases.trt = c(23, NA, 4), n.trt = c(194, 183, 46), cases.plc = c(38, NA, 7), n.plc = c(201, 188, 44), oddsratio = c(NA, 0.64, NA), lower = c(NA, 0.33, NA), upper = c(NA, 1.22, NA)) dat <- escalc(measure="OR", ai=cases.trt, n1i=n.trt, ci=cases.plc, n2i=n.plc, data=dat) dat # study cases.trt n.trt cases.plc n.plc oddsratio lower upper yi vi # 1 1 23 194 38 201 NA NA NA -0.5500 0.0818 # 2 2 NA 183 NA 188 0.64 0.33 1.22 NA NA # 3 3 4 46 7 44 NA NA NA -0.6864 0.4437} where variable \code{yi} contains the log odds ratios and \code{vi} the corresponding sampling variances as computed from the counts and group sizes by \code{escalc()}. Study 2 does not report the counts (or sufficient information to reconstruct them), but the odds ratio and a corresponding 95\% confidence interval (CI) directly, as given by variables \code{oddsratio}, \code{lower}, and \code{upper}. The CI is a standard Wald-type CI that was computed on the log scale (and whose bounds were then exponentiated). Then the present function can be used as follows: \preformatted{ dat2 <- conv.wald(out=oddsratio, ci.lb=lower, ci.ub=upper, data=dat, transf=log) dat2 # study cases.trt n.trt cases.plc n.plc oddsratio lower upper yi vi # 1 1 23 194 38 201 NA NA NA -0.5500 0.0818 # 2 2 NA 183 NA 188 0.64 0.33 1.22 -0.4463 0.1113 # 3 3 4 46 7 44 NA NA NA -0.6864 0.4437} Now variables \code{yi} and \code{vi} in the dataset are complete. If the CI was not a 95\% CI, then one can specify the appropriate level via the \code{level} argument. This can also be an entire vector in case different studies used different levels. By default (i.e., when \code{check=TRUE}), the function carries out a rough check to examine if the point estimate falls (approximately) halfway between the CI bounds (on the transformed scale) for each study for which the conversion was carried out. A warning is issued if there are studies where this is not the case. This may indicate that a particular CI was not a Wald-type CI or was computed on a different scale (in which case the back-calculation above would be inappropriate), but can also arise due to rounding of the reported values (in which case the back-calculation would still be appropriate, albeit possibly a bit inaccurate). Care should be taken when using such back-calculated values in a meta-analysis. When the CI bounds are log transformed (as in the example above) and rounded, then using the lower bound in the back-calculation can be more inaccurate than using the upper CI bound and the point estimate for the back-calculation. When the lower CI bounds are not specified or are missing for a study, then the function automatically uses the formula \mjdeqn{v_i = \left(\frac{\text{ci.ub} - \text{yi}}{z_{crit}}\right)^2}{v_i = ((ci.ub - yi) / z_crit)^2} for the back-calculation (after first applying the transformation specified via \code{transf}). In the example above, we could therefore do: \preformatted{ dat3 <- conv.wald(out=oddsratio, ci.ub=upper, data=dat, transf=log) dat3 # study cases.trt n.trt cases.plc n.plc oddsratio lower upper yi vi # 1 1 23 194 38 201 NA NA NA -0.5500 0.0818 # 2 2 NA 183 NA 188 0.64 0.33 1.22 -0.4463 0.1083 # 3 3 4 46 7 44 NA NA NA -0.6864 0.4437} In this case, the check that the point estimate falls halfway between the CI bounds is of course skipped. } \subsection{Converting Test Statistics and P-Values}{ Similarly, study authors may report the test statistic and/or p-value from a Wald-type test of the form \mjseqn{\text{zval} = y_i / \sqrt{v_i}} (on the transformed scale if \code{transf} is specified), with the corresponding two-sided p-value given by \mjseqn{\text{pval} = 2(1 - \Phi(\text{|zval|}))}, where \mjeqn{\Phi(\cdot)}{Phi(.)} denotes the cumulative distribution function of a standard normal distribution (i.e., \code{\link{pnorm}}). Test statistics and/or corresponding p-values of this form can be supplied via arguments \code{zval} and \code{pval}. A given p-value can be back-transformed into the corresponding test statistic (if it is not already available) with \mjseqn{\text{zval} = \Phi^{-1}(1 - \text{pval}/2)}, where \mjeqn{\Phi^{-1}(\cdot)}{Phi^{-1}(.)} denotes the quantile function (i.e., the inverse of the cumulative distribution function) of a standard normal distribution (i.e., \code{\link{qnorm}}). Then \mjdeqn{v_i = \left(\frac{y_i}{\text{zval}}\right)^2}{v_i = (yi / zval)^2} is used to back-calculate a missing \code{vi} value in the dataset. Note that the conversion of a p-value to the corresponding test statistic (which is then converted into sampling variance) as shown above assumes that the exact p-value is reported. If authors only report that the p-value fell below a certain threshold (e.g., \mjteqn{p < .01}{p \lt .01}{p < .01} or if authors only state that the test was significant -- which typically implies \mjteqn{p < .05}{p \lt .05}{p < .05}), then a common approach is to use the value of the cutoff reported (e.g., if \mjteqn{p < .01}{p \lt .01}{p < .01} is reported, then assume \mjseqn{p = .01}), which is conservative (since the actual p-value was below that assumed value by some unknown amount). The conversion will therefore tend to be much less accurate. Using the earlier example, suppose that only the odds ratio and the corresponding two-sided p-value from a Wald-type test (whether the log odds ratio differs significantly from zero) is reported for study 2. \preformatted{ dat <- data.frame(study = 1:3, cases.trt = c(23, NA, 4), n.trt = c(194, 183, 46), cases.plc = c(38, NA, 7), n.plc = c(201, 188, 44), oddsratio = c(NA, 0.64, NA), pval = c(NA, 0.17, NA)) dat <- escalc(measure="OR", ai=cases.trt, n1i=n.trt, ci=cases.plc, n2i=n.plc, data=dat) dat study cases.trt n.trt cases.plc n.plc oddsratio pval yi vi 1 1 23 194 38 201 NA NA -0.5500 0.0818 2 2 NA 183 NA 188 0.64 0.17 NA NA 3 3 4 46 7 44 NA NA -0.6864 0.4437} Then the function can be used as follows: \preformatted{ dat4 <- conv.wald(out=oddsratio, pval=pval, data=dat, transf=log) dat4 # study cases.trt n.trt cases.plc n.plc oddsratio pval yi vi # 1 1 23 194 38 201 NA NA -0.5500 0.0818 # 2 2 NA 183 NA 188 0.64 0.17 -0.4463 0.1058 # 3 3 4 46 7 44 NA NA -0.6864 0.4437} Note that the back-calculated sampling variance for study 2 is not identical in these two examples, because the CI bounds and p-value are rounded to two decimal places, which introduces some inaccuracies. Also, if both (\code{ci.lb}, \code{ci.ub}) and either \code{zval} or \code{pval} is available for a study, then the back-calculation of \mjseqn{v_i} via the confidence interval is preferred. } Optionally, one can use the \code{n} argument to supply the total sample sizes of the studies. This has no relevance for the calculations done by the present function, but some other functions may use this information (e.g., when drawing a funnel plot with the \code{\link{funnel}} function and one adjusts the \code{yaxis} argument to one of the options that puts the sample sizes or some transformation thereof on the y-axis). } \value{ If the \code{data} argument was not specified or \code{append=FALSE}, a data frame of class \code{c("escalc","data.frame")} with two variables called \code{var.names[1]} (by default \code{"yi"}) and \code{var.names[2]} (by default \code{"vi"}) with the (transformed) observed effect sizes or outcomes and the corresponding sampling variances (computed as described above). If \code{data} was specified and \code{append=TRUE}, then the original data frame is returned. If \code{var.names[1]} is a variable in \code{data} and \code{replace="ifna"} (or \code{replace=FALSE}), then only missing values in this variable are replaced with the (possibly transformed) observed effect sizes or outcomes from \code{out} (where possible) and otherwise a new variable called \code{var.names[1]} is added to the data frame. Similarly, if \code{var.names[2]} is a variable in \code{data} and \code{replace="ifna"} (or \code{replace=FALSE}), then only missing values in this variable are replaced with the sampling variances back-calculated as described above (where possible) and otherwise a new variable called \code{var.names[2]} is added to the data frame. If \code{replace="all"} (or \code{replace=TRUE}), then all values in \code{var.names[1]} and \code{var.names[2]} are replaced, even for cases where the value in \code{var.names[1]} and \code{var.names[2]} is not missing. } \note{ \bold{A word of caution}: Except for the check on the CI bounds, there is no possibility to determine if the back-calculations done by the function are appropriate in a given context. They are only appropriate when the CI bounds and tests statistics (or p-values) arose from Wald-type CIs / tests as described above. Using the same back-calculations for other purposes is likely to yield nonsensical values. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to compute various effect size measures. } \examples{ ### a very simple example dat <- data.frame(or=c(1.37,1.89), or.lb=c(1.03,1.60), or.ub=c(1.82,2.23)) dat ### convert the odds ratios and CIs into log odds ratios with corresponding sampling variances dat <- conv.wald(out=or, ci.lb=or.lb, ci.ub=or.ub, data=dat, transf=log) dat ############################################################################ ### a more elaborate example based on the BCG vaccine dataset dat <- dat.bcg[,c(2:7)] dat ### with complete data, we can use escalc() in the usual way dat1 <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) dat1 ### random-effects model fitted to these data res1 <- rma(yi, vi, data=dat1) res1 ### now suppose that the 2x2 table data are not reported in all studies, but that the ### following dataset could be assembled based on information reported in the studies dat2 <- data.frame(summary(dat1)) dat2[c("yi", "ci.lb", "ci.ub")] <- data.frame(summary(dat1, transf=exp))[c("yi", "ci.lb", "ci.ub")] names(dat2)[which(names(dat2) == "yi")] <- "or" dat2[,c("or","ci.lb","ci.ub","pval")] <- round(dat2[,c("or","ci.lb","ci.ub","pval")], digits=2) dat2$vi <- dat2$sei <- dat2$zi <- NULL dat2$ntot <- with(dat2, tpos + tneg + cpos + cneg) dat2[c(1,12),c(3:6,9:10)] <- NA dat2[c(4,9), c(3:6,8)] <- NA dat2[c(2:3,5:8,10:11,13),c(7:10)] <- NA dat2$ntot[!is.na(dat2$tpos)] <- NA dat2 ### in studies 1 and 12, authors reported only the odds ratio and the corresponding p-value ### in studies 4 and 9, authors reported only the odds ratio and the corresponding 95\% CI ### use the escalc() function first to compute log odds ratios and corresponding sampling ### variances for the studies for which we have 2x2 table data dat2 <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat2) dat2 ### fill in the missing log odds ratios and sampling variances using conv.wald() dat2 <- conv.wald(out=or, ci.lb=ci.lb, ci.ub=ci.ub, pval=pval, n=ntot, data=dat2, transf=log) dat2 ### random-effects model fitted to these data res2 <- rma(yi, vi, data=dat2) res2 ### any differences between res1 and res2 are a result of or, ci.lb, ci.ub, and pval being ### rounded in dat2 to two decimal places; without rounding, the results would be identical } \keyword{manip} metafor/man/mfopt.Rd0000644000176200001440000000750615173343621014113 0ustar liggesusers\name{mfopt} \alias{mfopt} \alias{getmfopt} \alias{setmfopt} \title{Getting and Setting Package Options} \description{ Functions for getting and setting \pkg{metafor} package options. \loadmathjax } \usage{ getmfopt(x, default=NULL) setmfopt(...) } \arguments{ \item{x}{The name of an option. If unspecified, all options are returned.} \item{default}{value to return if the option name does not exist.} \item{\dots}{one or more option names and the corresponding values to which they should be set.} } \details{ The \pkg{metafor} package stores some of its options as a list element called \code{"metafor"} in the system options (see \code{\link{options}}). Hence, \code{getmfopt()} is the same as \code{getOption("metafor")}. One can also set \code{x} to the name of an option to return. With \code{setmfopt()}, one can set one or more options to their desired values. Currently, the following options are supported: \describe{ \item{\code{check}}{logical to specify whether a version check should be carried out when loading the package (the default is \code{TRUE}). See \link[=misc-options]{here} for details. Obviously, this option must be set before loading the package (e.g., with \code{options(metafor=list(check=FALSE))}).} \item{\code{silent}}{logical to specify whether a startup message should be issued when loading the package (the default is \code{FALSE}). Obviously, this option must be set before loading the package (e.g., with \code{options(metafor=list(silent=TRUE))}). Note that messages about required packages that are automatically loaded are not suppressed by this. To fully suppress all startup messages, load the package with \code{\link{suppressPackageStartupMessages}}.} \item{\code{space}}{logical to specify whether an empty line should be added before and after the output (the default is \code{TRUE}). See \link[=misc-options]{here} for details.} \item{\code{digits}}{a named vector to specify how various aspects of the output should be rounded (unset by default). See \link[=misc-options]{here} for details.} \item{\code{style}}{a list whose elements specify the styles for various parts of the output when the \href{https://cran.r-project.org/package=crayon}{crayon} package is loaded and a terminal is used that supports \sQuote{ANSI} color/highlight codes (unset by default). See \link[=misc-options]{here} for details. Can also be a logical and set to \code{FALSE} to switch off output styling when the \code{crayon} package is loaded.} \item{\code{theme}}{character string to specify how plots created by the package should be themed. The default is \code{"default"}, which means that the default foreground and background colors of plotting devices are used. Alternative options are \code{"light"} and \code{"dark"}, which forces plots to be drawn with a light or dark background, respectively. See \link[=misc-options]{here} for further details. RStudio users can also set this to \code{"auto"}, in which case plotting colors are chosen depending on the RStudio theme used (for some themes, using \code{"auto2"} might be visually more appealing). One can also use \code{setmfopt(theme="custom", fg=, bg=)} to set the foreground and background colors to custom choices (depending on the colors chosen, using \code{"custom2"} might be visually more appealing).} } } \value{ Either a vector with the value for the chosen option or a list with all options. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ getmfopt() getmfopt(space) setmfopt(space=FALSE) getmfopt() setmfopt(space=TRUE) getmfopt() } \keyword{manip} metafor/man/permutest.Rd0000644000176200001440000003443015173343621015012 0ustar liggesusers\name{permutest} \alias{permutest} \alias{permutest.rma.uni} \alias{permutest.rma.ls} \title{Permutation Tests for 'rma.uni' Objects} \description{ Function to carry out permutation tests for objects of class \code{"rma.uni"} and \code{"rma.ls"}. \loadmathjax } \usage{ permutest(x, \dots) \method{permutest}{rma.uni}(x, exact=FALSE, iter=1000, btt=x$btt, permci=FALSE, progbar=TRUE, digits, control, \dots) \method{permutest}{rma.ls}(x, exact=FALSE, iter=1000, btt=x$btt, att=x$att, progbar=TRUE, digits, control, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"} or \code{"rma.ls"}.} \item{exact}{logical to specify whether an exact permutation test should be carried out (the default is \code{FALSE}). See \sQuote{Details}.} \item{iter}{integer to specify the number of iterations for the permutation test when not doing an exact test (the default is \code{1000}).} \item{btt}{optional vector of indices (or list thereof) to specify which coefficients should be included in the Wald-type test. Can also be a string to \code{\link{grep}} for.} \item{att}{optional vector of indices (or list thereof) to specify which scale coefficients should be included in the Wald-type test. Can also be a string to \code{\link{grep}} for.} \item{permci}{logical to specify whether permutation-based confidence intervals (CIs) should also be constructed (the default is \code{FALSE}). Can also be a vector of indices to specify for which coefficients a permutation-based CI should be obtained.} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{TRUE}).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{control}{list of control values for numerical comparisons (\code{comptol}) and for \code{\link{uniroot}} (i.e., \code{tol} and \code{maxiter}). The latter is only relevant when \code{permci=TRUE}. See \sQuote{Note}.} \item{\dots}{other arguments.} } \details{ For models without moderators, the permutation test is carried out by permuting the signs of the observed effect sizes or outcomes. The (two-sided) p-value of the permutation test is then equal to the proportion of times that the absolute value of the test statistic under the permuted data is as extreme or more extreme than under the actually observed data. See Follmann and Proschan (1999) for more details. For models with moderators, the permutation test is carried out by permuting the rows of the model matrix (i.e., \mjseqn{X}). The (two-sided) p-value for a particular model coefficient is then equal to the proportion of times that the absolute value of the test statistic for the coefficient under the permuted data is as extreme or more extreme than under the actually observed data. Similarly, for the omnibus test, the p-value is the proportion of times that the test statistic for the omnibus test is as extreme or more extreme than the actually observed one (argument \code{btt} can be used to specify which coefficients should be included in this test). See Higgins and Thompson (2004) and Viechtbauer et al. (2015) for more details. \subsection{Exact versus Approximate Permutation Tests}{ If \code{exact=TRUE}, the function will try to carry out an exact permutation test. An exact permutation test requires fitting the model to each possible permutation. However, the number of possible permutations increases rapidly with the number of outcomes/studies (i.e., \mjseqn{k}). For models without moderators, there are \mjseqn{2^k} possible permutations of the signs. Therefore, for \mjseqn{k=5}, there are 32 possible permutations, for \mjseqn{k=10}, there are already 1024, and for \mjseqn{k=20}, there are over one million such permutations. For models with moderators, the increase in the number of possible permutations is even more severe. The total number of possible permutations of the model matrix is \mjseqn{k!}. Therefore, for \mjseqn{k=5}, there are 120 possible permutations, for \mjseqn{k=10}, there are 3,628,800, and for \mjseqn{k=20}, there are over \mjeqn{10^{18}}{10^18} permutations of the model matrix. Therefore, going through all possible permutations may become infeasible. Instead of using an exact permutation test, one can set \code{exact=FALSE} (which is also the default). In that case, the function approximates the exact permutation-based p-value(s) by going through a smaller number (as specified by the \code{iter} argument) of \emph{random} permutations. Therefore, running the function twice on the same data can yield (slightly) different p-values. Setting \code{iter} sufficiently large ensures that the results become stable. For full reproducibility, one can also set the seed of the random number generator before running the function (see \sQuote{Examples}). Note that if \code{exact=FALSE} and \code{iter} is actually larger than the number of iterations required for an exact permutation test, then an exact test will automatically be carried out. For models with moderators, the exact permutation test actually only requires fitting the model to each \emph{unique} permutation of the model matrix. The number of unique permutations will be smaller than \mjseqn{k!} when the model matrix contains recurring rows. This may be the case when only including categorical moderators (i.e., factors) in the model or when any quantitative moderators included in the model can only take on a small number of unique values. When \code{exact=TRUE}, the function therefore uses an algorithm to restrict the test to only the unique permutations of the model matrix, which may make the use of the exact test feasible even when \mjseqn{k} is large. One can also set \code{exact="i"} in which case the function simply returns the number of iterations required for an exact permutation test. When using random permutations, the function ensures that the very first permutation will always correspond to the original data. This avoids p-values equal to 0. } \subsection{Permutation-Based Confidence Intervals}{ When \code{permci=TRUE}, the function also tries to obtain permutation-based confidence intervals (CIs) of the model coefficient(s). This is done by shifting the observed effect sizes or outcomes by some amount and finding the most extreme values for this amount for which the permutation-based test would just lead to non-rejection. The calculation of such CIs is computationally expensive and may take a long time to complete. For models with moderators, one can also set \code{permci} to a vector of indices to specify for which coefficient(s) a permutation-based CI should be obtained. When the algorithm fails to determine a particular CI bound, it will be shown as \code{NA} in the output. } \subsection{Permutation Tests for Location-Scale Models}{ The function also works with location-scale models (see \code{\link{rma.uni}} for details on such models). Permutation tests will then be carried out for both the location and scale parts of the model. However, note that permutation-based CIs are not available for location-scale models. } } \value{ An object of class \code{"permutest.rma.uni"}. The object is a list containing the following components: \item{pval}{p-value(s) based on the permutation test.} \item{QMp}{p-value for the omnibus test of moderators based on the permutation test.} \item{zval.perm}{values of the test statistics of the coefficients under the various permutations.} \item{b.perm}{the model coefficients under the various permutations.} \item{QM.perm}{the test statistic of the omnibus test of moderators under the various permutations.} \item{ci.lb}{lower bound of the confidence intervals for the coefficients (permutation-based when \code{permci=TRUE}).} \item{ci.ub}{upper bound of the confidence intervals for the coefficients (permutation-based when \code{permci=TRUE}).} \item{\dots}{some additional elements/values are passed on.} The results are formatted and printed with the \code{\link[=print.permutest.rma.uni]{print}} function. One can also use \code{\link[=coef.permutest.rma.uni]{coef}} to obtain the table with the model coefficients, corresponding standard errors, test statistics, p-values, and confidence interval bounds. The permutation distribution(s) can be plotted with the \code{\link[=plot.permutest.rma.uni]{plot}} function. } \note{ The p-values obtained with permutation tests cannot reach conventional levels of statistical significance (i.e., \mjseqn{p \le .05}) when \mjseqn{k} is very small. In particular, for models without moderators, the smallest possible (two-sided) p-value is .0625 when \mjseqn{k=5} and .03125 when \mjseqn{k=6}. Therefore, the permutation test is only able to reject the null hypothesis at \mjseqn{\alpha=.05} when \mjseqn{k} is at least equal to 6. For models with moderators, the smallest possible (two-sided) p-value for a particular model coefficient is .0833 when \mjseqn{k=4} and .0167 when \mjseqn{k=5} (assuming that each row in the model matrix is unique). Therefore, the permutation test is only able to reject the null hypothesis at \mjseqn{\alpha=.05} when \mjseqn{k} is at least equal to 5. Consequently, permutation-based CIs can also only be obtained when \mjseqn{k} is sufficiently large. When the number of permutations required for the exact test is so large as to be essentially indistinguishable from infinity (e.g., \code{factorial(200)}), the function will terminate with an error. Determining whether a test statistic under the permuted data is as extreme or more extreme than under the actually observed data requires making \code{>=} or \code{<=} comparisons. To avoid problems due to the finite precision with which computers generally represent numbers (see \href{https://cran.r-project.org/doc/FAQ/R-FAQ.html#Why-doesn_0027t-R-think-these-numbers-are-equal_003f}{this} FAQ for details), the function uses a numerical tolerance (\code{control} argument \code{comptol}, which is set equal to \code{.Machine$double.eps^0.5} by default) when making such comparisons (e.g., instead of \code{sqrt(3)^2 >= 3}, which may evaluate to \code{FALSE}, we use \code{sqrt(3)^2 >= 3 - .Machine$double.eps^0.5}, which should evaluate to \code{TRUE}). When obtaining permutation-based CIs, the function makes use of \code{\link{uniroot}}. By default, the desired accuracy is set equal to \code{.Machine$double.eps^0.25} and the maximum number of iterations to \code{100}. The desired accuracy and the maximum number of iterations can be adjusted with the \code{control} argument (i.e., \code{control=list(tol=value, maxiter=value)}). Also, the interval searched for the CI bounds may be too narrow, leading to \code{NA} for a bound. In this case, one can try setting \code{control=list(distfac=value)} with a value larger than 1 to extend the interval (the value indicating a multiplicative factor by which to extend the width of the interval searched) or \code{control=list(extendInt="yes")} to allow \code{\link{uniroot}} to extend the interval dynamically (in which case it can happen that a bound may try to drift to \mjeqn{\pm \infty}{± infinity}). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Follmann, D. A., & Proschan, M. A. (1999). Valid inference in random effects meta-analysis. \emph{Biometrics}, \bold{55}(3), 732--737. \verb{https://doi.org/10.1111/j.0006-341x.1999.00732.x} Good, P. I. (2009). \emph{Permutation, parametric, and bootstrap tests of hypotheses} (3rd ed.). New York: Springer. Higgins, J. P. T., & Thompson, S. G. (2004). Controlling the risk of spurious findings from meta-regression. \emph{Statistics in Medicine}, \bold{23}(11), 1663--1682. \verb{https://doi.org/10.1002/sim.1752} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., \enc{López-López}{Lopez-Lopez}, J. A., \enc{Sánchez-Meca}{Sanchez-Meca}, J., & \enc{Marín-Martínez}{Marin-Martinez}, F. (2015). A comparison of procedures to test for moderators in mixed-effects meta-regression models. \emph{Psychological Methods}, \bold{20}(3), 360--374. \verb{https://doi.org/10.1037/met0000023} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} } \seealso{ \code{\link{rma.uni}} for the function to fit models for which permutation tests can be conducted. \code{\link[=print.permutest.rma.uni]{print}} and \code{\link[=plot.permutest.rma.uni]{plot}} for the print and plot methods and \code{\link[=coef.permutest.rma.uni]{coef}} for a method to extract the model results table. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### random-effects model res <- rma(yi, vi, data=dat) res \dontrun{ ### permutation test (approximate and exact) set.seed(1234) # for reproducibility permutest(res) permutest(res, exact=TRUE) } ### mixed-effects model with two moderators (absolute latitude and publication year) res <- rma(yi, vi, mods = ~ ablat + year, data=dat) res ### number of iterations required for an exact permutation test permutest(res, exact="i") \dontrun{ ### permutation test (approximate only; exact not feasible) set.seed(1234) # for reproducibility permres <- permutest(res, iter=10000) permres ### plot of the permutation distribution for absolute latitude ### dashed horizontal line: the observed value of the test statistic (in both tails) ### black curve: standard normal density (theoretical reference/null distribution) ### blue curve: kernel density estimate of the permutation distribution ### note: the tail area under the permutation distribution is larger ### than under a standard normal density (hence, the larger p-value) plot(permres, beta=2, lwd=c(2,3,3,4), xlim=c(-5,5)) } ### mixed-effects model with a categorical and a quantitative moderator res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat) res \dontrun{ ### permutation test testing the allocation factor coefficients set.seed(1234) # for reproducibility permutest(res, btt="alloc") } } \keyword{models} metafor/man/metafor.news.Rd0000644000176200001440000000132515173343621015367 0ustar liggesusers\name{metafor.news} \alias{metafor.news} \title{Read News File of the Metafor Package} \description{ Function to read the \file{NEWS} file of the \pkg{\link{metafor-package}}. } \usage{ metafor.news() } \details{ The function is simply a wrapper for \code{news(package="metafor")} which parses and displays the \file{NEWS} file of the package. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ \dontrun{ metafor.news() } } \keyword{utilities} metafor/man/influence.rma.mv.Rd0000644000176200001440000001512315173343621016127 0ustar liggesusers\name{influence.rma.mv} \alias{influence.rma.mv} \alias{cooks.distance.rma.mv} \alias{dfbetas.rma.mv} \alias{hatvalues.rma.mv} \title{Model Diagnostics for 'rma.mv' Objects} \description{ Functions to compute various outlier and influential study diagnostics (some of which indicate the influence of deleting one study at a time on the model fit or the fitted/residual values) for objects of class \code{"rma.mv"}. \loadmathjax } \usage{ \method{cooks.distance}{rma.mv}(model, progbar=FALSE, cluster, reestimate=TRUE, parallel="no", ncpus=1, cl, \dots) \method{dfbetas}{rma.mv}(model, progbar=FALSE, cluster, reestimate=TRUE, parallel="no", ncpus=1, cl, \dots) \method{hatvalues}{rma.mv}(model, type="diagonal", \dots) } \arguments{ \item{model}{an object of class \code{"rma.mv"}.} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{FALSE}).} \item{cluster}{optional vector to specify a clustering variable to use for computing the Cook's distances or DFBETAS values. If unspecified, these measures are computed for the individual observed effect sizes or outcomes.} \item{reestimate}{logical to specify whether variance/correlation components should be re-estimated after deletion of the \mjeqn{i\text{th}}{ith} case (the default is \code{TRUE}).} \item{parallel}{character string to specify whether parallel processing should be used (the default is \code{"no"}). For parallel processing, set to either \code{"snow"} or \code{"multicore"}. See \sQuote{Note}.} \item{ncpus}{integer to specify the number of processes to use in the parallel processing.} \item{cl}{optional cluster to use if \code{parallel="snow"}. If unspecified, a cluster on the local machine is created for the duration of the call.} \item{type}{character string to specify whether only the diagonal of the hat matrix (\code{"diagonal"}) or the entire hat matrix (\code{"matrix"}) should be returned.} \item{\dots}{other arguments.} } \details{ The term \sQuote{case} below refers to a particular row from the dataset used in the model fitting (when argument \code{cluster} is not specified) or each level of the variable specified via \code{cluster}. Cook's distance for the \mjeqn{i\text{th}}{ith} case can be interpreted as the Mahalanobis distance between the entire set of predicted values once with the \mjeqn{i\text{th}}{ith} case included and once with the \mjeqn{i\text{th}}{ith} case excluded from the model fitting. The DFBETAS value(s) essentially indicate(s) how many standard deviations the estimated coefficient(s) change(s) after excluding the \mjeqn{i\text{th}}{ith} case from the model fitting. } \value{ The \code{cooks.distance} function returns a vector. The \code{dfbetas} function returns a data frame. The \code{hatvalues} function returns either a vector with the diagonal elements of the hat matrix or the entire hat matrix. } \note{ The variable specified via \code{cluster} is assumed to be of the same length as the data originally passed to the \code{rma.mv} function (and if the \code{data} argument was used in the original model fit, then the variable will be searched for within this data frame first). Any subsetting and removal of studies with missing values that was applied during the model fitting is also automatically applied to the variable specified via the \code{cluster} argument. Leave-one-out diagnostics are calculated by refitting the model \mjseqn{k} times (where \mjseqn{k} denotes the number of cases). Depending on how large \mjseqn{k} is, it may take a few moments to finish the calculations. For complex models fitted with \code{\link{rma.mv}}, this can become computationally expensive. On machines with multiple cores, one can try to speed things up by delegating the model fitting to separate worker processes, that is, by setting \code{parallel="snow"} or \code{parallel="multicore"} and \code{ncpus} to some value larger than 1. Parallel processing makes use of the \code{\link[parallel]{parallel}} package, using the \code{\link[parallel]{makePSOCKcluster}} and \code{\link[parallel]{parLapply}} functions when \code{parallel="snow"} or using \code{\link[parallel]{mclapply}} when \code{parallel="multicore"} (the latter only works on Unix/Linux-alikes). Alternatively (or in addition to using parallel processing), one can also set \code{reestimate=FALSE}, in which case any variance/correlation components in the model are not re-estimated after deleting the \mjeqn{i\text{th}}{ith} case from the dataset. Doing so only yields an approximation to the Cook's distances and DFBETAS values that ignores the influence of the \mjeqn{i\text{th}}{ith} case on the variance/correlation components, but is considerably faster (and often yields similar results). It may not be possible to fit the model after deletion of the \mjeqn{i\text{th}}{ith} case from the dataset. This will result in \code{NA} values for that case. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Belsley, D. A., Kuh, E., & Welsch, R. E. (1980). \emph{Regression diagnostics}. New York: Wiley. Cook, R. D., & Weisberg, S. (1982). \emph{Residuals and influence in regression}. London: Chapman and Hall. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} Viechtbauer, W., & Cheung, M. W.-L. (2010). Outlier and influence diagnostics for meta-analysis. \emph{Research Synthesis Methods}, \bold{1}(2), 112--125. \verb{https://doi.org/10.1002/jrsm.11} } \seealso{ \code{\link[=rstudent.rma.mv]{rstudent}} for externally standardized residuals and \code{\link[=weights.rma.mv]{weights}} for model fitting weights. } \examples{ ### copy data from Konstantopoulos (2011) into 'dat' dat <- dat.konstantopoulos2011 ### multilevel random-effects model res <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat) print(res, digits=3) ### Cook's distance for each observed outcome x <- cooks.distance(res) x plot(x, type="o", pch=19, xlab="Observed Outcome", ylab="Cook's Distance") ### Cook's distance for each district x <- cooks.distance(res, cluster=district) x plot(x, type="o", pch=19, xlab="District", ylab="Cook's Distance", xaxt="n") axis(side=1, at=seq_along(x), labels=as.numeric(names(x))) ### hat values hatvalues(res) } \keyword{models} metafor/man/print.ranktest.rma.Rd0000644000176200001440000000227215173343621016525 0ustar liggesusers\name{print.ranktest} \alias{print.ranktest} \title{Print Method for 'ranktest' Objects} \description{ Function to print objects of class \code{"ranktest"}. } \usage{ \method{print}{ranktest}(x, digits=x$digits, \dots) } \arguments{ \item{x}{an object of class \code{"ranktest"} obtained with \code{\link{ranktest}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{\dots}{other arguments.} } \details{ The output includes: \itemize{ \item the estimated value of Kendall's tau rank correlation coefficient \item the corresponding p-value for the test that the true tau is equal to zero } } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{ranktest}} for the function to create \code{ranktest} objects. } \keyword{print} metafor/man/aggregate.escalc.Rd0000644000176200001440000003214415173343621016141 0ustar liggesusers\name{aggregate.escalc} \alias{aggregate} \alias{aggregate.escalc} \title{Aggregate Multiple Effect Sizes or Outcomes Within Studies} \description{ Function to aggregate multiple effect sizes or outcomes belonging to the same study (or to the same level of some other clustering variable) into a single combined effect size or outcome. \loadmathjax } \usage{ \method{aggregate}{escalc}(x, cluster, time, obs, V, struct="CS", rho, phi, weighted=TRUE, checkpd=TRUE, fun, na.rm=TRUE, addk=FALSE, subset, select, digits, var.names, \dots) } \arguments{ \item{x}{an object of class \code{"escalc"}.} \item{cluster}{vector to specify the clustering variable (e.g., study).} \item{time}{optional vector to specify the time points (only relevant when \code{struct="CAR"}, \code{"CS+CAR"}, or \code{"CS*CAR"}).} \item{obs}{optional vector to distinguish different observed effect sizes or outcomes measured at the same time point (only relevant when \code{struct="CS*CAR"}).} \item{V}{optional argument to specify the variance-covariance matrix of the sampling errors. If unspecified, argument \code{struct} is used to specify the variance-covariance structure.} \item{struct}{character string to specify the variance-covariance structure of the sampling errors within the same cluster (either \code{"ID"}, \code{"CS"}, \code{"CAR"}, \code{"CS+CAR"}, or \code{"CS*CAR"}). See \sQuote{Details}.} \item{rho}{value of the correlation of the sampling errors within clusters (when \code{struct="CS"}, \code{"CS+CAR"}, or \code{"CS*CAR"}). Can also be a vector with the value of the correlation for each cluster.} \item{phi}{value of the autocorrelation of the sampling errors within clusters (when \code{struct="CAR"}, \code{"CS+CAR"}, or \code{"CS*CAR"}). Can also be a vector with the value of the autocorrelation for each cluster.} \item{weighted}{logical to specify whether estimates within clusters should be aggregated using inverse-variance weighting (the default is \code{TRUE}). If set to \code{FALSE}, unweighted averages are computed.} \item{checkpd}{logical to specify whether to check that the variance-covariance matrices of the sampling errors within clusters are positive definite (the default is \code{TRUE}).} \item{fun}{optional list with three functions for aggregating other variables besides the effect sizes or outcomes within clusters (for numeric/integer variables, for logicals, and for all other types, respectively).} \item{na.rm}{logical to specify whether \code{NA} values should be removed before aggregating values within clusters (the default is \code{TRUE}). Can also be a vector with two logicals (the first pertaining to the effect sizes or outcomes, the second to all other variables).} \item{addk}{logical to specify whether to add the cluster size as a new variable (called \code{ki}) to the dataset (the default is \code{FALSE}).} \item{subset}{optional (logical or numeric) vector to specify the subset of rows to include when aggregating the effect sizes or outcomes.} \item{select}{optional vector to specify the names of the variables to include in the aggregated dataset.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{var.names}{optional character vector with two elements to specify the name of the variable that contains the observed effect sizes or outcomes and the name of the variable with the corresponding sampling variances (when unspecified, the function attempts to set these automatically based on the object).} \item{\dots}{other arguments.} } \details{ In many meta-analyses, multiple effect sizes or outcomes can be extracted from the same study. Ideally, such structures should be analyzed using an appropriate multilevel/multivariate model as can be fitted with the \code{\link{rma.mv}} function. However, there may occasionally be reasons for aggregating multiple effect sizes or outcomes belonging to the same study (or to the same level of some other clustering variable) into a single combined effect size or outcome. The present function can be used for this purpose. The input must be an object of class \code{"escalc"}. The error \sQuote{\code{Error in match.fun(FUN): argument "FUN" is missing, with no default}} indicates that a regular data frame was passed to the function, but this does not work. One can turn a regular data frame (containing the effect sizes or outcomes and the corresponding sampling variances) into an \code{"escalc"} object with the \code{\link{escalc}} function. See the \sQuote{Examples} below for an illustration of this. The \code{cluster} variable is used to specify which estimates/outcomes belong to the same study/cluster. In the simplest case, the estimates/outcomes within clusters (or, to be precise, their sampling errors) are assumed to be independent. This is usually a safe assumption as long as each study participant (or whatever the study units are) only contributes data to a single estimate/outcome. For example, if a study provides effect size estimates for male and female subjects separately, then the sampling errors can usually be assumed to be independent. In this case, one can set \code{struct="ID"} and multiple estimates/outcomes within the same cluster are combined using standard inverse-variance weighting (i.e., using weighted least squares) under the assumption of independence. In other cases, the estimates/outcomes within clusters cannot be assumed to be independent. For example, if multiple effect size estimates are computed for the same group of subjects (e.g., based on different scales to measure some construct of interest), then the estimates are likely to be correlated. If the actual correlation between the estimates is unknown, one can often still make an educated guess and set argument \code{rho} to this value, which is then assumed to be the same for all pairs of estimates within clusters when \code{struct="CS"} (for a compound symmetric structure). Multiple estimates/outcomes within the same cluster are then combined using inverse-variance weighting taking their correlation into consideration (i.e., using generalized least squares). One can also specify a different value of \code{rho} for each cluster by passing a vector (of the same length as the number of clusters) to this argument. If multiple effect size estimates are computed for the same group of subjects at different time points, then it may be more sensible to assume that the correlation between estimates decreases as a function of the distance between the time points. If so, one can specify \code{struct="CAR"} (for a continuous-time autoregressive structure), set \code{phi} to the autocorrelation (for two estimates one time-unit apart), and use argument \code{time} to specify the actual time points corresponding to the estimates. The correlation between two estimates, \mjeqn{y_{it}}{y_it} and \mjeqn{y_{it'}}{y_it'}, in the \mjeqn{i\text{th}}{ith} cluster, with time points \mjeqn{\text{time}_{it}}{time_it} and \mjeqn{\text{time}_{it'}}{time_it'}, is then given by \mjeqn{\phi^{|\text{time}_{it} - \text{time}_{it'}|}}{\phi^|time_it - time_it'|}. One can also specify a different value of \code{phi} for each cluster by passing a vector (of the same length as the number of clusters) to this argument. One can also combine the compound symmetric and autoregressive structures if there are multiple time points and multiple observed effect sizes or outcomes at these time points. One option is \code{struct="CS+CAR"}. In this case, one must specify the \code{time} argument and both \code{rho} and \code{phi}. The correlation between two estimates, \mjeqn{y_{it}}{y_it} and \mjeqn{y_{it'}}{y_it'}, in the \mjeqn{i\text{th}}{ith} cluster, with time points \mjeqn{\text{time}_{it}}{time_it} and \mjeqn{\text{time}_{it'}}{time_it'}, is then given by \mjeqn{\rho + (1 - \rho) \phi^{|\text{time}_{it} - \text{time}_{it'}|}}{\rho + (1 - \rho) * \phi^|time_it - time_it'|}. Alternatively, one can specify \code{struct="CS*CAR"}. In this case, one must specify both the \code{time} and \code{obs} arguments and both \code{rho} and \code{phi}. The correlation between two estimates, \mjeqn{y_{ijt}}{y_ijt} and \mjeqn{y_{ijt'}}{y_ijt'}, with the same value for \code{obs} but different values for \code{time}, is then given by \mjeqn{\phi^{|\text{time}_{ijt} - \text{time}_{ijt'}|}}{\phi^|time_ijt - time_ijt'|}, the correlation between two estimates, \mjeqn{y_{ijt}}{y_ijt} and \mjeqn{y_{ij't}}{y_ij't}, with different values for \code{obs} but the same value for \code{time}, is then given by \mjseqn{\rho}, and the correlation between two estimates, \mjeqn{y_{ijt}}{y_ijt} and \mjeqn{y_{ij't'}}{y_ij't}, with different values for \code{obs} and different values for \code{time}, is then given by \mjeqn{\rho \times \phi^{|\text{time}_{ijt} - \text{time}_{ijt'}|}}{\rho * \phi^|time_ijt - time_ijt'|}. Finally, if one actually knows the correlation (and hence the covariance) between each pair of estimates (or has an approximation thereof), one can also specify the entire variance-covariance matrix of the estimates (or more precisely, their sampling errors) via the \code{V} argument (in this case, arguments \code{struct}, \code{time}, \code{obs}, \code{rho}, and \code{phi} are ignored). Note that the \code{\link{vcalc}} function can be used to construct such a \code{V} matrix and provides even more flexibility for specifying various types of dependencies. See the \sQuote{Examples} below for an illustration of this. Instead of using inverse-variance weighting (i.e., weighted/generalized least squares) to combine the estimates within clusters, one can set \code{weighted=FALSE} in which case the estimates are averaged within clusters without any weighting (although the correlations between estimates as specified are still taken into consideration). Other variables (besides the estimates) will also be aggregated to the cluster level. By default, numeric/integer type variables are averaged, logicals are also averaged (yielding the proportion of \code{TRUE} values), and for all other types of variables (e.g., character variables or factors) the most frequent category/level is returned. One can also specify a list of three functions via the \code{fun} argument for aggregating variables belonging to these three types. Argument \code{na.rm} controls how missing values should be handled. By default, any missing estimates are first removed before aggregating the non-missing values within each cluster. The same applies when aggregating the other variables. One can also specify a vector with two logicals for the \code{na.rm} argument to control how missing values should be handled when aggregating the estimates and when aggregating all other variables. } \value{ An object of class \code{c("escalc","data.frame")} that contains the (selected) variables aggregated to the cluster level. The object is formatted and printed with the \code{\link[=print.escalc]{print}} function. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to create \code{escalc} objects. } \examples{ ### copy data into 'dat' and examine data dat <- dat.konstantopoulos2011 head(dat, 11) ### aggregate estimates to the district level, assuming independent sampling ### errors for multiples studies/schools within the same district agg <- aggregate(dat, cluster=district, struct="ID", addk=TRUE) agg ### copy data into 'dat' and examine data dat <- dat.assink2016 head(dat, 19) ### note: 'dat' is an 'escalc' object class(dat) ### turn 'dat' into a regular data frame dat <- as.data.frame(dat) class(dat) ### turn data frame into an 'escalc' object dat <- escalc(measure="SMD", yi=yi, vi=vi, data=dat) class(dat) ### aggregate the estimates to the study level, assuming a CS structure for ### the sampling errors within studies with a correlation of 0.6 agg <- aggregate(dat, cluster=study, rho=0.6) agg ### use vcalc() and then the V argument V <- vcalc(vi, cluster=study, obs=esid, data=dat, rho=0.6) agg <- aggregate(dat, cluster=study, V=V) agg ### use a correlation of 0.7 for effect sizes corresponding to the same type of ### delinquent behavior and a correlation of 0.5 for effect sizes corresponding ### to different types of delinquent behavior V <- vcalc(vi, cluster=study, type=deltype, obs=esid, data=dat, rho=c(0.7, 0.5)) agg <- aggregate(dat, cluster=study, V=V) agg ### reshape 'dat.ishak2007' into long format dat <- dat.ishak2007 dat <- reshape(dat.ishak2007, direction="long", idvar="study", v.names=c("yi","vi"), varying=list(c(2,4,6,8), c(3,5,7,9))) dat <- dat[order(study, time),] dat <- dat[!is.na(yi),] rownames(dat) <- NULL head(dat, 8) ### aggregate the estimates to the study level, assuming a CAR structure for ### the sampling errors within studies with an autocorrelation of 0.9 agg <- aggregate(dat, cluster=study, struct="CAR", time=time, phi=0.9) head(agg, 5) } \keyword{models} metafor/man/addpoly.default.Rd0000644000176200001440000001461315173343621016042 0ustar liggesusers\name{addpoly.default} \alias{addpoly.default} \title{Add Polygons to Forest Plots (Default Method)} \description{ Function to add one or more polygons to a forest plot. } \usage{ \method{addpoly}{default}(x, vi, sei, ci.lb, ci.ub, pi.lb, pi.ub, rows=-1, level, annotate, predstyle, predlim, digits, width, mlab, transf, atransf, targs, efac, col, border, lty, fonts, cex, constarea=FALSE, \dots) } \arguments{ \item{x}{vector with the values at which the polygons should be drawn.} \item{vi}{vector with the corresponding variances.} \item{sei}{vector with the corresponding standard errors (note: only one of the two, \code{vi} or \code{sei}, needs to be specified).} \item{ci.lb}{vector with the corresponding lower confidence interval bounds. Not needed if \code{vi} or \code{sei} is specified. See \sQuote{Details}.} \item{ci.ub}{vector with the corresponding upper confidence interval bounds. Not needed if \code{vi} or \code{sei} is specified. See \sQuote{Details}.} \item{pi.lb}{optional vector with the corresponding lower prediction interval bounds.} \item{pi.ub}{optional vector with the corresponding upper prediction interval bounds.} \item{rows}{vector to specify the rows (or more generally, the positions) for plotting the polygons (defaults is \code{-1}). Can also be a single value to specify the row of the first polygon (the remaining polygons are then plotted below this starting row). When \code{predstyle} is not \code{"line"}, can also be a vector of two numbers, the first for the position of the polygon, the second for the position of the prediction interval/distribution.} \item{level}{optional numeric value between 0 and 100 to specify the confidence interval level (see \link[=misc-options]{here} for details).} \item{annotate}{optional logical to specify whether annotations should be added to the plot for the polygons that are drawn.} \item{predstyle}{character string to specify the style of the prediction interval (either \code{"line"} (the default), \code{"polygon"}, \code{"bar"}, \code{"shade"}, or \code{"dist"}; the last three only when adding a single polygon). Can be abbreviated.} \item{predlim}{optional argument to specify the limits of the predictive distribution when \code{predstyle="dist"}.} \item{digits}{optional integer to specify the number of decimal places to which the annotations should be rounded.} \item{width}{optional integer to manually adjust the width of the columns for the annotations.} \item{mlab}{optional character vector of the same length as \code{x} giving labels for the polygons that are drawn.} \item{transf}{optional argument to specify a function to transform the \code{x} values and confidence interval bounds (e.g., \code{transf=exp}; see also \link{transf}).} \item{atransf}{optional argument to specify a function to transform the annotations (e.g., \code{atransf=exp}; see also \link{transf}).} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{efac}{optional vertical expansion factor for the polygons.} \item{col}{optional character string to specify the color of the polygons.} \item{border}{optional character string to specify the border color of the polygons.} \item{lty}{optional argument to specify the line type for the prediction interval.} \item{fonts}{optional character string to specify the font for the labels and annotations.} \item{cex}{optional symbol expansion factor.} \item{constarea}{logical to specify whether the height of the polygons (when adding multiple) should be adjusted so that the area of the polygons is constant (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ The function can be used to add one or more polygons to an existing forest plot created with the \code{\link{forest}} function. For example, pooled estimates based on a model involving moderators can be added to the plot this way (see \sQuote{Examples}). To use the function, one should specify the values at which the polygons should be drawn (via the \code{x} argument) together with the corresponding variances (via the \code{vi} argument) or with the corresponding standard errors (via the \code{sei} argument). Alternatively, one can specify the values at which the polygons should be drawn together with the corresponding confidence interval bounds (via the \code{ci.lb} and \code{ci.ub} arguments). Optionally, one can also specify the bounds of the corresponding prediction interval bounds via the \code{pi.lb} and \code{pi.ub} arguments. If the latter are specified, then they are added by default as lines around the summary polygons. When adding a single polygon to the plot, one can also use the \code{predstyle} argument to change the way the prediction interval is visualized (see \code{\link{forest.rma}} for details). If unspecified, arguments \code{level}, \code{annotate}, \code{digits}, \code{width}, \code{transf}, \code{atransf}, \code{targs}, \code{efac}, \code{fonts}, \code{cex}, \code{annosym}, and \code{textpos} are automatically set equal to the same values that were used when creating the forest plot. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest}} for functions to draw forest plots to which polygons can be added. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude as a moderator res <- rma(yi, vi, mods = ~ ablat, slab=paste(author, year, sep=", "), data=dat) ### forest plot of the observed risk ratios forest(res, addfit=FALSE, atransf=exp, xlim=c(-9,5), ylim=c(-5,16), cex=0.9, order=ablat, ilab=ablat, ilab.lab="Lattitude", ilab.xpos=-4.5, header="Author(s) and Year") ### predicted average log risk ratios for 10, 30, and 50 degrees absolute latitude x <- predict(res, newmods=c(10, 30, 50)) ### add predicted average risk ratios to the forest plot addpoly(x$pred, sei=x$se, rows=-2, mlab=c("- at 10 Degrees", "- at 30 Degrees", "- at 50 Degrees")) abline(h=0) text(-9, -1, "Model-Based Estimates:", pos=4, cex=0.9, font=2) } \keyword{aplot} metafor/man/conv.2x2.Rd0000644000176200001440000004035615173343621014345 0ustar liggesusers\name{conv.2x2} \alias{conv.2x2} \title{Reconstruct Cell Frequencies of \mjeqn{2 \times 2}{2x2} Tables} \description{ Function to reconstruct the cell frequencies of \mjeqn{2 \times 2}{2x2} tables based on other summary statistics. \loadmathjax } \usage{ conv.2x2(ori, ri, x2i, ni, n1i, n2i, sens, spec, ppv, npv, correct=TRUE, drop01=TRUE, data, include, var.names=c("ai","bi","ci","di"), append=TRUE, replace="ifna", \dots) } \arguments{ \item{ori}{optional vector with the odds ratios corresponding to the tables.} \item{ri}{optional vector with the phi coefficients corresponding to the tables.} \item{x2i}{optional vector with the (signed) chi-square statistics corresponding to the tables.} \item{ni}{vector with the total sample sizes.} \item{n1i}{vector with the marginal counts for the outcome of interest on the first variable.} \item{n2i}{vector with the marginal counts for the outcome of interest on the second variable.} \item{sens}{optional vector with the sensitivities corresponding to the tables.} \item{spec}{optional vector with the specificities corresponding to the tables.} \item{ppv}{optional vector with the positive predictive values corresponding to the tables.} \item{npv}{optional vector with the negative predictive values corresponding to the tables.} \item{correct}{optional logical (or vector thereof) to specify whether chi-square statistics were computed using Yates's correction for continuity (the default is \code{TRUE}).} \item{drop01}{logical to specify whether studies where \code{sens}, \code{spec}, \code{ppv}, and/or \code{npv} is equal to 0 or 1 should be dropped (the default is \code{TRUE}).} \item{data}{optional data frame containing the variables given to the arguments above.} \item{include}{optional (logical or numeric) vector to specify the subset of studies for which the cell frequencies should be reconstructed.} \item{var.names}{character vector with four elements to specify the names of the variables for the reconstructed cell frequencies (the default is \code{c("ai","bi","ci","di")}).} \item{append}{logical to specify whether the data frame provided via the \code{data} argument should be returned together with the reconstructed values (the default is \code{TRUE}).} \item{replace}{character string or logical to specify how values in \code{var.names} should be replaced (only relevant when using the \code{data} argument and if variables in \code{var.names} already exist in the data frame). See the \sQuote{Value} section for more details.} \item{\dots}{other arguments.} } \details{ For meta-analyses based on \mjeqn{2 \times 2}{2x2} table data, the problem often arises that some studies do not directly report the cell frequencies. The present function allows the reconstruction of such tables based on other summary statistics. In particular, assume that the data of interest for a particular study are of the form: \tabular{lcccccc}{ \tab \ics \tab variable 2, outcome + \tab \ics \tab variable 2, outcome - \tab \ics \tab total \cr variable 1, outcome + \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \tab \ics \tab \code{n1i} \cr variable 1, outcome - \tab \ics \tab \code{ci} \tab \ics \tab \code{di} \tab \ics \tab \cr total \tab \ics \tab \code{n2i} \tab \ics \tab \tab \ics \tab \code{ni}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies (i.e., the number of individuals falling into a particular category), \code{n1i} (i.e., \code{ai+bi}) and \code{n2i} (i.e., \code{ai+ci}) are the marginal totals for the outcome of interest on the first and second variable, respectively, and \code{ni} is the total sample size (i.e., \code{ai+bi+ci+di}) of the study. For example, if variable 1 denotes two different groups (e.g., treated versus control) and variable 2 indicates whether a particular outcome of interest has occurred or not (e.g., death, complications, failure to improve under the treatment), then \code{n1i} denotes the number of individuals in the treatment group, but \code{n2i} is \emph{not} the number of individuals in the control group, but the total number of individuals who experienced the outcome of interest on variable 2. \bold{Note that the meaning of \code{n2i} is therefore different here compared to the \code{\link{escalc}} function (where \code{n2i} denotes \code{ci+di})}. If a study does not report the cell frequencies, but it reports the total sample size (which can be specified via the \code{ni} argument), the two marginal counts (which can be specified via the \code{n1i} and \code{n2i} arguments), and some other statistic corresponding to the table, then it may be possible to reconstruct the cell frequencies. The present function currently allows this for three different cases: \enumerate{ \item If the odds ratio \mjdeqn{OR = \frac{a_i d_i}{b_i c_i}}{ai*di/(bi*ci)} is known, then the cell frequencies can be reconstructed (Bonett, 2007). Odds ratios can be specified via the \code{ori} argument. \item If the phi coefficient \mjdeqn{\phi = \frac{a_i d_i - b_i c_i}{\sqrt{n_{1i}(n_i-n_{1i})n_{2i}(n_i-n_{2i})}}}{\phi = (ai*di-bi*ci) / \sqrt{n1i*(ni-n1i)*n2i*(ni-n2i)}} is known, then the cell frequencies can again be reconstructed (own derivation). Phi coefficients can be specified via the \code{ri} argument. \item If the chi-square statistic from Pearson's chi-square test of independence is known (which can be specified via the \code{x2i} argument), then it can be used to recalculate the phi coefficient and hence again the cell frequencies can be reconstructed. However, the chi-square statistic does not carry information about the sign of the phi coefficient. Therefore, values specified via the \code{x2i} argument can be positive or negative, which allows the specification of the correct sign. Also, when using a chi-square statistic as input, it is assumed that it was computed using Yates's correction for continuity (unless \code{correct=FALSE}). If the chi-square statistic is not known, but its p-value, one can first back-calculate the chi-square statistic using \code{qchisq(, df=1, lower.tail=FALSE)}. } Typically, the odds ratio, phi coefficient, or chi-square statistic (or its p-value) that can be extracted from a study will be rounded to a certain degree. The calculations underlying the function are exact only for unrounded values. Rounding can therefore introduce some discrepancies between the actual cell frequencies and the reconstructed ones. If a marginal total is unknown, then external information needs to be used to \sQuote{guestimate} the number of individuals that experienced the outcome of interest on this variable. Depending on the accuracy of such an estimate, the reconstructed cell frequencies will be more or less accurate and need to be treated with due caution. The true marginal counts also put constraints on the possible values for the odds ratio, phi coefficient, and chi-square statistic. If a marginal count is replaced by a guestimate which is not compatible with the given statistic, one or more reconstructed cell frequencies may be negative. The function issues a warning if this happens and sets the cell frequencies to \code{NA} for such a study. If only one of the two marginal counts is unknown but a 95\% CI for the odds ratio is also available, then the \href{https://cran.r-project.org/package=estimraw}{estimraw} package can also be used to reconstruct the corresponding cell frequencies (Di Pietrantonj, 2006; but see Veroniki et al., 2013, for some cautions). \subsection{Diagnostic Studies}{ The present function can also be used to reconstruct \mjeqn{2 \times 2}{2x2} table data for diagnostic studies. Here, the table is assumed to be of the form: \tabular{lcccc}{ \tab \ics \tab case \tab \ics \tab control \cr test+ \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \cr test- \tab \ics \tab \code{ci} \tab \ics \tab \code{di}} where \code{ai} denotes the number of true positives, \code{bi} the number of false positives, \code{ci} the number of false negatives, and \code{di} the number of true negatives. If the total sample size (\code{ni = ai + bi + ci + di}) and the marginal totals are known (i.e, the number of positive tests, \code{n1i}, and the number of cases, \code{n2i}), then the diagnostic odds ratio (i.e., \code{ori = ai * di / (bi * ci)}) would be sufficient to reconstruct the table and the present function can be used as described above. On the other hand, if the total sample size of the study (i.e., \code{ni = ai + bi + ci + di}), the sensitivity (i.e., \code{sens = ai / (ai + ci)}), specificity (i.e., \code{spec = di / (bi + di)}), positive predictive value (i.e., \code{ppv = ai / (ai + bi)}), and negative predictive value (i.e., \code{npv = di / (ci + di)}) are known, then this is also sufficient information to recreate the table. Actually, only three of the four diagnostic accuracy measures are needed to reconstruct the table. In practice, when such accuracy measures are reported, the values are typically rounded to some extent. This introduces inaccuracies into the reconstruction. The present function uses optimization methods to reconstruct the table counts so that the discrepancy between the reported measures and the reconstructed ones are minimized. This is not guaranteed to reconstruct the actual table exactly, but should usually yield a close match, especially if all four measures are available. In some rare cases, the reconstruction may also fail even if all four measures are reported. This often happens if at least one of the reported accuracy measures is equal to 0 or 1. By default (i.e., when \code{drop01=TRUE}), such studies are automatically dropped (i.e., the reconstructed cell frequencies are set to \code{NA}). } } \value{ If the \code{data} argument was not specified or \code{append=FALSE}, a data frame with four variables called \code{var.names} with the reconstructed cell frequencies. If \code{data} was specified and \code{append=TRUE}, then the original data frame is returned. If \code{var.names[j]} (for \mjeqn{\text{j} \in \\\\{1, \ldots, 4\\\\}}{for j in \{1, ..., 4\}}) is a variable in \code{data} and \code{replace="ifna"} (or \code{replace=FALSE}), then only missing values in this variable are replaced with the estimated frequencies (where possible) and otherwise a new variable called \code{var.names[j]} is added to the data frame. If \code{replace="all"} (or \code{replace=TRUE}), then all values in \code{var.names[j]} where a reconstructed cell frequency can be computed are replaced, even for cases where the value in \code{var.names[j]} is not missing. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Bonett, D. G. (2007). Transforming odds ratios into correlations for meta-analytic research. \emph{American Psychologist}, \bold{62}(3), 254--255. \verb{https://doi.org/10.1037/0003-066x.62.3.254} Di Pietrantonj, C. (2006). Four-fold table cell frequencies imputation in meta analysis. \emph{Statistics in Medicine}, \bold{25}(13), 2299--2322. \verb{https://doi.org/10.1002/sim.2287} Veroniki, A. A., Pavlides, M., Patsopoulos, N. A., & Salanti, G. (2013). Reconstructing 2 x 2 contingency tables from odds ratios using the Di Pietrantonj method: Difficulties, constraints and impact in meta-analysis results. \emph{Research Synthesis Methods}, \bold{4}(1), 78--94. \verb{https://doi.org/10.1002/jrsm.1061} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to compute various effect size measures based on \mjeqn{2 \times 2}{2x2} table data. } \examples{ ############################################################################ ### demonstration that the reconstruction of the 2x2 table works ### (note: the values in rows 2, 3, and 4 correspond to those in row 1) dat <- data.frame(ai=c(36,NA,NA,NA), bi=c(86,NA,NA,NA), ci=c(20,NA,NA,NA), di=c(98,NA,NA,NA), oddsratio=NA, phi=NA, chisq=NA, ni=NA, n1i=NA, n2i=NA) dat$oddsratio[2] <- round(exp(escalc(measure="OR", ai=ai, bi=bi, ci=ci, di=di, data=dat)$yi[1]), 2) dat$phi[3] <- round(escalc(measure="PHI", ai=ai, bi=bi, ci=ci, di=di, data=dat)$yi[1], 2) dat$chisq[4] <- round(chisq.test(matrix(c(t(dat[1,1:4])), nrow=2, byrow=TRUE))$statistic, 2) dat$ni[2:4] <- with(dat, ai[1] + bi[1] + ci[1] + di[1]) dat$n1i[2:4] <- with(dat, ai[1] + bi[1]) dat$n2i[2:4] <- with(dat, ai[1] + ci[1]) dat ### reconstruct cell frequencies for rows 2, 3, and 4 dat <- conv.2x2(ri=phi, ori=oddsratio, x2i=chisq, ni=ni, n1i=n1i, n2i=n2i, data=dat) dat ### same example but with cell frequencies that are 10 times as large dat <- data.frame(ai=c(360,NA,NA,NA), bi=c(860,NA,NA,NA), ci=c(200,NA,NA,NA), di=c(980,NA,NA,NA), oddsratio=NA, phi=NA, chisq=NA, ni=NA, n1i=NA, n2i=NA) dat$oddsratio[2] <- round(exp(escalc(measure="OR", ai=ai, bi=bi, ci=ci, di=di, data=dat)$yi[1]), 2) dat$phi[3] <- round(escalc(measure="PHI", ai=ai, bi=bi, ci=ci, di=di, data=dat)$yi[1], 2) dat$chisq[4] <- round(chisq.test(matrix(c(t(dat[1,1:4])), nrow=2, byrow=TRUE))$statistic, 2) dat$ni[2:4] <- with(dat, ai[1] + bi[1] + ci[1] + di[1]) dat$n1i[2:4] <- with(dat, ai[1] + bi[1]) dat$n2i[2:4] <- with(dat, ai[1] + ci[1]) dat <- conv.2x2(ri=phi, ori=oddsratio, x2i=chisq, ni=ni, n1i=n1i, n2i=n2i, data=dat) dat # slight inaccuracy in row 3 due to rounding ### demonstrate what happens when a true marginal count is guestimated escalc(measure="PHI", ai=176, bi=24, ci=72, di=128) conv.2x2(ri=0.54, ni=400, n1i=200, n2i=248) # using the true marginal counts conv.2x2(ri=0.54, ni=400, n1i=200, n2i=200) # marginal count for variable 2 is guestimated conv.2x2(ri=0.54, ni=400, n1i=200, n2i=50) # marginal count for variable 2 is incompatible ### demonstrate that using the correct sign for the chi-square statistic is important chisq <- round(chisq.test(matrix(c(40,60,60,40), nrow=2, byrow=TRUE))$statistic, 2) conv.2x2(x2i=-chisq, ni=200, n1i=100, n2i=100) # correct reconstruction conv.2x2(x2i=chisq, ni=200, n1i=100, n2i=100) # incorrect reconstruction ### demonstrate use of the 'correct' argument tab <- matrix(c(28,14,12,18), nrow=2, byrow=TRUE) chisq <- round(chisq.test(tab)$statistic, 2) # chi-square test with Yates' continuity correction conv.2x2(x2i=chisq, ni=72, n1i=42, n2i=40) # correct reconstruction chisq <- round(chisq.test(tab, correct=FALSE)$statistic, 2) # without Yates' continuity correction conv.2x2(x2i=chisq, ni=72, n1i=42, n2i=40) # incorrect reconstruction conv.2x2(x2i=chisq, ni=72, n1i=42, n2i=40, correct=FALSE) # correct reconstruction ### recalculate chi-square statistic based on p-value pval <- round(chisq.test(tab)$p.value, 2) chisq <- qchisq(pval, df=1, lower.tail=FALSE) conv.2x2(x2i=chisq, ni=72, n1i=42, n2i=40) ############################################################################ ### reconstruct the 2x2 table counts for a diagnostic study tab <- matrix(c(28,5,7,18), nrow=2, byrow=TRUE) tab ### reconstruct from the diagnostic odds ratio and the marginals dor <- tab[1,1] * tab[2,2] / (tab[1,2] * tab[2,1]) cases <- tab[1,1] + tab[2,1] pos <- tab[1,1] + tab[1,2] n <- sum(tab) conv.2x2(ori=dor, n1i=pos, n2i=cases, ni=n) ### reconstruct from the diagnostic accuracy measures sens <- tab[1,1] / sum(tab[,1]) spec <- tab[2,2] / sum(tab[,2]) ppv <- tab[1,1] / sum(tab[1,]) npv <- tab[2,2] / sum(tab[2,]) n <- sum(tab) conv.2x2(sens=sens, spec=spec, ppv=ppv, npv=npv, ni=n) ### show that only three out of the four diagnostic statistics are needed conv.2x2(sens=sens, spec=spec, ppv=ppv, ni=n) conv.2x2(sens=sens, spec=spec, npv=npv, ni=n) conv.2x2(sens=sens, ppv=ppv, npv=npv, ni=n) conv.2x2(spec=spec, ppv=ppv, npv=npv, ni=n) ### reconstruct the 2x2 table counts from rounded statistics dor <- round(dor, digits=2) sens <- round(sens, digits=2) spec <- round(spec, digits=2) ppv <- round(ppv, digits=2) npv <- round(npv, digits=2) conv.2x2(ori=dor, n1i=pos, n2i=cases, ni=n) conv.2x2(sens=sens, spec=spec, ppv=ppv, npv=npv, ni=n) ############################################################################ } \keyword{manip} metafor/man/plot.gosh.rma.Rd0000644000176200001440000001212715173343621015454 0ustar liggesusers\name{plot.gosh.rma} \alias{plot.gosh.rma} \title{Plot Method for 'gosh.rma' Objects} \description{ Function to plot objects of class \code{"gosh.rma"}. } \usage{ \method{plot}{gosh.rma}(x, het="I2", pch=16, cex, out, col, alpha, border, xlim, ylim, xhist=TRUE, yhist=TRUE, hh=0.3, breaks, adjust, lwd, labels, \dots) } \arguments{ \item{x}{an object of class \code{"gosh.rma"} obtained with \code{\link{gosh}}.} \item{het}{character string to specify the heterogeneity measure to plot. Either \code{"I2"}, \code{"H2"}, \code{"QE"}, \code{"tau2"}, or \code{"tau"} (the last two only for random/mixed-effects models).} \item{pch}{plotting symbol to use. By default, a borderless filled circle is used. See \code{\link{points}} for other options.} \item{cex}{symbol expansion factor.} \item{out}{optional integer to specify the number of a study that may be a potential outlier. If specified, subsets containing the specified study are drawn in a different color than those not containing the study.} \item{col}{optional character string to specify the color of the points (if unspecified, points are drawn in black). When \code{out} is used, two colors should be specified (if unspecified, red is used for subsets containing the specified study and blue otherwise).} \item{alpha}{optional alpha transparency value for the points (0 means fully transparent and 1 means opaque). If unspecified, the function sets this to a sensible value.} \item{border}{optional character string to specify the color of the borders of the histogram bars. Set to \code{FALSE} to omit the borders.} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{ylim}{y-axis limits. If unspecified, the function sets the y-axis limits to some sensible values.} \item{xhist}{logical to specify whether a histogram should be drawn for the x-axis (the default is \code{TRUE}).} \item{yhist}{logical to specify whether a histogram should be drawn for the y-axis (the default is \code{TRUE}).} \item{hh}{numeric value (or vector of two values) to adjust the height of the histogram(s). Must be between 0 and 1, but should not be too close to 0 or 1, as otherwise the plot cannot be drawn.} \item{breaks}{optional argument passed on to \code{\link{hist}} for choosing the (number of) breakpoints of the histogram(s).} \item{adjust}{optional argument passed on to \code{\link{density}} for adjusting the bandwidth of the kernel density estimate(s) (values larger than 1 result in more smoothing).} \item{lwd}{optional numeric value to specify the line width of the estimated densities. Set to \code{0} to omit the line(s).} \item{labels}{optional argument to specify the x-axis and y-axis labels (or passed on to \code{\link{pairs}} to specify the names of the variables in the scatter plot matrix).} \item{\dots}{other arguments.} } \details{ For models without moderators, the function draws a scatter plot of the model estimates on the x-axis against the chosen measure of heterogeneity on the y-axis for the various subsets. Histograms of the respective distributions (with kernel density estimates superimposed) are shown in the margins (when \code{xhist=TRUE} and \code{yhist=TRUE}). For models with moderators, the function draws a scatter plot matrix (with the \code{\link{pairs}} function) of the chosen measure of heterogeneity and each of the model coefficients. Histograms of the variables plotted are shown along the diagonal, with kernel density estimates of the distributions superimposed. Arguments \code{xlim}, \code{ylim}, \code{xhist}, and \code{yhist} are then ignored, while argument \code{hh} can be used to compress/stretch the height of the distributions shown along the diagonal. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Olkin, I., Dahabreh, I. J., & Trikalinos, T. A. (2012). GOSH - a graphical display of study heterogeneity. \emph{Research Synthesis Methods}, \bold{3}(3), 214--223. \verb{https://doi.org/10.1002/jrsm.1053} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} } \seealso{ \code{\link{gosh}} for the function to create the input to a GOSH plot. } \examples{ ### calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat.egger2001) ### meta-analysis of all trials including ISIS-4 using an equal-effects model res <- rma(yi, vi, data=dat, method="EE") ### fit FE model to all possible subsets (65535 models) \dontrun{ sav <- gosh(res, progbar=FALSE) ### create GOSH plot ### red points for subsets that include and blue points ### for subsets that exclude study 16 (the ISIS-4 trial) plot(sav, out=16, breaks=100) } } \keyword{hplot} metafor/man/transf.Rd0000644000176200001440000004752515173343621014270 0ustar liggesusers\name{transf} \alias{transf} \alias{transf.rtoz} \alias{transf.ztor} \alias{transf.logit} \alias{transf.ilogit} \alias{transf.probit} \alias{transf.iprobit} \alias{transf.arcsin} \alias{transf.iarcsin} \alias{transf.pft} \alias{transf.ipft} \alias{transf.ipft.hm} \alias{transf.isqrt} \alias{transf.irft} \alias{transf.iirft} \alias{transf.ahw} \alias{transf.iahw} \alias{transf.abt} \alias{transf.iabt} \alias{transf.r2toz} \alias{transf.ztor2} \alias{transf.ztor.int} \alias{transf.exp.int} \alias{transf.ilogit.int} \alias{transf.iprobit.int} \alias{transf.iarcsin.int} \alias{transf.iahw.int} \alias{transf.iabt.int} \alias{transf.ztor.mode} \alias{transf.exp.mode} \alias{transf.ilogit.mode} \alias{transf.iprobit.mode} \alias{transf.iarcsin.mode} \alias{transf.iahw.mode} \alias{transf.iabt.mode} \alias{transf.dtou1} \alias{transf.dtou2} \alias{transf.dtou3} \alias{transf.dtoovl} \alias{transf.dtocles} \alias{transf.clestod} \alias{transf.dtocles.int} \alias{transf.dtocliffd} \alias{transf.dtobesd} \alias{transf.dtomd} \alias{transf.dtorpb} \alias{transf.dtorbis} \alias{transf.rpbtorbis} \alias{transf.rtorpb} \alias{transf.rtod} \alias{transf.rpbtod} \alias{transf.lnortord} \alias{transf.lnortorr} \alias{transf.lnortod.norm} \alias{transf.lnortod.logis} \alias{transf.dtolnor.norm} \alias{transf.dtolnor.logis} \alias{transf.lnortortet.pearson} \alias{transf.lnortortet.digby} \title{Transformation Functions} \description{ Functions to carry out various types of transformations that are useful for meta-analyses. \loadmathjax } \usage{ transf.rtoz(xi) transf.ztor(xi) transf.logit(xi) transf.ilogit(xi) transf.probit(xi) transf.iprobit(xi) transf.arcsin(xi) transf.iarcsin(xi) transf.pft(xi, ni) transf.ipft(xi, ni) transf.ipft.hm(xi, targs) transf.isqrt(xi) transf.irft(xi, ti) transf.iirft(xi, ti) transf.ahw(xi) transf.iahw(xi) transf.abt(xi) transf.iabt(xi) transf.r2toz(xi) transf.ztor2(xi) transf.ztor.int(xi, targs) transf.exp.int(xi, targs) transf.ilogit.int(xi, targs) transf.iprobit.int(xi, targs) transf.iarcsin.int(xi, targs) transf.ztor.mode(xi, targs) transf.exp.mode(xi, targs) transf.ilogit.mode(xi, targs) transf.iprobit.mode(xi, targs) transf.iarcsin.mode(xi, targs) transf.iahw.mode(xi, targs) transf.iabt.mode(xi, targs) transf.dtou1(xi) transf.dtou2(xi) transf.dtou3(xi) transf.dtoovl(xi) transf.dtocles(xi) transf.clestod(xi) transf.dtocles.int(xi, targs) transf.dtocliffd(xi) transf.dtobesd(xi) transf.dtomd(xi, targs) transf.dtorpb(xi, n1i, n2i) transf.dtorbis(xi, n1i, n2i) transf.rpbtorbis(xi, pi) transf.rtorpb(xi, pi) transf.rtod(xi, n1i, n2i) transf.rpbtod(xi, n1i, n2i) transf.lnortord(xi, pc) transf.lnortorr(xi, pc) transf.lnortod.norm(xi) transf.lnortod.logis(xi) transf.dtolnor.norm(xi) transf.dtolnor.logis(xi) transf.lnortortet.pearson(xi) transf.lnortortet.digby(xi) } \arguments{ \item{xi}{vector of values to be transformed.} \item{ni}{vector of sample sizes.} \item{n1i}{vector of sample sizes for the first group.} \item{n2i}{vector of sample sizes for the second group.} \item{ti}{vector of person-times at risk.} \item{pc}{control group risk (either a single value or a vector).} \item{pi}{proportion of individuals falling into the first of the two groups that is created by the dichotomization.} \item{targs}{list with additional arguments for the transformation function. See \sQuote{Details}.} } \details{ The following transformation functions are currently implemented: \itemize{ \item \code{transf.rtoz}: Fisher's r-to-z transformation for correlation coefficients (same as \code{atanh(x)}). \item \code{transf.ztor}: inverse of the former (i.e., the z-to-r transformation; same as \code{tanh(x)}). \item \code{transf.logit}: logit (log odds) transformation for proportions (same as \code{qlogis(x)}). \item \code{transf.ilogit}: inverse of the former (same as \code{plogis(x)}). \item \code{transf.probit}: probit transformation for proportions (same as \code{qnorm(x)}). \item \code{transf.iprobit}: inverse of the former (same as \code{pnorm(x)}). \item \code{transf.arcsin}: arcsine square root transformation for proportions. \item \code{transf.iarcsin}: inverse of the former. \item \code{transf.pft}: Freeman-Tukey (double arcsine) transformation for proportions. See Freeman and Tukey (1950). The \code{xi} argument is used to specify the proportions and the \code{ni} argument the corresponding sample sizes. \item \code{transf.ipft}: inverse of the former. See Miller (1978). \item \code{transf.ipft.hm}: inverse of the former, using the harmonic mean of the sample sizes for the back-transformation. See Miller (1978). The sample sizes are specified via the \code{targs} argument (the list element should be called \code{ni}). \item \code{transf.isqrt}: inverse of the square root transformation (i.e., function to square a number). \item \code{transf.irft}: Freeman-Tukey transformation for incidence rates. See Freeman and Tukey (1950). The \code{xi} argument is used to specify the incidence rates and the \code{ti} argument the corresponding person-times at risk. \item \code{transf.iirft}: inverse of the former. \item \code{transf.ahw}: transformation of coefficient alpha as suggested by Hakstian and Whalen (1976), except that \mjeqn{1-(1-\alpha)^{1/3}}{1-(1-\alpha)^(1/3)} is used (so that the transformed values are a monotonically increasing function of the \mjseqn{\alpha} values). \item \code{transf.iahw}: inverse of the former. \item \code{transf.abt}: transformation of coefficient alpha as suggested by Bonett (2002), except that \mjeqn{-\log(1-\alpha)}{-log(1-\alpha)} is used (so that the transformed values are a monotonically increasing function of the \mjseqn{\alpha} values). \item \code{transf.iabt}: inverse of the former. \item \code{transf.r2toz}: variance stabilizing transformation for the coefficient of determination, given by \mjeqn{z_i = \frac{1}{2} \log\mathopen{}\left(\frac{1+\sqrt{R_i^2}}{1-\sqrt{R_i^2}}\right)\mathclose{}}{z_i = 1/2 log((1+\sqrt(R_i^2))/(1-\sqrt(R_i^2)))} (see Olkin & Finn, 1995, but with the additional \mjeqn{\frac{1}{2}}{1/2} factor for consistency with the usual r-to-z transformation). \item \code{transf.ztor2}: inverse of the former. \item \code{transf.ztor.int}: integral transformation function for the z-to-r transformation. See \sQuote{Note}. \item \code{transf.exp.int}: integral transformation function for the exponential transformation. See \sQuote{Note}. \item \code{transf.ilogit.int}: integral transformation function for the inverse logit transformation. See \sQuote{Note}. \item \code{transf.iprobit.int}: integral transformation function for the inverse probit transformation. See \sQuote{Note}. \item \code{transf.iarcsin.int}: integral transformation function for the inverse arcsine square root transformation. See \sQuote{Note}. \item \code{transf.iahw.int}: integral transformation function for the \code{transf.iahw} transformation. See \sQuote{Note}. \item \code{transf.iahw.int}: integral transformation function for the \code{transf.iabt} transformation. See \sQuote{Note}. \item \code{transf.ztor.mode}: function to determine the mode of an atanh-normal variable. \item \code{transf.exp.mode}: function to determine the mode of a log-normal variable. \item \code{transf.ilogit.mode}: function to determine the mode of a logit-normal variable. \item \code{transf.iprobit.mode}: function to determine the mode of a probit-normal variable. \item \code{transf.iarcsin.mode}: function to determine the mode of an arcsine-square-root-normal variable. \item \code{transf.iahw.mode}: function to determine the mode of a \code{transf.ahw}-normal variable. \item \code{transf.iabt.mode}: function to determine the mode of a \code{transf.abt}-normal variable. \item \code{transf.dtou1}: transformation of standardized mean differences to Cohen's \mjseqn{U_1} values (Cohen, 1988). Under the assumption that the data for those in the first (say, treated) and second (say, control) group are normally distributed with equal variances but potentially different means, Cohen's \mjseqn{U_1} indicates the proportion of non-overlap between the two distributions (i.e., when \mjseqn{d=0}, then \mjseqn{U_1} is equal to 0, which goes to 1 as \mjseqn{d} increases). \item \code{transf.dtou2}: transformation of standardized mean differences to Cohen's \mjseqn{U_2} values (Cohen, 1988). Under the same assumptions as above, Cohen's \mjseqn{U_2} indicates the proportion in the first group that exceeds the same proportion in the second group (i.e., when \mjseqn{d=0}, then \mjseqn{U_2} is equal to 0.5, which goes to 1 as \mjseqn{d} increases). \item \code{transf.dtou3}: transformation of standardized mean differences to Cohen's \mjseqn{U_3} values (Cohen, 1988). Under the same assumptions as above, Cohen's \mjseqn{U_3} indicates the proportion of individuals in the first group that have a higher value than the mean of those in the second group (i.e., when \mjseqn{d=0}, then \mjseqn{U_3} is equal to 0.5, which goes to 1 as \mjseqn{d} increases). \item \code{transf.dtoovl}: transformation of standardized mean differences to overlapping coefficient values under the same assumptions as above (Inman & Bardley, 1989). Note that \mjseqn{1 - U_1} is \emph{not} the same as the overlapping coefficient (see Grice & Barrett, 2014). \item \code{transf.dtocles}: transformation of standardized mean differences to common language effect size (CLES) values (McGraw & Wong, 1992) (also called the probability of superiority). A CLES value indicates the probability that a randomly sampled individual from the first group has a higher value than a randomly sampled individual from the second group (i.e., when \mjseqn{d=0}, then the CLES is equal to 0.5, which goes to 1 as \mjseqn{d} increases). \item \code{transf.clestod}: inverse of the former. \item \code{transf.dtocles.int}: integral transformation function for the \code{transf.dtocles} transformation. See \sQuote{Note}. \item \code{transf.dtocliffd}: transformation of standardized mean differences to Cliff's delta values. \item \code{transf.dtobesd}: transformation of standardized mean differences to binomial effect size display values (Rosenthal & Rubin, 1982). Note that the function only provides the proportion of individuals in the first group scoring above the median (of the scores of the two group combined). The proportion of individuals in the second group scoring above the median is simply one minus this value. \item \code{transf.dtomd}: transformation of standardized mean differences to mean differences given a known standard deviation (which needs to be specified via the \code{targs} argument). For example: \code{transf.dtomd(0.5, targs=15)}. \item \code{transf.dtorpb}: transformation of standardized mean differences to point-biserial correlations. Arguments \code{n1i} and \code{n2i} denote the number of individuals in the first and second group, respectively. If \code{n1i} and \code{n2i} are not specified, the function assumes \code{n1i = n2i} and uses the approximate formula \mjeqn{r_{pb} = \frac{d}{\sqrt{d^2 + 4}}}{r_pb = d / \sqrt{d^2 + 4}}. If \code{n1i} and \code{n2i} are specified, the function uses the exact transformation formula \mjeqn{r_{pb} = \frac{d}{\sqrt{d^2 + h}}}{r_pb = d / \sqrt{d^2 + h}}, where \mjeqn{h = \frac{m}{n_1} + \frac{m}{n_2}}{h = m / n_1 + m / n_2} and \mjseqn{m = n_1 + n_2 - 2} (Jacobs & Viechtbauer, 2017). \item \code{transf.dtorbis}: transformation of standardized mean differences to biserial correlations. Like \code{transf.dtorpb}, but the point-biserial correlations are then transformed to biserial correlations with \mjeqn{r_{bis} = \frac{\sqrt{p(1-p)}}{f(z_p)} r_{pb}}{r_bis = sqrt(p*(1-p)) / f(z_p) r_pb}, where \mjeqn{p = \frac{n_1}{n_1+n_2}}{p = n1/(n1+n2)} and \mjseqn{f(z_p)} denotes the density of the standard normal distribution at value \mjseqn{z_p}, which is the point for which \mjteqn{P(Z > z_p) = p}{P(Z \gt z_p) = p}{P(Z > z_p) = p}, with \mjseqn{Z} denoting a random variable following a standard normal distribution (Jacobs & Viechtbauer, 2017). \item \code{transf.rpbtorbis}: transformation of point-biserial correlations to biserial correlations. Argument \code{pi} denotes the proportion of individuals falling into the first of the two groups that is created by the dichotomization (hence, \code{1-pi} falls into the second group). If \code{pi} is not specified, the function assumes \code{pi=0.5}, which corresponds to dichotomization at the median. The transformation is carried out as described for \code{transf.dtorbis}. \item \code{transf.rtorpb}: transformation of Pearson product-moment correlations to the corresponding point-biserial correlations, when one of the two variables is dichotomized. Argument \code{pi} can be used to denote the proportion of individuals falling into the first of the two groups that is created by the dichotomization (hence, \code{1-pi} falls into the second group). If \code{pi} is not specified, the function assumes \code{pi=0.5}, which corresponds to dichotomization at the median. This function is simply the inverse of \code{transf.rpbtorbis}. \item \code{transf.rtod}: transformation of Pearson product-moment correlations to the corresponding standardized mean differences, when one of the two variables is dichotomized. Arguments \code{n1i} and \code{n2i} can be used to denote the number of individuals in the first and second group created by the dichotomization. If \code{n1i} and \code{n2i} are not specified, the function assumes \code{n1i = n2i}. This function is simply the inverse of \code{transf.dtorbis}. \item \code{transf.rpbtod}: transformation of point-biserial correlations to standardized mean differences. This is simply the inverse of \code{transf.dtorpb}. \item \code{transf.lnortord}: transformation of log odds ratios to risk differences, assuming a particular value for the control group risk (which needs to be specified via the \code{pc} argument). \item \code{transf.lnortorr}: transformation of log odds ratios to risk ratios, assuming a particular value for the control group risk (which needs to be specified via the \code{pc} argument). Note that this function transforms to risk ratios, \emph{not} log risk ratios. \item \code{transf.lnortod.norm}: transformation of log odds ratios to standardized mean differences (assuming normal distributions) (Cox & Snell, 1989). \item \code{transf.lnortod.logis}: transformation of log odds ratios to standardized mean differences (assuming logistic distributions) (Chinn, 2000). \item \code{transf.dtolnor.norm}: transformation of standardized mean differences to log odds ratios (assuming normal distributions) (Cox & Snell, 1989). \item \code{transf.dtolnor.logis}: transformation of standardized mean differences to log odds ratios (assuming logistic distributions) (Chinn, 2000). \item \code{transf.lnortortet.pearson}: transformation of log odds ratios to tetrachoric correlations as suggested by Pearson (1900). \item \code{transf.lnortortet.digby}: transformation of log odds ratios to tetrachoric correlations as suggested by Digby (1983). } } \value{ A vector with the transformed values. } \note{ The integral transformation method for a transformation function \mjseqn{h(z)} is given by \mjsdeqn{\int_{\text{lower}}^{\text{upper}} h(z) f(z) dz} using the limits \code{targs$lower} and \code{targs$upper}, where \mjseqn{f(z)} is the density of a normal distribution with mean equal to \code{xi} and variance equal to \code{targs$tau2}. By default, \code{targs$lower} and \code{targs$upper} are set to reasonable values and, if possible, \code{targs$tau2} is extracted from the model object in functions where such transformation functions are typically applied (e.g., \code{\link[=predict.rma]{predict}}). An example is provided below. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Bonett, D. G. (2002). Sample size requirements for testing and estimating coefficient alpha. \emph{Journal of Educational and Behavioral Statistics}, \bold{27}(4), 335--340. \verb{https://doi.org/10.3102/10769986027004335} Chinn, S. (2000). A simple method for converting an odds ratio to effect size for use in meta-analysis. \emph{Statistics in Medicine}, \bold{19}(22), 3127--3131. \verb{https://doi.org/10.1002/1097-0258(20001130)19:22<3127::aid-sim784>3.0.co;2-m} Cohen, J. (1988). \emph{Statistical power analysis for the behavioral sciences} (2nd ed.). Hillsdale, NJ: Lawrence Erlbaum Associates. Cox, D. R., & Snell, E. J. (1989). \emph{Analysis of binary data} (2nd ed.). London: Chapman & Hall. Digby, P. G. N. (1983). Approximating the tetrachoric correlation coefficient. \emph{Biometrics}, \bold{39}(3), 753--757. \verb{https://doi.org/10.2307/2531104} Fisher, R. A. (1921). On the \dQuote{probable error} of a coefficient of correlation deduced from a small sample. \emph{Metron}, \bold{1}, 1--32. \verb{https://hdl.handle.net/2440/15169} Freeman, M. F., & Tukey, J. W. (1950). Transformations related to the angular and the square root. \emph{Annals of Mathematical Statistics}, \bold{21}(4), 607--611. \verb{https://doi.org/10.1214/aoms/1177729756} Grice, J. W., & Barrett, P. T. (2014). A note on Cohen's overlapping proportions of normal distributions. \emph{Psychological Reports}, \bold{115}(3), 741--747. \verb{https://doi.org/10.2466/03.pr0.115c29z4} Hakstian, A. R., & Whalen, T. E. (1976). A k-sample significance test for independent alpha coefficients. \emph{Psychometrika}, \bold{41}(2), 219--231. \verb{https://doi.org/10.1007/BF02291840} Inman, H. F., & Bradley Jr, E. L. (1989). The overlapping coefficient as a measure of agreement between probability distributions and point estimation of the overlap of two normal densities. \emph{Communications in Statistics, Theory and Methods}, \bold{18}(10), 3851--3874. \verb{https://doi.org/10.1080/03610928908830127} Jacobs, P., & Viechtbauer, W. (2017). Estimation of the biserial correlation and its sampling variance for use in meta-analysis. \emph{Research Synthesis Methods}, \bold{8}(2), 161--180. \verb{https://doi.org/10.1002/jrsm.1218} McGraw, K. O., & Wong, S. P. (1992). A common language effect size statistic. \emph{Psychological Bulletin}, \bold{111}(2), 361--365. \verb{https://doi.org/10.1037/0033-2909.111.2.361} Miller, J. J. (1978). The inverse of the Freeman-Tukey double arcsine transformation. \emph{American Statistician}, \bold{32}(4), 138. \verb{https://doi.org/10.1080/00031305.1978.10479283} Olkin, I., & Finn, J. D. (1995). Correlations redux. \emph{Psychological Bulletin}, \bold{118}(1), 155--164. \verb{https://doi.org/10.1037/0033-2909.118.1.155} Pearson, K. (1900). Mathematical contributions to the theory of evolution. VII. On the correlation of characters not quantitatively measurable. \emph{Philosophical Transactions of the Royal Society of London, Series A}, \bold{195}, 1--47. \verb{https://doi.org/10.1098/rsta.1900.0022} Rosenthal, R., & Rubin, D. B. (1982). A simple, general purpose display of magnitude of experimental effect. \emph{Journal of Educational Psychology}, \bold{74}(2), 166--169. \verb{https://doi.org/10.1037/0022-0663.74.2.166} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model res <- rma(yi, vi, data=dat) ### average risk ratio with 95\% CI (but technically, this provides an ### estimate of the median risk ratio, not the mean risk ratio!) predict(res, transf=exp) ### average risk ratio with 95\% CI using the integral transformation predict(res, transf=transf.exp.int, targs=list(tau2=res$tau2, lower=-4, upper=4)) ### this also works predict(res, transf=transf.exp.int, targs=list(tau2=res$tau2)) ### this as well predict(res, transf=transf.exp.int) } \keyword{manip} metafor/man/conv.delta.Rd0000644000176200001440000003276215173343621015025 0ustar liggesusers\name{conv.delta} \alias{conv.delta} \title{Transform Observed Effect Sizes or Outcomes and their Sampling Variances using the Delta Method} \description{ Function to transform observed effect sizes or outcomes and their sampling variances using the delta method. \loadmathjax } \usage{ conv.delta(yi, vi, ni, data, include, transf, var.names, append=TRUE, replace="ifna", \dots) } \arguments{ \item{yi}{vector with the observed effect sizes or outcomes.} \item{vi}{vector with the corresponding sampling variances.} \item{ni}{vector with the total sample sizes of the studies.} \item{data}{optional data frame containing the variables given to the arguments above.} \item{include}{optional (logical or numeric) vector to specify the subset of studies for which the transformation should be carried out.} \item{transf}{a function which should be used for the transformation.} \item{var.names}{character vector with two elements to specify the name of the variable for the transformed effect sizes or outcomes and the name of the variable for the corresponding sampling variances (if \code{data} is an object of class \code{"escalc"}, the \code{var.names} are taken from the object; otherwise the defaults are \code{"yi"} and \code{"vi"}).} \item{append}{logical to specify whether the data frame provided via the \code{data} argument should be returned together with the estimated values (the default is \code{TRUE}).} \item{replace}{character string or logical to specify how values in \code{var.names} should be replaced (only relevant when using the \code{data} argument and if variables in \code{var.names} already exist in the data frame). See the \sQuote{Value} section for more details.} \item{\dots}{other arguments for the transformation function.} } \details{ The \code{\link{escalc}} function can be used to compute a wide variety of effect sizes or \sQuote{outcome measures}. In some cases, it may be necessary to transform one type of measure to another. The present function provides a general method for doing so via the \href{https://en.wikipedia.org/wiki/Delta_method}{delta method} (e.g., van der Vaart, 1998), which briefly works as follows. Let \mjseqn{y_i} denote the observed effect size or outcome for a particular study and \mjseqn{v_i} the corresponding sampling variance. Then \mjseqn{f(y_i)} will be the transformed effect size or outcome, where \mjeqn{f(\cdot)}{f(.)} is the function specified via the \code{transf} argument. The sampling variance of the transformed effect size or outcome is then computed with \mjseqn{v_i \times f'(y_i)^2}, where \mjseqn{f'(y_i)} denotes the derivative of \mjeqn{f(\cdot)}{f(.)} evaluated at \mjseqn{y_i}. The present function computes the derivative numerically using the \code{\link[numDeriv]{grad}} function from the \code{numDeriv} package. The value of the observed effect size or outcome should be the first argument of the function specified via \code{transf}. The function can have additional arguments, which can be specified via the \dots argument. However, due to the manner in which these additional arguments are evaluated, they cannot have names that match one of the arguments of the \code{\link[numDeriv]{grad}} function (an error will be issued if such a naming clash is detected). Optionally, one can use the \code{ni} argument to supply the total sample sizes of the studies. This has no relevance for the calculations done by the present function, but some other functions may use this information (e.g., when drawing a funnel plot with the \code{\link{funnel}} function and one adjusts the \code{yaxis} argument to one of the options that puts the sample sizes or some transformation thereof on the y-axis). } \value{ If the \code{data} argument was not specified or \code{append=FALSE}, a data frame of class \code{c("escalc","data.frame")} with two variables called \code{var.names[1]} (by default \code{"yi"}) and \code{var.names[2]} (by default \code{"vi"}) with the transformed observed effect sizes or outcomes and the corresponding sampling variances (computed as described above). If \code{data} was specified and \code{append=TRUE}, then the original data frame is returned. If \code{var.names[1]} is a variable in \code{data} and \code{replace="ifna"} (or \code{replace=FALSE}), then only missing values in this variable are replaced with the transformed observed effect sizes or outcomes (where possible) and otherwise a new variable called \code{var.names[1]} is added to the data frame. Similarly, if \code{var.names[2]} is a variable in \code{data} and \code{replace="ifna"} (or \code{replace=FALSE}), then only missing values in this variable are replaced with the sampling variances calculated as described above (where possible) and otherwise a new variable called \code{var.names[2]} is added to the data frame. If \code{replace="all"} (or \code{replace=TRUE}), then all values in \code{var.names[1]} and \code{var.names[2]} are replaced, even for cases where the value in \code{var.names[1]} and \code{var.names[2]} is not missing. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ van der Vaart, A. W. (1998). \emph{Asymptotic statistics}. Cambridge, UK: Cambridge University Press. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to compute various effect size measures and \code{\link{deltamethod}} for a function to apply the multivariate delta method to a set of estimates. } \examples{ ############################################################################ ### the following examples illustrate that the use of the delta method (with numeric derivatives) ### yields essentially identical results as the analytic calculations that are done by escalc() ### compute logit transformed proportions and corresponding sampling variances for two studies escalc(measure="PLO", xi=c(5,12), ni=c(40,80)) ### compute raw proportions and corresponding sampling variances for the two studies dat <- escalc(measure="PR", xi=c(5,12), ni=c(40,80)) dat ### apply the logit transformation (note: this yields the same values as above with measure="PLO") conv.delta(dat$yi, dat$vi, transf=transf.logit) ### using the 'data' argument conv.delta(yi, vi, data=dat, transf=transf.logit, var.names=c("yi.t","vi.t")) ### or replace the existing 'yi' and 'vi' values conv.delta(yi, vi, data=dat, transf=transf.logit, replace="all") ###################################### ### use escalc() with measure D2ORN which transforms standardized mean differences (computed ### from means and standard deviations) into the corresponding log odds ratios escalc(measure="D2ORN", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat.normand1999) ### use escalc() to compute standardized mean differences (without the usual bias correction) and ### then apply the same transformation to the standardized mean differences dat <- escalc(measure="SMD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat.normand1999, correct=FALSE) conv.delta(yi, vi, data=dat, transf=transf.dtolnor.norm, replace="all") ###################################### ### an example where the transformation function takes additional arguments ### use escalc() with measure RPB which transforms standardized mean differences (computed ### from means and standard deviations) into the corresponding point-biserial correlations escalc(measure="RPB", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat.normand1999) ### use escalc() to compute standardized mean differences (without the usual bias correction) and ### then apply the same transformation to the standardized mean differences dat <- escalc(measure="SMD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat.normand1999, correct=FALSE) conv.delta(yi, vi, data=dat, transf=transf.dtorpb, n1i=n1i, n2i=n2i, replace="all") ############################################################################ ### a more elaborate example showing how this function could be used in the data ### preparation steps for a meta-analysis of standardized mean differences (SMDs) dat <- data.frame(study=1:6, m1i=c(2.03,NA,NA,NA,NA,NA), sd1i=c(0.95,NA,NA,NA,NA,NA), n1i=c(32,95,145,NA,NA,NA), m2i=c(1.25,NA,NA,NA,NA,NA), sd2i=c(1.04,NA,NA,NA,NA,NA), n2i=c(30,99,155,NA,NA,NA), tval=c(NA,2.12,NA,NA,NA,NA), dval=c(NA,NA,0.37,NA,NA,NA), ai=c(NA,NA,NA,26,NA,NA), bi=c(NA,NA,NA,58,NA,NA), ci=c(NA,NA,NA,11,NA,NA), di=c(NA,NA,NA,74,NA,NA), or=c(NA,NA,NA,NA,2.56,NA), lower=c(NA,NA,NA,NA,1.23,NA), upper=c(NA,NA,NA,NA,5.30,NA), corr=c(NA,NA,NA,NA,NA,.32), ntot=c(NA,NA,NA,NA,NA,86)) dat ### study types: ### 1) reports means and SDs so that the SMD can be directly calculated ### 2) reports the t-statistic from an independent samples t-test (and group sizes) ### 3) reports the standardized mean difference directly (and group sizes) ### 4) dichotomized the continuous dependent variable and reports the resulting 2x2 table ### 5) dichotomized the continuous dependent variable and reports an odds ratio with 95\% CI ### 6) treated the group variable continuously and reports a Pearson product-moment correlation ### use escalc() to directly compute the SMD and its variance for studies 1, 2, and 3 dat <- escalc(measure="SMD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, ti=tval, di=dval, data=dat) dat ### use escalc() with measure OR2DN to compute the SMD value for study 4 dat <- escalc(measure="OR2DN", ai=ai, bi=bi, ci=ci, di=di, data=dat, replace=FALSE) dat ### use conv.wald() to convert the OR and CI into the log odds ratio and its variance for study 5 dat <- conv.wald(out=or, ci.lb=lower, ci.ub=upper, data=dat, transf=log, var.names=c("lnor","vlnor")) dat ### use conv.delta() to transform the log odds ratio into the SMD value for study 5 dat <- conv.delta(lnor, vlnor, data=dat, transf=transf.lnortod.norm, var.names=c("yi","vi")) dat ### remove the lnor and vlnor variables (no longer needed) dat$lnor <- NULL dat$vlnor <- NULL ### use escalc() with measure COR to compute the sampling variance of ri for study 6 dat <- escalc(measure="COR", ri=corr, ni=ntot, data=dat, var.names=c("ri","vri")) dat ### use conv.delta() to transform the correlation into the SMD value for study 6 dat <- conv.delta(ri, vri, data=dat, transf=transf.rtod, var.names=c("yi","vi")) dat ### remove the ri and vri variables (no longer needed) dat$ri <- NULL dat$vri <- NULL ### now variable 'yi' is complete with the SMD values for all studies dat ### fit an equal-effects model to the SMD values rma(yi, vi, data=dat, method="EE") ############################################################################ ### a more elaborate example showing how this function could be used in the data ### preparation steps for a meta-analysis of correlation coefficients dat <- data.frame(study=1:6, ri=c(.42,NA,NA,NA,NA,NA), tval=c(NA,2.85,NA,NA,NA,NA), phi=c(NA,NA,NA,0.27,NA,NA), ni=c(93,182,NA,112,NA,NA), ai=c(NA,NA,NA,NA,61,NA), bi=c(NA,NA,NA,NA,36,NA), ci=c(NA,NA,NA,NA,39,NA), di=c(NA,NA,NA,NA,57,NA), or=c(NA,NA,NA,NA,NA,1.86), lower=c(NA,NA,NA,NA,NA,1.12), upper=c(NA,NA,NA,NA,NA,3.10), m1i=c(NA,NA,54.1,NA,NA,NA), sd1i=c(NA,NA,5.79,NA,NA,NA), n1i=c(NA,NA,66,75,NA,NA), m2i=c(NA,NA,51.7,NA,NA,NA), sd2i=c(NA,NA,6.23,NA,NA,NA), n2i=c(NA,NA,65,88,NA,NA)) dat ### study types: ### 1) reports the correlation coefficient directly ### 2) reports the t-statistic from a t-test of H0: rho = 0 ### 3) dichotomized one variable and reports means and SDs for the two corresponding groups ### 4) reports the phi coefficient, marginal counts, and total sample size ### 5) dichotomized both variables and reports the resulting 2x2 table ### 6) dichotomized both variables and reports an odds ratio with 95\% CI ### use escalc() to directly compute the correlation and its variance for studies 1 and 2 dat <- escalc(measure="COR", ri=ri, ni=ni, ti=tval, data=dat) dat ### use escalc() with measure RBIS to compute the biserial correlation for study 3 dat <- escalc(measure="RBIS", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat, replace=FALSE) dat ### use conv.2x2() to reconstruct the 2x2 table for study 4 dat <- conv.2x2(ri=phi, ni=ni, n1i=n1i, n2i=n2i, data=dat) dat ### use escalc() with measure RTET to compute the tetrachoric correlation for studies 4 and 5 dat <- escalc(measure="RTET", ai=ai, bi=bi, ci=ci, di=di, data=dat, replace=FALSE) dat ### use conv.wald() to convert the OR and CI into the log odds ratio and its variance for study 6 dat <- conv.wald(out=or, ci.lb=lower, ci.ub=upper, data=dat, transf=log, var.names=c("lnor","vlnor")) dat ### use conv.delta() to estimate the tetrachoric correlation from the log odds ratio for study 6 dat <- conv.delta(lnor, vlnor, data=dat, transf=transf.lnortortet.pearson, var.names=c("yi","vi")) dat ### remove the lnor and vlnor variables (no longer needed) dat$lnor <- NULL dat$vlnor <- NULL ### now variable 'yi' is complete with the correlations for all studies dat ### fit an equal-effects model to the correlations rma(yi, vi, data=dat, method="EE") ############################################################################ } \keyword{manip} metafor/man/to.wide.Rd0000644000176200001440000001277515173343621014343 0ustar liggesusers\name{to.wide} \alias{to.wide} \title{Convert Data from a Long to a Wide Format} \description{ Function to convert data given in long format to a wide format. } \usage{ to.wide(data, study, grp, ref, grpvars, postfix=c(".1",".2"), addid=TRUE, addcomp=TRUE, adddesign=TRUE, minlen=2, var.names=c("id","comp","design")) } \arguments{ \item{data}{a data frame in long format.} \item{study}{either the name (given as a character string) or the position (given as a single number) of the study variable in the data frame.} \item{grp}{either the name (given as a character string) or the position (given as a single number) of the group variable in the data frame.} \item{ref}{optional character string to specify the reference group (must be one of the groups in the group variable). If not given, the most frequently occurring group is used as the reference group.} \item{grpvars}{either the names (given as a character vector) or the positions (given as a numeric vector) of the group-level variables.} \item{postfix}{a character string of length 2 giving the affix that is placed after the names of the group-level variables for the first and second group.} \item{addid}{logical to specify whether a row id variable should be added to the data frame (the default is \code{TRUE}).} \item{addcomp}{logical to specify whether a comparison id variable should be added to the data frame (the default is \code{TRUE}).} \item{adddesign}{logical to specify whether a design id variable should be added to the data frame (the default is \code{TRUE}).} \item{minlen}{integer to specify the minimum length of the shortened group names for the comparison and design id variables (the default is 2).} \item{var.names}{character vector with three elements to specify the name of the id, comparison, and design variables (the defaults are \code{"id"}, \code{"comp"}, and \code{"design"}, respectively).} } \details{ A meta-analytic dataset may be structured in a \sQuote{long} format, where each row in the dataset corresponds to a particular study group (e.g., treatment arm). Using this function, such a dataset can be restructured into a \sQuote{wide} format, where each group within a study is contrasted against a particular reference group. The \code{study} and \code{grp} arguments are used to specify the study and group variables in the dataset (either as character strings or as numbers indicating the column positions of these variables in the dataset). Optional argument \code{ref} is used to specify the reference group (this must be one of the groups in the \code{grp} variable). Argument \code{grpvars} is used to specify (either as a character vector or by giving the column positions) of those variables in the dataset that correspond to group-level outcomes (the remaining variables are treated as study-level outcomes). The dataset is restructured so that a two-group study will yield a single row in the restructured dataset, contrasting the first group against the second/reference group. For studies with more than two groups (often called \sQuote{multiarm} or \sQuote{multitreatment} studies in the medical literature), the reference group is repeated as many times as needed (so a three-group study would yield two rows in the restructured dataset, contrasting two groups against a common reference group). If a study does not include the reference group, then another group from the study will be used as the reference group. This group is chosen based on the factor levels of the \code{grp} variable (i.e., the last level that occurs in the study becomes the reference group). To distinguish the names of the group-level outcome variables for the two first and second group in the restructured dataset, the strings given for the \code{postfix} argument are placed after the respective variable names. If requested, row id, comparison id, and design id variables are added to the restructured dataset. The row id is simply a unique number for each row in the dataset. The comparison id variable indicates which two groups have been compared against each other. The design id variable indicates which groups were included in a particular study. The group names are shortened for the comparison and design variables (to at least \code{minlen}; the actual length might be longer to ensure uniqueness of the group names). } \value{ A data frame with rows contrasting groups against a reference group and an appropriate number of columns (depending on the number of group-level outcome variables). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{contrmat}} for a function to construct a contrast matrix based on a dataset in wide format. \code{\link[metadat]{dat.hasselblad1998}}, \code{\link[metadat]{dat.lopez2019}}, \code{\link[metadat]{dat.obrien2003}}, \code{\link[metadat]{dat.pagliaro1992}}, \code{\link[metadat]{dat.senn2013}} for illustrative examples. } \examples{ ### data in long format dat <- dat.senn2013 dat <- dat[c(1,4,3,2,5,6)] dat ### restructure to wide format dat <- to.wide(dat, study="study", grp="treatment", ref="placebo", grpvars=4:6) dat ### data in long format dat <- dat.hasselblad1998 dat ### restructure to wide format dat <- to.wide(dat, study="study", grp="trt", ref="no_contact", grpvars=6:7) dat } \keyword{manip} metafor/man/metafor-package.Rd0000644000176200001440000004122415173343621016007 0ustar liggesusers\name{metafor-package} \alias{metafor-package} \alias{metafor} \docType{package} \title{metafor: A Meta-Analysis Package for R \loadmathjax} \description{ The \pkg{metafor} package provides a comprehensive collection of functions for conducting meta-analyses in \R. The package can be used to calculate a wide variety of effect sizes or outcome measures and allows the user to fit equal-, fixed-, and random-effects models to these data. By including study-level variables (\sQuote{moderators}) as predictors in these models, (mixed-effects) meta-regression models can also be fitted. For meta-analyses of \mjeqn{2 \times 2}{2x2} tables, proportions, incidence rates, and incidence rate ratios, the package also provides specialized methods, including the Mantel-Haenszel method, Peto's method, and a variety of suitable generalized linear mixed-effects models (i.e., mixed-effects logistic and Poisson regression models). For non-independent effects/outcomes (e.g., due to correlated sampling errors, correlated true effects or outcomes, or other forms of clustering), one can fit multilevel and multivariate models. Various methods are available to assess model fit, to identify outliers and/or influential studies, and for conducting sensitivity analyses (e.g., standardized residuals, Cook's distances, leave-one-out analyses). Advanced techniques for hypothesis testing and obtaining confidence intervals (e.g., for the average effect or outcome or for the model coefficients in a meta-regression model) have also been implemented (e.g., the Knapp and Hartung method, permutation tests, cluster-robust inference methods / robust variance estimation). The package also provides functions for creating forest, funnel, radial, normal quantile-quantile, \enc{L'Abbé}{L'Abbe}, Baujat, bubble, and GOSH plots. The presence of publication bias (or more precisely, funnel plot asymmetry or \sQuote{small-study effects}) and its potential impact on the results can be examined via the rank correlation and Egger's regression test, the trim and fill method, the test of excess significance, and by applying a variety of selection models. } \section{The escalc Function}{ [\code{\link{escalc}}] Before a meta-analysis can be conducted, the relevant results from each study must be quantified in such a way that the resulting values can be further aggregated and compared. The \code{\link{escalc}} function can be used to compute a wide variety of effect sizes or \sQuote{outcome measures} (and the corresponding sampling variances) that are often used in meta-analyses (e.g., risk ratios, odds ratios, risk differences, mean differences, standardized mean differences, response ratios / ratios of means, raw or r-to-z transformed correlation coefficients). Measures for quantifying some characteristic of individual groups (e.g., in terms of means, proportions, or incidence rates and transformations thereof), measures of change (e.g., raw and standardized mean changes), and measures of variability (e.g., variability ratios and coefficient of variation ratios) are also available. } \section{The rma.uni Function}{ [\code{\link{rma.uni}}] The various meta-analytic models that are typically used in practice are special cases of the general linear (mixed-effects) model. The \code{\link{rma.uni}} function (with alias \code{\link{rma}}) provides a general framework for fitting such models. The function can be used in combination with any of the effect sizes or outcome measures computed with the \code{\link{escalc}} function or, more generally, any set of estimates (with corresponding sampling variances or standard errors) one would like to analyze. The notation and models underlying the \code{\link{rma.uni}} function are explained below. For a set of \mjseqn{i = 1, \ldots, k} independent studies, let \mjseqn{y_i} denote the observed value of the effect size or outcome measure in the \mjeqn{i\text{th}}{ith} study. Let \mjseqn{\theta_i} denote the corresponding (unknown) true effect/outcome, such that \mjdeqn{y_i \mid \theta_i \sim N(\theta_i, v_i).}{y_i | \theta_i ~ N(\theta_i, v_i).} In other words, the observed effect sizes or outcomes are assumed to be unbiased and normally distributed estimates of the corresponding true effects/outcomes with sampling variances equal to \mjseqn{v_i} (where \mjseqn{v_i} is the square of the standard errors of the estimates). The \mjseqn{v_i} values are assumed to be known. Depending on the outcome measure used, a bias correction, normalizing, and/or variance stabilizing transformation may be necessary to ensure that these assumptions are (at least approximately) true (e.g., the log transformation for odds/risk ratios, the bias correction for standardized mean differences, Fisher's r-to-z transformation for correlations; see \code{\link{escalc}} for further details). According to the \bold{random-effects model}, we assume that \mjeqn{\theta_i \sim N(\mu, \tau^2)}{\theta_i ~ N(\mu, \tau^2)}, that is, the true effects/outcomes are normally distributed with \mjseqn{\mu} denoting the average true effect/outcome and \mjseqn{\tau^2} the variance in the true effects/outcomes (\mjseqn{\tau^2} is therefore often referred to as the amount of \sQuote{heterogeneity} in the true effects/outcomes or the \sQuote{between-study variance}). The random-effects model can also be written as \mjdeqn{y_i = \mu + u_i + \varepsilon_i,}{y_i = \mu + u_i + \epsilon_i,} where \mjeqn{u_i \sim N(0, \tau^2)}{u_i ~ N(0, \tau^2)} and \mjeqn{\varepsilon_i \sim N(0, v_i)}{\epsilon_i ~ N(0, v_i)}. The fitted model provides estimates of \mjseqn{\mu} and \mjseqn{\tau^2}, that is, \mjdeqn{\hat{\mu} = \frac{\sum_{i=1}^k w_i y_i}{\sum_{i=1}^k w_i},}{\mu-hat = \sum w_i y_i / \sum w_i,} where \mjeqn{w_i = 1/(\hat{\tau}^2 + v_i)}{w_i = 1/(\tau-hat^2 + v_i)} and \mjeqn{\hat{\tau}^2}{\tau-hat^2} denotes an estimate of \mjseqn{\tau^2} obtained with one of the many estimators that have described in the literature for this purpose (this is sometimes called the standard \sQuote{inverse-variance} method for random-effects models or the \sQuote{normal-normal} model). A special case of the model above is the \bold{equal-effects model} (also sometimes called the common-effect(s) model) which arises when \mjseqn{\tau^2 = 0}. In this case, the true effects/outcomes are homogeneous (i.e., \mjeqn{\theta_1 = \theta_2 = \ldots = \theta_k \equiv \theta}{\theta_1 = \theta_2 = \ldots = \theta_k = \theta}) and hence we can write the model as \mjdeqn{y_i = \theta + \varepsilon_i,}{y_i = \theta + \epsilon_i,} where \mjseqn{\theta} denotes \emph{the} true effect/outcome in the studies, which is estimated with \mjdeqn{\hat{\theta} = \frac{\sum_{i=1}^k w_i y_i}{\sum_{i=1}^k w_i},}{\theta-hat = \sum w_i y_i / \sum w_i,} where \mjeqn{w_i = 1/v_i}{w_i = 1/v_i} (again, this is the standard \sQuote{inverse-variance} method as described in the meta-analytic literature). Note that the commonly-used term \sQuote{fixed-effects model} is not used here -- for an explanation, see \link[=misc-models]{here}. Study-level variables (often referred to as \sQuote{moderators}) can also be included as predictors in meta-analytic models, leading to so-called \sQuote{meta-regression} models (to examine whether the effects/outcomes tend to be larger/smaller under certain conditions or circumstances). When including moderator variables in a random-effects model, we obtain a \bold{mixed-effects meta-regression model}. This model can be written as \mjdeqn{y_i = \beta_0 + \beta_1 x_{i1} + \beta_2 x_{i2} + \ldots + \beta_{p'} x_{ip'} + u_i + \varepsilon_i,}{y_i = \beta_0 + \beta_1 x_i1 + \beta_2 x_i2 + \ldots + \beta_p' x_ip' + u_i + \epsilon_i,} where \mjeqn{u_i \sim N(0, \tau^2)}{u_i ~ N(0, \tau^2)} and \mjeqn{\varepsilon_i \sim N(0, v_i)}{\epsilon_i ~ N(0, v_i)} as before and \mjeqn{x_{ij}}{x_ij} denotes the value of the \mjeqn{j\text{th}}{jth} moderator variable for the \mjeqn{i\text{th}}{ith} study (letting \mjseqn{p = p' + 1} denote the total number of coefficients in the model including the model intercept). Therefore, \mjseqn{\beta_j} denotes how much the average true effect/outcome differs for studies that differ by one unit on \mjeqn{x_{ij}}{x_ij} and the model intercept \mjseqn{\beta_0} denotes the average true effect/outcome when the values of all moderator variables are equal to zero. The value of \mjseqn{\tau^2} in the mixed-effects model denotes the amount of \sQuote{residual heterogeneity} in the true effects/outcomes (i.e., the amount of variability in the true effects/outcomes that is not accounted for by the moderators included in the model). In matrix notation, the model can also be written as \mjdeqn{y = X\beta + u + \varepsilon,}{y = X\beta + u + \epsilon,} where \mjseqn{y} is a \mjeqn{k \times 1}{k x 1} column vector with the observed effect sizes or outcomes, \mjseqn{X} is the \mjeqn{k \times p}{k x p} model matrix (with the first column equal to 1s for the intercept term), \mjseqn{\beta} is a \mjeqn{p \times 1}{p x 1} column vector with the model coefficients, and \mjseqn{u} and \mjeqn{\varepsilon}{\epsilon} are \mjeqn{k \times 1}{k x 1} column vectors for the random effects and sampling errors, where \mjeqn{\text{Var}[\varepsilon]}{Var[\epsilon]} is a \mjeqn{k \times k}{k x k} diagonal matrix with the \mjseqn{v_i} values along the diagonal and \mjeqn{\text{Var}[u] = \tau^2 I}{Var[u] = \tau^2 I}, where \mjseqn{I} is a \mjeqn{k \times k}{k x k} identity matrix. } \section{The rma.mh Function}{ [\code{\link{rma.mh}}] The Mantel-Haenszel method provides an alternative approach for fitting equal-effects models when dealing with studies providing data in the form of \mjeqn{2 \times 2}{2x2} tables or in the form of event counts (i.e., person-time data) for two groups (Mantel & Haenszel, 1959). The method is particularly advantageous when aggregating a large number of studies with small sample sizes (the so-called sparse data or increasing strata case). The Mantel-Haenszel method is implemented in the \code{\link{rma.mh}} function. It can be used in combination with risk ratios, odds ratios, risk differences, incidence rate ratios, and incidence rate differences. } \section{The rma.peto Function}{ [\code{\link{rma.peto}}] Yet another method that can be used in the context of a meta-analysis of \mjeqn{2 \times 2}{2x2} table data is Peto's method (see Yusuf et al., 1985), implemented in the \code{\link{rma.peto}} function. The method provides an estimate of the (log) odds ratio under an equal-effects model. The method is particularly advantageous when the event of interest is rare, but see the documentation of the function for some caveats. } \section{The rma.glmm Function}{ [\code{\link{rma.glmm}}] Dichotomous response variables and event counts (based on which one can calculate outcome measures such as odds ratios, incidence rate ratios, proportions, and incidence rates) are often assumed to arise from binomial and Poisson distributed data. Meta-analytic models that are directly based on such distributions are implemented in the \code{\link{rma.glmm}} function. These models are essentially special cases of generalized linear mixed-effects models (i.e., mixed-effects logistic and Poisson regression models). For \mjeqn{2 \times 2}{2x2} table data, a mixed-effects conditional logistic model (based on the non-central hypergeometric distribution) is also available. Random/mixed-effects models with dichotomous data are often referred to as \sQuote{binomial-normal} models in the meta-analytic literature. Analogously, for event count data, such models could be referred to as \sQuote{Poisson-normal} models. } \section{The rma.mv Function}{ [\code{\link{rma.mv}}] Standard meta-analytic models assume independence between the observed effect sizes or outcomes obtained from a set of studies. This assumption is often violated in practice. Dependencies can arise for a variety of reasons. For example, the sampling errors and/or true effects/outcomes may be correlated in multiple treatment studies (e.g., when multiple treatment groups are compared with a common control/reference group, such that the data from the control/reference group is used multiple times to compute the observed effect sizes or outcomes) or in multiple endpoint studies (e.g., when more than one effect size estimate or outcome is calculated based on the same sample of subjects due to the use of multiple endpoints or response variables). Correlation among the true effects/outcomes can also arise due to other forms of clustering (e.g., when multiple effects/outcomes derived from the same author, lab, or research group may be more similar to each other than effects/outcomes derived from different authors, labs, or research groups). In ecology and related fields, the shared phylogenetic history of the organisms studied (e.g., plants, fungi, animals) can also induce correlation among the effects/outcomes. The \code{\link{rma.mv}} function can be used to fit suitable meta-analytic multivariate/multilevel models to such data, so that the non-independence in the effects/outcomes is accounted for. Network meta-analyses (also called multiple/mixed treatment comparisons) can also be carried out with this function. } \section{Future Plans and Updates}{ The \pkg{metafor} package is a work in progress and is updated on a regular basis with new functions and options. The development version of the package can be found on GitHub at \url{https://github.com/wviechtb/metafor} and can be installed with: \preformatted{install.packages("remotes") remotes::install_github("wviechtb/metafor")} With \code{metafor.news()}, you can read the \file{NEWS} file of the package after installation. Comments, feedback, and suggestions for improvements are always welcome. } \section{Citing the Package}{ To cite the package, please use the following reference: Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1-48. \doi{10.18637/jss.v036.i03} } \section{Getting Started with the Package}{ The paper mentioned above is a good starting place for those interested in using the package. The purpose of the article is to provide a general overview of the package and its capabilities (as of version 1.4-0). Not all of the functions and options are described in the paper, but it should provide a useful introduction to the package. The paper can be freely downloaded from the URL given above or can be directly loaded with the command \code{vignette("metafor")}. In addition to reading the paper, carefully read this page and then the help pages for the \code{\link{escalc}} and the \code{\link{rma.uni}} functions (or the \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and/or \code{\link{rma.mv}} functions if you intend to use these models/methods). The help pages for these functions provide links to many additional functions, which can be used after fitting a model. You can also read the entire documentation online at \url{https://wviechtb.github.io/metafor/} (where it is nicely formatted and the output from all examples is provided). A (pdf) diagram showing the various functions in the metafor package (and how they are related to each other) can be opened with the command \code{vignette("diagram", package="metafor")}. Finally, additional information about the package, several detailed analysis examples, examples of plots and figures provided by the package (with the corresponding code), some additional tips and notes, and a FAQ can be found on the package website at \url{https://www.metafor-project.org}. } \author{ Wolfgang Viechtbauer \email{wvb@metafor-project.org} \cr package website: \url{https://www.metafor-project.org} \cr author homepage: \verb{https://www.wvbauer.com} \cr Suggestions on how to obtain help with using the package can found on the package website at: \url{https://www.metafor-project.org/doku.php/help} } \references{ Cooper, H., Hedges, L. V., & Valentine, J. C. (Eds.) (2009). \emph{The handbook of research synthesis and meta-analysis} (2nd ed.). New York: Russell Sage Foundation. Hedges, L. V., & Olkin, I. (1985). \emph{Statistical methods for meta-analysis}. San Diego, CA: Academic Press. Mantel, N., & Haenszel, W. (1959). Statistical aspects of the analysis of data from retrospective studies of disease. \emph{Journal of the National Cancer Institute}, \bold{22}(4), 719--748. \verb{https://doi.org/10.1093/jnci/22.4.719} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Yusuf, S., Peto, R., Lewis, J., Collins, R., & Sleight, P. (1985). Beta blockade during and after myocardial infarction: An overview of the randomized trials. \emph{Progress in Cardiovascular Disease}, \bold{27}(5), 335--371. \verb{https://doi.org/10.1016/s0033-0620(85)80003-7} } \keyword{package} metafor/man/update.rma.Rd0000644000176200001440000000464715173343621015031 0ustar liggesusers\name{update.rma} \alias{update} \alias{update.rma} \title{Model Updating for 'rma' Objects} \description{ Function to update and (by default) refit \code{"rma"} models. It does this by extracting the call stored in the object, updating the call, and (by default) evaluating that call. } \usage{ \method{update}{rma}(object, formula., \dots, evaluate=TRUE) } \arguments{ \item{object}{an object of class \code{"rma"}.} \item{formula.}{changes to the formula. See \sQuote{Details}.} \item{\dots}{additional arguments to the call, or arguments with changed values.} \item{evaluate}{logical to specify whether to evaluate the new call or just return the call.} } \details{ For objects of class \code{"rma.uni"}, \code{"rma.glmm"}, and \code{"rma.mv"}, the \code{formula.} argument can be used to update the set of moderators included in the model (see \sQuote{Examples}). } \value{ If \code{evaluate=TRUE} the fitted object, otherwise the updated call. } \author{ Based on \code{\link{update.default}}, with changes made by Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}) so that the formula updating works with the (somewhat non-standard) interface of the \code{\link{rma.uni}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} functions. } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models which can be updated / refit. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model (method="REML" is default) res <- rma(yi, vi, data=dat, digits=3) res ### fit mixed-effects model with two moderators (absolute latitude and publication year) res <- update(res, ~ ablat + year) res ### remove 'year' moderator res <- update(res, ~ . - year) res ### fit model with ML estimation update(res, method="ML") ### example with rma.glmm() res <- rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, digits=3) res <- update(res, mods = ~ ablat) res ### fit conditional model with approximate likelihood update(res, model="CM.AL") } \keyword{models} metafor/man/methods.escalc.Rd0000644000176200001440000000265215173343621015657 0ustar liggesusers\name{methods.escalc} \alias{methods.escalc} \alias{[.escalc} \alias{$<-.escalc} \alias{cbind.escalc} \alias{rbind.escalc} \title{Methods for 'escalc' Objects} \description{ Methods for objects of class \code{"escalc"}. } \usage{ \method{[}{escalc}(x, i, \dots) \method{$}{escalc}(x, name) <- value \method{cbind}{escalc}(\dots, deparse.level=1) \method{rbind}{escalc}(\dots, deparse.level=1) } \arguments{ \item{x}{an object of class \code{"escalc"}.} \item{\dots}{other arguments.} } \note{ For the \code{`[`} method, any variables specified as part of the \code{i} argument will be searched for within object \code{x} first (see \sQuote{Examples}). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### select rows where variable 'alloc' is equal to 'random' dat[dat$alloc == "random",] ### variables specified are automatically searched for within the object itself dat[alloc == "random",] ### note: this behavior is specific to 'escalc' objects; this doesn't work for regular data frames } \keyword{internal} metafor/man/regplot.Rd0000644000176200001440000004411315173343621014435 0ustar liggesusers\name{regplot} \alias{regplot} \alias{regplot.rma} \alias{points.regplot} \title{Scatter Plots / Bubble Plots} \description{ Function to create scatter plots / bubble plots based on meta-regression models. \loadmathjax } \usage{ regplot(x, \dots) \method{regplot}{rma}(x, mod, pred=TRUE, ci=TRUE, pi=FALSE, shade=TRUE, xlim, ylim, predlim, olim, xlab, ylab, at, digits=2L, transf, atransf, targs, level=x$level, pch, psize, plim=c(0.5,3), col, bg, slab, grid=FALSE, refline, label=FALSE, offset=c(1,1), labsize=1, lcol, lwd, lty, legend=FALSE, xvals, \dots) \method{points}{regplot}(x, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}, \code{"rma.mv"}, or \code{"rma.glmm"} including one or multiple moderators (or an object of class \code{"regplot"} for \code{points}).} \item{mod}{either a scalar to specify the position of the moderator variable in the model or a character string to specify the name of the moderator variable.} \item{pred}{logical to specify whether the (marginal) regression line based on the moderator should be added to the plot (the default is \code{TRUE}). Can also be an object from \code{\link[=predict.rma]{predict}}. See \sQuote{Details}.} \item{ci}{logical to specify whether the corresponding confidence interval bounds should be added to the plot (the default is \code{TRUE}).} \item{pi}{logical to specify whether the corresponding prediction interval bounds should be added to the plot (the default is \code{FALSE}).} \item{shade}{logical to specify whether the confidence/prediction interval regions should be shaded (the default is \code{TRUE}). Can also be a two-element character vector to specify the colors for shading the confidence and prediction interval regions (if shading only the former, a single color can also be specified).} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{ylim}{y-axis limits. If unspecified, the function sets the y-axis limits to some sensible values.} \item{predlim}{argument to specify the limits of the (marginal) regression line. If unspecified, the limits are based on the range of the moderator variable.} \item{olim}{argument to specify observation/outcome limits. If unspecified, no limits are used.} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{ylab}{title for the y-axis. If unspecified, the function sets an appropriate axis title.} \item{at}{position of the y-axis tick marks and corresponding labels. If unspecified, the function sets the tick mark positions/labels to some sensible values.} \item{digits}{integer to specify the number of decimal places to which the tick mark labels of the y-axis should be rounded. When specifying an integer (e.g., \code{2L}), trailing zeros after the decimal mark are dropped for the y-axis labels. When specifying a numeric value (e.g., \code{2}), trailing zeros are retained.} \item{transf}{argument to specify a function to transform the observed outcomes, predicted values, and confidence/prediction interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{atransf}{argument to specify a function to transform the y-axis labels (e.g., \code{atransf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{level}{numeric value between 0 and 100 to specify the confidence/prediction interval level (see \link[=misc-options]{here} for details). The default is to take the value from the object.} \item{pch}{plotting symbol to use for the observed outcomes. By default, an open circle is used. Can also be a vector of values. See \code{\link{points}} for other options.} \item{psize}{numeric value to specify the point sizes for the observed outcomes. If unspecified, the point sizes are a function of the model weights. Can also be a vector of values. Can also be a character string (either \code{"seinv"} or \code{"vinv"}) to make the point sizes proportional to the inverse standard errors or inverse sampling variances.} \item{plim}{numeric vector of length 2 to scale the point sizes (ignored when a numeric value or vector is specified for \code{psize}). See \sQuote{Details}.} \item{col}{character string to specify the (border) color of the points. Can also be a vector.} \item{bg}{character string to specify the background color of open plot symbols. Can also be a vector.} \item{slab}{vector with labels for the \mjseqn{k} studies. If unspecified, the function tries to extract study labels from \code{x}.} \item{grid}{logical to specify whether a grid should be added to the plot. Can also be a color name for the grid.} \item{refline}{optional numeric value to specify the location of a horizontal reference line that should be added to the plot.} \item{label}{argument to control the labeling of the points (the default is \code{FALSE}). See \sQuote{Details}.} \item{offset}{argument to control the distance between the points and the corresponding labels. See \sQuote{Details}.} \item{labsize}{numeric value to control the size of the labels.} \item{lcol}{optional vector of (up to) four elements to specify the color of the regression line, of the confidence interval bounds, of the prediction interval bounds, and of the horizontal reference line.} \item{lty}{optional vector of (up to) four elements to specify the line type of the regression line, of the confidence interval bounds, of the prediction interval bounds, and of the horizontal reference line.} \item{lwd}{optional vector of (up to) four elements to specify the line width of the regression line, of the confidence interval bounds, of the prediction interval bounds, and of the horizontal reference line.} \item{legend}{logical to specify whether a legend should be added to the plot (the default is \code{FALSE}). See \sQuote{Details}.} \item{xvals}{optional numeric vector to specify the values of the moderator for which predicted values should be computed. Needs to be specified when passing an object from \code{\link[=predict.rma]{predict}} to the \code{pred} argument. See \sQuote{Details}.} \item{\dots}{other arguments.} } \details{ The function draws a scatter plot of the values of a moderator variable in a meta-regression model (on the x-axis) against the observed effect sizes or outcomes (on the y-axis). The regression line from the model (with corresponding confidence interval bounds) is added to the plot by default. These types of plots are also often referred to as \sQuote{bubble plots} as the points are typically drawn in different sizes to reflect their precision or weight in the model. If the model includes multiple moderators, one must specify via argument \code{mod} either the position (as a number) or the name (as a string) of the moderator variable to place on the x-axis. The regression line then reflects the \sQuote{marginal} relationship between the chosen moderator and the effect sizes or outcomes (i.e., all other moderators except the one being plotted are held constant at their means). By default (i.e., when \code{psize} is not specified), the size of the points is a function of the square root of the model weights. This way, their area is proportional to the weights. However, the point sizes are rescaled so that the smallest point size is \code{plim[1]} and the largest point size is \code{plim[2]}. As a result, their relative sizes (i.e., areas) no longer exactly correspond to their relative weights. If exactly relative point sizes are desired, one can set \code{plim[2]} to \code{NA}, in which case the points are rescaled so that the smallest point size corresponds to \code{plim[1]} and all other points are scaled accordingly. As a result, the largest point may be very large. Alternatively, one can set \code{plim[1]} to \code{NA}, in which case the points are rescaled so that the largest point size corresponds to \code{plim[2]} and all other points are scaled accordingly. As a result, the smallest point may be very small. To avoid the latter, one can also set \code{plim[3]}, which enforces a minimal point size. One can also set \code{psize} to a scalar (e.g., \code{psize=1}) to avoid that the points are drawn in different sizes. One can also specify the point sizes manually by passing a vector of the appropriate length to \code{psize}. Finally, one can also set \code{psize} to either \code{"seinv"} or \code{"vinv"} to make the point sizes proportional to the inverse standard errors or inverse sampling variances. With the \code{label} argument, one can control whether points in the plot will be labeled. If \code{label="all"} (or \code{label=TRUE}), all points in the plot will be labeled. If \code{label="ciout"} or \code{label="piout"}, points falling outside of the confidence/prediction interval will be labeled. Alternatively, one can set this argument to a logical or numeric vector to specify which points should be labeled. The labels are placed above the points when they fall above the regression line and otherwise below. With the \code{offset} argument, one can adjust the distance between the labels and the corresponding points. This can either be a single numeric value, which is used as a multiplicative factor for the point sizes (so that the distance between labels and points is larger for larger points) or a numeric vector with two values, where the first is used as an additive factor independent of the point sizes and the second again as a multiplicative factor for the point sizes. The values are given as percentages of the y-axis range. It may take some trial and error to find two values for the \code{offset} argument so that the labels are placed right next to the boundary of the points. With \code{labsize}, one can control the size of the labels. One can also pass an object from \code{\link[=predict.rma]{predict}} to the \code{pred} argument. This can be useful when the meta-regression model reflects a more complex relationship between the moderator variable and the effect sizes or outcomes (e.g., when using polynomials or splines) or when the model involves interactions. In this case, one also needs to specify the \code{xvals} argument. See \sQuote{Examples}. By setting the \code{legend} argument to \code{TRUE}, a legend is added to the plot. One can also use a keyword for this argument to specify the position of the legend (e.g., \code{legend="topright"}; see \code{\link{legend}} for options). Finally, this argument can also be a list, with elements \code{x}, \code{y}, \code{inset}, and \code{cex}, which are passed on to the corresponding arguments of the \code{\link{legend}} function for even more control (elements not specified are set to defaults). } \note{ For certain types of models, it may not be possible to draw the prediction interval bounds (if this is the case, a warning will be issued). For argument \code{slab} and when specifying vectors for arguments \code{pch}, \code{psize}, \code{col}, \code{bg}, and/or \code{label} (for a logical vector), the variables specified are assumed to be of the same length as the data passed to the model fitting function (and if the \code{data} argument was used in the original model fit, then the variables will be searched for within this data frame first). Any subsetting and removal of studies with missing values is automatically applied to the variables specified via these arguments. If the outcome measure used for creating the plot is bounded (e.g., correlations are bounded between -1 and +1, proportions are bounded between 0 and 1), one can use the \code{olim} argument to enforce those limits (the observed outcomes and confidence/prediction intervals cannot exceed those bounds then). } \value{ An object of class \code{"regplot"} with components: \item{slab}{the study labels} \item{ids}{the study ids} \item{xi}{the x-axis coordinates of the points that were plotted.} \item{yi}{the y-axis coordinates of the points that were plotted.} \item{pch}{the plotting symbols of the points that were plotted.} \item{psize}{the point sizes of the points that were plotted.} \item{col}{the colors of the points that were plotted.} \item{bg}{the background colors of the points that were plotted.} \item{label}{logical vector indicating whether a point was labeled.} Note that the object is returned invisibly. Using \code{points.regplot}, one can redraw the points (and labels) in case one wants to superimpose the points on top of any elements that were added manually to the plot (see \sQuote{Examples}). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Thompson, S. G., & Higgins, J. P. T. (2002). How should meta-regression analyses be undertaken and interpreted? \emph{Statistics in Medicine}, \bold{21}(11), 1559--1573. \verb{https://doi.org/10.1002/sim.1187} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which scatter plots / bubble plots can be drawn. } \examples{ ### copy BCG vaccine data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) ############################################################################ ### fit mixed-effects model with absolute latitude as a moderator res <- rma(yi, vi, mods = ~ ablat, data=dat) res ### draw plot regplot(res, mod="ablat", xlab="Absolute Latitude") ### adjust x-axis limits and back-transform to risk ratios regplot(res, mod="ablat", xlab="Absolute Latitude", xlim=c(0,60), transf=exp) ### also extend the prediction limits for the regression line regplot(res, mod="ablat", xlab="Absolute Latitude", xlim=c(0,60), predlim=c(0,60), transf=exp) ### add the prediction interval to the plot, add a reference line at 1, and add a legend regplot(res, mod="ablat", pi=TRUE, xlab="Absolute Latitude", xlim=c(0,60), predlim=c(0,60), transf=exp, refline=1, legend=TRUE) ### label points outside of the prediction interval regplot(res, mod="ablat", pi=TRUE, xlab="Absolute Latitude", xlim=c(0,60), predlim=c(0,60), transf=exp, refline=1, legend=TRUE, label="piout", labsize=0.8) ############################################################################ ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) res ### plot the marginal relationships regplot(res, mod="ablat", xlab="Absolute Latitude") regplot(res, mod="year", xlab="Publication Year") ############################################################################ ### fit a quadratic polynomial meta-regression model res <- rma(yi, vi, mods = ~ ablat + I(ablat^2), data=dat) res ### compute predicted values using predict() xs <- seq(0,60,length=601) tmp <- predict(res, newmods=cbind(xs, xs^2)) ### can now pass these results to the 'pred' argument (and have to specify xvals accordingly) regplot(res, mod="ablat", pred=tmp, xlab="Absolute Latitude", xlim=c(0,60), xvals=xs) ### back-transform to risk ratios and add reference line regplot(res, mod="ablat", pred=tmp, xlab="Absolute Latitude", xlim=c(0,60), xvals=xs, transf=exp, refline=1) ############################################################################ ### fit a model with an interaction between a quantitative and a categorical predictor ### (note: only for illustration purposes; this model is too complex for this dataset) res <- rma(yi, vi, mods = ~ ablat * alloc, data=dat) res ### draw bubble plot but do not add regression line or CI tmp <- regplot(res, mod="ablat", xlab="Absolute Latitude", xlim=c(0,60), pred=FALSE, ci=FALSE) ### add regression lines for the three alloc levels xs <- seq(0, 60, length=100) preds <- predict(res, newmods=cbind(xs, 0, 0, 0, 0)) lines(xs, preds$pred, lwd=3) preds <- predict(res, newmods=cbind(xs, 1, 0, xs, 0)) lines(xs, preds$pred, lwd=3) preds <- predict(res, newmods=cbind(xs, 0, 1, 0, xs)) lines(xs, preds$pred, lwd=3) ### add points back to the plot (so they are on top of the lines) points(tmp) ############################################################################ ### an example where we place a dichotomous variable on the x-axis ### dichotomize the 'random' variable dat$random <- ifelse(dat$alloc == "random", 1, 0) ### fit mixed-effects model with this dummy variable as moderator res <- rma(yi, vi, mods = ~ random, data=dat) res ### draw bubble plot regplot(res, mod="random") ### draw bubble plot and add a nicer x-axis regplot(res, mod="random", xlab="Method of Treatment Allocation", xaxt="n") axis(side=1, at=c(0,1), labels=c("Non-Random", "Random")) ############################################################################ ### an example where we place a categorical variable with more than two levels ### on the x-axis; this is done with a small trick, representing the moderator ### as a polynomial regression model ### fit mixed-effects model with a three-level factor res <- rma(yi, vi, mods = ~ alloc, data=dat) res ### compute the predicted pooled effect for each level of the factor predict(res, newmods=rbind(alternate=c(0,0), random=c(1,0), systematic=c(0,1))) ### represent the three-level factor as a quadratic polynomial model dat$anum <- as.numeric(factor(dat$alloc)) res <- rma(yi, vi, mods = ~ poly(anum, degree=2, raw=TRUE), data=dat) res ### compute the predicted pooled effect for each level of the factor ### (note that these values are exactly the same as above) pred <- predict(res, newmods=unname(poly(1:3, degree=2, raw=TRUE))) pred ### draw bubble plot, placing the linear (1:3) term on the x-axis and add a ### nicer x-axis for the three levels regplot(res, mod=2, pred=pred, xvals=c(1:3), xlim=c(1,3), xlab="Allocation Method", xaxt="n") axis(side=1, at=1:3, labels=levels(factor(dat$alloc))) ############################################################################ } \keyword{hplot} metafor/man/tes.Rd0000644000176200001440000002471615173343621013563 0ustar liggesusers\name{tes} \alias{tes} \alias{print.tes} \title{Test of Excess Significance} \description{ Function to conduct the test of excess significance. \loadmathjax } \usage{ tes(x, vi, sei, subset, data, H0=0, alternative="two.sided", alpha=.05, theta, tau2, test, tes.alternative="greater", progbar=TRUE, tes.alpha=.10, digits, \dots) \method{print}{tes}(x, digits=x$digits, \dots) } \arguments{ \emph{These arguments pertain to data input:} \item{x}{a vector with the observed effect sizes or outcomes or an object of class \code{"rma"}.} \item{vi}{vector with the corresponding sampling variances (ignored if \code{x} is an object of class \code{"rma"}).} \item{sei}{vector with the corresponding standard errors (note: only one of the two, \code{vi} or \code{sei}, needs to be specified).} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be included (ignored if \code{x} is an object of class \code{"rma"}).} \item{data}{optional data frame containing the variables given to the arguments above.} \emph{These arguments pertain to the tests of the observed effect sizes or outcomes:} \item{H0}{numeric value to specify the value of the effect size or outcome under the null hypothesis (the default is 0).} \item{alternative}{character string to specify the sidedness of the hypothesis when testing the observed effect sizes or outcomes. Possible options are \code{"two.sided"} (the default), \code{"greater"}, or \code{"less"}. Can be abbreviated.} \item{alpha}{alpha level for testing the observed effect sizes or outcomes (the default is .05).} \emph{These arguments pertain to the power of the tests:} \item{theta}{optional numeric value to specify the value of the true effect size or outcome under the alternative hypothesis. If unspecified, it will be estimated based on the data or the value is taken from the \code{"rma"} object.} \item{tau2}{optional numeric value to specify the amount of heterogeneity in the true effect sizes or outcomes. If unspecified, the true effect sizes or outcomes are assumed to be homogeneous or the value is taken from the \code{"rma"} object.} \emph{These arguments pertain to the test of excess significance:} \item{test}{optional character string to specify the type of test to use for conducting the test of excess significance. Possible options are \code{"chi2"}, \code{"binom"}, or \code{"exact"}. Can be abbreviated. If unspecified, the function chooses the type of test based on the data.} \item{tes.alternative}{character string to specify the sidedness of the hypothesis for the test of excess significance. Possible options are \code{"greater"} (the default), \code{"two.sided"}, or \code{"less"}. Can be abbreviated.} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{TRUE}). Only relevant when conducting an exact test.} \item{tes.alpha}{alpha level for the test of excess significance (the default is .10). Only relevant for finding the \sQuote{limit estimate}.} \emph{Miscellaneous arguments:} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} \item{\dots}{other arguments.} } \details{ The function carries out the test of excess significance described by Ioannidis and Trikalinos (2007). The test can be used to examine whether the observed number of significant findings is greater than the number of significant findings expected given the power of the tests. An overabundance of significant tests may suggest that the collection of studies is not representative of all studies conducted on a particular topic. One can either pass a vector with the observed effect sizes or outcomes (via \code{x}) and the corresponding sampling variances via \code{vi} (or the standard errors via \code{sei}) to the function or an object of class \code{"rma"}. The observed effect sizes or outcomes are tested for significance based on a standard Wald-type test, that is, by comparing \mjdeqn{z_i = \frac{y_i - \text{H}_0}{\sqrt{v_i}}}{z_i = (y_i - H_0) / sqrt(v_i)} against the appropriate critical value(s) of a standard normal distribution (e.g., \mjeqn{\pm 1.96}{±1.96} for \code{alternative="two.sided"} and \code{alpha=.05}, which are the defaults). Let \mjseqn{O} denote the observed number of significant tests. Given a particular value for the true effect or outcome denoted by \mjseqn{\theta} (which, if it is unspecified, is determined by computing the inverse-variance weighted average of the observed effect sizes or outcomes or the value is taken from the model object), let \mjseqn{1-\beta_i} denote the power of the \mjeqn{i\text{th}}{ith} test (where \mjseqn{\beta_i} denotes the Type II error probability). If \mjteqn{\tau^2 > 0}{\tau^2 \gt 0}{\tau^2 > 0}, let \mjseqn{1-\beta_i} denote the expected power (computed based on integrating the power over a normal distribution with mean \mjseqn{\theta} and variance \mjseqn{\tau^2}). Let \mjseqn{E = \sum_{i=1}^k (1-\beta_i)} denote the expected number of significant tests. The test of excess significance then tests if \mjseqn{O} is significantly greater (if \code{tes.alternative="greater"}) than \mjseqn{E}. This can be done using Pearson's chi-square test (if \code{test="chi2"}), a binomial test (if \code{test="binomial"}), or an exact test (if \code{test="exact"}). The latter is described in Francis (2013). If argument \code{test} is unspecified, the default is to do an exact test if the number of elements in the sum that needs to be computed is less than or equal to \code{10^6} and to do a chi-square test otherwise. One can also iteratively find the value of \mjseqn{\theta} such that the p-value of the test of excess significance is equal to \code{tes.alpha} (which is \code{.10} by default). The resulting value is called the \sQuote{limit estimate} and is denoted \mjeqn{\theta_{lim}}{\theta_lim} by Ioannidis and Trikalinos (2007). Note that the limit estimate is not computable if the p-value is larger than \code{tes.alpha} even if \mjeqn{\theta = \text{H}_0}{\theta = H_0}. } \value{ An object of class \code{"tes"}. The object is a list containing the following components: \item{k}{the number of studies included in the analysis.} \item{O}{the observed number of significant tests.} \item{E}{the expected number of significant tests.} \item{OEratio}{the ratio of O over E.} \item{test}{the type of test conducted.} \item{pval}{the p-value of the test of excess significance.} \item{power}{the (estimated) power of the tests.} \item{sig}{logical vector indicating which tests were significant.} \item{theta}{the value of \mjseqn{\theta} used for computing the power of the tests.} \item{theta.lim}{the \sQuote{limit estimate} (i.e., \mjeqn{\theta_{lim}}{\theta_lim}).} \item{\dots}{some additional elements/values.} The results are formatted and printed with the \code{print} function. } \note{ When \code{tes.alternative="greater"} (the default), then the function tests if \mjseqn{O} is significantly greater than \mjseqn{E} and hence this is indeed a test of excess significance. When \code{tes.alternative="two.sided"}, then the function tests if \mjseqn{O} differs significantly from \mjseqn{E} in either direction and hence it would be more apt to describe this as a test of (in)consistency (between \mjseqn{O} and \mjseqn{E}). Finally, one can also set \code{tes.alternative="less"}, in which case the function tests if \mjseqn{O} is significantly lower than \mjseqn{E}, which could be considered a test of excess non-significance. When \code{tes.alternative="two.sided"}, one can actually compute two limit estimates. The function attempts to compute both. The function computes the significance and power of the studies based on Wald-type tests regardless of the effect size or outcome measure used as input. This works as an adequate approximation as long as the within-study sample sizes are not too small. Note that the test is not a test for publication bias but a test whether the set of studies includes an unusual number of significant findings given the power of the studies. The general usefulness of the test and its usefulness under particular circumstances (e.g., when there is substantial heterogeneity in the true effect sizes or outcomes) has been the subject of considerable debate. See Francis (2013) and the commentaries on this article in the same issue of the journal. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Francis, G. (2013). Replication, statistical consistency, and publication bias. \emph{Journal of Mathematical Psychology}, \bold{57}(5), 153--169. \verb{https://doi.org/10.1016/j.jmp.2013.02.003} Ioannidis, J. P. A., & Trikalinos, T. A. (2007). An exploratory test for an excess of significant findings. \emph{Clinical Trials}, \bold{4}(3), 245--253. \verb{https://doi.org/10.1177/1740774507079441} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{regtest}} for the regression test, \code{\link{ranktest}} for the rank correlation test, \code{\link{trimfill}} for the trim and fill method, \code{\link{fsn}} to compute the fail-safe N (file drawer analysis), and \code{\link{selmodel}} for selection models. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=x.a, n1i=n.a, ci=x.p, n2i=n.p, data=dat.dorn2007) ### conduct test of excess significance (using test="chi2" to speed things up) tes(yi, vi, data=dat, test="chi2") ### same as fitting an EE model and then passing the object to the function res <- rma(yi, vi, data=dat, method="EE") tes(res, test="chi2") ### illustrate limit estimate (value of theta where p-value of test is equal to tes.alpha) thetas <- seq(0,1,length=101) pvals <- sapply(thetas, function(theta) tes(yi, vi, data=dat, test="chi2", theta=theta)$pval) plot(thetas, pvals, type="o", pch=19, ylim=c(0,1)) sav <- tes(yi, vi, data=dat, test="chi2") abline(h=sav$tes.alpha, lty="dotted") abline(v=sav$theta.lim, lty="dotted") ### examine significance of test as a function of alpha (to examine 'significance chasing') alphas <- seq(.01,.99,length=101) pvals <- sapply(alphas, function(alpha) tes(yi, vi, data=dat, test="chi2", alpha=alpha)$pval) plot(alphas, pvals, type="o", pch=19, ylim=c(0,1)) abline(v=.05, lty="dotted") abline(h=.10, lty="dotted") } \keyword{htest} metafor/man/coef.permutest.rma.uni.Rd0000644000176200001440000000412515173343621017273 0ustar liggesusers\name{coef.permutest.rma.uni} \alias{coef.permutest.rma.uni} \title{Extract the Model Coefficient Table from 'permutest.rma.uni' Objects} \description{ Function to extract the estimated model coefficients, corresponding standard errors, test statistics, p-values (based on the permutation tests), and confidence interval bounds from objects of class \code{"permutest.rma.uni"}. } \usage{ \method{coef}{permutest.rma.uni}(object, \dots) } \arguments{ \item{object}{an object of class \code{"permutest.rma.uni"}.} \item{\dots}{other arguments.} } \value{ A data frame with the following elements: \item{estimate}{estimated model coefficient(s).} \item{se}{corresponding standard error(s).} \item{zval}{corresponding test statistic(s).} \item{pval}{p-value(s) based on the permutation test(s).} \item{ci.lb}{lower bound of the (permutation-based) confidence interval(s).} \item{ci.ub}{upper bound of the (permutation-based) confidence interval(s).} When the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}, then \code{zval} is called \code{tval} in the data frame that is returned by the function. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=permutest.rma.uni]{permutest}} for the function to conduct permutation tests and \code{\link{rma.uni}} for the function to fit models for which permutation tests can be conducted. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### carry out permutation test \dontrun{ set.seed(1234) # for reproducibility sav <- permutest(res) coef(sav) } } \keyword{models} metafor/man/addpoly.Rd0000644000176200001440000000416215173343621014415 0ustar liggesusers\name{addpoly} \alias{addpoly} \title{Add Polygons to Forest Plots} \description{ Function to add polygons (sometimes called \sQuote{diamonds}) to a forest plot, for example to show pooled estimates for subgroups of studies or to show fitted/predicted values based on models involving moderators. } \usage{ addpoly(x, \dots) } \arguments{ \item{x}{either an object of class \code{"rma"}, an object of class \code{"predict.rma"}, or the values at which polygons should be drawn. See \sQuote{Details}.} \item{\dots}{other arguments.} } \details{ Currently, methods exist for three types of situations. In the first case, object \code{x} is a fitted model coming from the \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, or \code{\link{rma.mv}} functions. The model must either be an equal- or a random-effects model, that is, the model should not contain any moderators. The corresponding method is \code{\link{addpoly.rma}}. It can be used to add a polygon to an existing forest plot (usually at the bottom), showing the pooled estimate (with its confidence interval) based on the fitted model. Alternatively, \code{x} can be an object of class \code{"predict.rma"} obtained with the \code{\link[=predict.rma]{predict}} function. In this case, polygons based on the predicted values are drawn. The corresponding method is \code{\link{addpoly.predict.rma}}. Alternatively, object \code{x} can be a vector with the values at which one or more polygons should be drawn. The corresponding method is \code{\link{addpoly.default}}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{addpoly.rma}}, \code{\link{addpoly.predict.rma}}, and \code{\link{addpoly.default}} for the specific method functions. \code{\link{forest}} for functions to draw forest plots to which polygons can be added. } \keyword{aplot} metafor/man/macros/0000755000176200001440000000000013722772107013756 5ustar liggesusersmetafor/man/macros/metafor.Rd0000644000176200001440000000021514161317561015675 0ustar liggesusers\newcommand{\icsl}{\out{\hspace*{0.1em}}} \newcommand{\icsh}{\out{ }} \newcommand{\ics}{\ifelse{latex}{\icsl}{\ifelse{html}{\icsh}{ }}} metafor/man/fitstats.Rd0000644000176200001440000000720515173343621014623 0ustar liggesusers\name{fitstats} \alias{fitstats} \alias{logLik} \alias{deviance} \alias{AIC} \alias{BIC} \alias{nobs} \alias{df.residual} \alias{fitstats.rma} \alias{logLik.rma} \alias{deviance.rma} \alias{AIC.rma} \alias{BIC.rma} \alias{nobs.rma} \alias{df.residual.rma} \title{Fit Statistics and Information Criteria for 'rma' Objects} \description{ Functions to extract the log-likelihood, deviance, AIC, BIC, and AICc values from objects of class \code{"rma"}. \loadmathjax } \usage{ fitstats(object, \dots) \method{fitstats}{rma}(object, \dots, REML) \method{logLik}{rma}(object, REML, \dots) \method{deviance}{rma}(object, REML, \dots) \method{AIC}{rma}(object, \dots, k=2, correct=FALSE) \method{BIC}{rma}(object, \dots) } \arguments{ \item{object}{an object of class \code{"rma"}.} \item{\dots}{optionally more fitted model objects (only for \code{fitstats()}, \code{AIC()}, and \code{BIC()}).} \item{REML}{logical to specify whether the regular or restricted likelihood function should be used to obtain the fit statistics and information criteria. Defaults to the method of estimation used (i.e., \code{TRUE} if \code{object} was fitted with \code{method="REML"} and \code{FALSE} otherwise).} \item{k}{numeric value to specify the penalty per parameter. The default (\code{k=2}) is the classical AIC. See \code{\link{AIC}} for more details.} \item{correct}{logical to specify whether the regular (default) or corrected (i.e., AICc) should be extracted.} } \value{ For \code{fitstats}, a data frame with the (restricted) log-likelihood, deviance, AIC, BIC, and AICc values for each model passed to the function. For \code{logLik}, an object of class \code{"logLik"}, providing the (restricted) log-likelihood of the model evaluated at the estimated coefficient(s). For \code{deviance}, a numeric value with the corresponding deviance. For \code{AIC} and \code{BIC}, either a numeric value with the corresponding AIC, AICc, or BIC or a data frame with rows corresponding to the models and columns representing the number of parameters in the model (\code{df}) and the AIC, AICc, or BIC. } \note{ Variance components in the model (e.g., \mjseqn{\tau^2} in random/mixed-effects models fitted with \code{\link{rma.uni}}) are counted as additional parameters in the calculation of the AIC, BIC, and AICc. Also, the fixed effects are counted as parameters in the calculation of the AIC, BIC, and AICc even when using REML estimation. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which fit statistics and information criteria can be extracted. \code{\link[=anova.rma]{anova}} for a function to conduct likelihood ratio tests. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### random-effects model res1 <- rma(yi, vi, data=dat, method="ML") ### mixed-effects model with absolute latitude and publication year as moderators res2 <- rma(yi, vi, mods = ~ ablat + year, data=dat, method="ML") ### compare fit statistics fitstats(res1, res2) ### log-likelihoods logLik(res1) logLik(res2) ### deviances deviance(res1) deviance(res2) ### AIC, AICc, and BIC values AIC(res1, res2) AIC(res1, res2, correct=TRUE) BIC(res1, res2) } \keyword{models} metafor/man/trimfill.Rd0000644000176200001440000001613415173343621014605 0ustar liggesusers\name{trimfill} \alias{trimfill} \alias{trimfill.rma.uni} \title{Trim and Fill Analysis for 'rma.uni' Objects} \description{ Function to carry out a trim and fill analysis for objects of class \code{"rma.uni"}. \loadmathjax } \usage{ trimfill(x, \dots) \method{trimfill}{rma.uni}(x, side, estimator="L0", maxiter=100, verbose=FALSE, ilim, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}.} \item{side}{optional character string (either \code{"left"} or \code{"right"}) to specify on which side of the funnel plot the missing studies should be imputed. If left unspecified, the side is chosen within the function depending on the results of the regression test (see \code{\link{regtest}} for details on this test).} \item{estimator}{character string (either \code{"L0"}, \code{"R0"}, or \code{"Q0"}) to specify the estimator for the number of missing studies (the default is \code{"L0"}).} \item{maxiter}{integer to specify the maximum number of iterations for the trim and fill method (the default is \code{100}).} \item{verbose}{logical to specify whether output should be generated on the progress of the iterative algorithm used as part of the trim and fill method (the default is \code{FALSE}).} \item{ilim}{limits for the imputed values. If unspecified, no limits are used.} \item{\dots}{other arguments.} } \details{ The trim and fill method is a nonparametric (rank-based) data augmentation technique proposed by Duval and Tweedie (2000a, 2000b; see also Duval, 2005). The method can be used to estimate the number of studies missing from a meta-analysis due to suppression of the most extreme results on one side of the funnel plot. The method then augments the observed data so that the funnel plot is more symmetric and recomputes the pooled estimate based on the complete data. The trim and fill method can only be used in the context of an equal- or a random-effects model (i.e., in models without moderators). The method should not be regarded as a way of yielding a more \sQuote{valid} estimate of the overall effect or outcome, but as a way of examining the sensitivity of the results to one particular selection mechanism (i.e., one particular form of publication bias). } \value{ An object of class \code{c("rma.uni.trimfill","rma.uni","rma")}. The object is a list containing the same components as objects created by \code{\link{rma.uni}}, except that the data are augmented by the trim and fill method. The following components are also added: \item{k0}{estimated number of missing studies.} \item{side}{either \code{"left"} or \code{"right"}, indicating on which side of the funnel plot the missing studies (if any) were imputed.} \item{se.k0}{standard error of k0.} \item{p.k0}{p-value for the test of \mjeqn{\text{H}_0}{H_0}: no missing studies on the chosen side (only when \code{estimator="R0"}; \code{NA} otherwise).} \item{yi}{the observed effect sizes or outcomes plus the imputed values (if there are any).} \item{vi}{the corresponding sampling variances} \item{fill}{a logical vector indicating which of the values in \code{yi} are the observed (\code{FALSE}) and the imputed (\code{TRUE}) data.} The results of the fitted model after the data augmentation are printed with the \code{\link[=print.rma.uni]{print}} function. Calling \code{\link[=funnel.rma]{funnel}} on the object provides a funnel plot of the observed and imputed data. } \note{ Three different estimators for the number of missing studies were proposed by Duval and Tweedie (2000a, 2000b). Based on these articles and Duval (2005), \code{"R0"} and \code{"L0"} are recommended. An advantage of estimator \code{"R0"} is that it provides a test of the null hypothesis that the number of missing studies (on the chosen side) is zero. If the outcome measure used for the analysis is bounded (e.g., correlations are bounded between -1 and +1, proportions are bounded between 0 and 1), one can use the \code{ilim} argument to enforce those limits when imputing values (imputed values cannot exceed those bounds then). The model used during the trim and fill procedure is the same as used by the original model object. Hence, if an equal-effects model is passed to the function, then an equal-effects model is also used during the trim and fill procedure and the results provided are also based on an equal-effects model. This would be an \sQuote{equal-equal} approach. Similarly, if a random-effects model is passed to the function, then the same model is used as part of the trim and fill procedure and for the final analysis. This would be a \sQuote{random-random} approach. However, one can also easily fit a different model for the final analysis than was used for the trim and fill procedure. See \sQuote{Examples} for an illustration of an \sQuote{equal-random} approach. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Duval, S. J., & Tweedie, R. L. (2000a). Trim and fill: A simple funnel-plot-based method of testing and adjusting for publication bias in meta-analysis. \emph{Biometrics}, \bold{56}(2), 455--463. \verb{https://doi.org/10.1111/j.0006-341x.2000.00455.x} Duval, S. J., & Tweedie, R. L. (2000b). A nonparametric "trim and fill" method of accounting for publication bias in meta-analysis. \emph{Journal of the American Statistical Association}, \bold{95}(449), 89--98. \verb{https://doi.org/10.1080/01621459.2000.10473905} Duval, S. J. (2005). The trim and fill method. In H. R. Rothstein, A. J. Sutton, & M. Borenstein (Eds.) \emph{Publication bias in meta-analysis: Prevention, assessment, and adjustments} (pp. 127--144). Chichester, England: Wiley. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=funnel.rma]{funnel}} for a function to create funnel plots of the observed and augmented data. \code{\link{regtest}} for the regression test, \code{\link{ranktest}} for the rank correlation test, \code{\link{tes}} for the test of excess significance, \code{\link{fsn}} to compute the fail-safe N (file drawer analysis), and \code{\link{selmodel}} for selection models. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### meta-analysis of the log risk ratios using an equal-effects model res <- rma(yi, vi, data=dat, method="EE") taf <- trimfill(res) taf funnel(taf, cex=1.2, legend=list(show="cis")) ### estimator "R0" also provides test of H0: no missing studies (on the chosen side) taf <- trimfill(res, estimator="R0") taf ### meta-analysis of the log risk ratios using a random-effects model res <- rma(yi, vi, data=dat) taf <- trimfill(res) taf funnel(taf, cex=1.2, legend=list(show="cis")) ### the examples above are equal-equal and random-random approaches ### illustration of an equal-random approach res <- rma(yi, vi, data=dat, method="EE") taf <- trimfill(res) filled <- data.frame(yi = taf$yi, vi = taf$vi, fill = taf$fill) filled rma(yi, vi, data=filled) } \keyword{models} metafor/man/plot.cumul.rma.Rd0000644000176200001440000001022115173343621015632 0ustar liggesusers\name{plot.cumul.rma} \alias{plot.cumul.rma} \title{Plot Method for 'cumul.rma' Objects} \description{ Function to plot objects of class \code{"cumul.rma"}. \loadmathjax } \usage{ \method{plot}{cumul.rma}(x, yaxis, xlim, ylim, xlab, ylab, at, transf, atransf, targs, digits, cols, grid=TRUE, pch=19, cex=1, lwd=2, \dots) } \arguments{ \item{x}{an object of class \code{"cumul.rma"} obtained with \code{\link{cumul}}.} \item{yaxis}{either \code{"tau2"}, \code{"I2"}, or \code{"H2"} to specify what values should be placed on the y-axis. See \sQuote{Details}.} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{ylim}{y-axis limits. If unspecified, the function sets the y-axis limits to some sensible values.} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{ylab}{title for the y-axis. If unspecified, the function sets an appropriate axis title.} \item{at}{position of the x-axis tick marks and corresponding labels. If unspecified, the function sets the tick mark positions/labels to some sensible values.} \item{transf}{optional argument to specify a function to transform the pooled estimates (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{atransf}{optional argument to specify a function to transform the x-axis labels (e.g., \code{atransf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{digits}{optional integer to specify the number of decimal places to which the tick mark labels of the x- and y-axis should be rounded. Can also be a vector of two integers, the first to specify the number of decimal places for the x-axis, the second for the y-axis labels (e.g., \code{digits=c(2,3)}). If unspecified, the function tries to set the argument to some sensible values.} \item{cols}{vector with two or more colors for visualizing the order of the cumulative results.} \item{grid}{logical to specify whether a grid should be added to the plot. Can also be a color name.} \item{pch}{plotting symbol to use. By default, a filled circle is used. See \code{\link{points}} for other options.} \item{cex}{symbol expansion factor.} \item{lwd}{line width.} \item{\dots}{other arguments.} } \details{ The function can be used to visualize the results from a cumulative meta-analysis as obtained with the \code{\link{cumul}} function. The plot shows the model estimate (i.e., the estimated overall/average outcome) on the x-axis and some measure of heterogeneity on the y-axis in the cumulative order of the results in the \code{"cumul.rma"} object. By default, \mjseqn{\tau^2} is shown on the y-axis for a random-effects model and \mjseqn{I^2} otherwise, but one can also use argument \code{yaxis} to specify the measure of heterogeneity to place on the y-axis. The color gradient of the points/lines indicates the order of the cumulative results (by default, light gray at the beginning, dark gray at the end). A different set of colors can be chosen via the \code{cols} argument. See \sQuote{Examples}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=cumul.rma.uni]{cumul}} for the function to conduct a cumulative meta-analysis. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### random-effects model res <- rma(yi, vi, data=dat) ### cumulative meta-analysis (in the order of publication year) sav <- cumul(res, order=year) ### plot of model estimate and tau^2 over time plot(sav) ### illustrate some other plot options plot(sav, yaxis="I2", ylim=c(0,100), transf=exp, xlim=c(0.25,0.55), lwd=5, cex=1.5, cols=c("green","blue","red")) } \keyword{hplot} metafor/man/rma.mh.Rd0000644000176200001440000003734415173343621014153 0ustar liggesusers\name{rma.mh} \alias{rma.mh} \title{Meta-Analysis via the Mantel-Haenszel Method} \description{ Function to fit equal-effects models to \mjeqn{2 \times 2}{2x2} table and person-time data via the Mantel-Haenszel method. See below and the introduction to the \pkg{\link{metafor-package}} for more details on these models. \loadmathjax } \usage{ rma.mh(ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, measure="OR", data, slab, subset, add=1/2, to="only0", drop00=TRUE, correct=TRUE, level=95, verbose=FALSE, digits, \dots) } \arguments{ \emph{These arguments pertain to data input:} \item{ai}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper left cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{bi}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper right cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{ci}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower left cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{di}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower right cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{n1i}{vector with the group sizes or row totals (first group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{n2i}{vector with the group sizes or row totals (second group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{x1i}{vector with the number of events (first group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{x2i}{vector with the number of events (second group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{t1i}{vector with the total person-times (first group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{t2i}{vector with the total person-times (second group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{measure}{character string to specify the outcome measure to use for the meta-analysis. Possible options are \code{"RR"} for the (log transformed) risk ratio, \code{"OR"} for the (log transformed) odds ratio, \code{"RD"} for the risk difference, \code{"IRR"} for the (log transformed) incidence rate ratio, or \code{"IRD"} for the incidence rate difference.} \item{data}{optional data frame containing the data supplied to the function.} \item{slab}{optional vector with labels for the \mjseqn{k} studies.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be used for the analysis.} \emph{These arguments pertain to handling of zero cells/counts/frequencies:} \item{add}{non-negative number to specify the amount to add to zero cells or even counts when calculating the observed effect sizes of the individual studies. Can also be a vector of two numbers, where the first number is used in the calculation of the observed effect sizes and the second number is used when applying the Mantel-Haenszel method. See below and the documentation of the \code{\link{escalc}} function for more details.} \item{to}{character string to specify when the values under \code{add} should be added (either \code{"only0"}, \code{"all"}, \code{"if0all"}, or \code{"none"}). Can also be a character vector, where the first string again applies when calculating the observed effect sizes or outcomes and the second string when applying the Mantel-Haenszel method. See below and the documentation of the \code{\link{escalc}} function for more details.} \item{drop00}{logical to specify whether studies with no cases/events (or only cases) in both groups should be dropped when calculating the observed effect sizes or outcomes (the outcomes for such studies are set to \code{NA}). Can also be a vector of two logicals, where the first applies to the calculation of the observed effect sizes or outcomes and the second when applying the Mantel-Haenszel method. See below and the documentation of the \code{\link{escalc}} function for more details.} \emph{These arguments pertain to the model / computations and output:} \item{correct}{logical to specify whether to apply a continuity correction when computing the Cochran-Mantel-Haenszel test statistic.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{verbose}{logical to specify whether output should be generated on the progress of the model fitting (the default is \code{FALSE}).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is 4. See also \link[=misc-options]{here} for further details on how to control the number of digits in the output.} \item{\dots}{additional arguments.} } \details{ \subsection{Specifying the Data}{ When the outcome measure is either the risk ratio (measure=\code{"RR"}), odds ratio (\code{measure="OR"}), or risk difference (\code{measure="RD"}), the studies are assumed to provide data in terms of \mjeqn{2 \times 2}{2x2} tables of the form: \tabular{lcccccc}{ \tab \ics \tab outcome 1 \tab \ics \tab outcome 2 \tab \ics \tab total \cr group 1 \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \tab \ics \tab \code{n1i} \cr group 2 \tab \ics \tab \code{ci} \tab \ics \tab \code{di} \tab \ics \tab \code{n2i}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies and \code{n1i} and \code{n2i} the row totals. For example, in a set of randomized clinical trials (RCTs) or cohort studies, group 1 and group 2 may refer to the treatment/exposed and placebo/control/non-exposed group, respectively, with outcome 1 denoting some event of interest (e.g., death) and outcome 2 its complement. In a set of case-control studies, group 1 and group 2 may refer to the group of cases and the group of controls, with outcome 1 denoting, for example, exposure to some risk factor and outcome 2 non-exposure. For these outcome measures, one needs to specify the cell frequencies via the \code{ai}, \code{bi}, \code{ci}, and \code{di} arguments (or alternatively, one can use the \code{ai}, \code{ci}, \code{n1i}, and \code{n2i} arguments). Alternatively, when the outcome measure is the incidence rate ratio (\code{measure="IRR"}) or the incidence rate difference (\code{measure="IRD"}), the studies are assumed to provide data in terms of tables of the form: \tabular{lcccc}{ \tab \ics \tab events \tab \ics \tab person-time \cr group 1 \tab \ics \tab \code{x1i} \tab \ics \tab \code{t1i} \cr group 2 \tab \ics \tab \code{x2i} \tab \ics \tab \code{t2i}} where \code{x1i} and \code{x2i} denote the number of events in the first and the second group, respectively, and \code{t1i} and \code{t2i} the corresponding total person-times at risk. } \subsection{Mantel-Haenszel Method}{ An approach for aggregating data of these types was suggested by Mantel and Haenszel (1959) and later extended by various authors (see references). The Mantel-Haenszel method provides a weighted estimate under an equal-effects model. The method is particularly advantageous when aggregating a large number of studies with small sample sizes (the so-called sparse data or increasing strata case). When analyzing odds ratios, the Cochran-Mantel-Haenszel (CMH) test (Cochran, 1954; Mantel & Haenszel, 1959) and Tarone's test for heterogeneity (Tarone, 1985) are also provided (by default, the CMH test statistic is computed with the continuity correction; this can be switched off with \code{correct=FALSE}). When analyzing incidence rate ratios, the Mantel-Haenszel (MH) test (Rothman et al., 2008) for person-time data is also provided (again, the \code{correct} argument controls whether the continuity correction is applied). When analyzing risk ratios, odds ratios, or incidence rate ratios, the printed results are given both in terms of the log and the raw units (for easier interpretation). } \subsection{Observed Effect Sizes or Outcomes of the Individual Studies}{ The Mantel-Haenszel method itself does not require the calculation of the observed effect sizes of the individual studies (e.g., the observed log odds ratios of the \mjseqn{k} studies) and directly makes use of the cell/event counts. Zero cells/events are not a problem (except in extreme cases, such as when one of the two outcomes never occurs in any of the \mjeqn{2 \times 2}{2x2} tables or when there are no events for one of the two groups in any of the tables). Therefore, it is unnecessary to add some constant to the cell/event counts when there are zero cells/events. However, for plotting and various other functions, it is necessary to calculate the observed effect sizes for the \mjseqn{k} studies. Here, zero cells/events can be problematic, so adding a constant value to the cell/event counts ensures that all \mjseqn{k} values can be calculated. The \code{add} and \code{to} arguments are used to specify what value should be added to the cell/event counts and under what circumstances when calculating the observed effect sizes and when applying the Mantel-Haenszel method. Similarly, the \code{drop00} argument is used to specify how studies with no cases/events (or only cases) in both groups should be handled. The documentation of the \code{\link{escalc}} function explains how the \code{add}, \code{to}, and \code{drop00} arguments work. If only a single value for these arguments is specified (as per default), then these values are used when calculating the observed effect sizes and no adjustment to the cell/event counts is made when applying the Mantel-Haenszel method. Alternatively, when specifying two values for these arguments, the first value applies when calculating the observed effect sizes and the second value when applying the Mantel-Haenszel method. Note that \code{drop00} is set to \code{TRUE} by default. Therefore, the observed effect sizes for studies where \code{ai=ci=0} or \code{bi=di=0} or studies where \code{x1i=x2i=0} are set to \code{NA}. When applying the Mantel-Haenszel method, such studies are not explicitly dropped (unless the second value of \code{drop00} argument is also set to \code{TRUE}), but this is practically not necessary, as they do not actually influence the results (assuming no adjustment to the cell/event counts are made when applying the Mantel-Haenszel method). } } \value{ An object of class \code{c("rma.mh","rma")}. The object is a list containing the following components: \item{beta}{aggregated log risk ratio, log odds ratio, risk difference, log rate ratio, or rate difference.} \item{se}{standard error of the aggregated value.} \item{zval}{test statistics of the aggregated value.} \item{pval}{corresponding p-value.} \item{ci.lb}{lower bound of the confidence interval.} \item{ci.ub}{upper bound of the confidence interval.} \item{QE}{test statistic of the test for heterogeneity.} \item{QEp}{correspinding p-value.} \item{MH}{Cochran-Mantel-Haenszel test statistic (\code{measure="OR"}) or Mantel-Haenszel test statistic (\code{measure="IRR"}).} \item{MHp}{corresponding p-value.} \item{TA}{test statistic of Tarone's test for heterogeneity (only when \code{measure="OR"}).} \item{TAp}{corresponding p-value (only when \code{measure="OR"}).} \item{k}{number of studies included in the analysis.} \item{yi, vi}{the vector of outcomes and corresponding sampling variances.} \item{fit.stats}{a list with the log-likelihood, deviance, AIC, BIC, and AICc values under the unrestricted and restricted likelihood.} \item{\dots}{some additional elements/values.} } \section{Methods}{ The results of the fitted model are formatted and printed with the \code{\link[=print.rma.mh]{print}} function. If fit statistics should also be given, use \code{\link[=summary.rma]{summary}} (or use the \code{\link[=fitstats.rma]{fitstats}} function to extract them). The \code{\link[=residuals.rma]{residuals}}, \code{\link[=rstandard.rma.mh]{rstandard}}, and \code{\link[=rstudent.rma.mh]{rstudent}} functions extract raw and standardized residuals. Leave-one-out diagnostics can be obtained with \code{\link[=leave1out.rma.mh]{leave1out}}. Forest, funnel, radial, \enc{L'Abbé}{L'Abbe}, and Baujat plots can be obtained with \code{\link[=forest.rma]{forest}}, \code{\link[=funnel.rma]{funnel}}, \code{\link[=radial.rma]{radial}}, \code{\link[=labbe.rma]{labbe}}, and \code{\link[=baujat.rma]{baujat}}. The \code{\link[=qqnorm.rma.mh]{qqnorm}} function provides normal QQ plots of the standardized residuals. One can also call \code{\link[=plot.rma.mh]{plot}} on the fitted model object to obtain various plots at once. A cumulative meta-analysis (i.e., adding one observation at a time) can be obtained with \code{\link[=cumul.rma.mh]{cumul}}. Other extractor functions include \code{\link[=coef.rma]{coef}}, \code{\link[=vcov.rma]{vcov}}, \code{\link[=se.rma]{se}}, \code{\link[=fitstats]{logLik}}, \code{\link[=fitstats]{deviance}}, \code{\link[=fitstats]{AIC}}, and \code{\link[=fitstats]{BIC}}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Cochran, W. G. (1954). Some methods for strengthening the common \mjseqn{\chi^2} tests. \emph{Biometrics}, \bold{10}(4), 417--451. \verb{https://doi.org/10.2307/3001616} Greenland, S., & Robins, J. M. (1985). Estimation of a common effect parameter from sparse follow-up data. \emph{Biometrics}, \bold{41}(1), 55--68. \verb{https://doi.org/10.2307/2530643} Mantel, N., & Haenszel, W. (1959). Statistical aspects of the analysis of data from retrospective studies of disease. \emph{Journal of the National Cancer Institute}, \bold{22}(4), 719--748. \verb{https://doi.org/10.1093/jnci/22.4.719} Nurminen, M. (1981). Asymptotic efficiency of general noniterative estimators of common relative risk. \emph{Biometrika}, \bold{68}(2), 525--530. \verb{https://doi.org/10.1093/biomet/68.2.525} Robins, J., Breslow, N., & Greenland, S. (1986). Estimators of the Mantel-Haenszel variance consistent in both sparse data and large-strata limiting models. \emph{Biometrics}, \bold{42}(2), 311--323. \verb{https://doi.org/10.2307/2531052 } Rothman, K. J., Greenland, S., & Lash, T. L. (2008). \emph{Modern epidemiology} (3rd ed.). Philadelphia: Lippincott Williams & Wilkins. Sato, T., Greenland, S., & Robins, J. M. (1989). On the variance estimator for the Mantel-Haenszel risk difference. \emph{Biometrics}, \bold{45}(4), 1323--1324. \verb{https://www.jstor.org/stable/2531784} Tarone, R. E. (1981). On summary estimators of relative risk. \emph{Journal of Chronic Diseases}, \bold{34}(9-10), 463--468. \verb{https://doi.org/10.1016/0021-9681(81)90006-0} Tarone, R. E. (1985). On heterogeneity tests based on efficient scores. \emph{Biometrika}, \bold{72}(1), 91--95. \verb{https://doi.org/10.1093/biomet/72.1.91} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.glmm}}, \code{\link{rma.peto}}, and \code{\link{rma.mv}} for other model fitting functions. } \examples{ ### meta-analysis of the (log) odds ratios using the Mantel-Haenszel method rma.mh(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### meta-analysis of the (log) risk ratios using the Mantel-Haenszel method rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) } \keyword{models} metafor/man/plot.infl.rma.uni.Rd0000644000176200001440000001435715173343621016245 0ustar liggesusers\name{plot.infl.rma.uni} \alias{plot.infl.rma.uni} \title{Plot Method for 'infl.rma.uni' Objects} \description{ Function to plot objects of class \code{"infl.rma.uni"}. \loadmathjax } \usage{ \method{plot}{infl.rma.uni}(x, plotinf=TRUE, plotdfbs=FALSE, dfbsnew=FALSE, logcov=TRUE, slab.style=1, las=0, pch=21, bg, bg.infl, col.na, \dots) } \arguments{ \item{x}{an object of class \code{"infl.rma.uni"} obtained with \code{\link[=influence.rma.uni]{influence}}.} \item{plotinf}{logical to specify whether the various case diagnostics should be plotted (the default is \code{TRUE}). Can also be a vector of up to 8 integers to specify which plots to draw. See \sQuote{Details} for the numbers corresponding to the various plots.} \item{plotdfbs}{logical to specify whether the DFBETAS values should be plotted (the default is \code{FALSE}). Can also be a vector of integers to specify for which coefficient(s) to plot the DFBETAS values.} \item{dfbsnew}{logical to specify whether a new device should be opened for plotting the DFBETAS values (the default is \code{FALSE}).} \item{logcov}{logical to specify whether the covariance ratios should be plotted on a log scale (the default is \code{TRUE}).} \item{slab.style}{integer to specify the style of the x-axis labels: 1 = study number, 2 = study label, 3 = abbreviated study label. Note that study labels, even when abbreviated, may be too long to fit in the margins (see argument \code{mar} for \code{\link{par}} to adjust the margin sizes).} \item{las}{integer between 0 and 3 to specify the alignment of the axis labels (see \code{\link{par}}). The most useful alternative to 0 is 3, so that the x-axis labels are drawn vertical to the axis.} \item{pch}{plotting symbol to use. By default, an open circle is used. See \code{\link{points}} for other options.} \item{bg}{optional character string to specify the background color of open plotting symbols. If unspecified, gray is used by default.} \item{bg.infl}{optional character string to specify the background color when the point is considered influential. If unspecified, red is used by default.} \item{col.na}{optional character string to specify the color for lines connecting two points with \code{NA} values in between. If unspecified, a light shade of gray is used by default.} \item{\dots}{other arguments.} } \details{ When \code{plotinf=TRUE}, the function plots the (1) externally standardized residuals, (2) DFFITS values, (3) Cook's distances, (4) covariance ratios, (5) leave-one-out \mjseqn{\tau^2} estimates, (6) leave-one-out (residual) heterogeneity test statistics, (7) hat values, and (8) weights. If \code{plotdfbs=TRUE}, the DFBETAS values are also plotted either after confirming the page change (if \code{dfbsnew=FALSE}) or on a separate device (if \code{dfbsnew=TRUE}). A case (which is typically synonymous with study) may be considered to be \sQuote{influential} if at least one of the following is true: \itemize{ \item The absolute DFFITS value is larger than \mjeqn{3 \times \sqrt{p/(k-p)}}{3*\sqrt(p/(k-p))}, where \mjseqn{p} is the number of model coefficients and \mjseqn{k} the number of cases. \item The lower tail area of a chi-square distribution with \mjseqn{p} degrees of freedom cut off by the Cook's distance is larger than 50\%. \item The hat value is larger than \mjeqn{3 \times (p/k)}{3*(p/k)}. \item Any DFBETAS value is larger than \mjseqn{1}. } Cases which are considered influential with respect to any of these measures are indicated by the color specified for the \code{bg.infl} argument (the default is \code{"red"}). The cut-offs described above are indicated in the plot with horizontal reference lines. In addition, on the plot of the externally standardized residuals, horizontal reference lines are drawn at -1.96, 0, and 1.96. On the plot of the covariance ratios, a horizontal reference line is drawn at 1. On the plot of leave-one-out \mjseqn{\tau^2} estimates, a horizontal reference line is drawn at the \mjseqn{\tau^2} estimate based on all cases. On the plot of leave-one-out (residual) heterogeneity test statistics, horizontal reference lines are drawn at the test statistic based on all cases and at \mjseqn{k-p}, the degrees of freedom of the test statistic. On the plot of the hat values, a horizontal reference line is drawn at \mjseqn{p/k}. Since the sum of the hat values is equal to \mjseqn{p}, the value \mjseqn{p/k} indicates equal hat values for all \mjseqn{k} cases. Finally, on the plot of weights, a horizontal reference line is drawn at \mjseqn{100/k}, corresponding to the value for equal weights (in \%) for all \mjseqn{k} cases. Note that all weights will automatically be equal to each other when using unweighted model fitting. Also, the hat values will be equal to the weights (except for their scaling) in models without moderators. The chosen cut-offs are (somewhat) arbitrary. Substantively informed judgment should always be used when examining the influence of each case on the results. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., & Cheung, M. W.-L. (2010). Outlier and influence diagnostics for meta-analysis. \emph{Research Synthesis Methods}, \bold{1}(2), 112--125. \verb{https://doi.org/10.1002/jrsm.11} } \seealso{ \code{\link[=influence.rma.uni]{influence}} for the function to compute the various model diagnostics. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### compute the diagnostics inf <- influence(res) ### plot the values plot(inf) ### show the abbreviated study labels on the x-axis op <- par(mar=c(8,4,4,2)) plot(inf, slab.style=3, las=3) par(op) ### select which plots to show plot(inf, plotinf=1:4) ### plot the DFBETAS values plot(inf, plotinf=FALSE, plotdfbs=TRUE) } \keyword{hplot} metafor/man/formula.rma.Rd0000644000176200001440000000305115173343621015200 0ustar liggesusers\name{formula.rma} \alias{formula} \alias{formula.rma} \title{Extract the Model Formula from 'rma' Objects} \description{ Function to extract the model formula from objects of class \code{"rma"}. } \usage{ \method{formula}{rma}(x, type="mods", \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{type}{the formula which should be returned; either \code{"mods"} (default), \code{"yi"} (in case argument \code{yi} was used to specify a formula), or \code{"scale"} (only for location-scale models).} \item{\dots}{other arguments.} } \value{ The requested formula. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which a model formula can be extracted. } \examples{ ### copy BCG vaccine data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, slab=paste(author, ", ", year, sep="")) ### mixed-effects meta-regression model res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat) formula(res, type="mods") ### specify moderators via 'yi' argument res <- rma(yi ~ ablat + alloc, vi, data=dat) formula(res, type="yi") } \keyword{models} metafor/man/fitted.rma.Rd0000644000176200001440000000337515173343621015023 0ustar liggesusers\name{fitted.rma} \alias{fitted} \alias{fitted.rma} \title{Fitted Values for 'rma' Objects} \description{ Function to compute the fitted values for objects of class \code{"rma"}. } \usage{ \method{fitted}{rma}(object, \dots) } \arguments{ \item{object}{an object of class \code{"rma"}.} \item{\dots}{other arguments.} } \value{ A vector with the fitted values. } \note{ The \code{\link[=predict.rma]{predict}} function also provides standard errors and confidence intervals for the fitted values. Best linear unbiased predictions (BLUPs) that combine the fitted values based on the fixed effects and the estimated contributions of the random effects can be obtained with \code{\link[=blup.rma.uni]{blup}} (only for objects of class \code{"rma.uni"}). For objects not involving moderators, the fitted values are all identical to the estimated value of the model intercept. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=predict.rma]{predict}} for a function to computed predicted values and \code{\link[=blup.rma.uni]{blup}} for a function to compute BLUPs that combine the fitted values and predicted random effects. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### compute the fitted values fitted(res) } \keyword{models} metafor/man/selmodel.Rd0000644000176200001440000013334315173343621014571 0ustar liggesusers\name{selmodel} \alias{selmodel} \alias{selmodel.rma.uni} \title{Selection Models} \description{ Function to fit selection models. \loadmathjax } \usage{ selmodel(x, \dots) \method{selmodel}{rma.uni}(x, type, alternative="greater", prec, subset, delta, steps, decreasing=FALSE, verbose=FALSE, digits, control, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}.} \item{type}{character string to specify the type of selection model. Possible options are \code{"beta"}, \code{"halfnorm"}, \code{"negexp"}, \code{"logistic"}, \code{"power"}, \code{"negexppow"}, \code{"stepfun"}, \code{"trunc"}, and \code{"truncest"}. Can be abbreviated.} \item{alternative}{character string to specify the sidedness of the hypothesis when testing the observed outcomes. Possible options are \code{"greater"} (the default), \code{"less"}, or \code{"two.sided"}. Can be abbreviated.} \item{prec}{optional character string to specify the measure of precision (only relevant for selection models that can incorporate this into the selection function). Possible options are \code{"sei"}, \code{"vi"}, \code{"ninv"}, or \code{"sqrtninv"}.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies to which the selection function applies.} \item{delta}{optional numeric vector (of the same length as the number of selection model parameters) to fix the corresponding \mjseqn{\delta} value(s). A \mjseqn{\delta} value can be fixed by setting the corresponding element of this argument to the desired value. A \mjseqn{\delta} value will be estimated if the corresponding element is set equal to \code{NA}.} \item{steps}{numeric vector of one or more values that can or must be specified for certain selection functions.} \item{decreasing}{logical to specify whether the \mjseqn{\delta} values in a step function selection model must be a monotonically decreasing function of the p-values (the default is \code{FALSE}). Only relevant when \code{type="stepfun"}.} \item{verbose}{logical to specify whether output should be generated on the progress of the model fitting (the default is \code{FALSE}). Can also be an integer. Values > 1 generate more verbose output. See \sQuote{Note}.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{control}{optional list of control values for the estimation algorithm. See \sQuote{Note}.} \item{\dots}{other arguments.} } \details{ Selection models are a general class of models that attempt to model the process by which the studies included in a meta-analysis may have been influenced by some form of publication bias. If a particular selection model is an adequate approximation for the underlying selection process, then the model provides estimates of the parameters of interest (e.g., the average true outcome and the amount of heterogeneity in the true outcomes) that are \sQuote{corrected} for this selection process (i.e., they are estimates of the parameters in the population of studies before any selection has taken place). The present function fits a variety of such selection models. To do so, one should pass an object fitted with the \code{\link{rma.uni}} function to the first argument. The model that will then be fitted is of the same form as the original model combined with the specific selection model chosen (see below for possible options). For example, if the original model was a random-effects model, then a random-effects selection model will be fitted. Similarly, if the original model included moderators, then they will also be accounted for in the selection model fitted. Model fitting is done via maximum likelihood (ML) estimation over the fixed- and random-effects parameters (e.g., \mjseqn{\mu} and \mjseqn{\tau^2} in a random-effects model) and the selection model parameters. Argument \code{type} determines the specific type of selection model that should be fitted. Many selection models are based on the idea that selection may haven taken place based on the p-values of the studies. In particular, let \mjseqn{y_i} and \mjseqn{v_i} denote the observed outcome and the corresponding sampling variance of the \mjeqn{i\text{th}}{ith} study. Then \mjseqn{z_i = y_i / \sqrt{v_i}} is the (Wald-type) test statistic for testing the null hypothesis \mjeqn{\text{H}_0{:}\; \theta_i = 0}{H_0: \theta_i = 0} and \mjseqn{p_i = 1 - \Phi(z_i)} (if \code{alternative="greater"}), \mjseqn{p_i = \Phi(z_i)} (if \code{alternative="less"}), or \mjseqn{p_i = 2(1 - \Phi(|z_i|))} (if \code{alternative="two.sided"}) the corresponding (one- or two-sided) p-value, where \mjseqn{\Phi()} denotes the cumulative distribution function of a standard normal distribution. Finally, let \mjseqn{w(p_i)} denote some function that specifies the relative likelihood of selection given the p-value of a study. If \mjteqn{w(p_i) > w(p_{i'})}{w(p_i) \gt w(p_{i'})}{w(p_i) > w(p_i')} when \mjteqn{p_i < p_{i'}}{p_i \lt p_{i'}}{p_i < p_i'} (i.e., \mjseqn{w(p_i)} is larger for smaller p-values), then \code{alternative="greater"} implies selection in favor of increasingly significant positive outcomes, \code{alternative="less"} implies selection in favor of increasingly significant negative outcomes, and \code{alternative="two.sided"} implies selection in favor of increasingly significant outcomes regardless of their direction. \subsection{Beta Selection Model}{ When \code{type="beta"}, the function can be used to fit the \sQuote{beta selection model} by Citkowicz and Vevea (2017). For this model, the selection function is given by \mjsdeqn{w(p_i) = p_i^{\delta_1 - 1} \times (1 - p_i)^{\delta_2 - 1}} where \mjteqn{\delta_1 > 0}{\delta_1 \gt 0}{\delta_1 > 0} and \mjteqn{\delta_2 > 0}{\delta_2 \gt 0}{\delta_2 > 0}. The null hypothesis \mjeqn{\text{H}_0{:}\; \delta_1 = \delta_2 = 1}{H_0: \delta_1 = \delta_2 = 1} represents the case where there is no selection according to the model. \ifelse{text}{}{The figure below illustrates with some examples how the relative likelihood of selection can depend on the p-value for various combinations of \mjseqn{\delta_1} and \mjseqn{\delta_2}.} Note that the model allows for a non-monotonic selection function. \if{html}{\figure{selmodel-beta.png}{options: width=600}} \if{latex}{\figure{selmodel-beta.pdf}{options: width=4in}} As suggested by Pustejovsky (2024), the model can be modified by truncating p-values smaller or larger than certain thresholds. The modified selection function is then given by \mjsdeqn{w(p_i) = \tilde{p}_i^{\delta_1 - 1} \times (1 - \tilde{p}_i)^{\delta_2 - 1}} where \mjseqn{\tilde{p}_i = \text{min}(\text{max}(\alpha_1, p_i), \alpha_2)}. To fit such a selection model, one should specify the two \mjseqn{\alpha} values (with \mjteqn{0 < \alpha < 1}{0 \lt \alpha \lt 1}{0 < \alpha < 1}) via the \code{steps} argument. } \subsection{Half-Normal, Negative-Exponential, Logistic, and Power Selection Models}{ Preston et al. (2004) suggested the first three of the following selection functions: \tabular{lllll}{ \bold{name} \tab \ics \tab \bold{\code{type}} \tab \ics \tab \bold{selection function} \cr half-normal \tab \ics \tab \code{"halfnorm"} \tab \ics \tab \mjseqn{w(p_i) = \exp(-\delta \times p_i^2)} \cr negative-exponential \tab \ics \tab \code{"negexp"} \tab \ics \tab \mjseqn{w(p_i) = \exp(-\delta \times p_i)} \cr logistic \tab \ics \tab \code{"logistic"} \tab \ics \tab \mjseqn{w(p_i) = 2 \times \exp(-\delta \times p_i) / (1 + \exp(-\delta \times p_i))} \cr power \tab \ics \tab \code{"power"} \tab \ics \tab \mjseqn{w(p_i) = (1-p_i)^\delta}} The power selection model is added here as it has similar properties as the models suggested by Preston et al. (2004). For all models, assume \mjseqn{\delta \ge 0}, so that all functions imply a monotonically decreasing relationship between the p-value and the selection probability. For all functions, \mjeqn{\text{H}_0{:}\; \delta = 0}{H_0: \delta = 0} implies no selection. \ifelse{text}{}{The figure below shows the relative likelihood of selection as a function of the p-value for \mjseqn{\delta = 0} and for the various selection functions when \mjseqn{\delta = 6}.} \if{html}{\figure{selmodel-preston.png}{options: width=600}} \if{latex}{\figure{selmodel-preston.pdf}{options: width=4in}} Here, these functions are extended to allow for the possibility that \mjseqn{w(p_i) = 1} for p-values below a certain significance threshold denoted by \mjseqn{\alpha} (e.g., to model the case that the relative likelihood of selection is equally high for all significant studies but decreases monotonically for p-values above the significance threshold). To fit such a selection model, one should specify the \mjseqn{\alpha} value (with \mjteqn{0 < \alpha < 1}{0 \lt \alpha \lt 1}{0 < \alpha < 1}) via the \code{steps} argument. There should be at least one observed p-value below and one observed p-value above the chosen threshold to fit these models. The selection functions are then given by \mjseqn{\text{min}(1, w(p_i) / w(\alpha))}. \ifelse{text}{}{The figure below shows some examples of the relative likelihood of selection when \code{steps=.05}.} \if{html}{\figure{selmodel-preston-step.png}{options: width=600}} \if{latex}{\figure{selmodel-preston-step.pdf}{options: width=4in}} Preston et al. (2004) also suggested selection functions where the relatively likelihood of selection not only depends on the p-value, but also the precision (e.g., standard error) of the estimate (if two studies have similar p-values, it may be plausible to assume that the larger / more precise study has a higher probability of selection). These selection functions (plus the corresponding power function) are given by: \tabular{lllll}{ \bold{name} \tab \ics \tab \bold{\code{type}} \tab \ics \tab \bold{selection function} \cr half-normal \tab \ics \tab \code{"halfnorm"} \tab \ics \tab \mjseqn{w(p_i) = \exp(-\delta \times \mathrm{prec}_i \times p_i^2)} \cr negative-exponential \tab \ics \tab \code{"negexp"} \tab \ics \tab \mjseqn{w(p_i) = \exp(-\delta \times \mathrm{prec}_i \times p_i)} \cr logistic \tab \ics \tab \code{"logistic"} \tab \ics \tab \mjseqn{w(p_i) = 2 \times \exp(-\delta \times \mathrm{prec}_i \times p_i) / (1 + \exp(-\delta \times \mathrm{prec}_i \times p_i))} \cr power \tab \ics \tab \code{"power"} \tab \ics \tab \mjseqn{w(p_i) = (1-p_i)^{\delta \times \mathrm{prec}_i}}} where \mjseqn{\mathrm{prec}_i = \sqrt{v_i}} (i.e., the standard error of the \mjeqn{i\text{th}}{ith} study) according to Preston et al. (2004). Here, this idea is generalized to allow the user to specify the specific measure of precision to use (via the \code{prec} argument). Possible options are: \itemize{ \item \code{prec="sei"} for the standard errors, \item \code{prec="vi"} for the sampling variances, \item \code{prec="ninv"} for the inverse of the sample sizes, \item \code{prec="sqrtninv"} for the inverse square root of the sample sizes. } Using some function of the sample sizes as a measure of precision is only possible when information about the sample sizes is actually stored within the object passed to the \code{selmodel} function. See \sQuote{Note}. Note that \mjseqn{\mathrm{prec}_i} is really a measure of imprecision (with higher values corresponding to lower precision). Also, regardless of the specific measure chosen, the values are actually rescaled with \mjseqn{\mathrm{prec}_i = \mathrm{prec}_i / \max(\mathrm{prec}_i)} inside of the function, such that \mjseqn{\mathrm{prec}_i = 1} for the least precise study and \mjteqn{\mathrm{prec}_i < 1}{\mathrm{prec}_i \lt 1}{prec_i < 1} for the remaining studies (the rescaling does not actually change the fit of the model, it only helps to improve the stability of model fitting algorithm). \ifelse{text}{}{The figure below shows some examples of the relative likelihood of selection using these selection functions for two different precision values (note that lower values of \mjseqn{\mathrm{prec}} lead to a higher likelihood of selection).} \if{html}{\figure{selmodel-preston-prec.png}{options: width=600}} \if{latex}{\figure{selmodel-preston-prec.pdf}{options: width=4in}} One can also use the \code{steps} argument as described above in combination with these selection functions (studies with p-values below the chosen threshold then have \mjseqn{w(p_i) = 1} regardless of their exact p-value or precision). } \subsection{Negative Exponential Power Selection Model}{ As an extension of the half-normal and negative-exponential models, one can also choose \code{type="negexppow"} for a \sQuote{negative exponential power selection model}. The selection function for this model is given by \mjsdeqn{w(p_i) = \exp(-\delta_1 \times p_i^{1/\delta_2})} where \mjseqn{\delta_1 \ge 0} and \mjseqn{\delta_2 \ge 0} (see Begg & Mazumdar, 1994, although here a different parameterization is used, such that increasing \mjseqn{\delta_2} leads to more severe selection). \ifelse{text}{}{The figure below shows some examples of this selection function when holding \mjseqn{\delta_1} constant while increasing \mjseqn{\delta_2}.} \if{html}{\figure{selmodel-negexppow.png}{options: width=600}} \if{latex}{\figure{selmodel-negexppow.pdf}{options: width=4in}} This model affords greater flexibility in the shape of the selection function, but requires the estimation of the additional power parameter (the half-normal and negative-exponential models are therefore special cases when fixing \mjseqn{\delta_2} to 0.5 or 1, respectively). \mjeqn{\text{H}_0{:}\; \delta_1 = 0}{H_0: \delta_1 = 0} again implies no selection, but so does \mjeqn{\text{H}_0{:}\; \delta_2 = 0}{H_0: \delta_2 = 0}. One can again use the \code{steps} argument to specify a single significance threshold, \mjseqn{\alpha}, so that \mjseqn{w(p_i) = 1} for p-values below this threshold and otherwise \mjseqn{w(p_i)} follows the selection function as given above. One can also use the \code{prec} argument to specify a measure of precision in combination with this model, which leads to the selection function \mjsdeqn{w(p_i) = \exp(-\delta_1 \times \mathrm{prec}_i \times p_i^{1/\delta_2})} and hence is the logical extension of the negative exponential power selection model that also incorporates some measure of precision into the selection process. } \subsection{Step Function Selection Models}{ When \code{type="stepfun"}, the function can be used to fit \sQuote{step function models} as described by Iyengar and Greenhouse (1988), Hedges (1992), Vevea and Hedges (1995), Vevea and Woods (2005), and others. For these models, one must specify one or multiple values via the \code{steps} argument, which define intervals in which the relative likelihood of selection is constant. Let \mjtdeqn{\alpha_1 < \alpha_2 < \ldots < \alpha_c}{\alpha_1 \lt \alpha_2 \lt \ldots \lt \alpha_c}{\alpha_1 < \alpha_2 < \ldots < \alpha_c} denote these cutpoints sorted in increasing order, with the constraint that \mjseqn{\alpha_c = 1} (if the highest value specified via \code{steps} is not 1, the function will automatically add this cutpoint), and define \mjseqn{\alpha_0 = 0}. The selection function is then given by \mjseqn{w(p_i) = \delta_j} for \mjteqn{\alpha_{j-1} < p_i \le \alpha_j}{\alpha_{j-1} \lt p_i \le \alpha_j}{\alpha_{j-1} < p_i \le \alpha_j} where \mjseqn{\delta_j \ge 0}. To make the model identifiable, we set \mjseqn{\delta_1 = 1}. The \mjseqn{\delta_j} values therefore denote the likelihood of selection in the various intervals relative to the interval for p-values between 0 and \mjseqn{\alpha_1}. Hence, the null hypothesis \mjeqn{\text{H}_0{:}\; \delta_j = 1}{H_0: \delta_j = 1} for \mjseqn{j = 1, \ldots, c} implies no selection. For example, if \code{steps=c(.05, .10, .50, 1)}, then \mjseqn{\delta_2} is the likelihood of selection for p-values between .05 and .10, \mjseqn{\delta_3} is the likelihood of selection for p-values between .10 and .50, and \mjseqn{\delta_4} is the likelihood of selection for p-values between .50 and 1 relative to the likelihood of selection for p-values between 0 and .05. \ifelse{text}{}{The figure below shows the corresponding selection function for some arbitrarily chosen \mjseqn{\delta_j} values.} \if{html}{\figure{selmodel-stepfun.png}{options: width=600}} \if{latex}{\figure{selmodel-stepfun.pdf}{options: width=4in}} There should be at least one observed p-value within each interval to fit this model. If there are no p-values between \mjseqn{\alpha_0 = 0} and \mjseqn{\alpha_1} (i.e., within the first interval for which \mjseqn{\delta_1 = 1}), then estimates of \mjseqn{\delta_2, \ldots, \delta_c} will try to drift to infinity. If there are no p-values between \mjseqn{\alpha_{j-1}} and \mjseqn{\alpha_j} for \mjseqn{j = 2, \ldots, c}, then \mjseqn{\delta_j} will try to drift to zero. In either case, results should be treated with great caution. A common practice is then to collapse and/or adjust the intervals until all intervals contain at least one study. By setting \code{ptable=TRUE}, the function simply returns the p-value table and does not attempt any model fitting. Note that when \code{alternative="greater"} or \code{alternative="less"} (i.e., when we assume that the relative likelihood of selection is not only related to the p-values of the studies, but also the directionality of the outcomes), then it would usually make sense to divide conventional levels of significance (e.g., .05) by 2 before passing these values to the \code{steps} argument. For example, if we think that studies were selected for positive outcomes that are significant at two-tailed \mjseqn{\alpha = .05}, then we should use \code{alternative="greater"} in combination with \code{steps=c(.025, 1)}. When specifying a single cutpoint in the context of a random-effects model (typically \code{steps=c(.025, 1)} with either \code{alternative="greater"} or \code{alternative="less"}), this model is sometimes called the \sQuote{three-parameter selection model} (3PSM), corresponding to the parameters \mjseqn{\mu}, \mjseqn{\tau^2}, and \mjseqn{\delta_2} (e.g., Carter et al., 2019; McShane et al., 2016; Pustejovsky & Rodgers, 2019). The same idea but in the context of an equal-effects model was also described by Iyengar and Greenhouse (1988). Note that \mjseqn{\delta_j} (for \mjseqn{j = 2, \ldots, c}) can be larger than 1 (implying a greater likelihood of selection for p-values in the corresponding interval relative to the first interval). With \code{control=list(delta.max=1)}, one can enforce that the likelihood of selection for p-values above the first cutpoint can never be greater than the likelihood of selection for p-values below it. This constraint should be used with caution, as it may force \mjseqn{\delta_j} estimates to fall on the boundary of the parameter space. Alternatively, one can set \code{decreasing=TRUE}, in which case the \mjseqn{\delta_j} values must be a monotonically decreasing function of the p-values (which also forces \mjseqn{\delta_j \le 1}). This feature should be considered experimental. One of the challenges when fitting this model with many cutpoints is the large number of parameters that need to be estimated (which is especially problematic when the number of studies is small). An alternative approach suggested by Vevea and Woods (2005) is to fix the \mjseqn{\delta_j} values to some a priori chosen values instead of estimating them. One can then conduct a sensitivity analysis by examining the results (e.g., the estimates of \mjseqn{\mu} and \mjseqn{\tau^2} in a random-effects model) for a variety of different sets of \mjseqn{\delta_j} values (reflecting more or less severe forms of selection). This can be done by specifying the \mjseqn{\delta_j} values via the \code{delta} argument. Table 1 in Vevea and Woods (2005) provides some illustrative examples of moderate and severe selection functions for one- and two-tailed selection. The code below creates a data frame that contains these functions. \preformatted{tab <- data.frame( steps = c(0.005, 0.01, 0.05, 0.10, 0.25, 0.35, 0.50, 0.65, 0.75, 0.90, 0.95, 0.99, 0.995, 1), delta.mod.1 = c(1, 0.99, 0.95, 0.80, 0.75, 0.65, 0.60, 0.55, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50), delta.sev.1 = c(1, 0.99, 0.90, 0.75, 0.60, 0.50, 0.40, 0.35, 0.30, 0.25, 0.10, 0.10, 0.10, 0.10), delta.mod.2 = c(1, 0.99, 0.95, 0.90, 0.80, 0.75, 0.60, 0.60, 0.75, 0.80, 0.90, 0.95, 0.99, 1.00), delta.sev.2 = c(1, 0.99, 0.90, 0.75, 0.60, 0.50, 0.25, 0.25, 0.50, 0.60, 0.75, 0.90, 0.99, 1.00))} \ifelse{text}{}{The figure below shows the corresponding selection functions.} \if{html}{\figure{selmodel-stepfun-fixed.png}{options: width=600}} \if{latex}{\figure{selmodel-stepfun-fixed.pdf}{options: width=4in}} These four functions are \dQuote{merely examples and should not be regarded as canonical} (Vevea & Woods, 2005). } \subsection{Truncated Distribution Selection Model}{ When \code{type="trunc"}, the model assumes that the relative likelihood of selection depends not on the p-value but on the value of the observed effect size or outcome of a study. Let \mjseqn{y_c} denote a single cutpoint (which can be specified via argument \code{steps} and which is assumed to be 0 when unspecified). Let \mjtdeqn{w(y_i) = \left\\\{ \begin{array}{cc} 1 & \text{if} \; y_i > y_c \\\ \delta_1 & \text{if} \; y_i \le y_c \end{array} \right.}{w(y_i) = \left\\\\\\\{ \begin{matrix} \; 1 & \text{if} \; y_i \gt y_c \\\\\ \; \delta_1 & \text{if} \; y_i \le y_c \\\\\ \end{matrix} \right.}{w(y_i > y_c) = 1 and w(y_i \le y_c) = \delta_1} denote the selection function when \code{alternative="greater"} and \mjtdeqn{w(y_i) = \left\\\{ \begin{array}{cc} 1 & \text{if} \; y_i < y_c \\\ \delta_1 & \text{if} \; y_i \ge y_c \end{array} \right.}{w(y_i) = \left\\\\\\\{ \begin{matrix} \; 1 & \text{if} \; y_i \lt y_c \\\\\ \; \delta_1 & \text{if} \; y_i \ge y_c \\\\\ \end{matrix} \right.}{w(y_i < y_c) = 1 and w(y_i >= y_c) = \delta_1} when \code{alternative="less"} (note that \code{alternative="two.sided"} is not an option for this type of selection model). Therefore, when \code{alternative="greater"}, \mjseqn{\delta_1} denotes the likelihood of selection for observed effect sizes or outcomes that fall below the chosen cutpoint relative to those that fall above it (and vice-versa when \code{alternative="less"}). Hence, the null hypothesis \mjeqn{\text{H}_0{:}\; \delta_1 = 1}{H_0: \delta_1 = 1} implies no selection. In principle, it is also possible to obtain a maximum likelihood estimate of the cutpoint. For this, one can set \code{type="truncest"}, in which case the selection function is given by \mjtdeqn{w(y_i) = \left\\\{ \begin{array}{cc} 1 & \text{if} \; y_i > \delta_2 \\\ \delta_1 & \text{if} \; y_i \le \delta_2 \end{array} \right.}{w(y_i) = \left\\\\\\\{ \begin{matrix} \; 1 & \text{if} \; y_i \gt \delta_2 \\\\\ \; \delta_1 & \text{if} \; y_i \le \delta_2 \\\\\ \end{matrix} \right.}{w(y_i > \delta_2) = 1 and w(y_i \le \delta_2) = \delta_1} when \code{alternative="greater"} and analogously when \code{alternative="less"}. Therefore, instead of specifying the cutpoint via the \code{steps} argument, it is estimated via \mjseqn{\delta_2}. Note that estimating both \mjseqn{\delta_1} and \mjseqn{\delta_2} simultaneously is typically very difficult (the likelihood surface is often quite rugged with multiple local optima) and will require a large number of studies. The implementation of this selection function should be considered experimental. Models similar to those described above were proposed by Rust et al. (1990) and Formann (2008), but made various simplifying assumptions (e.g., Formann assumed \mjseqn{\delta_1 = 0}) and did not account for the heteroscedastic nature of the sampling variances of the observed effect sizes or outcomes, nor did they allow for heterogeneity in the true effects or the influence of moderators. } \subsection{Subsets of Studies Affected and Unaffected by Publication Bias}{ In some meta-analyses, some of the studies are known (or are assumed) to be free of publication bias (e.g., preregistered studies). In this case, the selection function should only apply to a subset of the studies (e.g., the non-registered studies). Using the \code{subset} argument, one can specify to which subset of studies the selection function should apply (note though that all studies are still included in the model fitting). The argument can either be a logical or a numeric vector, but note that what is specified is applied to the set of data originally passed to the \code{\link{rma.uni}} function, so a logical vector must be of the same length as the original dataset (and if the \code{data} argument was used in the original model fit, then any variables specified in creating a logical vector will be searched for within this data frame first). Any subsetting and removal of studies with missing values is automatically applied to the variables specified via these arguments. } } \value{ An object of class \code{c("rma.uni","rma")}. The object is a list containing the same components as a regular \code{c("rma.uni","rma")} object, but the parameter estimates are based on the selection model. Most importantly, the following elements are modified based on the selection model: \item{beta}{estimated coefficients of the model.} \item{se}{standard errors of the coefficients.} \item{zval}{test statistics of the coefficients.} \item{pval}{corresponding p-values.} \item{ci.lb}{lower bound of the confidence intervals for the coefficients.} \item{ci.ub}{upper bound of the confidence intervals for the coefficients.} \item{vb}{variance-covariance matrix of the estimated coefficients.} \item{tau2}{estimated amount of (residual) heterogeneity. Always \code{0} when \code{method="EE"}.} \item{se.tau2}{standard error of the estimated amount of (residual) heterogeneity.} In addition, the object contains the following additional elements: \item{delta}{estimated selection model parameter(s).} \item{se.delta}{corresponding standard error(s).} \item{zval.delta}{corresponding test statistic(s).} \item{pval.delta}{corresponding p-value(s).} \item{ci.lb.delta}{lower bound of the confidence intervals for the parameter(s).} \item{ci.ub.delta}{upper bound of the confidence intervals for the parameter(s).} \item{LRT}{test statistic of the likelihood ratio test for the selection model parameter(s).} \item{LRTdf}{degrees of freedom for the likelihood ratio test.} \item{LRTp}{p-value for the likelihood ratio test.} \item{LRT.tau2}{test statistic of the likelihood ratio test for testing \mjeqn{\text{H}_0{:}\; \tau^2 = 0}{H_0: \tau^2 = 0} (\code{NA} when fitting an equal-effects model).} \item{LRTp.tau2}{p-value for the likelihood ratio test.} \item{ptable}{frequency table for the observed p-values falling into the intervals defined by the \code{steps} argument (\code{NA} when \code{steps} is not specified).} \item{\dots}{some additional elements/values.} } \section{Methods}{ The results of the fitted model are formatted and printed with the \code{\link[=print.rma.uni]{print}} function. The estimated selection function can be drawn with \code{\link[=plot.rma.uni.selmodel]{plot}}. The \code{\link[=profile.rma.uni.selmodel]{profile}} function can be used to obtain a plot of the log-likelihood as a function of \mjseqn{\tau^2} and/or the selection model parameter(s) of the model. Corresponding confidence intervals can be obtained with the \code{\link[=confint.rma.uni.selmodel]{confint}} function. } \note{ Model fitting is done via numerical optimization over the model parameters. By default, \code{\link{optim}} with method \code{"BFGS"} is used for the optimization. One can also chose a different optimizer from \code{\link{optim}} via the \code{control} argument (e.g., \code{control=list(optimizer="Nelder-Mead")}). Besides one of the methods from \code{\link{optim}}, one can also choose the quasi-Newton algorithm in \code{\link{nlminb}}, one of the optimizers from the \code{minqa} package (i.e., \code{\link[minqa]{uobyqa}}, \code{\link[minqa]{newuoa}}, or \code{\link[minqa]{bobyqa}}), one of the (derivative-free) algorithms from the \code{\link[nloptr]{nloptr}} package, the Newton-type algorithm implemented in \code{\link{nlm}}, the various algorithms implemented in the \code{dfoptim} package (\code{\link[dfoptim]{hjk}} for the Hooke-Jeeves, \code{\link[dfoptim]{nmk}} for the Nelder-Mead, and \code{\link[dfoptim]{mads}} for the Mesh Adaptive Direct Searches algorithm), the quasi-Newton type optimizers \code{\link[ucminf]{ucminf}} and \code{\link[lbfgsb3c]{lbfgsb3c}} and the subspace-searching simplex algorithm \code{\link[subplex]{subplex}} from the packages of the same name, the Barzilai-Borwein gradient decent method implemented in \code{\link[BB]{BBoptim}}, the \code{\link[optimx]{Rcgmin}} and \code{\link[optimx]{Rvmmin}} optimizers, or the parallelized version of the L-BFGS-B algorithm implemented in \code{\link[optimParallel]{optimParallel}} from the package of the same name. The optimizer name must be given as a character string (i.e., in quotes). Additional control parameters can be specified via the \code{control} argument (e.g., \code{control=list(maxit=1000, reltol=1e-8)}). For \code{\link[nloptr]{nloptr}}, the default is to use the BOBYQA implementation from that package with a relative convergence criterion of \code{1e-8} on the function value (i.e., log-likelihood), but this can be changed via the \code{algorithm} and \code{ftop_rel} arguments (e.g., \code{control=list(optimizer="nloptr", algorithm="NLOPT_LN_SBPLX", ftol_rel=1e-6)}). For \code{\link[optimParallel]{optimParallel}}, the control argument \code{ncpus} can be used to specify the number of cores to use for the parallelization (e.g., \code{control=list(optimizer="optimParallel", ncpus=2)}). All selection models (except for \code{type="stepfun"}, \code{type="trunc"}, and \code{type="truncest"}) require repeated evaluations of an integral, which is done via adaptive quadrature as implemented in the \code{\link{integrate}} function. One can adjust the arguments of the \code{integrate} function via control element \code{intCtrl}, which is a list of named arguments (e.g., \code{control = list(intCtrl = list(rel.tol=1e-4, subdivisions=100))}). The starting values for the fixed effects, the \mjseqn{\tau^2} value (only relevant in random/mixed-effects selection models), and the \mjseqn{\delta} parameter(s) are chosen automatically by the function, but one can also set the starting values manually via the \code{control} argument by specifying a vector of the appropriate length for \code{beta.init}, a single value for \code{tau2.init}, and a vector of the appropriate length for \code{delta.init}. By default, the \mjseqn{\delta} parameter(s) are constrained to a certain range, which improves the stability of the optimization algorithm. For all models, the maximum is set to \code{100} and the minimum to \code{0} (except for \code{type="beta"}, where the minimum for both parameters is \code{1e-5}, and when \code{type="stepfun"} with \code{decreasing=TRUE}, in which case the maximum is set to 1). These defaults can be changed via the \code{control} argument by specifying a scalar or a vector of the appropriate length for \code{delta.min} and/or \code{delta.max}. For example, \code{control=list(delta.max=Inf)} lifts the upper bound. Note that when a parameter estimate drifts close to its imposed bound, a warning will be issued. A difficulty with fitting the beta selection model (i.e., \code{type="beta"}) is the behavior of \mjseqn{w(p_i)} when \mjseqn{p_i = 0} or \mjseqn{p_i = 1}. When \mjteqn{\delta_1 < 1}{\delta_1 \lt 1}{\delta_1 < 1} or \mjteqn{\delta_2 < 1}{\delta_2 \lt 1}{\delta_2 < 1}, then this leads to selection weights equal to infinity, which causes problems when computing the likelihood function. Following Citkowicz and Vevea (2017), this problem can be avoided by censoring p-values too close to 0 or 1. The specific censoring point can be set via the \code{pval.min} element of the \code{control} argument. The default for this selection model is \code{control=list(pval.min=1e-5)}. A similar issue arises for the power selection model (i.e., \code{type="power"}) when \mjseqn{p_i = 1}. Again, \code{pval.min=1e-5} is used to circumvent this issue. For all other selection models, the default is \code{pval.min=0}. The variance-covariance matrix corresponding to the estimates of the fixed effects, the \mjseqn{\tau^2} value (only relevant in random/mixed-effects selection models), and the \mjseqn{\delta} parameter(s) is obtained by inverting the Hessian, which is numerically approximated using the \code{\link[numDeriv]{hessian}} function from the \code{numDeriv} package. This may fail, leading to \code{NA} values for the standard errors and hence test statistics, p-values, and confidence interval bounds. One can set control argument \code{hessianCtrl} to a list of named arguments to be passed on to the \code{method.args} argument of the \code{\link[numDeriv]{hessian}} function (the default is \code{control=list(hessianCtrl=list(r=6))}). One can also set \code{control=list(hesspack="pracma")} or \code{control=list(hesspack="calculus")} in which case the \code{pracma::\link[pracma]{hessian}} or \code{calculus::\link[calculus]{hessian}} functions from the respective packages are used instead for approximating the Hessian. When \mjseqn{\tau^2} is estimated to be smaller than either \mjeqn{10^{-4}}{10^(-4)} or \mjseqn{\min(v_1, \ldots, v_k)/10} (where \mjseqn{v_i} denotes the sampling variances of the \mjeqn{i\text{th}}{ith} study), then \mjseqn{\tau^2} is effectively treated as zero for computing the standard errors (which helps to avoid numerical problems in approximating the Hessian). This cutoff can be adjusted via the \code{tau2tol} control argument (e.g., \code{control=list(tau2tol=0)} to switch off this behavior). Similarly, for \code{type="beta"} and \code{type="stepfun"}, \mjseqn{\delta} estimates below \mjeqn{10^{-4}}{10^(-4)} are treated as effectively zero for computing the standard errors. In this case, the corresponding standard errors are \code{NA}. This cutoff can be adjusted via the \code{deltatol} control argument (e.g., \code{control=list(deltatol=0)} to switch off this behavior). Information on the progress of the optimization algorithm can be obtained by setting \code{verbose=TRUE} (this won't work when using parallelization). One can also set \code{verbose} to an integer (\code{verbose=2} yields even more information and \code{verbose=3} also show the progress visually by drawing the selection function as the optimization proceeds). For selection functions where the \code{prec} argument is relevant, using a function of the sample sizes as the measure of precision (i.e., \code{prec="ninv"} or \code{prec="sqrtninv"}) is only possible when information about the sample sizes is actually stored within the object passed to the \code{selmodel} function. That should automatically be the case when the observed effect sizes or outcomes were computed with the \code{\link{escalc}} function or when the observed effect sizes or outcomes were computed within the model fitting function. On the other hand, this will not be the case when \code{\link{rma.uni}} was used together with the \code{yi} and \code{vi} arguments and the \code{yi} and \code{vi} values were \emph{not} computed with \code{\link{escalc}}. In that case, it is still possible to pass information about the sample sizes to the \code{\link{rma.uni}} function (e.g., use \code{rma.uni(yi, vi, ni=ni, data=dat)}, where data frame \code{dat} includes a variable called \code{ni} with the sample sizes). Finally, the automatic rescaling of the chosen precision measure can be switched off by setting \code{scaleprec=FALSE}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Begg, C. B., & Mazumdar, M. (1994). Operating characteristics of a rank correlation test for publication bias. \emph{Biometrics}, \bold{50}(4), 1088--1101. \verb{https://doi.org/10.2307/2533446} Carter, E. C., \enc{Schönbrodt}{Schoenbrodt}, F. D., Gervais, W. M., & Hilgard, J. (2019). Correcting for bias in psychology: A comparison of meta-analytic methods. \emph{Advances in Methods and Practices in Psychological Science}, \bold{2}(2), 115--144. \verb{https://doi.org/10.1177/2515245919847196} Citkowicz, M., & Vevea, J. L. (2017). A parsimonious weight function for modeling publication bias. \emph{Psychological Methods}, \bold{22}(1), 28--41. \verb{https://doi.org/10.1037/met0000119} Formann, A. K. (2008). Estimating the proportion of studies missing for meta-analysis due to publication bias. \emph{Contemporary Clinical Trials}, \bold{29}(5), 732--739. \verb{https://doi.org/10.1016/j.cct.2008.05.004} Hedges, L. V. (1992). Modeling publication selection effects in meta-analysis. \emph{Statistical Science}, \bold{7}(2), 246--255. \verb{https://doi.org/10.1214/ss/1177011364} Iyengar, S., & Greenhouse, J. B. (1988). Selection models and the file drawer problem. \emph{Statistical Science}, \bold{3}(1), 109--117. \verb{https://doi.org/10.1214/ss/1177013012} McShane, B. B., Bockenholt, U., & Hansen, K. T. (2016). Adjusting for publication bias in meta-analysis: An evaluation of selection methods and some cautionary notes. \emph{Perspectives on Psychological Science}, \bold{11}(5), 730--749. \verb{https://doi.org/10.1177/1745691616662243} Preston, C., Ashby, D., & Smyth, R. (2004). Adjusting for publication bias: Modelling the selection process. \emph{Journal of Evaluation in Clinical Practice}, \bold{10}(2), 313--322. \verb{https://doi.org/10.1111/j.1365-2753.2003.00457.x} Pustejovsky, J. E., & Rodgers, M. A. (2019). Testing for funnel plot asymmetry of standardized mean differences. \emph{Research Synthesis Methods}, \bold{10}(1), 57--71. \verb{https://doi.org/10.1002/jrsm.1332} Pustejovsky, J. E. (2024). Beta-density selection models for meta-analysis. \verb{https://jepusto.com/posts/beta-density-selection-models/} Rust, R. T., Lehmann, D. R. & Farley, J. U. (1990). Estimating publication bias in meta-analysis. \emph{Journal of Marketing Research}, \bold{27}(2), 220--226. \verb{https://doi.org/10.1177/002224379002700209} Vevea, J. L., & Hedges, L. V. (1995). A general linear model for estimating effect size in the presence of publication bias. \emph{Psychometrika}, \bold{60}(3), 419--435. \verb{https://doi.org/10.1007/BF02294384} Vevea, J. L., & Woods, C. M. (2005). Publication bias in research synthesis: Sensitivity analysis using a priori weight functions. \emph{Psychological Methods}, \bold{10}(4), 428--443. \verb{https://doi.org/10.1037/1082-989X.10.4.428} } \seealso{ \code{\link{rma.uni}} for the function to fit models which can be extended with selection models. } \examples{ ############################################################################ ### example from Citkowicz and Vevea (2017) for beta selection model # copy data into 'dat' and examine data dat <- dat.baskerville2012 dat # fit random-effects model res <- rma(smd, se^2, data=dat, method="ML", digits=3) res # funnel plot funnel(res, ylim=c(0,0.6), xlab="Standardized Mean Difference") # fit beta selection model \dontrun{ sel <- selmodel(res, type="beta") sel # plot the selection function plot(sel, ylim=c(0,40)) # only apply the selection function to studies with a quality score below 10 sel <- selmodel(res, type="beta", subset=score<10) sel # use a truncated beta selection function (need to switch optimizers to get convergence) sel <- selmodel(res, type="beta", steps=c(.025,0.975), control=list(optimizer="nlminb")) sel } # fit mixed-effects meta-regression model with 'blind' dummy variable as moderator res <- rma(smd, se^2, data=dat, mods = ~ blind, method="ML", digits=3) res # predicted average effect for studies that do not and that do use blinding predict(res, newmods=c(0,1)) # fit beta selection model \dontrun{ sel <- selmodel(res, type="beta") sel predict(sel, newmods=c(0,1)) } ############################################################################ ### example from Preston et al. (2004) # copy data into 'dat' and examine data dat <- dat.hahn2001 dat ### meta-analysis of (log) odds rations using the Mantel-Haenszel method res <- rma.mh(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, digits=2, slab=study) res # calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i, data=dat, drop00=TRUE) dat # fit equal-effects model res <- rma(yi, vi, data=dat, method="EE") # predicted odds ratio (with 95\% CI) predict(res, transf=exp, digits=2) # funnel plot funnel(res, atransf=exp, at=log(c(0.01,0.1,1,10,100)), ylim=c(0,2)) # fit half-normal, negative-exponential, logistic, and power selection models \dontrun{ sel1 <- selmodel(res, type="halfnorm", alternative="less") sel2 <- selmodel(res, type="negexp", alternative="less") sel3 <- selmodel(res, type="logistic", alternative="less") sel4 <- selmodel(res, type="power", alternative="less") # plot the selection functions plot(sel1) plot(sel2, add=TRUE, col="blue") plot(sel3, add=TRUE, col="red") plot(sel4, add=TRUE, col="green") # add legend legend("topright", inset=0.02, lty="solid", lwd=2, col=c("black","blue","red","green"), legend=c("Half-normal", "Negative-exponential", "Logistic", "Power")) # show estimates of delta (and corresponding SEs) tab <- data.frame(delta = c(sel1$delta, sel2$delta, sel3$delta, sel4$delta), se = c(sel1$se.delta, sel2$se.delta, sel3$se.delta, sel4$se.delta)) rownames(tab) <- c("Half-normal", "Negative-exponential", "Logistic", "Power") round(tab, 2) # predicted odds ratios (with 95\% CI) predict(res, transf=exp, digits=2) predict(sel1, transf=exp, digits=2) predict(sel2, transf=exp, digits=2) predict(sel3, transf=exp, digits=2) predict(sel4, transf=exp, digits=2) } # fit selection models including standard error as precision measure (note: using # scaleprec=FALSE here since Preston et al. (2004) did not use the rescaling) \dontrun{ sel1 <- selmodel(res, type="halfnorm", prec="sei", alternative="less", scaleprec=FALSE) sel2 <- selmodel(res, type="negexp", prec="sei", alternative="less", scaleprec=FALSE) sel3 <- selmodel(res, type="logistic", prec="sei", alternative="less", scaleprec=FALSE) sel4 <- selmodel(res, type="power", prec="sei", alternative="less", scaleprec=FALSE) # show estimates of delta (and corresponding SEs) tab <- data.frame(delta = c(sel1$delta, sel2$delta, sel3$delta, sel4$delta), se = c(sel1$se.delta, sel2$se.delta, sel3$se.delta, sel4$se.delta)) rownames(tab) <- c("Half-normal", "Negative-exponential", "Logistic", "Power") round(tab, 2) # predicted odds ratio (with 95\% CI) predict(res, transf=exp, digits=2) predict(sel1, transf=exp, digits=2) predict(sel2, transf=exp, digits=2) predict(sel3, transf=exp, digits=2) predict(sel4, transf=exp, digits=2) } ############################################################################ ### meta-analysis on the effect of environmental tobacco smoke on lung cancer risk # copy data into 'dat' and examine data dat <- dat.hackshaw1998 dat # fit random-effects model res <- rma(yi, vi, data=dat, method="ML") res # funnel plot funnel(res, atransf=exp, at=log(c(0.25,0.5,1,2,4,8)), ylim=c(0,0.8)) # step function selection model \dontrun{ sel <- selmodel(res, type="stepfun", alternative="greater", steps=c(.025,.10,.50,1)) sel # plot the selection function plot(sel) # truncated distribution selection model (with steps=0 by default) sel <- selmodel(res, type="trunc") sel } ############################################################################ ### meta-analysis on the effect of the color red on attractiveness ratings # copy data into 'dat', select only results for male raters, and examine data dat <- dat.lehmann2018 dat <- dat[dat$Gender == "Males",] dat[c(1,6,48:49)] # fit random-effects model res <- rma(yi, vi, data=dat, method="ML") res # step function selection model (3PSM) \dontrun{ sel <- selmodel(res, type="stepfun", alternative="greater", steps=.025) sel # step function selection model that only applies to the non-preregistered studies sel <- selmodel(res, type="stepfun", alternative="greater", steps=.025, subset=Preregistered=="Not Pre-Registered") sel } ############################################################################ ### validity of student ratings example from Vevea & Woods (2005) # copy data into 'dat' and examine data dat <- dat.cohen1981 dat[c(1,4,5)] # calculate r-to-z transformed correlations and corresponding sampling variances dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat[c(1,4,5)]) dat # fit random-effects model res <- rma(yi, vi, data=dat, method="ML", digits=3) res # predicted average correlation (with 95\% CI) predict(res, transf=transf.ztor) # funnel plot funnel(res, ylim=c(0,0.4)) # selection functions from Vevea & Woods (2005) tab <- data.frame( steps = c(0.005, 0.01, 0.05, 0.10, 0.25, 0.35, 0.50, 0.65, 0.75, 0.90, 0.95, 0.99, 0.995, 1), delta.mod.1 = c(1, 0.99, 0.95, 0.80, 0.75, 0.65, 0.60, 0.55, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50), delta.sev.1 = c(1, 0.99, 0.90, 0.75, 0.60, 0.50, 0.40, 0.35, 0.30, 0.25, 0.10, 0.10, 0.10, 0.10), delta.mod.2 = c(1, 0.99, 0.95, 0.90, 0.80, 0.75, 0.60, 0.60, 0.75, 0.80, 0.90, 0.95, 0.99, 1.00), delta.sev.2 = c(1, 0.99, 0.90, 0.75, 0.60, 0.50, 0.25, 0.25, 0.50, 0.60, 0.75, 0.90, 0.99, 1.00)) # apply step function model with a priori chosen selection weights \dontrun{ sel <- lapply(tab[-1], function(delta) selmodel(res, type="stepfun", steps=tab$steps, delta=delta)) # estimates (transformed correlation) and tau^2 values sav <- data.frame(estimate = round(c(res$beta, sapply(sel, function(x) x$beta)), 2), varcomp = round(c(res$tau2, sapply(sel, function(x) x$tau2)), 3)) sav } ############################################################################ } \keyword{models} metafor/man/deltamethod.Rd0000644000176200001440000001612715173343621015257 0ustar liggesusers\name{deltamethod} \alias{deltamethod} \title{Apply the (Multivariate) Delta Method} \description{ Function to apply the (multivariate) delta method to a set of estimates. \loadmathjax } \usage{ deltamethod(x, vcov, fun, order=1, level, H0=0, digits) } \arguments{ \item{x}{either a vector of estimates or a model object from which model coefficients can be extracted via \code{coef(x)}.} \item{vcov}{when \code{x} is a vector of estimates, the corresponding variance-covariance matrix (ignored when \code{x} is a model object, in which case \code{vcov(x)} is used to extract the variance-covariance matrix).} \item{fun}{a function to apply to the estimates.} \item{order}{numeric value equal to 1 or 2 to determine whether the first- or second-order delta method should be used (the default is 1).} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (see \link[=misc-options]{here} for details). If unspecified, this either defaults to 95 or, if possible, the corresponding value from the model object.} \item{H0}{numeric value to specify the value under the null hypothesis for the Wald-type test(s) (the default is 0). Can also be a vector.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} } \details{ Let \mjeqn{\hat{\theta}}{\theta} denote a vector of \mjseqn{p} estimates which can be specified via the \code{x} argument and let \mjseqn{\Sigma} denote the corresponding \mjeqn{p \times p}{pxp} variance-covariance matrix, which can be specified via the \code{vcov} argument. If \code{x} is not an vector with estimates, then the function assumes that \code{x} is a model object and will try to use \code{coef(x)} and \code{vcov(x)} to extract the model coefficients and the corresponding variance-covariance matrix (in this case, the \code{vcov} argument is ignored). Let \mjeqn{f(\cdot)}{f(.)} be a function, specified via the \code{fun} argument, with \mjseqn{p} inputs/arguments (or with a single argument that is assumed to be a vector of length \mjseqn{p}), which returns a numeric (and atomic) vector of \mjseqn{q} transformed estimates. Then the function computes \mjeqn{f(\hat{\theta})}{f(\theta)} and the corresponding variance-covariance matrix of the transformed estimates using the \href{https://en.wikipedia.org/wiki/Delta_method#Multivariate_delta_method}{multivariate delta method} (e.g., van der Vaart, 1998) with \mjdeqn{\text{Var}[f(\hat{\theta})] = \nabla f(\hat{\theta})' \cdot \Sigma \cdot \nabla f(\hat{\theta})}{Var[f(\theta)] = â–½f(\theta)' \Sigma â–½f(\theta)} where \mjeqn{\nabla f(\hat{\theta})}{â–½f(\theta)} denotes the gradient of \mjeqn{f(\cdot)}{f(.)} evaluated at \mjeqn{\hat{\theta}}{\theta}. The function computes the gradient numerically using the \code{\link[calculus]{derivative}} function from the \href{https://cran.r-project.org/package=calculus}{calculus} package. When \code{order=2}, then the second-order delta method is used. For this, the variance-covariance matrix of the transformed estimates is computed with \mjdeqn{\text{Var}[f(\hat{\theta})] = \nabla f(\hat{\theta})' \cdot \Sigma \cdot \nabla f(\hat{\theta}) + \tfrac{1}{2} \text{trace}(H \cdot \Sigma \cdot \Sigma \cdot H)}{Var[f(\theta)] = â–½f(\theta)' \Sigma â–½f(\theta) + 1/2 trace(H \Sigma \Sigma H)} where \mjeqn{H}{H} denotes the Hessian matrix evaluated at \mjeqn{\hat{\theta}}{\theta}. The function also computes Wald-type tests and confidence intervals for the \mjseqn{q} transformed estimates. The \code{level} argument can be used to control the confidence interval level. } \value{ An object of class \code{"deltamethod"}. The object is a list containing the following components: \item{tab}{a data frame with the transformed estimates, standard errors, test statistics, p-values, and lower/upper confidence interval bounds.} \item{vcov}{the variance-covariance matrix of the transformed estimates.} \item{\dots}{some additional elements/values.} The results are formatted and printed with the \code{\link[=print.deltamethod]{print}} function. Extractor functions include \code{\link[=coef.deltamethod]{coef}} and \code{\link[=vcov.deltamethod]{vcov}}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ van der Vaart, A. W. (1998). \emph{Asymptotic statistics}. Cambridge, UK: Cambridge University Press. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{conv.delta}} for a function to apply the (univariate) delta method to observed effect sizes or outcomes and their sampling variances. } \examples{ ############################################################################ ### copy data into 'dat' dat <- dat.craft2003 ### construct dataset and var-cov matrix of the correlations tmp <- rcalc(ri ~ var1 + var2 | study, ni=ni, data=dat) V <- tmp$V dat <- tmp$dat ### turn var1.var2 into a factor with the desired order of levels dat$var1.var2 <- factor(dat$var1.var2, levels=c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf")) ### multivariate random-effects model res <- rma.mv(yi, V, mods = ~ 0 + var1.var2, random = ~ var1.var2 | study, struct="UN", data=dat) res ### restructure estimated mean correlations into a 4x4 matrix R <- vec2mat(coef(res)) rownames(R) <- colnames(R) <- c("perf", "acog", "asom", "conf") round(R, digits=3) ### check that order in vcov(res) corresponds to order in R round(vcov(res), digits=4) ### fit regression model with 'perf' as outcome and 'acog', 'asom', and 'conf' as predictors matreg(1, 2:4, R=R, V=vcov(res)) ### same analysis but using the deltamethod() function deltamethod(coef(res), vcov(res), fun=function(r1,r2,r3,r4,r5,r6) { R <- vec2mat(c(r1,r2,r3,r4,r5,r6)) setNames(c(solve(R[-1,-1]) \%*\% R[2:4,1]), c("acog","asom","conf")) }) ### using a function that takes a vector as input deltamethod(coef(res), vcov(res), fun=function(r) { R <- vec2mat(r) setNames(c(solve(R[-1,-1]) \%*\% R[2:4,1]), c("acog","asom","conf")) }) ############################################################################ ### construct dataset and var-cov matrix of the r-to-z transformed correlations dat <- dat.craft2003 tmp <- rcalc(ri ~ var1 + var2 | study, ni=ni, data=dat, rtoz=TRUE) V <- tmp$V dat <- tmp$dat ### turn var1.var2 into a factor with the desired order of levels dat$var1.var2 <- factor(dat$var1.var2, levels=c("acog.perf", "asom.perf", "conf.perf", "acog.asom", "acog.conf", "asom.conf")) ### multivariate random-effects model res <- rma.mv(yi, V, mods = ~ 0 + var1.var2, random = ~ var1.var2 | study, struct="UN", data=dat) res ### estimate the difference between r(acog,perf) and r(asom,perf) deltamethod(res, fun=function(z1,z2,z3,z4,z5,z6) { transf.ztor(z1) - transf.ztor(z2) }) ### using a function that takes a vector as input deltamethod(res, fun=function(z) { transf.ztor(z[1]) - transf.ztor(z[2]) }) ############################################################################ } \keyword{models} metafor/man/radial.Rd0000644000176200001440000001674715173343621014231 0ustar liggesusers\name{radial} \alias{radial} \alias{radial.rma} \title{Radial Plots for 'rma' Objects} \description{ Function to create radial plots for objects of class \code{"rma"}. \loadmathjax } \usage{ radial(x, \dots) \method{radial}{rma}(x, center=FALSE, xlim, zlim, xlab, zlab, atz, aty, steps=7, level=x$level, digits=2, transf, targs, pch=21, col, bg, back, arc.res=100, cex, cex.lab, cex.axis, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{center}{logical to specify whether the plot should be centered horizontally at the model estimate (the default is \code{FALSE}).} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{zlim}{z-axis limits. If unspecified, the function sets the z-axis limits to some sensible values (note that the z-axis limits are the actual vertical limit of the plotting region).} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{zlab}{title for the z-axis. If unspecified, the function sets an appropriate axis title.} \item{atz}{position for the z-axis tick marks and labels. If unspecified, these values are set by the function.} \item{aty}{position for the y-axis tick marks and labels. If unspecified, these values are set by the function.} \item{steps}{the number of tick marks for the y-axis (the default is 7). Ignored when argument \code{aty} is used.} \item{level}{numeric value between 0 and 100 to specify the level of the z-axis error region. The default is to take the value from the object.} \item{digits}{integer to specify the number of decimal places to which the tick mark labels of the y-axis should be rounded (the default is 2).} \item{transf}{argument to specify a function to transform the y-axis labels (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified via \code{transf}.} \item{pch}{plotting symbol. By default, an open circle is used. See \code{\link{points}} for other options.} \item{col}{character string to specify the (border) color of the points.} \item{bg}{character string to specify the background color of open plot symbols.} \item{back}{character string to specify the background color of the z-axis error region. If unspecified, a shade of gray is used. Set to \code{NA} to suppress shading of the region.} \item{arc.res}{integer to specify the number of line segments (i.e., the resolution) when drawing the y-axis and confidence interval arcs (the default is 100).} \item{cex}{symbol expansion factor.} \item{cex.lab}{character expansion factor for axis labels.} \item{cex.axis}{character expansion factor for axis annotations.} \item{\dots}{other arguments.} } \details{ Radial plots (also sometimes called Galbraith plots) were introduced by Galbraith (1988a, 1988b, 1994) as a way to plot estimates with different precisions. In meta-analyses, they are an interesting alternative to forest plots, especially when the number of observed effect sizes or outcomes is large (in which case the forest plot would be very large). For an equal-effects model, the plot shows the inverse of the standard errors on the horizontal axis (i.e., \mjeqn{1/\sqrt{v_i}}{1/\sqrt(v_i)}, where \mjseqn{v_i} is the sampling variance of the observed effect size or outcome) against the observed effect sizes or outcomes standardized by their corresponding standard errors on the vertical axis (i.e., \mjeqn{y_i/\sqrt{v_i}}{y_i/\sqrt(v_i)}). Since the vertical axis corresponds to standardized values, it is referred to as the z-axis within this function. On the right hand side of the plot, an arc is drawn (referred to as the y-axis within this function) corresponding to the observed effect sizes or outcomes. A line projected from (0,0) through a particular point within the plot onto this arc indicates the value of the observed effect size or outcome for that point. For a random-effects model, the function uses \mjeqn{1/\sqrt{v_i + \tau^2}}{1/\sqrt(v_i + \tau^2)} for the horizontal axis, where \mjseqn{\tau^2} is the amount of heterogeneity as estimated based on the model. For the z-axis, \mjeqn{y_i/\sqrt{v_i + \tau^2}}{y_i/\sqrt(v_i + \tau^2)} is used to compute standardized values of the observed effect sizes or outcomes. The second (inner/smaller) arc that is drawn on the right hand side indicates the model estimate (in the middle of the arc) and the corresponding confidence interval (at the ends of the arc). The shaded region in the plot is the z-axis error region. For \code{level=95} (or if this was the \code{level} value when the model was fitted), this corresponds to z-axis values equal to \mjeqn{\pm 1.96}{±1.96}. Under the assumptions of the equal/random-effects models, approximately 95\% of the points should fall within this region. When \code{center=TRUE}, the values on the y-axis are centered around the model estimate. As a result, the plot is centered horizontally at the model estimate. If the z-axis label on the left is too close to the actual z-axis and/or the arc on the right is clipped, then this can be solved by increasing the margins on the right and/or left (see \code{\link{par}} and in particular the \code{mar} argument). Note that radial plots cannot be drawn for models that contain moderators. } \value{ A data frame with components: \item{x}{the x-axis coordinates of the points that were plotted.} \item{y}{the y-axis coordinates of the points that were plotted.} \item{ids}{the study id numbers.} \item{slab}{the study labels.} Note that the data frame is returned invisibly. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Galbraith, R. F. (1988a). Graphical display of estimates having differing standard errors. \emph{Technometrics}, \bold{30}(3), 271--281. \verb{https://doi.org/10.1080/00401706.1988.10488400} Galbraith, R. F. (1988b). A note on graphical presentation of estimated odds ratios from several clinical trials. \emph{Statistics in Medicine}, \bold{7}(8), 889--894. \verb{https://doi.org/10.1002/sim.4780070807} Galbraith, R. F (1994). Some applications of radial plots. \emph{Journal of the American Statistical Association}, \bold{89}(428), 1232--1242. \verb{https://doi.org/10.1080/01621459.1994.10476864} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which radial plots can be drawn. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat ### fit equal-effects model res <- rma(yi, vi, data=dat, method="EE") ### draw radial plot radial(res) ### the line from (0,0) with a slope equal to the log risk ratio from the 4th study points ### to the corresponding effect size value on the arc (i.e., -1.44) abline(a=0, b=dat$yi[4], lty="dotted") dat$yi[4] ### meta-analysis of the log risk ratios using a random-effects model res <- rma(yi, vi, data=dat) ### draw radial plot radial(res) ### center the values around the model estimate radial(res, center=TRUE) ### show risk ratio values on the y-axis arc radial(res, transf=exp) } \keyword{hplot} metafor/man/figures/0000755000176200001440000000000015172365254014140 5ustar liggesusersmetafor/man/figures/selmodel-preston-prec.pdf0000644000176200001440000013112714465413177021065 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20230811130742) /ModDate (D:20230811130742) /Title (R Graphics Output) /Producer (R 4.3.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 41605 /Filter /FlateDecode >> stream xœ¤½M5Kv7¿¿¢†ä@¯2¾#¦l„mÀê< 8ÈDºHZ¦lý}çÞëYYyZ”͆}ï]]UëäɈȈxÖ._ñU¾þîë?ýö¿}ý§¯±~ÍëkÕ_×õÕ›þUòÿû¿þðõ¿ýÃoÿúŸþÝÿôo¾þíï~»~í5¾®_­Æ?{½¾~÷oÿ×ßê¯[þ—ßþò¯¾®¯¿ù­|ýÅý¿¿û­\aô¿ü¶Z8õÕ•öõ÷¿Ýÿ¾ù²#«äF–ãWE^’X];ä´Õ5$±ºªdZµ_'yÉê–Cr"Óy˪ýÚC²#ùé.)Wy~Uɹ%'2Žyßß[rtÉ.Ù§$V-þv[µK«š²Ú*ÏÆ-±ºiU”MVUǼ›¬ªrwYÕ_cIvÉÞ%±jqêö°UÙ’XåyÞSV…ϲ*¿Ö”Ü’:KV…¯¿dUø¾ÛVy3Ü2­®_gJîšr÷i—”ó}Ú%{üí¹â²‡¬C²K^È°šç×çSÒê–9%{þrM«[Vd—¼šdZå=qË&«ýkÉ)Ùâ<Ÿ.«­/xË´Zºën¹%uCV+ÎBÊ)Yò§SVS§ý–]rÉ-Ùò0–¬&Ÿ»d5t{Ÿ-«ñklÉ.™å–»¥Ìçèܧ!dÿµšä”Ì;§\Wœ–Ðź‡¾ë-=Zê"»ºK_~÷ý÷Smé×ίsÐS:äR³÷ìms¿ÝºK÷ ~m©å,uÈÏ÷ë­ÓoþZ:Þ)¿·½tú õC¡·tÑß/ùuî[OiÝ?u˯qÕ-?ß·¾,tÓñÞ×#tQszJëyi÷õ}ñy÷Ü'¢WŸŸ[oi}ÿûïúù¾õ”Vûã¥ÐÙÂJwéì-B§_6ס›üF´×ÒSºÊ¿Ë¯ÇøD:ýš¯Ë¯©ƒ)÷‰L¿Êó'ZZÏ×}!Òï¾_.tú]':ÆvwãÝz†ÞßÝð^¡×ûÖ]ZýïȧÝã µ?£ÈoD·'=¥õyфN¿<ÍÒéW韣£‘Öó0šü íõèò»8ÿ·îÒ9Z ~ûÐÿßaøÝcIõw#¢vDuÜé%}MtøÝÃXµo·N?ÆJåî¨Ó¯ûû.ù¹}Ž>ôý|6tú¹=¹uñߟèXCëþ¹õ }ñù÷Àäºõý’¡þæÖ=ôæøo½¥ÕþÇÀ'ôâûÇÀ(ô}½ò|Þ©ôóówëôë\ï[oiÿÙäçö÷ÖéW¹~÷À/ýŠ†´¡»´Ú÷[§ßÅxäV†ß=šVû{ëð›Ï÷™é77×óÖá7ã[‡ßœ<¿ñƒÐÃdzä׿…‘´îÇ[§_óùÝqà-Æ›y=îk¡‹Ïω£MÞIÊýEŠtYè»am÷eÓó//¡y(zÕi1Þ³^ÒoÄKVèÉùŽ7´Ðƒç3^ïBwÚc½*¶û±Ðó/¥Ò:_zWnÃííӯÐÿÄ…}Ѿ¬õ·»ØÖK¿™~Ýý]ÜH¡—o¦ßÝlq|K~ƒþr-ù ß-¿û0:ýííïöŒî¿….Œ/n½Bߧ9ÏÿΆ-t¾%…¾oôvw3ºßn~ÍÏÿý …ßÝ­i|pëð»»Aµ¯÷ƒZ¤u¿Äƒš—£Ðé—·yè&?&B§ŸÇ'»Ë¯Ò¾Ü:ý ýí­Ó×Ør74áW×çÖá÷Œ?vXhÏv»ÇzÙù~Øîñ†ÆwÖ~¯Þ:ý:÷÷Ý0¦_cü ¥´žß[ß'¦Ýã õOwÃÚBÿûz„¾øþwC|ÿa»Çúþ'¢¡5¸uøÝã=ÏwÃ~÷xAßÿÖáW|?ÝAú Ú‡[§_g¯É ÈÐéW¹?J—_QzHçó:ý.ëý`†_ÌtøÝÝêÒßÏô›¼‡Òe£Ãoò~Pï† ýrÚE:ýºÏÏ–S¡ÓñVèûƒêd¢³–ìêä} ô’ÎñR½®úÒx)ôÝPÔ˜ï©èð»ûóœÞ¬wÃפsü:üÆR{^ãÅ+ôä|Ô*¿¡ö&túÑ~Õx‘“®~ÍßåWý÷]~ÅßåWüùC~÷GÍ^ùNU÷ï¡Ã/ú÷¿»ò[é×'÷{]ò£=«wG”~CÓñJè{àTïþ}ËÿDú ô ]5>©-;òÚ‹ÞGBÐô÷¡´¾ïÝ‘†ßÝßçø-tø5úËzw¼Eú:èð‹ù‹…¿»¿×óØšü÷ë­—´žçÖå×¹?â?B3 }¤‹>ȯrß:ýžï7åWÔŸ‡N¿‹ç=&·®n¿ãÀCoÍ—†^ÒUz§ß}™8¾~uªÿ}ŸÈ¼ òzÅ@)ôPÿz…îÜ/=º¡Õõœ8‰ÛTßG&nk=ï÷…kÒz¾âB†.êãB§ã…ÐCZÏӭï0¿7JøÝuŽïC/i¯H†^þýœHŠf…ßïò›öòc~4túuõßqc霿 ~n/o~Ï÷]òc~.tú1ÞŽ+ý.úŸ[éÒÐ÷‹WtzÞ{¾HD·²zIëúÞv ½hßâAÍ|qè#­ûçnÒ÷£ÐKZ×gTùuÆ £Ê¯q¼·>Òê?F“_Õx:túŸ£!+Ò|~—Ÿ¯÷èò»8_1Q½¿bØ¢û/ÊÐ[ëÑéj=B/ú‡˜(—ÖõŠ‰ôÐÌ·…N?æÛ¢á.ÒÕ:ýºýv4¬¡ñ;ñbÃHõß#'ŠbØ©ë/‚Ò9ž«ZXˆa¬¾o¼8J«ý¹;žôsû/š·ŽñM~ÞÝqiÝŸZ‰a¸®G,”Hçav|¡}>f“óÙQ†vtëôþ¼.¿Áó«@¡;ýå­—´Î,)…nþ~S~ÌÇ…N?Þߢ£oÒêoæ’ó91PH¿Ëdzåwñ¼Å²Ûõ¯}ºfNÌæká…Þ¡Ý?ÇÀDZ×7– C3>ÏŒ´îçX™ =9«Èo2¾¸Fé7xÞ4P ­ñP¬Æ†v°šü:í“Öã5]ß7&VBWú³ÕåW¹ÿ×ë[¡»toèôóùº´Jë~/rëû´èy\9ÑZÏ÷­ÃoºÿX9–Ó"úý¼±båXßyh>ÿDCÓ0_ç4Í@ïÐCó%1ð­Òúþû’ŸÇ?1ñ%­ç!n i=1Qºéý5ÚUZýÑ­Ó¯2ÞØM~•þíÖéWhÿn½¥õüì.¿‹ñÕîòóxpçDmLË©ýØ91ZÏËΉŽ˜Ö;òˉœâõ¿ÐSZ÷C<˜¡=¾ÚK~‹û-&&C³®/6UZíÿ­gýŠiLÝï;r¡[E÷ÐÌ…ÞÒ:ž»á©ÒzÏ%?Ö£âEì’ÖóqŠü*ï§Èõ–x‘K¿ÂøîÖSºëï›ü<ÞŽ†44óO¡·´®ÇÝð†Ÿ×ûBOiµ'—¥cZ[ÏÏ­»´î5ô¡5¾¼;‚ôc¾>ô”VûGèÉxïÖ]zXoiü¶ü|þo}7EÊйM –ÎFwiÎï‰Xèü¾ñ¢^C3~ =¥óy‹ûK:Û›ÐéÇükè-ÝäWåGzJý}“_ÑûWèô»4^½¥³¿‹‰‰*}mtøµ£õá˜È¸¤Û@‡_Ûz¾Coé©ï“ ƒ¡ëF§ßR{)—ôXè.]+:ý¦Þc"¦J†ž=5ßïÄËb»£»ô¸Ð[:ï÷˜ø©¡;×ãÖS:ûϘ8º¤ó~~¾~±ð$ÍïWù5ûWùUŽçX^ÒÙþ…îÒå Ó¯ð}K—Ÿ¯g \¥óý$&ÊÒïRûºKçûCN¤IWùÏô‹õÏžÒº¿b!OºMt—¾¬Ãï~ÿX:ž-?Ú¿ÐwCVêöùʉÀXæÝÖ]zXoéO5-LƲq>ï9Ñ(­ã«E~ÌOåĤt¶§¡Óùè˜È¬ÒÙ_‡žÒ9¾‰‰Ïôëê¿Bwé¹Ñ[ºË¿Ë l¡Ód1ñzIë~Ö‹Vh=¯uȯ©¿‹‰Ûô«j_BOiݯuɯr½o~Åçgɯð|Æ‹¡´®Ç­ïÝк¿t!c‚ž¿šBs~sËTn[Èï7Žtο…¿û²é~‹Yé|ŸÝ¥ùû’~åøïsàÛ*Ô^ÝzJë|ßÎ%­ö¨5ù1þ ~‹ëu?˜UzUô”Öóx?è—t΄îÒWE§ßTÿ UzLô”Îù¦XH¸¤u¿Ý:ýÏ«6Nä¶}Þ–ß }oùb›Û\tþN¼Ïo‡îÒk¡·´ž—žq¡u<ý’ŸïÇ^ä׸>·îÒ9½¥s| /UºZOé|_‹…šô«ÚºKOë-­û-::éj=¥ÕŸiãLl;ÚÖ]zZoé.ÿ)¿BûЧüŠoÉïâüÇB•´î§[oiÝ1ñ%­ç±çºè|èøb›•ž[wé/æ™´î‘ÇÐjF~pnÛJÿIç|D.Ì…æ}·i Zç3ò¤u}F•ßÖzD.üIçûWèôóó0šüXŒ…Ä*ã¯\X”Öõº’—´®ÿöÓù¸uú1^Ê…KéµÑSÿ%?ÖkCwiï[ãWôý·üýÑ­ï5´ú×{à}Is~râ$´úOmÜ ­ñÈÌŽ.·õ]hütÿÍ"¿®ñ{è.½üó-­þ36"Jë|Å‹‡´¾O¼˜H«¿ŸÍ~ºÞ±12tãþ¼_tªtŽ¯COé/ÆÂö%Íç ù5®ìé”V{z¿ˆá§þ$6ˆ†®zˆ…ôKZýË\ò«ŒÏn½¥õ|Ü/†UZýÿÌ"årÿs¿Xiµ±°ÚýQ¼ˆJëþ^ù …Vÿ»{¥õ}c〴î—Uì×:?µ—«Úï:èôc¾86.iµ/±/[Zç[;ÀCOùuù¹}¸5~M~Ã~jÖ°Ÿîß[ã§ó¿òF?îo¹RæìJlÓ()Õßr¤Ì¹“'e×Go¬t%bÊ£„TúrÇÒ-9ŽÄ9zí yÀa—_n/I¹-WJõ™÷;wI9-GÊa)«œPˆ-²j–²ÒåÙ «b)«Ë2¬˜kˆM4-å¶\)9ªÜR䉿ܑ“rXÊJÄؿ“R­@,ÿ¥Ô¹Ú +=£±X˜R]È-ÃjÒíüjgòít!e¥³#eÉŽ”•®~ìC•ìHYUÿTVU?XéfˆwIýtau¤¬®”Õ¥o”ûiãÈû‹ŸâsuâíùŸ«úŸ«uŠÞb+o“¬HYåø76Ë*·—ä¾à”:uµ`¥)výH¤¬º>¨aÕ+RVm#e¥3y¿Ë*‡I]û£øØþ,«Z‘²*)+Øx×—¼²ºtT +Ý„šX8Ï`Í}çâ<ßoÃM²"ïQÑaotl/’9$ ò¤Ôi[ÉŽ”•îØØžRÏoLßH6¤¬Ô^µŠÕXHY©ùÒTÒ¹4!RVº(·”•öûõWVýBÊJϾf½ÎÅ5j+5m`•o±¥_VjbÇ¿džº¶°Ò³ów’)«¢£ÚXé Þò>‡‡%Á`ŠdGÉ‚¼Û“Í~ýšäD.Éü ˜æ”¼#¥®o/XåÐ0 Yåð#¤¬Ô ÷†•.woX©ê +=t÷[®¬tõ{ÇJW¿¬Ô|õÕ¬HYéf諱‘²Òz¿ÎÊJ÷F_Xé ê%e×ßn¬Ôñõ\S܇–°'Ò´™¨ 9Rªaì9A¸wÎÈõ9¯R†”U’î‘,HY©½+’²ªX龊•IY5¬jAÊJ·ÙhXYu¬Ê@ÊJwÝýê*«R²Rû<Vº ÇÄJ]ù˜Xéž «œ4 ‰Õ… +‰`¿šäBÞð½i‚F~—ÍȽÿ¿ÿ8 Ï¿®ÿò¿Ž}Xô×ý_þ×ì*~ÿõüþzÿW½ÿåÝÿø¬•Ÿ³¦€3±OÜ€âŠýÑÏõ°¥zý¸èûçåuÅõ ¹µ¬=¿€|ýB®5ý|òý z«~—üŸ_pŠ¿ðþÿ‚k›;ÃwŽÞþäÛJ ýó§ßVù×±Wðî þäÛJ+‡Ï‘ÿ ·­÷¯?ù¶Ò_'¸ßþùÛŠ†à·®Óò•d÷8Š hù¿Ôšþw7¹an}•œ/¿ð/ÿìÿüWÿÏŸßÿ÷ןýûïÿûþW_¿ÿ‹?þª¯?ÿW/×’>I\²úwøþ÷ÿùo±ûÃ×ÿü·ÿÇýŸ×ýŸßûÿñÿæëÿÃ×ïþðý‡¿þÏûÿð|ÒŸéÑv|þ¾¯m üÿ;"=Ø2N¤Çd5‘si@G¤Çdš‡HÍ¢?‘óRH¤Ç`6‘HÁÞ}"=h(‘ƒwY"=:ŸˆôèLéчFDzôÊQ)Ò£QéÑÑéѦn%"=;˜ˆôhU6‘W."=*Ó¥DzÔ©±0‘•ÍvDzx­—HÊ+‘eóSEz”©/H¤Géz{#Ò£ü$|„Ua—‘Ã"=®©+H¤ÇÕ?"=®ÊÙP¤‡réÓuy&és{yž5úŒYCsFzDßHø˜5YÏ”‰éŒ9Ôf*Ò#gg ü«íˆ‹œ;È)äþåHÄ.Ӫʊ(EzĤxçé‘Ì$aµ˜U¤G,l2<ÂjUÍù)Ò#–1Ú‘ûFšñm3ÍE—öåHX³i?‘m²«=«±¢¤£š²âÝ]‘Í ‚"=bù,'Eé«syÉé‹y{¬¶ŸHXšÔ‰ÍHXÉB§µ‹X)%"#'b¥õzEzÄJ®0Ez4?¯™R¤G"w~­9"¤Ë'ŒHÖŒh*Ò#v.ÑR¤G"s~Õˆ™"=b'Æ;Ò#vz¬‰N?&‰ôˆ(Ç:üÊ’‘±ó…ˆŽ¿ÇΚµÐ»g*$^‘Í[ΉôÈBŠ”È™ØY$¤X‘±sIœ"=rç“"*2Ò£‰lúv¤G"h¯HØÉ%ä[‘¹Ì:ý*¤"=Úƒ”+Ò#v² ©S¤GîŒÛèÞ!ãó2Ò#væé|*Ò#vö IV¤Gìb®HØIx9â#ý˜x#Ò£º+'Ò#°ƒ¿m$R‘òÅ^’ê-ÎDz$â¥ï—S±³”H“œ¨I¤ëéQ·‘zEzÄNYÝŠôȵúy²9¹3w¡Ão îEzÄN`=/Šô¨…"Ò£:Ž‰HÜÉl~“-\DzÄNj!Њôˆ×ûé;µ—#<Âo²E…HÜ)þŠôˆåDŠLù9rA‘±“½¿"=bç{{EzäNzGx\B¨š#>:ÕAîEz dR‘‰L½"=‚DÐÏé³G§Ÿ¯Ÿ"=‚”hŽø¿~@ÂÅê™!„X‘IztøõIû£H IQ H$Qôó.?G¾(Ò#ÞOæDo'ýþßÅõR¤G9ºžŠô€äùv¤G"NÖ[ˆ“ÚsEzI¤ó©H$“^‘õAšé‘ïî½W"LBféQ½%‘Ha"Ò#I.Gxô•“®¯"=Y"â##=YrÄÇ¢DÄF²5ñjLF•c7"=QÒ÷S¤G­l™ Ò#¤éKH]~¤V‘Õã,"=I"$YšD’tüÉ‚´ºK ’{UAâû/ù Gv,ùÉV¤G Gj¯éZ‘:ŠôäH÷›"=’ mè¹1Òß+Ò#´žEzr¤öW‘ ±×ƒšHŒ\;ªO¢Hê->DzR¤þ]‘¡…ø+Ò##ë b$Ýå׸žŠôÄHý‘"=ª·ŒéQ/–xˆô¤HÏ«"=)"b$#=B_ŽüØBŠš#<*HÑBO"}Þ–ß´ÿ–Ÿ#]éZˆ»"=!RD‚"=’DWDEFz„V$^ê“lEz2¤çK‘¡«#>¦"Ez„Ö÷S¤GñÔ=‘BD¤G’ÿ =… W¤G& XwiµÊÖÈdé!?_oEz”íÈ Ez„ÖõR¤G Cz>éˆÐv„G•Vû¬HLjÐ÷ßò+>þ-¿ËŸ—³å¡/Gx4!Cœß\–ɤ‰ü¹"=Êrä•"=Úþù‘V¥H@„ˆ¤(ò›\Ezd’Æ+Ò#´úoEz"¤ö_}q$&‘Å’Dzídúv¤GÚô‘Öx@‘qXºžŠô­öHlS~Më!ýüüâçÉž‡Æ?'(Ê|"N2Ò#´ÆCŠôÈËVÑG‘úEzÄe×ó¦H"²ìÛ‘qi|¢H¼Í^‘EË ßŽô­þ[‘q[+²L‘¡û+Ò# ]Ez„Öý¡H|¬zéç]~Å‘#]~—·Ë…S"=!êè%Ý_‘‰9ÂcHk|­Hк?éQžAEzÐŒ};Ò#›¹‰ÒÝ‘§¦ÖøZ‘ÙŒVô’&R"³0².èRd}@Š¤‹ü|ÿj+Bv¯Hì&*zHRåçñ¿"=²è%­þ^Ûo²;è!­þM‘¡uþ鑈Ñ@¯bD¤Gh¾æ^»û{Ezíþv¤Gtãz?ÕŽµb„žHк¿µ“.‡¯H6èós5‘£W¤G©üíHÐBöéQAH¤G c„l)Ò#t{Ezä0(‘&EzÄ0iô&¢£Ê¯p)Ò#†]BصwµôÏH¶uôr$dZ‘¡9ž!¿âãò#â‹HF6ôb/ö9†¡Dšä@%´CEz”öD†äƒ”ÃÚ‰ÒB¾鑈’t¾¸$¢ÔÑKz¾"=B7ë!}Y!Iú>ŠôÈa»õYRDG•ßpäE•Ÿ#W鑯 ŠÜhò#b‰Hx­XŽð( L =^‘‰0½"=ŠÖî¾éº½"=Bóý¦ü*÷§"=izEz„®¯H¢M/ߎô(O$‚"=B÷W¤GèòŠôx'"=qR¤DFz„Öý¥HÐB”鯑DRd¤Gq䑉<)â"#=B—ŠBš¶~¤ùû&¿í¿oòÛþü.¿¢©H|MvÄÇ‘VÄ‚"=BëþP¤G"Qò›ò› ΊôÈ×tG~i!ÑŠôˆ×|"D–üŒ4ŠÕJDª¡‡´OEz„¾^‘L+|;Ò#‘)ENä. ™"Ò#‘©N¿Æý HÐBré‘•üªüزH¤Gh!´ŠôÈiù7ù1ŸF¤GN³èóºüª#EºüÜ~)Ò#¦m„ +Ò#§qzIa2åÇn6"=Šß/‰ôÈi"é%?#±Šôx+"=ŠßG‰ôÈi¨W¤GLSñ‘7nN[9âcI«½Q¤Ó\ߎô}9ò#ý|+Ò#‘¬ƒ^Òz¾éº9ÂcHqQåç u,‰hMô’Vû¦HD¶ñ1¤õýéQŠÛW±·9-¸ÐKúé‘WEi"C¦ü&í‹"=ròB/!ZÛ‘EZ‘1ŠôH¤ë #’¢ÉÖÀ"tyEz<ˆ‘9MZÑCZþŠôHäëéñ _Dz$ò¥Hj¿ëéÓ¶z>éZí­"=Ji‘å‰ðS{G¤‡¶Å?‘ó=Žô¸ >éaÄÍ‘—#£ˆô¸@¤Ç5";ðÓýM¤ÇÙáHkr>ˆô0çHËãA"=.÷×Dz\Ìß;Òãb}Á‘×ðñ(ÒãÚp¤ÇåH"=."|éáÈbGz™s¤ÇåÈ"=.G*éq9HÏ:Òãòû ‘WwG³_±Æï²N?*}8ÒãjŽÀP¤‡çéq5Ÿ"=ŒÜ9Òãj‡ÇÉJê8‹ ª×‡Ã$.9Þ×CL‡SØHé8OhG†t2–Éè8ÌOÑñ•z;Ì–ÐqÌ“Ïq¦Æ>ÄsœÉåVìÆqŒÂ9ΠU6‡£áˆæ8žVÉgrõÌq¦sH&VâZËqH"•ã<¡# «Ë?••ž_Er<¬¦9«grœáü¤5ÎðÉÉ8ŽCz;i^‰"ŒãñFsIÏ8Œ\ Ï8Ô^ ;ÃëàDg†µ$gÜ%8ãT'ÊÍ8Œy‰Í8Õ) +õt Í0ÖKf†#<‰Ì8OÂÅŠ‘…y +uŠË8l%-à 0a‡Zdeœê¨Ž|á?TÎ")ãIe˜&'ãFŠÉ8Tá %Ã;É8ÎØQFÆaÿ § „ ãÄdßÉÇ0]L<Æ)°XM‡eÈj¾²1´5÷û‰Æx’?&V Ê"£@4enQœÒ±±z’2"îÁ™WDc0?ëhŒB×F4F!…hŒâäˆ +Æìh v–9ÃÙDDc°oÃÑå3ÃA\Dc°Èáh æ¤AUGcðÆãh 6:£p›A££1˜v4›·áø¢1à¥á°0¢1œ5G4Æå¤ Ec8‰‰h ±Á¶qGc8†hŒË‰«å¤ Y©O!Ñ.Dc\Ž·¨XM‡_Èj¾£1X;r4Æõ“…!«é¤ ¬~!«ñŽÆ¸~‚3dEöÇÄJ70ÑPÜŽÆpê Ñ@ÝŽÆ`BÑѬ‡:ƒèŽÆ¸œÐ¡h ¿Œqi çh àDc\p¼Dc'ƒè@Gc˜'ƒ`GcPÇÏÑÆʼnƸÀz‰Æ0=N4ÆÿO4†ar¢1.‡P ¬DùÁâ°£1Œšq9±baE`ÇÂJ Dc°Îâh *M9ƒ·r¢1.]Ñ.[A4ƃ©+cõÝDc<Ôº¢1öùIÊÀêBÊJ °¢16õVˆÆx˜vEcl¶ž±Y)"cIt[]HY-}ÐÀJH°¢16uˆÆ0«A4Æ> ÁŠÆxðxEcŽ™(XU'eÈJ­Š¢1ž°EclV6ˆÆUôíhŒ';@Ñ›*¢1ž(Eclêºñ$ (cçY ¬Š³0°êH¬”v±lå¤ ¬ +gaÈJ©ŠÆØl½#ã )P4ÆRðDc¨ùz¢1”YðDc q9)«ŠÄJAŽÆP[G4Æv‡¢1œw@4†óˆÆØNèP4†ãˆÆØ´„Dc8 hŒ—ÄJ9mUXé Vû eEöÇÂJÍ&Ñ/¹2²A;Dc8Xh "ᜢ1œ³@4Æ#‹­ÞÑNa Ã) Dc0óéhŒG6¬Ô ጢ1Èåu4ÆKb¥<‹a+'e`U‘ç-§­ +‡_ÈJ9Ñ/)«ù1?£1ÔÔ?ѯlˆ'ƒlGc²Ø®ž‘Ê?ÅvE*7 TŽõ-‘¬"•c5Lç[¤r,¥é~©œëpúüìišwºC*ç’ŸHà.?v¦C*çêbE§_µò+'"•³x®t®¸æš©uøÕý£Ã¯®R9sùü$•s%øE*·êâ¬"•sÑy¢ï KÔjD*Ç‚¶H"‘ʱ®çM¤òOR€HåXxi%R9–é!…s&9×ø+:ü¼óR¹¹x¤rl>€$®òcaR9÷9túùþ©Ü¼óR9öcèþ©ú2™~—‹§‹TŽ­ "WD*ÇƵ"•sJG§ŸIw‘ʱÁ¥½HåÜ £ßßò3Ù©ìÀl“ÊgûüˆTöV “Ê꯾RÙkï&•½ÜlRù¸=†TöâžIåSM‹T>;4©|ØdRÙSL&•ýþcRy/ÈBHåÍND“Ê{š´©¼YK7©¼»Ia‘Ê›uM“Êû!‡E*o“mÊû2I,RyîHåµÈäKº˜L¿µ|>D*¯Éó©¼Ø‚`Ry9‰Ry±SÙ¤òj&wE*/VÛL*¯™ ©¼˜77©<ÙîdRù)6©<ÙyjRù!!•ç´¿He33©ÒLo¦øåC¨Ö«fR„îO‘Ê ´nt亸¤rõÎ`Håz]&E*{/­Ieïq5©|˜ë4©|ÜÿA*{7¦Iå³hO •Ç›Ê®Ó`RÙûêL*{ÏšIåCñ@“ʧ™Œ©ìíE&•½ßƤ²·˜˜Tö¾ “Ê^ß7©| )M*o •½ dRÙÓÙ&•7¤´IåÍx̤ò6Ù©¼§Éb‘Ê›b~&•·É+Håm² RywÈHåM²‚Ie'=™TÞ ²RyןŸi~.Ryÿ\¤ò.þ¹HåÍö“Ê›¥j“Ê‹ÅK“Ê‹e%“Ê‹éq“ÊËÅ~!•×2I-Ry-ÈHåÅ<”Iå5M ‹T^.† ©ì÷}“Ê‹¢&•LeRy™Ô„T^&% •×C‹T^. ©¼*×Ry™€T^Ť°HååâÙÊ‹ñ„IåI2’IåiÒRy²ŒeRyò¾eRyn®¤ò\ðÊ“ñ¬Iå9! •§‹MC*O“µÊÓŃ!•§ïWHåiRRÙI&•'/M*OÆ/&•Ÿb¸ÊÓ¤+¤òtqjHåIÿoRy²Qʤò,$@*χ¬©dR¹ñþjR¹™¤„Tn$Ù˜TnNJTv±_“Êm˜d©Ü(öjR¹™\„T~’3 •›ŸHåæöRÙ+L&•ÛCR‹Tno@*7Š ™Tn.f©ÜØÆlR¹1ßnR¹™ÄƒTn&í •½¦eR¹™”ƒTn&á •›ï'HåÆnA“Êíâø!•Ÿ$ Håú"“‹t7™<¤uþ •+û;L*W÷Ê•õc“Ê•Èc“ÊÕ÷¤ru²¤r]´'Êu™Ä©\ý¤r…L2©\)çfR¹2ŸeR¹’\eR¹ÚHå ®cRùIÖ€T®Œ÷M*W*¤™T®A*WꜙT® &&•k7é,R¹vžHåJ”±Iåêñ0¤reþݤr5Ù ©\›Ii‘ʵÒÿA*×j2[¤r%ÉϤ²×:M*W÷wʵØO¤r-ÜÊ•ù“ÊOÒ¤ò“´©\ÙdlR¹òþkR¹šÔ‡T®ß@*WHL“ÊÅãMHåÂz›IåÂúˆIåÂû‘Iå¾1“ÊÅÅì!•Ëþ$• ëw&• »L*'A*—íã©\œ4©ìâÈ&• IU&• ë§&•‹ûkHåægR¹øyT~’7 •Ÿä HåB’¢IåâçR¹x¼©\þÊž?1©\ü¯ÉÏÅ]Å*‡nF™ñÑ&Z¹£ •cù˜H¾¤‡üx¾!–3™CŸ?åçb®b–CWSÊøCÌIf³‹l¹\l§†[.Þ¸œIF•/én’¹Kó}Óè§8´àå,½ÐéÇü#ør.ËWt—Û €9´Ìåzxçj?Ñ,ºq2™ãBã'DóO1iíÉdŽŽžÒ¢2ç6ƒÉœÉŸÎ¿Xæܦ0ÑøóÊø‰Μŧ zK‹ŽÐœÉ}¿8e2‡>/'æŠQ‹iÎdŽÞÒ"v41\.j €5ç6 ƒÌé78Í™Ôq¡·ôz¡Í™ÌqÐSº¿àæLæ0ÎŒŸ{áÍ™Ìa ¿ë8g2‡‘æKz¿ç,nm½¥ç rΤküt¾„9gR‡5~Õ?ÖéœÛ`¬ïʤo.$üÃìœIÖ[*7;æLæ°ÆOçOÀs&sXã×L@ã'KÌs&uT4~º¾¢žŸ¤°ç'©î9“:Dwù±>ùœI/ô9·vÆÊzØ®zÚ’zÚO÷£øçܶdâ9ýHÖƒ€Î¤}Þ–ŸQ?1Ð?ŸAç¶(CÑ]Z “0èŸâÜâ 3©c£ñX)ú§X·Pè"¬èÛ,t&u®ò3}&:·qɯÉÏ”˜xèŸbÞ¢3©CÇ×í7LHã7^Ltñü?Ptq’4Tt&uèx¦ýÔ^Š‹Îä£Ïøñ}DF»û€Œ>ƨEF㘌>¥EFCÁ˜Œ†d1ÍF“Ñ®Ík—ÉhF¡&£A*LFÃA˜Œ†V0ÍŠ¦Éh¶ú›Œf¾ÉèmÊXd´ƒ; £Ü͆m“Ñvpd´;2Èhw@F³Ìj2ÚÁÑfÍÆd´ƒ; £·™k‘Ñ˵ÈèÅóí‚åѼ}šŒ^tFÑ®_Mè¶ÉèÅ÷…Œ^|_ÈhñLF8j2šü_“Ñ,ª˜Œv±sÈèEEvÈèÅõ…ŒfÁÖdôäëCFO}‘ÑÓ__d4“±&£]2šÐ,“ÑÔP2M„–Éèi\d4ÛMF3Ëk2šEF“Ñì±4=âAF³¢d2Ú08чuyÈèÃ2$dô!ÿ2úSÕ+¨êŠuà nºaõ€Ò²Ò­"2ú£Ð+`ç°óÀ ºy`¿<±‚_žX,/¬šAiYéF} бÈèÃ&ÈèÃdôa 2ú°Ã2ú“¹²âXÈèS ÿ¬.£Ð²Òm&2úP2ú°µ 2úP2ڱюõ€Œö¶ÈèÃ*#dô¹h‚DFöŒCF@!ÈèC¶5dôPŒ>ì瀌>÷¤ÈèCYBÈèûmö2ڱюõ€Œv¬d´c= £ë}X5‡Œ>”GŒ>T¦ÈhÇz@F;Ö2Ú±Ñçâ~ííàÑç‚píXÈhÇz@F{+dôa&2ú‰õýÄzˆŒ>`/ÑO¬‡Èè'ÖCdôá2ú‰õýÄzˆŒ~b=DF?±"£ŸX‘чÜcÈè'ÖCdôë!2úðj ýÄzˆŒ>OŠÈè'ÖCdôë!2ú‰õýÄzˆŒ~b=DF?±ÑŽõ€Œv¬d´c= £ëíXÈhÇz@F;Ö2ڱюõ€Œv¬d´c= £s‘ÑŽõ€Œv¬d´c= £ëíXÈhÇz@F;Ö2šéo“ÑŽõ€Œv¬d4U¹LF;Ö2ڱюõ€Œv¬d´c= £ëíXÈhÇz@F;Ö2ڱюõ€Œv¬d´c= £ë}>ÉèóIFŸZV°Ï«‡}ƪ!±*H¬ô¹ +µ ÑÄz$}óh½£Âó¾o²?"£ËG gÕR~j8wdpµ“uÀ%DwvÝÉKˆî¬ºXKˆî$qHðGÜÀ…ŸnÊyÛ/!ºƒÞ%DwÐã¯m¹"» ã Pz +6 M çì/~j8ç…þ©álšÎ*üÔp./2º‘Ì]y]ÙU×pf‘ß5œùF®áÌ”*dtánt g6H¹†3ûU\ùéŽÚ¢+æZˆîÅ ¶AtIAß º¶Ñ%ãƒè2HÛ*&ìXà­bž¹Ú*&ìú­®á ¤³©áÌvSÙ0ûC gjáj8SŠòPÙõT×p®z]ÙŸ΋P×pviej8›2¦†3™Ý®áÌ•Γ&‘Îs« p g¨a«n“¸rÍÊÄ]¶šj“–¶v'Q:$³ð2Àí;†ZfÍƼh¾VѸƒÕ€#wcF çN` 5œ;!÷®ál²À5œûOÍæ®ÍÍ?O·Ë5ŽEF72kLF7æ#ŸÎ&å\Ù Ž§†sý$£#[“Ñõ©‘,2ºš¼‚Œ®Ó5£©áÜÙïμÊ'Ý“´\Ý“´ép‰Ä-ääaO²R$Ð%·˜D¸DâŽÏ%PÕ`æüˆÄ-®! }“á"£/׌…Œ¾¦I_‘Ñ×€¬q çþCJSsy˜„N?×8 øÔP®®¹Ü^dtl08ÖÔ\ù#2º:+ö©á\]S™Î&-]Ù•k8;!Æ5œ²½¨fðž?$tÖHî&¹U3x?5¦U3x“Œ™[LTSY¤IQÍàEgš[ZTcY¤[QÍàõœ_Õp^&‰¨á¼ºÏj8/×¥†óâÝù©álòŽÎó©Y¬ÎOCj8O×,§†ó4™K çÙM«†ó$4Ö5œ]ëý©áÌk”k8c?ÕpN: †óX®­ÎÃäX®‘LMèéÉ"_UªR\Ùò4©I½\#Y׫.×H¦öväbšÉ—Éé­šÈ"I¨áܻϷj8÷f2W5œ;1²®áÜË~û‹ŒŽ ÃýEFW½#~?5œ›Ï5œ›“ ¨áÜè.\ù1ëÎͤ5œ›k¢SùñªîÎÍ54©á\Ï¿§}‰[]#¸‰Ä­¬<°ö§Æq‰[»?_$n}ŽO$n­>þíšÆÕ¤´k¿ÉèBD›Éèâó]LÊCF—Éù‡Œ.ì¼6]ºk"‹Œ.ç2º¸½Œ.Lt™ŒvÍ“ÑÅ5Ö!£¯ãšÌ"£]cÆd´#HLF_&_!£/×…ŒöΈ$£U£ø2 ÝU“¸˜œÞªI¬û©/× î­Äjúv âeRº«æ°jÄ‹ŒNàJÇ\ƒX$•ÈèºDæ^òsMY‘Ñ ŒYoéb:ýÜ_ŠŒ.ŽZ†ŒNàm Óï2 ]åÇJ7dtñ dtyÈu‘Ñe»¦ÈèÐåEF—m\dt’\ ~¬¹†ó6é6~j/45ƒÕ~Œ§f°úÓñÔ †Ü¦f0Ñ­IFŸ$¯ö‹ŒNKZ5œ—“-¨á¼œTB çÅ2ªk8/_¨á¼2Y5œ×àù§†óê?5šÓÏÉ Ôp^Í¿¯ÎË5±©á¼|ý¨á¼òZ5œ×å˪á<=^¡†ó<®¡¬Î²Ã5œ§¯'5œ§kÌNÕ žÓ$85ƒ]SvR3˜šC‰T]I6m“ÐEºZ§ŸkÆRÃy²Ç5œ§“@¨á<ÝSÃy“¼ªáE ç-·1½—d´tÈhiõ?[$ns2Œ’üB?¤tú-לV çg¼#2:‡&¡‹t7)=¤uÿ‰ŒÎaŠIèVH“ÑÍÏ/dtóù†Œn~ŸŒn&£[³ŸÈèÆN:“ÑÍÉMÑ%6“Ñ)“Ñ“Ñí!—EF·Ë5˜EF·Ëd¸®Gu{¨Ž7I•Ž^Òi»P ku¾HÜêñdtÝ&«EF+Pèû!£+×Çdtå}Ídtìô‡Œ®”Ÿ1]$dte'©Éè:\³Xdt5ù]]ƒ 2ÚÉ &£kƒÄŒ®ÍÇ#2º6H9ÈèJ’¢Éèêeѵ²s2ºº¦dt}jB‹Œ~ÈŽK$n-®ñ,·^&ËEâVZ’Œ–ÖNÈèÂd»Éèâ¿Ñ™]ÎOÍæðóüÉèâ‡ÑeC¦CF—ÅÎ{Èh'C˜Œ.ˤµÈèbò2º°“Ùdt¡’‘Éè2M"‹Œ~j”BF{>ÃdtaWÉèâÑÅädté®Á,2ºt“Ôº…ñX’ÑãE6‘¸OMÑ"·4ÿ½Èèb’2ºøþŒ.õ‡„.ÒÎ"£‹kôBF?5A!£ óA&£ ËÎ&£ uLF“pÑårMh‘Ñå!ŸEF× ‡Œ.¾ß £¯ãšÊ"£/VYLF_&m!£¯Ãý}™¼„Œ¾LÆAF?58!£/öGV!o¹³_Z$îÅ|E’ÑS;ù/ô‘™ }-û‰Œ¾LÊAF_ ò2ú¢¤—Éè‹R“Ñ—I^Èhï´7}¹æ.dôSó2Ú;éMF_Ã5’EF?5-!£/JP™Œ¾\£2ú©Y }™ôŒ¾(éd2úb{—Éè«’Ñ—É:Èhïd7}5“Þ"q=ÿ^Õ±çÎô>ÒÔx}1þ7}™ìŒ~jDBF_NZ€ŒÖ4í÷CF_ì1}9Ù2ú*&ŸEF_Ôˆ1}QÙÅdôÅ>“ÑÞ n2úr’dôÅ|‰ÉèërMh‘ÑÞÙm2úºüy"£Ÿš‹Ñ—k¼CF_&÷ £½32úøñìÙn;ç%¹hm½~aч ¨èÃÊP´Ë ÂD#óB¢DDûµ úíÑàÐg›v΋yÜå†öŒ/,ô1 +Úå!¡½ú˜Ô´àY?š[Êù¢ ¡@AЮ!í‰ ho6†€öîbèãʺâŸÏ4.ßôLÚlÑÏ®ôü|ö;§RP ÏÞ ù|t¢å˜c®PÜóq]aÏÇ)¢žôìŠ{0Ïžxy>ÄtÃJ€£€çãVI¼³wÛ‚;{{-´³÷Ó;{-¬³wÌ‚:{‹,¤³kÛ:»˜œóq Ž0çÕò~ =Ýåšóã¸ú®çÓHçà!QÂù°N à|:Ç,¾ùt㼉7kãè·éæC8póõm>.Ê+´ù&»E.ŸbybEæ…U7¦Ü xA-»bв÷òU¥ú{óȲwëA,»ÌÀ²ëjÁ+»¸²·ØA+Ÿ‹¶]°ò![Vù¸h¼.Ç1‰.RÙᕽó NÙ[ÝÀ”½™ JÙ»×€”½] Fù<ʼnVÅ«n YVðÌ+ðé…•ž#ÑÉÞ'œ|œ-#6Ù[¿M®O §$“ë³¹ 0ÙU™à’ÏSð8y\oЂJöŽ, d﹂Iö&+äͼ.D²Ë’½Q y3IŽì½OÐÈÞìŒìÝM°ÈÞ¿Š¼ŸÂÊ+ÀçÕ0w,+q½­ Ùûˆ€÷Ã/¬„¬ Aö^ $ÛSÄ'äöTí?v]ðcâ>v©àã}gÄ»˜è±Ëå@»>à±+àÀ»ä ر‹Ú@»Š бëÔ°$ïJ4 Ç.=qìZ3Çûᥓ7v½pcˆ6vE`c×|5v‘Pc×m4v¡–ûSŠ¥iÁÅV3îOu(c×O2v…cWH1v cW90vYøb./vièb×".vµØb×-vÅÈb—,v¸b—ù+v]¨b—ê*Ö¦¢o3Å{s )Þ CDñf xoóÇ+ÝުΰM·×c«‚¼¯ìÞfóUa3a Jì¤BHâ½]Ñ8×ù¶‰BqÄ›±7ñÞ¦t«­Õ6¬„Š!ÞLïíâÈ«òˆ½{ ~x]>¼]‚\ôðæ•xxo² Äï F$tx›ô9¼ Þ†"Å ïmÌxÛÊT0V ‰•b¬®æ¾âm¾RÄðvtÃ{¹ qnuÛËülâÂÛi¢…÷¢6¥`ámTS¬ðvÉu¡Âo‰•ÀÝn«‚Äê… ïe y`¥vCðœXm#òzj%cõ„ß+}…m«~Ëc«ŠÄê„_R€ðf9@x³š ü–]r#·¤àâŠÕ#±?Ûle‰•ña¬^€ð[b%2wØÊ«ŠÜo9me^x¾å²Õ…ìŸRVó¿¥¬Ô +Ìð-û§ÄJ ¬Oû#oϽÌÀælÈ[vÉÜo™€ð[beøú”X5ä~Ën+K¬„ñ[YöO‰•¨Þi+Ëù–ËV²Êý–ÛV–²¢rôÁê‘ýSÊ BöÂê‘÷…þ‘9¼Ë!¹ç-sÇÇ[®·l¶šÈñ)Ï[v[Y®·¶Èñ)Ï[N[Yb%ªwÙÊr|Êó–ÛV–VÇV 9>åyÉ}ÙÊr½e®å¼å|Â?2á·\oÙle9>å‡U·Õ þ‘ÃV–ãSž·œŸVóÓj}Z­O«e+ÁíS®·<¶²Ÿòm%ç-ßV‚ËÞr|Ê“Ø6á·\oÙ°zäø”VýÓªZO«ñi5>­æ§Õü´ZŸVËVyÞrÛÊr½å±ÕÊ—UŸr½ey[¿åyËZßr½eÂo9>å‡Uÿ´êŸVãÓj|ZO«ùi5?­–­r|Êó–ÛV–ë-ϧÕù´:Våú°*ׇU)V”N~Éó–*ü’ë-U:ù%ǧü°êŸVýÓj|ZO«ñi5?­æ§Õú´ZŸVëÓjZíO«óiu>­Î‡U½>¬êõaUˇUý<í”N~¤J'¿äzK•N~Éñ)?¬ú§Uÿ´ŸVãÓj|ZÍO«ùiµ>­Ö§Õú´ÚŸVûÓê|ZO«óaÕ®«v}XµòaÕʇ¥“©ÒÉ/¹ÞR¥“_r|Ê«þiÕ?­Æ§Õø´ŸVóÓj~Z­O«õiµ>­ö§Õþ´:ŸVçÓê|XõëÃJÛº~dù°êåÊÒÉTéä—\o©ÒÉ/9>å‡Uÿ´êŸVãÓj|ZO«ùi5?­Ö§Õú´ZŸVûÓjZO«óiu>¬Æõa5®«Q>¬Fù°Ÿ§ÒÉ/¹ÞR¥“_r|Êó–ýÓªZO«ñi5>­æ§Õü´ZŸVëÓj}ZíO«ýiu>­Î§Õù°ªù–o«Y>¬fù°šåÓJ€ðK®· ü’ãSž·ìŸVýÓj|ZO«ñi5?­æ§Õú´ZŸVëÓjZíO«óiu>­Î‡Õº>¬ÖõaµÊ‡Õ*V«|Z}žváG ~Éù#Þw§£Ùøçݵ' œSÉÿå·¿üÊu—Ü®üÏü×_}]_óß*³L‚‘Ë,ÿÈý–*³ü’¶JŠw>VÈþPËO™å@I™å—Ä*§<)³¼(æG™åÕ?`âÕ?Ê,/ö÷/ ů®IM`âåúÆ‚‰!LÀÄ‹­ÜÀÄ‹sÀÄ«=lqG–¯&^MSÀÄ‹]FÀÄ‹u`âãL¼p&^¬·Sfy`QfyÁëPfy±O™åEÊ,¯.¼l•37{Ùj€ c5`‹±—¬2Ë‹x'Ê,/ hPfyïD™åE¼e–WÓ?e–Wƒ-.¶ÊIzÊ,/–ý)³¼à{(³¼\ ¹ÚJE˜›­Ä«Ì²«ˆSfyJ™åEbe–WÕ¬-e–M”Y^/˜X2g)³¼a¢Ìòb:e–W}Øb¬T„yÛªCc¥S§2Ë«jõƒ2Ë«r®r3¤àÁÄ© ºKkó¸`bÚ¤oÃÄ©_0qÖYL[åW\¶¸Ê0"`âÌDÐï7ûMÃÅø fLZ›Û‡~Ê.ã÷ÀÃøûûñ}§ý.ÃÅøis»Ê,Gƒ}˜XXyÉï2œ¼åÉM™å,4ßÐ÷z®Ò}¡§4°mÂÄ]1ˆß†‰C×LZ0·`â̧èð›,¡‡¦,sÂÄ¡qs—~Æ]èó“b%þâÛ0qöv/˜8Ó#*?Á‚‰3MãgçÙÑø &R™åèku—Þ†·´`(QÞ¡§õ”ÖùU™åÐÝ¿f}‡Öý!˜¸»L0qèËðð52ã¼`âÐÀ¶—üX&=_0q<ÛVûéz &î.CLœãÁ·Í~º¾‚‰c˜s^0qhŽ§Ëoúxºü KŠ"­ûOe–s¥Ï›öfžö+†‹ñ» §ŸË܉Š­ë¥2Ë¡)S½å7|>rM>´à&ÁÄ¡_ &Î!aþ½`âД)N˜8Fú|ÁÄ9¢<[ä×¹‚‰C ¶LœRÃÃøéyLx·ÉÏð‘`âÐÛðð%-˜E0q‡ oiÁ~‚‰Cïû½Ë,Ç`ûîÒ‚kTf9ãò[òsY@•YÝ ã§ûMe–Cóy 3ôÿ6LÜO0qh}?ÁÄùæÐÐ]ºùçøQ¶¸Øï)»œ~†{ç{ÊBwéiØxKëþLœ¯9/˜84po·ßSV9üñJÀÄ¡ù> çKÕ &ݘXº>0±´Ú3Õ»ŠW6Ý*³œ¯p=¥u?¨Ì2o|ß.³ÜŸ2õ‚‰CëùLÜKÒÀÄ¡xø’–¿`âЂë‡¾-ö£Œq‘ßt™æ*¿ÉùLZϯ`â|ù5<\¥)ãÜäÇæ`âþS¦¸ËÏႉC ÖLZχ`â>ØüLÜ]Ö2Ëù"_Ñ[8zÉÏÏ»Ê,w—}£Ì2Óß.³z½`â 5Òçå«Ðê‡Öý.*54ðlîÖ‹9 _ÁÄý§ìr‘»C‰CëyLÜuY¾ Ç É6l¼¥ÕŸ &ÎÔ%ë)Ý^0q/¸8ý&Îéé!¿Ëeš‡ü<^LºX‡ŸËÒQf94~ wçÜ‘õ”lª2Ë¡/ëôÛ.K;¾z7¬.˜¸÷íó—š2Ãy`¡¯Ló^j‡V%˜84eš‹üϧ`âÌ­ºÐé7_ &î}ºLs“Ÿû[ÁÄ¡ß0qNéUô¦,t—e%€‰{§Œ0qh¾ß”ŸÃ9‡ž†‹´Æ#*³Ü»Ã2Tf¹?°­Ê,‡^†‹‡ôxÁÄ¡)SCs< ÇT)ppÂÄ¡ç &ffõÛ0qhàØ"?‡K&­öI0qèn¸xH«?L³¾zŸLÜàÞ&?—Lº.Ò‚÷Ç3ß'a✂Þè%MYㄉsÆÚpñPv™ú •YMÙé%?6ÍQf9´ÚWm Ëéò‚Òz´A²»,0qN¾ôª–¦ñ¤`✫¿ÐCú‹´îÁÄÌü&½^0qh=‚‰C×LË ‚á粃áâ%Íßwùy|&˜81üó#Íßù9\B0qhŽʯúø§ü(ã LÜàå%?²…)³œë1:[~̼åW S'õ—«;:ž|qŠÅŸc¸xIOÃÃEZ‡(©Ð”=ÎS¯.Ó*˜8´Ê´ & ¬›0q7ü LëX¢M÷Êû0qh‚‰C ÎLÜ+»À€‰C NLxwÈü¦Ë"Où¹ Ÿ`âÐï2˱À§½÷*³šï»ä7(#©2˽º,˜Ê,çjâFß.4°qž¨Ð‚bçÚ¤`ÚÜæþD‡° ˜8W:÷ù™#Lš²ÁU~Õeœ«ü ¿ &ŽeVàß&?æC€‰s‘VÇÓåw¹lr—Ÿ‰ÁĹä«ãòcþ˜8Vˆ—áá" lœÔgèú‚‰cùY0¶`âЂ{Tf™Õêo—Yîeûó¶ü\ÖQ0qh>/Î\?èÚœ™`âÐú~‚‰s¡½¢´àtÁÄý©‡¦Lr•ŸÉ-Áı迭´®Ÿ`âÐÕpqú1~&= éö‚‰sC‚¾ÏŸË. &­ûS0qhàä)?úC`âÐÓðp“nL,}=0qè˰𖟱ÁÄÝaMÀÄÝáxÀĹ¯ãw—=&Ž]!OÙå#­çU0qn"±N?—ýLzZéö‚‰C7ù¹l´`âî²`ÀÄ¡Ë &Ží1z>çîÁ¼C~.++˜8öÞGOù1ž&έ::ýš¿Ï’ŸÛÁÄ¡Åå¨Ìrÿƒ·ü\æO0qà_ÁÄý}Ç&$`Û„‰C Lœ[˜^0qìpÒý-˜8´ÚÁÄýº ûæÄ1û¥¾ g¼è…>ÒzÇf¬§ìò’Vÿ¦fîÝzÁÄ¡)kÜåçë/˜8´Î—`âæ"7ÀĹì‡Öý,˜¸=¼¨`â @]è%Ýiµç*³Ü\±ž8´Ú+Å¡Ë‹(ÎDU1µIMåþºSÜ\‹¨8vçíUÜxPXqs©¸âöp{‹ÛCÛ‰,nN´-n€‡-nb&¸¸9º¸9Ù¼8w- Ý͉»f²À8ö<3ÄEZ÷‡ãfÆ8wPê÷—ü–Éoù÷·ü¯Rf¹m·ÿ3…Vç#IãÜìÙÑKÈ7YãÐú}ÁƱ“T¿/Ú¸m?ßÂCëxÄç¾Tý~•_s™æ*¿æ߯ò«.‹Üä粺‚ŽCë|Š:Î-´¦‡´Âć~ƒÇm3ž„<­ë+ô8ô»ÌrsXðqn–_NT‡®/ü8“zõùɾ„摇´Úȱ1™2ÔI³å¾åƒœÛšóø!Ç®çm(yJ«ý†J¹ÈÏH·žBS6¹Êo˜®òóøO,rhµ§‚‘›–¡‘›×RÁ‘ŸðaxäæåD€äÜK^Ð]Zí•4ôõb’3½x¡§4€ó’ßõC)wiñßâ’Ùÿm09«juô}ã¶y~XäKš2ÒÉ&·éþYpróz trnà¿Ðéçë)>94e‘‹üX¿€Px`›I®Òº>b”CÃ,7ùH ¥œ¤‚¾¥u¾Å)çŠÜåGKHåÐ× UjBýXåÐ ÅS~•÷5,‰d¼på$6^¼rç,‡Öó T¬)‰ÿÛe–›Ã`a–C«ÿ´ZýxÖ`O ‰s!0Ñ”ŠžÒÂô.زŒ*wéf’yK:Wù-ÈU~³½ÌÍyáË¡u?‰_NDG q—¥Ò ˜CS&zÈÏãk1ÌéþÄúM1?9Ú`ÌS/ù9lE s¢J›Ó¯ò| eÝ–9’¸‹Ë8u³ ͺšnÞJî¦,ò¥Øoæ‹šC#Ì—¢½k iN¢k ýý‚šƒƒL® ÿ6%)¬9´˜;qÍA—‰ØZì£Èæ@ÕŽIç)Mã!¿ à(¸9Á7³Ï[ú]f9tyñÍAÕ-Í„“ áœaå~ͨõ–”Yn½º,s.¬$h®¹K ×çœøà t-E¤sëÌ·€:›¸_¬shÊ(ù& í¤#ewÝL4_Ò‚<'FÙÑ[Z…É„<„ ·ÜågÜGÐsóüÔsž"…=·Æú-ÜsèòŸƒ]f›/éfºK áûœ0ª>˯Ïz ¬Ç€ó%ý”]îÒ”™Nº9ü:48ñ%?ö›À@u+ŠPth á"?J!Aƒô~›ƒ-ôW tÁBEEBg8ýBoéjø9ü*û €¡C?øó%-W8t«† ÅC‡æx§ü\ÖZDtþKŸ¿ä7}¼K~ÃÇ»ä7|¼[~ÃÇ›|nÓ²þ·Ë,‡æx“Ð ÍñæÄ`|m¯Ðè Û±ÑyÚDøùÑ^BG‡~—YŽË¢ãš2ÈU~åƒnÚ&ñmD:t1Ò¡’nž‚’ÍñfÇŸ·á‹“ÎÛt¢·t3~F‡…J‡æx—ü–wÉoúx—ü¦wËoúxsá)‹ èó³#Íñ&º›µ ê½²ί˜éÐíM·â²Ž¢¦C6ݶ7ÍÒ6)]¥…L‰œMã&?jÅÁNg3x¡·´pÑÓÙŒ.ô”y/~:šaHíœè=^us¸7u4ó@Óù`„¦ló’Ÿ9xQÔÑmIFÝŠ>ËÏEnUi9»%}~Nt‡nJ½³X yB½¡§éé*­2ñ¢©£Ûó-œ:4Å‹‹üHM¨ŽnÞºÊ] ÕÙ˯ɯšfnò#ÿª:† TeîòsoqÕ¡©ø<äÇû=duhªIùÞ[óÖSZy¢«C—^Ã&¸î܈PÊ5où9"@%˜«ȨÁZ÷»Š0ק ±ª0‡Öý£2Ì ¿Yç0ñÅYg1Œ Ý¥5>iÃPO„ZקԫXëúÔ\lÃZOD[קì¨pë&SE¹Ë¯~×Õ…*!®««>‚\W×L„¹®-º®®¹u]]fì:´žq×Õ5¾¯«ëIA^çkÆ@ß_,‹}èóòÂÖ'gCÕ™ã5F÷›Ê3‡¦^qv´Õó1ð×u €ô¹ÈõBì|íÞ\åÇz6vh]?QØYld£‡´ž'qØ¡õ< ÄŽ×D×Db‡ÖøY(6¯™ßf±ó5Ô¨ö‘¦lò”ïàØ¡Õ^ˆÇ]_@v¼&k<*";ôÉM‘êÜ”¯ÝÆ®Kù)ŽBÙæÐåÁ²KKÑõVáæД.¾äç´‘Ù1M°ÌbéæŸéëgç4ÄB/éö³cCãsñÙOqíк?DhÇ4É1±½¤ÕÿŠÑÎi•ŠN?¶ÁCi‡†øžòk.¨<åÇ~@íÐï%?÷{ÉÒ©°Ú9ÔÐ÷‰Êi&ý<±á˜†Òû˜êÅUï×¥ shõ—*ÄX½Ÿ–’ÎYl&ï!ÛL‹}›Ù®ÞÏ ´Zý«¨í˜vS%l;´Î·¸íêý£€Û9×ÐGZí©Ðíêý°ÛUÍзáíÐz½Zí“ðí˜v¤°ô”_çúàÎiKÏ’óß Üu¾J@iõŸ‚¸cšTi&*óšÑù TïW¤ÐsNÃ> ·´ªí©Ôsh•÷U­ç˜ÖUD{­Å‚¹C¿Ë=ç´±üç­}â¹C«¥€îêùˆîêý} Ý¡©ÝåG^ Pwõ~=¨îêýy`Ý1mNiç!?Âw»C«ä¥Èî:(?ÚÓö=¤)`½äÇøº;4¿ŸhÕÐTªq,#ðûIç2CCiý¾j@Wïw£tè§ìsú=%•‹üŠ¿È¯ø÷«ü\ W wh~¿Éïòï7ù¹¨Ú±L£ãìË8 ½¤ùý옪÷›Á{‡Öùð]=?ñ];!2 ß¹ì”×KÌwWªèôóõÕ‹KÓùmì;´î¥˜Wï£2t.“mô¦€uÔcYí]:´îgU‡®þ”òйl7ÐCZÏ‹øïЪÖ*¼ …ý6ZÏ£ð\F¬èô#ܼv !B‡.~.B,<—5/ô¦Fs’à±,ªêªBÁCS¤:YðÐ*k+<–YU–[4xu±pðÐ*’+¼z>‡ŠÑ¡©˜hrèºÑCŪTVVE£C«ªªF‡Öý§²Ñ¡©ý\ä7\¹Èâ€á¡©$]åçë-4¼º¸lx.‹_è¡âX”qnòkxxÏè¥âYOè"­²ª"ÄCëüj£X,óëüŠ­Š®‚Äkã}J<· ôæ|-ù¹þ±@ñ,ÖUÐke±.JK'³œÛzH«½W5éØö ûWå¤kÝ®ë|É^„‚Ò±­B…ÚUÕ,ô°>ÒTQ®ò›T ÖƒZ÷‹ ñÐTlnòcÿ4Øxhµ?âÆsÛˆõ¢¸˜Žwȯóü ¯•ùuØñܦ¢ï3åw=šï³äÇþføñÜSÑGZå|5qš‚ÔÉ2‡ÖõQ‘é܆c=¤Õ©ÌthÝŸª3]],‚BÓÕÅ"¨4ÅЬï<¥˜óE:´Î·XòÜfd½¤© ó±-iYén}¤9¾.¿åãëò[>¾!?æ›`Ês•õ‘VýcQåÕû™ÀÊCSÒzÉý–€å¡U^Xdyè"½å×]^:!çÜ&–÷ƒªO‡®Öãd±7Ê`'çšÚÎ9Îmi ½¤õÌTù¥áTùÙÊUnrª|²Q ª|.µ“På“miP哧ª|2©Uî5o¨òÙ?¨òÉŽU¨ò ÜU> l‹*÷ëT¹&½ª|V f Êgù Ê'uÅ Ê'gª|²p¶ŸÊàâä© Î6¨òÁ®w¨òÁ¤=T¹™'¨òÁ”/TùXœ+QåƒêWPåcê‚B•òÿ¡Êo³Påc€‚‹*÷»TùèT¹É¨òa@]T¹‹´A•Û*”D‚*E‹æPå£hª|\j¡Ê5ýPå,Tyg~ª\»Ðª¼³ª¼ Uîw¨òN;¨òÎN ¨ò>õ"UÞ‡nB¨òβ>TywIS¨òÞMy‹*ïœZSåÝÔäÿÛÚ½ôÈ’]ן÷§¸Ã&`YçýxB@2à™ž %Ë(>@?¾ëìµþ'¢©KkBiãvžÊÊÊŒŒˆ³{Y•7ïâ£Ê›»0PåÍg•¨òV¬Œ¬Ê›»hPåÈ@«r®På\«rü}\U^7j[ªü‰Ð–*¯¨>«rvyQåu¢â¥Êë´j³*¯u.U^ ^ª¼ú(Ž*¯ý‰¬>*ºö'’ú¨èJĦUy%rЪœ³|TyE©Z•WªUyE©Y•Ww¢Ê+‘œVåÕ]Ǩòš‰t–*¯7Zª¼z=ª¼\µ.U^xý­Ê ¯¿Uùl³*/¾k†*/¨«ò‚¶*/óQÝ…€*/ŽäB•£PååF~K•sÖ*/ ¥.U^ˆ ·*ç,U^ˆ€´*gWU^ ŠZª¼x¨ª¼ÜÈk©ò⻚¨ò”«ò‚ªµ*/L°*Ïû«*ÏDÄZ•³ ‹*Ϩ%«ò¼x~Råyòü¤Ê3Ÿ«ò|#¦¥ÊóðëgUž‰x¶*ÏþÂD•gþVåÙ+¨rv]Qåtí£Ê³g± Ê3ªÍªÔíñ³™ãÈéP啬 «òJR…Uytµ£È‹»Ú·ëñêj·*Í(”ysW{r½Ôµ®ï©òS¿#ªO_ªülŽéx!U^—¯¬ÊO-u+U]ìÛõP­÷ƒTylÞ½Tyt±W×ëÕÅnU^ÅRå§Öï'U^—¯ê­ÊÏf£Õ{ÓzùQäEµT«Tylfêù­çË6«òS'þ}©KÝ‘Üqà:µ#¸ãªìÔVø¡ÊÏæëx©òØœåß·ºÒu|’*?õh®§jý½¥ÊÏæðF‘wÕŽ„NZï/©ro6 Êc3Z*¼h½þ(ó®®ôÅ¿oÕ:þJ•Ÿ:£Ì§ºÒ­¾›Ö#"Yª<6×Qç[]鎄îZÏ»nVå•]T«ò³™¯÷ŸTyeÕª¼Þ)KRåÑ,Ð]OÕz¿J•ŸZÇO©òÓ| ©QR姶RÛ118þ¥Ê£¹á¥ÊO­ï©òSëï/QïÔ©òS[g­ÇT ©òÓŒ¡ã¹Ty½SsôA8µÿûªõ|—ÞªüÔ5žÝÅ^]wu©”ù~u±[•G{u=ÝÅ®ÿ~h½Ê?´ÞÀZ)1Rå§öï;µ^áõYZ/óú,­ÇT©òh¾‘B/¶Óœs#«§»ÚQäYµ#Ÿ£]º²«jUÍ@/Uîf¡TytµKiÇñÔŽt.ZϺVå§9IÇ©òh^®§j½ÿõÅušŸÝ´Ç_©òSgyu—{w=_]îVå§Öñ]ª¼êkèU~j}ޥʣ¹«¹žêbߨñ¬ZÇ©òÚ™² U~šË¬Øcû2šÍšë©Ú*:Ú‡N­4?©òÊÔ«òSK­H•Gó[w=Õå>_ªüÔR Rå•) Vå§ÙNñyRåÎ5ù@•ŸZ*@ªü4ó­—*?µœTy4ÿéçu­7‰„îZo‰=´ÞD±­7ˆ¸Zo8ÁNªüÔÊ“*¯ìºZ•ŸæƉ2節ÖC•G—¼êPå§yr¡Ì§j©&©òSç—*w3æªüÔŠy”*?uy©òÊý«òhþl®»j«ï¢õˆì–*?ͤú}¤Ê£ÙTuÓzDvK•ß.z«òÊ.¬Uy4·ROuÉoÔxV­¿Tù© õV×¼Ô¬Ty4ÛROÕRÔRå§väöÒzŽ¹±*æÞ—*.{êÙÕe/µªüÔº«.Ô±1£Rå•]Y«òèºW]´žïY•ŸææI½U[yW­G$·TytáK]7­G„»Tù©+õVíí®õÈ«”*¯Üϱ*®ü溫ë~QoÕRaRå•]Z«òZÉK”*æò麻K¹þüOí×#8E4«'×SuGçñtí[•ŸføwDu4ÇKEg­ÇÔ©òS[U­GJ®Ty½S+¤ÊO-µ%U~ºö­Ø«ÖCJ•GWuÝU;Bºi½ŽâîZÏSQ¬ÊO­÷£Tùéâß(ò®ú*ó­Ú?oj½Wdõ|uý[•†X®»jÿ~Á³O—¿Þ_Rå•ûMVå¡b}©òSëõ”*?]ÿó¥ÊCHIg­ç)cUžˆ‹¶*Oî"@•'TµUyòõ)ª<Ô¹TyâødUžPÖVå‰$d«ò”Is–*O¼¿¬Ê“·:QåÉ]À¨òäý#TyBÕ[•'«TyJ¨ðøÅBY$×Kµ¾O¥ÊOmŪ<0ªžO¨òPËuSíHé®õ˜Ò$U~†Uy¹©ðRåe;G˪üÔ…_ªõ~‘*? CÇ©òPú÷¸1Jc¸nªÿ¾r¨ «îPå¡6²ë¡º Æ“êôRå¡8^ªüÔý¥Ê¿TyÑF몼Ü@r©ò²ÝUnU~jýþR埫ëXÏ£½­ÊËÊ¡o…û•Vå§ÖßOüá(Ÿ¤ÊË“‰=µÞ ¶žZã›Ty¨ý¾Këñþ“*/7ÎYªüÔé¥Ê“£Î—j+çØø9µ®w¤Ê ©¾VåçÇ,”yS­ÏŸTy!ÚÕª¼njUªä¥ÊC• ×MµU{ÕzœŸK•—;õCªüÔNÑîZÏ*Öª<^öê:Öã|]œèÔe>Tëý$U~j½¤ÊãÏŽ:õ¸ž“*?µ®Ï¤ÊOíxíØ( ¥²]· e¡Î—ê"/ª+Ê|¨Î¨ñXÏçkVåñ¶_®—ê&¥]´žïÇúÀªEÿ}Õzž2f®V„E>På¡\ôß7­‡”*/ U-UêeÞTKAH•—å©RVåq˜X®‡j«ö¸‡•—*³]Ÿõæ"8|i½«èƒc—‰2”*Ãʼ©öï”8 J‰‡*?uG™ÕVàYëMB±³ÖÄQg­‡ª‘*?µÕyÑz(7©òP6ÛuSíêªõ<¥ÊªüÔõ¥ÊãkEë¡¥Êãk¦¹^ªõúJ•ŸÚ }h½J÷ÔzõQæ­½”ŽTy™žªaU_‹Óõç6ÔŽ~ÿ¸‘[HC°*/$X•‡âA‘—JGo©òP=RÔYëe?©ò23ê:k=”Tù9-X/U^˜²bU~j[W­çûVå…>2«òS[‰G#À©õ÷’*ôRåe ,¥ÊÏiÏz©òPBÓõPíî©õH­–*?µT—Tù9Í’ª‘*?µãã«pÿÛªüÔeÞÆKI•ŸZªLª_µ*?õ@¯ñRMRå…©2Vå…ûñVå…)ìVå§/UêIÊ9Tù©­Ä“ÖËDsg­çë%«ò¸LA™/Õz½¤Ê㲆ú¬×7Š:>ØqÔ]7Õz©®/U~j+ï¦õÞ]ëy?Ǫ<.˨—j+ô¡õD—*?—yû¥Ê¯²²*?µ•üÔzLM‘*/ÝS­Ê M‡V奿”yS-u(U~j}¿¨™/Tu¬Çû_ª<”uSݨ—j+ï¢õÜodU~.£½^ÕzõªÖs׿Uù©õ~“*ÕEëùüĪ<”uSݨ—j??©ò^y~Rå½ðü¤ÊQ`¨ò^u¾T{=©ò^xý¤Ê{FåK•w÷ÿ¡Ê»ª¼sþbUÞ9þ[•ß©>Vå=YqZ•÷ä÷‹U9SÏQåìw Ê™zŽ*oÛÊߪ¼yj&ª¼ñ}`UÞø|X•7>Vå …oUNß'ª¼-ÔºTy[žJdU.¬ñqUy›"oª;ê|©–zµ*oµ.UÎtT9½¤¨ò6H—*oÅ-UÞP©VåmøýhU~§Y•7ßC•·Žš–*oÝŸg«òÖý÷±*oÍçÏVå­¡Æ¥Ê[# [ª¼¹_UÞ<åUÞ8?²*oµ.Uުϭʛïw Ê›ï§¡ÊSY¬ÊSu¬ÊÛUëRå õlUÞÜ"*§_UÎuTyË(g©òæ)f¨òæ¦zTùªdUÎTuTy³ÒA•·„—*oîç@•7ߟC•·„b—*¯V¨òêþ*TyÝ(q©òÊ÷UyÝþ¾·*¯ Å.U^—¿­ÊëòÔ)«òºPâRåuñ|'ëùùJ•W+TyåûǪ¼Þs©ò:y¾RåÕSôPåuøüÒª¼”´Ty>°*¯\_X•W¾¬Ê«§ ¢Êk÷ûÁª¼v¿¬ÊëUáRåwª”Uy½J¼±žÎ?­Ê«Õª¼2Ǫ¼¶/©à§¶‚—*¯Vj¨òZQñRå•©+Våì¡Ê+SX¬ÊéwF•W«%TyåúÚª¼¸Tyu¿ª¼«B«ò«­ÊkA}K•W¡ÊkFuK•W_¿ ÊkFyK•3EU^3*[ª¼ºÿ UÎÔ,TyM_ÂÂCQf×[µT Uyq<ªœý:TyÙzÿ¡Ê‹§È Ê‹ïo¢Ê˶¶*/î‡D•ßïD•QåÅý¨òâëyTyAåY•÷ã¡Ê™â…*/¾¾G•§& ÊË´Jµ*§U^<U^PZVåe°¾TyV¸VåÅýa¨ò2X_ª¼tÖ—*g?U^:ëK•—ÎúRå¥óü'ëy}©òÒx}¤ÊKãõ‘*/ÍJͪ¼4^©ò⩸¨ò‚*¶*/¾¾B•”±UyñçU^|~‰*/E]Xï*òX¯ ª¥Ê‹ûÙPåìg¢ÊKy”ùì/¥jU®mû«Ê S ¬ÊKF¡K•¦X•³ÿ‰*/Þ_@•3µUN>ª¼ø~ª¼8…U^ʼ«ÖûêœýxTyrªœ)„W•ûþÿUå/P僟gU>¾¤˜—ÄTùàçMÖK(óXå*ïü¼…÷ÏÛ(pÿ~û*ðx½QåÝ?U~UxBoyù¢Ä­Ê›?o¨ò«Æ¯*¯(óõ3Eîõtüýª<¾2§«¢|;½õåÏ«rÙï«ÊAæKe{«r²E•{1ª‚nU^ôþG•#Ò'@=™Ôã?^õ86UîS{²ÊÝiIV¹oL‘Uît(²Ê½-AVyÒ_ Uî5ªÜ=.¨ò­? ªÜS¨ò­T¹¿¿QåË1àVåÎð@•ûäUî^T¹ ¢Ê§ŽT¨rǠʽï`UN¾U9Y¶VåŒ6³*îA°*ý‹*ÞA³*]'€VåÃ)“VåÃíTVådÊZ•f)-UÎÞ‚Uùpë‹U9ûVåÃ'ºVåÃ÷¬Ê‡‡MZ•¢OµUùp‚Uù ÷[ª|¸EϪœ«òá1†VåÃýÞVå#ëö£U9òߪ|¸¹Óª|ø^ŽUùHú([•w_9Z•ÓøoUÞý=bUÞcUÞQVå}¡Æ¥Ê;jΪ¼“õlUÞÝu…*ïÓÊÓªœÙ÷¨òNÖ£Uy'+Ϫ¼{vª¼²Í¥Êo6ªUywW ª¼£D¬ÊoªUy÷ìgT9³ÚPåŒ/@•w²­Ê»wuQå½YUX•÷öU•w²­Ê;ÙyVåÝ]£¨òî®sTyGñY•wÏzA•wT˜U9³ÞPåÅoUÞÉ’·*ïÞåB•wÏB•w²ô¬Ê;ÙíVålv«òòžÈ—*ïž…*o7+]ª¼]•.UÎ]{TùÍ*µ*o‹ßGª¼9 UÞÈv´*ç.=ª¼¡­Ê›ï"¢Êµ™õqUy›2oªõûX•ßlR«òæ®ATyVôVåm8kÖª¼¡^¬Ê[yQíls©òÖÉ2—*oL)°*oî"D•7²­ÊÛUóRå­‘=.UÞÜÕ…*odm[•·Êï#UÞ*¿TycÊUy+ü>Rå­ðûH•·Âï#UÞPÞVå-“Å-UÎ,;Tyó¬XTysª¼1%Áª¼%²Ã¥ÊY×Vå-‘M.Uά;TyÝþ}¬Ê+ŠÎª¼nºTy]¨u©òºø}¤Ê+ÙºVåÌÂC•×Åï#UŽÂ@•“u€*¯5/U^QÌVåzØÇUåÜåF•×A–ºTyEiY•WwQ£Ê+YºVåÕgÁ¨òJö¼U9w±Qå¨ TyEqY•Ww}¡ÊïÔ «òZÉ—*¯ÕÇk«òZ}¼¶*¯Î#«¼2ÅY娲ʫg¿“U^½‹JVyõU,YåÕ'¦d•×«à•UÎ]g²Êkö÷©³Ê«g“UÎ]f²Êk² uVyM¨ge•sW™¬òr¶²Ê‹ÏÈ*/>= «¼p~à¬ò²<µÂYåe‘Õ­¬ò²PÝÊ*g–Yåwjˆ³Ê SœU®æš›UÎl?²ÊË°vVy(xe•Ž·Î*/oU^8Þ:«¼p¼uVy¹YéÊ*/oU^8Þ:«¼8ËŒ¬òÒÈŠWV9Ùd•wU^ÜEKVy! ÝYåÅY d•—úE•ÇÍÙì:Ö+dw+«¼ þU^ŠÏ¿œU^Šß/Î*/Ùïg•“JVyq×"YåÅ»þd•wÕ’U^˜à¬ò’ü~qVyaJ³Ê…Ã>nVyv"YåyQå15e¸>YÛyûxé¬òÌTg•çEv¸²Ê³³¸È*ϾÎ"«œÙƒd•£TÈ*Ϩug•ç›e®¬r²UÉ*Ïœß:«Rå:ì|\U¾½k‹*'ËU¾ŠZª|;KU¾P®Vå7{תœ)E¨òÅûÙªüfñZ•/ÞÏVåË»*¨ò›ÍkU¾Èj·*_žB…*×Ö«Ê×D½K•/²]­Ê×ð”«ò5PéRåk à¥Êo–¯UùVQV嫣ԥʗÏQå %kU¾®²–*_¨F«òÕ<Õª|yʪ|Ýlo©òÕÈ—*_Lm°*_dZ•¯Jv·Tùª¨v©òUÈ —*_¥.U¾ŠÕ˜UùbªƒUùB=Z•/ÏZG•/²f­ÊW¶rµ*_dE[•/w% Ê—»úPå(TùJþ¼Z•/w¡Ê'ÙáVås£°¥Êçþ’UÙÃÓõVí¬o©òé)w¨òé.!Tùô¬nTù\dŸK•Og« Êçôßߪ|¢$­Ê§g3£Êç$K\ª|”¸TùdK•OϪE•Ï«¾¥Êµ×ôqUùì¨z©òéûèòé) ¨òù³¬r²wPå“ãµUù|e—OÕÎÚ–*Ÿî G•3U U>­ÖPå7Ùª|Þls©röÔPå“l{«òy³Î¥Ê'Sk¬Ê§ï£Ê'ïo«ò›¥lU>y[•O²\­Ê'ïo«ò‰²´*Ÿ ….U>}=ˆ*ŸÎzE•ßìe«r¦X¡ÊÇ&û]ª|l¾Tùð.9ª| .­ÊÇK™wÕV×R僩8V僬_«òá©H¨rª|Xµ¡ÊQ@¨ò´*G¡Ê*ت„*¾¿*G¡ÊQ@¨òÑ¿ªrª| „­Ê*Óª„*G¡ÊÙ©C•£€På( Tù¨¨g©ò›mU>*ÙáRå( Tùp×6ª|¿?­ÊÇ*7+\ª|p~â¬r6ñÈ*œo;«|p¾í¬òÁ”g•Oe#«|ø~3YåÃÙd•„ªWVygª³Ê»ïUÞeFVyçxî¬rö÷È*ïËßçÎ*ï(cg•wg‘UÎÜp²ÊûòñÓYå)@Î*ï5­¬òÎûÝYå÷»³Êoöµ³ÊÙï#«¼G‘7Õú~pVyw6/YåÝY[d•“ÍDVyg*Œ³ÊûUñÊ*ïî «¼7T·²Ê»».È*ïVd•÷Æ륬r²œÈ*gâ9Yåóqg•wg=UÞ+Yí"wÖ¶³ºUÎñ¬rŽïd•—GÇzd«“UΔ2²Ê³ß_d•gÔ¶³Ê3ÙèÎ*wWåÍ*OdŸ;«Ü;Ù7«<=Š¼©ÖçÑYåósg•·íóg•7g…‘UÞ¬–É*gx;YåÍÙ3d•7g‘UÞn–û& <£Èn%¿É·êVVys6 YåÍû/7«|¢²U>e¾T;»»-®®}²ÊQŸd•ûx³Ê=Eûf•£xÈ*G½‘UÞÉúvV¹ßÿ7«U@V¹ßÿ7«œ¬È'«¼ ÈUž^ª¼2•þ•U®¬Ç'«¼QMa³B¿Yå›ÚYåÎFwVy±ª"«ÜSKnVyùYV9Ê™¬r²{É*Ïd‡²ÏëK•ÇÔ6)íJöù¦vö¹”‡³Ê[";]Yå-}Qå§VöYåÛï²ÊQnd•£ÜÈ*ߨðA–º³ËUŽz&«ÜSßnV¹¯WoVùÍVwV¹§ÀݬrYå…ï¬rïŸß¬r²É*÷Ô›U>PâÎ*d‘;«uCV¹ïÇܬrT›³Ê+Y¨Î*¯ýQçKµ””³Ê+ÙÄÎ*¯žJAVùU6Î*¯|œU^ù<8«¼6Ô¸²Êk#»|’õ¾^ª<¦Î½TyàkÕÊ*¯(6g•3…Ž¬òJV§³Êka=e•WïÿU^ ê[YåÕÙQd•³IV9)d•×ì)Î*¯7›\Yå5³ž²Ê+S,œU^ë)«¼&ÖSVyM¬§¬r²ÇÈ*/›õ”U^6ë)«¼Õë¬ò›Mï¬ò²YOYåe±ž²ÊQ1d•—ÅzÊ*/‹õ”U^˜ à¬ò2ý÷pVy![ÔYåe~Qå•ýN²Ê Ù±Î*/Ãë9«¼ >U^PŸÎ*/žÒBVyñýJ²Ê‹÷È*/Ýïgg•>Î*/|>œU^ø|8«¼ðùpVya †³ÊÉF#«œýP²Ê JÚYå%í¬òâ©Vd•—êï3g•Ô™³Ê S1œU^Š¿U^˜à¬òâ®u²Ê ÊÓYå¥øøç¬òâëc²Ê‹ÏŸÈ*G©U^˜’á¬r²×È*/ÉÇ{g•—ôd—/ÕRÎ*/|8«¼]í¬ò¼­šUŽB!«œ©~V姮ÔCµ³×§Öc ŒTyLù{©òSwyQ]_ª<¦þéõ‹F®óµ³©›jg»G=µT¯Ty|m%×Cµ>Råñ5Gëñy‘*¯EÕEëñy‘*÷×誼fO™´*¯Ýîz©ÖûQª¼’’aU~êwVy|­/×±^CÅw­×PñCë5²×‡ÖCmJ•Ÿ:SÇzn…µ*)ƒúý–Ö«(öh<ª¹>ÙäYµþÞRå1up¸Þª¥Ø¥ÊO­ó-©òSK±K•ÇBj¯'Å.U§YRÒEëy˪¼¢:¬Êk¾YàUëe{ÕzL™‘*Ó¾ézªn(ò¬º È»j©]©ò˜bˆ"¯ªõy”*?u©òS×—*¯Â–¨ò˜j¨ç»´Ÿ©òSëó#USQæ]µ_Ï81<µ^O©ò8­.®§jÏ¥Êã4¼¹îª­¬³Öã|Lª<¦ N×Sµ¦rH•ŸZç‹Rå§ÖñMªüÔÎoZ¯ûx$USQäYuG‘wÕVñ]ëyÁª¼’rbU~j«ø©õڣ̻jg¹O­ç~«òSëý$U^Ù¶*©ŠËuWíß?n¼ŸZ¿¿TyLYÌ®c½BvxÖz¾~·*?u©ò;uѪ<¦..×^ÏYçUëñy’*¯ì[•Çe§~^ÓzNñ²*ËTÔx¬ÇÔ©ò¸¬Ý®·êŽ"¯ªõ}$U~ê/ª|L Ê÷öñĪ|o²Ô¥Ê·¯ïQå›ó7«òí”$Tù^(x©ò½PÙRåì/£Ê÷BMK•oO¹G•o²‡­Ê÷üšU¾'J]ªœýfTùF1Y•ï‰"—*ßþ~B•o²Š­Ê7ÊѪ|{ʪ|£˜­Ê7Jɪ|“]jU¾m2PåìG£ÊwG½K•o¾På»Y­Y•o’UùF1Z•35U¾½Ÿ‡*ßöC¨òíþxTùF-Z•ïJ¶·Tù®~¾Vå»|Í*ßÅÏת|£­Ê·ï£ÊwA¹7ÖKoU¾ÉNµ*ߨD«òy¾RåÛS=På•lU¾™*`U¾ÉÞ¶*ßd1[•“²ƒ*ßþþB•“ºƒ*_Õ.U¾6ª]ª|m²·¥ÊÙÍVåëfwgÖ“Ò´*_‹ìo©òEv»U9ûߨòµPàRåk9;ת|ÍG™oÕVìRåëfK•3ÕU¾&Ùáõœµ.U¾ÙãRåË)N¨ò5È.—*_N!A•¯ñU•/ï'¢ÊWG­K•/ï· ÊWGÅK•/OÑA•/O™F•/÷—¢ÊS¬ÊWóT«òe‚*_¾ÿ€*_ ¥.U¾ª•­UùªdyK•/²©­ÊŸ?«òåýGTùª~=¬ÊW±²¶*_îçC•/”°Uù*VÏVåËS¬Qå+Í*_™,u©ò•QâRå lU¾ü}‡*_ùÉ&?*z%Ô¾Tùòý;TùJ>Þ[•/¦X•¯„ Ϭ—Pæg½¹=uÀª|n”¶TùDýZ•O_¡ÊçöñΪ|.¸Tùt6ª|z?U>í På: ý¸ª|òy´*gÿU>ù‡ßßVåÓ×k¨òé)p¨òéý Tù¼YÞR峓Í-U>=uUNJª|ú~ªœ©Ÿ¨röÿQåÓý‡¨òéÔ!T9S@Q峑=.U>}ÿU>}þ‰*Ÿ%.U>}=‡*Ÿ|?Z•O>ŸVå“ϧUù,(t©òiï€*§_U>™âaU>™âaUNr4ª|f¿­ÊgFIK•ÏL6wa=©}«ò™<%Ǫœ~T9SEQåó•M^UëýnU>™ÂcU>˜ÂcU>˜ÂcU>˜ÂcU>öWUN¿ª|xʪ|øþ ª\xüãªò±X_ª|,ß[•>¯VåƒÏ«UùðÔ9T9SIQåÐ`TùðýyTù˜^ߪ|8Å U>ëK•ÁúRåƒóW«rüp¨òÏĹœ8YåëóÍøç³ÊÏoýÊ*72¿ýÊ*W‡˜)Þ|)¸xóôX8ì-ތß.s~ñÛsá·ãX>Í›-´_Yåñ$Ÿ¬òöíU.týd•çoï¬òbsî¬ò8È>Yåõ­Ê=ˆòÉ*—î¶*7ã²Êå·oV¹ÀöÍ*W„øÍ*ɾYåqíød•ÇVôê˜ä‰*·Iì=0Éú&Yö[¼¹û¬q‰7w#Í%ÞÜm2—y³ß¢Ë¼y^sî¬rý 7«<Îן¬òx»?YåñW «Üë'«<~²Ê=@éÉ*¯vãIñãñWx²Êã¯@VyÖiYå>Ê=Yåq'«ÜçOVy¼‘¬Ê›çt+/´±Á½å™›§p«¹5·—niææîè-ÌܦóÕe™›Ï…·(3#·$së*w¹Í¹³ÊEßUîa6d•{VÍÍ*' ›¬rïbݬòBö¶³Ê=+êf•“mIV¹»pnVy"›ÛYå(d²ÊYàRåu[)X•³Kz³ÊÉ%«|¡Ô;ÙâeYÛóÉ&ìîAºs%Ë0 ²Å¥0’síVoi’-.å–ÙâRmIŠ¹¢È*'K”¬rë߬r²zÉ*G-’Už­äÉ*G%’UŽB$«œ¬P«òâÙܨò²­.¬Ê˶ª±*/WiW²Å­²Ùâ_Ty™¨xg•žo'[¼¢Ì‡²Âý|¥˜ ŠDC£Bí¡Î—j?ßI¶¸Ÿ¯s©/U®ú*ò¦¬p?_g•ß××Yå÷õuV9¯/Yå¾ê¸Yå¼¾Vå™lj«rvmPåoUþd…K•³ë‚*ϼ­Ê3ï_«rvMnVù°"#«Ü³ònVyÿªÊ3ª·t²Àõy+RÌìZ„*Wö÷àß^®*wøpM¸þ}‘þd•«nüûRÖ·T/YåV/7«ÜÊUþd'²À3ÿ¾”ímµÉ×ûÓª<ù¬ Už|àE•3»UžÙá•,p)|«rîŠß¬rÏÚ½YåÍÇ+²Êmw³Ê«Yå¾Kª\ÙÝVàRÌÉÙ¡ÊßYÞj߈›£ÙõPPäÎîVÖ¸8û©3ÿNv·Tú&»»¼Tù¹Ù«÷ŸTyÜ ž®›²¸7ÿîìn+óLv·vÖzu]ÈîÎ(òX,Y©òÈæ–¯Zïªôªõj»i=ßÅ´*?õÍ._ª¥æÈ*gjYåîÊËjç:7ÿÇtÝTëû² ²¶5•A¡›•lšPåÊÒ–ªk‹¬mOš³±}×€¬òåÙÖd•/Ô«³ÊS\œU¾¼ëJVùº [Yåkxꀳʗ»ÒÈ*_U¾8;«|ñ}ç¬ò…òwV9ꃬr”Yå‹ã…³ÊWáù(«|ež²Ê¹Kt³ÊÊÜYåé¥Ê•íçs³±uüê7ÛÏÇÙØî: Uî,ìê:²±ÝEEV9wQÈ*ŸÞ5 «|¢,U>Q•Î*Ÿîú#«|’5ï¬òÙe>Tëýì¬r¦z‘U>+ÊZYå“©4Î*ŸÞ&«|:ë’¬òÉÔg•Og[’UÎUžUβÊ+ ÆYåõ¥Ìc½Ÿe•3뜬òâó²Ê ÙŸVåÅ£Qåe¡¸¥ÊËâçI•¡UyA Z•²¦­ÊËàçI•—ÁÏ“*g¶7ªœ)/¡Ê[t%úçI1—ÆÏ“b.•Ÿ'ÅÌlmTy!+Úª¼^O©òâ®tT9SWPåÅwÅQåÅ×ã¨òâ]aTyI¨k©òŒš°*Ïd­Z•kóøãªr¦  Ê3Ù‚Våùf}K•gÏfE•Óe‡*ÏãkVyö HTyFYZ•çö¨óÝž.8Työõy¨ò]kR& ~²s5ÞåtI­Y•g²L­Ês&Û]ª<ûø‚*Ï>¾ Ês²*²*¿Ù·Vå‰) VåÉ]Ȩò„J±*O¾•Œ*gjª<ͯª<ù|UN—ªœëITyâýnUž<%UNWªœ)¨òälTyºYéRåtAyèà=)æä]ßP媥~¬ÊéZB•ß©VåÉ»>¨ò”PÚRåÉ]¯VåÑU„"¯ª¥Ü¥Ê£KHŠ:Tyt5×}¼²]¥ÊO×Î@‘×ñtõX•Gv+Š<«®(òXÏ]oVåO6«Ty`¨í:Ök"Ϫ Š<ÖC K•c} Êk%×±^yùٵݞ²ª|ª‹¥»Þª­Þã‹ñt•Üìò©ú*ò<_Y¨Rå‘}:\oÕR—RåÑ5òRåe¹«Þª<º@¶ë®º¿Tyd—¾Tytq¼Tytmhý¦õüýjUY¤ÉõVíçßµ¯¿TytQH­çYëVåQæ[µÔ¬TùébÐ÷‹Tyt5èçŹèb®»ê«ÎÏ®íºYî¡Ê£ ¡¸žëÉú´*/WýK•ŸZï©òè²ÎÚö.£UùÍê´*]þ꺫v6yaWÞª»²+¯Ï¯öP"kS?¿±‹ÞQäÞ•·ònwý¥Êc×¼ºö®÷~©ò» nU^fE±­W¬¥Ê ä­Êc—ZÏG™y=»ÔVú‹]å¡×g³«¬ã™TyìKQ'võþ–*7†þ@•K ÊcWw¹ŽõÈ––*/oEë1õCª<07Š¼ªÎ/U\êºi=ï0Z•&G™oÕú¼H•Çèc=O\¶*?µ^_©òÈjœ®·j)\©ò e«òÈ^Ôï³´ž»vb{Î*Ïþ>!«<ûüŠ¬òìýB²Ê³§t‘Už}ÿŸ¬òŒÒtVynVkÎ*çúš¬r²„È*Ï7{\YåÙSâÈ*Ï宬òì.A²ÊóUöÊŽÏÙï¬ìx²yB•«–âqVyN¨je•ëÏôq³Ê“§Â’UN6Yå õî¬òDÖ±³ÊÓ$‹[Y剿³Êg•3“¬òä©Ùd•sýMVyº ]Yå‰ìag•'T ³Ê ÐYå©ùóè¬ò„òsVyr—6Yå©®¬òÄçÇY婼Tù©3¯§²ãSæõTv|ºÙîÊ*OÞO «ü* ©òsÛÑÙß±Q|j)7©òSKµI•ŸÛ˜ë¥Êó&TªüÔRjRåç6©T–TyÜFM®c=²Õ¥Êã6lw=Tk*„Tù¹+E&UžwGÍw­Ç” ©òÌõºUù©ýó§ÖCeJ•ŸÚ?j½ÊÏ_Z¯ðó—Ö+üþ[ë~þÖz™ßk½LvwÈâ¶zu=Tw)éà^q[~»þü"9·íõúK•gö­ÊOmU|úl8û;nüœº¾TyFuX•ŸZªWª<¯«Þ›Ö"OªýÝµÞ ‹¼k=¾¤Êc›dºªÍ>µS¤ÊO]^ªülÓHu«ŸîÔÎF_Z%Û¶Ö+d½o­Ç”…¶µ/©ò³­4^ª<¶¤¸ãƒÛRÝuSÝQçKµ^/©ò³íå,ñP姶bU~j/¤ÊÏ6š²ä¥ÊO­ï©òS§—*?ÛtÎïZÏ—Tyló¡Ì—j+ð¡õ|ÿתül#êï+U~j?ß©õœÂbUž¹`U~j?ߥõ˜ªÑ·Ö«¯¬rÕ~¾[ë†þì_[•Ÿº ÆÓ©Ý_dUž'ª_ª<Ó¥nU~¶yõ} Uži3¶*?µŽ_RåÞFþ@•Ç6³Ö UÛÐÛõP­÷¯6šO}•y¬ç)ÏVå§Öç]ª<†­¿Ty c×Ï›ZÏSo­ÊOí¬ô©õ:YæKëq|Këu~¿­õÙì[ë5²Ó·Ök¨ð¤õU;+¼k=¦0I•ŸZÇÝŽ¶&=ŸPå§íÉYâѧj+ôPå§N(ò³^³z´*?µ¾ÿÄO[–•úÒzî§ U®ZϵµÞ ;}k½›=ž´SÀvÒzUª<Úʲë®ÚÙäq#á´¥éø'Uži߶*?µ³»«ÖãüEªüÔúþÖ‰M´É¡Èc½›íÝ´ŸO©òSKÝK•Ÿ6=ÿ÷]ëe¿¥Ê3©>Vå§íO׫RåYÛ¨òSÔùY¯2ÅAªŸRå§vvw¨ò|³ ¥ÊóÍ~–*ÏL²*?Œd£Ì·j«í¦õP Rå§ÖñCªÎÿþóöTFÍçƒÿáÇÿõ??þù·¿û|Ýþæó½ÿão~ñß~úoß·Xž±Xì·¿þ—Ïñó[àÇÿûû¿b%í®Ÿßéãwÿò¯ü?ÿú«ïÿÕR\Qųùýï~ñíóìþÇûü?ŸOé×øú”þ=ä–íùõàïÿ ¿üýä׃¿ÿƒüzð÷_þþòëÁßÿA~=øû?ȯÿù¯ü;ëƒüzpúÏå»ßï!:ÿ£>ÊÂóòQŽýÏÿÏr•Iÿ åÿþÃÿ _.endstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 504 504] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F6 /BaseFont /Symbol >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000041970 00000 n 0000042053 00000 n 0000042176 00000 n 0000042209 00000 n 0000000212 00000 n 0000000292 00000 n 0000044904 00000 n 0000045161 00000 n 0000045258 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 45336 %%EOF metafor/man/figures/crayon2.png0000644000176200001440000027703214441312113016216 0ustar liggesusers‰PNG  IHDR hæ)‘Ý pHYs  šœúzTXtRaw profile type exifxÚ­›i–7v…ÿc^fà-ã9½/ßßE&)±[ê–l³+‹YÀî€îü÷?®û/þÔZ³Ë¥õjµzþdË?tÿùcï{ðù}ÿþã绿¼ïj÷åýy+ñš>¿hã{áàýòÛ?žæ¯ï»þýMìß}Áߟ¤'ëçýûAò~ü¼ò÷Fv>?Tëí÷Cß­ïßP¾óÏa}^ôo÷Ë(íƒRŒ'…äß÷þAÒß”¯•ï!>Çw~ŽÉ/)ý˜+ùez?^½ÿ}€~ òŸÜ?GßúÏýü8¾ŸHÿËú?üá/Bù§÷ÓÏçÇß?8ýQüõ;„þ/Óùþ½w÷{Ïgv#W"Z¿õ‚~܆NBžÞe•¯ÆßÂÏí}_Ý¿HùöËO¾V°ÉÊu!‡F¸á¼×CÌñÄÆkŒ+¦÷^O-Z\IyÊú 7¶di§NÎV<ŽœåŽ%¼çÚ{Þb’›¹òѸYà’?ýrÿî—çËÝ»¢ `Z±b\QuÍ0”9}çS$$ÜoÞÊ ð¯oúýï ‹R%ƒå…¹3Ááç糄ßj+½<'>Wxý´Ppmo@ˆxva0”}¾†TB ¾ÅØB Ž FSŽ“ „Râf1§T£k±G=›kZxŸ%Ö¨·Á&Qè¬Fn, ’•s¡~ZîÔÐ(©äRJ-­tW¬Œšj®œkU 7Zj¹•V[k½Y=õÜK¯½õÞ­‹–ÀÀbÕšu3#ºÁƒ÷|~ðÎŒ3Í<ˬ³Í>mŽEù¬¼Êª«­¾lwÚÀÄ®»í¾mÜ)N>åÔÓN?vÆ¥Önºù–[o»ýÚ?³öÍê¿|ý¬…oÖâË”>×~fw]k?n'E9#c12Þ” :*g¾‡œ£2§œyÊ•È ‹rãvPÆHa>!–~æî·Ìý¥¼¹ÒÿRÞâÊœSêþ?2çHÝ¿æí²¶ÅsëeìÓ…Š©Otß-6m;UeŸ¥ÏÞs™í2¾ÙC˜½¬s|á0Æâqu®âh³Ç‚×%j=Ý©Š¾‹Û;§ÕÚ sÇ[¼ÕÅpHFäRڮ촺A«™K‹¹5Ò9© ŠjågÎ{0Y7w!.>îX¹äð‘PÆtä!z÷œ”nÝù^³¶Oªm“)»Év}ÁÜ)`DD=ëÞ^’'4ãðˆ@¶ÏŒÖÖâ0`2ö½ÄcÜÇw8)16úPèÁ…[ VôžXa°˜o·D]YÌ¥ï^¬³T¹SŸÍºå¾!3:ã¼Ó\Ÿ[Ñ9µÜFõձǸ¤wlßÖ(«Gª˜9pŸ:æ<³Œ3ÊæqÍS\ÊÁ×D‹¨j–|xïF¦Õ¬ÀÙÛ:{…™)$ò϶ÆBYÎê2Bb–n0½ë á0IûBØÜÈ·•»×J{–ôhXiì:ëÚG0û½!&ê#×sÁ*Û$m­ä®ñPH6 ³›(”R[¹_o°â¬„ÅA,‰To÷,Ë/Qf'x÷r!´8™®Ð¿Vf(cîÊ[í¶™¶xiž_n½Žp Ð’ NL§Ö˜œùv¬øtÔd±¨2 %æsrnv­UÝ<-ÆýóéôpWŠeøúöV„šçšà“Vf´%ôè†KÓOðJ¡[GÒ¸c#”ªc`Ôm³z‰¡ÔSI%’p6ù쯕€*ªŽÊPèßN"'ijj¢Læ ä'š‹¹RÖ‡€ö3ÑBž*bðžôbª´çõfåýw^ߺ_cŠüIãòz©L°Ç¥‘+3N_ýg¤ÞËÈgRE9~ŒgD=_$ •(µ5L•óõ|°Sö<ˆNÆÆ}v?ôx%$'–DÙ)Ì1ô¾fÜÀh}R\»ÄlBþض‘¦@Àȱ!mTa´!ýzƒÜ0’Ëð;˜Ì&ÁD(—±¤~.,Τ ¾“Z}V‚=Q[WÉ‹È],ï8±ëtõ©Ñm™¨dn2øô(=`彡­èæ5i§ÑÙÊÔÚ¥Kk…û+/à"Ô퀯(Tb…c9›Ž˜SúkæÞÑ€^¥iÂF½ã¹ŒœdM;GÞg6OÖ¥zv¯Ok}§>ÇFÝñF²*éÞzY;h¸ü!wÎe¾HFÒ.ÕÂ(• ï» ý"Ë8 Ÿï%‡ƒË•’^-EÐê¢ïªc`ÝFH†#p?=RóTÐ(´2ÀûlÕQ(g®KkAË\ÈUà+M‹J¤3™¢Á0JRJU•‡ÞàQJx¯6=ÛŒ A囩&$ìüxUi­íP4 8&bÛ 8h©AÌ(å"fÓ`» `y·Œ‚„7ˆÝ%Á¢#E>v j2D4œ2ÄÚ›Fí½HUx‰¥¶$! %²->iᎰƒž°[Iݦº¥#QGáï„ýÁwú‹²¤#h†ƒv¹ZÆ8s;8Ú!ûïNuQõÔsTAÔ~Ï®¨s$*¥—Ô Þú)!BBøNÄý3Hù¨Œ»ngÕÃùß8{ø†6Õq£k—çL©^ ¡Fzæ 4à£ÇãÁü³râŸ=µL¸kò=ˆ¤‘àÑL ˜z¶ÉÓÿ”¬þ€ÝlÇ!= ]Z;‰Qάjnä(³îÔ‰Šô©h‡*ê>ªˆ¥lŠ¬ðjÐ/.éŒÙ6p0K%Öë‡BïÒÿy£<k.¯Ú±û"³ƒV'mÒH”n¦w´Ê }y )å™!Ê uóÔe¯ú}×…·yoC‚ªIú‘f'n0lmà Z°-aCV©íê_· czr(1aÌÃ#-ŒNO‡q7pDÖO Gz˜¶ÆÒ²”|•¨~4ä Q‹F0—ƒŒˆ7ÉÀ!û d'ä3îë†:˜÷1Ÿ¨î“Åv´ôì‚Š%A²¦jÓ ÊÒò#EÜiy€)w­K2rUXC:¶…ý Ì—ø'’š#b-H óÕèˆZF²Þ"&@딩D-ˆŠKM€j<‡ˆ¢|Ò½NÒºDJgåªõ3fa¤€Ð6Ypz$èIáÈ ãßñMYž28©À´ZS:òŒêÆç¢Êiž´™Œð„Mà)pbú!çÊÅ€1Ÿ€²Ëã%À«UŠ äV %DÌmuº Rn8›yÃc(?SÓÓÞpÈ [:5ž–]–ty¨t5€ŠL E¹) Hùâ°úö(¤ è¨LiL #ÉF¸²:µØí­“*:ÿŽdÅPâå  ž À„HTÈ™ÜTB/_´'¤¹8õ ²¸ÑæÆ s婱9åÀn Ú ƒÒþ<ôyŒô…Z½cѬ8Â@©Ñ¾ò>×#ª<æ3Æ,ì Ù´àm¯WÁ6rŠ# ˜‰4ךÿÁaKxòl¿fŠA‹j@2Šä­„ t=üJ¹Ji#,‘ô(¤]Ÿýmu;, šÒ}~tõ9Š„<ú"˜í”‰3Z^ÎRÏÔúÄ^¨yk]¿À07 +¸Ð³ótù4±áS†á@¡©CÖo£1È Â1C¸ mi4þºuÌH‘ü8PNÀahiá~– ¤[SHØ^¿ ×MŠ²b>J½!ÿ¨msE@Ënå??à…ã/±ÿˆ¶Ç®rW„#ˆ_kj¾Àã¢@9òeZ:ó9c*µÑŒËO!e=$J]ÈŒ‘Ûž‘ÇƬ^Œ iÑ›ëB%Ý[@¶‘Žé‚Äicdp–7§œd |ij…†¼Ú:BTùÅÐ `rèY¸‹.ìV@즻,ôú[ßáÃp$°›dÌ@guû§–ÐãhE~,ÓŨû.ï×ãç¢[-ŒÕŽ2‰@j…¬ ì’DÔˆ‰’ Ñ7§ä¸ ;æhEÆý>Òµ*¬6 Èc|•ElæˆB ‹Áç·À7ÅÚ- ?РàééA»/¸ŠÞ´(©¡µˆ××*ºœ’FÀ )Å܈ñt´.—ηþbï±Ô*A…¿d‚£­É€b‚Z²²Z´Èb_ü–,Sø%*H}J^‚]ÊX‹h¬F¬Ðb£ÊQü\p²@€€™4Ø 9&/>°=zu>¡¯ˆL%­n/"9‘ZQŽæâæËiHöF˜ :E+2ü8Ô¥?I²œâíÚ$~Eº¬Á{ ¡6.%¥‚Ìd8ˆû™«6ó´ÇGcáñj°(¢™˜Ø VÅBÍaùî¦×®]THÁCÅ%4VÎèbR¦ÆØÄ~â«õ!”,¼½ˆ ·»OSåÂì§[@Ô1~žù€5°mˆD­"réä â€49TŸƒLÝE콈ߕÂôàÝ[‡0 ƒ°Þ:††`¢NÚoQ€!«bp©¹ ±Y´=tˆÅÃc/*{&¨ RshùcebÍ‘rv¾0D|$nŽ ‰.êÌ‘/B\ÏŠÿF,¢f¯qÅÓsE'Ü;îcÃÕPP¿ˆCl,Ѩò |[±:ÌØÔê×Ú±ÂÄhU ‘ÕÆëHWæü†l’‹ˆnü"nk]hß÷¶ê(ì¢õda]——ï奡ït–f´’2·Dõå2`PzjjuãpBZ¶pÂo²X-¨ù‰'’¸©c1íæ‡Nʈ}ŒwJ׆ߡ{ªnÁÞ° ÃSó~ì‹ÚÕê Rwy€«Jûaä ÅdÕHÀy"âóê~üð7^XŒh]ˆ©%€9ì:ψ`AŸé@E–ØÅYuR°ŒŠ…2@5k+$âÉ1•‡Áím£îÈrF³3E› iêâVD·X"l=¢ݹŽœe´xàÜ¡õ :¡`˜lˆiw$µx5ä(iÖ «‰»†kÚ6Lèÿíµ4³¢¬I%‘Çwb¶ãl¦Åý‘œä¥IÙŠÍiÔ® —dj-Å(°£PÚP âEø¡w*  䱈”’‡êÚ¬”˜„JÒáÀ5hÐÑÁ„Aí€Xª)ÛZ"z.BI9 $ÓÞ¦µoœsÀÝp·¢vŸ(v>{´}Ä%v÷›>¡[pŸð¨á4Þ^*˜õë™ Û¡–¤)bm̃olhñî–ÌÁš¹V‚ø5ŠRD±€B$KÈ“jGô‹¼°µ¿ÃÌ—Ž*<>îÏ}VûO€2pO ´RE‘>ZÀ‰¤ ;¢e)Ig­ èûÀ6N×ã«…Ù¤mÒf£¿N¥›^`¨Å‡""'§€@LвL¨ÄÈK ]ᶒŽà @ˆ4暧퀭(R«t"2pŒ‹( $´fT&•¼šMË>‡>çžeOAeú#Þ‰}¹rŠ¥àÝ03r‘TÒcê àR¿›©Žsòvæñ{»KÀ@†r+Ã0«VWhÒó¡·з…—»·G ø ‚|„{Fâùˆÿí+rîvd«E¶Í€L‹øÞ´T…3Cñø¹(ŠhhÂÿ4Њ¤E—c= È•DI7÷Á0ÃH××kÚ*^:E5¦ªš¾ø@­Á†°gG*8@åOLó¸*Súy(Uê•ßŠFº ‹rJÖI•ooG wgë8äôÖ`h‹˜îpWÂÅfÈ=݃W8Ò—ÚëБèõ[kq‚ˆxýnQö9{Diÿì+:L„–ýÄÀTÙÓ8 ë;tŃ>äß„Üý_sÖ Æ÷þu A©s% >W¬#W €øWëážÓž2’¶)÷f­ ¢w½íGô¼Ì`÷7-QÁñkø[›-!ÊõÈÚM-Ý“AOdßeÌöÙÇî³…ï/G²~×0ZF†hÍW Ûu9$4s OüÿiûˆéYƒy¤òÕ@¢Ëϳ1BoÍî6'ϸ=ÙA‹ØÁÕ„i(±TØûuQðplm1(-y£õbý½T'/ÐÔÈõs°½ƒã¥ø+’‚|g=VZÚ9˜7j‘ìÄ_È@Hãḏjdæþrå½þ¨IŒ+tj[[ùè0ú¬Ð|ƒ[–C£à—ÉõêPà­Ù çΗ_›äÌÚ(²ƒ}ñÄ õ£cu0ÁE+a4¢N*Rnµ÷2¯oX Mä\-j¹e5à†}_©F>Þ禖ˆÍ%É ^_NtGn7}£SŽÀÀÖé #ÿÒ–(ù]„]éXÚ>ì¢ME4^Ñ-N§õHHæŒ?Êd@{'QïºÚk:(À“]´†—‚kx‚V!3i÷p‚¢“‰µÓ¼šFÅ­z)`¡-ˆoª…¸úNJ‘>nëÑpu–Ùm”ÄÈûuŽ’‘ G´RCì ´ÄUà ¼ŽÕ7Æß ÒðÅ€Æúéd˜Yºµ³`í• ›Þ´ }Nx„93­?"Ê+zÍC÷ujò¼•®@ñ:!Ä}«[ZÆîÏiE¡5‹¥= ô AÆmüÄxh Ì´GçÔÚÆTidmÖâÕFŽÛ´ÍÈÑ^&ý>Ÿ½¤AŠB›¦‡#¿ïš¸ŸB»ªBˆEmU’Î!CÑÁÜëà«=¯ýC),‰{Áà+ÁÙ¡.¡X&Àè‹n »B™a@:¡'…p }A{bä‘@$Su°Ð‘BzM[ãLÎä8bÂéúÛëÈ„¯ÚÑÑúœÖ¼‹Öð¨H±ÏöuJ=|ÎÜ,­ih> aâöï ãj6¾-ü´Š†\­ yâôÙ=WÎÈc•Ì5]µÏA¥ú\¨–ñ@ƒ¶È²Ë:㥪·iNµaæÈÍ´ŸP@3Ti³åÎy¸ö$A0⟪…¤cRak‡á4µÅ=[Ón³¶6ÊLË×á ’à“ÛRäoí†Ò%:-QM+ÌÚ:îos¬>â¬ñCJ.i@;“-CTZ8ÚSáúöv.¥CÞ¦ú´(‹n^D PÓ9p*|n £U?m iqXÇn €´ßR 3BW["ÈP…©ñ(ˆñ¤.:F(p°ë‡ŽÖ“%ü‚‚×À°æF jM»iÕI„÷Å­1·×Ìóî:Ûçêæ:ÏÛ€Ü]Ǽ´N¿u¼òzme"³šö»D„å§$뉮ß[påJÓE%›"[È`C œÑ†¿Ž§1D9èÌdââÞZL&«uÜ]å!€?­‹ôOEÞX:›ÎÌZ눙õ¹j?‘;,‘š õº[LY£óFíx'}gä„åÑ›VbQT=1àä“ñ9xƒT+F;"`tæÕ鸋Î{• »ÐÒYFXÁö#|†ñ‘/DH®™¤†´1ÝÔQ·‚šrs%­"ëLHC´  ‰¦Në­@dÁ/j p€4JÅà›-÷ð¶ÌÀà¥w: ÛàPçȸӂZ´8û¯œgBk,¥ŽµÜüIþÔ‘®@ƒP¾0ð–ÕtMÊb´öv€pRC+h¤Ã«” û¶$UB†0/Æ_‹IGç‹Ée O86qúë”äFµà¢À÷ó <ÒÊù¨„ñq‰ êä݆ªÔØq¦6±xV³I‘ó‹Ï'RGàj—²ZÿˆAg•µ¤÷–ÉÄúoï$…VgÂ÷îým]2Ðt—F¤åò°w¦(RD*ã¬ñ×>+Ó:ü„}›ß£ H+ Yÿq¥}6‚‚ ‡Ô²eÇeád-ÖwÀù›Ži‡ŠeÄ=¾S/Ÿ'CB^g]‰ŸQÙÐÖ¼šÎ|Ö¾thÚ«ŠŒ-«òŸÌO¾÷êþüËôÖYs™CPLTEÿÿÿ4e¤¨¨¨ÐÐÐbbb.46_¯äääÚÚÚÙÙÙîîîþþÿþþþŒŒŒqqqlllàààãããdddÛÛÛÀÀÀžžžnnn_ceÎÎν¾¾ÃÃø¹¹¯¯¯ÅÅÅuuuÇÇÇhhhccc““”»¼¼ŠŠŠzzz²²²ÕÕÕ–––‚‚‚¤¤¥€¬¬¬}}}ýýýÈÈÉ¡¡¡š››±±±çççÝÝÝ©©©íííËËËfffêêꘙ™)))Boª¶¶¶ÒÒÒGt­8>@gklÏÏÏkkk¦§§wz{………>>>AFHrssøøø”­ÏÍÍÍáèòÔÔÔ9i§ììì/574:<öööñññ ´µµ179EJLæææ‘‘’yšÃÊÊÊMRT;ACØØØÂÂÂGGGúûýÄÄÄZ‚µ‘ó÷ú'''­®®555›œðõú>DEŠŒŒŽŽõõõxxxíòøûûûôôô•—˜···¢¢£BBB³³³ºººùùùêðöLOPz}~6f¥×áí÷ùüa°###‡ˆˆÚãïæìôŠ¦ËâââÖÖÖ”••„‡ˆ'w»™²ÑÝåðXXXV[]ßßß|€---\abPz±QVX999~~~ŸÃáªÍžÆÌÙéððð+++¸Éà\\\ÇÕæcgi  ¡]„·bˆ¹///h¼QQQV´òòò£ºÖÂÑä s¹?‡ÃKw¯lpr¿Ïãjno¼ÌáËÞïTTTp“¿õøü?m©p·;„Áúúú°ÃÜrvwLLLž¶Ôçðø e²;;;ƒ¡Ç```÷÷÷HMO¼Õê‚…†t–ÁÃÚíS}²Y^_ÓÞìééém¤Ò´ÆÝ222¯×ÏÛêh´m¾3¿ªÊå«««Ûéôl¶™¿ß‹¶ÛTY[@EG¤Æã¯Íæ›»ÛbΧ½ØMÇ„²Ù­ÀÚuxzs§ÓÕåòÀÔç-{½ûÄ{ÏŃÀ‹^÷Y|›™$¤3“išÚî¯ï×I;m3™ŸW&3é?ÿÆ€ˆ@ˆB€„!`Ü…èåi)îÁåS¢Íc _´uج—*¥×ûËÔšjÊ_Œb¹=&<¾õ}Ìœý5Lj/ƒèÁ"Àø Ñ…¦iÙ™˜—{ÍþÖ¾¿Æø•Õ<*†RÊ_b¹U4“¢iµ¾Y°ù0'o¬îX_• ?×éÁ"Àÿ—mÒY„ ·Ï;ÿ³ÑoÖ´ãan(™èp¹ö½áÆð¨–2,Ê:F!òˆ D—$c÷³C¢eûèÛ­ƒ?¥b;¥æçQ –K•lv£ûå‘Èõ`z𨹃@nãöpÆP)¤}îŠü=Ç9ÐWú¶ã$DK4hzö€þŸg†òJi(BTÕº¸gÓ×}I‡J)°’Éäÿú™áe=BdmÐ|¦†3CdQ•]÷¿ºÐêœÑó\‡‰¥N=Ûù2»&abÏu¤ó‰µÇ\n=Ïtu(]ÿ)¤}î'ù›;sö‹8¤y!`ü„HK;}þ¸;H¯W^GRˆ^ÙsG)%ö0šˆKˆde›ýLÔKÙhBd‘ChÕùáÜ2K;5ç¢ô¯ d“ý'ž:uYËvµÍä:ÒùÄÚƒã-·~„¨ÝF…ˆßç$B¤7Š$ñ„€ñ"wåíCwΔìW®FQˆVi ¹ZÊlN®?5•R¢^þÇ'D’²ŽMˆ˜Ëá…È Ùª0qâ=…(åÎm­ó^tyÛéû@‹±v'ÐþÖœëHçk^!!ÒÌ…ˆÛçdB¤Ÿ9"_©!^0Btäôù2'HÏÜ+—Æ( ½/vÍù 8% åX…HVÖ± ÑJ!¢A'{¦EˆŽL­[ˆÖ¼fP(:ü‘:ugÕò4[wú€sí|âìÁåQ"ÍÜV"nŸ“ ‘~Hïš-@ˆ7!rV[EnÞlëAˆ*·,ËLòG’ÙÎÅ)Ø4c"yYYˆèz“¢o ð» ÑÄ}'œ±3D§$õåi}wæŽfpz4êÔ žn®W›ëÈç³ûNÇy!Züµt›pzO]>RHûœ\ˆœY¿ì,„€1¢sçRR‹¤,Deaò'’ÙÉžR"ÐÐb¢¾ÊzÀB4G}Ô‡!D3Ìdÿ¢†©eé‡Q'ÉѨSÿă¦Ý 6×ïu>Ã?ŽDˆ¨Á¤éÒm^:RHû\ˆéT¹,ã%DÅ éòSþ mìz0î]/t¿bý^¨¾p–LXÛ'µõù¸„è‰jOw%)â¼Ùãgêäjê`æ‡ÿÕ&¹â…}ÆìÊTãt.ÓƒñËšðãtaùCÒê©ÜÄçAˆG~Bdp 5 LJïºw™}*ï¹~%oº Ì-]]|Üìå`’:Íü>©Õ«z°…"ðþýF,¡Ä.VQʵøœ°NEíMp>ülзÌLQ˜~©}ð?»”W¡}Ûz½·Yóßj•tð ÓûÿnE"Ýxf—=‡·Ï… ÑÚ¹ïv„€1"íÌ[1ÉéçÎûOÿ²ÊvPÞóÇ&„%é<ƒYþèÓMšP:²r} ÑôÕ—‡»ó¬Ö½·^œ’·v|¸ðf(ZÍu2‚{ O÷yÿ—™0|äM ”šë–¢ñ˺1j7tF?ûØ$)7ÉùD¢º ú‡Lˆè ­2ûÀwrúFž³í¾c;g›µ?RU{ô ¼N÷Ž_Ý?¥§Õ=yïºó›,é'©e2Ÿ`¨çZ„°N¹íMz>ü|ko:3.ì»_wsº^³Wx²äeÒD­·BKjiÑYås~{Ê&¶ÝšŽ DNc}P"nŸ "}›,#*,Aˆ/!:d&B„È¢£_ÝËÃUº›Æ}øÙÚ†É<+„}¾ÞrÇSê} QRãp(O‘çMŸØ(ú>Sæ¯âdƒÀºQe_Qˆ¸e­§˜FæÆ„R¹IÎ'’•¹7v|Bô™úÐÛ¤?µvôYÖ×LŽ1×íµÈu-iîee®W§ÆKÂôm”o( Q’¶‹L¨çZðNaòÛ›´Š…¨þä´(ëÄyü ä}AØzí<·ôm&ë¾nçÁ¼© Ñ,ûmaBÄës¡Bä<ݵ !`¼„è¶3¬„ ‘»ÐäÒw›Å½Õ¾Z÷ ™…6Üxo!çMŸl>ó)4œ˜”cE!â–u#àc; å&9ŸHBtà[§Ê¢êC¥=ùx„ßWܨ¶`N“ Ñ g!mÅÝ>…(] nbú¦"D9§˜Éѹ¡œk.â:´·ˆBTrÏõÐs•iH#n½ö·—“ÿ¤ÐUߟބ(Íî: "^Ÿ ¢i’ïÂ4„€±"ru½ißx"w+ÒwòÝЕuž^k•cfaÞ7ÿÔJ‡Þz3ƒhZ¸e–;¯©‡•›ø|¢ ÑñŠ’!"LJÎÞ0øÂÓR-£–y¹Ýqž=N«ûMéëeuJývßü“¨°.-"4ÉW“ò³TsÍC\§¢ö&;A¦Bdæî½ID岆¬ $Ç·^*DN»ÍVºº³³þ9Š}a›·LˆD㛂Í™Ì÷"^0BÔ²‡^ûrsß7ƒ;ŸÖ8B”)»£žó׆oy£óüŸém¨fV)û• Sõ^„(›cðåãš|Ë,烼qÞÜ_>«L‘J«ÇÂz0 nˆË; .Ï.[ZJEˆeMCT‹.G=¤$Rn’ó‰&D ÁN(Oˆ*‡îç ͘œåBÄD´ý–+ñë´]©­#º:jâ‘y€LˆÈm“L{Ð)¢šj®…˜[§òöV•l‡_ã Ñ“{·ûmSO1s7‚2GÜz;¿ª÷šj·ú­äQ}‘óÑo„h›¸TqN:RHÇ7!ÒëLÁ ^03DÎûÑË*B¤Oœ¨uáŸ!¿ð=>öÌì<›åž]¯›9ïAˆü¿è]ˆÄyÓéN%:›]¶vCƒM9+’†ŠñËšþVvÉwKò1¤Ü$çMˆè“]NùBÔ–ß­ô×ð;SQ×… ‘U÷MHº\åÍü±Ñ¿u,c‚„òV¨]3?%O*ô-£škAÈçש¼½E¢%wyÚu»a;•”ø8’Öë QçAÙþ…^Ö—ªÙR}'ç\sæ>ç4Î/"oùö¡3H!{öüö溙y°¢txe™˜":MZj]êÛ[|!ê$4¹Ó%©?-}OõuÔ­×¢ª3!zXu¬„HÑ¿Ù‘óÐK×g¼!r»ñRÃMª=°"g¦»›íXtL„Ï]CÙíþå}Pˆ"ÿàm¨›«.8L,D겉ÅlÌÁ³×=W/f­…HkwÔ¸>—æµqÓÜO2!šWí‘×ÏÛb¿k;Z^•‘þY!šÃ^3=8!ût/YX®"wòg?~•œû;a©µuªmoñ…¨Ù uך=] Ô×Q·^É—}¢‹H¹žöÚþÍJˆÜÀ”"€Ñ¢¼{j§;Þµ"wÍF§»¬GfØŸpÐíËêá!ÅNˆÔg™Å"uÙÂvf=x6ÿcùêµ­IbŽ®Aê} Ž›æ~’ ‘H—X” Q¥^M­g0«ÌÖÅ$U¥ILŠ:­U¥;í¨…è2²ß¢˜"ZLXjmjÛ[|!ÊwCí„…Håu4­×¢o¢“h¹*1~s¶B$Ö[l#D##D/Ü…L‰’u{!š/öv#òÈ+;ô›àÑÔNäÒ¡‘ºl"b?þë•¥ÀöÖ¹=K!’Äz%¸çn/mçR·|¿…HüùKE‘djÈB´"æ-ögA Qú‡bëA¥¹1+oEW”–“•ÚP§šö_ˆ®åB¤Œò:šÖë Q¦ŸB4ñþ½Ø ¢8o+Dòþ-†5"€‘¢%w$|èôÖB´qìõ—k½ÏÖ 3D3¿PˆÔeù¹øBälOZxc'D²X— 3D²¸­õ[ˆŽt¯Ì¢9 _ˆbÁÜ‘30!z޽ˇÊy¦ ¢îî~ß=*j£óÉ»ñd¥6Õ©º½õMˆ”1P_§lœ!ê«u F,é¸O[ ‘¼ã•H„hËÝ…Ç}γ¢^ç=Yyµ4ýÈÎ#³‚±®¡< )C"uÙ¼m„‰V$Õoü#rËVB$‹u5r†X4‡H7Íý$¢iÕù£BˆÊ"‹>7õk„(-ÆÀÒ®30!Z7ºÿb&Ya¢ËèDEÌR›ëTÕÞú%Dêrˆ.u9D}¢¹’l±A%ÎoÎRˆ6{IáŒ#!Dþ¤ðÌ]c+D­Àìýt8­è•rýLoš¿¢Éñ0ƒ"uÙ¼ã›æ ‘ãl¼;N)öx–uβXG§¨¢«ÌdqÓÜO2!Ú(*ò_ÝÁ§=¾,Öœ¾`ˆ›æ~’ ‘8Ò­¢"o )®Wˆþrï´à¿”ÙXÞ™ÿøö‰ÞȶPR"«ÓƒÀë‘©óÐ’s‘evíNÝy‹ßMBd,µuÚ›´&"M Ô×Q·^£‰4òï „ÈÛõãLÛShû7јϖDåuÌ­ý4B0BB$æê;i£½cîÝçÛ“µ¼x{È\ß\¼x¾çv ¯«½‰ä´x†ºKM$•*»«”W ‘ Zl_Ÿ\û;¿%8Ë,´ßIR/_:B#ɘؒ©2ùçÙMêNÕA™>´–Fˆ"QÖEŠüåŸ3Gäæ™QsÐ?ŽD{>˜»Îx€Áh1)öÝlïü)où><ò†zƒþ±+æ‡nBkù/"1²W›ÎçŒ$ Çî/ rˆ1ãB0ò0^ D D DÀÿØ;{ÝÔy0{ËB¯¥7ÅÐ%óYš™à"è„TÁ RA¨*Š*(¨¢¨­Î‡Ÿ8„SrÄßó U %¼±û‰ý:€KÇ€=ô BBBBBÑÑôK[ÞÿEõÝþZ†^š—Jµ¿õu#w¿Ê%j@ˆ@'!*í¶PùMT¹ DÓ ¾v#Dÿo}ß“»_å¿5¤Ó²m»õç«.ÇŸwåÖÿºèrX—WÛô Ñ¢túf!+!š¦ù}àýOùEõ¼ Q\ÔNÇ-¶v¸FÌ á£îÙoèRå#Çêì÷°Ù¯fú—ÁåÕ6½BôçX㌄èÝÝÎó÷îû÷¹!Š‹R©_¹åV_l‡ŽÛ^àÝÇàÛÍFnw~ÚÏþ·æepµM¯€ý€»$DF¥Xú4ò&DqQC*]ïÀ “Ît~¿=fïçëöL}ó¥<¨›ù7EÎБ¥u\`mÓ+ D—,DFt %Bd0<ô6×ÿ«¸t“¡ûÆC¤P‡›±”ÉÇkõî{Ò¢›ß—Bät%ïO›<½­Ëàk›^!ºh!2r)Dðç ®„XGgQ<Üzy‰c0ßö=çÝ{Ž«¥÷>½hFç“ô*ƒK¬mz„!Bˆ.€7© ÇC\ùz+§Mt©­€Ʋèþý­q\bmÓ+ DBts(SËŒŸE‰ë"å*¥m*+$DÞ‘8Ô¸ .±¶é¢ …ÈZ¾ a÷5úNõ{è8³ÏÆ–Aª½îþõõ  ”­ý”jwXvëqBT}›TœÉÂÆeGÿÝWÊiQ{…ó6¬ŒÞêŠ|Ëý_o#Ïî ?cëÛ³¡CwÞËhl¹ž1»Â1zBí£ºÈ¥<Š»†.„…HîñHß2ȼ¶Ï„Î!D­Ùî®ýÐÍ…^W¡"‹T!Ú/±­¢ÁÔýÕIÙÕÕæ{ _u£¢»Ú6†¢SOn­‡J[µñ:lîÞ»ZùºTwÿ®ƒQqûE£PƒþøTܬ¦.º‰‹-ï3f ã92S”ÔEJƒ˜Ú ‘L™ù­od\Û‰g Bg¢r_Ù~[½ò[܆¿>#!ªKz:iMWãf”¹ªBd½+›w;*„šf«©ä†&F¼…Jq¡ ѸÜôßšWÕm;9ÆáØòÌÊ-¨»¥ûuLiÝk5@"Y¿oú–A¦µx– Dp!zý%·»½¦Þ/þP‡—Ùþn,¿½Á˜Î{wl§ Ñx6¬|Õ ‘çC£“|¨lzÁVœ/÷—RO"ïÖ0¥Nåi*/?‹wŠÚ¨bÒÉR£–¼øU9+O~ŠUEˆ~»»Ql;NÛ‹¥æïO«³Ñ§~§Ö”ClFJl9ž1+nòI:±³(Ñ.òQØÚ ‘µ⺬mdZÛÉg Bg¢–”“ÎÆ–ns®\úI zðg†ÁëàCIÕ­ƒBäùPå´{þH½™{Y<ÖÛf«¬LZ˜›àʲÉmn ï;4™¾¶zpÛŸl¶luï•ËØúöªÖÛ¸í]êúóþ¬m²„Zcg˜P‰‹-¿SV„HÉž•iD–/GŸdbË+ß{1•#Ÿé]d[ÄÜÍ8çBä3· Ë ËÚN4;µ \·oûB$Ó8W¡¡¤Ý0×TI•‹ÎjGD)¬GEˆêA¹øE{é{(¶œò(ø§ô.²#«°t"ñk4Ö¸ ²¬íç̈"„(!’ù<ÕP§Ýñ¯÷ƒBoYŒõ¼ûN_q,£QWéÎ÷-u7$r–j—¯4SšçYLS*DïA!*…®…·~T KÅ–ß³¾_‘Y”ø1VÝ{BÔ›xTÚò0_u]Ë ÓÚ®dWô Q&Bd q¥f=ÈÁ–mâð«z 'þå©BTñVÚfÐ >„†™:{!’’qUô¹Rv¢~½—½Ø$ˆ!²>f£öºß4½ÕlŠ­ã…HÎ:6â¢>[~gÌœÁ'f%ÚEj0*"Ph,ïÜÐhZ™ÖvâY‚Ày„È*aþÅ}ávû«lÝ·9.ËBàÁ?¢ß² =ÙàGüy•ŸÜS‰)³'µ®îçÜFÇDmT3°1Eˆ:ñBT V;[.y íM/µ‹¬ä~Tì­uä’CŸ2È´¶Ï„Î#D­ÐÌaÈaíÑGA®š)[Vyæ¾Zø8Yˆ¶jqr ‘—Ìó›ÜÐ;$‹ý«Üc¢~Þ<[હúA!jÇ QxrOO7!²Ãw2¿o¥u‘!‘ÔLˆ¼\á`íkSÙÖvâY‚À™¦ÌÜþþ>0däþÇ¡$ÚÈYïg×8Yˆ\%ú}åªÕâÔ&p!ú ŒͪAöSr™W÷ËÜ:"j9K æ³ekïaéBtp„(1¶<ò9<i]äX=¾4"/m¬ed[ÛŒÀ¥ ‘|n‡z¡7þÍ ãc¾ûÞu`}øO…¨W÷óß?žØ>ˆ`nB0‡h"•'ös2îƶ¡žµ-Ç´¾,ÕhÒ…h%VÓŽ-‡È!¯awÇ0:‹í"åñ%î mˆÑ*<ªMd[Û«ìÊ€^!ÊDˆ¤J¨·ãi:úOS˜•§žóò‹ŸÞ©Z³ÌO¼Ésh?ú{!z‡•å:gÛ•ˆZõ[ëI"G$$ŽŽ-´î…0}»³ÌÈ,JÌóϧB«[UG„¨vm]Ê ãÚN{?2?zO?Ĺ‹ÓKŸ^¬ø›1ýÓ¹é‘i½9Ÿ04ç¯þmüèÎ'cFCdbÅG<}ñ>=ÿ¶“^ü…v¾]JzqaˆôÆpÔË«f3ôŲн¥%jYÒ÷—»·>óÓd:zGÉ›FÝFM ý¼ô~žj“þSÒõ®Lùy¯Bÿ±ÚÔ c+¼'fçÌ÷5f’³$s’¼™#Šf¾ì="èœñ‹^k9{ ÜYR!{§#Høðßæg ÀGCôÚ~¤Õá ÿªÈ.\ÿÜð¸¿w1mÞå¹£!Z´Î]–!Ò»h.yyÕìÎtöÒ3æÞNOçM˜ŸíÍê˞ذ£î5LW01UvQΑ aÕ×ÐÔ c+(è½6ëkBÙ§(=MO[fžWÕý-OÉ¥Ýúù÷/(s#úݥŜ¢1Ú™ÛÓ¼c¯Gõã¿}Ó«¿woè¦Ðû9}n%°7–náúk@w$ ©ËÆkþ]¦’œ!*›™]1lÓÿ5®ÅVPÐ~íŸ-Ëg¹ KdYÙÂÿ²~¶sîÝT QEçô³Ç3–s"(øóßæf À7Cäè.î~|·øÀtdžöw™X³±÷uèï6¬`ïŸ$hN·ä)ò…>XÈE™¹÷åç /ßÿðñÝÇ»Œr[s‡ªðêÁõ^hPp¿)7K`ˆkcˆŒ„BoMÍÔ´µë ¬5¨ Àù|I²N÷õ,ª@ë €!‘!ú²¾fû)ºˆÖC(CÔK ‘iP‘)ö`Cì"ú6VÚø>}Qþ1Z_  ˆ ‘>ÉYv⎱E:ëëôZ_  ˜ ‘>ÍDEú·×OfKëã. ñÀŠÊ•Ýýù£?ÝAÛ €!™!*›z’gbýüìS´¼"@ñ"Ẫŗ/?¾Z@ç! Àß‚rYP€!" À`ˆ†C0D"€!À †(„›¯”Ô¿´Î¼´úÊþÚ}Ý×ܪétí®Úîêkq¿m(¹üM©ÿêä1ê¢× ·ê(7u *Cä‚ -vŽIî»­î–¦sð°uoGL_‰þȲ7&[Z¾³-ݼ#³SlçßË#‚v³»åôåÕŽˆõø†j¯ê¨E ‚8jÎÿ§h4pPÇÅY%‘Y,­òÇw ‚” ¨ À¹àªfg—Ôž©ì·² ÏÖÅ ¼b»Pù“—ó H¹€ª ‘:U·4-*±])iÏ´gmËkµÔù•ßKh;Wk\I›Æ“ö‚ÛA]]þýùý¡o~ˆÁ.²Èå㉦m¼{¥‹ý¦<©£ ¢¨¹êBuÜŸU¢Ìâì#ÌŸüœAÊT`ˆ<8ÒýSb»ïÉv•¬—,ŽV+B%½ŽÜ{ÍV®‘æ0^é WŽ>u&åF Û°SnŸ:Ô¯†Ùf–CA•”ž•p£æ«S<¾ÂYÅÏ,þ>|uò¥ArU"u:4-.aGˆ‡‰:ÞÍ?jº{þí1p¸¼ÔVjL­á0ùk»?E€Ay=Y4àáÈGLßTE¯xš¯Nñh ·Fö¬âg–Ü>G]<µËAÊT`ˆ”ÙJïãKl·‘l×í¸U£f|JPÕn«Âf[ØN–l4]Qúôê=7Ú«»ÅÓõ69d“:^#ð5_âÑ@nìYÅÏ,¹}ÌêäKƒ åª0DÊ<Ò´ˆÄ홪!MwÞl?iæ† ­^Ï©eûc.ä"²Çx%KúÔòó"(Oy¬~ÔuŠH©5²g• ³¤ö±äOž4R. *C¤Ê1MKIlw´_ƒ÷Ѿ¬ ¿bvªŽ5/ÿ~ÅäŽ|Ám/‡ÜBß‹ñ¤Ž×IŒŽí~S½ܤ/íf: ¬ë"¿ñ·ýgDð8úÑMãp)Jê$|É1j:E§ÃÙ³Ê1³Äû°óÇw ‚” ¨ À)Ò4¤i ™ÇU´ã3€¨ñÈ¡mÜ{€ŽOû“LHÒ÷ßJ©úÂçöŸAŸÇaSÆ…•Ôéóqdf©¨=¢ià°Æ½!âd–pNþø®ArU"E~1Œ$d\ƒÿp—>²Ü䳌Mµ Ú/ Zª´Òmûö¶Ÿ c– WùÜþÛ#h¢/¹ìì·$RW^ømŒhÚ 'u¼F ‚9j¯†(Hˆ×("Nf öáæß*P€!R$J\É·ÛUÑWi“›²cëß0]H'+++uµÐáø7Ȏƨ>É£n‹üöCŒNg ˆ}ïzöí~㬠Jêx@…~æ,-ª†(Hˆ×("Nf1÷qÈ¿5T. *C¤Æ6:¤¬Ì†t<¹Û¿Òù{:âú4E¦ 2—›²þ?ä GÓpf§–<ô™°GÐÜgš‡c7½áMÚ›¹H×ÉmÒE`C|y¯èÖ50DåÍRõ?Ö–ürà ½1žüÁÍñ¶}úÎ{TÇS*X¢öhˆ‚¥hŠ!âe–ÐqòÇw ‚” ¨ À)w%ènû5íØò_ëèã®›†f®­­mgTŸøzx³TÐûRÇêOÒ}"?…óoˆ Ý™NF\N˜P:ië:J¨`Ú›! ˜‚5*g7³Ø†ÈQüh„\@U†ˆÙøî1Rcßà¤ôT’tÔ]ÃüD%kŒ•êËÔåÄ%Š@ë8}Ël;©úƒ³¶ä¢Ì´ šüÍêËëÙžÔQ‰@[Ôž QÐ4à¯Q:«¸™%ÒZ¨N4D. *CÄâªéÁ¼ý•—/ãšvC®×z­¯iõïAÒœ1LL’Î`Ùv,aÚŒg>úx\ròÿ QU‡ìËvú—¤CRÉ\©£ ö¨½¢ i PGå¬âg–Xk:y8‘ ¨ À©¢ òÃâÒ™‡ZºH°žóëã w,ûèk¶+ï–ÕÜдHÍZ"}Ø\éèÜÞ]Õ9SG!ìQ{1DAÓ@ ŽÊYÅÏ,­êø"P€!R0DÉ„¦Å${,Ðé7þ¦×wLsŒ¬øÕ±ÐÆðRö¯CîfLðÁ·´â"èĉÖÜ©ã>Q{0DAÓ@¤ŽÂY%È,'­ùêø"P€!bqm»‘k¬vGöB,7·Qõ¼f®qP[HÆÌs9jÚК"º^®wyù×dÓ[gr¨ŽëT`E­nˆ‚¦P…³JYNZ7ø{—Lâ›x. *C¤@iwºe7~¨?›…v…f^oe\ÝÙŠÀËlÈߥkiˆŽJߣ:!æí«\ªã6ØQ«¢ i VGá¬d–“Ö[}½K&óM <P€!RkΣÒ[Ó =ÃK!]šcvÝ#s‡ˆ.h³¢æµ4DôR·Næ@%1M‹7äT—¨À‰ZÑMuÜŸU¢ÌrÒzŸwˆ¤¾içª0DîiãOTÞzèJØ~=·êa6Çx7µë ¾­”Z.Ç5-âë½Neˆ^ÆrÔ ¼ü4„®›}µ«ª7‚œÁ‹ÚQ¢ÐÀA¦bÝ™åx&Ö©N´›ƒó ¹€ª ‘kÚI{g¿m2@où߶8”Ar¥×hlÌ~g¶÷1SwiNß"ŸÝ¾Ú› âkßç2´_³M<ÅÔ ¦…ˆðëÔù?{÷Å™p|]™„CQ@XR+*jkDvE¡r§Þ‘ô —Z-MT’â%œç&Öõ¢½ÓÍMJҘƋÂÑ 6*’CRM4µIé½h¤bâû&¾ò•éËË=Ïì30vØÙÙÝïçììÌ>Ïïyžy~;3;cV÷*oZj›èäD l¢cë¸YŒ,ÛžhúAVŒf€„ȱó»ÿ´«¿Jk׿’?°?ººQìÌŽÆ/ú©íÖ¼i·¼ßb§ý}ˆÊµ‡Ë ÄtÅ)¢Mš'¨­ïYz«:£DD·×ø«ë2¢cW·X”Úf’Î…ØEÇp,XÇ­Åê¾ZKÖI`ü¤:Y5˜"§ŠåÍ䱪Mêpñ£)ïÈŸØn+Î/‰l٫٫²¢çt…z´§`ýoå·¾£ì'õaŽò†m¥Õ×Äß׋=Nˆ®ï½S]&?ô7g›duzÞ²Aú`¦:‚åGÇ®.±,µuB”1°ŽñX°Š›ÕÈ2X'ñ“ê~UcY !r*dxKý˜ïÕàâÇ ½ÿ;õÙÕ×cÏdý¦x~7§>²¾ç»ø³Z÷žKdâè•»½G{>¾¦®ô¯?ñÞ !R˺§'þ˜í%?–1ˆÁÆK½³üèØ•À%–¥¶Nˆr ¶Ñ1 Vq³Y† ‘íøIu?Ȫ±À¬9%o¸ÒdÙ?Õ½Ríâ—ó¾YØù}Ù ½RãúÙÄ&ŽÑ=š•:7ç{uêJýÉ; ÄÀzòt»¤?!ÊØFÇd,XÄÍjd¬“ÀøIu?Ȫ±À¬9$ Òcö@£<™¬ìYzc ’«ǾÚujn¹?°_¹6·'ûûÐç‰NyuÿQì¬/Î÷:Ö%p‰m©õƒl‹m}ÌÇ‚{–9~\ìÙ3˜"ÈyÌ  !"$D@B€„Hˆ " !@B$DHˆ€„ ’›>CH‡o´7dDAêËËËgr¶VUÔ6)BÑšîÂÌìI·Ïéò¸m ®0,Þ[ÍÍ°q ¶ïÚe¼`ìó¼ÝÃZê«ema&”¤Z¤»rµóD*•9µÚ’nŸò¹†MÅ{×°cÉ°qš6á‹žŒ_^íÒ:—fG^ŒÌ>t´µ³&f£®ÕgphâÁtÿÃl‰¨°ºz|d|ú„áŠÑhô¤­xSQ.}õðÙ–*uØRsÞñ—¢¢¢úŸD‰È²­"!J¯ÒuóùÒžŒÌ¶$Ý>õ-§‹ªHˆÒÎkZ(2"¥Í_µ?ôH=’°/vxâd’ëÄr›GSê‚Ç4³¶iBT›îûb«|uÉIáŸÊ|Hw’iè墴çGÏ"w#ŒÇ²›—÷ßo5(óÃ/‚‹"ÓVVË…OÉQõ<ÑÈСËã/þ'Êùè’6!º¡õ™"*R<™5?½¬¾ïòÒu_ƒ­ú„ȼÔ>*Ð'$)úK•›;M1§ýj¢è_?nQ¶Äÿ¾"/Ÿx?ñ‰C$Puç3±¦©ú?%D.G´Æ_Ùý”yÕã}ÚÔ)ʺÕRæ·bç©¢Sâֹ¥9#Þ|5¿ä…øoÚhcQ1›·ŽÄþî—çþpÙ‡ÄlWDI^Nsá”Ó¡{ g‡dBÔ廈.ÈÃ<“æg‡‚Á©cú„ȼb‡”DöÕ7€gD ãâN³EQJåÝǺWì?0ÿ÷¨Ø½'úƒãÀØ»ŠR™Ÿ‘5MÕçø)!r9¢oŠªÿ‘„Ƚ„È«ïמXÒ$vUc¾©äj1ýö Æÿ™“çídÖ9)Ï÷ÌÁ*ÙMßü¯œäÄlx=<@4ÐlíV¢eŠçå þ5™Q]4~»G ‘»þúÔ|Õ¢Æ#_ë"‹Vˆ¹,rÐæh^us§Y ž[£(æW+^qrÎìªxóúŒ¬iÊ>ÇO ‘ËÝ)ª¾™„Ƚ„h4g¢eÖT“Üê›J^”g²æÿ»-þ»Ä:ƒºS^?ˆÿiݦ#·‚ÁÖ…LILíÁÁË.·ÿbÑÁy€(Ö„È݈ª‹Ž[\ß1 N…oë"‹VˆûÉá©I$㣎MŠRY:ç€fQ¸¡¬1T¿­b·ö2×3âMÚ#6ùâÍCíŠ J¥ü€Ù'û M –N&Oß_4ðAÙöЎ—,ÿ"òëýÛÚ^Ï[•`Móç^оý—¥¥çE‚׸£Fýˆ™£5Å»èØDÔ¢ÔÔ¬ìm\ÿ¶“ רv¥6lx¾ãyî‡~æm*—Èð½Þ = ;¨©)£HvulU¯ˆom&M5”–þ' ¯"tnçæáäzˆq?°h›±`ÚC–›·‚yM—Ñ-#jÖrbcC£m‘‚ø'YŽu¯2-›EûÖT¾_¿‰1ñʇú®ðö®.4Šl 7c¼êd’ÄeýIÈÄäš37³™hÈ Äl6‚"˜\¸’5"b2rÅk`Vˆ£.(ìƒ4— $Qa!ևőAß…ûäÓâƒËžêžî>§ûÔéÓ=?îÔ‹ÎtºOªšS_שªÓ@dËÛ4{ÓV›8¶ÑkÜÌšŸžKe—à÷ôÓU]Zl#C}hç=ìjš‰ ÿï“c} ‚m%Ÿ$ß½__@¬D!CH´év_»sŽD-6:/¹•—§é罃å*K–÷üjKÄø2Vx}[-dÚ‚l©‘”þíelÔãäŽIßùY®”m=YÞ¢Xwsü?æ”b=M23­2¾ª¥Ô¬ªû•ZQùÓR­>îïnÒŽ#àúØHöYƒÛ•ór€ˆÏ˜kåY‡Ñþ`¼,,¡S¸Òª,´eÛE ’3E‰ÏAkaC·íi—$FU (-Y9Tú·Ôúþ ñ ˆ¹ZÀgêÓåkNûÕÄØ‘‰ÇÁ%ùø‚ IDAT­JÈ¢t¦¯ÛoZÝ'õÊ®^·Ö zĸË/PøžÃ=Ãiz·b?¦Þ‡Bó¼‡elÁŠ©=&B;Îpœz| z½¾€(X‰ÆÛñ íÒà<ˆZ`Àä%O«MGT;V}i:$ˆvfP‰ªv_@F-†²19;‘ݵpÅ[ÑMêÊ^†ï#3ÅÑžèß—_ÙŸ]ñ÷¹HG8Îu‰…Š’ÍR€á@ȵÒ4NÝSu\nŠX7•·ÊÌ'„ƒbçÓ$Q©²Õzäÿ"Dˆ~D¿ÌBü¢W øL}Z".QDs„¾«°tH<nUBÞý 3]€!zÿ"N†l±g Õªðá@ÀÚs6ZvQ¸ÙAàÈ\î¡÷¿Ø\˜‡ÐùÑÖ”è IâÆFæßB¾ðdP€èém']][‰Â,Õpw#Ó½ãHªF´@ÿ‰‡ìõ<ù¥j€È²­1È\™öjQ†ž¶Kcšii•DÛ[Œ‡|}üu³ƒƒª¶çÀCmsS;+«á%“ª¹ÌÆêk.µõhlo•˜©Rp²ùü`-ÕŒ·Tµ/,V{ÏOQ[}˜tDãà\7Á•çÉŠj¤Âë­Ú+þt¢.Q­ýgA !­ÚÙX¥qY–(J­ú`ÿ¢6û4™6{äiçNhó¯ˆø»éßBP;èGô[À,Ä/ jãjŸ©?KÄ%ŠiŽ€Yˆ&UýP’,ÓÂhSuû .ˆÇÁ­JÈ¢|¦Ðgè°íýÊ‘0T¦…ßÀ]D7Öz}Ö–ÄLàHz8‡{f¡f\ÿpö!ÁYD²VýI}†”©|ßef›‰Þ z ºrÒÌÚJô–pÈ¥lŸ% µ`Ò[Ù†y €"ÜtÄ…Šñ½ú²ßo€2€èƒ¹È—õbuóŽÏÓÿÒ 8éÝÚJôµÖPû­~Éâ-¶ÑÁ„Ù©1ª1-Ø"q³y¨²®€ˆÆ°k?]äöE“z;káFœaý‘Q)“V½›b0üQ‚óÄÔ†[©—lMn®K¤–ˆïé7¸EÁ eIßeCBb€ê|W‘Ö©4ÀZÖµ碮EŠF7¾Dãi(º·Îzë¢{[þb6¡¶"L A)Û½ŽÿùxDG»é˜Pÿ‡ ýÓ›b¥žµ¥4ßuôàùžá!Ý·3E™fãiÑê5=qæè¤PèšçóXâø­t<ôe€ˆ¡Ñ/Qè±øòˆºÍi¤QÂ)%C !Z èZ)ûËÓº¢F«FEàȪYnAâFœËd`Vœ’ |€'Jq°Û ¼QY~Š‚“A¢X<;‘lH}œßb»Ñ^aÅç:É–Ò½ôˆ,\?`ê¡å´¹máˆ({%'|"œƒQ™ …ð.®i@Ôè¬Áó ˆ¸ZÍÔ»%âhî2¹¼Ÿ ÂàãøŸG@¤ÔQÌŒQlŠž‘e¦%¾Vê綔æ>$î"Oü£}晓:2CËw?Î>yÞ7¤¾ºh–‚= òPóÛ÷ˆÇÇ:ZÛVr8ðÙ»=dDG~›\s@¬D!°Öž}ÖÒ‡fà˜³yÓ®>[í¦€Ó…˜lØ6úÿˆêdQ¸ÞYЮ8€þ ,»%kU¹ÙF»è=¡-TöK­–w¬  *2é›FÄê’X:ø88×3£ci½ÞQ ˆ0®!ÞöÆæ{$Ñ×Ô•*›Ë÷ˆprDÉ -„çpqýH¢ºÜ_ ¢™z·D\¢Í•Ñ}J©ø8þçãm¥ÖI>ÖSèbtl3¬ÔGˆ&a¯fàîuHJßåvº™¸žfòîÃÇôë¡¡yòŸëäªÌ)àå왾,úYù ˆîöQtuãKô¶6 P§ ‰jIá" -h‡œd”<­+ JíïHÖ—GŠZT@T ª©+%ª³5µ½R«b¹Ö ÿEŸ³öÁ"‹Z£‹iÿ¥wŒémn é‰ 7È•' âJçz¯íDÓY@Äã@À5‘LŒ†/ÍT_1 ª¸|o€ç @t1H á9\\?.€H`!Þ_ ™z¶D\¢ÍÓ‰ö OáãøŸW@XËH«®VÕnn3uØ—ûj3¬ÔO|d¼ˆîÑN&û¢(ý´úÿ’ ooíý,}2ƒ6ËÚ±ï©Ï×\=‹?y¥ïœõ1€hx“IºQ—žXM&Û©  ’ÒÂɽÉ<­ :ö ›×Ö wUöÚbr©’µ{HH“Žümƒþ&ίw:±Qã¬4zÇä ˆÊMh‘´"D:ø88×[lís 埜ë8q.ÝôÂä‹ @4 pàU(AZÏáâú"¡…xD|-ˆgêÕQ‰ 5Wkåù$¡‚4ì:ŽÿùxDÿ4Óª“*?©QQ –ío›a¥¸&jTy¿ÒQÇ“ôTÒ8};tî è™Ew€o¿#Áø;÷SS3 0ÚÞQŸ“2k*Q(ÈÿD1}'ZѽÝûP¨k”ˆä´0'™½ž§ÕD»õæý±ÈôÔXå8ˆÌpwêôéÓlYYù&e_ŠëJ3†¢—E³ø§ì‘µ?¯ ¤ƒƒsÝh«ë”D8×GmûŠOˆ uêº)ä  8ðˆxÃû·žÃÅõƒËÍÍBr;ÜÕÒB@T㈊ŽÿùxD©ˆ‘V]g†L7- ºÆé€sÛÿ=P÷4güünwQG¸³ô«½f~xæíÇÙßÃzñç`á’n†}"?}ˆ‚•h¿­÷²qîës&ðÄ"9-äÑ:¢2­£þå¤^óúD=XÞ„“@NÐ yÆŠùÇ ¬êxC¨Õ"ö©Û¿Õ7Š–® B¥#~/çsm?`iDa¸ŽÚ^þãªñÚë4P@$à X@äßBx×à·àb!A"·™z³D\¢BÍÔ¡Ÿ2c»$Æñ?Ï€Hk ‘À™Y5_¼›fË쩳Grèªÿ{ 4ñ;ã˜ùàf‰{ìÐŒäá®n[fÙ¿úDµy\@¬D'lÅñ׳û\pºÇc“ȧ.ø·ßƒæó[fë ˆ Å¢:’¢×6MK"¨ÏímõÀ’TÝì8³ÑIᛃ~-^@„KçPÀe›[uD(®!=äõŒóP\§Á"œƒ`‘ á9\\?¸ÜÜ,$(@ä6So–ˆKT¬¹NópÕúm2ãøŸw@t0ª§U¨lÉEåÚY³›l§hµ‡B‹þï ³M¡«`û_ìMHÙÇ› òa«™ÖȞҭöäñ£¨ŒÂóÑÄ<†ÀØB‚‰" ˜¶Ã 36h †ç€BŠÈ(ÁŒ "Œy‹! ƒ„·\Í*«Y½ºÕ_õuªnUʶÿ¿MbwW×¹çܾ÷_·nCÊ}AĶ-qØm¼©:EXöuÖÑXXË‹Œz”•5“;êUBÅŒºuYµlª>XAti‘tF´J¥ ’ßÇ*àD¥âüS|ÌŠaQýÇîKôóW«™ êÇlD´wèóÐVŸUMADZ``5»3 ¯º~"5-Ñ1uVÑ8+ˆì÷½ —Ží7³â” 2k©µžH{Ô8r5íBûƒò_~ýf’ï<öÛc]±'÷½3RÙöÃâÀä=4ï(¦Åt%0žcÔ•ëÃɒг$³Ê±Kåˆê¦}ÒšeÝÄŒìQÚÇÑ j=å” ¢½CŸ‡¶ZugðšŸC‘X= Ú s%õˆ3Sgm³‚È~Ñ›péøÐ~3ë!N "³–Z뉴G #×ãʬDÁ~{l¢V)Cé°O¯„k*¾Õ‡c¨ÞU<¾®Üìlõ˜1Õæà0µÁtÊg½7¶¸ó'/rì͉/8ífV9êQiIHæÂù„ 4D|QEbÆÌ!^ñzÕúÕ*À˲§dØ'²íEœ‚è¸8 ùNX´¬Y?s[âîà8ü¼:?°^Kí"Ú;ç!­fÕ%e.<Ó˜‘´ÀÀêãªõŒªÔ'蘚 "#êtÒg‘ý¢7áÒñ¡ýfÖCœDf-µÖiEn8_V®ƒë<öÛC "²'z"LÏÖ¨Ë+ÃÖ|8†j¶±‘úëµVeän­nårSÝ #¡ß ’óxæ¹wú†9Æ7!¯dV9êQI!¦ÕM¬3áà`¿±i‹ìß^þ(¬µàÀ>Чs ý[Žü<ù€ÎMð%Ÿ úš]‹·Zµìž& ‰ÄÏì~G¥!Mž¼>ƒÍV‘wèóÐV?PÔïãD¤F[ÁÙ,vG1±_0‹©™ 곶ý‚¶ÀYAd»‡èN¸t|H¿™õÇ‘IK-öDÚ£‘+¤ú+yûí¡ÝÙÞÅËâµU>ñµåú—]7Dzo¬^p»;“åFG4«½lv~ÝËwL®81¿MgUdoéîb›•; :œ³ô6ÏGÙ¦êÎþÌ "G=*=h?’*sÿYüßôt'½ZŠHyñª‡Í[zªy0T}µ]ú&oAÙËg}ÍufÒÂÀ;äyh«]·"qV±„~æÉCDY`(ˆÞIvy#"RΘ¼a—YLM«ué·”„¶ÀYAd£‡PýÀ0>äoî!çóB«qó¼Å‘ªÊîZ³\¥†Q {•žH{Ô r9>ù»ý‡wfç±Õƒø˜ôÄxÌC„s/z[ ŽIÇdßÃø1©ìWç²”Ö¹E½>¯“æ=f[úøÈò|¼–X[êfÏ”ôzËr¢JG‹|!§eyaga*~ä*·ÝKzî_Wo3~ûI®”´º†¥*÷›ñj­ AsADG!Íô¦GQ ^ô§Žò_’]ÿR15DDKIH DÖ{Õ ãCþè2 =™ãŒ£@ö*;=‘ö(¹hGHÙœKfç±Õ£ø˜ôÄ*­_R°˜´»±g¤ïéʾÁúÅfJ"Lªß”ÊŽi÷­Ç̶ÈÇ|z&^PH‘׊û>éC^ð›íÙÔI“¨Dò/̘ rÖ£®˜Ìwú9ÕÅ]©(¤`»¸6=.)¢We—ü‘ôp&1ÀTy¤‡é)?X’x+PâqÝÚOA$-„Wéu…`iÈ›Lw;ý Ð¹æüä ¼ƒ\-µ#ˆŒ¼C{”´Z¼þˆÛ]v%(=×ÍQËLßc«ÅÙ¦<~î+WZLÄÔ¼ž;ÑRʇ‘åb8á’ñ¡ Tq\ѽÊFO4ò¨~ä&ËÄï ÖŠ4—‡¤O4šœÇV{Ì‘AOdÏ‘ùô{gPüu­:o0¥ÛƒõZ¢6|Ûõ5íj›Z[büÇÄ&–“ñ¶l5Ã3îL.Úl¨dLbön ¯X2›-ÝWä½³á´îy^Êu„ rÖ£®Üõû yG­é¨…T]ä(9 Åssüì½3…”WI'Ζ¶ê¯ßv^üÙµßa¸]mº&] ˆÆŽ#ŠaŽeìy ?XdmÑ홆@¶`e\ÈBþ¥IŒÑ-ÅÙ7‚|£÷FtÞl ‡åôÙÁHn^–Ž`~)n³Øc@öѪÚµs–h™(Ñô2xš¥2g S¼gµÏrá 䆹ʫ£D…_š£ðÙÆG–fIvÕeåá²+Ã3+´ûžPõ·!Ì »#nw¸~à¦WÔC#{ðPp&‰<ÁZ+YËkØœ¬úí`)"Ù´åï$«¨R¦óÌ}ð‰8ªä €eesjê3Fr^‚Ÿ§¦6‘‘R© ÿ³Óßÿð¿ÓϤ,DùÿÉÓîD.”±ŒFMõˆö“ñbe¶Äî¬)7aQÓ=D ûK×OÕ©’¯&³Ç°„ ¼Œ`ÿys¢ñìÝšœSÙ•/,úñxOÍ©k€#KðÍÇ™(Ü€#ËÉo«X%r¡ oÀs ”VvgG™ñÚâââG¯DŠ\ÄÀ‘¥Æ—*@^u üè„|O6¸¢\ôAÝœù]qÞ7“9wfö÷ä©2ô§ñkø;]Y_˵tÌÃÑ¥Õé˜Þ;ýŸVV? é¼±¶57»òé!ü À>.Ôâ6ξSèMé!aà`;õÉ£-ˆ¾„í«]ÿù¥À*ö³jm(RàwLEkÅ_n ~XÍÃWmnÆÔû^ÞCú[‘ŽÙÜ}ªzkz§“½1òzUùúÐDâ÷}Í1Œ¹å–– üŸ½s "YpÓ¦ k23‰3“pb.›ÉeÍÅi3‰“€ºp"‰›M 0ˆÌªHbÙàFˆBLtáû ˆº„ˆ$+ˆ,h ‚>„<ˆ ä]Ø'Ÿd|8œªîééêîªîê¹ê¤þí®JÿõOýuùºn‹²UæÏXZ¿ÀzTâyžv/ÌÂŽÐãß7xiëÀP~V¬Þ -¨–¾„ÜqD©õº€ qL*/ÕXµ~_šGþ•²"©€@9¯¨Ù•·ODU–çØüöçÑø#â›xTô¾óúFPŸúµñÎ[£Ê—ˆ–NropÉE9Š2•Ôjž]<ËÓî…˜Ñá‚ìZ].ýÏ‘;€(µ^ð#æ©Ô‡ªSP¨Z^àÒ½¸i$uSf.HD`ˆ×ÔlJßš< £ Ζù¬‰G Ö|TçhæÐm9hFÖ)>Œ½A×ÌQe”híš^å…gr0".9)Í"ÔAœçãCð˜ӣٶÚõ…äŽ J©\ãÀ À¸~‚x aÐØ¡UAj;ˆ¦5#_  ÒTv–WÕìIt‚ÈÊã¨]¸¯ž1<ò ±Ëö„ õD|óP‹ú/Šúôþ¹0ñÖum¿˜+¢76Ð3+ºÙ¹wDD\rV.2D#°NóÏ€j3ó2Ÿ©²“\:ì@”Úß©´Ë €~n=ê÷Æ®o¡%>?~5@$ôðŽðÊš5yfÊ”¹­‰7ðúC=WÞÇ® ŽYTc&úE±A¹ž{‚Ç,ˆÛ·ÕëÇè™LáÂG0ψKŽ l¶3D«=Tçó Ï„¾ƒýàO¹Sv’K‡ˆRû{"„|ô¬ëBOè_/AËÒ»)>¥@$ì ß³Êkk–¤BÐŒŠ*o!“áƒGB¡øògD\rT–2D¿Á¶¹ŒçwF¼pæõ·¹Sv–2D)ý={åù07ô•È·Ò>g–Z ’GxmÍ’\ƒòOü-ºêLÁ|ÎlYûµuÙh]ÐmÒ3u¨„(ªÿp•—œ”K#UTûTéÅ¢¤¿½¤µ©â¾8wþ>Ê“ïÙvÑ£ÆÿqY‰ôÍ¡c'š†öç™VÔîm/“ƒ‹‹‹'Y, Z %äóm¢ÿW÷W”LþÖpÌ€ÿ`IËÅY³ÍR›+T¾Ó²SKØ@D‹±ð‚…дõ¶4ÀÌ®ˆiÛbüMÔ< ù‡ju¾tÿóNŸobB{K­œÄÖá¥ÚbA°÷œuîP­VÊN‡ Jq]à ø(¥úó´¬ÊÎ,¤vS² CNÛçˆlk°U]‚PiÒl««±u€7§é•—ºÙ+4ö™‚ ´;v}}¶ˆˆÓ‡Åﮯˆß¿„9D\rN~¯®zÑz¨}{¦.O.·†c±5ø»|$öŒw‰qg–…¶õcê¶êñJ=ÿ‘c,½`!dmî`·AÛÛx-Èþ±´ºN jĵp@Ø‘·VÁ?õËY÷]y³ÉªÕjÙ £ @”úºžI%ô -ÕAøDÐÎ3À8Èsüj[â)@dSƒmêåµÆUŸµ@w‘ 1!mLç3Ú,ïLÁ nætSa‚°F™[Ô'Ó÷h.FIˆ¸ä–œ&)6õiJãx$i :N™¸Ù£Ké„ãÓzvÏéãL@D³ZA¿?Ü£5æMØ3E·Xˆ¢­mÓV‡øC§Â IDAT¿fSb¬¼`!mÅfm,@DÏŠ,­¦Qù!%¼jú€r4!¨µñœe:t«±²Sjg¢Ô×…’ùè¾DIyë¼o:j’ yWmK|"@d_âZÓpœü_]”^ù^jw…kÚp£ÜÀ¶¦¡!¡{XÜ9rý°”é ÆÛˆ¸äœüÔ€¾©{TéÄ_KAi¤kjLîÃÉÑ0gŒr ©47LuEä„´Áü¶"tÿj´e^T`"šÕ Â\<%‡V{Pgoì]]òC³%5õh4Û.ª¶|yØænkSk½|¡õ´+/Ð…¦­SÑ€f6cÚŽ¤çÍ?–Vç µ7€¨a<\×…XÅôŒÎbF4ÏY¥C·ZWvŠ€(åu¡ «jðAJªˆÛm½Sg`dôrPc_â"†ºP ÇÍx.QoSÓ)t«yd„™‰:Ò°€A¢ÿaq¯á=áÂú?“ÈŠ—\q!éjõx…Ò‰Hµè«X-IÑ*Ć"Âb#tTãl¬!í,Ìê»*ŸlA™ò].{ ¢Y­ L+T9v|À%Hme5q[Ð:Ñ"¿< І¦ <,ï¹4mëˆD"ʪžÐ+¼ï ÇXx*6Úœ.ª¦çÝ?vV÷€x÷B{!vTƒa˜Ú¨FXž£¦C·Ú\vÚ2]vâ âƒ?÷9=4¯gÿÜJݤ jÉXòÍ)1Ô…I˜JÀ<‰ÔÃ\M«\3=„ÖAv¤=¡î ë3L™=„÷}¦'¢Ûnâ@Äe7‘Щïxz’"Ô¨w‘ß~½Ø¼’vjã¿QÛ¼¥90Íj!ö©ËîJ“°ïV_m]hÐâ µ]Dü µ4ØŒm~§Ç$D6Ú‘EPý“É3nh‘s7Z&ÂF 鞣¥C·šPvÚ2\»µQ·n&“-ø–0noÕ4ÔåÑr~³¿µÌ7‡@ÄTjˆC½y= êGÞ˜¦Uñ}ò‚²‰þ½}Øšj!Ú/Šç0òA'YŽ¤ åó_?ç@Äe·&hÍ‚º> Q j5Ä@– m› jwÅbµŠ0„Ù£Ýa¨‹îf8;’¢mºH7kqÓ @½Ë&& ²Óæˆ,ò h¹ Ê1É«Oü*Kaâñ‘ÏÑÒ¡[M(;m® åXÕptV­Œ³|;m „ý´y6s¾9"¦º€¼×JH±9Ýò?EÊ<~˜"‹üø[7$¤ñÔ=Qw뚟Ÿ?³Œ°^û@ÐĈËî"¹Í<u냼· :«iØÇ{/Ço8"ÜêÂ4›Çô%ˆ¥Xð]|A5´ÇÁÎÇO"¦Ç$DvÚœ‘UÐü“ ¨c6¿¨ÏïØzŽ’ÝjCÙù!•@ÄX&{8‚G,T!´hfù’OwúO¥*òͱմü.o6³ †eЈaþrð<Ú§N+oСDQL·(jŸ~•b_v}¶H\¥ÄˆË.¢mUg‚@$¡>Šôym',£é7¥]JˆZtkQKÉCTÆ}>5º½à–@TI~•Ç7úœjOIˆì´9"«< ù'1 Hjÿ~H'ÔÜbÜiGJ‡nµ¡ìl¦ˆØê$Ö* ¯Ù€b´–ê4“]õ„ÕjC¾Zä›3 b« ë°*‡ù ³ / ËyNÂûwì_ëÅØÙ‹Ï¿G‹´åEH÷a”nO¿ Dâ¹ùED\8áÒ”4uÊj‰Mù•±<áíyÉ@ ¨ÉD„Ž½ Æî÷°íS§h Æ­Ô:íˆML"@d§ÍYåÍ?‰QQÜÚ[êõ%ºÕƲӓJ bª ® >g'ǘÐýÌÚÏæ¡!lnmˆ>ÏÖ”1Öt^?ƒñ«!ºúÄxã"úpëÌ›3gVàÅü#Ý.3×ÆÆÆ™g+ha‘øú*".ˆ&ku7WyŠÂ i *´×ÚåĘžv}—Uaø:i3+­Ž!Ìesò¨Ñx5 °}›€¢ þ–Ž›ñe®ô˜D€ÈN›3 ²ÌŠ"|qÆøÌ@Dó%ºÕƲIˆÖ…<ªñâღŸn´µÖf)ðjÀ‹Ùå›3 b¬ h&mo73/“YCt}Ù€SPž~TÇÄgÑø¯izìù_è±µ9D\v9 ,u“Ž©Kˆö¢ÓÉQ5êé‚y†î®»Ÿe"ŠÕ ÂTR/1Èj˜€ˆ M‚]H7à‚aë˜D€ÈV›3 ²Î²¢ª8…Œ@D÷%ºÕƲãNˆ×…:ãþw·±TIh©÷óÌÓX¼ø‡ ËÇ,óÍ1ÖT¿áífæ%™]fÚq¿m(o®¹ûòøäÏBtê#é˜G®G…ˆ¸ìj Ú¯|”"à¹;;V3Nïê’"A(þÍ;Øø÷xX‹abÀM"ÜšÕ Âúº†„¨ˆÌ¥ºdd“ÙjsDvy@òOªÈÂs”tèVËÎp’@ä¸.Lž={V¿­¬ †Lq®¹—ÙãhSA…|Õ¤_?oo,@¤ÕŸD_´Ü œCt›ñYOËæíóBôÁ» o]‚ð³îñ8¡ÝhO9qÙÍ@T)`áJHÙu»Dï"ìSfŸ:*8¬|HÊëÇzOÓ[þ–ÿgïÜBâHö0ÞôIƒÑŒ—L\Q÷(3^N.Æ1îxâÆN`@“J 0$kÜqBÂY]È äA‰ÂY !,>$``÷aÉÃA”@ö=àSžÂ>œ‡Ã©ê¹uõtUWÏôx¿Œ]ÕUÿ®ë×ÕuáZÍD´cê^'t¦ÈT)^ÓÀQ@K åð]2D¶¡9!§Azþ¸,ˆD9'!²¶Ú\v†²Dn×Êq:§n@>ã¤ÀÕzâ?z<ö¶É ¢03B$QðÉl›x›¾Sµú“Ü­tþǫ̃ÈÇ,Wâ|´8»‚ì%AD·•Ó†¢Æ¾‡Ó <ÍrRuò=dê2²à-3ôèÆ31rQʾÕ| ó÷ä«·#8¡Ñ©E+†¿“‡Sð]2Dv¡9D2i`Îw‘0ç8ñð­6—ìæ¹^}—"­§ÓI£C…JlË‚a ÛäQÊjɺ@µq'ÚÍmÀt–YHUßÈÝøšè—Ó…^¦‰—%K—I‹Cd!ˆÀ^D7¨~IíÉÖÀvÆo_¥r@”·ìÞÀz*Wb7»jSC^Ë"k øVó%LgíÌýš`v¡9<ºC6 Ž˜wBYíD sŽ×j«²Ü9ua?1ÏWè´ÄÕëÇwìc÷.²K7+A$°Zª”g6¦ ²ç<#M^¥Ï©>°¶¼f^¦|ú¢ª_lV£y~æ¯Xûj!~ ˆ@¾2d1%à¯Ìl‚bcC‰Ofˆ5®OeÑ ™ý}Œ+èo1'6 ¥ßÕ|Aô#ýêàø&^hT™ 2]ñQ[n.° Í¡ ’Mƒ´=DV;DÂœãÅ÷ڢìwL]8HÇÙN9®¦‹^ªlÈ“ùz¥lã "ÕRå ÎúÕæÂÔI´¥¹f^UûçÛON¨êë|j¤W¦_Bä&»íŠè ¢+ÖNú,´ÈWþÂLÓŒqÕpÊ’ç_Ìþ&tâf8þ½rB“Dstëœô¶¶è”a6B=Æ;ñ‚NÏwèH¬î­2œvÏ·@`5_ÂŒÑ×â‘Ô#xö—e!ˆè|mbß ý„QiëÂÍ6¡9Dü4àç­ÕN‘0çxñð­¶(;ÁR:Ifù¯fPO‰)‰–²òÆ.Ý,ßj™º@‡ßüékÏ.ú5=ÓC·fœ-ž¿Mט½`7õM…6™kO«ê„Í~Ö×ÿGnû’œ4m”OWéÚ6ìCö ´oí¨×[UÏ\¼q=Iw7i¥Íž§-Lú~CCK;-Lgôö’·ËÙ‰¤ÅɬŒ´i'¦btÿpöëÇ“Nô#›¯jŒ˜lųncÀj¾„QÚè]gº”hQ[û¿K ç};DÊ=ºEPy?ùu§¾”éŒø.¼\!Í¡ ⧠ì¬î7ï´ DÂœãÆÃÏ9¶ìx¥QîëB?Ÿifè—¶­Ê8¸#‘nŠ2E.Ýb/ ¬–¨ 5æùû:è>xŸkèÐϳ”À’®SLŸwŸë‚ȸw£rs†\Y˜f¸™pŒÉ1úžúé[2D2ó쥾Fÿæäït|¨oM {ºoækºßTëÕã×èº`­ãéH3mèî·Ú.ýÒ÷=ŠIê–Dÿ0·ïpõÀš‹Ã}‡¹æÔ’™H,ž&:#äþ†Õ5\ Vó%ŒrÎÛƒÎçýŸ• ZÑSÓ9Ñ73,“pá悛Р"nò‡kuY×H¸¹çŒ’·´öéý¡®  æ?u¸9Ç”ðÒ‚(÷u!h±ù¡ÜRýÑ£ä_„éù¶;Rnì‰%·"ÒÔp¹µ×ÞjûºpTŸËd¦@÷Åø¹fœȪö½Ñ7˜™Ò_Ñóéë¿j:É£ÉBoæ7ægôkÆA¤Wú•ÐÌÂ;5Í ‚ä;'#©¶9Ñ xêR׊û=†NàCCÊ©¡ÿ°lƒîid¦½ÄyÂv F)Й²+¼x ˆ¸¬"¥¬‘1¢<A¤Žù“!ùOD¥\x¹ ì…¡9D¼4åÏêöô.ÐN‰rN:ÜœcÊÎ!yA”óº¹ Ò· b7XÙ6œÏ¢„ÕvuúnLŸG?§ûîGcšk¯&uÍLÚ±iýú´¼ J^š7ÎÎþë}Õb²5È_¢Ýñãü‘T“VïšË=úü…T¨Š;5Vy”éù7¥5¥‡»J¯wÄ´Âee8æV{7 /pZ··€oµ@)špüp ­éâ%™‡…VV{ÍöÕ•I»ðrA¨a¡9D¼4åÇêL‘(çD©Ã͹dÙéèëîƒ;¤.d!ˆ.éf™§.ól"¡Õ⺠9¦²0Žj¬ËhJsÏÛ³ú ‘zúlúAãTá„Æ ¢ÐödÏÒ•Ó ¿_^½°Ú‚ä3ž SÕ7*}`ßú «kNY‚_¨¬¾¶ï’ÃH†8Ÿ£Šö_½Q~õÐI‹™3ž¶–ªö'TE0Ò ,X-¢ª¥ªæpÁ®$çXaKyû¡¨#^.dOFpÒ@?YÍÃ&çxñðr.UvvT]P> µ¦ªçÑ‹‚¼aø~s/®m|=OºYçrz½†½6Ð÷Þ¡ÿçl’ÁEÚå~ ú›ŽŠ«[ÐÔn :®•æY±ãåONž´‰Ò•½ZÁ³JÑíDö5؉ â‡&¨Áî•QQDÚÅÜ ¢ÑW±?¿ôéÿ…¤dÊ'[AôvF5¢%òûë2U^Ïc6’¿È¢ ûÅg,ODójZ„u¹GeÐHË¢'®ZØALT` ¶à‘ì4×®DMy'ˆxù“‹'¥¯úÃ{¶n7íRA¤È¿5I"nh¢ì^ Œh®eŸ&/±,2sÒÇn6^Œ*ógé Î¼LxËÄ㟩à–Ó}`û’‚ÈCâ›&ÿ? LÒ  yÉw¤¾Zé¶kZW±¦±CÄ+a­±0þ{Š~„ÿ§¼€ ªyl'<ñnDwüù'ˆ¶ðIhš·h¯ÖììRt;‘<2‚ÈœEŠö6“B8èöƒ_?­ª ‰ßóê§øïY*Ž^J°Iü­‰³MuWÿÃt¶ÑDíÁºî‹ÇO[²Åv:Ú1ÕXnÜ©äéã &Âe³= ½UŸ!ÏV˜  œ¦bÉÚžºxGSßž"¢lãźº­CÖ#œN/}Õ¢(ÁWq<Üõ%÷ouo…ÁÍ=u«S‡vçkÊòëvó9ç‡Ó?LNáycYòÏaÑ~Y¯("âr`Ã)WBÆON•Ív75ìËŠ¦°úÇí»¹d” ¯²Áé¬upå`fiˆÈg*Ü3[NIâúÁ;!£±.RkÓls Ÿp¥µÿ@í@ $eY „²<ÈIþ•³"ý‡DïÔ/ÿS·ê<‘G%ˆ*BJ¨ÝJE¹Šåd¬©_ð“rÈÞ?(§Cä[“áÑòOXX´!æþœ ž.\N¹r¯Õ¯%F§DRØýãæÝ\Ê2JPj²¨èŸïl[—Q|#¥ š•R…DæRòÆÁ;"£ÈrÐצ"v ͼò3催;ñè÷±oGTô„¹eö_Ï@äQ‰¢º< (Êè%$g „‰U2Œì®Õƒ×vż¦dÊteÑAéžêŸ¨<·Æ z騈 Œêe%{„QÄP‹¿o»€(ž¨Ò‹k¡7ÂéQÅB5­ƒ·hbžÊ¡WµÇƒæšúøõ?Gòƒ÷Êiœ/è¸Ä©²_ÜC8æž:0Ny’¹bHìHAúÇÍ»¹”d” ” ™VDÐ?þ¬mëà2ŠŽ`¬4DWvéïܽ3€h›2%Ï°®ÒÔrÜx-^/l,ôDëE<*ì¡ö£EIZ¦ª?¨[t!Dß3yTR€hOaPý{É ç¹öˆU2­¨;p,@tqR8Á*0RhêÙ7 žs´T×Ú `*Jã<êl¿2V3RÛ åS=³ÓQ†LTÓ¯g»§É—êv!@Ô¤¾@zàÊœZMj›€h€,ý‘ºîˆú.QŸ§çÚˆºõ·(eß:x‹V¨æ‡ûñŽx›úE×Ã5°Rœ $›UÁRG¸ü¿àç¨C~ðþÁ9…3\Ž˜pµ¸3†xÌ=t`œr$äåRnâžOGÕ^¨±OÁúÇÍ»¹“l”à1™ž†)Në 2Š`¬4Õ‡ˆ”L¯ÖuBʨˆ>àŒà‘ÑfÕDl¦„* ½.”ö1‚zž±“VSÍ´–sŽfÓo¤?%ÅÞ朸OA´¿g ò¨¤Ñ–¦*DÙL²sÂô)vb–¨½ê ʼnVžðI±DC«ö ø!Vתú=þ*mþ†ã—òJ$µ?½d.rY_¶Ôqݳ†Ø¢lp¾)÷T,4.ò]"x\ebC5ì³ç¨ŠéÆÉɃµèKðcHç¼S’¯ úJù§^p}=îùa÷ÆiÀdƒ„¹|XX²Åcîù ã”#!€©tö©ž2ãåÝsö)hÿ¸{77²ƒœš æ\ÿ”Û·:êq ÁJËa Xå'»ZK’˜¼ñFpÑe4CÞ9d1eº¹3íûAY^Cò­Û…Óçé7-ŒÈòÇŸˆC7é{;®?0”‡XçN®¦‘ôþƒz"ö‚g ò¨´QfŒŽ3ª¤5Žqˆw .×»Œ¾>F@Ôi]/ÇÈôPOý}Ÿr4 š:”pˆ®‘ÙÅYûyÜ9 RÎlQ38fl9ÅT07Ò¢fÝyý”ñý4ZÝG…Èàõ¸çÇád3>J¯·#NŽÆŽ¹·LN9² V‹_˜VU,ï÷ïæLvðQ¡€ßE°an?ˆŒŠ"º4énP—‰k‚¥  É( Ü/–ʆ£†ÞඣoD´ò͆«ÌÖîêI ƒšȈ¤Ø+9y"J íÜ£•žß:ÄÁ7(x$L ÔTDÍlõqÞdâÉ{¹HW!,9é%!n.Q·É{Ô ¢ †‘I[N1Ì̓´èª!–^’Îê›-Wém†Ô¯Ç=?'©ƒz¹ÞÕC'á˜{{ÐÁä”#!¨MÁûÇý»9“|”ð¨MQú/Qýƒãø©Ç Æ‚€ˆ* ­ZÒ¿ÆDB2ú’¨Àþb]änB7˜)7NÉò‡»B…ÜœYÿùýʳWÇfTÃÏÚ"mdY`¢B%žÈ£RD¾.Úv®ª`‹Ð/ìÑ(XEJÁ¼êÙ~Ù ô.¡2®-hj5Îx®Ü'¬Nk£kÌ9 êØ> ª§~G´zxœb*˜›iQ°Ñmš&Æ´nœÓm¶­Ç=?N'› jŸâÏ£&zíàž{>è`sÊ‘:ôTv4ï÷ïæLvðQ£#t¬¬ IDAT)ÊH5…o„uX‘£% ^Z¤Zº- ¼ó€HHFÁß{¢8ûÄuì,êÅ5m^9-oáG¸V³ùüI~ü&qÑÇüÃ7ÿ¸àMŸ}ù€¨\Q‚—©ßE ™7¾U0_k‰mð‰¢€è²õoPÓ!¿N!zaýUîÔ‘±ž„ 2ƒ]úd¼´( ÊŠWv¶TU÷+ÛDÌz¸œ"*˜›iQÒf!Bn莩5´3nœš«ðzÜóãt²Y¾à²Ú¦(£ã¢2çèž{>èèt*!ðÐnfEh Þ?®ßÍ¡ìࣄÛr~Ý®D[‹¸ã‘Q a––0Å•M™ß§DB2 {“{‹£±T‘fÐ÷CîÍtlDyÃÒâ RÏD` º+={nO~•<òè DsŒy¥ÙS1.—sÂ`˜œ" " i3éoÐÛZ8½®\H™•™ŽŽ­D«£èY¿.ѳ>§lÌÍÃnÑ™øF V@òGþ{T÷óIBä Ï¶÷ü8žlþ¥¹¬&¶3›ÝsÏKN%$ŠúÒ`)œþqùnŽe%\šÓL[I“>~QÏ•¤4DsÔcaÓAŸ‰ÈèRѮջ@Èë²l¥½s³/{¤‡­½#¥ËDªèÄrÞûwoõèËD™³gÏÃÊ䟌Y­v /Öù€¨š=›q§ÕšÛùë ¢÷”Y·É”?"zÓ¡1w±@¨êþÒ\ëüö{RkwˆÚmQ5[Ã×þîòºs&ß‹g2±Ä—2l_{~O6™ª‚Ë*l”DEÎÙ=÷¸ð 3*!mèö–Âéwïæ\vðQÂ¥> tè~ú6㧞G*KB°Ò¦k…·h‹ˆDd´x€è=Á!wX pÏý£ç®Êü]Û3¯lÝìÃD9À¦§+Ï<òÈ£ÏØBdKÐL„ÍÒɬB‹` t#¢;-Šf .Dw#(äa ¸DÜA&#ˆ3Böad‰,È‚ïÂ<ù4Oû´u«¿êëܪ{“hÙùÿ^4]u¿O{êÖ½çœ`¿=¤v3°e "¦tFp7UÛi˜#–ˆ‰6Šaaœm€Õ;*3Ö›¦)ÅÞ Z*M)Ì5¥2•ÓÏ#›b9µÔNsÓ=ʶmè·¯(zwNÃ¥À•]ÕnÊ‘oødÃÖzØ–Õ*Ÿ՟‹È™{®Ð-åHˆÄ"z|dê&#;ôSÂçP¡IU†M[ÜçGØ ¢së1Iܧ˜£Q ƒÈ…Œ¶j‘x7€~ûCï?2Ÿ‰w%3½S4ˆnûmy©¿sîÛÆ”ßW­^»ë` D-ªÞ.’"Ç;vo§aš(ÏÖFc®\õ7›_Ö`é¿åKSÊfÕštl–AäÔRê¤PJÐ b+öúˆãÕ†u(#—Ûî=Ù»è®ùöˆO6ìd8sÝ“¢|ûØ1)pæž+tK9òÄïÜé =>2u“‘ú)áS_¤‘4œ“ã>?›ÙeÊrÊëSDÎ2:«*ÍІ»êgÁÄ,°³aGÈfú¬ÖÑ z£™B?·³­ [Æ ªR­›‘E±2bÇŒv†duóy¤/hµ´¬ÊÌôÅîx´¤ê¯)†pÝ:Ç.,ºõ!ƒ&܃ȩ¥v*˜›†èÑK¦"CúÓ8Q¥µOdäÛ#1Ù°h™×}³»ð˜"gî¹r@·”#!ö¡<¹Wèñ‘©›ŒìÐO‰s_s¾ÜˆáÝ„ûüDtn=¦xñVMóI "G­7Ž¢+!ö ¨©#ºs§ÜçGØ ¢sÓ ¢ò&¢ŠÙeȆDò2ÚfÿJxr¡OL“Îœðû_YN’Ý9ê÷Ÿ ]gŸÙžž§s}ì'‚£™O™Ý)ø+úoÑz®?“À3ˆë%:!\Æ2s³’˜¾gÙ‹ìtY»vÕiÍ°îp; ¯pTflÆ(žymÒÇñfÛ3Ó… V+åÉfB©-pSÙ<ƒˆn©Æ6»µ^ªGÙ|kñÄwOþ]–­NXùöГÍ6rUçÚ€¢4ÔqCí;sÏ•º¥< Ù;7¥Ê›^§¯Ðã#Q7)Ù¡ŸÚ˜4> ÜçGØ ¢sÓ "å}¡{:CVØiIË([~‹ZÏ垎*Ñv!Aeçãÿjþñ®j·Ì½¤ý¦}ö2®+=Ô߸ýœrèh6ˆ DlSµLmfÎïÿs(¨ öiŸ¿Ý‘ao«ñK2n2]Ý-`ùz™ß‘‘¡s§|¹šÞþ'u%ü½JøðB~ÓÀÕI6o|e®£ÍöÉ.Ò¤NCž¤¢„ʪ~·ö‚Év³fΩïÞ¥)¥ý7ÉTX 7­VÒj-¨?]^¿AD·´4O´ksA`9ásNCö({y7°ÑºÖ4L,ÒºÅãñ®ñ?¶_uùöØÝÒâÚ}’ݱ3÷\9 [Ê•Kš/õ¡úœ/QSß’ q¾BŽDÝäd‡|J`å4™ŽÏq{ÇÁ ²J[Þ R¦Þªÿ}+bcâdHŸô¼á2Úbª<¯Y³""ïÏ«ŠÅ¹Èœ$þp߀!¨Æß5ƒÈö»¹§¿Ýa‹F3kÚåçW\DÅ"vìþKð£Zps(¨†Úæã£M¡DF—æÛšSôظusõiâ¦Ó±Îªq,_1%Íÿ[6ˆ´_ãµé¬æ«-^zÛ®OM§ã£#Úý¡`ëÒüTª¨ÐOeµD¿t±LÓ·tª>•Ïî—QM­•ÛÃÖÀ•¥é8+e¾W§ÐÇÔ¦c…~ …³]ãI'•Ü©‹jižqíR×|WkH·y”NCö誖S({0«ùªÕůŠètäëU§r¤ÚÃNKËcžv+׳bgî¹rÀi)-!>_"¥:áˆóz|$ê&%;ôSÂ'¡¾—Ôé<œ;ö%£´„¹1ÔÀvRÔ®)±çÜè'x³dô b·Mo»–Fä0þ#æ‹ÚüãÿlvAÕ~2žÕ×f(¦¸§rÑXzGY-õ[ëV*q0[ú-½¢ß3óºC—W¦³Üž@[ùBm&.+ôKÖrVÖcQ--¼gm‹!ÓÐ=š8-Ý=¬{/Í¥Í9ìTŽT{xãÃi)£K¡ã†Z™ Ë—NKi ÑÞ6 FæWÈñ‘¨›œìO‰G´$F÷?¼Þ¡d”–27U#E¯öÅK—j\äF?Á›$£lÌbÖ•”e-ŸŒ€˜²Ï„ "-T™É»õ÷†ÛŸ~ësa±¢;ùÿCw”ރȭA¤-6wD "_¢%*º <]>JÖ™ª+šs¥NÙû÷¥|ªÖ¡„v¢¸¤êMk øNéÛÓX¸ohû$6Í ¢ZZ0W† Aœ¢ÙŒsïp{´¾­°ئŸº[Õ¼cÓI•T[Z»£ß¡©ö8M6TK}ù3:×Ç’¢„s¢!Ü–R’_oy_œs“›¼A$'£ f° Û\èPD|Iø|kìÛV@Ø bñZýG6OàñÙ…{_½!]  ¢7ºe¦‹gçXRœ¹[™#PB å”åc 2 ÝM-Û¯ší‹&v÷ 9: ôv7õ/ÚUùdcódÕ› ËÕÍ-ߤc‰–æk~r¡ùBãî×"if«»úw¬¶§¤£T Ç6àÜ[o9Riè–²ÕŠä¦)4| ©éìnè^Ø•qÅf|¤ë&%;ôS"ÁÆ>?ÜÜõc ýõŸb;‹„Œ¶SvÏlû¡¦ÕõW©¬•w2¬7|{ÿ×ûÖ5 ów×^üë?ÏîHöÚÏï^|³S"RêL}÷ŒlG?xÀAEi5LÌY*ÎÊçã†ýW¾Ý¥¾rÔBJtFõ; Gè³·: (Qo™)À£Ð2z<¦>P è!€ö‘}:~ð²8DW”°÷$g/† x\»ÙÊhnZä@`‹pš}eÇ‹¾·6+ò×#Ö€¹Ÿ—\«j¢ÇPïBÊh %àç °uh*J*‡~ð,úÓ¼nÝ.w€ Õþ¹`¡=÷c¤€‡¡d4§ÚC¡&ôÀBc6›½¯fž‚ùŒKLçƘ;•¬—¶zÕ°h­ ð,¤Œ&n¨¯ _Z(‡èüž¯¾~¿g^óƒS÷7Tm2˜=ØÊ<æ ôbœ€'Œ@Å°6z¢ïóJÍ& 5¸€Q5ˆ £P1dn–BDcÛ=7ÙLbŒ€· "È(T+ÕýÍ“ÝUõÞò•{»c¢»çË€wŒI2¿ý¶4‡ƒÁ`•îï*õïÆ;ö+ʘ5]æz:ªéŸX»p(еŒd}ïEƒ¨›iÍFM]¶¹%ÓÙ`”žºDj°æ~k0Øᥡ÷Tï@ª,ä’ªöêþœ9sÿû9¿ÆŸ?üE$á?~?–OwÌîêC–!T/ØÚ$U=Ѩû»QýÛ°`½Z§(qó«Uboé…L5‰v‰y]Õ[—•Þ±o›¾Dƒ¨Z-9ârpœ§.2·D#9u‘iÖÕ£ÍjiÍ^“™Þñ4•$U‰ÿ³wu¡Q$[¸é¤ F'?ÎdÂæ÷Îd&×dÆt3'Ä€# þ7.(jD"Œ1aƒÁ}ˆF\ðATDâ²8,È"¨ ëCȃÈa äý¾î“øp.·NÏtwuOUwõä×l—tºª«k¾9sÎW§NUa“¬Û1(/>#òðîï¬éOÑÑŸ·!"Ä‘Uçi0?4ÎR¡@Býã.Ýe ŒÖÞŸ9Œ*¾FB$ùÕßrVuv]ìÖÎ1]ó™ !Ê’(Vߥ]§< ³»e/i•læØùç«,§¹Õ—½ûóÁ_³<ê¯W—^¡¢·eAˆ„q"Dž)äEhÊ<Á5 4(Ýž‘”®Ã¸¥\¼Ö„²÷~¥„Hâ窮‹Ùšëb=ÝBƒ+»Oy @g—Ë^Ò*%_s~gp<õó–µß9 ]¸½ œèå®çžøý6\_¸_þY–ÏB$D"Bt¡Þ2„Ìaå¥j.Í]߃‰ûÓü¦¨¶¹½ëLðk%DüÂ㺠qù[(CZòîÂŒ÷èìù ´j¨ «Í¹ç™¼ö“vý+DužñŸŒ•àÿ§õ¨œ©½â÷¯·[·*¾&´jS´ªßÏë@—j`º·Éx_å3ÿu®wßvÆì7\úI„HˆB´®›6P£ôÀÔò›˜Á¦²bÚ! §Ò“5¸£w5˜ªÏR%0‡`ÙŠUs†Š;ÒÎ%KÊfÅÞ–®°¾”S“5!³¢JõW]0uVž!Q£šY¢ÔdGõN„¨Á4—$àZÅÎè`WÓ‰_–>6ì‘”®š&Ë÷1Dq6¬Ö²ÖßR?ææ%çÖl\—í34D}–è$`pŒ[÷ݬ¹‡íDçsŽ®§.5ïˆù¼¥XŸ°Ë  qŒÑ¤Æ£²¸%²‹ ¨¸¹AÇNÓÆ<]ˆoÜ"´ŠS«¦qŸƒy¡ i`¤ÛufÚØ{ú?àzpLÙ'¯ŸŸ¢±ª/pñJ"!‚Ù¢‘¤1Z,#g HYÅ,gŠï] ¹tIw„h]+€Lãõj=fš1¨ÿwZ ÙÓl³ä X]ms¤‘¨‘YR`ßX„¨Ѥ6|ô@È@ »¦´ª i¹ÑþvÊÈþJ€ü—‰NöÌd«Uªã`´¦º.=ÊÕSaXoƒë’0{ v›0äÞôÓÕš{ìí½D¦­âˆN\›WÕHiñQ·ÄÜÜ"ª&BQ[®«ž{L#´ª­j¢…»¥âAÔxz[,÷g°¹ô‡·U?ª§u|º¤îUýê¾y;¢³²Üw.!"Ä­ ©&Q18ã¦5 v¡Šÿ] n Q›nŠÀR–ÓÚ…9~dŠµ´°œµd®Âÿ¿‹e³gƒ}£ÚuÓ¦à “sŠýzÉ8!Rã]ƹ¼µ¬€¬ëbalg“ßšêºõ¢ïò×Ko¹ëª2%ÀÖºÚwÚÕšû6®¥”:q-ǤJ(‰Ü‰*n;Ü\"º&ÂlöÉø5£bç ´ŠS«ª¬‡iA¢-·Ùž………³/úààŽÿðÔWnÁ¢ûÇÆQfäVF¯ñ×’ DB„h$Å*¹Ÿùô ™‚YFZ)³YˆrÊÛL¹œ„ˆ°²ŽA57ðˆ¶,vÆ—O©±,V‰5r5¡ï½]xßh†VÁÄ«šP=Ò“-æ0óÎè'¹‘ÏÄïÂTp­èd]WÔS°ë"[S]—‘5bn{]×P’½‡ÝlßänÍ=æ¨AŽ¦ t⚪@¼ï;í¬ë¸ùìpsMˆèšXGŽ@¾á[€'´ŠS«`1É£±ÙJŽØ¼yÎwlÇU\÷È#øåçwêfú^×Òõ>}kGAˆ„±!D˜'4*¤¡ôæ›ÈÚ pnü¢€i›vKˆˆ$¨º\™"D&h-3@Ä,Y´,¾9¯OAÞ7š¡µ®ÇkÒ3ô&Ú^êýþ‚iÒuAˆ„1ÑDÄ yÚÈY• ä%=…"µœ¯êAÔl#{ÒQM”„Í–ßl¿4ãìgî…Í,ÈÕª…¸¤6Ø7š¡­!g0°Ác=ÎFÆß¹ÑcOYDò\Wl®+bv]S¯V³Í®«„ ™cö^Ù"ï]s¿¢®kO;äËFHBT¡kÓ=MÏf5ÜÚlqsKˆšØ@…ª8·hZÅ©Uï=¼6Û³¼¼|öÍKõøú7ëÿ¤²§O¹ÿ.¿$@û„¯“!"Ä Dô¤êb„3D éšžkE¬\kŠTÒm’=éˆRKT™>ÔßYm,¯H{ý@¥Rêû™%IüÉHG·¢§xÜ7ª¡ôÔCV°™Ü?2ÅEˆö{¸9®·A'ëºf\».jk]–@c·® ü¿–‹1Hñj£ÛsîÏewÆŒwñ¡×Ryîêóc$! Ûâæ–14±’Lõïä\ *´ŠS«`Æûàšî·¯_@ÑÇŠȦ“Ì༵ìåÍ>Y~, B$Dˆ#! ›ÖÕf-­9»Qäß4wÔ¸Ôâ¸Ñ<‹t /&©›¶2³X% &&IÓ ßHl¤o Cë§LO6éT)di#c%­‡¶b–4(:ªë H.]£5p]i¢ZȲd{[\×·zl ÑÓÜèâúœûî&mßÎbtâZö]ˆ„hÜ7·„ˆ¥‰­Æ–@1X ʵ\hŸVÍïøAxžÈ:àT N2û‹H7zˆiTÖj¯ÉòÀUAˆ„q$DÓçÏŸ7/+ëÂw¦­>Ê=$ç%Daé(c˜úÚì!ÁòGóé¦)Â873Ù¬’!Ëœƒ$AÛJá}û?{çÕ¶Çñarƒ©ã8“h¦Ì¨“Ùä6óÏ@\cÀ²[0"dBRǃtÀƉ¥pº`÷\ƒ|$®Ä¡‘78Á%P¸ç!zˆH‚^Îû…žîÓå>ß½Öž?ûßÚ{í={ÆÔïç!uöì½×üæ×ú}÷Z¿µ~¬Žö8SÒLMLñ ¢|·}"Ÿnnºêl†.ÖÕ´=”Ÿ,cèÊøs °'T©ÊVòÆAûÀ£lyŒ®UkëØDz»ÙD,O!Ò~îjFŒO’msF¸>&¼ŠÏ«v^y|/S^LHųŠ¿ÿ)ýMgÚ¶¤_ YHDXw5ƒ,[NOðß*`\æGÛ¡'yDG ­Qp¯O^~ò¼¨"OPóx+ ¹!#Gm3!Þ–*0‘‹žª¢Y>A”‘âP«/ûËXáñŸm'¡‹yµ¸Æͺ5Úe]t©Š¬ ¢ÜÎxÒŽz*øêi¹üU0di Adn7·o"ó´ôß&¾ ¯âóªž2#|æ©Ý±àULŒIq¥‡äõ·^º'Ĉ IDATï“ä‘þ:G~^BTD¶é¨Æ†lÜŠ3©zCt-#…ÙŒRi‘CD ”éµù" NÚÆîhÏèªFæ8-¨«ç&9ןÈ~¤ UBŒ‰u„.öÕâšÒtGm àr„.2Ö3›µÁ0¯/Ú¬s¯x&_¡5Yƒ+ëX"s»¹&ˆ<#ù¦±*ÞϯâòªVZUwgyÀSݵæ­z„èiV=ðòQ@ÙD-R\h¨´s« {Ù½r&­ŽCtÜ$Úª°9‰²Ósæbæ2ö­¬Ý]•¿¯“¶±;Ú&ú G4yšS²%zUëäL¬ã t±¯¦Ý2¡[SŽÐEv/ ÛK%XûO1ckͽšÕ¨"k‡i Adn7÷QϨ0z«íÑóæUþ¯âñªE© Š;Ü}Ò̆ó‚îTçCvÊ ‚—Q…¤nFWíÝ+j8guG½Y±­ »«?¯Úê—ôjùÎÙ¸è¢é‘9MÏp~]‹“¶±;Z²˜7Ê AŠ‹ Þ§Õá2£ª¼Zë8]ì«Å5•½õßoYB×Ýùp1ÌúÞv³±æ^;zPWPöLëX"s»¹&ˆ¦#B«ýR£ð*¯ h6OضxFˆèb1Ú¯^ïåD¸&ˆJE¸Ê潆;zE^ŠžèèUI˜!劗+äÁÍ00ÔŒÅò!ÌIÛòcn8xVÞ(ð ¢všêP¡Þ ÊÄ:Bûj4t¾P²xX²ÐehQ‚/MÔd¶¼®v×Ük8^ØW™i+Adj7·Ñ¢Ÿ«\¼ÊW…˜ã½eä¿’€¹¨~©æÓ›O5úq¤wù¿–.gG•ÄïUœóz_‘Ÿ7<@ÙD‡È3òˆÝ{Ý4Þ*:­Ìí×xDÇQU6N­ªs&+´j û8摘ªX@£¢ïtÐ6™Y£ƒûdžÀ°øÈ-Uæè,· Ú’ V¬ö3³ŽýО ]…t»‚v£WC×,3eƒd³ IjÛÏ]Fê‘Ý5÷j_6Ó:V‚ÈÔnn ¢z;µLàU¶¼ªÍxÃÆ++ýåë½’Í¿¨^ºñ’,Å׈š'^ïO—”"Ê(«Ìp$ˆ†¤ÏÈ´í{­“ ôÝ I¨LfuÊæ)GtL+*¨ùî©÷D©'óM‰Bz‚8ay„< ·æVäÇý “8h›Ì£1ˆE2D4_x›ï`@¹skx›nADºe¦N̬c?t±¯—ë¬gÍÓÔïüçfè:ÀÕ¹3(!?£ ©ö×ÜW()*I xŸ…u¬‘©ÝÜDdìóøºý^^eéUdP7¢_c;"í%ì¯+‹uüõ£¤m~U}¥Ó^_Õg=#u>²Eî_K"êò. ¢7éžS‘â}²îѽZO IVsêúš¤ 8DG?yS/éŽ|}I©/VuÎstGáá@Æ#VZug¬ÇІù wÚ딪ƒ¶4Ö`;íñ}ëù`ÚG.0:|}“©îxî/Ô$ Ó‰á&I¬ùâÒWäDä>Mšås¦Ö±])ÝÞì«É¡K˜Ý–~?lŒRk1׊täg Ì,š_cï¶`€ý5÷}Bé9±åö QÌ'­¬c)ˆÌìfÇ:¦Sf¤=‘±hwwwlê|ûmÞ ¯²ôªÙeÞ“.aÁû—Þ'O¡ÅǾðŽŒ]þ¤~ƒ\Ôþî4¯÷·77<5—.zõ³lD8Dqƒ ¹& þ¤YQ«R7òûí‡yDÏ×æ»I´Ü§êœÅD¶MáýqÆúÈæÝ]&Ý•¦;¶Ô.Ó6zÅpl9ÖT¤ˆŽ‡U (¢‰´|ŸyCò>· ¥èì×îAlfVè $æ“Ýc£´]ÁºÖµåÙDÜâjÄB$çu¬‹¢ÖW?^›ŒŽÉf6¤cS½¬Î1³¨,WcÏ2fÑþš{ùáîÚdš~ÒîE+[[¢óÆvs`SO¬+ÿ“ŽžæL$‡WYzU—`”žUIÏ)ábü—Tïœ}òê­œý“6ú}ùšæÕ…W´ÊýGù¬";.ˆ|QU²Nþ±ª£pŽT'èðµN©Mù”³Ç3¬ g8Žˆ'"ùW#§2Eµ-ûœ.œ¨èhQ•Ùy¥…÷'7lä~œ¡§¨7j1³+t è¿ÓëW“ü r»¿;p­šãjsú#Vç˜Z”ØUHõÌØ*KYU·«cÃÒÖV‚ÈØn¬c扙ñ¤ú”Sx•+^Ez‚¨>q^'UºþúƒzEØÇ/Ú7<¦¯ër„–^Núð;.ˆèuL߈MÙ^)ÚäóLð‰ŽÆì)Ý!ÍyP "ÏĹn.¸ÜÜÏu$Ð&k¥p[ è¶ÉÁh8[ª)’VvbK2˜Û*oòªâÀæ-¨.´‹tÝ=§ ºJo¡Mäd[Ç~èb^-NÓ22ÇÆ䲧“ž«9],‹zä?aî0´& vg5:þ\£‚ó㶶D½ÆvsW­¶J¶ŠÎ÷J$Ú’Ô¿àUnx•HÛˆÁÁÎîöñ½¾v.'lþóò™~E©×ê=«ÏªÙúN>ëÅkÆ¥!ˆp„Hðå±qæ¬ršHÉ•Æ#3Wmµb½êHËstºº³'Ô³r(Åd±ª'4PŸq¥mrçueåÈÍÆú÷Ú×S+=M-•ºŒ__OÓÀªÏïÈÜ:®^Í |ep<–Eëù Î8§úàôÍÐt}¿X¬­ãÙv¥¶ÉXë(—ÈÔ©Gð*7¼ª¥{ÛO4m–¸½K¶õõóë‡Æ»B.=~÷xÉðÈ¥_¶>ËùG€oué9;\ ;W¹k8û­Ïõ-mœï„V•ìOÖζ½ê$5ý° (:#ÊŒT\`q4[Ž‚HA¿®tÞqAˆøà.E{Õ…¨dÈXP$db~^„€»>Õ¼{š[&AôgÝ&S‚Ðo)Ú«2óvRø€É$™™Çs*pL«è/@iÑô÷êâdÀ™Wù´ÌO{Dظ)zlµ·L‚ˆT[VŒÅfH ¶v¸K‘^•‘ôP° ö¸Bc:¾‹Y3à Õ¤¢Jkjµ¸L‚ˆî˜È-ÏŒ“muÒHß+Ò«Ä»RïUø†˜©Kwµ’]ûvS³Ë%ˆh¡˜Èòᓧÿ8¼Lw!òÿ N³W½ À>]Ùöoîªf—KyVÔ;NõÃgö¬WØ÷¡k~hw5»l‚È“º—/‰X…Çìa¯°Élœî \Øm; …FÊu³ª#3=$íq¯ðM"nl¯g`°o©>#õÆ…ºÚ9Ÿù;×Ú`0™–Ž)”wN¯äKÛ%ðQØ÷lÆãÆ6V+®¯Ã@,zÂù2ã1«°$½§£\‚ÁÙ1m’/ÅKà£`÷ .,,üP²s~ør©6{““u2þt×áv£ÏÇa\ÿjêÇd„ö£ÑvÛe#[¤ÛõîùAúú`>ÖsDü:’¬v(‡ ²ã£¦dz¥ÿÓ=0~Éù÷Y=[ºw=õz½ßÙ¼²öœõM.æ^óDzãÛŸoäþþßÙ³?ã{{…ó‚‚HG@{|Ó/ÝÚv±¹¡pRô½;þ()©[â·g‰í¦›—[–LãJÝÞ, r¹Õ;O•d‹°¸>ii¾S;‚ÈŽZŒ/ôJ½G3ºÓRó/¯ž¯Ú7ýŸ½« ‰#ÙÂMk×eü‰ãHLÔuœqãïĉ£Ž‚‰ ‚æOP„h !¹ Á£®ìUp/¸ùYˆp²IÁ„I ,$…ÍCÈÃ%DÁ÷À>å)äaŸnþ­î©ê®ž™Ôyqºª«êTõñœ¯OSýç²w@”ÖfÕ:È/ZñgíúŸKêõY^>.ž‹ ‚DUÙ•Z5”Ö[Ë&ÂêÍJøò²€i·ìÄ-‘T‘ÃÞzñ4㼎Ž,Qn¹Þ ˆ×œþ:fº-ÏÔ ò$£.äÈM }ºÑË[²g@”ÞæO* zŠ~~þdP–o«›Æ/A‚  „BÿžÜjR½>ç­znU!4gÝàZ€ûf÷§¤Hw8݇=ŒëBd'®D{N nžç ïÍY¢öƒ ¾¯f¦ÛñL="O2êF‘YÜÛY¡P·—î_³Òc PîØîù,Ë'½¢ô6ÏqÏ_Ìž«ÿšx¼›øïO˲ü#‘ ÂDš‹œ.‡|“Ë69P†Õ…ÿz5—j¿o@(Ñ îáÎ`Õ¹¸âJ0§7äå…9s@”c®w0‰™æ…rêÔíD¨êŒÐ¨ù¤sC²üØVvG–ßO{D”6a@ôÁ~ß*ÆMJäõ¦,Õþ ‘ ÂD®º ‘ÕÃÅü¼¶4š82jü^ÇMÚxGK ÔX²#C¿\ÜïÒœmÛˆrÌõ&1Óœ"O2êN»âXQ¤„JÍ#ÝKß1»øL–ï½ðˆhm`sîªýƧú=7eyZ"A… ˆ”Í°Y¢¶TÙ+Cˆ/yÃËžÙÏøæÚ¹ë¹5¸ðL¿Ý~@´þÕÀ1Óœ"O2ÊAàqj*5ô@–_½´½•å÷‘GÞ­ d³ßøQ–é?àæÂA$¨ä<ϵSí—$?B5£¬&p“ÎÁ<½¡…ˆDbÕ=h[]âÙï÷/bHÖÓ‡Ëë!kœ/¶w«k+dIrKúý~ÒU‚¯“F Ús)ØÚo;@éò™„ý:ò͇ÆÐh÷™<Õ:­· ^@Dç ÓXuG ëÒ±qÉ×ô61¿ÿ¤ UX8ðí]®ùàÎê{ë“ûKµ‘RÎã8¯5“·}"×ÓPg ÷[»Há’SŽ&oæÓ;1Y4ÓUW»;Å[“7IdÈ®ÍôÔözDN2ÊGÙUíÄÒ6Í6Z£cB×æœ>`ÐbËy¿‹îI="j›Û²<(QѦòã/e«N8ˆ6 º¹c„¢rPâeýÀê`7éäÄoè sWQ¹‘ø_fÄöI[JBÕJFÛwf£×õÔÿ¹zÓ×Rfj5ýRj@;z¥*jµÿÖM5XsíP%Ïtèô—u&l½-ð¢)*o •ë9€ë¦wášÚf¹X’®DãÚz7¹ÍG‘ƒ AëH}Îã°×Ú‘·°Þ}«åvæL‚A·ÜÚcßò¥]ÞôÑšŒÃy‚­“<5y“DÖºIc4¶¦¾‘f8‘³Œ2åÀAv_x|ÍâàÇm¡iŒdþ¶”|?¤@–Ç^½Ífzt’uËìÂA$¨ÐQ ¾1+ò#”¸Ìè ÒÆøÆ:Dß] [ÿûLã¶w¿ZÖ°¸O³È†µëž#Ú„ÇùÌÐáîr³QC?±"•é½q¢(•70'mDW7$®mT£V-•˜¬¹ÍÓ±FûH}Îã°×Ú‘7 bÎ4A+dÆbwbaÈ›ê½Y°TvqÔäKÙëæ7ÑME¬‡9Ê([ز£S+‚·˜4÷•r·ˆ.Ê5--ë‹_gI’nyDô6ôÝ1’Veù“²E÷ñ…ƒHP"HÄ ›v:®›¬Í;féák );pvªS¼@à ³#ð+Þo¢–¹xx´}õ™Y!6çJ”—صh[´Yù‘â2CGðÍUá@W¸B1»Ú»ìù l\«ZtêwŸ ‹ƒ~µØ=hÕzs=fx ò†íà€²<+¦fp)y’4šˆØ3õÛ¼“€¹Ë!]Þ€Ö•¯zõ)‘2£Å]³î5y“DöºÇ«Á¯Ì§VõåeTí$×,Ù!Ühxü`š+( ˆM|Ÿ.×ôŸAY~fYÕù!Yþ¢¡^@ÄjóÉ<ÚŠžN~\}ú\S?Êòòßâ1*\@Ô úÌ¥O˜/ÂX¡¶ßZð^¨/¬Vµ?b"eLM€%Š¦Kà©Ð3o7Ó‡ÝÌЖ^þœ br9 ¢òÖ‹IB¹ö›¢Ã•k§6Êû¢ÞÃ|€¹NmcÊ7L"cæ8™ÏÇ ’°Åšž‡w¶-4–ƒ„*o˜N(A4Ëͬɗ$²×í0 ¥ ÝÉ–- r’k–ìÔDu †B×æ˜~“eù‰¥dZ–çáÇ? b´9‡;8ýèý«Á[/žé÷·µ“«‡VÁA4-ž‚ ÂD•køÂŒ”Ü‹U#ñ.ïei@Î//EÓ?’F¢EôèñÕ:ŠÄµƒä+,;׫jöñ˜¡NÃ\‚¿°'z€ ¬u'óùxDÕ–°ê=Þ¿QJÈ›æk¡o¹±jò&‰ìuƒÿÀƒFÍTv€ÈQ®²c QJyRhÚœÓcý”DàpiõDi~@Äjs•ünÇòmsœŸ ds^8ˆ* :86Ö_Y\«Dˆ´Ö!9Bfa}¾ÎP€íœ_âè4v¼ìÆ)}£¿õþK7[4_Óã´l3DhsMJf ˆØd ˆ¨¼E°ª!Öš-tƒÆµc0jí>/óÙKâØÝD`;{œÌçã&HŸPØÃwMÓåM’6`“ö.Õʪɗ$²×mc–ª+Fű쑣\3d‡$×^Z5tã’·dÁü á²áDÌ6W_Y>eölÕÅŸîÝ|$D‚ ´r™Ô &Ôñcµ›®g!Þ¶ñßHÐÜ®oŠ]FÀ*DÁˆ6´æ†ŸÓÅ^·d~KÒYc ÂÅ ÙÊ°0‘1 bs1 ¢òfÏák²ž=@åÚ±M ÝMç0ŸÈÈå}„†=Næóñˆ¤6‚¹Þ áÒä¥."@zÓAĬɗ$²×-fMÝ|— r”ëwïküOµš€Dýž˜N_dyhÞ# b·¹:ýâ—÷žþvtZq =[²µ"AˆÖŽ™ï¾NÒ¯(ô´ »r²‡s¤~ÄmÔF¢ ÃÜÐ}L º¯iÃf.†9ÌP Q¶Z%€ˆÍA¦€ˆÎ[-¹_…©È–ÅOãÚ±M =Þa>õäiÕÄ{œÌçã•@a’cKÖAÞ”S&ç¨3kò%‰ìuƒ'BúnG²DŽr]Ñ?ç(‰3ó@Ç—eù!Yð†-¿JÞW›ùkx¨4oЭèꇋâa*H@TEf›#Ôx…¸ö“ñÖ*-¶"V¬5…*–(¹ï`´¬½¡¼"ŽH@¤†VÀi‘~ J`^H×ý;#4ÖÙ µSk2Dl2DtÞÀð«L Ú\4®Û€Q»âi>•dÐo”°‰ìq2ŸW@hB«nF(ÁyÄ8MÞT6K©÷3kò%‰ìu«³}¡u8+@ä(× Ù±ìåíjuûéšr¼´IKƒD<' âms|D«i¢Uéå[ØY{|_<Aˆ:b˜¢¶Ôñ°%YÕÛÖ£i#À9Ëí/µœqDÒØz‚r]~êÐuÃk€(‚ÍA‚ìÀ‡ âfh%W€ÈƒL·@úz–§@ãÚ±Må(r®ù´šq>1È)ô¹Ž“ù|<¢ÓFXu ÑÃÜxåM(=ÈU“7Id¯[‘ípî²l‘³\ÓeÇJÿö¡V·.b$2D~kl_ïñ¶‰pg¨‡€ÈîmoÖKÖ`E7S+Á÷|î 2pÄÕøDW ÆMLlLJ¾!v·ÌU ˆä9¨l@$¦•ÇDÊ4’FMYž 13â±L¹ü8¥—§„€hÒ^·s!êµ­¨¤Â{Ö7ÙÖ¤ÊWjUåç­àIôÉXY‘²hDmîR£:DÍw%7¥¤yjýþ¿…DÆ?sóÜþ–Ýò¨«€è¸%rA'ÕN«ù‰6°â%ñÓ9 ÍصöýÚ®€iò=BÎ@)ÛAdÜuD¿rQPo‘=RaZcÞØîVëž=ôPW<—ûýktD³V@dߧ/º¾|k’푸§ß Íü ÏAe¢OÅùúÞž¹V¥‘5jŠòì‘5±Òã”^y@$¿>b4Û¸m·hm˜%­oFv†V³gÔ%}¥V5Q~Þ®Y¯ »—³¹«ª^kDÝÞ‹cžYáV[9×O‡B/T¼ÁkÆØeñ˜íñå@iÖ= ¹¶M[Z_•èç\ôÜ9[ ¨—€h¦Åus•·Þ»øPÄ"'E÷ô ŽÝзL½€HŒ äæAoqôˆA²©õ–kõ¨©ß ½lgPy*-ˆ®ù|FÃ;Û ¿\«ÒÈ5EyD¯Áa¯á9Òã”^y@$¿>7ÆL³£E§â*ë›ýÄó¦d~€QbÖ÷•ZÕDùyñêXn¦{g¹»Ý«êµ@$º«bÅ3OÏÆÌX÷ÚŠ³à¿0Dïìbï4ÓÜwlËñ™ð„îu‰AÕöfj×ï„BrUPw‘½uQ»ßPéñÝwàªËŒÎ±š76%s+7ÑðPʺãjDÆM±`J‡8êžVç°RÑ<˜)1.tæ¢õ­|L»-ÁXÝR†h •æ ²‘1$Š05qqÖÈ4 >jqo!ákEi£&/ØÝŒMÇúÏý¡'¿Ûô8¥—Ǻl’Õ×çšBél¬®o‚BcNO´eŒDS[W²uØÿ•ZÕDùy¢£V°>~Ìúó-/ RÕkÿ€¨Ësâk‘õ(ÞWÊe+vQG ^Ñ_ì€è•fš»w¿[ÝI××ì„Ï‹;ˆÄ´û—â×OC¡ïÂ\Ô_@î7ý7È<î±H\“α~_¸á—M<ñ0Çî͈Ûæâ^@´zÎÞk$Ý—¶WÇiÎwOÚù‰þCìédÎMh7CöS3Ú¿Øi7ŸøFžƒÊDÆ©höGcÙŸîÂ;×ò4ÒFMQž†¨óRO½¿êwœ’ÊÓ–œO LOÙ¿moÜ[œK×ÚŽ IDAT»>Cöç¤4O¶¬¾Ù?IÓ•¹aÿWjV¥×t6=N¿xCêÓ2"E=ðˆúL¯áf;ìü2¿R¾±"’Ÿ Ñy; :¯Ù+PŸxþŸìHë_wÙÓÌþôðë_ïä7Dê) Ê~­íªR@Ž»(ä~Ûÿ˜æ™ð>­€ÈH‰m¤Šu|û|Ý›ÿ¸Þ™CúÍÐH:ŸP# ’ç Â‘ÑwêC#×Ò4òFMZžÌ©”ûbõ;NIå-®U5¯OñyQÔBI}ËšpïԬ&J¯éxþý©'{Ê ˆõÚ7 eŒ÷<°?k†›m…ˆ4žˆì É\«[«Ò|ëšyöر¤è ZÊþ3·uG~C4 ®"ûkmË'Õ ˆì‡ýÅ7Ìýë7ôŽ°=,S' ²Ú‡îl ívBIt®\¼3lÌê7CFfb}‹«XZïæ-ËA…"#Ñ•jÏ-Œxö£‚´’\ËÒ¨5ïò¬D¬ÏŽÏ³$»Sö;F}ŽSRyü"Åõs›¢ú ®w}Ëõ·ü’ /ÚŽh½R«š(­«W[ìßF&ö¼û²"yyü¢„õ÷iNz¼Ðkj®‰ kâ V8p@$vr ¸­™&üðüéõhçå×"CoÝLŸ¿#ÞÀœ{ü?Ká RÎ=òYÿÙx k2pŸúBã`Çè± gö¸ÔðQð‚…Ï,¸²ÏëòsPi3˃]‡v|$ת4úåcWzó›1dÄŽ-_–{œ’ÒÈK*zEŽù u}k:4Ø1¸¼{Fÿ•šÕDÙy  vŽ®Tl GiõºG÷,ôé\å¾¹Énõê«ÛÞùóµ?ýëÙ’²VýøïîâÜ¥x`}“îàÓŒ¸€´ç,›ê¦×£XÔØn+tn™å<€–C1ÓXà䜀b÷Š= sÕ‰f<ÿÏëNYÓ œ„ÓW0¥|»ÄA7èÁ~+!ê‘ÏîX®ìZh™ûæ'Hñ "?^ yÝiÄ·¯ [ˆ¥¶ÀA·É¡Fa ÑÖ)§‘ùÊÜïŒ0?DŠ_€ÉØôQlvH»é›TòËböa _ˆýóüM–ÇGº SˆŒúý „hóo"a~6!D¢ŠbC«ömÈÃk-Ft8ÿQ—Z¥êµºmÿ!ªümB$ÌOB`*D—m½aÕŸ¼LÎS&¾è>ŠÍ9íÐ…hóëñi[+Q#êqÜ#ùæ?Iˆ|eîwç(¼Hñ ‹Ü’¢ù3 Dº¼›÷äC":;‘§F´~=þ“„ÈWæþH‚‰¿ !!jžoÔOžì9'—·ßÞÿ\éMŒuw4Á]my BÄö1ÝãØÿ¹±õ&Þ´üÝ?9tsýSý~;áMˆbê#yõ~ŽHU#Â#›[2ÍËzvÝ,D–ϪÖË“<¿¨×ïì„.D¢He™³ÝÇ! ¶™#¡¯o¼FºÞ´iɦÉeS×ßÔ·² —ßQi~l"µùäÌÉ%ŽŸ "ˆ Åût‚“^Y3×µ…ÓŠ1ƒ}eÛÔïÝœy NÉ¡|¿»ùØ»»J+‚Y÷Íz‹ÞßJ÷âünãÉè¹X,µY£{\µz¢ØyÕóé+ÓÓ=°¶•Ѓ•O›CˆRä­ãCw òýlTš4óð-L!²‹Ô)s‚«#Ë‚(s±ØâÀ’n%%k'E3µ÷ÀÎoXoºùŽ ò#Št¤Æ!®Xú‘>Œ?3|!€¨ Ñ^^çVîᇠg«¦ŠR=Œ[v¢¸Ý nCˆV†Üèü‚¹c‡Üihž„hÙ¼×HåB´5-ø¾!RŸ4o%}šÙG*ÏœðêH² ÌœzZši*%k‡\·þâÕtS'áâ;*È0Òòß™rï\YŽ†_ˆ†ítLe£xal¹Ð-%å,!º7×ÎÊ7S)®Ä‹ŠûU ÍB” ¯º~#• Q}&'!JXAÿ’ "•fN|uÄYgîÁ¦©”¬rݺWü¦á‚ó¹y¢%«V7‰çU§}F;¬ BÑ¢fÅR7Š“1È;Ö[¥P„è_«\øR<ºã·%< Ñ.yÕö©LˆuÏBÄ$†#— EˆD‘Ê2'¾:â,ˆ3·­ˆ„HÔNÊf‡ó¹y¢X‹˜èªñÉ7d[ƒ»ÕÇVô„@´„h“݆ÐVv®Ø˜ÓSZ{{/™Nš{ôØVf é0¨e&8”ïïôS´@cû¬ÐáEldJ®;xL› !)Ŭg"Mþ’¯xTûȆ÷HÇ÷„ê×ÞݬMjt.3Њn…hl{î^´ªÝÃK‚"Q¤²Ì‰¯Ž0 ’ÌQOi]ÄwOhÎs7O‹ª¬CˆJ•þàŽ6WJ9ž› ?âHï-ùÉX'"6i¯×#„"%D«äügzârÁ—rV“.¯‡Ê ¿cÍÏ”fz˦÷Úôö’{B+aœ+Åä© +¯•¿?ílz¢CRÛJ«óE‹íÍ }|Vú_RË;.…èõÅð”.:°Ð·y¼­w!ÒŒj?š ‘$Raædûˆ² ÎÜ9ÚŒñ2Òz±éÐÎDˆ:$[ËÎïâ±Í0ÒfÍ4¬z¡8³T ë„"%D ÓbΗ¤ô´¦Ëüò;®†!DtÞO:e¾¹O!>r/DÍø ÄO2ó©mÁ%óì6*:yåRˆ.§¦µ@bÎ)DVÖ"fN¶ ’Ì]ÿ?Ñ güâSÂv˜µ’ü¥èÇ\ÄãMˆØ覬i$˜é’7?Öôá=¦Ý@¤„H­š]€”ïÒù¿Fþ._ä „è-yëÔxMÆx”øRÜò¼0cµVKOÆ·çŒÔ®à&‰k•'Š°åRˆxH£Õ„H©(sÒ}Ydî˜Ï3½™÷á&D‡üÝRú¼V§x< QBçß%']´>Ħ‰… bBDGµL‹ùB^¯p·ŠíD¨BD[ün¼¾!¯ßð¥øܳñCiŸæÔ®àÆÍïìø¢Áì`ô`„H©(sÒ}Ydîšü—-å³ÂuɈۡ×íÙè…"½v嘋x< íÜÓùû¨=¬T Q"zÇàª5®e÷–N·asªuí>žU,%q~bXu¶Å£=gçŽÔ®àÒ£m™¯†;!ZXY{ô»ÚsXB$‹T”9é>‚,H2·Åä¢=I»í¤,óá§×Í)¯BôÄeèšë½‚@„…hÓ¶¬[å¢Ú^ Kˆ¦·F˜/dì7z¢vaþHí î­¥Ž\ ÑÂבd¹ïB”?˜ B$T9é>‚,H2÷“ßœiiß¡zÝ^l®›S<^…H-O‡U“Ú9BQ¢m±aãBšÜÖR/Š©Ü|¤Ù7ª–ž…¨@¤v·a¹‹tçNˆêUéúMÁL»—F*Èœtû,È2wDzqªã™Zj]çf±‹Û¡×mÓæº9ÅãUˆØ(ïq×á!ùßm BQ¢Œ¼Ø|âžÌ> CˆöLkIáçAW=7BMåíî.]oF_Ÿ?R»‚;°¬^Óuõ莇-ƒ¢Œ!Ê8 ‘fo‰‚̲–£SÀN툯[&h!zWœ¼ÿbY¥BQ¢¼C±9zË=4a+Œ[f%Ç"B4½Bú©sG*î!Š»¢ÖTˆÖŒGv‚,H3G2]Êt3/_/]µ#"çÌy¢Ï´ƒ/mžØ!€è ‘JjÂóžcýíZºb¹Yoð%DYËD2-]€±HèçsFjWp %Óƒ7²Ó…tÓXãúTˆú¦Ø‹zXBä©]æ¤û² Ë\!Í=»ÃU;b!rÎœHˆ„ßQzzË@°)IDLˆ˜@p+±$®ÿ#ÿ.ݦ¬šðl]–¯<¿5É…éÉ"Ѧ¹Kó {æzG/RÛ‚«™îã´¦BD«pzŸíYV,ÓÇ?°°;¡Í2“D*ÎœlAd™;ŸµJ‡v$³óâ ‘ø;:]¡2×Ǫ^Æ³Ì bB” ‹4ÎI¹9Z:~ÔÙßÌ»J©{²?YÝ·hýc;c2‚¤o!b3´ÍÏLÿŒ­ëÜS|Gj[piùOo“ÑÄ]îi÷ÌTú¤Cã’MæÏM¥‰Xj…7í^©8s²}DYdŽFRé ^98Û¸T¿o!rˆG,Dâïè¢!D_göj+æÞ-ü‚@„ˆ½§(Å«»ÇJ‘»‰@þÈ×+½öm;φßÌ +ÖµÆæKfT+û¢;xN{yd‹ÖdbÁ{ì›3æ#ÒÄçã‡F>C{šžµþ ý~í„”å&ý >ì7ú“ÕÓœ™(µîÁ Å Â…Q*Û¼± Ñzýìá ×­PÃÐz/›§7YßB$ŽT’9É>¢,H2·£›'ÉW²Nß7Ù‚–ÂsçÇé;ú8IÀ—™¢’e~A B¤j3K¼pš`¢\àÿ*7-º<‡ý½3 ‰#IãøЄÀˆyLØÍm–ƒ[HØÜ2‡ !pÐœñÈBÏ ›‡Í’‰ä˜ÌJÈ$&ì2É(ÜŒ¸‹²,13‚LTdP0ž >xø"„ˆ7 ˆ—äe ÷â“øàÃr]ÝãtwUWMuÍ´™;ÿ¿'íösªú¦~Sõuuø³Ôë\;Ñ,!úëǬŒBO/zí€cÍ4œûš9a Q[/rÍ.²qü¹-D¯=^æ[u!âöT9A 7 ‚Ì1»)>».~‘qÛ&ÈO÷èã“”{Ó“G Dp¼„(ü§.IM¸â~Þù™f QøË+n¸n–…oYsß+öT4àÞrëzn×ÌœuiÂËkµý׉g¿&DÜžŠ2Çág›¹«/˜þ¼¿Žð‘'¼¶Õ"Á{tøuðÓ'ë¾À“O DpÌ„(ÜöÐ=¬õZe²wßQ«?Pq·n6IˆÂgs'/.‡›'DÕ•­Þaµž ÜßÙ~óÑ ‡…¿yàè͉oíýžc·Â·xœñz*Ì7FNæ>÷èOí)*Þ¯#~(.§mõ„Hðµ.ù»;lŸžP™Å'! ‡ÿüSïáPïÓoj21Y«Ž9yã£3ìÐñCWu¸¹ÙûKCBn›ü·õ¯®t—¸á[^ˆÂ_¸Ÿî³§â÷îKk”~õ]›yCSí®ª_W•èy[Ø!Dá ÿ¨ŽëOÞ1+\‚"^OÅ™ãĈ²à™9ë²}ýüÅKƒ¾¨þÓÏ…¯#"NÛê ÿ=zj5íõê2„þ…HÀå{“?N~ù›ëÔáÛçwô_üär›wÔ…ï'ûï_zt=Ü8Ÿ›ì¿úh88j=åôÿ¼ÑèϼΜ¾ÚÑqÏã©¡Ã&û'ï}> 8=fN#9sŽå•½eãoß1J¥ð:J1ÜžZ› üÍ+âÓ¿?í¿ŽÛîàx Íâ6ó¬.ê±gëÁr?Ëü)>AB€Î1 £?«<ç%P¾£F!Må’)ŽüÛ7¤v”DÖ3w‡!D! ΚBô—Z5ÖYëù%_´=c6…„€fÒf PïOg.½¹Úÿû·ÖÝa¯î´BÛî÷výçi—u¯ßƒ "€?zÜ óQK4펑ބ!D! °)"vŸê+o­&D¯Ã"€Ã_QOz{q:ÜjBô¯6@ˆ¶°ú«ÚóPnö¾>Û2í:S5µ·W¥Cð "”¹}îqGÇã7§‡[ªU×?¹ØqÿÒeøˆ¤zÒq\ º®÷PÇÒ#SQÍ@ŸénÇ ²©WµÐ0}å…ÕÅr_³ÿí†!>îC+Ú!S¢§‘…Õ¹ìT±årqba;|Û’s‹ãiþ…H¥RIŸ1-ˆ~øn*´æ{‡£r@ ,,™s6Z46îùåûM6tË8\ˆË Ñv¦æCZw}*Îëú+ ùNó¥ÇÖÜmŽÇŒ~L¥S#ÓÕ ¨ J¶CEgYµ w¶úB›ÌëTÉ“F¸­¸nL R˜ÞÔFˆ|æ§NŒÏ3âlhé%ÛQ´½eûD§FÑÉÄÎ’‘(’¢iòoV³}ÉžâÚhp}j_ËxWyÞžžÊ¹¿”Œc³_é¾½¨ãjŽ•%ÛæÍšÆòþ°7³º}p3ënš©Sˆ$bZ•È‘ßüˆcüže@s&-6]Ÿ²3qBD>¦ ‚©}Fˆrd*ø%™¾%Ï)¨s¹.c ücîõ¢vbDk¶j»:Ôetk"fe@²m~…(5cýºkùSÆe°<¦¹…H"¦u^ˆ|çGãû „ÿv=eŽŒïG“dúF‹¹„(ï„^‚Z5þ`)ò!D‹GRì‘ó\“‹—Œc¥¹x(>Aþ`‰º;Ʊ@W!̱ng5׊g׉•â’mó¢8ä†üƒêŠçéüÎD*éé&¯3ÍFu ‘DÌq"ÿùÅø?#È6€¦P!áPÕjÈ ˜6ç"Q¹Ä¸1p–„Õ&ŒUŸ†1˜Ø%]b…ˆøÛ”U8nN‹Qʲ1Èdd&´Ú2á¹Ô²m“}l•žÖJÛWЊ±s Qý˜c-D*ùáǨœáf@3è#Ö³_û•hD)"'D)ãü®¸ˆ¢ãÀV°=Š“>hkIFˆÚ&sØÞ2Y¤"³QMëLÙ¶²{ŽÆž«Û6 Ùr¬¡¤òv)Ø:±C:ëó†Œ-¹kˆêÅk!RÉ?FåŒ ÛšÀ)ê±%`PwLÕ¢úÊžB4lÈKD·BiFˆ\êGJfèb¦ŠkÅ0`æœÔo[=¦4me™' ôú—!<›‘ú.3q̱"•üðcTÎHf€"ûÆgîºã÷nÇÐ""2%NyÉUò…|%ÇÑrÏxÌ80²mPÙî`Ië,[åÛn!Zc֨芡ÈQVfôhŽUúm«C™;§“"ŹîCEóÕ¦ùBäã/FzÝŒ!î}°’ÆûÍ)¿Ï¯†FÓBˆTòÃQ9#™mjÄ£Tµù¨Õ#BÔžàÈCîð.þýt¨P¢ÜNi…ºIf/(Ó˜ÉU}Ã-Däû¶=6¿mxJÞmˆWt6@¢mbbì˜Uú4ºÜ$i$v'*ñ…ˆñé@ÊÞÏaGB‰F˜mÈFI•êÏÙ|í–ÇÌNöè…H%?ü•3’Ù F–¬/9ë¢#D[F%„¨ÈYU)ÛÞ£—óµîö®áºB´<Ê"½cà(#DFwt‡Ð­xM‚LÉV7Ô¶ÚdÀˆŸ¶‰HgLÇá¥Ø}S”¡©z:ã QVöF*³ö¾F»ÛuCr´ƒE:íÅÜ×'³Øˆ)eN%?ü•3’٠Ƴ]1Q‚E !Zò®:0GÁDaoßøA·¿Éæb&dMjÊú1V·(´è±÷Šô‚V–¢>êa! cdez·%k µ@JÒ£~Ú&¢Ûyw ›â¼óÀBµ°] DLŒ‚åç7ÀôúzÂÜr©þ&œDz²ÔÞpLiÓ±½s¢(šk@ˆT2§’~ŒÊÙlPc„)#ŽÙ"!J_Rõ¸÷°6oÎDÞzQus…h€r%¯e‡¸ñ<“ ºmä…È®G¿új›R ?Šo®eÊÄ̺Ýy¾Ñ1*Bdx‹¥¼ÛcR%Ú[”„Å£~jwlĺ‘Ê®ÇäbÐB¤’~ŒÊÙlPcˆ™ ÈÛUÖ"!Úò¾!kιÉñ\£BeÙ– f„¨H•“[ËÙÿ¶!ÙÀ†Új7wÝÛXö×6>«üçŽôÐõцhè©jz’1JB=܈;§ËÌh .ÚiïòÙ·ëüÕ1%DnœoDˆ2§’~ŒÊÉlP¤à,d¡çŒˆuÎ;Hº¿¿{l(´áÚxq_û·Ýó„hº3gȳ\h5àòÜSCCC±)b+¿mãS2ôƒ3¯µOmŽ°X[å Ñ~£»Ü˜BdwhVªyÝ¥M«¼U;R[¤¥Ô…H•üðcTÎHf€"Ì—M2xíØBä"éúPÖغÁ¨kÅi¡•„ˆ®‹ÉÛÅRTX[Gª—r©÷Ý6.ãÔÄ%x ÇÓURºÓwR1ŠBd¯¹%3Té¾'Û®IÇÏ7Øᙃ£"•üðcTÎÈe€*KŽ[›-*öö¸!Šæe—ÓÊîj‘¾V¢UgÑNȪLeç¸âdìŽ׬C!ÒCE¿mfqÀóÌ@”ÚM|ßÞŒ›'DLŒš9¯â´TMÒ¦cæ#G•;Øc{´©ä‡£rF*Û”‰yÎíÛB”ïv`ÉÏyW™¼§¾¼vþÏÍ‘Rc-\³N­¯¯Ç–Jæ#å7ÒÌ@ØôdxEËéyjk?Rúµ £(D%Êaê¯Á­9þj1tôBÔJ3DülPÇ»†¨~QuÖû üõìÖé¢9¹:u÷w0,/’í VrþÚâ‚çEœ¢Ø´îo!bbT…h†RÚÛ,»êÄq­ÓŽ¡~“®“‰g 3‰±NÝtÉ#"•üðcTÎHd@°w™ýjÏÚ „hÛû¹“yjn§!!êéf‘ž¼Q¼ËÌt¸í€ÛfN‘K?Óî«mÞô‘Û³¼òù/{÷ÚÆ•Àq\ ‹!A:Òü)…nh ]6°ôd¢zØ%ñšôbS·Î"¼¦Äí‚/K‹7–!VHŠLYV=Ø“ÔÂ\W`çà ‹aiÐ Á°—ìÅ \t 9øPVoF–ßHo¤7O#{ì|?—D?Í›yJæ§7oÞ7WvâîöHŒµ DÍeLÑkéõ®ü1+ºnÃ>.Î#Š[ 1¦7ÝóœwˆLZ.DO™y¶6 êyˆŠ¦¨ñÖÈëÍC4­˜ãeÆ8u<1c$–;¸}¥Y7µÝ¦^>érº /ºáêpP¢¦2¢².V‚Xª] âϾVeÌ‘¼¶Ä’•Š¾bÃT~Î{W[n²íL×î@Ô¶Œ6&îgi"ë×Ú§êѤÖÊû4‘ìuÇ›‚´¶Z´hI 2iï2&[<[ˆ¤˜™ØZØîMÄ×\ib8ˆŠ2ù‰úEu¢²×qŸŠDb}Õ¿ö‡*Ùu^ø!‰/—äž0ɶŸáÌ~-ZÙÙGvÚMmŠSÓ¿¥[·9ËR.éißâìkøá¨˞ϸŒ¶ DíËØ#4SÇ^m[Q³ÑÝŠ¸"ÁnÃTPiq®æĉ‹m媡ì(‘Qûx—1ÙâÑÚ€€Œg]Cl‡’®@ä’hüúëõn•‘qÌí†+MØGÔ¿bOó׫z¼|ABÕ•kju¿Ù|mÖeW‡Lëº 9mÓô–óª·§9=Ñ&µ/³mé/°&Þí¾¸ ¯,8˶•Æ4ÏQ¼Z«Dm6¢º%ûÔäwì÷ÊmI¨0´“+%*ÎéìÍŽ,®Íu鎒Iûx—1ÙâÑÚ€Àþ«ß‘.‚7¢½@+©Nä«ÜøV¸Qd¦T¯\Võ8•˜´¯ëV•ž¹Ïfé¹~Ý2öÏ3z®;H<ëÕ¯™6ĻͦóõwÊëO%økÓtÕÏÚëƒJ-ŽŠÙyR®óâ2Ö¥Ö3iï2&[º×ÕïÙ;ýû‘'Ñ Dvш"<$3N¹•¥¸ýÜ}˜Qdý†S¹Ä Õ¥=ž÷µ¨ª_±å¡ú)­,Î'}ÔM¬Êjõ6Å 8Wb‡ˆr ËJ´ DsÕOŠóI(úX{kÆîìiìY­Åì|9jË#D&íÓ¢ŒÁuk‚4ö¼PžÏ5}5oiÍëàØÖ|¹Š†óHã©ÕÕ”ú²²ëãšohâ‡ùòöòtÜ_Ý¢™ÍŒv7K\ˆ Q!2ñŠ,»W{z<š*lôI˜x¾±ý(ÖÏŽwûx—1Ù8 â†QeZû×Åh‡ÊÌ :~ñ |bœÏúäX>VYßsM§Àñ"ºˆ²ú·ÄãÔù©sôëyËšdYeå-Hàê·EFôûHÄEr'~B>¹ãž.›Š‘="ÀÉ´a\ÕŸéDL7=‡ò±€Ø(oY¯µ™@8Þ쇞Ÿè?hµ;éš¹èøJVóÐ$«Dyõõüp̉e§Vôg‰¬–²ÙWÇÿ®YüU6[bŠ—'hbbB¿+@8îŠÖ“iÎ:B {«t”€@@ èÈX¹\~Äi‡ë€àÿ# " D@ jéÏwž~?8<øâñ½ ׺¾³‹gª~æÝå–óÜòß_þzÅïnLʈÇ+þôzOÝðénïî±ØÍu²LW[Î{Ë]qöÏúÛI™€ôÃψàØ¢«gÔ®…ê²ú²GÒ²ëæ¦Sý» ¯"5»gŸšÇ玦å<·œ»%~ò‘¯Ý˜” Ѓ/^T+0øô}ùÇ¿s>|— Dþ@ôcÚo:»@œ?þ/Á]o>vUíN«_½âüN=Í|á¼þc˜QÀgÇ´rÎÔ…nîĻ強\¶2èk?&e‚kŸËÿ>8’ÿ¼#møÔÎi·ˆà D"†œ î²úB®Ù­Ï4QÏ»µ× a øì^õíƒìùò·]Ý‹wËyo¹jÿè…¯ý˜” ª}ÞýÎõ/çúyiÛöÏ.ˆàÍ DzÉÿйÐ<¼réæ[ÿòô”N úCíõO! D„ vNÌpw‡Ýx·\‹6½4(6=ôµ#“2µÏ…á†:ÿ“ÓÝßí>"Íšñÿœ´@ôy —|çîÊ·Z¿»ˆ¾’j¶@ôyÑ]'|Óݽx·\«6=ûÝÀð=Ÿ#çMÊÒ>×¾Üÿ'óÉ@í//åíwœ»f— Dî@ôÍ?kœ[?ÔÉåæ­@/ùïÙU»ê+ÕFé>_ øìqÆÜ ¼ßåÝx·\ë6½m°¯ÛGÔ>_"Žäûß¿}êöÙ9§õmy»sÓöú9„:Õ}kÿ¿ýu —»Û)¸KþE»joù Dÿ¨uô„/|vL¼óöÎf¥‘%Šã‹‘@g¯D'Š 2a> ( Â,®t„΄ÁÄ "ˆ$we„¸šMÆMÉ$/ Ùg\ønÌÖ·¸vUUuSݦgˆpþ0ÌLÒÕurªÉù¥êœ*^ñ¾ö§ûG.ΘþeÅŸ•2OùäTºÇ>Ö@xÈ^ëuˆH$é•QçìCëôA•Êœ{»µ0ø¹šMÙ·º9t1°|ýùaóMV7îxðtî–ŽDnÔ‚ˆÀ~:ûç­Ýu%)}à}¸ÎúçÖ`kUrÎÙy«58Ù6âxGiÞ8 ˆ2Ì)À^ùåóß 'K_#ü„À#§~'íyf…mš6 ÛÜKÓëoZ›»«S?½µ#÷ŸŸØǺÕÚÂ"®}|ùe€ˆD"‘^e‡|6Áª­‰±p®Ys³'ª£]ç½ôч»~QLGªD*zjuùê–yëWé,þ~{Ó6SÑ«î= J]xù±)ûáÁiÄ;ª6; ˆÔùó4’öµç¾£ÿÝŒ’ê5ÞlCúQ‚N<¡ú«jîèÒ+!vs†ÞoJïÀ#‡Žé½ÿÒ·¨¶¡mT¶å9 îÜ9#1nuŒéž^ßM*ÒÜgiDåðFÚïlãÆ‹D$‰4û@´S²üØPÝfÅŠÅ5õã@®nü²ØÉÅ*¹ÝYUºwD : L…ø@¤îÇÖ¦£{Cˆ@ØûGð…–ôCÆ ±B&3äÐ6¨p¢d Ë ;¯Já~5­m€wà‘CǃÈ6¤Ú6öˆ çÛþ[½Ucª§7УrêïA.lKVÓ÷‰D"Í*m÷„àP>—ˉ}ý7MHH±î`z âË ˆ€~žÕ õcj}`ÃH-[¼ÙâsMéVÖç¶ êøf•½ðócévZÛï$D mpÀ6öˆôÛÁ·Æs Ñ’²xn‘]yQ¹)›îF@D"‘H³ DšÊî6~Û¦7¶§)Ÿä¸ÞÞ›ˆnXÁ½õ DP? ˆ`0Py¼ ¾çÌ4ÜÊ÷*æ´ÞmƒûF!JÎx*\¾=‘A.¯³ òNâ@Ú·lË+ %DçêGô›2‹hž÷Ð "‘H¤Y"'§šœàÒvòV›<ÂÜß>zf Ì}³`‹ý n\é¢È¢3SìîÍ`€:âíùùŒs·e=ÙçJ5ܹ®D`?^ì,F™²D°¨8W›õà*Î:ß ¯?zÊÔƒñlÒ4 ¸æØtO5”œö˜ËìÕÌÀÊbäxäÐ1]nýº¼½QÀ hҲ͢Jm8ºáŽ­ä_üô ºQ量b †°'Ä=‰D"Í8ñ¯ñ _ixÇ—,Î_üEçGúůqJÀ”F¼Âåk¾lÁ“uOy„ fîrÓ¢AÊ¢ÝØ€ödɱ%= ‚ûáÛò˜ŸØzA B|`¸ù;ËÏ}íe›½~\7yIùÜ0tx©Ò;˜À~ðQ@ËÊ¥J(–ää!-|gS2ƒayWgæ|ä1ÝQÀ hÜ´Í¢;uìmMÞ æÓ+¬˜YÞ䤨žpžŒ8èŸ ˆH$iƈ­ Xn.êû²ïÒrQ>›~9í°_üf^Ø3p8 Uí5«“çÿÙç—nº@„ôÓfçÚ B|à‚Š¿A²W¢}á“É»j¬ñê°| •€zB~$WÆÏtÙ;ÔÙ†y'Q ‚lCÚ€¶9@Ôujöäçíå@Ôáܳ~§)¤~y׿oXã•Ý“H$ÒŒQº.F 6QÙñ«·&+@`ˆR¤ ü*sÓ‘=3tìÃ… Dp?9qiÓ"̨t£ìùS×xõØ> hY%T¡¿ÂZæbŒê$´ nÛæÑ~pE2x.ìˈÏøôXú3|¦‡ÃD´1#‰D"Í<­KÇRòâáåÀWùz5 â÷õö¶3~³ÿ¿™ˆì_ý¥çhS~þ÷Š Dp?Y1œnû@„ùÀ•3E#95WåÔ`?ø(:,«òY ã”Ýì.Îø ÞIˆ@Ûà6°mˆ&i« Ϩ®dUy[R¶Zô}D"‘H3 D¼½ÝuU ¬Ì;uØVf›ˆjÒJVÎq‰Ds++·‹  ÁýðOº)Úoê|ÀA¥æ./¯Ý†ýÌ$ ¡>ûÁGÐjJ~=‚°Kç7À;IÑH‡žá6°myq+''kz r6FPï|Àž‚ ‰D"½F ú¨*NË[êÔ¯W¦"yÉ‚ÿš.LDF5•*wXúpÓ"¸ÞÁ‰÷ΣD¨äièÇ#X¼­òê¸t­›:³õ7+g|Pï$ D mpض¼´|•­ðZ¼~¦þ2‰D"½F )CŠ“KÒ ¼[¹ÍODi¹2'ô €¨ÀNµƒâ‰ DH?—ÒÄD¨ê@I‘a´êÈn6 ïà>€ûAGOgùzý8ѱ õN’@ô¨;m7ܶ-/9  úÎëØj;ê·yVø!‰D"½B *àáîs`ë`óôå@ÄcY?ðJYÚHù@´ÁŠÆ쉅ï.!ýðà¹.î\hj}P>fú ÝÞOáÜuÄÈ(âUUïC¯ÅM£ØVø[@Ù†´)h€è.Y Úá3‚ hžŽQ‡€ˆD"‘^!•4áîp!p4ÂæË—Ì*`†è3‹ù;ÐyKfÍ QVD¥—Ñš·›ò¤ÖÍ£,™U´3D;áQt,™õ YضÒߢ^ü¢Ò_¢ßÒ¼@åhÉŒD"‘^%9Ûƽ}ÖѳV¸„Ò糑{x„¹=]Q/Ù¢¶k ›ÙsˆzpѲøsÞÔú•ž\ÛØÈæ"W™¡>¨kÜ Œ ·ÊóGÝM–;qÆGû„$D mpض?Di¾ýfù¼¢Š&à‘H$Ò,Ñ1pä• ½/íThçãx!EþùŸ@•3¡¸lïfèÜOK:jì]‰ú^#>>&ë€õA]ëNå(@×Zêí[iÝ0‚mÚ'$) mƒÛÀ¶ý ú¦ã¡œœ§K@D"‘H³D<ðýÒþ:>í±/¤ð«yiÅiw: ²1䊋àÜÏ?"Lpd0µ>@åR,>¯F"ÔõîTŒ:YQCµ ¢qØ6í’µ‚v  l[ò@Ä?Œù)ɦåˆH$éQš-ÄLv´ñ /gx£Æf&~NÕ•XRd-NDïí¿žÿø@÷³WŽ×Ø ìTù•¡01oÉ@¤òêƒz¤Ý×åÙ¦–ä——øQ¨¹ã£}B’"Ð6¸ l›ˆâ=½!Ö³È%¿!¢Ë‘H$ÒÌ‘35ð-0—°úë_ ®òr„ȤÕÈ ©lÓ:ÓÝnùA…׬½s>\/Te¦òêˆ4£€Çï uÞoêvÏåßm˜w’"Ð6¤ h›ˆâ=½†1`ÈÛXǮɄN,fž}_·ªt–‰D"Í<­òÏXP9\:¾·œïôR•þéW粇²ü“º ð…vå¦â4õwSÑQÊÝØ"¤äÍ-–3Üžvû•f`yd©.»WzóDšQ€ÄƒÎîHOväÎ6zŽ‘°m˜w"Ð6¸ h›ˆb>½ŸX?EwIqoûh}KºfŽ]Ó—)yâ÷‰D"Í89¯¥RåöÍ}­ø‘{ÆVMj·×W×%'÷w(åÃÊ\~|*<6´?¶÷œ[3O÷ÎŽ†cJ â+&vØóî§Ãß±ÆÃË¡»§¢©ñ*<_$U»¼*u+Š}ˆ”ÞÁ|‘f ´<|Ü}Ç­ß·ŠÝZÝò©± ñN| Zýr|wY*Üó¹½Ìpt½±všÆmCÚ@¶é€(ÞÓ»Íï|_Èt{ã‰i¥¤»òIvxEÊû¢ï#‰DšQ JgB¹€HPu/ø{]بY¿ú°^–îVœ›ˆŒ{7õ×"¤Ÿe+ô‰L`Py”n$‘Ú;ˆP ‚GԗТ¤3udÊ÷û ³ ñN| ú Ú9(‡Û†´lÓQ¼§w^e€D¹†2mËiÚ "‘H¤Y"c§ˆLñàÍ…x@dl‰á®zdL D<…dU"¤ŸÁ× ½@~2äT²?Ü\K@x¶-2™g‘|”c7´öÃ7œ¨± öN²@Ù†µlÓQ¼§7 ý—R¾²Í/n‘H$ÒÌ‘‘nŠ¡°ÆSk¤èT“wèýQ‰DÆRpV¥¿mLD§îNxA BúYó)&3"ÈHõ×IÑ¿ú1ß”ðhÔv ñýZx£Ãƒ¾pCëA?> w"À6´Ú6-Åzz#ÑJж´’FßG$‰4³@d_¯jîrRíÒûNï ¼\›T9³>´ò¢à•Jí:JŒNîy³ð.F. DK.E@„ôstË£çø8ͲlLrøÜ/'·›‡,'¥Å;m`?ÿ³wþ ­$w7Cš÷ðui—)Þ‘+8^µ iG'R%  Šˆ~á%²!’I@&E”B2c !,ЃìBAàc#HoPåʨpqdfÿÎì?Í®¼+'þ~kw5òogÍG3¿™]züæõ½÷]¤ç›ÏM™ûÕ?vÞH]ŸÚyl!òŽmI¯Ø– Q˜»w¹CwßútŒ¾!€§$DAy£oÿvüÓù)_¾þãOv>ýÁ›—>3_ïüî³w_ȶÒ/^ýðxççïþú"n|ÿÏ'¯éCÕ¿s¼;Þ9~û‘ÿ°•w턯ƒ%WÁ“ïë)S¿ô^Yù÷Ç;Ÿ~í>Õ€ØÂÖNdüb ÷.V”¾{¿ÒxiázÃ_ôeŠ¾ôšð÷‡?ï|i÷ð¿"DàÿŽëôG¨‰Øù.ŸŸI¼ßG!‰ò•þtö÷oP1óN<ýñ @ˆÀ“ã{úÂ>¿y…ªˆ•uúü%„ Dà ò }ŠÓ?ÑG'ßèIï?“ËwÇ÷@ˆ@Ò¼ÒŸ*òþ·¨ŠØx«÷ýKrþ¾Bç“oÍøûP1ñúOZ ÿ^öýø>Ï|„"" DÀs@)¦K9TžMUUÓŽ}¥Z;C(jwk5¤¸R öQb$?=Móý±—T|Ä]­ bÒ~Æ®‹Å‚üÛ÷nZóÖÍyØÿ²Yö[}ïë2‚õ¢š÷L3K³{:êW6©L”#ÖÄéPë³!™ì¡µ¯¤ý ßµ¶ûÚvÉYôšîlæä…è¦lùي󜎪ZsìËei´­¤jÕ+‹=ÿmÙO*MôëSÎVùÝEUÀU‡÷)½¢S+G°nš+5!*4ôJ«sP&Ê‘¥÷€x( mG!÷f/DIÛœ[ïÚÒ¶BtÂÚ(eC^ˆ:¬}Uò…ôÑø ¾sÚ—½ŒKiÒ½'‰ÔªO¼Jꈲ•±.O¦ÁUöhˆÅª3ëHjÅžÊiB4ؘՕËD9²ôÞÅ+¡Yíæx!šXoëz ј5Qþ.!ª²F½û9å‡>]P›ÌˆÆ Ôªoçu"¯#Mí“.®ô±Æ,ç4ABÔ×-ên°=ȤVŒà‰p¿¥µJ.ë½QõŠe¢Yzïˆéww[kç…‡V‡kq©ÑŸ©=Ë$T!Ñ=Ce#„%’R©ûŽÉ)¬ßd´Î÷T eu„UYùžõ"T'¬ãàL8²Ø·8äùPj\a¯s•Õ"x>B”ëÑÑëç6r-v‡«•‰rdù½ nÙwï¾a5lŒôM!êdHÙAK2¨;„èÓÞF!ºM¢ƒ¦uÇNɧI9§mQùph-ûUVVGÚÜ(ë‘ëXGætkê]¨Äz &ù ·àù3ü¶^kZÇéáJe¢YzrnãË=‰”}ù;~“; 6p°ŠE¸rGŽ b/;¾L”V·<á IDAT#"XMW¶‰Ùg¤ Q¾¬?‹þlB”õ^PèRXxqAÖ0í^¦I%±`¶WgÖRÓ!t$½m=ʬÆuÊU…Œ›¦Ý㥔٤û¦ý(³éª‘½ÚщTòDЦñéåb¹E¤]ˆ¢pêX¼i_"ÕÌ¿L”#"X—®Y?¬Y›™B¤õ éMQV¢ž‘{íøýŸÆ¢NŸªUˆß­x#(ªV¿ZÉe,uñ¹pâ´½u9Xö{—ÕtªÛÑÞÃ-Ÿ1!²e«Pv$è{r#t-v=o#óÈC²BÔrØYCxPJØ2QŽ@ˆ`] ¹IÏ:·ÆD&]ˆ&úWõ Ó&^ˆj>w ÑTÌ#É?U!bsÙ3Jò,ìE²CèˆrkªOOxRG5;lܶú£­¬–­50/»Pj™,´¡Ëúµøxôü…ˆ¯ÅŽÿ£D8®h¡iÛûml)¥Ýd…ˆuW}ÇmoI,«î_&ʬ‹¬gÑ¢¹þ½œe-/DìµÇ”ä¹#;"õD…ˆ%“jâ°Ä«Ó°:Rb#f™Æ>[2ªÜð\?©¸_æ:^4y2›Ø|«óhQÏá0K§j«Î=^;ØO^ˆÐCÏï"+©š}1w5Èä!ªxÿ´¯9žÝÚyªB´í˜ýH%•kÐ¥uD{úg‡Öbšo’‰çâàú”ucði*æöôAÐÈ Qס:ÖÍTñpu]*Û½ˆ|o‘Fîè¤ÙÝ®§TfI Q?B‘™(G D°.ܳ̾3úóu!R.ÈÅæFQkÂx!ºñ~òeÃ17[IˆÒ[n¤»u‚›”ŽÄ¢G€ÖFªVG6Ù\ûK}t²áûÌV¥m÷õ±iÝwÜxf %zB´à¶où›i,$87EÚ27~ªbu"¦E­ DQ®f™ÀóÅ{¢±%D,·õý¤mH ‘sÐdñ4×!’¢G`$tÈê›Ö1uRÜcÒEÆö•L;Vš.ZÒB4ç×ò¢3«#ÉÑ52ÊèæR½Îì²¾šE¹rõ"—‰rBëâÌ5ôÕ1ÒO !Úb[5-ÇAbÈÌÙC4|ªBÔ“2{ÌŠì 'l=öwÙ#nÛB¦ò™ÃAlNm *:Äaß8Ùˆ ÑŒÛ>á“…ý…(§Ò06{ðZË O÷¬n“„…èܽ‚4Ù‹\&ʬ –+ÌÓžeVµ…è”ÑÌ´]ÿeïþBâ¸8€Ë^ôµäÚܸ–+¤‡G G¡àii¡¡õÄ>$å¼´Çž•Ò4!WzØj4È‘p”šSi• Œ,y)”OŠÐwÁ'ŸBòPΙý7³tv뺫~>/qwvœßÌoÉ|ýÍïO$µUèT½»}ˆFûJ]I¼óntªÞÍ”YÍ-µs¯Ýöžx;Îr¥îG (Xkº(¦ŽÖ\‚íÑt¥Ú?÷(*ÖQèR¶yn6v k”üò@TSÍ­1ÖY:7d5ûÔ²E hôfÑ_Î#¹¤“ DCÁ=¯3œž1ÚBŽ[/v_<ááD“vª¾Ø€a÷µÅ‘±¢gš}±å"f#Ïa¦S™ù4³d÷©G ê**Ûj‚ýF²Öúò‰r DË…†’›{ß©:ìÝTˆÉÝE `ÕîSË Q­u9÷:ˆ‚fW23'˜˜q$¾Vì½f‡h¤3ÖGF‹:àöUjÚº©ÈÉø‡¦²áµ(:›ôr‚>7¡þp¼t¼!ëR¼ÃxWÑzìj,•LIQÝ>µlˆ%ø»|³pSKwåVVÈ¢­;ðdæ?ìKw÷¸HÆ|3/ÝÑ·Ç%èˆÙºÐ3Á¿±f¶¶•…•øDCCE¥‚ š®”ls7Ù•XŠêÉþŠ$%¨:­ÆZ::5»­‡_² Mk©ðæµX‡ü± »Ï °øH™Y´Këg›}jÙ"4Ê@g,ƒî§Ú£èV*µ˜éò‘dq×k±aüw›5=Høp§~%(;Æ+ÜoÆ#ÒÖç ud¸Â’òA'â”>©ÔpþaÔÃ’¹¦*— ¥åþäääådOÃ@T(ÍÃ2 Ô—7ض­ïÊæ½øW£P̵F¢àYcϣȥžÙ±~¶Û§–-@£­§&Û#/VZ¢è‡T®ßu,›KÛ‚OçW_O5i ²›/m„,>uóÃhkÂÀDdßdäÊŽÌÅ’h0rv‘ûÙ`••¡¤(è<ÏJˆR?g¿;7†­Ü‘ ¤]éÎx¼ Ðõg“XÛýTCQÐh5 içúK¿ªåêg›}jÙ"4J:ךZí[¸™*75Ω¸|.á¥éØ:vWv6¢¼[a[äÌZø»¦W"h¡omz¹+sžÃý7ï^»WŸ: /rÏ\x:cIêg›}jÙ"4ÌÐZ$½‘»GåÑ¥\†‰¢öåòSÝòÕôàJS¢ ¿Ír{¢pA²’þ>×;#õ3U§> ²7ãOņ"[\L\‚°¶{¦ MŽÍä33”øÚü\2]ãÖ7ê§ÈÙ ³óŒÄ®K̹:UÚ•åü!&F’ÕÏ6ûÔ²E hœ…µžìÎ]ùÞ#ù@t=7†;ˆÂ&¢þ2±"}9Ó”1w«#wßt¨c&Á¢ DÁÚ«©Î’X1ty.‡V#m=í7úrÕ¶ø $š¶-õgcél%SÖÝ„'ø(|„•Î–nî~ÃÕ®„=Å-#óÙ0=³Ñö3j@ j¹÷F¶%îÒXX¡~¶Ù§–-@ûaaãútÉíÛº[ÚÁ4{§^¹¾±0ÒÖ¬çº^Å=oµ ]þörÙf–±ÙÕë7JR@zle~iuv´|sW÷¥ÕÕõïج"±>Êö÷nYXÚ¥úúa«Èc­…Ž‘ù¥ù‘öªê§ò>µl ±‚GI›£‰?ôƒØ¼²ïÎr´gëÏòAµ]þâÄZ "8X‚&¢‰ä#‚Ö3÷Ù9Þ›I¥†¿T×åmTó¨F à`ê˜ô'o= nŸkûêÓkñù‘‰ù¶LÏ€Ãf)ìÒÚøóÁüy×ÚöÑ ¶õ%Z êКI¥~Jüa€ƒ*½˜|Öúpaæ¢} ½•‡†7Ts%U¿ˆ8°‚•"æ’Ï'Ó2¿<1ñp¿<5ëx81±<«’+_ ¡¡¡ä ~×ýÔ⨫€@Àá6¯ @ HàÜÆÆÆ — I<ΞñmH "ˆ"àà¢gŽn¹³ãÇîÍûS³¥•=(›oè@ôUë–“;~ìÖÞŒÖÖ Íˆö l¾mЬèÍL«Èg¹»vöõíú¢¼„¡ãB®ÕæåSŸð䑺¢jË&À DÌ„€|šy?óúõæDŸµF½ýŸWˆÆ;öx j=ž½kTÇ@ôÚÑ«oŸü¨µõÃõ DÛ—-ˆ‰G"8è(דøvQ¤ ªÆ@ÔÚûR=;U,Ûs†@t>{×>[ï@ôÂ/ D­½§ëˆ*–í¬@‡!eÍŸiÂ@ôÜßÞ;ÿùÑlÉ®6 ½Ù+ÀaDŸfnÚO¶6a z2üùø©LÑžÞû@ôu«@‡!y6¼i?Q&½òɉçul¼ÌØ«Ó_xõé²hü_'.|ðãßw3=~äá«g’çÙ§^xâëO~ûlä­w…±ûGÂ×IÊöMðöïæìtœœãï}öÒ_"Ø?¨õßùÞñ@4~á¿™gU'o+ºÝ“•õöùñ—‹ѱ;™M½g7¾{èñÃW·ç±ógócõ¿y5»-sªßç?ôEISXiÙŽüóÄ÷_½ïÆtf‡ãäü>(Üw¿ˆ`ÿ¢›öÑ¢@ô›ï"ý™O=¹Ý?2¿áêX úË©ÞÈÜA§w/=Õ{tUù8¯¾K0ï¼Ws *íÕ Då“óiøækìŸ@ôyxÓþ0ˆ¾>»ãŸ-<›ºP’rèÅ«±·ßúx×ÑñðÕW;çãÞ¢¢}TŸ@Tá8¹òÅ:g D°Ñápª`òÃBNøCñÿÓ\—˜Ó½•ÑøÙ¢÷ßzz·ÑŸ#Ém›ã¼x²8ÁüŸ½; £L8^¸²e‚÷Ø’Ö6ìÑR$‚îÁ°‘$°y0ALz\ÉQj*I±>”¾¤íC G ¯É³äà¸@Η\9‘CmCéƒx*‚àÞîÌììLv7›´»¹úû’dš|™m“ù33ß|g:DÍƉŒŸ%)ˆ A4>¸+O&¼•tÂáø|ÑðÒÚF|ð_ËÖÈðàZïh6ˆâ»Æ{×ã?4×Ó¦ :þÔæã\Œúhcåáàb1õHG ¢þÁŠp§«‚íÇ 2O0ØD Z¯$EåôÆT妗¤Â#úzt3õ…(|¢wžèù°3ÓAÔž:ÚŒ®_Œî@ºÔž z#,Œ±¾VãD¡óBôÎåkë…cDAíBbÝ´ûfãT-d.ˆ ÛÏUì8_>fWõÓ_í„ð´G1>âÇôaíÁC…åxâù\*ˆ®d'}9Ì–[m¢ù£kcéIfÛŒ3±ålÍÑžÎQ³q’SD§§Kë˦Ý@^‚¨rfh*>Æ_®v¡̚A^K«Ì4;¶Éx5úkAÔ3™­„0:Æ/ˆ&§§‹Õ{–F­Æ gÊmöÕ}±vQ³qÒMäÁŒŸ ª”Àkåã÷hùí¾j'< óà\r@¿¾ÿ«Ê¹ì„ò3µ :¾y=ùœèkkÛZfcŸF¶'ºT5ºp¼ÃAÔlOª€|ÑþR¸HXeáŽÁ$ˆÂKB“©KBÉ$¯hÎ}6ŠµÙøs·ª¢gjWmefý7ç`ü¬€Rïò©NQ³qä3ˆ‚ñBat>\³ëbDáU©©Ç2‡‡ÿÊ«á[ç“-’ z®ÐÈT›‚h!YcÛqjŸ5¹Ð×¹ j6Ž €œQeñƒafœ¯QO)y\.­ð :±­Õ8g¥öèoD·?ˆŽ#ˆ §AôVåˆ8<#”½‡h±ù=DDziQL=Œðé²se}‘ýDÇG3ÍÑzœ`v­º´F±ñÒ‹m¢Fã"ÈiUŽùÃÇÊo^«Ñbf ûúYfµKDëÉŸœ ·<»M<ꓪ¯Ew/Ž6´§lä·sé…k·Ñd{‚¨nAy ¢ÊíC7•&’ Šjä`r@&|hë*«å (%AEÓµÑÈpz1µÖãDWù¦R뉽¾ý0ûô¤vÑ–qä5ˆ* §Ž—ÿ{«DCáAþFvr}©rŠf$¼½h½ºa(õ¤êðòÑæ@ûƒ(¸ÝWÍmk=NÝíMÁÙRæ.ñ™ÑpëÚYÚr:-^ÕD@ž‚èRüäàDó›áA¾ú æK©Yg½™+V·¶®eVx5µ¬×ñk¿kÏâ®á;‹=-Æ9rã…­¡²™êšâ+Ñ;ã;¢‰øEÊh>N²–ÙdiÜZf£ :Qo*ˆ‚‹ V»?™Š£â‹á½ÖKéÕîGo~0¦ÊÙ#S¥Ôt´Ç ¢¥ÔzÍÇy¹0¶t!®žàÓÑÔÉ•hyÚð´ÒåxÂüŽ‚h0ÓñiŸæãdnüþT@n‚(ºU¹å¸D#ñ½Âý7& ɳÊÉhKiýÃ+NÒAÏ@+Fçþ¸11ššŸbæ;¯®,MD•Õ»òð¹‹×‡vDñ‚eñ\®¦ã̆ßÙÄÊÂ…×⸞¾´W˜^zuíV¼ìFD-¾·™x‰Ž+Ï=|0Ÿ*j>Nüm¹¯È¿6èö Š/H ¥ƒ(81ºåA?ÃÕ‰íÇJuŠƒ¨§·nK*w<8h|WAôzm+Û3[?J¼âGÏDýw0¼“ïm`²Á†æãÄKÅù%ˆ ?AµÇñL/³GüsÉÑýÍôÇSw v*ˆâAKïm;N]¨“5FŽdoex§AÚIÕÆIÍb+Ì "ÈO]¨®mŸ¢àȃÔ)ýàÁgjqÑ»?DAÏÅlFMoWÅWê&æ·çÜfvŒ‰Ëµ¯÷Ætjoöï8ˆ‚7Çê6l7Nh.;Í_@÷Ñ‘ê³v2Aô,oD-P<™=ÞŸ[‰zd}ª'œ†•šsþʉê%µ‰+oÄlCÏgVµoˆvàð±å™¡Ùùú §N–7œhüIgÎ/__~ñ鑠ÚŒóÖÉKý3Ï=ÓSÿ‡úûÏ÷í~¤Sï-Ï\xivd§ã”Óò+3#¦ÝÀD´‡m ˆ ˆ ˆ ˆ ˆ ˆ ˆ ˆ ˆpºŠc3‚A‚A‚A‚A‚A‚(gþû·ÿ|ïU ‘ÏÞý`ºñ§±ÉþÜ,ä‹_ÄïîÝSÇfQÝ|jß¾¿^õ:ÐÀ»ÕŸ³Ûö§›ìÏÍòGþù‹ø½Ó½{êØŒ Ê¡Ÿ*/ã_¼4ðÅß?{û©'(ˆº~vùÓØdòDíù½#ˆ@íú÷ÆÝo›mZ-¿Š¾ÚùqÈ©«_>9AÔõûó? ö'AÔžß;‚Ñn}µïí¦ÛnÿþÝŸöbrêƒ'+ˆº{á§ñƒ\Q{~ï"D»õ§íBåꃀ°?-Oø´arDmù½#ˆ@íÒç¿Þ›PÙ«qö'ïAÔ‚Ñ.}·ooBe¯ÆA@ØA$ˆ@íÚ½= •{‚HÙA$ˆ‚hO¼ÿíW·ï}õÝ'u®®þôÍÏ?|ó¯/·LfýäƒïÛ÷‡ÕªÚ'~]ýÐ×™¯¿ºúÑ«÷ïÝ ÿäÍïÝýGf˜ï¿½û‹>þnëœÙ¦ãlû]w³f¯h÷îÏêVŸ$ÓÙoõóòGn¶þ;ýÿÄGåo2|±ïÞ¿ýóÝ÷dþåæp’Ÿ”¿¹_þ×s÷ËÏø{çÚÈuÇñ LRìÀ¦› …”m›t›v[¼9²&{*é­·Í©V¡NAÀ‡¶»lžÍa·JÉ¡ø² K.òIÁȇ‚”‹@Q#$ddŒ F’…‘„m¶óf4š÷fæÍŒlYï=öû=ìÊÍÌûþÞ¼yŸ÷o&¢4žˆAqSÔ©áù-9€!™S ÐÌŒœ'ëì;\ª9A™Ë´º¡²uÚñ„Ì¥›‚óU†>ÐŽ¦ È?šöÈüi7I>m¹÷¢œ³×|ß½I…ž'$Õ2+8¢rûYÒsaËüt {rY+…ç©x€ Õݶž=³×WxŠú••Ýä8y™vDi<7­éiçˆý´âN³æo ÔßäY©œˆ ‘€.‹cÊ{jn4嘸¼}ý²@tpbßÉæíO%ï.6éqÎÃOµÌâDTn? J›HÑb.$Ó\r;(Ùýr!“ó@dUò=³¶ßÐN ]_skŸí•Ú¾=xd”6˜fÿ<üTË,~DUñsBAÂÛÇe1]S“§¢È¼í§Ÿo’Ì¢Ò~tkÝYÞì¹gùf½UÏ DfÜJþ¸©é4ˆ„;A"J¯˜5±ÓÞ5H]¼OÝ"’Ô,Sã‚@dÕ5»¤â'활‡Ê¦Y0èDŸ'$Õ2‹QUüš0Ðrä—˜Wi–Wè?CóT8%®…ô²K=jú±{²´þ# §DãžK:nj:"ÁND€H„艣6¦¤ò£?ZþûþE€h@>tÍU«ÖOjZÛ¿'™·¡mGž'$Õ2‹QEü”ÍæòÒ*Ó^w«Š=RYíåÏSá@t<þó€êòRÒ]•WÃÆ™¦DõÀ¸)é4ˆ;A"2ÌöÏ2Õä"cæNÛèTÓæV§DÖ݆¼4òÀÙ‡sÏ[:OXªe/¢ªø!é§æo2õ“w NHž "wšì6™£–WØe(™ ­ÆMI§@$Ö)€‰PÅôÛ§þ&CZÎzx2ã¥Ö›ÍNc”ÕèvºÎô:T¢Î–j™Å‹¨"~¶¼Cy-j,ÒâTF¾< DI >ÉødOa?VOVX·Éˆ7†‘`§"@$B%OÕ»C'”­5ý¦1 ²|茑ʧ°ëq KµÌâET ?Mú†ðºŸ£òT4µ&ôŽz?nÊ95̃m°Î4‰u ‚DBD*€ZŒâî.Âé4dÉÇ$@´¥ÑOù(ø*›ÀóÄMµÌ¢#*·Ÿ®ÆN$y±Á™U³A=´'*O…‘ÛûsìYB¤œ»„ôσ yâ¤`LDü¸©ç´¦QO52† ì@ˆ„Œ†Î‰¾‹:Ʀs«Ï¨È*óêoga @tb~3tŽÜÖ|•Màyø©–YüˆJí§g2B‘Kk»ÄÆ2[}Få©p ¿2}Ô<ïePÍ®o’ ú ^i] IDATwŠ“±¬^‘à‡0s€($nÊ9%SãË:_×<@$Ø)€ «î´T{}[7²½£zn4ï1 ì@ˆ„èhŶ½1gÿï‘õm«P¬YO¥kåýý×ÚÒ°˜17;-µJ£_luRÖ‘Rañ´±DÖc>´•a¿EÎRìù*› óðS-7ñ#*¯Òx^êÐbÈØ0É.Ǿü),OªýL+·ayL.׆…ÓFyæ@ô‚Ì“ídZVÌ[l7ƒj~H’£;×ƼݹQÙ»5ػω[7$nÊ9=uiرð§Í‘p§"@$FÖ pWÎdÒ •‚÷®®¹mGþh®G‘±K¤¬/{(è<üTKè°ˆJë§áËRvFÅŽõû²'~žîû¯ÙV7¥Ý`½_Šù±‡ñVèìD”F¦¿Åã”ëÇŒÛ|9,nª9ÕË:S4Éà@ˆ„È8+&Âßv[VƒFÎ I²°*ß½ÞinüÎÏó‘®7GÈÓ"ƒü»¾áˆ€ó„¤Zf…FTV?Q@d0Ì{ç½óòT jèÆ–Õ/ uÚFà˜š:~Fãš;N³a¡x‰ YR®RÙØ@”ÑÃ⦚SÓL×ÉÔ’½ ?+•S ¤òúI÷lpèííÏnžœuO6³œ{‚‘^ß;kn^|Œ kgÀ_PË;'Õ2+4¢ ú9wžŠáë=q•£îQE}?nú'Ý“õ‰.žìÖÚÖÄÝ“ÆMj§éæÞ^sUZ§"@AÐ¥)&ÔÍ€‚  ‚ A"@A"‚D€‚Dˆ ˆ A"A ‚D ‚ @ˆ @A€A€‚  «Üív ‚ ‚ ‚ ‚ ‚ ‚ ‚ ‚ ‚ ‚ (½AAR u3 ‚ ‚D ‚ ‚D ‚ ‚D ‚ ‚D ‚ ‚D$ ˆ>úæï BA"èe¢Ï‰çOPuå½›?å­7'Úçý÷^ùËÏ^åòÎ;ï{¿|ýã›||'èç¿þôÚ»×\•ÕÏ›¿yøʵßþùõKMÁ¬œòsAÉ+ñêÃ_]»ùàéD[¦|½©yÊì4T;¸Wˆ —ˆþ“0õêk_O¯M‚“¸ÿÉ?ãîò½¯î-Zû|÷§R¹nnü+ûÕƒoï’]¿¹éýñ~lmIÜýÉdôó÷Ÿ[_û6ýé·oÿr)˜•S^.üþ6£Î÷oÜöë£81˜Ÿ;¿¸g_:‹¿ûòjÌ-ÜëÊÜ$×hŒ<æ4:m“–Æè{€zé€èS³D<¾2Ñ5{ëŸIÙ˜Õy8zç~Âѽx<òä§ÏÆ»$¾{+°Ú]ôÑ•Ý}þýs¸Ç[î^¿"›Ÿ[ߎ·=÷6U?!6o\<³rÊÏ…ÏŒ®;ß•ðëÝ1˜‰ŸÏÞ¾K%ë_ãl ¹Þx1¿ÌMvFæ©@§Qi›´4ƸWˆ —pчwŸ}0Ù5{#q{&ecVç Ö¾°šÑϬVÔý§qZå³o/í:çÙ­€Á ë6HÑûF¶h-ñ_º­ö}ë«/þÏÞµô´±{q Ò´‹BB*…¤ÚÛ'¢TTAÁ‚TDH»tQU¢ÑÕUÈØPZ‰UX wE,誊t%ÄÈUŠøìúiþ>“ÇØ{ìÌdf\᳉3™óšãŸíããv§›z¤˜<ï:lÕªÅj Á;u»éi`¢’Ôà }"Ž"‘gíº‹j:·•iq‹—¿}Œ Å죢%ð6èÛ(«4 Òt#w™ œ@tP9Œ%Š(Nß7Ì¥I1u‰[¦ ´´&·M+ó]™ù• ˆ^ÀMã)s{oýwå´¼ˆ9žƒÑßCø¹—JÉó"ðÏM{h™ ˜é3ƒ|p•¤Vx ?1Ö§¯ýUˆ1’à¡ u< ¨·Í·VrI³‘.€åÚ a‹—¿ñt ú;7¨ l«¤Þ¼ ü6JÄ* ˆ4ÝH@4ðâw> ÕsØ´39µ“õ6úÿ›ø–¥²Ñî}m¢Ì.ý ôiûŠDë•&;ÿç`ø>Ûo*£«ãîÿ›0o¡’<£0Â}¸Ãºm‚ó– øà *I=¬ð]}—èáÎQ'ÖADòL­¿{ÿ€å&Å-þ&©ÕÞ9>êeÓ˜%õâmpIűJ"MÉIFT¢z“’h\Uê µPĸ™¿Ï:k-dƨö;h48Y'Ñ+ôµBïb_NCxШö¶ XèÎ|J!y–âu"õŒ=_œ¸B°/"’”o| †ñI¨ƒÈ,w@M\‰[<üMRª½sƒû¨‡Mã—Ôƒ7’Šb•Dš4 ’¢BD@¥' š#&²aÁýÞ`?ð–1$j[ BÃòR®«ý½8™&ú±&ºÊ¨#Ï âÅ[”ÍQWÌAˆ’ò­`ï ”Ø„~¡’ê ˽㮈-þ&©ÅÞ9>êaSµ$%y *é[…ÖÌt߬).@”^ë¹èÜ@ŸÀHq{eþaa’Ú’òíÚ0j½;ל€1³¶fÀxöüÇéWômfjw3»<þcïå³þ¬íÚš=\Ííe—³{9Sò9ÑÐ b5á9ºpÇÛ:$K’ý¶³Œ¢¥Š PÎwÿÏ@V 1ü¬Ž<ãÜiþTÑ8Ef͹Bp`“Ôà i,ËaViK¬ƒX,·`ðV~ˆ›ˆfh¿zØT-IIÞ‚JʈUiºq€è¨¿ï“pÉ ôIÎ|v«»?·4±Ýï)~Õ«ÔF‡¹þm? ãÂ1ÝÛòMbHÔìïöÍ—7¼nŽÖ;û]Œ–Óß{>'º´•€wÍÁ~`ÇÕ œ#!M³ˆ¢ÏÔWœÙóÒË1‡a)#O»Íë>tŸðt¸„'©‡Ì–TÉòëŒX±Xî5÷¢ÅÃßZ¡åÒ(æ£^6UJR‚·À’îÑX"M( zŸ9wÀHõ36uîˆ>™_ª¬Í¹‰)âžq'ìN;Õ0jM™çDCˆ­ŸÎUu‘gƒýÀ´kóŒ³7Ló DÓÔ.æCl,Ž¯ã|'z«ØåÙEÞ%ï»Bp`“T`q‚ÇFÉƺBÄb¹M|ÂË£…ïoåоóQ±MÕ”ä-¨¤ŒX¥‘¦›ˆF6³Ëõ2eÛ(:^ÆVmÀÔ+®4`GN³G øK>¿n—9©ç‰:K—©¦³rù4ï€DYtÃj¹ððЮ€òÅ”xN$t‡Ò â/?XÅtÁØ»¼ˆþVq@«3ûØ— ucû…Vç¡·A?oÕ‘ça_¥éœƒð$õ²BU¦ÔStÈX±Xn½b¥ŒD ßߪÁ«`ý>*aS5$%y *©;Vi@¤é¦&U§˜€vÝØ]Âm{r‡(sÎÎ(@€èÑ ©¯sI3ñàŸ¦“äW°‹~µ3ŒR#ã-l¦EäÎ^‰ƒªkcùyŒIÕô˜©>pNs‹Úª¼}ÚýÅk-P³åOtÿ·àâÎÖ…þé–Bòb€br oßÌfäBpp“ÔË 5‰¾b ù~Õ Õ[£E¡=n ßßj‘ô—ñû¨„M•”â- ¤îX¥‘& ˆ(@´¿nM9@dÆÑ?»öš;¶Ø€¨Ô[ [€¹¨÷ª¢Y¨ë]¦û8È,ä©ið+Ãø¹ÞËD ²L#d÷:«ƒëk/¶7¡ÊH3¡|T¦JHJñPRw¬Ò€H“D$ rvqfèÓq¼«ÐýYú—DNù‹cIà ½§*s@9׃ü@R”~cº‘=áÄB;yj͉TE; Ýî¦ É“€m¾ÖD?Áëô»8æ LIùVø€'²•–Ùg, 3Õž…ˆüêÍ»:„QFå®l Çߤt Ú;çÇG%lª„¤$oA%uÅ* ˆ4i@D"¬ Œr€èÐb¯G”Fy€È©w9C)EÑ$µª¾®¿8†Ã•±þ³ I@´êO`OÅJà ±y³ãV3JÉuÞ.~ÀaGeûL¦ZZ‚ƒrª¤|+äjDnÿõ‰ÿP‘_½Y]Žë¿Ò-“Ñr°© ’R¼”Ô«4 Ò¤ ˆ0sho—D‹ŒÏŸó6• *%ÈaúŒ"€h…J¼˜G×ÿ“¿}u!µ¿ÉAØé6 ¥N!ÙýÏ6äA×ãä[w+ÝN¨8£’*aÓø£‹‹·@’ºô¦‘& ˆ\€èÒ ª±<Þ¸û<@„o>Ý£^MÕv™ÉžHmÁ”vË"1áù ™ ÎøúIÒ:ŸVD;Oþ’úµ AÂA4’2­@Ò&#î.·ôPQp½Ùõ…Þ [dým3ð¡+@¿JØ4öèâæ-ˆ¤n½i@¤I¢0‘ç þœ'Tªaœ€(Ũ%»$w+T‘­âIèëhHW}Ò'tu3œ¡ã<¦7gÞ›`Õõ‡)Oç0È jÊ?-Á8ˆJR–Ük—¨¨Fé^x€hò@ïa‹¬¿1t0@¿JØ4vuó@R†Þ4 Ò¤Q˜€¨Å›ÎPO†£›Š"¨'Ÿ6´j×r7¬;'Î¥Ÿ3˜ô•qó §$¿U"SÎÏÈL÷å龄÷‰Y™웃¨$eYqÊn|Ð4ÃDCgŽË"Ö"ío  H'œNòQ±Mc÷Q7oþ%eéM"M… ˆ`VvˆN±ëGÔ¾ýXÀ8§(ïCö ÇÅ<Šu÷MŸ€¨m•nzÀgê´Ž+²BŒò˜öiÝx­NH½' Á~9ˆJR¦(zçž79âç —g†;§ƒµHûÛ»ÐNßGÅ6ÝG¼ù•”­7 ˆ4i@" ZáP»0ã6Ñ_TDwû•¥{2<‘¹m³+s¦O@t€>^ÆbXê rJÈÓ„.Sþ¥†(ûä *IÙV` ©§\rÍ0Qp½q+á-ÒþæÖ‚ïœOÛ4neñæSRŽÞ4 Ò¤Ñ €è ½p–< Ê¡qH>ÇDN=2È \µÄω†2D'rAa5˜¨žyóݵuç#9£Ç–ÖA§(¢Á_÷Y~‚Ä(5¬o;~ˆòtgœÞó^ɽˆâÁBbµÇ 5‰Ž¬7ÿù8T@TÓœâòµHû›[ ¾s>}TlÓ¸}”Å›?IyzÓ€H“Dƒ¢:{ìÈDö÷[I *ÁyÜ?'"BÝb©—÷<—w Ë0u}AÄVÑM¢‚"Œ]f]ú×¼K¢ïUœù³¹ •â†+€ÕÜr¿Ä!XÀA¬–ãY¤×}ÀÕ6êU*©PQPyÌt‰H—æ´Èú›[ª¾s~|ThÓ˜}”Í›I¥b•Dš4 ¢,{@qÛ[Î. kDÆ~wh¶DWºÎ†»÷U4zé„žFñ×OuâÌq¡>%/<óQêÕÖr@ì"ïœñ2±â‘jívÕ~WbVÇÁâ´ß Yl3àtÕUÄnÓ«>ÔÑàò¼ÚÅgha)ºœµxø›@ª¾s~|ThÓ˜}”Í›Iåb•Dšn ºcдÁË\Ú³qŒ5j‰‘}Tq~<Ý0£Ó+W«û8 2Z0¶¹}·æÊÜà<'*ºÅÌ&Mk¤Í8ýpÙæ8þñŽ}ŒÐÿÙ;ƒž¶‘6ŽË•x÷P lX‘†¤hBQJµ(ˆDÛCˆ­„Þ[8 ¤%ªPjH+q –KTqÈž¢HHˆ/À5z%”/Ÿæ±ÇvlgbÇñXü'’‡±óÌ33Ïß3c{CÇ/ƒ‘²ÿñÓ*MAÍÍMò+5‹ ô¼¿Æ黶j3ùC…”˜™|•|›1Ë+fÉÆþø9›(Ô2÷ñ­øOgÛÔQI792CÓJÔcA4¼?‚tº ÏöüÞ¥…È@‹M{³¯~ûœ“6:(¦~¶Qëß6´§Œcx6‚h¹õPÌ·Kù=i)߬¾ˆ2 "y-K¨”›e© üÎ ˆ®–:ûˆ+eR¨'ˆþ¢ÃA»˜—Ÿüø{ÿZ[ÿyÆ…xGO_hËï|ª×îZ²'­¾%@ÙÁ‚¨Þ.>%¹f çZÉòT¾‘UòäÏórpjÊÛ@›3,ÉÆþø9›(Ô:Ý£ófÃM9s¶÷J íÏ…òÊzé±ó®ÖÌù`‹M{³¯~ûœ“6:(¦~¶Qëß6´§Œcx6‚輿K|gD)©W„EMN^V´§Ñ¢X*¯~7NôšŸgl=ªg¯…Æåï×G!ˆÔnžr›Ö©ø†/ÄfïÛÆlbÀöø9›(uî_dû¶‚X<±h”‚hhú ÕÎ,6í;8îsNÚ耘úÙFm~Û°žB0*A4ùó²{)ýÍ$ˆ&?Ö:çÈ4WözrvòçZ[y‡Ôçþ!ÓóŒ_7äË8áîmÿK‘&´8:A”^껂¸Ñîø_ÜœáÍŸW×åÎoË1‹»_àcäl¢põµUèø^j, ÑÛ{¤+ïÑ°þ\å^Üt#V¹ŸûÉb±io¶uÀuŸsÐFÄÔÏ6j÷Û†ô‚Ó=DθJ}\ÝIœýgˆ"Ù¯sñ¹…ÐߺNIwq¾ZN\Ÿ‡_ê<£äŠü´\Øtš__\7ŒXW*¯(ŒçØ{Ú< õb!xR['¤ÖþáÓŸäÓêæûO£ú>FÎ6 3{?r×›!__9¬?“â÷ÛÕƒ“œ‰GÖëö6Æ:ð¿rS{†òÔÙXA ˆ¼"êõòäfA‚"D@€ ‚D ˆ€ A" ˆ@ðÌÑ?ñxü=FDü@¸¹@€ ‚D ˆ€ A"øDgétºae”ÒÑwtX"yaÊ¥¹p&ˆöAx°2¦…­çÐÃ÷žvV6²#*óúióúh‚(U£×ˆ;)ñð€÷®ÊlÓAçâøHœßŸ¢ÃY¹W攚fsI1´FÇ»ª:¥FRsæâe$+¦^Ð2µ?þXZæõÐ;WKS¹Q?•/¼S]~;«·8Í4³Ët«E õ/Wioè9tÝ_–·`žR¬-üEnÀy$Á{A4ZOÄǦŸrîé€øxÝF–É8tiAnÏ@½ÎM½¤×MÊUX¨f9áËXæ°,Ôº>БvN½&%£Q¡³†¾L'7n»–cáþ{÷ïÍŒå¼/þ°-uC†põS˜ê¡VÔãÀ9ª·²fk'•¨EÕrI>Ù.»‘xÖª¦)ÅÚÂeäìÎsLC·ëµ ­§âcÝO9÷t@|ç<>çÞ­™ØÓAññº®+Ëu™|I¨?v6ÛýëÐ‚Ü üD{—Ó­Æbì:lD4;DÖ¦ÓkvAdz4ù¡ô›òOyV §‘c8Ï‚·‚ȃ>ç*>qÃÅ ÷£‹y|ÆÐF;³ÝD£-‘veAn> ¢£ŠS’ÅÞZE³‰b_™ãY“W rmÝMÈÖ‚Èêh 7ÛTm¼:¼×î³uY†~¿Õë6,éÐÛ¿ÿì_ѹ0è&Ÿýa;Ú!ÕmuéIÞªLoŽœÇo÷ÇEöz›§_¤R4œ×?˜±b“êu‹;cJ±¶ð9†óx,ˆFßçÜÅGÛO1º˜ÆgmTélt.õ ôÅy7äfà×"ÍLÍéKwZAT讓EÒê’¶‚ÈêhÁD·_0lf,s–ÑLv§ôE£{¬ûžz“= ¢´šäǶ£­è_ÛX“ßÖñMžsîbQÏc8T½…èÿVNÞÒÛz÷ÂÒ óF³V*I÷ˆBUAH‡:Í;Ïhá5r çñX¾Ï¹Š®Ÿbt1Ï8ڨ̴<¼nr[ÈPäfàß]f½+ä›ÞZ,ˆÔgãÈocøÏBIDATx`DG ¦ Ú1<ƒd‘á!mŒetÏæ¡39õ“¼áª÷1»¸¸XÍÓ]Zçɶ£=…Ñ{‹ö½é~¾¡n$«oy='õv&ßû›‘e‘f)bY·3®õŸ¦ÍRŠµ…ÛÈ1œÇcA4ò>ç.>†×ðñ?º˜Åg,m”Bp!eÅdt¢9äfÀ ’÷DïkQoÅkºÿ'9” Ò-˜‚èÀ°à7òùz$eè¼I~^7™Vî&àc9íöîЛïÞèw’âʦ£}Ð7’×äc“î#ª7Ëò;™*=‹ž£z;¬*…Òº†©èî¸Ól§ ¥ÕåNCJ±¶ð9†óx,ˆFÝçÜÅÇÐOƒ0º˜Äg~ 99§\rÈÁ{ †BÈ?à«Y0ý|ë_óhä7¤‘ë%òòývI3IóÓÛÌŠíá“w“çC/sbt°ÿÍgGZÕìƒ?öŒ¬CàÌ:öJõè{šê¨´[yƒ¤4*ZßœÈñwqƒª›«õYoÙiôJ{áòöèíçý⻞ùùMÎz áú£k—¢þ$½-à{bDQïs¡ÚǾŸ.ÃÑÅ¥}’ÙF'G|s ÖÝCÛ¤wü„¾iD¿É¨iÛnßÞ-ý¶ì(®+D91]ÙŠõ_ÖÄ]šJ÷ò²[Ó´£t¯QßÜ|Ø»šSo÷ Ëu…H<‚a}+æµ6¦UÚ]°ã–ÙÝ×›ù,uí×#±Lå‘îö+«Gë#ð-˳ur—¢þ„+DÉís¡ÚǹŸ.墄¶Q±Ëmu'Þ3mÔÒÿ„¾÷ˆJk¯zƒêèªÑÑä@d}¯Ì9–‹"¹––ò@´^´Z÷ºcÿe»ü¶evÛÒØͦíùM™ÛÒÐíÜÝ Ñ[7ÂŒVm}‚”vd›VUŒZmYH<>pGË-¶ÞÌÙ2ëÇFŽŽh]Ñxh‰Éeƒ\Ãò2šÔ¥¨?IsËøž¨Q"û\¨öqÛOÓtq´ORÛèøëÊx ¢§;¥0ŸÐ7ã¾ѷ͆ۀ‰Ç¶¾jÇ1‡k R”–ò@ôJú›g/EÅóHVÜF:³ß)z2¾£Ýü£‹Ñ×ÜÞlÑÅáo /^ÍÄß2Û0êtm=þ‰×†;æ?7³1´ÜBëM`üç–;ÊÎð}{þMFS^m¸v)êOÒÜr ¾e–È>¦}Ü÷Ó´]œí“Ô6%úfÜS *ÖÆZ\ ëgý¦ˆ¬#^œ;Fr DªÒ–3­»Œúá÷°ÿ2â Vuy üÃÞÊÎ_ôñèk}e]qªi}”öÂ~Yñ«íº£X&w ºÞ¶Å£íÓwí_‹—^ÜWγÙ=³¢t‚níRÔŸ¤ºå|OÌ(Òš†jÕ~šî£‹£}ÛF DXþ@$î"k£ÓŸãSD[ßöÈ/)K[Î@´ë2.쟢|—#77W½ŠØSMîj>SbîŽhëã_šnDâZAº)%wh^ò_=\omé½-åÜRåiª[m[û?3ã„[üÿØë“t·\€ï‰9EYÓPíã¿Ÿ¦ñèâhŸä¶Q–>m4æ³dÆ3|[‘u×Ë;&¡r"ui)D­æÃæÜ8fºñ-Ëg,¯¼h9•&»°zhÈ…ÿ¶;.ã[ZÙ1©ªø%뢣°HÕr ¬7½¦iÃŒt;ïPyšÞžëâÂë“”·œÿ÷DˆØç´O€ý4…Ggû$¸ˆ°ìHœ:7ç§9][6ÑžãOg R—–ò@¤r&Í-ý§æ9Åg eZãˆöÜ»„®±šÜ‡Î9p™Aåþêã[ÚÀù„CÝ©z¦/›@ëí‰íê•bF¹ñ£à· w6Iµœÿ÷Äü–Y”5 Ñ>AöÓô]D@˜@t$¿µp-"k ^ÀyîˆÔ¥-i z!½.òÞßá–Ù¯«à§wÔÃC^!Š¶>~¥‰CóÐVÚ¯ÒKâ’­;ZoëÒÐìã@TP­‘?îl’j9ÿï‰;EXÓÅÛ'È~š¾£ ˆzÒÈôOlo™Y. ‰§aYŸ@¤.mv¢¦/S :–:Ò#fôƒ­ŸzðeÞˆÞ|Þ$Ñåy<$„쌢­_i]¦=iïáì§BM¾/—õæ¬iÎv©«š}¼?픲ã`(þ_òú$å-çû=±¢kºpûÙOÓwtqmŸ·Q–=奧Mö@Ô–ºù%3—@¤.mìV¾<°ŒpR›>eø²â¸àQãwJA—Yoù 5’wv&CÐfì¡ø«u«ÊÇߊ.ëÍ¥¦ú•Ñ ί‰þ¬(ÂÚš&MÏ&]U¼§Á‘±gMNP¾»LÀî DêÒæ÷KÞ-U ‹´Çú§¡sXå·fÏ.óÄ8æT|f.‰±g;ßféÈ:bAܶlë©©Oi§®#ùˆ±v«“ÁO¾ˆ òrq´›ïzs«é¬gßbЈÉG–WoNFŽ¹’èl’j9ŸïI E[ÓÚ'È~šÞšˆ€EQAŒ?קÅúãÜ£aDÚ­8›ú¢ãò\Ëží!T¯Òæ;smǼñ¦ç²™e NÒª{z&»/zÕª-ü0×Ñ`˘]l7/™ ‹V0ÿ»Z¿SÛ·Õ|ôÝœlhãdS„ÒÚAjêãSZIt+.ïðŠ ‡£íRFÿúK%¶¾Õw½¹ÕÔÜ|Û{bÃÜ=À5§gçÍÊà|]ü°úà‡ø£G“ïl’j9ïïI E\Ó;·ç~šþšˆ€EQæosÊñá™9åSý@Dçb—»iwÍ1”»³N`ûrÐî^V®6«õÛÞäΈ²4Ë=3­S­WG5íñR¢Õ+³–7怓‡Û§ã©Ñ/ƒ-sìòãìòÈáMû¬Ý¬˜ ^ÈG?£Œfw2þwå"=õñ)í³bZs~ ­Óרþ>¶žÆs½¹Ö´5^ÿ£êµùéõ±å>ŸQÆáh2¿Šâõ£x;›¤ZÎû{’DÑÖôÎí㹟¦¿¦"`á@¤÷ç{ý`C?´¢Ê§Âpöáp~LÈ;“t£,mzÞt,’vÏ»³¿¸yâ¸3cþ{>Ø2ÞhöOuëȳ}ù×›oRTŸÒڪєrõy…úâi5ßõæ^Ó-ë¼3í?¥ºÌÕs÷ÒÙ$Õržß“D Š¸¦)DqÔ”@,ˆ2™ò$¤tÏu³#™¢v&S:½Ï°õ¬” ˆ”¥Íšž²772Ëa÷yJ¦]ýâÆ_ÌŽ¨5Vƒ-$5zò z¹w=ýÝÎà¯Ršêãý‰xläzç"£«ãm ]Ž«Ñ|×›¢¦«ù›ÉöÙnY®]ék—µiiý½ûêlj9ÏïI$E\Ó¢jJ B"cÇû}¥µ¦zûK¹]¼8уoËž¥å}ûoq¥üæifydUPv_…ü|.è2YAŸ‘ úÒ:ÿ¼÷ú½ë Ý*ž·ÊëïÓVßÒÔ¾~)¶ÖVãm6ïõ¦¬iaßh‰ïŸìÿ\*”‹­ýuýß°%ÆÒ¦)®é¿Ûc?ýwÕ4µè›qDˆ@ €@"ˆ @"D @ DˆÀÿÙ»ƒÄ8€ã$倒0rx0Ñ‹‘D©Ä‹<³!Á˜˜˜¸‰—ÞH &â ,GÀè+xßëž}š§…ÒiÚâÿû¹¬0ÎÐßÔÎþ:m²¯Øô+®X°FšßhÅ""€ófù½­XÀwô«{J7€¬y/ÿî$ÒZ¯]54›Yn§p£V«Y?z—>Úæ••üÐ;üøéô»óŽÕŸStg§(5]Õ-h­t¢MTSíŒ}{ 2–é…f¡¨¬¹k;‘²’„â‘×QÜ;jû-õÞI¬~Z¤Y>‚¬ëX-•¿Æ™ÈÉ~³ÎSÄû]UŸ%oíÒðò!­MBä÷v]sºå~érbÍ4ÍÚÜ’m»±’²ùç(ŒG^gqkçG¦ù+Zw«í·”{'Á>H3Ò3 ¯"R…ubÁj÷œÚ:q¶ Ⱦ‹ªÐ %*"OR6C$o­b—œ5‹ŸŸÖù胄ȧsäí›á B=QíhnÉ»äRY‰üsÔÅ#¯³¸µc‘fG¼Â£¶ßÒí$û ÍHï‚cØžŠHÕÕ‰{«ÝsjëÄÙ6 óÎO‚c‰öú…†aþQ÷q²Özö'ÝLôHÆ"Ë{Å0ÝSÌÏå+V¥;Òã”T£]䌼ÎÂÖ>;oG¶Õö[ª½“h¤ée섨ã}‘®aÏ©¬oÛ€¬»‡©Q/ý³Š…Ýü‹¦™37éJ?PÒš8ñld£K²•ÚûD{)œæú¥{û§ßË×,Û¿^ÎɲϾ²ù稊G^gak÷Zœa[m¿¥Ù;ÉöAš‘îØ/÷o=;*"UU'æ¬|Ï)¬sÛ€¬Ë‹ÙÒéÿÖè)íØVy¯æOJˆšâìÍ=«ü{%½\1OÝþízðTuØT74ç–½Ó>¼‹]"ÿÕñÈë,j­$îŒÛ‹>l«é·,ôN2}…HwíW±Ž¯h[T¤*÷œú:q· ȺWûÏ: ?ü²·£IB4Ë>3&÷Tu"ɵìß¾ ¼S‹Ôßÿæδj®Û¬‹ÙÁBìù税G^G^rz+NaߢÛjú- ½“Ld!ÒcûU/Öñm«“ŠTåžS]'þ¶×·ÿª_³°!¿¤¯ü¿¢ q-À{U‰2î·gž×{š,k`jµ—ñÏ£Ø%òÏQ¼Î‚ÖÄ”ñžëF¶Õô[z'¡>ÈB¤bº"ÞŠ®íOµ®=R¥{NuøÛd\wÑËÇåؼ)¤Á{þñqTšüÊ›sî`ÿ þ½i¶ùRwÙÖúÖ?1kÛÿ‚‚l¤>ºn´Ú[…·àûzç)ßÊoÏ h°uݸÞcÕs8!ìæí¶vfï†Ô/K£½ÛãæÃœ»Á­ƒac°z ÇD±emËþå­™3Á°Vìùç(ŽG^gAký­Ö±÷]ôa[M¿e wêƒ,Dz if¼,ÒV'©Ò=§ºNüm2N74íJVXñžÍ•Ê¡±qg’^ roõñ’BFãæûÖ¬ò•¹pœ3­²ï-jd }§±ýQmüö}h6j0‰g¿›k¢ËÃISÁ¼çsûÕÛäÃQ(‹Ó¯Ô,0<£´ìWÏËV-ÍLºu;ïÛíVý˹üÑjo—:ÝØ%òÏQ¼Î¢Ö¬Joü^Äa[M¿e wêƒ,DZ^0ŒETqxG°Â=§¼Nìm²îeÁÓîò„hçK“%DëlúîÑàÛÖŠßxFvÚ’´fÝûÞ®ø'|:ÓµÌε?!Òo}uÌsÿ†Ÿ-zÒwà¼y³òþ©O}íÜñ~ÙªçöœÏ+øã¤wçŠJ䟣*yï[»‹>l+í·4{'Ù>H5ÒaôG«âluR‘®cÏ)®gÛ€¬k,¸fV]7~ç$DE‘•›‹wgbåðvÛ½4%¢½+{À¬<¶*μÏPÿ®5«î*C÷ÇúîJõÝÌ˸?:óAÞå±çeµq{ >L{™^Ms ©6Zû¦8ýõ'D¢¤Vi<_‰I'cú„È›“Uë­ƒCç§Ðb’–³½UwÏg¨¿ªö6,{¯DQr¿üÀòѪ«¤Dþ9ªâ‘×Y¢µbôa[e¿¥Ù;ÉöAº‘¾jÚA¼#¬ã©’uGºŽ=§ºNœm²ÎÿÏ×Ìdôç$D" úåþ(—¿ž¼ßu'KæúÎDMáûÖênª~t•g­”~¡åe{}q+è¡{ÜwªAD õêä:ú®;÷5IˆÄÕuÓ½æo‰Kgg^OÄ,Ó8ᱞ+ái*SÉwÀC —ˆõÐî–Í ///ç¬s*ΦûvrXÑ”È?GY<ò:K´cØVØo©öN¢}r¤'¾QHI¤Êê¬r+ÜsÊëáGÊ;ׂÚ#$D"﹚Œˆvšðõ7yGÉóìõòõ'DbúW»ž3^‹G)*“Ãþ³ê»¹Ñy¢Øò½ð¢ž™“i½âÎ~aø®ºÍ|`áH{=WM#”í]®Ö䵓¦>Íy°$NIñÈë,Ñšºa{ãz'Ñ>H7R1¬TîMó¾<êå²d¥#8ËI ~¢¾»»ñ\ЗMˆJÓ "÷qÜ‚?!òR%ç²ÑYÒ QY²ÈXß´ƒœÞù\4¦×ò÷Oïû¢|àñ ±ˆˆ·÷Ë·ëœ*ˆ¦Z!DÜÑô°r‹÷zNœæ‡îˆS’D<ò:K´¦lØÞ¼ÞI²RŽ´ç¿›Ïh¼eh|]é&!¦·ÇdÕÚ½å¢'ò"ømBä»ÈœYdí ‘HÂŒyÓ]"‹;%Nî Þ·ã7¦cèÎ4!ÒÍàe¯ªï?‚߉¬VTÒ‚×D†¶Ò7ËõÌqŽ'.ùn‰S’H<ò:K´¦jØÞÀÞI°ÒŽtüBÆ£ì ¯+Á$D@âîêÞƒå½e¢cÿ½Aç¾ùs'!ꈿÉ&DMÙ*ô¡¨éÏbâç0¸‰ãT§ºãüÙ75&:áþbÝ»¦uÚ«vSk2Ë%fÌÏóÅ)I$y%ZS5lo`ï$Ø©GÚ«—÷¶J…fÛY@;êffp]é&!R`åÇ ôœì.‘½û&…œoòÏÕB³0Ýd¢†l±—ÐŒNÑKƒD¾’3ï7·ü×sî-“ÿœëZ¹ ¯uÇ(Ÿ!Êý¹78Ò^ßõUKþ73DØ;IöAF"µýÝ3b|›3D$DÀ”þðlÌýã9)Lѳôïk»¡ÅSHˆÊ²{Å-DzhKμs¶c_É¡—‰ÈðóµÿÜõ$Ïòë¼p¦þ¢œþî.Õß:UP’@<Ù¸‡hóz'Ñ>ÈF¤ÞP²üƒ\ëÆ=DÀF´œ”èòÛ„H,ƒ¦ýs×›¼…ÆDBTI7!JC] /îo¿ñå¥=[¡­¶¼é¦°é×õö'k<>¬mŸ¬á)³TmðSf×;Yîƒ5EêêÙ¯YÛ°HIˆ€ øK9WõoS˜1sÒ¾;Õ­Ñ—ÿ„'üÍh)$DWη‡ÌꇮæårbËP[Á;Á}_îZ_˜ÙcÂxVM^¬qÔ ¯bò±Áaqâ‘×Y¢µ¶ÕöN–û`M‘ºŽ³tÍl¥#˜„HóükæÙ©¹)ÌȽÛIŒéìJ"Ù QΘLù¦ŒN¼¢íÐ5!YcWð&ñî/÷ûÌŒæzvHv[­¿Á`qâ‘×Y¢µ¶ÕöN–û`M‘º ¡‰ê‹”„È„úÌâÒóS˜ï{MÿkïnVçÂŽâÂ6d¡èbü]ΦX¨ƒ›º˜eŠ` ¼Pha6î¡í ԥИ[pïvÖ^Íë‰Æ|˜˜ØkRÿ¿U§Ä9kªû9!W¾¢T}½'žàmÂ÷–¬f[nv✃ýDjÇ[It¤D@Œ7¿û—0™¾Ò¿,þ¾p=+ŠAAtïéîY+xÖëi¯µáyÊo¬ ¢\´¾÷ÖõþnIókeç}½'žàmÂ÷–¬f[nv✃ýDº”ö<¥J^¤D@Ün¼µî[¼*Ê“Ï,Ž1(ˆ&AaÇ3Rh¼~¥^u¿瘇H,è|áCÅŒuÍÚ^NÈ™ë-ÝFœ†‹~Z<ÁÛ„ï-YͶÜìÄ9û‰téᣳ$ÅæLAÒc¤GfbžôɧDÝ×èc–ÿˆÇW~3n·=½8âY~×ü©vẇK;–î¨.~ÌFøT}o/úþu­—Oø˜ê(ñlžíàmÂ÷–¬f[nv✃ýDºTüðd]»·;r#¥ âp‘_¸—, (aºËVì¥ ª‰‡]ùÈý/A}Ò%{®€UÙcÈ¥kî´GGA$îîŒíî_•fÿ¤¬2YYœ«Ö °~‰…Äã{¶ƒ· ÍNšm¹Ù‰sö©I¼;ÿørf;¶;r#¥  1vvlÜ]mšñ+aDo‹Þû¤‚(§xVHÛN›¢Ûçµ™£ªZoäÿ-;ºÂÄ&Mk$ö©sµû¡è"ÊÛ!hmkRï?Çìws÷šgÂx±Ï3 gHveÎKIÖ ¸ïÙÞ&4; k¶åf'Î9é7Çí™ZõÌ ýN;¶;r#¥  ¥(ÆÏIýnªõZQ¿(}O¡3õÌ>mÖ æ$ÍWףѨTüvú½ òÛ[HA´œñ2rHóØÆjíD멽¿þÒŠù†Ê9ÑÿõrÖwíR<ñº8]´YÚßóEãèÿj‰ôÇíÙImÐz½/¯Xu•þú2ði£¼Ù6ˆc•¹ŒqEâ²T_[úzs–¨ÚÿÙÞ&,;Ik¶åf'Î9©ÑÌçTñe›uÍ Ÿ$¬w¿k»#7R "à ‘ÛÅúuUÏWFÕåúÍþS©ò¨¯ïÃÒ®Õ¥û·ÃЂhÛÞ¶DËÙ£O´¦¯kîY‹dh> kφù‡¼Ý‹43Ìÿ_*‰i˜*g΂Ùù*/«ZQkùÛë|e¹·‘gn‘7gGÓ‡ÌÌEÓšUócʃÄ_rÛãñ?ÛÁÛ„e'iͶÜìÄ92#5VÍÊê[Z–1žo×vGn¤DÀçëxê¡ŠÝ”d7gi¶Š¥Z¶âþÃЂhËÞB ¢å!vvj>r’:W«ud‡_ã¢ÛOÐÙÞf{v’×lËÍNœs /R­®[ßÑ‹b]Îѽ£Ý‘)p³VzÒÈeÒQŸïtmOÁ.(j)×{¥ò :—·;ßóõê™\¦þ¶ÑE3lgrÙ¶ÏØ­›É½þ:ý绳^ûµ‘{í|‡õ Ï~J«_45ÛH«Ú—¹ä¶Äx¶ƒ·!;IÍÄHkƒVº1‘™‚wµ;2#ÏŠRuÕ†cÁ{€#0Øxâ­+J“¼€#Rßíóè^¾à«Á>8!f%ªpDÄÚ<ÇèÀš¾± ,À÷,æ³^f¯eÅlôÆ´€cb.gÑ,\¦nS—s^Ÿ²JVÀq©—Ý3,>È 86Óï#{.úŸ-ŽÒKûµÑȤUbï ÜÓH0Ȩ}IEND®B`‚metafor/man/figures/plots-light.pdf0000644000176200001440000005577514661373527017130 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20240821161903) /ModDate (D:20240821161903) /Title (R Graphics Output) /Producer (R 4.4.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 19475 /Filter /FlateDecode >> stream xœí½M“.Çq5¶¿¿b6vaqÔõ]µ|É_[tH$ ‡¤ \¾$u/ ;¿ÞyòdVöSA3ÒÆ‹Yðg¦»¦Ÿ§+»³Nå9™žþö)=ýåé_?üõ¿ÿï¿~úæÇéùº®§û¿?~ó݇ëézùüT®ùÜÆÓŸþøáïŸþõIÈßôã€xúNIë9_Ouêoszî×SÎù9íƒö_¿žçšO÷ñ×ùëßüág~ý‡ßüïòÓÑžþŸÿøÏr‘ß~HO+ÿûˇ¤ó»üãc>Ïî<åçRåoxúµý:]å¹Õ_ø}žÏ¹üÂï[~^é~?~ñïþ>_ù9¯_ø}îÏküÜï/½G÷ñ•ØYµ=×õôù©Tù¶6þôôô‡ý¥Ù­“øõå&ÿ½ìf}~2øxæùu†<Ü„\Ž— !úùC®ù¹·§žŸ¯ôôIàÀåð·Ÿü·m>÷)ðOò©~ýÕ‡¿þm–¹ùÕŸúž`úÂ\ñ¯œ!_úWŸŸþñ‹ßýÝ·ßþÕßüñ_Ê|úâã7?ýøô»ï¿ýøéË~úêo?üÍW˜‰÷™ôs_Û/Ϥ|­çrÅW3Êséõ›90Xp/x@ÉϳÄoüì·?àþGãâ|sM?w§~ù‹•@¨(òMd|³_ȯڗO_ýßàxW0K×ÃÉùõ'·ô\óíäôê3‡DÅýÏÖWŸ)‘$œúsᙿÿóÿòôû¯úó÷Oÿôŧïÿ‡|a_úøO_ú€oxšýg'™DZšO³=_7X‚D‰3À(Ï+ãƒý9U;ÀNñ Þ(óy\Ok<—sˆðá€þœ»NSÂù\'øfØÈý}=Ë£ÚÎßPGÿôx0£?×ú¼ª<”×óH 7È°} vÈÄ÷¯X¾Æé_”Ÿå‡¾’"4Éí»ô“Êsr,LJ\Ï«áÇwÜ®ÅÎòCß) “;•ú\w`WLJ¼ ð­nÏ-Ýžõvˆãû! ñ›jU‘™3?Òž{±ïE±<”›bgíC ßIíyÊÚ ZB©8~†¹pƒùÕ)Îx©Û²³üLJȈIgèµ4y,,Ç‡È «Û(ŠëóœþÕÙY~ˆãÛ!Y?m’H:½K×o—øñfÏyÇiˆ}h;Ëq|;$U<²D@ív§åþ~É·¢ã7ŽçÌõïO®ëmß&Å&×o-–~øÿ&ß+.øÏŸ?ÞæB}kPå’àRo7«Î×^¢¦"’»eÈwuéœ:Tªoj_()*C]°½ýª‚d¸ÀÚ”¡Þ~U›aøB9>ÜÁŒ˜Û›‡Ú„>`Õ;¨°¤·uã.ì.à»Òyµò›‡ÚÄA|íú]Õ7OÑMpá ‚Xô»zsîÏ/tS7°â¢FÌгIÃD·À †›ðÓ†ýy…<ØàŸžþ(?š àWÇžÏgÝMÊÓৠ'^ÝŸöÁõüÚ%õý(câ.ÐÚ†?mœtÓîÓ>Þ±Ž!ßXaæ(÷@Æ(®áO%¯%¶ã ó:ªnkýâ°­;v†?îºKÇæw‘0#ñÂü2v^  ?Šn¹ T{¶{›³ãOuóüSoØ¿S91Ú’Ž‘@Óþ´1öñ–}§8Þ±§¨láeúá;M7ü)pÕ­…8Þ0Æ°Ú’Ìý «² Œ]„òÒˆÜ"RŽò¿‘£ü·ŸþôýÿôÅÿôåÓ×ß}ûô~ù4Á\~ýÃ#CùKCOÝ팱ï{Ûÿ¸Úÿôô›ÿíñéó ƒá}-ëuL÷>t°¯~ý¿¼úä‚×ÌãÉ¿zõÉmé#ô?÷—§&*ÿÉ¿Œý-ù{Ã6—óý|ÿ7ßüù»¯úøí«oF’A°…±šït|÷Ó_Ê´~úâû‡•Û¹?[Põš»”t=^ 1Øywäyùâé·ßÿðñÇŸžþîÓ÷?Ý  vìw¥Ã•P1ñXÜeù_»`{óÇëUØRGüË롽®Fãþ*a~5nW9p€)Ŷ\$ʾþáÛ§¿ùá‡ïxÛwp¯]Ó¿ÿâ³ýâXC÷_«±¿[Ö7¶_rÓÍv} ½<¢hÕ ñÃ!W±Š1;„ø~H’ "ß1üpÈÕðØCˆï‡ðêö·‹ý/N—2¶Á[‰ìígWL¿pnº²…<Öo=¯Q?ùgz¿pr¾vLJšõÖ“‘Xyvýg&±LÀ—埯ž€~KÇ¥¯Á—óoO ;âg¦Åž\~ÈËɵ§¨ò3StOt?ä6ÑÿƒB×Êå$’@ù å£]ùR(J ¦*€¨wëϳ*LÈlËÐâ!…¨Ïy”•…‘„òJ8’AˆlJ†Y&s @ù‹,iVѧ,`Æ÷ˆ*­eP^+HW’AIXCX`­e½D)ÝÒ{§p¦§z1m”l¿ZfZ%Ý–´®bégP²@?Uƒrë®nPrUIªÒ4(Oue” Ø}ä1Q©¥pÉüͨv¬Xå ÌÝ |Kë4(_xe¦PþDÕú\BI%_NÅ`× Ìâ#ËíØ|dùª^ áÒjÌÅ‘dY ädPr¬"ŠATfVðV„ryg7(·»2Êí®ºš ”Û]YÖ¥p ÀÁ‘»…*C(€UT7(o5e”Û-°-ƒr»ÎdP¾¥ª„áÌ€ÙG–?!°rdØu°LPn%J–AÖ¾¦d·{âbq»§V[)ìZÅ:|ä¡U¯ËG–›UbpâòZ N$èuqˆÛ½<'n·< -'¾Ã¦‹VB¹íòÔ h—ÇàÄž«ÀÅ‘óÁ…Û"ÂnP¾%m”Ÿãá¿ ÊŸhÙcpab Ì>²ÜJÕGž °ûÈr»N¹hô±˜Pn7ÞoÉ L]­”›%p4ƒry­X ¢DV>Qµ(·»±Q¡ÜnŒAŽ1ˆ½«…§úÕ Ê`ýÛ Ê´oÍbP $ºÇePpËG–oIV&ÉG–Ÿ7Ý~Ôª,ŒA¬Ç: cP Üʦ/>B¼z†Å ÖŠ1ˆµ~}"FˆÛm o@Üîi1(kW¹YËe0)áÂDÍ¥Ö¨3–¡tL3ˆÛ½,‹.ÇÛ²ˆÛ½ò„r§,Ó™3G–»£µñ¹”çv¿,ÊíÈ,ÊY\—A¹Ý=Y ‚%I€ÅG–[ÙõÖÊÅ d -ñìÆÊíîú*!”Û-1(P¾ánT  Ü,³”Ë“eÆå#£Ú¿X ”wœÀÆ‘;žêÜ¡$”ïP cP œÕ+×ä€r»2 Èg@Æ ÞË púÈ’‰Éšëò‘åI%1ˆ×t¬Í Üî®+EBùþZ ÜÊÞqkåâ{'§(ù@ïƒo@ÃG–ÛÝUÀAˆÛ=<§Þîá1¨:“n\ …@‹A]†÷é18ñTïÓ $ °úȸÝÓcPçª@&Hä2–Ç 2Øœiå£õe ³ƒ ·{\ƒ ·[`ö‘Á‚\ƒ ·R c¹Dd‚!Pr†‘,ÊP c°*_:’%È4 c°ê˜—,·{dRQ€KÉÆ Øœ¬ÜÌePžêg6(ϱQ,‘–L@Æ @¹Ý Ó†A¹;»,7z‹A$-r/ BÉ2%‘ØȬúF8†Aùþ2‘ÒÈPÍb°êÅ ¬Ù ä £Y ”7 Àé#Ë3t5`Á7<ºÅ #ƒUÙa#” ÈD:$—1,Á5.Àâ#ËsL`ó‘q»‡Å $<¸Ý_>!n÷´C`Qmc¹Sd V¥ª¡ÜZåý(kä#ËlËbõÿ  dV1‘Dd "ÑOó²›5 1ȼk^ƒ,‚8}ds&‹ÁªËÙG–Û- ²² È(Œk6(ϱ™-ÁXµ1(Pn÷̃UïŽÀá#O¥õ/ûáÅbJ@˜`T}? ´˜-¾ÿY-Á(qVÁÛ-°ùÈ2³Z’/Pr†Y='žù³y NÓ²0ɯúnÍcpâv ´œ¶3Á$¿ê4˜}ä¡*–ê#KÎ0»%ù’þ]ºa1¸0Wçð\z»‡%ùq»‡Ç ’Æ-rËG–÷㜃K+6§Å`Ógàœ–äcžƒM÷³æ²lº{!I>³PŒA’3>²<å.YÆ\—Å rÔÈlJU d’ß”ýÈ)k}ZÉbr•,™Á®d wV²D­œ>²\ÏÊ–`4Õɬl1(Pje‹Á¦›×+[‚t·2 X‹Å ²ßX}d¹Ý ‡|d¹ÝƒÔ½p;ŸPr†U-›fƒ%®Wµ©rd d)Hò‘åjYVK(·{5‹AI†/­£b "‘Ö2&MåÐ5eƒrwV·lz=™ä3Í8}d¹ÝkX 6]'Bå#C15,%‘Nªßb " Ï€LòâvO‹Aää1(°éþ“|¤è púÈ’3¬e1ˆŒ½2Éoú6YËb°)I²–Å øÈ$š ìô_„Lè…‚A n>¸rB—Å¡à•3‘òCð•,Õœºb EÕ“[,L%`fû‚[QnÏ¢QW‰Â[âaÜŸ/sØrâ6[DNÜ|‡™ó ÎM1,$&…ÅËp£ÐØ¢R·¤ÒU-çÀÒ¢*Î>þ슫ÁÒU-íhú"¶Ð\H%À©Ylj.ÌÌ£±äR°E'·[xª¸xùøãuP-ùN—Sa[{‚™P²ÌíÕwΆa S3éçƒóa\Óè6±¯óaXÒuYŽ(Fj×700C«ž¡˜‰ˆ`lÍ^Ί Öùà´ÖA…ÞÅ°Î'Æ°0šŠ»¿¸+Ä%ª×¨&dÈv}3f»ÒSÀ\tÍDµ‚뼶XLeÝO>þà¶xññ!žKN‘uJW“sd²dÒmu'É°Þ*Š¼‚1’Ód]ÓY`†o'UŸœ(Ê ×ãLYׇ/pññ±Õ›œ+“eæCr²L0æCr¶ ‹6Œçt™àÚs€UÜPÌøíZ¤<}|ý&§Ìc>$ç̺2ÀŒß®I0W ºÍÔ,UéšG§ä¼YoÜfrâ KÁ®˜Ù ¶ð¦âéãc>$çÎd§óaXÂÒ­¬ÁÙ3Áy(füvê3gÁòŸÏ ´®\||ÓÒ–Þ9œCëóÁI´®ÙOâ51J’Óh‚KWlñ;01€™¼ôA«gÒc>d§Ò°(eIFóñ+á-~'CE±Å0”àÈ›áR[üê*ØâWÙm`®$ºЩ4×ÇŸYqöñ!&½ ¼páÀ¿KË*²Ój}mïeó!;±Öu)lñ» h‰‰o"ßåã/|>'׆:À\U ÍÝ€¿X/Ōߡ»ä);Á6”Vfü«uŠMð芇ÁHv’ kj|>gÙc>d§ÙKU²ólCo0ãwèµö\a }ðgÅÕÇŸMq÷ñu> ËpFæ|pºM°ÎçÛ†”3ÉŒrœìŒ”ºS1ãwèž”ÉÇ×ùà¤ÛÈœκÂù°,Õšy¢8ñ;ôÆ3~¥½ T‡aˆˆŠSoXÿÅËÇÇ|(ÉòÉ7™+µÚN¿!芙ïÎÜ”fü8(Wbü]3ßÕ+»?Xî4}|ä/`59¾ò`ªŸ†‘¿çá@34ÅÌw—¡˜ñ;ÔŠuÆ/ˆ‡¤¸øø˜ÅÉ80]ñôñ‘¿”fË¡d0ãwhÞ Ìø\¨mçJD°–g9%òb²\ë2Œü¥8)'ùKqVtFSÌøC·k‹órà7ðùœ˜ƒóÁ™¹18œšãÑ[üZQ“s¤@€³|¶8=N¤*¶øœNÐÉùà X’¤ØâwjþRœ£mÒùlu–Ž< 0—'C!`æ;CÿPªNÔ Íú-~EÉò¡ W`‹ß¥ùKu²ÜKU<||̇êtÝPˆT¯s)f¾#ùKuÆN0ò—ê”ÝÔÀLµX¾3uõ Ìøú"®>>æÙ+ḃê¼ÝT¥}Œ_P:—bæ;¬§fü‚ã±ÒÀaó¡VËw ã˜Zœ}üIUrõñ …™ïLÊ?ªxS¿70~gf©a·|g*ÌøQThô c>Ônë0GS-’ü¥:*)+æzeª¤>UgòÀ-u-mdüÎÂùà\Þ,œNæm*Š»ü¥:Gú)Uçó¦&ŠÀŒßY5Ÿ­Îè Öùà”ª¦˜ñ+XålNê Öêgõ¦ÖlwùKs^V×ò ÆïÔD˜ñ;žœÚ›ªI͹½©.`ÆïTÒÆP\¯€öZŠ‹|¶9¿'X0œà†ñŠå;SëR¿‚‘¿4çø@eÅÌw&˦š³|S™T\>>æX ±à‚ñ;µ”˜ñ;uâ3ß™Zךs} ×–b‹ß¡ùlk–ïÖjv§û@¸a<çûæ YˆÙÂÔÉòÜæŒßd9jsÊoêÄf¾3u!ˆ²Z‹_}Ð[üN·aùŽàÁ2Üáãë|pâoR3Ò¦å;SË?-~© nÎý F>Ëe;±Îgÿæâ|púo.Î+YFþÒœ$õÌø]šˆ£,˜ëpV&< *Á¿‚+ËŠ¹^;ýÓ€‚‘¿tçMkº‚‘¿tg—Ê´€¿Kyˆ¸¸^Y(ÀŒß¥ W`ÆïÒ0×++Qä|àÒH'&ùlwFpe/^dü‚„ÌŠ¿‚1º“‚`%‡bƯ`ä/ÝiAÔ'ÅÃÇGþÒ\šH¡r3ùø˜Ý©Á¥òÀÌw«RÜÉÁ¥ åÔ\j¬Ì|G0ò—îü `ä³Ý BYñôñ1ºS„d?¿¨Á^Š™ï, l`ÆïÒ…60ãwé‹,õiùTCqññu>8SÆ4)f¾ß깿 P»bƯàL-$óÁ•>Œ_ª™’”dóË$óa8_(ùËp¾´+0ó¥ `ÆïÒØ1~c>˜mḃá|!˜Ù¤xúøÈ_F¶õ ¨Ú®8ûøn Äñ‡æ/#Ûz><ô ²øÕJò-~•æzeé°Å¯aÀÓÇGþ2œ/ßÛ[üNÍg‡ó… €—b®WÀ'Å¿SçÃp¾P0ò—á|áR;>àæã#Î.MTÓp¾¤qÎ.-†¶ø]:†ó…K‰`‹ß¥ùËp¾¼rSœ}|ä³ÃùBÁ:Œ/l×Åù`|!°Î‡É|ùË0¾ùË0¾¸Q*¨ù0òÙa|!°Îã u>,æ;¥›Àãk𜆑¿0Í%Fþ2/VI¼ñ…ÀÈgçÅ|óa_Œù0/^”WŽ¯WåÄÉpfIü,†‘¿0í$F>;/Æ|˜Æc>L–R*žT(.Ñ=+qüB9sa¾Œüe_œÍ]kÆ|˜•ëàFk­œ c>Lã ‘¿ Íóñ‘¿Lã Û¥E‚i_Œ|v6®W€1¦ñ…À˜ÓøBàF9Ìj†U÷f|!0ò—i|!0ò—i|!0òÙi|a#1Ÿ¦ñ…À:Œ/Öù`|!0ò—i|!0ò—i|!0ò—i|!0ò—i|!0òÙi|a»:çƒñ…À:Œ/Öù`|!0ò—i|!0ò—i|!0ò—i|!°š2_Œù°Œ/lØhŠÛeóa]Ìw€‘¿¬ËãW ÓJ¿ZA¬ùN£þ¸ùø˜+yüê•Vf¾Ó.]¸[üêƒØâWêÀ}Fþ²²Ç¯V‚¥U<~'Å‹&¬Æ|XÅãwê|XÅãW« ×0ŒüeU_­'¶øÕ‚BGfÕÒ+‹_%¶ÔþÍÇÇ|Xù0ò—Õ<~—;Ê1~¹q¬ù0ò—e|!0òÙe|!0æÃê\¯7šÖ1~c>,ã ‘¿ð5HŒüe_Ø’–3~¹ñ<‡aÆë|0¾Xçƒñ…ÀÈ_–ñ…ÀÈ_–ñ…ÀÈ_–ñ…-i™!0ã7eÎã u>_ Óe|!0äA—ñ…À½*®>¾p÷ñe"i…?Ç×Ò|_œ²bƯà\3~“Va*žËøBàžh$ì㢸úøêÚ—™ï¯¡˜ñ›taˆjúkV^a¾\ªbÆoÒD˜ñ›”ø^ÕðÀç3¾xfÅÅÇ_Uqãø ó˜ñ›´1_Æ«¿1ß®E1ã75š_܇âéã¥"þäã/Šú¿I¢À­N]1ã7ií0ã7uªó•)QÆÈøÅÆÑ–9ë|Ìw€çR/FÆoÒzÄ|_œ ½—áLïF‹ßÁù0=~çÃâzXçÃòøÕ…€»6*ž]ñðñü/_-L¶ø:’ñ…À˜éòøUSI`‹_-NÌÉøBà‘ÅÍÇ_Mñàøµ¤äñ«åà­Xü.ú*_Œù²Ç¯)[üj•bNÆC’ŠÇïRãËd|aÃÆWU¬ë`̇d|aãFü2¿Yks2¾¸Ō߬_ððñǠߦù€ýL}ßf5füfUj3~³–,ª§j7\p=Æ·K1ã7'Jf»å;Y¿hàáãc>$ã u> Ëw².ôs2¾°qã ˜ñ›•Øf¾“µx¾Œ_M–bƯàA_Œêãë|0¾xuŌ߬Œø2ßÉZ¨2ýl¸˜$¸†§gZ–ïäÂù`|!p§eiòñ1x‰%ÉÙø–µ’Q-M«a™ˆ0'e¾“U©ÌøÅÆ_RÌø…ð¤(æz%kâªæ¦>þ˜t’öñ¥¹^Éú ÌÙøB`xIeã 7 ávÊõ ô'S1ãW0æC6¾ÂÚl|!ðhŠ§?ñùŒ/^K1×+YÝj¿Y‰ `Æ/7¹^ÉZÝûdÆoîtÎ6¾xdÅÝÇŸUñôñ1²ñ… “S1×+ؘ¤¹Å¯9æÜ=~µÊQ-Ê“á6ÔX×âWë‹?“âæãë|–ïäÉù0<~'çÃôøÕD˜ùNVâ0çéñ«åŽÀ¿7"çeù6>§âìãë|X¿‹óaY¾“µæØâW‹¡À·øÕªG`æ;Øâ—Bëryü*ÑnîLĘÅøÂVôEÌø-ZèÌ|§hñ#0ã·hõ£Êë“aÌ8ØÅøÂF;÷\Œ/FþR²å;EK Õù—ã›\ßøÂf¥Øz…±ÀŒ_\xS9?㳃ÀÓ0ò—b|!0ò—b|!ð¢g0×+Ek!s1¾8MÅŒ_|ÐK1×+ÜÈfüšÍA1¾ùK1¾ùK1¾ùK1¾°-^æz_ >Ÿñ…À:Œ/Öù`|!0ò—b|!0ò—b|!0ò—b|!0òÙb|a+f‰j|!°Îã u>_ظq¬VÝÝ0ò—b|!0ò—b|!0òÙb|!0æC5¾ó¡^–ï`£y)fü­’ToöiùKM–ï­“füòF3~‹.œ€»ùP/Æ|¨Æ6Úq3ß¡¤T=­“aä/ÕøB`ä/¨Ûo†‘ÏVã 1ªñ…À˜µX¾SôÁ–«ñ…­h½$\M¿E_äÀÌw ý·kõøÕÄØâW«M3ëê‰1jóø:jóøÕzI`æ;Eë%-~µ^ØâWë%áþÂõ &ÒPlñ«‰/°Å¯N,àéã#©ÃãW¤ÀÙÇGþR‡­WŠn4[ü.Îç ±±Žñœ/ÄDìŠ-~µ^ØâWë%§ü¥:_X´^˜ñ‹ø¡˜ë•zq>8_HUm®Îrc^EÝ—aõ²p¾°ê¸ùø*uv¾ú—¬˜ñ‹‰^Õ¼ñ L§ùÿeó¡9_Xµ^RÍÞ‹aä/ÍùBpöñ‘Ï6ç «>ø]zý3X ¹nÇg1žþÇíïiýäíz´~òv½Z?yûÕÊ>>ߪÖOÆ|DàÞç+ úm>3c¾W­ŸŒx¨úâŠx©J$E«Z?ﻪõ“ñ>ÄDK·÷eœþ>ÅÄl·÷m]Ìgü}\ó_×Å|Æßç,܈÷=#òª…J‘/ ãºåÖä[¾Ñ.Ïg¿íò|†ùJ»órºå;íb~ëù?ò¥v1¿õ|ª%æ3žoµÄ|Æó1Z}E¾FaxäsxÍ[¾×Ø)hçƒ-1¿õ|Ѻjì|²%æ·žo¶ìöSÌG[f~ëùjËÌo=Ÿm™ù­ç»,4‰|˜âÈ—[f~ëùtËÌo=ßn…ù­çãÝÌ[¾EúuËç[á|ð|¿·çz æ·¾^h…ù­¯'Za~ëëV™ßúz¤UÎ_¯´êë®gZ}\ï°°%ÖCMë'c½Ô´~2ÖSM¶Äz«iŸ•X5uˆõZSb2ÖsMë'c½×´~2Öƒ,Œ‰õbÓ§XO6-‹õfSˆX6uˆõjÓúÉXÏ6­ŸŒõnÓúÉX7­ŸŒõrS‡¿XO7õ‚ˆõvSb(ÖãMë'c½Þ”õ|ÓÀ‹õ>EùÁ´Áæ.Î@3n|BSOˆàšÖOÑ´~2øŠ¦õ“Ág´Éþ2Îw4ZÃl>¤éÆAð%,ä >¥MÎç[šQÁÇ4}q_Ó´~2øú´ß=θñAmq>8_ÔçƒóIMë'ƒojZ?|TÓúÉૺ&&Ágõ‹|­ó]ì¶|-‚/cáPðiý"?ç|[¿œŸ›>þj7¾…EãÆçõD¾Öù¾žÜ—|`Oäçœ/ìôjÛ|bOäkoì‰|­ó‘=‘¯u¾²gòµÎgöL¾Öùή…Á‡ÒË øÒžÉ×:ŸÚ3ùZç[Q¸4n|,ô8w¾¶òµÎçöB¾ÖùÞ^È×:Ü ùZç‹iˆ|2 ‚oîlc´ùè^È×:_Ý ùZç³{%_ë|w¯äkï•|­óå½’¯u>½WÎçÛY(||¯Îß_ùZçó{#_ë|oäk}? 7òµ¾_=Î}?¡7ÎßoèóÁ÷#ºÖOÆ~E×úÉØÏè®æ¾ßѵ~2öCºN„Ø/éšÈÆ~ íb¿……Y±Óuã3ökºÖOÆ~N×úÉØïç¾=N¿íuµ˜ˆý¤®õ“±ßÔn}?ªkýdìWuÝ8ý¬®/’ØïêZ(ûa]&b¿¬«ÕDì§ÑG"öÛú¤!œïÇu­ŸŒýº®õ“±Ÿ=N¿í÷u}QÆ~`·Æ§¾_ص~2ö».œb¿‘f±ÉB²Ø¯ìê§û™}q>ø~ç¸8|?thýdì—­ŸŒýÔ¡õ“±ß:.Úú~,ô8ý¶_ËB´ØÏçƒï÷M\b?xhaCì}Ä~òHûÍpÁH·ýh®•Û~õH¬?ðýìÁúɽß=X?¹÷Ãë'÷~ù`ýäÞO™õ¾ß>2ë|?žV±_?2ë|?°~rï÷¼;Øq|ÖOîzQ¼þ€ù ãÊ­Þ`¯?`üŽâõ\¯ ÖOîz†ÁúÉ]ï0X?¹ë!ë'w½Ä¨¬?ðzŠQYàõ£²þÀë1èáõƒõ“»žc°~r×{ ÖOîzÑXàõ"(Äk·z’ÑXàõ&ƒõ“»e°~r׫ ÖOîzêE½Ëhœ^3èLºëeFç|ðzšÁúÉ]o3X?¹ëqë'w½Î`ýä®çê)õ>£s>x=Ðèœ^/4taõDƒõ“»Þh°~r×# ÖOîz%:D= ¯[½ÓP㊨‡ê\õRƒõ“»žj°~r×[ ÖOîz¬ÁúÉ]¯5tà¨ç¢IÔ{ "G=Ø`ý䮬ŸÜõdƒõ“»Þl°~r×£¡ððºÕ« µ«z¶±Ø1ÁëÝë'w=Ü`ýä®—›¬ŸÜõt“õ“»Þnêƒ)êñ¦žG½ÞT;‹¨ç£JÔûMÖOîzÀÉúÉ]/H;Ú¨'Daãu«7„'ßêgâ|p¾p²‹é®gœV?é|á´úIç 箟¬>¾ÕO2~gæ|p¾pfÎç ­ƮלV?é|á´úIç 'ë'w=èdýä®e¸¨'ìíºëMga=­ó…“õ“»^u²~r׳NÖOîzWº¿D=,ÛšF½,ô8÷zÚY½ž–ùÎdý¤×ãk=­ó…“õ“^Ï ¬õ´ÎÎÊzZç i!³ë…'â®'Fý¤×·ÉúI¯GÎ%ê•Q?éõÌÀuD½3p»ÕCõÒÀV_}|ÔOz½u›¬Ÿôzl`mìnõÚÀ¨Ÿôznàz«÷n=êÁûŒzñÆî'Fý¤×›·ÉúI¯GN#êÕ󭞸¦¨wÖùà|ádý¤×Ëõô¾]oß&ë'½8Ýêõsz~`ë…ÄõÊdý¤ë€­%Eöñ‘¿¸žxŽÐ¯›¡M]˜n½0æƒë€K½0ò×C#q½D£óÎÖSÏ›ÞxõÐc´Eÿ ×kç+ôÀÈ_\ïŒüÅõ Àm„^¸ßô$ö=[oÒø¢Ýz”¶èáz`Õ9_¸X?éz`Õ™¸Ýô2À½‡žxÌÐÛ¯+ô8m±~Òõ:À¦b¾³²ë¿+?è€u>˜^¨y‹ç ý/\oÔ˜øl=R[…z ç W¡ÈùÂU¨2½p顇®3ôRͬª]OÌô`Àªs¾pÑÿÂõdÀÈ_\o¬ú0ç ž»^­-­ŸÜz6`k;Áø]ô¿p=pÍ¡—n-ôtÀ}„Þ®Ñõhëñ€‘Ϻ^¯ASBϬzAç Ww½ ãwu>;_¸´~rë ‘¿¸ÞxôÐ#ÏzÅÆ…ÄÖ3§zGàÜBÙØp~ë%‘¿¸žù¬ë-1\ ¬óÁùÂEÿ ×s¶¥õ“[ï ŒüÅõ ÀÈ_\/ \{èIÛ ½)ð¸BÚèÙ´õªÀë¦gmËìÈ/\Z?¹õ°ÀÚÌËùÂ¥õ“[O ÜZèmû=.ð¸éu‘¿¸ž·_Z?¹õ¾À©‡8ÏÐ ×+ôÄÀ˜®7î7=r§QÔÖ+«¾ÝøÂ~%êÛMï œJè¡s ½4p¡§®7½5°êÛ/V}»éµ;¦¶ž»“HØzï~eêÛMœsèÅËMO\GèÍÛ =:ðH¡W6}ûòñMßÞ9¾%[œnzyà’BO¬úvã Ußn|!pŸ¡×žWèùW½¿èá~À©‡_°êÛ/V}»ñ…À­„°êÛ/6¿ƒêãßýúÕÜïຠ#q¿`ä/î§\fø-#Ÿu?àžÃ¯xÜü€g¿`ä/îÑ/­ŸÜ~À¹„ŸDg;Æí7¬½b/n7¿ `ó¿X>>ò÷»^=ü0ú¥õ“Û/8_á§\røm×›pëá×Ügøy#q¿N#¯íÒI”n¿`ä³î'œo~#À5… p+áWŒüÅýL€‘¿¸ß 0ò÷Cé—ÖOn¿”N"xû©ç~+Àe† pKá׬=ä’ǯ>8·ß 0òY÷ƒ^7¿˜žØËýd€s ¿`ä/îGŒüÅýj€û~6À#‡ß ð¼ùátm¿œžèá~:ÀæÏÃøM‰~MÆ«_“ñ…Àê×d|ag?¯í÷nÞp¡s¡íí˵›5J¶á­[ÛûØm G4‰D/ƒä1¨í®¼Á n÷å18­u…Å V5zë @ù–¼±`¶€£ï¦€sî–½¨A…7ÔLy·ÛÌm7ã,c·ê”Ïâ<åÙëm>åv{@¹ÝÞ"pÝ@¤WÝ0õö"ü7”™ì­IkßKÛÜmMǵ›žÎ¼[¢Ê|ó†)½jý¢·S”ïЛ­Ê3ß[±tVá{£ÀÖvÀ>v“@4ı0€2+¼ALgW;o˜ún.˜çn=X¯Ý˜°åݶ°GS@6Äé>²Ü;oˆÓ«ÙÞ.§³#ž7Ó餽Õ`»`6=€hˆcM|%r½Åàì»àš»=P¯ÚîÊ›âv;IG¶Ó¢ÿ‘StUkͼi ú9AW«õ?Z>2û1+Û]9;WÙîÊɹªÅ‰Þh ýœš«lwåÌ\e»+'æ*Û]9/WÙîÊi¹ÊvWÎÊU­JôÖQl³7–ê×xÛ)ÀVvS*ÀÞvË*@¶»ª>ò­ÝU¯ÞîŠ FÕjDo•(9ƒ7Ò,s·ÙêÔ y.Àžw‹.À ¼gßí½å=åÍ¿:ûzk0À\vã0@´»r ®²Ý•5lÑ’ ÝÍ–,OHog(9ƒ7;ë•í®œ|«lweÒ:71¼`&k€­ïl€ò~ôm€’3xû6ÀUvs·Þ´êÐ[¿ÊíöÆp€9ÚÆÖ´›ÊÊ“Ù[ÎJÎà éÇÜíêåâ½™]ošðx«»Î&†Þ0÷Ý&°ÌÝD=hkZhè øeêz{>@ soÞ¸¢µ_ošÂyã¿ÎˆÞ=a£Ð[ ²30c°éÂÇÛÎhV¸úneØ›šEx£C@öLd’ß´´Ð›$JÈx EÀ6vƒEÀígÚÍWÙ­{ÓÌÙ;v^€·}”›åM!kÞ-#[4”ì}·›Äí¶f”€+íV•½i1¡7²”Põ6—€òXó&˜[®Þ"°¥Ý@°—Ý^p´Ý|P>¸·æìM‹½q'`Ê»­'`Ž¦Ÿ€¥ï– €èˆêüYSbËۉʴ÷f£€òˆðV¤€èˆjJ{Ó%˜·1íœÉÞäQ™ä·aQ-5ñðö©€ãÚÍUgÞ­WW4fíMÛ]yÛV@tDuÆŒ±é-_%ܼ!, <š¼], <ƽ™,àˆV³€+íF´½i»+oS ˜Únb (7Ú[ÜÖk7Àly·ÇìÑ<Pî·ÖÄívŽŒíݽ-/`Ê»ioç#Ñ[úvVRxÃ_Àí€{ÚÍ‚GÙ­„gÛ†×Ømˆ{×Ò@oR ˜óna (߃78î,ñöÇ€r»½92 Üno 8ón¬ (bo»Ü»r)Þ”P¢À[6–´:Ö²Û=¶¶›Aö±[EÎk7’\y·™î]÷d½ 5 ÌÕbDØŸžþøé?:‚Ç¿÷®ÝÖõ^þaÿî÷×ï=®ß{\¿÷¸VøÞãú½Çõ{ëËà{ë÷×ï=®?½÷¸~ïqýÞãú½ÇµŽüÞãú½Çõ{ë÷ןÞ{\¿÷¸~ïqýÞãú½Çõ{ë÷׆ß{\¿÷¸~ïqýÞãÚÇïqýÞãú½Çõ{kÿ½Çõ{ë÷×ï=®“á÷×ï=®ß{\¿÷¸¾ ¿÷¸~ïqýÞãú½Çõ4üÞãú½Çõ{ë÷×Ãð{ë÷×ï=®ß{\wÃï=®ß{\¿÷¸~ïq­ïÛ÷×ï=®ß{\ÿÿ¦ÇõµÙŸ_*·]÷ Õ÷¡ ?㇞üP›Zô¥ú¡c¡r?4ð‡BþÐÏêúC{ÿ Ì?tû/Tý‡æÿp8ü7Ãkàp"¸û./=„ÃápO8¼ç…_†Ãµá…§ÃáøpøAn‡—Äá4ñàCq¸T¼ð°8.ÿ‹ÃãðÎ8œ5|7WŽž‡£Çá÷q¸^!‡“Èá3òàBrx”¼p09üM÷“ÃåpN9|U\WO–Ž-‡ŸËáörxÁN1‡ÌƒËÌáAó¡æð¯9Ümï›ÃçðÍypÕ9A.B‡ÇÐ ¢ÃŸèp/:¼ç£ÃépMzðT:—^ø1nM‡—Óáôtø@.Qw©Ãaê¥ÿÔáNuxWÎV‡ïÕáŠõà™u8j½ðÛ:ܸ¯®ÃÉëðù:\À<±þb‡ûØáMv8—¾f‡ëÙá‰öà˜vø©½p[;¼Ø§¶ÃÇípy;<àâÿ¸îr‡÷ÜáLwøÖ®v‡ç݃#Þá—÷ÂMïðÚ;œøŸ¾ÃÅïðø{p<ü_¸Þ‚‡óàáKx¸ž†‡ãáƒâá–øÂKñpZ<|—ÆÃÃñpx|ð<Ü!_xGÎ’‡ïäáJyxVŽ–~—‡æ ¯ÌÃIóðÙ<\8ÎÃÁóîïy¸¾ô=œC_ÑÃuôð$=K?Ó·Óà õ…Sêá£z¸¬¬‡Cëáßúàîzx¿¾p†=|cWÙÃsöp¤=üjÜl¯ÛN¸‡Oîá¢{x켇?ïƒ{ïáíûÂù÷ð>\ƒOáÃqøð#>ÜŠ¼Œ§ã>ȇKòá¡|8,þˇ;óƒwóáìüÂ÷ùp…><£GéÃoúp£~ðª>œ¬_ø\.؇Göá }økîÛÞ܇s÷ _ïÃõûð?Ã?ñÃmüÁ‹üp*ác~¸œè‡CúáŸ~¸«Þëwgö÷ý¥«ûáù~8Â~ñ‡›üá5ÿàDøÔ¿p±?<îüÃÿpÏ?¼õœ÷_þ®ý‡§ÿáøô8ÛœíÛ œí^¶+8ÛœíÎvg»„³ÂÙná±ÃÙ®áe;‡³ÝÃÙâlq¶“8ÛM<¶£8ÛU¼lgq¶»8Ûaœí2Îvg»Çvg»Ž—í<Îvg;³]ÈÙNäl7òØŽälWò²ÉÙîäl‡r¶K9Û©œíVÎv,íZÎv./Û½œí`Îv1g;™³ÝÌÙŽæ±]ÍÙÎæe»›³ÎÙ.çl§s¶Û9Ûñ<´ë9ÛùüL»Ÿ³ÐÙ.èl't¶:Û=¶+:Û½lwt¶C:Û%í”ÎvKg;¦³]Óc;§³ÝÓËvPg»¨³ÔÙnêlGu¶«zlgu¶»zÙël—u¶Ó:Ûmí¸Îv]í¼Îv_/ÛíÂÎvbg»±³ÙÙ®ì±ÙÙîìe;´³]ÚÙNíl·v¶c;ÛµíÜÛ½íà^¶‹;ÛÉíæÎvtg»º³Ýc»»³ÞËvyg;½³ÝÞÙŽïl×w¶ó{l÷w¶|Ù.ðl'x¶<Ûží Ïv†íÏvˆ/Û%žíÏv‹g;Ƴ]ãÙÎñ¡ÝãÙògÚEží$Ïv“g;ʳ]åÙÎòlwùØól—ù²æÙnólÇy¶ë<Ûyží>ÛžíB_¶=ÛžíHÏv¥g;Ó³Ýéc;Ô³]êËvªg»Õ³ëÙ®õlçz¶{}l{¶‹}ÙNöl7{¶£=ÛÕžílÏv·g;ÜÇv¹g;Ý—ívÏv¼g»Þ³ïÙî÷lüØ.øl'ü²ÝðÙŽølW|¶3>ÛŸíÛ%Ÿí”_¶[>Û1ŸíšÏvÎg»ç³ôc»è³ôËvÓg;ê³]õÙÎúlw}¶Ã>Ûe?¶Ó>Ûm¿lÇ}¶ë>ÛyŸí¾Ïvàg»ð{;ñ³Ýøϵ#?Û•ŸíÌÏvçg;ô³]úc;õ³ÝúËvìg»ö³ûÙîýl¶‹l'¶›ÙŽþlW¶³?ÛÝ—ÒjàÜBZ œrH«5[ZÝ–Ödmi5ðè!­Æ|pi50æƒK«1\Z lÒëîã«4ÛK%A›”V·¥‰Ë–V7²,[Z ÜGH«[ i5pÍ!­.WH«Ó i5ðÕCZÝVå|ðRÉU9¼TrUΣþ€Ûi5°J©½TrUJ­ýV)¶—J®J©¶—JRs³¥ÕÀ³…´X¥¿^*¹h…åÒjà:CZ \zH«óMZ ¬Òd/•\…Òe/•¤¦hK«‘¿¸´ù‹K«‘¿¸´ø.­6éõðñMš½||•n{©ä¢•™K«Ç i5pï!­n7i5°JË«Ç/¥:.­Viº—J.Zµ¹´ºQãµ¥Õtê–V÷›´¸Vc>¸´óÁ¥ÕÀù i5ð5CZÝ@ýöVÏ›´º‘)ÞÒj`^*9)Åri5pé!­FþâÒjà”BZÝ ¹»I«çi5°Î/•œ”š¹´X烗JNZ º´8÷V§›´ù¬K«5…[Z ŒùàÒjàÞCZ ¬R]/•œ´Zti5p¾I«Ói50æƒK«Û¤TÐ¥ÕšÉ-­î3¤ÕÀ­‡´¸Þ¤ÕÀÈg]Z ŒùàÒjàk†´ºMJ%]Z lRkÆïl”b{©$4£7i5p!­F>ëÒjà\BZ ¬Ò`ã Û¤TÔ¥ÕÖ-­nÜÚÒj`•&{©ä¤TÕ¥ÕÀe†´X¥Ï^*9)…ui5°I§¿Ø¾ºK«¡Ñ7i5w»BZ=)ÕÝÒêI)ï–VOJ}·´zJýTrJǽTrfJ˽TrRj¼¥Õ“Rä-­ž&UöRÉiRf/•œZÒê©!­žJ\‡´zn)µÅï–Z3ß™&ÅöRÉiRm/•œú iõÔºÀVO- iõÔÊÀVOJÉ·´zRj¾¥Õ“Rô-­æ~jH«§a…´zê‹,¤ÕSâ!­ž”Êoiõ¤”~K«¥ö[Z=(ÅßÒê¡U‚!­Z&Òê¡u‚!­´ØÒêA«€-­´ØÒêA«-­J<‡´šÛÚ!­Jä…´zÐê`K«­¶´zÐ*aK«­¶´zhÍ`H«‡ †´zhÕ`H«¹cÒêA«‡-­´‚ØÒêA«ˆ-­ú" iõè”ztJ{]Z=´z0¤ÕƒV[Z=hu±¥ÕƒV[Z=h•±¥Õ£SšìÒêÑ)]viõP¢ ¤Õ|p…´zÐÊcK«­>¶´zÐ dK«G£ÔÖ¥Õ£QŠëÒêÑ(Õuiõ É–VZ•liõ •É–V³&$¤Õ£RJìÒêQ)5viõ¨”"»´zÐjeK«­X¶´zЪeK«­\¶´z—J3~Gq)5ãw—Z7ߤØÃÇ¿îÒêA+š-­´ªÙÒê‘)wi5KsBZ=2¥ä.­™Rs—VZéliõ ÕΖVZñliõ UÏ–VD)¼K«G¢TÞ¥Õ#QJïÒê‘¥ÕC†!­:QCZ=T“Òê¡DaH«™¸„´zh½aH«‡†´z¨URH«‡Z)…´z¨ÕRH«‡†´ºkÕaH«»–†´š‰YH«YüÒê®/ºVwµ’ iu×GH«»†´ºkõaH«»–†´º«ÕUH«»Za…´šum!­îZ‚Òê®5ˆ!­îú` iu×…]H«»N´Vwµú iuW+°Vwµ iu×RÄVw­E iu×bÄVwµ* iuïœ.­îóÁ¥Õ\„´šå…!­îšX…´º+1Òê®E‰!­îóÁ¥Õ½q>¸´º«Õ[H«{£Ù¥Õ½QšêÒêÞ(]uiuo”¶º´º7J_]ZÝ¥±.­î•ÒY—V÷êRk®W¸0 iu¯”溴ºWJw]ZÝ+¥½.­î•Ò_—V÷Ji°K«{¡tØ¥Õ½PZìÒê^(=vi5ž!­fkH«{¡´Ù¥Õ½PúìÒê^(viu/”N»´ºçGiuÏ”^»´ºgJ³]ZÝ3¥Û.­fmnH«».TBZÝ3¥á.­î™Òq—V÷Di¹K«{¢ôÜ¥Õ=q>¸´º'ΗV÷ÄùàÒêž(}wiuO”Æ»´º'Jç]ZÝ/Jë]ZÝ/—Z[ü^œ.­&ÑÒj–H‡´º_”þ»´º_´p¾°k"Òê¦VŸ!­njÒê¦V¡!­nZÊÒꦵŒ!­nZÌÒê¦ÕŒ!­nJ쇴ºéB#¤ÕM?xH«›&n!­&ñÒê¦/ÂV7-j iuS«ÖV7µr iuS«×V7•"…´ºiecH«›–6†´ºi=]H«Y„Òê¦DEH«›>8CZÝÔê6¤ÕM'bH«›V8†´ºi‰cH«›Ö8†´º©oH«›Zõ†´ºiVH«›Ö9†´ºi¡cH«›ó!­nºPi5‰ÎV·ÆùàÒêÖ8œ/lú" iuÓzÇV7-x iuÓŠÇV·ÊùàÒêV9œ/$‘ÒêV¥Õ­ºôºùø*Åu¾°UJu]ZÝ ¥¼Î¶B©¯ó…­P ìÒê¦VÔ!­n…Rbç [¡ÔØ¥Õ­PŠì|a+”*;_Ø2¥Ì.­n™Rgç ©á i5‰õV·L)µó…-Sjí|aË”b»´ºeJµ/l‰Rnç [¢ÔÛ¥Õ-Q î|aK”Š;_Ø¥äÎRHÒê–(=v¾°%J“/l‰Òeç ÛE©»ó…ÔT†´º]”Ê;_Ø.Jé/l×£´º].½>¾I³—å›´ºjidH««n<†´ššÑVs#'¤Õuq>8_Xçƒó…uq>8_XµB2¤ÕUK$CZ]µF2¤ÕU‹$CZ]U-ÒjnT…´šRµVW-” iuÕ…HH««~1!­®šØ…´ºj+‚VWmUÒꪭ BZ]µ^2¤ÕUë%CZ]µ^2¤ÕUë%CZ]µ”4¤ÕU×VS£Òjn†´šŠÁVW}°†´ºj½dH««¶’iuÕV!­®ÚŠ"¤ÕUë%CZ]µ^2¤ÕUë%CZM1dH««¾8BZ]uáÒêZ9œ/¬•óÁ¥Õü`!­®Z/Òêªõ’!­®Z/ÒêZ9œ/¬•óÁùÂZ8œ/¬Å¥Ö&­.”boiu¡T{K«5ñ¼I«•8»I«µUÊMZ­­TnÒj}0Þ¤ÕZ/y“Vk½äMZ­õ’7iµ¶z¹I«U9s“V+1x“Vk½äMZ­…Y¿ ­¶Ÿ˜´úé8àéé°ô¸žîÿþøÍw?óÓ{olvÄ~zR+¶†‘ïçóý'…RL«Ôe@cY¡op4_„þûbÕš<בŽÍ£í'ê·¾ÏÕGì[‘íÛ~o×Ås®û›¿–ãÕŸ6í2å?ߢEÃjc?A®;•90„¿§¶î-~Ï&v®#›GÛOô¼ÏÕrÙ=¶"=Úÿ6ï×Ås®Û> ÷i—v!û|ûûR/• /]‹ªûl3 ‹{êþ[•jûy:*åÔÞÏÓ7¼ª€‡v"èo›wx«×j—O~4³Lóóý'šŸÃ{pMö"©CÄ?FÇÿ½öñséØ<Ú~ÒÙ[ÚÎUÊb­ˆ7Îþ6ï×Ås®›ŸeS”ÊD|¾ÿDm0”2%¥†ŽËÖ›‚H§±QÊþ{ó–´s éØ<Ú~¢ûüû\58Ùc+úÆ®dÖø½]—{¿nû,¥yz(¯³Ï÷Ÿè>·:Ÿ0]ƒô¶¨˜Àxxú¦¿§¯‘ŸkHÇæÑöÊ‹ýÜ‹Òk[Ñ7v%sÄïíºìÜûu{¸“ê.º4ÿ|ÿ‰¾¼´ë»vÈ#B{p G’Ö•COM?×P÷‡Ñþ‰òÝû\Mk÷ØŠx´ýmû½]—{¿n»/K;œ!mÌööŸh>¥ÛúLë0k¨2¤ßÝâkÔ¯lÉ>׎ͣí'º–Ûçj&±ÇVô]Éšñ{».;÷~ÝöYèÊÝç˜ÿD×nº„®œ¥è#ÎÞ$Dú÷hjá¿·Þpv®£ºç˜ÿDy£}®®ZöØyÏ1ÿÛö{».žûpÝþf§ŸÙý¾ìŸh¥:©s»èJú ÔÍÃé÷EƯø=û&ø¹†ºß—ýæ}®Vߗý·í÷v]vîýºí¾t]ãg*j>ߢúV¥b§.ÍÑ“žúhCü¦]èøûAÏ;בŽÍ'“ý„Ž~.{©ûØŠ8öØ4ËŠë²sï×ÍÏ¢²ÕK~¾ý@Wã&bÊ¡¨¢føFU Ô«Vö~^3ÅròCù%Oý<]€ú¨ xhv vßWcçÝ®Õn…ULí[ôùþÝŽÔ*N+x:X»¢’Wüž5˜v®#›GÛO´bŸKO[Ñ7v%+ïßûuñ܇ëÆgùû§ýð×?þþ¿ÿúé7?—ˆ¾L9ÓÓßÊÿþò„ùïØU¹ÀÄDàç§ÎzBÍnªC$Xê0²0èáÚ8¼°4)ߌ:Ëy÷E¼p¿ìøqÀ¯¿²¯é›ÿ|ý¯+_úÓW|ÒÀkÿ£P[Ø'úæ}õùé <æÚ—O_ýåÃß|¥ƒÿâÙSß¼÷³_2^â²TºŸüúsÙÈ$ÎM¯=³³ ;Î̯>sêÖhœYýL”´âÈøÓ³,2¾] Ñ>;¶øa\ê½åð˜ñ²‹?jÿ].%J~øøôOß½êv~†t=~bµ\•"ËEð1~ûoß}÷ñÓÓß}úþ'ÿ@ÿáÿI4vendstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 720 308] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F3 /BaseFont /Helvetica-Bold /Encoding 9 0 R >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000019840 00000 n 0000019923 00000 n 0000020046 00000 n 0000020079 00000 n 0000000212 00000 n 0000000292 00000 n 0000022774 00000 n 0000023031 00000 n 0000023128 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 23230 %%EOF metafor/man/figures/selmodel-beta.pdf0000644000176200001440000006441314465413172017355 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20230811130738) /ModDate (D:20230811130738) /Title (R Graphics Output) /Producer (R 4.3.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 22841 /Filter /FlateDecode >> stream xœí½K|ÛuÜ9¿Ÿ¢†Ò@Ô~?=‘aº°H ‚EÁ’“’mºÛ_¿ÏZ±ëì%Ræý÷°5à½7X•‘•¹NžÜõ‹¿þê+ýã×ûé?~ý·¯>1Ò×,¿Hé«Uü+ûÿ÷ßóõ}ýÓOþ»¿þñõï~ùSz~–¾Þÿüå¿û?*¿(ýëþô7û•¾þî§üõWÏÿþñ§l¿ðõü4«9µÙ~‘ë×ozþŽü˜l·\oÙQn9ÞrÜV㶷ռ­æmµn«u[­_¬ü’ûå–ã%×óºoÙnù¶Zù²zäeUn«r[•ÛªÞVõ¶j·U»­ÚmÕo«~[ÛjÜV㶚·Õ¼­Ömµn«çm//ù¼í·/¹Ÿ·ý–í–o«/«G^Vå¶*·U¹­êmUo«v[µÛªÝVý¶ê·Õ¸­Æm5n«y[ÍÛjÝVë¶zÞöú’ÏÛ~Ëñ’9=ï{Ð-èué|Ù™¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üVð{ªÑÞú)GÐã­í¶t úòËùö{ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~3ø­à·‚ßSþÖÛ¾ý.=Þº<õº}ù•|û=úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áï©Çxë§A·®O=‚nA_~5ß~¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üVð{ê1ßú©GÐã­ÛS [З_˷ߣo¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üžz¬·~êôxëþÔ#èôå×óí÷èÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð[Áo¿§û­Ÿz=Þz<õº}ù|û=úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áoýb§·Þ¿¨AÏ·žé9èôå7óí÷èÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð[Áo¿§ù­Ÿz=ßú™Pç {Зß3Å®Aß~%ø•àW‚_ ~5øµàׂ_ ~=øõà7‚ß~#øÍà7ƒß ~+ø=õ(oýÔ#èùÖÏL;݃¾üž¹w úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áï©Ç{~øÌÇkÐó¥Ë3ÿÎA÷ ÷¥óågúö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üVð[Áï©G{ë§AÏ·~æß9èôå÷ÌÇkз_ ~%ø•àWƒ_ ~-øµàׂ_~=øà7‚ß~3øÍà·‚ß ~O=ú[?õz¾õ3ÿÎA÷ /¿g>^ƒ¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üVð{ê1Þú©GÐó­Ÿùwº}ù=óñôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~3ø­à·‚ßSùÖO=‚žoýÌ¿sÐ=èËï™× o¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üžz¬·~êô|ëgþƒîA_~Ï|¼}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà7ƒß ~+ø­à÷Ôc¿õS ç[?óïtúò{æã5èÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð[Áo¿}íÌšnA¿·yË3ÿ.AKçÛïÑ-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo];¶å™§ [ÐïýßòÌ¿KЗß3ÿNA· o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿umå–gþ‚nA¿7†Ë3ÿ.A_~Ïü;Ý‚¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸ[žùw ºýÞ®Ïü»=./?Ó-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹õ™§ [ÐïýáúÌ¿KЗß3ÿNA· o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíçÖgþ‚nA¿÷‡ë3ÿ.A_~Ïü;Ý‚¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸ[Ÿùw ºýÞ®Ïü»}ù=óït úö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n}æß)èô{¸>óïôå÷Ì¿SÐ-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹õ™§ [ÐïýáúÌ¿KЗß3ÿNA· o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíçÖgþ‚nA¿÷‡ë3ÿ.A_~Ïü;Ý‚¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸ[ŸùwºýÞ®Ï|¼}ù=óïtúö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n}æß9èô{¸>óñôå÷Ì¿sÐ=èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹õ™ç {ÐïýáúÌÇkЗß3ÿÎA÷ o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíçÖgþƒîA¿÷‡Û3¯AÏKçËÏtúö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n{æß9èô{¸=óñôå÷Ì¿sÐ=èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹í™ç {ÐïýáöÌÇkЗß3ÿÎA÷ o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíç¶gþƒîA¿÷‡Û3¯A_~Ïü;݃¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üÖµŸÛžùwºýÞnÏ|¼}ù=óïtúö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[×~n{æß9èô{¸=óñôå÷Ì¿sÐ=èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo]û¹í™ç {ÐïýáöÌÇkЗß3ÿÎA÷ o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿uíç¶gþ]‚~ï·™®ýaÓ-èËï™— o¿üJð+Á¯¿zùýÒõÿ€îCŽÿ€Ž¿ë·_í-?__¿ ?‡Ρû@ùþ9åë¬Eìõ ”¯_°=œ×/P¾aß¿°ã/´ßû^¿ð¿â{ôëßýž÷èw¿þ§Ÿþü/ËWþúÕße7IçЙÃ0¿úíן›=1&Ãó'ÆdøØòĘ`¨sbL†ç†œ“áñ'Ædxî‰1pbL†SÐ'Æd8”{bL†3¢'Æd8"wbL†['Æd8@tbL1eŒÉÈ((cLFBAc‚^Ïc2 Ê“¾QPƘto:1&}£ Œ1é eŒI_((cL°IvbLúDAcÒ' Ê“î+¨'Ƥ”1&½£ Œ1éeŒIï((cL0ù81&½¡ Œ1é eŒI¯((cLzEAcÒ=—àĘô‚‚2Ƥ”1&€ˆOŒIÏ((cLzBAcÒ Ê“î€Í‰1ieŒIÛ((cLÚBAcÒ*ª“¶PRŘ´‰š*ƤMU1&m¢ªŠ1ieUŒ v¯?'ƤuV1&­£²Š1i¥UŒIk¨­bLZCqcÒ*ª«“æ«1Ÿc‚Õω1iVŒI+¨°bLZA‰cÒ2j¬“–QdŘ´„*+Ƥ%”Y1& ý?'Ƥ:íü91&u£ÒŠ1© ¥VŒI]¨µbLêB±cR'ª­ÐŸcR½[üsbLê`½cRëÍ“êÝ„ŸcR;ëÍ“ÚYoƘÔÆz3Ƥ6Ö›1&µ²ÞŒ1©•õfŒIõݱω1©…õfŒI-¬7cLjf½c‚ռω1©™õfŒIM¬7cLªé>'Ƥ&Ö›1&e³ÞŒ1)^¶Ï‰1)‹õfŒIY¬7cLÊb½cR&ëÍ“2YoƘ”Áz3Ƥ8½÷91&e°ÞŒ1Ýô91&¥³ÞŒ1)õfŒIi¬7cLJc½cR*ëÍ“RYoƘ”Êz3Ƥx·ÒçĘ”Âz3ƤdÖ›1&%³ÞŒ1)™õfŒII¬7cLJb½c‚Õ÷ω1É›õfŒIÞ¬7cLòb½c’ëÍ“¼XoƘäÉz3Æ—ÙçĘäÁz3Æ$Ö›1&Ù§BŸc’;ëÍ“ÜYoƘäÆz3Æ$7Ö›1& ?'Æ$s¼¥“ìtÐçĘäÂz3Æ$sÈ¥“Ì1—bLrf½c’3ëÍ“Ìa—bLrb½c’ëÍ“Ä‘—bL’wC|NŒIÚ¬7cLÒb½c’8úRŒIš¬7cLÒd½c’8SŒIòդω1IƒõfŒIâL1&‰ƒ0ؤÎz3Æ$5Ö›1&‰ã0ؤÆz3Æ$UÖ›1&‰C1Ř$§µ?'ÆôðçʤÂz3Æ$q8¦“”YoƘ¤Äz3Æ$qD¦“äôÁG1&¶»‹z#ƤnÊcbõÆÄvQoĘ˜F½cb»Ï¨7bL|wÚ_/bL|÷:S»ÇfŒ1ñÝïFí~õFŒ‰ïžãù;ü8>cŒ‰ï¾ãõø5Ö1&¦QoĘøÊ^ï„_e½cb3VÔ1&>ƒÔ õFŒ‰u Þˆ11z#Ƥ‚öÿ(ÆÄ4êI½iÔ1&Ö 1ýùcbõFŒ‰uW Þˆ11z#Ƥ‚–ø(Æĺ5PoĘ˜F½cb:ùëEŒ‰uƒ Þˆ11z#ÆÄ–‹ž¯Ã¯³Þˆ1a7ÊG1&Þ­R¨4êïvÁóOøi¼†ï–Áë]ð+¬7bLL£Þˆ1©Kã5ĘXwêÓ¨7bL¬ÛõFŒ‰é6©74êëB½cR‘ÎñQŒ‰u#¡Þˆ11z#ÆÄ4êënB½cbõ¶y¶i×fƒßÀRcLL£Þˆ1±î+Ô1&¦QoĘ˜F½cbÝ]¨7bLL£Þˆ1±î0Ô1&ìû(ÆÄ»Ë2µûy7ÇG1&Þ†×ëo”w¯uê z#ÆÄ»ßu7XoĘԩñbLL§Bm~c³Þˆ11z#Æĺ÷PoĘ˜F½cbõFŒI¯!ÆÄ4êë.D½cbõFŒ‰éܩݯ³Þˆ11z#ÆĺQoĘx7$^ï„_c½câÝ”xþ?§'>Š1ñnÌNýü¡Þ­‰ç÷ïæœÔÓtf½cbõFŒ‰iÔ76ë&E½cbõFŒ‰u£¢Þˆ11Ý'u‡F½cR±›öQŒ‰iÔ1&¦QoĘX÷,êÓ¨7bL¬wùëEŒ‰iÔ1&µk¼†ëîE½cbõFŒ‰u £Þˆ11z#ÆÄ4êë>F½cbõFŒ‰u3o<ŸÇ˜xws¢žÐ^oƘxwt¡îÐ^oƘxwuwáÇñcLØýQŒ‰wooêíõfŒ‰éŒç÷ë÷z3ÆÄtÅó7øq¼Æ“ŠÝíbLLg<‡ÇkŒ11Ýð|~õfŒ‰uÃJ½¡ ž¯¡ÞŒ1©æ}cb:-j÷óÛîG1&¦+žßcL¬ûê ÝýùcbÚëÍ£ ¼ÞŒ1©ã5ƘàõfŒ‰Ó þüˆ1qš!S›_õ5ðbLœ†Àó{Œ‰ÓÚü*ÇkŒ1qÚbQ»ßd½cbõFŒ‰é\¨Ýo°Þˆ11z#Ƥ¢å£Ó¨7bLL£Þˆ11õFŒ‰iÔ1&¦QoĘÝ‚z#ÆÄtéÔÓta½cbõFŒ‰iÔ1&Fß Þˆ11z#ÆÄhÔ1&¦QoĘ˜F½cR ÇkŒ11]µù•Åz#ÆÄé£DÝ¡QoĘ8½ä¯1&N75ê z#ÆÄé¨IÝ¡QoĘ8]…çŸðãx1&¦QoĘ½…z#ÆÄ4ꣿPoĘ˜F½ñF˜F½cbtÙJÔõFŒ‰iÔ1&F«¡Þˆ1©XFù(ÆÄè7Ô1&¦QoĘ˜NþzcbÛ}¨7bLL£Þˆ11:õFŒIÅeøQŒ‰iÔ1&Fû¡Þˆ11z#ÆÄèAÔ1&N&ê ]ð|~õFŒ iÅbLœfìÔî×XoĘ8 ‰ç÷‰‚Ó’›zBw½ˆ11z#ÆÄhLÔ1&5s¼Æ£9QoĘ˜F½cbõFŒ‰Ñ¢¨7bLL£Þˆ11z#ƤbÙó£Ó¨7bLŒfE½cbõFŒ‰iÔ1&FÇ¢Þˆ11z#Ƥâkã£Ó¨7bLL£Þˆ1±ÍuÔ1&¦QoĘ Œz#ÆÄé`<¿ßœ.ÔÓte½câôq£îÐiP»_a½câtó¢v?Ž×cbõFŒ‰iÔ1&5q¼ÆÓµS?~Fg£Þˆ11z#ÆÄtÞÔÛôb½cbõFŒIÙ¯1ÆÄhrÔ1&¦QoĘŽz#ÆÄt[ÔõFŒ‰Ñî¨7bLL£Þˆ11zõFŒ‰iÔ1&¦QoĘ?'u‡F½cbt?ê§ý3õ„F½câi•ºC£Þˆ1ñ´½ˆ1ñ4‚I=¡QoĘXšÁNÔõFŒImñQŒ‰¥% Þˆ11z#ÆÄÒPoĘ˜F½cbõFŒ‰¥9 Þˆ1)Kã5Ę˜N•Úý:ëÓ¨7bL,mõFŒ‰iÔ1&¦QoĘXzêÓµP»_a½cbõÆf³iÔ1&–®z#ÆÄ4êKë@½cÂôŽbL<Ý£P›ßÔx 1&žÒ©4êOÁóûÆ‹§,j÷›¬7bLì_¨7bLì_¨7bLìa¯wÁo°Þˆ1±§E½cbõFŒ‰iÔ1&ùŘ˜F½ñF˜F½cboêÓ¨7bLìm_þ|ˆ11z#ÆÄ4ê“25^CŒ‰iÔ1&vY Þˆ11z#ÆÄtö׋»ÌPoĘ˜F½cb—-êÓ¨7bLL£Þˆ1±êÓ¨7bLL£ÞX˜³ê“Zñ£û˜¢Þˆ11z#ÆÄ4êûØ£Þˆ11z#ÆÄn#¨7bLL÷E½ Qoܸ춄z#ÆÄ4êÓ¨7bL춇z#ÆÄ4ê»m¢Þˆ11z#Ƥ ×câ·åL½ QoĘøm½RhÔ1&þµ0¨Ýo²Þˆ1á×ÊG1&¦S¢~žö5„z#ÆÄ4ê…rûZ[zA{½cbÚëÍûšôz3ÆÄ´×›1&öµëõfŒ‰i¯7cLL{wcLìkÜëÍÓµS»Çkhtocb:oj÷ãx1&¦½ë†1&¦S¥6¿ÆñcLL—Am~m¡ÞŒ11ÝuƒN›Úý&ê͆êç‰|˜†ç÷ Æuêõ2ÝQoƘø0qQh¯7cLlXéõfŒ‰i¯7cLl˜êõfŒ‰iÔ1&¦QoĘذw,êz#ÆĆѨ7bLL£Þˆ11z#ÆĆå¨7&¦QoĘÐŘ˜F½cbõFŒ‰MPoĘ˜F½cbõFŒ‰MKPoĘl+~cbÓÔ1&¦QoĘø´ÈŸ1&>mÊÔõFŒ‰O»*uƒF½cÂiÛG1&>­›ÔÚû7cbõFŒ‰MQoĘ˜F½cbÓNÔ1&¦QoĘ”ÊñcLl‹z#ÆÄ4ꛣވ11Ýñ|>‘7z#ÆĦ٨7bLJáx1&6mG½cbõFŒ‰iÔ1&¶ °2õ‚F½cbõFŒ‰-3 Þx¡lMþ(ÆÄ–)PoĘ˜F½câˉÚý*ë_&)ÔîWпÁ.³|câË0ƒÚý8^cŒ‰/ãlêz#ÆÄ–}PoĘ˜.•Úüòf½cR2ÇkŒ11z#ÆÄ–¥PoĘ˜F½cbË\¨7bLL£Þˆ11z#ƤdŽ×cbÚû7cbËp¨7bLL£Þˆ11z#ÆÄ–õPoĘ˜F½cbõFŒ‰-z¿cLL£Þˆ1±eGÔ1&¦Û¦Ш7bL|Y3S7hÔ1&\ý(ÆÄ—M;õ€F½câË®‹ºA£Þˆ11z#ÆÄ–qQoĘ|­|cb˨7bLL£Þˆ11íý:\(·efÔ1&¦QoĘزµ÷o0ÆÄ4ê“úø£[G½cbõFŒ‰-«£Þˆ11z#ÆÄ´÷o0ÆÄ–éQoĘ˜F½cRÇkŒ1±mÔ1&¦QoĘØ6êÓ¨7bL|"Q?~¾M‘©tÅóùDÆ·9õØ®QoĘø6É n}ЋzA£Þˆ11z#Æ$cøQŒ‰iÔ1&¶ÍƒzccË4êÓ¨7bLlÛõFŒ‰iÔ1&¶ …z#Æ$#-à£Ó¨7bLl[kâù:ü ëÛ&C½cbõÆÄÀ4êÛvC½c’·Ækˆ11µù­Íz#ÆÄ4êÛD½ÑmõFŒ‰o+&êmZã5Ęø¶d¥v¿Áz#ÆÄ·5;u‡öþ Ƙø¶¨¿^Ęø¶é¦žÐ¨7bLl›õÆF´iÔ1&¶m‹zÏ¿Šþ Ƙ˜F½cbÛÀ¨7bLL£Þˆ1ÉH÷ø(ÆÄ4êÓ¨7bLl›õFŒ‰iÔyÛöF½cbºoêç5z#Æ$£eý£Ó¨7bLL£Þˆ1±mzÔ1&¦QoĘØ6¿÷ë0ÆÄ4êÊ6bL¼ SOhÔ1&ކШ;4êocð׋osXÔõFãˆé”©Ý¯°Þˆ11z#ÆÄÚ0PoĘ˜F½cbõFŒ‰µu Þˆ1ɸŒ?Š1±6Ô1&¦Qo,¬™ÎÚÙœÅz#ÆÄ4êkcA½c’A3~câm/‰Úý4^CŒ‰·ÍøëEŒ‰·Õ4j÷ë¬7bLòÐx 7&oÛYÔõFŒ‰iÔ1&Öäý:Œ11z#ÆÄÚŠPoĘ˜îx¾¿Âz£ÑËÚ–PoĘä¡ñbLL£Þˆ1±6(Ô1&¦QoĘX[ÕÂëõ³iÔ1&¦QoĘX›–×›1&¦½ÞŒ1±¶/¯7cLL{½cbÚëÍk#óz3ÆÄ´×›1&ôñG1&¦½ÞŒ1ñ6¶Dí~¯1ÆÄÛà*õ„Nxþ?Ž×câmv“Úý êÍoÓÛÔ:ãù'ü2êÍÓµR»ÇklÌ4Ýõ31ñüþÁÈã5Ƙ˜n‰zC{½cbm^oƘ˜öz3ÆÄÚ$½ÞŒ11íõfŒIn¯1ÆÄÚ.½ƒ1&¦QoĘX'êÓ¨7bLL£Þˆ1±¶PÔ1&¦QoĘX›)êÓ¨7bL¼-Ï?àWпÁokÅëð+¬7bL¼-¶SohÔ1&ÞV»¨Ÿ?ÔÛnñücb:gêçÆlm»¨7©M£Þˆ1±¶_Ô1&ÛŽŘ˜F½cbmŨ7bLL£Þˆ11z#ÆÄÚ”QoĘ˜.Úý:ë“ŒiÝG1&¦QoĘX5êÓ¨7bL¬-õFŒ‰éŽ×;àWYoĘX›7ê“\9^cŒ‰µ£Þˆ11zc¢îmæ‰zŽ/oCÇëõoS¯ÔõFŒ ÛÜ?Š1ñ6øIm~e±Þˆ1ñ6úMÝ¡QoĘX>êbõFŒIF›ÀG1&¦QoĘ˜F½cb˜êÓ¨7bLL£Þˆ11ìõFŒ‰iÔ#Ë0Ř˜F½cb:áù&ü ëÓ¨7bL ³@½cbõFŒ‰iÔ1&¹p¼ÆÓuR?_܆ Þˆ11z#Æı>Ę8VR¨;4êb)Ř8¶2¨'4ê Pɱ—EÝ¡½ƒ1&¦QoĘVƒz#ÆÄ4êÃrPoĘ˜F½cbõFŒ‰a?sSOhÔ1&¦Qo4zF4*õ†F½cbXêÓ¨7bLL£Þˆ11Ì õFŒ‰iÔ1&†MyÿcLL£Þˆ1ɉã5Ƙ†…z#ÆÄ4êúPoĘ˜F½câX¦v¿Áz#Æ„ÙG1&Ž™uj÷ë¬7bLS›ÔîÇñcLL£Þˆ11z#ÆÄ09Ô1&¦k£v¿Âz#ÆÄ4êÓ¨7/ ãC½cbõFŒ‰iÔ1&ÛŘ˜F½c²9\cŠÉ|¯“½Yld˜ìÅZ#Âdk¨† ? 0Ù“…F~ÉÖ8 ñ%{ mƒé%{°Ê/Ù¤!»dkŒ†è’ÝYb$—îü(¸dk€†Ü’ÝX_Ä–ìÊòbœ¿5:ChÉ.hÖ`fÉ.¬-"Kvai‘X²52C`ÉÎ,,òJvb]ѽ5,CZÉNèÊaXÉÚ,*²J–Æd@Å—†dH*Y‹EPÉZ,(rJ–ÆcÀÁØð“!åÏ”óËV'†åHù€ÆÅ7‘Þ‰ ù­í["„Æ?‘„ÆÇÀ¡ñÁýBã£b»’Ðøàn ¡q\£ïëPâf¥­ABãs„Æ;ÁBãL5¡ñNlŠÐxc×3¡qm‚oo$ 7v<o¼¡oì·"4^7– W®F¯l¦!4^;Ö׆¥Bãµ €ÐxÍh” 4^ôD€Æ‹ y@ã…]ð„Æ Õ„ÆKÞ5¡ñ–3Bã…6¡q~„Æóâ_hç§t«ŒrwÔh~ · ï,AG–­oxõûò òçµÕoS4n‹5 â®°µ -(B㶖8‘»_Â=‚иC ‚ÄÍoú4^‡ A@ã¶Ûµù¦¿gÀï‘»_D?à'ÈÐxí[P½Ó ßP q‡ µùõ!ˆÞ¡q[ÛÄhÜöÞиí%(<5‡j§nÍ›þó¦6¿&Èиï¥,jókÜ”"4n{77¿Öøþ?Mó„ƽ)~Q4Á'Aá Më€(WmJ·½¶!H¼ éœP·ïNú^üü•÷&qi÷T š×÷6_иíRÁè¼6·½Ø74î{¹x?¼[Õö~‘·½ã.Hà'ÈëÍðŸðK‚Ì}vzš —9/séõûnR™Ìc!4nMˆ¸ÿ·&ÃHÚ¡qk"¬Ò¶É; hœ½šAãÞ(ˆÜýT@ãÖÔ‡P@ãÞ{ú‚ƽWдÏËú[S :@ãÞ„7©Ý¯éùüê7$î~‚º{/0üü2?߀ƽ)N?7¿ó}hÜšÚ;4^´hMhÜ›Ø&µùõ!ˆÝG¸Þ¤†ß÷1{¹?‚ÆËÔ{¯x£nÐù{/: ê ?.:÷&1h§oJ[ßxƒN/hÜš¾ð~·¦®&í~‚ò; ¨4!ó?nZ/‚¶“eø/‚²›Æçи5Qáûи5Iáû и5EáóhÜtDn~U!€Æ­é ã%@ãÖÔ´‘è…§ýÝÔDhÜ›˜:µûqÑ‹Ðx9¡'€Æ‹ ;«“¨Í¯(иi\?€Æ½ÉH¹ù6÷&¢Eí~ !4^ŠBa[®/@ã¦1>4îM@Òî§ @ã¦q=·¦¾>µ;í݆ÞÄÓ¨Í/³©ŠÐ¸5åàþh¼â!4îM9€œ½ûÁšn0^4^´¨Fh¼Ê!4îM6™Úýôù4nš¿_à§!@ãÞ4#H¼B#dи5Áàý4~šb[LÕÏÍO ¡qozÔîÇ&1î;›¹¨;4!ö¿†;¡qkRÁçи7­àùüŠÞ¿?Aû€Æ]ÅãÖ²¦|^{  fßÝ°¦|¾“­ýÏØKü'«û4žOH qg¥Ý›F„ÆÉ[“®7@ãÎ&ãïið«˜áwÖyPoh¼^@ãÖôÏ ñŒëGи5yàþhÜ›>‘›ßRè  qg¿+õ„Æçиýß|>‡ÆMAä¶)»ØEhÜÿŒBm›¼KßØäÅé1¡ñ|Æ#€Æím"Dáw è ¿Âñ ñÓ”AhÜË&¨|CŠ4neÇß hÜ/ü¾¯DØe4‘wè´©Ío.½/ôi² 4n—5ÆM'AâîǦ Bãö±ÔhÜ4!ô ¿Æëиé&ˆÜý’ Û4Æ è¶òÛ„ô„>P¸mò*tÐøi’ 4î·-AâšÐ´CãÞ!HáWÅOøýý ~ù"ïÐUÚ6eûì÷¦é ?@ã6 Æûhü4-?M „ÆOÓ¡qoZ$î~\$g7snSPzß$ôh܆ý€^{Ó ì?†"÷¦…E½¡ þÞ¿ö ‘Oh|ޛΉÚýª ï?Þ ›N/hܦQCPx†Ähܦe[¹mʶü ‰Wh@5€Æ9Íû7Ý u‡Îú¹ùU†X7Ï' qÓuÁ¦;CEsÚú4îM ð«ðãz¡qoj„Ýà§û q›Fó÷ü†~¿Ãoȿï Šðë‚Øüº ó¿ö ‰Wh@a€ÆMãz4ž²HhQ»ŸB›Æýи7àùü­÷&Aâ‘ÎõBãÞ”R©ttí7Ó„ÂÏ'ôиm[ì4nzJ/h|ÿ7]¥4ý*üô}hÜô”^ЄÐü² ì¿,(½ÃOãq@ã¦ñþ7û qßæIÔº §îO€ÆmÛõ4îÛH€À7MßiÓ¸÷¦šJݲ7Ñ`|hÜ›l9;4nz"и~›>8ý0¾4îM9x|ßäû hÜ›tð|~lB$4Îm¸ ñœ”Ýà7äßà§Ï&²¦û ÷m¿L½ ù÷ù%AäîשOøu½?~Ü?"4nº½ qÓø¾4n×  qÓég…–7ïg@ãÞTÔ©4Þ/@㦋 rúa¼hܶY •ø1„ŽÐxÖ~8¡ñœôù4îMJ›š~ohÜ4Ÿ¯ÁÇç6ðGиé!ˆ|Aóõ øŠ"4žOˆ  qo‚êÔôÃ|Ðx>!+€Æ½IjP?7Fnc›ÆxÐxVh+7¦|µ1™Î™Úý8!4îÛ胺AÏðSÓ< ñ| -,´™®€²«üÊ ÏX&ø÷m}ü=N×l1¬`Æ·< 㛫$Æ÷ í½Ê—%/¾·ðîA«‚'š´:p¸Y1딬ø>h¹÷ˆï…"ßaÒÚ #'¬½ëíßË;ñ&T{+¤ö✚ öbŽ9íÅŽ/bÚ‹©³¤´— >@Ú‹Ë{d´Õ½LD{mÕ•Vø8Ð^l= Ÿ½48ž½¶hñF+\Þ€³Ï’ ›½ˆÍÖ¦ÉìÅVv‚Ù‹¹¬ä²×fÉ€e/¦L‘Ê^›¡€²—E`²g[D²Hd/ZÈ^Ad]Š{Ž½6oª ±—ÂFc/fû’Å^ìÆ'Š½”|{qM ¶šÆÉa+–žöZ¬>(ì¥@Øk‰©öu¬µx1Á>D:ìµtZ­½gƒ–£µD“OZV`€½^K(»ÿÇ"}@òz1˜àõÒðܵšä‰]/¥N€ºV(?¡ëÅíD2×K@®âI\¯%à¸È |r¥†=À­×í\i…‹°õ"{DÖz1š‘¨õZßä5¬p‰´Ö19ëŘgbÖKãgPÖ`§?‚¬×S=i…‘ ~mñ Ö‹sÖ ÈW«ŽxµN7 ]½¯vÀÕ‹m]d«×Šœi…/Õ‹Aü«×âGÃEŒŽXõIAU½b…‘Õâr™êÅÝ8"Õkñë Dõ° z)o <õÒ\8õZ¢£½={MÞcS/’d©×AͽIÉŽ$©ƒ¹ R¯)ŽÛï k2v õbC)êu iÿ®Y\Ž!C½)M„zMÈ™VkRî·,´Z/|úÐ% §ûH O/fí‘ÖÑD§×ü&©ç[vY%JXˆÁÒÌÅ jú-a5ñ7OZ-2½¦ˆð)+È%+ñÓÏ,®\—~ËY(7ä‹•~KZ,β’„9èL«ƒEà T<(éÅþ'BÒoI«A¹ß²ÉêHË.«FÙoI+ÀÏCV’´ªyË)4z¿$Èç·œo™e%I«õü-‹¬$ç[VYIö[ÒJ|s½å|Ë.+É~ËËjÜVƒVM`s¾e¿å~ËE«#Ÿ;Õ·ô¾ò·ì·Ü/ Àù-i7ËJ²ßr¿e‘•äeUo«z[ÕÛªÝVí¶ê·U¿­úm5d%Ày¾å”•d¿å~Ëu[ù°ó[:Êü–ý–û%Á1¿åÛ ó[ö[^Vå¶*·U½­êmUo«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝVÞÖñ-}îó–ý–û%‚¾åÛ ´ò[ö[^Vå¶*·U½­êmUo«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝV>çú–›\ð‘/.˜´ò[¶[¾­H+¿äeUn«r[•ÛªÞVÿ‚VÎÏà̶QË—õl—?L+: ´²Ÿ˜¾D+Û ¤ï-SƒV.Z­\×¥A+—•\Èòöa'heßÎ_¢•z±¯<À6¾5Þ¿D+ûNüü­lû>­ì©ÍýK´²µ1àgßçqœd‰Vö¦‹ô%Zù$£ÉÖ[D¾ieÏv+o ò8àö%Z¹4Ž$A+{{?ÖiåÒ˜ ZÙš{ ñd·bÓ?hek5ò51ÐÊžkë µÓÊ~È=¥YUžÂZÙÚ®|Ê ZÙº´üÝ­lM`8i{Â*c|»&¬Ø›„©;ØD+RËž¾êÏëÀ^) À²SÑY¬ •‚ ¼lIÕ…á •y°¿½ßE瞀VöØR—¾0l}8Û¤=„4‰V.j­lRð²[±™´²·€Ž/ÑÊžÚ¿D+[C©¯\V¶~ÔFéV"ŽVöî×ô%Z¹$®ä`oÊzmýª­l§Vû¸Þ:uý£Í7kôm„—ÝŠû, •7ð?Ã9_“‰Ò"©SA$iekjF÷5hek‚&Më«¿ÖDîtÐʦIû6¯Óø}oÎ:Ò‚´²5}/ý|Ag<…»gH+;=¸Á‘R¤•Móïoðã'´rÖz?ieÓ|¾¿sµÓÊÞ´/šyAóˆmo“ðÈBm~KG‚V6nyÐÊFðp/ð‰t$­lšô·ÓÊNˆFN ‘/Z9ãîð­ì†èd÷ãîie‡:^´²G0êÍ#¥ýƒî‘‹ vèDz@WÑÈæ79ï&­œuäie‡büõVönÿN= Aw€VÎ:R´²iÐO •­»4hå|ŽXD[˜CB/ZÙ»û7uƒZ™PÒG´²Gvêg®nÝû¤gV6MúØo¹'â´rÖ¤•ó9"´²wóûßZÙ»ù;uƒæÖ~¢©Ðf˜uÄieëÞçÜ ~¢ý@+;”¦Ÿ/h>¾ÃO´Ú*ó¡1q{vHNôrƒæß?à§ûheïÞ/Ôæ×AZÙ¡¾Im~}]´²Gâ÷VÎ]ô=heÓøüV¶î|Ðy •MƒN­ì#hß ?Ñèø&3Mº¸ÀO´hå¬/xÒÊÞ­ú·Â¯êï©ðÝ ZÙ4ànðÓû ZÙ»õñ÷vøe=_‡_}=à—¾éåôÐÊYGVv¨µR›_[ßGZ'èö¢•š•~¾bª…öÂ9t[©Çôn|ÐH •ÚmÔ štq‚_çç´²wçoj÷½ ZÙ4€.ðSÚhåܸAOZÙþÅ#­+ü¸7NZÙ»óuƒæÔ ~¢ûA+Ÿî|þáþgƒðãЃ´²wç'êE'›_%MAZ9z´²wç'jó«lä!­œu$ie/ã‹Vöî|ÑÉi}G’VöÈÁIí~J³­ì—•èå}hd÷ë¼ßVöîüJ½ Ï‘ÖîwŽ ®ðã‘“¤•½;¿S»û/H+{w>èá?}ÿVöî|¼¾?Ñð •MÑËî§ïÐÊ~xÑʦñ}ZÙ4¾ÏA+ÛmeJ[„t=t·Óʧ;Ÿ´òéÎ'­ì·±BÝ AcƒVöî|з~#ÈEõ­ì·MÐÄ~‹ÏZÙn»ŒzÑʦˋVöa׋Vöî}ø9­lº‹^žÐ¤mA+çùM/m›™.Z9o:¹æïî}ÑʇF'­œ9_­œuD;iå¬ôÒÊY×+iåÜy½“VÖ„P´rf$¡håÜDƒVÎM~ •ýNZ93ÐL´²Ž¨­œÙq&ZYGVŠVV7¿hå̈}Ñʇ¦'­œá*Z93ØL´rmMZ9Þ_H+ç¢#¦A+ç,´rf$¯hå¬ù$iåœù}KZ9+­€´²ŽÀ­œE·“VÎIG@ƒVÎŒø­œÙÒ#Z9ëˆzÒÊI÷cÒÊIãSÒÊIŸÒʉ½*¢•“ŽL'­œ¶üA+'¥¿VV¤¦håÄîÑʉm¢•D+'Ñw¤•“Ž$$­œøù­œ¸Å(Z9qËB´rš:’ºÈ/‹^¦_ÒÏÝoèlÐʧûŸ´r¤-H+§!º´rbÄ´hås„(iåÄïÑÊ©ëˆjÐʉ‘­¢•“èNÒÊIGÂ’VN]Ï7åz´rꢱA++RT´rb¤µhåÄuFÑÊIG0’VN¢sH+§¦#ª“üHƒVN¤ÕE+:€´rª¢¡A+'щ¤•»HE+'ÉMZ9éˆaÒÊçÈTÒÊIô6ie‘"ZùФ•‰*Z9‰ž'­œDÿVN¼_ˆVN:bš´rÝFZ9q}F´rDZ9eÑÚ •=@Z9‰n&­œ²Žx­œ¸Þ#Z9éxÒʉ÷ÑÊ)‰­œDÏ‘VN:â’´rIZ9‰6"­œ’èß&¿,:™~éE+o.>VÞ›ìXå­ó*o‘I¤mvèTÞ[\ó¤U•„U\´Ê’°óFy/ýUn"Ö€„ò^|PÞ1OÞ¼áOÞ¢óA'o†ýNÞKPZIX‘.´¸0yOqºÎ%oaæÀ’÷9šÚ©ä=uR´CÉ[ +˜ä­sß$‹D ‘¼™N y3„<òž|'#+²’4ò>'`;U»Ù]°Èˆ"oÝkA"ïÁ €È{ðNya¾μ™RC y+Äò¬>äÍ2"È›±Ù$·N­€¼uH*øãÝ…ûL|3½Žô±°ÂÇ›Ïd•-Lôxë8OÇ[·v€Ç»“w¼u£v,ŠÔñÖmÐñî:{ÑŠçl{óáæ„ÄñÖW€ãÝôŠ|ixë ¸±ŽD"m¼¹GØx‹%k¼õåÔxóø1’Æbëp%rÆ» Ó­´õÊx+´ñ> ³3ÆZ4'b,ä„ñ®:UÚצwÕ¡ÕN¯ìÊ‹xñ®z½ƒVãox¶xTzѪ‰$†Uh¼=—(¸â]u–·w8 ˆ U¼9#T¼Å°‚)ÞúÒR¼• ¢XCŠÅG'ÞExoQ*5~Z™Jê&ÞÜß$K,\‚(ñVRHbmM$VÀ59â]øæ#ÞLÁ$E¼Ë÷ÉÔ°Âņx=i…Û&âÍS +I›ü°` âÂ)Hožè@xx–71vƒC Ã›Ç ‘[ApXl¹áÍ…ObÃ;‹²­´/hX‘Þ72¼5&1¼à`˜æG¼ð>gXwZáª-¼³`ÞA+Ü'Á +jŠ¨ðfÜ4IáÍÓ Ä '¼yÖ1áEûcŸ“´}þ®s2Ââ2ˆo® “ÞI@k¦îWàƒwN[hEz·Ðêœ +À\iÅóª+­†H`Xüm´ê/.xk`,x+5 Tðf¨#¡`Ad‚q Þ‰5Z“V~'­p£@ÿ³˜âÀ[´7hà­pÀÀû€íÛ<›¨'Q`!$$FX‡É‘ÞÄB‰‹ø ¬VBÀkë fg€Ï¹õ@€—F} €€BþWñߥ!"6R×Ö ØVS¬/¬ˆZáÛäïÚ:½zÒŠ‡?OZõö»6/P¿këäi'# #ó»6@~-âwé”Q¿¨ÔG¼¯òù‰ûx´ïâ(—°ïÒ‹`}×f+>PßµuÜt¥zïú®-¸Ñ D8ߥ£èÀù®Íîzp¾-ç»t.8_4óÄùj‹™œï!MÀùÒœïbº9ßÅp1r¾<ç»–Pip‡ñä|ƒ Èù*œïáPÀùœïbO9ßÅŒcr¾Kç»Á1p¾K§öó]Ì"绖Ψn´È Îwé`p¾Zç{ p¾Zç»t:-8ßµH?ó= 8ßð€ó] µ"绘Ù@Î÷ -à|ÒÎw1ð„œï| Î÷.à|áÎ÷.XG>P‚ó]‹p¾xç»–Ng®´j/ÎW ä|ÿÎwq^FÎ÷ð/à|Ï…!ç{pp¾ëœÊ“þG‚óuÌÊŸ·Áªã‚ó5é ³à|=ºÞéã+²0à|O«;8_ïlO_â|ÉŸ‰óµ¾ôשÄ&q ó„ÏœÀâîi:ǦÁé1ç{ZÊÁùZG¸/‚óõ†q’¼–.œ¹@ Î×ÃÜ¿9_ïwÐ5ÊI­à|½×Û^ zœ ,_â|½³›Øï‚ĹÃVlB‹‡°;Û`Å7:§Iœ¯÷d»ì°b— 8_'ÝyÀŠgÌ£!Ë$þª«‚mp¾ž>¾ÄùztºÿU Vì­çë­Õ¤€TÍùCl ª©Áùzµ÷1ƒóõ¾iq½ úpÀ :‰ëõÔdrIÎ7íëTbï“.Ô ºH/è$®· ¯y½9ß´äÎ71­MœoZ7相Ÿ!Î7MqÅà|“N1#相 $Î7‰ƒ!ç›xv¶8_õA‹óMC§2ƒóMCï'8ß$N†œoâ Áù&:IÎW)èâ|•‚.Î7urFä|“NE$盺8ap¾©‹[-ò+âzé‡÷‹œoÒ©­ä|ÓánÁù¦&Îœo‡GÎW©èâ|Scß:9ß$®‹œoj¬?9ßTÅÝ‚óMâøÈù¦JŽ€œ¯RÒÅù&že/Î7UqÉK~ÝÝ…{¿×îzs¼ûmóø>º»“oŸ»;oëÀs·¾eAçªpîÍÝú š«–t’¹[As·¾ŸÁåªCX®b÷Iåž#×åªaLîæWDr·l¹ê_'»uZ7x\eôÇU;;iÜÍ£‰ãn ÀânE—ÅÝ:§$îÖ€ ®šÝÉábÓè# Wùþ¤pÕûNwóD72¸[C ¸[  pwã w7怿ÕaÄo·Î}»+aAÀ·»ò[ìíæÁDo7g$owåû ðøâGÜ­Úè‰ÝîÊû3¨Û]yźչdn·†B@n·Îƒq«&{·[ã$ð¶»ê0]ÇmÕsOÚvWÁ³‰Vø샵U >QÛ]9bi«# ÚîáZ¥f«}R¶è‚ý²ÝÊÐc»5Tb»Elƒ°ÝE®O•Õ¾O¾“¿ðZv@ºvvÒŠlñ¤QÞE+ÜU@Ön Öêhrµ'†·»èL\¦ì¢#p}^½Ëuð.BB3­ðÁQ«sÔîÂÛ5žB`qÚ]D“VZÁµ°âÉÀV2¥Ýåû\`XÔí´â©ÀV((0ÚÍ3`IÑîÂ#·Ñn2€dhwòës6Ø@‚VŒÚ9ì?»~ì¾çlhг;ë¨[oìÞY쪳³[ëÕa$g7ƒoÎ ÜìÎÂB ­H¥Zô4»¹¶Bföà @f·ÎóÃKE˜=ôxYA\vëì$вf,»óu²¯N• *{ز:d‚ ìfN9Y9ALV)Z¤dùHvóÄ&2²›Ddw‘šh…6z²: ‚|ìá"€Çê¼ Ò±[ð&à؃I€Ý‰t ÐXfA2öPc±àô»u'–t֩؈²ŠÝIÌê È ±›çm“ˆÝIÇOZ¡É<ìNÂ]­x6¯÷jâ0ìN¼ÌÀÂêØ ¢°;¾ »uì#@Xåž‘ƒ=<0ØMªžì>Pk¡0°›‘YD`uä ØCk€Ý/V8<’ø«à â¯:š’ø+ç|Â_ÏAŃV@ˆ¿2xGø«Ð⯌=þštæð¢Õ…¿&1ÃÀ_u` ñWÀ_øüu èþº—Iüõp À_—Žrþz°à¯këàÚB+`{À_×&|üõP"À_—qþª”;â¯þªCDˆ¿®ÍËøëâì˜øëaH€¿®-úwÒjˆ†…®và¯:q„øëÚä‹€¿Âøë!L€¿.NÉ¿àøëN€¿êxâ¯KG8BüUü ñ×ÅCÚˆ¿ G!þ*…ø«pâ¯k‹Ym´Â'øëÚ‚r;­xPo—•WXáƒüU° ñ×%œø«ÎA!þ*v…ø«ŽE!þªcQˆ¿ e!þ*”…øëbÞ#ñWšBüUd ñW‘-Ä_×7ˆ¿.AæÀ_ºèBüU'¬÷BüumžñüUÜ ñWq/Ä_Ï_!þº¸®BüU ñ×¥Óå¿.ÆãCüu Œþ**†øëZüÆþ**†øëâ‚8ñWA2Ä_É]Bî¿Š™!þº– ÕL+x›e’¶ÈªPÒJ4,¬ðéþ*„†øëâ10Ä_…Ð]Kõ6Yáy»¬ %­Ä»Â Ÿ}à¯kq|üU€ ñW6Ä_Ø`CüU€ ñW æ?Â_ÅÛoCüU¼ ñWñ6Ä_ÅÛ]ÜÁ þ*ü†ø«ðâ¯Âoˆ¿ ¿!þ*ü†ø«ðâ¯Âoˆ¿ ¿!þ*ü†øëÒiËÀ_EãCüU4ñWÑ8Ä_EãCüu-¡³Ž¿ Î!þ*8‡ø«à⯂sˆ¿ Î!þ*8‡ø«à⯂sˆ¿ Î!þ*8‡ø«à⯂sˆ¿ Î!þ*8‡øë[Ò d—Õ «CüUpñWÁ9Ä_çœCüUpñ×o¹dU)Ç÷‘9Ä_çœCüuM1«Ž¿¾åø>P‡øëš:vÖg(K¹DÄ_¹´+üõ%i:´ÊJ4,­ åzË&«LI+ ³VK4l»%¬0‚"þª“ʼn¿¿þú’´ê”´ÂKX²’߇ñBv¿¾äú>ŒGø«xâ¯GfZ·!þ*À†øë‘…Vlˆ¿Š¨!þú’íûlá¯G6Y5JZ†í²’¤U¡\o9d•)Ç[NY‰†…¨â¯G.ZŠ!þz$ðWa0Ä__r}Õ#üõ%Ç÷Q=Â__²}Õ#üõÈ"«J9޲ʪP¶[®·l²Ê”ã-»¬e»%¬ú}Éñ–“V Lˆ¿¾$­ü­#þú’£¿$ð×ùÍ»¶[®—$þ*ðƒøë‘YV’íû¸á¯GYIŽïãv„¿¾d»åzË&«B9Þ²ËJ’V™r½å•äxË)+ñ®í–ë-—¬$ÇxIà¯Sl0ð×—\/Iüõ%Ç[æËŠøëä¹zÄ_,²’oYe%ÙnyY5YMÊñ–]V’í–ë-Çm5n«y[ÍÛjÞVë¶ZD:)7‘Î#Û-×KüõÈ·ÕÁ_l·¼¬ÊmUn«z[ÕÛªÞVí¶j·U¿­úmÕo«q[ m7þzd»åzKá¯Gé¤þz$Nž¶+ü•GÆ =r¼¥ð×#aÕoüµßøë‘ã-…¿I«L¹ÞRøë‘´w*üõÈvËõ–Â_yb®ð×.À5Ý’V‚c×[ =H'îÀ=²ÝH'ψþz$­üÚ8øë‘í–´ºñ×#iVVøë‘Måz˃¿fÊñ–-”í–³:nfõÄ_;åEÒ®Ê=ø+Þƒ¿J’Y]”û%¿ñ×M «)À5ßVS4,¬0T;øë‘´ò×{ðWŒ þz$­üü£Íƒ¿R ÅHõà¯óÆ_1è=ø+ϵþzs«áôÁ_y&®ðW€ñåºÂ_)…¿‚À?øëºñWÀüêðWäü©EÄÀÁ_@pðW¤üußø+‚þŠX„ƒ¿"4áைT8ø+òÎ1·Hg8ÇÜ"»ás‹d‡sÌmz㯠‰X:渭€‰¥cn?±tÌ-¢+–Ž¹E°Å9æ±ç˜ÛüÆ_Ïa´ç˜ÛFI+Þ?xÌí¢ä‰¹à?uÌmy㯊9ÇÜ"@äs‹´‘sÌmÁóê˜[$•œcn‘crŽ¹­oüU‘(ç˜[„cn§BüUa+Ä_•ÌBüUçUª ñWe¾Õ‰ÈÄ_•CüUá2Ä_—°Là¯\(þÊU5á¯\sþÊC…¿rùNø+×ú„¿r%Pø+× …¿rQQø+C|„¿rARø+W/…¿2HøëÒù²V<›vЊçÚZñLÜI+ ;iÅÃw'­xRï¢õþºt$0ð×¥óƒ¿rýYø+Cš„¿r)[ø+º…¿rU\ø+—Ð…¿r]ø+s¦„¿òÌ0á¯\ØþÊeá¯Ü#þÊ0,á¯ÜnþÊ -á¯Â_wãø«šK‰¿ª1•øëîü,Ý<úŽøëæ9”Ä_wÇÐ…ø«ºv‰¿ªã—ø«º…‰¿î¡'ò1HüUÎÄ_œMüu¾±À_7¹â¯{²¾À_÷Ĩøë¾ñWõ¨ÝóÝÜ{"þª$tâ¯[à¯[£௛tñW Ø>Â_7C‰¿:±©'4ÞK°'Ÿ¬³"ƒzCãK ìa[Áñúˆ‚u6§P´™Ø‚KÖÏXØÔ†m¦ÎóèAÂ:KåÏÖ,i÷ãn?aX?äEÃ:â´¨ÍOgÀ‡õ3{ µùÍŠ â—?ýùïþú?üÅׯ÷“ݵŸŸ¼þù»_ÿÓOÉÿëýOf}Hð?ú›¿ýJ_‡•ÍúÕ¸ 𫶜uýï¿ùéë/~òÅêïßoþ²ÚcZ=°û­îûÐ|à35´7à[óýÀê3¶ïBó¿ï`=HÒ÷¡õÀ߃ëÉG‚ß„öþů~Ï»kïùŸÿåøÊ_¿úû¯ìÅNçÐzÿL=¿öÛ¯?ù»?ýúÕ?þôïe–þ—^÷c]ÚÌíùÒµrÅCóõÐõymÞó¼º×óþo¿ïyÿÀƒ³*_~®±ŸñÜ…—Èyø×ÏxîšþÕÿëÏŒ^³}ðþ£KeÇçKéUªò3ž·ù2–ª;ºó£¥ÒåÙ|võC—góVõ¼<¿Ÿ÷.ÏïÿÐåùýð¸<ÿЃÿ¨Ëó<ƒöåù]ª¸<¬T¼<¿\~äò¬¾8øC—g-çƒñó/ÏïçýËóûÁ?ty~?ü.Ï?ôà?êòüÁðàŸ}y~—ê.Ï+/Ïï÷¹> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F6 /BaseFont /Symbol >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000023206 00000 n 0000023289 00000 n 0000023412 00000 n 0000023445 00000 n 0000000212 00000 n 0000000292 00000 n 0000026140 00000 n 0000026397 00000 n 0000026494 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 26572 %%EOF metafor/man/figures/ex_forest_plot.png0000644000176200001440000024076115172365253017713 0ustar liggesusers‰PNG  IHDRÜ}*¤ pHYsÂÂnÐu>PLTEÿÿÿeee |||ÞÞÞüüüççç%%%ééé:::222ñññûûû***………õõõ±±±HHHãããÀÀÀ... ùùùþþþÔÔÔNNNEEE‰‰‰###xxx¨¨¨üüüÌÌÌîîîžžžÐÐÐZZZXXXÚÚÚ!!!–––qqq111@@@RRR===»»»mmmccckkk'''aaaVVV[[[iiiggg¬¬¬ÒÒÒuuu¯¯¯{{{™™™ooo666^^^´´´444ÂÂÂ,,,¥¥¥ÈÈÈLLL¸¸¸KKKœœœ888“““£££ÖÖÖ¶¶¶‘‘‘ëëëSSS÷÷÷]]]½½½PPP‚‚‚æææ;;;¡¡¡ÇÇǪªªCCCØØØŒŒŒˆˆˆUUUååå***444ÜÜÜOOO„„„ttt]]]ôôôåååÖÖÖ„„„nnn äääÐÐÐáááãããwwwÙÙÙÞÞÞ<<<###ccc111...ºººCCC\\\¨¨¨ÚÚÚ¬¬¬rrr¯¯¯'''888%%%RRR×××eeeÉÉÉÔÔÔ’’’(((ÆÆÆ¿¿¿£££,,,}}}PPP···666‚‚‚kkk``` ttt???***ÁÁÁ‹‹‹€€€‰‰‰ÒÒÒTTTYYYFFFÕÕÕœœœ¶¶¶¡¡¡ÅÅÅDDDÛÛÛMMMggg:::ÎÎΠ  ààà444^^^yyyWWW===šššÄÄÄ´´´[[[ÊÊÊmmmJJJ²²²ppp000•••†††zzzÌÌÌŽŽŽ«««ˆˆˆŸŸŸBBB˜˜˜HHHÝÝÝiii§§§½½½”””ŠŠŠ¥¥¥ƒƒƒ­­­®®®ZZZ‘‘‘°°°1åµtRNS³ÚùûüÓº¸¸ýþð¸òéþëõõ¶´ïѵÅäö¹Âíôú´³½âåÐñÕÈ´¿·Ê¾Þß»òÌÎù×ìçáçöÃ÷ØÛÙðÜßÞÙóÚƽÖÆÔËÓ×êÜÄëÁîÈ¿âÃãËêÍȼÄηàµÝÂáÒ¸èÉÀÇæ¼ÏÐß¹Òîêø÷ø»áÑÖݺ• ±¿ IDATxÚìÝûWÓHÇñ@ûpLQP9X´”«‹""EP¶ŠŠ"È#ºŠÊîzAE}|ðÊ>çäø—?ùÎäÖvZõÔÀy¿~dÒ™&Aç㤙ԲÀ®”m刿JÞqõ„ëé&wÝ^Ýis]R{{U&·oáU#²Ÿ×b“d'f¦svâøúæéÔÞÚïìl¶iRæa¸þBÖ×wÜܶ»îô·&g×áJ¯ã«íËn³òV˜ €ª˜•Þ<õ2X_”õß«„ ·Â. ÂìU'j|{×9·|Ä!TdžtæGüµ)w-ógÕ‚ðˆ³û‚pÆ)Ô½­Ú[>b‚ªã–tÌ‹Ýô…·Ö>77׿·ƒpD_½Ü¿Ð?“PËÛ9`‚â&-cÀ¦´·6/Ýôê½ûî ÂÖ/êSÕµò¸YV„°›í—žù–^Þ'©xQnÿHžÿd7%òë#á+Wûsv²y}ädÙ¢ ënsº¬Ž#ç¿ØG—Ÿ©[ØêoÁåÅ9µ>ñG>™lîž‹Ür¢û¢ýeüßñ ÂMÙ‘aÿsÁSrÂœg»òI;÷±¯Á[/= G\ïþè;4ÚlÚÿÚXŸ €jx*Ýò1½Ü#Ë—Ü…þDÐcð»å§¿hz¨\QaÔëß'õË‹[- ÂŽ ßýÆ:ýáW·W²ü(.AxLväU°Ú}xfä«^¼·äMf3„'¡4åŒ9MuÆú!TCKRzâ¯áèÐLØ‘›AÖôënFŠš÷•)*ƒ­+jÀWÜjA,œ|nü2«ÚφE¹˜a«CæaË“Däèf,óI( B’ÇÌõ B¨ é®>YZ•^¾×òn%~~A 5Ø›P?SiÖU¦¨ ¥Ÿÿ¶¿)˜©XÒêÙùFYZšŸ_°¬)YL¬-«"u©UÝÈã䟷ÕêÖb„÷ÕpÖ°!}NíâçFö7Í'¡àˆëƒÜë3×' *^IÇ»!KïdiÔ²îÊÏ«R2\T·ÑL¹C¡Ù£2‚2¡ýÈ]:!<–¹ÕðÖ‘˜ö¾u‡£þÖ“êV”«n&®~ŒKö« µ† ÏeCã}w„]#œ¬3Ÿ„èÍ2:úÇ;Íõ B¨Š‹|ì.­É‚›EÖЫÛËj2á)éžßKIx‘tÎù~plÂXT„—ÔFb§­FbáV‹ÞÃmÔèk¿*z™‰IªOQÏ”–Ü'}ó­ºþy§ÌI(¶ õ B¨Ž+Òñ^·¬ÓÒŸn¸íßRªn©y¤ [ô6 EEA¨ï…üKÓÆV#±°.Ÿ½éí2$ülyAz“ô–c„ê¦Ñ+¥åï‚ëËîÙÔΗ9 ÅAx¿B}‚ªã‰úìÎK6ÿ!3-o&Çrú¬[þ(åuA5CQQêI“ÁçŒ%­FbA>LTÔL½}^xxÿ“ TÓ8”–Jù=oeLVZÌ'¡(Sê„P%õd8ém=Y¢},r‡çýQãPé@r¨BÚáO¿®¤ÕH,äŠ\6 “<q™>q-2ÙDx9fuû—>ÅY™5Ÿ„¢ ü\©>AU¢ž"}[Í£S›ê~P'ñ±F~lú©×Y„‚0¡Ë®ûPÚj$Îá]Ëú&?â„ rÿg¢#XŸÊ×´#à–èð°Ó|Š‚°Ñ«b¬O@•¨›WzUÖ¨G¾Ü•ÄÊÞ=i¥ý«¥*+Ÿ”Æç“­¡¡ÕH,—¶6v'r¹ðf\&Ô÷>]TfC4¿ö.ãš.þ §½*qi~%uÛ†ü‘PŸhýG:`5Ö{ìßßy6˜ÜfeÖ?0U BC«‘X;Vm=QÝšÚøN/wÇ%Õ5Îaÿû9ÔǪrÒzŠov¶¶„^CÆú!TKŸARÍŠWÓ£³ßý/°«úÿ)Sóÿ6U BC«ÖûàÆÉѠ̪?>^#Ï\»§žh­ÂqÖŽK®ªÀ¬éón¨•Awé«\2Í}P¥Sþ¬ S†G¬‚pÉkÖXŸ €j©kr¢Ïn‘ȲåIÒuùàÓ<5{~Ìí©'dš{ê±¹èGAXÜêS=z™¶†d>òGjzÝ´š½Þâæà°›¯aÚÔ«yµ0Ò¦N›šû®/g?³¬–)5y>]&Ã#.Bc}‚ªfÑ{¢§þ õÕ³¹¾‘Kú™Úץ쾺Ó%ÕÛü=9Š*¡©Õ7jñ\Ó{ï‘äòocÒš-‰¨ãâdžO9ñ B=¥1B_¼MêG®öꟛeNBôˆ ‚ÐTŸ €ªéÑ}ú½6`ôôzþxô ÛùÕ2E•‚ÐÔêªqSîHh)²ñ…®z%(h‹O,8ŽQ¯x%)Ô“1aäˆ ‚ÐTŸ €ªYÕ!åa숟Ykmá-þgƒï\:Pg•)ª8}ÂÔê]rAöÁÿÎ%'Ñ㵟ýŸ÷ÍLß:â„î ¿t#üF¦öi¿°ÖÛÓIˆqaê„P=ëNdR›eºpжŽõgW¤Üûb݆¿ÏI%óm+aµâ¢ŠAhj5û~#‘l;¡^ùd°·6•Ù˜ª ßà~ÛE;×}òâ„VÇ\W£»§æ:¢Åož7ª/Ö]µ*axÄEAXZŸ €ʶr€îzÏ9ùÙqýñãNnW?¸/Oîä^8N¯qÚã\ú G2"r-\_”õãá_‡+²ž[Ýk¿À§Ä˜e VšìL~|³u½ql÷+®g¿Bø{wR‰æ—_{å]n]¦Î’»­~›íUî®+½[è×ð¤¬:»–³k7n§Ãí#¥GUIÝ`³y¸¼â˜ãÔ”‹ä3Ó9;q|}ó´_4/ ÕY=^“ó1øu½R{’hùÁËÒßšœ„éŒãô·¼q»ˆg??ìàW+^§dunÏý{ûQï«}¶wÞ8¶û×3‚_„ú¿A3ÙŸ„íUî®·„ÃÞJíH°ý\q䢩¨úðć2ÿ*zƒªµ}ÙØá˜Þ•÷•_µà¦Ø? Â6÷<üiÞÔè8K??­ÛR|ýOÍøÞû÷¶µÞ×ÉÌî™7Ží~ÅõŒ Aè8—júíUî®·„³µaÔú—ÿ³wîM+K¶öcJ¥ÚŠ ´•J-P-PÊûqT\DAôÀUAÀãç“Oÿò›}d“N0Þ#m(Ý4M›í¤Ìwgvf“Õ¬ Ìë½öÝ0<˜f»Ñ$š†<q)£~:”ú“?v]û· ÜÐ/ûió^J¯ûσ0~™œùL_¼Ç7{nA¨m—ìƒÁúr®l…¸V#Õæj/ÿ,i'›kç M^Müêš_‚ÐY’¹vÖ ‘£É‰“¥½ uóÈúÙ¢üùú‰0¤9ÆÈË) >tjxHF²€+!{tgÉ€nÕò//¨tCÒ}¾6m3„‰Ý+95Ô/e.ÝnðªÃû©{M:M]ë ©u;´§§ìGÇm1¿w8?â“ QŸulÑÞüôL|æQÓF°/ñëùCõÆ¢‘qp;9¨¼À@€ûR™ø™×;´6áõ†’3 {QæÁŸyŽhtWrZŸ …¸V#ÕVFú`u˜IÁÊ"K(@ø†„& ¯ôWd¾LæÚµÚh„—…)Þ#=ü€Ã5šö—~b©2‡ðªƒ¤.ž'Ýîç?~×°2F/„Ñf–Çû]´0/R~H,i…HO¹–Ñ×pŸèÍËeú zW[æ¡uzÄç® fjé¹K$Ù‡_ƒPs] ¦«¹ñþ»bü¦­(ÓàÏ>—Iáȵ2€Ð"ø\(ĵ©¶2‚0J^ š@ˆXB›Á;è¯È|Ù°ØF# $®…Z“¨« £îÔÒÀZ7cÉC¼ ˆ9ýUƒ.âÕ`â£x™¬¿ß}äF0ìŸ÷)4˜ÿ ª<ÃV+ÐõÚ·i=ô¾` …V3d×jáf‹«_IÚ³5Q‹² ÷ÅIˆ¥&–Åëa„ðe´¥!¾ø¼iãípÒN”iðg„׋¬m—„ˆàs¡×j¤ÚÊÂ'#4±„ „Ñ’j×_‘ù²!b£~ËdMÂü=‚Âu¡Oð^7ÍÔ Ñ\±[Y‹¡ÅiŸÛ@ÞïÍdÑvlAØó ò/çŸ=›™¶ßúûT‘”¥u&ß/Ó{2ÍYB›>±ÕÿËÁØåTÏÅ>¢ÙÁ8›*ˆ|"޾϶ÙO]Ï,!ù¡×ů~ÚÄf#Kúµ‚pÅKîa‹'¬ûjžíE@ù|ÚF”iðg„r£!þ·°ÜM–NCtå;^"ÁçH!®ÕHµ•„‰x`¡WQ7Ž&ÌRFÀukL8ë¯È|™Ìµ!f£Ö¿RÀN ‘£”ôãõCø5ªwÒØ¥ë]Ä!Ì¢*x©‰ÞÜ B¢ð®ïd\wmAX”,£©dÓ¤r?o’Rô)B¸†ÜTX8¥,¹;Û9p“ºÈwE›zYu 5·®vHÙ¹ø!9Þ5€P%qóÛDŠ‡øw0uz¨ólu!‘"çíÛþÖM½¼_L”iðÂÂ#nj >G q­Fª­ô 4µñ¸ BÌR‚¡{wÖf¾°ò ÌF# $«~Ë(£<Ňé.ª}-¼úqtÚÍû\BR ¢= b E^'²ç¥]ˆùB@ˆÚh „qžÃ#y3æ1ÀB“©¨Cy«[ÊIE¹4:¡zò–ýÁ`™qÉõ œ±+ïÙ€åãþÃ0”dJã~MR–p‡kVڻ慔¼´Ï ª¢Å nꓲ¡¾rª†7G$·Jwôµ gä½·‡-_9ƒ‹ªµz‹g„"Åì%ñŠÕU9bQ[ZÁ7¹z¯V¼B\«‘j+=õûž󨾳‚³„‡ÃNûCÌBÔFc TÓxX¿3Q\²?EÞùÇÊ4u¾,õ‘%ï>îNÖYAx_œfØ´¡Wšd™«–°›”%—e…pèe–¼BbŽ—#šµ~âÝÕ³_#ê:¹«nH>–&ñŽ@˜³|å9\”<ø !]SýXz Á.ái*ĵ©¶²€M× »V"–‚*Æœö‡˜/„¨FA¨ójjo·IIxxj¾äˆÌ1±Ó´`;ø˜Áíëa2ëó‘µ±‰š&÷0´‚ðB„ƒ0G?’tÂ÷v¡ÑqÙ#4¶héèn½ÁD²t£/ÖG$Í‘»;Ü;—¦Îâu>—$O;!¹W]æ÷1Qòà+„ýÆ.¥!ì6ž¢B\«‘j+#PΠÎYAXl )?äé6 ŽúÃÌÂ÷NC£¢MJµŒiݲ¡¨¢l’ £A’Æسn(ß&åp(lCÏ·p¤x7sp··5ï „·¬ ±]Œ%ߘ¨â ³=}ÒnyVÐ(ÙœX…9ËŠ)kÔB×®Dí_¾­ðLœ J|%€pÛz.!¹`·ðâZT[™@¨l€ÓÖµ^B«%ƒû”&Ão:ë3_Q€0’™êù¨™.dÑoæÛ ŸeBÆ óo=¸@ë$À‡º`s¯ô½åx®—0A2€.ùXƒ’<çOñ˪„{F%Â#â[Ó-õÇxC­´[M‡(h_M­å‡YÅbÞˆÁY}õfq«^‰ÊQ„PR`›T€°×ØM®¶e fÆF”<ø a»jÊÊ--‚Ï…B\«‘j+iV>‹v24¡–pžÙ"‚ÆàŽ£þ0ó%™kBÔF# Üå—¦kùÛ? ,çx«£Ú_éšã±Èfdm–A·éÚä”G”«» „ðõŽ .’!­+™üGaÏá;:ŸØŠ¢ ¤®v׆¢„Ç Ô=jeÉ_Æ…LUØÈÅ¥I«PGèM[@¨’UEßÄIk„ <=kQ¿5“]šB<ø O‘mDUg¢¤eçžš=S¡às¡×j¤ÚÊÂuÌÌHhB-!ßkªùêõ‡™/É\›7t³Øh„“7dzJ Ql5?€™´9¶ÖnhZðšì=³¢(kÖjpêVj‡5g»a)Žò» „I‹—ûœWYÒÇ‹¶­%YRSœSSË÷pNÒEßPý¿˜%Û¢‚¶ëñ¶^ü0:(…5SVðÀó‡SÝ£4Çø±é##cËy¿æ„tØ»øö5‚Ob¢*„æöµÂ»v\nÕHµ• „¬šy_öÑ0K(ž>iŠŸœô‡™/É\ b6!ì ¯†!p‘£B ûXææAÂá%éºmö¨Š=º©[è‚åQw‹–Ÿ>5ø.aöG‹' Ö/·®û¿õb7¨5ÂUÆ™1„ʯô]©ÓmbI¯H@Jo›žÕÍêZ­{ÌfT“úîÙVx@ktÂð¼Ôí;QÂ|ºÂ»v\nÕHµ•„°uMÂàhÂ,¡á1¨µiýaæK2×ÆŠ$b£1îó°¬´´=¸gÈâBÊÎ,͉ùVüˆÄkw5ëãíÝÂ'æȨBSz  ÃjB<= „Ô_„Ô&„JÓ¸H=eO1±„¤ÝÆ(ôâwŒlÕ͈$û…i|Ýüþn7òR„‰Ÿì©Jÿcïîcä¨Ë8€ŸA i ÔDy1m¥E ‘ (*¾BŒ˜†•?$ JDŒ !i%šýyG¯×ÞÕ+”–×úB[¾ñWZD )h[àJ¡å¥( „O‹œ½Û×Û—Û’îÝîÍçóÏíÞíÎÌ=¿gæ;3»³{ÅøŠ‚°aòÄ̘žXrV#//;Òf\³ËU«aƒð}'.§NΉ¦"[Âìóž™÷Õxå¦Wdó•³¹ÎykNá6ºX6ü(}¡ÿèLæ?%ýÕugå}ÜÖÅ©\k¸ð´h÷î¸_)øZ‹äæõ¨Ìytú‚¥ Â#¾ÿ§ÿsbŽìËŠ/ÑØxÒ÷~ß Â —]Þxèѧ¦TF‡ãîûÒÇÉ E‚°áØÔ I'Ÿý©ÓF:íò?ž—þë/£ ŽŸ¿€'å¨Q£Ž=ýóúNÕþ¢T64üä˜3F}}b´óRY64\pÊI‡>îòoVzV#(›?ô/^ñë‘7ãš]®Z­Ã„ ô¥Þoó¢©`K˜ ÂÉÉ8š2¶‚éÙ|ål®óÞ£:p]4ûȣθøÒÜ ò%§œÔ8jÊ/ËÛ‡;>=»ìTŒûMa!ÆŸ{Âèhƒ;ú§çf¦Xs_Ì;dÎ,ûF§úr€áñáÒè«ÙË'|»/—§~rˆf]·¾0¦øSõûq½}Ä5@¬ƒpòE'œ9©×pò¾óÝKÇѬëX´÷pøïJüíÂqõö9.ñ>"¬÷Y‹¯•97zj‘¯ž`¨ÒhêĉÏÚÙþ šåÑ1 ÂägM(þ§/×Û癌¨ øžÂ!pbj¶± Âäõ.ÅûŽaŒWáH÷Ro—™˜ú(! @9èA ŽB¡S£8/4*‚S£ñõýШÄ×qc¦(16é5€89’_‡5MUâËu„ÄÚÏ!q6áçç(ÄÉç.Tbœƒ‡|Kˆ/×  ®Æ{¤"cŸUˆ“s¶"_Ÿvùqæ:Bbí¸1S€›t‰@¡ŒXçORƒ‘ç a`¤ÚÞÔ¥# ¨ÔšÐ¢‚PñµR BAÄY늻A B¡ @ B¡ âdáãj !_WÍØ«‚Pñå:BA(Aˆ „@\m™~"BAÄX‡BA€ „BA€ „@œ´-Û£‚Pñåk˜¡ bÍu„‚P±ö`ónE„‚ˆ±Öª „BA€ „ ÂíÍ!¼^Kÿ}ëáÊœ»/ì˜5gΪ·W|ؾÎp}öÞÚ'—¶´oØôR›î)_¨!±JGpxûªà~[x×Ò–æ®kþ½\¿VËk/Œ¼ÿiûs[æt?ü̬ÙE{úšt_EÓ0·OoïÜxÏý¼r•iýÄέ«Û[VmëßÜÒ·paûðá+Ñb4­©¡ñ([Ó«wô*´ÏnÍ{TÇ’ÓëÿœzØü•6 ‰2…ªþˆU<‚ÃÚWEîWkV oO Ìد_«”M]#îz´¥¿Eš¶µV¼fíéœ tšyØò|ªK›ol=À•«tëï»3õ«9¯ÖVÎ !ÜS;ãÿ~SNM;^ŠÔ=oÚ¦è°õɼ‡Í9]¼3Åžç£GÍú“ÍBéBUÄ*Ááì«"÷«5«¶ävè‰{–EÛ æuܯûkø «Èu„;{ë{½]5ÇÒ÷$cã¹J×ìâ=5༞ž7*™fþªûTÔ±›ÖoK>|Ú­\¥[û¬(Z¿"úÑ´3ºßÛÓÓÓU AøAôOv†®Çkdø[g'÷•35½-*WOòôQoT¸[r÷HsN¬¼+4ßÜwÂ)zÔ<Ù—(U¨!±ŠGpXûªà~õfuw}åׇ°aKÝöëòæ¾f½ð“ezÃƺ^o¯žm˜;¢›ÛCx¤¢5»TOGqt]EÓ0—Cèê{bòá½°r•iýĦöÎL†ä !¼˜Jŵ„‡°hG/ÕÆðÏüGßrº¦oÍavÿÍ§ç„ WgڻÜl¼’9ظ):~9ò Uý«x‡µ¯ îWoV­ÑÆçµÔ¶mn¯Öm¿n͵»p­+î.ØÁï®ë÷Êô«z‰¿GÁš]²§3A8È4vîêí¿yc7T¾r%Ê´þºæ^Õ¸¸4ó×ZÂ--¡³mKjaðßšC·,ÉÖ4*ÛôôÛ ¢=ˆÍ™Gîw]™í‚e!¼‘ºõÆrñ—(Q¨ªXå#8œ}U°”Uláë¢5?gù¡ºíךÂbgºê;ç‡ð¿þ[mÓC󃃮Ùez:„e§Y0ÞV§n>Âw|F±Ö>„u©_½»xÉj'oN.`Û‹!d>™aq˜ŸX°·}æ¾—zï]ÕÒ¾ûÍ÷Û2ã³8Ñöß%]í»—-J?£cçÖéí-«·æ¼®’§]˜0í´lM×çœ9Ú®ôí!ÜvS¶  áþ[ ›C{‡øK”(ÔA7pÄ*Á!5èRVoV‰—BX–ÈîÜW·ýZ Y‚0σMÑJQ¿›Ü IDATvò¯ƒ®Ùez:„å§Y0¶ûwn® KϸHë/o« 'Q A%ùþDâíœÍU„Ü•lÍÑñâ®tŸ.íÍ$Úö½©ßÝÛÿ«¿<‘yКÔaf%O+ZÓ´%rj:/„Ì)h0nMÝÜ7#,é¸)ïÔhwÿ~õž6‰¿Œ…ªÂv?Ä*Á¡ÂA–²z³Šö˜ÿ¾&}óÕ¶Öm¿ ¡ôNOåDÍ®A×ì2=ÂòÓ,·Rì)óRv™ç¶þ¢¶Õd®i »£=Òµ!t¾•YªUsûÞðÚ–h{*úyíÛ7nüÞ‘J´Y·†æÇÞ{3úUjŸâ¾ºÞ›½gk”žÝ};•=­ˆu=ÉÍCþfôÝô³/§t<:ŸMätÁÌhªÝoì[xDzhQž–™Cõ…:èŽX…#8Ä]ÊêÍ*ÏõÑ^|ÝökmáÂÇGV¾œóªÜ? _¹*\³Ë4^:ËO³Ìv¶‡ö5ªã¶þ»!¼Ÿ˜¹~cKË­ë—×RNK½1öÚÔk™ýK6¾óìº%ÏýŸ½³Ž¢¼ãx5@'i ­@,PÚÊ”¦ì [Æ©¡:c[û2´Ú™Ží ý£Ò;ûã®\r\HB^ ¤%p$1 `xÑÐм•(HAƒ4¼”AÞ…‡>û¾····—pw»ÙïçÂÞîsÏ=Ïïy>ûìîó,ÙûÂùôÕuŠFcŽã ¥š%+¥óüZá7ÕŸ ´tg–'¹Ló5Ü·²$òðçr¤æäÙ[ÿ)„T|з‚¨5˜Lr﯒úfy«¯¶áJÿÉá%ÂeÊ3fwTs¯-JË6a”48z!¿–(çÜ ">,ôÝãküâ ûˆ0¯è¨ÔGTsu±ChIw6+¥ÛÌhM¢ÊÏäŠÙßAô±<üõ”X>ÌR™²‘´¥ô7?›¥‚ÿc«—8]lÚ+ÍÛüo$Œ *ÑŠ1¬AwŠ°c…z[ÀñÊD¸ôV£áÐ*£BÝ–g‹°D¹ÌqLjNXlÙ¦"4O3BÂ]®š­ƒ;õ ý¢«^ÊéÚ÷ª‡ÙõÛˆp³|4X(?YÄçJºŒ{¨HÞó‰w9™Ñú¥Mµâ!§¥ç8®sSõÃ,•i Žè¸8ˆhZ ÿ-Å”ÔEAõÆr:²6¿Ýdž›XªC¨ ®£t§+²à¬pn¼#‡áèWõ®V†צ¿¥¹e›ŠÐ4ÍH Wé A„jè³ó?æpþyÕk•Du¶™G¸O¹a× \?~]yÈm;-ïY°<Õ¢ÑÔ"â,½ÆÊé|¯æpk‡Y+ÓSü%Õ=Á‚²Ãä+'â/³~F¹k¸Ð(¨*&¿°­%^‰1¡ˆAA%A15èJÙxØÿ/Ç+D˜HµF”Vä–m*BÓ4#%PÖQ°é-/ #ÐAŠPúüR3ûÄ­ËO(òIº;r¨P2Ø?Xàå\Iz–ÝTöe¹­¢Ñä5vK kIzî|7;¦Ã¬•é~9¬½çêÈžÁ¿Â…FAÞ¢5⟗Ù÷]…y *)Š «AWŠ°{ÑÅ2'Ç«­/.­^:¼.^ ½ŒÙd±e›ŠÐ,MóF1ÀLØ;XjCëdçµíµ‰? =…:-çê˜øq#‘ºìxÑ'¢ÑªT£½Æÿ{`¿W<¾ï£Ž³X¦‹·V‹?àÊé¢ðØð®º(PL‚d Œ *9ŠÑÕ +EXÖG”%· gÆ+¦O$’¡¶TZlÙ¦"4I3Z£(Ñ„lŒ" ýÍ„Ä÷']„[BEX«ËÕ éIuÂÄBc£u·¬]è/‹å0ke|cãáþl~0ϺŒ¬‹X’þ¢¢ãâ™Î›òÞòâÕ6œqA%I1¡5èFž+$ÚÕ­9Ûw`¼B„‰äºf¾õY¢.‹-ÛT„&iFk7‰Ê'ÂÐÐ[s5@”c–ùÚeÖ“tÉRÍÕIíݼJq™ÖHFëØÏÏ>lÌ‹í°Êt@x(çmÝþBw»:÷ƒã|XcM¹°‚J²b”Ǫ\&ÂOsÙ©»ú¼¬3ã"L$7•ë†Âä÷Õ[¶©MÒ4N  Ü¾>F”;(êBÿ´& ”¬'[„l¼û™ú¿ƒR7¥æªAó”Ñe6äëˆb´^¯àÒX3¯‹•šúo6Ž‚ÕD;•ÒÍ%o6ì#B} ºO„;Yñ—h†}ÎŒW[‹0°¾x‰0˜K5šx¹~+Dh’¦Q­+¼ùš1“0"Ô‡>sñ ùï£Ê¢$‹ð€_¹gÏÓÌFªÕ!¹:­Y’ç”43Üh%¥åòò­ç…Å„­f©L«/æÊÓ+üêmVõùU¢RyëfÜ#Ô“Ô{„f5è¶yZ´Ÿ:3^m½èvøk˜œ¾èö:"iš?©ÊbË6¡•45 lЄf¦OA„a¡¨žäÙ¡¬Û–d^ ay5™•…â­ 5Wm…ʤ‡ÎFi"`¸ÑV©Ï"½*Œ­f­LëÈ#­~E³‚«. Þó½/ôI¢¸Ï>"4«AwˆpM®öJ¨sãÕÖ"¬v"lUZmsÄwÅ*B ijèØ®¼'é 3mˆ]„á¡Ïßà\'^ ö)ïDL²ÏËOáJ´5f‡äê-"Ÿ°FL7;—¨ ­—$dÿ÷¬Æš››E+ÓÒkóò‰ «"E˹O¨²à%¢¦ ØG„&5è ô…¿ÞÛ‘ñjëó¶yût[ÿbÞDùÞtsŽránCssýPDh!MmLZåÂ2h׊Ùà0`¹Ó–Ó4 ý66$là'·17\âì Â3^Ý/gÅ7Nhr`™¥ƒå¯÷±Nì?œ±Ñ²ùµ–ô\a'·ž^ˇq¤¼÷1r™òCJßáüVƒÞw"öïÁZ–Ö–ýù‡ýÊ›ˆÐ¤]!Âü¼¢,…KÎ×;çôæ&ý–ÞkÎn¶gYÿ\|eí?=ê›r¤Åœ+B i†4ÝRÖ£é_¶ŠÕ$êÏR§-§iúÜûÐÿaþ‡åD'ºm!Bv†þzÈþÄÇCsUЮL­f‚-xDYËaC ‡Y+ÓªZ)¥šÍ&ýûÒÝòÖ½ óÙJ„&5è ê¦(•"^5ÞñÉï­Ë»U"ŒžfHü ‘m’b¡aèsk²d7(CË䊰Q3½Rd­0í?4W[Uú¼M»ÿ§¾a×àfßž†âBï‰m=Ëc9ÌZ™r­]~où¶7ƒæýûû¶7­j>€d3F®AWˆ°Ð°7@¼‚¨,_¶Ë·=«á5½`† ¨iêXÓ^—SX·^9…I„Bÿòß»j¼å]­jèÛáżɤEûÐ*€[NQ´×$»Óv»WS=¢0dÎáрĈ0¶ËEx¦¼A 2ÝžB"D—NÛÝ" öy?A†L½³_ºäƧÓvùˆpí Ä(`èTA„¦",éé¹`ÏNûZOOOËïÀ- {ら)Úk”’Æâ#¥!ˆ" B"€X©À=!Dp1+ý'Q!Dp/˜GB„ˆ@„!À­tf¡ BˆàbòP!D"„@„!ˆ"¸‰Àú~DÜ ^ÃB„Wƒy„!Dp5mÞ>D\ÌÍM(ˆ"šñyÀA|,ð‹…(îe”g €{yœRPÜ˯!Bn&ý¹'P¸‰é¿Cp±o…À½`!ˆp+ã&ŒA!p1ÓP¸‰»ÇÏE!p/÷cú7ƒy„`ðL¥Pî°QÞ¦-3)möÏŸŠðñósŸžš2ñÉ—·ÜCôÍxf(ý>©ùïÂgÆŽ‘±à~ýn3&ÑÑ÷Jóþ465%ãoñËÀÔ)R'eÌùºfÓ¨9)#&~õgæ›Êo~GJÚ’1,J@Õè¾k¤®‘MŽ,`ð|yôËÃïG™µƒˆŽ¸û!𞌚¦Ág–ZIÔÖmÖ)ΛÅ(ˆÐébåQêbà !³”<§}kQbD˜IÞûŒôõ©óÓCýý]Rë<â^‰bÆ}RF¼Ÿ/÷\ ?T~á7RÄMžf›LSäh¹ýWñ®š°ï2aH°€!±ð…a÷“LZAD›ì®¡YK ÿÌZ+‰ÚºM;E›ˆpô]žµOü(å¥Û2Xû¼_æ‹nÒØ #ø.öhD8íYö½¼mVÑK!»Í'µÎ#3Ê»˜Ç?òØX¤óâ2lÿ)« Y,à};GÚöcökôØ¢lJ$“ùŽàéçæŽg 6mj|«&ü»fjX*QFºq°$›¿~ͯo÷âŸ!õ¨­Æ ¢Ívg{?˜™ùË(-1ü3k­$zë6í_ÈÌÌ\’|~ßžAð%æ96tžÌJmJ؇é_`–|e_ªO}o4ÑCÂÖo¹(nùIŸÏ¾Gá+Ì,™wóµÈ3S³ßÃiš:¸WÏ&ålòo‰þ~î'Dßù ÿÇ<ÖÅ‹W±ïÍÚÃ4iÓÑ6%”'X0 ½Åïd?.®Ucð]*MKfüŸ½+ÿjbYÂcÂã8A„H”-AYdQ /†EV\XAÔ *q»¢^·çÅç9uò—¿îée:3==}Ì$—“ú…Ð]™®NWõ×U]Ýã¡,å¦gð©Äèƒ7Uôµ‰–©Ø¶û>SR§e%þÖí?)ÖWЃ–( 6¹*? ?‡ï~†&×Ú÷–û΀°90M>ÔÀTÊ^ÏvB sO®°è­Ôˆ·œYø#€åÒå!òñÀ+†ßIÑ/öKHŠÂ¤®I.e ýŸƒI[‚E xÍ+KÙi V+AŒY¯b ŸÕÈ´LedULî:=+ñµnI± „^40‹ÿ^Gs¹«òˆÖ‚Fy>àpÍt¹ 6>˜ÌÐÏÈÙ²£ŽWÁ\åcîÉÞÜl Yß±wú l$ت`Ëú0ð€%[!ÞæQ&µ :„–Ò—ƒI[6}§«;™²üðt´@øÇÆB…ÕÈ´LedULî:=+ñµnI±BðÅL]Úœzÿ)É×:ãÃETò¯Fvwr±©±»F íF+ÀÊÈ·éú³G“f4ѽ—´'ÍÛ£Qsr‚?´ê̯üOsòò·»t3eફr@8=ËÖ!´ñ:è5R«ÓÑÑY,ÖAjáÉ€gßd¢:©ÙöÜö9g†Yå À;ö9 ðßK|̽¸Â¢‚ £Á¶ÜÎ2ëxJ°­iöKŽ´È‹B¥=Èò5°¡‘´%ªQBˆ•–*KO„µÅŸg UV#Ñ2¥‘1 T1Iê´¬Ä׺u&ÅÊÂ5“%‘p Ü°Ê®Æ`žVÿòÂ/[Ì$éé†æw¼äáßs´ì¶Û û °†~åN0·]•}ßìËæ ›#©R ¼×Kå¯ÍÐ ¥š^}s‹*ÂH_Ò€p`Ù° Ž~IC¾ßs®Ðè.ÀïÐ[¢ ~M˜ý{ˆ¢KŠÂ¥æë|h?“=çà†ÆÝ£ Ï’(KO„gî¡ÒjÜZ¦dg@¨b’ÔiY‰ŸukMŠ „Ã8s~mAQz›Š9ºheêfŒÔN\ZèD«[o |;ž^êF¨ÓiùÁ™ïø¡ëwŽj¢o)&ê –?ÙŸÒuD|èeâ»5†üD—ΰiÌ'è_xö bÇãÜw÷Í%ª„nH@V„hŒ#Ô·ÌCú£!s›+[@¨i5LË”ì UL’:-+ñ‘SoR¬¯¬s„ØÉêG¾ÞcZÝauÂ3·OÂ;5kçÓ¬"Wä+óÛ‹8`ÖVÃÓ6Ñóû(N‘ïÄ%?CfŸWxèáÉÌÄ-ƒK¿¿¿)Âœ•*Ù…¼ØÙ²¼ pGÞ7—¨Z@ˆV>‘AûA`}~³bö˜K¹B¤nôKÇÀÌÍNw©‹õνå+¾>Vñà‡¼¨L´Ÿ aø††·ÅT–ó1¤ÊR@xÿüÿO¥@x‚ÍT³F= I¥eJv„*&I–•¨åÔœë+ëf,ËÁ»} °CÅ\'%{ö¶ÇyÓ‘·üŒ4¦(ô7 ç(B–ñ2Ê’šlºUoIõº.¢}ŒmöµÎœ@HŸ{`‚|ê!Ú"é›KT- Ì õ#Ô>Ëðñ÷a²P2æ2®0é=Z@7^Ýl¢_3ØyéïdvÉêê8_Y õZªÈ‹ÊCƒ[ìïá+8vÑÜÑ„<ÑýÍŒDöBv|‘ˆýラóù›we…äžJúæU ñ‚.RíW!Š¤Ä±Þcˆ?0Jç6 W˜„oŸ8¢ú3ÀlÍöýÔá|Œ.‘^ü)ØED^T* hd œ¡ÛbVßaÿ'Q–*VP$«´LÉ΀PÅ$«Ó±eú“bîŽ9Ôò<“F ¿ ±¯d+W3¶5{«‹—oˆ÷–{Ô„?ÄþzmÜE³ë£¤± 5ÇrùÛ²¯ðekæ¥R ¤Ïçk•!„²¾9EÕBc_u:”€bÒÂZršQœÛ\\¡Z©Äjíyø} =Fc•%]#%Sò¢rPm/@n3œ¡)m‹šºö%U–jhôD¡ÑÁ×Æ™" «µLÉ΀PÅ$­Ó°Õ3µ'Å ÂFXÜ#b~$µ AàûÞ@øúwŒ|{rÆÚ[ì°WÇyë¬+6–ärdZé5t-€ çÉŸœ’{9zäÐÂ{[J€PÖ7§¨š@h|M“3O4ä¬$áÞ×î¹ÍÁ.u³3î†u1AÀ4ÌOè­±¢r»¤¨ ÔŽ–L“ÛF(CãlË0¶Ò<ôî¡,åÂt²Ì`dîl¡¿Õ”h™’¡ŠI^ço%ŠgêOŠ„ÈÙ>¾/Ð…1§F4€Ð0þîË€‰àh°ÃnEH´ò zÂ3ÇmÚým"fm›Ä¡´ðŠÊúæU¿®.=îÂá€:KÐÅF‹æЃǤ\áÒmá[ùÍÁ¶¶Aö~ )"wÉÖ°¤(|ªA륿 Ï ¶-œmm_ á¥,U ¬ž#ääk5¥Z¦dg@¨bò¨óµÅ3õ'Å  p_¾k‹9*„FÏÙ@xÞŽzÚÕü|oâuö[·ðlˆO»¥Â;<Á®ŸÜñYºj^ŽÃG4÷—ÊúæU=·Òmn;œÍˆ”+\Z¡¯Ú›K¦„°Hœà!o´‡¤JKŠB'¤3Ð Ï =õ¡‘µU'¦÷S–*VÐ×jZ¦dg@¨bòiÏÓJßÓŸ+Ĥï/N1„Ž „B¸4âôݲ1 »…Ì¢fT´¯ÂyÛ•Ä—ÄÄKßÄ”hÃÕOîk¡¬oNQ509(Œv‹×˜;¹B7¥&!h€Gúg"ƳÚI§ q;„2NV(’¢2Ä™`¸d‹#¸¡q·eµÈ!OU0@ lnm4ÎùXSË”ì ULÒ: +Q£Vú#µÅJ'äh¡¤o.Qµ€ðK.>Ç:bg¤Ð3VÅervÆþ2ÀÓo¡G€×›ôâ”<H2A‡BR.õûÄ‚‡ÆÕ]»}“1W÷O ~㌑ÒjÜZ¦bç—n«˜ÜuzV¢cÝ~“ba*ÇSSú;èƆ-æyÌC¿$@¸ÃwK»)6؉D$(ŠÔÓ)7wÒs~ |çg÷ñE1ôòN¨sýÓ…Ö‘”JúæUÏ#L@‘îR¯;_1 Ìm ®PyÀ$¶0È»ªöMñ‰ôX^"ï K…—…JâÎ"74’¶ˆ*.œi f ë–Ïyv·Y-Z?$ >@hãõZâ%³SåŠKRF¦ð5j=X¦ÚOuìªR ”ôÍ-j²¥¥å£Î"‘¬{x¦j^x¹‚+jCÀßê´uð»NjÓÖÐ."çЊԤšÐ¤?˜ìý,’¢0)õ÷«³ƒY[†u£ín…aõżF2«éii¹î¡e*#³_ÌëýLYÄJÜӣꙺ“bE^º}„ÓFnL¿û 쨤 f3™ØØõ^À/[´¼ý4‚—üøX¢Ý‹º¡¯nݸ¹Žœ¬bÖŠÒáÛt¶f¦/GÑ÷^~@hí NM4ü@WnâCó%WÌ’\3Wcý%gU4€ÐÝ7·¨)(yI€±_}2}#_ñœÛ\áÐs¤šéwÓïþÇÞÙEqÞqœµ©ÑQÓÆ8š1¶ÆΘLKÚ:ÆI;hÚ$3i&Ói›fÚ8m§ÓšNj&6d:ýå.r‚ D*PäEƒïJ4ÄZAiÅwQ£¦h4J“hŸ½}önïö¹õöÞöûù‡»gïž}öÙßóû<ûv°îÊ0%ÐÆ°N·-˜s×=lZ4“GõK)D³œþŒÍw6VPFØô‡^»ßËÌÜ5¢uy¦Áô«(áëFŃxcþö tÔ$+?ˆ,Œ2ƒAæ¡A¢e‚Q"HFu†˜£R„cÿ9’ŸêO\Êÿª²Ì6çêéÎ'-QÆ“ñ›eæ.P¯$>Èûï×jÉ#üÀØH„ sïQ?.ÿDØ¢)þwá ç» ñw~–4ê·M×ÔD˜ð€úCßÿ‹An þ©0ñÄ Þ€)&~Ãû#¼íO'ªÿ]kªAQø¸ÛÿÖ½fîáº&¥èQ$Âgì¸9q·MúQÃ#Ž²àƒÌ'Âàu —éG‰(=ÕZRŒÒÌûÐÏïNMI}5ýuQ3§¾ü›ŒäŒ¿þNþ)K®¯WæLIL|$}|ÂcÞ»F¿;yvRJÆ„4ß÷þ8vbÊÌ?¿81!²¦”8b¾rôøͺ<>/}Á褑©#&¿ þðO("Ôo›®©¡‰0á[ztXJê„ŸÍ5ÌmA?¶ ö×Fe¤¤>úófûOŒœ4zœV'Ãïš’˜Á†‚ñ#_C'„E„f¤Ç˜áK¾CÜ—ãõwâN¡@lñì<ôA8DhJzŒ9NK¦‘/z^ý"‰èùx š¹3F~C†)=ÆÞ5ÂYòˆóÓr/ûûËøŒšôû0rñ$Âéii/Dgzœ—–––s"œ:ÝÆoU²Í‹€è!ã™èlÜ÷|ÿ>¦xnú”Ä”™Ïzñˆž}€unË@'°.xŽ€¥ù-DÀÊLúÃSè¬Ä´ß£X؃ÃG'°.xŽDX•1÷B'°0Sц|ˆ!†\„C@„*9•½èˆ"X—Õä@'@„!ÀºÔC„!D°2»ìÇÑ !D°0·Ð!D"„@„!ˆ"X‰¾Óèˆ"X—N[ :"„ÖÏB„!ÀÒà—e Bˆ`i²ª7£ BˆD€!B!D°¥  Bˆ`];Ï¢ Bˆ`]ð!D BB„«Òž¹B„ “‡.€£Z„91P#kŠðmò²¨àxùÂÕ&h°õ çoQµgU…Zã`êÉÚHojÞž>”[PPû‰_{:ê\ŽÚýš²Î“-Ž‚mï¥@Zјé*x¬ IDATiٲü5œ>Vá°×,¹^eXÔp°Âájn;Ñ9LÀ^×½7¯G¡#Š9´eA” r–ÂOŠß~Û:–½Iþä ¨ú8÷oúZ¥òÎ(¡×õ¡Þ•'Z¨rhEè­q0õœ'M Ì?¤n¾;K-»°‘—\T‹ö:”Ûþ¬XHí§øVØËLjsi£;ÎσIM‹xQQ$¿ß^¼7«G¡#Š9ü0È8¢(ä,½²Xà²PEhP§ Λ%",iSØ·Ñ)7çí¡>"¡¡¡·ÆAÔsÓ¦Iy—Øvo[¶°ÍN¤kvæ²pÚÝTÍþØz”¢•lqEõ9ØNÆÈ@Ê;ÌØÖ´_nóBSÖ#±®êÞJ6ì+‚InYÕ½§Xæ¾±îðÛë‚÷fõˆ tD1#äsGâ@õŸæÉý^Ùo4È8¢(ä,—uw_¾MÓ-[›ëÃEÔ’uÇíĹ®éýÝÝÝ5‘a¡¯Ñ}g˜Ûã_„YnùøÄ›ßaÓ-OvúY­UÊÚˆÎfË{­˜èŒç'+òY• å·‡…Ä¿cc$}HT³\âmî7c ›YÄxÆaÕ[DÍíAŠVo"»g†ÕÀzxY¤²¾ÿ^×½7¯G¡#Š¹ðó%•Ç/¶Ó5)ÿ “QÆD™ giE¸ü¶uf¸vª¹pçíŨéÒªh!kí&¢q/Âì}žCq5^eGÂnåå‘jΗ_¬#ZºX™¿TõñÓÊ9vé]¢K11’²êˆö*/ˈŠÍXC&ï6–]ɧ ùtð_DÎÈtFÀ^×½7¯G¡#Š¹°ŽŠâ@]´GŠÇç 2Ž(Ê9K/B£,f´¬ÓI¶kwÞNAœ‹šu"”'ChwQmÀ×vÙ¨D³KwÆÂHÊÙѳÇ\žÓLJÖ)CA‘´›¨U))µ“+/]¸×uQ`bBGsáàD(Ýjˆ/eA” r–^„Fu-cÃ¥®}íĹ(?DŸ Õ†·Sïì©à×–ÖtyKêù§Ý.µd‡W„gyÙV½Oñ·ê䢩÷†¤Ž‚,`%B†Ro“­9’&.#òþokæ‹õìÏJ¢ý_»FtXÓkÇblTõštmîêÔ`.òI” è<Ѷ*µm‘ØþÀ½®‹{D:‚˜‹GzGe8Dof}” r–^„Fu,«rýw íŹ ?DûˆŸ¦É9Ì^~RÖQ@äØ ×|åîíØÄ’ZŽº•T¸Å],ßb³ƒ‹0w=Ù|u…}Í35¨ïa™ocOÏr?&[yq£|sªrf¸¾„Õy¨¬é½fVT&XàJ45z ¥ßàï–ø‹ð†º_ºAtSÊnjq8Ö7ñj>Ô¸÷#Šµ› z\äª7yo½¤(›ÅöËJ7T²‘÷º. LìAèb"„ý5ãð(ä,½ê4X¶ß{äv‡í¼MœûRFT‰°S>øªõHî$óŸg p¡‹3Ÿ×zú·þ ¿ýç2ûŒçVŒöbõkò_¡œp×”³#8O¥Úk„T+Ÿ½(½D”+ñ³ÚmW=Þ=ÈdžH`‚•è¯†PO šèÖÜÀþ®ò° «æ£½Ne ü¥ú·ú©#šÓÜÑÏ‘ËîZ"WŸÉ«¹e#ûê`E}êa½m_}»"P|æŠPÝ|Aèb"„ƒ5”Œ£F™ géEhTgðe.²-P;ã\“2¢@„ŽBg+jä.¬Ù¡Îàù…×ÒmÊõÍDÿSgmòY¶<¶@}”“iï—]³âŸ ‹ø–iEèT.¤fÛ•eUvr¼¯Tï :!˜h%:†PQJ\ɶ˜¿–…)•¤F¢ëvrè(²1…ås›VõË'ˆÎÄ΀òœä®Ù`òZÞÏågÃÅE ûø#´çó#›[Â'Bïæ BGs‘aËfâ¡©k)TDØw:¾DZÆñF™ géEhTgðe[ˆN ¬†q®Í«¢ì—e®x,"}F´DsLV«ó|ÚòùQðõ3ŸóÛf™ìÔ§Zky×kE¨>Ó]H$mvëVïT‚5&Z‰N„!Ôc”sêØ~V¦*­žA+I,kÛ©QÖv;"–/;{'’´+r'³ÀaåÇ&zM=ê(í"ª( Z´¦º„—¹w³yJEZ&œ"ôm¾ t1 .þŸ½³ Žª:ãx5H Õ‚mÁÊ(Neꤦt¨ŒS„êŒ}µÕJ§¶È—Ê;û¸[6 Iؘ I`xY H€„—¥2`%2@°Œ‚(6+=wïËÞ½÷¹w7Ùìf÷îÿ÷%ÙswŸórŸûüϹ÷œsÉH'±Õ]å,!Œ(⽌‰Yf!´³iy¬¢œhgïÊiçç!!#¡„ðÈ.5F‰ÞÅÇêW|õäÞ˜ŠO7ÎëÄå²nDì/$o®,vÝÁð{É(„ŸoeÖ¤,QuÓ `\&vË'¬ìØ†Ä«Ò Ý÷ü¾gÉ+Îy‹¼#Ñ ÅâùiçûDÍÉ)„+ŽúÞÞ-á;b˜‡_t÷òX&m*¥¼Ê@Ë ·X×cÂ8 ¡®úœë˜}B:na$GçeLÌ2 ¡MËcBÂêz[Nk?  òŒ0·e4æ˜n\uGûÎV¹?Ø3Îs¦áÝ\MÍBxC;uÿ’#Š ½ªÇNW¼¸6_ÚÒp¢TŒæYã2á…ÐÞŽ}H<©š÷\¯&w~à!®§5èÿºBo4&ÙUÕ-”ð|̬·î'ê\a™TTKT)ÿ{KxÓýÖ ñB}õY×1ùnFwkÔq;ËDqô^ÆÄ,³ÚÙ´<¶Ny&Õ«rZù¹!d$Îd™Ü=Dnu¯§½DÁîý)yüvú¤G®QûÅ£Jr5®EóB×…°Æ(„‡/ àŒË„°v„ÄOå‡Ì¥ºÊ©Sk«îŽËç¶!ô‘ðº$|â°/fcÎv¢œÖIݺ¼õßb8 aHõy×1ú\ÿ¡s&ËänÜå,! qB¼Œ‰Yf!´³iuìQ¹¯÷åäýÜ2hÖh‘z”~»•à$÷µDò2õÖƒke-Ì[!'ÿo»x!ÜdÂ5r5Þhøð /`\&f! o'\HôoÙxörw®4´—ÂôÝÄ|¢W౩6Dÿä2Y¸#Ü9F¦¯—íoµIêÒ-¬hq“§ß^Å/! ­¾…ë|B:Ž°'Ô˘˜eB;›VÇŠ‰ÎFSNÎÏM!#‘–O,é£=ùif‡ò€Ok;©¶tŸ”Ö®ï- (Ý×Fs=ÂV¡_¥Û/ù•£œ€q™˜„0;aCbpì"M úXwká´|ÛûŽ.iCl6îŒù>ÝM‹ÂØäñßB¢•vI‡µ-ÞþÙc-žBh¨~×éÖ¦¡A!„®HÝÆèeLÌ2 ¡M«cµ6‹é#)'ãçæ‘Pë?#Ubvè&Ý£À£úßœ÷ÿmÔO—ßÜ!¼,º·”¤^À¸LLBû˜¿L×­j’ÏíRÝh_êÈø I›•¶Šè?Ép)5/õh7-VÄj‚Oƒðš²|Û$Ñ^ Ú5ZHž~{_|„ÐX}ÖuL>çD!ŒÂ0ÇèeLÌ2 ¡M‹cKˆê}½/'ççLÈH¬e¤µ^Ÿ(½ mל«òɲååêvª7[(#º¢6Ðò®í¹ž N7ºFÊ ]ƒ€q™˜„0;v!qsga‡òoEžüÀ9¿*8ax—²9ÙZ"eqŽ4'8)Þ+¾Aw=´éNi_rÈ}0LÒ:/Ûæøg„æ1»ãsÂ(…°â´Ã”Ð6☼Œ‹Y&!´µÉ;oØ…³Gådýœ  &„›J„èIît¨D[ѲW^¸287è­ÀˆÐW¥ngæ*ª#zÇB+ÕŘf!¬ š!ŒJ—åu8Lí"ãeLÌ2 ¡MþX—Í{'—“ñs¦è ·×¨ô"ñÀÍ´ÝDÞÀ|–V!÷Õ~¹cPЭ z{¾Üípÿ[úGÚ »à¸…î$ÊYÆ áu+fßRÇ¢Fc2Ñ,êÆÜVvò›šš> ”Z‰ê—Èe<$x‡´èå¨ÿMY“— J²­@[ èˆk£<°Û’´+ym æ¨øÚƒÛ$X'Iýo@‘ý7‰+ú­=â „\õ×a|®pÒ‹y÷>B.âlhjª±ð2&f™…ÐƦE„Û|…šÜ•5…T;›f?犞pB(½Ñ1°9s¾hK:s±x½W”?0ÄÊ•6(9SÖÖ%ºôîóªžÑÞ²â ÒÞlÍ. !|CŒ:ßÚà ámÑ•Å>-ë”6E›Û4’3g¢YT±±ã#íÕ´Ö!QôzÏ—‰óéQŸ6t‹sšw¡øB¹0­œ¡O„íÒ®ÕûÜý÷’õžÒ²\œ¬s—¯Eoü(ì’–ÓähÜä“\þ­"±ödñÙ<Õ+„\õ×á|.þä^ýÀ‚Qóe‘#…‹8òFϬ—11Ë$„66-"\µvãS‘=sHµ±iös¶è ÷¦JRö1óV'|mUV{øÏ©)^å[¾º²Jš\VB(M¼ lÒÆ,Ÿøº^ÝŠ¹L4ÏnVÍ™h5¬íD$„®M[•ßWm ¶DŽZM@ŽyÕ7L%Ë¥$Àdêbòª6t™çr>It^Ž¨Ÿ«ßíÇ戃²Õg\‡ó9M§/çMÇÕÉì6ŠÀð^ÆÄ,“ZÛä#\®Ç Q\Hµ±iòs¾è‰&„‡lòHxçû뼞Æ#_o¨½·£´Äs¥®m‰–òAWmž§üÌjµœú..-(é`…Ðu{•°˜·¼ì¶«Æ-¿Ê˜y¶gÌD³¨ZÙ‰L]¾æS"‹ºíú¬oýóT•§üT³îü’Åû½õ9;Ö$ÓµTy¸º ¤z}Œ¢m‰Ù«KXGw}õN©·¾qeS¿ÎhˆƒZTßì:œÏ((r`Ln£Œ…—11Ë$„–6y7]FTŸNílý¼$!…ÐùL–çyôB˜!BkVi»„0C*„0Æ\+_‡Ë!Là !Œ-þvÏç¸ p<ùë/£â „± ©Â³ú+\8ŸMÎ[>ѧBXÖÖöYb†ÔÛmmmUBˆ–¡­R ßÃ[äù£BˆŽCžv4„BHaî¼6pBB!!„„BÖ\¿„6€B©K«» !„R¬#„B) v–B)MîÆ]h!„„BB!!„R‰ŠÓh!„º,Ëë@#@!„€Ôë!„B„@!„€T¥%çM4„0,ß’ˆo`Å°³ÐR—1”†Fº<!Ê<4ø54€fî|´©Äoæ¢ ¤.Ý‹ÐR¬#Ò<!Êd¾ô$€TbâŸÐ Þd$¡e€cuðîhÐK~Dt¿þóp¢ïDð³aã^4'NX0dô ©¿~Æâ7óf=;5=mÔÓ㞈Äò·ˆÆô¨&#‰îëM —QæÃtîãÜç†5GýÍ=J›žúëÐô´¬èªö‡?ߟ6hÑq/DmÛÐ"ãÇŽL5íÁ”©ºÚ?dù-®}U¥'¦o?Í_øxZúO_þcFµ—+_W{ç=À‘ëNËJ0êû¿ê½oË \‹O‡µÉødD‡MîÊÉæ19R L>!ü[0÷ÈäƦôÜOÆLÑBã ¾Þrâa6éüâ»Ï)•HŸ™ÀB8éa%ﯪgg¬Zœ»­õyp²zZž©$ý…LBÈ|‹)dŸ¬*=áǤ Ó+ßšñ|_´—«U]í+ !aïx$Mn?÷œÌ^ú¶Yml2>ÙÅac“»ò Ù$¯Ž'F_&J[xW–¨ñ̘9k²8§Cï¾E¸\­êƹ’„‰¯Þ±>2/V¥xpä§éà/„'<>ógú«¦‡¾­ÂG³³go“ñÉÈ.›Ü•oÌf~vvö"Çá÷DôŠ’!®æ±æѶе´×'I óÌODcr²aæl©C¤ùÅë"e“Îi¾ûÊ`Z4)lR<}’’[e¼Hô÷À‚'ÿÏÞ•5±,á˜ørî$b4‰1A6ÃrY ‹ˆ"K@EЈ÷ŠH\Yõªèãâóœ:ùË_ÏÒÓÝÓ=32`ˆ©_H†žêêêªúº«— ÞÑÜåÂE€‰X¼-Yȵh©?„ù˦–Ù—D¥x!½&ÛFßQÁbCP‡æ­ú+׈¨Vq[Ë1®j¦a*ĹáF©ùÄÄÈÖ&Æxd ¯¹}Û¦°Å•§À&¥œÃ‰§Èóùj|¾†šÂ9€/s/ 9ÂyS ÿ€° ªƒÛšã‹ùîè»ÏÃD‚-뇒e®%xt´ƒÆgúœ;“ø[µ;dª½†Õ¢G¤"-išŒgŒ…ãvkÿŠJñBzM¶Ž]ƒó$X ›ó/dºþÊ5"¨UÜÖrŒ«ªiŽ ‘.@¸r ÿ®„@ä›þé‡Û$m›Bž›”s'9Eñ¯¦–€p `RýÛ‡œž{áÀÓ+Sgcwh"›"ö`JçW÷LQþ½+ÊÄv“aÝc §uc5l «f`Ž|Ãã »P½}d›É˜„ñ«#~%Úþ¼¹q7œF|Š[ezE˜q‚‡Q3?F•ñ&Â*{ó±_oÛuÂ5?¾rŽtØ$•xðÞR8ãÞÆN¿O‹ ZmR¾²cŽßÊ'N#ñ•!±×°¡Ç"pÀ¾&(%Òk²k4²ùÿ5’`ñ@—þ©'J¶Rj¶µ,ãªáoHɤq ³LP$m›B'ž›”r'ž¢ø ¨¦Šp9oZñþ :Eý~K„±C€%¤•k ¬pÕt-—@X_ßâ—ãIC·•é†ÉŒá¿÷ŒGÓ§?Rx‹«#ú»â>ªÃúÌ‹}Q¿†©²üfÀáÑ©Ð<ÀOnâÒgZùG´ˆ+ö-a¡ ê<øál[ÿ®Û— é5‰=†‘l#“½VIJݪ\#|­Â¶–c\u ” xÓ\má à:¬##9Ûæ€Ð‘§À˜eœÃ™'„Q¤Zð~àpuv²m™ñ¬!ê †1þî!Ô¦ÔÐP Ç*Òû* ‘u¾šš'&²™:öÎsPJµ#4Á)ð~uÃéÔÒ‚Üô +S3†hB#G£êŽUæcHïÊèl?’6m„;ÃE=­+ŠU–œùO~žõ³‚©W%´ðÉœì “‚dÆE4h<.kN#T÷+ è¾¹ˆF2ƒZü‹¬íJ¹é5‘FgG ýÑG‹ 2‹kë=ïšåt{¨³Va[Ë1®:JÐõZ;>±HÍ5ÐXjä¶Í¡3OÞ˜eœCNN„>S­@8 °­eõ2Ÿ‘²†¨Ðyccç«Íñ ß[.ø.ÜrN}]\ÜmuBvU´ëyw߬´¥–š€Æ-2Ì‚«¬Tî_R8³ŽÄiÞU ͨnê¼IuصÞû½7 (Y‚G§C¨áó½~=å­ÿ-” Tám.ìw-u¢þ5¦¿mTlÚ”rÒk¢Ƹ›>&Xôâ… †te¯<7Š§´gdÒ™‰G¬&ôz":«¢!CŒÑr€wü=D Ç!ïòGBî:œ9Qjè 2²¯„¬ÏrÙÃV”ä‡=Â÷ZˆÇ'ÄÔÇþÃblíÕŸÊŠK9 é5Q~ÒòHL°ØÝ6N&'¼ÒS«C[¥Œ«úðý˜Ä@hþ{íä€0ùoma¿¹>çó}ø~,Û¶¡ OÖ˜ÝÃ'Î&»¦—p‘€]CÔ'>{ ¼Ý ½ص©©e-šq~ÈÏ‘ÿ½òiG0ÌY÷s€™tf"ÁÃd§Î në$ßÝ]fÑf´]šã2=iK? !ËE¡Ž"–‘~¢Ì½žgæN~ð›~iÊœ¦š êçúóM0,|)'!½&ªÑ±<Œ-ÁâËLžÎ.©G“ó×=ÒS«C[eŒ«êiÊ åä¦ý»µ„c_M”Gsˆãضex2Æ,áî<ϯZ 5S¤p;‰’ƒÆAȲ¥[„›ê*ë(ø_F²­åŒ ®âИ±‘åûž âë¨þqŽš#heeâŽO˜‚‡ÉLò)@ý92Cµº×_µÈ~e§˜hiƒj«¹%E®”å5Á£S"õΉ}C‡lSê¯96ì·l%v§BxÍ>XÀêö­ÒJ`J9é5Ñ>‚ˆ¶s˜ yðkÏ’È:Þh„©Õ¡­2ÆUÂß“^SQ*i³hìbÛÊð¤mRÆ9Üy²ñ¡ZÐöá—ÂÍÉö| 6›x Ü‹|~ã›G­}÷-Àù#›üÅÐkõ²5¥Q—Iªï¥‘ÄdÒ-¬L3‹àacfˆè–„ß̃/šË¡ï‰yajoJqª­[„N‰."é‚Ž·É‚¹åŠ+¯ˆ=G}?dM QbÂRöBzMt£á¬$Xdæ1Ä©$O…¡kuh«ŒqÕS£¿'=aSŽåÛ6„œ ú‘ZŠŽ¸ᬹC2«o2b‡$ X¥¿üб ïtÂ[êi,>ÿÈ¡HpÌc«e!¦—áÏaþä|øצWi‘ʾ½!9{Ô pÑ“­ˆŒFâ *-у=™ £!Ï€°”^ÛèiK|Vkm¢oj ”ÇšÈF,ªvh«„qÕPŽ‚¥ÃÚÂe6ÔÙyÛæЧÅ&¥œÃ™§ >œ! œC#ÒAW œ"cÞžNõ$õ;k-Íô`bUhD G¿;ÎÐûþ¿Ø¡HpǨ³Ëeaœ6<¼šD£|KTðè4è2•ª› è÷f݉ÒȇhÈÜÁÔ¢{ß°¿4Mâ¤[…¥ÄBž@v‰n´(XŒwäj(Pk…¨Ú¡­îÆUBIª¹s„ÅÉéS‡2m›BžV›”r'žÏ?S@ø”lã%êž¿äpÜ_SÏŒ°J†ÇV7ŠïèÓÀe3<è@¸g„qHz” IDAT P$8„½d¯Š& „_r‘{ïýdRâ¯×ƒ_Õ§™9¸±ð§ö¡  ÔåQ”F:¨¸>¬¯|ˆ¶’LÁ¾¸”PH¯É¾Ñd¥‹ê©—ž¬rµ:´Õݸê@(I5÷ü#毸ģ\”’±myr6)ç<ž¦€0E6©Wl¿²ˆ:o=+¾1Ïêmi7„v²“h„eÊ&þÒŠ/~Ò^˜«¬íMÎ<&ræœlÊXã€P$8„‰´y8c¦œs„h[2Ö¦ŸPc)þG&¦~ÍïN˜mJéPT7lôa¤¢_²ÕÈ–b¦€Ь¾ÃxdüšÞý€¾éLPJ$¤×äÐh,úJ¦ldýá Vû¶ºW%©õíBáÓH¯r7—IÙ¶xò6)çf ‘ß©ËóÍàü'‡­d’&¥ ÍÜç!ÃûcÎøYVÏ_ï//±ƒöÙsçÄQÜdQ}5s„Ðsáî„iË2IÚU!¯á!œ¸œYþéÓOM!ûñÓѤòó–€' °Òq‹Óf° Ÿè`{|0Ρòs)ËÒ– 7 $®!h•ÿ¶ }Ô°ˆ±¿²pÀ0¶BïÍÞ#…G} OO_Î YªVJÙH£Ñê´,Y,n>äմŬ!Ö_ôÙ#\«ª}Õ®`úï‡*„–oþÊBå7,…-x6}‘Ý¿Ÿ.n·„ÛJ!Ô¨““œÉÁI”uòf~ ¡åw¾{­Î|^Ô-yS'{¶?åÿ¸t˜ô½¤²O×ÖƒÆú§ÅJi—ô9¯ÎâB©fžZ,ßøᔄ”—ÓÿlQBNÃyBÈV1sV&dÎcé™ZFÿzöÀ„”ñß—}:éýœŠs(²ŒüÒðÌ„”Ùïki Ÿ²$?6)Þš4vEÀ¡Vë„OÕ.ÔH£±†œ,Æ|}A\üüaÉ/à«*}Õ .ú‰é‹ý¯OƒL‰‹Ÿ7ÙÿÈQ`¬½BÕ:U¦wðäà&J­:93?ú„0l<{M~Ìß5@ŒéàÀgà5äB•‰²ß a 2—‡ˆMúÝu„Q+„áH”¨á[)Cá „ˆ'Ja´°t^âTx€eä׆à Âð$JaÔ>> f™h áÌÔTc.m6¹ @!„óÒn¯† „B€yÁu„B!ÀÔàÎ2˜ÂÜèqn.â €þÅšÊ×áa/…°”Ùøñf¢·úÔ VA•W{N¼üÙ1Áà-ù‘náÈN•ªrˆ*üú"ƒÊ¦¨SŸuG)Kööj纂‚šÏªÄ·YA^…·ôpŽ»¤éXs‡cÊXë9²îµÐä,¨?ýžŽÑ®sûÜΚ¶ª‡0«n–Ð6Í!2Ð#jøÝ (T¦”ýï”;Ý-æ†P|“'ëÕÉ›ÕW/•;Õ›þ­›uÕBXYA™½ÞWífÂ÷›hWoËdGByMé±~L²AßØ)zÏ¿F=˶^ß9ÊÖ„yúpLlý卵2gÞ·ö6-£7ŠÇ nE<­äí¦° ¡Â#| jÝ(T¦”Ÿ†õb$m©Ò/.B:9³zûaé½ë¿:å‡0§‚`3Q"„Žu2n‡I™¾:VËŽÔGByMé©Þ·Ë=ï6ku}Qv‹ƒÈ{®¹WæQ7Q“qyYg[Ú„D˜æ|¯4e´uæDW¡„×S;X÷Ë+ >P7Ú¾ŽiÀ©†JöÇÞé¼’O>!ä ‘±áZPë~@@[óµOˆƒJÑ»·Nƶ”S*0–·T^»ÂŠ¬[­[œ aQGÇ:•³:WPÐ •×ö0õt”j6–¼ ‚ÍtwttT?|!lÔè\WVVßTGGÝ{£G(6„pM¾°ó ú!–Ô:„õ~7Ko{ƒ­9¨ú¦ðâ#¢ê­Â‹3¬ÓÝa?SF[?¤úÌeÙy¢…7U¶ÝX+Lb¢ëç#›WÞtø…7D{„gßý €¶ tµÇB¸=8œ²è˜vgJù¨ª#Çkž R–tŠt‹39Úª[ˆï•xä«bSŠV[¨9Q³ÞTÙÝBØgt„ðÓ€½Ñ6*(!\û¶göIcy×E”ï}ùn5n (Ûî"ûçž@ÙGtÖ{¬Œ¨8œ>ç˜2ÜúaÅ,Ê’¾‚°ýMTžÑD…¼KE6ÔŸD4¯´ÖSG}Cd´G8øÝ (`³ÕPiO…pƒë†b¯®3¦ œRûâ/v²ó+Ýâ>!Ô*¤Œá59¾(ÝXôƒ­œ¨]oª˜\³Ëe{£Ìi‡·D½ÞÍg'ùÎÝþAgÉ-Gú†‰­óÏ”>NTéyÑM´O<öÑ…púœcÊpë…äúVÜânH9Nª½Bt@„–½A½¶6_@;v¤ekXÌÍþ‡¯x¨)Æ"ÂUtÞ¯:·žiP~/ÜNy|_ÞHX×m~*f«Â{Ð?k~úQd!<„d Ü3µ}ÂÀ*ejCÎtÅnõå6— 5 ,Ãæ8.Æôn-Ï6‘œ3‘ nN•Ö>ÂiqO›×­ÿ¶A¸i.v«æC.ÝÚY8j žŒž‰xÿß:fÍ[gj˜Þ¬“„7ÕÜè Ö“” $Ruƒ°žÿ*÷gv˜mœë¾Õ8€0óÝJFgqq]*ÎØò.AØÆG‡Åß)áVgWÜ—™ó½=‹QWÑy4&‘ÿ—™{ô9Æ»•õÖ¸xJþï2ck´Ó!ÆÞé¬fþö1~]Í£â5*u6¤ ô?¢È"BxÉ>@èáìZLÛË„UÊRÿ-±OýE*·¹a¨Q`æº^ËrmF /Âv¤›S¥u²LVÜ“|“aƒpÕúá´˜6g˜|}`ìˆcøuÞúãøåÇœ äa±æF“ #=B"U7ùðq^|,=åC™ùnåÐÔ¨ê%ñ ÷ï„É^ÞÔYÃÀ)³VJ›ÖÆ<Ôy`½]]-Âa§„«È¼'G»býõ=Oñ½Ùaj$>íœ v9åu—É\RÚÉGúEÛG8×Ȫ2‰GYD!Ù]J°Ht·œcX¥LíjaÚfx×½³;§¹a˜Q`6Šñ]î¦u ´ Ý”(g} ã³;jh=ËØU«“û\&–a±³šöYeÔX)› „/ÄÜ耉@B"U7WCüL‹W»ï[Š2 Û>qè¼(0»¡±2Š½‘I5ßgqÞì©%ˆ‹ÃžËš¯§úЙ9:)°WÑyÏ~Qç-Ý·ryÏñÐ]5ÌåÔ8fâ¶õšwÑZõ™Õµi‰GYD!ÙB«”¡îF–0‹ô4ïiv¦r™K†•aÞvsÛ\§‡ag¤›}G¸ãᎂ—èQÜ°@È-¾8&4ŒÞïµUEÓnçaŸ¨Í°¥jB"U7W¼“#îû–¢Ìhž}znüv#«ï„Fï@©¹ÑËbj¼Õ)æb½úȱP¤ÓÅWQ{ÿ‰g{KÓ¶Ýs.—i§Ç¹qÖFÄ­"5)¼Ó¶­Q zDQD„ð’}€p¯S£Í,¾¿¦FêTý cmÖ_·xûø.‡¹ax5 (ÃZv‚±Íœ¯ÒCŠpP¶›á²„} ^“.Ž1f÷æõ.¸v½ã²ìf$µgLçÿXˆ›óš„DªnÎ{ªBŸû¾—úÌN¬µmvBí•Õm|¤µ°MÍžnIMþ_*Re"\Eì=©›aw¿…ï¤9:é7 |–ƒ­õ›X @üˆ"ˆá!$û¡„ØGV¥>:*ñ¬µg+´J樦dÖš—«ÊýÕšà"˜€í¦DA˜õ°;„œ Õ•æ¾ ›rƒð‚97ºa û‰TÝ ä¿}¾àP†Ž%eæáI‹c—t÷«@¨eÎuÝ_ýXmÌ6¨}„ ,¨~á­c‘*á*jï óqp¼Kw¾™u;uÌË&«)Nºx?bŠ¯Ä‘#+¹Q!<„d Ü+§õ¥ý°*µíØË0cz2G ” ÌQMÉ2¼‘fl"›û~‹pHÊMÙƒðsÛi"wIÚÍIà\ \Žs£ClL³AH¤êá5cGVð}KQf>fùÓh¼ðTSô5 ttÔÔ1DƒžÚÉ”cN¢® Uˆp±w;9m„±u“tj¦ïŒÜ¬äsúÜaµà{ÿ_(zÚÍDÐ#Š4"„‡ì„{¡ö¥¬RB3΃?ãfcf®@jD—á_ë;ÞšÇýa_”›²ácÒè^7W&©æGs¾#4lF2[qk]ª½XÆ›ª„]ÎżgAH™ùne•ãä|xÕ×€0yØÑäʇqL»]©ÕÕœDsa@¸ŠØû‹DlÔ9½Xm.Eê‘?ñðvÊëa­cffðÛ‚Ðóˆ"Žá!$ûážAè(å B¢JiŽ«.UÓ«ÃÍÃŒè2<ÎãÛ”×:ó€"ìM€vSö |î8³çgk‡æ¿í!÷´ž§;÷±mA€HÕ ÂYÆÖd s’Å;bI™ùnå½’j‰Åî»áÙÍ:yì}kÂ^ ÁstÔqÁG»·èÈ]D¸ŠØûo¼A—ðk !;ãŒý$Ý´Ód½™àûâ4§ä~GèyDQGÄï!$û!@è•¿J)½s¬QÏBÌíC·CŒÈ2ÌçØT~·Ka_tU){N§Õ–õ¹1k»aªE÷Ù%÷¶—%×cìÍ8X€HÕ ÂT< M«¶î„Š%e滕a{%Õ s²»ö²X¿š¹?í˜Åw~ÔàúˆúÉzB¦S®"ön$'>¼Øk„¯(ÆLŠ£›(§¼@tXµ ³üÝ¢"p;šïNE„ðœ}€ ôMíøª”Ò͘šsO>cl1‡¹ Â#ª ·Õ…}|)ú «JÙƒÐø%nn2ÌòÎFoF»¥ÿY=“ ¼ÈXÕár¥ãb1“žæ^Ù§KÕòFßHx F¾#&œNóžÉ±ÓrºÃ>vá[Ðûˆ"Žá!8û¡K_óaÞ ï%eÿa^•ÒÎLNö‰.{ÜìefÞð&¼5ÈÜ°4ýe8µ$ÛhÇ´F>m¢L“J€¬*åÂd‡±qõIÃiN÷´U«oqüü2~p‚ÅÆÄ•87Ò üUîl°AH¤ê9tû67kjxÌ›1³IÆÒo滕±µƒg^5mX-—ð’bêÛ²ÁݳÆï74ñ"¦Û;ú{Õ„°â±Œ=X=xœ»¸¼\Ð D¸ŠØûœqüú|{û-žÜ11t~ÉÿÞ¸Ý~)¦æü(§yýKÃäOÕÂä]¤'Cbé7óßÊo#òüÚ&þà~Ø-µnñ‰*Ö3 ~«Ö½wctÝ, š„«ˆ½¸&“{£Žw•K‚GëCœ¶UÉçº\ü–ÅBÿ#Š:"„‡ ì„{•aùË_¥$´å­÷§`s?óKS”áAw‡ãè®AH%@V•}BM»x¯3®_¾öÞ1ãö¯•5}m哦@˜zR[“~FƒÐxƒ;å¡?U߇yn&ô–»íÙðXz͈[Ù9јÖG›v´¾˜õ¹ù]PK]™ç.†/8^+fl¤Ú;_>Ó[“î==P„D¸ŠØûË™ÚtzlÆù*çÐÁ‰øHÕÐÉp§[ÿœïÑ[æ¯,|ƒ†ÅBêEÊC@ö½ª{‚Ð_¥´4íÓÕÆøÈåã“ ¡5ÐÂÐ4=e8½WR Uå[ƒÊ¡)ïl;A%¨ê®ï„ 9AX’m"@Xâ:aŸ4ATñ ,D›–¶Ö[:‚ÂB¶‰aI+³¤¿E  Ù&„¥­öOˆ•ƒZƒ6-.¾.Í6qgqq± „ Ú«'ž!! dÅûøÛ.uÎñUx€‚ 諵÷„!A@XÙ!‚òÕ\Õ !ª`Õ#!@A„!A„A@BTIJž^EB€‚ ÊU7¶O„!A•,ì#B‚*ZÓú‚„U°¾ô#!@A„!A„A@BTIÚxŠ„!A•«l¬AB‚*WØGæ£?@íWý‰}‡ ì?ý‚ ÊSüÇß‚ ‚ ‚ ‚ ‚ ‚ ª$ýùïˆATÁüý_‚ ¨rõWö‚ýŸ½+ÿj"é¢msì “0È–˜`|@dÈ2tDQGEqXUtDõœwò—ÕûV]é@g蓼û IwªÞ«[ïÕ­ª^@ B@ jÑÖF$@ 5Œ R€@ @ @ @Ôb- H@ jøø@ jø!@ jmáïH@ j«‡È@ @ wD Q#Ø]XÏóþø“ž‡ê¡XÏ;»_7ô;¨4ó©1Ê¿\³9 ¼ò ©¸®ûºú<¤W:µ#yÐÐ&»ÓÝÊ'ÒS½œ‡[rxRðó“û[º™Mp*íÄ»^¸mŠFÇããïOÿêd¬L.]#dRÞ~¨÷‡Î{¶ÝfÄÄ´yk°!.€¿V«¯M%Su0 %ÓãÅx{R²NJ ;ŠNF´Óèú]édðj©îœPÝ ýO >¦¡årB˜•˜þýü9W|衈#i#Xós™~9%ÚKFÇÞæS^m 7–œÙTõù¥#Å•”›¦ht vÈÇŸ>V —¨J”íV¾úÞ¸K¾™iªyJ°Õ€Ž²5£xVuÔ”LÕÌ(è„Ð.Ý BȨ“’Â΢“Q'eà4»î !ìü.øˆ´„¿MYi^—Â}ÿɵ4¡t—z¾ €YïDܧ¢n˼"TÄ®M„NäcG„¤‚‚›â¯ž’ÖML¯Á7åÑ–pË‚Î-Œ‘–DnH‡‘Ï…¹YÜ6’F¡#x‹ädËô\„¤Èc[+«KwoiàÒBÚ&…AbýýB IæÐ7É·0M3O ¶BæîC!<Ì•WS>GX:U…üV…Ð.Ý$!yÍ®“’Â΢“å§uà´¸~822rvÅB˜ª#ŠõsPhòÚ8Y<Œ•ÂÜõë¥wn“Ö“µt’ÐØM;¿ p-Ã;^ÙM\ÖMêö“ÒHLè!RwÕcKÆBKÃíâvÓÖ¼Ù’MB¿‹±Frd@šâåI´fd·ï¹gŠF™Íá|pºcS°r`öÐQ΄¸çI¬Šúw³`2ê#L¦Uó´`«!¼!L—™T›U'„¥Sõ^H/„ôtS„°½d”|qL?­'Íu®þŠ…èu@·Ï ·ƒ%„Ž°0' â-Úù.€dÍýÚÜ3OÁ¢>€ûÒÇÞL6‹ŸºÍ]œ"‘Ñ'}œxçÉ–;u'êÔħDû7éÐ0\^¸œ)dž(m1$ ÙøX¹I«‡‚>(Šò—Ê«¿j&^~v|Óªyj°ÕrÐa#„q(ïš_êýb•qS2U£qhgèéfBF”|qL?»éntýê…ðÀ¸®YW„p`ZøÛOú†Æ‚Ég£^·è}?Ywh#Ø€|RþLæVÒ&Cø¤¡Ø@D™Ü¬{²%\‹6Ù a'®ägIGb­nsËŽ1€ùØb}Ç–³‡¾ÉS5®]¢‹—ˆ{kÃXL«æ©Á†Bx!¬>”LÕ.à—45¡¥›EuRòÅYt2ý´ œ4ׯ^çtïl—]¹¤/)äæT]‚ŸÜÿ“#_#¬ƒz.ùcôŒÏ·†®W IDAT<²VûZ¾²ÐE±ú;ÀK.v °¡ñPÇ5;oÅ.ùcÈÏç'T›4c™Üqž÷Gº·bZO:(Fuf6®i#Ø´²‹(,ö>ˆÃ\þ1‹m䔸xá!´´„{ Ð#}ʆv/ÚŠPøøÍ-S:¶yràcÅÀê!âFDÚÝÒ‰ß:µuÓšyZ°¡¢:IÕÀÏÛªšPÓÍ,„¬:)ùâ(:™~ZNŠë€2ê·íµÁf“.óò·ú^³þ;#ŸúÃ:=>X&Åß X%±ÿŒãVt,!\-Ý!…?(¹P8TÍlì˺ú#ùæSGŨ#˜¯'ÆéF°u“…DDðwU˜Á?šï¸N¹xA׫BSK„­Ñø¶âㄼØÿ¦Ž?¸fÊJÇ€_e¬Ì=tÓ§îqÑ~õîåÏ6—´/ăiyZ°¡¢:HÕÁŒf45¡¦›Y¦¿’/Ž¢“Y'}à4¹î!Ü ‘5›i1ÛŸ#åAdú”}q¿_9{_u¾$+嘲Ðqð Ï'™¾Í.X9Ðz(ÈC±ÝúÓÕ"„:]#ßži½yZ°¡^D³¾™ê¢¦DªŽlq:5a¤›&„¥Óß/Ž¢“Y'uà4»î!䦤'®û®Y„0÷0•íÌ-£NJO… †)mH. Õ>¡>h‘Ɉ«“¿ÉNãaxOüÔP¯ùfãò%.«12ýùªlgs4‚‘Y/«µ²²¦?ÚŽ¾8/’Õ²¶™,nÇïz,t"s¸/?+>Ò¬¬@z”sNÝBÝÄTøÑãÂÿ⊄ÖCSÊsBìEX;èe3bÏ´Þ<-ØjK×m„0R¦VÝs„ìTÝ ‰Ûøšš0ÒMÂÒéoÈGÑɬ“6pZ\÷„rícʪ¡UYR+Bx¤[è>“߉¦ ¡r—ÍrG’†{õb…~ê?Fy£Ü¹°PK’߯¨Få—dA:ÄQ- ·Ûˆˆ6;/æhK’qLÜn.¡Ü ‡EKg·@žˆø&½Èa!éQ!ü2—€§óËÂÃâq±3®Î ÈäÌÜBD‚IÄ ûîk¤{#;W#„”Ê&¬s—ìºzû¹+ŒØ2m0O ¶šBØ£¼}–ªBfªF ß6¨ #Ý4!,þ†|q¬:i§Õuo!¤ÜxA ½Ó#ƒ.è½Ûað§ B¨¬Ÿ‚yî¶%¼6ã5É÷[d•··fR‰cõ‚]·º»\¯Þ›Û­{³™‡âª±Câì«œnÁ鬘³1]貦ƒíæö.ð“FÛ¬ÁU¥&î9™Ùh³ˆ½æÃÙÐ%¬nÀ'Þ0ÛF¨f ïÔÀ£Öçš)+Â[ŽeKgÆ‹´ÿ¡Rz¨G߃j|“¯¯×Eòm™6š§ áE„0ÚÚX]Ô0SõÂbbkjÂH7MK§¿1_œD'³NÊÀiuÝ+B(¶ ÷NxÙ[/„c¦È¼aBe¹7a™£0ÀÉ÷€Ðù4Æ-BàÜ°ÅC@[yú·äÙ&}mCÒÜ™bL|^h}ú^ª¬bÎÆôõí«}(š6Æï‘ÃÆ€xFšóLþèZ’©SŸð‰I+Æ}ŒIw…Ð@G!*¨wûW#„”ª§¼Ê!˜^s“|[¦Mæ™Á†[£Î‘©2jX©úXyA¥¦&ŒtÓ„Ðaúkùâ :)òÀIqÝKBHÛ–ÿS„°Ñ› BØ©‰ŒáÚl²U~ŸÉo Ü;; 0¯?½h¬sIáá£t:._@1*>OA3¶ó+$•ÏOí•QÌá˜þ5!=‡ñ‚KÀ°™¦åm«—xþ¬’BøLyá¼”:ÂÝÏÓâs-zÉ*±B¨ÐÑ­{x¯ß˜ ÿµzH¸[ÙüŽŒv2 Ìo¸J¾Óó¬`«!ÄÇ'lÀHÕÁ¤wLjÂH7M¦¿–/¥£ÓiÒÀIsÝB˜iÛÓ}Ûॅ“"„$FÏÿÔá¦#!ì#Ëci÷ž08 &ݨ3Æû‰‡[zEë`(Ú¿=£’úÚË)ælLÿ?{çUuÇñ5»lRØ„„@C$F…„!Ê#-¶‚¡TaÈP Ö‘V‰uœüº P©b©B ÃCÆêˆÐ±X´ZŠŒKÕ h«Ì 3¶M§íLí¹Ï½sÏÞÍnvov¿Ÿ’ݽ{ÎÝßùý~ßsϽ眆±Ó®š~G…t©o›˜Xã;YÚ^½ÈÙ „‹ TYb­Ï“™Ìò_^Þxq¸E„Ðmøâ%ªwºN)râäzê…pfˆæ_'zÈ „¤©)¢ aþP\¥òÈ¢iù¹Ûˆüs5JH²ŒØa²q³·²PSeófI77UÆöµrú<í¡œòH'žõFË=œbÀ@È‹BXb\;Ó/¯±6Û0h24Þ5RMF³™ãÛ†ªšï$Iù-”k»ûÄ€úT%ØøN–Îu¼ù¥;„B( Õ©[e‰Ã-"„âðf4Gï—iMœ¼SO½Ž!`÷£\BhB8Íø<ù ·B8%Ò5©&ͤ\d¹è6Ü2¼]­)b‡!†g Ø%ß’(Š6&G–ÀX¿&ÎéU“î:×d…§‡¶*|¾»ósô‰¾á¥™ÐæoÐc#D9ò3OúÇuJ·'!UqÌ1Û°âú5æîdR„С…²Yo¹Ø:¶C£ m|KÛª·9„°KBXX2=½L#UžšÂ-"„¢ðçÆ‹ ï•iOœÞÂ9¦_'=-+MÆ[®ÊÓÍDZÐö'©;!üQµö­ïJ“RŒ¿paÑŒÈË"–V˜ìÀ:6·jŸ.P§gÚ+Õ¯L[çNùÙw_s•ÁVT‡&kBž¥Ü€¾—(¿"rÁ{Ò÷Ñ}­Æ£÷¥ô :ù|Çé«ÁæGìwUs”WG¦ Ì$™l!th¡1dYýY)|uâï`iKõgƒvI§Ý6LnB5r£Mn†E·erâÅw Êä$NΩ§^¥ ©àíESë,IÂf¨ƒ›ÅÕúƒ.•¥ê­èB8?¤Ïß["ßÖ`º]ix¼«* \ƒFì ÍŒW7 /¤d¯¬OäI%ePÔÝ×Üe°| «ÏMÌR{K‚ún\7ú•'1¥·Ô!®ÑL܇zQG„õs,gíV#÷ût÷+Š{ûCU\;§L7ŠoyQý”º[ÂÖá“øªâ™c Œ²Åµ‹YíÙÉB~ ±V5®?%ÍæY9@gBâ,·´¥zž³e•cotÂe±Nͽ,ÝŒÃq  e£x£š8†›AEerâ…ãœ**Óž8½)„¾ì’ˆï=° 2bʺd’ü?R? ¨÷]¡¯AïåIKþLgEi·\¿cg"m‹<Þl‡â¹úÔ õ²œSYÃýÚAþ¡1|Í•úS-©ZÛéÒ×k‚VúmÂÉ×õõJôPô˜~I¯¥úüd}¬äf¿¶5Ue"«â™cÆD­{?ß—|!äžREŽ9ä,³yú%Ð"Àq ‘:†›QEerâÅî¼*(““8½)„좰îþü@¨¬÷»ôSŠ¯ï L–ÿ½fVnYNÙë4˸BŸoxI~Àßû>å"¤h¢Þ.ƒ “/êäÌvXt_½?gÒÒå>GEóù®RÈi,­ÉŽåkî„ÐW|÷¸¬œ²Ò›Œ]˜%}As‡›ÞÊòK¼•À,"ÓÿªzpRŸ"ÃÚƒÙW ó'éŸèª8æ(øZ^cNÙ¸‡úR!„¼Sª" ·Z t£r,m­ÞÁÙà:PÂÍ$„Â2íñbóNn —iKœÞÂî§ÜCçru¼7Æ G‘mÓT§ÐÌB/qu}4@ð½Ù°AR„°;R(„0ÉŒ.ë #vd‡a„da·¤Pari˜+v¤ß|¿òáÙÔ áa¢GÍÕ?Gt©Gá_NÐðS2d¦Íï©­Õºi­sÖ>}^}Õ¼smOˆ¤cªçûxBîSG5«¬û·úÖkdóx›±R,„¦önz£E9‰ð™·ägÏ«?¯íR îâä«Ci÷“.ʉ@Áá!¹=ç3W DP&'-XO½nüèˆñN¢–Ó=BwPüBø¿°!3müœµÅKÛVŸj&R®5÷oˆÐJtBj´bYýÔ±3Rª[Ý"i“äÁíϳµá§ ¼—ëö‹»™G7ïÐ[dÝV ÙìvcñLšˆ½½4!<·jWwœÞO­®Ý$õuôÌt„¥­é ¥“%°ýÖÚšißgÒ?#Ú·]úçu–Ç;=I{MÍ¿’Ç7ØÚ–¸r_ zRŽ¾=?':~Z3à*óQBcé&MÚ¸¨¹½73çX½Q=¹ß'²¢SDŸ<"åª'ˆ>~»+î–\:é„·¼öFqQNŠgB¸=j™œÏ\%a(ÙÓ÷ð§S+„ϲNªa@aýÇD]¸c¢ a2‰[ùƒ|=®5Ò—ëˆ6)ÿþ¹Žo6÷ñ×Qør6;Hô†òÞN¢'<JŸê—¿d³Äi 3ìeÕ«·jƒéG­A 4–nÒdaioi”V¹eÒô[¢ÏXÑa¢­)á´K7SLî–d.ÐoyíΔ_#{‹ò"PäѺŠâ|æ*CÉ–ø‡§X›Þ2ð±>Ð…ëBø妢–g"™‰ýô5Ú+Ö“ÝtôËDíj癪ï½ß•ÇŠ’Ín¢/ÔÛ¢Ü/…í,׺¦¯Êÿl¥Öõ–+ ±t“&[{7=Nô_µû·†šO&®ªóD‡Õÿóô3ÿê‚»õÉö¾g|H4éÙ!¤1™—»•@x"®øz/e.ŠÔ@©G3Ê”0™›"½±=,àê…a4p$ÔáPÖ”¯ã>½´Ê@¸òZ¿4¢k—ésãB¿L Ô2Iݶ5EaMHÏ£óáQZ»Ð‚I…d‘¡ ´[ÂÀTP"S=ÀÅÛâ—ÓDà±-‡-O?ºÝÐèh‚÷¾‡¬‡ìÏwÄÚÚ¿GZïßö¹úßÑ«±p“ž)-ïûoêš SÞ‘¨ /\ù¸[ „'á¥[G(uQ{ ”ª3Ê”0™›"½±=,àê…¡ò§0iíµèco¶}lnœ8u»Âê¨Ë??“þ±Îð )zz³½> jÜ4k”t+»ô ç~ $µ†kš·â÷ôÇïÏÑ+ĤF²ÊÖÉ{¹½¾Þ(V{±A8øT˜#Ów&´ ‡?âcÚBZ'¼(úºTEÞ×è§Ö[׉mžÉ-šô‰Ç¤mÒÜŸ‹ƒálâ8c¡&=Ëd{ß ­¨]€Ïîô]óùª± ¿?5–8‰»•@x2^ºeܺ¨^¥ê „2%Læ&€Hol ¸zÁAx‹R(—žÐžÙ&aÿ—ÜØ¡doDÖ…-”õtNYN™Ôê mžMð†ö”ó/ «qˆµ üàÏMžÈqP|˜ø{cð=*å ‘Ù¿"Å>n¡™j„Á´i…ÛJ|¦Ÿ=ûTCÞmèèLXOÚ·x6Ø>òÚ­7zxºV%7–ݤ瓄÷]Î'«" \Nˆóí>P;ìýÈßÝJ ÒÌ‹He7鹃°žüP” €mÏî1ðU…ÐòÒb‡Ðó¼Ý­ L–2™AxÚ܆K³FÝ»(¯RuB™.;>€Hol ¸záAx`Ha£ÀcZoxj„»A_]A@ȶvï§&ýd̉¹g¡ö¤Ó9Á’Î/z}WØÏíPï5^ãT0©Ð¶Él ÄŠƒIœi»|*W™™NkÀ¼5ºmÈÖØì´çFÖÚkfIÓ ó fö¶>!ùæ‚x0ÍÞºò1Î?2c!&=w6¼g—g¼›$qC…!m.ÜA'iY®æénH èÒr ƒ.]Ô¨RuB™*s@dy"aW/<çCtüR[ö¶¬p®Ò©§ðÐlÚÏŸüµ²&þ¡ü¶Æ`;h\ߺĉ0ø+éã/p Û¤,a2Ùò ^ì<@¨Í†‰hcü$Pó)$Nݶü¬q>zsXå ˆ"NÝuhËyymž÷ ¤3пç®ñž²¢Éc!&=wþ)ø¯§ ÔvüXÒýpÛ<‡Î»•@Xa.*Ô@©:¡L “¹ ÒÛî^xjý¶>}´Æè‡õ¼ê[ª#½YB¶3È}:Ít/Éå`Úb­“î`ÚÇ–ŠÑë›g/£`Œ¯Z¥,a2„–bçBm‡¾1æ‡$øx¦Ó2NË»¦$¸¯yUŠ¤ÚèŸ_Hãà«ÇÙ¯Lì!ßúHKHý"1–“IÏ„ûæšqÏîÑD~Å þbžîV=ñÐhëêå¡ k TP¦„È\·UI ¸z€ðPŸÁ—å±j¦¼ÚðjÂn„WééÐ$0°†>êG¶ˆ“^_¶àl€>þÍ“²„ÉÚ‹•÷tŠCÝs%{Š1î: ß-òªt(qÁóIú/*°C8‚ªùýYŒålÒsá˜ù“}§g÷–L>4‡îV^ŠÉ2µ×— „Ç»¨©JÕeJˆÌUq[•ô°€«# V)Jƽ´]z•ÖÐñcÏŸ8‚pBa½„>h ½3•­,¦×;~þ.¤„éñ1)K˜ÌB¤ØùPIôÝÈnVjvþÊ Ô³øHuFƒ¡üÜ­B¥´ŽÐ­‹šk TP¦„È\×U‰†\½@¨my'7Iç­¬òÖýþ*¡Ð„wyŸ9×—4Ÿ>±¬]xÏH¯ß§‹ MÉx|Lª(Î2±bç B¡#5ËþNYV~£B·>\äUiV÷†^¿!´”ëãcR–0™ „X±óa°VhÔ³9UiaoºZåÝúƯƒv‘šé<`”àzxêÑ xõBñmÀ7"Ž}V:ËbÒ0†^ÁLß¼ _ÕÂÈO*/w+ðä ÌTüïrðµÖ@©:¡L ‘¹ ²<‘°€«•5ð픩l&ßš1«gôyîv>6úÀ3ª„µ1X^ ótèõ€m¯‚¿Ãüø˜T¶Él ÄŠ{öÂìCkÀ˜î°Z#AZ0<²=¶ *ÒôU(ý §pS¾)ñÂ/ÿ+!†%gcYLZ jãíú"?m)ƒwKK‚½ÆÚ;æåŽw·OB%¢\²$uQ[ ”ªóM·eJv™»"É ¸zQ€ð © ïøÆh·Y=¤gœ[+€PÛ¤´…wجóúÔϤף½lç3%Bî1g~|LÊ&k³®ÉÆŠO0 >ý@ª}±ûæCæÓüô“€±•\±¦‡>> | ðÔ³ŒÛÂ☠³Œ~¬Þ€ŸÎ(v0Öþùž;áô¾§šè_“^î°–«´î'^š 9ÞÝ.*½M¥c˜ŽwQ{ ”ªsÊ”ì2wD’'põ¢!Úr?š~„í³Ñšw»8µÇ‰·‘+§|v’Öƒ__žh\'ícß[­/Ÿyzhy|DÊ"»PQ+ê`ÅÖAœœœÜ8.0ŽéÇ©Fjb¼Us×8†„E¹xnß,m‡ïTѯ¨'MŽE‰Ïãžm_}i:½‹Y&–;~¨1ÉÒáƲš´@ ŒV ke Ÿ»=H3¤Ù6¤Õ¥™á wîVT:˜·Hæ¢]““5PæÑÆÁ¼Îyb2$€Ø£©,O$, å, ˆ¨iþ‘ó@Ø.ïz_¿§í‘AƒÂÊEB§cåàµP;á×hç²ëKäâh}Í )ôaLññíR#Ùee¿{WF„êŒ[aø6rÎ1CžÂŸ­©'oI5Ž‡KZN*Îgñ­m•7‘[Œo}UJhûݦÕdI,æÝqm¤a/ ˜× IDAT+xÊEûŒv:Ér{û"±Ì•„ÄXÉþì9•]Rªºýö»>¯9$õ;ð¢æEœ8äJ~îV˜´~P\^›y7_¢ ƒ‹†h «2æ ”ä‰É‚DSIžHX@ËY lÔúP<:ýJ³}V뉽‡@¨³T+ü¶ÙÂÜpé¡„ÁGªžs 9…Ê.5"Òþ'žü†;*Ýýúï{ùµJÕú~´–M·W.@U*»ÏŠ›üû\SæoB –[}ž—ËnÒPYð³ƒÅ"ÞÞ¦­Bϸ#?w+¥S¤àõ­K÷LvÕƒÖ@‰G tΕÙM%y"a+gq€P³«À”ƒæº˜h¨?P|ô m „ŠÒ²¹­noþP´n­ T”gû©€Ò¾‚>¾U*&›,úÿêPÌ´„Ö^ì¼@¨D§—É-n‹KkÒÖ™Rm³ÉP,yý¢„¯suþôxÓ¤—ÛnÄÐj¨ìÎVÇb£³-Rca&- •ªò ºbèªç÷ùòÛr¯_ž^ÍÓÝJééÒ娇èèÑótÈÀ@Ðh*Ë öÛüÇÞÙÄ6±]q|°ƒûÆ!ìðäà Iœ&/!/xBÀã•$„Ï/å=¤#¿E[uQUªºiUuѪ­^¥vÙuÕuU%voѪ‹.ªnª®*µw>=öܹžIc{þ¿ ö™;¹÷ž9çügî̘2Âjç÷oõ. ÜøM5 áÛÂ*„eYM!„%áG…?ù¨*þðÅWpBI„Ðj !,ÿñÏ T5ÿý-|P !ô¥šBKÀ/¾úâ_È„°<«)„°üô?H@€…ð‡oÞü³<«é¿ß¼yó%„€¿BHeûßÆýZ{ôBÿ'ÿø |!„‚ËŸ²_ Õ„Ü‚÷!„B@ ù„B!™oÿòwp„BB!!„€BAâ'† „B@pùþwþ'@!„€à‚÷!„B„@!„€ òÇoýN€Bæ{p„BB!!„€BAâ»?ÿ+œ!,Ê× Z9Da8¡ú¸ä…áÁ¥©þS8@€™ß€7æáÁ%’Ý‚¼G Ð܆2m]€½÷àÖÁÐœ ¸à=BB ¨Äî˜\à™;dã¸$í4¿Ô‡÷¿°Ë¹¥É)ÅðÄú§7ËþâCØGtèmN©­…vZ¾Î/Æjj:ç¬]l<̈́創•dΙì ×´¶/Uúñ·ž&ǹñZ¹¦À{; ‚"éècŽIšÙŒÉáÎׇ|vË`‚v C‚c*G8½Þù¸.ÝÚÓµŠÚJZ±ªÅm¾GÅKE«»0õ6N§mfZi™)_!TI,»›Ö?½ã áY<Þ¸¨Užm3lézÝ6uÛ0õ…5Kv®­¢3æÙ%Î>7^+×z_ö9>æ˜[tSÍ_Ý’¥œrB‚%þ{„Óko‡±Sèê¿[ˆKM0¯¤åpªZÜæ!U;WaêqœNÛriùî…°y¯Æ›§þñ®šÊ5Ú—Ø–â˜ìŒSË|!Œ¾g±´¾!|œµxþ(ȉ¨E9!Á1•À#œ^/°3Uÿví&šˆCâ „¶’&ÌlAs&„ÍE«»0õ6NÇmyi)Iue.„’t–÷± !<ž·6:G5™’ adMÍÃãñÑIícO M4ê—èú‰Í~¢úá"Ñ Íô™õÈT ¶ÐæÍ­cûrÏñ^Îù!Êv;µâ˜ÖÙ‰i¯v%Ä"å†oN‰·R9wNHð¢Äpzmc%ªO¯r™‚;î  BXPÒÄ™-hn ¡¨Ú¹ SãtÚ–—–!„Òe¢ë.„pGem”%uGm‰…0~’]¼†[r¿E4žÔ?³«uùíѲnbÇA}&aŠè¼fi8HõMœ5’“ùÞÜì­\ÃñžÉ ¢iÇVÓѺnºPײâ›SÚI¾hf'$xQâ¿G8½6³3cWvqxx!´•4qf š›B(ªv®ÂÔã8¶å¥eeá¤õ«@Ó–³Øyvr›ÂÔÑÅL"šÈ,>4wH ] Éãí¦Ö±¿ûpŸ<±v‡»Cêè渎u¬48Nâ°²À}mGÎãiËbÕ ÑÇʿ׉º4Ko=ÉÊAS–Æ=Fô~§M=}’oáÍÍÞÊ=vïY½‹;¶²›Ve:R §%ú|¿™qœàE‰ÿáôºb¿uó¼Xm%M˜Ù‚æ¦ ««0õ6N§mùiY1BøÂöXÖF(qÏÂ+3<7õ{Aïé Ê-B8/+¦nÞÏ CæœsÔ„º$‹ÇˆÌÿ³zI7»úoÕÎÛÏèϽv[¦wØs!,'æ•+ó§Ûv×ؼ¹Ù[yZ,ðžÁ®¹®Çke7%z]Ÿ &h4•Ë8NHð¢Äðz÷›±ý„¨!,,i&ܪåÜÜBaµs¦žÆé°­ -+CG‰îºB©Ó\M½¤vÉÂs ¢­ÅÓéö Ÿ§µk6myìô@Œê¦Qå/”äíp‰høÕÉ3L*[ÖõÖG”ƒè „Æ¢w„]ó·.öÞ?ÀúèQ,ìý˜ÑŠUçÑÊMe&G´÷?W%§¹Ù[¹Çî=ƒ×–ã´²›.(wž#éÎp¸6íß[s©QJ<’øB¨‡/Jü÷H‘^w³fH\à…ÐVÒòrÝVµœ››B(¬vžÃ´ø8ùÛ Ó²"„°rg¶b!!R.—s·Sz,B8§™8;\4\o4ºŽš$«'cÚBj—2ulϦtùô¬òÒræ&چȲ®‰›/Iv°¾¡}\!õ”‹77N+ؼ§Ñ› º/le3±Œcé <µv…ú˜/ïÆ34¾š—qœàF‰ïõÚ»`¾Y „\T-¡Š«§0ݶÚÓ²|…ÐJlIr)„#úÚè-Uí¯O4!R®_™µXy˜ßBûùÆÊ—Þ<ºê5j”J¿o}µ±¹Â¬0)Ë­·3RnºLT§ˆê]Ë`š<ß#*'"óW‹ìbÏanöVî±{O2’¤EØÊnR~EeSÙ–Oë¾¢zµSKÆqB‚c*Gœ{]e§Þ¡„P 0‚ª%Baµó¦ÛBNZ–»Êõ¯f’’[!<§Ïì:·å á³ù¡tG&KÚáxa¾Ë"I›9!¼b=7ÉÛARð.º>Ñæ)j按Dûb”m¤T­Ùuüˆ¶J0—¿X0Q¹s‚M9^tnz+×p¼gFñ²¨Ç´›õÉ©ÆšN˜!:%fœ-$¸&ß=âÜk¤“hø ô B(Af …PT<…éö…›–•ðÔ¨äZ¥)Šî’¤{au•Ó¦ÉX.@•ÃÑi½»9!|džªî Ý{Õ¾O>ð5ÏÚ;KR‚†Ù÷«Æ/°kD™JšÈ\‰ía'BU‘; Ì]ýE禷r Ç{*׈¢VSÑ‚aê÷åüc0A÷ìW|“ßqìµùSä× oB¡À2[(„¢Šà%L·/„iY]Bø¡º6zC»=bá~Í“7ÓK v!üzN GØw`|³kTÓÂP³—£±:4Ý~æj›² P«óCcS<û?öÎ=¸Š«Žã·IÄ&ŒM€@iy”¶„×AÊ«R§Pu°¶àdè´E;£(q:N~½òhBW°¼Ã(´”€¼AJ13Bb¤‘‡ el;¢¦>ѳ{wïÝ{÷·çîMî#¹ûýü“ääìãüÎ9¿ÏîÞݽ”ž©Þ å»1aº¤å‹5Ä¡Ú–x &z*ˆ–ÖbŠ&ž”ëO”ù¼(fo†Ê$1j22ÆðC¢(ʱÚê°¢A?‚Ý B¹`$3[*BYFc˜¶C„Ó2±D8Ï­8~õsùEØ%I´ü©ÙùZ‘ÒÏM×—œc!³€Ö9sg)öÒ†Þ˜ë½Ý¦·ñŽÉêk„f®Ë 4>2Ùùèï? I%iÑ6S-Û0Ñsi½4LZ‹)úªa×æGå£ÙÉA©1‰!Š¢‹­ÎLGɸO" •Ò$YK*BY¶³?LÛ#B‹i™X"t-¦ÔüÉ4Í Âib ýƒ¨½Ý1Öð˜æb“™ü<&N gÛîÌ¡†¬˜åÝòD_úM§´\qÀ“î?ãÿ~­ÓΗ¼$÷dã¥9¾mL-Û0ÑS\Ä ]¶´S$fd7Ã5š®‘?ãLC‚-ŠzDø­N»9"Ó Â‚‘d-©eÙÎö0…CŠp0ÑãO{yÐEø¬ÿ>¥‘ä½h:Ì¿>i&2 Œè™£¿öyã]òÞøÞ¨ôIÚ¯C“¼·fˆý[l8ÂQ›2Ú÷m ™Ý#ü-Á1åU¢îºÖ¦h·dšÛÆÕ² =—úÞÀÅòZLQÿQþç f fdüF0C‚)ŠADØ­ŠzîÁ0DhC0ÖYK*BY¶³;LÛ'BnZ&žGºiÜä2ˆ°¯ÿ>%qîMÊ;µ³sÔWŠ*+Öúõáy³Äù []CvÀP-"ÞC¬Œ(B×±SSÒ’_èšáö}áñ¢1?L+ÓËň]`ØQVÐ7¯K8½áÊ~ytRZNߧŒg>½žšœúÄY†×[v¹oPrêø½:ýœ™Þ»[JJ¿çqIÛÆÔ²/Sô†¥æ†¬Åõø\FAZÎè×æG9*3ŽÜ(‰~D‚·š¶! Ú.+ÁXd­P"4/gXgèašÐ"ìŒ îÔŸç@¬È~­£¥^ˆ°­Œ ëí`vÐÔ ¶‘‘9_@ ¶"ŒJê…ÛFþøôG€FfïiB DÔ ¶‘)½€ÎC”Œ HD8"/ï…Ž™zæåå@„Ð^f@„R’á[–:{ }ôI_‚ @„à`f/D pßšp.]Üç‚ç8šy!'“ûâL'1t>bÀÁLš„ €|•”‚ $a!$*oQ‚x@„`— Åkˆ"8˜ „"„@„!ˆ"B„'Q¶ã‚B„ç²O@„!ÀÉà9Bˆ"8šÓž"„æûˆ"B„ BˆDœÄÇ׈"8—w-‚B„ç‚ç!Bˆàhðfˆ"8š’šÃD€!B!D"„Nbóoˆ0^",CWâΪқDØ.¾{u[m]eKýá÷ÂÕà©ËkqŽߔzZδ2ÿZKîÊ£×îÙsïI¢øÿü„è×öv©ä-5üy½iyeåÞ¿î6Viþ`_yÑÞ‹†²ý—·•Ÿ8{+®‡×?Ü^ä©]ó÷]ò½o#K)cS?ÚD¤µ®ž,ª<ú«+ñ‹çņ};ˆ0ÝP}°¸|ÓÉ#?—w›„|ŽP:Y̹‡\^Ö¨£òxÈur£ÓnÞÊ–²6íñΙ†x‹ðÊ!ßü­¼VúþÃIÚ± Þ¾¢º{ªœ´õu+‘ám2tíê&mûå+K|‰U]å½èØ ­hÝî¸MŸÍõX•þS²÷ÑaÅ6’‹ð|‘vLs±$æq1ì\aá{m2ÝpášVây³Äº³Dr²˜s3¸JÖɬ Œ¼-¥m*ê "\©dîG/­+Uö¦þnýTM‘a=QÑåeB_žw9-WhQ#ØÒÞsº¶â±å£k—õé§Á ËÅ0S~î úT+I7>w?¬7„Pœoœ±Øûˆp\;~Ñh¢º¥ŒýµÖýÛ7ò<§c— «¢òhÜÏäk+Ó ­Dû´’+D—,jA„aÈÉbÎ=ÌàbD(Y'³›yÔ-¥m`w!Þ"¼GTÞ˜D=ÚYuëÏö•·üÅx“æî#o—֨׊ô6nªK¹ÊVE:·ˆö*¬|Æ]ø ¡È`´Åb…[i]aõÍòg¯û?#¬hnÚ^êÙTÕT,­ØÉÇe§òQßþeþ®=f¸ÒyŽèCåZV9í ^î Ñ)ïo›=T^—ùsËpxrÀ{ôÅì}DaÚg¸š×LÿgïúšÈ•øŸÞ±= uKËA88@ª ø…AQÁ/|{zòåDQPåÄ{ÊM²›lv3Ù¶RØ÷°óƒÂ2M¦3É|2“d®ü®¡Ë5…zeb¥Z|ÂM¤ü΢È!Ì` Ïû\ ÁUÂæš,„ï!—„Am äé74oôh›þMÁ/öi™‰E1òZeº¹2) çB³á‘›·êàAøè$‡sF„©QCƒ„û}ìÁ9 „»ÕR°É' \OAôÑ´‰ÛVD1-Š kúâ0aûSþϽÈŠ\ïýfÐÇGÝâÇ7ö–+!}1(›øûëFZÒ:*\Ÿæ”Ù³x„Jñ ·Ï"·šîÕüRÌÓ½ªFt3(´*\L W  Âæ㥙 ÉBùbpi@˜ç äé74oôhBB+iØ–°æpÌÙiš¬Â˜÷šÄ8s£òì@=žîyÔ×õùùºÈ¹6AÍPÌô#ï‚=µõ¢bë‘` ¼°bj°:9î%,„Ýõ³Mƒ÷†ðq“ „[1ˆC’žg μ@øÕ»|ûï+À÷È©Á[ñxï H‚žB} ¼ßh¸v»}þdÂ%ÊZúbД'„IOCýrDB…ë•bÈ·-G§M8\Æíä®55[¼öÔ9fPF{’Ý9¹J@X®BßñÒLÐd¡|OÐà@˜ß” äé74oôhBÂË8²º©?ü…øÇW¶OE®ç=>â{©ÐvòàVÛ#ìIArÁÀL<òЀd ֨䭱ý{QX[Žlf× ?-÷lÊë+˜ñ×ú¡)íá¹$Dï䊊i+•ãÃwì‹bØàÛ‡ {znÿ×ùÛ–R£»ÃŸKûQˆ]¤¥/Í  ë<ÑðzDB•ë¤Ü{DžC€ ,:iÂÝSœkó©"õâÓˆß Î_‰œÜ æ*aÁ@;^š š,¤ï \sO@Où ‰þhBÂ=ürÔQ Ø8{± ö¶Wÿ~[¸WÑp7Î*43õyO úŠ¿½I.νê_ÚÑÕ ªsÛ©Žca6qçA…[–@¸ßðUCñ7‘×1ؘ~ìðs ’Ó“µQpðŸ­-;·£_gBŸJcýé‹@7dlÎèZŒgÙ5 T¹jäj$² °vdšÐ…ëe¹ò² ßÐz-éÈ!hD3ƒM|Ó¡ãZ®ŸN˜ˆB#óI¨:^š š,´ï1.„¹' §‚ü„D´!á<Ð徜?càÕiG±Ó ~¾#€°½Bœ˜#˜©Ï+´Ðʇyürn œ}nꃩS¤Îm '!ð7*äïHñ5¢›Á¦9»ȪÈõ³ÐZ—f‚& é{̃Kaî èi  ¿A!Ñ-BÈ@8tbýª.eú ÚÎ÷O%¤dS/׀иlÎrÒ3õy—ÖÑ/u®c¬_ñÛX¥a¼ŒÑR"Ê6uF }0uŽ{€Pr;Á€@øp[/¾Ã´ëlCòa6S7 qôwvÙ¢I§í5çøÓÅjH4rã€j 7&Ìâ.1l’þà„SC©åñ R=\Jô9Z $„›Ù—Íf=_¤h!ÌÀ©n,sùFÌwJMã*aÁÔ{¼44Y(ßc\.枀Þ ñýÑ"„ „ú’—Ý+öå/|™»âOQh@øÍ­*F0SŸ—tŽUðyÂkï ”~…ªo~ û«{·¼Â¤ IDATÆÕ`³[RAÂö—'«„ d•ÚÎäN‡yL;%:ŠmuAÔâgb3® |ÌÒµ½ö“¨¶ÏaΣÔÀvQúƒS«šàÆ%ÕN„B׎7-2tDª0 gÓÔÊÇ¢k„4ƒ¤½˜§t…«”Í?5úì¸]Ÿš,„ï1.óœ€nø ‰þhB ü†Ô2t@}< ð‰ÿë¡n?¢=â»îGüÌÔçe,YælÊŽK®N‹ó"ó€Ž'tƒÍÎ6 „£'+\„IÅyšvÓÞœ®^ˆÔö6ËÛ:l‹î)‡ÇÃ]¢Ö-” ›¥?0 ÔËw#·žPXãáb÷’Ôò#Êe…#*f82vÌ Žé›¹¹~ ,Ý#¤)h²¾Ç8¸T Ìwº äï7( $ú£Eûa‡§rz¸Évà;ܳÿ-ìZû÷Û…²> ì‰At\ùˆŸ™ú¼ì#dû÷ ¨s\2øJ¿x/Ô_LRÔéáï¶‡Þ .éL•jé´[ëiNµhËÓ§WH.¶÷,σ¨{¼‡KFá%´ÚŒ×ˆÉ ‚ö5ss•€° œ;^š š,„ï1 .æ;•òöýÑ"„ „ç>xLs1_¼P>x‘WíI ^Ž«aÁL}^P“®úÊ Ž²µ.®ò¡‘³ÖåIúDÍž] ë•’’xb'»ïª×2ãaÕXCúŠ‹…ßè£{E*äÕ«^¦ï÷¹«ÉÅæ—TY›Vñ°ˆÎrƒ·>ã›J~\#´ÜN—R¹U¼pPƒƒÿs š,„ï1 ./OÀ€òð”·$ú£E{ú–•ß/Gy׫ÊÉž1€1¾¬vw·û])W×à~fêó‚n¸%5Ø%gÿ›˜|@Øð…nPÂU\ƈíŸ21à|žÌýi­_Ç:b[´B‰ñÙré¬S1•ÏÄÊCšCƒ¨ÄO8ªIP:…#'“½\ìPS‡øù,·bX@ø:íWSšåÅÖe†;1™ª“JÒUÂÂcw0h²¾‡\> j“l ¿A!Ñ-BØ@˜Æpï]ZþZÞ‚ ¶ø‚CæÖíKãk9xã- dF;•5-ÁL}^Ð&À¶øÛ»":„)~jPÂ97õËöC¯¹@ÈÂÐÄhÞ@ؾz)°:aoT[îaù?ìšDŸÎ(kŒ°öoD=; „ô¥yå«z›º ççj‘ÓÙÉì‹Gïu…pßq —» ‰ÉÃЈf†6eH<SLã*áaÓq«,4YßC.?µI4Pß ógD¤ÿ¯a:/b&‹½Ž˜{­’—Õ'x&1’é¹Ïôu€{ì‡F‘Ò\DPéVZ%˜©ÏË@8YtßC .Ú¤(Äo@HôGŠ:ò¼QÅ<™y––˜²(æP8û>™%ý’$!ýé¦û© ôseXÍf³ž¤¼h 2ORÅ­_×U¤Z×¾ïJ™;­ç±X)ø^ËÀõSQéżæ‰LL–¶‘‘nƒïÑ„Am ~#/o)Û$ú#}@ø@˜žå…‡Î4ó*™+Od®žþUyWËUι™Iö.ûšÊE4“o<µ]Û¿€ÝÍ+M;56íÐÌÔ#A ·ØÉÎûïÖ*_ĸÖv½@h_¨/âBvNÔ€pE[;Ù¶Y³ÍJ1ØŽJ¾† Q«ŒaUä)ͦe‘q|¶²­§c÷PšÄbåb=vb÷›ek‰Þ©ÊÙ„«·£&\ ÀR™¤&éF]†·BzPãz‹V¨ÞiºÕ ä1N`ÄÓMMQ Úì!h„4Ž½èÜêÉß°Ó¡e×ÏEó»ÅÂLÛ±;wKLy²A÷=úà"€0¨M¢Âoäå-]9‰þ(>F"oÖä(‹³°ÌþºwųNq¿ÉšŠ9ªÄ®éUΰîªUf⑤ì;ù®¤Süˆ‹ºãè+±GM ê×'¾÷‰"Ø58‘¤ÂÑ„m‰üL{±Ói©£ÇÍ~• %‰wâ¾²ëAHӧ׫­3FéBå1ÃÈõ!Á5wéO‡ „Š¥>Œ†FH3°DM×gÌ\%*‘a²¸Gütßó/{çÅuÅña×8Ù5Æàµ1Æ,»ÆÆöÚ cƒc;`;ˆ‡ƒÁÁ¼ÊË@R †„úhÝBhEÄIª6´MU¢4¢"j•”J•@4¡ýÔJTiøP)ªREUUU¨ ¢_"µwçµ³;wgÆxg=Þùÿ¾x}fæÜ;çž{ÿ÷ÎcW—\ç !gg®Iåþíkcç¯|"­¢n]xw„'„ѱ?ûòƒÔõB8òàÍ×ÇF/~ÿ#ïE¥Ÿ[ŽÿBý-¶þÌjÓŽ¼úáVدÞ€üâÛw®Ž^¾óaüËþF¾úýëç¯ßøá­'«÷ŒqÇV^í'À%¢ë/š !o¯ï~çæùëÞÿéd„&q¹ú¯Û/ýöö쉿F~rûÚKc×Þþ¥ñ^`üüøãì;']gÑ<ëÎ{’’‹+„†>õtãÆx…×áõ&G¡™øÓä7ÇónØï&á~ }\ºø9‚ ­N;FK¡]\!úÈòÎo¦å+¶“Å{üÒiB;FK¡]\¥¨åøçå+è+@!„“3ZBmâÁ8~ÛàOG0•ùӅׄ ¡=£%„ÐÞyíý‹ãùFÍ·¾BW`jó B`$„oܽ{/-¾Ò>Z>¸{÷îU¡ ÜOýc÷à>!¤äŸfr ¿ž˜†¦{7F/ÿñH€ºøaS!Xå{oÿA€Bîå]¼>!„Ü Þ#„B®æ£ÑO!„àbþ‡÷¥ „BB!!„„Bpÿþ 1€BîåÏÑ«„Bp/xB!¸|³ „Bp5/þü7„BB!!„€êy²–ºo!Ù‡À"už.€{YK^„p%y³.&‚à&ŠJ{îe!^Ÿàfð!WSVðM€‹é?‚à&¶÷#ÜKntAà^ð!W³ BœMx xLeÊ÷­GÀC²ˆT rÚš;¦¿ˆ¢ê=âß<" ÞçÍ°êq"~ʃ4]óoÿ@aNNÕ¦„ n*ôy«Î-4<ÐÉ#C¼¦Ó)‘pÚKH1N\y¡ÎºÊµiR&d*"¹UÞœÛCf©ñÌ|¯xVõ …Œž%Úž°”n‰9l­—˜¦ðÒÍŒÿWS9Ϫꨕþ[&yÏuˆŠøªÓ]±**M¯ª'⧉4­]2 œ~_¹ÚrAÙ–s"õŽFSS›„01úˆqâÊ u&ÐWî Ù „f{%KtS¹ “Ô¨«Tr׳Ó<£5Bhšn 9l­—˜úŒ4S\-²?w¹ƒ„0´BâP0«Î¢4—PCéBÕãüjZ;²ƒ÷‚úi+üDÏ*SœÙlø*í\SÈZwCª¶¦ËfÇñU•§½^Ä8qå…:#3k}se©ß£0CÈHD„uì¼{Ö<È!¥Éñ¬]I·Ë•‡¡{ɤF8&m[öõ–2 òטf4Û»¾©éi+閘Öz‰y ÷Q\#O²*¯èܤî~¤©©ixò…°8.ÛÛO³Ód¿–÷¦µ_`USQ¬EصL²"ꊵLxÑé½)t0)kz´€†—ÚQ‚>bœ¸òB 8Íɪ²ÑÞ˜ë -ic}?¦!Øtd¥Âä|fÒNãH‰Ëöè™ Vªno–é Qj¬g#µ¨3fµÌ2š á|Ké–œÃVz‰y ¯ôk„p#Ñr±2±Ý7ËÆ|' !žXÕæd½æ{¦ÒÚÑ*écmµ—Ä>fSœ:iêÕC´ ƒIYÓ\Ekì(A1N\y¡Î¼æ¬L·î˜G$6œ’6>¯ “ó Rcº…ÐKµÔAOW– ¡Aj”3íY,ËK®f­ ¡IºéÆ +½Ä4… (GÝR^¨V½›h3…06‰­Ïr! ¬òyƒñÖÞIÔ–?³¹»x«…H¹T³>?¸› c1¨é)¢5¶” '®¼Pg^sö/lkÌ9…v­“,Eó¨ ,… Bø0dß{„©1ŸM²4‹ÃR³ŒV…Ð0Ý8㆕^bšÂäÛ¨ áf¢Be¡H´Å¡BØJT)ܼºÁëk[q¼HÙijóy +w«aWG^È×~HÝ'ò…ðóÍþ¶R)4ÊS­’Íiöø +× qŸ=!¨gàhjK,DãQƒ?ñS¦®­Óâ­Ý©ÿ DØŸA5˜èXR×”m) ØQ'bœ¸rL™€×œ:ikÌ9…–E)Tïisø&!„P0IÝšÅÀayAf”ÑŠ§›~Ü°ÒKLS¸‘è…¹ªmmT&ÀÛœ+„ÅÊH8 $pü3_ÏmQ-kå½û|²%¿VÂ3]²mµ^ûóä÷)bÛ£ö“¡½),©®Zñ?eOu‘ iíz"õ $Ö4yìÏãDçÌt°¦¨é zY"Í%p"Ɖ+Ç” xÍÙ[¯ë®¨Ÿ¾PÈTDjÔkHbÏ;À7AnI>oVv ¡aj–(ƒ°pB^¼e´"„Æé¦7¬ô³^¢æÈ\ÞEÓÞø¼ØaB¸˜äëUáSìSñ¦î¡¶VÞ/n{‚hùÙU½•L—„•‘ŽŠëk& m•…°0üÍg[ØaâÔ`I#;Ù`cã|Q—S4ØZÉcù¢öÚÑð@wgE;3uó,¹ÇødЂ•ÃM±oR!k/tµá¸ÛYåõæu¦<᤬é9MΦ·NÄ8qå˜2¯97²¹TƒôíÀ`†"²Q3c:ÙÌ7AŽˆ]XM™lÁe–ÑŠûÔVz‰I=#Í:&ð„°ÑG¾µNÂ3«˜È5ˆ«Ü¦âÒaéùb›ÀW‰¡XrZ~Þïi¶x$Ъ[ñ\[>•‹ØÚ{„Ô“²ºD³ES Ñ!ñB]øY¦dž€q Ñß#´à'Mk÷ÅoÙÆîö+„¹y|±GêÀËç¦:Ðáèkšë£è|{JàDŒWŽ)ðš³B3Fççf&"ÓÔG…¡Vê „ÖS£?Jþ…f­¡ŸÚqÃJ/1ñÙD´[Ð amc_‘O½<å!ôKä‹]V\Ú•å¨7úëUKÜo(KñhlAažR;FìdE±k—ôgi|fZ!ôH7RsýÒ¶A?yJJ¼DÇ8Æ+D'„üµ6›ÅxêâePø¬TµŸ|ÍC]QÖZÛ²EÙô¦Å¦8ãÄ•cʼæŒÍ蠅 ¶e¶`$#©—º’È1¢Ó|Ó”ÂEÂBã…&c-5Êw¡ 3ZB+>µã†•^bìs¿_¼p›,„â·åû a-»”Ùú,Íš¬AZM2Žˆ½Õ¬‚Ÿ"Ú!Ç­W65įJ«B8MÞVLôLLn«W÷)Ná¯ZðcÔÚa–J-ÒÅÞj±ÇŠϲö‹ÉöfÖB…{³CëBDûm*1N\9¦LÀ«œèëÒÖÝ$Ï°lH«:™dIK⛦md›¡} XJº-ÊK:†­¡ŸÚ¡ÑJ/1ô衶AŽž’¾q©7ìD!\±~W|6«¾FYâ£ès‚p„í°£Qs¸W³", o¹$vÊúíI¢þd!¬‰_ÊLz—­¬AîIÆ+Äèõ‰T~ U"ÖÆŇKæW—iE@úF¢!ÙãpâƒPSX™öí*1}\y¦ À«\n¿’©Â@úâb‘=ê°"¾ BøP•öf—ZIÁàÿÙ;÷à*Ê3’4š1! Â!ÈEä*$ ·p3(t ˆµ0f›¡2ER‡·'@@.J­Úi[;P¥ƒ…™V‹ÕBªâPk)ÔŽ0£±Õ™þÓöÛëÙË»—„s›=¿ç’/‡w÷¼û~û췻߮øƒ:”v«hM„~b÷~z‰kÌ'©@ž#`aïeS£‰9 ¹FXYÜC(ºIŸ×Õ]µ˜6¶[ª$Bã.˜<¡R·™ùÔ‡";õÓÈ8F„÷&<«?™bMýèÉý§‹·²¥,ã‹Ð=Ž»%æiá£C‹(^"_Žæ&ô±2"Åö­T-͘-¯lSêqٜğ‹Ó‘‘yæ“Hù&œíýÂ6}ÂGiä$ªb l­‰ÐO¹9ìá{‰[Ì9DS#œ•s|„£%BÉ…ÓˆâÚC¯ú¡,Ç(ã·%OE•Š?i…vÄkdfÄ4i^ˆ°‡U„3­"ì5©(€·F„žq<¶öã1e^ÈÂHŒª”Ô&¸D†™·mçáýD±²T-Ϙ5¯|SÊqÙœòXBö°tdd2‘~ÿ.¢®|S§!æ¦ïÒè½NìïçFÇÖŠÖDè§ÜöpŽ½Ä%æÈ \â,BéòâÚ ‰02x®P~òs7£+´™ß4FqaVo¥ùÉYnóa?‹{(;ʼnM^¸€·»½ãxmí†Ñ÷Ü1ã¾Jih/Mn›–³Gúå…B„5Dw¤l ³äÕ¡)Õ¸lN™XÒ.P¹gd½v_CD¾o¨o‚;D¯‚uá¡gi Í!È?¡ÕZÑšý”›ÓΩ—¸Ä|DñÊLÖ(,´ÞªW¯_R Òô‰^UDë”Û¦Ov5$ßt1‡¨IÛ±ö ì ®ráüÄíF#I½³ß"0n!«¬"ôÇmk¯©*˜¢þ8$K¹Á¡oUb¢Ál¢áaá(JîÃ5ÍK`2Æä•iJÌÊ­&*Òºu­~{gŠ3"]nWO®”©Ýi‚gi "Š›Þ¢îZÑúC·}”›¡†ýõ?%œ¸F8À0°¨â5BÁâ!=éâ¦4¡^½¯³¸27ðöĽAʉӲ*íqf‘Áêå'F„uÚ$n»+!ËI™Zh·:ë´pq\-QDqõŠó<ͱb$Z¡T@Ãxó‹H:­§&ç½NK`2Æä•iJö•[‘§¿qf¶þôüTgd¹¾;(Õ&È2M!ð*¯hÏ©Ôp­h]„>ÊÍPÃþz‰ŸNˆPŠ©^¢™¥¿>`Ï•^$\£î5•'›å Ý5(c³¼û´cù]:³µ—¬JèÎæ Â¥D=‡ð"ç>ò…½2y½Š³=¢a´´ô1¯=Öd‘i´;¸†(G™J)]/í/ní%,;.ÎMöä ó˜Œ1yešÒ³rBS9ò±Þ½E†»ZRœ‘²nâhDªæGó´Ý Ó|ùbÞëC&B®4”–J;Á²uö—Á»UtâżÎ1æ¬1í»T1wŠ˜1Y ÓÅà°$"”Þ *Û¦¯ô¬“jÊÅq@Ž<Īœ/µ ¯ž'ƃqåxðÛÒm3Ãk–IÏf[qá­q¢ªüiœ£DM]<>¢Jz‡riÉÙ¢GÔp‰SFwˆ˜Þ5"½Ù߬.¶u6•r‘ئ±e5ˤÇyç†B„âÛ-LåìcòÊ¥:0+'½%¥°¶v¥8´ÎoHSF"«D}NŸZ;7ž8ßÎ4ž™£“þ„ë Þ`€ÜxS؆„Li¨C41> u=uÆyU´.B—˜ì®Ñ“Ù¥zÇ4Š°¸»0ÈÚ]n1'jÃA{ S©Ï1+{@;’»[=—Õ°VkÉV‡³%O¨-9êmŒ%ë d§O¬ÖÞ°1[yi¡}!zDç8¾Déw·úÿ«½±N{zÆÀÅ‘0ˆ°2šüR3/Áž1&¯\ªÓ}ån§?QiEÚ2™“­½¥l°K耜C÷b^®4TÁä›GÛݽ*:!Bç˜l Ûcr»TϘ¦y„·éI©ÐÏM„òE6e¼·ô;Ó³£W>ÜWÿÛÐþÓs¢MÕ‰5¾k^~,{¢Vû>œË&uË˙Š0Ò8VDÌzbxcdf\9ßÊ\Û³.Dh:Åñ'ÂHÙò1YÑXÅ,ãqTñ× ›¢±1ë—DB!Â!b¬_™Ò%0còÊ¥:0›³®¼[NNŸîLgF"¹]fçïo|¥ ÓÚÍâŠÐ^ª`r8ºT´A„Ž1jØ“Ý¥zÅ´L¨¯+/ÊË)*7 ßl†ŸAæ  ÃT>2IpÂ(Â@îR!ÂT36YOψ0»Tˆ0ÅŒŒuEa€w©aji_p'²€¼K…SL-nA ²9páˆêêäÌ#Nú.µ±ººº "€ö`Ö$ÁE„‚¹Á\¹ÑÊ­¯!ÜaœG€?÷,Dd0x@EIù $@æÒÓ'd2˜G £éU°IÁÔ7"€[ ´{âíäÉê7øþì÷‰þÜÈ›ˆ¹ý}ók´Ñðë•··¶¾ò¯#ê¯ÉŒQ¼×ž§ç‚]9–ïöêZ¶:óã—¸ôÇŸmkyåü‘ößdHË›jۅ˧[ZOþî#ëg™T™›¸UK}BÖû”/®üå@KsÛž/yOÇ«øà³+áûNN}Ë•)ì‘?õkטL÷ö]“.1¹nn.ý£Jð 7[„½¦ÑÖO“Ôýþzš¦F„¾"{‰ðS2ËîÕo¿mçf¯*Ûñ]„¦ï¶ágÕ/±_×Þ5m{·^ooì·É.Âw[”_ãç7›>ˤÊÜĬZâ´ņüðâq-[þãU<®ºŒ‡X,ûâx[è¾·Sßò]eŒc2ÝÛoMºÄdº¹µô"ÂÒŠ>{òýý[¤µ9ûER¶à ”*úŠì!ÂÿÆ Å²ãsñµOî{úL3‘2Ö<º=Á6¢Ó†»“‚.BÓw“×wÿá«ßmû÷ÔÆv¡À·Þ8,þ‰_jÿfݲWCÉðDè‡%Éõ²¹®ì©251«–†„8­÷)?§'¤=Ìû‡¯{‚æÜ‹§ãU—¹9ºÕC„?½~Nùhç:ö-¿Ufᾋÿé“éÞ>kÒ-¦½›ÛJÿ«‹/¶Ýt>-­ÕË»ä¡áYñóñЋp³¬~½XŽ !\”ºÛWB G­Kk¦¶k‰_ßi¸-ßíÈëÔü²|zB|·}JÛ¢Ož‘öá?$úû{í ÌÖÉv‹T?½Cüð{ÑQ§j IDATÞÙàš*S·j©OˆÃº±Ÿòà ¢çeÿzŽèÔ9—⹪Ë`ÎПå|¾†}ÜŠá—t ÖãˆÁPc}cé¾ëltÇ€ô1ãG0•²}Ÿ¬-—¬ŒZ‡þ=ÝóOq¿Ð IÏc‚V€oBJÑY«Ü‡ˆ¬íƒC¨¼ùœ$µa«BêÞöÏžTWa V^ò‹­À*#@¨µ©†w MêlªaNK¿Ô ü\rGvt‡ÿ»31K®}þ‘ŽadŽ¶tħXyæNlŽ×äoZ_¦Vk’±¡E>5È~ÆÚNb‡²ƒã×?¯ÖºAø ¡ß“Ã3WÇâã×ç­«Ý– ñëùÞx´£9² ûÙõÈ1G,SÒÀÜ}€§ž“‡¤á®U€ §0•²·føQH²O. ƒ¡`¡VÜGf#Ð!©zZã*Ï!5kûá*oôYÒ+©U6*ÚŪxö¢º*)ýbˬ2„Z›jxÒ¤Ö¦æ´ôK ÂkÞ‡‚_»øl™…§¶Üzw‡­CK kâOc—ùÝÙqö°Wª!cùˆu¨)'ƒðUD¼ÓIû꛾ Üi±±¸\„ñ™„!‰% †TžŒIçæ°ÿçãÛ8ô¤6=ec“ÜwÙß.€¡à'k~뾓=jOû à‘,Oý]å=¤fm?Bå<+hŸó÷aûßÿ¢úüijÕUAxXAè[®¤W™ B­M5¼iRkS sZú%a"é}°añ…ֲݽˆýÙØ% „õ½0þ1ÿ’=Ul‡hÓ÷kQ€µ„ÅÓsßÓ‹ãXl<0¼Š¥¾¼ºÚFª½ËZ.ÛÝl"ÑJÂá‡(D¼Íž,»újº} ƒ‘P²,Òpþz¾{êÎu<¹»Gÿd_¸oIÿÚ_zžV=pµñS¡ã™qA¨”ͨC¯O~zÛy©]ôØøaÔM݈ÅƦŠÄfH;o 5äùů¥6É;€_W)‡Ô¬í‡C¨¼Qg…H'°£é'žðª«‚00;—+«ìtl¹“^e*µ6Õð¤I­M5Ìié—„#Xèaê‹çˆ-³ ðvÅî·â¹——¸¿"ÐÌ°ôK9ÇÁ>hznxÓš$žä†ÞcGÒ7nC‚Ý <™„È-O6>áÕsfû܃ —e‘Ö±©avc ³Szò$‰%-žæšÏz¥¥2K˜¡6WÛæ•q A¨” v‡:2Ïë]ôn.Îmý¯HÓw¤»Ðé:ëÇÒö·Å3ÂUê!%kûâßjÜ+F *5¤=â ­º*ƒ‚ðxüee•Ž-W* 2„Z›jxÒ¤>ŸJ˜ÓÒ/1w1#â8ã¸5¥¢sÒåEn™Ó k›¢ü¡Þï‚]xoE²2®(CCý‚sc6♯=ÙHá%»Öÿ=ÀcBa. 1kGœL àY‘ ìÂFÉq붦Sœt`ݹäRÔD.3#óÖrï7¼ž/ü…äÃÅÖ@òIq¦ÇØàó·Ü“ïxqOŠ7ïfìoŸlú¹Šòž7kûâßjÜ#ïÕLHŸÝâ ­º*§`¢AȾ9’·AXqëÉØr§*SA¨µ©†w Mȧ7Ìié—„«@«ç+@“Ô+´@¸Áô‰‡:ý<ú_‹ s #¼´6®CmõÖÂÌÄËkÙ!ë*õ‡í‡³?’ ¬›™ ´4R$ÈåuÞ*™1£Ë>§stI\±Ð 5¹òáÙxÔ¾-„^³¿‚ªD°™];½ØE/j4)1Î{ð˜þAOýc¶Çí&aÌZã„«(ï)YÛ‡øWãÞ@ع‚¥è”>»ÄZu‡> AáÔW¡ ¤bË£º*SA¨³I„w Mêó©„9-ýƒð>À8uü¢Ô;ËŒCä,á¨1N‹ëï°{*–ç㪌W„¡ ÊúiÄ×ÜÀ1%R§;×±ZC¿|¢nЪï"@ÈfþAË\.Ó–‡Ö¸˜…µtÙ¹â;4teÂ3Í7³=ûu˜áaÏé¨Ûô›Šæ—–~Úýs#Ͻó‡ˆ'W‡Ô¬í‡Cü«qO ÌaÓ6~S:àOhÕUA„ 5M•Uv*¶Ü© ÊjmªáH“Z›D˜“Ò/1±›JÑôS|äíáŽè)[M€9BÃœC]™ú­ÖBÂPVò›ø5¶W]KÊ›uïXˆ/Ͼ8?µØÌ&£ BÆuž¢† "žÖôZc±6ñ·²aj  ‹ÿû϶à8Å\r>öW~C;_ cÛ=,rvqˆÈÚ>8DS{áÒ €-×C—xB«®šŠ5RVv"¶<©°Ê¼ ,lÓÞ4©³I†9%ýƒð-ææ&q|R>üà/ÂaÂi7—DyÑÖžßs0´è,±t@”Ü)]àJÃ4gÕ;çBã=Ÿ<ÒüÄè€-ûàM€ÑOy‡ËåÂ]i²×}þ<»èb­ÐïšH(8L5«cÊý ¼—tå="k¿Þ!ºjÜÛÖj\aäOhÕUÓ¡^>¡Æ–'Q™„mºÃ;&u6é0'¤_êu„ç¼Ý³¹÷lŽ+‚Å™ÑÞp’ƒðŒ±Q<ÓÃYo“AHZ'AØ} Ñû¨/ø~AJ9„§¸[¯œz² „Fîü@~c·–uìÅ9 ' `ý6™ ½oj:ÈÓ¤²mK3ú"M˜Ó›ÄÂÑ6?BÿLÜ ø*MáOt WQÞ#²ö뢫Æð üÐpÃÅ.ñ„V]5jª±åITæaA›îð¤IMŸ0W¥_jö|öv°T/^Èðß ‚t÷[Ù>™’pEºC n˜uåÝûî.[ôæI —°Îš/¼0ÁׄRûEì’5&/!ð„`üÇT¶Ûò*јé“×ÒpèrÑI8-Ãq€·æ\a®ß\OD¸Šò‘µ_ï]5†á¿ Ø»ìt#׫ºj:Ô TcË­2„z›JxÒ¤Îf0w¤_jŽŒ?“>DÌ]„/J¾`Oï^²´å¥É2^Cii׺£ížÙë'•møä)ég}@¸­ {8»& Ç%ÞÙ³GêÐ1™ra;8w‰åˆÖšª­—Æ1Š’|LÈÃ2µæ&ñ8üµ¯AHd­rz˜ì‘ç¥"Axv«Á^ˆÛw&’¬´PW–Õ3¿¥BŒrê%Î9S¡¯ùþ£ÎÂVY‹Öèµµ‘M‹>SÀUÎ!"kûàMÞB‚p ¢<ÛöOxÕUAX„•÷&MlS™ BM*¼iRc“sZúâ5L}v‡ÊÜA”)o¶Q¬d_˜´Öj@x™èÒÊ{„]ÖLÂ{áÅ}Ñ©n® d/²qo|š9gï™f¤.[Ï.ïâÎËÎcGœÄÓ#‚ȈÐî“·Ê„¿GĨFâ%ÀŸV/»‡Ë=·¦yË•î‹>ûpÌÚqþ–ðÇ´ww%-©¬•!»¨= }Ä^uUa彘W[U¦‚Pc“ ï@šÔؤœ”~ÉAhÕeØȬŠU9Ⱥ˜¹jp q?”+Bl4$wí²¹ûè%€šã>†Ðo1ó57k¸!{Óíwà¼"HôY"o˜=¶uwÒÈšÅÆÅE¶vg¶Çû|¸`Bˆ6šÔ6d·3õ'¬†F“b¢tRY+?fÖ¨å¯~â ¯ºC›Šx1ïlt­Â OÅVÿôôpp•© ÔÙ$›øõ¦ª³I„9)ýÒƒ0e®l˜l9mn ·Î§—'ð. +ÏÓ}Ø4h|aa-ÛY{%ûç6B?b¾Ø÷¶¶Z'HCl<ÜH³-ºçk%2¯Õ¸o‰ìÔÉlú)Þ½­PaÙN;Q€Ícýï³[lÓ^i3À÷BÕŠ…õTcùtk3ê¼nHt÷Ë„9Ö´{ÎÇïïb=ÇŸ¦Ÿv Û–Š3½À6\ØÝ=~nµºÜïðÿæíîkeœUB*keÂ+lÅPHŸõâ ¯ºC›ÎüŸ½sãªâøÆ»Y˜uœuühâÄöÚ‰½±ã¿â$v?Û qìÄÄ8/×±Gk;‰óh‚Iíéò ”¨5M% HA¥¤@UBEjé#„„X© h…(BU *_*•;³3³³;wÇkgöÏÿ÷ÅöõÌ=wÎœsþ÷Îc÷ùËSá÷ßS>Œà“fÛÑsrKó EQ¦B£>yé­7Ã)ª}rÒœú‰BŸï½wÔÐ:ÿúåpo+m?ø…o*!ô=û'µùcDoJ»r;ò]¾ú5åC!¤;€ª¾y)¼š^V^P¤ åµgõÚö-åc]¯²Âô³é ¡ï9ùË¥èFp9zq<‰¹Ç>bíÑ·ïÿP½ úí Ê ùËtûv÷Á¯”¶_Ÿ—›^¾2!äí^ÂC+óSÆÁ3ó¨³:B8«ÑçVP£Š2½õÉKo^QªO5Íy¡Ÿ BèûðýÛ¯^Ÿ¸ðÁ?´×òÇëçÇ_yëÁ/æ5zjô77Ÿœç¥IåCËŸøëc_x—Û‘¸ö~ùúù[nÊËèà7Ô¿ÆÖ¦a«ƒ?ÿçÅKã×þðŒê&MÏÊšðifûÒSW?òýÈøöãi ¡ï‰7î0/ýXs[ñq¢[gú|ÿòÉó·^ùÆkšOýðKwnŒ_»óÆL¾¶æ_·›˜øùíojš¾òåWÅ“ù(\ÚÄÚ=&„\!Œ<3:`Qt¹Âè¢L/„F}rÒ[g†[TúÔ§9'ô“Bg1¯‡Ý·«¡¤,ªÂØò4ÿ볌ÿ >ˆ‹Æ¢¨BcÊ?¯]G`~ç¿'ÄCcRT!„±äÙ·Çÿ‹$À̾÷“ScST!„1噑Xç „†Bxuròýä,ªMNNÞ€ÀÝrñ{?… „4߈”\<xæBB! „„¦Ë·~@!„ëòø¥wá!„`]ð!„B€!„`U~{áëp„B°0Wà!„„BB!!„¬ÄåïþN€BÖ_Ã!„, Þ#„B–æÍñ·á!„`a>y>€B@øpa€(ØÓ°.NÿœÀºl&;œÀºôAX™ÂípV¢l?|ÀÂ:˜Ò'°.x„°*™‹Óá¦.ÀJdå´Á ¬ËR¼>’‘Œ'ð!¸[6ä Žú¡ö‡Lë2kù`ÔÛf•GþoéhºÇU¿{‡îµDyꛈ¨Uýk‘‡û4µ—¨ÒÔ±ë(Ì£¹š?»vf8ÞíKµ›l=’!ؽç–oeõd‰™ï;”fw¥/k¯ôÐ|Ã+)Z,x¼ +ì1³Ïñǧiäx«]X?Ôé×Ý°Äý…Ùy`aÅ0³õ¥%@º´Ù6éwgƒ×îÈ_¶+Šä˜K¡DŽÐH†ùã 5Sø§3ÑŽ^—§ÔQ›eNŸG½”cŽ–Î! £:ùfãUÏL³¸ÍRF®±ÍT§5vž<ÃváNÙ±Bg¡ªŠ»Ç ¶2‰‡(6BXV¤tšò@è´e5…s`™kä&WKa"‚=fö9áØâ™otËmM}³» kdvWHE1Ìl}iááJ{`ÿöÂ)“#Z!Œl˜7Îp3I"„bºónJG3”iδ›ÌÂ!"ûñ9LÀ\׊¢]…#:©ü5Ÿè쌅pZcgÔ¯ ÛÒ½lPùsê\DÇå6ç.93X(n¸•YfKãV…y¦u[ &V÷¶–T®’h¢ r¬ôsl‡ºÆíbâ4$ ØcfŸãŽ-žyÑcMÛÖ0'e|ÚbÚUÒ•äì©9‘è!„TÃÌÖ—­VÔÖö²ß¶°8kÝØÌK}tÖ,"y#Ì sÆ©33R[[;–p!œ#«â2iiÈD‡Š’K1?²…^Á^ÎÈØÄâ³Ê©ð¿:Dö%B ¥Y…¶°ÀÖØ#,DjTaoOyÁ Ñéý‘¶2 ÖwG ‚¦©ÚÏc^_¯™;­si„s`D«r¥K),¯vÄ?ÚcfŸãŽ-NSŸ@®b©°jRa-p'ûm½lr Õ”%paÅ0³õ¥E+„¹‹4õL}Jå\7ä8즱ÊÈ‹•H†9ãäšIK´®dnÎY¨UÅ­I%„mDeA\À©jÊÐQ¢ê ²ËK÷\¦í¶¡sHZã+a›ÉÖØ¿®pÐzÉËÃl>H¬‚V¢=¶2"]´›’,›V~]ÈŽ"x9$3Ÿªr¬0Cݱ…h0þe%Vö9áØ♯UWË,ÄS¬%„Nò'ùÓ¤ë}E{&ÊC¡Å0³õ¥…#„¬fž 4%íÍü©’ÙBþ’ƒ42¬'ßL¢…°`1Ñæ±’SÚGN’A›‰ş圭`S ÕÝîl:²Ižß!ÌÜ`'²çÃö¢zYšmƒò ƒ­b‡•EDZ^„­L£•„ó£&Ws2ÚµÞZFB‡š_œÛA”¡¬‰ºãî1³ÏñÇÏ|Q¯ÜÆæ³'×YÓä»Yže‡³âï]E1Ìl}iáaÑ–@SÖbr/‰:9NÉ F†õãä›I´²•”ðÅÐQºä{Î; õu£J¤’׶°#Ûc¯j/õÏêw*•V©ìEýÒÖÊ=ֵ܎ÄË@Ÿ©rë붆 !›¤¸‹CØ+_™î'Z¦=›†PšBM¶­DÍꙑç} ©aýj[²–*‡'»S½cf4öðýÓ(Õv8›µìÓû²X¼ÙÓ3'¶šk]lp‡Ä‹AU…íÆÙʼLrÓÃ1ˆš~ø «SL›­šè‘Eªr,«§Zú]‰˜Ùçx„c‹g~7Ñò@S™›k}p´©BèôÅNÅg Ö.Š÷ã]ºŠb”ٜҢÂ%~ò(µl-Ñ}Ñ&IF¤§G ëÇÉ7“h!Ü~ëíì–ÀñfR uDÂÍÞ@Sš³@~И^œèV·Þ&&úŽlûûå¦ô­ö»É,Ü‘cDìæ“У=D±2µ˜cp1©–XE®ÀÔºS ¥­P…pÓâ@ÓªÏÛ¦»~&„]R[ /lS–gÙ4a[AÔn žóT›ô–ǹ°Ý8[™F—8ÛÒ²¬b®¹ofd–oV~=Œ J­. ¡ñµ%øŽ˜Éöù‰lKmª%ÊPšêpitÆÄä=´‡&ë+ÆYÃ*ŠQfsJ‹^K4ÓÖâȳîð€—¢.-ô6¬@3 ÂA{‡Gû¶¦ìí-Glm~PÂl™»w'“-Ú=H®ô3ÛÜÊÅ/¦§«Îlh+bÝ峆òjvˆyÕչ܎ ëĉNs˶{wVPWºÈŸn$l•á^¹/ƒÜ½úQÖQ‹l¶<Ù™=Ê †¢íæεLL==ŠzȾ{Ãà*¶^d3;gÿ4ªj•¦‡œ ŽÃµbA‹ „ò  v¢Q›³Ñk·§6DÜÊ4:˜ WI9ìÞ£«nóÙ*P^Y¯&ÏQ_uV-°9‘CûAD¶lr²ÄÈï­,;˜C4¶Âf)L¾©„P‘³™ ¡8#n)ŸtÅ(³9¥E/„Ê¥®€€­Ž29ÎiôS‡¡a£ ¤5“`!¡·ç˜lIS€ÊneQœÊ¶ÍsÖL~j…a—#pu˜Í÷½ÒQ–Ÿ–Tï³q::É’’ªåzˆT…ð°@þ9C9À$ËM§K¸‰$ߙ閞“i”Uý¬|_±—Ù–.^g®%ªÊ’…¼GÅõ<+W­Æcçì/&†·¤oødD—j¶SsË™éÿì]ûW¹Û.‡N mi-¯¶€ –—Ø‚ (¯‚oÀ×⪺¬ÊÓ,®çäô/ÿ&“d&¹3-:Ó;÷89™Ü$Mî'÷æÞ„[8Â驤—ÍjÙF½âvd¡­—ÌÎzX·Ù’ 4صñÇøw¹µêå/ÌÌKW4Ä­¥Ýa©¾ÈV Ìüý @H6R¾¶"BãÎD‹/©þkŠ‹E¡ºÍÑ€Es§iÿ,›I =—ð îäÕPï?³ÝìaNñ Ê`H¦{v¡%z&øÄÍB¥QL †"Ü I´½ÂõìéŸ~Dü‡W‹&ë´Dâ|Š²bT˜vHJñÙš\á b†ÌüI”Å-„9zCLœû^[öúÿ^¹j—->rù²Z(«øP È(8q8WÂË`ä–mD/‡÷‹ÑSÌ®Ë ¨ˆê—ôVV,‚šL1–çÞº¶êå/̈ /}Ñþ.»„Ê'¤ú" „µ#.ÏòMAn{ü¯Ë@hÜÙ€h1á¨z#-IúRÝæ¸m–ŸD!KÆfHÏÆe ÄHÚð¾…ÿõ¢ëlH,½{R½Ì¸B7=Ö_Ò‚è>ÝÌL€†ž"ÔÊncs«#1 „D;„ Ý¢g2?œ5b„š®Ç)˜ ¦èMð4ýs ¨þÏzÅ€›­þAhײïÐ÷¸7kU/Û4–‰“Ô†: ì@%âã⧸©È6\ËNË7S²·ƒr[)ûLõœŽÐt± Mö™^//§]ZõNòfÄŒ—®èãb =YzL"ñ =R]Ѻ¸T;{„ÀÎD‹o YG:JUµ9²X6[­›J =—ð!†pWµ³Dª]!U·û®êש/'±°¾•6&@Cÿ<0åàL[$ŸÁküC´b=lç©^t QGÑS„[ó¡’j¦‡_–3@1Œü „w…u±ê;ô}SÅøqÙ’ß¾m¯˜èìE~<†(MutÈøŸ0¯-c-ûŽÜë\¥%ŽE]v/Ÿ"Vô|ì^ë…Ç) MÖ¹“ØŸ—íÊÝpvr¿8#f¼Ê‹6 ȧL\Ç„šêK'ô€ð‡5BãΆD‹ÿRqI€¾ª6Ç€µè°dl&ôl\B’ª2:bhÒ‚r®ÓóB¦–Í«ÇŠ!Ô øÊÏîÜÊèÀhhTø-Tn$ÿ]›ÑtwFèh[ZÁ3ö$&=@SÝù[Vüo§Yü|¡¼¢0˜Ô-ÝF5 ØGsß™öú¾©b>’²e»Æ¿•‡"¨S)äm}íµœ [¸ù¨½M6CóSõHDcW ´Øsü›Ž»¸ôá/Έ5/^4R»¢×»•g=3}h¨#Ó¨qgƒ¢E„kå¦Ñ™ª6G“ê ‘%cK $°qÉ‘ òTë‹'h°@HU¦æUØç@¸ý]fÆ·wÊÀh¨Ï0­mJ^f@ pÿ#†ph‘|¿¤«qŒ‚ ¢Ô-ðŸvU¹Ÿ½ËO*"ÝU€pZ?HÓ¾CßãßëÃY–í§ ÌØRJðŸ 3¬.D}-'(&[¾ññ#ŠÕWphñ«KÂ3 ”¤&(žø:E0špéBM£åÓGÖ¿q•yÀÅu™hœª¡¢@¼G L?ÄìNï ô»[yBR“¾CßWþ½t˶xc±wùy†Ø!ˆ[liÍ.­«å¥lNî9@¨ŸŒñïShQhOcKËdå­ƒWµ#ûù—ÍH%^¬h^Ë—+EK(“êˆjGxñÂ'ªB¶³MDK9~<¹Vÿ «; å2È’±µÒظ „I}ï„2Ss¢E³‰f‹³B²ß¬KB÷ &@C½†—!Ú7œæ"Ð’ê­4HƒÉ( IDAT=ëšõý¿OôÈU$3÷„„6¸×þ‰oÑ‘hM ŽŒPß¡ïÏ „œÞPŸœG‚é`Ûh££zîØDií(¬æ)ÆêéAÿYa3”‘éÀb Á2®ý‚wùŒÀ¼ EI1×_g9Ö¼€úBÃζ-×…JW Eáͪp!j-Ó ±q÷0‚‹¶¾ý’2ê>Á¹(Šµ¥j€Ð¸L‘Op–Ñ7ôXÈZ÷ÛÍÿ6yáµ áí…yí¬‘%€aÃ:Ü d: zwâá|çþ,‹¢ûG„ê«|cHС¾Cߟc"RÄéBlL!¸–]”÷•D‡)¢îàŸc4&Y¡a`ï#²êÔéBŽi'ùëfâÝd1¯Êb#9#ÕÙ „ÑöGÐ…kæ@ìlP´è°Ö®(nê4“Í‹`¢‚iÅ”1ÐO˜Û@8ˆ;Ь9©d°BØšV@þ /Ûbq—@8Ú–âðòŠ>˜ Ýâ81.½P3Ë`ýÏWþvì'„rü7Ø q'ƹZE… Íî ¢¿y~µ‡ð¯/#cÈÁöEYó¾Cߟ ?æÂsÇ}ôB9Ó<‘qFàZvÑÿŠd4íúо–*ÁŽÚ!0°+Â>É»pGè ÃŒ¼€"üÙ± 6{w„?!Ëè¡»I·ÍØÙ€h1!±ø±Ç bá%s‹Í1Ž*ä+¶b ôfãú3L{ä&îË£dÝ’h<{g;ÚÍâ-€°Ysta¶ÐfÔŠµ«!ø,QȨ@HBÜË=Ú7Ãjìâ‰Ìd9`Dº‡JËB”K :>æW·‰œê\3ØÅTW „:ÚÆ/Xöúþla•˜ëÄÏVƒÕÌ.º2ŠÓlMµl¢MɾëW½m ûa“Ô|eÎ2Æ‘13˘OÍ«P;rŽ¿qF^@ÑpI-J·)NÏž#rû&3 „v6 ZŒ@ø^Ýžq}†5“Í1oñî„$U` ôfã:*F­È7â’xHÌI>zš]¬!"Å @HŸós±’}ô-BíY“†¾á¢En§ ñ¤Û$˜c¯¬s§ä˜Oz±ñ¬.b™Ñ¦÷EÀÊõ Êe´#†?¨º–>àÃ’ÄßÁa„h—t¬á˜­‹¾ß«¿W,¨´lïàuspVõêÀèÚG ¸£‹_ϵì"¼DÊ9äiÄΰ¹ÄWó÷Ý †;”R²0íãSO¨ö‡l§øC3ðŠ^âÝ <áVœDh&+Õyóž¯ÄãÃ&;-F L´b\# o/¨žŒ…6ͱªsn4J>ˆ±E?A6îá GînkRrNR'ø4ɉõìö,Éw OYaæ ©=’_Ã:UI iÄ • -€ ‘¸w4±<{ˆîf $žÓe«N¹œ™jþBк+Òè‹.ÅLƇD5ª“ŒAuÏ!ŒºGfß îÛü9”;šíÅÝ™“¬û|¯þ^ ³˜ZqÙ%ØÿÇì^a‡ÿ:õnö] #xƒi-›(:GžøXZÚÅúJÈ>? |B@_ÛUš2B``Qü[—>/_jÆšÙ¬ýjwŠ?4#/ ¨HR‡¾Ïþ‘Ò6HÝÐÕõsÞÁ7>ºÞ‡2 ä´³¢Å„ÒŒPa~iµ¤1Õ6ÁÍQ²”g>£ä[ôdã>JÒ?_Ô aÿ7´'^ò²ë̼eå,Sü¬¶ÀTÝ>Å’ 6$ÅFì(™D ìHé³ÎÜØ”HŸeܤþxFÀJsîÌ`Ìò«ýØwÎ(À:Üf6r´¨ŸÆ¢ïÆïÏ„RÏuö}NÓtW¦YYÿ¦E-›¨qŠnjǾVCåž1m&@ ìw5MA׿n,v‡øƒ3ðŠwyQä–äÑS,¹ük BpgE‹¥‡~ViaPß&´92²¢ ÉgdlÕOˆÍyB)úúeJ´O=QæíQÁ/Ïìn¥¥Ê@ˆÿë+ä“.5Ö4q»5˜"zòBÁœî»Ïí<>0ŽuÝ©øj2ð7ÑÒø´áÿ /„)L–燽¶JÉ©ã%>᥆ÅÖ o"®ÙÅ,ú®ÿþŒ@(%ÞOøäT×=Q‹þÖr"§&¾m[Ö²‹V’­@÷Ë«v¶¨Á­$#Á@$¹çÖjw„¿ÉŒ¼€¢Ë½x7Ì4Ç·=4û êAþ_s`0‚;Û(ZŒ@(5\ê'Â÷2ܦ~uf f*¡‘±u?lÎ^ JŸŸ® Øè|â‘GýÝýUÐð\J>/,ÝDÃÞ$xäÑ9¡ŽðWoj„NH>/*¥š¼IðÈ£sCëûÞÔ‘|^P*N‡¯z³à‘GÕ:#ù< ¼¨´tÙ›<òè‚áh>ÿú|J¾ý|>â¡Gyä‘GÎ!ü:_tƒºZ{@è‘Gyô“ôçº7þŸ½3ëjbËâøZýÐýÚkõ[¿õc¯þýÞß¡ŸúCô[í›H $ 2DZ†€ADQAp@Q‘Á´"¢zÕëtpj¥O¥†œªÚu rëÿ{1œ$‡:ÿ½÷ùŸS@pù}èß@pÁs„Í?a„‚Ì_þõˆ@øþ+AöÁßý".xŽŒ*úó!€óWH ä@ Qp#Ô€FùëZƒ0B! ¸ôR"Àa„€àÒ#„ÂAf"¼`„0B@€Ù€0B!!ŒŒFF#‰— ŒF.éPD€ÂÁÏÂa„€@ƒ¿,#„MEψ#„€ÂÀa„`„0B@h½ `„0B@pÙ} `„0B@pÁs„0B!F`„0B@P™)o€0B! ÀÔ@á4ÂX ö ˜FxêaGßpýÊô™k…3«Kwòþ좛…í¹œ(©z¿â4í“~|´XU_Ÿz×kþ¸œXÆ»4{<IÍõ–@ú<ºß ÷5|HªG´=\ê1º ÜéŒÄÇ&ŸÄ”M»*¨K&ì…QÄGjføÞ#*—¾79hé‡ã‘ú‘«ËlF{Ó—+² ™œ:Ÿ«O.}ûÌ5-¨ÊÜÑtÌø…ébáòi{ðõO ´Ûz0N]?Æóê9—>%)fu‹æè㵊¹ì™%Sýó½^>­CÖ¡G?ÿ#t¨Çé2Zm6ìU4í¦ E˜°F^jïð™#ºF0B 31’!4çIQ.}™"ó¡¢O.ýûTO ªùÁÕ´GŒ°ViõÈüÁ¨~4Óo ÁÃô£Œ0¯žsá÷³šWbØ#‰²É0‘±×-äè1^­0¿éø¸—ë§I$š´ºâ3¢íàQÓ¥‹èµÙToÆiÚMAE”aß‘"ŒÔÞá³1j¤8nˆ†Ú$újOÓá —¿xÒ—)2¯*úäPÕg^EÀ”9[ùÅ6ÂïDñ´sÊo/7Î¥"ñ•_¿Çì°Œkuû´DR£º S‡Ö‡Ë/˜oÖ,Í–Ç#Çg{‹¬šÙŽô¦Dª~xì×¥ §~"ªîvaïÙÁèðØ´ùmgÏšýÛ;£á–ÆÅÃ9°[?ç=P–Ù¨´å¿NtßõáãÆY«dœR¥2w<‘– 'ì {DÛ£§Ë¢KÆ«Ö0Åkø¦]”QDö)ÂIí>£™jš‡óÁ-&BÔ"™ÝEçù]oú2uç1BUŸ\ªú̧˜2ç+¿ØFxÞ}QðS›q·ÌÌ}+­:7l#ìO™Mé˜yÏR}[æ½£óö§û]våíH»}'d65$e#|RM!÷ „µqëÛ|p£Ñ®ÙÛ90z)¦I1KÙÿ³õ2Ñ ²(Ñ—mT2ëH±@»Ùo½|.$áG´Íiߥ§ËS¢Cý5¢IŸ¦ÝÔ«ˆ"ì;S„“šQ„‰Ñ¦¾ƒüÚ~5±¯W0Â÷Dw%«q¬Õ¸ôe²Ìc„ª>¹Tõ™GpeÎW~‘0w_C²Þ¸+êÀ»öY±!Žœ2°ª“†_->Ö¯*6S¸áÛù0ÑJÌôÓ¾oµk³ÃB7Ñп$d;½´ÔÄvT1©/ Þµëw"ÍDzFø2L¡‹®ãHèß>[Û¼NÔ¢;¡Ô³M‹øí‹í£WÇćÛsá‰ý §~±ÞtŸËn§¾}×*GÇ#‘ÁÑRºŸïÑI~DÛ£§K¥õÈëg­§ºD\îù4MPSEØw¦'5£#±Èk6VšÕ‹¸gFø³´Þÿ…¨Ã5/zÒW•e–ªúäP¹9‹€+s¾ò‹l„bÐýÜ…meÖ³Ïæ­3<ÅgO§ ½BÔ¨ÛÒ²iÊX“¤2cê_7oa²¯ä1½É̉ç&á`—m#<§Ðe×a¼ßžÊlPÅ>>sô,Ÿ†žÌlccwD´jÔFh ŬVº{þ²ã»´8 ËpEÏ¿LE:{ó¿’™F6C–¶òˆv€¤«ËKkšî÷k*– –"þaß¡"¬ÔŒ"Þ]•æò#•ðÀ a™}?Œ¦Ý“®)ûÎZŠ,³ŒPÕ'›€ªÌÍYl™ó•_d#ü,†»aN_˜4[GÌÓÄÂßdnö©h$ õÎ[°3D/¬Ó<¡„lW\GljºmŸ´ŒpS|òg×aÔˆ¯XOw=a0¦ˆùqê"D¶h„b§Ýo¾Ö®iµ?t–hÕz=Dô!Lñ[³CDñå™E®U“~–GT˜iŸ×e`Ú|Tü©\î¦" j+âö¡KjFOŒõSû_“3Ëß„$50AÃWR¡ú ‰R1„}}NÓ­»Î/2éëŸe–ªúäпÏ|Œ)s¾ò‹l„KÄÿß%Ÿˆ¤]YÊ4Bó‰Õ.ûtq·QÄ?Û÷&Î rYvÅtÔDTe>Ð{|>3ŒPßzd›÷[’g¿b°òÒ9{‘#zآƄ/¯ÆÌ¢Ó«ÈúL«8¢SÖ"Â4¤ßdµÑ)v¶¥ña·ŠMx§4Ã;FT˜iŸÕåhO Ým¯½"–%æ~ÔÓTA³Šø†½0Fè’šQÄ{DÃÆùÁGq@5`ÌÜgº4†Þlo/4mÂuöžM_ÿ,³PÙ'—€Š>ó1B¦ÌùÊ/²^'æÚ‡¤ÝYÝ0…ŽFhîíæìýµøþU}DB·WK²õXvÅttÒód¦°¯©7DežÃX“6òÉjŠThêÇ'*Sf¼·`„ú |t`*Y×´H1}Íd×¢tZN$뮓Êu÷ÝV{”¤X*F/8V×Òˆ 3ísºô6R´-SiwEõÔñMETVÄ/ì…1B§ÔŒ"Ì¥7­³Úb"#,a#¼cû’×´¸ôõϲ¬*ûdPÕg>FÈ”9_ùE6B±ÃfCXÓ¦ýCÊXÜ #Ü°Oû˜ËŠ)õÌ=¤áùÑ.#d:JH±°›þ÷ïxέºÏyøáÑGÇFgõ›Q·l„º¯„_§}±¨Ó<›áx7äJ¡”ÒãDoW#*Ì´ÏèR3HÔf´¼ÿÀ7CP§">a/Œ:¤f†ï#ƒâ¨Þj ЧFß9OcŽ9ßõ¤¯–IF¨îÓ“€Ê>ó1B¦ÌùÊ/²>B^`ÚGäæ[Dï #ì·ð¢ÓoÏ…¨¬<¼æ0B¦£Ùì3šY#$ŠK!’¾à Ÿ7‰²ªìg¶n„Ú ãÒmã²ÖBo¬Æ D-uòÙ~Äæ¦"öM+DåŽØ:GT˜iŸÑå³t»äuã"0ÓTAÝŠ°a/Œ:¥f†ï#ë,UØç&¶a`o–uÞØâþC'îôõÍ2ÙsôéN@eŸù!Sæ|åû9Â>÷ölê…~“ìÿÙ»Ÿß(Î;Žã­hÕ‹‘pÀ¥Xê¢J•*µRU¥œP%*U>ô Üøà¶Ov“ý‘µ½‹7^p°©1 1Å` ¦6ìiCbjB $7?hÆ-…*m:³»3;;óÝñÚ^¯?ï× Föãï<3Ÿ™Ùyž1‚¥ð¬l·R¯ç‚ðh© 4Îm/vç²0öš3…†>ƒ°ë˜R)÷Mhãþ{Ê!#áÁ\8ÿðÜßnÌ+™cGnN>‹š7 ìmTêfá'†ã-ãFj×ü^ôeJ© Å]«x*sØê2ã±q-¨BqqQõ ê­ˆ´Ù+„Å¥V¿Ô6²ÄìÛ/¡®AøÔñ¤›ói‰Ý·T/+ ÂÙÚtu@ß6Ë Ba7—÷ü¥Â¥¦ÝaF¥¦”ºç¼ÍóάAhVêÙûæÈöá„#®„†Þ–nNf·•{î»ËæO^7¶YÛ©{ÙàÛ;¿ tœºÛ’õ =ÿÔq÷îƒ ;«–ÿ´(µÏõ$dÿÂÓ‹Õê2æšÎnaQÕ *UDØì• ÂâR «/~¢xá"rP©ÏÐ:¿qì"‡Ý“iy»o‰^V„þmz: o›åT…Ý\Þó—:O*5x×ñÿÁì4¨Ž‡‹WzWÊ BÓ­PîKAÇÃ2ŽÙ._Úê®5Žð£&Ï[Ž8Ÿþ£DN'DÖ÷)‘ùa|ãüÅzjã£0­E²ÙqK¡¿Æ÷¡sÆá í:}s­QeûB]ö+uÎîè-*U» ÞŠˆ›½2Aè*µ°úÂ'ú,rÞZ ufZT¯£ =u…–»ûʽÌ„~m зÍr‚PØÍå=©ƒ0a\¥=LØÿvŸ2žMm{&ž¿çÇ]úaº½Ãš¾õaîƧWBCŽ[Ó²Ãò3Ët§ųÀ^Uê¾u@9¨ÂÝb~X¸Â4¿ò<=Ç |ãQËTþŸb…¯qo)Õîìv½…ÇáÏú¿¤&Ž*èùÂÕµF•9ì uù—ãïœÌutaQ• ê©H‰Í^™ t•ZX}áý¯0¬ÈÜÞ#5Bó›¡ü0;s´ÄÑYº¯ØËÜAèצÐ}Û,'…Ý\Þókâ5L=ÖUvQói·Ñ”=’ýÚp~ü Oî+<è²7wEØ™O,4d¾ðâª}¾ÐµƒÐ|Mq¯oíµæL $Îä/>;݃ÂÏþ¸q%Ÿ»;—+Âã*xÂÚE ;ãzKƒqqÚë%™;µþ¶œÎiâ¼™½w¢Tõ¼uùKо/ŸRjB^TÝ‚ ‘7{e‚ÐUjiõ½ŸèÊ }G¤/l¿#€ Ô7/)µ/÷¯÷lhB÷•z™7}Ú: o›å¡´›‹{þ’¡ya­šŸš±ÑzËœh®ÇʺpvÔàuãâxf– 4΀›žYç¹ÙÙGO+ÙS¢!c[„³¯‰x+’kÈštû*¼ Ã>c~f¶gNÝÝ”ý!»eÇ äæ…m5WE=pa|ddäîlÛì\þ5‘‰¤óq7]ôŒ™<`ŽÖív­ZkZïHc2=kT™Ã¾Pãt$œ}ËXfZ©óJ,ªfA¥ŠÈ›½2Aè.µwõ¥Od RÙîÿÚq.-Z¿˜·Ù8¡2~'›ìQ ‡GFúJt_a'ó¡_›BÚ,ë j·)ìæâž¿ôA˜ÈŽlnÿCvV¹Or#ýãÆgT7>Nö§©{Y‚0jά}#=1cœ5³/ö}Ñ8•x´wHlÈ@¡Æ'“æÝïFAh–=R¼ÍN'oµËßµ[¶< )uÿåÃÿH?2§,ÈòAتrs¡ún3óJ5|3™6zHèªãŒKÏûõÌ(Oìvòv‡ñ×®×ôþsÖƱM—Z£Êö½uɘçSýï'oÆìM.,ªfA¥ŠÈ›½2Aè.µwõÅOdNg?ÞÕõ®Ñ‹÷2ëv> —Û7úäI²<2_<7µ}`ô„¶™®7ƒ…ï¬)„î+ídž ômÓÛ…6Ë:¨ÚmJ»¹´ç/}_Ü·Ï¥ÂV³–ýñ­ÀlAÈ|h·ŸFt û«bCxº%¿¨'û  „£1÷·Eqk€¢JYÏ3Ø-Û÷¶­yaÓÆñåOs ÂÀÑüË¥Toár4òl˜Îˆµwk{÷é/>?n/¹F•9ì{ëòâeëo§ô¢*T¬ˆ´Ù+So©=«/~¢ÂOM_!çêZäÕe·NWÃù1”pŒÐ}¥Ì„~m ÐÛæƒPÚÍ…Eµ„Ç_]è¥"ÓŸ:ï9žþë¡pèüå^Ìë÷ÔèŸÚR¡ûg&¬Yó[?nnJM‰ ™×ÞC‡Âƒ‘ü¥yá õ#Ƶ©ë\棙þX¨ãF—]&GËÖ5á~ãoÇÚÓO}ÁÜ‹›ç„ÖKãÆŸ8sÊq¦¸G©A÷#R_ï uŒ_ªõ‰FSbJkT™ë¡._¿Ý<¿oÄQÕ *WDØì•©ˆTj×êËŸ(ð`¬9•{X›‡Ä2\§W^¾`( #u_a'ó¡_›Rt·9× ”vsÂeì¢u4å š<¨„‹k?3U +„‹qP%Õç‡Ø „5}P%SæNèŸì€â=“¡ A¸8U‚pQu}Í>èàh™Ã't ÂôÄÄWµyP}211ÑKÀBõ„¾A¨¯Tª-ÇrN„°0£¡; $hì›Ô`ù!!A  BAH@i_Þ£!A@_׃½ $è‹q„!A@kÌ,C„´=r–"„!€ $!A  B:9ð5  BúÚ›¢!A@_Œ#$ B!B‚€®®E^¥ᬾ Àsä[@)õk6S€¾Ô·)@_¿!:[W·‹"4Ö¸“:ÙÚH úZÜMúb!@kÛB€ÎÖïØBlÜN çàŠM /ÆBtµzí*ŠÐØJè¤~ÍfŠÐWÃ':c!Êñ=X®~\÷+Š°üT<Ï‚@rkÀ­Q(mk#5èkep7Eè‹q„­m#:[¿c Et²q;5hœƒ+6Q€¾G ÐÕ굫(@c( “ú5›)@_ ŸèŒq„­­«ÛEkÜI lm¤}­ î¦}1Ž µm!@gëwl¡€N6n§spÅ&ŠÐã!ºZ½vEhl%tR¿f3Eè«á1Ž µuu»(@c;© “­Ô ¯•ÁÝ /Æ–…Ÿþú…ŸÌç÷¶„€Ç)ðœÙðû_|_©ºßý¶~οº~Çê‡yú‘²Õ}ç—?¡a¾ ý@©†…}”Ÿ)—ÿ³wî_M#mm—cŠXh åVÒ  (P.äªÑå*((ÂZxñ†âŠ—EtÏyNÿòw.ÉdšNÒ”í.=e¾?xÂ$yò̘Ìgž¹uŠ¦7§§To¦‡;p¡p÷A‘+æñ#þäSŽqJó?Êj+À ùRII]Hm:Œÿ¯Ù²<¥f&áõutîØÇÏÜ4ÿÚØú|‰õÂê©žêZQ›=]­ª–˜éuNrïço–:=&²©×ü5B"µ»Ò@¸ Ü3\è$-n@¸Ë§\“ ”’º4m´¨üçïO÷įz‘ô{iYäÖmŠ"9&#ÛF-¾·¡ƒÍPÚ(û…¸}R)~ AhµY! Ô&¨ÞE5ìÎíK¡ÚÀ+J’ƒ(VMD‡Bæ õ€;ú¯s)„RR—£¾•(ÓýöJÊc?*ƒóQT3â+VÁarýÑ1pmÝõ¹„££/m&Ÿ qbv;'HÓÆ ‰ IDAT*ÉÏa®>GÍœD\dóxttôìòAØhċ¡ * k*´ö¼ƒòPÍë= B)©ËÐæ„RŸÿឥ‡UV*‘IDŠ$:XVmzÂîù9þBÙ([=F1ÃpÛ‹Ú\!Wás›vIñëCÎmmÖUQ"ך* „?P#'ÿ | œÈë]_F‚PJê¿®ï?mƒoúÜqÐ3Weƒˆñý~$)Ô>v&䘦‡½>˜ŠˆAè`3ŽøÙOl’.â'Vr=ö6+ „Ê;BWÑ—P>^«ãúFã“ÐU+A(%õŸêκŠÈûyÓ…¡ê[G8ð˜…[!ÐVxA'¨+ ={“1ýÄÀ²„67‚F¤ °e“t?±¾9¼æQ';y:lÞòª“ŸÂìÆ„YiÔ¼C³˜ïo"Û½®@8a| Æù©•ý™ZMz÷‰›c}|wȧNM,ãNhc„vœdãã¤ê v½ @8Ëõn v Bk&ÄYµ:"A(%å^±åo9p£èpäÊ°-Zج— {êR¿šg¹fൄN6ÃÏR=wtB ’.৚`H±·Yi l4Js3Ã^‡ÌéI÷õ˯Gõ®üOŒ¡×l¨û˜pI ¯«‰é3›|/ÂUcvYÓÃÏÆ÷TŸÍá)ëuÉ,‚°—ëí°0¢¬:"A(%åVƒ SàZ#óE–Ù‡Zë««xzX#©§_ŸcI„l!厵.5@X̦®ÅÂŽÁEÛ¾B76oxX¨Øf…°ô˜zI8Û^˜íįê‚γ`-øÇÎÓ>0°Bî«é… 41CãúÂGt•÷H¿±!êî6-¢‡cÖìŽv¢ˆAˆR=B±i„š*¨KE“\úIô7K¡ÍŠáiÄ‹!ò²¥Þ‘H6ö1Iyð·ÊNQl”!7\hÅSì~Q f:ú·Œ`ߏD‘Z2;ˆ0ï]€P4Fø=Ü7¼ý‚"L<5XiGz£˜c„¨e”Èâƒ;ß­©§Ùrô?ØÃ@(È„ «G$¥¤\èÔ\:_Š®Ô2ûklò‹¢ôU®©Q€W ÂUn6 Š ,a›85µš@mþ~ç¤üĪQ!×îø˜ ¡·‘ªîŒô@Ð&믾„'â8Ñy6EkùÁõ:«‚_ÆNëth3 ׇ^õnýÆ2ñ+žðÓŽûFœ™Âü „Idö©~K”¼ d­¡Î³¥©Âß¾ÐBn „wØk4#a„‚L²*rD‚PJª¨,KçKÑZf? ×ŸX'ßóÏùÉl„¨)ïé3ë#èÐÙ&9*’äÞOE,ÒΩ«°eÒû$¹­ûþªqÉW}† ¢Ä¢ž4D‹…DfK€Ð5EêÑé¡ü[Ø ·ÍqÆAø ¾ŸÒ1¾M€ýëÏ­Ý › DQûsz"tlm' D¾Ñ¾Ñ˜û£ƒP AVŽHJIÕ}øGJ_‘bg­xT!hy'C˜Ìæ0†ÂtŒvãbº.¡£M¢ot ÇbÌ1ɵŸ4œÐŽœSQ œø}¿ðŠ¶!}Õc­=À?‚yNû!‰2”]+FRÅçôF=¾ú›ÑË… T3œêÄ \äñl¼q²’Ô2Žk€oº›ÊŠrNA8ªÇ’{:™dUàˆ¡”Ô%0ܲX]ÅtÀÕ9mÖA¿sé†&•WxÊÂûl¤½¼ˆR:4Ò3,p<Ê»qžµú… t3F˜¶|×IlþF B…ÌQõoÍÞ‹‹A¸¤¿GÏa2Î@(È„ «G$¥¤Šë_é½UmË'Öó»§øs(˜W, Ä7è…Ô„œpŒÐÉ&§§Q©¢I.üd”{Yä1•3Y&ŽÚi9s>IÛLÐ|û Þ2Aˆ‘àvÝ9 g;Ì‚cx ¹q‰Á§)„lc¥®AXoù2–H÷Ò„‡ëSÓ&gÞŠ@¨Ì=ûÐ ë ¡ ‚¬ ‘ ”’r£a²LÕ­#œ`ãS½u|­¨Aâ°„Ê.ùÚQ4QD t°™§ÂYž¢‰Ÿ®l>Ð"ESA³F“k¨)ñPÿ£™éÔîìΖ+Þ¥gx†Do•„Èèù#N7HlfBEùÑ=FYèiðé}Áb×fq&Y8"A(%åNe_>Ñø«ºJè'7â!7méˆvõDs¨b«¯7z‹³Ã:ŸÆq¥x¡ƒÍü˜½p¬oC8üçÆæta÷_ÍJZ>Ñ6‚š\tˆµÆƒJúÑFV  9 pâ>È[$Àâzëè¬å!zö'Ë5?mAˆÚ[ÇÛt$ ÜÏáUÝÇT¡ ‚¬ ‘ ”’r­ò.¨W6Ž««x%Þqõ4¿Ó§u”Õ:.·Ç& Z@è`)Ìâ¶c²¢ ©?©j-‹éE6+jáK0ø±ˆ 2+wŽsK8¿²É2lQµøÞ:ƒ—K>à盞’Wmì~ÿµ/Úk4åçéf‚9®fC^:¯Õœ,cÍ„ «G$¥¤JP9·X«:efÿæx~[_ Âpw¾IB›Ê› ŸÍþk§6I%ùI£*5âø˜J!ÞrÈÖ¢OÌé'@têk!ûÍ8¸ÍOÏ®<1¬½ÒW–„ËgF±6ƒÏFzÌ­âL<#K5cØ]Kÿ©Ân€áes…H³8‚¬ ‘ ”’*MeÛt»ú4Æ~Ô(´Ûèß#< Ìé‰}ð×Aèdó6WÒÁ;ARé~¦¾:?¦â@¸ïCÕ>„šZЛø‡„Òðˆ-¨ßÓc©`qVAakñ“Qj%ÜÊ6[Gaz&NºªI·ùM3s6á`&ºôgp ê-™dUàˆ¡”T©*ÓÏ0UŸÞ0È5Ùî†ÆM– BŽnôˆçqZ:Äl¾UYæ ‡.+$•îç<×agk³ÂöÅ?xœ?7˜žÙ]_$„=ûþäǺAXžÇNûºüJ¸{««¦.Ÿû.ý‡xPžfô|šVo¼p1ù{yoNMÞLǃ¥×’ºAx5›û°„u¢Î¡ÖÙAÅøõcµ187zë[è.-=kòmzí»0{#½šZYÕ³îÉk‚°|÷ªó£s§vG¯%¶Ù÷·ô÷Ë廊g—“´Îª¨ùÄÆû™îÏÇkÿvm¶ßg˜Þ‰å—…ýÍx-M\]™»Y'“ì£JÅÉé¬uàŸÙiüêÊ@}ëA¸Îhý ìÿ_qå/teO„û'²UƒËíŽTnª$ÉÂ/Õ G“úAØ]¬öAõ3LµQïPkwDÂ_´nšýã¾UôÙû0o’\ËÊÇ6ÂäЫÙÿ°]ÿAƒ5A¸Ñ6_¬¾$d(›¯Y»ªNn¸Ÿ#…õW§LÛaå‘`yè´8=×UèøùÔbòniù¦b½ Lxó×ÂÒ›{“éÕÖ¯þ=×Y8ûàvv'²ÑA˜$Ço¾0\þyvÍìÚ[ç:{ÎÉ^ÿ2pþ¥ž®™J¥#é, M®ïæj–ŸõŽ® ÂÚƒ¨¨ëwDÂ_¶ušýãgâóg0“îÇÊ—µ½Õa2poª£0<ô^í;%×á†Û|gpwO×îÁµAº~U½ Üh›ã=룩-³ÝAÐ.Æ*Óì‹7®õ?öŽÜ½ªÿem>±Ñ¸Òð„U§ß>R/´sNGãÿ!OKžÞÙø„<%A¸p¦øŠ hGãwôÁA819ùiC¶5»·Á;·899¹$ž8;ftÂA˜ºÑž;·2_@<™gq¡ @ÀVôíëÕ äؘ.€<鼬ȯC¦Ogækû‹u96¿¨ O>™×äWwiI'_ækŸ BòläîUy2~Gãì˜Ñ ä—y„BÈ«¾}½:€Ó'ýƒ—uùuÈô òÌ~$«ÓñY“ª¯šŒáØTB€vq¥1wéÂPš,ç·ÐömÄð\æÅfV?Ø›®üàîåÁ4* ¯4¥úªJ­ Â÷C´‹3i¥ ×z"ÞÚ¼íˆë­©~5 ½Jþ½¸+âl_ªW¼_Œá[AÐ6®Gü²¼ô{ÍŹ^Û‘šÀjRõ‘4#O¬Äå\ÄM¨žé~P¹ÕÚª ì;]‚ ]ÌD\Y^êßÅý›¶ÍEÏÁ–T9bnÍàp° ÕWré\gDçPë‚ðpô\„mb)†ûW–§#ölÖÖWŒŸ[Sýv~©oVŽ­¾âh:œùpGË‚ðµˆ?ö B€6ñJõÞd%¾Þ¬m>âRreöðÄs‡š\=é;ùn¶øcÄ‘ÆW¯îíOZ„§‡cjL´‹ëÓÙò;S›µ•×½Zy¢Vüh¡©Õ×Ú•¢_=nN–7Õª ›ŠáïAÐ.Òëÿ¹lùøš§rj;¼fßÎîfV_c¾…C¯¾~WZ„“·AÐ6&"F³åï#~ݬí…4‚¾»²Ð÷ño¥ˆ¡±&V_uwÄŤñÕ·#¿*Tnò B€v1ñS¶¼?bx“¶ƒ=÷–×ÜŽÊئiÕ«Æ?HÇŠãIã«oCöÍÅ™AÐF¾¬FK%Š:6këžÿG¶ê£tPÖÄê™…¡´áøòrc«oCþÅÊtAÐ.nþùæäÙ­¶¥ÞŠ(ô5¯úŠîcoܪ]߀ê­ÂkAÐNÞŽx?[>±s«m©þBÄÉæU_öòÈ3ÖùÑToyžŽcw!@[ù=û(IeCïVÛʆ#n5¯zʼn®ˆcÿ­û³O^½åAx7b®·b&¢£·÷MçÀ¶›x-ørÓ¶ƒÕöžˆÓÍ«^vµ˜ŽœÆ׬hhõ–áÅø³çÀ¶[(ÆÙòtÄï›´Mv”ªC¸#†GšW=©Ü9‰þÕ?7¸º  I¦ªßsèßqh“¶"vgñ3ñ]3«'£¥Ñµ+]½ÕA¸Ê3B€¶q¯zIÞSóŽ³Ú¶û=¯/¯z·³úåˆæT¿RÌ>¾”ituA@2ðRÄ¥òíÇozªÑrtÏž“h»ÑõYyáÖî•a7«úÀÃÚÖ7¸º  I¾-DÌ]˜½QŠ8µ²ª:ðªm뛉ˆÞÙÿ³w¯OM${‡G-&¬FI!BàÁ‚ a!"ÄTo‹‹p<îʺÞV¼Uý*ùödf2—4OÊ“óy^XaÒéî)¿Õ3ÝÙM5\kܨeë7UCïÛÊrµh ÆBÄ™»1“ ¡æ½†œ;Õ#÷¼¦­7'–4פu‚`GuG̉Ìéò/+ß3Œë­'£ÑŽGçkÜzT„ß½u‚ÿ§:ù~ç¤,ÍÿË9Þ,rAW~¯ã{פ“ìù÷Wj º&ãêß6‘ŸèײwS›r™«ê3KÌžï„š4^tKë·áùb$õ£ao,v†Ëê*Ó9Ûf{Ú °sÿ}jkÒ›|S&ÚìQØ„Æ€t'¹n ž‚°¹üCö׿Uš%¬—ÃGŽl|sjkÚ/÷j%(/“‰'S¹Éuõ„†±eŠœÚ¯|•A¸Må ¬Ê Sz¾–N„*—Ó\8P§AhlŠ ~— ܯ¦o Âq‰nüHAø".³\8P¯A8.’ñ^vxgÂŒ4eÖ“¡ ü$?WMMV éXºð`»ôãg6͸?V—g†"æDîeåã·”)ÂéTYºëñêHlrìºqJd!XAø¬áêÀPÔœÌ-tÚú›ZË7¦ÍÉMÇnï}Óð¿„ÍÎ8Ή¨×+î$ÐÂ| ×ãRü«ªšŒåBy&éÎS}&~/7³îá-‘ß‚é¤)Ý7êüŠS0ž¾*:GNlh{è Â[¦óƱ^ÿ™žãÊ€ú Â~qrĉ¨Û"#§æ2*::}ÇûcRï³@¤ÜC»©9‘)÷­¸DÜI¦ý*æ¹t n‚Ðz²×•8ýNdwÁ¡5‰­\ù¹Ë;±&d«®ÉòzéÒ•LÁš«yF„êߥrQEé2ïEzA¨)íŽã,ùðd™ð) ÚCB=´› rœÂK"Ó\:PWAh%ØŒHñR(Ÿ~‰Ù0‘î1Ãòö«ÉH囼,Ña‡—u†1*rÞ_­ŠÝT 5¥UýGÝ#7ÂA>…Œoø¸gí¦N„‚pÞe¸t Þ‚ÐÈÞV#§ëÁ 4Œ=£v>ãáì%‘èZµ5.mÀ-“«W®èƒð¤?ÚÚCA¨B7BMéI‘‹{aøÆ*‚PÓC»)UûÇ>îf3k"m\:PwAh¤FDÞ7„‚PIüvÇZqÞ‘µÏ•†J«UÖtô°>ÝX*=¤kÔá´ÿfç1‘ŸC#†@jJùnª Âà)œùxO×C»©œÈKÝ/­—!ÔeZ“0ÝM@Ã{ŠÇìü±÷šÎš¼¯×4'ÒèÒé‚0S^á KµX£7!²BMéß /§ Bß)ܹæ:2þyMÛC»©k"3åû¦ð< m¢¨“ ´6Ê–m_D 6§Ýt«vØ89+r8UUMw½¹)Å™³ ÂEoͼµ"8Øj÷€v:iJ/z›x'"¡ ¬8…_|-t‹Ü×öÐnjAd·Åyë´DÚÝ-xË5u„kQ•O½ˆ:îÍŠ™ö–BEìQS»WE«Š™'Ö‹ëîòoA½³h¢£tëÕç£7öôÔ‡J7˜b:÷Fgà ê+N!ÙV.±¤úØ¥í¡ÝTˈ»åš‘U¥Îºuö„; ¨“ ´îÚKçìˆRCóžûÿD§„V–¹û»ì_ÓŒHGéñ[ËŒ¸£Äg"m}^+ÆUw'³££"MÁ/û;ÞYFW:¯^”’p1ÂÊSø¤>_êFo[é+u=tšº)R¼lí¬fíóm–ï·–£PgAØYpþ÷#ªë®J†•ËwÔ`ª8ì‹®RLôUQÓVLd÷й7ƒjt¥^–*i(ŠŒ4Îx›n·[Íä§Z#"Ñ'Á΋´ƒPS:Ѩ*›½Ó­Žˆôû?_y Ö#E›Ú1E6»ô=t7ݶŠv Lýníç­>,H¬Kê2K#½U/ð6Þ¹kè"öFgå L¥C;´ìUÓK÷‹ŒŠƒj€uµô^Æú¹Û«­å‘ÛÌÐýp‡Ê©ã¦“¦tê­ÓÆÜXx´Vq Fr0îi-=ÔôÐm*ùÅ-õ¾lcMä8WÔi–“ û¯?SˆÆvÛ/;+Ö½Ù¤§DâOª¨ÉØW5~;°eÌ훓FKþ¤ö×öìU!›Ü\ï¬èággæÿ¶ÜÊÒÙ—«»æîÎk–ÎéP ¡S0¬/ö-D̉Ì/Ε=ôšê½Ó˜Ž¥ßÎ~ðê[ôí¿ @¥¢ß´±g{hÝG ¬xsI¨¹q1Sû—X¾¼pÑyÙyXÌÎÚö§×·75·f~-x¶½‡v/¥æß?#é þ*€ƒóÙMì[ Ï”øzéÕ½hÍ¿37•üMhcR>ï_"oMB}5;cm þ Æ½¹&Ç:ù›R¿¤_ï[ ;XtW@䓵í˼_â/8X32þ•˃ݑØät¾·Ö]ÉÉþ€ÚƒCAÿ_;Ã0ø Á¼brªIEND®B`‚metafor/man/figures/selmodel-preston.png0000644000176200001440000007245214465413203020144 0ustar liggesusers‰PNG  IHDRèèz}$ÖPLTEÿÿÿÒÒÒmmmÌÌÌ"—æaÐOßSk\\\(âåfff///­­­wwwUUU™™™ÿÿÿDDDŠŠŠ´´´XXXªªªçççþþþ›òóüüüùùùKKK ýÿÿ———‡‡‡NNN“““á]t*›çÏÏÏN¬ë ã•Æøøùýø¼¼¼îîî[[[%™ç—á‹ßTlãi~ðððSèëGGG888@??ØØØ7¡é###âcy™Ïôóüòùþþýö÷þúûÃÃÃàààó»Åø×ÜàYpaê쥥¥úàåýòôî÷ýhÓW0žè***kkk÷÷÷___ºë²7äçüíðµõö§åo»ï¹¹¹ûèë®ç¥1ãæ*âåäääéõýdÑRmÓ\bbbÌèúV°ìâòüv×fíúëG¨ë,ãæªôõöûþ@¥êÚîûÚsóþþ훩?åèxÀðFæég·îRRRöÍÔ334 ÓõíýýàVnÓëú§ÖõÈïÂpppÎùùî¡®„ïñäm‚ðòÁíºá÷Þ|îï€Ãñ麟çøå|Øm”ññçyŒñ±¼‡ÇòÕúúŽÊó´é¬qÕaõÆÎås‡è„•ìììÆäùŒÝ‡Üy`´íÜÜÜëŸò¶À앤’߆òõñ000óóô›››síîãûüð¬¸ôÀÉMçꢢ¢ÜõÙóùþç~èüübÑWÝûû[éëꊚ£óôµÝ÷ÎñÈlìíÉÉÉÐïú½÷÷ÙôÕ”ÍóÈÇÈééé­ÙöÑòÍÓÓÔLàÌzzzƒƒƒÀâø»ß÷6àͱ±±±Ûö+áß;ݸ4á׬¬¬ÔòÏÖÖÖ’’’gëíEÚ gäÃÖóÒêêêVÕsæ¿ÊÊÊŸŸŸN؉Tæß’ëѱðÝPŽÆäòmèØ>“Ùj‚·Xß°ƒ~¬i*4wßšÁÞõQ¨ŸÍö憲\«íÇ\ºt˜—^œk—Å^~f¢ÚžžžmDKZZZ±f‹&Ä棞ÃÑ„ËËËέ™mp’‹vŽi…:¾áñïqÙ IDATxÚìmh\U€Oë弜Ä:Id˜v¢í¤Êà´’¥­&š¤iCZiš@ Í ±Ê *±D XìBë MAÛ@Sl+R¸+Æjë†H…PêBûgÈþ«ôàÞùHÒ™|̽31¹¹ó]$ý\- O zÇo'vÚ¬Û¾qÓÃKÂ&D_:Ñ ŠÞ–™vS¿X§m°Ô úÒ‰^9{éþôbÿìÁÒÅ>­úø·ß6Þ½{÷¿³Ü½»ö!€8€èK'zýìdÜPþ¢+5f~OnC]{v½Z­µ®Õ çÏ6q§ Ü£{@ôòXr›ëñZ.Ñoš{¯§öB‰—î+Ãu¶ìºõÚÙfF, úJ‹~N:“Û²½ Ñ'̽¯²Þê¾0Øj»^=¼‡1 ˆ¾²¢¯I‡À–æÍ%ú¤1¯Ì}·éʵ^ÛõÝœÖÑWFôOʶ&6›dçêèÉ•Ô’Kô)cjÞšïƒ}§õS] \ð¶è#×wT‚Ñõ»µv–ÞíÑKå@bs8*Á•Y£ ý)cö¿·Àg{‡íKøÖán†.xXô E‚ñX@v8òÜYz·wDWCö/SlýÓª0ÑÕ¸¹÷ZÕü…Ô¾Ë Z÷¢:xXôr ”Û—µáo>qÒÚaz÷ʉž'9E5÷¬þ¸ùB­úÑ} _ð¨èJlÄqc§éÝþ}ÂŒYï.Ö y·­zõe¦åÀ›¢Å$znW‡³ÆNÓ»ý'ú¤-ú3U‹6i>S­uÝYF0xQtõM4²#Ø~ÈI[§éÝþýc¶Xäh´ï^­¹UŠ.‰·¨Ð®é¹«Û2˜9ß;MïöŸèUcæwëœýtjÝz9Ì(¯‰~=åîH»lž}³,3ͦoú}§éÝþ]Ý4£ÖþÆÜ=·oÕö2Œ!/чê ͉ œ›ÿhÁx(5Ô%Î)ºÓônŠ>jFk¬ïtÕl_¿÷žbRòý£@ÁÙ¯óOŸý4ýþˆ8p7P¼¢ß17XôÚ;ÀIò¼t¿µµPæˆÖ#=é½Jy0çwsšÞíCѧŒ9imyÕ‘éͧzuë™cÞ•¸ÿž}6Þq;ƒ™ß§éÝþ=ü¹1S5ÖûÛÓ¯õ á3àÑÈÎÔÎ6IK¼Ø=ºÓônžÑCãfòCg×îÉ;õa­H`¯ˆ~I‚©óõ£"‡sŠî4½Û‡¢Wš‰¯­-Ÿ:îòlµ®½Ìå;xCôŠ€$§ã7”:ÉjqšÞíCÑÕ„ýt‹õµó>»Osù^]=$òøˆjÙ(²ÕAk‡éÝ~<£Ošqõ¦õ¦‹N›jÝÏì;xBô ÇD•öõùf'­¦wûñŒ>eÌß¾°jžwÓí•V]Mð;xAtj[Wˆÿú€³ÖÎÒ»ý(úsÆL½ºßzÛU¿{ë¸Qoˆ¾ øBt5nÖwﻪõyÂäÑWè£fT}gÕ¼à®çÄs¶ÓLÉ¢¯Ñ'ÌMÕ¸ß:é¶ï3µºŸÔU@ôU"ú¤kTo¸½v·9Ûª˜|D_¢ÿbÌ/êËzÙuï{tõqF6 új½jÌLªªg¬g]÷ê®Ó½ÅèD÷ü=ú”1Ï)õžõZ^‡h¾¦õ; o@t¯ŸÑ?3fJ©×-ë­¼Ž>é°r¢»+²º´#¼x#\Œ¢'ƒ`•zÅz/¿ƒ„†1VJtwE7liŠl £è£‰iwõ•µP¹ELÏŠî®ÈâC]£Ô¡ˆºúu5+Q úrÍU‘EûÇ eèÓ÷—u)ÑC'ƒ`•úÚa¹Å…ènÐu] uD_>\Y äRr'L—U-²3z:V}ºÅúWAÇÛ[­û›눾l¸+²Øž=”5Å(zU*V¹,Ù2ϵÁžV}•U }ÙpWd±SJ’Û ü¹(Ïè© X¥Ü–l™kú•Z}žÊˆ¾lGsUd±\*ÿ™Øö_5Õ“f,ùlâÕ-.K¶Ìå Á°ˆ¾Œ¸*²Ú)'>Rª- »ŠSôt¬R­ =æQ­ œAôåÂ]‘ÅŠv ”FíßUœ¢§ƒ`•úÞuÉ–9„u/Ó}¹pWdqäz{0¶½XC`g‚`ó*Ù’MÓ€®¦„ ¢û‰ž‚Uy•lÉþ‰íjÐý”eCtD÷žèé X•_É–lö´êÁ0CÑÝk¢Oó—äN^%[æp¥VeÈ#:¢{MôÏÒA°ù–lÉæ”ÖTpAtD÷šèÓA°y—lɾO¿ÆÔ;¢#º÷DŸ‚Í»dKMýºüDGt‰>«Ôûy–lÉ¢»ZŸ&êÑÝ[¢Oš±§R{y—lÉâx­fØ#:¢{Jô¿OÁP²%‹ËLÈ!:¢{LôÐtl¢dKþË>gty¥¥ѽ%úLl²dËKrô¦~]G„¢ÿ‘lž^3nËŸì×ð¹h0Þ†è³LLÁT²%“½ÕzätD_Aѯ'ž8„è3TMšñi'OZÏ4.ÍñÏ’œŽè+*z©”Œt„}–)cþšÞ-¨dK&Gu-k½#úʉw·ÄDˆÞhÌÿ¦÷¶ìó}4Ÿ&nÑWPôXîÕÞ‹Lt5>3§Þ.pÙçûèjЧIdCô?PôŠ’x0Ú—Zìñ‡cñ@¤½¯"-úŽäÚ=v«ëv«@´ïvÊÓÎh ¶1¹hìKRv¨>xâ£ÍòxKg,x±M…6·ã%Ûü+úèìlÜó5ÖKõŽ×R:Ñÿ@ÑKã«iOTRì‰_ŒÛ/C)Ñ¿=”udz[•Ä%K·úw@"í?$E/ ŠD:6KOLbön[§íÏvúWôÿÌÁ¾ìóý¼Ãm:¢«ã» ¥kÑ¥Þ¾ ÿ!Yš¡\‚‰ ö­)˼tO·ú1 (õs@¾íP¡¶ ÜHˆø?{çÅqÅñ±ØîcíòÚx¹åŽÃ6ÆN®œ- èή8øÙ ÎçˆâH4FêDЈ‹S’„JÓ0NU ‘l?¤ŠR!UUJ0`À¦–Ò"µj"!UêÿˆúWwf–»Ý½³q|;>zû¾ÿœ÷Íî1úÜ̼ù¾æŠrúSñ"’H‚¦=òSïèk zêHº¡»Rí%·úàÇe:‚Þ!笓S~~vÑÒL°€;é…ôI~W!Õð˜ÝU ¡„:/å`~OÀ(½ŒÒ_„ý K6®·VúÒµNl[)_Æ·éÞýåËksÔ¡3S€'|­M“r^ };Açw•w43ô@ù=ÍôãI©Æ$”,èé#éÄÛç”tc™~À5º˜5:/Åp–&Ú-HÖ@&ès_F†øÏ1lŸ5@˜ßSʦŸf½—Å… úWÊ¿Sßʵd‹M{Ñ…Azut½,D³ìÃÑLЫS ×j>ô¤õ{ З:èº5ç†ísZëäµX{A ú @×£?Ñé@wŽèžI)uá‚í³5³I> èbA7Ý•ì¢x:ЭkôzO‚~\Qþ’ºpÅö9­ X§ A ú3?¦ôN:©†ùìbøž}ù=K6ÎÛç´®`õ]0è~tú é.:Ÿôk* ©Ð(Ì^Ýr$¸eûœÒfÜ ‹ ‹^£÷ÔDúT(¥oÓ¦HxtýÓrÕŧ‚ÞДjhH趾Hm’?ßÏCq6Ô{tg6Îuë8S'å¬èà!Ð/gýö© “® ©oò‹î"sõÞhoa3÷âbˆú-SÿbžÝ™[î¶u\jòþ92áÐý¯ý Wýõé wÁ0Åï€ö€$ùXíSÐm-¤  a6y_jŒÏ0ñèK• [6Îuë8Sgä5h‰ktW×ètF¾k±*A1!ó@­ÔɺÇì=º­åº÷ ©õ:{½6l~G›fæ^ˆ ëÇÙ8òŽ$ýH@Ïô£h‰ » :-Ê õ5hÓmr=|g\”ÕIµ´øûø3èóÓrÉš:l4 oè­¯;²qä-é#]ëØ>ïºË “¦âUë+ãUw”ú´hù gË YiäXFéóu‘`(RO<:™pdãÜ·Ž3õ+yb ‹Ö(ìšÁñèÎlµŽ»)¢oëÉGuäA¤È0¥a‚žeí|Ä™`ǵq|¹@Щúb„Œ,ß=‹Ž+Ê/ì‘÷¥­½Bz÷9î„EÐÅõ£Ôæx‚åAÏ¢ÌlÜ–ÕÒU!½ÛÜ‚;ataZWÕçÓš;›‚žUÙ8rJÚ'¦{çeK· èϼ ôŒl¹+Õ^Ó¿“òZ|™Ž #èù=3×[+À~‚iç&ù ¢ #èsº~ #G¶ °Žã:‡/Ót=/#z«âÌÆ‘[Òê7Ät_¦#èz~@Ï’kÝ*½/¨‡×ÈAŸ{Ð3³qä]!öL§å•XJAGÐçtýˆ2æÈƉ²Ÿ Â“é:‚ž—=K6NýžLGÐg¯*Óäq ™‡Ú¬Š²Ç½úžÌlùDŒý›A ȘCÐçt½Jk@ÐMefã¨ýÄ¢:Ù‡[tA ×UUØ €†lqO‚þPÏ(D%È~‚ýÈîÅÃ-ºÐ3d‚Žktª#ÊØagL”ýÕæù4‚ #ès :Ý÷Š3(Ê~‚iæãôœ@/ê¢E‘ùTÝR.™¯Å›ºâš/Ú“ 5بêRÎSÍZhY›WGô=ŠòŸŒ (û ö_sTð#"úlAÿ§ Ááð²ŠÖrÉ è¢ ø˜1¤ŸœMT'c&èÏiì3»ïQгeãȇ¢ì'(è˜CÐsý*ÜH½]ƒÛŽrÉ èeÐ0nòÁs©©;‹Ç‚П þAæõîIÐ*ã«œ1aöL{q‚>kЫá1»¨„PÂ^.™]Ã+#÷,¼c}Y¥% •Þ]_ªŒeVºÚ'Ê~‚j3îCÐg z@¾Ì¡Í^.™] Ѷ'+C+èq³–r,¦{tDÏ–#W¥Ú-âzŠûã ôÞíÏ窻S‚>Àܱù¬­\2ºMð%Ï>p‚®™? OUÁ‚¾çõ,Ù8qöl1€çU ôw¤œujJÐë@5¯"Ðc+—l&ÝŠ@Ý5b}¦©«è ÐÉ„òufp»ô¦À®âyÕ‚žº_}1WížÙˆn+—œÚꚨ¿Q0ߺ`Òë ?TÆ_ÊÞ”VïØ×ÓXI×è9¯Ñëíå’ÐC¼õ6Ô[§îÍæ½½±Ì« /UÆþž\þCéE}ݶýãôÙ€NªéXmhøörÉèn€%42 j€>{z§iõ™¶ÂbAƒ~@Q>ÍŒ~$½%²³ÇÐ?AŸè×T °Š©eŽrÉ èF(5H_—doÓThñóøFóšE½zk¶½qäqöTëÉ'‘ý»ƒN©àë Ó|®µ\2:j¼DƒÐÑÚ;̵û}ú˜ÑèÙqDÿi¶ly[úDdoßÃzú¬@'uóÃj¸zYÊ%s cÅͪ_ÀÞ¯M6j¾ O’t“]a5´°ŽxtšûqfTä6ª“ò!¬ç€ »£éË%'0èP&þ˜9Î߈ìnÇ~ù’‚ ç¤™•KFй(ÊkYÂÏ <ÂFu-(ô5³rÉ:Wk¶½q¬‚r«Èþ¾Ü‚[Þôÿý•KFÐMýKù:ËŽÔ-«¥[B;¼A^ƒ¯Øôœ4£rɺ¹ÿ2þq–ø)‘GØÛò~YAП-òˆþeâçYÂâ*(›zO–O ,:‚>G W”²„Åa£º‚%Ót‚ÞÐ_£†wÙÔÅv…ÕPòš0ЧÈÆ >Âfhç~ùÒ‚ {ô†8h%>ðY7ðÔùXLm:Íƭʾ)¬‚òá+6Ý› '!Ò@]Ðœ6JÕã4è­[è¿TÆ/f >ÂFð‚îQÐ'!HÖùã¾çÊb%Ð#týUåÞ+Ùaû{çþÕyÆñ×™ã>yAëx´¬»‹!DE«1d½D¨T%"$ï¦(V+^R/]/•FMŒ‰÷4ÑÄx0jHZmbu4Vgˆ,kcËTÇð_dòKêyÏ.ížs6‘÷í9ðýÎÈîìó:ì»{><ç9ç¹0³«n±ô^zÅ>¹šxõ¬Ð]Ê1«bµ·2<úež8H—\Â&þ|íÆ-6€Þû@Hÿ0¯Q #Dyt‘æÑYÖbÞ–Ð ¹„¡Š  '¯gèØýì@¨°1–ÞÕ1±¥¾/ô¹Ä±º¿RT± 나Û´ ìœtè9ËåBÔ‘¼¡Ì±¢õ|`ˆ,ÐÅÕ¸)‰^?"¹„™UlÜГ}KÈ?°H§§ÄÓibËW±^ï"sš8^"jQô?Q¨ÒE ‡èf쌶s/»¥Eä7vTñˆI}ÞNôºì6†AÊý{€Naƒäk:×ubK.å ONdzöjÃ\¢9 Œ ˆ‹]5¤‡ÓsÓ©;Qü¾šN7ØŽ÷÷‹iqÿS3?c`g¥æüðß;·,JhX!¹„ÍÐ4ŠèÉ‚n2Ð(NÑ»LlÉ]ÛûQ!U¯äÓ6'>˜¥‘Âfš>.‹Ñõ ?¨ ÌÜŒÒ: Ý”æÑÏ[\%lµ’¿>4ŠèÉ‚^h>føé~—‰-†¯ýÍëÖ}("bàXÓ×JÝ8›¯¡ïáÕ€è8u\SG3ˆm¢zi ³Å¼-áH¹SØbºà+[fz Ç™K¥»]ú»Î\L] e„©” ¢cb^Cj¡) ¸ ôpÇŸãí¯µÿqz^§“Ò@ÿo};¡a³ä6Æ‚Ó&ùN€žèMíl7v™ØÂôPúRçjdEÆÉðRêÐ ô-n=3>ë±ÓíµôÇF>‘ú~Þ¼3¡áŠ6®\öxY3=)ÐëbO*hpWÎRI#=ÍÒ¨ºAÏ7¯Ëu*Qw!èÇÌ« bÐDÇÉFˆb /3tz$ ôë‰ Ø«­m•ý¢0½G¾mB-ÙozŒŠJ»Ll,«6ÂÞ¿P¸¥¯æµ§–Ž™˜îFÐûÄS`S;¥ÀfÓÌÇo(! ômVWãØFÙ%l†¦#k¦~~É“‚ίZ€®—Æëÿkb ›HE¡táë Ìè·ŠêÍ [wÉÿÀ o¿è8«¬Žµ4çê7ujj`ìïãÔDèì×¼mtBÚ¶Rúƒ¬™žtê~yÔ“jƒèTo~×/Xî2±…±°nvoŸC$ÒâØ}?U?ÏXIžðïn}iù# ™ayªÈúaìœN¡HQUP"èWyôFBCV±vDú3ãU£'£‡ýz}˜bãÓºLlaudßâU"ÆÄXZTéNÐÙñº=ïDZ+ qÐYîOòõÀÀ4‡ÿùd åÍG[ik³¤‡ÈšèI€ž[Ê+ˆ_“î:±…èߢ±&¦äèþÈ áÞ] úד>Šó³‰-ë4m¹ô7?·Ì·Üt'Ðåÿ’žú†%lb’Ã[òßý>_zÍt€.t¶‰·®Jl™,y’ƒ)ôšè]è{y4qÊ [&{’ƒ©Ó˜˜Ðº|Ð×ð{¯X˜>ÒæËûé»}Ÿƒ€Ð%ƒ~˜ó¦[²'9˜ú½Ï7èôÿ³z<è¢T┓„‚|€@èrAlŸZ˜æ+Hƒ5a1¡  tÉ ïáÑ—,LwT¤ÁŠ MH„è]2èóxËx«ÓúbíK;˜¹‰° Ký<ç­l‡´µ*¶pÆ7 C:@— :{™·Y¤ÌˆI;äï 8· C:@— ú?yëN+Ûji°æÐÅYÀ t™ ïçÍV)3l²V‘@—ºH™ùÔnÁm£²=ýÁw}"!€.t‘2sÔξU›]«Ð¥£O$Ðe€~•GÏÚÙËÇiS¶)´~†ºЇòæ_صYûHÙ¦Ðúèr@]fÞ´[ðWmÜ2e»úÜ·.èݺè2ó†í‚bm²J—~лt‘23ÞvÁ[ÚjuÛ:囀i@ï~Ðwñè/mìдʶµp;¦9@]èóxKßU¶+V«]¾¤ IDATÎ$tÆ7Ó €Þí ‹ÁL;mW¨¼•.\úin@ïnÐÅ`¦‘¶ Ô gz š €.ôyôû*o¥1  è2@ÿ‚ßë;Åv…Ò[épé@—úaÎ/ýÙv…Ò[ébæâp@ïfгó¶Wì—(½•Î0sò蕪²3ãòèìç¼u½ý ¥·Òƒ³àÒ!׃þ ‚:ä Ð÷ðæWíƒt¥Uépé@¯#½ºfX\Þýº¤ß¶_¢ôV:Æ(Cî=‡úy,F7[Á.²_¢´*c”!÷ƒ®ç1¯Î>q Ò•ÞJ7Ç(Ã¥C®=?ä=Ð÷ò諣헨½•—¹ô*ñèY¢®åkû5S6x‡K‡Üúüð}¯ytÑ Ö!Hg‡´ÕY ?ï ¾2¸tÈÅ •BTQ“G@u-'–¨lðsé¯ã¨ƒÜ :‘ç­`‚tÅ·Ò…KŸ‹Ãr-èÏt–W@ÿ‚7÷ý—õ·ÒÙ “àÒ!ƒ®JÝ ºh뤗«›•nê \:änÐ+KÎÕœSé!ÐE]‹S®rVº¡à´I¾×pÜA®=X“gÆçš g@u-ŽAºÂYépéëAO! †ˆæxôýF~ÃÉíkGT~äpé‹A¿KþaÆcÆ?ñ 裌 ý¨Ó¢# g¥Ã¥Cî½€fÄŸ¥ÑÏ€.êZ>tZ´RÓîÀ¥C](ÿ84ÏÏ÷ èb^Ë‹NA:[¡ÍWú¡Ã¥C®]¯ü4¢{ô]<ꤳ[Úðr¸t  7j¿¯VðGu-ŽAzílm«ÒOý4\:äRЫ¨)þ¬‰žòèÛxA:Û¨Pú©Ã¥Cn½Nß•T²Ê’ïHïãÐÙ&Þæ¤/WÙ$.r1èì[ˆÌß0¾7™ ]í¼E¸tÈÅ ³kÙ~sö#æ%Ð×Aú"ÇU“µÙS»ôí qôAn±Œ“¹'3$¿¡îý²¤;¦»³eJç-Â¥C®]…ºô¬—y›cº»ê&‘pé AÏÌL?:ÉC ‹æŽ5éÊ›DÂ¥Cîèiv˜CUƒô,µM".¼C®}Ø°\ñ£“¼ºªê¤³CŠ+[àÒ!Äèݤ/N*H_§i J‡z=è¹¥íÏÒ4z tÑ|©»»êʸtÈ wÔ¦6PÀS ‹æÎAº¨lù Q:Ô‹AÏkˆ²ÇÆt|ù=ºh>±ÞyYípÅ•-pé»@?駮*òèSE>Åyêʸtè?ìmpTÕÇðÞ}z‘ayYvÝd3KÅ@JD &ŠÒdCÞ佈҂DPäMAQ¡”¨ !"X±¼:P;RF>Д¶Lë´éLg:Óé'‡ï½÷î&DgÏM»çìÝüÿs7;ÏÉlrÏ/ÿûœ—çdÙ£û½ßÁÜ_Öî)Ðé„•¤ŸI¦|g ,Ê.ÐC‰D‚×&’ÊðØ €¾ÙJÒgJÄ©ÞÙ‚R3Pvn«î°š”ÐG‰ÆÏvHÄ)>³–e!èD7†ÚUãìmòèv…HS"IŸVb\…¥C=ôk¶§Ò'p¤¯Ç@·+Dš$âÔžÙK‡²ôJæ 6èÕ¥Þª0ck“•¤”ˆS}f ,Ê:Ð ùRêÕ%ä1ÐÏYIú‰¸èJµg¶$-‡«BYz°8œzŽÇ=ú:;I_*¸Û˜…¥C=tsçK/ÕuOꨕ¤o‘ˆ[\b\†¥C=ôòκî^ªëÞ‘¤ÿÖ+xÀX£úÀÒ¡l½ç§^íåz¯>C4šóeN{>­ºÐŒs^:,ÊÐ'¸tp{Uûà"´{ tûs«D`…òB3DG|S¦¢#BY:õ¤Öº<7nãðsºL òB3ÈÒ¡ìªòkÌåu-ä=зYIúA™@õ…f`éPvn«5œé”Ðgˆ9fÔgW^h†hò0ßkè‰Pö€Þ2°šÂ7¼úq;I?/©ú夥ƒ¥CÙzu¹]èyb OÂ{ [Iú?eêIi8B–eèùÌ~?Óhæ ÞÝNÒ!¹ÝX¦ü.¼K‡²ôY<–(c¢¯ã|Å{ ÛIºL=)¢õ†±–õTÐKy4‘ :Ur³÷@w’ô3R¡#ÔÇÁÒ¡l=£èTñèN’>S*ò%åuŸ‰¦óAg„²t^'èÍ‚n'é;¤"Õ×}NZúdôFH?è±@k ôåÝNÒ¥¶ªÚuŸÕÇÁÒ¡ì½×%A×s‚î$é[¤B×+¯û K‡²ô{SK·WâÀD‚î$écåBG?U}B°t(+@§^ÞÔâ$é•Ûªj×}V?G¯ø„¥CúA§–º˜…y¼¾< º“¤o• ýå—ÔgéS|o¢?BúA·ÔÚ4&Ó(c ;IúÛr±êaKZú#èP6€®@ÝJÒÿhî— ]¨c8îIX:¤ôÝ!O‚n'éóî“‹]¦~8ŽèyX:¤t¾CžÝJÒ?3¿”‹Õ2gYúè‘6Ðï½Cž}ÿ’\«g8–!Gÿ?訕¤ïŒÕ1‚¥CYºw+Ì8Úd%é’«`õ ÇY–~?,Ò º§+ÌXŠžsæK®‚Õ²:βô}¢OBZA÷v…'Io´’tÉU°z†ãèCX:¤tW˜I%éÿ]kǩ߬JOÃÒ!½ {¼ÂL*IošŸHëجêXz½Òº×+ÌØ:'–ï«KzjÇY–>Î÷1z%¤t¯W˜±õ\£ø³¹J6ZÇpÑû¾WCè–6н^aÆÑx+I—«KNí8åG9P–iÝëfmãkÌ ’Á:Žr€¥CšA÷|…[£Dã~s¤lôvcYTýybœïôKH螯0c«b¹•¤ï‘5ÌõNVµt–iÝU…™1cþâUßM?—E‡®„5‚N'D›l™Òr²*,Ò :ÉW˜S˼ ‡wy¯ ˆ¹ÖúSQÖúNqt‰l™ûdÕ’iîÉIß»°tH'è²ZË¥c(QÏå] ÎçX/¢Yî§ô—…)yØ"9ÃqÁÒ¡z¨ªÕ¾TåÞü6ýJ÷vŽì³.áZ®î|¯Éïwžù/q™FÐ+房ÉO°Ñ[ÆÊ(,ê1 ‹Ù `i`ÀŒ«­J~‘9×E\ÔùÞ^¾ß@ ÓuÑ6Oò°EKÏÆWnÊc>ß èšrÐ/Yx&áâ‹ùq>”n5vþ½sýœƒï•ò@©”aÐO‰Õ.&ØècŽ»òžï tMH5èü<è‚u­ã`“õøçoÒ4ˆ¥ Â|ãÖ{UU½óbE³ô‚¾Kˆÿ˜{¤ÃO%‹aéPϽ7:yzœ/&ý½0Mƒá\ÃÌsq!æÔDü^­ GÄNlÑIÆnX:Ô3@¯edžïb§iÀœšWów¼ Væxù¬DÓFæk·EÏÊ蝹å™ýÛÄYl´Û˜TK‡zèAv†ßqÜù²‰ýiøïýsÄù.õ\{[ô»ºj@mfà¢ÁÅÍ-1Në¸/ŸÂÒ!Õ xŒ})J¥Oì2Äö}:Ý'ÞrôÞ©ÖܤñÑ>²“tù 6Zc<£ã¾X–þz'¤ô˜“it,uÌéL·üÖ`ܾŽÝχ“ðR4N?;çIï`#úÊ0žÕc韢wBJA¿›ØvXqaÚmª…<Ô¹v^«M $3}m o»™`‹®4¶ë¸1/ÀÒ!Å ÷åHßðÄr.u¾:ÆœnŠl/×;×+©&ÉÜ<ùç¡Šýh}†˜3]~ÑCÆ¢ãμá{ÝR ºåаþYðáÁws—ånß÷MSK`óº,ÈÁßØ×]à×úsâïò%"‰¦i9 –©=Qçg.¯´ufîßš¶AOØG‰ÉM-ÇØËgC¸¹…¨ÚÏ•zA§ñb³› 6=‡¥ÃÒ!õ ùâBrÝksÑ5‰rÄM149âdãyv*¢!µìÏ‹1§9¡1ó oãgÊ—ˆ¤žr°°tHènµocÌ”œ[KN­—jñRÍK`É©'õ¥i>,ß`„–ú°t(ûAï¾2zÅ1£Fú 6ÒTÖz”€¥CýÐãbÛAé3ØH[ý ½ë;‰ ônê±z‹Yãâä#Mõ'è߸'ÐE!€Þ=íâߦù'ù‹KŒË°t { ôhƒ8µÊœé¢Å〖_,èÝW›8;ÛÜá¢ÁeÃÐQ‚B¯úÞG…^=+œ[ ¯ Ÿ˜æë.ž4-x§aé2Ћ9A´`hî€~\ˆ—÷˜Ó]´Ðµà–©ÝÏ­D¼6w@§£bçHs¿‹º¼ÃÒ!u Ç¸®r8÷~K^}“8qÆMõ {Áû2-÷–)ý"ß.¯ƒ~N4¯qQ}Â9pQË‚÷eéO£›B*@_Ê+Žs ~K^½b¹8çjqœ®KÿÝRº£œÊÑíU°[Ìùn&®%sµÜ¡GaéBÐË.æè÷ˆÕKM󼛇MÞ)|?,Rº¥DåáE‡G'rô]BüÊÝâ8]ÞmK–)=´(î Ä…¼ztµ85Û\â¦ÉÜ㪖[ô,RzæHYiY„Su$< :µ‰ë[]-Ž#zJO…w¢`é2пæÀPûdô‚~çeƒ>CÌ©Øã¦rÑBÃX¯ÇÒô=ž ©½´³¢ëàŒÀ+}]£åæh&[ºJJY–>åItUH èÁâÎÔ¼¸Øû Ûµ`çªrœ¶’R°tH!èþC/›ý9úfq4ìªrœSRê×°t(·A/ŽtÌ«%‚¹àè/ q|¬yÐU›·tÍ°ÁÒ!U ×sÇŠ™‹üƒ=Ú Vl0kîsÓf±¦3”‰Þ„¥Cj@ïå盕 JTÞd¯Ί¶‡ç™g\µY£k† –)¾õ3³óÿÊÐWˆ†¨›cUmý\× ,R:}^°0ý…rt»ÌÌts¾»e~ËtÍ°Y–þ z+¤t¢‚–á-þ@Ê@·Ë̸ÜØ¢q† –©]…Ô¾IŒ'—[4ΰÁÒ!€Þ-ëÞv·±Eã¶eéSÑ_!€îVöa‹[Ms««FÚö°ÑdX:л£ë¢–˜³Ý5zÊ¡é7s–ônè”hˆÎ4W¹k´PS•HËÒ‡ÁÒ!€î^ ±ë¼i.u×JÛ6ËÒ‡ÁÒ!€þ_öÎü7Š#‹ã/›î®-Ø°b <Œñ¯9b0Ž¹ìŽ®°ÇNÀ„#Ü„û>²Ü÷M¬ ¢pl!‚°9Q ‚°b )‘Ø?#Êï;ÕsYŠÝÕÓ<\þ~$Ü­‘zÔÍÔG¯º»Þ{žY!÷E¼ul!Æ*‘é¢k¡^°yMJWU""¤EŸÑCDW/ØnyëØ’à;¦>lnHß! ‚]ש¥!8WˉÑéÞ’Òû°!¤ƒ@E¿ãòšÈ­8—öÅK9"{”!¢»/Øúz궨XnÍ‹!¤3ïÑËBí¸;ñU¢£)¢«l×½ÎÝ#‹,ëG„t`¦èíCß'÷d™"ºÊ`ëí­Û¢b¦u’éçBH‹žùHÀ5aSDWlô©Ç‚RDw-kB:0Rô܇U`£¹yƈ¾M$¯¥ˆb ­åéÀHÑ EVrïŽhgŒè½¤üjè4Ïs÷µliéé XÑߢâÁY:[öªõ0Fô’ñrðÖ)8ÓÒÒA°¢S‡†—èá42Ft:/oÐvÏsw¾ÂÏD»ÒA¢Óƒv骙jå 2HtÕƒÍs1X7-ý&B:0Rt¢h§A¿F>¡g,ºêÁ¦1wgLKÇ]:XôxÙ¹YçúÄÊ-‰¹ûô¨ÇÃ6XV B:0PôȬ\÷=}VÄ$Ñ÷É”˜»ßòzߢ„t¤èm„È,*,Ê¢Â$ÑIy…>ñØÈXÍ ¤ƒàD¿'ÂYª¦{Æ_âA¢Ç–ÉÎ4ÎûÜqÑ B:NôBѳ–&V$:í”#iî4û'¯Ç1.šA©˜èé—ÀR^žI¢×É)Ktæ#¤ÓD}öpwMÈ$ÑUõ ¹»êåÀTi!&z^fÃ{µxºQÝ­>1×ö>wŸÊWi5ÞAP¢WŠÛɽÛâÏF‰®ú'ëÌÝ+Í ¤ƒ D!$~/‹S¼ìwzÁ(ÑUõ ¹»ª4s!˜%:ýB¸ÿþGF‰Nå65w÷¼f†NZ3¹~7tb‰Nßd‡UîZö2Lô}ò"iÍÝk,kׇ~é щ2j{Ôf|B ¢»‹ãtž»3¶gB¿t˜èF&µPrqœÎzwºiÌFHF‰nhR‹b§¼J:¹ªª=Ó.ƾã¤\tC“Zîâ8:3DCøÖÁ"¤ƒ D75©Å ÌjqœF¢/ùŠÇ!¤ƒ D76©EqCž×›»«âq\ë`é4B:H¹èÆ&µ(Èê½¹ûÔ¾u°é õ¢›Ô¢p+ÇiÔw'Öu°‰¾~†0H©èæ&µ(®Ê-¤Ñ›)ç:ØÒþÎ aRÑÍMjQt–Ëbôw¯}U]Vò­ƒ CH)ÝܤÅ)Qï1övï‡ÖXÖûéÀÑ NjQ¨¶ªÔ×>¡qhOk%ÛÏ7Ìé‡R*º¹I-Šm*±åº=m®÷CÿÅW–¢ýSÄ ¥¢›Ô¢Ø$åŠN·Çy?46¯,}îô{ £¤Vôg“è±eòÑ+öbc?´ ¦²…ô­é ¥¢ÇÏÍÈ.Lbžèõ‰-¿Øö¼nDHfˆž_.a èurÊ:Š|dÑ8–3µ%rÔùäLô"T9ë\E/©– ˆªì½Çr¦¶ÐÇé …¢çˆ{&ߣ—7ˆvØöc[cÙR[!ýÆ1H•è¡t2[ô‰²z Ñ^»JãØ©Ý­µl¢¯vœáÈ E¢çå.ú’ù²Žèˆý‘N]Ö„t`€èmD™Ù¢ÓH•”¾Ç¶Ñ8vvu“í7DH©½S^ñf‹¾@Ž/Ñ+ûœàÆlUÚï\ÆH¾EÏvi+Dyaýn¶‰¢Gܤt½ò¼Ùª‘ᎳCø]4ÂȈ^Ÿ”®W~Be«öäû/;G#ËÀ§èk„™¢»Iézå'ˆÞ·¬¶3GH©ºGV0Š~Au[Ô,?A4Ó:É÷¿v !@ô梺-Ro­6¢±EÞêç|ŒÁ ü‰Þ¥Kšú󆊾O® Ý6Þôµ³!ø]ˆ®O=‘3Tt· }«•ÂÆ[€‚!ýsŒfàKô¬¬êÏc*:]Ts÷È{²ÎÁ±y|½U‰N9[£Î÷èÍa›;wŸlÏÑšsöVLêç Ãp½9¸Òu—ÁRÉBÆšRtÆé_Šñ |ˆþj#LV¨b°´Xo,­e¬)E“Ö;§1žÑ[ËÊ8JƒÕ]K0¶K'Zê FH>DïÚcEßäÎÝu—Á&Bzw¾>a„sà½Ä–ÉΤÛÉÁ éùN~³Óí Œhà_ôÚŽ£(ú«É¢Ó90ñ÷–mÏÕ:ü;Æ2‘4º›³#ø}T±º;n7Xt·‘EõªÁºe"óün§Ûh iàOô—„…õâµ sEOÎÝ«4_¥«2‘_²üÝœÍÒÀ—èïŠô/âE‚è^®ø·¹¢'çî;lû[­ÃßîÎXù™8#&`L?¢Š>DJt*k ½—;w×~•N9Czé`g)Æ4ð#zz%E§âLƒEOÎÝÇi¾JW!}ßÙŸvÖ£2ð#z¨íCÑׄ =R?w:FóUz"¤¿ÎÖÌJÑFø='|6)ú€p±Á¢7ÌÝûÚŸè?•5¤£ç"ð'zQQ/z´R´1YôäÜý'ͬtÕÌ1¤G¶¢ç"ð#zmX¦µ÷G}&ƒL=ùÜ]7+·?“깈nÀ‡èÔ13™Ñþ -zrî>Y¯9{H?ŠnÀèT[‘“Ð<·ò>™-zrî>׶oµÄ¾¥Ÿ/Ñœ}/?èâ=9w§zÞA•5¤Óeg?êD]Ñ¿´; ÂlÑë×»kxçéÔ~Ú¢—wjØ»—'Ì=9w×-ðž`9kHGég /º(ÏÝvj—¸O7[ôÄÜ]Õ™¡*{¯æÌ.à é(ý ôEo/Š•é¿¥ QùÃE¯¯3£2[.µÈ~ u"®èñ.¢øÍÚöB”—zBσè±ú‘ú™-Ìwé¨ ´E§èË"/,Âw2ÈxÑ“5"U‘È¡z_Àüà}©3E¥€žè!DQmÐ'ô\ˆ~Èíͤ2[¶·È>aŠJ]щ6Š¼A­BtZ¡z3é÷[$æåq(*4DÔE5,rMî¦úˆ}rY,±¹dÛ;ôC:cŠJ¢ \‘r“ÚîÕ~ÇÒ ð*zV#Œ.Ê-j£]h†;¤—öwÎ`t½{ôgÁs"zçú¹»Çq¼Õãh*PˆÞ$¤ì¥¶>Çñ„luŽax/¢wé’öø¹Öð0ŽèªÜ©6—ôWÇE[cùÚ¶ ð*º]Ÿz"× D¿&Ç—¨­Çqo³¶m‰ìwöc|¢geõxê‰\+}Ý|Y§¶ã´WÇ©¶-ŒØ® pÞ ~–7ÔfèídUÕ‰í ãCº*ð!züøñV zl¢¬^¢v^ÑNV%ÂÙ/]¥«Ãº¢ç·Š{tZR-¨­v6rû¥ïb¼„SÎ`¤«ˆþÇœ—#Ýíb»¯öw¬µ fó]Á¤Î qÑÿ:9å+µÝ®];Î éË/a3r[Do‚’ñòšÚöžnÑþ’­‚E|—0¹-¢7E²ì3UÙs´Ÿ^ÇZ+/áŸh˜ z$KÇÑíV þcYø.¡t0º«ˆÞD4N–Ÿ ö ý/éid¼䶀f‹’N­Eô†òt]»³j‚»–UÃw ÈmÍ]£ðDþÆœPÞŒ7}þb(§‰ÞP~"2Ç®Òÿ–™ÖLÆk@+6œèùå"Ü6]¤÷xê󌶢%‰NëSØèˆ=½·ö—ÔXÖ]Æk¸ìÅBXÐÑËÑÔ«Da>Å+EqôÉÏ‹–%ú5Yí¦° ¦_‚è¤5/Æw ÃÑ·”Ôr_dªf.Ñr1ê‰Ï…[–èëæˉîÜÝÏ‚wÚP`Ýd¼ôm‰~[¼ìng‰ìÇ?Ž‰-Ktº!v·~¼½c-,ỆIë±"z{ñ_wûHüãâOe-KôXü?{çúÅ•†ñ7©î>Û I9[FÇ‚ƨA"^¢"®2¬º¢(FÝÅ»¸Qƒ—#šx7êŠ$Š—5/åmMU²1V­k™/òe­Úüû윹v2”§Ç3Sçy> ÝSS§æXóóœ>ïó¾ïºÁ+û䞋0ÂB ÝÇ2‚û3ö2ön‹åkM1У6XÞ,}ÍësP›,±N$Œ°Pb@Ïfÿ íÕk¾é-fÕ”j Ó×alÖi}ékâ;LfQ):nÌB‘w€î¾ ÇÕ<,`Ëe .Aþ®]i%Iõï±ÁŠEØxQ©Zy“˜6FX€ž€A=]€>#;¿¹kÐßr€^™\ Gl°^±Û-¹(nãP »®ÌØÖ=Ú”qëG”z[÷¨ V¨¤”ì Þ3ÆmüÖzOÕ’QNY/ã®$v×~«-iK=Я/ Uƒõ~¥ëÿyýaÊ6j‹%Îb&Œ°½§*/áæ×IVš?Þ'±PAh[x-Ïf žJ ÓlóZèâœ~Y`˜ß4m•ÄY4Yøµô¨7c£ÑŒŒóѳ¬*ø÷+Š¼õŽ”‡1Ëz+•@VƒËaãéª2s[æŒ3.â×Ðã«še¶ù'2¢çùìY¼AÃØôØTܺój°¡PºX›ìÜ–KFéTüÜz\±ÑDô¬ ñ>œÇŠ›É¿2”ÔÒÖwt*ƒ ¥{Eš¶ìÜ–…pÍôž(“J²ã}x¹Y ™,;¸IOg•) z4”.Ò´% McµÏ%Nã{¸fzäI‚Þ`Åýtó>Oþ{¡ØZªƒ­(Å«DŠœh}ªMÞ opÍôžÈgµ†AŸ`%ÒÓ’| ÇBé‡Wè{Æ©•k„…k ÷@i|]æ gU±4µ@¿¥]Ö7‹ $×ë=cC­€G-+ê—ÎÚ˯0k’Z ÓìPcU¢Ÿ„ÒÒ¹VfßôQè=PFvØïbõ"Å@_ÉJ§ÍB¦É}[è>jÍô¬é•¾æùUí¤èe Ì¡«=B¦ÊY+µÈ;jÍôž©uù˜D¡dö™?„Ÿsëô‘"ÉO5í©Ä§tÔšèñÔûÉ›ùBI ú7áïD‚¦É®™Š¡Æüæzwb,½oUAxç­U—Š ´[®k梱 šzwªâgq}ÚZÕýA$³…– Uš ºf$–ËjDb:@ï^þ~Û-Ƭ÷«³½¾Æ\z̲BÈË]3'$Nšz|Mø½ÈÃXáÕ®…3[x¥™:!ÛÉÏÚ0‰µfèSþ¥ IDAT6ÓzôKn2ÝTmÚkšß„®ëB>XÚ°QÛ&q"sv!1 Ç×ò!EJ‚ž³ÕܾôÁòZ3û(Ó„Øz¼å|H1c¬äl‹z ÓsA¸­ÒM]!ôÆjmDŽ¼‰ Äл՘«|Óž™6=±_(YAô[$^<î;¡¡vkRClÇbè¯Ö åž¼^ý…’tºfÞ _ýªë7…†Z,5Ä6­Ñh ¿BŒMÒü¾PÒ‚>*Rh†¼GÄR[bƒ’ô„>˜§è¶ã8ÁÔé!¶&£Yl]®’tÛqœ`jK2„ØÅÐ;?žêÇ_lRrE·Çj¢ÐC©Yl±ô®Ïó›”\ÑéQô8®à´P‰÷€VkkËäͤb¨q ¿}€ÞA¹¹Ãù‹Mj‚;ŽÎV嵟wHœÊEŠèxFÕæ=v'š­JtP›7WÞTP( ¿BÃgD®²ªÛÔÝvG§D—ô¹ódŠôÎ4Œøõô.Ô·G®Zc=R}çºp²j°k‹à’þ¹6v·Ä¹ÜG/6€ÞAÇÄòÆ„Ô\Î,EA·%«  àíUeZÞÎ2áçÐíj±˜SŪ‚KVåKú)±ÁVɵ¼B/6€ÞAƒ˜{&¶« :ý©Ç± .é²-ïãûøýt»¼~¿Ÿm÷‡”à´–ä=V;ŽÖˆõV ¨vžvPâ\þË;@ï¬Ê«oæ %7èõ5æƒØ’~ZpIÿHîyÜmXÞz·š¤,è´ÏÜšYÒWˆ.é9kµÕ9òæË;@ïBÍ}W¾Çµ½h>Sô»¦9ʽ%ý[M{,q2_C€îPÿÂØqœ¥.èt/ÒYÕ%ŸÇIôÇM-5.€îÐÛ,»ò,›ø¯´BÖ§UaЙËîD®G /éµÃdžÇyoÀòÐ;¨„&ò]!j-æWÊ‚^ö7s¿‹Kú©çqÞcÆTyèvY…—<XÌgÄÜ° ‚NGc†wñ%Ý›³V¦?Î;gª¼t‡<Åœz³¯ …*ƒ~'VÂ%]²?n ÎãºC…œîwÙï×"Ê Û ï.ØãèS©ùª¥(AÐíÊcÕDÓYQ–/_iÐ÷F›¥íq‚Žwž¯ºXâl>Æy@·ë9³zûýù,÷I¥ºI-!}h^³/éS‡û\j‹&œÇt§V260œÞ’¡6èëÍuw"×âyé¼E“Ìúq8èNeTþÿ?›Í2ÿBjƒ^¶À<½Y*Zj&X?îg‰K:ÎãzØ?±½ÝasaI§Rû9TÀÐß¼Rt{„M¼z\°ŸÃy‰ÓÁy@êýNRtG„­àÑïDO¥&·x8èÄ:IuÐí6ïŸDÛ¶´Mjr òU:×àNRtú0–ÃÆÛ¶Œ¯VjñgúÒ˜…ó8€ŽgôNZd.»½9 ¯8,:à©Áô©¥¨ÐcjÉ(§¬—=˜Ã¶/z“U'Ø/‚ÁôäÍõãzTå%üé|’•æè¼iK}ôf®ßpÓXí¤Äù4ãQ? sõfÌãa4š±âÝ^%’¼›õsÂ#žÔÆn’7Ÿ%èçЃªf™mþ‰Œèy>{ÐíU"‰^èú¯ÂOR3Óé{c×àЩˆ×•á ÓtÖÐéú2›i†¾Ó7']%µ“ò´FôWèeú( :•dt¢Gæ½ØÍWº¾Gt@ïA©NØÏƃ€îI‚Þ`t§i†è½N´Ýš¬—¸y¿` ­ʃî³ZàO°J:9M3¼¨Ô)áÿ-µ¬TÅP$·tJc•!гªX@§¦7*Pð2ïójåMÉ-=Ø;¹¨_:k/¿Â¬I= œ­6Ó Mq!·…—•Ú&oB<¹ÁtÕA§ŒìHŸ–^й˜5;cw§\0ÂÒošöPÞ„æìB0 SK¥/€y~U;ô êí•f¨ Nÿ@|L¹il‡Lè\­ËÇ$ú ¥è´ßViÆ#,Oc“XÁt€n_Ú‹zP;í>Xn„Ý,NÉc™›wïLÓ•½9÷íʶp.‹ÿ¬ÅzH_Û}°ô“ ®¢ó27ïÞK¨©0èå?„+ >œW—0æè!Ýuø`é² ®É›÷ d¦« úh7\ î§Ö•âû´ô°ÙŠÇvÃ5Ã:H¢LÖ”xÛEСèË;  ÛUßaIwÇòÎ뼟6'žÆ†Í»b ¿Q¥ ètÔ¬©·ß»cyçMšäuXZjÜÆæ tç’~Ô~_pÚ•ó¸œÚä[Ò&õ™ ;´ßÞ[•‚U¥\8óþu˜ÌìÔ èÝ©5Î%Ý¥ó8žšþXÚ¤*J&lÞ:@ïfI?¼ÂÏn‘gÃæ ôNKúÇîøã$ä.`óÐz·KzA+ùªôíXí$6ï@OÖ%ý…®pcà2clؼt€Þý’þöÎö©ªë ã;í>{÷Œu:%Í®´ÞN®¨¤‚FEåB y‹Q”, DAAT4A“ˆ¢€Z„¡ˆ“Œ£0â[ÌÔN«ÉSgt¦Mï>—×û:ÓY9{ê~ÖïxÎñîÙ8?Î^k=k-¶œbê"cþ4ä† ›è=ä•>7ð^GÒ?Ž±Ý>M( !›è=ö+ý´e½ øâ¿qÞ¢óð~”t€ý•î I¦«&úê؆Q° ÐzÈ+}N›‡*™~»‘×7èÚUn–8n3 O[h›“Lï øæ¶ Þ¬m[ù™â8è}ÚÎ…Ô¥³ônŠùªkÑ)…=ˆV‘ Ï}¥Ÿœ{e²¶P|³÷ˆF7]µŠDŸw€ЧmÁÜîq[lS(aY‘N7=¿U|R:@Ÿ2ÿ!ûÌÜ+9½Öe’Ã{N7½Cš:@Ÿe÷æŽm Øc"%,[¯ÑMO>/²0a ôéWzÈئ”°$m¥ôºé; Ä0Xè}ʶÙ;{Âï$_­ÕM¿"ÄEÀÐúÔ{÷¦ý<äÒªÃ{›ÆÆRž~”¦t€>cãsç¥SÞU6]ÛäÅ2”¦t€>ËÆì1oøᆑrîkÓµ¯‹¨nè}Æ>µíñêðÞPϵզ‹ä:@Ÿ²çöMïuxßïãƒ^MûÊ…@ ô»³ÓÞÇÂï4‡÷û\_ ¹üVqÀt€>igìCB.=&Ò¼«rü©®Ý™GA @èA í@Á”æ¦`•ùky‰.ÝŒgD¬CŽ  ôI;Z®êtn¢ißP™­O7S–Š@èSv`khm c·ˆºÍ8å-G¼š^éȱt€>cáµ-N·™ šo?Îùz];CŽ  ôGúp˜–%7Y{rh¾¾™g<Ñ´³¼vÑŽ@èA·í¥¡×ºŠ­åD¿Gjõ^Ü„:6€Чm,\5ã9mY'h\e»­ig„øØt€îXO¸j†y®R äXO_@®Sš:@Ÿ²káªG GÔ"ý¸>…\á:Ha:@Ÿ´ÑŠÐ&ïÌ™°J”ccg9¿¯ikù™è Ðú¤³+®‡]ÜN–cóê+Yí„ ôIó kçäØzsh¾¿¨‘gWjrÓGÐn ôÉWî¶ð^3NŽí*‘ˆt OÓ¤…-[‡yl O’!ÅÆØ ²:6ö$ƒ—{õìí(Üt€Ð'-RŠy[U·ˆhÑz‡›Ðú” ™£ìXz7™–5sþ>7Ùt€Е º¨¬ƒÎMW¡÷}n:²é +»6ÎAÙi:7ýv½6Õ{ÀMGc)€Еùo†õ~V¶œÎMßÍë5õ…½á- m©moc‘Üô^*7½ÆÇkýzÜô~‘ŠÚt€ЕE’¼;ÙôËT-™îkK²f‰vÌXè9’÷ñ8•M§½«yÊš’lù­bt€°ãql»e=¦Z¢YÛH¶+h!кcQâqÉVuÑÞAm­¥†Dk>è݉Çí‹p¹®×êN'Z¢!MW%[^:½t€îصHú8Æ&ª¨ZÈ1VÙȳõ¤Ów¤Š”·t€îèãÎDº¾…N7£*ÙôŒYõ@7ÐzÐöEªWeŽnæÕ5>]5«h к2U¯IÓ’ÞdU×Q-ò4ƒjÎxú1Ó te={ç.*««¦ È©v‘z„3…í"«  ú²ORÞÞµaεE?IIHZýžy ³SöÞ;‘®OT‘²1öˆó³Zv· 9cA_V*ç%ɤE³®½— K“¤ÜeèþÓéN!™BN5†}¤e{3ôå;ËØæäÚ™ßôåû›û&QþÌ8нQ’éjn:ÑôµJ¹.‰r†‚þ½\x)ð‘\*gêóå*çóŸ²Ô8Ðdúh¤ëÉV1UÉ*óò -gT@ 9Aÿ‡|ÃùüH¾5}m•ü(è©KùKó@?¶Õ~ñFΫ—,ôÞP«I ›Û…œ‰ ÿ\þÛùü«Lš¾¶è§ÁÐÜ·R&›:ÛfÛãotU[Md¡÷ÛiÜ÷…ŽííHEg)AO‘¿p>ß”òeè½ùFÝ{±2=`ÏCz^¢Eö~4%«æ¾P~ô@¥ü>äÖ†ÄÉ#¼i VDVÂ:¡÷ídËT6ò’ý:öwAˆ ÀÉ0Ð¥œÌ«%ÈEs﬘'¿ÜòôË϶×K_ÑŸô¾h‡wUœ~šjÏîlž­…ôa´z7ô„h ¯X%—ü%ôéßÍŸm¯}EÒÞ±h‡wÏU«Š¬ …*pÑRÊ–w=äL=iæè¾föõ7¿”KÅù·¯êѱëQïéMVqÙ:m%¼Qé…Y" ¡w£@_;Œ»4ëòšùöß™± ³{¶½4ò:Ê$›*ek¬Ô°¿M½ú¯ä¯ÏÙé5Æþ³D–n`ƒýð®’lÝ9d }¡‰tz÷€)s@ÿ³üÀùü—|gÖJIrÕ%f2è1諭e ’ôz¤_¢L™úk“Øy³$°+Räꯘ٠«Ã{”È»êMWÉÆžøôLp9(2¡z7tö–\}‰mÞ,jùæõßþü‘\²fYÐ<Æ‚îݹœ²-–µ˜ý¿“žÜ¾°&þû™ø‡$¹ð5õ—yò}ƾJ”ÓöÒXÐÙh4Í{À>¤¬Yõ<ÑszÏíC’Í ÐÙ¥OR–¼Ì­9 ÿVteÛ"Nc ²¹˜P8|§k ½l’lþ¿Û+:{¥`U{¯V§ëz§{6 ÉÐú±CQºÍ,}ÀªzFúN×eS ï"ÉÐ Ûö‚h÷rº­â º¥T>]ƒFîŠ@k)€n<è줽·'Ú½º=Vu)é:t’  tÿÍÈ}Þƒ¤÷ÒM_ XM‰ŽZ6ÏÒéÝxÐUŸ÷3QovU[½„¤·Hw¿EÞˆhEÍ*@7t¶ º@Ž±ŽjkO!éÙ¼¤Æõ"к#z÷V1)éû³¹ÏýŽ‘eYbÝàÐ]5…šccl¢˜²”ínä÷]ßâ¦TÑá @7t•c;ýî³*RÒ+ëy†û“ò D_.èFƒÎNÙ;—ºFzQ-çë]ßâÑV1‰@7tÿJûбè·Ó’Þ0Èùç^·÷øu¦¸‹é‹ÝhÐÙõ­öÆè= %Ý_Îy¹ëóÓ/1 1,@7ô8n:5éÞ³œ6¸½ÇN!>cÝhÐÙɘnºC:a–MÍOOs½ÅA!n2€n4è7=F6ÝñÓ)óéìx†û%.ž!ÈÞºá +7},–ßüŒV9ÞúÜ—Ã&ß™ï3€n2èl|§}2ÖýŤºwV“Í}O]Þcވȼκɠ³SÑK96 °jÕɵ¸MúyÑ ÒºÑ {7Úwb=ÐQmUß"\°(ó³^w7™Û‡R6€n6誱Ôá1î{ºz­âg„ 6áüˆËi¶Â>QҺɠ³ž ûaÌ7l׫êá‚ÞÏ9O«tw“eí¢Ý޺ɠ«±éçb>P×mU¦\ñx†ëÁ÷²,‘ Һɠ+ÝÌxÌrš,ëO”+>)q=øÒºé ûÇâäXúeËÚN©ßßÈ3¹»Ë  › º;ó‰äå–u5pIU·ZÞÒ:@wÑz*b²)ÛnY9”Ljf×Cr  ºÈv2Î#[,ÚÖ’Á³k@:@è.Ú)ÛÞç‘UV/¥tÆ Éé »gÞ‡öÞ¥qž™¨¶ŠP.º»žó³~—I‡r  :;°ÒÞz'Î3J:³…rÑÛG8¯uÕQWÊÐÍÆ ½ê‹)›°yÿ趣 .Ý`ÐUè},Þ9:}¹e]Î!vÔÝ-g+ë­ËÐÍ]§_óÆyÆó¡euSV¨;Žº«õÂ>t¢è&ƒÎîÙö©¸¨²ª_P®ÚPÎy½›WsÏ‹Lt—èæ‚ÎNÚö½¸Ýê%ɱ÷}çâ6óú…èyÝØÿ ïÃxõ-êô^G’cmœ7»w|÷äÝâ ú½tcÍ¿Ò®ø4îS*$7@ª’+ä<ÍÅã{ò°CÿeïLzÚh‚0ìÃtKýs²Â0âb$9ÀÅ`[^dˆ%,Æ„XEØ a3‰E, ˆ€øˆA$rC.H‘ò{¾éq’+^jæ®÷<ÓÌÈz¨ª·ª{ð.º°|»®†Äž’SÊ‹%Ë“qï) t¿Ë†  «Ó8‹_½}Ù÷àÃ(ø±F¦ï¦3JWÞ!~º¨Zodç£o_öqY-Ô!7®šê†$©ËÀƒgªløýt]`…XYÿÛ—ñB= ÚQW¸û>¢ö¢Ÿk¨Ã"è¢ê>ÌjÓØj"{šI è&Óx—$íG {Ñj3nfCÐV7{ã`ØßzØ$Äê]÷ H’ݸÓäÜZƒã°º°ÊcoÃò˜îÜSÓwÐ>›)Ù`¤'×4ƒCrºÀúÄØB:1¾§ï‘}Iê5lC[Å%¥1l¨#è¢júí³¥RzmQÓwH÷]VÊ-Rñ†QçQTPº]?8‚.¦”…t6¸puîB»ï¦¾çää%J·°Í† ‹ª“·>àò—”D3©‡žq­K–GÅ 7­Ã6‚.nLO›tÓC!ÇNпÞÚk`P¯6Óf¡,Ï/êjP_üjÈ»›qAGÒÓÕ§õlP/${Òw Ìà”‚.,é éͽ§tÑÔùæUi¨Ýˆw­¸¡ô u]LÒ§»KÛ³úx¥Þ¾/I–r#L9y u]X}b¬¶?í«/ÔJ}ùö ’vIêÚ1¨P;ÄŸARyŒ•¦}µ5ØLˆÏ ú_‹%É1¨PÇŽ:‚.¦ºÃìü*ýË磄lÂn^5·IRƒù{Å¥[8úŽ  ©û‹_§y~¢žcØ)”'ž¿?ð²‡cÔŒ}6]H5²Æ© ®ç›Wëa;m²–¿á¿W—RÃôAQëqòfrÃä&!Ë°ѧæï–5ýçgÞm«é{t]@ž³p^&78}Í„”Àæï¦d¯$Ù'½_V^ÅôAT£ÿe0$§‰›rÀù»©çÑbH©ÎÓ÷Û|| (ëF $>G3<8²!êº`º:aŒ\åºÌ…f·^À>]ßš=U®ÃQ8ÐPÇA)/c,ô)çéSëä.Oá;€]xeg€»ðК“MnŽziÚrº@ù;oªÇ½JÎ uz¢„—ë Ø#*\É!‹Æú ä,| utàtÔ?ËKõ"€•æƒÜ…'{XÖ¿>ísÞÿ×Gc”:Îp„AG§¼T¯]XI~(lуõº uÀ^6b5”šc8‹ ‹£õZõ»k‚^õe}ḣoZ2S:vàÆßAF÷猅NAÖÊÿžb=š€õæêž´z½¸­ª¿^±ê ”^â&V])ÞAÆÞ¡nÊÿ×;| }Mú¹/u­í( V~ÙRQ/]Å!x]Ի〨«õºOóæZ aÇá]ϼ¿.5øÀ$ñÕÛ6Jkb˜Á#è¢ÈõMCýlÁù ÖskÞõ€&ñÊø†67WÜö8Ø1³–Áã ‚. ê<ª‡OÖáVìôh³4jÿ4°G&´‚]²ûŸ"Åúጊºc =x]Ôy³­pIëmá&g½8°÷@Â^—HeñvÿDn°7•ª¨× Ë:‚.‚N§C¼X¿W€×µþ Fµ,¾~/ø öö ¿=ûÐH.i¼\}P£¥ðnAAý߸/ÿt¾²óÖ·L~GöWHØûþÀÞ°_Þš­A'›*ª.y ¿u@ÐtŠõ¢Ÿj¾+RL:ÂõMv껥mí%’í*3Þp³­¬6!èºül£Öuë)ØSi<é(ñ\6¶ÚŸº4Ø¥^ÿÈx–ý÷‡Æúa‚Ž ÿûryùÞ¶p­WŸÏ Z_ƒ)ƒN-Ú}·€¡½îe­Íò'´'³Ø#«åz,ÅújAGÐEëq•õÆ…)EŸõóç=%Ú`s“¨uÊ|û\1uÌòfÝÉÙÝ«¦{~â= £«zLwñï¶[ÄžÀonr²}­ù(D‡è&«WÇØc}µò{]4uHá5:Ì“Ã{ƒ—b~|wMðËN 3ëî}òjyžmß÷œ1Éî°ëöùÀ=¢ —vY}£UÓQU`¿ËnhÕDûd†Žú^Kò]3Çyž{ =$±ðBnšùðÎæ{ÿÃĸIe¼^ÇÞŒwøó¥SÍÁ΢ •¹Ö7Ö$»<Ë®—N*lªó=´²)’üÜð®Éõã}wO»Zî×Ugý̾ïÚ×ìÝx‡u7‹/u†è] ä÷–°·çÈ_¢l³÷ÕSûJI¾ßYái§ÎY¹¸ú»ÕQž;Ä–Âg÷ß­Ož0½<ó)Ú©íÍÁ.¢ Vv.Ù%ꙣ›ç˺ã~y|J£‰ø9"c ¯<×3lLxñÏÜr¿‡‰ã?z±ø¦Éöý—®<Ñ!º É’WqgvIl‹®Óž§v üYá-ž3¾F3T1·Ûv7ˆð¢’vx7>»ºp  ÎÕ4ÈmµÝaW]ñ¾ÀÝ¢ W½JÇÍñ¬í í¦üÞP1XíÕ`ñdªç”,óŸCÊ$'Þõ#o1Ó‹ÅÞ¬òy‰É'D¢#g®ß6ÛþXwj_àˆÑ…í²žÎvINVÙÅPãk¼š2k-__›Ùà­ ΧºÌÁø‡yåQI'Ý-•''ù¤Üòê®ï×í2Ùî°î/ß^¿¼¢CtÁÚå2Cwl—¤·d½ ¤ûhv»¤¶v“'ÊÇs~yBec“IúY÷!õ$䣒ÒÆ+Or>-idäÙ³¯^¾d~×Ík×›y{z‡è`¶Ù^¤ÒuÄH̺÷hUEù _•³Ù FéÓPù[çÉpŸÙàI¬¿×Z1›ùþDrâ@auynRÚØoßxs§z÷á'Ožé©õ—nŸúëÅàƒ¢ c¯ÌàkÖ]ák¨R.¸ïf‰ý+ú4ŠèHŸÆ‰Ò“¬§Ú{E×”j†Êfì}@\Áý»y²s“N†‰'0Lµ'Þ¿~ý¹ÇÞ¿ ZôÍçÜ7ß;åD®Fy§®CmÖ]Óò¸¤³WŸÏ£ý+Zï•*ÈtoÕz÷dÈçÄ¿×W–:ó]ã2ê» û©õi–·í½Gß©ɾÐ_Øu?1#9ÄU8¢ogœVH©Çk]Xü^Yeé;^W¥’·gñ¬Ð ©eCÝ¥5Ñ^> ™) Ö¼'æ×’ÈgÕW°îWøOë#¹à>ѾTþF2ð{EÓä× ý'÷Ÿ îc?Þyýúõ³§OŸ>y2<,ž”0"ÒÕ(bµ_áÝ®ûõ$ûoð\ôGÌš+äÃ%œ9`s ¢ š|"¼ÖСN·0^’®ö}¬ÓÊT½EÆ,¾îì_QÖwOC"ŸªßX9YèúŸB@×È ¹7ØJ{€¹ Pçw6Ÿ/¾V÷æÕ«W/^<3«oÃ}6üÃNÒ@âŸvÚêIˆ 9ÁÑÿÁ|Â~~Ŭµ¹Ñ—Æ ¾_¥{Ü!Oºº¥£‡Z¯”ëù®|þ.þ©­ƒÝšRø©ý™)Séonµ)•™™ l }€4ògÓÿoÞ¼Ù¿eË–ý/_R÷‰üœýDwoñÔx‡Ñ.À¶Òªãì/ú*æŸìçŒÔæD_‚Ê«d%†Ç¾êÉbÔ-¾A]I1¿W®ooËâ£ûãîÒù“ìo$á_ZÃÆ¿OCC&m¡ËgB|hhBBÂsŽ_ŸÿjâíÛ·ŸQXÿ¹@Z€ûdÞ—Û_t7æcöó÷ ó/[k})Ÿäz¹²³ŠZŸ‘.±Nz‘¿#È@ô×ÿUJ¥\®×·ó³²xþõ\H M`PCºH`û@#mµ3è·FÛÁèqëÖ/·~aù¯ÒÞ³¿èk˜;Ü—e˜G¶Ö úx íÛÚ‹z•*™Vgè òͱø'€ˆˆœœ_Ò‚zH+Бf %í@&ëT©hO ]P¤§´)mY&øp ¶‚Š²²>Ú Øn@Ú×|šèh@Zé ÓjñÏí/:Øž¡92¶Ö :˜<ñÛŒú"¹’È_¥-¡úwø¶ä¨'ÍþÙBºÅ꜉øΞ y¤ƒãg ~úù'KþcÑ­Hí8©èVYr6ÿÆ-²òF½žd5é*Ipä$Ï Ò ˆÄ0*¨šš;ßmaá^-ˆ¸È¡µ¿èÒ±1ýO¶ÖìVXÚ’ÏÎîÆv=G‘|å8TVé”ñž|û‹¾sìÆÛ[kØg‘³°¿Ý”_ïxõ)óöÓòQšµ5ˆ€}x'^]f³Ÿ˜­6× :‹Xôe¦_w]añë®ÖÖ :‹XtÑZfûÑ¡ãÜ ,ß´iÂD`ñ‹~Ìq:+eÖ,£YÁ|1a ¢°øE]9çæ¸þî9šIôqkˆ. ‚€èˆÑ€Wˆ€èˆ€è@tD‡è@tˆ¼‚è@tˆD@tD¢£ :D¢Ct :D^At–”èÛWÚä܇ïó™­¼®n-6oöœ>Íëò>´íÍe¾‰~è;Û¯ZÅëí^ÏëêÎnÇæÍšmÛx]ÞFÛÞ¬\¶ÈFϾäuyÛy]݃°y³fålD‡è›Ñ!:D‡è¢CtˆÑ!:D‡èØnˆÑ!:¶¢Ctˆѱy¢CtlD‡è¢có :D‡èØ<ˆÑ!:D‡è¢/aÑ?à÷[8—y]ÝÇÿÆæÍšMŸcó°ÊæsnŽïrGåy¼ïæ(Ý~€§ÕQÞstãëæ9·mÓ߸𳺽Ç7:®?ý_äX%ñUŒïv8ã´BÊH=¦XãQy§p)Ãçeu”Õ+7žþlW¯e˜p7†ùÔ…ÕyHÙ5Gžü—°1Òiý¼§™­›E‡3;]l¯ñ§¼½ṄD¢ï˜•|Ü<Êe†¢[+ïwŒÛ2‘èË5¼Ü<çpº¶úãtŒn|ÅüFt‰1Sý¿½»×i#Â8>â‰p â…0Ø2ŒˆcÉÒH†4È¢ÃM*cw4.r ˆŽËÀ+›ŠHC$D¤ˆ&b¤ä2Véw>L dÖ+oÃÙÕÿWðšƒÇ~fæ;Š‚~´Ûú0µf¨½EÕ“õ‹Ú»‹]9ßBгÚë9w›¯n°»rI-§Ï?¾»ŸztCÁ˜ÙµÞŒ^¥©5CíÕǯ‚Š´a¯»ø…P׊… gµ·2Þðô^¯ìîf<¶®NŸ}zûÑ%úÇÇA7ŒÙï6èdýôàOʪj¯ò*½r)íu—„i~ßBгګiÕð+¯’žÑ½gôs-­_=~b cfåñ¿.ÝM«jor ß6ÙÝÀ/L=û¹mµæsåÒ¡ÉoîxÅ3åן½¿ïŸ¢=ØãD ÆÌ]¦—›Òí´š¡öÆZþ³ö3»+4tè™zF{i5PìÌâ+Ïë5äCµüçVO‚n(3“Æo8U¦Õ µ—ÚÍiرØÝ–^z6‚žÑÞH ÷;½Sé›Åáõýø(T«˜ º¡`ÌÌeôîìü=ÛÊn]áÀâðZAØ7ôŒöî¤ ¹ÃÑ}ö}OÖðîÚÚ¬l´N\Z ºû=?¹iN«j/Ù% VLoSkž‘ g´Ñç“M©gox§:Iî¯^kh1膂1³½Éý…þ´š¡öâ—iYÕ+“ûHßy1ôŒö NçékÕ×¥½§¶œ%£ë5§Á  ÆÌ6µ•¬ß1ȪjÏó¾‡j·l¯¤‰ŠÁáµÇA/øš3×]t¦7UÕ¶Á  ÆÌÎÔMÖ¯ªM­jϛ˫Þ7:¼%?á$ߟ38¼®Ò[ r»öº ”¾í·áôÝ`Ð cfsãOõå|ª/«f¨½Ý²#³ÃK™¸tÏjoUùÏén¸f°»’–’õ‡òƒn(³+©Ñ÷:Géçô/V¶«™ko^as'U08<;AÏj¯ÐÐÉ ù€û»»tºŽŽáßòzë™ º½`̬W–’W\gætð[ÍZ{#² ¾38¨_&µ3m¦ºZŒ¾ÞW]Ð>]¿ú}Ú¿¨/­…² 7%`9èÇ¿ÜpzYüUÈíÄk'ЕçIÕa5úÒÏ úa ?WVrH`5èÚxÞ§¼Î'ÅzúÍšrž·*?>[oZÉ z+ÐÁ(úq^&`8è•x½Pùaq9^ŽãlŒÏÕ:Ê új^úû{ °ôz²nøºýUì;÷Ùóv}õâŸtÆ÷7YA/k-ù¦ã4`š€Ù Ï§rºéÜ&¢+ñ’ÞyÞô¼îuö_/G»ð¬ ¤\=á´Ê4³A¿¾ß—_ì+±íy¯Ôð¼š.¢za%Œ‹ÃzfÐ{š`“Ø úiú ­ÕIÐ7òê}vþ(¹dW÷ÏËQëIÐ&¿q}Gj2DÀ~ÐÓ›i#§Öƒò‚Þm%'î@[ãÊ}ÐWtœT^Æ{ôðþD¾Ý,2MÀlÐ]+]‡Ëûª-+~[m]ñ{éÑ Ç; úôû(ŒƒÞÕ0 øü;¦ ˜ º†QÒoü'÷Òöœ«Æ .æu­½eŧþ$èMé¬è Šƒ~ëëh7:0„Z`˜€Ý ïùn¸e÷q=Úš§›÷R¹vâ´¬öý}¸®T姟Œ[óåŸD¿ßè0LÀnÐK•ZÖ¶ŸÔÒ‹ôÑj#tÕÒöÈWsôâל.Ýn§Ÿuo.”²BÎÓAgA@Ðtð?ôéÅÈ1ªâIEND®B`‚metafor/man/figures/selmodel-preston-step.png0000644000176200001440000007250014465413203021107 0ustar liggesusers‰PNG  IHDRèèz}$ÖPLTEÿÿÿÒÒÒmmmÌÌÌ"—æaÐOßSk\\\(âåfff///­­­wwwUUU™™™DDDèèèÿÿþªªªXXX ´´´ŠŠŠþþýKKKýÿÿ›òóüþü'šç“““òòñùþÿýôõOOOÏÏχ‡‡ õüþ———Åøøþùú/èaêìfÒU—Îó777[[[äj—à‹GGGüìïøøøá]t¡ã–àVmìììØØØ»»»õõõøýøSèê/ãæòºÄ===óüñ¥¥¥àYpª×öN¬ëðøþíúë6äç7¡é+ãæpÕ`v×g___ÌðÆàààúäè,,,¼ö÷êõýDæékÓZåp„´õö³Û÷W°ìãf{222m»ï¿ì¸è’ÉÉÉååä’߆麟bbbñ´¿æx‹ûûûòýþ'''E¨êÄÄÄâawœâ‘ùÞâáöÝ‹ðñæøä>¤é«ôõ“ñò_´íiëíÔòϦåœé‰™Kçê=åèÅî¿[éëÓùúÚôÖyíïËóáûü¬ç£¼àøãòüqìîÃãù»ë³|Ømð­¹ppp÷ÑØî¡®¶¶¶íœªŒÝíýýÛúûÝïûøØÝu¾ðë f·îííí›››SSS{ÁðÖìûËçù‚Äñô¿ÈõÅ̓ïð±è©‰Èòì—¥£ÔõÌùùÝÝÝkkk€€€Kªë¢¢¢‡ÛyƒƒƒöËÒ¸¸¸èüü¶ê®Úr¡òôhhhÐéúÑô„ÛvDHA@@]`¦óôzzzïïïÕÕÕ±±±žŸžÛÛÛ–––ľÃjjjÊÊʉ‰‰ÁÁÁNׇ-áÝXÔlttt9ݼ¦Yz½XšššEÚ1àÎlllEÝ­¢ŸjÈbw¾¾¾?ÖlÈU}}}[‰Ç^ØÜéÒtz²tÞ—’qŸ@ßÑdæÏ®fŒ(¾ånâ²a¹©NåÙ¨Ó³aN°Îm¢Ø¿¨ˆËº ž§jÀ|€·Îƒ“Ѳ¯ÜͼÁ‡¥¨½Þ±–¸chôøø3supPVik2¶Dx IDATxÚìklTUÀzsÿ9w/é0Ó®Š * í¶ˆYТDMj©”Ç£[—meM7ºêúÆŠàîÊFd|lV¡¡‰T²`ü¶ö‹ûº÷N‹LÛ™9íLgæ÷ûà¹sçЩÍù͹çñ?¥`¶ ƒMÙ0}ÄØ+`sÅpý žj Þ+D@t@t@tDç@tD@tD@tDÀ+D@t@t@tDGtDç@tD‡ü§><ºÐ(™‡è‰”Ž-¸ÿ¥²qˆ€èˆˆŽèˆˆŽè Œ$¾Þ¶)æ„W5!: z‰þ¹$Š¾­MB% \ƒè€è#ú#ÒGô2ó˜šÓ(m­ˆˆ^¢×_/}DŸ-¡z·hm–DD/Ñ$òH¢èG%þל'刈^¢o—+F$Š>ZÆûåò>Oôˆˆž¯¢¶ÜýɉFÇ$žü©T¤ÑÑ bŒ®ú‰’å~Ù*2ÑÑ Tt‘žu5G®¹ Ñÿýá_ 9ò#Ê}ðDw’ŠÞv³4–ê‡VüKD<цî£JRÿØÿ|hÄwÿûîÈ‘ÿ^ž/}ðDÉ–Þɸm—#º!g´þ§m/jg ŒÑ³)z¹üÍ/Ó-¯ ’è/k½as]·y*í={¢ï•F¿œ'3³ zPuêóí‹èÔѳ*ºûÒ{d¦Û;H=º:«ÏïTÑ•n§¾1HSDrÑßwƒWL’#õªf•ÄZ³!zôœ>¿Ç-½N½em†‘èöUœPlìq£ÚfáÝÃ@ôyÇ+VÄ$´4"*+=ú­ï÷Ê©/ÚöÚý4f6¢×, …#ŽÜdä¹Yx÷ðÝÿfŠŒ­²!zðê¿jm½â_ï_kÛ+£4g&¢—‰Sæ>ÖF?zפ¶axwîD¿D©G>©uåáøõ¬5îã{톇èc$2Á¸²ixw±Š vêóz_l¶í%̾Ãð}[DÂ{Ï1«lÞ]¬¢ûÓî• z_쮵çï¦EÃp]}Tœ™7˜Ô5 ï.ZÑ+ÎéóÖ}^.œáÔYgƒa ztd¸IE—È—ݬ9–À…þÞ4¼»x{ô3ºÓzíû—U-¶ÝÁ69ȽèûâîNhîé¬}Æ%†Ùlê½oÞ]¬¢£Þ´û´Š‹¾G_´í5¬¨ƒ¡èõm—ç|=ð§…Âñ5 QŽ¦Ý4¼»h{ôàA­+­ßZ]gÏXH³#Ñ?u.;úuÒ€Ÿ6¾÷þ1p×Aô4¢Wtºƒô= ÷ö×Úµ¯Ò®ÁèÑ}ö —ÉW/¢­’U=W•öw ð螎³ú¬uâ­öµö|vÉANÇèc{»<‰¿_ŸSŸÀE“qfáÝE,ú9ÝeõlŽ»À¬vÝ.Z6äPôwäHüâ˜ôHœjŒnÞ]Ä¢ŸÑÝ·[‡ûܬZcÛ«iÚ;Ñ·K(þL?FdEZÑMû‹Wô轺s™µ¸ïmo™m#mr&z©#{½²¦DªÓ×6 ï.âý Ög,kAßÛS;l{3r%º:)2yŽj*ùÊ ¶axw‹^Ñ©¿™vÑæ¸ ]ýVÛ~‘Mr+Ñ[wˆ8÷ù|¼ImÃðî"]Õß¼n-à¡þmL‡Ü‰®¢ £#Nøú+Íj›…w³èçt×-Ö´‰ýßb:äPô,PT¢ŸÑݯXÖs ÓÑ Xô»´~x±õ–Jb:3r€è… úA­ß›n­WÉL_IDÏÑU§þæMËzs`Ó·²žˆ^¢«O«õÖôߌv°G½D?§»‚oY·&y×Û9þw@ô¼ý!ݽî9˺;™é-v±l€èy.zð:­ïœ8ͺ%Y…ª5ö|âÓÑó¼GIë§Ô2ëõ¤fÍ°k9sÑ=¿E÷¦ÝÕ}Vå”ä¦/±—pŽ¢#z~‹îM»/¨´žNþtß^k/"‰ ¢g•Ì’,F·WB%óZ=ùŸèYÝu£Zl½‘¢Î uv §@#zÉ,ÉbM¹HsL¤<ŠèIy_w?®[·W¤¨³Ë¶·²íѳøXQ’Å«$6B©ùÑ“öèÐúyõŒe}ªÖF6Ã"z6É(Éâ Çñ#T÷™õÿEÚ£ÿBë(u¿õ»”µÞfã ¢g‘Œ’,>Òs8ôŠ–!zr:=Ñ÷XJÝñ·°œŽèY$“$‹3¥ìR>¢ØDÿVŸªúú܇ªEöZÙ=Kd”d1,MMW4ÇÊ z ‚Oè®uª¢ÿ©Ï}X¸–E6DÏ™$YŒŠl øw¾Fô<¨;ïTêþ§>÷áÕ:»ƒ©wDÏʧe’dq‚H¤í@ÍŠMb¾©ˆEÌÛ«ž¶*¤©8—©wDÏ%Y, 5yÒŒèÉ™âO»OèÔç>l¶íÝ4yDz2J²è~Ä }qZDï7H¿MŸr‹O}î3CÒbÏo§Í#ú“Q’Ũ#Û{/–#zr~«O߬ÔÀ§>'R5Ã^„¢9™%Ylë=$#=yþ€îz\©»>õ9‘öZ»%J«Gô!&³$‹rÈ/›Ä9†èɹWw>ïIN}Nd7G@#z>-£$‹[$Pê•'ɦš’—µþ•[L·ÖW¤¯Ì„¢gŒ’,Fo’ê?*ÕàÈqDOÁÄ;¼iwõJ²SŸÿ¨-8ƒèCN†IÛÄ)‰¹ß ÑS Òïѧ®Vé[â¢W-±œŽèCLfIçìkEÌ6Ʊèê×úô:å¶ÜjRûÕ:{+ Ñóž¢=ú#Ýý¨[î´¬gLê¯&«¢#zöèwéΧܢbšõ{£ú[Ù7ƒèˆž¢?éo‚Uê5kƒQýªEö öÍ :¢ç™è?Ó'¼Ò °%Nû|»ƒ¶èˆž_¢£OÝì–S*Ó¶ÄÙÅ0Ñ=ßDWO讇½Ò °…a:¢#z¾Šþ¾î~Ï+M[âLu‡é¬¦#:¢ç•è×iý¯4 l¹0Lg5Ñ=¯D©gÚÝ,°%Îj€FtDÏ/ÑÕmúÄ^9ÝZoúO‚lzGtDÏ+у?Ö§÷.Ì[âT-±×›ŽèCÁ…3ãú1Y®wÿÛº7æ„=cÐ]?÷/Œ[zxÃ"=7¢ïóžØ‚èó îü©‘.cK+í:²· zD/‘‘sjZ=cÓúÏþ…i`‹Ot GÈ!z.DË/£_ µ>á·+n7 lñYÈ¢çBôHúÓÞ}@îÑ'Öù¦-qær°¢襇ÂNìdü°Ç'…PÛ¦ÒÑ«ý³!W¹µö•Žtkmª{Úv"å~*§y2î@,Týéx™ÜÔ •4¨èøf'<òXÑ‹þ¬>ý¨aاî%õ"¢¾è%a‰DDšk”—ÎAÂîk ×ÇE?ºÃ‘Ñ;®uk KÀ­Õæñþ‰#¥î‹¿û¢ ‰jÆ˪ˆD‘†F ¹ïÝTô¢?¤»Ÿò/Ì[|f­µ[HÈV´¢¿0÷2Ù5+‰èsGáû©Ê$äåIý* Ÿ'>º»µÚŽ»:8ò…RŸ9r´FEB2ÏÝiSv­_c„ªÙ!¡Ð'­ÞÙÑË‹]ôÿ³wöÏQióмIâ.9IÈ&¡`/Ä…#Aϸ„ãä%(°E¸ãå.z‚Š§BÀNR\°•: †R!U©¢Šßîÿ¸íéI2“°Kf&©ZÉ÷ûËöËtc•õÉt÷ôó|—ðkÊRÿ[LEÛÐ}±ê[«“Þ"~«„5ÓOtÝlüITzn=UÅXØì`ì £ Ð¥•CžüÍ jÕýb¨ƒþçí²ÔÿÀ©“ê¸ 7DA/X]âWë“€.íëÌC¹hԬܡ1½Aïy*jXñQÚ [óÔŠŸr˪ñ0Õ uÐEÌÒ“ãûØ"ÿg—à‚öè¾G—V ‡äo´íÆÈp1õ]>5‰Æ±SD–[$±Ü¯°zòh”ø‰[~/cè¡¡:{ƒw>+K+”#®FTÕ@XÐÃ= ‡ê‚â”=3Òôp7è…¤YcK›ô :lŸ'úh€.µ“wü[–.(‹r݌̪WË„ è DUß­Ég©@oíõFèIô_~óYÚ­(߸:ù9X:ôA=®Ó$³Ò” ô¸m~ '×—œ?c_RN¸{° Ñ-}°@_k ççz“ÎÂ4Ì¬Ü ½ '×8o\w)/¹ü"ï}ßè§CŒ­EbŸô5݉2–mˆ“u€ž\KùÕWeéE9àn,ï}ðöèuDÅ¥šÅ×´¤ ›7ã"9DM!€žJÛù­s²”»H™ærð&,Þú`ÎÆVµœðìrf¥ËIq=¾wÞ:@OÐÙ\ÞùžU\®ŒŸèvøäuV:@OwÐwòŽW¬¢Ë t©½Xè=ýA?ÏovƱmî‚Ò¥N"Û @èiú#œOc•Ý¥›*X™$ÐzÚ€..Án¶Ê.Üm:ŽT‘ §;èì¯üêó]e·AéR;ÔÈóÐzzƒ¾wÎì*Os”.õè õ$˜è=­Aÿ#ïøº«|ÀmPºÔ:ÏoNí>¼ð”.õ1>¦tß ÷äŽYK=šÿéò‰— ;zDcÉ“÷Äø;ò±è}ô%çSÿÔ½vŸâÆ)Ý&|L2 g›éWoÞôKD³º;fÅ»ßèŽÑi³äø=²©–öô>—`_﮹sJ·ižªCôÍßúÏ=AgAùºflvkŠ Mt40€~-á×ݧql‡„RR+Õ` èlÖðbͨ©“6éûFéFdl^ïžyU†Å jã Kõ`élÐ醴§qOŽWÞñ6OÖq·ôAU#­ëÇ ÐïªÜßØNãDPú?=N”µÁ-}0TšyÛü­¤+Ý»Þà¶ï_(Sr=N´¸ iÞú hyÊV>’‚£ºw}Î;z"U=&”’ªWŸÀy@øÿŽbÒj« Ò÷1€î]vœÆ±…Ê1¯3MÆy@ åÕÚÓ­  ûÐß8ŸÚsǦ)[¼®ÝÎãzzk(ƒ>áiÞn;ó˜PJj5<Ó:@OOÐÙ_xçE[Õ[B))œÇt€ž® ¿ËoÙNãØ o ¥LeÕã~@èé ú/ùÍÀ枪ׄR¦ 6ªƒ€ÐÓôG8<ßSõšPJê3Ä«t€ž– ÿƒóö™¶ú1e¡÷ɯ Ðzz‚.|™¾¶U?U”ÝÞAߤªóÀ@èéúvçi\î"å‚ÙN"@÷ "+ÉcYAmvÅ¢woèI´•wØOãØÉ`¥¡î$}°A—º+-ã×ì§qì¯É`¥ÖÃÏ 8è…EÙΆ(Ñ¥»µô¤!é¯Øê¦( |L'ü@ @XÐûÈ{ôþK„¤¿ooX¥|âg¾³ªz˜t€žf ‹ôÀ[}¹×d°–‚ {=£*G Ž³ò;Úì’å^|VU­¡G*¢Œ6= »3O5 /å6€žRŸóŽ€=«¾÷d°R‹‘ {ý;ôš Ñ÷¢Én—l¡S°¦–„{ê¡0QøpÌ}„!‡è©$BÒß³7xO+…”°Ýè?hôm”…æTÑË.Ùzí‰'ÒÐÖÒÝlé´'Êâ f®w€žT"$}º½Á{2X©‚°hè@[õ+Œ:í’M ‹¥3rÝáËNЯ[.-•4  §Ð„_ó«Ïؼ'ƒµ´^-ÛRºKУ½lV¢:µ9í’M ›)Ò·ž·ƒ^my)Çb!€žJsygàq{Ã6ÏÉ`¥BÏáÛý úÄU ýjyRÐO•ËZ„9ì’%Ðm‘~øÐèÞ §²Dè6íä‡#ÖÊ” ¾fÄ'¶ûô£ŠomK z!iV­”*vÉÖ¡[ƃˆ´uåÐË)…¯"@·é<¿8goð“ Vj5¢ØîÏ¥ûòi~u )è­ö7ºÃ.¹ûªkôö·™Dà‡oôþI¸¤¿àhY¡ñ7%>±aîz·íÑo;í’M OÉå¤ÅK÷Zk>¿ù!€žJ9oÿ­£å‚²(×ßœûÅÐ]‚ÎÂâ]Ð ÒËvÉèµD¦×Z iQú¿º@?m½îKS:,t3Adà){ÃnEùÔ׌¡‚j=`è®@_£Ñ(cÙÕõ²K¶NÝ›¤_ ›_Ó4š_—í­݉³x£eºГê]~+ð¬£Å‡‘ƒ¥ÅÐ]‚nÞŒ‹ä5‰»]² ô© iÕ™…—C íëº'/Ôi¸w‰‘o;Zü9HM.q @w :+–£å„-ó%›]²:ÖT«µ×Íïk-•†~¦ë®E\‘°ôÔ "?t´ø2r:ŽD‘}”Ú.Ù•†<è"Aäï³M~Œ¤²6¨²À @÷¨þÙ%tWZʯڭÚåÃÈÁÒAU=^ºGõÏ. »Òv~+ðº£å¨¢õ;ëu%Ӻ׿_vÉÝ•¶òÿ^s6mQvù^l݇úe— Ð]i :pÑÙtÂÿÚÕ«ÿgïüŸ£(ï8þ0ݽOˆuÉ&=Ï q€z ù’&@bLˆ1$P"¡1¢m Ê—R Jlùâ Á"*í Ã÷©ûƒ3:Ó™Î0NqúOtŸ½ É]ö.´÷\žíæýžaöf7¹ ™{åó~ž}žÏ»«fºgÐ/pþÕàæî,Å6GX5к—@q-1ÍÝS a‹*½Ÿú(½·'b„Zc·ÔÕ·†ŒpÁzÕ óocÛI¥Âæhú,Ä«ôÑzo;Çšd^À3Å´Î…ÉX¢ôþ/ý¹ØS)…°õ «fú¨ý*½Ê*꨽íΩÜ*íem=lQ z¯ÒWÄžJ1„Í1ï¿F¯€>º@ŸmRÙÖ@åûGdôFyß¡t×ÛN*Õ6Go¢× @] _¡èonÑ \¸ë±uѽ·ê@q-±í¤Û'û£× @e £‰öq}3,1D'ÃnEݬº¢Û³qïÇÁ_¤Ný‘˜ÐïBéìµÓ,é‹V…Ä–º!NüBâpÕ–1VŸ!‚YÎGËæç#Á’›=BѤ™,¢>óÍ4þ*Ë=Kf–bÐÅlÜÁ¸sGdxwv aú]€^`ãt }PbËÇÑý«ÍD¶9TÀØy1ƒ!º×ý³ ‘Yæ!Ѓ}ˆÖF4ÿÎÉ–Kö¬{Ã-¦t1·-Õ娲ç,ÅBX€><èÔn‘¼>LÇb[¦PغÜKdWöVër½IV0¶ ,&»‘ÑžsÿT/Yw"繚AØæÝkˆ´¸Ò!{æ—Œ¬±‘tÿ¢íÙ¸Ø l"@Y‚wÇBX€~W Û ô‰Y«˜Ä–h™I‹©Î:¢ö…ÌÒGít§‡¤w@7\@Ïj§ñSÊê{Èܤ¸¢Û³q;‡x÷-Þzryà¸èÀ^bË‚t-&±Å*⋘·=o=F|UÈiúZaÐM ôÿ¢Ž 見uï¡fû¡újV :ëâßÆo`³¼{jÊŽ6æ"t ºÃ\]Il±Š¹èèlk§zöW:Ë&5”Ø2è~ ôR¯¡èÆÚ¬h£Z[ýœ&‰?NjA?Éÿ¿-ÛòîË$¼õô5X ЇýŸýl÷Å$¶Xl˜m-ÎÔÇ.Yf¸…´Äý¯>Þi‰3èñZîFˆ(]ÌÆÅm`cl­ïÎÞ ºГƒÞ}ÑNˆIlÏ¥7õÑOYµN2BŒ]<™íEÐÏÚ³ ,Æl˜t>:1è–bЋٸÝq'WËñî]ô è‡yŠªéLziÿÀ»>&±E´}>Ûj {³(’IÖÙpÿÒÒ7Û¼ú2å®K` èÇöñÆ0OGô¼*þ·ø l¬PŽw¡‹ØÛâÐ÷Ö¤ :ßšt£>zlŽKlaóiq»Ù&Fï¥öR”:gbëºXSîAЭÿÒËôîÈmèÝ Û³qC–Ì°e²¼;ÛXŠ’кjÐ;x¥ßóY¦wŸ¾&p t€®ô&^=#¾ç³LïÎ"Š  tå ïånKf$z÷\D±t€®t{6î KŸwG €ÐՃΊù÷úŒ¡{O¶HóîÙ¿ ¼ „:@W zïrY2#Ñ»£@èêAoâUµC—ÌÈôîHWè]9è{yÍw.Kf$zw‘®ú& è]%謚ßvY2#Ó»‹¦R€ t¥ óî¡]f¤zw4•è]9è¼rÆÐ.32×ÌØM¥Ð' t• ¯äUç\–ÌXÞ½Hšw>ø0è]!è8ih—¹Þ}":@W :ÛÎo»t™‘ëÝŸ‹>‘ +}+ߣ fbrçÝÙÛYè кBÐ;yå ý“4{w«¤/H «}¯yNŠ¹y÷£òîr ­Ÿÿ@/¹Ïoú ;Ê{š[ƒôZ—+«ez÷9KÑúÙóÊÍÌñêz¿y§®¿fï.Z?£¤CÊ5ŠAïæ{Vé;ÓíÝ­’¾3 +ýA¾í þ°»w_.ï6¿GšÐ‚~†ó÷õ7\.iËPÒ!€îÐ køm—V°–ÖÊôîVI/GI‡º*ÐÙ6ÞéÖ V¶wŸŒ€& +}ßú©Û¾ÉÞ]4¡¤C]è—ùv×}-»o‘x”t +}ç;]÷µ°Wµ OH¼Ñ~”t +=¿Š7¹îkÉΗëÝ'?‹ÌE «UòN×}-ŒÑž”y#d.B]è'y±û¾Ë»k½{öt”t +½‰W¯Ók]]}‘v%è¾}/ç»]÷µH÷îVI?€Е€žWÍS뺯…í“êÝÛˆ’tE ³b~ò)·¼ëoÀ£Ú_¤–ô5(é@Wz'¯üÄ-¯ÅÒµ_H½J:ÐU¾’×ìvß×ÂÞÕ´·PÒ!€îÐq~Æ5¯ÅöîI.ésQÒ!€®tÖÈ/žÓ_r½tBûHê­¬’~ Ÿ7 «½›wÿNÿÔõÒç’½;J:ÐU~‘7þV×æêÝ_Ô^AI‡º@?ÃùݵùchÏȽÙB”t +=¿†Oso>ÁØqM;Ž’t€.6°%h>ÁØ3Ú(é@÷è'yñcîÍ'{E{1OêÍrg¡¤C¼Ç IDAT]èM¼úç®Í',½¥iïJ/éã3ôý0ç{ßpo>ÁØGÚ ©7ËFI‡ºÐóªyÓÃúA÷‹iÊõî¥C] èbÛN}U®ëµ×4mŸÜ»aâèJ@ïä•èúf÷‹OjG$ß%ò8è_׌wä#ë>×ä¯Ð_w¿zZ+ÊGI‡FèóÚi@>ªèOs~&A‡HÆž˜ ½*ù~Xñyô2ZwLuä#ÐÙ6þà:½6Ûýâm­äÛ¡¤Cž=B™¾£³=¼û…"[¦¢¤C£t#Ìü úe¾ÕêëÜ/.Ÿ ­FI‡Fè!Ó§ ïâüÂl}v‚«G¥F¥£¤C^=ƒ¾ô'èyU|åëzm‚«r£ÒûK:ºÇA^=+Ô~Í— ³.Þ±9á ]vdK´¤£!,äUÐ?Î j(-ˆÊW wð®ìU‰é²#[PÒ!oƒNäÏçè¢çsU~‚fG¶¼†’Ð'–¯@¿Àù®ÄƒtÙ‘-vIGäUÐGJ#:kä—­Aú# ®žÙ‚’yô²/-:ö ßÞÍ»sW¹g-2ù‘-NIG^:äMÐs…íñ¹¹#×g _ä,ñ ]zÛg!ä¥C^=Ãb¼¤´Ä$úÂg ïâüP¢¬E&Ú>Kn‡’yôëœZ&üû×AZà/Ðó«øÊ$ƒôãšöy:Júd|ú ï^JKœW9ä¯çèö’™$ƒté­ã,e[%}>}÷@‡î ÍC!ŸÞÁ»’ ÒÓÐ:Î.éå(é÷@7šï¼,1|ºX2“d.¿uœ¥Éå(éA™eΫ2Óo],™I2HOCë8KPÒ!‚^GWœWWèŸ.bÒ“ ÒÓÐ~%ò&èc š¹©‚UlšIÆ¿ÞÍ»“ ÒÓÐ~%ò&èì†ADö¿Ìo ‹%3Iééh?a—ôýøB^­/Z˜ n1ßþöÎý9Š*‹ã쾧® ëà$ afBXa@ !Fž‰/1 h@¯1D§lyëÊÃðP¬,¬EAXÙÚZ~à‡­Ú¶Š¿eûvO @M_ÜòL÷öœïéÉÔúu>9}æÞó½ÊeÆ­H'°Ÿ°Sz §t–ï@Hž/»“"ž' Os \ŠôÁöPÃ)åGг!O@‡Íò´[‘Na?aiŸhÊ!Èò èñx¡úÑE}¥™{Òiì'F׈¥‚,¿€Ž8(È3J3å´ÒÌÆq¶ýÄ‚Ûîç”ÎòèC†”©]8ÐHyÎÅ8NÙO,'¸-§t×èYÕ§²/dvw·[ؾ%¸m›hä”Îòèeu¯R­ƒúVù d>‚ÍÒòß¾…M¥ô 1‘ƒå#ÐñDç«* ôÕòÍâU.E:M ›Jé£b…,_€žì°„;«ÆHð@?(åv˜žéœt ja¨¯'9 Y¾ý|Õà^ü¦\mé‹2 ia8Â)å—G÷A`Y<Ðá¹Õ*Ògg.ÒIZØ8¥³|z,™LâÀdZ´ò ô¾òSxÃ4?Ê8€¦…M¥ô9‡,?€®táxv&äèç¤|f˜?eqÔXKqãz!Nq²ü:À¸!ª˜ìóCS A/&g‡æW™Gì4úÍ¢¸óNé,žAµ”>ÃùAÆË•°É^’ùOÁ°ßþ6¥B\æ@dùô»ˆ“èÕåt˜Q:-7ÃÓÜ’yÄ7§°qJgù ô8¶§_µc¯ ‚®¬`a·y&óŠSØ8¥³üúC_÷T4DÐHù9¬7/eQü±ñ=É­ˆe‰,€ÞÅ×}^(ˆ ÃÛ²/¼e%óˆm§°)b/‡"Ë 'øº§çëîHõµXEúºÌ#¾¦Ù«RúE–/@¿†÷Ò¯îcm A_-7ÃUs‡Ë¢m°°WˆC‹,?€^ÁòÂÛu· ãºHÐí¾–æU—!gi¶Á,ã”ÎòèNïusÝékYgšS2¡Ú —9¥³|:ÔÝk!6_¸ÁÝîk)n¾å2d>Í6X•Ò7p0²|ºRyK¥‡ «¾øÊë2d§alƒ-°Rú ŽF–?@¿Ó»Rã ú9)¸žÌP:•f,Ìá”ÎòèÕÍÊè¹2r-PÐK'È™àv2(7Øin~ŠS:Ë ÷@ …^F¼‘ &è°Y®„‚é.¦Ï×iÜ`í”~„Ñå9èW0z±j$ü-Š“ ú9\MŸÊ ÖÒIQQÏñÈòôr|@àÈ€‚þ‚œ6ØÝOŠÌ  6J´q<²¼=š€4èô÷§ÉÜý¤fÆNš»O£9 YƒÊ{z@›Z@™O¬w?)€µÆ|š›Ç9¥³<=©JƒÞIôÓòE€±n~RPüŽÑïuš»/5œÒYƒþ,^p@OÕâ³A}®2ŸpoU…ÁÃŒ³4wÚ(öqD²¼ý¼jjiÀÊê<ŒÜ *è¶ù„{«*Àaã]š»pJgy:ôzS‹’2Ÿ€ŸÍõnc¨¥¬”ÞÂ)å5èpþEæÑÚJ.èÊ|Θ»ÝÆ9Jì58&YÞ‚n©Sõ„¼]ª [ÜwÁÂ6ª¥t0F,æ˜dyzä-èÛ¥<%³ÍMnƒ¾ r”X,ÆpJgyúKO(° ÃFy`‘û.Xx—j)]¥ô=”,o@Ç'\ÐwÉ]ï™Ó]OTx•l)ö‰–¡•,O@ô„‚ úM¹`•û.Xµ”þ*ÑýG׈¥•,®Ñ‰e;DêvÁÒ-¥ìç”Îòô€;Ì(Ù‘0ÖíÀK$[Jç”ÎòôÀ;ÌØR‘º]°j)}ÕÚD#§t–w ç€ÃŒÒ_äÛ¯hvÁ.¥Ãè 1‘ã’åè¹à0£ô¹”¸ä¾ –r)=Ö&FÅ80Yž 3é"}®Ú;Ã}ÝR:ÔWˆ“˜,@χ™‡EºÆ –t)Žˆ9™,o@Ï ‡%û,eWº•Ò…8Å‘Éòôœp˜Q:gé0¹;l¼F6… œÒY^ž3J¥T‘¾Éœ]â:Œ®+`…—94Yž€ž3¶^”§AÙÌlqULfðniXÆ¡ÉòôÜp˜QZ£Št¸jîp6˜ZJ5…CBìåØdyú¯r˜9öe"T´¤î‘÷bÇG†#y“R~Ý>kv¸ÛÌP¼Û)}Ç&ËÐáéfŽ5c$/Œá².ï%㈠ÄxÌç Ûg-jmf”ÁûQ²9ìâ'Ë+ПV'°¼ªj±¹Kúî‰nWÂø/Ÿƒ›U‘^2[³Àïýf‘Ía§t– ÇêªÔ¥®Gü¥_ô=-•Q=n©¬~ð^S(d?ó·ãd¿ƒîéšÃ­Ì?ÌA6‡ËœÒYÙýbÿc]Z#ê˸†:Ýð[Ø˾NÂøƒ÷>Ã%ðÏõö;èN‘þžn ¾3–ÓMb™ØÀÑÉÊ.èíÞ…£a,ºÕ#ŠótÝk=ñ÷öu!>Ü,[Ž½ŸjB>Ý)ÒßÐ-°Á·†ñ'Ê”¾‚Ó•Mл…°—U^ÿ1Üd=¾GñÍi¨ŸG|`SQ„uuÝñ+þÝ)Òa·n ^3“Í¡`§tVvAïî<Ç¢xßÉïqÍ"¸Ð¾¦;×âbˆ­ÎBü}ÿƒ¾FŽµÀvU3î¬1l0Ù$N QÏñÉÊ"è ªCàÄnεHóÄôºZ¨óôGŒ6_I6}‰øø~›+=ºj`Âûÿ§H×/°½ÞÌ$ÒúÓ8Gáødeô0Ú_¿}†Qû×& i>ztë)>bÿ+µØðØèqÏtUŸïÿSœ"]¿ÀóéL"NŠ Né¬,‚B{›L<ý]zex·¿ O<º[½{úÓØä÷Gwg»»~Ò$ÒJé£D(+{ ámëg2ŒÏÙ¿b³æ líLãÇ:£6„Ç;_,ô=èÎJº¶ƒò¼EKEŸ¢ÌÊè'ðŸŠÀÎT׶©ÆñïöµëòZs'è§Ò÷5èN‘®_`#íl¡b?G(+k çc8?UÙŒåöoÑùnÎE?`­}”þˆS›_³¯uêð=èNOº¾ƒ fõ#ìl¥¢†S:+k [Cˆ«ÞNþµ«kÐ Ãê‘=Öu l+†ŸW×{]à÷-èé"]ÛÁpÔXK7 +¥ïãee ôä5‹óÄ]°¿^Þýµˆ7ÆAr &Ôº‹}Ô@l2Ž<P»ÿ ;Eº~ vÆtÓØÃ)•EÐ:vsºKçÅóŸÂt¼)‘yQ ÛÕxž2¡²ÞkÆP^QsB£?@wŠt­E$@ñTº3[´ˆÅ£¬ìþk¥Œ'¢½œµµ4èPÕÞ‰–ëê{€ž.Ò?ÔYD|o|\L7=bÌR–oAÿßåЭ"}+èÏ`³ô5Ý™-*¥á”ÎbÐéÔWÁ¦,"×éFžÙbi1§tƒN'ç6¸dŽÕ$5šQ)}G)‹A'’südN×¥P:Ìø+áDö‰>E™Å SÉ>‚ V™æGº‘ßË ¿Ž]#–r˜²t"Ùç¤Ì0ÏèF’Íìç”ÎÊèÕ­©ÜÝ*Ò·[—õæÏÚ¡”F3œÒYY½“K†äèÅåjë²Î4§è†R¡l©M4rJgeôVà‰ÜvÉ]`»OlÒ¤Ói{sç?fNV¥;Žsñ qƒÞ#$Fnl †#E¨‡! »EŸi©Fb‹úwu1°t(ÐéiH¤Z°‰ÐS2ôtÑg¶ªÄ];.eé[°7èô~E$‰y¤â9º[OŠ~ÖHlanå@^àìFÀBì %n éà.×¥@/Û+ªç{¶Æ¯y[9]‚¥C€„ºèn=)Úª“ØÂÜÊ–t.}(›SïÝ:‰-ñòaÖX:лèíRPO­ÄæΪ)K?‡…ºÿrSUê$¶ÐQË:¹˜xÒÒç"f!€î»ÜTÕð,û¸Æ¯?²>b]M|,è š'[Ö©çû–ƯXÖQÖå\tÆÂÒ!€î»ÖµÈyê©Ó±…¨l»õ·¥_EÐBÝw}"/«‡VR:ÑkX9ër&ÂÒ!.ÐW½$ƒ@ß!÷¤žuöi_¿;К K‡º'èÂÈN-®HÙ®žZIéDK¬÷xד´ô7¶è·Sú³ˆÝl+ýñÕJQ1Å ÐËšS]UURú~Ÿ_°¬ó¬ë©YK‡ßÑ7†^{œ$þ&úºw –VØu:?ßÀ\‚VÃÒ!FÐ_ õqGƒ"µ&î݂ݯ·wç.«,ýââ½$ àâˆI {·`'k”â¯?‘´ô·aéèÙ*°kcQ“@÷nÁê”â¯?A5›`éèõ¢Êݽݽ«WPŠÊ¸ëOÀÒ!NÐâæó¤jÆ 1 ôj÷ì Né¤êO|Ç» ¤¥…È…x@§{‡è‘R2 ô²ò¦ô-XºeÑ™À~áNÀÒ!6Ðéyï’$æ±Ö2 ôL-X:®µw§²™ÌÞaé'èDñ>ãúÄ™ÔAwkÁjïÝGXƲ[ú`Ä.ÄzâEÛ¤¶ßŒý)¿I îëíÝÙ/¼+K_‰Ø…X@OŠ¥^ÑKöÅ öÊ_RÏ»ö,­ÿûY憋†¥C\ ÷L2^[_›|Ofè‡äÞÞý Îïen¸H4x4,bý‰ˆT©6‹‰ß"b¼a /”Mé,s­F¤..a^Ò g4,b½^x9k¥¢Â0Ð×µÈjoïÖ™À]á–qž½KѨa {efº{÷ò™Öaæ%­„¥C ‡g†µ!Ó@ßá°iïÝ[3yKJÁÒ!У% w”(1Îѽf‹º{÷2þ6X:Äz«x䎉WLÝk¶¨ýÝ–XÓ˜×K‡8@ï#76PƒJjéaètHîÌoï~Á²~…¥CÝtzB¤þ<%ã@Ï°éÞ™ à„ –q€NïWDTîZÅs2ôÌ›öÞ}*û ,b(qcHÇZæuMн6íûîAœ°ÁÒ!ÐMMjQÊ°%÷î´fðŸ°ÁÒ!Ð Nj¡œ6Ý\ÕrØ`éè'µPê€-Á¦[g&€6X:ä?è&'µ(ylºuf‚Èaƒ¥C¾ƒnrR‹ÒBÙ44¿½;•HX:ä;èF'µP¶Qºv}w•ÃÆ]%–ù ºÑI-J™¶¥öüF½÷úíÖßaéP÷Ý褥þroz Ù›‰RU"§3¯ –ù ºÑI-J™‘ɽ{Þ”éì}Ø`éÏ ›Ô¢ôWÙ?=Ðì«šÔ÷Öö2æUÁÒ!_A7;©EÉëÁnnï×›ò­e¥CÝ t£“Z”¼lD+ìÓšs¾³Þã^,òt£“Z’*o’ Ó£9¶=YoÎ1þ´tX:ä7èA¨ë‚N;åçéAã|{©æœ°§¥ÃÒ!_Aoh[UQïÊLÐÊf÷ÓÚfû–æœÒÒQãòôÇëEVf‚Þ.åõôècÛž¡¹ßgo­š²t4W…|ýKjÝ×æÊLÐi‚Ü–ÄgÙw5çð·VE¿tÈGÐ+ÅÓßÑi‡ÜãŽvÙ_hΙ>кÆnéè—ùz(Fƃž©>ÞjÛ[5'pi–ùz çTŸ Ùögš“‚¸4S³É9…X†ü½§Øh<èÙêtE³Ý"ri&¼–ùúòhå¿Œ}^ærܺeŸéå@5‹`éP± W¤ÔKˆwêÓà SAš¹§]ö™‚èå@K‡Š]¼$SAÏ^ŽS¥ã5'PiFYúUD3TèzIÆ‚ž½§_~"J3IK;á ýŽ”º6èíÒmͤRØVèκÇ_i–t5Á«Ÿc×La£¡Ã¬ì+›K‡Š½_¿RõWŽÌ=ÓšI¥°×õ{&ªåœCò% zy³üÐæq V݃½À¾¶K°t¨Ðq3.WŸËÞð¾n6 ¤ã",* ô×_’É gÚªª.lº¨ìˆe}˾¶;Žs1 áÝeÛªªk°ûu§•m°Îò[úgb*ôŽ¾Shí[†ƒNoÈCÞ°N»“C0õ`Ã'ç$‚* ô)ª,‹ü3a6èe³wÍM¿lª,j ­qÖ ¨¡b@UˆPHÐx!¬5ô¯³‰-fÙW´çÐD™èŒãÜATC…ƒþ“ˆýØP+ˆžÄÄ$£AÏ&¶äw”>}˜u˜qËœ5a„5T0èõb<‘6ŠZ³Aï/÷z÷Yó9JW©-ì%Þ•¥_BXCƒ«$tª,1ôO¥<àó9Jw uu»°t¨`ÐC½2 /™ :íñ:¶äu”ž*ñΞ­J[ç"â*ôÊHƒ úãH¥á g;¶PcGét4ˆlU:猊#°¡Aï)n¦A_Û*zzNR:Õi7VMjIÙª4w¬3 úˆ¨/}GŒ›ÒKD: ½,›”®ŽÒµ³Òé|ÙªtÕYTƒÈ† ú–¸-‘?á ç$¥ç••®²U§±/.þæÛÎjD6T ètãY4‰y¬uúõlRºjÎ4@{âË:Æ¿¼SÎ&X:T(èI Zþ˜{AÝôœn‹4ÃÖ.ðN*[•¿%-ýB*ô>9¸?3t:$?ÉŒOëx':@#6¢¯œÑƒÛP! ¯Ïþ$*Œ½Zʯ½ñ{ø ý™Ó(@AƒG;+ÛP! ‹õËÓÎÞ;ùžn<èåÍò¡70ß¾«?óˆeç_ß ô\„ ýAšô§%B´¾e<è9Ò‰vå‘Ù¢ Pð÷V¥Á›ÐF*ôD?Qù—ŽB¬Áº nú<ْٻç•Ù¢z«ò×”BÏE¨@ÐiíE4""·Г{÷¦L1X•ÙR§?3šRè¹ :ÅW QÛÁ½ nzn1X•Ù2YæTkàQþõ¡ç"T èD_Š(@wµP¶¬óÆùô[Ln¶[ßó¯/ŽÒÏPž g»¨FDÌðnª m’ 3ÿc‘ÇÔkX:º9@y‚ŽÿK;söî[óúL™H”~†ò½ê%ôT#‡ÌÞ~ΣРѽ*?¡ô3Tà;zê6 ¯ËÝ»ç÷9î?ìíwTÕÆ7öÞ»{‰Ô ܤ3D"!aˆD £‚DË«¨ ¥TRf·bU^DQQ °¨(/Æ "ЕÕF ËÚý懮åßÒ9CBî½3“;g’l›Éó|˜É½k欳²æ·ö¹çìgïj™Ž:‘@ïÛµ»Þvœªü,Ò7 N$¤úèÑ#Ý;rØŒ»µvï.ꪷW}·qF`†¯XËQT Êtæñ¾9€î_»ëmÇÉ4s@Q)H ô ª|;rÝ¿v×ÜŽ›'Ò¡¨„gô>X»wï»ïÔÚŽ£×EB:ŠJAùƒ¿p §­Ýgj™U…ú3EZëQÊôv<£gZ»k™U¥B:*P@½o×î›Mó¥ÿ»NÏ£Ð{)O¾;}©S;N*¤OZ»*Ð{)·W•7MÚqRï¨@ôޯݻ½ª4f±N+±~ìª@ïd`ƒNÛìM®«·4OØÊÖÇ&]ŽDX€Þ× gXºæ‘D…¸t§­öö²î+Ý6Õ/ýªÀ,¿B߀ž«:J(1=øs±äÓ¸Òæ–Î[­7OÚ ô=¶}Öuù²ù˜V1õ²ß/JL‰°=754«ä×:çJ<è“£ùFêÝu¼VéJ ­*,Ði–½Ûu¥{ÂFû c¿À,‘ ÐsÒ0æPˆis["ࣸ1õ>‡k»ný*tSj!ú7ö‚ ×¥¦‡h¥±RbšH„è9è"GZëk˜èz„ç ÊaµdúS` séN‡Ù¿u]êzØè#ÃØ+0Í©XoãÐTË3ˆèIXk‚>\ÉmÓ)¾šc*ö·þzFaƒî-û¬è¯•)òŽvýgÖ½bý熾µ…öÊyWí¢øõtïãùè‘êÅ%€ž1âu¥}©ÙD™Ä²f6àˆ  §?žW/.ôŒò»ÒõK¼§²f>—˜+ŽØº_&T©—zfy]éDÑËæsºcœ4Θ*ŽØ:žÑó•¯9‘¾[U•;#1×?ÂÅÐ3¨jI×_‰÷Zzf~È^á éévm!šb”ï˜+\l=ãƒú‰®¿ê9 гèÏödïú!½b‹q\b®p±t¯âíIqeûMµ4°гÈWà=U€B;¤ÿNèˆí¸Øº[çöª  gQÙv{«÷ÎӺؒƒ¬4¾8b[: …"º[ã=˜‡jêz6ù-4f±nM)¢«BÆtŠèEãñ8WÆ;Õ¿à ïñ;[TM)Ý®Œé"Glë­c@ {tþC™ pÐýE"‰f.6_Öä ¡v§-ë(èÙ„¥{v­°]ê}HŸ"ÒÎ!Õ‹ )ïÝ£é?¬¥t¢vR`³«Â×o1¿^!ãb‹n°¬Ù€ »ÔTêÚŽèÙµÉ~Ò·eþu!}¯LígúÌZ”w€îÒmþñ'®ùÛ•Rn«èÙuĶ'ö>¤Ó‹Æ– ÙNEÊ;@÷¨™ÿK[E4¶MýгêU_¡™üBú_Ê)³EÊ;@÷È)M¾Tr2˜/éΆè”Vh&¿~F,å}M18è] %ƒ9 ãg“¯«JzªXàߎËkã½z¡L{Õw-ë48è]*UtßÁß%_kC½'¥oÇÍÌ#=N0åý÷Øè]ªäDÿæF¢D,Ð{Òž´í¸¼BzÙJc­È~Ü#ÖA€Ð;uÿÄãž0ä ? Ð{TZv\~!ýT¹qMbºo£Ê;@ïÖjæx§½¥ ÷¨ôì8ebÛ¬=Î_e·Lº%(z·J~$Šþæðè=ª"ͬš—/]5n‘Úû(tM èJ3«æUj†èQìÇA?èý­‚ýÒ"¿YU…t킰؃$A¿7M=@iµãRa7jsJ(?ûqÝ×» rÑDÛ>â»U|Y¿m‹X~ܤåÖ3Èì O@Zs?ékå@©¶-»´ªÞ"ÓuùqÏèyèN{AµÿÞ—ÚÍU)•'âW=¿*@ïRGI%¦ôtø!ûþ{»ôû¥SʯZ-0aøUz§šÕÓys%ЃµÛßY5©çÌú…›ö•£E$ú0æPˆis[ ê5Û>ë¿·Ñ4wê4Å(?%0aåWEý8€~‘#­õ5Lt=Âsz°ÒëO½`.ž©=PÅZc¥D?‡£Z¦tªUî5:­ã€¬ ï4ÿóký‘>’k™Ž~ƒôHŒ:A§š,æˆÓÞ‰^6Ÿš«?Ô2æôsèD¡¢[ ¯ ô´ÕÞž–¾:÷)ó ý‘¤Ì-§-ë] 1ÈA9õ ·;1€žƒ.-²ÿ”vóÓ<*PP™ÐazñôWô åó7AO4òP€ž‹Þ´g¥Ý›¹8»ªØaúÒiÖó`bpƒ~Îáڑ˸®¡ˆ€ž‹2°)»ª¾·E¦‹4c{Þzæ–Á :•„;-ÎíÐsÒ¬ 'lÑùx[èša\˜±*6sËàÎ}¯º2Eë ç¦L'lÊÛò’þPe_È8ÓanèImjïï èÛíMéw™ÆèuªÜx]bÎ0·ô.uÔôÜ´Õ^†7›æÓyŒuF¦“òÔp˜>xAo¹qÛ­^–ø… Oä¨L6¢óI„UÎt‘LØÙ8L´ 78j.ö­úûb3Ú&ç®Ýö¶t8çç•5Cû ‘2ï8L´ ÿ+‰öª¢$éÿcï쟪¸Î8~ÒîžÓ3Ö–ÊPÃÍê%ŒâËÄ ¢‘ E‰¢ F| ˆ 4**8ˆo•*¾Tñ%”PGËÇiÍÔN;ý£zwob÷åܳ=g÷ûý!7ÙÝœ»w˜Ïœ—çû<Ï"2sW‚ø§Ëº ^í¡lIÊ5CÈ #_GY)Óà ú/؆ç„ìÌdÿ˜¶•±é«”¾Ð›:™ûj•HBŠd*ÂÚNØ.‹÷&d¦‡ôÜdCô?²¯ž2ö¯™ ‹Ë¡J$±+ÂJ„ØÈIÃX­áç 3=œ §¥Ù•&Ö³46ý?ª_è =ÖÃûöÁc2µfì46 ‹÷2Óà :K¦¥.blÏ4ÐSÓ^üªiƪ5#b³ï:^™éa¨í®ø†‚îlš±jÍH$¦Ç4-ÞsÐv1Ô /è)ë Cág;ÄvDf´mzjP<€6Ô ·ô”5TÌÇ.?’iº¨ïä½NX€ÐSÒ^ç€fVµT›®“w8aC ú2[Œ}ŸüfRÑ@ßìpù°T;{ñ®Ã6s›ÒÀ#d £Éb 9Uš!V;‡ê¢×wñÙžé § XŸ£6ºfž”åÝZ¼ë¨þ\SJïƒPþé+è)阓Ö¶¼ËœÇY¶ «ÍHc è$#Q‹¾ø$=%mä¼Ïár‘äy\¹ž„U¤±…tzAõ8#¶å]ê<î´aÌ׳x!  k3¯pº.yG†õô]§]š:@Q¬‡Ïu¿»P¶£!WuôM¿RH/€Ðýµ‘óÙ®7ÄØâe:ÙÎÁ кŽñÜwÓÇç™K$Ç­­ÔP6+,@èBês¯@‘Ð#Ó\'9ð-¹‚v”›è]D§\ÓU­)ó¢t›Õ½åžò·?OÑL t T¹ç¶ØylÍ’yXGe©&J€Ð}u‡W ¹ß=lÊZa­ÊRÙU¿}Ût€ÐEäi„µ­°²Ûôò6£R¹ÖÚ¦#šÐº¯ÆyÕ%)3À6ýr¾/lb›Žh:@辊×ñC·×ئŸÖqôÞ„h:@èòtÍØÛtÙhºå…U~ônEÓazèÝWÇ\û¶ü¸Mï•zX}µÈ(Lï ‹¨»W„µ¦ÌFéÂRvµHå®÷+…ÈMèÝ_ýüh«Çí’j³ºHrè¼Q ®÷fôXèÝ_CÞ!6«°T£l[òÚJc­êmz7-íE ûh†gˆDzMó®ìØ7ó2ÕA¶œzÚ€r û(^畘N¬úϲ%äôÙj£Ò;@è¾ÚÈùF¯ûYOÌM²U(¬ Û Õ‹÷tSèÝ_‡¼²Øˆí›‘­BAÈ= ¥¥‘Þк¯ŠÝÛ9Ø:à@.¶M}8½¾€Ðýµx>°=À\¼K}8½ Öã@.œ _ÿ]nÚô]ë_º6ëgÓÓÒŸ®è“”wÔÓòNì9ÙD6R>jä«ÎYí,¥Ý°BЯïaSÒYú¬ ×V¥±´ ™Œíè“´ÙÛòNHÖ˜¼CŽÔî7*Ugnã@.œ Å>xF–Ìö´¼¸´>}³œoÓØ/ú$Íõ9³r%²£_ÎWnœ‰\À\A_Æ2–&>Z6°ÿ-Ô§²ßÚŸaú$]ªò9³rcY²Ã?Î7F·NîÆ\Aÿ;{Ûþ\ÉÞ}qm[™Ü©3ÖÐ'É÷<Ž¬3ÍéáOg[[ä Ðd5| ÿŠýÆþÜÉÒ_\›õóäÑÜgýUùúãìÐÒGïVëôkqµ?¡³¹ÐžË~mNcléä{S±twÐFÏ*ï¶:½[9ÕÝGP:t g°ög cË&ÝZŸñ࿤CÞùª$yô~\zü/Ô›a›ÐN9l 3öC\-Ízùγ)lÊ¢IOOûéD½³!”‡‡>ùªÄ>z_»Fú †•×–ŠtÓÂ+ *L §¹þlË|>ùé§NÔ{¹áüCŒsþ'ŸG>ßdž•²Å®*·½çÔÓv”zèé.K÷i[Yæ,Ÿÿ7¤Kwûˆ÷ø—d³lï_«ý íð† ô\öû$ØŒ]ŸpyY.›þ=èÎêó ¦Òkš ¥½¦ñ.å .W i7ŽÞÃú»ìŸöçÄð!ÿÎd{Ö€î¦}¼ø’ß3Ló„ôämQÞ”mŽÞÃúŸÙÇöçJöÁ„oJg ®€î>ãÖñc¾!°%¦y&éÙŠIDµÈþK·ŽN´ÀÎÌeO—€î¡ÙÞÅŸmEƒ„ÓËËŒì“Jƒuô~X…tò{º”,ÚÅr-Ü·ï|˜øçOXæógIEº³úyÅC¿gŠ…ÓËGU“>®÷þi.ËØšÉÒß²þc û&1¡g°Z ÐÕê›™žPÉYsÓ^yÒÛT¢°\ï²…t»ðDæÛÉØš úg  ûKÀ k‘[+].’Ô*'½s1ú)‡ty…trJ`ñngª×¼Æ¤?(DÁ€н4T!°x·Œ3ò9›tµûôftNèÝS›Eïäð<óIÑkLú ¥Í`  twY¼[u(.f½¾¤Gº)\ »/ÞòC™ãÛM³1飊3svÓRd²t€î¹x? ðØ™ ¶w+ž®Ö ›Sp:@è^:Å+»kšH/SœáRÓ@NèÝU­G<ï 0Í%Hßbß©ü‹‘³ к»b³9Ÿ!ð\ôˆi‘ÿš¼.Å•(ÎÒ0Ît€îª;¼¸Oà±È’@¤Ç¯Æ=•#G(²Ó:@wŸÒã=þÕflÒ;‚¤§“ø6ø¡’ôfJïÃ"к›úª|KE&WïÁHÝ0Œm*ë½7¡'@è:è×wñGÒ#ýžat)ìṋ@èãG‡Dçôût2ß0Êöe‹v£Ø;@èî ?¬2È’e‘`#¼Ú0Ú¾T÷Cæì …0Ãt€î¦Íœ‹Mšâéäd¶QyS!é»i)jKt€î¦~±[2ÊÖ Œu+ßÈ¿¥n›žSÛ;@è®Êëá=bçd‘#¦¹0Kþ›nV*Mq)xŸ.îÄß tgõó~ÁYó„i6ÉÓ—mJí° ´ . »èobyl–îšæŤ[Æ÷auÖ™ÿ²w./m=m?‹™ÙgÒâFjŒPu#H¼F‘¢F£¨ ÔW$š[¯x­­7,õîB[«VE¤Zª‹þi¿3Gkµ*$y漿ŸuÎåðaæ¹ÌÌËL‡èý1\ƒIÜÝrÍç—éŸ.e5ÉmÛWPïË-0¢Cô‡énH6L·N¢XLÿÄH«u¦¬ÞNÓq4D‡è…éádÃtèõóš~»ŽKØWfÛ€é¢?ÊÏ$niúßWÇ ïzïc>ûÎÞÁtˆÑc.ÙjºI<Â#C„wí&˜Ç¾Ô—C¢¦Ctˆþp˜>*V“ýq ÷^V_fç¾U˜Ñ!ú£¬evÒîU,r~FxYf+cÍvíqqÂtˆÑ¥IÊ7Iÿ8°Ây¡Ö5ÃXbÝ®å¦CtˆþûRÖ%=kºsiMrFÔÃ|¶]î°ŒŒD‡èà•kIÿZµÃž êƯ*Ær\0¢Côÿ3«cr´;ùŸ·qZA½¾™±ÖLMGD‡è1LòŠ+†ˆe6ïc=vê膅èý¤|ÂÏãÕœ/PÞwdc nšîUˆÑb?©Û”o¨8ç¼ÀMxßg3PŸ±)Pïƒé¢?Œ+;…9“@.ç+„ÝlV þÖ¦Šz_Läã̈ŽòÝ£rìG ¿WÉwRJÎû…±Ä/{þ™—-"tŠo ÑÁ}ÞUÊ¢”Ráµ~©¥¼1ê³­õ=ïΆ…èø(ò<œRêÝ0â5œPnDZïa¬Õžå{^£(,Æ7…èà>2¹{šnVï%'Ä.9ÕúÞcÏõŒ.!–ðM!:¸Ïë6§[¸ ˆºQê±kùžÕ.ÄGÜÀÑÁ=\ƒ2\—Ú#ã~î'껶-ß³¶„ØÂýéÜÃ[”Z‘í:Pv—ï [îwp|¢=_¢ƒYmcïR{¤d…óKÊ&£ÔÇ<ö4Ï, Ñ…-.Üc­2…g®'ÎΫ)­ïÆúwÆšm¹ˆq¯[\ :x€ã`ŠåtÃÚäÂg)ËwÕ<ã³åÒ¦Óˆ¡I¢ƒ{Ô…e¶7Åg*.9?!-ßç«lÊÉõÅD­3Üc@ʹT#fç0'¶ÉÕo3–°ã0è—B¼ÂW…èà_Þ¤Ø8s³|P^[êcì‹ çQ¨Ö™ON|Vˆþa?•ã"o–ï'œ/’šgÖ›ë±a›‹*¨£ÌÑÁ¿¸¦¥ü™òSÎÎým”^4WŽ‡yf¼ÚÿG§Àé°ÜÃ;˜ü…Ê·˜ªá¼ƒ²IÝØýÎØwšß÷|‡èàÓ³e¸)õǽœW“rrÞC{&õ˜íá»Btp—Ì¢”ÛÞ­å{m„óÞåÍ¿zl‰ÔUòý#RrÜ¥Û4ýyÏU¬p^Cê“óÎxìH¿g´ 1‚”DwY•ÁtLw,ø‰…6‡ŠÔõ×Ô…hD?,DzL7ú/ÍI}Š4©ç˜“ú¦öF¹½ÈÇQrÜåGº¦;Ϩ“ºUS÷•jÞÒæèk¢‡Q@tp×ô†4M7úÏ©‘ºK5Ê5ë¾Î%¯ :DÚætí&õ^RM½¾•1ÏŒæ¤\Ö'!^àvˆî™^—Þ£ý'Ôšº1Ÿ`,¡ûæ&3PGE¢ƒ»¬Ž¦Õ9cEÄmÎWH›W­JÛ¶æ#)ú^ñ gÉAtpÇô"HóÙŠÎýgnÊë×ßê_¿gŒà„)ˆþ¡»(.×ÔVs¾Hª´Qµ~×{úŒc©u6ˆήÕkÃœš”ËTë÷f½;]–cB|Äò¢ƒÛ‘ò ”ûi—´ãçœGH]æ¶c;õ:ÿ§¼vsùŽ69ˆn¡ö§Ï¥½£ÌJÊÓÖïó=ŒùrtnjsvšËw&ÑÁmÓ÷¥ÌîNûñ’sýžKÊ¿»Ž|*T×Ù*·Ü"Ä7,ß!:¸Å3)‹VÓ<~ɹÿ @ù Ê¿˜¡z™Î+]TöÍ3Üf ,ÖÒŸã՜׌“úÌ×[ÍP}[_W¬Óñ*$ —ÐûÑÁ_žeå1áùÀ¬ŸóKZ¨þ¹ÙT}ScV®¯Qˆv”Ô!:øËä˜ 6žwVäš¡zé XW´‡1Ï¡¾ ¬ª÷=±üåݨ”oHé°©s3T&UÕ]GUŒù4öÊÆ°¡ ¢ƒÛtgSÊlã5œGhY¹ÌŸ©ú…6ÕUN.†>9ˆnðNK9±J½á¼zÁM£üÐT½êB[Y}/_ˆ-LêÜð,,Ç&I#8¬¬\Í8IõzUk«:Ò¥ºê“kÁ¤ÑÁ u•´”œ¢¢ÀO®µÕïèTÝQŒI¢ƒÛ¬5HùšÚ¡VÑË9_¬%©þÁR]W¬®&õZb!:øƒJÉeÓuÃaôçêR=GO±Í¡"õÔÔ!:¸ÆõZʆIò0ñºêV¬î;ÔÓB“7"Dþ+4ÊAtpMSP MªÓr*ïÙÑsÜÔ×!ºÐýÑÁŸ@}TÊi¯&ÕkÚ”1Êsªc­Z®kËø&D!N¤€èàO >'å蚆¬X½úŒ¤zæEÂT½ù½ŽM¬B´ )ÑÁ5?ÃZ–ï¦êªØ™¥mW~7Uï)¥§àÎ¥í8|¢ƒ+&Ìå{·Ž‘*†#œû{ã¤Aæß2My9•”+ìÄú¢kîëÔ’}W”œU›+ø•!RÊ{wÓ؇¬;ŒÓjýŽü;D¿ƒ2üLÏñNî¶E•‚§ååêgT^®¬”œ&Ìê !ÿÑÁTö}âž±œC+œ¬{KËLÕ«Éå6µ~ßÐ?Ñ%Ö¾”•zÆrñ^¿:›‚t «ñ¹Õ£Žœ"çà—…!T‡èÀâù˜”ƒ«ºF+9¨Öµ‚OäsÎ☪ï!T‡èÀduΜԛ´ ç®=1U÷rð®¨ÊÁ{¶çiÓz† Õ±¢ES¥9©ÿÐ7^\UÖù%mZ_?´¦õZ´ž·e†êíøƘ“ú ŠÔ5Þ®XP9ømZ÷FÕ¡±ìm””„ïk7UA Dדzö;#NY‰¹óÒQ’¬hÝ·Cª­/w Q¸Õ!:¸ŠÔƒÏtÞŽf”XÓº?wˆrC£ë½•„ï¡,á_MÕQkƒèÀ¤®AÊÑc½cÆ "jÏË0é0øò ÕÏšKÓ?¡â{-¦êŸ :DF÷~XÊéU½ƒÆU¹„'õÑìZ™9Ïv4í]/Y¯LÕCP¢Ø,’²ò·Kó¨5Êõ•ñe ?¿éSáúæ{/EõÂoˆÕ!:pý®”²èXû¸SÖÞßQKq=3ºí±\O·º~¥:Òr«ÓRʹÚÇuÖæª,|$·ÖM ×K­Š›o'M׳Š[T± uuˆ&'¤ ¾îÖ?p`¼Ãr½wˆâzýÑ•ëi®á{¦ê]§hŒ…èO~ýÞ4&å˜öP]QÒf¥æÌy²†¯¿¸r½5šNÞñµËT½±Û] úSÇû&(åh-c_»î林Ò\Ïëž·Géì|YVÝr±N¤à!úSçÇtXʉcÃ.×ýVžTs+/µrs¬lf7õ‡û¾…„máh ˆþÔY”RfOÚ4zÉU¼Îgã„h93jÕÜXÕÎû” ìy1¬uâSCô§Íñ„©ú ]ªÚ^µwW÷Rv×ü—ÄÕ"þb=ÅG³ŠU^®+xˆþÔ©+²UuÃ15»hì'g”}nëÍÖ">‘òľ;åNÿ/Ý͹šØ}­G©luËúªrð…#§NˆÑŸô¬®ðu.[ßÒÿ;÷ÔTvÇgn3ÛYuaÖnehÃne«#RP»-Hx,e (q—]”eDá%Ã+WW X„LKËc€qhg¶Ý¿µÿÈhí8Î8Ó±eµõùWϹ7!@\B„HN§×IDAT ßïf=ì=¹³ŸóûsoÖRØÚ‡ßàx.¨¾«€ÇvñíY+xî–vþ$»[Ot@÷hêôX®J#^ÝËÄTT²;v~f„ê ~×Ú Ëa»x^A×ò±seÝûø¾@@tŽ™>lÓ–¶¬öu⪠¹.>ùM° »ÇËB¬Ø—ÛÆG~¾“P?xúF0 ºç¦Õ ¤ýê_©X‘ÌaÏ59½qŽ…[°—´´-kßá{®?ŠXê÷ÄSx@G,i)UÐͺRìåBì™Í}gbœÆÞcÅÒÞ³œGoÁWŽí¦Ûõóßø: {jÄz¯U׺äjÅ*î>¤²Úé—eIoÙ³Ä_^N™GôâqÖ™³Y7&ÑÇméb×\N^ÍБ>~ØùÒÞ&³œÆó;×üÍ[äÙÃë~€èš¡R-[Ö[]uÁ¸ŠºæLN{S´ªÈßÉMBc¥ç´-ÑȧqÖOö{ÊÙ # ºáôrZÖu“ù.»¤_‘ªÐRÚÃ&*«‹¬´BRÚ9ìƒíŽµ§e{ø¨ÓWÐ=µ¬gêR£«ZxKiïËMžÕîlmêÏ)±h'µ½'ÁÑ~=›Û}üì)@tÏ,ëfú¼M è5 ]z]yêL#6RhrvßžÐnÕÎ+鬩o°û-ü¼|¯œŽb7ìýWÐ=1AÊPÚÂk]mÓn©íü”ܺT'[yªÝrHÇ ÉîX¤¸Ÿ»@ߥ¡…}ãžÎ:â -£ôEøµ°N´“N>…?S܇+œ{Ô3Ð`ážXvMfwçž–wì ·cß—è€î©qÖ ±‹¯LŸsÇœQEO„Y¸gND;É]Ø–UÓimåy%”û‚ê|ã{ï}¤ãJ$ ºÇZW•-kr}_yj_DSØluïK-öw¦¸É.—%Z¹'fw7ÎÛ»G^é8iÅžè€îyÖGut¿ž¤é…k þá_lËŸÒ\©ª;ñv[BÏ€ ÷€Áœk²›ŸÁùžÊãŽç¼œÎ;åè€îiûuM¹”kâר°{ùùrÜ G2­ÜÚrëœòž0&»ÖY`Ý»óBâsjf½Sì\e?xìó€èž±¤—>_bÕ.߱ϼBUÙl=ªc½WšR‹cV¾w¯ïÊž)ï¼€‚ÎËõmô»ù¦íë8Âb÷ÞÙ‘÷M0 º‡5ñ\a—êJÍâ5ž )ïÃÑ6ÞùɤÀ¯xÔÞnãìßICßØ&Ž¼záønoîÙ[ÿ¾õÜÈ:âDaWÇ&Y°Kò×~>þŦÊÜÙí;ÞTQ·Rïõã—Ëfûyüø«ï:vr¥ý ѾNk; #N%?½—=Š$Åö*kÝcNò3Õ}…×m Smª\@žFê|DeŸŠ¢_N}7ŒÕÔ´Ïkëéóø’ìήšñ¬Æî† @ô«}t¦¶ 2BÕs‹›Î”läSU}¤±ŸožÏÏ$•¾ª¯(’/ÞßÓýü|ýug½züìþý»wç™ç$fçõ²ú±¶CB@ô ±^©Õ ¬Õ]g)õAn<_yQE5iís'R §µþ:eoª&ÕÞ®{_?öñzà©«g_¾|úðÁ{èi­/Ëéº>ÕHÜ‹7ô‹_íØòÞ¿]r Ð7pq×ô†Z{y@«3”*ÍCB7Ÿµ¿¼˜­ôöÕ³å~¤™…O þ|ùäËù§ÝÈ;úpÔÁ©GZÔ,dOÊ}A6_Vß8Ö°êòWúÅ/™moù0>.1è=Aze©1V1ã]šj(ÕHZÝ÷ÔÊv‹WLj=Ëþz“}÷T~ÓDsDaeÝ°ªš4ûÅò8®ÀðÇpïÕMÙ°±çžÈ)¤ô/ׄ˲ˆý¶†¡ÛC¿Äìú‹×G3_žp<è’³²Ô ›içiG[NħëݾÆÏƺOU ×Qø#‹Á§í>ÁOê~D4Ñ?l2=yòäûc‡¹_ÄyϸúôÙ³éééÁ‚ÄÞb!ø âË:‰~Zù)ÿî†CÎù_è{™m{ÈljO˜ÇÝÓvï­’IµQ§M²/ÐV•Ô£J‰~H¼Î¾N +¿Ú4\]˜Û<ÒäÀ>Wü3“o“Ü"¹sçοÙL‘ìžšzùòõëÇ$ÓeÙñŽìsþKãËÊrÚé @—€¬ÆÆn¡ë¡ÿ™y—ýÜϼïp Ð=4Â!³r´×¨Ë æDšAê|oé$Q_Û"\ß,&N^t†à§u?:"·yb$%yÿ0~˜½€ïÞ=ë"À.wþþí·ÏŸ?ÿMÕ?X²ÿp×CßÊüŒýü”ñq8è8²k•(GÕ†òعUžëîµUºrc¯Z4©I—è[‡ò…ëõ[úÇÉ‹©ÿT•i¸¯.š®×IœÆ_IÈbpï¿4ÿâò6%d û~™ë¡ï`~Â~¾Ã0{:bc¾Öœ®ôº*­T`7REFUlh¹ÑЫ.%ü•J‰D¯¯­mɯÛoMZv ]€j˜îÿé*ÐÔDª;u½‚e Úõз1Ÿ²Ÿ'f¯£1@GÛ͵šÓ•“¥jƒ14¶*C!X*I EYbu¡d!0 d-P«E"ѨFC%]$tY i­¥Êçâ†mÂœwó|þÎg}ñâ=Òcs‡ ×ãߺ}‹6ü·ï‘Uá{×CgË3´-̇ŽÆYn‚Zjõf‰R3)"ø‰~Ê_« ~¸H³Ñf,H¬“!+ÏNgûÏÿ´Ië¡o±ƒzË¢ÐlµÍÑOð5²‚ÒŸ?TÛª×K$éJ¥F3*‘BNê¹Ñh,'´*‚TKñ 6b’f6Ô®‡îc§M÷Yfëîvïä"ê € Û»ÓõYbMºÒ&{!+‰›f´e-㾶¼]t4è⚬Š«÷™¿±Ÿ¶Òì:‚¬cè`>f?÷3»Ž:‚¬cè›ÚžûÙ¾îjo ÐdC÷ú€¹¹ÇëW_0;èXþøÓ_/tYÿÐ?ÛÁl;ºñÙDÿòóûc€Ž ë:û?™Øþ.÷Í}Π#È€¾&„ €è耎 pèè‚:‚ €Ž  # cB耎 €èW€Ž €èè‚:‚ €Ž €Ž ! :‚: # :‚À #ˆGA¿¹Ùa¾zûGîœ]n=».áæ9Kî}óÞvìæîý£ß9žðÖ›n}»·»õìŽþ7ÏéüÒ½oÞ{ŽÝlÞ´ÎZ_üÉ­§wÓ­g·ÿǸyNgóÜ<@t@ÇÍt@t@t@t@t@t@Çít@tÜîÿ·wÿ:m¤_Ç_’â‰bØ}aDïØM,Ù;ÚΑ,64 zËríKH–Å-p H©Ø ѤA ¢MRl±Ò+åZvþ˜@È„¬Ópòû}?3œéøØgÞC:A'èát‚NÐA'è 3<‚NÐ :Ã#è t‚NÐ úÿqÐçmÿΑéîVÞ1¼ï¶ºÃð€Bû{±/o÷¿Y3Ô^ãQÙ§›F»K=ô±ÕáUšAXZÛ쮿]öQ}ËJ8g53O{¢°(h|£f¨½M/?ˆ¤m“Ý¥Æ%ÅFŸÛvUÄRµb±»FÔ"y#ö½‚ÿô|ÿÕ:sk=MÆw×ì´×÷z±æܱ×χ—:’‰ µ· xι“@ì®2Pkß÷Ž,dcW·‚n(³ê*줇 6ï¬joAÙö¥»KûÐBЋÚyß͇·a°»‡òûyÞwï|gºtCÁ˜Ùk=ɶëªÞY3Ô^Sëùiž4¶×]ú:mê½… µ·;]ðŒ~^1ØÝÅtl=íÝûô>Šv?º¡`Ì~µAO³íÖ‡TT3Ô^c>¿²sïAÿÊ võ`ÇBЋÚkiÅð+¯!Ÿ2ÝÐÀý@‡£¹ÏŸXCÁ˜Y<}â—¤Î]5Cí]ŸÂLvwÆ5A/j¯¬~ÿÁ ®ž˜ì.IxõÌUŽ,Ý{ﶜ»tCÁ˜Y¨üVÆXêÞU3ÔÞT?œžÂë®rªçÎDÐ Ú«HÏ¥>Z|å¹ÑivÕ}`ä?·ºtCÁ˜™4½UàÕ¸«f¨½ÜYI¥¶Åî~Ó#g#èíÕ¤hrÒíIó‡×Yðé»P«a2膂13_л·óx¾ÚÊYSÑ¥Åáõƒ¨c$èí%'av…£wï랢á-MTm´û{ v,ÝÿÀA ÎF;g(_kei¨¨arxU-;#A/h/9¢?ÈvºÒÈÞðö4Ì®¯¾ÖÐbЃøÔ=N”Ó·úý»j†ÚK_¦±Êç&‡wœßy1r1î‹ö*^W;[öžÚrö.™¼y] º¡`̬ª·Ùö惢š¡öœ{iÒ·9¼º®5 orôPs溫誩²V ÝP0fv¤^¶]WëΚ¡öÜ\ æ¾Ñáýäs’÷s‡×Ó«üR‚ü™½îå·ýÚ^ï ÝP0¾ç¡L?t¸ygÍP{µX§kf‡—3qê^ÔÞóé-ê?ïýµZÔ]]?eÛ7 Úƒn(³«ë´ãÚÛŠÓ« Ç¿¬~Q3×ÞE—g¹ŠÁáÙ zQ{• 5Ï~ðƒÁ^'ïáó~u¦‚n/3Å ‡‘‚ì<³¤_Ô¬µW ¯WÁƒÃ3ôÂçv"_Še IEÝxIM½Š­ Û ÆìÒߥžto>žÏjÖÚÛ‘ ÏNÐ Û[{9£ÖªÑîÏÊ>X\¶³°uVƒ€oúUÏ@ÐtAð}žêè¼ÍãÊuí£ªùNO É׋zÙ‡“½¥« _¥ý¥zé¦ÿ8öQõ„Q–ƒ^üâ†×£ë¤_Êï§Ûv 9綥r©œ|éý$PXŠ•½%°tM~wn+ÒÁu±™³¬’s+ Ó£õ?Þ½èÅšs«‘6&`8èt{¬øºøV‹éæP»Îý­?³ÚßÚ. új¹üç' °ôf¶m‡:ÿTìxŸ¬Èk¡Fé¿´§ ÷'EA/k9ûfÍë’ifƒþ ßèb­›IÎÄëzêÜ›ü¸îÚþZ¨'«ð¢ ×¤A3ãµÂ4³Aÿxµ.?ÞQæçæµá\KÇI½²¥ÅR³0è#]c‘Ø ú^¾3Ñóë ·–|XKêGRïÍV-‰õí ¿N‚~&u"`?è­«5vÿFù±ž¾Íò<ô[Vyõ)迨žU¥kôOWÛW/ÇL0tßϷÛ嵕ÞVKÎÍçÒB­¬ÃiÐßäØkQôž†YÀ/v˜&`6è&I¿o]K‹½/ó#ú‹J’÷E¥‡þ,è—ÒÑØ]ž* úy¨íä 'Ò+† Ø zúaœd÷óz²4Ïï»RÜjzjpµ<ïIAYaþɸe¯0ýù6Ãì½ÞhQkõV=9l?Ì÷V6"_®¯&‹øî4èãõRvWóϺwÇ>î’sÀtÐ@ÐtAüú°#Îû"yðnIEND®B`‚metafor/man/figures/selmodel-stepfun.pdf0000644000176200001440000001536514465413201020121 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20230811130745) /ModDate (D:20230811130745) /Title (R Graphics Output) /Producer (R 4.3.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 2962 /Filter /FlateDecode >> stream xœ¥ÝMoÜæ†á½~—É¢ _ò|n´‚¶@bY]©ƒ$µ6IÛ¿_rfdÏC=ÇF–t‰äÌí¾²%û Çôå4¦§?|5ý{R´yòåqž'Y¯ïÆås?¿š¾™Þ>|öË×ü|úâÅüm›§û·/¾øËÃò¸èô¿‡¿þmš§<ŒéËí×cßaúóƒ¯û-‰ËãX§7G¾~ØÞÏ”B„ú¸P¡3€B„~Ìa3€BãyæãBiÏ3¶ç™R(ƒp2F¸3€B„ë1h„rÌ eê1h„vÌ eú1h„qÌ e,Ïs;½)íyævzS eŽCÒ—cP(ƒp=fï¿@]¹æåKÞ•Ëó”=’P(ƒP÷HB#´cP(ƒÐ@#ŒcP(c}žÛÉOiÏsÌÛÙßXõ8Ԝ٨—Òƒ–ÆA½–´QKéAKã ÖÒƒ6j+=hiÔ^zÐF¥-C˜·ÕÐؘ÷¿7–ÆA=Ž='6ê¥ô ¥qP¯¥}ÿçÅÍÃäÎÂ,{/µ4jÝ{©ÚJZµ—´QGéAKãPæÜ¿3¤6æe[/¥qPcωz)=hiÔkéAµ”´4j-=h£¶Òƒ–ÆAí¥mÔQzÐÒ8Œy[yÝÖCciÔãØsb£^JZõZzÐF-¥-ƒZKÚ¨­ô ¥qP{éAu”´4gÞÖCcc–m=4–ÆA=Ž='6ê¥ô ¥qP¯¥mÔRzÐÒ8¨µô ÚJZµ—´QGéAKãæm=46fÝÖCciÔãØsb£^JZõZzÐF-¥-ƒZKÚ¨­ô ¥qP{éAu”´4ŽdÞÖCcc¶m=4–ÆA=Ž='6ê¥ô ¥qP¯¥mÔRzÐÒ8¨µô ÚJZµ—´QGéAK㜙óqmìÌ>?ŽÆÚ8©Ç±çÄN½”´6Nêµô ZJZ'µ–´S[éAkã¤öÒƒvê(=hmœƒy[9¶õÐX'õ8öœØ©—ÒƒÖÆI½–´SKéAkã¤ÖÒƒvj+=hmœÔ^zÐN¥­saÞÖCcgÎm=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéAkã\™·õÐ؉—yÞÿ_µ6Nêqè9³S/¥­“z-=h§–ÒƒÖÆI­¥íÔVzÐÚ8©½ô :JZ§0o롱3m=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéAkãTæm=4væe[µqRcωz)=hmœÔkéA;µ”´6Nj-=h§¶ÒƒÖÆIí¥íÔQzÐÚ8y[yÝÖCcmœÔãØsb§^JZ'õZzÐN-¥­“ZKÚ©­ô µqR{éA;u”´6NgÞÖCcg–m=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéAkã æm=4vfÝÖCcmœÔãØsb§^JZ'õZzÐN-¥­“ZKÚ©­ô µqR{éA;u”´6ÎdÞÖCcg¶m=4ÖÆI=Ž='vê¥ô µqR¯¥íÔRzÐÚ8©µô ÚJZ'µ—´SGéA+uî¶ÔÒ8˜}Þ§©z{N,ƒz)=h£^KZ×ÛÛ¼ÿ˜Wüæ –½—Ú¨u稜ÆAm¥mÔ^zÐÒ8¨£ô m0ç>³K-ƒ9æ}ž˜Ú¨Ç±çÄÒ8¨—Òƒ6êµô ¥qPKéAµ–´4j+=h£öÒƒ–ÆA¥m sîs¼ÔÒ8˜sÞgŒ©z{N,ƒz)=h£^KZµ”´QkéAKã ¶Òƒ6j/=hiÔQzж2ç>ÏK-ƒxç}ޘڨǡçÌÒ8¨—Òƒ6êµô ¥qPKéAµ–´4j+=h£öÒƒ–ÆA¥mÂœû¼.µ4æ1ïóÄÔF=Ž='–ÆA½”´Q¯¥-ƒZJÚ¨µô ¥qP[éAµ—´4ê(=hSæÜçu©¥q0/ó>OLmÔãØsbiÔKéAõZzÐÒ8¨¥ô ZKZµ•´Q{éAKã ŽÒƒ6cÎ}^—Zó:ïóÄÔF=Ž='–ÆA½”´Q¯¥-ƒZJÚ¨µô ¥qP[éAµ—´4ê(=hsæÜçu©¥q0˼ÏSõ8öœXõRzÐF½–´4j)=h£ÖÒƒ–ÆAm¥mÔ^zÐÒ8¨£ô -˜sŸ×¥–ÆÁ¬ó>OLmÔãØsbiÔKéAõZzÐÒ8¨¥ô ZKZµ•´Q{éAKã ŽÒƒ¶dÎ}^—Z³Íû<1µQcω¥qP/¥mÔkéAKã –Òƒ6j-=hiÔVzÐFí¥-ƒ:JÚgæÜçu©µq2û¼ÏS;õ8öœX'õRzÐN½–´6Nj)=h§ÖÒƒÖÆIm¥íÔ^zÐÚ8©£ô }0ç>¯K­“9æ}ž˜Ú©Ç±çÄÚ8©—Òƒvêµô µqRKéA;µ–´6Nj+=h§öÒƒÖÆI¥í sîóºÔÚ8™sÞ物z{N¬“z)=h§^KZ'µ”´SkéAk㤶҃vj/=hmœÔQzо2ç>¯K­“XæyŸ'¦vêqè9³6Nê¥ô z-=hmœÔRzÐN­¥­“ÚJÚ©½ô µqRGéA»0ç>¯K­“yÌû<1µScωµqR/¥íÔkéAk㤖҃vj-=hmœÔVzÐNí¥­“:JÚ•9÷y]jmœÌ˼ÏS;õ8öœX'õRzÐN½–´6Nj)=h§ÖÒƒÖÆIm¥íÔ^zÐÚ8©£ô Ý˜sŸ×¥ÖÆɼÎû<1µScωµqR/¥íÔkéAk㤖҃vj-=hmœÔVzÐNí¥­“:JÚ9÷y]jmœÌ2ïóÄÔN=Ž='ÖÆI½”´S¯¥­“ZJÚ©µô µqR[éA;µ—´6Nê(=hæÜçu©µq2ë¼ÏS;õ8öœX'õRzÐN½–´6Nj)=h§ÖÒƒÖÆIm¥íÔ^zÐÚ8©£ô =™sŸ×¥ÖÆÉló>OLíÔãØsbmœÔKéA;õZzÐÚ8©¥ô ZKZ'µ•´S{éAk㤎҃¾ŸÇEça÷ÌÆìóa^øÌÒ8¨Ç±çÄF½”´4êµô ï{^ìWKï.†~ùųC¿^j=.ÿOïÍíÂëO—Ϧuûåñ¾ênóm þiûÓ|üû./„´¾ÛáÆ».“ïïáÆû®×d|·Ãíïwxºžûm‡ûßÃç/oÑ·¿œœ·_ÿðýO?ýcúé»éūׯ¾ýõ‡ŸÞ¾»§ß¼š¯_në$÷¼¬„ãö«îk6gÝ|»êÓöïvXŽ·¿ÀÈiàÝ¿ùIõËD‡\®+t9e?ü„½\øpìãø˜ÓŽÖ?Zj÷»{ÞΉé~¹ì?³ÚßËç~~5}3½ýГæzûkž|ÈésÕÓº{îü¸ß~~‚Üïq~†Üïq~ŠÜïñÕÃÿJ¢Dendstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 504 504] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj xref 0 11 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000003326 00000 n 0000003409 00000 n 0000003521 00000 n 0000003554 00000 n 0000000212 00000 n 0000000292 00000 n 0000006249 00000 n 0000006506 00000 n trailer << /Size 11 /Info 1 0 R /Root 2 0 R >> startxref 6603 %%EOF metafor/man/figures/selmodel-stepfun-fixed.pdf0000644000176200001440000004065614465413203021221 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20230811130746) /ModDate (D:20230811130746) /Title (R Graphics Output) /Producer (R 4.3.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 12740 /Filter /FlateDecode >> stream xœ¥ÝM“Ç‘ á;EÉ9þq±™5“ÍìÚŠ0ÓA¦„LЀĬÄÑüý­ÌªÒݳ_Ò@?Df×…DwåÙn¿¹µÛŸoÿï‹ÿ{û7ñof»Ö¾q»µ¹}Ó×­ÙüfÈí/oo¿»ýôÅ?ýõ·ÿëŸoÿòíÛ7Û¶ÝÎ?~û/ÿû‹þM×Ûÿ|ñû?ܶÛ_´Ûoîÿýù‹¶pû/T¾‘uñÍ´Û‘ïwšg'®õ:õ›¦ÄÑ+û7cû5<–ð*͈³×zöXB¤Ù7›?iÄ} ¯s_Âë4#ÎN\ëuzŒ,ƒ(‹hFœƒ˜"gŒ, ‘…º͈s¼Îµÿi†ÈÂ1ˆº͉)òLÛBdesâD݈æÄ)¯³ÅÈÂY8„¨Ñœ˜"{Œ, ‘…CˆÚˆæÄp1<(÷ƒÖ“ò:Ç7[#îKxCˆÚˆ6‰)2Pbda›Ä!DmD›Ä©¯Scdaˆ,JÔF´IL‘÷ ªCdáP¢v¢MbŠ ôY" ‡µï?SdàŒ‘…m‡µmï_нÊ# Cdá0¢v¢-bŠ<ÓïŸñY9Œ¨ƒh‹˜"[Œ,<_ÀOŽû‡ž'ûFÜ—ð:÷%¼N߈Ó^g?–ð:Cdáp¢¢oÄé¯sÄÈÂY8œ¨ƒè1EÞ?- 1D'ª}#¦È@‘…½‡UˆÞˆ)2Ðbdaˆ,“¨BôFœóuzŒ, ‘…cU‰Þˆ)2ðþiQ‰!²pL¢*Ñ1E®YØ;qL¢*Ñ;1Ež9·YyŽ¬‹¨JôNœëu¶Y" Ç"ª½SdàýŸCdáXD5¢bŠ 1²°âXD5¢âÚ^§ÄÈÂY(Q胘"5F†ÈBÙˆêDÄxüó0DÊFT'ºSd ÇÈÂ.DÙˆêDâj¯sÆÈÂY(¨Nt!¦ÈÀû'¾I ‘…Òˆ:‰.ÄyæÚBdå9²RQ'Ñ•˜"[Œ,ìJ”FÔIt%®þ:{Œ, ‘…Ò‰:‰®ÄxÿÄ·ˆ!²P:QÑ•˜"%Fv#J'ê"ºSd ÆÈÂY(¨‹èF\ãuZŒ,<!÷d»qßž4¢ ⾄×éF\ãuú7m#†ÈBDÛˆnÄ8cdaw¢ ¢mDwbŠ \1²0DŠm#º—¼Ê¶m¡òÊçÎ+‹°­±ÝÙ¹7º}Ó;öV‹°­±ÝÙ¹7º§Þê>Ù"lklŸìÜ=Rouì­e[cûd/%Kê­Ž½Õ¢lëlŸìÜ­ß´ÎŽ½Õ¢lël_ìÜm©·º/¶(Û:Û;÷F{ê­Ž½Õblël_ìeä™z«coµÛÛ;÷Fß?Ëvì­cÛ`Ï{ƒÛ{/<6¶Û{nìåä–z«coµ8Û{nìÜÝSouì­g›°çÆ^íÂmß&ò´“}¬,Î6aÏÆνђz«Gc‹³Mس±×$kê­Ž½Õ2Ù&ìÙع7ú±·–{«e²MÙ³±so´§Þê}ÿ/Y&Û”=;;÷FÏÔ[{«e²MÙ³³÷=Á¯{¥ÞêØ[-‹mÊž{ƒûvì&‡Þ Ëb›±ggçÞè–z«÷ýÂdYl3öìÜÝSouì­ÖmÆžƒ<Ž=ÄäØ[=[7¶;÷FKê­n΃­Ûœ{£5õVÇÞê!lÝØæì)dK½Õ±·z[Ûœ{£ýØ MŽ½ÕCØÚØ6Ù¹7z¦Þê6ÙCØÚØ6ÙSÉ+õVÇÞê¡lml›ìÜ<¶Ø{áÐ{á¡líl›ìÜÝŽÓäØ[=”­m‹{£{ê­n‹=”­m‹=i²*Û;{.²¦ÞêØ[={ß5MöÎνÑvì&ÇÞê±ØjlïìÜí©·zßIM‹­ÆöÁνÑ3õVÇÞjÙØjl쵑Wê­Ž½Õ²±ÕÙ>ع7X·c89ô^X6¶:Û…{£[ê­î–­ÎvaçÞèžz«coµ4¶:Û…½y¤ÞêØ[-­“íÂνÑrì''ÇÞjillWvîÖÔ[Ý•-­“íÊ^l©·:öVKgëd»²so´§ÞêØ[-­‹íÊνÑóØNŽ½ÕÒÙºØnìܽRou7¶t¶.¶{ ð>‹i±Cï…e°u±Ýع7ºû¹É±·ZÛ6¶;÷F÷Ô[Ý-ƒmÛ{‹Wñx¼èd÷Ø׃¾¯}_Ú6¶;{ YRouì­aÛÆvgçÞhÝ÷{£coµÛÛ{£-õV÷Éa[cûdçÞhO½Õ±·Z”m퓽”\Øk#Ô{agÇõTËÆVcû`çõDKê­Ž½Õ²±ÕÙ>ع7ZSou¶llu¶ ;÷F[ê­Ž½ÕÒØêlöjdO½Õ±·Z['Û…{£ç¾{«¥±u²]Ù¹7z¥Þê®lill×Ìy=Á}‹ë¹pXÏ…¥³uþcve¯Nni=Õq=Õçõ|»ßÈü—nS~$þÂmÊŸwAÿñöò¿¿Ý¾ÍG<¹ÿÍd>˜Ç‹ü?ðäé€}ÌW·OG¼ø|ÈãèŸyú|Èþͦq:äéÓ!±þÓjN‡üó›çóõý_/ž¯¿~ÿÓÿôoýÖnoþx{`ßòúxÀƒ§žÃ)^x™Uq:àqÏ<ïçy:à‘ýñ€Ó*~ͳtì˜{|aõÙ—×ól9^öÙ—×ól?^tõÙW×ãlÙŽ—4}öÅõ<{·Qø;®­ãl?nWðÊ¥õø˜pÿqÜ]âå#Ü‹e·Bxÿò{øÂ?ÝŽ²ëÚëOy{ûÝí§üË1,rܺ3Ýî‹øý—ÿõõß¾º?ÌíËïÞÿ÷Û¯þp{ó›ütœÎÿúôn×ñ׆~Ü‹ùxO¿}ûþ»Ÿß=ßÛÛÛ¿¿ûÏû›ÛýÍ÷ïþôá÷¼}ûöýÛï~÷á§ø@ƒš÷»y÷û“uŒ?è?>üðö/ßýüöö~zûõ›¯îðîõïÞ¿ýáâýïÏk_ëôÛ³oÈêë¶ï[¿?ÏgöôùmÞ/Ì}äæþ£ôÇç·ã&C¯~~Û±…ãåÏdòûÃûQò>‚“¼ù1‚–<ú…ÉÓ¿ÎÇzÀûˆHòììµÈµÙzÜ¥åicïë!ïë!›±gg¯E^©·zI–Å6cÏÁνÁm‹½½ÞG`’ÍØsÛñU9öVÁÖ½À$çÞèžz«›³Ç`ëÆ6gï#0_÷H½Õ±·z[7¶9;÷FKê­Ž½ÕCØûL²9;^/¿ÜSì°õ‘InÎÂÖƶÉνіz«ÛdakcÛdO%{ê­Ž½ÕCÙÚØ6Ù¹7úØ"‚Ž½ÕCÙÚÙ6Ù¹7z¥ÞêØ[=”­m‹{ƒ÷Âêì¶ØCÙÚÙ¶ØÓÈ-õVÇÞêalíl[ìÜÝ™äØ[=Œ­ƒm‹{£Gê­×ûÓ/#6wŸG€^ù<ÂôÊç Wö=Gà^9öVŸG˜^YÛ7öt²¦ÞêØ[=œ­ƒí;÷FÛ1"“{«‡³Uؾ±so´§ÞêÞØÃÙ*loìÜ=Souì­“­ÂöÆž“¼Rouì­“­ÊöÆνÁûze‡Þ ÉVe{cçÞè–z«{gÉVe{gçÞèžz«coõXlU¶wö\ä‘z«coõXl5¶wvî–cD&9öVÅVcû`çÞhM½Õ}°Çb«±}°×F¶Ô[{«ec«±}°so´§ÞêØ[-[íƒ{£ç1"“{«ec«³]ع7z¥Þê.lÙØêlöj`Ùbï…Cï…¥±ÕÙ.ìÜ}|S{«¥±u²]ع7º§ÞêØ[-­“íÊνÑ#õVweKcëd»²W'Kê­Ž½ÕÒÙ:Ù®ìܭLjLrì­–ÎÖÅveçÞhK½ÕÝØÒÙºØnìÜí©·:öVKgëb»±× ÏÔ[¾Þ”ø’‰ÃÆ>ȼ².¶{ ò #2¯{«e°mc»±so°n±÷Âç™W–Á¶íÎνÑ-õVÇÞêóˆÌ+ÛÆvg/!÷Ô[{«EØç“WvgçÞèFd^9öV‹°­±ÝÙ¹7ZRoõyDæ•EØÖØ>Ù¹7ZSouì­>ȼ²5¶OöR²¥ÞêØ[-Ê>ȼ²Ovîö0"óʱ·Z”m}‘yåÜ=Sou_lQ¶u¶/vî^©·:öVŸGd^Ù:Û{ØâˆÛ+‡Þ ‹±Ï#2¯ì‹{£[‘yåØ[-ƶÁ>ȼrîî©·zll1¶ öÜØç™Õ#õVÇÞjq¶ öÜع7ZRouì­gŸGd^ynìóK˜^ü|]ÁÃNÖcD&y_Yœmž{£-õVÆg›°gcï#2_·§ÞêØ[-“mž{£ýÖèØ[-“mÊž{£Wê­ÞGL’e²MÙ³³soð>‚^Ù¡÷Â2Ù¦ìÙÙûˆÌ×ÝRouì­–Å6eÏÎνÑý‘IŽ½Õ²ØfìÙÙ¹7z¤Þê1زØfì9ع7ZRouì­ÖmÆžƒ¬ÇˆLrì­ƒ­ÛŒ{£-õV7gÁÖmÎνўz«coõ¶nlsöòL½Õ±·z[Ûœ{£×1"“{«‡°µ±m²soðýÐ{á6ÙCØÚØ6ÙSÉ-õVÇÞê¡lml›ìÜÝSouì­ÊÖζÉνÑã‘IŽ½ÕCÙÚٶع7ZRou[ì¡líl[ìidM½Õ±·z[;Û;÷FÛ1e‚{«‡±u°m±so´§ÞêØ[=Œ­ƒí;÷FÏÔ[Ý7ö0¶¶oìéä•z«coõp¶¶oìÜ›½´Úm´wï#è…½¯‡¼¯‡¬Âö=ÜRoõ>"“<œ­ÂöÆνÑ=õVÇÞêál¶7ö>"óuÔ[{«Çd«°½±so´#2ɱ·zL¶*Û;÷Fkê­Þ÷ÛÇd«²½³so´¥ÞêØ[½È$«²½³ç"{ê­Ž½Õc±÷Y0dïìÜ=™äØ[=[í{£Wê­ÞG`’Çb«±}°sïÙ²m¡÷ÊçÞ+ËÆVcû`¯ÜRouì­–­ÎöÁνÑýIŽ½Õ²±ÕÙ.ìÜ=Rou¶llu¶ ;÷FKê­Ž½ÕÒØêlöjdM½Õ±·Z['Û…{£íaIŽ½ÕÒØ:Ù®ìÜí©·º+[['Û•½:y¦ÞêØ[-­“íÊνÑ+õVÇÞjél]lWvî ÞÍ-vè½°t¶.¶;÷F·Ô[Ý-­‹íÆ^ƒÜSouì­–ÁÖÅvcçÞèqìç&ÇÞjlÛØnìÜ-©·º;[Û6¶;;÷¯j;^µ[õ÷õ÷õmc»³÷ýÞ¯ÛRouì­aÛÆvgçÞh?ö{“coµÛÛ{£gê­Þ÷{“EØÖØ>Ù¹7z¥ÞêØ[½ï÷&[cûd/ïó´;ô^X”mí“{£Û±ß›{«EÙÖÙ>Ù¹7º§Þê¾Ø¢lël_ìÜ=Rouì­Þ÷{“­³}±—‘%õVÇÞj1¶ ¶/vîÖc¿79öV‹±m°çÆνіz«ÇÆcÛ`Ï{£=õVÇÞjq¶ öÜØËÉ3õVÇÞjq¶ {nìܽŽýèäØ[-Î6aÏÆνÁc‹½-Î6aÏÆ^“ÜRouì­–É6ù¯j=þ˜>¼¯‡¼¯çu÷c=äÑØ2Ùû~oòlìÜ=ŽýêäØ[-“mÊÞ÷{“so´¤ÞêÑÙ2Ù¦ìÙÙk‘5õVÇÞjYlSöììÜmÇ~orì­–Å6cÏÎνўz«coµ,¶{ßïMνÑ3õVÁ–Å6cÏA^Ç~orì­ƒ­ÛŒ{ƒe‹½Þ÷{“Ç`ëÆ6gçÞè–z«coõ¶nlsörO½Õ±·z[Ûœ{£Ç±ß›{«‡°µ±ÍÙ¹7ZRou›ì!lml›ìÜ­©·:öVekcÛdO%[ê­Ž½ÕCÙÚÙ6Ù¹7ÚýêäØ[=”­¾Þ¿pîž©·º-öP¶v¶-vî^©·:öVckgÛbOë{/z/<Œ­ƒm‹{£Û±_{«‡±u°}cçÞèžz«ûÆÆÖÁö=Øc±ÕØ>ع7ZRouì­Þ÷{“ÕØ>Øk#kê½°³ãzªec«±}°óz¢-õVÇÞjÙØêlìÜí©·º [6¶:Û…{£gê­Ž½ÕÒØêlöjä•z«coµ4¶N¶ ;÷ûvì'‡Þ Kcëd»²sotK½Õ]ÙÒØ:Ù®ÿ˜óz¢{ZOu\Oµt¶ÎÌ®ìÕÉ#­§:®§ú¼žo÷»ÞŸoi¿mÛíüã~Kûãû¥[ÚÇNùo/ñðûÛíÛrÈ‹·cøòãñx¡ÿÇCž>â½æyútÈþršýÛ±[ž>²Çiœyú|HXÁ§ùç7Ï'íû¿^ýðpß_x)÷ŸŽ×_¼ùñöåýu{óç/þõÍñÞùôý¾_÷ë"œÞ?ãôÇØËpº|Æéë˜ÚN·_ú¾éà~цÓçgœþ˜Éy:½}zêöçuß°ÑŽïëþx{zÿ-œÏ«±ò˜1÷p8DŽéSŸy8ò˜DñéçdŠÓ!Ï›E|<äåæçCä¸ ë§C‡Ž[]|öåörºw’xír{|¨øBæã~Ï~/~þôþãoæ‹ÿt;>ߺ߇½üé/oo¿»ýôÈÙ_T"ãÖí¸eù}!¿ÿò¿¾þÛW÷‡¹}ùÝûÿ~ûÕno~“Ÿ“Óù_ŸÞmßÿÞ}ÿíÇ·¯Ž÷õÛ·ï¿ûùÝóý½½ýû»ÿ¼¿¹Ýß|ÿîO>üpûðÇÛ·oß¿ýþçw~Š5°zßÁÝïÏØÜ7šôíÛ¯níþ {{jþÏOo¿~óÕmÞé»wïßþpñ û,Ç[=î6Òæ1”¼Ù1ûîùôž>Þÿ ßömyvÛ7ÿ=>_&¼ú9p¿‹ÂºõÇÍžŒ|¿óþI8;q­×yìnŽ^¹í;2%¼J3âìĵ^§=–ÙŽWQ?hÄ} ¯s_Âë4#ÎN\ëuzŒ,ƒ(‹hFœƒ˜"gŒ, ‘…º͈s¼Îc¯0DŽAÔhNL‘gÚ"+›Ç êF4'Ny-F†ÈÂ!D݈æÄØcdaˆ,B¼µ4'†‹áÁíxMãƒò:MÀ} ¯sQñþ)˜"%F¶IBÔF´Iœú:5F†È¡DmD›Ähû® `ˆ,JÔN´IL‘# CdáP¢vâý¯RÀ8cda[Ä¡DíD[Äût¯rÅÈÂY8Œ¨h‹˜"Ïôãß`€çÈÊaDD[ÄØbdáù~°­ãÞÿj¼/x_Ð7â´×yìE†ÈÂáDD߈Ó_爑…!²p8QÑ7bŠ <öCdáp¢ Ñ7bŠ ÔYØq8Q…è˜"-F†ÈÂ1‰*DoÄ9_§ÇÈÂY8&Q•è˜"=BÀY8&Q•è˜"WŒ,ì8&Q•è˜"Ïœ[ˆ¬ˆ)2pÄÈÂ>ˆcÕˆ>ˆk{# Cd¡lD5¢bŠ ÔY" e#ª}Sdà±G" e#ª]ˆ)2Ðcda¢lDu¢ qµ×9cdaˆ,”FT'ºSdà1ß" ¥u]ˆ)ò̵…ÈÊsd¥4¢N¢+1E¶YØ•(¨“èJ\ýuöY" ¥u]‰)2pìó!²P:QÑ•˜"%Fv#J'ê"ºSd ÆÈÂY(¨‹èF\ãuZŒ,<!÷äãˬ(ƒ¸/áuº×x¾o#†ÈBDÛˆnÄ8cdaw¢ ¢mDwbŠ \1²0DŠm#º—¼Ê¶m¡òÊçÎ+‹°­±ÝÙ¹7ºí£ѱ·Z„míÎνÑ=õV÷Éa[cûdçÞè‘z«coµ(ÛÛ'{)YRouì­e[gûdçÞhÝG#¢coµ(Û:Û;÷F[ê­î‹-ʶÎöÅνўz«coµÛ:Û{y¦ÞêØ[-ƶÁöÅνÑkˆŽ½Õblì¹±sopÛbï…ÇÆcÛ`ϽœÜRouì­gÛ`Ï{£{ê­Ž½ÕâlöÜØ«UëqÇâ§<öшè}=dq¶ {6vî–Ô[=[œmž½&YSouì­–É6aÏÆνÑÇÞZtì­–É6eÏÆνўz«GgËd›²ggçÞè™z«coµL¶){vöZä•z«coµ,¶){vvî ÞGï;ô^XÛŒ=;;÷F·Ô[=[ÛŒ=;÷F÷Ô[{«uc›±ç ãU(äØ[=[7¶;÷FKê­n΃­Ûœ{£5õVÇÞê!lÝØæì)dK½Õ±·z[Ûœ{£}ß Ž½ÕCØÚØ6Ù¹7z¦Þê6ÙCØÚØ6ÙSÉ+õVÇÞê¡lml›ìÜ<¶Ø{áÐ{á¡líl›ìÜÝöÓèØ[=”­m‹{£{ê­n‹=”­m‹=ÙKÉ3õVÇÞjQ¶5¶Ovî^q¿÷…coµ(Û:Û';÷ïsž:;ì÷¾°(Û:Û;÷F·Ô[{«Ã~ï [gûb/#÷Ô[{«ÅØa¿÷…}±soôˆû½/{«ÅØ6Øa¿÷…so´¤Þê°_ýÂblì¹±so´¦ÞêØ[öÛ_Ø{nìådK½Õ±·Zœ^/pá¹±so´ûÑɱ·Zœmž{£gê­-Î6aÏÆ^“¼Rouì­–É6ù¯ê—¸ïž½&xŸa/ìÑØ2Ù¦ìÙع7ºûÕɱ·Z&Û”=;;÷F÷Ô[=:[&Û”=;{-òH½Õ±·ZÛ”=;;÷F˱ߛ{«e±Íس³so´¦ÞêØ[-‹mÆžƒ{£-õVÁ–Å6cÏAöc¿79öVÁÖmÆνÑ3õV7gÁÖmÎνÑ+õVÇÞê!lÝØæì)àµÅÞ ‡Þ akc›³sot;ö{“coõ¶6¶9;÷F÷Ô[}žé|å!lml›ìÜ=Rouì­ÊÖƶɞJ–Ô[{«‡²µ³m²so´ûÕɱ·z([;Û;÷F[ê­n‹=”­m‹{£=õVÇÞêóÜõ+kgÛbO#ÏÔ[{«‡±Ïͯl‹{£W˜Å~åØ[=Œ­ƒí;÷žÝ·-ô^ù<™ýÊÃØ:ؾ±ÏÓΫ[ê­Ž½ÕÃÙ:ؾ±sot³Ï¯{«‡³Uؾ±soôH½Õ±·z8[…}ž‡~åÜ-©·º7öp¶ ÛÛ/x¼åÆî9ÉÇ= н±Çd«°½±so´íû½Ñ±·zL¶*Û;÷F{ê­î=&[•í{£gê­Ž½Õc²UÙÞÙs‘Wê­Ž½Õc±UÙÞÙ¹7x¿ù¦±Cï…Çb«±½³sotK½Õ}°Çb«±}°sotO½Õ±·Z6¶Û{mä‘z/ìÕ/7óÛÝ[6¶Û{mdI½Õ±·Z6¶:Û;÷Fkê­î–­ÎvaçÞhK½Õ±·Z[íÂ^ì©·:öVKcëd»°soô<î2OŽ½ÕÒØ:Ù®ìܽRouW¶4¶N¶ëçûåÖÍ»÷õ¼ê~Ü·Ý•-­óïðóvÙ»]Ù«“Ûc=à®l9½¿ãFñçÛ”ç[Àï·)?á6å}ò?ÞžðàûÛíÛôëOS—_žÇ ü_~ù©O¿¼øêöñ×_x:àqçó[>ãl9¦3œÏ¶Ï8{×æùìùëÏîÉ›ŸÎnŸž496ýØñ­Ûo½\ÒûoXúõc„ÜC§_^Çd©—_~èôËÏÉL/¿þäù€Çý<·ìŸxü#ÂÇžÿ¦ðé€gòËçüšçgßgÇ—·Ÿ}M=N^Çkï>ûšzœ¼OVó¿ãšzžýxÝØg_SϳçqOŠ¿ãšÚÏ>>'ûõ5õü pÿ˜pÜAâùaì…ÏŸÞüý{òO·ããèéñºöÓOy{ûÝí§üãÈ1 ò~%w±¾÷ÿþËÿúúo_ÝåöåwïÿûíW¸½ùM~&N§}z¯kÿkß|:ÞÑoß¾ÿîçwÏwöööïïþóþævóý»?}øðÃíÃoß¾}ÿöûŸß}ø)>Πâýå÷O?Ãö]¢ÇýLJÞþ廟ßÞÞ|u³ûüÏãq>|}÷¼¿ñÝ»÷o¸x¬ýùík}úMÚ·^í[kíøƒù|ŠOŸÉÚ·ýÅQý¶¿Ä¸ŸÉŽÛ ½ú™llÇf—?–Égg¯E>†Í¢G¿ðó‹_ãc=`3öììµÈó±žä—¿ 6öèlYl3öììµÈ+õVÁ–Å6cÏÁνÁm‹½½ÖmÆžƒÜŽªäØ[=[7¶9;÷F÷Ô[Ýœ=[7¶9{ y¤ÞêØ[=„­Ûœ{£%õVÇÞê!lmlsv¼^Ãk_6[²›YÈÍÙCØÚØ6Ù¹7ÚRou›ì!lml›ì©dO½Õ±·z([Û&;÷F?6ƒcoõP¶v¶Mvî^©·:öVekgÛbçÞàý«:»-öP¶v¶-ö4rK½Õ±·z[;Û;÷F÷c3 9öVcë`ÛbçÞè‘z«ÃõþôË°Ýça˜W>+½òyØç•}cO#Ça·WŽ½Õça’WÖÁö=¬©·:öVgë`ûÆνцa^9öVg«°}cçÞhO½Õça˜WÎVa{cçÞè™z«coõ˜l¶7öœä•z«coõ˜ìó0Ì+{cçÞà}ؼ²Cï…Çd«²½±sotK½Õça˜W“­ÊöÎνÑ=õVÇÞêó0Ì+«²½³ç"Ô[{«ÇbŸ‡a^Ù;;÷FK†yåØ[=[}†yåÜ­©·ºöXl5¶öy˜dµ¥ÞêØ[-[íƒ{£=õVÇÞjÙØça˜WöÁνÑ3 ürì­–­Î>ürî^©·º [6¶:Û…½Xâ0Û+‡Þ Kc«³]ع7º…a’WŽ½ÕÒØ:Ù.ìÜÝSouì­–ÆÖÉ>ürî©·º+[['Û•}†Y-©·:öVKgëd»²so´†a˜WŽ½ÕÒٺخìÜm©·ú< óÊÒÙºØnìÜí©·:öVKgëb»±ÏÃ0«gê­_o>½ÿ1/6ö±½¼¯‡ìÆ^ƒ¼Ža˜äØ[-ƒmÛ{ƒu‹½îΖÁ¶íÎνÑ-õVÇÞê}&Ù6¶;{ ¹§ÞêØ[-ÂÞ‡I’ÝÙ¹7zÃ0ɱ·Z„míÎνђz«÷a˜d¶5¶OvîÖÔ[{«÷a˜dklŸì¥dK½Õ±·Z”mí“{£ý†IŽ½Õ¢lël_ìÜ=Sou_lQ¶u¶/vî^©·:öV‹±­³}±—m‹½½cÛ`ûbçÞèv Ã$ÇÞj1¶ öÜع7º§Þê±±ÅØ6Øsc/'Ô[{«ÅÙ6ØscçÞhI½Õ±·Zœmž{µêí˜qû´“õ†IÞ×Cg›°gcçÞhK½Õ£±ÅÙ&ìÙØû0Ì×í©·:öVËd›°gcçÞèc¿5:öVËd›²gcçÞè•z«÷a’d™lSöììܼ›Wvè½°L¶){vö> óu·Ô[{«e±MÙ³³sot?†a’coµ,¶{vvî©·z†I–Å6cÏÁνђz«coµnl3öd}¼r {«Ç`ëÆ6cçÞhK½ÕÍÙc°uc›³so´§ÞêØ[=„­Ûœ=…ï÷¾²(Û:Û;÷FÔ[{«Ïû½¯l틽Œ,©·:öV‹±Ïû½¯ì‹{£5ì÷¾rì­cÛ`Ÿ÷{_9÷F[ê­[Œmƒ=7vîöÔ[{«Ïûí¯lƒ=7öròL½Õ±·Zœ}~½À•çÆνÑëØNŽ½ÕâlölìÜ<¶Ø{áÑØâlölì5É-õVÇÞj™l“_ðª~y=üîO7®¸öšä~¬‡<[&Û”=;÷Fc¿:9öVËd›²ggçÞhI½Õ£³e²MÙ³³×"kê­Ž½Õ²Ø¦ìÙÙ¹7ÚŽýÞäØ[-‹mÆž{£=õVÇÞjYl3öéN9—νÑ3õVÁ–Å6cÏA^Ç~orì­ƒ­ÛŒ{ƒe‹½n΃­Ûœ{£[ê­Ž½ÕCغ±ÍÙSÈ=õVÇÞê!lmlsvîÇ~orì­ÂÖÆ6gçÞhI½ÕçyÙWÂÖƶÉνњz«coõP¶6¶MöT²¥ÞêØ[=”­m“{£ýدNŽ½ÕCÙÚÙáëý çÞè™z«ÛbekgÛbçÞè•z«coõyžý•µ³m±§u‹½½Æ>σ¿²-vînažý•coõ0¶öyü•sotO½Õ}ccë`ûÆ>σ¯©·:öVgë`ûÆνÑæÁ_9öVg«°}cçÞhM½Õ±·z8[…}žåÜm©·º7öp¶ ÛÛ/xT¿ÜÏd÷¾ßûu?î÷@Þ×C“­ÂöÆνÑóØïMŽ½Õc²UÙÞع7z¥Þê}¿7yL¶*Û;;÷Û{/z/<&[•í½ï÷~Ý-õVÇÞê±ØªlïìÜÝýÞäØ[=[í{£Gê­îƒ=[íƒ{£%õVÇÞê}¿7Y탽6²¦Þ {ñÇû1îîƒ-[탽6²¥ÞêØ[-[íƒ{£=õVwaËÆVg»°soôL½Õ±·Z[íÂ^¼Rouì­–ÆÖÉvaçÞ`ßöýàèÐ{aillWvîn©·º+[['Ûõóýr?ïÝûz^÷q¿tW¶t¶Î¿ÃÏû©ïve¯Nõ€»²åôþ¾Ýoz¾¥ý¶m·óû-íKì—ni¯Ç ÷oÏGxðýíöm>à…c߸÷8`/òÿxÀ“§üØeþñ€'?°¿ŒÆôSÓ§öï3Oýðpß_j)·q¼àåÍ·/ïÿ÷«Û›?ñ¯oŽwÎgï7úº_ç³ûgœýsy>[>ãìu i8Ÿm¿þì}‹Áý=Ÿ=?ãìÇÎOg·OÏÚþŒÎv³ã[è?Þž|¹¶÷ß´rÄ1MîÁóë˜òõñ€Ï´~ÌÉúxÄÓáÇ¿|:äùoçCÖñ¯Ÿyø|ȳþã!çÕüò³ÕýØniÇ‹6?û{ž½Ž[Ê|ö5ö<»õãŽ-Ÿ}‘½œ®Ç Q>û*{9}Ÿ³}þeö<½ïÛÝý•ëìù±á ™Ç='žá^Ø÷|û‡ü¿‘Oÿév|½uíôùö󧿼½ýîöÓ?þæ¹o&Ü/Íû~ÿå}ý·¯îrûò»÷ÿýö«?ÜÞü&?§Ó¿>½×¾ÿ½Ún~|wðxW¿}ûþ»Ÿß=ßÝÛÛ¿¿ûÏû›ÛýÍ÷ïþôá÷¼}ûöýÛï~÷á§øH›ûqƒÅ>Ž}¤Ç#}ûö«ûepûòooïOÌ›¯nv”ÿy<؇¯ïž÷7¾{÷þíø¿øÿ.r{endstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 504 504] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F3 /BaseFont /Helvetica-Bold /Encoding 9 0 R >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000013105 00000 n 0000013188 00000 n 0000013311 00000 n 0000013344 00000 n 0000000212 00000 n 0000000292 00000 n 0000016039 00000 n 0000016296 00000 n 0000016393 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 16495 %%EOF metafor/man/figures/selmodel-preston-step.pdf0000644000176200001440000006426114465413175021111 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20230811130740) /ModDate (D:20230811130740) /Title (R Graphics Output) /Producer (R 4.3.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 22751 /Filter /FlateDecode >> stream xœí½KvÉuœ;ÿ~E É>åý2ð„†m@86`± ªeQ§HÊ¢lùç;׊ˆ];— [­3:ìî`Õµß}É·'Vþø³üñwÿíÛþøo}~éc–ï)}´ŠeÿÿþáÇÿòñÛoúû?ÿ¿øø·¿ü–¾¯Ù?Ò÷Z쟭¤_þÛÿô­|?òŸ¾ýÅ_~¤¿þ–?þìüïï¾ådFÿñÛ¬æÔfûžëÇo¾§G~šl·\oÙ¿—[Ž··Õ¸­Æm5o«y[­ÛjÝVëûÊ/¹¿—[Ž—\ç{ß²ÝòmµòeuäeUn«r[•ÛªÞVõ¶j·U»­ÚmÕo«~[ÛjÜV㶚·Õ¼­Ömµn«sÚËKžÓ~Ëñ’ûœö[¶[¾­v¾¬Ž¼¬ÊmUn«r[ÕÛª>VÅdƒUý¾6dƒrAž»íÈ«ú=H·*ß·ÿtÀªð³Vå{] wÂ*_r@öirÁ꜅ Ù ÏÅp¹ê‘éût«sÚ![…þ}s:çýè±íCÐ ºK/èR\g· ßÊô€îËußú^µûÍï»R/èÏWø/<©Ýoè÷ü†üü†} Úýú÷…Ÿwøõï½PèŒãðó† ºA·J½ Sw=áwkRh?÷9-ø«œ©4ÿþ¹Íu†>'ÒtÆÕ1= «kkvM'úÝ {¢^ÐÉÿ~Îî×7ïè]üøsq¿îÏ"tƒ®›ÚüÎ;dûùÉ~“Çô€Nðoðv t^Ôî×ùýr‡_çõ=Úýtþó€_û^µû'nR/è†ßŸð;ç»Pè†Ï/øåï»S7è6¨Ï#Õú9¿ð÷eº-êó|¶¶¿o×%Ù`ºMêfzñóG/hø—ì~íœÏF= q•¿Áççè]µûu<ù¹Tøuޥ¯}Ÿøý¿Æë}´ûÕï3Q/hÜÿ¥Ã¯XC= ~>à—y¿í~IßgÀ/éx§ûÕm¯ è]ðûËýêâýytƒÆý{ôGŸû ŸßÖp´ªçÿè]ýûÕdÚ깿uƒÎ“ÚýšÊ\3ü*¯×ѺBø•ïSºAã|ÿp¿s>ð÷+üïèësþ°ùÃÆù?ºAãù9ÚüpLw÷;§ ÏçÑ:ûù9_Üý†þþ€_çýô‚.~=Ήt¿Æçóh÷;ß~ ~•Ï[]ð;÷ƒ~~<Ó Ÿßöà¶só|yCsºŽß§_¯s#$h´—GŸ¥ÇíKKîw;´çÆ*Ðüýì~ç1Æýd7¢éÁówtƒN…Úý:ÿÜØî×ìkB»Ÿ®÷y04ÎÏÑîwÚçMí~™ÏcëðËÖÝ„v¿Äûó<¨æ—t¿Ý s¢6¿´Ø^5±5{mljó;¯´/§áHÐh­!1Ýy½>/¶–¼Y5½í‹˜ÆûäèaZíãiÈ’ébÿ7t3­öðè÷ùiÝOï—£Ïëé&àù: k‚Æý` ­éóþHÔËôy~ñû~¢+ú3Ð:áxüÎõ«Ôî×x=ìÅ`ºòûö¿Êöâh÷+¼þ}À/ëó~IŸðKúûÓýNïÏ« žL/ÿr¿ÓÑÅûéèõé ÖÓMÆýd/ZÓ÷‡½ˆMŸöÙ/êºt?Ý qí~…á—y?í~‰ý›Ó‘Hиߎ6¿©ïs´ù!OÇß÷ŽJ=ã%\OëȘÖýghOƒ_·®<´û©=9)÷Óõ9z@ãy>3÷+ìÿí~™ïÏ£Ý/ñ}`¿£­ÿ¹¨4®×ðEµþä¦6¿ókMú<¸õØâù:¬¦;zì¦'4îŸé'®ž¯U¤»éJ¿£ÝOÏÏ9p÷Ë<¾£'4Úsë±›N|~6¿s ?€î=·wûó9Qæwn;œ¿é/jÓx¾läazðù<Úýt=Žv¿Æþó¹PîWÙ8Úý ï·sa34ÞgG»_æó3üûûçF1¿Ó¬ }·Çôâù<7V†æ÷_î×&¯÷ѧãZÛ`ÌnLÓ>‚ž¦Õÿ³Ùtåý¸¼¡­Oe%øéy?†ûeöOv¿Äë$ó³þȤîи?—wÔëyÍaüpDó;¯I´ŸG›_Õxã<Èî§þÆÑî×øþ?zCg?_§!p?½oŽv¿Âûá4î—ù<í~‰ï“£Í¯¨ÿyž Íó1ÝïôÐ~ž†ËüŠúOÖ™¼>…zú Ÿ÷†Â4î·£§éÆçÿ4”Ùtåûøènºð}t´ûÓîŸß~‰ïÏá§övûÀ§fG¶Œj^lï¶wäkÖxð4ôægïÿEm~ç}÷×nðë¿Ú‹Ãt³Óí~•ýùÝáWØžî¿Ìç８2tÊÔî—Øÿ:ÚüÎûýŸó¢3¿ó~çù˜îwÞï<ËýÒàøíèöçèsãÔ¤ñÐy±VÓýA{ñš®¸?JòzM÷‡én:£?gzC{ÿ·œÿp¿ÓÔǯ[”c”M³?fº›ž8^Ó:Á¿š_Ù|ß™v¿Žö¼¤?ö¿L»ß¦7tÂ÷éð+hßL»_FûVΉr¿„ûÁ´ùÛtI›ŸÝÖ8¾é~ö,jó[ìO–s¡ÌϳIí~ý}Óg`Sì1ÆñokhLgéiºò|Úaº ¿`º›ÎhL»_¢_ÎðKô;Úü&ï§rnLó³fTÚü¬Ù]Ôæ§÷uÉÞq7í÷§i÷ëh¿Êyܯa|gÚý*úc¦74®:Òe<Ÿ¦ÝãårD÷ãûÚ´ùÙûzSo茿7Ýo°}2m~ç}Ýá¿ÜＯqþó‚_çõ<ú<è¦ ü¶ üÊhxŸ˜ž¦9SNC“MÏÑÚûǦÝ/cüXJ†_BûnÚüÎûçç4t:ujó;ïoÜÿG›ŸæGŠ5”¦¯ÿÑ:ùõ8 «ûuŒ‡M»_CûdÚý*ŸÇÓ0»ßߦ'4ž—Ó°»Ÿ®†¥s?Ýà ÓËýÛ/Óæ×t¿}ŒLóø·=å¼Ï{¢ž¦¿õÝ4»iΗ™v?=?çEè~ó¦'´÷o âÅæ&µùUŸ6ƒ6¿ºØ~UPMãù8ÚüìýŽÏûƒ]Îû}vêÍãmðëxŸø˜f« #`¶Þ´fh´¿Öq0Í÷½i÷Ëú{~ã Óî—пñ?ºl¶ÿÕ&~¤Ïaº@{Cb—µKOÓƒíï9q:KwÓïÓî§ë×2üúw¦Ýý»pîW0>÷ íïOÓî—ùü· ¿„þ¯ió;1îïs£d蚨Íï4Þ_4m~§Ùø|w¿<ù<¶¿Áöîܨî×õû~]¿?à×ä?áWù¼ØƒÍãYð+¼ßÚ‚ŸÞ¿6¸\óûn;Qö‹zBãþ:êyQùkfQwÓ ãEÓï_먛ž¼^G›_ìXÇ￣ݯó}o ‰éÆç£Wø5ô? öZÇõ9 S†öùÓîW0ŸcÚý2ÛïÓ°UèÜ©Ý㉂‰aëÖðï{ÇÚ4Úƒî u‹p¾º¿¸Mãþëþ"´nž§¾à70?jºCésa¬›‡ëÕ}"Êt’ž¦õ>Þѳn&üìÅ]¤ÝýG‘@ãøl"ßtf{n/Ó‰ï£Qà—ØžØBÁÑèv›®îw4žÏ£Ío©?p^|æwú3¸ß†O”˜n…Úýô¼Ÿg…Æõ=Úý:Ÿ×1à×õ÷üšþÞ€_ãó|^ÜîWyÿí~\Õ²}†Fûe A¦ý´˜Þö"4÷ÇÑÍ4ÇkÞ‘€ÆñœŽÆˆØ0Ñçs¼ã÷±­r™^ïxGÅôd{bKfи¾Ö±1ÍùvÓïë™î<XÌóau¦v?η[Ǫ@ûx×;Z¦+ŸßóÁ÷-:f6 €óoï'L¼Ø´ú3GhôÏq?µŸsÂ/ñy›>QeÓ¸ßω)ÐYú4Œ6MŸo»°¦³t3=¿~¾ á.L1=ø÷íÂAãøV†_çó»2ü:¿ßÑî×Ø?97JÆùY~:çFKиíÆ3]x?½ +>ßàÇ•RÓíë¹ÑÝëi¦4î£Í¯s¼m…þÝò‹é„ï;ÝÏæsuƒæùšð›¼ÞçA.ÐhO–¿Ø|Z?ßÖКFÿôèfºëx½cjíßiH 4Úg(™nìÏž†(Aãx¬a2]yþ^Ðxb æÓ¸z@£}Ù~…ýÙ£ÝKÑ>ЃæßkðKìOî?µÛܦ­ñ<Ú@íçÑ íëö‰0›Gû{ô€Æù´ªé©ãŸðÓó¿'ü8k_÷¼ßíÅS]£}ÂD·Mû/éöoûB¹i¿l ]L7<¿¦´Ÿ_˜»w˜nÐÞ~™^Ð>Ÿa}÷+è/šÐþ~ì˜nÐÞŸ1½ ýûØÄ‚û%̇™ÐÞ·‰ˆµù¡ ½ Ž×Þ³æÓL›Ÿ­ïáx|"Ót­ÔîÇöÙô‚æñ.øqýßô¹0¶¬µñómÎtŸÔ ºèçË4×ÿmâ¦@{ÿÇô€öù-Ÿè1Ý0fºAûóΉ!ÓÞ~ÙÄ‘û±PÑ4Í߯ð«úý ¿"ÿ ¿¢ãið+ßšv¿Ìû#wøñù2Ý K§v?®?ÚDYÆùÌ~|ÞlbÍül>qS7豨t…^î§õJÓ§á·eÚ‰ïãÞ—q¥t–^¦'¿ÿéøè.= q½Ï@Áýï£4Ž¯dø ô?m"²@ûøдûuô‡mâ2A{ÿÓtƒÆóP*ü8ßãŸÐü{ ~ ó)>Q íó '[†_zAãz•?Ž|":áx&ü Ïg™ð+X0½ q—¿¬ãõ†Ðô„¿¿˜L·JÝ ó¤^¦Ÿ§schoOMh|_˜B{{nÚü2ÛkÓ zàç¾ÐcšŸ÷Ž²i~¾º_æøÜtƒæ߯ð[xßØDzöñŒi÷ã~ ›ˆOÐøþµÃãÓ ÚÇÇ6‘_ S¢v?Î×ØÄ‚ÆýR'ü¯_ðãú¥/˜æþŒŠ ¾­ÇïŽižß8bšßÇ&l› ®gó…#ÓÞÿñ… h´/-ÃóÛ¦´M»ç#l¡¤@ã}d= ýýe + ºH7èԨݯ`>Æj ôи^ö"„.Ò :I»_Æüš- è!= é7á—yýÚ„_æóc/zÓ\ßµ…¨û±ù@Ò·MáüúB¢i´7èhø6«E}NœmÃBû{:*ÚûK¦4®Çéè$hï˜nÐhÿz†ßBÒÞ ´÷÷Lh|ÿÓKЭQ7ho¯òC{×ü&ŸçÞà7Ù_°Ž!t_Ô ïïÞá7Ùö!?œ>àÇõ _˜„Æýytƒ¦ÿ„ßàõÃD©é2¨OÇÀ4ÛkÛòð<ÛB)ô\Ô çÇV¡}þÎô€Æó` ±Ð8ÿGÓ/éçî§÷ý8h\ßQà×ø~~ç æ‹~N?¼°lÛñþ:z@ãùÁ³okÜÔ ÚçùPmšoÈ× Û¦Ñ?~…ïs,„û¶ÊN½ 'ŽoÁ¯ðz}Nß–‰ß÷+¦k¡îÐèÏ oø}[§ÿ3ð¬¦3û¶Í÷÷ÌðãxÖt‡Æ÷~zÞm,4Ú[ ”³Ö³lcýÐß<ÚýÔÿ9zCãýÆãçÛîÐx?Ÿñw†Æ÷Ÿ]~è¯M?´gsÈ÷ïôI[Ý©3üÎ.Ñ»>²»ÄËÅf%\¢mš¾iFKq&Ï=ˆ†I_BÙÜÈa²»D?qúÚæ6#ÛÿQ]&I³â"½íÉ.§dw‰.ΑÛ%qÙ$a…ñÆoêHÂ*K Ååo)[K\”Ó%^M6çärJv—¸PËG¼¶rРÔ#a…·êeà Àš´Â5[“VxDÏVxƒ,_ú܃ ͼ¹Ä󳼡ß\ž2¹]âÔmßæ·r'Zá ÏØV¸µw¦î¬#a…ï.´Â™Ü…Vh†Ï°V¸¾Û‡››þLn—xž1vu‰»îÈé’ÇÜݪcÂÂ$¬ð>ƒçî|ýØѺÄÕ·óà²àûNZá<ïI+ ÷¤n»…Žl|Rìn¬Xž7¹­AÛ§}û~óÍY6“ÒŽ¹áéÜ܃dVÞdÛ^6XyÚ$¬ü*4´TvŠðË…VeSªà—+­ò „UÚ”°JøåæV\909!q̾Caó=àú\ú}erCf—ƒV>)aVþ„ÚæAXõB «6(aÕðw­j£š0 +ï#™„•÷ú )ƒš/¬­ÅÛ{TZ¡5;V¸ÛG¥îö3h…Ú:[¬ƒôK†µ¼ÅƒŽÖA&JX ü¡A+¼ÊmŸ$þФú9cÒ Oʘ²ÂZ²J”gˆ¹úÞN$B.Êéhz{²¸KÓéGÈFI+ÿC3Ë*SÒÊÿ.ÀêµøÐ +´ÏG ÝYi…gðôâäÎ/ ×~ÓØé¿ÿi4¶¿pþ/46é7í-??>~~EÖÑ~ì8Æ×Ï)_¿`™^¿@ùú[Ðxýåûöý ;þBûƒßáõ ¿øçèW¿ÿçè÷¿úí·?ý÷å#üð7ÙMÒóè¦ÊÇR?üæãgçG?ÿøáï¾ý»Üûÿüa'€îO—þ§mcUøtûçÚ·ߟ?áÓëûôúçºÅ³–¿Î–OÅþ†yB¦íŠ…ŸãaÃŽ»¯g\bý<¿®8~Á÷–Õç(_¿à‹M_òý {¼ÿåëcÀ_x‡Ƶõ­áË{o?ù¶Â‡‰ÿüôÛÊ?m›O_æ'ßV…{Úûבÿ„ÛŠŸÞåëÈÂm…O“/ÿƒ·‚omíWc&É}êJþíZÓÿυØPxð/~ö÷ò?~~þïŸýÕçÿñçùñßůúúøŸ¼\³Oø8`õç?~þÕ?þšv?~ü?¿þϦ󟟿þÛßýî¯?~÷7¿üñóÇ_ýã¯÷Ûç/ýÔLºìï¯smmRð™Ìôøc¦ÇÌôHïLΠ0Ócp`ÄL11–e¦Ç ~ËLÁÕfz nÞf¦GçZ3=:·¦0Ó@ì“éÑ9ûÂLÆA3=ÚÄX‡™­af™­ð¨éÑ’2%éQ—26éQ9O­LÊ5.ezÔB¦Œ™UL#3=Ê M™…s×Êô( «LR”1‚L’”L¼ôsdzä=ÊôÈ™ÌôÈE™ÈôȉŒ3=ÒbF3=ð¯Ï'Ó#5er Ó#q‚Q™‰{Ö˜éa3Ö`æéa½‰­ÌsÞ«&¾™éa=]0ÑÈô° 0¯Èô°µ„Ѩ[c,m~k1F¦‡-Ÿ0ÃÃ3=œ†_Ÿ|dzØzÒVæ‡ù¡yýT¦‡3½“Úü´g•™¶ô&™¾Ô'm~c)óÃ7ÓØÒ$ÿžo¶¶¥L\dzØR)2&éaK±Ìðã%fzøRñ¢6¿>™IL_ÊVƇùu1ÈÈôð¥vhŸ{ð¥ûA=ú·|*Óö0sÂg×l«Ž™¶ÕÏ2=*¢>•éa[/À¤"Ó÷vjó«‹ß™¶õ„¾ù¶ª¼3=|+ŒŸ_dzÔÊYkfz8#º©Í¯leŠx¦‡mbf‰gzØÖ£®Ìó+Œ*2=l+˜YdzøÖ*|¿ ¿¤ïë™ên+Óö†ñ|úp·>™ Èô°þ&îdzT1Ìôð­t~<Èô°­wå•éa[û˜qá3¶Î\"£ÂѶò÷}öÛO¸‘éá[µû=™~…Ï2=lë&3E<Ó÷~"SÃ3=|ëh¦nÙHþ=ß\`[W™ùá#)Ûúúd|¸_Õçü2¯2=Šæš™éQ4 ÈLÛ:Œó‰LÛjŒö™¶•™™$>Qž dzØÖid Óö^ƒñE¦‡mÕsŽLÛê癶•œ~c”'S™¾u]æ7;™zdzØVyÜÏÈô°­õx^ñ`ÙÖ|¼éá[ý µù ÝÈô0ÔÏ 2=MhÔæ73éQ0qõ©LG)ðù¿Êû™†j4e|¸_ÖñOø)󙥓ia¦‡3ƒƒÚüúÔ÷õLò0þÈôpF0SåŒ`yezªƒŸ#ÓÙ@i÷ãž)fzJ„÷2=œôï‡LC—ž ókS™žéQžL"l7Ô í º0†fµW¦‡¡]¸_7–'c™†’1“¤ÃOÏ2= ]{2;̯’yc¦‡iÜÈô°ÑpV†‡ùiO03=ÝÃçüô<"ÓÃ涄LcöÐâB£Ç Ïô ºø©LG•áqntcöŠ2?̯(™¥e¦‡1yx#Ó掞ŒÍL¿Æë‹Lcò˜ÑQá§Ldz8ÚªŒ÷K_™ ý+dz”'³™Îàáø^7æï/dz˜F™Æàá~C¦‡1wí•éaÌú§Èôpæ®S7hfxCS²2½éáèt¢žÉ™:|™¦ñ< ÓÃ;ü}dz8c‡ß÷ÍFÎØjóK“Ï2=Šö¸1Óغ¥Œ ÍL ?Ý_ÈôpTºÁ¯²=E¦‡3u“Úýô| ÓÃÑþM=¡ÑŸ@¦‡1tC¶‡i¯¯Ì Íïã_Ìæ%ÐC¦‡Gàï-ø ¶gÈôp†N;ƒ¡S†GÍÎС}@¦‡G5 £ÃMge|ôìÌÚWdz3·^™¦qýéáѯL¬EAfzd­V1Ó#ký‚™ѨÍoM¶OÈôð¨ éñ2=œ™ƒîðSÆ2=ücÈØðk˜¹b¦‡3s…Úý¸G™¦Ñ#Óƒ_ûS™¦yü ~IÏW“Lãz`aÎ.ϯÅ~ÙüçÈô0Í Ïô°ÛïOdz˜Æû «úváû#ÓÃ4®2=ì¶ÊøèÐYî§Ì dzøc©Ý¯òú"ÓÃ42eéáÝ ÞÐh‘éa-®'2=L§W¦‡7Òúù¹ùý•áQ¡ñ|"ÓÚ!¼éáÍÖ¢ö¹Ü'³Ä_TÎÌá|{¦‡3szB3£Ã3=¬™#XÖ›áJí~b²‘éaL22=¬Ù_¯LÓ̼(ð+dÆ‘éá¯exThfrTøe2dÈô0•áá~IÇÛàÇ­ÌôÈO†2=rçû„™öšeƆo¶7 F™Yó&ÌôàküS™þšÇçüļ"Óû •ú<ØÞ@¦ˆ¯c{7#QOè‚Ì ßÇ`Ý0†Èô0]¥Ý¯*£"Ã÷/3=L3“£À¯ñC¦‡w³2õ†ÇLï¦Uê ÍLŽ?ŽÇ˜éáÝÀM½¡™Áá™Öƒ‡LÓõ•éaÝЭ  &™ÎØá÷'ü¦2?&ü”9€LŒ­ ŸÊôðns¦>/jïVÃÏ3=Lãz#ÓúåÈH|âÌ]¢îý‹¹c¦‡uó™y‘á×Èô"Ó#?ÈôðaĦîÐU:½2=lXÂ߯ðãxœ™>¬©ÔîÇþ 3=LãyD¦‡ifŠtø‰‘D¦‡³”áÑ¡q~éáLü<Ó#×­ ßüoL.2=|Øש;42é‘•ÅLgô¤'43(<ÓÃt•îÐOƇû ~dzø°¶QOè¬Ì÷#CÃLŒÝKŸÊôða425*ü¸•”™¦q¾‘éáÃòBÝ¡ù÷ü*æó˜éá ߢžÐÌüðSF2=r-Ê8ð#³ÅLgú µû1s‘™>M±¨;4×;n¹ŠùF¦GÖ|3=œñóãA¦‡3~“ºC#ó™¹p#3=|Ú%SOhÜÏÈô0•áa~eéó~KŸ¯ð[ú|…ßÒßoð›l¯éáÓH•zC£}E¦G.bΑéáLà+Óãa™éáÓXzC#3™6 ¦™¹¨}A¦‡3‚…ºC—W¦‡i´7Èôði·F=¡Ñ^"ÓÃ432¼£æÌà¤v?Žw˜éaÏ 2=œ!„_Ÿ2Héá á¦v?ÎG2ÓÃ4idzpòS™Î6êÍL’?Žw™éáӜҺ)Ã#C—w¦Gá¦Lez”¤Œdzî‡T¦GQ{ÇL’ä‡L’”A‚L¬þ3=²2r˜é‘÷é‘·2'é‘•!ÁL¬û›™Y$ÌôÈÜò£LÌñ”2=²îwfzˆQT¦G&“¥L<ïL¬ûŸ™yòû3ÓCãkezä¡ãE¦GÖóÀL<˜‰ÁLLò@™Y™ ÌôÈÊÜb¦Gî<¿ÌôÈ™ÌôÐx^™YÌôÈO¦2=2W«”é‘ïfzä¦L dzdîàW¦Gn<~fzde²1Ó#s¼¥L¬ fzd½ï™é‘+û+ÌôÈU ÈôÈOfG“2˜é‘™ñ®L¬÷3=4Ÿ­L¬ (fzä¢L‘)¿'ãƒ~I?w¿ÌëÍLÌÌxezde00Ó#“V¦Gf}ezdõç™é‘3Ï3=27F+Ó#s=Q™Y™iÌôÈO†2=râóÁLÌÝÂÊôx2˜é‘”ÁLÄÍ·ÊôHz¾™é‘63ǘé‘ôþb¦GâSez(“Y™‰ó#ÊôHÜI©L¤LDfzh½A™‰›ü”é‘3o˜é‘¸> L'É™‰ûÊôHSÈôH“Ÿ™‰ãKez¤©ŒŒ,?|fzˆéT¦GâxT™i~ex¸ß`ÿ‚™I™|ÌôHÊ|a¦Gâz’2=´¾ªL4¾2>èW”ñA?œfz$½Ÿ™é‘˜QªL¤÷53=’2˜éñd\1Ó#u2=×ה鑔)ÈLÄõ0ez¤NÚŠ™©‘yg¦GâøP™©)ó™‰óAÊôHœW¦Gâ|™2=Ò“R嗥闤ݹÊôHb¾™é‘˜¬LÄÊôH¯*Ó#1óX™©2c™IÌôHœŸU¦G"'¤Le†)Ó#ex Ó#‰)g¦G*dŠ™é‘XE™‰ó?ÊôHœ?T¦G*ʬÈò¦ÆLT¾2?è‡ãe¦G£ÎL”‰2Ó#ee~ Ó#ee` ÓCóµÊôHÌ W¦GÊÌxa¦Çü2Ó#qýX™‰ëŸÊôxXfz¤L柙‰ý-ez<ö" ŽQÜæ–yæw<ð.â;6·®3½c+Lá{ñ9AvÇæ¶Fwl&)1¹c?Á•Vø‚ÈíØ,ÛÀØŽÍT:¦vlN 0´csüÇÌŽÍH}Fvl®Ö2±cs²[ù@ÈëPyÆuÈÕØŠA¬ÆæŠS5…3Tcs¾“™[‘#ˆÔØÜÃD­Î5„Œ3OcW6›ˆÓÐÊ/Ó46Ò ÓP¼²4”+KƒÉ×ÊÒ _®, æŽ*K£(xYÜ«,¢Pdi°Æ“²4Ôýd–Fá%c–FùJË€ú¦ÌÒàÖQei¥VZáÁa–kÁ)KCQ_ÌÒà,²4XFYE‰VŒåè´B{Å, …¸0KCýafisW–wÓ*KCefi%|LZáú2K£|EkX>Dá3È, eÅ0K£(xYœåP–7Á)KƒsæÊÒPÌ ³4X¥IY™WŸYê¯3KC‘SÌÒ O¯, +Kƒx½²48Õ¢,̳4nÃ,Ì÷³4mÅ, ˜¥¡`?fip [YY±“VMá°jŠÖ°|ˆ¬ÐdihxÁ, ‚ûÊÒ`/ei0_YŒ¯V–Óx”¥!¬ŸY§(K#+L¢Ð h/³42Ñ^fidEMTZeF£UV´¬ò;KC‘ÌÒÈdy™¥¡„fid¥t Kƒ{i”¥¡Àfip'‘²4”À, fÇ*KCqÌÒબ²48èR–FR²48%®, … 0Kƒ4ei({€Y\.T–w+Kƒƒ9ei¤;KCÉÌÒàJ’²4TÀ, î»Q–†r ˜¥‘”ÃÑi¦–Y‰L-³43ª, ¥0K#‘\g–†B˜¥ÁŠ¥ÊÒPæ³4&+”¥¡fi$ÅT$æCdg–7¶+Kƒûª”¥¡€fi‚P–†ò˜¥‘qQi… fipECY,*£, ¥)0K#)£Ó*+<V¹RÒ ÎƒVˆ¨a–Fú Ï€žfi(‰Yœ–ýÊÒÀƒódiÇC–Æâ YON²4«N0Kã‰m@–ÆÚ|¬°Ðù¤8 Kcq6˜Y‹Á˜¥±˜°Å,µù”!Kcqr€YOä²4žÈdi¨” ³4ždi,N,0Kã „@–ÆÚLaA–Æ“,'Y‹“ÌÒX›O(²4+¶2KãI@–ÆÚŠÙŠšh”Œš(”û-‘5qgi0jBY]Ñý<¡, óO–¢bž, <ÝO–F¿³4ð°?YxØŸ, ÆT(K£)-VL­P–Bhž, †X(K£ÝYÈ´x²4Ð2YLËP–Z•¯,N9ïð ZÊ?˜¥È–¯, Ek0K‡ñdiLÊ~'m0K‡¡, o(K-Ò“¥‘žA«LyÅr,År¼³4ž”di0|XYOh²48ɦ, ex0Kƒ…*•¥ñ’´*”´BZF‘U¢d‡Â3˜ð¡ðŒþÊÿx²4ö¥±ï, ´„O–ZÂ'Kã‘WXˆ²4ÐN>YÌQ–³C”¥fóÉÒ`”ˆ²4‰Ô $åYÈy²4Ö¥±î,ugiÌ;KcÞY”ÊÒ@ƒüdixƒlàs>§õUʇmð.>ÿmþ#Úü¯m¶gDhsA·„hóÌÚ<¹ì"´™•‡„63(Xh3×l‰6kK2ÑæQÑE'Ú<¸ÀF´yptC´¹³@´Y3ˆ6÷æ…hsçÞ,¢Í E´¹3fPhsçÖe¡ÍýA—67¶ÎB›Û$J´¹ië?Ñæ&ô†hsÊA´¹qk•Ðæ–¿ÐeG¯Ù?Ú\U^˜hsºH´¹v¢ D›+çi…6W.Í m®<ÓB›+‡™B›‹ÐA¢ÍE(Ðf&<(³£ÜèöD؈„è´ï¡òÑÍ ÍËãüm¶qÐ?ì ñò߃Úü²Ê½m¶Ñ!Žh³-_hs{Êy‚²a+Qà?Æ möòÜÚüûbD›mäÎÏ;ÚÜT>‹h³Ï(àï;ÚÌéˆO¡Í6[ÁãðãTÑf›Eá÷Ú¼…RmÞ, ´y«¼=Ñæ­óO´Ya¦B›57+´y … Ú¬i¡Í mFS÷ù ÍKh8Ñæŵ¡ÍKåy‰6/NQ m^œ–Ú¼T.h3ÞJŸÚ<—Ðh ÍS(Ñæ9ø<mž*J´yr–_hóäV,¡ÍSåh‰6ONRmºD›‡ÊÿmB͉6NÔ•hóJK´y]!ÚmV¹;¡Íƒ[“…6®y m…ýG¢Í# ÝÚ7¦.¸^@› ´¹´,ô×çÝ°i/´ù)GL´Ùˆ<Ï@›*ÔæW'ß?@›(ÂõÚlDÒÒÏ74¢1€6Ñ„çh³Çt ]v?õ€6;qµ¨Ý/³½Úlž_ Í¦”Ùü g/‰6;Q6©Í¯Ì m6MtÙÑf#Øð¼mvNºCeö¹/#èê m6í/Ðf'ö\m.B[ˆ6—¢ö hsy¢l€6;a(ÔÙü2g²‰6±H4Ú×îpÔæ—'ûç@›˜Äý´¹µ ÚìQBݯɿÁOQW@›ËóþÚlÄ(ÀOQXØ f*úg@›I¬~ m.ÚšO´ÙX´ØßgíÐf#hÛ mvßgÄMçÚìD/Ð__¦2x¿ÐfÓ(7‰=ªF£Ü)ÐfÓI¨³û©Ü,Ðfû׃:wè"í~\‚'Úl:I»ŸP¢Í›ãs¡ÍÚå)´y/Ðæ­­üD›7££„6k<'´y«œ'ÑæÍòFB›·Ðc¢Í»éø6o•ß&Ú¼+Ñ¢ÍÚ#´y¡ß@›Õ¿Ú¬|¡ÍʱÚ¼"´y ½ Ú¬ùz¡Í VÚŒ™µÏm^*·N´YQ B›1‹÷ù Í‹Ñ'B›7â m^Mßhóâü€ÐæU…nm^*oJ´y Õ!Ú¼ŠÐj Í‹Û?„6?劉6/¡ºD›cò…6ϵÚ<…¢mž*ïM´yª|)ÑfE) mž,(´y~?¢Í“åé„6O¡[D›g¿ÑæÙˆ mžMh5ÐæY…þmž,."´y²Ü”ÐæYˆRmžEh6ÐæÉB›§ÊÃmž*ÿL´yr]hóØú¾@›×å„6®zm_mº‰6¡wD›ÇÄûThóB‰6n‹Ú<:ï?¢ÍCh:ÑæшmÜ:)´y4ý= ÍCåx‰6£Ûûù ÍCh'Ñæ!”ŒhóàüÐæ¡öhóàž¡ÍƒE.„6$ôhójI´YýK¡Í}ßhs_òÚÜÑ¢Í}±ý%ÚÜ'Q"¢ÍO”Ñæ>„ mîƒ( Ñæ>„&mîì?mîºß‰6w]¢Í½¥"ÚÜU~šhs:H´¹Wý} Í½Þhs/B‰6÷"”hsZK´¹«¼7ÑæžÙ~mÚÜ“Žh³¢¼„6?哉67.Û mn[(4Ðæö Ü@›Ûú ´¹q׿Ðæ&4hsã†{¡Ím]$ÚÜ8Ÿ+´¹ ý>Ðæ¦è¢ÍOye¢Í­ó}J´¹©|8ÑæÆò}B›ç+„67]O¢Í[y…67¡þD››Ê‹mnEh6ÐæVø<mnŒFÚÜÝA´¹ Í$ÚÜò6·Ìû—hsKŒ!Ú¬rÌB›ë®m®Ü+#´¹ å'Ú\¹3Ahså:·ÐæÊZB›ë* ´¹ª|9Ñæ*tŸhse9I¡Íu …Ú\§þÐæJºAhsUôÑæÊù ¡ÍUýE¢Íµ³ÿA´ÍÚçƒ6Wn§Ú\…m®º?ˆ6W¢vB›+÷… m®U¨6ÐæZ¿Pçû‹h3šñÏm®…ï¢ÍUè=ÑæÊrŠB›+÷µ m~¢!ˆ6×åÚ\3ÏÑf•Ú\“>´¹ª¿K´¹&ý} Íeó~'Ú\¶ŽhsÙB—6µÿD›ËÚ ´¹0zKhs!$´¹,ž¢ÍEï¢Íe Ú\t¿mF·àóA›‹ÐV¢ÍE(+ÑæÂèG¡ÍOTÑæ¨@¡Íe…Ú\Ô_'Ú\MB´¹t¡¿@› i¡Í¥Ýhs!**´¹ Ú\8?!´¹cÚ¬rÓB›5Ú\5&´¹è~%Ú\*ïw¢Í…;ã…6—Â÷ ÑæÂõ¡Í…»Ã…6—¢ó´¹p=NhsÉB—6?ÑD›Ÿè¢Í…»u…6õWˆ6EŸm.º¿‰6½‰6îxÚœ¹}Phsfé&¡ÍYh9Ñ漿PæþÑæÌí=B›3w¥mÎäó„6gŽ§…6çÅëC´9s>WhsVûK´9³J¦Ðæ<ùþ&ÚœÝ)´9+Š‰hóSþšh³Ö_…6çÁrÜD›ó ´93Ph³¢º…6+JBh³¢$„6ç. ÍšÚ¬¨`¡ÍY0Ñæ¬r¾D›³(¢ÍùA±6gF» mÎŒ†ÚœÙ_Úœ9ÿ ´9W¢|D›³ð¢ÍYÈÑ槼6Ñæü Ó@›sÕùڜżmÎ*ßK´9ó}"´9‹(!Úœ%&´9‹í ÚœhmÎ,D(´9s~@hsà@´9«\/Ñæœõ÷šüÀ mΙPÑæÌíöB›óƒ"mV´„ÐfEKmÎB‰6gnÑÚœ9_!´9sKóƒ6 ÚÌM¾Ú¬’¼B›UÞ[h³ÊÙ mævÍmÞ_(3ýp mV%^ Í-1¨ôÍœ ð‚nöh‰MM?þý&?ÜOœ¹­ãS„³GM$ê øŒ³o ߀ß!=à7I!sö¨‰LM?ÐB˜øý*ÒÙˇOêóàû6•ëüUNœÄ»‚vö¨ 0ʾÝÞ·½$júmðìåÅ…8ÓÄgšô[àÇè1BÏ5ì·ÂOˆ)°ç âäSܳGM€)nò«ÒôÂôù‰š ûüUžðóWÔègß&$= §€ç=^´GOHÓçkɯJŸ ïÑ¢žt~QоIzMDO€öU=!= §Ðç  (´GOHÓ÷`èŒiÛOÑÐ¾Í xp•Aä*?´×¢=jºÁO\ hš@ÝáW„[wø±ÿC*Ú£'ð}†üÈTù¤íQB¡é‡rô@£}›þþ‚_fû8Ú5þ¾ï„öè‰BÝ g¥^Ðh¿H{ÔĤ¦"€H»~1Ò=Q¨é‡ó JÚ£'5ýð<“Ί&&(íúEJû6<ø5ø%QÉ ~Ir—î.¿.zš~Ķ‡üð>0íQ8ž)?¼ßLEO€™þŠž 4­è BÓz{šVô¡iEOšVô¡é-¶7ÑŠ u¦® ¡iEOšÞ_”4¬ÐèšæÆ~AÓ[t¥UCmV\P4Í悦—Ðf@Ó*Ohš9H‚¦Y¼QÐô$>h…–‘Ðô>iÕ„Tà 9¡i½ÕM/}A@ÓŒo4Íô]AÓœá4ÍoAÓŒ*4ͤcAÓS 0 inv4=ÙöšæPTÐôŽ]i…ïKhzŠ¿n´ŸKhš»MO¸„¦çR +¼2Ms‡š éyCÓã‹’î.ùõM«·Ohz°1$4=x¹ Msè,hš+킦átBÓœç4Ím<‚¦õÖ&4=x{šÖ;œÐô`Dhz0h…Ðô€\i…›Ðôb hšÁR‚¦YCÐ4ךMsj_Ð4Gþ‚¦9Ñ,hº‹ Ÿ´ÂÃNhº Ÿ´êohZcBÓ¬f#hº³ÇGhZI„¦;ßß„¦¹Gдz„¦™K/hZI„¦;›>BÓJ¢ 4­$ BÓJ¢ 4Ýx_šÖ(ŒÐ´:-„¦•DAhZI„¦ÛC +œIBÓ톦•DAhZ½BÓJ¢ 4­$ BÓJ¢ 4­$ BÓêšV¡iMs•^Ð4óeM7ÑÊ™VÄ“3­È#šf… i&Qšæôµ i&QšæfAÓ\û4Í¡ª iöÌM3LÐt%WHhšÃZAÓ,!hšù‰‚¦¹F"hšK†‚¦9#%hšÌMWá瀦+Á:BÓ\½4]IÚfAÓ•…Ð4“(M3£LÐt%hFhº’#4ÍY2AӅ׈Ð4×ÜMs‹ éBðŠÐ4ô‚¦¹¿SÐ4»£‚¦‹@ïA+TZ&4]DvOZ%4]„r/Zá š.¼‚„¦‹`m@Óìå šæ&JAÓœÃ4Í.° i®x š.®3­HXZ$4]„TWZ= 5¬.hºÜÐt%Ýhõ`Ñ°Â3Hhº$$4]>Z‘t4…6šfµ2AÓÜ&h:óêšÎ¼ú„¦™ÜIhZ»1MïL8ÐôΚޙ7 é…gZMQÒ°Âã hzgQÃ…V¸7MoNÊšÞÜ3DhzsʇÐôÎ|ØMofÙšÞ_šÞ™Ï> éÍÕ BÓ›“G„¦wæhz³ª¡éÍPõ ¹iQÐtZ„!Ý¡úЄt› eBºŒ©óÕ(@»I4!]@‰îeÒU½ÂDHWëAë­¢zÐKëA/NK=õ ¹ é©])³´êe³ôä&=ÕƒžÜ¤ªzгbW=hAêª-(–õ ÇSoõ Ç ŠöúÍMõQz¨žŸêA«^/ëAwÕ#Fá›k hƒj{—? Ýþ|ÿñÔoÆïOÕof½g@ºí9^@ºmð~ÊKõ›éšn‚ÄM«>“ éÊYAÓ•›”MWA¯„¦kSýe@ÓUõX MWÕ£#4]¶ê'š.Üô!hº<þ€¦‹Î7¡éRUÐtQ}@BÓEõG Mç¥zÖ€¦³ÎO¤›»êUÒÍ•PG¤›q@ºYõ³ ÝÄ„‡¦Q™4 Ý4¾ ê†úË€pM'ζšNÏù4Øý#4ýeš¶½1ø¾€¦‹r€ MMÏš. ø$4]”jHhº¨ëFhÚö:±^sE½åùUz ¾2 $Öƒ^ÐëA?õYzå/HÚýt½XzrS¦CÓ¨§Ìz̨?<9«íÐ4ê'zFýáY]£þðS¿½¢þðä¸Ìw{¢~2BXz,B—¬=1±ô誌zÐCõèYzp~Lõ 7Áªôx àüÔGÆÏQº«^9ëAwÕ›d=èþü}Ôƒî …`=è®öˆõ {V}jԃtäÅzÐMõ´YZ›ššF½ãý@Ó¨wÌzÓ€tçRšF½ã¢¨wÜhõŽ‹ é†zÇ€¨Xº.Aä[õŒ oÕ3FûÉzÐUõtYºrÑ]õ «Ž‡õ k¾ icš ió+[õ’QZ›6M—©úÊ€¦Ëš.¬ÿ#hº4AÉ€¦U¿JÐtá유é¢PBÓÚÄ'h:ï/ÝPŸøÑ‹õˆq<¬?̸r§P˜õ¢YXýƒþÔHh: *$4­z:‚¦sâû–ÐtÒóEh:-Õ?4­M6‚¦µéEÐtêª h:5Õ[4­M‚¦SD h:qÓ— i-ê šNœ{ 4Ÿúö€¦zÃçšvV°S ÈíMgå¿›f½à¢Ÿ{ýa…B Öæúi¯?\TÏ™õ‡çë…W¡q}MgMišÎ $4më{Ckê šÎO{hÚ 4BÁ~ªW hÚ 3 iƒÊš6ÍúÏ~ E4mÙQ»ƒc M;KÜ©Íoêþ4më/ûêŸAa„’šÎs ºF=èÉM›ª=¹”éÐtvÍúÓ¨? é¢zˆ„¦‹ vBÓ…k‚¦ Û_AÓ y4]¸ $hº<1 é¼=šÎ‚^ M?¡é¼šÎKõ§Mg=_„¦3ÇW‚¦ó¤ hú8Mç©zÌ€¦ó dBhZ† é5 éÜ!šÎÜD,h: "'4YõDÐt¤Dh:WÕ;4ýÔ×$4‹ a@ÓYP¡é§~&¡éœõy@ÓYÐ-¡éüÔ[4ÕÞšÎIõšMgµ¿„¦3 MgµÇ„¦óQšN‚Ø M§­úÖ€t“ ö H7©þ2¡iA‚¦“êÓš~êQšN‹÷7¡iA‚¦“î?BÓiÞõ CvMk“¿ éÄþ‡ é¤PBÓ‰ï[AÓi|AÑš~M~IÚý8¾4:ŸGBÓO}GBÓ©ëûšN í4 šNMõ£MkÓ|ýì›ä u‡F½TBÓ© Ò4:Ah:UÕ74:'h:=Ðq’_$í~ µ4X¯Fд6© šNEþ€¦SaûOhZõM'îh4íš~BTM'V4² è.?^BèÀ¯§˜s¥Õ›`¼!*ðÅk Gî´baä.«JI+±Ä´jL+†Ï¾.UØX¼¸dN®xM öó¿¦(hƒhÿ‘CÅ·¤U£¤•$ˆâ5…Àúöí5Å÷úž®¥xàÄK´%hâÅ=k„‰ßV녯ɷ3Hâ5UܸÊêÅ¿%­pÌ]V‚†Û-i…¯0d•(a5_ñ[ -ðá/¹h5Ó ßhËJ’V’V€\uÚy:ikòµzø-d¡\oéÝN$ï~Šþ’UV‚‰Û-a5^ôð[ *èá·„kwYAY &o9eÕ)Û-×[.Y5Êñ–[V•²Ýr½äL²*”ç<|Iï…¾e‡Ì”û-rzKZÓ­²’ì·„ú“ ‡ßr¾e§¹äN«Gî·²’¤ß)+É~Ëý–KVƒr¾å–•d¿%­@µ&YIηtzø-û-7¤pázËù–UV/zø-iå7èá·œoÙe%ÙoyY YÊù–SV’ý–û-×mµdå·ºoÙo¹_•NßòmÈé-û-7$xY§‡ßr¾e••d¿åeÕn«v[õÛªßVVM¸p½å|ËI«Gö[^Vë¶Z·Õ¾­ömµßVNßr¾e~[‘^“@èá/é`å[ηtzø-û-/«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝVë¶Ú·Õ¾­öe•“¬&å|Ë,+ÉÓ&¼å~K§‡ßr¾¥ÓÃoÙoyYµÛªÝVý¶ê·U¿­Æm5n«y[ÍÛjÞVë¶Z·Õ¾­ömµ/«’.«’.«’/«rŸvÐÃ_ÒçÓÞr¾¥¯/¿e¿åeÕn«v[õÛªßVý¶·Õ¸­æm5o«y[­ÛjÝVû¶Ú·Õ¾¬jº¬jº¬j¾¬j¾¬Xrù‘(¹ü’ó-Qrù%û-/«v[µÛªßVý¶ê·Õ¸­Æm5o«y[ÍÛjÝVë¶Ú·Õ¾­öeÕÒeÕÒeÕòeÕòeÅ’ËDÉå—œo‰’Ë/ÙoyYµÛªÝVý¶ê·U¿­Æm5n«y[ÍÛjÞVë¶Z·Õ¾­ömµ/«ž.«ž.«ž/«ž/«~Ÿv–\~Éù–(¹ü’ý–û-ÛmÕn«~[õÛªßV㶷ռ­æm5o«u[­ÛjßVû¶Ú—ÕH—ÕH—ÕÈ—ÕÈ—ÕÈ·J.¿ä|K”\~É~Ëý–í¶j·U¿­úmÕo«q[ÛjÞV󶚷պ­Ömµo«}[íËj¦Ëj¦ËjæËjæËjæÛê>í¤‡ zø%Ç—4z8¥ôñþçéá?ÒÃÿ:éaÉv[µÛªÝVW_r¼%èá—l·\o9o«y[­ÛjÝVë¶Ú·Õ¾¬D¿u z]:_v¢‡¿t ~%ø•àWƒ_ ~-øµàׂ_~ ‡¿4èá·nA¯K;=|éÛo¿üVðÛÁoß~,¹üÖ-èË%—ßúö+Á¯¿üjð«Á¯¿üZðëÁÏéá—vÌèÒ-èui§‡/}û­à·‚ß ~;øíÛôð¥[ЗèáKß~%ø•àW‚_ ~5øµàׂ_ ~=ø9­úÒŽù^º½.íôð¥o¿üVð[Áo¿}û¾t úò=|éÛ¯¿üJð«Á¯¿üZðkÁ¯¿p=@_º½.íôð¥Ç¥Wð[Áo¿üöízøÒ-èËôð¥o¿üJð+Á¯¿üZðkÁ¯¿üzðsÌèÒ-èui§‡/=.½‚ß ~+øíà·o?Ð×nA_~ ‡/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃_¸ ‡/½.íôð¥Ç¥}gÀ¥[зß~ûö=|éôåzøÒ·_ ~%ø•àWƒ_ ~-øµàׂ_~=øàç´ê¥÷¥¾ô¼´oܸtúöÛÁoß~ ‡/݃¾ü@_úö+Á¯¿üjð«Á¯¿üZðëÁ¯¿üÂõ=üÒN_z^Ú÷Õ\º}ûíà·o?Ð×îA_~ ‡/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#ø9­úÒN_z^Ú1ÃK÷ o¿üöízøÒ=èËôð¥o¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿p=@_z^Ú·¡]º½/½ƒß¾üH_º½//?ÒÃ/]‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚Ÿ³.—ž—ö]‚—îAïKïà·o?Ð×îA_~ ‡/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà®èá—öMœ—îAïK;=|éËôð¥{ЗèáKß~%ø•àW‚_ ~5øµàׂ_ ~=øõà7‚ß~#øÍàç_Ú÷Ø^º½/íûâ/}ù¾túò=|éÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üÂõ=|éô¾´Óמo zøÒ=èËôð¥o¿üJð+Á¯¿üZðkÁ¯¿üzðÁo¿üfð›ÁÏ·¤_º½/íôð¥ç[ƒ¾túò=|éÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFðÁo¿üfð ×ôð¥÷¥ë¹ô|kð×îA_~@ˆ/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà7ƒß ~+ø­×rñ§¨âK· ×[,¾ôå´øÒ-èÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Á/\àÆ—nA¿—’I_z\:ß~€Ž/}û•àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·¯f‚È—~¯1E¾ô¸t¾ý@#_úö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Á/\Ê—~¯7“Q¾ô¸t¾Ö¯‰)_úö+Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿}­7“]þÒ€—/=.¯õkòË—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛÁ/\@Í_Tó¥Ç¥óµ~M°ùÒ·_ ~%øÕàWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·¯õfâΗ—Î×ú5‰çKß~%ø•àWƒ_ ~5øµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíà·ƒ_¸à /=.¯õk¢Ð—^—.Á¯¿üjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöí@úÒãÒùZo&#}éuéüJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~#\ Ó/¯õfÂÓ—^—.×ú5ùé—®Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~@ª/ý^o&T}éô¾t¹Ö¯ V¿t ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß~ûök}éË´õ¥{ÐûÒåZ¿&qýÒ5øÕàWƒ_ ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛö¥/?`Ø—îAïK—kýš(öK×àWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·/?ÒÙ—ž—¾¯íKïK—kýšŒöK;¤}éôíׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß~ûö¶}éËàö¥ßëÍD·_º\ëÍ„·_º^ë×Ä·/}ûµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíස߾ýÀs_úòÑ}éô{½™P÷¥ç¥ëµ~M®ûÒ·_ ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛ ÷¥/? Þ—îA¿×›I{_z^º^ë×¾/}ûµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíස߾ý@€_úò~éô{½™ø¥ç¥ëµ~MüÒ·_ ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛhø¥/?Àá—îAß~åZo& þÒõZo&"~é}éüZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ·˜ñK_~ Æ/݃¾ýʵÞLrü¥ëµÞLvüÒûÒ-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·o?Àä—¾ü€“_º}û…ë¤ü¥ëµÞÜ.\ܨò?ýýŸÿ‡_|üê÷ß²#åïþþW¿ý毷úöù‘>þÚ‡ëv{,§è¼ÆÀúø‡PÓÇ?üøíãß|þÿë ûO†c‚¿ù°þÒ|ôçLJaíëü Ø?ODZv}°:/øõAh~ðŒ¦­Žv¶jÚ5߈÷õAh~0Ÿ>®m$)†”ëƒÉ‰Ã¯B냠~7?hCµ÷w¤öþâ‡?@ïÛéýÓ?>òÇó‘½ÌxzþmÝ;ßÃweÿð›ŸýõÏ?~ø»oÿî³ü¿}¸‚múúð¿¹>\þnXùúpú ™‡Ý|óû¿ð°¿>ü/8쯟ðavõ=pçÃñ³¿ý«Ï¿ùíïþáçrîŸýæçùñßý4³âŠÝì·?þ×þQÓÇÏþçßÿ œ’/•ØwúüÝýõïÿñ׿úÉ_ͦ'ÖÀÑüýï~þqºª?û§ó¯sH?þÃsHÿùÛÿÜF›3endstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 504 504] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F6 /BaseFont /Symbol >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000023116 00000 n 0000023199 00000 n 0000023322 00000 n 0000023355 00000 n 0000000212 00000 n 0000000292 00000 n 0000026050 00000 n 0000026307 00000 n 0000026404 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 26482 %%EOF metafor/man/figures/selmodel-beta.png0000644000176200001440000006326314465413203017365 0ustar liggesusers‰PNG  IHDRèèz}$ÖPLTEÿÿÿ"—æÒÒÒmmmÌÌÌßSkaÐO(âå\\\fff///www­­­UUUDDDÿÿþ´´´ ‹‹‹ðððþþþ®®® ÏÏϽ½½ìììÈÈÈ™™™cÑRííí›ñóþüýüüüÁíº ùÞâ———Rèê___KKKóóóýÿÿvÖfýõö,,,àVm888kºïGGGÕÕÕgÒUúüú‡‡†àYpúþÿ@@@“““/èåååXXXùùùoookkká]sàààqÕaõüþ~~~¥¥¥èèè'''’ß…„ïñ÷÷÷þùúŸã”¸Þ÷222‹ðñéùçlÔ[îúì×××ÈïÂüþûøØÝÕùúé…–DæéÃÃÃzÁðãdzeêí˜áqìî}îð“ñò'šçç~ãh}8¡éóüòcccªôõüïñMMM¨Öõkëí5äç²è©`êìÆøøwíïæwŠöËÒ‹Ý~ꌜðøþäm‚£££êüýLçê…Ûw=ãèèõý£óô·ö÷¥å›qÂÇPPPår†ÙÙÙ···úäç¬ç¢ñ°»÷ÑØó¾ÇñýýÏñÉò·Á.ãæ듢ÙpÂãùzØk勤Ïùù¾ö÷›››àöÜ[éë™Ïô효Ëçúáòüãûü'ÑåÔóωÈòýòôôÄÍ&½æûëîâ`vªªªbµîA¦êÚïû‘Ì󃃃ÜúûÝÝÝ÷ýö:¨Æ·ê¯¼ë´ûèëÓëú4Þçîîîä÷â±õöIªë,àæ ÓõØôÔ»»»ÀÁÀ.¤Éžòó¯Úöq½ï€Äñ[³íVèë>ªËO­ë¹êøU¯ìIÈêÜõØ(Úå=Åé­æöÄîù‹ÙòÎñúbÎíßôVË쉉‰~ëðÊÊÊhhh…ÈÛpÑï}Õðuuuêêêv¿ðsssyÅПŸŸyÀð-½ÓÌêIà¿¡¡¡#«æ3ßÇÇôæFÚœ<ܯ¤îØsêÜiªµ]Ý¢„åºpá¬Ý©¬²qlFËÑÉ ­³èÀ}BGpÉdÑ @f IDATxÚìíoTUÇOÀ{~hZ:”±Ý¡BJ‡ÂD«´ P¤­PÂSŠ!VZ×à D^ðB4¸!&E‚Qƒ‰&f7D£$Wv57àk/ˆ¾¸›MøÖdf:ÓvîÛ¹O3vÎéçóæÞÞyøMÚ~zÎé=ç|•ÖþôÔš &ú¢áû Æ\[Üh¢/¦W`½Wˆ€è€è€èˆÎ@tD@tD@tDÀ+D@t@t@tDGtDç :¢CXq`9Ħ©ÑÁjæ{àÏäDDGtDDGtDDGtËÛÜ_ßx"ÕÚýÈ(¢¢[$úq‹~〴7µI[¢¢[#z³xD_&›o¨±GäÀ ¢¢Û!úÝañˆ~DÚWçëúäUDD·Bô£m’mv‹¾W†K-ýIDD·BôdÙÐ"·èËeçÔ±ÓÓ£Gt@tSEÿ±3ÿÎn£SR Ú/rÑÑ­£« ÑÛ¥sê8(rÑÑ-]¤t_­U:ˆ>ö¯¿-ƒ…À¢)z뜢¿êZvs8Uå=[Zþ±dɈn¤èm!»î6U{´å»%K~ýu)ØÏyD7Rô”\˜þgÜÚø¢§ó¢osÞíâ'ÉRôGeãÔ±S²*¾è*/úÿçLGthHÑ÷Ê#SÇfÙœPô5ÿvœgñ³DôšÒ»m ÛšI ý¥q–oÕ¹Üü‰¾Hz ]ö®>Ù—Tôõ1ÑkÌÈa‘Lw.#‘_gùV½Ë͇è÷VÞ.NÊŽÕj설“Š~LåM~. z ûºÒºb]¾!Úr/ê+c-ߪw¹ù½IvC)i?œ•žE*©è{ZÔÛŽó¦#zí¸&¹Þ8¯‹¹|«ÞåæQtµ6?”È Q‰E×7•º”7ýcl@ôZ±6'Ý{¿‹ú²¸Ë·ê]®ñ·’ }þ2òI¿óú‹è€èµbKwÏ@OëæÛÑ^{ùVËÙ ú1}0’>ÝïœÁtD¯]tªôÑé±.f[â¸Ë·ê]ÎÑÿ£ÇÓ…ÓÓÛ3Ÿ"¢×„mE_zûJ ¤›•îÙ¹OøR‹„Z¾Uïr6ˆ~Sëo§ÎßÚî¼ðF z ØßÞ.–•\W2óÂ,ߪ{9ãEÿfÉ’××/~ñÌnç¹7PÑ“³SÎOzE:"¾6ôò­ß°œ -úkOê—¦/HÑ;³I×ĵ?ä[í„œ(µIñCÙÛñÌ ³|ËS®kc_{ê§Õ5,gE‹>¡·NÏ Øð™óÙ¤X0¢ïK¾úõŽoµáÒ m¥zŠS7‡ú¤Lô±».z«™fù–§Ü^ùåÂÎ\ßHíÊ™.úcÑk}KÍš¾ÓN×½óvBŽú¯‡Ú%;Š'7¤ Nú^.[.z”As˜å[îr#í…ÿ½¯‡jWΊ]½§ßœ¹ðÆsÎîgЂ1z2>öb»yMd(¯Efñí¸¢‡Y¾å.w÷—Bïû‹’±5)gE‹®ÞÔgg/}õ‚³ý-¼@ôDìÏÈÞÂq¤ij™ÉªÑ| sŒfù–§\ÉÔûjWΆýOêª^s}öÒ§yÓO#¢'âçüè½W>*ò»Ò !ºè–oU”S=ËjXÎÑ·êËe×>=ƒéˆž‘e"­mù~òN[ôË·*ËezkXÎÑÕY}®ü⋯;ýŸ ¢'!½oy¶µ{x¦û_ôPË·<å®e6÷Ö²œ%¢ŸÒW\W?Λ~ 7½†„½¬”ƒ5}CKDÿVë§]—7½ä8o#¢›)úFù¼Æïh‰è“ãzÂ}}Óó˜Žè†Š>”I5¸Ñ=¢«ƒúIχò¦_DD7Pô‡K÷ËW"ºWô/õï#‡žuœ÷ñÑÁÑÿ’?ÜÔ…ý¤Üt½‚éˆVˆþØ÷EÑUq?©JÓßiᇌè`K‹®ŠûIyM×q>ÂtDÓEo™nÑ'ôø¤ÏÃ9³!:˜ß¢O‹þôô~RÓß!˜ ÑÁž1ºº¢Où>ÓìiÑÕ¹ò¥ªå¼O0¢ÇÀŒÅŽû»[Ûvì ,gè—]KUË!‚Ñ£cFÈâ¾VÉôeef#ª9ËÙ#úõ5®¥ªå¼M#¢Gîëš²8š‘]cJÝËÈÃålý‡â™g©ªÇt"=F„,.-u>—¾€r‰î]ªZÎ¥~"=F„,Hñ›Ò!2R½œE¢W,U-‡FDˆ !‹Ž–ÞZ«—³HôÉq½~îçÁˆè‘0#dq¦ ßPÎ"ÑÕA}¬ÊOow^ ‚ÑÃbNÈ¢R£íÒPÎ&Ñ¿Ô{ªÍk'‚ÑÃcPÈ¢ZÕ$Mc匟ëþìèOiýaµçÌf¡è_mHÈ¿…,®ÜAåljÑÕLª*¦/ÑO;‰ñßpÌœÅý‡%ÛXΦ]ͦªÎŒ¶‰þVbÑý÷7&dñHJº·—3¾E/½,Uuf³­ë~hSBæ˜mJÈâ99àžÕngÈâcå¢×úªÂô%z½0$dqQV<Ý;C]-º+Uuˆ`DôP#_wêáÆ Y\•’½Õ­ Yt‰þ¦~/ðýfCô0²¸Xr,M¢I[²èý–ÖÇßðÅ3N?¦#z&„,ö¶ÏvçïZ²˜ýû™/&·z[|M'‚у1 dñ¨ø‰ngÈ¢KtŸÀ?>~‰FD !‹#z:`ì4D0"zC‹NÈb@‹îØâk:ŒˆÞ¸¢²X9²ù½Ktµ'`ì4…`6"½1E'd±è³`ËM'˜ Ñ ¶µèzëd¸÷ fãÑÝÄ=Ä,ØrÓ fCtD7±E3 vÆt"ÑÍlÑCÍ‚†FDGtCE¿Um/Ø Ó fCtD7RôÉñ0³`gxÓÝ#²×VMÏ€ÝPÎø1ú_=¢ìëg:Álˆ^‰ÙkG}D·3{-/ú7® !gÁÎpÑqžÇtD¯èëš½¦6ÊpÅVïVf¯¥+DÚ ¶"Ý#²×Ô.ñ lköZ…è{ÁVp‰FD¯Àˆì5µ£´d`9ûZôð³`gMïw^'‚Ñݘ½¦²… íÜXš½V)úe½æzÄD0"º#²×†$ÛyÿÔùå,ýú}9j‘ÓÛ3³!zFd¯]LñÊé€rŠ®Îês*†éD0"ú,fd¯Ý9±eä‹]Rö?9;³×ÔŸ+E?¥¯D/C#¢—cFöÚ…ŸŠKÖ‘¶±êålýC­ŸŠ^‡`6EŸœXŸ ÿ›Û•Ùk±E‘½•Õ³»D[š½æ'z˽>zô†Ý³'úz˜S¾Õ*²×Ü!‹uÎ^ó†,V-W¬ñjõr6Š®Žéƒq*Áhžè7ß{«šN#¢Ûƒ­¢_ÕkŽ'©:ÁH\¢#zc‹>¸5þ ¶¢é³!:¢7¼èêeýd²º-yÓßÅtDGô†=jŽƒéD0":¢7ºè‘s|L'‚ѽÁEW'ºÁV„`¶,zÌE¿„Ã-÷ç2–Þ­G¹ô=íMÍë‚>‚½¢'¼ÁVä"¦/TÑc¦ú%®ÈH¦)'Ý‹j_nä¤H_JäÑ®êÁbÑ/'¼Á6c:Œ Rô˜©‡> ‡£=rrµZ·Mº{k^îgIåÿ|\葇«~›EO|ƒ­Œ Tôx©‡~ ‡OÈÿÙ;¿ß(ŽŽO)ž)¿Ì³=קÔÆÅ5Jm*c°Ý&FdÙ`«•,UANí*-H(‘倜€‘Šü}håP!^-¤Öå¡}+/U[‰ªE¼ôèÝÞž}wÞ;öfgfgf¿)ødÏ®×ï\vw>¹Åߦs‹Èˆ®Ûq¼§QL,,–=ú¶H0&St¾êaPápÀ_ꛬNôpÛýU¢»wm«¸ vˆþ࿉~-Çï`L¢è|ÕàÂa¾‘Ô]©½Æ7Üa¶-Ô&X úͲgô'Ñ/°­˜~y¢%Lt¾êaPá°‘õ>.° ‹Àñ ×Ìúú¾ÚQ7YØN¶4²x³ì]È6$(:_õ0¨p˜ŸºocžãÎeìz«÷™‚wÿvFß® º l³%NtÎêaPáð«óNÁ‡ü„¸áö3Ö2p=Ýý’±-¤Ò&Ø}Fs-gzoÍ9„Ù’$:gõ0¨p¸bG×÷\;æÔ—?£ó ÷‚±”w_L{ÁºîNâDtÍ F=Eÿå?‰È_>³zX8ü†1wvuø)l¸Ìo…œ®×¼œL…M°ZtQØ<fÓRô?~%2_ŽÆY .žùh``ÃzÒÂúÊí_dÑuØïÅîÆÕß!–F+‰.ê[Þô^˜®›èÿ÷{ùóoGãŒ,V *ö±Ö²;ÇYðEwٺʛ`µèC¢.°y Ì–¤÷蜑ŠÂaëuþûðÉÃ…Ž,¶³ù¿Cœ•6ÁrÑ#.Y‚û幚ÞÏ!\2DçŒ,° Þô{ üÿtç,^gõïg?¾,ÚÒÈbEÑÅ]`ó@‚19¢—T‡,sÕÃ3Nöâ×›“ùÙyˆáüSòk—{v²ÁBÞkdO‰å‘ÅŠ¢Ï‹»ÀæcrDçŒ,ýûÜ2ïºÁF¶é­j† Yì`Φ:ÆŽ ggd±¢è"/°y Ì–Ñy#‹……Ãü ­Ž¦;î¯n¸p‘Åý;RmþòVG+Š©ÁȽOfKˆè¥ ²¨±èè°+vs²a6˜Ñ%ƒÈbu¢ŸŽÔ` 6ýC$!ºdY¬Rt2GgDoÐH0Bt¹ ²Xµè3ô¶ð-B˜ ¢Ë‘ŪE_¦ô4L‡è‰ÇxÑXYtw˜î¿MH0Btˆ®•èdŒž”°QH0Btˆ®Õ}„vŽJØ*„Ù :D×éŒ>ÞDç L‡èÝnÑÉU:%gÃ`„è]¥è«ø/œ§$mŒV‹.0²Ø÷Q³Ó6½SÕpAMGûE¿Ké¤MC‚ÑbÑFZ2ŸkaÎ5Ã6í½¶Ÿ.y¦#Ìf©èâ"‹nGös=ÇYª[ÅpÁMGûE'§è%iw a6[EY\ÏÉ—í*† n:&@ôYÚ´(mën¬¹€0›¢‹‹,nóãŠí«k½É.¸é˜ÑE¯>QD6Á8 í]\d±9ÞÂ̓ï]—ÜtL€èB—w_ËE$­]\d1cø¾Çd÷C!GÙÃ7“ ºÐåÝLG‚ÑFÑÅEI÷Q–ÚÔÆ:ž+.¸éh¼èï¾^ô!ñ«O£…¢ Œ,’77{M¦Ã J† n:_S !ºŒÕ' qf³Ot‘Ål_COßqÖºSÅpÁMÇ$œÑ¥¬>QLKôßþü»ùõGY<οý¸™ –ýï¤7!º”Õ'Š@‚1&ÑöµÈü4p4‘ÅföÀû¸Ãa×Êí_d±Š¦c"D—³úD³Å#ú»Ÿ|+"ŸÜ M\dq7Ë›Ë/FÅY ßtL„è’VŸ€é¿GYlõO»={n¸Ð‘ÅðMÇdˆ>B;»do'ÂlV‰.0²8Érm¥W¬¾'Üp¡#‹á›ŽÉ}¼‰ÎJßÐûçf³Gô’ê᎑ÅÛœ9]o©ÏÒ 矦×ó ÜtL†è’oŽË›Ž£E¢ Œ,ÞqXë`cínÃ…Œ,†m:&Dô%¹7Çù Áh‘è"#‹ š–7T7\¸Èbئ£ñ¢¿Jô!Jï*ØV$-½D ÌÑó*66›`D˜ ¢G‘ENѧdß—7 FˆDyE—sœŒ=2ˆ,r‹®à渼é³Aôˆ ²È-ºŠ›ã|¼0¼´Nt³±Aôÿ„ù2#´sQ¥é³Atˆƒè‹*nŽË›Ž#DO¨è¼ý a¢«¹9Îa6ˆžLÑyûE¤äæ¸ü9a6ˆžDÑyû¯„]öÊq%Àtˆž<ѹûE—½r\)H0BôĉÎݯ)ú Sú­Í†Ù`:DO’èüý ¢?“—U æŒ=Y¢s÷+DŠ^ÛOÕ¦#ÁÑ$:w¿B¤èR³ªÁÜ8Xó)Œ=1¢Wׯ¸òF!›êD‰>K›Æ{‘`„èI·_!öŒÞ%5«L6Áˆ0DOˆè¼ý ±¢““tLù7øâ;5ç`:DO†è¼ý Á¢ï¡Ã£Ê¿ÃH0BôĈÎÛ¯,ú8¥óê¿Å³Aô¤ˆÎÛ¯,:¹J§L7Uô—ë7[•ˆÎÛ¯-ú’Ê[VA‚Q ›Až«»_!Xô'jV}.ÅE˜ è†Ñyû‚EWµêó`:H„èÜý Á¢Ï(Zõy H0‚DˆÎPÑ•?زÂl¢GýßῘú[VÞ§O\®9ÓDW!z ¶¬€#€èªDáÁ–î]@‚@t%¢Æð`Ë H0ˆ®FtrRY±%Èt„ÙDW"úíìŠog²a6˜ ºtÑÇ[ʘŽ#€è²EWZl FÑyDÿC•¢?Šã¡ôU\„ÙDW úiJ—cÝ!˜ º|ÑÉíXJ/ FÑå‹~žˆy—jf]¶è1=”^ôFa6Ñ%‹ÛCé…ÀtÑåŠîÆöPz!H0ˆ.÷Œ¾ÛCé… Á ºTÑkûé’;v FÑ%ŠNNÑ«:쌢Ë}žÒÓ:쌢K}t˜îÑbß.¾ƒ#€è²D'cñ-(U„‹0€èòDŸ¥M‹zìL]šè‹q.(U Âl¢‡ýïÕÑX”*æ;½³ˆ.Et7Þ¥JLG‚@t9gô˜”*a6ÑåˆN.Ñ1möÐýò\MïçøÑ]¸è{â]Pª$D—!º›™»Ïk´“H0ˆ.ãŒN®Æ»l)Ù#Âl¢‹}‰ö»:íæ=$D/úPÜ‹Á–’ ³!Á ºXÑã_ vé"Á ºhÑÏÓþZýLG˜ @t¡¢?¡ô™f»Š#€è¢E'st†hh:Œ¢‹=þÃZ¼#rM¢‹ýnü!‡Óf]¨è:ÎÝ ©ýÂl¢‹}†Îix`]¨è™¹ûŒ¢ ½ö€¶ f]œèdJ‡[îg0@ta¢?Ó"ÂÄg³ˆ.JôÚ~Mçî^‚a6Ñ…ˆ®íÜ䌳ˆ.Bôemçî¹0L]€èš”Ëš~y?¢û¢ÿ“ÿ‹OéP FÑň¾¬I@9„ÙD"ºÖswâ"Ì ºÑÉ)çî0@ô<¿$ºÞsw„ÙD"º«õÜ=gz/L=šèšÏÝ Œ¢‹}^ó¹;Âl fÑÓ»Ú§÷ù˜+ºös÷œé³˜D1ÀV1WtýçîH0‚8E?ÎÛ·ïõ1Xtýçî„L Ì⽎m±á=º s÷\‚a6‡è-Ä ÑM˜»#Áb½¹ÕÑ— ˜»#Áâ}#;k‡èµ&ÌÝ ù F‡èï7|ß Ñõ~VµÀt„Ù@ ¢?ÜÈXÇáéF‹®ó:3E¦ÿ¦å¢3fÇutcæîH0‚8DÿA!F‹®ó‘%¦#ÁT‹® ¢›2wG˜ Ä"zúé­wž¦]ãõÝa:ˆ[twk›÷þ¼~»k¸èæÌÝ Œ@µèk=tøP+c'Lý™¦]Õ@`*EßÆR{{2{v¥ØŸbý¯Ñ9`ÌÜxa6˜T‰~˜½ç¿zÀ¦M}†Î™sˆÜ[H0e¢·´­¼5on6]ô»”Þ5è !Á”‰î ®¼l4]t2GgL:J7"ÁÔˆÞÜš¿®–®7þŒž™»0êF”l‚q?­@¾èíl³ÿêGlƒñ¢?¡ô™I‡É½ˆ#P"ú:‡;›&é³Ç˜³ÎxÑÉm:eÖB‚(¼rcÞ?¯ˆù¢Ÿ§ý†ÝDŽ#P":Ù9™Êhžš|N,}ˆÒeÃÂl@‰è„ô,4,ôHÞ E¢“«¦ÍÝa:P%º T‰¾D‡GM;XH0™¢ïÛ÷ ûGˆ~šÒyÓ–‹0(:cGtZaFŒè™¹û)óLòDß»·!ûG6ˆ¾‡w™w¼`x^ãMtÖÀv F Sô†¾ü«®ëÿ³Atr‰Ž™xÄî_®9Ó,ÑÙ×ó¯ö³+D¡‹&2$Ñ{g`“s¼u…¥lÝ]ì¤#F³{`D_H±bŽZqF''é%3Z6Áˆ0>u?R¤yã¡3vˆ>K›Æ 5 F At7N³étÉ÷À*½k˜>2ô°!Á$ˆžåÄ5¤Pt3RéeLG‚üŸ½óÿmâ¼ãøã´¹O ’Ø ÆÌ*bãÅKRB Œ$ ÉB½A€šªTZù¢”iíÓX¥Š%¢ETZˤtˆIPQ…Ò(¨ Q¡B¤¶Lh“úË4?À*öÿÃîÎgçb'8Á¾ç¹{ž÷K$w±ìøá¹{å|ÏÝóy;":ckªqUÝ­Òˆ~Þ3‘-Ù˜ÁlØAÁE_"ãRúfŠ-“EtÏÄ-Îj:‚Ù@EŸ$j2Dïi¦p‘$¢{*²%ÛtD0‚‹^OãÖÚ8µÉ"º§"[²? ˜ \ôh<µKÕD㲈ÎÖz«ìs¦éf…=l«ëî—Fô!•}Î øg˜ +z ]×½=‘Ft–Ž›"AaE¿O¬µnª*ú÷…<$z²ü„÷‹‹ß„é `¢ïQó؆ΠcƒÞ Pô?TtvÕƒ¥ã¦ƒFPHÑÙ²˜u¯{h'z°À¢÷{³ü„½GN!‚PtÖù 1LÔÛ1ÁŠ^è#ºWËOØ9µ®øˆ`…Ý Áñ!^Þ¢¯ñhù ;ˆ`}¸²‡µ<”Kô+µ5žßŠf…½§×(ô<¾ŸIt¶Ï«å'2LG0(ˆèeD~?±[D›Ûeý´¶ªßûÛŒ 0¢Pôq¢‰[¥r™Dß»ËÃSئ@0(ˆèÍt‹1Ct6@}2‰îí)lSüx+‚Ù@þ¢GÌbR‰îí)l6ÓÁò=\š½/,•è쌧§°M`6¿èpƒ%úÒp@.ч´® ˜ ºÁBêHŠ^SG å}§”gŒ _Ñ'ŒI-´»§”ÂÃr‰Î©­•ðr”Áˆ`6๠3ºèGyç¯4í¦„[Œ€y°ÂÌOJ.¾ëÐ[ËSQjˆ`ŽU˜¹þRÀ©ëœöXp´)*-¯q­èò]JO‚FàP…™ë½*­¦êå¶ÇÚ‰Dõ«óý¯õÅA /¥› ˜ 83{m15_g‰:êµÕ\|@"ÆFb´2/Ñÿ^rñ²S±O¢ŠRÓMß Ó!ú\v6‹Î²ú¶ÑÜwºï¦Ðsú¢¦‘~—~¬Õï7?óSS¾¢_sª3¤¼”n‚Fˆ>—g=ÐôÅHÈŒkìÌõônj3—å4˜~¬Š%…_YéZуR^J7A#DÏ͸®÷˜îhŒ"ÝâÔ—c<-¡Ÿ›ËT~¬™*çÔ \¢ÿ¥äâ9ÇzCÎKéIÓÁÑs=ÇOmúé5ë êVýã{œåxAÀ’zQºLE„:;Ÿi Ž¸Yôr^J7A0DÏÁ3To~°S·±|1ùãÑ sÙB”º$I^ˆïÎ[ôëŽã²ÍJ·ñ·ýÅ[?ÀÑg¥Ñ˜¡ÊسDEÉe$Ç ˆ¬ëjþÔ k ŠöŽ$Z ʼßf¤ÌΉ@NÑw8ײ^JO™ŽFˆ>;Õd¿UQÜü±•rÍ^óg‹þ(dþ–:jÌxöÃgíÜm)úY/¥êô. IDAT› ‚¢?‰0™·É Zcé»)šó/CÖGwýˆž|§a¢ÖuŽî§QseuØú+àNÑoÊUà=“Oa:DŸ•ÅtWÿ¾,u(®Ï9MµžjÍå Û±¿×=Nžéç!úaû£b­\Þ31‚ÙÁÑgdÅÕ ÷R³ùÓcJŽÍ=nª3—åÖK’çæ÷Íe'ù—æ)ú×NvÈÖµWjÓßD#DŸõMaýŸ~¾Ý2¶˜l·»ÍöK)f|d_ÝH=éÇF¨z›±üÁ&¿Eï_¥–z‹ÿŒ}÷uÏƉ:-iÈù‚AÚüK¢€1©åq•ñ ¸™ú&ë Ód¾¢Ÿu´G~«m—{“#‚¢ÏÊõEÉÙ¥}ƒ‹æP*¼5@¡¾(Å̳ñR£•þX/ùKD9s‰þë’‹_8Ú#{dÊJŸÕtD0BôBðüK¼-ymÍ5Œ7†â͹Îï…‹.WVúŒ˜Œˆk‚è"™ƒèœmÁ{ÚÙ%@#D‡èŸH<³%…Áˆ¸&ˆîjÑ¿s¸ ÉY$r:ˆ`„èný5‡›pUæ™-iÁÑ].ú·7Aî™-iÌÑÝ-úz§Û ÷Ì–4ïÃtˆn§g¤ÅU¢_rº ’Ïl±›Ž`6ˆž&B ÆÕºFôÛN·¡âŒöž[ÿÃââ·a:D·Sc´Ø5¢ßqº Á/µ]{•Øü§Ö!‚¢§Ðýå´dùbE¿áx¯ô¯Òö¨±ýÌÑÓÇ·nÊD¬èŸ;ß-ÛeÍlÉÚ¸ï¬+>Ó!ºAÍxi$NáøbE?à|·œ–6³% D0Bt;.:GßÂá@×%w¡;ˆ`„è6šÊ\#ºC3d/4cÁl}‰ÉÑòÑÉ„XÑ_×Eßäü½_“¼Ð L‡è³ìûåqs ®º*(Zô£:FúB3vÌÑÓ,$Š557ÅȪ#!Pôw9tÌié Íd˜Ž`6ˆnPI¡Z#½}e(gX§E¿Ì¡cöÊ¡<ˆ`„èIšÓ]Çè„`ѯñ虓ZWP¡ÁlÝ$Oïö‘ˆ`ÑÏñè™* Çé|¶Ál1_zµ/,Xô¹tRÃq Œ=y¥®«%ªEÑwpéš=J Ç1D0Btƒ:JÝ1ÓM ‹þ —®Ql8NçÓ·‹×!˜MqÑ‹üÔ6`‰6ò ý{ßa>}sR[Tko0"̦¶èì‘ŸˆÌ¯GL°è_óéÕ†ã"!ºÎŠÁ®yhð-úœ:Gµá8†FˆnÐ>±|¢ÝáåýŸ¾ |ú&xZµá8†`6ˆÎ‰¹ˆþ?NmQo8ŽYÁl¢ ýß¾õ¼sR¡ÉªÓMG0D+ú]ôK¼£àpC#Dw‡èÿòýƒ[k”©7 ³At7ˆ~ƒ[kª7Ít³Atᢿî;À­5*ÕŽ›L‡èâE߯9C*Ç ‚¢ ýˆÏ÷·æ¨å "•ýPBEÃÇ¥hœÅv5’UgàCD0*&:¹)©åHÉo|\ŠÆYœW$YufÓÁ¨’èã&›)Þ1:ö¸,@'z„Šþ—¢qÊ$«Î"5DÄŠþ¯8%¤ÛxE;£|dD0ª º¿/½Ú+:ã<«Åà+M;¯üÎòS³É/z$–º®–¨|DgwøÎj19®^àb6F0L—[ô:*³Öºi`Ñ/qžÕb°GÍ ï3˜ŽF©E/òSÛ@‚%ÚÈ_$Xôo}ÿåÞQ{U­ð>D0Ê.:{ä'"óë,ú~ékS i»Z°¿˜¦#˜MfÑÙÿÙ;ÛŸ¨²;ŽŸcËùEXŸ`ÔqÈh±Ê@!€V+‚øÄ“¥«•ßhj-UŒÚجkpbb(fâ&_hMÜm6ø°£Ý` Ú„Õdc|ÝÔÕ¤û‚ÿ¡÷Þ˜fæÎÃùÝË÷ûb˜ÜÝÜür>{îÃ9¿Ïº3>sß™ÿÝ g}±»™ÝR*št(]ºÍÁÂ`s†O(>èÇÅx¥L‘,è–RQ‚Ñí ³ØÔb‚>œMWËTvK©hÒ!fs3èL6µ˜ kXkoØ&cŠÙ@ºKAg²©Å]ÃX3=ªèCŒ˜)Ò!fs%è|6µ¢7«Ý'ƒ7l‘|–“óGîFÐùlj1@¿'Ïê(Ö9ìa› Œ.ϦôWòŽbá [T¾€‚Ñ• óÙÔb€^#ÔR-ìa‹&}kÎ_ `tè|6µ kY'°‡mz `t#è\6µ|d‚>&Ÿê)×……Þ%rZ>þUÎEˆÙ\:—M-èYo9™« ¾KäLÒ!fsè\6µX 'e¿–r­Ø¬>À ‰ F÷ÎdS‹ú%)ïë©×cUׇQ ŒîǦ t]ãByØ¥aÔDâýňÙ\z6’èºV̹¼À=l1‚Ñe wÞ85XŽvÐ_jh&ʇEªÃ&:³¹ ôÑŠD;èïä÷º*vL `ØL'ýHw軨 båp´ƒþ@¾ÒU±×Ø–>3P0ºtå3¹GÿÈøÔÓc&lK ŒîÝŒ@¿%e‹®’õ¨"4~žSÁ1›+@/.纾éB†Z56_CÁèÐsé#Ðõ½H¦Z‹fbI?Ÿ“£ @o*÷¼ÏtñTŽi«ÍÌSÌ££A´’G´¥6ôuP?èwå }Eâ™Y²â7P0:tŠ‰~Ð_hÚ‘n‹ff Œ}GLôƒ>&ïi¬Ú1¸æ" F‡ß£g+ ‚>,{·ë;É×è43k,#šmô4€~<úm)ok<Ëtš™tˆÙ zeåˆùý k}¿†N3sf…Aú_Aº3A'Ú6㉜~е¾_3Æóutš™£2P0:ô²²Bó#* @¯‘GuÖ­z¦¹H‡‚÷èiý+ùRçiÖCÏ4g fèé]çþ53Ð3ÍÏ@º#A_ý {µ5‚ §¯ë`ç# FçÎjeÜäŒÞ/å-­•Ã:Øy£Aß ‹“ÚúC†rë`物`„˜ ÷è©€þûЭÛZÌS×ðÂxÎü Fç‚>”ß&êß2]ë¶37±6éO£ ½Íì+†üo:Y€~Vócwã Fg‚þQA‰çD Í@¿¥ù±»w”z4w fs"èW(0ÑYMB¬ Ðr ·è~ì.Ä5ôƒŸô=9' fsèµô\tq„r]ÜÓºÚÝLRè;_ `tèƒ.<¥,@×¼Ú݈å8˜Íq ûó¦@?ègúùƒnÐKT¶¶Ä#}HwèUôÕ~ ÐÈÆMš«W¿-Þã F‡žK»C o¬ \ ÿz ôÛ%á¬@‹÷¸ù牜=Ÿ£ Ž=è£Ú‘-ÔÝ–Gþ! oj”t—ïa—:‡A—tˆÙœºÈ/ ïhñ-,@¯´IÒ#ùTuÕcÍ(ºî.60/¯èL@¡·÷„•¾:õ£(NNCÌæ$ÐT5fú„’}\6j¯Ÿ÷²ÚŒÝªñb*!fsè푯«wóý¾Þ–Ï¡*R%FñòK(zÇékŠ‰èžÆ™»U¯c·j|Ò¡`tèÔÑšÙ—x€Îâiœx¢Ð€"@ÁèÐB¤ßU¬e:‡§qBìGŠ„H‡˜Í wV’go°¨ã_=¡ø ÿiêû¸þµq±]Å@é.]Ôï¤bù¿ml@g°6ÎÌ5€”@ `tèbÃ)¢ê`¦O(Ð75Êq5|¦Ô3Œ¤DFŒN]ˆ]T<Ä tý "C[5Á@ÌÆôˆEÕGåºmªÓ@׿SÕ zJ%C:Äl\Ag%p˜ú°ìmáPEô”J8P0ò½,&\@ï×ß7ÎÊU¥nb,%(ùߣg#I.žÊ¿³¸"Å”žx `èIƒþ£n‹C8=J=Á`JœtˆÙ8‚^Y9ýDŽÑÃ8&Kf„ð^WÇ0˜Í—99çA:?Љ¶Íx"Çt&KfÌ)½SzÂùb+Œ A/++œñDŽ èÚª“9Œ)=™˜ ÆÓ(îѽF~Ïã¼KTd‰çc(ÙƒÞÙÚÊô1íªÅÉ)2‡äH‡‚‘;è£ZïÑ;ôï8t™Á”n#P0ô$@g²¯SzÒñBÌÐ]ܕò±*‚Ÿ)™€t€ž8ècò“RÞ‡)=¹@ÁÐÏM:¦ô¤1@Otã&ý,“ZbJé=S óy“Ž)ÝFL1Ûç(Ð;§§]3è¿3nÒOnbRLLéÉç(Ù€n£ñÄè.OAqÅÞ˜ã?-ð¤ôû\–»‡¦t¼KO–ô‹9[AºCAí _Þ*ZU8ãxs¥tqRŽq©&Þ¥ÛŒ\@?“xÿÆRªÔ1C)ü-eôwLö¤›Áò8ùú<Œ,@O:Ýä3e.·Ð'ÓŽ¿ï÷eôqÙ¸Sº“c*!fs è­´Óú»œÎDÞPMÿÎèýRcJw6éP0:ôe´Ãú»ŽVE^I?9’ÐÅ\‹‘)ûÒ“ŒŽÝCùÖßv¢·‘£AŸ§*# %Ÿò)h ºÇÙ"b6‚î£uÖßz¢î©ƒÞº"2ú-)/±)(ºÇÙ‹%fCœ:Qø½ZE^°•Ñb1+è…?‹Î›Ž¤AßÎg¬°¢ǻ]Ò!fsè³€¾·´|íì /JtQ#køT=Þí’£Ó@_5Ë¥{%‘™Kwq–Ñ 6KÛ›­ÿEBÁÈô¡ü6Qÿ6þï<Æݸ™v¢õáC¡7m™ý3ÓÔ”¹ª½9b6 ·u˜‹_‡üo:ãý²’B ¡×Q`òÐ`ÔÚÂtƒÎê›%W…/Ý^@º~Ðß#*( ñœ¨¡9ÎO[©Âú»œj'-õ‡Bä÷/J;èØ´™±2 0²ì FÝ _¡ÀDg5 ±&@ËãýG©Ô¼dß°…Úfü“Ì\º›mfî3*ê3¥®bhÙ‹)féA¯¥çB˜ °Œ÷ã3Ô°Vtž"¹©ebåó´‚þç؃›Nò°ªN悺†ÇÇ6ó%ŒZA˜„Z  Oi¼7yÈw0@¥ÖEzíN#è˜ tqT¾âTÕ›Jõ`lÙ' F} ûó¦@?èûëõ»<å;CïÖ²ú°”ýœÊº_]?ŒÁe3P0êÝ㯠ƒ¾ÚïÉà Ù×â8!ž© .»‚Q#è¹æ¼l‚¾±‚rÙ.juŸ0óÚWÑe7³é=è£Ú‘-ÔÝ–Gþ!~ ËÞNu=T§at¥Bú ®t‘_^ïâ["øÞÒ+°*ìeÕõÃËv `Ôºî.60/¯è Aw9ml1ÒW§>Åð²ˆÙ´n¤ªi4Ó'dô³²‘Õµ»÷œªëÃøJ‰tˆÙ4€þßEÙ9!» ÷s»vØ¥.c|¥(µ€N”·²‰1èâ%5S(°9¤xM1›Ð+ÌgqË&ªØ‚ÎíÚ}"SH×qÞ92è'ò-¾²‘'èì®Ý½h*•j `Ôº‘Õÿ«- *ßUÈt~×îè@‘r¾¹£д—-ókµ©Î :»kwï¥î`ˆ¥”ÓP0ê½iG­nÐÿ&ríŽíªé  ÆìƒÞ¾£šˆ<­A– ³[3ƒíªéŒY}ôÆ2ã={$³'”èã²·ŸYy©ÍØÛ’b `Ì*è•åþÁ%Í™>¡@oéåµWÕÈ¡"ìmItˆÙ²:QõŽõY8¡@5ò%·ú^V]X›jL1HÏè­CÙ9¡T@?ÀIÂJ¦‰t(³t.øƒ¾½‘WH3°6 ‚1 WVŽ˜Qa ºxÁI J=¦…tˆÙ2:Ñ6ó#*\A¿Å«¿»•¨Ø@º3@/++4?¢Âtq•›ÉŠw@ `€¦(qÉyr;·?ê™ô1[6@/Ü;u×ye‚-è·¥fWãýj3š¼§ãÚb¶,€NK'¿UE©ì@/Ù-ƒÅª™ô¤gôæQ#tf4”õŸO#è?Ÿt†Ë`±j&}‚1“ }4= |Aoi”c슌U3i Œ™¼tß6 su7_ÐÅQ~¯Ò­öqOþÏÞùþTu¤q|f»œ™Ûañ—Zv#êV¸(6¸X‹€ˆ½"þcÜFÝ’Åꢭ¡ëÔ¨Ö_) Všâ¾XÐ*Ñ%*ñG´Úãk³¾X7i_ø?ì=bõÒ.Ü{fæÊÊ F­ ¿õ8÷=WoÊ ·6ò»ä.sʵ,ç î65 À˜M#è3³_ØŽ£ :û–?$x¡kqĦN_Ìéº@EL.Ÿ#¦ó$[ÌÈ£ z€bf ŽØÔ ŒÚ@¯¿a,­Ž±¼îo„gôüŠÛqnb:ŽØ” Ælº@ÏÈýØ-B“yÅÑ°$Ag§HnÇሠ¤Ûzfh2g£ÄøÐϺlÚ ·Ò+éêã §L0fÓz¶K÷ÛâûÐÏ"Ú›qîvÜŠ×zj?+Tà_Mšý®ƒjÐw‹[ŒÝ¹ŒMH›BôÓœŸ&x­¯e9pÇ©,u€þ¦ÈøO08E¼ó‹'>'µ :ë§æ·8 }NñÜrê F  ³…˜Å‡ÏÑÇP½™b²*c½•(©T0fÓ:SZÍ™,ÒÍ|ýŽÌ¾‘ª2~âÕžä87qÏ)Ô¹=0fSú€fÍÔ»¡¤tÖE°v\H)Ûœön:•¤oJJé:@×-5 Ÿáä,”Ã:á ä]­\c6X0ªýÕ!":+$ðŽwõš FU ‹!¢zÅú,ò^‹»N-é0fSú‡ˆ>èTOØØ·€t¬ÑÕÞÌÛ(^ð@;öãT+lÁ7u ïSÍJžÚzU=w¦°a?N=é0fSzu»:ß›ù$hèìÉ6†ý8J ‘þ%HWú(!RS»%ÄŒY6€ÞÖH°Â»+ìÇé ŒŠ@ÿ\L|œ.{s¢í#è;F :û÷ä“\¥#>N‡`Á¨ô"7{ÍýYÔYúy¢A3áø8”„U.³)}b¥M¶tÖM4h&p®‹:.ë~®ôÌäç ×eÚ:Ñ´tæº."_UƒöØÍ;èi™yƒ ÍL³tö€wÓ¼ê«+y¸÷Ôë0ŒÙ<ƒþš(}B®xÍWзŽ¸­$ ?»j€E“˜–´ Ælž@¿”!ŠþY ê«“Eæ^K@Ïï!ëZ4¡~œŽuú?`Áèt6fò`FKÆëÌGÐ×Èå#o¬™7ž¡yݯ;ûp÷iPˆôÏÖâ2x]*w]™¦äÖ3k@/m"éåàjüôŒ^A)oæUÝ_h8ЯËíQ´vƒhj c%Î6Älê,½ƒ> ½E>‚¾3*Ðɦ¶0öµãLÂý§cc¶˜Aÿí;¯”?Ìe Îɾ‚¾>šæ.ð²V¢—~¥³‡é èÕî&\Ú»îïŸ×øk›|<:Ð[‰ÖƒeáäÖ#³Åú¿Ch×%‡H²¼CÄϨ÷ô#QµGxJŸ„Ãt¤ÏéÑ‚þ†(ØËØø)âû¹uBdWkýBÃÞ%脧ô”ÍÎÔ^Ü‚Z Æ@O·Ý—¯ÄîB”e>ƒ.£k°‹î”¾¨ØÙ…[P`Ì=虩áJ"UdßÖý…†ý˜”Ñe™žÒÝÃtTŠÔH:ŒÙ¢] ¤¥…¨™Ë€¥ á)}i;2Óµ ŒQƒž>øªÕ]q„ /“2ÊRp”§ôGpRÖ'X0Æ z ÐFÙ$á)ÝÍLG$¬.Á‚1VÐKüý¢”[¢l’ò”Þ;‘°úôX0&è”ÏÒÝHX”y×G:,£}r}XB¼;ð‹Ÿ3g¥<m›¡)½‹ìÔ¢¬”FÁ‚1Ð)™,n‰tvŠl[¸¬Ôf܇úH‡1›µ _ŒºÑª&þ!Ù!8„46rÙ@úˆ@Ÿ9D>‚~0Ðݼô3dÇilÚI‡ãH@DŠù ú²è[-¥[=ŽPV3é°`´Ð6¹JÊc14{—ó>²ƒÐà8 àQŸ`Ìf!襱žßOµÆ»«yxx×;§Ã˜Í:Ðó¥l‰¥Ýdm[X¸Þµ*áI·t#èì!Ouxx×­D·`´ô#1‚~šª¹*ÞÈ5f›Ðí}½<[Ë…¼§”ì8àá]ûSÓᄶ`L ÐÏ7òt¢a3º•ÐŒö¾]é{„s[6c@‰lÁh#è×clºµŒ¬AˆyGª^¹Œkº /t7·…n ¬óŽ„UÍëôO§%ª1› ¯‰µíÒ^Hx,jâE€Q¯Ö‚Ñ>зÆz€tÔL¸Ú JEjV¢Z0ÚúŽØ[ÈûóéÆM¥"µ+AÙì=GÞ‰½õ>Λ Æ.'ëPé=¤ïäï<4ÿ_ÞDøˆ­¤Óé,Šš•Œö~Òèm¤Ø؉,˜4iW Ùlý#/íŸâç Ç8¬P’nèŸx½´‡ß§<Ûls*WƒDÝJ< Fû@_!zê ƒt[„ìJ8c6û@_çtÖÍ›ª²[Œ<9­ý,iÚ§4èxëáL#a;æf·ÀŽÍ€Ì‚Ñ>ÐWy] ½·z*¼”MèܦD²`´ô¿x좪‡ß'Çnf9ûÀ¡~¹Œ‡:UÐ7Ê^ûèàü.åAÙ‡363¤'1›}  Wyî¤t|[Š363rÙötª ¯óÜI[a/66pƆ"†H? ÐI‚¾P~â½—¤óUÃgl(BaBac6€NôäIï½”öóþRÊãRë#Íé‰`ÌfèwdŽ‚nú8?Ey\z;Î^`h‚ôÄ°`´ôr«Š~î‘®Ç؉bg%(4¡Ä°`´ô5r¹Š~ªšh¦³+…5Ez"³Ùúu¹]E?ê‡élBa )p4Dú|€N ôãr½šž yYå¡Y=åfL)þ-í³Mn‘GÔôÔVFºø3c²œZ0hFqoÁhߌÞ"¥¢µõ]Ú™éŒ]†™²1Å»£} “RU:y7íHX–‚eº¹uúø¶`´ôeRTÔWèáý[Ò£ã.ÓqšnH¦%í9ÐÉ€~QÊ-ª:k¦þðZ¦ã4Ý”âÚ‚Ñ>зHyVUgù÷‰?¼ã4ݤâ٘;]÷ƒR^TÖù‡w·°‚Þ ’¯ÆlöÍèUR.S×ù‡÷ÞNg*rÓM)~-í=_ÊcêºËïæM¤Ãfصb䦛SܳÙ:;"[öG>lÆÍM‡Çª1ý~v|³Yúzy\e‡w©Ç¼³](!g’ôø´`´ôír§Ò yé„U·„ÜâE ДâÓ˜ÍBЗËëJ{lmâI'¬²%•N;Ò[@z‚¾UîPÛeñj3áJ1§x´`´ôOé?¥{¼±ö0]F±H“ŠC F A÷è›üªêç=U´Çi¥“u“kÁh—1[KNK¼îÙeq¨úù´Ç±¤Ý©\éœmŒ‡q*³ôžÍ׆êõ9×Ór&I·Ì‚1AWáÉ©ünâu¥ûrFe™ãªø}¡\¡¾Û¶&þ°”öP^vœËàÏ éVY0Æ!èJ¬Z†¨ƒó ÄÇr¥“…9ƒ²Ê‚qÕ0;W‚®ÈÁ!R]œwÐË’mÎbT–2LúQ€îèŠ"Uú€z›!׉”Uƒ²È‚q]ü¾SUa÷)#îÝÂØ£bgóRðgtkŒÙ|ýêûi©Ù¹/½7îÕìÔôÕ^AWWØ=R è/Ógð3¨”é_¦XúB@¿Z#2’ÓEú¸Þ«N™…Èõ:£“RÓþø=òËt¶5ä “n‰£? ¿!Š®²`®¨ù1Ä£"S”{–)ù=•I IDATÞöºÂzÏö-ÓSæaëÝð·Ã‚q… ×‹Œ·B/ Äߟ¿7JL¿~# <‚~VaØ¡Ëtê§é½íØz7,+ŒÙ|}Žx/ü:Züíù{ÓÅ蕺³¼~PiuÈ!Ëô.â#º¤Õ"Í*°ßÒ}ýWâOá×ñ"ýù{ã^¯|O”x]muÈu‘zw·Þ·aëݨöÓ7f.§S èibLøu®O#?åùÑ]uѸ—ÿŠÜçeç‰ßv Ž³uaŠ¾£/ gˆñá×!ê#>ªÈ|„÷úr¹Fßkmâ=­Äo»Ë¨ kZ®ã9€!!ÏÕRŸ—?›,’ƒÿúé/_Ôã‚a›Ï‘w4.Èúy!ñ¸V ?e㤷`<éè©?úØébÊ¥È}kÔ‹Úæù—G5Ó›YºgL‹¸£/ §ÿÌ£ûÜ:1qÜ0ÿwî«Ô—˜yIÒ›éíÄ!ÛÿØ;ߟ¨–3ŽÏ܆ÙIú¦›Úts_´A›Ê½½¤÷ÐZÚ%Ù›mÓZ¶I±‹P¡FЭX­üôÌòÓ¤mì$ LLX1RØ`ˆ!þ}U_ø¢ÿCϬ^å"ôœyÎ3³Ï÷…Fãqç|vfž__há¶`œð˜¤¨)÷×—`‡B‡·üøw‡Bßý ;8èg5LžØªØ&þ€œJ²Ñh)X¡6fÛô—ýýÛ¡£[~úïB¿þ%ót-“'¶ª×€€Ü­¨¾GðÁ’~/é€þ«Wí_ ýxË¿t4ô£ÃÌÐÈBÍŸÚR’ÏaÈÍäS'´[0zE¨µ€þ^è…ôw~zÓ«öÍC¡O>f¾€®©!}«ã¯cB”S:VxÙý)ôÉ·Øoþ:¤Šàþû¹¿~%ôÑ_þùR‘‚®«!}«fÑ[/2Ö"Äubœôãâ½/Ðz(ôþo†>xOýá«¡_0öñû¡×úÏAo“Rû¹Ú™ãÉIìo]9ù·€ «1[0 ³Ã??ôõ~ö2·–ý÷!ÿ@_”2¥ýƒëÌ`7Ye,RF…3àBjÌÖ èû×;€®³}í¦y{轤[D©;H·tgH¶<Éd’¯#oNgFEô±+”Œ] &‚Îz|vHßE9vG6ƪŠDå)bV—³ÕÙºÖ®–-Z@oœÎØr%•ÈKY0Þ Ðµƒî5MÃ/9O H²ÝŠÒ°wp)c¶ºnÐÛe;ÌÃÄÖ H²ÍP1l¤ÿ™cÇuÖHе»¡ˆJ²aïoaƒù¢ƒ•õ)2 F+A¤½Øýµ¦ÑO€ÎΖ*£²whÒq³õØz¿ì{ž¥8þt:{ D}„ØËeÒ­]ŸWËIòõö—®…\à•µ` £½ß>Ð5Z8ì Çÿ9eÕtH‡&‘£• ÇtNv[«œŸFOú5²_„"c¶fA‡*ûB³t§‡Ë©i\<¤Û z¡ÇÜŸå¼0 D.\OÓÞ F/W3AoÒ<ö-Ò‹9¿Œ~{!Òƒ F;A?!›`Ÿ*¶Žß“Õ” qŸÈƒ F;A$»€wËÄ&OŽé¤IÞ˜mÈJÐ!¦ÆmSg†H'í¬›yyW~8èm‚^+å8éiŸ$ÒI;èƱÀ-íf˜Ô6õº¤/餼1›´tϬ¡M5â'=¢H§Ø;øÇþÙ±¼«—tßA/Ôk¨j0éÙ=*gÀ´£¥ 7@žø²æ ½žH@ÁZ0:^Uᆂ~Nn0"ýÿN.à Ô˜ÍVÐWàók‘)§®Õ#=f)èAä× "]u¸ÔÓÌhhÁh+è ØFÕí¤£Ï§«®Uš.é³%,Õy8Ðä<é-BtÐlXhfÁ˜ðª,1tèþµ­RY6ôÕ°ì¾Ý4ïZA³ Ø z…l î§Ò<‰¾—ä‹aòpÖÝó³Y z`a÷¬z3<‰ÞÂ…Uç‹"òe'ýjÞ±Ït¿@¯…ðHß]&Q(—RòZ…V Œ.è‹V‚îxõßê&}Ó€éRìY¥¨|HèëÎx Æ”­ ³@ªÝß(1Çù,úÙ°Ë¥":HèKY0Þ$Ðýý,ô4©íŠsþ<†ý«â¡M:¸£½ _´eÚåöpšó9ô.º…¸Nå°À·`Lyyš z-¨[ËΚå|½/[I•Ã@:°1Û´µ ;̞ئUÎ3SØß9ÕâBErÐʳèµX÷Z'“¼}‹‹*‡¥Ò™ Hè½" –ô/k2nB9lu>%ÔáI‡´`œöª+1ô6)1DÂæÓ<‰ßÄåa%¥ÙÀi̶h/è^S²€Ô›1"¡^$ò)ÍM:œ1›Å ³BYâ‰UéL1ö4[X¥ÙÊ)ø,0ÒmÇ%Ý•³ÆùÓ^ì§÷’z!:¨oXPŒ6ƒÞØ8©·´ÊñßÃáëBŒR7°”1›~ÒE/ =1„ “þJ#qÇß¡^•3Ĭn‚X0ÖZ :;#Ï¢yì¥4ç èCrÏJ)$éú-­½OöàAKõ­¢ɱªa ÉëƱ¼?ßÑzÂVÐé ¬wS$ö€zØ° ÉÑ(9`X0Ú :c]÷¤oÓj’7¢¯’ ·QúŒà•~c¶1«A¯]¨ž}$ΓøÇÎ VŠhÁMúù»šAÙ z­W·=´zŸšpQ_¥‹:´t[0Ú :«Ãuvg‘Ä÷¢>ý­»Wæ^Ô© TzÙtÇbÐ+d¶”–{QÇŸQÏ^Ô)£Nº>c¶6»A_ ΂mWM6r¾†~–ÜL¥Èo¡ SÒjÁè‚Î,"ª™y}Q_ç|{é;«ê¢ŒòlÒiÌf;è}²_ìËYàøï‘šr!Š(Ïf émrÈjІäE„+:bÄñ½:*òÐñPú,mµËBŒ+ªŽïOÑTy6:¾CêîUMŒã¶ƒ>†0÷úøŽÞ‡±„ŽïÀº¤É‚ÑzÐÙFÐŽ-»IEߟ ŸúŽ¨ã{K„„#]㸗»°ñ ÷#0rØYsœ§'Ñ߇…è â8é±`´t§a†í•.'9ŸÅ“+¹&D%Mˆ…“ FÇ~ÐYŸJa]Óù çOÑWÄV QNV.p¤k0fë·ôXÞ-Åf9O®bŸ·t6Ý,›Ð[Ÿ±Øí$çs؃r3EB S¡ˆü²`ÌÐU2½Ï€…šã<¹€üü~ïZ¾È¿FÕïºác_΀ÎÚåИ +«2miìÎMφ…(¥–6Ò}±`|ä5iÉÐ]²'eÂÊ&f 8¿×Ü QF™6ùbÁxN¶æ èl±YnÄŒXÚyu~ŸE~~?Õ!D”]ä‡ã ¯~‹@gãR68f¬íÉ4çØ‹b«K…%?ÒjÌÖàÕ«mèîEEV²¶‰…8ç䃦TPŽÎïúüøAI?ãõæ[º{€‘GLYÜÞ'œóbäãg–³ç÷BQ³lÁ¸áõâÛºÓ`F’í¥–6Ý«úòþUu~/ª&õ*òáñƒ³Õy™Ø:‹1‰tG]Õãȳê÷®G…è¾E0êÕ-›eNέR>2ç‹<¶ê^ÕWq' N• !Ê骮W2fs¤lË-ÐYÂÝÓÏ´¾*«ž~Œ;?3¬®êT*§—ôóyÇ?ßçßð²dè,Ö$åYÇ î}ᢞ9‰ú‘k Ü«ziYºèÔ,§¥LåèÌi—òÌ€I+<_Ì9Š»,6{U¥ªXÚ¿㘔‰œ9ç¤ìš6j‰—æ\Ô7q£^Uï^Õ»©«M£”㾌Ù<ý¬±•!Ùz±\´Y_ ëŽÛ¢07¡ ¡®±=ÐoZ`Ìaíf7 3è@[zd]ÀË1ðᯉ*üR9ASÖ7Wáj}:€Þyé^?yû¥Ÿ5ÌfÇTBz›÷¾®dàzÝ[8¥3ë#“ ØJ’³†Røn5Új£Ã(õQjÐY,aDJ°îÑE™÷.++'YDÓõú¼¾Þ6&Q *|wj>˜MÃ\B:5Öqd=¬öåËú”¨DËæS#EÙ¹\Ggæº$ý톤ûÚ]C ×®×­uL¥ó3oƒÝ[ Öë‹Ç…$¿ÞíVáçdÛˆõ««ÉÆ\¸ý›èô:ýv"‰Çx”Y°ÂÚ\z‘8K“JÐ1‰¿ÃwŒ!Ö»SÃÁl3.LD wœÄ+Õafž¹ül‰Lât<8·¼ Òpæ4!ôæúÕI¿4˜M¨ÆÂTs#Ðë%¶éc$ì.]ža›ìÂD ¶Ÿ‚ƾNÃÒâ<Éú„DêðWÑ #á4Q ~us´áUØ=&žYÕx¯Q4E¬ØÓñ=úm»-“9ü˜ã.jÛ¹~^?˜ r®g!лtöOmÆHk·û”Lz‹]œH•xö’ÈH³òÜ(`]AÔæ8"Z°w(8‚ñb0ÛŒ Ãp½ë<ü—3è\$ìaÎa·¯ÈeHØJ´«ÅO†dÓÄ‚]ÂGý§:Ò·ž`Üruâçô¶ Úx&²½gs2c¹¼3YÍâìFºu’Ù´ÀãðÎZ`Uç: ý|cÞŒ… ,zåŒêMª*í+nP2ÄÜ…{…tvQœn;oó|ÍQsÜÝDý¢)ŠÁç’x:kŸ‚@ïÄÛµÕLÃT&<Ï Üì"bã½XIÉéµõv» *ñœ9 •ç¨‘þÓ—Þú³¹óñ¡ôÎ$Væq«çwµÔÀ„d^¸c<"×ììÌQ^Ö¾¬°Okøè]·özýËÿ½Ê@púÕÌÝ'}Ž»Y Õç•´?aã•—+‹¤µŸ–K;tÚ|›åk¦«°ïî£4¾UÈŽ 0ìþ¿ÿ3‚@¿FÜ#\}¾t¼ŸØõù½ý]œ(ˆªÖ>U)—öèãí#û»’92wXŠèu·†šñÁµ£ú`D w]«É¼Ÿg?1_ðv™¤¾(×ïÞõlš\µo_($fh{ÕÙÇÖV³ÈÚ륔Â_™)Òá`6zoí]™×ÛcéÈä*õIÕ®0VãðjÞ`ËÑÑâ½òìy&Ìý,¾N“¢üm‹ƒÌã9ÓËöÐÓžã`õ]Ê×)éôþÈñóðÏ3z`ñ.µ]oˆ*4;ƒ¾’(<:]¬â>p—'é°tÙW¬ºÇÎi„†5“Ÿ‰J‰:GZ×´˜úFúõdôQ®©j, {NLRš!/Ls?8Ç}ñ@”2&ݳfd”uû_¶V¥}Î-ãY•næü]Jô…1ïwF:ýš@ïÃíõă\?ÌÛrô`^¼S‹;°÷£l)1ðtþö&_æž içŒKŠÍaÀÝ=‡2Ö¸yéG0"Ðäñ9[ž'5]F0oµCŸä]¿&× ÇKì ÞDåÂúÎ`‹ £ûŠ€dœsŽ»c•_\þâ2®?¿Â%mÞ…ÚF:-?Äíj—§yÛ»¬Z©Þ—·)ƒÃkfOž=«<ç½t*Jä;ƒÌèïù«ŽésÜçÜËËÞƒƒÔZ-ì„cíúýö- #è´Jìó>½Ît¢2c ¨7éðCèõƒÀð/§3‹ì‡O?Ê×Gü2ÄýÂÝ ÞùÅyFë„[µ‡-á[ÑTf PÁØgÐï}ï•ß|ãûm¯!Ð_\';•$ô1—'Œ5À>f²C·F”[×˜ä ½‰RöQðì©ÌñQªPJ &«ŸÜTX4î¹ Þ'62‹¢8Ϭ9PAeô°v?Ö£ÆóÔûœü²íÆþ‚~ïî­/ÝäÞ|µÍ5z»ŸÁV$ ¨—jÕ ¼žØ³S ¬üCƒßv=ŽïÝ“R¢ÊR-ñùŠ¨œ5ÊÀüò…Eæ¾Hç9œ±q·&°z@k‹ŸÙ"*55û¯a• 7D: ÝmG0öô¯p¿}õ£7¸ïL¶¾†@ïÈTƒ9{ÜnŠ sÉwÅÔZч¦ß7ö…øìYú`‰]§Å¥ƒô ½÷÷ã'÷C»I-ðœ±i·dÕÂmÎÓ¥i¬Êøp»õÒù “ÔgÛºâ¶K›Œýý]î­¯ƒ×ßä¾×ò½;î·”6¿áP/µ›¬ü0ÖDf Ø>„ŸgÈãô÷4ç{rc¶,ªd¦Ø—4µtp,ZHÅòõ½äŠðZ€ßæ[dŽ9N­¦7È|qÿºKõbg<$ðŒÔ‚K+1xšÂçW:»ü Z fë7è?à~—øü*÷-¯!Ð{ü›äËçá:-DßÓ}˜)ëXÕZ;äßÜ€­`—þ?ãÝ[/ÅSgéГÜWÒül¡Èßñöý;ûÛŠ»«÷øDòÀç7ÜYà.?´½9Ûìgœ ïòÇ@„ßË÷89áóGœ=Ëv¨‘ÞÐ_æ~‡ø|{³å5zÿM?Ù7ðôR~W³Œ¿.¨0huRAµÙ”0 ;âR¸²“— ©òQú43µÈn¨Å©ÌAåXtàýÿdÏø=G¾¨Ø È^dž(Ù¯9$²U¾"TäwÔÁNüüþ‚઎¹šRbpßî–ö#²5ÁØoÐ_á~øü!—û×V×胣ßæ'žv­òïiª¿Y³‡ˆ`) ÕH€ó@:`ðÃXÁDƒ`3³'¸Ï¦DéÊACïóþLæ´rœ! œJÅã@Hìí%A X¹jâq{~s[±kYÕ8Ü—’ûô§7ÖÜL°ÜÝø‡¶ŸÙ¢QpÇ|ð–Áy"huËÂ׉–HópO´ï+–&ƒÙúú-îkäz‰Ë}·Õ5:­2ÿ HýÉÏ ÐZ­Je¦êâÈ @@Ĭ071 qFüŸ|òðáÃO?ýKùìHt||šÉLµÁ¿>€Á szzz| ‚Ht¶°°ÊÆã00É ­Cµ“ÜúL ô™-úäŸ@Ïž=ûüó§OŸþÐ?ý­*JÿØ0~‚Ø¿€pðÇ=y²?;;¿ umým)ÞйÜêÚ î«­®!У ˆ9e„¿Ápâ06;Œ'0xÌæ0ÖK™Ã„îÿÔÇPv¨/©Ûïtÿ>øð[<þðqU=þ¨#ýþ ú%ÿñ×úPßh ú{/×êÇo"ª @4ø{wóÚF~Çq|ê>uäØ^ÏXVäŽGBDÈ ¡àùSÁê⛹¤¸…ô¸ô²ÔØÿ@1-KO ¹¸>úPpho{ÛSH k¶â½í½ó Ç+QØÄ_g߯…ù·xùúg¿5£±6><ù*¸.. nÝ Îã¿ ÎçÁYý?þkp’ÿSp®®z|nøç¯?”ÎóÀë'ˆoŽüøÍ>ü•y?}üÐÓ —ééw¼t7÷ž\|Ø¡¿‡þ^O‡Ï¡'_uüîØ­w÷¯ãÏ:ú=‰üñÛÀwo¿û:\Íý—c_|ñïà¯P|üýyþvŽÿ½öŸSþ{®?ÿ\~j\Ä͸­£oSÝÖM&rbá³»ç½uîîÝ“7íOÖ[îðÇ?»ˆ·áÞýø¡ÏèNtœT¾ë¡ÇzÃL):«ÖuÐKzŸ áåùtEË]׸ġ;ëªO8­GòÂß$Žî¿±FèÀå½á)ÛΫÐ~Òâk„\þЩÏ-ÎÅ¿Gë„~jÐO ôOh €Ð  tBèŠÐB@è¡„Î@¡:@è„С„Nè¡ t„:„Nè¡:@è„С¿¨Ðë7»Zì·¬fzº 6ï“ݼÁîÝ,Y ½µÝ}à¡!ÓÛ]4=]»Îæ½·jÕôx¹îÝÜì»d— ;û¦Ç«›žnø›÷Þ¶¿dóÐ Í#tB'tB'tB'tB'tB'tBg» Ð í&tB'tBgóÐ Í#tB'tBgóÐ Í#tB'tB'tB'ô_pè×mÿW8K¦§yÁæ½·ý56H´·à¹¹Ró­k†ÆïϹéú²ÑéBW]Ïêæe¶«…ljø¶ÍéšrnqcÒJCiÇj=ïöŠ²©´ÒãoY34Þ²+¿’—J&§ ͧäýÞίKOš™¶8Ýx>XËË5òGÂ>Wú¾ß—Á j{N«¤•ÙîkvÆkúZl9Ρ¯›7/´#¡'÷½¼>ÇÙ*˜Ü¼L%\›_P¶a¡a ÝP½ZUv"8Ü®èË®k†ÆPµSSÅàt¡{~ÖBè ãe®»o^Õàæ]•;¦+½øí;˜Ó™Ð …ѳ%Íuž¼Ö»®¯ªáø2Oš·7]øsZÕs ¡'7ªGѱqsÄàt#m+iáÂwo-­üðéÐ …ÑûÝÝŽ“'¾¤¤5Cã_ovÖ4koº(¦+kBO¯¦Ã?yãrÃS¦Ó6pFßÖ`£ïô7ÖP=ó:ßøÒA·5Cã_ÂWLN·›õÊ&BO/§fóJÅ[ß29]PøÌž3½£ôƒ ŸïŤ㜠ÝP=Ë*þUƬ´ÚmÍÐxÍlçÞØt™º¶¡'Œ—‘¶ -YüÉsueSEUŒüϭ΄n(ŒžI_¸ï¶fh¼ØXJ©–Åéî¨ß±zÂxe)¿²Õjü ]·¸y~ø,T7º¡0zæ&ÌîÚùzÎe¬ªâ®ÅÍkŠFBOï@ÊFw8Jþº'ióV43>ß\PaÒbèî%=p5’¶s…rÞ(Úʛܼ=uŒ„ž0^pF¿=Ø”ö6oAíÛñí—¶ÅÐÓ—øÒÝÓÖÑý…©nk†Æ ¬zÊÝ3¹y‡ño^ŒÜŒ{c¼Œ«íèÁ´¯I{ßÚ\ô,\¯¹Ú4º¡0z6£;ÑqRù®k†ÆsœE­4mnÞ†Žܼ•Nè_}榛ÖÑP9í ÝP=[ê¼c|Xµ®k†ÆsúòªNݼA?&ù~ŸÁÍ+ée|+Aé S漫C7Æ{|)…Λ—»®oÌS½lvób&.Ý“ÆÛêüŠú‡ ÿYMšn]ƒÑñ•ÒóCàšÔ¤JIDAT7FïÖUŸpZä…ï2;ÝcÍÜxWTÜÜ‹e nžÐ“ÆËÔÕÞuœe_Ï N7éj x¿žÖ玩Ðí…ѳ†§l;¯Bt™ÒâkÖÆ+g_Üæ«þ“Vç…û\Rè9=>h¹Úd7³¡_‰Tt£µ)‡çòûŽó*>¯;­g76‚WáI¡—¥J5âj„Ý̆¾tôºüpM‘gŽs=<Ï×t¬gF‹ábªšzCÇx‘Ø }!~°¢­ãÐçój> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 26217 /Filter /FlateDecode >> stream xœµ½K¯-ÛuœÙ?¿b7¥†.ç;s6ªCÃ2 T`ñÕÔ0( –¼)Ù¦«ü÷+Lj/råÚ"é{N¡"ÚgÅzäk>Æ£~üÍGýøçÿöí?~ü·yü´ÊÇÑ~*åctýWÍÿßÿÝÇÿõñ/ß~õ‡¿ý¿þøw¿ùV®¿•çþæßýŸßÚOm~üÏo÷÷åã¾Õ¿¹þÕøÿÇ·£‡Ó8ÆOµüþÛõßå–Ÿ!Ç»<ŸrþÔÞåzÊõnµÞ­Ö»Õñnu¼[ïVç»ÕùÓYrÿÔÞåzÈóúÞïr¼Ë§ÕY߬.ùfÕÞ­Ú»U{·êïVýÝj¼[w«ñn5ß­æ»Õz·ZïVëÝêx·:Þ­Îw«óÝêúÙÛC^?û»\¹¯Ÿý]Žwù´ÚõÍê’oVíݪ½[µw«þnÕß­Æ»Õx·ïVóÝj¾[­w«õnµÞ­Žw«ãÝê|·:ß­®Ÿ½?äõ³¿Ëõµ\¿û=¾èóM×7»Ðï~í‹_ûâ×¾øõ/~ý‹ßøâ7¾ø/~ó‹ßüâ·¾ø­/~ë‹ßñÅïøâw~ñ;¿ø]Gc<õu8Ð ½ž:n»_ôø¢Ï7]ßý.ýî×¾øµ/~í‹_ÿâ׿ø/~ã‹ßøâ7o¿Š^ozÝ~Öã‹>ßôñÅïøâw~ñ;¿ø]ÇcJ—Ô;ž~oz=u»ŽÇ=¾è7¿Vßý._Ù©›ýn=¾èóMwûÝúÝoÜ~'z|Ñ盞·ŸõzÓëö;Ðã‹>ßôqûYÛo¥>o?ëñEŸë©¯ãžèõÔ½Ä?|Ó=Ðç›®·ŸµýòzŒñÒ=¾hûåùÜûíg½Þô¸ý*z|ÑöËó£ÏÛÏ:ýúO;o_ò{èñEŸè<~ýßCÛ/O?o?kû-ôyHë÷½ŽÇ½Ðù{ŽþMtGŸoºÞ~ m¿ü}F»ý¬íWÐøùýG·ß­ñ;óûa¿ó@ãw.ôù¦çí7ÑöÓ÷[·_GÛ¯¡í§ÏÜ~ÖöÓ÷9íwl4~lj¾¾Hj}þëx z¡óóÎrê莶_~ÞYo¿Š¶_~¾Ùì·N4~ë@ã·òóÌn¿5Ñø-}žqû5´ý*Ú~zÿi¿y¢ñ›zÿe¿¹ÐøÍÆoêû·_EÛOïwÚoœhüƾN´Ôú~×ñ@ôBç÷[%nÔ© zH÷Ư§ÿªöë_ÏÏ¿šýzEÛ¯ ñkùùW·_[hüZ~Þ5ì׿VÐøUùMûÕ…ÆO㛵ì§çí¥ñÓóêÒøéy±ûéþ|iüt?]§ýt¼tú5î_—ÞEZ¿×Ž"uCè|ýQâÁZ÷ƒKOôDã§ëù¨öÓõyiütý]ÿ?]o×ÿÀOדÞ8´®¨ÔŸ® BÏÆOç÷¥ñÓù|Í©ñßп_öŸÎ¿Kã×õïûé|»4~Mÿþ´ŸÎ§Kã§óçÒ»¦ÖùrÍ®;z¢tþ>ׄºJë|¸ôDwtúUžw×»£'ú@˯ɯr|/=ÑŸî¯g·ŸŽßÙí§ûß9ì§ãuiüt¿º4~:>×d?Ý_.Ÿî×ü?Ý._÷ßñëúûa¿v ñÓï}M²ñ«¿ê¿ï–šßw‡qêŠ>Bžÿ×L»¢ zJëú¸ô–Öõ°«ü Ï—Kã§óýšnã§óûÒøé÷ÚÍ~ºÿ^püt?ÝÝ~ú}ö°Ÿî—ƯM4~:ÿ®Y8~ú=.ŸÆ×Ä;ü®Û„ίKOtCoi¾ÿ‘~q[9ÑZŸç´Ÿžw—Æï{Æ@(´®×k>ÞÑ }H÷x}»æßU:è)]7¿¼žÚ5Ç/¯ŸÐéwêzi×ü»JŸzJ½Ñòëò;uüBã7õù†ýÆDã×4~ùÿ´_ΗÚ5ÿƯTtúº¾CoéSŸçß¡ó/ô!½¤Oùº_†Æo ô5p Íï?|èf}Hçó­]óï*]¬gè¥ñmè-­ÏwÍÇ»ôa}Hçý£]óï*çhüòþ?ý~×|¿¼ÞCã—çs»æßé75=¥ù¤õû·&¿®çahüô}[³_ÞO[ëòk~¿.¿æ÷òkœ—žÒú}/½¥»^?í§ã{iüt=\óïô«üž—žÒk£·´Î÷k>Þ¥u=^únò;íW:ý ÷‡K_†Ð‡~Ÿ?Lhüw „Bë÷ºæßUZǧç>´>Ï͸†ÉùÞ¥ëCzJ/ùþþK~‡ÆÇ¡Óoqÿí‡ü–æk¡i>ß)¿Åù~é)­ûû¥¯ k\Ó ­ï¿ãÀM‹¤i]?×ü»Jë~vé)ãëÐé74m£Êoh~úÖýq4ù±ž:ý˜o‡ÞÒ:ž£Ë¯ÇÖ€ô!­óûš§_ãþ9†üçóòkܯ¯ùx—Öùuéô«ÜïÆ’Ÿ¯‡KOéá¿oéªÏ{ȯpþ\ú^úýNùÍßBOé:Ðûš^Óp]/×ÿèÒ« iÏ™“к_]z†>¹_Ä‘Öýèú ]Z÷ŸYåwð}g“ßÁï}é)­ó1~Xiݯ®>ý–߯Ëoi<ÒâÀJWëô›Z_ ½¥u¿¾N¤.ݬÓohý©Å‰+½ô”æó-ù±>×âB ÍzEèCZçO\¨Òe£ÓùXèk ZÇûºQti¯—>BW­§4ݨBëßÇMZ÷—K§_Á?n¤Ò9^ }Hçúi[ybŽ¾ùü+'r¡»ÿ¾¥5~X¹0®ËZ¿ÏÊ… ÐzèA7ºïGzP†ÖïZé&¿)¿¥õ¬Ð‡´ŽïZòóý$¡§æ?¡·´ŽO ŒBûxÆ@Kš÷?å7´^:ýXïj1-©ù½vnÍvæ÷¡Om[ëùyiï1q]¿ÄÄEZçCL¤¤s} tú>_LL¥u½ÇDûÒzl…Î……к¿i¡f´“ñ¦êB½>¿hh]¿—N¿ƒññ5ÿ.Òº~.~¾ß_ú”îò_ò›¯K/i¾ß!¿Áñ¿ôžþû)Íç9åÇúYèرm¬Ï´kþ[¶×0FçÛ¥‡´Žß¥cÿ·UÎßkþݤs¾:ý ÷³Ê¯hý)tøÕÍñ¿ô)­ûß5ÿ¿zj=5ô’Öóøš‡ß5l<­‡ôý÷ô[þûßò߇ü¦ý§ü¦ßÊop>]ú”æó/ùy¼x.ùuÿC~Í¿Ï!?ÿ~—N¿Êï{Í¿›´~ÿ3'R£úü¼æßEZã÷3'‚ãšvèø^:6†ËÉñ¿æßMZçÇΉõ(þ½®ùw‘Ö÷ÙU~‹ë{Wùyþ°›ü&ó‘Ýä7¹ï.?Çw—ëí¡OiÏ×ü;ýüû\zIëy¹§üj 3¥Ó¯øûMùyh Íúuèôkº_öë‹é>ÐéÇúRèS:¯ß~ýPéWt|C‡ßÉýª_?t‘®~ç©ã:üÎCã¹~¸&]:ý–Æ×=tèé?å7u¾†N¿aÿ%?®ÐKºêõ‡üšî÷¡ÓûIèSºèóœò+º~C_³~0è×…PB³~zH7ë3ô¡ó©_R ½tý‡^Òú>µÊûkèôK§ûg=.li½ß¥Óõ×^»ü*¿_íòc½-túÝzͧÇzÐF‡ß:uýöš^hßK‡ßb<×ucë^?è×/ýx~„^Ò:×3ý¿‡N?öSB§_Óýº_7â&]&ú:}±þدy Íz]èqé¹5Ÿ}†öñj¹0:¯×Ðá§a^èš~sñ{\:ý|>¶*¿©ùcoM~Có×ÐéÇø°_ºôkü>­Ë¯òýZ—ã…~=8ÓùjèðÛŸo¦ßàþ:üÆ¡çyèð¬ÿôëÁÞ¤õû_:ý¦Öoú50H¿¡õ²ÐéÇ~Xèôc¿¡·S~Õ¿ç“Ð:?ZN$ú5þÔñ¹ôu¡ö¾µÞú }r¼¯P ÍzYèðëKó·ÞóFºttúMŸB§ßÐø´÷&¿Îý!r¡›Æñ‡ôóõ¯صM/}JëxÄ@òÒ×Ç® ~Í×ûõA¯ZÏ~õ³Ðá×&¿çõEÒoøý—üØß"ýšž?¡‡t9ÑéW9?®2ýŠæ;]÷¼ ôþ;.ü¸l¦õ}ø÷ȉb\¦ºßèÀåem~Cóû8ÐéÇ~è!­Ï7ªüØo‰'ý¯…N?ß_G.\q•¿’ËÔÒáWüy¯5üâ6¢Ã¯LžG׉~ƒûí˜òcý-tú5þ%¿ÆóîÒéWy>i¢šÕŠ¾üⱫóûÒgè“ûYLŒC\ÿ—¾>h ô|‹‰vè©õ•Ð#ôð÷ÛqâÇ0&çûq#h¡÷³YäÇ~QÞ8B¾o,,\:†i~§ïרIëüž¹˜ÃH½_Èv2þÈYèÉýR + sCù1 ~M㯼Q†®o$±­£ñÇ™… ±-¤ïwvù±zJk<vù±Þ‡ôóõtéô«ϸхöýéÒáW6×Ã¥Ã/¦Ò¹p’Û|ÖáWçsLtBO­ß„žÒÅ:ý¨O‰Súu­Ÿ…¾n\± ªç噑ØFÕõzéºpþœ¹QœÛ¶ùþ׃¡‡>µ¾úÍ|4&zUZ×Ç¥gè¥õƒÐé7¹Ÿì&¿Áù¬S½ç›×ÿH¿Æùyéô«Ü?w—Ÿç[{ÈÏãÝqY ¿Ïô;OÍC‡ßÉúrèð&z¥_¦}Hëþz}ÑôïK§õU9QÝìÊzÐ×À­žÔ+äÄ?tñïµc"–e&½C3ÞÍ…„Їž?¡ÃïXú¼±Q¥«uúM/C§ß°_“õz,tT×'ÅBHúq¾‡N?Ö—C§û ±°~~Þ…>¤«^Ÿ7†(sÊó1tø-ÖC‡ßZú½ba§K—~SãõXJ¿ûûòë~ý!?Ö×c¡)ýšßÿŒ…¤,K“ߎM›ô”® }=¸£,Nß?¢¡OBÒy|s¡,4ëW¡ÃÏóÃÐéÇ~D,¼uéj~Cço,Ü¥õ–¡§t­èô£>*CW]O¡iýžuÊý Ðá7¶Ö×Boé¼¾sa24ëu¡Ão°Ÿ ›UšÏsÈñAèô›ºÞr¡TZç륯e¬Sï¿c#3Ê`wEOév¢wèÆù×rbe·~Ô'ÅÂoúÞ¿Uùñ¼~ý®XHîÒ:ž-oLYf,ÝÓ¯S¿zJ·N¿¥ûA,lwiýþ1‘ Íx)ÊÓoèyzJëú½túuþ%?ÖsX˜2ïC~‡ü¨W ~Ô{…ÞÒ:¾í”ûᡯ[=Ÿ…ëBˆ2öq ghæ¡·´Î¿ž ŸQFŸó§Ð‡´~¿^å·4? =¥‡uúMÿ½ÉoúõM~Ãþ]~ÃïßåG½wè-÷ëØèéÒú~—N?ÖÃbã¨Jë÷‰ڿߥ·´~ßëÀ¦õ¡iŸžéÕû ¹ñ%­ã«±À:tüc (­óãÒ×?±ýûNb#=¥[GïÐÔïÄÆ^—ÖïÒúþ£ÊýÐÐSºZ§ûë±Ù¥uÿÓÿø'ì~÷ñ¿ÿÓ¹þg¹þçç?ýçý×øø×üøÍï>÷ÛÿñOÿú/÷;}oNÉy=0b%-þóš“þÿ˜SÏÒGNIýxæ”äÈ+§$ŸÃ¯œ’;¼rJrÃô•S’ãcç”PNàœfWÎ)a²îœƆÎ)aiÆ9%T^8§ÐÓ9%]Oiç”0pN Ô¤sJ€ SÓ蜒®!œsJ¨ðqN ¡sJ¨çuN ËGÎ)éú5œSB±¼sJš¾ sJ@éœSÂÊ sJè:§¤ñ™[u$Vú§­ÞrJšæÎ)©š2;§„?ç”T+SRµÞ✦SÎ)©ZmqN ››Î)a-Ó9%”Ú;§’Ê9%,4;§¤hžîœ’ [åùLNÉÚZä$§D¥–wN‰%rJ+䔈£¼sJÖ~Ë)1NDNÉ¢z™œÕ€Þ9%‹µrJ¥Ì䔬S9%‹(rJÖGEN‰¹甘ÓqN‰¹甘ÃqN‰ëfœS²˜×;§d-¸1rJÖ„‹#§dQ'뜒5áüÈ)YÔy8§dM83rJÖðçQN‰×aSâ:ç”,çHS²Ì¥“S²ÌI“S²Ì “S²º_¯œ’ÕàØÉ)YÍﯜs(Î)qsJ–¹IrJ–9GrJVåxS²Ì’S²Ì’S²XGuNÉ*ÎéPNÉÜü^ä”Ì ÷JNÉÜ~?å”Lö‰S2OÎrJ&ë Î)™'Ü19%“ºç”xßÖ9%óxÏ)™ì“9§dRwàœ’¹à^É)™•œïû:§d²®ëœ’É$Ì9%sø÷VNÉü{rJ¦s È)™Îœ’Ùù<ä”ÌF9%“û©sJfsŽ‰rJ¦9YrJ„'|Þ9%³Âm“SbŽÂ9%“}sç” œS2ÌI’S¢å¡Ï;§dœä(S2X7uNÉ8¢œÅ-|Þ9%ãàú$§d°Žêœ’±ø}É)Ôe8§dLrÈ)ì«8§d°®êœ’Á¾³sJ†shÈ)Î] §d˜ã'§d°Î眒7朒áë“œ’QõÀwNÉ€órNÉ0·KNÉ`]Ï9%}sýSÒYŠqNIgñÅ9%Ý×9%ý$7€œ’Î>‡sJúÁïENI_pÚä”ôÅñ$§¤Oç˜(§¤O®rJúôçQNIpÆä”÷ú¼sJºs-È)éÎA §¤7çn(§¤SW㜒^¢œ’nn›œ’^ÞsJ:œˆsJÚ†['§ÄûÎ)i'29%íä|$§¤±.꜒×꜒vp?#§DxàçSâºç”´IŽ9%Í¿'9%møïÊ)iÎù!§¤õ×ß#g£uû+§¤5¿¿rJšÏWrJZuN‡rJšïä”´âœå”TsÚä”Tÿ~ä”T&Î)©¾?SRáˆSRYGvNI…›qNI…ÃsN‰ëôœSR'9ä”Ôáœå”Tê8œSRïœå”Ô—NNIõ󘜒êrJjå~NN‰pãÏ;§¤rÈ)QyôçSRXKuN‰¶s?—휒G휯³;§¤ø~INI™ÎáPNI™Î9QN‰†AŸwNI¯\’ôcþ✒â߇œ¯s;§¤Tîä”âÎ)Ñ°ðóÎ))Åï—9%Q. ñˆrJ²¼  Ï-®@ïŸ9%Y®ðÈ)I®@~§üXè%§$¹‚Þ%¹×4¾­å”ô;9%±Ò¨Ï¯€„к_) !V0tÿUNIh]_ °ˆr=Ï•Så(§sK¦t³¿ss~*§$tyä”$g Óä ¬§4ŸoÈoùóMùQWLNI,ïñ}—üÏw唄ÖóD9%Yn¤’C~pä”dù’sIÒ}|rJ²ª£¯A?}QNI–Wô!­ñ‚rJ¢\K¿^ú™Så^:ÿ”S’åbÎ-9¤õ*§¤{*JNI¿s7”Så~ç#§$´Ž§rJ¢|Pç¯rJ¢ÜPã{å”$§ÐÑé·¸ž•SÒS@NI–CVô5pŠòÉã‘SZÇK9%”c~:§$¹ç’Liw”SåŸänTùçzTùQ7ONI”Ÿê~§œ’äœc²¥»sIÂo|?å”d¹¬þ>äGŽ9%Q~{øï[Z¹HÊ)‰r^rO¦üœ ¦œ’Ð:~Ê)‰râῧŸÇ'Ê)éæœÉ)‰rf”SBùó§sJB+WF9%]¸ó§sJ¢üZç§rJB‹‹SNI–sôìÉ=lç˜liqÂÊ)ÉròGNIäÒ‘SZ\™rJ²œÝ9&éG.9%¡Éñèòc¾INIhq§Ê)‰r|qfÊ)‰r~å(§$´88å”@®IEœ’ä&&:ýxþ‘S8Ã3§$´¸lå”$QÐéÇb9%¡Å+§$ñŒ†>FrâL•S’\ÅF_7šÄC9%]å*ŸÎ) MŽGNôOQŽHg!O9%¡«sLÒoúßwù 8J唄®Î!I?ÖÉ) îB94Ê) Í¿Ÿò«Î™ò+ä(§$49-¨àíç”—q>rJºâH>S’x”>oþ!8 q¬Ê) ]cr tÏÒçÍœ’~s¥Ê) ]KRgn-’3’9%Ám(C9%Éq(w£ÊõrJzeßœ’Ðâš5Юc>rJ‚ëW¬œ’Äí :üŠsq”SœÇé\’)MNÈß„ÛTNIr}H‹CWNIp Ê‘ÐD$9ç˜lé&¿C~.V9%]·Oç”$â\’Ë/¸q×Ê) .D©rJ’qnɱ’Qî‹rJ‚Ùœ’ÐänùM8^唀¯~:§$8r?šü˜Ï“S’øìD§ÏgrJ’+™èCZ׫&®Á™ ç–„ß¹¹>”SZ節ýàLtþ*§$qd}Ÿx„Öù¢œ’àN¦ÿž~“؇Vnˆ&òÁ¡èø(§$8”íÜ’)Ýü÷ëFÞ\×KNIèâÜ’ãxq*ä”´nœ’к?*§$¹åtäÄ;¸Ý_èº>rJšÊñ?S‹®å”$~ï\’ô›š‘S\ ¹"C~æÄ•SÒ<ˆhÎ-$§¤9gœ’à^t¼•SÒœÓFNIp0:~Ê)iÎ#§$t{ä”dÜ‚þ}æ”$3ÑSZ9Ê)i‘Srs2ä”'CnFÞX‚“ÑýO9%ÉÍ5¯ÿ’SZ÷/å”ÿñ霒vçö(§$ãD”‹2ågî[9%íÎÕQNÉÍáSÒ4ÍÿtNIhÝ°ÆÇÒñWNIh]ïÊ)iwn>hü,º•Sš\—,`Ÿu=rJB+7I9%q˜†sIæ~q<ä”äi \ŽÌ)‰ÓdZ‡ßðýN9%¡»uúMî/Ê) _—ßûÑåGn19%qÙ ëôkÎòc|NNI\¶º+§$4¹(K~>”S· ]Ê)¹9!rJⶳ9%¡Ë#§$ncó‘S’·=çqD?*§„Ûè§sJBëù¬œ’¸ “³‘9%¡Ë#§$nëúüÊ)iZ¦ýtNIèöÈ)ÉÇJE/éê\’"IÏSå”4דSÒîñrJZóó_9%¡›sIŠ8%]Ê) ­ñŠrJâ1Í÷[ò[Œ‡•S}¯”S’Ãç’ i]Ê)‰aÇé\’&­ç‹rJbآ㧜’æ8·dˆsšþû)­ß[9%É=è%îIÇWIÓœ[2ÄAézTNIhåì)§„aá§sJB“óÑåG:9%9 ­èSÜ”Ž—ÎÐ:¿•S’Ã^ùMù‘ÃMNIèáÜ’S•Æ[Ê) ­ç§rJbØ~:—¤ÀY9—dˆ³Òø]9%Mq ŸÎ)ÉiDC¯–º>rJšëvÉ)Éi‹sKΖ\–æsÊ) ]9%9MR®F•ßâù®œ’æº[rJÚ+‡¤Éo0^QNIhå”Ä´Oãe唄Öõ¡œ’˜6’ë1äÇú!9%ÉyIOùÿ}ÊÏç—rJb¼KÒ¤Ç#§$§ÑÒ ¨†Æ?7“ ³>¥ù|§ü|¿VNINûõ}2§$tqnÉèÉiü¯œ’Ðâø•SR]¶INIhrGªüÌE*§$tÞ?É)‰eå\’&MNH“e䔄W«œ’X–!÷¤Ë¯ÀÝiâP_9'¹0Z¹ Ê)‰e"qgÊ) M®Jn¬Æ²Óé\’&MŽÊ’ßrŽÈ!¿‡¦œ’ÐŹ%éÇùHNIrm}M$bYM´rJrn£ÇHÎÜ“\ˆ­ï£ /–ùÄ *§$´r ”Sˆâè•SZŸW9%ÉÅ)W¤ÉÏ\¢rJrÙR¹™S’Ëšœ’ÐäšdNI=üû*§$´8få”Ä2«8lå”T¯É) MîÉ”ë¿ä”ÔÃœ£rJrXÿþß|Ë)Éeä†>¥Å%*§¤ºï9%Õ9óä”Tçš“SR朖H„&ç#“X6ßœ’к^”SZç»rJb^œ»rJêa.\9%7×GNIh?唄.Öá·¸¿PZܯrJbÛá´^Òù$Eº8—$ý×£rJBã·äçÜ唄Æïûä”Ä6ËrŽÉ)M®É)¿îï› åÕ¹ªä”„w«œ’Ø:9%7gHNIl+‘ËQäWcRåW9Ÿ”S’ÛT }J+çB9%¹Íu ÃOÛ`ŸÎ) M®Iæ”TדSzêõ¹qº9·$ý˜o“Szºüœ; œ’,ƒhèô«Îýòs.rJê[¤œ’›+%§$ô|ä”Üœ)9%QÖ±­—´r~”Sº[i=•Se#ºÞ”S’e%}ÝjwN•rJ’SunÉÖõ¤œ’,cy䔄Öõªœ’({Ñù£œ’,‹è!]9%QVCîF“ûÅ䔄Öï/@;´î÷Ú‹²=Ou#=9%¡5ÞRNIíÌ7È)É2¡ÒwnÉ)]õ~K~ÍŸwÉ>䔄Öý\9%YÆ´ÑégÎ_9%¡u~*§$´r”S’ÜíDÏ’œ­r*”Srs¸ä”„ÖóI9%Y–¥¿gNI”mœ’ÐÓ9&[Z¹CÊ) MÎIÃQÆë»üN¿—ßé÷ïòc?‰œ’(CÓçWNImÎÝQNIhrO¦ü<¾RNI–¹éý–üœÓ£œ’Ðä¤ò[ÜŸ5p‹²:=¯•S’evÎ%éÒ:þÊ) }ç’Ô*ŽØ¹$SúpŽÉ–žÎ%éÒú=´ÐKYà§sJ¢lðt.É”Ö|C9%¡5^SNIh]?Ê)‰²Äí’*­û‘rJ’S®è-­ëW7·LNI”Ej|¤œ’,“è)­û»rJ²¬Rï·äçÜ å”TïW‘SZÇK9%¡ù~‡üØß!§$Ê>•³¡œ’Ð:ÿ”SzZOéîÜ’-­ß‹œ’Ê~‰sJ*ûÎ)©Î½#§¤Ò×Á9%õd|@NIu.9%õàùFNIe=Ò9%õàùKN‰×WœSR}?%§¤ú|'§¤z~ANI]ÜÏÉ)©ï’SR)SR}þ“SRé‹àœ’J½¡sJ*}œSR§¿¿rJ*\°sJêpNŠrJ*ûÝÎ)©ä:§¤r}8§¤Rÿ휒J5ç”Tú€9§¤ö÷œ’J.¢sJ*ëmÎ)©æŠÉ)©ôIrNIeÿÙ9%µéürNIe?Ë9%µÙÚå”Túô8§¤:gƒœ’Zk¢œ’Êõ園J¥sJ*ã ç”ÔBn9%•ëÍ9%šfÞ9%•ýç”Tr:SâýUç”TêœSR¨—qN‰×ÏœSR¸SRØ¿rNIáù✒âÜrJ õ'Î))¬W:§¤œP¹ä””Ó9 Ê))ç{NI1MNI9;¢œ’r‹CNI9ü~Ê))‡ßO9%…ç•sJÊáïwÚÜå”rhSRç¾(§ÄûÏÎ)qn±sJÊr‡rJÊr®†rJ ë÷Î)ñþµsJÊ#¢œ×+:§¤ÌW.I•Ö÷%§¤°žëœ’bÀšœ’âœrJŠs È))Ó¹!Ê))ÌלSR†ß_9%w®9%Ź=ä”8—Ù9%eøûöS9%Å÷rJ `šsJ }SRè+蜒â\ rJ óEç””þÊ!ÁOÄ99%…œ=ç”ê…SRšsG”SRàUœSâ\iç”Æ›Î))ÎÁ §¤øþDNÉ‹@NI¡„sJŠïWä”x}Ø9%…¾bÎ))ÎÕ §¤°þ霒;Wœçˆ9§¤°ÿ휒BΠsJ 9yÎ))Îé §Ä¹ÙÎ))Ôw:§¤Ð·À9%ŹSä”ö“œSâõmç”ún9§¤0žvNIñý‘œ’B½‘sJŠsp”S²™¾S²ê¢”’;B!%{;%3JöæÖ¦ˆ’M‚% %{¿”8/”|’½ý1¬ªÓHdE˜IVlzÉŸl¢ê‰&Ù'W„’I¶ƒLL²;¦\’íÕቀût*‰CL %ÙdÜ’I²ZI²ÙÉ$‘d;0K$›¼AòH6e¹Ä‘l§Ÿ)dû&®0’Mï²HöÁï¬(’}89eaÕ7RVý‘C²ã¤’}8eåÀŠ¯pbÅWÈ ’;2C$ÛO%l i Ùˉ!…@ Åù(~d/Ž‚ÒG6Eêaîð–Ü>²¸C>²"|Ĺ1„óìðª›><èðg2> æð‘鈅Lnü„·êð?†™þ‚Vº4™Îb9±Ò#Šð‘éH”MbH+H%†èy}‡ÜY$ )Î"Qbˆ¾/á#d;|äÎQø•¯ðÐ;|D÷©WøHE¾…ÄE¤úy•˜aŠÿ,8=5Í‚³” ¾˜ùÂ맻YðÅ8| n±à‹*FXðE3"XðUø«XðÉ” Ü+Ä°àsò¾bÁ'ü,¸ËK`Á'£eXp7%‚ç >Ý^`Á( >ÆM{‡•×aÁíÄ`Á”&,x§Y ,x'»¼sÚÂwV`Á;A¡°à¾¼óøo¤HÁ‚76›aÁÛÒ=Üg°à&•`Á[Óu ÞÈ/„w\*,x=ùÇbÁëÒS ÜÙ_°àžÂÁ‚WXðJ,xe¾ ^¶î°à….°àeéd€/SÜC9XðBZXð ^ÈÏ ³WñÜSÝ5Hƒ Þ¦-<¦ÖíÅ‚ÇÌ<ŠXðœø¿Xð\7Hnþ”UÑ#OOÂ\µèfÁsÑãÅ‚çšIû0 žK.b»‹zLܬtQ ³­‚~rÉ(k×Å‚ç’ÓF‡ßÁÚ1,x,q‰m Kbb/Ä‚ß=$`Á“Õ8ÑégVG,x,Š  Þ½— K’bÄ‚'kñ`Á³„Yïð{±í¹©K²bÄ‚wÂgÌ‚÷e–JE}¹§°Xp– ?Í‚÷›Å KÜbÅ‚ç’¹Ùðè11™ËÁ‚Ç’¼Ø?±à±ä/VOE˱E Ï+<¶Änˆ- Xê&¿+!¼³ZbÁs Åìwø¹Ö <¶lô{‹-±\bÁ³ÃF§= `Á»{ˆÁ‚wgb‚Çìz(’%x°à±å†ÎQQ²':üú²ÎEᛀ-Åa6U /Q,xh±SbÁÛvk±àÍ=‘`Á›c“`Á£d ¶='Qⶭ×ñª}‡’9]obÁ£ÄnZ§Ÿï§bÁÛI¦,xÖº‹½nòóýB,x”êz %‰§ü»üœu!_²àÙ¢¢—jÑÅŠoî Z,¢Xð¨E×ù-T[®û¿XðfÖ<¹‚vO ±ãÛ=5”=$<4,vQj•`ÁCëy%x~‹ÏZõ‰>¤U‹.ѱw{N³ÙE~fÕÅ‚‡.¼ž,‚‡»&¤§Ùï*­ï+¼Þ,­Xðæ™ýîÒ:_Å‚Ç0Q׳Xð¬½?ÐSº?XðvŠîò#[¼:¼º‡,x]ãÏa°Ùï.­ëCcÖæ‹U_ò3»+<‡Ý½U‹Ï÷?äw³Ü‡üš¿Ï)¿fÖý”ßͶç@9´²Ä‚‡®Ö±·¼B…=­§´Ø<±àu²þ ZϱàÙsHlw²à¡a­•Ž<݃\,xÖö‹îòóù ¼N³ZbÁC¼:+¼z}<§u }¯žF°àYû_ÑSZç‡Xð˜FŠE Z÷±à9í4ë]UëÿdÁë„Ý€Ïi¬Þ/¡ÈÐ|ÞdÁo6<§Å,xfÇÅ‚·› Þ†Ùw±àÍ=raÁ›YYXðF+³àëÙ,¸×/Í‚7²ñÌ‚7³š°à­¿Øðô3« ÞšßO,xk~?±àý³àëÝ,xsÏyXðÆóÑ,x£¡‚YðVÍz‹odU›oÕl·Xðææ°à7[ Þ̎‚7ö/Ì‚7³À°à­À¶Á‚kÚýy³àõ³à­ÀÁ‚7z˜™ofÉ`Á+Ï_³à7› ^Ù?1 ^Yß4 îl³àÕl>,xÝfχýÔS¼º5,x¥RÕ,x=aó`ÁÝ#Ñ,x5ë ^O¿ÿa?Þÿ°ŸØXðêìXðÊþ‡Yðzøû‹¯¬,øÍÁ‚Wسà•ý³à•ñ€Yðêû,¸³ûÌ‚×eÖ[,x]f¹Å‚Wߟ`Á+,YðJ)¨Ypg½˜wOH³àÕ,',xuÖ,x5k ^Ù¯5 ^'l,xfÓû5³áøÁ–‹¿Y$Xð:üyÄ‚W³¢°àuøóˆ¯Î ¯d“š¯¾ßÁ‚W³¥°àu¼³à•ýs³à•¶7fÁ+Ù@fÁ+YífÁ+ã}³àÞŸ0 ^Í‚WgmÀ‚WسàfŸÌ‚Wê)Ì‚×Æõ ^¿,¸ëEÌ‚›2 ^o6þ°ŸØ9XðÚ`KaÁýh¼šE„¯ÕŸO,x­f“Å‚»^Å,¸K Í‚Wg'À‚{Æ,xe¾b¼²ße¼:k¼VÎ7XðjÖ¼³ÚbÁ«ïÇ°à•ñšYðZxÀ‚k™úófÁk1«½ì§ç,x%Ò,x-üž°àµð¼‡wýŽYðâû7,xÙfÓÅ‚›í2 ^|?‡/ÔÓ˜/›û ,xa|h¼8Û¼0^4 ^6÷Xðbö¼8›¼œZ6 ^Îw¼f¼œfˇýô<‚/dç›wV³àfÉÌ‚—“ë ¼œ/Ö?Øx±à…jO³àåðç ^~±àfÏÌ‚—ß_,xñó¼0Ÿ4 ^³ÐÅ~°ÙÕ~ºŸÂ‚ÖëÍ‚g«À‚ö[Ì‚—e–Z,xñóÜ,›YðâlXðµ`ÜÙúfÁ‹³$`Á ëÉfÁËò÷YöÓù ^–¿Ïa?¾XðB¯ ³àerý‚—iÖ\,xa=Ò,¸Y9³àe2þ‡/~¾Á‚²ãÌ‚êõÌ‚gÀ‚»ÞÙ,x™f£›ýt½À‚;;Ì,xf§Å‚ø³àîM`¼ ¾,x¡ªYðB¯³àe0Ÿ‚/Î*‚wO`³à…l<³àåfãûÁ’öSö,x¡!Ypg¡™/t™3 ^<߀/¬§™7ëgܽÌ‚—Î÷…/ýņã§ñ$,x!»Î,xéfÇ»ýºÙoü4ß„7+h¼tŽ/,x†0 ^šÙk±à…ý*³àÅÏsXðâ,(Xðâù,xaýÃ,¸YC³à¥ùûŸöãû‹/ÔÛ˜/Κ‚/žOÁ‚ÖÍ‚—Š ^ÜÓ¼¥a¼Ð+Ä,xa¼`¼ÜìµXðRÄ`ÁïžÐ°à¥šýîöS?dXðBv§YðR͆Oû‰J‚¿ÙGXðRÍŽ/û ‡ƒ/Œ?Ì‚ö Í‚ÖSÍ‚²tÍ‚—j¶],xa|büf'aÁKñï#¼~Xðb–¼°^{³àÅltµŸ˜-³àd=Ü,8ë»7 nÝ,8½þnÜ=µÍ‚߬ú°¬õ°ŸØ_³àŒ‡n¼˜5Ÿö+f¿ñƒuÏ—£AÁ7ÉšàûáßäöÂo¦Â`à7è) Ü…)@à7÷)|o#ω€o:ÀA€oµÀ7ù§ðß›’ ðï½MG7¬t‚ þÞìÃ~o†c ß{ëî ù}#¤¿79Spß7Q*ìÛ©äPß7`*èûî`.æ{ñW=œ«r ¾÷i þÀ >ýÀJ¤pïÍÚ{æì½ïÁzïÓ(}¢Þ7«*Ò{³8è}£«â¼÷ù†yß$«–€7 •@Þû4ÓÜ°ªF¸eݱ*ÀÊšnøî}Ïgõ¦;t÷ÝÏ]p÷v–ØîÍöh÷&é²{³¹ ؽ7®ûFf…uoR¡ ºo‚VP÷&#¦ûj…to'&ˆèÞ@"ÝûàwϽ)9çÞt߀æõi˜{†žVz|åÞ$³Bro6¹7¬·cHqS¹lŒ{˜ƽ´Î`Œ{™ŸžXé. ÆÍ¢±1nò²Œq³dcŒÛ˜/7|ƸMý‚q/ó⸠ƒq;8ŒÛL07mAq³SjŒ›&Ƹ'?7ÛLƸŒ›†PƸé'aŒ›-XcÜN«ãfÀnŒ›¬RcÜ ßq;ÙŒ›Á¼1nÖ¦ŒqOóâV§©nYéÆ=yîqS–dŒ›UycÜlãfN`Œ{Ô. Éó‰qSÀjŒ›ý7cÜ7å\±ÒuÆM1›1nj¥Œq3µ0ÆÍNž1î‰6ÆÝLu˪½cÜÕܶ¬t•Ý·®²ãÖ½1îbP[V: `ܬßã6] Æ= þÁ¸ [ƒqn}`Ü7{]`¯u|Á¸oÛ·ŽïqCfãÖ%ycÜ€ÚƸõì~aÜæ¶e¥Ãýo1îzµ¨kãn”E‚q;ÑZwß4HÆS§Z㎙«ziçRmLì T÷e•Í¦ê‡1îX&Ê„0î>)oÆ‹€ùãŽ5Í ·Vµa܉êå%ÆÝ 'Œ;ÖïÕZ;1îØn˜/Œ»Wr„qw¯z ãÎ0È°*=­㎵³ ãνñaŒ»ù¹,Œ;·5c܉g%ôœË¶¹‰{|ãÎ=c¨î°rí¨0îÜ_Ƹ›+3…q'Ø´?ŒqGù€zxçzI¶ØÈ×ærLvÐèƸ2Êœ‹IQº‘W½0î¬ êŽ´ïŹ*Œ;ëXʇ1î(ƒQ[îçF•MZ ãÎ"þVsAfç&T›ìý ãΊ¥¦›¬Ø¹ÆõTywÆœLþ51î¬îªƸ£8l¼0îl°€L«ÕV~£)+v¤„qGÝݨVzmaÜY¸?ŒqSDhŒ;kLJ1î,aÌמ²¢í©‰Q ™'’†® ‚ägNŒ;Ê7åœãú&óÓwV‹èÑã†(Œ»‰ý4Æ-*:ýª±æ&¿â–ÖÉÇFõíý÷ð«§_ŸõÍÛR`ÜÍÛD`ÜY]¼Ðé7^˜wúkƺX§_36¾äGYëyínÙ)Œ»Ê À¸›#¾À¸£Z\Ø€0îÐÂ>´^Û ÛT`Ü­°ÆÕí|ß\¿nŽ|ãÎÈ|cÛc$– lAwó4Œ»Ý-6…q7GqW'ó€qWÏQÀ¸ëÝRSwh}~aÜÕã80îê± ûQÕ`0î¤+„MOù›ÆX€°ë%¿æ–âK~ÌAwh/aÜYößÑKZX0î»ÌŒ;ÊøcÞ±Mzž~ÿÜß2þiÛ®ç2Vœõ(UwÉOcÜQ–·ø>¥õù„qg™þF/i¸£ Ì»ÉÏç«0î(Óîò3†¢ ±žn±*Œ;ËîOô(Œ;Êêù¼SëÛ-³§"Öß[zgäüã®7öªGÒ^Ò‡ü˜–0îÐÂVTeñ:_„qgÙ¼±îØ&=†[€g=gFÌwtl»ݘubÜ¡§±î!]w=š±ä*¿¶.ŒïÓw–Á/túùzR=VFÊ cîŠ0ß´ÜÆe驪"Ñ)sã®ëuŸ”¹Ûn*c§÷”óSêã2RÞz¬W¤<÷)Æ}Gʃqg»üOù1ãÎ2öÆZÇWw”¥«E¼0î»lŒ»jDÿiŒ;iÒŠ>¥…) ãÎ2õ½T†.ŒKwènl{Hƒ}7ùî_¸CƒMwE˜ß-¾‡"Ìo z(Âœh20F>‰~CŸòc1Œ;ËÐzHOcݧ´Ž‡0î(#×õ+Œ;ôz`Ü¡…5 ã®Ó-×…q'½,¿Ü¯ ¦žüLhZTçþj”‘Öƒ2óÆe梫ü:ÇKwFÐK7ùub„q×ÖÜäDz<w–•wôz”•ƒqgYùDéa¬û”ÖýYw|ìm¬{Ió~K~ÆÞ…qßõ`ÜYF.,ûP$:AS`Üù³>0î:ÜrVw–‘Wô©2qϸCóy³Þ7³~aÜyØzHcݧt5¶Ý(ßè% öÝäçØaÜY6î¿Ÿ²q0î<zQ6nl»P6>у²ñŠ>¥…- ãÎ˨£×~EÞƒqÇe¨û£0îЇ1ïSZX«0î;Œ;´ÎgaÜyÙôžÆ¼·ÊÂÁÞãMËòäQâ6³iWÊÄuOiÝoÅ?åmJs•-®xpÜ‘ù`ÜY&nl{R&~¢7eâòïŠD÷ýIwèØv•žÖSZד”¡õý„qÇm{[Ò`ãK~§[l/ùùù.Œ;#÷¥ù¹Å°0îÐøòc›Œ;t·Þ*§Åwò|ñ˜ÚÖ‡´¾¯0îÐóq×ÎbwFô »®òóýQw– [nòc‰ Œ;ËÆ;zS6®÷ïöÓóUw>¦å?äçç£0î,7Ö½eã`ܵcæS~7Ö½äçû­0îF ô¦l\¯?ä×½öÓñÆÃO¸Ck¼+Œ;ËÈw½c„q‡ÖxDw–‘Wô¤ŒÜ˜÷~”‘ƒqç°êq×;Iw½c „q‡Öù!Œ;ËÈ…EwùùúÆ];‘©`ÜYV^Г²òÆL|ÚL;ù¾»¬Œ;ËÊzRVþÀ¸C'Æí–Ƹ›¯G0îæX 0îv2>ãn§1paÜnY`Œ»±ÓcŒ»~gŒ»¹¥"w3& ÆÝcϸÏcÜë×w;ü~Í~Â>À¸ؾ1î¶À À¸ãcÜm½Z~oéil»S†^Ñø/û cãn”uãnÆDÀ¸Ût‹naÜëß÷Ý"Œ»M·(Æݦ±qaÜ.K7ÆÝŒñq·aÌZ·×KŒq·aì[wnÉ]í×mã'l Œ»¹%9wë~aÜÍwë~aÜ­“ÆýlñŸZ,ƒq7ÆwƸ[wËraܲLcÜ͘ ·ËØq7ƃƸ›±0îæ–¼`Ü2LcÜ­¹Å·0n—µãnÆÒÁ¸±HƸó;cÜwËJ0îÆxÓ·ËÜq·jŒºÙOç#ws‹T0îVüy„q·âÏ#Œ»aÜn9aŒ»0R0n· 0ÆÝî–ÛË~´4_ö+Ö›2x}~aÜÕ-[Á¸+ã cÜ.‹7Æ]Õ€qW·4㮌GŒq×Íý ŒÛeòƸ«±0îÊ|Ë÷ÝŒ»²jjŒ»ž´´㮧[f7ûéóq×Ó-Ä»ýø|Ã~´ìö+Ö[eí´ÔÆ]+Æ]cÕ¸«ï¯`ÜõxaÝøé|㮾߂q»ÌÞw=¸€qWßÁ¸ëñjá²ÓPqWßÁ¸«[.ƒq»e‡1nÇØãv¾1îJ>³17ûéó‚qW2™q×å–ܸëäøƒq×i \wnÑ-Œ»ã®w‹ði?ZŒ/û'Æ]Ùk4Æ]ÝRŒ»seŒ»N·<Æí2~cÜÕX!wþ½…q«úçóƸ]ÖoŒ»·ÌÆ}· ã®ÆÂÁ¸]æoŒ»cÓÍ~Š㮃û7·Ëþq»…‰1îêX0îj¬ŒÛ€1îJ¢1nUG}Þwíœï`ܵs¿ã®Ý-É—ýt<À¸+-…Œq×k?íÇ÷Æ]ï–縫ŸO`ܵùû㮎¡ã®´X3Æ]ɃqW·¬ã®ÍØuµ-«›ýÀ¨›ý„!‚q{?ÂwmÜ¿Á¸ãdŒÛ-[Œq‹6û¼1ncƸ«Ÿ`ÜÌËw­þ~Ë~ã‰q×êïwد?1nc Ƹ«[¨ƒq×jì[w56 ÆmLÁ·[Æãv̧1îêç)w½1maܵ¸euµx³ß4Öv·ß0Ö-³»ýÚã®ÆVÁ¸«ŸÇ`ܵpÿã®Ì?Œq·,ã.Û-»…q‹Nü¼1î²9Á¸ïÑ`Üeƒ]ƒqöÛŒq—mŒ]wq‹d0îâ˜0îB ¦1î²Yû1WûÕ'ÆíVcÜ¢1?oŒÛ-uŒqÀ¸‹±\0îÂþ„1îVgŒÛûsƸ‹Ç `Üåt ði?ÅP€q—“ç·[öã6vaŒ»Ü-ÊûÝX7~ºƒq»Å1nǤã.'Ïs0îâùw¹1baÜÅ?w9Œu ã.`ÆƸ %ƸËaì»ÙL»ÙïnáŸæ`Ü…õKcÜ…9cÜ…ØncÜÅóI0îBYœ1ncƸËaÌ|Ùl[·±cÜ…ê7cÜnadŒ»x<Æ]¨x3Æ]–±raÜÆBŒq»å‘1î²^ØvCW4~`ÖÕ~´À®öëþ;~ˆÁ¸‹[¦q»…’1îâ–•`ÜÅ$wYn)>ì'쌻ÐÃw™Æ®…qæ×ƸݒÉw1F Æ]¦±öÃ~ÂòÀ¸µ ÿycÜeºÅùi¿i¬;ös ±:ƸÝâÉw¡ÔÅw¹[V ã.¬ŒûÆVÀ¸‹±M0îÂøÏ÷±€q»e”1îB•˜1îB ½1îBa˜1î2Œ™ ã.Ô‚ã.Ã-±§ý„€qb¾qc¢`Ü7ÆíUƸ 1Ƹo,Œ»+ã.Äžã.ø0î2Œ½ ã.ÄÆã.ÆPÁ¸‹[â‚qbŽŒq»%–1î28Á¸o¬ŒÛ5UƸ ãYcÜ7fÆ]:XwaýÕwéÆćýh‰=íGËíi?0êi¿õĸo,ŒÛ-ºŒq—îä‡ýôûƒq»…—1îÒùýÁ¸ciŒ»³ã¾10îÒÝ"[wéïwqKp0nןã¾10îÒÝ[·cÐqßØwi0îBÛcÜÅ-­Á¸ ãucÜ7Æ]ˆ 2Æ]Ú;Æ­ÛæçqbòŒq—f¬ú°ß|bÜ…ú cÜ7FÆí˜PcÜÅX1wq‹f0îâ§`ÜÆŒŒq—fÆí–hƸ ëaƸ3oŒÛ-ÓŒqÇ@€q—fì[w¹1faÜŽ95Æ]Æí–kƸ‹[ƒq[2Æ]ˆñ6Æ­eèÏã.¬ ŒÛ-ÛŒqk2Æ]ª±óÃ~:~`Ü…X2cÜÅ1`Üî¼bŒ»0¿1Æ]nìZwa¾cŒ»T·´®öË®öÓóŒ»8&Œ»T·oöÓñã66eŒ»8VŒÛ-çŒq—ê–߸K1F-ŒÛX•1nm|Þw!ß·[Öãv=™1ncWƸK1æ~Øï­¥wa½óƸ ãcÜå…m´1ïSZÏ/cÜå…uãf\í§ãmŒ»û®ö£nöÓñ6ÆmŒÝwyµøÆOã cÜÆÜqî·Æ¸Ý2Ý·[ã.ná=í§ãoŒ»Û^öÓøÃwáú6Æ]^X÷å·7ÃQÜ›Õ` nSc0Ü{s.áÞ›SA÷ÞŽó'ØäéÂo›)ßÞ¤õAo1ÞÞÛlrà ôºa¥[¶ÈíMc ÀmhpÛn›¶½ïŽá+ ‚¶7“]˜í½¤O¬44±½#`Û…“ðÚ›uopí½9-Dk»á!°övvŒXmG=ƒjïýêâ=%ä–|pÚÛ1´7-ª ´ ¾ioÛa´ÍÁho¦ÞÚî: ½™ˆÃgïó ÏÞ'é%¢³·Ãgo69a³÷é6Û+ºdO¬tªÌÞ§{„/¬tÿ–íPÙ®^ÊÞÎÔ“mà${Ÿ¯nÜUòdoò á±Ý+Û84ö>Ýغb5,ö>ÝF»biÝ°¢iuà î¸cõÄ°7©”PØFù€°7‹ 0Øût»î‰ÄöĪЖ•òÄ_ïÓ8÷ª˜¶–•Î+Á×Æa¯ÝýôÚT äõ¦‰1ൠŒá®7õQ`×ûpÇë¼ïÞÌ  ë»‘¦˜ë!r½Ó+q4‚íý¹V7N-+aS¢­ïžœšNlM`­÷E%ÔúÆEZo‚0­oQœõf}Ìz𳢬÷aHûÀj˜¹–•(9!ÖN|‡°Þ‡›s'”ºóÜy¹IF´oÒ7 «o°Qpõ¦ˆ¶úæ…VïÃ]²+VÍ൬š9jY‰6V½Ù΂ªÞ‡!莕ø;1Õ›µ êÍÖDõfe zS O½©Ã§ÞÇ‹ž–•áS/÷õLMMƒaj·B¦6_ L½8c©[S“2l˜Úô%0õriÁÔ†1©—Y㊕N``ê»wÅJ\0õr§ê†•0@`jµ S³h˜Ú '0õ2¶<°ŸXÍ'Lm̘š‰†©ì-0õ2-~`õìž½‘ S/³ä'V£"^FËS»‹,05Ù,†©MŒS³äf˜z½èiY‰ã¦6O L½ Ô©—S“ùb˜z¹ÝvÇ òºcUMOËJ'?05ëz†©  S/xa`j£©ÀÔËÔöª—ÆÊluX\¦¦ Žajs¬ÀÔìÞ¦6Ö LMí©ajS®ÀÔó­9öž“+V§éi¬*RV¢Å©Ý­˜ÚH,05%A†©§ûZw[‰€X-³Õ²Ò˜Úü,0õ|ï‰=M@/[™­–@ô½¾¬æ¦fÔ0µÙ[`j6¹ SŦžï0µÉ\`j SÔ¦žF­+Vý Sk¦¦öÜ0õtíŽU7=UAÊ L{`¥g 0µ™ß¦¦‘µaêfÔ«w˜¦Û0u5.-«» ¶¬ªQkY颻aêúSëtÃÔÅlµXc]ƒ7L]LOÃäñ„‹ S+¡˜úf«YcqÊͬñB’rL}“ÈÝV‰•Àä•.I`ê›SžXi¸Lml˜šJÃÔ¦˜©i‡`˜ÚPó SÓ^Û0µ.ئÖ{ÃÔt7L­¡Ú SC@¦^¦§Çˆ6L½Þajøè¦[}ÃÔ)«iÔú|§§©ò+L}]Þ±‹=±Ïë@þI˜º¹Ç­`jJ4 SGEOŽpSGA–èé¼Íd}[YÁÔQÞç&ØaU˜ú ¦n…*ÁÔÍÙ4‚©ïVA‚©³·|¦®›às‘bõdQ0u=¹dSG•µXã\–ˆ"îüýSG¸eXìÅ ¦¾;¨¦Î‚ùüǹ‚™õ÷/˜:Û‘ìÃÔAœÐÓaµf ¦NH*Éë,†Iª}¦ÎÎóÃ0u€yú ¦Nc~¦Nþ(?dî«Ýx‘0Á€DòôL=* §Ãj2ÔOx£>‚©CVØê´¢°\0ur9éœk Iß¼`ê¤l’N˜ºÞt7$3Ã_Ãj¼(˜:¤šBçÊë ¼¦NLi¦N|åü0LôIž„‚©N醩ëà1-˜: «öa˜:É’ýa˜º ™t³Oœ ¶zIê¯KV„ƒ ¦Î^õÃ0u0¦§›dž*š·%Á‘=eE_SÍé“Ï8? S'Ž=Ý$óiÉ*a‹Lp…ul~öÃ=°‹Ü ‹ ¦NfïS'Ó§×7ù-÷ˆnò3ì#˜:àzjwùM÷Ðîòãâ¦N˜áDéa¸ú”ÆÊbcvqC ~LpBE§ >0uÂú÷‡ü ‡ ¦NÓðtú¹¨`ê„ 6:6+{õû%LðÀ¦NX@0o®’&#jxzHWÃÖ™aMñ 05Ìé§aê,þ×ßS·mØY0u3<LÝ ‹S7ÃbÀÔÍ=¼©Å†©™›†©ÛáÚ‚©›{S7R„ S7.GÃÔÍ0=0ucf˜º1×1LݘV¦v±½aêæž|ÀÔmÚO0u›öL}÷ˆ¦n7ì+˜úÕÃZ0usQ`ê6 3 ¦n†k€©ï“ÀÔÍp 0uëÀâÀÔÍp 0u3\LÝ ×S7Ã5ÀÔ­q½S»ØÝ0µ3Û S7zì¦nd¦nîÙL}÷¼¦nõ­'v³7ô xý S;£Ý0us]`j«¦n…û0u3\LíâtÃÔÍp90u+î±Ýì§÷¦®Ûð°`êÊ‚aêêë ˜ºR¬f˜ºæ¦®Û°ó°Ÿ`"`jg²¦®¬Z¦v&»ajg²¦v&»ajg²¦v&»ajg²¦v&»aêêžÀÔõðï-˜ÚÅㆩëážÑ‚©+K|†©«á{`êzУ˜º\oÀÔu&L])Ž2L]Yb2L]× ®^‡ëó ûñy†ýº5~:ÿ€©+Z†©ë2Ì-˜º²~`˜ºNÃã‚©+áV†©«{2S× ÜLíâoÃÔuú÷LíÌvÃÔÕÏG`êÊÀÐ0u½{> ¦¾ÃG€©ë [ ¦®÷¦v†»aêêç-0u¥¸Æ0uîAÝí\Üí§ã LíânÃÔw 0uíþ¼‚©+±2†©+ƒ,ÃÔÕáÀÔwZ`êJqŠaêꞪÀÔÕ=Ù©+=  S;óÝ0u%3Ö0uõø˜º‚d˜º6®_`jgÀ¦®{¦®w¦®íÕó?àáf?zX7ûéú¦®7\ÜíW OŠµô@¶>)ÞÖëSWÃðÀÔÎŒ7L]Ý#˜ºV÷à^ö†§ñ놫ñÓñ¦®+¦®†í©kåz¦®Õ=»SWÚÀÔµ¼àêI±vGoŠµõïSWŠ S;sÞ0uu]`ê»G10ue3ß0uuOx`êê0`êZ sûéûS×bøyÚOǘÚõ†©Ë6l-˜º°cn˜ºøùL]n¸û°ðùi¿õ„© ³ ÃÔeûû ¦.Û=½S¶¬ S‡»S?/©qo˜º°×l˜ºe˜úÕóY0u1Ü L]N®W`jgà¦.§álÁÔå4ü=ìGîa?ÀÔ…ž¯†©ËiøzÙOáÀÔåäþL]NÃä‡ýt~S?Ï©Ëéßç´_õß7ÅÚú¼‚©Ëéžß‚© ;¡†©Ëñ‚§'ÅÛ†­7Zð¯`js¦.¬¦.ç0µ¦QŸ7L]fL]ÃÅÝ~ô°öÓõL]Ø44L]<ߦvq·ajw¦.‡áëe¿ê¿ã§ß˜Ú™þ†© Ût†© I§†© °›aê²ÜÃ[0µ3ÿ SßÅÞÀÔ…M3ÃÔ冕‹ýS÷l¦.7ÌÜì'x ˜º¸ç0u¹açn?Á¦ÀÔeS»‡€aj‡‰¦.†í€© [H†©‹á;`jƒ¦.†ñ€©ËtÏjÁÔÅp0uqJ`êB˜“aêÂxÍ0µ‹Ã S»8Ü0u™îù,˜ºNb˜º0¾3L]&p0ua[Ä0uqO@`j‹¦vOÃÔÅ=›©Ë4ŒÝí× Oã'x˜ÚÅㆩË|õÀƯ®Æï ¦.óÕ?ÁPÀÔ.&7L]Xê7Líž †©Ë0Œ-˜ºÜpº`êâÅÀÔ..7LíârÃÔÅ=j©Vg˜º¸90u1ìLíbsÃÔÅp#0uaük˜º ÃÅÝ~‚©Ý£Á0u1<Líž †©‹áH`ê28^ÀÔ…ñ´aj÷t0L]G2L톩 =ä SÕÀÔ¥sü€©KçøS—îžÜ‚©‹{üSÂò S»XÝ0u1œ L]Ϧ.ã LíâuÃÔ.^7L]ÜS˜º8<˜ºtà9`j³¦v1»aêâ°`êÒ뀩‹aP`j·¦.'¦v ÃÔ…° ÃÔÅ=5©]ìn˜ºt÷à>íü-˜Ú=- SæÀÔ.~7L]ºafÁÔîya˜º4Â1€©] o˜ºj˜Ú=1 S—öÞ»¦f˜ÚÅñ†©KsOêa¿Ãp5~wlüÞ`êbø˜ºc˜º4ÃÖË~ÀâË~ºÞ©ÝƒÃ0u!x×0µ‹é S—fX[0uq80uiœÀÔ.®7L]îÖ‚© ó7ÃÔ¥–®ö¼ Líb{ÃÔ¥½ÃÔîùa˜ÚÅ÷†©ÝÄ0u1Ì Líž †©]Œo˜ºö¦.ø˜Z…mŸ7Líâ|ÃÔ¥ËS»§ˆajë¦v±¾aêbx˜º¸g<0u!œÏ0u1\ L]XŸ4L]ª{T ¦v1¿aêÂ|Ö0µÃL S»¸ß0µ‹û S—êžÕÍ~:¿€©]ìo˜ºÜ0ó°ŸÆÀÔ¥ÆL]nØyÚOç0u©œoÀÔ¥r¾S÷̦vÏÃÔ…ý ÃÔî¡b˜ºT`Z`êâð`êÂüÜ0µaÃÔî¹b˜Ú‰Ó†© ¦.ø˜ºÃÉ‚©Ë g ¦6L`˜Ú=[ S—Þîö£‡u·pó°ßù„©Ka¼LmØÀ0u¹áïi?Ýï S;lÅ0õ ‡ö£‡öa¿eØ?¯†© ç«ajÖ'n˜ú†Ë©Ë ¶>Ñ‚©öb˜ºpþ¦.Ü SN7L] '7ûõ7˜˜á†©‹áån?zFwûé|6L] 7ûѳ{ÚOãaÃÔ¬ÿß05á[7L] C/ûÑSû°_5<°ôa?߆©Ù_¸aj÷Œ6LmØÞ05p0õf9–Ú-u@©ÍJ@Roö.©·9}qÔF'À¨ÝŠz;tGõ6Ó/†ÚÝy@¨ V@PoÿªNÙ›G¼*ˆ¶ã{TÇeÎzzo÷°^X-³Ô²m>°ÒÉ/rz³8½·¹ç+Í„…MoRÒ ¦ eM»IÌôÞ/Dºõ£!bÚ-„¦÷~ñÓ²ÿ­X©ð^´ôÞî™Ý°¢åtÇJuøB¥7ÉÒ7Ð!buosØ+a^¤·›EŠ’ÞÛöÄŠVÝ «fd+9X‰þÐâËMh-È}ŽÀ£oDtô&l8Ú]`£÷vGí<ßö6¹œWíÞ€œ£oTDk¼ÛÝ-…Eo77}“#‚¢ÝP &úI„Dß ‰ˆèÍ!@ôÍ•ˆ‡¾¹mìI4ô™†vo&XèM4(ôMˆ„vç&@è}Â%Šƒ¾!aЛÔ)(è}ºÎ‚¥›I½ÝÉSô¨ˆ€¾Л%Møç›Xþ|+¢Ÿ7áÃÀÏ7À"öùX„>oÔC>ß<‹Àg·—‚{Þ'°ç}šBXé¢ô¼O3É«a$+9/[€–U7ß,+]ƒÂoF´³ûX;ßhŒXçMT)¨³»\A:ïó>Ÿ’æšÛ«˜ó ΈrÞÔa9ßç}r… qÞ$z@8»€ó&O ¾ù¦l„7ß”èæ}ºGôÀJ¬Øæ}rÁ mÞ§Éë‰ý¶Vº`Å5ßHŽ°æÉÕ¼®_AÍ7¡#¦Ùm¼@šo`GDó ìhv“/xæÍ78óvrÑÌÆy€™óÀ2o¢L@™õÜù4ɼ žd6ìÇlØŒy»Y­(æMH³Ùæ}Iž¶ªH¬ 4Ëêæ•eE×é…Õ“^6(¼¼Yž‡]67ºlnryó6nŒnÙØò¦0jÙ-Ï€–·[ñŠY6d²ì†hËfŽ–ÍÁ+»]¸²$he#HÀÊn¦«¼nB•÷aÒzb¥…@å}p£§l^ LÙ¼”òf_HÙøŒ²ñ%å}˜Ø>±Ò}C€²á&ødÃMàÉ› èd³NÀÉ›Žo°Éûxu–U}Éû0\±Ò]E\²I(°äÍÆ T²Á( d1zŸf’ÍI$ïÃñÀª@–<ñÄJ ŸpdSTÐÈ›ð`dCU°Èûxë(í.u&‘×;‰ìvÍÈ W&‘—9e‘È˽©E"C`™D^îŒ\l%·bE芕îHÈì™D¦àÒ$2º&‘— èn«†ÄJc`ul¤¬tƒ‚D^Æ¥'V4ožXAO/[ $VF±ªH¬ž$ò2j}b¥± $òâö‰|÷À‰LùIdvÃL"/öÅV‚‹«­ RVÓœ²¬¦ÑcYAæ6¬hÝܱš“±2˜Œ•>Æ°UEbeôXV4žXi؉¼Ü{a¥{$2›y&‘éQhÙíÀ!‘—»KŸ¶z’ÈÐj&‘·>Hdà5“ÈNˆ‚DvŸqHäÅ™ ,“ÈËpqµ•@Ýf«‚”•nŒÈn`‰¼ÞIdçRA"¯˜Œ•>Õ´UGbÕX=ƪ eUŸ$2ùï&‘¥a‰:“ÈÔG›DvËuHdªÑL";9 ™½S“Èî ‘Ý Ùü$2û¬&‘ãA"ǃD^nÝmÕXLÆJŸJ$ò‚D6»‰lvyºÃ²Hd£|ȉ•>äa«ŽÄª!±Ò‡m5Çzñ•Èæ+!‘§±å ]+ÜÙ¸%$ò-+VýI"Æ„DvOUHd³™Èf3!‘Ýqù!± ç;züçHä_ýáoÿï?~û‡o±Ë[>žÿù‡ßþË·’ÿëùŸ*çóÿ~û»¿ÿ(ÿ eÌþ1NñX#džuæìæ¿ÿîÛǯ¿åÊôëßü‰âH\çúï?bRZnýùñ|ôy½CLmâ?¯G¾­_8äz½Pš^3Ï@ªk€Õ½¾¿°çjéë…Ò¼ðµ·ö …‚½^HÃ[^øGPn¿°$óöz¡t¾ð×?ÿ‘_7~ó_ýõú¨?ÿãGÍã\îÿŽÉdüÜ+'¾?ÿþã/þá/?~þçoÿþç°üÕ_7½ø|­Z`ï,ÑŠë¶ë¥õí¥ö}c’s}»Çûþoì}ÿÄ‹™þxñø©|Ç{7N‘ûåßñÞjïô'_üçßYUn?úâõåÅ¿øPÅXáB=UûŽ÷UÃ> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F6 /BaseFont /Symbol >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000026582 00000 n 0000026665 00000 n 0000026788 00000 n 0000026821 00000 n 0000000212 00000 n 0000000292 00000 n 0000029516 00000 n 0000029773 00000 n 0000029870 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 29948 %%EOF metafor/man/figures/selmodel-stepfun-fixed.png0000644000176200001440000005115214465413204021226 0ustar liggesusers‰PNG  IHDRèèz}$ÖPLTEÿÿÿ"—æßSkÌÌÌÐÐÐwwwoooaÐOììì÷÷÷GGGSSSQQQOOO»»»DDDÏÏÏ^^^&&&äääJJJ «««ØØØüüüúúúCCC 333[[[“““ûûûccc555çççÄãø777;;;£££$$$sssîîîïïïâââXXXþþþ™™™WWW‹‹‹IIIÙÙÙ………§§§???gggððð@@@\\\ð¯º===ŠŠŠåu‰þÿÿùùù›››õõõººº"""íííÚrÀÀÀÖÖÖµé­|||‚‚‚###ŸŸŸÜÜÜÞÞÞ+++rrrUUU³³³‡‡‡fffuuu˜ÎóvÖf···TTTÀì¹N¬ëËËË///kkkÃÃÃAAAÛÛÛbbbLLLÕÕÕ¯¯¯öÑØêêꈈˆ{{{ÓÓÓÎÎÎhhh(((åååéééËòZ²ìôôô)))…ÅñÖóÑÄÄÄf·îÝÝÝ---öööÈÈȼ¼¼111```±è¨æææýõö¬¬¬ïª¶•••ùÝáMMM¨¨¨———lll’’’ÜïûP­ë°°°‘Þ…¦¦¦p¼ï¹¹¹ƒƒƒàYp¿¿¿ttt*›çšÏôüïñúäè999¨åžÀáøð°»æwŠzÁð‰Ü|öÎÕÇÇÇêõý¶¶¶EEEñññpppŒŒŒ ã•—ዾ¾¾gÒUààà€€€õüôãj¢¢¢æøã“ÌóòºÄç|Žç‘W°ìmmmàöÜL«ë÷ÔÚퟬÒòÍÈåùÄñžÒõ鉚ñûïi¸îòòò²²²ñùþÓëúzzzÅÅÅþúû˜˜˜nnneee¥ä›‡Ûy¹ë±”߈øÙÞÙq÷üþùýøõÈÐ$˜æ>¤êËðÅôÃ̲Û÷lºîÌçùîúì|ÙmoÕ_úàåêžåq…옧Åî¾è’âaw.çßUmâ’öJœ IDATxÚìklÇÇÇ2æÂpg›ØõCŽ_øu26à&˜72D ƒ KŽÄÄ"ƒyÉ¢RTŒ!r‚„I¤æSy} ©­"µ)”æk¾·ªÔ/ÙÝ»›õù‚MêÛÛ›ÿO»œgæfç7ÿóÎî‚… „B!„B!„B!„B!„B!„B!„B!„BR‘MΫwä–NY¦77t÷H‚o|°-˜q­{ð-C”åÚËó=‘¯?ß·ÒÕ¯†²¶<)uITUë÷ÏIk ÚÌ¡ç”:ÆäΙ_ô–›84å7²?qœÖöÏö¨^ëÔ¾Y:í àôÛÜ hÐf =û!è÷äÎò_ôõHô*ÙjæªÐ|å mü©¬¬l‘”/7O´—ïåçMk¬–³¬¦»µ¸1í àôÛ~I4h3…žS?èÃøQˆ‘f\… ÷Á»r»³¸<îlæMùiL€›À>¹y tÍt˜K¢A›!ô샠/F“£@Žô[Y—?±Îxª†+Ùƒ>œ×\<_-Ácï®âà€» óBYK„(´N¥†ôB6ò„îcûÔî°[¾[Å‚cyÁ£„ˆ/ëšÑ¦Ý§tZ½o ¯åfû‹²õ®’ñUGî÷¯vŠõ;2Gb‡îêi“`Ð íéZ§4OÏ> ú3 Et£ö…ô|{T¹Yˆ yÖª+K rK›õrqX鮭ΉÑ]´$:Z!›ZÀ1üðB¾[sä9FE|Y}ÄšvM­ŽÞ7yE'WÿÎY”ÅJÆUi°_?yh‡®÷4I0h×2ù‚œýS™§g?ýðRtaá}+èrÔñlu¥õQ.dùèu9ruÂT´îÊ{Eتt£cõýWâ!2JŽœnŠ9²™ýz!‹Ç@}d ä«w;0W”E\Y׈5íšZ½o6#•–¾¦²„«d\U9î¾ x1Òo»ˆ~èzOÓ™ƒ¶}ò…ä•NežžýôÁz|žÄ:;èɱÈÞ‹Üý¥¨])Ä5Èá\TÉ⟢9[é¾­êž(QWX¨‹¬ôBÏ{w’Cr Þí¥ï†P_Ö5´¦µ  ÕÑûaâA†5ò†\­O®*›Í˜¢äÑŠÎÈÚÍ~íÐõž¦7 í;5æ}S™§g½År‰~Ü ú`‰°OÚ÷k…å! ü———7g•î!Gpã—½ÀµHÐõBƒÒƤOzõaôºÊHn»/ÒD›Ö&€VGï[Œìñ¾kP—ƒôÖ'WMºHcÑ]ïiº3å U"VL¹ˆyzögÐoH7f[ARž$;€;‘}u!¤1zïsTé¶\Cj ´> íÔ Y”Ö:E…èS«>ùn–µ^WÙjs_ŸZÓÚÐêè}sX0tBmæÊEÝÞúäª{¬s¶ø  ºÞÓ´&Ñ ‰£(n¯W?i§0OÏþ º<ò"t +èáØÇݽkí$D‡ä»@w¤ŽÔýX}¬Ö#øÑèζة»^ȦøÐÚ¹”§®•Êw;á «^6nèMk@«£÷Íæläù‹ _o}rÕ1û/qOýÐõž¦3 MÌkëNõæéÙŸAoÏ‚{þ¾½€yE-íøZ-Ô'`@­Âdñ3Ow¼«tO¨;#–¬öZeépW¸ EWlÍêÞÉ„¬ÓÛ®k|YmèMk@«£÷ͦúªuñV„ëßè­O®*òP±@ˆ=qúí¼‡vè¦L€„ƒ&CÈBp¥˜Ê<=û3èêìr‚þ è8}»ø\ˆ§@ÍuÖ ÇæÜV?ù#º—Z!¾µNƒNn{®ŠÝ`Eݹ*)'ôJ¸†5¾llèMëWcµ:zßlä'4–üs«<‹¬s•Œ«zøígY…#ý¶‹è‡nÊH4hBäÀ¹ožž}t9Ò¡ 'è¥kì%ÎCitsÚ 5©Aîì°^Šê.•CU\Œ:ÚÕUQ`\/¹}úpk|ÙØЛÖ'€VGï›ÍöBç­®’qUGêìr·E¤ßvýÐM™‰Mˆïá1=tc&@‚A“§Èì5ožž !„B!„B!„B!„B!„B!„B!„B!„Ð3Ì:ãtNç³q™m6̧s:÷˜-<©™uæΧs:§tJ§s:§tJ§s:§tJ§s3_ÌX¦ýmûº‚àÞuÕ”žÖÒéÜ<ç#Ë¡KoEù¼:ë÷ÄRzÚJ§sóœÿªºô~ÔQšƒÝ”ž¾ÒéÜ<ç¯3r—èÒsÐ"¿vÚ¿–ÒÓR:ôÞ‚Ý%ºô@“µÉ+¦ô´•Nç}WµÐ¥oÆBk»<7›ÒÓU:›¸F.éϱÆÚbP+ÑùNŒËÚë-õ–Б¥¿½ó?ü7󫟨ÈïAßã,Ôìe[„ëÚ³÷z犀Mtäó ÏÌù¿233ÿCE~ú~´:Ÿî+”ÎÐÿ²g€A÷}Ðgèü›¿2èþú*¬µ×k(ŽtÑŠ`Ý*ZòuÐgêüß™_}û%ù;è¢ã¼µÉkÓ’þH|û•ø"è3uþwyòþ7JòyÐsrÃBÝSÝ:=é#§€¯iÉßAŸ¡óüÄ û9襃›å×SøTî~‚ãÓ“.ƒîã ¿¥sÝÏA_ŠJµ9‰®y ê™H=ýƒþ–Îô4zv÷`Á¶jÝ  ÏÔ9ƒîË Ï Ý<é :ƒÎ 3è„A' :aÐ ƒNtJgÐéœA§tΓô“‡côñÁw¤cЛáâ•1è$ ƒþä F¶QƒNÒ0è.êt$Ùùž¾œ“… º)Ò“ãœAO%ç»BÑ…3ƒnˆô$9gÐS)è3®‡'ltC¤'É9ƒžJA®ãÝ4éIrΠ§RÐ3^3è¦IO’s=•‚¾¨A7Mz’œ3è©ô?^¹¸Ê‚A7Dz’œ3è©ôúZ^u7Mz’œ3è©ôÅ1tC¤'É9ƒžJAŸ%tó¤3è)î|¬ÿÔîAÝ(éÉpΠ§”óçkÕZ­¨°…A7Fzrœgfþù÷1¾¡0O‡ëqíËu}uh[À "=IÎ3Ýð·({ôsο ß º!Ò“äü/î ÿ‘Ƽ z}¹³SXÌ "=YοÐø5ƒîmÐC9;}AÝé^8ÿ–A÷ø'ú#g§¼žA7å'ºÎtƒ¾ ;Ô¦}Î1è†H÷Â9ƒîqÐ/ÐðàÃs—‘7Æ "Ý ç ºÇAû©{ª¹kŸ Ýé8gнºá]×ÇÃÿç1è©-=éÎt¶Ë?Qt¤{åœA÷0è@Xh¿UA7@ºWÎtƒ¾hÑ*ù' ƒn€t¯œ3èÞ¯ÑgÝ<é z*;?±ÙÙéìgÐ ‘î…sÝã c™³S^Ë "Ý ç º‡Î÷ôô`kÅúZÝé^9gÐ= ú‘"ýWÇ  Ý+ç º—gqãÈo´¸õJ0è&H÷È9ƒîñ}Íø¬tˆAOaé^8gÐ=º¨>uE~­¹Å ›#Ýç ºÇÎoÁ!.‹³tC¤{áœA÷8èópXý¦–cèfÐ ‘î…sÝã ïpvºøÆ™"Ý ç ºÇA>pvVü½ó‹‰*»ãø1 ?fpÊPXYþAÀ*þkFƒqÙR J¢ ¬–]ãŸ4ld·Õ¸®u×ML£­õÍÆ?lb0»5M|jâÃj·/ûØÇm“¦Iï½óFs/ 0çÜsÎ÷›pÏÌÉ/8ñ“ÏpϽçÜ€èš@Á¢ ½(öížéôü°pw·¿»bÁ0ïûš@ëì#ˆ.#tÌ!º`Ñgi»Õ~IãU-T–QMåñ÷žË´ëî^ºìèBÁ¢ }}õ—Ÿ+o "‡‡£JÆJr¨/Ö±ŸnÇ£´¢K]sˆ.Xt6Yiî–ºrÑ¡&‡Ì]ºº(?Ö±“ÌIU/i'D—ºæ]´èŒU\J/®p¬Èn°ü"íwÖƒÓˆ.'tîÌ!ºxÑÃg'Ø”SAeZm½/6>ë ­}¼îñšÖ‹]NèÜ™Ctá§îW¼DìÎب}ÉuXm!ÅÇt£Eƹ_«ýã‚=kkb!×SwþÌ!ºhæý46Cl›/tÚ¶æPt ¶™9x»ùýÙæÁ…eׇçãuú7ëèõÔ!Gè"˜CtÁ¢¯±Rbìv Å¶f€Z¢ßî±+5¾ßÇ ¾ Ëš.ÍÇñ‰ÿhèMH6…€#tÌ!º`ÑkŽ3 :ëhµ­i¢ÎÈxJ"/|õV»ƒ&—s÷z@t®ÐE0‡è‚EŒD¡5ÛµŸ·Cü¼.2â …èòAÁ¢ }pWzÇŸ¹}O펾_ï‹ ¶}!º|ÐE0‡è‚EßLûÚ è%‡iÖ¾è d¬ä8MÇIóYÁ'è}ãømô D— ºæ]°èMÓÔ[@ù½Ô¿Þ¡êíͨ3çD²<Úd‹çë)¤ìˆ.!tÌ!º`ÑYãÑv;î·ç9<è-ØW‡ÎæNúþÊŸ2ˆ.#tÌ!ºhÑ ¯ëK?°Ê¢»:wæ] sOb ºÐE1‡èEmzD׺(æ] è™‰è@Å¢‹£§"]?èÝåÌ]²Ñ•ƒÎ9DÍ| K!ºbÐ0‡è¢™/aÉbêEO:U€žÒeª«/úëùyŠ¾”%‹©ýl0yÓïzJ—©®6ó¿¿!úA§èKY²˜jÑÙ¡ If†Þô”.S]m毞=¯èKZ²˜jÑ“Î^ˆžêeª)f~¢ó}IK!ºRÐÝÀ¢s}IK!ºRÐÝÀ¢s}iK!ºJÐÝÀ¢s}iK!ºRÐ]À¢óÝËT!:wè™Ctþ¢çr£s]3è‚™Ct®Ìo ß2Ž¥^¢]s]èî`Ñy2ÿ'чŒm§ªüÔú¢ëÝ%Ì!:GæרÿX˜}R8kî•ù¢kÝ-Ì!:GÑ;}æ³øoÑ°qœòŽAt  »…9Dç(zvy¼Iï˜ÍLD׺[˜CtŽ¢¬Ý´fè‚Ù\At  »…9Dç(z»ùí^ë³6Ù*Y3Ñ5€îæ£è…¾Óæõ×Í̵µ@t  »…9Dç(ú-êýözUs±ñ2ÏO·!ºÐÝ¢s QðKÆlòÑ8ƒè:@w sˆÎStöéӧ댦­ùü~Ñõ€îæ«è±|²Ú¢»ºXæ]ˆè ¢:DsˆèÌ!: CtˆÑ!:D‡è¢#©d>†èºAw sˆÎQt&cwF!ºNÐÝ¢s½¹Œ1z¢ëÝ-Ì!:GÑ ‚ãGèÆ‘X¤ý\ºsºÝÕÌ!:Gѯy6(•JôEós@w3sˆÎQt69±nÆ·(•HôŒÅE/t73‡è4ï©ú:çjrȼãÚEù±Žüà%³9Ú Ñe„îæ·èŒÕ¾{ív­cEvƒÕøãiÛëùÝÝÐ…3‡èüE_4=”iµõ>O¤ã"í,έªê˜ƒèªBO5sˆîBÑç¨Ãj ):=:r«jr¦);aexÁ¢’*á¢û7%™ï#óûii¿H2Ïþ ÑS+ú¡è@-2l3ò1QÎ'¬m„†–mÛ8ŸfÁÿ!¹”t|o:?æ?¤%Ÿ==µ¢D·×-¤ÆHÇKòšßóoÕ4{\zê>÷õ‡ÉeœÈè™ÿkO’ù&ísˆžZÑ›¨32^£’HÇiú•ÕÞ _»Tô¤ó¢»œù_!zÊñÝ~Þjü Ñ÷ž` úˆ®(t×1‡è©=ÇgÞŠé¢Ý±Žº ÙQÒÚ^Ñ…î:æ}ÙÌËc_x†NˆÓ„qœì1:Ó°{0ˆ.ty™Côe‹¿àÜl>o$èPyŠöfÔY“óh“qlË¥±»4ý¢K]^æ}Ù¢×I÷ozwŠ=zr¯hÀ¡ÒsxÐ[°¯"UlŸöÖŒ72ˆ.ty™Cô ײŠz¬vª¡p5?Dw1t9™Cô‰^õ·è‹ïC]èr2‡è+}ml¢Ó©lˆ® t9™Cô‰~sˆÎ0VŒèr¯b Ë:v±ü÷9D· ¦À.7ã"D¯šZèr2ÿqñ}•?‡èöß̄ÿ´æVºœÌ_=ÿÀ9ÿ†èÁXý +ÊüDw¦Àê]QæÝ1˜«t5™CôE‚)°úAW‘9Dˆ®tˆîjæy³¹ˬ@t] «É¢;eC0~¢k]QæÝ)÷|_oñDÑ5®(sˆî”Ð)ŒÑuƒ®(sˆî”ßTBtÝ +Ê¢;åJ͈®tE™Ct»4)®Ùñäj“ˆ®t…™Ct»¼¶2 ¢k]aæÝ.¹‰è@W˜9Dˆ®tˆîVæ““mÆO<]è 3‡èöãµZ†1ºncte™Ct»de5?ñ@t  +Ì¢cŒè£kÌÜ“ˆ®t…™Ctûñî£ë7FÇ}tíDÏLŒCe¸»ÀÛß]‘Øùʃè²AW˜9D_yZ¨,£šÊúþ„è*C—Ž9D_$á³lʱâU2V’C} {ÓÑ¥…®"sˆî˜É+^c¨vglÔ¡&‡Ì}7»(AßGÍ!º¤ÐÕdÑ™÷ÓØ ±m¾Ðiû¢ì«ñ/تk] ctI¡+Ê¢;eè`É:‰Î† xÝNÏ Èñ™òuÑîèûRk‰cmÌ:Ñ%„æŠÎXx]_ºóóÏÐIÆþÏÞ™…ÆuøˆÈú¢eglM$Ùc[¶µm¶¶Z[ËŠä WBUÒÚ l9vÜ!Š‚Áq"‰$5uS0Fn iÞjJ¬BQéCZ õK!…:i^ó·(´tæj´!ÏHwFcæÎÿ}à{Åárru¿|ã{Ƴ†e4´ vÎrëî\é8×úÂWdù0ÆQ¤;»*üšH³YvºÃ¥ã\aèƒ×#à•±Þ²˜srÐå?TJèi!ç C¯¯ÜÚ6l”¢KëyB„žÂÒq®0ô£%ùcÝåR‘i]‰tœ+ ÝÜß0Q!¾BW#ç C7c^Ù\ï"ô”–ŽsU¡G>ÄÄ[2Í8( ç CçÃ!õ…Žs…¡ç-‡ÐHǹÚ5zR t}Òú«6ùÛ÷Î\£ó%‹úÖè8Ÿçû8Þ×ú_g®Ñù’E}ktœ/ðí+6ùá™GÎ\£ó%‹úÖè8Ÿ83tÖk¬Ñq®-ô¡~¤k ç C™5ººÐqNèH'tœ:Ò Ð Ð Ð Ð Ð×ÑùKKGº†Ðq®0tÞ²¨/tœ+ ½n9HW:ε¯Ñ×B×']Eèÿù"6ß}Eè@èŽ}U~Aè@è绿¬Âo’|oOè„Žs‹xB'tœ:Ò ç„ŽtBÇyú‡Þ36j®!]Uè8WzpÊ%bîžAºšÐq®/ô`ŸœyOL«§äM¤+ ç C?[ô±Ù.ÆLû‘®$tœ+ ½rØXÒMKÒ•„Žs…¡ûNG¤¿Vt%¡ã\aèƒ#Ò«Š‘®$tœ+ ½N5‡¤NÊ Ò•„Žs…¡ï—c~)8&}Ï!]Iè8WºÙ{ªDD|]ëúÅšHOåÐqžÄÐmó×槺1=Y½™GÖùFz*‡Žódñ(Žobþô©8ŸÉLÊ/ŒôçIã«¿ÿÜ_<­ÐE.ß@ºªÐqž:üîi…þÛ"ŸÝ "]Oè8Wº1¥CSâ»ðÒ¤«Y£ã\aè!znLH ÒÕ„Žs¡oºT‰t]¡ã\Ý­ûtÙñÞá6NÑ­;ε…þÁ© ‘ª_¯òÄLO‡ßÕ×Qº8på›J_~×Ò:Ά.R»ýUj”Ù²kѹWrïµÉÄu¤;0tœ+ ýáûk8hHÊŒ ¸¥w~ Ln†¶7eé çÊB›Cˆ~ [BÛv)˜xÇk½@7¿é ç CÙcÖôºùµÖÎ;ÿöå@µ¬GºÃBǹÂÐóòö…þ,õ¸NɵöÕžœåÿU©BºÃBǹÒ5úZ˜•k_(ËnõÝré\£ã\aèotF~hŠz̉ÈBmnÙ6O󔸗Öºi‘z¦nè8WºìŽü°#ê“,f@#î{K»¤;úë-xtOáÐq®,ôÑþþ~éê·x±<ºô}Ò6·^“ÀÂص\Éñº*¤§hè8WúHÑ’ç_åaô÷_¶vÞÚ…‘ãR°Í Ýq¡ã\ã­ûtMÔXÜzã8·gOxE']ó7ªätÌ™‘žª·î8×¹Fo™^ÃAå¼1a mƒágrž•KéN]£ã\aè‹Äúèß Ò]~M¤Ù,;ùÐ'U/[ô Ýy¡ã\cè#g[†óòÜ¿üÌã œ“ƒ.ÿ¡Òyéwy9Hw`è8×úíy}®MëyþHOáÐq®0ôꢚÎìš=ZQ>€t%¡ã\aèåyÆœ-6¦Ó;…t%¡ã\aè¾ìð{Œ3ãGº’Ðq®0to™1χ?] ƒ Ô:Άޒ‘e®zÓV‰t%¡ã\aèo»ŠjL¡´u/~”ÒÓqçeÅÕÃ?Ý8íã-‹*Bǹ>çíÖ{’·ó~­ñ ¬é8Wú.ÉèùC¾oö–Oxƒƒé8WzSþÐö–\òùþ\j®A:Άîj oƒ"Þûë}BHOQé8Wºì oR4f®D:ÎÕ†n¤Ú ]Wè8Wz!ÒÕ…ŽsBG:¡ã<­BŸl #ãÖ®éBǹÂÐù0}¡ã\_è/.é ¤ã\aèIéú¤ãœÐÐÐÐÐÐБŽsœ#é8Ç9Ò‘Žsœ#é8Ç9Ò‘ŽsBBG9ïéð»ú:Jc =ݤã\aè²#»"òÇ' =ݤã\Ÿó!)3&à–Þ¨HO7é8Wº[BÛv)ˆ:€ôt“Žs…¡ç×Z;oqÔ¤§›tœësÞ)¹Ö¾Ú“eéé&ç CŸ•k_(Á( ™‹”ãÄÙÒq®0ô‘uÙÜ*íI·²ÙgKǹÂФ1ò`¾7ÊÀ âÄÙÒq®0ô}Ò6·<“@”¤§›tœ+ Ýì¿®ÓWt IDATlí¼µQžnÒq®0t·g ÿjWÔ¤§›tœ+ ý¢œ7&0,£¡m°sùÒÓS:Άn.HwvUø%f³ì\>€ô4•Žs…¡çœtù•.J_@zšJǹÂÐmƒt}ÒqNè@è@è@è@è@èš¡Ÿß´où†)a‹rÿ’ËÚýGœã<•¨ËLt†·ÞMt†è ­?Mt†Ý[ápSþêÁ¹>çH'tœ:Ò ç„ŽtBÇ9Ò‘Žsœ#é8Ç9Ò‘Žsœ#é8Ç9Ò‘Žsœ#ÐqNèH'tœ§Yè¿Ht†[¡f,ѶŒ$:Ãí„ÿ×úÎqúôtø]}¥1lÏpå›J_~×@3„yV6'2CME‰7¯=>ÿw¥¯iæs[ójÆn“À•Ä9ΓF£ìÈ®]1ìÎpÅ+¹÷Údâzüçâ~‘é+fxKüu¯e Ä=CΤ¼×-“96®åjÙm¸’8Çy²’2cné:`{†2¹ÚÞ”á¸g_óq±!}Å #žs![·ÂÃqÎpX> mOÉÖ~-_¨’¥Òm_Iœãc²|Ûí¬×VÌ°¿*Ñëð/9Ú>»kžâ'þÞ-K¥Û¾’8Çy²è”\k_íɉ2`{†ymReâž¡tr¼Ç†ô3\•[7–—·ÌÆ=ƒi/Ùð ëAFÓÕ5_Ë£¥f©tÛWç8O³Òbí %eÀö ‘Çøn¹câžágEí<»b†Í²±¼Ò=.ù ñŸÃH±ˆ4ÍÚºœK¥Û¾’8ÇyÒ8YMÌ­-ž4`{‹æ)qÇ}f«ë[ÿÔ²b†wEÜ7Lóiy=îs8~ÎU×?S?8¯tÛWç8OÒyÚeÀö ÖmX—t‰ûš«›¾´%}Å Å~HÝVYŸïoáö„¿?äyϹx¥Û¾’8ÿ?»vûÓD¶Çü_@KÁ*HË­X Ê“UPA &,J4f]tu5a@| ZQC$¹¹",1†°jbˆÄ}ÃË›õ)¹ÑÄwþ˜ìfïýOî93m9ÓiWZ.¹;ðý¼hËxæÌñ÷=g˜™ÂÌWÌ^´š7¤ØvÒƒ<äug>†çøU¤º­‡8g¼Ïàj†=,xvïíi]„顧]IfÎÌWNø®ù˜°.冴{=;Q¼mchGLc†=äúb¡ßË°‡ÓÑ?z˜B$ÃÐÓ¯$3gæ+¦Àê‹¿c)7¤ÝÃx-./k åùJ6ç÷d:†ZŸÚh2ìa£gÀìÈÓ“ièiW’™3ós×dq~Äù:|ĺ!Ã6`d™c0¤óª­‡·¸ ã>¾ôÙgëagåë§è÷%é…ža%™93_9×ѹ¾Öø³Á-¨°nȬ‡Ç^Ô¶º2Cº¡Ûzh)ÂÀ/­[ȸ‡¿MzZ/—•ÉØL+ÉÌ™ùŠÉ=sÞ]r¼rq¨‹2ëa6~·•›ñÒÝÖCå¡1wÍàžeôðáZ¡·°j«È<ô´+ÉÌ™9e(¹,3'†NÌœ:1sbèÄÌi%¹úÃM½ñ Ï0¡Þ^á{!î4Õx«Û/FC7ƒa¿|Ý[ïohþÜÃú1srFèîàÔßg ]ñÔá’zëÀ:qÅum}ÏsÊúÞ1´_Î÷Õmd™99"tÈ×ßþø–ºÉJ!*'ï qÔ—#Þ[è—pK~|‚k, 3'g„Þ¯Þ†Üb[ÊñRˆ>Ì ñå“úy«JÙzWðd‹ú§`+ÈÌÉ ¡{ŒÜ6È«¶¨«¨b ÆuÝýMÓƒø11ô””+a™99!ôQãm=þu³D Q›½­+k^nìñþÈO ýb®°‚Ìœñ`& Þª9k¤(ïÕž£ï¦…”àÙ«ña1ônÙò;ú:³rÌœu¿f\¿•To‹oöŽ{‡…ø'ZÕ'Ô£ú BòÇ/2ônïIcª8ØÍ 2srDè¯åÅÙ4µm¥5“×å[:å뛘1C¯ÇsãÇýBì@¹ü§Mž™“3B{W€»{´m³Àaù@ëõ5Õîy3ô^ßõâpmµ =äÇ|}“7ØÏ2srF葼`Íg=sÑ —g[K¦z7Ëk:ã¡Ìļ;<òfT}ý:¼ÁßP³ÿëÇÌÉ!¡ïe˜91tbæÄЉ™C'fNDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD´$älIÚæ\_ïèE’ƒˆÛõÕR4ÞœŽ½þùØûÚ'½ÙG߬MRíªûÏ›¬j)Š–æ숅ŽÇòÃíe-ôÆ\üO€ÊÖèÞ3%O€è¸×îHU´¿ðBgÎ/ôYùaײú!$]è¿–——çË<åÛÛ¯%EãÙââÇKšû€êª3M Àô’'@tÜæ1Ö¢TEKsvÂBÅ„oÀäÿ~¡+‡õKNÊÆK˜3ÀwòíЙîX»R-}Ìù¯¾Ð‹P'ÄP]è?eþ0n\ñì æEÌ"‡.6ø7 ËOEøö„ß=$Ä©ÒBov{™¥Æ¥TDo”˜é.4ËWy&dl*³Ç>â][/é´þõ±ò€Wò­ëcù!KKû®ãsçÜ“7Ç›#‹Cê@pã`¡{àð*Ï?EÑJÍ‚´MI“gÎ\èïFqÕÍ…^lÞUâ^¡úT­ŠÜØllö‡TÜÕA`DLxͦeñBj3½´ –‡b oôãØ'Àb×–  õ¯Í$ÿ¾ëûþ½)[liÛu¼ÖìüPâІԆ:È«CL¬îüSí P.7È)Ñ—,yæìÄ…Þ|È›3º¼ ¿ßWaœÊeAvM<‘•s© &ßÁG|8¦âFxßÜïbYeý2رNvó±oAo”˜iDÝRÝ-¢¯-DZO€Å®-@ë_›i¼Âˆ¯®¼GXZÚvý zñÉ÷ýظÍ&úä?œÏåÀ…ÕŠ¢u¢Dn(Aa YòÌÙ‰ }¸S¹n4z ¼²¹ßÂÓ¢zýªÈ!vÈæ×Ыâ~ªö½ZÖ'_]Ø»ÒÙ2õ£@LË€F[ä\x®'ÉкÖ&€Ö¿>¶˜…_²Œ)P±Œ$qWÙmÖ‚e¯ëÛb÷næ1ô!u¨³ŸØæEÅ*Ÿ)ŠöYM†uÀådÉ3gg.ô&øå-úc¡ß6 ó¢mw/Ð*Œ\⢼Ú¾}{pGÅ1÷þ°ûÙ9à§ØB×Ù2}†¬À´7äµW¯~1T"=µ>¤‰w­M­}l‹r_^þI΀‡–‘$îúòõ!ÑÄ2¤óÿ0Šs«þ1MÒ¢ÝQAÔ'T.–RM ÀßR£~Ó&Iž9;s¡Ëÿ¹ÂXè¡ÅÓÝl£q爛¬¸Ä àLl÷uZ­ûû‰îæÅKw½‘mtqLžâGÄo–ãØ'€Þµ6´þõ±™îÄþþ¢ èÓG’¸ëcóÐîŒ['€eH².W×ÀHY4U™?Œoª“$Ïœ¹Ð[²¡ÊcÞ£Ÿ4o`NÂ×Ø2ŠÉJãñŠK|jeóÛï¾Ù¦â^PߌaµT«”ž/„¥‘ý›”"y:i?ËWün9Ž}¶è]k@ë_›©rÒxx+B5òªQI⮢ÁBœ…ïmtÜÑcèCZ# eÑÄ°ÙpïÉ’gÎÎ\èêOp"ºÐåUøÖÓ `Jˆw@UOÛN£ÈCÀວê7,î-Æ!ŒË ëÇ?èì@¶‘×L÷åk8`=Ž­±Þµþ4Vë_›Iž¡±ùßǪ¡¦ÖÒ¶ëm`lú}6¼¡Ø¸Í&úÖÊHU4! }mOž9;t¡ËJ{¢ =°ß¼Å™—‰)QŸ¼uªÈmacóh$w@–Êï‡áõTx©7²O€x+Ę™¹~[c½k}hýëc3u•FïÎ\m––¶]ÇwšížŠØ¸Í&úÖÊHU4!¾ ú×dö䙳Cú#ãä8÷_öî>¶©ë ø‰EySˆãÒ5ò¹ð•d°$Œ/>JKÊ•”ÀH Pd† ¬c¥j   ¨¥|ˆ Á¤D%DA TúÇV¤vU‡Ú¡®@[Õ*MÚî½±“k¢8vbŸ÷Øçy$î½±.Á¹áÛÇ×ÿθ¬g\-Û¬N¼¹ofgÝoäikÊJÊF¿,zê.œ—œ×4sÑÛBlKuí|Û¾Sï€È·Þ»ØLÔ&žúwzílûÖ}û}ëJy}Ö›ž„ÖåSEÀž½ÿꢫi®äçÛÍÍ®ûÝýŽ©î»¤Í ƒfœ"'Sr׬‘ÞÍ£gAAAAAAAAAAAAAAA‰Ô'"QO;:GçÌ™5‰v~ñ,:GçÌ™‹“š¨gè³è£t”ŽÎÑ9JGéè£t”ŽÎõì|WÂÛW5Ui®ºª”×¥£sý:ß;‘쥗RVb¾uX”·¥£sý:¡ˆì¥7R®™)T‹Òã·tt®_çß$¸Ÿ·—žBæ…ë*»®‹Òã²tt®!ô_§ÕþÄ^zòdk•šÒã¶tt®!ôÅ9Â^ún­'º“Pz¼–ŽÎu£‹€Ò;i†µN'¯mÊ‘=i±ÝþýÎŽÇèhð9àt.Í”Yú€;¯>ÿÈqú |~÷Ðñ›r6èË|µ®a›?m¶÷ÞgÛnÿÔét^FeƒÏR§³ãôð:ÿú¡Ãq >GŽÿÞgƒ¾‚J}¿Ý§ö±w‚ý‹ëzd _þ^pA³ó#¿ôÈ@?wžïÔ½˜*ºÆk”Jé⊳cé5”6¸\_ëtþR°A·óŽÓG¿BkƒË‘G¯2ŽÑÅôÖ*u²©ôÛÆÉûÔ6¸Ü5â|ÐÃíü-‡Ãñ9Z\¾0âNè)îBa¾¦:/´Ò<ô@_ûY5#ô0;¿Ð#ýÑÙjè™Þ9Ær+m66×ÑÆÐJÐ#ý^à Ò ¨ójè€~CvçþÒGÑ8sµ…æ'™ï‰ôø‡>ÀÎ= '-_éJ[èA·s@IèáÐãúà:t@GtÐ@t@t@t@t@t@ôèA?~¹'gðÆ÷rý¶í Ýt@Wz‡3 wÑa(ù_àQ[ 耮8ôõWlù!pÒW®8×ÚÛ@tÅ¡d) ‡ =Ø<~@ô0²¬!eKº@׺œÎ]%è‹=ä k]R瀮ô¿$´Þì  k]R瀮tWÆèºA—Ô9 «=á@× º¤Î]%è#Ò]7è’:t• ¿6ýÛ}»Š­º&Ð%uè*A/ÈóîºA—Ô9 «ý¹žº&Ð%uè*AR]aè’:tÅ lÜZët­ ËèЕ‚ÞYaŽÕƤO“ ýö§y€NÍ|ùÔa9%èr:w<üâëžA½!¥úˆí ½9è…Ôz¸ª!ŸÊ†I„þtî¡`#×:z˜¨@—Ô¹ÃñÐaËYJ>q$bÐwÐÖz!M‘ýL¯Çs 6r½×q ¼ØZ¤ Kêü¯Ù?£àPr"ð¨ý=RÐ ²|éÒ ‹×òÐýЯ™ Cš¿¼&©ó¯l¹è¡B?a?n®yVù6\ò ?•ÏÝýË0vpéôP¡Ÿ‹Êó2|Y€® tŽÎúlZh®Ê'Ð@×:Gç€Î ýd*:õ«-”zÐ5ÎÑ9 3C/_0_SuWt @×:Gç€Î ]ˆÂÅmí…¾»€®2t†Îº×[nüé k«s@g„NT(ˆäOSt>è\:#ô#Š?Ýt  suèücôhÐÕ£KïЙ¡¿6Ç·QÙèš@çèЙ¡ÓßFV k£s@g„¾±¾¾žæÕ[™™è:@çêСoc{þ•þè@çêÐ9OÝÛ'M¢Ñ“¬º%]‡Sw¦ÎyŒ>£=*wУstèÌÐEÎÖ}Æ2÷ k£s@g†þÑ\ú­»‰žKtM stèÌÐi9‡iZ3-tM stèÌÐë6ù6ægº&Ð9:tfè®S¾)@×:Gç€Î =ÃÿÛ}x°Ï«©JsÕUå؆yÿ*ð”]úÐc:Gç€Î ýÍ´ÖïSs½J)+1ŸÆwÔJsOͧÖ$@Aè:3ôaT7~ÇøÉ”äC)WˆÌªõß°Ë5ô3@Aè:3táÍ5¯–½W}RȼJW%öß0›Ì7UÝ¢Ù€ƒÐ9:tnèBä¼3dlNÐ=’'[«Ôî'iÿi}`ðE: 象s@ç‡^³}£Øl‡94ÜZOtûÇg•ÙÏ\z1¡l Ç&té:û©û~‘8Ù´¡ï]:i†µN§î1݆ ãܯ¬ï ºs}˜yœ©~e×~ ó‡: íÔ]~ç€Î Ý[GM-$~îÎ~½Ï}–ùj]Ã63/mrM©¿T²r…}·÷V÷Ä&ô°³^ýÊ.àÇ’£s@g†Þ<¦M¼HB´{JûÜg•ú~»Oõ?Sã~×XŽto²ïVüNOÂúDƒkwÖ†™çõ+ûÎÙîÏu¥ZtŽÎzÁ:a•.f”õ¹O1Ut×ÈwÂ|Ó=ÑZÏ"o$NÝÃÏØ€~;ªßàYdèЙ¡{|¥¯*é{§é;­Uêäîóº®÷Qì§í€{Ð9:tfè+çúJ/ 2Á!Åm^¾§’æù¾æn²ÖEî—=ö stèÌЧЂr£ôÌåt©ï¶Òf!2×ÑFcé5?+xÕË}/ÁzlAçèЙ¡ÿ–¤Ñè%T7,È^[h~b‘ùžH1ŠÆ˱tW4¤Sò @Aè:3t1uM6yæ½Þ^Òò•®´9Ý¥‹ÎÍ©žÔÜ Ç tŽÎº5Ck‡,ŠðÝt•¡3tèŒÐ“è@çêСS`]è\:#ôát  suèücôhÐÕ£KïÐù¡÷;eÐãºôÎzS=Π3tèÌÐC™²¨"ôþÒ±'Ú¬ïÒ©¢Ð9:?êx:ÿj#÷oô:0|ÓTÕƒ~¥dQÿ/ÿxÿ÷ᮚÐ9:ÿG¯Çói(7r¤×qq|è¡LYTúƒ=ýäž èßõw/„šÐ9:¿ÿùOò* û¡? <2ÿ©Ž ô¦,*½ß|(úÞŸ1ºÓT£ÜùY@÷C?/åy™¦,z\AW¡s@— =¤)‹€WÐUèÐ%CmÊ" Çt:tÉÐC›²èñ]…Î]6ô˜œ¦ è"Ʀ©:?tã\nC' k½s@— ýØêcÆòEÑÜN@׺ºLèßmb&åžEe7]èŠtè¡·Q]cØ›çÙn^+ó* k]•Î]"ô ·ùYüÇhµ±Üíjt  «Ò9 K„žœf.Ó$sÕ’è@W¥s@—Ýc]M«…Þ0W­Ù€®tU:t‰Ð§›¿Ý ÝÖE¶2VºÐUéÐ%BOw¿n>ÿ:EX£¶R@׺*ºDèÇhÉÇïå•Œ56G¥R; k]•Î]"t±ŠˆÆ¼/Ä¢qnj€®tU:t™Ðž«W‡«ò’  k]‘Î]*töFúþº²ÐÕèÐY  @׺t@t@t@t@t@t@t@t@t™ÐWÔºnÐUéÐ%BO.ÄÉ €®tU:t‰ÐK²„  €®tU:t‰ÐÓÆ4¿BzÅ@׺*ºDèm.²Ð5€®Jç€.ºðnI‡Gúè@W¥s@— ÝHÓ!ŒÑµ‚®Hç€.º‘ƒ[k½€®t:tÙÐ;+̱ژôi€® t:tÉÐ ¨õpUC>•ájªº@W¡s@— }}`­v}Œ k]…Î]2ô‚,ßFz k]…Î]2tÏ*ßFƒ Ð5®Bç€.ûô ¾¬‚ {ÕT¥¹êªrl·LÊÿ?{gUvÆñ£A¶; óÂ/e,#ŒÈËà]EYêKµJÑTHy©¢™¬U·»Ðìê¶.5Æì¦Ûn]LmÓOfÛ¥‰¥ýКý`7YÛÄ´MöÃ&Û¤µéÇ~è;oL6÷Œ÷œçÿOæžáäD/üò›¹Ï½çÞô:;!º’ßè6`ÑWYô½ô•hÓ¶•ÎKFµPEn-U¦:^¢’Çýë† º‚¢Û9D_eÑ/æSøÖ×Ï_&ïUëA#T-DÀM‡cžï:„x;Ú Ñ•ÝÌ!ú*‹.¾ñ›è5UOÇ‚dŒ›¢W\;©8ÑQì¿mNtAtE·sˆ¾Ú¢ QwàÚ\tD~ƒÙx“'iw…WòÄ D_eÑmÀ¢¯¾èÓMyf»Ýãˆu¼L{Ë jjÚ º¢¢¯9sˆnCѨÝlK)>=ºˆ jBîÊO›CÙߘJÍš‹þ߯f9¿×Zôl3ÿõúϾ³Ä¼úSû{»ígKü¥>´“èGâ…Z¬l3ò‘û Ñv’Ž/¶»0•æ5þƒÿü «k,z¶™?^¿ôüÉþ¢ÿ{é¿ÕgµèCñåuK©1Öñˆ\ÑÏùÍ¡f‡MÝÿóÉײžOþ¨±èYgþ¯o/1ÿTAô×ß[êïµÍ6ÌEuÄê5 Ä:ÎÐ7Íö-:eSÑ9$«ÐíÇüž¢ÿY]æBìº`6Þ†øÏúEˆ®§èöcѳ/ºÛ½ÓI=‰Ž°?Úh݀蚊n;æý©™W¦ÇzàY:m ¥Icé6:> ãî>:) ºZ¢«Ë¢?µèÉg6GŸ7â—Œœ¢ÞÜ°9ù±ˆ¶Û¶¿ÕA3!ºb¢«Ë¢?µèuFr¼[L‹ßÞ½½iH2ÒqtØUÒW•„.ªžŸq…&DWLtu™Côe•kÎMÝf;ÝPº’;Ñm\£«É¢/Kôšûñ7Bt&¢«É¢/Kô ‰‰NSù‰èj2‡èË}ÔÖl?°¾Ï¢k&ºšÌ!ú²D/Û@½Çþ0_K­W!:ÑÕdÑ—%º(›ò‘«ò¢€èLDW“9DËœ$ÕýÚû®ðAt;‹®$sˆ.°öDן9DX{ ¢ëÏ¢ ¬½ÑõgÑÖ^ƒèú3‡èk¯Atý™Ctµ× ºþÌ!ºÈþÚk]«ot%™Ct‘ýµ× ºN¢«É¢‹¬¯½ѵ]Mæ]d}í5ˆ®•èj2‡è"ëk¯At½DW’9D˜ ÑõgѦÀBtý™Ct)°]æ]` ,Dן9D˜ Ñõg~/㺤ÿ{í?ùG¿Ì¸˜‹ØºšÌß˼ñ÷³ÿ…1¿²ë7:¦ÀòûFW’ù§¶ÉóaöE}ýÇvâñ‹6S`ù‰®)óWWCô(ÊS`Š®)sˆ. ¦À²]Sæ=C0–›èz2‡èkˆÎ:D·5ó¢ù‚ 3‹èz2‡è²<ç§D :Ñ5eÑe¹íùÝNG,‰èš2‡è²§P£s]Sæ]–Wª!:7Ñ5eÑe™ í‡èÌD×”9D·J“‘²Ðž»W›Ì@t¢kÌ¢[…Òш®1sˆn•‚ô@t¢kÌ¢¯A :?èÝ®Ì#‘6ã• Dg ºÆÌ!ºu½V'P£s«ÑµeÑ­ât6¯d :Ñ5fÑQ£CtÔèŒEw¤¢3]cæݺ^Ãut~5:®£³=/=’‘ý]%®®ªôÎg¨¢«]cæ}ùi¡ŠÜZªLë»ã‡è:CWŽ9DÏþs“bZ:b„ª…¸éðâbo† º²ÐudÑ¥‰ÌºŒRíæø˜dŒ›¢ënvRñ¢¾—š !º¢ÐõdÑ¥Ìhü2‰ÝžàëAù fã]´T×F_9jtE¡kÊ¢Ë2á¿&ÊIˆ9_‹å˜nŠ´ÙîI^Ž©zs¦¢+ ]Sæ]–Ш0¡‹öVË1 Ôn¶¥”œý-ÿ#œuWUtM™CtY|'ãÐ5[Ž9/Ôbe[4e®Ÿ|þRËÝ/§„‡ö…®)sˆ.Ëð¾8ô°õZÙCÔÿtoŒu´mo}øyè9_J¢Ûº¦Ì!º,;¨¯Í€8Jó–cš¨#V¯Q Öñ½/0aFYÑ5eÑeiš¡ƒ%T|žµ´ë‚ÙxâŸ?À® IDAT?ïIN¡Ü ÑÕƒ®)sˆ.M㉠Ï×#{Û]¯“zâ?—›·86P¡óDWºžÌ!z†ôo<œ#þïY:-D`”&m¤;Ñ‹Cwu¡ëȢ˒\"ûá}ɨ)êÍ GçDŠ"ÚÑ]Sæ]–áKñðì–EÇÑaWI_D×BtM™CtYšCeÆvgùϯäAtC×”9D—å@0ÿ\`k ÕæˆÎDtM™Ctiîl¸RKþ‹èš2‡èòœóREd¥w¢Ûº–Ì!ºUâñóç°€Ñ5fÑ­‚‡Cò‡d(º3=è3‡èkˆÎ:D·oŽEùÕèXd‘aŽEùÕèXd‘aŽEùÕèXd5:DGÑ5}d¢s]/æý‰²5:;Ñ÷ F‡è¢CtˆÑ!:D‡è¢CtˆŽ@tˆÑˆÑWŽù ‹3Ñ9ˆ®1sˆnܦÊOtܦÊPôéè Dט9D_ƒ@t~Ð!:DG :D‡èD‡èè¢Ct0‡è¢CtˆÑ!:Dg"zÿ¹I1 ÑY‰®#sˆ.MdÖE$nŽAt6¢ëÉ¢K™Ðøe»=Á3‰èš2‡è²Lø¯‰rbÎ×Ñ™ˆ®)sˆ.KhT˜ÐE{+Dg"º¦Ì!º,¾“qèÇš!:Ñ5eÑeÞ‡ÞÑ™ˆ®)sˆ.Ëêk3 ŽÒÁ ª"à¦Ã‰Žjºnl¯Ó( +Ì™1DÚŒW2ÖÝ´ÓØvRq¢ão[´É¯tÅ ƒ9CщêÄ-¡›ß`6ÞÄíËÁz³ntÅ ƒ9CÑÎ&ã•Œå¸nÊ3ÛíGúÿJa@W :˜3­ÑŸ$ Ôn¶¥”v¨è¥€®)t0׌ù©îø›ÎË1Gâ…Z¬lK¤m–ÜiÃv¦Ò &ö…æ E§­ñ7–'YĵÄ?ÝSU=Ôk=ߟî6†æ̘ORÏ ™çk¬¡7QG¬^£@²o:ò$óªÝ¦ÐÁœ¡ècþEç_é¾õÀ]ÌÆÛì9TKÅ› +Ì9ÅÍÕ×Sq½™·Iƹ=uÑŠŽzo„é¤ô_t»Bsž5zûÜ :K§…ŒÒ¤±DÏä ï1Óè*Cs>ÌÇ&ÚGN÷[·}’AŽ£Ã®’¾ªôÉ"Ïè Bs~ÌßMàs®äº¡ƒ9CÑ·ûë¿8^¹p ¶fЙ@s†¢×8…˜Ø$D·wЙ@s†¢ûr£÷b¾Й@s†¢{«…x.út.<( t0g(zûºâeÏ}!:B€Î:˜3ý{.½(¥ŽÞÔ£D]sè`ÎPt1¹ï/bçe¢7¯:è`ÎPt3;ÐYAs6ÌétÐÁœ¡è”@gÌŠž—@gÌY×è+@çÌmμÿܤ˜tVÐÁœóȬË(ÕnŽ:è`Îù_&±Û<èL ƒ9CÑ'ü×D9 1çkt&ÐÁœ¡è¡QaBí­€Î:˜ÿ¿½»ý‰êÊ8~HFæAt¤S…3È“À‚@ׂ R ÆÕR[I4¥¨aK}ˆ)‰Ù¥‚ÙlŒ®&Ù¦¾ñ¥éª›4lÒwýl²fwÿ“½÷Î CÇ1ž{wgÎ÷óâ^9mNnÏ×΀Z=4™Žþi'Ñ ‰Ns}âH:z¢Žè†D§¹ƒÞ&G{¬èÑ“ò‚è†D§¹ƒÞ± ÇÃR{\Nm"º!Ñinà «ö³1 Í)¢›æºR#e㥣JE‰nNtš8è)_-Ý´è47¤y²±n©åŠý£ÅÉdшè47¯ù@‰óg’ë•ú¦U"|Ö„è47pÐwKUrä‡êÐÊýð̈Ns½»zѺޗ«¡Ð?ÑMˆNsÝ×o_çD‚OÿßDô÷4:Í tÙm_£™WD7$:Ít%-Šèf :ÍôíD7nÐiΠA§yQ úò›,8·D7aÐinà ó—ù›7è47oÐ?ZèD§¹ƒžGD7/:Ít0è`ÐÁ ƒAƒè4§9щNsšè4§9щNsšè4gÐÁ £ š †}§Þ²@ôb‹Ns½K>(oJÿ Ç7/½Ø¢Óܼæç¤Q©¨_Æs.½Ø¢ÓÜÀA÷Ë~ë: µ9ˆ^lÑinà W·:·`]΢[tš›×ü°T:÷–@EŽ¢[tš8è+ÒçÜ·Ë\ŽÇþÒ5qšvtš8è'ÒïËRïÒÞ´à¸_¾¦—&…æzRºÒŸÌÛs,d9B“ÂŽNs½CúSoÏ$šcèÅæºê½æÜ‚­9ˆ^lÑinà û{•ý-Ô¡œ D/¶è47pЯȬRÑórѺÎ^¿@ôâŒNs]]’áò„ý[ ÕVùpýÑ‹4:Í ôŠ“¾ðцµèk D/Òè47pеݼè4gÐÁ ƒAƒ :ÞÏAŸ­ÉŒoð(ÆŽx8ãX‡ÿAsš¿OÚJ½îðå-¯;üî¶×|æu‡=;¼îpl_¡üÒCsóšA§9ƒNtæ :Ñtšè4§9щNsšè4§9щNsšè4§9Ñtš3èDgÐi^dƒþפמïôºÃ¾y¯;ì˜òºÃ·žêžû‘æ4àý72ölxË‚ö×ÿÛªJzØÁ¶Q¶zÙa_S,X5àa‡gÿiu¿x¦u˜7Jö('IsšçM—|PÞ$»ß² »Ãõ T>î—¥?ºËÓˆNô¬¾”pÛ™HIÒõËräñ°,Whœåb‹ìQN’æ4Ï—sÒ¨TÔ/ã9´wh”»Öõ®œw½ƒ}æ ¢=k‡©ÀŒUë¾½ìr‡còÀºž•ß¼ûYnKHft퓤9ÍóÆ/û­ë€Ôæ\ÐÞáf°Ç¾UÇ]ï`vî¬ÑˆžµCmÄùµåì ëÉ+ëúJ½óCü»$P“]û$iNó¼©nunÁºœ º;DO§þ:̉N×Ï TY¨^çýZÖ½ ¯çð/9f]ŸËwï¼Å'áñ™ÑµO’æ4Ï—ÃRéÜ[9´wXÍ& åz‡†å…èY;ÜC;7Çã}+®wP± ÏËž—tßxç³ü¸AeF×>IšÓÚ°ö¨k îvxôúÝV…ëgÐŽžµCÃG ¾æ ívX™ †‚Û”ûèÚ'Isš\ª” æ :h¢ƒæ :hŽ|Ú\=u$ÖÛ•|½ð@nÛ·ïåS¥¾êjÅ~–Žž ¿Wú¬kG[]g÷ÏcœÍQÑ}±;·«_WÿFÎÚ·CRª.úJfËý‘ÀxVôŽ98YiÝÄÒ]üÖµ,Ò÷z¥u©A©†¥kJ‰”Yï“«YÑÏʬþEf9@š£0¢OÙ·ß׫+õò7¥ÎÉwJýò“ýñ6»òúè#±ã=ö?šŽp‚4G!D8Ý6Z¯ÚÒ¾F¥îˆóºîÆ–»¦åü¯£—I¸Þö'™çiŽBˆ~Ó¹•ËW¶¨R‰ »FJžX‹É{‘ºÝRõëèã²ê"'HsÄf¢ö­QæO;­÷jåÜ·rW©hX|?¦VÖ¢Zÿæï­è¥RËÉÑõ~ÍyýŽïz½4ºZšSê©ôÛ~léÆŽ~OöZþbE w~ªåiŽ‚ˆþwëÅÙ]¹±¶½yé’u+“aëú¬I·ÉCçÃ>¥vK½õ¶¦9@š£0¢ß\xá—kíkD~kÝ¢ÓÒÿy[sÜ÷$ýr(r©¶7·¢ï­“'m]¡ØHsFôùÊXóÏ™ÍÕh,æ¼<Û6Œ…ï$k¬×tÎen?ñõ^}vÓþöëÜƺÎæ¾ËœÍQ Ñ;8šƒè 9ˆšƒè 9Þ;ÿ}\±ánÜIEND®B`‚metafor/man/figures/crayon1.png0000644000176200001440000033037614441312110016213 0ustar liggesusers‰PNG  IHDR  fò,æ pHYs  šœ¤zTXtRaw profile type exifxÚ­›i’9r…ÿã:öå80Ó t|}™ÜºgF3fêj’ŬÌÀ—·8‚îüÏ_÷_üWkõ.—Öëà;þË#8ù¦ûÏãý|~¿ÿòóÕ?^wÑûô¾‹¼¤ï>óm~?8y½üúÀ{„õçë®û÷Bßpá÷_Òõ½ý¾H^Ÿ×Cþ^hœÏ7uôöûR×÷BûûÆ·”ï¯üsYŸ?ôw÷Ç (YáF)Æ“Bòï÷þYAÒ¯”&V~)ð>~çû˜²ã”Æ÷bäíýøÓûßôG|çþýÒÆèàÇù}GúK,ë7F|óÊ_^O?ï¿qú¹¢øçö ýoÛùþº×ú½ç³»™+­ßŠzÁ?.Ã!Oïc•¯Æ¯Â÷í} ¾ºŸ~“róÛ/¾v!’•ëBf¸á¼?wØ,1ÇƸcz¯õÔâˆ;)OY_áÆ–F²ÔÉÙŽÇ‘³œâϵ„wßñî·Ù¤y ¼5.øÈ?ýrÿê‡ÿÉ—»w+DAÁ,ýÅŠuEÕ5ËPæô;ï"!á~óV^€|}Óï+,J• –æΧ_ŸK¬~ÕVzyN¼¯ð秅‚kö½!âÞ…ÅPö9øR 5øc 8v4Y9ý¥Dc‘1§T£k±GݛϴðÞK¬Q/ƒM$¢ÐYÜŒ4IVÎ…úi¹SC³¤’K)µ´Ò]eÖTs-à\«¹ÙRË­´ÚZëm´ÙSϽôÚ[ï}ô9âH``u´ÑÇsF7¹ÑäZ“÷O^Yq¥•WYuµÕ×XsS>;ï²ën»ï±§EKLXµf݆ÍÜ)N>åÔÓN?ãÌK­Ýtó-·ÞvûwþÌÚ7«ûú²¾Y‹/Sz_û™5^u­ý¸Dœ匌ÅÈxS(訜ùrŽÊœræ‡P®DY”gA#…ù„Xnø™»_™û·òæJÿ·òÿ¯Ì9¥îÿ#sŽÔý=oÿ k&žÛ/cŸ.TL}¢ûÎH›­•U®…µóm6ù?·:«g>G~Û(ÐåivfèíÄrV¾,Þv-“±ZU°/W<¡ÏÅ÷-Ý^ÚLû’îv›ðw¶AyF9q¬SUZ·”{×áÍ\hçOÉËƱk­¦Á–K>µ²¥\›ßë¤kÕ§9ê:÷ ͯ•kJ¤ r³~ ì]à‘ÛW:°vî7νî¹{µ{ið3Yð\,™Xj§Ã«›…MO –H™btî ù¤>f\mÖqo9ÔÏ gæUg·pòÕÛ=IÜŒãŸ{¥¦×CÉínæÒw7. {]oì¾£E[“ ¼'àyNÙpyëÖá„š£¿9ÞÇ®O×…î,ä¼MéÎiU÷P¾ÏáÆéž@t}CòF»v;o9qBp½,"ßß'Ž£¼ïm'°Ù>ç-ýÒ |ŒïyƒqßôÊ4óŸ[æuÞÆxO§½ Qƒ¶Û°:Œ ¢ïC#0‰R1^õœN_óWÔÑjá¢Lϼ üÒêÚzxOÇ“ЖéòÝZ!‚™ ‚ÖN‹ä×&÷ãVw*õ´–ãUéw ,‰V5Òž¾'p«óÙ\+áÚçm´Í±S!ƒŽRlQ z ãìyRwôÝ* hm,蚀[HüŒ-î:R)iB…tËÕ´¹ig] ož<“·iËGô”µ9i}Þt¶åáÕ1ö¦N#øÎÕ<íÇÒóìûœC÷ÒA™– ØL¾t›ƒ%÷M .üdÊl©ÙïQÝ®~lw]ŒÝÒ´\–OGø×0.=€¤0v» ˜ùtt U©CfJ.U·S<€Ñ|ÇÉ{“-:*•” J'uu[ßäô—±àŒÝOõ- ʾô# ßèêXw’$¶÷¡ÒiAë¹¥§Õ¤ L¢Í;å0|c*@´Ë—Ø"ñ4»5IàªdâX'ß  ¹ÄÊÒͧð&·øY,/·[Þ‹Ÿ}QЪ º„EHNò ¡ÞÀà¤ñkʶI>hBs•®ÀL Óí •åf%ei´…&é+P­/¶ïÒ/¶ÆŠÍr²=©ëk¿?uÐ(jF_]<*4b†À" *&3t‘È¢o *Š{ÇRÀ7EʃÄx`„B¨Ëù~H#ËÌ 2Úž7a•4ìí¬lÜvŠU?b«îi§©ô¯OÅÙº¿æÃË¢n {Ag­-èœö«(ÒN’N »¦³¶¥OR¥ š57É|–Žú­ {"€hZ¹‡tLÒÊд=k°¡Á&o cÕQHcžž`B°;À1IBS€¨¡‘$Õs«W1Ÿì3´:åY=qe‰.ÛšƒÌ“EMÆҨ芹³Bâ6TÉäWªáÖ_A×zúpƒ»Ck-U¡ÖTª© ¨ÂØëÙ È âa+¿ÓÈ£¬TÝÂÐuø}4ÂQïÑ‘Î(éïi˜‘Zœ ‘êgü¿'ps‚€àzgm;¯‹L>sKÛfÝä1Ï[cW8Iƒ–§ñ oM¯Vlx½±È#I3.¶³#d}3AoÀ»µ ÊEš½R#ñ¥‘:žŸéæÜVq'GøÕWÌ‘°ŽQ+Èv5$¬1ż¬wÖ-g–ÙØå²|“ïB^ËJÖÄ>û²`Bðm¼ðîÎÂÃbÈ/Ïw•ãrˆÄ ÓÃCPÕ¢¥B/·@hÌE‘#7»û‚~|H¬–:¥€¨²Kªø°[ÖA(‹ä#Fb“{áÄep PYáç¬4IòXQ8ÇD8WÉ[ßÁ£ÝÑL¹«*Á‹rc¼*”wÁ~â””›žÏïô.?=l$Š…BãBZßZĨz˜PÛíç]Û.㢼‡À›,OÀˆRE@îÇýëÌEûÞ¸R¼ÕÔUx’ÍïYÑÒûP‼ÖÀ4_Ìh ]Nõ°‰Ñ)@ j´mÁíf‘Bí´Ç]íY6½†pÛ´ì|”iXñ,´C㽞JÞ Ãr§;gïE¤4 M²èh£3±FÜ¥ƒ‹ì–:"ôO(ˆ4kÁá úA$hA¥ò³IY“,ÅvPÎ{A"8àNUvYÞúŒ“ÅaÒ¸À-îß äÚ&k·ýfù†›ú[ÔT®AŽ:žeÆᛦ­=žØ2€Ò#ØÉÙŽ¡¶ÐåJL!=Ÿ–]¹H°!!äY„ ä…;§õ·Z8`ï1½fu _ú'©è:º%m’‚ ˜ÉˆiAyÕèkEv¥5·duV ?|i3xA¦”P6 Ei³UpXÀP§Òl_Kòjï® r!¼2J2lÀ\÷\dG‘9`ïéºÖøÿ6@YUŽ”Yü;nM39€ÕÁtH«J,%ôï¨ø†Žã;pn‹ Éé•·ŒÅæ«™à@f‡þ"¼0ŒŒ; ­#…$ Q¥®ñˆ“\!Þ# 45–ª’˜8]d}Á™ÐÖ Ú{q¼›*RЫ"œãkí„”|ƒ[¼*«Y{Ôª­!Ï“ÜÞ…3€YU2T²fUú›¤!9•²¦’Yè>³E!¦JÐh¤üd¡,´WÎÌŽýÆM>˜‹+…MáQìh—ˆƒM’)y“ŒÙ±?>âH6ùŸø9îxôSE9ÌJÄ°ã°2Ù©(à¸üT.Äû‰ÂXëErƒ{8ÐRÑqUI] by‹ý¬sŽtKv? KZwp)dÿ@U¶6ŸºÃcEÈ96 =â|qYàÑѺ(Ø¥OcA% F%\ƒ”î$Ïåøž{Ddn8`pGïbm)5꿸¦.VL®Ým!À(ÆMÒ–Y_ŽèB:Ô+:]W"ï*`¨µ6–2 }Dú蜭2‘@2hVCÛ 5x‘suöÚµÐ.M ò–>*‚Lí"©ÑŠ¬ìzÿc¡©nòfM2{3ÝÏ´2}2OCd¢pà„ì(/pîHɨñž óÍ¥P³Ý tbÈó9Ú›ÍÐuÀŒæ8ƒ@o>¶é1ªÊN÷³‘ë´7{‚­WGuÈ/Ì ÇÏ…î»kÓ¯Ü+:KJÇÃí]ê‰>Ç ’¯ðUç<¦cžQ»æìžfÏN ¶¢•ÈtG¨M¡H"êÄÊjB™ï7‰O _Í2ðyß•>æà€£3WÈÐ1Gáÿ.Šg¯XQ B âE¥Uƒ(5Á•uÖÝQaâÌ œ™Ý¶# nðIpï.0–r|V}#¶ nävµ«±©Bè Óc @xEá\AösÍ %îèñ DHmc‡{7z°xFPD@¼à‘;Œíù(Ä’¸ÀO%TÙÊ N;Ïj‚L”6È€*#jfQ¹â‚Ëæ;D<$¢uD-4IñQâ X¤&ÜÍ,„SèÂUÈ›µV %íL zDü½¦ç«î–jr¼DE ¢¬bŽá®Ž2Ç1€%t.OmÄ[»GµrxÒs˜kÏ^©…w­&ò˜Æg\$È$N#+d‚’ZHOã$àÏ# ¡È¢W­/ ªÌM8.ÓÏôEÖ°ÊFC ò"„ômø<å¥#äUñI·©ë¤ÝL#fÒ-}Þ(è‰1v¡.àú ¤¶ä¼úVu/:ÓÉ’»Êu ¢S-&]ƒ|ÝQ+ýrï UŒ^Bͬñ3&Yn^*âŽÔÁÁZJeLƒVDÀ›¬84È@¥À[ä­Ñ x Veç í6A®©z„šð«$"}ú]0#"ôŠ©YÒ¨õ¦bé@e•­%ç…„ õžè) } ГAî*þΪ ¶Æ'4é ÐÚLä± eƆÃû˜šÞ`0à8A® ¬“ŠäPh8'G¬‰¿&ýô0rb:Šê¿žTk„AòOÚ K‹š=¼'ñ©Jútr¨ØäU»•W[¯0Ù»?þœ¦Fh Ö2_‘æ)z6w¤‚­ ¦Màã¦Mpuäÿd,0¾?ä2±Ò€f8h&äá‚Ê(°°xëÍ ÕêéØWtk^šx£Eƒ›H¡ "ìF_€ lJF´ÎÂœe<í ·9¢ã]‚× Y”‡s¬lLÅ‹ŒƒÁ‡*ñÉW$Ê⧢PÔÖ1±…‚1®cËWÇe"¢&ýà·áq4ªðú¦ölœÎ†|$5MMâ+Œ–@\ Ï7¦†‡Û45„˜²Æ¡\˜lƒª+Hr¥³ÙðOÖ°¡' ÿ²6¯YU€‘|8„†ø)£‰Zå…”ÔÆš ñ²_ÞÁrjCg¯áM"þ­mtö•ÉÆ‘\|Ê•O…B 0×,9Çïéê³ÔŸI;rÌWzç>µ”Ô"âЭæw”¡EJ h¥>G/:QKçHŽL‘[LÅÚ³ôqû;7Ú¯©?c˜°ùˆ‘°3€h߸ª úÓÒð";Œðù ÚÓI÷Ê0AÎ]í>v‘RÆ–RèÔò{Ä!’Ä«+¡\•Èd\mÃ$ˆ5»'ïgÊl˜ðHÏ@Ü¡ÓK˜$þ<ûÀE/¤¾…kC!ññá |)C<Ö廎ånA£1±!0 EÙ5*‡ØÐLµb¨Y÷ªAhÌhp:¦Ÿf "a³kn\{`!Úf`ž¼n9FÒ6`ªöñǨ(rݺæY\` ;º C,¯…>Ê4s½ù.ñÒJô œÿi€Rgéän æp8½‹·NP‘4žÆe ©‰ª%;š`ñ¶Æ¥or¤viÏkj­•'5-”·z¸ÆFGíêUDl¿N£Ö¼hYÞA$=FÑѵ˜ Ä_ƒFEÐTO^U¥1œvz§¬á°•èþ´±Èù£WuBÎBŽ×³Èzšˆ@¦ Í´ázüÞdËî@ }å"ÚKø¦÷ä¡A'±AÖ>u¬jÄ5…þhê¤W&S,³É„a.òuDŽ‹ˆí ¾®GgS…ˆá+¥&¶ÖL†ØpUç-¨UÜ€t±Çzº$·Ð2l”ëݦ}Ï'—02U —e¥ üèôÎR¸ôâ&Zõ,U‰:§íò=霗Æ|#M(»ŒõÁùŠ}Ø´1 Q±©š Ót¨NdXvuÉt¤ ‡×7Ѫ¢ ™%¶GSEÌ9.ÖkÇ¥! š½ê, éÑÜû‹Þ?DF<ˆ ThM¡^QuÔ@†+÷8h~'Ö ŒNÕÑ•¦:døÆ;E¸ü%Á—)h¨’ØëΪ¦ö9#F]åw’€Ï”:è­ÙˆwUJýÓ@^à}’sѲÎìZGé'nCðé¶uþ óêÛГI3XÔ‡ö:CÂÑqrMšéLô·7â Ë׫¡À‘ƒÜš\¡5pMõç¦N|«éée^A" ¢4Ŭ_”$Æã‚q¢ÆLì¿0XÇFTªu Æe*cm»B_öÙ[Ó8‹x4,+šm k»ä?že¾C =-qtdSÖ×U½ çE£½1S*V`à”_“d=gµôØ¥«i u«ÑC{Å›m<§‡ÎBJìù!™A8Ž=m´}¦žØ,`uÃ](rCçIÐÙ®Ã3ÇN Ø?ç ¦!:½ ¿s7Mâ¸íA’Á"ït?H ´à5°=,ànÊȾYsµÔæ„–Bðžç*9ð=ÎA'Mšü XÌ-ùÞCDðM[èÖ)%ØG ûEÝ |ã›ý8„$WÉ@L#˜¾9• )E‚û2£Ø®t¤ÆF GuYõ0@C)I=@i\‰1c³ÓYèAÒ£}üÁ,Èì^…ÚõÀNHW¨?4'Ã$vw)ûp/úá:–tÕÙ˜y$í=Â]`@3‰ f‹¯³“q*Ù" ;¤eN7‰CÕS÷Ù2?5ÎõoR7%Kèo :uÔ)db›—ÚRÉo PÙj Wôx’‘V^ã3Ï^€æ^š ª@sÕ°ëüBÐ<‘™4%Œz“=Ì]–ÛˆUˆ†X±± ¼RÒãù ¥|E•ÑÔQ#¾$Ó‹ ]³7\%60Å”‡ÜØl6@A¢½ÎÎP0r[ϯlÀf§ôQó:#…¼ºöz=RÔijtÆÏ Áïš&Cx–Æ‘qßãpÄPg£ª/ø¡©àœ¦ æ,?jøXÃ+˜NÌp ¸ù&òzŒVŒ¢`šÛêt°¸1 T‚l ª¬a¦k³ðäÄÅúƒ]x*LîÔé9qÚ;p¬Ý:0¡`B  ͉åÔ 1÷y~A@…„†["A5@¯mù•0½^!‹\ìĤ$!¯1œ&à$Q¹V¨tntEÓéï9° 5ú³LC¾á Ä€ó‹ ɦp Âu©C3ǦqßQ1ëâ=¿©'Ç@œC¯iŽŽE@5:H•ái–c'pœ¢•²»•Gð±`#„…j?S‰½ºÿÑÀ›–0Ü£úúg˜ÛEì­#þ‡ªŸMáQI2CN å¤IÙ‘Ãà„Ž/æ.;ú6×wUãzÅ“x4=S$¦@(ô×H”›èG8=ÅåECÞLL÷ÒH£è´ó )LîUü…¯€šCUÐÃ{Þãînù\b¾@ôÉë1g=Ȥ“¿nj×P5æácr‡—0¼9^Ò£†2…éZ€­?çìkm=ƒÀôùÊ{œ‚zp½ “¦GÊ@íw¾Zðeêêä½Sp5ž­¢ÕŽ\Ù¾sx§SZýŸ*0 " ³l„Ø”š¢Þ ¾éš¾4ncá¶D }ƒmG99Ä0¤M(±¼eQ?7ÃÏUG²‰SҌꮛx›Ñï¸mˆdéŒ9ªÂ½£XM ')aÃûP÷z^ý×E:õõžSA°#{¥Vò+­C|Ÿ[`×'µÚ#ܬ+–¬‡åM‡‘ö­…÷&©à÷àû;UÅU|Äb ô°g-yáû‰ææèúרzéûÕž@<É š)Ÿ æÔTbÇ·ƒÅ"uœÐ}©·½É cü}×ÉãI €d>P±¸/Zšœoè¯UàBBÆøñÑ èpQ#CnRˆéꈂwܨ‡úu²ú>bÕ¹…ÁAìóvÝL#-9kðƒIǹèa<Ú3ë¨Aç mz^¸z%Û>oQGá2²††ÖÉ·X&ÿ’û:ˆÈöÚôÔ¥©[I´”‹¦ÀìÄé’‰A5‘Bvç¦ó7æÐþ׃³4MÄ_íÖ†¡þ¤2BÈ”VÀ³è‘Ԧ镣D Ø¡çœd€–¦cIOg~Wžð’T/𣃨n QFÓM@[ Íù÷Ì º9ô@”þ­Á«Žr3”àuZ+#ÖŠ@£Ài“€wôª³¡VïJeÆWÁO:dö ³NÉ–ª{—½Ý±óç‘Vÿm@CéæÑ}‹Ú¨2zÕÙ@«w%ˆžcs³NËÉjÀSŽªû†$vþœ Òë?° è "<ºwq@ûUF¯:›gõ®Ñ¥^gIübƒˆr A¤Ûþ¼m m]—Š~c4¨ ¤ÙCË„ñÇég÷"îÓüÈá¬?™LëƒmõíìÒ6ª}H¿Å ³f³_]}^ÅŸÅNÿ“}Þ¸´~¿Þ‘Ûªw¤‘Èߘñ¢+÷™GÉÜKæøf$}ADG•, FùTÕy—Œ‚[º :º¾}w|ãÑú`2ë0£óåÅÜfÐòºzó¥ëŸþ<[˵GDÑh9çlÏÉz£:vø9·,pR‹WSy›²H÷W»§=ÌlÐñ&§ÏÞtm{僽ÒÝÛÝò{R­1Ô…xQ{‹Ü毶íeôA¼Ø}Xw×Ïl¥oóö¹ Û‡ô[|ÔÎÙ?Ï×m,GµÔú?ºì›âÚ¶½CDbÆÊ’'1©wÈ*U… Š TËÑ‚ˆŽ~N>Óؼþ.¤ôÌ£pÂkÑ.Gˆx#¦?ÊŽÍXì+Ë«^b"|ÏüØWŒµ@á^Ô:£õƹlx÷ãƒQÃöa“­ômÞ>%ª}H¿ÅK7ÎÏó!ˆ²-Û-S¼CÛžw¨HäÞ™åÞ!ó(õiÊÁŒ¤)ˆè¨"âÀ`Ô™ÏTAtÁ ÷q§ÕoF ¢ú9‡¹·|¾âB,ÏoVb6øàgÓýKýÓÛo‰Ë¹Œ%ïò­¶u^ù‚("P-G ":v,Aôż6[¯s+È×½÷Ū‚÷ù {P‰ûˆ7‚./¤‹röxwy–³ËÅÝz‡¶-<ïP‘h­!b^J¼CçQêÓ”9>‚IO)ò&£Ì|duÞ5\óŒV×”VïhQuC¾àŽ…PžýíN‰è̸æØ÷2-qyåæñz1‘í%b‚ÈØAÑr´ ¢cç`¬M+é­áת÷¦ïÙ“»E¯è=Y—ÖüÆ›¾¯iÛ‘&:ËÇc>‚_ìÍ›á91ØÚËåñÂP>é4ˆ{û€Ï… ËUw0ØNßV´Âo¼ÐO»ìᇯ¯oZ‚¢j ÈÓ¥VÛ$ﶅç*ÞIu%ÞQäQuîmDnQµ~-‘Qå"LF•ùèê¼kfŽIw§¬s[mœ bƒ“:9À’¹\ñ)òÌT÷oØù¹ÂúYñf3‘\`‡«C‰hŽ"Fƒ[ DåÕ`ó")ô}…˜K ³ù‰íômEûÐ~ã'}­ bbàÆÏ’óŽuáÑýo˜àʶð¼CE¢åÔ±Ì;ª<ªÌ½ÑDúµDrDUT ù Di¦kϲ6«Ï²QDôàx¹œ_!Œ½AE±å´ÑWV¬~eÌ$msߣ{Ÿßx“pe[\X _®7^éq“öŽÑà¨ÑÄ6¹QóöÇ>l¿oÓí£ð[u3²(P%ßþ*Nåæʶð¼CEbƾ’¥ï¾ ß+ºso#Ò·Ý«%î#ª¨¢âÀhèÌg° ²æâ:6«?âDO mAdÕ΢"´œ¶ tÅ?ötQ`fËŠW´ÅâoÄc32â™-³L ì³’ÂGÝS ‚ì1ܵ Ú,†­°\N{úà– ü2á"iû(üÆ«üúív>î„ò%ˆvëҶмCF¢åc™w|çQWî¶ VKÜGQEÆÑ™ÏhAthÓž¯î65_Íâú‚¨å^ A Zö%¦Z‚HxÓÓzx×tÜ|cÚxÄ›Œ‰0/ä6k-Ž×Øk➎Q T‚¨,Ìó'=OLÙãÇ^(‚HÚ> ¿MÅiŽ{H*£N ¾ ði[hÞ!#‘{'%õŽï<êʽDj‰ûˆ"ªêQœ ¢3ŸÑ‚(ÎïU( VÇ£&ˆz?D¢ˆ2ù¹ JJϹ·öxÙÀKÌÏx“ñ",œ ÆŽ:>©»i'.AÔûþËڽ#£=}P´v^iw[íÛtû(ü6§=®üÍ4m—˜Ìòi[hÞ!#‘{çQêßyt²g‚hò3A¤ˆ*2̆Ê|f ¢¾0ù:•,O0_U ¢l§Ÿ?yzhÌobD‘BÚrº‚èIzοX,'–³¢°@Ã+Þ¤¼n~ ë„x©Ê¥6äìÃ@*Fu,P¢Wáùt]L•>8^ì>ÓøÈlYÉÛGá·‘sOʱm»0f–wHÛBó‰Ç}eS×>|ÔNÕtî¤ Ò¬%î#Š¨"ãÀpˆÌg¶ :Hm"›Y}SŒš Æ ¢Bs¨Ú ‚ÈXˆ–ÓDÙ9‰œ3¤Ø 7>ãMJu]+ø ¯¹zùÔÝ“6ëRéÕ±@!ˆ„[{­Ù…OoÄ µÕÞq­ "iû(ýö½YØÒËÙ§0(¾©Í‚ ði[hÞ!#1ã¸47ví*Í£ÊÜAA¤]K\GTQõýó ­v‘ùÌD–ü¼X[÷²Ú8A4(ˆê‹=È5îíÚQt ZNWIÏI;®FÄã|è—ðoò1äÙjqáDé+J—"F“zUà ºZ]^Qû€gŠóåÏ|m©oÓmªò[‡‘òõK6›é3‹s~ ߯àGíÀ;¤m¡y‡ŒDÒ;Ê<ªÎ½ÑDúµÄuDUd˜>{&Ï|† ¢Œ›¸¶NÚCA4³~)fz´˜¿kBE²åœåaðAO‰Ã}>t‹ C7-9r½\\˜MŠwðó±|ÿÂΛwŒþ² }°Ù­O郅ÿ¦‹_I]m§oÓí£ðÛb¿fdýõµìB9C´cï(gˆBñ‰´wyÔ#÷FNý –¸(¢*ª3DDæ3\qcVÞ{.ˆŠüÕÛõíD‘n9gy¸ÿ‘ â‹tÄ«Ýoâ†kZr¤ZŒ¦K¶_üp­ºð£¿,ˆîékêíƒuG±~÷45ÚJߦۇö›5 ²þ‘Чc__Þ¦v;0À;¤may‡ŽDÚ;tõʽQD?©%î#Š¨jûù‰‘g>ÃÑz:«$½sÏ¿ƒñqw¯DQn¹Çò×ùÑÀñk6‡â;õäHUÆk!kjcט¼—V£¿,ˆÎ„çùõýJl8ú’üdöÑXyruûwZ;ový^­jQ·[àÒ¶°¼CG"í:zåÞ¨ ¢ŸÔ÷ETµtn 4iæ3]-/ÿæÝ['íŸ šØú ‚(*Ð-W±ß íܤ%`Á}vÜjÙǾzr¤c øFe² ~SêWÀÿô÷‘¸·î×zf^éq8·ïÕ† ¢ýÆ+~.ölµEݱÆ$ﶅå:iïÐyÔ+÷FMý¤–¸(¢ŠŒã‘f>ÓßÖkžg‡ÒñŒ!‚è‘å–Ä/¢¼-ì.p—Yd [.a»ËÇZßiD²Ø¡KÊ¡c¾éI¼AYSŽ<ò»¤«Ž_Kx§~=A£ú¸|`µ™íé<áí‘óßXݬ}h¿±þ~ø)øÞk©%ˆvëÒ¶°¼CG"í:zå^"ÇG0#é"ET‘q`>ÒÌgº êZ‹©K’­“ÌD·Žm«þgï\¼¢¸î8¾’Ì0bµ%>Ò$ÆÅÄŠ5ŠM¢¦­ƒX‰zÐ6G¬¦‡äDóòuô$zºMÚˆ9J˜zº(lˆ@µ<V•ˆ b|%Mš¤í¿Ð{ïìcföÞÙÙ‘™;þ>çxÜÙÙ~÷7¿û»ß;sｂè”ìû!DÜ rå:¤s }JAD‹•&å¸ì‰}•,„tÊ\Ã>«P¼'Ùቮ¤º- ù€4j¡ ’‰Bj>pÑÝÖ¿u[åú0ý&6*e:þzK™ì–mFy‡‰*ÞaæÑH¹—‘ãyÌH:‘ZT±âÀúP3ŸÕQM5^$à°ÓÙ鵬 ºF_j>jA„ÅêùÀÅé†uˆøAåÊááŒmþ¾ei£S)ˆh±£Ò¤àTÔè••õntÊ‘šfÔ—<ª˜‡SŠ;óM!C ‹Š5ĨN h>(ß™îw\ËÉßaû  E’Ú.á—AÆ¢n«\¦ßü/"ŠR‚áÁÏ¡¡ …W­ã–mFy‡‰*ÞaæÑH¹÷šž×‰X3#éD*y‡Ö‡šù¬.ˆðЧ£xŽÙa V›$ˆp´Tw‘úWXP¨µyð*Vtu¹*ñê8ž [ÛÐÁ ˆxAåÊ‘î*‘è-ñ¡8Q"Z쨭]„%ÕÁÜ9¨9}S¾¢˜N9‚{ásg[±¡Ÿž-¹êò´Öþóh`y~ÕÕiÍb£ælÂw ¼§›eqÏôA«ó`c‰¸T¶·þh¿4aÑ^–ßP²ºIV…éóù|çÏ|Ñ¥mEï‹deé³<ètÅõÇnöZÈ; ÛŒò;Õ¼ÃÊ£‘r/#Çó˜‘ô"µ¼Ãˆ f>Vëlp$v1¦ö)­6I‘»†ÎÎóíÇÏUK^]ÀjŠ+šÚ|=åd1›=¾ö3eâ²G³¯É‡óF{«´ßw¬©­ï¤¸ò葃çÎ_9SábØWο]çy2«¸é¬òI%vÔš”RòûêŽÛdÅ–C¥w/ˆZNÅ@‰b Dªôu#QA…”)Ó‡ME{,ÿê‘=#ð1Bâ´…æ‰b›‘µQ§GM´Í æüýÙ!ÙK”‡ƒØ1$ª@$ˆÆÿÀDߊ?¸¥ý”îŒçHô¦þcÆ#v®ÞšH‰Û8/W[-É ãå)‡LFž‹V¥-Çðή#ŸVÛx|íÓQ¤GÕ¦? AFQû0é)Êæ!á“'‚ÇŒÌØab™Âm3²6êõ¨y¶dAÂ|Ï[ìU ˆŒD7˜‚èkñã5?3{us0z'hÒóîÉ#CUAxt•¦Z2C1U~ʧ÷ü,JAä^AãLZðiµíx“\…Yv)=ªÄÊ•òùïYÊcŒÜTAÙ<, ?¾/û·äÿi敉b›µQ¯GÍ³Í ê~)¦ëÑb[0ô)¾bLj¨Ad  ÿ_– ºáÿÖgfý…Ôí¡qä&‘†ÞNÖCbUHLoÝ÷ –Z2IM},ö(F?³ñ™'†E'ˆò-p(-ø´Ú~ˆñ:Ö&¥aDÕjü]ÎÌ\Gæ¼èÓ_ÃÜ€zòòæáaœr’p_e®æÓM+T¸mÖFÝ5Ï6ƒ,˜L*N^¦#aÐ8@¶ò;D"CÑè‚(펿Ögf›†#W ߷Ʊå,šWD>b6êÅ]¶=ͱ&1ø×7i¨%ÓÑæ˃엞ñ ¬‡’—O$ö ŽJåF‡®çMZðiµý¨CAú<’öŸÛ¢4Œ¨ªC™Džø9 wf†('d‘7Ðïæû?/GŸ?0«PÛŒ«º=jžmFY°e«ðzzè Â;<ÅŽQ‚ÈXA4þ[ú¢À3­ÏÌ–!OýH¼/´3}N×PE„EAߎÃu!OC-ym­¢Ÿ/ßy~\qoJ“ Ú4+°Õn¾¤ŸVÛ‘]èüý[fƒ²0£j7úæýÀÆ\\ÝGÎÙŒªð YóàF•750É"íO1i¾Å6Ãj£~šh›aìœ ‰Åh÷Žb'öQ‚ÈpAô=]}Dšž™¥=Š:ȱ>3Q(¿ á ™’Ïø¦ÐÏ#×ÒUXJ?~ä­¶#/BvÂAXdƒ²0£ uØG$·ðx|ù‘‹±¦Èš‡|ô«1²l:ÈœRQl3¬6ê÷¨‰¶™’«Þ@»·q;±*D† "‰m%’awèD¹Ï O#u–Ä—´àÓj’™"9Ž1(åËoOÎÍÊ"‹?˜õÓ=“wçÕÉv&ÌýÛÚœµK&J¿[“••…ûÄ™Ë>||ñÚ¼°%'þ”7ýÀå³>ߣãlÑEÕÞDYÅþCÙ¿#÷x·Éš‡AxŒLp O©ZhÊ¢ÙfXmÔíQm3'WÕáá§üÄŽQ¥ µ¼³ãÕ]{lؽ?>ŠL‘4/cAÆ›K)‚ˆ’w¶geíu8&­Í™G²áìÝïÏû /‚èûÐ ¹ J»N6¿ÔüÌlµô‰—cÚz-:{fã!H‘k‰cš ¥Ÿ!‡ú NÛ¢ÙS–ú« OÒ‚O«íÇkè ì'Aÿ–ìûdAxÏáø|š2eܨЮ-ó“ýÓRZ·ë~´½Ýqàωþé 2¥§›³$50— nÛ|iwYÏÙ¢ª…²»Ãñ’ L‘îw#£Ê‡Ëš‡5)Ò_M@’1ÁŒ DµÍ¸Ú¨Ó£fÚfN®rKËÇŽ!Q¥vÞ™˜ñt …¤¬¬1S$ù§nǽ|?y 3C=ïü…[‹¿L~åFbÄjNÑ×·ð-¢Ê"òÄìÖwšŸ™á{BIÁ-<7~Ttö¼¨ÈŒZâËÒM;еÉvèD"ïr)-ÞAd2ëP²ÎuÄÇ)ç ˆÜåȪ!#¸ç±TÉLÉ)nibÚ7hXh×fI§xð0ÙüÊõÿgïZŸ¢8¶ø…tÕ(/Y^òF¤Ü°ŠŠ²  Td•DW£`X¯h|D¹Ñ ¹ÆF¯-s¯?¥ü’Ï~¢Ê?ÅX–‘Èõ‘áöéÙ™éî™YØYvNÅ<›¦çôé_Ÿ§° Ö,sÕJæ„R„Òèûx§’–)uNÕ%×ÃÇcx€zlù@Ú}Kðl´<¢vöÍY5ŠoJÞI WYDÚrg‘ 95¦$Eûˆr9­¯DÚr¢ßŽ‡› fKähg’hˆ^((ˆD¯ÃîE¯ÌÚÌòÅ÷B½ÖúóZ­¹Y¢½ú'~lfa€h}RB‹õ. ²—žåHÞC~,À»¸Iñà.3DtŠl¬.õ/køÔý˜L›Ï"TÜ3| 9dôéý(J/ªÚÐâ'Mªî&±´f«À¢s‚:¯ÂçÔFò—°~¬Œ]®àËC’‰{²kÇÒé[‚g£ÕµµoöȪ+ Dt8ï$’«,"m¹3Cô6?ÜÞPMî–øLHŠVr>Ñà>ȯ¢‘ŽÜÁ€¨ª·dðç ÈÌÖÊû!‹yr¢✠xX@$YÌþÞ™´™uq@x³ã YéÎþBÅ­&fÉ÷zºÎh‡­ZD+’Z¬p‘½–Mø÷ïŒÙXL-ÍUïÉõ 7Ö\¨ÓJLAŠ ¿dwï› ’TdJÛ©a²,N’ä¿Ð;†ž\éØwÔ¿Nù+1µf«|œ ÷*>_£Îß­aÂrvyá±ðbÈ‚5í¶ßG¯o žGÔÞ¾Ù#«†˜bgóNB¹Ê2 Ò”;Â@eY­´ÈÞØ \´Œ$Ø~:ö’ïq¯’<Öj,wÆAù´ _+Á€ ¥h§S‚É¢?…¿$àÃ"b1›…&mf+¹ÔC‡,:£‡ª¹Ý’î, °jf•ÀÝ ´v¾ok²—»€È¥„fÐtðCü” ,B7#^x€/¯{(ï%@ØߤÓ š¥«(Á”CéŸÄ…µf«BX¾M¨§Sàp„ÖnäçÍny˜…üõ¯žÃ†±Â–ò º}³th "_:BuÉÂ; å*Ë€HSîÂuõp?¥·1ÀR&k’êi@¤'wÆe{>4“ÞÝcüNѱ€è¥0?Gpˆ¤“?ðÑSßC—²ñ¿|Ÿ:‡PùOL÷Å{Œ‘UA³d BÎZš÷e¤• íbÂï÷!T 'È7+¯v‘K ¡éb9 ²¡†I^05E¼̧´ÕøûyÚçUS¡"ùÁ¯@>ÁwhýùØZ‹«üøÊ-å ¢=Ñ^ù ’ K ùåáÓKÄ!ÿ4|}ÙŽïcÐ7›A‡Ñˆ¦" :ÆOóNb¹*@Ôå!±@µÐHŠ *;¦ô…€HWî z ÷äL:"†ú“IF±ÿq€è…Røõ¼QŸ¶3¹‚Òpí1Ñ qٲ慠ÀJ™±ßÔ,ù‚ñ ;©†9ßÀä’دÜÛ:æ"—éêª IDATAñø?'GµÜNSi¤ÛÎç\a¦!%ó(L÷Ô;P G^ã•AË [k1pÕNH/¿/yMÊq*³ùÊ–2ry˜ª’fd¾=ùK ûf/è0ÑTDßDNÇòN‚¹Ê: *ê.8¨*{ô%Eïö“«gÅ@˜ÏˆâŒ·.Fk±pÕ¶JE5;êÆÛI­›™†P¿ ½<ÌBDî:Üc_‰cItn=£¾9tèŒh ¢ ”rÝÌ xÇòN¹Ê: Ò«3zº«e°´¬ ¡Ó€H[R@ >íþãW‘®ÜÁkÿFåcK>qÝɈˆ}ln~žDj3³õÌiø}e¾3ÁpRÏð™˜%4ÍP>ï Û£*™?|µ ˆ\Š;U –ªÁÐؤcV§/xñ…E0õèB˜\ùOõüº­ÅÂU¾þÉR}Ô+lUòÇaI8­½92SuúCkºQ»Ck–°Ñþᔽw¹(ÀeaHæ"—âIÜvA¦69õ†‘`?¥Ë êiãÍ>‰YrF¥µ˜¹ ª9×­Ò¤ÿ!‰w¤—¨—êt+3LJŒúæ8СŒhê¢ßÀÿd7·Cv,ïØÀU‹ˆº šþ’xã¾@4ÃUfU}ˆtåNò¢ zù‡ ˆ$‹Ù«72™²™0 4ošõê%«ø‚°Z³„#(s5ü'3lDhs8©‡ ˆ\Š#+º£z†0FL=\¾™Oðù9+æÈ>Êæ¿àÖb㪳òÿm´<ìæ*.üŒÏg]@eDS]Ä?ÿwѹ¼“¬€Tuªš¢Ù ëàIêN™ˆtåNò"©~ǽçܨÿ4c3ƒÒjâè5ŠP6O}œÍKs–pô#e©[ÇæáÔÕ. r)¾TÃ)&Alo‹"˜°YЄ]JYb³&o8Š//Vk±pU»"(–‡\Ðî|žë¢(#šj€¨>¡Œ#Z:“w’gÂŽÀ‡?: ‚ÐyÊC*˜®"]¹³ÑkP)>D¸‚®oÌØÌö3Ζè_;ÔÉjˆ´g G D’GºÍ‹P„—Œ ˆ\Š/má*¦ÖÐûZÁt‹‹é(R¢1LCªèô"´f«ÄF¥ê„8ÍЄºá7kYÜ&çl¼ËùnôÍa ƒÑD·*ªŒŒÀq.ïØÀU‹ˆZ³™D¡@X± Ñv5®[Wî,@.Ð!"RÝlí+õÉ·flfË83éSíí«3L­õ3Wtf G ;Íì(V—„3lº€È¥øÑT€6‘ RÐÙÈ”±`"²ã3FÈ4FL Rbjá­YçªZÝB±LÌ·†škðˆG±pÛBŽŒ2‹:¢K­m§FŠ–¤á¤‰2;ƒÿŒrvÎ N2Q‰nôäÎRDo)@$YÌÞQ¾4c3»ŠÙZη 3o7{;&ÇA„¿¢„*Л%,íªå³:„r|4¼:ã"—âKÛ"–±ÃT°¤ ‚$Yå¹á“Öê‚)sUíûÞ.lÐÚ¸*tÒ äšX6Ðû¤®:.dÅDfFti"þ(;ÉÂ;Iˆ@{]–"ÞƒÈ Ú‹KdÍåºÚ½žÜY €H ,{!~¤ýËŒÍ †Ç/ÅóM_RŠ˜(ôÄÕ„™§ÔI.ø‰6z£Î’ÍTšÞÑïô )ƒ'Âé²~Åðª$ËD.Å—@ ýæÊ—”S‘n>õyMÀ«Ïv¦Q)¼ SÊ?-ÿéÎÌ'¡µØ¸JÒIÍvöBE…z3ËC.$'ñgv 6ÓB†ç"3#º¤Q)²TËPWrñNÒ¢/`@û!l[<ý~Ä "^‘ xe—ciW¬"=¹³$ÑGEX̯)›ñ:/Êö b=`›".âIˆî³/”gh×èO0ÐÅ}ÑgI¯g°i=LŒ»í'ÁÁ«ã±Ú ¸Íwl»,x}OàÖÁD.Å•B#wO2—{ÊEDS GBÅuu$Ñâ¹`t3F&P ðœ¿—dW+ .¤µØ¸*¯Ü_í/ƒ¹…rjÌ-ÿgï\›šXò0¡bº¼„¹ª£Hˆ„=ÊMDñ¢ž#«€«+ hRàºzУ,ZˆX%Z¥¯,ßìGð»ì¾Ü[û!¶{r›™ÌdzBÒ™Àó{C2M'=Ýÿÿ3O÷dfÂÿÝ^*=‰ìÎêÍZ¬gˆxztS"¿Æ¯“í¹;¹scÆEÖ‡þIzTVý8Ÿ!ú!Ýø¬òÁ^ö”™Ža™!ÒÑMaˆ"§Å¨!JqêJ¬wºï¨ k¤í«òMª‡@ÕµñdÉsÅÆsªÛøÖÇ‹<‘ŸºÂŒÑ/{žp”^{ð£¾!ÊËÛã ?×óªg_|c2aú¾|"ÛeC­ý´¢ü怉ÇšŠˆd6„^ew¸,kˆ’öèÖ5D¹;9ô莼õð}îIIãéÌcˆòþ^^¢{Ú·CºîÞŸ\w6‡!Š¬ýKºIã¡ÿ(¯û/—!ÊûõCQøyÜÛ·á`f?_qc­—ÏÆuqâ/\Y²ãûéòÈ–k§ú[ŽÌì çÏÌ"ÄñëÉgŸ/›¹’ؾTýú]uÛè«´|šyFÇBï&œS¦M®—Î`ÈÓÖ£›‡1Ž0;ÆqòúÀ¥A³ƒÔóì]õ­#éQ±-ÝûZg{4ŸÆZ»zpÕ¡1<Ï:ß |ô½2‘%Ì„¼>퇾ë ]’=ï†["ÀÁ††0D0D€!‚!  `ˆ`ˆCC""Àé"€­ `ˆÐ€!€!’ãØäÀ††0D0D€!‚!  `ˆ`ˆ@N1¼2çE/,E•ÛínC7l Côb,4óùN®í_n¶z“áj›øvÜn®RíÉê™Nït—FÑI!gí–ÜÕÎÆ€O·xÔçó½0YG öñ/¡àkïL~G×ØDðz«_³cÆ®/†œvS%¢”BÔø¤¬UšQ²ÀO„£¹¿ƒëŸúÞµve<Ó›Û©ho‚òq¢5¥ô Déž<–;ãjÝVw¨¹±iEbWs¡45.þLùÔTIÂ\[T$ÙöìºÜûEg¶¶ž+cM³­têT{CKKLÖAuK¸·wgì+|÷JÃq`›½¡ÎFÿÈn©èéWw‰(¥4>Ú-X-Hd˜'ª„0¥lØ6ž"¡Šdzä(ûÖ¤ˆ'…žî:©Dbª¹>íÕP>.CTû0ŸÄèvæHpZ¹ÕDÍÃͪÕ±}l¿ÅYglVÙ9ÍÊâuº©r4›Ë)ÛÙÁK- ®Óñi®ƒ´ÚÔIi\GÓM±6œÍÐWøûËeã¹LQè-Š•<èá,¤‚ÆG¯H"}ÆQ%ˆ“ʆ½á)!¨H)Œœ£vÛáØö²‘QScj*SÌíôi¯¦òñ"_G¸Êá°¦åçÆIRK·zë¢Öb¶w-³’-êà[­®TuN¯êN—å7fqŸüsR«TIi'—íªô§AcM²ë)Q%¥q „°²b¶âpKf¾"¿BwxäÚ¼¬ðrÔùRQ»Ÿ«DRÝð¢Ä¨źî!r†ÈŠ”ÊÈ9ªÂ ÚÖ`™15‰)ævú´W[ùx Q?«ÔœrÔ.mc‡·ÒœˆMK·š¢’ãrZ7©D4Ð=­¿LCvø}õgž*Sl¶\|3øyÉê[¸BHAB€gõDÎv¢•”÷ضþ]Ž©É·ôÕíÄŠ%¤\™”Æu2O5S÷=iY•¡…Ô6ªT¶¦á»ãç2“Àºø*¹«Ž½ír ¾c¢5çà(¥‚ÆG·÷*aòÙ0ªDÑÉ%Þ¸ž"qŠ”Êȱ#Sq3[ÊŸ^c‰ÚibLÍDbŠ¹FíÕV>C4XJê¢ÇëjÖI÷s!6-Ýjvý[A!\e„T„׫œpèsœþcÑtü`Z³j©] ²¹Ó/ Ié£ùV ¿¾ÅDž%8éþM‘”Æu2Ï6«:é³uAÒt2ú:IJ1+¦ïž„¿ß×M_·r”R QãëU®z1Œ*aü“¶tÌd ‘0EJiäöÒ’™ÍhàSS‘˜Zn§Q{u”ë7D¾7ñœ7Ó9˜ÁiåVoCä¤;:~9Ê;{¨ uæ-ëðÞ³ÉÈ=BRž‘ÿÖé%KwUÍ4SƒsŠ>0¬#€*1©áU-ˆÄ&qöý„>ŽþuõÆ%¢”BØøpjU0ñŒ™FT c;mÎ>“%0DÂ)•‘óÓ4k®¿Û©ÛºxÇÔT$¦”ÛiÕ^å3}¢êœ9gfåVoC¢;]à¡Ó[7G•.Z¥Â²;t—¶®¼×q'!)éÔªl<öŽé~¬¬¹LHwíŠ") ëdž1*F³£âƒâA¬Šó™êê—ˆRŠ¬ŒO­¢í¹ÖeUÂ`×í¸L–À S¤TFî±â„Ó}·Ä;¦¦"1¥ÜN«öê(ŸiCä³ôáJwf±V¢ñ¾m§ûOuªVó^ÒÍ^|;µÖ7¸KY¥wa¹ùkãz ŒtÃ}!ŒÇô½<¤kÁš_nÿ6p »ýåêBó¤ò‚Z›Í¦†^^ò]ö>Owô}dòA_®pTÙCÿïœ^áãÈþMë Žõ…æI©ËÚî6O^âéѤ} Í±Y²ÛK?O”ƒ…„ìU&ü#Eź哣Tž”†uÐœ¹SQº´Ù™Ÿ{R¿DY¤ï K)EvÆG_«¼ì|Ã(ªÄA§ØùfK,@2õö¬U<3sÇ„òOŽTÜØqG“먱V™DO‘R¹%Å5½l ¥‡sLÍEbJ¹NíÕS>Ó†ÈOOc[«µ:©!j-ü¿°y|»›Mãªð]"ˆmHæšlÊkf¢ÖB¾YOßÇ?qçjEô¿m¥–äöÁ)xÚkW•Ç Oa¤qUS;:XIȉZéå6¶ÜÉQ¥¶œÚy½ÂŽØ•šò­ÇÙYã¶Ù=OÓKê {=š¤ôæû"¡Hʺá¦ìýU•ûó·ÒäpÔÉ“Ò¨ŽFÝI:;SLÈ÷û9}¿ÃQvÙ¬a‰ ¥ÈÎøèkÕm¥Êõ­¨G“®¨6Yù ¡¯£ÎÈqØÖsNNå\ºm›Û#9ˆ£ÉuÔH«R˜_h+RJ#ç¢Ç‘ŽØ»„”ÛùÆÔd$¦–ÛiÔ^=å3mˆ¾Ó/¿˜s†Èj­Nbˆìe¾¦ Z™È}ŽóOc…#±’ÎÃêks ‘³EQA6ó¼Ü.ÛÞá—ËÂë%Y­"ž»Gx¢æ¿‘¦~×ÍO¯R|Ǭ!ZýiÔ±go8iÜ£ú}`ÄyuRÎ+Äáø™·ª9Yíûýò¤4ª#€û´ wEGÿWú¥§dQ-›xÚ i7,¤Ù]­ÚS˜°tªUâx kˆ·ö¦ ‘¶Ž®(Ô p†Kù¼WãÚòrDnˆ´u4¹V¥Îy3†H|ØÙ§èÞ©ÝÑJÒ5'3‘¸‘ÜN‹öê)ŸiCÔ¨úòÜÀj­Ö7Dv4yø}m¨›MHÊZAôÈwBºqB K¤Ø¡ý;óC+ÃÞ/½Òd¥áýdÈodˆüìƒlOnö{¤L?7iZ3[õÞÓ-½x!“…7Ôe—=_îïx+™Ž«ßçiKÝ»öú·x€w=—zMB_Gªæöj¢Ûíå+·Ù•ý‹³¤¨Š]ì_dØ£ú}`ˆS”lvAöþ&}/›H^ÜM©Bž”uDpFG‚˜¢Ý^=lìTe —A‰(¥ÈÎøèj[b )¶hF•8*t/­à¼ 4[†H[GÏHBQêé?'ÉAù4‡ò•n§SRÕ?G ò“"MªUÀiÆ鋾¦?¤—ž(Ä!阚ŒÄ åvZ´WOùL"vÈý’s†Èj­Ö7D“´äí¢”oKìDOË”<‘=t’81nwŒ^¾1‹ sñU×I¹š&3Dl–þ<²h9ýðÿÔ]ëOTÉCf§cXäéòÄ8D‘DD×€Ïèˆ<”Šàp טÁhtãõ®É]MôÓÆ/þþo·ë<»ÏœêÓçÌLÏ™ú  MÏôtWýί««ªoÛ~^(Ѥû‹w™Ø·:}3óVЭtÊM‰¯ %DWÃWi–,GòÜÈ·Ož³.„ˆÔP¢³K{võ¨NªÎyÍ(:ŒrÄᶅOš°9@-! ø¡ž5Jq%A@žW÷ù㚌°øµå(BrÕz¤à-ª¢4ëƒaU¦‚6n â®Uê¤Ýev„y׌âèJjtP×°ÙL0ùàì§íü”ü¡ûéûÄ8*Ä*U„_Ÿ$(ù ¸lqŒ¯“"ZS¿š˜—m{1äóKˆF(¥n-;>ºQ£„hžUÖ<\¾à–^Ûqdgrú@Ô}wÒèB•!Õ+Aˆ("ÔT1v`ý´Aÿh;c2y0ŠþÍ*ÔœÄW6£t*7egG;aÏöú"DSæ ²1ùÅ*u#˜Qtå«fÎÜ2û¸ªwéîQû:Cì_‰û(ºyŠÅ.6ê.üÁâ_ýú0gþA_ýÅ´¿¥¯ÿöhQ…%Y«^2bDZ¥L2ðÄo?}>[ù| «E®%$„ÈGc± üÆ´>æ‰|¯ØÌÂâ›,!ÂpT„Uª‘h}z¡ŽOÇÒÊWpa]Ÿ•[S¿š˜—m{1äóKˆn—é„^B7j”°ïy…´’l†3äï¹}þÞ†~`üê"B4‰¤²ôW0¾bª| „œÚ°ÐmYÂI]ôðE»¼ƒŒËcæª~“ÎÜÍYyB¤Õ²»df&©ìñšÑÉੇ¹ðÛ’SÖ+ÈQµ_ÂrëwœáŒRÔG‰ÌÒµYKvZ‘µEt£F ìRÆ’±2“ð:çêc‡¤f´—q‹¯±`È.a;OØÛ¾n2!z"BDm7âæþwÖ“°êæÖ9.Rª”«5b$aøò Ïž4:ÎlÌË¢:s¦ï¢k-hF±9d”°¥l2çãwmôfžJo…U܃ A5²Ágƒ9qº)«EU¯ÐNÒ€žõ+¬Ö|rèÆQ3#@Т )J°>(VAy¢_¹­<¦Uªäå`ý9‰–°¢FÏðÇC¶³G¾~Êel–ú›MˆP`•2B$^ŸÌœþëŠ>É>þ51/Û.öbÈçm¥hÇãåƇB8êœË]5ÛrÄ_gs2÷º\s 5^³ÎÈ BF]üi‹PërÇrk°Àd¸×ó›>ÎÔëk‚Žß6ò/šÓ-R„(’4@úèG-ˆhF±9d”g!c÷™†!+@Ȫ½¬]q A5%=þŒuÍé¢9{-!Š4N1•õg‘–’ã-ÊBýúàXÞ‡kW’»V)“ùÛïný¾ùr£]{XÖ×I´„„y+RÚžoùzø"šlB„⨫”"áú$˜ysk=r}ükb^¶]ìÅÏ!Z¬·#JÊGÂ8jŒÝ¢?ždþî{´¶‰¶¼Èæm~—ôÐ*nŒo:wJ 8Â"´eòðnl¥é÷\U#Dº´»ŒáM_è.çÁD"ñ³Ì­þtFŸšéï2„¨Rûá›åÿé6&N4£ØƒŸG@áÎÏÝí®!dê½íq¿Èa:í£Hžj3lÇnŠT¢éôÛöõI­ðJ¢%Œ¢\¤P½>8VAhQ“Óê­R/½S ÈÝ·xKI ‘÷6è OˆÜ‘ïWÇ0;f"GX¥Ž Ög¢jšoLFŽF%úÐÄ{ˆ`/†|~Qÿ2¤– 娥ö2’¶ב[`o³†¼ãòfßØðævÆÚ…uˆ>ë®›¡£|t%k°é9f½ÛönˆÀi?°Za¬î§;àç².…+×\/qv#Dg,[ÑO' Î(2áç7Û©<§ŸѳWëè”vÆÀ@ú¨Ø¥š•Äcº¼Èyö1dófÍÜk—h‚+- ‘Bíú°jÊy+Ôªˆ–²~Ü_K ÑÒÔÕyh¬m¨RËc‘;òÁwcÚ,B„⨫Ĉs‡•êB"çúh7­nÓï0r]ˬ‹zö ¢‰yÙvA°C>„( NÛr 稱 ê_I®$Cîp}·e;.frT¢2„(6Ÿ0k†1ª˜¤ý³Ü¾žþ"e½Û „h`¥çQƒAÇ__çå÷.k…ÿy¢zËVz8ΨûÞ­vꉷõO¢`¿ʸ†QÀpï£J`ßšÊد[ ™.º­DáŽÆÓ†’ºå›œðhQ‰*×G€UUÓ„Ô²±Wb­R/³Ë9Ipž-¥#Dܤ³P0„Èùn8Š*Ž›„ÇQV å#7²…#DÜúDáEBg¯§ÑbµlŸ š˜—m{1äóAˆ`ÐÏÎÆÊLÂ9jŒÍy¢J×w»Omß`_|vâ+ÕŠˆõlw"ç!×µ9#vyyåü ¬ gIoz…n$Ö4‡ÀïÔ‚–i €¤<…Š²cQOBÔfÙÊ.2ÂuŸƒ<Ô™ý3>õDõûÖ-'™Í¶\Ã¥2 ‡™×ë2Ç ù3¢&Û‘]íøÒöÍŒx‹Z¤P·>¬úÀ÷–Ñ*å²-ñG²@‡BB䎣ÿìÓƒÜάm_Î"wä»ìÈW[7 Ž£¬* !âÖ›Ì|º§”Y4<õèHó²í‚`/†|ò„ꤎöÆÊLB:j‘‡¨k„Ê*• ºôz²VaN†´ís§!ÎyÜ->Ô«5XWëÕ8¶O ;-áor•6ûh¸] ¬žh 䘿êÇi¼?B$œQd‚¥%ûÍØö^ºçl{b Ýt ÁÿoD}Ô \$Úɼþ¯š<·ûñî\Ë1ªÁ–šŸï­ IDAT!E±×G0‚è(!5Lv­R%Þºí³%\„âMHÛÒB¿ö*-Cˆœ"»À Š£á#DìúüÂmX8v.}‚ib^¶]ìÅOšÁeèB¬Ì$¬£ÆÑQÇFPng‹]±î(cÚQc„è‡(#C@ˆŽdIegb.ý;÷CfïãûÓÂ,œgÎÈ_8‰[q¶þ Ña‚.曟ÏÏúœ«®œ?„è‡\Ž 70ÊnºVqŸ€aõQ(Û|uM¤TPYx—ñWp9Á„uã-¥AŠâ®p§1!$D›èâ¦ú£à „Ü–­6‡y/Cˆþq‡zn"Gƒ¢|Ijå.8ª'A„ÃÏÂ>51Û. ö"È'Iˆ6kÉ.ÄÊLÂ;jŒÁE¾Ýþ Ñ‘is©`¸Ã¿›VNÃÂÌS‚Þl@ý†£Pn—UÛ?!:NØ Æg=XÇw±á‡\©i¿„H8£Èäo”=PÊF³òž ¹Á—Ö£“  Ïí%ã!úÀ¥úÏ0ìo) Rw}„#m›Œ…›}@¯gÄ[BEˆ¦ø̧ZB¡¹l]±ˆEˆP !bÖ§ÚQFѼ°O@MÌǶ ƒ½òÉ¢S)BR'be&!5zuÔ!ùÍ/!ÊÔºûò!Õ9Ⱦ„¢Øm;‰òdÅ8E1•ý"p3û€$Ð&=çY?„H8£Èäm”Ñ_¬”Úä0't¥Öàÿ¸¨Bôxk½jiVs¸ñ/föÞ0äHWªsž-¥@Šâ®xo×yHk•:I 5¬ŬnU8BÔÉMò"CˆâÂÝ´ 3¢8ªœEw,D%WnÑjÜš°úÔDOÛŒº0Ø‹ Ÿ!ª†Ýó•X™I˜G"`έqŸ„¨»+¸•½3/¹†¢CŒYC•˜Ïœ‰/{Á*õl­‡8‘½÷ü.#Åœæáà„H4£ØäKˆÙbGœàYxŸ¢ U‘š–¨œT`™ûØR Mt}Mí½acð– EQ×G<¨^Q)Ê” A–Ù}â¼jÍ»%\„è$§üãR„HcQv…Á«Ì宎ª&D¯à¸õ}\nå¢C„LÛµG"È ]SiMô°mѨ „½îÈ'CˆVé;EÂDñ¥$Ô£F Q?pˆ›gDOmy"ØÜ]ti€ÀÀ&ƒggÒ„!Du÷™PžspkM:§Ãõ&k髵Ý3|dÄð]M¼0¢¾½² f¾²›…¾cŽcm¿„ŸQ|ò#Dq¸O6uÏ×£KÔ§¨5c ¾y…n“š‹ñ)'1/æ!^kÙškP¸&ýq?¼Æ9ðåHQÜõñÁZ¦¤„è³ Ûªg™ÞbB¤Ý/i Bt‰È"€ÞfÓox‹½íÃQÕ„è!9×ãës™Í+«jer`äÖTZ=lÛmÔÆ^wä“ DU£†1ÈIUèùP¸G¢ØØ=WvèÅ[¾I×2á3(!ê‡héÈP÷äädãúÔƒaÎuDš ¶¯ê3Õº}¶!ï’ŠËûuŠ?|§–Ó0°‰½—àMvT2´¢7P1òn+>|" >ÔšËnrä'BFo\ÜßW5[·ðiNåÿÏÞ™~5õq¼íœÒÙZ)e‘ŠGY6±‚kA…Š²Š(XT†ÇÄ…Gœñè£_yž7¾žWœÃÿöÜ›´iÒÞÜ,4!¡¿Ïi®I~¹¿%ß›åf(î$7s,½ÈHö(¥4•îúRõMyóÊN]JÖÑüðhq§ÛålKsh~ AŽ¦ýèsv䙱ЂçÚ,X‰5b¥|ºÜ骘ÇJé‰SI‹Q•ÂÿÈÔ*7¶;ÞšOµ;ÿ̃øêÊf:Å/å[L,ˆŠðLA¥xÚge>ú/Šû”MÉh=Zé­…ˆàZ½D5Zq3Óþ­Ðsã¸òËñ„I]ÝáÅue>U‰ôÜ&YìÚK¬| Q-á¹$S}¬ˆ¹­–D®NnÆM¦$òuS‚È5/úñ/þ"Ì·©}¹ìœæb}°Á5øÏä·³sAûëùõ>`?ªêÝïeŸ‚>S¯]qŸ2CåœûÇ?^‹'?]—Db®òOnôM4Tùs‡ØÍå­߯ºä«•/2R=JéMå''7mŠÝIö¬ÂS—’uôeÆÏö‚—›£wiX—tpŸÏn÷GfÎk&ûѺÂ\Ö 9ãŠZŒª†øG¦VÍÉ>z·C‚ˆõ¤½8R|rÎ*h1± âŠÕ‘ûgúñjiC™ ª^ä*ìi\dªÖ‚H¢Ž-ˆ&„ßÊ”÷O‹õâ'®é­:Ÿ*Dzn“¬Nví%V>DfD®¾s"£—å‘»3_| ü¦þ[Ø‘q'Ö7Ä+t¿Y9|ÈÁ78Zøû¸Z‘ë7Á¦zÐh©OMTN]åaœ×ªb©7›èÓVEF¢Gi} Iñ›Zz¤ôÔ¥d™\ŠõÁef>¼,îj¯ø[,gcþi_PØb” 2Â?2µj¿ìüG;#ˆÄE§c¯’3 "gYÌæÃN»"Aä:ïåWÊŸ=ÍI®£F ¢&vÿ…žC§¦5AÓ½JŸªˆDjn“¬Nví%V>D¦D®Š`UvtšÅ=µò‰|£%ܹ3¾ÒÒÒ‰²üÑ[[‘|õ:ÙÙ9£}pÇw2Ú- ñoa-”qUJ.÷ÅjD® ÜZíÍ ¼Ü±S'ÀëýpíﲡëS5 "©¥öfA´æQ~êR²ŽÞ8—÷qE;ÿn»xãóD»úÈáÿÆ¿¸Òõóø±´.Å-† "}ýC¯Uø$[ì4¡ rÞ™(Œ^Ä-+WÖbfAär,FŠåO'û"•AäêmâB;÷@ûÞ}-½Ž-ˆ&ñíºµL—bÿd6åFDܽà°ZŸª‰DZn“¬Nví%V>%UW`œ<.k`M«#d”×mŸŸ=®äÿ® 8íˆÍæN‹›ÕöÖÈÀÍyÒKh{OÔ t×U‘î’Ô·Öýœ=‘”)i2ž—ßô©»S}c$¸Ü=7ßæÔ¹Gi} –¢‹Áî¹òGÃz¯£mÃ:áf²µîGwðMñX+ú:—GœªZŒ¨ÆøDzµÊ]´1²œÏrªh15“­Á°ÚO8Wê¶$^ObÕ\–ÍIuþŸGQÿü¸î>¥ä6Ùêä×Ñøʧâ㮀)Áó.äŠb×Ë0íÐ/ DVg<ác]×Æá„ŽD©~RzN´äèÃy€ Úõ\Œ‘ýàxúu@ívÚâfq_L/ ¢”àžÁ*ú®WøEBo=t € J%6ð\ŸŽÍiÇÍKì¼'³ WQjQž#žÓíÁ8ô € J52¦ýüñço@‡¢”äå—º›æÿ€‚ õA"è@€ ýØå€ "@ "@ "@—Çãñ©_Íï‰f¾C2³mXŒTKº RAÝê i\µØáYÓjsâdæ’úÕ<ÑïÎÞ5ß!%߶?B­å¡÷5î[•áÏmÄ-~=þ¥³²º&²äÛxå׳.u-ŸjÃuwÇR Á¤û@:B¨ñf¯777¿)?ž]‹Õ’ã»äÜHôir³Qså#Ú–”èU&ˆÞß~‘Í}LýIÐ:¥ÉŠV·süê¯:|µQK‡ßî0© ÒnÛB±Ý¾ž°´ñA!ÞZ^C+a•¬£¹œú:)Z¼8É.õnMíî,9õ³#ÝQÿÀ˜Ò[ÅǶ%»¥W÷ž û”Þb@ïP"„oFÒ„¬Ø¯ôx@½³>ѧ2Ù¨6K¶Qù¶IXpÁ.â»ÜÖ”¢Õ£…L ÿ-kĦ5­nØÌ8&wÊŽ®¹Ù$ "V‚ŸH¦ "ضáÛjFq±ß·ôéݘë|ñ#¯úË|Û¯Âå¿/òË«zwq–¤ß̉í§FQ‹-ýû¾¥0ðZמ û”Þb@ïP"„o†Ò˜w‚¢"C£WkÖ'øT&UgÉ6*_¢m’gD4ÉmM sÛÊöp’ÿ—½VMkZ-Dhì÷c‡ìØÃØ“(ˆlÉDÛ¶UÍUÛ¶zuN\ê¥s’'oˆý§C<îÚàjIIû“ö#¹‚å×ØurØëTÞÕ]›%›g¸•p•8§^A‹ÍÖÃÕ•ý·EWeHô)½Å€Þ¡D5Þ eÌˈOP´ãAdhôjÍúŸÊd£ê,ÙFå#Ø&iA­¬ oM êBç(yUc›š¹‚{ðþS „¦5­fQóÀÀÀÖ´{ÀåÍÎØ‘obA”¿Ã‚hæCJ½ÛxÙ`Û˜íBÐŽþú[Øöë!Ïh5;°Ï ò÷¡åû>OÙžÝÁiy}×fÉQÜ9eá ¶ôŒ=x?/´ØÊqÅtãëkq“Ž7†$|Jm1¢w(B‹7cyÌ0…¢åx@½š³>Á§ôlT%Û©|‰¶I[ЊM¤ñ|•Ûš’[faæ2ïäJ,èÂVˆMkZQgdX~ ®väZø¿yæD$ÛŒDá´ÂÄÔÛDYU‰17‚eÅÚ\xˆàÉ´<Ÿ[þ¾ýݸ[³äÙ æ~ôà²ð~ä[lUèWwäïQô÷_úuÙ§ÔCzG:Bhñf,ÈâþRÑ Šr< ˆŒŒ^ÍYŸèSj6ªÏ’mT>‚mÒÔ¡E·TlMÑCÕmqƒ™fK§%­¢ÈÍÍàN˜F¦D$ÛŒDOÓð0äöjBê­£%ï¢?Îãtµá‹Í¤7ûkü “}¢͡½ÍŸ%ï›b÷t® ý<–oYE⾂’¾ˆÆ§:Ý’ô)¥Å Þ‘ŽZ¼Ê)ä™ðuñ JÚÛ ˆŒ‹^íYOð)%5X°ÊGŠ7i °tV±5Õó­àg ,¨–±Z$ˆØX-Û 3Þ™X½ÛQA„ÏC…ó6WBê¡T›ÿ…ïgóÏ’Ž£„Bz$x_Ïåá/*R!K¡ý,É·Ì ¥¢sM†>öHú”ÒbPïHG%ÞŒ žþôâ[?2ÞA¤oôjÏz‚O)Ù¨Á‚mT>R¼I[€O¨S*¶¦Zuá[– TËX-Daü¼™°9ýüéÁéêÄÓ߆»¦vn$Nüá®Ûswð@«ðŽÍT(ÂjÿÂÈ?‡®L‡ãÖYm,f˜«¡(cbAD^Çöú÷=׿º’#ˆVKÛ&Cm;ÍCã+w|ê}Ê•œðÿD J]¾-ºZ݉~ͦB–lƇ5¹%?#Ã7áWªzõ±Gʧ´ƒzG2Bhñf(7X —¤‘´·wˆó¡;طή‡7e+½Z¢ðzsÃAD¨×¯B¡O6[íô`-m]ëï‚E:E¯æ¬'ù”’,Ð^ùˆñ&mA Ãä¨ÙšjAÔ'ŠVÁ2V‹Q&úu5Öø¬;:“ ÷¢x6«S^þ]ý¥nÑ@ºq)ÒýÎ)ºÚóÊöíÏìHSϾ²þgbQü`>S[g‚¸¢:pŒ3îAæöÑjiÛ¨$׶®†áHy¥^o\„ 1LC´È"¯õ·…GF±Q>~CÔ— Y²*)¼D-Sy±>d¯ˆ¦ë¥É>¥¶Ó;’B‰7CYÍe/bï“D«fŒ¢t\±Ùþm‰¼zîðÉU éjÉÊ¡È„Ž '{oü8½^ÿ†ŸöšÆ ={m¶YÖˆÛ:E¯Æ¬'ú”–ê-Ð\ù$âMÒ‚2jð%nMµ ÚBû<`9Ad«Å‚_¦Œ½¤}Ð+P ÂK'™¹"•ðP0DI,·g Süs†`­Å^Ò‚¨…¸ŽÍvI´Bvù6E‡„ÕÒ¶ÑH²m/ãSo/ZüÞ»±·€šÖ¥J³`øR³öò®õ)Šc‹/PÈÔ]yÈey(En!nDÁ @ˆ¼‚ÊC1Š@áV€øˆZs *^ßZ&7•|²ür?ó‰ªû¿Ý>3;3ݳszºgggwÖ®²ÜÙašÝçwæ×sZQN} ,™'¿ç’ÀðºzrÒ…\EL-¬‡¨Cè§ bÚµŽ½ùZÈ<‡ YqA„÷vúÑËЊéL»œ<î-Iéž1=ÕP-ˆìý5D®Ç«™-ÒâÞ½Ø(êÚFYoߧŽl”AàÚóqíÍA w X›¬ #fQ”ääDÍ "ˆt4ìnEn¬îê€]ùÊÀŒÎUr+¢G;zTÖš› bêP¤ùuí$ o*Û)Š¿E¾œ:ß–£æÆŠëýÇQ(ÁÕK«ùÌÛg´5\eÏ/OÖ«ªZ“j¯x‹MKZ©kÿ¤®£ä:>¼‰…õ[VïÉK-²ô °ägËË»WZƒÜ¯ ŸH-¬Ã¨C?ì§ ¢Û·Ž½ùY~#¿öù¿Dxo§O½}®ú‚é²ÍMÌSàÞ2êT¯—GÏÏ‘¥QJ!þš¢è©ªñ7yà锚ÑäCM*­W–õHŸ:²QkÏÇ·7?ñò—ÙÔ&)ˆ–ê-< D jVýZ·Ý€Ä =ÚjôÐ2“º4þ`|²õZO³YÝ0Œ[úÔéÚÝ=0Ý4fRœ”)õò¾š6ä7Æ1dS5öÌX]õ~TÎM3‹ÍnD†ÇÆe¼§Øô99+õZ-ÏÈõAí#l,€ñaë E»­³JtŽKi= É?–L ¡°ì04â ìñ(ü4Å° Q‡^è§ ¢Û·Ž½ù©¡OÄ÷ÆÖà‚hÂ)ð9 ‚¨£MQêÏ”ÄBÞ­]wò<Ïk?_žU­õeúc|½“Odˆ7DvÓÊå°ƒº’Bë•d=Ö§Žl”@àÖó9Ø› ‚iŽ·«MJÅ®Ã$`4`gÓ 5#ˆ: Ãrõ yoÉæwºÂ® s6R÷S–k|*!ä•è_šæ¢QÜàA­uDÈ3Ô±kçlF{KD°!Žm“y9Õ#jDá]»~ŒVÀì`Þ¹àH¡¢¦Ñüµ×l¶”Yí)Œ(ʤ¾Qo€ Rlkƒ½{w«Uhˆw&ÅË ›îdö*ñç£ÕËgï¥DŠÚ¥ òN=˜ÊzÂô£rVm’®Z » NÃå/,Z`çÔ™ìgÉùUGÄî|µ¦nW%ÿÝHy¦ùÌDLp,µ7 ,é7è¤Ü+ÛÛiDG$<ÇóÕRÙ µ¿5.ˆP ‚è#|x©çÿ 1{ÑoA„²žÓ§l”@àÒó9Ù["‚ Ì®°ï¶kDñ*/_] §58¶‘’’Íù¦ßÕà…½úÛûËñ1Tþ×ËÄJí¦ËÄ”{¨Èœ5cÁ\¥øKóœ+³."ˆ8Ïeubcªgˆœí‹`çN„ÞöŠÔ&e6Û›ÃòZC*ABM ¢bñ3b„´à¹OoáùZ]ŠQÊÙ±H‰H±YLƒÈ·œ}$*ˆ8Ï,}éß[]–sHINtà¨] "Ï°q©w²Î躉¥2øZ2F‘ÔIfMæq,ïmVÒ¯f7KfáˆÈã‚wv ^¹™Øtk­å“â•—ô ¢„6àZbo~•üE q_Pxo§[mËx ÜóA >½ý§ÇD¨¿&ïþc†Qi»¾DÑá>ºöÈF-¬çõ©#%¸ñ|öæ€àµç«M6‘š2¯- V jD ‘ÒÁ&†s‰ÙÒ?#_2'kãžqðOêgþ‘˜È0¾I;_ak‰ "ô™’©<^ÂDÑ£v)ˆ<ÄƧ^ëè!m¥úZ,tÂ8¯–ë6ÌŸjT”Í™ØÅZ´g5KÂpæV}XìN ^§µÚ[þý ›p4+Qbð-ÄÞÞü*ä ¿Å}Aá½nA4-å)pÏ×eIªx[ãâþzQ^£ZD# ²Ïl”a=§OÙ˜d”Y{Òöæ„àQ‹ÙrXmÒ™ªÃp¦ÂDÁAmD™Áν&SÉ[fmC!ð…”¯Ù'–o¹b|å ¢q‚{¦OKƒ96Ð\_[œèˆz,ˆ¼ÄæD½¢ÇÃ×»ÃÚyñà ᬠÔÏ\6Ú­Ð’#'túÄp|³‚w`‹jÛ³BÞø‘Ô6NÚQb8Yˆ½ùTú˜A½í ïít ¢)O{¾ó–xµ9]áþzQ †¾J¿ ¢YÏëSg6J páùìÍÁEc±­MZ…ò쎠 6Ãî?@Æ/3ÜœÈ:ÆŒÉíæÑ‚WZªøH=×2Ò/§IÙÜÜ|ž Aë±Ê—f ?˜ä ‘=jW‚ÈSlÂÔ+2Û|n‰7Ùe61_kî»lfÉ_°ûÿ¹èÏuW )å§[Ù´°…ù}¸ëN{Í(3dÀ ÿïêíÌD¨§À=Ÿu†ÈL0ˆúëŒD&ë¹}êÌF òžOÀÞœ@´3¿6yA´/ÝGPº*AAm ¢õIÆÇÁÂ7µîƒ³p,ÇŠæ IDñ|üz}¿y+ˆúa6ë’‚ÿ:9ѱèðV–DÞb¦Þ s~/–g!ÕÅñé2fËñ$‡æ²4~ÙiÑ;žeºnäŸ[xAdÛ:¢rƒ™OöÉTlÊDz;3î)pÏ÷Êkî!Býµ[A´ÝI—mmÔ`=¯OØ(ƒ@Úó9Û›8Úã¿6yA4dYF j*1ãU8NÇPÀƒ–<#Ÿ‘ëÛ‰Ï_™¤Ö»Ô_)D0Äh4~[r¢GíFy‹M˜z·噾ǵ™Í` Û½âa6ßLŸzоK³†%÷ˆZ/}(|ç´å|€7äz'{‘}ëˆZmo™!ˆðÞÎPA„{ ÜóõY|Gµ!ˆPíV%ë‘XÏëS6Ê ö|ž¢_õ•:/Q_ gˆú7C¤Í¿fò–Í ¦Î ¾²© „ˆíÊø0ÿ½åƒ ºÃ„QÁþÎdDŽÚ ò›(õºé:»ØÜ ÒAñw×9&Ú’sü+{YÒT¬(yWÄïZBš?'×%Y+ˆÖ´n76œRA„÷v¦ "ÜSàžB穽,³¹† Býuæ ¢>‘"6Ê ö|ž¢z/Ñ~tèY jZí®¤¬æ‰%ҡˆQ°úÀeÈrÒ j$/í°ð3 ùO'É…¢Æ±áÅclbÔ ·Ðç*¬2¾ä@•™Ëm7#@ÆÓ¼§:µ,yR§(uíw ,ÓU·RXžNA„µŽ˜…°öæK o1¥WQàÿuÇÞÎXA„{ Üó-M›Ó½!mJÜù¢þÚwAjXˆ ±ž×§l”a‰£][Q;Ø›‚Zý…Š×&-ˆ «˜ÍU)AÍî S e³£¾f¨×b[Ã8EQÐáë.LNm ?s“|ºi|;YѢƱáÅclbÔÛϦNj¤sJýHz@Ä®^÷E-³–%‡aæòªÌX™¢ “V IDAT̘¹¯DâëÿÙ(ˆðÖ²ýÖÙ}/–¨üïÉ\A„{ Ž·üŽÉ0x‰Jtƒùk¿Ñ,Þ/¹`=Ó§l”b‰ƒ];¡vevNaûƒ_›€ zõ‘z´ö¨´ £O0Q³‚¨¿—¢$ô«Ñ');{©éü3ÔÉÃÉÐì„>2 “-¦Ò ?™D]6A+ø3r°7Ž!v1é\?(j^<Æ&B½%8¶®Äüò².Ç“^üIÜO•q tj&y·ÖÌÖÙÇ’Vâs" rwŽÒ£ÈþFK@O6 "¼ D,$ÁÞÒ.ˆ8Oæ "ÜSp¼åYØè©ÏÍÝ¥O»Çüµß‚èwÅr›0ëÙ>uf£KìÚµ+AtœJU<ÿ“%?¶KA4¨T/©Ú°þß°ŠS9eLÔ¬ RWw‹W(‹ÜsÞ«ÛÃ9tb«!¥ô|‘&|·úz›Xõÿl¤}'´~`¡aªW?EÞI¹V «º*\vzæäØ…Ûðê/ÄÛ$Šˆ n 5Ž /^cã_›—Ûé;ÖÆ„üüŸ½síŠâHã8 g˜:Ž†Tnrˆq¹.‹b/ ÆÈ*j¼ qXIŒ‰EÌ ê9ÞÎú*'oö#ø鶪çÖ=SU]}†!ÿß让®§ªŸç©×t÷°4ûº~*hmÿÄî2ø¤wSBÂÖËKaÿ’ãÚO¸Õ8nRRd§®?ÀÆäR[§|Ù0¯‘d d"ö· "i6­ g Y¶d7GéÌîß¡§Aw¿‚ _o´ º­I‹W6¢Þ(:Ì£ÑZ”È3Çj[‚hxÇé¶fèzn³ÔÛ÷Ñ A¤ýÀmåBü-ž›Wú§wþY&ˆüa’zdûgöö*RÑØܨ½‚q1ùƳY­ƒã;û‡µ7‹íÔ½ -ñzÿqO쯢 ÒÞ”EÆÃCáÊ òÑ´Î#öéƒÛ«ý4ÎYèèª]üõ|yì'‡KB•»‡¾‹(¼©M`µØ6 nÛ&þÒªþ½ý•šÉ%Foûf§frcÌèô>b{vU±´DJƒ[5Jº9w0zMJ FccÙÖ~«”nÏî`äLÉÆ@â!b˱ ’ögÓ "q¦eËÏÚËßjîìf)«B'ˆùz£Ñkmø_Ûˆú4ÑaÖ¢Džù8VÛDZÿBâ?z_úØìh ‚¨ÚèÙùqQ~Z&ˆ´Ùä/3?]Þ‘ìg2¥Ï/»ÚaøÇ=ç …Š‚(X™ªc.ˆüWRŸ>}¼5”õ™©ñ£Â0ð­Û&ÁuÛÄ‚(y˜éw¾úèÞºmxÙ\ª§ÃW·l”ØD u{›÷ey06§ {ˆÄß ˆl"a¦f˱Æd¥þozt‚H¯7ZŲܺ¨OfÑh1J¤™cµ-Aô‹¡§C^Ó£)"ÿÛÕc‰#Öœ¾ö}A^ŸV§ ¢‚Uº},ù›+eÕ±¥“ñjÃ×>®Jtµâ\úóYþ¥þøzðÅD°š ¢‚ïGâ—žÊç uÞÅEÊζV-àœŠ®ÕbÛ¤¸m›‰ *Œp~ý¢u~wÌâ_ߦ•\zSûeÞm—¶n”ØDŸë«âgºyéi¶c“ "¡‡Èü ‚Ⱥ f y¶ü¹>¶dò`į=w¯ËV¼|½Ñ‚ÈÇdLágQŸ!:L¢Ñj”È2Çj[‚Èÿç‘]ñž^¨(Mñ)3ßá‡k£o[žäùiµÜ‰?lûp6Ó…½+uÏÖêz¦¸]=~ïáÚh`î¹µ¦üÁ{ÏÞõü[y°§GÏŒ¹ØU™Õ¹¶ËÔÌÒÚµÀœÈÛÚg–Îð~ÉÀ¿§k¾·Ì¿¥£ÄŸ¤•¡T_|2Úv-ð¼`+c6|1ñ·MÜŸÍ÷¾£&®;Æ9Ii® ¢ÚæÊß=›@Ý*/*:š±·k¨‚Ùæy9 Û¹^”É„IIv¨;Õ;«¥ú½ÛëÃÚˆ’áëí–ǃ–›á˜¿y.Ž6gìf±J™Õv0ï)'Sìy­SRR}Âñè˜X é©Û8$çÔ¾WAÙƒï!æFA‰°ËqÚ=Yª}þÁ'õ©IXGâoâv8%ÖQ—'QŽ¬®¥­N붧év­Óƒö\|déó eCHßeÅ:3 Ä@ľm® "M¯MçZy·1—*NÛ<’³s©ÕŽ7$““’lp·#ÙȱÔÞ†¦X¸äŒA÷©]º®TÎ芻ùB¥ŽØj;(ô43S4LÖ©˜œr4:&HzjÉß6á9µïUDöà{ˆ“¹‘_"lÇzœ6•'kÜQ½ÖÕ‘ù›¸^‰%A4ø€ä¡ Ê•ÕYDŤȒ¿ï`}ï\ÐdQ¿ÚÚd]MÚ}Ò¾mYD¾® ¢îEm\ÒÒ‚7–<ãÚŸæöM&ˆFc3{MÕBÕÁÎÔêL¬Ùƒ1UR¨|o zã ¦$»X»p?UöN0yÊê­¶ƒBO9™¢6fÔp,&ªŒŽ‰’žZó·CtNí{‘=øâdnä—Û±§g‹4ï-Ô¾¯ÛQ™¿‰Ûá–XD· Ù•‚(WVgEýhM53Ar–&ω ô¿ªT™cZ{Ç·Ñ+¥‘åó„µÛ·mK ¢@᥅›lß©·ƒ¾¹ë¿Óÿ®$ößÚo¤‘~0)qŸ:–±B7µ‹§`êê3º#:çkX)fâ9¬x8îôйÙÓ1qÂëû-°ÊÒLcjz€n.¦º:¯RGhµzš™)ÚX,DØÒêÝ×̸£#·@ÒS‹þ¶qˆÎ©m¯‚ ²‡ÀCœÌÜa;Öã4È’]ã³ olI¯EGu$þ&n‡_bEÕyÈðwy'ˆrfu6Ñc%A¬ ¤*v7èIÕ Ü¯èËï¦&¹úu¶mEAe«ÿȼþ§ù£"ûÿ2[öx(8'4 -–8ç*[G8’y6&]©H!ä–Òác%‡ÿ/±£E“Eÿ£[3ÜC‰ë­¶ƒyO9™b7ý\½N€4;™’ž:ô·,"<§6½ ‚Èq27rK„íØˆÓ ZãÇX–aú—“:·Ã/± ˆ¶Ó¨‹.æ› ÊÕÙDôŠÕŠ Ð&'cÿN©®’UÑ:÷ݲmë ¢à+v5r³;#-Õßmõ„› { ¿‹fñ3æŒÜ7´¼H=>}Hu |Mi "©e‹mtk÷hâ:b«í`ÖSN¦è¦Éµ/ñE³—F†gÐÉèH,öÔ±¿eñ9µãUDöû›ý¹‘W"iÇzœz+ )¹—È¥YBRGèoâ:‚ ‚h•á†—ù&ˆrgu6QÄš Z¢M&x: )T¤Uª\³më ¢ôS»Nú®f¤…Ýô‚}6¹Å¾k¿Ç=ýÜ…A‹%Ž™¡¿`zKpâ·Â1Èp¾;É-öÌJPÉaïX´Ú¼žr2Å=ƒ>;G·VÜ£âž:ö·,¢vNëþBß™åB©ù›µ¹‘W"nÇFœÎ¾¾ê*ku þ&®#(QD£´Ê{_8ÏQ­6DSM#“¯k÷O{¬ýIo¯ö"‡Ç|ýúÔ躢î.*Ükz˜Ož÷i“¯âué¿/¬ffˆ%B›ÔçÜ{t;hb[BÍMüpdu9šùÿìHñ‘S_t+DqG”Yí•X0{}²vòâžø|gžÌÚHi­–žÆJÙm Þ¸ë!lÕÙg­Ä9¥EéE1,#=Dÿ †Bó#ëD—Òm¬eö”—)V ÏX²€>áÖè-÷Ô©¿e9Ãú\óª C–]\Î!Þ'ëË‘åëú»jNôöŽù|ï–#×µ¤×s#rýŒ£î¨ù›¥¹‘["nÇFœÞÔZHðˆn=r«ŽÁßÄu%Ê‚¨»“Ÿ¯1¿Q.­– ¢@ü ì6÷!Ã]h!B–h°ÖVÄKã/zž9ºX•ö@’yÕr¨Aû·˜-w*XÝ°‹^¥’~µçÝ.3±­L“á«KâÕΕM8þñ’H™ÂH‘`DË´YLdÁlüaQÏb™v¾®îzú÷ħJCZ8Aw|«ÛèÏ+´1~+âÇL…D'Õ-Dñ&&Á¹f‘¥Cê(Zm+/dô”›)‚ôÒ·?¹u‡^!{݃²ž:ô·l¢vN•½j£g—sÈØ›Ä{dœL:ÎWìn¯e¶3tŸNÄš7õGÉ߬̂Q;vâôz”Ôk`¾d/Žp«ŽÁßÄu%Ê‚ˆžê":iUæ— Ê¥Õ2AôÒ Jæá:âûûƒdaü ™Oh+\XT'„o ¼r¥ïcβãª5A$¶Õ©]éLí/×]b{÷ë*Õ™L‰F”YðLdAÓøÿÙ»ÖŸ(’- }§²Ñ”—+OÔˆdE‘ *‚*–§ƒd}`ô.(àÖ1ÖW“]oâ~Úìÿ‡ýßnžéžªê:ÝÕÕ5=p³ç‹ŒÕ§ûÔ©S§~UuêTîûÛ7Ã,wŠna]³Ÿw2%–b pxItzL…{üØ_ô±õ·ú»à?hq'‹&lŽGQjòÖTî)`_ʱ—yEÕ'ApMuí-¯¤Ö¦!­*@$÷.†}ÈX/ó¶¾ó9@ôásö5í/3¹&ÈBôZ †DøØè;jz¿£ÓOp‹‹V !½¦x8{ÃyU@t+›¦nO¢‚Jíˆ.Ø3„êúá»›Zâš}µíŒÔ¡ºK(LÏÁÉ’Y‡–‚eX§o8°?a5Ó+o(‹Ýá²Ï]:Ó¨ÙØî{ggÀr§JV½­„ÍãC0õª9¨?@„i$ø‘à;;EUãð -(š ˆ’¢[€=‹Ÿ™ß³ô÷¢—êÖ¤oÄK¢Ó¯etÊ‹=C連EÚ~59}Ö©räy¥Ö!OMOÏu¼¶ÿ<ú<œ8þÚá%®©®½å•”Ú4¬UňäÞŬ´—‡–­²ÿx墻½‡Þß…<([ˤ¢R£TD¯U2$ ÂÇFÿQ3) ïÙO÷q±‚‰DžÊ ñ°ö†ó`%Š€h±œ&ø£b/¢ÂJíˆ[{;3gf¡OM»Q}!î[‰™±Ûã\›_ TH@2Û“IØ™ªy¢ÆñqçÃ"\¶ƒ™ ÐŽýº£vºW% ôÇ»-Û³¼»Õt D˜Fý$€UÓº‹ðWêïLb1}@Ô#la@ÆcF; ‚kªioy%…6Õ°ªXâ]LúUúç樳RpzÚD“ÎkÒÝý…O¾ ÂÇÆ€QÓû~ú’>ù‘ù½Cÿn†‡³7œ+QD° uÊõö *°ÔˆŠ*rT„»Ous«Ývwýš0ˆ_ìË;ÈÀau?7’¹¹iöÖŒ@Ôâ¾B׺ÜuÛ}ŽX¥G•t|ìžÕ¨pFö“Ë´ ÙSô‹î/;¬ê¢‡m‚Vù ÒxItš¡6°œjtãÊåö¦y¤.Ø:~üøÜsØGH³=sÑB79¢Ô:$ÖÔÇSôØûÁÎJ룲DTíÈ%P¨©¦½å•|ÛTÛªbD_ŠêCÚ‹¸Hˆ$mâ!ËDvÞÀëNN‡ŶßÄ ˆp‹5=ßÑ駷„ÄEMúÀ go8V¢ˆÚŠÜt{ZêFÉMUÒ¢¯:mÇND¼ ÃÁA§·¹æ® —óá`1"ÜâGMÏwtúégaL¥<1ÂÃÛ΃•(" ºÊ÷ *´ÔÊ€¨‹;1vÀï:Õ°€èI:ë¬ÚB‰~v.{ú¡¦ëpt@ÄœYƒ•ãŒ(ëBìö8{úô€ÿ•²€¨‹?ç&—àŸ0îhD@tNì>·_°Øá„x¢ÞWг+j§õR‡¼+&+öÒþ9ؘjñQë­T賑]°nŠ«&¹»$îÌuürû§µ­Õz{­8È£$µyjêç)R Î)¢åcÆ(A…šêÙ[žÉ¯Mµ­*@|auDÒå.´dègÓŽ¼Å)‡7óD¯‰TÞ¡nñ£¦ç;:ýtZ8°ªÐ$J<‚½ámEÕŽ\…šjÙ[|ämSm«ŠoëDô!Јì¥ëët:í¸É¿Ü5ñÆõňp‹5=ßÑé§ùZ!í-/+DK˜|Ï¢ÂK©ºìqsã‰þºî’VâD¯Ì"X>$õG—Šœ„Õíô[/™S7Æ+¹«uQ¿”PqiŽÀ»Ï)éDRâÀiQvë¾:" J\Îm!t”MÐ꽘D£''ÄUbsQ'cy"³V/fÞ|6ˆGAjòÔÔÏSØ·>nR«è·ÏY&´ã‘@¡¦Zö'IÛTǪâD˜w1æC¨Q³Ö‹Gg²#ï%·I3Q_*€(ùKÉ(€·x…QÓó~úFÁs#:ÇÞp¬DuÒ}~Ï¢ÂKí ˆîw¥‘$‹´»6$Œ¢EèÔõ´W>®Ìâæ7$Ônõýa{Òþ[4@´!åù·dC±II B4ŠKpSHˆ6%–3o+žZ BÏ}S„”Ksñ#³ÓÖÑÜïZB¦øUílÙu„Ü‘òwÁÜÙ'E3?"Gê8ž`©uÈ[SOa Mœñf*ÜÕ*¨v¼(ÔTÇÞb%Y›jYU,€ñ.æ|HŠNðÒœiÓÿhÍ¢ ·I©¢OœdŸ¢"ÜâFͤ,EhØ~*;ãu.2×Þp¬$mq@l¯¢] µ úóP&hâÒòæÀø •˜D0}Y¶‡Ù§`³óö‰ÊlT¤g [¿%Dï‘DÍ¢’€Ó(.Á°pÖd%2 J$FL/|>feòǯ…¸ÔÍj%FrÖœjÊÇ{€;xöbÙlU  GßIt¤<ÁR맦~ž‚d«ÓEÏ(æ¨|];^]+ÔTÇÞâ%I›jYU,€Hî] ú+D¼K°k*ˆêÜ&Ý. Â-^eÔ”fÄ ÛO“‚¹ªÜMÌãµ7œ+ Dm3×=u‰N“ºáß·‰]M»Aj@;µ¤îÑ|»ý«+O€¨.·ÉZoVUr&\ò¿dƒ».º…“‘¬5÷PZ¢t5Cmú€Õ(.8»1ˆ\:â½lÓê%¤TUƒ—ê BôÚ¯â‰$È’ÝÛöµA:˜Fat…Í ž@©uÈSS_Oñ-78ÅbvmíHt­PS {‹™¼mªgU…DF}H©° ¦»á¯4jz¾£ÓO¯y¢û) Ê#±7œ+ Dß)=IìjÚ Rã€hœÛq·H>æ½.Îå6…ƒ›·æÔ»7Jˆna9 :í·(áÅ%x(ܪxÒ$ z佈ã¶,âSb†¬4?Vý"¸,X ê¾úµA:ø½²1I°r†'HjòÖÔÏSX5„,3ÏÖ*Ýî®jªao1“§M5­ª`€È¬@%v¸^tî`×D¯¾cé•> Â-^iÔô|G«ŸžáÐà&±àÛKx¤ö†ó %ÿ¢"˜×æzËûü¢1„ÜÉÞ»<4²Ính¸ö.Çw‘ÑßÒS)º€×(.ÁŸÂ[^˜D-´BPPºOÞ§°ƒ‰6s™ä€ @˜YºF‘sÑ Þ觃ma-=GkèËã/µIjêç)® ¹d`Çy4íÈu\S {‹™Ä6Õµª‚"³>dC€¿;±Æº€(joÌ Òê§ÜCcJ&üyäö†ó %ÿ¢¢I>½.x ]!ú@°!€åñ•ZkÌ–ÔÔÏS$…CÕˆîDÒ¢ëàš†··¸IhSm«* 2ëCV…ÝÍΕðÿ€H§Ÿ~àçO+Ý[ä˃Ø΃”¢ÔyŽ¨™,ÿe‰]M»Aj5rå*QDµÔØTƒ€`‘–ÁÀ DëÜòŠ[ 88Ál‹_‘L6Ÿ“i1â²)@„k— ¬ÓÏ-bYßz/RØA¯0ØÉûå0^×°›[ i=—ü´¼ ÍUÂòøI­CÒšúyŠ{ÂWK˜£í2í`º®ix{‹›ø6Õ·ª‚"³>ä"œ—Lp0!Ž; ²¶OÍ[J¯4jz¿£ÓOßr“¥ÞëmE©x0{ÃyÅË]Ùe€½s¹ka¥ÆÑ.)á@@A{ÊÛòl~ˆ2"î‡íf´ÇלwOî6½Ô²ˆd²ù"@èµe†®Q ¹Ü\#Q'›T) Oi-‘ž¸ÁKÌmºÒt¸ÊJ–оaÖg‹åR6ðô€`·ñ<¸ÔZâªÔ”óV7!S¹l‡ó¡²gJ´ƒKXÓÐö7ñmÁª ˆ ûÈ©õ?öÎí)j¤ ã3c t ƒÀ€‚¬ƒˆ¥à r„u'á™QþXP.öêÝË?ôo¼TÞfè«öþf’(ˆ´l㤒zª×Äà=4k^±=ʱ€NâJ"óêKÄ2A”Oß[»7AzN1W±™2¶¾)躬Åa]{JšÂ•D^DpGž:‹Rpû͸1º¦áíÈ$o%γ³…qgN¶Õfk©:Sœˆ®,·ÌÐ3 ɱ@·¥†ã͘}šRT¥MYœCè=U…‘N ú¢'§ÑwB¸W -DfÆ)u_™¶ÝK¾`¬i5³ 'ÞØõhï Jƒ ÚFפø‰> è­–têqAD;±ôº¼ô”w\oõ«?èzŒž•Ùü¶Öf:ón)K¸IT‹,B:‡C`îÅ-Wþ飿‰_»4JüôNÁÜR•&"-Ûx‹9~¦ØPÙZ›¿ís]³/|«’€ $½…íQžôžŠKõR¡?¶KÃ8UA¤\:¯½ÚI“äLÂI«Eê ÍUØ{¬„Þ"ZÞŸííÈòÄ™žKm­jR‘kÚ]¤³a^¾¢’;ÛLÝYò,²«Ó³çëf:á«÷Ì× IDAT­>H (ª_†iµ[ªÎc4¬üÌ=Ç}œKš"ÞáZ ×R£ñæÌ>M)ªÒ&ˆ¬Î!TM§:áéõ ±eDÊ ¸Ú)ˆLS:Cï x³wÎÐYÐc¯ˆÕŒ2Üxc×£¹‚( ‚HyÇØÞ{}ƒT,~Dò-=¤¢wáqy ïåqÕH§[åOÕX.¶»ª+ˆÔœÝ›pMþ ¢¸P~[@eâ\¶qW·îVÖÙ%aõQ÷å>ÿÑåyî¹â…_êÑñ(Ï‚Ú9¥=½ÔšÕTQA¡¿Ïß)7&/ñöý‡Ì¸ZôJ >ÓUrSË”•x#Ï5î¡ÜbÚ]Êká;«ÂëýżÐ)o»ËÃo›(8"P†iµ[š)BJo–?ö)f®IÞáZ ×R£ñæˆ bõiJQ•6Adué—óaIÙÖ2ùy–¾úô"%i_³U™§›ä—e–Ê/C(²šQ†oìz4÷@¥CywÄznO®×-.ˆÆæb%uQö/žè—='¤¹J7]š(À-r?!°jŽÄöízû¼+÷fbšÓ°ÿº3GUU-éú )9ðŸêx”kÁ±²h!ÿtuÊ‚(z°Å¤UW·2׉ÙêÌ 2ã‹1í·äԕ䃳ê•ÅÝ@äWíéÚ"R†iµs‚(»îUÜ÷o¤r‚â[ ÓR£ñæÌ>ÍPAdu¹¸;.ý6G®-:-ˆ”œÙn« 25NIJ笠ÕÚeøñÆ®GkQ:‘´U_½ò¢‚(ûyex*íélÓ·áÐå­îƒ³Q¹ãæÞ•Ýÿö?-Ñ0¹pù”êRæÎïáÑ_uÉ+¯PºEÇ6÷Ÿí Õä…«êÝÔOYlAÄô(ß‚þ&eê_X¹S~fÖ Aôj{òû*h¢,×|<½Çb¼KÅJßø_– ‚>ð¾Üî‹eïžâÈòÞ¼V¹ä¸# V†iµƒ‚({SSa8¦o‡ ]¡2(ˆtZj0ÞÙ§*ˆ¬Ï!³;”‹àgcùÝiA4N®{µÉ^AdjœöÜWÎ4-Y=ÂVk–щ7v={Œ "`Ù”½u(4if!WïDàËÐȇ]bßÎ-½žžì¢;"Ît/Ìz Y­UF/ÞØõ$í À ˆ ˆAA""@A‚‚DD€ ‚  ˆX‚àÇ‚Dp ˆ ˆT›ë"@A‚‚DD€ ‚ ‘¼<}ùŽå=áóùzœnI•/L–øžÌd½µ€ Œ`A´ió²?Çê£n'„´9Ý sK|Ofb}{~h ¼6TdtâÌäß˶7–]S¸^ŒýÝ]]»Ï¨ûò'ª'?tüæ€ß¾}û´&CÕ9Øokzg&Ì‘ÅáÓXõÇ#Ù™fµ™2| $ˆNºUü›1bÆêVw"!ÁÚæ騴<ºRDÙrÆ£ÛÕò¶¾Í]Unf’aïÉLÌ·g¶Üí^Mú´ñ×Rz´¢­q¹“‰ì|}}!ONèžÇ¡Q[Ê®ÇR ¸cn¹ý°\QÙ÷F,ØÜP¨œóÛMR5[ÅzÎBïè×Ãñv$:‰–NÅõzËHæ`,?í*’Ë Šô)/FMêV³ÊèZ 9J´| $ˆÚˆŠ¦ ¹fcÂêy’ÈUÁÚ‚ÒwÏ¿°]õ<¼+\Ø+7 .ºý^ÞöŠéðC¬$ÃÞãF|JK9ÓõKt mLøôÉ­XØlÍŒ“d²ÜP÷aÕ„m “YÅðÆܹèç5ýÂÔŸîÛo{d5©§ç,õŽ^=hG¢£—®4,p*®õF°µ™"ý¹ŠcdqȹZëŸÁi>åŨ9}`Üjv 4G‰¶„Q0#QÐQAäºUZ°¼ I‚h#qDï¢Û§ "W#S&4¦[ñAJ-eê‹Ë²'˜rÚ*º ÿéÕO%åÊVžO™¨lØbÃØõXmgÌíz%{§@žÏ—- Zðy¯üiEçãν…vÖh±UÍ "Ž´#ÑÑ‹8׺#ØâL‘þ\¥ cdqøÖ§tP…¢[ êõû”£¦ôq«9eøhŽ†„Q«TàZV”™!ˆÌXMÑí_âi®/dž6$ "¿1A$%¤Þ¨LvâY‚ÈŸfA4}”h†®Óφ;F]'C’§ÉŸ‘Ïÿ›¥¦XÚyD™>JÚɳcäù>×ésôÜqï‰=ÓTf=V[ÀsOh³‹?Üpý~“ÊŽË.! P-à»T+a“ÝõˆÒxAÄî9k½Ã¯‡ãF$:ˆ¦Nŵîö§]9`kdqh ]¶cò¤+'w#íŸý>åŨ™3­ «9e¸h†„Qôý W¦aÆj*ˆÖPÑÿŠŒ ¢7¥¤(r©"—¹£ë@ò ‚h²B*p?yÆ!KK&•ÿóéy3cTJƒ:r(r6Ú»ÕtÚ3iËØõXl{ÌH{üÊœîõ ô£ˆÙôjÛîe‡k³‡ þ/ˆ8=ggFR×Ãñ#„aSq­3‚­ÎéÏU†F›ßȽÆXÔ2k4ªT1jæLkÂjNžŒö0| $ˆ.I_¿˜q‚ÈŒÕk]ˆ1ATSCH0¼yŠƒ-ë@òå‚èIY\_N`«Ò'+‘ctè²Ä !o# S–ƒ6ùŒ]µ0Çܾ*Bò"¿ÓwHùç´ˆ'¤MÇž§þyN:q_æ"UÏÙ˜‘Ôõ0}ÀŒDÇ`[àT\óG°Õ™"ý¹ÊØÈbóº)v'õ9É{ŒF•*FMœiÍXÍ)ö€Ým "úìÅ W¦aÆêµ.ˆV ¢2I oJ‘1t~¢•´ "ª{Jg\ÙIL’ž%ùÑ-ú«õ´æ¤ïmÐ|îæ½SÐÿ±ëIÝ昣״£[ôçûúŒIIïñ §âJJŠƒ98‚ˆÙsg$U=l0#Ñ1Ä,°?®Y#x%í‚È G›R‘E£Q¥ŠQgZ3VsÊ°-kOÌB‚¨™‚ŒÓC¦¬æ¢cò" Ÿº+ß5¬N~‹í™£úÿùÀÀ_.Wpj8$_äëY] mS0çØ—©á©¡ÚäªòCí'Ú^LDËå„œÔ6 —œ%Atx2v3Ë"!wÔ÷±-0%ˆòë6Þ®l]õí£õ‹;oÛßx´ú1;eA4ÚKZ¤ùo~âû+O•öéà}¯Uþ½~«yä’â/2‚°ëIÝ昻®úݤ[Úº«oÁ°à¥tK¸"[¸ÈDìž³6#©ëaû€‰Î!f%qmbs3…¡\uC*N¾99ò~÷¹©ÿSw­OQYü¤k‡· ˆ5%BÂ:|„ˆQá¡& F"ËW”n|¬YEƒÑ¨ÑÒÚTí'Ë/û™OVåÛ>÷ÎÜéîÛïé;çË<»ûwO÷9ýë×éùt±Y 0MËË{Ø lX§tµèimPKÒˆè=O^Z„¨£8žÚ±Ø –¢z„xÞJö@iy;ÅUƒ“€äÿÏÃ.’ ðuýÏ»ê'û!ÿóÝÑ\L±ÖÃt”©ºì!Ûò¹ ¾< Dg~œ»Ãlò_¯&DzÃÆ~»µ,“§ÌĬю_²¹ÕþV¡§7é —›…@º‡rO]¯.tÆëË 0Õ*ÖÀŽâ/ÒÄç“exÉ?Ç*àG–:Æä—ˆË)ÐæÀFòógpJ¶]‰à!n:“ÅòËux^“˜‰kέG¢Ê‘é@Ћ(Z´kc Vx C_Çu—¼?×f«±Y"0MË’´|š°jÕ)m =­ jI ­çÉë@‹m8÷ÒÔrBôÌ»Ü6ï!5!z;|g¦&8ŠÂ0›[ KÉÄ]'ÃïË…„¨/zêQƒ¡$†„Þ]ÐÞ‚‰Ø¢d%‘[Y–ÞÄ"ÈÍB^.Ú@Nj; $DÜg l óhëø“åØ©^çgùÎacìB\Ná„6WO ázž t@‰àŸøÃó"Î'—aÓØ$$D’šsê‘èrÔ:¸ÿã)ÞªÌ-Xê)Œ}8Ò×UùDwŽ*±Y"0MËË÷Ãi³:elÁ¢§µA-I£D h£yh"LuûW!²A-'D/ŸúF1ݘ¢mùkèâì6!Jh9òGÿ0<‚ÚÆ~ÇoÚ²?^ö'gnUöÃny4’¿.`Žl£Kc'æð›†tHˆ¥Aà$S:'½„hf¡cþ§gؾ?Ê"1BÔÓïO…m}Ñ> èµ;tô&Qn:ð‚UdTÿËã¿wø(Zz]¢nÖÀ`ìñjn<šî¿øë-ÜÇ1ºµE¸¦E\Ž"›ÛÇX¦‹©‚õZ‹yƒËº_[…„H\sn=]ŽZÝœÉ8hUæ,óæ¾ iß5ü×ýS'2¾Þ–Ta³D`,š–¥èó†Ìê”±óžÖµ,ÂJò:Ð"DÓzãúÔrBÔŸA¨ãX]÷póOíLh!Bµ¸©ÄF1f“Áy‘`£í]¨°7Ø»sðR¦›ö|í#žmðG¤3Ùn¸©-ŸÊ-Ô]D¨³.$D6„èŒt†ý…·ª½ø}㸮Þx"ÉÍTà‘7´n tø6•£.Q5k`½ÌÂÀ=üys$Ù«\»Ü€U  £ŠIÄå¸@ ²¹5L ;ͽ’†Aè`æ²÷5U1³Äì~Í6!ל[Ä”£ÖAõ'DR.Z•­ó=…¹¯ "Ü¢)ÿ7ý6oô°#0=Ë’ÉïȺ´NY[0ïimPËÒ((¬$¯Bt¶`÷g&e­£«æø½j9!B(ñH”’Kˆs>-{õÎ…›Âà­¯rÌ·Êåûl%7”ØR8!ú³&׊0ªÈ"1BT‡©[¢.7¼Ÿj| ½qD–›!ò–òo³tn Ñæ½—ˆÖÛÎD’]Åßþ7'6óô陸B\ŽB›«¡B¦Ç\?U!˜Ä]…çݸä[AÛÆ8Ã¥jð·Ð6Š‘¨æ\{$¦µJš9j×–Ìõ¾* DH’šÖÃfŒÀXt,K*½åm2kULµèimPKҨȭ„Ð!ú†Z%½¸ì­ ±B­"DŸyF„è¼y–‹Ã‘Ää)ÿ¿ Ô¼ou ¡Éž¼±†¿ÌNˆö¥‚ûn¦°­†„H‚À†ÁÞñŸÂOp!ñJSo‘åfCˆI6FW²Ü"†z¿†Ÿü-_G’ ÔE/N&++N7Ã<|âxœæ .Ç!¡Íí¦bø! ²+¹bq£¼• óˆ/6l'ξ3׸ø„(Zsñx$º ”(!Š«]›X0×SXø*Ÿ5…±`;o£6cÆ"·, ™ã>²´U1¶`ÑÓÚ –¤Q#[ ¡B´4Mí k»¼*‘êÈÕó!Z—4#D>ùxòé/²ÃŒÃˆ^òœãdάE(µþ°³pB3C®á+Õ„„HŒÀ†%1½ª'Ts‹Üø ÐÇ­Èr+ù{ c!D0~/·즯æ r>až6Û>g¿‹7Ò—¸‡„67ÏìS8218Ù›-2{þ­Cq9ž÷ á_Dˆ85‹GbÊÑÐA©¢¸Úµó<…¯ò ’nÔº­…ͱÈ-K-Wù,kU¬-Xô´6¨%iÔ”3^9hí!ªKOôšßrõåcWK[…·Äuär×?(BtÃ3"Då¾’wá_þåu Kq§˜ê'd¯PA²¼›Ñ „vzþå|oó„HŒÀ†Áêîñ¹Œ0 Ð[T¤¹JˆNDO¦9"D3pú¶Ù¯¬ñ~ÜsáO‘ß³ÑÒsGù¥ÅX7‹Ëq‰@dsß2í Vl+@c-K¡9_‹;`é¥)nðq`\Nˆf5C<ꑘr4tPâ„Èy»6°`ž§°ñU>!"‚ ­ÃŸja3F`,rËR;Û.ìªÍfT"¶`ÞÓÚ –¥Q"=¥-BDŒ¥SEŠ–ât¨ZAˆÎ™¢À¾GMÙõ¸&¦³„ìõßÁòÚñKcá„è³ %¤Ú•'Db6„ès6xˆ\x¬7½èFš[¡„¨26B佃F–šLÞT‹Ðb†sÊìË«eÜqLMMõÏŽø‘OÚ?ŽÏÄå〶9Å Áeßs:n6…ã ×rƒØ$+ D¼š‹Ã#±åhè T Q\íº²0Bdã«À‘Ö3AZØŒy†è#¸tñ[Ý:UÛ‚nOëx†H@ò<´ Qö˜á ·ÊD5¢®zB~£ÑŠ!ÚÖE°›d$ÛòŸàŽ“èÝ ¥ç)â—½z„¨{˜”nŠuw¾ÜA- yB$F`CˆÀ¤Sµy¡š¤BoQ‘æfGˆÞöY×ÚXÖ…â#DÞÎ !žXÀu]Î.,Š¯¹œé„í‰Þ¸ A\Žs¤Í½æ¬ÿ§@³¥Ä-^p #•T”!4æÉ Ñ¢ó Jù‰-GC¥}ÊÌU«²²`ž§°ñUÌÍ„ !’`3F ¾×³,¡7€`1}†u*·½žÖµn.ñó0:0&D·QÛ~W‰è¢–oªžöÌQ[XWHB”,Ç.‚ükþ¢+4–CÄ/×õÑ(5«5J¢ä4zÒ±Éïy!!’ °!DŸDƒåƒˆ*ôin6„¨n*! æèŒy½c]ÁöÙo€Œ‡Ⱦ“ wTøÁÚ2=±›‚¸ÇH›ãÙ¡@K îæÜ„ÐÉ8ÖÌ&ðX`YNˆä5çÎ#EÊÑÐA‰»wÒª,-˜ç)l|8Òý"B$ÅfŒ@,|¯kYüªÅ¯Ž¤Y*lA¯§µA­›†‹@ø<¬Œ ‘±lÚ[m¢‰ZNˆÊ Ñž°.’„h†™õ<èGý:9ÁlùŸ+œAd£A[öå ‘ !J+œŒI;&DÃA þÔö‘­í­q"Ï»[óèÐü®d ~Žùñ¸«sB§ß¶®:B¤‰º(„È«ÅÃ>ÊeàœäÎv@ˆþ{Ï6úë­á’™í ÑhoVŽbYZZzjMˆ¤¹™"Ø!‚öœ:7¶ÿ 5œa.wMbwY+ÛMñ¨HwwˆËq‹€°¹™h”ÙòW O™“•®^_Þãñ}ëÙPðð·^«ŒjΑGŠ–£¡ƒ’'D·*k ÍϘú* !R`3F`Lˆ´-+*oºõ©a*mA«§µA­†‡@ô<˜"‚}oÕ"MÔÅ!D°TM̃{ãp=Žÿî9sâ@sÑÊ )+4!z";ú† Db6„è¼Ìã¢ó ÿiFˆöÁÙÓá!ÙE"D?D/zØ­:­7¿˜ÑJÄå¸E@Ú\#5%ÙS®AГ ýZ/epä?F5çÈ#EËÑÐAé¢[•½ó<…¯"6cbáûx}ËŠÈ[Ø7zÔ´N•¶ ×ÓÚ ÖMÃC xž¨Ì ÑÎ=¥/š¨‹Cˆö3níS”»+o˜1íÖÂO™Û‡ü=Ó!!#°!DaèI'„Hš›1!‚áé¦ü@"S$Bt ¡'ÌB{FµN~Y‰KÄå¸E@Ú\à!»‰.J%l¥7úÃñd÷ÇðtQÆ`_F!‰SŽZ¥Oˆ lUöÌó6¾JLˆTØŒ˜‹®eEæÝÊj¸o\§J[ÐëimPë¦á!à?Gæ„èmA§?”h¢.!zIÇùògCŸûïàø;±‡a¦Ü!òî ®û­ ‘ !‚«„¯9#DÒÜŒ Ñ"uLö:ƒíŠæ '¨G¤yi†H\Ž[¤Í§ÎÈBH‘+ ѱ!šZë>x¥!RלÄ+G­ƒÒ'D¶*{ æy _%&D*lÆÌEײÙR‹PâŒqªmA¯§µA­›†‡€û<<˜¢vÃP˜¥!š¨‹Cˆ~eN-4‡çЦ©!ànöá&ìµOÚäQ!ìWÏ’„HŒÀ†Á•˜~ôG'„Hš›©¼~ŠúEE!DÉmÔ=¾L)o0ù¹H]›¸·H›«¢:Å#Âí@$‚+TP®[¨˜¥®$¹LÉØßÃëm£šsã‘xå¨uPú„¨ÀVeoÁ\OñöÎ쫉,ã!H£!"h–¥ñ á@YD†AÅ¥AqeÜE„6L»+v»6Ðö—9íSŸ~™çyò¯›{«²T¥îïVÝ›ª‚Äßç…$—ºõ½ËïWßÚ%rlˆ¬´ +Ç2²ZFjgM7ù½¬Q”šñ1µŽ{[ZÕvsK«=Ì>6DÇ•ì_êã=vU{cˆTÿñƒíI.zÓðô©ó™†ˆþð³¨!"ŽùŒö(¤ôË]a2†ˆz÷†N"^m¢}à»CþûNêÛ¢7†¨Î|¢ýÈ^EyË}Éåz¿JÛ/p=Î*0ÆܲiHÎäåÐn¦QÙœ”´é7«w\ïÆ]fÖ#çLFb¯Ç²6¼!ÊvVÉG03SHä*ØYiV Ed]£—GË8¬- M‹©u,ØÝÒʨ¶—C˜ ía÷C´O·Ižy˜ñ¼È ‹”j }ÀZu8ñ±ƒºÛROÏUÉc qÓÛî˜o^²6DôüRùÈ`ˆ`2†èÝé9™¾8ør& CÄ«M´Ô÷vîH¼—±åœâ…!ºFßÞX6þHWýcÆ?®ý¥û>Eg+Ï!‚×ã°NÌÑ ×¯¥ÒW÷u\æ) Ï¦½•xDÐd³ZXCÄ972{=–}° ‘³³J>‚™™B"WÁ†ÈJ›°  ÈJðQÉx¡LóòZ‰üÆœ£R[Z Õð2Ö ÌíúÀŽ!.?Ö¥Žöמ›ô¢–¾œ8@$¥ZÞ f<Í”kˆ|ßѵÒ<÷¿Ã†N½#ß&âdÔƒ›»ˆÉ0DtJTVÂVç’†èQeÒ¬¥ G½o|ŒY-«d–î¾íøâ{P?[ûýAÝۜŠ¯6Ñ>ðMÑ',Ñ+ƒ·Ÿ)æt ·T0ah§:¿ Sÿ™q‹Ùƒ2EñoÎX`H‰\ ©ï÷œyC©rÄ•P€×ã°^ÌÑ]¾ŠP‹/ØH·A; èœ}Ý|-mŸiuŸÝÏfCÄ92´«>Ø€†ÈÙY%ÁìL!ž«`Cd¥MX\x3#+ÁMÕZÒû úR¼:ƒvf{ŽÊùaÕœe¬˜Úõ-C¤>yªôa╲[—sÁÉ©–0D;ßìß^]èWWWððþÊù×1KCôè¢zÔ¦¡¹¡„~XL…üQ_j}k}DÿdæSÈÕå&*†*"•ŠÕ¼K"_sÒ×ë ¨ û›Å§§Ê´^+)ìºØuÁª$ýÚŠ ¿ö7+CÄ©M´|¾gô¿÷þ}·úZ¥¦Y]ÊâµGÆm­îßÝQ%—Ô2vôw³r‚¢”FϺ-wéÚ‚Ù™B8WqžCk“S Yº=lý;9éÆ]¶÷Éž£rþ@X5gk¦ö@}`Ç=1,5”ﺗS-aˆ>™;¶ÃÒù~¹Wžúwÿiý åñ†TAÿ‘žLCŽ¤WcÛÑǹÝÈ0D ‚:s{þcUB}á)CÁ@V†®M´ÈžÙéÿ>6ØRšNYÜöÈ¢T5M¦«ýšÍÏ%Ò®þÓÑàÖDðzVÀ¹¹ô˜ÏØThÒ=Í÷ßd ³!bŽœ  \El@Cäð¬’` Sˆæ*Ž!‚µÉ)‚Y†>Zsı稤?UÍYÆZ£†(øWgUb‘3»B¾AJµg†ÈçÛ¶KÛM˜Ø•qøQÝ~µàáhP½ïÞøžºk£‰Ý.ä•]CD}8ÓA $ ‘/¸Ô_’øµâ\̺ß,F¨M´(Ii{k‹š¬]6D]æ÷Л…úL§÷‚ï_L®¹æØåk®…¸‡ðcîÂïejQÙ¦ ¶´ÌïÐFúé{O²†É±GÎùÞᬇßÐ9>¯¥#È‚¹Š÷êP›œ9˜‘•ôÓô<^Á' 0Geý jÎ2Ö 5D„S³½óKÑ /—Øàª/t¨YLw*Üš;Ð(p´qæ›×ÜT”*¶íK<1D÷×Ýy @<‚y³ ÎÎÆ©LÞ—áÕ©fÇ=C4C]Tg,[ä¢êïˆä²Ûé4^·f(^ö¯cˆ‡+¥Z»Òî°içG”DÖBÞœ3‹Ó}§ïMÁ%™¿2®}¾DGÉa)Ô•C–Æafù*¥¹É¯üO-0ŒqBÞ2vEâeõ…–0 c MU×M1‹ÈI¦˜Å«h9!£Á @kꮧú ÚÖGbèí?4Ïå`úG®,ØœÆ[)¥‘úJ?a§=xŠWygÑì؆;!R´–ˆEr²6EÞůs#µzõT5žOAQcú#CˆàøQ³6 'jX¤µYHƒÀÉøt^ ÎhQ`*äðî‡ÙI˜ÄÔ1K„Û_3Ç„„è »Õí¼¾”|k& Ïü§TAÿdD[èßø´l•öcÙ*Ñ9Q]7À·ºÏ˜!"†"loM˜ :›&&Íû¨‡¡ Èóô¥Ä)ÓrM~JsŸ³òÊk®Ï˜ïiú=?‘¬—qÉ[£¨ëÑ1†*Ån÷ý/ÍíÏ™¦®àFF íت@ 5u×ÓJí„okXúÜgêåL¨¾Ö‘ì 6§ñVBYÉ­ûÖÛhž¢dÊÉáÚÄ¥ ¦j]w%DŠÖ±HN–æˆÀ³øÖ`nÄc–B¯žª Æó8”†¢ÆôG†ÁÑ*˜W¯7÷þ~jNÔ°Z{µlç…‡ôîÑ!p¢¦=s9{‹LzeYVÅC]+|§¥” !j+<Ž¡I]mò9ž9íÁ³s¸.ï­|•®vž}µeè+³¬ŠWÆÁißõUÄH­4…W>L1þ]øf!È}=n9eÀÅ‹vvv^ç—ÞkBBÃ4b^‘û]Š‹Ó+\8Ûp7 âšJè©6BäÞÖ0D‘ð¡Ml|"½­#× 6|¼•N`¥7o˜jäR|Jë}oÐ!r²–ˆE’µvljöÚ‹øÕ`ûˆ[ ½zª‚σ§8 FôG‚탋õlz&k—ÌýÕoð“„5ôṜ3Ãù­R*ÞJ_ù‡™EÏMÛ¶)Bˆó^.)ǸÓÏ~–jýÅü4`qŽÌšŸš¨0Cº”‹ì„:Cuxy¼÷Ò^ù0=¬ÍçÿÍl§œÏÉ”õzºê Kïå~ÍLëºj1L©töAeìÒô'®7O›Á ×TBOµ"׶nƯM‡™ôxk0ý#Õ <6|¼•LºË Ak8Úƒ§ø–“öÝ/„ÈÑZ"IÚRØ°©Ùk/âSƒE#^h)ôê© j<žâ€Ñ BáÞFHƼÙð,,7·µß½„µ)?_ä.<.¡âO¹sس6—x„1Þl°“Ôí lc)÷JïöP›Lá„óSιò°Íß”ÁÂä2+· ËÕN¨!Åèg]¥)¼òÇÀûö¹iCÖè”HP~aêÆõþ7×~ÛÞÛJ˜Ô¨úˆà%©™Óu÷‚˜ŽÜ›Ï=i³£øëw˜fKÜ%Z ‘µ¦zª¡mᜣ%ë¢]ús@ý#Õ <6‡ñV*i¢Sî5!íÁS|Ë ½¼"Gk‰X$iKaæf¯½ˆO Œx±¥Ð«§*¨ñZ2|4th°}T¡–B¯žª Æóà)ΨEú#AˆÀ]ú󸌗Ç7“p¢¶Êˆ™:uQ°´"!:é ÀÒƦ©®½°â5oÉ"” §5©/÷Ë…þ‘£µôLˆÜ°©Ùk¡ì÷°²/?vp±*ÜRhÖSÔx4EšôG&Rõ®5¶:n|÷NÔœ´pND ö?Îo)B4C˜C 7r·ÇO.»àïk €‹›ÔUt|6¤\ÌÏ7hÿ*œ„“D}s’Ùó÷]šÚ+¿ÍRoV¶ÑÍ?¸õ]m/Ü).ìuæ¼û-j1£ÉõÀ­uØšºëi„HÐÖIñ9†‹”_—Mh]÷µÕǵ’ng,ðñzB‹y'Šsšwþ‘£µôLˆÜ°©ÙkOâCƒí£ÊÁRèÕSÔxéì71ôçcÖ Û,ù[Ö ¢ÓêwˆBé "f¶´-ˆÌlãË׶à`¯bd gã”Çjzú‹* ?VùïWɲU´!ÿÌ";­Öp[3÷³ZìPÝ´¥ÊpK‘GM q='Xõ—4öG•w ”ôÓKÞ ¨œ8ñXÛ²ÕÓ©WÛ¨Íþ%ß¿…þ!…mÔ±®9tá×Ù6«‰¤^ÑþM% v&ÑtW)ÏÔi}ïHk:µñ]ÔŠKÊÅÃKíS¤œBÚ'5nMb¥øâ¡ÔEZú¨t_$±Ömé-GœÈÀ¶˜lUͽl‚"n’>›WY"5[ñŒ;0ÏÔ,ND̶¾k4%®Å`nðfWú‡Ù w)Óõhþ¶Æ‘œxçLjŽx²¬ýÓƒå‡÷ËqU”û ìñí­üÙ’g"ºm|ðÀŽàKÒô¯µQ¼Š‘)œS«éeè{èVÆ5A˜}’J §FYBöY}G“~›†´ þAj§b&ÊèaU±•e oéz'¿ø§/Y‹ïh—Ödi¢°É°èmƒ Ó‚‰ œýAq¨Ž …ÄtA}–n¤U§ Jå‰jÕÕrµi©cœR]ýÑ'2²-úFq ë'•»†R¾Ó·è’ì35‰SG‘I[o1ZÇÇCAÄê…-”5†hþ¶Ö‘_ñùŸþÜ”èh×÷Ï3þlÉ#ˆè¶ñYÀ3‚å6ÒÏœ¡y#S8§÷"°šÔ ‚Ð¥ÚÒå„=ùöjá)“u„„לªñ—“á“om9y4þ©mi5ÛáÏ–xôjÛy‡jûÏLÃç¡@¶µ_g>õ74ïòâP»‚—â{~qÓß<#“mó,÷f6£G0=xz›'²è¶Q÷0²‹Î ‚h"WÏTÆwuæZýZ´dX³íßâ¶3®å#rÍ·w…â*“utˆäú¸ÑbMnî{/ñ4õ IDATÝÖ¶Û•¤¶Ò½V=ñíÜã"I’ùîÅίR+ÔÿQ!™PÔ1’~e?~;P*Õ66¡:Ÿcêø¢ØEiÏ#ظO—ºJÆU¿âvGî.‘õùÁtüÍs2Ù¶õ#ˆŒ{ÃßhÌŒžÞæˆ,ºmÔ=¬ k`A4,è‰f¼kf®Õ¢%åšmÕâ¶O®e‹¸eüW{µð”ñˆ»·œ¼ÿïµ/ˆv#Á·Q³õþµ”«Õ.YñĥݕŠ‘Ë«Ñšù_“Tv§Ùãù‹Sç3vC±§KÝí©¤Dk#ظOsn>H¼iÄÕŽh=•<ÒžtüÍëA† ¶mý"Š÷Ú÷7z3b«·íGÝ6êf†5²‚ÈsŽ‹¦U›šÅ-“Ý Êk•Åa»Õð”ñ†B®“ÕµÙDKÓ’;iÒO¾œ`J'¥Λ{âÉù¯¢|s³aó*´æQùÐcãÒÏŽ´êú{P>¡:9 ·ª¶‘ ¢··lܧ9;ÞH}Z,#V»ye_–ui]ß½¾Æ’tüÍ[2Ù¶õ#ˆ(ÞkßßL®Þ¶YtÛ¨{˜ÖÐ ‚è¿yjÊÄâCïšlõÑ”˜jËû´/E&AÉ3(c'•¯² ºqX0J?sdÛ™žó9Çb¹âoÌ=q@Ì ¾mS/vå\¹qšDìü}Ï3Lr¢Ï[ÿ &¤õ€c7i‚mñc9ùIeS»È¸è¥T#|N÷QÛÀÓ¦ôé}rвWr^%ƒ¸ÓîõÃÏäú:×,uS:þæ)™lÛúD”^àð7FÓc§·9"‹nu+Ã[`Rõý±š¬óÔL²š\U[®‹[z³ý.Å+þWºº‚(^'¸£K?‹w'qù÷ ¹1)4÷ĸp*ÙS äF%îyk6‰G]™ÑvNüý÷t*{øX˜oKü^HÎg1¹+*þeøHÐj¸Á”>Í™"·å{Ç·câïmn w×?,¹ào®’ɶ­ADó^cD05¸z›#²è¶Ñ÷0²‹±öQ\,û.ë<5“¬þs\¼)?¦Ø0âä³5/ˆÂÂj ¢ûyändnI—~È(ßë•?ŽÌ3òÄÍ Ð>¯sILÕ+/Yä?3­ÇoÛSÅO‹çó¯ä_Dl5,c± \Œ`jŸîŠBÑÊŒ„±©N¸ÕäÁež+þææ]fÛ¶~µ¸üÁôXàém®È¢gújv¡X`_‰·”þOÞµ5E‘dá¢;ÀŒ-DZlDÅeD‘Ee@ ¹)rÇKë,Š@(âxcÇË8;‚ƒ—„pCcöÉðeŸy"Âÿ¶yª»«3++«2ëÖÅnFvUuV2ÏwòË“çdn¾5áPI kfmÄõ/WÌþç ÑÛ¬"@ée c~°†•êW°¦?#§‰¯ ¶/èÆœÁ?§Tg«W¯~„_ö›~Õˆ¯ì“I,ÚÀGsûô¬óéW¨°× n`ƒütÁ}ó±„Y¶ÿBÄíGúÆE0 NzÛ5²hë"ö„². ¤ Ñ=ðÎm:E —Ô°fv¸þ_Ì\.Ü[jYéùeù™õ>Õßß3ùÞ+«†¦'˜„ø®–ž–Ç— œéO*,îÒ{O|ÆwNZÖÑèÈßîŒVŸ0x[;S/üÜV½rtybC¤ŽuáÔY<^ÐpZÂ~±!Ò´E¢DjƳŽB£ùY+ †r€Ûªœ&¶£,¬ên…Õý ’Eú¼zõ„*êWMÙ×á·Ÿæõ©‘ñ±·á«Y$å.¸Õ7?K˜e³(V¶ÊKÛ‹‹Úùeztzä0qk¾¿MQ¾ŸíÒL[ûòÛ®ïüÑ^GúÆE0 ŽzÛ5²hë"ö„². ¤ ÑE6Ÿÿ!\RÚYi†¼!4¦Ïž·4§sjb2”$_Ï+Ÿß¤Âæ{z)H¦R(#㹚7ô$É|“y…ä×ïãÿ¤DjÁwF,ë¤ØÃo©gosÉûÛz¥(ëM©$ÇH¥@K·Y÷ÇŸÒŽDl §E"¥½árŠHPæ§rµ(ÊB ršxÉð†@ÊTŒ”ÏõJ=‹¥_¤ÈM•Ûã·¯æô©†„ÌÜv¨ôå÷0|ýÑ7_K˜eã¾­òÖö*/ºÓ;¿–_Ð÷þ›„›i¸¹}‡¢ÌjBÜöE{éÁ\,8êm×ÈZäNøO(ë‘@–åb¥x°éøPؤÆÖerÚgɳ‹Ôx_°‡åÇ­Å™Gω©ü©1ývNg‹=!ê‹ ÔAÞP!TÒkKˆÔ­&ÜZuï:ïË/ÿÿò²/úD ³lBdn«<¶½ûˉ·5,fÑ—‰ÔkùÉlpCÒ±GÚëFßXs±à¨·]#ë¦a•Eä e]8È¢ãwÖl:B6©?Q±£¤tËÚÜá·7G«4–Ö lüÓ–sC£ 9]Ñçò'µë»=£ãøCQœeÍ·–;×1ä¦ß¹iàΕ6u°Ö4iÂ\©„ÉRÉqJÁWßkÇÈD‹:Ü«ó:râéRoÿ6^‹º"D‡æ<ÅÓÄ5ôB¯Œ&öbéJ‚÷bÂŽäI÷äÜ.üù‘§oÎÊç"arü6ÁLŸž5`›ú˜/ÛUß·MÍqªoA”0ËÆŒÍm•·¶wFs=íÉk‚&ÔñY'Dñó¥?D!´Uô@ÀD…½àJßó±à¤·Ý#ëW xBYž’„h­¡3›î„«ÐI kfú"ÙY<ÂGumèÝ]^ì´…‘a"À#79•ÒTmNÛxá_¤èL¿æZYÚ­}T ¹ybPš&f¼I˜¢.˜µiÎß­­øsq/idš0˪ºTX§,ì\ùL ·X×9&9ß䵨+B´Íh~ê Žã—øz¿„&NUìJ@EAÏAÅàCo¼{ó•h?̳_Bm‚·™y:È R®ù2 ¡'àA¨´'«—úH ³lBdn«<µ½/`››ÖdôPçÝŒ&M‚ó Oñ:±ÙF×ÕdÆ׌÷½àJßó±à¤·Ý#k€·÷ m]xH"XÝùϦs…OjX3û+õü§=™Gó™#ÄÜ! ÊiR¥ÓZøøCz6S#Dˆcý˜É2˜ÃPn^°#D…ø[ÑÂô@zŽ 6Š¾fþP«:¼bSG–ñZÔ[B4…íÛÝÌå ˆ ¸!¬‰uà^g#r²†o÷~ƒ)k¥w‡µÔGÚ—iHýhjŒæ”t›§ß[µA fú4ßX!®!¡÷{?~y“~#¼~mÐD5e”®ÿ4•-e|OŠPäårÐ,­óÃTÀjÅŒTƒ`¦O' Ë“T.„we‚n«!~¥¡5ªÉ4ã¾e‹…G6!*S%,…Û{Á°·Ü@zÿdP"-qö•îõüÑ‹År B$ o ‚-°à ·Ý"k–Û…ìsë“@Ž]LtW £Ôq}#ˆzÅŒ*£É5P;`”áË÷º …؈jNˆ×´4=O/Œ°ÏÙ:°ê:@\W’ù¢`dž°€eN±«ãŠ²ºà!J@Æî.­á{›°ÁWõš˜†käîÃ,o Ž¤ód:îyöÒµ¸ H-,Œ4vMÔÌ®¾Ñ"-*reÚ 3}zÅÒ« |øaØB&'†Æ5}9®ýª'ú–-BÙx„艌¥pb{‡ C|[Z—ðÈQÓsÒ_µgçig…ï„H@ß[`ÁAo»Dc]¬ž˜[žR„¨=†Pë¦ãC¡”ú“¾ÏÜŠEþL Êí† LrPY"–ß  ¢o„gñªÉ©l.C®&¤˜%Œ‰ãÕ²§ØÕqEˆò|#DÊWÈX‰ ÆØY€û¶Á$×ÂLÕ¡¡¡¦ëÚv$•{³ ‰[À¼—´< b“u½Ž4ºbþlãăi×!8k¢Í`§ƒZævê#¥K}Ë! l˯À1/EÛ 0³}ZLMóër<9c-uQš6²‰Ëô-4„(›²IØ*om/*«RJ/J:%Dë'ɲî†Ùé›)‚E± ÖÛŽ‘Å·.v‡´. $QƒO+èþ–ÐJ ³ñ6÷ÿESØ}k”ð¶ l3 èå‚„èfjsz8¶£]€-Q°‰Ë:œbWGŽñ[ÔWBô3»¹”­&v<Ù”>Ãiðõ†»W>‰`Rõ»õw^üÕ–m‚Ù>…Íþ3Ûjïÿ/{çöű…ñaX8½3 wq!ƒàåˆ ‘p@Q#(”%—à… F8‰5&ŠbÁ³$ºâ£/çù<ñ×®žkÏTUWO÷ôåøý^˜žfWï®Ú{Ï×·j)W/˜mJÎôG ··7Ž7Ç";}ÓQ«Ì­½i"ãPëÏ}•öØ0y¥LÐP‹…’”Sà0ï°`X—Á™c:®z˜L]òKN¶|RýŒvH’ÊæÆ›c‘­¾é¨UæÖÞwiS™ ÇoÙt‚ âÆ#ƒsAp´³Ì,vuª;©Õ…Ḡº,0ß¹óp°×{e™N^ü’>íª4•D’’Lu"ð»%QA4®œj¤Ïé@±!s°.ƒ3Çt—JžÏÑ=ÕÑç “º´¡\5Û_–ñæAd¯o:j•¹µw5íÉ´Pü™2ËQËPÝL‹x¼±2X,DG[³5Š×¼ê"VwR« ÃaAtî $½ô¸ '{­\3K›á¾¼|?±ôP()=wUsL}+,ˆÎ•‘'eë±I!ADTxEŸ âÙðŽ86dnŒÝ£9Dõ™·½hGâW媜-¡¥D’®&gQ»Yʺ·GHž¬V5'¹ ±^M–Ùf0eLŸÉ»Ï¥ÊÒܪ’E~a[jÙ¾o4Þ#ˆêw'£V™\{‰ú§J*EË©Õ‚hž\¼;?/oì ÊáÑÖhê5Û7±º£®.t„Ñu“æ(±'{M®™‘gÌVÒDREì)è–ë’XR^”?–ÇUù’$,ˆÈú‰•bº ØL’S7—’ÏgúW§5φÙ1|›“ºZa÷hÎѧ,É ‰ÍVÏCt8õ8©?œöÐŒ^ÚŽHR)õÔÏ?R"rúIʯˆVX˜Á”1%§O{£rìõcÚ„¾&Aæͽ›õo¹l—ûŒÆ›C‘ݾéD&×^:Õñï<•xàÛjAô—$e¾ˆ€oì É£­ÑÍk¶oÌ5¼êB÷@T­È‡’Þ]nÓCÎö::áŽê¥•d¶Š³äÑAÿ÷Ïå¼JJåVر%ylý»ÚeÙ›!ˆúÓfZM ‰3Œ[Vi63Da¿>¶íYi˜©»|*åô̹=86Lø6Äëò3ÊE3¿OóÚ»Gã8/“ÓU~¢§Î·ûÉ»0"q@ªú. œŸéŸ^#ÃV6du I÷ôH7N¶žÈâtž*f”×"Õ«è®,=ß!MÿÞu—ÜhÑóQ¬¬Ì`Ú˜’ÕP Åão$Õ4äÏÕ¶É-¼=+ž–¶O¤{>7»‘S|Ó!ˆÌ®½äX£¨•¨ŽÿžÉKNhµ º«üÊü)oœ æåB6£ÍÏ,Š×lßØk¸Õ…ê¨ š¥Lïí|œíu2èê}¿¯~½OyõJÓŒXRnW)¯,¾WAfPïO&eåæ¥Þ=Õù^eº±¼'ÿøöMªTò˺$6QžM|Šö1oô¯€ âØ°áÛÜPV…BUeÒGͶ˜=êéØûðù7%Ñ×°WU ÜhŸ4R~Šª{÷õV).Ö‰Dâ@ô%óUbóã–ÖY„#Q{B'ŠŒˆNÊ”š±Tö¯øIì¥÷E/ûÀÊ ¦éöâTyu™âuîÎtœÛ£u8Ú M/ƛ݂È)¾éD&×^ÏÏJ* 7‡ ɇ‡“ö¢M%¢6Åâ“Á¼\Èf´ù™Eñší{ ·ºP=DÍ›KB g{M®™©¯˜ÉåVrLÏ÷· %¥g4œ0ê=וLÊ™¢:t[ùJýúy®Må7ª}‚ˆmÃk¬J®ÑDÌU®w§ñÑÐ@¢™¦¡H¬Qo<ÜeG>ÍKq¡y¿‘¦8åô™êËÑ>°2ƒ©?) ÉHœÎáÆ}M)ó²ÿÛp¼Ù.ˆâ›Adníõx^þTšX彯óV ¢h•Û‹7® bçBV£ÍÍ,Š×Ù"~u¡y (ˆÈmé=~Ëpº×{Ó¯˜¶b?÷{Z[”IJÏÏõÑü'Ã~åÙOAA¤DRiP\yü˽…±oC×;µ‹ φ+cx6óÃ1Áï­z-УGs%ˆòÚ»#ÑÿþÍ©ø–kÏÏÚ4WËv}u¬7›—_j‰SNýŸ—Ǿ¹ZîK3˜þ“2ù®Dq®dgnoínY¬ˆŽÂó÷ÆãÍ)‚Èvßô"sk/awMôT÷XMò2½Õ‚ÈGxò¶Åâ/ˆ˜¹Ýhó2‹âu6‚H£ÂR<Ðõ¶{` ¾c×F.Œê4ò=]¯»iÅ=¹ýž®^Ûiã>ê{µÕõ¯\ö¨n&¦–×g /uöÓ¾õ‘÷‘—vF\ðבÖÙÀkÃíø´Ô+W&fº—#~gög¯*;»w[ ËÚ¦ú–/üžÛx³'ûfeí<ö´õÃE[§¥lØ8°á7n3s!ÛÑædÅk¶o\¯¹Õ%Ã"|ñ@‚‚DD€ ‚  ˆ ˆAA""@A‚ˆ%ˆ¾< ˆA„.Q*>€ÿs ˆAA""@A‚‚DDÀì-..îB7P‘€¥‚htë¯áõŽÓ.Û?wz „Ø'IÒ!g¹´¿»¯µ;¢/'¦®ý²(ȹoæn'›ÌbÛp[+˜ù{yéUã~Ó:"‰¼9ö«z‡íÁ‹©åÅÓŽÌÎÓS³K×::Q‘¬ ›ÜÎƆoVyÀ¶Ñhšõ6¢‚¨r³L"Ö ¹(>ÝéµôåÓ¨SÖ5Å„{×ÖÛ„lXL+ÿócbyYYžvIùñùî”äçŸÌø¶c@‰7ï}â‘Øy¥HYóäSШS êØ!²®ÎÌÚ „Á¸Hpó´îì e¥TdÖà­Éí9ö«z‡éÁ®úW±œk³±fÐr!r;T¨¸æ}p½íË)Ÿ6U¤lj߆Zß8ñf¾zm4[£d=ÅFL5ì8(Å)»2á’èt§×öÒ*јUÖ…Tß­í°a±[ùŸáÄòÊòn—¢‚¤0¤‹‡àñäÞ_êŒÄÆ’Äš{FUû1õ¬‰l‡g£7³ÞQÂ`X»¸yúýÑĺS&^‡7½4²GŽ½ÆªÞazÐp?/¹f0`WÅ åBçÙò”¬š‚ Ê)ÙÔ® µ¾ñâÍttÛh¶–™õT1A´W1º:X«ü­qItºÓk·"I*9dTm&–›Ü$ˆ:*Þ¦Œ‚èO·wLùÓÜ&‰ó›<åÈ«Çàõ…-¶¸ang+AÄØîO>»xy:Õ µÕªž0gôN?‘ÒJ#{ä8cjQï0=ˆôF›8Õy6ݺBË…îØMaqô„ÂÕ!ˆrH65„kC­o¼x3ÝÝ6š­ef=ÝFH‘_¼Òö›äxm“X÷¹"8ÝéµÍ|>£Yî±gñ…C A´cnn®þò¾Á¨"ŠhÚp‘<&e?_Yv‡ ôH4At›|wöýißÂÜ[ùÓ-‘H †åÅð« ot$ìCcŽõ‘&$Xô l‡m£?³îPC6úA³xyZGôPñmåp4hÒI»’T®.ì‘c¯±ªw˜œ%+Ž.-øVw”ÊC¶Ô j.tÉêÍ{t|¨À÷[à Ùpð )ŸvT¤lj׆^ß8ñfººm´[ËÌzº ªÿ¿>%A›]œîôÚ)œ”{ì¾ú«PJ¶T(…ZÓ†#ˆšË¤Òø¤«²ºêq‰ Z"Gñ—3 ä|+[Š~¾I‘Ÿ D⸼ô8zl!"³Ãgÿ‘[ _ž`o‡mc8³‚'ä‚£mÃimšœ9nî}¹u^ið†ª4²GŽ3¦õÛƒÑîHî“$ݱ¡J0raI:z,þy™ø¶A”3²©!<ƘrâÍlôÛh¶–™õ AÔ)ï~OüFì‚jYý»á©-wzíAä› K…Ñ=ùW`+¶xF>ö-r… þI”àíÎŒ‚Av¾=¾ð+I6íH,¨’ûðQl¡Qþ·&C¾í”·ZI[ÁÙÓÆxf-¥\bÛðZ#’˜;~»dU±ôPUÙ#Ç^cUïp<ˆ¬%n7¿£Œä‚¯1íÔ­/¤jÚP‘²©!ö˜2ãÍd²°Ñl’õ AôHÑ—ä¥UĦ;½v ò ‘‰E‚¨G> Ùˆ-ÊY8Wë Aô¼Íò3¾éŒ‚!Ë»²™Ä¹ ÿH3§T§w{õk5ä9 êÅ Îv˜6ÿcïZ{¢Hºp2;ƒÈp[a¼ÑW IDAT„ˆAa‘‹kä&ÑAî Q_`1ø Cäfܨ!^>¬›¬ŸŒ_ö?ì{ëtÏôT_NUu÷\ºã[_t¦8UgêÔyê©Û)÷žE[dæ¦P†SÚ#ØUMóeˆ·„ ÆNtЈ[ÏÉVëHjp>'{f¨/èÒœYý?!ÊTr‚!9›êú[š5p #,ÍÂëBô;KQfm~¸ÄîO­ýCˆBôãu„¨x;5 ТëugˆfëoOŠ6\j¾‰¿´<¾61rh ÷ô(×ÞŽ¾µy¼}šá”ëÙ¾0ÑpêÛÉ+ÿ-¤˜Î—Œ€/$äg½»m {"ìŽ|Ñré§C76£EçYfpêAe\{V=¬¼‹e8¥u¸ÞD4¥;JK”³Ðˆ[ŽcÓ,µŽ¬M4£*ëù‚>ufoÐ É6RõôôÀúÝÚÔÖµ·»Û‹’ˆËÇv;v—ÙÓoC==ñPèÏÝŽeey½ûqÇò¨›_ãC82r6Õõ·4kà@FTš…×c22„¨ˆU}šè*eÁ÷“?µö!ú¯é‘=BÔ¸NÈ^ÂV•¤²‹¹eNć€Kýú³´K‰kØÍeäÐ:CȹhE"Lá”Vð¡JË*ÿ,µ„ØÝw61„écˆ~1Ï|ž$äDØ÷©ÐC-§.V»±Y6òpêi³?ZIzÖmÓf± ž3KM:˜Þ^ÝÕIH[(TÇB#n9ŽM³Ô:²tå†t ¾ O¿~CΓm¤(QêQuaâò\tM ‘BñÏg¥í k Îí—g^ÐXQbÅůq‚!<)›êú[º5°/#(ÍÊë1ÙCÕÉiÎ#ïz9ùSkÿ¢Ý´Ö>!"A jèÐQB.¥щîjr!»/W?©}ŸNo¯¦V>ídçXhÄ-dzivZGVƒïôïîæ *øƒçWšÝî1Bd)¬ÞüÁ`EdH‘îõ2¥õu¥ч/‰bZ^©q Ȳ«_cCÄ2›êú[f4°##(ÍÊë1ék÷m¯Á‹/éÿÏûbH÷§Öþ!DQÓú½MBÔ²™ŒVô/E¥Å!º®ÌŸÊ«Gúª\Oy%tDYtdó=íÏ „h«éª´¦3Àš/­ þ<ðr~¤ú²’5 ß:íþ})š½wLó¼4˜»î'–Mן]>p3t6 ±î zâ CÈŒ».dÖ £"¯ž#©ŒgÅ󨥂22hÈ€yõúù+¯Òr!b­˜ZøO„…FÜr<›f§ud5€]›¿=IˆŠÚ œÎ„ÈR¨QdÉ[…Š^TòÌ )anÊÕ}·ã²”¶ÂâÓ¯ô» JÈÈfPY8ý1N0DBF@ˆØþ–! lÈðK³özLF.RuDÀ¨YYû ´vÌ/`øSk¿¢çºMX„èèU²ORì(YbÎ1+ÒËìüé ¬K'C¤î˜!3Sua¥ÁÕ‚ÂfTr3¼®Ð-ÈÆ+Ùø>HO|¥ Ö­Ü…Ð8Hq@àê¾Á™ü½¶ ì5 N=¨Œ[Ï:d"ëd°:±î …†ËÔí…v÷áˆè^‰%ÚÉÚ ·צYiI º„œËTpÏà8£7ï­€'¶‘B%D»,QŸ"©¯6]€!‚`4‰@õúðsM„hXX/SšzO®×Ùºƒ0nÂÝ—Š:kQ8@Ⱥ 'NŽWlIý<=|ÐöîþöÎáVµBs"%õ`2.=k“mg‘Œutˆ÷²©lHü [/u®}:­-^³"D¸å¸6ÍJëÈhð¢‘fü’;¨à¢@ÙÄ+A›m¤P}ö¿šˆÔ¡-L¨é?I¤#o –”Uÿ¢×E˜q'"!Ã#D†þ–! lÈðJü“‘#D‹°?R1=ÇF­~‰çãO­½Mˆ˜Tº"!Ã'Dÿ¨^7kM!jHÓmÃEÿ«FB$&7 ìPtQ‰:Ò¿ã kXÆØï(œ_¨+$dâ„Ý›CzbšWˆØÕ‰R&ø±\=zwž‡ ÊeeœçJ/›JÚªÎ0ÂØMÃÌQX=!âXŽcÓ,µŽXƒÅÓLž!DÁŽŽ·Õ›ãJ˜Ú³ž‚6ÛH`u†É:Ñ  G$è®ìƒð/’Ô‰:_¾òÍwí‚[éUH/¯û›§WˆP¯wµB¤¼}v@ Ý=¦œ¶÷·ð§Ö¾!D}Ç22|BVƒàDHÅk!*zr!zéVUg¾rsc4Uþ)ƒB:Bt„ÔfYM)[1¤³Õö–ª`ü–Ú~j+§ÛkAO|c±}'ö#¿Ø«‡•qçY¦s¢¸ –3hòQû3ØaèwÞ%ù„DCÖ„·''K­#Ô n{¾Ë%TðVn>…(3ë^‚6ÛH`u‹ù£KTáˆD»[€µ<,]MŒ¼7´fSσ» DN0DB·©©¿eH2xîõ˜Œ ! BÔª~øfÒ^»Ü%jíuBTÑØØXð¬YN†Oˆb5$?qàËC:B´Ô1£#_ `š6„0ë7¢ëºÒ =¬MÒ;›DÄ0Ö£êÅÛȳ œ ØõD«›ézªbv5u‘I¶VÆ•gÐo‹‹ädИS7ÆSEœ#dÒùžYå½]!Â,ÇÍÉJë5ˆÁö[[,—PÁ?€„×Bû¼4µVû–„E¤X€Ò@]3Ð/„(¢5[½kBäC$dP›šû[†4°!ƒçà^ÉÈ"8*Vž²Ó<`ÄÏO-©ª±í7E=1lˆ…!÷z¨d:•º,]Ï)©WÄžõÁœ—As ÏeƒÖ%N[ãP75"Är‚œ,´ŽPò—¹½Ö.ˆY,gãöxƒÙC «K–„E¤›†]¶PXmL%DUZ³»&DN0DBµ©¹¿eH2hÇë1Bô³î>\c«õÁˆîO­0BôœdkW‡¤ìû’ª•G-ʧ|…è® !BKK¦ÅÇê{f¥‡6qˆ3(÷ˆ¶D=ñ¦!Zê- Æñtp.Aºž9s('žì%¤ð¬¤ šHF™">ÊÞñ²HMtæ_õLK“tâÿþ!°œlNæZG¤D¼îmÊ-Tˆ|aÊcowØF œáˆThX†‚Cæ“¡ô"'"!ƒÙÔ¢¿eH2XÏë1 B¬ dƒ=gÿ}ì$jý£¢9ØèW.ßk„¨nµÞÕ¶>¥€é±áÄË„/é+ç7áèjá÷ô +©§8=ñªn ïéDÒfÀ0sF¶ž01öuâYs¦…&\†“3£ggï\¢Qb™žò-'“±Öi‹MC9† ‘/Œº}´8;„G œáˆ•Ø!~-ù>|š ‘# Ë 6µìo™ÑÀŽ ’ÃõzDF‚ "*,Ðϧ=? ûSë†8O s¦"˜PžKaÉI ˜¾·ìI"¼4]z4h8'àr¨£Ú {"'I­ÜswlØv˜5aÙzvd6…ÄžÕg:€ËpJ;HÅ¿ƒ4¦û#DŒå¤s2Ö: †)ÏÈ5Tˆ|áØ°÷éQB„#NˆpDÚ7Ð÷?“N—nBäCÄ2Ö6µîo™ÑÀŽ ’ÃõzDF‚… W LO6x1ùSë…"¤q@0k„hBþ¿8LpÌ– DxiúôN*þÇÞ¹=E´a|€'38œdA-D¢°Š"* ,XˆÆOQ´\•EѬ'öPîç–^Y{ãõwe•ÿÛ×0C2“ît&ÉLFžß Ãdºó&ý¾o?ét:~SîÅéêT‰’ã‰kšGÉÇ…¦4‹Bëò™ÛºLâ‘E0*Z†SÛ„vÑ£}ÑiAT§³f¢ÑçÎß‚…|IúñBÊS…‘ z’#DìLÁDìŒt'fñðäÿÿ8!ˆÉ!ÆetÛ”áoÎX`¦ c 7êeÑå_+ôðiªIO«7 "¹B)D;4©ä„êi¥FÕOI‚ˆ][ çÅ9ê¼ÛU¯Xàxâ MW±ÛÊKã¨R¼è~ªDÖú1Œ¬ßâ_$Á.éöÿ¿E7”•ÜÎcQÓ©tv·é_?¿å·8xv¸ª—¤úŽÔ§ #AtÝ`»K;S°;#¢ÏÖù4r^™&f· 2ŒmïJÓ¯É2ºmÊò·D²˜½V3¶p£žQFdÑAIÛX ìB¦…Ä”<ÒÓêM'ˆˆNS²|TÑZº¢?<¦–0;4«iDœÚ´ì6uG†ß ÐNœñDrJK"Gp:S;“ÄaIýº,±ýhË$Yó$ofõ‰–áÕ’¤ünu·ÚeÓÉÑyÊL¯å·8xvxäÑ1Ía¤ A”GŸÝzç~AÄÎlAÄÉHtý¥÷©¤Ìáµ[ÅöSz‹ößTÝ6eû["YÌ^«…,ˆ‰zý2"O™ ©ŸzÈ ÅL¬w+éiõfDïh )Q "úMÑú3ÈÞkš•ƒèeWIäùœ$"ˆ8µm «ÞDÞO:ª€øj)¼NÀŸ ‹YO¤“vŠ•î±ó¶Å¥˜}/U³Ôdjæ~8e¬kzkï°Ëpj£«É­/#2\Bšþ²Ã‚(¶åD¶8{vØÜ$‘Ùä†T ]sªfèì¼.[‡È\¦à"vF¢!Œ4×Þ@téÛ‘Aù*Iñc’†y'>¿qü-‘,f¯ÕBÄD½~A4C—P(®¦‹(ô Ò– ¥Ã«ãÓÓêÍ&ˆFèÚþÛ}jATFn}´Ó[Gv™¥Ó¡³+*Ï5“M/*H&DœÚV¤Œ¡je@¤óbÀܸ¾ž RÆ—.öÐ$¹ æ‰tîåÑj¯¯fö,õ=™»?çѪêÐÉ åªÁÖ~xe‹,ÿA’8_ˆ—áÕF'¶–÷ú}Þî-™vÞw‰D¬–ãmIÎÙaZKÿ¯mÓëAtXêiùEñÊ]l§AZ²â¦Ôf:Sp'#Q•[0Hõü¯W²6–´]ä²´øÃT6åú["YÌ^«E,ˆzÝ2B¯î “Ë%)¿üüî'©àEZtééiõ&D¾‘+æuˆèüC©þö±Q:Ö¾üA-ˆʯ=/:J“מ5‘uˆØµ}ý¢²öXqüÊ¥Úfk‚¨ XLªR¼î– 'n=B¿) ÊX›õß#¯¦”Q¾þ®‡‚~Ÿñ~xe‹¬{úOŒ°Ëpj›¯•[(¤¬¼<é” b¶gK’ÎË‚½:³E·¥&Uè"JFOíúºÏ…·\•ÚLg ž bg¤‘ŸäÑïÐö¼ôë±f§?‡\’›à’©2:mÊõ·D²˜½V‹XõºeÄ^îÚôJunœI“>==­Þd‚ˆ¾Cæ­Vy«6šmw®7C=ëçD(º©x¾ND±k»  ïÃó&N® ŠVµ|WØûG7ô,Zk²˜wÍi»GÆ~¸eŠ¬íŒÕzØe8µ]^ÞØrÖ¶5+ã³åØ[’uv¸YÕšzç®Ôf:Sð'#M~—Ý”Ùó³_ñsH›ü}—©2fQBYÌ^«,ˆ»Q®WFLù¶¶×öÆÀ¤/]HO«7— ¢—̳ZAäóM=TÚ­ö³W~ôI5 z¤M¹ˆŸr5~u»¶¹Š#‘€(Ùßk­Øèº^UL™ñľ;•7Ìn±úïÜ¥Òõ몎ݪ¿~™"‹v å^se8gÇû¤HÙRüÜFçf"–ã´i’ÎÃ7 "ïóŠ@ĦúÝÿuÛý¦3W±3’Ï·X¥¼†®òìFs@qsÈez»îÕVSeL ¢„²˜½V[?sP§Œ  "Ì, Þû¥3Íúõô´\îë/Áë]iú÷Hf¢µm;Ô4>ØTWf‡^.&¾V}wÒ¬'Öœî}2µhË´SÙ‡©' yº•1öÃ-cod±Ëpjëþ4vöíì–ã·i2ÎË‚Š7Šû¸éÓàÀó¼Éo&ïp®DØ©¹£éó­CÎKBN)ë:ÐuÙg9ïù["YÌ^«m±@\|£@‚‚DD€ ‚  ˆ ˆAA""@A‚ˆ%ˆ6D€ Â)‘æ_€o"@A‚‚DD€ ‚ øføuÇþqÁŸ> öà„ìa(ôá4l Aôó™Žê3¯ÓíøÜnµ¶n®×ô·àJK}§{ÿõç¤ÚŒbI’òÄ~:&IÇ“éo¤µÃﺎùú¯½á¦¹Vç}àŸ™º÷ý¾”Gɳ/_¾ücâç3÷Ö54ºÒ¶$µÏôìéðß­«æÚ4åVoF*HòéLÅŽŽ–Ç3r•A¦HBl'x¤Œã‰³ZTµþTJÚZ*Üß‘Nþér«'Ê%…‚ëy9é ¾LäËGòêÉU¡ßOdDÖ.}Ýf›!%ĈOŽ ¢ÅòŒŒ5sþ–×TûˆæëšßKäoóÛGœlŸï?.”÷3:>íT”ŒgÄ3÷«6²¯í¢eV»ŽÈV‡¾^M†kmóxNj ûèÜÙa¶Ïë+•ÈÊ|00-ܦIBß1?€ ² QëñÜ\e˜)ôk³ÑjF£8eŽÕb‚h麥b5m†,ÜmõÌ1IM°ÛZu}÷n¥ð`¦Æ¢rÜ/R ]Ò¶i€jÌ9‡Qã9Ú d›ñ·æ³ÑmûT_ç|¬~_ÚõÌ©æɹX°aÛè¼CQ2(ÅÓ' 5I“_ææÃè—{Fœ÷âÛ<žN­amNfû¬¶”ª~^;+Ö¦I‚e@Ù†…(‰óxN®2κµÙi5« ?NÇ£kµ ÊQ*,üQþs8Mnð¸ÜêO™ÚF >²V_¶”‘¡8ù:1xT–EûE¤M{\Êl·GTä_¼âHT­ž— Î6áoÝSÙó §>¨ú~Hþ:kTÑ“íN ß­kïJ¥w-hv&JD:Âé$.ˆv½’m+C%äø5M¬mÏÞä"fûœYBÎ(1YÛDÚ4I0-€ J*¢$ÞãÙ¹Ê8SèÖf§ÕÌ2Ü8eå^]«…ÑZb¢{Úsr ƒ|ú#=œÓÝV_SÆE²OÏ?m}þ‘´É€Å ‹S)ˆÞc9µËãi|žE>õ ¢—㔵–Š€|2ÖìR¢?LPÍ—ôÏßîÒ˜ œk/´¶ªÔï :¤Öü;íòºµÛBM« ŸôääfÓÝ}¤÷ɬšzÚè¹:ÿÝr{I M“Ó?€ ² +Qïñì\eœ)ôj³Ójv^œ²ŽGßjAô…ü¾$¬üÞ_.>g5µ¸Ûêy¾ÍÛHßÝØÚbq€è…)DK%’Ô£\2 tPA´ùçjõ>zË(ÙÓYDáJbë8AÄó7½ªúNç*hù~pýó9òù3úè±t»uýs½¼ZLF”,IúŠùŽì}t'ijÊL{Š•³öz”|nuÖtlk"{u(fTGÊnŸ°t6ÚÁÖÑ-aã6M¢èù‘mXˆ½hdå*ãLaÛ–­f—áÄ)3÷ê[-"ˆÖèÅ|¤ü jT:ø¦«­ž§ªuŸ¡S-¥PÍ“£éR>>#qsì òxnÒa÷…4DK[¨”½²'ˆxþFoŒmÑ©l•t#¡È Æœ‡’TèÐÝ×mÿ@Œ¹ŸŒ( “êÞj¿úžcø<'iªË4ÖJR~dfJ79U§õ=Û¨Htfwš³ÃlOwÌÌã6M‚èø‘mXˆÝhdå*ÃLaÛV­æ”áÄ)ëxV‹"r[âÖ@çO̧oºÚjz‹iÌÖÈy™JA´¢z²‹\Ì "9•t¥ ¢y¡tÁã‹D›!ÁûàCHîÐœ‚\çú.ÙÍr2¢„Ô#ðH·9š³Ÿ“4Õefè8xt °Rãäyѳ>rÕ±ü”5mØ>qa¶Çc®L²àXÀ±óÿÔ]éSKo €GåÁãÁ0Àz„Ǹ(** B(ǪÜx «(‚á¹ò|>ôÅ.°øt%44v?møå}æþo[Y=ÝSUSY]=3Ý3f„!3=Õ]ù«_UefŸW—Õ†5h‹?§‰ëœMyD&7“,–NšÓ D@4úÝ58?8HKI|íl\=²2½áˆ³w¹ \lñÁûöÕþg+_J„hZn¸éï6[ɬ½\$D*{Ç–„7î¼ó ’8.úo|»€—<€Eþ«ëtÏç74¹6·Ù"£“|zèc·Hu#VZéÏå$½#y>¼t™ØÞÞ&(Á5Àï4G‚b†³`wàÊÇ}#w¦SŠ.•÷¶÷·?¹,!D$_\3ŒÃwÆ{)´u­üÞûS&w“¾—H-Ã*W¤põ팵V´Áýt\½—¢µ!ºÈMc cBoÄ˱äµÖoÙ°\¬ù¾ ,ýØo‰#e¿'móÑÔK!¥ã'fÈGŽ`gs9‚°Or*+ê¿°¡”!êåaÓ ‚¶ZoI$#Fì[Ø»œá.u¨½Õ>~¼#D±W¿æªxWóå•Ù¤io‹Déaé¹fìU’9ØΪQ-3êŸ^r‚<~¶¼\EzØ0ªqÐäÚÀ09'…ÌÚˆ½"Õ­Þ·è—ÔÞ‘=^. OK§MP‚k€ßiŽÅ )ŠÉçã뛲$õpt(‘Ô]8UL÷gÚÔH>Ñ74¥¦b›a<¤JÜÎànÒö©Å£Xå†î¾±ÖŠ6¨ŸâØ‹h­Aˆ¶ ›»r¹9£-ù¬õâ¨bhO 3²7³ $¡æHÁVv¹0 B„œMyDIohnYqðÚ¸f –aSsq * á~²‹ÚÝ Ñ®Êä„hãïà`ÚÛ#ÿ ‘ÂÞ~Å3è€ÙËY· M³'ëƒå¼kþ{I1>§<óBow£ É·©à¦}±·Ù¯+îªÛA¿¦Q’Þ‘=^¾“#Û%¨Š;Í!’c†@ˆ>m®JzÉ,äžšH"Õùv–É‘œ¢ÿM'NßjUSÈ$Å8m/‘Z<ŠUnHáêÛ™k­hƒúé¯êìåT­5¬ŽÝaN%Ÿòžå³Ö [ÙºO'ÏûKZ ŽÞìNf^Åh鞊ý«‘a˜ªì°—¢ µÅ©ÒeŠ8Üt;›êˆ‰cWl¡>òø?ºŠ!D!â`á6w Hï||G¡i´*̦:¬¿ÿ£±}äõžs"!Z¡'ûíÍ‘zÚng“Œm@oЯ)* IDAT„tH$D {{„'o½"‡†,öÞ9òsÖ÷Š6½– ÷rß|NÄÍ×  Éµ9+DÌ€…øV®Ñí¥_µ¡R{Gú|8 ö»£Í[›ÀÕ@q§¹#Dr ÁÑq2aÚÑ32Þ\@«:+¹môó½þñ)òGe”!D’B=·óÂZŸ¤Û¬í‡xÒÚ´o&m/‘[<ŠU.HáîÛk­jƒúé#eâ¬Dk BÔ$,–½&Ÿ÷ä=!Êg­Çðîyظé°öœÏßãŠ-À¦RA']zÝÜe¹‘ë¨ëÜ k*æ~6õuÙ9ã[`ŸkGƒîü„%DWÙ3…dZšM³þRyÌXÜó$ò"åÄÿ Ñ@]M£R‹c£\ÐN’•fíó°_µE$D {ƒÀ ¿M?7l‚¦Cð³ˆb(>ô&ëbRTýó’µJÓ<Ãuè@k"&²M¾Í6¡<É5V1ÝF}⩽#>¬ÌÖ c’F›àÓ@u§¹#Dr Á¢ØZÆ¡0ô”–_úl·}œ3ƒÔ—ß×ÑŸµ©‘|ŸÈï<™ÂŽš“!+*íT†t½±x«ÔHáîÛ™k­jƒú©{åZk¢Y>‘zv=ÿ–÷„(Ÿµ—º+?ô‘Úo²œ…Ar)ñ¡œ¸[Q¹=öˆ²+!ºOŒfø¬áz6—ë ²l‡1½Õœ ²„èÅá(™©uœÕЀκŠ–'N!DÆOEkS åCϼ¼;$…)으Ê0~¹Gû§¶‘[Ü€~½=ð&Œ‘ÅŒ¯©Ð4wûï%É™þà¾!sÊJÀZ…&ßf+ù´Ê…ÄîÃ>u ¢Û<¤Nµ4Ô õe3ý>µwäÏ')±iØ€‰Æ½´ rþ‰i ¸Ó"C¤°Ñvµ¹Á'˜»Ù+I{YB„!ùŒ=õƒÓAt÷-.XØ£¤ë%ˆÅ£X¥F wßÎ\kEÜOUØ+ÕZ'í&éÿrÎBCVóžå³Ö'ÐX€x%·§³…ð„áÄ8 qxOœ#ºQ´æ-Ÿ3͉$ ÇÏærLnY»áus>ÕìÚ¾}ûÁî (ê¶sÓ¢»n 0û³á‰±+2UìJïh"à®t·ç‡B„ÛÛ"é™ç¡~'š •›Hw=§™äßÛ/‚0¾)®}ó’nrC\¡M(ÊÝ`›ê.6§…Ê6WvÉŸ>Át»ÌÅ”ÜÍÞ»CRz{>`³%%Ï¢Ûag¦hÌÐl¸ (î4§„È­»X¤ „¨ÚÁ'ç­bÈQ× B„"9¢oðÇ{»ªTˆ‹«éÞLš^‚X¼«TH¡áÛ™k­hƒú©{¥Zë"ØÁxmƒµ¶%ÿ Qký˜èrCzD¬ó<äÔ «`–žŸ ›£.„(vŒºÉCàgs»"åõ||¢!JJõ鸆n 0ÛJ›ѸÉ6†Aé”âÝ(Aõ@ˆP{[‡ÊFˆNhî(¢/ÕáÖÇç£VT“‰óï@¿¼¦sû¸¥°JgZ¦ÐfZ°§¿²-¨n |RBm¶j4¥ôú|ÀWŸ¼>kè¶ ZP wšSBäÞ] RPBÄ”–„`LËgâ;L3¼î8™$D(’ƒÛ@e­ýÝ u—ô¼³xV)B÷³ µ¢ ê§*ì•k­Cˆâ‹¸>ç2ŽÁNi“‘÷’ÇZ¿Fg(#‚at:Kµ°ƒ:ĉٚ.„h…¯ŸÍí:rùR”0Åwé"³¢ÿ³»n 0S´V¢q!ï1;Ãþîñ¦"ÔÞ dQAØœ¢ŸŽÁÆG5ƒÆ¡1;K¥ûA¦·íQ­Í/™J<Àä¹u@ šB›+BÈ ìAüÕ¯å D·òèÐñÞé½?¾¡ñ!µÅÙ¹`Jï Ï‡!D…÷æ¶ê¶ Xp ð;Í-!r/ŠÏ %DLõ¡]ä£tør”O“„Er2ŽRÿ?E¾yEË Ìxz^‚Y¼«H¡áÛYÐZÕóSöʵÖz¹ë7Ø GOT—™æ\ó‘e–ÏZÃäC¾ú]- HÌÚáôæ$xÑ&Dð¤ú¿œ!?›Ûu¤B_o]Ê÷X Ë‘HdÕhÙt÷}§÷ä†á®A…kô¨š•„(j¬„òœöšJˆP{»O‡3;dáiµƒƒ ¥®;Úç`K><óÛòJ¡§¯øï%]aÛnò ˆŠ€¦Ø&°" ÝÈ|r.ŒVʸwχ¢‘‘‘–ÉnZ°&ò'½6Á ®~§9&Dîè%ä¿—œ%÷ÒÊ«!2,«A3¥,«Ä÷ÝkèFeñ @›ÅÞQ?ŸäašcžÚ Ð;Í5!B0A D=RBÔ.U|lÅ8’ÏØÙk!ô Q§Y_&^‚[¼«P¤Ðõ#CßÖmÃú)~?˜Öš„È0æ·.õNŸ Y5Ú§ŒDòSkà°û¥ÌÅߌ HŸ`4Bt"ež†Ÿ-êÁí<§áv7 Yê–uÁžMÝ°Ö˜£.„¨À#!ê´Jô‡vï¯Ô„¨À:¿×"9!’Û¼êßÌo&8¥A˜vöÊ}‚1a__@ ²=€—Œ QêÜdNšbÚÅ“B¿ùÐ=:ºYr5K{fcX ?ö|êu¾N{kã¿(4óž­ !’c†@ˆ.H Ѹ :e"É !:ãØ÷ùŒ Q^¢°xVaH¡ï?ú¶vÆOÑûAµÖ&DQû^îšÏZØ=!)#„–ƒ@ø¥³nÒ×”‹DÞ颩é_øÙÜ®#(¥ó%Isjßí úóFˆèöûiW ¼"Ø+6Ï\½wЛ±IA{˜KÀˈÉìíoR’td˜Ëœr4øLÚ¡fpÍ»¼$D“2&ÚeƒÌ»kn82A¬þ߬jc)BeÚµ¬wŠŽn 9Íc2ëÏg)…`¸·ñ[ wšŸ„E œ‰+DÉb(’g™y÷•Å+° A þóöÎï)Šc‹ã³K!S®wuqù±€‚@ – äŠ(A*àˆŠ„’0x£\#ŠÑ%j jiLÅ'+/yö‰ªû¿Ýé™ý13Û§§gvfwÖ=Ÿd±{Ît÷9óÞîÓiú6w•ŸB÷[m^]u]*v\e5é&ñÀWEÕ Ÿ0JN¼b~Ä|Ù‚Ñr‚¨nF®í{Ó/u ^é¥*¶ó Y#Ü|ˆãtžAt6>QôÀ´ ${d¿Kdøù]/ˆön InÄY{‘j¼E ´Ïу‰ «$É}A3¡pnÔ‘Û žÊ„—ôê¦RªD*ïYe‰¬zÉŽzÒ9á„Ƕ世Gö·Ž‰þ©ÒO×r”q–½¶-CÏ„ ‚#,ˆ¶t{p“kˆÀHnU}êVóɺ—°F<« HaÂÒõmÞ2*?…î¶Ú¼ ZÅ9±¦ÚÅVïRUéà—büdÄD/³‚hRrÍjýÎ!¸6£ë¤Ò(ªž”ÄÎwþÖ(érŠ :ç`Z`Z‘—ê†7š«¨‘l8™ø®.²U©Ç[s2¬ZR^›OéNëx%ý¾íÔ˜[‘tkàIF¼ä€îÛ}ž y uEIm5©fj" ÿ¬›³·©uLôψîž2δà€C«¾œDp¤€Ñ€.‡‚ŒäV„i/aŽx0VA‘¢ ²âÛ¼eÔ~ Ü‚¨>vŸÌjòÝzmVñµ6˜2ÅÁXÅ)ø‘%«2L?ï'}Aä9Ô+än·zñ‡áxGyj6“g¯î®Q&H&jªô.»ÒW+šÒŸ3¹p"öéMœãÊDŒÚ˜×¡qfŸâû볉é–À/œ‚¨ÌÞ{~”ïN-Ý!¼‹IÅ=mQùCDÂù`1έf ADoÑ¥J¥o~z«ÓÅõ±©BodeÝ¡Æ#ˆìò²­ã¨Ïœ b”™~”Í îÌÌò\­m¾¿;+bíu±ÆïXëÀýã{ûkü“Úñùn9’uAÄ1Ü&ˆÀHÁDÂÃzez÷Á Ÿ¼ï^­h‘ÜAÄô’"òÊåÙ6ñzÅ*žHaBY²š^†í§`ìµ.ˆ&gV6çý‹ëBN‘V·ß©ûãiSÏ.]ä˜îXk{†º3`ðÎÚæ˜qƒúŠSrgà點ÿò_®ujMþ±¥·Uv¶µY @A$¹WÇ¥±Ó§²<ÞÚgVNÓÎ8(ùy¬mÞ¿á e¾QBNy‰¯ªk©wwÖ­«“s½K+M­ŽÀêið® lŽ½m]7Q&3=“u ìÇR¤ð¬mÖ]¦6#’gÊKöo}±Ud²:j¬²?RX±(ÃöS0ö¦`>S5‚¸š BADH^ñVD×°ADH>C·ÿƒÍ€ ‚  Bò™½'é ‚  "äs†,!*ÞÀv@AP!yGݼr^ͧ×dŸëlA’ÅÚై’dxAAA„ä¥ Jæ{.Áö@AP!yÈÿ‚q9ZZÇæ@AP!ùÉvGÓüÀš—S#‚ Î"AAü‚ ‚ (ˆ° AAA„ ‚ ‚‚HM‚ ‚ Èg "AAP¡ BA "AAP¡ BA "AAP¡ BŒ™ gÍ b|á¾[r³m‚ä>ç»Ý„­W‚hræÒã¡+ïÏͶå»EQl6_,?vµÓ}·d¿m½m½­À çþZ¹û´©1ŸGÐp»1[4#¶e¿uà(æ’ø6ÙÚÚúDÿá“™•¥÷³y5;¼¢ØïÊçÏ×3ów/uug³6+£×B†m)µ™Dÿ I©²ûB©üLyð¡$‹½ëfÛÌ°£@¡?\ÙyuäsD{#á^— "ë¶ÑÇ[×P9©ÍûÛ¥HÝÉÊú*å¬-^²UÊy§¼n¸Ý˜-j/4ÛµM³ÃÁX·Å\ßžKFìÑ|²«>${–8|µ=ŸQiƒÙlø6“Ök¡b¹{¼ËSí¦âí:@mX½Ô2L«Y¶QjãD…;ÉO MÁø[¶x#kp7Ûf>²$ðöÝË–=SmD²¿d§ ¢Ø–ÎË­Ûèã­¤3Ùugõï#7$þÖÏ7z3á%¯ÅTN8ä`ÀíÆlQ{¡ÛÖ¡mšçÎÅ*x„ÀQÌ5ñ­Ë«Dûoy’­6ìwQËôuÞI P;™­' $+NV¨Fux†?ЮÖÆÆÊ襗aXÍ´V· ê¾-Ô7ù™ùÉí‘ߎvggܻٶt‘(–mek¦J,°QuÙ)ˆ(¶¥ÍMÛFo…ÊÍ;!ÿˆhßFÆZäOk«—«[sÞŒx‰‚¼  àvc¶¨½¶½³]™mFsM|ûú¨D­}J{µ(O#O{¢XƯÓYîiËÖ 7&ŠÊ$ÞÅ{ÿgïZ{¢HÖp2vÅx`¸è€pP"G@.:‰‹«¨/Èbä0°  F ÇKrÖMô“ñËùç¿mU÷tOUO½5Õ—é©Möý4ÝM½õðVÕÓO][–xùÀÞ„æ¦öi`ÔBl\o²‚¨bñBiÁ÷ZÞE´ñÿF±R’j¯267‚hfnîã÷&cËdipl*,ˆ6K,ˆ€úö”ÜûoJËÌ} ¥H?k&o»ê§zW9R!ã-˜V2ßÊi2¥5Â1€ã&Š¨¿a»Lˆ#ž¥bqŒf1uøíßÕ3‚hŒü‹‰ÕŒßÙwÿŒjÊ°Xðù°€È!‡ôáF(19ÖÞVì9Бãn>°7‘¹©½Pµß›¤ ZmÄI&òC>‰omÚª}ÿî)A­W›+AôÈø?C&8ËJÒóÛ©+ˆxØ‚D@}kÇUã÷Ò1y™{ö˜Œq\èuR{ƒj%,ãtcŠ(R>P ฉ"ê¯åó?|ÿa¥"€YL~k¡áûŒ ¢–žÜS„æ5UXì¶Í$@‰óæï5R>«R|ä#ëÍóÛY2 Z€ïMJE>Yø´7/á£U>Ï^œ ¹aº7•±yDÙ©ù¹RÀ8ƒÔDѺÿÇõü-ž³×ö]ëºLÇGúûûÉÜvfòÙ…ÝU[šÞÜékì7-Å "~íÎÉkSŸc­—û#ˆ8¨alÌGlP}¯Dè0ÛxŸÑ}ägµ7¨VÂöôȈx‘òbÇMQß_h@ùÄ* ¢@0‹©Âo×uQXµã?8&éŒÃbWq+gI`ßé(Ì|B¦Èg—‘þþqMûc#9§ßì{’œ»!Å!`>ÏÍ[ü]v©ùïS±±®{w·ƒhÛ°õ!hžœå¹|`ožßÎ’i`c°ÞäÖõ õ´“Š-|çuÕA6ÇÞ UÆæUUm'ÔËã‹y’à‹Qv©ÞǬ½úÑ/;Ìû>š}P™¬aF{F´í†Êì£XÆzï\\9f[°#—f…›† Ížè@ UxD\Ô06¡ù‹ ¨o#øFšº¾ÐžI¥¸Ô†ÖÞ Z c38@ÅÉŒ7ADý5Aù$<¯©ò‹)Âo½Ýú v ,ˆz‘l¹,v_u16E/$à3_¦à±K'Y£¶AnV¯ã¤~üÕÓB"ÌgÐÚÓÍîhª´.|/~Û†í7[;ù@*؛緳d˜Ål€7'3^Í E5Ó —#4P"!¡26÷‚ˆüW笫_¨v7H÷š*º™6Iéãp+u¿¼™Dïv¨Tµ#XŸi4mIP¹äQt¨al"óPßÖñ)êú B²?çñ£'koP­„¶LÑCEÊŒ7ADý5Aù,C„9ˆŽ€Åá·n XT…ÑOüÏý"ãŠÏb™z„ºãô(Ò%„ê2bæ2Ÿ]° úø5Klg_»´-Ýqˆ0 ŠŒ1iÆŠÞ¶ö=Oq ù @> 7Ùzí5€Ål€7'‚¨ÂŠ¶Â>„ÐÁ™ª26÷‚ˆsºeÕD}xh9ö©aXÿ‘ií=Gú›é±†Ó:?\Í•sƒÞåyõùæ0éÔõP‚è=îÕÕmíŽ ~ÐmvÈi2MŒìïI›¶˜K3ÃMc¬EÕц±!@ý¢'Ñ¡†±‰Ì_lP}#3:Ôu_gršy ª•0¶?]+R>` ภ"ê¯ Êwÿ(ÌbŠð9ÕtÔ$ˆÎØ„-8Ö°YoþèçCiDL° D3õ{3ÓdòdÕÆNiT€C„Œ´ö}*¶r˜'ˆÆ· auôôBUHrœÛ[Û†-ƒCX×!Ïâ|`o’õÚs˜Ål7O‚hÝv€À/øºC+‰©ŒÍ½ ÚGõÆɱ Qc´öÍ!æ¿#Êw+;ü·øûéW9wsøɇ׺nÙ!ÃÄÝ™œ¸Á¶«_žÐ»+wi—€EÕPšLÛ@—Ý;sôæ W¢B c¶x_±Aõ­Ï6TLpÿrz IDATjü¼‰’ñ¼Åæ3/wÔDãe )0pÜõ×åÓ(÷./Zt`Sƒß2U5‘µ° "§k~“©à±ØIÛ΢g®d>˜)vé$ ‹£7u5¢•°¡Ä®Êpˆˆ‘R³q7åÔ˜²õëABÓæDix+#CÜlЄœ–D@š–pj½ˆµ;Aä+6°¾½­cOb©Ï`3ŒIWÓFÃñ]½Š "²®ðx±òcÇMQ .ŸqÒiž.‘8~¤x¥"€YL ~›A¨Lÿðn7(ˆúB•ñ²K(·ÚãD5…¦™b—NsÆÛ4Ñ*ߨck„âT‘R4°mCþJ–@¥Sø@Èknj¯\ˆÅìØ ožÑ]Û dnö7E‘BØÜ ¢ŸËÔº±³eÌlOÅA„†Í&u ÚÆAÖÞÓè®ÖôxNÜ´Xû|É’²n)A$Hc±Rwþ܆#Ñ¢v)ˆüÄÓélö3嘽¼ƒ‹j9³ T}SSáZÔ¶]¤|1ã&xâ« °aVŽ\è <:0‹)Áod6ìŒÙ(AÔ${¶ÈbätÌÜçD'é݆·„ظL±K§y~ä5ó´š8Väûe8Ä© "+’îÚ¶9¡µµõþ&ùxÅôGG|Àͧ°7ÖÜÔ^¹4ù¨ùØ ožÑWÛì0©SKZILelNÑ—ÙÙ‘õµÿër:d¶¼QÄ.gHPç¿®à.o2!ŽET5ÕY¶–*ÔØ>RSn;oD‚4–ÊËt":`ÔÞ‘WlZ ǨUýÅf îmã_{]d Â`tZÿ\ÕsQ³GEåå#ˆ7Á_M€m¤‘YûZ{5èèÀ,¦¿µ—YÝ‚ˆôدÄe¼A,¦¥pLÎÅ©¤ÜÌ)˜d ]Hõ-gkÖCú'C "2\÷¯ ¢x¶N¯\8ãn>½ÙÌMí•JÃAÍÇyó$ˆ&m†Ï²+ìTD as*ˆ(;muJ“VgÌ°GÔÿGŽTàLÓ¯ÛfßoZ;IuqC¨AfàÚe‘ FC½á^tÀ¨}D± h!EöånêD™‰‘ezäàŽ!´¢ᲇ ܶÄD+>-îäæ#ˆ7Á_MT>î'Þß[]{ý¬A—Fµ5Gf1ø­ ¡ªŒX­·á‚;/å b1£÷þÎ,‘µÏDb ]ð17 ¦à±Ç!ѹéÁ¢Ð¡‰—Žø@(ˆ@o6sS{¥ÒpPó±AÞþ!RX-_ÎueÈ’ê>[ÃŽfŸÐÏÈZ³ÏJßcÆš<Æ,qSmÄ­‘D¢4 y0jQkÑ‘6Oö‹NÏ´T"4±g«?g>Ò{¢Å¦lDd©G´hùˆbÅMôÄO“(22qЯïË:ˆŽÒ#D£Ô¶ @=®•ÿ>5ÄbÆNosãþ~Æ!œb ]:Í?þiH·ð7Ä·zDŸ™I» ¢p2¹Û°rK?n©éˆ>àO™ðÔ5[QFˆÞqæá®+"ˆÂæVUÒýár,qéf‚>¢èO} uw²³A¤±‡*s²æ®‰¸¹b–D‚4‘ùã±SWŽu—·!o¢FíZù†MH —s,‰È-üO¼ÕÌ'údý‘ROMH~”Ñ]>Âq>ñÑ$ÊG7}ëõù`£³Xéù­SRL ¢³ äxY‡‹iú!zæ²êa„n§dÒL² ~#^²ŠÇX«v‹Dq(ˆ†\­¯xD[…WAdÂ[Ú$‹kåù@”èÍnnj¯L‹Ù°AÞ|ßeV¢o.«ŒÍ© Ú÷[»-0Žî4£{ñ6ëêA“y^#]E.äfl’ÕÅÍ– A¦™MN‹Lt":`Ô.‘ØÄ´°k3Öšü&ë^äÆòÚ¨UáG1¥ÇUDn#T)Z>âðã&~âŸI”nw|Ú†ç :0‹•žßX‡ô QœL`$âÒù,¦‹·a‡ö=ï`€)@vé4÷Ž‘â9iDBq(ˆ˜£âdí “ÿŸ~‘o¶†¥ù@œß[ž¹©½iÄ,Æ`ƒ¼yD¶½üEüþ¢c’Q›SA¤ï2Ë”3L¥lóUšFÞ×ÜHg‚_ÈmMN Ñ)‚Jó£Þ˜¦½´üjèæ o¢#í³ ò[!Zÿ‹½kíŠIÇöÄÎQh¥„FméaŽ€6¨ ÊMq¹®Šº¶Â®¢îŠã}eX×Un^fœÑÙÝ£3sœOžùÂOðÿÛ¦’¾$z«*I¥—÷ù¢ªž¼©zò$©¼•Ì\ÿ¹Y1ö+È?²†²µh$n ›!z#–`Öm?¼ÐâÆ+‘óc`“¤µ¢«Xàú¶d¹A§"r‘yäh³`šŠ‘§3±Ü²ê¯òn…WPŠ¿0 Q"Ù•"CÄÖ‡†ˆäÕ !Š*5ÅYè˜zÀé‡Úµ§£W GÅÌÜ Ö<¢â“=¨ ™Ó!1D!âæÊé'7Q`\iÙÕÌX*vÞRuú¯Æ¶:ñ%óÝÐî^ ·57Ðæ‡!"« ÔÄ+íúo]ÞŸÑY»2DR¹ ËO²ðq0ÙÜr§©è'û×R"¥_U+ëýëG ¶¸ —x„07ò¥îbi£«XÐúÖvQ›UwóÐnÍ‘Ÿæ´’$­l›Ãví*FЙ½;¬¢núF¯?!¢ª Ëq4ä³~Bd¬/îÖ^?‘[+7£—_‡«b&nPkž Qt¿å±Ù¤: #fnî QÕˆå @öí0Ÿþ[”=¤•ä}òJ¼ò÷ìïàØ”kˆÊÉÓ¬SùG•ÿöf::83Ê™!’ËMXnžï)­×ÑïChˆ&å~øbëG ¶¸ —x„0· Uκs'ÑU,`}W©¸c½]?tÜÅù(R1‚ú¸±¬zJ»G©CW P]†ˆ§!.Ö9»¹¼ÏŒe‰†hܾM*CxýŒ mÔêfôrëpUÌÌ hÍ›!"Ép ŽìŒ*ksHRnî Qô$IW‘¿ãzZ$ÓïèteÄ´Òçø]Œ\CDŒwCÁ­ýèÍt|â|ÍãÌÉå&, )dNA­,ÏZf8 ѹ+Pìýðc`›h‰Wˆr›—ôÒÎIt` X߸†hTs(eÃî·¨˜Ž]ªŸÖ3cǧEëP•T†!âiˆCCÔeÚ5¶s›‹•¢7¶l=àõCi7£—[‡«bfn@kÞ ÑË'ªy¹ÿ% ‡ðpsiˆôíUò§üAQÂ×ÝÀÙSšÕ­Í^8È窩¢?YWìǼ™˜µC$—›¨,4›Û¼`M 3¨ Õp"ò÷s¾öÃ=n‚%ž!ÈMW”%Ž¬bëÏÍWªêE×;­˜ULǬ~|í;–ÔV‡ª º0 OC¢Œ/«áÜkÈ’í™Kxý, =!r3zyuø*fæ´æͽ°üWïFýááæÖ½¨5³>²B>jÍâÕ….›>&Y@Ü¢M[á:;-fí¸×/¹@Ö07’¹‰É‚²Ý¼Í¹–—/«¯µ¿x Ú}'º½‚ë~ø1°ÇM¬Ä;ĸ›P¤KXÅÖ·¦n 4“püÌ’¾UmñðÌñrQŠ²°ŠéXÖþ²+:œ:T¥€Ô…aˆxÂR$š!zK€7%5µù7·õESEONzæL¿L‘µWß(Âz`ë‡×œÑKaÍ«CcÍâFoÍ£!Ò×ú&•hÓ<éí‘Ô„ 37׆Hß°¬2—káIE4FTsùúsZ©µìDÒ¸uí¾³â=ñÄvn‹VÕ¿OwÅr)ãy†ˆ –ºëzæeº‰W§žäDÚIfµÒ¬ùî vÓ‘,ú°˜ ˆ5Ì †lnŒñfܶ]í'«áçÍ%dfb *ªônŒÐt+XCTuH»|½ð»8pÜเ¸õGö¬UÛÔ¶æ¯IAb¹ôÑU,Lúf1Dåä|¥:-(çµÀP1;µ‹Yñ[NºRêÂ0D< a)RyQ~ôìÚÿù}5:1½¹öªÃGCdd¢4ç ŒQû;žè»à”/t‘uµ+âz`ë‡Óö襰æÔ¡²fr£¶æÕ}q”¯«Öw Ù2Ø„ 37÷†H4¥>9Mž´ªµ ÛôDdCíù®ž©¡š~ýPSí…öŒL¿êŽˆñSÐéOuÕƒO%jÕen²Â[m¹7tŽhÍâ{“` \ª9dìÀPYöxÛÓû;Þͬan Èæ·-Õ5Ú)Ð)WZ7Ù¹•Ò)7Ùn'ÂeˆJÿB‰Ö8np‰\@Üúõì6e‰ì"[†ˆ¬baÒ7‹!ÚGYmÍÝ—¥b†ùQmixuèJAWV"XCà~ƯhMU_Ôûˆ¿JÜk=Õ˜ÞØÔ¨Z(øiˆ®é=\³Ú‚²þT6ûvüŽ= "fkØ£—šS‡ÊšÉÚšWCÉùþ…à&d˜¹¹7DúRêü–¾_EòÇé*¼_½b•ž#–0ÇG,…K‚†hêq¡ß)» ÿ½§\)+F§]Eî²é¬an Hç¢|3‹ÅYW§ }œ=-,f¥1DÛ¥gø¡öÆŽ#¢rp«±N¬­AD‡¡b!Ò7©bäæP]sTP ªº° ¬!p?wì10-2ßÝb.ðÓ*gYwÖJ«á­=°õÃi sôRXsêPY³¹ÑZólˆ¢Ç2ö×Ûx,À fn Q”ÜJÄò;-ì2æÑŽ³– 9×x4wbkAÑ4ÚšMm¯nÊÝ£p QtuwÖTGú»êLf%!µ¦èŸãx5TÖ07&dsã¢W”a”¥mãšçĬ$³„|â”PJ0¡ÀqcET.èÜ”¹kuÙ‘q~W2˜è°T,<úæݱU,j|3ÝÒí¬ 4uanÝjÜÛEÛþÑýküéÝzßF•æ´É¾W_X†ÚóÆXŽSËžŸWé=­(³5X£—š]‡ÎšÃÒšC^¼Æ–&¹D'ÌÜÜ ýpzíNŸ}ÐmíKgÆÒÍõ´JåÉô§Ñ'ÃÝκRf’2“o¿½É>œ=.ñPY¬ƒæFEýÉѱ‡É¿OŽ'?ŒÎ¶E×5¨1€ãƉh ¸‘u&“K£óJ` ˜*N}k"Pò®ÇT±fúZ?fX)k"GC*’Î|îõØëdE·ß²ÔóuÏ4åpÒÆFŸWÈ™[.[cŒ^:k7#žÉÍÖš C„@ „8aÉ;‚@ø4D7Ú/J³‹@ !B Äç²„è ††@ ë«ÕªZv ã€@C„@ ˆu ²Áê  @ Ö/¦ÉŠêD7†@ ëW74|S'‰†Þc0hˆ±N Q.¯^c@C„@ ˆõmˆÜÆP Ð!b½¢ª·/ýp¿/C„Ã!@¬? !B †C€@  @ "˯@ ÿç@C„@  "@ hˆÐ!@C„†@ "4D@ С!Bø…DZXkhÉ¥bYlÄ…@ äãù©Ë·1 hˆ¾¡j¦ynøËKŸÙóª:Zr±ìNÚêMY-~{æpòÌ.*>ûøñã¯þí÷ͦçãf¯6ªfßö~+¡ŸgSïšÛö:?Rj “µlH; ¿N5ÿ2 |TŠ’ž¹°¢;¢ªû7û?pÙsŽ†K3ã³ï¾tT‰ç Ö®êpf£™µC´(+{Cm.)ÂÌMî^Hd/â[nVl?ßP¢®#©²ˆ+CDUïבÖâ›þ˜)³cÒVµS«·ÝϹÐôS­>l*»NÛ«TtTƒê¨H´Ìo–—=Gõ–>ý^>RJ “µd¥€¹9Ô?¬‰ë¬Ïe.9ÒGU€Ú+ÿÌ}–xBbõ¹á‡ëO+õ*‘G£—K€‘èZÅœ³æÕ¡ŽDúl„X‹¢½&Ín¢Ý\‚%¥B˜¹IÅÔjFu¯_{x'´†H7ãö Ï¹!¢ªÞ,œ™ÆÂýÕ˜jGÚvÑ‹Ë2Dtn›kÉw^×óÌZØ~6_¶_è®×z0æ²Ûóo¥^ á#µ—0YKV ˜›C Ù|uK!6çn‰ù£*8í•æ‚W WýìÓpÞçãçÎ9›­è¨3 ›ÔŒH 8ݪ˜cÖ¼:Ô‘ÍFˆµ°!zyYo’" pI©fnRñ!bUÀêý½+}Š"Yâ ÐáÈ!0 Ê1à"† .Š‚oYW9t•Óc]Ÿ >Å ŸÊjx-ꮢ††Æî§ ¿¼Ï~"ÂÿíUöL÷ôQY×ÔFÓS]Ù]™¿þUUVMªjZcæd-!Òf[<¤ Ý«B1Z>aýëʼº¢5¦&B„xüu6otÜúßåÑý{wÕÿ°ðö ‘:và„hóKë”YŽZCAMüN)–Õš‘·MCVâ}–úØ›¥¬MÔô{U±W{ËeR(Õs©º¬1µµscÎ/Çã“ %ëbC'yå| (&m5¯ ÕÑhĬ%Ds‡LpMº$›mÓ*c£…kŽÍ=é|ö7iÇ”UU•Å„¨*Äñª87¹/j äOoìóŸ ¼RI”?ù.y—ô£µ"ĶFÀ‘ÉR Z¨syß>´ît‹Õ ,©d/)p.qC]H¸¹Ê÷³Æâf¦‚eñ; jXVkF Ü6Y i‡/7L¡µkÀè‚~¯Êöjo¹¬@ µzR×À¹À€á4¹ §ž´³scÐ<×ïq5¸'ª¡˜¼Õœ2tOD£³ZMד‹ÍÓ`פK²Ù6­2ûò•`­í) úÎ^B¤Ï65B„xÕ ‰ªõӱϥÐÑ*F¢º‚µï\q®9ÑAˆ0ßNN Æ?Ÿ&ŸÿL¨ ¡Ç·eI¦–ïI‰óTÍ)¢©Š]ëQò¹Ó¾SŠ†aµf¤Àm“ÆÅæõÎÄMóŽ¤À«2ˆ½º[.;"Óõj1Gi6s¤ÛþÜ >:Í×ð=Q Ŭf–A<‘>«…ѽxÏ,פK²Ù6Í1èÉïìNK]¤‡—µ„HŸm*„õª×äÌ ûà0„.F¦ùÊ{êÀ}a„è \oEè~K¿_C®µ×?—ò •§W^õ,Ý}ý±0iB„yÕ»¬@𾥕¿#»ÞSg­‘é‡É"Ôã×Âì¿s‹E~¶&‡«ÝÒešeTÅŒ{ŒÝè#GWaX­)pÛ’ÅÈù3ø~¯Ê$ö*·‘æH”{Aà9ÓŠQÐ…‡–(† õÌÙ§è‰y4´T^Ìqe¿‰Í¶º5\O”C1«eÄ┫ÅrˆöwœŒ»¹¿:\“.ÉfÛtÊsðNl?ªÅA{Áš#Îw.À<¯•ˆ½®Ü0®Zyö3®Á‰{yJîÃA» wæÚ¹û¾Å+9õØ%ëJìáí_©„h²âÞ‰ Û<Œ_ªäE~¢¦m¨´ôìq »Q”$!¼êgO§Ø0N˜f­ønò´½Ã|Kä™F¥†"ÌãgÃnkH_¯ÚND{JÚsT¶š A¡×–èEÂêü:±;¥jp«u#n[’²„¾l|~ Ý«2Š½Š-GE$XN·Éóµrf"£¢ - aÖãl‘B¡£¥‚pbŽ/Ç|>F×ðÚI.>œŠÑÑ…‰–†0ëa" -„s|ù`œ4 Ï%QLÅj~Nœ£1hµ !jA«kÉ8éÈfÛ´ŒQ†‘µ@sÖ°ÍÂPAäÞ›ýŸœª>ú&œëë7k‡ ©ÖÅÍܪH{W¯…)ö„ð³¬(ˆØÒÆ©Ç:ŠEISïösÝ°à"D+Pê@¾Jk—ÕQÛº\7 ݨõ¶áòÚºØÃçí ÖV·é D¯‚ö¹è:Žãá`¹¿ÉéfÏ™äÌ-ò¿F!¢x<ì—;c¢·«È盶â¾p —ûÈÎ2|àO@3<+r§ˆµZ?R°[AC~ó½F~ ×«2Œ½*-‡!€Á{dÜBÅta¢%†!LDjþÚsij;¡h)/œ˜ãË0¹£õÝ\ Ç%QLÅj2œ8 D#ÅjBT„VW”qґͶi‘ tðÝX„‰¨ÞXVÏáˉ .@Ì‘p?LvÜœ ÅVÍ%ØÿÁødÛ¯½[½—ÜIë‰bõ€@¿YõÑú)¬hóäˆ$D…À‡¶ˆŒÃþ9}Ö”ÜÚ^Ør˜k+âëk6ÅÂúéÄ8¥;¦Dˆ^ÕæR~@Ž7Š½+3Í<`xO WÞ^½yÖPF1 ]˜hÉÆ"Ei„EKyaÇ_f|LÑ°=QÅT¬(ÉS4Ò¬^%D߈´ã¯í·DµÕNÌ9ôÌ ñyû­—Ñw>‘–Fú(%\&%X=FlæÅì Ñ_ž‡|è®Èò•ÖsKmÃúÛO–O¼´²6%„h–àèey„„3bWÉÙÿyΞV™•e^‘JBd¬@ªÃøÌðWè×%FéH£TÆ­ËVµv“ÐvD‹°X£«c4/§fdнü¾˜(–}¸¿CàNQ fµv¤à´‚*†´‘îMô½^•qìUh9‘ˆs†K£Ûõ®)4ÃÐ…‰–l ‘%D8ZÊ ;æxÒ: I‘(_ÃöDYS±Z  ;NÑH³z•}#²é–yæŠÂ¦9Új‡øgøðÊÞO"DÜøtìký¤S‰×F q´"hbÞx%¸r’öœ¸þIO>Å¥‰ú—oŸÈÕ8Æ¿SÆ3 [­ýéðZACÎa¿§ð½^•Ø+ßr("Á> ×œ£SîõMò(†¢ -Ù"Kˆp´”f̱° àn¤ ¶œÎ›Ò°¯·Q¾«óî~ƒÀëÝjÝO‡Û jR¾¸A7òî§&ÒjòªlÀ^ù–éÀ•V]êY³&b(º0Ñ’!’„¨Oã3æDQîåùb! ÃåQLÅj2¬8 D#ÝêUBôÈQ÷æ©ô$,.ì‡xŽs¦Øþn{ì[·­}5‡„¡­Ç0–=ÃÐ~B1¾Œ’øý%ÚßJpØv¤]!*H!2>ÃRÝðhdwe‰iÎwPÖí;O,&·È—>é D… [Ú3Sÿá N&ל}v*ØíJç] (+óaº3úpø²žbµæ§Ão% )„|:EÓü@¯Weö*´ŽH\Ë¥O»SP E&Z²1D’1Ð2#Dccc]SýÖvKu߉hPOT@±ô¢±z•}#R‡n󒸩n›V¢¬å1;G›ïíO„øOÖ‰Yq¡[JÐzbóy;PB´¼Ø+Qá’„„}*B4ûy°ë膚Šœmfꑱ·Þ™F™%O:×?=ïÙjÕ0òsLsÈH!²v<ØJZº üȳÛR(\¿dÖlZû”Ɉµ 9îBï)³üg9wÊz˜ÕzŸŽ@+¨`H\ü~ ×«²{•ZG¤ƒ‰´jráQ‘2R èÂFK&†H¢Ry϶´ô¹Åù¥<æļ´Ç䵉hOü?{WÛÅ‘…Òº½¾6›‚HQ–,›êÑÌ,ñW=…ç<ëÊ“®!N6Ñòu3½÷ù¦Îe1k!4YßùÊñ‡—Ò+KÅqÑžÀÛìÉ’9~SV€V‡Z;"­ Á!„®+é'í÷„áU¹À½Ò-0ÒÜþô²jÒG÷]0E#CÁlÉ怂ˆÁ–Ás⊈œcrH¬„â‰R,&cµÀ5›7»£´Qž€ì}¸@ý¯ÓAƒËÉ_rCÜDdÙ<Œ#–äS øÞ ‘~¯ƒ1U-> >C4Ôiᔎ§OŸ¾”Dä[±Ú{q2•‰Œ, "×pÆs §¦Wu©ã›üŠ>欽’>® ÿnÊB,´»º‘&»[}éÙ9øY`:5vöÒÉ›Þè¿1ß”Y ÕaÖŽP+ç’;ºö%½òøA¸^•Ü»Š–£3R³•Š{Žzô^Ù…Å–YÏ"(æ`”ÔpIÆåXLÆjk øñE#l5 ¢<éºÔ¿ÓJÈyŽ¯Ê r  R”DÉU’,¤t‚K%às̯â]° j\Q>xvÔúÖLöªÖED^4“-AD9q{ ±gÑU}áYرÇÃk'ˆNyNOx£ÿ¿•¥5³0ÞYpºágÇL6Iöo§®þ<í r‚ˆau® ¢Y½wŽB“{àþ0¯Êî]uËù骪Æ"ÆbÑk¨L² ƒ-yP1ØR@ÌÀ ç»¹HIÆ%YLÆjþ5ôø¡D# ¢üY+PM›‰$ù–©&L^Àoê*aY¦€m Ä!;ÉL˜T…éá{Õºpo-çc¤+$꟫êá9ñk¨L± ƒ-yÂb$ÚYf0[Ê€sÓd©Ã0Cn®öïÜã”4ƒ ׄYLÆj.»Pâ‡~«Qå ¦É*"uØ1Z4)•†uéG÷áÌVI– ÚxÚqõ]Dïw)­ƒþí,ðsÈ*YÒøÜþ ¦­ø‘²K¯bDÈ)2ˆ;kïþÖžMpmA¶¸l³Þ5qQ] A4MÎlð /ò²±dsÛý—αUܹ†äýÎJÈñ^o jþ:¯¯.8ñÀ•?–¸HŸÙA/Þ‡Ò^ "–Õ9,ˆ:õ[Ä଻L?ß«Ö‡{eZŽÃHŸté×±ßs>´ ‹AìÂ`K‡°‰&ˆ`¶”'æþ0ìu®uP–?:ç«ÈÌ}{‚WÂóÄ ,Üjvñ{"'Qå3n–Ç‹_MNDú;ÏL}v¿ø¿6ÿ”w^íÓ±";}K ªÑó%æÀ~1yØWEÄõªì¢E4'ÏQžCð«‘/vhbZ™lYØ[t"ˆŒçmç©O’‘É‹¡®enÇdÓÈaw–kºmÆH¶¤ãdË¥vë±™É#ˆJ‚ddy•9:]I’sÛª<›æôAsñ¦õDe¤úJHe¥H¯â"“%¢½æ”D矄§ÿäßÿhl¸c'¹ÁËžä’^ÇIëd`WY’P´¦•ÚjËêœDýÆpÍ.ô‹úAø^µ>Ü+ÓrFRnè³÷+‰‹ìÂ`K‡°©Ÿ„÷]A¶”;ænÒâµû‚Úk%Æ ^ÿÄ/Uį¹%O Îb­`Ÿ'r¢Q~£»Î³ÌÒóɬZo)ÊfR|A4i\?ºu¦ï¨‘slkÊ?««ŽVTÖV©™þxŽAû,“bÆ?TAdA…À.¦t’øÑbóßómñùë¶#ÛÃyZ'dv qæñ7æÑí¥ÑÚm—ö¥Vãoåu}Ûûj “K½ƒ’)î¡Y=ºã¤iUo¥qö“ZîèDO£q3oë¼€ 2r¾DX‡Þ—;7p¬ì&?U×U%AG‘ž†Õ9+ˆº)k57ŠúAø^µNÜ+Ñrß¾QÕYÊ®‹é!kP\»èø™öœ´ZûWܺalàÊU)¿‡ ¬'Ôfû¬„üjåÅn1Û ünÑÕÖŽ„òYDEûüyðÉf®^m‘²ÒlM/·Ïzf··™%ß Ý_û¸·Úª¯ õ%ÞÒÔ¯æy›K~S_ Ãê¼D?ß«Ö{ƒ·‘Èð†Å`×LAcöˆCàç°À–’`Å\„HÓ"×*%ííóÃi›†§¦EJØž(Åb­`—5Dˆœ@罦?Zz6y˜0Õõ¨ãÝ™ »[7>kZXjêøJ+»—\ø½ç?Šøs6~¼Þq½äæb(ïÙïÑÒIàf€m"]ÿ8yúT¶fìòìÒTÉÍù\uœ²ŸOvL•Pë³órröôKñ[ÍMº=Û²“Úk5nÚ¢eß꜄–A‚à/ïUa¶“‘zèkýäXŒÉ.2‘ÂfKFÌíXþb9ByGÉ¥“ow΋—„Ì.£@ r_Bg!¡@ r)rgë‚@ ŒÛªª~Àj@  B DcºNU£)¬ "@0È«ßb5 P!¢p9¯ë¡‹XD(H$‹âíH>ØêI¬  "@¨ ²òéµ-`] P!¢°ÑÙN¬  "@*¦;Ÿ5MÕàþ2Dn"@ ˆÂ "@ (ˆ° @  B @AäD@ â/D@ P¡ B ‚@ D(ˆ@  BA„@  ¢ÂC]4ú]nZÖF±DþãÜ«™¬…‚DO.ÏÞ~7‘›ï·–¶¿Ÿ]zwæëühøU핹®¬gêÃõÉY´l—úê®õ'Šd‹‡™ ]12 , ¯QF!ÂDÔæÁK‰¼œ¸,\e@ˆryT@PâF7.²Éâù´Ù/û?ÜÿíVuO÷t÷Ô©®nú1Öº«¦êœ>}ίO:U tágµ§Ë½·;zc@c`ñÇöÖÇ–Ëfúü„ÅÀæ¦c±Ø·Üæ–¶¦Ò>ŽÍ€Òé08;þ~÷Ô@1JÇû7W 妡[ÇÉLÏ=|·´@‡j-æ‘Ïn®MÚ© /ÀŒCô´ÊïïÖp¶¹Æ'þ;âáåkêç¼=ÍTIÿ–•D^ŠßP­9De‰rñýÍ!ãúýþ jƒ¸vô§wˆ¨ú&¤ÃD:¾¯·)].f’’‚Tð÷q¾¬ú5¥ô´ãÛÜÜXÍ'·ØJ¤o¾oÐÅf@éÀtXÔ‰rCå#E&ïß\‘”"§gäél…(ìý“Ù®kZ˜HaÅLsÍà€¡oÍÑGãwˆgÈ°:ÀŒ¾(AJz¥užó6÷©K²Å)B=3ï­p“cNQ*E~ï¢Ô9ñá6D·¨ß0 V‡Õ\Pû/®íqÈ!²M:ôMH.ïø§];O¹'}»š6Ú’œ}\)Çv:D67°t@ É 7˜å•’uMí¸-›9¥Óar‘ª†¥YJcñHÇû7ç.0ét…K:œ¥>îí§DvŸ©YU¡5Â-0RXB1 \C0ôHǧrˆ‚}ˆòȪøÖªýTJ>–5ž¨½ç¼íJ1“Ò¥àHj²s³ì©=/¢vü”WƱLNá«ÿÆQ°f j»±„rˆö\@º¾ +¤.ó×€°ºü;¾š×ˈ?T¹"NPBA¾>î”Û˜ìf«RÖO5‡Í=C¨V ´ z0¾úâ“#áCð3AºK!—ec3 t`:,Èb̹ Ô®‘¦ÛE#ïßœ«x`@Çéü‰Ð%"á!aìâÄlšé[hp ŒVPÌ × }c }4N‡h‹ÌBî|ÆjÐ¥”Œù„“§h½ç¼ÍˆY5ÿ“?Ê8 :ðyè…Â5Hù›£\SR¬óƒ•Ÿªœqˆì“Ž}‹aüoI׫´ë‚ dîÔU8 bõq©€mKÆ6‡k‡i€–ÁŠß”¯·Éh[®C‹­ÀÒé088¯ À’OR{ñHÇû7ç"¸G‡^&±|÷$l‰ ãë×Bkd´€Ha Ŭp rë‘è£q9D¡oä“¿’.œǾä78$ps«ëêà=oCdöëª+O‹g…Þ9DAüœYérºJÅS—M8Borˆì“Ž}ëÆ5 ùæ=1÷|[P?V—ÊLµÎ¶ÑŒlî,ÆË­Mî0dТ ¯¸@³—X:0°%á½O™„5à9ò@ñHÇû7ç¸I‡€ªG¨ü•,w¬W¸»R¬‘Ñ"…³Ä5ŒU°¾Á6GË!z‚»ÖŽ ”DRµSéÉš™÷¼‘…¤¦›î§t¼{s —•„—ÑœfÁ©ßÌü†bŒ)¬ ˜%®ù° Ö7­ÍÑGãrˆ®m  ìƒ-²Žnnp]<ç¼Z4»Âïw»Ëêôö‘ÞÞ1A8ÞM,‹!Þ'‰åß4}¢½[Í÷[Ïü}O·]3ÂŽ{S¯\ è(eàéI6’éœyx9Dd<£C$vðƒ~Ëq‚/¿Š†¬%.ê+KRíW_¼[Ú•é¼Ö9DéG–³‘ìráþ+Ò¡Ñ!Ó™Þ^ñP ƒ¿;2O¶ÊN¡ocå×jÅKõÌ„fõq«D*qfdŠÍÝÃUß…5ÐòÊ ‡¤xêÙËŒH0MË'õ¼\ŒAŽ§tÌÈbÛCØ–µfKÀêªíx`„ÊÓ-w³G‘ÖîuýzÎ+¹Š¾Ã™†ÊÊŠhSry‡ïxwÖQ¬‘Õ!…%³Ä5VÁú¦µ9úh|9D=ýu9d8io ËkÞÉÐPâÜØŸ•¹$öýQå7×É*«˜ˆ]¹ƒ•A<ÀaE®š™ƒ‡ØNÇ?¸ùW¯ìÑ3Þ¦›¢ñ>•¥ô§ó¦wø]ª«ºö:·c_±ð`Rc_÷U>Ðôèt$ÜÌhúdhQñ‡.#eG¾ÃE•qÊB²mq}}ýªR—‹–ZUŒù/ª­ãY便éX5¤ét$‡è®0´¯4f­ëÛŽ®û„~Ï]>ÅMO ÐǵòÜ1'¬ÐæðœÌ?@õj å•ÁIÁwÑíb/0"Át´-d¥Bž,Ìi¼£â’·Ü趽Z‹PR½ð½…|Õv<`¢òWÍPåÊþ&&†C¡²…R© tüÜ©4kdµ@Ha Å,q͇U°¾imŽ>š‡(Èv::L}Ql.žñF"„>à…!1l³ùÖ8,^(¦7ßWûužì]·ª"$ IÞy•¾AÜ›Í4¶‹¶>”«Ÿœ%…äóÏÊeÍ€Ž‘NŒ,¯o^áS›«Ê!*#½æ9ÛÁ#T– fü÷Ü=ã߇ÎÉÑÓ¬²+-¥,ÅéØÛ£‰a2Y §TÑüDM5‰®jñX‰¡¼oA:É,_Ænˆ^WÒG g™Ð7¢»ªûY|ŸCínhdF×Jƒc'ØØÜC\1*‘¬6+ƒUü–ÂW‹Í€ˆÓѵâÄËË{¦”×UépË ²m²øˆØˆLTî»Ô4fE2µkt„í“ldó<Í!QÙ|9«#æ9®œ@ª5²Z ¤°‚bÖ¸æÂ*†¾imŽ>š9éG‘:DÎñ¶ /Æ‘ÀK_}_Ï"»Nl›áû0þ£Í€dóCyÿöM.˜¸ö¢ý­vÈ[´ô=ˆ)$}í­‹™2Û‰¸Pè-¨‹+ÞN$m’xs˜ëÀš}9ïó?OD[J¢5‘ÜïïÄÊOdÈäjÞ!ÂZ[þjÐl(¶ Žä5âyÜàÒb@˜Ÿ™Y×·] –P—.IÂ+q™×.v¼þÄÙǵÒäØ,Fos«¹ÝƒUj å“A(®C]׋Ý@ˆÓÑ·D‰¨ÞÄ¿…;^ÌhköÌžfÛ-H\ÀÑÄ©ïÙLT^mëë”>²ÓËMšä-˜ŽThˆÊæËŽîŸ_ñ=ûI·FV „VPÌ×nÃ//#Þäߟè•ËqœµõÑ‚t@:’C„'íзa |ŒÕæO¹ÀN ÂhµŽïLóôq«”®šÆþá)ÿ~¼¹ÎΑ ln¡1o?©~j¾½›õð_˜Ú΀H0JKŒœùÒ´²zB‚ÓÅ(3rmŽ/Ÿor¹Mµ„f#0QYÑ:TU§rˆ`T6_^ã¡ŽT÷Ÿñý1G?º52Z@¤°‚b–¸æÀ*¦¾imÍ>‡è" Åé9ÈÛ<¸by­D[Åb—`8 ›žx>Ô]yçlëÔAŽ¥0¶ÃÑL¤#Hkß o[Lô]¨7³šøCüçhóÓ™ÉmΟĀKQ¼/9±«É½"ÓÀ©±¼C”Ÿ‚5«%2/˜Žìýk¾‘‰Q¯r'&H·ÓXfш’0Pñøk¥N“ÑeãSÓÛ‰Wwȯ©Zà“A µµõÑ9äêУ½3 LnéÙsrÉ&X ™tÌË ´mr‚^~cê¤z“xÀDeu‰&õkBf"•Í—‡ºÓ¾H~Ô’q7Èá), ˜%®™XÅ¡oZ›F³Í!";çîD‹Ó!r’·A<ö j‹þ4ç¸lqÄôÄÍ ÛÊY³J˜o#ܸ)éHÑÌpä‘àÍ/õfREãærñ¯ýŸ¹«í‰"ÙÂaHow W^fÄ8w‹^Eq5€¨ñ‚. ºdAÙåF_@%,1¢h4ëÆõºÉº&ÞOÆ/ûüo·NUwOõË©®êó¥é®Ógê<óÔ©:ç°(÷PÊ í“ìäj¬M4&ëö)Jˆ>ÚvëÉ;XíqÔ­ƒc¢ýZ<ó Žëké1µÛÅÜ…'`ÏðlfžžWzxOÅd2ë8ÝÙ4׃Ý>W¬±Ëæ8Vhƒœ©×Æ•„š?”U­™ IDATI/"áã4˜Z`—jz«Î:êvC}ûü¼ÝÊ‚B¥™ñ@ˆÊ9êÞßQ$DTV—¿\x<àÛQÛ-¨7âWp¤b¡´bUð|sùò´¸ÑV¡rÕ U QYuË Á§A›j3¹emn’O?•³–'ì/Fm F?©¸8:Ž®Æ3^³´­F#¤§I'}ÞŸ7'OQò†› ¼´}F6—gÁ팹êÚr ¸fg¹!ªçf5nìÑÃZÇ$Dcšoç!/w›åÝ8†`,l%‹~K´¯à„tó¹ {*'‹?óýãÍçÛ)@45ÆóXÏ‘åYÃ]? ÚÀ‚¹Ôþ™§ÉKY4ðA$|Á•+s½§Ú¬£n7Ü·p»æ‹)¾Ò}Œx DeàNG DŸã¬ß0ç:2óP ÒPo\A‘"Š…ÓZ„UóÍãsþO‹‰-7ñ'Wª‹•W··\ùf§ä]mÝ·¬:™–ÿ|±£y;õò0­w1¾©I»8:Ž®¿ÇKdÁ)w/´"ûªÝ´…- ·Ã,œèìì®t&X¬g  ŒÜ$¿:fäúÞgyh—mB4꟯zXëà㘄èS\ómö.š/,ÜÎ×ÆÌ[;®þˆ:ª5çyþŠÝ“„gšck²àñ9cÞÔ}Vdmpð×öïhQ˜ÎCIX¥ø!>zeN¥µ\Ÿ+©­º¬£n7Ü·'¸té=ÓňBTöð³(„è½°’o%"D¸7 üG u ×aUÐ|±þiñ¢þ5réM‚|(9Ý®¹¬$µ¦xG=Lþò˜ùék+Ív[¿+¹ÞG†95Ð+éâè8l?ïJˆÞOýSÅ5!äh´¦§œiÁê~¹Ÿo™JÑc‰@Tè"}Å\³î JÕ—$eï«!âÓEöðV¶>ŽIˆvc›oçJAØãiò‰¦XN4¬8­ ßfD~<èžd„&ÇJõø\c-—zàÚ`œ¿yåó÷’3Mœˆ Çs…öÄ|Fü`0ÈøU«Fë¨Ø ÷íÒ±jòÒ³çeîQÅ1*ëzzµ»ãèXÛ©Ú‚‘Kž{–’W>§q‚*¢àÞ(ôS)”Q,ŒÖRX…Í·PzZ,„(ýKŽ'w€(IÝÞcmcsÄÕæk&ò‹‚ézM¶Ò=×[ì´*,^‘qq|Z{Ê.Íá%D3H;$_ô.A;AÝÕf“k¿ N¨=F·ãßÂkNÒóäT:é-ifžîuµW« EëÆa„(ã|»×Q`[Š48ð¤±+pUÀ[ ¤çîIFn¬q Ô#ˆ×玓ï¬ah%l AOݳIÖbŽMƒDÂÇq^ÑàÃêdß<¯f¹¢„Uf»¡¾Ýg¯‰–Ü9ï±á•œGë^«"*«‹_¾VPçxÜÅ~Š#…*Š…ÑZ«|ç[ (=-B¯³}>ILN·Ó®x†ÃœýOaÎä˜ëµÙJ¿ð®Eô鳬ûÚR°‹ããÐå”·™˜MˆjÙ ÿ“Ñuz´ç|Ã/±»ñM;€ÓýŒÚÝ‘¿ Í t². _£â’«”«’uã0BTë|›êš[ù«GcUâÍ—qTRbÝîIHöÄsºÁãsÏ @  ¶–á‚ùÉ|çǤA"áã8®œƒq+×þùj~TÖQ±âÛéëXõ/æÄ„BTþ|€PùvýÙøµ' ‘•Ãц ]&î~Š#…Š…ÐZ«üæ[ °Ÿ!‚ÆV£E=QIL7Ø™õ]ÿÔ»Âpìk6Ðõ˜,ÿ‡Uüi~ìâè8A"ò¬ë)âåç¤^´­´ÍÛNV_m&(¥ÆÏ ´,@Î T¿o•±„•Z÷‘{D&™mB4Î=ã'¥b|œr"[ºJÉÁEWî¿XFWÍ]rc÷Jâñ¹"Y]·=°e–,Cáçk%Ì%Þ»# ‚ ‡¿rÐA úxž_eÖQ²›¿oC’æ&0#߶€±à•ádÑvg‰%»VS„Èýü1è⦔¸7*ø)ŽR(¦®µ‚ÞùìsöÓb Dð…u*ÑNËIêVt&‰sTøù®ÕkW‚žÛµÛÛõ_]‡íVá„háÔ@Ù-‰÷|™*UWŸ‚âÏ:øl8ñÎ@ Š^…EÁŠµ6€¢doéP¸ †îF²òÖ¡qùÑÁA×y§ç¾ÁwO‚^”‰ú¯ÏM¾r_ÉÓòm+Ë$±h Hø8Ü­Å0Ö¹K­RÀ±Ž¢Ýü|ûP3;V½‰í“DÇ*×A,ýßin•ù ÑPlv?æØ €®`MÁ”¿7*ø)Žr(¦¬µ‚žù&ásöÓ¢¢‹d&ÖLè KrºAÖÐI¿ ;®/¾VäCŠY‚ØêN ‹£ã°µÌ JˆžXÒ´üšW nkxqs• AåqûàUϲÂ!/³Æü_ ãgzå+šÑ„¨û»J¦¤u¾Š2§ÊGˆÈ¬¨µô­TmË5»››àždd3†M;ŸSZÜ/\;•—84A$|îʤ«úØmëp^õYGÝn^ßî$˱eú–Í˲÷¨á•!äÐZZs¾Hˆ%V’òrÜ'W]áõr")äPLYk ÜóMÆçì§E&D›õ†1¿¤'-Ééôó€_Tñ¡«BQ·Õô\–é‹„8·¤ƒ\‡yòJˆhnû pïµàpå¿ ~ ú‘mÛÝ2Œl.k¾î†a|j·Vxh8Z˜‘ËÛ¼€D˜å¬ƒSNBÔóäëÎÂcDí—A÷$#ï"vÞF|Nh6xžx„( ¤ ‡»²×uºÑbuZ'„Ý<¾ý õg„="PyÆ™8Ó‘ÍÅzVð£ Ý\pZD,„E ISÖZ«\óMÊçì§E%Dg †QÒ—ätÛ=€dQœßëŽ/B¶é/MˆôÜ©…­Äç5ÙqtýGØçZ"}˜öºÌ8ŽÓ¯R¤NØõXÈ}‰ÌúÛ¿ .Ä9”•BBp&¹Ö7?@Ê:ø8e$DÚA¾|=`įöµC-þ¡^ç=ÉH§«Æ§ºøú\nØ!ä e~¦•lðs@L®ü]9DÂÇá®,»–Áù„K6Èi--nßÖF cLÿ]x<;P¹Ã±äœôd™ùŽƒ"*‡×Ž¯ÿ£ÞÕ£ö¢oI“òFi?Å‘BÅ”µVÀ*ç|“ó9ûi Ñ^`åWôä%AÝNÐäuŸ¯ìmÇ颛¶gÈ¢£îÝè <); Êãšé#5h)%7ØÕtÒ°eì Ε ”ãkâ">Ðjc pòÖ4FˆJ”Ყ¹´šuÐqÊHˆN8›‘—®áÝõtð=I,à »‘ÜPÆçðì öºãÏD!&²rˆ„Ã_ÑNÆl)Žº”ŠáôWy¬Ên߆ÔÖI‚: iù{”ð@€Ê§.;î!D¾ãà„H€Êa$C&•U…i:åŽ@ƒË|^Y]k¬çR"Z'”Ý|{—üæï×üŒ¨ )|ûÍ‘´;Þ:D׉U~„Gå0ðŸa)åÃëÞ°ÉWªï¥È„H)P,„Ö¨‚ù†#ò´H„¨:aåO8¤®JQuÛK×wÞú²\7ræñ‘õÔj ³ö]‚oÂÝ•ÚR)*!zaÔ\îb”aøVƒç[¦ÑÒ–s|Åg‡´Žë_^ê7–·ænÿ6àCˆèn!¨…Åk¨Ç˜z³•~ªÕu¬ÓWÚ¡÷¶ùp«"€®‚§Ôvõô¡O}ƒ VÍì^³ä)ÄT¿+ð{Ò¡¬ƒ;!b«Óâ-˜y-›ü8§Õv.­k#ߤœ7â÷TFFSGÿÞ ±bÏIP­-J€HÒçÜŒØà¬1:ð”R麭A(Éßò¢ÂƉWÜ:ø8 Á32]0ÍÏ_j„A+oPv ðmØ·òä«Ç‰T>¦îÖ¢õdXý¶éàqÌOÖîwEQ9”Àêt¬KÓs›À¶]Ü“U¢|™‰" Š©kj€Ï7"!O‹Dˆz}N`5ê‰H¢ºõ6¹2 ÑÄF–Öƒ­ô òx0!úDïÏæÇ3£´-K¾ßm5²c;Ûm-¥¦È8tñÑnª”MѾ„ˆ:è© †CÝf÷<ö#¿Ø;‹¶qã–‘÷Á Ñ>”öµs‡j»!sO…­ßRÓfÖÞß7Éä|Î Áˆ βFî£y³FpsÅí¯¸uðqD\dkÛn`Ý몱N(»ýŸ½sûj"Ùâp+Ћ;ä" È,¹Š H@QÆËPn Š™qoƒŠ g€á€ãå¸ôèÒ'ÖyñyžXËÿíTuÒtÒ»º»RI÷‘ý½@w§ªvíªÚýëJUÇhlÿ!IQ­EÆVT–C_͹!ª¥–?G "Ýrú'šk«¼Wå2ò·Jj/•5Fe.2OÓ<Š¼² ò"'MÈ%LÄ.ˆ‘‚'ŠY·´îoŒˆ䆂Hu­nMAÊïí^û!tÞݪ<Á±†ÞÏZ‹;#%o|)t14ÄõË ê˜šð õ‘‡¾¿u¯Ñû¼ +¤ÇG ]XÉN#¿ÒLù̵díëãú/h*»¢¶œÛ7>¤ž^}ÁÄç ñ‚H-a9ò­«“Ë¡âûÌ¥IZ‡Æ6Bx‘¾µ•$~‘X `ïÀå0-hÜ »twÀ9Þáò›ÑØ–7‹H_-¥±XQÙSúôá OR¤ Ò+g>ºµÛ £2çCõ9õN9y‰+c¨YAÄŠ\Q̲ՠpcD$ 7D‚Ê¿|J)%y°[ý9˜ÔÅŠ@Ïß?BÌEÕ3e§•Œ ›uvC¬Ê`÷)_Øi½rµö¸$˜aþ‹ßŠuQj4ú¢ÿds~@‹_T'–’Ø/¼¢;¬jVÃuø/ìô×_»/MkµÜ¾ÔÔœéÀ´›7-\ßqzG·œx ¢­20ž•½» ÖM§Iž™‰¢ g®TTÆ:S“ Šôg½,WÉ¥æðlØB%ÖØ;p9l 2§¦Ýwý×ä>¿mº›ºÆg-…xÀÞê2”¯æLÿ%/TøЬiÛ,û®Oú—õ|Qûš©+6{nSï0} ú¶Í§ÍêXƒa{ÅF ®rˆ®¬Å·ø¹%Õ×µ}"ÒX뽜­-ÎjÃ(ƪÀ#O> Ú¸!—£Ét 8Y‘x„IÞcO¿w²mBÙvk[Ýû,^%¥IIŽDÂl ŽË‚H¯¿‘[WàÖUþÓ9fr¸~Ü ÷ŸzrªÆ§ÖÜ êèýÈ•w$vA¤ïF}zÃpèŠü·ÕÔ›½·)w˜¾†|À°­ÁfAGXÇÄ^Á‘‚«œ;Ey•ñ-ýЖÜGóä›CÉFìi¬õ^ÎÖhµQc•ÌX‰Ä!ˆf/HÑ™v‘8á®]­wÝž½L½±ðÔŽnïdÛ„2˜-LëŸ]mYÿBÚÑ·¢ ,ˆ lDºýÍåºEÏtŒ¹zýIä¿·Êùÿ¦hÙK.žWS= wüÜëuòtDfœZ³‰šV1ÕëJÏH£cá…9Û¬û®O%d#9tÎç 5¡ÍÄ»½·)wX¾}À°­N„²û˜ðé0Â:&ö$H1ˉ÷º†§´#í}Ûõl†ÞÚoÄœÆbïåkm‘VD10Vx,IE–ÑÔ~’áý¨L§¤AŸò5•mS6ôz'Û&?mÕ­WÊ«oiŠÛÑßùÎDâlãD@Û!£ª0ØÇrèCS0ª½dP«G©tîá‡x¯<}öBZh þŸEÇ¢Û¬û€QŸZr¾;øÿuòÿ_&®Øî³mjÖ; ¯A0Z®‘ÙºŽ°‰½¢#…Ýåè3Jü[#/‡Èÿ-1¦±Ü{¹Z[´Õp3¨UCåÑÓz+¾µiGăÖñ„w'Û&x"Œ>-õ%¤,òÄêXA$Î6Aö·×ä̦rðºÐmD’^©Gô«’ìùy,ômÏeRäc3¶qŒ9°>$P–([CÒ—$)ÌðŠýÞ1Û¦f½ùšá¸å¨pºfkD‚#¬3b¯èHaw9ºÔWIR¶²¶¬ƒt¤K1¥áè½<­-ØjØ6£úüHFÛÔ ‹‚ˆÆ…¢G®T¶“þ +Þœl›Xþ¢Ëó£‡\›D›¶ "°¿‘‡üÂõˆ~k=«›ù\²z'ÃúÉZbûÑbÚ²ËØ6ž1Ög–|¶\=*#G†Wì÷ŽÙ6åˆH_3|·ÝsÛ1Ñ Ž°öÅÞÍ •M;Ñ8ýæT=¢KÎÆ’†£÷ò´¶`«aÛŒêC2†Ò›- ¢±³Ò ¢sØNê’Lη Åɶ å&Uºð¢¡ôŸ¶§G¦‡ëÂN­ ¼s¹¦Güò4c×ëM±6ÍŸSÝ÷S®Ÿù±-t£¥”h¯…1ƒrBm±ø­ýÎÈÿ‡O ú›æ·cª¾9i$¯¶ÈïKX¶¬Í½jÓóøõÇÔ˜ÔßÞek¼ÿÖK?GçoÕ£““Å"Ù¡ëÐ\ƶñŒ9°>t-ŽzD·nõ^±Ý;fÛ”'"i|ÍðÜr­’”çœðGX+±W'"Í’Q® ŸÈ_lQL'ºEK0†€åÌ*§ô¿éEKni¾£:CŽæcIÃÑ{yZ[°Õ°mõùYÎsÙꢮækÁaËpR¿æ1'q#ÑÁ¶‰ä_´§Aï£zÖ­¼c°ä¢ú™_éšy!vî—k^Þ§r+l²p¸DY’ï^îVIÇ›XŠX°_lPŽ’²,[I‘_ûMWíÐånïÌLÛ,³ÊÞô„J`ÚR×~B5ì^fŒ‚êo}=ìª$5ë%?N¼­Fó5âÍ¡Dw¤ 0dilãsp}nç‡ûƒ<Ã¥^±Ý;fÛ”'"i| û€ÑrŽzƃ#¬ùØ«‘袚µ“3ñD1ÝèÂŽ–@ a–£¾"EoÆD?Zr@K ÍbÒw1”Å”ÆzïåimÑVö1ë³á%÷#—k/Ï{ˆ\®²ô-ªç&'Û&„µ+Œ ¢C%a#²y#4Ä·§ç–Ʋ{"CYdz5ãXÑÔÇ¢w0”#ó´I“fDOí,ÐNlbš?=%,«$u%+Ó6KšÙ•1 " ¿í!'ÚÃŽ÷éO£{H¼§-’D¯Ý“&I¡ÿpÚÆ3æõ¡wùUe²Ó-I猯Øî“mÊ‘"| {n¹Zsò,AÀÖtìÕH½DšxÃõaúQâ¬Þ¢˜~taFK(†0Ëa"(Zr«™(¬ß2³DÁ8¥ÞËÑÚñ±¶ ¨O+éDWñ ¢:¦“zI×,ôÙ5l›è|}>°ßfVž¶yÒ“ÒJ×ÞKg?©C¼üBÑ¥·ÉäÜ™³Ri]…T¦%wAySk§S”Åë庻¦\áˆA9òÔQ`ôgWuÖžv‡‡…0A´CS½5±&¤¾U~P;ü¦lˆ>F¶˜°íÔ]ëSG ”®ºòrE”Ç‚X@®{ˆ$H‚JÐE DT|ÀnĨdµÔwã;uc™MUöÓ–_ö3Ÿ¨Êÿ¶}fî;Óݧ§»™¹39U–Ìí;wNŸîþͯ»OŸƒËûÇþñ¢w‡]ÑÆ\„ˆëoÐ>õ\gèõßèÇîÕ åƒK!Ê÷ÌkÑÍdÌIêOp¸ðú÷·Á%±[G±MM‰±5n¼å¾cc6Å)8Â*c/†Hï‘5CÐEŠ–†H©ó÷C_Ï÷ˆŠ–ú2Ìü>%íé¥õߣÕ{õ[;"­qÝÄõù…~z›þßdFˆªdFZÚÁ Gi%ɺ…"ÓøÞì؈t¼zF¯4,˜£Ã}”Ø)2ŸrNí,™üH~2wq°Ëÿ“{Dsaì9 p†4üj§›šëürÂâ Q%ð¡]*Q9 ¾@Ù½%·iâOŽê&ÃêÖ¦vgˆ>™žLÇŒ×ßrÌRñCz½“»í]!G‹&÷Y ¹¹oÛª7•ª'M ǵÝLÆœ¤>)0ȸUÂÿ…BIìÖQkSDbm[o¹)„×Æ!8ªc/†H‡,úgõä‚eŒbºHÑRŽ!2Dš"-õe3Äç/ôz`ý÷hõ^ýÖŽHk\7a}Æúó^ÚÍ¡¢ìØLÉÄ—µ&ɺ…"½økûgZÔUpÌ@}êñ•Â›¥Fßå¢[£Ô {YJ°çXÎî9$#.!²ùÐ]•¤|µ­TÝÚ‚b#lËê"뱟V6GBˆ–(Ž^óGðA8ÏÝö ýôÅKj’z˺}Íž/6·—$fŽNI;DŒn&cNVŸ5p¶˜º:ö;LÁ[ž(”Änµ65!Dœ­që`-÷Žœè;[QÖ4q2Þã÷8Âê`/ŠH´¤kÝ«;­ž-4ÃÐEŠ–r Ñ%D8ZêK5ý©· ×Ú½þ{ôz¯vkG¤5®›°>Bêì>õ!¢ÔÆw3 Ƶb:Æ1™dÝB‘ýèÞì\o¨*MÈÙlaˆ€?^bC¤(¤Ï:_;N‰4þ4ÑGŸC¥u¥›Ê;ÆVvÕ-x6þݽ‚CïÖCˆ¼=¢žßõ‡Y0Ù|æ^ÙÎæn£Vï.n4>¡&¼—:åºô—"ÎÞ– äõùôžíùJÿu_õDz—$À:JmjBˆx[ãÖAtûÊçÕòuŠ¡è"EK9†è¢¾øa¢ŠÔ™õߣÙ{u[;"­qÕÂ÷02Îp¬ãº…% °ŽJ›š"‘­qëˆu{<åóËm^Ž•p„ÕÇ^‘æ*¼nÕ}Þ}K}CÑEŠ–r Ñ$D´Ô—+Ìku.-‚•_[©¶â“$ëŠÇù™òLÙ>ÿ ŒâáÒÍŒÏ@‹?ZÀúÑ—¼ cH„hÎå6Ø@9v€¾½éUN€ùÞ§CpŒ²4Y°¿·–›·Døhs7Umyi:wr6×'5=“ǯ3ãTX’먴© !Ø·Örµ™‰}'®t~óó‹V›mˆ‘ñ«½8"mô¸U×úÎà飊.R´”cˆ&! 3Ì9Æiü¾Xÿ=º½W³µ#ÒG1A}é‹€MNN˜?n‡mhùØŠK’¬[(2î ¾á“- LÃáÜÁü/s?©.|·×ùÖ;®ÆŽG)e(AŸcYo}ËÐ,!ÊX«géXQÍD{‚9m aGzÃ"D##DÖ8ª›>›Ù¿¥†•>Á‰¤OÓ®ÅlY¶A¤àˆug‹‹Ä‘I%$ä:'*au3±´>•Û`b|hFczÑëK†”$Á:ÁmjBˆ¶Æ­Ørt®»’Ž)ÎŽ°úØ‹#Òžp³^×ECÑEŠ–r Ñ$D´ü#¬‰B·µ£Z!BQŒ¯ÏmúÉ/Vø„¨Ðîmàd[‘³b’$늴 AY^RõÂb;£Ú=fkÇ÷áxqˆfoCúÅE(AŸãìçíF ÑÛƒ:•®) ö„héÃÉãÛšê˺It„È:Øên`L,QK—³ËÇ+LâCp`ðäêê$v”°eï­è§àäl «s¡‹öµôd2YìIXI"¬ئ&ˆÄÛ·NpËØÇÂã‹+‚#¬öâˆ4Rt«¦†š™S¹A ]äh)ÅMBtKÁƒ˜—O†¼âf x/ð¬¹ðS ÷hõ^ýÖŽHk\7®>Ê9eEGˆòá®ú²1 É$늼ÅRr¦Êiô~¥tç‡x³kœëܯmÉ#ýÈo*P‚?ÇIÖýJˆVìR­é.>Ø™/$©6!ª¬s Y¹SÝŽ?ÇŬÕÏçÇž!¤ßûB…åûÖÅë öQî ¥`Ay‡ð œn&6Ô'ÛSŒÉù~Æ\-I†uÚÔ‘x[ãÖ n9[žÀœŒžp„ÕÀ^‘Ú\·j8ù5©t‚(ºÈÑRŠ!š„H‚–9é{¾ÛÖ¢³WAénîÑé½­‘Ö¸n\}&(‹~)!²RýH" Q¼º…"0ìÂFÜG¾OÁSÎ?êg”ŸóXÛ3ùðñ=烡Ž=móUg Q™óÕøô™ ÑP£ Ïñ®-MQ"ËzPýôÄ•Ã)'ËÂS8Íú•ƒwåOžëù‚_gDÒ >;mʳ¤>aµpš|™2‹tÁ -IŠu¤mj‚H¼­që·œ#³qç&ÂV{Dºß_p«†÷ía¥{¤ÈHŽ–r Ñ$D´Ô'DULt• Ä ÷èô^ƒÖŽHk\7¶>C¾å¥h‘õ4ÆüIÖ-³3BæMá Õ×%á›CÜ‘Ê7N2ŽôP0” Ï Z!¢¿u(MHùAõ¢“¹¼œ¦òøñãWæ„öŠÉÑÙËsî›%BBä›Î0‰@SÔÔ5¾ýõW̹½jéÔMb¸6½Ã§›‰ $õéñ½ÈÚ<Ô-IŽuð65é![ãÖQÕí6_*™à«…½bDjχ¾/Lo§ƒb(ºÈÐ2Câ\!šãã7—%‹T¸G§÷´v4ZKtcê³VAÔEWf(߆ÿ7…Kˆ¶+¥h‹‡Å©[(¯ò™¨òixv¬1ÈÆ£Hˆ,+[½ÁOj.B úgW|/Nˆ2kÖ!îÜ%¥š.Œ(=B4ü<2ÝÈ.oKDˆ®òäp“øl…ÿ-¶OçX·¶@ÔŸÆߧ™uÛ¯„t¹ç)épÓá%ɱÞ¦&=„·5neÝ 5ÁÃX GXMì!ÒWiÇ­ºÙTG1]$h„!>D{µí»:à•U÷ózßÂ}¶Œ<ËKð=½×¨µ#ÑZ¢SŸíD(¿†KˆF™5î$¢8u G¶`ïíæE±›ä³Û)"*ça w$JÐçXÖxâÙ©¼ßœUm®T©¨-B–ŽâD¢¯D„è&!/™Íì>»\·t[À"²Ã·é£›˜ö™`4o´>§™|ÿ¢×k%ɱÞ¦&=„·µÄªº=böJ/8Âêc/H „¤+mˤ+Uï"Š.´ ÂMB$AKdÅ@å;‰J‚æà{4z¯QkG¢µD·XÑP‚Wˆ†þè+Döþh£(¥Äcxͬ­¾Ñ!DV-%Û[ï qô9bÌ£„ÈNÝñâô¼S¨(²½!ZñU¿ØR¢ÃüoÂ)òãÌ×ù#4Ðfˆ*„hg !ç‘B‘n&6@ëSÅøÂîwÝ(ð’ÄXoS“"°µÄŠºÙ‹H½±âŽ°ØË!Ò;ZâÜ”„ö©¡Š.´ ÂMBô4Tò:í;}ÁzþÂ=½×¨µ£ÐZ¦[,„èn@yœ„(NÝ‘Uðë4yÆÌŒ §$” ‘íiè;·ÚA±%¥ú'Zš'݈YÏa·_å´ D\‘ø‰tÃå€Æ&%!D©_Î[&‘5¯ûÞ„7:Q½£g­„´¢3»I4꧞ ÐúT2ÓÆ›îv¼$1ÖÁÛÔ¤‡l-±šnÎòY[¬ø„#¬ ö²ˆ”ýœëožØ1†(†¢‹-ƒ0D†HB$AKÙä# ã¼£]v´írVóÞkÔÚQh-Ó©Oê¹OŽQ&ÿß•U5ò'’BˆbÕ-$i·¯ ^ƒÏ»èˆ;Õ Ñ8»™„«>Çr<þoe¥„ÈÊÕ¡¡”ø™@Ç}´X¨*7|‰n•†µó›ÙcÝ„¼œ»šœJnDÓw>Ù3èC¬›‰ °údë ™)Æ4<Ÿv=^ð’¤XoS“"²µÌJºÙ (z‰èB`a°—C¤‹0ê_rì¾ú=B¤ÀÐE‚–A"C$Q.3-Mä!í ¸=Í-’,«Ãø’Ö=Z½×¬µÃ×Zª›¯Ã:eö惗÷ @Obâ%H·d ¼ˆÈ¸gôÜ ¤ž†Í…ÇÀ1÷Ø£Œm8ãɨý„öû˜Ö!Ñì9TƒKã‹â†Xj'DÖn:VÊ‚ ÏÁ$n¢xÂ:õìR n¨À‘mùºfgI)Ñäle¦€³‚è2NôÕkùp¿Qó4VFÒurtħñ±n&6@ëÓëÝ wx¼(ð’„XoS“"´5n\·} ¸ôræäðGX#ì @¤UúºûS?SKÃÐE‚–A"C$!ÂÑÒD–"ðüÎý߶¾¯µîÑê½foÚðµ–¢XiÑiZ¬¶g6×~Ü ±çGc› $X·°dùÿíÝýoSUÀñvÛXRöþÂÞ¤£b¶®éÄM]Ó! œZEØtBpq*›sj6FÄ CLøÉðøÓþ:wîméÛ9çöû–ôûùeIïnï¹Ï=}îÓÛ{Ïi²&¶¾¿áKŒ\Z|ý^Ù|ÚgŽÏ{3ÃWé ¢sþæ«Aû+åvülAo]¯ë¼•]¾@vÞ–lGxb;}cɳékÙ:áýJRY?ž1gù‚ø–ñÇôèžgõèBèÊÙÜQ®åmS™£%½/¬ |³a‰”WÝŒ©û€ÙßN÷âb޶μǑV[÷‹AÉ`â>ÀñS«žèÈ ‘%_”¥ã$¬‰Àr$œÛfÕþ4ŠÃ0‡+)Îk™/éê%µÝ15)ˆä±VÆ@Ó¶©¶ ±añoÇn‰àŒWú‘:Ãå^‡Œä¹µ¢Íÿ•Ä(‹)²‹&[:å]FJˆ¤ò÷U™- Äþ&‚QOà˜¨F:qËÑÐyW½×ðL[êVë³X¥ "kzæžoS£x¶UïWìZn[ÉœîÍ» ,U›ÿ,®Áú;Ñ°5DÙ¤sA´`­?×~gbÊs¬=YxU×?×1ÙÑÓé•iÛ±ÁÉT“úÛ¬?Ò‚ÈJ­E<)”ž0a®Áþû½sÛ”~ÿ=ôÞk¢Á…¬dvêÍ;—[íIÃ5÷žüìdÒ¸¿íkê82Ñc5ùPHr)H6ñÄÖe¿¹°ÝK7ËÓo$÷pn›I ”û3cÇe¼Ãš}Êßt°ˆ%5Ý15)ˆ±VÅ@Ó¶)+«5¯¥&½oú­ÒÙHar¯SF:g-ßpµŽ·Çäwˆµ4ìÓ€mvªÝ·<>Æ5 Ñ™½’ö+ÇD·×Wôó1/ ONt]ŽÊ>Ñ°“>mohð¨ùÊR°¨ýÖíl[}kŸÃ¾ÎzgßLãÍvß•£‡quBtD¿Euʱ˜ê·(ú¿ŽÇy}øÔn¥ë~ìÜäNî×ÞuWí>Y<×a›ñÄ .ˆžÊìG'«Û{)¢}Ù*–Ù®$ÿVsY‰ê¹–å[:ÓÅ =¾Ëag|;Dté©ÜdO8VƒèÿØàoûNS*{çÎv}íisW›§ê*MÎ5Â[†r{Û‚æˆþB¿MD…§…¦“ïÄ™H%º–å[:ÓÅ í³P¡G¤h!}‰¢?<²G>¸h¦‚+ïM´¨Eƒèg6ùûÙ‰n¥®ß8k¬Ë:ÏÖ22ïx±+2ÍÆ?[Z.¢W‰[]gh¿7[/õF‰TªGD e•äbEײ|+&w¿Ç>4[‘0ÝF¡GL$ªÍ7|Eÿ03ó7ßò?+¹ ÃrU¿8Éš ÖŒf—rå[Ú~”¢û¶¾¢x%n¶ÆgËò#÷¨=´FôÃ*VCOFns©Eײ|+&Ý­²Û‹ÍNOm‚t…v—#fzŠá+º,ú{‡øÏ“ Ûß%ßlkà˜Ã{¿mFwÌ.–3/:Wµ°Eªãß„é h#˜d™¬'âZÑ7è4»Ö¼6þ¼Ê'^¾¥N¶Ëcïw¢M‰MúèñCßwR_lŽ‰ŠÎ}Ä|à†Ó‚Ðtn‹ÝÙ±ÝCJ³Ôæ«a\ôí¢ˆì‘º$‘g»e-hÝV¨ }Ñ>kRiY¾¥NWq[n‘F-ÞDô¸¡3Dš^×t0|Eÿ³,úüGzBŸº.óŒþâ‹{ï´<o©¿‚èÉs×Bsò±ÖD­r¡”ª¦æÉ,ꦻ–å[1éÚÉœ(Q¼Ð%4°~†á+º"úçü¡÷t5s/t BwÇ(]öˆë5=YnSÙƒ1.PI´'ÚIH^ô$–o­KÇçÛgR…Ž¤Ë"çÑèÄ+[ý}î­ƒü·ú¢K]õ¦kûXU;œÓ(ßw+tå”Cô¤Kým‹HTÖÌé=‰å[ëÓ‰­î¨B+é Öü–I[ý}Žû„¿ª7þ‰‹‚pìÇ.å¥6ùÜ‹½ÕVˆžV_®hq4>k>ë]Óò­˜tÁÂzM÷H׆VÒUˢş×À;Ñ"]à «Îù*åxÿ£Aˆ®›$Dß:G¨7µ¿hxѧˆþ6Ïן¢ÿ´ t²\Ô%~ÒÜ#©^VŸ†è;_ôýô(ÅYý—R»çuþµ­´Òæ;¥¢¾mÕ9wžüs5ΩDßᢖ´Ë˜!zŒèÜÇü™-e–Šú±IÆMçÂw*ˤ²^¹h…è;Yô¢hûDÆŸ"¢¿Æ¿¾Å‹w^ê©_;ÀºêÜàœ\ÖýÅ=­`EôãÉ,UÝ §Þ-Ø?åáÒ\Iõü›ˆÑ %ú¯äãù¯¶šÉ:Ñ$´\H‡³îžµYl÷!:D7šèÉ.UKÃeAxw_:œ÷Њ܂ŸY†èÝX¢'¿T5ûºárCZœù°Ï$©Þ“ã…èÝ¢ÿA>êYªù¡éBšœüåIõ>Ÿ¢CtÈÎýVÏRÕ8œ½.]ÒäôW¹Œ£:D‡è2:—ªÆo¾_?›.@†­LR=h…è±v“ÅšÕ©îLŠþkþÐÏR”òBó3b×à–U7-At5ÆÝd±šUÑÿ¨€¶n@'“Š“%°ÉbÏä©W›]Èz*³`§UÞ̪ #Ìð¼LЭ’¸&‹kàþÄW1— ô”fÁÎxß3Â*Ç°‘N¶¬/B º¸&‹/À\íÏóPF$ý×YYLýÒ,Øi…3ßûБ~|s衾!ˆtqMn—’à7òà¡´ o2_ –«ð†ú-t¤“ÁÐC½­)袚,jóüìßtO‚žŠZ°\Ut2vÅŽôã_ Ý3÷q‚.ªÉb8übŸËUãW2ÐSR –û5Ô3v édÜ û6JУ¥LÓôë)©ËÕ1té°š r¼ƒ te²è<è[§:¸‹^·j £Œu"$Üφ¼ó= te²˜F “Sô¢e#¹…«êÌ”º†ö(ЕÉb¾ƒž´n(ýŒu`$½ô6€ÿëØA[²¾—ÒVëÆÒ‡”t2î˜×£@W § èî´Ž(ÒS®=Cm] tzš€NÑÓD‘žzõ„¦ïÞ% tºC ÿ2+kõÌŸïÒªEººç×K tº# »£Ao¬¡'ˆÅ¤£Üe#¤» àÅ|ºÝ¡'úÿ"~aA™Eú„Žç4ìÁºÞkaÍÍ&ºáäÝŠ23‘êg¬Þ’tòFø q€.†÷ZX tn8ù@·¤ÌL¤ná%ý ?ä±Úm9‚•ôâa€›nÇA/¹SgRwùµÇb½× )EÞkf@÷K;uœ¶ÄÇ!Fî–fÖÜ‚•ôü\€µ=Nƒþ€šÖn´ïµH“E‹½×¢Mãy¯ñ@ç‡ôW8 Û±Á¦©¼š°’œ°r»Ã oz…IäoÑDy¯E›,Zë½c²˜ÌNøÓk<ÐmÙ`Ó4PÉvV`%<*–tå½fÐd1EÞk†My óÃIùD''íØ`Ót–±N7ZÒ—æAæßå=Ê -Úd1±Ìz¯Å˜,&³F燓ò‰N.Ú²Á¦©oÚ{øùウ=R‚e†öl&‹¦¼×Œ˜,F‚ž(œœOôKöl°iÅ› ¾<ÐÞ-%èN{¯3YŒ=Q89A/©²þÛÔœ¢qŠ!‹<à}SFÐö^3h²ÈNNÐm9ÁöT;'΄nêlðÉz´lõ^3l²hxê%'èu—ˆŒP`qâ !³üàËP §VÊdÑè­5vm°…Õ²…]Ø—ô^Ÿ-¤+“Eì ÿ‡óë÷mÛ` «¼óv:É°…te²¨@Õ»öm°…uo9ÛHW&‹ ôX 5­vŽ²Ÿ±[7éE’ƒ.¶d½ÄZ¶XC½ÉF–ù,ßeS £}9trˆ~bë0ƒ¨7ÙH¯¼µ tºÝ ß¥UÛlgx“­ñT˜ kºè t›A?XC/Ù:NwËv&€øVZâ¦×è t{A'§èE›Gº¯óI6Bå@f±]n/è;è ›GêÃkë éž †¶Kº&‹½³½.ÿð*Ýpò‚¾‰ÒMvõ îWïdU¼Ð# èb˜,®rAN™¦ QÅ '/èîsôªÝc ¿z/ÇLúKkƒr€.„ÉbmlÍ¡çÀp2€þ¿å#ú¡íƒ Œ°æý˜IpSÐ…0Yœ79xe:ádýßü–ët×AÛG{d ê¬wBæüS Ð…0Y\&Vê=‰ÃI ú¶]ôŽýÃ`¬3èÁµe]“ÅÞçk'»ž]R“Åè7â4}bOy÷(õ3Ö‡™ôÒ¹à—t1L§¦ðe:ádý²]åÝ#ä®g•˜saÉüLðÌtqL ©õLNáã‡ôuñA·¯¼{„*ÎàÎ…%]íà«tLIq&dæë„“ôuqÚì­>1¥ì/äŠüÐô¶à  d²X¼|Ýzá¤}yœ6›«OLi ÷ 9²$ÚJmýðÖÕ&µõ(7š8&‹]™àïÕ 'è¯Äi;Ai«#cÆþB.l,4ÛmèŸ?gZ[¹Ñ„1Y,ZÞˆê>’š,†A?§ÍöêSêDþBŽ¼ )/oÈÝ}ø_/›Ô—׸ÑD1YüÊMµQ“ M5ÐÆk´»úÄ”ggȅ梉òÀÒ.ˆÉb††¢¦ ’š,&ýŽÉqšÂrAÌ ÷ CN¡À ‹a²8!´EoªËi²¨~-^ãÁ]ôºCÃ>€üÈjø Uj7Ù”Éb¬æ€ïÍÉ$·ä&‹aÐ_‹Ûú!ýÈ©q2v5éÝ~È<..è"˜,Î÷LOç $7YL úeºÑ©š/îV}5éƒ.XtL—t9MIô÷âþãµRº×©ïof#¨ófÈR˜XxŠ z´”É¢ã ÿ,~ëIg’ã4íÞ7C6ƒ–?¢@OZÊd1IÐJŽÓÔ‡=o¦g<½ ôg™ )“Eè?‰ßêXrœ¦zV‰º²)h‡öz²R&‹Iƒî>G/;7öÀ»@Mú2ÌíQ ')e²Èý§ š9P9nZåÕ¸K½k™^·å]lIú¯4;—§iŒ±~ÜwؼTåÂ*Ðè š©7­cØ·W‚'C®@7 ú³nü6Q»3•ã¦TþxKA;¬)V +Ð̓þy¢ö:G*ÇMëúeú,,v+Ðè¦AÿK‚fwc#•ã¦uý2ý>À#ºÝ4èo%ü€ý¶ªj™¥Ýàt1L†Cºý¶ª±Ëtä»éù àí t1L ‡“ô~À [ÕØe:îGz·†ƒb.„É¢ñpR€¾5ñ'VÐ_Ãö¤wrà¼X  a²h<Ð/ÒSN_D=r;e­‚ÊC¡@ÂdÑx8)@_ø—hM£ÃÁ~6½g=øºD]“Eãá0€î\Õçi•£?›^뇶 @  b²h4œø ÿ ëÆ—:]8Võy†ú;‹~™þ©@ ‹a²h8œ ¿¬Ó…Ã[&¾‘NVÝ‚›ô›7( 肘,'è¿×éâ Ã[4íoF^é”6€·@ÐÅ0Y4N Ðÿ¤×‡Ã[&4€½Ò;éÎ6“ôÎýoßý¦IýèçÜhb˜,'èÖ룎V•8%£Œ à&}pW &@'Ë´~Á&„Ébá¤ýz}4ÖÐKÎ_Ip'ö«äEÈÉH)èËßù–Iý†ïÅ+„Ébá¤ý¯ºœrαe†ZЧÂÎ_eùB¬Ñ…0YL"œ ¦ÛÉUz.΄Ÿel 7é….˜#èb˜,'èÐíd“ƒŽ-3Uݦ‰|<9NwÐÅ0Y4N Ðÿ¨ß‹“Ž-3¸ÀÎàN… ¶ïu@Ád1‰pR€þmý^Þ¥'ÓâjöUbßc«õ?Ý2NoÐE0YL"œ ÿP¿—½ŽJŸÔ-µÇ°@Ðc^/(“E§AnþÏçèÕô˜ºîd͸Ë͵àéV '–2Y䂾\¿›48”>!µÇVì…¡ =‘”É"ôÃúÝ\¢5­éqAcè÷ؾøXž@Êd1èGõ»)Ùè¤Ûb„Ô9¶9àêU Ç—2YŒú5ý8ë¶8Sásl¸-¶7Af©h ‹-ñAÿNô× ôsîjL“K@oéPèJ¾V¤]þž~¶UÑérMWX%òZ‘çÁU¨@—tžyDín¯Ë·¸ðÿìëoçÆg𠧈`í,8¡w׋7†bŒÛÜ*0„Ø\l9ŒÒ”PŠ0‹p‰1ņQ*B $DU()qÂ%(5´Ó„VIKû±útgvv½v&ö\ÌÌŸóH°3¯æ}ž3;ïy—@‹‡±\õ2ò^‘…ÐPà:ÐÂ#Úcñ‹2Õ9è»ÌŒá®8£ËeŸR.Ÿ§½ðڸà:Ð Â#‚“ d“ÐÚ ¡×‚þOé-3c@a(•Ô;ä7ÈÝ„ì\}n1½›®Ò1è;L…¡Tò×ù r­ñâ= .ÐÂ#îÃÏ´Ï¢4OK» Ÿ65Šyˆjw5¸Ñ{¼xÏdÐèFáí ¨wy¡vîèçL¢®^¼ŽçÊß’å \¼3èƒ tÃðˆZ“/ß„À‡ ÿKúÄÜ0Ž¢0”JïMòBÚrñâÝŠ¯ƒŽtÃðˆæÕʈ¤G‚cÐ×›F‡8žK¿v!õî–¡Š•ì?è†á9™£Ôý¼%ßÙõÇ™áôKÓLŽ‰lªx_!7Ñîn—m¾C‹AǺQxDXK“„‘ ´8ý[“ãhŽ˜®þ1YÞO{ýU™w›aÐñƒnQœ C’Ä?ïôÙfrP|ÕåßIÝþyähdÐ èFáø»öY¨À#g ÿGºbv ËpÕîªý3ñÖôgºL‚~g(˶žst£ðˆ<}·\ ‚~Ãì@°9¤ïÄ[Ó1s>ï-™,zäè=Ã#¹ÙYç8s§ ?4=$AÝ:/—Ó.ÞÄ`:WÖîëé€Þ#ŽAïô/Ì&8$µeíNÞ*rST÷d1èF _1àªÝ'c,’ÇR÷yÏâýq ú÷ƒ¾{¶é‡„‚ø|fRÅ;é¦âZ É-,r O“îY<(ÒÚ|HS.@3È è‹Í»ëZ†³v׊wÒ˯¢ù !ƒn _ü`÷é ‹ÅZ» dù÷”—_s:BÝôõÒc«GÅ–Í”ÒfyáZÊëï Œg tCÐ?±à÷œªÝãü~{íBy)åõWøRZl‹AOýœô±Åƒ±åªvë–,o ¼ï<Ë2èF ï>³|X´µ{°I^1–ò ,ÞòΠþ–¿g]Šó'àœ•³ä¤W Â[ÞtCÐwIR©ÕÃ6VˆgNÁ~Y^Cy V±%,ƒnú+–l`uÏ"‚àrùRá%˜ÓÃùX zÐ/[³M¨mí.l/—¯Q^ƒ•üŠA7}›5wÈ„ê*ÄëX'á6m¹Ö~ÅÆ €>Q’X?ðQq+ÖI îþ|Ÿ#ÓtÐ…ÖÜ!š'ΨÆ: Ô ä.Â$îbcÐ{þ¾`Ñ2¡-õâ]´Ó°“v[{6w±1èßݪ;dB£êEÉ02è½@·ê™Ð]±~ ÚyØ@Ûƒ¢9'F½è-ºCj VÏ¿Æ;Ki·±]…ÐëL#ƒÞôVÝ!Ú*Å;ÄÛØÚÂlÉ ÷ýŠEÓ8]×ÅŠ:¼3A¼- ²ÛG=¥ÇA¿gÙ4NÓ„ùbÞ™6É' ï„-žÄ»fô^ O³l—ÐYñâ©Ø>K>Ox%þwÍ0è½@?"Ý°u콢؈x.Þ¡½ö"dð®=ôõÒWöªãã£Ò»«×wIï„ ð É §nÃ4.¡÷PÆ-¦D|'ìta"ônÐOÛð’ÒôVÛg]çIï„mQà&’AïÝŽ—TBû°ZÇ%D<Сb›I]ýEÁŽ—TBhmŸuÑtÈ @&#É §@·å%¥ ±u\B›å…„=a?€Q¼–AO~Y’.Û<ü!¼öª‚kI{¶…á5f’AO‚nËK*¡Äöšh{Â@6ÛÇ1èIÐK%i—ÍÃ×a¶ŸÐîé¤=a[ ¡dÐunΉ IDATÐ…Ev¼¤Âl?¡iJ¹|›îz\ËT2è:èö,f4ÝëëpOÉ5¹|;Ùõ¬…ÕL%ƒ®ƒnÏbFSõ qî));)/§k+õ9÷¶0è)ÐmYÌèÚŠº…MÕ1Ò¶R¡6È\2èè7¤Å¶OpF¬hD>)¤m¥rV1— ú¯TÐgÛ³˜I<ânaSEÛV*¸]•A×@Ÿ&Ͷ†=¸[ØTÝ¢ü2}H6t1˜Þ^“U”7F—§ ÿIÛtžÐ´y ›@ýeú0nWõôœè–× ¯—;8ÅAÜ-lªH¿LoQ`&“éèo‚RTY ËkÐm;Ohúo‚rJ×äYt_¦WA´ÑôôÑð ’gô8è;ì:Ohª«Ç› œTÙIÂMÍ!˜Ëhzºð€nßyBúm°ñ§ôc”;Óï@,ŸÙôôpè$i¢ƒs NaKŠrgzN®2›Þ€>Æáý²$½íàø·ÁÆEº3ýrNO@nt éšÎ¢ß+ÐîLϱ©”G ?ÐP’—× —JÒ'À{Eqú© R¶y¡L§  zî¤!]ch²¸ÿÜL)§kó>2 L§ ÏL—ç f¿!]Óq²^^Q¶yBÍŒ§ »¥þAÿà¨!]Ó‚ q/þÉ»BÞLua¶E¡ŠñôôÈ©¬Ê¬S5@è !]r7X]g¦W²õ³7 +£Úóy 2è%è?×@¿â !]Ó<ìn° 5É+¨¾L¯ ØO@güBÉœ<Ý’Êè÷¤ofK½ø¥¦g%áÌô™ ¼Ì€ºú}Æ? ³Bð¹ç /–®8<Ïañ¨æ‡pfz„Ó¼½¦ê?­‚<ÏA_/=tx8J©*¾D×)²”&ÔmÐcÑÔz ‡=ÝYŸªª ø¥4­¡ëY8šoétX«xúiG}ªšüñ*´SdßÒÝ=HÚûDÞßÑö©ªZ úáU:i§H¾¥{zœÐ:Ã<ÝaŸª¦CâY_La§H~Jwô! LW#ÔŒ›ÊÏAwاªÉ'¯Ò5§H¢Í-|Kwt¡+õÏ7‚ç ;íSUµ¥^üÚsD¸¹…oéîƒ.äæ…☇ò Þƒ^ºÑvpr·¶úãU:åæ¾¥{zü²·´·´>åõúoÔuÒǧòÉ«tÒÍ-¼=ÎÐÝIÐ?–Î9øõEWº*ºÍ-‘0 gJ]}̘Uê_iòôÇNÛ×Tíûd×Y“¼‚hrËLnbs tP]¶±8Ìü:ºãö5UâLÓÊYò5²·tîKw ô‚‚võ¯4yºãö5­v?Šßà]×m¹œhrËs0Š­f>£ë ;o_Sõ¥ Þ5•‘mn©a÷8WAoO}ùÙúç_zºóö5UÕ3ÄŸLÝä–%lë&èݽ©mótçíkšÎŠý2SK©&·´Eáƒêè…ùqA^~B›¦BÈ{ÐwHëâloàÏJO~Ÿ@7¹åå0©.€Þ‚žZí=軤¥qº}>él'·ŒŒ¥ªXOµtŸÛseÎxïAE’¶ Äé:ÄùÕ>™*5¹…æ÷q7!Àáªn€ŒD"I¨ðéÈ$èo@W‹ª:˜Djš"ËûI.ÒMx¨ººªª.wdôRiºZTöKgKü÷íNªf3™mcVÝ]r ÔÂqÉÍfAÿ«ö9]-ª|ÓÙ"6›y5K˜U—@&ê¦ãÕøТ«E»Mú¦³E l6Ó áÃê èÿgï좺Ò8~.ÜÛ'V%s/ƒ‚egœE ãL ŠZÒJ‰ŠZñ]G±kbS5íº ÝHÝj4P”Ä—4šu±%¶5V“VëkkVj7¾t+®Mø;öÞ3w^”Æ™éœ3žã9ߨw à!÷œsï÷>çûœè·jfj«_lÂLt"»Z,-WŽVrsñ.jØLØ ³%¬YÝóC†¡ˆЉìj±´n®r‰›é6lf4ttKZ³ºÏ}+ ú< €þ›úoB#žSÎñ3_¢†ÍtéðDÒš Ðõ¶ØËšëþ¶ úbõ*¡osdlj6S¡ Ä5  ×ÅrÝ»}n@¿£þLhD^z¶DtDÓ ¹PÚ%®Y} ¶³àð3úIõ ©!yéÙÑ&í˜a3¥Ð&qÍèå.¨n/o*o÷‚³œÐw¨›I 9Ÿ› K;´"®ÔIƒ’Wú £ »ÖÝ51:©bwKüÍXº(¨7–êf* zLá[!'@ݺ‰úÉAÿ;Uõ<©1o+^ÉÏ”Í<¦mq©¾P&Íè–vSw>S}šªî#5æ’yÊçÍ™¨áÏà•Àfô®qµ¨{" +v·tœ+;mÓ» 0UKôÚô¼Ê9PÂ褊Ý-ñeÇ‚†?¨—ÄR= Xtàl7  ß'Uìn‰/;NÔðçP,[.Ò}|[Á¼€òÁx@¿ N'7êO\Ùq¢úqÝ…0 ‘¥ z5¼fÙ!æ«2ª• )ƒ>]}ƒÜ¨œÙq¢†?ϖͨƒîë@6è¨ÎÅèÕ Ë™‡¶jk nõ@žd–.èzn ô6'  Jv·Å—‡›±p¹ƒ#_BKôBçnô g  JvŠ3;ÒjÄ[®[\ðXBKôÑVSK ô ŸjÇê”AߧªÓŽËWuœ9 b6c“™R´Aï²6µ ¼6œ«^(è_F^œWÕN‚ãVÎãi³*Â~ÜuñÖkX‡I-MÐÑ/.&6µ|ýM‚5°–>á(;KÌfl~@AtÔµÀmbîñ—#&@G ÕÇ5¸ÊŽ³´¡EÄflåÅ0FbKtSùaê­qRd ¬%®²ã,íÒ+…F‰-mг ÔA'ZkêOÙq–‚½"úqe`•nIQ½~„˜h ¬©JžZ9`­Òë‡jÉ-Ða„˜}ºzìÐËùé¬jk™ˆÍØänUZ ¿5BL€þúˆìИ)èŸEÿ¿EäKãL}¤ìçnk´C‚-Ün7¼/ñ¥:J=afK\¹pô$|®Ê Å¡Boèè/äKã.xßÃÝ4žÑæˆæÇ-×É/%ÐSU)TW V?Ô%ËæAaBCŽ$)ži€N85.ªýÊGÜMãä5ÂùqùøŸä—4èFÓnëДç­P•ô«ËÁ5Ñ<Pû\X×ñ5ÿ0ôtj\D¿r–ðŽ% wÜU`² ?éÀ9]ƒØ $Ý Üg;¢ÍàM¸ÒZÛ ~!ú}ò¥q7\\ÎÝ<+´¯óãštx"& ú°‰w»É¨Ü}yÈM¶¢ÆÂl|œ¾ØçªS,eJô7§ÆÙâ.áÝ’€~\=äJ€I‚žS Eæí5Z>óͼɓôi‡ õ=€‰ÑϹ¡©éÕ@‡w(CпL}±z•Æ9YÇá6ìÇ­kí¾"ó`É‚þjä Üð@ŸuüWÂùïË“ð± ú,ÎtàÇðßýŽú3•“Â_¤Â~ÜVÁï»2–(è¸iÿ9º“|C1ô<óåøBC%áË0¢ÑÆP^¢JëRpCÕ˜ø‹”²tD8?înüDŠèÀ•/ÍàÁn=É7è#AÀ…ÿ?žùꉯ$êOÔA'ÜP5.Ÿ°a?n¦P‹7¢ºíB8ЀËd¼¶—^ž`±ý¾|#/ÝwDFZ°Ô¥{§ªž§rV~âñ Ú)œ7œ÷$ÃÄ@wc\«¢¥.íJò u0ˆ÷¢ÅKF´ÝmÐiÿ :…0©ˆ–p¸‡ÍÔEÑü¸V\“ ½›ÿNˆ<@÷&½^òÂ|L|¼²Ã çóûl¤:ºB>L*"÷°‰èÇõG†Ç}¸ÆW…l‹ó D¼¹çèøñq|‚+ê‡|l‚âŠÌ@;þÁ#*3ïaû•ÃÙ<¢i µ|ï9ex9ÐÍwhpšÌ øîö"Hút å€ÃºdªvøvêV’G"É@ÿ"tJ3ˆÏ=l¦6iÇÄòãüáqÄ@/Ðêʶ×`l~Òo(…³QÉêȦ–'K­²£ÚºªÕá9Ð)U̘zÇ=lØ»!Ôúí’“¡ŠI9‘º×6ï˜JªÃàjóê§C¹VBÛB çv@²èý´@ÿNýŠÖ‰9 œãq>…óãÎÊ¢’ §«-— uOQäÙš :j¸<ÕÉîïÓý¯42f"â1%ÒÔLÑü¸q9ãúWZ ï£’1ƒUùºrœÇ ýP0?N͈:Œ™ˆ8ìƵI[#”7\ïHŽ_rÐ)eÌ`mŸ¥|Î㌮ÌkõÁ°äøeý[õ;j?Éq·¥›º¡5ìi çÉ¢™—ô«º2Eµn®r›Ç)yLÛ$Òˤ™—t]™bâr[º©Ã‚ùq2i†赃ݬ‚þúˆÞ²‡Ï¢dlÕÖLh ?„$EXR©î^3ïVOaô“ê÷–üµVÅZ;G»(Ò"î‡RI2ÐuhE([ç2èÿy ôiEO`ÝVæÎçrVoh 5-âv(î’(gz! ”õÀØž¸˜ZôVåëÊ).gU0?®»P¶g"z<+f@Ÿ±™Þƒt„‹fVr9­‡5íˆ@«x)8*$˃Îu{À鉋Ð)5k‰ŠË^Xbùqùh–,g :;÷èKüðGõ ÍŸæåè.çuííŒ@ËxÔ%ÌD@oÌcôßh>Hç6iÆÔ!¡ü¸UÅ0AÂLtS%' š N´2:ÕéÈJšù”Ï“à×Ú ²W¼ð®„™ èF³qŽfƒ!Ðé>HGhþ\åŸ3{XÓ®‹³ŽoôHš‰€>Úd¼¿ºÑvŽ û¨>H7uŽÓ:X„–i-âøqFÀ$•Êô»àšbµ£®*p%M¥ úߟ~G露#‹×:X„6´h»ÄYȲ—Ыc‰®íT ø4A§¹#=¢ýœÖÁ"´WÓÖ ³å¶tB û<±[s·›!пRïÐ=CÜÖÁ"£WëÇËw•ä9sÐõ8€m:C _ ¸#‹Û:XdÔˆäÇ…õ„.Rt·#ãQâ`é}±zò):ÍeÇE¬]ZËa–r4Jž3Ý}ö«>ÅèÅhw[KæqÙqÑÒ†m™0K¹ žß¾S‚žÚêP_ÖŠZËêAÏat´C]8ƒò9Z®ÌÛÎéô^Ék´ûzKe:zP ºõ—jBWº /RÕNÊçh%§y°ÖÏ ­W˜"ð ‡%уŽ&•ºLÌ]¥K O£Õ#=A¼æÁšªiÐöŠ²–»Ý±ÛK© @G¨ª«§‹v|\º £+T7ªb­ãvk‹åÇÍÆ»&ƒŸÉ€ž ¥ :åªXÜnmAÿgï\œ¢ºî8~®œëïZîK¢ »¸¸ƒ(Œ‚HDT”úÀ E¶_6©Ú¨D­!¾(ƒñA¬1Ñ_4ñ•T£bŸÉ˜¤Ö˜´cM㣓Ìðwtï•E ìÞÝeö¼¿3: ‡aÖs~Ï=÷ü~ß$Q3¶j‡ê–.èKÿÿ£â[¨ji:§ïæ)ý®%š{Àp…´¨ WáûñÿTç´]¼®°óý¼,Íغ+ãgqA¯Á+âÿ©ê5í8¯K¼I¢flê†MÐ÷¶}füZ'·Ñ>m·k|E/¬$œóÀ1EA-$èÎlŒwÆÿc×´%¼®ñXyÞÇÕy ‚ZÌ}ø\üV«"´JžflÍàó+ªÅÄýÏÕª­ÖIò>n– ’Õ1‚¾°ƒ˜ÄýZàˆ°CÛÀí*KÔŒ-KµVt`©SKGЫðm3õ@[°˜ÛeþF/Ø$G@«¶ØAo¶t¼%I•+ûôƒ´<¦@¯Á3HÌ¿ÈjÆ&‹ù³j­Úµ3zzrïÇí­RÒà)¦@'P¿féÏ[º<ÍØò YÝ°uôÞŽ Éf_÷¦@'Q¿fª¬A;ÂïBKÓŒMÝ°u twÏ87S £«øK"su–×Þª¦^.”Åü¹YÕ°utŸ'xÆËñz¨‚¾¶ý·®ÅÛ2¸¥óë)…,óg9š±Ýq©¶.€ž ™­ÿcög ôR|ÌdÍÑÆ­ãv¥å1î¡nغú#H.¹çG[MϸmA¿Øô/ñU2“µŽÛv首钘ÍtHWdÇ :úoðÝU‰Ø}3^“Mf¶¶ók‰$2V5l]ÝëŸÀÜ—51zÜû¯µjÞ8ž·ôA²˜?¯GµB;fÐʹ3V¼y1€ŽVàBÓØÒËø]ì뒘ͤxá²B;vÐSŽ&'õ³ú}\Ehº8v~F–ÙÌa)Š[.«¶ØAw{­#zb±“5Ðo)k±t„ë-]³Õ‡­  ÷ 0~&wBàœ^Âè„ÊZøßÒÑIŠ[T¶˜A¿îL³-í°$7Ü` tm™Úlé oécé«eët€{ î˜@Ïm}ªŒkyP, _Àø±-}×[º,f3 ¥àŽ tŸ·õhîñ0ú˜x=±ã{K—¥¸¥ \wݱ€îhSÔâ` ttÿ›ØŒq¾¥Wê§$ˆk¿N+ºcÝ“¼°HIdmGG¿Á¿›2ηôýz Å-}ÀS§ðŽô¬ÖN•A¶3Љtki³¥ŸàxÅsJa63%z)¼c½›F§û‘ß,jéÆè„ܤÄØÒ%)nIƒF…w  £¦dp˜~FTAÜñ›¤Ü¤„8¥KÒIù@7Åw  £iîæî´ø^PÆ:Ñ×Ç9å(nq–Ã'ŠïX@GhXí¶Úx¿áˆ tt›X¶»µ¥ó'IqËxpg(Àc‰¢–ÎA¿‰o’œµ#\×¥#$EqKßDxZ=茵t:Ál÷–-}Ï«.GqK ”;áQƒÎHQKç “Ìv7µó-]Šâ–!áÑ‚ÎJQKç _ f2#Æ–>ö°¾ZüÝ®RáÑ‚ÎJQKç 4™y¬9<{¼#I:·ô‚äZ…x” ³RÔô‡Dz'?Ñ:®=Þ‘YÜò¼ðÅ-uøV!%謵œìôQøÙ‰ã}Kùy :·œŸ_1謵„˜·{PeÓxîƬÎ-ËDnÕ´%zÐY)j úfŒ'‘¹³<7WE–SäùÑÃ[5m‰tVŠZB€> ã„·ôŽû¥›Y ï=¼ª¦-Ñ‚ÎJQKЉµT}¢©Ú‚é\¯ý)½°Bôøž £äÑÎHQK(Ð/áQ„§nèm×k?H§È&p(K©(Ag£¨%èïà‡¤çî{­ˆï-}•ø—é~4+Ê£„b½†p¬¹¥ïÐÎñ½ú8E*K©hA÷'-LËmUЗwú}’–ÏA}®iõ\¯~E¡ð—éÊR*JÐ3Êá‰(‚¾%èÄ“`r¾¥íã{ù%¸LOU–RQþpd'µˆ*è;¸‹K‰ÏÞqM;Îõò;ê¿L0Dq9èýàgô=¡@/Å×ÈOß>mßE`â_¦;Ëã[W-èbtç1¼‚üô-)Ò¾ç;Ä¿L/†Ä¾ ôÈsݽl€þ®ñbçd`ƒÚ­Êuˆ™žá†ñ ôˆAïI(—0fÐ ;Á¶h:ßÝ —é=•¥T W{ó»±ú{Æ+!Fî.I¬¿rn*eU¦‹mó¾ àz §YJžûøË4&A'^’n‰wS)*ÓÏÄÕIСƒ(‚þ¦ñZˆ‘ð×4fp;ç\¦çã%ºýÏŒï AwÎÄx#…\7órU«2]h›÷aÞV3:+²ý ÑÓNçmB'8w °.ÓŶy¿ Þa tQ@§ô6Î,WÝÍyˆnó^íhõ0V ‡Vjj¥ùWÑ=;Ä·qV¹ê¾£`ìaÁ{¦§Áº­&·{#Gô· #”9ÜGøïtθ»´·8ƒº~]ä0 »ÝN™™ÛÌ¿ÚˆMÐéäÆT¯iŸs³¿L=è\Ñ?5Œ÷C ™A¾Rõ±Îi;øN„5/Ó_9Îǃû tž@ÿÑ0> 5v—ÎÛ8„¦ñž‹éú*ã¼o"+Ðm4ºƒ(‚þaÐKñ?)M#ÿ‰°hµØ¶R%Ÿ£@/¦2ã ÿjìy߸ÍÇy+6ËVê”À.{åH@ŸÜAAß0> 5FºyrÍÑÆqž5ƒöë"gÂþNî„wîÎè“€ŽVàc”>vYç&ïåˆm+U ÉSè‘©ö©I¡ z¶a|r° ߦ5‘Î]¼;ÂZ¶RgÂþ¼) t{õHvºÐXGô1á@_×dÓšÉãšö/΃AìLØj¬T ÛêøVú'B·|ð4« o\ƒ7S›ÊsÚˆ2ΣAìLØþ0An«\ÓŽÇ¥Ã\Š #Ãx3ôàg¸ŠÚTN_ å=„΄=*sÂ{Ä û~Z@Gùnš ¿ô_(°Y:Â½×Œà™°Ãa¡ÝNŽ„VÐçºh‚þŠñ^èAZl¦œü{Íž ›)qÂ{äZ\[[@Ïpå3 úL ­Ÿèï}”‘Ø™°[á· tõ4Û˜ çdŵâÏôwÃŒÒK™AVeî¯Ø„n°ú+yÞ#½Ö ¹•ÃaH^¸æ³ ú%z)3Ⱥbã½0]hOØ!ÿQ Ûè'wKE‹;®ý¦mAŸhì 3Z…?£9\± í Û© tÛ=½ÄÀÜ›ß&´]}3Ïç D¸bY _5Ü{Ar­Ý^}_ʈûR؃¾%Ìhö:žÏA pņ¾Ñ F îò&¼G ú6¸—Ð}yXÐÑC\Js>×M㾊 =/n[³¬ ïƒ^^üê–è‚~2Üp)¾KuB§jEõ¼Å2]Ø2¶jü¬@'h!ýNMЇ}=ž‘MsBMïgî C.c“5á=bÐ!ßlT×äÈ@ôgà oÄëZLÕi¸x·Œ-àž=ŒRR!Jm#@ùѸ~ [Ð×ÃŽÓ¬k±´AkàÝ(Ò,cû³ ŸY ôpªë7¸šãÜ­®Ë ÂרΨsÞ8í÷q1[/¬3â3Á=@N9 ÎÄýÒô¥ÆÞ°ã5Ô¬`ƒ:«-à>å}Ð"}µ˜/iÂ{T÷è_g>uÐ_7Þ;þ'ŒwÒSRÞÑ*]?$fÈË™ðY7Õ Üà¥ÝMÕtt•ö!]W)„^ÕƒbÀO ôÎÄTôœñbúÐn­÷”w=(z˘ðY7Õö¢ úÇáàõC:ZÌã=(~-cÂ;w ÐÆßã‡t³q ÿïã„õ Èéß*Ð9ý;Äú!•à}\E¡>[È ? >¿½£RS+Û¾‘£ü2î;ãÄü!]Œ÷q×}xà‚&zGLn÷FŽ&èÏÙüD åtwK»ÈsŠúð>è•™¹­Ý9š ÿ`¼nžÔÓÝM-!?NT¹茟Ñß°¡ÛøúÿòãL¹"†ý\è¡@·SÊåË4Aßk,µû´kÒ- Ý!@½ªóý°ˆïMàš¥@·QÝ3úEc­ÝïX×L¢?µõEÚTîãc“˜ï~ŸùÞIÎ2è'ÁvÛmã¸mЦqï‡ö‹ùðþôËQ 3 úc¹í/¹K×8®Eóðõá½6n)Й}1Ñö—PvwJÿ8óáý”€Ÿ ¹ ôÿ±wîOQ\Y¿-Ý9½¾ŠG„b†L "‚ˆ(*j)¢cð¢‚qUŒÊ®ø˜%+h¬(>¢ñ]Wãsãj|U0VÔÕhv-I4Q“³»Uþ;=݃XÕ·gÀ¾}º¿?Rãår»?̹}ÏùÃþÏo`áÝ°‰Ûbøâ)xGغ%`†:Ë ïç«R°„?ÅÂêN˜ÉM3ü-â ïøZ·øjàº:Ë ßSe?‚‰åÝ„á0}]!ÆàýUð4X œó% IDAT·“»½ê úVq•ú(§ø%,,¯TÜb|;U”Á{² úZ ·SÆuˆ·%eéðýWœñу.ªO™…RÕ ŽrÆ7F¼gA¶z” ×U‚+&bŸû~} D úUQ¤(Y¹ÈBl@v ‡év”ÁûO©èáJí µÿá…ÜtRžùõí¿ ¢}»(R¤½MæecQ¦ã Þ‹!Á=*¥ÉÖÙ¾lÈkÿÃl®èAÿB©Oa ¿b-+ü„ãŽþ6A™6S ¶•èÑèSåOå¸ö.|¾bçoуþ£(SŸÂà2þ#ŒìárŒ˜Ž1çÝ·,УQ/( ~оãTèž=èÇDñGŠ9|Éßcd‰'ÌDP™Ž2çýSHª·@B5üü ¹í»~W|C'€~H¿ ˜Ã5F؈äY²À ÞÔTY G!—âßQÖv§ÌƒïH'€>J·SÌ™6B2·qÛ2­àAyás ô(ä„Æç¾ Rs»ß‘‚ÞØ7\ç*U/Å«4“xÀÈ[@ JdÂbt›Ih¹l/½:6%ùÅ Ô:Å­4¡æ.þ3«|C&l xÇfi¯„è‘Ëó‚нp;Ô ¡;Y%¤™#lAMÉA`+…Ñç½\uèäË#õÉê¯ËìÆ%=-c­|ÒÖ ¿GzÁ?ùkÌ,óæî„ñßÿðù¼÷‰…qèÏ)¯RJ~á8çV{e ¡ÃŽ×¼a ´Ñ>_ÜM5ß{ ôqhÕqnØ\㓾\˜¬Ãj)äÛ-ÐÛ©7€ÓäÀµÃÇ[üܯÍÅ#Á” Àáè#ÅT^Ï—bfWÀPÆ6]‡Õ4P¢O tEOÁS[^ „Ü÷@?µA!V Ù;¤ÀvNè>RÜH5ãÁeüzvú+'¬Ô¤i?.ÌÒC™ô\H”Ê‚°V¨½Ø g’‰{–\Ôòß©‰ úbñ$Ý”o2“'é} Á;ù“0Wðn–ÊÔ {jˆ:Éw©½¸º\ˆí&ý#J;ô×ÅßÓMù;Éqh‚÷E…å¨6µ¾sôP¦ÝÓ z…CõÕu×ãm) òÙZgƒþ®ø1Ý”7°aï®ÈŽ"x·/„oP0Ú–RÔ Ç;ÐÓù]8!uÐÿ"~H9Ö#þM–ÖGðþ¶0|&’¦°”¢½‡ô¾,îËêÒl"uÐÇŠg)Çjáo0»Ûqï¯ÍÞA¼g™¢‡25è~äVeCZ^ 8fè úgâ¿(ǺÌNaKP8ž¼ï„O0!`K)úsôŸ]J¾‹«'Ñô âXÚÁ0Ñš [ðþg¡ð L ˜ÂRJCfœ¿4)€yJVÑôÔ¤‡´”ÿš©ÕƼ½$ìÃÔ¡0Ï –RÚŠZúT§wõ„ÔA§hÒ$ÆbwrCÎ;YX(\AÄÀ h¶@©w·—3!uÐ)¤·ê"c±»”ónü‚Ur[(Äd Û )ƒ,ÐÄL]Éèê ÒÛ´‹±Ø¬Îᚌï6ãÛ‡ÊWj¥­C®¶yAÏŠpöªmÐôíTÃb÷Il-øfn3È|¥ Ø=$w•×àòÔ§3è;5€Î^ì.¹Íß*Rò•BTšž ð“z›ú<Îu¤\oÔtš¾ÉìÆîdÊ MÓíËQU·T(…Õè!=ÌèeÓ·›*];Õ°Øý#Æ–| Ÿw\¥éÁñÐ=\ÕE¹zƒ~U5$¶>`.v—|Þߤ‰ìÇTÝRîgèmoçEŸ@~³_WÐéº,†´”©|÷ 2›¸«ë¼- _‡†ƒo±7m¡½îq¯ÀÝÓ£‹ó‚ÕA§ë²Òežÿ€µEŸ;ŒÛaü[GªnA“ 7Ɖ¼i 5èý»ÍÛ³Ë ÔA§l¾Ò/lÕªJ²?á¸ï ëØ Âm4 `oÚ¢!a¦¸èeX`«ƒNÙ|-¤¦|fí@QÝrQ‚\"À+è5¿$g-uÐSödRÄ–ÏŒ¢é¬9Æ” ³,Ð_¢ÔA'«¨z2µê&?‚½u?Š%AMï– p%›ôþý«¤aÒtÊV-!áËÖ²·ðhä°Ø?7x`´ÉAi \ú‚NÛÁ!ê—ñ§Ø[ø)Û¸㟱I rXä®C|½¹AÏÈh”>„I_ÐSvpéÿˆÁ•Ÿ0Œ{ßø÷Ï¢‰häüNèinÐYÛ£S»+ZÃó—\úÎØÈ2<r^˜gNÇ„¾ªÿ®V_ЩÝÜàw±¸öç-9¦tG¥ÿ§9@oëS‹¶©ú€>VüAÛ˜“ù¯ \{glC/ —†â€ó  èƒÒoº¬ºøâSt}¾¸[ûÀkËøkÌ^†Ã’Þ‘¤ÂV@‚™A¿®oÝîgF·szµ‘-fd½É_dö2d6qã_›¾EK‡<°U›t2 œƒÈ‚çèq:ƒ®ÕbFÖ$F‹Uåmúx®Éø=V÷ ÂÃÿõIÐÛÌ “¸Ò@tÖì‚ØqDgеZÌ(zÄÉî…8ZÂ7þítEöþ—xž3ƒ®ü½[Ùµ…|4 ÏF2ôz~Åv¯Ä4 r¾w„Ù†o›þ–2,лZ4 _?‹dè‚ìµPn“ý<7l‚áï§9…å†?)œ•v3‚>¤ƒt]»ó„¬¥Ì&¼KZƒÁé}‚ŠÕnOÍ:tΠkwžÅô ±ã(o9-~›Þ rÍúèÒôÚ'd±| ý{ .¶é÷ÒL:s{ôH ÒƒšÄ3ØY5L‡¹’¯Œ~GÙlÓ}ùÐÃÌ ûãòH}²þ o  ]ÖMþß,_Ì& älӋеVÕz^¥´;Ÿá8çÖôí¢aÚúvkØ‚š~€ÛbürÆߦã3~¦½7€ÓRßš3õ:ƒ~,’:UYuxiÁLälÓÑ?Sƒþ<µåÅ@È}ôÓôÈêTƒ:ÂtÒL@O8Ý[Œ¿MGW–N z®ä+#NR¡BgÐÉ*ñ`„ó4#é0Wr×ڦ뮄.½ËÝSCÐI¾KoÐç‹;#¿…Ѧ-­Ê܃áÜi£'½H5%èA‡ô ‡Þ /OF:þ¨%löPnÓô.ÇðÎRmºÁkÓ‹ÁkJÐã èéŽ|½AÿcdåkAíb:–Èr{ ßN9°M7vmz8ýf½”Ê û²º4™€ ôËׂZ[Æ·0~Qîb(YÝ+§<ÿúènFÐý.ȭʆ´¼pÌÐô š'‡½aNæo füªL㸆¿µn Â~#ϸêL:ù9Ô%ÝÕ“è úÇ⻑ÿ„ +X.m‘ÿíàfÞCξÜØNï}báU3‚Nü¥RW¦”ÿ³wþOQÜgß|6ÏVGVLpD¥ÑZaTzzŠ¨€€…â·#Ö µø ((Š_Ä(jýÖ£U« õK«‚Í`AÇÖ56I§fÆ¿£·{Ø x·»·ï»}ÿà1‡Î~äs/>»Ïó~žgœ¾vÿ^þ_«ZTMâ­v“oKþ>–z_±»Óû?‚É4ózE-—ŽÖ{A½ÝçªUÍe&–î¥â`ðÂ.Ÿ"/?#˜L3¾T¯mM4è{}˜¾æ¥‡¼ÅìGºP ¡÷=¢¸xùÁdšéèëÆôµÒSËs;"Ð'|›¾†u¤Gè½znús¢?…èÕ8\ŠúpþŸ¢@OjQ¦¯í÷ç"Gºz¿ˆþñšÜ]Þr>xL3½ýy…Ï s‘#ìZè"þBB A·û4” ìH—+‚  ÅæiâZ\ßÌ›µ „@LE[aD,}ótQ´¾Š^îÛP&/ý€p¤ç×3G úl òL‡ñ)ô·ý÷“Ê Š¿@Q³ &ݳ{û‘~Óü›3?‰5ÀjºŽ.HÆ3½èÕfÝ?¬ªßóÜ*„ª`éß¡ʶᶅíCô•zÀ@ÿ\’ü¥¥µñI;4ö~%Ûdà~3É´$t@OPEÔÇýEÀ 3ÂIú³¿WºÉËš¶hã>øtº¬²ä†ÐÍ6dѯ†Ï²·ðÏ ö(ÒéòrÜ€Ü<l(Ðý¶Æ)ÚÂùvJ²³Xz»È=°¹‰AÑ<®7 /}E}”ŸÖ8Ußóo1v©ÖÉêóÁ?i°¹êH¥]b(€n¨z úékÿ¯õç§0¶éF:» nœQr˜¹™ÁàƒEÝŸöJ5ŸH2«ÏçÂ:ävÅÑm ô~MZ¯ÁÅšA\3‚jœAŸÉû˜b ,ÐúAi†WCq͸t¿ÅÐ’Õ 4Æ=0 ï•Ê5((—m­<d§ÆÀ·È5‚¶zïG)ã-кŽE§@Rl.åaNðŽ3JÉêÀu'DÑb ô€€n×À1£êlÙ«õðfØ'0{ÈÅÃ÷ƒEÝŸÉÉ]”ÑkÆ­ùuðfØÍÓĹ€CF ±@èë¥kÚ\p/­BÙ­â$ô.ò1Ì¡K(Ù=  Ÿ‘îksÁÊRþf»²àmïG!‡:ü›¨Æ= ûßc¦]ŸâÄãÔ.rIà¤"zaåDðÒXÐwj“HWôŒ_µÃ|àJè.“ç"†ÞW‚—¶À‚®M"]U^_…s´Ô:Ð;îX$ž€ ½WGb·x‡ý‰$=Ñêš³yn3ΖÝp²zlÒ'LçÂP¦RÄS tãA÷w*“·l-üK ={Ž^´ºFÄ ½ÄR tãAfH;5»è&0‹­SÒÙlÒ¶¡xIZ ºßÃZ¼õ(™îRf:»ŒMz!Þ ¦uè¿èƃ~I“Št*KAúÇyt½bèýòÔ\ÐýŸáà­Sœo"±Ф+®w°ÐÐÕª¸ ×.¿¦è3ÞV‰´qÑIߜ׺¥T[  º–ù5—ªJa*ÓÝšƒNú±)âZ¬†3[£h¥ºÑ ÛË¥ãZ^íæŸô;¢ØˆµâÁ”([  ºð;-:>w¹y‡Š¼é×Ñê[jp±ƒþK銦W®‹¼ã“.Ã%Ù†Ót t£Aß­I#X/mÁ²ÍépI¶w‰îZ  úAÿG'wS*”çÝC:´s.ɶ„.X  ú~IúDÛkW¶òïíXûwœôÍ9bR%Û]¢w-ÐÝ&iWÖâÑö2˜í:î{_ÖDn: ·@7ta†ÆawA)X-ûtäªUy5¿å+¢7,Ð]ë°»r—ð˜·T‚ma&6éÊ@e tºFñèÆ‚~Hë°»Ky¹`9—9Ù>äîRPéôÅÕÇÝPÐK«µ¿þ§p96AxàduÀ#å‘Òéã‹è膂þwmÝî¥òÜ<´]¼á€î «¤Ó—ìöE-°@7tûjé°ö HkáWÓж±ÖÁ€';Œls`Œ3Õ)4ÎÝHÐ…QÒ!n$Óå’,–<­éýE@Æ™A¾ÕÝHЯhÙd¦S79Î8¶e70ðÆ 9bJuúÏ#©Ÿº‘ k8Ä¡ûc:Z6]‹“˜ó.éǦàgÆPøR tA×Þë–í*o­Ä#½Ž¥gâ’®g@š½ÇDÓ, tã@—µî=Ñ!×cú-;*ëYú\Ò÷ˆâ6‹ÜTŠXjn܉.ŒÒjvrwmá|6*ù—;)Ã’þ…(^ÇXiÞ‘Ž úi‡N˘ÖXÊMzc¸êÛ`Æ:Ì„;Ò±A×¾$½]ö[€¾×ÓÌIÆŽÀß‹ÜŒ#=–úZ º>Þ8U•-€9—æ¤ß'¯§`˜a]Gú tÃ@×ÇçV^.f„å;'K‚5Éüƒ8í˜u¤[ w×2é’n+ÙRÆ@„å´ƒeÕ¢’¾¢ ¤‹Ú‘ú!i”~KYÅù?a)i¶Î¼¿HÌÙléè]u\*·é·–‡¼l +ªuæ*é›s0lï`wpÐÓÊ5ïç%Û3Èл ̯gì$jšmBŽx _$X.t} Ø:¤„Þ«aÉ?ÀØÔž‘˧At†}‡"2,Ðý’´LÏÕä•ò«ˆI65¡›f;6aÐjL4R:臥Õ6=—³=—iƒ¤%Ó‰Û‹b D)ÛT Ï°@7ô4Iú\×õœâ<ÕIËisÜ%ý¢¸Öô¤ÇDÒB tƒ@×ù!]P“l³1iÉN ¾ßA(ZDá ,Ð ýkz>wÕlÎWaÒ¢ßÏ‚ß÷Ìu¨NÁi úq©\çVŽöTÀÐn)ÁwÐù¨(šô8=ÞáA·éÕ|‹ô[¼l &éòœtXçûæoD1¾fl <èÂzíîZlßòÜí »¨M#åëæ'}1Ì$6|ЯéÔ!Ò[•WÛEzTÒÀÒ/b.½QÍMºFÉ! úºßF†Gëše¬ùItxÜ…‰Zƒ¾_¿šôNUµðRTÒ•\¤KNÞfúù‹o£ÌK×ôuE44l ¨ñzob8E$ÆQOS.^tá7ÚOO~UÍ­¼4”t¥ÁÔ¾bTÒMÞFn:aÐã)y´P0ŽRª;Þʈ Y‚ð"‚i ú}}]°í¤·ñ6TÒ…sNÖY¢.šô!Dÿ YÐhè0×ËøDê¼QïïùÍ÷’5]ÿ›ª”F¨¯ÕD ݾ•1Ôs ¯!èiú›ã‚áLj³Xú“t3çÓRtAh‚E5ݾh×è0 ‹éö·õ†·~šøú×[&1è#—׆›O„âzÆ.#ZßÍMúÒz/4Aÿ1ÐGO§ØWfÈßíï­ø”׿ÞNƒîÝ5ö^º–ô±gK*<Ó·™Ú {âÖ…$èq?rë¾!Œâjzø·>ܺ Ÿ”wWÔÜÊs7Á’.‘º€>œÆ¨¯Þé5AxKE=ÿ8|ý ´:Í8Ò󲛸¤o¬`¬¯rU©e3mÏ™‚èžœÝÁ úmÏûïÒž>qt¾O2>n[-í4îgVù ¶çŒªL'sÞ¾+¤›µÜ7õ³½ PîbIKz“„ð táŒî ¥ºü^¹Åù$;.é%I®Ûw¼èûQóvŒt}Ô“Ct!ž. bº‹Z^üzˆëϾ»`´[²ö ï5¢VµSöÿ±wöOUWßwgwÒi©ŽÅ8c ‘H *¹¹‰P.Ô74D,!QF—P̯ƒ/(¢€(Š”—ª@4F…QJ”€ÅZbd¬ÚvœéßÑ»WÛI›NÈôÙçœËî?À®ÞÏsÎùžïž½ÃX ^Ò·7 TßqžtÞû}!fNBÐ?üHÌ^?_„¥·)êéš©³Å¿ÖÜÿ?èÄ-jýwËfl—t•¾çv£3ÏŒ&òf o¸| ¦ÄN>ÐÉo¾™1ãyo-ú«Â^Ð/ ôæÒCel°1éJ}ïE÷”Ë©D~æ Œ„øx‚þã×]g+ýùÚåa#xMrÄZÕEi :ï{io‡ùªò[°°¡:IÓ2~âû«v„y7Ôƒs#S«±}?™Äó–@ÜØgÓÄ—tûAo•²GóVû®0Öˆ™tå}?‚­¥¾$“gBÜØ-öЀn;è nÛÇ>ÿ`ùo3–ŒX|'ÑëR©k%2MngO: p_¯Í— 趃N¾ÐéŽûç×%ž±Ç•˜ƒú8|šÜ¦vžx à¾ÞáQtÛAOñÊÅú·;T†Z’{îˆMGöèêÖfÎÁÛÖç»fBtò@ºp«U3Ï9̤“±tJ»pùääp~ ^ÅqðDؽÓ':°a%ÉaöÃ’ßDi®iÐË·¼ÌöÜñq!:9+‹œ.¥Ÿ± Ô…ºÕí¢©¨î®ª êð®¸,œõb,ªÝNÐë¥nÓÌ‹U(Ô«0“N2ê(­Áe~¿Éy8;ìOÀΚ %ÐIšŒtfÓB½¬5éÑërin5ª > Ðû0L¼d@·tÇB:é{ÌX¿5êG°õR€&¹5P[l!:ÙãL•X1ñŒ £î³YÑÕØ‚za&O*…µ¥76ŠŸÐmݹNÈiöôlVA“ü¾³'ŽÂÚÒŸ…¸o@·ô@•îv¬Ó•5ÎØ Ü黪ÔQÉï[á5Ôç‰es èvƒþOÇcéÿ#}©@Mz°RCtyU5ÔaµÙ¢ÂÅß èvƒN.É‚ç6¿«˜±ìÔ¤G_ u<å,5V›í–˜ý¡ÝnÐÛ¼òƒ»¯œ`l< 5éÁžzËžýâ°fQL}ùÅ«átA'‹¥¯ÇÁí'””1Ï]ÔŽXb­tQÚ‹ç‰åÒ$ž éÞêÇE†è1ní£fþ}Õ2v»wPßÐ@©ë"šá3Kò@‰ïÖ€–÷]š9îè³ÒäŠq_h#äz ¥GÐtÚ65ƒznu¸ø«ÝnÐIš£zœZ#ŒÝ@Ô·w¤ÒT4·W(ñÎÈ÷—àéq!z§WÿP©ÿXþäêÊ>“þÉœ)õ4çûkàô¸|!å€ÓÇØA=ºÛEi–á‘£‰€†F.â/t»AOˆ”nÇ›Ù*¨{†pËïdÃJs;äï…™p$9ë+hþ¸PôøOÞU¥>ÌØSä=ur¦†Ò–{8òw%Éí2v&*\|m@·t²XÊÃÎÅÏXY#n£‰¾¨òw×W•ŠKî·bÚ{t»AO(—dl¹ûä7PšÚ…b$´u“C¹¢¾ú#X÷UCtòW¦A8MLccÉ•ÈQ? ô÷nþ™Ò$žcæû·°^] QÐÉQéà5¶ï¯¬ÛŒ#÷Ä’èîtJkP\jÛÙÎùy…ú 1×€n7èäOÒ7ãD§GÇ=;’ ]©”öbhµ-øH¡þi˜Xd@·ô˜"énƒq$|(äïMHZmÁBBGýuH—[BtÒã•[ dÌYŒyJpëï¹(Õ1\u)Í䉞lŠ½ –­6 Û :9.½šþÃü}õkêªT¿(ÕãÆàwÕw6s¾Öù¹3QÓÄÏ è¶ƒNJGÞhúï+%ÛÃØD-rÔ7täRZÿVÛòµœ_u~Å×"|¿ÝvÐöHßa8'ëëgŒÝA_ª7PJà«r‡ôÙÞxS¬ÿÜ€n7è$%Rz{­jSˆw èöƒNZ}²XªÜw§Œ±qìw]‚|Ü=Ш[ÁôÝYõý²˜ýžÝ~Еë} ´¢8K ðØm±ù]Ôk`·ÕUúžäè8Š©ÓA$ï¡:Ù tR{#PÏØ‘Jé‘ë Q/lç|­“s#ÿ(ĺÐéå)à~€U·Cõ𨫠±íNzß/CPÞ'èŠôÈ6uìµúæ^ õÑ$žxӹѴ–»#IDAT î[À63)@'Ç}²¨“E}|W‚AÝÞ¥¼ï9εÔ_%þ`@׺Õê•îzˆ?Á*U«_9¨–å–Ÿç<Ó9Gì-þÈ€®tB ¤÷0Èß`­Rà‡±»å‚¨×n¶Ìsð-—9oŠ« è:@·zÜÒ·æo0KõÕ‹‘{à7+Y.®…fë6Îóœztu¸ø¥]è„´EJy hŠÜïaÌýauÕlkékŒMrÎ'÷7!¾5 kĤI¹¥ èÐßXÈàûQw۬깔¦¯ƒz³mSŽc¶ØDį èZ@' Ç$PI.øTü9ÜÅz~‡‹RWG>ÐOщDžxÍ‘ ¾b¾˜gе€NÈq/ØB]}ˆv©nÛHc%jÔ7T§Sš»èÛ.Kš9¿êÈK…xÛ€® tÒS$eZ \Jj•.W–ŒÛ/·J]b¥Mg@vÛbo:Ô‰i èš@')géû`J*GðgðÑ÷jT·í H].Ô¨Ô§.s²Ç6Ù@'do }?Ù ’púiõbܼu¦)€z H].ÔÏëêÂÅûtm “žH)#{@cRûÌ£lð§Q‡õÍJ‚wuAœ#©‚z»þžú!~m@×:‰y ¥w1lשÿ®Òà‹³Q‡õ|¥ËÑ&€.øت§®Û(gÍaŸеNÈ€;ÔëcR•\`ý)êj}ÕJU¬Çuƒ$iíÌáXgzSAfðÖ¡@PߦùJÛïÂÅeºFÐA½HJw+xNªî¨j}°¤1ë].•ÁA³ÁoÚÆyÒ!½cž¾b©]'è$æ˜OÊ=ßÇÄ?ô8€zÙ ÌÊÜöî|içÍZí3±¿³£ è:A'¤g‹”ÞƒøÉÊV½uÏ*¼×Ö­3êr[n,µ`7×,ÊÍ.6î3 kãn) Ž"À'¡"Y¥ðØUøüje˜‹»+¬«N[æ¨ÆÏÏ+ÓÄ Ë€®ô@þ¨'þsLM£)éC‹zô˜rÑÀ ëVP”Ëј¿¿îÈTØI:!g¥”å(@é+¹¢X|·-ëéàÂúÖµœ'ž×—¿/á3 èºA'¤~Oõ=õ8@ÉÊV¬O ¡e}Õ½º`X¿F„·ÈÉ«:ó÷ÕëEÄ úýóp¹BGT' UñJš+CÌúó°ÞR §·tÊ5ëºé²"B¬_m@w⯶F"B$TÄY¿‹µ^_5¦l4´n%ËœÊßùZMþ™™áâ-Ë€NC½¼•àb—`Õáó×ÅPwí£ÌæpžtSÏ¥¶Ÿ ñŽÝ¡B­U%ðEGÑøR^äðl0»gÝ:°Ã)…·Fó8Ï;¥åÃó¾˜u߀îÔP²\Á±6‚‡õlå†g#Ï*púæ¶?iR)ü‘n*ü‚kªÕ¦£TŸsA„-4 ;¶êÏú¤ô@ÄJVã¸bÝÓ®eXžÂ§öÞ1Žf“*Õ·ixQýát1ýSºs«í`A ¬ÿƒ½sÿió:ãxÉì+Ò&âF•º‘¤Ýºw+‚˜Ò(u½d FRJ3.Œb Ø+Wƒ±¹$$\æº ÄÍv ,Ñ064-ÒþŽsÞ×rk¿~ß“œGù9—>ù|¿Ï9çEf&ɶéy .ì"C¼´²7×uAœ¸¡ªZšÉùŸókopöÇñ7£½\ΰ‰$XŠuáx97³¨#ñ'¾øM6$AÖ£{+ù_ÍIs;ÐVŽó 4ïø€w(è¼Î”5iÝI,°°ã‹sšÍlÅÎÖõ[ü³P+ÇÖp½€?À?(褠 cLU˜uûi¼Djƒ™Ÿ>­$Žuœá£{'ù<_Êãõ¯ßG¿¢  ÅŽSé8ÃWM‘E ̾%]‹øa«h†8ØS†ðnîtÃ2O_28Fýoü[ º€X_Å^Ok#oÃeXœaÌîX"¨³Ãÿ¦Rúð™[Rso?ˆYÊ ÎYW¿s\z›‚.¬ ûzŽÞÐCëo)³ÇÍf—“ôUâãôôÅ«®‚·åFý&WøG‡ÀÝ taÍš<½‡øU#¯H ÙØ5›*’.П콅 {Ñ/!^Ê >ÑÊÍE¶}ÀÉct¡Md“öœt¹‰<ÖagÇÛxѽÅi%19^ZYñIÍCüèb¨Xû‹ç.¿ãžt úžÅ>†·s’«™DØCj—ØÒŽÔ^KHq†ø¤Ñ>Ä~¥4L,äà{SÿàÝ2 º`»A‘ÊÂn!ö·JtªM&Çk6‚»òRø+-¾ž»ç{æw±bqhû?Mñ-פSÐ÷9¦~öT½|Š´‚ãÕ~OÄy•ŽˆÏM^[`Ä~®>ÞÓwç|k:ði›”0Ò)ènHÁ.Ø óW›ë”»f%<[g <ì·ŠúbK>ÿ¡ “>!kMv«ŒÍòIDú°ÁØCœÞClÚì-ÜE÷gƒ§ËK„÷×LYî­>Çäø†!ŽÕ4ˆÚúåÁ }ÿNW¿à÷eô×÷6ùœÌæ%9jEäD»Ïψ¶Ò<Ô»ÐÞÂ]ë®`K;Tûr ‡ß®8ÕšŠ>PQ³ßìSþz•‚þúL»Ñ°ª(ÜÆûª¼ú^\; rÜÓ8yÏÚ|Û» ~Æ_LT«öèæŠIîNß®´L Ÿ×º¿gëÒ¿ðɇô×Mï#mýcé΃8‰¤0"}ÎÞ4ÕNØ¿B©Ë~²îÒ»hfò.¿K±ÚãÙ òÝ\=|Ë(Å[øûªë_Þ(è¯åøCÞ‡õj—ß¡àõcrÒ€/®í²,nd¹xÏÚ· ”—„ƒviÌr'óÆÕË++ÚOå [š±žðã|@AýÞc4WYó]ý1|£Ù8âOï›[¼ÇÏ/锂¼_ZT󆡃$ïûÝ™_Ü;ëÿ¼ ÀÏ®RÐßÁ¯*dÛ€—¤ÊôÃróÔš?A¼ÃNsãM:)ZÍÝdX¿±7Ö?>Ÿ‘RÐß´H?Õ$Þ©xIND¾JÞ8BÆrG‚žíˆôÙ]¼vøóiQ½õÌœWR]ÑP·;å~a=¶4w/{øÉ¿JAs‰‡¡~§ãä톶©‚}É3Àk«–tµ|ï³\ÑÌܤÃrªtÛžîJ Îða­»?_ÿóG½CAçÝÔfnÓËRw /IUç[‡a²>óÅJÝ’*|cëLŽg⻇\QÞ+p´b9Í=·é®Ôà«4¡ -»þ&ͽÏCA§ƒ%·CËçì@y^?×Øo6šÚ…| ÇßVÞ•ìÏÚAü†¦zÏ÷x$÷Ñ@–ös îÁ=³µ½|w ÞØ]ˆÿú,?8@A§ó3k0ØCÍ?Ã<}•š~M°Þ_©°ÀP¿xQÜ=$ù®rOݶÃë¯k•QÍÑ.ÜGÝæOÝ(½Ì„ø»ù2|Ùmpø/et:/fyÞš®~*ÛK$…0Þ+êGézìx•csÛÉœyOZ>±²¯×…;ìî½C“)ûÙÌKƒâÂ.žØØþ —PÐé|ÿDŽLµì«V½ìÓ#×ËÒÃ0áCì×ëK°ä+Û‹< ö+³O,ÓºrO0Ÿˆìî ó^IÕ +÷~Ë&³õb,{^KÐ+ž]ø›8tûήlÙc26 êŸK½$Ú^oe¸7 €{)KCHI­v"¿±Óò¢8XæŸXP´çvw-m¹¢¡:É¥÷ú¢øå´½ÅyiÆÄP|ìvñSü‰d’JA§³× i‡®7Ë«ÆéÏŦ|äû¹*;ßhêD½/Vj»–T‹óã;5/͌χgs)z¿”É¡^×AËû^üî›[ÚS|Gé«œ»»}€OÿDA§ãìa¯‡¶_{÷(è#ã±ä¯µóêü˜ìa™_œ]™Ùéy‘CÓ}‰ûÿŠçÓâ‹ê]íÝët]CET÷nú; *×Ä:aÿ^³¸ €÷çet:n Ë.Œ"×PÊ—7˜Ÿ¯~øØùùzBßÐdœ2­Eò³Þ+V–ëP¶_ß¹´g¶x³‹ªl·Sí)Þ“›{ãv#xiP sî&î¸øàå§ìÒ½óû;t:œý~;Lú/!ßÅþÜp•Ü`fà÷¨ø¡èË»ô0Ýkž¡þþÊ,týR—¶ÖVâ&ÞažLÚ|õhïÐBÚ+Ô’ÇÀ[Ð’ñ’·©¿<óû¾¡ Óñ8ù=#SÆ&s#F_ñÌAÞö{jY:4ÿj•ªÆþ‘¸¿ØV«ÈV=yžêE¢,({„ýÀþmï—ÒUÑ°MðxXá_!ÒKƒjØ–ð]î Kû“ø|ôï5Yæ}¤}+lúê—ÂÜ埮€¥¿Qnø?{çE}ð#'>¥ÀÜA’šKrÉM JLбPË  ¦–X¥¤Š´¢DSÁ2˜ §hùa©¶âX¬¢J*XZ Tè V‹¡XtlMkuŠ BÇéwwïB~l.2Í;ø|†™Í¼xywŸ÷}o÷’8þ›½ÿøÞò ‡ÛZ¿â•¥ÃFlmÓ¸ŽÚûãº76ïHzßÅ;z·Ý¸ò‘ûµþâe‹gßµrãQŽøð·^áÞ 3sü½×{?hßY&’Ùk¢ƒ>Îqåÿ‰Ùö[ìŸqš/É0zíšëíù¹½ï_Û¾áíñfÎ7â§:è»Â/^vqÖK¼k|§OÐo¸éwWºsüùÞ±õ+ùò¦\‘ÈË»Òdì8©ÿúk¶¾óXüwžó›`ï¿4KÀz{ ¸¡=|î&pž}ÚÏyáÆñöqïí½Ùï͉?bØø_X1Ë6ÿ˜þË˯}ôÍI?sÏW{´6~ñ}üúÕ»Ç^î¹´ß›<Ú¿våSlÏ5ª7Ö#:¤÷ñÿ´Ûžºàu{¸åØ:€3Ø7nqºÀ³ f7…÷ß?oÞС Ü.pÝ A£RhÉV`ƒ[’½ÀìN30cÁïí¹àáÖƒ1ßÌúö™ÿöˆÍ{|Ô?e¦Ùõò¿òäœYGì?ûÚ»7®¼kö3÷\ÒÚø/[ôÀl3Ù?ú]Ûycû­‰I¾ç7®¼ãÞë¿Ýš7x¸ˆT7å!:@bxØY}à§f#Øf7{H±$„–v0z­ÝÌpðļyfÖxÿý?üpéÒaÃvlpÜŸyŠý›ÖíÙn6~Gÿ+8p×ãÏ,^ö­6Î÷¸ÄœóOZùêî¯xðü„îWßüÔÖë¿T~ÍH£zô幈p¬ÀLN+°3¬±‡‚;í© KÍ Õ€0jútçߨQÿrøàƒwlþdæLóïHC÷½Mϯ۳§¹¹yÿþýÿ±ù·Áµÿ’//ZtèÐÁƒŸ}öO÷t¿âãhŽHŸÊ(±¸ÊâÈ5%¢{¤7_¤—óÅU"õúŠ7MªËÝÛ/A¢ÇÒxtnÊÄý…:¿˜¢ô ÅY’›¡²xßwŸ¼¨Ý#½°•ø Ly¦ê{is.i6 Kæ*]‘)S ƒkë'^1E黣RS¥³xEr„¸ÂâÕH“k|¦œ¥.»òÉH¦Bщ‘2[Ÿ ¾1Eé2b²ªNiñ²3,‘Ì̳¯T~ã\«$§D_v!qû ±d·Bщѕo%ñ¡ÃJߘ¢ôúeÉ” j‹ç¢bt÷JogâõËÝþ^õÊ®(ñѳ& Q(º"1R§HVçò&»ŸÓß7ñÌ1uéõ’èU%.a…ÅÓ#ºWzáUR=×ùÀ_(Ì®0GúšÞ;$T‰®OŒ”™Z+‘ꘄœå((—vˆiK¯_äÈœ¯°xŠD÷J¯¾F¬`­(0É+»&KBÕQ‘Ò°.Ñõ‰‘:uYV4»¸õ÷Ó&¦-½¢GtÏâéÝ3½ ï–E¢/)Í.~n®ësžÅ6 U ø_»vÌÒFÇqü¡ýamäNO«x— ‡¤‚A ”¸:dK‘ "ft*t â«èânÁÕÍ¡`·’A2Y:ôuôž;cR(t:Ê÷3ä9ÿ’åož\à¯ÞjM¡ t„àßì뺕ÜúùñìZëéEEsñã Ê{áÑÍÇQè£Úªb—ÆlÇ+­ß³•@–C\?whf÷qÖ•÷Á®WÏŒy/åbü°65ôûP¾ÓQò’ «¡«Ö5f£¤Åñ°®¡]Žå³¤ÐžÖ«®¾O ½áªÙÿ]Ò6Èpèçv=Sgr˜³K¤¶1Íàk2kÚ¬ÿ ½©ªIŸÄfÙ ý2Y·}•‡k^pgÌ‚ØûòíÂÃûÞ´Ðó:Nþhê²›@fC‘^ìhÐ*'Zö,ß7f˜žë¦p±8-K+SB_vê OKì&ÙÐ?îËÏ6•¸0æ¥=ç«:‹çóíb< œúÔÐO5ÆM:ÝÐoÒ‹#}‡¾]Òé]ö“·ìAe¸Ñ³~ú\úkM¼ãÙÐÓÓúžãYío%=÷\m%“«ÇÐÛŠ’ÉŒ½G/ŽòÕû d6t¯‘®ÎäxSÕœì×je¿K7f!oóNBª–LŠ6ôŠœä øü5vÈlèrâÒá“ÏÒjžWÜMOôf¼žædþ$ôCéKÏtOzÙWe!~a(éŠÍ²z-ôœZÜîïók=ܼ¿“–«>kgt{^‘ܼÂô—qǾƒøù'6ÈnèÑyÕ-UoŸÌ»Òóôjé¤èå£Õ–ý¢= ½÷ÊñK+åÛô·îåÙŽ´éÈtèl@è¡ tÀèëÆÉÞ·ã¾IEND®B`‚metafor/man/figures/ex_funnel_plot.png0000644000176200001440000014471615172365254017704 0ustar liggesusers‰PNG  IHDRÜ}*¤ pHYsÂÂnÐu> PLTEÿÿÿdddööö***ÐÐÐéééÜÜÜñññÜÜÜÕÕÕûûû||| ‰‰‰333ÂÂÂ999©©©RRRççç&&&ðððƒƒƒ°°°WWWHHHŽŽŽ >>>---ÊÊÊwwwZZZµµµ"""›››¡¡¡iiiõõõooo___ááá•••¼¼¼MMMDDDäääzzz¿¿¿ÌÌÌÿÿÿfffÏÏÏÓÓÓååårrrmmmggg{{{hhhøøø~~~wwwþþþˆˆˆÅÅŪªªppp½½½ooojjj¾¾¾vvvºººDDDUUUtttûûû}}}­­­[[[“““ÊÊʼ¼¼———ËËËyyy   222qqqzzz†††¶¶¶¸¸¸¦¦¦ÈÈȃƒƒššš›››‘‘‘¤¤¤°°°ÃÃÃŽŽŽëëëîî¨óóóúúú±±±333ààà;;;÷÷÷‹‹‹ ýýýÂÂÂ@@@´´´(((²²²¢¢¢™™™–––©©©”””èèèKKK...###ÜÜÜâââÙÙÙõõõïïï777€€€cccFFFÖÖÖÞÞÞ¬¬¬NNN```äää***QQQñññÄÄÄYYYÒÒÒÑÑÑÎÎÎÍÍÍ%%%ÚÛO7tRNS³Û÷¶ï¾þ¹½¸»½´ÓùòÐëôÁéÇá¸ðü¶ÒÆßäÎøûõçí¿ÕÞÄòËÉÙµØܺÍÃâå¹òíûÈ– IDATxÚìÝýswÀñ€cœ±T[ÆvìÐ:â´öQéè´IúÝòˆ(• © M;ЄŠ5@ÃÑðÜG t¬þîå.É]²·{†jo_¯ŸòÍÌçvʽ{{ûÐÔð?óê«öùõ(:Ø 3„!B„PB!@…!B„PB!@…!B„Pþì¾ñ& rw‡4€/ ´]À;¡{ p%¬B€†á¦6 […B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!B!ü&}ÑóO<±ô×Ï ! „ä1„/.E+„BòÂ'{BXú슧ã.B@É[±8à’xã…æ~%„€ÖmÕÞ+CCW¯¬öóΓá­:–?psæI,mÖ† áÃ!OÚëÈšµ;ì¬Ü“ßÒ>²éí—CXž´fÉÏÂ<=ÕÿC\¹E÷ì…o·‘û áDíÓÛÛB©üé{}…ïèÊ“¾¼ä£#w› ï´ûnœ=>ïæøhßÞÛ7G2©„¯—> †peý鮶ŒyÒ^GÖ¬Ýáhå_4@_ ቋB¨¦7ŠÎÚ ya•CÓÛŸ†0–ôkeá©aùž5ãÅŽ½Ð–ôM^,ü}ÇíxEWÕ‚çïöUõ'…0a°¬Y%„+*.®õ÷¾E-¾Y€ÖÖ‰ƒ'ì…<G¸&Ìæà“.e„'kùWîL…ltýÊÄ âŽvvÅ›?8ÙS¬àÛ>JKRËšµQ¾#|©òd™ !Ôç`{»ÇrÂ(„Ýå'œd„'uùg7¦Žjž¿½­ÚMgâúõ•67…p·âg“S_*Nî>‘õ8)„ ƒe½´F ᲞJº¦P¡&-G£è¨ yáºÊZŒg„'uyßÔ7OÿpªzÃâ^›¾Ä0®^ç¼öŒô½¾& –õÒ%„Ï•Ý`´ž ê…¦|µ·GÛ9áÎÞ­ãÐhêòBÏŸíJkØ`YüFC¨8'ôOwKw½týïŸ×„Á²^Z£„ð{ûfO)?qF¡§7lv튶n8m_ä6„çfUÎ(¹“žÔåýSß²'-„£3ÛWB¸YùÓŽÍ«ï”ÎhéûW]!L,ë¥5ÌM·yøRá*‰‡„êp4ŠÖwv®¢£öEnCøAk²®‡( OúòO WEÄÆÎݪ«3Ûc³‡IËœØ=9”ñÁ0)„ ƒe½´† áì×–Õñ¡Bls{´ç“øÍkOÔ¾ÙÞÈk7–Ý…³7„uáÉ\~pëå©Šüë±äΞ³2ÂñÄ1;vì›þ`¸ªÆ& –5kã<˜7þøláù/6Ï« !9w$:p.Šß@nkÛ;±Or¶#¥ëØÚáB˜°<͉ksC8P¼'wxgî]µ'C‚•5‡0i°ÔY…PÉ·={£­QTú?òQü‡½{ì•œ†°íÂÚ+ç›Gÿùû„¸$}'7oyâÞº°újóå7{çÝæ~C˜4XÚ¬B(„äÛŽh]´næ‘©ŸÆˆvØ+y á7h°ê™¦ß ¡ !äHË@ÅÙ[ü“B!BÈS[Z^+^jU|PÍk-®%l V{Æä…P…fB¸s¢cöÓCÇÄN!l V'„B(„;xàPËÛíѪÙ®ŠÚßn9tÀÃê!„mGÞ­êð5!B!„ÖÖþh{ïþhoá©Ão¼ñ_öÎý©‰%‹ã¿ñ/ueÎQ3“˜áeBr  y\ ¼$à%ZŠ¸áÈä¥pAY¸Š·ÜÝ¿qg’ yÍ ·J ýýü45§Cu5¡?ôÌ9ÝfUû ÇycsDø+B„ü B•ß0ó|i2ÈfË‹ãÆV±$„å"„¼<Œ³zV·ÕÆò™Êã'!”P@„!D€b½qVÐ9„|ˆ"„D„óñæi!>B„!D€ŠR™ ¦§+W j !Bˆ"@¦ †ïcßÊsA¯¦Y{‹ ÂF"„!Bn2 „ˆZ9£5ÛqÍsTˆÖ°÷6DB„ÜdÒ<Ó“j•˜ª+ÂW¬Ó=3œÆA„!DÀ f4<_à°6S™ ž^Ô6£…¹0ÅA„!DÀ f£_œpðÈæx‚»GA>ý#éDxgp?—;8ö[«96wá‡ÛË­¯&íKu‡»5‡!B )BCösHˆu$ŽÞfº >²ù½olYZK¶ûˆeégŠÐ­¯%:jO¯woB„@ZŠDH±ŸC”PBÀ„-/Âëž>!†ˆÖGõ%Cƒ>bD{뎰ÝúZ¢@µ"toB„@F¦WD]¡Áåe­ ÍRB±‚G[]„!FmDøzhÌÜo¯¿è±wìDÅŸõVÏ­¯¥ç¢é‘Zz4‡!B !Cá¼!ºH¬:‘-ƒÕ=G‹±ˆ·±åh«‹0¢Ø´a‘ècùê Ñ;ïØ߶ râù°øÌ×þŸc¿}5ØyWz úÐgsˆ"ò–Õ„¸§èÜW;iVófúXWÊo1Vòˆp‘hŪ¥Y£‘ÏØ:µ½ð©±å9šýn fß^ìÒm¿} Ílm­ÖˆÐµ9D)Q¸(òjT­TÓ7Špž`^YÁXI#¢=«”4ÀT¯-»ØÑýéÏcŸwÍõÙlƒZÙ±õ\n?âšhÓþïô’ù˜³N„n} †Ö‹ŸBUº7‡!B %S"Ãj·ºS“a˜©y²d„8#:°Ïš<"LýV£öŠuuV”Sõ¡ë» Å?K)s>4Šð¶U±÷ÕéÃÇ]»V›û >ûjÞÙï Ԉн9D)13aº9®ô:M@½Jœ»‘8*•‹DZ庇hÕ+fÞû\’ÔÈÅ¥Ã÷èÅü—¶R‹…çMb·×h;>œ^7$igÂö[ÖRh__éõÝ×@`"m¾O¬¡{sˆ"ÒŠp3qûG>Û„¥¡!Ž«m†>­{ÅNkª?ïØ}‡«Ûeýa^4Ÿ_š÷ï^-z—‚[_fÿ \§¯5múlB„@N EQÜD¨”+(ð÷!U¢?*×ï‰v½b¿–º¿rü|Ú4âêrãû«£¼\\ÓoÛ~Á n—Ÿvö—su±¹¥!K°ÉÛ|·¾ÚˆÐ«9DÙ˜:™ð/‰¼&”D„L”ªMFñˆ½h»º7G&;šûXzª¹uÑã°ï‹)´uÙEô¥.v^z©xžzåôít뫽šC„!ŒÎ?+‰0«{`•JÕbÅ¢%>ãX'ÆL †ëm±íÛ霬ܺ ZªûYiÓdCïž½vþOËáa¥Äа^{“‡VÓ·œ>ìÖWz5‡!B )Ö{„èê‹h|§~Ò¬Ýûk‘¾.!ztNa̤a’hÜéù¡[Ì|hhë¨Q„[…^·G‹5ò[kØ«ôåkgÐÝÓÙîÝæÑŸFz5‡!B EmJˆ9VuŽœEˆ°®òœSZc&…7«Ï*ÍŒ’Ï~cæ[¾¡êò®ÄlIcÛÑÇn"\»ºÞ'úÔpʽ`ù£¹0ü¸N_mDèÕ"„d<6÷ÓÞäàX².g}¹»».ßákr,ÈfâhÛ¬É!Â'DªS[Ìd¨ÞVïͪƒõÍ3G\]¯7xÔ:!:užsXzõ§A„^Í!BˆH†ùæo@㦃'²Ù¦#(X@â¨4"ì¬Ù…s˜(ìë­¾l#zßøó¦c{%‹-ýsÁ^„Õœ•m¢ç¶¶¼›]¯, ïø쫽šC„!P„"“tÏ-ç&3¨ G„—#Õ,è‰G¬c»ºÊúD´g“z·ÿ¼T1tÞõÚ.YfÇ#Ý¥ÌYñ]®q‹5·¾ÚˆÐ«9D™ø:7ৈ°¾”p`î+Fîæ‹0°Jôèjgj:óˆ+«ƒŠü¢û¬eËeñ§=ËM"®>¹0ùæ)ÆNæ­:vR—›äÒËžWöÜþ’õ±ˆ{uØ(¹òžÜô{ã®ÚçdÃmÿ}m¡Msˆ"rRzå×3ÊqEmœ›W„aU‰óh2G¥a`'´¿Õ¶ö÷ÓÚºˆ‚S,èypË\$¾çÔyC„g;Áƒ¶½ß†›v ñ#B×¾6‹Ð®û!D¤ažÃ›œÑ§6S„ s"”G„?E‡dÏŸDix$Êèc~Š'Êcºõ¡G?ˆ"„hmº´ré„YDè[„V…x¢ua!Bˆ" ¥×ƒINUDZð7A,TJ EŠ“X¶ ãº=Qˆ"„|¼åhÂò`Ÿlž ./›ïµ>Ë„‰(¿Å¶ž!BˆHGB6Ö?¦+qÞl.z›óÊ79®ècýæç†õÆ°ÅD˜w$sB„!Žò3Î**ç›·slª#4÷á`U òŒ@âhkŠðW"„øIœsHÑ‹—þDxYÔ•‡'`Bˆð&B„@*n„U‡œÑLÆ!oT o@„!DÐÚtŽOYõ€}¿µFú¬Nwb$!Bˆ" %)V^ô]£ˆ°±”PÌp# B„!­ÈJ˜§®<ا·ûŸ"Úõ¾+Nqxc B„!-È[7æ;?þæŠøÆæ;Å„õX•'0–!DЊ¼LX¥Å•>æ»É •²»»ÃܧĭÍÙ/1’!DÐ’ˆêL:ÏØͶå3¬WcÂ_ DB„´°E‡%Røp~(D%Ì]&„!Bˆ€eÒ*ˆùXÒ1gt¹»{Ù1o4Ë[?bbãyƒExgp?—;8¾F¬}©îüÛÇõúºVsÄïDÙÈkc¢¦v©x"›u) ¨TPˆ1-mfº >²ùUolYªH¶ûŽuÐÏáõúš%ˆ"2³Éâ;‹›J EobD[E„×=}B ­êK†+ýÆ ôsDx;í­W8†!B ‚Ãù&w®;åì$kL˜ÿ½sKéâøoþKyÈ™º)ÞEhE­"¢èb½«®«EQꅊ׶ÚzYÝÖm÷ò7¾I¸…„D컾ߟòx†ô<Óa>ÌÌ9sð•©'ÎokkB„ë[DãÒþø`Ѩ)[{4ü߀Ъ¯oˆ28#¡†Õè‹P.‡pNä™—¬Î9æ?8—Ë% ½EŸÖG8m½Óa†è*û´OtdÆvx$o5šáRˆ«†|íÿ\Tãë·2\„!ÔPKÂœ¢ÐZØ”Îd‹é¦¤œz/‹rµ7W‰6³Oþ- Ç+ÚΧ÷ˆö’f@¸12” ™Spñà«ñ5EM+!@5<§¤LnAˆkÏ~Aðk[â‚à–Š1M„¶aœè$?•bKÓƒ«×­•Ax<–Ž3*\9ÇS‰Ä©;n¸ü;º&í¿–€Ðª¯çaú„ô €—™GÚíÔ™ ôòEuJ[£¶ Ú„>¢gùg‘q¬¢-Dé ¿£ã™Oòþib裄͹œ†“?õ>|Ñuwœkó<^…¯DÝŽMþ²åÅ @B¦áÝ|Õ n²{Ü(fTE˜ïÎg#rÓ»ÃèYû0C$äŸûˆ’m“QéØ΄+ó_›$Œ…¯v–Ê6bÓ[”ö†¢)’Z$l’[ ¶mú«òUúÛùUá»{€ „K;¬›3“D(jaÁ8¢AÁu³ô¬ý@(­pùÞG¢”I›G[ÒYŽ½ÒU^•6V¥¿?½[øu—‚{_gþpTëë¥"‹ðË!@B¤Ñ{YÂAÃ,Âû'¾¿–ôAX áKAä¨ý@ØBô*ÿüèؤM„td—`[mÍšcJa:»ÛéçJlskc9hõ÷iƸXõõgñ]Ï7/–b“!@5[Ûz” ô¬úz®¤M¬¦£M­Õ¢W ž¶V€Ð~ dDeÀ‰I›&Ïç®ä]ͽ»>½â—"ý¢¹Ç.¢¯%¶[ùPñ6ð›Þ`µèëJSáos¤¦.@B6WaâëšpóüôbÈÏ¿¶ŽîÖËNz6Àóî‰.ñ2ö¡« i“6MF¥4vôz]ÿ‡—Â÷ùC‘zíe KFŸè}ت¯‡…¬¡;¢5€ „„}NÖÆóý,ª3šT¢<+£e”õó|sö„öa?Ñ„Þv£M„{;~£øUü¶T÷þú5wYèñåïZ~ ¯òÁ¥ˆØs€ „pAøš ⊰—ùtf¥åÄä,‹¬g½âŠP`¯±$´/w‹{•RÉ“6MÎÈã(Ý;j­Âó)ѵê—Y3{Ä(- ÿr<’¯ò‰äXq) „í5?W˜÷,Âó|+§³3z.ᘺbá ×*~<Â…ÎÍ£m—D-z) 6í`™RV„¨Ôî.Ï Ï©r6‰ú-p›ÐY>ÐWY'D„!Ô Út±Âe0#^·QÌh„JÕ¦7êö¦Õ)æÚDÛ „ŠK;CD.“6Ýô‰˜çDLkïâÚ ,†¸¤‰´Ã•Ÿú"©üÂð§j|õO+›ˆ>„!Ô š`œÉ$” „§•R ¹6¶ïÃÅ è¥I›AáÓÁ[9 bì¶k]+XæP'Ü¥T7™£„úŠ5‹¾v¤‹‹Äk¢“v€ „D^¡‹3—DØÞ¤a¢R*!×%xÑÃö¡#I4\¸¬šnLÚŒ¯X‹Ï®fÓâ/û6Ê@*nf^^Vútª÷ßÒK·­ù*. Ïòð㉞#j „E¾×¥ ÂñÞ ½yFÅA —Åû]ôŽ—. _ûÐÃ6a °§8Sv´¦o«xéöu[öŽ˜cN ÂTövÛ¥3¢©Š(Þß?Ü×Eñ—ÞNî5{…Ú!@Ù_ÅY/ãॠLzn;Ò*—_¼-Õbâ<£vẤˆôh;A”£Vhf潞Í$Ž ßPB£úÑ­·x²¬¢ ‰Â¼Ö|%&¥‡'[ B€ „ìÏA¹“”M¿¨7­©@x[^NΩWc íBGϘ¸Jó~¾G@o1²dGÏf„rYÞd9Ç(튲ñ‡—ê ™àš†nªðuIÂn’ÿ|&Z½B¨14¼À)r'¤LAöFwšZVp§¼É”‹13(¸¡°ó¹@蘟ÐÕì{€ !ûjpz»HªÖ-mhº<&ƒX¥½Ó KzS7ë(¾}{zý]» ¬e„!ý8źY±!ò´Êg„‡æ¿ ø+49”Ï[=¡âÛçXw =Ö¹B€²›–™SÏb*fT>OzZ±‘:n”ëq²eô8@„TS !ÎZ¡É¡F*!èq€ !¨¦4:É=„Ž…Ç@ÈMŽ¢ÇB€ „ š’SƒrA>2ëŒùÂ?‘_7>È!p BªNy˜”;1À„¥Ç˜/–äZL¼›y¦B€ !¨&;P^ªµ/`âû *0YÒ9§ž÷°}Å?2r€ÀQ€ !¨VôŠ½S0Ê—S¿6}Q÷÷•Ût2g¬î’k+_¡ßB€ „ì¬íw3=uâk (Ïï"ÒÎ(ïŽWž 6œÎÊ­âÙ÷E”—Ë BF @„]5üù_©$Cxõ]]¸»Ìv5BFMÄŒšË#ÔŒåvÙ2Š=@øSð4‘8»Œ™´5ÿá²è«¤ö5í"Â!@ÉwZ(ÓwÛYþ.d–;a„š™Œ”šál·®œÃÿ¹o÷rƒ½¿ÝŒÍ¨ù—E_eu@BÖw·…Û׆kßaUÕ9 tÌÎ:BDŽÖ(­VŸàƈR‘¶5q°MØŒšÿpYôUÖ„!d]k¤«3fäHÞëº~¼ùçÚå•_ÚŸë„>¼ ®‹?ûÆ¥ƒâÁ&¢ÑŠ6£æ?\}•÷E£a€ „¬+SÂAjš¬+v1Ï&;l>Þ´™MÈàÖÖõ2[–5@(÷«ìÓ>ÑQE›Qs­$ÔWÍÀkÿç¢ _EÉ_b€ „,êY)©¥¶Ý}ëQ¦÷q¬W®;Á\÷Â{—œSÏ÷*‹1qܾç-†K½ƒp•(÷“É¿Eáx%›Qó²˜ä‘¡ÍQˆ- qú0`ê„"!ÿ,þLþ½3íJ#iÃð7þÓ]e†-`Ü@â’Å #¢ ¨Ic—0$¨¨‰úºÄLLrfÎüÆ·¡èêšE–¹¯/!]ÝvSM]T×óT•(3;]auéΖÏýÚ_ѼˆM'Iº?Ù$©gÂÎi(Hȱok¨šºrÜL$7ÅB„À2±IF„»Í]_ý܉û!ÂeZ^„‚%æäÏ_„‡½D™Ùécδè±WœÞŒ$y—;þð›pÆáP0uÿ‹«²®EE!D,òá@+yÐR!Ç%zzœ%Úa¶¡“WòçÏ„•(3;=Ç_įOÒ÷@÷)D˜ßv Ue‹kâ7îû``Uïb‹u…!BP9SŒç[G„AŸ¸u Û5_ndÞr™'λÜâ&‡¾ DØF"¤„Œœ”(3;;[¼Ê¿NI} ÍP ö‹H» ¹S•Ýæ'oGß=ƒë B„ r~¦U¼hæ׸™¨ÊJóR¾ŸƒN×:—yZÜ‚‚÷ÓyÕ-£lÇÔÊ"ô¨’.Qfv:É}_&ÿX7~ŒžÊ)†‚õ:5"œØŽt]l±®!Dªàcñ,a¶™Så⪑ìvŸ¸Sm³éÕ9õƒÔ§º¥—ÆñÄ´° ™6zݨSfvz^„©ý!³Çè]‘ü’„¨R(ÞÞI‹…]~=×»Øb]!BˆTCĦx0½ßÄõìrÒÊJaO~Ã$¾/|Vkž…ó‰ú¼×VÝ2D]xbZW„ ï*sA&ßK”™ÎÅůLߘ™“ÊçcB˜eö:¤za`ø7We]!BˆTEôøuœ<œmæji@e¥€µ˜QXù›éÈ›¹e?E E ‹pž§QJ‚N™ÙéÂP,—‘ ´þpc(Âåóná5iïGo7 †ë B„ Zz×n›}±'³ÕäNäB÷\®!Ë&Tßsö ž–aWÑÂœ!B<%ÊÌNYù³â®-_ë‹°Æ’&dE?©'8µ+ ¯¼®!DþØíUŠ°ü bâ¶{]/XæÀ(ÖFÅMæp“]bÍb]!Bˆü=8#‰Êë­ÏˆÐë•n0¶¹mBž+‹U“›Ref§X[çR—„F„¡ÂËÌKó_i³}ÿªݶXWˆ"mOïOµŽ–šaV¾¦t8o¨aê?«_×qæWnC™õ¾3Ô‡vi rKÓ†,œB„!DÚ÷Ty3ù§Oš½sÎԳVYã}2N¹Ñ.Í!Âf"„¨@-r'*Â0ƒ"@»@„­D‚–Æn¯•GGk%BŽB„!D@xТ­æ‰&„!Bˆ€Æ°e´—“ê-Â9•p<²ÃÖ#ºƒÖ!Bˆ€zÓ夬6è””çN½Öú‚DOOÂÚ^i/&~Šn°>¦N¬½ B„!õ&C}L¨Ìˆ¼ï ‹Áò²Å 2rNý8õ0á2>šAû@„!D@ SöÕèŽËécõî=brN½×ïbG¦QFû@„!D@ îk‚TÂÃrvßâj½{ÕE9cq8¬©È~íB„!uÆ^»˜Ñ*3 uâFñÅ‚!Bˆ€Z±ؾzš‰Yao:cU˜"„!Bˆ€zóoŠ;tEŠÅj; r¹†j;$Œa ˆ"„¨žÀ;¢ðëyáø†g‰5ÏbŸF„7rÜ(?H5ñ2{.× Ú¯-D8B„4>¢"¤ i„5Ï[y&ÞMýë–;ƒ—/-_²î—sê‡)}ËÖ'B1$l9þ6¼–´¥N®¦ ¿¤†¦=e\x!m&!ü{ B„Ô®”Z„rAtX³¬Ùž¿GŸ}¼Ÿä£2íñk¨;ÃQ4`k‰ðæVyÒ&úÎÅcŸÉSˆ" q¼R{LöJv³P™á¯÷Ó|6 —Á—«™D¸ü¹Ô$ðÍQîËž$óáY+ùƒAB„4’oŒÉB9"äï¯ á!–a×Ó¬ðô87‹}zAHjã³ð)ÑA' ¹«D„ÝÏžC„!5ä–áp9¬H„?~T'B˜°yE¸òK~~²&cÆB6;äÿ¼N«@„–¨1w¬çrG÷´ûÙ{Õy0áp$ª3á^À®ÝjmØxþ(=^0lJ7!´ð¿Ç„ôC„!ÇÉŠðppl†4Ι¦ÊÊŸŽ×ô•ä ¼v(«›ÒiM¥BtYõ¡êçÔäˆQ[öR´w×Qƃ©Ü:k‹Ôd•3âTDè ÑûaTÞ‹I¡s„­UÐIшá¬úúnä¡iB. oÎÿþ¼^R„Ëkbñæ¾F„›|¿/Òo¦5¹»7!D@ù|WwbOsÇât^»ÛõðJ6ýóJ:ƒ……J®z®äÔóªÝ cžÆцáókjÆ -ßOrɼM8íö²ÖÝý®W„ÇÓvÇ;OÈd–aî]Æ…/BÉ^ËÕH_ÎyAþ» B„”Íüdq–ÍgOŒíi£Rvœò€ÐKï¯ yè¤^yHèÔÎ\Ú÷ðj´Ñ"\±1"ô˜LÛáǪõù”9B $s–[íÉýÝb~"$µ“ûÿ•Æ 1BŽóן n܇!Bʧ§¨³‰Ã+»y̨ïú>ûkŸyÜ(¾`á5;ÏüØ°1ÃâÏ®ìáFG9"<ß$…iÈ"&N™•NÞ&$÷®~Q% Õ B„X o¦e¦ÚXÊe'KÏ0n)³ÞjeJì‚ú×5!>{á`³?mœØ»úâÄ…;×!"ðÍJÞáîã¶Ôk B¹ío.(Åã%Gn×2õª.·îÛæW·‹a$Ó°'Ñ[t¶ZÍR+ý{“«¢<8áG!”ê«ká¿…˜qÞõ47ZyyXB„ˆÀ7Nõ(9-ZWÑŸ>'ƒ5¿÷«þ¬k8ªå( ŸK¶&&oFÜÆq@ˆ—öMgÊí"<¢ÚÝkçD„†mçÒÆeÒB Õ96£ò²°"B€ =h¯~=÷R„¾¯Ñï$(ø!»XF"Ùýjgçî%2e?=°=%,‹¯‰Ÿ¬Šðw!þ[¯C­ˆp³’¨lá²{Õ;í+âMåUúûýªâ-"D„]òàù‡'š˜0”"Œ<ÊükçàC®Õ¯I_„¸ö°öëÍ;•¼Ÿ"Äíª¾æj/<))ëõt™nÌþT^3žþW,=âÃÉáÙÓs?;yúˆ!@ûäÒSJÈB„ž¢„ÊT:Çè]¨½ðŸJfâùLoùËw[÷Åéúð«/¿µª\b½R’üx¨Z™b¿ò”°oµy‹µ|ùÏ·*7Z˲^+3Q>üd³™lùŒO!"ðÅkYt°ÌÌœ„ƒ¡57ãð‹ò5£zFnœÜ@½¶³nË®Uª<Ÿ •¿¨üë ùÇñæË©û~®¤ä_g„8lÚt»’$<\’å¥áIê¾ï‡ŠfçF+Í"ˆøa^šÛZ't™ªùôÇ~ç‚1ÃðÝ&îqmÇo5%õ„ÖজgüB/ÂH¯-r¸÷°~ÇTˆƒJ`ôôAãÞÆRµ×ÒØiÎì-£I„cZ5´±~úàñø‡ZÁÎ 9BDàD|×iAXoÀd™ò†ß¹ÀŽ°¼’¦UoÆä´$Ü'¿ð‹°<”ÿüør}vÿ÷/ok¿RÝL^[öíA£uðfý@}©‰0™¼½woïˆq¦1ïÑèýý{ûïÕÞÚÉ7¿üµ~oïùÜ;v–A„~q|þ¶[ñe¤þä"V„OôZ¦^Õä.å2—W„WDˆár{PI¦ê ˜dÁÿd°²âÿØB}‹75•¤p"BDpŽ"´ÕŒZG7/f"¹yd}/@Á"D„ˆ #¦,„3Dè5J¸ð€fõˆ"BÿlÉÌåaFn1Šˆ"B¿,¦ö³V”9Ó ÈƒÇÇ™Ð2çœÞé¶LÓ¡"BDà—¤¡9äó”MCŽ×¶Õïv0”4­“ŽwõÚ†£ãÒpè¡$4#É8"BDˆü2ðÊi™•­w~PÓ²“œr'9Â232­Ö;`dÞë«F"BDàçoÛFÊ–¦¿~q"¼nËÔ§Œm G!"D„çáÁ†RsôI'“A>ßÉÑOFÍï–Ë`BDˆ!€OVú¿ïAuüñEÎ%Ç¿_8ªôÓ«"BDàƒ!M svÂk‚Bц6MDˆ!@Ûd帣Wæ7Ã*ÂÍyÇ7<.³Œ&"D„ˆ ]M9कDÜ°Â)Bˈ;…=”i’%D„ˆ´Í®sC[&UÕ³NSSž «Û w›1)Êî.£‰!"¼‚¬í5£šyÔÙ\PŠÇ;[RFŽLÍC”8DˆáÃæA!$×Ãù¹¤‡ì„õk§“ÁÚZ§gøÕò HÎåSDˆá"+(pEÚæ©4'=ˆP Ã|¢zá¤)Ÿ2ªˆ"«Ãa£ïsEÚf\®ºÿ¦ÂÙ\‹ÀD3lÕ™ñ@DXÒ´R "ŒÛªY"Dˆ¡§g¤¨ÙM¤mîºJDÉEÕ@Óôå›3õj4çþî2€!@+B„ª¾Z K«º§ÂQe¼Ã"D„î$ éQ„ÕŒæó]¨m!Bi$e@„ˆÀ•¬|}®ìR‚ÂÝ„¯e–QDˆ\Yˆ=u1ȼ>xyD8¨Ï»|Œ§±F!"pŽÊ$ooÀ¤ŽGÃ&Âè¸ý¦Ì+TŽ"D„AŠ0noÀ¤šúÍpyð¦n¯É8"Dˆ‚ô b ÙD“’Z@ûÊLM´·Œ&S¶78d)˜!"h“\qSñV*“f[™Àâß2õioå2Êf‘Ö"B¦£rÛ£cÅÞ°‰°·ó(Âmf´"B€3|’C9åœÃ¥x¼tÎ %7$?1Ú€!À òŽ«<>Y]ÊN¬­u)Ih}rý0wdÑDˆÎÞHº©cAê¡:˜P— nŸ&9Á­Q@„ˆà,-ê,_Û0©V¬F–böe«Öb G"B€¶D8iH{㉸üF~¶÷bR£Ò˜D„€!€çû¢›-´¡dí BÕ”GÙkq1°S5ôbRµl‹4¹ÉÝQ@„ˆÀNA¶òFÃÓ·Œ ìÖè˜aŒvktÔÞ§¾eᨒ•Æ!"¨Ó¯Ë¯"´ ÓÁíŒXŽ°ÌtÁò*©÷3ê€!@9œôš! ²f4Èá™E &‡%]("B€:ŸWÝûñŽìF»×Špe¥{M £»#îzW?3ê€!@·wåà%:u%”»$("B€N=˜LËá†}F߅׃ïö–é$&Dˆ:á+iX ­þŠáa±¡i¢eÈWˆ!"ø.‰á©¾P†3÷‚T×ñqg[h¼‹›nõ¹¦†Œ= BDPæ–œS¼f'MÓWúéjAn×Ö”©o™ Pæä-Æ!"(/ ¹ì]„±ù¾ÍhŽ0é›yá²4X"D„==Š^ôîÁ€kFa;QBE)êü"D„=-+e”‰hª›"ŒäóÝ P¨©è„B½ BDàÛƒÊRC¦§ÏŠP“K &Dˆ|‹pÞlhÀ¤¦6Â.†lTšóˆ!"pgzæÇV¢xj4´¦· ù(Ü|ôöÎÿ·‰ûŒã­Tk³¶Ð–Ž/ý’Ž~¡t£ÚZrŸ§Š}6vHü5“ãá˜Ó8qˆ!$44RgÊRTP5¦ñK~Y*µûgFì;×wçåÎ>ûõúÉÊY†;=ñ+Ÿ»çýySzØXmu~·¯2Ž !"„þfLr-ï6n3—ìHw‹p$+£‘–§—“1j!"„¾^få’æ¼g4$[,®Bá€?pËüP³åé]’,KB@„ˆú™E#<î";‘/}Ýíñ‰¯Ky Šñ°±H"D„ÐÏÜn™¥O꺷=£/BK’PO¶LÕߦ"BèkZÞ8\0=o;øìD5‘¨yk¸, DˆÚñ`&Ô8€É‹áò²×Q¬„2˜!"hF¹ÜÒ[¦(B¤ØåÙ‰ÝE1bŠ|lµ<Ír™JDˆ¡?M[b32M|/A„¥ÆYLz(ºÙò4‹©Qj!"„¾¤ qÍEv¢¶´z>4-dmZ\ Ô BDýÈ—i¹áF„™>ø4}¹|ð™úéÆmáìDxCÒd "BèKîßrãA]ÿbøÀ¥5aþ¡Ã_èºÞºO-"D„З´ÖÃøœ×!Br„M¢„s㣀!€;Θ³^ˆÐ“¡E„Y™A„€!€;ÎFÍOÚ<élY\ôa*aD¢³˜!"hàúZë˜ùŠ¤m’X ë‰Æÿ{ZVZo°vŠDˆ¡¿˜5ŒÖ‹¤RbÊ´SÙãàˆð±io¸©D©õò·v5¨ @„ˆúŠ»ÇfæžÑ”lG„Û¦L½]ߨV»Ô BD}…žÞt—H¼PÖÎŽŸúÈH»KPl¦uj!"„¾"9ënA¨ç=ÙU¦ U½ø܇yw"Ôf“Ô BD}…Æ*>„½Ë6‰VÆ4G"B‡Ì„Ì“ƒ.¸Ý0&LˆB?ipÒÆ [–}«=áP¥2ä‹m‡1iµ‹Be"D„Ð|™Þ“b£Gr•;CâN%×xE¹gãAɱ÷6 BDýÁ Ûì½9ž™×SÃÁá°yMËÚsXnP€!ôóRÐÜõŒÆez(`L[žrÚsAæ© @„ˆú‚ÙBÒev"'›Aá¦ä\&(’v—Dˆ¡?Ð4— B=6<⑯ >xd8æR„4Ž"D„€Ÿr?ó'Eèe|š$Œ…ï#B@„ˆÀÞƒÖLžyÐSšMh?Œ "D„Ð,¤·m›FÒ~-‡ª‰DÕ/êiÛ&¡íôˆBo³ž–ÛvwFͣ駢?{&«åeÏ>úçè”yP½Ý½ÑÛ’^§F"Bèi 2mw{0cÞ°:¼žÑ§}£aóÆáv»¬iÓR F"Bèi¶B“®[FEQ„D\7ŽN†¶¨@„ÍxñÐÙ'Žýé£fÇ>:þÊà‘w~ð"„@à>;‘7f†ÉŒ‘'Aˆð`87¨žrÞrèäg»‡ÔËç!ô‚3—ÍòÐïLx'«rٻϞ¸c9•ËLˆ° N_Qê؇çÏÔlwÈthàhí‡g>üäíš*¼¡ÖƒÓ†o!Â'®2 -kÓˆ¡{~¸&ÀÚ‹(õÇÆc¿Qjðþ{áu¥Þ=‰¡»ÉT6ì40&¾ŠÐÓa3ŠÝ|^m£’¡RZdwôé«SJ½Þx¬æÈwuyL©W!t7wmóÚš$|ô ×+B‹ ²f»¯ŽÜ¥R6ò[¥NïÞ=¬®|Zè5¥ŽÕùòmD]ͦDmW„ iÓ®2±hÅKS-.zù镨iyI/Ø®£²I­"¬çs¥v_7­úÞ©“ß¹ý…#"„.åªýrÈÚ3š}(°è潜ô®ÉUja=oÔ îU¥Ž7üõóÏ×û BWóåXÒµõ°¬W„«–L½&ǘTˆÐüˆðxÏüÒû^WêD]¦¹_êÅÔRpE¸”*º!£€MRê{¯ß¯{&hÎÕ+uå%DáÍi‹7ôOUµ³ãéÇXÏgò&"D获êVz/)õnów½ùžRo5?4𦅗DÖ¿ð—qûû¢³iñ3;ñdúD(Tõø1¡eøô¬ýÝÑqê|§‹Ex\©S{¯?Uj°é›Nž©­›ÇŽ) W¼ÍN4áG2ß[0y, žÿ.èÖaLß;è—ù‘Š¿ ˆ?Wê妷:k|ùý_Ž_ Bè8ßÄåºí÷Lr–TÐEhYâæ$f{!®Küjáçon¶'÷Ùš_cÓmèf¶%aktÎÒZ’J{û»_©xûùÃ锥ýgÎþÖhB¶©àáŸ46˼b}Çk‡k~|Ÿ1LÐÕŒ^Üj£e4&2ì?²‡Û˜ÅTcëâ(5ˆpSu]0o4 Í|B©³/2ß2ÚD„YyôÛM­™z€ÝñQÝ£–@ý“œáµÚN>‡!ø´Šp:>tŽÆ§Û!¿¢€ŸIëÚ³™úÆ™gwNÕ[L¨‡á=ëÒIï…ëYeï!B@„n8º?|ià=¥L¡ù”‹ eÍÜßb IDAT!tˆõˆƒoþ11: ÂB¡"t0Œ©öwAdÊDh¾tÊòˆðô5×!tŠ¯ä®ýÿEIùïÁ ~D‰,§•’‹ö×ã®|Eå"Ü4X[~øäæç¹#û™^=uêù½™½Ï!BèöaT´ŒÆÅò0-RíV#–GŸwÐ8*Q–„€÷zEk½ÿƒ]ž@„´ö²º!z¡kôA³.  ÂÎF2!@„±ÔÞØÂñF*†"Bè_¶4Êhã‘Po†)AŠŒ;Ùim‹úDˆ!è¬JÑÁ7þB“L¾ˆ°\îŒÓ²àà²e• Dˆ!àäÌ!|’ÈuD„†1Ñæœ$(´5ÉSA€!›Q#]r"ÂhÞ"\òÁPü™Í¹d‰æ£NDXJL¡Dˆ!àÌM:é IZÚIòF±wV„EÃâùXÒÉu™œ£‚"B8íf'²2ïÇÓ»ÅE?þ•ù&³˜hDˆ¶NÓ—z§k´Ôn¦"D„lÊeGßõ³VKèñÂNïˆp§orŠ³Ž.N¹L"D„XæNvW»M齜"lÞ7ª§¢7ì³–ÈaB@„ˆ‚ÊŠ„œˆ°Ù&¿<¸³Ó1:ƤeB²B%"D„PŠ²âä«>-Sa5ªvJ„S’vògŠ©$@„ˆÊ¥Gs'æÖðD$îŸ|ÊÖŒ·D cŽ¦Si™™KT BD¥í–Q=,?õ–jÖ7Jã( BDˆ°¹ó"Kþܱ¬Tüùw–Dòˆ!"<èP„q™ê1f$Þ¶ùuDˆ!ˆ|wËÑ&b™«« bs{M„ç¬C õÈUGQ“·¾£ž"BɨlhŽš"ÛVKé¿ýåÏ m$°QBGmµÚ†D“T BDcM;ºë7%¡vE¸þõ”ý' " É”£‹ôXÖ¨(@„ˆÆ]Gû¦h¥¦M$ŽÄ²rEíñíd»v*:i¼ˆ“!UÚÍè]* !"„€q¹ä¬äžu.C,÷ÀV6®©g|Ûæ yßâ5ä¬O ³÷œ]¥Òe* !"„€Ñ~˨žË´þ êùûD׋° 9ÆQ@„ˆð “4ý¬½V¾R̵·áK"QõK„³ÿO¦"D„(W3í{0fÒô5‰ðßíÙiyÙ·G„K†kß„™ÕEêê¿ìmWÛF€¿å/éXÜÍJ²cÇ`,ð®í6ŸdC06‹ MO”Úé&¶iOJß² é9{ö7nÒ—«R°ÑŒìçù²Æ×óxfî ˆBRXLËA¸£¯ü²æÃøízDø‰þi£-Ÿ6õær>Üa꤉,@„ˆÂâ†k:»#·.X;qêñàÔ•„VPÜ’pÍ‹]ù‘ÈDˆ!!ä¥jr_ðmÀJ„•›>J¨ëâ.„¬¶ä‰,@„ˆÂj»jnïI&{Ñjú¯<"<ºàveK±³é…¬R{•ÈDˆ!!„΄¬ûÜ3:o„rŠíáÚ…ÌTqœJŒ"4|N ÓuG"B˜Xš~—­8†qÊÕÁ½ÑÝk_G˜J}èø]£C BDëAÿjú|êK‹-ã^懪©Ç„€!$‚~qfšEY¹˜{p¶Šð¢eñÝnœg„ ¾­6B›p¦Ø'¾"BЖ-ýpÓzóVÎok´v‰víøw Þ´â\Ö A¥ë·5š»Õ 7b}±[D BDš³-åón•Y]ùù»Ï_Ö}÷ Í^™>y]VÿÙÏIN^Ów7x9äí2eÙ&Â"BÐœ™â9Ë›YûË_×q_~W΃¯W…ß´¾þ0•$|óƒd#ä"º8C„"D„ ;çݪvôÇÉÞÇÙaE84§§, ‹™ Òe"B˜Î\–ýàO÷¬ŸÇª¥=ËÚ‹õÏ‹u“ÄQ@„ˆ&X„…Á2xùS¦éX½oáëcMß^Lˆ!"„1áþá9×…•¾áWª¦ßonù×Ô‡7aïð>qˆ‚¶äåö9í&<£Ýœ÷Ü@½ó‘]»ów|ï7{a8Þæîm@„ˆô¥äœ—þøÂÛ=éçA|wîJìœ~ïçÁÜyÿ Þ°!N‰HDˆAS:²rÎ4þ¹W„Ÿ+ÍÕ¦”0'öBH®H‡HDˆAS›çµ_:ñŠð'Dø ™°÷ñ¥&ê"BЕógqÇ+ÂçAÎÛ=2G"B˜®{ÔÂg<‰°,› Öf*ê_±é_SE„i©w€!h³ t¥zïç³~°DÉ&¥’aª%–ßdóýÐÃØ—%! BDºÐµ«s¡¯³ý;ÓfŸ+I[év•<ö¹ïŸºØ³aÇq®jw‰<@„ˆta!´%ɘž3˜7jfd)ô@Î-w€!hC„³­Cÿ]Á ó`€ -9$q!"„ñö 1›cA¼$ÌÍRBˆBâØØ7†."œw®ªñÑé©šç^uæ‡.%4ö7ˆ>@„ˆÔ³êØC{ÐtEMÒÊžeí)yp7 S$ÚÎ*ñˆ‚rÖdÅA5½š•™¢:ÂW+ÑÔÔ+²Fü"D„ š–“é…Ÿºó®oÝ@ÚYOM–S뎯³n>ühö2N‹DˆA5f„™Ûß^|f%¥ˆv[Õ“+f@3¦ÿ+šâ!"åDÙËk‹MÎèÛóFmi“8 ˆ¸zÐxìÔáÛEXw˜!"„Ä°¸h _;af¯O¢¯g‡Ï5ŒÅE¢!"…L†÷`Ú©M¢kþé2ÑL¸PHcB@„ˆÔщpKt°-i«³‘:·.›‹$ÂY[H˜DˆA9©E˜´WAÕô/UÉH]ùD*õ2¨¦¾±aPk’#"BPÆo#ìŒÎÿS±¢ùlEøìÕ‹ûž˜:…Ëì…oo‡€!(#RZG?¨“œѽBaOÝÓÍ fL}G"BC®‰©ÌXÙÚÒ¯‚Â’5DˆÂøyÐX²«†aÕ^20! BDúsОIaZÕbðT¹Ó#)%œm€!ÄOוxдÝç .úì·;5õÙÉ=¥|îÜ8Í„âv‰G@„ˆbç†,bA˜7þœÑïÿ3õO{ EøÌ•ô(–„ËBæ( BDñ³âD™¬;9ÿ)¿¬ š~ú³©7ì~£Ð„m)ûJ®elœâ!"„Øiõ¢ÌÕûŽøŸ‡ÕÆn¢¿>š:çÏÔ‰ð›‡þ—gÅÙ2º=Ú"D„ aûŃ<8îÇËDÛ½»Ô€IAÎèñÔ+ú嚶Ü&q!"?:O›yf&O„uÉé"­÷Eø¨¢ŸsRG„€áØ‘¿òǹT;ñû¢ûsÑ&꙲6 ÂΔ‡—. Ë3ÑÆwnŸÝQ@„ˆPwÖÏ®Cv“Þ1`Mš£H5Íåø—cU¯×z°²lŽ¢‚ÂhÊ¿1@„ˆPó%ÔsïWï%úmz’Ù‰-iÄîÛ+Â…"lÝ;Q„ûéñ+Dˆµ&í™|“ï¾);ÆHDèJ+v÷<ôŠpI¡[A½˜"ŠÐØ‘M~e€¡Öy&߉~›ÕÍÕHXù²FÕôïxEø_-kêËùHÇ°¯¾~e€¡Öìz&ßG‰~›ˆ«•NP¦l±¿{îz¾‹O®«L–)³A͘:™£€áø0í]…Ü\œ šaJÜSü*þ¥e Ó"D„cÄ{7="Ü óAÛjDxúéÀ&uEO¦eÞÀ„€áñ…G„Ÿ&÷Uf¬ƒˆt#ȃŠZ~ýÉ_ÄÓ;z6%|eÂFÄa>°fø¡"D„úòwû&-K¶G“2jÖŸ(rÏ““ßw¨ï*oJø¤>šRBc[,ªê"B}ù`poôý{‰}“¾F#´TÕ•-ØO=ú(w5¥žjàÆqÄa^(HŸ_ BD¨/'"|‘àQwiD BKS: L%ŠjÂ%—½Q@„ˆPc¦ŸžñàQ’·°¢ -ZÊ-T«)ÿ­ÀÆ…bƒt@„ˆpŒèþíšžíÀy>×T°™º&rMõg¨4sÿÚ$Ž"D„cÅáÑë‹·¯|üÏD¿EÔ©¹Ø€ÉT¿-©ƒƒóFsR@„€á˜q¿ÿ¸s?Ѽ뽨S󲫯S{…Â^J_ºËQG»·>ÍÏ !"„K¤ù¶íÀT-D˜ÚÚJi,ÂÈé2ÆŽ´‰R@„ˆ.q[4#£árùz ~ázyyT"< ?n@„ˆ.ƒÈ÷_‹Ð•Pà¯üØ‹éÃ-Ä) BD—Æb5â¼¼‘ ¬¦w¯¡ÀßRv{1™Ùˆ¾Ú_$N"B¸¼­Ñ¨4¥0×¥¦ƒƒZ->EM6šEi’8 ˆB‚EøPnÌðÕ;¨â8 >ÆjÀ0Ý’‡&DˆAºsQ§ä’#isF5©#|[ qJQG}®K¬"D„pôœ•ÈSòŽ¥uñ„.+·PX;‘ÿ~¬8=¢!"„K *›Æx¾¢ÛÕ䃌®”ÐØ”*Ñ ˆÂèiˆÛ™³Ö“œá‰•™®4ˆW@„ˆFÎôÚöè„–4‘ßYšÁ½˜¢›p{{Ö"B¸"ÏÇ¥Çÿgïì~Ú¸Ò8œt£¬¶M“ jHÔ4ÉŠlÚínÚj♷ꌙµa1øC[ãµd ˆ)Ò$E¾°B„(½ŠÒ«¤W\¤dÉ®ÚÑ9ÁÇãá yž+¸Í9>Îœ÷wÞÀJ_n#¿ýÜ?°^f»@á( BDqô µ",ŠgHš~w×L½'ÅÀ(ᎅ "Bˆ¡s5É6zj†Ú®Û6ãIž6«ÊK-‡"B8bcÛ]¯ÅI¦ ¯5'G¨¨M%¥ÓõËßk0k"B‘ªä»ÿ<—¯Øˆ0„EEçÝK•Y ˆBˆÂIé¾dT"4F„‰f3a¼5êF­û2É–!"„ðø—Ï…(B7G™èAr!(¬\Þ#BˆBˆ&Bô`]jhï 5©‡h‰³!"„é~!^M.ë5YF{YìÔa×»nKHá( BDGìAk)øªO¾B{ùJ¼à‹x–,Lˆ‘ÑéþŽQkÁnÀT|1jŒ}ÊeceôE1¸“¯3æ. BD¡lýl÷•2ƒ·7ÕŒŸPÕzò°ûz™¬Ïï!"„0ØZ k$&Â`¦F4†À– f/ BD!M–¬ã"L$Ú™L;"Ô©µJÉ,³!"„ج†êÁ´·kzÖ× z˜]/ª «›Ì^@„ˆB@c¶rÁù|yF…èóLüàÊ9‹ÂQ@„ˆbãÁe?œ¦÷ ¼?朩Oû˘!"„¸ˆ0ç*0IãQE3&7‡"Bˆž¥Z÷íÑ­qÕ'¾ç&•i& “žæßÏUŸ”Ç»‰Bm‰9 ˆB/”$«!ÂUßEÍh"1LNõ@ÁïÍõ5®Y+d¥Ä,Dˆ¡ŠÒ´ÂÍN˜%BÃr„Ê…NݨՔ"³!"„˜©¬c"4qGr”Ð*Ôg˜Å€!ô€e…ëÁ‘lÃ,ï´Zf=O#;® ©—Dˆ!rƃ+ejÔŒ¾®n´\/3^@„€!Ä`C8œHùòÙ©x¡(¸MË<[B@„ˆ¢dufVcÙU5`²ýü4²SZæ};ÜfLÖìÌ*s!"žNrͺ/ÙàS®â†‰gw×°ú±üö²rßÒIuz f3 BDlÉ”Î]&¯—šÑD¢íºmÓž)øíÕ½ŽÎ=?S²ÅlDˆAƒ1Ù´ŽuˆÐÄa¢„Ö¦Œ1›"BÐù4Z ݃ˆ°G꙰ħQ@„ˆt°ÂÚÞƨiÖi6M{¢Ñ /lR8 ˆBt",í/âÉ'BóÍH%øî”! BDÑ|]ÐZps®b'Mßs¦¾¢×ŒÉ²ø: ˆBwlèUÊ|/É”¢Â4÷zž(zw¤’ò½^½Ìs!"„nXLʪ΂»#Å×,w(^aFvtÆeU’‹Ìj@„ˆº`Fó6¯ÂT1F5£{”Ë>”⧴îµæ….€!tµ#ëXÇ>Dhh|¢QB«3ÆŽ!"„n°ÂÏNØ)DxXRá›ÊQ@„ˆŽZ„nÒÀR™v&Ó6ï©ž$]DˆB=¸í)¶2¾<3pïµ¾nàC=_±±ö¶1! BDýåQúžÖB»¨jÀT‘˜ÉtM‘ÆQkxî¥1·"B8 si)k­´eU¦¿ƒáKÇQ5cÒžô³!"„C0.ž^‰þŒäãU3j0Š™—½h‹'ãÌn@„ˆA)ùÞTnÄŽ؉ÐÑ»eÍú&Ybv"D„pr}ÈN*Âédr:v"Ô.Í1·"B8 V?B„Ŷ‘¾14G˜H´‹ýˆò»Dˆ¡"ÌMتLUv„ÝPUõb²'rˆ!"„>ѨjÞ­fÕý”ê®èM3ÏâZ-3ŸkSu{yʯkR§J;&@„ˆÔ”5oÛ¶ÆU ˜ MÓŒ:SŸ”q½Qš—2s!"­¬^BË“IÅ·¼Éf¹uuFØT¾NÓ¥Mɶ˜å€!((IEóøiK•'Dr€ÂßÒ<È­H‰Yˆ‚‚9í#B+~Ù‰—ìîÆÒ„Úu£*·Ë"D„ ¤/Ù sEØvÝv,EH‚!"Ã<¨®™*cs„{¬õ'JÈo!"„`sº‹ëªòv5?û"ì–ﲾꮮêŽÕ 8 žA„`>_3:a-f“Š5;-æ~l6Íýj+iÅKMf5kÞ/0×!z^uÎ^F„`<óºBkKÕ€É®É E Ý³"5[ÕŒiKW„2Ï\‡èEø‘ãÜD„`:â?Ò\[‹2¥ÚÞý­uÏwU;Â))jÖ#_&˜í¹O;Î;ˆL§ñ¸¬{ì´RKÙ¤#­MÕVtG«ü˜SBˆ^„g‚ñXoXv"Þ&ì¡n”Ÿ?O;7ÞC„pl=c–˱!&„X‰ðÄð€sö³¿_xçí_A„ðƈ0•ž6×4&ç‰ét ±ù4zñ†ó*ˆ c®¹­½ª–UEvFZˆP–ª“m§µÏt­í&7­AÄ"t€Á0îHMwQýI”Éo_žš«šv&cp[Œ§¯{³?éŽYMî0ç!Zž;"Ã6„®hïÕ ˜ê25jð)ÜúºÁ7:%õ~4cÚÛŠË–¢!W¬é4¼Ú¬î¢š—Šêˆpógª?uùySuHX‘¼î˜ÍÖ<"€tx……‚öyÓÃ4ባ©M?Ô´Âs!ƒ¯Ð·ì"ìc€‚ÂQˆ›¿¼58xë=DÇ̃ñNÓ7±6¡… !F"¼ô·sÿ¯øäψ £°Ø/¦ò_­™édrÚèü:߯(¡µH ˆV„·>þ=:ññ0"£he}íJ™BÑUžbɆў1;G¸Ç†²“íµÏvgýl‹¹Šð•=ž¾qþÚ¹ÿîý1t‚IÌH]{[±¬lÀdOÊ=v„½pO™M±³²¬=tu™aîCt"<3à8ÿúôåŸùpïïg!Äž­´WÓ´²“í˳àZ-³Ÿï‰:S?%ií¡Ûs,s¢á_çÚ¥ßN ¯9·ˆ b\WaMùEå§ÑE ?{cQùi´èOéÝò8s¢áUghß5Ûo9W!D/…Ù‰£¬M(…xˆð-ç‹ýÿ~༅ᘈaŒ£„,¡O;Ÿìÿ÷ÎiDÇñáîî›,BÖˆN„CÎgûÿ=é\A„` wÝB„õ¶L—LÛuÛ¦?£¥¾ÂÎîáãè¢{—_D$ÂsΩýÿžrè>¦ÐA{]õ•µývRÖ —Œñ9ÂDbM’Ê—<é¯jà‚/~ßwœ›¿ÿwÓqÞG„`K²¡¿¡ØP‡ÜÒ’E„½2ZQgê'{Á%~/8ΕßLxóŠãÜB„`;®þ†0—U6`²]7þ®Ù4þÇEyyOE²9ý-¡»Ão¢á‰ÏÇ9ÿîðõë×Ïïýù97Ë€)ôRi‘{ì)ÃÅ·Ô|öηeT3å=ÎQ/1á¥óÎ>Ίá8ˆðu%£„'¢©¥pb!Â:9ô«‡NñkˆBò !Âã `-€¨DxâÄ?/qj`àâï~I?B0…Ny¾é"œ-S8 QˆpxðÌ “@„ð?®Üéá„pEytedÖb ˜r9¹–Q¾êâJ§„wÄmð[€ÛÜ5zö2"ã¨J¦‡á}uvÂödÁ|ÅÄ >±Ç‚xê(¡ÜïaG˜‘*¿è¿?z%GˆÁ6zhf÷²“ûš4ýsDÏaïüžšH¶8Ž\+·Jü âʽ.«¢èîêên™>.™I6’@UEñs 01,—¥¶6«¨².ðæ‹ûÆ>¬ÿã«(áG:Ò=“éÉ÷ó”h¦œÊäôÇî>§§¦> ÐŒé]KÉbá÷¿&âdì†h‰£À½"d¬"Ê{P+Ä8°Ùç‡m¢s¸ŒnÅ (¡!D*!?gô§a…Ì’Dò ÝîðO¶WPh‘.B„ÀËÓAc^Ca++( ØWBa`t€!Bà]rT´Ýƒ(ž¨­…MX¤""„WY6ÍÁ“G¦áA·›pZðä Ó\F¬@„!ðêaxNp¶äÕN„CÏà*;yâ¥ËPPð!ϱKB„À»{„‚¬™œLú ½QK,ìþ’Ü IDAT™ŒZ÷û†×‚"IæGD{<¨ó º«¦÷û‡MsX©.TñÆ5˜@„!°G„©@3 Ïž+åÅêýþçÎ#R!€!Bp¯Ä' ÞËUnFèDÞhiêÿ ñB„À{Œdy1hB„ÀsLÒDˆRÂj[ŒL"b B‰"ôµ¿çÓ«vDgÂ0Ò‚£ãbŽ;‡¡)û sCnQðQ§ ]( B‰"<ˆ8MJ4…bÀ N7<=ê§ì¦'å<†I2DÓ¢Rˆˆ"žCx¹lš×€I›´­šVvvT»ãmâµ ÐC4ÄQà^=ˆ¨æA-KWM_TÍ*ù@ ¯Ú=y5õz€²L\#BwÖŸ‡ÄÆ1‹·55̨&åê߆œå= kLüya€!Bà!2ÑPE„^¡3¥„éPGŽB„!ð¿P"î€U,žÈf=Y@!nÂx‚~Aä@„!ð É("¬³)á4%9!D8é+½hkƒLX2NÛ®&gÔZøUIŸ ›¦š'¤þº`9’7ªM“5H‚epuŠ]»ñþå½›Œu!Y8 2ÒÎÔN¨ÚyBÙ:ªòFe˜0mÐ DD(>vóÓ».ösDœ +åœ-Í»TwFèX)¡¶EYDD(ì«íyÛÍ®A„À oˆ÷ãÕžNzX„þåe¿‡E8ùTüùÇ7#’ B 4î64œ`_B„À dLÖM“;Þ&ó~àô¡8ƒÜ&Ý4ב8 \"BûzïÛ¯™"ªˆ0ËOOÔ z19Í£ªL".agùZèE̼”1j“ÜLïºÀ>‡˜œf…ß+Y·hRÊà%¢ "¦™ùn|z×ÁØ÷!°’QF¦m&øµ WÓïì(\Sϯ HlÊø ¬Òâ "åˆØ#B߀IOÐ8”TÆù½˜ôé!pƒ¯±³WŽ}ñÆšß¿ºr¸î¾ha—!BPÆ@ñ©”Ñ/AÁ*Š¶‡ ¤Ú0TEM}R~ O‹ˆ+ˆP„/»sì‹Û?V[œndS÷;ÉÔw"e<¡œ”ÑoïÁ°i®@Iµª©7ùk£A)§¬i9z‚¸‚ÅŽXcMǽöÆ:wVÛ;àß1ÖÕ‚½¤È,8–2j=TzuQéu݇–c‰£“Rˆ,ˆP€Ò¤®õ¸×¶~\ý§0¿íʉæÓ!(£ iBèñÚ åË'œ¬ (M ˆ,ˆP€Vë¾tü-¶=R¼~°r¢³©"å¤ãŽy"t½å˜0ŽRBˆP0m´…½{ûBÓ©]ª¿ôcß~lðËXËÁʉ« !(GÎ 53ãyæ#‘¼çE83“Ò9 j¾4ÚÞÍÊ©þÚÿ0Öµûº‰íï[qßÇþÛÀá¥4½|<Œœao´ŠœD=1¦x¾‰â™>cUœx`Шœ_"ËÛØ,Bv€ê¯mcìcéÅ=Æ:÷WN4þ›#Âîƒÿú”êËA ½ËIÔ"Ut7’ù¾òÚñ›YE‹E9¿ˆõ¿{ñ•{›ExîÇáŒÝW9ñsGDÊÈÐ9Þ«bBH}øÆkI_5õzÌ’ó‹xC|ãa-¸[¾4Ú¸÷ïnï?Š¥Qð‘· úŸ¤”Ñ*ºüD(Žñ£–Ä)REŸ¬ÿ³w¶OM\{GÔtªˆ&ˆâ”hCÕbgëž3dw ¢y’™¦B4HŠe¼síÄ™\då]§v|QÆvè›û?Þ$PäáùuÎ~?oB^0“3ÙóûäìþˆGßðäÿ°ÃpkÔ‚;“eÎè>~¸‘,ã¶Â؈yµ©ÜÃÏÏ?ã åRæUPŒÄPKˆdKhf¬u¯šÂŒù¼š«÷z!øöÛÑ•5EAñ„¨G4Íá&7±€BQÖVF±Ã B²I½G¨¼ØvØÛUPߺëÑ_=DÈj'”nð óëEMøBA°\„u§;*|ÝÕxózíncŽÜöĈü£|Âcn¡'B!Æø˜X,ž`[µå5Þ­áKuW÷ëYŠg„€Z„Ë\ š>v|¿í¹9§¯`!œ¨©çË!°X„êë· _jÞùˆ"Ÿ0÷pš&Ü ŠÔ§©a¤ÓÛ¡\F ïεAš+cúáöDXeãlæ?ÑÍX{SméOÏ™“G9M–Î凊_z¶2kn> ‚Oùë4á.1HåÚo‘Õü¦qÄÑÐMûYEç?`ŸA„ÕÐËXkO¹/LWMÍ©Ë%¯µe7ó]zÙÇôT:ŒB„`9ƒìQȃ§ Ÿ‡‡¬gžgLL}ÂvDX>V[Wy n丌wéß¿ðoÞPm­ƒÁ"|? ˜Y;ñëºã-².Á~5³‚BxB„Õàg½å—[¶ê©ßì#ÌcÝ~Oíå–í“~!B°Š©Tš*„Bç¯B5Õ„aUŒmƒ› ÒZ?™*h2!DxH‘Ý%"ü^Š¾»B_–¾2KO„^aì³Y»õ!°ópU¤¥ ”D„B&ŒðU ¥Ï{7›Ätm4ˆñ@„€žlš(Î%òû9£áW($Ÿ—`¯Ây£÷ùC¢ÄQ%Ånƒ«ÈmëÙ˜¢tmcèü%ˆSäQ [â†*2I‡HA^d“jð%¢J/b¿A„Gå&c‹¥×«Ì÷yICõÌrÞs²”ѤH>~œ+P=Px\¤Ú%I–8Êßc¿A„Gn4êcìÒWå£ kj¾æÛÙ:"4ÄŒ¢©9£ñð:d“ŠpÜԼѢÃ~ƒLƒ¿2Lé›Í‚@ODèo.™[<Ñ·Ù……>s (–pk"¬‚“Oùñ`KÅ„cWj B@Žb®U9’N˱“K @ Âêäs£2T>èmoµø<ƒ2»<áJR>!(‰åY˜X)B;ÊÇ_Q²·ÌC¡œ" ‘ cR”è_Øu!DìD.©M¸)Cd“’Á…H¤ Ã:†DZ èÜ »L´$ZŽB„!°Y£:Îja±úNŽ49R~Þ‰ý| kT÷F£1ŽªzˆPÓûR2|†ìž—Þ'TM L¶b^¨¦¾O'»Lfxû"ƒíDHy;57g4©B>vbTKš›7‹}B„ÀF(f×N¨?Á=öâ'Õì ˆP›”ë}·.töž(›¿€Î2Àé"”Źœ,+]E¸É•1ج¼Ñ¹Ùz"6ôàb¼ßUÒ´!W™°?¾KDØáaß]cã-! cQ§Ê‰W!‘L‰Pš:BQÞç!ªaLÊ”¾ˆÝa ÓÕãÛÞv³D莃¦ m÷¸&–3úN„vã;±¼QߣºZ†¹@ S»ý@XBÑ2ò‰Ô!SaIë"µ/êÝ0&EYä*v!D(È¿ŽyþÖ ¿c˜³”1mF,ÿ^×Þ@„ö䦋U¿ÌPþzšÅ>„…ås³×ÛÝí½ðeæ2Vù#º»\KáŒØ˜ó¼DÕòR-† •fÂKtWÍ#¾Š}b0/°»‹#¦çŒJTM/‚5õ¤y£#‹w±!BˆXˆbAíDdú%”cO^NG,¨ @0!Bà6ªŽã ( B`O5tuµlŠ£”Ñl8 ºÇ„éaÊk7G!B!š}˜P¨yM˜ü§$’<ãF¦Óna†' óÍð×Øáá\` "Ääb„5„Ê[±LjŸ.•7ä*Ÿ(¡‹}‹K8Í™ÇrØáa4–Ô7~ÖøD„¡(]0[åbyqc"´/ †XÞh„¯Ò];ÑŽ„ááÜb¬ý’e-ƒúsÂÇ<“B£ t'“8 ‘HA¦õ¼‹‹ÍbJ%^<ÏõAìGˆððÁ¼þ‹ÈÔ(äŒ&ùª\ÏÔäZϪМzê¼QĈPd0o "xP˜ü™™væ—É &va½åó& B*fun¼/ºW„(ž@)!DVE;óB„Rþs#ë÷ßY«?É«Ég”a,îƒÝ%¾pšò z6ù ñ"<¸Š„σ[õ/ã‹?Ë<åL9å±!–b!¡s9—šPçe¾Ì$ŸG„€äxkÿ "t<¶—‚†,ý(QM£l ²"Ú¬93$™4†4Mº%eD›§¯P6&Ò´(BDxpµ&Vlì8½Dè@VwôDfåg)jÓ”÷µò‚©†!>%™5¤+¨¿}{Jl“šäyÊkhZ+"F@„qöìUt–q>ÿÝùþÇÒSŒR±„.zˆÈáDhû›½¢Ç{=Ay EáAˆð`C‹5çso×w8ne ±bIʨÎãÒM`š›“mE/ã¢|‰GT ÂiúˆÐyÜßýkfÒu"T# $eÚŸDD… Ÿb¡|Ø-BëG—Š´,"Bw–&h¯£âÂDB„æ0ËuÒø¥("tg)¡A|!ñYÄ ˆ"Ä­Q3ÍðG”áëžà&9E¸¾îbjüå•ôˆgF( Baê Bça›d™A¦¬„V~æ1±¸Ùÿ‡|Ê(„BùVõG¿Ø7ã?S^IÃS( ÂÕwº£¡Â×]7¯×B„Ä.å£éç¤7´Ò†.˜3š’OÖ–H æêi›5åy'Bˆpz‚m(Ÿp<¶)¨W¬É ñ4Dè Ò‚5õäy£ˆ+áPG(;ÒeºÍƒj˜?ðqZ>/á¢ð° ›‰°±7ý'ºkoª-ýé9s"t"6iºm•û׆nG0´Ö»‰°—±ÖžšŒuÕÔœºÌX'²FÊÖ¦×V}‚\f™6p-‰v!Añ„Œ•„ê‹%Úëi9“Cœ€÷ÄÇjë*/Áò»V6Þ:•Ykª…]gx’4n=Žkð ›M¨ÅIS•$ŸA”€÷ÄÏzË/·ØùJæL=»‚ê„až%[OE;4C„rŠ0Ο’^PYÆ‘"Ü“±£`m”M´²vˆTÅhß2m[¬”à&u"yGJa¤ÓR.ëNrBì{Mòm»¾å>”P@„ûœ+"¼ÂXe<ïV‚ê Îmxì*cðße†œå·oÿÎ Áî2±×È—&=#¬ÜíªdËÔÔœcˆØC„¢9£<ü=Dè u…ù„Ey£ˆ-á~Y£m=¥—o»V~{Œ]‚£<¨&ùS)o!"‘‚” {*zÏ&&‰ð&c‹¥×«Ì÷yICõÌ‚*x’µL„©âr&•,,ȹ®‹)ËD˜}‚½ îÑhÔÇØ¥¯ÊGAÖÔ|­ôæDŽÎ ¦ýŸ½s}jã:ã°Lm<ã Ç—ºñ%ñ%nÒº­׳Ñî;“Õ²Õrh¤1+Œ.2v>‹Ve ‰I:ÎL§ã©?”©Óöo¬d Šeˆ÷¸{´Ús~Ï{áËÎÚçœgÏž÷2áîŠ5o!‰©„Ö¼»£jÂ0P{"܃“—4íB pëR#»y„à ˜¥9wW¬¤Óˆ ˆPdš”tw\ÍÑ,f+D¸‡®t×Ï¿0áÔ;¨,ÞÝXtwÁêwÚ€ Ù„Qêww\-:f+D¸·|nÔÿÉ8<%L»\­HQ’UÌVˆê\jH:="Ô)/¨-Æ CÔRâyǽ˜¬$Gž9sr÷>8ï=¨0œ"ýKP[ˆšGXãßd†= ž‚¦}¸ûdzÈ#ÌïD¦Ðìýƃy(BG!ÂáÛ=¨,X™œ1ªÞí­Ma#JJ%amÓyrŒëC«jÌ ä(D¸@xæbM»zq‡+]ê+(ww©Š«:r'7Ú<VÝ]!z„Y 6¹¦íÉuˆ°¡Ò†ËïìóÎ0A„¢‹0F.'Õ+¤bÖB„Û[Âöòàï~Æa¿ËEeËy1JˆPtŽ’åòðšèÇŽ"Üáèéµ-àéÎô3¤OVÜfÐÇêq]±µ%ðÃÅ~ý›:GA{£F‘G:@„q§E™gHW]¯ˆûtºã^L‰8D8‹çøñC!è,:ÍÐ}qU!payʨfP`ÞB„¨,\c!\õP„!zú“çòP„Õðæ.D¸ö«_C„€}æö"5á8×ZM<9ž¤Xùéž:nJ¨†ÝŽÆR>£Ðf/DØä£ßžjÈïü‹Òž· BÀDŠ¬a—רE3¢"fq£»ˆ˜.÷6Q†-JaöB„:2Wjò;R¿:ÝÝÌž8&šy·_Ö—7`‚å0a”–Ýey"„Î9[W_½æöáw5­ûÊÍËš÷1¤¡Ïpý£ÕPÌi&ˆP¦)6äúxÌ]ˆ°Ñi¢æ½ç×®®kZÏ{À±ÚoÞ}"Îq?Œa8rzF8Ú‚M|œ&qzF #p"äÓ™~J»Ó<ìÚÞ žõ|KÊ.Bç!£a“„Ž• ¦RB?ÞS†^LÈ €ùÕ=Ó¸:©i]Ç^\½£i!BÒýóß=~¶ìIc™’÷R„iŠŽ‰, ±Ó'‚Á±(ÃGp-n—°~@„'çƒ %^h\Ñ´ŸB„>"ÿ¸åô§ÛÜ}–Ö½¡Ev"ô16Y^Špf±‚@„—wzðžÒ´_6/»µˆÐ?”îTK¿£·ýîYÃXuý„0ï<»L}ò@hOT"‘ŠÐøà‰óÿëDÞõSÂUÃÈb ‘^„—´Ë;WÚ­æe6úûáîÆ!ýí¾ý:õ»þ–~Ÿ!wBø˜Ñ¥%Äþ/ƒâ¾ëƒ­ŸÖ±ˆH/ÂîmžÜÕ·{g›v<ãÿy©ƒÖ—íþ‡¸—s}mJ34`Bò„D"¥´ëƒ-wÕe Â.íR³îöNÔLýŒð2Dè–[zIÆÚ|Ç6Y2ð L¸Ç§Qƒ²ˆ…Ýç`³ªLýˆp;gâ-M;ú…o[Døgÿ‹pø®ã aolñ;±^Ç[»Ã!Dè>4íZýïÝZ÷áæï®jÚo B¿ð]‹ï´5‡¢ (^†ŒªÁcFk ¢?¡M ue¹ ¸ÖÉEø¾¦]:»©iWš¿z§¶š¾ú…/[D¨eÛxóAcÝS†M‘;05òì cLðG|îqN½²n b!‘[„õO¢??sý ¦M5ò ëÖ´›¨5êþÒ*•öÝ{|”RžnUÓÝÂçÖ\o™ª§[ÂŽc%‘[„‡ºv·œ¸u³þcÏ ˆÐ7üµÅƒ_µsCHQ÷«Êd˽ÎWÅ°è’aGü½ó ¡Ú[v?\&%l %aàè‹öSÖK7ê×]…YÐ[Dø¬÷Ž§m÷_Ï—)ƒÜ‰]”JˆÝEÆýfLŠb§ãXI$a púÀ/®m\›Ò¦.Ac^1ñðåX™…vÞœÃgª‰CíI$OH'Â4…&8 ræø‡7ˆÐ¿[Âø܃Ê"KäD(Ã&-*0!D(! »3 ø]„Šåüˆ06Û‡ˆ@ßlÌù!¡¥@„!DZ˜üÛm~ÛF”üãývÞtƒÖ<a†¦ÅwDE×+â?å4K„—a·FXH BˆÐߌWíÅö–ÇX1)ï­U=¶)¾"$È#¬±Ó½M%Tòd®`!BÀDÎHðXŽF>‘©cAˆP”tI†ÿöôW°„‘ì†!BÀÆ*(ö–LrÄŒ‹ˆmmÆ4Ã#ogs"„#|r'("ƒâ5͘!DDõ ’4ZÓ‡!‘`ÈI¤P@„!ðšl–ËJ¤0ìuÚ„= —!†p™ŸÑ—ÍbfC„!pìAƒOV3Sã z }ˆÃSò¸E½–ƒB„!pÊÊÇlL“ ùu5R))³¢³äÔó1á2­anC„!pÆ ™U QŽa%ìµ²RB’ô‰`0k2´ßRs<Æ_Õ$äB„!pÆä†Íc*r'¤!S…eyŒ@{c³"„3¸|˜šDøê'ÃH¤¾"B>͘8 B„ÀS*6S¸„4Q$KKÈ$Ü+TÊV`Bˆ"¢‰p16ÂpD8‚1ÆpH8[„!BˆxŸʧëcÌè4Ä!ÓÞÇ*Êš:Ž9B„à5Øñ^„Z€8Dc"Þ‹0B6æ8D‚g2C÷<÷ jÒ÷²è¡PåI¿g:$ædÂ{”Aä(D‚׈0a q)oe³,‚Ñ”,¡”c†!Ëqh%e6—2CV"„!BàI¤Œ’@î„ìy„¬œ*Žbé!BàW ê…åÞ²‰°—ŒUˆ"„@Â…Tˆp/J¥ D¸!JaKB„ ý$9¥1+Õ Ã†0ñ B,Åä†>\½™*§Áh'1Ó!BˆìÇŠI9¥bFc_À"òE¬âF•™¨½ B„`?îr PP™Â$Fû ée ™R¹nÝÅ\‡!B°–1Ø"ÌP^"9lmIô°yÊt€ s"„Á> qòàB™iGxûSyÔPÑõŠD‚&“ÜRã9¦5Ùô°ÉVƒ]Íñª³¦ä&1÷!Bˆ4Qø}}b[ó¬aé´P(H÷ÈÃlŸFM~ßí± A„!à.B›ñå_¾íјaHXdœñ3 B„!àJ!ÏíÓ“2ÇÖ€IB Œª IDATJ˜GÈ*Bæ¸ Ðx£!D>þ¸L_s[gæc½!v„ÿŸ{cóÜè×TÆ B„`È0’ÜÖÆ䉸„õ¶K¥ÿ²wöMm\WþX ËI¼ºÚJ I¨Ò^ÂŒd$aH×"¦ªÐ¸F´MÇ%ãŽ'Ótø#_²`‚ $3õ]tÖ»ºÏó ´sô{öåœ{ÜûÍËñ H¥jÆ,ˆ:OOF1ñ g䀞J8ãÅÄ„#鑈:Ïü«f\e Ln<®K\ ›¯æÉDˆG/cRß4,›"j8 j–MToË” @„ˆª10v/Àª©spqáà>OUí^š›"D„ˆø@h»€ÉsñÙ¨ïû}·]eh.c„ˆ:Î0XÕË—œå‡ '_º9GhkÂËRÒ«ÓÕ`H BDè.kÍ;í-ŸBD8™GBKóÍE†3G!"t—çRléŒ]Ôe gN ¡ÓqògŸ2q™ hå9Y€¡³,,î¦â"‚4é¦t‡¦å.&E¦vªG„ˆV™ˆ0käzp‡b²q!í2ˆâAJÏ*voF¥Š\¢*vïF+ÏJ˜"BH”÷¤h÷êë-Ç«9ÅÁ[»ú(Ê"D„ˆ&L{Y3YÞHžÑauÕÕ_nWuy£y߶Ì:&Dˆ]dW²ŠÉâ[¾ùrU„ÎŽOØŠ0#¾b¹fe—D@„ˆÐ=æÓ²¡˜,ÃD„“4ac¨X®’æðmDˆÝ£lršÝžåZeGeÐÏçûŽþô²å |š£¥œ)“ ˆºGWq–ÞV„9¹úXtxèê/YÁ§:AÑê’ˆ:H|f¯UîÒGé]‰Ñ#!£ˆâÁ o;õ-[F‹æbpGÆr¦î71!"D„01ö5#ÅzSºhªí{ÍeL©}ZC„ˆÐ)V‚Šf¤äm¿þ8lƒvÛáoû%9¯Yµ•`…d@„ˆÐ!6e[³¯xˆðãX2f ~$AE³Ñy[6IDˆÝaÞ˜nŒZe\¡Ës„Ö"Ôm—éÃ,!"D„±¼›Š‘ý¹sž]ä|ÎSßèî2É€¡C¤R1aVäÌ݇¢ý}wû™H6F"¤q"B<8)–wù‹l`r•ª,ZË"BDñá–ÉÛe[EZ(ÁMZb·µÒË›-Dˆ!<˜µ¹‘fï]jd»€É;xŒÜäñe©Ôe¤Y»¥ÑÜ ¡œJZS„ec»€ÉsÚNÿ|ËRɈ)kŠ0-§$"D„“±êMõf~<}ßïcB‹GÂMÕ×cÉ‘ˆ:@Õ/«~faˆ9¤Ž¦Ê~•„@„ˆÐ…N™R*N"Ì_!Bwù*ÈÅI„—"BD+zi8ýDÔé8ýóÖ»˜˜%D„ˆâíÁ•]ËY#lžp˜Gb,gê«»+˜"Bxƒ=Ý‹åa68Â.sXŠ0¯Ûì•Jí È Dˆ§™ù´ U¿°Ô­ YbˆÐíQÂ%냈êª_¹‡’æìmDˆ§™±ä”C$ gtûF囹œŒI Dˆ§˜ŒèžPUªä¡««ˆÐ²Ï¸¢Û÷¼%’"Â)¦¬ü‰Ð~ˆÐõ£ÎÏÎÌ<öbÖ7ºW&)!"œbR©x‰VDhß.ã©—1I!"ŒìpQFŽ[ ŸÏ÷¿#ë+"BDáX›WŽîvÃzš~èú²ÃCׯÀÐz¦¾±ÝU.åy–P BD8Êñ±-¾íÊ‹tMºÎÁ¢í1í¾l+ßÒGä"D„ÓHÓÕ¶óT3°^ÀÄð„èÍHÐT-å¡1M"Âi| ”9ÝÛèšý±‘8˜0-5ÝZž !"œFN½ò‡•FZÓns ¬E˜m(—òÀcA/"D„ÓˆzϹýa,³ÄU¨Æm”ÎQDˆa4,¯Ws„—¼ ñ3!‰!ÔaUäŒ'BžgfÎDª<"e†›CåØè¥sLÓ‡`Ÿkb¦>—î)ôå_†Ü@„ˆpšX«ˆrn”|ë,k¼ù ÀŸ½iXßEù%å;;©0Uá4±'é²nlœZo§gÐ7jäT·¢ËiÙ#9!"œ"z²£ü"©f|BT"ô|£šv­¬+]ëKK“øG„74íªõº+Úu]®µÉDˆ§‚±t´cSl‡³"l`º¢Óá\r bÛuœ“MíºîȘü@„ˆp8dO9/ZØ~âÉj¤?| V°aC‚–raïIpL‚ BD8œHFûÆyWŠôŒBÔ}£EÙծ쌜 ˆNóõÙ‰azBÔ"\OëWvgžA„ˆpˆãì"„‹ Dˆ!ÉlüDð_³ºÊ5¸æ§&D„ˆ’êÁyMžàg|â.yÇý¼˜"ÂÄÓ*¼RŠîŽu~Ud“àG„wÙ”Šu!ítÕËûU¡EŽ BD˜hFr¤¥Š¬ÛOÓ·þwôóyŽX»¦e?S¿.•’v}ɈA„ˆ0É4%hÅ“ ˜rçÿ5‡‡\ƒkÎ7lOe¸ZÆôD»¾4IDˆ“üЫ¿:Z–<=£ðiúFó²¬^àcŸ´B„ˆV™ÿs¬L¥ŠáÓ˜°ZiÑ.ƒ!|j2DŸð‘0’¾QÒ "BD8ifYEøžv›kpÃÒbÆc‚"B˜ k/·â)´|Nèßd¿1ÜÜðyˆ]L‘ˆpë%Ëê!"L&'’Óˆ—ÖK¼ª:%o`Žðv­ëïÍÙÂKý*Ïqö6"D„ɤ]ýˆhbý6+'sd>O„¿Åœõ^K/£¿ŒéòvOêlèE„ˆ0‘ßM}!‚„°_À”í¾ òß³¿Ï5xÏ‹®õû¯ÁýÞBÝXˆ&’ZSÿÑÓÇbÑ3 ì­ÈSý:oÖÈDˆ“ùH †'àÓP4¢¨tò"B<8¹B<“5!³„ˆÂor<Wú¯Iû[\\p nñÚ«çIDˆæÁb=¦"¬È/›h¯þóeúÄñIŠ¾ï³}â«a>:GRêõ"&D„ˆ0Y<•jÙP ÂLÓ¯\wKþqößåþàrð3Gx—•03õA$Å.OÉDˆ“D;Ð_OnSÖ?\^çëÙ¾á~ÂÔT4Õ0Kˆa¢XGp<'û»÷ÜÏWyw2{‹ÿºü™¬ÓÁ~·ù9g_S™‹ ÜÇ«ä "D„‰"’¯&ã ²gôÑw·E8›&ÿá}£`IÁ“+ˆâÁÉ O¤ïxpökI!þ˜"BD8¾aÿ¯wE8û”ø‡‡ˆÐC„ˆÂ:Û¥¸Š°Ò¼ŠºÝóàì—Ä?ÜЬÄU„¥íé‚a2x.A9‚T C¬äóíeÔßៜ[E}wøÖHˆõ¼ÃA%_ä9ù‚a"Èʳ(B¡hÂLÓ]e]û¾ÏøÜpf¦Þ£¸ù{&Yò"ÂDà¥[dÂNˆL^^Ž¯¢îì¾ÿá†cÉÛWVQv"(úVÚ#_!"L¥HNãÏ„¹o¯®]Ÿ'öý=>q6õûùxu_üó½—H~¸ÍAz=¶"ìJ³·!"Œ7=©GÒ*Ó q4²W”ö‡°;ßüó»ÓÕþÖv;ôÛmÄ÷«k¦#ÙËõ"i—©KœA„ˆ0ÖxIü(A˜iúà/žŸ”\oY2†âû\afêù1’{@a„"ÂxSîErºZ¨LëÂÆ¡_ÁáoÑ‘ïF£YÆ”*õÊä "D„±&¢†ÊÿØ;ÿŸ¦î5Ž£f˜;ÑMïÆuçÄyçœnš{5g9çÙÖž6tBK+I-aTô¦”o™D&ÆH0!@Èä73÷Ë?ñòÿñ– ±}8}hO_¯_hR:žÏûÕÏç<ÏyD1€Éýí9ÏŽ°žÿ¦¸½%Ká("D„`&ÂÞÄžjFá““\ƒ€êF½ˆ"B«åBDUn 0ë%¤n"š¥/þ¢–EHºC•Mhtû¿ˆ÷‘6ˆÖ&)_zkW„¹t†t‡rɤsµ+Â^ñSä "D„5ɸ,™Ä@ÿRD3’Wúˆ÷ZV¹;Чy§»Yê7YK„^Dˆk“§ƒMRபÝ9ýrle.aúÄQøH:eµÈDˆR„™XTÓDè>&×a¥<ÖÜiÑX"BDØ€ç¢û­–¾²d”šÑ71—LòŠµ`ëFÍ Gþ‡œŽ"BDX+:ñŸÏwüò‹«g›Û/\>‚÷‹Q¹aôT$3­z@˜•ßÉt¨œßUu£nÇ´Õz¸!£äOÈðb»÷’Ë;8òÜúw½÷kGX4êœrHRLié$Ô¡r:U³˜Ü¤<0ZEv„ #ÂS·=ïÄùËkÆ;ðšÏ–xúÒùÒï Dò’Qg@õ núÝã¼ eO}Vxõ6" ˜/–زvÚìyÿÞö姞wòJéoK«ç9„ÃíÁañ5ƒ'rñE2ýMÜôý›\…7±WÝp¾ cBD,G=ïøËOmž÷Á¶CÓÒ^ñŸ~:t¢‚-!"¬Of¦²”Ê }„U(—ÉNe!" –“žwê姖ƒÞí+Û7„7|ùÞ¹O¡=©ìŠÙš§‰a}ÔÚŽ:+Ù)Ô"¼æyí-ëŸ[=oKIÌáfï=Ú'ö—ë2„ë™ÉI®A=‹pH®“B Âÿ:mjzßóZ·”ÑìXHŠ-7„¾LÔ¸sìx@¿cÎÕ¸ 'ÄgKØ"<ºI~%)žÛöÝ'MW.]ho?yé0"Ü—çƒÝSf¥2EMŸóWˆsвâëY¹ÌT7aÖ"<ày_m|þ—çØüÝÇž÷áÅc/ûB„¡®”qfE3‰Ð"½%¢¹ë Vب—i–d÷ÙÆç#žwfów§Kß5{Íǯž,™°ùsDföG%¡ë¦§Qn7VW¹»0¦ë©OH´"Âàhõ¼¶ÏW<¯}ów”ôç¾Vúô÷÷<ïì¡7Unç6%ãAa·Ø{%®zXSbÓ.ÌE"LŸØ…ÇCªs7.½vkƒÿ¦€¨^ó¼c›¿;^’ÚÕuGžÙôï6ÓrV‹ï3£v‹ÝIĨ ú߆% —Æhæ{þŸB.ÂË[Fnß¾»þù³×ºí7Lø×8"òäØ3/$k¸Úé@„udBà '+/H£ ¨a^ÚZ,³¥oðê¦*Òw¶=?äaÕ¹uCúa½3>Î5¨wöÉ &ô†üa›ç}¼SOáz!ÍÕχJ»CDhʤí©uvÄrرŽZ7aOÔŸ$Â-ÂÏ7yno¨?ºé»CÛž"ÂêÓµ`¶Ô§Ta”Ž3€öÄý¸ªnÔ˜6[ ]¤QÈExø¿¯׺­ ¦$ɳ›ŽFO"°öN8ƒº©1IS3 {âqZ5‹ÉÍÊ á!B.µÒÐõáK-g=oË ú–c¯3•v‡çaX=8!’£›öeO}N ß>ˆ C/ÂW×ڶ="lj:ÿWµÌჯ+D„Õ¤³Óp•÷J·îxjöA¾;ù<×`wžÍêŽå»-[ NfÕ‡[„_–öç×æO\lþk ÓûmmïüÙXXÚ^]Hxíœç}Ê›e,=ØÌ.ó5£´OÔ[ÝhÌpd’ݘ0Ô"lú°$À—/­uÏo~6¯½m»i]Ží­_µ¶{Þ™w¡!y±ìÖöN BD¸"´ì p’'•B-¦/Ú×ßóqËv6:¸þÝ…#¼tÛ[i¹‡CÀ\2É+ÖÂ`Â{’¦—0Ü"lºràB{óÁÓ¯æK¼aÓߎ?s»ýxÛ!Æ0Ùî§ y2‡3dø[»è/y+3 å hØgëL±# »oÉ@„õT2êŒûºj…ˆÌâ°wæuu£î€?n¹NH%DˆÃ+Bí&7-?â°w~ÐÍb2ÆD¦!BDâ á¢rSLÒÔ@EÊžz7.‹l !" )Ë×S–Ýôñº'4É'dø[cnñÛy’ÔÝ7â–=õ©ëËd"D„V ûþ½áà¦ïßä*„£ƒbÄ÷‡I'Dˆ’!†äÔ>ÂЈÐ)-LÒ "B#–Ò õàADÈŽpßEhjÂ…ôé„¡)Ëö¨‘Qå8¸Ä#â» &'¹eðHÙJØ1jù¡'E:!BDÂ’Q''º&ÂAa&/FLu­„’3].¤"D„!ôà‚¯¬\È2ñ A±¬ì©‰¿€ !" »,§N8?KTw&•¯‰oŠ¯õ÷áÏ–ë%ÓE´!BDXune¥ËraÏ'•˜¼LºVW¹e07¡|HKÎ[®—.ÉòîmDˆ«Í=‰ö˜õP3ZÝ€DøÁžºQ§'*÷H)Dˆ«Ìäñ`ˆ 0d&ÌÓKˆaÕéYN!BDˆkU„©åR "Â0•Œ:£Eeö f9ð+ñq®Ay‡ÈÙAåÍXµ]5¤"D„aa*ªìÞêˆË3¢‚ä™Ä;”­Ñ"D„ˆ*¹£À´–=3D7ÉŒöW™—;l !" w㦭NQÙÅìfå.É ÁrW²®òÝEÓeÓ¿KV!BDX-ž¤eÚ¶<¡|Ïhnä>Á Ár$§|ßh¶ãhZÒOH+Dˆ«D^mx¨­>ù<× \u£Ž3(yÒ "Â*Ñ•}Q'D„åBû„…Mø"ÛEZ!BDŽR6„ˆ-!å2ˆ6´§”¯9vsÉïÈì2™K&é¸,—ï’ʧ„nt "BDˆ˜D”±SiB»ìÊŠÊfZ ÊŸf" ˆ"Âú'U4^ÊEíà›Ž¸|ChCð|£í©w£ÆÎB‘aõˆÏ’¬X‹P9ø¦C’3„6ÏLR”"LX‹pE–È,DˆƒfAâó¶K9Ó¡­LH<"³¡µq]qøÏZÏrÆÞ·‘ Z¡— ˆ2’‰§’Œ0ÁdLP† š2mã¼L&5mZÒÿ²¤iƒãÚܻڻ«}žÏ|ºèüžÝ½çÜ;` îÅß”G\mWq×Ò¥?"Ã!"Ôf;öñ'+¯z“½%!ç¤À\Y•gêo~Øq×Ò¹l“aˆê2 $ö=Õaú›¤Ù#©a¾ì)?§ÙÎ^ìÛíLI1Dˆu¿Œºýè«óié_ßýû¼3‡Ù‰G¼¼_ ¥h‚Âê»|E„ˆP›èO ~öû¥ÿòñ?º B¦úF LP”É0Dˆ“×1šÿpégþp…MÓh° -B:G!"LžÏ—^ã‹7?–·+x0>Ÿˆ×„•í2"D„ˆ0]쌣.Êáǯ‹péƒ7;e¤¤2~0%£áü™ªGÂÛ%‰½_Æïdˆªs$aÔEùÁ-.}Xˆî&;¤gôÞœ„!G¬Ý¿o4TîÉ åˆ,C„ˆP™šìG½sÿ§Û"\rïþESTŸ¶s70ÝŸƒÖà¾<”@õžz_š±‹p_jd"D„ªô¼R'âšÜ¹ãÁ¥OîþÅLýœÑ ÅðÄÀzKùp»5‹]„’ǽ„ˆ*3Þˆº&7ïŠðŸ¶ŒæÉhˆƒÃ\ªG7Æd"D„ÉiµwEøWf' S}£LP BD˜qZwEø]tD„*ôz¬A¼"Ä„ˆ¦h‡°7‚üâŽýۻƻÝåyl¬Æ+B§Ò‰_„=v !"Tñ ³ZœCA–n{ð·/hÛT¿€É.õ“Ï÷†9B%÷•§]mW6c÷`qÕÁ„ˆÞŸ‰8ó8£úçÿ7=Šò±2yq!o„q‰ÐQ¿‚¢ýtî»Ç–™iˆÞ›¦LæR’“×–ù¤|§\ÕÛÒ›rF>+0± œIS}Ìljÿ˜µ‰4É4DˆïÍgí9Uë³_gêÿ^®UÆq_ϯ\'Uí2åögd"D„Ihý§¿ûËO“ûQÞ;A« Ð7Jã("D„)¡e¾Ó¾â&@„ˆ"Âlz𭯊¼ÆÏõ5k¿ O1!"D„‰çéq1þ:{ÊgúÛ¹Á¬Ä‰ãpû„9õsÖBo}Ÿ’lˆ¾?Å@â?Ø:×hÄk_‘Ì*0G¨ÊWÆÏÕÀeLÖL‚"Ù†á{s,ßÆ_§UOù&Û"ÂxE(ê³>¾xÕø+ì[9&Û!"|oúÁÐ@ƒ÷¹úv^øÀ§È`À(~TVŸ©·›çñZàO¶!BDøÞÔ;&öò5z|¿J2C¼T}?e£:Ù†a¢[F"„,õš©1² "ÂÅõ "„”‰"BD˜dFCÛV}RÃÖ&ueVŽH8DˆßÍ_ Ì8Y—jl’ɪ4¬*‡›„¡\(³±øOÈ8DˆßÉ•”ºžTõ ˜ì-™ÊŠ0>¡ÁD¶”´1p…Õ-ɇá;Y–'Õ#ñt®weD?;:Ÿ1<92PhY&ã!"|'ÕK#{kê3YLÓkp†L`ª¢3Soç׌ìÅ_VÉ8DˆÚ2ªÕ3ÚÜånzeXUï6Ó×7Jô!BD¸"$‘!…}£ˆ"B<È!d[„˜"ÂDræ^˜¨Ì£¶!k"ôÛ&Úe¬ ÷Œ¤C„ˆðí¬¸rf¢4ûâhÄÉ÷ı½k Á÷pŽôMTÛ™¸+d"D„oe"F:Ù:ÆL¹ ô‚D¿°²¼gæ¡tWJZÏÒÇ„°.k Ë±Öw’ìš©¾½e.èE„€–Ñ¡«s¼š+BX¦. IDATÆ'"  s¡¦½åMÕɇ!£z=£¼"„¡y^IʾQLˆù§'A„zívyŽWÓæ$ 9bM›i>Ä "„Ÿ7Ï/S*B8XÃ}£ExyÎ6!"„iˆo¨ v! BÛÞ=2T‚¾4H@D7/„%93T…k²…nÉš¡<“¯„ˆ<øÁ­•Íá…Ö±ýv¾ÃyÛwtv sž\˜©ÁrÍý D„ðàAÑ­ÎEn?†ÇsXŸ^5Ðç¹ÞC](CEXæÀQDF[F;NMç…PZ¼ê³îy묂þaKk¦¾æthE„ˆ0‹ÔìudHþêÃa4 uî—6:JH"Bؘ¥Ôƒvmú‚øå0)¼˜ÖR:AaÍ6ÈAD˜mºž›VÒ3 £k`¾oÔ¤]¯K"ÂLÓ7uŒeí†x0á/ý2»¦*±-}’f™'A`êÓh7"ü ßÔeL–5 î%D„™fglê1ôS­ ˜lõÉ IâѪ֓]I>5U‹ã’Ò2j„}ѹÌÔv¥CôFÂõ5k ­»˜ì5Ù§q"ÂŒNÔ[:È9O¾$z£àÄq¸}"¾Ô›©ÏµêŒP BDh`‡°—ÖBÛö£9Âèö5w½MÎöØ%D„Yõ ¿ZO«í—\„ÆÁËÔNPÔW}Lˆ³Éž¸E†3Ï`À$¢oÔ¤‹®ì‘ˆˆ0“ä¥aNƒ¥"Dxk—°dN… É“ˆˆ0“\žû2ZÐë+Àƒ°€&ÌyR0ömôü’DD„´ŒÆ˱¬jE†Û%s!ytµ(ìU9¦q"Â̈pàµt#/}B’G_ë.&»å !"D„Yñ n«ŒË LÑÑh°Q1Ô›©7:@ ao×SëAÛ 8_-*ŸˆG›ÚÆQ«¾=F„ˆ0[ŒJ2L¯sŸ“¹ˆ0‰|žK¯‡R!BD˜)6¥e®âNO"L 'aÈkIéµíÓSsuÙ’MDˆ3EÛ»0VoU7@„Éá€3z$ÂÀ­+Ì ¯a¦èÍÌ=x>Ó»€ Â⊰$ÏÌU欇!-£1áë]Àd;í¯É[H&_·­÷šø4Ž"BD˜N\­Ž‚œ'ôÊ@R»e4ÏLʹDˆa¬ÌÊ)"¬pS¤ôz¬A”ŸF¥’âQÂòl"ŒЗ½ôzðF„Uâ6:Ö=oUˆŽª®špOúˆfƒ™§)¡ý i!ÌFÌ7vŠExÈ "ÂL°oôhߧy›žQÞé}ûIºO‡¿a&ènwÍÚ†0D˜,F#Ö Q& dÃ\}Þ„"D„tŒ&ý&D .B³—1e»s"Âxp¤¥÷ÝÈ£ÉMÏÓûúß"BD¸È´ š=u®œµdNuïbª,Lˆá<)4Ç)ž!dš>z®¯YƒHÑ©7=K8n!"\lzŽLR-Â`Ÿ¤”Çáö‰hÙR-‰8=Dˆš3 ëi¡MhG s„sx¸Hó(¡Uå?ìoɆ֊ÍÇiw½²²É:–»Ql)Nâ8'äBX¡rz QÕ Bm¯å®Bý½¶'(=àvv盹çùàQ¾yvfÞoæ"B¯éÆ6›”6öÛ4"Br£½z{ßæçêfÜE„ˆ¨Li~€ g2a ´‰0—â2ˆz|€)¬³3 .ì<$lË€à("D„žŠ0K:£2‹L² ŸÅ‚q™N’!BDˆËáÖ×s»å5êl°’}&YÐÏ~Ñ'(:#»•:ÿú"D„ž2±|wSáÈ(Ýôà…{ê-Gƒ©L!"ôt[4•'n‹0ž0Éš¦×c Ls2ŒÜáIDˆ½dI,¿~†dFÕAû„ÊÜh6í~³Ê"D„^Ò?´zðp”oáADˆ ?­üÈêqþa"B£`B„%pžeô¤(¡íǘ~žÁQDˆKf9—AÁ¹¡ÆôZÆyç®eP+øÇ>|"BDh˜G–˪و vÇÉ3æWpƒgIÁÜh=n4-º>B„ˆÐ7æÉŽå­Ñ¢{Eu‘»L°àwEênGƒdŽ¡gtäŽã"¤›¢pO½uÞ‘"D„~1’|×qÖöß0½–ÀxÌ”À›ýšã"ÜÍe„¡WŒwì¾ÇÛ\ªÓD¨’µ$Yc4æFÃú’ÝSÂ{;cDˆ‰Œš¬)É¡Jè#T+ÂLîY.[¶F!4ÉP"<ÈŠ~Ö‚2 0!"D„Þˆp&` ëÖ-åp|Ì”³Ö<è$2C„ˆš: \¼²\OÍiÁyöœ2µ‚KœJá?ú©åVÂàjqŒ¡'lʪí-–Âç%±Œ˜ZÁ%FÅßb² Ve"BO„+ÖÝ tÓ'tÓƒSÜMœï©îÉÊ"B?Dhý²¦â ÂzvŸ™µ®¯ƒr¸ŸÕ]_61"D„žÐ²|Íèh½Fï„VΣˆ×'Ê¢ðŸ}m}d·v—[l"B"£†`Š¡Úl#}„ŠEÙ~ŒégE„x°46bi BDˆ?Ÿ†Ä˜"ÂÂÌl·"]I‹ÎÃLªe1™XþüåÑì§.~0,ú—ŸJ×výÎfˆ:¿LSÛI™æjÑ#ÂN#,O¤“o¾ç×ßýÙÇ_½G"¬­Z/ß4 !"tœ©¼´ýEY<3Ú–”á%ü·ÿÅíEÞNážzûÁK™"BDè8yÒu_„±´p†<ýÍÂiø÷ûZôÔÝ$G„ˆÐqö.Ü÷`88|Ž4<äìÛ…·éz÷ŸB÷Mx±‡!‘Ñb,Õ†!™QÅôzÖþé«w<¸ð#3Åÿö‡µ%ëEŒ!,FÍÀ1 ¶*1­b±}â÷ïŠpav~à€¼`BDˆ з^A÷E¸V~Wïyp!F„ÈŠÜ·^Æ}DˆÝe¥e}g4Y)<´y9¶<γÌÖk¯ßáoýÞµváïÀ•ÄúÞhke"BWéJÞ²¿5Z/ž½‰¯ÊãäÄZ¦ò}þҿѽY<7Z·¿5ÚÊ¥‹¡£tdbÿtÁÀÖPr‚®|äïï‹ð;?3Gö«x"Dˆår8r߃aC¦8ÃKÎ~÷ž'þÈ©‹ví›p4¼D„ˆÈèO~Å¥ø$PŸ¿Â~ò·w=xû™‡¿ñÕ¼ø£„ᲂRF„ˆþDÖ“M„Ê­ýÓOo¿#ÂÜÏ6p¡D²Ž!"tÕƒF`B„åÆ“Ä^(wûmþê"ÔûÓÏĈÐ;Ž&ökç¢øLx°dì¾GØy˃O}ââ5Šý›7&GˆºÆ8–'ö¯ëMW ŸF¿7F„ˆP-=·mOŒ<À„+ŠqIrF„a,wo÷!"ÔÊë\.4”ÉiàAWXK’5FÁ6䎆 ¿ü5"D„Z['¤ÑÔP&M£¼ÅÌYôVE+7Q:*¼!Gˆ*¥¿©âÁDd4ŒäŠ©“¡O\¹mIGpt¶ÙG„ˆÈhé"Ì嘩³ŽèŠÚHO=ˆºàÁå #"\ùŠ©|â«#"ÜXÆ„ˆþ_nõux02ñîDXÇƒà› ë&*#t˜° "B}ŒÒ}õqaä&2£à!FD¨#ì§#DˆÕ±££‡0xl&À¤Y×Üèê”#y¬¢Ð¿Ÿp!"ÔFSR·Ê—y :Äyñú„K"¬å—* }žJ"BeŒ÷<ÊŒÆ/Ϙ5«>Âê8{{”í=#BDHd´<Ö$åÂmDèͼŤńG!TÕMÏ L•1a¬«kzê½4!"D„FøÆÈo;¹É¤ þq3iÙ1ù"BDø?ô·¯tÆ,5Ò;rB~ž)4Õq—bpµÝG„ˆP {²¥£0 =ÀDf<ÅHy(yŒ)¶d"B5 ÂHt$ªƒU#0áAÀ„?úÓªŽz¿”¨¡–Ö‰xkCGa\D,]£×c \[F:.— 6¶â1"D„Zµ<ŠŒ†m!*S´OT—#q-ÁÑ–g׬!B"£jD˜Ë˜ úÉØÌ[LtP BD¨Öƒ†ºéóçL˜•qže\±VÏs¿zê=3!"t—Ö®’ŠhNŒ$e:éóe…œœ0²—vŒäe&M%e¿ÛB„ˆÐ>Çyª$)shhׇɈË|ôüàPI^&Í!"´Îº •|z€ "tå1¦ Ê:"D„ÖÉäTIEdfN?! Ÿ¤gJÊþT2Dˆ­Ó=Ðrj~40rDxÆTYmŽ‘Œnµœ9$i©ûƒ."D„DFÍöNÔC¨”µ$Ycªd’ÔB‚£ˆ"Â;û¸bª¬ú«æÊÐY:"D„ˆÐSÒMÏŠÐû½hCéjLˆá˜f#%¥0˜ù̦¬Oªåø˜1¨v >5T*5ÅŸM!"´ÇLR-Ýôë†`"3 Þc¦RbY×ÒSŸÊ "BkìËTË­2™™˜ð `ÂO}Œ)Ór»ÌTö!"´Æe[Íõj[) B€*—„é–škÖÚ—ˆ’”1•éÔ˜$«æúš1¨šZÇ·¸L€!"4–M¹ºbΣˆ×'*æ$Í!"D„þyÐŒ‡’“­:ÃHaõcžËÐ7ˆÚ‰Œ^µÔÁ®™ÜHzÌ’ˆÐz†zêÃ]5S@ëj†aõŒ#ÙÓR§’™YÞyÀ$Y5î´«œw̬õܸìI4F„ˆ°r6%ÛÐRe‹Ì(ü“½óým²jpAéû ¼ “¿Ü@E`Žè“ôµÏÓ¦èÖ²¤ëBF·šâVËÖ9… 1Yx“¥YàBFüàiÇæܾp¯ÏÝÓëú4V‡ÃóÜWÏ9÷Ø82ïKYÍ0&o8cKˆ6¬š±•@h"DøRØ-Ýe¼Iû"D„Í?½£¥ˆÈë‹eð @óM˜‰õi‰¹;"BRF_ŸTš¬ h—¥t*Fâ("D„ˆðùœÑYdŒdê†À¬TÞ("D„í+Ââ€{Œem‘Ùü­ åaP”šÅ¤Ê„EDˆ›È%[Róð÷• Bÿ>¶Ë²ûB f…’š[B¯d/!BDØÄcѤ½£æé¿+TD+Ÿ'>6Ÿ[™ -ÖBà¼PÅQÆÞU îؤ‡aÓ˜·)5.n/’3ÚÂ\£½k8ȼ5m\Mú¸—²óˆ6±ºšgÿ¦ bˆ Æ{SM0¨ BDØ–)£¹x„%´¢aË'Ž"B<rÎhú1¡Ú‰ÇióF¹#D„íéA!^±Ìä ‡j•5…„Ð,&]"ô!"l ã‰)7„q;Ah ƒÁ dÂ`Bª¦^• §ãˆ6”­éyìëç„Úmgí„Æ0 Ž0,þª©OœÓ“;çÕl "ÂÍç¦Mê™Æé]•úV›ž¥ša[qk6-ušrUODOÚ›ˆn¾ƒKzžúJRꞃœÑ°˜žf B"&u¿ž¬è‰ —Dˆ›@Ÿ¢ ÖǃášÐ·…>ŽFa»¥Œ¦ ˆ \Ò$Ž"BDØú9£#qn¡ýn ã#1*(!"|YŠSu=˜JÚ{„Åxú”5‰{6™rÑ„õ©""D„›HIS~˜œ¯Xÿ'ÂbX»vãañ“/–k¦*,\µ%D¸lßr¼³³ãìÇ/úìÃCÑ­GßßÙ"¬öÛIEÏ{©,ôçí ¢bHPG"7l^è«d¹¤(0LÚþ*"”çd·YäôóŸõ|³ôپ®iäŠà¦Ôð‚""l? ^ÔêˆPœƒ£Æt;ýAÃv[Ö~vjAÇzŽ6þÊ‘÷œañ†¦+Â;6H‘3ÚòÔj¬AxHݲŠFu{^ýFJóÉÖ†>ODé]ýÙŽ¨Ýõì€ôˆ1‡Ü¿#TupA¬W""DøšÝe.¨ ÜŠócv/þtÀ˜=Ïm—ôwИ·¡®$i©T<˜Ð± J³Ï˜ƒ‹?íÜjFϬúì°1Ÿ.ýØiÌ¿Üaµè¦™_ˆ‡Ðžü’I¸)ÂbŠò™1Ýe„î5fתÏóÑâOûGMt§Ó"ôü977„eûÚ“ïlÙÍ-áœï!BIþ»|2‰ì2fïڣюÅ}`1GÝ>±ªD˜›•«¦ÿ‚€—/³áñ…\MýlN•í "¾"Ü»BŠ¬úðLgÄŸnßß{ؘ®mN‹p:†4=èç¬P{¨‚-3(<(Ÿ•Á²j×;bÏiŠCA0ÙbÌ©åâù†öVºIºÈž{°%EX«izÎ+I+u¹1Â!"lßKB©v£ UØ<¯6VE„‚Z¾ŒDv4ö}kËìYôàÛ§>q¼ ^×À¤ÔxmrFÃåV&C‹µP‘z²ªÚNµfâ¨bî5æÀòI¨1ÝkRiŽu›Ý=§w7öŠÿÐZf·yŽÑü¬,)ìûl:Áµk¬"Lg¿W$Zïÿ¢EDøÙÚbÁæígµgº{ç…{ÂG¡ê"BDˆÐÅ D(ÉéÕG£[WIîï÷ÞYñ÷Vw¦ÙöZûÇ—-ÅÄmG=˜*× …ÐÎÔË)GMx{âËC±{V'˼óO¥'ŒÙ·Ñó k[ë"wÈúŽŠpÄÆ …ÐÎÄ¥ò¯Õ‰Ð·CÜJq`EÑ•â[»[ÜoÌèNWE8bU¥Œz7KR_b3¶D( •j•5•’ÍH¯”nª 5;‚¥øxEƒÑµõ‡WvšéÞxµVaÑ÷UeF{y±/±¾}D( “Á  Œ3TY_ìx%¯*LT|¿ˆ¥¦Éów‚ÌÊÄ™¥?÷,Ëí3êìÑhE—0 C…:ÂÐy\ÚêÆÔ0a…¡»—‡/-$€®ª‘øȘ7—§÷º|G¨ìì¿&v˜CÎ(;B{™2Ê®PZ®–0¢û’pÏòO«®#ÛŒ1'—Üö护×D¨--z6^Àƒ®0=͸bÂB|ÖÄŽŠð“Æ>ðØBÌÉèr±Ä®¶-]vŸxv€zÔ˜®ýnŠÐ«h{¸)"и%TWJØ^ˆPjþDC€§{:Ä[úUã7ï?óßñÆ/÷>u¶Û˜Î#NŠ°ÚT\õ`>û€(í΃lÞUV‚þ*"âD÷RG˜C;׈0òÞÑ¿ºÅé¸)ÂyϹ*¤½O„vç¾Mº*Â\ÜÎ#B)Îl9ÞÝzøàò/–E‰<ÛÑíÚsàˆ£"ÌÛ’®gû†X¦Ì˜ÂçéSÖ dËr5õ™º¢EÉæ¡VZJ„¿ÞÖµ!À”f6}èÜŠÇ™>6ßY©öÚ†1y¹Û¿"BDè`Êè¼Ü¦ØÄà°¡ŽP÷‘Å^©¬'q"ÂMgÆæÉE„ Š\þ™A„ˆÐ=ªË‡I!B‡¨ÕX‡D˜ö0!"tL„wóãîÖâAiê«%ÏßE„ˆðu‚º³"¼’ôˆ xÉ+Ί°ˆ¾3öª»]e2vŠ°À”`û^u!ãªA„ˆð5¸Ü¯mC8—»!L2 `‘Gr5õ©ìœ¶-aÿeDˆ]Ê”¹ 7€)–,P<¡€Ë—Yƒð¹Ua`//ƒá&rNð'FWP>¡ƒÁ˜àÃ9Dˆ¡ºÇÙû6¸BÎ("„M@. -øÖĈÐÌè{ž)žpíL.“á„Ú-*L—ñÁ "ÂW¡˜ÖÖm[Öƒ_úTpíkàšõ™°dÓEDˆ_ëÖwy"oö!&Xæë‡Y‡EXñíuDˆ_š½«®EDEìM±qDð·ãr³˜bu ©îÚ"D„¯Àù)móxüdJ.³jz€ÖÔ§’¾¶ü‚ÜÔyDˆHÀÏüLèSAµÊ¨àçL\pÓ‰£ˆn ÁLäŒ*a0¨çt.]&oˆ: BO!>˜œƒ:BM˜ò'4FDˆ_ŽI;©ð9¦ˆ!´Ä–Pa)¡×jˆ¾ ¿gí”Ó,ô´0=Íh¡à´ §löwDˆ_‚’Mç\a9¸OÔXÍý ì²si[B„ˆðeº«Í éë !WåKZD°V„r³˜b±}}©†æ!"lí\™!Á—4móô·Xí¼M ~ÙÔ÷eZ}¶ "ăë0cûÅÞÑÄÃQO OŸ²ZÈ=Lˆ½dýv†¼QDˆ…‘lEΨ¢]H<Îî\‚G£6Ža ‹°oNaƨw=Oñ„‹PGè¨cùë ÃÈÔ\"D„bLå™F "Bh%ÆTÞ°Œ!BD¸*6¨»-‘Wµk è{IÂmÖ[A„ˆpÔBOòòb’€ð"&%¯â5Æ‘™ Žᆶ„újé‡Ço3ö:àE\—›Å‹ådžõUÕW8E„­Ún{Òú’Õô÷x/âždM½¯²c±‡‰ðçµRÙ ãCÍ#ó›QŒdíÉWMâ—¯`=ž_©„)¤1‹^¢gõV5&¹],ßm½7…ÔÂÒŠ˜=•4ïš—­“ÔËÊ;ê1ÞièbùŽÞ"6/š©@EÕ0…´"fÎJD½3é·#j 2öÍü».–ï®”°’^Ü”#~«‡)¤1kR»éõ³ÍˆuÉ÷¸Ý¹d£‹å7°î«Ãˆmõ0…´"fÌVÄf¦¡¨Hž_÷õônµ©‹åÚ8꾪”âíQAL!­ˆÙrš™q·ƒwöŒZOïä÷Ï‹ºXž×Ôà+½×»ÞÉ›BZ3øNua!óÿê‹‚äw±Õ‹JA˵“iZi íªˆ)¤1»¶#.T!Ïí}ûÆ&],×J&üR(6UÄÒŠ˜YWoËÊ0ž.6®,÷ý×ç™Ïy0…´"fÍÞYı2èbßuœy÷¾QSSH+bF4Ó›y÷îèb߶qØýQWSH+b6-¦É·z®ºØ‚ð5Í"1…´"fÒÒuš|[ê ‹}ßÃè¥Ñ’Š˜BZ3 ÿˆäè?ä}«”˜7ak¤‹ÑÝ,³¦"‚pzZ­ÉßT#®—ÔENã0³³aÇЂð'´"þZ“_yØöá´ œÎUæ£n¨„?¡ñ×´R·?®¨ƒ.6Å÷á™ìÆL!­ˆYqžâ ‹ýÄÆàË—*gn„6…´"fÍÑ»ç$ëb?2üò^Ï#ZÜIDAT¥CšBZ³§ó¥ªÊ ‹ýd¥uàeû‚Ömyð…L˜BZ3c%"JC Ñžm'àæCk#Í¥KÕ0…´"fÍ~Œ˜W]ìûnú{lít0…´"fOÕìÓÅ~î±x]/—N\5…´"€éT”€Ÿ»ŒØýÙë1ð^-m—{Çç#ò~Üññ#åÆàÅî'£À¿„å‹ GFʱ|'‚€ÿHÖ]ÛÍz;ÀÖ§ÂÜ‘rì„ à?„óƒ*7µ”fí—O++‹ßÂÜ‘&á¸þF çå ¹oáä‘Aÿ­ ,4"Žÿ‘ œ4’ àÿ„[Çkõr©qš¹Eái{µ\kì#n&Æ×nÄK6ð*O/¥rõì¥?Ø ÓHïë_©=Æófý­¾ù¼Óùq¥·›f7«9ç ÓáÁnßææyÿÐFïÈñ§A8ß[Çõ"êµ9la$Oß?^ù7Raks°“ôe.?sΦ ¹vèÍ?´^ªõßCwûoÖe ¤³O‚ð&z¿Ð‹¨4Øêó}륜"j.süæ-â°ð¥‘êµçVë¹”Ž´ÚžZͧ§­Áh9ç Óa1eÉmûÅRZÌuömÞG”Rê*­ˆ‰A¸tŸo­2 ¼«ˆëζ΅ZÄéðøNù;R#¢ñ«ÑÇ);‡>Þ>‘sÎ0U>¦EÕm÷åAZ¶oj_¬ÆÛV÷Ðq^Vç»Öjíœ\=ÏDÔÊ ïÖ³—L¯Ò?²Rø3óFZ,Gu¯ûwim¸œ„9ç ÓáaÄFÿõSZ”¥?N‡{4÷Ê9A8¢Ñ{2Ú {õàünp|«ž“ƒãFz¼8¾ïÿJúËç9A˜sÎ0]¾d2ê.ÅÞk¡pñÔ?´=1+Ë™ÌJužn?eïyOÇoW#Š…ÉA˜)³Z½ŽØÊ Âœs€é‚0EËÕà‡<¿‡ë°¶â¸ÏŽ6"j7…Ñ ,<·Sí­Ùú9^mïl©äaîHm¯W§­—ÎæѼ Ì9g˜.73©×Þó¹S(œE,õ\LØ,ÓþñôCÎ=¼u—x¥â^ÿxD9q#^‹gÃ¥b^æœ3L„gÙPivB¥öÅ ¬¤ *a¡°t±QîDØêV?[§iY¸arpûо¬¹Yéou–mÛ‚0;ÒRz¹yqµØ;¹¼ Ì9g˜._27øýz‹Øël–iL¼ð)»D?>Sô©ÜM«Þ&šröÚçÄ‘Zû¿zGKc7Ë|ùÉ2ÛÑ¿0Ù¨ãùúãð?= 2ÅÛêká+#m Sn)z«½A˜sÎ0]¾ŽÞœÞ~¤Ù^9ʽÏàZ“Ÿ,SX®Ž>Jm{¸+f?»",ÜmþñcFj‡8‰Þ5УˆF&sΦ ÂÂÃÈãÊ:ÍÓ‹N®¼„í§±Åý0¢n"ÊÝâEDin„íE]?¼&tœ±swí½¤ÝUâï4ØÁð_É;gøZVKCí0™k_D³x’–YÕî”_i5Wn´®;÷N ¹´"+/²ÝŽæåýC¡ûAãà³Ã“~˜}2Òù[D­¸~x¼Ú¹í¢3È^{êþñð&?Ͼ„Y”¹{îÿxÝ¿)áñíÝÍNÂ@à6b½ ! ŒÕV1¢"¢rëËßÿ!´•Jÿb<µßwl“ɤ—ÉvgwZ«'ÓËÖqù_Ë¢!tU¢ÊNYÚ 6 á<ݼûU¤nT†ˆ³ì¡x·(Ò[Gû$gø[! ‚§¸—.“êÛöùQ%‹I¾éwúm!,6ò+ïî¬7Z&ãÙ<Ø,„ÅdÞÉ/"WǽQÔi]÷ƒý·Ud‘Ô}x†Õh»9ÀÿoŠ€ÚëÏnË›eö:YdÍ@³ Ö×Àt+'ö N¢ìåý˜ÁNÓ(Ô_˜wcÆÓ8ï}ö9hšvüÑWÚ! úñMºL†¡ŽQ€zx‰¢ëá÷4òIEND®B`‚metafor/man/figures/forest-arrangement.pdf0000644000176200001440000001616314746402760020445 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20250129114149) /ModDate (D:20250129114149) /Title (R Graphics Output) /Producer (R 4.4.2) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 3211 /Filter /FlateDecode >> stream xœí]o¹ñ]¿‚8 …ŒÄ{ü^.Š<$Á¥mÐ=Çè¡pü ³[ñJºZëkÐ_ßrø±Ž$‹¾§ô+#Í ‡ó½ä¬`ï™`_Ø¿'?†ÌðFs&”Ækdã8Ó–ãÇýœýÄV“ï7g~î6ø²s¬ü»¹Š?¿ý¸åçoÿ߶†ýgrqÉ8»žöþ}™ÞpÎ>LhõΫKÓX\|ÂÞÐïRwøÕÎß÷òîþ~à{~×\5rßïFï•Ïp³C>Ü&gå_Ô QiR-Y–'¸gìcÒš'b þý®#£¹–Œà’TÑ̈́延é<âxFÓ6-$²QDyD”Ä3£|»StÝêFfa&Ú¬mY?Ñ]ù{Ÿ~7Eè'· Ã7ç“ïßÁžÙùg&DCü߇zG"Þ±ó%»˜žÍV×ëåéŸ?Ÿ€w°éüjØ°ëëyrÉÎßO~8÷Pøî6;í÷]-ºFµ…-¬hdá`‹G(–máhЩ-P.QZÛ] \ ìð‹Š’MÇ ‚K”ÑòŽ 4FÎÛLþ„­´P@@6Æ¢±¦§ê„A“Ì®A‘àÓÙ&¬Œ¯gŒužÿóžI€ãêzñëb¥?kVÕ3†F–ú8Ì+ÐÀëûõj³^!CSÑü~º Ø濃½Ÿâ¦ËõõpúaÝ÷óûß$­Vm2Ü_fÈÂu:€Ð†Ûy\¯ÝøÚúàÙGîvµšž2ðƒJ ÷Žâëþæô‹B/–óÂ/t} ¡£ù ³iw¸˜R:ß7A†Q*t¯mµXÿ¤‚Çé©MÍÒP„OV‡®ÛUä²(9$$5’jL.,.»jÑ1Þu 6¼fçAm žàx ¯²XX"7©­Â/iã¨2«Š(Ôˆ¤6[ñ´CûÆ #µÕ,MÄðÐAJ«q–@Œñb‚³Œ«Ú¿iÝ(¨ýÖ4Öxâó7/*Ö†¶T„£] ëª<–!ÊhçRw5š#r AË_•$H€pþvÐÕ„K /‚­Õmφ áæÚçh°8iTM¶ ú"æTMßAôEЮªä÷ (ÂN(SÇÀa]+""¹ž<ÇžâUöóä}Q}¢«ˆ? r§‡¯® gÁ“F5©^AæÀàÉÁWy r57>ò(í]á6Qòw¶¢ÊuuºŠÚ‹^Äœ® ù¸xŽ8Qá0qñoª­¨3´8†µº"Øiñ"ØdM²Œ‹C¨QG%êM^DZ•³ê¢Ì=Z{oœ)©ëž]çÐÖfg¢u²Æå¬? -ëœR5š'r“-<Ô PÖ¹š»Ì™®kTWžr<º€£_2À5âòp~–K¼0ȇESøUϯsÀ:jWÁÏtÅ)Ά€´Õ^>û’Á‡Ïà—‡NÞß]ÀGÇ=?§ëùåÃ!”O·a¿Úóã¼^ùLõÇ…ç'„·‡xŽ|é(÷kѾ²1ÆË×ÖÈùå äÐ…ý~¶ÎÞÿò ò“Áÿ¬õû•ª^¾|æƒûÕÚÛ·• ôeöüò ú‹ñú³"Ø÷þœOxŸéðJLú `­×©¿_ ¸O°–x+Ó'ü{9À|Êù«-Ïo|­‰pŸaKú‰ø{­¿ÕÄHwÎÏy˜¦UîÜ)|Ìê~„ƒ] …–Úµ~/áž(À}†;l¹ûŒOp° ÷ß)ç/’&xƒÄy„ûkƒ}Âpàá¯ö´õ"­ŠpŸaØB°-átÚb¡õ7D‡ð8î3 ëzŸà Ót?ìâD¼ v!Xb–÷:M÷GB'ÿð7ú΄ <š4"8Ýíoè{:f~Ž™†Ûõý§éæÓ ›­®Ù¿N˜ÃÃçÙýøy/sË5FDæŽã gg—ì¢3`oÿzyxw#e‹œ§ãM†Å›Œ««Åj6̯+$Ã;e°…ç¦âMÎj¸?ŒÅ¦ëñ Qy ‡ÔSü;º…sãÅ<ˆ c>b^ÞÚ‘ï!#¥å`RðΠ¢ê·>‡ì¦„Æ7Ö¹Ê5q¦‚*Úá ”°¤£­‡${(]ªR[îÝ”8Æ@Úú¨¹‡R¥NyëIÚJ›zâ­O—{(]ê~·>Øî¦Ô"õ¹[Ÿh¶Rúi.¼Û' m?ƒÙCjSóºýci—úTq°IÅ“()éî•8Ø“„i”`F§þóî…x%v'"·©Ý¼{!_‰ƒ}ŠÈ»Ô]Þ½P¯Dr¬4›õm*g³ÿö‹å¡ÆÐ ;ÎDz*ð–ãÓm&Mñ½{è·ËËC¤ÅœéSKÒ€¬ôcMþ*÷ëbÃúÅjÎfƒî›ì협MИ€¤ðù4}ØÌÙ/3h¾[Þüò4Úͮ¿]wCO²õ¶{ß²¢EÕâ¾fQCbyƒÃUÿÍkwÆýTØÙ|u3ܲõg¿©aqu‡Ú¢ƒ;è«’üÉæÐsÛìeÔ¥á]B!¸D‰TÐüË‘¸Å³´’IĈ< ŒG³ãcŽ#òÑ’¡ã÷4þ0#–„/–cqú†îõ€×àøÀ_wtV}1Aˆ³OèGqlfu3ÿ4 ŸN u?É*¥™ïŽæ­¡{ó³b‘T>þÔ,EHïLþRÚ0–ąÿÅeeë»æÄ>€Uì[?I^°O‡a¥JÌ ¬a®d‡Uó”hUëçyóV1·î‘ä:+fìé¬0ZÛ¯ÈÓGø}³§ƒèéc~ <ØÓÑlþ!M½§/ ž0œ^j¾þ²Þ°_áÁÒʬ˜ovô8†ÞîÎ|†Å¸#óíf"³hijëævÀì‡u÷B\6‹eÇV(ËõzµZ8ξªÎêý+IIùsJ^¦ÒXûÂÔ3‡äï=1 z|Ièø’ÐØVÇ—„Ž/ _:¾$t|Ièø’Ðñ%¡ãKBÇ—„ªö}|Ièø’ÐÿÙKBÇѲãhÙq´ì8Zv-;Ž–GË~£e?NþQ “Âendstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 720 612] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F3 /BaseFont /Helvetica-Bold /Encoding 9 0 R >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000003575 00000 n 0000003658 00000 n 0000003781 00000 n 0000003814 00000 n 0000000212 00000 n 0000000292 00000 n 0000006509 00000 n 0000006766 00000 n 0000006863 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 6965 %%EOF metafor/man/figures/plots-dark.pdf0000644000176200001440000005577314661373527016740 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20240821161903) /ModDate (D:20240821161903) /Title (R Graphics Output) /Producer (R 4.4.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 19473 /Filter /FlateDecode >> stream xœí½M“-Çq,¸¿¿¢7ó °ylU~g.i⛑Ç$6²g’àò‘Ô½€ €fÌæ×OxxDFlê–6³è/áÝUÙuNeTEz†{¤§¿yJOyú—õãïÿû¯Ÿ¾ùñÃõœ®ütÿ÷Ço¾ûp=]O#_Ï×õT®ùÜÆÓŸþøáïžþåIÈßô〿úNIë9_Ouêoszî×SÎù9íƒn=_õéþ/þ:ý›?ü̯ÿð›ÿC~:ÚÓÿóáþI.òÛééoäùôb~÷|ÌçÙý§ü\ªüíO¿¶_§«<·ú ¿Ïó9—_ø}ËÏ+ýÂïÇÀ/þÍßç+?çõ ¿ÏýyŸûýõ¼êzºÿ‹¯ÄΪíY~ðù©ÔëynüéééûK³['ÿðëËMþ{ÙÍúüdðñÌó/ê y¸ ¹ /B.ôó‡\ósoO=?_éé“ÀËáo?ùoÛ|îSàŸäSýú«õÛ,só«?>õ=Áô…¹â_9C¾ô¯>?ýÿÿú»o¿ÿü«¿þã¿” øôÅÇo~úñéwßûñÓ—ÿôôÕß|øë¯0ï3é羶_žIùZÏ劯f”çÒ ê7s`°à^ð€’Ÿg‰ ÞøÙoÿ~ÀýÆ5Äøæ"š~îNýò+P%Pä›Èøf¿_µ/Ÿ¾ú ¾Á÷®`–®‡“óëOné¹æÛÉéÕg‰ŠûŸ­¯>S"I.8õçÂ3ÿçÿùé÷_ÿôçïŸþñ‹OßÿOù¾þôñ¿ôßð4ûN2‰´4Ÿf{¾ n°‰œGÈ`”ç•q€Áþœª`§øo”ù<®§5žËˆ9Døp@Î]§)á|®“ü;3ìaD‰þ¾ž×ôó7ÔÑ?=ÌèϵÊXòP^Ï#i$Ü Ãö-Ø!ß?¾bù§Q~–bø~HnˆÐ$·ïÒO*Ïɱ?"¯áÇwÜ®ÅÎòCß) “;•ú\w`WLJ¼ ð­nÏ-Ýžõvˆãû! ñ›jU‘™3?Òž{±ïE±<”›bgíC ßIíyÊÚ ZB©8~þðŸ¹ÒU‘§ëØÿÛ×\Þ`_ü$ü‡ýéOý¯}’oEÇoÏ™ëßž\×Û¾ å¡ÁO÷Å«óldQ9Éÿ ¼ 4Ñž¯~TÙ'ùVWãÉo¸dž+á^xn^o½hÉò:£¤½~Ybß"W÷8ùõwÈþ®Dg™öe½zúžÉ&åÕqìçJ°]¼K=¿ñóæKÞjœoø³ö žX¤èŸ}ë©ö-¿ú­’$»™IãÀ¾ä>ß0'³$ÊCCÁ¢¨®×`þé[4´«¾!‚ù·ñB¼’]úzý¬¶³#"F¯Ÿ^vés¼ýk»E…,'^Ìvö-0Êë_ü~vDF»Ê®œ<ÀÑM†‡Íïúú»Ì+¾Gý3ÛÎШo8—Qß“ö‡#,Òëï¯ýáŠ2^ÿÔ¶?,1aO¢úúh´?‘ßð ãF<ØWÞz‹oáð–YÉsã…ñ†¿;&Ö÷7Ƙ¯§åþÜëýQÊë¿.þéÛ#Isßø·Þox‚ØÙ·7†¬bßzéoŒõúÓ±ªH÷Ðèox|Ù•ß^×xóÙ·ÆxÃëÆ>÷í…‘ßtéú¹ï/ŒëÍ'K„Øwž_¿Üö“o/Œ×¿ªòÊ`ï‚£¸,ÿp=·)Ë™¼ÿôÆ‘6CñEzn#•ñ_åˆVÞ:Ò¸ðfÂEÉP’ò®7\v0Tjª¾ýª6!C Æ\øª®ëÍCmòA¾«K?àÔ¡R}óP›pøBIQêšø€ííW$ÃÐ>  õö«Ú ÃÊñáf|ÀÜÞ<Ô&ð«ÞAý€%½u¨wpawߕΫ•ß<Ô&âk×諭yŠÞh‚ O|À¢ßÕ›Cpïx~¡›:¸5b.€žMö ºV0Ü„Ÿ6ìÏ£(äÁÿôôGùÑ¿:ö|>ënRž?m8ñêþ´6¨ç×.¨ïGpÖ6üi㤛vŸöñŽu ùÆ 3G¹2F©àp  ,y-±o˜×Qu[£è‡=hݱ3ü)p×]š8Þ0¿‹„‰æà—Ù°óbøSà©[q¼a#OlÐ!Œ'?‹>° Ú)œnŽÛñŽù},<Ä¿U¯£äã†?m< xìOûxÇü>dܬ¯Py |Ök—ãOîŸâxü<|4b“îì•‚'¦áO}zøñ÷ùQtË¡Ú³ÝÛœ ¬›çŸâxÃþÊÁˆÑ–tŒšÆ𧱷ì;ÅñŽý;Eeƒ /ÓßiºáO«n-Äñ†1†Õ–dîWX•aì"”—Fä‘r”ÿå¿þô§ïøÇ/~üÇ/Ÿ¾þîÛ§ÿñåÓsùõ å/ =u·3ƾïmÿÃjÿËÓoþ÷ǧÏ/ †÷µ¬×1ÝûÐÁ¾úõÿúê“ ^3'ÿêÕ'·¥ÐÿØ_žš¨üÿ2ö·ä ì Û\Î÷wðýß|óçï¾þéã·¯¾IÁÆj¾ÓñÝO?|)Óúé‹ïjTnçþlAÕk <ìRÒõx-Ä`äÈþøÓÓß~úþ§{¡CÁŽý®t¸2*&‹»ì"ÿslo¾ñx½ [êˆy=´×ÕhÜ_¥1̯Æí*°1¥Ø–‹DÙ×?|ûô×?üðýoûþÚµ_àkèþs#örËúÆöKnºÙ®¡—G­Z!~8ä*V1f‡ßI’AäÛ!†¹ûqñý^Ý>âv±ÿÉéRÆÂ6x+‘½ýìŠéÎMW¶Ç:à­'ã5ê'ÿìBïNÎ׎I™Ao=‰•g÷×dë<Ë?_=ý–ŽK_ƒ/çßžvÄÏL‹=¹ü—“kOQ;äg¦èžè~Èm¢ßæVÑÏÿbnU.'‘ÊßP(½èÊÿ“BùP5UD½[žUaBf[†)DÍèxÎàä¨,Œ$”WªÀ‘ ¢@t`+P2Ì2™kÊŸX|dI³Š>e3¾GTi-ƒòZAº’ J"À’ÂÚk5(ƒìÝ Jé–Þ;…3=Õ‹i dûÕ2Ó*鶤uK?ƒ’¢ø©”['puƒ’«JR•¦Ayª ,Ë \€Àî# ˆJ-…KæoFµ`Å*O`îå[X§AùÂ+³0…ò'ªÖçJŠ(ùr*»V`Yn·Àæ#Ë÷Põb—Vc.ŽÜ ËZ 'ƒ’ûcQ ¢2³‚·"”Ë8»A¹Ý• PnwÕÕ¡Üîʲ.…kŽÜµ(TÙB¹¬¢ºAy« ,Ó Ünm”Û-p&ƒò-U%ôgÌ>²ü •#ëÄ®ƒeº€r+Q¶ ²ö5%ƒ¸ÝCˆÛ=µÚJa×*Öá#­z]>²Ü¬ºƒ€—'Ðbp"A¯‹Ë8@Üîå18q»åQh18ñ6]´Êíh—Ç ^@»<'ö\.Ž¼˜x .Ünvƒò- lÓ üÿePþD˃ [`ö‘åV ¬>òl€ÝG–Û-pêÈE£•À„r»ñ~Keê lÅ Ü,£”ËkÅb%²ò‰ªÅ @¹Ý5ˆ åv d ‚t쀌Aì]-<Õ¯fP.ëßnP¦}kƒ%Ñ8.ƒ’€ \>²|K²2I>²ü¼éö Ve d b=ÖƒåV6}ñâÕ3,±VÌ€ŒA¬õë 4BÜn[xâvO‹AY»ÊÍX.ƒI Æ j.µF1(° ¥cšAÜîe1Xt9Þ–Å @Üî…'” 8}d™öÈœ9²Ü­ÏÍ <·ûe1(Pn·@Æ`QÎBຠÊíîÉb,I,>²ÜÊ®·†P.^ c°h‰g76Pnw×W ¡ÜnŒAò w£Råf œÍ \ž,3.ÕþÅbP ¼ã6ŽÜñTç%¡|‡ƒå¬^¹&”Û-1X@>2ñ^n€ÓG–LLÖ\—,O*ŒA¼¦`måvw])Ê÷/ÐbpàVöŽ[C(ß;95@Éz÷x >²Üî®BÜîá18õvAÕ™tãB%(Z ê2¼OÁ‰§zŸ–` H€ÕGÆ힃:W2Á@z —±<•ÉÀæL3(­/K0˜-´\¸Ýãò\¸Ý³ äò\¸•ƒÈ%  ’3Œd1(PÞ€ƒUùÒ‘,Á@¦QƒUǸ|d¹Ý#“Š\JÆ0Áædåf.ƒòT8³AyŽb1ˆ´d2Êí™6 ÊÝØ}d¹Ñ£X "i‘˨xYJ¶ 1(yˆÄ¦@Æ`Õ7‚À1 Ê÷/1ˆ”F†jƒU/^`Í%gÍbP ¼NYžù£#¨ ¾áÑ-)È¬Ê Ù …@Æ Ò!¹Œa1®qYžc›ŒÛ=,%áÁížøò q»§%‹j³ƒÈ2 c°*U åÖ2(ïGYë$YfãXƒ¨ÿ¿™` ³Ê€ŒAˆ$* c‰Öxš—%جY€ŒAæ]ó²d¼Àé#˘3Y V]æÌ>²ÜnL0•e@Æ @ùà`\³AyŽÍl †ÀªÕ€ŒAr»g¶¬zwy*­ùÈØ/ƒÈèT£êûQ ÅàÀlh18ðýÏj †@ù‹³z ÜnÍG–™Õ’|’3Ìê18ñÌŸÍcpš–…I~Õwëlƒ·[ Åà´ &ùU§Àì#U±TYr†Ù-É—ôïÒm ‹Á…¹:‡ÇàÒÛ=,ɈÛ=<•4h1¸3\>²¼çô\Z±9-›>ç´$+ð ÈlºŸ5—Å`ÓÝ Lò™… d ”œAàð‘å)'pùÈ2æº,‘£@Æ`SªZ “ü¦ì·@&HYëÓJƒ”{¬d1È v%K0¸ °’Å jý3àô‘åzV¶£©Nfe‹AP+[ 6ݼ^Ù ¤»1ØXÀZ,‘ýÀê#Ëí9ä#ËíȤî…Ûù„’3¬j1Ø4ÓÈ(q½ª%H•3 cP KA’,W˲ZB¹Ý«Y J2|ic‰´î”1Áh*€®)”»³ºÅ`ÓëÈ$Ÿi¶Àé#Ëí^Ãb°é:š(Š©a1(‰tRýcIxd’/·{Z "'AM÷ï˜ä#EO€ÓG–œa-‹Adì I~Ó·ÉZƒMI’µ,‘À'@&ùÐT`§ÿ² dBÌ( VpóÁ•º,¯¬˜ˆ”‚¯d©¾àÔ[(ªžØbq`*3ÛÜŠr{º*HÞãþ||™óÀ·Ø"râæC8Ìœ_pnŠ™p`!1),^†…Æ•º%•®j9–UqöñgW\}|–®jiGÓ!°…æB*NÍbSs9`f%—‚-:¹E(ØÂSÅuÀËÇŸ¯{€jÉwºœ ëÜÚÌüƒ’-`Æh¿¨¾s6 K˜ª˜)H¿8œãšF·‰}|ò®ËrìD1R»¾ªXõ ÅLDckörVL°Î§Å°*,ð.†u>81†…ÑTÜ}üÅ]!. P½F5!C¶ëk˜1Û•ž檠k& ̨ÜXçÍ°Åb*ë6xòñ·Å‹ñ\rŠ¬Sºšœ#“%“n«;I†õVQÌàŒùœ&ëšÎ3|;©úäDVd¸gʺ>|‹­Þä\™,»0’“e‚1’³eX´a<§Ëצ˜ë¬â†bÆo×"5àéã£è79e&ó!9gÖ•™füvMB€¹ZèÔm¦f©J×<:%çÍzã6“gX vÅÌV°…7Oó!9w& <Öne Ξ ÎC1ã·S(˜9 –ø|N u ,àâãë|˜–¶ôÎùàZïœN¢uÍ~·¨‰QšœF\ºb‹ß‰Ìä¥Z 8“&ó!;•†E)K2š¿X oñ;*Š-†¡¤GÞ —¢ØâWWÀ¿Êns%ѵ€N¥¹>þÌŠ³0émà… ¶ø]ZV‘Vëkëx/ØÙ‰µ®K `‹ß…EKL||ù.áó9¹6”ÐæªbhîÌøÅzy(füÝ%OÙ ¶¡´:0ãwXݨSl‚GW<||F²“lXSãó9Ë&ó!;Í6Xª’gz#€¿C×0¨µç cèƒ8ûø£(®>þlŠ»¯óaX†32çƒÓm‚u>8ß6´  ˜IŽ`”ãdgÜ ÔŠ¿C÷t $H>¾Î'ÝFæ|pÖm·e©ÎÐÌÅ Œß¡7˜ñ;(í¡: CDTœzÃú(^>>æCI–ï€H¾É \©Õvú AWÌ|Gpæ¦4ãwèÄA¹ãwè ˜ùΨ^ Ü}üÁr§éã#«Éñ•Síø4Œü¥8š¡)f¾#¸ Ōߡ P¬3~A<$ÅÅÇÇ|(NƉ芧ü¥4[† %Ó€¿Cóf`ƯàBm;W"‚µ<Ë)9“åZ—aä/ÅI9ÁÈ_Š³r 3šbÆïº][œ—¿ÏçÄÜœÎÌÁùàÔ®Øâ׊ œœ#œ}|ä³Åé9p"U±Åïä|p‚nLÎgèÀ’$Å¿Só—âh“¦xøøÈg«³täQ€¹<š3ßú‡Ru¢nhÖlñ»(ªH–ï ]¸[ü.Í_ª“uà^ªâáãc>T§ë†º@¤ê|ؘK1óÁÈ_ª3v‚‘¿T§ì¦fªÅò©«_`ÆïÔpõñ1È^c>Tçí¦r(ícü‚Ò¹3ßa=0ã•ØµZ¾ÇÔBàìãOª’«¿X(Ì|gRþQÀ›úÅÀ¸ñ;3K »å;S¹x`Æ/ˆ¢B£‡ló¡v[¯€9šjá||ä/Õy Ëw–á_烓š‘6-ß™Zþ lñKepsîO0òY.Û‰u>8û7çƒÓsq>XÉ*0ò—æ ©?`ÆïÒDeÁ\¯€ ´2áa¸P Æø\YVÌõ ØAèoœŒü¥;¸hZÓŒü¥;¸T¦Ìø]šÈCÄÅõÊÒ@fü.]¸3~—¾€¹^Y‰z ç—nD¢81ùøÈg»3‚+{ñ"ã$dVÌøŒùÐ+93~#éN ¢ >)>>ò—îÄàÒD •›ÉÇÇ|èN .Ýf¾#X•âN.](§îìàRc-`æ;‚‘¿tç#ŸíN‚ìÌŠ§ùÐ"$û ÌøE öRÌ|gi`3~—.´¿K_d©OËw ÂŠ‹¯óÁ™B0¦I1óøÎPÏÅø…Ú3~gj!™ï®ô¹`ü‚TÍ”¤$ØX&ùø˜ÃùBÁÈ_†ó…¤]™ï,]è3~—îÀ&ˆñ+óÁlƒc> ç ÁÌ&ÅÓÇGþ2²­W@ÕvÅÙÇw!Ž?4ÙÖ+ðá¡‘ů>ˆP’oñ«Ä0×+KwЀ-~•ž>>ò—á|!øÞ¦Øâwj>;œ/¼s½8)¶ø:†ó…‚‘¿ ç —Úñ7ùËp¾pi¢š†ó…$Óp¾pi1°ÅïÒù0œ/\JD[ü.Í_†ó…à•›âìã#ŸÎ Öù`|a».Îã u>Læ;ÀÈ_†ñ…ÀÈ_†ñ…ÀRAÍw€‘Ïã u>_¬óa1ßi,Ýî_«0€ç4Œü…i.1ò—i|!°Jâ/F>;/æ;À˜ÓøB`̇i|!ð¢|¸r|¸*'N†3Kâg1Œü…i'1òÙi|!0æÃ4¾óa²”Rñ¤Bqùø‹îY‰ãÊ™ ó`ä/ÓøBàlîZÓ0æì\¯7Zkådóa_Œüižüe_Ø.-LÓøB`ä³³q½Œù0/Æ|˜Æ7ÊaV3¬º7ã ‘¿Lã ‘¿Lã ‘ÏNã ‰ù4/Öù`|!°Îã ‘¿Lã ‘¿Lã ‘¿Lã ‘¿Lã ‘ÏNã ÛÕ9Œ/Öù`|!°Îã ‘¿Lã ‘¿Lã ‘¿Lã Õ”ÁøB`̇e|aÃF@SÜ.Øëb¾Œüe]¿Z@˜VòøÕ B`Íwõ×ÀÍÇÇ|XÉãW¿¨´2óvéÂØâW À¿ºPîÃ0ò—•=~µ,­âñ;)^4a0æÃ*¿SçÃ*¿ZM¼†aä/«züj=!°Å¯ª82®”^Yü*±¥öo>>æÃjÌw€‘¿¬æñ»ÜQŽñË `Íw€‘¿,ã ‘Ï.ã 1Vçz¸Ñ´Žñ+óa_Œü…¯Abä/Ëø–´¼˜ñËà9 ë|0¾Xçƒñ…À:Œ/Fþ²Œ/Fþ²Œ/Fþ²Œ/lIË ¿)s>_¬óÁøB`¨˜.ã !ºŒ/îUqõñ%Ѐ»/I+ü9¾–näËøBà”3~窘ñ›´âx ÃPñ\Æ÷D#aÅÕÇW×¾Ì|x Ōߤ CTÓ_ðÊð óàR3~“&ÀŒß¤Äðª†>Ÿñ…À3+.>þªŠÇo˜ÀŒß¤ˆù2¾XEøùp-Š¿©ÑôÈøBà>O,ñ'QÔÏøMºnÕpꊿIk§€¿©S0˜ï¨L‰2FÆ/6Ž¶Ì‘XçÃ`¾<—z12~“Ö#æËøBàTèÕ¸ gz7Zü·éñ;8×+À:–ǯ.ܵQñ슇¿àÏxyüja"°ÅïÔùŒ/Æ|H—ǯšJ[üjqbNƤ¸øø³(n>þjŠǧ¨%%_-‡lÅâwÑWÁøB`̇”=~µHØâW«s2¾ÒT<~—_&ã 6¾ªb]¯c>$ã 7Âà—ÉøÍZ«˜“ñ…À­(füfý¢€‡?ý6}|Ììgêû6«q0ã7«R˜ñ›µdQ=U»á‚ë1¾¸]Š¿9Q2Û-ßÉúEó!_¬óaX¾“u¡Ÿ“ñ…oÀŒß¬Ä0ó¬Å‹ð½`üBh²3~úbT_çƒñ…À«+füf­`„Ä—ùNÖF•égÃÅ$ÁÕ0<=Ó²|'Îã ;-K“ùÀÛH,‰HÎƶ¬•ŒjiZ ËD„9)ó¬J%`Æ/6þ’bÆ/„'E1×+YW57õñǤ“´¿è,ÍõJÖaÎÆÃK*_ظQ·S®W ?™Š¿‚1²ñ…ÀÖfã GS<}ü‰Ïg|!ðZŠ¹^ÉêV ÌøÍJl3~¹ÑÌõJÖêFØ'3~s§s¶ñ…À#+î>þ¬Š§ù/lؘœŠ¹^ÁÆ$-È-~µÈ1çîñ«UŽjQž ·¡Æº¿Zç\|ü™7_çð|'O·áñ;9¦Ç¯&*ÀÌw²‡9O_-w¶ø¸9/Ëw°ñ9g_çÃòø]œËò¬5À¿Zô¾Å¯V=3ßá@À¿Z—ËãW‰vsg"Æ|(ƶ¢/ `ÆoÑB/`æ;E‹¿E«U^Ÿ c>ÀɨÆ|(Æ6Ú¹çb|!0ò—’-ß)Z©Î¿ßäúÆ6³(ÅÖ+܈füâ›Êù¿Ø˜ôž†‘¿ã ‘¿ã =ƒ¹^)Z ™‹ñ…Ài*füâƒ^Š¹^áF.0ã×lŠñ…ÀÈ_Šñ…ÀÈ_Šñ…ÀÈ_Šñ…­hñ:0×+øbðùŒ/Öù`|!°Îã ‘¿ã ‘¿ã ‘¿ã ‘Ïã [1KTã u>_¬óÁøÂÆcµê¿ã ‘¿ã ‘Ïã 1ªñ…À˜õ²|ÍK1ã·h•¤z³OÃÈ_j²|§h$0ã—7 ˜ñ[táÜ}|̇j|!0æC5¾°ÑŽ˜ù%¥êi #©Æ#AÝ~3Œ|¶_ŒùP/Æ|¨Åò¢¶\/lEë%ájÂø-ú"f¾Sè¿]«Ç¯&®À¿ZmšYWOŒùP›ÇïÐùP›Ç¯ÖK3ß)Z/ lñ«õ’À¿Z/ ÷®W0‘†b‹_M|-~ubOùK¿ú Î>>ò—:l½Rt£Øâwq>8_ˆuŒç|!&bWlñ«õ’À¿Z/ <}|ä/Õù¢õ’ÀŒ_lÄÅ\¯Ô‹óÁùBªjsu¾ó*ê¾ «—…ó…U–ÀÍÇW©³ó…пdÅŒ_LôªæíŒ_(`:Íÿ/ØÍùªõ’jö^ #iÎ2€³|¶9_XõÁïÒëŸÁZÈu;>ëüˆñô?nOë'o×£õ“·ëÕúÉÛçÉ:?âófñ}è‹äö}iýäíûÔúÉÛ÷­Dæí~èBáv¿ çǾŸ…ócßïâó#ûøÈgö|©Z?ó©V¶ðñùVµ~2æ#÷>_Q˜Ðoó™ó½jýdÄCÕWÄKU")â©j¢ñFqrÄ# Ò-^øåÏ(lh·x¯Z?σªõ“ñ¼¨Z?Ï“ª KâyS5Ñ‹çÎñ¼b!D<Ïx¡ñ¼«ºçaÕúÉx^V­ŸŒç) %Òíy[µ¯B<«¶CˆçuÕúÉxžW­ŸŒç}ÕúÉxT%â}Q烿Oêä|ð÷Mœþ>¢´:ÞW,¼ˆ÷YÕúÉxßU­ŸŒ÷!&Zº½/ëä|ð÷)&f»½oëb>ãï㺘Ïøûº.æ3þ>gáF¼ï‘T-TŠ|…×-Ÿ€´&ßòvy>Ãøm—ç3ÌWÚõ˜Ï Ó-ßió[χø‘/µ‹ù­çS-1Ÿñ|«%æ3žÑê+ò5 Ã#ŸÃƒhÞò½ÆNA;l‰ù­ç‹ÖUcç“-1¿õ|³e·Ÿb>Ú2ó[ÏW[f~ëùlËÌo=ße¡IäÃ|G¾Ü2ó[ϧ[f~ëùv+Ìo=‡èfÞòu(Ò¯[>ß çƒçû­¸=8×­0¿õõB+Ìo}=Ñ ó[_o´ÊüÖ×#­r>øz¥U_ïp=Óêãz‡…-±jZ?륦õ“±žjÚ°%Ö[Mû¬Äz¬©ûC¬×š“±žkZ?뽦õ“±daL¬›n<Åz²i!X¬7›š@Äz´© D¬W›ÖOÆz¶iýd¬w›ÖOÆz¸iýd¬—›:üÅzº©D¬·›C±oZ?ëõ¦Dh¬ç›^¬÷)Ê>  6wq¾zœqãšzBßд~2øˆ¦õ“ÁW4­Ÿ >£Mö—q¾£Ñfó!M7‚/a!Oð)mr>8ßÒ”ˆ >¦é‹;øš¦õ“Áç Ð§ÝøèqÆj‹óÁù¢¶8œOjZ?|SÓúÉࣚÖO_Õ51 >«_äkïb·½àÃh)| ‡‚Oëù9çÛúåüÜôñW»ñu(,7>¯'òµÎ÷õä>¸ä{"?ç|a§WÛæ{"_ë|cOäkì‰|­ó•=“¯u>³gòµÎwv-Ü>”^Á—öL¾ÖùÔžÉ×:ߊ¥qãc¡Ç¹óµ½¯u>·òµÎ÷öB¾Öùà^È×:_LC„à“Yè|sg£ÍG÷B¾Öùê^È×:ŸÝ+ùZç»{%_ë|x¯äk/ï•|­óé½r>8ßÎB©àã{uþ~øøÊ×:ŸßùZçû{#_ëû½‘¯õýèqîû ½q>ø~Coœ¾ѵ~2ö+ºÖOÆ~Fït5÷ýŽ®õ“±Òu"Ä~I×D6öShçû-,ÌŠý˜®Ÿ±_Óµ~2ösºÖOÆ~ô8÷ý èqúm¿¨«ÅDì'u­ŸŒý¦>èpëûQ]ë'c¿ªëÆiìgu}‘Ä~W×BØëê4ûe]­&b?>±ßÖ' á|?®kýdì×u­ŸŒý<èqúm¿¯ë‹2ö»5>õý®õ“±ŸØuáû4£ˆýH’Å~eW?•ØÏì‹óÁ÷;ÇÅùàû¡Cë'c¿thýd짭ŸŒýÖqцÔ÷c¡Çé·ýZ¢Å~î¸8|¿whâûÁC b¿xè‹ ö“GzÜo† FºíG£p­Üö«GbýïgÖOîýîÁúɽ>X?¹÷Ëë'÷~úȬ?ðýö‘Yàûñ´Òˆýú‘Yàûùƒõ“{¿äÝÁŽã³~r× ŒâõÌwPWnõ£xýãw¯?àze°~r×3 ÖOîz‡ÁúÉ]1X?¹ë%Feý×SŒÊú¯·•õ^A¨×¬ŸÜõƒõ“»Þc°~r׃ŒÆú¯A!^»Õ“ŒÆú¯7¬ŸÜõ(ƒõ“»^e°~r׳°P/ê]Fã|ðz˜AgÒ]/3:çƒ×Ó ÖOîz›ÁúÉ]3X?¹ëuë'w=ÏPOé¨÷óÁëFç|ðz¡¡ ³¨'¬ŸÜõFƒõ“»i°~r×+Ñ$ê™PxÝê†WD=ÔP犨—¬ŸÜõTƒõ“»Þj°~r×c ÖOîz­¡G=mL¢Þk¨9êÁë'w½Ø`ýä®'¬ŸÜõfƒõ“» …‡×­^m¨]mԳŎ ^ï6X?¹ëáë'w½Üdý䮧›¬ŸÜõvSLQ7µð<êõ¦ÚYD=ýS¢Þo²~r×NÖOîzAÚÑF=! ¯[½!ô8ùV8çƒó…“]Lw=ã´úIç §ÕO:_8wýdõñ­~’ñ;3çƒó…3s>8_hÍ0v½æ´úIç §ÕO:_8Y?¹ëA'ë'w½(»ÀE=édo×]o: ëi/œ¬ŸÜõª“õ“»žu²~r×»Òý%êaÙÖ4êe¡Ç¹×ÓÎêõ´Ìw&ë'½Xëi/œ¬Ÿôz^`­§u¾pVÖÓ:_H ™]/Ü8w=10ê'½Þ¸MÖOz=2p.Q¯ ŒúI¯g®#êÛ­x¤¨—¶úêìã£~Òë­Ûdý¤×ckcw«×Fý¤×s×[½7pëQÜgÔ‹7>v=90ê'½Þ¼MÖOz=:pQ¯œoõìÀ5E½;°Îç 'ë'½^x̨§o|ðízû6Y?éõøÀéV¯œ{Ôó[/$®W&ë']l-)²üÅõÀs„ÞxÝômêÂtë€1\Ï\z耑¿¸ù‹ë%w¶žxÞôÀ«‡£-ú_¸^8_¡çFþâz`ä/®n#ô"Àý¦'i´ïÙz“ÆíÖ£´Eÿ ׫«ÈùÂÅúI×»«Èô0Àí¦—î=ô4Àc†Þx]¡Çi‹õ“®×6=ó•]Äø]ùA¬óÁôBÍ[”8_¸èáz£ÆÄgë‘Ú*Ô9_¸ õ@ήB=é€K=p¡—jfUíz*àQBo<[è±»­×j«Ræ|áªÔ‡9_¸*õa¦V}˜ó…‹þ®'Fþâz3`Õ‡9_¸ØðÜõjmiýäÖ³[Û Æï¢ÿ…ëá€k½pk¡§î#ôv®G[Œ|Öõz zœz>`Õ :_¸ºë¿«ÓðÙùÂ¥õ“[OŒüÅõ†À£‡xÎÐ+6.$¶ž8åÐ;çzÈƆó[/ ŒüÅõ”ÀÈg]o ŒùàzL`Î.ú_¸ž³-­ŸÜzO`ä/®FþâzQàÚCO ÜfèMÇzÔFϦ­W^7=k[fGî|áÒúÉ­‡Öf^Î.­ŸÜzZàÖBo ÜGèqÇM¯ ŒüÅõ¼ýÒúÉ­÷N=ôÀÀy†^¸^¡'Æ|p½1p¿é‘;¢¶^XõíÆö+QßnzgàTB œ[è¥Ë=5p½é­Ußn|!°êÛM¯Ýi4µõÜDÂÖ{÷+SßnzpàœC/\nzrà:BoÜVèÑG ½:°éÛ—oúöÎñ•(ÙzxàtÓË—zz`Õ·_¬úvã û ½>ð¼BϼrèýûEÿ ÷N=ü€Ußn|!°êÛ/n%ü€Ußn|!°ùTÿîwЯæ~×eù‹û%#q?à2Ãoù¬û1÷~ Àãæç<{ø=#q?ˆ~iýäö‹Î%ü$:Û1n¿ `ík|!p»ùU›ÿÅòñ‘¿¸ßðêá‡Ñ/­ŸÜ~Àù ? à’Ão¸Þü8€[¿à>ÃÏù‹û}tym?N¢tû…#Ÿu?à|ó®)üH€[ ¿`ä/îgŒüÅýN€‘¿¸J¿´~rû¥tÁÛO8÷ð[.3üX€[ ¿`í!—<~õÁ¹ý^€‘Ϻ ðºùÅôĶXî'œKøÍ#q?`ä/îWܯð³9ün€çͧÓxlûåôDÿ ÷Ó6ÆoJôk2¾XýšŒ/V¿&ã ;ûym¿à™Âx•ð êÉšÅ_¬~Mæ7¬~MÆ×~EÀíægÜ{øc>¸0æƒû%õTè×d|!°ú5_¬~MæÇ|÷kn)üœ€{ ¿'àÑ XýšŒ/ì©Ò¯Éü¤:7‚¶ßp¾ùQ«_“ùUc>¸Ÿ°úw_¬~M懬~MÆ«_“ñ…=5ú5™ßVçF×öã6ÿ.ÆojîßUºaõk2¾x\ḟ\Oô¿p¿9à”Ãù‹ûÕ#q?;`ä/îwÜSøá~yÀ³…Ÿðá·×ý&Ý8çðëFþâ~~ÀÈgÝï¸ÍðWøÏ~‚ÀÈ_Üo°g­ŸÜ~„ÝÛ¯¸¤ð3®%ü[ ?Dà>Â/xÜüW¿Åžµ~rû1#q¿Fà<Ãϸ^á÷ÜrøA÷›_$0ò÷“VÿQã ;qûQ§~•À¹…Ÿ%0æƒû]×›&°ú_¬þ£Æ«ÿ¨ùm¯~œší×ÙYX±ý<ËÍ︎ðVÿQã ÕÔøB`ó­>¾ù&Ž_Ù«ÉøBàtó3VÿQã ÕÔøB`õ5¾¸ÏðSžWø­¯~¬=ÓÿÂýZS?W`õ5¾XýG/n%üb{ ?Y`ó£]>þݶçî~´Œß¬õ’Û϶³gûÝ—~¸ÀêGk|!°ÎóÓ7¿]àÙÃù‹ûõö<ØæÓøBà\ÂïXýh͸Žm ØÂLp¤m5 (³Äˆ%Èܦ¸3Çpc@yÄ»Å1 L7@¬a Øú6O” pke@¹{n¼ ¸Ê¶eîYK$Ý´¹3urKçÎJ17|¬iÛA¶²Í¢å0·’sMÊKÅm¨{ÑÒH7©Laa ˜û6¸î,€sûk@™/nŽ ˆÎÎF J¶áÆÚ€slÛmÀ¦Ü½¨Ã…[vÊ wCoÀÒ·Ý7 <‡Ý P^cn(³ÚÄgØŒ®¾MÈ{Q Ü-Êávn<`g¢Û›JZâæç€mlktÀÆé€3m[u@Ün3]ïE+ Ý’æöÆÿÂÜÞìÜanoì` +xÀÞ·Q<à˜ÛFp]Ûd¾}¤¸}çŠÈ êinÏ0,õnnHs{aQ 7ÆD/³Í„¹½1~½hÅ£[îÂÜÞ ùsØõwÖµº™?`Ûê°_» Ìíêœm7\c·èE ½ zX{@ô20–½ Œä”·›7>”œÃÛ"¢—1|€+Z*töqó† moÇX®Ý¬P² oåØÚnôØÇn8¢I z$Amwå &q»/Ái­+,µªÑ[WÊ·ä-{´½}7Åœs·ÌèE *¼¡`Ê»Ý`n»`»U |oä(Ï^oó(·Û›€Êíö!€kì"½ê†©·éäo¼ù ÌdoMXûn\Øænk8®ÝôpæÝPæ›7LéUë½  |‡ÞlPžùÞŠ¥³ ßµ¶¶Û¸ö±›¼¢!Žµ€”Yá b:»ÚyûÀÔwsÀÀ­ýzÓÎÿu6@ô¶€€è™è ¥€ÞRƒM>ÞŽpF³BÀÕw+ÃÞÔ,²g"“ü¦¥…Þ$PBÆ[(¶±,öh¿8ÓnθÊnÝØ›fÎÞرó¼í# Ü,o Xón Ø¢¡$`ï»Ý$ n·5£\i·ªìM‹ ½‘% „ª·¹”Çš7ÁìÜrõ™€-횀½ìöš€£í曀òÁ½5goZDè;SÞm=s4ý,}·DGTçÏš[ÞNP¦½7”G„·"DGTkTÚ›.Á¼içLö&§€ìˆÊ$¿ ëˆj1¨‰‡·O×n® 8ón½ ¸¢1koÚîÊÛ¶¢#ª3fŒMoù (áæ aåÑäíbå1îÍdG´š\i7¢íMÛ]y›ZÀÔv[@¹ÑÞâ°^».`Ë»=.`æ¹€rï¼µ. n·sdlïîmySÞM{;‰ÞÒ·³’ÂþÖh ØÓn 8Ên% 8Ûn4 ¸ÆnCÜ»–z“bÀœw c@ù¼Áqgˆ·?”ÛíÍ‘åv{ëdÀ™wce@y{ÛåÞ•Kñ¦Ì€Þ²°¤Ýа–Ýî°µÝ °Ý*p^»‘4àÊ»Ítïº'ëM¨e®#ÂþôôGôçÖ.Öñï½k·u½—Ø¿û½Çõ{ë÷×ï=®¾÷¸~ïqýÞãú2øÞãú½Çõ{ëOï=®ß{\¿÷¸~ïq­#¿÷¸~ïqýÞãú½Çõ§÷×ï=®ß{\¿÷¸~ïqýÞãú½Çµá÷×ï=®ß{\¿÷¸öñß{\¿÷¸~ïqýÞãÚÇïqýÞãú½Çõ{ëdø½Çõ{ë÷×ï=®/Ãï=®ß{\¿÷¸~ïq= ¿÷¸~ïqýÞãú½Çõ0üÞãú½Çõ{ë÷×Ýð{ë÷×ï=®ß{\ëûö½Çõ{ë÷×ÿ¿éqý‡Gmöç—ÊíC×ýBõ}hÂÅø¡'?Ôæ‡ýA©~èØ_¨Ü ü¡?ôó‡ºþÐÞ?(óÝþ Uÿ¡ù?¿€ÃMàð8œî>‡‹ÁKƒÃáðG8Üo…ÃyáÁ—ápmxáép8>~‡[Äá%q8M<øP./<,‡‹ÃÿâpÇ8¼3gßÕã…gÇáèqø}n ‡WÈá$røŒ<¸%/L“ÃýäðF9œS_•וÓå…cËáçr¸½^0‡SÌá#óà2sxмp¨9ükw›ÃûæpÆ9|s\uÏŽ<‡_ÏáæsxýN@‡OЃ‹Ðá1ôÂèð':Ü‹o£ÃùèðE:\“<•Ç¥~L‡[Óáåt8=>P‡KÔÝCêp˜zé?u¸SÞU‡³Õá{u¸b=xfŽZ/ü¶7®Ã«ëpò:|¾°°ÃAì…¿Øá>vx“Îe‡¯Ùázvx¢=8¦~j/ÜÖ/¶Ã©íðq;\Þ¸‡¸Ã?î…»Üá=w8Ó¾u‡«Ýáy÷àˆwøå½pÓ;¼ö'¾Ã§ïpñ;<þÀàḻÞ¯/œaßØÃUöðœ=i¿Ú7ÛÃëö…îá“{¸è»‡ïáÏûàÞ{xû¾pþ=|×àÃSøp>üˆ·â/ãÃéø…òá’|x(ˇÿòáÎüàÝ|8;¿ð}>\¡ÏèÃQúð›>ܨ¼ª'ë>ׇ öá‘}8hþÚ‡ûöƒ7÷áÜýÂ×ûpý><ÁÇðÃOüpð"?œÊ_ø˜.ç‡úá~ø§îê‡÷úÝ™ýðméê~x¾Žð‡_üá&xÍ?8Ñ>õ/\ìûÃÿðÇ?Üóoýçý×ÿ…kÿáé8þýÎvg;Çvg;‚—í Îvg»ƒ³ÂÙ.ál§p¶[xlÇp¶kxÙÎál÷p¶ƒ8ÛEœí$Îví(Îv/ÛYœí.Îvg»Œ³ÆÙnã±ÇÙ®ãe;³ÝÇÙälr¶9Û<¶#9Û•¼lgr¶;9Û¡œíRÎv*g»•³Ëc»–³ËËv/g;˜³]ÌÙNæl7s¶£ylWs¶³yÙîæl‡s¶Ë9ÛéœívÎv<ízÎv>?Óîçlt¶ :Û í†ÎvDíŠÎvF/ÛíÎvIg;¥³ÝÒÙŽél×ôØÎél÷ô²ÔÙ.êl'u¶›:ÛQíªÛYí®^¶Ã:Ûeí´Îv[g;®³]×c;¯³Ý×Ëv`g»°³ØÙnìlGv¶+{lgv¶;{Ùíl—v¶S;Û­íØÎvmg;·Çvog;¸—íâÎvrg»¹³ÝÙ®îlg÷Øîîl‡÷²]ÞÙNïl·w¶ã;ÛõíüÛýí_¶ <Û žíÏv„g»Â³ác»Ã³âËv‰g;ųÝâÙŽñl×x¶s|h÷x¶ƒü™v‘g;ɳÝäÙŽòlWy¶³<Û]>¶Ã<Ûe¾l§y¶Û<Ûqží:Ïvžg»ÏÇv g»Ð—íDÏv£g;Ò³]éÙÎôlwúØõl—ú²êÙnõlÇz¶k=Û¹ží^ÛÁžíb_¶“=ÛÍžíhÏvµg;Û³ÝíÙ÷±]îÙN÷e»Ý³ïÙ®÷lç{¶û=Û?¶ >Û ¿l7|¶#>ÛŸíŒÏvÇg;äÇvÉg;å—í–ÏvÌg»æ³óÙîùlýØ.úl'ý²ÝôÙŽúlW}¶³>Û]Ÿí°ÏvÙí´ÏvÛ/ÛqŸíºÏvÞg»ï³øÙ.üÞNül7þsíÈÏvåg;ó³ÝùÙýl—þØNýl·þ²ûÙ®ýlç~¶{?ÛÁŸíâÛÉŸíæ_¶£?ÛÕŸíìÏv÷e„´8·V§ÒêF Ä–V·¥5Y[Z ëÒêFMá–Vc>¸´¸÷V«T×K%'­]Z œoÒjà4BZ ŒùàÒê6)tiu£frK«û i5pë!­®7i50òY—Vc>¸´øš!­n“RI—V›Ôšñ;¥Ø^* ÍèMZ \GH«‘Ϻ´8—V«4ØøÂ6)uiu£†uK«·„¶´X¥É^*9)Uui5p™!­Vé³—JNJa]Z lÒiÆ/¶¯îÒjhtÇMZÍÝ®VOJu·´zRÊ»¥Õ“Rß-­ž…Òp/•œ…Òq/•œ™Òr/•œ”oiõ¤yK«§I•½Trš”ÙK%§Ö†´zjA`H«§×!­ž[Jmñ»¥ÖÌw¦I±½TršTÛK%§>èCZ=µ.0¤ÕS CZ=µ20¤Õ“Rò-­ž”šoiõ¤}K«¹ŸÒê©EX!­žú" iõÔ…xH«'¥ò[Z=)¥ßÒêA©ý–VJñ·´zh•`H«‡– †´zh`H«­¶´zÐ*`K«­¶´zÐj`K«‡Ï!­æ¶vH«‡y!­´:ØÒêA+„-­´JØÒêA+…-­Z3Òê¡Eƒ!­Z5Òjî؇´zÐêaK«­ ¶´zÐ*bK«‡¾ˆBZ=:¥».­Ò^—V­ iõ •Å–VZ]liõ Æ–VZeliõè”&»´ztJ—]Z=”(i5\!­´òØÒêA«-­´ÙÒêÑ(µuiõh”⺴z4Ju]Z=hE²¥ÕƒV%[Z=he²¥Õ¬ iõ¨”»´zTJ]Z=*¥È.­´ZÙÒêA+–-­´jÙÒêA+—-­Å¥ÒŒßQ\JÍøÅ¥ÖÍÇ7)öðñ¯»´zЊfK«­j¶´zdJÁ]ZÍÒœVL)¹K«G¦ÔÜ¥ÕƒV:[Z=hµ³¥ÕƒV<[Z=hÕ³¥Õ#Q ïÒê‘(•wiõH”Ò»´z¤GiõÐ…aH«‡NÔVÕ$…´z(QÒj&.!­ZoÒꡇ!­j•Òê¡VJ!­jµÒê¡E‡!­îZuÒê®e‡!­fbÒj…´ºë‹.¤Õ]­¤BZÝõÁÒê®Å‡!­îZ}Òê®å‡!­îjuÒê®VX!­f][H«»– †´ºk bH«»>CZÝuaÒê®-¤Õ]­¾BZÝÕ ,¤Õ]­ÂBZݵ1¤Õ]kCZݵ1¤Õ]­ÊBZÝ;çƒK«{ç|pi5!­fyaH«»&V!­îJ …´ºkQbH«{ç|piuoœ.­îjõÒêÞ(Eviuo”¦º´º7JW]ZÝ¥­.­îÒW—V÷Fi¬K«{¥tÖ¥Õ½ºÔšë.ÌBZÝ+¥¹.­î•Ò]—V÷Ji¯K«{¥ô×¥Õ½RìÒê^(viu/”»´ºJ]ZÍ…gH«YÀÒê^(mviu/”>»´ºJ£]ZÝ ¥Ó.­îùQZÝ3¥×.­î™Òl—V÷Lé¶K«Y›Òê® •V÷Li¸K«{¦tÜ¥Õ=QZîÒêž(=wiuOœ.­î‰óÁ¥Õ=q>¸´º'Jß]ZÝ¥ñ.­î‰Òy—V÷‹Òz—V÷Ë¥Ö¿çƒK«It„´š%Ò!­î¥ÿ.­î­œ/욈‡´º©ÕgH«›Z†´º©UhH«›–2†´ºi-cH«›3†´ºi5cH«›û!­nºÐiuÓÒꦉ[H«I<…´ºé‹0¤ÕM‹CZÝÔª5¤ÕM­\CZÝÔê5¤ÕM¥H!­nZÙÒꦥ!­nZOÒjᇴº)QÒê¦ÎV7µº iuÓ‰Òꦎ!­nZâÒê¦5Ž!­njÅÒê¦V½!­nZ§Òê¦uŽ!­nZèÒê¦Ä|H«›.BZM¢3¤Õ­q>¸´º5Îç ›¾ÈBZÝ´Þ1¤ÕM CZÝ´â1¤Õ­r>¸´ºUÎç I䆴ºÕGiu«.½n>¾Jq/l•R]—V·B)¯ó…­Pêë|a+”»´º©uH«[¡”ØùÂV(5viu+”";_Ø ¥ÊζL)³K«[¦ÔÙùBjøBZMb=¤Õ-SJí|aË”Z;_Ø2¥Ø.­n™Rmç [¢”Ûù–(õviuK”‚;_Ø¥âζD)¹ó……´º%J/l‰Òdç [¢tÙùÂvQêî|!5•!­n¥òζ‹Rzç Ûõ(­n—K¯‡oÒìåã_ù&­®ZÒêª!­¦f4¤ÕÜÈ iu]œÎÖÅùà|a]œÎV­ iuÕÉVW­‘ iuÕ"ÉVWUK†´šU!­¦T-¤ÕU %CZ]u!Òêª_LH««&v!­®ÚŠ ¤ÕU[„´ºj+ƒVW­— iuÕzÉVW­— iuÕzÉVW-% iuÕÄ5¤ÕÔ(‡´š‡!­¦b0¤ÕU¬!­®Z/Òꪭ$BZ]µÕDH««¶¢iuÕzÉVW­— iuÕzÉVS Òêª/ŽVW]ø†´ºVÎç kå|pi5?XH««ÖK†´ºj½dH««ÖK†´ºVÎç kå|p¾°Îç kq©µI« ¥Ø[Z](ÕÞÒjMß~À¾ÔKeÂK×¢ê>Û èß➺ÿV¥Ú~ŽÊCùõƒ÷óô ï£*à¡Ý„úÛæÞêãµÚå“Í,Óü|ÿ‰æçpÀ\†@“½HêñÑqÀ¯ýAü\G:6¶Ÿtö–¶s•²Øc+⳿Íßûuñ܇ëægÙ¥2Ÿï?Q ¥LI©¡ã²õ¦ Òil”²ÿÞ¼%í\C:6¶Ÿè>ÿ>W NöØŠ¾±+™5~o×eçÞ¯Û>KižÊëìóý'ºÏ­Î'L× ½-*&0Äž¾éïékäçÒ±y´ý„òb?÷¢ôÚÆVô]Éñ{».;÷~Ý‹.Í?ߢ//íúÁ®òˆÐч¤uåÐßÓCÓÏ5Ôýa´¢|÷>WÓÚ=¶"mÛ~o×eçÞ¯ÛîËÒgH³=†ý'šOé¶>Ó:̪ éw·øõß+[²Ï5¤cóhû‰®åö¹šIì±}cW²füÞ®Ëν_·}z'€r÷9æ?ѵ›.¡+g)úˆ³7 ‘þ=šZøï­7œë¨î9æ?QÞhŸ««–=vÞsÌÿ¶ýÞ®‹ç>\·?†Ùégv¿/û'ZG©NêÜ.º’>uópú}Q§ñ+~Ͼ ~®¡î÷eÿD£yŸ«„{ìê÷eÿmû½]—{¿n»/]×ø™ŠšÏ÷Ÿ¨¾U©Ø©Ksô¤§>Ú¿éE:þ~ÐóÆÎu¤cóÉd?¡£ƒŸË^ê>¶"Ž=6ͲâºìÜûuó³¨lDµÅ…Ÿo?ÐÕ¸‰X†r(ª¨™¾ÑC•õߪ•½Ÿ×L±œüPþ@ÉS?O >ªš]ƒÝ÷ÕØy·kµ[aU#Sû}¾ÿD·#µŠ…Ó žÖ®h‡ä¿g ¦ëHÇæÑö-…ØçÒÓÃÇVô]ÉÊû÷~]<÷áºñYþîé_>üÕ¿ÿï¿~úÍÏ%¢/SÎôô7ò¿¿| aþ;vU.01øù©³‡P³Ûã‡êÉ–:Œì ƺF¸öo,MÊ÷ã€ÎrÞ}‘oÜ/;>Eðë¯ìkúæÇ#_ÿ«ßÊ—þôÕŸt'ðÚÿ(Ôö㉾y_}~ú¹öåÓWùð×_éà¿xöÔ7ïýìןŒ—¸,•î'¿þ\62‰sÓkÏì,èŽ3ó«Ïœº5gV?ZþütÿÓ³,2¾] Ñ>;¶øa\ê½åð˜ñ²‹?jÿ].%J~øøô÷Oß½êv~†t=~bµ\•"ËEð1~û¯ß}÷ñÓÓß~úþ'ÿ@÷áÿN08endstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 720 308] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F3 /BaseFont /Helvetica-Bold /Encoding 9 0 R >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000019838 00000 n 0000019921 00000 n 0000020044 00000 n 0000020077 00000 n 0000000212 00000 n 0000000292 00000 n 0000022772 00000 n 0000023029 00000 n 0000023126 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 23228 %%EOF metafor/man/figures/ex_bubble_plot.png0000644000176200001440000014772515172365254017653 0ustar liggesusers‰PNG  IHDRÜ}*¤ pHYsÂÂnÐu>²PLTEÿÿÿâââÒÒÒ***888ÁÁÁÕÕÕÝÝÝüüü>>>¨¨¨ÐÐÐ[[[eeeêêêñññ""" |||ÞÞÞ---WWW þþþHHHkkk‰‰‰õõõƒƒƒ°°°çççbbb:::ÌÌÌžžžEEE___»»»RRRxxx¢¢¢–––&&&555 ÷÷÷†††ÇÇÇšššBBB«««333111ŽŽŽnnn´´´®®®hhhîîîqqqùùùRRRNNNuuuÔÔÔØØØÛÛÛ‹‹‹OOO···¿¿¿ÃÃÃ’’’;;;KKKTTTåååòòòÙÙÙÿÿÿ¦¦¦IIIÇÇÇÛÛÛOOO333ØØØ ñññ 777ÄÄÄ CCCààà   ×××zzzhhhÕÕÕÒÒÒwww---???GGG¹¹¹AAAQQQÍÍÍ'''ooo}}}™™™îîîÔÔÔ^^^ˆˆˆ‹‹‹+++dddUUU¥¥¥˜˜˜SSS###ŒŒŒ¼¼¼llljjj¢¢¢ªªª†††<<<555!!!ÎÎά¬¬cccæææ’’’ëëëLLL ÅÅÅ```ÀÀÀèèè)))[[[šššYYY///–––þþþWWWrrrððð‰‰‰fff„„„¾¾¾888···pppuuu­­­ÉÉɲ²²Â¤¤¤äää:::JJJEEEêêê“““ýýý³³³íí퀀€âââtttÞÞÞÐÐеµµ%%%111ûûû°°°®®®ºººËËËœœœžžžõõõÆÆÆúúú\\\øøø¨¨¨ÚÚÚ,ÐüXtRNS³¹½ïé÷õÁ¼Â´èÈýö¾ÞÛ¸¶òüúÔôºîßû³äÙеÒÓŸÜé¿ÊøåÝÃàÕÉùÌðêòµÑÀËõæÇëìÎØÄÆÚ·×´áâÖ½¼÷»ÏáÄÂÁÎèãà¹~+< IDATxÚìÝýoUõÀq5™&8Ì–ÉâŒÆ™-d›î·%›šý°e?,Y—l?Ôû))xm…µ>élõVy,-Eq(J©ˆEÛ°Vj}$§Ñú‡ìÜÞ{ÛÞ¶†Þ!z^¯_î½çÜsÚ4Í÷ó|ÑE|¹fÍò7 Åœ3G H¯‹#.öW@@@@@@@@@@@¯?^ú Rìª_!r7©v‹)wi´- µžË…H}eH­%B(„ „B(„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€"„B!B(„€~'•J…¸àBØ{ªa÷p÷á¦M Ë9"Ÿj˜ŸÝ¹quëûãl]ö\ñ~áu¡° ¡ÿïöv<E«n/×xüþ¢±•V7ÌO{·'^B!Bà áàšˆš¾£‡Þ{°'U}#åéàü\wv×Õä^·WŒNü(„P…¸ÀB¸¼;úÛOWæí_³8ºÖ–a4îN*øʻɻ¡}‹#6œK;Þ|ó ° áy áof= !|fc´=\9®¡&î.à -›#ž=QüðI²MxêBˆžÏ^2çOFHa{WEí‹•=Ô+f>·Dôº;⨠áÂßÏŽ_> }!ìˆþM•¥^ŽìÌ̉hÿôbę̛…sg’BÖE¬¯^áÇ ½¶úãlÝS˧9FxÏŠáÆìK»ïÛVz²½.[ß} ÒåBX¶]£·Æ †H]{ˆöÊɆã³Æ­‡‡Æ><ñîÈYC¸¶+?»ÿ‰)!ìÌÝ{ga‡î@ñŒÔ½¶…°\!ü]×÷ ºžŠšÓSBØ5gf:ßSñÔ`é´…-];¦ á™G"²æ5wGõÎI!lN‚·tÅ¡¾ÚˆÆûFZѶþPË$|ª}BXž^TQaø€Ô…°%*§j‹Ëq0²oì_×;qâØ1ÂiBØQ·ñEBx°?ª _ÜP¡÷¾¼*¢2yÙ±¿xBjÕãÚ'„e ¡BêB8+¦ aûÄ3>ÏÙŽ¦â‘½ºmÏÂd³¯ø[ßYÂÍkŠë¼?bAò²?âÁü„3ËG¤OË·þÈé awl›&„{¢½,CòÁŽ¾½ùÖn>[×G~nT…pSôLíàkõñ癎ÆCƒu_6FW9]·çCØ3!„Í%!\±þá ò ¾Þº*òãÚ'„å á3¹á(¤+„ #»JWÄ–™Þ¯eWuì)ÝòŒÿKWæC¸:âÕâ·÷”„pQĽÓþ3/÷ü¨Câ'„e ¡G!m!L6·ÖLîà£Kò7‰Žˆº‰1MÒ¶ib»#ž.Ìú8¾ˆ]Åo. ᑈ­c+zfòJ6 ÿ&~B(„À¹†ðöªÅ “Bx gü ¦Áêü&`ñ(a¾Ü%ñ›‹!|$â/ùY·E>„ÿ¿Hb0[ÂGÔ¯‘8õ«rûN—î,ÞµfAÄçâ'„å áó—D M!L¶Äj*é`sUœžùh¼/"ûhñCïÖˆ-¹–½Z|0a’¯Î±/Ž†p¤1â£ü¤#¥×Ž´EÌ+yìŠx*y}#¢µ°î;bæ4…P'†pÑâE M!éŠþ—'ì=PÍe_)©Y×½¹ýŸO?1…íÿFÔUäOÒ‰úÜ[£ÂÌc¹ (z[«&ÝbmWDÕC¹­gÖGþÉÿˆèÏßl¦5b¾› aYC¸,®6Š@šB˜Y{!,koë·—T…0srE6¢mMûž¦úd«ì“2ÇO¿0~é_í£ã{L#V&ožk,ÌyîPñYK'÷ä'-~¥oRO¯ŒšÂow×ñâªëOKßW;„ß¼áŠÙß½rî´éùÞÜ+¯™sóoÿp~CX±ÿ³ë #ªf2 ?«)deËѵå‘×½s|IMuãÞ}Ÿ=Õi¤ac¶fûèéŸ-=õõ+ç fÆB˜ÉlÞP›­m:–é›ò`ÞÛŽ7V7ž÷úØÊßÚ÷AMumWçóÊ÷•áwn)üë;îÚ)3|M~^Õמ×:qÒÂLæ̇ïôµ?ÞyÌóÞ…ð¼šõˈê˯»ñê$wßž<ó×ÕW}knnÞÜóB%„ô…!üRü â'—åÞÜ4'â²Òy×_‘Ä1w›—›fGüT!äëÂÿ°wæÏMœg'“Ž›q(Ž mBŽ ¥i ™is4&#ökd@ŠM„ÁP|€ƒ=戱Ó>Àá°À€mÀØ8B¹‚CÌa›ÛÓÿ£{JòîŠÊÖJÈò÷ó~õì>«Wüð|æÝ}ß}ÇÄ¿Ušs€— ’Tw‚˜ü,Â",ùp + !!¡ÃÍ?€8µ9úE Óu=_ü`8‚–›%"\âÑM¡ E>æNšúªÚü»^„OØ1\{ÿõ[~OkF„Ç0•„ŠP„d0ª[` |{äŽÞ‹¬S‹g²’BŠ0rL„aÝ_ñùk¿‡†³€×"+BÛ¹¬$„P„„"Œ “¦¾þ,0H÷Pnðº÷ `D„Eȉ£„P„„"ŒïI‹æ§_ 1 ø½Öþ›x<â"¤ ¡ E¦Ë¯6gn·è[À?¹ 7Ëó$Ìig?ÅbBEH(ÂðþÄñ¯üfðB·è‡ÝE8Å,3~„©{½Ÿ`7ÞÁ̹¬&„P„„"ŒÀTÿÀ‹Ýo¾mš5w¢Ÿ½Éuá‚à×lB(BB†Ê(¿åc»O–ùC°×yÊ*ÚŽãO¬&„P„„"ŒoèžNð[X8 Á;É:Vår§zB(BB†™øñ~·?]:1þSk3¼ˆ4"äÄQB(BB†™ qïíÏ÷ub†º|K&^ò›8CBú†ïù¦ð¹’3Ò®FôÛ};úö„ Ñ’ Q„Áò.|¯ô|S÷ŒpÀkÞÍ—â〿>Ò„„P„VˆPæìVŠ"40qw¦w¦ãºç•ÖŒ¼aÍZî<…Š°×"Ìt*T—gJ*¼GR„ž†Ë3R^!•Í&Æ͘ñKéïø™ÀÓRèåaÀìÇ#‡>”…Š°·"Lñ~h¹‘,z±3rß¾ýÒ¥KDØ» Q„AóÌ“€}úœ!Ï;€·U‰£Ä?ËYbkÄ‹c§ÛE!IKEØï[ÃA¡{/BAXïîF»ALDÈÉ2áfè/´»ç¿zg€N„^­ÿ˜Dh»‘ù.+ !¡"œ@EHš0û¹¸aÃâž{Ùð‰pÀÈ!ÏŽ4ø…-ç³V„œ.CEh•£j3uu{¦ûHõòïÁú„Åîä/N‡€›R ‹…mg“ MZ¾,\êöTMèð=Ú»V’ïq':Kµ3#_è8”QàN<¸?øg„æYÆBFV‹&$„"´F„¢QŠ”V™[½ÝUó‘z̶Vù‰ðkù´[f Uçµ»i5WÍš;7{¬÷Šð\…öu=¡1ËøC(BŠBá ¨Š“lƒ”ÕMÒô™r¤k1àpæžl>öŠ0½MRÌí³„, `sSîQQDm÷Mª¿î_”rOÍ/L<Ÿª"¬l‡cíæl1¤jù(³Œý¢cS„«Æ>Á¢BH_aêÉea#kÇ’àEx®é,/ßA|ìùA¬5j¡&àÈNñoG.à!P{+õzYÂi ]žÊ¹HtP©Y@óWšè¿ï¤Ï­â±²S!Ð,«Ê‡rÁ‹ÐeòC(ÂØa>`Q!¤Š0µ᤽ëÿˆÐ“"SQS ^ šZ¶kÔSD§$ˆò’àØ©DJüDX|Y°¨Swa/2 ¨þ: Žß®«w_ÅËlPEx$Oµº€ÝÁ‹P—eÒ/Š0FE¸ßî˜ÄªBHßaÂKiOÞ,“*‡·kµSÖ Ä? Àa5’wÖ'Â+B „:`£è\%ËØPýuX¦åŠ¸|U„¹jHü’Á‹P—eÒ/Š0FEhsê^yCé3"t†Y„;‚¡soªÎš´S–¸°§^µÐŸoLX/^qÁ—~ëÜ Õ_G½#EAèrÃ^¥(MÈ-~ ^„º,“~Q„±*ÂÖRîTOHáŽ0‹ðzÏë;Ï\ njá/t×È„f`•v8Í'ÂLöI Çùw4ûŠ¿Ä¿öv(¸£(m½oiã'Á‹P—eÖ/Š0FEÈ™£„ôYÚÚÃêÁÃõÁM–©/ìÚmÔµº‹\„J¿Gu[}"l ˜ ts(Ó”‰†€â¯-€oaÃZe-ÆbåªÒÎ/B]–Y¿(BŠ]"ºJW‡´ëõÁÎmÉÜ'¼óJ6æ‡8JÎiYŸùD¸;`‚4 uC†²ˆï¶ú”OðŠpž·C֊м_a¬Š0o$ë !}R„ѲŽð@±8VËÓ4²\w¦ï6h·[£»…@ 꼘o®¬Å·¥Å, ø«Âÿ!`÷Ö¨%" Ø/Š0&E¸Ë5……Š0„õEA=['o¸Jþ·ÐoñÓ B“ÛÝþOýŠ¿ûM–ét—-á#ûEÆœaÚVB(ÂÞ,S-šp›Ô¸ $këÏÀ“¡,~x ÙÊc¡IBNÊžïÕÈyÆ©! ú«ÎoùDÐ&X(B“~Q„1,«¼ÁÊBE‚S“€u’7º €ùê£Ãr`—²xЭNýš$\P×Æ+‚úÄ$ ú«ê+àU±mêJ@«DhÒ/Š0†Eh»ëœÈÊBEÊ»FË ®»Û Ø7u¨ïÃv/R ~,›°Îe¡I·ÀYeUß ñ¾I@ó×jÀ#/òØ!~Gƒ•"4û!a ‹G ¡CáýQV‹ÔG‚Ø’Ó´YzïÚ¿•ÑZ»h’ìù§jqàxC'BcBý2±u>§ìT…è¢ífïK·3¤iM=⥠AˆÐ³ÔÇw¡É¡cZ„4!!aH"NˆºÈ’Úš?$i›?|߬ì¹Ùê½L–\ÔVïyî™´m˜º6jÒWÁˆÐŸ„G‹Ðä‡P„!!„" $BéMjGk¼S홎ÌæùÞÕƒBKiV²;¹p¡4©æŒ^„f ?nKr$——ðmÌ{§¤ÆãHv~îÛ˜×*šõ‹"Œeÿã3,.„P„á&Ã+0BF›+0–Å…Š0\ÛtSRÝ/†»ƒ&££S„÷0z(« !aØ\P›Ë ŠŒ"ŒR6TŒæ‹Ö¡ÃÍ ×çrk6i”P„Q(B[U+‹ !aXHP[òcI…øw=FF­9q”Š0L´äØÕyšö4>!¤£Y„4!!a¸æËÕzÉiÿ¥Å(ÂèádnBAEH(Âþ,Âd×dB(BBö_ÄtB(BBö_®rÛÿ CEH(Â~+BÛRB(BBöcrâ(!!¡û¹iBB(BBöoÆdzÆBŠ°ÿŠpIÛnÇDEHB¦ƒ"ì³#ÂJ¼É"CE?í«ü*)ýÔU_d©ß¶·UŠö¶'yRÕkg\sÙïºÞ§iî¤Äê½—{Ú“3ÙGÜžu·R »¦ø6ܵœ#À­€Ü°Ò¢oÿKó(ÂÈŠð.¦Œa•!$†D¸be£‘“—C¯Ð]ûTã¹Ë4Í]†A„…ʇlm€tG\ït¹75iSÏÆSß:ä´ÓQ#ÂÖZ¤û¬ ?`‘!$–DØ3…\ [ˆ—ÙR”æ%T¢Æ¶™ë4äò½ظ꣕ÀVí w€ê›\âõ\mÍ‹oKý«îìI_*GmyzgÔˆð(Â>,BN%$ÆD¸ åWô´¡.ä}°—I·õ¢†þã]ê~V3Ò¥áb9Úäõí(2¿\®h¿¶å6yhX-¶÷ +6у;¥ÆöK—(BŠ"$„"Ô‰ðØ<=Y¡‹°S¸5)Íÿ±w~OQ,W¯TÞRyÌC*¹yI¥ò§T¥*•ä)•‡¼§*8ßË^u€qnXA.‹  . ¬üV €üET~¨hTP¯+*«—+ˆë’î鞙ݡ×ÄÊJö|Ü™¡ûL/V§ûœî#¸5¯®ñ €aÕüó`êüß*Í=eì{µîø†w“Ë2$gw‹@H ü@H$$‘„Ôm G^¼6/ª`ìÄãèæŸõ@_VìµàéÒs÷Ãaçþ10™üXžÓBá'aÇŸÉÏHÂ½Õ g’ó5Ð`b/·\Í ¼à™Â›×ç^ûëŒå˜û5v_'/;‚~㫬N+}&A-r¹¬ÑøjjÜ|e­{×ì5ÂðƒòM#¿¿8„%ãÚpaBC¦êªƒ^ãZÖ];ÍÕÝm7wz"4¯4DŽÖÚ³ä˃óßö!Ûü„»Æ&z j¬•@˜JNø9‰@¸§Ú€Kv¾'°Á?GEm<³¿í‰…õ ‡T ÄþÝD³ÚZ¹{Qðò¸ ævƒ…¹É:›_Ë=òY[ÖÊÔ¥N„ ËБ†xÈÚá‘OŽÎ&è¦a¼¡8î2À@8j>ëZ‚‘ë¤åŸÇ«ì|¦¦(0…a~FŽ†D"& ÂûÀ¦À|ÐtâÙcÒÃ_el˜(β›T©Ë"v–€-å3c_ßÉlòþ“’_½Ð+*Ù#¼áÕŒ]§€¼®®®\ „ÛlFKfu/ôA „ÕÜPɼSÒ´Õœ;Ï*uàaDÝMB—¡Ã]5ÀÅ®®>¥ J×ùïh3ÒÚÿKæå*oãسî~f™Â‚ððàOÉÑHÂ=µØ%ã Dˆon+8!¦ü†Åí0ûùòH¢ ˜bìª{°³fü÷ÌeÀ‡@ï¶Àp‹7*³í5B BÖ+¿˜ct‘¿Úá{`ð©bγ±EbØyÏ/ú0ƒWE7w²×øŸ Óß¼¼ªÝÊe$:/Ϙm²Ìo¹ÓÁˆ&¦„«ËähH$ឺ ´gÈk>ɯ7ø„Þøìö¿<@YXn±2éÉ^ ›#¹•8óQÅó c½”%! ^bçš Ãól`@ÂÙ%èk¢W‹a˜õ>!2Z}™ÀPž¢u™³½ªnJº Y T` lûDÚ¡‹m^‰ö³ü+6ñœ@˜BRâ(‰´O@Ø7Õ$tEæ/¾‘÷M ""ÛnëÅz9—ÄáëavíÃÆ=ânî!Æ Ñ"B¤zw1g½cÀZ<Çžœ³›Šfu:î3VŒùŒPQn¼±²ÀOõ’ËråLÆVA‰;í} ¾w’PŽH¶–¡ÀAµ¡5 $“d"=åÕe7%Ý#²@¨2ÀÚ¼pæ—›­ýwnsð×·]p*0QL L)‰„$Ò¾a‡=ùH¡70jE?ÚpÑÕá†5mU¼._Mø0Tï¸'tð ìXo9 ¼U€°NNN•a œºÜl Î( ÍÁUî¯ê¦¡{DU‚V±‰¦}Ïg3ÜõÂçšw(Ö„©á_þF¾†DúüA8QFè¼\b;$ïÏ4‹©ÆpaÜYæˆG‹Ìe²öèw›X/,b¯òàqùqæâõøJ‰qèuœÞ‚SšÜó¬ÈUWŽÚ7¥¢ZŸaGæò|Ñ(@ø°ë!š[\;ÌÕ* UÕժꦡ{DU‚<¿UjÙ¢zä†mvèmg÷õ*ž½ÚG L)—õ/~@ΆDúìA˜º5BžZ0{Õ!míî™SÝþÒƒ~M;.B¼9xV]ñ8¢xC(öq…àNŽSÈ°s_B+–’µþ«¢oœV•†Xú>îýªnJºGdPe (ÿÌÚ ±ðyPBQ°¨×iM LqD˜ƒŸ“³!‘„{*÷Áb͉mHÖÆ*C#‘}2²¬iç^6~Ø=ñÚèŽÅž^= @xÀ~T–,§c^]-Z³¾ gcT«4Ô⡪ÛGPe (jÌ‘{xÑ.–?5í¾øÛÂWÞ}è!0å |‰ß³!‘„Én·vZÄј-eœ¸‡—„PbhKf;'½Dh ®oTa.×õÈ%79hM~„åÀ͘µÊUѲÐ=ê݆úSqMTÝ> „*± äß³€WmÌ™w›Àúù·¹Ò*0Å ÌØú19‰@¸WÞ¨U=ÁSvø±Ns›;×äˆM-y‚ߪå4æ­ŽÅ8[/#–›Åà•¹‰·=ÐmXI „ó1µþ·DëEç¨(€%áœa=™Ÿ+Pvû(ª Äp‹Ï–ÉíÕxnÍƶ³µ0Õ ¤ÄQ‰@¸‡†Ú³{¬SÚ¡s×^ôZðËD\>LF£8° ^3>tG„aî=r6Ýž)B³ÀýhL–꺖ï95 ߢõkÀµ÷Áñ—© Çlõ=Í«TÝ’a«¡Ê@3¼¨ȶ¾åQg†˜/›~O L9‰„$0±òà)Ww¤×_aÔéVý1™›f¨“oòà0!Êû Ç0YÁÐÎDñùЈ¨¯ãẄç‡A ØÇB,Ê•h£µc™¾ž¶£2É·+Fvg”Ý’áM EKðÞ8² W¿`ÿ6.ÊM˜Þ±‘"¦„¿ÿù‰@˜øø‰µðà-°°ã5¹µ–\i;à•„<.Bž9èÏwï]ŠÞËÜåGï–ÂÚ¡¬ð›[Ë °1o69jÍ@€cx¦Þc¥z2{ÎDä.ÞÆá†Nƒæ©GòÅ®¡ŠnIð$Ÿ‘à½ñ ¼Í¾¡Ø^MÌ1¯ÏŠÍ¿yÎL+0å œðýî¯äpH¤ýB±³L¬|Ÿ„Û!æÂǪ{]†QÛü †ŠÌgÃ:{Tü<¦ÃVrˆÿÜòÖ޹ͅÇ̪ÿõ¯ƒæÉ •bBq‡ñ‹¦X„é=¤% ™a†ŸƒÝEÓð„¬ÖMÌP¨z¡ô7'2d¶ª¨YhbcžQwK „µŒÀí9Jñ Œøàœ]XÇ~q¾šÂ«m팚@0å jÇ/ÉáHû„‹P©ó¿O–Y J[/­Gµö‘HY+1-èÖ§Voþx£v·½-Ÿ=:½µ^=m=+=¦% B-2&wÓ™›·ZGnèÒ÷MBCZ¤-[¶šŠ&è–yš²Ò@<µ°§5­Ð:³ÉSÍbÉaê§FÏâOäpH¤ý•7§vëÁÎ'¨šˆ6Wlê‹gcc¿›ïB#ÞÐéïâV:nj>#T£<žwûýéé€îÍϺš»GMǤ_÷e‹hɃPÓZ[|†¯ò¾6ï´>pg# ne.'6dž<é7ò¯8 œînÉ0Z2¼=J.®!v{µºùõ£ýVõqmÕƒü0å \©ü59i¿ƒô'áÿ„”8J"IB!‰D"’„i B"!‰D $Ó„³S´LH"IÂ4á„Ús”D"’„i<5ú ~HN‡D"’„é ÂÕÆŸÓ!‘„$aú‚0cbˆœ‰D $Ó„”8J"IÂ4!‘D"’„é Â?þ–ü‰D $Ó„+ºþr<$D L߈p'ÇC"IÂôaŸñÅ/ÈóHB0mA˜Ñz“‰D Ü׊ìKÓÂÏ„”8J"z;Ö;â-ý7{g×Åv…áÊ°’ªs•ªÜ¥r—»TþA.R•«\¤ ÷+sÄhgÔÌ"Ž‚€€È—Œ‚ EDDôˆàQæ ‚2*ê¨cþGöîïîiF¬0žõ^Ð=Ý«×,µØk÷Z{ß_1¯`ªï.2 IDAT_¥ÄÕ5_ðÈqÝb5×ó6ÕÓ¢ñ” {¯Vo1#ÚÖ¸æƼNVÕgi ÒKß‚7ëíËe ^án!‘DÊT;MÕìÒöÇíäÆ.ù²Ž¹%¤€°IýP®§MO0ÁÒPQß¾áòF¿ ×Âï„¿ù==$RF‚0 7ÝØö°ÛÏÝ„[ ½Ю]»„*t)ƒzp¶èàqà‚n!pá`XQw#÷σá|3® „ß?ý ’H Âítª·¶=lOq\]y^M7ðȸ¶h·šA©H»ðRù8¾†Væ£úyâFhL| ;'ÓÒj#!pzŒ¿ÓàC"e&³S~¡½Ûab˜VO÷âvR9» Ø_Æ$TŠã3@P3‚O¿BÆîòœðÒ×€}#Z „Bw=Ò4úHB]÷€ÀGíü8ðZ9©€üÑŽK Sk|ñZ±[‡gZ²£ÀY!p·0ë\! >$ÐP'ÌIÎ×@ƒ‚½\Ì8Ìd<‡luŒ¯…?±–eüP>Þîg7ù€ài „ÝkÊÊù%¼Û„#‹k—Íø›€ãßC9]á17=ëìᾑM $’H¤Œá´Ê*EgøXWÇxCõÃêDà€úq€ß_ÄF]v¾â¼R@Œ½ÉÁƒý ôý¢à/Ê}ǵ´1P$¨6+¾À BNßÁÏâó•”ÔÙ>Á >TºÝ •qÀŒ¸×Ï)<²!SŒ ×.šñ?NjÝ—}ðeñc àU¾øc;'bŒ@˜) œøëŸh"‘„zeg[–v.¦(Åùš˜æ»>™ø©Áœˆi ¯Œxrë¯Æ”HfØ—A+*‘9eb*HÚÔÎÿX8e¦‹¢ß~rÒªz¥ÅÂÃFþÕ¡NÚ:@8̺ªAw\«1¡å\ wC:t×.Zâ·Aê×!/ì'e— 4b™@˜) Œàw4‘H» „WF›†­MJá滦¦Â˜íF7&ÄïïbyùóI~œk*-æ Ló„vã lrÚ´¨µ"#ãCøGú;Àf~¥Ù0UÍj$Ìq‚ ùåpá¡TÎù•—jó§5<7^¬•é¶§€ýj¦ÿoà „«@X[ë&9YOá KþÉÝÔkŒ«2j\peC:t×.Zâ3Éçõ•vîñÃpmëe³×EÂLáCì¡®ziW°#`Jë¼Ë5&XoøÅïo?)æG±ÐL'aÚ'ò61ï¯Ä~™L^éAç4bš¯÷šž±! ËñÀÏ`l¥Q8}šv‰µÃ9:l4$WÁì»8”‹>ι˜•76N¥”»8@83#NÊðô«Œ;e6o|Ø„N#ݵK„–øÙ[ž"+¨~Ç{ÒáR`•@˜) ÌêùËßh"‘v‡këŤd¬ nªX\È©«{m¿Áqe™ÎÎfqB«BN©e+ƒ Œ]D3ùàýæ@Øk”Ÿ4œ³ˆcÌò•6¶l„{­­;B—-ñ3¶ì¥Bý’úF’±9õþ“9 „B‰”¡ ´,·¦®ˆOZ–”1³!Ñ$F‰’ºÍ+vfÑÉæ@è5ûðtîZÞHZ@ØœI ˆõ%àˆ15º-ºDh¡HóEcÇ”ò©wxyáÃ!Í+0£@Xð/zMH"šéÝ¢ÎFlë4µî1ŠTŽ¡qéBbÕí³)%Ìn „³æVO<­R~F-ý36NÃô¾ÊOáMK±LB–v„.ÚAø^̞ЖWµ5k si5aF° ¦AˆD"²þ¶ÜˆvšÕI ø@·¿lØêa²Õ [áSòíf„¯ÒXÇ&( 0šý Oe¯[:âǔք‹vÞ²|Û>¨;D}-u×.ÚA˜åCYo®þÅGÍ‚žeh{v3„ÿÁžÐ(D"ùhì)RÏîk,X’Ý“V‚–šN% (”¸ «[a²Q_‡ŒÅº ÊnX2dl 1kï#ŒŒ¶…ksãJKH‹„ýƒj3ŸH_jLþZê®]"´ƒç¡ÒeãÏÝ¥õñs}âÑç3 „Yû¥Ò(D"ÅöµØ4àË×äS³z˜°Øöú4B«‰Ð¤å-PÔS×–ËV7¹?„lÇk=Ž•eÎ}Ê–ê’ §@–Å *KËôžOn„†k—í ¼Ç¿T]^MM~9©®.jf.3 „Kÿ¥AˆDÊ,Ö—;u{@˜ó}hº²´ü+!vf(Ë~6 yÖ࣋é%#Áæ…÷óøĶBÑ*ˆpåtƒhÈW'Ç8zöwŽÁvì>!ŒËª¦›xŠ: &k«9*ÛòÚÍE·9ÿð¸pz”'®¾¶®]"´ƒ0wa ÿ+òWÜjmãÔ:„Bª%‘2 „³pÓ¥mƒ­Ôk¾_è—ª½ºï’Åò ¤ÏD²ü€r{­z« Œß‘4×>}oˆøz!w*êa¼5W3MjÓ’\¥–}šÎê–cÛ¡áÚ%B;Ù3²Œè{6y*y.YB $’H¤oÂ¥wgRõèãtM$Ï—­K¡®sÖÜïî§ð /|öÍ°Ü\†“ ·ûåpU‚m„Œí½¿’B3٠楋-~Ù_>Ç¢)ó®¶åÀMý=e²0,û"Vƒ·Ü@ò{›Íy¿„ºk— \…uyµšèËA¹m¦²˜­xˆ3 „Eü")S@HúîD Ü ¢ ‰@H"þšAø{~K#‰D $µ ü{÷ÿku]pœ@¡ñår»× —ï"Ü2v%e|¿A¤@fž³W]›Ç+Èm–.ƒeJ®"ÉÑ´h@DäFm-Ó’%¶¶lV#mj̹VÿGWÚ%.Üèêv?ûœûz<~:;îùåõÙç¹sxÞŸÊ#±Ô•„!ÌÂßžéJBˆæ ¡•£ „¡Bˆ&ás[:\Œ@¼!|<¦¸"„yCøhÔ>éjBˆ¦ aåkÑèjBˆæ áÝO-s5!Dó†ÐÊQB„P!D‡°â B„0skÙà‚Bˆæ áÑZçlW$B„0ïO£OÄM®H „aÞ>øÀDW$B„0o­!D…B„0q•„!LÂ=ŸÛ0ÍU „!L“÷Åí®J „aÞŸF¿ ¾‚"„yCøÊÏG!!B˜7„ÖË€"„B§ï"­š–/„Jk R›.„¥ áé)3]™ @ËÆ\CbÓ›„°t!¼7V¹27„oGË$³ m+»kËÌ€¼!5bÜØËŽ˜ÐÚ«i¨†ðþZŒr"d5±§uú×4'âÍ}nŒ˜õÞ?²ÞBXyá^¿d5­!z÷V™Ù±´ïÑù „Ðz€¼FE´^òåpzߣ­1î}ìJ]‡!TB€¬n¿$~‹"nês°¹+&¿Ï¬Ç*!@VÍã‡÷¾\—-Ÿ\Ñ8löÚ S&~|¨‡ð×Ëos.d7'bcŸ7fE|xÉ…['º64 üsê1„ß©·:r[ݵ¾ßü6\rá’/¬¬Ç>w8>æH­mdÄ”¾oµ÷ðæÙMÍ[6wFLÝïŸ {…•õø„/}w¡s ³u“#Z×õy«c\Ä ÿyÙÓ¶XÙߟžý^w!´^ ·¦ž.ž{Ù›“V_ÜjfCü¤Ÿn¿ÂuõøPR›Ô¯ÅWÛglAD­y€öÁ: ¡¤5êÚˆ†¹Wû£kã‡z6¦Ã¹Ñ¼–ˆëþÏÝbÀ;S×mwÄ*'@B»"æ¬ëïHÇÌ‹/ÇElê!<-w:Ò™Sú»7býâ΋÷S̘0m¨‡°ràõ&ç@6 #:û¿…‘½ñ[qó@?±~Ch½ @>kº"®ïÿPÛ¸‹7Ÿ1;C• ™™×F|èò7¯_ºô Ñƈ–Eï¾5òòý¸…€!abD\Ûpј oö~l~wµkg|ªÑ>ðÿ=«ë¾5âg@"í}·FÑ'„ÃÚÆôÓ6ðϬëuN €¢×ÊQŠ a9Ñ«„Âê3ñú‰R†pël£`ðCøØ“q¨”!ÜߵƬôV÷ÅáR†ðX4¬3l=„Û¾SÊþøH¬6l=„¥ÝhmûÌ€BBXÖÍ·­@`ÐCXÖvokÞÂWÊž–eÀà‡pGœ-å7¢}š‰0è!Ü[ÒýeþµB‡‰0è!<_ÖýeÎÝmà ~«ûâ¾–Ž6„Û—õyLB@!¬¾Z‹•3„;Ǹ‡‚³w¯?Z”g‡ë!‹€ ËÉ•£rËÁCñ€”h ØZ»“»]*Û„&K‚ŠÔšÚ5MVmU„ ©BJP´4„`[‰K„¢1¦ý?º€è.`#‰Ïú s]Ÿ&ï°ûeîð˼ûÌ3ÉCX¬ÕïfÂO¢÷W€Ô!\³<>Î2„-÷EW€Ô!,üã‰<¿Ý?w€«@òæ»å¨3tH•€j‡°B„0Ë¥£SǺò$a±fKž!|!ÆõséHƒ «æe Çh—€Ô!|åþx*Ï[Â5«®téHÂâ¡xî f¨lÿ+^µt€Ê†°øiCÓ¡\Cxû®>‰CX<ËöeÂÏGºü$áîGbg¦!|(ƹ' q‹ãþuy†pßèúaâÎYºõÝLo çì:ßõÂÄ!Ìzóm+Gè€*!B˜©kÇ!LÂŒKøpL3B˜:„EK®!üYÔu7B˜8„+·eÂKâfC „‰CøF¬Ÿ•i ׬1B˜8„ ·ÆÓVŽPÙ5ÆA% ²!,ÖFó–lCØg˜¯G„0m÷ÏŒ]Ù†pnÜb„0i‹§bö§¹†ðµhü¡I¤!,–ƪlo _Ý{—I´!Üóï—ò].³Á aâ.ÎxÏQ+G„0u³Þ|[ „0}³.á’³'™!LÂŒK8¯9˜!¬lë5Æ ã „iCøBóælK¸mãeÆ@Ó†pm,ÛgÁ • áîGâq! ²!,VÄÞ5—°{g „)CX¬ŠUó²í`ËüºF@S†ð­MñÏ|ï^ƒÍ€& a±(ÖÏÊ6„³–ÇD3 „)C¸xYlÏ÷–ððo/1B˜2„ÅG³—Øt€ê†°øt½PÝfþŠú¡C€& aÖ%l™ÓÌ€& aÖ%|67ó=Gë?˜?61B˜(„Å' M™¿­~óúé&@S…°ØÍ™¿­¾Å‚!LÂ53s[½¥£B˜0„GÞV¿'ûvª15B˜&„ųs÷çÞÁ_5Þp‰±Â4!Ì~§µúúÝ{ãc „©B˜ ·E­±Âd!Ì¿„O}bl„°Â!´t@S†°˜õPÝ>1ù¬ÜC8ï¶iF@Ó„pβøyî!œÕÐpÙøV̘~M]×Ëosª× ôÖ«®öúïÏ(w‹÷fǶÜKølÔõ3ŒoÒ¨øܸ±'YwìTçñÄw†!,þóg–¥ëï4Žîö[;×ÿÂÛ´&¯ë'œ¼µ1¢ï…Ãú·þ“aåáÂûbÉŽÜï [Œ#@ÇëÑûhÿz˜zQ»sƒ»Eô8² æu]#¾[ê+ï=CÀ‰.imÝÈϳ×7b|»“C#®>v4$â;åañBìÝ /ògB€Žu^Dß67‡Ú¼*âÒcG5Ý¢±S¹C8gI<ß®h(:ÒÚÄoì7€ÇtjˆÞÇßtljw‹¥ añéÆçóáëq¹3ê¢îŽÕöÔmÂ8(bzÉCXŠ­Ö¶<?0”ß’áÑþ?á¡£Oˆ¸©ü!,A gí¼Ì$|;&6Dãä¶ôˆ/_“7¢Íß…ÐÒQ€3ÐeçF\Üî“‹#Æ?žqùB%à+LêßzÏ7©ÝGwD 9~Ü)¢÷)nÚ'•q÷¼±.ÿ®ìr­è`=[;8nDûÏîiÂq§ú¹š®q*s áïÊð Å®8·“‘èPýzµ†î¼>¼¢ýW£SOù“#‡äžŒï6ÆÇÙ‡ðÕí—ïÚyçDtqâ§Û/–¹æëþ¶œÿFXü&ÿÝ·ëë?s›¡è@#k#zü÷6«g&DÜxF„pñì¾mÁ @‡êÓ1|ÒÉŸOŒ¸ûøñ 6Ï–:„Å¡Rì¾­„g`´ÞùÕœâDϦ/™ÝfáL¹Cxd÷í{ËPÂK-˜èc"ÆœúÔM_¼|©æ܈ÉgH‹GcÙ†ü;¸9®ÿ‰éHïÖ¦ˆA_qnHÄðcGãOc‡µìCxïsQ‚2½Ó7Õ˜O€ÔŸÑãÄßýèÉë#.<òŸñØÚˆ[Ϙ‡¶•á«ÑÝóm; \Ÿˆ8§Ûºý°kÄÍG&´õ½bàÕ ­Aüú¿3û–d«µ5›Í'@rWµßæìö!<뺺ÏO\|ßÒ ¡¥£¥QûÿCxV¿½êºvuééüÎ2„P H¦!,I _?ÛCB˜Ä“Û[J­Ñ°‰Â[­ÍE%ácëc¨‰ÂVDã[%(á¡#L€¦°1V¯³`€Ê†ððŸã3KG¨l‹ß7Æ‚R„pñ°)¦ @¿yˆõ‹ËÂEqMOc „ßüÊÑ­±´ !,æÆ Æ @¿qÿ=´üõR|7ºgýÝÆ @+¼Á̆Æ @+½é¨¥£BXíÖO¶ë(€V¸„ïïz¾ÙÂV–bƒ™}ÿcïÞŸ£*ï8Ž'² I6BÂ@È£@$€@Är†Ûî|¦É„ˆ-Q.A(e  [À (ÈÔ Ô¡„ ´EäRg°ÔhG™–ü?º'áýr’³ß=ï×ÉžßÎÏ3ï9»Ïyž *›ÎàBèºÛº`áŠðš•zŠÁ„Ðu—›ôš föap!tß1Õ~ÁÒQ€oCùμJ ¾ aûa½g$„¯'ó;!B×}]¯½6BøK â ^ „®[«5&BøéOŶ£@]×°Yël<~~z# ¡ûÇÕŸm‡Y0ðk-m:J €ú»„Û '3Ê€ú·„íª+e˜!ôï#á; þ˜q„Ðmw.\´¶ÓÕ™Œ3 „n{M»–²bàۮߪÍm„à×F.®Ð63„™ *k@Ýõ†ja%„(—ó €ºl™ª­œÈôq½¦0Ø€º«å°65)áoëÊl@]öñ2ób}+ƒ ¡Û~½ë†]GY; „Ð×Ûo‡Ã™i 8 „þ áÍf1â€ú¶„ÇOªŒgB „þ-aó¥2䀺¬æX«™ÞNaÈ!tÙN-cé(À¿!üº^ç(!À·!ŒlSýûvB¸:8Œa„ÐU›´ê¦™~¨ÚRÆB7mY¥ëfJ¸SÉŒ; „nÿLø‘™¶ýs?ã¡»šú™3@Ý?›po˜|Âæ;m¦BøDï > „¾=‡"|RYéŒ> „¾-aÍ4ƒÑ„п%<¿i £¡Ë!lfÁ ÀÇ!üHg)!À¿!üoUÕ›–Bx5w.#¡‹Ž¨©ÝÒ›ÌBèâۄ˵¡ÕP ×)0‹1„Ð5ß^Þ§o …°qݵéŒA „.Ú_«caVÌüÂÈ¿tå2%ø6„ ¯h§­^ÊæwB „îi¨¥þb IDATù›­×êÃo+”É@Bè×í·Ãß¾¬ "Bÿ–pýÖ™ D „>.! f€RB!tÏ­]ï+aqQ £¡[n˜{¯þK½4„á„Ð-gUÿ¾©~R«"†#Bß«¯þÜT OÆpBèš-‡µq;+f F-“š:f!ìN›ôWÖŽ@,J/*«’#44vŸcUU«­•ðÙbæ€ø7?Y÷%Ï#„Ýg§öëàRŽ¬àãs¢ dTd•ÕF?GÂî;¯þí½Öžÿ¢Ú1Ìñ-%$…Jóœé &J•„ fîkûãB ÎÍ•²Òï]¤WH !%ìšBV̈sýœóà*3Gý !%dí(飂®—šM)áwµÎèËD¿šÖõrŠ„°{]ßxÔXïhÐ|f €¸•£Â®—#•C»×*½×hì‰ðšJÒ˜*âU™’º^f©Œv¯õÚfì‘ð赕„@ÜZ,~p5ZÊ&„ÝìœêXû™°‘3âV_)§øÞEqŽª<þ5È!Œ| ¦-¬€X1SÒ¤áSGš:lRôãLoÇ!l>¤­WÍ…°áÉ~Ìq)ýiuQ‘G»ß¥j]o³µJžÅt—*Gïe08²Òë»ñE#¿¢/¬…pée0[Ä©ÄaI'Ž+¾Äû{ñG#§N5÷Ýèš““˜+@ý¼× f€RBˆLëøûBHؼìD¦€x!ipÇ߇BJøÃN«Œ „„з«o› aû=ÍÜ'’’’J;þ>„ö”ß«þ-s%lÙPÈÜB芆he+f~ a¤e«þÝJ ÀScÇ~g—íì ¾íAç®ÝK89—3â†TÚõróö¨Ojõƒ!ܬ J >C8½DABØ“ªîŽ½¶¬Ts€u•‹sRVî}変„°‡'\nð‘°eã\¦óŠô½¦ž=œðìj“[Ì°b€})ß“Áª‚g!;ÌPBþÐ/5*ú˜zßóóGx~S> ¡ÕŽ¬˜Ã,`ßC«F½¯³Ch´„‡âÌzö <0¦îÇŸ!Œ´7Âæ—õ3¡.ìûÁ®Ùq‹ þTB¼«=¯²d<’2k|_Çü1óž+-@=PS­Ÿ-á¦Ûò¦ås¡÷n4éˆÍ¾Òg<³€iå¿IH=qªVçL†p£J(!ËR£íËIÊ²Æ ˆ~ îE½±Vu,†ðære3¶HZœ—)ÍKH˜•+=áñýø7„‘?«ÉâÒÑðÕsÍÌ#†…4»²ãßPç*[uÍåã6_ÐF÷˜aí(Ãu¾]®Þο¼B¯´¿Þj5„áDö˜`Umç£à4ÍNè|$Ì"„ìµöè¾ Žf2°úDعRšó¸J!%|t§(f60)¤™Î¿©«eœ !%|tÛw{ý¥:üŸ)?/úo‰Tä\>© !ôÖùf“%l¼õ)³ €I¥RçÂd…ÒÒò"„Þv°nßzÖŽ@ÏI I93FJã†M”ÆBOýê7ÚzÓj §–2£ØÓ7GÎÎ ‰ƒ:wX Œ"„ÞúÙJ½{Üh«UÈÜìéUp~|ª£„µ“=¾Bùj…v áÞ*½ÈŒ`PZ¢ó7sÚ¤¬lÏ·O&„ûo4ZÂ님O@×6Õí7ZÂ6VÌ0Ïãå„бC'ÚÍn2Ã`ÚÀÞÌ ûooºrÉlÃÃ¥1“‘þlvAö„”û×ÏL rB}lXowÛÑðŸ4.‘ÉÀ„u¾2Qvï‰çBÎ%!d¯µÇS³K‹˜],xQwåw¤gDnÇE.!¤„©å:GQ° W@ ,|!)¿rçq°“ÁÐóß!Œ‡²d€ …ÒlçµÁ A§=“£YTpJ¥×wEØòÍ›–KXÉ㲤Î/°†Jƒ'TE;¸°Ÿ÷wEدú¯ì†ðHN1“ @l›­’Îõ¢s¤þùR~Ll˜LhX¦¦»!T`³ @L *ëî§|ç×ÁÞ±±âv=‰âÎ4X ág»UÁ,Óª´ðî'ç­‰ì”ظ+Bø?öîý·©óŽã¸S§L ©s„@XH¸$\º$´@aK5Wä7¥lêÚQ(-ëÒ´…mâRºB7Fƒˆ­?$¥ê`U”¡jCÓ”ý³pw†mŽís¿_?$N+™#+ß¼uìçœç®O ÿ©?9vO¦ž]gÊØš4bð‘;t>h—ÝsáÝÛôîÓ¶>ÖŽ@òCØl—£"„wûz½þãä«(²êX< À!Ì'„öÝ“©×Á!|K“ò™5N¡mö'„÷ºp舃CøÅÑ[E€­Ch›£"„†ÝbæÚÖf !$„\Â#íÌBH3ú¶£,`Û¸”IîÛ¡-·êuò…¾ÞY#8v at„І¾ ~zÜÁ!üXžï2q!!L\o§>owðç„¿–g#Àn*†@í¨ÿŒº|JØóÆ)&áÃ8Ð+¬˜B˜±!|v¿´Çá%>‡_p „ {O~G‡p¯ßÅo8„÷éÝ¥£ÂÍûTTů8„¯%<ßvÌѧ„_Ôt~ÅSnrcáö¡!ç„~‹™K½,™IµEK‚’Š&òJ„{­±x4#µ*¸ãÓ­ò~‡— „”Ð&š&ðkž:ÍjÛ¿fÍ«šÏkBJh“·GƒZÂ'V)Ó¤Ö„P¯@Y2óZ÷G—°# Î Sfšþá Êy1BhˆtÊÙç„ýçX;š2´=ÂSšÇkÄl!´¹~`Å b³Â«ó~ÚÝ©…¼ÀPVÞýã¢Ò !´»ÈÂñKfZ¸´>5*ý‘Mef²û0¤`Å?ÍÅ6LÐ¥¶?8=„/y똾”h.ñhTÓx^`Hò×ßzœ5•ýqaý:½æðv)XÏø¥FgƒÀÿ¡ü•ƒkC,Hó_'BÓÊÑmêüÌÙ!l?©VÆ€Tå,f>+|:86ÝÛ˜\yÎé»ú|×.3~l¡1 ºrj¼á.HûáÂØüøuçßc†Å£ìa®GãeÐ3Ψ ºÙšÏ×°´ ~#½‘õÕOL¶ÃÁÂŒ*áiŒd¤_s™äm´Ç±ÂŒ*á¥sò²°€ ¬®ÕÃÜx¢¼D…Qþó(ÝóB/÷ô8¼„G6ídþ¤KΠ>Žÿ™+Z«D“m»m`É $HCˆû‰Vú£†p¤TPtS!L†Ãu›°x4—+¾88„åMAE á2%²Û!ŒË'~íw~¯‡±x@¸‡ß³·Fê%„S¥vÛ!„ñ9-‡ó—ÌìVÁd&€#å7•Ie%QCX$O‘Â8mRð†ãKxùœf0M©"¼¿KØh!̪$g$„ñú³ÚÞw| Û_eÉ §†°¶&Ç5„ÍÒh×Ä…KK Ÿ$„É´qv›p“J íršëšã}/sÆâðrШ!œ }sväóÃàҼ؟‘Æ¿Å/Bߘì§CéÐÒXþ¶z^¨Y£æ&ò QC¸ôŽ…¨³‹ !÷˜y «Zþó õrçÉ?Þåʪ8{[iUg†žmþļüUOû¥’BH dóMb ¤þ|°(¬—kšäÉÅ«¬8þçˆÂ4¸ãocè_ˆ~'Ó©Ãî3Šfn ?ܲ—‰r+¥åõù®òåRËU#-¶èŒ°¸yäï’F]@šSõŠþGaÞ¼q™%3€ùò„Wu®’ŠÞÐLàš‡¨!¼Ãt)ídM¿ÏÎ󶶛QªÂbÆ@* ÓÔð·qÒ´ð÷iª¶>„9)Ö{yóa‚z_ÐÏ.™‹µš¹BÞý—J¤È;™MòXBWër@B˜¨ŸïÓï>4 „·«¬ŠÁ:5…¾æ䉼yYª2«BØ2þŽD±^!FöE§>8n@ Ï®{.ŸÁ:êéÐ×:é[®3Ã"kB¸¸Ö_zóñd© œ&Ý×?Ѷ#>–Ì@\F¨:ÏåÊ–jÂ?ÍÆZ•Ұ›ñ[(Íõ¹áCè_¯Ïû )a[H‘йàã•ÏHb—+«Æ£DvˆÂ*Ï­‹)“&ÂTøíÝ0#„Ç ªW1R"§dàâ½ðšÑ‚Ð÷ìžã®VÔ×GVˆŽ–¼‘¨>6L+S a J¸ë‡f„°ýª¼#O)ñ½Yá.zè–f%ò†Ô]!¼y&˜¾ÇÚ ǵ¤™±ßu›r‹™»Ì¬‹,ã€TXU8¡!ò tÒÜòDž j]U#nÞ*fD«á !%°am³ À)¢‡ÐåZ0vž×;Þá"„”Å£2!´Àõ÷M)áÙ3˜ I“›››ùzBèx;´Åv+XèHEÞмóBèx¥7ÌaßNyr˜U„Æi‹´ßsÂßô3ª’Åív×E¾Þƒ [ú„53àD„ЧÍ9'ôùz¾QÉd „„0>ïÉ¿Ç”nôkìxf@ªÔB3lR Ý”îiÓ2F@jäf³XƘµ£Íù”ð¯ëÖ2œ’!¿¾tjéÜÛËÓç4yY5Ê=fX2 cTD®—˜=yðçE\>A íkE%;×°Ö²›WVGÒS56òÃØô!¤„CéÒ㹌- =â‘<­KÜØ?~Á£á };ÍGE-ÖÑoL{_Pu ƒ À:Ó¤åáí—æzÃíi eQÞ¦´ÿ!„Ö:¦àcJøߗΗ3¸¬S"M‰<'Îõ‡:Ø:<ýGE-ÖeR Y2ÀRËU;°^t…4¢Zª®³ÃQB‹=ÿ–‚‡*aÓ /kxU2ø¨:üé`v–-ŽŠ&áœÐßaP϶y™^–ð«uðQøª‰R›lvC)án<ú©žñ`iÄà#wè|Ð.‹a’ß wG{¶&0¾,a³]ŽŠ&ÃNýؤ ûX2ÀúÚæ–„0)~yÍgW.WR°4„¶ù£B¹ÇLL:Ԛǰ0„¶9*BH còå-bŠBB˜±%ìýÑÑb¦!$„qX{î“Jø÷—Y3àaCXàP&¹o#„¦úʯw7¶d¦…·GŸá@án ktÖkLBgKë×0ß„!’«/ê1YÂëE•ó/„IUiÃeöÌ!tÖŨVÙ]*üÍÜ9ÌBˆÝ­Õ‚õVCxU'ÏfÈB$»dæÞ£!\|MŸeÈB$¹d¦U›‡–0ÿþ— Bˆ$âkxÐîázöÌ „H"v*²Öpƒ}w£€b$…b9„ËUßbÖ˜ áS³{K—Ìøz‘¢-qË1 Ìát=C!|Mÿ+Ò'`é²YK-o­È ÿì9F€•ÎÔÿÉÛDÁÒd¨U›ë —p‹ê;Œ+!œöÊ7%Ôe}4,M —kÖfÃ%̸ÓÁÈ°ÂÀ¤©áoJ>²žˆ¥ç@áÕg‚¦W ÀHïe'> kÛr¨XZ\ÈÒ%-¦K˜ÿƒ·y©€rþ^›HaÿK‹ƒ]c:„+Âú«§˜<&B(²þHâ÷Ѭ­™T,2JËL‡0XwOßgò ¡Hß²ÄGatCŒŒ¥c¡0Gl—ðVQ“ÀLE6å%Rx§ŽŒqËŒÏM3¯NcüØ¡Ä‹#‰®é$b”Ð×Rᬧg2l„Pd°,QÂ殚I‹¯v5™á“þ ÀHE6$R˜wŠ¥A•6¬°½R¸]§3€Ì„PJNç&R¸ç+:6fuQ­ŽÛþuTò9^ÀNEº…WÍï¢dcÕwRKÏÙß33û§L!#!Ùv,ñQx€£cv¸U#­‡pHCïLd ¡Äv•&RXý5)£ø"Õ ù¶Cx¦8K_bX ¡ÈPeâª]>HËÆ&§XµÍú7áàÖN怊ôM”0²…W)ƨ­ >耡Šô.ô¼JÑQHÌ8Zïãxý¯¿ËEÜÌ„PJÎ7'RxŒ[×H¡“¹:yãÀJEº—„<·®í e”0™’2}‹q`'„"힥ÂöFZ6&±íÅMÖK˜?TÁR!K!”œ¶ÏU·ÃÕCnt°"¢O²i€¡Š ìñ°/;GÓRÒuR£õn”p @ß`FX ¡Hog×Ì?þMÕR‘¹G³6ä»±}tÓGÌ([!”XÑD £§Ù5“êÙú%û]Y( þð'€Štñ°ÏÛÌ®™TìŽè±¸3%Ü«¿x†Q`'„"ƒÞ»¸­$k)þLKc®„pUXŸfTX ¡HÆjO ?æ®™|Ôræ“°ûÚMF€­JΦ…ž]3Û» Û¨6JÐ) +S!)¹M¤°¹x=eã–™$¦Îú!¯R0B‘®Ê/4‘Bÿ¨N™ÆÈ0ÂG»f<ÏRÌ¡k£¶þЇg\ ᙃ¥'Ç1²L…Pd¸ß³k¦õ"a­¾®¹áÌ7aO +…¬…P¤w©÷Ú56ŽVÛ%Ý›éÔRáß‚¹`)„ûðžwéQÚ6:wOjî}—BX¬:÷U&€¡Š4îô¼ÐtiËqݦ£Õâëî„pÿΈÎar˜ ¡H÷Öp"….”P·Q(ÜÒ³—ú&l¼ËR!k!¹]æY*ÌÛÍYŠQù<ªAǼðÛ?3¾,…Pd[«'…wNP·ÑèÜs-„›4ü7Þ¯`*„’sp¯'…Ùä³õ#¸±]u ÀTEbÿªå,%ôëÜÍ 0c!‰—çzÎR¬ë¤n£râ¢k1 ^ÿS ÀRE2xn TfR7ÿ†Tô8ÂLÿÒï™c–B(²ãPV"…¹5ηÓa]w+„-kT'0Çl…Pd Á³TXZıBßVÞÓè6Ǿ ÝfŽX ¡H]+Ç S»š [C5׃î->3Ÿa`*„’Ó[íIa5O4ùÞy»/¤Ë»WÂÇOxq`)„ÿ¢wäyRXuŸÆùÝ:Õóî…ð”êÆ€­Š”¬:àIážaçs·Ñ¾A÷B¼{å&ã ÀZE†¼ïRhÙ]"Çáú‘— Ç=ÆL0B‘ÃÞc…YW×’8J8’#Yïÿ‘©`*„"ë`ÒØ ¡Èáʈ÷¦”.‰M^Uál ç†ßãÝ^ÆB(rô”ç Rmå¹Â$G ·«.+ù{çþÕyÆqlÒL¨ê«¢16j¼¥ñ2ÖšT›¶éØè¤Î|7G鲬¬1®%eA¼à(Š(7‘‹VQ"0Jc•*aÔ&# Œãø‡t"ž»ËYXöœ=ûýüâŽçì<Ç÷ùpÞ÷}ž7PEX „±ñ!Do"„i7n´wÓvîß ­°vª sRlä`'„èN„‚°»Ì$QaLmçŽí@Õ¿#x©0hã‡ñ„}‰Pm–ª°¸€ºsWR˜kDIB›° o¬ŸÆ1OÑ—á?Í"U¨”›p €Eø̬ç˜'„èM„‚БªP!{»ù0òRaQÇ3!¡þDèèA*U¡%U¥])Wa.4¸£ Ö5MxòI€›pëíK‘L„P„:¡ P„3Ç!Áö+ÆxrÊZ€‰PNm‡¬ éöti„M±O VG'^°À˜ËF3JŸ9ª)‚=þ0±÷?Vد—°:Ÿbòç=Ãl gô~ŠdÙ…† IDAT^§ݨðÐ>© 3v•ŽÔöàªbq[áéÜ#¢ä5ø3Q¡¯­Püv÷ÙêžF_–X¥«ažÉ„Eˆ÷™°&ŸâL„KÙ½Ÿ‚ÇÂ8Š"tÖ¬vø¢ÝŒMñ^;IèÐHxº,þ—ì!Ö(kç‰0×çöœ–Q„î)Ý[þüÆHÜ$ÊExw´œ½WElj {ë k·w+Ÿ.…XTóêfîÏ€q“!Þáâ…ÁAÎD8ºof´G—££#Ù$«±¿ïý[TãGå"ÜŽn ýž°Ít ´šbcÄx÷£aùb$Õõ;VÄ„0kâe­sŒFg"œ…W‡‹®VS„ƒÓ°GÚ[L1xûõÈU. ¼ÐÒöÚB.Ê(BØtwƒá•(©ðP«D¬gÚ"d$p&ÂÉJÆ\`’rš6¼5D¢üžÇǤMH‘xä™W/oÃå"Œ…Akáù'éÃp×bÙèf0LAÆe'O5cF¿Eˆßá§"œ ,ì[¬Þs¾šÿ‹Ìâ¿`nÚd*Ì‹NõâÅëqO±/C èá<|èòŸ²Ñä´«lf161pÄÿðS~DômœÂœý\ð/áŒÏ¿ñÍVÙÒdïÅ£ ÕŠE˜Š³|~Kj’«J™¬r\e|EèþC.ÂÅNðõ°¼íY¬ì©T…ME?zéÂ×{G©¡’ƒÏo‰FRœ‹› ãC(B߈p¾|jô¯l–áŒÜ©Çd׌1¹Þ¹l9 •Š°÷øü–6T¹z°]Fìg€EèN—o–ù-wzHœ¬°ÐÔì•-œeHVèÁ“xC›9—ñÌÿ¸mT^Mñf„´gÅÚPœpùh_ýŠJQFS%å¿£=/,¼'­¦@LÍ×þäeX㔉° 1ZKç1–Ç”ŸŒ*„NýðUY,®m… !ÃáGÀç/?ÏÔR„ð¤J¶…ôø°r'XpT‘ã’pX»qÉ,î“q±ø¨o$,D½ëg[ˆ±ÌY„øD„ãM¯J&Þ—lœ¡=âY¾ìðÞ¼ÚÎá]/yŠ^ Ó`IÐpXvžºO÷õ£¡å»È—#aŽ»:™ŒaÎ"Ä'" ZÝwøRðÀ_(Â!R/Û7›6¬¥»Ö d+ð`V, 5ºo ç'Mš5ÁQÅ»Ç]…(‚™´ñ‰#€w{?-ó ÃEèd>óˆì˜&ã½ï‡q±C0_\„Ûžà‘‰xPa?nêYç!!êŠpƲeo;þœ¹çøÍsQ(ð1E8¶tÕËZcߌ Wºóà˜;ü!.ÍÝ”ŸŒK'Òó¹FHˆÚ"ü¾çÃ*û§Ió§ Ú…Dzw iIáP÷Íܲ ½À½ã͈÷iã6 ¥”öw¢­ÿ9kO ¦‡Ï´X© ŸæñôÞ“å¸ëÖ„©MˆÞâ19ØØ„¦øh¾þï…fÖ¢ M™>fì¼Ùž\‹"tó2ט'U¡ùjÃЊ ¨v3;ÚhFQ‚ßÄ$Çf=î úú±Ãmg™·™³Ñ4¡Û²ºãY7”«tÇÂrØEš,È‘ÒêO1i±TŸœw½F'2ÍBúõ¾™¬bÙ¾™Êk‡0;j9Ûi¢,übZ‚…¤´Â¸ê“ó ÄåéMXÁ4CEèïûfÊdûf2joy|‰(wf€ ׋8Ûâ‡Ë§ÏXTØn×çNa–!„"ÔÁ¾™ Ù‘…åUO<¾Ä9‹ã¨Ã‡’]35gö‰³£ü5(”Ÿ”­)®N¨]À,CE¨:oÊú͘R <½Bkªã M‰›+rk÷_?v÷Š£V¿ì¾Ç$òtËð%ÿ*ÁñšüVÄz&B(Bp"]¾XxØÓÊ„®è$iÇšÄ]_ùwH’Pùˆ|IçS$Õõk¥næ0ÇBꈂ“¬#÷~§5ÿÏÞÙþDy¥a|t_²±qÓúÒmn7u·q»[׸m¢Ûm6ݨ»Mì~ؘÍ4×8”8ã28,Œ`VÁZÞ_EQ&Âð&ŽŠ®A´¼ˆ!ü!;cÛlŸf˜Aáœë÷OðNàúqÎsß÷IõäÞ—v6³°ç?ãË~=r|^/4Qßam>¾ö¯íe0ìfÄBŠE†»^ÑYXØÿ™ÌŒ_3à`Õ%:ð[.žÖÃØYþüUáíª3°÷•mœ·ME(½­ŠÒÎ\ß»Œ=±¿þ{:ªý¿΄sf¡±ÍÑ ¼±…!CE('Û*LÈ®‘Ø„¦¯|ÿ<£¿Ç›’öí¯…Í]qQûÈîÄv† !¡ø/ - %«°¦=ýøîzGovY}7…Ô«Õj4[~»‡QCE(cSŠ‰Ü±‰ŸI õ”FìåàmB(BÑ; ‘åI•\…,š <ŠÔ ý† !¡x…µ# ÚŽze^ŽlÃÔT^ Y¤·ýG¤ŸîbâB F¥r ©áÞ´¼káÐÃÂVŠ ˜Voܺ’™CE(Þ£6Ŷ0¯MÚÒÊ î6u¤ÑзB1s¡…cÐ3¬PáÓrYOHŸ·RT¦ð3Ô Ó2t¡$IÙNa¸§“õŸ‚òzÄÓws°mõû;71{¡Å¢DyQò’ž^©Ó—Óts0m63{¡E£&;NYCÚÞ!çBxëSF!¡Xd(Πh¿¬sH­1îTšnÜÀúŸ1ƒ¡ãËå ©eªKÎu¨‡±”3Hƒsi²zøf!¡x'¤éŠR}ŸË*á2ôW¶Sl°ÍÖWvr(7!¡XŒå*kHÍ­Ï$\…‰, nòE7‡lÀE„P„¢Õ)Th¬“pøšÕSœ½HÓÍYDÚ]ÐÉ("„"ï„4é¾b)=ƒÒ- ý ~œ¢ ‘5¾ºƒ‰DE(WŽ>UÎäÊW8Ó{‹½¡rØ÷;ò#‰ŠP,RÛÒ ,œy cá £1ÆrF!¡pÜ&!¡Hô_Sn qà”L½…4[Øó×*ÜÓZfÓ{»˜_„P„Âl ÕÓ×,×FeRaGÒ ê-l&±þw+™`„P„Ëñ®'£3®çmVm 󪾔fI®ãœë!Í&ãYÀ«L0B(ÂeFôþIJçš3æ5èLêma‹R…õ…:I–åÔS Ž* oU²V£Yñ‹Ì1B(Âåò2°Î?\Mo)°=¿´>Á£ÞöO©¶…E)Ñrœ ÿÛ÷ÿAB-›)æC+°Ž—TB.jr},jöLêtº3µöôz`øÌ #´©ŠHÇ&’¥PaŠO…Q]ÔÚ<Ú)êŒø“ŒŠplÏñÝÿ™œrÂPjšñ‰C 6¥ Í¥r¨°ÝÔÚ¼:í3nhµšmþŠ—TB.an[ð4E§d"ˆ±ÎüÜÔœN½B…±ÕRŒ_Kd3Åü9 läÛBB(Â%KåA46éfpÔ€ÓlŸ?Ö^¦ê³Ï½%K3…öáiµyðMvãÁ^&!áÅûiIºYxl€}ö/±º2 ª†Šýãr¬V‹¥û zm>ÜðØúúßÍ`#„"\b˜â7©›•v6Ix»£T•3uI2TΤõíVjmžz6ÚB.µ>9ÜÉÑ ÃÖÀMª3*]x]‚ÊÓ×->éOÓióÛvµ7ûïñ]ù1o© „"\*XÍhäA]“§‚}qov£R…±}Åâ"Mêôý 1Ü.„Ÿbï[ 8B(Â¥AlIE¨kFÑ_ÿD=~Í⮿¼(1í´ÙÈvÂÀ±Ü„P„Kƒx¸{P7iÄœZü*^ÙPážË¢/[é»)Â¥ó·´Zf÷ï?ÞÄ #„"|©ŒÇê¡®í!<¥¤Ü¬T¡!óÁI)º)È‚8a60è¡_*.Dó ®-¡½jœ8¦ªœ±M=‘`ýÜQUwé³ùÓ嶤ùÿ\÷p_HEø²°#=¨sPo ñQ½)ªÊd¥DÚXì& m›BᮽïþëŸ ÒÛzNuDZôØ+ô"ÞüÜ€c”Y6~Âà#„"|¡ÜCCpÞAIøOv«š Õb7Ú—Øo²„4ƒgz¢Îà#„"|¡ä¢.¨› Ÿ—Á‹ûbUö…&ÁS«=t‘2[ Ñ|Þüà£Í¼¿ŠðÅ0€– "̆y¾¾Ò :"½^ž!ør–bÆ貑} @B(ÂÂ-Ü©&ÂBÔ-àéºÓª#RŒ ôŠ¼œ­zß8ù&[(VG¦K«Ñ¬Úþ EH.vÍca zþ`qµªŠÔxß%ðЙ¡Ó¾½Ìõ#TYD~²AH(BŠpq¹€‘ À_¸{¸gXµ-t6O‹» Ñö2 >…‹wÝü’AH(BŠpq3è=E˜w$¾É“\›Ê… ¥cÂ.éɶ<˜)±Èp©Ë?ÂnÇŸ~ü6 EH.1>ȃ­0–Dæ»X]÷U³Hõ"¿.¬ÌàDîH2 üH(BŠp‘¸l x“ˉòÈ}£ÞնИ(ö6íÕ¼É>2Ô dVj5šµ›ÿº‡¹H(BŠ0â#Ö>ûe„ÃÈŠl|FùuÌè.Lwi=ÐgNß Æ"Fð:‹gEHFžf»gñàDl‘gº]¨î¨0ç÷ »Û¾oâ<¬!GrË`÷ÿy¯b:Š"Œ$Ö{ˆ-œñž°Í Ë¢ŒËNÍÉTuT`¸çŠ kÛ‘ïꧼtX„8Ñ{Â÷ñϫ׽¶‚I(BŠ0‚&lŠ”µ£“Ç0/ÚN-:»E¥Âجܦ!!_¦:ò=MÙâ#þÇÞ¹ÿ4•¦qœÉþàfg²cÖÇ™Ùd2ÎdWçw3kœdoÙìnÖLܙݛš§ÄÓÚ *e¤(ˆHW[)(µR@n2TnÃ5Ti¹("STTÐ!„ù?ö*(œ"U{N9'ßÏmý¡çä¼6χ÷}Ÿ÷yèHB„±¤ÛDÔÑbIƒn ÷ïÜ$1ïx²4‘V£Mq¹ó8º š,ˆ0¶Ü›õ'©T û¾z÷mÄIB„1ÚÍr±D:gNka“+XÄI©zTì[êÕ¾å6¾º¢êjãâæáPý¤RsHAÌñr¿˜(DƈK~ã³®IV¯$¹œ•Z¢ì‘~ox‡²8SÓEÄä*õ¬½Å™b; {Å;ÝÖ¡Q>wf;v DÆ„‰ŠBMNNû‰zÚ³‰œ7n¯Øœ T²Ä¶Z”)Ânî{êV2k:Iû£¯0DÊ.‹ÄG”rPxlÃþˆÈPÚ£ÈG.àk \ <€ºbËô#†>CÀ!D(3jzIëŠÜªtˆ¯Àf›Sâc‡ZMÜ´Ð wŘj¾'òöÜ‹†¾"„eÂx5˜×ªqj/ZÜ© VL+ñÉ+:Ès‰Â‚–03!D(—í2+™^Ðõ¢3e©©}\OßcA©8d¸ÏªT _îß»ñ@„áÆ&tc/j\¼œÂÚ0Ü©ÔÊÜ·zÍip—Œr?œ½ "„k62eZÊW¿‚çº6™NÍ(2´„ˆ)» oÅœ«î‘ìNUBÂîÿüë—ˆ£"‘³Õ”ª^‡ôEg²} ìRaqcˆ<%0—hÇ*hǯHD6 fÊžYO„jçªl‡Z¯¸‘˜òóyAÁïá,QÐk ánûÐÆ@„`C‘QDþu=¨îfÅHµW7–â–ÁœP´EÒÁ»Üë.æonB@!Ø8œ#OÙú"T¡ÔVÏj&ú'7s|›8KDæŒDÿ@@!Ø8#_T›©.Ã2+häK)é·9,*Ÿµø[HK®7XTª„=?}ÿÏï!°ˆÄ$-3/<¡6~ípV#pa¢C­¼qI{Bdh]‡¶Dã$K´@„ îØé¨:*r©6üqoÎÐj^, )m`Ž÷å%£Æ ‹·=ÄÍ ßxó¿_|„ B74K¨cùK5îTÀ…%Šsá‚Ÿýúa,q qƒü!,€AÜRzt", Óóß›>ge•ï o.› U‰Ìãô,»*!á£O÷n‰{éI¤±èDX¦¥¤•_àÛ*~4ÏÎ"½‡íB±÷ Ù¤"ñ ŽÜщPm “ÂT›Ë½V§?Và8d¯á€¡¸É¤öS)73LøçoÑâ@„@BXR„šŒtƱ* Sü7•6N¡:î¹²øJt’ˆ˜pD$£¼QŠ°ŽÖ:1Øh«Ò ÎTÔ–+«[†—OÒí¨Ë-2g2³˜>lüþ/H&!uG)Bõ¬}™ã6á¼ÐèP+«6÷t€þA¨Jt¾9ýèzg3/€蜦Ñy°´/nËÛxPèBOû eõljÎÌD6‰f†~#9ùð±gÓODÄãÍG'ÂËd\÷bcÇ.¬sµ)°—¯j®ôÊ]¸JlÆïq/ß½C[?C!~êN„ó”ÍõæÆ„y¤¦úÑq¥›(Ûñø \%>ÉM&òðadß3!5™.D%Â2Gyɤç FÜÓÊZ#uð½8<µ!¸P‚EÒA>[7ù7´Ù¤"±Çb"[T[„:šˆþª¹‚l:k IQ#WæËæ« '*¤¢Ö@C[¸pòɯ03!ˆí_e4"l"çK¦XŒjs³UæE¹pö|{†’Š»SsüÛïhÇWhrä&Â/·šœ9þŠÛƒ°Îä&±Qœ$,+"ÛK_z¼Sس‰.–L*Ê…ü,— Î?ôaT*ò ¤åþl²I|Døã­ËEzˆgäÜõEXHžWÊwɈäÂj¹â~½”ÝZŽ³öRÍ /ño ­;· 2¹,îž.?çO­f)ûîbÐèÌi›™²ÀA‚†¹¼î¡)êTgg|O.4¶Ï*ëÿŒÏ1¹Ê¾ƒ¦$ã2÷7Ö&.¾üõkT rØ#|úw\̓ð‡úð†QJ¥£Š?.2ή# =|oYÊF MEªH ?cƒK¤f“öño;éÏßC„2á2?ØKê[ø`˜"Å¡q)^ )xa3„º×­¢­¿â¯¸p(·BI‰¤ú…ÂbCPÓÆýòf¶¼…®@F" “61z0\­jŠEU®k^Ì㚥úy0Ÿy…L™Lô;I˜Hš9¥¤± M†“gçAPV 9É¿n&úù¿©¼DøŒ;µG²ÃaÑð´W ì$%n†rÖž–²ä‹ÕzÌÂFô°ô¦â’gRèbþzùJJ(KKmüÌðO(N d(Bžošgmí½ç“¹Ì“Éy(.$ÃÌб™È¼íbHË.s«.BòÌÌYE¨ƒFcÉ3Rro#Úº ÈQ„+0/Í ^HJ tT±ÂŒ½…¨6Öóµ<û°ðP…iØ.j¶‰@í!눦¿8O’­ñÖóÏØÐ=IM^Ž‰ºù™á»_`ÓÈX„ª; ‹.ºU‹A%Õ:onë; a‰Fy1A÷j ×ëÈàã~3>pðW¬Ê3ÇK»žÝÅꕦO¢å„#‘p¸0餋uïþGÄìEäòáÒÁÙ§xyÌbÓ{û¡,‘˜ng‰9Òâ™/Øø‚¡ÖKbÝ1m¡ð¨À…Ô"†á4¿P©s7ú¬ü!‡‹m’%ÏL…“gš'ïÀOR/”ú[´673üôoÛQ’ ÈW„Ë Ž^Ódñ+Ml8¦ï†»|òŠ-G´¼.4éæ@À–¾Šï‘1q-‹¸°ÈÛ†åED§ó—o?Å=Ù)i›$ê Ô0ìÕCN³8Ÿà~S;ÁüEæÁ¥¶Pø“fqSÉ9œ~ù¥1¤Ï¿âÜ»éü n:8V)Lži©˜‹YN¬ŽŒæ+¾³õ,u—thûù‘e²îOá¼½ä\÷j3¹™áîý~¼‘È]„ÏÍ•]ᙄ?gš/¡b[l\8Ö7šÍ#675ü|Ûþ]ˆè@"|žïƒK½ïŒŠ\™,Vž!SN÷ë”aë3QjÄó‘^iâðŒi‹™@*U¦oæ̧œÒ."v7—þþ â:P’Uªä´‰Îû®ŽºÓWùùlEõ¥Ý °‹¼h>aÃ}tÿUIõG¨¥,r¥K'âöœz¿ö›‰øðí•L;÷–ð>³m3ÒI’D¸Šô¥ù-³°‹¼¨ñjê„îù™W™ë{iht­ÒqÃäŒ_e·[…-ü&wf^ŠóÜÁÛ\|zcšWEŠðzÒí@mn K>yh)œ7wN`ÙT&†·k#œ0l ¼t¦§“\k7Y4=žOùöÎþ©©+ãiww˜éªu­Ýñ­kÛÝíØu¶ºŽÛ±3;»ë¶ÛNwm·É Õ±@‚¼ VÀD0BBA0£¼…wDƒ E 8€é0ôÿØsïM*Â%j‹æ|?¿\~Ðnî=Ïçžsžç9Ç­.j|%ê XiØ×Ç]>#dÓ‡ñ øDè+#ºÔ-4öpó¡T®®0Xá™Õ‘¾Ú[¡XâB¹®´êYºÂLUóò§j’Ø@ß’3Æ×ÛK£Ñ¡;`˜u e S;ÞùäUDz|"|DxkÖ5aÅMH½ø6/ˆŒÓoiIJL†Ú§îÚAºü/U+W2sbyh9 'j×ïÉÖA?µö Ôƒ !O‚sF[+ü™Å­µeWÍ¢à‚åEÒ6 éIšÒýTÿý)ówТ†0ÓÔ]Ï+¿²Ú|V ‰9]ên©DòŸŸìÜ…„R´"\ÀxæWÞ•7½‰’±¸šIIÄÜŒû‰µ C$ÏŸ‡}ýXPþ|iw›50aÀqÐç°• \S ‚[„”oÜSÆ2×>mOÖÇm öäU¡…)ƒxŒu"™¤õ™cþ«pU‘?æ“ ¶f/äOØÝQÀ95v£‘^ÂÖ¾¾å]„~Ü"||“ Ø^‹Ý‹‹¤Eú‰¥.$ÅÕ'–ï=3@jüy0¼”t1z·Ò¦˜áNäÏ·š½\Ûý.ê+@HˆP*MhœÍ»­&é·ø3ku™¶Ü™iì 2DI®H¹=‰£Êÿ÷}ÄäW„=$ŠÕ[uqwVãjo€ È1Ï,—E“('ä3(„„½ÜñÖuyKò·‹` vp;nˆô$%Ùz³È'K7‰ó+Â$’Æê}Fh3ùü™ë'á£@ÓÖ£SÄJi Û¾ó`T†‚}\™ÌË©ÓÅÐPT-„¦Üãü˜ˆ¼ç8,iJÚÙ¸xk‘Ègý‰Ð@ ™^ îëM‹QCD,|ó‡†Ô²vÑD†ˆ½=u"ÿC&D[{†Þœ~Ñì™%C)÷' ’ÂüÖ¨GØ34ª]ÖAt& 0ýåYú6©T²SñÇ÷^ƒ ÂÐá‚œêü´%n…TE·-Û[o¤[zº=‰‰/”JšA ýxðf™_-w«vCǦ¯@GÇFƧ4°m~s?|†–ùõROÕ¹¤”6ß`Pªc [k§a¥qÜš'–Jjóvèî$?"L!é«&*ºªWØ3ŒÃR) E–"n­4Ÿµ‚ ÂPáB&¯ùb° F àÄÐ,ZV1”¦í–Éô½s@„¡)ÂGk¥|Ë6.,»„¸5r-Û^ ué™0½s‰‹Zä$%˜nzœ~qe¦T%@EL®ïÒÓ‹dËÚëáBˆ0¤E(p§Þ(¸z—s¢Bs±%Å [=çüJKÎÂæ3Ce‹¡¸PA:i%p «Âò‰¦hˆâé#ùˆFÀ°ƒ| ‡@„€£½NW/DæSB¸Çâó£?Ïð¨+ieî ζÄUAÐÉ´<«’~k™0Ðâä<ÿa2L?÷C"!ðò]·£×0Ç7ö–åR“ê*³‡¶ž£)·}ÇU7YÍœ›ïÅÓ¹“:/:(oØÓ\ZËUWH¥¹‘åã—1ÞÁÙ”ªñH%’CÛ6~þ2d‚X"|yz8ë¹­ÎØ|GM*Lõ÷i¥¦º‚Á`¾ïóÜ ëòk#‡†!FèSù;ˆï¿}hö!BàÝ@<nÕgVª´\E¾ìd—æb“Ö¦+_Wñ¥X‹nRœïÚ’ÏéÞ aeø|"Æ;$ZŒ\BÓMú`þ©@„@,Íô¡Ÿ•êx7ìµÂu–œ(…XÅ}TixÐfò68’nÇÅ8ù—ëò6d‡[e±&úõ+Ù°ég?ý ä‚…ÜwÜËâZ˜Ê…FZÝ-9F Î@\).9š4bøLíhÐÞt´w}¡ƒÎ 3´óßa”±DB:!ÿæBäî]k~ É@„`÷ƒÂ­ÞŠü/“º¡±•ÁYž!ºJjŠlê-CÙ¬N˜«]G0ÂZ*)á® ÙÆ›ð ¨"‹¾ËmÞ33½Yh齫¤U=*1V6x‚ø¾“-‡ Ô†­XìaÎ*Žº*•H¶*7ý SCˆ,áŠgÞZÆ5J“iüV}•6§mn„Ï~\.é™|±ÝD‘Ú1Ôû³îùs¼ì¥žS|«9ã‹-JéK¸›†Ì—×\ƒ´Rˆˆ’dòìiÈìÇ2Øi“¡*¶g>øçÝÝÂÁU5˦1®XÚ™ 玚L¡Ïæ;?Þ÷@„`1ÇNŽŽôD¦>¸/å*.Œ uEakíÎ}úŒjÓÄN2$1™Úèà¾õdKù ·D|£ŠAj#£Æéu¿œ¬{ö?¾Š|S.¤öC· ÃKˆVôŒ±SAó“6#¿T*µÙ cSH*eŒäbBêh}å_?ÿŧ°DÄÓiœ3Ú–X!…üˆ²²ÈÒsó(¸xö ñ-Cr>²À"¿A¶pÙ97qÔ/KÜä:å%йû/¹Xºãƒÿ„ B :Xúï‰5*߈½È.}FŒ št/DSh …f°—fzëŠù©ñ({?§Ïã®›ùÝKÐDüáü¾àÂ"$ ÖÞDGï§gzL¼Ê·Ô†Ä<ÛÝ×9gððK¥“öøœæãW0¦Ø"/*îá}©Dr`ÛÆÏ7CK!X–+ýáB¯åÄë³3ôf40}:§RÄógäÙùOýZ!…ÖnC³R¦8Æ/]ߣç.«të_÷¼=A„ÀßWzAêà¸gÉŸ/¹WÚm!#Ãèªò¦ þ°Ž,Œ#9kiæ¦ëçèZÏÙ°°·`)ˆ,Ç7—úÚ;â³Û¥\½Åɉ¡‰a:?lŒ†îž°H8Ó‘*šLªÐU_™acs«Á̧•^µ«3KGqÆ![\¶Î¥MÑë>9Qà< ˆ<_û’#‡ôCvOÂãÈŸ‹7 ©¾p:Ä~ŒÓé ±&ÊqÄ·âÓI¼”Û½ëö„® Bàß„î)cÒp±Š(ŽgÑùá œ·,Gj[* f†ÜÙÒi»Í÷â9ê]j@& S$pymB”ÿ AwÍÖ]¿¶XáæM•Ã'ðš2æÃdá!%¢ÞžÑ1é-Ç ±P³Œ m!•@Cé7ñø2©ž(ŠëZg¯b8±ÄÕ’‘>îz‘¾Ÿœ ßZ³ï}苾ú:!¹G“kèÀ‹ÊØŠŠ±#^ȧIóV _gA–x™¡Òž?’?Y§·ÒDY9‰qÄž”,׈q;!k÷À_,,~ñ·7ÿK/ol£ƒæ.}4ýÖ"7^T¦òiªÚ½½—ÏÖ—ZWj´œ†üSb@u f>xÙ\åš Á”)È);6Du1*'O³øéróµ^¼Œ¸-Eÿ¼!qO#$hëÒ]"®¹KçûnÙwÈÅ·Ãêò!ƒÅó×Ï™A¼f»­ ›)×p£=§¸¦äNÄ;Ton6•f·=íÆõø8ÇJ†w"›{@–:UMœ\½ˆWéÐúèJ†(|‘?²jÍòýüçÁåÁtÐfå¼±CK`‚‰Á¡9^°F$ÇW$ÏņÊM4Ó‰ ;#˜<ÃH×9C¸z4íáYÎJ|wejÕ/HK#«¢¯g Ç㨷`mlÊG¯ÙÄ6v˜Ç½Kwf3—ëréØ1O¿>H„"‘ùÌ H;ý4ºÄël¨ÜÂIëˆ*{°â÷Þ4zboaüVhÛFßö¼“>èø—, à Êõšº^±X´`_c¥ ¼fy›½Vü `Ñ„äÙowÚf䤇!5 Šg÷7¤·`Cåz_ŽP-'oË©ö¥qݘ IMJ„k2¬¾WhèòÔ¨¯5Æ% ^uÍ”šÆf8ö/%®a4Zf1?‰pÀêj!ÀßÆ ®ÏL„ ¦~;‹<9²­hÓ•´<džÊ14&çQ}8å/1 R¸•Ÿíºèdu×-oá£.i¤žb‘ÑDhuÎàeÄ)UÀ 1O‰p=UK‰‚Þ ¯0n!ƒÃ3—m@GŒ¨¤ôKÁE»\ÂŲò ¶ µ 7Ê”÷jUæ—ÞLÿÕu;6Ôgb.²zM 5%cÔY熴bgqBÁKœ"?úz/À&§ÁÙrq›털Í[¶C$Ÿ’I#2°­r•ôö¯ÈKúNßn©¹"sí*«„« qªµ56%Ÿ×‡“rÝãó]]¥JzÊäÑõ\x‰ðÂÓ‰>8è4¸Û±x÷¾ ÿ¯¹N„ ¾öF^±ø®6/9Û,Çp¦ ÷EŠ¦ –ÚëšSÓ‡„›+37 *\“aLâý\†â€Hzb¢”&“’t¸÷&ÂO™"\Í\‡l7¸‘zÛç39ˆP$ZrÝê—ëd¨Ó¯Mß{/—pRÝJÐóœ *;jUׄºÁ÷R;¢\“¡bPgÁ=ì(”—¢(idB®„„Y•‚2­L…˜?fü“¹þ ÀipŸÃ²Ü8w’!Ç¡ =Õ4ÿ5ڬ؆9óÛŸ^QZ´\B˜’É„ÓI®ÉPš§7¶âŒa½Z£Ä ™É„7Õq9/#L„ÿ?‚Ö0×ûþ>VH[ûÌ>tP èáòB÷ŒÃJ.¡=Vê´5BܱRë1|$ ·Â¥–†Èú¤šFIdzÛ,ç„LJ'ú‹Ù áÕé¶Q!ÇI»M M´HÆ!÷4Ê9GQfÔw¡_ëñ1þQìXhÎø9Ž…yÙw·Ãe»—˵;•s_tÆÁÀä"öîGú9ïâæNœC:ݼT–gfmEí€ÇIÇÀ¯Ò$.Qœ2õ.t”b «É8Š×5&ÂÇ¿‰pÓàÜžQR×Rÿ­ã°ŒKáX|³Ý¾‰ÄO"y…ب9†Ÿ­6•^@ooÍ‚s_[tl 0¥4÷ŸZ 1KX0rdÔÛJ~¤§Ç_ÂŒˆ‰Ðm¬t`{ß*â1}ödʾ>(Èûe@0Š¥¨4‘ixÉpLMó’ª=Kº‡¦.°eñ9 ‰1,dX‘x_PMh è0HXñH ²\&×ÚbhŽë,& .nÊAaÒÖü`+ø/(L„Dˆ³Xf#Ûû²¢íÄî‚Ø;V“`ÃÙC®ÅJõu”¦R!´¸àÙîž*¶¤¡ìÊÛ|ÔÝ·Ä@é#É{“Õý.þã ãWß¡s1!b"dÇB€ ‡ò‰m¬oô˜Æ/"düõþþ´š5:¼hŽµb‘CPå7iõÏ(5MÌù£EéÃBq‰¬éoÙÊîájWÿ%4ê:ˆ•¼ ¸¶«¤15¥TÙ¢Éb±b4q’›¿á%…‰pvq(¨_í<¶À~é°Ÿ—DÈà?_íþñºœØdjɸ\;v¹†6ºªàNI¹`jl…l•† ¬©´òùË¿€¨JÉ›qn|TÓÕŽjň‰ÐÉ’ÿ^2±ÚA8ƒ°g4È!lê7×DhŸ‘ÕP´ø·jwa«çâkJ®ÛY!µ½X„йT=”Æ'e²jôOe´Õ'ù @qÎëë7ÿ KÖ$ɤ‡Ø«Œ¹Òg4ܽÚ0R)2ú€ ÏœZ©} ðC~»¶ŠA„ö¬èt?ôõÅb½"Oó œÂ™‚X*ÀõšÍ'¥ñ¿ÐÎZyY#{kÈã…ó9&BÉ D~ügŸ²Ë‘òpoL„(I¸ŒºÚ4¶ÃÚ/{ñàÔ`û!B!BTOBêd·kå0ñû_켟¹…:ZLJATYô=jÐ&±¹†YÉ ^eOo>†47xPb”Ê þ€6·ßÜÓT5˜%ÍêC¢ØX]R›ðtè5>¿FˆD¸` ÀL$Yë @Ÿ>üù¦M¤Bt&€ïZt1pWˆG„Léá.r^f{M1aÏ‹pë{îàä¥acMÇ«Á‹b´»å—Ô§Ùnñ› [Ùlu÷ Ó¼ÍäÍám'q une Yp‰~„*dæPnÄ«JxD( %ü¾€•!¤è¨ »0†ôg£kÛv‡‘¬÷,2Ê!ÏE!è¼ÆÍĤT!ƒxp¡?|ýйG„© üNIò_Ôjbà>™D¼­0%.âp; E›ƒéõä1†EK¦3kkú‘ЉÐNˆ ƒŽüCDå&2ce}ŽWW²‡#/"È ²ût0‘¿!SõÃâHÊóRŠ‡&÷woÙˆ{Dû~º¿K§›ûìò¤Šw”qõb9Ÿ‰P4wÖœ`/ï‹K%˜Æ¢¡ó·øúnùÞóc>çDÈ`^È6ïéÄ«¸àG2VŠ›þrÏÚ iºxtÞ­åñZKÓ~!î«kX]ª›Äš Hܪþ„Ifr³Þ.b>H•Ç#㌱70b`"‹à;U$7BVb;¦!N!>‹ÎEñ¸ºâaOŠIʪ¡9Ý`(›œšÑ*w‰°ªþüûyZÍL©ž2®w-áw1b`"d0›L ."ö"ÂPÊK.ßÂĨ‡k:’”´Ò¤±¼ŒŸ®¡¹°$†5P: ïžlÒ{îRxWþŠ;:6lIÓUn ']Dâ!KqO_Ø8|!&B>‡=Ãþ–ØyŽ"=c[M3> ˜èm§.®H•%×›¯ñ‘Ïö³Ï³ÕÂãÁËù“IQ =îa&ÄLÀ Ö*™¹"mëI®íÜ¥˜1N„ ¾û×Ô¬mŠ YNKƨs7`ÓÒ™§Ò2Cƒö*BEIQî›ÉñE’ Ó]"´€lBΧR[G+U5ÉTKx#Š®ëlÂDˆ‰çîù{Ðk€¢° ÛÝeÏ0ý½sÿië<㸛TÊ”tZ²µQ›±Ní­MÒ&j¶di'ui»J[µ¨ë¤Éè1bÃç‚ ÃŒc&Øs5W’sIXà‚ Pâ@L%Ü,CÁš,ÿ!;ï9’n²Ã|;~¾?ø=Ç?Ïëçã÷¹F\OV;š4²ÎQ¦ðÐYk0óÐY:¢ë8Öte°á$tl„^€(h%ÐUkÉb?ôóìNËñýγç„B”@ðÞáã;IùI IJ•¦‡Ñ¢^¶‰·Ê0ÔÅ»šv­4pd¹(©%ª“iå Û*é§-ÐÔ5¦&/{]Ì5ÀK~”Š D¢6NˆÇÒN ÂQ‰¤­úΖÇ9Kûyé(][/QlÊTEŸy6Z“hd`Þ*; 3ÿƒY»oº¿’çH7aFE±ªÏ^^]ŸqAˆ Œg1ÝKwí'ë„ÂÇ–ºédQäuiT7œ}MH&&ZëÔMKü*ï×éÝ“iØ™®7^Έ¾¿ºì[¡²¢ødîlif÷ÓƒÍD¦:–„·'bÐoŠVA¸]úÛWŸ“,Ó€ýdkÕy½ˆ£èÛ«…Zv)øCåÊ\írÀŒR_0tÔG×_l…¾­‚Ъ˜x=Íåãzµ[F-+™Œnz§É,®aEÍ!‚0nuðÓ“L?ŸWiKÔEo±+vãlOYMy®é-LAÞC. “W¥ãꀃ IJiÞLôt¢±Ã…­‚P†˜|ŽÊŸ&Ãìî³im+©g„¸Ô_ß>²T ~@#ˆ¯ôêÕÅsȤJÙnÒ2a‰§Î=äQﮚ¦Ö[iø½ªÉcïý ¯Þ"a=VêÎomsMµÓÕÌÝ¿¹Ðí€Å÷Aˆ Œ[ Ùs`½~Hò3¼x¡Y5sU•­9ü v§w¦a£¦!â4TÊ·6ŽP$2Å“AŒŽZUq#3ck‰Ù}žº~µ¾À(ªWžC"ãMo~5á×ôz©()²(²ºÝµnWg‰\\‰Þe¾•³æ¾QÑKÃ*Pm „.HáU8×Ùbkf/µ›£ŠÝKkSBa|éÄï^ƒ×¡ÐJµÕâìÃHêf}os1AUQ4¾îä‰Õ-kšDª&ÛH¤|£”m+\Ï„ÒDžj¶Ô\â›vtê™ôš,’æ›uÁ:츃 DÆQ~)SpAæBþøé*²óJ‘ÔwjnêÑ­þ¤•.úÒ¶´À4,lŽDN©ûçOèÆÇÿý^,ç&Ɖòê6:«¯3Ûqap°ÁÜ;›º€ DÆ?=M–#ô€Ô»½gÊE(EFß,Š´EÅ .1¦)ÕÆ“ªÃëÍ®,q`Êïß0Ž†•8½@ý€zÕÃLÊkcwó³ïÎL‚.1Ž”?â·Í5ä±é[¶ÍÞ.î‡ZþM!‚çúâ“9ÈeÓ0ÁÇOˆ‘ :¯³.`|¥Þ.^XÙµœñ”äÀ0„ÌtýµðM¾WÁÝgG½nú£nk›¸Ûû Ó!=#1^•;SÐ-}´\LKz;VשÅuC¡{‚ DòˆŸì{ó’UC›¦d²9óE©N‘ßÂùJ½|±®kÞyu0Rƒs-áÈӬτªg‰Gé½"QŽ!î>=êšMŒ{)Üó°o¥cý…Q´ºxAˆ ä¯~sxçd­_é7×o"šÂ­s‹ÕŠ¢e Ùßè:[}<ÐP²,-È uy¥Ä%Ä+ÊÄ^ eÂw$!ð­'®Ó>ë ›ä¼ÙIÏ™å‚AÈW îÜè @8OŸWM‘Ð|v}@Âiî>“ÿ O<¥Áâ†00]RÊf4>  8äÕ==vƒŒ»š›)²/˜f³ÝÉô9ÞÉøN‡È8 ·Ú7?” DòTÿ8pF öd6Þ!œ"RhÑÍÕæ‰Õ|ñ”6Xƒå”Bá#ƒ1DC¹j4±Ebñf1…—âfÚ)hU"ì¶rN\½È^Ø6}§*vëšæl-=ÊÇB!ôóäõ«Ÿ|LR:ÔéU^„S˜u5ÕkŸ€~fôob‹Iăm×EŒû7°:ûMþí–Y4$"x n=Í`šÎ<¬ƒf!÷ÿ2q¤Åf.Ñ[mìí÷O°²‹Ý¾k B!?ô‹]ï½D/_“Ýk«šoFB…US·Ùõ<ÉhÊnêXýb·Å–¹Á *Xà°Í5¿¾½ù³¹1d%‰Då  BÐï8Ú|x|Q­( Eª iÍL⩇’3–¥fÈSëÖ1ÅáK—£¡8yºaæ…†®«‰Ç•üˆPM „BÔ¶IìPð&m_¾¦m´7ÙÒ§DT…¥â Ò.ˆéÃáÝ¢‚œ˜·î«yYPWifÿ`Òú5“4 ù5"Aˆ DE‘¾ÿw²ü‰¶VÚ<'ºŠìk«p(IÅ¥éUäóÁPNäHƒVÈ4úW_6RŸ,B"Q¡Õ¯¾>õöçôzŒ¶WÓÄL;t«PÇ ýZi›øÖciF†b?¦lŬ¿ÔU Ô]éøúE ‚AˆŠ^ ¾rtï;ä (žsÈ.ÓкJ¹´R+€¤nÛ Ó#¡Û˜ú|ZPÞºàs¼h" Aˆ D…V§ŽìÙGÖã´y&GÃ;íNLª ©<Ù•\az3 çb‹©/x ˆ“5yºYlƒ D¢¢\Ç>>~œtmHËaÜy88d:ë1ÕK€mœ’±îý’Ã[‰:+øá*¶Î—Ž i„BTÔëôC’áe1ÈMˆ¬jc°S;éá™bçAsf7½~F/©hëÈ@|…@ ÜIªRÍÓÒˆÍîzž¯T’•gô „BTlñÔŸ @Jò5Än?òŸEzmoV銩v9  M+]-‹}ûZ6kÖ$‹Ÿ‡ÃiÄ!‚AˆŠ!—éɽ{>ù{çÿÔô}ÇqºÞÍ•–ÖíªlÚªuç—ötÖ›nìÖN­×MÛëê\á^!êÁ/€1JRDÆ7c$!€("b$äb ä(£((œçñ‡ìýÎk§@>R·Ûçãóñƒ¯èÉÜÉóáûý~½Þo.FؾåóÝ ˜@|ž[¥¥w„Rå¨õv9ô–T;ü§o”‘ŽÀI!D$Ãê¨÷7®`ÕEÔsˆåvn—á4öQÜÑœrSY{Húèâ’² óo¢•"„”عwÃkaaÑN¢Kvà·ðâsÂ0­WQù„¬J“Å%- “'-é—(tg©ƒ!D¤ÅŽeá´† ñFyÀ‰=7nµ{ƒg±1]ZMAq¬cA6ʃ|Ú©KƒÎε¯¦YÁé<«¼B9¡´±ÃÒ”L"vKmy˜<„!B =V|µ×_]â³ø†3ƒ1ÐÚB‰9g.?Ü*>Ryºb\>§h]Sf_efH*{Æêà2ˆ"dßþÈ(¾gj$Rñ{½sïÔŸ‡ØΔ°Uš“­—“:ÎË®feH^*¨3ayB„@¢lþÛ²W·³jeÿ»·òD?;jDg£-#¸‚rÉ.§GÆ­©Æ³*1ËC§‡!D¤Êç‘hSXXôˆŠ4…<Øs1u± ëh,öàV鉺£§óÇ 2Jk×ޖìôЇ‡¤É1¦¶:Ð\ B„@‚ðŸÂÖ¾N‘LˆÑéTÔ‡ûÚÌmÐ îlý˜¼B»K7ô°71´)sÔ2<0ˆg- BˆHч{Vñ²•(ü%–èfíݾÛ3“v¦<ãBðÜ𘠣{dÜZn =ˆOwÀõÐ<‰«i BˆH’7½ÆË»,Íö±`oȉ/n€ßžy«Tí»È·Jc¼®‡r{þDiãI_e™ˆå¡ælJ¡ß~ ΃!B Í|;ÖóMÓ-,Î<,Ûo«S Ç¡¸gÆ33€ß¡“Ýêè¾£5ÕxWÄò´îƒ©ùÓ‡ >ˆ"ÒdûïÖð„?S%òd·ìð›hn5š²„G;ä™æ'J'õ¾£E"tHÉéu6ë9´Ó@„!*‹ÞÞ¹™×Ÿ²D«f ßuÝlÏ…èD‘à0gÇ··Jï«}CÓ2|·zÜjë+Њñaf“Ú”7B„!î qÓ/_ç{¦³H`!Þi=‡‘ Ñ 'ï’Œ&¯,MÐewÖdQ‰òá(óáÍû!€dÙóáþWx[Í,Ó|<âgÚoAt¡8<=l<Á]ù&¼aâ듾b†-Z!€tÙõzÔË°º\ITÅ£~DÑ!ÎÏño*$ŠK¬´äÛPƒŒ€Á‹ð)ì'?§ýLˆWÊH«.ä„úæÆ)Là× OÊùy£„»“ù°‡Ä ¼î—߆)"/‹—óy‹Ý‘qô›ÅaÑÑÅT–Åáœ×v³Å¡ð2®úÙ:SÚÛÒ¤èC¡Ñ-îü4I.Ïɱjˆ"@²¬Z·–—¿³LûŒEþTO³« æ›uÿ¦Ó?l+5øŒ&oi¼‰:fJ× =7æ6iž**Rû ’Åù2›êR+ìÒ_ " Bð³ëóE¼¼­$Úɯ¨®Jʘ‚üæµvÒhG}±ƒsäéTð\¼pî–"áîÓN‡Õ¤½'Ò‡JÍ…*—mº"„._¼·y)+ÛÉ"yæ«sRba¾'éò{š‚ŽSÍzkuC/‘¦25O§PL¶>tÇ‘êªÔ›-«Çj;|7šU"…¨u÷×Ä6¶§A„!Òå¥wöñ;jo Šã³øyMçaÀÛ9ÕbôäÛJ[›ê†¿ßO$UÖÅ÷X*ÉÝ ‹#´SíæÓY³6˜jG³S;ôz›¯7óñ±(^].©SüäC„<ÅÚ?lÛÌk‹µnÿÇ\u¶Xð ´ª¨Ù¯˜åŽŸçñÒÙŒ«yŽC!D€”yçÍw×óº—åši Ý¸FÛ(±QPA·Éu×Ý?4#¿†¼2ô _I½SŠÙ(¹ª ÙSÄèaB¬‡!B¤ÌöMoñÙü•3o!~w=÷׃ égvC«„°ïÕ ¿·P•üî­PQ_‰bLb{L©§Êåk±Nÿœ!â"`á,ßññ'¬~Êr­˜á°Ódí|ñDXCé‚&‹(YÝbËRQå̱Ù²UË̃É”¢˜›’²Œé™$MÒ ‹­Õ^j€!B$̪5QKXý„åZWƒÃÔÚþÂxðZÑ£¡šŠ¼¼Æj¨Cø“b"esÿ1yÐংîyD¨È&m[LLõ7^ýé”­x!ªãëRwF Bˆ)³%â•x]Æ‚ísÄHKþô·rá%ÏtÊ”Q@øÐG½Â‡Vâ‡fµ‚Btc2xÏè$%{çó ¢;‡R~pIÍxmÇÕŒ³=â…H™ý§õµçê!Bˆ)󧈨»X`¹VÁ\q{È©;.WêÉ5³J4ÓC¢§¤-Qw»#7ø÷*تçHyÞ ”wºŸL×óóOÙŸúºzGÞ°'ã¬æ„¨©êµØ*ti!D€„Ùóë[ÿÊêf–ký\SæFÙæ_¦bÁ_“rfÓpˆg¬p”Zý½ê™×,HU#]š(©$„ýÔ;ç××O…ø,+D*K7^Öü÷–ˆø9…ø°êÕÜÆk‘–\´é½¥r¡ñÑ©DC­Â§*P<Ú$ý7{çâÔÄpsνÞù¨úªN¯žÓ;¯z‡giÏr:Z{ÕkKæ› à1QJ(&<ªAyÞ|¡Q2áeä@Q„ƒÀ€†ÉàÿqûÛL@’,ØÅïgF7Θ~ûáûÛï£Ö0ê›J¡Ì×ZŽ—£æÛfiD*ä¸ò PGˎ㣷t&‹ªOÂFˆâи¼†aóM!ŠAxÌg'þ¾ŸÑ÷53)¼HÔÜâ{%¢jmÐB“uT „ãù3Š)oè±n•^,'ÑahX½†?ƒ*F&ž‡:£îž°eÐ OzžÃFˆ ‹WU=2¦g_C¢„¿|þݲCé£7}[#!S±!ü<ß#BaíjazaÄŒœû;D„ŽŒé›¬êä‹“œ–NL”P@<Û÷š+»êËúSƒØQ”ý<)J=Ö"D"oÙ¸wå&Rx±¾­U3…òŒ¾># ë):\Ó&Ù=#|+ç;5)ÅM=Ì<‹á¾ö¤Â¶.‹°oQ¾éG nŸ¨ÁV> ­à¨#)0¸!BáC™í‡}ÜAöLs¥ƒË#^F¢„¯üõëC{|èãú®6LË¡;ªk¤›Û"̉Ýs³‘j»]‡òûnŸèb£!!öÙ|n½C·6s¬A['ÈÜñ P ‰sæÞæ‘¢œÌ¦P1°Žõr[»¦¸êP„ÂIŽ¼ïµŒL ÞNßÔj˜*¼ÿ©‡¸ÞYf*™PÆz¼SëH¢uwøf9PYÏ7s¦KÛÈD}¤süÝÏ–q›ŸéQ[ÄÒˆ©ÕÏ“Lšt'券ÚP„ÂiŽ{{ˆL¼ ÝÛr™ “úÂŽ™0e¢Xb2#2&¬!WŸÏºçˆ ; Þ-ÆÅsÙmÆÚ*U¼ XòK…ª&¡h¸sEˆ"D~òÙæ{“ã_è[Z+yˆ¨¯ÕÝá†/”CÔtBè»:»Áš¥$ç™ÊÃÁšGºÎ…¬<ÔA…["Ì„*Ï2½æᢜÌâ¬r¶F,/ ¬Oì˜Ø6ÅÅ…"D~±ï·[¿^C÷Òw´DZOõúÄ…žx‘©•oóAƒ„sqþ§OÇÇ\0•‡ÊÛ C #Âa(qK„e2Ÿmß:*Ì ¹ô„­ƒR£U®Áe…"D>²ô›·~BW‘ñĦ@Eú‰°»äíêcØ?!t^kÑõ ¸”¹…Û®ÈyoAŒ["lÛ4œ„2mqfÃè¬>½€Œ.Å Œ¸þ®'!‚ð˜-Ú¶ŸÜÇ|ÖˆÈ^é°ªF~žMØ"ƒà)3ÛÕ~PáÍÛófu^ éÊã+Q~Åú®ðÖy‹½@4âŽKÀÀê¼ÂþñÔ–´9ùZˆóâšÜÞ5ýðw¸P„²XþÁÞ丒¾±åÓšhÕª’æ­6ÿÖU;Ê@.ƒ‡‘žý¨OKl7r‰ržê,¤Ó'ÈÚç‰!›ÅI/$ˆ@¬µä(ÒúDP>·»¦• 9™Ê>W™5»qý ×|öóS+ð2ðâ[uî¤7yès˜¾¿éi[ÜiJŽ5xÜ„­~@©2Þ¸@"íkØóf]NlåÝÖ­K‹ÉÐìÉ)O膣@Ê椕­N¿°¨JdÖ4çk-aÑÓT_|ëEˆ¸àø—kÉb9xâ^ í™î:s’,ÛS«Þ#Ò¨J­¶x®Á÷…0 Ã….](Ì¿a©ªþÅ|Å£/¯\¶¾H³eÓ$uy(›F31_Ê*HcqÎRL¼5¼d¯<:?ãÞ˜N~»,Ø¡B-þ’‹"D\pàA¥¹ô¡Þ÷ÁËÁ;N8¼7Ñw¼Oh[hÄÒQ¦týåœêè¿Õ̬ ™„"ý ¯,@ÖN¤<³Úº ¨·5*›ã!~½øëQ ´±Ø½,…*»7çWظ÷$-•E95ªŠÜƒ^q• ç|DT1,¶%†ˆàм |eÇòÝÌØIÚ;—øú6Šƒ¤LGìîˆ92⨼Ÿ‰3d*MÄÂs¼6ëÒî1Ù4÷Ä ©ðW\›³NÞ5ÐïR„UP¢ùõäQ¿j ç7—ŠqÅ* ÂÆSãMåð-^Þ³ô›]d+ìÈz¯%K|_Ä@PñE’{ò*rÖ[§W#†^ûr…§¤8CßZ¼¢D®BÂJY ´˜4ê·ÉýÙP„(BdVaÄ{ |³F)X…×dÑ°q9 ðWZ§}h#ÆHHžé]¡¹×w‘p÷JAQŠÊ/HzŸéM£.Ë3Î*>¬Ð|WOûXä°Ž5ž7–É7Ϲƺð{ÀSg_düÏVB„3V¡*(ËúNìm]3€bzá|§wë+ï qÕÛ—Z !!€¾JÊ›‘`<ßtšŠ‰~»îáí¿-½pÿ $‚Ý‘Ë_8³\_CSå{óîU·~ÝK !ôEö„Ì9sÕ˜§Š2B?û¨Ôm2^ÓÙ;nÄøöý³·¼‡xOõDìz£—Bè+û8×/_Vcè$‘©6[qqHÝE˜?~·ëü€¸â´é@ÅÇ“ˆFwÎVv4–·öüBè“lãõÁ‘Ób¦é U–ý*ŒÒÚŠµà$bow·÷œçç¾;W­»F !ôÛ¥CGë['«¦tèsˆ7n6·ÉùOIP?çtç/ë·}²z¥È'ƈ%]k÷ø¡ó!$„Ðwö1±sôÑcEœv[qñ"ïèËk.îÙÝý·`>‹ø‡w½[›ýOi»y˜Bè·èì½B´½2Ö3\—ñ*-;ôR±ñãŠî`^"^½ò^ycUógâÞ¯_xQÒ}ô79¸­¾aw÷uBH ’^2þ³5ÿ…AÕ˜î¿5ñÄ–®}ÁéÎöCG‚ò4â ï¸ö¨‰ø¶ï-ö=M!!€þ ›5F³DÜé¶ââM"+oé î9ДÏuûæЕ÷ªÛ:Ž×T/E\¯~àºÍ[oŸûóuBH ß榧u›çôLVcŽZsÑ©Ùqi[ƒwMœÇN÷¬ó=ÐÔÿÎÞÊ?_vz#!$„ðD’çdLMÑ“TbVOG[µ®]/÷ïo ²ËlV´ßÙµévi»ñE¯·Š[º*ëË!!€'Z«Wˆ¶<·ˆKûTeþ¡‹SþÏw‚p…xªºö̧ƉD·÷áÞ?ÜØzboÃîžµ!!€'Y#×.š1e°~ø˾'ñä;Ë+˼/‹Ú49|÷B÷îÃÞÍþ«k<ç|—×4½O !<±œW"³ôøkÕ˜0›÷¡0úeQkªë«ÿLoG<¹ü£Ž·V{¤Â¸ºfCÈÍ®ƒ¥må-e„À³‡æ/Öã’„ˆ}VQ¿,ªF¨­¦¹C?øtçÙµÁpýéš«¾7W­÷_]#ûŒÖ]¨?w åQGNù| !ôUQÚ|c©8S¥æUµT|]»ôãb6ÕW·ËÓ–†úÚ¯_íòVqe]×IBHàéI^’“¯ÇÔ)cEj\¬jӬ˳mKWé7ú†Œžï7A/–ß®:¾ÚcütFüjWÕ|XY[Q¾kY!$„ðÔ$eeÎ3.@¢–_?SKÅ ß;2.6Þ>Ùä=|ùœ®xóë2ïf©ÿЩ¼N !<ƒ¥bvj¶Ã¦/ÌQãDßÍûk6»o®ÿVm”]þ×éçy6±¬iku[í¥·NóiBxæìEy™©zÉèq¾¨6jU§Š´±rkm§qRïúÕçE>BÿÇ"ÆgÇë1ghB‚^3ºT‡ê“‰Ÿ‰|xJm|®ºe'!$„`I³sG…ê@ÎtJœÝæ½U?Φ³®¦yŸîTç­îBBæ÷R’þwHZ἟륢[d©Kܾ·H}y¦ªM?|Í›‡.BB¦?$5Y/g9Æë¯ÔR1U¿‹B{ôMü'¯g‹BBæâÊ*ÒÇNgÇ9=úñ6Ùþ¯—UÍúàiIÃ-Ç!!«(©ß•a›!®O3fª2Vë ~Z³ý;ãU÷­Ëz !!Ó‹.xM¡‰3ô›‡ÓÃE©±xµˆç÷ªtû¶ß¨2Šx¥çô1BHÀì^’j”qÔ脡ɾ¥â›ê «túêÏT]ÓO¸9ÖÙ^B !˜ÝÜü‰.Ä¡Sç©1)FÄ¢Bø'5.#„„¬fkd˜';".æ×A „B!„B!€@„B!€@ „B!„B!€@ „Bž½ø4‡søôù‹û:Gf0Æ)wfRŸæ!À f{Dâ"ÓTîÒú2Gf!eW®p‘qÏB€)Œ™êÝJy!ð9B0…)"©Þ-{„xBž#„3qKŒÝ·=O$+Ð9B0…°»G?m¶‘"…ÎB€)ŒïßΙè!˜B”Hž;]$.Ð9B0…D‘ þ푱ÎB€)ÌIño‡ˆÄ:woÙ8ó! „0P,}0v“ó³—³ˆß,`@È|ððçÂ@çîZ2ù!Y"!üfˆ/ˆ™èÜã„BÀ@‘"’èßΙè!˜B¾È¯üÛ#ï»oð§æ!À^\yﶈñ÷]óSs„`³î¾`É>XdAÀs„` )"£½[Y=Eíqsá¸ÐþIb1¯²Ãàf‡ôÐþ²q“§‹Dêpâp‘ÙÞïÌÊö¨¹ÀBÀ}†s sÂEâ2GLu«èù¾¥¾“û¨¹<â&{! J.§ïÇL´ÿod. öwéœ+qÖ:ÊP(ÖÚa‡ÄZjóEò-µÃ±â°Ö_t†Zk‡ã$׌‡F•ø(‡3<"#õî7î…ðá¹g*LÖ:CÕ—•¶ ’1–Úßh‘hKíðd­¿èH‰²Ö;$ŒKk!!$„„BBBH !!$„ „„BBHA !!$„„‚BBH !!!$„„BBBH !!$„„„BBH !!!$„„BBBH !!$„ „„BBHA !!$„„‚BBH !!!$„„BBBH !!$„„„BBH !!!$„„BÜSSh­v…çZk‡Ã,µ¿IG’¥vx˜3ÑZѹá.kípaL¥zÖìì0;l®&ñ³Ãì0à¿ìÝíW[Æq­¶&•‡5MÍÔòÙ|֤ȓ¥=Xçŵ–o\þÿÿ½OVvߎڿïçÕh1p¹‡}±aü1†g Õâöñ{ YG+*Y‰þþl½Îí-æ¬ uÿ|6Œ 3³¶Ží“HmΪ£×ÆoídŠÕ›³uw=©6­‹…QÿþRº}Žþr¾5g,/™êüN’75tlûJ¡Ï§õuú=Àï*IÚâC“³uW]JåÁ™øO>ã}ØÓ‹tú½¾çRUkcîŽöêÀ¾|0¾§2tl*U„^î—¢rKÎÀo» ̸ÞÛ28[wÕDÖÍA¼¥§~g=¼Rª½Ž^r³F£ÿr¥·yÿ‡ú‘4×ol¥>3ÇöÓ0U„~þ[zdjò:—V‡ãµÏܱ½am¶îþü±ÖÜš”þò:êðyãI…’…è£îó$™-ÊÒsï‡z4Ó\“žY9¶óe;Eèwàù¯æ~¿ó.¹ÅßËÆVÝÝ…·ŒÍÖݶ*M5·‚¬.{ý š?¬JÕJª}ŽÞçîD©Åá˜÷CýQÊ´IRÅʱ}¬ðQ§ý\VX·4yíHK­»ðzåÀÔlÝu½Š‚dûu²rðÓC·\Ýê¡×Ñ?%å—<²\ó~¨ƒÙ•äe”ž÷I8¶W¤¿§ÚEèwàüUòøÆÈä• µnv¶îºþöZ»Qg>ulUð IDATáòbГ*B¿£çî´6ŸK󖆺&Ø8¶O"í"ô;ð i°gªvYNÞ ÔGc™b13¶dëؾV„~ÞÛ.·?÷›à|ioî2ÚŸÜ°9[ø¦úïÛU¿.à2|)ý•ú¹ ü»ÉJ¹oüS°ø凔žÝâZZ»º+ Üv×ÿý†Ü앤‹;¿±O ûEEØÞUR„·Ú5Eøž²"iæ7a¿~Y¶w•á­vM¾ã…4inãÏ*•R)G~céè³ôéÏ*ŸÙ5Eø¶|UQÝõÉ>E°èTúÜÌI›é"|9¾^Œî¶›-XÙɆÕÌü§ }Á¾‘õj˜}p\/ÂT6_Ç+©©Ys÷gV£ðíùip«" VŽËÑeT>îoü˜ÚUcß©Ÿ¿ºÚÆÅÖ–Ãìñfº¿y6U$×2 ÒHªw³Í†YnPÏ?•¤rTNN/ÍŸµ³ùEx&?­ÏÞ¢?–[W¢Ÿ/ÂéäVO;Eøí0iàB÷ÜâhSŠò"ŒTý|øÅ-éƯ֤¹³ÃÚ¼k‘rã ìu÷Ý]¨í¥ê‡ïáÀJMª¬¬Äÿk$¾ÔÌák·çhö‡Ex'rWûy|üø­»X­çÚ®ûNý|Cæ×Ýíß©dtµŠð;7`Ò4”´ÇÃNª¿J˜{œôÞ{÷‹FÍ ¸9ˆ7f\ÿ=‰7Nܪ+“ÿ^¦Oõt—ZjtÔk·$ ~T„;Òyc×õ/®ƒk»ú÷Û'n¸Z-¯Vëƒñ ðÍnÀ¢ÀHce4éVJ"\îmlM”›g“–¤Éæ¿=×Eüj¯[.5ór[Z¼]Û§a*éóTo.Â\¨êtss¢šœÀóE˜+ê?íÝ[SâHÆñ0Zº¥ƒ‹tÅÁàîèâyð8ëiv=\¼UÜPóý¿Âv'ÝI Z{·ùÿn€:}÷ÔÛÉÛtǃDõ‚0v€$ú"RöSGEÛ ¯›{ò ^õ5ž™Ýª‰Í;Ä?ª¶z[îGžMýØ»­ÛKA˜Ú˜;v¡vß„ªú›4G>› Œ ‰T­´ã¿kˆ\Ah7\K‰*ÞDÝŒ4G¨“íûjZ:Ïo ¶HlÙŸâVâƒ0š‰jNãï » ŒÕ›çxA;@ÕÒ’Ï’›5Aè'4Eô*饾ËÖ-/¬U‚¬9 ÎQ!µö¦ Ü“^µ7áóÉÑB£Ø‘÷á¶ÈR$ï¿› f{ƒaÑÛTpBË¿…øuµëŸ1µ\‹öú7Þ†áA_}„©é±ðì÷¡-"µ'?c'H ­Þ`Ƚ„¿xon6ý¼æx–ß„êÄ»«ˆì \*xW¼]¸/ÿ· ÌøA;@òŒ‹¸Ö¼˜õÎèÒ¨Š¢Sû~æ˪npoMx.þÑ¿4jWs}A8)rûê\ƒ°Ô)^dMb ¾Ën‹|³C=úA;@òÌ© ɉVvó&HRæÐ_©µÍ´ȃ(3]?ƒLŽ‰”Ì7; ÌD¶¯qž‡a[dË6ùO™gZ_ ÂÁË®‹Ì:a‘ø}؉óµ)š¼^‰ü³„GæЬHCæHÁFã¨È¦×OmŸ(:aªúðoÿ ݴЄŠÔ«æWKâ–‡áA˜¶*½ªóõ ¼ìJ8ÇTÚÂØ gS¼íÕ¬Ó¼ß@¨‚°èWbµºÈ¾zýÝôÌ;vQ4ÒP?Sô·?³A8´(4l~ÙÓ¯Õº9Õq&Tùy9$ËáUõ²í}t(„ÁçÁËV A÷|ÆôÆN8*>>˜˜˜}}}êêê???CCC~~~yyyâââ¾¾¾ÀÀÀ‘‘‘VVV„„„222ÆÆƯ¯¯ÍÍÍnnnRRR((('''<<Q3îÆVAÍ´°²]ÕÜÐom)¸àbw»~‰§ÈŒk¸ÑcP3-Hlè ‹ .¸ØÝ–½ÏSdæyðj§ë:º£»ÐÝÑÝÑÝÑÝÑ]èŽîè.tGwtGw¡;º£»ÐÝÑ]èŽîè.tGwtGwtGwtGwtº£;º ÝÑÝÑ]èŽîè.tGwtº£;º«æéÞØ>õ×-­«K‡OïBwtWBt¿-¦½åh4ÕµGûntGw%C÷×㊡‹ƒ+³†Çã©tGw¥A÷⊡/Y¿wãð±ådœ@wtWt¿¼&V½>uè§bO~‰ûÐÝ•Ý÷Ç¿öÑ©CoŒó³+Ö ;º+ ºueÙCßæç@ÄNtGw¥@÷rW }o<—ŸKÐÝ•Ýßeè¢säÆÚØ]Á'´åÍ;?V¨ƒÅìŽîèŽî³9ôRzçÔ;žhœÜ™þ«~Ô?EÑÞ‹îèŽîs>ô5qnŒî›¯öÛ®«»ú‡}ué¢"‰¥èŽîè>çCï‡ós ¢»’¡üªûò‚CGwtG÷Ùz[<™Ÿ]ÑœU2ô‚_u/:ttGwtŸÍ¡?½ùùPì¨hè¿ê¾ÝÑÝçaèõÑS&ûâ{⮊†Žî讚¤û#Ï>X>ÄݳMOGº£»Ò£{]ÜQ>îßMûVEO}†îè®ôè>:ô¬ûâêÒö=›³Ê†Žîè®Z¢û Cwt×µD÷* ÝÑ]µD÷* ÝÑ]èŽîèŽîèŽîèŽîè.tGwtº£;º£»ÐÝÑ]èŽîè.tGwtº£;º£;º£;º£;º ÝÑÝ…îèŽîè.tGwtº£;º ÝÑÝ…îèŽîBwtGwtGwtGwtGw¡;º£»ÐÝÑÝ…îèŽîBwtGw¡;º£»ÐÝÑÝÑÝÑÝÑ]èŽîè.tGwtGw¡;º£»ÐÝÑ]èŽîè.tGwtGwtGwtGwtº£;º ÝÑÝÑ]èŽîè.tGwtº£;º ÝÑÝ…îèŽîèŽîèŽîèŽîBwtGw¡;º£;º ÝÑÝ…îèŽîBwtGw¡;º£;º£;º£;º£»ÐÝÑ]èŽîèŽîBwtGw¡;º£»ÐÝÑ]èŽîèŽîèŽîèŽîè.tGwtº£;º£»ÐÝÑ]èŽîè.tGwtº£;º ÝÑÝÑÝÑÝÑÝ…îèŽîBwtGwtº£;º ÝÑÝ…îèŽîBwtGwtGwtGwtGw¡;º£»ÐÝÑÝ…îèŽîBwtGw¡;º£»ÐÝÑÝÑÝÑÝÑ]èŽîè.tGwtGw¡;º£»ÐÝÑ]èŽîè.tGwtº£;º£;º£;º£;º ÝÑÝ…îèŽîè.tGwtº£;º ÝÑÝ…îèŽîèŽîèŽîèŽîBwtGw¡;º£;º ÝÑÝ…îèŽîBwtGw¡;º£;º£;º£;º£»ÐÝÑ]èŽîèŽîBwtGw¡;º£»ÐÝÑ]èŽîè.tGwtGwtGwtGwtº£;ºËƒ‡îèŽîBwtGw¡;º£»ÐÝÑ]èŽîèŽîèŽîèŽîè.tGwtº£;º£»ÐÝÑ]èŽîè.tGwtWmѽ¥uuéðé]S®íúôÙÒöǺÐÝ•Ý[ŽFS]{´ïžt­³yøÚª<îè®4è~,®Ì§:&ŒüõøjKöÀ±õSèŽîJîKÖïÝ8|l9/ßÿR÷ð±øž¸„îè®è~*öä瑸oüÚk±-?{£ÝÑ])н1^ÌÏ®X3~mw –_å³ßWøŠŽî计û¶x4?"vŽ_Üm+³ÅoEûº£»R ûÞx.?;"&dü½DÓóÛãäP67tgQ‘Þxk™çº£ûŒÚ#7ÖÆÄ7Ø6.úd w°óÊ{ŸhœÜÏþ0+tÿaí;ž#èŽî3ªÇdž>>ë¿_ïÛu1>ûŸ¹ {çK…Ú7yŽ ;ºÏ¨5qnŒî›Ç®µÆ¾-åóí83tŸN2c5:º£û ë‡ós ¢{ìÚ—âæüüþ`¼PÉÐ Ò}:É:º£{¥µÅ“ùÙÍc—oˆú‘[gãÁ9 ût’ëý†Žîè>ÞˆÞü|(vŒ_ë‰_ægß` ¡;º+º×GÏè_w½küÚøW~þ:ÚûÐݕ݇W}÷ÆlÓÓÑ_þG-<[¶ú¹µñö7³ìCíq{†îè®èžÝ¿-šö­Šžümy]ÜQ>¾=‡þ½=¢wYECGwtWÐ=˺/®.mß3ò½µÑ¡g»?x¸Ô¼ðåi~'º£»®ºWº£»®ºWqèèŽîªºWoèèŽîBwtGwtGw¯èèŽîè.tGwtº£;º£»ÐÝÑ]èŽîè.tGwtº£;º£;º£;º£;º ÝÑÝ…îèŽîè.tGwtº£;º ÝÑÝ…îèŽîBwCGwtGwtGwtGw¡;º£»ÐÝÑÝ…îèŽîBwtGw¡;º£»ÐÝÑÝÑÝÐÑÝÑ]èŽîè.tGwtGw¡;º£»ÐÝÑ]èŽîè.tGwtGwt÷ŠŽîèŽîBwtGw¡;º£;º ÝÑÝ…îèŽîBwtGw¡;º£»ÐÝÑÝÑÝ+:º£;º ÝÑÝ…îèŽîè.tGwtº£;º ÝÑÝ…îèŽîèŽîèŽîèŽîBwtGw¡{êtox¥÷Õµ„îB÷4é¾ó˜Ý…îiÒ½5Ö¾´b4tº§I÷Õq]M¼GGwtWé¾îãYM ÝÑ]U¤ûážÚ:º£»ªH÷â2º ÝS§ûÀÏŸù-º ݧûgÞŒõÞqçHè.tO“îµñ}ttGwU‘ ÝÓ¤û\…îè®y¤ûp›þ¹ÿÈþŸ4ÌïÐÑÝUEºgËŽ¼”¿?o¿´l>‡Žîè®jÒý»‡~ú¹Šø"º Ý¥ûk±õo}Ãgß+MqË<ÝÑ]U¤ûŽøÖè­›ã1tº§I÷Ußk~ï½è.tO“î¥3ã7¿²Ý…îiÒýì¡ÞÚÔ~Ý…îiÒý ñ—Ñ[§âÇè.tO“îõ¥¸p¾!k8!ëÑ]èž&ݳ߬ˆÁò¿fó8ttGwU‘îYÖu ixæ[ eó9ttGwU‘îåún=þåªüù¢;ºk>é>G¡;ºk~èÞÖörù§I¡»Ð=9ºGÜ§N÷+:Ë?M Ý…îÉѽ¦Þ££;º«:tÏëÜ5v«ãŸGw¡{rty£~lüñhFw¡{rtï[ùöî=¶ÊúŽãøÆødŠm­B¹•Ó2ÀÂR­…J¹v@k)×r¹› ©0@à¸È¸ dÀ ^À‘íu›nèngFÜHØ’]²lK–%[¶ó<çéáÒl$?žg¿¾ßIû{ÎIO9Ió弞¶Ï¯‰TÓ-YÿÇ• Ý º;G÷}º¶_Bw‚îîѽó5cÿkt'èîÝMN~~¾Væ'+±û|¡;t§pèî7ðèíy¾ÐºSHtO6º“·kÜsOuС;t'Kt÷ëZ¡‹‰åª½ Ý º;J÷‹õ‡3‰õð(ÅÙa† »£tï¨9ÁÑ%ÝÝ º»I÷¼ f.ﳺtw“îñwR‡ãcР»›t¯.jØ×}öÝìëNÐÝQº¯ÓûÁÑGZ Ý º»I÷¡™õZ«ZퟮÒV!:t‡îd‘îæßµÁïºg67!:t‡îd‘îÆ\|ÿÝRÿhàæ CwèNé|eÛÚ~¾ÐºS˜tOôüŽS¦ûèpºCw²J÷ÊMÞFϧ³×•Aw‚î®Ò½ƒT“i'M™â CwèNé>\yË2úɘ=}4ºtw“îÛ4×oÐM_mîÝݤ{ÞA º©^Ý º»I÷x³Ô /…îÝݤ{Aö]Á ïÊ®†îÝݤ{K Lzùjµ„îÝݤ{{©ÊªÜ®ì­Ð »›t7­µT„zQ t‡îd‘îÆì[³61æ#d™0ºCw²Hw¿Í3ºÙ~¾ÐºS˜t¿MAwèNáнK£ ;Awçè®FAw‚îÎѽs£ ;Awçè©stèÝÉÝS±Ã AwwéÄ3Ýݧ;;ÌtwŸîì0Cн Ðfº7º³Ã A÷&@wv˜!èÞèÎ3Ý›ÝÙa† { ;;Ìtotg‡‚îM€î7·ÃÌ=÷Ä&}eÌ5÷åýqQÅö_—CwèN‘¥»ßî0sÏ4e6ËUî—¯º¯dº¿[ ½ÜºCwŠ,Ýo¦™šÐÍd<¥gº_¹ï1´0fx­Ž@wèNѤ{Îÿk:掎ëÿV’ö£³ŠÇ=œXÊçéñÔ}Cb1ßü—ôgèÝ)’t_~PO,K2½oÆÍ»˜îÃj¬¿NÖôÔ}ßѳþzüÖкSé>'1ÞmŒÙ]¤º…ÔÒ4ßO3wêþÚ[=R÷mÓŽz¾ÐºS8tïU¨±½ë7Õcˆ1göêBšŒÐþ:LJmS±VcÆ|~êÁéçoqС;t';tÿ:úçé;õoý§¾›æãôuí.5ü,.§XKŠüÃtkƒÝ¡;Ù¡û úž·üVú©ÿU—æƒÕ3yP¨†°m–úl:Ÿ?ä_R×ë>úüW·²ºCw ƒî¹:ã-µØ¿y\ñ4ˆiVào>–ÆùŸe€æ]÷Ñ£¿pu?›Ý¡;…A÷Rù¿&3]÷û7‡*/ÍzèɺmøÿFJþK§¥ãкSôè¾VÞ´¤Hø7ÛhZš<¢%þ:LêßpŽ>QUþAÛÒàÏ8èк“ºÿ@÷&Þ_VñÿæËúyštÔWýµ·îNÝ7MG“Ÿ<Óÿ¬ƒÝ¡;Ù¡ûe-h^~z“ù·–+ù½¹ÿÑÓà¯ó5*uß­ó×T¸ ºCwŠÝ¯Ð*•²³gÝoý¦øª_wûoŸTEÙÛNUeê¾%Ê=é­ÿÐÝ¡;Eî¦ìÁ¸Tý­ÄÑìbé‹›Ó> FS6eÏêåÏÍõÈþ¶¶ì3æT¼øÅ[tèÝÉÝu{²Wò•tüô®7ð’:c„2Ç穨…w£™· •1»§iâÙRš¿ÐÝ¡;…D÷›¯ÿ× b#Ç&¶ º9ti^ÅÞEéÎï¡;t§è~;ƒîÐB£{tºCwŠ Ýí :t‡îÝ¡;t‡îÐWtèÝ¡;A÷&L÷Êow‡îÝ]§û$åóh'èNÐÝeºÇuÈÍ„îÝ]¦û÷õ`}OÝÙóJР»st_¨ëƒîÝ£{ùOÎNZ¬ÒÅW‚îÝ£»_TÎÑ¡;t';t÷ë÷«h :t‡îd‡î •}Z5¹êÕŒpºCw²Hw“3y¯ÿ¸Ü9Р»£t7ǤÚר•Ö@w‚îŽÒýœ*>,I¬%G2Õ.ÄA‡îÐ,Ò}”Gm´ºtw“îyR§æuu!:t‡îd‘î±¥©Ã-ñºCw²H÷UµùÁQYî*èNÐÝMº¯Ö{ÁÑB½Ý º»I÷1­¯Ï0õë5±t'èî&ÝÍ›…’&zoLˆƒÝ¡;Y¤»1½k2c^Q³Â„9èк“Eº{•´Ÿµa¶åç Ý¡;…I÷Ût‡î*Ý£1èк“eºGaС;t'èÝ¡;t‡î¼¢CwèÝ ºCwèNкCwèNÿ×t´QР»stW”þR t‡îd‡îsüÞÖÈUû—u(РSР»st÷«/üd—?SO@w‚îÎÑÝï“øÉàè¥q' ;Awçèî·àʾ“ Ý º»I÷>o4ì[¾ó èNÐÝMºOP§àhŽ‚îÝݤûp ¸âù\ß.Š÷„îÝݤ»¹·X’÷–ý– qС;t'‹t7fÅC¹‰1Ï{j« sС;t'‹t÷j;ìôÇ9–Ÿ/t‡î&Ý)û´jrÕ«á:t‡îd“î9“÷ú¿çž»1'ÌA‡îÐlÒý˜Tûú¢µÒèNÐÝQºŸSŇ%‰µäH¦Ú…8èк“EºÒáà¨VBw‚înÒ=ï@êÔ¼®ºtw“î±¥©Ã-qèNÐÝMº¯ªÍŽÊrWAw‚înÒ}µÞ ŽêèNÐÝMº·ˆi}}†É¨_¯‰- ;Aw7énÞ,”4Ñ{»`BtèÝÉ"Ýé]“™óŠš&ÌA‡îÐ,ÒÝ«¤ý¬ ³-?_èÝ)LºGä¢èÝÉ&Ý#rQ t‡îd“ºCw²H÷¨\ÔÝ¡;Y¤{T.jîÐ,Ò=*µ@wèNé•‹Z ;t'‹tÊE-к“EºGå¢èÝÉ"Ý£rQ t‡îd‘îQ¹¨ºCw²H÷¨\ÔÝ¡;Y¤»W.jîÐlÒý6Ý¡;…I÷Œª?ZÝ º»I÷nÓt%èNÐÝMºß§Ø€UAР»›t/йHœ£CwèNéÏ3‘tèÝÉ"Ý'íŒÆ CwèNé~LõР»ëtß} ú‡Ð »»täwVÅ/,J‚îÝ£»Ý º;G÷/5 ºtwŽî·5èÝ)ºGjС;t';tïØq¿÷;Awçè.u¾î;rР»stïÔ©§÷;Awçè©stèÝÉÝ#5èк“ºwit'èîÝ#õ›qк“ºwnt'èîÝ#uŽÝ¡;Ù¡{ªçwœ2ÝG‡;èк“ºUnòÎÎOg¯+ sС;t'›tï ÆdÚISf‡8èк“EºWÞ²Œ~2fO͇îÝݤû6Í5ÆtÓW[ ;Aw7éžwЃnª@w‚înÒ=Þ,5èãK¡;Aw7é^}W0軲«¡;Aw7éÞR“ƒ^¾Z-¡;Aw7éÞ>S£^›ª¬ÊíÊÞ Ý º»IwÓzApEKEsâ CwèNén̾5kc>r@– sС;t'‹t÷Û<£›íç Ý¡;…H÷“W_ZÝ º»I÷ij8ÚSÇŸd"èî(Ýõûãþ:ì?ìÝ{l•õÇñ_ùŒNÓÊé`´Åõžc)”–2K[h)×]ËÆ¥nh•Œk*7&,²0Àˆ›]ÔÉœ™ÁH¦.Ë.1[–ÌDwË–m-YvÎsz9mMÚþÎóðëûýÇùþzž”~éë<=ô™(M‚îÝݤû½;#ºü;MÚVÝ º»I÷üçÔøüÞ+ÒÊsVºCwò‘î&w‘–Õ)ýÓ¯ƒÝ¡;Y¤»1£öI/îµ}¼Ðº“tõˆ–ô{С;t';t︊j¾ÅÕT º»I÷@]ÀºCw²C÷¬nAw‚îÎÑ=©AwèNþÐ=PƒÝ¡;Ù¡{FÆ©Ä3rþžŒƒîÐìÐ]šÐåŒt'èîݳ²"]ÎÈAw‚îÎÑ=PÏÑ¡;t';tïRþٳР»stïR6/˜!èî>ÝýtèÝ))tÏæ¬;AwèÝ¡;AwèÝ ºCwèNкCw²D÷üÎÍ‚îݤ{/~ñÄè1yË6/èþÏNqt‡îHº_ÿ ^©PJ¦2vÙ_÷’ú:èк“ºOîVO±FK³Mê6=œÛyÿ7êó CwèNvè~Ý…ËÇ.æR³Që;í_-©t‡îLº_w÷h‘·.×ۣ݉¦TÜÝ¡;”î×Ý=á­E*LÜ~U7M†îÐ\¡ûmõÖYÒüŽÝ½uƒ'CwèN®Ð}±óÖ\)ܾ9ö.½b&CwèN®Ð½B‘øbuü€-K?4Ÿ:è‘q‰íÙÝ¡;ÝtÏÓÚ¶A´íý¾ìXÕ§ú×5èкS@è^¨‡Úè>³mï5½e t‡î|º9zÉäÎïùqµº×[gI¥­[-ñŸ´qÖºSÀé^¿?öâ×gÓ÷T÷ôÈ íòÖ"¥µm})á´‘¾ :t‡îd“îã¥â<™[¥¦u=j…껼ºCw 4Ýiƒ1±Aëã==x‰šªLõ>ÕÆþSË–G7ôã CwèNéžó´itÓØÜÓƒWÏQ¨!GeCbo¤hZ?:t‡îd‘î%)íƒÞPÙã£K)È›»(þ³µþtèÝÉ"Ý ÒG¶úñôF‹Ç Ý¡;ùH÷¡±ï˱A¯Ù¡¡>:t‡îd‘î·…4ï… ×VúAºCw²HwsKsëë]êºCw²HwcNîÜó¹SÃÆÏA‡îÐ,ÒÝëÀêlÛÇ Ý¡;ùH÷¯ß™œã…îÐ|¤»”òê‰ :t‡îd‘î;ʤŠÏ¶ ö{С;t'‹t7ù§>I—BwÌ®îÝ]¥{¬ó¯/-–¾û“…Р»›toíâ®%\M• »³t7ã¥þ:t‡îd™îßøk¹T{v/t'èî(ÝG?3"ú=íû߶{¼Ðº“t.O*¹Ý º»I÷ÿ*ô‹üü¹Yw~A¿‚îÝݤ»ù›*¦›ÿy?G? Ý º»Iwc¶^0f쯛•ùãã CwèNéÞÖº¹ÆÏA‡îÐlÒ=IAwèNþÐýŽnAw‚îÎÑ]Ý‚îÝ£û„nAw‚îÎÑ=PÏÑ¡;t';toïÈÑK&w¾¿ƒÝ¡;Ù¡{kõûcÏΟMßSíç CwèN6é>^*Γ¹UjZÝ º»I÷ÙÊiI"cžœ¤MР»›t?¤ ÆÄÝLÖãР»›tÏyÚ´ºil†îÝݤ{IJû 7øù[`¡;t'‹t/HÙ:èÇÓ¡;Aw7é>TÓâƒ^³CC¡;Aw7é~[Hó^X¡pýa¥„îÝݤ»¹¥¹õ´Ô 2>:t‡îd‘îƜܹ;:æs§†ŸƒÝ¡;Y¤»×ÕÙ¶ºCwò“îY Ý º;H÷Ò]7]hÉ߯Þ^éç/ž€îÐ,Ñý{¡ØI¸ÆŸÅîÿø]ÉÏ+µ@wèNvè~…JKµÕfðW¢%ìã CwèNvè>Qï1¦è˜~zñOÒËõVºCwò‡îsô£Øòe}Ò¤Šç¯ƒ݃ӖŸ§ Ô¸ºÏƒ^Yìý¦‰çõ5í>gû‹ºß8=( Ncú<è*ó–jé/³Œßƒ݃Ó$½4‚Òk‘¾zfëjõêŠÐý†«P_ä“”úá¬{Ç ŸñС{pÊaЃӰþô\ÿº‰î z`ìØ CwèN–èþÕ°—t5~‡ÌtwîAºÈ"t‡îd‰î\M• »ûtŸÑ-èNÐÝ9º'5èÝɺjС;t';tÔ CwèNкCwèÝ¡;t‡îР;t‡îÝ¡;t‡îÝ¡;t'èÝ¡;AwèÝ ºCwèÝ¡;ƒÝ¡;t'èÝ¡;AwèÝ¡;AwèÝ ºCwèNкCw‚îкtç;:t‡îÐA‡îкt‡îР;t‡îР;t‡îÝ¡;t'èÝ¡;AwèÝ¡;tç;:t‡îР;t‡îÝ¡;t‡îÝ¡;t'èÝ¡;AwèÝ ºCwèÝ¡;t‡îкt‡îР;t‡îР;t‡îÝ¡;t'èÝ¡;AwèÝ º3èкCwèÝ¡;t'èÝ¡;AwèÝ¡;AwèÝ ºCwèNкCw‚îкCwèΠCwèÝ ºCwèNкCwèN‹î£Çä-Û¼ ÓÞÚÏìÎ+lºÝ¡;9B÷Ñ+JÉT愽úšîCTéQ+Tß¾w¾@w1}tèÝ) t7KÔTeª÷©6ö"¸-nˆÞ~¬§fÇ Ý¡;9@w³zŽB 9*{#EÓŒ9P÷öí=¶Ê»ŽãøÓ ý.6+Bd ‹ë\ ‡"kºu”âŠPÂÂ&%Œ;›\\ä6èÛpè »âP·‰»)Kœ™š8·14„hâÌ4þaâf–ÿ1^MLŒÙóJÑ5gõôûœæõþcOyhŸ”瓽J¡ÿ{2‹ÑÝ5èž$Ó7åv¾·–ý(ÓÐÑÝ•º!tGwU Ý+8ttGwe†î•:º£»ÐÝÑÝÑÝÑÝÑ]èŽîè.tGwtGw¡;º£»ÐÝÑ]èŽîè.tGwtGwtGwtGwtº£;º ÝÑÝÑ]èŽîè.tGwtº£;º ÝÑÝ…îèŽîèŽîèŽîèŽîBwtGw¡;º£;º ÝÑÝ…îèŽîBwtGw¡;º£;º£;º£;º£»ÐÝÑ]èŽîèŽîBwtGw¡;º£»ÐÝÑ]èŽîèŽîèŽîèŽîè.tGwtº£;º£»ÐÝÑ]èŽîè.tGwtº£;º ÝÑÝÑÝÑÝÑÝ…îèŽîBwtGwtº£;º ÝÑÝ…îèŽîBwtGwtGwtGwtGw¡;º£»ÐÝÑÝ…îèŽîBwtGw¡;º£»ÐÝÑÝÑÝÑÝÑ]èŽîè.tGwtGw¡;º£»ÐÝÑ]èŽîè.tGwtº£;º£;º£;º£;º ÝÑÝ…îèŽîè.tGwtº£;º ÝÑÝ…îèŽîèŽîèŽîèŽîBwtGw¡;º£;º ÝÑÝ…îèŽîBwtGw¡;º£;º£;º£;º£»ÐÝÑ]èŽîèŽîBwtGw¡;º£»ÐÝÑ]èŽîè.tGwtGwtGwtGwtº£;º ÝÑÝÑ]èŽîè.tGwtº£;º ÝÑÝÑÝÑÝÑÝ…îèŽîBwtGwtº£;º ÝÑÝ…îèŽîBwtGwtGwtGwtGw¡;º£»ÐÝÑÝ…îèŽîBwtGw¡;º£»ÐÝÑ]èŽîèŽîèŽîèŽîè.tGwtGwtGwtGw¡;º£»ÐÝÑ]èŽîè.tGwtGwtGwtGwtº£;º ÝÑÝÑ]èŽîè.tGwtWUÑ}ìåM¹Õ;–¼ç=tGwU/ÝÇ®‹úš†hXö÷ÐÝUÅtß=“’Úq¨±ø=tGwU/ÝÇ·/ïì½ÌÝ[ŠÞCwtWÓýöèN¯·Ä†¢÷ÐÝUÅt¯‹GÓksL-zÝÑ]UL÷±7½Î‹X\캣»ª˜îËãhzmŒ_캣»ª˜î1­ðFK,+vÝÑ]UL÷\lîõ´b÷ m©»°?<Žî讪 ûÔØßÇô9Åî•ò ¡;º+#tïŠéu^Äôb÷Jù„ÐÝ•º_ÓksŒ.z¯”OÝÑ]¡û1#½nEEï¡;º«Šé>*Úò<³6–½‡îè®*¦{²2Öt&7Þ]ùÀ²çÈÖwÝCwtWÕÓ=Ù¸ êWLŽ¶QùÔÄÌwÝCwtWÕÓ=I¦nÊ-ì.|íÜÐÿ㺣»ªŸîCùúÝÑ]UB÷ ÝÑ]™¡{冎îè.tGwtGwtGwtGwtº£;º ÝÑÝÑ]èŽîè.tGwtº£;º ÝÑÝÑÝÑÝÑÝ…îèŽîBwtGwtº£;º ÝÑÝ…îèŽîBwtGw¡;º£;ºgwèk®(ÚÙß^2¨¾:¸wë9t‰JíÕ›Afúlñݼ•µ¡×>]ü¾ôǃüuîÝ|ÜK¤ä^ø“3ÈLë‹ïæŠQU&”ÏÍÜûÝ0¸wk¾ ú*öe–þÝ0Â~=†nè2tC7tC7tC7tC7tº¡º ÝÐ ÝÐeè†nè2tC7tº¡º ÝÐ ÝÐ ÝÐ ÝÐ ]†nèYë¢Aþ+œƒ{·¯íñ)¹O9ƒÌtÂH’$I’$I’$I’$I’$I’$I’$I’$I’$)½¼)·zÇ’ =¥®Á —rx_‰sÍt<ÃØzùŽ]õ5 Ñ°¬"O†^Òá½cèh$½|7EϤ¤ö@j¬ÀS^C/íð®ŠîIiµÎgØI/ßñíË;{/s·Å–²?eñ½aè%Þ]ñk'3¼¬—ïíÑ^o‰ å~Êw¦Æä— ½´Ã;/9™am„½|ëâÑôÚSËý”›âg]cè¥ÞèxÎÉ k#ìå» ö¦×y‹Ëü”;š“ÄÐK;¼ÙqíÑ«u}âÇ3\°—ïò8š^#ÆWà)†^ÚáíŒÖöôÝß?Ñ _#èåÛÓ o´Ä² <ÅÐK;¼qŸ:3ë‹'ßÉzYÊÅæ¾WÙ´ <ÅÐK;¼—îùRzýW4øþš¡—¡©±¿Ïs*ðCÚoAgG¼í„ }èuÅÎô:/bzžbèCü-øiüÓ úл2¦×æ]‰§z‰‡w빿%ww|È úл3f¤×í±¨O1ôÒïæöSº·Ç'dèCoT´å½8fm,­ÄS ½´ÃÛo¦×ŸÇ6dèåhe¬éLn¼/ºËö”=G¶úÐ7f%c¶w´Ïw>†^Ž6.ˆú“£mTùžRÓÿo+ ½ÄÃ;Òm+FÇiÇcèåiúá¦ÜÂî9e|Š¡—áð®Ûw,÷Ãßßáp ]’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$I’$IÿS‹«‚dè’ ]’¡K2tI¥õñ8qfåè¶ë÷Lì¿÷›x¡ðÆâ¶Þÿß·¾uùº×þÚ7ô¾µ:fä/Kž]Ðzí«ó¥”å¡ï[õɺ³-ñâ˜ó÷ŽÖ±ù딶¸&Iþ±ú¡'"Öw8ôùŸ‰ 5OF|ÔYJz¼þá$iž7õßüv<¿|=j’doÔÿ¨÷í·WŸ†¾¤-f^–$['Ç7¦”Ý¡·oÎ_wÇ“ý7ÿuùËã•$9ÙñFzïdìhèwÅ¢¤ðñ_v˜Rv‡þƒô:kB|àüÍÎÖ–ç“ä[:žËÿÌ”ôÞ[ñ†~w|?ýAmK<ì4¥Ìý}…7ÖÆñÚñißH’ïÆé$9—¦?3噧>¸¯)â# ýþˆµ×§åâ§)evèïûº|÷u‘ö½$¹(þœ$=±»÷þÄWŽõÞëxè}côç‹t)»C­ðƺØÙ?ôY£Ûg?ßRqïýÑqà'û/N~uÁÐïM?âw½CŸ1Ç!JÙzOz½,K.¸ýlœ>˜þûÖUqUzçžóC?ûÒ;/æ¿F_K ±õF§)evè¹tà§c×…·?=u‘ÿK0Eþ{éIrÿúØtnè§âõôαüÐgÄ®¹ù ‹¦”Ù¡Ç®_öî´þ¿þ,­«µõ‰ü‚bæ˜$™ýfăç†þÀ¿ÛµC•£0ŽÃŸé_,CXpW0 ~DT† j“çXD bÑ ,âÚŒ^€Å$VÁÕämˆn½‚yžt8ñ…_8‡7ykƒÕµ¯Ð'9¼+ŠV™sÄê†ÞëözÉéïûÛŒïÉÜÁåBsýów–,,×^¾7ã¦Úéîl$ÃYÄꆾ2µ[n×ÿÜ’Ñéx¸5³w¿ÓNgzó}¢Q>O×G»î×ÍÅÚÓúYB•C7: t@è€Ðø‡>,šý Ê ¨IEND®B`‚metafor/man/figures/forest-arrangement.png0000644000176200001440000040335714746402761020466 0ustar liggesusers‰PNG  IHDRÐS‹ª pHYsÂÂnÐu>PLTEåååÞÞÞÿ™™ýýýõõõìììÿÿÿÿÿDD\\\  $$$UUUÿõõ''' ¼¼¼ÈÈÈààà{{{mmmÿþþGGGãããLLLÿÃÃRRR444777°°°wwwÿýý¨¨¨„„„ÿ___;;;ÿ ‚‚‚)))ËËˉ‰‰ÌÌÌÿûûccc...ÿãã+++ÿÃÃÃÿtttéèèØØØÿJJCCCÿµµhhhÿùù222@@@———999åääÿ÷÷000ûûû†††•••ÿŸŸYYY£££ÿ€€ÐÐБ‘‘<<<ÿ»»ÿbbÿ ÿêê“““šššÒÒÒ   ooo³³³ºººÿüü®®®úúúÓÓÓŒŒŒÿïïâââñññÿjjjÿ««ÿøøøÜÜÜÿÿ88PPPÂÂÂÿGGÿ##ÝÝݦ¦¦ÿ¢¢DDDÿRRÿ\\ÿááÿggqqqôôôÿ²²ÿ¶¶¶ÿƒƒeeeIIIÿss[[[ÿUU~~~ÿ{{>>>aaa---×××ÿÛÛÿÍÍÿÏÏNNNÁÁÁÿkkÿÙÙÙWVVÿ¿¿]]]ÿNNKKKÿ——ÆÆÆÿ--ÿ//¿¿¿«««ÿóóÿÕÕÿ44ÿ§§···ÿ¯¯óóóÿ¬¬ëëëÿll???ÿííïïïÿ;;ÿKKÿYY"""ÿØØÿppÛÛÛÿœœÿBBÿèèÿÅÅÿ··ÏÏÏðÿ''ÿvvÿ**ÿÓÓçÚÚÿžžÿˆˆ!!!ÿ>>ÿßßÿ””ÿ‹‹ÿÌÌýüü깹SSSEEEæááýù22ÿ‘‘ÿeeéÅÅù>>ÿÈÈÿ__ÿææÿ¼¼ÿÂÂèÔÔî››æÞÞí§§õbbë®®÷÷÷öVVÿŽŽê½½ÿÍÍÍýÕÕÕ÷JJòxxþ èÍÍû!!n@@G+ ïï¯øCCó““·hhD´Þ! IDATxÚìÝÿsõÇqeó–’`±žP­Mä,GaÀ˜R+µQáÐL.Rå‹_hÔȈ‚TP£Ò^¤ % IAÁ/ce†ŠâLùÁÎDñ7¦3ŽB÷ó¹ïw› 9É}.»ÏÇæ³»÷ÙÜ}>Ä×íîç³;ÌCÞ0šè€@:: Ðtt@ èè€@ÏCK }ð’ògê\èÕÁ`5} ðv9ìÂ@÷·¶úé[€‡´k]è–Ÿ<xKy^µ€ èèpþ„šOЦÕtwÒú`èè ÏxEªhÓžghÃ*×pa ûD|ô-@ ƒ@÷Féva ïÙOß^qR>¥L[/ßÒ†ÕÈ-. tn,xÊkÚÀ´ÊhÓÜycný ðwÞúèèP`kOѦ©)§ôÁ°d }xFDhÓŽÉÁ°ê£']èÕ£ÜÏ`z`ºyk¥Ù…ÎÆ(w\€@€@€óh5ÓZŒ[É%t}pø|ôàuác4‚iKÇiÓ:ý. ôòúzîYxóЋóÐÍûpÍó. tæ¡:t)Ä<ôŸ‰TæØú¢-l­íÌñ_ÃÜDùdÇ'Á`Û‰ ªs×FÁ´÷ÂÁó^÷¦Èš È®Þ>_R~XÞn¿4,"­¹ûêomõÓ·€gp‰N€eµk úÅ2·1äïm•ª¾ªCM’ô–€ì‰Xû?æ¾e­Ÿ<ð¥jÐýÈÖ¯R6¾­~ž|T>w®~¤M’Þ&{ô;þBÖ|@çðÃüÀ@oOa©•-屨þÚ©ruG@æ6ǽEýFV8À¤G úþ'$ümV [Äæ.¾)ÿµÿû’¤PÙýÈ-O½ô—ò»õ<7 5Ÿ L«éî¤<èûIøÃì#ô¸^‘v§@ÿàØËJz·lõ=övî_ÙÑAžÁ´µ"À´5ó*×(L ûŽÉÜÄ8öÌ@© K³_¯§˜ßžôyc}4ì¿Îuñß'â£oº‡4JwA=t±l9eÅû+Ù•šØ*¡ß›Ý÷¾Eª¤ùTç©"¹Fç3ð’“ò)`Úzù–F0¬@óÐ#ݲå½uN]}½nh›+k6®î?Т¯´[þf 昈^ ò¬À;^‹Ð¦U~D˜Ö.‡ è‡Dš¬>]%ôÑ°²ú=åG;cßÈ¥&ǯli¡k^RþL]!]ìCëR¿Fd_ñz[Ôç¼O9åþDlU½·Ï›_[žÇ¥ž? ÓÉ­4‚a…|úÒøÁxšHƒDŸpþ¼ÿݪµ_”Ü÷•±B"!úÖ­f¨ |.¹|‡Z¾,ïÝ 8„Î]2ÄýKâ._8ÐG Ÿëç5è³wŽàôö¥<0Ë´Æüžv’W wî’ŸÃáô‰¶p ¾©7ÇRÝêmª Tmìç–D[1ç^ÃU.•L,oPË×,Ð5Æ®0¤ÝÿbIªgTûœ?¯É@`«kÊkøØ0ZÆÌW±´,¾4òÇöÒ˜ü/ò4„–• µ@ $ÝâÕ>çÏK CsîS³!¾ôZÚ–ÿÞ>^µjÕr7ú¾è©öë–ï]¾i¼.äãè –ƒê˜|ôͱ¥)*pþQ¸ß>Ôý±éê}LéÒ W\ª¦º/ÐW3­Å¸•\B'ЇÏG¹Øs*cEË]evùR5Ðëà¬Û+JG·{_ò•]l¨(ÛsÙ¾ û\•¡ìÂ뮇nŸ^zéöïßÒ÷ú×ĉëUzyæïÆÛ³xUÊH³‹'—N_·¢X]òßâ—$^U_†J¿Õíã.)­8½°+¶œÝiŸ÷6ûÇÂ/gõ”U¼þ½c}c^>ÆŸ…iKÇiÓ:ýùÔ*ò@/¯¯çžE.ö¤ ˜—£åûUù:»°|^"{~˜'ÇÄW]se_«Òýý;£GM‹¾?þYÆ,K ô´&Èôí%ñó#Ùõ:óЋóÐÍûpM^Ï8)ò@gº»]4VeJôáë*P¶•ËRrG_wOʪž®>V¥úéɉ­ïèð̽¦Ü…Ï%7N&º?¹ª¢(ý±R¸_:lÙ;/å³m²œ› +ÐoÓ ÷:×'Ð t˜Tˆyè:Î3<% UIŸq¿Ñ.LÕÇÉÛ¶éÒ}ð=SŸ^ž¼ãeÊsúX•è*±æ¼>Z_u¶œöz÷”›Tiþ”){c3âÇ_µ]¯ú…>…¿H¿pܶ.îÍx OÐ'6¼Z¿ÁÉ7•êŸ÷87AÚç½-‘ß ë ôÎ]ù«0í½p„F пµÕOߺس:dTénUšeYT?_Tkf$N1ëár3ìƒÓ¿¨¡`£8¯Jô²ëíÒ u"}žå¼×ä ±.u¢àÎ?ÙÿÞf©uÏÚ«.ü·®ag{×éâôkÕ»Øî°a›ÚðË –µy¢ú¸— sn‚ÔAqÑ@Ÿ´wùŽáÎõÍ Šã[ Œk Öº0Ð-?yîjw©£ÃQWØ¥ª`gªuåòi7è‘_¯ª yH­Q…«ôëW•ŒêY7ÓqUF OÔu¿ë¸×”€[”Œº ±›ÕMHÞÅn䘢t=Æàìõ#ÕuÅA]ÖçÕÝGdú?sÔgÚ0¿T1m FMRòˆe½«båöÔ-ïÿ>>^J»^¯<»7z s‡Uþ°^·IovÜkJÀí¶ D·«CôÉVì}ì®uÛ‹"ÐõÛÔGÐ/Œ–Ï^ .ôÑ™>!G}‚tµW_ÛŽ%tü¦qýtÚºŠè5ÞEñãÆïÓª9¬ÊôèmQõ öŽ{M 8uu¹¬GÓs½»b1«x_Qú¾”£ê¬¯Dñ¦X§6;7AF —Ý•£>èÀõD§Sÿ\ELtüúwÿ)Mº¾#9 ²SlAŽ@/MpGÖeí5%à*2n©úxtg*Ù§Œú[ñAé1Æ~.ŽŸRWôÍa‡;7AF OÎUßX ‡šOð7aZMw'@ †ŽúÈÝôóF¦m¾Äþï:½b™¿^2þôÄøAû¤XÊdúð>>ºî‘Dšeí5%à®Îô?Ä=6 þú¢ô.5^}üƒ‰åã&ê;Æü(å«G¢]› =ÐoŠUq¬Ï´5/cÚšy•ë¸0Ð}">úÖÕ~óöÎö)Š#㚈=}„] âêAö„E9ó4¨ÃT4Ƈ rjˆ^|ˆx9ïNƒçEQsX’JÐ@@ÅÎXuZã•Vé ¯*¥¾óÅŸpÓ=;»Ìî"O½Î~?/`¦wºgö7Ÿžî¦9Ü™|·?0ó:3ßAZµækÜùM=4ùúw›™”jÜhƒßTrÙ‡Ÿ+Ó+c`™¥î/£›!ÏÝݬ>P·T©21 §ÐÕ,¦ù!tˆ¤Ž^µ ÐÑÝúðZLV ø3ßíL%üÞ{¬¦Þ2½{4qD->—9Ó4ɧÐMJU^Ã7™}ª Ù¢õªàö+S¦KCè™nC¿òçqÏMµe›‡Àð}yÌ Õ‚Ló ú=z§„hvÓg‚`¬Ù½ =ïj°8ÅZE7†pz‚OñŽ×òÄl"›·á:¢öV7Iò)t“RÁÅ몬PT7ºv ¶›¿û„K~¸-0„¾•è6y+ŸùgœÖè}«Šw*o•ÏÐz«yz¼.ôßh—³üâÅmÀ)!š¹?"¢¹D¯YPèääIìZ‹Ã…âR&S¯ý†<‘«?íæ£È<”3“"3j¬y’?¡{–ú‘rk:²•LâN;£Ý®ò¦ä‰|—BöfKòúÔrehÚqGššÏñ EòySøû BB2ØÀ0‘­^„îú¾nB7ÍVîˆ$åÐ:+ XŸÕÓ•—¦ñvÖÎâæqÊ»WÞgiñ¼E›}NT¨~'o’äKèf¥Žá“ a›Ô¶`iŸNa¥Ù™ÙI¥ò²’‰ßÙ¥@:Ióh¼§T*ìä3w—*ÿ˽„Àø}Ý„n–BàU¼=B€`*;å*s7lnÎÚÎob‰íð’äKèf¥v¨ªÎ ä`¡äѧMyì®ðF ýÁx·o‘©&·D“‰7¡¾¯›ÐÍòCè@è¼4[ÙÞRg›5÷žb"¡$–éïJ]¨ûÖ#É—ÐMKÍURŽ2ÙiïJ•"+Ôò¹êU³ªEèò×èÔÍåz“ê­D-1FÝz³¾¯»ÐMò‹úŽû8#Ds½ƒ¹CèƒÂêÕØG–çMÉen™ßí´Ù¢¦T:ZXú,%±#sÉt{dì¹W6Ï$ŸB7+Õ±©02âîÃõ|ɦñsbF…'eƉ?7Áî,•M8B'U³²å휑¶±Ê˜<æ茻óQñVâCè®ïë!ôžù… ½îÁ !š.úALÁ÷,(ô‚ÔT´r h@?ôýÐųƒ³ ÐÑ€`â­ADs….BcÍ~èE”aß,ÌþâuA4—ÖlASGÏ[P褾»@0±nŸš¡•;` tB€d ºµg¡CèƒCt4öAúµ]‚hÖ¤ÞADÓî° ÐSjj0fAú¡è‡.ž›Û>³ ÐÑ@èA†5û¡Cèí§÷!¢ù~m‚¡Ž Ø· xĆ9™¾Â‚B'ø~T½úB„@è0¤û AMÉÕvB ÚÚ°Ðm-@·5ñÌÝý­…Mi4ö-:€Ðƒˆ:zÕ‚BG?t‚‰{ô6‚ šÝô‚ köC/HOÇ»Î6 ¢™û#b šKôš…NNžÄ®L¤ZgE¡B tZvÜG Ds½ƒ¹CèƒÂêÕØG t‚ š.úALÁ÷,(ô‚ÔT´r h@?ôýÐųƒ³ ÐÑ€`â­ADs….BcÍ~èE”aß,ÌþâuA4—ÖlASGÏ[P褾»@0±nŸš¡•;` tB€d ºµg¡CèƒCtô@–æ¨Æ €Y·¶ AÍšÔ;‚hÚƒ.ô·(ëãã¢Ç?ç¤Þý ‰Þ“£Mî¦*¾’H©©ñ?fш ’L¾ÿퟙt‹ÿO“ìK´Þ–¤¥¦œ’¤ä؇Íì‹\tÍÌæG»~…Œgóέ8ØUA?ô`pû¡³«XEßò²K7#ƒ÷${ÜÝ…ÉÝê"æéjÒDoÅò ì”Ó“´¼Õõù#WYÒrž’7þ®ýµ‰-ú«$iœ·ÛÇõ¶£Ë/kIYAy^6Æ›Û>,ô'·)Ý–.ú¼×žf)ר.ôÓ½z¯ú¡áÁ‰ ñ³XkV˜Ô?¡·†{;ÇHRجú K˜¦Ívb³­qÑh‘zðÐx6†ÙÃckË«-´bÄB‡ÐCèÊqzÀá)tCº¡ß8¡ÎÄ4ëŸ'x }§S™Ét]ø#Gz9¯æèYcŠ/-ô¡è‡îS莯iNI4™ÛFé'Þná÷S]ès)ýæÎ?ú+ô‡Jt6ù^jžlã~ ýœ¼k¼\ز%©pà…N¦±„ˆŒ¿OYä¢áÏ# Q/¬³bÄ£´ŸÞ¡Šæûµ ¯žÐµJRót¿Bßãú  mÜï%O¡'ßö?Œ’QO‡¿{«šuüÕmN=5„~½þ±6¹ˆÒoùDÝöÄ4ûõ¯©Kè‡è‡³ý¯Ñqá‚ß' ­v%:I¾+—ú+ôr¶\ióÀ ½*›¥¼©ÌLå“‚JèRø^ˬñè x-H0¨;¡¿BŸÞØظÑLÜR¼¹ÐYú¼´´´NS¡+Å9ù’ aì¯íŒòq¥§Ð»åÿï’a²qŽò.Ê·[­¦ê¹¥F¡›oŒ;'ÓWú%WÙ'ZÝùuJw˜d.hK¥9Çt¡×Ó]½Y¥ÃË€÷µ˜½3ÈBo”³u{ùl¤¼ç ¼ÐIS¨žT=šM®´Ê5£—‘&»²T„……%‰X1â1ôñV¥¿BŸhPæG“dÆîŒOæO#ûJwËÜ£8~·ôhÉ;e8Ö3äÉÎ2•ÍªDv"Ë?›¨7ì¹Þ¯äRLreSå8>]iºùÆ Èª¾ý«]tí³B¯ûŸ:¨ÛJKù5ÀîØŸP:ÿOÿÒ…¾¶ Ðñ1ƒEjüà }x˜·&qŒ?Ëe¶ ¼ÐI>KÊ^&O-gS‰#¬rZWOâð¥ÊôHõl¬¼|ùòÖŽÖYÛyý—ë«©Z,bňÇÐÇ@èþ…¾^û`%›‹õ•î[èl굃òDÕRv¬+Ò­•'ÓŒË*'„2Y’µô<Ósj:¯Qïà3c£ô ä—zßèƒÐ¿ºB×Þìy‡®³ˆÒ·L„þﮧ„¸„^Cÿ»âö‡9?×õ·v§‰‹Y¥ Þ,îKöÐÏ°Û—ñ=¡°Qº£la‚­3³«¨õÇc#lÎGÅê<+´øAf§Ýùe·RÒrõ“‹YsÂGE8—d 3^\§xn[kæ§-,.¶Q«ÿ‹¼TY¶iÉt[Ôq×SÉõ¥lÓk×› ½ƒÅ„ä±z£ÔZˆ™ù±‘‘¥ÞWå¾ñËL‰‡Ä­¦J?ù¯å™,°>¬ñ4B÷¼üÊÌ{#Êæœ<•\fYš| =?ò•î[èÙJÅ”Ì&–£œOFyV‰&Ë Õ\ô66»D’Þó~÷xBkou†Wì P¡GwÑœ_ˆw¡§ì¢¿Ý ûûŽýi¹.tù6>U‘ýüèþ}ƒ,fçƒïº$½zë*µkÃÛj¦Ï õÇ…å'—”_lôZýZ½´my¡rQ÷0• ôåv¸„~c©’ª6_^ª.”öQO¡“_ó'çyJû ¥FÕÑP5Gâp¯«rÛøWTèÓ´a¨æ±bÄcÈâQtì'(O4%WÛ‡\è=/¿äA¾šÒ8Ò¯Ð[ÙÜ_é¾…Îî›9¿Ð;Aw°©æâ´Úüæj×yÐÁ[''Ès”½n.ÐUz%;§4é@ó°½C/ú=|ŸÍpc?¦§ÝMÈ(­óZ‚.ô³”~ÜÐþl>¥×|­²Í_ÅüÁH^-ÒÁ:x¾„ÐmZ')4^¹Ó_`x^x@wâb>¿ŠwPb”2§– ª®“Õü—¹_"íÆfŽºÐýŸ½s}ŠêÈ8 ï-ÂÌR*ÌAÇ€ˆ¢c( R¸ˆ¨@²Xf} á)dID·d}ŒeL0Xš`ˆËFŒ›e&)R¬[±jcUXw×*ýÙÍ~ã •?aoŸîÛ÷1÷ÞPî<¼ç CÏÌ=}ûöô¯ûô9§¬lô®óì·ÐÁ˜ÏmÄ ŸDœô®8VO•¢ò t|£î!˜J±Õ¦µ‡¶‚°5áG‰îàþ2þï¼Q¹1Ðñ |^Ýecæ à¡ÓKá½qâa7M>°UüŠZz1¿—9ý…·¾2èÃßò§Iœ™ŸMÈ<¿úÞüyhv’çÖÿ|:ÏXÀwRb5®Kè»W€¿øŽ+ÆX°B¾·⼯ÁLŽ„:Ë ˆZjX‡ª#Ö–í¤ïA«ÛÝô?lg…1WFQòa íõS@Žt< {®'±°èr\†÷›P}y2îVil®\fîÜѺ8UŠÊG ÐÄoûB2`Š­ö0­=, ?•@×~Á^Émð6:È8¦tW‡ï×R»¨^¹1Ðñº•A››Ä¯ºes ;le∪~_ IR.”jÇ-ãØÕæ ôü·fýž?‰ôîÖçïlf x}“;“…¼AFœÀqèØP3íB¨Mîçt?§8Ά—Ö³6qÝí…Î#̾³0¦“c³ÇZ¯ÄBÄ!½þ¶êžxÕïhˆÃKb7¥ù"#p+º}­ðª k©ÂëíiøœÀeß#M KýŠÌ|Ø&QXhìR\xVG•¢ò‘t¹Ÿ”1ð3ÅÏhš¸œv˜¤Øj“Ûã>ÿƒÔPË[üÿLºÖð –‹ÂØîÛª t…¬j0*7:^¯¥ÀPÊ°E=+¿H2x"e‹–ÑÈã©“žtµÌµ~¾@7)ï|/•¨öÐÓßåùÿl6XÀûÝ2š‰l[¿Þø¬ÈA4ÿ«c&x “pXØÇ#”€Éîž`À†·‰£T“ƒ¹JTà^¦•Õ,ÁKØ'¯[NëóE°÷2ÂòÞÐIª@ ÷—t6GlB M 7Ð=wG¥dD"7ò¶¤®¡JQùHz"]zÔ¿QŸIŠ­ö0»=>¶€jyáû…¼ºе†ß=øïÛäíEÁ}KŒa¹1ÐG°ÉÔ¹Ú7Bìüàó†gŽº½cùl'sæÙ݆Zûrí;„Ä1‡è_ïE?) tùßwSèû=Ï¿‡ÐÜ€~‡7:áòeã*a¸&U³8i; ïa3ÜÂ-2ÛôÌ"éPÃ’}Jrs¨%»*ÕkÎf³ÒõU2g/3 “ST3ÄUÐø!M £IòTx¸K-"/K%‡?UòÊGî =³ 7$[íâö°$êDèZÃ/ ³kIYu` §u÷—ŒÇRw‡5Z·÷<,ÚqXt"îÇ F«;ÉŠÌ£s‡õ¢¨çô5<`ÐF— e©]@îãß8a|ô¯þõZôƒhßtä±íDÉÿ+ “Å<0†šRÄð.pb$L´Ss Xµß”ÍÁFT!|@éØH$~éóý4û¯t¢Œã;iGÚI>Þ¤ tR»÷iŒž7Ú'AŠec¹Z•¼ò‘ tŽ;?€QÅV{„¸=,y€®5üVÈ"+Zô€^ì$i[2?Wö\ò@ox(:Ùc[¯[YånÙä‚Š°@O@ÈWa«Ú®J:®g Ë8ô¿óü/Z@¿ßÇŸ~ ô;b^¹?ðü3ó¯~»zÔù@ ô#:@·Ik\ìDÖH àR—ˆ%LtJÏå¢kK•>š¢˜ðæ³mÒkE «4{èìËq ·³q«nù¨¶ªõê=r€ùL–•dŠ¦+“æ¯xâ•CV{„¤=,y€®5üzdýú¬SÜ|Ùv\Ñs5ʹ^¯äü® )(Wå²06!T™¦ð˧rC\ÔÖ@O?&Ýe@ßõ)ú³@W`@ÿ‰ça‰îz‡?}sþÕ?¯ØN1 S˜yu€ž*›zåPÿ‡Aù|‘½LþŒÄHÜ££ÉLcÝG™áÔqkSÈ$ñQKUpA´æHšåývm0@ÏSÝòmUòÊGÐÛÄÿ–á½›On˜«1Wq¬ØÊ“V{˜Ó¯ÿÛB^¨å»ß.d2w  k ¿°ÿH¥·†­Á'[qy   ‹ô-w‘+Õµw™×1ûEp\Ò –”›¦ÎêÃ?—LÉQµ$#k6|Ž~áùýß<Çóï=Gå¿.Ì öÿé&úî v=Ù»×èÝIj “ÓЮ‹~Štî觤å=µùÄ&®’¯Ð¥”k_Ž-¦*©§c‚úhÓf Ywéž8²xgNqUJÍ2ͯô4Rk©’W>RN<[ÍS^@ ÚcØð8eKL‘;’ Ö k ¿PÖLŠj >þð¶=ÆåN$VÊà…âbHªí7qY·j)yAX 'áö8Ô‡`ÖË£ÉQ2Ý57 oûë}³€ŽöñüÇê÷^=-s‚ûg@ £ácÂçÖó|áOF·y¹—øŸ+–+’e{ôNC ûye”Q&ŠÉjºü“_æì^)K<…__•½ý6ð×[nôƒ²•}c0@ÏÅ×%I \ªä•X WKi͘¨8Ì€ýíaÅ¡‡˜‡®5üÖ²ÝCŒ¤ŸXf6E–jU¯Üè½Goì.zÀŒ7ÅÛó)Ô­¸Iùk€_KÒÄrP È%Šë–*ôÂNjæÌÜ€þ:ÿ®i@ÿú#þXºÚJð…P® IDATÃÏ èèæ·ö¿Ñ·ïž¡Fã8tv>\SIì2ÛEnrpŠxŽMôez@Ák}w‚4MÈ¢L\'.ÉYb—žºêínêÂx[²ío¤vz&8ÉË%xµšõ`  Cà]>:Ö ÐK¥ßCMZV»Ž*yå#è¹ Ç&*3 G{Üãû, †Z¾ác.е†_XB]·Þf{€LqYœ4BꕽEÄC^]g├87(9&•” ʾxä#ÓŽ²mªé¼w¹=ðÏÕLæôfqèæË.žß¥ÿîRåä‚œª#âsÄoLÁ â4©%Lh¤s½4‹P|I"¤zW3Ñ-Îð&v*¬õã3'{ðÛHSÝŽ]æ*3{è* #8ˆwHèAe\0@ÏÎ?"vÂQUÑô»"Ð<€©[íaZ{lþðdIˆå‹}¯-4Ðë*%™Ñ~·ÀI¾>„ÊÝ\ ÷ãú”Q¹1Ðcµ«rïÛFmµÂ²}Æ£Ž+ßÄq‰]ôV–û•Ò-õ I?“uvl|ö…S+çôü'QttîœÁ›*CH…˜†ñ\_}º£7ˆôçò’:µ>@>:]Oþú31—%£™ìiª-pÊæšuj7t,wÝxÉ\Ø­ôV,±â¶ èÄi$¹èÌJÜí#:ª"èíXv67+ׂ 0=ÅV{„¬=,‰:©ÓØ&Õ~I“mÕ$Ç:MÕñȨ<À:øW'ºaÎ#¶’”;o„)ˉKfë$ŽU£Â7UçZ©î‘Pb@?pro4ÝHà@–%²PkÈ-”׋P\>ËpU-ÝGyY¢ tôy²¬ù‰O„‚‰/±—+R¹t#{Hr¥ 2eS<Ñ#z@'‘u ÏôÁœ*DMKU])µQ¦ØjK, «ýž4†_)83±_4ˆëÎRÀ®¤Wè¿JH¥CpÜC©J©e_›ª®vcÄ÷-ß/Î =ÈVÜ" y 3/÷0“&å„hö_¼Å8Eëv—‹@'ëwØÑ:º»Š¹ÊÓE·‚‰8rawÇ!É»ÞÛ+Óݦ¨ß¸ˆÙ+Ôt§¡z:‚:ò5²nÖ¢«*Z€¾=.Ê[ía‰t?Gfÿáu‰'\]’uÞ»A\Fë•òrosˆé»;²Åsª397¯p\?¹zÇÝž8›¤D‡1y’Ýàb10ź‘Ô«]IÞ·­À¼ÒšªÌ-gbtWçŽÔäé‡mz@Gh©wC²Ýý¨®iN»‘¾¹ø~žÝž·£¢Y|7Ax¨Õ/z'm¶Å+[]°°Iè-uÚÝɃº03ÌÞ²$Å‘_R©¯*J€ž;mŠ­ö0”׶YÈ µ¼º[è:@÷~ñº½ßi[<ÔL š€ŽÆ’¨qR¯<`ØZeV}ªÍ™Û"Å»²·dÚ+:ã‘rÎÍ*ïÅqØÿ>;Ú=eÂ(½¡¨=\Ë„@ÒÓæ*Y†'‘Žëœ¯cÉ<9’˜’¼ä’giô)¶ÚÃHì¿cý(B-û ï…W…:ÅüØ…ÁàâÐK¿0½¥/]0_(.•QÉ×®(úš¾¾5áR—£IÚgÜJÏg™5XbÉc‰‡²°qèAÊLÙõêÒã>¶˜²Å… Ð{¼KVƒFJœj|•ù?{÷÷]Çq<.è÷Þ–ÐaÇNÃXAvÈ'Òà aµڃJ$â%Ç,®þa ¦ã„d„F±Å“pˆpWHl z¶¡Ãí– éš¦v6#x,¶mtci;[Kqî—H `m’.¹ü¸äîó½Ïûùø¯û®áû}¿¿Íë÷ç4ÑÞka ¯ÿ}è4ÿÂl秊{ؗ ÐQ îìZ|ÐøÍ{»¬¿Pú[êm~‡¾-tΡ»*п¶Ægî§Wùª5›”ë?BL;ÛšrÁY,̦{¾ÿ«ßì«[ÜMó^ ~åĉ?Úì;5ÿ—Y5ÐKúq[³úÉht_&ãsÏÙÌ¿Eÿ\‘ÓÙçñ|‰_ÀVù)MXð¯å“lžþv??¾BxCþÿ/® ô’~ÜÖ¬~2J›- tÇç¢<_÷þåªGþìñÔñ¶íìˆ,^ÜZW] —ø¢ª†Ûf¾ZlYÜw¿t ° ~qðÄ7Þ¹ó‹{òû­&põzit,@ pHrŠ"˜Ö”ÏQ½²Yz¨ÁØš ¸clM·Pç°…îñÒ[€@®H·ä- tWÍ¡(³‚\¢¦uÊ5Š`˜sèá`ïjô8™¢¦….PÓ†dÔÂ@wÒiZ ÐÄ4fc *«cš˜6ÖÄŽúzYD£ôP#%]Á´q™¥†…Ï, ôp À*w@ æÐ]€9tó:$ia 3‡h2)qŠ`Úˆ4RÃìœCˆDè- E}_-E0m¨¥"Ö-º“HÐZ€&±ž’–±Ê èè°Úk1îÐ ôòðzé F¬uœ"˜Ö˜¤¦å|º?gÏ"@ æÐ]€9tó&Ú{- tæк2vΡè€&¹þ#Á´³­)Š@ —/“ñÑ[@ ±Ñ8N:Øla ;>òÀ‹ªêt@ @ @EE’SÁ´¦|Ž"èåÍÒ#@ ÆÖ\€±5óBúWÄKoº"Ý’·0ЙC4)È%Š`Z§\£†Ù9‡ù®@“)j`Zè50mHF- t'¦µMüGc6: РР²:¦©icMlæN —E4J5RÒEL—YŠ`Xø\ÁÂ@¬rÔ`ݘC7¯C’:sè€&“§¦H#E0ÌÎ9ôˆH„ÞZÔ÷ÕRÓ†ZÚ(‚aÝ2`a ;‰­hë)iù«Ü°€¶@ß-Zçñv5læð¦îkc¬Å¸CÐ#=²V ü°ÿ¯²N ûãqö,Ô`ݘC7o¢½×@ %ÞXþ§3²V ¯8Ü,Áu9t€@®L%æÐWúв~ál@’E}åáÝíǦt‹rýG(‚ig[SAO þTZ¯­ ô·EžþÙïî'ö¯e™·Wž×—£Mëº/“ñÑ[@ ±Ñ8N:Ø\¡@‘Ö‰UÞ¡ŸŸuœâþàáyIésÖ tÇGžxQUŽ@÷ŽKÃ[Î*¾`1±ÏO.S¿â°ãÔÊ%ïúÊè‘O˱éÅÄ~Cú‹&öj–wtŒz*/ÇŽ/üaÅgê› ôÈäÞúxÀ’HrŠ"˜Ö”ÏQ>"Òãl$Ð×ùÈ=+Oû6èÙ,=Ô`lÍ[3/Ô9\‰@—€È…¥ÿRüúÚyß(ýç ºWæ~û J\ž›£¦½>wƒ"öÑ\¾ÞŸ>#ñÁ-zrùÑ5vÄEê(àùOEæÐßrÒùù}u› ôpÆ”úh%=ä8™Ýj Ç ÿóª …µ`¿Å‡/Mž¿«P {»–>t/5ЗS²Ê€mPÊÖ¯³"}MlVxòj7ºÓ"r’@°í:¦u\çOkÏm¬‰ÍÜ5z®_º¼• ôh”j¤¤KÇ…>ëÙáÚs_Z%CÂç etW„é- …šeN¹8ÐÙXƼIZè|: É¤Äu\轺öÜF¤‘;Ñ°J|zåED"ôТ¾¯–"˜6ÔÒF ë– ÝI$h-@“XOIËÇj¨Õ@€Êÿêý5À^mJÆZöïØåÚs;Ä#t½<¼^z¨k×q¡nžCo Lr'š–óYèþxœ=‹5ÔÌ¡?Ë:Ö0ÑÞka 3‡èzªî³:Š²s@4ÉõQr¥Ü{jg[S܉zø2½ÔàM€ã¤ƒÍºã#ϼ¨ªþ@:¸Ð?ÙG@ °V$9¥ãBÝüõ©Mùw"^Ù,=Ô`Ý[3/Ô9la {E¼ô Ð-ó=ÏgtÕ-y 9t@“‚\Rr¥ßú¡kO­S®q'fçz8 Ó[@“)j`Zè50mHF- t'¦µMüGc6: ÐÀž|†€@`¯Ži×¹ÇSçÚskb3w½,¢Qz¨‘’.êæ9ôq™åN4,|®`a ‡V¹j¨™C?ÅÆ2XC‡$- tæÐM&%®ãBì}Ôµç6"܉†Ù9‡‰Ð[@‹ú¾ZŠ`ÚPKE0¬[, t'‘ µMb=%-sý*÷O ÊsŽ•^ÖùçKÔŽH ¨r¯Ìè¸Î=;v¹öÜf^á>4î)+ÝûÔ¸þÁ›:.ôËž®=·Û;܉Æ_Ùú, tüÝý´Ðâ²¼F ›öº\áN4ìV{¯…>(§?n›Ô=L £¨‹VΡè€&×_{OÉ•>îÞS»ùÁUîD½ |™—ùÈЃï455—7Û¸(ÎÇ­ÐõšÊÎU”!Р:<ÿÄ·)tÖzç½÷u\èi­]¼{;‘@/‡ìM: ¨q‡9tó[3ïûúW„­â5ÔÌ¡?æ©#ÐQüSÉ3‡ ª]•—•\éwºöÔîÊ-îDãnãz8œ¡·€·ØÓĸÿN L»!£6>CO_¦µMö_‰±Ê€ªÇØT‰Ïÿ˜€@`¯J²ýÑūܯ^dÇm½,¢,Ïô¸*ÿÖq¡nžCSøµkÚÌÅ‚«ÜV¹j¨™C?ÍÆ2Xà I2‡ ªÝ‘wu\èã_ÿŽ¢ìœC°S ÈÌÍ(‚ñw‡·ye>Ðl|†žxŸÖ4¹~;Ê*wªžùUî»EBë}ÙJWÃâ§é¯ž 3͹­úcç!7µâ¿ìkl×€Çüñ¹™ìÎ>ì`oXcØÈxÙØ@_ÁrŒå¹,6X¶ll«³-Z廧YwÁÝ%â¡ÆÈçè›" è õG6/=}ͲKo#'Ž¬Ûîy…Q„sÊ ðG®ê´› :ÙñWGÉc,a §Þɪ٨ÚlÀò³†—.Ç]‚5)Tƒe%“&î´pp× Üè ËO¤jp×ÖHÖ¤c?øþ§Kwó<ôÿ¬þx.Ä”×xzcˆØšö;½C4÷¤<ЫãñAÕ±Bù`U4Ÿ7Ϧh•ïžfÝ ‡É¡‚®*éô=ñxÜc ô¦÷—¹èo_GÐñ¹¯“Ïß>ƒ~gÕ¥öIûGQ7ø ’ÓwÒó¼–@pà»îú—ÞXÖ¿ }+:þ$¿qý}†óÐ¥ØÇ »ã]x<”F1‰[i]ÂæaüPG¤óº9%ÐãR£³\ü¢ÏY¹}üŽ½ãücZe²OÙ4ZVã…’ŒÔh!I%“ÔT@ÿ­;#`mâP/ºÀ7O€Þ³Ûµ&ÞíÑ)±¥<­€þ„dG+”ƒ&ÑÔ“š=‚‘»TØÁ¾ö¢ Ñß=ͺŽà&È1áP£^°º æ¡S _û:ÚöÌ—¢|ˆˆÐ¿õ)äþÏ×Ð_fônØ@È oÂä)lvlH6 \1˜Õ‘ Яl†‹?¥ÇfTJ[˜Tß颩'5ú&NÑgÎJ*Z继YwÁ{ôÈ€àüúµ[hÛÏ2õ@÷{™™2ÐiG臷\öê{ÉBîmDgD«=Œ¤(?ó¢<|Ïbg®—OÉ£Ò£ð2c!xòK¥w«¤ Š†å®˜Ë +þžBÙ(ºÊÄ/û²Å팫ЗӾ¾CÚgïÈÛí зáà+K%‚i÷™ZEĿϧB I+é˜$¦`#·mn’ÏÇNÐ~‡¼Ç~öl¦ â†É<²ú5>RøÌÊ!ŒOÑ»fk»Ðz‡hæIÍ€> Ïȯ³/©hïžfÝ g´7ôOè<³Õ@_üZ?Î÷Àå)ñ5Ð7¿½uzÁrìYRÓ ñÁÑfÅÐ3z;Éc˜½Ùbv!·G"sŸŸ£R”N¢!:[—Ê`FQ0¤ð›~ºy’…P¸Erç„)¸ŸTî<¯ôAcÄY ûJ÷3JVª÷ÉK)5ÛNœN ГTÒ1I¸Ï>:*nî8/ô!Kè—“œ­Û‹@¹|Ž>%OAÙ6-¡õÑÄ“š™,–Æ[.‚:øa(Z继[w ÁüÏ©¶t—d¹o~ÿƒù)* ÿ˜tÞòÔ̦­]ðà\n2MJŠòòÔìM8ln,"»;(™Ìõ ~дZ„ï‘8%'q|TÇÞe¥6N¢Cj _¿”‡ÇÃõÀö2  “©ôܺ¸eê)NsžG!TÎ8 ôöA“L0í¾ èŽϤ’ŽIR• 4S·ûŸ;›&FnŒa[³ô Ï°œW€ð„vÈTï=©Ð%GãK Eë|÷tën!˜Dfáê<úÙ7Ññ—3mýå箯G¾ùÕ½ÎÒ¬HAQàÍë­=ÈËîâ»Yøû@·@fÌj¢ÓšìÀí=/?l}Õp‰Þ4ùe–uâ”bŠÅ |‹ ±ý9Ì(N¼)-WÓ½ƒŽ›¿­Œ£@—t¾Êd?F íÙŸ2eXTÒaIBYÉŠÓ†z8qríÝÑybInú@~cz=*%¹ñinœÎÕÑØ“Úz‹v Ñö€n]wÁŃ7 š–2óè·:*&½%¹gf.ûé6tk&@cÓgì—å\ά¿Zá`G…˜Ìžr1– } Ÿ¹pPŠ”Ù¾ÌÐK±ÿ› ÛdbÙèFY”@gz ¨·ŒŸIsžßð#¥@¿ °hD~ya$]>™%OºrW0Q_žƒYÿÿúdÿ½ÁÍ@×ÿ}ª{€þˇ÷R¦¹é]ú¢Ö!zR[@ h'®[ˆ¶ô$u7Ìãzä9nóèh5B?çwtIq†@ÏÌ|¡ïXÜó¬5s Êï×QEU [cŠhé:ܧdŽÊmâ'4²»çŒýËl}?Ó!9sˆúx6§­a ûf¹(€>³u7àOã‚2'ÓÖ²¥~Ã\ÐMÖÕ9D#Oj èXÓ\‡]Ñö€n]wÁÔv¢¶€þÙù诜»Žž½6 ezÉb¡¸dŸZD'Õ0L¾4¬á•ÂE4¡‡÷MX—5™c²†+>rÊU7µq™- “ÑX+?Óš' ß'è­è+9`ùcð͹´î£·‡±¥è$ÏšÛë2úÚ ˆû©[µ(¥@¯‹,:$l/I€0Ý]¸ßáX}Vç¡Ãü*n™d7'@ÏUL¥8¤…¢C4ð¤v€^Ž__¶Ý¶h{@·¬»™àÖÑ‘ž §É%›¶ö¦ €>žyn5ú¶1ôñ#ߧ‡ž¶:?Ù<ôQ¬º>YÛ«RTMM*Ñë–ôñËÓŠ ZÈçþm vuF¦t™- 3UÒëº4ÀüôcT0j ‡½RÖ$Þ¼›Æ<ß#N1M-Ðùì¾zòMÏ1ô_”a ¥£K‘j)›g WšÁ6ûå¯è½Yí¡¯˜å¢Àï ïÔܨ9pÇZ¸_‰Ðà“zå{µœiU²»ø‚õ´¨«k(u¬¬Û1ضëpy §S§Ô½Ûgõ„­¾(n ûÓýóÁš€î¶¢ î˜bAõš°‘CT{R@'¹ò^}³…h{@·ª»•`†Ÿ4ÃÚzÓ·»dé×{}/)Ð1öYœyö(²BO–å¾+'K*@#å²¢üÊØ9'ÅÎ ÉÜ«"ór¸ðÔ.³tE³3‹~Qòt³”SÛYi! Ëvœtq6Y‰[à¥!ÐKqcÈ҅íS6rëæƒ5-ÝÅ@¯Pä·iòГ8Ęv)W “nN‡!TÍDÛúÿÙ;÷Ø(Ž;ŽŸ©[Ïh{>ßùŒƒƒ‘˜‡ƒ †b\°ÄƵ›`0PÒ@˜G)¡-Ф($Mxij´ˆ’DLiÔB” ¤H-5®*S¥Å ¡÷H½»ÝÛ;ï®Ïp{»·óýH–ïæönÞ¿ïÌîüfôÒ®q’Ü“Ë-'5QŽO/;õüÐ÷m ”.`Ûs\ÐÇ+öœö?úö†TŽb1âg¬ ö¡ÌU1A¿¦+èIò$gŸš g(Ü/°°|¯XFÐWT$©•?A¯`…?I1 ÿ®ìÉé÷õÔ%Bk²´ måPЕ7.Ïž3äµÍòûÞ1Ò’ªz8âÀåIý‹::A×K»JÄÃC·€ A‹ÞòŒ­m_%>%'/¡‚ú9‘Í–»‚Žä½•Ù*~·?$º¯E7C÷ȧÆ4(6ítѽæÙÀËnÅê#ºYZ™C„ãò]›a&ƒ9‚.î™ødاG¹!g7„\8cN7ý&v?¶Ñí³lûî}z³Ó*ÿ:ý$±„íŒÜ=UÍ êXRUAGB›‡Fu”‚®“v•ˆ†6ˆ;%Èê z×¥+6ôê¢"Uî$° ^6›Î+¨™l¢á¿S8˜ ©<¥êÊ\%ëw^ðˆ¾¨¾æHêìì\Ü— eãKQ²w±XÓt1å‚¿ÆK‹Yæ@ÎÍô Ö´ÄjÈçCL,S=i”b‡JGÈpù7§m#¤Ø°­ób{º…iÓØŽÄ Äç<ô½L¢÷$:›t§µ©³³Mà êXR5Aßë n 6Uþ¼ZÔ½m·¦×M»ZÄ{Xvük› ¦&E#è=t‡ ]×ý+Ë0G¿Ä¿WQPÅÅëéÃç别%ZêÊœï?Š¥¼¦Á-ùFõ5Ç^"[¯-èâ_øp^9kgø*}¢¸\ß]¶ëÃP„t3ýyfQÒNφXff1˜"èâcTŽŒÿþÕ4qñÇžªÂC¬·¤.6,¿wé=>ÚwvÙ£–M[|Ýo¯] µ^sÉÌ IDATHÈ ’QP1ˆ:–TMÐÅíäœ!ŠÃ~^-êÞ¶[ÓÀë¦]-âgÄó<ÓFŒð‰ŸIÇò~èP¯·SÜ®Hí|eAíõÊ.mA§@ež(oè(4õãkQ ºc©äZç¬ph ºcH¼‘É\ˆ¹ù‚î"-^ô5›Z ¦úžð•‰Û`Ÿ]“Þç¼f\~»n~¶o6=w.ǧqK«ÒÇgGºšAÔ¶¤j‚îoÃéá?¯uÿ];íª—Kï³dg¶¾ý°Ÿ¡oÑ9ªÁ¥ðîPKÄ2 /¨¹ƒ\q<¾Ñ¡©ÌÇæöcάšÁýùZt‚î88lº@„¬K:‚îpŒé#ôu^€=±‚ ;’&Ô¦y¦Øi²–)‚îVtV%Mé®â­Ùh & žÊŒ^NhIRHqU ¢¦%Ut¢/轣k¦]5b‡cœ—M7=^ÅXD_ÐoÜi±£ §Xº=n þ Þôqº5 <—«Ü­-è¤ Ð>Ž8Ë º¡‚n5^\èKÄ’Ë]|äs¢nÙ´u]N°Â4HÐ5ð\ zæÇÖmE¥Nÿ.ï€XqãËë|dt´…ÝÖîÝ… nàûô˹6ô‘ëîYxÉÚ1@ áÆ}4÷~è±ôòšš­‰cà—ÕÔÔ8uýÖêí¼ù¡ è‰É3Î4z (N\µ>o–Àsç‡A€'nüësNrjaç¿›_v'VYBÐDÐs½[#7 ¿£€Ãqõ'OÛqQ\.š¾ÆTp[lƒ9µ(AØ–?ÿ‚ŒZùøÔK÷o %BРý&jn¸ ?tóI8·5òÕý·m(è™zǧl7~胉‚´ï’гðC$4Ýô]Nr:ëG–MÚ}z -ÑtA·£zuIIên¸Õ20›¯>A˜M=gÇgèû¯¢jðDÝ?b•;ðÀm „¡­(AØ—N²²ð*÷îKØq‚n-Xž?tÓoøȨ•ýЯS˜]³éºtÅŽ«Ü‹Š°Ênàƽ Ëzèø¡š»ôÍ.{‚4±§z=vŠ€#ºn~B0}vxÓ(óý°Ÿ¡oùU €'nÜiÁ*w á9cO·µd°u«P@›\{ :€#VTó‘Ï:!ݲi{nÚa‚buAÏÌDÀ ¼ÃGF—Á²i›_ô>Z¢Ùœ~ )ºÅ}äºu#QµðÂoè÷!èfóSú Z¢Éüeõv ú JO n€ ÛŒJ§‚4™mK?t:“׿mCAϤ4u ÝfÌ!:ÐäzÖ†‚?txâ }“œþ`±e“¶žþ-Ñdìé‡^]RRº€~¿e`6“ÿŠ20›7é9 zÊþý¨Z<1ò•…vt@ÐÀŠ.B:À¾¬ù;ùœHœ–MÛùÙØÌ‚n--¨#¸aÝÀGF­ì‡þý/Z¢ÉTÿùŠ ½º¨«ÜànüÐcc ÃºÃ†‚?txâ}ºŽŒ6ÎhÙ´ý‘>–h2öôC¯§´u /|ïwßB!˜Í›óW Læz8=sÃTY«ÿý·©E¿ZÿýÏ·lÑût 'ÕJ#ðª48;–j|Ü_AyŽJ‚þÑ{”®.¡”~ˆ)¸…½r@0MUjŸN)%ºae|}QtURô×’ÃÇ!i$ÔÊ5¯2˜¥‡¼©YeI†E°¤É›šVV8MÙ ËÒÝ“†èÅ“£[Çg¹Šg´®Ríîp» (˜ˆ¨~ѯ—槑#Ð!`„U’yžô’W[¤*è•^ézç)—ÒԩĨÏN!xñðä(=25} úWA¯ßD%AÏ=I§ÎÎL™ÜNéK'è.Öi¨L±…ò±n–À_¨è¹S¬MÁ¦WÆCÐÅ&$wƱäÊÆŠãŠò°Ë®‘P+×¾ÊPêæÛ¾{™1¼ÜŒÀõª|hñô@P¡GÞj’L€ïT0híãÒÀuV®¡Qézr  ÇÆô¾…2·J!ZEë(‘Ý—-b‚^–—÷lXØmQå³fÎóŠº;A5n¥©S‰QŸ¹b7œ9B4µYR’hÄ’ÕRóX^^ž3ÑýüI* ú”N‡k§«?zA·¨3'3‰Â”””oûñö¾ÍÄt^8R*6Ó¶ñ¬†GùC+\iÜ-±õ†ºÎö&o­Ø°\á÷š‰¢•k^e¬¡ë`½àq›Ù?a©!eñ"!žã*ÄqÃ#Á°ãll5~s¡T¨Ggˆ¦bóÎ_3“áZH7›ÍŒ¡` û±¡Q5w„H%¤A1|˜E ôœ¸µÔ é–MÛsqz„a•B0Ës¨Wˆ¦-bj9:ò†1ëá×ñl6pVªDfêTbÔå 냵â8·ýH³ÖUl”à,ÕLMjb zu{ºCô—$wÓó”®ÑùVffb ú.fÅÿO1©VϤMz³[¯EÄŠå[üR×ù(μ\Š0tO·Ò¥håšWËB†‹M¾‘ÞG­5 V'ÅKå.uÛË´=9TªOØ Í/®g˜©õr°µ ³þ!ÖfGL›ŒJT!þÏÞõ?Uq]ñè {vÖ}÷xD~E@ÑF´ËÀK< Vœ$ Qc¡NŸÆfŠf:±BµAÑ1S(cMa:C­Q&µÍ$-3mgâ¤3ÌÈ/ý¡_~ã&BïÝ{w÷îîÙ}däüï¾ûî9{¿œÏ9çž{wµ å/˜«‚>ú¯þlz:ŸCí›ÿH›V(bŸàžºôŒ°a¬w‘){ÝÉ¢êŽÞ4h„øW¸†ÇUÀ¥Ièg…K ÿG–¿óÓßè€~á_<Ûí²üªû6Ÿ;·yAz @£ææa€Nœ¾JËt,ñW˜Ì‹d9(õæÒ© .ê þ¥è€F‰jLP×Z¾R/@”­×“„iéÜ3(| Àß\Ù£ûÇ&YQÀU·¢RaÄxö8º÷@£=¬h 4‡¦ÂJй t˜/å@¶¿€>ƒsè‡Ô]OÁȺ©ð‹+P°è=%çÐZI ‚z+,žºô-‚Þ%îñ#' ‹ªC8zY­|Í°îÇ+år¯ÎEo@ÿË‘Þ€þÅçÿ•$Ð ú®,opÿQ‚sè.€~·$¤€Z~E×yI§³I ½=9#¿Hµì€4Äçµæ0±mìXmA”p$ßT›#7h–bYƒ^‚€45”EÚŠ´:EÈP÷î 'Ç—Í}æ§!>­8óvl0[QT¬"m8gÔõÙ0Qí´‹nÔ·o3—΀jýËM‚„µDY2f¹[-‰Lø^ÝuÜÝ×=÷ Þ4wAªô °b~Ú`"ê}—¢Ò¸Ðßă"F‰Ü'yQÀ Y™4 îM^‡à±´ô;“€¾z–À\§æ>Û€îÐJ&Ýȳ–xê"Ðó…­Î$ަꎞ4@L‘¸i_¼èö€á:i¼}aœCwúæwäo¿5Ç€>i$½€Þ¤ì œÅ¿¬öô<£ ®ÔïG’RЧ³õ¶œSRÕ¼  O&'³ÇÌ3ꩳúGÎêÈ”žÚÙêölNQ±™¥œKÂÒ©بy ˆÁñM¬˜9Ë]jùK]¿óï&úGt0\°M-òà¼ì sR‘¢TR7À/…˜Å$sRòõ¢W|deÐq€ÇB ~„,¡ýá¯ÞK¶êÕ èR,mñ\úóë7Sè6­dRum[D«Ÿ¯‘’ÐEØzæêL+Ô™ÇdSuGOÚ!Ø»\|µª™¢ƒJ³(ýo²|Á+øñÇ…3ôjjù•LV’þTzyÏ´ eJ£\Þ×L>‡Ý=—´½ØGµ@ w’FÐVº9 CYÑ2Úò‹˜ëÚ‚‚"ä»h?Åa€$#]”C}D¬¿åQÊ[]áòlQªøͶ³ú#p ºFŠe²F²:RËg¨MÙt¼Æ‡§CÀ±ã +‘¢”ÒŠÏ– l™ùF(ˆX"{}d¥ÓX®±;Aé…åИá3 KÉ¿dz:S*ÞÍâÐJ& Tr§&gb]„º@EÎkWuGO6MÀêcQo@¿µý{ п”å×<PX(ÍпO†»Gs»â¼ç ´ãnE‹ºQéàÇû\¨µ€–p>¬òMÖ}¤QÍÚªÊÓã(ôDZö0õ‘ëÑð{Ù©CôÄ„v.«¨¥4tâ¿Óœ-íó!–ÞO¸Šh,ŠxÑ|Ñ–Z#z ®,投`• {F#duJ5islm С€ïy;¡.òtœ­qL«ªC8zÒQ#EO3ýƒH•qüIJ M‚¤¸ÙUó è…Ä?ï[OÑœí:½ FœâƒüëzžSϲ0c¿ÛÐ7´ñNÿZGT–y›ºÊ~WE¾w¸=ÚÙÞ\—ƒhûø çòõ# «Ú¨dШÛÒ¿ÁRìgsˆšÔÒ9 ó` f¡f± s–£µü¦3Ãí¹¬{Š~쟑ƒÕÆþÉ:#ÝLÛ‹âEóD5 „© ½U01ÚHïLøÇJWP¦-«­[Zô%@÷ЩSSÐÚYwŠâl},‘.òô³DiÞ°•9TÂÑ“ª9ðh–ÈU¢Gv•&°à/–±úªdùßOƒçö›âh÷œ ù€‘ž+f%BvÂ2w@4ëÚ5/q`¹ð)ÐgŽŒÝ;Îâ7J»‹äÝeºÐáÆN; óv#åì¿]l Ïæ5©¥3Ež¹Œ]IxžÊ°ŒY*áNË,ÇjùNÄ:„@ãóÅ éhÿ.i»¢Y ;iq@ÿ¢“-D¤h~(ó?u>LìÃ.!ÄsÏ?Vœ6 qNIÚÔlÇôôIÈ[9{²ªŽÙ·sq–€>i\‚sÐW€‘ÖAì{mJzê"/@¯Ë#jÄæŠ8UÂÑ“* ?J’úÑÝÈ:;g‘f±úïÈò‡O×è}õ¯÷“®Î`=ÇÏ9<’v‹\½”êúZÁ¹Žã×ů ™Þ2™PmVÁòiä&ŸŒið,±ÊF¦Ù;kõMõ´ йkXl< ÏëDžÍ!jrK‡Ê—ÝÓ9ÖEaön”Gt³©å;­'}-4©üM²j"¾…ùYvaèZŒ£{“þÅ}f¼!EóB÷öTjØ#³ðILŒùÇŠÎØi|º…Șÿ€þÊ_&[µ Ò„fõ éüúÔW?}8¯ú‘&]µJ9<ýÜKyz'APuÔVˆ¨:„£íIP˜õ ¤Yd€~óœü£ ðÉ' ÝÞ—¶Å¶ŒõÜ ± ŸyŸ{RË-ÏÛs8Ã(7´;mí0^ýt¹øµÄ\iØ}OÓ»ËãÒ׈míníØcV@?am¸qµ€=›]Ô$—N±ÑȺ°¶#µI? /Ìrg-ÿ‰ÞZÆó²êʆÒÜÑtfüëMAÞà VôÎÅ‹æƒÆˆ/žË¯œï&]SÒ>65}òÖ^ò‘•n65?í•fŒø è38¶VêòÙ“u);¼YzÇÒûÐ]] zŸ[f]äèãtsÄVˆª:„£çÔƒóúÿxÈ=€¤CÛ¤ñô—ÞýÂô¯ÎÉ—7$¬¿J–WÍ Ð³l 7ÌzŽÇnÃÂn÷zw@¿§ÏuŸ¶÷Nÿ¨ÈaÞÐY¢iažÂ1Dß½Bà]‹ç«ü¾_ЇY3dtìÙì¢&»tZØ»‚§$…öáNB÷œ³ÜV+t‡p{ÎD”õ¾2ë³+ûjñõÚ´¹?WMFÃXõµúÀK# LøÉŠÇͤz”+}}aï¡ð3èúûL`mÒ€]ºë"ÐÍo!º5l?6ì¢êŽîÒ7 Ù¢XNt/€b¡Ù¥ñô ò§ Ð_ù­|ùw‰ëÏüz=Á¾õ­µôœ*=8p·9z*[ wˆ:Á_…} ©î%`ëJ¬ÿ¬uì5gÐô@ÇžÍ.jÒ¶ðþ†½Ñ£3hÄ(¤ `ƒ8>eh­P‹ð²ƒÏ|Ò|ãˆ÷A!‚V‰¥žÆ "ÂùÆ&æWF×Û®È_VÚÞ`–±W´94ÇSè_É6]jjO[@Wþ_º:ýÍH]äèëè¦Ú´½A7U‡pt•~HÈ@F­]tFeÒ,ªsè?—å7pòx9ËËÛ·¿<3@/GÎ ›=nØÚfú2³¢ ½u[‹ižy0¦am›ØÚao@`QŒÝVlU¾OÀª‰Êp'ôr·óЂ¨3nmÕÒênØœ­•:#¤+œôý…¸wÙblâcÃìD R”r*%S¢Ù²B»¿ýZG!ÝØë3+:äæØï›fFôxíž=}{è_ß|F=饿úÓnÒ€>5&ŽSU]äèôŠEÎÄ\ÕyrtHßdä+kËNs?d^*cj}›4Þ€þ{ù Ðߺ,›ôOܺ%Í Ð÷Š‡ì=W ¨érèA³_»/]˼g1).“õô3—¾NK|³æÀå÷€rXd91 cÏf5I@?'Ìï!·Yn¯•:$„Ùã>í]O½ßÉ&Ð]éqv: )J5µªÄÆsÙGÝ®›œCVÍâ¥2gló#®-]ôE@ _ULÿ·—'6{é"|fãT#y?˜ªC9zÐ~x*Õø¶#i‘ÆÐ7ÿìè’“toB}“ð.žC Ô[{®à1ÿò¾ÂÝôÚ;xp¼:[уEZZ|‹æœÏïðtR]Õ‡“^ £ZO©÷ƒe LÙ!÷Ä€Ž<›CÔ¤–΀ ú»ëìoå57–¼jùé3æ÷€þrƒ9¥¦Gá­úÿÓ šºT3ˆÒÀ¢1HQŠ©‚L“|ËFùD—€¯m¾²"CNæùÔ /zêý ™z:¤>(H¤‹P@¿ ÿgïlc£8Î8n¨awµÙ;ßù¨_ÀØ>GW¶ÁÔÄ@¹X€+»6‡m0Û áÍE !¥6D*À¯B-©‰‚pU‘ S‚Ú5QRJ„S‰|H!áE(&é—Šª3w»w·w{{g¸½ÝÛýÿ¾Ø7^ÏÎÌÎ>ÿ™¹yž‰ð;yðĽ£:9,»Tœu8cãÖÐÙUnÂÒ˜a—{ŠQôSB(¬W{ƒøEF¸å¨ó¹8íðK~èžÐ—(èžðÆàþv¢,¬(Çí¢Ÿ¸Š ÓЮâþàuŽ@ì!¹_™+ÒÕ1{¯(ÿ‰]¡n1EMîÕq†šÁè8b§ˆÊUšÑî osèH0Dy0–F æ‰ÏÞZeû‡KüF!)­Ì!…9‘ #=‚My'_:öA›[Qúâh?ô=Rt ]ýbœ°$¨XÌEA_dž–ÄŽò¢‹™š-Rtb;”Mcê”î¨ÊŽÐ¿ö*}…îúJL±4ôdÆNc·Óµúi7ZD˵°¬s¹8‹ žxê7VOcÇþ®^wDm£¨“ļÒ¡Y (š  l'£·ÍD‚©cZ®lkÆTšÔ0ÎÛ69¤ùzbAW¨[lQ×öööŽIôêµÊ½GåóòÿoÅt•«´c30ãýž*Ñä ò‘öÃak¾8ОR©Å’K‚BR:¡¡|£N„q±ü½Ð`‡¦· .mÖCÐ×|œôدc¤ŒÐŠ{3¦õägÂÙù•éº•LЧõöö—Ó½ÄsÛç”Ô[Í):û´DßKÊ^ÁÔ)Ü1®! äOŒÈ,j‰·„OΊÈ>_>Q,5½«k¨‚ðÖ¶Ï}¥@Eÿ‰h¹‘T?«ú½Ž Gc`tF7;äÔVñ,ï ªd6ÝL\8×í¥¤Ž Aà ¶4ºèµÁ‘µš ×Óì…-‚}º›~ì=NÜ_!x™$=¶n±E=E~Ù•èÕ¡ë ü¨FzFMô9ç‘g Æ¿J;Ž“)úêc}|w„³gŠ‡ 9 ²Ï“aÑÜÀJó­"_ô·­6ÉgE!)Ü*‰ÙUCƽt^ž=·"MoEpÇqîÕXÐ÷s­155²úyîs]]š'×Sk–Óï§[Š«Ú"A§SÁ¢J–½‚©S¸c\C€†±{ýùlx½/"{§|ˆ¬Xš‚ÞüÞ% zsuõw¹“‘U8ÁÄØ–Û'7º»JZFïäµ£QœÒ·æ‡vLLÇX¡Ðý¢'¡š 3«<Òå®{oQÑßw…Wûqõ=A­[LQ“tfºMºû–¸ëPjWiÈ1rÓá=zrX¶F“àt¯Ñõ–+»Æ¾I†EU¢0Ž&†¢ b‹›­’Ò]£+q… lFÐV{[Fº¢°BÛ[1 Šctô!ø¡g6GX&® 3Ãj$«Vµ.±-Rt‡ü•ÜD‚®pGuAg*¤Mï¾öAÏfåZ­Xš‚¾†ÛiBA óЙn¯ƒL· û¿RZÛhoÊX¡dq„ Úíày[ÿ>¦1´Ë}—‹˜s¡Ð>xçÉ:OfÝ«o1I:)Ú€“åmuÁÙ|¯3fYnœ?Ÿ ãx›k™$ZÉzlÝbŠšœ 3/îÈ!ù4<5Vm!îUšš:i´ã+Òæ§6H¯Vg¨ÿ¯h“Š³U’ÒÆ,¹ ®á «?z¶j}+¦Ô'֯Ƃþ!·Þ‚Þ>ëû†-ÛŸ¸Ÿè+è 3g€X5ûÀ”$,–’ ³CôØ;&tæùKìt=¡Pú,òkv¢Ò˜Â}¨´q\›Vy7Dû¨iȈt6Ú†$6ušÏ6Ö8sü‹µ‹5{´÷¢Íqñ‘H]¬ë+´»LWOJE•];› s:WžÒþV/ãVªƒ ÿè·ßc€Î¼ýô ™TÜç¡Õ&ŠwØ„‚ÎlÛ–Òìú¶WH[¨G,{Ë”¯cmú¿òs ºÆ†T]нÚeFAO1+Ë,=Jîf`2oÃ;€ ÙÂm-Õ y€ÏKçÎít²J`§àÀè¶è´‘]sC AO-Ô-¡Î¿—z)Œ2gýÏâË ÍÖ¨g+Ÿkزý4£¾B§‚îs»S¥!çv»+ z^^jók÷…vÿ´¬e†bÑ3ç­QQ#û¡?]ýa† ºA¢'MSPƒÔýd© ½rýúTÇ,êó9xVÈmé†ñÀhXƽ~ètAÿËK¯›PÐø¡ è™H½`\Ê0A7%æôC‡ `%Nþîשi»q‹öçgö£'BÐ5 ôÈ‘R<[,C%š0&=eBAgJ¡ç0¨Ê|A È-— èÓÒ¶óïÖ¨¨‘Oú$z"] NœÀ3À2ÀÝÀmMù] zÇåáÙA7 Y'ÄåWÜi :üа—¸¿Y¤¦³—¶h/sÿBOÔsú¡7OšÔŒg €eøý~´Þ<þW´Þ¼Í1¡ 3àÑ°•¿YdFAŒHÅb´€ ÌËš­QÏ©¬`ز`îtMèêÂ3À2ìç6Z£¢FöC?Ï}Žž¨3Íï]2¡ 7WWc—;–Á2~èGX¨°†ÛiBAÿÇ ŽX„ÿrw­QÑzßAÖíçÜ—è‰:ó?Sú¡·qÜY‹0xã;4‚Þ\¿ýAg.p‡M(è̶ãÑ°×nw™QÐ×°eÄWètmÈÞ8¬Ãµo>³FEdz¼aËv»úz¢î#ÛR zåú»­x´X…Ëܧt½ù'÷ z¢ÎÜ|éusú¡cõºÙX"ä@ÐA\.˜Ò‚€•¸öéשi‘q‹v㛫è‰t (=ò–Ü°xßñ@VÖåŸ=eÆMq¥èZ¬5¦‚Û` èl*iA#:À´|ñµENoè3°ÛÚ…û×Ð!èZpâž,–áüÐõnkúóíýwM(èy8> a?ôѬAñWI¸ÓðCd4W¹,RÓyK [´ûÜMôDÝÝŒ~èÍ“& âÙ`n"¦‰î|û%Ú@o®sgÌøúËx´¬Dë'‹°ËÈx÷Óc IDATà¶BñJ´€ ÌËu‹|ÉvÌÀ»Ü¯^@Ämº&ta{Öá*÷kTÔÈ~èŸq0»z3xá’w¹WWc—;–Á2~è},T¸ÎíÌAÏÛ8#Σú¡oÊ€0w¸»Ö¨h‘ïQ:ˆK†ø¡Wžáf(P¤M=RÜ6¡°|EêÛu˜» ðÓÁ²Iä.°ìäds|˜|Ê ÙHs0墓emselªr²¼Í‘Ö]nãYûÀÃ÷åñKì µÅ¿ÐîËw:=[~¬šttâ¨\{Í•'Štl‹V/;Aí³fíñ~qm®Íµ`käUo¸lŽÚ¦1ZÖwðÆw0æºÏo§meÉBŒ­ˆùšõ¤Ì&†›†œ@Úðè,VŽ²ó¬seªRþ±æQ­4J¨™S…¿-- ¥ñì Îæzƒõ­&è‡3@ÐÛ^åÂ.û‡mªG5Èr%å–ÎÆ–¤VÐC9>L>~6¢ãrIÕï/“ÒŽJi ¤¤Í¼˜â+3´59÷¦XNçL¶æÚ 5Îð_ÆOÊš)™ßýZc,+ðèϵGÖR±ñMÒCö†x‘½[¦@ŠY²Kj¤Ù"«·Ø¡ úÂéb¾"&ó¨REÔÌ©Âß:¥:Æ%'è×nw_ÐÏþ‘ k¸ìÃír'‚Î{‚äò±Ï'%ö4Å‚Êñ!òy„èxEùÔÈÖ–{ÈiîßMf쬫s/ýÑLzŒ^µwíÉåF~ÃËH×wºg6yIA‹µYì¤/Wyϲ¶pŽ—”UA_ÈžeÛIºîéÕ¼\À£?kÔY}¤Ö£zVG<„²FÚ¥ö»É_&Bˆ@JY²p¤íéôE«]ÄÖÛ%&G zßß#KÛD³ÈõyK¨,Œž@ÇšG•Ò(¢fNþÖO¥¼ÎKÇ)N:=xÎï÷ ª‚ž»Ü›OTs3vŠ.ûð‚žîŤ…ø%æô2Ú;ÂZÿ0ÚI¦–ˆ»ƒv–M,+œ£)ûH–åtíx5¹¼ÃÀ¯ø<–Í樂\¥Véõ¢êD¹Þ½FêÌΟÝ]¯ïXÛØ|/Ø3ffwvöûÍ÷Í73!ë.³r€³Ùi‹Ávœvüî[{âäغ¸¸Ïú­›£íqùEßYv_|X4—U¤µúª¬&¹šsb-bw¿5m uWãmÈÞÑ,T°«G·«‘‰›:•ä50[séèNú»àAú?Žýѯ~Knú²/@GÚ5Û“¼zU%ˆo A'ÈÇ;¨{&ug1!î’jˆšXï”_DÄÌÝw|á‚žZqà©5Äy €ò$üœèèèoº Ëø]ýIŸvúî[{(§¶HRà<³x¨ë²+Íßnúc×e-;}c-øÝlWËrö ?Í̺E“œGÔ»G>p¯cµ³"z­Æ]KÉ• õèr5RqS§’¼>~È^QóèþÓ?a 7}q Šÿ<  ã‘Wgž}o\/†(ÎÂæÑ€ó&þÛ ÐM“ž#gèõ·P­ _ËY]Re4Ï}&f¶ãtGž¤ìZµ]Oæ[b>V©ç·~÷±=”ÞÛ窉}3gÁO®ûuׯ¿þ»[v.w]¯R¤»ysyú~ø¥ÿ•Ø4™h˜…éÇ!®ázç½½1[0ÖËM™õèr5RqS§’q –­™žè?øåÓ:20âôãä»A´æbnJD{qÜd8¾b Jqà!ÿM)•ùˆZu kéRA€xrN…0Í#e¾ © †^>t±¹¡DA¼”cÜ2”NŸ2:Þ@+˼I nt#f¹zkÀh¥'9«KæÖ&¯û ôQ€“ìó±D%IÊ; tˆ¯A0 q„Cxã8¸õ»í1«BdŽ&£Y5+‚Â}à×]§X‡0sà^¢·dc¡¯C·i2.±Þ›V ÏZT}  ¯fS·ÅÃ&QnW#7u*ËC@¯¡^6TOÔ Ðßüì×yôëЭ@/cp›­`A…!Š‡®2žÂ,í-ž2Æ>SJÓZí@O°¼¦ØB<ì2þÂÄ–J¤@÷RŽqËêR@:^+À’À€RbguØý%B«UÅwϧ¹ëùõuöñÀªCj±òv5Y¸ý!(i™SD ›¿ûØw–…>õ€hH>E#­Gù tþúô)­¤ÐnÑd2©g>×þÐ2°ÝúÞ5/@WöùïžfsCu|»«ñ¤Ney}Hÿ·³ªS¼ý œ‡î'г˜\â8<Ç‹.S?hÛËõ8%D\7ø7–+p(Ýz1ûܶ¾f¬6q¬u¤·wT:úa¤Bš$±ô×ÐG­| iG* ÈAl­D(‘‹—r¸t÷á 3П±L:Aó  X©šªj°‰³*ôºt€ç“!®û\Çy{,KGïÛËþÝäóô veáþÇb=¤OŸ–÷±=Fp¢²Iú¤t?ƒ ^ÿí«ÂºÍÝW3p(½M“I¤=ŠMæÚ¬’gó²ÝЩ¤a L$êÑÛÕâ¦NeyU;gŸ_B¦ºÖXÀ@?ñ»<»Üg–Q«ugz.êÝ–@vyxŠØAýámj4Ôjýæ³æÉ¿a ¼ ÷Ÿ®›‚çÐ!ˆc‡Æ‹Ø Ôíéã,•XR‰}ÝC9V:Þ²±X a@@ŸJ_`K!µÓl`8Á~uG˜_ÊQ隌¡JhÚçjT²ˆDš4Íü&ê«õ쵄à¾Ýü‡ÑO1!BYK0ç×5 *ô\–Ìm4àŒÐÆÅ­ ±jr[X…¬Jèhtj’¨ÇÔWcs8ªSiÞq~ñu›Š' òóŸä!Ðœt÷Ú€Z¦KiHßDÓMí àQã!â/]¸Å0Ø J+Bç±ÞÆœŠDsˆ@WÉvU4¯ ¥PMŸDÝãªIJJl@÷PŽÛkЂþ}רÆõ€ÐWèÓ¹¸>G0Díxî6¾ 9|БøÂ+Ÿû\Ë^¹mIµ˜´ñŠ¼‚%ßd¯%2 t~ó+<~@ïžuÄP/J* ’Ùi€±c> W»~VÉ} gNœªÏšj,²«²xKÛÔ&{$êèëaÁâÑE¢Óº›:•çM×Që ï±7 ”ÓÖÒzÊek&iÖiˆ”¹Kð,‰€Xå‘ŽSÓz‹>DO”ý&FW \o4ö¨è,¯Œ„ mÔ´n)FÒ´IJJl@÷PŽÛk0:l3™DXÒU‘ì*ÁÃ<;~AÞŽ[ìŸ× ‡ãq¸Û©\ñÕ-™D­X‘tLš]ŒÀDwl=“Šìm—A 7_ `©SäeŠ"5ø,ʆ{Ùz>ÈùC§F(Ùÿ êuÝ6º3ÐñzíÔj'í¸`çr}„›íé|—j9ôMrŒ@ûº1Š±}Ò/3Œ‰§Mq}²µ_bY%r »—ãþtðò‡õ9ôJ0¦kˆc`ø`¹ÜÉTØhóý—[Ù–tÒ¤ÚNŽ£‡6,ä=ÐÅ›ï5»Ü›Y"ÝcºT¿æÐ?ÿê…árÏåãSÿòöuöÎüš¦ÍY±\²:ˆœ>ƒ´¿fÕ!õ˜.ÐÝÔ©$/ä!¥{A~âHAý÷_x:Ö¿Héò¨FcPvŽØÓ/ö´Së4Ù$›ŠióЯY~ûTØ(@bY% §,'Åkp‹Dx„n(ªÞâB¬`#éRM|ë¯ǧK¶|ó FŠ¯9'¡Fâ›’]ß÷ýŠr覛ï6ÅÑ)Èq‚n_U"þí5øe¡,[+ÄuèìÌA¹¥Bh§}EE€‡¾[€n+¾_caUŠÙ̲ªGOW#ï¦N%y1á蘛|¼;пyûAý{)Oe&Z|„ðÈOÂbÄA>SÃê'ÉÛwiKè#ä kEM7Êä –UbzêrRkÛÏ<Ú®ÕbO)qúð*æ‰vÚ¶ŸYfösZü»Ðiô<;w]’Ð{ÇvùQ~ÆIsYjƒ Ý|ó a™M€&政¼xñÊAì…?\‡þ]^•Ãn²zB2?¨Z)½ÔÀç“nI;tWs60ëÉRkdè–›G#©»ìó}G}dw¼ã×ý~vô£Âº22³¯àÛ£o² ô@RpZ“‡1ÿX|J÷=Ã\9n/\¢Óº›:•ä•‹›É¡bÚ==סÿøý÷?õt¼æ›F²W q†{(Õ´ŒO"Ü?C×·z=þíÑ$Å[@,«Ätå¸=°+Œ=wH— >%ìáiØXaÉ-I”‡¹·wƯ LºQ8;çšTlì÷¬D5gëðŒÝzó=š¡“xÄûW²gÄÁÎ~˛ϲôŒHî¯Cÿæß«J†Ð“a#–x”÷¼j˜½c4¼Øt³àC;r£ßª½ú ¸KÔEJò*„¥éhµ€þ¯£<@OS~ó‰âèz°ÃC:ã X!³eêšñ³E]1jLC€qúCg —ÑŒ÷Ù9yË*yhº‡rÜ^ƒ.Mw³cWI™× ¯Äÿð—°§sf²$CÂ|uLX$°Ÿ²€4ÂBŠ$”pAÐ ²Õ™º½=¸ 4WMb9g+µaš™,‚ð‡YjŽü9œåPzQ lÑåhX®5:g\I ôpÚ±Y¦Óº«:µç½8¦¯SÎòןæ#ÐÓ9>:ÂËinê™ ‘õã•ÆÓ-ÕY­¥ëF¢zÞ”è-¬óØ1Š,j³X@,«¤ÅÚ=”ãú„ùé—Ãl¬ð Bºë¼Æ);9½óë^ˆßÎn‘eÛ‡}¼YàPª¤u•_GtXˆËC KÚ#Á×Jß`=¸Ô îã:™­æÈŸãSÅ¡ëÆqÏU²Ñöºó¼© »;½…ïÐm‰zLènêԞ׈.æÊÿÙ;÷ਪ;Žo0%çÌíîf³ò€@ B0 `c„„ Ò&© /JyPŠˆ€¥–g¡<¥¦ q¬2Z‰µN§::Ì´6¦À-ÈkÁjý§C§çÜÝ{÷uîn{³wïù~þÙݳ»ç}ßsî=¿s£ ¾ÚÖ«ÜMtõ õÖÆT6åPo˜ögj™Uá7B£\8n”ïÂRÏïÈ,à[2ô'د¿ z>¨ª{Œ¯°÷߈bA"zŒ1âIkoo_ï2x€ ù¸©-à»±ø]ñŸeÿ/å;Þ>›¯9dº -p{uŒ…¯ð„Ôª5}¦žMX‹–V<Ù8H½U'ÆI¬Ë%«:ÌtQáÓøy¼îg¸´Ŭß4ñ’ƒùc€ô¸e—£"$tz{{k@qµ—ó_ü;fÐ øü¬È‘HÐùT*ê¨F-zyäÆÐø™S-zÁwìrRÔk¬¢œ™ÿ™ôÎ :?®^5?øzvïðÙêI*êu3X=®¥ª¾É£;6ªç´T©ç¦fAçž©NOžHÐù^5Î’éëƪ›ÎúÏ»šYG'¢Ç¨#žƒìó–x—¿ ¡|:»Š»¾­Þ×!Jö¾l~ìK Óìå9ijàÎUV¾ÂßeóaeßÂ…“Y”W˜»—ꋃ“øðêÀ”ÇYÏq-JžÙ7]ÐE…w´²ÞÔ¶ºº^ÑO¼û)3JÞã#¾Ç—Xjb¯|&‡’½jÝUîÓ.žïµ%#a‚®MÃð£13KJøCT§ÿÚ[À wmCòTÄt>“r)‹^d£sch|Ì©}ôwãù®ôžÊ}Ÿê‚$« Ï¹ÚAWm“êðwЧoäpCŸ©…(;1iÁ YŽ;Œ/°SŸèÜÖ¾«ÿ¿jWà‰k” G'¢Ç¨cO§ݱĥ¹ØWk©•_×¢AÚ*ͱ–¶twiÕQbÊ­Éá{4‰ƒŽ;ŸkŸ ·'qgº  ïXðñ$ûµG—ò!¹3L,ïEú­‚ne?ôK´×VÅ ]ÈúÉ×AªoðyV’@Ð=áÚ½Èf%³|Õ!?ÝƃܾQqÄt‘y좠G›Óè¦ö¾6.H¹íÁã­rßcCAã‡nvYúy7 æ½-GA *‡X6o½(è‰ ÎyèV5¾öðCï±wŠ³?Ùá›`o:®ý•l®ÜL©i”Y‚n²ñ'è'íø }Ç¿¥¾²¶+n˜èmA7ÛøÆôË7çÈ·ÊÝîT8É@\¯ÐË‚nºñ…Ûš|4܇Ë;ò廨ƒ„ zU}ýÎT2¾Këëët€½ù¸CŽrŽW¼–Í[Gj­Dö{$÷I¥,Ÿð¯¾—OÐs¾€‰@.}IŽ‚ZÙýfÙ-z²ýã" úȵ·§ÁÈ Òø¡‚:ˆÁõU»á‡€ § œ™t`ˆ=ýÐ!èÈÄå|%II-¼óµ¯/¢'BÐM èô‡¸å€<àzG#‡ã³§³ã¢¸"t-r©à¶Ø:¤ P ‚°-_|%Éé V>>õüÝËè‰t38{ - €4Ü‚zòÛZòùæî6ôÙO@*¤ñCïOœt`|—„¾ ?t@Js‘~(II[ž´lÖîÒëè‰It;ú¡×ݶ@®cO“¤óÍUÔA²¹BÏÙñúáÏдdbÚßça•;òÀm R„AËQ‚°/W$yÈöª…W¹_<·!è¦0Ë3‡‹ô[9 je?ôKf7Ùtœ¿`ÇUîeeXå€4Hã‡ÞŠe@ ®Ð=öôCïè „ÿÒÛr´¦òˆeóö ½Šž˜dþgK?ôFJ3’ðàÑ{P Éæµ¹+P If=iÇgè;v iÈļÍsì(耠€%Mïë¨AØ—ur”sšâµlÞ~„GètsÈÉA óOŽ‚.&Šeó6·ì#ôÄdóf‘ }äÚµ#Ñ´È‹ôaz²y†¾€ž˜dþ¼j· ýeJ_FÛA·5Î\:0äQ[ú¡CЉ7_ú™$%m¶nÖþøø!ôDº >]„¶@ðˆ 22~̆‚žQ=€AUê : è`AnøêQ ‚°-{>‘£ g,ì¶öèÛo¢'BÐÍàìY´Ò?t ·µäóÐú7l(è9”æ m€ ÛŒ™$ ‚ ÙD߶¡ Ã™¸@ÿ"II¿¿È²Y[Oÿ…ž˜dìé‡^7ztÚiøÍ!ÔA²yè}ÔA²yž³¡ g>Œ¦ #_˜gGA¬Èˆù¨AØ—§þ*G9ǧeóöΣØÌ‚n sæ˜í Ó2|} €nsˆ>'GA­ì‡þý'zb’©ûÓ…ôœç&êïY?ñéµG»Tee±V¹Wâ ýì%äD'r±f]Ut`ó”L…8Û–ügÆì|'Qܹë~Ý™˜=„LèRÅdRÐ õÆK(½–ô ù8?ÛÍê¬DûO?Î aPo±ä¸Ï•_Y ùíαùîòÉËWö4ê¢Ùä‰Pk:Ýçʬ1)â )òï %Êc‚1*òàLr*øéÎê±^Wé‘͉©Q¢â’Fþq›Ç“ÈêÆý 6–اp*24~PFõªÍílôn~ž‹ @Ÿ#Ó”ûÈïª ³ˆâî7½SüIÏ4Žú)ºÇú‚>òÕý1JW¦tbLÇ8~èÝôâ‹ ¬éhÞ)¢¿L(¶ÓOâÇlAßEBºÕÊl­Ÿ§[NЧͤèYy}º–‰ÜW{ù8¢C[ÛѺ·i‡ùõ%Q‚.ø• Æ°Èéõ$DÐÇ8¿^€ú%jTÒ°?®¹?ð#WK¢NEüˆ®•CЛ§ö³lÞþ@é­¤ÂìSde’HõÅtQôB W£è÷%&÷áßÏ×âßß9AO?ôÆÍTôßQú«/¾Bku~#¥ tf“¢)¶Rõb²Q çªýTÜYj+xkâÆlAçGïVÍC¹ÀG'þ; SÜA¸ñNõ Ž6–؉1[Ø‹â¿MÒ<™¥ß°eï/kY®÷(òJˆ¥?OHÖ‘1Õ\²ÂúÒ'Oã-£_Eç1ÑVÞ°È-$DÐù‡á ÷c½¦í­ׇ(Q£’†W$³Y${ÐÀ#,«T½§Wµ‹É›×æ®è¥”ÂìS$Ÿ“(õ©‚^Y\¼°³Ñ‹,Ü >(ÈŸ:ÛÇú7—ˆÜ‡÷O©mòTþRÍ>ß[\\ìŒ)è›èI« ú;¯P]ÐG~Hçò×Óݱþ³cGF¯úÌp1eüN®HìÓ™>+§*¸íkËZ¤4U=÷ÿ`·:Å>¯áÝÉ}'b9›VÄ 2#L£øH©™] ¥<“³ÉTõå-–ñҭݺ¨…Ètú!³ ð7K\ú%6ñ4üUtŒa‘+Ü!‚^à&YOò7w˜Þêq}ˆ—4â¬Ò”–¿±7ËX>f¤¦vAГH„}Šu’(õù}T×£³pÃXWVu¼€Mzœ5=Î}äwlå]ÆL?œ¯ûÃ\1}Þæn-ë=A¯;[F'îÑý}J©o>¡/uEeâ}!M3î5;iÕ>ì'ÆÆËb‚¾Ìÿ @ëV}Ùès²ÿíbÖ­ÂÒ~àŒ™ ‚Ìc;!yþý˜õù{¹zøü¯Œ5y„tÿw͵4*ú”À®›ÛôqÍtB‡.¢_Eç1Áyk6ñ}œ>!ž`p§±Kõ!HT\Òˆ?òÑïÿÛcs8æP3+½³‚¾ò©S¬”#Â>ýŸ½³ýâ88X¶÷Y-wç;ÛáÎŒËÁ€!ıᵦƒëêP(/áű‹dMKµ‰"i‰ÁA¡5E”Ô–*Ë%`!DšV(Q$¾Y‚/•ªö£¿ þ„>³»³3»3»÷²{‡y¾pÌÌÎ>3;~~óòÌŒó+EzK‚<€î½ÍÂƬi¸ˆ9+îG{g\#bÅ@mb|U:@ÏRòôÿªê~û ôïèRÙUýÏ,z€~=ñ˜ èûšlͧn.½x®µ²f…­*Vdþn²š•)q³Gã”;Á.òy:bl&Ë*Ü òz–­­¨fz‡}þõ»Œ_ ³=&K%ê°¸ùD0 /b Ú”Ïú½TVRáÁ ¬¢cl‚ñ¨2W¤¥ ô}p-WZ,˜œß8ì“C°syÍAoI+ÐSeo³pk8³mÿž?íŸz€sæÏGáÖ“ÏÐÿùÍÿÅú]ºä¿XUÿ‘ wm-k EÊûZ{Q¥¯B Ôù¡É–SæDºí'9ëfI'À0ûßu³Iq Æ÷.aÎMÐו„ V¶—=y³.ª¡:õ²ÌÅ£XÄ™ë˜UˆËªk{\ƒXâ°Ð7‘åþï³fµ  ™F®r”Ç’Âó±d¾ZÇ@œ;Îüž¿?Î2çƒd½ùé2Æ¡é‘qÊžJ€× X…(Ù÷T·"ã@b ú:€ã×dÈh¶~êCòRiI…¹ùþ£‚©ƒ÷ryÃrÎ §z‹ÑÏÏ´k¥³–µïæc ]°O‚m¿±ÛNoI _ö IDAT;ÐSdo·pUÜï\Z³^^Ù qíN=@×Åú_Õß™Aoª^Ëä‹gô£ëosù$…çNýÿ R ß é¦l4†&LÎàÈ„íê_?•Ð{£æwÐS•ÂŠ]§ Vf¢âô'¥fåñBê2¹ÝèÚ™A…kVͯÒÈ〠&KCÌóË=(‡2føŠØÇ’_/äÔÍv¤tâÓÊ2aœÈEŠ¤›€ƒ¶«ç6UXèžJ¦cÀ"/ò+ÐV¸Å6å^>@UûÂw}ˆ/•–Tx­ ÕŬäÚ¹/ùùþoæÐgó>ô·_û>@wØ'›¬× ¤ËNoI'н²wZ¸â%WÙl˜Ä*£ì…¸ì g ô;YmyV@ÿ•å ·YýÎ=ýêÓ§Wgô«@¨¼­-A|xn›µÖY©Mlhݺõ¬,ëHŒÐÜCbÄ*}ŒåŒ0ÇW·6•…ÀZ‘i&ý¶ºÇM¤·ë4C3“(…æV’¨')×éAÉ0ñ̻݌iî@o|™ì¯³ýÄ¿ Þž¬{¥+²YžÍZöÇ„dcgEEg£dùFö«ùç»I~R ãøµþëöZŒM+—ÜR¥Ð1`aE.lƒ’~…zDùšöÉ‹°:\}X/•–Txú– ZK>ö¡¿z ÉË>tÁ>ñÒUZ¥b£·$È èžÙ{Y¸Z~hVÚ qˆΉmQM‹¶õ§ ôýâÓ¹ôÓêg ýuß=}–ûЗ£¡+Öh¥C]fíAtÃÍÆ—mkÊÞK¹¡ïÉ­íYYè tû:„‰OU2NWg!Bõu”[M7èÐÉÌL¢8ɪt Œ¶ÒÒbS‰‘Ì‹:‰^Þ‹õ\³z l"QÌÝç¸[ï|_®ä$ÀØá¸aMkéŒÝ¢AÌßÙ%ÀFÇ»±ƒ^É&ɨ´$]Ryë°pEÞ  èÊÊ°©«Vs* ú°½Ô£¤Üƒk¹­½˜rúÐ3d(®ÌVÉãÁ2.ÄýDYÙè- òºgön'dàÿäÕ_àâИw\ÔÌmîÒúܸÝú·éÐSÝ)èýhéLC7€ÕXiÖ^è”e E é‡kÄ]ÙeÚφšñt2†N'ð1²û© ÇâÝfòVs€ÓÉÈL¦8ÉÊxÏz3«~æt_Ÿ Ð;0§L`ષâÕyìÎË`í÷E ÜöÒ ,w¸ÒY|Ï÷>g`tXmäzs/]ú¨r¾~¸PžÊSÇ€…+òÆô(v +Ok̃`6ÌT¶—z””{p ß?Àuyqòºó§æЕ.eÖÊýýŸ?[ ¿eRžÞ’ @—[¸Sh§/ûíŽ8ãʾÀVU²\_;=þ<ýoêÍ 7Õ‡îé«¿ü²:s ?=Óü˜´6k.cÈ€~Ðóh‡]Þt¶ž¾ F'MR}‹#×*õá÷¤™u›’ÓÉÈL¦x”yä….å!Ö'2ú ¾¤ÞÀRk̛Ԅx’ œ  ¹EŽh{§ +ѶWh»SM>i!Ìphˆ^ÔÍê1ü+Þi~h[¿Ý–ÊKÇ€…+òG (›r½øP ë¾^©S¶—z””{° íÔ£.ÚWÌØÝÞEòp-H D ¨ÈnE‡˜é|’üÝÍ"Eb2±~;½%Aþ€.·pIü“ 'ýi/Æé~[ed„Gµˆ¥µýÊ?›K@ÿ€žƒ³XUãñ@µ§gzŒv7= ›£Y¶ýOô*2E^…Ÿ8‚äSã²aOÿÖ&s¢3Ô—ÐéÜ}½ñs`ˆfÕŽ=‡B»N¶5Kñ(Ù}ƒç–Éèz)KÏõOM€¦q#tÄ{«ã1IPN…Vfú€%ŒbR™ÂÑ_ü‡>óö¤xðé*¬½ã7ЈK¬/æHå¡cÀÂy„È‚ ô¥ ˆëa·†Á3Ô‡í¥%å$ŸºÃS3O.AE ÀGÊ‘d µÊ É7ЦwGoI? K-\?ò<4áS{1Žt—›v=d1*…S\vªgôÏÔoÍŽˆª^É:;¯}製ÛÛÊô?Ý5fíu:99¦eRg †„ü}#[[BÖÑ)€>Φ[õi>»,´ëÄeæP<Êöh0Æ‘qÎiy&@'n ¦,‹qkèaÑ0œÕdÙË ëä}¸WõÐfüö½½C¾f|$ÆdÊzn·¾=•»Ž _䣴ÓÇ€^Ø 0fü$®}ÁÔÿR’Ú´fÈ"+Ë@›VæˆÔCÙ"*rŠ[Ñ%\ïî…ä è«èIŒÞ’ Ÿ@—Y¸d}sÜowDŒ«5KÍŽDCZ@ÏÒv<# ÿYU{Öª¿<ÐGwq½p ôJ7 “¹hÝ]ì:¹{E)…³Áªyüo  _µ½Äa2Æì:ÑÌDŹ3jè»Ç¬F×’ЕÃ3#r\ÑØuÌç4Çt©$(·Òl#ø×üâÖì²”øÎßÅ«»JÜß>Ÿâ”4•«Ž _äöètýÀË4íÑ,ÿêÃVÏ%µ?¸Ó˜²NTbûž;CÙY±†>SÖ¦Ì7Ñhý.õBâF ¢“vzK‚$@O/{w ·M{ì¼OíeqÈ€ ¼¨å}®€¾ú´úoòï{›-w÷¾Û¨ûP¼íxú7 _Äk\šGœ£êÀij%]#§ìMA(§ú;Ð[ÑìÕp²Ô®“™™DqèÜðŸœy“ Еöí;ûº •Qnú8#1ä:I‘#9I'¿QŽq_u%VmgÔè79ÏÎ<쑦rÓ1`±ùC€¦mºM6Û¶½jŒV¬Qyv̦¨{={”ÔñàÀ[^ºx¤Z¹Ô>ôŸüááüúl¾>õ§wïôY ¹Ú¶–/;>†& ò tÑ‘ےk“¾µ—Å]³¦Ùe2ÍúÞÿûœºò©ªªo¨ê~Ï“Ü«êâÌ>Œ=­bFʳ©€^Çô3[Ûq”ã}Ë sa9j©¾ƒß 1êt™â"Л¸bJ3úàî†zœ”O泜®Üä:£Ö4r#êQÈÒ,Ç¡÷bÖÇO ZmˆkÖzÚÇ«¥©ä:,Ž"Ë€¾Ýº¿hbÕþêCRÏ%µ÷Œ8=ƒqœ7@ß±yôôY=ýñŒÄÂGÐæAÿÚËâvrGűæFÃ)®O½;·€®üøý_Ûüöçžé³;X¦€¹¯§w£qµ×çzvšè×=Nf¼Ø¢GìÎó3ã¤}æÒv„NÒ÷¹}w¿ÙnÐZ¥@—).}›'ÉdÛÚhèñÑIî.^¬ÄR±^ó|Ð4¹ªn ß æåø—ÛLþ‡r„ê6VÇ1èÅâ9£Â$©¤:,îEfkè}Üí@YNuÿŸ½sâ¸ã¸IvVÇž}çslC ¶± Œ0&ƒ"Ll˜G 6Ì«41¤ê–&"Qxá!ÚBª hiÔ@RRJ§üÑ@xiÒü‡Ô™»Û»½»Ý½³}{û˜ï矻›ÛÛ™ÏîÞþf¢¼·Q’*~Ø»L’£.ä§jÜÿKâgiú»æ ]˜¼Ø²B_+~c¢Ð£îÛ•%NêŽÐãz8'¾'¥¹W K‘¹'‹âлJ}UU}×…^KÈšPÊiºtPÔÞ´p Aä‚D~˜õåÀìîèñeØ|.áM2w„ô_~ Ê' =¼æx¡wHòX®ÂŒÚÐÿ7qBWËx¼ÐÙ˜3¡ ¸†®mdqÜ= ö>Ö å©úG4yÖ²=èÔŽ¢ÐT¦¥žLšª)°ÞYá¸Æ|B†’B\[ßàóŒ*K©å1Åè9"ô3®ð~üEy$¨±ÛBWÙ¨vI•?ô׃ð¸%EUðÞ.ÃÛÚia²B_$µ ü1î“´mÊ$¡ÇöpM$ÉIS»%tÖOׇ«Zq»¾Ð‹§(ta·nL›†Ð©r³J^¸UÓS{¿&Ä]îvz6CV­—ƒ°“œ¨g#Æ°¤Ú±ìº}vG¾^§çt.Ö·M Þ/jÍñBggfd3»¥3±@^¶½ý BW¬>¦‡c—[1Ó-jw©Iæ^ùÝ^º~;TØøÝò}úBúÆ<' ] ¡f·Í›ÇΪ “õ1µ×‹}íQŽïÇf» ÒÈ2¶|ÖS%ìÃ`åzËãð_‚7<_f‰ÙÕ.âò… ^³ŠÐ‘èYÓ×æ]Ù"¨ ]-ã*BÏdî•ù§xØ€^Áo;hʶDMî(]Ú•;i:‹Œ‹Ì†î¿(ô¦îÒ8iÑÚxdÓðMÙ„Œœ(Ÿ4ùÂôL J½NOÏ]_më¿ŸÖrEÐC¯³ýIo¾YJ“:´–ŠÏcŠÑ+²BèÓ½† Ãߦ=™çýžÖ‡êF5K5M[.!}ßµè4mµKmÚ…@è:QÌ`€Ð«éáØÕ– ¬B·KM2÷Qß gü¬+`“oÍNJèÝÄ‘BÁœpô‰•µ˜=ê‡ËËäøžM‹þï¬/r°KòÝ÷&YóM“ä@7yÍjB_Öe„ .tµŒ«]¸ZjsuW„.<%Oê!½NË$qíJ%) ”븦P¾M¥¤xµ{ã®{ûóÙl¥nߢˆê÷n÷¸\îã;…°Ðå5« ]–”{èå|ßã÷-¡«d\Mè‚ÐZ$©b¾Ð5¡ +¶dÓÔ–*žÈ ¿ÌŒiñIéàÑù“Fz³ý-«T² êªý¢Ûs±Ï†¨¤ÓOîˆ%úKÅä1Åx’º ¼2¶ '«b·ó¡¨j”4º"WM¦‡Evsk C"^ú‚“‰Œìd9þ<3mƒ¹›#ôØŽ.t¡÷cÙqe÷‰üCÆ¥ÐçÌ1e³Ú¯ƒX»²KüµrúÇâ¿íT•:B·r—ª/ôú¿^r Ðë++ëÑÉ%E59ˆJv'qè–à ‡ËØLèw©úBIÜê@¡'ˆCaF»Ü¨`{΋«ù(茆Ç,›·?‰OCè†w©<Æ¡OÅ©èä’`¹ž¯ûòÓßÿ•`6‡Ÿ[¡Þ¥&)nŸ….l܈Ã+)üóQþ B¯))IùÈFv©ƒKJJ$]¡Ï{µ[e 9°±Ð‰a“%C]ðqz„­€È8‚:€Ð!t€sYÆIXK£+Dzyûù2´C»ž&Z<yyØGpü¹óQP+Ç¡?Wy-ÑlNtgZd« }èêÕC±kànâЗ èð·•o9PèˆCBw %ëþé ¡›3ãÐ!txâÄ;¿å¤¤3¬›µ¿ÌÝ…–¡@ñÅØ·pþbÃN‚°»êY ](†Ïà¤ÊþB„ä¶ÏJ:À±LÝz‚ZyúÔ™'O %BèFpìöÜ€8t €°5ó·ö# =Oó°o€ÐÆlâ…Ð&¿O:PèˆC€'.‰ŸqRÒÉ‹-›µµâ7h‰&ãÌ8ôúªªzì[¸á½]¨³÷ êÀl‹§(ta÷nìZ<1ôyN:œ ôLpCZP@›bg =À×/óQÎCD²jÖ¯œkDC4›G }Î ìY¸áŠø#F\–ÍÛUÝ®Ùtž»ä@¡×WVvbßÀ —ůù(è‡ú¿Ä/ÑM溸ÕBÿƒ(~Ž} /ÜïóQКRhrΑqèSEñ[ì[x¡óæÿP ¦_ÞÁe”ùBßçÄÿÐ7þ»O\»3O¹¶g"ÂÖÀÜ;ƒ::À¹|ÎIXËWŽeóÖ‰¿Ð!tcÈÃ3qðõï¯òQP+Ç¡ß©¼‹–hú™m±…>tõ}ŒY7p‡> qè@‡[+ßB:B· ¤lhâÌ8tž¸öõwœ”´ÐºY»ùý´DÝŠ|Š[îðŽwì‘qù—Ï:ñ¡¸b4-|S!l p:؃¶¢)¨¡Ë·ßq2{ƒ•§O=÷ðZ"„nÇnbÏÀ w‡n>[3Ÿ~ä@¡çaúT8‚›8ô~D‚Ðö]ñ$âжæŠø)'%}f¡e³öP¼…–hºÐ‡^_UÕ‰} 7ܘ&¦óà ÔÙ\O9ñ?ôÝ—±kðDã—óð”;`{¶f(mÖÙÓmhìØ­¨à¡çýçsç~páDO„ÞŸDãŽþ:‡a=ªSº‚¥7½J b¿k`|W™òî€(®œ+Šï|¡»ØœVúb7)RzT”¡«e¥ËB÷…Ð÷úäê;>P[è Fʧ 4è趧(«¶zÀ+úIݧBQ¦BigTç¸}³6$ØfKi‘;§ºîñô÷­cjɤà»á1»¥0Õõ¡µõÂ7–“áF¸Dü‘¡[9ýª˜ž§âÖ»BM­&®O™]$7C×í$}¡ë¬>ãP_ye³t’R–÷Øî3±Ð;Ï]²“Ðë?+/,^{Uœ«—ïúÊÊÎB÷*È7Hèt;êB'Ê^.+BWËJW…Þ‡(„^˜O?eU*£/ÁkÿvE²³$Ö Ù!SÖ\ÃÚü Cî3ûC-Þ;¡Q;©< ñB_:†]uzÛ¼W.Ÿ0NKw×:p 1Jèqõ¡¾­ÂÓ†h„й‰CÿËŒb=ÏŽµ>¥õ795åEL›ýµ’”Bï÷oJzõKXÏækÞÁ^ê4“R–÷¸îóy¿ß/é ýº¸ÕNBÿ»(Î ¼Ù*îë~:íTôî[Õ•–öÌž‰…®8—k"öúÀãD)ôIôƒ¿kc´%ˆYv­àÀÕëúf2{ó"]¼Ås5S‡–L¨cú ™Ô³K"’}Zfg°S¥EÎÝôb‚mžõâùç„MôÅÕ’æ®u ½Éž;ŽoLu}¨n@«ðM.c„~W¼ï(o‚}|M)çBßI»©A…¡>¥)ú»Í´¹\8š^oH 4’”BŸÜ•ÕgÐ˳i[]×­¤”å]µûtë ÝfqèûÄÁ7çEñ5íŦê—@è=&ÐG¢¸'PCOÙl ô~ùD)ô´cnþ?{çSErð}ô¿¯ë¾ÈÁ㋇ȯb#ƆS± ”ã’;¥-©¹Ôjk›œT½x ×jƒµ–+$›æü£¡!—ÔÞ—š´M£×¤ir©½Ø˜Örwퟗtfwvwv绳>Ø}òëû‡>¾oÞÌììì÷3óïÌÏÖœtŽcU6Ä,!ä5tæD>Xé"m9 ]­~Ž¨Ùr.E* µ©ÿaˆÜ¸1Ï2ïì¥&øe¦Õ²Ž%l ó,Ö ´)øöÀ À/þ@éb¡ý£‡ÿ[@_ÊòGé8Îk3QŸ¶8 )µ7š5žžŒ¡JˆJtIöJ±Õétœe‹¨‚«;j>ý€þ³åô¢ï±Oۣߓ¤ûágÊÒúÖ8çs'÷±8kÉ}~œ0ZMÚ@'S@Í ›'CÓ‚'Kÿ0Dæ­L× |K 3@vrÖ(À Õ¢ä” mKªnŸ6±2{fqNa.ÀP: ëÜ]ÈB€~'Ô3!´R~ñ½gu0U)kÂå@ðè¥åô×£- ¿µ˜(wè1ÈR.eVzÜ\CÏ‚˜res¶ªÆj(æFó4Ðrì`íÃù1´ÚõKSXA4³ý èfX®ôÎçN˜PÄÝ«ôò½Y$A©•€«7/ÎdxU ÛïÆUPãw/ù½›ü8«« ô>€zóË®ŒIâ„áÚŠô´Ÿèö8eŒ-3!ªEI.Ä]Óëæ&e¸Øðae’‡Òì,uùe¯¤ÓäuC¼ úm€óJí€]üHy.’ek@·¥ÆÓk•Ðó¡f5µÙi2³ˆX}Ñ9åžà¦-mÆdQI.˾IˆŸÆTÁÕ7Ÿ±•åþ~ô}Ëåþ× Þ¨?68 ÆŒG)^0r—=Ul€u,×|ÌâæüãY3Úq½Ð{8wK=¨sÐÅ\Ý@¿m%èêí4­|2´*CqËTTÎù]½Q8 ×\PìΖťm “ù#Beæ¬=P¾vxÈERDµùŽ{šc*$‡ÙçõÇñ2wÇCYbx9L:àtr›ræ”àÛ)½øNÚ;]´t[:ôÇsÐWÕÒ7pTîv[×ùmÖÞ±ëĬy¨d@—e_G:°+9¢ °î¨ù\Q@ÿ}4ú Š‹þ ` ÇtÀ©#6ÐD“—“E£ói(P˜Žf#"ñ`Ý£W)ük;ZD£}††H%ÛÛ @§÷„ùÜ 5˜UL #¹º€ÞBìÏ%«=îzÛâN†UeÔRË騙¥Ëš>@oÛG¿pý¦ùe8"owºÇÁTÚI!3¡>è£Íþª”¥œÎ:G»'ªÌU’3ã¤ÞÄËœy’˜×P¤):JD _É°–‚m¤ôâ;!³nX è.Ç—7,èMjö’úGéXB¿Êð±j^éòÄ!­ B€.Ëþ&™¬)}1Ói‹«Â¨;o>Wпµ+ºã¿ðãïGßý™OR:@lÃѶSŠ tÒäæüVŸê¥@Цê³Ð±lÓ¿LTµg#”¦ò5teÜò¹Ÿ£SkèH®N Ÿ' FÍ©|,⪷%H2±*dÔP:¯#hxf¡è†p@çbܶ*Ø ä/çfÛùÛ±`"ÎeÓÒ8Ħ|U©Kybóu{ª]ßmŽ_Ö›ß΀˚ZeÖÑ(ÖÞ¶–dvKÛîtZÕ’H6("ÐÛ­•ÿ€Û)½øž ú1$ ?øüo«èâ>ô¥ôGÛÿ~!eV4®>¶Ž{$ëkaÌ[…]–=é÷çÌ}äZ•—*躻ͧè>ܸ¬–ùÓQ]ÞúµÌåþÜÉÿ߇~š5“Ƭ¿ tM_,¡Sàmæý£OÏ4X¡½äËMÔÑlo,¨õú6Ëçž ZÄ:’«è…Dk9˜pÕÛ,™PR_•ýn’tÈ£)˜lõ±]ôòXëü™¾Ž ½Þ3Þz¸¢ž<ýrÕ¤›³¨ùúU±[WiåýfŽ2«Éºß8¸òÓhU7èã)èwâ ½ØH’‹/ZÛ‡¾bž–mkõÌ2R9êÝ<•vÕ *è²ì‹î“û°§’Îõ ÓCtÝÝæSô~ûâò:úõãŸIú—»î»² 8ÿ}è¼°f2Cl —Y7²Ô2g´©ïq^åf#,â¼Í±_ [>÷•æÇ€Žäêú%ÒsÌlLq°dBU¦7Õ[¶læ+Mè#¤ÓÕ^þ Ž“rzUaƒ%³ìe¡&ÿ¦Ž[>ª…ÉeºWop÷ÜX7¹°2ºYm‚ ʹaQ)^æ)’*±ŽÍ;Éïâci3ª·@5Ћ¸5’`Û)@rñk@wÌØ’[pÁ€®qS»’&M3µ:€Nøfy#¯Ç1;½Ä¤Å{ýTÐeÙÓC´ ˜ÎÿhüQbW]w·ù\QûÐsàè?ÏG¿4Ћ ³ùòNkÕôÀ¬á®¾jf6IrhU”YòÀ™ª¸/Ð÷1Ÿ{…Žrt$W'Ð˸ÕÛ&ÒJœõæ;B2Ù¶µés.¤tŠ5Èm¸rhTbµ­6‰KC‡¦&ûéy:•a=ããúmÌ:R(U-H¨·£Ñøø É6¬·4Šò*/à(“ŒÛ ZéIjù¤íÓµ}n*w#@ŸL0¼ÁÚ)@rña¹Üÿòé2z"yKär~ž†—|4Á IDATÒçs†ö´’VŒ‘D…]–}¦mĦ‰­¼‡«‚®»Û|®0 “½ð<ý‘w¢ï|àãrÇÖЇ Yf«QèÙœM§¿|Q¿³u¦¦Òèƒì)Ì­Ä:’«è•®ùYg½¹â…d8Ð[oÔTê1uûS:å0)JpkèqæãwK„%60™>‘à†C¨jar§ÜÚº}ÝpÙÜànÓ1þ$hG™}ö)<½¥F,|:¤4=xÆ ôsÐr+)½ÅèguŸ{‘1 g@GruèfÏrÒ€ß^,™ô.£VZFÍñì]iª¾<[VQBGYœÛyÿq#„üZ‰f1Œ»9˜Èn&ÃäMé§>ðAqùx™W¹=ðSöC’Ç™ÐRˆý@2ti¬=$¿ô5 / è÷¸#­ÎqÑB|ƒØ€ŸÊ è²ìó9#:bÜD%‘…Ô]0Ÿ+ èëÞžüés_ýå®è;/äNóäv¡Ì.€ûÓ2Òb÷ªÝ«®œÏ¨? 2„ö@ \|H@ÿäÓÏVÐg–ð¶µß}ñ üBš¸g:W C£á-?• èO˜}£}¶:õ¯ÇpUpuÇÍçÊúº—/¾¾}Ç»ÿþº<Õ{CúUÎVN3#ödðš¹mí’è› Ú™d@Gru½ˆ{¯Y¨IÛ‹%ª’i\Ž™¯òKè­šåf§ÕÌ*´;Olïæºø¾0ÖÐs–û{À(Q-B6dªœßzÏEÙ­ÙÃlñŽ”Yι-Z!MqK^@ï%½);ÒH’‹/ ëõ©kûПº¤çõ©Ik¿w$!C̪wæ©’]–ýˆfoɽ`tkD\Ýqó)ú¿øÕ²Û¶æ/ϤþúÔ”€~¬uÔcq#¼wRµŽS¿l½Ùªeý@m1»_ èH®N Ó·é²‡·0É«‘Û‹%ª’´;O°@äTfè kJv+Ï—¹LÙ'ÝRÃðúvrÏÐÿÙ;Û ¨®3Ž/„ çövw]vAQ^… Jx5)!3P‘€#T‰B|‹RÑÔZcԤʹjÔ‰UCZ¬:qÄÆŒ£UÚ$Óªi:m™¶†ØäCªõmcÛoÎôœÝ{w—Ý{/,{/{÷žÿoÆ‘=\ÎËsÎ}þçÞ=Ï9…¾h=…¤(XH¥I^`¹Mj~£ÿ¼±5Ù¾…2³Òa\å:lA!ƒ¿C_JT7`×Ááh4qèƒÞáD*è™a®« úPŽ¸ôÀÁ£ýa!²t°…z…$MA×Êžzö ßÖ •²+$éVwe÷9TØÚ9 úÐqèÑ :K½Aê™TS*¥¾Ù·èy¹þ­_—È{Í):STQZ²%oýªëà­_Ù. ìIhYª¼yR÷*\V•qô™Ê[B·w#ϽA…%ô÷÷¯JÐKqg¾›E_?&§&†Hî¢×³mº/˲Ýsúçw}³_…¤( îÒ÷åoR¦ûÅrµ4sR*s'’ù¤ïÙ"õGGGÐ×érΚš= Po¼A‚> \ŠCAO(ïŽTÐm-¡ßt—'˜¤9„›£PÊ~ú,ñ ÖäšÀYYóûû{¤G™üð§Õš”]#{Û«4³"¶åÆ«òRO…$Uÿiݕݧõ6–ÆÖ3eeW ôÍl»Sw~[¶(?ÝÚòXHbzI>ÍHÞXf<[Eî§,èGýº8œ%<×ÃYXˆ¹³Ú{êŠôÆ\±{Ã/ «J'K(˜¿±Âîu;ƒ Û/ïX¯%èì‚ø—6vMÐiè)! ºÌÍ^ü0ÛØWpwSå¨õñx/}J^£’].oIG¶Õžà¡öbù¶:äÈF…2WÑ6w±£V¨¾ò-AoPp\úÙC¡õƵ(îæ€ÍJD°ÊÝ<Ü¿>*ÅìeÞmn#;*«:`®ÃÒ“Œ=@©r’¶ kdï SßIe[eÚT’Týg¤uWvŸÚ‚~M8oAAO>xÙf¨ Ûö{äÛÌ!G úOX­K•ÿ2Û{² ³õcÒ÷ÍþãSÃs ô„Àv.‡4º7ü²ðª|×Iõ.é…i$‚n“–%öZ ­Me©\JF‡7÷GséíôÎòåu´î¥•jIQ@J¶Õ¼Ns«’é¡ó–Þu5 ¢ÿ}„R™[è”gÌîÂݵ„Lº[A÷è÷Š@É ¨6«Ü­+è£ÅDyUzEÖ`Qt 6˜[9iAWÏž½·ËÚÿx–¤%èÕ]Ù}q8Ëç‹­(è¯rg,ç‰}ÒãA;”ï-²{é4›_лÙÞ-.eAúÛ/èṆž‡nÛ2×%ÑÝءݽ¡—)T¥3•=d»«;™÷÷ž ‘ Ûº'×Ò"2^ÒÌ»ô/óBþ¨ÜC NñÔõn—<ä îª'Eó’9WÎ-÷žßtRÒ¾<2{ä-û**GÝç ô&ÚºM)”ì¡P€Zã!è j2óÔKf·Ï‡OƒÜÊIC ºjöÞáÿH­ˆµ“ƒvmMÒôHê®ì>-¶Ê]AC°+So~zú=‡§¿U;)Ê\ž´©AI &Vd8‹6®Ô.só´’I)µÓ³Fß(ƒ½›g“¾l¥TAöñt5l côû*jôü'DJª¼é-ñÁµË|´ódô;+EÓÀÅ8ÛQß(A7Ôr)èí×áâFÎÏE'Œâ‰á|4tªÁ(G×Bœ¹]ƒÝXÿ©-èW.öYq•{qñ8¹‘Ri—#êˆâ3}ô˜XÐG'Ýô‚n°ÿj•ûþâÐ6ø–Äw„¯ùhhVÕ#t½º¡a§ÞÙç?;ìÆ¡ÏÑÞ)`)®Üø/Œk®ÝŽ³Ç(ß±ó‰ñSáþ%ðš‚~ÄŠß¡ïøn/< úÕÛíXåÄ=[€8áîG°€ ¬ËŸ8 kyBt›¶nW°‚nÐù©X?\ýöK>jæ8ôÛÅw0c>³Í±  OÙðuº^à&}*âÐ7×¾8t=XfAªX3‚O\ýç7œ´4˼U»ñíF"ÝrŽ]Â+wø÷;:Øl—ô¼Åå`hàkN…°5À@Ð >ØœÝ#:À²üûNNo0óñ©\ÅH„ ÁéèY¸áâÐcÂÖbÏýZPÐÇâøT8‚›8ôLb‡ õ·$Â9Ä¡âšá'-myÑ´U{ ÜÄHŒ¹ [1½¾¬ì ún¸‰=MbÎýë°A¬¹&œ·âwè/£kðDÓ狱ʈ{¶qÂÄÕ°Pç¬5ýa?l}”vÎ vÓÖí݇¶c Æšõ–ôööd/^㣡D4mݾ#|…‘ëõà÷Yq•{qq=ú^xWxš†7± ÿDx #1Ƽ"ì±  Ÿ„è[xá3a mžfÚºýFø>FbŒ™gÉ8ô9‚0} /<ùˇ`„XóÁ /Á1f«pÄ‚‚ž¼cºO,þ鈖Ù`9 þ Àè»ÞS°€ ¬ËKœ„µ4‰nÓÖí‡ø ‚n cÇ¢à†Å‹>ᣡfŽC¡ø3ŒÄXs&Ç‚‚>eÆ)èZx›8ôÄ¡ ~¿öm :âЀ [™öt:PÅšqètxâ̯ÞथÍæ­ÚïÀH„ @αc9è[¸_±¡@ròÁ²ç-(èÉ9Ðs˜TÅ¿ ‚&ä–§Ft€e™³çÏ|4ÔÌǧÎ;w#‚n§O£àÄ¡›„­Åž§6}hAA+cÑ·@Ð-Æ’AªlÎYPЇOô 䤥ϭ0mÕ6 ÿÂHŒ1ÖŒC¯/+«GßÀ ¿>Äš§þÄš„óôäƒѵxbÊ[‹ãKÐsæýõ™â§÷ÔΊ¥¯\úäh1`cæWþnv"ŠDšËÄnÚþvÞhlæ¾W”ïó¤aº‚WÓtÕì‡ë!GX{Ö·rNûdEñÈ)öi–ô'Ÿ>õþLؤu]{»¶ž{}¿èôM¯Ü3e¥ ÓY‚X]â¢YnQü½“ÐÞ,0Ï È†‡_Л'1=¨*aSùMÅjf$¯L6³» ´.ŸyðÆW¿U V•v“,ß;™öiïY_ÒqúsŶB&µ…:•ô:!)]å5,ß ò ÑK¥üpù6úŸ¸RµŽ†½i «Qko´2 m®c¶mïnÚyÎMfg¥Ò“Øt6uâ„.zñ:Ý-p@xA7sú'ÂWƲM g(8 YÎlf¤âÕ‚½*7wùp³¦‡iíé³;«uoÝlö_7åó¶³Û&L·1鑺TsÀ#ÃxAõ,Š¦â×XoÇgF«¹eä·A?§ó¸T¾¯¥4š‡‹gͽ£*¶=¸æÚõ)û’OÄï'œÆs’¯CZ¬ÅCS1hÍ¥š Û4ïLBÆßû2WÓ½ÄÕ…¥­âìò1?¼= /µ<ôŠ»¿>"üýq÷6OÅ#6·k°èÅ ¾`@/¨#J´) G<àIoAVR*¬½Œ^4==Õ* £éHW®Ë©ëÍ¢tMµsÀª:›´î§ïÊEä8TY§®N?€ìsßƦƒ M¸Eê-užì£Ž3¤J÷Q§ZÕ@EUÌzÄÊ ñ*N!¥ƒóü »Æz;>3êQÏ+?Öœs™ßþè[) è>8cèÅp\X.å³—N#  MÑJÜÝ3(G1­Ì¥š Û4ïLBÆßû7•ËÞjlìä€I˜§Ný綖nêú_ÞÅ+¿Åög½kß0 þ7,ëJ4¢‚ ýH±ßRé­¨:e¨ð ³Ã™HÁ6c³y^ìy¼ÊIN®ÀC•˜1…‡Æ/\ÊBtäÀÕ±»8žqGM”á’‘X³æ©Ž“j¦¬ö=* ¨¤7·+/0aÀìh_˜.Š Ét,·½Ü¡Êëäj\"Ã0áÌiåî­ø-R©é{cŽ6ì‘õg/T9èc¢ŠIø^<'Þõ€Ûô×>fT/œv|V©—q®)¤ÞVVñÁis@¯Mz(Ê’*ƒÈ ‰ª¨úº•p D,¥š Û5ïLBÆÝû„F@a&æMfÛÛú©_þpIºðø‰ˆË; ¿¸Ž†AÍmêÛ7©ôºÜ¼õ€>—¥Üª44;!ÉbrЧšk|Aæp‹lÆWr€^/·U*‡Í†Ìzbƒ, Ò«ØDŽª™ÎyÏõ¨Àz%ÀVAÅj?þ[ݶG¡ÊõÆœ¼ÁP™D@Ïiœ¶h]îÙÄ Öð¡â›á€å–k¤ÔÒ¯ Ô(bqZ1a¥_·¥3™£*韯åFxÈ-~Ø𙣞ÇlYë¨]ôU@£TpaéÌ 'a³Ä<ÕfRÍÐíšYBÆÖûF¤'ü¨Ù~ÌîÞe•¶ößk»Ÿ}çÈÞ¯ü9þFFÐB é¼5£a„PÕáp:È*ž)GÃÓ§tŸ 3$§nµÃ02>í3ß&GB_BZD;j3ƒº×'‡ÛÏÊ[Œˆæ£|üo‚Ìbè!)Ô;€s|²§ÇY5“Rö*òÓú zó(È›!¤ßx‰ÜÉn0y×Ѥ­ë¾ìTçÁ2‚^:{gÃøþu¥ƒÊ[ÔpÌä)Õ9‚ðgø¢ ï¤EÊšrs›Ê&TLXa=â†ÉÌ¿¯ì1ºÁ>sÔy@?˜bÇ1,)@_3.¬à2Äí–6Zl_nS§—™T³t»æc•1öþ^Fù=IvÀýeèÿÚ+~&_üG<¹€oïÊ9ÃE­%i:õ‰è@gÑhÉ»åÈðjÁ'†±Áj£ƒ•Z’2h*+÷(»›Yj–!ž þŠ‘²VA8ŒhÊZå¾\ê/2Cz¡WëQI¢ŽªYÐg¸´„‰€_;Ä ïEµZÇ/—²•´¢Ëea§°›Þ-ã|]!÷HÉ-ŽµT2·ÈU¤Ü´çòE?±¯˜8o$ß#ºN½à™3>zеnñÚÏ<õ]ìcl›vùí/§öÇ\ôOVʾäÛ‰ßB?ÎÓd×Y¬Ò—6l&ÕìÝ®ùX$d½¯h¤Iê’Ad`OîÁeè¿Ÿ‹Ç?ÿmó܆ öíVdiá˜Л}²o\.ÕŠµ­ºD’ ÷¡ÚSúVÓåƒ;rLÜšwà‹ÛoU@—ø¼ñ).c#±­­ÌS鸚#@G £´F}kˆ(ºA~[gäž·Õê&…<¥cI Z°|Y¨šR1KmÂFz¯“æ&ºè·dðÞOþAã~ÉÞºõÛЊônJ kz¤”íœUÁyòž.8œ{-k>óÔ‘ížÓÅéÓ.Û™§Nþ-ŽÅЫbôTÎC?±û«D“¨T¤.›ÀôbnšI5;@·k> Gïƒèj$3_Þ/ÕEüt#é~Wpèã:µ)Y€þG’µ†Êñ#ëÇ^»vmž3‹zØgêà €~‰ó…´(É* ¨lÕŸs†ØˆÓï–Ñð‰NUô²m“a€Wè“gÃÚHlˆE:FÚ'Wsè³´^Ço ¸t`aTÈå @±E'ûè{ XfœÍ„Þ›-ùåk€«§7'8F¹è$ÌÂß//b¤Jø Çw¿UŽfQ4)€®é)ã™û Ž#u¶|Ü5Ö[òYC½ ¬ÍT2*yî•TÏC÷€e‰MÓìXÙyèå̦„{`Æ‹ˆ‡Ë$3‘j¶€n×|,2ŽÞËYÄA¼YˆshÖg 5oÄ qå·K Ðß`€þDK ²/K¤r#Ý¥"h$V‚M°p§F«sPÍ ËÝϺÙ9Ù‡èŸoÖÓ–„l>œ³§»«½šåç. oAŽ¼§?Ñ‹ø‹™_£š×HÉe.#úr»Oá?>‚M 2‹”j™¾x€®é3*ŒIQ“È@Îùž{¬·ä³–zÎÑjŸœ»¹éíî˯@H©~°€^Å¥j šZèl«µBY'Õìݶù$d½Ç‡Âå+¾FI›UÚ‰ð\b‡5/«<ôw¨ËýÈIñÙÂ]Ö’ÂU;#ƒz¾nÁ­Õz‰ªPÕkÚ§ÕTËæÇ+Qâ Ù´Ågþ60O€§’n”Å·æ%*¦ 1r–pî¡ci1Usè8–D)[ºÝ&A8†~ÎÐüÒf¡ÝÉô´&£—Ž– VÑ u¹s)@N(ºÏ΄a¬0)€®é³ .š5•H+|ÓEÖ[òYG=L§—¯$—÷Ðü‹”t×\îBsê¾ä_O~hÈŽ¸N¯Í]î^mL²T3tûæc”±õ¾ˆÛ EJI©zg  ËП‰â—òÅ»â›ÉSðé§Nw¢y’rì/ôLÝ’ÕúA,ê2rÌÄ0þÞ n¤Ž¿ýBÛæšMt½ƒú¹ŒL‚lBlœN)épw ÕœºÐJÌßdOèWJÔÔ^™ôXemîÔ«ôçsäX‰2ÕUÕár·Hé”vÆÝÊçò¹VwXd@§=¢^½Lý¶ÈÒWƒ÷Üd½Ÿ ÔëÉ×0B›ÐT-rû½_Rº¬Œ´µ solê¸éÝaôÛ‡Ì%ÍvŽµT£€î¼ù%dL½rþFìw"€ ô ý÷{°”ýO?÷~}Y8õ;Q´Ý*(°Åóæ{ÝÚ) ²Ы‘Ì)äÊfG€ÞÏìîZùü'Ý×\üÚeìÕ O‰˜”X"ó܇Š¾áÙK5G€.4ÔÔ†Ž·¤a±ì7™–º£Ûë!ÙÛyªl'V91ÑÑj›–c©™ª>Ê…—º è#$Þâ*çè>¯]¨‹ è#\È.5¡‚–4“›Ö¸Êz+>©w»q§¿£;æWóÐWóÐãôaîô Ó´µ^C>‹¥T3ôùšMBÆÔû»Üf:wÈÿ3'8ô8•ª¤å¡ðå{èß¼wÈZÎæÿßAv,( —šB2? ?b†Y39$]cƒŒ!ðcߟz®hÜÐdñ¯ªïÜ”Xd×6œ½îkŽ­š@çD1 ¾›Uu]P¾»íâ|F܅ΡÊ0š Ð%Có}Ÿ±ü¤m<€>ͼmD•>Ê‘Šj‹è†É¥‰;•”6¤íßw—õV|6R§å¡Í «€¾Zl ±žsF0s»ù-Ói™T³ôy›w !ãìýwo\]Äص[¤Ùú_^Ëþ÷ä»»?þäË4q Ào€d‰D½VÍ„A§€^¬*X9ØN³yY©Ñs•é  Ý–*wσÌa¢ÄZÍУk8ek8ïyT}²DÞö©ƒ=©d¡×pÉÐQ È”T¥ªf¾ðÀHÕ? ì¢?ÏôádÅ =GzñݤGòA>G…Þ§XVw¶<š«nµ:¦ïøÔæ‚ž¢ÃYì||êìÓ§Ò†‡ÅŠ¼zÖN?ÒÑo¼Ǫ ºÑãÍYÈNÇþ®v·{JmÐÌ3}OÔ3¸ô'Œ~õë}³ÞS¤¸A)‘vYÛ¿rfµ2²N.èl;Y¥i¾|aîjŽ˜u«S{Ðœ@¸hè°Ž(ƒ¬ãnÅ‘<6°âð"ÉÐúvs37B÷j3¤êd[™¯L ¶I¡;_ o7–fÓ8ÛúYI‹þÏJ”UZSµÝF-QìRP}ÜšA}®Ò@i¿Z¶Ñ^9óÖ‚/F¡žéæ-»rhjbAŸÏÑ¡û‰ôP3ºÛSvw[KÙñ©œû¡³}¹”ù Öx¯ÐK¢–gÄZ5cA7z¼) ÙùØO!¤:Ô;hVµbVÁ$ôñ9PÐsD1Çàg¦E¤zCÏ©ÉVÇë¯âí¡ôÈ[lš£*O]Û–\ÐƒÛ§í¡ª½v3}: À^É5VêõìtEC«ˆœ3žC;qÞæøÊÌ&ÚC Š×Ó z›ý›°¶µµõÉd‚NÇY>fqgn¢¡P«Xh"ûWm ô’´äC©ˆd¯µ¶˜õªBHuPÔÚiÞ”_ߥټ™M0ouuyßy}PT½=Áý]WÐ2ŸœÁ>NûZ̵úø;:Ï”îôx1 M¡è ÖÝÂîÖ«OVü|Ž M÷—°qyÖZÑ xt!øŽ5û”9ÚùÅ| z;µ;S˜ÝÙB4×ÚÚ¶´úù±xVÍPÐoÎB&4¶É¿—Š†Ÿµ¶gw™:´Œ}!“ìøÔÓôd~èCÕ=s•i¯àÅžìB6{}Î<ÑÝ36åÉÚF@&Bä‘ÅìOî‰öEõK¢@2Ÿõ•EÓ›m&˜?m²ŸÅ,ô‚16°,æ÷“?#PâS}ÀMýMh§?îL&èlˆ/õ›<ƒ-¸S¶»©báxNÖ±U~ÙÍáK¹MMÌkR>`q1ëUeõ{ì…ä¤ïÒ<ÊV"ÖŸ¦%¯tK@Šjå] ê ÖººsÀ~ZÔeŠ4¦eÙ«eD íW¬êvA#A¸¤yE jw¿Ð¯±>eù?Ÿ£Bz³7Þ}z UyyÊsà²ø1‚.L]jÛn¿L ÌvºKêrIø=SxœÌFÑ“Pq¬š¡ =Þœ…Lhl“Æ~s^ÊÛ”G›‘«á¼?ܤä5Ú¤ âP¶6¼ƒ€²ׄ  ÍÅêŸüƒûÍi›õ]öhÌò§÷õEÓÞ¡¹´)>‡q«ÏUo’Æ=ÆßL º0Q=ÝDÞ¢^ê9RÛÎJuô+ÐöÌ­~`u1G¨Jû-ûG«×–W+—f¥4¨õjPMZChSkTeÐí‚7FEÞȱ¦D½¼M]~ÄËçèÐieš ÜT¼5 9ðÛ]œºÿ—î¥T]6^93FгH´Úűj†‚nôxSÒXÐ cßàUmùÕ”ëñ™ô#â º°{w²;†ÖåÒì“\þ%šÙY=Í­æÚ²’l‰Hù'UÍ2#è‚0¦ÃKŸ8!4RnõjXwÌ–'ƒ/²hžà’èº48n`;ýôar~`ÅãüÍœ  «·{h¢«ë—iè á¹;ÆD\¢ç½ô´õ¥%–ÆåùÜeûê^T ¨Ìwû'¦:¨¶ÖK®ìK}õÊÔû…É#½žº…k =^ŒVÓ‚ÓoÇ>A“ÏÑ¡³~òTÚæÒ96îàöೇeRV¦IÐÓml¹ôyó`âÂ4Ëd r8˜]â/øH¨ýÐωÿ† §ÝØ zíŸ.;PÐkËËkaäÂÔ½€<N&üÐSCçˤVÐ+%©~l:íÐ@  úËâ ºÙóÐNࢸŽ„Îœò„mãö{ñ'&èÄòí«šÐzwîüЧ‹ât9xáG¿ù2ÁjŽÌ_A·XÐ_?t   Û¶¡yà‰¿êÔò1¬rºßôE:À¹¬âÄ­¥^òÙ6n?]…zAO 99(#¸aÁóçøH¨ýÐç—_DM´šSEôaëÖ CÑÀ Üø¡/ƒ:0àÏ/½í@A‡:tR%Û×Ï ‚n=ÎôC‡ À§>ø%')iߨýñù]¨‰ô4Ptð`ÊnÀ+6„ÝÏ9PÐ…"è9tª2_ÐAr×_‡Lt€c™¾ãS>jçãSgŸ>…šAO'N Œàø¡Û¸­YÏøÇ(è9¢˜ƒ²‚î0æ/$äuñ´~èðÄeñcNR:u©m£¶Qü5Ñbœé‡^[Q±º7€®üy`1oì:‚L°º ~'žq   »¯ôÐm BX_·8QД,¾¨ è \‰<t€s¹ÉÉK¶ÃD¶kÔê¯_¨GE„ §ƒy·P²pÃuñ|$t8‘l·/D˜]«¹vá²W¹——_CÙÀ WÄÏùHè! ú?ÅÏP-榸Ù~蟠là…ûâ×|$´ r0$ä‚#ýЧ‹âW([xáÚíÿ",ÞÃ0ÊzAÿЉïзýE €'nÜ›‡Uî@Æ·5ÈœE:À¹|‰[ËXÉgÛ¸]Ã+tzzÈÁš8øáÆ·_ð‘P;û¡ß+¿šhy϶Ȃ>lÝ×سnàÆ}8üÐw^z~èz&°Hö@ÐABœé‡A€'n|þ ')-°oÔn{5‚žŠ~„)wøí…zô¸òó眸(®U _}*¸­‚™Á«…Ó ‚p,_}ÃÉé v>>õ£¨‰ôtpâ6Jn¸?tëÛšõ|÷è˜=ǧÀÜø¡÷'2$ž%OÃÑ\?â$¥Ï,¶mÔ‰wP-t'ú¡×VT8õ¬†WQgˆáö4±œïn!¬æ¦x&“ýœæ_÷í¾’8Ée„TG^ òøGùY®|Oðûð”WÏ@^Ò{dBFý>(Ÿ Ö}sÉKˆkÆråë`‰ÒP&É5åY;×å¶ôó¹G^•ê½´–nÏË÷7mù±¾ i¬P® ßSè®5pƒòuDT>vï_õ%d„îëù£|.ãÖ”‡³pp¡Ë7ªæIÃЗîó»²cn óD±05e^j¨*—‡¯¬ìç–ˆì¹:6úVO°aöŠ¾œðþ iÕØð’1ˆ¸$âîhˆ¾žÀðFÞÞú­¿AËÿlA¦ úüN®r/¥9²,⊋}!èK]¤°Ë‚^Gtma¯_­@'%®W‹Fª_§ ²mŸ¤¶­Ê”JÇÞõjÚ{½¦\zHbýì~å«wR½ }ÑKêâüP¤šÔî·ô DIœ«!qè=÷)7¹K±ÛHF,Ìá|µ½5*WæªW¤R3‚np$F½ã\2f³¤Z©Af=êöä‚ža«Ü/~_á¯â—;)èÔð_Õ_x‘Þ¢Œtj)»,è}‰®-ä2K;jH1ýý[½a˜©fõ¨€Uýâ¦JÖZ†Øµ‰³~ZeË’·h¬ýS÷Ø‚&–è–%OÑÄ{•Nˆ§Cåýà€Þå Lªa 70xÏ\7!ºUÌæJzI=D³¤_ËšpÜRÄyÚÌþǤú!-LúÿÙ»š˜8’+ÜÃ%5jÏ °Á¬AØ@Æ6þ´!„Ì"~¼¶@MdÀ 2Š6ÂÚ!¾X ÎÆÂ&‘-á8DŠ÷‚´ÑHœ¼Ùd%”Ë ;‡ìÉ–6²V^¢UrΫî®êªîêža¦g0ïÂPõ¦«¦~Þ÷Þ«÷ªË:¡Ù¼;%' 5G@”<•\9^ˆ1Ö/Yy#wñŸ.¥$‚EWnKe)Æb ·öô,qevüÒmXè>BVE¶TåíÝn$ ^ûtOOç0:¡?»¯þ.árÝ@è¡ÁÍBòBG"|]™c ©gÚT?5!Ôé\;CEÕ„‘™·Ž-ÍuÙæEu®”a‰û1yª¦3kÉŽN$ð¥LÎCÿÒ–¨8ƒÓ©ÌÙ×ê²ó©Þ¨2õJ­úŒ«@·å—JÍ \jƒË*§²é$˜LTðŠÙíýù§ÿ8€€þ÷‡ïÙF¹Ÿ=kå~Žów´ öà è»Ë°T䀾ªÅIØ<(µs&”òa!¿Vv!‘ðÁ´ÐŽ¾;sêp걓€ZŒ±¾£|ÈG>þH¼HŸ—›&_˜Ké‡H5,Ì@%è-t¡Î–šŒŽ$Œ#Y_XyIÜ: ~ˆŒÕCö§xòÐýh-“Vlò%ð­7ýb“Ó©¡víã#oë÷½HdX¯y±Ý–_òÑP5»";ÑT¯›‘÷ÅLTðŠÙíý¥û×Ðßu»žLzŽP’²|K±3º¶}2’}Û·éè{¥ÈNÀƒ<¥õ”;X“%#Otœ?CªŽrÀØ?aÏЫºsà+Ç\TÅÊ‘nç@ÉQ-gSpu$l‚?0uÛÐáË9ã§ô½0‚P©œ3<˜ýªôw uÍe< ¿…Т¦Z{´('h¡“ŒIª˜ºxP7Ï5{tÚ ÐaÈò¶Ò7p(Áz‰©32 ÌjŸ%ä‹S‡Oà¬1µÚòR ŠáG©úÙ_»¿‰É“¼·-%íáHšƒ-åR¦RZÝ$Ä(5›-³;ŒÔnôÜ Ý–Æ,üfö&¯*Bä|¾U$¶.xÅìö€~óÐßþ›û{Ž÷ìoŠ[¯‰üÓ ¤MRO5 m@ŸÌÑŠî'a”Ç8@Ç!Ǥ·Õ…@}“<Ö7D½I)(Õò¶['ts·í]¾å’˜½Ð é2š,ÎaxaŒ.›žPI•ÇL£bÀÍâô>á Å»Fͺ+ÝSÔ,lrOݼsFNÃp‚¿’Åï¤гëg%RZfæØ1HÝ qG¶­ß¡6†¢ëÜMÕÏ~þÕß @Ïdzù* ×y™„˜ÄxÐZLöüi:ç@BÆt[þ&,üêû¢ åS6E1„T6ƒÛÂÈ-FðŠÙcúï ìv¿ƒå—ö¯j(dŽ‚wÔy›‚qôäõÕFqHOŸè~ÀósQ%gKUÆ`4Q]_«t'.Ê=¤'JDí@oÅa“ÝËùð\yH›¯‚ÂrDT«“±nQººA·­½½Wð€þˆTö#NÀ´ˆN¢» ‘Ì&a˜™íÞ׫O`>+ÚRÒD§v´u&¸PéžFßþ¨y× C¶™ÎqªÆ]b µ_]Ž„{WW=>= ··r[Û;,[gÝÑà†„àøÐ>™„¥Gx¥xeÙ[+€Æ ÛñƒA•ïU§~»Ù²ÈŽî1 ¾²\ÄÃ^1»= ¿xõþôOÜLòmkÃ*šJ «Ž÷Š]Å$Ã’Aíåbüj £XGloE0ز€~™&4nĆu@_‚¦”ˆ²™|„¼.mF·x¢}^XKIPg>Ct;V:³–Åæ$ôJïÀ$ü7À}íôÒ¦×éÄ''iœ¸*äg©9*­’‘ÿ8qú* ë m£Õ !ù8{ü©É“é R/Ó¨4èaBùbªÝn\MåESV­W31‚Ø-5{èG€î‰$à"ÉÛöœ1Öö#ãüÛº™?Ê̽·ÈªÈŽ*i ²â9ÅP°‚WÌ~è¢Üëvÿ,ÙקziÜ6-þ2Åñ.k8° kbBtO#q*wÑ4êi[u< G<ªã^‘f¥zyЧËÓ€vž{Ô¶Dµ„Du&@u{€V–üZoéèÔͨ”¯ì“áÌÝãëÏÔ•]œ’XêÝ<G‡ØNulÝ„!¯Ôë?R°í‰ÛíÃXð6ò"³\*œjbžëGÞ¾òßM‹Öa{e­êò ­z’€þzK:"! —"„EÀ¹rNj¸ŠmÍoJбt?~l¨¾qì†ñ@ТȎ˜ÓÀ $L@d¯˜ýÐúgîïÿ)Y@¿E‘QÓ‚ÖO4PÏh®vê ³U©+ªÑ\G·#±L‰ž i8¬–ßfî™­ÖR¼ô¬GTKHTgtQ·÷èXµu2"Ñ3á°lJÇÐŒ±ÊL½L~f)€FÚ«w`òSpËè* [þ*Ñ´´ŒKˆÍ­^V(ç2³¯WJ€ä~ú1&^dÌA§7ÈN?šÇ÷äiT·)û(H´G„vSõ‹?ýò„r³“#Г|XnB*A³œ¡Q©@ÏÓ÷F, ãÛ±P)¾® ù9Å' £í Çèþ¢²5HUîE¶FÑ<ù|‰:NðŠÙ ÇõóßñöÔ5bŽâkÃeë^Í ÏÑMälU*F™˜gèÃÚG4)—^^É„$5Ãœ”©3RBµ S-ãž1ÕÙ¥­Ñnïбù†ro4® D‘ K‰æ40ð ¬­Žw#c HÆÐñ(ÊVŽ÷ÇF@µvÜFï€éÈÒ®v|ZEÓÊè:Ÿ$MîºÖçüZäœJ‹lýþúCÐgWW'J#z*p¸‚žgZÇièâP‡krå‚v“*óòÅ·_îѾÎJà‡frú«³_ï' gëÒiÝCRL5×T@£dèBþ¢&zvµ­ÉGA‘2øqMèœà³ÛúùÏß>`€þw·ûãX<ßûé71î, ig{õ¬]ÜÖô°6¤Åöj€>­+ýê¨gžÀ]ýêS½ò‰ùMƒå8:®ÎÈ4}†©–y¾©N è†nïÐq†F%~æ Ýgðÿ3®AlsPY+ ×ÃÑ‹?þi¹ Ž§›` ð.‹?{™^¡1!ý€ÞÅ»Üëœj¢~úS]o¹nèJ ¥zËýx)’Su†O:hÈ'“#~G&ù°Ú„ ùô›ž‡n èÌK:NpþÎI|Ê9*Å èb~††ÍΦá8üOcºÜ9Á{1—û¿¯þê€úÜWœüûЫ5[e›ÔµS~}¯@ŸâÝËëB oª)`d•¨åç °¼¡>E»#JTKHT'ts·÷èÒ¼Eâ»"ÉúupEøåÖ}ŽT¶¢„zÈçiÇsë&A» ‰®˜…Á7„à½Ã„µß}ÛµÃÁg‚³AqŽ]ôwI¸_ãÐ¥&ÕS–—c¥ ÐÁú˜'#÷_J¼ „‘k"@1Iá§Y¸ì‘è1g@7=Þ‚Ÿ!—9ÝÇe•Ä<¾–‘  8^ðŠÙ[úÝ¿“< Õ+îgdrUZ¿:Ú+¹qz«Ð'”åÔF/7PË É®3ÔÈ͈¨–¨Î è‚nï Х暻ÑÊê2ìÓ¡yèËÌýh<5¡Ì´æ"ëHÀ¤:j ŽÃJh}-¬Ê6í®*>öap_†ƒÔ&Fçß@¨Ö©&j˜¾ /œx@—:.- ^^8þ)ËCñÏÿ¼€.¥Œ¥¯¾MÍKéãôBF:F˜ù)Á!è“RÜ€nÅoèÒhì"cïw˜‹¼Moñ6 ^1ûaôǶ/B×®žyü×X¯ èS êâ /¡ºÏšš5 ·ô,Æåžg|Û˜ÔU8ö·“ô & ˜>#¢ZI²®3º¨Û{t|ò˜r—ʸVÏÊDY²Ãžâ¼û¨F´“ ϺX™2ø³.Æ­ía”¾ñ}R«wøÓEó‰S?óΠ6_bzy 12ÞJÙ/Žãµ Gik©¦½›%N@¿Çäplé†~±qAXŠÐ-ù¥È »nZÙô¾‰9yËxÁ+f·ô/~òƒè¿ø?{gÅqÆñ³ƒê]-{ç³ÏØ16ø%Œ1¸>c 8.rѹ8Ʀ†`B ¸ÈÒ–&)I[)Š  M[ÓRUŠP -Ú€š*UJ ý@>´ “Ð~³Ô½}¿Ù½3Üy÷vþ¿/¶gÇ»³3³ÏggžgøŸ¤L.iך,¨sÕxÔd¶Aå¨L|& z‘Á )aûÔ2㡯jŽ§ï66Ûk‹ÐŽªÐŽ%:­ØÃôœÛ†÷[uÉX©÷¾¸O,Зç=êÑúh=Œ3ùúRFÓÒ*ÕÆlÈ\¾°ËðM=&]jf¤@û¬Ý«OJ,•Þ¶\ùân”Ô¹¢nŒ+Þï—ɆÀ9æI“ oì7Œé]Ýú‚îh‚>ÓÑ{ªö¥”,ÞlÉ 8ºÛüm‚>^^_¥LIrd–áe¿È¼lfxéÙ}¶Ê½çH¥€I‘šóh™¶¦0__PøººU]¢ ¯Ñ?“üœ³ úmé ÁšÇÓÇ61[Ä ¥æ¡5XÅ„c;­‚N+ö0}Ž¨}f'þj?™gŽPÜcˆ‘ÜáÑ9ô×8=¾ú’´~Ú•Î,˜ÖØ=.)™ú¾ðJ¼.¿e´ZÝ;ag úî‚ “oQÊÈac…yÝå}Q^¢{äM7Ç»5F’/»•_ûsõUttzÚÄQ]¾¶«Odg š*èöùGÇ#–¨ÏT=É™RÍ?>§€Ò-†—žÝÛ§¦CÐwI]¢G›ã,Õ›1Â)#‰DAï×6¶“£‹˜6èп“ÇÓÉŽ¶J´ÍòRe‚DoÚQÚ±éÖNC+öpFèÚ7ánûB·Yè⎠nÍ 'ဠÝIy·aØ}sX´Æ¨ ivã€ò™†$)W¿«çß4¢û¬Ù º¾iê†4F~•ƒ2ÔÄ_læÖ™¿6¯^Á ‡4k5ÑÕ> ö{©Ë®Þ‹薊ΠÏJ6¹4®¯3Tm'Áz© ºC~b• «ÃB|䌾 êÍËÍbxéÙ!èt$qŽ•pÂzíƒsH–Á~9J÷Nº “H³UWq‰‚^+x_jt9`Kù‚³š„Z›jiÊQ ʱ'¥Q»iq­ØŠ ç ¬Mö,4p\˜ØÛre²šškÙ`DzPÙB“€ ÁO>á¤ÇË΀s¥z‹¦ÍrçÔ%F»•”,,OÔôV¨NçRRLî ‡NKCƒúçŒùî zŽôª·iI0­‘ø×KCô·‰_ùúË ÆxõVŽë&Dµôt„Ë2vßÞù‚ %óòö©g‡®¸"è=r¿~A2}u$–Æ ¥ŠÛM ¤.èÔüêéÉN)¬*PV”$[»+Ÿ_ʶ;'þX¨ú¯žžbxiÙÙôד÷‰&ãÎe}d©xMÏóM¢ü5m› W_Ç’†IR¥†ìY«sÕtâOj‘·XQF(ÆI<ª“x¬Œ”2lXKA+¶"è?å´ð¶öÏÂzé.„–‘Íf »¡X¥« I\¬šróâZo“¹äf÷¼Ú}ÒcL_É{]…†¬[g¤i®á•ÖJ5Ý_}G’„·Ö¬i“’¢Ú÷‘ˆÍ2™‘ôÀa©=Oojí,æâ~yIê<ùoÖ¾㸠ïÛ]ý{R%î«-ýû2w÷Rp[óðCOtmœLÂdEo‘«Æªƒ"Q'šLЩùÕÓ¯&^cÄ †ã9%ÉÖîÊì$6½»3—Ó'éôQ~‚á¥eO"èw‡ŽûPЋ·O3ßñw´65Ö²]™ú¤z`ËGJ®¶¢A—£´ÔZ=GÝBÙÐ6ñ¨at˜x¬BÞÀ‡Rìáz`²W'jkÊÕœµË̈ªW)íõª5¼¨–±"*ºÛôä~èJë´±¯ˆŒV [úÈ6²s:MÐ¥—¦:‘£ÓA_¥†}5§¿Ô¤3wöR[ÄzÔ4²ë'adŒÛ–SŠ=,AôOŒI—(5ºÀß–þÓjù§G¤ DZ½lëÖõœ. EÛ6¤ÓS7LtIÊ"ÁpdŒqŽ„$#Õê—Þ®»Ü© ‹ãØÒñM¥¡ºç×¥û2[¦5L(ˆuÎ,wºzÎÌÎü‚XÍι™¼áËü96=°è)Ïmˆ¿á² Š‰œ›xF;2,Aç=x˜ÁPdœá_¬II=0vRPàÄŠE”ÒÓ oBvßù¡§´¾±ñR€y¶§°J_pã2êÀmî^˪âægh‰K†í®³ _Ma§“,œCß{W (K ÀGdJÐ3lw“lÎòÏ•Œ®r÷=¯ !TŒ  gÚîÂmMfˆÜ8ÔþbüÔ—=ãv‚Î(ÓP€®22ÉvÔ»«Ü».Ÿíʦª”½¥£#í¡Ÿ2iwû:::D}ù5˜8˜á2ÿ?6nÔË~èŸðYevãÛúæfS‘_}ï è—Ξ÷ã*÷úz¬r€˜ñC?ŒÀ2tÇUî;˜õCøƒ[üçlÜhyóCt`‹?ýФ)à.]ÿ/*Ám®ÞÄ0Ê}AßïÇ9ô­_ i°Ä•›Ë±ÊÈzà¶YÂí3¨Aø—¿1âÖ2K(ôlÙ.a ‚ž¡ýS±&v¸òå'lܨ—ýÐoÖßBOtýͶ҇‚>eóç]hZX?ô©ðCÜxö ø¡ èÙÀj1‚lñ§:–¸ò¯;ŒÜi¹w‹výKlJAÏ•Ïá“;ì€ç ßyÌ‹â*ѵ°õN·5À@Ð ;ØRщJt€oùô#»7xyûÔ³CWÐ!è™àÄu´,Ìp ~èî·5÷¹;t܇‚^ŒíS`füÐÇr"Ø%áOÁÕ\æÏ1r§‹žòlцø艮 ºýÐÛ/¡m`†ˆiâ:w¯¡Üæ*ÿ®çÐ÷~< `ˆ¼ºÒ—«ÜAR» u èÿòÜÇlÜç,NôlÙþ°x :"=,_Ž6€öð?`ãF{9Á³e{ÿ7z¢Ë´ÿé¼½½¾¾m +üŒÿ:7zÈÂþ}þUôD—yŽßáCA?ÂóGж°Âüf6ntá#c<[¶ßóßDOt™Å¾ôC_Àó ж°Â×~ñ*ÁmŽ=ñ4*Áe^æ÷ûPÐó¶nEÓ`‰•?¾§åcXåø:Œ¼é}u èÿò4#n-]B¡gËömL¡CÐ3Cq1ÚfX¹â=6nÔË~èOÔ€žè6'+}(èS6oFÌ"˜?ô^ø¡þüì>tø¡A÷!ßK èÀú¡CÐ`‰“¿ü#wºÐ»EûãŠ=è‰ô Pyð`%ÚfÀäåím|̇‚žW =€—ªìt@ÐÀƒ|é@%:À·,Øñ!7êåíSŸ:‰žAÏ'N `ø¡{¸­¹ÏÃ/÷¡ ó|1ÚºÏXÊ@Ð-/ó§²LÐÏŸ8×ØøÛ÷;wôC_Å%ÍË£ÿ%„êÊísjÔ„]ÆSO&)&¿‡BŽ›“Î:ãÆï°(ÄqÁã%Ö¶NŒŽÿLOz¿3,p¡ûð€¬ç<ÿWFîtþZÏíEþ?#v-'ëesÌb%ãäÊf½d8§§‹zîaÜîL3n‚ü˼¸ -µ?}Öù¡käù<Ï\驽±±ýÞ]õñ) º©+4¸$èÛ9C'x¦H-ìÅQjZ›šTx@MÚ)(I“Fe¡Y‹Úäwj§¬m. Í.sΕ2ƒ›š ƒuo¿¤DòxÒÒRsÙ$å­Û –6·æd¶Vªó¹ßèØu:6_“’”ùú •c[Si(ڶᙴÝú¯öø[Ç9*Þ*ãñK9Y/»c&+é,èI£õ\Ôs·àvgZ˜Ï¥,èÇøw³JÐ÷Öóû÷äù{#¿Ã1Û^ûcSCqD©f”_›â‚ÿ£@”+­Õ.§YÐ9£ ¹#褙µN°p)msCTúÑ¢¤]$RÞ½¬ŽQÊû¸ô{𑚘ô£3ûÌÛW¸D©^SÞÅZ+r¥ÌtQ}òÊÌš‹žÔµLI gô{ȨNôï~U¹fpQ¥}RæëƒrÑwzÔ*9Š þô‘ÃÉzÙ3YI£ 7WU­IýôÔsÑÏ=Ì‚Ûž‰˜ïÿ³w¾OYwWÜ÷z¹ç‡‡æyAF‰5! F蔪(‘­•*BLÐÚf¨¦‘Ö_M¬¨HqÔ˜!3©¥N$-mL;™NóÂf*3õMgš¶ïxãø'towïnŸçö–»‡çžÇŸïŽïîíÞíîóýì~÷Ç //++S…@îg»Ó èË×ðÎùȯÿyîÌ7ÿC@Ï2pqu£Ô&›˜1@g|î  gkõm6‚ë蟲­òQ÷b!U=fR5`Õdµ(ÍW¢°Î´ûA?j+¬Ë$V£7ª=Y©¡³Ò>–ci× ´ïü2”ê¾µsÊ@[)7Wµ` 5 «5'Ñ¥×ÃRѲ֞zúPX²h=Ça[•÷åÁÉ4¢ù‹¶œ<ÿ.2kþž «3@w+"ëec%Y ¯p“­µ)ÝtpTÞ—'S4JÉßDϪ¡ ¬3@w)"ëÅ‹±’b ÏbcÓ²MÛ݃ۥÔäŸÇ@ÿ¥|-ai‰€®Õó” ¿àc|îÙæ'è¹ÇÀ•ï˜  C¯ké`õ.À>Ó.ôÑ'ØN4¨Óx)Ý~Ñ´uÙpŸ\uœ³‹å¦Ç@Ç“ë-3l B ôØÅâ¨N„Édñ~T#˽*“¡B(0€ž¨!—cù¤ÁQy_œLKƒF! „4 ñƽ ÐS-|9I‡¹‹¬/Ìb%Å@ÇØ´i»{p»”Ðoäʼúïå3¥w>ݵëï¿ÇÛ¹sŽ@G°ÎsôÆç¾M G } (þÂƒÆ ‘ !ánè>”îÁP«»¸7D@ Kìo½6;Þý‚Ùšu§:ñ넵¿hltŒööèdçj9&öŸO7óßþhMÀ(¹š‚zË&–cyÒü£*v×ß7úGœXÕ2€ÓTµ}í…A¯Êdü{  ßî7›o/_å}yp2ý‚¶J:X¿š—¿,¿•zªåsù¿IÉGd½¸a+)ºØ8Ʀ%HÛÕƒÛ¥Ôˆ~ÓÛœ}ã¯Ò èoÉüXÆòµ¨3¸qÕªsúv"úM¦¨@™0€Þë7~u‹'HøÂ"ªØÀ}3ÖÔñnÓãƒoÔèʱ‰i ËôÀô¹Ïø[±æ]§_Ǽ^=c`ÓDrÔØ%%·È›¦×gé°Ï˹<°•\M¨à‹Zºàîm,«ªßg,NôR>B­h½ôÆ1Þ p–¯ò¾<8™¼««N~•9ʼ߇ž@OÖ>t‘õâ†Y¬¤èbã›– mWn“ÒjdØ".€þ†xµø£ôŸËëä÷îݾwB–E_‰sô=t!Ðój]2}îÕôQmY]aKKX[õû £¨PõICuÓ  û0Æ•Þ !¤ ¿ í½òçؼDM™æAú?õ@}Æü5-…}kš:sô óz[YgDzÈ mL8zª¾d>ßÑÃa/¥•5–+›QHÜäçFØIT-Ýö±¬ªq¼cÂkY’-Ù&ÐK ßž$l⫼/^¦9Ÿ-dºœWòú_ÊG3@Oµ|*7)ùˆ¬7Ìb%…@ÇØ´i»zp~J‘ýˆ¡ò#Q-ßÊQ,‹ê0Àxwˆè–þÈ;/ä Ä}%ÓÁÑÎGšæª¼/q¦ë,”22O€ž,Y/A˜S ;1ŽñÝuÊAÉÐw¿½3ž"MËý‡ôê¨ü‹9¦e:°Ð£1%G@׎mÒŒ %è5Öâ’ÜPE57 Wç†+ÆBû¦îYFvL#˜  |ȯnjsoÆÚÈj¹?…º ¾õ¤ó¡w$é<Âß{àË&moÇèäPq=z£ Ùd$¸Uí£%måF–Ó³OêfXu%3¥Á«ê8è_Ë7+´â/ö¤@Öøq}š@Gù÷›ã˜àª¼/a¦¹SqlˆÏý±ºÈz Âœ݉qŒènSnòC ÏÐã”Týoò7èÕÇòû :#’C Ÿ£>÷Œr붵‡>223kü&Ð+­–“Þ  ¿´±ÏÉ«° D[+yªor0 ŠBFè7ü `Çç%Ô|}Zç`-ó0ci7BßÊo3¹¤]¯³†F’ng '– ÉÝ—ÇOµ_-¨e‘yk„±,*„8„[mÝýÐ:èÅ>ô¡0'£€ "ÐFtŸ ^qÎQy_¢L'¶ XRF2@w'"ë%s t'Æ1> »M9L'¬æ/Ðÿ ÿÕ¡Ÿ™cZ¶@WóÃ3’S Òž5;èc]Z‚xÑ›ÖdBÌlâbèìî¡è$r&{Qs笃˨æTa¼È¢žCäYçúˆÓçYc#[ZºÜ›nôè—Ã;H±@ñc9—gÂÂË nGÔ1[ÃÖ¨„8±¬*í\4ºò«© Ëƒò¨çi÷ažížœy0 EºC|•÷åaŸé$±‡¾¨"8´Qš×’@59SèBë%s t'Æ1> »L¹ýt¤ù ô;²|_üT–EsO=гœÅŒºæ! 7ì=7€>¶Å܆†›ŒÏ˜BÇ=5è† Örƒ4¡£YÝrÄÐ¥rþ¿ÿ€¤à6ÓÎ,Fª$¯Ò¬dêA£öô5t«ÉA:—»5–cÉn Ëñ"ѬÓlP‹£ºŽªbÉ¿òÄ—A¯îèa€®•ÿò (Ó6*¯ËÃ>Ó ÈJ%Ì2íÞõyè©–WV}™”|DÖK&ºþÍdËÇø€î.å5 äO¸úíÒxŠ4U@?´K¾†økyÝ«öÑž;ztö3‹ôrìs¯$[ê@ßFˆj9PDšL>ô6èzÝXo@ò`$®1ZáèRë†MáíÙšW'ŸÎò,Ÿ¸,í~G–EgÅÍ}º  ßÀݧ Ù„@þ}Ô>üå]­TE]îƲÐtÎ DšVVh#wÄÐuYI–ÕM±_Aù´âCíŒÁÖ[ù—N’…Ë°‹9ÀdœÙ˱T2£ÐÔi³D‡…±8ªÃÌJ˜ý^xCN¢ lÆRjn^Fõý'‡Ï÷”j¸Mö*oËÃ.ÓåÈFµ%Њd€þ]d½aNîÄ8Ætw)_Œ©lÅ ÐÓî{èß“eùEY|®Lr®ùÜûr2—H~Ý‘K£ˆW²–Y\`:çS4¯åfÇ@0*ç"9X³–ÜJ* ê˜ œÚD¿™D‰˜ÃBÔÝY‚{U†b¯¾UÊËÍÀ\YÐoºVº…±8ªmÌ£ ¸ÝÿíDÇüðcs¸i=Û÷¦Ëã~ã.›L·«×¹îö¯Od€žjùÓ®ËIÉGd½aNçÐÇø€î.åÇèÒ¿ß^·j݉ÿ ã”~øáì3 ú1FjÙ(гÌ匫é‡ò™.–K`:熆EwI.5¿®2ÐÇT(Ð÷ô˹#`¨4×4~•<€½”1Ä~œ= RRŒá¸æôEuÝÿöÎ=6ŠãŽã6nVËÞÙçsýÇö96ÆàÔÆ©ƒAŽìÚ>0¯âòJ0up]ã@ˆB›T¢‘Á ^.mHd*•ÜÒ¨-¨‰!¨ ©ÔBx Ò¤ý§BêìÝîÝÚž[ï=önßÏ?˜¹ÙÙyíï;;;¿!4ÛXyƈ¥™F…[û¸¥këqÝQÅ:¤8çç bºZgA¿¸^ñûêpAz×û¦´’ü‹q­„©kcŠUî‰j5ëþ7­‚®Å8F'èѤ,Á7ô¾ª¥&tMj2RñôBÊ=ÒTª$èõ¡åŒƒ$`ÇÄýb¤]±šG :ã‚âPPFoèîàKSi`WqïyÛ»qÒgÎÁ.Òo¾Oèô|Pnà©è¾àÉj=ï{V,­tËëK/–òLñE0;#hQqȳkù(#³ }C_,”È“2ÙÄ]ÇÒ¿>˜7]@ß68€å=Q¨Y¯ð¿it Æ1JA"å=ÊAUŠzEÜ]œ]ä¥å‹’ ï¥¯.~òõþy“n©1ýÞàc‘‚θ@œh,ôÚDˆ ®ÑÞÐßß?i´N@•-ã¨#¯ÒëÉCÞ¿ z]9MÉoTO¹¨Áݺ;Iï žç½%W:emnPËVâ K+gùà°è‡¥¡õve„lUźp+!»#‹SÑè™ ;<„økŽ<ùÃÒ½>X7·2îrz´°¬×Ìþþu˦YÐÕ’× èaÍtT)G*èÑAW úßÅgëJA7…VÌl­ l;ç·zcÅíW‹}óÒÅF† :ケâêàÜ…ÞRúV8Þãýc×h‚~œ&Îg6,—ÒI»Ö´ø÷Œ/y5“'ÁYÏnq¥]©OÜ’t¡éšŽJdÆQñeÙÇûµlgq·9eß)F,ÍÐt½ÿÐîSt4U.íõ{ú±AÇé+z«è€}|·ÂUgAŸAß–Å¡ÛØé´òÂé_#oz§@yN€ GÃzyåLX˦YÐU“]ÐÚé¨R† '^З‘àWjÙm­7øÌÕ>*ODÞÉ”‚Þ¨é¶Æ¸ %;¸b¦C³ ;ž”÷Ózä ÔÊàxß“ÃÊäuµ‹L×t?=ôzz&ÓáO³´ùØD:‚É)ëñòÁYmV,­ø'JšçLßCøôCrè'Š}ÂÄb]x”¶È˜Þé½i„TÖéY/ AG;[îžÏÒqŽÐ6HÿúyÓåâÁž ñáÌßù1=Ù,9}2Q·i½BºβitÕäcôÈS† ‹œ8‘HA×:l*èŽ)ÕT`„Œ…âVrniåPw@„ò6CЙì÷r½kºcýŽ4žðõ“•»Æ¶å¸x"÷+V¯ýV:OÜžïšrÎí€lÒ6ɾŽÎz)(¬J¬Èïày\+tˇݨÄb]8à‘Ÿâ<]«E釞:[ºgñ6• ýëcÄM›‡jRi\J·5(·5¦õRèbË «&“ Gœr„‚>kó1 zÇeYò±ÞdºïÝz1Ð?˜žžùX‡"¨î‘Ú\—§õIõXšyyfN†«üÝÕ¡Í××â*5+h\[C¥;Í·zƒ¾•2dc™ s}Ùî´ÝŠ¹ Fþõ1ü¦éôXF܆Í["=^„t›éÑŽO=mAA×ä‡nFªÉ´€á\àþj“’Î]cجmæþA×ÝL[Í] MUU–<«áqÞéŒàWûQÉfÖŸÍ—g=]_3­.èïqg,(莾>+>0ëÙ“€]g3­.èS__eEA·(¾6ÔÄOÐk½Þøîö¤Ÿ™žâõz¸­€%([:ˆ¯ =XЇÆÀBR:Àʼø7{”³&t¼‡áøýóí¨A7… ¯\ €mØϽb‚vȇn¸¢'&™¦?^°  7UT4¡m° ¶ñC0° ›ÑÝj¼Èí´  [ÖÀàCn£= º¨ù›†ÍÛï¸ï '&kú¡Ïç¸ùh[ì¿ü*!Ù¼÷ôs¨„$óî ºcûv4-;±ê§Q-Ã*wÀ@Ð ñ¦÷·¨AX—çlâÖÒÂg6o?À'tº>de¡° «žùÀ5²úÓ¢'&›“…ô©7NEÓ`lã‡Þ?t ÂŸžÓ‚‚?t è¤N0î6¥ôäcM?t:vâä[¯Ù¤¤‹Œ›µ?<³=‚®…‡¢m° øĆFG_ÕR º£zƒ*ó : è`@îx|¨AX–ù;?¶GA||ê’Ó'Ñ!èzpâÖx€]øwÕí$¼aóö)w=1É\xÌ‚‚žÅqŸ§lÂ%îª= :‘†ÍÛ§ÜeôÄ$sŽ;mAAÿ5Ç}„¶À.\ãÎÛ¤¤‹Û ›µ‡ÜmôĤ ºýЛªª® m° ·¯¡’Í×7QÉæwÆŠßÐû.¡i؉–Ë«,¹Ê- À^Ô9 è` ò»Q‚°.7lò‘í¨qW¹·\;ׂŽA׃•Xž€}¸Æý×FxÃæí3f7Ù\9wÁŠ«Ü+*°ÊÛ`?ô#tø¡'ŸÜNø¡LÍ=î {4¯v2„Åš~èó±S6âÊ­ÿ ’þvx¯QÉôw¬ø }û¿Ñ´ìÄõ»+±Ê0=p[“pÿ,ê@ÐÖå#›¸µÔð†ÍÛ|B‡ ët~*ÖÄ`®õ™= jd?ô»÷Г>²-´  OÝøö,À6ØÆ}üÐ ·Ÿ~èºø¾Aa±¦:;qýê—6)ižq³vë+JA׃ÂÃç1å€}ÀóŽF))—^ZjÅEq…èZì5¦‚Û` è`¶ÌC%:À²|þ¥MNo0òñ©ç^GO„ GÆfNâµX'né;LF¿À@܃zòÛZòùúá1s ú[Z=KËñ©m%¹!Bö‡"¬³ToNÜê?oB=OOã§Ù$ˆ«rBª¦äœ„lcÿ’AÈ4mY*Ê%Ê#—¿ý‰›çÂNe”Ær7ᵊ°ö-Gñž$ uÖìÈÉu¯èyJô¶Ç™^Ý8)öħ“¡(†jêIƒj¬¿äWg8=­Û’ð\‡òF)Wdm­.õÁhƒi \õÕù/«·T¼°úD"Ø]Ð;Jœ‰<-ÑA©Ä³b¯øOc è}QÊg—VŠ|RBmHž8”(é}öQúH¹,jó·'ßK3øX¬é/÷„p2[!Íe$(šÌXGèý3{_(¥ÑòmZygiIڠ̾ø׫ hÛ;§QQxF¬xrÛÄ{š‘˜sº÷fn2C´H{›ÅÁr ;†h$yíw‡ߊŠ† úlŸ¯Wsò,c8âŽ1äžñÛð .Ÿ,Ep IDATŸÏ'¨ ú };÷#-Ñú.©×«hh\­÷ý¯êb3E¢Ðqtú¾Ãw¦¤lCH9KÐ3åy6úÖL5$ØêóÝIЋľôyþ¢+¤Ž´?§‹=jKeøÏrœ"¿¬·ÓX³jCh¯÷—kÍjåY©}ø²uôkœ5ÓR\£˜es+Esd¬Ôrªe¢ér…eéÅÐ¼Ñ ™®ÃM‚%e´ÁbjàüÐ.§l~±€µ=ì£zV"Î ½@ki9sÌI˜òº‹Z«¡!ô¹‘$Ï2†jwŒ0÷Œß˜Ñª‚Þry•©ý5îDV¹oßáÊÿ+ ½j&XÐK%ý£öÏ­&è))âteM,·Ò&è³ÿÏÞõÆT‘]ñyôCÏdúÞã= +ЬXüE0Cˆ`± ±[!(©ÙÔh»Ý†d%ºÖˆšH‚ëZ1[“&ö ñƒ›lMݶIƒ&¦ÛÝmÚ˜KÚ´Ÿ{î™;wfÎÌðgÞ“?žòœ9sï™{ïœß½çϽ ú¼Щÿ<‹ßo±ý8Ò' #qcùuPÌXñE2³sQÓ0AFò†˜TøVè—êcP «ªY I¦âÙG ÝâÂÉÚ=ýZüé$‡l§Ó2¡oJôÁ¡\q ?µ›\늊® †è…ù­ëÐ7d뿶РÚ'áµUY‘è>ÅSÊЯÆÅJOÜ#Ùý}µE¹ŸRÿôýOÞúΧ?}m€>‚Ÿ )[ÏÆ_ 7Tqë,%€ ÐGp4N7 Ï_ÆZ´ Ð+pàšn'\Ÿd«ö—nÅ øDÕ÷yK7Õfðóî“ ¸œÃ?í•fßÞ«ª{ÖKr[Ä·@mqí0bg†K ÚI¥ç-âiØ\¼)Ñ…Ö'2f ®uE0  oZpôÕÚ$œ©ÖóBÔân†T_¼f»m‡ ûO)C¿+=qd_S€þ#UÝ¡¹¿þÊÒ¹‰etÅß•Ó j */oJ°nã’f‘§l°}›(f¯K&n”AÝè Îxƒ„r)W†,zªñQ\-þè’Ðçä`6'$z¶Z€Þ °Ë¼yRg7Šì|}£þ«ÃžnjØbþn×—ÄûÆÍKCªé0@î¬mÈõ»ÝâÔ `Øo™\‘:dûIšÂ¯ÄzS¢†'º€Np…J_üeeQŽO Åb½y›ãÿúqÚ£?ÏàŠ#"&ªpÃÅЈÿˆ^Qµ%»ƒݯxBúÕ¸Xé‰{4ûšôTõ½§×~û÷×Ußÿ1ßðŒ,ç{®f^×Ây"Ql@Z‰—ÚƒÝÁìqIРλ.cÇ!Z·¯Ð'< D@¯ãŠ Ä…`•³6@÷ÆsõÚ…ˆ"ú.€ ’Oè««½Îç¢,º?  `sFuÈÈ”H:¸®¿`b¡É•p깚%,ÆŒvgCs©Ð%®³¼gEÓ]Ì\“8e+gKéþѶñí!Æ+Êíáî‰Fös-KÔÿ­@ߺ‚ý35íQqEÂÍA:Ïy çÑ)7¼Ö¢ú<¡º_ñ„2ô©qÑÒ÷hv@òñW ûôW×øá+ïªêß|¢Üwìð‰rñÂ4æ~…œ–f–·«° 9M—óz5 Ó,r· ±±U¹ÔfR@´b¦/Ùç“P<””•€þ Ú«ÀÄ8~k#& ÷ãøæ6WÍ 4Ë€^ >æÎýku•!ú-ó¦á¿ÅRì ;cš«2ë…lv±çnÇQ\ªG·½(uò†î$“½_ú"–G¶Eei3Ô*n@—¸ŽH©ˆÓf'd‚\²mGIò9JDo„–ÞH/²ßp:*»â› äZ>­ø<ôõèÈC¿.)Ås¨ˆ·S  õ*nxÝK)ÐýŠ'”¡O‹–ž¸G³Ç¢Ü±*·~ýáõý¥æ¡÷à3íñ±h|7–cZhÎã¥Qsñ‹S)ûú~?þm‚™¸äiLÓRúMzdªnyzYÖ[¬¨wÿi‘¶VifâñHô”è—@²|z« Ð/Kù[ðÑ÷3“#£fðt±PD›§_”6)×ô”¹ # ‹3\ ‡Qøƒ8h}¶Ùt«ât™ë„ÍS”zb)‘Î5Œ]¶6 'ò;©ÄÑÎ>0^»«•`¼ÇŸ+úRýj}úc±4\—€^&Ó¸,+nxíþQº_ñ„2ô®qñÒ÷höØšÊCô‘ߎ8ßóÝ)Ž%éN×oƒˆ÷êˆënáTÜÒËÆ:Ú èš±#˜©çm6ë|o2ŽÌ¾±LB_SbG§Dg# ×"è&Q¸^è à ×`AÏ­Úá à1þj¨LXqz=›=T^}AÊd>×H%ÁåpÖ¤õ‘=½h*–fçŠr7 §Ðe®qœøƒ_nÙ®0‡PÿÙ±6 e¥Jøíáê.òàß»\áГþw¥úÎoyèž¼—ÃÛ#túâÙÃtW±K„ë(J/8wÍ;ª«f¼6 ûf ûO(Cï/=qfôW' ßWïû¥«ÿÛß\HæVÍIv™=zì®h¤yÀÐ듦£–`¦ž—è°îêÖz‚}æ¬W¬‡M·¶è·7îºg)Ý×ɽUÛ®®€>‚ïV­Gv^àj†g¡ãû³ =™Ÿ>©;èë÷iÝ|/Ë÷¿]2‰RçqìNá”ãVÊüæÃ(?` ˜fg òè6®oÔ™¿»C³ü’[664$9!%æÛÛÃÝbIÃf¢'R¾\ë„¢%”uLyÀç«œ&œz¼;ÑZ^;42et¿â eèYã¤'îÑìþ€þù³c« Ðóç_¿>Qß]j”{±‡I«RZ¾N"O=_â‰Ð¦Ýؤ¥.@AÝ–1׃Nfêy‹X€ZlG[×ÓS]#.@×¢œt ÷œG¬‡‹m€.[ðJ—è£QÏÍ•<K˜3Z{µu4”¢[ß/ÑØçvÔª<÷[O°À±F?€í’elÞŠ¶´ˆôµAvN[˜œÃ¥­õ¿6ˆrÇ‚Ðm\7%@$vŒN²=(éó7lïV{} :ç#·O&6!×K@ è §|ÉexÆ è3FøŒ^7ºí€î[¼[zÖ¸é‰{4ûšŠr¿ožÉòsUýÚR½Æc“–I³f;j?ÖÂœ•Ù}ÆÚí”`¦žÄÚù³\œÜr¦®IAqÝÌƳ“®ƒ‰:àôúº›U•Üð]ãåؼ '8©LtÃÇϨ8ÉÝF¤”¿ú0NÅDÚ<þ|œùÏüÁ.sg2Ãcì#ÞSÚp8jÄrÁ ˜9¨N@·q5ÚMîÕ™iOÙtÃ6 »=È>t6iÌ(}¹Ö>­“{¨ÅÇh}'ò ¯q2è˜ô_‹¾KzÖ¸é‰{-K0¹¯2@ªª|‰þêÏÔ÷î,ÐQ­Yb¼ß­Ë <·ÁñM;1M°q2SÏ‹µ}Ôˆ²`™áûk³ +J¤Zßg•*0f¸É%@?³5iñ˜€Îiãâ]9­›âCŠÆGÎ(rÌ{ÛôAV!-@Oiêi§>ªRÚ¥¡N?va¦W)eŽ œá‹xÆçÙ°/E¦‹EJÊAqùiOÙ ÆQ1r{xô =r<¼'ײéá“•èáÅÝ[Áǧ>I“ Ý< j•*i49ÂÊîj›¥àµuôU@_Xñ„2ô¬q ÒS÷hö5诼­¾ùË;_ÿ݇°{òý#Àüeõ=ͬ’¨í¬½= 8 ã¿3ïHTëô ùä ‚™z^TŠãl·˜ùáḻ•›}c™rðHêaÐèƒ(šU5”#z3;¬'ð84; +»w^™)«(e6Ÿ„¾8o?¢kžiU>(Â?3G= œÙ¶°?pü|Û‰³‡˜4aä¡WÈiŽç±[:9a·euv^ ¹Xü¡XL¦ÑDîžz è‹ôƒNÇî:ty‰,yžóì{dyÁ+Ûöꪠ/¬xB. ÐXÊ“ ¸Ç†ÈsÖ4=ÚWèÐÔufîü·ûî`ìhŽV8¬üˆ-vÏ@½¹7"p‘SRFÒ’am„8>Õ„B#:À7F‹‘×V­…4ý€Wus©陡ÝŽçtý;¼qAŽgŽSšà ¬åÇ•¥l‘‚NþV­cÍÖ¾ôR·;0² ú/d¥r$$èÝ®@@ÎúP ®fK퉎ÜËe‰©O÷›‘y¤¼<«.VÉï0d‘>Àçâ :ÇWOa û'˜Þì…Çí~‰š?%÷“Ü28°[ý]zOÛ2Û‹›Ïñê²ñê¢D}Ñ@® ëÏk ‡(躱½Æs‚ ó¹¿ËëbƒÌÊÃᆱK Ü25O ÛOëÇ­™È9ÍÁùð^¶k‹g?·Oã™ëdœ7›ÈîeT;à|2ƒ/èÎÂÖ%ÚÆ zFO.ëMæÔõ°–ݹ=\ÐýûجKTÐ3z'5ЛFXÐߢÁIä†Ia»ª>ÕÏò-ହ·‡+™3šGe7”î5æ°Ð^ÚIn‰+è<_ã« Ýå[R±»}äìA߀×åñŽžš”üà—ÿž.ï@‡¾/£øüÁ—bÈYŸ…7–9ÿhЌی™Lngq{ø ‡¶ ßÓ´»á º^ð¼Æpˆ‚®û˜k<'!ýÔÍ´ì};ïÐ -v‡ ­¹ku³5£˜jaA7ÁlÍH4}Ø$¹]Õô¯´¡ çéŸjcè¸<ñƒ/rI_và²(‚>Fl;ôtô$·«ñÌÖΈg‡n_œC8ÿûg²BìÁ5é‚ )mѲQ{$Ý‚ '½]ѽ±ªêŠˆÍZI¼ÿ^ãd{Ã` n]C¤š¯n¤Ut“#èIoWõýºô¾ß¡º,Þã4s3·K|©æ§Ð… z]SÓ.£ƒMf»ÚÓÔÔäÔ?œåŸË]ån;ÆùMð^ă :Ià°*+ñ–b#³5˜å$rþJ<§Ø˜ñët:À¾\ä%Û;Ö]åÞrí| *bª±§ /»’@®Iÿ#¡V¶CÿTB³›j®œ¿dÇUîWP¶ˆ‚0vè}ØXèp]Ú;t@ZsWúBŒ„Õ>aÙ¸AÐS=íÐ狺SBråæ )ÞÁ0*õ‚þ¶ß¡ïüE @$ï,Ã*w íÙ¤ ÷Î"`_þ*ˆYËL9Dzq»‚Wèô$ŸŠ5qˆÃàÃOÅH¨•íÐïTÜEMLyÏÖgCAŸ²ù ìY€0c‡>vè@‡[ë߀:‚ž¬rŽ‚ Mìi‡A@$¯>$¥EÖÚ͇8”‚ž |Ç.`ÊqÀóŽB—7.¶ã¢8ª±úT0[lÒƒíÅÍÈAØ–Ïrzƒ•O=ÿh5‚ž NÝ …ÿIWÅHh7‘-·I7PSÌ࣓6ô×eÙ¨m“>CML¹ Ûѽ±ªªe €0üú ò Õ<óäAª9!½oCAw:„¢ S^[nGA¬HÙJ䀠ìËË#3‰Ó²qûÃÂ)¨ˆôd°lÊa8(ýHŒ„®!²eãöôoÔÄÓø§K6ôÆŠ ¬r@„±C?naA‡zêyYÚcCA‡:"ñ‘´YŒ„¶ÍmÙ¸ý^újbŠ±§ú|Iš²@¾ù˯!R͉ç_B&¤˜W¤·m(èŽ;Q´DbùOkùV¹6‚æ7½ï"`_^Ĭ¥Eαlܾ‹Wèôä—‡2@–¿ð µ²úó¡&¦šÓ> ú”Í›±g ŒúØ¡þ¼þ  :ìЀ ÛÙÎ|:ÐÄžvètDâô¯~"HJÛ¬µ?¾p5‚ž|ÇŽùP¶^±¡€Ãq¨j± Ýპ@§*ýt#¸!Ò«Yñ6!€Íý„´q8ŸEÂpŽj~ÖønÚRçÿô’@èÙ„%âpÂÉj ág5­Ìuâ*ˆ`}q6‘]“ŸÕý£åð-%+_WHÚŒ¾Ÿî#^Wam}fÈåèþ~'Â…çd1qó†eÇï&åGFYmŽ'wÖX‡®“QÌßó±-¯•O]xæ´Y·Òjfxióå)}'ðstTc1&áwÊJðœó\³G&î‚žDc®ç¿«Î%gåøè¡[L&ú¿ÌU’Ñi3Aæõx‚~êT‚Î8lt Çzˆ×XA†8œpv“°zúý\5ùŸd©n3 U·ýÚ´ 3H’=ì”–¥À=ês¹iZÀÅÕîÓv2ƒØ¸$Æ z¼üpt5(.r½OÇÉ0`‡nL4[ã7H³ËÕjÞ”5,AçÏk1÷ʧÉY E\Ïÿ5øœ£îm£H‚þ̶“i'èSþ&Åô4¿¦Ù^Ð×V’ðz:’Ž±þÏÞù=E‘Ü\9`¾[s³Ë.YD@c!ˆ&„E#±,¶‚‡€ bùãâ…ø!^Ð2•+Uz%§§Wˆw‘ žgYÁ"†T¸J.‰¹ËJ¨Ò‡¼å‘Ê?!ÝÓ3==3=³³Ë̺ |_\¿3ÓÝôt?ýíþvÏ>u¤!ü£ É›Íñkn”áÁ´“è¹|ff­)±ßƒ FÂr} gÐÀg®®B€:rq2H˜ÆQ¥BÌe„—¿>ðºÇ+r±à¦`¡rS¾øÔƒÚ¼{Òm /tä,ßÙƒý3%ÙX¤ldþ>!?ŸDôŸ¡1èNÁ Э’çYÌûtÊþm–¹–bwÿMê÷w»® $ô¯|É0 Ÿ¿äûðP¼5ôÏ>œ;¦ Ëè¹WPs›´vŠàRmKD¡w5ÀuEõÒßtÿ`šINM@Ñèh }Ê‹ ¶Œª3h{ÆFÐ?OÐË9£M×æ«R!æ² Büg¼¬pNžD3_ÒŒ…*í%‹ïÂ-è÷ÔQͪ$)Öé4Ð刓¨‰ê/¢ñu§àèÖÉó,f>ÀQ¢F¶÷nÜÂÛÝÿ\3W¨ R}à¾s oÿðD†ý¶ïsáÐ’£Üu@h°|<Žã «›©G“þC¥šõ¨2ˆco¨š ø……yHäm©¡ôáï¡k!åIsÊE ¬°±>&EFœ¤£ýÉß÷}­îc1UÈÅBÿ´úCâ>˜frÇ—¼.á]y~̓ †ü°ÇÜ×K³rƒ¯JpÊ&äHΖ÷\¬òæ•ß7ÎòUé/A£S·d €–U&/I¬ Òðh£:«xÖtôT(êèÖÉs,æ$bÿ°‘¸Ó¼¶÷Ï\V|r6–·àa·s ')oèoùþµÞm ç«¯j&¬vKÿ6åаoÿ„æø)š'è‹ùŠ®Á ôÞ ò_µ+ŸÐÞ_6mbC&\ ;IGû“ÅËÃÓN¶ Zó¢:¥Žÿ`Ú½°c^à}Éû¼È`J0ˆ¥”¼¡˜¼hŽ*Â)^›;%L\ß]úþZ!EõÑš#z’Œf8ªU '#U½+è Ò˜aÎu£P"8ºUò‹¹“ ’ßMo+¶÷ß´«¥¯Uµõh [Æ@ÿú¿øà2ÐKÔ¸[¼î ù•OËðÞšu¦F _Ã;y9ê{E÷¼ŠàPºQ¥Û³óÂòž <êšjD¯¤©±qD:º±)R Ñ­`"Ò­km cÕS>ˆ™0)Rq’ŽæCnÆs8z ¿T/*k6/q¨Ç¹}AQ ¶Z>˜f2Ú5K^¡èàÎì¦)ƒ£8œ%Z×YTÔY7kú^Òi9ª§lxñºy9ráÎPj꣛†YʼÊW¹*üge}HiËÚ¯¥à0w' õ}˜b¯b$ IDAT¼Èºuò‹yŸq±;”¯ì¶÷ŸÃŒ9µ+zø9ê©ýŠ2–b±°|~ð¾ÿ €~ü¸c /^Á~ð0ém Êã¸ú"e†Äü2Û¦$Å B÷È Í3õ1ìçãö3Ù¤NZ³kèàÇŽb ² jsåñ2³RŒbN&æ5té…i§¯´­8@P&(™u›¤ô¾Õƒi)f ¯ñƒ¸èI±è+$ÕTþKYUÃЪ©ç¹ª§lºSöDSR%4 Pžf óUnʧ¾_­  §ó>ôo|ÿKUVÖ©ÿê+„<½?þ )FœÝ:yŽÅßA§@¯Ýªž³WÀT÷º2I¶¨—7j[p¼Âõw;z%ÙÚ]Zé5]äW›6B¾ö+ç@ÌËÄnÛšU:¶í´/\œ ƒ(ÊãMlžÊ”%€™ ôm åvø€ÆûŠ¥¨UÞ7FeeßìÂâ(BC‰k|•÷Â+[ôQ¿zùŽkµb_ÍzzòUnÊ?˃êÁ})–­|õÞù7ô‘‹C}• ³–ˆ¿M’α˜{nQ;ðÐmïQ»¹‹ æŸUfdM@ÿïËetá£{ ã5ôìh7Žy«büÜ6¶Úð ŽœÞ[´ï°2UYfèžk ´•˜xìä¶þX/h«ˆ½Í­rú;ó2áÝ>ûvZAÓ/ É+Båê‚éµ™ ôˆk¾¨)ƒ‡ôøyÜ°EþѨÖe`[ˆó*Ï…[6Mê™­´^ÖG£y~½ÑÛ)woÄoÛ Øö”»}âÅ •8©KwvµŸÙBº ›-f%ÝiælÊÝîþX†ÑæúÉÔ|r „~â·Ç3è'^ù·oÇ‹ÉÙG ŠË-x ñ ½'øÓÓêK”\TÔ:™t‡Ç  w>aúäm¿ļL8@›NœvÚCÀYä‰H¤€Ô}Ø on™ô»y eÐÃÃüWŠ¦62ý.Fo¯ÜRåµðËFe5‹)¨:mÎ {"¾*ýeuzZ(ÙèØ 50“@£â¬ Ð'o´˜­ÌNš~Þ)†äíîïbJ\%ïŠÛ%Bp:Q ')oøó©îm[‹á%— t:9‰ÃHg^¼§ðU|‡¨Ã[Ùè{ @ï&oX*l=[Ä1/3Ðã§oàÙÞÜ>Ö• ,ÞU9Îd‘£7M™ôãçâ\Ìà³2sFë•C‡¯Þù¤žOn±Vy,ecmØ‘ÔG/ãM‘È^ŽjèI™Þia¥I@ocV¨¯XlªHèF‹ù€Ùîn¹mIÞîþJfBmF¢oA‰D^ä#3Ÿ•U½ ôø@—W‹%r↵F«ÆQDk*°/ˆÉľaîö‰ýzÁ-½íÊUˆy™˜€î §U5$ôï>3Í>Ùz§;‡Êp3èfzÞ°y5ø‰ùĨ'®+ÀJ¸e‹is¨7õñˆQ$S`•«r~ÿÊz»˜Ÿ¶½ðg-¡;&î0=g¡˜yAΡ2IÝ`1Û‹¹ÛjÚ‰IÞîþ9ÖAÏ´cK'â úúõNŽãÙá¹J\êjàoHë&'ñŠh›¼hœê&“úÜå*ª²Òk1/ФcôaúÇI\³3²Ÿ A3èQô—,x•Á#Ð"•'Õ¢ç‡'¹×Jå¹pʶ³P¤®1^‰Ø”‚ú’´)ÂfòÇsTnʉŸ|³2€žÎûÐßÛñmª²â¤[-–xDóÐÏYí1Ix Ýd1Û·'¢#æÆlî0ÓVÈ‚ì$þ§¤:xš}û¥KÛ]Þ­%†ÞÃì¦)%pkÈÕôËå³ó«ÔïìÈ®‰Ødôk gi‘Žõê7ô æe2`ºƒtìÚé¤Dë ª|awAÒf%¶ê¿ea@¬F“x‘þ,²º#î(ù Bn¹¤š;]HŽ$â¨R œ²!wxNíã×]{öõ ë‰f¾€uòT.ÊŠÙ‡Þ¿ºÝÊ ífœÍÚÔY£á ïdα˜8ÚIù þØJüÏpÙÜ)fÞJd ý?ÿ8OùºüÚÀ4q/ †èfdoy¹–Hbàg%zle¬IY›á½CÝfz“–ä(®ŠļLhŠª8HǶ†è¬t¥:Vhh"Ñüƒ’~çf†ˆ®z—ÁUÔ6"gËJ€øšš[‚…*b.[n€¾Ê_i!šÞÖGÀCr± U°P¥=Ð+B‹.ýº¶©&9‰J…iÛ ß0Ð/jÄí’”o‹óÖâÐyó%í'¿ÚÞ¿A+}bÍæ$žßCwèò‡Pö)ïI”ãÖŽ ‘”¼£O´“àÜËÈkÎ!®+ÜćgDñ‘D,€>‚ž_Ãú8>ÈÛ‡ä)•ÿ³w¶ÁMg·)äöz‘dKr± Ëvm0µPšB¶1M Æ„w\/ ÃÐÔ„t†´€ 0„—I Ô™Áq2) \↦-dJ¦ mC 锤Óåe í7fº+餓t'ÉXgnÿ¿/¶V§½½½çžÿîÞ>»jB¬r’@ŽŠQ­|Öµ··Že§´Çä`Š3“-}{Xnƒ'ëK²5lËcAVÐóI¬}/{s‚wi3¯‘Å•¿»[nTÑ&u «¸þ#i­º´’ú•²Q½ux£7šœ€q½ëã&mcnf‘z[­òªÚ*I äÄ“aw=ô Â÷)|Þ¾¤úøööN‡DòZåpڈ͔·5ËÖÚE9^A—³Wñ˜]ôDÓÖùƾüAgšÎWãø@öôù¼­½UåTk&Aи;:Üñ ú«?4l[Ñ/·¶Æ)É]Þþ,ò(·!¿ÄldAⶆMÞ-Qv‚žÎ¦ŸgîQt¶V¥y|cµwÑY_O2¢gy’@Ž2Qò颟wŲS6!eÕ4Øä­iï\"ålÊaÛ¾4¥° Ÿó/…«Ó ŽPƒé×6²6û*}Þ€,j&¯Œ^BJ‹ës•¤¾ ²l/±ÈËš-[ ©¡Lëê›úQ³Ê)Ý’/½©JR)KŠÝ%AÐLßÝ„‡$‡Ob^:»¹™-¨a9¬èX/ï• ËÙ«yÌ•ÌQ—xX¬”ÿ¥¦óÕ8>}“¡ÌâMYõyAß_5Û„‚.¸£Î ß>•­ÍéÈêêìZêÛHM¨ËLIðᬠ./àŸº¬"èL½½<*akmßWó¿ëôÈ“r  O\‚.ºV>ñ º°zG=ÅäBÅʶÂ#ßÈ°)ãÑw„ôÕ´ìÖó€5•ö ÏÂuÁ&ØtO¶=£y¥¢ ¬’ÔD–MèlïÎÌÌÕÒ‡õ!LRks6*'þ¨$8A§=’nêíçF+¤Ê;cEíáK ˜~aƒ Á͸¦á¦ÓƒJH ý>Ó¦Oœ/CÆ$~ÚÆ¥~çŸø¸P#oŸúÔÉ©T•z ºÎΗKA?vŒk÷6V²ÂÇŽÐ'lÍ€ Ýè‚®·ó.è?Ô„‚>PrìÝVYb-ˆ=i"vº‘]wçkûÔ“&ôqè¦Ç³.ðÄyñœ\éô¥†-Úóâ¿SLЫóóB©§óžŸŸoá0}jUÕTÀ ¿Ü‡:H6ÿ!¥ŠëÛÝ8;•Š<ÅÖEÐßß3¡  û÷ãñÀ“ —ýt¾t0"¥ Q‚0/Ïþ•ëÜQÛpüæ©2"]æÎÅ=€ö‰?æãB‡þø/Xb’™úÛó&ô©˜å7p‡Þ‰…e@žwšPÐyC€/Ίëù¸Ð™ÓŒ»KÒ¯ÅïÓŒ9ãÐëE±÷^øö/¾†JH6o?ý *!ɼ ¾fBA¶míÀóòPÓÇ0Ë0tè{×ûê@ÐæåNÂZê$‡aËöC¼B‡ ëÃÀ¸GpÃüyðq¡FŽCºâ,,1Ùœp›PÐË֯ǚEp7qè-ˆCQøýš—M(èˆC‚nB&YŒ»==ù˜3‚Oœ8ð"'W:Ó¸E{Þ>X"]ÜnÜ[¸¯Øp€ 쯚mBAÜ÷xâcÁŒ‚.¤\ÑA€” 5¯•´™A¤6×î}ÉÇ…¾A$Öí̃+°Dº»Ž; 7Ü?åãBGXÐÿ.~KL2÷5¡ Åk¸·ðÂ^}±@Ðö(‰xÒ„‚þ¦(~„{ /\?ääJ°Ø°E{ Þ€%&]Ð͇>µªêî-Üpã2ê ÙÜÿê Ù\ß3ã;ôýpkðDÝ'ó1ËHy¶)ÂЕ¨A˜—«œ¼d;bÜYîu—ÏÔÁ!èz0Ó3à‡Ëâÿø¸P#Ç¡&Âí&›KgΛq–{Ef¹À ÜÄ¡¿…e@®Š;‡Hin‹_ðq¡®êB:ÐÄœqèõX)Ž¸tý¿¨„¤÷o¡•|AÍŒïз}‰[ €'®Üš‹Yî@ʃ°5HîœB:À¼|ÄIXË8Éaز]Â+tºNû§bNüpå«Ïø¸P#ǡߪ¸ KLzËÖmBA/[ÿÖ,€¸‰C8t…k^F:‚ž ,²d@Ð&æŒC‡ ÀW>½ÇÉ•ºŒ[´ë_aSzº¸;>Ä;ü€ç7¤¥]xn¶'Ź“eZ­)˜33´©Rm–{ý_Þªªê˜}¢÷ak Šs-„X²·NXm¦ççÄ}¬ƒ‰Í™^ÍØhßäå:гbmXæÿXHBQ6 ¶J$Ï ù´[%bëž¡öÝr ‘¬Óf…§«y° ¯Ÿë׃ì- ÿø#9qJ¹ž²zYJ¯â¥WfÙ$bɸ8Îû©ÝwîAQòO1AŸÿº(®©ÅŸ÷RÐgäï'=1–¶ÔJòôô¸rŽ%è¢0•ƒNùêÄt­+# z] ©øØ9*Ëa«¼ø¤ò-ãÂÂ<«cÌ”Á=ϼ\Q+üi§‡ŽqX[Ã7™ÔDMR+šîõ¡Q4µ£â²Á9¹ö¢æ-ßó}f/.Í3,=ä´fïA”‚˜´æÕr^›%¿áT„µ¨R6ªÚÐïT=˜º GÉþ0‰ô#iìméU¼tSžœ»TjNAÿºøÝêÝŸwˆßy³W‚¾Û[16G¦·~‹î&ÄÔ†½=®œcú£Da*®lvùcŠ‹è_ß¿Ý„&ZövœSÐi­(„c¢Ü~®È÷’uFOó¾K"}±ÿᕦ„¾Ñ)¨%᪚¤R4ýëC«h*GÅÁÁ reôÛK—CÎ~È€­´N?A¿vÏ »7UB1òö©g\Ñÿ$£™)í™ÆÅâ°¯\L¢‹š«#¿Sõ`ôè O[ÜÙ§í¢¾MÆçj[˜¯t6ïa¦ô®ô*^º•]£º$©Ôš°ÜãñXÌ$èßÅ_±¿çŸÿí¸c×£×+sô¶Æ;Þ®:“¶¼D9Tà z³é ©ÔÈË©)ŽŠ4\‹¢:‡SÐçHJá(ezÙ¶d;½§¿}vÚIHæß&¶Ñ?ÒÂf>‚Œn™½>_J³Îj[ËlghȱìÔaª’¤R4ýëC«hjGÅÆÕÌ\PÛ’aÔÙ½v;ÇÄF]cú ˜¥9_š°3íö‚Û¦[‹CÐyCßK½\1k®¥53'ô»W©ßšžæÿNùÀ«{0ª–Ó{’=sšá{×ÒQ&“×ÖzîS½*½Š—ÞNÓñ´±T¤,‹|‰Ö¨‚~ÿÁÑTôÙâÏʼÿ¼%þ3ÚBq1¶OÝÌœÌAùSqœ­«TôAÙDi*w©Ïmöý»‘šÊÁc[$_sPDzRÐëJY·7 ƒmÄîí†wRùïK»HHCS£vÚpwõø^†É^z9r6n±œVˆrÔ}«=B5C’ÔŠ¦{}hMõ¨øz“½æº—zµÊ0Ï5ÂBŠÆiœa-\å¿øiQ~Ø+.ð"胈…kA/¤ mßÃÂR5ö;kåqÇhLMУdŸ––!Âi¿ðŽ¯3m oæ÷°ô*^ºÀÈó ÍþP<‚~F<™RCî¿;ëûûºø‡Co¥•í ¹³6S úÝÝT£¥Ü ©ÐŽ›E~INÛ–k#†¢»éÏŒ'èM›¼¶¯ÿ@Ã2ù¡™EH·¯©âÊ"dyÏòß*Ú¾¡âã¾ÿ ÉSçHf˜ ‡&©MÿúP/šêQñ´hcf±¿]CëreÈ—§ûi£ÆØ a©ïß'¬¤2]û‡½ãòÿÙ;¿˜¸²2€ßá¥ßÍåÎ 3°Ë K‹¥i;%Ó?°Àà’ ¡i©%²vÛB‘´•lÖ´)Ýu#QêV(Õ6¡Ö†ÌZ_jŒ£øÒõÁˆÆd¥}ѾØèf5ȃúfâwî¹÷ÜsóÈ p’ÍNϽ÷Üùç~¿ïûÎ÷+ÿ¦€A^¯§ú2¤ŸÛ=˜·ÆÿäO6ü8Ÿëõ‰ˆòî>è€OÿyÀŸR‚‰€îм$y¬¡ÂXêZõŸÜÁc¹ô^ ¥Or\Bc½4= dú Yþ©Ãá/¼þºÓ·È:Å0÷ïóÀäýù€[µ®ØÅž€[šÝçWw-åx¹ j©CY#1•¾ðŒK×¾´R&lˆL¸(> µ.VmúŠ  âPG ^½_¿ÚÚ2ó‚Æ–= (žåÛ)Þ‹— 4§Ê@ƒqðª­a<ÙwÁüg ‰Ðo@«Áá †84­˜o'¾5mú;`<©ú@è\fw(ͦoÐ#YG«˜ÿK/ÏЭU‚®müxˆº–ä¬4Ê0êFœ±¾b9ø`*ÙP© ãøЮUqæ\>)ä=MN裛è]ЕÿÆ¿ÿ¶á·¸ŽÈs±WÔ0ZuFöÅ®Š€žL‚ €îÔ¼tÙ¢%Òˆ‡uê½@JÏpf\+³œþRþEÁý‹¿üÒYùÇ=è¿ÿ±Ó¸ÙíÝ•ú5úÈÊŒ—Ès‰}Ä­WUŒ-ëG©–ÕâggØ°›Ø´0ª¼<Ðg<®îK ôKöƇ—R]¹å’¸©ÒpK2' wn#ª‰CœÓV`eÞý4Y•^Øáé€ Ý;¥Òˆ¾6²¾Á;*tXk.ã@ŒšáNÜ=bº­*±k›0¢®‰ÏJ§ôLF?±Ý»t)ÙPÍpÔw“]¸½Ëú&”Ýœ«×nâ˜%Ä9“J0ЛFë;ã ûFLݶyýzŸ ¥¥µÃ,îŠùt€~êOoÐ&cùÕg³O[K–c@ƒ »:IÆ’rNºÁY^ZBVÝ$P µÝ]¿ÔøtˆœíÁŠÅN£`,Ö#l¨šÄ“—tu’Ä ¿Ë: ?›Á#IQrNÇtZ!DçZfe¹«–vÖÆÉŠeg  ·ž ¬@dĹ®X QÎ-\ÙÊE)î­•öX]î¥ÔøØKþ¿˜KdÄ!b<ŽŒ÷Î1âÒoLs(2ÐÔä…Îj+ÐíU‰]Û„ñuMxVš.€y¶[À{Ü‘Ù"æÜa†ùQ²ÜIváÐw€žN¹Çap…¢ø,´Éa1¥ݱy´«Êtãn™F~<(–*܆7·Þ'Hi¾”³÷ؽ¥ÒÖ°üàƇŸ—ßþúW³ú ÷¸-Ç’.UMú ·3ypØ°’5ƒš{RÝ­=ÅE$éC]rW%kˆdýhþÅ…Z;è·³}ô2…W·ËÒ2+a#ÙN‹¯¬t:ûóŒ©2ÍÀ.¸xç*ôð¢†XXyô¾š6ª 14õã<_>¹:÷x¦EWŸÏHý­Ñ ?Úš±Ÿû¾ªÔ¥¢>h3ôžbã袡C‘´°`£dzBUb×6a+ÿ©…iÚ»5õÇôĪ„®mÆxˆº&8+sß…>.›þ©”áäý¨Ñu]Ýe £ŽæP^~¼=€þ8£Üÿüцï¸ÝÀù¸.‚h,´ÅNõLLtÇæ‰q®o¼pš=Hl¨*€gø»=LÁéuè} ÏûL l+}×®ŸÈò7¿éžq.ç gA¼¡‡;à“ Ñ|xû™°Pÿ‰wxapVâ±+hè4–R‚ €îÔü˜éLE[A{ È2*T‘=ãHD“o)÷Þ‹Þ"ÞÓŸПô‡‚úWÎÊßsˆr?zô¹£ÜQ}˜³–çðœ tÝÖnfk¨WiÈï%bùÅx„Ø4tœ +gWEû…¸ÅÚ&|êÕ’sÚÚ‚[ßE! k¡xþñÆÙž8(ˆ,³½×²²×¦…ôËSAh­YÁq-Óô„(2lòVÀáË(xI"ôç9 ùÓŬÅ„®±-Å!Üf¥¦ *±k›0¢~¬Ðçp•qî­¹ Àc‡~T¢ü¨Òð ¬9^˜})ì<ô:H]‚††´­7– p+”×…H왟ì#„ÌI‚ €îØ|E„¹è–éóð²ûH jb,T½½1¨S¥ô—ò…ôïþPÿõ9ùÙæ¡É"ÚÎÂωl2lg(Ð/1_´®]ë9<4æÝ?p¦ÚtACÑ„¥r<‰¬¾ø+z…¥¼–è-‘‡µaÍ{2S ýD/{|ܺ‡‹J&šK—T @-^-0âÂ@€ü=æ ýûí¹Ó©ÊÓC,AúuÒ<äêe} è^Pµ{rÔT%vmÆCÐuzj›E×¹Š æÁJr‡| ]}m®á^ð£\Zr¼0ûòOù_ ô.P½¤ˆQNŽ¨°¬kHÍû¶3лÒpZSϦë(Á@O³ymë¹5-Rå?ïMCFveår&ÙÎç¥ô€^`yè¿7–Îßz[þ£Cb›ãNq“`&(óÅÃW·ÓП?×Á40èKÕƒó   '¤Ü9o aÏí¶÷yQ ôë}æ9™]ºFƒ9‹ÿ}ç3Ù-šèeH*š·XÅ€|=s> ^Ň]ACÓœ0ÛWvü¢‘‡Žæ›™×CËþI·$zÕ¶5ÓáГ1Ð]«·hŽ ìÍlA}…_$j¬v<ã€^”YÛ•.^%kÒ¶ša^ûÓÚC;f_ëV‰º¶áã!êG®@¯Çùu|.Á³9˜蜓ñç w€žè«Ûzs½&α]f C;à3£‰{4q•ÐÓlþ¸bš×}4X9bîO\îî\z/: ŠZ]Y[,míÇ¿ûðìѯ½ÿ"U…µÇòq–ê ]%½Ç ¾ݤszÔ¯îÇrêP¿­cWÐP=g"º5a¦ï׉Sãº]²ÏŸuƒ¢E·Þ¶ÝkZü“Æ—ø2z‹ÊÜì$Q­ÂÔLü¢+ó ½ØüJ‚T©‚ï”FàRÎGž‘«{·W™á¼ÃíØ\›jŽxOè‚®"Љü†Í»Ð³Ú•èÿgïÜc£8î8~¦$žÕöî|¾sl †;,ãÄà´Æ%:b¸ž©A˜gB¡ÁEà$jB«&)Áæ!ž¥­i¨@8jI("%nÓ¨” ¶H5Ž*ÒBËC(˜ö?¤îÜíËw{{ßùöv¾ŸÀëõììÌì|çõûý^’Ç“•‘M„?—úÙôi¼Ó°¯Ñ)õÏ(”í½³rå¾YžóÚ”)ÆCqzÉU±<¦½6=ÝN£|IF¾]±t1:Ék z±Æ!+sÚ¡G[š×ž Ÿ*Mp;\$¸šº…ÈÛ¤kíâ!\A/PÊZ¸k~PµF  Ñà:ëåí{‰,è4.Þ`­¦1sE?dE…âb@l¡´ éá4ûíñÎÐsåR‹êù-ƒsf ï Šïõ…Á·(*P £jâŒ[ºDhÍJc/~Ä¢1ûKn•å>%|£ZuI#k©/¬%&èÂ[ðaçùVP÷¡OX[`•¦–Ý#”CŠþ0qn<¼žÁ‚~T”ëÈ‚>KªE#Û¡ß­¼—òg(aGûB}§WÄâC¶tbô(É‹‹©=¼h w@¸)(òuVÍç±'¯ÕK×h9)âËý’Ç„‚>iÓ}ýyP-=uÛG寻‰: tKšÍ&S£éœ½.Š 7ɲ],zwÿ¶äVN#!¡*ùÀVêBk0ÌŽœeQÍऱñÑùËÊ<É;œ²j9ÜH·;°¬´W%èY}}}«¢5•)„8NRÕÛ§>–7"‚î_Ðóò¥¨E¬—Na,l3+‚¡ê3`—?ÏãN± (ASÛåW,‚®•µŒtêÞ8ÜÖzípiê'¸ R^þ™å'³íЋjFôŽÆôሇ~P˜ŠÈWŒD¯Â­}}=¢¼ò†Gݼزô(É¿Þ¹Òüj‹ðYTP'[ ¥sY»ßhɇ÷Ò5ý”è úíu»L(èQâ¡ _PІÜî :Û¯ îKuÐ3ëΉKݼ4éÕô’@–_‹C4z´Œ¡ÇΣ4 ˜—{ËöÑJKT‚NgØÖA§·ÚÁYÄ>PNY‚zµ±–µn®µ^ S%èE_óº‚NWø¿,m ¦oJ4ôÜþ 3ÀŽxf 㡪îàì#´f×–ÅE 8¦"mnÉKP–PQtÍy¡-4€® ke-Ó=«Bå[½TÞ%†¬—v nNvÝsâbÔ£G.WUQ¯e/e牵tr‡%º  ÿs ’a-ôIÜM½84¢+5Knq¥Et:ƒ õc¶­ÅÁÞé—›¥*eiŽžG'ÙΆ5´Ï¬øÇ%è–î ^á…ÛUÛîŸ Y’¡‚n¸*˜d­è‘¼îÕÖÅ›ö@±”\ñ€\ä¢×²¿$A×ÌZf úÁ]‹¸-Þ,´ÉóÑò1F:j\ 8Ljô‡C Ùbbt#3<•0z¢ö£óÕÅ&IbKhZ¹®ÆXz0mA×M~MÞîRGïµÞ;A2>ˆ"èºÉ‡ôÒ$A¿òê"3Šó˜âûN”.%d¥© ‘¦Õ­½N{Õ¬vÕ¦ã©)¥¹^ÿÔD¦5=}.›ÃõÄ“ªK‹ÇÕÚ+6¯Ž®š!—4²–Q‚îÐôn¡skŽš¬©þœ\oÙ^•¹^¤?`øÈIö¾Ïðt¿LžrÏfº¥æi‡{ZAOq÷ Ag·x;¾VÌH‡ÛB0´ §ºû… 3F•ŒÅ× ˜âß¾`ãE>õ£ô”w¿L ú™[ wnþ§,0Å=S˜­ÅëvèÉôŸ¯3Ùɦ²û]ãóù¬º‚þå£Ó&ô|Ýð©sq…A9H7=nA'qÇxH/o¥êš­cÓ`®qyÓùÆ jóˆ» AO» ›Ñ}vuu?:9˜áö5”Aºùò?(ƒts“ûÀŒ{臯 j°Dóß—ã”;ñÀl 2„qí(A˜—›Œl²2î)÷ækàÏ‚ž–áxìpû/jd;ôëºÝtÓá²O¹WVâ”;ÌÀŒzËnr{`‡Èhîq÷ÙxÑ¢úñtsÚ¡Ï…§8¢ÿÖQiŸÞÅ4*ý‚~ÌŒ{è;¿@Õ`‰w—á”;ñÀl 2„Ï?D:À¼\bĬeï4lÞú±…AOQüTœ‰€n<¼ÎÆ‹Ùýnå=´Ä´l=&ôI›îÃgÌÀŒú“°C:Ü^· vèz&°ÒšA1§:–¸ñéF޴ȸY»õAé!è©Àsâ"–Ü`|ï¨`±\yu‘Åyд°Åãæ4[{ `Š æt0w\>HºßÀ(ÌÝóg6^ô$á ›·ç΢%BÐSÁ™3¨#˜á'Ü7ØxÑ6 ú÷¸7ÑÓÌô­§M(èù—º‚n2“\:ˆÈkÜ9 ú;÷êV¸Ì}ÌÈ›~s•a³¶•ûZbšY`J;ôÙÕÕ³Q·0Ã/¡ ÒÍô?¡ ÒÍ»Ü&ôìÇQµXbÒ›ËÍ(耠€)_2t€yyåol¼ç4b5lÞ~·`"=,[†:€qßgãEl‡þ÷O´Ä43û—M(è³++qÊf`Æý$Ë^áö˜PÐa‡K|ÂmbãEçÍy°yû-÷,Zbš1§ú\Ž›‹º€¾ö³¯ ÒͻϽˆBH3¯qÇL(èÙ;w¢j°Äò&t| §ÜA€áïzßC:À¼¼ÈˆYK3ï4lÞ¾‹-tzjÈÏGÀ ËŸÿˆ5²ús•Ÿ %¦›³ ú¤M›à³f`ƽ vè@‡?®ÛeBA‡:tòŒµ‚"bN;t:,qöç?`äMç7k¿þZ"=>æþã¯OWþxë¯uw <'NxÒ“½;Üîàs™ ¶ØP ;ûpõ¢ŒôÏ>æ¸uÕÇÓuç‰AÏ·ù½VB¬U6&-w67Ä|¯“Ñ:ãð¦žX{W‡ý¢‹¯ü÷!vù§„ðšãw!uIÍ{#½Dí‘rEž[Ù õ-î\ÂÛ&Îпk¸ˆÂo’ÙæŽwÖÚ«fµ¿r½$‡üRu×þ^‡£¾1KuC[«Ë–S_>3MßJª¯QÒ¸4°¾Öi«8²ÍÀ“L œ÷;xbµ&â u<)•ÈUu ݃n¸VOòÖª›ÐWW‹}BÒ]ê¥4øRSð-'}P•.A÷üŠ{zA~öô3÷£¡¥ô¯RË]’“»1âJŽ ?3BÌZSèo “~(£·ÌPi½;;QA+ïZà ¥…¾œ'ìÕ‘Òµi…Òµý:w …ÇIjý½V)Ñ‚Sƒ¿JQ}Ãdñ&Û|i,ùFŸxɾ#ËE©z¼FyhJBWƒ½M¡3PyU'%wSI²½J˜l7L„˜l m«B†×¨”šVé§RBÞNXÐãÊ{(´É-t^)-Ùú)Â;iÒ^Ö’ÞYsè?ï£ 1Jâý¤µ¸yô“ò¿¾w·0´·©3Ÿ(‚>RøDIÞ¸±G„ÙÀzñÒvBrÔ4.~3vø¿”T=^£<4¥õtZ^_Ø;A(¢Þ÷³AbÜqùX/‚%tÜ<§ŒÎÈü‘{wYÐÛ…¾Ô.Q*èõÅÅ/ÄœüÿÙ»þŸ¨²+¾P`ÎËsf`e(ŠZ¿‹]uE\Xj UAP‰ºM± õ[1ÚÑ5›¢Mª]¬F]P7Ú@!…4±ÔÝÒ­›~IMÚ&»1©‰üÒšö71þ =÷Ýûî»óÞ™7ƒófpÏ/<î»÷œûî;ï|Î=÷Ü;”Ñb² ;T³;Y¯`.£{mãd/ª\¾|¹>úÏÌŸ=þBÓN'Á‡š`ñ‡ØÛ)ò¤wžzê N¼sK†ørWˆË㨶è(P?6€žcxGRCïã?ËYÌ£2(# 8Æ…Ç™9ªðOƪ•ìà÷¤Æzä¸5…=®¾¤Dõ‚  £p½ë){%º¢Ýør³‹#T|ñ(Uâ‰ñ DE‹ƒ:Ä.^â•{ý¸;¯ùz Y&ÿ|êžÏŸ)Sèî`«6U`~k6bQL ÐQOGc°B@_;ö„Ñâ:vÑ‹Eõ¯`.%œHæùèçÿ-~uåGš¶Ç¥Þ§ŸºÇlØ|Q.®—ÓÆLô!€aƒö{{ÑŽŠË+Øï è"¿–¨œ@?¾T ÍC¿¢…_ö!z£¼»ÆU&Õ±*F­äho"‰3¦eE•ü2Vb#¾KÅP(y^ùåHT³O~ÙW½¼hÐefýN‘xb<Q”ôZ»ØB,[&K½míHÃfÏxeÞ>ô‘zó«H϶µQ©> ØV¨)èE1`? »°§ŒÖU9WGcÈ«±™K‹N$sw@÷ÃßÍ%@—ôž¦­Œ}w‘¦-riœ‹NØ%3Íq £½ •»ãNŒfªd©êHÀ.þßj€›éô¼ ¨åz³¥¡Þ!s‘¿†£7‹* Š¢gæS1j%Gaõ^Ï„•É©µ¤1 Á èpðŽZñ4–Êøk<7Å ¦ŽR%žB%}eeØÓ ËÌô:ÎýÂ¥D;~‹²0ª`qPI:JÐ]ØSF ]W3d0Ý?csiÁ‰dîèçµÏç" ¿ùöƾg:[Ãx¡ü?rÚ1q“%VoHÛSà›-Ôõ@+[~\å‡P±™ Ôidn‡ŠÊÚ EúB ɈÅi:ð]ø«s¢ýžW±¨= Vë”b>%¡šõqñ~(d¡ ^^-—+Ç* Xf䕈èo´@/œ–kHn}··à œ(Ä’ƒÎ±¬c«<½ë- mQ"OU¼ÿíN‡‰¨•åúS‚š×ÌëËÓŠÊÔn‘€¾Q "¸‚žÞš0·(”¬O÷’*ñÄx¢(éë¤ç9éçÚí%=Ñþ‘¹€¶ô&yjëÍ°§»&#†jÿKC@1b¡ê:G…Fü,w[€þ Ô—8 »±§ŒÖ#€s"0€–0îþ ‡¹´ˆàD2wô9z°Ìß5í¼Ëímo¿íö[ Ž¥é{ûyVÜð™T¨”€~7 Šö=7s¹ 7"3·wm èdä›l0‹²ûU@/W2¿Mzè7lå:——½/6ñÿ³•Xb›vãbZÊ~ }—Ø»áïòÅ뻳=z›QPKi¨~.âS4´`µyó +`ì®[ckFÔJŽÆ˜3{w°®¼'ËSMËýS–ÒOs1î[ÙКcz¹ôê ÛÍâF ÖŒg@ÞŠ§Ç#¶(YT P|Ò,ºãùSþêökèG ¿û·4ˆ«UlꈩÀ&ò;@ocË—û? ×/Ü’ »±§ŒÖU€ 7»CV:“ ÛÌ¥E'’¹; ÿVûãô/5í{®>ùÄÍ&Êo”0ÿ©â³¥øGXÄ\U\ÈVÝkX"5«ãÏ~?|aˆíbÁx#ŽzscãÉ(gƒQÔÊK# /*7½‘e ’¦x«©f-F"óc1_*5ÕM× Àë—M@×At¡íÚísï;Ñ>cYJ'vZn\ÎÜ“h@fÞ+?ÏØ:êñ–]/híY+9êAÜeòŸLÖÝ—MN+ä÷ûh@w¬Oàðýdö¾•Ô‰¿o÷ðQVQjañÚöÉÍ Ð6ø^'J+  g|6=-4jÆùL!ßv»3ô2Ÿ謾˜’·Çt7ö”Ñ:Î,èáÍMÝ_¡åé‹Û{‡¹´ˆàD2wô7þý9èËp~þÓw^½}/Ó8uc¾$#j½ Q2Ô$°J›sØàeî›+Âø7`ÀÓ¸_$þÈuh‚Û½k¬‡ èr`ëüææNO¬ZÉQ²Ù´¡)j·E‡P–tã|  [É;;ˆx*x]õJ”&Ý”RñÊxТlE•Â¬‚¾âŒïµ¢¯ÝC: ÓŒ|¢ sž[îS=¬†Àñ¸€îÆž4ZK$÷ ã‰> è'Šù¼Êrg´èº¦ý' B?Ow?&Ž“ÁÉ6[âîD"¬îk3|ö/’© w+b÷jÏ–þÏ$ª¡»Ìã  ÉèÚ¼Ê_Êâ«ýø|ÜZï¿ïr³*FDªHy—'Å1rƒñ€ ²=[Ä®dóFum‚"Áè¾ãÔô~zGË“ ”ãK â¼øÌÄsgh¦‚Ç’Œ0ÌRcÒ»ElO’Ý4²ËõþãV‚Åî;Õ>w_™ª¡¬÷…ƒýSaÐuÃe',Š­-/ý"eÀY+9jëóYN˯Õn 'Þ%ß5:¿1œ NDEïÔóÃPš ÏŸy‘yYTÔ!½”:ñêxÄ]´8 %Æ°=¼€ˆîõý¶yâÔ×€>{€þí¿©ÌerÄ>C‹de†¾¯Í 8²tâÒx€îÊž0ZcAÐ ‘·Y Á9: è'’¹; oûó“9èOÎj­Œ[kÛ[o¹d¹³IT;Q^('y|غ9Š 8ÒXÝYi<ç½´¥;ÇŠ£zÇRy!ËTCýpΞغzäÑÍìË(³er¾ÁõÒ/xÖ\5â›×¼GQ–ñ–£©sG%fß©ö9 ièÙxIÈXhb&>7Ï™G-Ïh“²]Ô+ßß*ñ1ÝÐ,F~špeèO£÷áóMÌœ¤B¼:î¢Ì¢œéUæ¢Ñ<áq‡2zº—!÷Ð36äž–}èr+—3&.÷ðî&œa'ÈåÅt7ö„Ñê,ù°y„woP€Np¢™»úiíú\ô¿Ö>úMüjîûÐÑàâ<¨çó^kr[!³ÑM@Ÿ4_¯Ç™(P$YGX€nÐ9{7X`§ADµouzü'YjßMSíJ ßô®EãÆC„Ô‡ìsë;ÕU¨l&º—'À¡ûàç éS~$öZžÑS@oÓ®£›S$ΘhφŽˆÐ}mü‡Âe8‚«œ—ÙÜ·ä½xu<â‰E}ËÍ¢#â DéŸÚÙLtïÆ¿sûB÷ ³˜÷í½Ô‹kUT¬/ú€‹Í:LºzÄž mºùk,°Ø=e´º”=-U o¿¥àD3ŸWûСi¯äòã,;5Íí×Uýöéò½}Öqj–€¾% û|/îüÓ×ÚÝΨšôVvÄýüud¯óKôªç‰rXàŽõößùå7^@ÿ?{çÅqÇqC€ÛÕ²>ßüHÜ`ÇrpÁØÔ¼RJpeŠm0Ø!MÌËP^)/j,'!¡‘BK(/‰„ZÚLU à§)JKT¢"ªB©D*µ‚"Ïö?¤ÎÜíëîæölßÞÝÞÎ÷óOâåvvfvv¾óøý~—4 úÉÅë“ÿ¸€aó2¯Œô—Ùƒƒ*e¬'E, 1Ý$yV§U¦Ÿ¬A¿ü>®4²‘;ñx‘âg ¯þ¹¨ó73áßa–Œ_ˆ0ÌÌ ¾E_ÈN\=WÐ 5£©ý»»Ù¶ä™™@ô…Á&×úŒ–»æ‰cÔXs×çiÏM‚°f­êQQ TFÄ’{–YÞY÷÷[ÐU*B¶w¿6„\8µŒ¥þ*Ñ©K¯qÐò˜…­nÑì¿^ˆXˆ|}'ÔðRW´{ƒ`íDßÖ)’öøðú`?*êRÀ¿€ífâTx ,“f:“©§ñÐÄ!ŒP¯×ÛmìLŽ#è&ɳ:­cH‰½•Û·î’‘;qóÞ¸õµE$èï‰}ts& ákÈ+C‡<mÙèéÚ›û"èº:ÛÅ6ŠSºf˜·œtä¨ê‡¾*úÌó2}>[´v2Ù&¢èïÕGÛÉãf¨»õƈî‡TA×bÓýeÓ¼³î易·g¾°@èt–±<ì_%Ä”„:*4—Q{õÁù/] ÷¼ÉL(èà³p+ýOÕƒ Ó·æ ‹«B±äªRªåîéÅôˆhÜCdÁØ8Ç ‚Á >ÁÝ´5_Öb$y‰èÿ´­ù$;rp²`’wÆýZê&—öÆk¡tQB1³‰ÚÛ©ñhh´])?”–˜¿J„mÔoæöí%$ÛõÖ¶½€ÆÄñktÆtºÊS°oâ ò.eÅeÕ]Ûû­#$Cå…)ÿ’ôxV}0ŸÔFw8ëgTì#MÏsÔêâÚÚAOÍyèÁ8—ä<žYŒG±.i/È?ÙòÒr#è5ržmó–"AwQ­Ò«›ã ºkP•ÚîÊ#£S0Ý,yF§¥'ïUöü(茔X—œyzâ‚ÇCÞœ·ü‡ÆÂ<;-["³ãT(s+÷½~2V“ ŠÕC|Úæ¸U;†È„èšÏ›ä’ׯ,ãh‚ ³,º’-èfɳ:­¥ùnÒÕ—Ô®m ‚ó‚^t옓Üb†Ú'+f%Ø‚±¨¼„þCÐíÝKš ú Ï9PÐ]EEøº’Â$¡ •pÉô¤ö’qŒâ6¨ÊBcà’ÉR6*AOS/ ?t`da j€´Ñëo@%Ø[ГÜKBÐe4,E2wÏ_ù(h—ÝÖž9w6㽺¸xEæô’ß...–yôÓ§ÑÇÀ ðC·©r[³RÐ…ÔŸ³³BÎ%&‚þäKo;PÐsE1t‡Ñq¸‚näUñœ½/~è§pYü '%½Ò¶Y{Iü7Zbšq¦zÝ„ ux·pÃoö£ÒÍ“B¤›“â»t×xµxbìÏZ(耠€³ u èç²éï|”ó A¶mÞÞ{õ!èIaÑ"¼#¸a¿ø2µ³úyñ_h‰i¦î—(èu••°r€¸ñCïB``Â&q~èðÄE±ƒ‚6×´mÞ~/þ-1Í8Ó}®(ÎÅ»€¾ûˇP éæäâõ¨„4óªxØ‚îÚ±¯O´¾6 ó1X¹‚©ïzO¡à\ÖsâÖÒ(ùl›·ÕØB‡ '‡Ü\¼#¸¡uÉy> jg?ôÅ•ÑÓÍÙ" úØŽÄ,€¸ñC_?t`Âw9PÐ+ŠÝC|°íŸâ÷ø(i¡<ضyû¸ M1ÍÂCŽôC'‚þQ€n~ò%'%-´oÖn}-1Í\p¤ û°ïnÀ÷Ž—²²®þä9 º«M _Ô¸œ(è.¼Xt:Ø-£æ àX>ûò+> z\l›· n¢%BГÁéÛx³pÃ=ñ> :ÎÆ‚þñc´Ä4ó̓·(è¹¢øÞ-¼p•AX!è ö*‰x~而æ†ø!'%}z¹m³ö@¼ƒ–˜vAw¢zÝ„ ×ñnà†;ˆi’v¾ùê ÝÜßuâú«xµx¢ñãVX¹ÜÖ Cxtê@ÐÎå'›l'ìkåÞxã"nCГÂ"˜gÀ7ÄÿñQP;û¡*¢ÛM7×/\v¢•{e%¬ÜànüÐ#° 0á–¸~而æžø9-¬. ƒ˜8Ó}."ÅÀ×oÿ•öÙá]L£Ò/臸‡¾ã+¼Zê@ÐÎå#NÜZž|¶ÍÛul¡CГt~*lâà‡›_ÊGAíì‡~·òZbÚG¶Eô±Ÿ#fÜÀú8ø¡îlÜ?t Ù’)AÏ~$ç@ÐAL2Ò=÷å§,ô¥£ dAóvµ¬6ç÷ù·>Agmʤ4“Íþý±Á”bÊ%¯ d7=¯üY"„£ f•{)»úyÛ6á•»ó ¼¥ ·?ôgED9 I»±L¨0þ½¬dT¶oÒ¬Gô+]ãGøÜU×æÿŸ½ó ‰+;ø_òÉÍëÌh«cF]'üsÕ„IÅ5¸þÙ*+ZµÐD“AL„R0`->(J4R ©E¡Êæ¡;EZ0û&}IMûBËn»ûP‚K—¾úûçÜ3÷ž¹÷Žs3'žÇsæ|sîwÎý~ç;ç;÷Fl³8s¥%k­Ôðâ×}¤Ñ3çâ­ Š1õ®{rÑ_üí›wÄbGò·i_ý7G/¥×ûE“.Ën”É"H%/.˜¿[¢ŒÀ¢ ÄKÌȽÍ,ˆPžmÛÓ 7 ÷#µ°²°€þ½ÏŠ€þÞo>wZrÊëõydJýPóf€îJ²Ð{z¢T¿ú§Q ?¡jÎO#’˜ÑXtÇ{ W ôW šL?½;ô›°í˜M§bÎô“Á5-GnÌv#ŠÑ_ÏÖ‹ç4h<ºp¸Å–)G0'êƒ,ê¢l´Fjb£+ Ûˆ_‡4Ì ,ϲíi…†ÛèÏòÃôü¬Ø èGÞsZ˪… ýÖíy2ÐÐܽ! »’ìô£À=RN.¿¥¾ÿ¨¾ÿ£ ‘z”ñ'KÇï“?Ýy鯌cËꯞÀ*¨ès¬ÔH2@{6FfLd¾s ÀnÇ"þ¯¨YäÎ\¼º„ú)ÝK›Å©˜;}ÑK¤Wªk±Eg³“ÎꃫgëÅs$œ(Iêiõƒ‡)£ÔLL×ýâjÔ;—Íj‡Újˆ¥¯²½½·wѽø{xËzbíSpôýg ÷too¯d ô\”û~[ì t§ckÄc’‡_)®:A['#-Ÿ%CÎú%}abšcæqdI Ê'ä}€ŒžÙ ÌÚÊÏ›»KQã*^Q“©…§$¨»…¿ÑHÜMè/G £pž\§8¤Çd*>÷²ú!M§b.õQE\“›Z‹. ÞéêgÎÅó:¨Š+å0Ù$°¦wU«8 ëÉ]t •0æX¶„Ã_áx+zi ô¾LijÉ}”þ¸ú>„› · øm~ÐŽ­}ôé™âïÿ2[ ÏŸ%¡ÿWï•û™Ç@¯,v\ìátu\ýx‡y"å»qQŸÊvà´ç•:ÏE'¬:×øb“ÚÂrÀ”Âí"ïì_öè]Ee=#IUQü©i­[´ÉÐ:Bš,NÅêƒx(ÚRãE?4ù<ÓGÏÖ‹çvÐ ÀÂ!£SÒ•~{ PUu\¿¯„ˆZË¢5\ ´akŽ@·/ÔX1LÒ„ìè™ 7î‚ú?Š‹?üù¯³ú,vry$¥_å‚úÞ22Z ã¢)®G½¡ó}˲¥~jèÐ2ûÃgóïæŽ#+çt7¥§¶‹û–<Ûˆn`†Sýý§*Ww×0€Î4YœŠ9ÔN'búX´ÿù„U=[/žÛAe {½Nñ¯oôÛž8 Œ^Â%Ï›MÏ^‘ƒ_Á‘Õ¬MÑâ=t(ëcl;Þˆ¥Ž@·/ÈF°0›’hY]=SáÃ]p@ÿÓÿyäˆ3Ð?ýÊN­dS"ÎNº+~¤¦£>Ú~aõxHýç,çÊ%JuóéŽI c+>mö¥¤2® ²ºÝŽ}!5uGS¾Ë‰8;ÙÀÚuZíTÉýõYQÞ¹çôa¬˜¬7ÆÅ8@‹^xË$¿TW¦.^}^§!€Œý”-ÀÛwÿ»d7x£ÚX§ –ƒß˜×fÿ’u`ÍâUÌ¡>:Vèø…WúàéÙzñ¼ú©=^_øö±µi<zs~99¶v §Õ2“ËÍ)[a\¡ê§ºxá:ï9}Ý—>qôŒ…[ ·#п}ý»ƒwlÍèßµ}j‘ÙßÝmÞSuZ¦ß-ò4ú”_˪œÝÑJÕYÖÅýö” »VAÂV…žUÒÊ}…Ãó§´öHZ OËôÖŽm9]\ò ̸hXb r€ùn+Î ¯R—ª-Ï-áì:=txàS²ZD{÷°’æ›°MξL²L=Œ5P›&k3—ñ„V}¬P§@î{¥žž9úàtÐIâÑOÍ ¯œöîßóC ¿#@¯b¨05#"Ó°d!¬m€Z€ÞŠ6S3™ Dîµ Ž^£øÊø 0Ìj@“þ¹àvÅÈ´ò;lv¯4õø]5³á ÀpF6ÿñ6Ô·¬%o¼Ð¶QªèœÈœÅ¯˜3}l% ƒÂùYݤgŽ>,tŸDíNun- £B¢Âa* ç$µè›9˜®AªÞìÊ„õ ˜ƒY8@·Aì`¬¹ub€À7¬vŽ©¦ÙÐ3ž9Ð?þË è¶QîÝÀÁÁ.³ ù†Zn t«£»êú‰391¹*°Ø庂žºfº|¢vŸ tâ­[Ž¢ÓÞÅÌ=ʹ@ߨm¡ !m3 ÏâànRC*—ˆq ®í¨Èœ »PCžYD6ìƒùü"æ^\êNSžx t$UfÈsÍ*qFW£Þp×Ã0ÞѸ‹]P¦éÐ’Å­˜;}Dpà>ŽèÓ8€=OnÒ3GÖáX:¯f^†ìNÆLBóPb›8@·¯ æã)S/Rõ£á¡É’ە☔Gn'bÖXN= ÚôtB©Õ-Ð3¾ Èקf ôê4ÓÛã-'ð;U k¾vÀ²úé–zgš,¡v³Õ±Ët‰ +§ž“8Ï "nÔ²þùözT°?¶¶=|%C +¡x¡¹ÖÕ¡$ˆÈpú¼…Zvg‡˜-ŠdC²nõçQêD¥±OKœ§1¯€>nœ­ÓNTKB‰²y3¥>~¯b.õ1„¿?8Òé‹Cñ»å‘>xzæèƒÓ í“ôékÞtÓO÷Àû´T˜ªª`ö(o› hSÖÖ’€n'^¨Ðo×ïdtaFv“o¢1²Fp–±ÊN-èÉÈSà´Í÷öRKyJÃCœâzñÆ`˜Õ”u5Ðà@¯a’•§ñp²8s¬óêŠmòšÎrVfzªž9Ÿ®ƒ´tÇ°'/;|Yü¿ƒ ôBØCÿ{ñ›ŠŠÓßh‚îsªÂX–¶¬¼WÓjóu »Ï&Ÿb™ŸˆàßrôÌ„ï è}öçBŒr?sÆ&Ê/Õ]ž›!‹€h\Œ'…†)ЧÒ U­ö22±:GPèýäí9'M­Ã É»LjåýuJEçn„ötáÂÙûɆÆ(Yû¡çЗ™{)î×ÿÙ;÷Ø(Ž;ŽŸI%vu9ŸŸlLlL!®8Ø;—×êÚ–C188@+‘[( 0BlS\A0JBB…¤@© …>ªÔ¸BÐGL ¥œô?¤îìÞîííÍíùŽ½Ý½ïç`›ÙùÍÜ|wf¿ß(µ®¶oöè—…N*¿p©À Óá½Ü•÷_ÙÒQx<—“ú¸^‹^¥^¢|Ñl{T¼´¥þ•55$wE›Qö Ø™ÒøP¤šR³Œh3âÐm 豋CW)n·êåe‹Ê݈ê3ò’5q‘«?‚®W¼ö–æ“}N¯ä³ qwRR˜§õÈ JÐoðÛ˜‹C'þmEÚEñxQ¼KÕËõ¹a]`AÁD²é-æ²”e—RÐÇ´-÷|qHiOïI¢¿5 zñ˜¾RZæ«.AWMÊiªÁòŠÿ“=Š Ëu:„'¡õ”힪ñÝ.¨¤2TÁ¯¨ty€ôû\ª~« ^¢|Ñt{øWƒ ô@;SO½¡ìõ¯£ÌˆFßáïAЙôRÕR¸^ã·â³_o§9®~ º^ñ²¦]Ý#›\C4}fŠŒ¬ð¨Ý™qèµú™â¦p¾@/yÁ‰ üsTK)rdóÁþ:¼¤,UÉ.¥ ªµÑˆô© å8taŠõ‡ K´©{zrAÏ9ûüßXÐîªÖá²»[–p7íã/EµånÏ4°¤3ŸÖ¼ž#<írƽJÀ¾¥zî™,í'?êOuïÊöp)5ÔK”/škW1}òa}ò4‚®±3¥ñ”–ä~Oµe_iÈ{מ›_CЭô·/ž’2Õ»¿t§.ý3â•ZžàÒô~?Õí_`ÏÝ•#ôÈ RÐ;ø}³îQ $pFu8K^¦äš³GmöžooTGÐËSÝòkÁÁÒ†úvŸìR *Qíµ&ŠË_¦¸j¡ïVj'Måø³œ[twÜ®ô$ÿŠ“|_‚>Ù£l³“@µ,ÿ“‰:09ÄFŽaÛ{)ŠŠÁ~-Ú‹ó9ƒ²…«Œœ /h•H‡ƒ¶¨ª™%=±Q.Q¾h¦=– öÔùþÚ1Àïžgˆ kìLi<å†æ 8²ˆ¯q%k ½ÿd*)1R´™bhŸ §9*…t½âõÇ“y; l¿Þ¡GYx$‚Þ{»!þ½?7¨‹x|ª¼À]ÆI®Ý+9%£Ë¯/žFGÐûljð¿fHӵؔ‚Èá:¯)ë^ož"èäL¿@­&gæVûD$Ó·P¢ÍBœé¯œÜþÒHWè)Ê^iªþ:Í;Ö6ŽË”ÙgÁñMá!Yú‚3Þ¼ö0笅°-BOJBT1FÚ;èV¬˜]'u9å勦Ú#‡sVž×Fg`;Ó|C}^e(LÕÎÈŒ2Ç›f° ×y>r¨­üvew¥|VÂ…ö§¡ ºNñýÛ©]nUFåþ zt…;ÞËý¡¤ìáRº‰üuL#ùssdÍv‹{†YdÍ>!Œ OSd{¸/»ûKrZ9JABWºE¡Yé˜ùp–NµQ)/†¹*²E´ ]ÎN§”¬Ú'÷Šåvˆ»>ÛU‚žÐÝݽ0œ ã¸d2ÍgïP»å Ð, W EŽ!1ê+3MqÏŽ˜„1ÔcÚ«(?Ô‡°%ÂÜâÒº$_~š"¿J1ª±Bè³¢Ž—(_4ÓS8®Ž¼@Ì+ú|¨qö Ø9¸ñ´p’EãE9Áy1‚î\Ú…ÅH[‚4°eÝ«ïîî¢ÖNÍõ¡#èzÅ·ÉSþüí K%è!'àh ‡ ‡ôl)†Ü›*eÃ/’BVŸõÔÇ_ÈqË‹^=AÏO`)¯ª#9ûÄó´†·óä!Ô‚ÄðòÊüä‘y*A'+lO Ç†xÜK¹x8‹oI¥”ìߣ.ä×ÿd¼GlÀ• ·ûrÍë :Ù9pÿé…rúæ? =E»š"YrÝé;ÒÉI0Y6üq“Çï19 ªM c¶F°YÒ;ïT =(í\W§©¶iû…¡¸0Ô%ÊÍ´Çë‚5R÷0ãóp£¢Þã÷dØ*¿OoOS²ãÏr…tW™’Ñ]/ïnr’ïXpA®„ñò¥ÑïLôŸ¹µ¯§üY_ö»4%«^¹ø(ßê{u‰ »äCa9{ +%²™Úqžk œã|/‹k„c„3PÀºäœ?ãåß[ߥS7…¾Dù¢™ö*»î že¬=‚íÔxê õ —ÿ=¼Ï †÷Þ¿ÎÆút¬]ƒMnÞ1¥žÇd¯ôñÙZAú,9p¦†t½â‡Ž” *Ò¤O觠GUxD¹Ü/å:PÐG7ß ë;Û·%-‘,<‹ö¨÷²çñº9ÏÈ'åôUú^îës„µ—'³J6pIö’L-ˆl¥ˆ—r|;-Š “J­óñšºd7çN­Vb'U%Ëkôt²Z¡Õ IDATÈN-_LÅwü#tWǨJ¡ŠÌ7TsWø¦ö¬Œ¾•Î]9Êž‰Ü“©‚Þ!<“³J³"]ýĸ‘)•Õ¥ªì~?¬ÿ8Õ[4u©þ%ÊM´GBiuRJeþö ƒíA³³¦ñôruu§%&§ kXÃã<Ý‚nÊy脬ÇÉL:C½q€þ¹ ëß’&LÄÞ´aÚïôWУ)<A¿ÕÔê@A‡ît¶úkàt˜ôž$ºQ$åkcæìÀ8tº>éôãÞp*½û‚‘–fÛ÷ÖnÞ³Céc%è1€YôÜCjØÜ6¹½.˜¢&@'ØDÐc;ë ú§+f;Ñ).—áß÷7 s X è1ž€¶ÆÕOৠa½¼ªj‹ÑÅÆn^\UUå €XS #(èœ Ç%ÇÉW‚p0Ÿñ% í²qØÚù½tz,8~sÌpqèÖwakä«Ç(èúǧ3qèYáÎeƒ 3Íyþ$âÐqÍ5þ#-ñ²moí #ÑrAwbúôââô-Ìpël`5_ý6°šü)'¾Cßõ)ºKÔüµ^î@܃°5ˆ[ :À¹Ü`ä%ÛGöõr¯¹võ!è1¡î°Ã5þl4ÔÎqè×yL»VÓsþ²½Ü áå30‡Þ…Ä2@‡ü6Ä¡âš;ü=6š=q„Ä™qèµÈCôÜüF°|uxË(ë½Ó‰ïÐ7‰®À½·àåÄ=[€8áîiØ@ÐÎå#a-eîTÛÞ[^¡CÐct~*|â`‡Þû×Ùh¨ãÐoÞÁH´üÉ6ׂ>ºùrÀ ÌÄ¡E:ÐáVS+âÐôx`' ‚BâÌ8tAÐ|À'öu2ÒÒÙ÷ÖŽÏû#ÑbþàHAÏ=t(w `Ñÿx×üJ?;{Ѷ¾$o^5¿Òc«&YÐóü6øùÁV³«x¶âr¡çL2‰/6¿Ò·ùÍvµÇ9þ‚ù•žä×b$GU.Ø·øVúl»Úã›üOͯô;üLŒDâ:°#' ÷™_éïø«vµÇEþó+=ÅÅHŒÿI«‚0Á9 ^g9Vk[{4ì4¿Îßl0ÿ]jí¶?²1ÀsnÛÞÛÌ“'0AÐcÁñãè#˜a7ÿm6ºÈÆ‚þc~F¢ÅLZuÌ‚žÁóè[ èc—A!YËŸt  “8tô-¬p™ÿ=#-ýÞBÛÞÚ*þ3ŒD‹™éÈ8ôéÅÅÓÑ·,²áœùu6>bߧÇw[ ®g,øñý|'¿ÕLú-l`5GùSô»v¡kY¤±i£ù•¶òÿµ«=vóï›_é6~9F"V0zC£° âÐA:‚âK2Åíµo¦¸¿[‘)®™âbHÁ|Ø@Ð ä¶Z°û½ëÔN»Ú£öm ´µa]£ù•.ÿ #¼ŒóØöÞ>™‰dîôØÌ) è#˜a§ï¬ÀÎqègùa$ZÌô3—(èÓ áå30‡~‰e€ËùmtÄ¡Àùf6úüwÙöÞ~Å?‡‘h1ÎŒC¯åùZô-‹±¢ßmœÁzÙSæ×™k=žÚû¿Õ}qŒ`1kùN úÀ͛ѵ,’±ï}ó+½j߸ëIÅæWÚÚt#+h\•û¼ÜAz ˆC@ЂA·áÔûKØ@Ð Ô6ÿÙüJÏÚÖèŸ×™_éìb //c$¬¥ÆjÛ{û^¡CÐcCFúˆIF3S)졦qÞY6¸ãÐ_,¼ˆÈjNäÆ™ ?·ê™Í{ßÒŸQš›‘³f`&}âÐçšZãKÐgó|S1Ï?£{ò.âЀ ;g=ƒ!è $ñ‡þ!Ï¿»làîøt€È‰}o2ÒÒçí{k¿ž·#ñÿìmlS×Ç·Âæ{dœ4!å¦h«0&hÌä—´/Ñ(˜7kQ%±PG™ÖZˢΪ\-K)™ÐÜ4ªf3%‚ESÂ"hÈ2—d ƒ –‘ø°}È$^ò-BÚW@ê‡]'N°M|ã|žsïùÿ¾är}ñsîó<>ÿkŸóœA_Ž¯Ycêo`ÓûeÁ>0`Gl%Äq¿‡¿Ñ鸰C‡jÛ£#!7Aä‘ü|üàj¢®¢Jn¨ý:cs·YŸ^öØ¡çRB²}j‡¸Û§&(¶OÃö©ê¡ŠJÐoÎ/Ùeì‚r@z6¨C+ècó#*cÈ!æì£xÊœÕIv¿Ñq6ŒL,3Uà`Adé£] ˵ƒçH gˆ»PC„¿ÍküÇR½Ý·åHp‘·O­‹Y}|º0n»©sÝè(b€4 ]P¶F;4b$A²ž…£«ù/SS[ è&ã˜R AyiecFô¯ û†Ž:tdb’Ý’äNž¶i!6L$Æ`uèXoúhÓ4ó¸¾ùlÇùÛ<ûø3øƒÚÏ"ù©9û> ÿÀ3n$Aocýs*Ó-v*@NlüMZ…ö‡U’À[‘ûPžú$è=ó eDÓÝ£ñ #ÕOžð7úôÉSøÃþÀä¼k1’ ŸclnŸµÛ¬ëL@$+ÅõŠ[Ayb¥¸~¬WBjNÀàeC¶–{ý7õ7°ƒõ {ø£Ññˆ¨þðvhkC»Ÿ¿Ñ–»rdøvÅ&lÛ®Ôc1wúò¸ÈØÕ˜%¹Änk–†ÄiˆP¬qKÈuèqö™HŒgbÒP‚n 3Æ\Œ5é®äîq:=ˆ-² Múy,,thaÝÆtËÞP—sGcD÷Ô¡ Éù]›ÌŽoÿaÛv™íE&c°:ôñ2æEledˆ"î¯`¨åoÓNàÚÞH~j†p1­ó…ݦtËiìÜ"%jß £S¬ET¸]ýü†›ÈD(ð·5}ì[ð쇞 öC@ЂA°ë½:oð£Naç=èjçoô¨+Êßh@’²–ÃÖÕ¶í†Ð!è¥AU#)qHcþÈÄß—#ÁE®Cot&ÑQ³›PÐÁ Ö,@¤©Cÿuè@‡DsØ„‚Ž:t è&¤ÎV Ay1g:™ˆõµIr§>q›vµ)‚L„ —ûÀ€±•Ç}‚={¦ãªmSüŽ„Ü‘Gò ðñƒ ¨‰ºŠ*¹}Rœz.%$Û§vˆ»}j‚bûÔ1lŸ €¡ªP¶DuèÙ A†$æìãoô&›ÕIv¿Ñq6ŒL,3UàAR Îw' †›×:ù¥z»oË‘à"oŸZ?³z EŒÔ¡ ÊÖèq‡FL(è*c*b ÝdS*!è /­lÌ„‚Ž:tdb’Ý’äNž¶i!6L$Æœuè—˃ØÊH'ÁVÜþâ>=^ÐʈÚ7Èß蔸u×nW?£áæ2 üíEMÃ,w "¨CÏuè:€ CÐ!èv½—àA2à ÞáotÂ)ì\ ]íüu,¼¤¬å°uµ°m;…!tziPUÄHJÒ…?2ñ7ÅåHp‘ëÐIô@ÔÄì&tG0ˆ5‹iêÐ?@:Ð!Ñ6¡ £º ©³UCÐA^ÌY‡A@&b}m’Ü©Oܦ]mŠ !è%À>0`Gl%Äq¿‡¿Ñ鸰C‡jÛ£#!7Aä‘ü|üàj¢®¢JnDŸg‡žK Éö©ânŸš Ø>u Û§`¨‡*”­Az6¨C@Ð!‰9ûø½É¦DõG’]àotœ #KÅLÕ8@Ð$†³‡FÄÝ ¨!ÂßæµNþc©ÞîÛr$¸ÈÛ§ÖÅ,‚^FG#¤u耲5zÜ¡ ºÊ˜ŠØA7Ç”J:ÈK+3¡ £™˜d·$¹Óƒ'…mZˆM#‰1gºÇåò ¶2ÒI°·…¸OψëÁ‡ï\ÉOû:|@Í07¡ [¢Q„VFüÍ]ü†Ù#Qýq† ò7ÚÍZ‰Pàèô›QÐœ =Ô¡ èÀ¬×+îJq÷(VŠëÇJq%¤æ| è@ìa‚_¿£ãQýáí ÐÖ†v?£-wåÈðíŠMض]©ÇbîôÒô) ˆÒ¡[ @ä:ô8{ˆL$Æ31iBA÷8˜å€4HS‡~ ËZX· uèÈD’å¸Qßþ5¶í2Û‹L$Æœuè^Ƽˆ­Œ QÄ]ଵümÚ üQÛ»ÉOÍpcN ¦•õ›PÐ-§O#´2¢ö ò7:%nݵÛÕÏßh¸9L€{QÓÇ0ˈêгA:‚ ètº€]ï%ø˜KÐÕOw!‹2#ùý{ƒwøp ;èAW;£G] /$)k9l]-lÛNa‚^Žq¶” «ªÞ«o+Ø^=´³Ø–¬V”/v/û”ÒËFÙdS¬åÛ2 àãO~²ÄS&¾È<ófêÌ‘ºÕJEù¾(‰éÆ(ü‘‰¿).GÏ+rz£3ÉÃÌCV¥üõ_åž_“Ó•f|»Y¹Gy¾8à•Ù«ª3±èõϛֱ¸ìÖ§ØVU©X+6~™yn÷:í\Ù†™rqLçýcv£ º·-%èŽ`ÐQ¨ §ø‹h‚¾{îï?;(€ïU(U…zV ¿e.Arb´:ô_ïÞd{ý¸Ï\‚Χýskº«Ü°²`Aÿ“²wô±Öïüyñ‹ªågéÃïþÞª(Ö= ºÎõz¦3,Ùú_*Jeúð}í!oö@ûòõÇô¹—íùM!‚^äCmÙÚÒ‚®O® oYPBßî×ʬŠµüµÒ/U(e–™¿¾jSlUÇ®÷í«¶þŸ½sýâº8&¶ç®†Ùõ>¯y26ÆbØ”`ZK&˜µm(˜Ô±Š âaS´FV$×BE$0ˆ88Yj"ƒZpˆqƒ#‘R¤©i¤~Àò¡jû U²øzŸ3ã;»³ë} »÷|ÀÃÌ9çÎìÌï>Î9xüÝzÊ݆'*Õ»Âê‰niò¦W–!D»ÊàYxÏÐkØkîbGÑîÛ•n¨¡æbX7¶Ð Ÿ®RDs7ÌA#€«\#=¾×à‡tcî,×=ºüªFb# ‹8ôÙ"âÐç(÷RæƒÖÆ&Îù¢Ô¶§H‘Ýææ,HÛ°öÙþ™Ù÷ÝS§mo÷FË@7/Kµ^c’Ö‡/i\:FÞ } èÉInÝËzèG]Z›yœ}ÆKw±^|5Û¥RîŸç\«}ÄIwx±=˜<ЧU ¬Y0¾íšß3 èuXÏ9bú=Ý`O-ÇU +Á«ªÑýá†/2¯ô¯ŽŸìúý{æøCæ•>rÜ@’î ˆ'Ή‘øzá å3ЮsK‡Ÿq?¯Ì2vS´BrXJèfåc¨ž¥qŽÖC¹FYÓ@…zâ@_èüÄlB+ C!?|>`‚rÙWâǤEU‡8]=Q ßP™R®¨µë*'Јš<ÀN„åÊ¢ÖÀlÍ÷£2J‘ wÀ_0\Ï6šz‘†éòເ‹Öà]!dZYX ÂßA}08€Çÿà5j€.icîm üQ1 s*Á©*Ç;9Å=ÉÂtöݯí»Сë™×ùçó™DßsåïöúL°&e šã\+þò©Ùú;ߦ}Yž›lz™ð®„W¦B‹¶yìì$tóò1TW˜D¿%c=‰YCÏaGJ:¾Ó-ËîPO.ýîi"ï[ú7ßXúÌ j㈲šbÌ6Ø÷UÚ—aYtw#õlü>lŠ6)jE¯ ¦\„n¡½YÆÆ^ЉeO%Úsv] #)ê”H, óæÐC øÜfí>x9s1a;$isèP?ÿ1ý" @TÃôZ':§œªr ^îB²-é [›;ЋÏÕ€D¤æ\ÑÜp= g l­€ZE¹ÃO9‘Añr7)o®ú©ÕX¤øÖ97:Q¤»)ÔÂâÖ•÷¬}Û_Ûèß9ˆÜµ ôÅÇâØ@—½Dœ ¾[¸«Ùw÷‘½ð6.¥\V–1¶‚§¤ *¨¦”{©‘ºÎEÓÔ ñ]*DçKðÁaBF Ï>ÐÛàEöÒS`ËâuÊQÊås¤úö‘G{ûa /QÇÜ@ 3 s*Á©ª‰!èBrèt4«¹€LÂMÉÒp…q&Îù"Nô™êîS±”ç4ÐkuYÀ–®ûŠä±èDn®š§1Iëñ¬§BÚ|°8üoÉ <é{ÌÐãø6?}–TßÆ»_ö×N³"ðvS._Ónäé¢V«o;¡Ü(óÙ‰‡iG^;>–Uïpr@?¡ŸÙKx|¶ðh"ƒ°·´5¬ý&S”ÌÝ“’èÈ6ü=x¡ {(Ð9•àT•cˆº¬ËŽ¿¥åº€¾~êʲþ½„^-ÅÊHVLulܙ5 àøoºUÔΊ$}x5­“9ñ驺©j®Æ$­/%O¿=à¡_n…ðñädº5 7lÚÔ`è5knK¼tÒ¾©[ëÂçßEÞ¡!VÌE(çÓ=§^xÉ9q3ÙSÀ Ùª2úADgŠsò~M½ö}”!É¿4ÄÚ1 £¸úò`Äo½nĉ qß~3F9:§œªr ±ÐÏga)îÎ×îÚtü4 p}œ……R~=O€÷@ö€¾í/iW±]÷IŠpû¸ýÔ[t¢@7UÍÕ˜¤õ}½Ý(û—VP Á;jè÷rèÒ˜ë=Ñ9ôºvä>V5ëX¤kWȇßÃ7(ЙÇ7l/5’6”꫾‚PÎKŽ¨÷{?9ñ¨ QJÊ«\ [™CŽ_-ÀÃ7C| Kħ¾lçþB>ÐGh×z (…*Ð9•àT•cˆ€ÞyêÃÌ+½ìøŸ]yþ©ã«Ì+½â83=Û ¹Ç?Ó^îðÖ϶ùƒÖN:˜r ›ªæjLÒz,{i¢×r:ËK[ 5V€¾î|g.=¶hNq…Ã@ï7iÒ5©Ðwh@o'÷óŽ®Åµƒô^µó’2ÈM=ñStõ_fè%QïüîQ6úx nmêãÁê—qT:§œªr qè"}–ˆ8t½¤Ø).¾äÐuÌÓZE9aÚ`ƒh21 ë¿Ç1Ê›©ækLÎz*µÄkÞÇÌ@Y¢ò_„­ÅºÔ†&-ZèÚɽWJCÇÊLîÖQ®Uúõâõ*Ðw¤èð¢þÕ:Y†ÝÔÌ€.I3ŸQòÊoð€¾¹W©c íüJpªÊ1$ï3Å}nßLqÿÊF¦¸[9”)ÎvakRUW>}T7ÑÈ üä†w§èfªÍʶžJ#™_Ö¥þ,bþUè1Ž''2~uÞz×ê®f r —j 4¶M‡Ü»ô0ûSt¨ûbT? L¥n}npµq€~¹ûHÜ„6ä] NU9†Ø è+/gaôûÆ£ëvýîùmØzèlgæ•žþ§}.¥0±Ì–¸‰]³ôïÞIOݳQyÆŸñ€¡¬››â%@7S펓TƲõá^¶µ”Ðû¦®øx~÷в täÊ ~À[× =‹5H ðà9;×ktŠ+†—ë‹ t½Xún½|ÿ; Àn¶gQàËÛ¼\î(EA#èÈðžbtè€Î©§ªC„—»¬Ëõ4Í-Ø.õ«ãпwü'Ý*šu3ÏõêÉqx+'ºd­¼‰j [?äÒÜH½Qª~DEl 7<þñÕz\iØ°¡Á*ÐqpÀ ú€‡4¢’H#ЗkC%ŸÐX®}ºˆ¯×ÚïM!Ыà/µßÚŒœ*êæ`Ü8Èîz­WfiÿË£ÆåÐûØÔ"óÚù•àT•cˆº¬KºâÐm·8KüLqÙ[œ%ë¡—ð+Ú¡õpÖ‹ FeõN!ÐMT›hLØú­:¬"sè/-nºúKl Ÿv\ÉA '²:.ä+Z¯ù N:m:Ê9CÊÛM)ד]\4þ<µ@ŸTX.Z©­ž\ý"ªÔÁ ’ÞBƒʵzxMzè[¨öÑ:§œªr @’uyæ8“–ëfbùÔùX>µm÷¢ ›l]þäx;í:†Ô¬X£¼IèJݸeªÎWm¢1aëûÔqÒ…Æïn=‰TêÑØžƒqèqeñÇ2Ðñj#;%ìƒàÂÑÛ½È÷ôÚ@GEFÑ\…Ÿ©ùPáC•qÔùØóô¤è¨.¡D«u~–xnTŠm¼ç!iæ îy¤ÍHƒçû£³Ç3 Ke(;û´è¼JpªÊ1ÄN@¿›´êíû&œ|+ó:Wfá~¼õùk¯JÛã^‡~:ÝÝÒÖºÚ::J#ŠÛÏáT]ž§Ú¨1<::º4ë!½eœßu-,äÆIµ#ã>ÔÚC‰ÇYŽ¯x™ânå Ð¥ßÅô;Ž:Z<Å_¡„,JÇÖ}µ8,8gt¼(Jy¨ÉóFÅYꑇjÓNŸÌzö xfÉÇ\ ãpWë ^7fHÛUÒ1ˆþÔ v\²ß=,¢„e­«*½4ž‘ô稆#³€Î©§ªClôÅ_|•y¥?Ù7îzÛ¦[™WzùÔIH¬>4›N÷4u‹»‘ œ@ߟÊŠNb+ëB=ZŠÔ”]½l€$5—ª9*¶J| ê=P—O5V‚WU£!"]Ä¡ë%—âÐÓ%½ÁjÅ°M܈ĥŠùÖ¶€^ø´K Ð9ªc=–õ˪هµ~FEÍqªùLsÐË=Õ@ÇSæ¨C¾6;¢Š·õ(J¦æyatØÎZ¡¥ú=) Ý¿Ý)¥æ×̹%Õ@—¤#•nÈe3ÚÙw†¡R ÿô¢¼8¸fWQ²;¥lUôpž täžÑtc%øU6D]]=S2o<ßïÀñnôÕkçwÜ,LЪã=–õRËü–z~ج+^¼¨DrÉí©   ÉÙsæ™WúxÃÛv½ÿþðlæ•þbÓÌ+=Ù¿ðfÙk[ÛÞ?ùJÝÊ@Ÿ“ôkìé¼úâÅny)ëòF©¸zéüå÷ùñ·s¸w7<@GæcYúÕ9ôugά“„’'’®8tô$qèöú›²3­fÇú“S—sèqâÐ…"€þ*JR*€ng ÷(,ˆ.Í IDATwGV€ž›qèèBþÏÞù¼4’´qüåCÏ3Ë\v‡Í\3°—w=ô!—•WD–ÉβÁ“¼ ﻞ„ D'`@â% †0$C6Á Q : þàñª Ž·a˜ÿáíIºÛ°ãkº*]ßÏeâtw=õTU÷·««ž* åÌ”$ž <3¾Jw™ ÿóÉ“ßu²ÏþÕ¹,ÿãÉ“'%to.çU€|ô\Ì;oôjKØ¡CÏÔ©óFWb}j_€Û¯«rûw#ªèq7e¹ÕFÐ|· ¹}Rœz.%\¶OMˆ»}ê6íS×\´}*p/®ô[¾T!l ˆâЛA:‚º’²šqÞèŠZTtÞè:-£%vŠž¡HÁ6‡áìÂJ@ØòI;oóíŒóc©¹C9øÃÖ†ÖÊ € w€ÕUÔÒ€8tè²°5WÒ[q¡ {ˆ<¨[ è.ã×û_CÐÁLÒš qèÈÄ1íKâéÏâ+´Dθ3ÝïóùQ·22Ãa+îð=qßK‹Äu“ÃÍ÷*ÆÏ›¾”o–iÝ…‚®,, je$I:o4EŸD-EÊ;otŽÆÑàAÏLØ‚äqèÍ A] —•â–Ä])îœÇJqY¬×A¾ÿ e è@¼)_¿ÖÓ¢–G ÁA[G¦ÃÎ?‘£…ÿpÿ¡°yÛŠúôÎ5!îö©Û<¶O]Ãö©tÕKÂÖ€ˆ ½Ä¡ è +)«çîÑ©¨åq@Eç®Ó2Zb§øøè @ÐlsÎ.¬ˆ»ÐHÚy›ogœK ÌÊÑÀEÞ>uh­¬zX]E ˆC„­ñ§/¶âBA÷yP·@Ð]Ư÷¿† ƒ™¤5 :âЉcÚ—ÄÓŸÿ#lÖbt…–ÈwÆ¡û}>?êVFf8lž'îÛci‘ƒ¸nr¸ù^¥ÑøyÓ·ƒ2àÍ2­»PЕ…T­Œ„#Iç¦è“¨å±HyçÎÑ8Z"<è™ »QÐœ ½Ä¡ è +á²RÜ’¸+ÅóX).‹•â:È÷¿¡ È€7Åáë÷ÂzZÔò$8hëÈtØy£ã'r´ðî?6oCXÌ‚Þ™gÊêiHó[àÈqè[ô-‘3þÍc º_U1Ëi&ýM/,³9ðö.ÍiÉõõUié .j\ñ:sɾþå/Y)}ÊgÚôÙ´Œß ºÓéÿKíŠyœæ\(èˆC@&(*‡£ÏúVؼUh°Ýá´ïó]ZÓ“û?½'Ïl/NïLÐÙ´ÌßN º;ãÐDHHG½ ¼‚õX¯ó6½Ê£wé?o–ƒcíÇ¢wúÙTOΫRxR_Ò8W| Rã_Ñ— z¹ïæç ›–ùûŽ½pÙæ!7IY º2;‹ÛKF<™¼óFOÅ»îóe7šŠl£%‚ëB÷ùî“Ë h¶ù%×YWä㣷ôöë° ·%<}«éc˜åDqèÍ ˆÂSUÿr3MßY²¸YINìîtüŸó¾P¥ÄÞU'Á¤/wjLœ¹ºë›ˆ&ôQï -MDêÉU”E:×ÏNW£jt¶g{+”̦õkÊ©èDüý²®ûlZõ+Øñ ÒÐnbÏln"Ta‡ÓÃJ¹ÈMZŸÜí]©§Å¤› ™Ã]µÿì&G¯eÝÆ]Æã“{‚6ö¢jâŽJø zàôh@MÆJ^Ü!‚A—¿ýÙù‹)-‚~H»Õ½"åz5™Û¢øR5JUæ®Êg®‚Ưt2ò4u¥x@W¸xtjß_Kîø¥÷•_?;šý.JÙ‰¥ÉíkÿSÞ§âjŒvMA·Òª_¡GFLÕ;ÒUª¼>QÊyŠ'¦“tÑÈk8×|@ý¶‚n¹RK‹MWËœš½è§ü¨½£­Y·q—õ¦&èñøû¡§ô¢ËýrŸ(âÓÞ{²$×_÷¢GÎÝTE-Ëä´óF‡}^“$¬å—¯¾6o£í†ÐWh¯UÐCýÚCÜûTŸJ7l<Ð=GÖÇéõë›Ïô‘îuz­ýì-êaqAÚ÷XÉYgïô/ÜƉSº3Zõ꓾MA·ÒbHÔãæÍOãAšÖ¹ÌYßðYÃg”òêcÔ¶‚θb÷É=¹¡(…¸~¾£­Y·q—õ¦&è9]_˜ºVнEò(}«D‰vçy<7)é‘Æ(ʃ%Ú’£‹‡Tn>¸g®Ȩ 7äÓ· ¿Õžë2"Ú¶­)] :5»Ñ1EÙùì7/*é wÈ$gý^Ñ£›ŒpåaíXÀ—4²¦ [i1lÑ+¼5ä1ÿ(ÖÏ` ûCIã÷;Ag\±ôaóÄ!{G[²nãn“75AÿlS å[}»æ%èƒDæþí«¹lóD‰F±fÒ Múï݇4û¤l·vž(WÔEô˜BÃ:óV5&ÈœZéË=´“Òì\RW¯ -3ÉYgëºÐk/j]ìsz`ød :›Vƒ¹Æv¯†ðž×ô~TX¢Ø0|PKpÖ¶‡n¹b+è†h½§wöŽ¶dÝÆÝ&oj‚>cæ¦eFàv$u›ªã%è‰ú˜àµ›lˆ8t è.äLJ»Sг¦ü5Í$+m©D¾Õ€rBu|Ö£Þ\ò,©j½Î3Ÿv¤R4n„IÎ:{ÇPÅx]k#á%SЭ´šÞ1–YáÝ©¯É%O½»k¾ª¸¿¶Ÿ×påæYÛ:Ú’uw›¼© úŽ­ wYúäY-mŒÚͼ  åÌ”$ž>7kÕPúæƒë¦ÚOÓ+SÅÌþXa'•¤”Ö?Ë]ï»é±¿Ú¯¯X[N*UFÐ×›_®©âwµoÚ›¦ [i1L5–‡©õÐ+ÆÞPClõùgÃŒ Û¹Ò^Ðmmôëî6yã&Ao0HÍohÍxs9Ì‚—‘ž‹yç^mˆZž©Sç®Äú8Ô<¿·_›c{ô_¦W\ÑTðå¼!F'TTFCæêËꤥsïôF´nó7ç1FÐkÉݨŠ5cD™_˜‚ÞH‹åèÚºXvÞ˜:Îö˜GŸ6ÝÞ•ö‚nëhKÖmÜmò¦­ /ønrÃ[Ð{^Pÿh›ã^è¹”pÙ>5!îö©Û<¶O]Ãö©à%3Rë³!ª%}Ätl"©‹Û¸þ-»J±‚¦jY+4AýZ,O”4e<æE› A/1_¶ÝÜ íi"ðA­Ír¯§ÅŠÈ@h´qŸÌr9íW”p‘ê«6NQP;}Æšå~ƒ+ÛÌkƒù›t[G[²nç.ëM[A¿å›-oAß#<4Àu‡Þ âÐ „Õ¼þO9DÅ`…ÖÌàíàÞœ:PÏ ŠžUw©R°îªä@°Úo¬ÒºE¹áÙeôß5…«%w³ aãÙHFŸàΦe±h)ïKŠ½SÆr´»ÌÐt£;È.)_ŠÄ‚~ƒ+fZlº¬ Û9Úšu;woÚ úíà,è‡ô×—êQV3<Þ.OE-+Ç9ÖsÀóñѳ.Íy6bŒÄd|•’1ðü?öÎï5‘îŒã¥)ŒOè¾ïÒ—"¼Ð‚…¥lèÀÛ†¦ƒÔRð*Ê:¹)Xh²SôEišl@AjCzaR»(¸¦!qƒ’_l0qoH²{»ìPhiçœ3ÆÇÄõçó½Xf=s¾ÏÌ1ÎgæÌ9Ï™*H¼èM=•Œ e*v ¢7KQ!HgŽÏÆòXÞ-’—ÜÕuQT»¦TäöEþè’OëUSLó¾"’eT²Ó'²«¬ÙM˜³O‡åð‡‹Úâ,MN…yi|µ@7:ÑúC7:]ÍÙô?гϘÔ‡ò|>?†¿mT£ºð:;»Õ»IŽž&:s?‚/´?™zyùTs]?¬#«UôVv †Ì5DC/g Óö‹Y/×9iÏæS¨³@/ª#ýY/…} à¦σQ’Ö‡{:1:Of,Ì쌆è\ÀéQ,À,´‚ÿþû‹oZ§/Yéö٣ǚÍÖ»'úùW¦è¢ÇB ·² óä/%á’²M¼"-Vo7Sˆ ›ïœ´gcªqöÃè# ïZ eÎ*;ûÙRtdÊ@³8,À,¸‚ÿØP= š>eJgV½…Ý{ˆz—$ÿ\/ßIÛ Æ–üÑgÖž©æàUï]÷5@nyV Ð/in ™×#¤é[#»ô•ËÊÈ` XÁÿl¾m~j{l¡Û#Û¯­3û‹Ífá¡ýØö¥…nß±}ßô²<%í[ôVv‘È‹Kͼ.’m/T–r_ Xs6æÒgóÐÏ}Òr/· ÉZ ¨º¿û.,Å=3Ò»YŒ6V»ðÝíüï'¶GºýÝö Ý>³ýÑ:3kS¿þÕö] ݾhtÔ§×&ìôÐ=ˆ¾¼Ç~++øÕ£füÑÎÃû^mUÈt>è’YVf:õé䌴ÕñÐ- Ç–Ÿ¨ºÅoU'œ‡®×ÐÌCG #ÐQí«K@÷E¡¦ üPuêJ¦¸µÞÍwÝLq©.$}B #ÐQ}ô" ÐQ&rÄ»Ðû½²“èÕöð,v!¡âÓ…™ŽÇD #ÐQ}ôû_Sžâw„B èt”"÷îùÝÍó8Ê…B #Ðèägu+Ê Ðq=t Ž@ï /õ®×î‘í:(¸L2‡%šeŠi©&Á©!+£› ðÄ"ë'o“Ì­í„T¯›Rү롛ËàáPC¨l7¾÷|ï¶ÇlÖè´ÐùÄËô~z8\™š€ ¡Ú„×J(UwÛŠÁÉ‹9.ŸðâBn(Ãù6mi½…o‹Ÿº!ã3°àQÿDü*aÉ-tr A(ªÁÏà¨tœƒtul‰jHÊÔMz ¦·fNÚ^¥«µÌ×9ݱ¡zcDmËÍ„!·= âpÝnG¸ ¥œCÛÞ¯@O“7ÎA¸Vnþ ¥lÛ˵.tÖåî…åóÛ4Y-× 'µËyµË=ª`4&ž;ðBùw,o•¿Å2¼wçàn$»DVQwLÀ¤Þ–iºÜMÛ°¦NÚ^”ÃÎç`CîØP½1¢¶å® î càêžw Ѐ“C¡PC"z?ýùàXA¡# t ÔƒÚØl ô,/Ùmsƒš…Ï«@§o¹â0edqøÁÍJIö¹KðÒ}Ü! dýÁ™}Îè¦mXÓSÖÖð²Ã^WNQ†l¨ÞQÓrn‰-É>Zô|~yèNÈ}ŽžŒ׉PÛæå­µbÜ?â¹,»øhhÃÁ¡P(ú`=B>ˆ)Oßç M-ƒ¨úµ:2ÎÇû 7¾EþS # åÁ÷ÍFl)ÊÖØ8ÊV©Ë-¤K“vÎ膦¶VǺÕjxáùÀíê#Ъ7FÔ´Ü)Œrl{æ¡ßè‡ì檓@_öfL¸=ð Ê¥pö< …@p V±ôæneAôÃj¾³ØõcÃu£Ü Ð ,òWÊÅT(°ÞpnV6„\ÛØã•Âm)Ð LÛ°¦§¬­á–—Õ%è#0ò×WoŒ¨i¹wôE<ǽ  ;ÒéV»KÙ0Fq~>oôæå-•# ;ràš²sãÛ‹xiþ(9o–;ôÝÞi¯¶‡}þ²óA·Bã‰@ïK !]¿Ÿú„^`—FIàZÝÀ¢¡Í„+1ê.A”A¯šý%{BÜè¦mXÓSÖÖðB‘^¥xQ¡:mM_½1¢¦åNéÈ8ò*^ô¡­)7½>(ÎÑŠç3<\‹Py˜käc3Ê}X· ~\äý£Ô•åS{wùÔƒn,Ÿú —OE ßè>‰]ñž—æt@Ïò}hº&Ø2z£ÅKÓˈþÎA¹(GÇUê>_Þ%EoÈ»y WÖÄIWÃËèûFyºÖE ;6VoŒ¨i9·‹µÐDý ¸öõý´µ÷ :âj[uè‹ÕÉÂEèÝœcý!œ‡®×ÐÌCÿ—ís Ý~`û‘¥œûuf_YzçòCÛ/-t{lûÙ®áÍB.…¥<Ÿì|Ðc¸ìÕö8­»ßïˆv´ƒ˜:¥_YMî{_ÿÁB·?ÿã[ºýî·š}ãëŸ[èöû¿ýé¡@·!pU:‚BVôÙ4m{“°à¨úsð—/t@o´Øƒôt,I8ã|²‹3H:cÕÉâ.ïñ/ê iÛ¤ª5׬ ò kꤩ¡œ‰«üls‚öªk#¨óÐïª7‰¨k¹l2¥yκr`•d%R'%¼:3"!‘°=A¿Kph¬Ð+lPC€vdCʦË0¯Ôp(©ÃÝÈ´É‹œbÎ$¹ö$X–upXuÐ…×ÙÙ­ÞËø4Ñù˜ûœ3ŠºÐ9O%#H™ŠÓËNŸÈ®2Í£¦O˜Ze¯è³ñ°,–w‹PP‚”I/ìK™_U_tO$^ô&ê YÝd/´5¦Z¼>Èš:ij(g²¾ã’s¬_…¬UoQßröé°þp1@ßÞ6/¿¢O./À¯ß™¹Èù‚ æ«À>ƒè¤Sù³¢]†@ç¡ð6ÿ<°FÊRœÊrÙ©–Xy`tAð“ËWx6jӸ˽*åfOôá/…B¡zGã¼£o"Ž‡¶èv»é3•Doíf…*`g’ÊíV üë\Ø{êhÃWÒv CÁÇH ×ÂiuŸÚCâȬCÞËæ3šýº0š…B¡PÍÛ럈sðjÞjú”:cmDµC} Ä3Ü2`§ M»ÒÝšju@g™û/é8¬¥»”B¢fˆÔød„SwrµúhîQ( Õu͆Îû'â`ÎCw ‚Û¬¼ æ-X¯¼ C«ÀÞC•U]ÏGÐOÕ["àH„ÿ³w~¯mdW‡Mèw7ìn¨º mÑC·»¬ºv‡eq B]’¦Ú²,˜šm4¢”¢²ETDA \;O+j¼¡Tq‰ZcŒD¹&x]ŵð¯bÙÄÈq^úƒíä­„ü{gFº#dÅ’%E:߇x’¹>sïÍÌ|æþ8çH M¢Ágy~p är §¯iÒ'Ùíêø|´Ÿž5ÞúTÜÄw&ݱý17ÕúkñFD¡Ú¡yXêB “[5ó=-CIÆÜF:ÁöÉNÈô´3:Uè7´W&ºÈ™äòùÚçï9¹ˆC<ÐJh0°M"ÏfkPiýE'ài§öǤZÑIt¾D¡Ú#Ǹ¯^[yŽ¾Zì6箇‚5B»F–õƒ³Õ€~Ñt« 5¬úû‘{7Ç÷ŽúÚÀM¼ú¡›Õ3~è(êäz¡ÞŸ€hZ“JU-ã­/I=`«Ý¾½£ûÚj=a¹þ½âl€XW< !Ü×µ%RÜíÎwÐŽHq3¸·…B ·JóÅ•ÖUpÙèÏQHøFÅêa¨N?X¸Ã <†’d  ßƒ„¶p˜ŽdJ¯3ÙÎ~Xè»aPн²O´aöûÖR¼SûÃm[¯ŽùðND¡èÍ{§\­9‚G4?óº;îÈÅv2T÷»ô¡û4À­:€®þ©Í»ÞäÜÖAÝÈ Dú3y«·n ”;xO¡P(ª¹WN´A¾Ów¹‹bõ¶G"7N¶É4ÄÌ®ÌðªXŸ5Pˆ-ÇtJ‰ÛjÝŸÈûH`ô„zLC «_î9ºßÏæ6§VT(póÛºèÁÈØXïL …B=—®•;YuÐkú¡ïð¡_ˆàÀQeþe¤¸Žj[A…°,8—I@gÛÚ€…Šå>%$%‚ z•8¡¹î*>5ü ·EÆ»¹ €I×P(T÷ËHRY«âÙÙÿ’Ž×½´5A}@ÌÑlËÄÛbÇzÄ׺Ô~è.n…"¦\·*˜÷Œm7dòë¨îŸ-(¢+ã¾ jø†Õò…û¦8ÖÛKNQÚÜŸ"N,Þ“Kˆáò)Þ‰Þè§\;ª/vnÚà i_ÄûõB=.=+!{*ä­tGŠ#gEÑ€ÎÛÒŽŸè#0Ó…@'±>*½(["Õú‹>ê\¿ë‹ÒLë/:\Ç;Uçø‘§ЭOª†ÃnbÁ—§¿§Áèųä±*”jžè‹«7·eÊþ^—|cW»è¨Þú¡›…~è¨QcíI;9 ÏÔ?“.uœ»Rèų„¤"þ“½v%ú …@G!ÐètTÝÏæ¦ G9CtcÒ}Hyôyõ•¬ÚÌ/šÑ©çZ]·Eg”yBºŸ¥$9ËÆ|†Qÿ*9S\qãI}èU¤ä#‡¹>Ä S…Pø¹$ÒßË’)8 ‡t T}²ÝOS²²ºa\G?Kø™9£¨-– ÉÙËF«Ãò\8”)M¹[WÛ°ÅÙÂøΦèÜ·nÕµò„ ­¿èŠx¥SûãHkýE¥[x'¢ÊW‚—&öÃñP¿ž!‰KÒ²NíØÌå3ì·z$²7p †(ËV!r;f¾ÀՀΙâ‹@OdÆŸxÙFp¾>^ˆ„G·Ü {{ìÞ!ýÓn2ƒììCâR­D]ô#•]G?K-0×(6ÖŠ.¦ Sôˆ£åöE ³pœ–@/U[·ÅÛBXœ9tBÊoÕ¨žºÍ†OPOÊÑ3Åþ@½HZ¢.Á¤?Õ¤Oݶ™Q[vªÀ³_‚+V@ORpÑAñ Ìx˜ÿ‘:\vø|Ä èœ)¾¸t'Ýã¼OW¿ùúxa‹ã®9Lˆ6ß=Kª•¸ì²U,(.‡©¨ÆÔ¢GImF¾¼Ñû0agO¬€ÎUÛjÊ]Y¦!ËhùÊF•iñD™Ô;èŽp_*( Õ!ÚxæÖðEg‹w]’WÈRjÛe‰¦Àò­+ Óem’WéoO+±^¾‘›##gÊ¢xiCëas}¼Ì‰]¤èá ûrØY«úª‘D+še›ö—ŒE£Ý²ÂŽÏYï+ jª÷¡õàDý¸|è( …j¥lçb“ŠÍ9€Í´t^3™»b#–@§ÿSG½» RÝgU s¦,ŠGõ˜ßRÂ\/Ì6ÂÞ¨º¶Ê¯SÔ$<á‹èy6ýbÐ^Ùèm8G´–Xй°:K2²ª÷¡îôCG £P(Tçhq_²ÚD; ÈzDMmSÜܪ¨ž\ðX}ÃúÃb´©:ÐK¦,ŠGA ¢ˆæúèná3f`3š.³Õ{k ëßFÑ #H[l•~¢¯¸ÏZoŠ+õ@Õ]îèUû »nO&íøõ ‡mHBûdu»cE£ZÑ»ÃñND•) Ãóq?Éi@ŸEÛ#nDIoL(0Qè˦ˆ`& Ok¸¾Æ›²(:±MÜ¢Ó\èKæH6Œ¦GúÝã¯úh1<Œ>BÏjô‘%‹Foë_ƒЭª]èUûÀÐ-éD.7¾)ÎŽ<ïIµ%}j´sÓ§®·#}ê=LŸŠ*׈°wò0»9F °R.ê@¿q“í"{XZ{¶º_2÷¯9SŸq IDAT¹²ûK)gU2r¦,ŠGY$NrUJ›ê£=÷+€NÌ•äÄ+@/T¬¡³¢ÅA=·K;{©tëj×zÕ>(iNô߃nk¨Nú¡›ÕK~è^xMè{õ6ÇÚ/ßx¥Oxù¥¿þ¬YÕ;{YøZ£6þóÉ«}Âù7>o^§5£VuuX6ÂÖÎWh2,)®òiÕ®Q;by«¯ÝÀ¬®t‡Ó„ôÏÐçßåþŒÍuÏÑýã¼)¾¸ñ¤:ã„RðØ\èsfg°uf6‡nº‹ON—Ýá’ý¦¢‡0¦õeàŒU£'Àëgáà  W©ö:—^E;æ€nѨ¦ŽêD-Š‰Ö_4:µ?¶KƒžÖi©¸´ØB}ô]A×OÏ6ÁÚÃÚËßkRÿ$4ŒÎ/úôJ½}–tN­êì°UHƆ!;45¥Š&ÇìýÐ]Þü¤(o׺mÂû¹MȦÍ~è‹2d¼Y¸§9tMñÅ  +.oÎɦö¹ú@÷‰)óè Xx@lØZØ—é=]ô©yµ¢$l.x0f·h4Ig • FŠ@¯RmÍo—ze£è¨îÕz–³Ów=ÛWã­¿æÚxë}F?}IeÉû?~û²ú㓆­ýZ{óã_\ ý°)ü‰Ð0:?SM¼òñ;ÍibÓjUo‡&"!gae²* ywB┾†>•E§·t¯ZxöR’œÚ££^èd{Æ%e7æØb4gŠ+n}>§HCseõ)æJ™ švì9in[l+$Ÿ›&@qKîZÑôàVÈU˜³l´jh0Š<{PJÎR¥Úš-Î.ôÊFõÐm(TÏèïêÐð=zð®J”4jí;‚ÐÇ°ô·T»5^½³ÿFç¿^SAþ©ÞÄŸ7£ÓšQ«Sê°ãuQ|þ}RÇE?xž‰lG8uâZ^m?ÜitËðÝ.º ÀFP(Toè¬ »/´Ã/áƒ&Xû¦vø»ó‚ð熫÷Û÷…ÆÑ©~³|];úª ¼Õ„NkJ­N§ÃêPlõùçØ,'3Îú'ÛÆÈî:¬m·?À½.:ú¡£P=¤ßÂkúá¯áÍ­½'ç¹±ç¿4÷•ß÷©ØË¢óuAøL;º®òó/¤3juVû§ô¸¼S¯-ÿÖ‰3Ç&ƒZÔ¸SPwú¡»%ÉMP=¨ñ6¤âöéܯǹ©Ö_sw¥åßõ?þè]ýðóÆþ-A¸`ÿ¡8.>±~¨ƒ_ÿõDçßTü^×?„ï“Ž¨Õ©tØ©éø<¤òZ¶$|'­FFÊüŸ½óÿiã¼ãøùáî“(I“Nºvk'¹R3us§ÓæV[æÒˆ¹íæîK6´€=iZùa£µBb*[eOx³ä öÅÐá-ñ2¼y „%  ˆÄ ä‡õ€ä·)Jÿ†Ýs‡Í™ð-çãî±ïýúÍsÏçüœÏ¯ûò|žçÐ~¦i¬….tc¾'G Å­š¤‡¼¶Ge­ڹߌχÊïDñ\ÉW¯_øS~ñ÷:WVç±/ ¥ªó:Q*2~Vàb«¥Á€q܆Î3ÐËðòЋqÞ|èo(ž7±¾3¢ø׫xå…÷•¿¥ªó/º¾ïŠâS[u( ,BöI_kñTw=AyµLﶱÝz õ¶óZ7Ó\ð­dh¼ÞŸ¡'p R:k}Ð[ó®÷¤Ê“±>h2dÍè>»ýc˜·×öEeñÔgæmZ©ê¼¡Ë¯7#mÍt¡ïÓ`zOsþ‚nLS63pðòZ™Ãº;[ÃÅl7Ô} ½Ü ½˜ŠÎC/²æåòo?§¼Sºƒÿ«,9oʦ™£Nå<åëùå×J¯Þt¡ï×`úuÚ_ÐWiþ‰ÊkerþCºpŸÊø‡B:„n«Ðu\;)þ*¿ü‘]ÀßTôtî²™›Xª:¿«{nþª(ÞàLèû6˜©BOQĀШfcB²ÑF3ñ‡­:)×òÚñvëƒÖy,xY¹d=•_~Á„ÁÄ?uYßœ¨ó)Qü™¶Ä&gy“­:pƒiB÷=Êz£Úyðø\XöÆÔA F’áæèò =ÖI¡NùoǬì]ÕõÇ}ÍQö0¼Ÿ• kïîT^E_FS±ïa6ŸšÉ«Ù”ÖÝ…SóÔDX'ÜÓSx&¥^" ÏzšÃ1ö€¼z›ÃÝúµ&GãͳsÚ6rüä­ü….I›#q;&(ÚCÇ•­â¾y\_+±ºŸˆæÏZ²:¯&M½aÚ#t³„~€S…hïD˜&T{F£Ëj¨…ù|žú‡#4«ýúÞ¼§ü7,gÖ½”-\öŽd)kÓº %hþææI;”×GÑ—ÑTÜ¢ü3VÍî"±×þÅ Óš+•doÞ S¦¹·5Fó>AHÅC5ÉÕ0EýLèÑpÛ¼O·ÖÍNÌõSßYí®AGüˆ¡IÚ9º;v ‡ð–(û)[øòIåb½Ä{åŸ(çß1{ KVç'Ê'{‹}²ßˆ…‰T9úALze3J‹ìþxŒúØ#íZ„Uv±jEè…[èñqAÈE·nÔ7P»R~£&w¾å¾U^E_FzùÙ<©Õ{­˜ybk‰ûYaº©¼hcU©‹gûé>Û€yI«%¿V€MŸîª!í]¼šéL‡’(tä¡à$Î?­XÏ°Á_ÿVbe_b•œ.ð2'êü¥²Y'_z›‡÷=nN3Ü`Lè®4©³“N³Üª³· ÌQ«à÷ÄÕßëŒ^èjÇ”d¡?FNHš›ûwz¡|Q”Ç„©÷ø/,ÜV^ÕP— ú²juX²:6%ÁÌ#ŸVíº:YúÖZ®€‡ÍNÜœquŠÆí?*3BÀQ<ÿr¾cù·?+µ®SbOó¢Î¯ä;ÏŸû>_B?Hƒ1¡/Q ŽÑE^fÏö~B¹â^££j™‡z¡±w–éîæúk›o”C®…^(_e»Ðƒºþñ½ä%v@'tVÉYíñü» \èßHtÆ™ÜhpÛZ]D}µÒæÚôB?\}}.üÆ9÷z—õALÝáµ=¤¶ëƒEªìø¬ïþë´(žþÏ+¥×$r*tá_;uL<ý¹š×hæ]< ÐïQO¡_:z-{0®0 úL±Ðgòcš†IÚ½—;+_e»ÐÇÕgöy¡SÍúõBŸQ…-}dÕ£T3Ú¯ ½~ûZS²òïaíŦðí¥Ûc(å†÷Nq.øÜ‘Ø2}jŒßéS§í˜>õ–]Ó§ŽaB§¾íöT…þâæÍñÉ=„¾F£ÚO{À#ì-ô¢(Û…¾±y…îod¯»”Ëêä^B¥È`ªQ˜(º~­ÜL2¾ù¢x˜ÌØs|¤­Az1NÉCe!ôÆ@H õêDk‘ÐsrZí̾¾‡Ðsr`D{Ë>B/Š²]èBZV«™kÕ×·ã¡wú?)ª^FŠ„ž_ëj—zSþ{ª¯°ÈÃ3tƒ@è€GFä´õAçh…×ö¸³ù[c)c<Üz ]¹ÒäcfØ)°NèŠ+çqÞ—™Ð§Õ{ë ]±}»O‚ýt¤Xè—×GÑ—Q…>GëJ5KÕœöº•¢Ò®BOQšýs€´,][«©9ÎÎ.iùjîê@ùŽ,¡.™¶áqvnˆß™€êSÖǼݜQ°£Ð¥ ¯NÌÒh®XèÁ(õgBivj|•B‹wwzSÍ7¤©ÝU,ôÇËë£è˨*–úi~x5ÀN:µfjhxW¡ SÔW—ˆPšup× ][kªæ:å€ú£ÓclâRý ãž„.ø—³ž@vYŠ….ÜŽyåÙmyÙÛÜ°ƒÐ…\Ý|sõ¢:þ›^è;”×EÑ—ÑT,%æ›G¯Ô|5@×wzS2Úì]œgð‹„®­ua4 {´“æ„¡dͦ*2TB—ˆ$BP¤´Ÿë^.º•ÃÎòл•nU Ð‘‡eBT^bZg¶Ë•..Ð+4Ýçñøp”8‘Žiëcðû34Ðc}Ì¥I|à‰xHñ†®ö@¨|óç3\lÇ U Ð…în$N$Š[4IymÊZ´³œ§öœˆG¼²·sº|?ÀÝt‹ípwÚôr<‚<ôb‡€ÐAYbËHq½üŽ·fÇHqŒ„@‰¸’6ÜýîKñÚþ˜ n­o⛄nÞoJ=ö'á›\ª@¡ûdm8‰KÆÆ«C:À•™‡î'òcß:‘œû}„ßöh:k}L—íÑ„[r¶ÓØ„6°›V2”Ïû3ôD»Ö‰Hé¬õAWøÍ»®òØ0ÜE2d}>q00…o¿Ý4ÈwÐ6l7Ô} ½Ü ½Çä¡÷ß~»iácôS¡B‡Ð„¡À þð¢õA'åZ^Ûc#Þn}Ð:õ/¤Ûðí·›‰@ ¡’„}äHÜŽ Šö(—}€£XxjkhWÎ…î‡ñÝà$¦CÉ :òÐ8ŒÊÌC‡Ð@è tW_Ÿ ûָ׻¬ú`ŠÛô[©mÅú C‘*Ëcú;ðí·]&·FÐ6Óí1”rÃ{§8|îHl™>5Æïô©ÓvLŸzˆéS‘¶ÆH[ãášÆÐZH[<‚<ôb‡ t¡ƒ²dDN[tŽVxm;Ôo}Ð1´<æÍãÛo7z€F€Ð0igç†ø ¨>e}ÌÛ6äŒ^Ç—ßnªjÑú¡0<Œ}ÀQ'U‘¡ ºD$aßp­t«…ŽÁÙ•ËÝ3söœïç….Ãa~“™³ç³sv~sØS³öÇ6 >h;«³SF~ˆgœ=F'HÆÓ°¢Ð=Az<ÈCâ@zÚ¡3"e§¸nóî÷@ÆNq}vŠ›dAœý²¹Í·¡2Ümî~wvšµ?ü§Å»•T5„Ç,ê^ˆ³_6ƒÕµèÝkJÆ€(›² Ð˼^¬r`'êY»…Ž†UîÀŒ =ä¡q =mЄ¡CèB‡Ð0ð¾ø c^Óî§ñèL³ø û|â7^î9…³_6÷j:Ñ º¸\#[â±MPôGºŒÞ}@àG[·…î qn°um:òÐØ kæ¡Cè t ÝÝßïÆØÚÏóâƒ>7mú­ëÔ´ø C%ÂcúÛÆÙ/]&#ÃèÉtùæ•rcöEqnøÜ–Hy|êió>>uBÆãSG$<>ik&ikf˜ÓÌ믶ÌòÐãA:€Ð„Ò’aoø ?²i³öÇ$ûF|ÐQ6(<æû g¿lÙt„@ʘðuöµ!ó> ¨ªS|ÌZ$äŒ~}'¿lJÞB@è†pãÆ€­>T5YPè.Æ\[€mù]`CšØˆ…Ž_ÆÖŽ´ˆ7 ,4ï§Ço/ˆ95&áÍWÿkZ]áË”=¦&^ʦyÂ…~· nËfZP褫 CkGugÄmcOÍÚØ€ø í¬^xÌN£òóR"tG¡Æ ‡âáÍóºnM:¼I%}œ=Æ%H2ž–€…ì òÐãAº)„žù¡r½“[y«ò²tÙ²ÿg¡ëÖ”L艢òÐÓ˜);Åu›w§¸2vŠë“°SÜ$ ¦…Ð YÇ'ÖIvü…ž¼¦ˆÐEr›!o B e¸Û$Üýîí4køO‹w+©jYÔ½0M„N )-N‰Ð“Õ$EèƒÕµ¸Aè†\Sª0Fc„~õ\¦ƒ:7ìhˆ”,ZUàä%;É%J×'Õð&͵aqW–®Î¡Žœ¼U 3„~iæ—ä‰jRêXÊäÈZzTýq™¶hnSìǃÙmÖ£llÊ‚B/óz±Ê`„п_^fž¹.|A\¢•?Wè¹Ú¼ZSmïŠHeㄾŠ}1§šÈ‘¬ÈÂ÷Õ×õ…®Óf`AêY»…Ž¹ÎQ×™oçFÝÈÿoè 4©ÐÿøX™#7DÅýÿQ]†~…ÛxG´ü(?îß„Ì©&néÂÅêG-¼•Ê«™ik:mN=‡ñºtšXŸ…NZ[1´vÄÕ3 >è´„¼ë9Râë´­Nüî>šqQBÆEúÏÐË­Y¡Í]þÌ‹6†Š¶è Ý‘"Ó©îñöiŒj×Pº'tܱ·âßæÇ}Ef ]¯¦yññÐÇø\ý%¡ë´Ùª½“¸I&Ð<¯åcXåÌòÐãAzê…~‰Òá×ø$™¨_w‡×”¿ 'ô86\&1ªýŠÒ;šiÞŠ”Ÿäb^Ft„®Wӳſ…á|PGè:m6䡧-:€Ð!t; =/2§æ3b®Õ^B~¡ô@¸¨ ©Ð ×\Žqï‹¡dò‚Òؽ_xùç|þ]A’ =¦¦˜»™”^ÕºN›!t¡sãÞtÌkÚý4itŸOüÆËÃ=§D +òíÈ\ {£ób…Šß¡/Úº[Yÿ¶žÄ ,Uõ¼bûÞEÑre[×ÜJ=¡ë֤лGyžºØ}£ŽÐuÚl÷j:q ‚ÐÀåÂÙm‚¢?„Äœ-tnÍï"?,¡ôMBr(ýO¸ä•Ä‹â£Ú·¡_5üø´Šãár•‰„>«&Ò[Í[ÓºN›möF° Ãn Ý âÜ"ôC‘¶©rtRú·9T*Éc;ã…NÈ_jIìŽa¡—ïàÿ\N,ôøšv;BŸòË?X‘Pè3Û ,ÉD]›…Žè(sŠýd˜Ð9Q”ýÐ3¶)‰ãÛóáù0Yœ­lÜvsm¶ºÜ|e2 gdò#®DT»hRÙ®—×*‹ÛKc¬N·ãw]OP“²7óýÍ{ŠÕí`é'D»gàÌ>}8Ëì6§žFö— €”1!áëìkCæ}PU§ø˜?´HÈýú®aBE]ûvëNäQ¤Ÿj‡?µcCä涾†Õ™w~TÜïä‡+s„~úyGøñ¨Ï©é³HóŠ×PºVý]žÚ¼hm:mN9%oá¡Â#€B'dï–Lu~ô{ä¸ÊùNê\½_Y«¶;©ÐÕ/º?‰÷çÊoÎ/ÿƒÄ ]Ù=n6¨&²n“RCî®#ä"ŸÕ«:¦ì5“[Ûì6ëQÒ8dA¡»sal¢Ù6# 4± yèQ\ý×úðNqNJ1²°fz™ÏW†±µ#-âÅM ÍûéñÛ âcNIxóÕÿ*±—RZ ½üŒÒ%v}óÝm†۲d£:éêÂÐÚ‘@ÝñAÛØS³öÇ6 >h;«³SF~^ôrH)ýH}õ51Îã$OKÀŠBöyèñ ] ÜãÙ[ÊÏ)¹gKmûîCzÚ¡3"e§¸nóî÷@ÆNq}vŠ›dA™ý\YY_Ñ`Ûwßm†¼5€”án“p÷»k´Ó¬ýá?-Þ­¤ª9 è˜×´ûi<:Ó,>è>Ÿø—‡{Náì—ͽšNt„n.ÆÈ–xlý‘.c€wøÑÖmA¡{‚Aœ[ìÄD]›…ŽÏˆúxªlù­/w'>èÁR@xÌHñŠG¿t™4lɔ̱JnTŸ§ÓçžDÊãSWÕ}|Ꙍǧ6%<>•ek À²5Æ4cýËÖˆŠ°}Ö¡ PèäMÒ0Ê⃞ãNÕö¸DM|ÐϨ ÙÂ~Ù,á‘@¡21Î$ÜÎÞ;P÷I@±Mñ1¿ä%ÔŒ~:æÁ/›À,Û€Bw„ÃCæˆBˆ§:UK.ºð1·„B¦.£=’¼$'¼….,*.º¶¶ÆÔz_yW|Ð; uׯ$`VÄ]O‰_Ý'?åÑ/›yã’ ™ÄÊXÓÇ8˨ëЇa:ëÐß,:¡Ð)t Pè:!ŽÉ\‹zb(»žÆCaE|Ш)~áåF9Ç£_6Å7Ùºø|Ì‘'ñ{&(Ûã­ä€¿>"°k«»PèþL†Ç!„/q–Zw¡ÐY‡N!Äc¸³B'„B¡»@èzµª3·ÄÿsC|ÐÇSeËo}¹;ñA–ÂcFŠW<ú¥Ë¤Ù`#H¦dŽUr£ú¤8>÷$RŸºªîãSÏd<>µ)áñ©,[S–­©0¦ë¯X¶FT„uèÃH©CŸÆ7 B/óè—MB«PèDE6‘ôwª¶Ç%jâƒfp.<棌ž¦ îPè„#ôW±w î“€b›¡ŽÐÉÛúá!sD¡)péWÂ{èò ,¸Pè>ÀÇÜRè„B'º‡È¢éB¡LS. IDAT³B':¡Ð=†;ëÐæfn=)tC|ÐÄ”º½Çý-ñ1Oq"Aèý²ÙE ™:>»PèZ©ÄÔz‘-@|ÐuüV·=vÅ b[x̼Œž&¤î‚ žÁŸO¸QèÄ›ÜS¹FeJQÎQ4ŽyñW"š"’Icƒ§ · …NTäˆ, Oü]~òD¡2)ZÀ´pËGÓŠr¼4ñëªßØ&’1%,@@á“– …6 Îr§Ð …N(t/±€¢ …Î:t Pè„B÷î¬Cæ–B':¡Ð=D ][cA$…N(tB¡{ŠÄÊXÓÇ8ËPè„B'º  Ð‰Š`²dSAVxÌKdØð²9Â,B'dRèë¿Ù²‰­$„ǜٞbÃ˦>Ÿd#PèNàó1G„BV±mŠQ¡ ËA{ >á]þïN÷*?ú†=åogÖ´^GG°ko|ìÎÙÄ|Øøv{;èz÷ýp ¶Ðoìg¬‹,›Ë€‘Öm¡ïuêB)  6´“ï5ÁšÕ§›EÜîmô7œaxÇS’<²ãuáU¿‡¾¶ÆÔz†SœÚ—žµ‡ †}B|ïs6þq°}-µGû:;ݱŸN+u ¾Q¡‹ËÝ?ŽÆQœpÝT#„Å[¿Ö¸1,] ÝÀûÛäÙ2Bñj¬qÜnêËÁ~žÝÏŒ\ >µ§=º\ƒ‰Å?çýTÿýH ÎÎ~5>¶ÞRÏ\ \ÿàÿ;[è”çö´½©¸}O¼ld'ýKîš/…Çá Gð/"ø§$y$VÆš>ÆYîD®€XwŒˆ•þ§ŸÚƒ”»ÍÆã{Œ·vÒ9çYÒZü¥\ÓDñ¶q›¢÷jÌô–6*t9褡“„¿&= ï;Òö5ïyŸ ‹~û³LG²vžz½û?údmlX¾µ{~ƒCäþû‘@íYj¬X×Ìw`X…­¸õfaÚ}‡¼µÓ~°‘< ]»èm]8ykÿƒw½È[B'Ê Â¼yoåPz캺ÙyÕWgk“ï3ÆU ²UDj_µ¦1º×,ô"LG Ñ#»¸Óž ]\:l-×BHå&<ù/0›·7îz.të~ñC¯»”XŠ ØËU.ö—á uTÚø‰6,ô“—õæí·ß¦­!øJ_™{ƒÁNì~°‘ ½Ø»¹Zï.ëkûÖó§a.AfŒu>|ÖÒßëC~£‰ÕöÞ(øÒæç- ©…]ýúk+Úec¹0Õnh %–µý” ‡ã×oÀd'ðå}¢»u•7£xýÊô] ØXAͪÐ6Ì·˜€?‚þà×Ð¥Ñ;† cü¨sv2šL78}…g»;6ºËÀoÒó7¦ÖVI— z,—‹‘kGÐuØ4dï|Ž´“æÂi~›W­1ÕúÜe·æ ïü6»¡e‡¾øöBñŸ §´€§ˆÓû@&__Y¸ñô‘']°fƒ#ɦ ß©èº€'AOú5d¯.Ë}Ä#è®uá¬ÆD#A?å“ꎀ9šB' ï _~dÚê¸S:ÑE˜C®öL¢Á×kFûÌ1³ª-èû]7x`¯u“ u¥ù'½c>î ¶;‚]{ôò&{ú}¥ ïl—”ŒGó£Q£{õ¤  ¹=‘±úªÙ”Ü?5«1шCÐ'q&lËjYʇ{sú³}ØŒçøÆÔ¨ã™Ð\»j¾Ïí1e ¹'4\tÙ­9V­›æjÈÉ+Î ä««Zç} ]ZNHf^@]³:¿_'èëVAv3)N3º~O ºÐ[Ð¥ªÕ#ZaPG‰§ÊWòÕ‚£1ÁˆCÐËÖe”C™ý¸Ê¡Hè$èáÝÚ¢·ø zèc•µ Å9‡}kf*EgP µww³EdV»ìÖ¤5”£<¾w¤Ê[Òžc`<±â EoÏšÒV}j·'ÅEIψ*r±á][ì©¥0;›ÖŸ‡òÐ6+R£l¥ ‡6”‡r›–’+%“ûŽ^3«Rr>ì› z‡}`´T,D¤ÕÙÀçq§ }”¤ñ£’bø‚nšEΠýŒHG߬…ežxB=qu,ý{ÆSRûÀiRJO˜K/X F¤ï8Ù`/~°†hB«YÔïû ½œå-i/yŒÊÖˆîaU²2°Í#ãgž7l¬• oÃnþÄ|úï.\#k‚ß„°×•½Ó>à-NX ¸/¯_~1ŸEf’M_¼\Я­lò+]„å¸~iwã­]hHt©QÒä 2zçÈ0c¤ Á0:=îlL0ÂÜÏ^Tµƒâ¸i®üÒ¯©¢#‡âš"RÏA‚NtÉ¥¼¬T.1‘*U-››<½ùÈã~\.•»òÞÜϪ²:Ó¡UiEAïœXKrn6øõkÎTY9¹[—T#Eâå‚^Sð‹o%®/ãrî`Ã-ࢠ ‰‚.ÕNO²ñú}Á¼Å©ÓE9~ù3ænÌmDJ|+É9£¶nÙ>Z³~‘ ¢ÿX ²èÁIýçÿ’Þg;’•÷AôŽ ïí‘‚xCŽ%¸eh«<}=µí¯ÜÏ4¶h&Ë57ˆ¾ddúk zˆo ‚xC&Ì\8“Rl½ŽìùëK—âGî ¢?)´W”HuèA­¯*#AÙ6^ƒ«È€öµÆN­*ƒSì_ú™þ¬CW”qò-AoIC n}¼ØB9¯Ä·V®Úhl5{ l}Ên{/*îö9ôµ5r-A1HÄÚzM2e¹AD@‚NA$èAA ?ÏÇä#‚ b?¼êCA—eÊr'‚ ‰OXîCA§:t‚ bÀèÏ:ôh)÷‹O»a¾VŸ…]…µO-.‰}i¿p ‚è1h÷½=þqýô°Ä¢€r º´¸(u\ÐW2-ÞÄÌ¿$A'‚è4ÇÆÛÛ;Õ?®ÿÏ€šX$gÛJëé,÷}-|Ä¿$A'‚è4Ë(#[këTÿ¸Î?mÌÌiôíÄ‚ ¢HʸWq¸ · : :AñzþA.!%AïQAD^#èGûE9¾u:b úΔ¿,˜îîLåRyÁ)è‰Sš\-¤l§0Èé[ã›—qYqNeX_>Ú(³ùÓšm‚ "pÎðM:ŽùÞŠÿÔ0œôÙuGðf\wª„3 ‹gxìuV,jmõZº\Ðc¹\ìå‚~¬E¿‰Åô žFY¦|Åxo¡±;“°=1¥Ÿ×?Ÿ¶Œ\W¨Õ²$Íméßé1Ù,…·¾Ô}ôÜ_G^ÛD¯ÀÿŽ}GkZð„À•hDKîuIªZ àºâÞ˜aøÁ»ëŽàv\w©„# ˆgˆö:+?2K}(è­ëÐA¯Å1õ+&ÕndV“¯Gd¼_•*Ð{u:e”>T¤Ê; “vø¼@q,Æ9JgÐÞU¤‡=`Ïo—•9½öÙk› A'A'ˆ ¹CUÿw™óÏWÆþŸÚÜîÁyèTÂ5,.œ!Øë¬Xôgú«ýY>42 •Gä*ë.M@Ö{FcPέÀyn…ÏïàÝ º¶'ºá™ ¶»ÂŽ÷ø¨Êºiuä%m¢WàÉ­$èÑT4\ëÿ¥sâZÃû)®‘9ï®ÁyèTÂ%肽ΊE ztk+úbA[à·ˆóˆÌ§ZÒYl²zó8Vø,c‹Em×ú²Ü S¨óÝHÜ™÷`û¨Àv¡HÛDoA‚N=À³bmê°)è;fÄÏzwÅÎC· .AÎìuV,Ö”¶”¤Û“â¢QéÅ‚ÎH4v'Π±ˆœ1ç(¦Œ¥rPJ6ÖÂÃç.¾Yw7ÂÜ•qkî×ñÝÇG¼sõ Hyl$è$è0ûftÕÿ6?IÎ0\<»žîHHoª„SÐÅ3ó‹X[·¨¯ÊÖ¢»u•g(ÌëEóó²1z!£É´>¯D¨óë¢jÀWs[>>š³|4ì±Mô î9ôÖEW¶Ù³Á!p­Ÿ­J‡U¥xi彺S]½I±Ð"|ký¦\ ò«°eýÚüùºSb½6 b@h8ÂìwɆw,Awìz"¸)èn•p ºx†`¾'Ä¢Ÿ=½dòõ•…SÐK¶ —ûxã÷<”.õ;›ÙÜlúèÛ>>qùè†þÜz^Ð[Ip~ú«šñ“Ò}òI(3v§ºú$ÅŽdÌ1¼á’ñ‹q7è/èî”X›1 œ:¤ g¶ݱë‰àã#Á6Ñ‹‚ÞºHÂ"YÂet‘'µY‡üƒ<çIuõKŠÝ̲zŒ—Р¯  )±¾‰¶1ì?¬íïˆGžtOç¡[P‰'’âØn{‹‘é¯}(è òRAeÌG©/ d‘GÙôç´4sÊ„#ܲÀ97OÑ]³ U™Oôðü×:þ—$|)øH°Mô¢ ·.’°Ód>§Ÿ=Æ>KÄr!ÕÕ/)V?аUQŒ¤¡A_ARb}m bàÅcœ£j-èbg¡[T W@ÎpÛë°X¬hÒW‚þlúÝɽPÿcïlZÚèÚüB‡» ë,ºËbY ²(HVY ]Ød™•ˆ ¢"n´Ð€ˆ(ØH)"Uµ?èCl»­ðèÓméxç3ÉL&ÚÆ&“ëÚh&3gdîñ\óqßç¤ô+§ÄŽñšcÌzf:«öŽÄLAÌ|9O«égúÒz÷y®_ì©ÈÚœ4•ÇÈÙÚ7ºÔç:=r`}鉑§mF¡[ÆmW$ÑàZ?¯f쪙lÈ9+æ[R]}“b¯¥fþ³Æ“-;ôº'%Ö·M€àVkªÓï„«Ý„îíÁ­®Ûc W‡îÙÂÓÞÃÊ"˜uè‰h4ÑQèubJý)Íå$û\dÅÌr¿±ò‰¬‡ §3Fz‘‘P”¨wŸ¡šþ9¥é›6šÕ´h uu¡ÿ0Ö¿nþ¬/=1ò´ C)ôŽEMg]ÅÒÜÚI»<Ç­©®~I±E®”zl åÞ¡¯Ð½)±~mŒÿ¸nhŸ/T; ÝÛƒ[]·Çîݽ…÷áAeñN(tµºªzºº<ˆiѳë×*f¤"ë=rxc+WzúŸ½zfr¶¤ÅkŸÍ?»ãÛ¨é˪åæçÉ£Š–×»Ýä—Z\ˬ¹öi}é‘»mF¡w.’h0¡Ÿm7öÖ1{Ù’ìû¤ºú$Ū3ýԼ͚Ùžz„þ˺'%Ö¯M€à3×\füçÞtº§·ûu·%<ºk o{*‹Èb:ˆBx ¡w.’¨“®È¦­î'õU>ȵª«7)V¿ÏØT?åÂÒ¾k‡Ö_¡_.LÛW÷†ÐýRb[Ú@è€ÐëBï\$Q§(•tQJÖìNvÚítÎXÅêêŸk”¢¯TÍ[ï­¿bÊ…bݺ;%¶M›º#ô.E“ƨ“·q󵺾µ¥ðsswª«R¬QŠ~d¡·æÛZBk—˜¿Í™Bw§Ä¶k`„>Å<Ìzç" U˜ŸŸ6Ç~-ZZß°–9WÓçbNåIuõMŠ5µG|ôìÐ~{>'©íôd)e Ý“Û¦M‰ã« =¡i¤Ãƒ½K‘Äc²–HMJ§Ö}vtÅØúÄ^ÅÔ«;ÕÕ7)Ö,E·ÇõìЀÖJl¯ìXYöî”Ø6m@°xq¿i¾†ºàÏ ½K‘„)ô¯ÎLˆ )™É³.|ÙÌÅŠ?Y»R]ý’b•QÓæ¡»wèä·_ÎÇ´üîé¥]6çN‰mÓ&Š`Ö¡'E’ÄùràSpËDèª\&´€Ð`”HÏß+}Œ,w„¡ t@è¡w'"F0RìÝk¤‰z$Ÿgº%>f_Pè=Ö¡û>ûlY¸ú¢Câѹo>_XåÁž®¾6ÉÚBsqógÙXXä¼øË,ú‹Äîõûn†ä÷Z\+Íî„{7C0ëÐÿ¤Ð—³Ë[ÿÈô¶xÉžk3r –ЖJBP¡Û½~ßÍp{¡{=ª7³žìÙ Ázx³§1«‹Å½®Bß’a{)¹ÃÕö§‚ïasâL΋-teÌË…ÐSèv¯ßo3„«Ÿ ©ñ]±çWìÅ «Ñgº ߊ; ½Øözh±ëC‚†Ð«‚І@èv¯ßo3Lˆ¼7?ïZó,öf†û%¸líNB_o;~ïBOìj_Bèƒ/t»×ï·^Êœ}Ãg̽Ü_3 µÐ§ä,ñ2Uz|ê¸{º¼™*=]¯¿ÜX[/åæÎG"çæ«|cãÄF-®ÅŠæøz5óK{,cŠÌ­1ã—ccZÌæ7%OôÈ,žÄS3úš—KíìY¢Iè·"O6:À =¼3[Ò*ë‹M½~¾ïf(\Û˜O‹L"ôŽB£íXÄúÊœˆ–yåé7vÈN•úRJ¬Úï~aS$›Ò¿|®ùëj\âÕê'û»ÏbÌ~¥VRÆøøž°-[MnLDÍŸKMB?=ùO)„0ˆBßžk¾ãb²Þë¯÷ß "OF\è»»…•™_çeû Ž]Hå]&òɸ䲎´ÔÖ¶ô{ó7-V’’z´­nwEv[¬%w¨23Ûó†M“§ß¦?ÎI<µ9µw¨Ÿ—ž°!t€AúºT&·Õö£”ÒUóùȾõ ö_’µf­^6¼'léŠÔÂekwØd&b-ËçÇ^V6:Àà }B¢—ÎÇË6Bï›Ì×¾…žÍPý ½sº.ôcÕzMæëÎ:Ò;DÑ–°Í8‡+7{R&DŽ4k}OØÌw ·"VMA^Ê`ð…¾TŸc9GÚº{!’ñ„M_÷»ý뾜´†M]‹~É5æ6³"1é¤I\áCèƒ.ô¼D+šÙßû½of뷙űÞÍðN(tµºª: ý¶!ôS‘ kù¥s¤¡y¶çT5›>aÛ®8 ž°]Ùa{‡Ð†Gèš4˜õz¿ÌZ¹»ƒ"‹é ½#ºÐÓ ¡· }¼ÐÓ°]Ë–OØ&ôßø…m¡ £Ð¿º–ú½Of8‘¦P¶Ö‹Ð“YyT_ÞEèM~Ù¿>•Ç­aKWdÓŽ,B~¡Wœ—Øí…Þ3¬ä%WPýNBWU')n¹«Ð›RRrÞ¶¢TÒE)Ý"t€@}_*VJÖö\µ º%Åý93\å¥ôD!tÃÙS½ ý»Q#h<Þ(ù ½jÆÇæ—d8òÿÖ¶Icˆ¾Û¸™gˆÐ†_è;Nº»$­ßfHnIé­º£ÐÇWzBÓ= =y&±‰HøÇ…ø ýDÎÖêÓÚ†.$õ9¤Nü†¸J™\ÞÆï ½0??Í?ÀßzæƒÈyZM?ëa®Ýë÷Û e‘å'6·½šáEÛ1ä‡Yè]ëЛ…®+"¹¨d×E­B×£(˃+]ûZ\_tð†-R“Ò©ñˬDW~[èoœT|økB7sÓÄèõg›{ý>›!SjJ®ÿÒ«‚Y‡®ŸdïBW{çg¹øþ¿É©V¡'*Z¾ñ#ù¥×òÖ¨@®°}uF¤YHÉL¡@è*39[ÒâµÏ‘æ^¿Ïf8”û½ ëº*—{_·>ìO9{È¿Ñ;¿[è0züŽÒóSAú]¸‰½4f¶<Õ †Fè÷$HB?)§Uäõ¾ä.: ô!e̘ì6ª‰¤Þ?tØ⥊gáÏRICè£+ô‡6à =ºÃÊ‘Åõ¹h|sùêÁÃ&’õ,, :ÀÈ ýþfØ Pè‘|>Ây#ÄÇì« ½s:@àf:B„¡‡77ÃÄFˆÕè³ ]…ñ9Œ÷Kû`øAèzwvw‰Œã³÷ïtÀ… [! ²@¡S‡#F0ëÐÑh‚ØÀñN(tµºJh`”ˆ,¦ƒ(t@èúajŠÀ(‘8¾  ÐšF–;Œ/d)€B§FŒ`Ö¡'E’ÄFˆ‚¬Pèª\&´0J¤çï•>F–;@@èzwB!bôÿöîç%ê<ŽãøB‡/¯þκÍÁÃœ‚xêt¨ñèI…„ejAAé¢ +,"bH,RâÒƒ%Z] 6w¯ûO¬:jd]”u¾óx\æ˾¿ofž3Îçû:ÊJW ƒ^©-äõðÃÝuèt˜r^‡.èt˜OY*aÐ/%—Ì€2™uŸÐ Ýù—;º €  :º @Ã¥\å> ˜-äsfKôWÉæEè=é-aÐW¦Z /&Ÿ.@çø’ÍrÝ¢8:‰Uî è‚‚.è è‚‚‚~®õW«ýf @YÎj ƒ^ÌÌ-¤2~¢›žÿäÌ@ûtt@ÐAt@ÐAAt@Ð@ÐOÝ¥±ÞÃí­?Ö«Õ¥w×Í Zj~Èð+‡–8KO2üûq9·Aïÿ£;½SAŸÉÝí½¡ O‡LÊlº–7Ç>èÜ};¹ö`þ è2gÀÐ"[µ<¾²»ñ"yÿÍwè—3VŒ¿ì­>)Š©Ùîõ›ýN´ÞóŒ ø¹ ú«—ÿÅaПg²ëųZmó‰9CÓý•¼k|(˜+ŽýQcyÎ|_uïÑ"h½¾düøGïËÖƒ>–ù{ûËø+F ÍVÏݵbp4=+GƒÞk‡^¥·¶pkemçi¸álA‹u½Í³Ö&AŸHO¦>®|¬'7Íšm`6›]“U8ß=£•Æ¾‘Ý/ÖW†3ïlA‹-'}å zwòyïmËTª.D‡¦ëKþìΣâû ßØÝ·}ðVz$“N´Ø³<>Éaç+è‹w¿úÝÆ5±[û¯/@S}ηñ+?úÌî¾ëIcýÊ[ÿ#ƒV›I~nÿ ¯íßgñhÐ'2º¿k$Mšÿnz6ùµøAзöƒ¾,èp:Þ¤z¢KGÛ$èosq×R~3mhº¾Ã;G úUA‡Ó5–Õ×&ß¡¯fýðº¯ð éf³<t8sO·’ýE2½·ñ ¹eÜÐlõÌÔ3±-èpöå>ÙQÛ$èCµÌuín|IÏ qC“ÝHîÛ½¹&èpÖngád¶IÐw¶RŸ.~9Xk 4ÏV-õFÖçÎر½Í‚^ÜL²{ëI¯&Ðl•ÍLìýŠá½T§ÎÖDãŽ%zñ÷ýžîžú¿f Íöáàª×µŒ :œ¥þäBƒ:: 耠‚‚: 耠€ ‚: è 耠‚:: 耠‚:: 耠‚‚: 耠€ çÑÿßyp©L=)IEND®B`‚metafor/man/figures/selmodel-preston-prec.png0000644000176200001440000012641714465413203021074 0ustar liggesusers‰PNG  IHDRèèz}$ÖPLTEÿÿÿÌÌÌÒÒÒmmm\\\ßSkaÐO(âå"—æfff///­­­ÿÿÿDDD´´´ŠŠŠwwwþþý®®® “““›òóßUlýÿÿSèêøøøNNNüüüKKKþúúýõ÷&™ç———òòò‡‡‡™™™úþþzÁð/ãæuÖeÁíºæææá]t÷þþàXpààà[[[ùÞâõüôbêìbÑP666ûéìlºïâcy7¡énÔ]"""@@@iÓXüîñÑÑÑÉøù+ãåØØØíýýåp„æy‹ãi~jjj5äçúãçðøþùþø„Ûwëöý=åèòþþ‹Ý~”߇üþü÷ÑØ222HHH¥¥¥0žèöÊÑÃÃÄRRRëëëEæéeÑSÉÉÉñûï+›çV°ìöûþò¶À¢Óõ,,,ÉïÂôôõçüü___~ÙpM¬ë‚ÄñôÃÌ'''ŠÈòøØÝâûüìúêtíîó½Æ¹ö÷ÙíûkëíàöÜÑùúÕÕÕ„ïñÁ÷ø醗‘Ìóýòô耒뒢pppÎèúF¨êbbbf·îä÷áÓòίç¥Ôëúð«·ÜõØ›á¸ê°èøåïïï?¥ê|îïŒðñµÜ÷¨Öõ«ôõ¹¹¹WWWÎñȦóô_´íêœì™§šÐôMçêÖúú²õöªªªñ°»yØj:::ÜÜÜ››› ã–麟³é«íž¬¯Ùö©æ ¾¾½s½ï½ëµ¥å›»ßø[éëØôÔÈåù¢¢¢ãòüÞðûçôüÜûûÀâø–ñò’ðñ òô¶¶·öðñ7àÏ|||ŒŒŒÏÏÏÑôÛ±±±ííí,áÜ;ݹÄãø¦ÛóNàÅžžžQáÔoåÁDÚ¡XÕs’ëÏqèÔ®ðÚN؈N‘Åe¶>“Ù]Ï]§lÃôãX߬záŸÙøìš–`‹s£ÀkŠ¯Øó=Ç˃±YZ´~„‹·+»äPv»ØÙÒ[p¢™À&¨åeªây…šËÉÞ^ Û¥¾(Òäš?O­—¦‚ÇÉz›ÎDS‘S IDATxÚì_LSYÇïèÞü΃XkMÛ´ ”y€”aSÃFR hÌ&òG”„Å!„¬ ™4fc‚\}^4qWé$ ACt4™¬'fcpÅ ‘yZ_|ðŧI6{Ïímé-ª-Ê´ßO¢çž{½WÛOçwî9I…çui€D³}“‰¾eô @‚ߺÙDߊ^ IïD¢ :¢ÑqA@tˆD‡è@tˆ¼‚è@tD@t :D¢ã‚€è|¶÷e€ØIß ÑÁï‘];ñð!ß‹™@tˆÑD‡è@tˆ®#è¯?Î7^.…è¢'‘虤ýy™Òd| ÑDOÑ¿¥ÑORÆU©»‡ú²!:€èÉ!zë×!z5™Z•"»‹š!:€èI!ú #Ù¿Õ‹þ„FµHŸÑDO ÑoÓÉâ-zÑ3h·Z¶Eôè!:€è¿WÑÛÚ”WÖO_þTLÔ ÑDOŠ]Z!º‰ÚÔ2›¨¢ˆž¤¢;èiÄÆG‰Þýöm­ÛçŸð4LùýƒØUUV‘ƒw¢ƒM!ºyUÑ›uËn]k½¨áŒ½û¯d¨·ÞPá”å’*qläÎT Þbˆ>§èÆ»îÛÒ×|ÕïÞ2ö~l ¦Ò¢¹^2X"ËÎ åP™¨Ö+¹ƒCx¯!:Dÿ ¢»è±Z=CtëÜ,{©ÆöªÏ!¹}¬7WÙ35V3&:ñýbŸPß;6æoÀ›Ñ!ú§}}©–md—â]š{ûP”G­jµÂã«^;z—õÞ©!¿Hß[”¯²‘ãé-CÑ!úÆ‹ÞI=j¹“šâݺÀ~»¨”øµŸ‚û*:œ"®ûú#3úß OïQ»ñîCôØ)Ø[nw˜\£÷bjm¸=i4¥ïÌþ$—–aÜÌ¢+UÑe7¬7v½ˆ¾ÈØß”âAçç–÷æöª®»=Ñãv…ÒÇw«1¾Ò=Ôk úz؉L……fšŒ©u9ºò‰ö>Á¥eÒ&}:SýVÌ¢ƒ­’í2¹²ãýØkÆò¾3»pþ&/ÒñvÔˆ°î¯Šþƒ^õ+`"ÚsÊr!D_]2oW>¨† Ó±´ÞAù[$醑¾Úø+[±ZlÓˆžNu¢(Î'S£Œ[¤¸"úÆÞŸ[blAšÙy¬lH ëN_Å]¬†‘¡^±á“-nŒÓAôÕ'{AÌKÍæê@z:¹Ñ×µrµØ¦]}ð„}´ZŠOti–½»fglI­/z ‹Û#•²lYKu ‹,‰ª„vˆ¾‚çvÊï¼×[ã_è²Zµ}ƒ/+Êj±Ï.úG²®èóì¿tdþÐkµVÄùþÃá‡s:j•¨~Ç»Þyr:ÔN¾[¶ÔÔÃ#ˆÁ…|c¹ÑÜt#–¶M´ºà»©óB–ÝX>mP»Ý™7\¦ò[J' M‰z{´W¯®s)•1œ)Êj±¤}ýÆÏJÒŸµ‡§8¿¨oãQT/™ˆñvšO íêì¯6AôPŽ—–_*N¤S¸¶«:Bñ>ŸJK·v¹²nDý¤Ñœ1é ?„èi&¥çmé¼)ÝE´Cý§™ÈØXH´mÝE[-–´¢/2ÆXCUëÝý#›äL”ÈrmŒÓasÔ¡úª‹{Ä¡ ºÊÞ@.èÒVW«d’Žáà—Ñc£ºçI4ÑÉ¥Dð6;Ý¢;\ãÛ¿”JT§Ø{Ï.nA)•a›”Ýx2ËZ'ŠÈ‰“\ô׌½çÄü›e1­ºþ»äõ;ey âÎë­Ô&Ј.› Ÿ­]ThXOô"{ß [épxP]]Û1M.uÄ\‹®Ó&“LSŸ²ÏP+“Ú”2ˆ®)=§$éêµ¥CóG‚{¯ð¢£ºfJª>’û‰s¦Ôˆ^V3Ô‹ñ¹}wð9HDO×kÜJdRnÜC]Q^)0o3ÑEt—Ö×WËnÝ’º´JiilÊT]še/ùñ}ŠñKìÐ|ðÿf?çÇgôíZ”TÝ]öÁСDöˆ•Ú¢_ÖÆÑÅb¬]ë5V¾ U¯]3¬‹ž)¢gh?ÐU®bV2ñ ð!¤Œèól>?±ýUð&›²}æ8ÿ>2Fû-²Åÿ¡sÜs<Î!±QÕ€éñ©*ú¨6a[ˆ¾<“³»UGpŒÌàù·Ø0kK4u¢k‰{9M+¢ŸTƒ°nys7ÑŠßu°Ê‰RLô6{Šßr{9û]h÷陕MËÜÔÔÈα –’¢×ÑÁÀÆUÒV]®•:÷E7ÑWŠ>lô8(úÕð¥ÚZÑ‘£«©9cgxûéèÏ\<¬ ÏSÙ9ñqƒéÊÊ#0,%E¿M¦ÀĸñðÞøjþõPZ Ë&ÇÕ•¢†ÚºÍJàÖD—ìÁn½êlÉ¥åèÍ3!z8o”{ÿ)ê±Óœ¸«ÛÓ¯õÁªº¯ÇxrM{Š‰^l¦NQÚÒc™Õú˜Œê±aMj½èæÒ@Ù(…Dï¡ÆlQ>·Ôê´¿¦À)‘£‡˜c‹7ùþ`ͺôçðˆÞÎùa}Îí“åÊx¦µ÷˲ewØSJti9övK¥{ˆbX§j˜$1Û­ÙLbvÛíÌ:Ñ©Q1ý™IܘŠ~ÁD—•à »è Ü2Ñõ>º±¢ë˜e wy{PçWìE¸é?µF´ï-‘-q̅ɹS);1.—Z¢ÛN9ŒÊŸÝ1uúÈ‘žO´WT\ùn!Ñ]&G£‹Ôp]7“Iì• ºŽ}‹lNÚϯH¡Î~l3Ó~ízD÷½6Žio‚ƒÇ̦ˆèqÑ©ýs\CRDt%†¿¹ÎóB©ø«…c+Eç긧\¯¤õcN ÃCôõ(0>ƒè ýÆ–Nç_£‰uæ ÿ‹nOYm\‰z€Ü~ñ 9þ‰*˜ÑW¡iÒÑ"º“îó›k7:X_÷*‰úPBÆÔdÙ2õ ztÚÂ=‡èñˆ>Ïæ¥GT¢oˆèVë[”¬øa¢þ±´ÖÏ×ÀÔ×ÊÎÞ„]ln‡Ošƒè}ƒ"º:ì.Õß@[stì"¿¯¥êUnÙ’è(ÜâlÁàD‡è‰] »K—8?ë«žã¼ýR`Ó[#[&{Íâ¡4>|¸ :DO°è¯Ø¬ò÷µÈ=KK/~\¥·÷@hr|ΠüöÎ66ŠãŒãaüìÚ/—Ӟ}ÆöA ; v’ÚØF6hlób15/1` E„lS^[P"\‘Ó®i]ˆQix³P‹™H¸Å ý*”~é—ªêÇîìîÝí½í®¹ÛÍžçë»™]3'ÿnfž™ùÿio‚»ô6×5üãBÐôƒþ ǽͺéCaïrwþk’~0ðcf¥‰æRÚ‰cÛ…#xAOè›%±¸Ý|¸LÜ˸{´n¼ÕÎvÙØDÒ/šðßAiÕ6ü#{@½Í%^ÿõlÌqú–#è&ƒncÚâõÚ9YŠO8•Š\”èäW°m6l“œ ¤gµ¹h2ù€¾‘)<ÝFÐÍîÑåliç;ÃE&Î.мïÒ ž?¨nƬºú"®«¿ §Ajs†A7ôô¿IÙ¸2µÃ‰š­ó¤%u³H—ãLZ2?× û`Ur\ÏK>Ä °´×f·{fëÝ?5‘ÞkR2 (­Dñ©çô{º ?ḧ„Y)Iìî‡î¼«CzSgÉÇž.J»MjDm%u¡rìÈ}FªÏYz@–o¾ßàs ­f( I"̇™%òŒÔgÎÙqt ³B–ÌýþÈÈ+lñ iˉͱÉéK= ô©eR6®Ÿç¿Š,ü-wgñ"mÐÅ©ú:‘t×z³š1k²9¢AOóÏ °‰.? à_ƒoµ ú„'Œm˜,ÖJõ]¬ÕʼT:e÷ã…$èì€Ãnð9–·€ –õ èÃ]ÞKÈ:Ùn14ÎNã|¦}{ÿe~ÅÔÌ6ê2k5L^OÿEñq<Ýf&èsgÅÕ±@‡Rq~ßÉtè.Öj]%©¸N!d­&dÛr^ú#³£™¤¬ <ô07ˆµúð@—Óîdƒd·û¦ .Ò{ÀÍâ\Za›ªöXAi>áÍ}¥‹Æëc.ù$µ0³Å—¼²¬ëKìEèJ­B&I„LwFÀÙ!_ßÕžÅ1ÿ}x Ë›`É›Ñ-[füeÍÿþ6ßÌ1vǵ|Žáͽ6nÐc éŠò]))—!‹C} Ÿ†ƒ¬•!(‰ø »øƒßÙ!_›ó帋 ty,!*Ë–gˆ[<ÿU›Ùœ¬¹ª‘ÿL÷1MóDÒ«Ì—t=SpucÍݬð/¯I ÛîúÀ›Ö ú¤è÷À«Ü[? 85(5ôgîÑ•M°¤¦‘?½ÂàÀ#}ÒÉÕÿ~G+LO˜1ë‡Yë}#x[®Í¯ {ô"©GGÐzº’#G‚–-¡1‘x´ÇÀ“j èþÌ©æ6*³»Ø…{åF(èâ¤{²ô"U tõ½AO\.o‚%DmÙ;—è.²É±ÍEÿßÞm2ê˜|© ÏP2è¹>Fo,ÐÉ$#½˜öf=q=º¤˦ٱ,[ÞŸ8dìWvÓïx>û’ë­ÂuõºÇ m„Ž6Ž úZ/s?&ç–YGÐÖ£?ñ[+êZ¶èÇúmIĉW“æêÅÕ훣ßÈ©/òÂ|¶štòÐ ö"@ª AO èÊ&XB®ð|œ¿ÓÖF þ7Õ‚Æu\+ èÇ:Ò@'ã滾I}ÍN(×Üã«I§Ôô„îßnÙO-ž­ÿ¬¬ šÏzÚcÛo˜Ü¼×wà’ú}ÄÇsº?íjÙ>•_Â=^¶Hÿas‹iEKágo·¢gß…çÕtÝX(›`I˜eKXü™xô‘§í( ûmäj'Ï[‘”«¤´ ³r:‚n ¾á8Y.Ô²%,¬‰î¾Û\LE®©ýô 9K$çê:‚n (›`#,[Bcç¯Ï{^¯ÊG-ÝôñûÊnT AÐtý`J°r6nX–-l£þ“f§Û›¬hì¬mˆ;‚Ž kG Ų%<¾00|Ϫ ÅÊÑ“-<ßYcAc‹iŽàt]³dãÈv¾S»î¹Çs¦ë?qn¾_Ò±i{vöM {ÜE)n AÐt­â”…³HË–ÐXZÆ=žc`ß{­+à•Ø¿Û’ÖVwUböAGеâ)Ç=Q~<]ö9ïqe>40HèV%äXlØ0Õ’FÛp ‚Ž ÇˆtåH:a–-QdŸU1s"÷õÛF€ë 97Þ/NÕoYÐæÌŠªmˆ:‚Ž Gÿ&XɲåªfÕ¥ç–zdV­ê¾ÜžÍ7¦[z>eÛu0’ô0ÅöÂT¦Ø~J.ë{Å'óCKF;!½sœ£Ùý{'¹íE×mzü ÒîdK4Ùçgš4ç‡ wó²‡ÚÈÜ.W>.´%èjÅöSvÒJ&ÈEàKsBƒºº$„ "ùvvLÕ vçØ/Œ±!èqƒ>ÄÝñŒ¿áK ̦?_ü3Ý:Û¢955™Þ­ÏÂä{r®RlÙ](òÞç†å„¼á…—mdõ+À@)ñA=±…ù6Y^¤~­›éÂ#èq‚þ„ãŽgÓº“éôþ™òª>éi„êÓîÆCVLÕ‰m=žuIЃŠí ±×ëÐÊNš2'’QÊ@)!{p~2¸ åûïÉ¥z¼ §ÏäÊ2ëøËzõ7sÜßS–éO˜+ûfüq,›×Ië'&j)mCÉ©ä]¥ëžç¥Í^¸à±ËºRâ@}~h‰x>»üŽC1_Êä/ =ž]•Ó}Æ÷øO&ÌÅ´2lfµûtü26"k?¥•ÈtR€TlÏØT$…Æ‚WþÛ¸-‚RÂFd= Øµ8@ájÜGÐã]•«ÉŽ%û¬¼Ç}b¨cuEZ§«±¤õ++»‘é¤=¨3‚±|Øå«DÐCJØ›Aμ‹÷)W+‚ëzÜ 7ÁjÈ>«Ißiì¹×htqæþ­W‘¸dý­w¦Çï,Òý@y  ¼ž@R ¡\¾ÿ€üV+ÜFÐã=p$]ŒK±dŸ#bö/ßÒ©a‹œ¦KÑÎóGúÍÿlµ½¸Øfôé)qǯtA'n¹»&¤¯Ü#Nºå9úx6GW—Hi÷ÔT(ò€ivB!‚7è;GÒ%ÙgƒÚ0¦üDoqsn~Ô ,7Öñ‰Z¯×Œ^J«p¹ÍèGß}5ÎøÝú ·@Ô‹ßa5iûjÏ&zH É߉>iðîg¡üœ:‚ Ç zðHºóŒåˬœ“òݹ²‹6ö?yä ŸAfoA”Å|ýû™£“½ÎgånH%d”×;ÙFr_“ÖÑCJF;á„œç^iy­N$ý¾ %éôxAWeãÈ>ûM#£€2n0eŽÞà­¦Çö;N¯1ûS¨îî@¶“trÞ B]©ˆ6³O¾ à« Hœ«J¹@¯Oë“®=à@Ð-=½Œ )jÊ>GÄžÅÓujtÑü˜Cç&+„¦ˆm}~ŽÞ“ ôR–­y¸W#è–®Þ«#û;?JÑ“‘ëˆÜ '·š½ªÞœ'è3rÀÛºIûm‚ [ú×܃à‹aÈ>Ÿ-[³,eÎQíJµ.E®¾±Ý] ²Õ“gŽž›WçZ–Ý¡ûwGµ‡Q_ö9СOã&.û‘Þ™ÕkZklb\)ÑQ¥LLì ®k™:~Ù½À=ú>¿KºÛùN£ì¾2îœn%¶Æ¦IXSû-P쨠±WtŒçtÛLN•c²Ï†W½Îý|~¥ê‚€þ³VüŸ½³ŠâÈÃx_ÎÙo·ZF'ëž»¸Èq‹/õD)_ºßÅM@A|Eˆ1FðNLÔòý-žÄr1)ßШ9ñŒFŒo)”ÒœU^]]òÛ½ü·½3ȼìËìÌ4Èn??¸Ð³,ÔŸéîït?Oa!Ûk’Ú0î+:§7{tu5.ªí³^·"ÏÓ/žèQ*UeÌœ¸s$=±AW.‚nû¬Ó'Ž©ÚÄÝždW5²¿ Šró.ø9è\‰ ú¿p›bÝzTÛgµ’Îm혺%Ò[r2 L«êV½Õ ï2ë9è\‰ºxc%¨•1m#ÝŽçþ{t˜Éª„ Ý?Kª$SJ8è\‰Ø£ÏPUãÐ{¤,†2øŒb\ü¿¢ö£GÌU#¿f;U÷ï™ÃAçJDÐU[Ò*J‹iúÙ¹x{Tº& ;Œ}Úó.Jpâ 3×Ùä1ŒäMmJeyC·sÐm]]CM$7–Ÿ>ûyô¹õ†ð»[4Sþº4²Ÿý/Ô‹ôW tq„ë8)è?wƵP}kÀöY¯#‹pôŒáÁ{ë‡]°©m¼ ìösлôöçÕ ^€ã¡Ú9è¶þ þIù(¼Ð°uœR£yHßexð.ë0Ó©º¸'Ýß_)Ðu’Açstv ¿¯0ˆ¤Ê5`û¬ÖŒM›·ä9þ¬r£ƒwI'Iã ¦OÛÊg~ÏAç 'èšj:aÌ:N¡s¸`û–">d3>x§ºF ï®áz•Am E–ýqÉÒ\|úºZ—³yµ—f°Qµ¿tžš“ø±%t[AÿþòÛª2r2¶;Š’ìãà½5·+@ßàç 3ý…œ¥é Å**ã’ƒ@¿í„äÒZ é©—+†TdÉ tI?Ö—ƒn'è?ã¿«ŠÐ-­ãc÷eg£¼eƒ¡e3ŠRA\©Âär:CÐWø`€‰‹]ð†&.9ôoao 3_á„/‡îÁö,'=²&èõÎA· ô¤_ðOªBÚýØ­ãHúŸ®®´ið.ŸIÓ©zIf”íòtk ‘'êC!Ù«ŽK=LJF~RñT ú9¥¥†rÐmìÑïaü{ù1YÇ)õM„øtfì[Â[©lex©ü;h¡\׃îu4Íö:a‰:.9ôÈ^’"¿_ úZ9K9+Kä Ûz’¦“uœJŸNu\œî`½ Ä:Pþ!—˜½çp½°n¤E…qý£ _¨Arß|Y—,½Ä ସ¼T zwE¢Ç;èÚj\,Öq m-þ º5uÒÊHSâ˜MÖoïd?YëÇ',èï˪ z;øäïÁjU\²\t{í øÔ¨@¯nÊUŒû][Kj4Só>‡ñ#t,‚ EN¦`Òæ¥è6Ë©z¹àiô¢‘¹Õr×@ž —UqÉ/—ºz¯?îÐKº¼GgÓ£ÒTãb±ŽSÜ6á‚{ßQ&5=ª*Éz†¹.ÔQ³£_WÇ%¾$%9¼AoÊ¡{¾fë8…Ž-¿f¢>Ïl˜ñ¾Ê²V–×,¼ »ç9úc/Bç]ðD—,WݧH?^|šæ†Å5)Rû%ý±”ŽÐEº] £6M5.ékbÁÙéØrG8Ò¯žW7JÁ?ƒn/èè…œÙé½i D—, îµ}\~)p´~”çî}Ý\8ÈWÆÙ º¶G­ãž›üõ÷2С厫azΙÑBš"ª¥ò6à 7Ûs-•ƒn+訽Wº;}ˆ¾¤ˆK–€ÎêïvÕ>_ÛÖìrÞé(Òm[—îKþ¢qÐm]| ­Æ¡JÒbî·ŸÃ3Э#aÖ͈=Bµé¿,i!¹ìêïgKw!ºÑ[Àžp¹â²Gߪ­ÆQë8s[·c¼)Òñ¯L¬„}©Ã•„1»pbƒ'3•ƒÎJÆâ’9è,AÏ(ÀÿU·¥‘æ~ýŒ#mpÙ5ÙJ8RÒM¦49ñ¼ ¶»A7—ÌAg º®G­ãšüýƒ>“ld. 9~ßûJXn²œªÇk¨Kwƒn,.™ƒÎtÝÚ8j—Vhí<.†Ùá²ÛäÃôNÝ%äà]fׯ:NkrÝ>G7—ÌAgÚ£?Ämšj\ÕªXí'´º55´»TÎ8Á¢SU!o1»~Waæ.z¢+.A§éªq(—4™?‡§ßž÷Nȃ Ö¦ß\?’Ùõ<±ydpÐ9è=¥G‹µÕ8t“LŸÃ ¼,|¦²Å‡éì5¾:•ƒÎAGÐCTã2Ê,l?; ŸìTâlÉ:ü¨¬é0ÿÉAç —¾‡FšµŸ Ú^€%w©ù7Bø½ï2í˜?'$™/…ÿÌ‘ƒÎA/ÐҸM»“ü6!JÛÓ6K¯Gyú-ê~Ó;ÓÕº¿ßJ!!²Êã-Î…ƒÎAp©¯Æ™³ŸÐêXž#Oÿ”­Ú&WƤûÌʉ×<öÜ8èôWôÕ8sö:?ÉsÜÒS4K˜ißÀ¸h'[ŠòY%tz|¢gÒ~B¡{O ü»òVˆCã­lnÑj'!-Eü¿æ+úo`Ͷ!ÉÎì;Òý¼3±%^І0Œ¾÷¹¼t=zŠ6¬†þ§ò]Ù—8èl@§kãt¾0û­ØO º gÔÖpÇ,mnÑèîzbñL#¨¤„ƒn ô §»_³zQÒ‰-k¤ý«¥æóÔLæ”\}òAïípz9èŒzô‡¸m‹¶Í’ý¢.¸xôå­Å®ÉÂÛþ䤓M¬V¿ïòq²"¶«A‡üÉ+’á²:±¥Ò‡Ÿù سÎrÂœ„®'Ãb º/ÿüëCèÓ0¾¡m³`?!Ý‹çJëfÞÍ›zHs¬Þþ””$ãwq‡cä3]=èqò5‰-éÔ$²/4ú@K:ŒAs`’ÞZKA—=$9èl@U¢CÃÇ IDAT3o?Ñ¡òú8ñ¢c¹†t{ëqAÕ±Øë"6xvsÐM€Þ|õº`›*±%Љ¯¦þOé$ýmȦÉL’ék/0š_Mo tv ‹Åúj:iÖ~B§• 5M¶ÖãdÐIƒ!¼ŸÝÍ€.s±žª[Ð@êUëòÖBêkÐp€µÙA¹áõèý8è,A§kãtiJ…¦í'ô¤ÿUW|·³'éD£mçêjÐK_dÃUb îv¦Œ ŒÖ{Ã4%0¾Z½‚ƒÎô¸íS]ãAÓöÚ=…ƒÎô±!ªqÖí'½ìD\ ×ä¾­º—ˆ³ØìWÝOÈÈ »'ê»ÏïâôÓز†Ý%½–j[Ðth®u¦ÐÙû" KhÖAi =ú\K9èÌAG¡ªq¨…TZ>¡¿“±»êP¾o´i¿ªFû¤ß·ûCÅêz ==È¢-zÐ ò©‹²¬JlA(ßtoÿ5€‹é·¹ƒx„–$ÓþƒÎtº6n‚®õ>!­öÚüwŽ-ʆ=&’”ü-'ëªW÷ÎÑó]¾Ò|âÓT‰-h/¥¨/ÈkçÝà¢oâå wA>·Ò#ó±sÇ÷»ß,TÝLü™,sL[ퟪ¿âç }Hû"gò¢SÒ·ªÄ–S¿ ¼<xSj˜Þ{˜ÛUú„®{å 3}+Æ!‚”>´b?¡¼cL 9k¾À0Œ-©Ìþ4»…É9èÆ@ïÙ ø=äÚ8´ì8«xb¨uó©³vëΚYUhïG–d ãr8èô ºXŒÿ¢y?©³ã¬6cüYÇ×þ[çF¹ròÂvé'íž«çÌœìç sÐ{0ètm\ˆ´ã·°uè!ÆòC¶ù“ ;áí°œç‘uû?²§:ÉqÐ9è’Nã¶/õ­w ±eýxÒ£— äŽNryÙ>Ï#\`{Aª*í7‹Mý?{çÅ•ÅñŽÙžs[,"q´ÁQ†˜ø‚0jù@QWŒ¢àkEEÝD² jÔ˜—¨1*J4&–Ï,«‰®‰F >’X&”ÊVm•ùàg¿ï·ý´Ó¯énè2soÏ÷Ti?nÝsk~}ï¹÷Üó§ SÐ{+èCè_&§k8ìb ã×ÞЮbyïd÷R±ç¥è²M4•]6ÓØ8IAw˜£Of“’=体ݮáVáíÃfÙù)t z¯Yƒž™8 KR9lZÅ›~ÚfÒ<²‰ÉVIÒMÌÙ#EÙ¦ :½W‚ÎoG&j Ìn®gÛ­“jZ÷r3~kKj‡¤“«}5Š‚NAï-ú)ôt¼Éékøf£E©&µ}È1ãÖUÃwænÿýåRÐ)è*†]19c ›j{rǪ‹ ÌpÌR¤ÈN±©Vp†Ãæ§Zýá| :="{ÒèüMù@“Oð¬.'úhóÑ8,KØB/“ ¡Ýcã&+©.¦f‘žb“íæ¼Rm_³™%t z$œ×+Î ÎvݹvOðœ¼Å¤@çÏ£g‹Ìû¼÷|G~RH•ø›±iÇõ‡òóØÄ" :=|[ ñÍLU5Ô%k\TÂÊ'Œ»\B 3'Pǧ&§1/a3±”luÎp5¸Fåê(èôl®˜lƒa’+Ak¾_á‰Ìû¯¤Zô‹èéwfµx}Û=Ãwj¤¤‘ä§ØtxŽÃ÷âê=³évƒž–>Åãu圾޳ßÞåV§+îõdâeæ·ÿÁ'8gGô_à´´ý‹.ð±¬VÅT«i÷ð·è÷‘¹“Žk ›b-hìœÐÁ Ç!ƾ)6ùëlÀìGAïdî.¿_Pò»wwõðVúF’^I`æ Tzšì=†JÛrpj¯ðŠ­<³‚X‹Î$EÏM 0-aSlÙy´ðMõàˆC"½ˆµ1%é}¬±~[ó®òôÎ]_^ ¶Ïü‡?ôäêð DØÞ üX&>q@$¡~ 7·tŸ”5s^—…N®€‘Í _Î R 3Ãѳufçq-aSlÓš5!Ð 8þ*n° ·tgŸ|üž/µƒeR(èF»ž´_)åsEÏÚ¼>q‚rÓ ¨´tÈ“hÉúœ×3¥Q÷Ênæ×"oAÍ Ú0-a 5©:Âø/¤¹|ìÂ-ÝY-ÇmhÃñ‡ø¯í™ìM ?ñ€¯âzUÏ.þUé6g¼ñÙ§2ó‰[E(©Ë n»A÷B{§ •%¢šE|{ç«‹ãõç ÿ¾;ÑÓC¦6xµgÉ$Š´¶{s¸<’’}S)èìCŸsŠSP“ƽÜV‚5à¥uM>]§©l¨äJÃô‰ÉCs¥Évƒ.˜€^V#ÛÝFp–ëºo³—°aÏ«ú–þàÀ¤Ù™¬Ý ûkÛ˜~c6ƒÎô¾4ô|¸› V¥¹ªÀ«•9#>7]§´’O×kª3C\²üú ÜÈÄ'uáíïº;MºîJžû1%>!Й…蹩§ŒQ…MµŸÑníà ãïŽR:¶‚x†æø¢z zÈÒe¤Ò*•6T²Á`0uúˆxè”ÎübºNi]•O7hªÝLr…ì¿ìFæ>±2NàRºðv‚žÕÏíe$«Ë¦‰ê²„@ç¿GÏŽ™–àPaë :úQkÐ×:Æ#¾0ÝܦqDZ¼Äv°y)èꀒË/·CÀÏwz€§îs±·ªk”u kJëª|ºAS=A‘j…?vº©O,YsĹm}¤òÈåà 1èUâ}pX‹þz4Þ´‡ ›Ñ’¶£\MåãÖ,ÇÑ6FÍèìd*‡¥»21“ÍÚJAWñ‚¸½»‹Ë@ ÷¬6ôžÕ¿¤)­‡äÓ šê•ÊA Ðí¼`zs+x í§= W@µ´}]yqÉÝyÙƒq{¡œè{Ì°1ÌÛ«¸˜¿äèÝ»uƒïŽN²5jFgw§MÇ‘˜‚Ïϳ{â vAo …Ÿ8aHw_2Es2º‚®)­«òéFMuñ O,u@V€ÇH¾= §ØeçõÓ}#”™ÿˆc¤@Ëj4Žƒq ›•Ù5CÀRŠx ºl§•¦JdKû W•¬Jë­^–w„®˜^i]r1hªWtYýaq#SŸX|ÁøÀßéeaÓ¢–0³Œq7AN²èˆ ûêå^H>ð '¤3Ä@g–¢ç‹L nsù¬ {ÿ;/z¨Œ™~n4ÓwÍ^ÐÀL¥O [/sëTÐ]𧮠kJë*èMuº¶èV72ñ‰i ¯®ó»Â&Ð3|àZá§ä–ÇÁqsÙ Îà9¨æ ‚¾ uÜ2w©§sø¢ËNéÕ88^D¯ó»ãŽ/‰üÏÌ>[DAg.ƒKŒ»¤ï[ñW- ¥½lð6w]SZI³4Õs½xæàîndæ3<Ðú„‰èÒ"Ïiùµ¥€Î´Oð žøKÝ|22Ї¡GGÍK¶pÇ È!´ óéü ÇäQ &-¨Må0øêï°‰‡ù~z† 먺ãzÕúœÒÌX£µtÒº ºAS}2ð·R¾åïõ‰Ó|0³k__N%%Ú„–›—¼Ïqûñ?íœ\½([á‡ãNôª® Gœoý|–ÝÑïAgÀ›^ÅFô`*ß b´[±b0ØåÁ¥ÐuJë*èMõºDùõänWXøį‚g®XÃ÷Ðß̵XÀ&*9ÔxÜ‹(W"÷¿YÑÖ6»öQADŸu6³ˆ‚î^ àuÿ íQ ¼q>‡Ÿräx·è:¥õª²^S$€'èÔ ƒÂñ‰Ó\Z¿¬ÿ€.&wϼä%‡ íÙ£?²5׌¹­çVcúžÙëÎÇ{ÿ„WzvuUE¥KUSï ºNi]“O×iªøj¿×sº½'7êâ—Bÿýêx×¼äF%‡—º¸ù……ѬÀ“«ì˜`èó G`ñFУñ }ô/ÑÓE•¬-9Ý;nÜѬÁ‚-µ‘;n;ÃSÐò4çc :qÐ/ ´ØÊyŧäÐù¦»´ÜR›ÙÄŽY·¢_‘mm‘t\c.Eï}e«›‚Nt1”yÈ V%£µ ±¡|ïü|vþ8ÇŸ£^ëSÇD0­ÎßIŒ­€ØÞz¹!ò“‚Ntæ{ôìS‹¢oI…ÁnZƒ–†’Kme7_9õz]ÃqÓ#}ܼo6=r£ ½uX„̈JmdúþÒ…ZÜÌ^v^,¸·I§ÿ=2_§ ÷Zëû]÷èér«22a°¢-ÓEÂæ'Ê'…QG=ò19>Ÿ§ SÐc±E߆ÐoVeµÜq;¾Â>6{ÃÜZ»|Q ÔgAÍ™"¿bê)èô]L'e2Ã|B$ Vs‹•íÔ,ö°˜^ʱxRôëó.ÇEX’Èæͦ SÐcô]èÙ»VedÂ`»˜Û¢ìÝa3ƒíàøÉŽïb Bo×pÓÃÿtI–-âït úïµÑ#«æ\dÑ/·Ÿ&ïÕg²Wƒ›ƒWÖÅB&=ˆD*OA§ Ç è{¬CfȆÁŠYä6©®­œ6†Æ­ßÞòYRoþåRÐ)èF[–‹~³#;zû.¥¿0J—vQlÔëMŽ« {€bö;õt zl..`³Œ@%k´lb¾¼whò7±Ñ¢OãÂW>Ëæå÷+ЭÃ\ÒaBðÿä Ÿà/¦ GôÖ!3Ã`–<Ý+ïÝp8®ÄFÍîÿöZ¸-Êb3§RÐ5Ð+ÄU¡)èQýKë‚a°¡þûN)v¦„eå$ébÖ™c±TÁûÃéÒLÌNœHA×@ƒUîd zTA¿€r-Cf˜ ƒUl.’ÎÏW“¼óGÅR,é5nÕÆ0fR¢-Ã[ û¡”‰ië ‹ Ø,ÛP‚a°²©YäŠX6&Ó©î_Ï‘—–í ·SУ º¸€Í2d†P6X]D辸m0¬m)œ+¼dLj¸¯º¢(Ê+ÛzÆ@¿Ó(§o~¼Ú/¸ê3ЧH‰›šDIäŒ>Á×(çpP-J!K〉>òPHTû]qÅ ?´Rðl¦ c½u\±,|ŸllÐvž’ÝÚD}LÙâY_ÄL‡ý¢k`³·öÐãüà÷TŠ‹Ë›üÁcð—É '¬þÏÞ¹Eqeqüjì>÷â–ÉÔà0a@@G|¨€%€¢&¾@P£¢øBY듸îº(htW×ͪDhÔkÅg­–Á²4Uné‡ýý¶•O~ÏÖöí˜î"}§{rÏ—iæœzêþæÜçÿ@¿IRT”¬RT=Õ[~nWªOAÞúÈÑ°× n;À¼Z°I¾6z‚¾?]«î]ǪçzJ(ñ¦ôbVš¡>çû9#ïv÷žŒ BØDnƒ>.#cÈ[]”ªyÒ(ü‰Ö`é6*íØn…þ]w)ª~¾¬â:\)E‹,ólð®·>2èM%em¶çñ´ÄbzϾã—ê=eÔ`ß´Î㪲-™!æêsn%¤ªÛ»Ç• 1è•1‚òmúË/–«.×Iª¥Åßq)²®ïÐ^ÝUK%×ß—£’ÀÛU9ZyýPQ{–úüÃ9è=:­ÀÖ¬>Fe¡»qó¤Î㪛¾ÿ C}ÎŽã9zžðaú\‰Ôâ·ºˆY¯ºR¹Cž”‹UÄ¡¾§uBýA÷FÅÚ<ñ±V颳>r´òZã)¾¼:8è=ú6ül¿ºwÙ§ûS Â);èqÕ¯ ŒNõj³ƒŽvﶼÕE‚Z×])nvQy?|à‚dxôrOŒ.x #µIÝ}O}äÎÊkñž nƒô}~¤¡ÎxŒ$NÓû)>úOý]F¿ÖÓ]’i4€Œìv!§KÅ¥F]/ë\^“A·t¸ÀÕ·íMÐãº@ .Ͻ尬«Rƒ'‚ƒ®è“0þQ]È©º‚¬Ð¿ïþIÊFT0Z¸äÏy~îAƒ}Þ# 9ÙÍY¹"! E›ÂúJpÕ>_YÂk™¹â¢fc}Þw–’în!Ê(F[~= Kƒn¥*y”è¾côv:ÐÑ{ø…†¸ËŸÙÊæa†( ^Ût^œm´Îû‘·»yGÁ.öæÂú(Ï úP7¥W t}䆃µ†ƒÎôüLƒ'G ù-£§éT è4KæåÃÈ6ÍàSsá=Þ S¤Lz? ýxUлhõctÎFgÖ9èl@?‹Ÿ¦j¸Or˜¨­LJi( {uÕm?Ò8ׂ¦U‘o=WTÊÇšRÅËm!WëB-ÂZpz=ƒVÐé–­Mhº+Jy-PJGKVO7h ÙGHÕVþ_tz£[fš5ü÷õV”òš¥ø?»LÔBF¬È!ÝÚ;$ƒÎAètËÌ~­Á³ÞŠR>ä¼Â?]èÉL[bÀ&⨾Óð‚Ñl” 9èô@Ö€ŸÍÒòë®(åµ{OñOc9.‹¹Û ÛRZOþ"èÂè tz˜@?‹Ÿ.Ò*P®¿¢”×^aü*ÐûÛsÅü&£¶”FBN†4Ÿ1A8ÅAç ‡ tºeFskC-ÔŸ“Š9œ*6µ¥XJB«\*å sÐÃ:Ý2óg-ÿ RÁls÷A¨ ÌHà sÐÃú ü(W®}ä$³‡¢ÒÏG·¨8·_?làSArB©VW)‹ Ð_SlO¢Ší'_û`·-û\/˜èïém‡aô[`ïMïßç´fß²pÐun™Ñìß ä.³§:%üŒ'«~HÌm6.è­U!ÞÏ+L($Ð}ÛOXÁÖ7` âw_;,A÷õ Û‰|+=¦ ¬ö~m.ècá ë ú˜ü2M+`DieöT¥11ÿÂ)gúšrÅEÎé×] E{Ãh}•0Yƒî£Ø.±;Eâ½Ý óúÐïZÐÂÁ@A÷óÄgC9²ôƒ‰E^¢~±“êÂsÐõn™9¤PGÙ=Ö…¢/ñ¤À¾Mks7~Ðw;XZ·¹À]fƒl¹sîã‰/Sî)§Y>òl.êX‰LzÍðÚ¸Á3èèüb­vË¥t9¥4hö¢kfHì#Æ_ÕØAS$œJˆ ÐQaT²ÝVÖ¡”IØÏjkëýºg%Xeíöt›D·tÿãr«³ü2è ë}ÖÌú?¥Az2ÅL—Ò½)ý3õîûlQ¼n†ƒSv¨ÅLŸ-feš€ô$Q}RnyLO×[5 èå}Ûå×6ˆŽLГéLƒ©Æèhædüò[í¶Kée”g~Š§ªî‡µ\K3Cß9Ži‰Êeôô¡U£€¾Gže«Î…‘ ºÝ‰Ì:ú¿˜$„éR:-£,§ôŸà("ÌÑz|“?dÐG%ƒ«~• ¬Qd‚ô£øÙ¢ “Øl—Ò;S:º7h¦vàá/Ì!I³•–jιs#t4tX™ÓV?¥E(èQ0ßt ŸÅOƒ©/²]J§)ý»Ï‹³§›tG]"©R›’ˆ.Y"tsØ/}”»~§Ù@§R°ûƒÄÔ‘F–ˆŸ c B‰ûVg˜#§ß®[¡6Û°KPF*t¾2 `Uyœb&žk 6HßÊt)Ý7¥;þ¢ñs-+Ž™ZÖýH?-ìâ › tÓ­£S)Ø ƒtÆKé>)]êo4hÒ7™©a d|aŠŒ!t“íkfý~$;彂éR:2A¸â¹lÀø¯‘Ò°¦­#¤EÏ?ÀAg:+ëQÐé¹–`ƒt†µÒeûª+¥;6ã¿ N;´Ä$-ËqlÊN¹„åtSÛ~qÙÅöNÏµÌ 4ž]­t¹Ý{SºcM°àT1õ ¹ZØÝ7ºGë…±•tó€nYæ”ÇçÖ‹i@§çZ‚ÒÖJ-¥·æ|1×Tsr[+^/í²»Hˆ©ä ›ô(‰ñ¶òl+(z·ÿgïì¿š¸Ò8~—5óÌ Ç †Y&D ¨) ÀR‘øBÐ"nEÑuÕòRP‘7QDY´¶jE·¶¢ëÛª¬¥‹/[«(Ðz\m«.Ȫë9–ƒ»žãþæݳ¿ô¯Ø¹3dBBn&y"Ï9À¹““dò™ç~ïÜû|q€þ„A¤ëè•îžÒi$¤ÕøüÎu¨ÌœºŠ„A¤#ïÉåò0>[-òè%ÔEm®‘föü8:Ð{AŒ§ïÅü¶-h@§ëZnùj¤£Wúà”ž°v-îJîCueƒ&[çE†8葳Ŧ½ ¯<i…4 Óu->Ez— ¼XJO]Ëoò)Õ ¦î{å¨\5ƒ ôžÙ­ÚÌMžGºÅÞU¶ÛÑ€NýZ|O<)êzª\SúÁ•ü_¬_²YbXTîvñ\pfiÈ€>(TÐCA£›ªÜ9Lx@?ÄÿÛ§H'·Y¼ FM¥gÏÏöÑ>rÇý è‚à6é+ÊUc ?è3æ¾7eœ‰ô}ü¿8Ÿ"½²Hظ”Îé브ÕÈH/w”Û“bHYŠ ô°ZjŠ¬Öwt±KV´xNm½hl«0S6=ý•§rÒaÅ8A¯íóž Ï`Ðc–ó "$ »t= RJÿʯ"¿ÃÖw'ä´[/iÞ¢èU¸@ic¾]½Íäj—,ý®,ùõ@ÝS;JbKÒTУDå° (A3Á;Å5¤¦ø°…áÉèdÿÊ·H—:š§õNéÚ,ÙûHHFwybÿzÿé:ÐKma&‘…"Lv³K–žG¥d^j„¨þ®»üxš‘î°V˵ÞñN^Ú¤Þ‰üó’ ý#‘NŽ uMé1IücßG˜»è¡lDdQ@U…zpç{E^Ðfö«”üÁz© ž™ iáG7»duÔ=K"½©D¾›f‚«òx»H³ö™.b½§„Áú´è´ø„¯êî4Ê…»úž )=;‰aìlYÃqçñjõòÓ„Ì3DßzÐéÔ£ÃNÜ]í’ -`Ú6^{»´7_´OUí>Á–|i'ΙqkSkÀ‚ ôÇ’HgXò¥Î+[<ªôÃIÜpê› HAÏ»"P­nýÌ`¸ô “žqv“=V5_r±KV€N wšÄúùþZC›hìì¤k¨µÛ,{6ÐÍMR@l“Ï ADz6›H¯,Óye‹G•CB=,¤µ8§ÎhYЇºÇð)¿èí"h# è Iü+'b½W¶ø¿ˆMé—VãÅ=¦¹=èlvɸA—®b®arä Ü“Dú%ßÍt_Ùâ^=®/RÙjKåvîE z³w· èlvÉÈA4›ÍPbVct_á(€þ…$Ò¿gh§÷Êo)ý?…åàí\&ZÒ»ŽÑ"’Gn,À:›]2rÐiävèó GôÃü²Ÿv2´»ª¯g‹×”~ÑÁå~fÆ'xûî·w]%g ){°ht&»äñTUMªNÆ:­™Á°ì+/N_Ïo)=a>¿–M¥Ÿ'¸cÕ"ÃÏÉH@ÇÃ}‚(OÖÏc2Ði…HŽ¥B‹Îž-^Szê¡ëoÈ÷qÁ…²Ýyc èÅmôÂ0…!ý$Ò¿ah÷Hê|Bn kà]îÀï<‰÷ ¹¿H`[78ºN O럹[ ‘¾_–1‡E7þÙ˪E½Sº?q‹ãÖ#¾Ï–÷éâº1ЃôºîV‹èË%‘α P*,Ö{Ɗה~íЦ'X}–ãæâþVΫšNºÆ@ Ð]êºç›N¾–D: ]‚ðC°¤ôL \hÌ]¿÷·ò=Ãg/„Å[Æ@ÐuÝ-3±NEúY–†W„?ê}J¼¥ôì$~êò­¬Š6ü\& ýÑ®èá¡n=ƒZl S‘žÉ2dÕ,Äuë|J¤”îyÖ÷áe+ýж#¾×öû_§t%ÆÝ=@Ï¡ µ!­¡5L Ø@§6Ü †† ºšB¥¸ÃgÙÎ-ÙŽ÷{¹@ú”ÉJ•Aú¯ º!Öbtt*ÙaÀ±År±ó{µM6ÑLW±Ñ½²ÅpLjqŠŽvÄ “(£:×]Õu¶£:Ù$‰ôs, u/43DJ÷+öÎA?&GãtÙ±æ˜`½ÄhšØfƒq”tÇ–jeýj>…¹•“i1‚8Þ r·ÂE£3è$-b› À™;º—«Ñýÿn=KÇ:[(Ó83ì{é4Ò×s·pCþÁû„4Æ ž €è :8¥ïy©:´Ž-=@o9=·œÙK»ÓŒ[CÈ õ¯›³õ­x‚t5£>7ct@¿Î'qK˜Š5èm¡,ÅŒï)ýzÒÆg‰‰D>ö¾4šVÙï¥ð¶î Ëu#:ÁéæØb§E"'@›=è6€,3>ЩH_ÃÔ²N8¦ûiùÖ{JOýh¾?®p{7sKN¢Íé{¦÷m6 ‚HÐU“ptj[È,“Ñš,õÖá“dIýûd—’,…è%ØAoKgéµÀd| S‘¾™Éæä´ 4QJ÷7îÏa¼ wÄ4–k—ê úQe£žj[™Å0›´ÂñY&;!M.KÔCô¸Cß)¡ëØø@—Eú%¦¦»ô®û—©ic†ãÈ߇LéÙIüAÿ2úf.ká™#ïk^ycw @í)0Z Z”5Ž--¿þ<ÿ?{gE’ÅñT£*³Ñ²í¥›ClÀv9FAEX\Á päð¾E\q¼ÖQ'×sÔñÄÁ[gFů4Öˆ˜ØˆÝ؈ÝØý¸1ß÷ÃVU7‡•YÝ]Ivçû@uwdUvSù«—ÇËÿƒpŒëƒÜœ6ë‚—êZ”€~MÝÔR sAk.ƒ kƒô¯ñŠnzseÇ,—ÞWŽ¢-„!ø‡«K€Ù㘠:Ûÿ/ÖÑ?fyS‹{Žéä*(LÇ).=# p벩KÞtë¿pÐM\›íT0Øè[ekŸ® Ò°Š¬’N™ß²SÓâ؜ìößw ç½ßÿ—ƒnèŠwÔ×ßÐg kƒtÌý]?P˜Ž·… Gß¿ í)é5KÄâ26[êw‚°»÷Cj8ÝDÐM0Ÿ® Òÿ"ã5? ŽKoDˆ”ô#¢˜À(ékí)º© úŽ1 º:H/Å\]¦1§ëÒCëšFxÍõÙé¬.³ÕŽÔ@gÞ ß1&AWé¥âA¼²ÒªrÓoŽâÒ×öY n{üÒ‹–ð–ËA÷=蟼cL‚>¡cFÁÒ™ŽôFé .Ðìø|:£Ú%eÞŠY–ÊtÜ$=—nÔÚ2o°»Ëž²™ƒn:èì*Ìh¶…‰˜Q°t¦ã—>Ë¡[hëtâë&Šb+“BSŽ™‚½žƒn.èL+̨¶ Ågb+¥R™ŽS\z½^™ªœ¼â )ÅÓ×éwµ[hâ › :Û 3Ú =G¤ã†R‰ŽÃqéE…¨°Šø w]eslžÊA7tÆf܃ô¿aoõ( ±YL²ë»ôËyØDí×ÆA7 tÆfzé¸ú+46«°G˜¥û$Ú±s«±‹Ë÷Íc²ÙʵQt“@g]aFµF_=V¥¡‡çÒ ÛD±šIØzaÆ"º9 ³®0£ oÕA:¶t" í8<—nØn¥³©Y›"üƒnè¬+Ìh¦ ÒÓ'`>Ee:.ß.lÆ)òÌHŽ¸ÃŸa²ÝÎOâ ›:ë 3š@aÙ"nÒÑòÅ4¦ãÀya†KOFèxh5ÜürÐÍy…× =§WfFŽû=–0]ú3„BŒVÑð#{qr|2Î$ЙW˜Ñü`<ú+¾–ÚW’ô°ßºt°í4ZCµX}€ƒÎAÿO'P˜y½×i‹ÝŸúÆgòõ«kаHŠ ƒ¨N±9…̪£ôÃÝÄR1»ŒƒÎAÿ á*̼®Ö ´¼êõYø]©<*FÊAŠ.%৿#ÅÌí¿.Ý;Üš9ƒÎA÷Ø–Á!GÁ†°¦—û†Îœ¶t‰äR}B7pefèdVUl¼½·°yŸšl¬ ™¹Àº) Ë©Zž¹Ôà‘Ÿþ¬éž«f§ ²²+-•zªÍ¦õù×¹3OÓ=.O¤—b{³Ï¥c4¦¶›„™˜.=-¾Ñx5rÛ:½·ý”¥À‚Vu2®2U¯x'<£×ôRÞz ÷kÇqc>¦:ØŽêJ1“-*Ö.IOh¸t×¥?@äš3Ýö£˜ÀN>ÆÁÁ¸áÛ0C ¯Sð¾¢0j±Áî¤r}Øø+í¸ö˺2ÒaÜPß‚þ‹7°‹Ÿ“¾¤Ñª—ŽW°j 3\K[©˜~–ЯwÛÞ½Áúö‹b8åüÕ}`4<£ ¯Á hQœyjüYç§êq.ïù,5uPeÖˆÓtA¿ŒÐ-1»øI)æ…V]+óñJnMûÆx5ªEåv%%Õê—zôC •ÅÑþj8 Ò²G9vªÇO\oû0+\©#{’Ä˾p-ÄwR=´=#X` "5Ó¸-»q]ºg6¯ÁüQB ÎcðçœôJ¨¹áþÆuŒÕ9!¾zë aDÍéðÔ½¾osú.Dz,ßþà:´` l‘¦ÐdÄwé^° ŒÅÉMšáVÁ±æcÍs<Ð-0Õ5ëîëí^³½ úr­ÚU6ÂÊ·J/cah¥oð7(` <Ž‘Nö{—ÞRä ç™™ëÙj´»næ̲H‹¿âœcnƒZ˜Ì÷\z.ŒÐ}2¼ÓuW<ú ÷ÙpÅ®»š™éïø;ØøRZMá¶ÈD.= =H6^לW›A+ز˜Î£šAÐðwÊßð®P—+°Fç„,øÂíûáë®– ¯»^ØÜOJ ƒèi©ˆïžHÒoé¸ôÝØe·å íTUVB0=Ùl*®(Ø>Ž9èËàPåïpèêÁƒ‘ºÛTGÂQÚqe/ß_ÓºÕ5Ò§úq”F°ƒ „“>§qcæ B-vae<âQeÔYbo"I3}qÕØGô¾m8´ ŽÌ­ µw?A¨·D¶nÔŽÃܧ¸Ææ®ÇC*Œ>Jôm(þþ6¥…H‹ËiÜ™™.ìèðB2c  3 H+I1÷9èzÚ ¶ =òʨŸhr ´¨]v¹wì hÑÖÔ÷Â!€*èE9è_"f¢t­çG%;¡K÷†Ý*eK:²s—ŸËâN£sY=|¶ÂyÖRõ„pÈhÝFÀ_/áûaV¤Úª†ÏÊWáÄk,²Á¥tAaèD+ÁìLšKo2µ¾{¢XÍÔž¶ù$黃¸víPÎAïÃŽ®èêØ-1£‡7Î ­ " E§Aª•òY ŒrB¨“¡Ñ÷ Ÿ@awI4÷Q‘ƒUú¦‚0žhL’÷Ü£úæÝMÏú}ƒ¯Î=ä {ÍTቈ3®µ57è`úJkÄBÊ!°@ݪšsVL'^ #KìÒŸ"ô­gNdOö]v•¿(ITöû)èÆÍ÷ 'Ç£–lìl@•ƒ¥¢?AêÒãÒPNUÀ5à=vBü'«9è:HCÇK°s°jú@&téÉÛÓ’=¯µ¬µ˜¥Ä«çûw„§hÛã8è~zZ‘(fôR)éOÈKûxÓkmH³ª;š»ÃÀyw¤cqt¿ý2BÿIÛðOh—$*K°ò á¼ùµžÍ$Ø @ß"o®5rÚ“‰ÒÔ Ý,ÐC Ñ·Ÿ‰w Î8'£òÏØLîÒãZ¶zZë„[ Ðò]ÕÌA÷kÐÕ­ª‡ÄV‚îKR;#.½v€À3ÙpXß¾¹t·-zé_ · ¼Q$ˆï¦ð®ºô|²3¶æ¡ÂéÞ¨úP+C›W£f͘dìÌûÒª±9èšÅÂpöòЫš–I¤¢D+àÝ€K¿œ‡½Qu±(–0³¬¾+IÈ06oÙ>E¢ùØÿ@·Á Àeþ:¸„žÝ šq¢ð.“»tÐÑâ•%‚²QdG$¶6ÉhÀpyŦfºfN8{é+8äU±úNôà,¼; ð.ÏöÐjë0´Ÿ-‡Ú['<èðmcôF”S•-’ŒA)%\ žÜ¥s3`Ê Þôç=r]Pl,´Åöë 'Ç£m$ê€VÂE£.½èA—¢A¾h-) ÐËUq¹]3¿£«Q°‰b&É\Ó)†Îä¬âÒÉ'”;ªóN0_›(f¶±Òšç']0>ÚØ7¹™ƒÀÄ`=­(# Žq”ÞAä,á‚‘èéV¶î‘:Crõ‚Ðäðð tÅ¿¿¾æú÷üôËuTÇf: ï]:xš×èêCË`¥5Ë7Õ™÷Ù\¥ßРËk"´‰8ËK™}ÐC Ñs²à8Uáý•[ä0äÒÔêÏOõð Í‹%in ƒþ‘ÂøÕ…-Э#Á4èjlAj&Õ&SQxWl­2‰zC¹›™(Ƴ¢àbE {ô?Aë(53zø«® , · ø䲃)IJG†Q—Þ±Ãk_¢X‹ç€²æÉô…ÝŠ®W|:oèÓsд{$Êq€ž¤”a—Z¼õ&|ÍN ÜÍŒ%ž_DéÁ¯.@Ð#b»{n쯣M ö ‘r=I)ã.= ålóÚ·hc¦ïÞ$êK½¯·šVŽ.è¶Ý/'ÚüôgèÒ<"å8MRŠÒ|¬âÒ Í1…y”«é}ÆÂ>—©3{”ç—ÙçO °AwZÂݯÂ-N?}BUDÊq€ZeÍ¥ß6tbQˆ—7§‘]ÝÐÿ[uÔžÛ^»ÖÿÈ»Œ úFØùö®÷)Š# ¿eezºsUÞÝ–ÅÄ€sw+°QW\…Šü”5žˆJs  ˜ˆx"êAP1jT$P@E<ƒ¿>+¬òï¹OKýàÌvÏÛÛ»O•Ö|™™Þ¥Ÿ}ßî~Ÿç½z¤¿¥ÑÝù´§†dYÚ_ºãÁjÌi7¤sÇÑt’~  }Œmk#¢Ï‰Ö—UÔBmÅ2}áˆûè—i•;tb°ÙéÜÑRRŽrÁÃè»|3ŒˆOêºnþ{ *½‡æ»- [Œ¶.œ¿Ó• BúÃ[<ówß…qƒNÈËã“ù;Ùîâ0!:l‰ Ð<*~ (Aô”ÒVÕÚ [0!=––4ñK~¶Zª­áXhÔÀªnºÃ‚èqW_< LjnØÌì±&lAÄÍFîøŠˆÕ_J§áúIÓ¾ð\Û¨7Bô :l¦÷]Ö:¶¢Kd°!ýJsøÓèTV‘ìs¼:O„aö=Æ2F#D ¢lÃEé†KdCH†tê1(ŸÂþqËP‹è_¿Eˆn°Y¥•8}Ø‚é±5,:-¿„é¶{j]W®S˳àœD‡|™ÖDéÅH}Ø‚éâ0BÒoÈm4U[.huv>Q„è_˜øQŸ¿öÚåÿþq‘ÿEˆn°´¬ÆZÌ:ŠžƒéM+zE ìt±fží8úy¸Î¼öwßÃX•[ ¢›¨X8÷[ó"îSý÷ª½—æ»-v[  ™1¬œ-è>Ä­±ÃK+õ‘ºcROtÃuFŒ¤ÿIó¨Cô¹ÑŸÍ^½µR¢ ¶BkÝ ô±>¤?WÐ!Ý»"ð‘!‘x¤ Gw™:V¯_ ¢Ï{NÀO¢T!º¡`«†R7kÕžº"iPÜð&ʾpE•gq³Dî»@ Øœ£±PC*-î#¹;Øb¼~=ÈGˆ,ó¨#é7\aJôzÆ<]¡Oô¹ú{³W_èß+CtÃ"2­Òrî¾mÃZ•I»ñn¢¥Nr÷÷þÚÞøÏwlú%ô‰þ¾pí–Zx¿b™ýX¢{óiX5””¥óé 6 žoâ¸Ì4®íÃuâon¾Ow„2ÑáÏÑ£.ƒ2D7z°Á‹f°€)K‡ëBúŽì$±;r>IówWcŠ–'ølSƒ?„‰[¾Ÿ ùüƒBD¢IÞ­éÍ`1eé\BzêfšWà·fþpLÒ˜¾.ïŠà7Œn“ÑsÊR­»ëƒ?ýSí0Ñl6rwG“¥sY¥7•Ðs‡¸§’XôèR —:›Cšèq?_ûüÚϵJbé˜ YV–]Œa>rY¥7=Ø!rŒ§×[k>¯"šWŸ÷‡"Ñ]ŸÏ7—èó~u©Dôût3rwË™fžÍˆÜﳘ”Ùú﹄¿¤±Œ›!Hô·ÿqãÊÀ:}­JD¤ô®Ü±h†ÏÆ»(¬‘ÓºQÓ'Š~Iñ¸Í£$¢ÿ¦G½gxºÇý5JÿN!¢»KèÃ@îži5wwŸA+šáÒìË;Ð’5!åþû‰'~+‹Ï›%î"úFý™fí²þ©BD‡³t…­Ü};Û†åûËK—^BÄ2ý›LbÕ|Ó!ìÎktl­¾©^Ó)%° P ,˜î¥PD†­Þ‡X4Ã+¤·&qoŸþÒ†³–@˜£1¬ÞœvˆýÉÿ/WF«DôÔ$º×NînÍ`íªò é{“@¢Ñ5î !¢/š÷¬ëZܼE*ÝtŸ°“»{Ðœf!O¿t‡–5rŠÚÊ×T;ó¢ó{nŸ ¢ïÔÍ^=ÒßRŠè†û„ÜÆÑœf$v{-ŠHúI ¦®kN~‹Vß-?ÑçDëË*j¡¶b™¾pŽRDßAéG¶r÷fÆÐÎI¯p 锶 ÿ¹:ZDdìÔ–pPÓÛ“wg`±>-=ÑáéB]×ÍOA)¢C,=g+w‡>¼M–Ä ú¥¿„/4vx®%c2zGºnt²ô¨kñb·üD‡-ñQ†v-~ (FôtìÔÌÀÆÐœø…ô‡”žuhÐ…r;Å:„ó«ï¹e&:@ÜÕÇWãèû)m²•»#¶g2ú¥ó éçh¶3缾̬_„èŒuÜ‘™èJŠZ`¶8ÎVî>Êƺå%º¢¢gé-{¹»7ƒíR ¤;†´±ÊLùBzž¶´ÜÙ76w›¹{”DWTÔbÀ,Ž³á3p Ï<ŽgHw ®­ª\VåjK1òŒK¬ªÛ-ÑUµHM¢CViÙg&ð›ŒXéù=m0¶×±‘ûŽ×H•ÀêG)J¸Ä˜s³'"j1`Çr÷2ëw"ÖÁBµ¶”Ÿ¥i/¥ø1BŠŽBSžóÒ]YQ‹šïµ—»O#ÖÁr éF —A‡^XFHQ„çÏà¿äÀq[DÔb '›¶‚ w@­ƒåÒS÷•496òɲ%²Ñ-!7oΛGë¸) ÑÕµ¸E€ÞL€[›°†ç*2íÀ'.Õ>\Žòæâ¾Ó¥!ºº¢ïзћ)Íú­ˆbãj-fUó¼&}½DKõÆí0Ò«›ä‰èêŠZ Ü5¨…YÄFB9Åšü0Òð}âGƒ !•5ò0}]9êû½U­h"¢–mUá$YoãÖzîd0–áÑãMüN×ÿ¹qæ2^I¢›¢>=C IDATt˜°c?«V…@H}v<,Eù8¾JR)g³e,xGû ºþ ”$úŒ(Ýžý„¡V­Ç›‡µ<%ÚgéÓ/$"Çö{‚\*à]¶½hÞ„èzjý¡!J·g?avÁÆk–Ù¨i–­Ù4g=R81!³úµÛÙXº=Œu^£;D¢7Ý¡Æ–„  Šõá}kµ\rovvæ\˜Do¶|QÓŽHÄô'}¶•’¢¿£Û¢a?a+œÜc¬mäËc´Ý;¸s*ìI'eÈ»r®‹ZÌ!™èñ‹9ÇüS^D÷ÝËÆ/@Q¢ß§›Á®„ ×€BPHÇEázB2±?Õîr ¿™Õ,£ÍÏŸèºþç—vä%ºi(eSÂÐh@!*¤ÿ½sŠâÊâøÙGßÛ [1i©ÙÌŒ "†E†—+ ‹€†·ÛµË,ÐëX(¶ED[ôB¥ƒRÉáÑ3µ‰„o…4jñš‡Du’­2϶3¼º«Làwr4{ÐßÂx¡ÃeŒ ¢­ º6v¿†Èb/?—>dץǥQܺ ^0I›­¾uŸéýÁ®iiBÐ/ã˜G;—c€1x®uA×Æîˆl+ªþIJK2èU¹–d’6›‚£rËò—åA߀ï( ÃF¼Ü ûÆîÐBæ(ÅÖù\¹ÂU°¼¶Ô ÂÅÒÖ¬AÉ tȲ0è¾"lÄ[éŠóó7ìî~›à ê‰’´×­¶«–aL¬ëÛ¬ º=r ôõv ƒ®Ý‰·Òa—´‚a—^Nw¹Ï+rãé.&~SÁ1haÐl;5ÐÏÙò­ º6v'ÝJgÜ¥»Œò”oAu­Ò,sõ•§DÐÄ• ”ò‡Lz^í=¶GXtmݽ eº›0íÒih º“fi»íyl’]\ýV}؆7Üø×Eb[±•A×Æî¤YéOXÖg‚Ýt«9$=ë3OãÍ<åfc"y¬ :̉Ò2Zl¿Kƒ®ÝI³ÒYwéV«æ0 µÉVÐ@‡áÕ ^Ìcš‹ÁÚ kc÷¶lÔEإdzìÒ)Us0±ÑP£ñ¨WñXt¯§ž£}CìA×ÆîPƒH Ë–°ìÒ)UsÔÞ¬ë&jÂrW6B÷ ¿ì à8-[ô€\–Å«­ º6voD „Û7l»t:ÕÕ'Š7S#î©Í6¾„SÜ1š'KÐ[Sý¯^$bkƒî»+»ÅÕyè,—]:uëçô,±è ©š±/¸ÉXÉØ«åË,:ÖHO½â§[tïØ]ñ™{hˆð™véÔ|"HO~j¾¶Ü›]sÂÒ zÎ_ê=ü7ãæMÝç3í‘ÖbÛ¥Só‰W’ Ûr#B(\…U/èÑ ¼¤`ܺ‘ê ™tg½øL9¶Çc°¥Só‰4¹î¯!ME"×îòmÖb¯àD¶íˆ˃®yD*1–¤!–l»ô!7ŽþU4]sî1¼ÖÃCA‘-:È'1þÇ0í2è×ÔÚLIXo‘y—¾*ƒž©Ô˜JŠŠ>5gÇžWk\ºº«Ÿ¸…×ÚGÿ'‡èP¯Ôf8Cî'Î4<Žª©ÔØgžXtØŒm:¡ì[†]M>ÝgÐÇ«¨Úp¢•«©Žë™ø¾’»ÑP;i—Î4‰-.M¡~‘µóLã.5Q-Œ+»p zpðë©(ªÐòÕ¶]ú ‘CŸô¾&s¶j¹»Úè+®²è‹¦Èò Ã€xH9Í°ÎK§í@ÁƒÚÝÆÍÕGeîA7T&ýmßØ=³¥wé ai;Pð Fçê#‚pDƒÎèM¢X¨u,ǽÇÔ–²EÀrFÅa“¶m¹qÈ0IÙKz%ï /Xp#pE.ã~ô-4éXŽS avéºc: &›•tïg5µÛÜ®3³[Œ{gÒŠ\€Þ'V¨až:–ãª>dY‰M.ÊŒ¸NÉ€Xá4uïªm‡P×ìãF'­È…è%E¢r—<:>gY\Õ€tUí7•uÈÜm¼Ë;W¿mÌ¥r<2Ç ‡â K< tDÇ)]:ÃzéôÓUyQo‹QÅË„#q–=zÇŽPýº˜¼V9Þ$_ŽSê¥?a÷ôÓUy‘ÜmüiA(‹µ èçBbŽk“}6*í¤eØ@­—¾„á#t¹FÕ [{±Ðô¸·¹kºh_c¿##. :W Ã>1K=®!§tn—â³{‚œ ÃÊüö™xíݯölDl8ûa”I7Ù ¿R‡Å¢&å˜Bì§véß3|„r[|*Íh:3Q÷kˆ=ƒ¸WôW*©B-·¨xÇ‘ÇW]’âb÷GiLŸ¨¦zÑüƒwèT¿²©/QzÆ…Açt¿í3Ü&.å༟—þÀð Émñ)}/p¢L·;…®AE¹PšКuôd#ò*½_IÒ—ìžÁ•Îm™,yKB-T{õÝB®—Ý©ÙO@Žiç_¤¯>Ã~Áa¤'qS¨÷ÜlpÓíÒ÷ä–rzôD¥† èðL¬Wƒ;{‰+«zõƒ$=`Ø}•Ûâ¾W$ò@:lQ£«éE›.R‰’ñÄË/ì‰'—Nyÿ 8}¯–Â&»õ”üÙ*meø #-Íœ"'¤+Zçn¸×*: ¿lŶÈ(5:yl‰yü^I·P¹eÉIúá3Ð/Å8t¯÷s:B+i†Ì]-]Æè§h¦Ÿø#~ãìlÆ­±ßßù½O¬HWGz:ü'¾–N0LïZæ0²DXÓÅküôrÕgÝnšy¬åB†‡'Ð_[Åئs‰ý×Mxÿ¯v_ ûSØôøO|)Iß1|ˆ~úu[¸•¬vں霽ÒKºleÐÿ…¯¨Ç?ãù~«Ë¾Éèp@‰ê xø^:Ï°„‘°œjµôR9ñÑŽÓ–îÑßÀ¿U›qTàÛÿÆ¿ÚÈ蟊E%ê‹5:¢¤lk.«éú@!W ŸAº¾Ç¹Ððõ˜Šq@=Æa[ÂbÞ@÷‡ÁB#ÊÖ±@»DZQÅî! „õi.Ô]ÛBqQîhŽUA·áÍê1ãñÊ.rþ'ð:\ÐÂ`×å!&%l}" „UÕT/&§sØëuÞ¥‚{¹cТ /Ä£“^xµÿ¦}ôwŠh5ÕßÞ«o‡±©”«\è7ô‚Mó~trz j¸Iaþ˜ \µ&èöi@_•¸izÐß53èca°úvتV05•28–W5æ!rß°ÿó=Û!¤Yô¨i†î ð þ†î𳯒ƒÎ6ØÎ4]U.Ž…9žYÕwÏP •ó,ã ôá9u»iæÏå{gãŠR1~©½õÈ·ÓÆèME¢oaIß[ÛtÕ r„ðÈÏ 9å½½6eXL¯z]«üZl‹ˆžé“ °Ïz3Žñ¿5? €v”'Ð!KÜç{±F—ÑW’tœáSJc ¾äaÞÖÞÇt!wð·Û<ƒ..@ ã…v —1.˜‰ô¸Y=ÎÅüo]±û„±Ýþ.W ûÝ`õå°)éª,s[*Â6ƒ/¹v@L>È#çò–3 äe;^©4¡l _Æ1v.Ç/bðÜ™NŠ£”!»<9–Ç¡;¤Wˆ}¾¿¿®6øÛÜ–«B®ÑöF%>]ÕFa£mÐ!”rú|@Ý ëò™><l‚è“8_.>zóÏ m¥ÃYE[€unË*££f”ïÈB'ð¬î¼š® ƪ{ÒÊ8=&4Ð!?j¦§&`ÛúõKå?‘x5× ú·Ò3W¢³:ÎóY¼t‰ácœ68jÆêEˆÜê{¹d@·GŽ¾Þ>ã§㉘+¾½5ÞAÛJ‡{H—ÑiÅGìÃð¨·ÞÄ/é]5ôàÍz‚m§ú9[>Å2èã[émÙ¨QÇyž° „Ý/8ö0¸ì@ÑuŽùhS¿Ù;ƒ¸»ÞQºÇÔ G(ý²zl3Ž-ÐǶÒáìûS“WÇÏÔyÏy_ut}—‰%1ˆ *²¢Æ㥠rS …Þ…ªã]é¶Þ@q•V…T«-ÅŠÖR)e‹ÕÖ®—îÎX§ÎìŒϾo®/ë…„“ä9ä¼ßÒÐÁã{ŽùäÜžçûTÑë;ZŠM­£ °v\,®lç³a—Ó¹ÂË%‚½eÐû dí­Ý¤`Ý$b(à taU„îÓ¥3—b;(ÄÒkƯÊâqºã6ƹ‘ ¡)-q£ý}j‚/ÞÅ0qz +2hÆô•4û(à”ã5SyùÄ8É{\‘;”³B$³…׿j®‚yÒþÄèé«Å·½ïöPÍ ÓP“wÝk†R¶¡®ñúèá%µ¤Î¿íbtÔì_}Ê™t!S%é1`?bî5gÊÅΪ²È4µ´†QЧ½›bô>QôsSÃFÍœZ•£;@ß“1Ï©"¡ÕÂ$è„Lúc>¯  ÞÕÒªnš†>‡šÙ!aêw?}Äã|³Þ3¡ƒ´A!¶w !ƒ¾?”)Rùýª?³¹©œf íãÀÓ.Å>/rçv6Ѷñ­q…EБùÖ&!†w¯$sze†??cK• ‰éƒ­ÒÀŽlHL÷’~ìFaÜ€Þ‰±sm#¥1Hë0.õÅ”BÒ>}Æèèˆ?³Ý¡¨–®ê¤4û7ÀŽœŽ}bzü©ÚVOzl®•Ôæ9S¹©¦ªQ~`åÙE‹¶ÃzÍ$¦Ç£do9V[e; -¥l‚¾h:Ÿ ›jÅfßÛ**ó8× `etòŠ­ûf\á~;]t›õbÁþ1{ ožþ!$gW? £·}õêÀ¸ê;c›ôìÛ Ôß½O'ÐÛncì¢j!«D0æ±úóïÕ zÒÄÑ} VA/Ìý³‘‹ò÷3 ôŠí[¨+6å;îˆè«|/+øöÎvºNõ¶$3ú,Õîmæds´ˆUЕÏè=ßÛvŒéÖk?^±Y½Ÿ•QlŽÃ»£ÜÕ#³ýˆaÌ,™þ<Ä*èè„ßhÉõ”v9½bSI?ž‡ w91®§!Ý’Å èOûc3fÌ‚®9Ž£LmaáŠM¯˜Qµ»œÙ4y¬­B¯•Ðc%fAWã|³mj‹zÅv°'¥FØ,¶ô>SÜ¡~Ø“ÑÕ36ÜÏ B‘ôY³n©/q9£® ÇÙp¹Ð—’ô_À¾ -ÆÑ%ñRü‘îQ&Îv õ»:!óÔ¸œÑѱÀq\u6•Å»¢mÒÀÍ*\›omäÏŠ7 )›õž±­²¢œ¶ èsæEwhØ=è§zJ] kìƒõÒßû²Aj`GóæŒü¸ß­w¹=6%r8“BƒP’ºªUßÇf`ؽru0Íò.õ”þ4ûsÀÎè!ï±Sy]gGÈ¿œeì5P kÅïÒ5‹µ¦ˆMé¦3Ò6Àó8èwžT±3tÒK‹"þ/:è›ÿrökU›Öî&ü‚þHó#7¥ÿ"I?v8äÝ«ÆKû8½ÌVžzz„l©‘¡@ŸŸ¦9ŽãttÏ_Y¡ÃtÎϪ–žÇY— ­à:C¬åtŸ:ª†aBdC}I˜ð”|·kbY±—cÐÅ•û"7¥?Ü × Bh~Ƹ/«†îbœª‰ð©Ó×­±ýòO„æ®A(u…úŽ[ÐÓ+ÄËš)r—|' EàHù«9}Ëܽ ²¡¨4æ Ò”—™)Êd¾(eÇ £'bEzä¦tÓÐø¸,\Þ+ÓGr´{Öî=!kÜa\¨CÈ '*“9šF>T^×Ìåô}A;ØHLéŸI ùª×Y8ãPM߶þ=Ü»!æ §©3úßÈ åu-χq#Þ#1¥Ãæ«žbáJE¿^ãy9º “—Ä;èÇ59lªÇûaÚa“[²˜ÉW=&rK:B‡=÷ê†^³eï„Ó–¨‚>ï%ñ:šÌaCe™¸“¶½‡°—éƒÐþq~-¼'Vð½Ww81.åñ®eÐ(,*èúý%5Š+ƒ‘\6ìl£mp'èeºu9´\€ôË7ùÙncüšMäLX ÷O]‡’7ë {rØšƒÛ«Û”õÒ‘ç2ý‹ípýù°dº®ÿS‡'ßåð…¶H6èë>Qw熉ftµhKeà‡=áؽFGgKûsZ(Ñýã˜R'Æõ¯úT,nˆ.èÓII$è !+Ì:è•A—H$×cu‹'¥ÙGáú³Ô.üÊÌà>ªm6qú}e ÿª³ŸAèµDô+$éÁÞ%¡?“È_uе.‘ŸþvêÝlfúyÁXÊÊØ6Šâttßí¹Í鹄·ö c‰Yôµª¯Œ :ÚH–è £C+ÅÆàO.\Oò‹$}× p}ÕÍ¢xSÝ«6'®·ø? -K£zRòŽrtÐÕ+ß{ÁšœØFÝâ;ÒÖßàúSc˜Ü'3éˆ{åP¢é %Cw˜™}M¢º§›&ƒºg–Ѷøþ{Ò5Àk«n6æ:îz<ÊÚ´+.ydžè€>×°×úECŽ:4 S)„~-»˜·@OnaYU8Ӝ٠ÂuK4@ŸHVyAOÞO&ê +º© šQM¥è×WË@m¥Jnñ¨ûR¡ŽwPnŒ5vF–!¬ïåAï7µ·v“‚u“ˆ¡@]‘©V4£¦«R綨eÏÁuH.fë2½V¼¡“®Q—ÛÕ¤þwK™wí¾`  £© ¾ŒÃd¤ƒ®êßb†æƒx×uQ7ù£$} סR»0ÀÐø6fh’uùÕT—{§)ì?Fd\ÿª¹ æIû ºG Wkë{—eÒÂ"tNzpñ> ØKà‹u®_R[.ƹs¹¼¬ˆƒ®(uþÅhwcŽ.‹ ƒ?E"V]¼/ƒë¥„ËtÏW©6ó 9†]ž]¢¬ •­Öȃî›Ú§è {T˜¡54”Ëq95%&eñþ3\˜ºL×õfU9]¶êV!´*÷¡þ|΄ |îæ]‰DÝ«KÚ8XtT?ÏPt Ôƒ‚½Ëôô«}:Ó¯c<,ï°/°F ôuõ.çêû+9|—M¡G#â`Õ›Nê¨Õƒpñ~j¹ÐËÖß3òu¨_%¹½³¾IÙ¥ç9äÈ€þa I\3I!ÝŒRÏ*įЯ×ü:6â\¸‹¾n òt\¼3—™^X+fש~ƒ:ê²ï¶åEô¯Éî~÷4òbóBÒþÇÞÙ?Eq¤q¼ïe¦{Ê«\Ü£8ØQ‰©.'/ÅK© Pà*"à¢T •`ôD‚„€‚…h|ooν"¬×xÜyïVV&HuG1Ãå5 «j®r´kΠ'z¢ÿ“n[M¯Ÿ è/•Å|=@™¹s/m¼/OSFäºÇå¸ùþJ>[ö?å5õ~豋=ûpét1MÜjôÚb wú¥¶ðòqŸÏý¤°a3×äh»ˆzéºÍtêMK]HéÁeA÷—_j ¯5S&À}2æ—y—¯¬”×ésÒ€NŒí®hQÐ[Y¡oê´lÌ{†]ªHX¯&Ùð¦¾A²™j|š(A.6r4auB±gÈvŸ;˜o ÊXÐãô ]ôËVå‰é_ 8ë Èj32••šù…:ÈŠWN~%Þ OÅÆ«Íì‚3UIӣɇô1Œ›1ô5Qú…÷ ˜ñÕæhôy+&‹÷],yC®46”9 c“ÅW)Õņ|ß_Pû™ðR‘€uÞeKc›Q9îÈ!èPŠñ+@Ák?WÌý¬õ½Úþ$°1UÚgS<ÜpM9`ÑÃ@O‚î7ËûOébBÞIh“¦%e¹„ by)ã@7U<òmÄFŽ§¦6¨.)w‚¨¡€)ýœ˜ø8žÝr÷ Ÿ:]bJÜ# '­ñÞÆ ±‚.Ô^:®na÷>×}lÒïÎÌQŽð"èLéýª€FÊnýU[çcsï RÞîò– ‘CÐe˜ÒÉf] Iõ±áÎ;‚Ž ¿zJ¯ÍQ?Îãcƒ+B;ï:‚þš)ý¶š}Wĉ¿×´Ý`£ª”ÕxçÆNKGŒ ›=¥„ÇñMã"œéä–V—Ç6"oÂj3cY©ˆ0‚n²ÃãHŸ gzý€Ö[5ªYV OÄòRºé Lbó8ÓûDœùÔíœñnWNËzˇ‹/"ºÙz—N*Æ…&ä[ÈPØJZ‚‚ #è>Sz€%y7[=+âÌúI­î>Ô°­•±Î; A\3úUs뎚'"–”.Ómö×´ûÕÔ öUFÐMUª‹ úÉL ËËÍ,ׄÔMš:X1Ö‡EÐMÕ°w".t™n[§%H{Ó›]A† A7TIm[Ü:#¦¬”g™æMߦ—÷®7Ž"躹c… ÆÌ\u“SC.ÓIƒ¢TKüûÃfts¥úõKçº$Êxïô¦ÛŽ*)ùH ‚Ž OƒÞÉXAÆ;Ù ôž/}vKë0&®"èæi’MêÁÆ»FVhKz ÆU-qv‹çW¬ƒµ`Š ‚nš k5Êx¯ïÕJ Œ÷ÉÛ± ± P‚nœÚبn”ñ~¤N» e &I ÷(h{… §©B˜i‘™,(æ\,!wÈ®ÜúÎ7ãæ;‚n¢™+ð×/(æO5í¨Vì•H ‚Ž {Õ¢=Øw‚VIÒ.­ *½Å¶NY)»M›B¨ts4ÄŠ;~–&«MBN¾1.nfyŠrTò r­øŽ ›¥ò ÜB¾ÎSmÆ7³jCî€ä>6·9åbŽvÄA7Eì0È€üJP©HOC¶o¡Fv\ú"5 «Î èæ(©†µ«hR“3Åœ~©¦=™ŠP”`„‚nÚJ1(–ô ªó»!—!u A7¦VÊ IDATW“ÁQ3䶪îsö9Zo ÐÈå€ü÷ßÙ‰Ó:‚n‚Úƒ£fˆm³¨9¾!wè›ÌóØäïÒÔÆÚ0zA7A-ÁQ3¤6W-ãcãrPr]+•uÒ׊|ÂXÎéºñjtômáêæcãr€†V){(,×pa!öUFÐMÐ#æh:xS˜M¿¬ÕÚ„b¯–þþ`Ü ‚n†R]!²&úØJ´œ@Ëônl¦Œ #èÓ áb#çòÔÍ‚‚HïWiûbaóÝËôx+<ƒæf$A7Xz(Ù«ŠÊc#ába+ånéðBåG+"Ž ¬öB6|ôŒºãsAØ­iÇp™þ %²Â1dA7Xƒ}”¹JÇ…-Óy,,PS‹,ÓË'±ê ‚n¸œÅ¡Úw÷‰[¦ë—ÁªEæ[Á›NHê0®ÒtÃõ$¨ןÅ-ÓKzµª{`Ëôˆ‚Ž {׈“zÈeúׂ®p.êý´%‚Þ=ºŠá°º¡*`,ÄfPi“š\+è =uÚ.˜ræ|™¾ÁO¡•6"躑ja®àý8Û¹¡ãg¥ÇÒõûù)–þ)â@',L æ5{¯¨‹è·4m7Èð&å3«< =B«Îú½Ýý¿‡¾4ÔçÓëž×éžÈ;ÓCZŒ›Ô¼Ï…MV—Š½[iCŽ8°ºý—~ãyýˆ¾7sì:ýÈ»R§taäî,î¯êA$s\àÖ{ý. `Ø+Eȥƴ#èbôý½çu'š9öô7Þ­¹­”ÆGè¼øsè¥á¹<[ï%ûµº!†·!Å•¥"X†€žHëy]FéöÀÏæG¤éNHV¨Ìt®þl[ï{µ**r•v‹µSnNEÐç¬hºÓóO隀ң§MøH½1L$¬§†ÜMa—y0 Uß5E¹f¡ÇÑÎjšô¹j1}ðà ŸGç.Ñ·ÿÂWïîyKïô0c¡?¹©ª·…]æ~Ž–sb|Ç-Qêý…¦¬ø*‚>Gņýüu÷À¿ý÷ù¾Ú¶ê-½Óúd8ãݶY`Ô;9R“ʶh’’aÇÑî ÑîA3E…1Ý—}Hãž¾æß¾­¦»{Uèg¼—– t²‘SUÚéùEJQ¾…GŒAŸ£VÑÿxÁ¦ô™Ïá5‰ôƒ/HÄ‚Nž„5Þk“:Ùx*ÛD£UÜz4Ðÿ@ÿèyÝIã|ŽîŒ£ÓIƒÞx'}¹êx¦° ýX§õB¤§WÛ•+6k=’vAŸ½>¦Ÿx^Gÿâs¥8zý‰dÐ_a¼óü–2aîtòˆôE™°ÔyIJÊôÙŸ”Fq¤m¾!°ï'ÒÕûHdƒÎwÞÃeTìéN'HQìŸYéŒ16ZŽ ÏZïÑÕÛÉÂtU¼ûÍOïþËýç¯hÜšó^Ù"t=‹¹ÂmÝVÕïÄ]éáÒmÝJš¥êÂŽ9B—ÿAЖ–%ÒèãhÔ/ù›yt½{B¦3Ú± ó°™¶pŸÝ™³ EzÂZ«4jšVûEAŸ½xቸo¼¾5è[)‚>m+†K’´8Eúò•–r²EŒ°””Éj “°ÊIß$0;ŒôŒ4ë9Ùœ:‚.ø;å Sm†xgvô $ÆŸ^mWŽZËÉF&Ù Ž #èBÕÉXL¸Ï2›Ô¼»â.õ¼$F®AQF¬õL†Xø­AŸ:˜#l:Eí¸È`X9‘áòoke²¢?fŽTAªÔQ6î[e;œ¬æö‰»VO•–c~ÖªíŠb?`­‡Rð¶WAÐÍ×Õðr„œËU“‹%ÝüŒÿgï\~š|Ö8þnf2³íÊPÒ])¤H¤MJÚpI,—ß `bÀ B-¤\cƒˆˆášp×ÈBQ£X~' Àù‡N§zÎæüìå}ŸwpèóÝN'Óóܧh–Tü¥¡ô¼]t·ü~äð8,é‹ž«˜9#Òé·”;— ?‚Ž Cº„®ßçØ4mÉG»á;óðù#kHu•j>•ƒ]XtNérlšvKúé ·ÉŸ}Ç©^áL”±5AÔ$K7ßd¡‹’~7ÎmÒ·ø¨‚Ô+fi­²‚Ž CjüÒHoìå|_úïYÕJäüµ:‚){áïûØ’Ú‚%½o‡ó!éîçCõJ䮯ô+ÒH¹¬ÒH·ßæü³ì÷Ó-ý„Ì©GºuÓ #è`Š°~5ÝÒ­CœïôÉÞã{¢Ð;«ÿÕ \"è:˜biÝtA:dì]¼Ÿ>(½™mªKy‚±mA‡tÓÃi~¾$°rFÛ°Éoq±ÌÒ¯é£×0ˆ _ÂA–°§'²FNûÚÃ=²‹änN)6E.åçœ[tN“K÷ó-}¸ÞSïù*yE³Ê5¸\K!èW©‹tEï?I‡ìeÓÎV¸í¾lÒë•z”íªùtÈFt±àyº_÷Rïà‚wå'Ô‹ë•leÛfmAº6B¬3í\ñg^ê[\°ožóy¹i6ËLŠ¤·f0·t={M8X4í û¸”vNŒL%Ô%O’«©SlÚ{JåÑÀ$‚Ž i3}ÝŒfé î2È7lÒgQÔ4§z¤k×iº‚~ÕŠ±@z ±²™º WüÞ!=ø^¥&é:‚&{"C@Nkj¥ô²füÉŠôn6eIŸpM"è:„2ä´ö—”¶5.y·—óÏ}HzZ»&•ïúÕëµ#m#›pÔ?QÚ\ ¸¤½DvH΢(éµ v-žaDÐÿ½aé+ä’Zvþkû6Ùõ°Š’^¾zFÐt]dî—zÐE½ãk~ï<`Ê‚9=ÏA·FÓ·¬ x©o rѳ8ç%R‡Q$IÇqïzƒ®•f ½kÚ«Rê^†\TTÉõÞEÒ³ÑehAGÐ+b™v7SzÜiHLsÉŽº¨‘S±ÃE[U}4‚þ‡èµƒ%2Ub5µQÚ |O9ê÷%“®d×j‹‹±sA7®H€fê+³s—ùàjq’ô· AÏÛ³ˆe3”pÉK»¾€.{ßÆ{>JÜfÑ,!ï="{AGÐ [‡ÑLý-B(}’Óž®p^"Ñ|/Ú%dOÍ—¢Ê>È ÿA*/dŽÌå–"$× 9Zkœç|ðLÞ>Ålع›*žÐ*ËHAÐôLªíÌœNOrrä†0¥Y÷åšï–„L)x@ö$é-:‚nT#¡ô³ÞiÁí¨?õÈíg{AHýŒŠ'Qt¼‚þgéudñ¢ç«¤£þ²q5e¾Ç%ž+ uU AÏSù¬0‹FÂQͨ[ïÛ¸m_žz¯‚TßQõ¿ãˆAGÐ Ú†æÊ¢4òìnrÑãœïH«}·,3Ñ6V@ªo©yJAÖyŽ #èFIÿ‘ݯž”RÚ:ŽB{—x©ÿåTtêŒq°NA7v­fOze¥¥  «÷ qy—úRðBÉÜÄAAGÐ ’Íšt­ÌGÝÇ ±Úß+ò.õ™YBæŠðÈt$=ƒ7Sz8©OË ¿‹à{} 9‚ž·¤g;zÔrÔE»žƒ&ÚRžz\RNým©VõqWÈ #è$"r±låñCJžÁ^êÃ6ÎK¥ìU„äÆÔ<¦Næxƒ #è²Hoúä¦]G°—úâ çžu){½SGȇ›*žÒÈ "èº!Òsš]´©[÷{8Ÿ?•±×â)Uõò5¼Ñtƒ Å‹fk:vƒ{ê§óœ÷ìËÊYÞ+ì¨#èº1]0æʾù9u©/Á~‚uçñ¿eìõ^ÒQïWõ Îý:‚n@—Œfß+%/ᙇG „ì)i¾¿#躱¯Pˆ9r(þÀKéÀ ì‡x’´ßmæovfJYóAGÐ)|À—¹üAå±›º_vÃ~ŠõÎ=¦‡œ,o ˆSÑ29íÆh-‚Ž ëVK‚åÕo†·ßû¦{84ßUæûœš#¦‚,4 #èºU.¢º9M·”%í÷ÃØñí3ç|ÇôþUa¾7(9xf2È‚VA×-ëË)ÍöË~§­°#åR©6[É7³Í÷þ EÇQœ'FñFGÐh3³Yø¬•Ò.àúíkœóÓ£r¢xfŸgCÐóPþ`î‘[¥”z]uë†GИüÒCÑ^¢)õ¤ìµ:‚®ß,ìdl-G0U?s¸k÷Mwˆ¼Éµr÷ª ÙUòue-¸aEÐt½jq1æÊušx·pÕ›³êwEÍÊGs¿Í"&W­äKŒÑ\ú‹tÔÿYÍ1¦cšø«6Jil«ºvZ’D=¾nî×yÌI öL´•¯²@ ‚Ž ë× Frþ«“fJÝ/a ൳ۜóÁ¯¦¢^5KHƒŠ—zdMw݈&B¹;êšfÙ:xàZ¹'󦣞J´íámzÞ©V8ê¹GuÛËJ)õ}F}1…º©|U½¢—º¦ùcaA×í¨¯1¦gÆpÓ²7‰úóJP›–—:™S1üž`È,h]ME‚LWþ¦éÈ4ÔWÌL¶ O½ZÁœº¨|#èºnê2ß5­ò¹O í«‹°œÇĢ“)õ åF-:‚®_å1¦Ó,ü‰:´¯~öÙÆyÇ°y“åjv ©x{OAÏCó}M—¹\) ø®wÀɶoC=œ÷”˜7„FÊÕ)9ÚZ‹ #è†Ì÷ÂM7êî—À%4¢0–Ï›6ºøC)P1(wÁFËt]¯ìkæØÔ÷·M_J“¨·ÆöÝ_IeÛÌŠËݪ'ÄÙ¯\÷ê ÆZt]·ü!Æ¢:íÂö²CJéÀàζõÞT\®Ñœ [ú„Ô«f¿[/lAGÐõ«e”±PD/5[ÍIÔK—³mOoÛ„³¾hÎŽgö„ý®Ú#m¯7­:‚nDo‚Œê¶ —ÚÜ”úŽãr§ÃÂYï5É‚OÙï/Šðèô¼RØ•¼Ôõ†¯Ž}Ig½m¸a}#.,øiSFNYƪ ix¨œ«>2AÐtýමÔõgp*—K…³þ¥ öcý=Ÿ´àmóßÍ°Y‹ÿU¡ «~ƒ±˜AGÐõ_.žzR턳î;N·}öˆÚØ}3ªhªv )ØU«TNŒ ¹DÐt—úfòR† ü ÏÞu‰tp ÞžŠÁ›s­?Jºê”ʪ[L èº!O=ÊXðÒO•Ë"Ýæý<úlHæV¦OÁ=uËÕÃVu=¯ 1Vhè°,ˆ¼I×:ßùÞóRôÖIÈØ;»Ÿ´¶4ŒŸp“Iæ‚œœ8âEÓÆL2Á‘žTŒ¨‰ ŒAEÀšŒž$Õ ÇQ<(ˆhDŽŽŽ€ª4A+jô?Šhh›INÒ? š^µ7½˜¦i¯fÖÚZœÓzª{ ë¹iBÒ½·ß~ž÷}×^»´=ÝðCt :pFDˆ†é­ÀRnÀÆ\9êjý Y­7玣ŽðdW®¦?­ðËçß´ƒŽuÊ*–BJsi°õV² öñ6Î\F"<ê‡^î.¦ê• ‚ˆ`Ð1®tp:ÓÍïÐÖÉj½µÑøëÝ0«:êÐþÑ%cY FUúŒÕ92#¡Ç cZi©SO„žvh÷VÞŽöêÈŸƒº\¯} QOWç,ó0è˜UšfD^„ö/©^-/¬¯ÙÐvá9{¹° ß&ÜGŽzM?^‹A¿Fùý‘”ê+ôû^Jg–ëN´Ká¹AdÝ@¹L¬øštêÀï*„t,:’ÍæRŃ‘ìÂK·æê¶`k®ÙÒ×IÔK§Óe GJˆ21èXôKuþ2‚#±ƒ;å aÝE²Þ&˜CÇz ìÀn¦ÉÂؾl"ƒAÇ¢§!>@ÝFq(¶ÕK±Ž8ÃÇXŸt![ w¿®¿“_w>iO³aЯ°LK!šéCr¬{ëÌ® bÖá3n¬•Õ|ýÖj)ƒÁmaãýšˆ³¢€¨w~…”õ5_)Dus؇gMh÷ÐÙ›=UõšÕ4Yo2 1èX4QPÏCäêd½{sÌr‡éöS܃\8_g5 ¶ê°i$‹Á¸½X›ß‘‘r0èXtë@)tõ0²ÚÈ™[«Ü‰tÀΙ2“ëærTæ)?û’ÍB˜à{n¤ü7wí6aб裼~ÝuÛòV2ÄïX‘îJóÔ5 ì¬2ÿ‚îÜ­v˜àK×S¾Ï=4Vbбü’`€'ø(KÁz7U°cGÚ» ›Í±XÝÚg´Çnì&¸^.k¤åƵÿ `ЯI­¾²PÏ^A¹=¸!‹d™ù^5Ò{¨ƒ2ö¶íwöàK÷S¿ZçELt,ú¨›vêÒL´/ )R;Hc/îò!MñÜ=-Y±³š';hÞZ`cŽQÝŸâMxAÌð0èXô5¤Á|ña-Ny™â%¶ ÊçZëær’°— hÂ^2]P¿=֔ʳuŽAÇB¡¾a1,Ö ¨§9÷‚6*Å·ÊmA”ÎrùËb°Ó‰ñ즱Ûd„Oá%sœ#é< d°OH#È\äÞé*Ž:»å”ý‰KPñžñ‹7ènõÂ_5]r¿w ú5,Ö Á‹Œ¦,ÒPÆ`/îÚQëÂuö•6páÑ[É4¸eU¯¦ò›Û†ò–6 úµLð³R`ëŠØz¼³3óÛƒ‹öÐV.5yc=ôwL]p~pg³”d½=eY—Ùa :qWà³m"þJbú¼õVÕ cVH|n„Ö^ЪÈÑ«M¥™ ]¬\_¤X_MÍ Ÿ)"Ä2 :Z[Ï´ÎúÞඃ\¬½q#ˆ®jçŽ{T;žU6i>h¸0댪õTìÍ   iµž#ül8a§Pº}ÊÚ‹×N„ ù†Ö~1Úc¬×l6]‹}æ0è×[•óÙub)Ò—¸s@kVí$íȼ3àÊíΉѮ œ3ɳ{÷áxQø¸? vÞ|ƒŽ…PáC8p#²3ûy–ú Ó±VKò6tu;wê#íÍ*kê\¸ÚÕj8s˪ZïM±Å4óD^„‹AÇB©¡a)Éz$œØóÅÑ^!ß)°×#¤=–äs&æ@èË?ö?.¤Œ½=•ºs}àö;‹AÇB\® )Ö³ÂDïPoßövµR´sW[à8Oæ´ Ô´ÅjëÎõ<ýÂÿy£i¿*‹¬Ø{RfYÞ°ø+¬“^:c%üdl‹Ú'öä™­kq¯{æñwGÍdy€û—¹ûÝþÇdw.«j³å ¾ˆƒŽ§åCø4+!â…“qº¢à¶7Ú”‡ºF_M§˜»Y0‘óÁÝæ¹/¨ÝÙwVGoÇ`Og7Edt,ôêœçç%ÍØIé¬Î¸3Ë%Þ 7{çÄãÎ*[ÈõžüBƒëfïzuöÅþT¨Ù„Ô€AÇJHuh˜! vQö¬0i/TZ·w>„yP¼Ë½N·E³Žó$àñ«šc¸ç<\Ðxgñ~³irvFéÈjï%ÙWÄÆ c%Há#ÊØóv#Â$¾ù³hPmk쪈ãݱ¡¶£Ø¿¦aÜ¥œˆïÀßU~óÖxÃç}u„lÆ3²ªûk/qöÖ©çó0èX 4vÓl¶ˆ‚ýДÜ×üꂾ8Þ™];N÷ ýžzæÒÄóÞ6ýܧg×öQÝxFáè~OI:¿ƒŽu–d†a²=büðJg²Ï® Ø’ræiàÕvmäžî¹´þî2Ö)àÍ[{¡ŸEú›Ö£Öhß¼4o—ñ‡+1èX‰T¥a˜rvBjÌò’E·s'Þà™­ù‡oÛmWÒÄîþ@ C3ÙÝüxVY÷¤XüiâKzöG£´ß®koJ~K~ˆ Ä :V¢ ÅtÈSÖ¾43?Ä»”‹P’ÀÇ9<$z|ð½¶]^+PÅ9‡¼«¼õ4óÌŠ|àô;zûƒ¢ äûû¡ñ@‡Y3©šˆkÞQëîÚNž¿„Ô¿ªÙlo¹“(àMàþš‰AÇJ¶ú€¹gçEq'ÄÙúÕTà”ÒToÛv?=ðú|‰Üáµ9  ÛŸ—{îÓ©ƒ-6÷4ô1Ø¿~ýæÍwï¾ýutç§è?ýý·¿ùÝ?¾ýÅÏ0èWBœNÓÑÌ®4†;ô÷á#Ãre ]bÑ»»À Òý'©'í^Òü~€´œ‡|NÃÀ^ÀeÖøõe9§ã}ÔîOÞ¿ë×x\sã¡:ºeÎ…š ‰ý§2¾ùÕ×_ÿû>à_)É– }ïxþLä‘),K± ­×Y‚1ìóÿ¿¬‘_¾Ö%otx}Ðôƒƒ:åùu¡©gs.ÆÿöýÉIë“j+{ؽ0éÏÕš;û{S¡†ó¿–°”É»|Ðÿ”ñë~õýß2~¸qögô+Y¼/Ž†Kb"žø]ýìÑŠ0å§Üžä~ÛæàKÖÊ+˜ŸSE9ð}’~àü$þtEŸæ?š~ÿyóúõññóç''¬ÏªÀ¯Z@ú=®-ˆ?ðþ3ø&éÐeƒþ‡Œoþ þ¹ñ׌?žùýªüÑ,px¼4›™7 õÉRõÂÙEºÁ U ,¢L¿•y–ÿkðÐè…wÔV«}ТSÆn0¬ßªííißyõêÅ‹/_¾<¦Ð?ƒýÿ±sw¡Q¥gÇÏ&Âc$f<sÖÌ$Y'&]Û¡ŒøAÁD6´ …¨K’%wZ¼Hˆ±%K*ÁÏ‹Hi¡KÓ¤kRÛ®Qš(‚©[ E+ƒ)e]öªe¯öb·,•Rhoúžs&æÃãè„mòdýÿ\<“WÞy'ÿ÷œ3ùðNþoüÂÝ~üW_}ë­wß}ç_þá¯îpëÖÙmkï¬tèÓ2êJEÎ1BAîàO÷]¸;´óbÓÚ…¶5]¼yrh¸ìBŸÉ~ßfÍÏáusÖ?õ“_™ø¯]¿úöáC‡ŽÿîYùg¿uo» ?d¶·¯¾wýúµk7¾vãÆääHÉoó£o}ûÑ£—_~ôh6~¿~“ÿ÷^ùÒ3½òÙî.ðý_›mà÷f¸µü¡Ë&ï˜;ç¡¿pÉ»TvöÄÎò¦mkŸ`º7gû¡³wËÎ_:×0vûØÁÍÚŸÐŽïºý›“¿»¼çíæà«9®þ³ßÓ³à}7÷îݳgϧ¾?ýxÖV׿¿Ïnf Xtßÿ¯ÿ~–Ý~°ü¡Ç¥Ä;&DR¹ÆýE¾“?vúÜ¥ wÝê,¼ºŸßþ#Ëoîù›ëŸËzXÒÞ±R¤1סãqö·L÷eÃC'Nºåo[ûl41û€Ùvžì7·æâ`ïÞ]9® >úð/k?ôýgùCIfуà1BÇÓßÊ;Ö;Öp®ïÒù²;ÃgÝüo–_<Òtàyv€|l;0Ï‘åK·óstÓW~³¼ü÷Ïcïðç÷=+pFw¢vžzkñ|Í|Ž#çÉÿà¾ÞÞ±±³ ˜mà¼9ƒ›ùÐÐ9©Ÿt‹0…¹6¹å~ÞÛ‚ß4Öº^þÐí€Ëtû9/ÝÕ}O.V»¯xWëû¼k÷ÞÛc¾Ó õ-p>Ð…2íþ´oùC¯“{³o¼Íä#t¬”Íîÿ¿âùþ_ºª’-Þ1-Ñœc„¬âÐ;¤Û;n”–œc„¬âÐ Äv/ÏCó¿Ý5hŒÐUºU!õ)+2 u•æƒ© “OŒ:°úCOÄ%Ü»Àý Hö?1FèÀêÝû%ÑQÿëhÙÐŒ:ðý 4!€Ð  tBèŠÐB@è¡„΄B't€Ð  +BÐB@è t&:¡„Nè¡:@W„¼P¡××æÔ?ºF³Õ³«hgñ–¬]÷âæîfZ[è]WrO¸¸^õrרž]3‹·t»Çu/^înj VÙ%ÈÖÕÓ«W=»_fñ–¬¶•Å#tB'tÐ Ð Ð Ð Ð Ð å&tB't–›Ð Ð Å#tB'tÐ Ð Å#tB'tÐ Ð Ð Ð_àÐ×ëþ)œÕ³+I³xK6ÒÆâfúãNÍ@ò™cŠ¦—YwìúV¥³s½‹k]¼Ð•q;\´±Rçì’q'Ú®æ—ïÛ–Ö0ò^í Ùbgž1¦hz­Ž8Q‘•³sEŠ$®ôµTH¬3.RÒ8»LÔŒE%¦äWÂnû¹^ïÕ ]Š­®né©Ì=¦gzIGöwYÖ”#µÏÕ!*Bš^©Ä ,kÄV¹x¡Ni™±"ýVqÒ<*‹BWF¾%œ2‡ÊNiÍ9¦hz¥2ž­©Sáì\gœ°†Ðƒ¦—tœFñÆÎî%qfüÞï¯üò¥¶Ë¢Ð…‘·iÍn^9ÇMo\Žú—y"}³s?OwÇ6h=hz÷³7<‰Ú…³{]¶né_ñÕk³%ztaèŠÂÈÿÝÙäÓóžRИ¢éeÖû×um"•úfçÅTئ!ô éµH‰âϼŒÄÜS¦Õ¬àŒ~EÚ _XEaä-ž}á"©\cŠ¦7w ß©rváxµŠÐƒ_Ûd²°³®bDåìLáUƒV¨CìÄŠÏ/¶¬E¡+ #oañ¿”Q)Ò˜kLÑôfï6ÃÙKxe³ ÕË=KEèÓ ‰Ü³Å5­ñ3ÏJÔ{ïºw*ùúڢЅ‘·˜d=S4=ß`‘E4În‹¬±t„0½j‘hÏH$Ù/²^ãâ¥Jw*Ψ ]Qysæîèy>OÊà¸D'4.^Ò®I) =`z)É~åª{Åï{‚/Õ#Uw²Û4†î¬âÐ퀫[ÏÊÓ¦’h–hFåâUÉeKIèÓ3gôBïA£HBßâõKs¥ÿöK³ÆÐíU|é^gn(³ï/ÌäS4=÷Ó4.5gT.Þ”ÿ•¡L/“+þGÒú^Ú¸·Kšý(& CWFÞªd‹wLK4瘢院ғԹx2'£pñzfCËkêfg¶¡‚Ùâ'†®(Œ¼uH·wÜ(-9ÇMÏ*ˆÊøŒÒÅu|"ŽóšÂÅë–uþ[ Ô7;[ü/ûEb’Vº¢0–òTÜfBó¿«/hLÑôªãRߥvñ|*.݃¦wOì”7\¬pvÙo={(vDaèŠÂÈ_…Ô§¬È€Ô¹ï‚Lm˜|bLÝô %Ú8è )\<=¡M/4.»'¼lS8»tLJ;ޖ­–ªÐõ…‘·D\ÂÍQ±½›£"ÙÿʶéU‡çî‚S OQè¯mĊ⢠¤ Ù]‰‰mƤ;¤+t}aäÏýYúèhãüç³`LÛôÚDO苧'ôÀéuut†£-#Jg—Ù^ãD‹/ë¹±µ´†€gÚ*ÛY€Ð:B@è–f“tœ©ˆÚ»§BscÓRå?è–Ró÷ƒö'ÜÓŸ˜ }¶öévÉuq'Z5ÂRšCo·âñ˜¬™+}Bœ÷±¥À²DjŠjÌ_©ÀÐGl Õ‰·%кÔMXV:*Wæwû\–"Ë*‘°{¶ž´eCPèI[öw™ŽJ+‹ (=㧤nþ`±{h—û–UóÏÕ…2ú~i±üÿ¿‡Åô†>î#a9óx0åÄÌuzu8æÞ—G"Ù÷Ñ ÐãrÙû +&¬& 6ôBÿA§<èjô˜+ñ ÙdYýóºi«-mK`èÕ"»=Ž”°š€ÚЧgï˧ÚÄ3iYëÝó|±L™ñÐý3+ =!s¸Iô†Þï?è‘{s¡G¢’LÅÂÕ^αî‡éjs\z© }P¤‘Eô‡î_Ÿw9’œ7¼N6mñzŽØ²%;2úÿÚµcœ‚(ÃhL^‚ %›l!P`詬 ÚÆ ,ØcÁì=ƒ½%§ÀÐywX4Ê 6æûÈK¶™äOvfç:–‡ÉEÚ£ÿœ¶o‹Õ„ƆžOêßò÷xN¤ÏjÕ»ùyÜSÞ‡Ð?ëúj²NwjÊCàûÈž¬&46ô(«Ò÷ÙÉYÚ4ÏÇ©àA7oZ­I'Òw´CèEÄjÐÚ̆)ô—,^«7üE/Úšú4–ӪݿóU7ﻈÑüa³xþÞž¯#º£Èê›qïydéùÙÅ„æ†Þÿ˜w{óӻꛈ³úßÕ¬—ûÛj_CÜ^f½eñVßu/Ú£<+w:‡F‡n@è€Ð¡Bàú4áÝ`o•4IEND®B`‚metafor/man/figures/selmodel-preston.pdf0000644000176200001440000006567514465413173020150 0ustar liggesusers%PDF-1.4 %âãÏÓ\r 1 0 obj << /CreationDate (D:20230811130739) /ModDate (D:20230811130739) /Title (R Graphics Output) /Producer (R 4.3.1) /Creator (R) >> endobj 2 0 obj << /Type /Catalog /Pages 3 0 R >> endobj 7 0 obj << /Type /Page /Parent 3 0 R /Contents 8 0 R /Resources 4 0 R >> endobj 8 0 obj << /Length 23531 /Filter /FlateDecode >> stream xœ¥K³mËUœûçWì¦ÔàPïGö#ÛF7 ‚!. ¼%a„¾kŒÌœ{Ö@Æ\Ü@R²Ïʵ櫪fU}9òÇŸ~ä¿ûøßþëÇÿøèóûH³|Oé£UüWöÿß?üøñß>~ûíÿgÿñòËoéûšý#}¯Åþ³•ôñË?ù/ßÊ÷#ÿéÛŸÿÅGúø«oùãOÏÿýÝ·œÌè?›ÕœÚlßsýøÍ·óßé‘Ÿ&e\”Ùdÿ^($­Ò29d•:$­Rt«ú}û?ž°:²CJw^°ªßW‡l”üëÊ.g3¹¿ȱ ¥ýæuŽ²7ÈÙ$­ª}veYÕI«â²ÈÊÏÆ‘´J”nU¾o—V¿yUXüÈÕ`U¾÷ Ù [ƒ¤UµS·º¬ò‚¤•Ÿç5`•ù½Vùû gcÂ*óð'¬2wÉÊo†#Ý*}ßr—s›<§Îç´C6ûìNvÙM–Ù ¥Yý}™óÎnuä Íÿqq«# eƒLÒ­üž8²Âj}ïr@V;Ï»Áját«‰»îȉŸÑa5í,¸Ùÿ:`5pÚl£C.Èê?cÂjð{'¬:nï½`Õ¿÷Ù ý¢¹ªKŽö9 &Û÷Y!¤ß99%;-¦³t3}éÝ«ë ;?mÐîÇ»8§¿‚óiºA—Ií~çï7Óº,× ~Iÿ¾Á/É¿Á÷MNÝýú¹S6õ€îøüp¿£ó¢6¿ÎÛÁô‚nð›ð;§|R»ßü>“뿉GÏ´ûË\©Ï‰4Íï?—:wêaºŸ®­Ù…®ÒÍtC»gzAÃ/gø±=6í~§­óãÉ~ç4oj÷;—aR/hܹ¯ ‘2í~ OÎ ~Yß×àwžêM½  üºûµFÀô€®øûp¿vNÓ¢nÐ-S›_›:þ ¿ó-êüzä¿Áûõè:õy†Z;ÏÎpí­„i\ߣ‡é†g+oL'éfºòþ;zAóï~EŸÏð+ô/~ç|vêµûûÛï§Rݯîï{ShosñÞ³ÕÅûíèݵùÕ‰–3—?ݯG»ßø>ñ{ü†ÝöÐî×Ñ™^ПŸðk¼?ŽиÊ‚_åýUütÿ}~˜éŠß{®‡éŒæÊô€ÆóRÏõ0ø}çœÑŠÎÏÑ Ç>h~EÏ÷Ñí——L{ Ý ½·0í~Þ\›®ðëÖ^Cèÿ¿fãh÷«ú} ~L>'Òý Ÿ;ÑÐx¾Î…p¿s¿$j÷K|^Ž^ÐhÿÎ…5¿¼ÙžVïœÚ¹í7þýr¿£ñüÙ20^ÜÔç˜Æórn´bzè|cÓj¯Îš }ˆgº™VÿÒü*Ÿÿs£hßÑîWx?ãAi§[‰ºAóßø%ýûê~IíËÑÚÇ\Ù\Ó Ã Óæwšqþþæ~Gãù< û ðL»_g{o 4îï£Ý¯}¯ÒîWy?†ÉýNÿ(= qÿµ¿ÌçÝ>Ó‰÷FÓ<žmc=Ýx“¦ßix“éÉë}tƒFÿÛýÆ©g¼ö§gøuëö 4¾Ï:Ó Óîç§Úý ûgëh ñ<ô ¿Ìöº7ø%žÿ£´VL›ßÚìÿOGh~g,‰þ®{CTÏ@÷ÇéHtÔæw†±hߎv?Ž•òé¨Ý¯éx'üÔ¾[Goú<Ÿ•ÚýÔžÛ@aõùm«iÜ?GÓ‰ß&éèó’þæèfzñ÷½ ÑþÛÀÇôäñÛÀÈô¹^~>Ï@Êýôüí~×ûèó?*üÔþí~…×ï üÜ/cHkºA£}?ÚýÇ#gXi~g4ö÷hóÏñ ÷‹×óhó“ã£Ío >¿öÓ]¿g¯qüfFиv¿ªó»ì‡Woúõ8?¬šÎ:?ÛŒ:øN’Ïdè<©OÃZÏeÃón//¦ù>ñªSm¼'=¡1Þ°—,ÓƒçÛÞÐLw>Ÿözgº±=Æ«b=žo{)…Æù»ríjŽv¿ÌþÇ.´éÄöeú¨¿žf`IOhú ÷kêïìF2=õû†ûf‹¿o¯³¿œ~]Ç»àw~æ¦v¿Êöáèó"PŸñϹñ«éÌñÅÑÓô9Í~þ—7l¦ý-Éô¹Ñëéfp¿m~UÏÿyÐÌïtkm~§DûzÔ ûÅ\Ó|92í~~››®ðãd€i÷Óød5ø¶/G»_f{´ûñ56Ÿ†ÆüÊæõ9ÚüžñÇòfçsùƒ]Ïxï#Ëßëo`|p6÷Óxõh÷k¼¿OÃè~•ã?k(¡ñü}NL=ã ôO§a­¦³Žÿ\Ó‰ÇâóÁzÆ8þíQÓm~gü€çù4ìæwÆ 8þ£Í/ë~:ûu¶G»_ãxhø5ÿ®ð;ÿ5¨Ý¯°¿Ú ~s9¦Ý/ñøÞÐ8þÓ‘™_Ú<þ£Í/-Ž§NGh~IãëMŽ¯¶ßX¦Ñ¾ï ?¶A»_ãûâéˆÝÏ_› Ý¯°¿Ø>P7çótäÕtæóyô4ð|ëøëG±×öDÝM³½5½MOœÏrŒ*t–ž¦9ž)©Àý¡i÷kx>M»_ÅóYR…_E{iÚý îÏ’üø~hÚýNÿ.m~ç6£_w¿£³´ùÛ”¿Ï§<ʹͻ´ù­¡ß7à×u¼~]Ç;á×0^-iÁ³{¦Ý¯ày4}.¦ýz”ä/¦ee¼ÿ˜ž¦úÏb7ÖÑ“SO¦»é…çÅô†öñD97ªù¡Y…6?õçåÜØî×Ñž™v¿†ñ”é ñ}~œ€4í~…÷GnðËèLwh~M»_Âx°œÓülîlS›ßéV'>?ÜoðýÛt‡Î‹ÚüßÊiÜϧ] Ý¯éü,øqJØ´ûq¼eú|Qœè,Ù;‚2ø>`zBûx©œ†+›N/™> E±ùžBm~§?÷éÍr¾ íãwÓæ×'Úób/^¦ÏG)ðëhoL»Û¯b/rÐ¥Q»_ÕçüŠ>ßà—õù¿¬ïïðK¼?ŠôŠÍŸà÷ûÄQQÿnÚü¬_Ôæwú÷¿é~mð~/~lÏÊéˆÜ¯ã}дûq¼bú œÊéßü·5̦s§ž¦ Æ'¥zG^ZÆûˆénšý½é ã=©ùþÞÇo¦Í¯²¿,§ãÍÐiS›ŸÍ_Ljó;ý=žÇZá×y¿=¡ñ<׿ÆûÃþ‡iŽÇLoèŒïïð+¼¿v¿çøü2úsÓî—ø¼ÛÀäè¢öÛ~¸é…ùRÓº@/÷;—‰¿o¹_è?LŸé·_/(™îèLOÓ÷Kó®i´GÍ'Nì6ÅñàÂØmçý\¸ çË.¤éŒþØ.´ûq¼`ºCãy:Úü2ç÷ìF1¿óXûøÞô„Æù²¤é©ïIÖ¬ðß7ø ùwøq~Ô´û5ôßvcghŸ¿1í~j/v¿çx'ü8?gÚý8Þ¶ËýûŸ£;t®ÔçÅ˺ <ïÍ_$¬[YzBãúž;›žlßìA7ÍùbÓ÷ÏiÜïG¦'4®O/ðk/ô¿Êß{ô†FÿÑ+ü ÆÓ¦Ý/cül Y†æ÷7øéz÷¿ÄóeÕëÆ-¸ÿ¬¡4½°~` i†.ÒÝôdÿ`åи^6‘nšóm¦ÝómÖpgè"í~M~ËVÓôÛöbbÃHôßÝ'Šl؉ëc/‚Ð>ž+XX°a,Ž×^¡ÑþœŽÇýÔ>Û‹æÑ6¾ñï;W†Æý‰…†ãzØB ´/zÇgZçcTøq>Ã;JÓêŽv¿®ïkðë|>mÈtcyô„Æù·%%ÓUÇ7àÇù8ÓîÇ÷7ëè+4ú›1áÇù(¸_ÒïYðK|ÞlÙ-}Økî‡á³þZ˜¨—iõÏ60ÆõµåBÓŸû@÷³­Lš<3Ãop|qFî×ù¼a dã![5­þ`Vø5¶OXC¶×t¯M¬˜.ìÏfƒ_áý?;ü¸¾eºA·Jí~:_ç‡hÜïv GŸÓ‚çqúDƒi<ßG›ßPÿ1}"̧EðïýƲi”-}:rÓüþm ©MÃð÷¹±OÓtêeºc¾Ä¾Ç¿ü4þ±‰/h<vc@ãù³‰2Óï¯6Ð.ÐèŽv¿Âñƪð+ìߎv¿Ìöïèçg5ø%Ž¯VƒŸÆƒË'jmZíÇò‰Óx^–OtØ´Þ†ŸOäd­ÿ™иìÁ4­ñÕšð›¼ßlbÒ4×uíŦ@£ý?z”›ÆÄý¾| gºêfšó_¦4~Ïix 4žÇàÇõ({KÐx>v†_áûÅÎðãz‹½È¹_æøîèÝðù ?·­!5Íù'Ó ×ã4¼æ§õ>ÓíÁöei›ÖÆóstƒÆý†Þ4Æ—§#p?Î×›Ðh_­ã0=8Þ;ºAwéM¿?ÿ£OÑ1¬0íÛlY`/êÍó»m fÚ×^Ô‹iŽMhÞìÅ>A{{cÚý8ÿjzAWøø±?6= ;>_á—ñþeÚýÆ˦´÷w61Q Ó¢6¿º±>l ºvjó« Ï·é=p<¾0hº,j÷›hÏl"%A÷IÝ K¡v¿÷A›ˆ)нRæšÇ·íƳe±Õ¨tOÔ Úïw›ø)¦¯ÇÑÚûO›8JÐ~?˜v?]?[x‚æ¿/ð«ò/ð+ü=g`™ ½ý3Ý ó¦v¿ÌãÍ ~ºž6p…ö÷›(s¿„öÝtƒö÷ŸHƒ.ðîg럋z@ãþ²…<è:¨t’6¿óþ1ñ{üØþ™> Y.KçË'm™wI7è.½ }m!קø-¬Gø´¿™v?=½Âë¶X }üå ‹Ð¸^g ™ qý{—ÎÇÑîÇñ’/\BÏE= é?áÇõZÓ çûhúeÿ‚_gtô¹QM£=ïÍóã'¦ÑbãžiŒG†wt¾­/QÓ÷ßÈðk¿›nÐS_Ðè?m#"4Η½x@ãxìÅýý¨òÃõ¶‘¦+ïÏó¢S }|mz@ûxѶ4¿¯Ã¯òúÛžNh´§çEŒ~èOlƒ¨é‚÷[HOÐè_Æ„_áøìèçã¼hôÿÃ7Šä¤þç¼Xfh´¶°oZý‘½ˆBãþžþ ™Fÿd»{¡q¼¶q÷ËÌò«š~h/g‘_ÚÔîÇùbÛ¸¡Ñ¾Ø¾lhœoì7=à×à§öáhúUøuù¡ý™]~¸¦Îÿô}«{²»ô¹“ÛeÃW/ZáJØ”G6‰†uúŽ¥#ù;¶={ãµËäù›»ü|{‰Ë%9]¢Ï<ïÜÙåì.»$¬|BÁv¶ÀªJ —gUZeIX%I³â\ƒm¢©.—ätÉ_å[Š4ñç;r\vIXa˜`ûw\¢°å?—8WkÒ Ï¨-ºDr¤Y ¶@Ëm>@ËÏÒ¼‚¶é·óòu£=ô#}fsó®íRª.qoÛ"§KÜZ;Ó #ói…†kgZ¡_ß…V¸¾Ûç£7W-l{Uv‰FæÈî}€-ÎBúo¶½Y.ñ›m)×%:´Ýi…þgwZaøkßè£=h…ól§Å%Ú&;á‰VxRpì¦CXnÕ0¯àÔªKüæmýýÔFÙ]bк½·Þl³mó[ué·Jó¿®‚mƒ•o@ñt…V~D¶ïVySÂ*ãWZ¥AiVܺirCâgømW ¤LNHüæîVDNLÂÊÐ$¬¼Ñò݆.{§„UÃ÷NZµJ «:)aUaµhÅã]ö6ßé27ÊîÒçLnHÿ"SÉ™N“Ò¿ÈvdºÄáÙ!õ×íÒ{aÛÞ +_43 «¿VZybVþЙ„Ά”!%¬põm*d£„UÑ_aUð×A+Ü öΉ¿NZ¥M «Ô)a•pD¾ŸÖžñNy|g«moÏ;ë\m»Ð;ë\mûÔÎxC°­¼²PÂÊÇ¿¶V¾½Ä÷»Ä©+™V¸‘l×d¦„UÃUZµB «º(a…3yÞ‹aåä†ýG›£xÛþ «R(a•%¬pbí]2QÂ*áWMZá&ÄÄÂN|‹ïC؉çù¼ WÈByFE›{£mx†l”2Sn—8í¶b Ù(a…;ÖöŸ»ÄókÓ7•Vh¯j¡UŸ”°B󅩤0!`V¸(G ûyý…UK”°Â³Y¯xj§š‚Úiåo¶¥VhlÇ?¤Ÿº:i…gÁæï %¬2~Õ¢®à‘çn. ›!e‡Ì”§=Yܯo C…”ҿȦ9!ew‰ëÛ2­|hhŒ¬|øaVh[¥.w«´BÕ*­ðз\Xáê·F+\ýÖi…æ«uZB +Ü mЪ/JXá =¯³°Â½Ñ&­ðÀõâ²á³‹Vèøš¯)®Í–°9Ò´8Qc²»DÃØ|‚pmÞ9Ý×ç´JiV> pº2S ­¨í]„U¡î+[i€„U¥UÉ”°ÂmÖ+­2¬­r§„îºóê «œ)a…ö¹wZá&ìƒVèÊû îÉ>iå“F&i•(ÍŠÈ„±_rRžaØZl‚ºËâÈÜA3ÈB¹!Ýù¼½V—¸G¢•ó zƒîç‘iåƒ|Gæ ÝyY%JXùÑøòÇý‘Ý$=ÿ=€T9òÃo>~vþôóþîÛ¿ÿÁ½ÿå;tºüë?mû°Â§Û¿þÓÜUüþôø Ÿ^ÿìÓë_ÿéÏZþ:kX>ûÆ (À®Xø;6W¯?g\bý=¿®8þo-«Ï? |ý_kúúÊ÷?À[ýóø’ÿõ”bÀð>†ŵõáËGo?ù¶Â‡IÿüôÛÊ?m{OWð“o+|ÚVŸ_þn+~ï_?ù¶Â§ܯø¶bCð­aÄ4õFÙ4Žâ”üÛ´¦ÿß…o˜›ÙçËÏüóŸýýý¯ŸŸÿ÷ÇÏþòóþøó¿øøáO㡾>þG/×ì>N$XýÙŸù¿¦Ýÿé×ÿýüÏtþçç¯ÿöw¿û«ßýõÇ/üüñWÿøëßýöù¦ŸéQ—}ÿ:×Öþÿ‘Ü2ÎHÁÔŒô:Fz Nó0Ò³èO¤ÇHèéÑ9›ÈHνûŒôèDCéÑù.ËHÆOŒôhœd¤Gëý1Ò£þ*Dz4B”Œô¨Ñ0Ò£ÜJŒô¨ÜÁÄHZÐi3Ò£ò•‹‘…Ó¥Œô(caFzn¶c¤‡ÖzéQøÊÅH¼øWDzäd¤Gnx{c¤GþJø0«Ì]vŒôH†0Ò# \AFz¤vEz¤Â³Hä<(ÒæëüL"ÒÃæöü;ËÀ³ZŠ¸ð¹ŸBnŠôpìÒ­ ¬%‚H›÷á<"=œ™d†‡YM΀"Òà 3<ÌjÌù!ÒÖ1ÚáûFªðl3õE—ú¡H[³©_‘up-{VmE ¿jÀŠïîˆô¨éaËg>)‚H[óK†H[üÛ”ç·ÛÚaýŠô°¥IœXô°•L tX»°•RFdød‚­´¦W¤‡­äC¤GÕÃÃH_iF¤…GzØÊ5QDzØÊwUćùU!SˆôpänS›_­ŠiðãÆHZ…h"ÒÃv.ÑB¤‡#sƒÚüŠ3DzØNŒw¤‡íô˜ƒÚý8)ÈHÛ‰²¥Í/?!éa;_ÑáãwÛY3'õjÞŸ‰G¤GÕ–sFzøN!DJøLˆí,RŒHÛ¹‘¾ó éQA6}*ÒôW¤‡íäòHß &í~…$"=ꃔ#ÒÃv²©C¤‡ïŒ[Ô­9BÆïóHÛ™‡ó‰HÛÙ$‘¶ˆ9"=l'aRćûqâ‘E]9#=ÛÔæ·„D"ÒãA¾¸—¤h‹3#=ñÂñùT„í,e¤‰OÔ8ÒõŠô(KH="=l§,î?DzøÎZüÝÙß™;©ÍovÞ/ˆô°Àx^éQ ÅH¢8&FzøNfióÜÂÅHÛI ‘¶óz½"=l§öT„‡ù nQa¤‡ïEzØÎrFŠ ø)r‘¶“½½"=lç{}EzøNzEx$ TUÕ¦^Ã*܈ô02È$"=™zEz‰€¿#ÒÃfv?]?Dz)Qña~m «kdbDz8鱩ͯ ¶?ˆô0’ˆôpoðSä "=ìýd êEä ÿ¾Ã/ñz!ÒÃÈ\ODzäùT¤‡#NÒ ˆÚsDzI„ó‰H'“^‘åAšéáïî™zMG˜€Ì"Ò£hK"#=„‰‘Nr)£MG˜p}éaÈ#><ÒÑ%E| JŒØp¶Æ^QàDZ#= QÂñ!Ò£n™`¤‡!IC H#2ü2‘ZDz³éaH#@œ¥q$ ¿ßY8CV§nÐŒñ½ª† ñø'üº";&ü„d#ÒÃ#´Wˆô0HDzr„û ‘N†Vê±1ÂçéaÏ "= 9Bû‹HCŒ€ØãA1ÍH _;*O‚H¢->Œô0¤ý;"=LñG¤‡#FÒƒˆtƒ_åõD¤‡!FèéQ´e„‘%q‰‡‘†áyE¤‡!EŒñHÓI‘ HQU„G!R4©‘"|ß‚ßÿ‚Ÿ"]éaˆ;"= !BD"=œDGD…Gz˜F$ ^êlEz2„ç ‘¦‹">"œDz˜Æñ!Ò#kêž‘BÄH'ÿ'õ2Ô_‘ž$ Ý Ñ^ [Ó  ;üt½é‘—"+éa× ‘† áùD¤‡!BKí3"=<©Ç¿à—õûü’¾ÏgËM'ExT C<¿¾,ãIþwDzä©È+Dz"´ô÷ þ ‘†1’"Ãoðú ÒÓ4^‘¦Ñ#ÒÃ!´ÿèè³"1é‘(ÉHŒLŸŠôpÛM½¡1@¤‡ý,\ODz˜F{¶ÉSºC?ß@†øwgÏMÓß'(òx"N<ÒÃ4ÆCˆôðËV¨7"ôˆô°ËŽç ‘dÙ§"=ì6Âø‘~›½"=2–>éaý7"=ì¶Fd"=L·W¤‡=¸þˆô0û‘þXuêI„oðËŠiðKú½ ~\8e¤‡#DzB·W¤‡#DŠðèÐ_#ÒÃ4îDzä'B‘lÆ>éáÍÜ îÐM‘»¸Æø‘ÞŒê ÍH ÏÂðf8Sw"EÒ›Ht†Ÿî_lEðnàéáÝD¡îÐŒ)ðÓø‘Þ uê þÛo¼ÛÔý"=Lãü!ÒãN=_ˆ#=Lóx0÷ÚÔß#Ò#cçð§"=¬Çû)v¬e!ôŒô0û;é|XðŠôða¾ß—Q9zEzdÊŸŠô0 d‘Y„Œô°a -Dz˜®¯H9Ò„H&ÍLÝ¡ÑQàW‰p!ÒÆ]@رw5·;ÒÇmº92HÓü=~Y¿¿Ã_Œôðad¥îÐ@ìÁ>Û0”‘&>P1 䑹>‘!þ ù°vPwh _ˆôpD Ú_\QjÔz¼"=LWé¤7$"=|Ø.=‰,!¢£À¯+ò¢ÀO‘+ˆôð×DnTø1b‰‘öZ1ᑉ0UêþB˜éáÓ+Ò#cíîS‘¦ë+ÒÃ4oÀ¯ðþD¤‡#M¯HÓå鑱éåS‘ù‰D@¤‡éöŠô0_‘âÄHGœ)ᑦq!ÒÃ4eDzØk$#)<Ò#+r‰‘ŽS©'4#Lü¸›‘Yï—Œôði"è ?!±ˆôx+Fzd½2Òç¡^‘6Mň¿q}ÚJí "=8Íõ©HÓI‘î§û‘Ždmê 瑦«"<:4#. ü„ŽÅ­A=¡Ñ¾!ÒÑ-E|th?"=rVû öÖ§'õ„~Gz8ÂU¨;4#CüÛDzø4d¢ž@´–";24"céáHצ¶HŠ,$ Óùéñ ^ŒôðiÒBÝ¡áHG¾^‘òÅHG¾©Qä—^‘6m‹ç‘¦ÑÞ"Ò#çzEzä'ò‘YóŒôx0FzØ´1#@é‘Õ0Ò#ÞߌôÈ[b页)Ezä¢ã™òKïHÌ÷cEzhþC‘9ó~b¤HÝÏ'Ò#göŸŒôÈŒV¤GÎ<ŒôR¦HL„D‘™‘âŠôÈ\ÄT¤Gæ¾JEzd"”ŠôÈÜð¨HÄõEz$n=T¤GÒóÍHÄ÷[Ez$õ_ŒôÀ2Ãç顈[Ez$¾(Ò㉠a¤GR¤#=7Z)Ò#q‹“"=#‚é‘ÉÁH¤H&Fz¤I¤Ÿ‘‰ïߊôHŒlT¤Gšü~Fz¤©ˆ,¿ªˆú¡½c¤¶Å>‘‰ó=ŠôH$>é!ÄM‘I‘QŒôHŠ `¤G_‘ôÃýÍHD²C‘ið|0ÒCœ"=’ƃŒôHê¯é‘8¯HÄõEz¤®ßƒHDhC‘I‘8ŒôHŒðU¤‡"‹é!dN‘I‘1ŒôHŠTb¤GR#=4¨H¤÷Fz¤¦Ž*¿,M¿$í~¬ô¡HTHÍ7*Ò#Uý>Dz¹S¤Gª|žé¡õ1Ez$®Ï(Ò#UEtLùeiú¡ýb¤^«>ŸHÄHEz$E¾1Ò#E‚ Ò#E^ Ò#©=e¤G*ŠÌÈò+Šø #7²üð{éeÛÏ'Ò#)’†‘‰È®"=Ez$E 1Ò#qþD‘‰X"=’ÆûŒôò§HDX@‘‰x€"=Ez$µßŒôHŠÌa¤‡@Ez$EN2Ò#±$"=„*Ò#qC¾"=#Å鑸¹B‘Iˆ1#=RR¤E–_VÄýÀ£1Ò#q~—‘{+áÃy›Í]ì ôØì,˜ç±¹qXñÿTš‡Vræ±ùâÌ,E…3ÊcsI›Û¸ä±Å9#Çcsï5c<¶R#ⱟßò•€ ½tD¾Mcsúš {)€Ä§Õ6¿™ß±JÄwì¥tL«ö ïØÌevǃ2"ºcs€É{}sÀ <r;öR,†Çv(U•©[!'íØS™žÙ±¹^ÌÈŽ=ɶ!±cOììØâ·‘×±'i= Š÷dZÒ:*a{êx­j¡<çp+yI{ò‚âõas—9Ú×Ø¥°1¥c?¡Ò±™±ÌŒŽÍùIFtÇû0žc^nÄnl…Á œc´ÈæP4£9ö O‹dŽ=xõ̱‡rH­Àµ"–c3ˆ©û ™´Jú+¬ðü"’ãa5‘ȱ¹zÆ@ŽÝ•â´Æî:9DZ™ÞÎ4­D1Œc?Y™V@×ű;v$qlá ˆc3’9牎ÍKLáØç !› ôÌàPÄ#8  ›@À±9™Àü EüÆ~Ò0|̵nËð-vÙ›óŒÞxQ$ol[2xc7å„8ø±ó‚Ø ¥2ucsÃÐýÊà€UWĬ˜X‘iÕÈ«úÊÛØܶƸ­4¤m즰‹J+œXdmlŽ‹µ±Y‰‰I›A¹ ڛʜÍ0Æll¡˜²±+Ï3B66‹¥1cCä*#6¶°± É€]yÇ"_cs®™ñâZ™®±+O;Â56'"™­±ëWÔ¬À¥#YCÔ+ƒ5¶r«¡Ê§b5vUJG¡pq„jˆ‰e¦ÆV$ "5veb56G ÔPÞ5ó4DÌ2NcsªŠi[á*ÓØœXe–Æ®l7¥!ž–I*œÁ ]x£±¹¦Ê­Ô)¤hˆ¶eˆÆæ ;346ÇŸŒÐØÜïÉÍÂr ЋËüŒÍw}ÆgÍezÆæȕᛵ˜¡upFglk™œ!p—Á»pp‚ÜŒÍ1/c3vQ H§z:„fëef†"<™±Ÿ„‹I+ˆLZ1ocÒ â267‡2-C 0Ã26k0+cEuø ÿfå,&eìÌGA"„™“±3GˆÉجÂÁ” í `HÆVÆ226÷¿0"cg¦ !C8126ß™!º˜ñ;+À¢Ój(,Vã•­¹ŸO4Æ“ü1h… ,FcdF'0ƒen‘•Ò±hõ$eX܃2¯ÁùYEcdvmŒÆÈLa`4FVrD¢AŒYÑÜY¦h e1ƒû6‘ïh q1ƒ‹ŠÆàœ”¢1XUEÑ|ãQ47*#ó6c4ÁÙhEcpó–¢1ŸÂh òÒŠÆPX£1”5ÇhŒ¤¤ Dc(‰‰Ñ ba4·+C1„ŒÆHJ¬È´šJÊ€úFc(Ò…ÑIñ…VCá°ïh ®)#}eaÀj()ƒV ¿€UGc¤¯à X1ûcÐ 70£1Hq+C©3ŒÆ Ô­h N(*ƒë¡ŠÆàtEc$%t C/£ŒÆHÈ)C8£19^Fcg4£!>œÑ ÆQ4ëø)C¸8£1±^Fcˆg4F"ÿÏh ÁäŒÆH ¡è´åËh .+C¨9£1’+&­Ø1i…ŒFcpEѬ4¥h ¾•3ãáÒ¡²ŒÆx0uDc¬¾›ÑµŽhŒµ¿’2h•(aÑ‹õVñ0íˆÆXÜzÂhŒÅ•"Fc¬­ ‰&«D «‰/ê´ŒhŒÅºŒÆ«ÁhŒµ‰#ãÁãñàñˆÆXLAb4ÆÚ$„±(ÈhŒžG4Æâ\8£1–Ñ‹Åìñ õˆÆxÐzDc,n{b4Æb°£1ðÑxhŒEæ‰Ñ‡hŒÅ zFc,F¾3cmÅj4ZµW4Æââ£1hÑ‹[S±8cÃhŒÅZ†ŒÆx~Dc¬­ÀŽI+þˆÆXL›b4ÆÚŠópXäþ±¸ƒšÑÿhŒÅÈnFcŽ-"•} ìVN*·Ìƒ •m°ÝÉ"›UfiÌ@·L¸¤²¿ ø?î°bn+Hå–™}RÙ«$ç‘ÊöÔ .›UšxÌA*óÍK¤²½—ùý R¹iõ¤²×7"•›âbA*ûk)Áe#mUÌP¤òfc$Ry³¸—HåM&^¤òî$H*©¼Ul™¤²’öD*+ÕM¤òÚ"¥A*«é©¼D’T^ƒ;õI*¯‡<©ü&©¼ I.’Ê+s§;Iå%R¤òÜú} •çé Ry²8˜Hå9Hâ‘Tž O©In+®MÅA*ûJP¥nÝ‹íâù©üUl¤rU±’ʶ¾’¤²­†á|ƒT¶¥4Üï •}ßï=MÕNw’ʾä¸Á;ÓI*ûêb¡v¿"Ýá—Iž€Töâ¹Ð¾âêk¦ÒæWÖ—6¿2/RÙsùýN*ûJð‹T®EÅYA*û¢ó >Ζ¨Ñþ€T¶mD •m5ÏH寤ʶðÒ ¤²-Ó“ö™d_ã/Ô槧$•«Š×‘T¶Í$‰ ü¸°CRÙ÷9dj÷ÓýR¹jç!IeÛû¤²é$2Ùü’Š§ƒT¶­ W@*ÛÆ´ •}J£v?‘î •mƒK}‘ʾAÿ~ÁOdIef‹TÞK礲¶RˆTFõùÊZ{©¬åf‘Ê[í1Ie-î‰TÞEä1HåÍb‡"•7w‰TÖ“He½ÿˆT^“d!Iåň"•×i Ryq-]¤òj"…A*/®kŠT^9 Ry‰l#©¼’HbÊsóþ ©<×™œ ³Èdó›Sç¤ò|þH*OnA©<•DARyr§²HåYEî‚Tž\m©<3ÉL’Ê“óæ"•·;‰T~ŠÍ“TÜy*Rù!I*!Ê*f&Ryˆä$©<*I?’Ê£Þ¤ò(ì_@*{r‚Èd÷ãNb’ÊÜ ü)R™š?E*ûhh'•}ô´ùõ!?Ÿ ± Ù<~Ÿƒ3^¤²'+€,vRÙ‹Ñ6ê¶=YÇ R¹¨øIeÓèA*{ÒÈ__µ ð(FRÙ6ÌÏ©lš¤°“ʶIxò üðoðë"ƒüôü‚T6MrºÃ{H* ÀÏø‘Ô~Yß?à§ö¤²‹z@“<ö-Îh`¼RÙ\ÊEŬH*;@Ò¨gò¤ôW • H!YìËG´àxA*›."“ݯˆäÍðc4IåRE²‚T.UíHe=Ÿ"•‹Š?‘T."H*P„bð •@z‘ʦÑÞƒT.zQ"©ìHá?î!©l@Éã?×A*‘<$• èBÿRÙ0‘ÉšÿÞ§ (£¿Ï`;€&ryB“´õU&Úо€TvNßÐH>©l@ݹ<¡“Hd÷k©ì@ߢÞи?@*; ˜©ÝOï •‹ŠåT.Øù)RÙ4Æë •½m¢6¿'¤²”“Úüw’T.*CRÙ‹Ñ6j÷Óó RÙ“"¤Ý¯q|„™^Léç  JÏâI¸?A*;к¨-÷PÅEH*í &©\Ry RY{iE*k«Hå͹N‘Ê[ýIeíÆ©¼'Û’Ê[ãM’ÊªÓ RYûêD*kÏšHåÍâ"•w RYÛ‹D*k¿Hem1©¬}"•µ¾/Ry“¤©¼4 ©¬e ‘ʚΩ¼HJ‹T^‰T^"»H*¯!²¤òb1?‘ÊKäIå%²Š¤òj$cH*/&+ˆTVÒ“HåUIv’T^åëïš©¼²þRyeý¤òâö‘Ê‹KÕ"•'/E*O.+‰Tžœ©d0Hå©bÀ$•gáõ ©Ie%YˆTÜx)Rypü"Rù)†KRyˆt%©‘Tn“÷Iå¦ëGR¹Mý{ÊMä.IåÆzI"•›Š“TnÏ;IåƤN‘ÊÅ$• £ŒE*‡I*ο‹T."[I*—*R¤r)ìÿH*—"2¤ra’ŸHe­uŠT.êïH*—,?Ê%ó~$©\8ÿ/RùIÚ ©ü$mT.Üd,R¹ðýW¤r©OR¹h|CR¹Ä©œ5Þ$©œ¹Þ&R9s}D¤ræû‘HåÌ}c"•³ŠÙ“TÎë&•3×ïD*gîz©œ•TDR9/ý^ÊYI3$•UY¤rfR•HåÌõS‘ÊYý5IåLÌO¤rÖóBRùIÞ ©ü$oTÎLR©œõüTί‘TÎþ$•5"R9ëy"©¬o‘Ê*®,RYó-"•sãù!©œ5'©œÇï$•5?#R97‘É]~$‘A*gÎ_ˆTÎ/’TÎê/H*gïI*g7H*çªóR9ë}‹¤r&$R9³ŒžHåÌçS¤r._äò€øDRYI"••Ä!R9sþW¤r,RÙ—uñ}~*î VÙtÊL?m •sº\Ù–‘·ˆäMعÃÏ7‰eOæÀ÷ø©˜+˜eÓE”2ý² f'³¹‹›ØrNÜNMn9k[ÁeO⪜ ›HæÍãu£¯âЀ—½8ô¤v?Î?_öeùBÝ Á6`6 †sNï\äš7Ž's$jú$ÅüUL{G<™£QhÐ@™}›Á‹dödŽMM?œ°Ì¾MaPÓ/‹W¦)àÌ^|:S/hбš=™cSŸ'OæÀ÷ùÄüW1j0ÍžÌÑ©4ˆL çÄÄš}†@f÷ëü=›=©#Q/èùB›=™cSèö‚›=™C83ýÀØoödÍôK/ÀÙ“9„4'èõBœ½¸µô‚/ÈÙ“:¤é‡óÌÙ“:¤éW¤é‡Âº }Œôù"OêÀïõ…„¯bØ€=©CzA“ÊõŽÙ“9¤é‡óàÙ“9¤éWE@Ó˜gOê(ÔôÃõõü$u{~’:È={Rˆã?®‘|ö¤ŽúìÛŠ;Ó”u—¹ê!?’ÔC~¸Á?û¶%ÏîÇd=ОÔï[ðêú«7 hß%(ºAƒaýUœ´'u,jú¬ ýU¬(tVô)Ú“:ø‰> íÛ¸àWá'J <ôW1oÑžÔß×ä×EHÓ¯¿˜è¬ùBÑYIÒ¤¢=©¿gÈí%¸hOîúL?Èhu$£·0jÑ„qDFoÒ £IÁˆŒ&É"2šIDF«R8Éh¾v‰Œæ(Td4‘ ‘Ñä DF“VÍM‘ÑÜê/2š;ðEF/QÆ £ÜA2ZÁ$£¹a[d´‚;HF+¸ƒd´:2’Ñ î ÍeV‘Ñ î ­à’Ñ\³­à’ÑKÌ5Èè)ÈdôäóD2ZËIFóíSdôdgD2ZõËIF3t[dôäñ’Œž<^’ÑLÄÍÀQ‘ÑÌÿÍE‘Ñ*vN2z²";ÉèÉëK2š ¶"£ŸdôÐ჌:|ÑœŒ­Êè$£š%2š5”DF3BKdô 2šÛEFs–Wd4EFs¥ÈèÁ!Éh®(‰ŒVO2zpüC2zpøA2º‹ÈÝ…`ƒŒî<9$£(2š™é"£;.’Ñ;ÉhUd'ÍüW‘Ñ|é­í$£»ÎÕ¢U(m´o×¹ÍdO‘Ñ*ßN2º³µ#ÍMÝ"£™&2ZC’Ñ]”1ÈèÆSG2º‰#݃ŒnlFHF3^Ld´Æ0$£¹%Bd´*Á“ŒVŽÉhåxŒær³Èhæ,ŠŒÖà‡d´r’ÑÊñ Íàb‘ÑÊñ MBdt’ 2ºŠAN´"tœi•ßdtVœiÔŽd4gÍDFâr$£™ã!2ºj#Í,[‘ÑD'DF3I]dt! F2š£S‘Ñ\œÍÊ{"£9tÍš)"£9q 2šãZ‘Ñ…¤ÉhîJ!½9è%½¹G›dôæ Éè]Ȩ‚ŒÞ\ #½ ±SÑ›…"HFk7&Éè]‡‚ŒÞÜ{G2z⟠£w!à 2zs M2zsÞdô.Ä0AFoŽÂIFoN’ŒÞ™°$6mr$£w ; ýö™ëÍý<$£7—oIFï,šÛá>Á $£w¾íäòÎⵌÞÌL%½ÉàŒÞ\—'½¹ I2z3ÿ˜dô΢ª ­HUZ£®´"7]iõ€Ò°Â­2zg¡ÐV„;­;wZ‘nî´"¿ò©á,RN5œ9ÁñÔp.7]9²]žÉ £‹È+’Ñe¨f4k87îŒW g¾Ê;Ýœ´œÝœ´é@âfæøas²$P‰›E"$¸‚ã} 5˜y~@âfÕ%¶ÈpÑI5cIF§!Òdtê$kTù}‘Ò¬¹ÜEB»Ÿj‚Œ¶|ÖP.ª¹\_d´m0ØÒ¬¹ òdtQVìSù¨¦2k8‹´T gŽ¨TÃY 1ªáüí5ƒ×ø"¡½FrÉšÁë©1šÁ‹É˜¾Å5•AšdÔ žìL}K j,ƒt˨<Ÿó‹ÎS$k8ϦóƒÎS5FYÃyòÝù©á,òŽ5œÇS³5œŸ‡¬á‘ÑÚ .2:)Édtâ|‰Èè”Td´vv‹ŒNIß2ú©¹H2:©Æ;Éè$rd´vf“ŒÞz<›·ÛÊyq.[¯_Xôf ©èÍ•;BÑ*ƒH&z ™½•x"Z¯ý¢7£ÂÉCkG4qè½D;ûÅÜêrCkÆ—,ô ZåIBk3Aè-Ó‚{~h®.Ç‹‚Þ‚A«† hMTÖfcÐÚ]Lz«².øç=„Kû‘îÁ6ô³*ý~ÞûíS)›PDŸµ˜äóVÐ –c¶¸BpÏ[v=o¥t€zV ¡gUÜ#ó¬‰"Ï»‹®´àày«Uï¬Ý¶Äµ½–´³öÓvÖZ²ÎÚ1KÔY[dI:«¶Ag³#缃Ìy“ê1y^BwS¹fçت¾ Æy7!Òþ¸™(HÂys”€ónüÍà›wÎëx36Ž~ŠnÞ Ç#ܼÉúmÞ*Ê ´y?dr¥KWZáÀ5oèÖ¼«êwZ¡iÔ¼ÅP‚iÞBò4ïJBD³öjhV>0yfíÆ$μ ïgÐÌÚoé0sz6X’eVe4¢ÌšŸ#ɬÚg™UìŒóÖàó.ª—œi…G³ –‘aÞŠ Â¬½‹$˜µY‘³ªŒ‘_Þĉˆ/«Žée#¼¼É‘]Þ|&º¼Evƒ\ÞY ò +0OZ5aÊí«€©eUì"´¬½|©þÚ¼GdY»õH,«ÌeÕÕ"¯¬BZÄ•µÅŽ´òNlÛ+ofË‘UÞ*˱E¢ƒTÖF8‚ÊÚùFNY[݈)k3)eí^#¤¬íjd”÷Sœ¸ÓŠDq§U +ò̃Vħ'­ðNÖ>1ÂÉ[Ù2`“µõËÑäò”pr2¹<›»&«*¹äýůÅHñZ:@/NÃ(^Küñ¢noTgX¢ÛË–U¦Þÿù/”Nf*‘J'I#U @ø%Ç[~ÉvËËjÞVó¶Z·Õº­Ömµo«}Y~ÉvË·á—¼¬ÊmUn«r[ÕÛªÞVí¶j·Õ}Ú ¿äxKÂ/Ùn¹ÞrÞVó¶Z·Õº­Ömµo«}Y±tòK¶[¾­X:ù%/«r[•ÛªÜVõ¶ª·U»­ÚmÕn+ß$ý–ã-~ËvËõ–󶚷պ­Ömµn«}[íËŠ€ð¥[ÐëÒù²# üÒ%ø•àW‚_ ~5øµàׂ_ ~=ø9 üÒN¦\º½.í€ð¥o¿üVð[Áo¿}û¾t úò |éÛ¯¿üJð«Á¯¿üZðkÁ¯?„_ÚɃK· ×¥´¹ôí·‚ß ~+øíà·o?—nA_~„/}û•àW‚_ ~5øÕàׂ_ ~-øõàç@êK; |éôº´—¾ýVð[Áo¿üöí@øÒ-èË€ð¥o¿üJð+Á¯¿üZðkÁ¯¿üÂõ |éôº´——^Áo¿üvðÛ·áK· /?—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁÏÔK· ×¥”¼ô¸ô ~+ø­à·ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~áz¾ôº´——ö—nAß~;øíÛ¤é¥[ЗáKß~%ø•àW‚_ ~5øµàׂ_ ~=øõà7‚Ÿ©—Þ—vîÒóÒ¾oåÒ=èÛo¿}û¾túò |éÛ¯¿üJð«Á¯¿üZðkÁ¯¿üFð ×€ðK;éséyißVtéôí·ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øàç$ÕK; |éyißõuéôí·ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#ø஀—KÏKû¦¼K÷ ÷¥wðÛ—áK÷ ÷¥óåG@ø¥Kð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFðs õÒóÒ_º½/½ƒß¾ý_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚_¸„_Ú÷°^º½/ídì¥/?—îA_~„/}û•àW‚_ ~5øÕàׂ_ ~-øõà׃ß~#øà7ƒŸïÈ|ißb|éô¾´—¾ü_º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~áz¾tz_ÚKÏ· |éôå@øÒ·_ ~%ø•àWƒ_ ~-øµàׂ_~=øà7‚ß~3øÍàçô/݃ޗvHøÒó­ _º}ù¾ôíW‚_ ~%øÕàWƒ_ ~-øµà׃_~#øà7‚ß ~3ø…ëvøÒûÒN_z¾5øáK÷ /? Ä—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üFð›Áo¿üÖk¹øSTñ¥[Ðë­_úòZ|éôíW‚_ ~5øÕàWƒ_ ~-øõà׃_~#øà7ƒß ~3ø­à®pãK· ßKÉ$Ž/=.o?@Ç—¾ýJð+Á¯¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛ× 3AäK¿×˜‰"_z\:ß~ ‘/}û•àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à®åK¿×›É(_z\:_ë×Ä”/}û•àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß¾Ö›É.iÀË——Î×ú5ùåKß~%ø•àWƒ_ ~5øµàׂ_~=øõà7‚ß~3øÍà7ƒß ~+øíà® æ/ ªùÒãÒùZ¿&Ø|éÛ¯¿üjð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ×z3qçKKçkýšÄó¥o¿üJð«Á¯¿üZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁ/\pЗ—Î×ú5QèK¯K—àW‚_ ~5øÕàׂ_ ~=øõà׃ß~#øÍà7ƒß ~+ø­à·ƒß~ûö }éqé|­7“‘¾ôºt ~%øÕàWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·o¿®Ðé—Î×z3áéK¯K—kýšüôK×àWƒ_ ~-øµà׃_~=øà7‚ß ~3øÍà·‚ß ~;øíà·o? Õ—~¯7ª¾tz_º\ë׫_º¿üjðkÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛÁo¿}ûµ¾ôåÚúÒ=è}ér­_“¸~éüjð«Á¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöíûÒ—0ìK÷ ÷¥Ëµ~Mû¥kð«Á¯¿üZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ—éìKÏKß׃€ö¥÷¥Ëµ~MFû¥Ò¾túökÁ¯¿üzðëÁo¿üfð›Áo¿üVðÛÁo¿}ûÛ¾ôåpûÒïõf¢Û/]®õfÂÛ/]¯õkâÛ—¾ýZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~à¹/}ùè¾tú½ÞL¨ûÒóÒõZ¿&×}éÛ¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöíÐûÒ—PïK÷ ßëͤ½/=/]¯õkß—¾ýZðkÁ¯¿üzðÁo¿üfð›Áo¿üvðÛÁoß~ À/}ù¿tú½ÞL üÒóÒõZ¿& ~éÛ¯¿üzðëÁ¯¿üFð›Áo¿üVð[Áo¿üöí4üÒ—àðK÷ o¿r­7éz­7¿ô¾t ~-øõà׃_~#øà7ƒß ~3ø­à·‚ß~;øíÛÌø¥/?Pã—îAß~åZo&9þÒõZo&;~é}éüZðëÁ¯¿üFðÁo¿üfð[Áo¿üvðÛ·`òK_~ÀÉ/݃¾ýÂõRþÒõZon.nTùÿþÏþã/>~õûoÙ‘ò÷þþW¿ýæÝÛ?}ûó¿øHå¯ëv{,§è¼LÄúø#‡PÓÇ?üøíãß|þÿë ûO†c‚¿ñÊóÑŸ†µ¯óö`ÿy8ŽµëƒÕyÁ¯BóƒçmÚJeg+˜]óýA€x_„æóãÚF’òa8A¹>˜œ8üú ´>øJtóƒöªö>Fjÿà/~øô¾Þ?þã#üð×Ù+‰§ç? m¸bç{ø®ì~óñ³¿úùÇ÷íßÿ`–ÿ¯W°M_þwׇ˿øᆅ‘¯§ŸðÍüÙÍ7¿ÿöׇÿ ?ûëÃã'|˜?»ú¸óá?ÿÙßþåç_ÿöwÿðó?:÷ÀÏ~óó¿øøáOšYñ ÅnöÛÿæÇŸÔôñ³ÿý÷ÿ§äK%vLŸ¿û›_ÿþý«Ÿ|h6=±~Íßÿîçg¨ú³:ÿu~Òÿðü¤ÿúíÿ®ÒŠendstream endobj 3 0 obj << /Type /Pages /Kids [ 7 0 R ] /Count 1 /MediaBox [0 0 504 504] >> endobj 4 0 obj << /ProcSet [/PDF /Text] /Font <> /ExtGState << >> /ColorSpace << /sRGB 5 0 R >> >> endobj 5 0 obj [/ICCBased 6 0 R] endobj 6 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xœ–wTSهϽ7½P’Š”ÐkhRH ½H‘.*1 JÀ"6DTpDQ‘¦2(à€£C‘±"Š…Q±ëDÔqp–Id­ß¼yïÍ›ß÷~kŸ½ÏÝgï}ÖºüƒÂLX € ¡Xáçň‹g` ðlàp³³BøF™|ØŒl™ø½º ùû*Ó?ŒÁÿŸ”¹Y"1P˜ŒçòøÙ\É8=Wœ%·Oɘ¶4MÎ0JÎ"Y‚2V“sò,[|ö™e9ó2„<ËsÎâeðäÜ'ã9¾Œ‘`çø¹2¾&cƒtI†@Æoä±|N6(’Ü.æsSdl-c’(2‚-ãyàHÉ_ðÒ/XÌÏËÅÎÌZ.$§ˆ&\S†“‹áÏÏMç‹ÅÌ07#â1Ø™YárfÏüYym²";Ø8980m-m¾(Ô]ü›’÷v–^„îDøÃöW~™ °¦eµÙú‡mi]ëP»ý‡Í`/Š²¾u}qº|^RÄâ,g+«ÜÜ\KŸk)/èïúŸC_|ÏR¾Ýïåaxó“8’t1C^7nfz¦DÄÈÎâpù 柇øþuü$¾ˆ/”ED˦L L–µ[Ȉ™B†@øŸšøÃþ¤Ù¹–‰ÚøЖX¥!@~(* {d+Ðï} ÆGùÍ‹Ñ™˜ûÏ‚þ}W¸LþÈ$ŽcGD2¸QÎìšüZ4 E@ê@èÀ¶À¸àA(ˆq`1à‚D €µ ”‚­`'¨u 4ƒ6ptcà48.Ë`ÜR0ž€)ð Ì@„…ÈR‡t CȲ…XäCP”%CBH@ë R¨ª†ê¡fè[è(tº C· Qhúz#0 ¦ÁZ°l³`O8Ž„ÁÉð28.‚·À•p|î„O×àX ?§€:¢‹0ÂFB‘x$ !«¤i@Ú¤¹ŠH‘§È[EE1PL” Ê…⢖¡V¡6£ªQP¨>ÔUÔ(j õMFk¢ÍÑÎèt,:‹.FW ›Ðè³èô8úƒ¡cŒ1ŽL&³³³ÓŽ9…ÆŒa¦±X¬:ÖëŠ År°bl1¶ {{{;Ž}ƒ#âtp¶8_\¡8áú"ãEy‹.,ÖXœ¾øøÅ%œ%Gщ1‰-‰ï9¡œÎôÒ€¥µK§¸lî.îžoo’ïÊ/çO$¹&•'=JvMÞž<™âžR‘òTÀT ž§ú§Ö¥¾N MÛŸö)=&½=—‘˜qTH¦ û2µ3ó2‡³Ì³Š³¤Ëœ—í\6% 5eCÙ‹²»Å4ÙÏÔ€ÄD²^2šã–S“ó&7:÷Hžrž0o`¹ÙòMË'ò}ó¿^ZÁ]Ñ[ [°¶`t¥çÊúUЪ¥«zWë¯.Z=¾Æo͵„µik(´.,/|¹.f]O‘VÑš¢±õ~ë[‹ŠEÅ76¸l¨ÛˆÚ(Ø8¸iMKx%K­K+Jßoæn¾ø•ÍW•_}Ú’´e°Ì¡lÏVÌVáÖëÛÜ·(W.Ï/Û²½scGÉŽ—;—ì¼PaWQ·‹°K²KZ\Ù]ePµµê}uJõHWM{­fí¦Ú×»y»¯ìñØÓV§UWZ÷n¯`ïÍz¿úΣ†Š}˜}9û6F7öÍúº¹I£©´éÃ~á~éˆ}ÍŽÍÍ-š-e­p«¤uò`ÂÁËßxÓÝÆl«o§·—‡$‡›øíõÃA‡{°Ž´}gø]mµ£¤ê\Þ9Õ•Ò%íŽë>x´·Ç¥§ã{Ëï÷Ó=Vs\åx٠‰¢ŸN柜>•uêééäÓc½Kz=s­/¼oðlÐÙóç|Ïé÷ì?yÞõü± ÎŽ^d]ìºäp©sÀ~ ãû:;‡‡º/;]îž7|âŠû•ÓW½¯ž»píÒÈü‘áëQ×oÞH¸!½É»ùèVú­ç·snÏÜYs}·äžÒ½Šûš÷~4ý±]ê =>ê=:ð`Áƒ;cܱ'?eÿô~¼è!ùaÅ„ÎDó#ÛGÇ&}'/?^øxüIÖ“™§Å?+ÿ\ûÌäÙw¿xü20;5þ\ôüÓ¯›_¨¿ØÿÒîeïtØôýW¯f^—¼Qsà-ëmÿ»˜w3¹ï±ï+?˜~èùôñOŸ~÷„óûendstream endobj 9 0 obj << /Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences [ 45/minus 96/quoteleft 144/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space] >> endobj 10 0 obj << /Type /Font /Subtype /Type1 /Name /F2 /BaseFont /Helvetica /Encoding 9 0 R >> endobj 11 0 obj << /Type /Font /Subtype /Type1 /Name /F6 /BaseFont /Symbol >> endobj xref 0 12 0000000000 65535 f 0000000021 00000 n 0000000163 00000 n 0000023896 00000 n 0000023979 00000 n 0000024102 00000 n 0000024135 00000 n 0000000212 00000 n 0000000292 00000 n 0000026830 00000 n 0000027087 00000 n 0000027184 00000 n trailer << /Size 12 /Info 1 0 R /Root 2 0 R >> startxref 27262 %%EOF metafor/man/figures/plots-dark.png0000644000176200001440000034317114661373530016735 0ustar liggesusers‰PNG  IHDR ¬ÜCaØ‹‹PLTEMMM///›››&&&³³³444òòò,,,---”””}}}ìì쯯¯vvv‚‚‚bbbîîî666ttt¥¥¥ðððñññÕÕÕÞÞÞëëëÛÛÛIIIØØØæææááኊŠêêê555ººº222ZZZ¼¼¼ÑÑÑppp@@@ïïïyyy^^^777888:::ÍÍÍÝÝÝäääiiiÃÃ訨FFFuuuhhhÄÄÄâââçççeeeÌÌ̇‡‡CCCPPPWWWåååÈÈȱ±±¦¦¦éééííí«««ÙÙÙ–––aaaƒƒƒ¶¶¶ÊÊÊggg£££DDDHHHÀÀÀ___†††ÓÓÓTTT‰‰‰‘‘‘|||ÅÅÅÜÜÜ———;;;"""XXXmmm²²²¿¿¿ÏÏϸ¸¸???àààYYY<<>>•••ÁÁÁ[[[ˆˆˆ333ªªª%%%‹‹‹(((\\\ÆÆÆŽŽŽ###000...+++ÂÂÂ)))111"°#X pHYs&r&r!+—î IDATxÚìÝïkUÇáE4ÎY²º »S1ÍÐÀæ³WþèE¹ "+V‘,E_H%¨šÅ ¤Õ•zc­Vf½!„Þd†B/D‰ìÿÉíœûãÜ{ÎÙ=wâ½­çy5Ï9Û9ì…_>îÞÙÐsú| Äb @¬ ÖÄb @¬ Ökb ± Ökb ±€Xkˆ5±€Xkˆ5Ä€X@¬ˆ5Ä€X@¬ ÖÄb @¬ ÖÄb ± Ökb ± Ökˆ5±€Xkˆ5±€X@¬ˆ5Ä€X@¬ˆ5Äb @¬ ÖÄb @¬ Ökb ± Ökb ±€Xkˆ5±€Xkˆ5Ä€X@¬ˆ5Ä€X@¬ˆ5ß±€Xkˆ5±€Xkˆ5Ä€X@¬ˆ5Ä€X@¬ ÖÄb @¬ Ö «Fà «»ó<Ç·5>[yh÷Ú·=óâ7[꜊NM݉›`Ïî¼y²m Öà?4n×/üÓN¬Õì˜]Ä eß {v·cͶ!Ö€ž·m[Ãc…b-ÞÛñ åÜ {ÖµX³mˆ5 ÷Æm×Ë·o[0ÖÂð‘Î-÷fسîÅšmC¬=6n÷þþxØI¬…;´n€=ëf¬Ù6ÄÐSãvOtÛâ±öÞ⃶ÀÍ°g]5Û†Xêã¶öp³s=ksöÆôäì̉¡ê¢Ý0hôÌž5Û†XrÇmeפ½X[Q?²úLÑk»+Ãð_öîþGŠ³€¸ ×s7Aê íµNð„/6lkR)TRj¬¦TZRK*£õ¥RS´ /=ÁHj)Ø¥•ÆÑ–¦œ4€þ÷vfggöæfö–¡âÝçóC³Ï<3;ÏñC¿ùîÎÎÌ­lz;o™ÛV*Ýöóðâýª{¿|0ù|uÐÞ^Ê1p۬ݽ½G‚цފßdZט½Ÿ_·³¶–ò=)–µîü“0ZËÚ–%+•iU8úB©©éŒèkº¬É6”5`¸ávk¸áªÃþûÂñ¶dY›t¾’vóÞ½RùOPÁ:÷;læOWkª¯ß¯½÷ÀÅçö„{6wëþ_ëN ´œu»½1€²–VÖ~†Òsá7e+›™ÎŠ¾fÊšlCYZ ·µá…ÏÕvo›l˜™,k·Fï÷h°áµño«ÃW«¯gU_ÿ½ölš¶oªß.«Õ²6aiJæ­[ (kieí`8;/_lf:+úZ+k² e È·åᯗۢýw…_¥í—µ©}Ñ|pKá9ÑÏ{lª§WyÁ3_ï¼VËÚ'K)–·n ¬¥”µÑgˆáoÏæ73}­•5Ù†²ä‡Û¡ròÊÅzº-Ž—µ£Ù3sbÏ[p[ì³ÈGë¿Î~ûÀó+‹(kjr&-oÝ @YK)kŒ¦ÏN51}­”5Ù†²$Âí®Ù »ÃÙðÑ›Äx?Ø´3^ÖNG³7‡Ǿ§æl°áÉÇO‡™qbߥ«-koEHZÞºÀèʳ&ËÚŽhúöúM°ò¦3£¯…²&ÛPÖ€d¸ ñ\šðòø‰±MŸ 6}*^ÖG³ë†¸ ã«ÕÙ?;<ñû–ËÚä w¾±?¶C"ÐòÖ-ÐFWž .këÓÊZýŽ÷[ÓÊZútvô «¬É6”5 ùp ®ì(÷Å6…—Ì?/kg‡ÎrüÇÏ+{Müsï°ÊÚ²¥ߟ½iâ¥ö†–·n0ÚËÚ¬´²v š>‘VÖÒ§³£¯‰²&ÛPÖ€VÂ-|†K[lÓø`Ó+ñ²öåhö;C$Ö¹pþõ6μØ6œ²6eÈ?$hyëh£³¬Õ?]|5­¬õDÓ7¥•µôéìèÞC±eÊÐt¸-|Éž`ÓªxY«_²±|ˆÄº¯¶C÷®C·$§Æ^ƒ²–·n0:ËÚòhçÓÊÚöì²–>}Å•5Ù†²Â-áÎÆ«FJ¥ðJÆÅËÚÏ¢Ù‹³NÙõÞ±™SëaÖ¹¶ø²–·n0:Ëڳцq…•µìè+®¬É6”5n ‡_~U½lú\¼¬ŠfäX“wÚ§ŸÚ¼õþrü"ÊBËZÞºÀ(+k;êÖårae-;úŠ+k² e „[ZŒ,<m ??œp&^Öž¨1-˜Ž~þ|êcñ_B9uüü µAÿ“ñ9/6\/yU–·îœ“0ÒÊÚCÁô±†X(¢¬eG_qeM¶¡¬pKØ~ûõ·Ú†3Gƒ _) QÖŽ[:jãWÊåi¿Þyðß•—=7¸“ÕÆhßÁ¾Ç«ƒKÁ`}!e-oÝ9'`¤•µÁô‰X<VÖ2¢¯È²&ÛPÖ@¸%ý! ³=ÁËúυ㇇*k¿ ¶Œ{*n 3¯òº#x½ ¿¶ïÖø{ý)ÜÛ^DYË[wÎÉiy¶8˜žæÀOË–µŒè+²¬É6”5nIókwYöÈ·öŸí o\^Tª¬•Ö„· 9P‰’îñw£›f®„G¯_ZÝñéÁpzwuØ=)~wü;‹þ|Õ–³îœ“0Òòì‰06¯¤ÎìEå"ËZFôZÖdÊ·¤Õiw#žÕ6tYÛ?©v—Ç/½Þ¹ø‘¡} +ðr–¹îœ“0âò¬ý?ñH˜³|q‘e-#ú -k² e „[ƒ_Þ…û{ë÷ N-k¥ÒÁ{Ÿù½‹Ê%‰Œ™Ü{¡^ò^Š6Ï( Ð2×s2F^ž]~³ž Go.ZÖ2¢¯Ð²&ÛPÖ@¸5ê^÷Ò–ðÿþÓ{'ÆgÒËZ©¯cV-.¾¹¢-1uÇ#¯EQ²`ìãñ©ö“ ÃKþuhëÎ9#0Ϻö…¿[›¶âB©è²6dô\ÖdÊ0Ș/þeuÇö㛚>àÊgzÎwô|ãã)S—vž»bó?è4Ó¾m{ÇƃïùHÖ]üɸÎÍþÕÉó‡î¾Fïž}U&Ë6”5”5e e @Y@Y@YPÖPÖ”5”5e e e @Y@YPÖPÖ”5”5”5e e @Y@YPÖPÖPÖ”5”5e e @Y@Y@YPÖPÖ”5”5e e e @Y@YPÖPÖ”5”5”5e e @Y@YPÖPÖPÖ”5þŸ¼V.—'솻+ÃòªÞgf帇†±ÿüóy{,XÊÿ£–‰«{²³sú‰ž3Ã>4ÿ/kåß eQæØ@%: O ×]ó²¶öÖq3¯ã²Ö×;¡ZøÎðmæ/SÖPÖÈUý*íÁh¸¦2º¥ýZ—µ–•Ë×qY›¸¾s¤{‡6õ—)k(käûÁÀu—ÃAÿäÊ譼ͰÊÇØòõ\Ö./ ZZíÛµÃ8¶©¿LYø/{÷þEyÇqüDhú<\‚²Ø8Ͳ[ ‘‘n\@CÍE.)‡#7Ã%Šz¨"ÄTJ5@EH½a€P#÷ö¶¡Ö …ˆ”{¡Nç;·ÝÉL6"‹ñýúeŸç;3Ïì÷,ùøÌ>Â:·VòÈ+vç3éüþ~†9ÖÜÜÜÚ3ÂÚ99qþW)êÊËW¥YÞFXa Ý™LûÜîì6ÚMy?ø9é°¶^ÎûiŠÙN­—ÎÛ„5ÖððI@ ]1›}rŒöqiýrKI8ghÓŽ‚^Înß>– ©}²&¸à†©Fcºjy¾2-¿âYg_Ïps_ƒU˜yhï¦íåùÃ7ºãÖl^.›±¶W²ÂZ…qÚœQv§9ªõ~vçöïv††-‰üÊîû.5þÊÂÆ˱}YÑñSŸ :–°Â:Ñ éâÙ|JšóŒF£»¼Æ¸6+Amu ëÖù‰—RËŒ—ë€mÉ k›EV¼Þ3ªCr­öçF{wð¥zÃZEÇÇÖ@XC§ÎJ>Ù¦fÚw4Šõ×ÿ;Ô^ãRgÜ 0›¯à kféiùÉVÐp±HÖñ2ZÕwrï uLKrÂÚ›rÚý¾òŠ¸5"Ëâ•Á—ê k—:>–°Â:Õ6ÓÄóö¤R¯Mµ×™—™MPj@Üs³M¾‚7¬-6K#Ó~¸X¤Éð„5}[ý,6µ&9am§œö¯n÷âëVÆMî,šRÕF»(øR½aíqÕ᱄5Öй¿È}·$^4H7%_úY ݘcýÈ쌳„¿ÃWð†µžã.idºíŸ\)yzÛkÄ$ͬՄboÁpJ—×K¾<7;‘%/µ]X³ž^x,a „5tÎ\ã‰T·¥û’<êz´[+c\—§©Ys.ølÑÍ€B¢°æ.id™ÄïãßI£e”ý„î‡ÖT­¼íQvÇ|êš­ãq¿;“ÇÑ ïJXûµб„5ÖйTçÑÔÖüÏ £õ„4ª$q[?ɲž=ÖZd´Öú ‰Âšo83’½*•­NC]¼vq‘þŠe`kéȬ$…µ—å¼%}Ìv³ù5yËÿqJ½&+:nkî•©°»ౄ5ÖÐ_Ûam‚Ù“ù®#ÒxR[ÓC7J×l#8åÊjËý…DaÍ7œµ˜d®Ê3×41cL<€l…RW¢NR꟤ç¬Ù)±éhucàIifWÅ7¶­ÒgÖ™¬ëÖÜ+‹kAÇÖ@XCW>VV‹^6{õF3ýÚØ}_Ë4ÞkTþ&²O|*¯‚ š8syü%µW©²vè˳ۖHE-áO[¶ K'-¬ÝÜn¯‡b½äì1«æœ_Æ©-+Ò´5—ÖÜ+‹kAÇÖ@XCäUš¹ä;«÷…g‰FY>5+Ö_="¨ ¬ù‡û³Õ,Qj^QlË7rб N÷ðê$…5u>3îý¦µ«/ÄO¨ÂZìÊâÃZÀ±„5ÖÐwÌ1ßî½dçŠü/õ2j&9Y#{• *$kþáªv™ý°Ñ\ÐyÈÚ…*ó¨›s¬þœ¶Ìd…5uëŒûLu±G®­³ki³TGa-vež°æ?–°Âºbž1Þpº#ë sJ§¾þQJºÖéæBŽªåÃ…eåùõGÝ}¼…DaÍ?ÜÝƃ¡Â«—d=Éš½õ•iÑì-rÆM-˜.šúxªJ^XSjÕ´‰ù¡º“[‹{Åï6Ô®K{ëj¤MuÖbWæ k¾c k ¬a @X€°„5a @X€°„5a k€°„5a kÂÖ?Ý°vM>ît·g®™//;Gîõ©%Z¯ñ—±=Ø{Ÿ.ï}„Û.Ýën÷ˆtûñ9z ÙÚ*:X;ív9Ë(Ì <`ˆ±eÛ½ •à{°ã³x¿àÄ8iߊì G~ã~ V uÏ©GKaÑŽÒòÁúÚ›{×imÁ£ª®]fž+¸ìTcLRªÀnŸ zRXÛ`þÒ7ñN5‘´¬ûk›µ>Pž©õºšî kËËnù3ÎÆt£·ô2Ÿ3 G‡5SÝ¡îkž¡|ÞkXXgµsœ/ÏóÚÖ2Ìf“kýBà˜ÍËBÎaã¿"¬ÐóÃZ‹õ|ÿ„;í¬ÔúþÃZ[™ÖóêUMZOëΰ&âhýk»sZ:ù˜?°¦sÞï®°æ •à{ðÃÚü wì Ö¶boX»•¦õŽH©Ö[Í­·ët4%hÈA+ãßç‰<Â==¬}hýŸp§~úAÂÚ­óSƒ6\Ò:z«;ÃZ«üÙ¢÷›í§¥9›OÐcÃZ(ÓP¹´ÌúË{°0T‚ïÁ.‡µ#ÕÕÛÔ•°LùŸ® žžÞö†µ­ßê¥6jÖK¶¾§õñ ïVÚwkÚGΊk£ J kô¬°VSdÿ³¿ç k)åZß Ü2¨+ñÜKXSÏIa¥$ÃÔ“Fkè˜Õb¦n¯:îÿúg„ +ÞÉý‘žíQy#ÌU£ÂÚ«™;²Pþëí”ö±æææÖûkC%øìø,íÂÚHiÈï‚K'+5Y²Ô.s[½Ñš0ÂrL©eZïVjQ2ßü¥ˇiÏ­5 ÖȨ9nÎ; ÏQk\cÿtöæ•xfÖ¨ÈÁ·cÀ=ú!ÂZé·ßð{€B¡P(OÀç9>ˆ?VV ³}•mVi§-¦ÖæÏ«è;Þn¥¥âo“ã–¤ïáÔOCíPö¤×ˆïJ“yuÙæÊj|v~©d· X^vèÅrSý«?›ÀΑIÖ#SÈÑ× ºg͘*Ÿ)Û^’2=mÖîÃNa^ i5ìa¼ ß‘­{ƒY/m)k¥ u´ž‡5Zâ{*{óÊ@<3kT$a­ ~loI‹Vl47Öš œÚvS.K¡ÚAõ¤Ûúé°–m˜my?/ ~e·”ÒFBÞç;kƒâiÞaÓ”gÀ}:Éb‡ý”öûÂZÇhðå˃ñ»€B¡P(ÀZo¸øþÍxp!6‡kÛù•‰¹üœ#ÏRogÚøs”Å?{Ÿ”[ÿ>Çj×$Ù§ÍD|}€­¸ÐUÙóè& kó«Äý|±§·"Y<1Dƒ5rª®“«ÎY¦ý§EƒÕÿ6w¡Žö‰ª<™É/oÐ$'§qG²aaáµÑ ù·¹Þù@YCCCçõÓö̬Q‘„µ *7¯lŒÒÌ€µ†kP•FS.KÑ ¬iÖO‡50_µ¬ ÖvZ¯»¬×üs+.ŽçŸÙLiJl¼Áµ­œ (#Ui¿M;µŸÖ"¯7ââ†ÒÌz²RÏ#ÅÂ'ÿ|eÛlÍ°Fé»Èn? D“fo¾À:vÁ©…ZXÊÎã7à¾Hbß-Å“Eè½ u´ž†5BÆÁ¢“`Më-š¦í™Y£Ú k¾Ø%W€{²›UXÓÍ ‡µ¯áÿzU8M¹-…jmX3X?Ö ¥I‘‘wÏ9„ÿ#|EÄ݇ÛÈJiܺ÷é-ŒÎ‡Ü˜—òM™° Ü›¥Ö¸#2îð8Mî|ì1Á{Ä©ÎÑTfy«ïÍÔ…2ZoÃZäkJßI°¦õMÓö̬QµÉód„Y‰Qº¹é'žfSš¥ÐaÍdýtX ¹ý±qÓkç.a/&%Ö¨”@iÁ&2ÕÏQÛÛNÍYPÖÖP( a-Jaíüyå¿ IDATñg~iM¼“Aȵ43¬1¼#?Ãu ±!yk1ܺøÃã©‘^Vñ+Õ’ÞJ÷2ì"àà;¡ƒÚðëÃþâ¹SÖx‡#ÁO¥v™?{Ôk¤ÚyB^H“!Qê ](£õ(¬A¤ÂÂÜ…ÝaÄ=Ym ˦ ^Ú (ÜïØÞ¢oÚž™5ª=°–7nZ>\[ßË®–¥›Ö…×”f)tX3Y?¬‘ž<žmV\Èï¥áÔyˆi+ÂL·~Å÷gSÚW}¬%=†°†°†B¡P¨gÖƆžþI|Ùk}Ì°Æèì´ÕñÈŸ Æ™ÀŸxÕ‡,wúºÊoäÀyEuHk&‰0ØA‘‚ Þ/é0ÎÙ[m†5Åy!‰¡sl1t¡ŒÖ£°æ((¶?ãB§•Ò±½Eß´=3kT{` ¶C§$S{÷\Á(ÝÜØ°FÓÂkJ³:¬™¬Ÿ ÖÈ'»³‚3»^p‡-J ÏTJ“|äKf×,8 ª·×>cykb, …B!¬E3¬½ë¾Vÿ¡ kÝlï£MX;¡¬-§Š@z)b%Z쬕=ÖV}'ûZj¯«¾KLì× ]°¨¹P¹³¶ ¤ÃÝÖëgÝYSa Ưõ°UcèB­çanœÛ‰°&{‹¾i{fÖ¨öÂy—åH|Õ kš¹a°„Ëj§)ÝRè°f²~FX‚x’3CjìÐ(ò3ß²c“|×M zTï˜>K4X9a a …B¡Ö¢Ö~uÃZ–ªOÛxô¿p`íkåÖ8=/ üï"Wl½Œ=à”"{Œãà8å«oYï×õ–£øØkUŽO”Ö6¬Aù¿ä±](£õ>¬QúÏN„5Ñ[Ì6¡»Ñ2mÏÌÕnX#,Âcâ" Ö\æ¦K†]“b[”6šÒ-…k&ëg†5¶EVççY'3ÞœP\Á‰0ôd9¥ÃŠ÷í#d°ö4’ÅXÖµJ„5„5 …BX‹ZX+‚…ãõÉB†Œþ õûìÖªì«e:¬ÁÝ5šÃ A<´íxy¼(øÖŒ¬8×¥ôÝvБT‘@*_^*’Mè°–cß´c.S°¶Ûú­_nõÎ4u¡ŒÖ£°&r@í_ÊÏ×:ÖôÞ¦Ê~†GË´=3kTûa°<×?©e07ý¸íš f/&Œ¦tKáØA k&ë§ÃÚ¬­ û3¬Ûx@HŒuR5v€‘L«Ï³D…µUjƒå,‹vWV>œkw°†°†B¡PkQ k«à}ùnµCâ,¸ Ár°2X+†gé$Ók› R~d¶Î€èõ]CñÇkÉ VáAÀÎå>O#+]ç‹TÌ:;<¥kwýÒcéFÛ†µYÒ¥)ƒ~äN¢ k,ftÉòL°Æwº?ZÆé­%.ü¹i•Y}HêF__õɱªx;„ ¬/QÆT ѶU{5 SÓê°Æb÷Ó¥ †Ò0`ͱûã¿¿´n‹ÐE¦.ž"Xc¡¦w¬Ù½=iX‹ü´=3kT`Ìeaú_T÷¼ts#`±W`MÛMé–±ƒöaKƒõÓa­,ŒPeXfŠ_!ÇèÂÒsëí¶ xˆÒ‘PàFŽ¸Œr¯yÂ__„5„5 …BX‹VX« †¦c c–7­—Nê k_ð÷¹FX#3•ƒiçˆÖà¤ã6(t]§<—Ïò\w‰—³…¾ 9åvÛ k å§W¶ kdþ+Nƒ×]mÏÌ X#?ÀÏéšO5ÝÜHXó%ñ=ö¶šÒ-…c›qºõÓalqž™À*2V:5õö&Rú§6kˆ…Åymº&}#YMÞ]OÖÖP( a-jaù?:ïÁÒpœÁ9Ûû;›$¬í“W„L°Fê%ÞuŸM4XÛ`•°Òà›ÿgïßë~}8”CÚ”VÚ R=$> B¯ÆF ­ ¶RZ£ר ¨Xy0€EZ%Š–ú„Q+­ â%Ú¨`hÔ>¤íŸÓÝ{ØÛåfs aoö–×ë—ÛÙ/°7’eÞìÍLù0ã;ÿî ©8¿ê»ÖÉ»½çò§ÄZáŸ×õü¢ësðX+üæµ¾[|¼ õ%†Q¬ý£ô?ë7Õ'kG½Z3ívÃì5'$ÖNûVì=c¬œQÞnúb­çÓ°ŽÁÿ¨ïý1ðî—kÝ—&éþ­Ûz×.x½÷™ÕËË¿¾T‘Ëz¦Þ»ä_Ê7#¹wwA¬‰5±Ö¼±V:îÿrÅ;KOtH<4¯uÞ´-ÝW*ûFOÉ=òZÛ•Ÿššk…ÿ®¿íÞÖŸûpa`¬M-Õ;½W,z}õäY¯/ZÖs—µÂŸcùè¤Ï÷Ö\9ùê™÷=sʘÇŒNµBËôËÇÏšyfKáXb­°ô…5óZÏ›¸ù÷5^bøÄZû+¥¿£s†(ÖŽ~µfÚí†ÙkNH¬Þ+ý­7º*£Žz»)ÇZé2ñž©ƒþQÞ)úß+¯9yô»_Z¬¶Ì½¹mã=‹ûãkíò5_o»ôÉC¿ë…?é{|ÁÎ;ÚæÝrZÊ~ß>çòKÚV¿³õª¯ÄšXkMkCfNñøaeúÒc1ÞÜâÀ`ÐhX2®÷G§vÕ9Öj½Z3ívÃì5Í+å>kõ&ÖÄ€XkYrmŒw¥®ü½-Æû UίÖ(ßHÃì5bM¬‰5ÄZž>ª<.®tvŒ³žq\-$¶¶ çWk”o¤aöšæŽµ?vu½1D/wCWW×x±&ÖÄšXËêð¹1®K[˜Ýw:Çc'Ÿ{ésow ïWk”o¤aöšæŽµXëªN¼é.^*ÖÄšX;.Gb|6åé%1>õ¦Ã@¬‰5±€XËÉÒ×â˜)Ÿ~,ƃŽ ±&ÖÄb kbM¬€X@¬ÀÉ¡ýOOŽo½w͵ǵ,ÖÄšX€z¸ëÚÞSôfßyËb @¬‰5¨‡_;lÌìO®,~¹zeæe± ÖÄÔÃîb…ý´ø¯tËžY1Þß’qY¬ˆ5±õ0õ¹Ïïi°¤5Ƴ³-‹5±&Ö .qìªÞÇ›b—mY¬ˆ5±uñvŒí{|8ÆxC¦e± ÖÄÔżRÞ˜ãâLËb @¬‰5¨‡çcŒËÊ[Ób Y–Å€XkP/kìéòÖ‘'fYkbM¬@]ì-Ö؛字bŸeY¬ˆ5±u±'ÆÉU[qA†å*£—¤{!„ݧÐÐÄ4š÷c\Ý¿uU±Æ–fX®ôôµ1ÝïBø™A Ö ‹ª~²qT±­¾ša¹ÒícÄb Né>:{9Ãr•ŒJ÷nN…áá«’äÖïš'!±fOŒmU[qj†åcrfg9uŸá¡}Dçúm]l¸ÀˆX€¼í­: í¥7fYk4™m!œqvÓM±&Ö oWklByëHŒÏeYk4—•Ÿ…¹›¾ÜFÞiˆ5±9{¾XcÛË[Ób|5˲X£¹la_÷…°×,kb ò6.Æ»Ë÷Ǹ8Ó²X£©L8ë‹ËB˜tƾ)fXk·1¾Ò÷øpŒ1É´,Öh.I2£kIbˆ5±¹[ãäöÞÇ›b|jA¦e±F“µZ²·3\•¨5ÄšX€ü]ø‹¾¶ûáZcìʶ,Öh¶XKnKÄbM¬@#(]ÿ׳láøÇõ^§ÿÁ™3g~­ö²X£ MY™T¸Õ½Ökb òv}1ÇÆÎ>ÿ’â—Y7ô>7¢¸±²ö²X£ù¬:0rT«}úêN—ïG¬‰5ÈÛ­±Ç¸+ c-mY¬Ñ|n áþX{8„9f‚Xk·ö#Onl»ã¶õý?äXk)Ëb¦óâaѺþXÛµ9tv˜ bM¬@Sk 3BøKw¦|¯û˨Ö› bM¬€Xƒœ­ºþ¦ž“Õ®éì9uíÿ8i ±&Ö@¬Aîzþ±ç¦Ø‰Ë÷#ÖĈ5h V«Œ5µ†Xk Ö AZ­tÈþ‹Bš bM¬€Xƒµ·—û¬ãÑùÛ˦˜ bM¬€Xƒ¼¼øÙ´%IŠŽEûw™bM¬€Xƒœ\ÂÞ´X{¼3Ü2Áxkb Ääâ‡!ÌOR}Âͱ&Ö@¬A. ×\”kË^ ‡Ì±&Ö@¬A.þöñô¤† ó;̱&Ö@¬A>*óì‰wì®ê5ãA¬‰5k{«UßgM¬!ÖĈ5hˆVKf„0)Qkˆµák#`„k4ƒ ƒÇš«÷#Ö†S¬Eˆ"L¬Ñ¶ïÿpWUš­Ùycu¬=:òSsB¬‰5ÄšXƒ¡4zG¸fKu›­8úþØsÃ9O›bÍ9k Ö`ÍáP2ˆ®Ö›bM¬t;pG‡! Ö`<ž]2X¬m™6›bM¬”´Œ§›b †À§›—'ƒZ8b”I!ÖÄ@ÉÚç›b †@rŒL ±&ÖÄb òµ ïïkˆ5±PÃìx™! Ö —V;ÂB­!ÖÄ@ K/6ÄäkoŠ-Ökb Ä ¡ƒû{¬=¸ÿ2C¬‰5kP«v†E)UöV{RžÞöÿÖÌkb ÄÔÝÝ!|?íÂ_ì[—òìúö™bM¬€XƒºÛ¬KŽÙ®Â ±&Ö€“Þö}Ïb êkÒŽ·’ nüè3C¬‰5à¤wáêxÈkP_Iff†XkÀIÏM±k Ö@¬ˆ5khµ ë:ÔbM¬Ô°à¼xÄkK¬íÞ9w…ZC¬‰5€.zäTC@¬Aý,ßú~­[†Zk{~ä"#ˆ5±b êæŠÂ鵂lF“j­m ëL±&Ö@¬Al aÛñ|²ö^g˜ïfkˆ5±ÀÿÙ;ÿŸ(Î<Žo¼››¼“uQY\D¬‹S…ð%ŠÖSFAÑ«´ÅïE ·X¿B­\ÃÓ‹U9EK” (šöÔÆ/íÕFK©âihÓÒä¢ÏíÎÎÎîÎ,³C…Ý™÷ëÆÙyžLŸ}žÏkg>ÏC(k„$†&ŸðØ1vÎÚå±sÖ^ Âr¶¡¬QÖ!„Ê! !wû½ûc/ÐßÚ9ög Ok Ù~„²FY#„Ø™?üm@(k„$ÇkÀÖ#”5Ê!ÄÖ¬ô»€PÂ(k$„j]{¤³›D³ |Ïv$”µä•5þWBŒ›MÀi²FH"Èí|Ût]l… ,Ô½àà°¹ˆ-I8«QÖ!„PÖ(k„˜ÈjAØåx=YsŒ Â[’pV£¬B¡¬QÖ1‘C{ôUì{AX¡Å…áSílIÂY²F!„²FY#ÄLâ/ö¸0£ BÎj”5B!œÖ(k„$™«Ùpùþ»i/·>|ÑÊîÁY²F!ñZØœÖ(k„PÖ&‚²÷ ³•©xœÕ(k„ÂtLa+pZ£¬’¼®f[+¼Ž0™§¹ƒg5Ê!„èS œb+pZ£¬b2¹Çœ f¹Ú¥Ý9–X¾ß}Ql ­qV£¬BeÓe‰f“ ð°#.:#ýVh“ÛPñ+û g5Ê!„èá.Á]¶§5Ê!æRÿ–ðð|| ;˜¶v[ü«.\Z`ýþ‚Lµ¬¥¯fOá¬FY#„=~(f#pZ£¬b.e‚Ðlà™YüM±%ý—¥~›¼„{ g5Ê!„Nk”5B&”9W†[Í“5‡órgÊ7I‹ÖÕ°~?» g5Ê!„Nk”5B&cK‡l„/í² ä±²† öÎj”5B!œÖ(k„$Ÿ«9. ÷ Øeùþë±d­‹]…³eB§5Ê!I(kvÚkíãX²6“]…³šÕe- ðNþÞÕHSŽ?«^V’ž5T}En#f…ŽÝ7z½éu9M쨄L>Ëï¤ÜF7›Þ=~¶wÚ÷9Úh(™l)H0P[dáý5•¥®lߟÇ3"*ÔW7zÓK÷=½nyçâŠõ{†6Ž§K7´–²FY#t5ËÚÚP,YãÞ1”5«ËZÓlGœìæ¾TMVÏ’¿~k›¢ƒ%|:¼R¾"{ {*!“Mn6Ž¥Ö»gÊCÈ7ÏÆP¥hY‹ ´²§¶ÈÂ?/‘/í=lxDTXZ©:ÔÜ¥ò™Û¹”5ʱŻ¶·&@ÖvÕ¤öj=±d;­QÖ¬.kÿ€g'¹µ¯ùƒPhRëV=nû±Xñįož>åú]Íël«yÓÿ§–]•É*Rî‡ÍŽÀrc÷`~¬§a£f€ŠµUƒƒƒÏâÖY¸ï# ;§­Ë¯l+‹ Žˆá»ªnýÚV}Ü›‘Îô{àI;Ҷ΅ÀFwŽÁÁ#”5ʱ7á‘ù®¶@ªSºYÚbÉÚ&vÊšÅe­ûÖ!srŸŒo<‹ph2¨ üèì¾ œV.qÿ%|ú£ÿŠEþ¿E?WØU ¡¬ƒ™˜uÎÿwÿ‡1_+ˆm4T„¬e©M=º |îP#opDTø¸î–F@ª¶øÿ>yRrß—´ÙírÊeXƒsiÂÌÑzwúyÊeXˆŸ‡v~\öÉ8ÄαkmYJ7L‹Kíjíì.”5kËZn6* ÅÍ@èŒ §‹¦¬ª*ÌTEͼé%•»å/B)¾>½è:ÑxCÎÌh¯©››îý¥k‹ò›p¼Zfú¤`ŽšüÌ?¹¦¼åXXŽn·>mjƒGGárÛ¥GªÓhLC•c p"й+Óë×ä1+ÒÚ”÷äÃ|`»êÓèÑF=@ieM¯¶1 ûÏõnýÏ×òa'ð±¤l?¨®¡¬QÖˆUÇ»+a¡}„ÌW¹šçkvÊšÅeíàSiÒïµ·ÝŠ(ì¿ s¿ ©×Tù'ÞâÀ‰¯|AÕÍ`á¸%b…&'‹Åphò.Ð*Ò< †ë‚¨„O{!¿tµø§]:¤:Æ4Té1ò'½»2½~M.³"­ÍöТxPzFEôh£ ´²¦WÛX…Ý•7㈱è÷÷XéYûNQ<ÿ~NÛ9ÊeØ×ÕÆ+k©nk¯2£\_UÊšåeí2Ø¡ç(<-Š¬Õë=([Oo8›wùÿíéªW·+Ÿ;_"øªâ³³ð¤Nûqàš¸ n‰X,h þÎ,‡&_¡7ª®YÁKò#†Ã§«À õ}].œè´K‡ŒN£1 UzŒ¡üÁÄ£{W¦×¯ÍJ¬Èâ7“¸·®9]›Ì_¦žðâa‡eª)z´QPZYÓ«-fᢖå€ÏmlDŒÅào¢øPZ.©fŸ‘Nr«þËïütÈÅã–“phℲeS›¿´—îÀ‡îÈð©áO¡½Š.Ø¥?F§Ñ˜†*=ÆPþ`âÑ¿+Óë×ä¥BVätä%ñkúûÌ^ Æ\"~ÊÞŒ¶`õh£ ´²¦W[¬ÂõRväIý4a]Y» ,)<ø®šÊÞx²Ÿ²FY#6u5‡cã#{íŒ}¸£$8òpr0Êšõeí}9oÉDV¡"kÁí—Ýnå‡èoƒê•Ý­«c3Α5d \€9`í¡áÕb¯¬2î­nRÓ2´µŠ5GÈÚÝY‰È:ƒ¬}-Áñ½¢ ˜[©×7hpSú)ÒšœŒÜæN)kâ‡,‹Dµ¹«0š>ТäøAWËZ"È Q‘y5 ²x÷Åb'Mƒ\*²WûxYbwBlÈšenæÄ­O7Ò6Öè³OWÖÂÍhÕf½sÆ_Uï/•éȲîÀ¬VïmSé:[/ÅvÅòýCÖÖÌ_·\EVùÜ kCD*µ}©ŠŽ+’Õ«òâEíûéè-ÞÞS¤14Ù1cJÜ gˆtyÏ ‰S*#‡ iŒ.:ùçøŸà“í®¿­ÂhúB‹’âÝ,kºX 'DE²t¿ j¶ÊkÚÇ㉀³0æÖ& Y³ÌÍœ¸-ñJ¿ý"£2•µ¶È-ñuGb‰Ö í¡0²†¬ ]m¾/yîÂêÛ²†­²æY»,¢ß:EÃõ²6A¢«ZDØ[!:Y½Zd¶ö^ÞƒÑEôzO‘ÆÐäí@<êcy@鉻JeØ´_³"qOÛµX†Ñô‰âÝ,kúX 'DE"kv$r;úa‰Ï¢~3ˆYë5·Dâf‘¹Ç¢ŸÊD 2”µóaW»¡ß°PdB÷)üYCÖÀ¥²vÖ<Óü¡~ÿ4¥Ö!k€¬¹RÖ%„Eø)6§¦[ÖÊ_©Ž^·dë¶êõPdAtÚؤñâû{:)¼UT„zš\)Žüü¦E‚KS ŸüßÇÍŸø†»ýJ´œ™Õ§Zt±¬bœá¥õ IDAT‰¬Ù¡9 s#-Ç'ha_5ÍYËZo¹é¯9¹Óä?-òí¸ôZÄxnËt1jñj›Ú#êDÞ-GÖ5p>Ãÿ½ÓdUfY+Ñ°cÅâ,ÞËvåå”7 ky.k÷ƒòfî{«Èj¿NÖ¼³D–-.® /‚Ñ5ò’ÕkÏ‘£Ïì©Íë5Ed‚YY/C“æ" ÎØΦ¢uá{èà’üþ¯òÏÑš76zíËZ/¹é·Ç›È–vo†²Öb©E'‹—ßÓ=ö"kÈ8ŸiJ½l²ª;©dí¢mY¬T%%ÈZ~ËZ¸ë_dØð©È‡Yó»ûÕ¦Ù%SÞ×ná›#ЬøoYѬ¡7Ÿ¤›"Yózö õù†Öwz­dÍ»¦u}YÑÈéó& ¨k²ÏcÖ¬ãÝ%kɱ@,*2êS++vÎΖÕ>Úâ÷æ@ÖzÉÍxMëµEeWïóf(kcÅ,ka-®o)­ýi×h/²†¬ ¸¤Î…LVÕJÖöÙ–µŽê—rŠµ<_º¿_XßÂÅåY³Žt•¬™bXT¤}j‡÷WË͜䜶ˆÈ²ŽfqÓ³U=M%kmËš§R5R‬!kfÊK¸¸#k–ñƒ®’5s,ÐÀŠŠDÖúSÖrÛ""kÈ8š®S)¤ê¯©d­Ñ¾¬yN±Â kÈZ vK+—cdÍ2~ÐU²–"h@EEÚÇ_$/!kùÐ""kÈ8š”Nõ]*YÛ¬; ³þP(;]£ÄYCÖL„‚ ¬>ä Y³Št“¬¥Œ˜Q‘ÙÇ ûQÖ¾(,,ܘ?-bWaá3d Y·¹šçB Wó-×°H©l 5d-G¬ósm€d-©üiGOYCÖÀe²Ö5Â,kŸë˜¬T%²È²¹–µ‚¬!kàd:Zç[UÉÕª¦yród­ºn-%Ȳ¤[CÖ²¢f¦šgaT]W“eíKÃþÐõ;O²”µçêøFÊèÕ5@Ö5KÂÝ*+¥Z¾=idWÒþöl„¼¥Ô3ÊèÕ5p9Ç(º5d ÀF#:HÍ<`éTí ïXÛáÉ—TÓhJèÕ5p5_Í>L!Э!kY3¶¾é|NÕõ둸ªmãÉ!ÓfLüˆÒz5d ÜÌ1‘K”ݲ=½¼*­cÕ¹…s[žÎü¬Ë“SB”=Ы!kàjjDöQ tkÈ@öxú ÊèÕ5p5Ç5º5d  ß\íÌ*l èÕ5+ž>£èÖ5€~‘µùJ]ÁÖ€^ Y°`ìǔݲ%«Bv\k²R•vÒ/³”:z5d 5d ™÷©ký)kªiµôjÈ kÈ@+”ºÐŸÓ ÷+ÕF-½²È²`dI“úÙÞzüc ì­Ù¦TõôjÈ kÈ€÷ÎÝ™ïéWŸ»³zz5d ÜJqý$ n YÈŠÐZO?Ó¾–Zz5d ÜŠß'÷(º5d +<ùÕôjȸ”^ŠM·†¬8ÙÕ5 WëGYû À‹ä·"/Q  CÖÀ•®¶¼½ßl­üñÅú¦›+«ýT$ kyÊß”·(@Ö2æöɶ5+t}Ð?mgÒuaæg?vó0‰1~ð8*5€üäÁ<´d c4©[¶=k‘R;mgrX©Ç™žýðé’`Ã6ª5@ÖÀ%”ÿ¨ÔRÛž5Y©JÛ™TÌPûÆfhšGDÏÔv*5@ÖÀö\òK)‡6_Ò· ‘HÁ«.Œ(¼†ý”xÕ\jRÄ—QÈ`j: £üµÆÔXÆ­Y>} ÖÖH!";÷p,ÛÖÛ÷cÖ&Ñ°’Öz5¬­ƒ«Vx)u ‘©k®jS'ŠúÎð6é^‘k+†òéšþ©½GŒ2_2°°[}žÑZT¼ÕöOLØšÌXGãWÜg˜tóü™€ˆÉ²;-Ðûq^_6…n3Ïä RoÒ @*üƒÏ<+~B^Š\¼L63uÚ±‰o•paÜš…àC°F°Fú3ÂZÏ0„5ä ’©†Œý!”Ü­ÁA¥x Hó¨)^RŠ7Íf¦¬›05Â…É-‚5‚5±Ús£µ>Õ^ßžÑ[hXIkÏ ÖÞœ½Û1¡jýùÈŠðÇ 9ë6 åßâòâsªÞ /Ä¥`¬ò–}Àkâë5˧;·—¯ ­SmkŽvNÉœ«4+\/ñ£“1£ë³èx œ¯®çS7pÄ .+Ê%XSrÖbÇ/VÓ¸/•çÓ/”O¿v¯E¿/¬Œ4wsŒkç€CJMÐ¥tj²KÕù’®…ݺœ„¤Y›Êú9€!v¶›*0`ö’²od»('Ð0é2~òg!&kÈî´@ß d¹ó63€n·]!ÁšÅõè$ì %··”âDàsÏè÷~§š3û60ÛÌTƒ5c¦ÆB¸0¹ …àC°F°F ¥–í fX:ñ5kýØ‘íÁj3ÒÀ’Öž¬ý6Vù·›°T…µ}âácž?2Z®¹{ÙÖŽlWÞÛ´J>Ÿ¸B91ýÖ–9ä3óŽû\8!QKùÛQÝÁ8ÌgNºam²œåÚ:µ–“ÿG¸n_ÿt`mB[ ï†5÷ª TÉ¥ ĬæÕù’®…ÍêÂJ±°Ð˜;66,ü¹î‹ö ˜(ž`ÒeüäÏDLÖÝiÌ4-,ÂAmñÎ39ˆdª`N(ùû¹ºyˆð ŽÜ">&¦¦*¬›05Â…¹oþ‚ÁÁ)4™›ùiÃZ7×f±# ƒ¿VæUç#h\IkÏÖþÛ ,ú¦}ã~’*eX[Ea$¿2x”|ª¦­ú°–¨Y‡s“DŠ#žÞ+ÐÝðü ç…¢.Ë`•„‹‹óEˆÊg¾œÇd$ê,…$'Ž†ÀÚ]—ëD~MµàÝVTß²? ¬×Æ?í§ênXû˜ê¾u]-›8ñ7^›/éYØ­³@»\Ú©@•=ú y¥Ri/À‰¯LºŒŸü™@ˆÉ²;-MKÒ>ýp¼£y$õˆVï¡ —®Léå°&P¥z'ÄÆ|Ô,ÝŸ01UaÍØ„©±.L}ó|ÖÖH! ©ƒ¸Y¶ÒÕåK¶6wŽ›9ÒrgŽæwuwýÕû¼Ržª…îí|,*½ZdˆÐ‘å¤C'IVÔ*`÷qSSÖŒM˜ áÂÌ7ÿÁ‡``úÞ¾ç¢IúifÝP;ÛËâ¸8%ÁZÐÀš‡D®y! ™Ê]õ5òú”k÷dg•ÅaŽïÒ‡5¤Ã°ê*>²Kµ»ÅoÈ`µD>‘¤z;s|q¡˜ŸÚ¡ïê/Jkl÷Ä3 ¬}/?jåM02«×_ÿ,ÀšÐé¯kåÕ†* I,¼…xZÔù’Ž…ݺ)?Ô z|‚×I—1ÏŸ Œ˜¬!»Ó™ ¨z×…Úò­WrPOhþS¢ÿ³ÃÚgOþsÞˆ¯JCi&¾X­–‹pRÏdo«¼‘‘‰© kÆ&L…paæ›ÿàC°F°F UpýÙ W¶Â_Ÿ¹³4J$‚µ`…µó@–Ry¨—a-A]ŽRwN_Ö$ªñü©âUà²R|èÄ"¬jkG¼|IëFo®ið ¬ÚmÍ1²Ÿ­ƒÓ}`í¡t|ZC¬r¸RtúâëŸXã×»~Qr³¸w 8fQHæ=æK¬…íŠVò|â©%íôAH™”ñ:é2–r{'9k(€iòÔu a(§iG^ÉAk½K3í±9(Ö±x¡Xyž£‰© kÆ&lÿparA Á‡``J[fïþ"¶ÃÚ§§×Ò(‘Ö‚Ö†»7Â)i6<^Ñi}Ê)ê¼ ¨¿ò¾{ú°&f–ÏYú@m~\aî2~Á*C9¾¼ëu»ø¢c¤€†ðüOus?Ôq·¥ â_°ÍO÷‚µ¹z< ¬—í’ȓ鋯V`íÃx v~þõ¸öM<ÿ`8–§xÍ—|-ì×uàxb¦Øñ¤Ÿ±¿ùð„¬»Àí^']ÆRnOà$g 0-°ÙsÛ”\ùö„,ïä ‚µÞ¥ÀÛîÕ«á¬AšÀjÍá~LUX36akü‡ ãÖ¬‚5‚5RÈî AÚ9îtOmßO"¬Ö|rÖªà»ØæP“–2Ô'Àòü%ƒÝ ¿‹ßTôròÒÙj£ÝÖŠ`¥f@Åž½5j;qö¼ÙxÚ7/ªºk°¶Bƒµd¹4Oòœí‹V`/h•ßž9&[¼Ë}ñÒC <¦ñ>ö‹CÎeUU¶?í¬VzÞX›41eÒe¬äöNJÖPàÒ• (º¦n¦Â3ÉAk½K]À;fŸë‘ À•¦*¬›èÔø Æ­Y >kk¤?!¬ìœcÿ£h˜HkA kÞ€sG„5es ':U«WþÏÞ¹¿EqÝqÐᙯµX]*+P”• ȃ‚"V0¢¦â#FDãD%ñF0h¼€±¢¦RSƒõn­FEADÛj|Ÿ4·§IšôÏéÎuwç²;âw†ý¼¿¸°gÎœ™çÝ3Ÿ3fÏY;×!IE^‚¤h¤jʼnJ±Zd,kë‰N‰¡—ÁDŸ7RU'y—¤¯›UY[d,kúcÑ´Ï’¬ñgNôí{sC¢h¶Š¯“š Ƈ”`À_höz´ôÒ  ©D_Ú]ûZiÑÝÃÂk]\ÆB¶‡JjˆY,PÙÄG¤®ã¢ Eƒ,Š;úùH|%Q{`ÆxöíùþnbIbÄ¢Š¬™1z'RwaZ›¥Î²Y±çjÑ}26µ—,k³ˆ4£ÊÚÈÀ÷Àº™µß˲ÆóŸÞZ#JÒeq..0³6‡èiY;¤ˆVõF¢¤Uü +É>4 ·“hYÓ‹¦}ÖdMá´ð¬·¡cÚ } øDNVŸJ´ÔæÚã­]šé“ÖÇÔÅe"g{Ø¡¦†XÅ;'0i™ú?SŠ9Q”µ‘Ïí½=‰¼‹È%:,¿¬Ñ¯Y³Í´\l˜¢Š¬™ ·³îÂtKd ²NáÁoÜ!kë"· kŽ”µ÷ˆjLdm"yšåßµH²æ•VÈ—6+l’œ™"Þ=÷§ ÌÚ?‰†‘µ%jvèçþqHÊÓ6, êúñ>ÑX ²¦?MûžOÖ ßk‡/=T¿ù¶]Ö2ä¡ð¯‰ºXì¢t6Ñçq™ˆÙvRCŒbA;EØK#”Åmôá (ÐAž„¾r…ö©†QÒÿ¬ç`B‘ú4WÐDtS~Y¬v| oòäZ)ªÈšy‘pû1ë.L·±Ôù@Ö kÀátsKÜ!k¸ŸðiÈše­–h¨ür]Çš²`Y;HôÔK²–¦*ŠDY[6TÙvø8,ÿ°qœü‹<âØÂTÖ> ´d“‡h{h«Ú‰æüø ÑÇdMw,ÚöYµ‚’»Jz®DxØÀu@룙 ™ú ¸+®º"©¬W=ƒöÒ"~1¯‹ËDÊö°#(5Ä&²é ¨³)á —›2kn{(vóHšøžè÷Þ%ò±TT‘5ó"ºw,t¦µYê| k5àl*ë¹.wÈÚJŽƒÏ @Ö(kÓ‰ŠNK/ouËZzsb¡G’µ¹”&•½@¢¬-§ª¯Uç›Ïó3H\¤Aà¦t#Ÿ©¬}A´ïGéåPaŒù,¤UÕDmêÈnyùöH²¦;mû,ÈÚ)”%;dÝ .£ ãÍKØÆ{Aë­¤Ò&ûøQ§A\&B¶‡Á©!žE,P³žŸL¤,Aj‚¬õ#Yã‡IwVŸ¦,P$ÓàwµJkEY SDûŽ•î¼6 d ²œÍ‡\};díÖ«Ü|^²æ@YÄ K¼w±2M¼1. k‚¢ ýbI²6GŽüLO—dmÑeqøœ’âý[Ì"êq'…FŽ'kÕŸÝö;0HX³ñVó&.[_Ðå½ÞŠ¬éŽEÛ>þ?¥¥ï„—5á)Ä“—“·Éh¼d^Â6æÍÎU~`3šd— ŸíaGHj(ÛbºÄ{^ö~3Èš‰y´ÒUCñšñ[ÿ¿ÿ~S¾Â/•–Š7MLÕκëŠêeÍ´6ý;ºîBß ™×f¡ó¬AÖ€³y½f¿Wµ?>qÁþZ»¹6|^²æDYûÞ?VIýªâìð<¢C|°¬ñ5>¢ì²Åû§RžôðàþÁàöÚ¡—óh¡(k_]©²áæL¹Þ·ËýŽµ¥§w#‘·‚'k|©¿òÍOV´Í&š]÷À_ñ‰ê±µ¸æþ©ìÿÎ^|Ç[’5í±èÚ÷ÿûd­ÆCÞ’Üây#‰V—LK؆ߘjå—ù>úÖ¾ŠË^/˜Ùa— ›íaGhj(»búì ’7gÈÚgT%Yû–þõ¼›´l\ë®±ø`¢©+n´\!Ú(Îþ¿M”$OìûÏžÌ4*ª—5ÓÚôïèº ƒNȼ¶Èd ²œMÍîJûµŠÅsÖââvåÞÂç kN”5>y‘<ÌóÊ•5þØL黇ˆþ yRjÇI ŒL_­lÛ%jZGÈ¿˜$…@Ìe?_$v”OìÐM ÜÊPÇŸ›å{#ÊšîX´í³ kü0Ÿ´‰gñHæ%l£€Ô™Ž£!ë¾(ݤ. ÑNÄÄeÂe{Ø¡I Ù Ôì@à"Ñ1åµ> â¦õí‚zqY+>UÑïÇâÕÈg([ZI¢å!§oQQY3«Í`cmwaÐ ™×¹ó¬AÖ€³arÇâŽËÅòý²;²ÆçWÜ?žäÛùä¨ôc¬ññ¯Mll\Õ[½_·7µ¥W¥—œçeYãÞÎ>â)Ïy|NÙbÀÙ…EU«ï¾/gÅÂÈÿé/_ŸZuœ›"hVõàÉÍšf­—0+=­±óÑUeÄYÖ´Ç¢mŸYãÇÏËIKËùÇVÞLÖÌJØÇ*U$†=·Ù†{ÁˆFH ·LÈ"ÚÀÄe"çgìG›²=¨‹%ñª5ÞÓú’Ñ̬¶ëXí™tï°óÎÌλïgvžIªåÞ$”5Ê!„ÊeØ…Ö&éùè_Ùvbôoß_͇­Êe’¢øÏpðg²FˆÀ ©é–ÃÌZ&âþ$”5Ê!$éôLäFàÏe#³÷ÝtØ„{㺸? e²FIAº€cÜ üY£¬"à°Ü›„²FY#„¤"”5þ¬QÖ±¹«ÑÖe²FIIº€;Ü üY£¬2&®Öóæ`mQt1z IDATðW²F!&vÍãFàÏe(ê–X£P$é”5Kj¿Ì½J(k”5BHêáæ&àÏe(z-Q¨%)ß’õ^m:ËýJ(k”5B!”5ÊImr^JMwí%kK—IxjŽPÖ(k„B(k”5’Úü!I·­¹8ñ_’ô±5Kz%Iǹg e²F!„²FY#)M@ȳè.ù{¬YІo¥7ܳ„²FY#„BY£¬‘”¦åà=‡í8þËnîYBY£¬BRŒ7R+7Ö(k„Dà°)ܳ„²f¥¬}¯+³¸º(‘Ûïæ òR‚mqfæ3ÖÛǨÁøÐû®šù…™ õEisÊ*V„ V¯Ü‘qº;=‡G!ÃavÞIµ6›å5;Œ’mϯ˜÷*YJß٧ψª©F$ÓFÜ6¡÷Šjì%ê2ÊePÖ(k„²f;YS8П°­Wÿ5¶&JÖB±Þ:ÆùŠ°¬•NÖÖvÙ^­db‰VrC¹'iÓ÷_ð0 dÇR«ÅæGy^–V“qФ‡eÍ<š¡fX²fMè½¢KY£¬ºmPÖl'kÍÞ™ô…på%jë-Fâd-ëmc\‘4º¬Õû€O¯Éñ+%—<ðŒßXînë[Å—Ö·±Èåk„ØRÖLòž2àú5‡eíÙ»‡ËÚ‚þþþCö†š¾Ü;€•#l›Ð{ëèïßCY£¬‘¤ n—•ú”7håÒ Š¸ eÍJY;šèÝtÛQÖVœFXÖrò`v¬ûðÏ`Áî#˜¶:øæ® ®vùu§“Ïȯ-_ý<‰»Ðà1ÉŽùQ¾ø^yŒÐGTÔÅê!"d-+^4󚻕X¿w„mz/¡±Î"Êe$4}xÂ:{Ú9~Ù:ë–Ö³FZÈ=L(kc"kÎóxëm'kþ£ËÚ`A:¼,GÅtuÔºçÀOòKpK=íÂwÉòml©-/qe5mMx`!?G(p÷uû2Ê6eïµ|¥#3 ÅÉÄ®¶%$¦6’!Øò[AJµ×ô(¯÷àºöÈ×;j÷(ô¢¬™÷¦5{³àZ:¶ ½—ØXÊe$þÇÒ€…²fÙC±U^Kîâ>&”µ1‘5ç}`#Y{t ˜Q’µl M«IöÉ£žLtjm·'œ•‡ñ.¬× ª€Ò$9G7WËLéNð=s…ü¡`w±VµÔâ•ŽÌ4'»ÚB–˜ÚHl„ùQþ£½TÅè!DY3f^sØ8Ò¶ ½—ÐXÊe$7å/ö²ö“$õqÊÚØÈÚŸ@¾vRhß_FaùFý¢ŸöÚMïgøþì¨ Í›h®«lU‡6C :{O~ã:ÒÜ—£*¦«²Vº<Ëå[Û§ÿiQWÛœéšÒ°r¦ÛL´"ƒGÄŠ ~ y>yÖÔ¬½ÞÕj®•1ÎoQXÜÑÞÎ>MŠïbÏ 3;Ð!+[±?¡ù9BANq0&PûüRoéJGfŠ“‰]m!KHLm$vÂü(Ï_ûó=íí àPŒB”5óh¦5ë¼XïiÛ„ÞKh,e²F’ƒZ颅¬9VKÒM ׶FÚÌ}L(kc"k{e%Ø©¼ë]¯Òû7•éAŸ6]ñ£:ë’ùZAÙ=]Öƹ´ÿ~ Œ²ö¹Vó K™wÏ4ý^h«ÚcŠVtð˜²7FXÖÊŽ8ò¶hÓx¼¶œÎ³ŸgΨşêãw§s§v²zÌÉžbW303‘…”¡à# <¸éý¯•Ñ¡uDe “ ^m!KHH"¶bXGù%ùk£‡eÍ<šYMÎ"`ÞˆÛ&ô^Bc)k”5’´f?²òŽçž]èµryë²K¹ emLdíР aÛŽï¥íûlà¹$O¿8 Ïø7é¯d‰rMU´îg`G`Â^xV«²ÖéAñË´ÿA¹PçLÞs`q^ž;X3Å‹ÎÍi÷¡]Â3QRU88œŒ%Z†à±BÄ&/x[XÖ®[Âç¦3ÎÇ@AoyPûìþ‘³WzðÍ> P®q7 r–Rs˃Š®¢%rÖâÇ0–µ´°žä6ÿB©xWûçO[¢D9ÀÉðUÌkÎìÐÞfàz )/bÌ"x´YÝ[¬ZcC¦¡a2á«-d ÉA–Q½m0Å:ÊÍJ‹‹n¥Ôc.†s”ÿÌ-ˆÑCˆ²fͬfÛéÁæÑ„ÞKh,e²F(k”5BY³›¬E¡PçîÐIÞ‡Êl­Êä‹ÌUAkhõ \›¡øEU²lµà:à0ÈÚ_N]åšu²ŠiKÿ·:«A´Äà‚¬Åa.k+€ýªñ=EÐCŠ1͇íw êÆù€&¹üàœþ¹J|“\_Ê© |º‚3FÊ‹˜³¨W öÃå¶j= ™††É„¯¶%$$YEÎ õb¶ÔAmqNVTökÒ3Œ£¼­ žfzQÖÌ£™ÔGè¦%#i›Ð{ ¥¬QÖ]¶F(kö•5ÏZí\ïà’6ÙدHÓ÷³#>ö ß¨]½œGV2-¡ã$0hµËjÍ `ÓY°a«~ˆË³öŠ¢%d-n sYs.îÓÜ ªäUž¡ÜS; »Nça t?÷ 4$ÕwÒýkè.â‰FOy1l.¨†|mÙŠ2 “ _m!Kh¨ä ÑU`Ò(„ ä£ð§ÞC±ãå­ Ú)!¡‡eÍ<šIMnèVN#k›±÷KY£¬‘$`·ûï k9K¸§ eÍ"Y묪ª¿É#„CwzœoKø=Ú=ruñS¡Çj^åk*™L%Ø¡Õ=S”,RÖôšàxxÑþÞ=ëÕt(ƒh‰ÁMoÝocY[:(ù6íq&¶•£BYÁ,í®l5À%}éDø¼ö{Éó…ô·öÉcµ¦QúwKOy1\.®niìépáÈ ËÖÕih˜Løj YBC%QÖl kqòRYøµ.0º‡eÍî¢~G eä|=i¾ÊcÁŽÎè¡”¡`Ë'ú#ÞÎY¼Æ; YÓÖRÈ"9ˆ²KÖüíØ!ÞQ>k°]= „B”5óh±kŽ›ß®m†ÞKh,e²FÆœé¿J­§Ò/Ï[½Ì¯¤ËÜÛ„²få FêO+µ“½ÚäÿìûWçÇ÷$yÝ<=e¥ÙÅ]$)ˆ/xâݘBЪ(Z!«¢"Q r4æâ ^Š5xŒ—¨X«G{Ш­šDM¢§Ž—ž¶é¿Ó¹ìÌîÎûÎ:;³;ûýü²;Þ™yçýÌÌó¾2sˆ ¤'çÕûà9eâz¬OíŽúš—µ†XY[,¨†ZÐ ->8/k}ňÛìß´jkNÅŠŒb©©µ@y´ò¶$ò”}¢=ÜD´8iŽÇ}êÈÔ‰éì"’òÂÏè8¢ݶÈu²¦m%—%dž”xY[ú;ëÑO'ëC·«Ñü£aM*Õî}œå?HÕݱð}®†àeÍ<šxÉŒˆŽ ´l±µWXÈd 8Î3Ʋ짽öŽ³¦°Ÿ±^üÚ²fk×ý¥!¢nõ놨'kÛ”'k›¿ìR4j¾Wy1¨.6Pÿe­DúãàŒïo–>óÍ¢ÅçsÖúŠÑG³?|÷Kjâx½mQý­”_ÙlŠÌh´yh±¸œž´ïꪜ¸·ä_˜¨”㌀ÔÐ/{ïÛgR“µÂææxÂeMßJ>KÈ,9ÈYK=Ƨ^íÿ,Š:ϸ‚—5óhÂ%§C”ýÂe‹©½¸ÂBÖ kÀqºØQÛ_I|‡±Ñ¶ÿÓUì~mY³wœµ+D~uHìz Ímˆî¯ý̪ âF#µÁ³_@Ö†ImÿûêŒz¡hñÁ9Yë3F¿dí[¥¯É¦È Ç*SºšÜžñÑ{ÉuPäY5:åÅ8ãÑ=¥Sö¬BšxÐU²ÙJ>KÈ$9²&âãÔ«ÝãžåRVØíN±5/kæÑ„KšâßréW ¤Ö^\a!k5à8ϯ¦‡¬5Vÿˆ_@Ö앵oJ ¤¼9$ÒUÙÁB¹92º»[»c¤ÜôýJç­;ßÕ: Y{éPm”ªeÑâƒs²Ög ófÿö™ÓµwšfR†™Ö:û+Pž³”lÑŸ‹û¶’#ì$²üVVLÊ‹aFQdðÞCÊ0¨­d “ƒl‘µ”ÌYK5âåÒžUáp5/kæÑ„KæMz¡²qµWXÈd 8Ž}<ª¯Ý÷ÈšûeÍ»VjËUÉ_&}ÐWè’GØš½[7©Ï¼Þ5Dƨ3j‰Î‹dm Ñ—BY» Ù&çÑ^´øàz,>c˜7ûßjI Ë‚ôPþ\ ·œ«ÕJêÝ¢E‘¡’“†E$¥`)±)/†Òp9<ûA¡Í»#±²fØJ.KHYs¬Å9Ë/Jús;zWCp²'šhÉu y¡²ñµWXÈd ¤£¬yæÝÆXk²–²æý#Q®ü¢ÛðñD5J3¶9H[$-ê!š¯¼.6uùäÞFJ-ZåíÈÛ>õµ<‹hiuVÕ:¢ÜYÞîDG¾:—±'7ü&Ü"©w/óîà Ñ%¯HÖ¤Žo;ÈËZ&Q°ýò¼iQº—\+5.¸KÃ4FÅöÖ&hç7ú)4³ilÛ¢uN—¾½9cQŽÚ—Ê¢‰=Óv!ZHŠC±õ醳á¯%ÕU§S^ 3¾ˆÊæZjgòV‚e-v+ãe éÉA©,k $,k—¶>J­rÏòäދøYªFèÌÖœ¬™FÕ&åD#£‚*-ÓhÆÚKPXÈd 8ÉOš±y8~tY³SÖ¼Õ’ú”*͉_‡oÄW¨ék††§C5jƒãLƒ6ãh@(kuò3/9×uÿí&ÿŠ 5;{…Ñ\¥c£²æÍÊQÿ´p¹Ö>¾§Ž@yáæf`N8úäõÉq("Ò:ÈÝK4Ââб)/†5DŸ‡¿Öùh«[dÍ°•\– 9È&ʨ)Å*Êñ´KgíRŠI¦á,ׄ¨%¦ï”Å‚—5³h¢Úä"Q{|Y3f¨½……¬AÖ€ƒ4³ªôrµf¶¿:€¬Ù*kÅK‰®wÊß:ïß0{èô%»µ›EµÿÍóÏÊþþ‰ÞœÈœ?Á—s¡½@ädÍëÙ¶ÃWyY kÞÑ{·0¿¥þr`c¾Ò—Ÿof®ÇŠ`£?²æõ´eû|Ù5Q÷ÈËkZr*~ÚÉ#™t~¨¿âas IÅF¢ÊNU,eX™Ky1ÎM4#¼j#ŸR]Ö¸Í6f ñÉAvQ·/Õ*J¥Ä%Dm©Vðس<,Dãˆ÷A a”5“hÂÚd,Ñ¡ø²'ZLí%*,d ²œãL=ëI/YÛÉØYüî²–PYsëZ\¹UDßÈí¶@Ñ…bëâr)/ÜŒÀu-ñš|o¹CÖøL.KˆKmqIEY{yÞ´ædK+-Èd 8Ç!Æö:#M ÷;ó?šÉöàEHYƒ¬ „áC»q³<;ˆj3Ÿ/%šeåM,.å…ÏiÌ!jYžyw~ÈöîV&k‚Lc–ŸÚâR©ö$ YsºÒ‚¬AÖ€c׳åÎ8SQ=+uæ?×2¶ ¿<€¬AÖÀ®˜×:ÝC‡–DØÒaeX.åES4!<•3ÖæN˜¬ ¶’Ë,âRA\>LÇçÖÈšµ•d ²œcmw¹3ÊäÈ Ø Ëª§áw5ÈÚ(-.vç–ÕµN®ðçݸÛieP.åE˜°S׺.ÏŸ[6wªÝÛœ(Y§%3‹øÔFŒ²¶#33ó%»!²²Ò:•™ù ²YŽáXê˜s²†îûd ²6ÐÛZ¸›dMæe_L¶°Òú•R Èd ¤™«yJ[‹ÁÖd ²ÀjY³Èd ¤§¬m¯­ÞY5È\Ö’„qÝÊõµl[ø©xñ²£ã'úófô„¬{(ö¤-Åøõd ²Hj Zë°pY³“¦Ùá¬Ó²M‚¥Óõ¬Ô9'!kÀzëG§««]»óKtß k5@¨ t›‰ËšÔJ,{ø®ôQ±‘[º~‡4ß¿àøVÙÖNœ„¬„ó„±›é*kŒ-Ä k5@ò’žƒbã²æg% ›/mΠ‹¿%Ú:È°ôUIÒü­¯I߆#­8²͸6vçQºÊZÇ-6ïVÈd Y5…·OTÍã#Ê2,Î" Í E²µ35`<ŒU¥oÎZ3ckp Èd ´üô ö.k¶Ñ!ÙØæð÷Dنœ£ž¦ý+¨²]ëv°;FÏ×5íåþûí½Ï;q Èd ¼ì|;—5Û¸BtCûþO"ú0féê Q©>ÕNt²³¶2ö¥³%À k55…J¢*}bÑ’ØNý³óé}}j.ÑO5àjWó¼Ã˜Ó}Qâ5ÈÈšÄI"Z£OM!bÜ‘>Gê‰>†¬wËšóOÖ k²YY“9-ÉZ§>ÕK4Ê|ÝÿåUCÖ€«]ÍS~ëÎl àªY€Ëšã\•dí¯úÔ9¢\óu–Ö=Y dÜÜÇ?:mJË:œ.Á£ö=è¾@Ö k€d]á²f‰ c¦è÷¦ÙB¢™g $’ËŒMó¤=‹c@Ö k€ääøìýØ ¸¬ÙÅD["S¥’¬­6Y³xQn±y¤O¯|"fcg_ üç1{ü5dmû6Ø‹£Ø d úC'ÑìÈš]|óâã’¬½&^1PI*Šé2ác‹^ ƃ5…µŒ]ÅÑÜd ú”µa/@Öìb÷díÏÂõƬ”iõÕKôöÎü-Š#Ãiœ» êH@ÆuŸõ E”€j<Ñ@¼ñŠ]×(jo웺ýèÍÒCl=„²Öþ²¶IÒ›nJ¬¨Tå¯nzÇ 6F™UÖb«mðyV«Ýã4çoØpÜÿB%¬/©VD–¨« ‹ê¼-E;ž&<üh”10oú=Üù«fu"Fè`!#ñ>FN[}$Í“Òb$tº—bŒw%žÛñ©ÿ†ç‰Èwº“wïƒq°ÚõeM·4UÏby¸»‹raÖíÇ$ä—¸R‡A³xÊePÖL)k}ª—ÈC‹·Ÿ.eû!”µö–µQÀ/’ÖX‘¯Ê_牿—¸ä™TÖÆØzÇ<‹à}Çoð­_Æ&`zÀžªå;‡Ü»ív?¥Oþ4ª˜ëJYSGÉ(ë1B ˆ÷1tÚê#ižT Fó (kY·ã˜œ< ¤ûm)âääm FN®²¢:YWÖôKSõ,–õH”S+€˜ðê–]±d£œ´É­²xÊeÐÕÌhk''ú}íg "”µÖËZµýì)Eg³Ü¿ãZ1/öÅê±ëûʴ㥼¾ÿÌÞU¡ðÍùÝÊ9yš%ÚÓ›’yJ•d-=ºÒš¼=Ç;fž;õ€uäâ?Yª²ÍWŠ¢²±Ã?:gPá-#êéJëÈ!½ƒÈZ´(·ÿìó\NÈ[ú<­´) +cýwT­ˆ(×S‘:yGi´è%-ëÄÓ„…:¦¨ˆ—y¤™CY§ˆ:XÈH¼¡ÓVIó¤‚1RÖo%ái$¾ ¸+'³€¯ü¶ÌÝ~Áz»˜*ŸÞzä–èËš~iªžÅ²xîN͇Ý^Ý|ˆÖkOY£¬‘®(k[ìojYû23pR¶ÞlB„²ÖZY6Åó‰Zü»lH‡]ó9jÊÚ ;—YöîÁõl™Aî‰iÈÚy«{is7WŽ_‡È[G.³øWå…·eeEY{_.cÆWŽo»g^Ò—µ‘Õ[,¾1蘇ä-?‰åz³eˆcõ þû©VD”#0¥LJ̶Â.Ùªvªø2³‰ÍˆPÖZ'k½ëé„Ò·êl@“ÛV…‰¸œ½‘]¢øZƾ°"SãEji©@ý©Ø ²ö‹¯TR’;°àñ³ü@Êðè0ÿjí¶£IH-ó¯ÊŸ<¥¨*ë@n*®,(,Ïõ,ã^»˜µçù[v¤èÊÚÞ÷ÏÕò˜ç0Îwgm‰7[P°ŸjEDù¨u§ö¹TI'ž&œ; .10•˜èŸ_CY§ˆa XÈ@¼‘ÓVI㤌1š‹ÁqgŒÈÚÁæ.>%Ž¨Üež_DtŸ§Þì’h à IDAT™ßc¯ ë,Ad-XiŠžÅU\Wž¶ÑŽK[T·ØA9?šÅSÖ(k¤ÍI»$<4™åÂ0“Ui¦09Ý{ÉšTßFŸ³ÊšqY»à›‚^°ºeÍY„ÂÛ®í㱡›Ë`Í*ÙÒ;C3fÍb-}ônhNò…+œ´qĬ]Y ˆYƒÝõ¤äÇÀé†N íR½ƒSü, *îRÔ•ËHqÝ…K2¥2å;Ò’`ïYóy |¶P+çÍñƒ'ô_wE$q.A®œ<ÔkÛp½xš0PD¸¨c`bdãõ Ê¡ªSÄ0,:ÞÇÐi«Ž¤qR†ƒMÅï6l3 kÝRÐܵGâ~¿Æd@#ÖVâ¯À—ún9†{Î`²²4›çy˜|ÆšÕ­ÜkY«Se˜«ç¶QŽ³¹dÑuت³­`mŠøÉF€ S0!ST!oSRš¢µs(UbüÊß5eÅ\—mXkcŸ†FU¿~7 î<ƒF±0Ë "% ÜÕ]€3ãs¹ó–Þ¥÷5ÓvßµápáOÊsâ·ð¹úãw£Ö0k“k22 Yû}Bè¶êH”NÙ41"¬E§>X©Ì^%&±¬ÖÌ/5|’k2ÌaÍ2šjìU³Jþ*çƒÂÁaµU~À}„5„5TŸÓò‡š²‘v?º# …°æ Öž^¨ü²‰O°À?£ÆÊÿ°Æ¥C¬e>Î÷Ø»Ã8çDÝÂkR¢t3X[+~2—wÙ¯Ð~·½ê¦ÈQt%×HèÇ­˜“sQ\¶ kLI‹pÈܱÓä—Û­š×Ù´wåé¤L—Z‹–ì§ C:jÑx`T'’Q§,MŒk¢6TFÓ“x€”¡£†L³Þ¯L™Õž·‘4X3¦H³U— q½m’|ð a-*¦ÖfÑîBÉ8”Pk`m9À†‡BI·%¬UËÞ©?¸%jñÚÅP,rÝPý÷¦Ä Ä‚f Xc?¯1‡5²±zXKìW€µ[ò›õmúEÛžï*HŽ!FŠ³[¯tÉåŠŸÆ Xã%{`~û],yà'J £6¹&3³µß'”n+G2ꔕ‰1âÔgË £ Ö6üCü1GzÝ$‹½nø¤¶`Í4k²!m-} G+X ïeÉžð¿ ¬!¬¡z]—ºÒ"’Šn}ëò^µå[gŸŸPâ0Ì•®"î¬=£ÜŽFÇÑ„BXsk ”É…,™ÀZ‡b¼XçcÁI{€”ÿž¸) 1¦XÀÚ"%aBÝñÚ ¬‘ÕÃÚR%Gª]X›˜wMòÞå °ú;À~M}¢Àe]㓶$ì—{¥öÓ¸kZ §ðU‘5 ÚäšÌÌB6ü>!t[u$£NY™#Öú&ÁHö;\&˜èÑæQòæïÕŠELÐF€ r‘›#)³bbRh°fM7ºäí×™ºX˜ZÛn(v±GXCXCõ¢>êöÜDV{0{uœ‹á>¼*Þ3¦]â(P‡ç•bö´½N¹åáhB!¬9µ&±÷ý€O~¯"¤-—4!´ˆ“1øïß¿5ŸVØ-Ï}"&=¯€À ¾à4°&GÕÃZ1À¡*—ä8ÖÈÆêañ“°e@›ß.¬ýcDM‡ë2júOhê.«Y•®%ÚÅŸT~aMãá5à7²½M®ÉÔ,dÃïc¿ÛêÓhÔ)+#š¬á—ª¢êQ|€°@ûi@Nj$è=–Õ¨Ý{ÖL¢éR&À³ ùŠ¶,´¶Õ$ﾲǬBXCXCõ¶Z=ž-‘k®nŠ}zê®Ñ~ÁI¨mÏRö´í-#îF~´¬¡ÖÁÚ[RiqûúXCHZµ8và:—Td` —êc¹æãL–:ãø´%»üâŽgå¢U¨8I„59ªÖ¸Çè1|Ê’’€°NOkdcõ°Æ¼°‹£µþkÅM±Ÿäç`ñ8¿ Ž] þMâ‹ðxhÒT' ÜV%Àéç )MŠÚOã"¬i<0¼*ËGU5¨mrMæf!~ÛÝÖœF£NY˜Ö¢W5ñ0–ý÷?kD‡Ø™ü|~ÅõÀDÕ`° k†ÑˆÄ]/àß¼ ±Ô«‘q´z€óWÕ4yÖÖP½¬‰·=;>þ‡µ÷4·ØõN‚Ýõ¬^Çž¸]ÄÝh5Ž&š#X+HßÞÓïâw±Ü7ê†ö³ßÜòrµ](?Ðpoéî2€²%ß±¿pTóŠ}=cNgê3Ž¥à¾l&ûÓ†EþJ‡·X“£°ö”mS⣢“#ÒÅýõ°F6–€µ± + .¦´@»ð´ŸÌÆ´xœ¯ñ?/-§rÀR±¨  YS(p[i‹Ä3‚ðXê“â§q k„æpë²IRµf5hmrMf!~»°¦=F²01FžþðÁ'6`m@Pü&¾ÀP¸ôbë×õüL×ûì5H\ôÈJ±k†Ñ(Wöz¹xnÑÉ›~ )W#ÃhY£æ].ú¾`úxa a ÕÛúõøΈ´¬íôx.¸ªD¿ƒuÙTÑv×r›_Oz¬ šTƒƒ …°æÖ˜éë´f•ð¦^!¤:ž¹>S95E¬=c/ã=NL;\);r”Ge>Ûþ¢LÖ䨬1ÃçIsæ»2h°F6–€5æˆøžhëeÛ°ÆÄ…ßñÍU-Ú®_/µý¹þy&‚¼àn¯8©õÓ8…5ÂÓ¡$4ø¸• D J›\“•YȆßÇ&¬éN£Q§,LŒ¨?½|Ƭ1‡ù†yÁUµC<'©Âf#-Öœ°­6aÍ(eì%«…E¹G/½ò¾:žAXCXCõº"5ëbIGåa—BÕ7Žµužro“6»ÈLK(„5‡°Æ,lnð•]íîÉxRÆçQ‰É*›Ð£‰òÍË çòLå–åT ÉÕ§¾¨ËŒ)M 4^½}VÙ‚mÓî¤9Iy§Öä¨$¬1E7Å›îíÊ X#KÂó¤µ4ØXº¥ªÀ>¬1Y•ãq?|$äh3[R \× 9ƒÉ€ÆÄOµ˜™ìeYœ½Éû¸H— Ñ&×di²ã÷±kÄ‘ :eabŒl™ÁŠ›Ï?þŽïµë{Ä%‘‚5ƒhÔ+K]A}»oÖã”þŒ¬™D«+Hmñ%î;9€AXCXC!¬¹¯ý£È;ÇFÒ÷ÿ¸OpÆ}J(„µ>•7Y5*Î%ËNÂ*Ääf›ùi¤½¦j-@ WÍ‚î/¥Ñ&×dm"ý>áu›<’A§ÌMŒk*ùÖ˼p©ÍäW#„5„5²š=¢Ü9¦¹²ÙZÎA1Ü×ë1k? a e©ì¤1ÑÑP–bï]YårS|Æ~š0aðÀ$Nˆ»\ P¸ŽZCß&×dÃ,Dø}Âë6åHôN™›ÖTߨ)òrY„µ>½!¬!¬¡Õè ÊcÎiWhmЦÿõF×ÆÓ8Pk(ºQB•Ÿ¦ ×ÊDnS?M˜°Fz`$Š㊠jèÚäšì˜…ô~ŸðºM9½Sæ&F”¢hÛ;’`ÍÝ«ÂÂê9)§ãÍÖÑÞó9K^Ò³, G a ¢Úü[£fÍV[×â`ËÿØ;Û§(Ž<SÖµÔ¯ŠZT–[Q,. …Pj4¢ "*rŠ9Q|Wâ)E‘Ë© bTL|‰sh©98Ñ2Ƥ¢ÄÜI)O“œWÖ!_’¿çva_g†efag÷y¾ìËt÷öôôt÷³»¿™§ûïç$žf¸²¦ùûésSæœ8þÁ )êd¡ iâ}†µÛÆŸd´SÁƒYË,))ù]ôŒF³JJÚ‘5d "Bõ µ-d-ÝHÖêGTdŸª=Kÿd ÂäåŸhU{fØ|‰ Ys‘=£Ññþ !kÈD€ß”*ŠZźüüj‡9%M7’µÓ#*r’R²è@€¬Œ!§ßÝ…¬9Ȳ‘â5¥~ŠÞßÃÌ»ÏÚdmÏÈʬRª•È k®Õ½²V¤TŽ9%ýÁè#[GVæ²ùç›éA€¬²‘!¡-!dm›¬ý:âRÛè?€¬²rµ¨¦.¹v“9%uÌÕËZŸ åÒƒYd âPÖê:Í*)Içj³5@ÖY\mŒi\¨qµâ’l 5kóä@)ÈÄ&Ç·}?¶¶ìX€«¥ç™RjkW—ïd `ŒŸ&I´ k“ìV*/~d-aë ?W«¹`N¡9J=¦'²06| ²šVd b‘YWՊ΄x"oŸ[ÕN>j5ë÷ºdµ²¾È²€¬‰ô*µ$ÚõêÃnsï,0iûüK×Æ¥šXh½RÓ—YË›4 k‹M^¹5Ê]í©R뢼Š¥õ´Ò—Yþ\H²±ÉÙÆhÿaͼ›bGŽ¶Ëô$@ÖY3±@™dË÷²ÈĬ}£Ô—È k–µñã‘0d bÐÕúº°5@Ö¬+kJi YƒÂ~»Ád Úì( O²†¬ÀèóqK.À´†¬A¬ñP©"$Ë,6)µ€>Ȳ£Ž½\’h¦5d bŒÃ¯TE+’eÚåûÏ«/Ñ«YCÖ`´)ùˆV`ZCÖ ÆÈQ*Ç2g{~K¯d Yd 5d FL¾ºjµÆRk­=SEô*@Ö5mìéòŒV`ZCÖ ÖøÔ®Öq½¢Î¶¶Œ>Ȳ£OÎÕ 4Ó²1†Uþ^¸N©­RWz kÈ kÈĬ)•²v0{ON~3=5`ZCÖWã—µ(²µ 'lâıp‡Þ È0­!k¯6XçkׯÕY¦²Ý§Þ9:O¼l饇²LkÈÄ) J-³Œ5žµNUkÕæaüLñÃ6. È@¨\¤ ˜Ö5ˆVšó’wÞ]~§ë‡Ð³ü£G­çÆh‘àŒª-Æ1l,“f®£_²"Ÿ9Ri¦5d ¢’Ügéî¾ãû£¡fªTêb תªð¢ýžh(ã;B@ÖBã 7ÅfZCÖ Jéø›ß ¿üËsMPçðªÈpJõ…ëE³ k¡QÈ´É´†¬AtRW°ÂwÜ-[Vo#Z!:³Â?Œwõ²fÛOï†xµ%EÀƹrlØ7_ähÿ“¯_j¶\r~ÎÜY~oÜw¾ñ¾a!"óü†‰®ƒ|Ê TJ²÷ù•ÊysS¦ô” ¼ZÐxÓûßÛ_µ¼Ø–Q»‡óâ‰+"¬Vçuk¤|rc‚~Ñ`¿}#3¥lç´ÃC%Íè?ó;‚–Öè7F,ígWåÞÌ”â}/nQ?ÿ‘Ç‹6s`ñ Æqd Y‹s.ÎÑ.ñ;CÊg)ûië;b-µ û0¶Š\c5d­ú’ì15ñ ÝIY3¨@˜²ÖZî[2•Nö4ÔáAd­×3+Ü8ÄqÄ Û›Öª°ý÷îSõŸÚ‹HZèÞ’±lˆ¤>Y¼´v­¬eg¸_¥I uäñ¢ËÜŽ¬!kœëº%þç!Ý£ËZa`– ° ÷0öÉÚ-º7ĉ¬½>ÃÇ)³eÍY¾¡¬=ñ½.•HÊšA“µ›ÎÅ‘gÉT)²èYÓ;³8_ßöµÜ‘µÎwÚþ*òÙ´¦§²-,à‚8Âjw(=#’™t{{ÈŒÀ_òº¶4U½á|¨ž4Cuwwÿ,Ib’ÈÞKn\ßñ´•‰Üû¥©ò„sÜ«qäñ¢ÏX|Bww=²†¬?gÃûAÆZêS¤TNlËÚ9#Y[Kÿ†8‘µGƒnì\SY+—LßÊ®EQ,kk>ß’i†Èr×fö¯DÎ6Õ*Ùrx Ås×Zíà^‘éÐI™ÞÏN›Øš#þÙ¬ùðš´×ºr wÒ8|Y µ>uÔJ{±Ùwu:Í\ïˆ\P#‘KÁ“zd-H’#"ù³wM[pQW‡öA/e¦yŒpgÖ¬!k0“8Œd­7x¦ßÔfl*ÒœVáý±ë„þ0fØéà·²¶Sd•Cò}²¶8-íFÒ­)"Ë{dʃûwœc_—kKãI‘ד¶938Ú]odÛD~íÚñÄ&é.Y»˜ýBdIv¶]+k¥^Ãjyé‘5]q²vø;‘÷Zš&ÞIǺÀšzѤ1ª@ªˆ­¢²éHOŠûDƒËZ¶kùî[2}!òöÎþ'Š$ãæÒù&8r:0£³²£\Å(Vºz‚(jVNtÀ *«(«(tOA³P1¨ñ/{fïôÔ=å\õVÝÛ\ÌyûËíßsÝ]UýVÝ=3N ž ™~êé*¦ªRŸ®úV5±©`šæ–ì2&+l¿%ãÛN:Nç(Î*u±Šnø'uiü)ÿS¦¾ý½ƒÏg…5&ôªÔ\\›B:ȇƾõ4&k ¦˜^šHÒ› i]¸‹úù!û,=Àõ2àNSãÕ³>ïqwe°æâr-ê‚â@•uáòàh\=ÑÄ|xkÖ„™ì[;X›îž¦ðùUS)·êž„¾ÈR»Å>nÂÆ1¬Á7ÏÉÎÓa •ÝòïÞ°Ü4¾Qpû÷ÊsÀ¥åb]É¿3TSzÇvÉI³6$}‡5ä¯Ó8/1Xã™a­ ¨PÓð^SN5ã|¸ ø°šÐÝ÷TH1%qú)SßàÒ<šçS]Lé\àAä4pž‰â¬RNtÃ=É? çèù}_Ê›_a+¬1q G¥æâÚÒI>4æí…aò86¬E€S¦±NCð^:—Îðæ%øÄt¯i SköÇpe°æâ²Aÿ?嶛sø4WÏcc,1^Àš€5a&[oÃj 1tפÒqûþ›Ü^bbMØx<{…µ_ÉMÖÈ¿–‘Í'öà ü³8ç×ÞSËÐW-Ãù»$¬eƒ›¨œŽÂÎ kí”ÓÛÉÌžžSf¼—Í2ÎÑËŸ ‰Àš\¼62Ùàm©ÚŸLHÙùýžVFN—¤(Î*uqÝÐ'Í^Œ`ë[°\® VX³&Uj.®M!äCcÞÎ ˜¬mΦsénýìz5Λoö'çNŸÚÕÁš³‹?„½x½å8Pd¬¼e1{r«t,±MxkÖ„™lâg)FîÉÿט§µÂZ󷘻OÔnaãÖÚ­°Fô'´ÁÃ{e&ª®Ñ8½h“¤&ºÃÚà­òÇÐÂ` g†µzà½}’¬;ÔsÊŒ÷á2©Û1AŸNJÖ”€+:¦H•üÏ*`³€9Æ×Kzl—ÇPÛ=¬‹œ.YQœUêâ,ºaOZÔÉÃØ/gë‰Öw¾~Ék6âÀäJÍŵ)dò!kr5)6ï:³ÉzašÙ7À v]‰SÛª–¯¸öß'ŠJ×Ý•Áš³KûLä.R¯n„M‡`·7识5-±MxkÖ„™¬‘_YpaÌÁZˤU›ÇüÔZãÆoñÀ"Q¹…XËÕwÄóX+–,°¶”ü=G{YþX»"w³@EÀIi‰ºÓµj5î°&&«î2(£°Æ…3ÃÚà—9ÔŠÕóôœ2ã}·î/j’ó”⇵RÁ– fOCs9*Y¯Ä~*>&ŒZº¤ŒÓÀy Š³J]D7†' ‘¡r5IÍ×)o|ùÊ‚Z ¬YÅI—š‹kSÈ8äCÖdkzM°¶èa׫‘k¼õx©®‘Ê.@q¯«+ƒ5©—üzL\hŸ®”qëIáš11^Àš€5afkåú¬a7÷EY£q#ÈÑw(6aÌÅí‰|•yØwøñƈ¨ÚÂƬñšµ¨Ö¢¬­ W—UX›Æ(ŽŒV.Hmä YÅêM°æ?L탵ӊ¿2·Vƒ5.œÖ6˜;ÛBcN™ñ>v°¶éÄ©ËwÉ&°M Ášô¬Œ.Ÿ~N{}Þi?‡&üԣׂV œ¢8«ÔÅ^tc|Ò,TNözø IDATÑ$¯v§¸íE¢8àç`Í"L¾Ô\\§B X‹ kÖF–æ°v‰|­Vx£üs¾þJà¬Ú=:»j°æâ¢Û€ìËü¥ÀW1†Ž•Î>1 /`MÀš0ËÿGK—ue¯‹·ÿ§Œ¬”mÍNLÚ9úôpÙÌGë¿<)*¶°qk笰Ölk•t¤¢X/-Åë,¬-`}ä kuêŽ}ê‡ÂÎ k̽íIcN™ñ><¬í$; 64' kÒ¾í‡CeÛ&Ê£´ ô£r}œf¬¶yS9 œ¢8Nêb/º1>i f†ñÕƒÈ'†)n{])' ›aÍ*L¾Ô\\§BŽGX›…$-'K×t³F ÔšïЃH¤7Êû gW Ö\\ v˜-(—þác½mqªtN‰ixkÖ„Yßx>1uMÑ×nÎ%£rÛþ/22îÊíû3ŽŠ *LÀZ*ama*ìˆ26UÝwDµC1`MŠ*Ägªƒq k\83¬N9eÆûðš5Ù'P>ü÷Ïß(šµDaÙ\y¸D®®¹³ÀˆMA™7õÓÀy Šã¤.ö¢ã“Š4Qö„bàAJ›^u€Ô43¬YÅÉ—š‹ëTÈñkß% k³Ó¹t­{ÛÑb:á^i íìz*|n®¬¹¸ì @VßÎÆÓz*cb^Àš€5aÜ‹º—†•w¾qsÍ[˜184 ©§ÿŸGe¶f<T˜€µÂÚµN¯Y‘«ý F$ée Íš²þé2uXã™am¶²I Xã}¸ Ì–Ó×j;?֮ѓæÔaš>r:ô~σB& “7N—¬(Î"uqÝÐ'ÉóŒZÔ¤²åíÍÅ6?köâÀ¤JÍÅu*äx„µ;@…ñTfç%§~™Î¥Û tÑˇZ¿Æ`Mk QEšêìªÁš³Kwg×Jv½!µ¢­ ZcgѾҙÛ„°&`MoƒËÔÞÊ7»ÚÝ1¯"cžØRäìZÆ¿…öL˜€µTÂZŽ>#Ñ[ ŒZÞꇼ~ Öú€uêÞ{ Ö¸pfX; m»¹ÆÛ7ÙÂïÃeà½>aò A»¸a­cÕvô*à*¹ª2nPxxÇFQIZm5Nç•(ŽH]ÜD7äIKôÑ÷É «©±a„:$Ö:½Ü`Ó 2Æu*¤Ð¬éæ Y[ô½éà¢t׬Ej磚2×èû¬6ú”.ÐÙUƒ5g—Ÿ€_èe)] )÷¡qdѶÒYÛ„°&`M˜m§?ùỉ%obú =5’ö¼EÔMaÖR k%PwP¬K]=&S×2b+ XÛüÉÖ¤©x–<@?gÍÎ k²×·sÉízà¶-¬ñ>\îj‹œªåaæµ?˜¥.€ŸéíGÎÕ|[€5dF?¯˜èemä4pž‰âT©‹›è†<é ÀPU†¨p ÞÚ´¥ ÖÄÉ”š‹ëTHk±`-ï#íÄøQkÒ$à9É©e£"¹›c‡5Ö“ 3GW Öœ]ä^-J£­'•ëžŒ[ÏâÉ¡]¥³&æà X°&,)ø”ÞÛ÷ &`-1XË+jT¡ûþ¶»¨ÐÚõ(=ûÐékkÈ%GPXãÙ`MYãX«nÐ÷ÌGVò°Æûp¸ÌNÒnRv€¬‡ß›Ÿ_cÈôÈV~ßhCp3}÷À]ƒó.à’2vòßîzZ9 œW¢8Uêâ*ºQŸtJ÷ôdR` Í(@‡ÃŽâÀ$JÍÅu*¤€µX°fs(vzÃZKk¦Ë¿¿ÞF¿óH~¾ú†×ÿˆõCóÁ7ÝΕ‡5çhrW˜£t yÛf¹Kض‰£çaѸÄ\xkÖ„ V´&LÀš€5kR%ݘ½NF”`–:¼X ¼:´x{ÂÖJß‘Œ^;XkR†yýXãÙam“3ü2ëŤðgÉÖ8.Y@àÌýêÅwÔÚwèáçÃ~ºÈ0dj™‚àªÖy§Ò#½%uíÑlc?\2Õgý*¡*‡’¯‚œÎ+Q'uáD7Ü“ZõÑ·?„å#k­É¯‚´Ó™ã:r<ÂZ ¦$k½Àoé]¾¿Åowžv©5¡Ên"J3m[³^¬22²ºò°æm¾íÊŠìú"ÙAYôýÒ¶\_ÏâÙ$¶„°&`M˜€5k¬ XÓ`M*ͥõ2*£è ÔÒsÖÕ ?·ƒ5© 40ƒ5.œÖ¤Íôvð¢ßÖ8>9lˆ¹m"Q¸ÅkRvˆ$-ØÊ>¹œ1z÷±"´õyP9 œW¢8Nê‰n¸'uÈN?È*RØðnå0 á㜊R&q G¥æâ:r<ÂÚƒæÌ`­0€‹&·Šåé]>Íþg»M@$wŸÒ;¡yö®6°æ­;LïLm¢ÝžÁjƒ5>±5¼€5kÂ>ÜnÌ©­À³rëÛ £5ï=÷WŠº'LÀZê`Mø?{÷þEuÇq"'ð­eØ1ëXI Ü/ xHhIÆ‹`H#ÔJ †E"†(Á€6O¹=Z)¢¢}¤¢¥hc^¸äÖVÊŸÓ½g33›CæÂûõKö:sÎäì™ùìì9sþÝÚ’Œ9±ËnÜ=Õ·xjEZdêþýv4xJO†µ¶èl ±°¦]œ&¬ LK]:Íãû¤y¬¶¤ñ‡`_cP€ñ_ÎÍSW}2mã˜ÐL=kûíyÌãylåÁØyþ)g̳Ûg{3Ïœ7e2ZÝ8³Å釺hÝè×´,–jRî÷âÔÝ?f­Ãà@³j­[n‚J>Œa-‘Œ\|¾Êi5™q"Ã[|iKÚ@M¼ |ˆ×gzGÍ_2;ÁK ÂZ'KËÙ}³Ø[[>$4åY¾ÜGX3x³fñ„5Âzoã,uÅ©§É™×Y 9¯Z¹Ä5kü+»g}ýŠ¤gÒ 8ýPÝ ÝšQ§6tº°LdQV_‡5Íà@“j­[n‚JÖº k¥Ç͹>‡©=a°†^ÊSêU§ž¥Æ;µìã•*£õ°†îÈÊ(·]™tcà̧ê¢t£_S µyš· ~BÄw°oª֊̸Ȳ¾ÖºåW’°FX{paÍÜž‡°FXCïl8§Vî$¬õ½£‡Uõ1Úkè†ÆŽsÛƒn œYƒâtC]tãrtkÊj~ órÕ>.¬išTkÝr+IXà kæö<„5ÂzgÓ9µÏ±“t\®®êئª_¢ý°†®¥—O²a±tcà̧ꢗ£_SÑÊ:_ñ…Ý9}Uù¸°¦hR­õË5ª$a Æa­!55uƒ}zž£©©·k„5ôÎD'_Ûï蟥õ°†îx.m 'a-è~/ÒabÏ3$T Âa ½Á$úLßÂa €K}úò凯Òæ„5Ök «‘Ö@X#¬@G“F„¯Bvk„5Ö@Za°ÀF&‹ìa+°[#¬Á¡ö6í$/YjèqZ!k@Xc·Â´f§¨Tggûœ]þ“ªú(í„5xPJ…«š²[#¬Á¡®+5ÃÑYgbµ*ttüÕê‡,"kð€¬ZÍ6`·FXƒ3UªÍÙ'¦œ|Qì°SJ½@Ka ÀnÍŠèóDý£„5ØU‹úÕjšµÆ~¬ü´DÖìÖ,-Òða vUàwøô…J=çð*LÜÇÏ AX°[³B†ÈaάÁ¶?—âΧŸÜËôý`¯FX°[ëŸÈ-ÂÈj ¬°FX`±ÛŸe#°[Kè¦Èç„5Õ@Za° ï¥Ë¶»µ„¾ñåÖ`GÇ«IvQÉ„ ¬ÀƒÀE±Ù­u®ižLß|ˆ°Û©¬VŸ‘’ìá†Ri‘ ¬aÝZ«¯z›ˆ4\ÈÞCXƒ d%©êËÄ${hIQ+'Ñ&AXÓ¥y%‰­Àn-!1@Xƒ ø•킘spes‘ ª1D©}´IÖÀ|)߱حÖà4'Uëq¤œJ½æ‚jì¥^¥M‚°`·Ö·~n€°ȯŸè†(5Þ õ¸üÍ!Ú$ΰÖ€þƒ@XC<—ŒörÉ™5¦ïÇÃÖa î kE­çnÖ@X#¬@XYÍvW(káÊØ ¬Ö ¡GØèʵÊ}ûð/{ÿGXƒ=T½Ätùösì…,š&k`®%UltªrWnxÈ—†Ö`…*¥’ld7;[ÕxÚ&k`îy5‘Ø èĺ•ñÓö«„5Xmò,Õº—pd;K­„50Ó+"KØ H,yW8¥Íþ;ó#Â,öRk‰Fö3L©FZ'k`ò™5Â:q7ÐJ7%‚ý[·JwÖÖ`±25|¡k·.ʇÕmZ'k`ªò\? ]-i¾½wg¸ˆ÷a Öú>ï²kò_©Ó®©LUÞë´NÖÀTÉGØH¬B${yûÝå5"e„5XËM?,Pj¼›êCëa €>S.²*þþ÷"gk ¬Ök ¬`± )íøÀß%“°²?ƒ$­°€Å¼òSDzÅKXƒu²Z^w׊yƒÝUŸÊª|Z)k1ëNÿë·£|¥å9íÝ8füÚ¹2µë¦]¬+i8Ñ’àÙá"É–Wz˜ Ý~dXö\ïãÍ{£÷'Å] è¿¡Glž9ÊS÷ÎXŽ¸÷¨üxšwÚÒÂ)ÆÏN©‘q±;ý¯,j()mÖö×#C½DNçKÓuÚ§'eÓ÷N [zb– 7v±vß±Hk°NªÎùvö­:O+a-Ê ºëOß™"à^ŠŒí}X+Ú^\…á³×‚Ù±|Ú¸·µ‡µÉã"õŸõ×ðgµ‡CÇ¢›ès(Ɔ¶õwV'$E>Öà ö°öõ¨Èkßœ’ ¬%^š®ûÐõ8=)ÛYã°-¬}ÃÚ|ÉýYüý÷¼2Ÿ°ˬJQˆì좪~Ÿv ÂZXSºˆ÷ÂŽ”3Á£‘›áƒ‡<¹°–?F¼¿/¸í©2zú¤Œ¨•‹+8ÆŠ†µ{"µ×WämÉŸñ[ R“q-X£À¦™³vÅ?Ç\g’Ð[î“ÝÎ*ñ‘Œe¥"ÊèÜZþâö°v6WrýÚŠ¤@¯6DÖjý~ÿ€Î–¦ë>ô=NOʦí4…Í÷û_³gXûJäTüýÑ"m„5X¦B©“";kRj 턵#ü’ОÉM™"I]„µ§ú­êj‰m"ü)ÙaôôzY–$éù–Vºß4ikJdfðï oFO¦HI‡c¨À+n˜îÔˆÌà¨0ðŠÓ.Š½*]Æ=ø;à’á©þ å kG2eqe¨ÿóˆïÇŽamdWKÓuú§'eÓöNºÂêoÏ°ö¾ÈˆÂ¸±¹" k°L’úŠî»_ÄÂÚç"G#Ϥ‰|øsTd˜ñ[ï:чÿ›ø‘uSÞù?{gþÅ‘ÆqEšôW è81h|äPDD/DÝ€͸èzêÆxDÑ•¨A² xdq5Dã‘x=7M¼VW¢ÎvWßÝÕL 8=©÷—é™î:»y©OU}ßpgöšIÂç%ùÅâ&à¬Ê<ªPGŸ$èf®C.§Z&pE¼¢˜ôÛöþË„ô£ ´ÚÜÖ(Œ¬‰³ }"ÝÔÞO€_äÃ,àóòû:Œó)üsSÚÙM3ÖZÏÍà>¬'ºÑ¼“¡²¡ küÚ"ý³µ~r¨?" Ö¬¹ÉfsÜG]­1c°–°–›~ÒÃÚó¡ò—Ñ&X«Œ–NÌj2%OòÂSÁïªG)%tâ^à_dð3KkÄ|þàùäraSòÔRŽÖËT½/%ö›‚k£k«y ÖZÝ/Ÿy”9ÀÀ¨üÞ|×üvP Ìî¼[cPÖ}ü.Þ¨³òøÎâ&ð,ÒªPÇ$èf¯œ[ˆFqaëP–F:ă ÝÛßjûnTJt 0b°æBûF£ý9Àצ³óá]Å+üÓxOp6'—lïak­çfpVHÝhÞÉPÙ†5þà™DåɪÚñ äkŒÕÜd¹7ŒÁ3ká k#R€c_V žeïR³³}<¿XpyûæC±HYh€µq)¸°(OD9ËÞ§ÞÀ„?¢‘™L)N¯ˆ-^O’ kËBòûqyߟ¾{Zh¥DfÂóö‘‰©Âwï²'É_ ší:-MrËÃõ«Àdmž»Tøøž-d›Ž§N‡›QI¹€{iucŒÊ:þ m,G¼øéGqp VeE¨cªTÐ÷IÙªï¯G´Øþ§L’oÁ/@NûûÕ¶•(Œ¬¹Ðö^¨00Ôä$bð¯òÏ  )yŒØ)—NÓa­ÕÜŒîÃêq©Å;+Ê°&üY½õøê±c;?tÃ*,ƒµ°µ ù]ØÊš+ìÆtö¼2c°ÆóGÈÂÔ•Ô9>í7U³VDk(À€'zXCb…<çœiÙ„7VÌòí¥K§ pB¼| Â¢³|Õ}3øqÀ·ÝÄŸ~ô ¾+¥”SÊŽ 3rr¿)lMƒµ¬'ºY½“©²! k½oîá®G„ÁZØZ·;ü°¦¡xç”ðkU ßÏŒÁ±‡¥Ò¿þø+Y§M°öZ ÆÈëk€ÞX["ý> 0…áoZT ä6€úúè“À’q,J£TXûìÆùÔ‰å¿QJMZ‹,-Ùà(…XëüPNŽ|Â8(E€”D¡ö9w»ÝÝ2˜¦ÐÙRIfñigÝ“²NŒ¤öT:Zoš3L`%èûæOêØ& º™Ôc±‚܉y[›+´;2½Ý­¶íFµD £p°TVà ¼®->¬RŽ qÂpn1EpWøçß(¨Çµ¹MÝ+÷¨°ÖZn&÷añ8ÔâL• YX Ô41XcÖÀq=Y`|wØÿ8î{b™1Xg}?Ý$O×ôÎ0ÀÚy W¾èÈ›¬5Xë¡.@5ä6²YâÕ W§Ñÿ_ïWΩ°&ØOZÔ‘g1X@)EÆ2ýÒ–ÿ`_|öB„Ì:qò[ÉÄI«‚ý„f S@{–ÎMHÔ;ÖŒÊ:Q[¸ƒ zñŽ42– ei E¨c—$èfRf÷hŠùšáihw«íºQ+ÑÂ(¬ˆkSñ…ã,îßrU‹ÿ ¨o˜€"ƒSö •×ñÏ4(ÏÚˆñÀ\¬µ’›Å}˜=N u³z'seCÖÐ=ÀVÖ˜…‚ýÄq- ƒÜaoõâê’Ø#ËŒÁš´“&þElÅzX›¤—m<‘J©°–)§| lÔç´%püà@Á¶ñüíe3?ÖŸì‹1ÒQ¥úÊìhŒçåQ¬ºÃH½°–"êëŠfT<Ñ®ò— ¬},Œ¡â‹ón¼ë¿£ŠßsùÔlàW}ªìàfçÜ“²ŽïZ\\>bƒƒ–òþ52—@L'­¡u¨I‚nVuàDi¦Àh›ÚXÅÔ»nÔJt 0b°F¬'ÝÔâ/€¥ÚêUœîÌ“8,O3ÁÚ›ò,Qà Öìs³º«Çq^7‹w²T6daÍ«ì¡`°ÆìÕZR/n£ ·ØLnÙZöÌ2c°¦-°Í» „CW`­Ä8r‹ÒÁZ£¶â£o‚¸"Q–Aö; Cé:SL¿ùÀÖÿ’yîÊ°&gUŠ•ê…÷€µ”R~ôˆÕ(œúÒi °Æç×HÍ3dœiJ¼›1>ýµÖØ™iúZNŽ“ï¬U&† idÚRo”ÖØ u:Ö(êÀëJ½ìkjw«íºQ+шÁ™ðqÙK±¿UBöXþ‚n 1×óÏ2õDìE,Þ¥Áš}n÷aïqüÖÍâ,• YX{œe°Æ,¬bMƒ ·Ø'¯ŸbO,3kÛiWµfãÈíÖÞ¥CQÐHð¦'Pu³ …z9~†Q“'ÚÆ¢ ëÕ+¿²i¥=$áCJD¹ÃN å`¨Ěå•QÂÈË´Ím”ô‚oÕ^?¼"Xã“¥Þ‹™A´k~42m„5½´ÆN¨ÓÑ°fU6@ u¢­àÖÈ/po_«mºQW¢…Q8X=Ö ±,\am1°W[TݪX(Ésuü³I7é4õ4X³Íê>ì=ï<7⬕ YX;x“¬1 cÄÂ÷3c°æ*Xë;vè—:šú'Ð]kÓ€rãõþ`m$ïûm ‘oîó`-S·N6¸E/åô¹2‚ǧp)’¶¬›}¥Ä`ô«5_ð(µåˆ0n¬ׂühdÚkziP§£aͪä€y¦‹^+"‚Я6ݨ/Ñ¿Â(¬6ç4‡¨XôtS‹‡Ê„ÀCä˜Æ`l†. h‘ºÓÚk¶¹µê>Û¬Ô;ËMôNÖʆnèþí0zÍ~kÌ«uLûEÛò­1c°–°6¸¬ûzHÖÁš@sƒµbUHôBܶç1ÄÐïŠô•· °ö¹Nv„§·+¥_‚‡ì^sžÂ¬µYê†ÚÅj÷•HLãsþ®¾2®ºÅ¼N…5¡c·=aߌïáL#8¬“¥5vBN‰©WŽˆEœ)ZÍHÕ6E¡_éÝh(Ñ¿Â(lª¬-wœÅÙ7º¸©Å3òa–2Ådkôס§%â ÖlskÕ}´¨ëbëfñN.‚µÍ›U‰Q¬®ݪƒ5f Ö‚e9®’Á3ka k{¢nÚ×fi%Iµù@ùLù¡²°¶[ ¡/Ú{1À:}YåUðj»"CÚa¥ÂZ0\>÷,†Œ:Ì¥Ìë£Ô¦ŒLuûOá`¸ž>ö‚BcI¸ÿÝÚèh50˜ç/kïöÚkzWs§ÁÚM-ÄÆeÒÅŽT-mƒ5YZc'ÔéXÓ«k-18®®U£_éÝh,ѯÂ(,F\fÕñ˜¦Í„¬ÖNäF(–ˆ©“®…ÝeZÑU`Í67«û°xœêfñNÖʆ,¬¹ï¥ë ÖÂÑÒ¿üO˜M.Ç ×G²'—ÙŸÖ|o;Õ%ŠÍò d‹X2yX:u8äÖn5r´²>â?ã;ºsY†]‘·€”!zX›ònWÑÎHðÌ¥,@áéû|²€ç?…ƒáúsd„.SpQªÇ ŸºÐ˜E6"ÅI@›1¨|%°¶x(ÿ#FQq¦ji¬IÒ;¡NçÀšN80Äåßñ $¬~¥t£©D #k®´¿Òð§^¬ ^¡ÊÀJ€=j¢|¬ÙçfqHÝ,ÞÉZYk Ö˜ÙZR·†ÁšÛl w =»ÌþÌ°Æû’Ðìé—„còÊáS@-9+ Ø“Å°|¯´-ͬùš‹bŠÈ@ŒÝ¸D;wÑ(=*‘ö©°–1 ¸D†àß{ŸD)epœ\Ðu¢»:IÁ?ÉÎ^íR>ÃÿÙ;óç(Ž3€b åùÊB`VBFeq‡ â0#N¸ŒÁD ‚ â>Ì9 0â.›#aŽÈ€¡p‘Ç•*'ÿNfW£=4³ÒJ{°ÛóÞ/«™ížîí힧™¯[ºz_3çK–w¶ÿÙ+EÚ{¯‡†˜iüèM¾Rä†wÃìOE6¥%ðË ‰­*lÜÚGr"ji›¬5„Ö„ ÔIŒ¬Â{ÞÈò_…6°>+ÚåîEp¬F[Žç;(²_æv—Þýc…Õ®Ž9×YÖLEjx–±^døGY Ÿš­ûhÚã8ôRaS³÷N)#\Ž± IDATké k`*µQS£©«P¥šm±RL î–5c½oÒ·¯‹~õ]®5,„sT$cÚ´· ã?Ù"Ùÿ,=ß­¿µ&sK²fŒ,Yýláþ)"SüÕLñTãÜ÷Ï’^Á®•ˆüf@¬kÆšÞ¸îa½yq“Uê”Ë¿†Š|ûûQËÿ<ÑzزÅO=ÍóoARæz$kDß÷§÷YèÛÐÓ,ÂWïu½cªà˜UÞ ƒòD>ºSúøk‘± Î,DÖü±U+½‘Sá£ZÚ˜ƒ-´&\ NeÍ1¼g[53¿YOßXÕ«c5n #ƒá"ŒµÔ$Ýü/¼µó[‘Jß ú5f·ç,kÞç®3ž}·\‰TŽ²>5[÷aïqì½TØÔl½SÊÈZê¬iøä‡ê› º>+X~@×’x©N³Ø¸[ÖŒºwü—f«­Çj–ù.Ýöyÿùû‘µ+ëËÉšqq¨õ‰i§ƒîEll²ÌÎÿ¦ŠTËš±«q)±a¾ˆ9{.ã—4žÍ½‘}"Y3º4¤á™im8–m¥ÚÇZƒ«_c6w;õtà,ï‰ìµ6.Ëð~á£ZÚ˜ƒ=´&L NeÍ1:ð²ÿ´ÆfTðnÌêÕ±CrŒ ÂH8ËZ¥ÿ ÑÙ{¬R5„Ò6#kCvôo84û‚FÖ§fë>šö8½TøÔl½SªÈZ—Þ[ÞBÖàõrA©NL…Ÿz”(uŒÖ î–5cÙÀö“rs6Ü}tÍ?ýÇ iy=|ARJÏ(ØôìPÃŽ–eÍøS§ÇL=®FyÑ™>Ü3í®È‚§‰< ‘5£ÃùYC§.ù¾ÆŠL³çÒñNÑAÏØ>O/Dú‰HdÍ4½ONNŸ'™ŸÛùñ0ÏЭ[ü羬¤h»'ûÈù‰ýfg9PäW+<ïŽÈ"#’ˆ›Öå`Ì ¨GYsŒ¼.Yç‡T™®V»zu¬Æ#‰0Ò€Ïeí‹êÈ“x»èyª•úèé%ža9`ý²š‘5ÃØuo~ÁöOvž3ÂÉZ3©Ùº&=Žc/65[ï”"²V$²ýjJ5dMCjÖmF}RñAÈÅ…4^p¹¬Å•´×}•wS·òRá|â«ËÏ2$ÇÍb‹j‰V[l¡5auâ³æ¸¬»l Ð1;(’.¥v¨ÆÐíFš"QN‘Ö_®#XÖ’¥—JRY3º§¸³¯´‡éûYCÖ’Ž!¹½u5cnÈü™¥çd5ÚJÓ¨–hs°Gæ9êÄSÖ¢w‰|t÷Æ<å'?úR;TchŽö#dÍ‘/D¦#kÉÐK%©¬å4†D#k€«¶Èø¹)%ZÈšÑó¸uý\`…P5j‰:[hs N\gƒ´GV‰ì쟢[cPj{5†æèÓˆ¬!k±•µØöRI*k?7 ZFÖY‹)?s‰Á¸cQl'^ªÃ´m@Ö€a Yƒ”fóOÛÚ!kÚñÝO—hÛ€¬Ã²)‹¦Ý¸¥Ô5¦ïF5d Ö5@Ö’ßߌ¬£² k­”µöù <5ÿ¶þ̆¬®Ø kÈ$†½‡ûQ kŽ²d âI&²¦³¬eÒÂYhÅuÑI§Ö5H^uNGiôeÇäRÚ8 kÃ¢Ø kÈ$'»©i(¾üV½|N+d YcX‹Ž«áAÖ ~lQj«ìes™«Š[£T'Z9 k‘’™#O¨†5@ÖR›ÝjÄ>7ÉË¥3Óª\å¦{Ô‡´r@Ö"¦ï©¹TòIÂŒ§å®ºÓT®Ô6WxƽQ´rp‡¬}.2=dÃ~‘Ç­©¢"4_†É&§½a6·•›/Z8@dx³ûgJgÿß'gæÉ~dE¨N‰¤(ðm[5gÒ،܊åü´¤|ÖjÏÁ³] m;–Î\‘ç»òÙÅ–Íõu—šOͶ'óÊÙ<ÏÄOò«Ûpn›ƒ:ªñöCßö혌¬!k®Çm1\£”êËôý€¬é(kËEÞ ~?¸—ä¬JRY›wDZò¦díÄ”€¬•õ°®w&W‡‘µWC­wg×òSÐŽÌnÖ/üû¦aêïæZ{<[84 káS³íY;ÚÚ;¡õçv¾©¬…Š¬!kàNYsÝ5d \#k™«E^½¯— {OI&kã$JY»˜(ݼ<‘1Ojþöù‘bóý•Þ~Ì*™en©Ý òU~ÍaSÙFó[ÐÝ"yéW-ézÿªv¢Èõ_jfn5µg]ó‡æʘúúúçÍbÛS8Ú»¡fNóe^kÏíÍt‘G,ªí‡¶«¯_‡¬!kà¾%Ö.9]Õ[dMǘ5s ¿ô¶Rdo[d­nF•ÓÞ0›_¬Í8(Yë-2É{Ã,ó†È—¡çdÙ ^ö­·ZÒ]¦ÌmöÐ\Ém)5Ûž³óñ®^üRäLkÏíÍ#2µ¸ùCG"kȸp=ìÍûÜWfl Ü!k'D–_ë‘ܶÈZ"ˆNÖŠwx$ k DÆ4̆9I¦ô :®úÿìésÔFÆ©T©TO•×xÇØÄëƒrbLÙžåŠ8spn6€Ë1„Ë\Ê1 kBÖ^b0Ë&„¥¸6…à fáJ¥6ä Ùg%u·®–fFSø˜Q?°¦ßWRÏУ韺ŸÖ8(Úܤ§Y¸B>˜V`üPh‰ø\|ÉéËáÍ0vמ›¯¯Ÿe5Æ°%§ŠŒIÑ…ë,ñ<£ÝÖ(Gå©Uß&ા±RÁ×ÖÀÊ0ûîËß-±RMXóNá"j™þØP‰JŸuÓÎ8)Nª€5k×ŃȂ ó#>­](«A>²Ž¥Õ8‡™ÒÖú.%‹ XË2hd$°Ó’xø³ö·hcv-ƒ+C 1&àsñ'ΗÙa®½‡5«ÉÐÛÄ“¤2+éÿ]è~F‡­Q(ŽºÃ™©TÝõt³˜k‰´¿ÐÍR :VªkÞ)|d´`°Ù_ÝäÍÀÑ8©Ö¬]Û/Jd‚  iÞJÑÞ¬Öj¬¿ýUÈÒÑkŲÙJÎú&’ûË•¸#Ÿ;z\9¸ñ<ë×V<®W¢Ó2mžµ:`;Ò*„+¬žµâý“•hmW;y¥àóò7f.˜5ŠYeäÓŽó[†£¢Þ°¦öôÇ–¾iÀÚÏÀhùÆ6iuê5u¯¯¿-&âsñ%Þ—ã4Ã8]{¼¯¯Ÿe5Æ0ñ$§3a„G4·ÍW€^×3:mB±Õ“bÅ~øŽnNê¬×U7oÐÍ#ÀþX©¬y§ð‘Uý ï†òW7y4P'UÀš€µ ë®$ M•¤ßE{°XkWí¡Û­À*íos>©m§°6\¡c,Òcø#yyêg ¬­(1fìT„qK6amÎ4z¼è kïh/ßàC¦ìWXsV4¬EEdÖ>ZÙ<2‘Hí™Oµïº´ ~[LÀçâOœ/‡3Ãx»ö˜¯¯e3Æ0ñ$wçõ –êïEÒîvFo[£›")kuì&…Ú¸ôñ3W¤W¿%1S¬y§ð‘ ÀIB…ÀßýÖ­(-ë»›ÿn§gª€5kWá©ã´™@è™$m-^ÀZúÚfy`³ 3–dJuM[˃1tÔ­ÝaÌx–ñ tö`‘Šn¯î~t_AŽu5Hµ{{ÄèAœ7amÇM`wWÛ¨ Y/%°¶XF)2äˆt=fYoDsõ†µ¢dŒŒöÄ/l0È6ÒF­»•ï=¯â[ShðÛb>_â}9N3Œ·kùúúUv“a,ORê0\mW×]ÎèmkaªµÅƒÝâF÷nöWesˆ'%t`WœížŽÛÀ§1S¬y§ð‘³QàbcÃé.ø­ÛQ„ëôéÉáêí©Ö¬]#;V[N¿li Þ»~þ¸Y´wkA€µÀº™‹= jßt=–꯯†± G‡5ä|¡Ô[´±–]@¾öú„6aÂÚ»õyu£`› kÕÀü2mãpò¶é°eb(’Yȇ qγÆW4ÎsÖLXË |"ë•#cC¢ÝÒu¨l´Åø>â|9œÆÛµÇ|}ý)‡É0†‰')…²ÑM7[{Gs9£·­q ´á³Iïlµ&oº‹ýíq@™šJWwË ›BàmלËÀäHÌTkÞ).‘ÆEÌ ú¥ïºÕšÿ·¹{ÝS¬ X º9ÆÔ'I_ò‹ö.`-°¦v[ %­VñÈü£é'`µ|RpE/X ¯§Ú`-²‡ö¨¿.ÊFñÞ0ªè Î2à.µßô×|ˆ‰p°ÆW4aXSßÁîòöÁÀ ù0Œ.¼®#dEC -Æ÷¹øçËáÌ0¶ÏÍêÚsñõ½~9L†1LS KØfŸzäÚµw´aðÛb|ŸKÒ"¾Î cöí®=__ÀšÝd˜Áȇj€5jŸù£ü¶N3zÙ¬¥‰ì¡ò¬wÉØ»žÞŠ‘Ê`Í;…„æ³fŸyyˆ6ú¬ÛÞäV[yúwÂ%UÀš€5ÁjÖ­ XK+Xû’Ž“õD™fºÊÏ5×øªÄZöX-Ë3̉xËm°v•rÍ>l ™°¶xQL5E7\)˜BvçCL|Äsé~³¢‰ÃÚû*‚UžÊ¸ŸMUXÀ®ðYXĨ3èm1¾Ï%i_g†¡.çÚsúúúG“aB#ºDÎUéïvù×3zÙ¬¥‰š ‡­6$•Ë'ÌUYívyœTkÞ)|äðƒ¾¢if ¦tú­[çºÑìrMj°Vî-kB‚Õ^—¾—¤éí XKSX“»±° ÙÐÉŽòÊ¿~öÕ%}µ½ÃZiPÜb`‰6ÏÀªµ6X+\¯÷Ž±Q R\k{>Ê5X£äCL|Ä ÖMÖä¾(9pÕ›ÝÆëCîchjñ½ÁoŒq}.ÉŠúr83Œ.מÃ×ןrE'Oƒ‘Ç‚ÑtS<ÚìvF/[ã€ÁÚ‹Ìdeýâ$}‘ékliRü£KgŸDâ¥2XóNá"¥æÝŽ.àN2uÓÕ£ $ä–:Ô` Þ°&ôÚÕöηE–âÌ€.¹tþKÑ?¬½$SÌ. „̯Ù|*¬ÿ†k71XÛdƒµ™ÆH›Ülƒ5ù}š¤úïV ¬Ý´ÿ>·k°F­a|ˆ‰ð°ÆUÔ¬ÉÛ7ìˉ®^®v·jiQ•Ùï±!°{´Æx>—$Å|9œFïÚsúúÖ0ùÒ äá“k‘Ãó€&·3zØHÀÐŒ´¾ºw‡Ùµ€>³Äªÿ¨,ª,n*ƒ5ï.¢|K ~,±ÏfH°nTû´éé.©Ö¬X­MÒ!± }°T#I¢å XK{XÛ¬h¿ñí ]5$2Ií›VÝ¿ûÞšÌ ÖÆbÛ·Åk'€Y>Îz ¤X=^ƒýŒ¬ñ!&>Â{Ö¸Šú5¦ jŸŒlÍÂX×ýÆ :èm1¾Ï%9¾Î C>εçôõ ¬Å7ù“Útt£ž,›B¬š\q·5 Xó¾é#íM¥«{³¹ÆçV~™ü,K£‘Ê`Í;…‹`Ž]Y»”*þëÆô5°Ý-uˆÃZÁäÜ)úF^v¶€5¡×¬Â RSŸÀ—`éÚ<édH´}kékòmð‡¬ž¯RÁShr‡µWZ'AfCiVXS{¸ãäkl­GZühãa1ñÖøŠ&kgŒU(›­LÒòë–s A;dƒ©ø>—¤dúr83Œ)«kÏÝ××ï°×`äÖÆÑ·]cïÏÖ8PJÁiec´‡Ü§ŽVë7–t]fۃꅮ¤9‘TkÞ)\䀥-×»·,ï£>Ôa<¸b&rBn©C Ö ©¦ÝgÊþ¤ýïù~à­ˆF„^·*$é7A/AÓlIš+Ú¾€µ´‡µéš=g#f’Þë¯æHÃÛ„˜œ°öŒ¬H¡išÖê€cOõÔ kŸ½4½á¿Z¬°Æ‡˜øk|E†µÖy3®ÓÂyÀi²Um]å°Ë|ÙaÇ3¡C ø\’:¬é˱ˆ˜a,²¸ö äÚ˜æXB&š¡²/ÝlÏ2šw|[ãÂZª-0>K¥«{dñøSÎùÏêw,çã„R¬y§p‘åæ⪠»p&Z·'*ų» ú¬G—Ô¡ºä|&?4^]ãÖ‡Ö„^³Ê~éx_ÀKÐtâNoD´}kik¡Éx5a žW—ŒY:KÔÎÞ]`­ØUHú YXë,Áï¹x%[aMMÿÛR°¸`…5>ÄÄGTü‹­Ú|E†µ9afYÆO4|YŒÜ­À¢«€áƒÝð¹$!«/Ǫ}Ƴˆ,®=__ÃZb&žÄu`´.ç!ÏÖÜlÖÒÖäÀ÷¤y+ŽoÔe•ÕúKe°#Å)ÆÿÙ;û¯(®3Ž{¯»ßjVt¡€Ô@ÄBDQ@ERå#«¢ø‚QÑ*D)R£)¶Æ$¶Æú_8š¨'1 šÓ*ÑcÓžÖÓ?§³»Ãì ;.»;ßÏ/³³sçaç2wî|fæ¹£¼B²Ö{[,Èß6X#¯¼Ä³k‹F¨¬^ñ¿ôRÖˆÙXXY2ú-¼ñÜó)k±/k¶ûȾãyS™ÄŸžb¬ßÏ‹Õ²fûèqÙÚÙ5PÉšt<èô“5×#5î÷î:<ÏÓ)²¦]¤ YÒ tøýjí•e­)#cAàsÛ- Á5=ׂ¤UòUîD\ñ)¼ø“ë¬(þp%¸wÅ ò\_^Ž/§½Ï¹zP²ö óú^²¬—Ä<½ñl¼ãå¼(­‘²à’O¡r/<:hLDåDiºs½¼3LËÈp?z½-ÍgïÐ/ª•5Ãhš%ñ_KUë¾Dò•Ž‰º,ÃhñÒ!÷ç®ãRúF`k¾îo‹PYûÙ£}ç7-ÄdÊ¡«™EãØŠU´5BY‹aYkÊQ&Ïĉ]×Þ-¹ìÚ|³ž¬Mœ ²¦^ä{¾¢Z2bO»£òšo õ„¬ÙFLv8’«½›åGüŠ×µÎ*w¦Ýê;»b0y.ƒC—£I†ÑÍÚóËë £¬H ¿V¬s¬ïK¾_ÖHb‹™—&8Ë5Ëû½,DyÐÊšº¨Ž¬DÓ]¹®uKš3µlq±ÍfxÀ2Œ6¥ãÇrçöšqÓ ŠFª¬µ£|”ßc¥Ø@Y#&’^Õcåç— qÍ›ŸñÑSßOY‹uY‹5¶´ÄØió\BD“—£M†ÑÉÚSåõ…QÖŒ³††xšlwß1­’48]ï/ê¤5@Ö"倡²öj@‘Nà2e˜È_…h¶°­û¾ç¼…7ÿž_± PÖ(kQumBM¬m’&Ï%D´y9šd¬=U^_eÍ8khˆHêèj~m²TÝúz¨Mk$ä¥Èš¹¬•µ õ¬wö¦XEY#æ‘_-¾kä0öVeí)ñd'[e²Et¢5æ¶Iç":y9šdmÖž:¯/Œ²f˜54Ôóãû‰žxiýQ›ÖH:—锵H8`E¨¬mÚ¼Ó‘ç™9ГÌ) ¬óèâźäñ%[e²=,HªÉ½­R幄†n^Ž&F“µ§Éë Ÿ¬f }7©nI)Ð1Åð/jÒI ûýE ^" BÖÚãââB¼~`æëL\ܳ})v·Óu¬™‘YQqË}]h{ž²FÌãÀÛǨ,Ö¥mÌ…b¶Êe-ŠØÌ, ¬ÑÕm°W£¬B,Ï4à kÝš!Ð!„p½@¶ß–ªJ4MB©kk_(kuãõ¹-ÄþŸ‘h€‚B¼°=XÊ!„PÖ(k‘&k÷€]Þ¹yR°Mþ–®²ìAÈZ“úüAˆ•vÐOÜ,;Ì:pÃA(k„¢C%ªX ”5CÆèB¸ü|/¹ÕHÿUÀ;e-öùì­§Ô¹ bkÁÅ7F³]Ê!„¨Y±Šu@Y %š;ký–ÿʉÔ_%k| 2ºé¢Ÿ~2Œ„i IDAT‚/ÅVèâ ¶ >IY#„BYFz§ÎZïâWË€ÃöàdŒD3gDÏ e͇ÅBeË`¯FY#„Ânmø¸é—¥ö9Ðî·x¹÷Åk”µ˜¦J4ðá?7ó„ØÌZp?Z!–³e°W£¬Ba·Ÿ†°n±$kéÊÜSà´ïÒ¿e#5þ¢‡J GšPÖb“»?ÐNÜ´Õ.ÿ˜µàæYE/[{µ(”µ‘„BÈÈá´³l+^9ÑÅïÚÖæ&tM eX IÖº•¹"à²êÆšš/(k± Õ„ha» ¬E£¬BÈËå%›X $õs’̺ߞ 4+3»Õ”5º!´5ÊeBt™Zˆ*Ö1¦×Ô÷¬Ù{€KŸK±FPÖèj„ÐÖ(k”5BÑe/°˜µ@ ùt—Êž Í é>'îN,5*ÈF(k„²F(k”5Be²FŒyH:Rü¿qÀJÛû‡2Òi!Å›º¨ÙëþxÎôÙ)k–ãìófJ Ñ'áù9¶ÊeB¼,uâ9kr øIšLöI“‚*IµB 輋$|S—¥ÉrÂdçœ9sl”5‹0FŒå+Öº«»°ŠÄGél"”5Ê!„x¹ööcV1¤‰£]7Äv¡È=_¬ -¢+1-©,s†4)]!÷Š4ÓDY³¹B\§”(,b?kAá!f³PÖ(k„BHp”b·{º_»§uÀíC>sÈéoÉÅvÊšõØ(Æ6RJf ‘ÅZP8Jd¡¬QÖ!„àpÊ=V#ÑóÈâqÌ 5fÞÓãíÎí¿Ùç}ieÍB47¼G'á5ä5ñöÎý?†s㪙í|‚+g+ë¼B.â—"’ˆªD¤$â’¦÷K %x¹F«-¢rðB\ŽºªåhœºœjKõ(¯Cý9gî³;ÏÌdÖ®¼f“ïç—Ùyæ»;Ï3ÙùäûÞ™ï3etŽ¬¬‘H$‰äL5 ›•+¤ÓPï\v‘hòÍÛÐQPÍI°F°F"‘H$’CD¦´ d+—ØâÖHáÀ)HåèÐôýkk$‰d©7鬵S¹¢ÖØ#5\‡Ÿ`D¬F"Z#¬‘H$R+èLÁ":$K•Ï ËÊT6 Ë / ÖHk$‚5Áš½ÊaÔ¿åmI¾ü>OÇXÆiŠÖ³< Ý„†i-ìú00 B£HÀßô_÷’³¼½öîÖŠÇŸ©÷ŽªZýHôÙLoæŒì”>‘H‘»®üýtÞÞ$LBûHn˜bo,Œ1.RßL·ŒXŠÁâr³Ô¡±.<е €ÂÏóü@àa?| p–`ôŠÊÛ¶P„Ô’vm;@ç ÁZ›‡5IYåŽ`-è‘9wZÖV­Ó—ვþ½(74\WÖÊEí|º:¼/b(Á&‘"–‹Ó£°Ûî¡ÉÜ$ÌBuX³6ƃ— ¥o[àvX‹Õ€“<ß,,¼YâJw‚5Ò«iX)w…P„Ô’~âÆ.§³…`-úam'ËÌ_I°6Sz½qàájÜ‹¸`X»«¯GkÂZ!_R——‰@Íï%ik€déR߈£@â¯%+s€ú—RÈGBCîø÷ Ž®­‘H¼²…°èºLMÂ4´jŠŠŠb쌅ñ Æ¥Bê›ù–Œ|Ö2ŠŠ¶ºÖø•^`˜°\¬°êÑt‚5Ò«iˆð·!1è4=ÉÀ¨«w•Î‚µè‡5U½€¿k+¬íS_÷¶$[ÄÂÚD$êÿx×Ã×z°Ö!zâÂcÄ_¹÷ebÃ%à¹ØcÏà‚Ø0ûm î$,cE”a“H‘ÒÜÔè;¡‚ÜC“©I˜‡öA›÷ð¦ĸT(}3ß’> ¬ zí°Æ§”Öˆ³Ð<ýFbµ-]þí Xs­<ä¾ù’P$XEwŽB°6ÝââÑùB°Ööaß/üSíÑ2¬MŽië9ø¾µ`Í³Ý =q©jbåäå9Ö‰=}¨>Ó§²/úŠK!MÈ“žùñ•‹ó„a·œþOn2”ĘD8RpMÿ ›[óM"Ìø7~RWP¸÷5}{Õú邱¼Çi½OøÃföT™°4ÑÛwæç=ˆÌÌÎņ¨ëq{è21 «P Ö¬ÅèA¬K…Ò7ó-]çX†,/N|xáE¹ë¿kîUçÅCˆD ÏqtPŒºöÞátº¬µXã«€ñ-ÃÚP ³ººØÜJ°–·ðö×—ù@®²%¸&,ÖÀ§#FÈ—ühTNÃÝ›'4QŒ)‰i~5X3ИP SbÃ4ðÿê«´ìy-·’&èW ˜ò§õ>á›ÙÓ;k•ï8B3]0S4tÜà:“³&aªÁš±=ˆu©úf¾¥:Û£Ö¢JkîÕ±râ‚5'*ßDg ÁZ»€µ{Àü–a-e& Õ¼ý gk°»ri/RáÙÑÅj&ñç’¸QÉÝUX‹C™çEÍÄ5›Mb¯¬z×[?w}¬e¿…®¾?HK\®è×÷zÈ·mžÉ ÀŸÎó»õ)ëF§Ý›'äKãI—z˜’&ÂÙE+CÍxNS&pÓ$¤î¯9©S·–tŒº½†±kõ7&å=Në}Â6³§Œ: çÉ®±âf+e²Ñk÷ÐdbV¡¬Ù‹ÑƒX— ¡o¦[6³§ÛÀÇÒ]\—|˜K©lôÃZ°{h21 «P ÖlŒÅèA¬K…Ð7Ó-eð/ç ÖÖˆÕÚ·ÒºÐ1 Z#Xk§°–~8èÖ†K¼%j•€m*¬uâN%”ŒÛëî‰ ûý@r×ówýHRa­ (ð¡7“ ßÔãÙiÉ€E¿÷‹i¶ž¸Ü&é¿Y/ó–:à֤ʌõ~ô[(¬ïÑŸ1Ð4uŠÛ´S‚ÖÙ’c„31E|ª­EÜ Ó¦á2°K~ÓçÀèˆ= þ†)ïqVï‰a3{zæCŽRqósàkÑ k÷ÐdbV¡¬Ù‹ÑƒX— ¡of[ö{±šw1¬ ³Á‰`D°F"X Öº£šÀŸƒžêϼçxÖÒ Qp_jÌóa8Øå¦Êÿˆó™É°†¸ÑŵÝG0±ßªw lÐß®ózâ’«'Ñ»€$q9©§’=ÎXnÀ¹@ŽkÓ„nU±%1Ƈ2Ðhº¼oalH_€ Ján›S"=ôÀú¦¼ÇQ½OD†Íì©è¢4Üv¤E=¬ÜC“•IØÁš±<ÈÄ¥œ÷ÍdKm#¤»Ö`-‚5RèZvc(ɹ–­ŸGg ÁZ[†5Olù^¨ÉlK°vCÍV1K…µOŽJÌ÷@†0Z`±¼~@‡µ'R{Y$fAÅzgé–ðñßUJ¯Š+€TéUÊ9yNˆéRÝÈ`¹ú¾*ݪc@Bà:[cŒp(cªOßÆy„±A@•ã¯oäAõ7Ly£zŸˆ ›ÙÓ¼-ÿX¤4,lyþ‚µè…5+“°ƒ5[c ö 3— Ö>B’øë ÁÁZûPõîO’s•qñïÐyC°Ö&a-Pó8ØÀÚ*àC)1f«°V[ýK†~#…çgjÂÛ¨ÁšŒdLìJàcOˆéÖà ±Þ­i§˜‰é0˜ÿ¦5ßÔ‰,ù^Àƒ&¢ÐµiÂ8 ·'¯ëêKäu¶$ÆáPÆõj€pä&[D€jáï|~þ®N¯aäAõ7Ly£zŸˆ ÛnOÍÂW“ ­Íš•IØÁš±=ˆu©°`­ƒi|4ÁZRfŸQÒ‹~‰‰k¤õ„ã~$!9×yŽû΂µ6kIkyG°ÆÄù&Ÿïx~Rð¥OÊF©$èº~Ú*¬e®¬¨±©@áôEOCI·v$}KsïöÂçXÇKÓ£l“&OìîEV'©ôk¡þxOצ ÷àûìkñøûvJO¯bKbŒe, Q” ,µŠ06ÜšRƈ»Nýáb¤\Ô÷8ª÷‰È°íö´‘¨Þ–aÍÊ$ì`ÍÆXŒĺT8°ö´'ªÒÝ k-Lã«ãâ±øëáJvûƒùÖ\yam1w…øÃ|–út LõÇÍ¡3‡`­-ÂÚLiR󛧶=¶Ž3ÀZ°JXY"˜é°öìÛég6HqsßôÙ®ª°Ö¨}Np,ÿ£O|U00í¥ót+¯NÎÇ š þ¼}_OÆo³xþ‚:„ËkÖ*ô´·ç[¼YIŒ1© 4Šî¨ó—˜E8LÜäWçíŒ‰ì¸ õ7LyózŸp‡m³§eÀ×MimÖ¬LÂÖ¬…ñ ƥ‚µ»H’§épÿlSÜbmí¼׋ ÖH¡jáÔÛÙ„fš|3þŸtÌ4ïì´t欵EXÛç$ÎkÕRu[ °C‡µ˜R ¸à«¸#ÑF 2Õ7mUaM¬ÂËó'ŽÈLÚ±ÒqºÕÐdR]Õ'!‹ªNö‡úñ^ …†/õ+T[Üš%¤'‰ã~{ó·ÏúS<&%1L„cÐÈ:íÏ`Üpùõ¸=§)ö“Dàadn¨¿aÊ{œ×û„;lë=Rílb´¶ kV&akÖÆÂxãRáÀZ9ЕX; W%«èzž`²vŸ$ú0U Çm¥£`ª“ÿÏÞ™¿7qœ8Öìׇ8,p9l(Ø€8ÜqÀ8\¡Áå4„#€C´s‡&\ÉJŸ<J Ѐ1- Ц@Ó@ž’£ÍŸS­´:¼³»^Y’¬÷ýEÖ0ÒjFšÙyÙý¾aÜ kÈš)kú:#§üƒà’!³6-°Ìw÷§»èû‚V½²6Ñ"kJ]ƒ?]YyÁXúÓã]Òœ™Œ$.)•"]/‹¶m~< *ž0]§KïNÁ¿ šDÊlBb”QhôÐÅ2YäXÃZø¢Ì­“D$u4Xão”ðÏñ> 7ÛéH]gYÈZ“5§IÂMÖœ'eRf©Ddídënï—Á²Ö"ÃZ¹®š.ƒ5ˆÔÃJM+£H߬!kmÈÚ#‰ã…`ÂsSÖ–‰üú_¡:_lˆH8Nák‹¬)uözîmIs+ø?Î51‘$ëŒðm"Ÿ™ÏÇJH 2“ï¾7ÿ¨¹gc©á%€&(]~é]îXÃZµ~楼ž"ÍIl´£„÷xŽ÷I¸ÙGpµíy:t\Ysš$ÜdÍybQæ e–ÊY;f½íü!Áàj\YÃÖY{’²6TdKC0S`XÖF/¼üÂH©/ffb‘5¥î¢îÝÍç+ÝwÔŠ.iFŽ¿Þ£y|0ýsdûf}U¾<¯ëo÷l%=/e’É<]$¾¹®±v¡Þ°   г“RC)¸Ð³à~y%‰mµ‰¿QÂ{¼Æû$Úl‡#õÝ ò··1´Ž,kN“„›¬9O,ʤÌR‰ÈZeç0%RݹsqËšÏzËç½8.#k€«µÁñyïN¥°5d YkCÖôRY¸ÕXDdí-³Ÿ ¬ßÎËïU„.™ø-²¦Ô­“fv“ÅîÉ÷¢Kšï Ã7Ö4 “ëz0 û浓«"¯z‰ü>øüÛ¢PöÊŒçy‘ïÜcí‚5¼a@£ëゆ5”‚í"áÅfÀªš’×R»ø5¼Çc¼O¢Í¶?ÒËE"ó¸®Ö±eÍi’p“5ç‰E™ƒ”Y*Y‹’ñ1k»¥ºÕÈYõbé\‘µÜ¦ÀÌqkÙ¬ÚÃÁ«GȲ”µb)ì-7bdí—"_kLžX¿íU=dØZ§ub‘5¥îR‘sÁ“{§c’o„g=ž0á6.¿éa<Ô‰[àqî‘ÛÁ7Y/E?<Î/”ÞÆã¿×:·2³8jÜ:êkw4zsi[ØÐtòGÝH­¡ÌŽ¹Ð9+š1&qìn銠„÷´ï“h³m´Ås1:˜¬}2aÂüгŸ$\eMyMøÝÔ9È:Ky™Ù"Ÿ-{eíº%¡Hc±ÈÈ„D­¬et¡øŽõªíº­^{í€ö0QÓ–0˜5dÍT43i¡)kU"Ãö=zêÒ_ò¹o,26ˆ,Ÿx©x·4YdM©ûp´È§‹+×|VmÞ–ÖWìcb.ó}â_6vvs‡n}~‰HÝœª[üaÃè&2ié¥ÆOEÖ—gì*áxã«£Âo’r5$F©áÙZÔšßƈRC)ˆãbóyy‰|ó„dM ïi#Þ'ÑfÛ©XÄW¦C•µ×Eòu—IÂUÖ”×DÞM™ƒ”YÊÃÌýlY+kEúŸ‰>½â‹Iµ"³Êò^šFÚ~hÏÕk2œ5dÍ NäŽ#kÑýµ×® † 0w³ÚuÕšº_©;y…Yào.÷¸¤Ñ{”„^â›cô=ÞÝÛ¼uoî~³`H—Ì]%‰æ(xCŒ›¦”¥†7”ƒ?ˆ¼ï\C¹‘È]ï%51¢£„÷x÷I´Ù6GÚø FÎr@Öì' wY³¾&únÊd¥rCÖVæó{Ì1»÷d@]_¨@ÖÀÿ) /Œ}}îÁ: }kÚ#²†¬|mYtSìEÛ7ø¦þÕ£òÇÓÍ´§•¼9mç\kê~›º]®iò½Xz÷Œç%®˜]ZTTz{st‰0q}“¯ú›âN‘’÷?Zásýpy¯¦Š¬3s†´„"Ĭ!1j O¨A|.ˆÿ”s õ%Ë#–Ó+fSéd^x*á=Þã}m¶z¤Õör@Öì' wY³¾&æÝ”9È2K冬éÇ}Æ/côšškŒ¿6ŒÈðß²–~Y&–"Ð>Îάg·5d-Ûe-KXÿyŽ4tî:‘Ά‹U‹Ü1^¬!1j oo¬Ð–’…ò–K õ%Q´ó¿ŠŒKÉŽGžJxRªf+GêÒÇ=))²–•²– ý,wëfÂÌ–©²¦o¬Žý‰Ô}™é_.²–v.ú-‹ÄÙ±tÏzÁ™%ƒPȲö$¨øÙ \ijß‘£Ã{\&2©!Xb ‰QkxB âÓ÷Šlw«¡¾d¥Hþßÿ¼F)Ùœ’æGdM B´¤®Ù–#u´V‹@šd-y²–Ü™-ceMÿ¶yLø²añãŒÿr‘µts¢Ÿ2³¬;u8P¥ikèÒ÷#kÈZº¹(s¦­ô1ÏM¥æ~àJRãZhŒÛûö¹ÖP *ö ô9“šÖGoéR‚•‚”5Ûr¤ºVK†] Gd-i²–Ü™-seM×ó¦lmžY3ïÆ’§³àËEÖÒÍ&›©e Êá@¥¦qÝYCÖµt³×¿+‡v¸:Õ¸pŒoô®w¢0[ÃhÔžPhÆJh¿çjÜßÞ溒ÝËO¥¨ñ1û¬)AˆJAÊšÝêHy‚¬¬ ¨ªªJ0WQ2g¶UUg°¬eÈZºYk#kõ(²†­²–ÁÜŸK@&ÉšÁÐÌ™ÙÞ ~ d YëŒòÙÈZÆáÀ•z66hƒÓ‡×¾YCÖµ4‚¬!k†mvwXûI¢áDíaúÀ›šv€q…¬!kö¬š<åìÔ5pa°m<ìœÚ›²Eÿ YCÖ Gé>äK:\ÚR”Uyhµ4³ÃöÊÚqœÚË2M+c`!kÈä&yÃä½Î¬Îϲ¤¡ÈZšy­ÐFÖÆ`Ðn¦ÌÓ3°5d r“·EfÓ àÈÃI‚¬A\L³‘µA´Ÿã/3¬5d 5•/ŒM"WÿøI^ ȸ±ÇFÖ#NܺI¾YCÖ¨X![èpäžÈöò¬úÄÈZºi£¸Ú,’A:q¿¦¾½€¬!kÈ€WØœ Ò]ŸYK;s”ô"ȆlŠ­!kÈ@;™!ý³ì#kéç#‹¬íG5µDÙxq$# YCÖZ1Kú k'£ZZ¹ÚK§Q GhÚEzÁCŽ‘m'# YCÖZ±]ü"k/[«#ªÖtÓpKKd6{Ðy¡—öì{ ,d Yˆ¥Vd8²q³©´Ú0µÂWº¡" .2°‘5d r’7óèp$o¹ô…¬A¼ìÔ.O­ìY»É€$q›¬!kƒTŒ–gèpfÄod÷Ο kµ\Qƒ¤r°’ #Ȳ¹›bƒ+ÇûDäØÑ…Q5hÜHß¹!kRÉ@‘?Ò Y@ºÔGl@ÖYd µ |•RFÊ>zÓ²¸ZZøàîɳô¶ÆY Yp`ÏÚƒt§5G~e²®œ8|­ð û¬Åíó¯3¾8«!k€¬e/ÈZÚÙ¤µ ^©Ô´2zÁ+/i_œÕ5@Ö5h/ÿ¨Ñ.£ÈZ*X©iÇaœÕ5@Ö5h'ÅšV‰Vxeã³õ‹èÏ·AjZ7Fg5d 5g>DÖÀÿj‡°Š8lí }àb­™ÆY Yd-†‡ ô5ضcÉs=ß-AÖÀÍç"vœo`„qVCÖ §87é&ÀiÍ…Õ/øIÝq€Q@*a„qVCÖ —é—Ëô§5gγÏàj€­²†¬@:%²Ÿ^à´æ ö¦ÅÔÆÌ‹¬²È kÈ kfY[&â?2áÇî" ºþŸ½sýŠâHøÇÝ9=ÏYl/Œ4¢b¸¬‚wÄ((`D*FшDAWD× ‘x‰¨!ê*{¼ «ñrŒn4šÈ/Éf=nâê~pÿž­¾ÎLWõLÎxfô}¾ôtuݺ¦ëíúUõÛݲç ¸€ÞI²UkQ.ÁDdú¤ÿ$5BDš;½‹zÝÕÖH$Ò£Kø;5ÝÖluxÆ6ãÙæUÀr‚5’XY{–îö"m[å4ŠH^F_M­‘’\·²¨·Ñ]`D"½)ªŸCm@·5{-€÷lón¦¨ûS€Z‚5’H¹eæòe )Š>Š±¹\ôZ,º«¬‘H$‰`©;ÔíÜP·õÀ-‚5’@U9®ò*b ‚µX=yÁ5Ÿ–Öè®–8°ÖRÕ‘ž&è}ÔIó\ùW4ùÌôŠÒÞ"Á‘^ÓZ§w Ê ŸS&J„á…ØáðÁæï£U“ “SïÎòš4±´¢îîBcßs®7#¹tÍèVê($RBªzѦä½CwkkooZRV,§7¬·ÆKW-T_èܸļu o‘BÔ:0`¨Z¡yqkÉúcKáýHýуÉk$^+,o¢é$¨p¤«.-CF¨A®ïó©Ç¬%¬ÜK3¬bùmÇSsë£ÐÆEåZÉûBÀš¢’ö˜ÃÚ‘rÿÐhνÜy‹ /ÖC.kƒ¤–ú~ú\ê)$RâÉó–Þ…oþl=dííO&éû½-v°fŸ—˜·.á-’}­ƒâÖ6élƆâ-êJ X#qÚãµÀZ­9ÓÓÛ»¨"Ô•\êqk k5˜9l[~¼ò…Ùö;mœÙˆ¬ HCÎÙsdà ¬•aê-Ë`»´9Æ°v†»Œ¡Q +qæ=ߣ`²6ïrÊ ïà-¾ù¬¦ß(ûYŒÕ2’|KƲM u)áô™Ò…Ï­®ÆXVì½ýdÐ3ÚwQ׌| ¬Íìïïÿ9Tn\bÞº„·H!j0 ¿K|ÂÚDLR·EÀ,}‰M&X#q³;¸Ïñm —’b&êrk‰kM7ؽþÃõçƒàÙ+…µ¥ÀS¶¼#‚µ«Æ\Þü.¯«ÕO^Ö€h4†q¢2 ¯ùµìFfµò㺠YyÙë4c<Ûæ?NPW!‘öŸPõmNÁˆnÅìý è:Âõvf(d´¹˜`µôp¹q‰9ëâÀ"Ùך/xj|ÂÚçúŠÚHvÖjÀM¤¬‘¬òñßNǧ„$¢5Ò› k€æÒÐv@n•°V‚”zeØ"c1¬I¯_´ '°–ß™ ÿШ˜¹L›å+CùxmöÚ§{õ å €öøc}1ŠczÖW5f$oxxÆpêðRïÝ 3ý²1Â>†½“OLdVF’vTæ½hž5×¾œ‡ƒ$š/GRBU¸Á°/52þj]¼ êí?¥à’Ǹ LjaÍ67.1o]Â[¤µæ ŽSX«žÿ›m?ÊÁ‚¿±m^2¬‘¬Z$€µóD$‚5Ò kÙ Ïæ’Ã/ÛFÖÊ€n Ö.…„µ¬RxÆÖ~øÈy߆9îleõKE ß =¬R¦WX4Åð"ÌN×ïWÉÛµ§//kU°‡µN>±‘YI:#XãÚ—ó0âbDJ´b×ËX©ÿ¬?;ÀõöìÆÔƒz@²ÅP°fŸ—˜³.,’}­Ç)¬ý¹XàûÍí<þ‹»€Ùþ k$ë¤OšÖ ‰(H1Óޅ˨߬Å=¬±üµ€Ýaõ™>³»õ»Œä²Õþ¼Û9I.]|°˜ÑR IDATKÇU㥞@›úŒ)04PÊÜ k#”zaf2öåœY^2ÔﳶlIcªœV·h‚'ÖšÛò©¸„ŒÈiÃô#gÔ§sƒS,j´_Û {bw ž,.=óUu°ÖݢΟ;tx £scLmùËË4øHÃÞÉ'F'Ÿé‡µ$ ñ®Öè5×¾œ‡ã ?rz=`m–ßòMVá{»)f#z…°fŸ—˜³.,’}­Ç)¬)Îj@ŸÛýeâc¦²3Œ`dQ7D:BHá@»æP¼€†ºæPÇ#X‹sXó°‘hÐø»õmßJÝJ¾}E xo²Pú­=¬uò1E~µËð~!eg µ%$¬-77²fÆ`mŠ²;Єµ-™FuwÀڑ݀ݭ÷­ÒÎÉ?4ZìÒt÷ÕžZI:üáhŸÑ>kc:‡bx nΪ,8Í‹reþǡËs]¯ÀJ“~<ÿŸ¬1ìÝrb4ÇX™C¨ˆæ+vsµo°‡ƒ`ÍnFü^"× ?{7•GøÞnžã÷æ’X³ÏKÌYɾւ‚ãÖÜ[’|¶m0Ö®ß%X#YÔ'„µ…„áÕw¢²™Z!rMp¹†PÇ#X‹sXc–±M´.´‹‘ͨ¤­«ÖÞSJ@ë `ÛAßÐó)ðV3¦Ë~ÌÎÎöHÍWu ê–ñ1º ””qà°ÖfÚ³D\f2X+¼È5`m8 WVù¶ßMÖßm©ÁZ{*`ûa‚ìVmâ[]Öùç¾S%éPÐW¦Ü4¼K5°9Í(÷ºú“eìÞ»K°Æk8¼H×€íN^"Pk:dÿÇ~…,[aÍŒaïäU&£˜µqN\ûrF\ ‚5›ˆãŽ%Ê kÔL8Â÷vUùíçJ€ÖìsãsÖÅE²¯µ à¸…5÷ø¥›~Ç6ÿ=¡^G¿¹ ÖHý$„µ¹„áUír}B­ðAîw n¢žG°ß°ö10CÞœP}Ī¼h›*©KÎW?L½'›%ÞgíHÒš%QL. HóS¼qªdkY­ë®y±A{ ’ËLfl6ÁS0¯‰á%8nù ãÑѽê_åÈá%}‚•æã…y%ìo·ÂšÉ[N\™a@Uôò6ωkß Ë¡7tŒ×J“pþå`ÙŒoé„Ïæ4K¾ 8"êíê¿Ï”¾U kö¹q‰9ë ¬qå ŽgX Öï ÖHVÍÀÚs ZY‹¡.N§~G°ç°¶8.^ œÒvç`›$­Îé]@#kyÏê/.&ŸÔ¯97€ÝlDÔè k®'âÜXk„µ‚ÚõüË'}¬µ.\? ?4*at¨ø»T²¢s$i"ÛœU (®+ã¬ù@ÉìSO¿J×½’«ñ”ZG/ΕÅδÈÜÛùKÉkþÜr¢©àÊ° 57ï‡Û£§uG!ëà³j_S¼{’5Æë¥MØør°v¸’H'ܘßb(G]À¾·+:]´÷úÚ4`­Öìsã[­K$°Æ•#(8Na­²òJð]iÍÛ=k$« `m ñ„#Ÿµãä³ö‚¢~G°ç°6èODJSÀÐ¥KÚ <§«Pý°X0¬Ýz5àâbòIMýŸ½sŠêÈâ8û¸{ëTÉ0[ ÌÀÁ•±L"²¾Q ²ß®  -vø !âjRŠe|•ÑµëÆGEÊVð±?l­úSòïì}õ}uß™;ÃœÁóý…™žÓÝ·›Û]ý¹}Ïér€úý…oMð|ë‘mfX«ãöÝo>ðõ1K`­”×ÃQÑ•îù,´Rèy1d£niT!¬«þpnÖ£lh¯‚j©r”ý§:€Fá°”Ÿ""f„ td:îF ÿlÓážÜz|†`o†5Í"’[Ž³2]Ì0x7K1õ½ë÷óŽ¶ÚØ¿ÊÍÃrO2X ¬%;¬µ|®mIåaÍ4Úµ»2 k֥љͳK4°FÕè8AaM@UÃ÷_ÌFXC™õ¬”šqNa0H{Ñ ?Ç>@ZCX›™°¶T"Fr6”ë—£|ƒqò,2ÁZ@삲¤³ê78® ijÄUðz%úžÖH€‘Ž/|rBº0Í‘J…µ¦c'ÇoHGÊJ`£Ìýÿ‰Öø‡•r¦ª÷¾ŸV/5ÒÝq´KîKd¹šuì€óÖÂ%ÅÑ8¼ØR».ˆKq |ê¡`M³ˆà–ã¬Ì£ûÇçö;ÙjSÿJb»'é-Ö’ÖΓcí¥ÛYz5ÚuxÀ‚5ëÒ™M³K4°FÕè8I`m a Ei5ãlF–@!¬¡ÞiX›¨6¬I›¤Ý5P>/“òw“çq#¬ … zTùLYÒY‰î´HÕÝ®¢°j:¬`M|)Nº0—z€­kçdeoC»kO\ioXíßuÈ_¹#µHX5H{*ß“_N#+Óg!ã¨JÙ'оË Ú{b›ükx3¬é,"¸å8+Óň'¥ú&Ç&7XRä`«Mý+‰éžd°˜y*…œuLѰƶÏH" Cxˆ v€fÝ/Ôh×Ï ¾NÚui¬ÌÆÙ%X£êaTœh°6Z& à“2MKÝYÂCXCµzOJÊuÓ„³QwiÂч°–À°&¬`£þ{Keýeñ1»¶³vXÜY[¢I­HkÂ2Ö÷I§,é¬D_¬’—â{\o kÏ|#¬ÂÌ°V,˜x«ý°â™è³¦ÀZ£¸#5 ¬HN}'uwB§ä)¢²_¸â~+öï$qSl;¼ØÑ\€äóF¯üß0šÎ"‚[Ž£2_LäÊC/¦|6µ¾ÕTÿŠb¹'-fžB0uU%Sƒ»µ1Ýe ÕCv½Ò¡’kÖ¥…ɬÌ.ÑÌHT=ŒŠ Ö[Þ0Ãk(ƒœç®¥œý«á.IãžQÓòÁjk kßi!þDUÔt€ç/€ïIjèàçtYÁZÇ]rš(Ê’ÎJô@=[ùx®¸6ÖDäef†µ9+'å„6k=ù|q/¬}#ÅœìÖ öøÅjŽèÒYØsËqD£èôB¬#­fö/‘Î=ÉÂaM§›Ú~TrHÉå´Ëäují]µcòSŠf€T¬Y—Fe¦g—(`®‡®8IŒ$¾Ö¦[W8îY=¿l]ØŠ‘è£ÑCŽû{!Vmä¸Bk k«³:·K›ýß‚rYþ€FiqzÐ ½"üÌ–çRü‡.ùí°cƒâ÷T€@¿¾@Ê’J òÜx!þÒ±N€D¡î9V°6ÖW£<Ÿ¦ 3ÃÚ89${ÏNV`íR¯z~_0Xait Cü{¹|ó2½vž?Ô ”–/_ºÜAw\àz/®·áµ$© }FÒ%Ÿ†B×ã9´…M·'ľ¢ Ò«#­Û¿š‡‘¥šÖ’*$ßå…ZqäØ¡ÜØÅÁ üŽµy´ó{…û]|6ã¹ p£ˆ kÖ¥Q™©ÙÅÆŒ¤–FÕC% ¬!¬%­¾iEjˆYe·{!fÝÉÈLj°–À°Æ_ ë¯Þñói+E^Z'ï­hùcF°ÐðI!ðš«À„ûiš`ô² qæF‚EíZ¶½®OÒS–%• *è(~þ$ ï#‘?ðaM:gmîx•`ícÌÂÌ°æ¸oøÖÆeߺÄue«kâ^`­¤LÞè¥QW:øÖv/<)ðÝs9EXh¹†¦ÎðK®u]Â¥÷ls?­÷é¢ÄEB̈^"«[‡ l>Ò[„qˉ?¬ žXC~-¿Ç¡VÓýËò0²ü ¬%3¬‰AhKŸ/üÀ^é†: $Ty´§柭î7-ÕWx&¬Y—Fe¦f3’vmæzè„…µ+6!¬¡Â ‘aíí ÇÂZBÃßt_]†õÖ‘ÄŠ\âß«„¹Ü®$ø¾––»Å+XÑmXÆå±,éU;•_þä‹®›vŠÆ E¿Øľ*t&ɱ#Uvp#°æY"·±4â3ür¡mJBþ„| ^Ê …%J5þ…q½ O 5èN·ïðYëÕ·½xþZ&‘fgfî¢-¸å8-úb~ÒÎÉ«˜â+˜†6QýËpO2YÌPÑ Š Ö.ûý“«ÉžõJƒÞï05ÚÏé°ç okÖ¥Q™Í³KT°f®‡NHPXK>!¬!«%“s\öÒÂÚŒ…5žþzG Æ•}ÿÝAgcOÇ;k²—oVÏEó¸ëK\þÃA2¯>ꪽŀ5Ê’NPu࿯JkJæ^ß(ôÜ®*fš«¼¡Qó^3FÁ¿à~y(¯§í–g_žƒÀÿÒ Þ.{°Æ§œÌr¹²u*+{ü•ÿ, ßw÷í ¤Ï^¹áøރ7Rx¨ûnßá%²î‚¯€NÕ»‰-¬|â&r1KÉ‘|<_¯;kê­6÷/ížd¶˜¡å§kü‡—’®ÑK¯g§W¾8è1k´¿_™¸÷tŒ·‚µ0¥Q™M³KT°f®‡NH|X[ü;„5²šÓZq;i amÃZ¢hj¡Ñý¶ãmìíI–é˜ß²¤^bÖn/ÜàÚɂöŽ™6Xó´dŠ‹Ñü]íEŽµšî_³‡mñŽÉ6¬½“Ê1{TÆ&Gg¤Ä„µ_Hœþ?¥6„ äêq„5”ñ¾EÒ@½eMNâ8DXCX‹³ùìî4åg7'K£~ðÏUµg¹ÓŪ €yáaÍlAyÇL¬ñ…~€ «2¶..a‹s­¦û×ìaD[ ¬±õšëGX‹MÎÎH k‹Ë^ùN)qüçËw‘wÎb„5”¦¦´¶H ¨·©µµ­Á‘ˆ°†°_uÇb…×1èK–FõVÉÒŠŽr§‹U7†ÃÚقòŽ™>Xã‡JÝY{l5£MF óaIºäŠ°ƒœ‘Ö~9"Œtéão³ÔÁ´ a ¥é ÇýqõVaã&0$$ÂÂZåɜȨ³··âk.J’f-*Ðît±i!0cJè`¶ Üe¦ Öø‚ÁW•éÍ¿/v°ÕÌþ5x1-P œ|aí¨Ûížâ³ 'g¤‹n÷ëDƒµß,—ÏÿÙ;Óï(ª4+pIÿ`lFš˜0†E¶„° “ AvƒÁ ²„h@E\‚¢ÀPÁPpFG– œƒâ€ÈŒ:èŸ3ÕÕÕ¥Òéh*¦ºûy¾ô­[]/Õ—Üåéê·ª[¸ÜÅ*¬}©¤Kø+§zd ¢6æl:—ùüm k^ÈZ˜ÃíŒâáˆt³}Bþ’µ2ëŒòvßUdPHzäg«°rœÔw²/›é#‘…ö1äÚ }Tõ2™ôEd Yë8JsBwW?ÍŸ,@'Ñg¼ý  d­sñ¡¬uÛ ýyp¤¼Ä:¹b»Ti•ö kà0zY®Ð>í5}1­Ð>&myŒ¾ˆ¬!kªTC#0­¹)—rG9åפۜâ÷¾ÏZCÖ~O…öÂC±=®È¬†¬@ZÉÚÇÒi§Ø3[Úä”—Jß#k€«!kÈ kÈt–¬M“Šœâ)IÑ‹lõÒÈàj^QaÌ'´¶Æ¬†¬ÓÚ¯a¯ôµS\!͉V×Fï欥=‹GÚÏ_Ïí?L+´Ÿü§é‘ÌjȤ¬¥5 ÙN7’µYÈXì©>ºGŸ8ïlSOŸdVCÖ )>ÎãD™ÖZàNi¡s_Èé`´º·4YƒŒŒ>ûÍô©HøƒíGÍ-ûè•ÌjȤƒúi#­À´æ¦oìýU’VF«çJ“‘5ÈȨ0æŽ~a1é•ÌjȤéùPl¦µÄÜ&­‹”¾l”²˜ ½‰¬AFÆY3»Eß\Z»Ý\¡W2«!k€¬AºÈÚ5iš]èºV:­ÍÏ’žDÖ #cëÜãø‡òÅôJf5d RÑYÚO+0­¹Ù*©$\ajʱ5î⬥5Ø7LyðÂë´‚7Ð+™Õ5HAÎ=RE#0­µÀÛRÖŠCw--rªºï·\íٲȚWÔñœ5dY Y¦µ_}i-(‡ÐÖðváÖçûZÁ5ÈàjžQjÌpZ[cVCÖ€ií×ñÏŽ«Ù›ƒì좲‡Æ Èšÿ½ˆ¾É¬†¬@šÈZà‰éY–ž]œÙZvµ¼Þd êÌé˜7|S]Ý›Vðˆmf8½“Y Y€4‘µ@àçÚ)ƒc´vÇd žxËü1ðì.†§h¯8mN>NÿdVCÖ ]d­ µ 5Èø̘ˆøMÆl¤2«!kZ|üÌ74ÓZ ¬u8+Ì‚ZÄüǯ Ï eVûÝe­;@G²*Kh…$ CÖ|ÃK#ñðeà¥Jú'²ö{Ë@‡òœt­È´œü ýYCÖY@Ö5ð„Š—id YCÖâÑW™4 k€«u #«Í$Z[CÖ5€8ôxš6d ÚÊ®A耗ðPlÏï2²pÝYCÖµ4äyó):€¬ù™Kæ,ýYCÖµôãг ð’IƬ¦¼ä¦º–žŠ¬!kÈZÚqÅî‡á)µKço§¼äxµ¹@OEÖ5d-íxÓ¬ÀÀß\7Õ£éªÈ²©Â®’U4 kÐ&F¾T… €¿9< ŽžŠ¬!k*Ž×\Z5h˜$ôTd Y€T‡b²È`k€¬ kÈ®€¬A:ÈÚƒŠ’Ûïí7zûê!û%O÷%x£4´±~{ŒLÝ+wÍzG¨ßÎí {o¼4íÅYsvÞ÷hy!]O¶s®<:.4îÞIc];VeÖä„òîÛÝÇÙ­~jüÆ[íªüÖ£5MâFkÓ¹ÙŒ­Ñ°h¹Ûº yÁõo ±76ÙQoçïYó1ƒÖàÞóú‚Siï9Ï“±‘5_ÉšM^¹g‘é¥!^ÉZ,ÖoŽñƆµÒ˜aΧ½ý˜Ss*Ï©Ù1¶åC u>™ñmrpa§×¿Ú­ÙžâõΞPI¤¢>±¬ÅæMêËZ‚h–úÅdíÐ^ç­¼¬!kIÁsà9Æl¦<§¤ú:¶†¬ùBÖjæÛ\ïr1[ {y„¼“µX¬ß£µ¨Š®•~É‘Ö^©ñ”uH÷Èâ©@36Wt J7·x¤ÖØ—SV:wŽdš^¿õ¢4ùZ]fµ¥=›íš2k˜ìåp¹©¬­-//ïÖZ4÷h7ZÎÍ9Ù1Y•'M\VqÂR¶/¬álTyùfd Yó5‡™xN©1ÃiÏ9aÌbú,²æY+‰mä? Ý›Š²vÃ85¬•Œ4!ütáiI¸âþšY., *÷»–€ca¶†õ´^»]”šþ àŒ´¢0\8ž¥;{„ ½4«{‹AnÕ­‰¢¹G“¸ÑÚpn‘ën÷+&kÖpöŸ°Ïý·F*²knDÖ5_ÿr›™¾ àÊZrðè³€‡­!kþ’µÀù,eÿr²Ö}KH k¥5ÒÚ‘%Ïÿ´á]ëõS©.²owt½ÓôÎ'–ð2 É¯VgzØ^å5ËÜsåö¹“ý:Žf'Ó¦<O>µ;[¨õô!HNÞ’¦Ø…rõZã?dira¤xÁ×kZ uY‹­…Ñ$n´Äçá&sYû6[“çÙ¥}’AÖ5ÿó¸1Kqï™zòÌUZÁ{®ó7z-²æ/Y L‹.RHÖ¦<#…ÄÖJˤ2gÏ$ésËÙ–k¢S±ïæMù-Òé4$¼x,kMòòšgî¹rûÜÉ~Gó“©÷PÖZýÔ®l¡DéC”¬ÊÕ;Nñˆ4¦Ñž é&§øµô—ð.é«Öe-~4÷h?Zâs‹|ßÔ–GÖŠk–otªCšŒ¬!kIÀ¿æ¿Žt•{hƒ`û€$­!k~“µû¥‘ηÁ/?›ºcÂÜèÏ¿[÷ðÝ¡WîßØ#öÞų÷Ç?´ÑyCžæò·ý=·Mé؈Ù¼‘µ1]Ös^(^›è±®¦_îÀ9G‹æÅ­ÆÁÅjDâÖZ{Ø׃ck¥Hœ=}¤íÙÁÖél%¼”š㤓Þvgî¹rûÜÉ~‡+° y>ž|jw¶P‚ô!ߣætÔ?Ô5©še»tÁ)Iï5{^ø¨Ê)®”f[/¤ÌÖe-~4÷h?Zâs³‡æ§4q^NÃÝ ¬ád YKXÿCrAŸEÖ|&kÇò¤…v)ÿgew÷U{ûÐ+Îö†G#oýi¨S1¾**k«ƒ‘š{ßo.k:{ž¬ç†ÏŒ®ú¹EÑj¼EYK£a­4~Ës†µÒIi_T@­ƒí«­±>ð‡ËêzÆ9¤“i9}nÑ,½sÌÃÀ®Ì=WnŸ«¢ãp§&ÎóñæS»²…¤!kQ>˜U•LÍò^ôæ!Ö±t$ÎwÒ ë¥DúS÷)|òxÏx²ÖZ´æ£Iühm;·%Ê},à’µÂR²†¬ájز–Ú²vAšcgkìë/õ-ûü³‡¥¬úðJuœ²fœ4Â’¨ÜÁá7\þHzàDݦ7³UP‘µ‰úbiYX³Ê‹wK#Š‹ç…÷ ÌÖÄe¯Z{.…ßÚ[ ɬ(Ùr~Ô\´šo+F ì:ùÚÙY+–îj¸²¶<8'½Ÿ?!¼Š-øòX‹‡t*qÒç.¯Wðÿìùw×Åñ2fn“°‰"Ùˤ`cê0«ÃÚl6;\‡-l `L!Ä@á ¤ø˜”P(¡pØCYÂ’žä@ œè Ng—4ß03‡ùÞ_$=I×oÆšw¾Ÿys߬vÓØœÜ#Ù>öóN4Fèœóqe«iZÈ!>äÕnx´µ´{^-2”Ú ÌÓ‰Ývðؤú}·( äw±†µxnæÑÄÞ-¡¾í `h‚µŒ¼áO€‡E k k k,ÃÃÚ› kõL…¾ÀÆàeìf9)¢xV¿G*nsåÇ@ª2Óq¨YOXCX9³þk T¾\,*³†ìrùI 0Rz§¨¿WÞÄú4 Ð"æ$³æìA¯Òj¥Ñ<ý“ÔgyÂhÔæl}–.Ýê+¯Svñ¹ûÀ7IrdûHƒw¢1Bçœ;[MÒBñ!_è ª\‚µ@{ïÝÑ„¸½ð¢NÚ”@K{™õpð¤ôXÙy™-aÍÑ-j4±wK¤oMÇðC‘ Öê•{Â5kSÏ k k>Ö@®üYɧ[cX{í°#eêKÜŒ¨6NòÎP-Oy™¾¨Nγw,ÄmÁ´5@ɪ Å&XÓî^6Byg£„bÚ_¿ª~ÔZÔœÀš£‡}­Ô¸\¯<«–ª¦BQü *öàvíÉ_5dýk6ñ¹!,ËpÓ˜$÷H¶4x'#tÎù¸³Õ$-?â7I  IDAT>ä…qÃ%X› üµý3kIkGUúó‰8mõ‘?oäÓLEa k؃´[z2¬`ÍÑ-ò›‹ã–Hß ,Ÿ2ˆµ%Êÿõ“†5†5Ÿ+ïíÛ-\ù{¤¯ò>ðHçNíàåûÖükÁ­ÚRw€[Úž0W¦ÅÑeÅE`¸öô°\E²·Œ9Ÿã&XK1Ào£(6­ø±82=T@A‹šXsôˆsbûc`Ÿs;¹S>­¬€©SD±x$Pë7X³ŒÏ•H1ÎUc’Ü#Ù>ÒàhŒÐ9çãÎV“´PBÑ&†5I³ “*Ò÷; »þ|*->ѱR;%Ô±™êÖ}okŽn‘ß\·úÖ!ˆþ¢ÖRö/©Í k=0¬1¬ùWÓá.ý½ÑdA¸Ä{Á „6>zÖ^3¬8qâÄï—¥bÂXéqBé‘çøY,.*«þðToœô i$r$+ÕÞû¯‚dÑ°¦¿³8ùÓùÇ€Õ´¨¹íÒý¶q`m»TÕäÌ}ï]ÜýÖ+Ø+èݯù Ö¬ãså*ĺhL’{$ÛG¼:ç|ÜÙj’J(ÚÄ°&‹GÄdÒ—À’ÈìU&ýÀo%VÛ¤ ÏôPàtà+Xst‹>„mÝœûö4K‹¬)Z|Ï°Æ°æg-)®óúòi¸ äó^ðF»¾®ðñË°özaMMp4ÂI­uVŸx¬U²k’&öéÿBi¬‹-ÿ2d$Ó£=¹@‡XX[¦½3E/|:[õ·Fe¡¥þ7ÁÔÜ Öâ{Ä«•ÆnS‡¼7B>k}øL{ççPÔ=áü³t?íÊ]—î‡1&É=’í# Þ‰Æs>îl5I %mzÝÊÆ•nö"°糟¿¬%™¾QOòØþc{®n7™[Ó²¨¶€5'7ëÑÄìæÜ·{­aMlf2¬1¬ùYãaWþ kɧ›‚0™_†5?Àšø¢8¥Uëñ‰ñ‰êšǪEmaªø:[þ=Š¾õ5…µi±°–>3¨^uYw×´¨9…5'¸µÒ‘Ü÷ÃÛ–6dH¥V²âÛ`ý,ìIX;c] ·ŒIrdûHƒw"I çãÎV“´PѦ׮\Ô%ñ—¡‘iþ#ÀV2Ç( w3-~hïÏ,`ÍÁÍn41¹9ömžšáµ†µÒÊ°Æ°æëÕEfänæŸ/ƒLBÍY°–_†5_Àš¸+d¬R5³6 ø—òä+uJT.¬5JÖš¤/¹×eWº¸Ã´¨9ͬ9y$T+µ*§¢«¢ ÔJã’M_ÚÌvÙ˜&÷ÌÙ>Úà™HgÈù¸³Õ$-ämbXKJåúm jèz9ëBz̤/€#°ßÍv41¹9öípìÿªWì×Ä°Æ°ækqÑï¡úsÐKñÑË°æXß–J𭆈dÖî‘õì»ç6Ú¤ß<»°¶øøÚðд¨95G„j¥[ÊyêüÈ-ž‹Âx’°VBf‘û°fJ}´ÁKX3Çs>îl5I 9†‘| ¾ ²Úœ×ž†ºhGDÒˆœ8Ô¼À¸gÃJ„‹,`-®[ìo.Ž›cß(¬ ›UZ ŸÁ‚zAÃó‹Å´Æ°ö†ÂÚÓ^À¥vHhÏrI0»«6ç&.VνÏ1&áÄú£‹‡½¬ÍŠ,¹øŠe&ТæÖ=ìk¥eWô«Ë”UÿF–6ܹ#€Ÿa­Ùæ¬ÿ«[$÷LÙ>‹¯d#”e—óqg«IZÈ1Œäùc‘nwR’©oÊ1n³>3ò?VµG 8ŸG€i5ÐG´€µxn¦ß\7Ǿ OÕÆøÔTiøxG{ó 0¬1¬1¬±X k ko0¬‰¿v7«qPn¼*ë¼rØ\L|dÔdQ”¶ª £V°¶¸` k€¶k;@]åßZÔÜðÒåèa_+=êÒŠB\•ë€ýjKèu;ü kC€ín[%÷b³}V É.F¨È&çãÎV“´c‰aMUu¶Á½É!é`ÿJyòS¶±’ª$V‹^¿G—iç®Gý`¢a-Ž›ù7Ç-¾E~­ý”Ç 3M=—Ðh`XcXó¯ò¸Þg%³òøÎØ kþ€5±30^.„K&×”ËÃ.‘“'ŠóSÊ딃蔢V¹}”«#Çf« FX; 4[ÂÚTà;Ê*¥Êq³hsÃK—­ÇÓ¡CW;àÎ> ›üØ}.BµêI½”è&0¤Äÿ°–¢‹ ¼²±]rOV«¶Ìœ}ƒËŠ×»œ;[MÒBŽa$†5m6(ÉnŠ-Ö‘ùžôøï¥Ú¿øäСÊå×éY¦ä^õ2 Uæ«il»kySl{7ò›£ntÐrr‹Z`d¹ô«”ݪ k k~Õ’Ãe¹Þg%¯Æ•ÝàåûÖük*´’bÕ(àØšÞ”*P¹ôúQ)pzÎð†óãÊ_© ÉúOy[B`·hkûN“&½Ea­(Üñ¸Ã¹äÊñG X#憗.[žÒ7p§&€PYþàª`¾Ú"•9î_j€ðZÑÿ°ö©kWAFÛ%÷dÝ2Ö ³kpY¤3 ä|ÜÙj’r #ù@ãbÒËÀÚué×_¬ÉÝ‘óÏ5Ÿ–+?¨UÒ0 ?v•ÆÁ|¨õ _ôïvq‚ô¢%¬ÙºÑC˜¸Y ZnQ°Vܘv±ü»cÀ(5½Æ°Æ°æG}-g¹à÷Róøvžª\¦ðqÌ°æ X×HµÜ.ùÉöL­²¤f7Æ,Ò^‡®©•r÷izÃî"KX«—ç¼d3²tª^5.mPÓiäF³¹áeÈÎ#X»…Õ¯¦h %Ÿª-YÇÅ$€µÆe›.“äÍö™¼éL9w¶š¤…ÃH>Pí†ç.ÁZI[K{;Q4 £“«¯Þ©í¾ê J:ÍÙ[Ê•¯²´Wýƈ6°fçfq›Ý,-·è¥û ô¡ú²¶ÒÃÚµ·³Ðƒ—í÷tâçzç ¼¼ÔaáïøHfXó¬eÎ(ˆ´¶©¥]Ù¢EÕÄô‹}÷Fõ»gàLQùõƒÂ÷÷ª/ ¬‰Å“zwÊ|lkâìM+—>.zZ¡,Ù@óf&sÃ+"D`M,®ê—ÝïNÔ,ÚöksÃÛêš[Åd€µ3µºolNî‘l ûy'sgÉù¸²Õ4-äò¹^Ö^Ec»¦'Û®ÙtQ`ÐÕm¢V¢ PX[›g ”ný£ù.Ù½¢–Ï·t³<„Mn–ƒV\·˜û¬Õë»-µ¯-MdXcXó­þ. \î{©é‚ð)ïO§Ö>ºð‘Ì°ÆrGË/¿yÛSéÕÑè1Iî‘liðNæÎÄI ¹¼Õ$-DÖX–°æ—A‹aa͇ª¹ó-Wûžj¸ äó^ðTÍ×jùHfXc¹¢’wû¼ykÛM^›“{$ÛGÃ~ÞÉÜûÔË[ýöÎý)Š+ À[n]§N*è ±Èú(2j|¢"¾(DßÊR ®#n–à#øVÔ„XÁÄGÅU©ˆ»Éj(B\SÔbeSëú'mÏ“žéžaçAß÷ Ó==×ÛGîéóÑ}ÀÐ-dÜ]Y‹nÒBֵѥ>wÖ¬ëYƒèÐí÷Xg2ÊZ½È¹X lèÜ3ôövÄй'´k(ÚgØ-dÜ]Y‹nÒBÖ5\í¤}ëåÕD[CÖ5+Кqjlò•Ÿ¬-y“ {†Þ>c³_ ÿ'&¬k(êgÐ-d¶À+k9ÅÅÅoiñÑLZÅÅ]Ȳ†¬`kȲ6jü#1ˆ?ÿx'eÍɬѓ´>uMYCÖp5d YCÖ||-‘µ„ƒ¬!k£U[ߤʇd ùÙº“¬hd ÀŠXïb kq!W©¹”ù ܨU)¬hd Y@Ö’…v¥žQåCr°W©§¬id À‚ŒÍ¢Èò³ªÝH‘ûôöœ-! 1'?U岦‘5+Ò“E2d ŒwÖï£Æ=ÅJ$ ±güùzÖ4²ÈZ²@–(5“(Ä–4²È®È²È k¸š¥yZ«Š‰¶†¬!kÈ k£Ê+ÄYCÖ5d ¤yëJ{H6VN¾ÁÚF֬Ƅ÷ k #oŒZÛLmIF™ºWÈêFÖ¬ÅØÙÒFY”Ê¥´‡d£B©™¬nd ÀZüU¤œ(²:RÔ7(í!ٸ١n±º‘5d Y³öµÉ}Töñâ§^b/Nîfu#kQg,@,ù}µŒ#  CÖâU}ü\[;‘(ÄV7²uø¯€Ørçt:Aಆ¬²–ø£ØÈW5d ¸¬!k€«!kÀúFÖ5@Ö5d Âá‚RÝDY㪆¬—5d †¥¾§‘‚>Ž”´•·…82©g#«YCÖYCÖ¬HÑ:u‚’——ê«Ã¬sd YëÐ<© pYCÖÀ¾qô¼,VêgÖ9²†¬€eÈ;"¿.kȸùP­»HAÉKçcÕ_ÀBGÖ5° E"牗5d ÜìëX@=ÉLﺬsd Yd 5dÍ‚PË„ÕK®ü·“0XÖ9²†¬€e(pÈ9¢Àe Ydm„TvT‹Fö'-#ùôÍ—·îCd«²„³u —5d pµq·¶xYÚùçù;kØW5d ¸¬!k€¬EŸ‰SDGvä7×–(5“0bk\Õ5ಆ¬A(.Œ¹BõÕâ‡ý ²fŠŸu³Þ‘5d 5dÍ:¬JUm”ñ‘±T¸z#RÝK­ÝAãM®ª=ÉŠGÖ5@Ö5Ë°G©Ó”ñ1N løæÜSâÿ_ £T+Y‹“¬5TœÊšj¿zûUCTâÖ=Þqóå/ÑSdaÈ÷+$Õ÷úËŠ…óÓ2û‹Ý[å~ rúÐGòêd « Y©Üt$íêíñyþ{ƒ&}ñå:ænˆÑl¶fÝh«B ÎÜ4ÒïßÎI+ÝŸ{Ì4MpºYCÖÇ@­zIóŒ²6u7a±—”ªbÍ#kñµ¢S½Ùaýó·ZÕu9mY cÌad­}ýP¡Uâmä]{l˜Ú Y“Ëz­5áôÉž5ÿÃ@X²¦Ï!FY 6šÍÖ5Y >Zƒ÷q©¬Õfé YCÖ¿²R:x/2vdeM*ˆ‹¼<¦ˆ5¬ÅAÖªiYáÄö¯Êþít¶Ëoµ•}Y cÌвvG+ª¼…VUŽÈ²-¯Vh)Ô¶ïÏðqDd“ï3Ó‘5€0)ÌkÍøœHNÊý½Õ"3üî_Iú¢“µe}}}!F³ÙRDê®{8<ß„57[ÞRç;-[þ }©2Ig¿ëë;Š¬!k‰… >R^™¸šüH\¬+Y‹ƒ¬þ^»êïsýdàðË ‘7É(k¯ÊP¡5CdóyÏôÇ"—ü{ºAvù.J-È@˜‰œ·Ô„ë3dÊ5gÚ;.Òg~ˆ>!øå¬e ;ÚuÙP8ìðáÎm±–½f9ÝøW‘ót¶YCÖ5kñÒLÖ¶l 54#©òn4‰ØO&¬žM“¡Bk·È²mn[#ëgéŽ;–%öÕ¾­ßÄnO´¬é›d ­*¶E)óJ7T÷oŒhÈ€'¦Ý1††=ýã\bvÚæ“1醚Šºœ´å‡~¹ãÚ «-)ÌÖF°¦¬ÕŠ|çzQe—¯MÐ%ÿb"k!FË’yà þÜ´wÜŸ©Y.ËÍÓ²†¬ájc²™¬­ˆpÓ}DYCÖ’SÖò5=+Ú¼ýöר“µÞ¿‰Ì.÷Z¹")žwÆ‹4ê¼,²×·±Û.gs,kú&C«ŠmÒrÏžÇyŒÙ(kAºc {ºƹÄì´Í'cÖ=šü,ϔӚB™×HZßÌŠ ÑðHþn¥ó©±Ë.ÏË2‘³C†B@1ÊZˆÑ{¸Ü/ß„;·âð¼Ú/rØ4!kÈ®f1^˜¥×"ã'¥*‰$¶†¬%§¬iµ€¾Ód¢L;çùQrã?sÒæ¯ÙÛêÞ\.å¶úÔj{Ö‡6[^ãë쩇Þxº*[·ìÏNËyݶͣB.f™Œ¡‰A÷õiöìã¹ùÉZý Éø,`^3?ùÀ^º¹­Õ0¦m[ê2íS«7ÍIFÖ4™2÷=_¡õ«ÈDÏ;wÚ©íU£ÈkíËgÞÇt4{(w~õõ—Æ(ù?{çþÅ•Åq˪©®oUu˜‘Q1…"BÝÅGÔÈÃ(T$¨H"P¨( *Š–«FÐ TTL!–°ˆQ+®FÑH6ê*šü°³¿ìÿ³ýºýº·{zfwª¹çzn·‡{›éãùô½ßswKK'€'Ö ÒZËo/,‘¿ù݈´ ÍZ e9òÑA”^¢î³¦'ZèÙú ¬]ÑD¨E´¼ x kV‘ŒUªHÃEÖ÷g~ãÚ¯U@ÃVÇP‚=Sƒµ/ 6Ý[õ“‰è©‡9æ™ [Y’Kiã$°õþŒ×°v5 ’qXÊY,¢/0K ¡aÍÁ[¥~»Ò;Ü»ì[ãFÕÙà›pÆaÚgvÁçÛÂs÷8l]ŸÄêã§ÇùôÆŽø|¿ó§ŸÃZaí9pŒÑ¼¸Ð^ò>Q`M)ê?øX©Dьà £)ÈxZeŸÖ(½!¤+2·¥ò+` Ö:[,¿½#ˆbõ_nQfÝ(XÛ&âœzø˜ ¬mÚâ{ ;„nhô# *,q‹‡°fÉX¥*"s<ǯU@ÃTÇP‚=sƒµ/ 6Ý[õ“em}ô£zØcúÆÛË’ÜI'ƒ]W–ëÙÁÚ+ )ׄŽÈq.QçM!*¬Ù{ „ȑח_oÿ Èϵwï¶oß\R*åtUÛ„3kÖ<³Î’’BžºÇc'­Áµ½Ÿß”¤±þáòüéç°–@X; 0š«€ëêao6ÚXS$g´ŒåB§†Mó¿¬(gô鶧Ë2¬¨dLSÔ·HèWÖ Q°–·c×}¢c(XÖ¥U˜yåb@Ì&|d‘ãMA¬<†5‹HÆ*UÙ ìó¶/çŸèɯU@ÃTÇP‚=sƒµ/ 6Ý[õ{ôÖ>8È’ÜI9¬é°ÖÝ·8™†%æF7Éq)ê¨óÆ€Öì½ud ½@þˆþ°1Ü»ë[ X»îú£’z˜Î8¬qXóΦðêññÙŽ£æØúñ~O’É®ñgŸÃZ"amp’ÑœÐ>ý¬­H‚Þ§=DJ»êºþÖJÁåC¤ª¦ß² ío9ÔÜÌ1à·,Ֆɪ(ÛÒý¹Cm5Š‚Ê=¬†Å@8ðÁXšŠQJþ‹ a#éHk:v<†5«HÆ*Uò†Še%LU,V KC ö, Ö¾$pØtglÕC.MLrÿª}p%¹’6rXÓa-Pª­M Û ôè³WéTÎi.`ÍÉ[¯ºŸ¡´Nñ½{w}û x!/;MÉƲ^f8ã°ÆaÍ;Vãw‘JchMãò³d3þôsXK ¬-ŠÍi͔ġ_‚µ ÖÖ)Gƒ2¬IŠ4Ñʶ®«6Ãåc/P`5Ù~³þöJsB˜Ë†µê3]ƒ·å’rVíÖ„gEŠãâ¹µ·Ö§zr~ aeRÅë}ÖŒ¶HU>DéŸüjËËtcV CC ö¨K_9l¶z0~XûXš§}r%¹‘6rX3ÀZ²mŠ}…”É‘¿ùw¬§Á¬Eñ¦Øe?²¶î]õ-GWЧ,P§Ã‡5kÖ’ÐÖß “ÀôýÊï‡5nÖ4{ ”š1VËÉD©š‚HVdJ°ÖdkÂï# 5SŒ°Fù ªQH°ö‹–N=2'„,XÛ7 ”º V6Å kÂþú£á¢ÓrÅT«Rm*Öӣϴê” Ö,R•UȈ`ϧE€Ý®=R†:†ìÑ >s_9l¶z0nX;.&¶3´ON²$7ÒÆÉaÍ’ÖÎÝ$[­§ Á ¬Eñ¦ÚQ²˜œåÞUßÄ3ê>(Âx¶úÍÎ8¬qX㬖œE_¼“©ìÛc+ãúçÇ×ó[ÈiÃÚû kâÿïØdü\STqSª¢ÏŠSgÖlaMœ–«Âk”ÇŒ™µ*icÐÒ§| ÁÜBkÖÄk‚ÅcO׌K«+c…5b‹5ÅÞN1g¢s&¬Y¥*âøUíÕ”eÖå¥F hhu %Ø£(ÙLâ†m£ŒÖ:êôÂ4BYRtiã$±sQam\}ð"™†Õ¦×øl¡÷ 47°æìØU`¿­{W};Iê9‰6~f8ã°ÆaÍ[ðp;¯‰ñ?[ãƒxUCWÊ[øýóÎzf¶ñòýÖkwõj€’þRR'MMò„˜#¬ÉÉ}P¡&V”ŸRÜ´c[ kí „¼vmÃ0b –(°6_Ä…×Êáîøaíº6‡ÖfX•4!aÍ*UamŽZYn³Ä¼®Í" ¡Ô1”`VðQ²™„ ÛN='¬­YmT¯äè,KŠ*mœ,ö³xÓJJJ˜˜&¶ß!F²¾ý<™†µ 8«>Ôbš—êc5{oݧϒ1„ÕlÝ»êÛIÃóZ£}-ÍáŒÃ‡5Oì™Ïw§ìÞÙg>ß)~¼³•>ß.8¬% ÖúCD Er)IÕçz³åtÄÖ²îßW¯V^°¢|l×ÓŽ³2·)›b¯Vï·¾Ê'>F†°`í>›´HA;×°v|Ã*²‡ô@-áSn(ñw+•XóRSë'¬QR•UÐæ1:Cäo“)JC ö¨†l&QöSÆk9«½º`-š,)š´q²Ø{Zº?ï°¶=ü½&±œQóÓ Öì½½ÒU¹…Ú’Ærç’¢öÞªôW[ ~)~2‡5kž®Q£LÅ]®CQ.5irgÀÔ¥Fàkµ x-0bð©Ùmm5Ð&(v®aí“ É˜vñV=ý!FÝñ‰£Y£¤*£ÀC½›‘x¼Ë«:†ìÑ >–l&1öUÆk?ûÅ/šq™B4Y’³´‘ÃZrÚùþ!Tûéo1+ 8Áš½71Ö¨q°B{hÙñÆEßÄðKö ¬•§ßáŒÃ‡5/lÏ×Æ3v>³6yM Y<pXK¬}’4)Ï7t|u׳ù@•œ× âp‡¬½*ä•eKá—¶<œfûƤDã£*eZH…µ‡õòñŠ-±A~CñL̯s >5${t7ÖAÙ½X…µÖÌÌBgî‘´s)ÒÏ›ímS_Rq[˜È°FIUºtU‹P‡æx¼Ë«:†ZJ/ u’Íü‡m» 5X›²ÌŠ¹•%ÙH9¬%9¬µ±q®øóÀNõÈËÌ$˯™ÁÖl½j€T)ì-¨šrYîé eï퉪?úáŸË gÖ8¬ya=¿tñ^ÚЕ®YóÒ®MÝÉㇵDÁš0“®ÃƒW¦¯•ê+–(ux@B IDAT¯m/”5[R6ïBrõ<[Xëü¸tîÖ´³óÔ%qËÿ1_/ÃGA³˜­Ì_±åð¨U‡5iÞl£©¢HµØ¥È‹ϧ‹=ºkòIl<oÓŠïäB”»tXË{šÉhµÌBhCÛ’.‘ߨM…À‰k=¤U–ªˆuNýc­[”€ÆªŽqkæ¾$¬} d·™ZÜÊ’l¤“Æv)“¯v°öO„ò’s`–½Yqú°GŽz ½z`GX³÷–®®K©Í/ØÁtÏZ¶ÞZDoí_Ìx^R1ŽgÖ8¬ybëù~ØÞÚñ~¼¥µ8¬%Ö„êQ-÷:¼™4¦«MEŠX̾ÀHcšze¨JN+¤¹.¬aøŽ×¨ ùÒ+a Öb3ÕÔ¥›MÄç·ŸÄRI—wNSnîaMHQw3Éþ‚´|œŸÐ°FKU€—jC¦©Â¡³Q«:†ìÑ >ª/ ¶­z0vXëÂñ¯³,)ª´qÒØøž… °Vxõ•r]no’ ,P®ŽâÏŠÐÀkÌ€à köÞº#ê™Ùl÷Œ eï-g©z&¼Ä&œqXã°æ…ñ\78¬%ÖÄtêÎH™?mô©Ayùù`sYÚªíª Í¡äxí"³Jg‘RSŽ}åßxáC>:ó8’]ô¶MY D`Mø5ˆ ¹þc`FÅRøöùLÊ'±¬ÑÕÙí»ïZ3ä]cc€5aJ×l¿vU¿Ö°è›Ð°FIU¤Ý­Un˜Ã6Í´€ÆVC ž4Ð}IØ°í:3¬‰Ùqø™¥ÍY–ƒ´qr˜¬iv1˜’lcZ>’6«èíAõÛl€5f@p†5o‹O¿+šÕ¼ufžM¼a-[o GöDfÍ[ûi]8ã°ÆaÃ7nÖ8¬½o°ö^Ùžö÷f(ÿeïÜŸ¢ºî®ÆCök§+ŠD# Ž¢B‚ÅW‚JÌ¢€%CPQñQ©ø¬ïÇXMŒÓèØ4>¦£6ÍLª5jlcËŸÓ³–½{w]ÝåÈ~>¿ì9÷{çîÙ÷œïgïž{Û²CûR­]µ‡ÝÊ´;eµûb‚mmuLDY³·ÅxYûdXЇ{5ò²¤ö/mDÖ<ß̼dÅŽC¢óh¨ZȲ†«`kȲf.YƒuCY³/Uq?)Á¹oÝoGˆ¤oÿ!í h‚WÇD”µm1]Öþ«;i„Ÿ÷<Û"-KjÿÒFdÍM>²fÈ …¬!kñf\Ý6Òt€=ú­f<@ÖµÈ4ÈÆî(kö¥*Ywz7 {БcÚЯŽ‰,kö¶˜.kõÃð&Æ—%µ{i#²æ»²vY3aÐJ YË»r4ÃYÿiÅ–ÐáÜÛ¯}05}λ®rd-¶LRÊEžÞÕ··hÚ¸•^èbV(UÇx€¬!k™‘¶h\·”5ûR•Wg̯Oÿý½\Ee[@´:¦²¢-FËZž„µÈË’Ú»´<|îL¼›¯hYÛ‘œœÜÉ'¡FsÐú"9¹)ad­®ÔwJO_*¼`½ÿ6TµX²æ¢ÚÇmû»š[Jí§ºÚ˜ÕÌ×5d-"+ð Ð$â™7ÄãçÍ´úy”²ö¡þ¤§ßŸâ¾áðêsëT÷ïîOv_!ŸÓ‚¬Å¥F“§w5ÅüÌø+ldD@Ö5€î%kQ$dí¼þ sõÇIº¤­lsRp8+CdÊ´\‡ãQešîd-†ì®¾Ë3Ö5psEfD@Ö50zZ‹gDFy­‡S$58~GäÀo±YkÝOÈZ 9«u=·•*¦ºžŒÈ²ÈÚa‘´µ¾òN‘AAá1ZÐnûÊO3EêµØA‚n£Sqf#`D@Ö5HxY»*r½µüP›Ùkø È e[eC ²†¬`kÌjÈ$,MjÀ´7戔ù+Ù"‹­áÍ"—yή€¬1«!kš¼éE/0­Å‹³"²Â_+Q–ð¯:ÜY‹?Õ¥’œ²½i #²†¬€iä‹4Ò Lkñ✶±þÚc‘lKøˆH¡ÃÑgݳ™ƒ{ k±c±R{Èθ©®02 kÈ kȲvMËÚ·þÚŸE2,áÑ"ËýÇûŠ=« Y‹%ÕjɹŒ|@˜Á^¥V16 kÈÆ€ñ—‰Lkqã’ÈXKMÊÃe"5ÛÝž–é±µgUÈZl¨TÕ·HÎ`Uß™ïÓ Fpm¦ZÎØ€¬!k`+~ȧ˜ÖâÅ÷"ÚjÓ´UÝ ²>EêßìíxÚ?[O†?RUÑúÐÌSêü+ð|¶©áäæfÀC±Í¡Ÿ*clˆ#È k¦±ÍòÃÇþÚÇz†—»¯§-{â)?º¯Ëo‡=R‰„á€R ð| ~áÙ^Èó`+cC7Yd­#L²]Yû:XÖf·ø*-™Ï»´¶å*WÖ^Òrc¨Pê¯ô‚106pe Y€–µK")Ö5kázÃßýµF‘9¬Y‹ääæpäÇ“çés`tè^³²ÈZGïYx7È–p?vùk ^Ò†¬!kȳ²‰ÄÄËYtÓZ¼˜¨ý+Ë_{,rÆþR‡7ùkKtí!²m,ÝMJ×Ò×#5d "kˆl¤˜ÖâÅYí_Çýµ"‘‹–ðW:|Ø"k=‘µhŸòËÕ|Rr€ÐìRßä1J kȘÅfZ‹+ƒDÖù+›E[¢ÒD&þ Ò™„¬E—R•¤ä¡ùN©ýŒÈZ‡è K²D¾¡^º‹¬¹ÐZ~("ASé2‘šÀ}'sƒ‘hsUõ]EJš%ïª"– kæ4PöÒ 7VˆŒÍó•wŠ+·†'éð_ùÔ‘d-Ú,W däQòÑ?Ó 1I5"kÈ€A4Ï{›N€¸‘ûÈ¢-žâWN‘‚ÂOjEæýÏS,¿#2õ²mö¼O>n»yΚa\;Î(¬$*î›÷œ¯­­"CdïÎü “'OöÎÜ—u8û¼. ˜«K9/ðÈÚó!7‹b¥FÓ fÁ(¬$,•ZÂÒ¦*Ô/S[ñØKWV{‹eº(…º—¦_f k¸²Ø²†¬ĉ&§x4Ña—5GÅ_8exù‹YCÖ^&TW÷§5d Y0„¼ÇGw¤ÔÖ|Vå%kŽÞ©‡Ž•ÎžweÜ‹Y ϦmHÄMÃu‹>0É%ŒÈÄd-,ã櫃$â‘®~^Ëx¬˜ÁÞ7ÎÑ €¬%ß+UG" =ˆ,e¼@ÖŒ€ç¬²– œ¸©ö!ˆÄÖùêÎF d À¶ˆ¼G/²–äÿÌ}ÚC±ºˆ¬!kȲGf¸ÈÂÍ£b?}`×F2^ kf0HRé@ÖRpù]µšF/ã²-N¥Îšé,œ›s**‡û¥7˜"o„ø±¾tDžöí‹E*[Ë-"r£µ’›!Î*ûqfËúhµ×Nª¼æ/¿’:jJÊ}{Ú¢=ÿõÎŽÒ9ûz„ß ÛÐgÓKÙìÀs¸•qÒƯ¡OfC=ûŒñ”—\,L)œ;ÍþøåÞu2œõ§GzkÃ%ÙáÚæ C´ÍrøÏ<"þ‘5\-á~pÇS±5d­ËÚ×3['ÿ©É?\K_ÙyY›±ÁÛ¢ÅÁ/D®·–WêJŸú*kDF8^@ÖÚß^k7´%zùÙ¾>,úÖ·åV†oËÞ‚0{@×xû¹m¢à“Ù.k¹½|{êt´sÇ|‘ §Ú/káÞÐÞ6ëá‘5d YCÖYCÖº›¬µÜÓ“{Æçóo¸mW§—#Qµ¼LIY^ÜìYIÊ”Ì$_¹HŠ¬òU&‰4½ˆ¬µ¿½¶‹:SkMôZ‹Ô>®ÈY/2ÊÛ¼Ûceì¬í½ôgèzèZÏá6Þ©éëãQ¨“9@Öj].—[Ï>üVqÙeÕ«<­]“—V|§êºûÄ×)U+…"7C·+ìÚÚtø<—k;²†¬Å=£“~›È4¥VÒ &R²ò0ã²ÖYzÿE'—¶xŠÍi¡…'þ²vWäKý2MäÓàÐ!ßÏ †É鶻œöo“¬õЩ–?ÑS"Ü_lçîõ] <5Lf/q:%ýI¨= k±œÃmô•RË÷)¶“9@Ö†z Ò$û7îAô¾ˆËr0}â7»õíiÈ›–ÈÂR9ú*{ø7´µÍ~øžÈ²;þpS5‘~›ÈÖ+÷Ð &’£î,dä@Ö:É?D²[mW§œY&ÈÚzIs¯?+wJ}p¨N$Ç[š¨Ó¢é’íÛ^(ãsã(kI )Ò–è}"RÛÇSÊ}&Îê×+"»½±ƒž$ʾGDZŒ¦“T¥Ö Nɘwp€ekA¿Gí‹ì¬‹oâóeB”ßÒö©mo`ÛP^|á@Êø×="}í^XÏáêåK=ød!k§EJ<…§ËÑÀ=¦ÉôrO鄈 Œ<ªçšÐ- ÿ†Ám qxd Y‹!eüØ CT(ÕÌȬuŽ?Š¤ç·UçvþþÛQ‘µ "ÿq{S¦‡þÏÞ¹Eqdq|Qûk’Ittg`4®ñÈC"T| 1³pPQWAÔã #Æ(ÑhP\ÙD…h”=ÆG5ë+«.lŒF æ¨9jÿœíª~NWõ¬ÃÌpëûKO×t×­n¦šûé[·ª¸«|ws üÒ€B©ç`-o#àJнÅÀ4õ›)À¹å˜¤ì´9‰sDj7¬e¯Wks嘋‡B‡5&ÉÎ’|Ó ·IæªLAó%µ`ýÇ ô(É©z±léæÀ ó>Ó™YX«òâZtgþÅ­¨Ø ~tù?Ín³ù- `ÐÚ6NõÖ¬EN­5Ž‡…û-$„f9yâÙ!`-$ɞū¦ÝO»H}ë¼».Î59k¶:' Òœ?y×H“¤ô óò¯ÿ¾IùêÞêeù®ÆyªÔBõ-§I*¾ÿz¬3ÿöÚ‡~°6'ž6ÿf=ÎÉ›2ÓÔº#“aʧÑ2‡UcèÎn`³R\Vøµ3³|Ã=ÖòfŽð^¬Ô<(ûöZNub~ÌÓ•¹ë6sî[?™inŽÒ½€Ãê7C€Ó’tSÇiˆ9"H1i4!*­˜úûΡ5òÅo5ûtXc’ì¬É7= p›d®š1À¤â~-Y=h|&X[¥fÚ¡Go•¥: ÿU˜ÎÌÂÚ—À-µh<ð÷XÙÔqÓî',·ùM0hm§zkÖ"§á55g…ó-$ŒÆv8ö‰g‡€µPT\oÉôz¬n“–«“_ƒµ:fõÓ«ÊW©«ÑÚ¨Yû‘~¬uHÏÊÕ‚“kL°¶f„ÎYºFzá®–ö4¢‚ ¨tdû°ŸKUj@í4ð6Ùþ1Zµ‘Y­ÁÚ -(Pb)öíµž*ÃÚ²û”çèenÛ$ŽÞ`¿Æ‚@9 P}(ßïï|Åæˆ eMU Uò]¬¤ÃFϺ‘;P÷¸çA‡5&ÉÎ>ù&b ·IæªLÁYà ùuÄüÐÆ~yôâ-ŠméÆr€á1yo¬=ûŠmöïÌ,¬}g¼ò˜åÒl)Pb즯fØ´,€AkÛ8Õ X°A•• ß[H(8Ý¿*žÖBR_Ì)ß/Tì´ ç—îvÖx<ǧUVÈ®ë.TÜÔâÈDÿÑp¿wdJŠ :ÞQ2ìeÿHÉÎ.æÔÑ%Ÿ|rþÄÅ×a÷tX9L©ÈòÈ}êDFÛ6Ù/šB¶oÿ áµ|z ¯é·SÀ‚ïÜÜâAòBÖœð|³´­Jˆ}{™S›^àÆpÞ˜¯3Ê»lÕÑ»L7âf’ô3p,)‹ ^òg¸G)kMˆzäÆT5Åï „| N¯ kL’}òMÄn“ÌU3X‹weøcU<â…Û‡`ÍÒ‡ Ý€û3:Ö½ƒ¾+b:3 k ÀBµ¨ÍØŠ9ñp×”U;Xaײ­mãT/`MÀZ%o!¡à%žÖBÒû¦UËÌšœîO>üÇø( k¨ÝG"o$.UC’SvóäM›6èç@¶zSÇQÙ C'‹'(£)¬EÅç9-˜@’Ž(>`ÒG•HÜD×(L=Â@?ÚçCÜC k( ½ÁɨÔ^æT'à_¼ipºÝÝ3½iðìI€&÷S¯¨+本©*¡ªxÍsµCýø¡ÛâTXc’ìì“o"¦p›d®š1ÀZ\·Z £{tŸtJ¼Ò?ô ½‹‚AÿœÚRñ΃µr#=4v€ÄéÌ,¬™ÞŤƒý©VÑ4ÉmæØøumFn@ÙÖ µmœê¬ X¬öj_é®â.Z°Ö'aíZŽ&`’pkPÀJ†µÿÒý§@¼â>dÐ@ƒÌ<Êü‘ÑåÌðÃÔñ؃Øctÿ·ZšvF`­k*°šmÀ±¿É…8î¤éx@¶iŠF«2Fï}%Ü6 YêÛëÕJÀΧ/T´ˆâ’m{ÙSÿo!ÃÑûpQ™^¡Xö¦’%é |è˜{làÒ8eBæˆàdŸªÒ=•m9¥­`·Dÿ Ĭ“ÿd¬H²³$ßô„Âc’{Õ6´‚-À#¥d¼©}Ò)d‡^KÛ{ámÖi2v¹në‘þaYa-5Q~ôätöïülðn §3³°Ö¬ÒÊ pÒje‰2CÍn£dô9DXÙdÚÆ©^Àš€5Áj/¡JŽ­â.Z°Ö'a-(åÿ´«»°@5%­MwnæÁ“JÁ¦Ò/™Jƒ¦Ž6#¬±õ¦T kgʹ3¢;ŒhVpã pÉØÓ©DäRëq["£Úu>ŽNZ`Û^öT§ÆuÏáè­övÊÜAÞqKÒ»ò¦’~“6˜Ë9"è??U%tµk-•æûJÒ`Í>ÉÎ’|Ó ¿Iãªùô‚ –Œ^ï›Né÷ÀÍ^جR%€”|9çYÂÚb•þF:Û™X› è‹Aä¢Èj%ªiÉÜ„D5–¯ÏPfÛ({ƒLÛ8Õ X°!5]Aö^M‹*ôjµßOkÝÖR †ë,x¢MŽCµ•’沪ãÄö2õ¤%E³ª2ðÃÔñ…ÅÏ‘aíâe`=›3·%p¢y¸ KŸKÒšÙÛ™p`ž$hB[!\‰…¯”¤ŒU5™Fþ|¸¬WD lÛËžêÄäçvô¶Ë®R|é´Ÿ‡áúÔÒ+~Se¡Àœ#‚?U%,ªÓVñÝãÂZI‡5›$;6ù&⊈É:ÓÚÅŒsAT=pmzUÚ/F,°ÖM©#÷ºk²ã>§y›Öì ZÛÆ©^Àš€µÈèp݈ȚP·ÿ<3Ä3DÀZw5ÈâWhh&Ñ ÖX[®Ãšº&õÖHF®ô—”gþðÃÔÑDY`*ÅjÌ“V™N}HÙ¡ÞÁÌø6žXˆ ÝJÑÉtªsFQ µÚy—€*ûö²§:õ¥“žÃÑË«WÎË5‰¼X¿DA“ªËƒ¿rŽNÜT•°è#àk::uÓ!ÜN5`ŸdÇI¾‰´"bR¿jžÿ‚é±êÿ`UuJ{=¬š¿§Ç`MW/\żÎl…µÓÚ44üœ5EÛŒq ÛÌQ6F ZÛÆ©^Àš€µˆhä-GÍ`át÷Z͸Òq_Ü…^«;3†ˆ§ˆ€µnªÈõó‚Ñ×½µX¯—¥ -ñšËÀÀšÔÚ¢äÂ'÷«2ÃS3?µ]Nø¬7ºZǫ̈ò*P{³ÖYŠPC–uº¦¼£&n Mdç”?qÝ#°¦ÏQwœÆíÚËžê UÂ:zÍ ï$Ö/[#ûoå4p£#f9G%~ªJ8´¿^\SZ„Äq’kü$;6ù&⊄Iãªy,I'•e´g=ê£NéVàD¿ÈJíUA³evô4¬Iïáß¼ÎlµEtjZ¥›[ø•=“»”ú1 Ø0ìkgÐÚ6NõÖ¬EDÕÇ9ás÷b-l÷ ëW‡CLà/`­Ûzðk¡Ì+CÈÜ!FT¬ø% ¬IÒ™URÔ9a†¦Ž½œÈÚO$€c9¢A3Q¼pr¦@9*Wݪû3±X&%  J?Tå¬_heZ,¶o/{jp°¦é[ú~{@QcË ÎA‰Ÿª (’=hå—èVîºkü$;6ù&⊀I㪹ü ŠeÐxÒ~¤Ž,1Ø7ÒJ¼(ºÚÓ°öШ3k°6ÐØ~Žýz|.dª¿0Ö˸ ôô°´S½€5kQ™ãÄ[Âåê&K·8.ˆ§ˆ€µîªA_ÕÇ€÷ qŒ|³ë4 Ö(D$¸•$' ~˜:Jõ·G~Eaíbºt좲þ™ÿð'5¨‹Œ@sÿbmôx`ÔjýúÁ—>Z]ÚHö¨çXa­Nû˜a^Þììù[GÇW¤Ø~s`p!ODY4N¢¢ñN0ú#Ä#0ÑͳQðãŠçj|Ø D×}V‰‰ã ›¬ÙÇ>f»Îö9Wõ´2Ó=0Å÷ó‹ÐôtU—ÓÕ炙Þ*®¾üG#“µëêT’YúBÒÚ[±&{ô‘°©*Q1E¶–mêÿâCÙys‚d-|’]`òMŒ°µHÿY[`l¿êâ Ã]Tö¬Aé–xqµ¹öÏ ir kZ5Åø¹–<9V³!kŸ6[ëGv—,÷-YOÆhƒ]ÖÏÂÈÕÍäð5Èš3à §å"â â-cЋ@Ö"å7y>óÿ:G ]ˆr Ip©áHXY{'%Åÿ|¾+@~¸cìð1UoÓÅ>MTü€ø ¶Z€Â.¢ß› 'ê`¾ÄED›<úüü+|õKkZkJTY«Õ×I›BÔjQ_þ£}µü¢oqKEDyj^1Ôñ€ú‡Û#R¸T•(UKt£^ý±‡<ùR¬Y$Ù5õýÝ`´ØXdÀY[ mø»íâïüßK±°%gmhðcŸ¢ÏY£¶·è,Mdí ¿£úh¬ÉÅÌËZ}†oÑú¥þô5ý[cL‚{Ä·²û_ôaÛa_ W7“ÃCÖ kŽ€h€è@/Y‹˜7ä(È—ùp“({³¤Î;òŸWÕXÉZ%Í»'¢¤¼“¬C2;F^*µi¯3†. ÝI†¬)©GÉwˆvëÐS”(í'®Ò•”9UŸP]’î¥ÒëÆK»D…'´Íª›)ë¬éÉI½êOaëË´²ö(U œT½ÌÖ¦Ÿ\í ÇF¨“Wò{DJhªJä,J—›^û/Yé{Ûç—µðIvÉ7±Â¾"ÎÚ²mÃ*¢ûú†Dדfœ̲VOþìPûe­m…C³»˜ÈšÜsmЇtkƒ­C/f^Ö”?œRø%ݘ‹IcÑHmÉñ‚±Dë´çÉ}ªVa äêfrxÈd ²d ²&’¬=ª–%åœúžá·ß“¾êYÁl¢+j<Û•Jc¬d­ŠèoêžCŽR²20ñQ“ù1Z‰z}KºBtWòÉÚ e>Ç*Î]V†P&&)s7¾Zé:K´ÖÙ, r=‚ÙF4V}93]‹@eY›ª>èÎrS¥U}ùúdíaqñ‡Oô Wþ}±’ÜŸèQ•6>éÑ«f{D —ª)[ÜþÁXǃßb¼´#ŸdçK¾‰vxÖÖ¨æ,¶7‘Ò!koÖÚ[-CÖR??óOÇÎ=àþkq±:ºbQ‚ÒŸdÝN2»˜yY[–J#ÇÉÿþü¾ž½fMÚHô¥r´Š¢­ÚC‚5©´5à |ÿ¾nüá!k5¸Ú`äÌ»hØdMTY“&í—ã¡Œ7¿ñ [™®M{¶i:QÛGW¯É‘€[}1VÖî]Qºîb¹>Hì0QòüùÏšcˆ¼ëí-_ôÑù‡~YSÞm šÛ£ØCTÛ[µO­¹+ƒ<2îïª2ù¾o©49l¡nýç_ÒˆÒîzÛGdëkÏ¥ZòÔ,¹ «Xz±dU_î£>Y%ÿá Þ2¹‹²¦-”ųJÛ"ÇNɽ]ë‘g³ù}€KU±¹Ù\¾©J,eMK²3M¾qŠ :k¾nÃœ€´6ô}}¼¸ Å–|ÀåÙ‹5סöÿ8yî×ð&ùŠÕ®w¹ÿùÓä᳉Ê>0½˜yYS¦®-«úºé,ÑÆœ £å&z«Ó{³hºþÝj&&­yÿZ`øºñ‡‡¬AÖìgüiÚœEŒu¡8{s‘·Y‹”ÿmóÅè׌ÍÆâRSÕ„.‹ FfT+×^Qƒ”5 ”_öšCÊß o˜­<ƒöÉZ…x<ªÒ©B}Ç×HI­|¶Ò3nÒgQß„É;¾düòâ[Fuþ˜£ÉZ‚>ÙÝèu‡ðõ ýh_dMîÑ>ëZ¬o(hÌÖ¶¤}f>À¥ªDÏä8p¼ï·Rß„é*OHÈ4I²3M¾qû‹ >k¾nÃÿü7k’õ/¬hÌp•?ýQ’ì^­ýJ¿ÑuÏás7“5éHšÞLœæbæe­bþ™ ‰!G›dôƒßÏêÈ?G­yÿZ ·2ö` IDATEݸÃCÖ k¶“ËÖwˆ/7”\šsyXﮓ‚y@)cY°¡Í¬9¬½ d-b<~ÿ¼äêm/,h6´ýÍÂyÕßîЃ%‹Ù ;'ìwMŸØc„1yóG'¼or 9ž»p(Í5õò.m0!kÒ©”<ãWÏ//›w”•*;V<÷*7Ämÿl r1s‰|ï¤o÷ÑdÏÖ^} ]YÖ¤EÊ=¿Ëü¯¾Cøú†|´O²&å-œ˜ž>ñVÀƒ÷æ+•žÝ«›N„ßã©áÓh¢EŽ=3Íþ`ä¬qIv¦É7Îb{‘¡gÍÀm¿ï¿ê/2;‰V‰•Ž{4 «µé«œº™¬I'š–OuîÜ^öbædM’·VË[Kw´5%v»Òµ5öœFôµ¬…hU·ÐÃCÖ kv“ÿ=»!È"^G~Ô'΢´ÆȈ틵VöçMèO k¢’Ôï5ØøMÿ–ϧªDIbZÀRN¦²Æ'Ù™$ß8ÞîöÉŸ5W@è%ò–ZòÚdJ‡‹„“µÒ¿@Ö kvÓ"7…Ѳ÷ãÀy‹:D ƒŒ:+AYQðòØ~®ŸF)Dæ#ÓLÖ¸$;“䧱¹Hþ¬¹¸ Ëä–¯\ìmïv‡Ó[YHý d ²f7;XÑ^!bå AÉÙµWEÉÏC†üÜ¥ìßèO kÀ!.PIWKU‰ŽÊ [ÖN3Yã“ìøäDZ·H“³æ à6Œ:ªoðLÕœ5{ûÈdÍöaÛï*çÖϤE†?€X²öÚ{èO kÀšÝ;û$&ŸFIô²Æ'ÙqÉ7Îcg‘¦gÍ`²aã~WùƒÌ!¸¬~k6Ð+4Úëõ&œþ%Ïëm‡¬AÖlF”Hùs ¥úb úÈpˆ;h¬¨H§ÆÁ(k Ѿõµ±Ù®V²Yƒ¬ñd¹9Ys]…<Èd ²ÔÛ¾(öà‘5¬AÖàjá¸A<— ¶Yƒ¬ k@Öâ’1÷G #Ÿ,3‘µ­â8ÀJ$àÅróЯ@Ö æäL§×Ñ ²&Y¬[Œ™ 3ÞÄÕhž0kcÏêÖŠö±ÉèW k{f¦$¢dM0&u³"Abä.3Y£ñ¢(ÀÆvA„â=ìF1zÈ kQÓÄØKBËZ( PÊXD(haì'ô,5@Ö¢æmv\”¹ÎÌÕ’…‰7kqC «AÏYd-jšÏÌ%D>¹ßDÖÎ cǖ VžY†ž²ÈZÔˆ#·šÈZ/ÔôèY ks~þm kµË9~QìäëðYƒ¬AÖƒ6:‡F5¸ÚÀe#'ko@l ²Y °(6€¬ F^`Ë,/ ]û¬ôOŠa]>$ ²5 ksSœ™ u¦•¹Z5A‚~âGv’Y€X’ä¦çÐ ²&§Ö³ÑBäëç\muH§ÖPÕ87dì4, ²±äÒËèÌdM .2ö©p1rCcµ®j#SÄ:3/cëà@qÃ;ëY, ²ÈZ„,e«„ “×-ü׶¢ƒÂyh)cYp ø¡ŠufAÖ‚H!aµ§¹Óo@Ö€CéÜ Ë‚¬ƒÿJ±¹­AÖ„ñt\ѱžyÑ qnG5ÈÈd ®6(XÒ‚6€­á®Y€Ûd ²€¬AÖ k€8âñ¯Çи­AÖÄೕ ¥p–“ÇÞÃ- ²YĈ¼TêE+à¶YƒUì.Biœe1ëÁŒ5È FL!ÚƒVÀm ²&Œ5"”ÀiYcKpO‚¬AÖ5Yƒ¬õ…1{Ø°;¥ãŒëWÑqÆánV”›d ²ˆMx—F™hÜÖ k"°y=[üöÎý'jtãæ$Mó$8^œA ñ²Qˆ¢‹Gñ .°ŠÄ Þ•%. Þ@Åco¬¸Á»Q6rD¢ë%ëeuu]âêªQc6qý“N§ít¦}Ûp ø<¿LçmùNߗηßOû>VÒ.Ó»ÅU#9 .S½$µð¤DX#¬Q];ìå ð´FXºµé i—‰?ŠíBxØÎsa°FQEÖk=«hÂñœDX#¬QEQ„5ÂYm«Y’îrHk<«Ö(Š¢(žÖk„5j€iaë’ ÂÏj„5Š¢(Š§5ÂÚ ÖŽk¬Ÿ)*~z]Çóa°FQTt ‰ æi°æzeß‘Y?ST¼tXUÉa°FQÔgWæ6üÍQài°ævÝ•¤M, )*^J’¤Nž˜kݵ¥‡RS<§ÚÞïì›dÿ®{Ûåâ?}˜q})†ËKgæ&&?Ÿ«½[‚pÓó¦W<_ÊoEuGnüQìå˶%žjž)¬0gEÞζôÄ‚ÍÖé*©jÒèˆí@XzY1Z¤¤’›ÂF¨³˜°FX‹Qu%ÒZŸ(*~fÃQÒ°,!kQa-çEJ°”(zÚûQ+?ïûÖº3 ¬]( Õ= GëÝ]\çkIùúÛ;™üPÔ`„5ï(ýKþøe%CÈòÎÙzCê"'XsŽÖn…5Çh’VHBn25Ök½ÓBIšÅú™¢â§»’”Å‚° ÖÊk”“ûÞÕ—KÞ˜íd¯Gm>úÖº32¬]SŠª`ÝSžÌyÑø~žò'—MçxCÛ€ejyåƒoØ®Æo<À=~(*º¦úðƒ»öø =¡sc0Þ|IÆš!äÌÙMWLP^Ê-°6§««ëM¤hrP}ZW]ÄhÎI+ ý¬¹ÉÜ0¤«ka°»2Ö³zv¥Îþu©ƒ£àJ5ó²„ ¬EµÚGJÉ°)G]üË|Œ°¶ôBuÏx 00ßÓ{øÑ´Ùƒb¬ TS;`ÜrµÁO¿]G«O¸j·û1º%öv]¦5B†˜¥4LR^³?W,°–-š|ŦG¯8GsNZ†„Ü$&«<Âa­béìRñwÖ\,„µh°vm\Þm<û¬eMD¨îYÌY¥.y Q4)l»ºTxé—ܵ¦WÀÃ~> +K«Óók^]SßÙìz.“Æê5¢Åæó[úÌÝ–mlD½é¶Ý0 ½´î‚è=¢\¬*àíFš?…¯3„²©6a±2ùö°æ-°Í4ë;DsLZ¦ÛæÜ$&+Âa¬öêß’4‘£@Z#¬ NXËRðlaèm[ï'Öžý L^bÔ=@‚¾f8P¶áI`£Z¢%ã\°>¿7âLÿ„Y©:$6ô¬™Ì0VŒà¨-6ŸßÒg鶨WݶF¡—Â.´Ö‘*=X§/–a9Ð&C̃OoØ ÔÚÁšs4¹Ö:¹Ü9šcÒ2$ä&›dEX#¬Öka°6ˆ`M©,‰4Ýx’]ÿ[zbnáF}`>–ÈÛ‡UxR¿¾*Ë™õǦÔ|ÊÑV5­Ø<61ýcë*½ÐQ5É&†RYÜ=æ»;c‡ Ö¶ï…ÿ˜e¿&îŸî)(kmbZµ¢:Ù“R±ì+oXŒž2ƨ{>#õ5×LÓÖø±N®4øs ƒW €ÛŸK)ýß%Ûìz.“Æê5¢Åæó[ú¬ÝmD½ë¶8ŒB/…]¼G”öųÊû=7”ù¾Ö†­3Äj@;òå=ðxí`Í9š’SQjúdçhŽIË›l’a°«v,`ÕìZmVµ†£àZ5½a5AXsî¢W©HMÅoÑ_;Öé•×Ø»AXk˜¬6l©¯­š­VÍïÒƒ’¼e+k ¹¼Lo8! Ö.,çÄ3õ ~u‚µ]サaYSX+8š#‡êžeÀ}MðÒØ,Sá€êR)°^–ÏlÊhlé÷cp+p]­çfùP´*|MÐ`×s™Ì0‚åEpÔ q°ô Ýv6ÆÖma…^Š#oõQn†µµA—åí@IØ1C|\Ò®!§e;XsŽ˜[>e곧³‚ÙÄ9šcÒ2$ä&›dEX#¬Å¨Ú¯«šY5»—Öp \«)Ï/¯b9AXsT°×îÚî Òê7l|í¬ÍóûÛ®'+5ís$ß¿wÃôÿæ|Ãþþ^Á+Ïö²^ó³²¼61š”?>ÿcgF ÜdÀÚ¾d-P˜ê{ZGÜð÷ÜÓP’òq%¥ ÏõIFΰ–¨ÅCuÏM`Kèºy²±Ùp Z[úÈé( ”¾•ý|¥Ü‡Ûz·ï ác4ØõT3Œ`y5BÃç·ô Ýv6ÆØma­½´y«÷è‹Ñጋ}k™¥L§.˃,ÌÉCÌÿ+nn©¼ÚêÁ‘¶°æM> ßÚéj6)Ñ~ÇÒ9šcÒ2$ä&›dEX#¬Å¨?%éËfŠŠ¿æJR¡‹°æ¨ƒÀl»ösÀµ@+õaož k(jÜy ÜG;T©,Õ•—cÁI?J ¿$ðjøË„%@U`ê¤w1ð$kyiÀ˧+~35°Ð<é;dÏš·ÅSÔ¥_|(º(GýµPÝ“‚žF ÅØ¢&ø„y<ŠFzôÂóem¿‚ÊþšïTb*5ƒ]Oe1È–ÁQcmˆƒ¥O足Ñ0¶n‹Ãhí¥8òµ}ñÃnT‹CûÖf‰x( É2 akl2Ä–oõ¾µ•maÍ9š\™´}rÄhŽIË›l’a°›ÆTI÷¯²l¦¨~ÐI:Kê"¬9^IöÛUç¼Æè'¬iõÿ¯Í­Ý†½£iÈ›ä²ÖpXb´ø‘¦ÙÜêŠÔëÕXkš¬°|ú> õ¿\¡Ýu`m‚súâ[`HO`m)°§R•—0*t¹‚ÌƸtl}³j¨B¦UýzN\ýèW}ñ„é_eìz*‹F´¼ŽkC,}B·†1v[Fk/Å‘¼G_Š}k hÏ(½º§Æbœ[c—!Μמ5s¼ÜÖœ£yS€ô†×_¯=LËŽ-:¬ ¹É&YÖk±©Y’–³h¦¨þÐÒ*i"©‹°æ¤à²MóJ =xY}2öh°¦y"ŽÄGø½*N]Ÿþ·A°b Ý«Øõt†W…µº2›D€N}±I››(ÀZÎúîtôÖäyÀãÀ,Ìœ¥^šºdà7ešÒ~]]’ < Gc{p§Ô«÷†Á®ÇÔb6È–ÁQcmˆ¯¥O붓Ñ0Ön‹ÃÁH¤¼à="¬¹ÖÆÏB¡"|•!¼ßóæ·ÿó[À²k kÎÑöCZžv™!]3¶9G‹kBn²IV„5ÂZlÊy:œ53EõÎçsËkŽ ²ižmXyЀµ9r°–mÕ– ¥]õÇÿ»C€5!ÆI+øäbÏ[ UðÌíÞOÔ•«ˆݟݱk6µªû°¶(È¿œðG2j Q¤7ñã[ohoS³ –Y9@ŽF¥´;^õVÇÆb†-/‚£ÆÚ_KŸÖm'£a¬Ý‡1‚‘HyÁ{DXs3¬U'B÷ÂÒÂW âwà…ú#I“‘Ûbk¢É-ÁßyhvGŒÖ-X3ç&›dEX#¬Å(Ì®Öá.Nbuµ]„5GÍ mš“ƒh¦•!°¶Î€µùÚR› kGš¢âÕóËÍ°&ÄØ äY`MÕ{맗™k¿l{X+?v¼ígõ¡jß}X“Ÿh Çœ3®¾ M5‹àm?jÆÁx ˜žc¼ ìbRh4l,/‚£ÆÒWKŸÞm'£a¬Ý¶FG#QpäEïÑ—k¿'9J„5çmï X»òÏe·Më,bJˆé[µYá¬EŠfè¢çÿìësׇ)Ó3šwŠe2¸i Θ‚ÀÐaBƒ¹_ÌÍn æV·æ2¥ȸ\2@˜p)åÖÉt|iþž®´ZiwÏʶXaK«çù‚¼ˆÃîAœó>:û;+U‘öZëXÖ´±Éc°BÖ5\­¹Ë]¬Ø²TY{$2Õqãˆy#Ï/“G¦‹TÆdm]Y =¿`–îÑ~vYÓÚО“µ{aä®|¯;k¿½^²¶þdÔüKç®ËXÖB¯ÜQV»¼h¤QjÍMšlÛúà¦mÃr)ωÏb‹Q>–$²ì|Z‹W>OKÔ8te¤Ïºì4ACŸ²æìÆ4A"ë¼²G…Á*É"%¹rUûDö[ãÈ"ço:Gã­‰‡„W%~íµv[K²#v3y;­u,kÚØä1X!kÈ®V€ðPll Y ¬¬ņ̲ÿÜP;çllïÔªØÎÄÊZZY …6ï>¬9vYÓڸᱲV[39­ßêÓè<¢gÖŒ÷D'ß¹õþãØÝ•™ÊšÅÐdbïL©ôOnµí7¸B6äÂGqûŠÔŽ*!GÀΧµè‘-Qã>Ð…‘¾Ôe{ }Êš½Ó‰’§ gµ|–µM©ÿåMi÷¬1Gˆ]Ö&Jý%ì%kj-ô¥ÈÇíµÖñ ¥Mƒ²†¬½)•‘5è^ª‰­!kiøZäšíÇ‘ðæXQQš|šúºø‚X»²¯`WFMk²ÄJkã;‘çV¼xl\Öš+BÕÍɧvY iê@Ö•õ#óåšW—µ¿%Ÿð¶Évdìë¹Ë‘2™˜ŸÄI†1ÜL-æØvþeÍyÑ5î]é³]¶gÐЧ¬9º1MÈÞóîìQ¡ÌÛ ‹ìK¼ü&9¦y»l´ç§Ï’µô­íß³o’õz‚”EÚk­ãAK›<+d YËœG߬¡VÎk®ð”¼|çة☲æɱR)kIý¸Ë,ú¥–ŽTÅË‘´²6äêÕÄ;Ï›ßñZb¥µ±$UÄì‹{›ùPìñ"œ6±Úl¼p~›—¬ý˜ZÒùµ©v–µ–º÷¬û†êDÚÌWÓí›+¶¤ö¬t,huÃ'ˆü>Xsì|Z‹yÑ5Ú.‹ô9.Û+hèSÖìݘ&Häîy3{TH²À Fª·&Ÿq~Òùø7m„¨O}ŸÔŽZš¬¥oíß©TnMüÉvZëXÖ´±Éc°BÖµÌY¦ÔpŠåüæÅ­:!¯©Qêaê…¬yR,Ò\Hx)=Šï;ò‡Hҫη'kÍ2moÒ±b›æN¶;äÕF[TÌ¥¸ã+¤v¤%k±¥±“ŽSZ%òÙPóåR‘ ¶6“\JÞJ4KÌ»NËÚQ+RòaTž&~ûº”M½ynRÝŠým䑾=dONöûláToh‘-Q£èªHŸë²=‚†>eÍÞÞA"­çì°d¬å­¬Åþoß¿Xv&Ç´Âó¬?.M­ 9d-}kÆ8ØøÃsâÿsÚi­cYÓÇ&}°BÖµŒ©Tê µ2@÷ò_¥®„Yóâƒ">Š/l¿(‰§žUŒ©©[¢²u{{²öDdNü6±±£%|&œÚï6.ˆÜ‰U)#ê͵™„¬Ù*2ÏqNƒEÅ÷"¹mËÃmm&9m=£{Õ 1Ÿ—œµ••5Ô=7DúÆ~=Û,¥‹ßpGå’³¾Úð—Ø‹ÙF]Õíßs ,u-¤9v>­E‹¼h‰í@Eú´ËN0ÔûÑ€™Ëš£=ƒDéNÁÌ!kù-kMQ™ñ¦ñëæå‰tuee“ç¹n eÿ KøMOYKÛZ¤A¤_lØ«X)²n¤Wk´’ç¦Mú`…¬!k³EÕ=£Tè極‹êê…¬ys®Ü¨¯¶ž>U<1¶¿âó;ߣSEæ÷½V¤4¾%@ZYÛû™È¿*Ú÷Vâî1£xïTG<Ú»Á¨VŽ›ÿ‘ëS²[7›áØQd¡qJåJîgôµ£M[Õ=tyÖ¸‹ñ(W§dm¸x¯õØꞦ>RZ·iX«áˆOR÷' ¶¿û¼ñ÷ÚRô¶HÙ±îþΩrng±Éï]¶ÞÐ"/Z¢F;Ð5‘>ý²¤‚†>eÍÑ^A"ç)hÙ£‚áHTŠ²#kcü. g•k"ï>·ç ‘µñÍ£’°tm„h*i^VrN©í‹ §¬¥om¸ñ‡¿ü]ߥ£Œ7|èÙZ'­dkúؤ@ÖµŒYð’½)ºÃ/¡^ÈZÞL–Y[g[k~•8Tk†ÅÒo0²j@â¥õñ"¥1¶ÖÿÝÝF¨¥!q`TüÛiKÖ"FÓÓqJg×YmžpµiÑÏ:ååEf­ó²ê[fþѪeÖ‘¿‹²¿»âù`)ÖÝÂÏÌõØGÀΧµh‘-Q£è’HŸë²=ƒ†>eÍÑA"×)hÙ£Âa÷ÀãÙ‘µŠÙßäÐeE¦'Nø7ë]B¤ÃG'ÞZ6,”FÖÒ·¶¿<ñ;ýWy·–‘¬ic“vYCÖ2†* 7@½µ´Tö\^>-<àæ-ÛsÐŽß?½aÚ€÷–$iíìùxéÿÊûLíÇÚê±ÇÎOÂ3.{´ øôFyUíÓMæöz–¬…žE%êÜÿ1R2gt¸ìÒ¡J­M‹!7'T j^s9²qPü´ÈZ¨Gkÿp¸}jÑl˜ÈçÎ÷×Ô7—ÕþkÏÐîþ YvÛuÌ°ói-îÈ‹–¨Ñ#6]és_¶gÐЧ¬9ºQ¿J÷)hÙ#ÈXÖr1ô©}º%â"}„hܶ¶¼Ï[gŽ ¥“µvZºçÇÚ>õ®NÓZF²æ16¹ kȲVˆ´L¢5d-Ȳ(Ö6èbÖ—»ï»Òv>­ÅyÑ5zÄæõGúôËöú”5g7jW©‚–=‚¼—5ÿØe-W-d YÃÕ s§¦7Ñ Ø²†¬å‚t‡ÚO"eo'™i~î Øù´wäEKÔè×éÓ/Û#hèSÖ\Ýè¾Jý´ì8rbAá]tvd-»ƒ²†¬eFc„9ÌSj7½*6RN kÁçSÙ «iv,Y˜;`çÓZ´È‹–ÏѼöHŸÇeëACŸ²æîF×Uzœ‚–=‚‚';²–ÝA YCÖ2¢æ^krþ3^)v‰ ×,fjEÖ?ï”. Ðj#ÄCÖô€?kÑ20Z>Gì¼ÞHŸçek1"Ÿ—­u£ã*=OA˲öIIIÉúÜ´ÚJJ^ kÈZ&Ãí5u°+k#´TS¨1µÀ³:ºHÖbœËA«wü„5d­ÓVêr 2k'ɬ"¥J˜[‘5È!YË"Ȳ–!ËÔÇ(ƒ@Ëú ˜¢z2·"kÙgäú€i YË;ŽõC} ;\éUÉD…¬dŸ¿FûÒ LkÈZ¾Am k0Q!kYç¸H+½À´†¬!k€¬!kÈäÕÈÓ²†«¶†¬!k{¹F/0­!kyÅd-0´½ØÖB/FÖF0W!kYfWx À´†¬åï¯yIYn+u˜^ KÖ¬f²BÖ² O8dZCÖòŠÍ?¨;”ÅAa¼RCè… °O/`¶BÖ€i XÖŠ”ú3e1²¹Çn¥þÃl…¬Ó°¬õS­¤œÃ]¥ÆÓ á¡*®`ºBÖ€i WÖö?xƒ¢88 éÛF'†ç3/3[!kÀ´,kTĹ ³²U^¨ítÓ²†¬²†¬!kcŒè#=é¦5d Wl YCÖ Ç¨i¥˜Ö5\ °5d Yd 5díUù¾xµp°¨|F‹?ÄŒ…¬d‹È»r•^`ZCÖòƒ…uªÅp h*®[L/Š=jͦ¬B’µŸ¼Vz|õ :!@Â5ƒŸ”C1(x(vàxC©oyØZ!É k1•zB-Œ¬An3_©±¨²…¶²¶åÛJJá`1O©ËôB°87³7+kÈœ¬QŽ£Oœ£&†¬@¡É50¶†¬!kPPülÒ;t kÈ kÈ@ŽñN³Œ£YÃÕ[CÖrŒ?ŠÌ¤YË}^üv<0@~p{Ê@6AÖ5€B‘µUJýŸ½{Žª¼8ŒÈK}-))aD¤ƒ„KÅ FE #(¬ J-Âè(™"ZD;„E)·6B¨¥ Eêˆ¤í°‘jEFtl©32þ9 bH6æÂ.»{Îóü²WÏY¿£Ëûá$çÔ[CqXÂ!9&ÖÎßàQq³) Ö Ý´aîKàä©Zz´É’gNI˜7]‰5€ówâ§wb­ÐU…0Û 86ºÎZ2=Â=&Ö€TÄÚË Ž8“D•!”›BmòñÓzL¬©ˆ5§‚k9&Ö€tÄš•oB««n jM¬‰5kbBS}È ÄšXk Ö´QƒZkióõ» ±VÈ®XÿÖ1‹iÈ‘Mõ/ÎoøÅŽYÞð¶Nß/ÖÎë¬!Ö ÝÁFZQCnÔ?ÛŒ Ù½–á›!Ü¢ÉÄÀyYãS@¬°§‡W—XRC.T½;¸*«§æ¬ÚJeb @¬A‚cíÏÉñk IDAT¦XS'VÍV3ȧã9†.ÏæÆËCX'ÊÄÀyùqiˆµ6óõ! ÖÔIUQf™Bþ‰ü~B·¾«vÑs¢L¬œ—KŸ3ÄšSA’.ŠWÊ:ÇZœŸÝ=h2±$9Ö¬¨Å9r¼K«ÅjM¬bM¬1`VËM!_v­ìk±Q¬‰5@¬i54<\»Éòek†V‹‹¨5±ˆµž=µôävKjÈU™bíoYÎñÆ£/3±Ðo¸å1C@¬¨Õ!¼cI ¹Q›)Ö~›Ý} á!a–èX‹EX*cmwKXä´ý#õ™¾lïÍòïÅmuUÊL¬ ÖH\¬½‚K&C®¬ÍôeûL–wr¨.,TfIŽµ¹´#ÆëM¡ˆ°TÆÚ¶ã_ZPC®l¿:C¬½•í½,œ_¡ÌüÎ@?Ý?"ž4ÄšSA’M‹¶Ì1…¼ùI†XËÁÁla&Öúmÿ¼Ï ±¦ÕÈ‹šÖ™BÞ,/íÒjßäb?ÊL¬bbSB¹)äÏÞέvÏÁjM¬bM«áÈZž-ùu§X7@¬‰5@¬õàÎÆÙ–ÒÉ7§¹å+SÈ£Š‰Smòíæ¿Gÿ­ÎĘX« ¡ÉR:‡v¶™A^55Onoµ—¦äj/-áÑñòL¬ôÇÅF€X+À³ö‡°ÀBro㾫N•Ú¨»NVål'B¨–gb  öÞó¸! Ö Îú0·Â2.„]Ã?\}0§‡8Ÿ, Ê3±Ðãj15ÄZÁÙÚò‘54$Å-#å™Xè»51.0ÄšSA9%ÏÄ@¿Ž¬‰5ÄšV#_G\–™Xkb  ;‹'WbM«‘Õ!4µ&ÖÄ@7¿bˆ5±F~T†Pn bM¬‰5kÅRjK/·°k$Myc“Dk ÖŠÛø á5 [?IÒü.¾V£‰5kE­2„‡-lÓbÊef…ð¡Fk ÖŠÚ{¡y…-$Íö-á¸Fk}3üÈE†€X+$õu#­k!yöÏ=¡ÑÄ@ŸÜ_×›b­ Î/Ò`U IÔàŒb  oÖ¸(6bÍiû B£‰5±†XÓj‰%ÛÌ@­‰5±Щ·ÇÙ¦€XkäŜ撦 ÖÄšXèFÕ°A†€X+Ûjk,gÓ¤&„u¦&Õëè4±b­=us8b9›&•!”›Bš¼š_jb ÄZz?„÷-gY#¹Ö†°P¨‰5kÅçÚ’pØyûS¥iÑ–9¦&»> u“”šX±VtÆo˜{Ðj’ìPÉ¢éJM¬ôÖŸšb­P44YËB²mjjb  ×vÆ7 ±æ´ýÀ"ÔÄ@o¹(6bM«jM¬ˆ5kb Ôb  7—Æ!¦€X+³†M†‡×W™Bê̶Q¬‰5€^yoŒ/3ÄZ˜Ùf[Ħά–›Bê¬ u®‰5kÅã˶ZĦNeå¦:‡êÂÑñbM¬€X+†pÄV¬‘ï†Ð$ÖĈµ"1éø¾ŸY¦Ϻ0ËÒgÂüæÝbM¬€X+M®‡J5~ø5•¶/ñ;kb ÄšÓö…H¬‰5€^vͧ†€XÓj€XkfðäØh ˆ5­¨5±P`ÖĸÀkùU³z»•+¤KÕo–‹µ„ÇÚÒxViÙ˜?»¨›Øãøþî¾6žëGgžÞë #F7~wÛ³¯vÿë%­¿mp‡'†µ>1¿Ÿÿf1^c%ÅkKöÍ1ã¾Y×e~õºqâÙû¼æ¶c¶lêüž+OmMúþ­ ZuÓءϾ6¡ûÍ÷ú³;çëòî®o]{ú…›ý÷˜ÒXÛÂå–®)õÏCfRûC¨ki‰µÓÆVB¬yvsûm¾-‰zŽµ¸¤Ãÿk=×=W×'ž:°í[çÅA_ÛkjúĶ·Þüvw±ÖýÖv¿ÔöÊÞWºÙ|ï?[†X;÷­b-Õ±6~C¨«°tM§cs놛B:=Ù_+Ö’k+jO;9ð³Ò‡Î¼Ð±¶3tpz¹÷Êäÿ³ãðãgo{Þ̔ثXûø»ÇÓ£Xƒ,ºâÀýÅõ[¿ûFÏ®\xoŒ!Ó±µiw·×Ô·£c\ùeÍ”gZÿÏÜ)ÖVVWWú¾­Mã­Ëj>hM¶¿θù>|¶Êï¾+gÄØÜõ­Óª«×‰µÔÆÚW!Œ³rM)ÅN±a!lkIµ[ÚLúyŒ÷]èX›Òåɿĸ·ãm–bíö8zjûãú8J¬Az=P'þ°õvÐg1fø‚©‹c{M…o:uTlêæêkWö´µÖøÄ©àúߊo̸ù>¶S¼'î|;ã[/k©µísçï±pk¤Í¦yuÇÄZzbí’OGÅÒ¯ók{b\Øñ6K±6/Æ]íïˆÿk^¯ÅXuúÎ×eñ]_¾,-k«©'b\yé™Äú&þêÏc­Û­}^ï8sÈñåC¦Í÷ý³µúâÙ8ô—™ß*ÖÒk?xÜõ°SkcûM!µµ6Áﬥ)Ö.¹ëìŸüùŒµ91.ëx›¥X«ˆqÈÙ‡OŸV¬Aj=Vw¶Ý}=Æé_~bh|~t[M-‹qvÛÓ³b<˜)ÖºßÚÌÔ·ÝïÈ´ù>¶S>iû›¬ oké5kÖ«j\ ÕÓL¬¥)Ö·6Í™{—®Z1¦ìê{÷Ýxæo…ÇÆÚK&møkÙUÿgïLߢ¸²0.H·õFÔnÄ t ›8ˆ( 18.˜( A”wE“MÔ¨£&n .42j$nQ£f&ŠýsæÞ[UTwßê¦{¿PuÞ/]uëÖ¹ç”RÏùÕÝ–åès(žÖFŽ5È@箇EMÿ~‡¢Ý§-ˆY(MQÒ/•äÇ·þ¶¹{Xsø¬9rH”.˜õeä¸ò z­ÂÇý£#óï®}¦æRBü“wÇêšü¨Ý%Þa-i. t߯¡ ¸ Ö|ü6‰Ì§y‚5’ÅÕ'{i_kG¸¸£f'}®:×ab¡NSß}òƒ³f°Øšª‘Æ°n/ó¡úƵÑZ§Ÿªkk$‰``Ͳ°ö],P,Žgè°TþRƒµ¥‘jÁœS¢Æ±|õ´è{ i’jµ;òë°–% ¶äUiöµóÿ‚µ£´“qÚj#¯Êµ‚æ5^°vb·v\¿B†µ€¾ÀÿX´äé°æë·™oók$+«îýiì?{ò•”zÌþèìIAž´Ãb Éçj)bV*:M]jåì…hk­ ¥óÌ̇êSú:à]U Öl k”¯’HDkkÖ‡µ;@X„cÙ4d^ö猶n«ä51WʦplC‚öÄ0dðŸ¶Ä«Hsð- zÊ¥‹5€ë–zË·ûÛ)K€ß?Ç’;¸€ÝÂÚ˜¬@¿¬¬Ú/ûgxxXxmûGGÜHËï¿d6›Ks·Ã;”ά13YY…JD\ÓONa^ÆŒ”`í¯ÀêÙ†m:¬I~K‘Iͬ‘¬Kj¥µÆ—’ÆÒ=ÁÞ—ž?õ¤8w[y–þ ÷Dñ}tšºä=kKÌ`- 5Þ•–óxjf>D߸&ËüV%X³'¬%,=wŒòUɶš÷QÁš `­êþè9ÐÖ+K-ÀÌ_DéTê{ òB¼èVdðÁ„wµ e¿f@Eš‰ÀY^S¹éBl˜zKýöÛÉ{»ª«ØÑ. ¤[X3™³ö.¾Ú˜a|àcË{øˆÊ À|Ř³vN3ÔÄI°¦ä"Zÿ°Ý¬è°&ù-E&5O°F²¤œ‹~îÓ±ËOÿœ̽=mSlK‡1™L¥wS ššb|ÑÚÎÞƒf°È¹ò'µÕij>4ß„Z»æ›T%X³'¬mw8ÎS¾J"ÙUŽD‚5+Ú—î‰Ò O´ ?i*yi‹}䊂^Œ¿Ôó}*Ò°Ÿ‰…]{ç«·üWœÿĪ[»f V‚5OÍ5…µ>ɯ勫Eß\§ÑêẊõîk-ú$³ˆ%ådX»¦'6ÌA Ö$¿¥È¤æ ÖHÔ©öðÝ0Õ[Eí½-kG€•úñL4û¼ãùR:M±WÂå*qTX$›ÁZ kL•â9®ßej>4ßÄW#öÒò_•`Í–°V9Áqýß”°’HvÕŽ¯דÖlk®O´Ïµ›ëÚÓ´ ·9åòêÛUpBP–¾Yu£@šŸ[ZAgª·t*Z×PõJ Ü©¡ÃÚE G«ß!†ÿ0ƒúˆ«†ûR Xc0Ua>qFÀÚ ŒŸ$ñ™y¬I~K‘Iͬ‘¬¦£ƒŠÞA{ù°›^¹dü½'Eü7`°~ü ¼^Ê.µ¿¿‹¦Ö{ùÔÝSŸñ23X `MðÓ¾Êââµî~É|(¾ 9€þ«¬ÙÖŽÅ”¯ÚYûÛ­ÛZCŽ‚5 ÃÚĦ¦¦é5.FToH XR"–U‚¼2´²§ÀFE¹DhWÒLƒ[/à¼ä·,WOGZ7×^Àé k¹ý í4…µY@ÊhM“xßܧÀ^ftXKK fÿã™XSÆ¢VÖtYÑaMò[ŠLjž`d)½È¬ž‰nS}<à‘[—Uö¤ ¿*.©h+Ï¢Q“êESÛgÅMiŽÖßQokþ­Êšübf>ß„Ò܈Nõ_•`Í–°–ã(šJéªEû¬Ù^·7 Ö, kêtŒ¤M€ã”qáù¹ÙßnRsÌ°¦ïæ0§/ ¤Y¢£Ó` ¿¥¶ Ö´‰is8¬ŽÕ”䜵rï¤Ñ©ü„™ÂŸwÆ4sDÊ+SX+Ž)µü ·k’ßRdRók$ë(ád‰ A*¹ää+«Ä}Vý Åå3/¬ ñcoššºE}ãGNôîèÒaÍ¿5OœŠLÍï›n'.@U‚5[ÂZŸ÷h“-{+ÇáH¤§`ïƒÖ,kÊ« à´6{K‰(R8Wy«ks½`myWO›Ò ¦뻌6Y·øÀšSOýR‚„µ3Þc‡Rct~ùÀšrâHŒšV†W™ÀZØI6 ØÖk’ßRdRók$«(;¡É=þ=kDÎÞ|ûµÃÃÀ'Æ…E]kÖzÐÔḱñ[j–:™.Ýïך§^—ÍÍ뛪ñâæ·*Áš-a2U‚5‚5ÁšõaMÙ᪇›§1Üß6`GrhkoýOÙi2°Æ58Îe¬hí k÷øR–gÄNq¬I~K‘Iͬ‘,¢Í_‡kÓ­úF E;Ìôz ¤©[>[Eê°æך’]’‘¤?m`}P°æßWƒç¾$&U Öìk”¥’V\ g@"X³¬={x"&®—+x䪨â ke€>j”@šp`´VÐ%R×k¥]=~JÕ‘ æîÇÆ]-‚ÛtX[0P¯X\2µ$`mPgÀšä·™Ô<ÁÉ:}k'KÜÁƒš«dõA«pj,¦VrÂuÅ#?<œqј W2µ‹ÔL$Xókï¢/]»p˜˜Á7¡&`_ ªk¶ƒµ1 픤’H¤^½rŽW¬YÖ”¿°tl?ØhÑ÷‚Ú‹å k uómn4Œ¬î¦vTÅë„5ÖVÆQõÒEàK0]hTíô.À§ · üt!fv¨K äò„5åm”lÀXÅ€5Éo)2©y‚5’•tÿxuT0¤³ìdX37–OíQa¾Ïcô¥|¤O*{ᵤ.?(f°æßZ1­îR—>Xjb>TßÎÀ}4PU‚5ÛÁÚÇŽêE”¥’H¤c?9~#X³<¬q¤ÉïT¡JÝÏ:¯€%iÿ45^u'gš°ZuëèôiÀUAP—\ˆMx°Æ"Žc§ÆˆÅ¯ùN°mœ°œWGŠØxm+¿^œ „}‰È03X‹ƒ+×<`MöÛ72¹y‚5’µô2óÁŒÀ¤_ЄÓ~=*æb¢G²ß‡5Ú´¯SYYŦ°Æ'É⿃½ÑÖü[[œå 7V›œfæŸee­ Þ·*6ªJ°f;XÛÓß1”²T‰Ä—ï¯þ†`Íò°v†ºõd ùÓǽÎ߈äyZ»¬\”gŸÛ‚Ý*Ò¬|h\ýãM–›¸'+ÁÃZ£ÃS÷Í`íù0`Ø£ÉLJ&3ŽéHкöüê\à ßTm9kV_¥ƒ•7—æ,mÉæ+f°–ÇZék²ßRdRók$Ë©ª½(Ö©M*jßÜÝý›Ù=+â~,°²ó[›e¢o}%{‹˜ÃZqÜ3g³T¦˜Ãškiÿcïî¿¢ªóŽ«øÅù˜bË乤bj4‚i*è(äóú‹¢:z$Lć6KEÂ0‘ÕŒ1E0J]vÝ35ק“IŠK×õ¬§?gï<ÂæÒ02Ã0÷ýúÅ{¹×;3ß32ß·3sï8‘Uçí7êEæLò{ødí÷Kà÷m¯ÈΞv%ÖLk÷¹À§*¥Ú‰µ¨5ËVmf¶ßâü&—ˆw\ßØêk–#I®=>r]L›D¸ Ó\'û0Öô&ù‹5ËS«<'¯vÍG¦¼ëþÁ‚çœMÇ€Ž;ž³Ö³ã¥t¿±fyCËéiWbÍ„±v“9*U\m`ð±f†X‹­ù»ã;7Y_¸×‘þ`±óJ«ÝcÍò rAÊöåy³ÜIc‰i\ùÒ’µ?”»¿6Ö‡±fI·ÿx8.eÇ­O½wôìgO[§]¬pζt\\R‡¶0ô|êA뜴ŸNúèÐߺþ{œ{7'п:W¦´G[óåZí—È÷ÿëôkÛ²´1cÒnn³ÆZG[?+uõéÏc,ÇZG›.®ÏqíJ¬™.ÖlUû™¢âšRùŒʪŽkQkÐUÎ<ו²þW9¥m}† ÇêÿçÞï­úð>™(Ölß}16îýùÒ]siî|ëÁã<ŒòXc~ŠA\^ıÀ“à‘ÇO_ý/ã¦XËüÓ³ÄZ¶.ñ¼¼Åßÿ|í=i9±b Ô±F¬±„³ºÏ¢kzÓñöïÜ_fkÌßÜmkÌEÇ— <ëüÆàøhŽ5¦¦pøV©fFıèkãìvûÐÇ;ÈÞÄbûêÙìöF“ÄZ“a+µWéØæ9>Epš§m¾5\[8éøTom´ÆÚæw–35…ÓýËe Z&–kÄÀkžÓ"=Ž;y}v‡v;ïb-³^$Õ•hƒâDFûl>µ]¤Îµxô°ÈÆhµ»jSS]Õ©Cı¾j/Ÿ Öúyb­F$ÑsvÎE’|ŸŽÚ0´¹—GŠXƒèákµJ­cj  «GJukÄè¥o—»ŒÂæœÈžå6­ÌÖè7/’àYîÐ6ÎX¡Ô5¦¦ººs]ýƒX#Ö@oà]ÚŸE:/Qž&òº~ó‹Z Ù<Õ%’’±vSgf @o…úšX#Ö€XCÿ9¡ÅX‘wm†ˆÒo?â8¿ˆkñÁ‘3AÜÄ@ˆµÛ8§ÜÊr¸}ÿ ±F¬€^^Š´3 —“ZŒñ®µ‹¤ùì°RÛaݯÚ¶—ERJ¢4Ö˜”£éØÒRFı>^¬Î \Z´û§w푱>;dlÒöˆ{yåÔD‘µ¹ÁÜĈ5f¤ðÊWª‚Q€kX Ò4‹LÖ­‰ïùÛ®'Š‹úwP7A¬a ÉRj"£bX ÿ]ÙÞ¹f×’l½Ï»/¸cM¦&÷t¨œxÿ.)U1<‚eT½Â„¼³ÿ íÛ†›±@¤)×}ð1^+²¡ú¶$‰lè8ºËöÂA‘¸Rã#•$ˆ•z5‚G s„jeB ¯¦c_ò5tZ­êòx¥ Ö賺½³vJ·Ý6[d™ë|ýƒW‰ÌùÍðHG– ÌX+Tê.Rt*ÛÏ Ó ¥ x¥ Ö SìCÆaÓ,bÕ­‰þJjJäxº{¹m±È:ãC=Uè_£RMOD¬‡Tgø$µ÷ÔÒçž0b ’p…A@¸´è¾¥öÈÝæa‰"MÞµj‘q½¿‰W•z>r¿R?e©É|€‘YjÔmN0B¬€G ÅFÍÔbm‚w­]¤^·9_drŒw­HÛ¹-ÊbmXK3³QÆ,çlÄxí"ÖF'´þªõ®Í9£Û3ëEvöþ"8Ö>Ïe ½,¥&2 Ð+»–L¬k„_ú"¯ír.~'rÃgó"Ér/WkË…Ñk‹Ô ¦¡ Öð{ÞS÷Jˆ5b €ðsœ¼C†VmùcE’ܧñ¯ÌÎÎv¾r·íI<4X[6CÛñ^7¹±ö¤R/0 …Þ5¥²èíVê±F¬ÐVk–87õ%í9kÜ?¢­lv.5l×­õëµ?_[M±V2Jýu?ÓPø˜8ºA€^Ã9U<“X#Öè÷ãÄ%i¦¥[¬Y6ÿŽU&ߌ æðk'‹U³P¿/¿Xí'Öˆ5ph\:A@XÙÚ¿ØcÝ´qwçûf]bÍb)ª{w¾uSöø)Á=r?™ÏYÿ$ëƒ$ÖÀ!Ö*D‘È5& E¬kà°Kd£bV@­k@¬ÄàöüƦ¬5b ‘>[þÀ(€X ±ä"NùJG-,`àOӇı–œÆS ˆµÐÊù‘+Ã/.Š çÆõŸ‰5b b-äæ)Å© A¬¡®(õ±F¬@¬…üëjÅjƒ„?ùJeàÏ¥jˆ5b b-ÄZ”ZÎÔþ|þS]£:®«,bX€X ± W³˜yèû“6bX`zƒs3kœ¶@Ä!Öˆ5f—ù¾Ìb@¬Ñjˆ5b " űF« Öˆ5 ÖÓÅÚ‡_1áœäbX`j± RÍ(€X ™ÜbUÀŒFrßj­e`¤t¡*%Öˆ5¦öŸU9 ˆµrR-L9a¤Šë¬¡5 Õ9±F¬@¬…DR«™qÂP–Rº¬¢öbkÄÄZ­F1᱆àÔÞS[‰5b b-$2Þ¶3ß„±;ÅÅñŒŒ-¯¼M¬kkœ¶ý1¿Â gı±F¬ Öˆ5ˆ(ÕSO2 Öh5Ô±†ë¬X Ýõ°÷2Íð¸Jˆ5b @`¶TƇ׷—§‡öªDN‡ø1œÿœ'Âkå‘ámufwEH´Þa­‹Ö™ä‘ù—Ièˆ}u¦yòÞì«#¥þ²ïÍö¨õZ0¿ #Öô½õ ‚Þû?{wþ#å]p¼-Ûe>  ]¶ËB8\B Ç Ý­Åh7Òp(X¢•’Q”–K HÀ‹ªm9 z&ýÁ+¶$Ú ‘ Æ”’ÊŸãìîìì²ÇŒLf¦<ϼ^¿ðÌ>“~ûa¿»û}/Ë0a²­C-c €›Üùb ¨¸k«,wØ:ÔÌŒóAbM¬Aú8bim r{ÌMúA^ˆè´u¨á÷TÒÿ7XžÉfÏ© fgÕÇ ŸËf7ÖǤ³ÙÏÔǤßζÖÇ ²Ù§ÊùÙê.°;â‰ê®°Z¬Ae5G&==aÒµú˜tœ¨“OHïĽb ¸YÜzºÖyøâå*¯0êÕžaó*ê¹éu2hcçGu2éèÉõ²yïž]'ƒ®z±¡N&=öZ‡X@¬ˆ5Ä€X@¬ ÖÄb @¬ ÖÄb @¬ù-kˆ5±€Xkˆ5±€X@¬ˆ5Ä€X@¬ˆ5Äb @¬ ÖÄb @¬ Ök@-Ì>÷ÊÔ±;v­Þ]ä9Ûbìu×½nÓ´E÷½iAôwk¢gNúx7>sòÇ+aàN¥!ömª‰˜'Ö€T{~Iþ„¾ð¹aŸ³¹íº£î‘‡ Çú¥§z߸?AÇýâ3'~¼2fÞŸòX°ƒSiÈ}›fÿ±¤Ü3¹OË‹ä~ùò–až3cJô?ênÞ—{rÓ“'^è:žì=¾‘œã~ñ™?^9ïç7Òkvp* ½oSìêD±¤Ü¯sç•#3™Æ·çG¼Ð8äsî{+úuGäNƒMßoÈ]M?ž»1.ÿælDó݉9ñã•õ~Nøx% ØÁ©4̾M±¥!Ö€Z[ûf¶)»rAGÉ;sú}ôjUVÜмibÓÔ'__é šãÎêþnvlŠYö”ø891³çh~ËØÜy}¨ç,Ÿ×u›#&,Ï_ß–»óZ÷Õ¨ÜÕ¥4ÌœôñÊz?'|¼îàTzߦءk@µß–¡Ÿ5”ºó~eÒiøÚ‘¿Ó4¯¢+öÙº³Ú±–ûÊ%Ö „ŸçNx[ó×û#Z?ãã£=ø}GÝû}Ûþ£iº¯ÖFìKÅÌI¯¬÷sÂÇ+jðN¥¡÷mz]ÙmóÅPSë"&>ú¥Ë"nï(qçшMãò.WaÅÙû"þçPóÆÜ×·—*¹bÁø)QåX›½X¬AI¿ø}ïõ¥ÜüšOx~gî­­êwÔÝб pÿÇ'º/ÆDìMÃ̉¯¬÷sÂÇ+fðN¥aömzíŠØ3E¬µ´fBÌûµábÄòwÆÅ’Æj®x>b}{×Å»-1TåVìûL–*ÇZûWC¬AIË"VÌŠxzàº^â©-ïwÔÝÚî?ñ×î‹;#Î¥aæÄWÖû9áã3x§Ò0û6µîŠ˜Ù!Ö€š:ÑÙ}qeR¼RâÎŽXTͯ´ÄÂöžË ùO…•Y1¯ñ@ST;ÖÆÄØIb J8•ûHüfáÑ#n|Ô]´6“pÔ=Õ÷½››º/î8”’™=^y3'{¼±6ÄNçGóû6­¦ÏÅã3b ¨¥ “âdþòLÄ}Eï4D|PÍWGŒÉ_~q°b+æuv½fÕç«k›ÇƉb J8;Ä)<úçýçå]?$=ìQ÷¿m_éºØݱuÍ¿Ó¶øëG;>s¢Ç+kæ„WT‰œJ…}›V3#Þˈ5 ¦~Ø÷׈8[ôί†yͶJ­øµ½ïô~öK+¶bÞm¹ƒÂ‡3ªkÛãáUb Jù]îÿ›Â£³S‡~Þ°GÝOrÿÃ]k"ZŽ÷¾ Ñ®«)˜9¡ã•5sÂÇû?ÔW¬ömZݱ·C¬µu¶÷¥<º¿lž)zg^ÄäÆÎÏn{wtuVìçýˆõ[±7ÖæØ©n¬=“¶dÄ”òvÄ=×=ŠU7tԽ垈ǻ¯¾•ÙÅݿ옑ü™:^Y3'|<±6ܾM©-m1dF¬µõ£ˆµùËc3‹Þù Zö¼Úõ%µåà±j¬ØÏ®ž×©ÌŠy‡»¾Á[ÕX;ÜÛ2b Jz/bgߣ¹ñ 7rÔó݈©sº//tõ_þûªÌ±Ÿ´æ.·HüÌ ¯¬™>žXnߦӪg#îʈ5 Æþ…rêˆXXôγ}ÿæYëÈ*¬Øç{¯¾^±û«f¬í>ÛÅ”¶çºˆ»#÷ÞpGÝñË"&|¡çúDÄ#ù׃o˜•üÁéOkæ„ŽWÖÌ O¬ ·oÓiEÄÊŒXjí—[z¯—Ä[Åî´·ELœwiÄ¥=Ó"5V~Å‚#ûzþá– ­X«X[m]¯—"Ö ”yƒþÄåõÿ±wÿ¿Q×wǵ¸òy¹¥:… ®¶N™Rf,Wæ@P´Î¥bEÙÝHøâ÷Ä/¨SƲd`Œ¢ÛBD7ul™&f3Q£›ÓÅ•Mÿœ}J﮽ö®|l;>õñøÅÏ—ãó¾·÷iïó„~®Ù/uϹ9}|wqåý'ÙSÚ±«7âþÜÏ9§Ó›Ôœs>=±Vë¼––¢ãL±4Üe³JËK£¢=3WEû±‡Vg=ZüY€úŽX2³?¢åÐB}FlP¬3{øJ¬Áá¼Q¨X‹žÌ—ºË{k^®N÷ÌÌùœó:½)½Î9žXËtÞN3.‰Ø‘ˆ5 á~ñÓÒòÑ>ñžÏJÖuMÄ»õ±è¼´Õ¶ÿ­.#6&Ö>i Ådñ·Š»—þ±5ó¥îŽB;ª?üÙ¹%6§sÎíô¦ô:çtzb-Óy;M¬ù5b h¤—"î(.Ž¹ƒ¬öž$™17 uqØi·F¼ñÀØ­S±1±övt ßY-ÖàpúÒëò3ÊkFù—/îR·'}l,]_ã°›Ó¯åyÎ9žÞ”^çœNO¬e:o§‡-ˆŽYÏ ëèNÿ#Ö€†¸1â‰â⮈‡3íI-Šø¬î#¿µÍ¸¶ÊíiS±!±ö㈱™ìN¯íž*¯}/bo¶KÝÛÓ?øä/kv0Ý»>ÇsÎóô¦ô:çtzb-Óy;=¬Žqö‹5 Î.ÿöÐ;åK™ö¤vFìªûˆCîžÑYíMaĆÄÚo+¿‰Ë©h¡ßsQtÄ ™.uŸ{>ýâZyì¨-ï¼ùëSv—×®OwoÎïœó=½IÌ9÷ÓkÕÏ[±&Ö€ú¹/â¯ÅÅÅ•wÛóÔ¶Ï+í¼5ºÖ}ÄTgDaäƒDê4¢Xƒ£Múó|iùýô+æ˜,—º­[ÒGnùdô.M·¼W^{;bkOnçœóéMbιŸžX«~ÞŠ5±Ôϱ²¸xíÈÍdU÷<6’VwD|»þ#&ɽ]g¬ÖiĆÄÚE-%]±¢¥¥Ó©X±àÜâò/"žÈr©{Uz}tJåIïn‹x£´òiWÄ-ùsΧ7‰9ç~zb­úy;Ýù€ ¡N‰xførnlœpÏ¥‹ï´ÿˆX|F¼-mµå£Öë5b#bm„{Öà°®X3üABϤWìof¹Ô}/½(|cì?°_žn=±Vã¼kb ¨ŸÁÙÑ>ôk?ØP¼—ì¹¾¾Áª{6F´ µSOgÄ[­õñ¸S#^ýÈz(Öàh3ô¡îÎK¯æ¯éˆh/~¼û¶‹/¾xf­KÝÖ}.ñÎÐÖ÷ï‰(|<ôç|+Êó“Ã9çz“xs?=±Vý¼kb ¨£oD,ùÉ_¶¥ßp7ú˱ÛËï-c÷œÖ±³û¤—W¦Û7¿Ñõµ²Î:Ž(Öàh3t ÈœKæŸ?ô™ßƒÅm-éÊíµ.u½cdøÎÐǯH».˜?ohÓ‡ùó4˜Þ$^çÜOï+k5Î[±&Ö€úøUñ[ìüã’ÊX»'yâÔâ†ï,;#®­øŽÿpGkpÔù¸­øÕÝÞ—d‰µËj\^Wþαõ‘Ïy:Lo¯sî§÷UµËÄšXŽ¼Çws¡÷ÕÅ:¿}Ô{Kåž$Ù½mMoáü‡zàHŒØãc­n#Š58Úœûáέ…[7=ô³$S¬-ªuU8ðÚööUmý›.Ü•ç9O‹éMâuÎýô¾â±¶H¬‰5Ä€X@¬ˆ5Ä€X@¬ ÖÄb @¬ ÖÄb ± Ökb ± Ökˆ5±€Xkˆ5±€X@¬ˆ5Ä€X@¬ˆ5Äb @¬ ÖÄb @¬ Ökb ± Ökb ±€Xkˆ5 ‹£dÎÜyè<¶¸yI,ªöè›k¦ŠöL|¤ÑÎì]r I"æéÿ 5†X¸sÁ}N@¬͵C:~8ÕX«8Ì8_œgeŽµžWã䤙±–,}8G±4'Ö6­>ä-ïΉhë›l¬U;Ì8Ýñ%bíéx±µ¹±–ì«œ#€Xšk–WÎYñ£CK×3øec­ÚajÇZF;¸5^OškïÌ^°ÌIˆ5 É±–¶IÌùt‚Gg‹µ SŽµLOmcO³c-¹2žw’b hv¬%+#–O=ÖjæKÄÚ×»¢;iz¬=qš³k@³cmMÄwGWÙ;7¬(<ºæÞã+cm°#æü9Ãa’äø;7Í›ÛÕ¿wñ@ºrSñóGvʾÖ[N-,¹àêcŸÙÕQØUYRãz°ó’®¥ë~Þº|lŽyÚI2ðÑ ím+Þ½û“¤ÊÓk×_ùd[ïº{ËC,ìíÎ@¬MŽµýƒ£ªlϣżºç¶Ñ±v×ée9LröªÒD®û¼j¬³±¸mÅG•O¬§¿P¥’÷Ð=§¯ÿçõ1±6öi'_¬+nØwW•§52ÄÁùÅͽëKÇz;®8è4ÄÐÜXûwDÿ‘*;îü˜}ùÓßïNfî™#›Ï˜qb¦ÃœÑöÇ“¯¹p{!âŸIòYßcÝ}}åXûMÚ[í?xåå ³_¯8âuoVÄÚ¸‡n^ñßînY[+cmÜÓþüæ4Ón¸è¦·"æÿ´ÊC|ðbÄÚ¿ÿŸ½s‹â:ã¸Ë-óŵkÝûˆ·Få"W“¨!BÂà%ŠZŠ‘VR¥ c XSyjŒ6ZM jÆhPSµ*šT &ñVýszfgfçʲFtñy¾ŸtçsÞóœGüpfμ·õ€é+Ôd§€O9M!„BY#„DOÖªº§.0SÒ­¬ø$xx »’Ó¥É,ÿë`ôeêc%ûÖýs€Ïä¸tуTÓ«´Ë&“¬ÙšNÊåã¬0Ëš­ìV §Qü]ö°È©,uˆ@Œü²éƒ"¤¨wLºD_NB!„PÖ!Q5ßJ—²3!xWø³¾ŸÔE–f“µÁY Ë.k-Àå©1©9èQ:GD£¬Ùšâ•ã½fY³–}Ç‹ä¶`à¿õø•SYÊϤãùL%^§¯ŽE § !„B(k„¨Êšg›¶‡£âRBY*Œ­EøDx5Â4ënd© ®ivY»h7?Þqc¹1ã^ÔJFY³5=Zz“¶™eÍZvðsõã[Ã[2ÊR†8 ÌVã½@úqÇyB!„Ê!äÉËÚœÖÖÖWª=À¨D£•‰?³Ò’ù«oÂge‘¦QIH›rXo—µBxC"TÜ7tñà IÖlM7À«ÿ`–5kÙ;€×œ®]/K¢Șª’ƒTµUâs„B!”5BÈ–5åa³´Í@|›YÖäÇÃþ‰´pŒHÓHÒíŽùG7»ƒ½òí²VZ> JÑz¿ûÀ=“¬Ùšú0F;>oÙ ÒRö%Àe©×R–2DÀ|+§º8w øç !„B(k„hÉšôÀ+3ËštäÀè ¸¤ÇTi²¶+ EÏD˜&n±G¹12Ðå(kõØJÑ ¼¨'té÷!*&ekêF»vü¬õ=k沫­72ÚÊR†h7Ëšú®µf`ç !„B(k„¨ÉšÔäFXdM’Nœª JÌ1UÖ®H/G#KÓX(|éù«Ã›âä[dÍgX.+¾Ñ>2Éš­iª¾ñ‡ueÍRöËÊš½,íNKTÙ¿BWMœ'„B¡¬B¢'kÒÏ÷«¬ÉŒçQ¤&ÙR['ð^DiVº•`£¬ýÍð Z—iý«,¥&Y³5w£züŽ]ÖŒe/Ž¨¡ ›\Ne)C4h¯ò6ñŠI" !„B(k„'.k·Æßg\jÙm¥­ø2þ'P»?’4Kõ=ò²ÈZ 0UmpÇ­?ƒ&sÛM²fkú! í]ùºYÖ¬e¿©?ewRö6{YÊåúÊbÕJízªá­â“U<6)ù¦!Sìá>Å™7{­•]†w‚IÖìM]‹¦××.–½ ¬7õµ”- êØ“âžqö-õE×Ö²BCdæþkoÒøÍ×Þ×:ÆÎÀNÎBÈS!kÊïšv4 ¬™S:“Õ€Ù-kÿVöˆŒ²&~‚5dsjÊ!„„#n^°égÀýÇTÅ2x~Ïï!d0ËZz’ŠGq«c.k}¤tƇ‡—µÄíèéך¢$kòþU[9µeBÂòö&„9}~ÛµuʧF’W±‹ß BÈ –µrí ûnK¬V Í*-]üSe­”Îäh²fD+à9heMj@‹s‹PÖ!$q©¶woi?kƒ–e~høų¾›ò”ÈšÌèì¯Wä²IʬEÎíe-ƒSÖò½¸À¹E(k„–)˜\Ö÷ÙØN`ò·‡Ç%y©„K¡]! !äi5阈¤ ¨¬õ—ò'ÈÚRxº±¬I ð¦qrÊ!„Há\N svÝqíá÷³wS£½ßBÈÓ$k E$w`e­Ÿ”/kó€øȬ)J²6µŸÇô¡¬BˆäÚ^ÛætÛÖ>ÿÜÉ/ü!ó1ŸY˜~„ßBÈS%k«EdÙÈÍj¨ð×oŒÏØo“µÞ.À33Ò”‚Æ…_LßíN-iX¥$ËÕ~kVlvÀMçòfø}Õ_u;U½˜j·&§.m[kjݾš5 Ò0a´]˜Ì‘ÊÒ¹î±ý04±Öl6mцZÊuÓ° >x²8»eB!„  ¬}""7LFöìXM¨æβÈZ\ÀæjáRJÒìŠÐ†þõŸö-kÝ5Z8éGûNQÏy1¾ÍjMŽ]6Ñ^’™å kö “¤ñZ,U».[ÍÆao}¡nx‰Ñå†ýúc,/%„²F!„BMÖä×\zFÖ”.Ú¯ì–d–IÖªªí®.¥´JÎá \_î•?¬‘%••£šÊʃ¬½‘#ÎzÖÞ+‘[m«²]üF²X“c—¦$Yº]n ä{›¬9\˜”µWN3}©OŽî£fðw ƒíÏ´Ë'‹õÛ4N|ס¬B!„“µÆÅ"pÉddkÀ4ùÃj!2q†SÛ„¨Ì~ˆ”ë„5ÝË—? ýÑZF˱¾gm¿0.ï_åÛ—L}mÛùwoZdͱKb-Pt±Qœm®}YdÍáÂDj\‘c^‘ ŒÞ×WÍÚ°Ù Ä°óåöÝ;EÏ•úÁ¼ÆéE(k„B!äQdíw.…Ûûšê6ÊKQÓŒêôÐõ¥aë…¬üB?•ðº“«…KÙ ”Ä©Í„?y{eí¤è±PiU¶K|^aà®m±Èšc—ÿþ•àp»¬9]ØVÑ*C‰í+vôU³6ìLѾC=Yãsj›œ^„²F!„ÿ³w·?VTwÀ»…ÂýE¥ê¶î"" XŒëj¡ÔÒ¥ RcuŠŠ)(¨Uâó‚`¢¶iEÔ–•"TQ©¨µµÁVhSk$h›ðÏé™Ë»sï•%lxÃçó‚½sfÎÃÜ;/øffÎc kM®X[)F§Å=ù*(WþôäGê»zçGt]4Mv¯è¿%VÙžÊï. kÆG¼•vðꈻ;ø^ª¹µ1¬•V1.âܼpuKX+;±}“òýŸDœÓ=À˜ó°ö“ê»v‡MÙ—/þ–I_Î./„5†,¬µŸ1²ÒÖîI…Ÿ4Í™›íêÞSžÕ¾®Éa›Ÿ©OÑûUÚóÃÒ°–…±ëÍý:5p ¡ƒû"6UÃZi•”Æ:Ú Ñ¬)¬•œØy©èÝ|cÂÊwïí`̵n7§íÙõÚ§DŒ®o¬,n€°À1…µŽ]Ó5$²ìïOÒŽ›oX»¦)¬¥¼Ò3kMöëþð´Èßêjkÿ+„±Jåò–ç SÏs›ÂZi•T8µ^6l^Ë;k­'vc*ið»*Œ¹Öíú´Ý?ýÉìbím)0öº¾Ö8†°V dØwÞ±ô/•–°¶jL5ueÇÅ…]Õ ëÇÜvtMf–~Ó‚™}Õ6Ç–†µ=×ö?"÷vC ó#v7…µÒ*ë Ï(V*S[ÂZë‰=1®ì[js­Û[ZøܘWy3m<ëúBXàXÃZ29›ö~oKX«ü|_Eæþ©;ßÑ™²ÎSŽªÉJåŸv¢MyX[±®P¥'⯠¼ñjSX+­²;bW٭묵œØÇW·žPɘkÝÞÚÖê÷ç¤ý®/„5† ¬U.èKlVKX«L™ý~¾¸ô¢yXë|ýÂþåÉÙäÁ;·Ò9zÆÞ±†µk“×øˆ ¬.Ü1«¥¦Ò*E¼Ô_¶¨5¬µœØe%a­t̵nÓŸžGlÏ«½˜=Ïõ…°ÀP„µÊõiëªÛZÂZfò¶ç§e™åŒÚ®Žõ•Þ#úFM“ϧ«Ÿ|âòì=¯‘†µu Ï4®IÇÝÞÐAjeuSX+­ò­Â¸êj³Ê¾â‰]Xòdé˜kÝÞñÐ_ìEéÐá®/„5†$¬UfdŽ( kɈWDtÔ¿kaWÄÓGÑd6óýü—kå÷Ög Ù˜Žû]CïV:ÁH­ÊɯÕËzÇÖŠ'vzªxR½xúòû× 0æZ·§¦j$²Û#Ú»]_k MXûüœ¨/æœ'²õ¿º&ß½<íýF!Ç=™¶×¾É[R€©OºñD*^UÖþ“öÜS¯ÿ^DGã|’F\ÒÖJ«¼[œºUËÔý%'¶?ý¹1/Þñâc®u»±8Õå…÷O9½>7äeŤÂÇÖªqdÌæbtz.bQ¾7{ p{!¬eËOOkt“»"~œ—N™”Š« QWVDL/ö8¼/â7ùqËÎŽø¢±ƒ9ÃZi•7z"þž^ÙÖÊNljá ËÇÒ° 0æZ·½gEE£ünÓ/"F(„µêbÔÏ ºÉ/ӇɵŸõϘߩųç;k7½º¤ÃÞlì`xWÿRÔµÔT^åß)n^w»rM´„µ²Ûyp¬|¾)â·9ïöTðTmïwÓçë­?Ü<‡%kKX›pU>¡G-:½œBKßëòO;Ú#n-¦ªêšgqÍ`›\œ½¾V]ÓlòŒê ‹U÷ÿ>âo Ûö÷7{è숮s·¦O÷gAï•æA/‰¸¯)¬•VÙzIĸÇÒЬl–ÐWvb#RÓ]7e±mìÔˆžý9ïvÍÜ앶ïgÙîÏg×_`;Ôq¯Ë a €! kÕ›EÓ>+$²ÅYÐé›y×’,síÛÚÖÚÆEœyh°MNLÚ·,˜ŸâYôLËW`ÛS AK Í^¾!;pî?h™Âã´þU±óÔT^å‘ñicÜ’¹£"~Y|í°’«Œ|(}µdâάµêrÞ¥c®w;atÖßù»ÿ0/ýy|a½íY£§¸¼Öº°–MÈ_]´¬ž¹¤¾æÑúXìIDATó?>«4†µÊÞTº`°M~º¥ÞÒG·ÍÏ×F»; KÙœùýÍŽÜ×þÔË-ƒÞßó†7…µò*³ë˨µ¥æ4µÓzb•ÊI«ó¢³ÏAY:æþnŸ}®¾{Iÿ'•Íßk[X«NÈË‹ÑéÇ^Ý×¾aîSÿªRkS¾hNA_Ód¥ûÍoo5oÅÌW*Ó#Æžgñ‚KÛ{®Þ°XÀÚw¦NküΕ¥ K§@õzsX+¯rðÒ‰Kçm¸öú)ËÒ6¶œ}ó‰e^xgêíg>½7ŸØ±lÌÅn~ùß í}ç/X^˜©YO´ïwu!¬p‚Y±å(«LHaí³ã6À'"öø™Ö8á|1˜é;>ýæ{³êëžm‹XzüÆ73:îö+!¬pâýç3â¥#´¬#âíÚç¶M·á­ŠxË„°À h~´o>âA“²¹ù¦½svFŒ¿ø¸î®èùÊo„°À ¨íŠÚT’_g{6Ÿþ˜›Í—ÍùîqÜìˆKýDkœ~<âAì¬Ï«¿síqZïu1±Û/„°À‰iWìqă†ÍZ÷ZO×U7Ϙ5âølGœÙæ÷AX@XÖÖ„5„5a a a @X@XÖÖ„5„5„5a a @X@XÖÖÖ„5„5a a @X@X@XÖÖ„5„5a a a @X@XÖÖ„5„µÿ·_$‚þ¿nG /@Öd Y5d @Ö5d @Ö5€·ŒüÐxÙlÅ*IEND®B`‚metafor/man/figures/plots-light.png0000644000176200001440000034631414661373527017133 0ustar liggesusers‰PNG  IHDR ¬ÜCaØ‹PLTEÌÌÌêêêõõõÝÝÝfffóóóüüüÿÿÿååå“““ÚÚÚªªª›››ããã‚‚‚RRR™™™'''[[[CCCggg\\\ÏÏÏKKKþþþ###×××ýýýááá??? ËËË{{{‹‹‹äääßßßGGG€€€¯¯¯³³³OOOØØØWWWwww777999 nnnúúú ÓÓÓ+++———ÃÃÃÇÇÇ///¡¡¡}}}øøøûûû‰‰‰£££çççÞÞÞ333NNNÔÔÔ*** âââ»»»ÆÆÆsss½½½¸¸¸•••ììì‘‘‘mmmÜÜܧ§§000oooºººkkkÛÛÛŸŸŸÑÑÑÍÍÍïïï<<<bbbƒƒƒ(((ÎÎά¬¬¤¤¤÷÷÷222%%%666ðððššš«««;;;&&&qqqBBB---"""~~~ÙÙÙ¥¥¥!!!zzzÐÐÐÖÖÖ’’’ààà···ÈÈÈÀÀÀ111”””ÉÉÉhhh†††¶¶¶ÁÁÁ­­­===ùùù JJJÅÅÅSSS...)))¾¾¾–––ttt^^^ˆˆˆ………DDD@@@ÒÒÒ¢¢¢$$$VVV²²²```iii888„„„cccvvvTTTòòòÄÄÄeeeUUU±±±ŠŠŠñññEEEÊÊÊ¿¿¿žžžFFFµµµ,,,¼¼¼MMMöööXXX:::|||___   ÂÂÂ555IIIîîîèèèHHH¹¹¹AAA>>>ŒŒŒœœœôôô‡‡‡444¨¨¨uuu´´´éééyyyppprrrZZZPPPdddëëë]]]jjjÕÕÕ©©©xxxLLLæææ®®®ŽŽŽíííQQQ°°°aaa¦¦¦lll˜˜˜YYY6=g× pHYs&r&r!+—î IDATxÚìÝMˆ”uÇq÷ÃC`‹›˜0®Zf’nDk ¡XfRbA…dӡŃÐ!ÃS/R‚ {PKzA$c(„ˆ"/½…½¸y("“ ¨‹Jî>ϼ?ϳóŸ•fÚ>ŸÓø<Ïîó°|efQ çÌð#kˆ5±€Xkˆ5±€X@¬ˆ5Ä€X@¬ˆ5Äb @¬ ÖÄb @¬ Ökb ± Ökb ±€Xkˆ5±€Xkˆ5Ä€X@¬ˆ5Ä€X@¬ ÖÄb @¬ ÖÄb ± Ökb ± Ökˆ5±€Xkˆ5±€X@¬ˆ5Ä€X@¬ˆ5Äb @¬ ÖÄb @¬ Ökb ± Ökb ± ÖüÄb @¬ ÖÄb @¬ Ökb ± Ökb ±€Xkˆ5±€Xƒ®Ž2¬ëÎóôeßPÿlÅ›7ïcã—+?YT»`m|jèJÜ {v…äÍ“m±ÿ¡q;qì®vb­êÔØ-ûfس;Ölb èéqÛ°3ÚkÑÀ×ZÎÍ°g]‹5Û†XzoÜæ?ù¶±E·v6h¹7Àžu/Ölb è±q{ý¥Q'±½ÚÁ Mr3ìY7cͶ!Ö€ž·âÛ†ÇÚž™áƒ6ÉÍ°g]5Û†Xjã¶q³=k»Æí¡‘Ñ±KßÍ©,ÚIƒ@ÏìYx¬Ù6Ä;ns»þ íÅÚõµ#ë&ƒöA gö,<Ölb ˜n±VØ;;jИ±fÛk@ø¸}5úÙåKíͼà‡WÎny¤î­&¯-¿}øî”+׿÷äãgËo=}ºoŠ±Vø->¶$gÐ2žÛ ˆµ,çOþ]¾ö‹«ÂO§N_`¬Ù6Ä6n‹V<¸&y[Æ3¯®?³`âà‘Âúcýã/^~)þ@ôê}¥Êõg5~¯Ç>^RýøtéЉä觟«ÞÞÞ -K.ß‘1hÏ=ù͘n{öT|zEõÀ=uR( U¿øÞ3ʼn×ýçFj_=Éé¼é 5Û†XBbí@©þïÿ9¿ßkÉ¿F§&Ž¾öBÝõkvϬ]ÿËcrÛÏS‰µ¡üAËznƒ Ö2bíþƒµ}(ÞÑk§ó¦/4Ölb ˆµeŦß'||qs¬½_9õáøÁ ƒ×Ÿ«¾;òü¦æßM\|v ±v]|l0} 3ŸÛ ˆµôXûé݆…8ÔkY§ó¦/4Ölb h?Ö®iýß_nšßk÷UßÙ¸uü;4_ÿù —7èé8ÖnO–qSê e?·Ak©±vCÓNõo-´u:oúcͶ!Ö€–qkRÛÃi§g÷¥××·—ݲ¼òÞŒ];+ÇËñÕÆ(½óëª#Ï%çæuk³Ž&W”6h9ÏmÐþ{ÖV¬Åžx±úòÏB[§s¦/0Ölb hܶÍMŽ,Ü=6:üAå3Ío¶ÄÚæÒñ(ú‡½û¹ª,àÞØâvÊÀ¶@÷‚/£¢•a!ÃȆ4)”1µ‘AôR’€DT’ u‘J¤–‚iXŽY ŠŒH!ÿ¨t8ã—K³ÇÀî{Ϲçžsßóžsß—ƒÑû~>°û<Ϲ÷þqí»i–¾2geývYÝ-k KIü} 4e-­¬íWg‡ãÝÍ,gE_÷ÊšlCYòÃmIøéå¥Ññ;Ã_¥ÍŠ—µ‘ó£õà–££'ܱ²ž^寽þ½ÖŽénYûn)%Ðòö-Дµ”²¶,z1ü`Ú¼f–³¢¯{eM¶¡¬ùᶠœ¼r±žnsâeíÜhuëèØ÷­µ»(ö^äuõOg¿±þm}‹(kƒkor&-oß @YK)kÿŒ–‡›XÎŒ¾î”5Ù†²$ÂíÂËú‡«áWo>{ÂeÁÔÁxY›­^~9ö}5Û‚‰ÇÚ¯N|;ÌùÓO:Ù²öRô%É@ËÛ·@è]yÖdY»-Z¾½~¬¼åÌèëFY“m(k@2ÜÎN_ /Ÿ›úF0õ®xYÛ­>ÓÉ?ª®¾ÒøÞáôßt»¬ ñÔcÛc$-oß  wåYDz¶!­¬Õïxÿô²–¾œ}]*k² e h>Ü‚+;ÊócS·Sˆ—µmçN9þáç¾m~7«Kemñ°Šï<±rÚ¡© $-oß  ·—µ!iem}´<=­¬¥/gG_eM¶¡¬Ý ·ðû^–ƦS/ÆËÚ÷£ÕOu’XÂõ—¿Ù¸ò¹§»RÖ†wúƒ$-oß  w–µú»‹w§•µUÑò%ie-}9;úºö¥Ø² e h:Ü–u¼äâD0õÓxYÛ­ÞÚIbÝ_; eç‚{’KsOAYËÛ·@èemI4qvZY›œ]ÖÒ—³£¯¸²&ÛPÖ@¸%<ÕxÕH©t<˜úu¼¬}1Z½>¼¸1ë”­×î5²f“ž+¾¬åí[ ôβvW41°°²–}Å•5Ù†²Â-aAâ—_U×Sˆ—µÃÑ꿃‰[òN{å#{^8'lk,¾¬åí[ ô²²v[CÝ:Z.¬¬eG_qeM¶¡¬pK‹‘1[£™ðýÃÁ[ãeí¼ú3ËÑÇŸ,þIèu‡×®¾ª6˜ùpümÎÝ ×KžT åí;çdô´²vi°¼«!Š(kÙÑW\Y“m(k Üf…¿ýzwmbë¦`âÏ¥NÊÚ±`fsmüb¹¼èOw¼£ò°ß¹›Úïdµ1:ö`pìÚêàP0ØPHYËÛwÎÉèiemc°<=O…•µŒè+²¬É6”5nI ÃlKŸêpæp|cgeíoÁÌÀG‚ášð‹cfWo/›Y;6ü–š/Wo7M,¢¬åí;çdô´<›, sàåËZFôYÖdÊ·¤yµ;,~ÿçØÖÞ6¸<¾ÔYY+=Þ6dýs¥RË€ ƒÑ%í+ã&…ïù «xåÂ`xVKuØ24þkÀ£ãqÒ–³ïœ“ÐÓòì¼0F¬­¤ÎåãËE–µŒè+´¬É6”5nIcÓîF<äéÎËÚö¡µ»<~ø¡ð¾ÈåóªKS¢ïV;ö_½pg8øLøÄ;꯿å¤-gß9' ÇåÙ·jÿíÏr~, )kÑWdY“m(k Ülé˜ #>T꼬•–w|B˜n_J ™/µ†Ï«¿ÍY¾øä-{ß9' ÇåÙ‘d$Œ¼¡À²–}…–5Ù†²Â-©õõÆ\x¶þ}œie­å†Æ'D÷Þš{‡ùêü†´»¦€@ËÜwÎÉèqy6ñ#ñH½dN‘e-#ú -k² e „[ƒŸ<…sŽ×ïœZÖJ¥7%Þó{¹¾2uù¤DÆ :¾¯^òÎŒ¦ï, Ð2÷s2z^ž}¨ž ›®(ZÖ2¢¯Ð²&ÛPÖ@¸5jyæÌáÿþgµM‹¯¤—µÒüLJÔââë —&–ÎøÊÍQ”,›{u|iâþ1á%ÿã[‹´Œ}çœ €˜g­'†Ç,Z¸¯TtYë4ú .k² e è`Ý{ÿ:vóäµ+›~¸®Zýx¿ÿÜ›²thçÞ# ÷¼óÉ™V¦®™¼yãŽk×½%û.þdœæžøÂþÕ{ol9E¯ž}oU&Ë6”5”5e e @Y@Y@YPÖPÖ”5”5e e e @Y@YPÖPÖ”5”5”5e e @Y@YPÖPÖPÖ”5”5e e @Y@Y@YPÖPÖ”5”5e e e @Y@YPÖPÖ”5”5”5e e @Y@YPÖPÖPÖ”5þŸÜ\.—ÏŠ†ý+ÃòkÝxQ•ç]Ú…ãç­Î;bXûVÎøýµLû³‡'L8kúª­]~jþOÖ¿/”5z™]í•ho4Üß>|ð”—µ>+Ž:ËÚü¶ Ê¡1ví©ÍüdÊʹª¿J»8>_Ý3õT—µë—˧qY›¶¡s¬¥ Omê'SÖPÖÈ÷Éöë †ƒ™ƒ*£tçeºT>æ–Oç²vôŽ ¥ý—½{®¢<ã8>¤’—7"ÆÄ„2„4#¡¥rm€H,ÅpÁŠŠŠ€Ô PÊMT®JÈbQ¦EZ©Ü,Ø‚´…Ò‘‹\ËPD)##P*ôò>{9çlvs.r0~?ÿìû>»ï»gÇ3'üÜsÞMqÒÚˆË[¥+#¬€°†Ê–snú(õR{gyù‘Ù”jñÜl‹¯à k»­R+7Á”Ÿ.i’=aMŸVß ßš›°Ö_Nû›Pwm÷IÖ¶^è.šRù¦|©Þ°ö²ªp,a „5Tîoò=ÈýÙŠ¤{nŠi¥¬3øhûGfõÝ%ü]¾‚7¬ñ$ßtáH#·Û~Ù:äµË¶Û3ÆèÎZ\vø%Ktú2É—§"îŽåÉ’—Z.¬ÙO¯ KXa •³VÀxG"Õié>(ºî)­‘öÊëåijöÃœ¼Ö¯V@!ZXóMŽ4²Lâ'‘¯dª“e”ó„îëÖÔ*yÙw;ë©k´VFüîLG7­*aí§öñAc k ¬¡rÅíû?ãMë×Òˆ—›míŸdÙÏ›cZ‡ý…haÍ7Éž–Ê.·¡Ö.ZÛÓ¤¿2±½td³…µå¼3jXíRë jò’ï6”zIVtìÖBWf…5ûøÀ±„5ÖPŸ;aím«'÷»†Kãamß::ÌlSMpj,«5&·ñ¢…5ßtöb’U¦µ¦‰¾d*qò²³Jí“)wHRÚ£ç¬9)1ãH u´öi¦Æ›â½LkØMë[r°¤FpX ]YdX KXa UpÕ 7Z½e¦™¶hÖÂÏå6¾ÝTþ,>·]¼_¶­ƒ Qš:kyügVý[ËÚý)ï.ºG*ýÌ®ÿHcþ1«uÌÂZ­NÎz(ö&÷#«zÉZ¯rÉ泉ھ—ÖBWÖ‚ÆÖ@XCdN·rÉûvïKϲþ|q³p¿Q B”°æŸîOvs‡ROå„÷¼*ƒjNv»#Å(¬©3I¯7íˆS}4¢xQUÖÂWÖÆÖ@XCU·rÄy§÷ “+&¼ë®—×ÖÍ©½UP!JXóOÿ„ÕÏ2Íås܇¬uˆ·FÕêb÷»4MŠUXSû뇞)°4üȵ#%N-q„ª(¬…¯ÌÖüc k ¬¡*F[ã^·Ûjo‹Üaío}¤GšÖiÖBŽjÓ{û¤OØ{$tŒ·-¬ù§»0uNv‹c]e=ÉÿÝ;*±0usè½ÙqÁºÙ9í_î¨bÖ”ê=sÝ„ì’5»–E/­Zšøر¼¦ªÂ°¾2oXó%¬€°„5a kÂÖ„5a kÂÖ„5 ¬kÂÖ„5 ¬k@X|sÃÚ"mÜVéaO.²6Ï›ƒó.÷Å3´žç/›¹ú]Ýko ¯½N¨;MºëCÝáÒÄû ¨†ZjWJÎœU3¿ë”›™B»ÀuÍž¡—3U”ÏÁŠÏâý€¥½îY_ } Æ7 Sß)…ÁÛ‡¥¿Ðᄳ{RsØ7xÖžù«–$õZ°Ñ­44s´U*Á™înÞT§°6Yþ¾gŸˆ~PÜÜÄfWÖºi}0 üœÖKã®eXk“nºéOº;ÓLoÜFÞg@µk–’m×"¬y¦Šò9x¹a­v‰ÝÎëì;£½a­(Ùjf8Aq·ÖÎY:$ÛÖüMÂÕ?¬m²ÿÀo‰zPÿQZ_yXkÚGëóõø ­g^Ë°&ÿÄÑú/Nç tjó6¾aMç>t­Âš;U”ÏÁË kç“Csw°÷]ò†µý‰ZoŸ;Lë]ÖÞÓ%º°GД=WD¾Î‹™„5ª{X{ÏþŸõ AújÂÚp­§íèªuÁþkÖÆÊ?[ô«}—4[ò.ªmXËN2Fëc†e^MX ˜*Êç`•ÃÚðüü¡j_–Üò?øAJøãé oX+Òú±25@ëÄ2Ùû©Ö+ƒf¼0Ýù¶¦3rDdX{+!!aa €êÖârœ?û}eaí\ºÖÇ÷ô¬Ê¿x.'¬©W¤°B’aÇ5¦Õäñ¯Õâ9]^~ÄÿõOÎΚøú‹¿¦g»Q^È sÕ¸a­‹Ýlܪ…ü×ë/íšÿgïÌã«*®8)É0,–O¾<0$Ö$Mù°¯… ,e§ZjcX…HÀXƒ¢ ‹T¡Áʪ(’ŠÈ"*"‚€`AQ)ŠÒ*+"3wæn3!ïÓ,\ç÷GÞÜysçÌ°œÌw–3iiiÿ¬iªºŽ,ÞŠ ÖÚA뤂 ,5–—ÇRo3LÈUJ¿$ä˼Ⱦ¬š@ï,ÔÕ8Ú–¹®ˆÛ’¾6XMBXC¡P(*°`­7ûåžÐýø¼Ü`­{eªþ«Yl s¨,aì„œ5,±ÅšxX3´íìÍiÍ+ ñL¯Qek†£—¯ÿ‚_°vݪ,?è—LX{˜%ú@âÔ½HRÕ@«èç”æòË|=½Méa]…/ÃëCý‘I«áá[„µrR~>þ P(Ê°¶ýrßc®»eV]ŸŒÔd©Imq½"amêúpߤú±f-…¹_¶¬³øè‚VâvýçlHˆïü<év?¥¡FvP¯¼ð„:ñ3RårazÙÕ¢»?80/¦EøÇÕø~ Ò™iBv|3¥Vöö%²LP¿£QÃgœX©ÂZUX)L/$…0‡]ר¢[íÝ}ÙOŽ:TŒ {k=ktVÒMiÍ+ ñL¯Qe k#à¯íHYÝîFÂÚðí-¹*—§°ûAû6H·÷Sa-ž%¸où^ß" ¶Ü«”® ä%ce­U4MOÓuy;œ§{S<¤u¥´ÞïÖÊG–-€ ( …ò¬ „ƒï?Ä¢—ÿ°ÖÏ82Ñø²x#Eî¥ôõ‰0ñgöÙÏ~6之š™»ÍD|}€­¦Î3GÌ=ï°6u¶8Ÿ/Öô†„ŠíX#k k¹`íeª>YTþ[½ {ko¨þÊ• OЄ†fɉ‰‰k{Î4þ˜OZ/Wœµ€è¶gz*KXCå╉QŠ»°¼²Rü¨Êå)Š5Åû©°î+‡gÁÒVöùû\š?=w]¬ñN/J£2`á άm-fO@8©<ó1k_u#°Vö_¥ÊòJ( …ò´nX{Ö¡Vr>ûß°j‚öðb?·­IlŠø3›G’erì[j+·Æ}´`ƒdGôþ_ÚÊ|&a­™Åïe+Z,ç©°²fŸS'ñŒ?67ßîºGkÂÞZ/¨½¼›É=Lú"†:nA€¿ª´ ³HÝöL¯Qek§àÿï#vXSÝk‘åêV‰U¹<…ÖTï§Â@Ök< <Ö6Qõ|ÎkÎ]|!ÇGi—Ôá”^#¤C ]¬½q„OªRóÖÖP( a-Pa-4ïŠG“â`íxÜ,–x*..EF£þû–5Q|Ž˜ÜÛ˜ŸóÙÚÚg‹°é¿9À’Ö±D³¬{6Bôé¨nÈj‰­A»áÍWOÕœ c¬Qú‡]—çÀçv(›h³‰½qÃ.X#9 SÙégù3œ «?ªÄ xµ›Î„½µž†5B:Â_DÁšb-ºí™^£J kIu8—ÅØaMu7¬½ÿ×ÏùS•ÛSØý  kï§ÂZ¢t©E2òî‹ð¢ÿ߈¸ûpÏÚ¦ânRÙHMèCXCXC¡P(„µ[Ö>›!,#M-ÖÜF(ì*Jê“a) † Q°ÔÜ™p£ªÄŸÁVnÎ!‡75æ‹g[åùþ¨)—Ö»®x»«Y§ç „$=#a ‚IÁíÝo±ÄXúXU~§ƒ5¾”gíë„ýFü–·"«-×™°µÖë°Ö‡=¨0XsY ¤n{¦×¨ÒÀšC?;¬©î†ÃÚ>Í X1U©žB ݯó~*¬ Öõk¨üQ–˜a3–ÀéêxëôèÐÔ|B†Ñì mùïñkk( …ºu`­> `ïWz†Ÿ°Ö½¯9¤³ÏßÁâYþåÅ1¹ ø3܈X2„%³y &“çûž¥¬˜×ÓX^G“ÞßaÄ-ƒfý¬=ʼûÙç X*›Ë ×ÁZZw>êlìi¬Û(‰œ»Þ®3ak­×aí{X_a°æ²HÝöL¯QekŪ–Ä(ÕݬMîúE_ÿªR<… k:ï§ÂZ+X­›³qÿ^}Kcÿ7mŸ“1âkÈ8èhÌAJŸ#¤ÇÎæ¾U£Ï:¾i…ç"¬!¬¡P(ê–µÝfa6¤îƒaÀt?aùŠ¥j~+­'{ýòë‚8þ¥øÍgOðT–1:ýõf Œ¶8NÌK%5ùÓ%8Ï1HÀš1égø¤¥¶ü IDATÙgªµò1Nk¼ »:{RyË[ŒÞt&l­õ6¬Á}Ma±kŠµ@ê¶gz*Xkùoy;ˆÄ(ÕÝÔ“…÷³*ÅS¨°¦ó~*¬‘Ëv¡„DæLocø؆ðÏ-ÙöÒ ”NéK–$E ûQý-(kk( …° °V~ùóqi2LýnpÃZ–Ö8Þ‘YªŽXˆ¼uN]ü1â©‘,yš§2†ÊÑJ­ó2ì"ààÃÎF½ü^—¢Ü>kÆ “¶€`ĸJm°Qv‡ÖH¸U‚Ÿè·–¡1ak­Ga "&˜Y Züž›ÌoÓ…QÚEHT-_k×mÏôUXKïxp)VÃÌ–¥ºÖ††øW•â)TXÓy? ¬‘wŒx¶ÙMÿî˜zP«WJk“ȧ)Û)žÒúö²à-éq„5„5 …BÝ2°¶Í¹û'ìAÖ.¹Þ¦µ<ÕN°Sk¤@~1Îþ@¸ÌªR=… k:暈5!ˆ'9Ú‘«yµï|Á#ûO!äMóz6CAÑ–ëcZA}«{#¬!¬¡P(ÂZàÂÚ{nXËL‚ìÉ&ýÃX{Ývj=O üÞ‘®Øz?÷.ìRäÅ ìhûöö¼j lųZX›m‰²J†5Hÿ“\ׄ­µÞ‡5JÿZ°&¬Õ:(ÝöL¯Q¥†5Â#<†T`ÍånêñË°“actªR=… k:劉µCð##Á¸urÌwÕ:åDèܹŸÒº!„, t,!·¹aï p’Åø­kykk( …°°°’ '4B…à2ú!äe‰†bêVÀÚlóh™ kpv¦Û† Z??FyF3HZÔ6÷ÊHE^3ƒŽÄ‰‹¤fÈC!óD*¬¥˜'íø©XûÔlúæ7ŒÐ™°µÖ£°fܵ»ú >ð|¾œaMµ¶WÚé(ÝöL¯Q¥‡5Â﹞ò¾£4á»&‚ÛàGUª§°ü „5÷Saíñ3[p¬ß“OH.´9 9f€‘fó+b‡µ3ö ÷ó[´+ótÚÓ4 …B!¬$¬_ö÷ɧ…f igB5~+‡µNpÅY$‰ÐÁZ_ˆ”Ÿ¾f±azXe'þ$Á\r0Käǘw¹Á˜gO5û‹ì˜5fxJÖŽAÀÌ.Z2¬=E~„=DpÒ%‰›Ö8úÂé™ÌïÊ9t¿iíFÂZùtÛ3½F•¬ ¸ßº(R`”ÆÝ—b“‚lå¾}Uª§°ü „5÷Sam9Ü}CÈ`©Õ€PcÇ•,ÓÞ|ƒy«9p¼ÎØ9Þµ RÌN…Ÿ¬L jðžuCÖÖP( a-`aíAXA£— Ax=~›OÏ5µw†™°ÆcFÏzã¿:X#?òC+>¸Äé .üùŒ¥y}¸Ô~s¦ÒñsÑf˜î`kÓjˆ¶ýâÜœ 0ÔâG9TX#Wá»Å©Ó6P?`- b÷×y{ù¸£Pv¤ÎÄMkNÜ ¯(X3­ÝhX+ûn{¦×¨2€52‡é¿Û¾æ¥ºkœ½b•\•ê),?hn¶Ôx?ÖŃ¯Íkß>†@lh¤3S¯ 3sø"àPJÛBÂ0ò“+À!U»‹'ÆGÌ‚°†°†B¡Pk kÉ>çu¬ÕdÌòÃä µµ„µOŒçZX#£mÓ®7¬ÁNÇš¨¼ÊVn)¿çze´¼1[èÇ.·>zXû{÷[W]p\Ùo=þØ•Á4e enl5€ˆKØâÈxì!°À‘ÇŒØ$d èŠc ñ ›Aƒ„‡2Dƒ‰Ç€ ƒ@Â(D*ñ9²d‚Aïm{Ý=MwÈnïíÝç’Ýs—Þž_OO~߶÷ܱ×°fÊ°±–¬šQú€SŸb4ÅZþ¯´&O©X+<[ÍcmïvÝì5{"Ö’ÿä¿N?]Xk•§›B¬uÖÿ;öá>T噢t,½2®òìWkÉÒÒcîê»cÌ”Ò=ÛŠÿÃ7b<½¿ÚÖæ>¡Ù—æjs—þ÷þåoÞ½-kb @¬5l¬õ­¶—¶wæ4|XþopÞmî_ <9½kM+ /J‹µd[!ïš/K*b­;wûé¾[^).3~øþªXà|³p­“ͯåO‰µä3'÷?èäéûkI÷M…·&˜Û”ú£(ÖÞÎÿdýš‘úÍÚ.ÏÖH»]7{͉µ÷n¯+fTÅé¦ký¿ ûýðªâLQ:–]Ƥâì—k}—&Éëºx`ì„5÷,Y\|üÂ܉kSÿÍÔ7ÅÎ{ý â›‘Ü÷f"ÖÄ€XkÜX˯;º®.»ã‰üàœü­GŸ¼¾ùòãHN-ÄZ²óº›¦ýÎüÖôXKvÎ{ä¾æåï|yzRk­¹ z|àö_þ¹fÉÌk~¾©ÿ]Ö’_æ·uð§5ëµ£g^:g¿óOãäÓÒc-é¸ë©®sÖw$»kÉË¿vyóñ“~û©!žbôÄÚ˜7ò_£/ŒP¬íúl´Ûu³×ì‘XK¶ç¿j_?mPFírº)ÆZkþO¾OoöCUœ)JçÁòkNîzöK‹µäß\3mùéWî(.XüÚ秹rþY¥Çã+…Û>1eÚåï¥ì÷7>õiKÿÃ÷&bM¬ˆµŽµscnýЖ>ô|Œ×tX Í“òÖüéÔŸªkC=[#ívÝì5+å}ÖªM¬‰5±&Ö²ÚqHŒ¥ŽüyZŒûY ƒ<9šŸ­^>‘ºÙkÄšXkˆµZú{ùº¸Üy1Î8ߺ [Hü¯c4?[½|"u³×4v¬ý±§gÛ=ݪžžž.±&ÖÄšXËê¬Ãc¼;mà…ÂËÑؘ8óð#ÏüèÎÑýlõò‰ÔÍ^Óر‡úIÕž·¯‹—Š5±&Ö>‘Þ?—r÷Ù1:Ö²kbM¬ Öjäå›âä‹*ï~>Æ{¬ ±&ÖÄb kbM¬€X@¬ÀÞaŃ+»šïûÉU >Ñ°Xkb ªá¡C^¢÷ÂÍŸ`X¬ˆ5±Õðj®Ã&¿ðÊѹ.mË<,ÖÄšX€jx3Wa_½-In™ãµ‡Å€XkP ­gÆxDƒØãyنŀXkPçÆ8ñ–Ûĸ6Û°Xkb ªâ£\¸==Ƹ*Ó°Xkb ªâú/+nLŠñØLÃb @¬‰5¨†Õ1Æ­Å­ãbüb–a± ÖÄTņ\+nõÆ8)Ë°Xkb ªâÃ\-nÝcW–a± ÖÄTÅ–gÚŠM†9íìt…pû8êšX€zó³—”¶þ›«±}2 —wHL·—˜hÄd±4Æ/•¶ÆçÚêÙ ÃåΘ,Ök°‡ÜUñ«³«3 rðøtx Œë®H’›ÛÌ{!±õfKŒÚŠ­†wËgCØÏK÷žëm¹ã„–O2¸ÀˆX€ZË_îñåâÖý1.Ï2,Öh0‡pî3!Ì3ˆ5±µÖž«±cŠ[½1ž™eX¬ÑXº—…÷ÛÒ6ßm.kb jlu®Æ^,nãß² ‹5ˬƇð½Üæ±&Ö Ö‹ñ­âƵ1›iX¬ÑPÚ¿öá-!<·iüsXkPkOÇøFáöô㉙†Å¶\m ¡=·¤±&Ö Ö6Å8sÅÀíb<´)Ó°X£ÑV«;ZÂE‰ZC¬‰5¨½©ßñû ún>ÓcO¶a±FíVÛMÄbM¬@=È_ÿ[ërYvUWŒk®Ó¿hÎœ9· =,Öh@ºËÛ“¼×bM¬@­ÍÎåØÄŽøAîŸW Ü×’ÛhzX¬Ñxºßï¼­tØ~zî\—ïG¬‰5¨µ5Ç~kÛ“ÊXKk4ž¥!”ý4b\‹Ì bM¬@­­è]¹üÀ)ÌÛ'I‹µ”a±FÃ9gc¸rjé°m]Z6™ÄšX€†&Ö N ጾvÂ1}ÿÓ0+ˆ5±b j¬{˹}Çë{[úkíÎm^´†Xk Ö ^VªýoŠÝ¿®±&Ö@¬A,TËbM­!ÖĈ5¨—uê¸ò‹BšÄšX±5´á¹âñºðãõ¥÷~oß`nkb ÄÔÊ9Ë~ývÚ±Û1¿óv³ƒXk Ö F~ÂŽ´c÷Ù–ðj»éA¬‰5kP†°>ýàÝ»æ±&Ö@¬AM, ›w¤¼«—…Eæ±&Ö@¬AMœ½ï‰C½í뷚ĚX±µ_¤.8ê᱃W— ÖĈ5¨ùu]«ÄbM¬€Xƒ:[¢¶…О¨5ÄÚèµA„‰5Aûð±æêýˆµÑk¢k4€Yoµ:^wvnœ0øž·ùó„Xkˆ5±#ú{µÙá_ƒØó_ßå¾.\w‡™B¬y͈5A§„pÁpGð¬0Sˆ5±Ðç )wšÄŒ€—Â_ßî¾wvè5Sˆ5±×11^hk0îYtðð‡pÛï.0Sˆ5±· Æef±u´<5Sønkb ±µ]ž¶w·Š5|7ˆ5€!ÜO1 ˆ5¨ÉêtBm‰Z÷ƒXH·Ï:s€XƒÚ¬N+ß[¬!ÖĈ5AÛ;·ï~¬mí|ÌŒ!ÖĈ5¨¾î¹a~Êñ:&„KRî^:ï6gˆ5±b ªnß^L9^[ñí¦”»ïá(s†Xk Ö ê. ó›vÿ0ní ›ÛMbM¬{½_ZmkP]‹^‘å8þJÏyæ ±&Ö€½ÞÔ%q¾Y@¬A½­L;%Ä°×ó¦Øˆ5k ÖĈ5,LË4-TkøžkC-Žÿ?{g\UyÆa[åþBI£ñ —(†b ¡ÄFYĪQ'¸`ŒÊâŠÊ¢-–‰£VE\@µ.”,"Ö´`g¤•‡:.èDQÑZ©2.ÓÖö.'w9÷æÜ=Iî¹÷yþÉÇY¾9óÍû}¼Ï9ç=W2 €¬tIbÚ½¹ñRl ˜È@T6~Ad  ã8wÆãmÅk?Šæîg0v€¬!kÈ@GQ¿Í˜òmdíl£è^F5d Yè š ãªo#kÝŠŒqüØ kȲÐ1<^dœØf¼vß íšµw £žñd Y@Ö:„Áå׿ÞvÀN8µí}×´4=Àø²†¬@.sêëŒ k™™”2zÀ¼@Ö §øŒAd 3“R†˜Èä0ð£Ø€¬dlNÊøY€f<²È@榤Œ 035È]‘Æ0 €¬tyÍÝlãµß3ó`{€ïó­|¾µ –µîÊÇW2 CÖÀƒüÅ0²×n6¿Áf¦a|Æ8²–¹²æèXj/€„!kà=h¬¶Ÿ¼v?Šæ«YÆÅ|¿5d 5d ÀMvÆM=¾›¬õ=œc$YCÖYCÖ\¤nHSšW˜ó £¿ýãËw¯e$YCÖYCÖ:7ݹ½_úŒYCÖYCÖ20ͪAùìàk“>:¦’ð`v kéÙxÌ} ²†¬ kÁ7§ËäÕ§ f²†R¿¶1 ȲÉÙh¶ŒÈ[£Ðàä˜È€=Ã¥ëd Yp™Áå7^ãVTwKV|¾ç>%p[CÖ5d YCÖ:›s £ÎAÀ^úƒƒ~f½²aL>–…YÄ ²†¬Ø‘?T§0 Ȳà.Õ3ŒN¯_ÍZ]‘þ¨ñÍƬ½Þ“+ ­²æÿ‚HAÖ5;fN¬a5d À]–Æ›â5ýb‡©3Œs½?&“”Ä‹D ²†¬²†¬t*=ùö÷d­ß”Æ]ž’“’]Mï'T5d 5d SÑ; ãê\ù ds YS ‘ AÖYCÖ20_ÞÔ=W>ß¿%•¬*Ld 5d ÀÛ™¨ç‡dQ*Y;œPaŠd»¬.•”vy±F‡GÛ÷¬5ÔÛOoI<¢bŸŽkm×.k…ÀÂÛï ýèzúίðÚ%ÿü±þ±›6´qÝñ«MÒerl8I¨wÐ[üÉUK”Ï}ùìö¬ˆQ¦­ÙWâ/»À¨Žü_ÏxÃ?*Cíá :YCÖ€D4kmí¥T²v2±ÂÉrY»ã´` 7tuætÿ…±ÔäÌãÌéw^ÏÄä%š>?ÒU<'•È[:GZq5™2@ã½Å. .!Ë›oŽNõ4,nµIZ âdmXCCCUÚÞâO® ÊÕÊqyO•md©Ã1vU³¥9Ÿ¯Zóû`nRÞÒk}]ž×§X¡º«kh(GÖ5ȦÆp÷CûŸ†±ÕÓÃr}*YÛ@¸ kY.k uAÖuiæT9V±ÔähiAè¦sþéâØðWMŸÎ&õþ-=Yz…LYk—긫Bï$¾›òµ‚øÕ&iŠ“µcôf]݆|îŠ}ÒeWÄ(/Iÿί€MÞzÅ`ªF¿Úð~± –…}‘5d ²ƒ¿n3ötÄ“µ&£èOËÀdW›\M¼ kÙ-kuÁ4k‰ty&N¥CüŠ¥&ë¥a›#Ó$]Ø¿õ =*.hMŸI‘ק•©,‡Þ5³–Ѹ†¥<&}ý`§`sU®÷ŸT DUd»¦p@;#mñùò{k¥¹aû)ë‘5d ²ˆùt¯=Û!v=þ³z‰§æ¤b««Ý¹žpAÖ²[Ö*ŽÕ€RßSR¯Ö-Åú¨tÛ°Éë6†î𞸨Ä?tAó²È®2ÍòÕµ¸`êÃËÍÊŒeKÞé_ñêþÍÑ{ÂéÎH¦OÐAž9,ššœ,}aî©Ž¾åXºN+k£éÓµÒ¼Hë.äçJ>l-£q KyŒƒúÁÎÀæª\ï?©ˆªÈìæéy³y™´Ûú`+aµ±.Pɲf×[›'·½ålEŒòε8Çlî•Ž +ÛDË1ȲÙB?çñÚß0·ãMHÌ,®XN° kY.k?”Ž ÿ§¿)NÖþ ÿm>_ý¯Zo[\Ùª^[Í[›jBv­0¸ðéÈÉiÏH•š 2ÜKM^“¶›{–IÓ#­T°ÖMŸÆÈ|éê\é'¹’_ZËh\ÃRã ~°3°»*×ûOª¢*2»ÙÝúŸïMéËÞÄÕƺ@%Ëš]omœÿ')ÏÙŠ˜Š^Ò³ágí냋î—ãV]…¬!kÃIhûdÍóŸï?X˜àj,Ì“l—µ`ÊP~B¸/*k ¥äÛ>U:¢ñ±ƒÿôŠ¨×ÊA9£q”"¯*VUàë‰Fÿ]pXø]œtg¤âÞž‘ûÌfjò„43öd­wä¿n÷ÅÒ§¾³¥'fN«Û_ ©{s%¿L,£q KyŒ£úÁŽÇöª\ï?¹ÈU‘5{ÎÎàh½èây™<™vHï™Íó¥Q–)qµ±.Pɲf×[Ê“Kï[~–t(ßÙŠ˜ŠEá/™|*ÕÔ/Eò §z"kÈälúÁê¢ö}8ÒãcÓRsµ©«ˆæI¶ËZÏÑZz?q¿4&*k*¾¬vø‘¾•Ò+÷„6µTÖ7¬^:>üÎilEè«ÿæ;?«ÍÓÓžÑ&±Ô¤1’.‡X%ú;üV½›Ÿ>Í<Âœ¥›Ö披%–Ѹ†¥<ÆQý`ÇcU®÷ŸT ä…ªÈòÿ+sÃõwn Æ]âîUÈR;–´ÚX¨dY³ë-ÕÉÝÂÕ‘Cìß+¶•µ§¥›kB¾'?T`.…Ó«5d r6­­é‘K²vX}Ÿ‘•oØ'{‰&JÖËÚ—ÒÐß Õ»4*kŸ‡K¤•µÑѳ"ê5.²aŽTv´Èó¸ªÞÓ÷;:ÃAjR)ývZ¸U;]jéøPÕ~\úT¿8ò9ˆë2úþ½›šËh\ÃRã¤~°°¿*×ûOªòBUä)­“ï»÷>‰[Ww³eòtzTŠÞæ¨Å û’W›t²f×[ª“÷F>]sâ·–µí³¥)Á¿Ïiô ½ô~Íæ­%Ò!d YƒlamËûàë›ê=>D;š?Ù±ôÊ ²–²6ªµ@,Øø[TÖ"Iàßc_¹Û¯»"êeÖF|,íòù–JÏÆßN†“ÔdtBè™AÍ–Ž…ô- ¾øô©6˜lŸ5¢×ÄEÒ왹!k–2÷´(±<ÆIý`gÈšíU¹Þ‘Z /TEf–¬íøñ./ÉÚ‹Ruk{²~¿+iµI/k6½¥<¹ïÿÙ;÷à*ª3€+u?•˜rs¥„yC /…)L‰E¬ Œòˆ¦>(X¤PpPËC%€#¥ÃËX C™"EDj}·¾P* ÚvV;c;ØæîÝ›ìÞ½›û$¹»ùýþÚ{ïîf9ûíáûížïìÒŽÕfˆWÖÖLiXxX‚áªi%}DŽ#kÈx„£J ;“ñÝa’šI+²æYê“ÙÁ¥Ê®ÚIŸà›â«V›œ ¨×`ãsÈ¾Ú ¡‡Èôi#&‡ÖŠ¾E,©Éá®"ù{:¹H6Ý(c5mr+™›aIŸöˆœÖÇTfù¥Ï¯šƒ«…—ѤnÇÖò˜êåŸÛàQ¥|ÿ&‚µ@n¨ŠL+Y³½g-Íeí-‘Ʂµ2ýbïm¢ËšóÞظê§"Û’µkï¯í¬ó‚®´7î–=-² YCÖÀ PjG¤°<Õÿ‚¬í©ðùJ=H;²æYûZdÊ B‘œ†¬ï j-WÔ­ø­Èê€z…^'Tœ—ähN Áë¾à'wźE,©IùÔ`â8û¬'·©OJÑFÍœ>mYg¬º58ÚÒëD.£Iayaƒõƒ‡ãQ™ýëµ@n¨Š¬•µ§³RƒIÖÜÃÍ"ŸZ¾èã8/}Zðvh[•™­·‰AÖœ÷ÖPìöÙ“ˆ¬ ¸Bä~úâ@‘ÓÆ·§|2YCÖÀT«Êb[L~±ëe½—öýíàyIø-“Ôõ´3 k®µ¾‹-ïªxÈ5ã=«cåÞº5ÿ RP¯1aêuèÙ`}{¶çĸE,©ÉèÂKŠ¦ÎÝ‘W› Ý¡Ý.rfIŸ²Eî4Ö,ð×Ù —‰\Fsæµ(Bý §e-T ¤¹ *ò{Io§÷%…:‘)õ?Ø{›dÍqo Æî]µW²6¿¶ÇÝ“W÷¸,ô}'Y¬!kà ²T¹-$,ªï^ß|Ñ6wÿ5qFx©*£Ys…¬•[Ó«9ÅYlzNv©Èë‘Õ냯êw{>Žy‹ØS“Î{Ïÿ³d{½D¤nXGÉô¾«9”Ñ4‚Ùê=-kuµ@n¨ŠDÖ’à5‘Ðô¥–™sì½M ²æ¸·†c×/Ýâ—µG}¦Z·i¦)Z§Gœ#kÈx€õ¶ˆìcîšò«¬¿~—­&Çâëϧ™Ys…¬½bº1[ÜZä}‹¬ýÌT¶IŸÀÜI½†æèÅM±o[jÒ2p›;¢¬Õ•ˆ<¨jó8Ne4 Eáõƒž–µúZ 7TE¦Õ0Ȭ#»³Ü4 rŸH¥±X&Á;!IÈšãÞìW8xBhl³˜"Ä*kµÝ¨ÿ5³s†^UŸQ$×!kÈx5ÿ¼Ýgí›ÆæZ¬ÅùRlOLßÐv¡ã°¤e [dÍ ²V|§”Áë"=Î2ËÚ,ÑgµP)òßêµLº?üüµ>‰^ô-bHM®É‘Á¥Í=äó:!W)r£ñgfŠd{ÝÕËhE‹,õƒ^–5s-ª"‘µdø‘Èô…™ò@Ä5â¨Y‹º·ú?iU¡/õ] ²#NY{©ÖÕÊÍ_Ü!²´îÊ‘5d <š~n³4ïmþ}²R¹ÈpµxRÖÞùÜúÿx³¬õ}Sd›ž½>—#ù«"¨×D‘õrçH»ÜX¶Ð&WU‹’š\&’¥®\&¾}‘Ò§â—EÞÓÿ̈v’y–×eÍqdV£jQç†ç®s½¬YjÜP‰¬%CiŽ´ ô¿™kÔ›ÝPUUš°¬EÛ›iãu"ojƒ‹_y$/¶1´·‚N¦µÐ µà°Ê£"³û"kȸŸqÏÛ3ó{Øemƒy….³®?ÊG]I{²–æ²vÀ'ùýLŸ«EîÏ0ÉšöÌM" —ÿpô3Ÿ>G^¸z=>Xdñø'vT.1ÆŠEÝB Ò)JjRêߨ×ʦå‹LŒœ>•‰,Û½eø_|áÉ ²v¦´¨eÝó=OÊšµÈ U‘Ï‹ÿTúí¦Ÿ¬”óO‘>‡ôZ,²NJÿŒH»„e-ÚÞL—Ü*2fæÍ'ŠÜ¤kV =bhoµ~ÞµMú­…Zåk÷÷çv´)Z­!kȸžžËÕ¿lá82Ò$N¹IGyµ¿†d-½eí˜È•æϧº‹¼d–5ípèeSÝ‚u6õúekc߶ŒØ¶ˆ!5ѲŒÑÙþÝN“Ì1þLQ™ç]͹ŒæÌkQxý ge-¬È U‘7¼ûó4:š•Õ·Y>?#½¯ªâWŒ.dP–¼¬EÙ›yã ¡.rCp¦‘8dm™%SÓ_Ð÷´qǽÓ! YCÖÀý,Uj„-U$Yû!é(ï¯ÔHZµô–µ "_Z¾¸Tä ‹¬iÃ7¸{ë•iö ´‚™ƒVøoêxòP¬[Ä"kZÉ´Ž™™ß[í\Erήu+üK®+ÌÕš^³æ\?è-Y ¯jfU‘É“ÑMv»í˜—>ÛÚßíÞZ d-ÊÞ,Ÿ³kÐT§Ë†WhqÊZžØeMÓo[V4õŽ^5d YpLî·…ã[‘díú¤£ü¾­ê=ir@ÖÒ|êþ&á³ ä¶n‘5çúAOÉš­¨™UE&O?‘iÍï_Ý>5c’SÚ#"kȸšêìÍöplIÖÆ'沯§ÅYCÖìô]´€ÜÖ5²æX?è)Y³×5¯ªHd­)e-µ="²†¬«é²7B8þ8’¬IAœŸÛ…d Y³sDªÉm]#kŽõƒž’µµ@ͪ*2yŠý²YK‡YCÖÀ{©çÌH²¶Ï´ÂŸgž¸;Á4YCÖÂ9ì›’GnëYsªô’¬E¬jžU‘‰Ç÷š£¬ÝºeË–‚ôéK¶lŽ¬!kà¹Ì³gW+ú´BR‰æ“´9 kÈš÷‹ÉlÀ ²`BúôˆÏ넬!kà±Ì³Ã¯í²ö¶y…ÎJõDÖ€KY€TËZ AÖ5p3Ç/¯pˆÇr›«u¿0E²öÝ‘þ´< kȤH²iËЯT™C´: ?Î|¨©¹8éW ÿKC§C[¢e´Ö„Ó…}k&Ÿ¡”5Êù®2;¼àêÚÔ!/ ²v!‡•PÖ구 ‡¯¡üäÅR¡npÔXÊä ýëØu#HLYd6P—H½0êzÐZx³´õ’M„Û ýýí¥éU?öw»Ý™+Ve{—¾|¹EH—‰œ?„¬!·ÓCwÐ9äÃ¦È N"õ y±1P8# ×Wœ‘†Ù~µØx(R¨)kö!á5N¦ ûÖL>”5Êá*ótÉÚ{áÿ»j#‡•PÖ구­v+«/f u?æe£s€²˜õâ;äΆ¬uªµš2`§VáÅm½dá6_fkSáAwéa=p–(¤ËDËŸ‰BÖÛia;°•µ ä ‘gŸÿ"‘º»= #µâ»Àœ š©ÀZ­x%°2R¨!kö!Bƒé"ÂL>”5Êá"ó´ÙÚšY!Ÿž™‹9¬„²všdí›'Úy»Îh¾K}æÅ”üý™†÷“ËŸßóVA§÷¯¼Pnŵ—¼¾/½kÅÍ·äô©lÞÀ¸O5vYJN÷UãµÆ²åýõýÇÝYóž+¤c?ðŒ²w«>6˜âòde@Ö´œµltöŒk=)kéëc<žŒ•·,_4ÈúXÄþ ÈjÒêÊf†¬ý¼§Õ nUKƒ‡£g’¾^²Œp›Å¹È=Ütªä^s³Ý1sžÝ¦n“•m‰š@#¤ËDÉŸ‰BÖÛiá;(4ó6åOžãf\e̓sq(‘úûÐ[+¾<<û=ñ­xðD¤PCÖìC„ÓE„:˜|(k”5’l(¼ žÏÿvv×?äjËp` eíôÈÚçµ?»®è²øÅŸýφyj;Å6²¶¡öÚQ«Ûû>©m¸e.k—yÕ-çN Ÿ²¶Åó«>(/:Ú8"l4eí!5˵´Íö¶jãÿÉ·<¡²ÖuÈ )k²%6ÑEx_-MAV¾^²Œp™’y(ºB)ÜïEÖ.–߮Պ‚í]¼¨lÒe¢äÏÄ!kÈí´@a÷§c¤qó.89ˆDd0:‘úû˜þã!Ïdà]›K$À CuY³jL‘ûmò¡¬QÖH"p–ttZüžþ×I×8<¼gõ/ªLÚ¶ãJ(k§GÖÞ˜ܱ­¦_ r¯Weíf = <#:½ºl:Y„RkY[7i‡O•}++RV3esÙîÚWï|En!m±*V=s±äêça~Çà> Ó~/¦[äÉ6Êöük°¬íóùöTßP.÷nÊ{¿Ö" ¸ÏêX„þY ‰²T7eí yéº\ IÆ=ÆzÉ*ÂmžjÔÒ!` {íþÚ‡ÙIR ­ò(¤ËDÉŸ‰BÖÛibZ’qö/…÷ÏƳ ä :¡C]}–'ð×sY» ¸B¿bNca,n‹ªËš}ˆPã`ºˆØ·¨“e²F€^•>qõ»*Íz¸zþ—R¯p|0_:¼ìð¡2Ž*¡¬6Y[ H)ÚZ„”½Yƒ÷ŤAgfxþ¨ÝÖ£\G±’µõ/íÈrÑYyì Üú¨Rx: s‡Ä æ/f 3ÕÅÊřˇZõôTàöÜñ.ã’,d £¶Ê»•ÛfÇ”ß( TZ‹Ð?Ûiϵjs1_\X—ŽÄÛ~s½dá6þrôÔŠM^ëçâo>å=WÞ\+æ2…t™(ù31AÈr;-PØÁgÀxãIprP]p –ü¤×…¤ü¤>3ÎÇéuØrÅ!‡ ËÉÞ²Œùh7-b¨.kö!Bƒé"RߢO>”5ÊIºHÒ7Ï× S]µµ{%é#Ž¡¬Å¬¡xÍü\¬Ò®ª¯PïOɲ¶(ð¼¿vóE^ãû¬eMv uºXW>C‘€«žIÆÕâKT±ê¦n˜ 4 íÌ´wŠäN¤”XwuM¹ÚÉìã ²öQàù~¹VýŒY˜ku,áýs kòA¿ÔP½Ûð>«®B"-úzÉ"Âmd£8+Æg‚|Ä{<é2‘ógbƒ5ävZ °Ç}xÒȉ Iª Ž  ŽdíZ̨íK†}Ÿ”H+ñ@½œŽ»­Bš”'"‡ê²f"Ô8˜."õ-úäCY£¬‘`­´ÖÕk.þSl•bžÿ„²¿²ö P¨UîÖ«²ÖC¿¥ÿrúÙÖ²&+Ñ Á_U< ,ÖŠ»“q‡*VŒ{¡×•æLæõ‘÷ió ¬íc—e©ý,½/#LÖvžh(V%|~‹c ïŸYó 6§¨äJyÏÉÊú( ]- «áWÏߎ¿ÉjöØxÞ¿Âv$#DÖ2Õêóí~Ùæ€y ÇÞ?'²vSý×ê…°¼Fy<{ÛãfÈz)<Â}Óú®R<÷ÕÆî7Ÿß£pð¦ßc‘.ã(·'v¨YC1L Tw Q˜Š0%QÖjS€‡£çµybÇ^­€Á¥ÉŠê²f_Äâ¤Ý…}mN:Êe¤a€ÙïÛGº¡BYó§¬M‹œ#²¬iƒ[´Å4½T»yÖÖ4T¥¢ [î7Ê°)Rñ@¡,V½­eíq`¨’ô2(»­ ¹ œä ¨?7Gd­·µ¬™÷ÅÐ>G²&î¨ìY<ê®A%áÐl¶£ 4ÆÇ•ð€w1¬;¯xàÒAM€—Ý®½«rD6——Mé2r{¼CÏò,-P߀ÊkˆŒãbJJÍ:6ÕòH|8p{ôŽq3ãÛ¿wÛú%-ªËš}«w’u¶µ9ê|(k”5Âø’²Fx1ÕjY{0„µÅmÑS\å  GGEuY³/bzÇAwa[›£Î‡²FY#þæoÙÒÙ€< IgøyÊšeí*`æ$uñ9 a¬¬‰LIµ4S•µEÈW˾EÖf!÷HÄùîb9”Ad¶ß$’µgQŸª‹Ûå3þ‡§ŒFÀë‘A÷o†K&“5Ó¾Ûç@Ö>ÍA…æ8[FãíK¸Æo>ÑÍv÷d7»,Òe’äöxGlÖð"-а!vú¤–ÉA”µZ$k¢) >Y}y¾>@‘Æñ°«­tVT—µEŒï8é.ìksÐùPÖ(kÄßt’Ü¿Ú;ŽVKñó"”5Êšüì`…2¸ÇÊ|åÁ¸¨¬É6*¿}ت¬½d+†7U•µCÀ å±²Ÿµ@ƒÓá5VÕJ<üfúQ"Y˘“·;Gä1ÛǵªsZO¶~\uxùq'²fÚcûÄ¿ N,kò,õä¿g!Te/Ù—p‘1÷E&?p™¶¸Þ"]&qnwÄe ÅàZZ i§CQ/Kø¼eÍ‚~¨P|b–Ôÿýã]Úþ@aáDùïœ&ƻfY³­ÍüŽ©»0wBöµ9è|(k”5âoºIû=xX ývæõ©'æçE(k~”µËñJ“Î7nZ|,beMLïì\}ÿ—P N¼< Þzßöè¨ÈÚ‘™À²Nm¬ÕÛº]ر~jË«@è¼H$k¢0\y«“‡¾ ûù•áŠ_̈‹­•1÷‡îüÉ=òÂ:áHÖŒûbj_¯ðûIdmb[„Šæ>3ò!àu¼d[½g€NÚb›b¼ï^Å«ç-¸)zkd“EºLÂÜïˆÏŠÁ­´@ó~#oþµÿ¡]Šdí}üãBWé¿£k°bñÑ@‡Cô_ìPîþ·È·=¢sO^kUÔ,k¶µ™ß1u}mÉ;Êeø›}+<i©$Mt¿Ö~{òó"”5?ÊšØ[ óB ÛÄËš1Y}gÃÇÀSò •êÿ9:«Œ\5C_·Zj&´Ô^¸^M±—5±gVtñ%¢¤¡éÊ×"ñg+í™À¤²fÚcûÈš¨W¬®’y·°Ž—lK¸Æ8à°~ÆÄ_x±@dXˆÛæé2‰r{¼Ã5ä~Z a2o#ôesrP*¸eqÍN¨‹—µg†–×úX<ãyí]£Î¢ Ѭ¸Ã×̪¨…¬ÙÕf±²±»°è„ìkKÞùPÖ(k$ cËÖ’TèM”JeͲ&ÚœÿªEƒóOj‹‘5qº[ϲ²Ù[2¾Ôãöªï¦æN-Ú#4Y¯<·³{ÛvYk×èkllÜqAîŒ ¿ÔrÅÈš¸ì/ó:ä¶h>@Ö¬ŒÑ»K Í:ØYZ55¿l×àýzÄ”\ÖŒûblŸYuGfåçg}þˆ°“5»î1;"Mcæm¾x¦KÔ[ò*€AÂ"]&yþŒû³†\O 4¥% yÔšÐ$sÉTæ¬oÑpFÛë×n–iBÔfY3µ5›Ú,W6t–}mÉ:Êe-­¹íì›g,ZU´eoz…–žÉmPÖÄ%ý›œóxßÓ¬M¯î Âñ^,'+[€Ýy.V¼˜"?nš1˜/rSºŒ}ÂŽg˜³†\N 4o@ˆƒ9˜/(käBhäβ®vB”5ÊZ³÷Pwý‡–MíÓ*´<7vm}Ê¡¬QÖÄ©f'‡¨K¥3±¤v|!çM­D;Ã.Õà䛃šŮ޿«ûÐû¹óÿ ´S³×Lù9¶ ;žaÎr9-Ð"-ILÞ¦¬‘Èš»e²–¾¬Ÿ{_üD/ÿµ°ª¼ŽG'ìG=ª¸ôÔ[<³e-8ŒnTÂõ6/F¼8ïau0¤òËõë§É^w+~ZO*Üõ´ú‚)ÅÆ6aÇ3,²†ÜM ´Ø€üdäŸ(k$²æn'DY£¬¥-oeÅ?Å<ÏwBö•¾ Ú•ð©Û^ž[„²6î²ú¾×¸2ßÿ½´V|O5+ JS«g:Ü’ÛõüÁ5£Ú6ùkãèœã¦ü›„¯°Ìr3-ÐrÏ(k5çÊV+ÓQÖ+//¿È1Üì„î,/ÿ–²FYKW*`àJ¿µðIº?hWÂ×’ô&Ï-BY C–é]à±£µä ùÙ %„\4%!ŒNGY“¹É?ÐÍJƒ(k”µ´ä¬ÑÕsÞg7Ö>‘¾9´+¡ÎBiäž]„²¸¹ãÌÜvYEÇÛ𫜡IYK9”5ÊZÓÒ$kx×_-ìU-u Þ¥°OÊ^ϳ‹PÖ!„²FeÔ”ófWCæSþjãÀ*Ï~é.¬Êó¨æ¼]yvÊ!„œÅèÃ@(k$e|n!kX—.ae}Ijía¨JeB‚M¥<„²FRÇ`+Yû<]¢Jï&Ŧ­ÊeB¡¬‘‹â.+Yûe²F(k”5B!„²FRÊ+YÛæŸö½uÆË‘ÙêJÒ«Ïë¼g¡¬B!„²FjÄëV²6Ü7Í[3\:î¥M={¯—­—~ZÅSŒPÖ!„BY#5a•¬õñMóæJÒ˜à^½$éQžb„²F!Á嵓xe¤Œõ¹fWë^è—Öí+u+ îåÐæ>i-„$”5B îWyúò(ÊI/›em´o÷Ž$­òõ0D’þÌSŒPÖ!äÿì{pTÕÇu¸Àýɤ¦;4aa€°‰‚aŒ@"XI’ B*”€È%!txM"ÈÃð ­´H%ʈ` #¢cꌀ´ZJg@KK©S§wïÞ}ݳ—$¸{÷Á÷óGöÞsn}_s IDAT~{îãœ9Ÿ½ûÛ®ð¡Ø„²F‚ìCãõ®¶¨(tZW–ÞbAN*/1BY#„Ê!”5rGì±z»ZßuwÑŒ²ÓSŸ¯BY#„p¥ÓHüGPÖH0ɵxºZVÍ]4¡ìx¢z2mPÖ(k„bÀê{ye•ªEnW[qßÝ4¡ ðC±)k„²F!„ÊùNý}©jjÖÕ§C§UÛ¶üz5CÖ:ŸßÇ+ŒPÖŽ„BoRÖ"žÆ=¹ £Î‡R‹výOš ²Vä¯/BY 2!„"SÂ(kÄl>—/k[® e²F G’7òPÖ(k„L“âK"£Süëˆ4‹ç“PÖ(k„p¤Öú-e²FˆžÓË"¥W<¶e+Ï'¡¬QÖ!aÈf`e²FHP&“fÁ³I(k”5BH82˜²FY£¬á®F[#”5Ê!$\ï¬çQ ¬QÖ Š«õj¬ìD[#ìa”5B1àõ˜u<”5Ê!^œ9cÎõÚÁ„Ç8ØU̳J(k”5BHøQÈC@Y£¬âÅ–#×Íy½ÅVùMvü)žWBY£¬B¡¬QÖHx“ºFŠÿqdÉÚowJCSyf e²F!„²FY#aÍrIêjÎõ-I}Ìy§i’”Ç3K(k”5B!”5Ê k¤ÒÉ&]°§›z™óF¾"Ýä™%”5Ê!„Êe„5£^*ˆ¼®Ñeù.žYBY£¬BÂŒý=¶ò PÖ(k„˜< <³„²f¦¬ÅÃIlÌÊ£Ù þœÌ:«¾Ø0®• ámŒuç1êð=×òæºái–•/w×&\Y=·ÿü qLûl„eÄÁ†tÎíi É ·6öò’º‹IÛ8)Çx„pÐS;‹[3¼j²áIV»Û&Œ^^ݯF}š²FY#”5Êa/‹8YS±Uùm"Töžð—¬¹bÝqŒmܲ6ª·¶·OwÑJ¾µi%'s£èîÚú€LΠiƒyáÕbã^^_¡ÕXŒ¢¬GÓÕ´IÖŒ£ £—wc)k”5BW£­v³ˆ“µ‹¥*Gº $Öûk*”ÿÉš+ÖÆÈQ&UNY+Ký4*c¯ò/ÉjIפÜÕ=ê<*IÕ5'æq¼·FHDÊša//š ”ÿs{ÝëŠö ô=B¸emPUUUæmÇ ]MMœ‹À§íl›0zé[TU5²FY#!Á™"3/ØÉ5óÝrødlBY3UÖŽ¹VŠ×#QÖ†(³"—¬Å‹ ì^Ÿ&Ù ¦"ëKûÂåDļ¨¼þ$½g+¯™_Uœ†Ò†ûTi: uŒ{ù{À7Ñö…Ç­È×á!k=[‹f\s¹?VtigÛ„ÑKh¬œ@Y£¬‘P 2þÄ£æ]¯ÿ)Ý™nÞ»õZ#­ã&”µ Èš|ÆŠØ'kÉXà–µ}À CŽéåL裼î¶;ê$`Šòò!P©®/ˆÁCen™¹a±-±âÃ'üXÈÏ k.l²ô[¶f­é;í™i(®úw·…,!1µ‘܆£ó꽆½|åÑŽÅãÀ_#„(kÆc†aÍÚ $NlgÛ„ÑKl,e²FB‚“¤Ò_˜w½šöPl‡¬M’žýÏ1¡¬EÖä÷“„’µÊçK¶KÖrj­¦Ø£Ìzº¡V+hº¿X–;Ä`…VÐ Œ ©åÙ%ZfÊ…ÿòs„‚‚aZAÅD“wÚ3ÓP\õïn YBbj#‰ Œ{yðm±8ìc„eÍ8šqÍUàD{Û&Œ^Bc)k”5Œ•¤ÿvŽTYë|N’žá9&”µàÈÚ'ÀXívÔƒ«’,i‹O8¿ôóâ†e/X6}Òrȵí¥KûMoÑ6°¡T.þÁs1Swפ;&*}²6ª{EbÒœçM‹Cv¯Œ¹è³)…F¢åÜ#–­ÇÐP&á½ïqÉÚ#À¿µšà#uŽ3Úë–ǵÅ)À!1µ,²µ¹Q¯*Ê6,Ù¯õù9BAúQ éJÔ†r`S™©;í™i(®úw·…,!1µ‘DƽüÒœ7ó´Å>FQÖŒ£ÖœŠÅÒäö¶M½„ÆRÖ(k$48 µÛQüsþ.Ëçæ˜ZÆ×í1ó¢î{Xß!åE(xc?ôɨ³CóðÊ4Vý¼ÛB–D"Š6õò®ÀÛ>FQÖŒ£Õ¤ï~Þî¶ £—ÐXÊe„3ò:˜y½>9ð@G3ß/:ï,Ï1¡¬EÖŽ‹Ô)lÓTàþê= —Ö®ö)ìXonÈP$*æ5ßâM`ý«Û÷¿‹”iY«MÁ°g«íšU-Ëë% £¾¾Ð^Ó7µÙÕ”š+öM¿$6×E{Ø\õ%Zºà±\´ÃÍû·Øܲök`†û³én²| È/^l×¾”×Ô/¼)³ó/µ- Úð838‹rÇî7q~ ,¤¼ˆ907Ç×Kl°™·ËÞ™†úUï¶%$¦6’ˆ¢M½|•jîÂ!Êšq4£š`wûÛ&Œ^Bc)k”5r÷Ì ƒ Ï1¡¬™.k%©cÂyÛ¦øH½ ö+l ²ü¹óË8;lûëa »úž¯³4S•5ôUï±Õ#ì÷€DK.䬵C‡[Öªµ4|…íÀHû-”ñ/Å8ïÒezOˆÒòP˜YÖïîÖ¢-ZüÚ"!åEÌÙ «V ¨»iÏÓeêVý¾ÛB–dÙãΆ™÷8ZœPV¹hK/X’ïc„eÍ8šQÍ+·I6Ž&Œ^Bc)k”5BY£¬vµH“5/Ô[_ò: ¶Ðõ!o©êh[ÕÕÌnÓíÖ°#‹µ;€Ÿ9”,×QPédMûMïZµæ”¢bÚ»ÿÞ±©N´Äà‚¬µÃXÖ†¿,Q— §)²|Y›ðÞåüCo%7”ò—]ÎÿëçBkŽ©ìÈ?†R^Ę9€ö ¡ëmÖ~ê2 u«~ßm!KHH2‹t‹ãËláƒÒâo”¿^Ù¯!OzyÓ\àÙÇ!Êšq4ƒš¯áúÑ’ö´M½„ÆRÖ(k„®F[#ìk‘+kÖ9Úg½ºjl´`½*Mo{&Ã/jÜ©J¦%t\Îêd-Á%~§dyð¾?É®M‹Eу ²Öj cY“÷ìinù‡í¿(Ë«¡åzÈEiÀeYþãü¿ñXRSÌèw€¨À„v¦¼è ²“êúXà!ÓvT—i¨[õûn YB·K ¬ú¸?‡ð'®N€k¸~Ån½— a„eÍ8šAMpéNÚ¦½„ÆRÖ(k$Ø•z7ô‘Ôm<Ó„²f’¬Õ677ßZfU&®_z|±®oû(3•¯ä¢`þ¼¼™ÎÂ@ÆX45“ɆZÝuUÉ® §&¢uÀkjúÒÇîϵïùeòÖš7þÏÞ™GmÝqœµÖ·cX–Ãئ1.`0g .Ä®p4Á4…@]‚ÀµÍm’†£áGâÈÁŽB)4@SÈEC`¦@ ™B¦CË4“&mèLšLµ’VÞÕ“Ö`v¥=¾ŸVzZÿöÉÚ÷æ}Vú½¡»[KÍëïêéUÀË•e£¯¦`ÂyÇÎÕ”ihÚ ûi YB¡’ƒ(kq kõ¶òAOK³µîÐÔCˆ²fÍúÈhZ$7¤næÞK¨,e²FÜg²Ô#ÚÈi ¯5¡¬9™³6¦hë_Õ¶5zï¸<¯æ®)t^ÜG›¼½<øáÉlŸ’ùs~ €¾Á²6_?rÄ?"žyyÆŸ«Õ #Ô±I´ÄàV²:FY“gUiç6zÁ÷«õà†~ä_ßšp§ý3jDOΚJcuY°îšGÞHy *[èWbßfçŸùln¿ÎÓ²„B$QÖ¬d-;M¿#Ô×ÊûõÞËU7…B”5ûhÖGºë¹¿·_7Sï%T–²FY#®3h¢tÖéïëЛÏþÔéÏ,–áÕ&”5''™Z\ÐÕ~ˆ'Œw¼ lR^Nl×RìsÚ5VöûÔêÀ¥¯EY,kyGÓ´§.Ë_±-1¸(kõÅ9줠UQÕ‚ƒÙÊP«\½µbL†ßkÔÿÉÝuwY¦GÍðò¼¶2uˆ¯Ky Æ,Ó–ž13îdÍ–B–}rPäem~»ðc4§ð‡n£Í.ÿÙÈ‹±$kõ´ò…Jww4Û¸ùÜCˆ²fÍúÈ\àTëÜ{ •¥¬QÖˆëô¤N_›HÒL§?sŠ$mäÕ&”5'eM^ä1f) ¸³ÖøƒºÑ¤öªQ´g#Ë‚ݺ¬å*œ3÷ÓÇåÉm,EK .æ¬Õ£ža¿F–2Ä‘å“ý=î{dóà¢R‡— IúŠó+( ù“|ƒ Hy1”(ý!}š+CÖªÊ8“5ã,Å,!»ä d-ö8)Ç¡[ùÏ=íLè!DY³fy$݃Ì×-¨÷*KY£¬×yTÚ{Óß×,Ir>On‡4‘W›PÖ•5ùePZªn=³öJà|íƒ ÒT7Zê_<»²ö °ë¸ñˆ¥…h‰ÁY«7Æ-ÉZSu®Écu‹'aˆ:Õä½`Ð'ºÆ˜›ò×Â50åÅ\p¸¡NÊÞÒ‹žSâJÖêÎR̲I¢¬Yñ^ìÉZÈV®ôaÞcîÜCˆ²fÍòH¯Ð?¹ÜR¤õ^Be)k”5â:[j¿Ÿ”²öŹójÊš³²6éÀ5ë½0\/\åõ G®ô×ï¹É‡Ô_™ÿaÜ„“˶Ú{[²öAÝ„j?Ñ´Ì$ZbpAÖêa?ìß9b€ÿ™¦ê¬ÿ;ë&û[§ÞgÉ튧õ‚£uÉ#ÑBwãõð”òb*x­nñÞÝê2ñ#kgi‘%d™䈬ÅdÎZ¬ª•_:t8B!Êš}4Ë#o+T7¡÷*KY£¬‘„<šùû†Ô\7>—W›PÖœ•5ù{ÊXn£ocðW}®² ð-¢´W&µP–+Â,­`6°ÝJÖšµ–²V ¬×öûB›åß$Zbp#–ŸzcØûïOÃbmë—98ã{-7FN͵…j•—/Õý™)Æä(QÃT`[˜C§¼˜ ”oÈd½8ÏkÌ"²f:K!KÈ"9ˆ²7²¢•ïWô'hÁj¡‡d-D4«#àÉjPÝÄÞK¨,e²FQÖ’JN¢¬¶·5ù^`ù*߀ñ$°GÆîHC×çd¹¸ î§ÏCFºö¨âbõéÈY)Úcy‚¬]º[ÊÚ>àš&eO*cÇ-¢%7bù±1iÓ¦Õ3ìï´Té\ Ï;ºšú–j“?æúø+MC‹FÊë/ÔåŽD^t o@SÊ‹©à]ÿzè ™H‰Y :ËPYBY¸—IYs¡•?¼i“úx^‡€5Ù²‡eÍ6šUoÒ8 ÕAÄNË>š¹÷+KY£¬‘Dt5×àõ&”5‡eíx¾>Þ< XòÌÍ.ßdy« e>{pÃrýI¸™Ê¡Ãø±ÅÍsô%“Y[d´o?E”µ §Íä¾_ÎðÏYÈš܈åÇ6F?å/ëö—záqlÜŒ®@…ñhgÆÇ;¶ŠžW >zV ì¾ Øš˽hƒEY]ÏꉰÆ6§¼˜ Þ ÈæšïdòV„e-ø,Ce ÉA±,kD—µ·Zˆ­z›[ùf¥ð½ö:¶5(°ì!Y³fÕ›œ–>Ž+vZ¶Ñ̽—Ee)k”5â&o&ZKÙÙPÖœ”5ùE}©Ã ÿÚZ´tˆÊÖú¾g6à<Ò_ðV²¥¬•=-˜0u¿1ø‚ƒZvšð£9¸ËÀ.Æ-ȚܲHûSïÿøøFŽVÒAn–üF~_^tŒ+wgõÍ»¶á -¤¼˜ ö/ê›eh/²f:K!KÈ"9È!v¡WŒÝ£z—co5±•û…heÐÜ)Ó-{QÖì¢Yõ&û6¡eÍ>š©÷²¨,e²F\äëÒ–Äj(•R/^uBYsTÖ²—Öú¶Öï+ìÜz@3=UMΛ}ßï¨ÌOÁJòØçet¬þx,[Êš<ºý„Œ“-dM¾²´·7ÛõÉÉ“òÕ¹Ä|3Sp#V61nEÖäÑ32SR2ßøüÔž•EUåÝëòHVloíít¦Gr”Œ+/-Öjb¹8ÆÈBÊ‹¹`8ðýß0HYNÛœ%$&9EÙùX{ P­q.0#Ö*ÜÊu!ʆè?=„YÖl¢Yö&ã€Ý¡e-D´ Þ˪²”5Êq‹©Ò‹‰ÕPÎIÒ;¼î„²QY‹?.m‹Ç³Ú œö­X^r¨Î_\!åE((9¼¯~â° ¤4ŠY3}„,!!µ‘„$eíÎ ”µhé´(k”5â}$©‰;_جûÝù\yƒtBÊeívøÖÏÇãižŒœ=öÚ`Ô˜0ÆR^ĘÒ"`å‘šâ=ÂT1+k™>æ,!1µ‘„¤…6“,eÍíN‹²FY#®±>UºéÎ÷õ?©Ò$w>y…$mæ•'”5ÊÚmp{ãò¼Æø“·…ÓÕÄ”‹˜~óô½¢qŸtÄdÍâ,…Ì"!µ‘„ä׉xÿ1<²ÞN‹²FY#î1yá4—n¬¹±(¶Ê]µ-yÝ e²vœòLÏŽÏ3küú}UÞ]Š×†3¨òb™°Óøõ­k¼Ë‡¤;}Α’5ë´$sf‘˜ÚHˆYÖ&ÔÔÔÜá4Dáì´F×ÔSÖ(k$®ÇQ&kIœ¾ŸPÖ(k·Ç¹Ž !Éš;½ÙÆNëUµB”5ÊI0WKš$IéI´5ÂVGY#„fY #”5ÊILYûæœÚ—(k„­Ž²F!$¦‰'*Û]¾¡¬QÖ!Qͺ½eü'PÖœäÕ =ëôä*‹£MY©G§QÖˆlL=ž¨®öÈáÙœ¾ŸPÖ(k„(&¹8m&eÍIÎ*–vòLoå¥*KAGË2óQ·Bðx`eĵ«%eIR·$ÚaÓ£¬B¡¬¹Î4'Œ½ïí…w 56¯¿¢¬Êe°éQÖ!„PÖ"ÏzEÖš{×€Vöïý"èOY#qíjIOULüSm°íQÖ!„PÖ\çKEÖ¾jìí–Û¿÷ªòÞF”5AÖ?8¾Äí6q×n×à+Ÿsú~BY£¬B¢•µüPÖ£È ÚÃ×ìÞ:(ø?{çEuÇq C–oÙ’!$„°› Aä ˆ€’ˆ¼ ‚,†* ¨„—ÄC ‰X9Ty”ƒÍ‘rN(å© TÒÊI‹ R ÐÎîÎ>fgf³K6›Ùäûù'wfîÞ¹3¹s÷~væw稲Fª‘'a¡Îó– d±-Êe¢Oþ™Á“@Y ›ÑÎ¥;¢¬…hä̉ s´KJ»©ÎNAx?„/¸ÐOØ2›²–þ…p¥[ 4”5Bñê¾°‹g²(žâKDYÛ¯žqø‹@ØÃJ: š Âï8þ&Þ0˜7Ö¬´„±< ¤6BY#„?]x(kâ=Å5õ戛:y*éX/í;k+ø›5ñ†ÓO•˜8œÉ»ù¶Â;k”5BˆNï¬QÖ(kŒY —ǬŪe[‘\™«1fÔ‚© -l«‡„0f²FÑ%_&¾Ê“@Y –Ù 9–6Ùj¹¦&ˆN7Õ@Y#µßÕÞ„‘Úáõ¼²J!ÕJÚžƒ` –ÈZ’(k]KQÊ<±âjtXm ¬‘: k:x)6ePÖ!„"òœèaeŽ¥^ÀeE–uÇÅ<­ï}ŽÊ "WÓ¬ÑÖeB©ó´Î8^º¹g˜].ºÚÜë÷¾Êñ†=׺Õá—Ç ×«8ÄVA(k„BHfPnO·µlÛöôõâÊõUESÖˆ7t„]\ú˜`ÄpZαUÊ!„R§Y $N’Ò×€ÖîÁxEWkž^•=PÖˆL‰špÚ~Wþ"ÝÙ.eBôF£+ÃxHÀ0ͦY“{ŒÀ9·ÍÛEWQµ14exÁ@AhËËÑ•V 7Ù.eBtF¨×xHà°LÞ?m‰hm¹…ÀÒ4þCSRRÞÿ¦¿ ¾ßÊÉUÊ©–O¿Á‹QÎø#ÛÙ.eBtF0‘gÞ¢­…å·_d™Ÿÿ%i]¤¸`¹Ïñ8ÜhJY#Á;P 6Ø*eB(k¤®³Ê(™ØŽ)Ëí²v”²Fêš«…”ÒÖ/BÊ!„h`ꀞP&]|:;r küoö†‰Ká§D冔A½E§âI¢¦®ÀÔOˆ(‡‹¦é¢æÀ`ËsÖ,'ÏäÂ,äì÷qÕljM&rkb -µRö[X›)5[^“I£\š¬•O} (omhŠI&5V,”/eÄ¢9g kŽÑ4}/Ü|ÕüÍ{Eüñ°NYr»1¨ÝªÂ Áƒ5¦‡£ôܤë°ö„\Jßmo.o±­&§£%ëXObb°æÖl¦îOí4+[2 E¡%gkqÀ7Cºðõ?ŽÛ÷ýøÑ&ëÉü°Í9Ø®7p‚µyä›jÀ@ŽÛüЖ¨¥hSRSÑÛ9ÔdÕïŠÀ·I}b®Ä5¬Nïøýú ØÚýHa? tDJx«õÀ”N¥ÂvK,1zŒ?M`Îèp7Æs ±CŹúc 1­a—“g²2 9û}h¶fM&ribd°V>õg z÷ª!]añ$ HœjçBCŒ‹·‡5Çhš¾w?PŠGÁÈh´¼\¦Üx%å¬1XczdG‡†ä-–cv>ºÄzƒµà`­Ò—ygçŠ,ˆcÔ(åÅ?¬ Ó!þÈ>ŽAö'¤vs“óÖvîþ®< !^–§ª}aôû!»Ä}2É%“”‘œ=¬9EÓt¤êŒDÇÍÞuâ&9ô\g°Æ`‰ÁZy€µ ³ÓF±žÄÄ`-X›¹#VÜ•bgl•a­½¬m²Å¹C†ýôC]›|5H׉í`­«Ö&ê÷íϵ©(T²j Öâ”;m\÷°Æ )윒?®w*?"›AŠJý}CªÀ[ý 9ÑgÕ”'zóÿ™#ºÛ™ŠŸ&xXÓz`âS€Z•›ln2t9°&Õ¤†uNžÉÎ,ää÷ Öä5Y5ÊÑÄjznuÖÛwOÄÕò4„ÈoÜK;:PÛøõlÝwH—/FH^Y[Xsˆ¦íH|Õ£¤ðýhå²R ¹Iú9ß!¬1Xcb¬Vh­Øô,Ôu%&kAÀZæïøáhéúeo½Ïv„µù \ø. 8¨û62y÷!Í]¸¹À:Xû¬ñ™|¼FX£“5ÂÚ“X"ÿxm°&k,?l“–nø £5ªÀcñM#Þ­ -UꪟÆXÓz`Vä ¡4©gÏŽÀ,“–9y&³³ß' ÿ®²&«F9š¬eyåi1 gèCOsÞ¯Þ2G¿Ýj˜Áš}4]GúTsz ç&ë<Ç`Áƒµrqkm‰ÙYh#ëJL Ö‚€µ@¯&RÉGX»Ì––n /=ŒÕ? Å#×qÍÇÛ€`‚õc)(r€µ3Àd{X£“5ÂÚn@¶_}]X{S¹²^ÅøÐc•Ÿö)Hn ?6$w·%J¹ê§ñÖD)˜/¾%%¿NšÔ°ÊÉ3Ù™…œý>4[]“U£œLŒ!§‡ödyƒµb`;Yì&_nRÄ7¢å ®`Í6kŠ!m›yG²Ž¶vμNêÿƒ5kL\³›%…d‡­ÚÊã+û_H¾öJÿÔ Ãômöª°Õz™œŽò?`½‰‰ÁZ°6G½¹ð±K6°vU5^ôæÁI¿‚À¤Íêlj7%(FŒi°Æ'ø6)«þÒZX£“5ÂÚ)u*ŽgÝÂÚÈäMòûž“_IKéêSk“8i‹DÂ~¥UZ?g°¦÷ÀÚœ€èpº†ENžÉÎ,äÂï@³5k²j”“‰1aíáL0Ò`ª0LùQæååï;T‹˜¤j@šzë#+ ¿‰‰)4ƒ5»h†ŽT¢¼~ ‹BçÀr;®¾ p ü{k Ö˜ Šó|-B±¿^^ã%­•§o|®Ú… Ýó•|Èo¶«&§£çYobb° ¬ÍÈÜ‚+tŽ†wt!öùäfÌNaÿ{Q÷mx àoÊë[Ó!Ù¿"a¬XðOH°¦D5ÂZ`šTU˜¤º ¬ÑÉaqRzeÀh¿[Xû6 &✂šþ±ºúTÇ*º©ÿ›ŽdIã§ñÖtQ/èæ9y&[³ ¿ûfk7£U£œLŒ Öõ¼^®†âOÒÚ•”I$]âYmµÙO¬=k6ÑŒ©-Ð!^9¢å–Ûd @ºöÕ`ЛÁƒ5¦­¡>ßêP쯞¾û/}4gIAÅãóeñ›mD u6ò3˃µ `­µ\Zg¿G½¡#¤/,=ŽMÎ “ŠÌôÂTú«Nmy>ÊŽ§-Yâ'o<;Ĉñ'XS¢aMxr8eÉêé9=#¬ÑÉa{˜/ÐÚmä¥Ø’’^sÎDŠcÐéðKE'b1WW*ðZyÀgòòByš­ŸÆCXÓy`DýZ}|TSÃ4'Ïdorá÷qÝlÝf´j”ƒ‰‘ÁZùÕ˜XTF%ãˆClJRÒqÛÔÒt·°fêHÂñò¿â5‚QH¨jz4²Ž¶ xY€âð—€¹© Ö¬1=`­+ñµ‰Åþê%¬ Y¤;m¤­ &X _L¿á|ÔÙhëML Ö‚‚µa@âᣟŽö¨}:BDm9xYó£¤4 îÚ©û9@Nÿ§ù¼£»Ä~^ˆQ7{w¥°A,[É/õzeç7‰h-Áš•‚µJ|Nµ¾¾[ó©Dà gkt²¬UNW¾X˜ŽÒh¿ Óa8?æø“gý)o pŠÎèªS^kІ,Ƨà+¹MªŸ&XX£<0Ÿdå.–«Å!-ž®a–“gr0 ¹ðû¸…5ýf´j”ƒ‰1ôt+é.`msÙc Zžº˜µ”3ˆc¯Fü1Hø»“›ÔSÔ̬YF39²¤ÓÇ«yÛO Ðähd­Âr ëþ»ÿΚvâ¬1XczÐ%"$ûk„Ï7Ù£P©çŒo¯~=˜ñÆöoÚ€®† Óú³ÎÄÄ`-(XãbäÝi\oÉ3¦RØB¡ü-mCóHíE?ãR«S·îÔPöÎ8ùY³Bésl›¶¬)Q)XãzÊ»¸~¼¬ÑÉR°ÆE4”jÔÞïÖ¸Hr×>z¼\r 8¬«Nx­‘©š"½’Òähdm9”aïŽÁƒ5¦Gr`Xu¿·ì„G¡öS'Ž ‚è Q Ÿ]dëKL Ö‚„5îfQ\tÎÞ#Gã/äˆs¨„ÄUز<ªà¨.JÅ÷æ´¬[¿^áážðá¥Æ©/N´õ­™ÐooŸcê+ØŠïO¨;!ùG`M‰JÃ÷ÿì{põÀø™ä{H„€„ áMÃûQÈ„GU„€<¢€ÅR$±¼*Ø%P¥¼‹…ÚÒPi«Õ28 k±ƒ–):´Øì%¹\în÷¹ì%»wŸÏ?¹ÛÇï~ûÛïn¾ŸÛûîÞo7tåmÇXidMÓY­¬E6¦phna^”-pY‹®Ÿß´]»¦wª¾R:î~gK †³Üy“ÇD.Dû¨§ ÎZ450?Ùï¸0z¿¼ŽK[%£é“aø- ¤Þ' YÓ|’—òSÄhn|ÉØ™ÚhiZæµ9ŽˆrÑh JÖ¼´¦{fùÐvtHÚüÏ;?íMÖ|´ö¡­ÃŒ´fï7y=YCÖY3žÝ´ÿ9^©¹¬=´»ƒKƒã/J€¬Õ)ƒ­ÐÉß½m‰±´»ÓªòoЊ¼›ì«ž&Hkñ¬‰Ú/’P6!y³È¾Á:KhúdÜ¿¿ÅBÚzŸà6[ûI^6Êw#²æBƒÒÁÑÇ£îwò7ÅÙYCÖW«sŒ.§cð¶üÁÑÜÚp×~@ÖÀ/É ÖX££vCŠ»}il+‘e—ø¼×Ó)kš˜ì¡"³º<òÎv‘nãt—ðì“aP,¤©÷ n³u>I£|1"k.GÔ*çÏe‘µ:=!kÈàj5à¾ÎŽ¸÷ ±µ‡út>Ýè/gJ $@Ö nÈ‹XåÝŽçÊf%eo½×Ó)kÚ˜)Íš¶ô²„GŸ #b!ÏzŸà6[ç“ô7Êw#Taµ‡b›IÖŒ=!kÈ„ˆã½Ò# ò—é}ÏW³\õÊŸn=€¬A5™Û¸¹e~³5÷Ô²3.)ž›zš`eM[óü˜f¦­j>|”×%Üúd yÔûµÙúŸ¤·Q¾‹YÛZPP°Ârbÿùín®–ûGCZ}©ë4nßÈ@1¸±<Ã(²aIo¥DPðvÂÅÕÖÏ5¦Ñ¥ ˆ$@Öê†Q"ùŒ kŽ”ôS§®DTøÏîïPµf¿}É &Ïç«ÕÙÄ kȲ²X©R³l§½É†¶÷ÄÁÉ-ò‹Gø¸‚‹J-!–Y¨ÖIƒÈ„#³ó7×3y¼Æ*•jò.îu§±È@ÝPo#cÈ„'¯G™=^{(vèh;ŠHd 5°Z6²ÍíûYd "MÖê+5×Ý$–YóF@†¬AºZtòÉÅ–8º‰&@Ö¼ƒ„!kP-:M³ñ‡qN9<ïgÄ kÈÔ>¥‡Rd Yƒp#Çü·Y´±J5!¦YCÖ Ö‰ ·d Yƒ0co¾Z]ÃÁ(FßUwvU€¬!kPÛôyQ@Ö53Æ*u€£Á8J”šFT²†¬²È²5¦4áH[KlÔhk­uQß%ªYCÖ ¶™ØNòd Yƒpã¼5n/òð™ÕÓ-ÑѶ+ˆ)@Ö5¨}Æž;Æ kÈÖ y(vEâ €¬!k€¬!k€¬…›¬8þŸ¿þþ‘ È kÈ"k&²µ¼=Ib'±pC Ñ È kÈD*Ù¶ËÄëÃ7oM·Lg³óηGúŠ“õ9D( k€¬!k¡Ø”:o™€=Ø:]Ý©ºµCæÌ’Ž¢€¬Júd Y³rà[ŸÌZ»oÍÍ/_eÊNµ!™#!ŒQ »‚؇÷6‰yb k²=ñƒ€¬!k`J.ü²#ÁO|£O +½£Ô0„PðD‚ âªXÉÛâÁ¦Ù„6 kñÅFÖ50)¥K]2ü]\k¸:ÈqrT—êïÅEC_b5€€è¬!kȘ“%Ý2üÄwl§+m9BCò㪿×je-iÑ ‘ k½Üÿ)·™™Ò4è”à‘Ÿ–¿˜sÑcNOûçd¦»LègŸÐJ·‘.‚DÓ/Ÿâ•biTuý x@füªo¿RñnÛà ,Ÿ–µ¹0#iÑ9d…aWÖN[­ÏW‡Äyë`wÍŒ‰[®mo¿|ÃF‹¶.?ò§ølm¯Ë9bXù”™Å×Sâ3Æ«l?ýs=ó8ñ\Ù½ùÃ:çqd Y‹pfñLñ/™&4NN.Ž²T‡«½Š o@Öj.kózJŽŽ¬Éß]&쥬ét š²¶mBUÊ4¢Må@5ð"k_v¼»6Ž"ˆ£q?²V‡c[8ÕYsÆõwÌYô´ŸE«dÍ{k =em×"Ç»ø#1žyœhVnˆ¬!kà›§4)þʳ䀆Q_©¹Ñamk›õdíá "k6¯¢³Ñ²fo_WÖþUõ~„„RÖt:P=Y˶çc•)Ó¼‘nù¶^ûì«”]ÜR5rCD>±O™”!²}¤í]Ùú§“ÀC1ÑbýMIY½åÌ‘æîWú¿kŸs˶y¡ÈÖy¾m-ÝŠŠŠ²|-³ZäzOe—ê&ÍYxwGñQûy¯k€g'Ú•Ý›ŸTTÔYCÖÀ•Ÿ'wAÆZñj©‡b%kJOÖÞ"¾!BdíY¯3¿èýihd-WRbïoJ¢‰e­wÙï'*S¦æ"…eÌbωLvª4YÙ b‰;e¹Ús×EòÈßÌÊÔÆÒf®ýoÖç"Ens†‹<™jÿ›ÞWäϾm-­ýµf?᥹}oó¾ÈÿÊOÃ%÷X`g+{6ÓYCÖÀ_’ÿ=+°CÖBËs¶ ÕÚéÉÚeâ"^Öj‚OY»/rÏù~¡|dZYKï/U)Ó‘nÉUì“2!Õe¹‹$©ìS%eaņ³"Í HM œAEqÚJMÑö“ZÞZ7?mÁ?{×R>Ýýº´)¡WhÄV붫»‘ºåC`a>Y\þâÅ8ùŽÛœ‹Tüüqf†dø^Ô)kÞ‰Y$ë\ß¾˜( _U9ЙÇ×ÊÍ#kÈx°_'ÇOÚëg¥_©/­¯±J¥Z«ÇÔÈjÝe$_OÖ®߀¬…JÖÆŠÜ®|»[ä°Yemñz‘øAΔi¤ÈjÇœƒ"oº,ø•È™²¿»ö4»é˜/ GM œQEqšJMÑö“d8¦œë^+ùt±-k ýËšîFê–…©'+/-2ÂuÖ>It¼Z.’åsÑJYó±H–ÈW®ïm";^ž9ЙÇÇÊžÍ#kÈx«—äßó½Î×Jí°XÀ–œµØ¼ç(UZýø7½ýøñ *kIòeú©n¹ûWÖ¬eÈ ˜©–Æ-úfRLL÷7/oj·ÿnÊ/€»¬I‰Ï,<óª3S¸³,©ý€&²6Òq8¥zÈÚ”ñ²´2>$ >uÊšGsY»Ñêå¤ö³n¾êÙSW\—Ñí@̱Í{VÅ ]z5o¢Y³ëK›“9S¦¾U³?ªà7e™G…š}­k¤”š8Êâ<+i4E7ÚOjØQ:Þïjk‘$Ò¯6òéIÿgïÜc£8î8‰«´_ÇõŽÃœM 0v‚Í#°…%"BÁ±œpÀ¯ˆ F€cˆM < ؘ ÌËåQÊ3¡uyXqÐâD‚Aú‚¦IÕ”¦ûš}Íìž/·çؾùýã½Ûßþv†›~ŸùÎdX£ÅîÔš—YI¦|(^þï²9Öb¹¾zå$à²ñÔl`r´>¯£+5—¯í¦þiö±—ÔÃëvo©¬=ÃÅÖðÖ8¬q3ÛVŽeÎòTü‹?±µÏyîDòCV¿ã'¼s‹_XûNz>0ÀÚaå!™SЪ£ò€|¨¤ïy…dù×ÕÌä=åsÍOam@Ô’³XÃY`íù!êé/YJª›Ù‡Y€ZmË•©ÂÀZ´ AO™>ΨgÖ‹ë³õöo™¯ôÖ­]H)) œk¢8«Ô…ÝPw?™ò*žw“à[ûtÚ[kºq Kµ¦â2+É–qX3ÁÚ¡ÎeÍ©—õÕ=n猧²€³òÁ8 ¯³+5—ÓÀ€ä…óJ‡ÍdóžjPÏc3H|ŠžÃ‡5nF« ±`ígÎÍó´á@¬í‚'-¢_r'ý3¾]Ç8·¸…µ¥@Ïè°62¸Y|*û~7¨JìûæIgÎLüÅ»‰„ÚJ_lö‰ä3ï›û>dK°¶®Òô«¬Ì±ÂÚp°¶ˆØF` g†µÕÇ€µ¶ª õ5sI5³ø° ÐH:·½õéç‚ê"{XÛü¸2F¦¦L{}d-Asû5°Ó¤7)Û0øÊ}FIiàÜÅY¥.VÑ }§ `›âëi”ÕS®!Ég…5"t«ÖT\F%mäC-ß®·ŠÖ’ƒ¦—&"õç6éÊÕ÷oéç{ òsïø0庳+5— ÔNžP:n¸¼’ZŒÄ¦ça™z1žÃ‡5n&ÛÈ‚µJçkÊs~˜[΋ýÿ¥±›?¢ÜâÖ4)'£}ºk˜øPü»Nêò~“/=ÔKg¶W6I !%Qü{%}þXŠ°×¬å oÀ¯|º‡U5*œÖŽOÊÃ"3Ñu†©¤šQ>T¼óÑó„¢ aâ&!¬$NO™Šõõ¶ÙšÇ~Â9ªFÞ)Í•û) œk¢8«Ô…ÝPwò&`«úÅ™A‡òbžMW'!­«Öˆ8Ð¥ZSq•´“µxm<kÀ\Ó‹ù&½1¼áÍK:,RŸ¬ ½#Œ+5—©ú¿“¿Üt›£ÀÛcÔó0Œ\L‡ç°Æa›ÉŽ0X-áé>ýãéòýÇ©µ ùÀ·xÜ;Y…µ*'uXû»üù EY|b¨¼JÚ`kŽöžZ„¾þ"Ì)Ÿ×„µ$¹)¯Sa g†µòT,Q«~¥Œìé%%FûP8/âœzxÈÖÄêíÊ—rÄ)•8<„–à1‰´Ÿî3®æ–”.JQœUêâ ºQït݈Étò>±5Xa!ŒªÖT\F%íäC-Þž@ X›hʵ«vãžXe>™·JÙwzî‚0®Öì]¼Ù@×Óu›êÚM.ï™9À/ÖóÐF.f„ç°Æa›ÉE¾—rsl°¿ü[‹§µ²¥æ-d%ß IDAT_ñ©<Þº¹Å3¬•Yamüù––<Ô# 2ÑŸ€¶jœuA¬„é‘¿9ÃÚ`šœ7¬QáÌ°&v¸ÔÓ뿘JJŒö¡ Qýç\}8%/Xö½$™ÛéýN8t¾0Í¢Zsýn–˜Ce¹˜ZR¸hEqV©‹½è†Üi;P-þ`ߌÚ6³1’é{ðí,°ÆFWk*.£’ qX›Ioóª3³¬[61ûAŽ'`±ñTŽÈç#ûµ½RRé:»X³w)Ï„?Q™:½¨5œ˜¯¿6ŠÖ´‹á9¬qXãf²3ô<ÈÔå-Öþ=½"½Å­íékü÷Ýà›[üÀš__Ï«ÀZoÁk}”Ïãuf\/ì."0zx –Wº–í 3¬ P¨Ì,Ü%X£Â™a­3Ðoœj½å‘=½¤ÄhÛ¥û“ój‹”ý”k—º)5Å÷ßÁþ±˜¨~™€Ÿ–§Uf'Üd²jà\ÅY¥.6¢Ãîcò–ÈÿÏ|<æ¹ôæ J+¬YÅQךŠË¨däCÖ¤¹ƒ£Ç4'Xû#p] óOÕä©Õíƒè=ÓÑ•Àšƒ‹°NÝÆPZwÿ¶öíðÅÀÊäï kÆ‹©ðÖ8¬q3Û5ªÏÚëäž7¬9.Ùü6ÅVƇDòS>}ùò¦LÎåM›[Á­Y+²ÂZ¡ký”£#2¬%Šäd·k•=dÕ1.¬åtPmµ{’¿ JãO*¬QáÌ°6ÖQ@½¤ }ˆêµ·æÞ,QÖ·,ˆÖ„…s”ÀKÛª½>Oc¡‰_׸“VR87DqV© [tc¼SGLxßG–ÑãT:£·½¬YÄÑךŠkWIkaaÍbMÖ®¯)•Ù ý•À¹{´wÕ`ÍÁE·M>ÉRGúŸf„úÌntì‹IxkÖ¸Y2ü¾–.«h¸“÷ Ï-keÿóÜ+èÇÌ­­*y/{בÒjÞ°¹Å9¬mµÂÚÏÙ°6ojW*…>J>?k‚µdÒGö#°V-¯è\Ò` g†µcæÞv½±¤ÄhÖÖ(+ …¦îÖ„ñY²ç,=™,fidõ…%rXÉê.wÒJJç‚(Ž’º°E7Æ;}ˆÌøôî˜ßžì |ãTººK; ›aÍ*Œ¾ÖT\»JÆ#¬uD”v°)×®ÐFJžm>ó:é+‚Òû {W Ö\ ÖL(–ù€špo[ìÝÅjxkÖ¸YgÏ­0uM%wœz<›a{]íñÌj†Å¾àñ´å ”‡µXÂÚPÃPXgàc¡‹>²v8 ¬ …Òñ_Êɸ kT83¬½ äÛ•Ô0{2Ÿª E³&ú¤.¹?où@á‰ÈaX7mÜ,1@í¦X=ÜI+) œ ¢8JêÂÝï$þ»©»BåöîÆ4“îRZšÖ¬âÀèkMŵ«d<ÂÚþhaífS®]-@Þv¼jÚá^z4)løœ\5Xsp1Ø €2û¶4ЧצÑÙ^¬†ç°Æa›Õê¾5l¨üÑÇa¸iž/Ô Ûë‹Ïn–Åþ½gzo Ü8¬ÅÖ^0ˆÌöKrµ!$„Éa4k"§!W8†bÖ¨pfX[)­EÖhª£€}uÚ\Ëï kmÕæä!D=s:\?”¬iŸÃ@aôFià¢ÅY¤.¢õN§Ô×ùÛcçm“‡µXÂÚ[W¬øV¦®ÛJÆv) ÀZ;à6¬ ]PG¹ kT83¬‰^C»)§ULX£}¨”êÒýÅ4óB$°ö|HɆ¡:WÕÓÇè¦ùÞü›âYœt3¹¤4p®‰âd©‹“èF¹ÓJ€ ªQc˜G¿¦ [š`ÍFM­©¸v•ä°ÖÒßÄéækÒÀáäƒ>²‚’ÖÍõjH''W Öì]Ä^­P}+ð™Ò¸ŽŠ¸Õ urXÎz1žÃ‡5nM>óãfʃ¹qã°CXK¿”'í!¥L±³­%ª›bßÒl`- !¿²o® kt8¬I‰ô yžäBŸ2†5Ú‡*À²ÅwÁb±ŒïëágTV¾&eê´—Ok8¯|Õ*„ƒóNàŠ”;åœJ’]M.) œ[¢8Yêâ(º‘ï4ØM¾˜¯¯$ûβï¥ò­­80ŠZSqí*Éa-¬16ÅnÚ°öjþÇÄ¿«ÿÏÞÝGUÝa8Åý ˆ‘“†@!-¬ŒIm!@x§òæ‘ê-X (¯¶‚¼U*¤À@uh °áµ€£T,FDm¡í`[ÇÖVÚÍîf³»çnÞ¸Ù½wóýüv÷îÙsîœ{8Ïî=÷>ëéú#^{m\Åßü7EÞw»Ãâ%ê£Mõ°¼4çPØ¡bHÈÈÙé,¶’OsÔrä©,M{³VÓùΦLãb$ú»G'Ìíá¹¥wÅOˆ"K}6S$2rAáµçEFÜþ„R[gÖ¢8m©‹¶èFû¤£U³ïVÙ2$äa­×íŸi´~È¿Ü`lŒamwÕ}ßëÖ^ÿ›d[Ï_E“¾Ld««'lvîÃ<[dUYIÞ…èÊd¸©Ö‚—–™,òpŸ6 Î87¨8éû;"ÉU·¶ÌªÝÈSYšÁ›Š'¬Ö@X#¬c–°æ kŽ³­=Óµ®žeGùÇ7ÖÖÔGÀ6øxiï˜Ûÿ9³ÕŒ®+iÔ!¬9ÆÌíÕéýW¼OL÷©œ^Í ˜“Ô=oóIm œY‹âô¥.‹nôOšâM5÷ÜîÍ©kËwÍšßâ@³Z­•¤‘1¬ä#7G^²[KVþ<6¦ë¹ž­ñÊyo]³bHÖ½A65kÕ”Ö9ý]cœ½ÇuënraÍàÍÅÖk¨¿SÕd»ö×JÍ·kÝ3ÕôÍô>ÖP+m·\•´5p&-ŠÓ—ºh‹n´OrF÷™‘Ÿˆ<“ê°°8ФVkåi$a­Æ°Ö(ù†5«Œ<„5ÂêégJ´kí¬Tš]랦Ôezk¨Œ–X®NÚ8³ÅéK]ÝèŸäLmñ7^?Ð^$û•Ð4ß'¬,4«ÕZ¹Æ$¬Ö.¬™;òÖk¨ŸÁ¥êÑ\ÂZè%nRqô?ÖP —e¯õ*¥­3kQœ¶ÔE[—£}RÆשî'’N‡¨õ>a-pq I­ÖÊ5n$a ÖÌyk„5ÔÏæRµß¶ýõêÆ8ûÞ nR\Ü4úk¨ÙÙèÙÝ,X-m œY‹â—ºèërôO:»{Uöœ)éCÕxŸ°¦-4©Õz¹F$¬Á8¬•””ô·ÎÈ3¦¤$°FXCý8FظÃæÛºòùô>ÖPçóÙêÖ*Üî…_Myö¸*DX#¬Áª“>™ „5hHo·=ÝømNX3a°²i ¸„5ð§Ýg ÖÄœ°Âi ¸„5Ë·Dæ²k„5ØÔé…Íéôá”8¹œ^ÂÖk ¬!PA©úÀÞ¶óCö®ÿ|·ž~Â4”Ö²‰@X#¬Áž6)õ¹­ûëqj†­Ð-N-O£#‚° d9û€°FXƒ=­WêK›ÿ°fã›b{¸¾ôDÖ„µ0X³4ç*a VU®J3ká5~¢úŒžÂ€°ûDŠÖ`U«»Ùü—àJÝkó&8ös$kÂZ8ÄŠü†_ÖШç{ ªËÂSÛìò1„5a- ’E6Ö@Va „5€0X¿w;°Ô§"ÿ!¬¬Òk„5¡×ª«”±kA}%’¼Ÿ°+*ïKH²ŠL. Â4nŠMX«ÞÊrßž„5XNfœjFJ²†ãT1=„5 ¬ÖB,'ç÷£D¤èîí½k°€´kjãUb’5ž®Æ¾JŸa L—#¥ìÂZPb€° øL©asÞ]pmV4ã+¥fÒ'AXó]þ÷ va°»9¥®Ž€”Ó_©H¸NÊÐ2UHŸa @X ­©k°€rîì¬TZ$´£É˜ ôI4ΰÖ€&¬Š!¬!ä3=ÂZæÅ@£ k€°†È kÏMþ!a „5k`¢g5MGLSè• ¬€ù¶± P“ÃÓfxýÔ®Ö` }§qTZOÁ–4º&k`®‹ñ§Ù ¨ÖíSÝ—ìx®%a °RM¿Âi5¹×ÕãôMÖÀTÛD²Ø ¨Æ»»}/ÛŸpŒ°†p{dªÊâ”ËI,SÓÓ;AX3 ™È^@p¹íÝ)­G¶ûïÁE„5„Y¥ÆqhZÏ¥&Ð;AX3m#¬¡Zr´ey/ç:ƒý›–9Œ%¬!Ì.«ô܈9ÂvKŒ”¦$îUóè ¬€©–¤>ÍN@PÝâEÞó.ºÒN$%ƒ°†ð:²+rn<¸N©ïELcfl¦w‚°¦ÊÏ>@p}Dö5¯zØü¸È<Â"’*tSl÷ä ¬*KDæû>þ\d+a „5Âa „5Â,V~àÿÄ›²–°²šY"ê4HÒk„RŠ ðbŸÄÖ>iåDÖ!Aq¹Ò÷½„5¯¦çûÃÉË–ôÙ_õ\ù ãm{ËÃ58bãöø¢‹Á.ˆÛN$vPØ](í¼ÿÞVؽwÊSïíª|<Ãçf@s=óÜžƒ]£¶¿•ÉŒ ˆÓþòBÊâoO2ÃI<.m½†?úLQü²ÿ ئµk”x¨úÒ´á#pÄ©KÝôÑɯ²9®î·àΞøÇO¥ˆ°†ðÉQéŒV¶Gõ¤—‚°VééoVþ×ýkÏ%2úIfýÃÚúQîâ¾zx ó¥âp7zõ¨ª°ö“¶žößÿ ÷[§C¯V\C0Öòæp{U¸Kœç°þݱ _èT…µ¿wõl{=1HX ^š6|h#N]ê¶Å8¬UVÖºa팤ú]xoVŠœ!¬!lN–ª ÛVÖKÅ]¢Ÿ‚°æ¶2Z$æ ý¶VÌF>uOzÊm„µf%æëaeQ"§^þX:&Éñ07z„sŽUÖ2bE’®-üò1‘îî_ü–‹ïçqØùxÒ ‘z-|Ç9çÚ:ˆ0ÐlÞ2‘£ßÖ&® k[R%õÆ] •sT;Ö’Š‹‹UWš6|è#N]ê8:T¶Yqñ]Ö k¥"¿ô}ü’ÈMÂÂæ¨Ró·­¬…RïÐOAXsïüO~¢ë ÏA+׊ÄÕÖ6 ®qx»)rËùç¿"Œ^ž-C”D7 k£/–ª°– r°âï.×Eú¸žé'ñ~s(çe3¦+ÇE~Å j·›b?-m¯:ÿ>wÎð§þ.KÄÖƯ•ÑO¸Æ¿(Iþ£Xk]SiÚð¡8u©[àè¤UöÎáÖ kGD:N®zØ2Uä$a asM`ض¶6êGôSÖ\ò|¾Þ|2E⿨>¬ÕÂcÝ´â‹ö(ÙþöÎ=¾†3ã+=2±ÍfóÁrrÁ²Z4q¿$Ö5)**¥µÚº,–DÑÕ(M7¬;U‹¨Ë¢ÚHY‹ZkUW[Ö’m­UlµØ.M]Jwîç™wræÈIrÎñ>ÿœ13ïu&?ï÷yÞ¡MWóCºÀª±É)é±pÂÚ` ©ôvNt'd¼(lby~óPÌ—¾4®Òª’κÀ~¥©±IãÏ9gÓËwܸ_‚Ñ™G5êI<.mA*SÜõçðؘ^Wú{¨ÕÚn¤•hÅaÄäs°¶[…ZŒ1þ!…¶ÒÖ 7ÖLs3„JÄq§nºèd¬¬·ÂWŸÿ‹Ú»HÚnv øÌËïk~­¡kûY Øïo ±ŒÝ§L ÖDý8×iŒ®0¬•g…HæSŽö†¦%#/­ÚZ¼â ,Q…µV@¾|d4pJàà*™ aGn°¼KmS¥‰tÖ\'DáïäÉtŽ·K0:ó¨F2‰Ç¥« åÅ®òH«uÝH)Ñ‚ÃÈšÜH§þ!ù„N80DÞ< ¼®?<8éá2ÿD碣¼;èýîE4X3ÏÍ>ŒǺ飓¡²Þ kO& ·T“¶ÜVü3OmÎ`É¿ÇwUªÙ_Þ;ëwb÷)ƒ5Q·#ê?þ·eÎhq0!Jšó-ÛÔ$$iV°üîìY‹Áã\× Kvô3<×¹(YÊÀŸcPä£HJÜ k•=!˜–r±iÜ€îÂ3¯qÂc“K&É…K9³}ü„ØÔ9ÁªQÝe £øÁùO‡ÕUaí. ¬ßÛ˜ÈÿüÈ¢'åS•Váµ!u‘Ÿá}¦oÿã´÷¸pܸ]‚Ñ™G5êI<.}ú5V•ÜÎÈæ¿Yu“¿AìVë»ÑX¢‡ƒ5aä}Ÿš¨þð„¼¹ xKw4m:*ü3 ø‰I. ¬•Ÿ›&|#Ž;u£E'Me½Ö¸ESÈ{«°‘·ß" ÖØøΗäoÅf´ÆÄ`Í©Dàºn k×ZÈÿHZ£ƒµ!Ò¶9ºäm°ã~”Š\ÊÒ‰OÄÁO[Öö ù\丮[äÂ&⨥I•Oȸ$%v™‚kIé}9'¬ñ´$9œæj=ÓV,>÷Åeý³ƒëÀôª»4gÝ@'ႤܕÇw.7î—`°ÖP:š$—¹;py†¶÷¢Å±#®FÅ[mÞJ‰F Ö|Po9i*pRwtÍ8…²€ÁWt´UÁe3X+?7Mø0FwêF‹NšÊz1¬q#·vQ/Ïxý-Â` ï¬1XcbÍÞkÄ¥ÿÔ¼”x6á Ð2!!ãöOf~Tн^(âŸÓÀZÇx¬û4'`|÷i1w1/QŠÛôàfÂÞF…µñ@„=¹ %@Tþ©÷øÛ×ÒJ9üì_ÝýŽºÂ .SP{¼¦4É-לóܹüÏUØŸ_Ó±¸™Ò¦ßà`tU]­³Ž;H¯?Ä Føuá¸q»£3bÔÑUÊÓ2wî/DˆÐþZvÌ—/ÁÀªŠ÷«i7*%Zq1XóA͆* ´Ð‰0œãTþY ät-ú#~OM:¬•››6|#Ž;u£D'me½Öø?«öû––þ°ïÐl¸E¬ù­Ž´÷÷$:Øl~ˆ íß`÷+ƒ5Ž»/>˜ºÝò…@ç>Õ³V ØD;ž‰ðó$¬¡Ë1yÎ9ÏðÞcB–ƒh]ª™‰ÂéÁ@¢ kÙØ·N$ט¸^Øõ¶¿ý¥”)om•“»La*'¬å;Çü@gþg–s¬µTIpB´I¥W™ÕNç¬ãÀ.oñd:Û¥ãÆý ÖŠQG_)OËÜx˜$üN>w Š+ÜjónTJ´à0òÕîF…µôývY‚™"¡ûâWß!ø$ÚÉ?÷{‡Ü#§gSa­¼ÜtáÃqÜ©›1:é*ëµ°¶øÕî—}ëa°æ·J·u÷¿Ãg§³åû™¬‰:”+ý×s»wM¬-G‰üc;°Xk­¤ýóÝ2ü9Ÿfò¹…S?}è#fŠÜ4ÖÞ7FÕ‰åÇ)¥ðŒ&=;œ;+ØR °Öx'@šÁ9 ÄóÒ™¯}íæë›?½X©Ì¿ulãªêªèœuÂJjµ¤­™pD[óȸWÙ7¥Õ¨cšÄãÒ¹7†b‹x%ÊêO^ã¼"›*ÜjÓnTK´à0ò- ²–à+mq= ™²šcÃÑEw…>Gf*-Ï©108H…µòrÓ…CÄq§n”褫¬×ÂÚN ;‡Á“¨½Í–Å1ù„vÙl¿aw,ƒ5aÖwÜyÚ8{q¤ÖÞúÉ'ø%k'¬]V@Ñäöúd~ˆ—ÊŸM{a°…b×à7&Ø«Žœ ÃLJ)<0Ž%m¹NaÖ¸À_o YÌ÷@’™ˆ’ž öç›ñ²|Ö·#:,_È”V¬iuÂdçŠ퀟s–<2n– ek Ũc–ÄãÒ¹#ùk´LÎZþn¨p«ÍºÑY¢‡‘?h Ö&`·å,öãS-þ ~ý!SÈC=ìhÉü3ʽöH2°œkåäfúˆãNÝŒÑI_Y¯…5t÷²'kLÞ D[ƒ'ù†®µmM`·,ƒ5Q}ÿò³ÏD`»IÂÚ&à»v²’E«” kyrÊ}ÀF2§ ¦À×#{òvƒãÞ½9éyò`ÿP”H[ ¬%K+ª¾aÄŽnKy&˜7êØyå,×)¬ÀÚó]€˜mù«…Í!’ß5ùÐtà2UB&0¬j®ˆÎYÇ}› 4lðL°K:p®=2î— Š°ÖPŒ:Ô$—Ñ8Øa8mðë ·Ú¬%Zp1X5G}©Å»ΧWQÄ‘óQMòÏJàQù{°‡kæ¹Ç1âX¯›!:*ëµ°æPÞ¡`°ÆT½JØcëÍ(ÈWTfk°‘ݳL ÖT”­S–CW`m–vä–BÀšâôI”V !ŸHÜ‹ßwä‡Òź5ý¦õÿ-j!`o.ÚœU.šª'QJyÛ.T#âÕ–­­¦°kÜŠl©y%u;ê¦Ä×;HîH7®Y™"kÙè5ù*´m¦cšGæAJà´Ö3£NeßYY„Ð% IN…[mÖÎ-8Œ¬‰>>öQì‰Ê’=â¥'’«Ñù—É?ëÄ©'Q·BÑ‹kæ¹Q‡yÄqY7Ct2TÖkaíp—Á“7¨Ý¥ŽÉG”²l*»c™¬i iWµÉÚ‘ÛÖzÑ¡h 0DÄ›gŒaˆ íø‘ZcL¾ kò2(TÏ< $ÐJy£ž„ñ NXLaRF.ìÖ9{üÀ~ä5K{Z7éߪZïT¬qERïÅŽ½k.<2k¤µÆ̨SÙ°ft‡ºÔ‰ª ~¼û}Å[mÒD‰Fþ T:¬EিÂÚpà)%õž“ì¹ÿlPVC÷¥Ò`Í47jø08œõÜÄèd¬¬×ÂÚÀQÄ`é!Ú1yp˜ÌÄô°ÃZÇvþ‰ ©W€¬Í´ç»‚µ¹ \à ø#™x…v Ø$PkyÄs²MÀ7ôRjÞ+"ä×–SXI/Û´{ÆÚ…Rb‘T=°h.´\{Ÿ7f Ï‚\xdÖHk™Q§²aÍèl ”éNZ:°y _Mº‘,ѵÃÈ ½fyþ3ÏúR‹_” 4+ÇìÕvc£ˆe@ç©oZk`Í4·rÇ1âpnä&D'ce½wéþ‚8$mb°ÆÄX­Rýý©?m»g™vX›|Düó6PDÀÚ?€©îÁÚuõÓ·¢„oiÖ(&&¨sw5°6¡‡•£›ÅåéÍJé¿Ð.¾½f=…5X[+ÎRO®.áÞ]¢¹Usòº:ŸV¬ñ{CôÖ Còek÷aM”l­ù?{ç$Eq` š~€x¸£6üÚXrø¸H¥ñî'"+)BÖ—FK«OÖ æ‹Ó÷X¢Dô¹oˆ¿w,9õèãȳE1Y+zN¤Ö‚ÔEž`SJÈߌgßîî!…çÒÙCûS(´¦Iy_¤þï=‹% Ïö_°]$¨‡Š~!²M/o—Èú†‚‘e¹|(<)·j@tkG)M7«¥q²I­qJÔɬÅÓ{Îb£ÐŸšºÜ]¼ ¶Íh)ÑÄ)ÃYs%³»È*ývÑïï7;Á#¡Ðl{Y +ÒrcnŒ—EÙÊšóÑ,á#5âØD)Ç£Y£“kdmº Èä˜ÕJ-ôhD;T3ë¶ZOn·¨Wÿc3Í+벦i³jšúqåÍIÖ.q4KøH‰8¶QÊñh–èäYÛ-2Õ]K#kdý͸Ž¢£GCt^ð¹¬e•Ë¾îÇ;{ÝÛxq©ÐsÏÿÉ<_(¥z6‹%«¥©ÚbI­qHÔÉfΚMvà‘.²,þ%2é2Qk›fL.ÑšaäQ¤‰@Tô•¯ü7†H”µ|‰Ry*káK÷ w}¹È£:È軀¬yù†Ìƒ+½ kÚìA"‹çU·?ˆÚJjVKSK°fæÙ'êdSÖl²g‰|ÿÀN‘!Ýcôkz­mš1¹Dk†²fË‘*d-¢TžÊZi4%Y\ °5@Ö ÆqÙà YÓÊ{˜ãçA{"R³Zš\‚%µÆ>Q'«³AZ³OŠü!þþâ$•èœZ[›1¹D›œFd Yˬ¬e6J婬HIZFÖYËì€a²\×Èš™è<Øű7Ñ‹Ž´Úug¯¹'úÝÛ’œÕ’‰R3óìu²;u¿åöˆŽ½[!—5k3&•¨cÉiŠÉç~”µµÕÕÕMœ^.“QjZuõ·ù)kDJÝ5[²æ1Êßót0:µ)èm[Û|/}5²¯€6È÷\ðáµ™J·© zd0J•'”—S÷¯î#ý_m¬Áårµ‰ÁY^F^;r#jÓô¡ôb@Ö ÷²–AòWÖÊÊêÆ…Omê¶Þc k;Ê”Š¬¹—5J]O/d +41'Yƒ¦±¹V}1ØËWXk¥òrýJ®RÁ ôc@Ö5dÍs<æñž´ŠoŸ=âé Þ¢ÔHú1 kÙ`º ÈäŒ 'sº›õÕåôc@ÖKë¯Óà!5t_ЋYh,EËåmZ5ÀÕ[d Ïðç¢Ø€¬ã9ÀÖY@Ö5h å÷ÒŸ½A9+c²Ð(*úÊDZ¬Ìœ9sŽÍæ®Ì ¹bóUŸyÿ~Ù ;[x¾’WÔ0}? k¢r×-4XIX5|IXÜ5È9•Jµöü…ö¤R³=_ÉsJ¦?² Y+N4d rÅAUYäù ­Øë ÉüH©èÑ€¬ kÈšGXª‚¼¡ùCÖNQSèÑ€¬ kÈšWRÖmöÁ…öMͦ¶>¨æ»Ç'Ñ£Y@Ö5Ærnâ¾Ï|RèЀ¬ kÈC9@Ö€+qµ¶Jû¤ªm”šIßd  aLJ kÈ䕪jŽO Æ‹b4›¨Ó·Yd Yw§¬mðÍd>’5mL+’ÖYd YFq.¡¹R³|T]ú6 k€¬!kÀ(Îí[X€¬—9²ÈZeMõ‹°)üÚ|Ùï4²¸`k€¬!k¾ÞQL# k¶²æ²Ù$„¬yYÖBôp@ÖÒ§íxù’V@Ö5ÈÖn@i¼Ë°àjú8 kiâØȲyÄ/W¨(w®ªÞ¤—²€¬!kMãg5È핺ÙWöRPá«ê®Wj ½5€tùa©TÑ Èš‡@ÖÜÍê¶-~ê¯-~»â>?Õ·ä&µ‚^ÈüŸ½sªÊ㸠³Ëý)³mÚÐÓEJKÁòh·`Aš…"Ôn×EK¨PZ7H ("Š,ˆò”×BYD^«„Ý•˜¬ 1 *Ñl6«{ß9÷ÎÌékîïûsïùýîÜ3Ùéï3ç|ï%‘Hak©Ãô&¬¬‘Zˆn¦e9j¼:é¦Ø¢jŽ¦QNr¬ur w1vþðÿ ¼Í?ôCG³¨Es¤zùbˆ`XÐx~£n×Ô ëçYöäi/Çà¤ÈÛ²ÖTø½ó/¦òŽDŠJ½øe®'÷ÐÞt&0­îzOÿYרP©ÝÅ/Œ¢àÏÆD Ö][ïI^üƪúö¾î‹j›º_ {b|9Œ&Àµ×ô°¦7Z›x"ÔO~ù O¥›Ÿ1ÀÖH ¡ÚÄŸZSwÛ¸±TÞ< ŒÔEb€È›õÀÑ`©*¬Y§°‘]H”YöúÆewC¤¬¬9][ï»öÓv‚žwuyŽÆ;Áš`­Nÿ·¿ñ"z^³}™{ø‚/§HsK~ÌäŠ[ឺ}R×&Ý_äM–`ð¬uÖ(ÏôR“ôžµ¯º-ô&O¿U-íyñµïxÿI»ö³!½ô‘|¹pîeÈè¨5¬ñ•~úGTX ü GF–"‰Ç¢‡Ôµæ/-Ãñ¹ØëË 4úöX__#Ko2 bâ‰LíS‘úŸ´˜®^`ˆém¤àªie7Å^|$oN>ÓïÌ92VÞ¼t –ªÂšu ™”I oÁk¯oÜ@]ˆT‚5‚5§+ÍåÚLØ úÖåšKã`Í°VíEr¶î5áñl¶2}2ý[ÖŽy¥†C㤊áMi·a°Ö{Ô;I‰èÃi°6b˜ü|ÉcXûYØ=Ά4#¦°ØÑ °–Ü7ƒÓ`í à¤òðkHÄWæ6ÛÄ4i†ÏÅž_c†±ví)¾¾Æ•ÁdÄÄÙDåTdß_‹îj³3ZÛIfÊhe°ö™ò#Ç]N[ =ð× © ¬Y§°‘Å(<`·o'€A¾ò¹oä[¦¬¬9\¿=îÚÿ8 `G(ÆåzŸF<ÁZôÚ`yø\Þ¬’°$𞮋9ñ¤Gžuó£6C_ªèI\=¸ÁÍcÑÜï¹1\5H¾¼½¢Vë4X[uxkߦý;â‘ú¢k‹”D bCª"k·¸€Ì-[ t)LG­amC;iŽL®Äw3´™µNjÚ^`»Á†óöº§±Í_Z†ás±%Ö—h†±ví)¾¾F•ÑdÌÄ‘Þ6I[.Eõ56É4Õ«_5÷ˆÛ6ÄÞzÓmŠ§Uˆgð› ¹[~q,’ªÀšu I*vΘVxË©Wìöí.;ˆË“N´H%X#XsºòÆ8pœ?^_þkç½ê§M¡ñN°æX |#oÆÁ߆¯Mç!¥^Ü/OÄäÖÐ{¬¼f2W˜k¹ä ûç…™ Öò€}²}Ù³4X; tçl¾ËFÏY"¬Á;¥ #! ©b"Œgíhˆû¬i°V%ó ¯MÀp5c·‚²D´tõm ‹àBû\ì‰ñå0fkמâëkL˜ ƒ˜x"Rl'ÔÊ›'‡ì/29£µ­±)ô“">Xo-Œ|Ý­9öŽ8è^Ýš`M÷ƒM:,l©Ž šªÀšuŠIdFœü¿sh«í¾M×þoã6›§¬¬Qíæ@µq¹ŠùÂi¼ÓÞ °VÐI+Ž;Ãã‘ö èï@¡kùRC©Ø08(í¯6ÀÚ8?)³U;9µys**äIœ5À\ Ö¾÷Ù"6ÂÀÛÑ°aïN“^>_ü¤* ßA-áÇŠpE'Z@iÚçbOŒ/‡1ÃÞ7½kÏÄ×÷ð`2 bâ‰H< Ž ~FK[c“ˆì›Ö|À?mRЪ–mîTTJÁ ³”“%ÀóÁSX³N1‹­.íóJ™Ý¾Åzž8Ws®ÃTào>ÓT‚5‚5ªÝ('Þ›`äXãfJ ÇÝn Þ“=ŸjS(E¬« Å#”B©á¦Ø—O…Ç!Àj Ö^•ÖD ª®K°&]C’ )b# ¬± Ö¸]@Áæ6î¨P3qšMÉ°ú,iõ•Û9|u”Óü¥ehŸKÄ’|9ŒF«®=__cÀšÑd–ÁȆê€=|Íücþ¦b‹3ZÙ Ö¢DŸ£”íIX`’±yžüsPTÖ¬SØHAWàéÌöc–%3löms6â¤9×Q볦©kkTº¬­‘èU°¶øDôœ”ÈóbJµVtv©d”ò#Wn»œá¸¡ÚB¼ °V.sMGäh°Ö Èœ «Ÿh¸ò¢Ÿt8RÄF,/ݯu4|Xû´7ào¨º· »Çc²ÜX8vÒjK6Pßì¥ehŸKÄ’|9ŒF~s×^ ¯¯q`2 Ë`dC÷€qE«Mý é­lkQ¢KªÃV˜’ŠcF.–ûB¤*°fÂF€ÿ‰W4Mð _±Ý¾­!oÄ7LS[¬Í²Á‰Xía)ÖåêÕ–hDù(…5®)ÕÒ”¼Ø‘+û×+×^¯¶ ¬~Õ/” âùu`:XKŸ'V EÊ,Ô<Ýp.øX[Ê0ä‰5CŽ˜ÁZ@GÇ5®¼DzâŠGjÕ_®ûšÏ¡ñÍ Í_[†ô¹D*ٗØaD™¸ö|})St²4ÙQgLÚæV®$ševF+[c“ÁZfB¤Òp"~’¼h‡µËÊ%{,†Ô þÀ…ŒP© ¬Y§0‘zí׎}ÀÌHú&ªÆ OYjKƒ5X‹`ôе÷¥2‡"˹“½f¯;Oи'X‹~X#-1Û´¾&«!QüCš8}·kÏ`­¿:ÓÆ¥`{A\&Éÿ{UkGŒŸ«X“­alHaaé¨ Xã&æt^²ø˜/·”5nò*ÎÍÞmÅe(ŸK„R|9ŒFëÚ ôõ5 ¬…a0²¥‘½n;|¬'ðÀ쌶Æ&ÒchZÕ°ÖxT›¬®äY¾Á2U5ë&Â7¼¬|ƒyÔßÁìôMVG`­Y*ÁÁšƒµ¡‹k4-áu–¶¹\iä¬E=¬e¹…Û«U{¥Õ\ÆJ¾6­¸7wI–P2šÁZmfí€Ö6]8n…RHÍüóM3žQ…56¤ˆ°ž5¦£v`MQ¯ÿ³wîÑQTç‘ÝiY$Bx$'b Rä¡SDMK¡@À„G8¼•€ ‹cy”ÃKÂKKx­iÄÊÊá€Ð¢þ ¢p*iiE[)ÚžÎîìÌÎÎIv7Ëfwçûý“ÌÞ»7³ÃÜËýíÌwG»nÖÁ….¦ïs#»Ñ§–õç\ÂCËåa嘩=c®/:²VÀ(4äSÇÔs:Çå+QMá15RÖ,9ÐñWñ$kÇõ;ˆrq™•.ÝI_GUUÖ¬«%韛]§g(M }ßT~jV5Æe­èùÔ|ï/ëÚ¶¥¬‘Óã)-‰úb/~|Xê߃ç>e-ÑeÍùÏ:á%ÀïÖ#Àk'”‚¯Íem g’àT/¥éeMžávr~\ÓËZ•z¡M”5±H¤ºX¬‰;Ž¬}O[…²§ÞIž\¦J!ðt£O-ëϹ„…?—#„aüèS{æ¹¾;.kõŒBä4ÐÉ÷±·ûÍNÓX#oƒ´¤›Ûóûøá°Å÷ëDùhÊûx0UUY³®"”¼¯;——˜ŸYÖ­ÝÌKÓ\Ñ YÉfUcMÖ }ôû0¥õdÏZ·ÞºäLpPÖH„)“¤´»qS’Nñܧ¬%¼¬}Ô:?A/eözÞ¥ágŠ1emª²"…‡Y;”IpÐËÚ@_õÉ»Þ>¨—5±HE,dMÜÑ emÏÈ}/ŽTVýwzàåPÔ>ÿsÈZž Ý‘s ].GÃèÐ¥öò¢¹6¦ÿ,¨O Ý×÷ë—.íô®?ÖEYÛö›g‘B`N<ÉZa®öøwýg—Â_¬aAUUeͺŠP²_{»srº:p»o’ßÝÆÂsG„IÕX] ò:°ÒÿÐÞ“íQÝŒ²F"̉Ë%OR^ìFÓoZå¹OYKxYK^Œ™nHÊÖ `³ÛñDÐY›\)P®>¸ ²6Ëþ©š2)/ËÕg*/,véeM,RKZ'v[ÜÑ emH{Ï<ÇÃÞî8ç+~®L­îE u½"Ë€C1°©/çú\Ž†Ñ¡KíYäú⠞*@µugÖ™_|5‰5RÖFÖœ­€ÛÞ_楮ƒëYs'k~pUUY«£Š±dð“dmhK mßž–ø¾H¹ œÃbÕ•µr@ÒoŸ‘tʉÇi[Œ2áª?<Ï|öúÄ—5ç$¸ç*O*“y]½‹qÚ"y²·ÝDÖœ½£[ë°Y“gÁ‹K²æ™/ó®¸7?E¹ŸN“5±H?,¹ä쵸£>Y›±mÛØznƒÌZ{~]×1奤öX¡«\ üÉ3+*}XÑ­±'–Aä\B' —#„aôh©=Ë\ß–µàB<Á3Ø­þþ”½œúb”µ:¾òÉ×®…Çåí‘ÚDþùÒRßÉ5|Û¶rï×!º³Ã¼ª(k–­ %¥oʇÖ;¢ü()ML,ËÖJå!÷^ϸT Å¿îfºo1*kÿA÷€¹dÓ1¨¢¬ºZ¤¸5}Km°Û'°¬½dãaßF Ðýž™ß/~5Ý3ÙûØLÖšô¦Ô?P‰uFY“ß”~²6OžüdL_Òª»oM¿¬ EBÉj ½cG]\KÜQŸ¬õ•ßY¬•»áy|âœ\`ªšQªt•ÇU£Œ¿ö0º¬Ñ'–Aä\B&0—#„aLS{=£ú„pÿ?X£0åïqU2Š´S¿ÞXcÔØ퉑6ª¬ä†ú/=­dx\Éšóï@þÔâ¼jï•®WäÆó³?ÕN㳪¢¬Y¶&–”kŽÔ”\pù¤ÐdÀ²l­oðPŸÖ NËöšVUYë„å/ D[Ê¡¬E û>›²ÆnoYs^‘§u—Õ{µÕà)Á1AÖœïùú5{QÖ’Fë–BW_:Ê×¢ëhr ¬ E~Œ%“ŸòlüBWCØÑàeÍÙºHy«ûˆîÞ§{ôµËÔ›íl|W &ç*†\Ž†1Míäú¢(kuŒÂa´;7ø–Ã4üEÓXcÔX¿àÓÆ>å¶÷ïçLlJëëá•Oª Ñš€Å g›U5‘5«ÖLÞÜw±º0¢rŠ™ XÖ­µÈð•t™fÑ|ŒÊZW, |áºRÖ]²F[#”µàd­'âÏk}ZÕË=hç×3“g ò®å ÊšsFÞò¬1Ë[–ÖeÍy¿?]å9yü…ÅéY+®oP6u²f,ÒßWe(×±"=u¦¾†qGC5ç¸9]RRº|ä¿Ùl"°/ zRíÀJwFNÉú˜W“s c.Gئör}Q”µ:"Aá1E³ÎVú‡|×k$‰Åê]mÝÙçîóõ,Ÿuƒ(kƪ&²fњ雓j«×¹W=ü€ïê©é€eÙZfÞùl÷àÙ -ªÆª¬U òAýös±ˆ²F"HKýí|àK’ô„?þk—¹|?e-Ñe-Ñødg‚} 1çÒ@„\Ž†1Iír}Q”5ëÔPxÈnªÜåyøyÙ_4‰5R‡¬ÅÊ€£²öÂ"%Àß(k$‚Ü”¤‹6¶•G{¼ËÆ$ c ¬QÖ≂ç—%ÚGr. DÌåa“Ôž!×EY³N …‰l é×wjm4×C1ÖHÈ‘µÈX1*k›€U›ý›·»ÿ¦¬‘ȱùqiú-±)M_&ía/ ¬QÖâˆK8˜pŸÉ˜si &¹! #¦öŒ¹¾(Êšej(Üùñ»+íeœ²ø‹b¬‘Ôéó (k±0`Ũ¬5]¤•¤lÌzÇ èLY#‘c»$½Eg±/{%i5{e²?|àšÝ-ñ>•!çÒ0Ls9BFHí ¹¾èÉšej(üÓdÿš¢Ê)y™–Qˆ5’ºì÷iÔÚQÖ*jjjøýA$¬q5ïçª IDAT5%1úPìÜž±fqÎÙ³Õë¼_“$9(k$rü¹å¥G©,ö¥Ù¦eì”5ÊZñq)ç΄D•¸{(v„dÍCC׋à€uÀ»C1)kŽÏ+õß-ù²á-NÞ7eUÊÎ]ÏÔ9GÿhNYãŒ$>ììú”5B¡¬ÝY‹ ±,kçá|UÕ2ú|Öðö¤ûZ;ý²u¥c ¬qÂFhk„}Ÿ²F±7ÝÚkOb“FK=¶±åáWÏþãÌØhìCYÃÚŸ>×KþQ™iUéF[Ê'l¶à±ÿ­]HY#ìû”5B±àŸ£.ò PÖ,Y[U|5¢ ^”-¬÷zyŽz2xîA‹ZÆùš-¸[’æñÒa秬B¡¬…Áë@E$¿øï< ÈQí‡)ÀxóZ«AY³›žùÌîž’)I=ì~ vÔžáòý”5Ê!„ÊZè´Þ‰d{å€ë—¾ß¿V˜ÿ×WA¹”µÄGþ·zƒ²FY.IÍÙ(k”5B!”µÉ¶F²½ojõwÏ£Hž0«t˜˜JYKx^™.±ý²ýW·¤Úý4[)máúý”5Ê!„ÊZÈ\¾d{/sµ6@“:Ï9)k‰ÏIjû¸–£t8ÁIÏþ@Y£¬B¡¬…Êm +‚wª= à”¶u?ÐQ¬S˜‹1ÔµÄçÔ¾âÎ"3ì…Ûì”5Ê!„˜q´Í)Êš5«s‘àîHµ¶Y–5c×€6B•Î9@ƒ²Æɱì ìÿ”5B1ƒÏY£¬ÕIqñ‡£eÁªx-§FÃ.Ôá.mk7°J¨ò Ю3es5B[#(k„ÛSÌáQ ¬YÐÜI {Àšjd!w½#Yë×Âœ/$iD‰((ÄûÊ!„PÖ(k,k5ÀhÿÖwrcM+4[ <ëBÖ2Ý0'U’fqæKâ†Ì!<„PÖ!ÄŠTlåA ¬Y2Õ„47ÈöoµÝêæ½”µÄç÷kÃÅE<ü+MšÁ£àî›Àƒ@(k„bäc<”µ¨±I¸²¶0 ¼CWd'%k¼ 2¾i.I78“tð¡Ø %é8ûoƒ¤¬B¡¬5"'wÀ.¯ìXÌt'kVp‘x`CštWÖ(k—Ý%é{ù?{gEyÇq “ _ÙBC( »Ä@äá¡@lP’rƒ-h(”p(Ð)*}8,rYy8D¬‚@å±"`¹ EÅZ©œÕª­µXíÌì»sl&ì‚»ì÷óÏ̼óf÷yòþö÷Ùß eBeíÛC¾ä1}k=0"hwgãÁk”µÛšW…ƼøOa¼ 4áYP2Þ•ÂVÎ ÊeBe-<Â),É–dí}ë"P¸wHZôŸæ§h%-(k·' ?ùŠv¢à-=´†gAá•pfPÖbPÖ !„Äo3‡:[½¬—̆ßn_ôM×0^j‚$kGõ­NÀUÓkf)kÌÓH¼ÀyÁ ‹²F!79”-OàI !8Ü¥~änÝ/þ8¯oÌ1M#„¶Æ(@Y#„[¼9(áY ΊèsÖÄÝÀ9mýnéµzRÖ˜¥B[c ¬Bˆ-yÀpžâHñ@“=åüa{8¯÷,5R]ÿ ø~’SGÞ`„Y¡¬†Ê!„²FY#δê_În» X¶tñÂm@fEX¯ç}˜§¬îõˆ”µ¸ãÇ%ƒ9±ˆ={KÞá ¡¬QÖ!Ä )xˆ#ç€=Ò¢+-š•HªÞ Ê7ïŸX!ßï—À|õ6þ}»té²”²'LÆñk:Ǧ^œÀ³ ³Gø,›S„²FY#„ƒ÷¯ÜÍ“@)GÊGÒÂ;”íN@˜?‹È…iõçeÌ•™SÔ¶ÆÒFsÊZ|P&Orbétæ“_ B?ÎÊeBqG&æ(Ë3xÙŸZ;Ã|ÉUµüm~¶HY‹?úãŠ9±tš B6Ï‚Nâ%áçe²F!„¸#Y½ìñc¤ø/Y×Â}Í‘GHN{1×xhe-Ž¨Ùxçe͉½÷qŽPÖ(k„Bˆ;ÒT7› ,VVžG÷è1e-Ú3´nœVÌ3î/< tã!)k”5B!Ä%`¦²|¥¬| eDy†K$¼Îs`ʯ CeB Öðgv¨¿¨õžRžƒ²Fèj„¶F(k„r 8—z˜'8R Ü'óŸ…ÉÓ¤åÈdL¦¬Ê¡¬ÊZhÃÌþm…”AõÖ­ßïØO§ƒ´Ý&? a—Ôð|%o½¸'BGQ„ïéëkŠ2Ú¤O:¾QoHêw®{zÎÄóÆc¯ÎMŸÙnŸÏBHäXÜ‹ãŒbè aÓµž {„,–d‰RU›ížfÐ@^æ*ê…':o:Pþ“³¢ø4ðF±X1¸JY#7Èá­/1è’ʨµõœ+”µÛ^ÖÚ v%kAÌùÝ-•µ%Ä¥¢:¾N‰þ†âçÔ†µþ¢vÑ«Þ[ûɉX. ÁaFû a×Õ5çÀb‰A–(U•±9ì)B´Ëš¸]Ù;¢¸ZZ$·‘7jSÖȱb¨P K*£•0fg e-öemqS?> ­L‘µÞÊúº§çH¨žŸ:ô –µ•Ævn¥¬õ—ò%-qiÛH»XúÅ C¹QT³÷€†}J·º·Uº •ô+)šò·5B"Åš˜”µÀèa`$l»ÖCZYYÙþPŃ,QªJc³ß3r*kÕËÊêD©¬‰[’ñÒòsÕUßóRÖÈñ° ü—A×ÄÆaÌiL„"ÎÊZìËšÆ$`‚¾!ÉÚ#Úz/iÏ6‡~²–‰†Æo]¤Ü:Yë9FâÒxM~J¦÷p¯Üð!pŸ<ân×Ç䆟ÕGƒ¤å¬@C!‘bvÖ/bnÌAÑCÇ6HØw­‡z!þF´A–(U•±ÙïñΆ*kE«¬‰=6§Éw¡ùëïWkt6Êÿ;(kQKöpaÓ4ÆÜ`– BÏB0ù'…Ë8_(k·¿¬‰wHªý+—µ+Ài}ûÞ½U²Ö­o:ŒÄ¥H«æO^îÃ@y¤ohÏôIhòRJÞTjø0:ŠcÌø€KNÿáo2•ÄØôpEpMË ‹[Ùô°kê3cDjù7=oÎÁkõ72–ò·õ>á¶åŠ4LoÑûr~Ú},ÇÚˆƒ£‡MpêªËšs`1Ç k”ªÊØì÷ìƒÇ²&²±âäcÆFýÿe-z™ºò C® >Û†‚O:gsºPÖâ@Öĉ@¿Êe­=0F@î-’µßÌ’[ê‰Kk`ºgðgi1)ÆqÌÅc>ª §€Šè 1«Í*f)‰Y}c²f* ±±K‰¥Aü´…Úré¦\vQdüJ`)ïq[ïþa[Þ){­Ú¾œŸ°#nŠ:6A©«.k!‹9Y£TÆf¿§Àƒ¾ cBÖb ÊZôâMàÿ'eÍ Iœ-”µ¸µk@ëÊe­GoLÖòö·Q>E—µj[^œäë:ùêö$-“Øó‚''£¶&kLív!-s@®Mß³[&>šÞ}vÝjŽã–†Ú`ÈzârÝø}¯¿ÿ’£F@ ÃãðyEq£q˺íÀúè0 €T”Ÿz,%1–®0Ðôkª3øÒ¦‡MÝßê,d]©S*x€]7áØõú›ò·õ>á¶åFŽæ­ZX$WÜÔág`ìËš)zèØ §®º¬…,ædRU›ížüè’DY£¬19‹kx¤C’MâAÖ6Ë]ÈÚ.`…ºù65ÑdíÉAZööÄ”†Óú77_×em·¼}ÁÚ÷`wusàßÓ­œ¾y¢‘¸| ÔR÷œÎH‹_i`mtë<[ÊSÑ_: 5ÈE¬%1æî°Ðè,KEa¢]KCñ3¤Üüs™¾È×ÖßXÊ{\ÖûDà°-ïô#àÊU\¦ ³?c_Ö‚£‡ŽMpêªËZˆÀbŽAÖ(U…±Ùî™ _s‘²FYcnßð#´5„¸•5ï"ਠY«P|Kf pP“µÚ€çTQiÍãéÀ5åp}À¶_ZéCWMÖ&©)èeé»&R®|=ê‹ Àw§ÓÙ“Ól#q¹ hb|g=]ZükpW“„‘u}x¦£´ý”ñŒb #zÃËZÌÚ¶–Ę{¸ÃRħñúZxÛö°4lúÿè2ð`Ä= þÆRÞã®Þ'‡my§)˜§VÜÜøe-VeÍ=tl‚„SW]ÖBs ²F©*ŒÍnÏÉ8/F±¬w†²F(k„²F(káÊÚ> gš Yça¾ö5ï"Q•5o9R‡(o¦` |°êE•ÿ”ïgæ—5x¶'åÕnféû¾v5‘ä-C ÞH\IôB «¼l2_ÍÛ57é\3àHÔF—YªÜjXKbÌ=\b. Ñ¹”Ø÷07x§£‹ÚPkWnÄŸLXc)ïqUï‘ö¼S)°Omìà'`ÌËš)zè8‰P²*°˜bM”r?6›=y…8áfYƒ3”5RuÚ·®Á°KÜSüjmÎÊÚí,kùÕƇ–ÌV&kokÙJ!:k²¶Ô>ïÕE±'ð¹{˜!k«”KßMÚHöO¢®»tKzù—ýuÇIg€,eí¥Eþ{B Wâûw€æÚߥJV­œŠ·­%1æ.1Ðhl¨ºÙ÷07HªòÝ›wäAõ7–òWõ>9lË;ý»ÑÏŸU:V~ÿÊZìÊšS%k!Kp ²‹RáÈÚPüPþö†²FY‹zŽfØ%îùTع‘ó†²v[ÊZ ù®dm pRÞèLÑd-¯à•êÆ/=D±3 %¼…º¬ù•ÌÒw 0.¿ŠéÖà-¹ÞmÚiàÉr:$kµúëuÀÙ%ÿð ‚LLŽÚèRÿgï܃£¨²0¾š4YŒI$;<’  ,kÁb$á5 °1J)‚ „Ç"”0€À‚"yÉ#%BQ.Y¤äµ`*ŠuY—GÂÂbt}àR€PºµÝ=ÝÓ3÷vw:™ é™ù¾fúæÌôÜÎÜÓ÷7Ýß¹”›¿zù…KW<Û¼%†°)Ö@£] ŽÜ*“¶aQ‘4=òÀëW ç~þÎÞcËï”n[íé髉3`ØšY’°‚5‹ÄÂæ >KkƒÝÔ] %XËYئ‡òdE|<` ª³º »H»}• ÂEŒÀZ˜ÃZÖø<Ѭ‰©JÞXB»D±ÿ¥‡þæ=¡X‚6è÷ Uk°–éÿfÞرéD‹‹?©©Ët«4‡èþ­K*Ÿ£ÍÑ“RÃ÷D×Ïm‹Xʼ¢X¿úè?€'96»|KîÑåãïþ@Y½Š·Ä°6ÅhT•m3‹`*‰Êì•w^Ý4èãÁÏÃÙ{lù}‚Òm«=IÓîçq [X3KV°f‘XØÄg©@`­&‰¦¦8Öz©ê#%q÷Ž•Å»?—Ò˜Óæ¬9òÂZ‚0u4 µÇÀP·á)ŒÀZ8ÂÚ#JQóÛŸ^ùŒyk/-“6ªdƒ™k;(þ×eWyî[®WwØ£ÁÚÞ÷ñ·¸ågíuïiºµzŒg®¸·e?ùçí§õÉø1¢ß‰âµ2ŠµäÇ&—9ú´7i¥hd‰a#ìŠ1ШڬÕ/1Š`:P×õ©jËé¹Áí7ã¿áì=öý>vÛbO—‰:–ᶰf–$¬`Í<±p9ˆËRÁZ%eyÊt8¿äˆ–D{·Ž¸iC4` ª«r¿º6Y×Hs¿úù,Ž‚‘zÿ¼#°Ž°6ÉNkEŠ»mQ©ks·*ÀEî9›ÚH¦…Þ¡kZ± 6V×µö0Az ÛÓ­g+f™ZØ_šEÍQ';¤þáp¬Œ…RÃ3úª¶NÍ-)YDñÍ;oìwÛlO+3“NÀZ˜ÁšY’°‚5óÄÂå .Kkûü{ÃÚmJ¿â»5œÖ GÎËká&Œ$ÀškÉEg(ÏUX{€è÷=1ÛN¤ù®2°ÆÅjVáöÛ¶7¥yGùÅù¸“¤J¶‡¼Kôžºý(yÀÀ™:ûúäE¢“†–&¦8].z5Å4‚mX#Í ÕKy£ˆªƒùóç¿áì=¶ý>wÛdO¯Í$ÚÔç¾0†5³$ak扅ËA\–ŠXëÈÞvþÅÖ °Z°ÔGpt@kÈ €µÚ`mÑ…"¥R kóõ /ÿ”‹DŠ§ôÊ ]Xãbo~ø¡º=ÁzE-}J3±ïmæ¾Dc•*&¯k¿ãÆÐ@QÌ[ê]Jz«î2q²6¦Rl´¥×ÎaOID¦\à kÔ†]ôHûjà¿áì=vý>vÛdO¹ÉDçáÌΰf–$¬`Í<±p9ˆËRÀÚM94-!¡ÂÁ°–ÆÞòy’ÒkX-XŠZr} Žh i°V ¬‰q4¿•<ñÂÚ"µöÅ`iþ¶Ni?é)äTêb`‹-§öju“¬‹ïéSšïÜÚ5Eét^TÊ°?¤^;ÙC4Bz¸è#e»Yª§z¥ã5謵×N‰°'#(îUŒ†&\Ã&"m²)QUvðzjä¿áí=6ý>vÛxO/§mÍÇy/¬aÍ,IXÁšybár—¥5]Ž÷¬¡i~W¤Ot­C9WÀZdëcu¬ÿ6¯Aƅ꣼QC0Žk€5Öº‘;‰ŽùÀÚoˆ.*ífJó·õžÐ?É´v£ŠXãbO}£œÜ‡v¤˜ÒcMFÆ›µL\þAÔB~VN.y)–èD×”¹õÛ1”ÚRzœì¦WåÇýSÍ{é,“oµôÚÓo.­M†š.ø®¡ØçBçb½bLà2º¥Ë+ÎÞS‹ß'Ðnîé‚Ëçbf°V–‘1Ù3ÄŒ“„%¬q¯ÑÞÏAl–²“Ù¼Ÿ-taí—Éiäê;ogñRu…nqrQùô’{o»4ÂO”yêRÁDÛR›WŽŒxM{žL9)¼%†‹°M-¼æW¾ÂEp 8öV·S²èË»kœ½§¿O Ý6ÚS7¢Øy8ë…+¬u"Š-’„%¬q¯ñ¾—ƒ¸,e#³éŸ-dam-ÑÒuúæ4Ÿò>€5ÈL£vy³Ê8AP¶ª—šU W30œk€5YåD›EXÓ×מZH¤XÐîIò4´ÝÖîçbÛÍR\Õ)6§4b‹,ÏKb§« ¹µÕ½wz¢?PºÌun^ùšè–úôM’ošâ,1\„=qYŸ4à=7okßÞ Fäý7œ½Ç¾ß'Ðnì©Q΃8éE¬' kXc_£¿—ƒØ,°%åóö×›x6J÷IèÚÏákÖ_Ü>i%}û $\¨žó Ax °X“uU%2}Qì››’c‡ï:x(¥f¸Z£¦`vΓ³GG7ga=¼g{vZ׸Êu¶§4¢Ø¤8.55îÚ2oÉæÛ²Ó¦}Ùm¨·edëYi=ÎOJqpZYET¥Ö ¹íqˆ±–>–xŸ¤äšbÁ¿dŽ—rîóYT:˜Ò&žœ½Ç¾ß'Ðnó{º,±Újœò"ÖŒ“„5¬±¯ñy7.1Y*2`M<+3^êrüø†ò³ä&ÿnÖ_“XF#áBõÓþ ¸°ê°"úÛ®éhtQ‚Ìb‰D›eçk‰á#ì½1g ‘¦’nZ`Á¿DÅ…;ä†-D{äÇqïÄ“³÷p ÕmnOsã­‹’ÖBÖTæn]'d6§ÂšxyšïW¤ü§ÿsk®[.&±´_‡Œk¦”Ÿ>â2Šz °X»J|nQ¤t57‡h\÷{Öe)-¬%†°%ÞÄ'–}nÁ¿dQÌ·Ÿv ÊZÖ Ý÷ÂoBd®ÛÌžÞ'ÊéàU7 GÀZÐ`-¸™Í±°&6«î¡}A’{;¿¬`­±å½ƒXלD¤\M„v8 Öóm°Xkx}Ak#¦¯ÏÄ«ç¦85ýr6.Â&²ùö¾–\CâõtOCüÇ Ó{ý–.΄È54X·™=•ûMÚb8Ö‚kÁÍlÎ…5QÌ_ݪúÏÇ¿?öÔÆøçÖ[Ý R ÊAš©“ dà(Ök€µFV©«m]äŸR0¿GÚ¶ƒô˜Y aKœf'yÖ[0à}¥ÕåYcN4Ôœ>ë¬q&D®¡Áºí·§|¬A°¶¢¤¤$ÀZEÁÌlcKJþç`X )Ö[ý `m¾˜€5ÐXs°vGã@ä$X“5À9™mòk€µ0ÐÓ±°6_LÝHÀµ(qÒ$”ï¬Ö ‚k(À`-l´Ûèk7Šh˜©Ók5„1®k€5‚ 2VT»¿Ÿ[å#Àd¡†~Ø¡GP}Ðxa|.` °AP„êýí?à @p;5¤êÐÖY¿5b5WFT_„B ,À` ‚ ÈT~:}£™ëí˜+ Xkd}ä6€µdŒ$¨þ§©%£X€5ÀA‘©<¢bÈTg2 °ÕI¯ÀÚ_1” úëÄJ +À` ‚ Àñº(/ùIϲ|Ö +=lk%JfjÙ ÇÀΤ¬Ö ŠH%΢ 8 ©NmJ ©O Xkl­¾Ÿcµ¸| %]©L­Ök€5‚ 3 »ƒu!s­ *ú?{çEuÇñ £Ùoœ­é–ÂHÈ£y /Ã#R(å¦IˆóÒT,… 4" ò•‡ÁB#Bc«”Sµ¥‡GZ[°…Ê–¶öhgwg_óØ»f×ý~þ™Ù;3wîÞ³¿»¿ÏÎÜÐj1e­Õ ø{‘~Œ$-øPlÚe²F!„´3’B¬Å”µÖça™¬a QÖ¾,[ÆnddQÖ(k„Bˆ•è@Y#>RüŠ›«]íÆ@Ò¤ T±¼Óf“°›‘EY£¬B!nœGôDÊñ•£/8T-î6ÃÈ£>¯û€½à.Bó» ,ÊeBqe>вF|æðÂøhÑÔÒ¶–REˆ?¨„ÃŒ+Êe~´»ý(;h2ê’j)kÄW&å>žðCˆø‰{”5Êe†tY‚·Ù D›²Ÿcré}”5âé ¼¢FüʶþÃe²F ?øPlâ‘îÝW&[æM}Î eEF Æ‰`”µû!$d7Ø !@keGP²F(k„²F(kV „HRÒБ½PÖ(kLþ–77ôÜw?{¶ÆQ‚²F!dl=ËN ¬i2@ÊñHýˆ¶Ô ½Ô Âlö‚^¢f3¾(k”5B!”µÐ…²Öê” ƒ»ðƒ¨“AHg/èe¥ÐÈø¢¬QÖ!„PÖ(k¤¥Œë(”ósHY Û¡#Œ²FY#„BY£¬‘òAXÍÏ¡^þ=}S{A/E…yŒ0ÊeBeM›‰”5â‰ra7­Â‡xú#û@?£… Fe²F!„²æÂ…üôú< ;^×wÂ9”5≫¶Q*H`5k8#Œ²FY#„„;3«Ù ”5œÍ¿î'A–‚‘ð…Æ‘‚²F 'R¢qƒ½@YÓ柳Fèj„¶F(k”5BHkÐ ø1{²¦=¡¦@fj=Ž ¬Ê¡¬ÊeBY#­,k=èëéYG€úµ«V4©µAžÉQÖZu¾ÚR&|#}Jç¿q–‘FY£¬B† ”²(kš\ŽŠ‹¡À0qÑ¥xŽ²FÔIß}l …¯~™B¡›(AH`/øÄ!#ÑFY£¬BÂ…²áìÊš6Ï#öoâ¢[ú[_÷ÆQÖˆ§–9n–½TE¥Ð Ší3ÿ„ 7ÊeBe-""‹­Ës8h]fÍ”5¢Â4—©‰è”µ@Ý9X¨á¥5ÊZèÈZ~ïã͹M}ò}ùÒŸyÚ©CÞÍÊä9—V¨li²ÖƸקx¯)»TË{àÛúšÒ€o:Ö×6 êaZòȳέ¯-›“<÷“¾ö×Eu—Ö˜’þ¬–é!!É”‹¹¦Ü¦ÝYÊ-òhÏ^¹ Õ\ùþù~qÖªÄsmŠƒ•£‹÷ÉC«] ­ z"eÍ$ÝØß IDATöx±XW¦âMÊQò¤ìŸhNQ*tÑVf±|c¼0}##Ž²"²öø¤!öQ± \wž3»7Fø!]š_h;óu²faW}Àeí¥Bgj4¼«tÞ'ÚI%Ÿ§J%'lIRþ@éuå8&½„„Q¤þn¶|“<ÚO?c¿)+_KÖ´kS¬]¼HÚ­v/^Y‹—Ül°Êº²¹”5¢`X¬LÖŒ)zèr¨úö‚}Ve`ÄQÖBDÖf¿*‡©O{ã÷‰âÊwôf:}àY+Ógu·ÌÀh5Y[#Ò4&^lXÅŒËZž˜wÙS£Ùâ3'EöÙ ²]ÓkŸ†´ÿôŒì$¶t€åuÖ›@üµÈ•ÀšÙÌ{ 9:Š!\Swt.#»&öbÑÝÖŒÜ#Z×À™¬e.Z´(ÛSmŠƒ•£‹÷ÉC«Ý Š-Ꜳöž±.GS¤KlFÊ‘óÎrÅãøòOIàrpBY YË>(~×ßëe]½ ÜùJeíÀÄÅ`©š¬UK«ŠéÍouU_9ý%d­o.œ©QŒè‰–_Á£NOZ¯£MFÎËÊÇfW‹ËaÀ˜q™Òøó^BnïI©öŽF×Y–aï¯À"·-Šhǃ[3šq²¿¼ŒCœ·Ú+F#’v«•'ö éŠZPc-ØŠDÊ‘sDùìtô£RÚ oYÛ tu\Ú˜ëõ¥:þ‘µ]ˆ.EfTz’5Ã`yKÏ¡GÖR2Lp¦F¯™ûm·A¡%Ýl°ml×]ÀvûcY*RšS–5\Ž7¥þPȳèðâ‘Ánß…9Î Y—ÑU{íI>Áуa‡Kc†úó]+úW1ÃH±Q»©°×BªÁïÛÇ—*#sÛ"öw¢QQd}}ˆQ—5ÍÚ+Gï#’‡V+O¤²6ôKqÙ& •?—e&TRÖˆœ&YÛK£ ”5Ö²¶0w$O¶õ¬-VY²3*<ÊZÖÄ® œ¬U/Lƒ©ÑH FÚ²Ø.¶¯ÖKÇ4–X-3V*Xd0¥Ü\)}_™öÙ ôNxi¡¬5@[Özó9NY«.÷–¨õß»Vô¯b†‘b0C™9}=díYà-iµxÏe‹2ÚˆcÄ%UYÓ®Mq°btÑ1"i·ZåÄA*k,ž#"¶X~øÈ´¼x²FdLƒm¨:x`û üW¨ÉcàQÖ‚\ÖŠÄLÔm¦×*iYòSi”|a¦­`è © i´¶¬e(÷T+pRoDìhú5èïQÖÖÚï“”W&ÊÚ–—ÍY{;ÇÞœ©ŸºÈÚK“Fnè””ÑËàLÎÇ¥-«ÅZ¬Wx^ûäÞÈ ³œ×hNXWƽ˜RþøÌê‚ÃbQ°_ÿ„ý|œŒÅŽktQçàô#ùÚÓrtckcz#9ÅuÛß“ZÿºÏ0RìAYSJ1)”Þ×{N÷þ8é~=WíŽOä1 RUÖ´kS¬]tŒHÚ­V9q°ÊZD£ ˜!.ïJ¤ËÝ(kDÆmUYëE¥ðÎýGk&²|ç·‚0ŒGY rY+R‹TÊ‹fóPÍöy Øö–‚ÚƒÀ‹{64¾´)¢Óm€>›7ÆWK4s÷+÷T)p¥(h6#·ÄàQÖú{ ª•™!¶19ýì²ö-À|²!òÈ#bfð§¬Õ/4L°®í‡o)5Ú LsþöÝÁ`¸ <^²Àò¥‘¶×&6EËÝ9­¬øª“Ï.£¬ŠE…tÝî-`ŸÞ />P[ ³óág`6Êeͱ‡ö$ŸÀàÖ˜J,ócÕö÷¤è_Å #Å”5Çž)•=\‘VóA.[”Ñn»× ¾î{ÀÝ(UYÓ®Mq°btÑ1"i·ZåÄA+kC÷Æo½aýÅ\ò$Ž²Ö œV•µQ)¼Ã‡b·ð6Èÿ³wî±QwÔkÙoÆø8öùLêÊ`l\׶Y¡v1á‘´FŒm\ 0Å„gŠ¤¸BÂ#±Ä`@ó "4`ÓR,ª @ ‚†HEAiQ›¤éîì{gö¼‡÷È;ß|»÷›™¹ñï³³¿™›žßå=ÃZdÃÚ+À@ÖùõÀY#vÍ´Dñ¯øï5ÌlÜËCò³³Ö’†”ËË’:aÒhi(>•(ØÃZökÓþèǘÉ3÷€ÈfËrºf+°3 ½å°?JkUXKŒæ÷Þt×èUÝ+(¦[J6ǪÓur¼Ö´8åxߦ0z”ê«`6¼„¢ÛÀaí`WÉVXS-ìÃrÂ#ÓÅä*äí’Ô:QíKEQíTýfÕ6X븯OTío`¦l˜"ѽ]ºýIØb†ezW…5ûܨÄÔèâ`D²¿jFÁ‘ k:(siužùé´ˆwâ8¬} Zëg°Z ' kaôÂ=ñcyÏã°Ù°V$1N¯Ö—ir§ B]:ª”GÊ«å* ¬‹ì2Aú@YÒI *š*½³˜\,°aMWçèÌÚn2¬iNÉàP®ÀÚÝÙÀjÁ)¬õ¶ÊlXV¤ ÂWƒS7Š~×” |¡LJ.“W˜97ŒåÕö«¯Ž^$?•£€—tÌ‹Ešÿ™ºCüÙ­°¦Y8 ËqQæ‹ù°Ñ½¼µ:QíKE±hWZˆmmƒµ•¬½#XÛí1Ko,3|Ãêíä×5ç‡lX³ÏJL.¡ÀU£àH†5³^æ°ÆeÕz¬%q à°F­yƒ÷;kk‡€fÆéó@'åãV Â|àM=Îâc ÖR üƒ|¢,餺†î&ÕˆgcZƒµ¤Ù¹K°¶Ök9».”ëÓ'ãdXëXaœ?jÝ5Ú!Ò¡ïV$½¯ã„ߊ’oÊ3’Ÿ• ïשp)P9í¡8—È%8 xq®l±¦/iG·»I°Àšná ,ÇM™/F¼Q¤Î{qÅ.dm®µ©}ƒ„'Y-Ú—áTÛ`íià¹hªð `˜ú¹ ßн ÐÊ‹7ò €|&¬ÙçF'¶Ž.¡ÀU£à…µíÛ¯šŽk¿^Áa˪[ X»Êy¾ûégÀ{ˆ™»k™‚Ö4|w¼ZÞ -[ÏsÊB€µ3)@Zó«w~ƒ#Q*µz*óO=âÑ•ÿš¬ˆØÕ‡Ìù\JVõpðâ\»-zœŒ++¬é­…å¸+ËÅ܆¿3YSß XpµÖæö žd²à°í°ö'à¢>%gý¬½]S}ÐÈ‚5ûÜèÄÖÑ%X£Êa¡°L7ÿx×U›’©gÙ¯8M8ÑÏ~ÂÛ€Ó‡µö k/‰@Ä8ý8²´Ï_ë„ óà™jµCÀ*e± Ê’NjœàøR$žû¼àÊê{FXSɽå•e:³€H¥ÁÚÜOf^YN¶”%`“)Ûö Ö„y•r¢ªGÖKO«œ$ºëž¤ºûﲶp_ï ‹B xq¤†E\rªq=†‚5Ý¢•°we½ÃWçf­-í$<ÉhÁa-êaí¬º­=u;S½Ý  Ë«*¬ÙçÆHl]B5ªFÁQkbíÖ¸( ¡Fœ)œ%¸8¬qý_ÃZ_ Ää“Î%³ ÚBùYL¢^Øo<ß0ÃÚ=JZ”Ï”%TÕ šÌwý(m,Eï\;X„ŸËŽY@ÛÀVµÜf9BÙ_±S‡µÏÈkÍÇ7¹FÅùÝ *7¥ŠÞX™SÑ@25dÇ1Õ3Íõi¸F©”c¼8Ñ=h­'Õ)e¨`…5ƒE+a9îÊr11@ò¡“µ';ON§ºXkKûÚ‡'™,ÚŸ*Ñ3)ÖØvW¤í3¢Hb~LŸ(~Á<ƒjîí=/ö?¬ÙçÆJl]B5ªFÁ‘kgF'FèzÿÍåÀ,k\fµô¢ÃyË€“ÏQ‚+ì:v†÷>k k¢·€þÆãê^—†IÙõ™µ$ Ezr²9¡ÖzÁûá­I³%TÕQuº«l  Vo0ÁZ®˜ÁÊÌ k9¢IzÕ+t×`í¼4#u%XSõò0|¦aáÅYD"EÖª'¾Ø°{–u³ÔuS¼8Qàªú¹¿_þ5Ì°f°h%,ÇUY/¦.qò3Ãj€ãîÕšj_»ð$³EûS:Ú®‘ÑTáã€JããÍKõP½Ý(z±`Í>· ‰•Ñ%”‰*‡Qp¤ÁÚfÛæ,‡5.“ò=-~ÚÝt—Ä󭞹®¾žéëxÿã°Á°vT_âOÒX ¶£ lP>N4¿$Mõö½iû@æÀðÒÖìs ’X]B‘¨rGÜk—lî—ÒÁÖ¸Lšèñ”‹-?±R»Ijøâ"\Aƒ=žBÞÿ8¬E0¬µx‘rD?Ò×o›-“¼)öW@V±CXk=P}j4Yþ¿A_xñ-2Á²GG¿É’85 8•£8 xq  ÃäÑ4¬-…å¸#öÅȪ…¯Ì­Z3Ú—žÄ¶hOjsÌÚ(àD4U8'MÛf½Y¿³I÷·ööwõ½ö“·J§`Í>7*15º„kT9Œ‚#Ö¾³0K’¥+yNEBq„ûoÖúK<óÉV|¿è·Cþ/·÷eÎNõDã¼ïñVxÐÆ+ôÄç=ÃZäšðo zzpH_'uG®+“€/a0HYAd>ÈŽLÔ¹¹Ùõü(K:©ª @¥2_ò¤40ÖĤ«X¹S°¶P‚Óú‹Y~¨Áš41ÔìÖû±DÈtœ“þV+å3]ÈU‰žéÈí:âÃëV¾+^º>«ã0àŪuÎ)Ú3~,œ…å¸"›‹QÔ XãR­™íËO²±à°fÐÓú|TtHìÉÿ!æÆb‘éko¿ ÄÕÊO)–M,X³ÏJL.¡ÌõSåÐGÉ#‘/k[Fð{~l"_‰>¤‡"Ï Þ ªÚxÏ=Þ9¬E0¬ ~\äŸûdÒ n;”íȲO{ˆsúŽikå——7#çÅÊo‡}dHÇM@ÍZËkfKꄪ²ýÀ9é›Ü@Zä;X«ÝÛ[y>Mef…51ÕM™ˆ9nÖa-1 ˜BÞ±«¯ÛŠkÔèJ¤VÁ{LéU~™éP•-_úyÒ@#ˆ}$¬Nå /5ä$à¥u%zuúÆì÷¤-†å¸!öŨzŠÌ±ºRë í«GÙZpX3ÁZT­)Œ÷#N깯-Vnì¢úúñ«· [Äû]šÍ-;,Oeš}nTbjtq0"i¹QåP'8¬qX‹ZÕ%rjx`ñM±Û¤â†¾¼rX‹`XÆÕˆþWÚ¾³]†Kk $ÈóE›J€êÕÿ½ö1à%KàÍM’9¡°‹htT:±$%ÍxK¤¨ü!÷7"*dYR'ô°  ëöÔÏ󀼿J¤øM™ÖÈ>k=®T‰ØYËÌÌ k»ôîÏõ²= ù•tX“æã¤ÕIˆ9´â÷Á;úøÄ™"ßM•ÏˆŽVàö;M=€‚uÄ¢Xuxwá%¯a5‚°(ð1WÔh%à¥uýÈ€ l>2Z Ë ?¬Ýˈª~›…”—jM·/+ÂÈöà°Í°&-B›9uHÆ2` ¹¡6‰}œÝÛË'cæO¸Y ”Œ˜°fŸ•˜]ŒHúµYË¡OD(¬Mù{çUuà`Ž°?…˜Bd ¼6á^A7ÈStŠ†wy*¢Æ¤q g…Ð Pg‹j ŽR±˜JjD(ƒBëT”‘qÀvw7ÉÞM²dï&ww¿ïŸœ{öîɽ¿¹çÌïÛ{Ϲ3 kÐð9²ÕdãÀÀafY³,(ò¤a/º+Ë›kUÚ2"#Õ*â;S‚K…ݪ¤q|í©¯ððã`í“_•XÚïöºSôV•¦Oíó}º¥û=k?÷Žk‚›[Ör_p-.îGjdi1ÄÕFü»îYZ·µåòROh³˜–kÿfÈÔ f”—El•Þ>îÿ„—Úù‹çi/‹eƒg v›·n=P¿G ÓrŒF0ªÂ'Šû)²ÀÏZ_Ó“¼öSþ —“µ6[^hrîÛÚ õïã%DºÞ>Ù=îªêj•d­úÖt_ö]îHÖ¼ÿ¾Â¤²z k¸Z(£TQÀÖ9ÂVÖ,–’ÏmÌLJ(Z\éEg›rÞœ™Ðï>Ï{Ñbò?]žd[{­DÛÎk;=©ù<²¦ÛS_ááÞÓg»f.oµÁñtPî–õð)kIÝg©˜½æÕ˜NÖ,ŠºÇØõý¼˜¹œË`¸eÍr"Q:=Yò¥ÄƦœÙRñqùï_²pVç4÷vô¡W6ÆØ&¨ å~»)T~³ÿ^jç—¦¯­ÿ{»ö4sÖ¬³“½5Þ«*k©………GkjM?šTÛšǦácY›Q,Ò¯[ÁßìÊöŠ}8‹.,l†¬!k¦æˆRó¸¼ 'M©,¢`8…J]§Ï"kfµ{<CWˆ<Ž²6|¹TäJmE:~ƒNÿZ¤§£bÊFyl¢£°9VlŸùú „ â¤åûß•§Dª>Pð ‘ÛéŽÂ¿¥c#G¡·$ òÙHsi^[kúѤÚÖü86'éÏ‹GÖìÃÙ»Ÿûò˜È~gÍXd Y3õCß©R —²Üœ£&ñ²5dÍ\²ÖäÛD‰3j5¬ ÊÉ”Š\i¼Hj#WÊÓ_&8žñ~Cd½ë³«ÿgïÜ££¨î8.°äòJiš‚k `B¨ o-š†h(̓‡@ZÞ BDyÉ!D €„òŽB@^J±ˆõP)Ô'–j´ÈÁUéé‘W[OggîìÎÎÇŠ3'³ðûþ³wïùíÍÌÍïsw¾w€ž»Ô¼‚†—¶aw­;XÎòtÎ=ÁÛ'šýÜ“®3ù|9jÑ-dm"E§^Þ’ õRñ˜¶¡ž‹S”b7@¾r žfÖ°fÍ`41fß7EG—Êa­M<ÇÈ¥@s‚5‚5ïëEŸo]Îkîè’júœ×MŸïcºj Ö¼kl½š$ÜF°¶n>Ð6˜+uÊyË(à„Äl³É+¼öð>ƒ]j\!ËðæËÓ;÷oŸhösOúÎlrÖ,Zp ÙÙ‡HQ©ã©èÏ‹UÀMË à/² à’5¬6¼‘ IDAT™GGóhö}Sæ›âP˜Èa-cï¬X^†ÅkkQ ²µéìrAµÑwà‚*Š¦‘i`Ík°6èÂgƒÇnMLëX9I½-ðÔžñҺϋ­ÜöêöqíKcù­ñ Ë}ã¹ÔU{‹’$’5Nµ%¾-q‰M‹Ôß&jíÙûTjÖ”‹¯Ä˜–6¸&–Fö1¸¤\ûs¥ÿñ–ÞÀD9!û¾õ.5-ᥨyP €Î{‚·O4û¹'ÁFÏÇ‘£ÝB6ö!Ï z¹ö?-ª¾–]@7^|xI;ö4ü/v¶K/C­aÍ<š8š˜G³ï[@}“Z ’Kú„Ókk”Y‘HNçé$R¼ku—SåRîNžÙMø³üþÍîüý€óʦ—Ä+Ú¿ ÂZß8¥æþ™zX{›·lUò¹²b5o,½nZáÁ aÍ6F(Wj_˜ÏB¹Ò    ÀIyaµ~Œí{»Ã² &»Ô°Œísk“п®ƒçžàí*Ü“h#´÷ù8sÔ‚[ÈÆ>D°¦êtÒ»Ñôµ¼¤.ÂØT ÊdÎ(‘^ê= Ö­<óÙ3X³Š¦MÌ£EÖ·éH½— °–ò0ƒ``+‰hÆ”ÛÖºSd·FƒU@ËòûÇþMÒû£³áÿò›Q×$ˆJmØàÐd`ÎûËnô1 ¬e¦có‡å¿ƒ|›auÆ@»ŒŒ˜@KN<2——¿#µü<°iC ®jèŒúKã÷éAK\+(Ûš¯¸®2íÌs¥»{xKo`c™¹•,6ý`]Ã]jT&ö¹C[·ÂÉÀzçžàíÍ~îI´Úû|9jÑ-dcò‚ÖÆ^vÖ’¿¹åUÚ*B¿E…~üR%vÓÁc+0Mz¹ÿpy|ÿaÆ°fM?š˜G‹¨ow%à ÓÁZvç¢sÀá‚5‚5J¬H$‚5Sn_X«ý‹.÷C]P,˜(ÿ ö?–öbìSõf)¹mx=ø …cÅH<+Ãrä™õ¡À‚ÀíbÏRG cŽRKÊ"$ ”[Þòc@…h ÁÏš} B¹R9_3@Ò2 +ðƒÑ}/¦ò<öä\£]jRfö¹KÀ$' Î=ÁÛ'T¸'ÑFhïóq樷}ÈjÁÚ`àVסe/<'ͤM2ðžá6ç3¥×ÒЗ×rµ!¬ÙFÓŒ&æÑ"é[~|¢ƒµãò3á ÁÁš×µN,RôiÙÖÖjÖÂ$ÿôņ™1ÁIÞeFë,¿=:«4àg_ŽJ¾`Ú`¥‚d”ŠÅ@¬ý–©(µl“PŒú'ʦ:Ѓ °fÃεಶyCY¸Û!X{øø;Qe°Ö¸W-'á9£MŒþ@ú, ±~›Š6ÃWë³`Í6Z蜳ˆIß!'0ek]å¿ë–±kkWÆô¹tf¹¤]ChÅb—TçÊ?iù~‚5ïÀš¿)_ ò °‰oP€924•hvÛñâ)à/ ’]P*.oê`ík¥ås`cùýþP‡7ÍAK .Àšm ‹‰í>À;›ÛÌÒ!'0ö4cŠtAvÖz Ö ísÉÒA¬q4°àܼ}B…{m„ö>gŽZp Edm"X“4/}Z4ý÷ý+Ð[-߇)[¬^ħ„V£e/e–¢;Pfk¶ÑBçœE´ú–çG;¦‡µ¯‡t]»\bÀåkkÞV‘Ï·†Î,w´ÚçëGß‚;Êóù¾GW/ÁZ ÃZfUUÕ—ãýR2\éq=âƒ÷J,s=š,ñîYµr;p­ WG´–‘lo{]F2-¬©-±ÀàÐGgç–õVˆ %7]ºß4†¬=‘´Þ]¾ñ)ìø)È+h’ÌÝz ÖŒís£€½Îœ{‚·O¨pO¢ÐÞçãÌQ n¡ˆ¬Mk’ †±hÒ«@Wµœ„–âK¦[ùÀP­šgÁšm4í%l;og[b|Šk²2Škk^VѾÏi}y—DÅvOù¯ûJòèú%X«YXSúZ„µŸ…ÃÚÜÝ~å®ËÒ† %aÍ.†e®4lùCY#Ç÷Í–R­RyÅ·žjK"ºG¬Cp] § Î=ÁÛ'T¸'¡3ø|œ9jÁ-µ©Æ凃:Áî ýÌ? hªo~Fîvˆ»=TÀšM4³ÑDͶoc¯1¬u’.P‚5‚5O¯.2vFX.‰nƒtQÉ Ë¶ÑõK°æ Xc»âÕ糚_Ö¶ÿ’ uo–Èu‘É÷FÖ9¬åK;§Wn\¹ë({ôÄà¢gÍ.FD¹Ò8)cl„&A]¼eÓÓ°Ö¸êp`ѹ§÷ö‰®IèL>gŽZp Ù[›Ö¢Re€ú˜‚'ÅõrÎÄ«0†Àšu4ÓÑDͶo ÿ[5 ß- í ÖÖîø¤êŽ-0ân²N"Xó¬±Ñ@Ú“<‡ˆ?ªÖîBëÙ÷^î—ÙèïêóoÖ:}Ú(‡ AK .ÀšmŒˆr¥Mòεà²5#y@ÞX`¤á•^Ñô7ið1ë»CcE±@ŽfÀ‘ö/®2X³Š¦;ç,¢Ùö­¨™ªLhÖLÞŽðÆÁ@s‚5‚5‚5‰`–ÛÖØÁŸfµòƒWzøcst*HRÓ»˜=N©Ø46‚µáÀMCX›ð%"ò¤ÏÛ ‚–<K•m ó\é²_Mú¥ã“Àk)0D©ù¡vÝïÂZ%ð„Óœ{áÞ>£ —df#”eâóq樷­‰`MQLj{£CÒÅþ'¹P/5¸’¢ó«­Ó¼—†Ã|~à†æ„ÑšE4ý9g-‚¾…ÎVų6x¶B™KXô%X#Xó®hù RT+ƒžŒM°æ Xc?&áäõÀAÙ|Â¥û¸(ß.Ö«þÏÞ¹GGQü¸ÍæãelH”˜@BB$[¤¼KbËã ­HŠ<Êi©Qˆè EZ¡EO ¤bô PA[KKUJ•*[8 Ŷ§”ÓÝìƒÍÞÙ™Ùìl~¿²3ÙùÎ˽_î™o&ÅõÖ´ã"Õܹ¶ƒûÑš¬}$2ÄPÖJDN¹¥l®såøKÑÒ‚ûby ãã‚‚'ÃèΛ"Í\?‡-–ÔžÕÓÒ®[D^ÉŠY»’ª?\ ÎƒUî¹p×ö…Úa2¡¬ÎÇœ³Öª…Â#!knÙì¥ØŽŠÛdY çϽ3=ÿÄÔÜþpë€Ê½¤çEÒ]~•µRä9×b¦9=šž´ÂEó{ÀÈ ÎQ銖4EdI_d Y‹WÊzN>àûr°ç8߬Ҭåö,)²óEFmû|Ë!‘Ô«Îí¿ü@ä‰îC‡o}@¤gÍÿø:4­Ï^myK'‘s#Y› ’²éµ3º¬•‹tÚ ô“[S\+Ç— dM î‹å%hŒ2ç‘at§"WRï¬|qâEŽ¹÷8—9)çß~»HïŸ8â_Öš›v¤_à`•{.6øžAl‡Éh‰ ÎÇœ³Öª…Â#Å™!5)Yï~ôkƒ5WnѱO†¦œµ^-¾|(ΉFÖêÂÚWÚ­k&ܼ(·ËÓ<j=B4XtYsÌòh—Ü¥m¾%ûË~Ï7Œf8…¢&­Ñj½gíh“Ž÷å¶~³å³d Y‹[¦)Õ–1e%¼Ûj¦¦«Ìdd ÌáЮÄ;§Z+½£·É k•{ZmŸ¶Ã:¢jÈä³Öª…´ÈÊZ¼$-d Y‹Ç+kç3¤5{óÖ‡c™ÉȘBÖìÇ\Ö¦‹·"p`åžVÛ§ûYG`c‚W ™|ÖZµ¾À\Y37i!kÈZC]O5hz(E'[¾bd Lá#ùy‚ËÚi‘ýVÖ*÷´Ú>m‡…Îؘ UCfŸu`µ¾À\Y37i!kÈ®Öi´üò z[#» kv`zj›¾‰wVµdíE‘·- ¬Uîiµ}z±Ÿ…ÿ’ V5dúYT íðÊÚêòòò:Z¼™IkRyù5d YCÖ°5² ²·¼”DÄž½—¤¬¹?Ik`Mƒ5d W@ÖH/È€QrY«w5d-.2îÕAŒ'Hr>¬ºŸ¬Øû½Y‹ §”ºÂx‚D`oºZÀŒFÖ5d-QøªR»N´Têæ4²`Cú¦Êdz5¤³Z7†ád99WßéK/XÎ…)êsY°#ÿ]J'²Ú•µYMÖ3U©¶ô‚õ¼{Óæ4²ÈK)ˆœl¥ è…˜À”FÖYc%È²È k¸š­¹’®¦Ò Ø9Y@ÖY‹7²wÒÈ9Y@Ö BÖŒ;ÂH‚DãóªÌmd Ànlßq‰Nd ü(8«ª“J`|¦Æ=ÍìFÖìÅàNò½Èø±P©¡Œ$H4¾Pj8³Y°ƒD&Ò €¬ TŸƒŒ$H4Úªz2»‘5d Y³5C ËH±¢E7ú V¾…Ö·Dª<¿Ù"òk¿/þ]docs†¶¯gYó/’ÑJU’¯å{öì/Ž"fó@Y R£ìùíÐÛbÙi7ƨz(4¿˜ëirÚöPæõöÎ=8ªêŽã´lû…fÙf©d«Ð@È Ĩ)L"`Áa M’5 „L„‡ jHP†GTHx9D%ÈKä‘ fx (¯ U°£-„Rt¤ µ¥´cïûÞ=çÜÝ»ÛÙY–œß?9{îÍ/¿s¹÷Çï³ç|Ï GÚØJŒULÀ|B9ÆÄÒxÚºP©6Y§ È!4¬ð–|!vBláQ[ó€f:ã°Æa³ZŒY&+½~š§ÃÑ™_INk<çÜ°&Öf¥ÉzÄwT¿JîYÝ)!£â½Zåc:ò„Q?šíšþ]¡ ô~ýÜ¢ÔƯ³”CµKç-JX~®e‡ŠB²uføßćãS]Z8ÁÖF¥Ã}ˆëâsRº”´ÔR>uÛ±ôµù®þ³?ã k"Œ<´»^hý øVS¡¨+‰;äÆ\}¹RÚF¬òEÖÌ"Jª"ÄyὕÙ.)è‚SB@c¥Ž¡{¦:–ˆ › S=Рˀò¯ëÖlo£LÁ–,É®´‘Ú6w90¦Æó"°OmŽN1Î0%"‡Ð°ÀÛ·À!°ûb› ÌPZKàr2Ó‡5kQ´¸ìð['d»ÌJ¯y¡ùà/ÅŽšý«ÃhþäsX‹(¬ùÄ"ÖoSüõgÑ\5_,š¨ÁÚ6y!ÊJÛÞ¯zW.5Ž/×6š}‡+Ò‡ðl‰Ú±`¥ ÖVŽ¶ú‡5@ÛǶËP+X;œ«e´’A`­K,Á(´>ö«GjÅ_6–Ú‰Uùsú§kp­¢ k~"Jª2br/Ë—¸jí{%4lu %Ø3wP±DnØÌ`Øê¡€v ¸í”c÷`ä[²$›ÒFk1j§l—ì3à }‚9!9„†µÞö¦Íœºðç“,݇[p@n f§3kÖ¢gÇ;:þÍoí+/#½^á°#vÒáXÏŸ}k‘„µ" ÝÇèß/T|Õë³æž8Öžt»ÏW5%Š…úcHÜקÁHýçôƒçÖ·²E¼rµao­È^»ÖÇðqCüå×– næ×ê°öê|Å‘Y̱X²¹nkƒÞñ~>u»H9¸¦ÝÞÇÔEFÖ°ö;©°6 ­7Rã«èDý´·€×ŒßIÀB!ª°FˆdH©Š°¨S‰'„õg¤€†­Ž¡{æ*–È ›Œ•z(Íð Ü©4÷ÛìÈ’ìJ[%ׄµýbrT"ƒ_Ö–õ2“‡9!9„†µÞ¾€§Ãébyv°pBlÉeÀ›¥Å…-.Œ;ËNgÖ8¬Eͺ÷ptLã·NèVMgײçCsÑÖá˜Ä/dtXûzþôsX‹ ¬½ôeõ¯N¯ñ =Y†5Ü”fÞ¤y´íÅb«'pNüqA[¦#ÒCžôS×—Q>ßHK'}Ãg4XKŽf}$OÿÜÌE§ C³æœ†®»5‰+„ ïY3 ­*£Z¯úëg4jÔ"ZV%.9£ k¤H†”ª8±Jë>[‹lû%4lu %Øóë c‰à°é`,ÕC¬ðGµ¹ØeG–dSÚØ l +÷hX«ÃÜÞ±8,åôÊéÌ È!4¬ðVb\®øúîmÆV¯:{{E:ã°Æa-jvÅáø˜ß9aØY:» ÑŃ»gÞÃ/dtl¦Ã1“?ýÖ"kC€Ý‹U>ýKÞgX»*þ=®èýäi‘Ñ”ý#sKZÌ°Fù¨q#>_™›(À|Ön”K‰¿^ïE…:²T™u£`íˆsjó P ¬=l(VÖ€Še”W;á&tú‘t\©·DÖH‘ )U™cH8~I SC öü;ÈX"8l:KõP »8yçPµyÖ–%Ù“6¶‹S–ëYÁšˆÉ5¡ À:­Ý ¨ã~ !(¬Y{sö:í=ºâh‡qÀ‰4k÷vc+Z ì”3e†E:ã°Æa-jv¶êêoùŽ&“kã‡ü¢ÄŒ}8ëZú9¬EÖöÍŒî€8µY“€% ¬)r¶ zÅrn§ŒSM~µ«V” ÆôFæÔÅNÖÚ—0¦)fË Æç,XËÚôq¡1ÑQ ¬ n’Ì-—Tò†Dé¢.Šò [ˆ2¬"Rª²Ø$Ömÿ\7)$¿¤€†©Ž¡{þd,6Œ¥zÈ>z4Ù‘%Ù“6rX3`íææα4¬#À ­=³©ãæ„Ö¬½Õç">YþåÀak÷öbó%OfÇ ©–ÔÃìtÆaÃZôìA¾{|xöçÿܚў_“X²ŸògŸÃZ$am°Ñ}n}yÛËÀ Öz ZÞ¢´º"¥ziS†N `òñcàŠß_ÉÀ†3ÀtJ3÷=Lµ yúÎrëþ´¢Ã•Š‚Ê>¬LÒ›«®ÏGã¯P vº¯MMˆÇÿX"9l¶z0lXÛ/¶£mÉ’ìH[‡õD0‹IXëüИSžL6%;°Ä›j÷i‹ÉYîmÅ&™¨¥Àuo 2qXã°ÆY-&í¯™“Åÿ¡»>qµ6¬PG¼Š IDAT_¿çürZã‰çî„5ñÿw5Ãå£cfí#iã<ÓË@±­YÏñV\ŸúbŽ´º2TXÓ¬³®ØKv4ð%ú“;ÖH©Š8~U{U˜A./ `”€†VÇP‚=ªƒ’ÍDnØêÁpa­~š±1M0YRpic+±§ƒÂš¬Uó¥bl, ë0ÐSmŽ¢ßhNv`-°7ÍžFXº·Ûm?'Ñ‚‹™Î8¬qX‹Šu}øûü®ùíO¿ Wõ÷ƒ÷ª~ï_gF÷ô<ʳ‡µHÁÚc7@Éž\í¥¢ÂЛ5ÊbaM.þó< 5i`Eùh6Þ¿ýê¡dÖ6ôò7è/ 3ÉŠ> kƒGõ%–áÂZœ>‡–iZ•tGÂ)U9!¦^ý5Àû>  ¥Ž¡{´‚’ÍDlØVêÁ0amàl :ͦ,)¨´±µØ âEKJJbbšØߨm02ìÀŽXÖ!`µÚC¯ÅÎd,S kÖÞnö訽Cè…T§¥{[±1=¯sõÛÒ?qXã°ïpÔó»&zÆ_Š]«u8&ò,Àa-R°ö¾©ûýj©+³aZqŸ —#–°v±OõÌ&åuTXQ>:eÇj™Û”—bÿè5Â/¦k€æ³¸¡i ÖγIå ÚÙ†µ7†÷ÕÞ!=\Ùõ_Y§¹X;uY’f©X”””w'À%Ué+“ÚqíýÛ„dŠ€†RÇP‚=ªƒ!›‰Ô°­ÔƒáÁÚ£½€cY¶eIÁ¤­ÅîÒ­û³Òõ×Ã7fæ„`Ö¬½9Œ´÷ð’µ{[±m1¾Ú*N‘ò'#qXã° TåË·íç°Öjíù§cò<Àa-B°&Ü*k´WïJAÞwä’SçªÛ`m ºÖêŒ%í³'2ÙËG¡•Ê´ÆŠi(KÓ`MšÜñ}@)ÐOÝ|Ð`ò©Û+@½®-’'ìlÃÚV1mòâŒzx'ÜŒ}ÇïÍ%U©Æa.Ç», !Õ1”`Vð±d3ÿcïÜ££¨î,x%ùU¤‘%€i@0$à#ˆä!‰@©G J ‚€ XAm"PyÉC©ØD°6z´"ôE°¥jµ 9¨ÔGK[=Z=½ûšìîÌì#ÍîN²ß÷Ïλ¹;sÏäwî73¿{ãsÚ¶Ùƒõ’µúBË!-)|j#²Ö¸e-ýB‘¯=³3ü³'ÕaÂÉš}k:ÎóÍ*ò¶ñOko¢86~¯oeÄÆ,Ëp†¬!kÉ`¥Rµ\4ÈZêR­ÔûÄd-^²vm;­F_zž7l|R|«žÙî×nÍ–‚GÂÉÚ$‘w=ßì0WrÜ/7žéeÝÆ"Ÿ»ùÛÅ“Þ⓵"·…¾¹Ðó å=¾~! MƒgýktOþ©>æMu²6¥ªjt„7 {ˆ´ñ¼¸¹J\ðî:7[–¥;YÖL©*3½1=Ü%ÅõiÝ“@šczÔüRh¸´™†=mÛRë#kºBžŠE›–d“Úˆ¬5rY«È–ÖçèÏåó}ÿeUUéaBXY³m­|žÈܶVtÈSùVÍ›ƒ–}kÏ‹¼éiddŽdœcÎ5d-ÔÞþú .š$rÞ©ÉYK&ÝìþqY‹—¬¥Y§]ÏþùÂa…î$ïmÛêQ"‹Vwò¸ˆË3{ž­¬­)YzËÚ]­ð½·R$§cÇ;,Úè ¿úÔƒCVÿDäù)u²æ~nÖ:hF‘Ù¹"¹·Ž-½°Ð·ü²Ñ¦Ÿ‘ÂöS¯òdŽ{Èx¬NÖ®ÒAÖ*2ÅuÃÊ™Ú'ùó“D–8]Ö‚SU´dÝâ+·*‘aѶhJ  ÍŽ‰NÖlÓfœ+kz¤œy ^iI6©)Ã1‘†‘µ/ÄUÖ8OìS‘K' éµTd³'êUë(. „•5ûÖ®ÊܧÍ=‡ô~cÙ¼Eвm­¢DdÕÞšÒ·]¾Û5æp†¬!kIaP7®™¤2YN.' kñ“µôiKŒ±WÁIÿÎÃþ¥´º{“Åì'™ÜÎ÷M×vÏ°bÂ]îÂým¤o›çÛñ€û–°!kåˆì:¤Þèoó÷!mú1æ;˜¿Ë›á½¬¥·)ñþiæ^ÿžçDÚ;ZÖÌ©*b¼š÷pÐ ‡á1%ЄfǘöÌ|¦c‰ÛiÛfÆ.k§Dò~KZRÄÔÆ”¡ïæ%ÂÈÚáÁÊû½ü‡Ù‰•ÿÖw¼3!Èše@/kö­µÌõÕt™lݼEвoíª¹¾š’J›p†¬!kMu¼àlˆÈZüdM÷wÏ_wqN»%³ÖA[_úlñÅíúß—f6Ⱦ÷ X—9ªËçþ©oî8>§õT‹6ôxîDÜÌîG/ó¾ ä—µôÚl)¬:¢Vcßž›“·ìÌæ6ý¼¿äòÌ[þ5µÕ”žUccµô›gvÉÈèòæcG¥ÈÓŽ–5SªŠ{uë•F~KÔË4›hl³cL'ïßa>–¸¶ÝÁÄ,kztœ7'¦´¤RS;Y3øeöwíœV>ÑN‡£K|Ws€¬Y„𲦵®½ÞêžYÈšs)Z¼° Êš9UŽRBΙ­».)Ù}“æšÐ예²fq,N—µ~"yx_§Œ”–}j#²æ¦7²æ …¬!k‰fceMg.€´ª]ۈȲ™²³)Êš9U¥èÛBïŽÜÚXÚ4%ЄfÇD–5ó±8]ÖVÆ ÿ›‘íÃþtÔ©ÈšïÉÚdÍ A+…dmÂÓWdlyâÞáÖÕÝ6µŸW·ôÉ9-µøÒF©rÆéI¦ó õ¼Ð¡á˜®T%ñYCÖ"rØ5#¿IÊš9U%ýðöU%wNìc•)&$;& Y³8GËZ¾XÈZä´¤hSÁÃ3©7ùŠ–µñ555}´n®©)MYÛ‘ãû—>ôUõìëi¨ÊµxRý…:;‚z’9W©;è…dóë*k4YCÖ"r¬œa3@HÅÿ¼N㜠µÃs@©!koè3Í>tôrýqgWsõÐ]±îhÿ<ýqw²GÆ*uqz²aQl'°F©]Dd YhZ²Ö€¤¬½§OôŠõii#^ÓV¶È´ÄTïî"—ßÖ--m_?—ÈŸµ822ëRÖ5ð† ˆÈ²õ¦É¼ot£H¯¢ ÍZƒHñµÞͽZëþ¬Å‘}¬‡|Z)Õ•^H~`z™x€¬!k€¬Uˆ¸Öø¶ÏŠ, ©¾V Ú&ßöEv k{¨9¸Ÿç›Ž€ˆ€¬!kò²öÈfÿ¶{ ¡iÁÕŸˆüÍ(Tö+Ý€¬!kØY€”eGÇGèd-a,™eÚŠô ®^$òáÿù È®€¬‚5hägÊnzYKÓE¤Ö(]-Ò1¨ú3]Ý YKû/ÙÆà i_V5d œFo‘™ô²–(6j;ß(}$Ò6¨zŒÈâ´´f'—,{q(²?.SYƒ0‰È¬!k€¬AjËÚ×ZÖÎ3J[EVU/y+­å¥¾E±ÏAÖâDm–*epî ƦœAR›ˆ Ȳ£Õ¥Ò^@ÖÅk"…A%iX=Kä• ÜžVâ±µõ±5d- vª¬2çŽà«Û+¢Á_¿P×5d œÆäÒ2:YKؽk‘Qu¥ÿj!kXý‰È–‹eËs?Oû e[]¹Ç¾¥#W_oÍï”ÚÐÂsLdlî XÛ9\©Æ²ÈšÓ¨é^Wj©}ìåÀêÛÝÏÓæ¿ãÙÞwTow°méU±¡µRw0ìŒ@çӬ텬A(§Y&¾©¬² šž¬ÝXý­Þq“ÿ¥°¢’pÖ†cÿd­š{Ö¸¥ Q±\©iô‚c 6ðd Y€–µ×D2ƒJô„ç¬Þ±Û(½(²4öŸ g%ÖÃ/Ûy½à '1@β)+kîÙ ëf Ù*2>¨z§®žc”Ž}YCÖ5â²)F‡9Et²–(zjÿêm”>¹1¨º®®[¬y´.•#k Í«k—3$°f}åhb²†¬€ƒ(º[^¢µD1]û×a£tµÈ߃ª÷ëê £4Y—þ¬50=¯S×1$°¦Tí=H”@Ö5p,Š¬%”."'ŒÂ"‘>Aµû\"¾™1Yk`>Tj*Crkæ(uŒ(¬ÅD3€xR$ò)½Ðh*C¡="ïú·óEdhpõ|‘W¿Û?ö_@ÖÂsJ}ûCrkš¢&õ$L kŽaP¶ü‚^€„Q%R8Á·}V¤S‹àêïéjÿDæãF‰”"k ͪŠËÐAŒøní}ô‚ƒø‹:…¬!kbï°Ùt$ŒnóD÷lîÏ9RýN®È°¯<›-n)‡¬54§s:‰ó•";Š!J k©Š{òþ˵µÝ»Bd™ofþÒþýû¯÷l}¨«Û¾§7Ê®Ð[_Öãµä zº*Õ“^pD d eé§%Ìõ@Åú£ÀÿH!Kºz7géM™{ü×.ýq¦3²†«!k€­Œ5€ñ« ñ²Ì¤ÈZڽžêÌÕ-êÓ<²†¬5&N?–Õ›^@ÖFÈ€C˜ðÑÄñ™¹Ï ižf%ki/ýc§œ›†==¥~­#kö¼Wó—ŸÓ(/£œÆô!µD d â²fËÆ[Ô.€HŒT·n#^ kÎàãÁé@ÖRJÕrD¢Z©Jâ²ö?öÎ>¼†+ã®;¾—ÛH¥·Ñ„{“„ÐEª‘°hBÐdQIv‹ñ²»‰i”­°H««^B¶¥VÓ.õ°Ác—’zkÕz©xJ,Z/Ëzv[/OWwçíÞ™;g&\÷&®ä÷ùgÎœ9s~¿™;çÜó™ß‚ ¿ Þ†Ëtku€eãLÏ&ÒB÷žeZÑŸz kAþ@"ð*‚ÄZ`À«¦rº>âÞ, ¾AbÄA‰5‚ ±VƒLú9]þGÛ¾tüïÓ©¿ ±Fáüitk46"Ž*6§³à‡PAbÍW¤§}Ñ¢%·Û­tŸT·§üþÊuÁÏŒ7YQ’qz4“ÿ ð¬3àkçŠ=–#l=©Hö•¿,ix•^›Ö®KÄ´/7([¿83#äÍÿõ7.Aµ†€÷I·ÕmØÉx(\×oÌ2-Ä2Ò í×þ97"·ÛXöóËy¥eá–’-Ý¥µŽP“jä—Aßܪï'nˆ¥Ë‘Äiµ:}›ÔõHµZ¬Í¸çüóo¿Ôûêbz »÷bííÉ£,í†Àgz(_ 䜼²ø-÷bíþýeX’¢ ô´”Ïal9çßárÎåPƒA<\ÔmØE1#ˆ´™kö`¹Ä½šÚÞ}ZÞr:ýþÅš‘AÖ7÷êI¬‘X#±Fb ±F=Rmk1ëù?÷ÂVnûºŸø›×õu‚ÄZý8ÞMÚi´ÇÇ¡O¼œŽ… øF^i¬|±vÿþjÂÔœ½˜  Í¥ì[É@;ɽâ(D]m’mâa»~ ‚ .ê6¬Pìë!³K¯1«ÄZ›üü|Až‚ ’¦¾ ´v—Wc ^³?ç5Õ¡á'µv1¸£ï—¡AÆ7Mõõóó›X#±V¬œA׆?2ÞdzŠÎ‚??tõ$Ö¼%o:?ÈØ/NÛ·Óª/xj^¬Ý~äÿ¾Òn:¼+¥B‹°E™Õ€O–רXëŸ e ×(nlÛ/ÏéEH!$–Yà8¥W‚ ˆ‡‹[Vè·û)LcV‰µRb¢-¿:Ñ£@¾[e|Ãß)È·sû€Ín[–…à%ý§ìÆßØê“X#±V}¬gÚC׆?bÏÞ¿–΂?²Á´â0õ$Ö¼äI eŒse9`éêb-ÖzüÂlA‰vS)ÐIJuà‡E‡ÐRÎÏE´½ÅZü (½á@›©Ã|)“øåF`¡´í ð‚^ ïš±a4^R/m_PDøóW†¸å†îsQ6ÈÎ=ø¦fn&øØ$sÔŒ&Ãœt:!"zòÙ]ô§SËîwºµa%˜é¶®mÌ:bm ð™˜hèÀ/Ô%"­˜oSÖê-»J`Y¬ï™±A­o:Õ“X#±Vœ¥—íÂ#ÚšLS©ç ±æ¥}À±@YíæýüÛ>ke@… k,˜¯ÝTì–RÁ–>xK\¬ãjN¬½óØÑ5Ðë È[ÆÇyÏsÐKÎh¼½ß&Rìk±Ö¡D®-b¹:; .±ÆÙi‚oj_›dŽš1Àd¤¯‘3JÓ¿NU]Éòz–Ú6¬ºA\S¯3™kGxIÎ:,P_qç4““î½Ù5`ª¾gUÔú¦S=‰5kÕÇËÁ¦•¡tm„,5™RßAbÍ+ø‘Å/U««6J¾ë<áA]ʦÊïà„£#7ñ‰_9JvŒá¸Ðãs2û¬_™(m:U:93"aN³YµˆLÒ©ƒãÌ{z„Y2ž=ç&Ö&ÂZéîÖE`#¿¸©šúÑ5ÉÄ4)ÕŽ×a«€×Å• @?)û溧-ѳ›RÄÚg_9>¹ëAû«ÙÕ‚¬ø‹mÚ'÷Ó9oÁ¼¦ÙÔ5Ðû8!oLḑÀãn;0%<„ £ñ’1Àü• Ӿ㾉*;Õ%Ö˜ ;mðM àk“ÌQ3˜ŒÐ3@Ћ٥‡€„ú×1Äm$=üMV8÷¯0™k€ÞrÖfà=ݲ¼©ÓªÕ÷­øÀàš®Â Ö7êI¬‘X«>F¯¨O—AxÂ÷7LÝ©ï ±æ æ M¤W…¼ìû¬b2÷8ÅÚò@1#ã©#­¥MgÄ¡Fy‚\2åøÑÖÁÅÌ–3-Q‰µ%E.墫¶ƒÜOÃ>PD Ës!øW/D~ 6¿1r½l#z•S¬m·Š!Ò³cµ»òbm‡°zQo =(‘Szw€ÆN-œP ç¸Mû;/üÖ „‡hCU¼…?‹wÅ×F/ØÐ>À5âž—Xc‚쌃oª _›dŽš1Àd\ž®ŽøDc×½bkÚ°B#`ÀÀw–ž½ ·]¦1³bí=å–ǯcºjö_@¶²š ¼màYµ¾éTObÄZ5Ò´)]á]©ç ±æ}B³N~c^@…ß:°Kbí¼Õzº`\?tý9½·7·ÂDÿ{sa»úãØ[¼Ðqð½xE‡+@§Ì:uÜæw^”•Ôy=0í”K¬u&UäÎR ýE r7±¾ñ㢱²;ð2Çý™âÌ’FM»¦³>_د¹Q¯IbÍë–¡•ë …ûËìjïzˆ ô~·Ò½ly ÷$àœ‡iÃq+€}Ë©õ—º%,"ˆÚõ$Ö¼â7ª¯–©éL'ú“ …ƒE±†”àá¹ÔwBpÊ`¿¨t¾ô³è(,]1`LÇøá„ðê¤9Vz»QkƒÃ€­:Ä ’aƒu¶l’ß8º‹¸D!pMSÀ!s`($§"èœ(Ö">Ø{, yUùËìj,›Í‰¾¡¯ ô Á³ˆд_íÔÌÓ+áÚPoÉ>•“#mrr¸ƒ‚d±ÆÙßT¾6É5c€µ˜ ›œÁK÷¼Zù7pæŽ÷³ˆ™#tA{Á_ç7Ï®ö®'Öf+á¡aBD,Ó˜Y±¦º ÒÖxD “4P•µÞ9#‰UÔú¦S=‰5k¤Õê G².M¢³@jº¥Z)Öן–c4ÐK~à6OV¼Xû‡¸~—¾ú:…’æ‘æÜ›3»™Zü0uTX&} eWŠv&ˆµÛ‡€RÖçE‚t'•MÀyaù†¢Q.½£—/=n{+ eòÝëRé_ÏGRÆ( Qþ²»Zîõ!e ×øDš^Á|ˆâ¸3HMÀ°e3†I¢0%<Ã8TåÁ¸Ùjú*9ÙÓu Læ2§X«"ÈN|SøƤîQpf´J9³à°×Ê‘$Àó»U^ô­[S„w—¿jr½º/,­X³Çñ]O£Èµ‘¯ˆ×i̬Xk´uæ…`‘ÖJOi†š JÎa¸æa16Èø¦S=‰5k¤Õê =M&ú}H­Q¿T;ÅZ#àCì@±œ¬Ä,I¬Iál•®ÁÍXí¢°§¾aì?L•Êc&KGÛE±Ö`¶îŒh ¦E À>ÝÁq,yÙ)=‘³gà('¼ÕfÞÙÛ $É¥Nñ»‹b-Už#R|ïÈÐ_vW‹S×ÝÇ@/8p[P™ÛøQS ÇÍäãÄ-õ»ËtJxüC釪xO±ÓS. Ž¶œS¬Ùi‚ojß›TŽZ߀+ã÷À<1ç§ÀÿÙ;ûð®<ŽoãÊø–ê+¢W„ˆ¤ÙJH£j[Ýf#µÅ¦Á"²+UM”Fƒè*Ú ‚+”.åéY/UµÕàÑv­z¤Ï–§ØÒ]Kªoºh½µxÐ9órçÎ93Ü›;éu{¾ÿ˜99s~gÆœsÏgÎùýΡù#²„ÕZ/O %½ÝÆÀ. X[”ƒvò”~¿î$~ݘ)XÛh›AtÀsF+‡<ø§ ‘³*´”6Àw¦•27HÕQ<‡5k6i×ãùk´jÏ7Uj[Î{k~«?p‘¼®©ºÃ% ÖâuȪ¬«Dê–”å}PKÁUÆ{†qŽk[Ž+iŸ¹ÆqÀ©¡=EX:/o]x¶ÐûÏÍÅ‚P‡¶ÕH¬•¬ —Oð}WE©ÄÅ(GÕëʤ©@ÓúÒ—:‘zӽ àîõ³—ýkÆ ©>h¦|÷~¨fäðMlW•€¨ ˜ ¿‹‘8&h°fâdG;ßØ.[LjwÍ2 O¸˜´j6ìÎ,|ÚŸRVîùk¢\ßkW:Ö2Háu6ïyHŸ‚èÆLÁÚßíåˆA;¦©äÏsnàB¹ù maÐX7FñÖ8¬Ù£WÜ|ê†Ã—šãp\á}‡5õ °‘\¬¢™@,,`m­kÊžÔ]¬IiÒr¥Y:{ÃUÆ ¯Öˆ¾7Z—â¤]‹%cHq@ý6p$Yž¸¥äì:ð´°;‰„ú×{tHJ—`m‡zÝ Ì¼¾ô¥Nm뤛è-Η¯ÛÖô—Ò‡õ4‰.¹Ð‹‘Ã71]U¢/€¶dujf6>Š÷ÀÛÉŽá|c·l1©Ý5Ë€wBëråÁwi¢¿"Ak’²'ÚÒW2aMSe"ÃYÙkcÕ04ÄgÍĽ2 øÆsXanÖ ±nŒâ9¬qX³EɳîEüµZMQð  A«3Ë%ó^„ÚŸúÐÁk܈|î„•ZÊAâÐr·:d `MX!ûÂ'¹÷ëá‡*ƒŠÏ ÁÚNäûÿ×Ä‘…Œ „c”2\¶uj%£–…ˆÐ9D:çM\G$XÓbÔý›ÌšÕ—¾ÔiáUBô†VôHËÓ?]¿½H&nz«‰BwFŸÄvU „‹y•å"cŽà5¶“í|c»ì0é¹k–CÂæyò6ÚyBôW¤xÀa¯”VåÓ53`PѾú†5¡‡´ü›Õ˜ °–KBÓÊ͸‹]Xg±I)‡Û€Bs«ucÏaÚ-êêp”ð·"ˆöA¬§Ž§x/ÂaÍ_5ÕŸg§\î'ÅñÌŠ­ÎZš 4¼R@Pç”~¨2j3kßJ8ÆÈ3Uá'°ÓXéƒbÑKµñL9ÆCÀb™<Ó+漢"-†›×—¾Ô7XS5š¸æ‘Š*[–2rø$¶«J´¨LAËp-?uÖØNv´óí²Á¤ç®™¼ÂEÐ8Ñiùõ*i‹ÁÐü¹†[EMêÖ†C­³ k"ïªl?Ê|?¾D¤(o˜KmeLYõ†º1Šç°ÆaÍsä åo—ªéèÍ{kþê¤_Ñ| ¡¡4 píV“Ö 1KX#Q-;9©ðC•ñ °T9¿oU_k[b…¶ÈûŸé$fœ&]j'yi5Vº7ÐtpQ>s#'v6‘ãÃÀx#¬U©‡“õÛ›Qõ¥/õÖ–“P’%ÊFÒ™;ÁÈá£L]Uê¤9ÏUd¢®¶ÆÄ{Áš¹“Þù¦žP“ž»¶0 &ˆoãy²yC“H¤~’?"[oVøçÏhÃÿÌÊ£Ç!#Þª1«°¶ ò:l¹wê¤ËñêôÒG”ÃL¨« î°þö`nª£xkÖìYyö")¸¸üÕ™B¾ ’Úß:ëBFcÏé>yè⺪I†#¦°öÝöíJÎùs° iðã© IDAT?TOz1on“7Åþçý½îky·I#ßR•î \i£mf4hŸ¦ÄçŸ¨Õ ‹(x•ÀZœ²OÚ ¢¾ô¥>ÀÚÈn+ÔuKÝ€aįîcõ¿˜ÌâP9üåªRõŒd’ÃeH)xÁš…“Îù¦¾@“º»¶2 ' öì]ü¡ç½ -Äg­Òû³Au÷YCöCÚpï XûÚãG;˜ÅhÌ4¬eÎÕ6­_ïq_SÞ5îãÚÎî•eÛ&27HÕQ<‡5k·ì€ˆ‹+”Å{k~ëâ(Hó|øHZ ¸#Åk\uÍ Ö¦ 戠‚Ò0ÙUÆ°hdËSq•eÈOWaM ¤æ½*ð- _™Gú«4Jû Ué)蘢T„#ј­NÚµ&Ö¦ "¬‘ Ø) ¢tdZ_úR`íL´4p"x™$‡Ÿ|QŽµ$»ßÒ9ü•ÑUÅMK½ü_ò´6Ûç5s';óM})p&uwmi@NÈv) »#oqæ§ k™ðx‡Ö²'ÚÝ…kbϵVùrY^lmlÌ4¬Ix—4JPc1É”Ë[ŽÇÎúˉãà²Ü¾ÖÔ U7FñÖ8¬qXãââ°Æû¦P‚µ3Å@é^2Ï°¨”]Ïb—Õd<{(sﳂµÀ)²¢¬o[8¥UÇ,vÀ2 ß«¾4X»8WŠç¨Sø8à¨Tdªb7Þk¬´ó€×<#›2)#˜ÃÀ,dq‚<a-…|è.qaJºE}éK5X«MNžƒ^âOÓo \«”QU)ÙZ`°-–•Ã_Q®*þê˜Ë³k‡÷,F3¯Œ´“æ|S ”Iý][ ût›íµ@‡53UZš?Ra-ú¿ù¹m÷®kÃ/$'"ýÏZÀ-õ'±ÀštVc¦amT4Ê›Šÿ¾3Fñ^SK6c¥Ò €òâÛýј¡+„î_(ƒæu£‹ç°Æa³ÚOQ¯‰åÓïœBÖ„Gº‹ã¡¹]ƶ<‘$…k“'ÃÚw²7œ[÷>à"QóLaíÈd`Þý}ú¿Q¤,8Wïü’QFßRq|qì³ /ãj=°&Ím•{ÅöHÎâNøA­œßK¹Ã°îïœ|_Û*­£xvY9nD}uµyKñfN ÖâQðüñ* Aڄļ¾Ô¥¬õÿpƒÞ¨D¸º•¼™'‚ç9E;9OêßH[ÀÎáƒ(W•H|l‘Z¨KX“ì˜Î7öÊ“^wM öé6ÐZëûþx·„ž ˆ?àô¤ 6ÀZbÍu[ÃQëÚp{±ÅÊí]ì†wj²u :Ù˜iX“Bצø,k°1Þ«´ ^[¯~š tPÞ­Bà°®Fÿb4h^7ºxkÖ¯å»ø äZäp äO!ÈõÁ4î·ÆaÍ_u®ÒÆèsש‰…픤âÐe`¤u±ºsm5¤„•I'¯3ÊF®U&Iß 5X Ÿ|îU¥wK•Œ/ýLH ƒ'Þæ‚QDÒb1ãêI¿^jufÆË°æV‚Ý-ü3É`^_㥾ÀšÐ$M¾6òY%!ö|’œµÇ$‡¢\Uê®;Œ_hg}ܪ2PävW0œì˜Î7ö*ð&½ïš6@%T{âß„9•6Ô4>±è¶º—òX #ŽŒ„‡ŽØ|ï,XRz‚­M3 káo+×Ü3ÕPÚfµܲYÉû<1jÙý‹Ñ Eݨâ9¬qX ¸¦9Ü}Cåÿ5ü_÷Ÿþ»{ûžP›†â›b¿vW;úðބÚÿ•ø|L÷gqÕ˺ Í*›w))^ñ¤2X²ˆ¹{ë¦î‰Z,SC=6X½ÐY¾‹Q†8ž;^™rôy1 kžh$òªQÃLOiÛ¦d |Ä6*Ä(Eˆ™@›wâ¯^në̘qZy²"¬ 6¥õèxIm.¦õ5\ê¬ òZ$$´øV÷á½°zJZþÇY£ÍsÜ´h7šºJ/f,fýAõY£œì˜Î76SD Mïš2@%ˆïûÃÊDæV 74Ašž ÎÁGÃz¸u¬ £³¦§$–ÞõëLÓÆLÁš ‰(NL9úL 2—5¢²Çå,ƒÈYPÃåª&k¥œç€­¦5h ðPl@ÖÆ[ö˜åk›‰Ý„óê…wöîB²5d Y«3½T‘Î鸵~®–Ä$H¨'¶ª?#YÈ@$#³@֜åxÕÇi5÷¢«½ý©“ºÖå¿ÆUk²”zËBÖ"ÉgÙ  kÎá‹JµtÜQm~6É£jë÷:«gó”jÏUkÒv«ÍX²ÈZ™¤îwämûÊ«“Zd8­[•J媵?PsSÑ,dÍfÍH’µÚNƒœÃí75£ÎŸÃ²5 ƒ$ Yk”·íw<ÿŽWó[e!kÈ kÈ®Ö8þµVÂ`kÄ*d 5d5d Y1hpƒ€¬!kÎ`ûÀÑœá¥ËÀL YCÖ B$÷Å( kÈš3¸ Žq„—j3w„DÖ5ˆýD¾Í( kÈš#X£ÔÃœáå–R ZÈ²È kÈÚ½zXͽÆ`3¢ú16ãÔl5{®…¬!kÒÚJ!£€¬!kN`¼ºÅ `3þ¶;[³—”*õ5d "CÎÙ\YCÖÁ S†qØ ŠmCºœçkȲȲÆmû‘5hˆ ZȲȲ†«9œ–J-e°5²È²Fî ŒÑw·¾Ã( k,d 5dÍÁL¼Ä±ˆö£[ȲàôÝdYCÖìήRUÆÁˆ©j]¾…¬!kvÒ2å÷Œ²†¬Ù±Jñ¯5€ˆqZ©oá[ÈZmdm\ѯ;tMÌ<š>.$ÙÀüsµû\oùRèÚ\íú"ií}ýâÁ½c×>¸¦âÝPñeHÅÂöWÖ/ê^ðävµÁŽÅÎû 36óè¡4m…„p‘»õÃm±ÝVnø`wИ\mkû}Âˈj[«.hU¡Å&ßGÜ›y YCÖêÈþÏÕáïqð"Åèžêµ²V£¬}súðÊTâ‰ÅÁ'@ùýåáPËZ-Ú¬AÖvŒ¯Ê{²“<Ý}¬¥•¬ÝMñ¼=“FàDY‹jç¹È¿’°& BƸ¯z,™`%kÖ­µ ”5ËÖª ZUh±Éo²†¬Ç9¥²9ö‘c©R{.d­&YË?àúãžòä/~þ»®®_:J—ÐËZ-Ú¬^Ör\IUeÞ“ßI¤ïôé/¹~¥¼Êfkœ—L‘÷ÜéUéq§O‹v‰"ƒHÃj&¹‡ÄÛkãE:­ÛZZ çÿ•L`„0ÒN¸>z¥Åæ§D¶åÈZßÕ«WgTך±Nä£þ6TÛšuÐòQ¿ÀØä¿`âêÕ}5d­î¤N˜Ó‘coGFõ)nÆ(Ø’²s©²Vƒ¬e¼âÊn÷s¿¼#rÓ‰²6ÀeaÞ¼'Ndyù|Ϩ3"“ü>ö×îòLùWéãfÈ¿¸$Jôòp€šéù⻶Úß)1’´ <ì]Yí·F‹Y"v.Ò‡D~ kjjÍè/Ýýn½bÝšuÐò¢Å&=XµGÖ5nÛßøØ T>£`Sð-d­&Yû™H’÷ëÝb‘Ä펓µäž±R•÷é[R1 êQßÙçs–H¢{^Òn‘‹”È´zÎ)g}Ô)6åq•ã~gZ`wïøÃÖÀh5z‰MøKúü»m˜”Óm³aÔz¸ zíؘ߈,s¿X-_ó]¡Gˆ‰TLXœ™")æ²fÙša,‘õ~ï­[³ ZUh±IVȲ†«5B:+•Ê(`kÈš3eíG"ÑÙUo_xÒàdmÙó"±C½yÏH‘už5‡Döù|ðªH©;Ek+?ö,:=èÈäúM)÷,ñèAlqèdͯ&°F«¨ÑKlÂ_ÒÐm“2¢ ºm2ŒZ/µ]h…¬9ˆ¦ÑòŒçå">1Ð$B¼$ ž+E2Ìdͺ5#Cäªß–­[³ Z^´Ød¬5d YCÖY#j9HÖ\™Å?}Þî•6žÂ“ä^ÏvŠí½¼Ô3 0E†SZ?½ä #mßÅ]ÜìW±jËæ•c·]ü¤Ä“è¸élÒ†aäÎïß&qãåÂy~²6%Ebþ°_?ðýÄn³>Ù¢µé¥dó‹k£‡?ýÁ´Üd­HÒñû¼yÏC"·*‹Bü¦!½#+ÜÓ•Ž‹Œi()åÄE"OÝÜYô²«ÿ} Ó»{ǯ&°F«¨ÑKlÂ_ÒØm½Œ(¸nëèõRÛ­ö*.¼@ì±ßkD^÷¼œ&rÁg!žYZ±`“DG™ÉšukÆ-‘"¿-[·f´¼h±É$X!kÈZo¹ƒÃn[>»;ŠQ°-?9s!kÖ¸s]©ßMñ_ðüœ¼Â“ymœ_)kÅîy9²hNÓ¸ŠU'ÜYó¹mžOŽ? Vmù³< žÛá#k;fˆñß­ƒ=ìöˆ•¬ýrHen8ëF ²Ö­g?£*ïyOä´gÍ×/{?–æò€ïz&ËÉA×Þß¹sA½§”o‹|æÎç²ä‰ß5•v÷Ž_1ŒVò¢UÔh "PÒ§uۺаnÝÖ†Që¥>òµG`gY»Péà†qIä Ÿ5z„*rÆý~¬HÓiÖ­'E&/[\˜UM¬[³ Z>yb“I°BÖµ:’={wKŽ»m™ú>c`[ŒësË.dÍ’É")¹&ËO»ªÍº}ßY)’ЪBÖ¾óáºWÛºrÚ¥íëƒ~š R~£ÿŒLI¸3æPºK¯¢ïsÉÞ%’¾gO®I7\¿üÜß·Ž< ²v‹WÖ¶¯­hȇ ¯ˆl:¼óÈÿÙ;óب®+Œ#1ªÞÀ¼Ð`Jl<¬F†Z! ›£H Á³DL - 1K ˜Ø,…B"C­„°Ø”`%@Ùi%€”ÅÈ)4mQPµMª¾}»÷ÍxfÜYðùþñ›;ãwïÃGç÷îýî«uÃ3ÇSW”fÞ¤y´÷‹Å£AÀ-ñG‹¶èG,áGK?uã4ð7iédá$`žk)qÀrÛo?$ÉsG!m¾Àñ¬Å”!ý¸bîHÆÔÁç{ÖŒºç z~äégÔk;O`Ê[±Ú´]NX+ÊÇ€ßëŽYJ@Å`ç¯lfÖòÂ8jì !°ô1Ýv6Ömví½dGžñuUyÐØ>°¶Y#â ɲ€¥¦o8¢4NíÛá}Öœ£ %ÆÈÄí¼FsLZº˜ÜÄIVkkiZ/W÷Ð}'‘ —ëQÁš“ƽùEÕ®Býô<Ö¾’?Ÿ2•š WžMÙ?2'±ä®Ö˜UnÄ(ÓSñº k–[m¿}·ê¤ÆVeÖµ3"Ω‡×"`m8°¿XY*–Q턇Ðä×UK÷ >hLñ2¬åWŽNPoZn•n°óW63 kya5ö†Xú˜n; ì6;Œö^²#Ïx:ŠžžoX› ¬‰”^Õ:*¥c½y½,'CL_¯ì5³¸œkÎÑbò€´“çkÎwŸ \ÉðÍ7¬1¹‰“¬ÖÖÓ—+‡n;‰îqÝ!ê"XsÒI ™Ó|è¦=VOÀÖ;[‹^@Ü‚;FÆ©& 5h`ÅÄh1æ*†,Ù#ÃZ—ÎÑràMÃ3òÖ†ü¤È˜™î¬ ïý%›[Á1©^2YãŽz¸Alo’Š÷"¤¸ì¦]”üô^7ØùM-V3 kya5ö†ÐZú”n; í6;Œ^ŒDêÈ3Þ#‚µh†µs@¾v<+Ì_1¢PdýqÙÝÆWJ–].¬9GÛ= q)Êc†jà¬×h¾aÉMœdE°F°˜ò»î£»N"…G;æÔu¬9©xŸÓ|îSyð@‚µ¡‚VËÞUŽú"¥y€²Åæ3°ÆÄèiŸÁØx•ñÌõ²'ª,Oß9nÝŸ1ýì:eiUÛaíj? ³ùû¯£þLU‹Üˆ‹Ñ{ïgè,Ó!Åe¥ùe»†ÁÎ_ÙÌ0¬å…qÔØBkéSºíd4 ´Ûì0z1©#ÏxÖ¢Ö~Ü4æÂâÌ_1¢øN~IE|/äÁš—hBÕcuï—^£ù†5&7q’ÁÁmÛß5 îI„hAÁš£~ Tpš54ävJ°¶J‡µlåè° k’#MTúÚì—­°Æĸ¤Ø`MV¶ý·—Xk¿ >¬•·,þ|£²Ae©_°&,[¤®è´K>PuÜI)Sêá7&GFmyXY 2 vÉ Žå…qÔØBjéS»íd4 ´Ûœat4i#Ïz:¬ˆw kÎç~A°vÍðÏÙ]fö qÜ`ú_)«ÂXóMWM, ½Eó kLnâ$+‚5‚5bµ¨—«/ÑÁÚ# k€)–EŒåòôÒT¼ª·œöJ°6Ùք˵JéîIêl†5&óX Öþ’ŠQöÊ÷¨µöÛƃµœf™‘\Rï7¬ /Ž~£Û|£a°fF'#‘~ ¬÷ˆ`-šaí,0H=œá¸g’!Îi›(‰êƒX¬µ)šð,ð¢·h¾““›8ÉŠ``-ÕåÓ'X#…Wùd[#XsÐÇÀ‡¦Ó€Ø.RQaøÍêå 1¯°&W°£“jÒÀŠ‰Ñl¼{Ç™Öög ûõ·v™žæÖžÞ=¯/± ÖºéoxbZ)^Ú{—cò0.¢­*Á6삤ÖòÂ8jì ¡³ô™ºÍ5 k–at0™GÞî=¢eѼ ò °G=œÅY‹mÎçL†´UÖÿ}¬9G{8°×sÚñPô‹ñÍwÒbr'Y¬¬°mÿ¼?ý”nyT«³ËµF!ªõ“S'.y¬quÁ~Ï)åA0Qm©JËGX»óôÓê™MÊ3^ ¬˜Ý"fÌmÊK±¿†Z7lø3 Å,®mzk·Œ)¥ ÚµÖê&ÔÖ MRvýWÖinÖÏ­3öÜn™Ð —F . 3>› vAR cya5LCÈ,}–nóŒ†AšyŒDö‘7{:¬=‚Œ ËÔßqÞl}ý“!ŒçIÅ©rÒb`Í9šËH{Ó€µ^£ù†5&7q’ÁÁšÿú­ËõwºåQ­'/ûBTë7½\[z¬qõ/`]•öá+À³S÷ù2Fçªÿxƒµ-Hߦ3–´ižÈd^Œ¢d¬Sæ(jÊ°(Cƒ5i#5ëëJܾÊár ÖS×F@uº ‡2a×fX“,UL’zp]ýú(Ü}“KttëÜFí£×bÅ2›¤Ì» ©…±¼0Ž¦!T–>[·9Fà aÍ<Œ|#3òfïÁZTÚô·ýoù êžþ@¼¼ps Üg”¦ÎÉØh­¯r¥w· ­@EV¸‹ÊMnÛDšÅ`$µ0–ÆQÃ4„ÈÒÇtÛb#jX³ #×Hät Š÷ˆ`-ºamF2â:‰?¶Zõ›ìÝ;ƒ›! 7äT6!±¸°æ­p$ÑZÖh >ƒ­ IK¿6&7±ÉŠ``Ío=æúë鎓HažZíBèE°Æ×ôj±¾Ê<|­Ç8x¤<óÝ7X·õ¿­_nyBGXÛ– ¬ÿÑ›{~®®Û ¤öî½#E<µ~ÓØ­K£ó X“æÍâ,;Š”§i/Íß㾩X©éàé¹`øØ©Ruø‰k#Äé£î™‘÷¤³³‹Œ8Wmº TšÏnß×ï4>äí wM)–x Öí,†» Ò4Œå…qÔ0 ¡±ô±Ý¶ØˆÚÖ,ÃÈ3Y/ñuUyÐØ>°¶ÙºB0ÌúbsŽôU^vÕƒ†uÆÚ°1¦¯²òGH=¢æX+šå?9éÐíè¬1•A”¾CŒ¼ÿÇ?hýÎùçI~FG IDAT2úp±ö?^mÒ™¿;½õ#×ož~˜W«)֪ܛ*þA¬‰5±VF-½f ÖÄẔ•?­èbº&VþÝUê€]ÕRyä%u¢&}Ä&ÿ#}éË®rаÎX>ÆÔU¦~„ÔÙ#š>Öê÷ÎX+ÊMK¬‰5­VB£\z•)¨5±&ÖšÂÙߊé/Ôf&É”÷¼íÍ#V•ìꬖÊ#/©5é;¹éK_v•ƒ†uÆZÅ+¯2ý#¤Î1Ìì_ß[¾‹Î&Ö²½i‰5±V›YΫÅÀ—bG¢cŽúkñÛ›l‰èjnö+‹ëßúÁ“3ŒµÔ‘—ÔùœÔ?ä~¤¯Êe§Ök•c¬¸Ê*?Bê쥗M¬e{Ókb­&ÿ;Ù¶ÅÑÙö²ük±ÛuÂõý…ÚÔ¤J¬¥ØÕW-©30©ó9é;ùé«zÙ©cDu^vjŒÃ®²ê:{„Xûì¦M›ºŠsÓš³iÓEbM¬Õ`õ¾0ÔmÛbbh_gé/±»=—{‚ŽR¬½îÊâÜ´6¿ñ‰5±ö»6„%–QûY‹Á!|B‰5 kkb­F»ÃgFXv zý‚4 Ýß ûõ—XÈÞÔï™A3ð,$Ö†9ç®—ìŠcdßÝúK¬dï‡ã‚Xkžs€:˱µ•I²ØÄšXóœˆ5±&Ö€‚™.ÖÄšXó˜¨5±&Ö€BþfíSkb­¹>·_¬E£}ëM-¦M¬­–`b c?·ÜÄšXk&ËÛµçXŒ a¡)Äâø¶ÙL¬dÌ7Š5±ÖT6ô‡Çí9¾;&›ÃÀ&Ök”8Öæ…p§=‹5Šç˜.ab ±F‰cmi˜1Ùžc1&„I¦Î0СÂÄbòÆÚÅVZs<¶ok7„h<9Ï¡5±€X£Ì±fÇP\"L¬djói« A¬‰58€Xkb (˜©­É€)ˆ5±æ PkbM¬3=I›‚Xkpµ&ÖÄ ÖkbíH8°ËŠãrÕsf—Yó„˜XÈʘ&3MA¬‰µæpE[¸ËŠ£ò÷ùkÎ6…¨\Úv*±2ÅÚ(€\mXñ¢!4O@bíBxÉŠ£âK±£³²-œéËÖÊk€X{ݬŽ³a±F±í a£k@Ébí˜ã¼hÃqùv‹L!.­¸ÏoÖÄPºX³ÞèôtnñGÎñQbb ([¬Ù.¨5÷3±”Ê%;Ú ±æákb  `Ú×'>±±æÙPkb  hz’¤ßkÅwàšïÛ.4‡éKÿìCFÄ€Xƒ²ÄÚ‡C¸Év¡9<Âçä˜X¨_÷ød©) ÖŠnûÌ0p‰íƧ÷àŠ/›B|®ëKgé1±P¿Ï¿ÑkE·3„—-7BïÁ-8F‡þ½[‰5 ±¶jÅY#,7B“Bè0…u÷íÝ ÇÄPŠXóÌ!Öh2rL¬åˆ5‹ÔskÚ¦›‚Zkb ÄšçŠæòKÍ@¬‰5±bÍc PU‹Zk…4øñ톀X+²Ž-3µXÈɺ%'ß>%™øµ±]¿ð#ûwûø~±PŸîñÉ ) ֊삶Y,äãø ÉLûç«™¾òÂNÔdb  .=IÒo ˆµÛП±XÈCïüän^åkwï;D™Xkq¬-a£½FkÒÇÌ ‘Þ› sî¢,_|{³E™X¨ËmIŸ! Ö l㌾Éö«WÛÂShœÎ¤Âû^ÌðÕÛ½ð)Q&Öêrì3@¬ù(H×b7¶•?]kÉy×b ˆ8ÖìT¬‘“ÁT«%§ŽVkb kbw-áSh”ö/¤c-ë“¢L¬ñÆš•Fmò—]g ²°J«%ŸÊºk@”±¶a÷ =v ùØZ-Ö~ší{´\¶V˜‰5€#¿•Ý5Âku\#íòñtµX;)Û÷x.„Nau¬%x¬*e¬]¹&,k±SÈÇ’j7Ûofûí›CÛNe&ÖkDk}!øÊdÈËœj7Û[3~“émá>es¬€<=$¿1…&౪”±öð=¿´QÈKÏUbmwÖïò·ç—(3gÖŽPËû“}¦€XóQ4Äc_Ü)4̯ªÄÚÂ’±p¤ž~aª! Ö´ Ñ‚57΢R­vZ.Í€XÄMfR¦Ð8OT¶Ú¸|N‰J3±Dk¶)ÖÈ×3WWÄÚžœ¢±Dk;f©ÔĈµ¦Ó±è2+ü7{çÙÇq—‘ñu¾KlIƒ7²$ˆËº!.µ".+±­ŠcYE•Ê²¹Ô½±4”ºžb÷¸l‘®*uk]Ž-E]ö„^¨£)Šr´´v{v®ï›¼3o’×:•¼Ï÷óÏÌ<óÌožKÞÉ|fæ™!ÄŸéÿß!½hj”5B))ûo³ e­´àÌ`âßô  ¨QÖ!¤Ä$á(PÖøÚ~BÈ/E²F!%…Å&”5º!„¶FY#„Ê!”5Ê!´5BY#„’çÀ(¶¡¬•îÄÜd÷ ‡ó?çâØ ÂqhW:e²F!%âAjO6¡¬=~ž{_ºÃîŽ1’T­ Ç¥àe”5Ê!„BY+3|%I/°û„£¡$E³„£b°”MY£¬B!”µ2ÂIIºÇÞ£¬aŽSm)k”5B!„²VFè9|xKöžx|,a+ˆÇ°Ù£Ÿ£¬QÖ!„ÊZY!£;OD¾Ë6‘Œ ³FY#„B(kë}ÿªâÿ)kIaÐN÷†E—÷>ùwsZ|˜f(‘¬­r/ÏeGHÿŸÊV•c_PvâÄ9@˜Ý½µƒ]6Õ2hðMú½Ê/?ÎCÖÌœ9óPQÑFÌbcÒO)ʶ&Î6¼eKt+³€­Y+ÎœY²&¬¬ýE’ÒÙq‚Âb ÌOÊ/Ÿ²æï²Vŵ?hýKËZ3Kâ¿€ §HÖš ÈéZ®‰Ê!â2Î:ùÊtúYÀæç,¸l* Ø­Þs^~ë!kOMÙxŸ*\—ÛlÃû\6•å¡Hªd›µeMXYû:xÈ~veˆFŸ…Á«)kâÈš|;Ÿ¢xä²ö0±àôÉÚuÀý4ÿ |NY#D\vi3•#ð'ëêaØÔ  Ay]±:!ùE[Yóí7ÌÕo9VÂìÂû^6…ýëøº}VÊš¸²V.ßÖª’4™­ ¬­Ýä˜5‘dM~ÃüÏÿ8emSpúˆd­ 0Êu èAY#DXNG ɘÍæy®ˆ¾A†MÅÙFòHàœ¬y½%³¦1‰¹vá}.›Ê ãJ–MVÊš¸²ÆN˜„ŸŸf+ eM$Y›¥8>W~ó–ԈΓ¾Ý¦_n„Žrü "–lI4ÇPôÛ—ؼq5·ÒÄýGPd‹Ýódc“¦ò¸º“"Öí!ËáçfMè¶ño}Š—µ0wŽìÕRØðT`ói5óÌ\ÛÕœpöËKú¹”†zÉ;oóø ‘]gÕ,o•µø§1É,û)Ì™ì’5rÛÔÌc÷”5âç,]10ß¿køÐŘݼéyÞ3±¦M=pß“ï¼d'kEGÓ©á~¬»Px_˦²Þœ8/Y)k”5Be²æ·²Vi> ßHŸ1Ø”¥i÷ Y¨'´Ö¿ãòÉ}ñí†ÒÄç[L8hÊÚŠÚZÂë6싸‡’µ›…æÆÛFZN3,*$kGºóÉ_[em°ÒXìŽMõLYó,·µfž»§¬fÐÄ—•?ö¨5÷|ºc^õN\Yªä›@ucv2ë±6  eÓ¦~ªéyÀ§v²Vt4 ç- Ý.¼¯eS,ó–•²&¬¬±Ï¡­QÖü_Öº“´—pTsSÒ«œ‰nèæ…5go…ñHP¹`ë⣫"ÐYWšªK€úÙçvBVë›\v8.dÎ:Af—=µB€ÅÅÊÚ˜èÅÀ¨èè“Æt©,ïÿ30õÔk=j9õ¼šç¾sAZbÌF 5O>}M  š‚ë?¼§ÈUD ‹¬Í®èK‹€#¦¬YÊm©™e÷”5⿦––ã¾R’”VâTx>,Kõœíþ”Ç0˺\mõ;¦M= Ô3Vô2íd­Èh q­/œvá},›ÊH`‹×¬”51e-zàÑpv!Â’XýeMY«ð‡6­a¼¯Ì9¡Ïj©… y­f^èv\MH²Ô ge·§@WšXà%5§üÏÌï§o’|R™žWïvÝUÇ=f+k6cÖÞ$íƒÖ'#H}ð1W9ïQŸ¨ èt”ÝcÖ.šÏ mšZdMž‹Wõ¥4,MY³”ÛR3Ëî)kÄ/Ixæ»TÛؾ¯—³$Û–µb0°pàDáº$á¬ÓmSÙÀ cÍk@g;Y+*šÂiµ%#û&؆÷­l]c‹m²RÖÄ”µtIÁN#DTò%©:eÍŸe­¿ÓR×+zbdø¨¨›—ñ²¹ZBOÅ¿ô塺Ò(“Xã;K³uƒR6ùJ[¾4Ò?íš…ùY+ÈÓ¶²¶4 »óÅÍÚ½¹óÔןÅÜŸŒÔ²¶Édv(sZM«¬2Ol’”²f)·¥f–ÝSÖˆ’±Sê [–ÜÚ¹Öïd­ÐМţb7õU¦M)‡„íúKö>¢ìd­¨h íµv\7Ö6¼oeÓ®)-ïY)kBÊZ¯QR—Kì4BD%îŠ4º'eMY ùµq¹¶Ï  7TËÑÌ+ß•pD³,ócÕIšÒ|¬6Î×ÆT}“óÚòE ®¾fNßemhäÏkÍ'®ª/êtËš"S£lë©ÉÚ"àcu!^™gÈš¥Ü–šYvOY#þÆ‹Õn5A4?л˜ï7%DaHYªñ¿þæ|L*¸ªgˆ~¿ßeS€cêÐÝŒ÷”¦¨m'kEDSù~hûå ; mÃûR60àïY)kBÊÚ@IúŒ}&2}bÞ©ÄV™õ’”BYócY‹ÍÍͽ>>D1ªòSŸ¡Ëëšyeiû€õ²¼˜n$¼¯)Íp˜ òËÀ}u“úbÀ¸Íu Hð”µíÜ\µ•µ À½6-ÐH–?– cÊÚˆ(`Îð㗼ȚÜ9êB6¶Ë¦¬YÊm©™e÷”5âWÜì}7Åq÷WùEE黥}YªôÀUÞPÔ/°æR}Œw²©ºÞÎ^•Šl'kÞ£¹‰ ™y’4Ž­ 2ᛥ”5?–5}ÌÚ»¯aî•/¿ðJ¤v–VO“5ók>Mž²ð²éqVûÉJY IYûÑØÙâ%kiz×ïáem¦gñ¼˜îºùå%kbS“­[{ÊDÖ2Ô™d÷¹NY3”ÛP3Ãî)kÄ*l\†êa«X`šËW¾'É, …kÃ/œcÖºÙTÖê}²§§§Èvö¼™¬ùŒæN7à yø@˦Q¡^À|f¥¬…¤¬ñxQÖ(k„²f}Y»lÀëZrX¬;E/í:¦°×LÖ|Fó ]ü‡ÿ¾²©Ü²¹YžIVÊe„ ßä5f+PÖ(k–—51UîˆiÏ<ÿøi’¶òˆ¹¬½d9VTªJ3¶cz ê/_²æN@²ö>S·ÎM×ìÖÝ·ô’5…Q«í®­Ýem¨2”åLu¦8‡¬Êm¨™a÷”5b†]®¾¬ýÛUßìq$‡x\…üÚÔf¯©"uYóMl,\4@om`k@²æ;šênOAše¥¬…¢¬ñp‘¬ lBY Y»Úø‡úâz¡k“šªxËÚàYÇŠªÒĽ+.D«]Z“µYÎ;~"¬IÎF!&¸>µGõ6]Ö¾~]Ϙœ3‘µýÀ‡@†KÖ å6ÔÌ°{ʱ á%…¶ÀEÍ^XiO]‰Gr¯ë½/™±:ý1#6Vö¢i½· qlì L2“5ŸÑ”ùBô¡kŸZ›„¯FÙTÎãüe¥¬…œ¬mJßÌÃEbm£A”5«ËšxDîŽW õÚªThw±¼eMVÓqêr®MUÙ¬NÇ;êÛÚ”5y_sóµM‡€&BL²#S‹S¼Ù)ª½ÝQç¡Õy-ã,—r¹ËšˆAáý(\²f(·¡f†ÝSÖˆ•Ûì«Ä@L-a_ÉH?al·!¨ªýpXMÔOЇBòB©ì3;–hk2:á’0“5ßÑž–k³ÔÅ-ÒMÂW·l3aË÷—•²r²6^* ãñ"„ÄçH·)k–—5Eif\ФJ›Ïºå¯åNÚLdMɺXqš[;µ©£ã~”«uÎŽ•ÝkSÖ”—¨#ŠlHP¿Vf‚-R +­¨êÄkÕíg€)j¥ ¢n™ÉZgØÛâ}7Y3–Û»fÆÝSÖˆµøfÈ‘1þM­ÏWCŽù ‘bÃÔ ªsžË•W<Þœîxíkvrrž©¬)/É6TþŽšÛ6sYómð´2pSD°0Å,üÕää5—í” ýe¥¬…œ¬½[.uŽãñ"„ˆ—¥Ø‹”5ËËZÒmþêÉ@§·Ž¦^{0J駕™ÉZãvÀß\[~šÒ´ïd–~¹ûÀV%—µÌÖî$™ÉZýæ@óʪftÔ©ØF.v|x­t0S™TmµýÏÿçç«zŽHß3xT˜ÉZK¥BíÝdÍXnCÍ »§¬ËqªìæC¾L­ëͲaß÷ùaÀÄàªñT¹bg® _ìSï­·—¯"æ²–—[ïù&®ÎsYó-|0øPÕG™@ǦáÉ×—ÀË– |à/+e-ädí¶$=ÃÃE"R’^¦¬Y^ÖD©Ü3Û%Ô7¹4¦§koldMD¶Õr´Ðf#“;Žè¢ ö ¬y2ÀLÖĨÁúÀድþÈ´ŽêðGaK¡¼å=cy¼©¬‰y²æ wY3”ÛX3ïÝSÖˆ‰Hí;ÇhjMû>ÈøÁ'ktÔ°ƒ6ˆoY ûh9£)|Éšïhûõ ÌÁý"PYóS¶·üe¥¬…œ¬=,ÝæÑ""yï¯1_úˆ²f}YKÉf*oX|ýJ»è1¿:FiÕ(kâêð‚þ£ &D4p((nÖcQ«9[&8^«EYñUÿmÕá§ÎæJ»r¢yt—K…o_µü¨œ8vèµ~‰cŠ6yÕÓ)k•úp!NYó.·IͼvOY#%>õú*÷ïãÉ¡ÿd¿ C‚­¶ãšÌIìré)Çï:~dM„OŒIHˆù|­ð)k~¢jÐ!;±ù‰fÅ"`Yóí´ç¸}e¥¬…œ¬mZQÌ£EKR{¶I[ñ[ÊšeBÜiù¢6S¶ý'çUãca+B°­šš½_]Þ9X‹e !Y›´gÊʨ­¯<çã!ݼò“3û]¾¿†#š¬ñšE'Å&.¯ ¬QÖ!Öï¿}ùï»ë³êHÖâ~µ„²VJ[é7€×˜ýzpÖ9ŽéÊ¡¬Úe²F!”µp)kÕçŒrû÷äé®òŸÆç¿Š/Éë –¨o ®¶²¬ñkHÂ%)—­@(k”5B!nòäÉ/ü° ¹¶)µU I“'"²vQ–°ë…H;ÞÑkR•åÍŸÞ''þrRN½gUYÛ–žÄ¯!Qˆ+{6‚­@F¦§RÖ(k„BTYÓ‡Eú!”Õ^ëqµ@¡ kq™@MÑR£€ñ^›gÞÐ’Ym€}V•µR©’_CBˆ;¯J=)k”5Bñæ½÷ó)kwБµq€Mó?ÀrïÓQn†±ŽôÛ@t |8díI*ᵇâÎIZ@Y£¬Bˆ'ñ£1”­@êŒÿ[ôt’lfyž›Ïv=}TÞœeMY›%ÅŽå¹@qç³Ï¥G)k”5Bñ$ø&Å&AÍRÀ5Ey ÐÓss/YÐÂé—€>5˜.8d­³4‚§!Äëú'ýœ²FY#„ʹ{äË2öWçRo µçöHe|-yu!p£»Y;¼ŸcJil¢—‘OY£¬BˆWG¡?8Ò©36É2é\ªb¼2ô3䜗k+€þ•5žD§ÞŸg±ˆS.(k”5Bñ¤×âûؤ®¸#»X=çR °Ò+ÊvrŽ¨ŠmÀœwk²‹ 5žÄ 'Å&¡jk”5B!ä^ã8ÐÉc ÞÏ&ýÌÖoÖh”5BY#”5ÊeB©.»Ñ®¥*Yɼr ûî CÖ0p¿P-šs]’ÒÃïaÖ,Èçy@(kÄœ« òÂCÊ!„r¯1xȵÔP6²cžÖ´¦Í6év? êcß‘2ì0§©$åÞÃ-÷ªÔ€çqRð5ââ)é ‡œ¡¬B!w‡†;k³=¶‡w&jãõ tìæ3Rd«à”µm’TÅó€¸HKae’t‘­@Y#„)ؤÎ8D{,Ás&µÖÀåxG:i ã;Ô¨'Ì9 I¿‰¼gYq]ê{Œç!ÄœÙ{¤‰_D†”5B ˆÇì_²H]¡ŒyʹTd{l^o\¿*¬«þ.r%ió½ûJý¦o¥q< !¾H•Ês€Ê!„èsRlR‡$˲ÖݹT dzl~èTì\úýÿÙ»£Øªê;€ãŽý'ûUæšT²ä¦˜uM›D²a3YÐ2,XMÄPE ‚Q²±=l.˜¸‡¹‘ìNÍ€¡:HlY² ÷0 •8.Š{Øb¦Ã™-!àæ±sÛËÌ.ZJoÓ+å®çôöžÏç…s{ozøÿÏŸËùÂ鹕¯n²X» g[‡eÔ´tµ»AŠ5€!Ýbm®ô×Ñ¡G‹#Þªzú¹ˆò«òâóÿñ³5k8Gaˆ5±pƾˆ«Í¹ùTÄC¾qeÕ³ë#ÚÏÞná–J¬íl²X³¨Öñø·/4 ±ÖÄÀ˜üs¶¡!?‡"þ|f{n%ƺªžýWå+{‡§Ûì}b¦öáƾ{)bM¬L0ÿcgã IDATªKŽöD\¾ap{ â“ÕËïÕé¿Z™«"öŸÿ8Ö^Øè.íŒàC±å¯å·{ÅšX€üÍúNÄ}ÝïmnøÛˆ§ÿ×no­lßÙL±¶lkZd Ö8—ÞÔ×%ÖÄäïôÍû¿~¥Ú¶<Q¼ÿÊÎÎÎ÷~:mîím§²µsqå…ÏÖ±ƒÆµkS:jPíâ”fšª=œÒ|±&Ö`\U‰°¶|úû•_>s÷à×J•¾rsesúª×WµU~½oJ3ÅZ×ÁtÒeŒtä°s`„YO¥5bM¬ÀøIk¼¯b͉Séz±&Ö@¬elÞ-Ûàülze·Xk@áõ¼àò,ÄšÛöG¬‰5 è:³€XÓj€Xk Ƈb#Ö´ ÖÄ€XƒÂÅÚ±c PŸÞ‡ÄšX mI{l5 ˆµÌ¼X*}ÔQ¡–ïî¸Ç,PË«§Ò"±&Ö€B{ê+w›ÄZf7‚üC*½æ¨PËE)y ¦¦çO¥ã»ÅšX±–‰i)ýÎA¡¦™)Í3 ÔTyY.ÖĈµL\’ú6;(ˆ5ê3åÖ´^¬‰5k™XvÛ&Ç„ÚNô—šj›»ç°Xk ÖܶŸ °úsÀ9ŠC¬‰5kb kb  ‘¼yÍ“€XÓj€Zk fI{¼ikÙ|ö^Çøu=$ÖÄ063VNË×Æ——g»ƒ#þ”ñþ}ÔÂ!×X[;­1´¤¾eÙœåì8ÐR 믚_‘®ülAÚrå“èŽ'Æë[-þÂÁëØS[ß®ç 2 kP8SÚƒ:“ñ>ôÓ¬ÇpÓ& ÆÕ¶…è’]-ÈHO,+Êâ]º¡ ½pïóéºÃb ± Ökb ±€Xkˆ5±€Xkˆ5±f Äb @¬ ÖÄb @¬ Ökb ± Ökb ±€Xkˆ5±€Xkˆ5ć ¿¸ãÖG÷oéþ€×¼­Uï¼óóäÞ9Œ\ÁMi”uÛÔþÑ"Ö€¦öËKÏÐ_ÚVó57}©êT÷¢Î¡Óú§7ŸùâÀ$:Ýÿà1OúáÕ1æ&µ+¸)ý½{Žª¼Ã8^™šÃã&ÒpIHBH@GmU˜@#¢ ‰åV¹ƒÔJÁK+T ˆ—X¤Š¡•ª-3,u˜êLj«EÑvZ±::VªÎx©ÖVgúîîÙ³›donΞò¾Ÿòžóžä_Î{vß'Ù=›rÞ†ÙïDX!÷¢Yð”={èLóåšÊ4Çôè¥ä¥îäVspÍů®Š, §Ä—…‡íYîg®Ùúòò9χÃÖ:ÌàPJ=oCì½Â¹WÌzçì6Çi|¦NZ56å1ëoWòRw›Y Ÿ¶ß´ÎÚm:Îuwß$;ÀÓhmÍÖ——×y¶¼¼,:ÌàPJ3oCì·"¬ڕאַ¹éì+ʳö\•ôÐ÷ 2b·ÙJj†\|´Ùï=³Õ·°¿ÍòêÃœ²\'S¤ÚØÒ}|O³^OuÌ-uj·Ô-õ^ì¶KMÏSÑÖ ¦54 5Û^^^çÙòò²è8ƒC)õ¼ ±"¬XU©†þ°?[σþD§ô#Èí©Ùâëˆ wN-tX3Ï\„5 ‹Yf…w§ÛþPZ×ùˆ—÷Æ.üÄR÷‰¤?Û¿~·4&ÚºRj EͶ——×y¶¼¼Œ:ÏàPJ=oë{«êëk5C*¹í’ëÖH˳ôÜ&8×õdFœÛ*­½ãìÌóÛ©~Žèiµ¹Ók@Vÿ•~o5ü‚ŽübªÙ»îOIKÝçˤ+¼þ¤W£}R¿0Ôl}yygËËˤó ¥4ó6¼þ*ÍéEX¤½Õçmóuù!é–,=çjÀØBŽ8Iú¼*Òx³Lu'ø7¢güM*pX«Z)ÂÕé:o£tNÇ"7¤xìo·$-uçVÔ«¿×¹ôp´ÑWz4 5[_^^çÙòò2é<ƒC)ͼ ­Rm9a @ vKOGÝ«5/KÏCº±#v/ÓÚªXsŒ´Å¿]c›jTè°¶O=« k@ Í•øGoë|i`ç¥î½—9N‡¥îÂÄ (>’vEã¤!©Ùêòò«Ùîò²„µ38œWsŠyVgÕiZ³CX¤ç«5Åm¾$­Ïس\z·#.‘ö¹ÍéÒßFtmŽÜ³êŒÂ†µÉ=ÕTBX²ø±YÄŸìmIñïèOG^$v©ûïziT¤1±XºsÑovÖO[¶÷iËk¶º¼¼j¶¼¼Œ²ÌàPòæmX•×J8„5úyâíÀ¿’vdìùKš{¶ù5âÇý¾¿Õmž'ýÌ·]¥f¡0½GAÃZã¥]DX²ùYÄŸèmí6¤>.íR÷æDW& ¤²Ýñ»m/5[Z^^5[^^Ž¯°æÍÛ°úDêWNX¬ñ[y8Î"饌='I5n¾ëµ7ß.̈I”¾ãÛˆñ°6²i¢SØ°öUW:„5 ›g¤aí¶Tô…–ºã‡I£­oÆúÅÓ¢_êaÍ––—WÍ–—GXK7oCª²Auma @°n•.s›-RmÆžwU6gPä)µlOK!FL²]ZìÛˆñ‡±Èx Ö¾T¬×ÂÕ#ÒÔÄÖgæïöE–ºW –6\mŽ‰|ÔÇÑ÷‹œ–ù¦yé6ëk¶´¼¼j¶¼<ÂZºyNE7K+€€}Eޜʥg3öÜœø̳Š¶Œ˜ð–4h©o#&+dX›8E‡ªk@vs¤!‰­S̾ÿ ,u›¯—z5Ö~U:Ó½üþZùùÂéÿWÍ––—WÍ–—GXK7oÃé:él‡° h§K•ñöÝž©§ª^*9i趡sî–îëÿˆž“[¥ÏßF *¬ÍPCä~)„5 ›-þã²4÷¥î7˜ãG¸ßšyêïã-#¥UÖ×liyyÕlyy„µtó6”ú×hH€À”šãí:]Ÿ©§mš*¾ÝlþºûZGŒk[#}9ÚðgÄ€ÂÚø²Øa È橸ݖÊs^ên™vQ8Êô´Y^³­åué<[Za-§yÛÖJó€Àí–΋·¨"sÏËñ›u-‘ù?¢kýõÒv÷ßh¾ŒLX{½BWWÖ€\Dîø¼·µCjÍy©;¿Æ€ù©E‰·ÄZZ³µåué<[Za-§y£HX¤k¥;Üf¹´6§ÇÙV­â"ßGŒ¹h°4ibǽ]1˜°vŸêcï¬&¬Ù 7ëò³¼­#ò>|1ÛR·Ü«º­i~ìdÓùÍ5[\^—γ¥åÖrš·á0}˜†4/Y#0_k1Cšé6[¤~9õ㤗}1öÔV-=ÖØùÛº0b aíJé.‡°äd¡YÛ=çm/½“ÛRwÛ æ}7Ý]dz·Z\³Íåué<[Za-§y£Ôɉ„5AXá½;òñ¤×æÔcÌ“Z|1âµÞÒ¦TßÖ… k{Û?ˆ÷bjT(ò9®UÒ99-u—6×ÿJÚóþ·ö]èm}lº'Û[³ÝååQ³õåÖRÏ[Âa €~*=ê6'´wp§žçšf¬wVC•ï#gHʼn‰ø4"a 8Ö˜ æp¼=Ô\1ãsYê6n7Gn=ù€{̞ǽ­û¤Örkk¶¼¼–x3YÊž£Ò'îŽ;¤ú?¢ãœ&5|-±éÓˆ„µKJãtMié&¦ÁViØ\·ý¡4¨(—¥îåf}Ô·ý‹¤ö”&Å7º×KŸÛ[³åååQ³õåÖRÏÛ°ã#ÕWz*öLY­{î‘vºÏ´ŸJ 0â[&«mNÚökÄ ÂZïY²ªZ&­ŒÝHè)³b#—¥îãfQ8©ã?Øÿivžkž¸Ò<‚4[[³íååS³íåÖÒÌ[Âa €”i]äcŸ¼Ú}/ÙÒáäì)Ú)•F²Sù&éá±þ¸¼Dúsò‘~HXŽ5‘›º_½Þ¬æ—lÖ¹·wo=zt[º¥nãíÒ†ú'¼Ù;tªTs7Ózàay·ù±°fûËËã<[_a-õ¼%¬ÖøèÛÒ™/¾ÙdpwEÿ8Vé=·t침Aš7â”_ßköO.Àˆ¿”zÎðqDÂp¬‰¼¤÷ÚÚÕ‘{~/r÷•šÊtKÝ ß1{g謦ÙðDí÷"»ŽØ[sÊËã<[_ÞqÖÒÌ[Âa €Šö¸±µËöa­c3³ÄÝѧ!F\Öî¿Ÿ#Ö€cÎý=Ý«{Ýp'—°v0ͪðGÞ#Gë©×†òò8ÏÖ—w¼‡µƒ„5€›uú 5#ÿ>ß}ÑyeÒsKûÇYØ´rdÍê~N,ĈêÖ|‘°kæ™×Zz¬u½ÌÄÚñ1*5¡ÇÚkÒç¹J± ìX[, wWY{kuMÑ‹{uóÆÚÝMŠÉ`cºµþ¬¶ð³õÏfÅÛÏ™ãʾÑßøIísÛý;›«ÜiÞ’ L=õðþ1ÿxGÅ>ú¶mLÖ®²k¼qÔ¤Ù–;ÖÞkéŸ=¨±Wêõz…«kBŽµMÒ ²ñlÚXû„=V³Ë»±üeÉ€J–T`êÞ•Öñ›ë|±æ߶)o´š—§Ù–sŠS×ÚÃ~”\k­òNq™b @¸±ö9©¾À©²Ý ŠžøàÎ3±„)¼ÌR+­Èh™OHÙmSï½ô•"é¤1%—JKJ²R±öñXo xðà¶j)ºÎ³â*é˜'ÖSo(ÝPúÒûUšáµÀ¶Ï.ˆeÚ=o’jÛƒÛJbG´ð÷ÝœQñ,{±sÒK\&€X^¬uÿÊð¡’ž5N•‘~š8Ü"]—® mËh™‚eÊ»=1º/ªÉëMðÑý£¤oÆÇÍ“Q5y¾J{˜´Ùk©K¥añã™äµÀ¶Û¤ãc¿g}F™n[ö)~!},þeæwUêm¿c²2öZ.@¬!Ö<¾`\-‹!‰ÃÝ {%‡Ïî—Z3[fc,~ì ‡¥K‚±6Ee}jÌ|'ÑQŽCR7w¬¦Ž“úYÇ%o¬ù·ÝÑ€ù‰“U›n[Ö))Öök¼Õ¹w¸Rõ\&€Xj¬E¯L>ÃÑj©X²Ì®pÏŽ ÷h”æf¸ÌøÛž»ÄžpRŒµ·¥ä›;rµÐ½b]eܱ˜º%uëÍ\é5ÿ¶H¿¶üäŠ)i¶eb›4Áo—öØ?>-íæ:Ä€‹k£ÚÚÚNTG¥+º¹«,öëÌbiÙôßu o=,mÈÊtÛè±÷O’~Œµ5Š,JNºO:뼤"ªIžX L¨¼õöñ½±æßö‹Òªtwg[Ö)Z¤3ÃmeºÚžµSz†ëk.~¬Y6{f‰Ôo¾7Öâ‹É[ZZžN8“é2Æô<2ýÐ’¢Ä«úcmAêöY"Š–;¯;+Ýà‰µÀÔ]ž<~×÷4H߶¿,UúöëÛ–uŠFï[9G[SOJà:Ä€°bÍ”7HYÞX3ç&Â¥¸ÏËÉXûO¶ªÉp™EOE­7F6nJk“µ!µD›Tâ,xÚy¢UR©EªK_ïÿž5ﶫ¥Ež?lË:E7ÖìïZû›ôU®@¬-ÖÌæˆô‚/ÖŒéqnv"b:íX{Û<(Êl™ñ÷ÅziûÚ›wÇߊ˜&ÖpÝ.k‘Þqœ#½î‰µÀÔ«øï¬ù¶ýߵඬSĆ»ÿ…ÖJ¹N± ¼X3_—ŠîöÇZÜŽZQS¦­ùfþVé¡Œ–,M¼ÆÜ™6ÖîR$õðŽMžû_YźÅk©7)w¼}|k0ÖÜÛþ‡ô¸=4dceºmY§øSò«¼=Nx"€XpÑcíèåÒ›®–zï…ä¶ÙÒÁÔðkÒUÓ2Yf±ódýVùb­4ܞБë|-®Y3<±˜úKiµ=ð/o¬ù·}‡Tjl‰w[p[Ö)îqî,vÏ™ý˜ýcµ"/sb @ˆ±ÿì—¦ºZj¡òìnÅ:æ[©aósé©L–Y"ÙŸn'ëîV¬›Î¹Nð¨t  •Qï»Wì'MsÇZ`ê,©Å:þ~®7ÖüÛžÕ$ëQþë—iÆè4Û²NÑWj˜cýÁ6)Ç^­·š¹L± ÔX3#¤š§¥^•:ÏD¬ì¯ìÓN¬n’fe°ÌPéXb o}¬Š~l_yv«+Öò×HÏ':ê`TMCÜ+KÂ*©ÀÔü‰öc)ß"o¬¶#­‡^ÅóÒ_ÓmË:Eü}KoÅ\](Ýn-V.µq™b @¸±vM•t…ÓRí Ró° _ÚR#t†7Ⱦ×ý×¹S*~q׸·>•ÖÇs±‘)Rv˯Ž§Vúô@iRë»Oî‘"ÿöþ×$½êŽµàÔyc¤§»÷Ÿe*–u½4°íʤMo¼Õú]©îhºmÙ§èÙ[ú/{g]UqÇqÙrû•-ò‹<!¾šT²(‹ 4”%)K„§¥X¡)›$M–D ›EÚ"a AÍ §…HE ¨`KA Z@‘B B¥sß»÷¾»Ì{y1áÎù~þáÞßÌüfæeNàÃ}w¦î¹[µë‰„çµd·€‰\&„B¡¬B)„½äû­¬a†¶½k»Ç,ka“€/CHó ¾ þèßû`gÃW¤gúm­F‚}‹É8j‘5gÕAc|÷ËÏûz3°[±V Lª¡È†¥wÑ»›Þp–ö•Ke:Wá2!„”Sª˜‰Ín²ž±#ÒÃ@‡­‚Mˆ¢¿ŸÖNeLöþ:~ü.|lA»½ŽÌ \Y„²F)²Ö±0.×ïR{ßÙÔ)6®Î´ÝM"ßw#~dñi”¢•Ñý·îÞã9ÝsÔ’Jk†ÏÝcÊ”[»ÕÌÈŒåϳì \--²æ¬z­}bjê”uaß9–¶¶a+Jò©ýu#NT׺¶ËèÂsë¿Ã;ÏøÆøŘ›€m\%„{BÖ|ÿ×´+© eÍšRN¥•èYbY{÷GTy”µä~XÅ¥E(k„Œ½ x>ĪcwhEp·åÏ‚Rže->\Ãís« ¥—µ)åd¢ä²VáYì.Öšî’¬©ûWuáÒ"”5B Ê!4NR|¥þ7}}WI™˜{§ñnó'A)ײ6A¿‰º8h·ªViÞ»×»uûÏ•µ)å´Ðe-Hv ²w¹•5¥czqmÊ!„cjSÇÙÛf‰¿k½/–yþ ´¾CcÈ›'bBîYSI­Åµ ]ÖBIiÈZè,Ók)Ÿ²ÖÐ…\[„²F!Ayu—ænêô8UûÕ&ÀÁ¤;4„§1‹?BÈ=$kÊÙ\¦²V\Ê kÓánVŽeM)„k3¡¬Bˆü¯Ëƒ”ö}Eùýħwhïb\: „{IÖ&ŠÈв•µbR–\ÖB³¦»$kmŠyMÊ!„(מ>¤8½K«Ìȸ:íþí¹Cý{–Ä/åOrOÉÚŸD$Åjd£^/̈L]Ñè‘ÁY;–¸»‡šR4ñfb§ØìÙ…Í}Ɇêÿk¶Æꀫ·ÏIˆÌ}¨™lÔû6Nk’5Iï²1:væÆ”dåq‰0:&¦²ôÝâbžüãY#b³µÛŸ¶ïY÷ð¡¦É™pWâê"”5B!„R†²¶JDþl1²ÇêBw¿MÖöu¸Z°”ŠÒ3ÃØÐ?õƒÀ²6`£ßáÜ)j„ O¦Û­IÚdu-ýÌ!YsNLQm¤Ç²õy9ÆlîöôMmÃKÄL0í×ÿ í0QB(k„B!¤t²–ÜpU0Y~¼¨óÊè)T#¹ß"kG WÛzJ¥¹šcæ”Ó]êÅ9|x ð·áÃO™dm~ Qê^ûÄxµVý샞|¨Ø¬IÚ$?\•®£yÀì9dM21eHc5MâôL5V;À˜MÝ^\â­¿|œZ¸Óÿ5ï€ žµF(k„B!¤Ìd-i½*J~"•5UÆ.é~DX:Ø4V¬²&m2 p_3©™MÖ$«!BWô›–5¯äxŒY붪¸ßg´~˜kÜÔ4ßBY#„B!¥’5÷Øî7,F¦þyPLnŸŸd“µÊ0=Ì 1¥Ïå· ¿Õe—µ&S”†¢Þ0K[aJ“l²&m"‚‰F,7ÒñΚsbE"Ò+àge³Ömš¸¯h”ï3·þ^cס¬B!„RÈšw7ÜÞgšß)Y[ãµ®'¯b*ònXÓ¶d)U*vÝÒz}‡ToήRYk´ò×OõþaÉ°8a“5i“ÛÞót²æœØç@¶ìSrŒYëöˆã ŸÆ¿Š¿7ƒ¹¾eB!„”VÖYê¶÷벦¼–§«È¤ñǦ;eÍ1±yY“ŽYë¶2WßÂR½Ùg¢j ®/BY#„B!e!kÊDq׿­CÖT²¾;Au–zZ‘;M ë¤.*IÊ·ÅÍøó/7TßóZPÖn[¾Ó˜$ê¥X:Y m²&mÒÈôÎû†ÚPÙ'`ž˜ÐϦör阵nÛ+|°mDÕ©\_„²F!„BÊDÖ”vâvIG™¬ ’‹¢ø³þ¢‘ñÀþ¤\*.w¦kñœ€²fÝ-ä>Qï—–¶›&Ý`Dkò0Έ…u kæ‰U Ïáîæ'³ÖíÑl¯ Jfò¸Yâ>-ô”G€cÓ—ExµTÖöˆ’‡Œög·u?ÉëÀL›¬I›\1oÝ¿Ú±u¿dbÄEzlªø,À˜µnï3oõ¯üóÒ{Õ>Òoæ™M‘Ê!„B)¬yu$¦ªY¦ë¥ê×—šdM=~:¡WÈ)Ç-ôhÔ&öD­D[Ì=NMvéõ*Öž°v°pXeMÚ¤JpH~í5ÙÄMß°¬.†]`ÌZ·a¿úÏÏNÂLý]àò"”5B!„RV²¦nµˆMfuJj¤?mj„˜dÍ{õ!§üR\diÁçý{'Ž˜{T¿¿èÒzyÖ‹j_X;˜üÞ*kò&O Ýò»­LƒCÖd«-ju÷….6¶³Þíç"ð•Vú+qÝÃÈ>þ‡%!”5B!„RYkÙ_ßÐCS§t!-©§rÕ«UÀp³U)ÊNQ{Z¨)‡©›ä{Ï4ËjçÝa±·ü7ÀÖ®5ó§½Q ˆu”¸š¯ŠÞqû l²&m2j&]] ½ fÒ'›XÇ)"MkUÛº&qÍYï6i’ˆ¬¡ºÝ›n –ñÛ ÃåE(k„B!¤ÌdÍû°(áS“‘ Œ‘Ô§¨Î•7Ê*kךuo„šò%q{òÿíÝ]ˆyÀñ"ž~IF:”—É$ší¸P^ !ƒäBëÆÚMiKjïM1ÞŠššsE‘RDŒÄ抋iïVëFÛ®·­EjRJÍ…Ïsfæ™cÎÉP:¥óù\Ìœ—ÿó<ÿÓs.æ{1ÿÿ«ž4Ï¢¸`h¶¥:\vÚY-ÙÀ½Ç²7nU,ªxmxWì¡jª~ÈÙ5é“Îû§".—ÿ;Ú€*,9q>}Üp¿½+ýU(mç]uÎùeud×›ÚûScúk{k~îM¾^ˆ5¾]¬e ò—6-ËÓiÛÁ|Ïç7’Oc-¹’¾zõKOùðq~¦¿—õD|(½½9‹¥è,?í‰Þ¡qÍ}û+&ýË”h<2"Öªr;ßF­?ýqrÄy*?X’¼x0ôÒž5(«Îyø²¿NÎß><¼ÄIò*b‰ob €okIëüôµ;åé4nâËŽ-…–S}[‡”ÅZÓÊ‘ô™S&sŸ-ÝÐ8gřߒäFĪu×.ok.n8òÉfÝ7×-(lß9©êÆÒiPý72Öªòät{[cËâ}McÒTüÉZñÁ2÷n®ÛÕ<í¯+cŸW›sùe[Ÿ?m)l™zõNÙJýw‹QøÁ· ±@éŽxü•‡,JcíQÍ&xîŸq¦fÓ»ñÖMB¬P‡z¢0aÔA¿gkó?IŒ?Ù±flÍfw=Š Ý#Äu¨WiyÉÏû3[OÞ¡£:³…ø_×lr·#N»Eˆ5êÒ1åQíÊ×Õïê®ÙÔÆoˆö¹îb €ú´;.muйöçÿ|hù»Õµ›Ù…˜¶ÉýA¬ ÖÄb @¬ ÖÄb ± Ökb ± Ökˆ5±€Xkˆ5±€X@¬ˆ5Ä€X@¬ˆ5Äb @¬ ÖÄb @¬ Ökb ± Ökb ±€Xkˆ5±€Xkˆ5Ä€X@¬|ß>–x UEâIEND®B`‚metafor/man/bldiag.Rd0000644000176200001440000000261315173343621014202 0ustar liggesusers\name{bldiag} \alias{bldiag} \title{Construct Block Diagonal Matrix} \description{ Function to construct a block diagonal matrix from (a list of) matrices. } \usage{ bldiag(\dots, order) } \arguments{ \item{\dots}{individual matrices or a list of matrices.} \item{order}{optional argument to specify a variable based on which a square block diagonal matrix should be ordered.} } \author{ Posted to R-help by Berton Gunter (2 Sep 2005) with some further adjustments by Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \seealso{ \code{\link{rma.mv}} for the model fitting function that can take such a block diagonal matrix as input (for the \code{V} argument). \code{\link{blsplit}} for a function that can split a block diagonal matrix into a list of sub-matrices. } \examples{ ### copy data into 'dat' dat <- dat.berkey1998 dat ### construct list with the variance-covariance matrices of the observed outcomes for the studies V <- lapply(split(dat[c("v1i","v2i")], dat$trial), as.matrix) V ### construct block diagonal matrix V <- bldiag(V) V ### if we split based on 'author', the list elements in V are in a different order than tha data V <- lapply(split(dat[c("v1i","v2i")], dat$author), as.matrix) V ### can use 'order' argument to reorder the block-diagonal matrix into the correct order V <- bldiag(V, order=dat$author) V } \keyword{manip} metafor/man/labbe.Rd0000644000176200001440000002257215173343621014033 0ustar liggesusers\name{labbe} \alias{labbe} \alias{labbe.rma} \title{L'Abbe Plots for 'rma' Objects} \description{ Function to create \enc{L'Abbé}{L'Abbe} plots for objects of class \code{"rma"}. \loadmathjax } \usage{ labbe(x, \dots) \method{labbe}{rma}(x, xlim, ylim, lim, xlab, ylab, flip=FALSE, ci=FALSE, pi=FALSE, grid=FALSE, legend=FALSE, add=x$add, to=x$to, transf, targs, pch=21, psize, plim=c(0.5,3.5), col, bg, lty, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{ylim}{y-axis limits. If unspecified, the function sets the y-axis limits to some sensible values.} \item{lim}{axis limits. If specified, this is used for both \code{xlim} and \code{ylim}.} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{ylab}{title for the y-axis. If unspecified, the function sets an appropriate axis title.} \item{flip}{logical to specify whether the groups to plot on the x- and y-axis should be flipped (the default is \code{FALSE}).} \item{ci}{logical to specify whether the confidence interval region should be shown in the plot (the default is \code{FALSE}). Can also be a color name.} \item{pi}{logical to specify whether the prediction interval region should be shown in the plot (the default is \code{FALSE}). Can also be a color name.} \item{grid}{logical to specify whether a grid should be added to the plot (the default is \code{FALSE}). Can also be a color name.} \item{legend}{logical to specify whether a legend should be added to the plot (the default is \code{FALSE}). See \sQuote{Details}.} \item{add}{See the documentation of the \code{\link{escalc}} function for more details.} \item{to}{See the documentation of the \code{\link{escalc}} function for more details.} \item{transf}{optional argument to specify a function to transform the outcomes (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{pch}{plotting symbol to use for the outcomes. By default, an open circle is used. Can also be a vector of values. See \code{\link{points}} for other options.} \item{psize}{optional numeric vector to specify the point sizes for the outcomes. If unspecified, the point sizes are a function of the precision of the outcomes. Can also be a vector of values.} \item{plim}{numeric vector of length 2 to scale the point sizes (ignored when \code{psize} is specified). See \sQuote{Details}.} \item{col}{optional character string to specify the (border) color of the points. Can also be a vector.} \item{bg}{optional character string to specify the background color of open plot symbols. Can also be a vector. Set to \code{NA} to make the plotting symbols transparent.} \item{lty}{optional argument to specify the line type for the diagonal reference line of no effect and the line that indicates the estimated effect based on the fitted model. If unspecified, the function sets this to \code{c("solid","dashed")} by default (use \code{"blank"} to suppress a line).} \item{\dots}{other arguments.} } \details{ The model specified via \code{x} must be a model without moderators (i.e., either an equal- or a random-effects model) fitted with either the \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, or \code{\link{rma.glmm}} functions. Moreover, the model must have been fitted with \code{measure} set equal to \code{"RD"} (for risk differences), \code{"RR"} (for risk ratios), \code{"OR"} (for odds ratios), \code{"AS"} (for arcsine square root transformed risk differences), \code{"IRR"} (for incidence rate ratios), \code{"IRD"} (for incidence rate differences), or \code{"IRSD"} (for square root transformed incidence rate differences). The function calculates the arm-level outcomes for the two groups (e.g., treatment and control) and plots them against each other. In particular, the function plots the raw proportions of the two groups against each other when analyzing risk differences, the log of the proportions when analyzing (log) risk ratios, the log odds when analyzing (log) odds ratios, the arcsine square root transformed proportions when analyzing arcsine square root transformed risk differences, the raw incidence rates when analyzing incidence rate differences, the log of the incidence rates when analyzing (log) incidence rate ratios, and the square root transformed incidence rates when analyzing square root transformed incidence rate differences. The \code{transf} argument can be used to transform these values (e.g., \code{transf=exp} to transform the log of the proportions back to raw proportions; see also \link{transf}). As described under the documentation for the \code{\link{escalc}} function, zero cells can lead to problems when calculating particular outcomes. Adding a small constant to the cells of the \mjeqn{2 \times 2}{2x2} tables is a common solution to this problem. By default, the functions adopts the same method for handling zero cells as was used when fitting the model. By default (i.e., when \code{psize} is not specified), the point sizes are a function of the precision (i.e., inverse standard errors) of the outcomes. This way, more precise estimates are visually more prominent in the plot. By making the point sizes a function of the inverse standard errors of the estimates, their areas are proportional to the inverse sampling variances, which corresponds to the weights they would receive in an equal-effects model. However, the point sizes are rescaled so that the smallest point size is \code{plim[1]} and the largest point size is \code{plim[2]}. As a result, their relative sizes (i.e., areas) no longer exactly correspond to their relative weights in such a model. If exactly relative point sizes are desired, one can set \code{plim[2]} to \code{NA}, in which case the points are rescaled so that the smallest point size corresponds to \code{plim[1]} and all other points are scaled accordingly. As a result, the largest point may be very large. Alternatively, one can set \code{plim[1]} to \code{NA}, in which case the points are rescaled so that the largest point size corresponds to \code{plim[2]} and all other points are scaled accordingly. As a result, the smallest point may be very small. To avoid the latter, one can also set \code{plim[3]}, which enforces a minimal point size. The solid line corresponds to identical outcomes in the two groups (i.e., the absence of a difference between the two groups). The dashed line indicates the estimated effect based on the fitted model. If \code{ci=TRUE}, then the darker shaded region indicates the corresponding confidence interval. If \code{pi=TRUE}, then the lighter shaded region indicates the corresponding prediction interval. By setting the \code{legend} argument to \code{TRUE}, a legend is added to the plot. One can also use a keyword for this argument to specify the position of the legend (e.g., \code{legend="topleft"}; see \code{\link{legend}} for options). Finally, this argument can also be a list, with elements \code{x}, \code{y}, \code{inset}, \code{cex}, and \code{pt.cex}, which are passed on to the corresponding arguments of the \code{\link{legend}} function for even more control (elements not specified are set to defaults). } \value{ A data frame with components: \item{x}{the x-axis coordinates of the points that were plotted.} \item{y}{the y-axis coordinates of the points that were plotted.} \item{cex}{the point sizes.} \item{pch}{the plotting symbols.} \item{col}{the point colors.} \item{bg}{the background colors.} \item{ids}{the study id numbers.} \item{slab}{the study labels.} Note that the data frame is returned invisibly. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Jiménez, F. J., Guallar, E., & Martín-Moreno, J. M. (1997). A graphical display useful for meta-analysis. \emph{European Journal of Public Health}, \bold{7}(1), 101--105. \verb{https://doi.org/10.1093/eurpub/8.1.92} \enc{L'Abbé}{L'Abbe}, K. A., Detsky, A. S., & O'Rourke, K. (1987). Meta-analysis in clinical research. \emph{Annals of Internal Medicine}, \bold{107}(2), 224--233. \verb{https://doi.org/10.7326/0003-4819-107-2-224} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, and \code{\link{rma.glmm}} for functions to fit models for which \enc{L'Abbé}{L'Abbe} plots can be drawn. } \examples{ ### meta-analysis of log odds ratios using a random-effects model dat <- dat.damico2009 res <- rma(measure="OR", ai=xt, n1i=nt, ci=xc, n2i=nc, data=dat) res ### default plot with log odds on the x- and y-axis labbe(res) ### plot with odds values on the x- and y-axis and some customization labbe(res, ci=TRUE, pi=TRUE, grid=TRUE, legend=TRUE, bty="l", transf=exp, xlab="Odds (Control Group)", ylab="Odds (Treatment Group)") ### plot with risk values on the x- and y-axis and some customization labbe(res, ci=TRUE, pi=TRUE, grid=TRUE, legend=TRUE, bty="l", transf=plogis, lim=c(0,1), xlab="Risk (Control Group)", ylab="Risk (Treatment Group)") } \keyword{hplot} metafor/man/plot.vif.rma.Rd0000644000176200001440000001005615173343621015277 0ustar liggesusers\name{plot.vif.rma} \alias{plot.vif.rma} \title{Plot Method for 'vif.rma' Objects} \description{ Plot method for objects of class \code{"vif.rma"}. } \usage{ \method{plot}{vif.rma}(x, breaks="Scott", freq=FALSE, col, border, col.out, col.density, trim=0, adjust=1, lwd=c(2,0), \dots) } \arguments{ \item{x}{an object of class \code{"vif.rma"} obtained with \code{\link[=vif.rma]{vif}}.} \item{breaks}{argument to be passed on to the corresponding argument of \code{\link{hist}} to set (the method for determining) the (number of) breakpoints.} \item{freq}{logical to specify whether frequencies (if \code{TRUE}) or probability densities should be plotted (the default is \code{FALSE}).} \item{col}{optional character string to specify the color of the histogram bars.} \item{border}{optional character string to specify the color of the borders around the bars.} \item{col.out}{optional character string to specify the color of the bars that are more extreme than the observed (G)VIF value (the default is a semi-transparent shade of red).} \item{col.density}{optional character string to specify the color of the kernel density estimate of the distribution that is superimposed on top of the histogram (the default is blue).} \item{trim}{the fraction (up to 0.5) of observations to be trimmed from the upper tail of each distribution before its histogram is plotted.} \item{adjust}{numeric value to be passed on to the corresponding argument of \code{\link{density}} (for adjusting the bandwidth of the kernel density estimate).} \item{lwd}{numeric vector to specify the width of the vertical lines corresponding to the value of the observed (G)VIFs and of the density estimate (note: by default, the density estimate has a line width of 0 and is therefore not plotted).} \item{\dots}{other arguments.} } \details{ The function plots the distribution of each (G)VIF as simulated under independence as a histogram. Arguments \code{breaks}, \code{freq}, \code{col}, and \code{border} are passed on to the \code{\link{hist}} function for the plotting. Argument \code{trim} can be used to trim away a certain fraction of observations from the upper tail of each distribution before its histogram is plotted. By setting this to a value above 0, one can quickly remove some of the extreme values that might lead to the bulk of the distribution getting squished together at the left (typically, a small value such as \code{trim=0.01} is sufficient for this purpose). The observed (G)VIF value is indicated as a vertical dashed line. If the observed exceeds the upper plot limit, then this is indicated by an arrow pointing to the line. Argument \code{col.out} is used to specify the color for the bars in the histogram that are more extreme than the observed (G)VIF value. A kernel density estimate of the distribution can be superimposed on top of the histogram (as a smoothed representation of the distribution). Note that the kernel density estimate of the distribution is only shown when setting the line width for this element greater than 0 via the \code{lwd} argument (e.g., \code{lwd=c(2,2)}). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=vif.rma]{vif}} for the function to create \code{vif.rma} objects. } \examples{ ### copy data from Bangert-Drowns et al. (2004) into 'dat' dat <- dat.bangertdrowns2004 ### fit mixed-effects meta-regression model res <- rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta, data=dat) ### use the simulation approach to analyze the size of the VIFs \dontrun{ vifs <- vif(res, sim=TRUE, seed=1234) vifs ### plot the simulated distributions of the VIFs plot(vifs) ### add densities, trim away some extremes, and set break points plot(vifs, lwd=c(2,2), trim=0.01, breaks=seq(1,2.2,by=0.05), adjust=1.5) } } \keyword{hplot} metafor/man/vif.Rd0000644000176200001440000003734215173343621013553 0ustar liggesusers\name{vif} \alias{vif} \alias{vif.rma} \alias{print.vif.rma} \title{Variance Inflation Factors for 'rma' Objects} \description{ Function to compute (generalized) variance inflation factors (VIFs) for objects of class \code{"rma"}. \loadmathjax } \usage{ vif(x, \dots) \method{vif}{rma}(x, btt, att, table=FALSE, reestimate=FALSE, sim=FALSE, progbar=TRUE, seed=NULL, parallel="no", ncpus=1, cl, digits, \dots) \method{print}{vif.rma}(x, digits=x$digits, \dots) } \arguments{ \item{x}{an object of class \code{"rma"} (for \code{vif}) or \code{"vif.rma"} (for \code{print}).} \item{btt}{optional vector of indices (or list thereof) to specify a set of coefficients for which a generalized variance inflation factor (GVIF) should be computed. Can also be a string to \code{\link{grep}} for.} \item{att}{optional vector of indices (or list thereof) to specify a set of scale coefficients for which a generalized variance inflation factor (GVIF) should be computed. Can also be a string to \code{\link{grep}} for. Only relevant for location-scale models (see \code{\link{rma.uni}}).} \item{table}{logical to specify whether the VIFs should be added to the model coefficient table (the default is \code{FALSE}). Only relevant when \code{btt} (or \code{att}) is not specified.} \item{reestimate}{logical to specify whether the model should be reestimated when removing moderator variables from the model for computing a (G)VIF (the default is \code{FALSE}).} \item{sim}{logical to specify whether the distribution of each (G)VIF under independence should be simulated (the default is \code{FALSE}). Can also be an integer to specify how many values to simulate (when \code{sim=TRUE}, the default is \code{1000}).} \item{progbar}{logical to specify whether a progress bar should be shown when \code{sim=TRUE} (the default is \code{TRUE}).} \item{seed}{optional value to specify the seed of the random number generator when \code{sim=TRUE} (for reproducibility).} \item{parallel}{character string to specify whether parallel processing should be used (the default is \code{"no"}). For parallel processing, set to either \code{"snow"} or \code{"multicore"}. See \sQuote{Note}.} \item{ncpus}{integer to specify the number of processes to use in the parallel processing.} \item{cl}{optional cluster to use if \code{parallel="snow"}. If unspecified, a cluster on the local machine is created for the duration of the call.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{\dots}{other arguments.} } \details{ The function computes (generalized) variance inflation factors (VIFs) for meta-regression models. Hence, the model specified via argument \code{x} must include moderator variables (and more than one for this to be useful, as the VIF for a model with a single moderator variable will always be equal to 1). \subsection{VIFs for Individual Coefficients}{ By default (i.e., if \code{btt} is not specified), VIFs are computed for the individual model coefficients. Let \mjseqn{b_j} denote the estimate of the \mjeqn{j\text{th}}{jth} model coefficient of a particular meta-regression model and \mjeqn{\text{Var}[b_j]}{Var[b_j]} its variance (i.e., the corresponding diagonal element from the matrix obtained with the \code{\link[=vcov.rma]{vcov}} function). Moreover, let \mjseqn{b'_j} denote the estimate of the same model coefficient if the other moderator variables in the model had \emph{not} been included in the model and \mjeqn{\text{Var}[b'_j]}{Var[b'_j]} the corresponding variance. Then the VIF for the model coefficient is given by \mjdeqn{\text{VIF}[b_j] = \frac{\text{Var}[b_j]}{\text{Var}[b'_j]},}{VIF[b_j] = Var[b_j] / Var[b'_j],} which indicates the inflation in the variance of the estimated model coefficient due to potential collinearity of the \mjeqn{j\text{th}}{jth} moderator variable with the other moderator variables in the model. Taking the square root of a VIF gives the corresponding standard error inflation factor (SIF). } \subsection{GVIFs for Sets of Coefficients}{ If the model includes factors (coded in terms of multiple dummy variables) or other sets of moderator variables that belong together (e.g., for polynomials or cubic splines), one may want to examine how much the variance in all of the coefficients in the set is jointly impacted by collinearity with the other moderator variables in the model. For this, we can compute a generalized variance inflation factor (GVIF) (Fox & Monette, 1992) by setting the \code{btt} argument equal to the indices of those coefficients for which the GVIF should be computed. The square root of a GVIF indicates the inflation in the confidence ellipse/(hyper)ellipsoid for the set of coefficients corresponding to the set due to collinearity. However, to make this value more directly comparable to SIFs (based on single coefficients), the function computes the generalized standard error inflation factor (GSIF) by raising the GVIF to the power of \mjseqn{1/(2m)} (where \mjseqn{m} denotes the number of coefficients in the set). One can also specify a list of indices/strings, in which case GVIFs/GSIFs of all list elements will be computed. See \sQuote{Examples}. For location-scale models fitted with the \code{\link{rma.uni}} function, one can use the \code{att} argument in an analogous manner to specify the indices of the scale coefficients for which a GVIF should be computed. } \subsection{Re-Estimating the Model}{ The way the VIF is typically computed for a particular model coefficient (or a set thereof for a GVIF) makes use of some clever linear algebra to avoid having to re-estimate the model when removing the other moderator variables from the model. This speeds up the computations considerably. However, this assumes that the other moderator variables do not impact other aspects of the model, in particular the amount of residual heterogeneity (or, more generally, any variance/correlation components in a more complex model, such as those that can be fitted with the \code{\link{rma.mv}} function). For a more accurate (but slower) computation of each (G)VIF, one can set \code{reestimate=TRUE}, in which case the model is refitted to account for the impact that removal of the other moderator variables has on all aspects of the model. Note that refitting may fail, in which case the corresponding (G)VIF will be missing. } \subsection{Interpreting the Size of (G)VIFs}{ A large VIF value suggests that the precision with which we can estimate a particular model coefficient (or a set thereof for a GVIF) is negatively impacted by multicollinearity among the moderator variables. However, there is no specific cutoff for determining whether a particular (G)VIF is \sQuote{large}. Sometimes, values such as 5 or 10 have been suggested as rules of thumb, but such cutoffs are essentially arbitrary. } \subsection{Simulating the Distribution of (G)VIFs Under Independence}{ As a more principled approach, we can simulate the distribution of a particular (G)VIF under independence and then examine how extreme the actually observed (G)VIF value is under this distribution. The distribution is simulated by randomly reshuffling the columns of the model matrix (to break any dependence between the moderators) and recomputing the (G)VIF. When setting \code{sim=TRUE}, this is done 1000 times (but one can also set \code{sim} to an integer to specify how many (G)VIF values should be simulated). The way the model matrix is reshuffled depends on how the model was fitted. When the model was specified as a formula via the \code{mods} argument and the data was supplied via the \code{data} argument, then each column of the data frame specified via \code{data} is reshuffled and the formula is evaluated within the reshuffled data (creating the corresponding reshuffled model matrix). This way, factor/character variables are properly reshuffled and derived terms (e.g., interactions, polynomials, splines) are correct constructed. This is the recommended approach. On the other hand, if the model matrix was directly supplied to the \code{mods} argument, then each column of the matrix is directly reshuffled. This is not recommended, since this approach cannot account for any inherent relationships between variables in the model matrix (e.g., an interaction term is the product of two variables and should not be reshuffled by itself). Once the distribution of a (G)VIF under independence has been simulated, the proportion of simulated values that are smaller than the actually observed (G)VIF value is computed. If the proportion is close to 1, then this indicates that the actually observed (G)VIF value is extreme. The general principle underlying the simulation approach is the same as that underlying Horn's parallel analysis (1965) for determining the number of components / factors to keep in a principal component / factor analysis. } } \value{ An object of class \code{"vif.rma"}. The object is a list containing the following components: \item{vif}{a list of data frames with the (G)VIFs and (G)SIFs and some additional information.} \item{vifs}{a vector with the (G)VIFs.} \item{table}{the model coefficient table (only when \code{table=TRUE}).} \item{sim}{a matrix with the simulated (G)VIF values (only when \code{sim=TRUE}).} \item{prop}{a vector with the proportions of simulated values that are smaller than the actually observed (G)VIF values (only when \code{sim=TRUE}).} \item{\dots}{some additional elements/values.} When \code{x} was a location-scale model object and (G)VIFs can be computed for both the location and the scale coefficients, then the object is a list with elements \code{beta} and \code{alpha}, where each element is a \code{"vif.rma"} object as described above. The results are formatted and printed with the \code{print} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.vif.rma]{as.data.frame}} function. When \code{sim=TRUE}, the distribution of each (G)VIF can be plotted with the \code{\link[=plot.vif.rma]{plot}} function. } \note{ If the model fitted involved redundant predictors that were dropped from the model, then \code{sim=TRUE} cannot be used. In this case, one should remove any redundancies in the model fitted before using this method. When using \code{sim=TRUE}, the model needs to be refitted (by default) 1000 times. When \code{sim=TRUE} is combined with \code{reestimate=TRUE}, then this value needs to be multiplied by the total number of (G)VIF values that are computed by the function. Hence, the combination of \code{sim=TRUE} with \code{reestimate=TRUE} is computationally expensive, especially for more complex models where model fitting can be slow. When refitting the model fails, the simulated (G)VIF value(s) will be missing. It can also happen that one or multiple model coefficients become inestimable due to redundancies in the model matrix after the reshuffling. In this case, the corresponding simulated (G)VIF value(s) will be set to \code{Inf} (as that is the value of (G)VIFs in the limit as we approach perfect multicollinearity). On machines with multiple cores, one can try to speed things up by delegating the model fitting to separate worker processes, that is, by setting \code{parallel="snow"} or \code{parallel="multicore"} and \code{ncpus} to some value larger than 1. Parallel processing makes use of the \code{\link[parallel]{parallel}} package, using the \code{\link[parallel]{makePSOCKcluster}} and \code{\link[parallel]{parLapply}} functions when \code{parallel="snow"} or using \code{\link[parallel]{mclapply}} when \code{parallel="multicore"} (the latter only works on Unix/Linux-alikes). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Belsley, D. A., Kuh, E., & Welsch, R. E. (1980). \emph{Regression diagnostics}. New York: Wiley. Fox, J., & Monette, G. (1992). Generalized collinearity diagnostics. \emph{Journal of the American Statistical Association}, \bold{87}(417), 178--183. \verb{https://doi.org/10.2307/2290467} Horn, J. L. (1965). A rationale and test for the number of factors in factor analysis. \emph{Psychometrika}, \bold{30}(2), 179--185. \verb{https://doi.org/10.1007/BF02289447} Stewart, G. W. (1987). Collinearity and least squares regression. \emph{Statistical Science}, \bold{2}(1), 68--84. \verb{https://doi.org/10.1214/ss/1177013439} Wax, Y. (1992). Collinearity diagnosis for a relative risk regression-analysis: An application to assessment of diet cancer relationship in epidemiologic studies. \emph{Statistics in Medicine}, \bold{11}(10), 1273--1287. \verb{https://doi.org/10.1002/sim.4780111003} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which variance inflation factors can be computed. \code{\link[=plot.vif.rma]{plot}} for the plot method and \code{\link[=as.data.frame.vif.rma]{as.data.frame}} for the method to format the results as a data frame. } \examples{ ### copy data from Bangert-Drowns et al. (2004) into 'dat' dat <- dat.bangertdrowns2004 ### fit mixed-effects meta-regression model res <- rma(yi, vi, mods = ~ length + wic + feedback + info + pers + imag + meta, data=dat) ### get variance inflation factors vif(res) ### use the simulation approach to analyze the size of the VIFs \dontrun{ vif(res, sim=TRUE, seed=1234) } ### get variance inflation factors using the re-estimation approach vif(res, reestimate=TRUE) ### show that VIFs are not influenced by scaling of the predictors u <- scale # to standardize the predictors res <- rma(yi, vi, mods = ~ u(length) + u(wic) + u(feedback) + u(info) + u(pers) + u(imag) + u(meta), data=dat) vif(res, reestimate=TRUE) ### get full table vif(res, reestimate=TRUE, table=TRUE) ############################################################################ ### an example where the VIFs are close to 1, but actually reflect considerable ### multicollinearity as can be seen based on the simulation approach dat <- dat.mcdaniel1994 dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat) res <- rma(yi, vi, mods = ~ factor(type) + factor(struct), data=dat) res vif(res) ### use the simulation approach to analyze the size of the VIFs \dontrun{ vifs <- vif(res, sim=TRUE, seed=1234) vifs plot(vifs, lwd=c(2,2), breaks=seq(1,2,by=0.0015), xlim=c(1,1.08)) } ### an example for a location-scale model res <- rma(yi, vi, mods = ~ factor(type) + factor(struct), scale = ~ factor(type) + factor(struct), data=dat) res vif(res) ############################################################################ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit meta-regression model where one predictor (alloc) is a three-level factor res <- rma(yi, vi, mods = ~ ablat + alloc + year, data=dat) ### get variance inflation factors for all individual coefficients vif(res, table=TRUE) ### generalized variance inflation factor for the 'alloc' factor vif(res, btt=3:4) ### can also specify a string to grep for vif(res, btt="alloc") ### can also specify a list for the 'btt' argument (and use the simulation approach) \dontrun{ vif(res, btt=list(2,3:4,5), sim=TRUE, seed=1234) } } \keyword{models} metafor/man/qqnorm.rma.Rd0000644000176200001440000001653415173343621015062 0ustar liggesusers\name{qqnorm.rma} \alias{qqnorm} \alias{qqnorm.rma} \alias{qqnorm.rma.uni} \alias{qqnorm.rma.mh} \alias{qqnorm.rma.peto} \alias{qqnorm.rma.glmm} \alias{qqnorm.rma.mv} \title{Normal QQ Plots for 'rma' Objects} \description{ Function to create normal QQ plots for objects of class \code{"rma.uni"}, \code{"rma.mh"}, and \code{"rma.peto"}. \loadmathjax } \usage{ \method{qqnorm}{rma.uni}(y, type="rstandard", pch=21, col, bg, grid=FALSE, envelope=TRUE, level=y$level, bonferroni=FALSE, reps=1000, smooth=TRUE, bass=0, label=FALSE, offset=0.3, pos=13, lty, \dots) \method{qqnorm}{rma.mh}(y, type="rstandard", pch=21, col, bg, grid=FALSE, label=FALSE, offset=0.3, pos=13, \dots) \method{qqnorm}{rma.peto}(y, type="rstandard", pch=21, col, bg, grid=FALSE, label=FALSE, offset=0.3, pos=13, \dots) \method{qqnorm}{rma.glmm}(y, \dots) # not currently implemented \method{qqnorm}{rma.mv}(y, \dots) # not currently implemented } \arguments{ \item{y}{an object of class \code{"rma.uni"}, \code{"rma.mh"}, or \code{"rma.peto"}. The method is not (yet) implemented for objects of class \code{"rma.glmm"} or \code{"rma.mv"}.} \item{type}{character string (either \code{"rstandard"} (default) or \code{"rstudent"}) to specify whether standardized residuals or studentized deleted residuals should be used in creating the plot. See \sQuote{Details}.} \item{pch}{plotting symbol to use for the observed outcomes. By default, an open circle is used. See \code{\link{points}} for other options.} \item{col}{optional character string to specify the (border) color of the points.} \item{bg}{optional character string to specify the background color of open plot symbols.} \item{grid}{logical to specify whether a grid should be added to the plot (the default is \code{FALSE}). Can also be a color name.} \item{envelope}{logical to specify whether a pseudo confidence envelope should be simulated and added to the plot (the default is \code{TRUE}). Can also be a color name. Only for objects of class \code{"rma.uni"}. See \sQuote{Details}.} \item{level}{numeric value between 0 and 100 to specify the level of the pseudo confidence envelope (see \link[=misc-options]{here} for details). The default is to take the value from the object.} \item{bonferroni}{logical to specify whether the bounds of the envelope should be Bonferroni corrected.} \item{reps}{numeric value to specify the number of iterations for simulating the pseudo confidence envelope (the default is 1000).} \item{smooth}{logical to specify whether the results from the simulation should be smoothed (the default is \code{TRUE}).} \item{bass}{numeric value that controls the degree of smoothing (the default is 0).} \item{label}{argument to control the labeling of the points (the default is \code{FALSE}). See \sQuote{Details}.} \item{offset}{argument to control the distance between the points and the corresponding labels.} \item{pos}{argument to control the position of the labels.} \item{lty}{optional argument to specify the line type for the diagonal line and the pseudo confidence envelope. If unspecified, the function sets this to \code{c("solid","dotted")} by default.} \item{\dots}{other arguments.} } \details{ The plot shows the theoretical quantiles of a normal distribution on the horizontal axis against the observed quantiles for either the standardized residuals (\code{type="rstandard"}, the default) or the externally standardized residuals (\code{type="rstudent"}) on the vertical axis (see \code{\link[=residuals.rma]{residuals}} for details on the definition of these residual types). For reference, a line is added to the plot with a slope of 1, going through the (0,0) point. For objects of class \code{"rma.uni"}, it is also possible to add a pseudo confidence envelope to the plot. The envelope is created based on the quantiles of sets of pseudo residuals simulated from the given model (for details, see Cook & Weisberg, 1982). The number of sets simulated can be controlled with the \code{reps} argument. When \code{smooth=TRUE}, the simulated bounds are smoothed with Friedman's SuperSmoother (see \code{\link{supsmu}}). The \code{bass} argument can be set to a number between 0 and 10, with higher numbers indicating increasing smoothness. If \code{bonferroni=TRUE}, the envelope bounds are Bonferroni corrected, so that the envelope can be regarded as a confidence region for all \mjseqn{k} residuals simultaneously. The default however is \code{bonferroni=FALSE}, which makes the plot more sensitive to deviations from normality. With the \code{label} argument, one can control whether points in the plot will be labeled (e.g., to identify outliers). If \code{label="all"} (or \code{label=TRUE}), all points in the plot will be labeled. If \code{label="out"}, points falling outside of the confidence envelope will be labeled (only available for objects of class \code{"rma.uni"}). Finally, one can also set this argument to a numeric value (between 1 and \mjseqn{k}), to specify how many of the most extreme points should be labeled (for example, with \code{label=1} only the most extreme point is labeled, while with \code{label=3}, the most extreme, and the second and third most extreme points are labeled). With the \code{offset} argument, one can adjust the distance between the labels and the corresponding points. The \code{pos} argument is the position specifier for the labels (\code{1}, \code{2}, \code{3}, and \code{4}, respectively indicate positions below, to the left of, above, and to the right of the points; \code{13} places the labels below the points for points that fall below the reference line and above otherwise; \code{24} places the labels to the left of the points for points that fall above the reference line and to the right otherwise). } \value{ A list with components: \item{x}{the x-axis coordinates of the points that were plotted.} \item{y}{the y-axis coordinates of the points that were plotted.} Note that the list is returned invisibly. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Cook, R. D., & Weisberg, S. (1982). \emph{Residuals and influence in regression}. London: Chapman and Hall. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} Wang, M. C., & Bushman, B. J. (1998). Using the normal quantile plot to explore meta-analytic data sets. \emph{Psychological Methods}, \bold{3}(1), 46--54. \verb{https://doi.org/10.1037/1082-989X.3.1.46} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, and \code{\link{rma.peto}} for functions to fit models for which normal QQ plots can be drawn. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model res <- rma(yi, vi, data=dat) ### draw QQ plot qqnorm(res, grid=TRUE) ### fit mixed-effects model with absolute latitude as moderator res <- rma(yi, vi, mods = ~ ablat, data=dat) ### draw QQ plot qqnorm(res, grid=TRUE) } \keyword{hplot} metafor/man/blup.Rd0000644000176200001440000001262215173343621013723 0ustar liggesusers\name{blup} \alias{blup} \alias{blup.rma.uni} \title{Best Linear Unbiased Predictions for 'rma.uni' Objects} \description{ Function to compute best linear unbiased predictions (BLUPs) of the study-specific true effect sizes or outcomes (by combining the fitted values based on the fixed effects and the estimated contributions of the random effects) for objects of class \code{"rma.uni"}. Corresponding standard errors and prediction interval bounds are also provided. \loadmathjax } \usage{ blup(x, \dots) \method{blup}{rma.uni}(x, level, digits, transf, targs, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}.} \item{level}{numeric value between 0 and 100 to specify the prediction interval level (see \link[=misc-options]{here} for details). If unspecified, the default is to take the value from the object.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{transf}{optional argument to specify a function to transform the predicted values and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{\dots}{other arguments.} } \value{ An object of class \code{"list.rma"}. The object is a list containing the following components: \item{pred}{predicted values.} \item{se}{corresponding standard errors.} \item{pi.lb}{lower bound of the prediction intervals.} \item{pi.ub}{upper bound of the prediction intervals.} \item{\dots}{some additional elements/values.} The object is formatted and printed with the \code{\link[=print.list.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. } \note{ For best linear unbiased predictions of only the random effects, see \code{\link{ranef}}. For predicted/fitted values that are based only on the fixed effects of the model, see \code{\link[=fitted.rma]{fitted}} and \code{\link[=predict.rma]{predict}}. For conditional residuals (the deviations of the observed effect sizes or outcomes from the BLUPs), see \code{rstandard.rma.uni} with \code{type="conditional"}. Equal-effects models do not contain random study effects. The BLUPs for these models will therefore be equal to the fitted values, that is, those obtained with \code{\link[=fitted.rma]{fitted}} and \code{\link[=predict.rma]{predict}}. When using the \code{transf} argument, the transformation is applied to the predicted values and the corresponding interval bounds. The standard errors are then set equal to \code{NA} and are omitted from the printed output. By default, a standard normal distribution is used to construct the prediction intervals. When the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}, then a t-distribution with \mjseqn{k-p} degrees of freedom is used. To be precise, it should be noted that the function actually computes empirical BLUPs (eBLUPs), since the predicted values are a function of the estimated value of \mjseqn{\tau^2}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Kackar, R. N., & Harville, D. A. (1981). Unbiasedness of two-stage estimation and prediction procedures for mixed linear models. Communications in Statistics, Theory and Methods, \bold{10}(13), 1249--1261. \verb{https://doi.org/10.1080/03610928108828108} Raudenbush, S. W., & Bryk, A. S. (1985). Empirical Bayes meta-analysis. \emph{Journal of Educational Statistics}, \bold{10}(2), 75--98. \verb{https://doi.org/10.3102/10769986010002075} Robinson, G. K. (1991). That BLUP is a good thing: The estimation of random effects. \emph{Statistical Science}, \bold{6}(1), 15--32. \verb{https://doi.org/10.1214/ss/1177011926} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}} for the function to fit models for which BLUPs can be extracted. \code{\link[=predict.rma]{predict}} and \code{\link[=fitted.rma]{fitted}} for functions to compute the predicted/fitted values based only on the fixed effects and \code{\link{ranef}} for a function to compute the BLUPs based only on the random effects. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### meta-analysis of the log risk ratios using a random-effects model res <- rma(yi, vi, data=dat) ### BLUPs of the true risk ratios for each study blup(res, transf=exp) ### illustrate shrinkage of BLUPs towards the (estimated) population average res <- rma(yi, vi, data=dat) blups <- blup(res)$pred plot(NA, NA, xlim=c(.8,2.4), ylim=c(-2,0.5), pch=19, xaxt="n", bty="n", xlab="", ylab="Log Risk Ratio") segments(rep(1,13), dat$yi, rep(2,13), blups, col="darkgray") points(rep(1,13), dat$yi, pch=19) points(rep(2,13), blups, pch=19) axis(side=1, at=c(1,2), labels=c("Observed\nValues", "BLUPs"), lwd=0) segments(0, res$beta, 2.15, res$beta, lty="dotted") text(2.3, res$beta, substitute(hat(mu)==muhat, list(muhat=round(res$beta[[1]], 2))), cex=1) } \keyword{models} metafor/man/plot.rma.uni.selmodel.Rd0000644000176200001440000001200315173343621017103 0ustar liggesusers\name{plot.rma.uni.selmodel} \alias{plot.rma.uni.selmodel} \title{Plot Method for 'plot.rma.uni.selmodel' Objects} \description{ Function to plot objects of class \code{"plot.rma.uni.selmodel"}. \loadmathjax } \usage{ \method{plot}{rma.uni.selmodel}(x, xlim, ylim, n=1000, prec="max", scale=FALSE, ci=FALSE, reps=1000, shade=TRUE, rug=TRUE, add=FALSE, lty=c("solid","dotted"), lwd=c(2,1), \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni.selmodel"} obtained with \code{\link{selmodel}}.} \item{xlim}{x-axis limits. Essentially the range of p-values for which the selection function should be drawn. If unspecified, the function sets the limits automatically.} \item{ylim}{y-axis limits. If unspecified, the function sets the limits automatically.} \item{n}{numeric value to specify for how many p-values within the x-axis limits the function value should be computed (the default is 1000).} \item{prec}{either a character string (with options \code{"max"}, \code{"min"}, \code{"mean"}, or \code{"median"}) or a numeric value. See \sQuote{Details}.} \item{scale}{logical to specify whether the function values should be rescaled to a 0 to 1 range (the default is \code{FALSE}).} \item{ci}{logical to specify whether a confidence interval should be drawn around the selection function (the default is \code{FALSE}). Can also be a string (with options \code{"boot"} or \code{"wald"}). See \sQuote{Details}.} \item{reps}{numeric value to specify the number of bootstrap samples to draw for generating the confidence interval bounds (the default is 1000).} \item{shade}{logical to specify whether the confidence interval region should be shaded (the default is \code{TRUE}). Can also be a character vector to specify the color for the shading.} \item{rug}{logical to specify whether the observed p-values should be added as tick marks on the x-axis (the default is \code{TRUE}).} \item{add}{logical to specify whether the function should be added to an existing plot (the default is \code{FALSE}).} \item{lty}{the line types for the selection function and the confidence interval bounds.} \item{lwd}{the line widths for the selection function and the confidence interval bounds.} \item{\dots}{other arguments.} } \details{ The function can be used to draw the estimated selection function based on objects of class \code{"plot.rma.uni.selmodel"}. When the selection function incorporates a measure of precision (which, strictly speaking, is really a measure of imprecision), one can specify for which level of precision the selection function should be drawn. When \code{prec="max"}, then the function is drawn for the \emph{least} precise study (maximum imprecision), when \code{prec="min"}, then the function is drawn for the \emph{most} precise study (minimum imprecision), while \code{prec="mean"} and \code{prec="median"} will show the function for the mean and median level of imprecision, respectively. Alternatively, one can specify a numeric value for argument \code{prec} to specify the precision value (where \code{prec="max"} corresponds to \code{prec=1} and higher levels of precision to \code{prec} values below 1). When \code{ci=TRUE} (or equivalently, \code{ci="boot"}), a confidence interval is drawn around the selection function. The bounds of this interval are generated using parametric bootstrapping, with argument \code{reps} controlling the number of bootstrap samples to draw for generating the confidence interval bounds. When both \code{n} and \code{reps} are large, constructing the confidence interval can take some time. For models where the selection function involves a single \mjseqn{\delta} parameter, one can also set \code{ci="wald"}, in which case the confidence interval will be constructed based on the Wald-type CI of the \mjseqn{\delta} parameter (doing so is much quicker than using parametric bootstrapping). This option is also available for step function models (even if they involve multiple \mjseqn{\delta} parameters). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{selmodel}} for the function to fit models for which the estimated selection function can be drawn. } \examples{ ### copy data into 'dat' and examine data dat <- dat.hackshaw1998 ### fit random-effects model using the log odds ratios res <- rma(yi, vi, data=dat, method="ML") res ### fit step selection model sel1 <- selmodel(res, type="stepfun", steps=c(0.05, 0.10, 0.50, 1.00)) ### plot selection function plot(sel1, scale=TRUE) ### fit negative exponential selection model sel2 <- selmodel(res, type="negexp") ### add selection function to the existing plot plot(sel2, add=TRUE, col="blue") ### plot selection function with CI plot(sel1, ci="wald") ### plot selection function with CI plot(sel2, ci="wald") } \keyword{hplot} metafor/man/plot.rma.Rd0000644000176200001440000000516115173343621014515 0ustar liggesusers\name{plot.rma} \alias{plot.rma} \alias{plot.rma.uni} \alias{plot.rma.mh} \alias{plot.rma.mv} \alias{plot.rma.peto} \alias{plot.rma.glmm} \title{Plot Method for 'rma' Objects} \description{ Functions to plot objects of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}, and \code{"rma.glmm"}. } \usage{ \method{plot}{rma.uni}(x, qqplot=FALSE, \dots) \method{plot}{rma.mh}(x, qqplot=FALSE, \dots) \method{plot}{rma.peto}(x, qqplot=FALSE, \dots) \method{plot}{rma.glmm}(x, qqplot=FALSE, \dots) # not currently implemented \method{plot}{rma.mv}(x, qqplot=FALSE, \dots) # not currently implemented } \arguments{ \item{x}{an object of class \code{"rma.uni"}, \code{"rma.mh"}, or \code{"rma.peto"}. The method is not (yet) implemented for objects of class \code{"rma.glmm"} or \code{"rma.mv"}.} \item{qqplot}{logical to specify whether a normal QQ plot should be drawn (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ Four plots are produced. If the model does not contain any moderators, then a forest plot, funnel plot, radial plot, and a plot of the standardized residuals is provided. If \code{qqplot=TRUE}, the last plot is replaced by a normal QQ plot of the standardized residuals. If the model contains moderators, then a forest plot, funnel plot, plot of the standardized residuals against the fitted values, and a plot of the standardized residuals is provided. If \code{qqplot=TRUE}, the last plot is replaced by a normal QQ plot of the standardized residuals. } \note{ If the number of studies is large, the forest plot may become difficult to read due to the small font size. Stretching the plotting device vertically should provide more space. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest}} for forest plots, \code{\link{funnel}} for funnel plots, \code{\link{radial}} for radial plots, and \code{\link[=qqnorm.rma]{qqnorm}} for normal QQ plots. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model res <- rma(yi, vi, data=dat) ### plot results plot(res, qqplot=TRUE) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### plot results plot(res, qqplot=TRUE) } \keyword{hplot} metafor/man/reporter.Rd0000644000176200001440000001253315173343621014624 0ustar liggesusers\name{reporter} \alias{reporter} \alias{reporter.rma.uni} \title{Dynamically Generated Analysis Reports for 'rma.uni' Objects} \description{ Function to dynamically generate an analysis report for objects of class \code{"rma.uni"}. } \usage{ reporter(x, \dots) \method{reporter}{rma.uni}(x, dir, filename, format="html_document", open=TRUE, digits, forest, funnel, footnotes=FALSE, verbose=TRUE, \dots) } \arguments{ \item{x}{an object of class \code{"rma.uni"}.} \item{dir}{optional character string to specify the directory for creating the report. If unspecified, \code{\link{tempdir}} will be used.} \item{filename}{optional character string to specify the filename (without file extension) for the report. If unspecified, the function sets a filename automatically.} \item{format}{output format for the report (either \code{html_document}, \code{pdf_document}, or \code{word_document}). Can be abbreviated. See \sQuote{Note}.} \item{open}{logical to specify whether the report should be opened after it has been generated (the default is \code{TRUE}). See \sQuote{Note}.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{forest}{either a logical which will suppress the drawing of the forest plot when set to \code{FALSE} or a character string with arguments to be added to the call to \code{\link[=forest.rma]{forest}} for generating the forest plot.} \item{funnel}{either a logical which will suppress the drawing of the funnel plot when set to \code{FALSE} or a character string with arguments to be added to the call to \code{\link[=funnel.rma]{funnel}} for generating the funnel plot.} \item{footnotes}{logical to specify whether additional explanatory footnotes should be added to the report (the default is \code{FALSE}).} \item{verbose}{logical to specify whether information on the progress of the report generation should be provided (the default is \code{TRUE}).} \item{\dots}{other arguments.} } \details{ The function dynamically generates an analysis report based on the model object. The report includes information about the model that was fitted, the distribution of the observed effect sizes or outcomes, the estimate of the average outcome based on the fitted model, tests and statistics that are informative about potential (residual) heterogeneity in the outcomes, checks for outliers and/or influential studies, and tests for funnel plot asymmetry. By default, a forest plot and a funnel plot are also provided (these can be suppressed by setting \code{forest=FALSE} and/or \code{funnel=FALSE}). } \value{ The function generates either a html, pdf, or docx file and returns (invisibly) the path to the generated document. } \note{ Since the report is created based on an R Markdown document that is generated by the function, the \href{https://cran.r-project.org/package=rmarkdown}{rmarkdown} package and \href{https://pandoc.org}{pandoc} must be installed. To render the report into a pdf document (i.e., using \code{format="pdf_document"}) requires a LaTeX installation. If LaTeX is not already installed, you could try using the \href{https://cran.r-project.org/package=tinytex}{tinytex} package to install a lightweight LaTeX distribution based on TeX Live. Once the report is generated, the function opens the output file (either a .html, .pdf, or .docx file) with an appropriate application (if \code{open=TRUE}). This will only work when an appropriate application for the file type is installed and associated with the extension. If \code{filename} is unspecified, the default is to use \code{report}, followed by an underscore (i.e., \code{_}) and the name of the object passed to the function. Both the R Markdown file (with extension .rmd) and the actual report (with extension .html, .pdf, or .docx) are named accordingly. To generate the report, the model object is also saved to a file (with the same filename as above, but with extension .rdata). Also, files \code{references.bib} and \code{apa.csl} are copied to the same directory (these files are needed to generate the references in APA format). Since the report is put together based on predefined text blocks, the writing is not very elegant. Also, using personal pronouns (\sQuote{I} or \sQuote{we}) does not make sense for such a report, so a lot of passive voice is used. The generated report provides an illustration of how the results of the model can be reported, but is not a substitute for a careful examination of the results. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}} for the function to fit models for which an analysis report can be generated. } \examples{ ### copy BCG vaccine data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat, slab=paste(author, ", ", year, sep="")) ### fit random-effects model res <- rma(yi, vi, data=dat) \dontrun{ ### generate report reporter(res) } } \keyword{methods} metafor/man/rma.peto.Rd0000644000176200001440000002724315173343621014513 0ustar liggesusers\name{rma.peto} \alias{rma.peto} \title{Meta-Analysis via Peto's Method} \description{ Function to fit equal-effects models to \mjeqn{2 \times 2}{2x2} table data via Peto's method. See below and the introduction to the \pkg{\link{metafor-package}} for more details on these models. \loadmathjax } \usage{ rma.peto(ai, bi, ci, di, n1i, n2i, data, slab, subset, add=1/2, to="only0", drop00=TRUE, level=95, verbose=FALSE, digits, \dots) } \arguments{ \emph{These arguments pertain to data input:} \item{ai}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper left cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{bi}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper right cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{ci}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower left cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{di}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower right cell). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{n1i}{vector with the group sizes or row totals (first group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{n2i}{vector with the group sizes or row totals (second group). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{data}{optional data frame containing the data supplied to the function.} \item{slab}{optional vector with labels for the \mjseqn{k} studies.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be used for the analysis.} \emph{These arguments pertain to handling of zero cells/counts/frequencies:} \item{add}{non-negative number to specify the amount to add to zero cells when calculating the observed effect sizes of the individual studies. Can also be a vector of two numbers, where the first number is used in the calculation of the observed effect sizes and the second number is used when applying Peto's method. See below and the documentation of the \code{\link{escalc}} function for more details.} \item{to}{character string to specify when the values under \code{add} should be added (either \code{"only0"}, \code{"all"}, \code{"if0all"}, or \code{"none"}). Can also be a character vector, where the first string again applies when calculating the observed effect sizes or outcomes and the second string when applying Peto's method. See below and the documentation of the \code{\link{escalc}} function for more details.} \item{drop00}{logical to specify whether studies with no cases (or only cases) in both groups should be dropped when calculating the observed effect sizes or outcomes (the outcomes for such studies are set to \code{NA}). Can also be a vector of two logicals, where the first applies to the calculation of the observed effect sizes or outcomes and the second when applying Peto's method. See below and the documentation of the \code{\link{escalc}} function for more details.} \emph{These arguments pertain to the model / computations and output:} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{verbose}{logical to specify whether output should be generated on the progress of the model fitting (the default is \code{FALSE}).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is 4. See also \link[=misc-options]{here} for further details on how to control the number of digits in the output.} \item{\dots}{additional arguments.} } \details{ \subsection{Specifying the Data}{ The studies are assumed to provide data in terms of \mjeqn{2 \times 2}{2x2} tables of the form: \tabular{lcccccc}{ \tab \ics \tab outcome 1 \tab \ics \tab outcome 2 \tab \ics \tab total \cr group 1 \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \tab \ics \tab \code{n1i} \cr group 2 \tab \ics \tab \code{ci} \tab \ics \tab \code{di} \tab \ics \tab \code{n2i}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies and \code{n1i} and \code{n2i} the row totals. For example, in a set of randomized clinical trials (RCTs) or cohort studies, group 1 and group 2 may refer to the treatment/exposed and placebo/control/non-exposed group, respectively, with outcome 1 denoting some event of interest (e.g., death) and outcome 2 its complement. In a set of case-control studies, group 1 and group 2 may refer to the group of cases and the group of controls, with outcome 1 denoting, for example, exposure to some risk factor and outcome 2 non-exposure. } \subsection{Peto's Method}{ An approach for aggregating data of this type was suggested by Peto (see Yusuf et al., 1985). The method provides a weighted estimate of the (log) odds ratio under an equal-effects model. The method is particularly advantageous when the event of interest is rare, but it should only be used when the group sizes within the individual studies are not too dissimilar and the effect sizes are generally small (Greenland & Salvan, 1990; Sweeting et al., 2004; Bradburn et al., 2007). Note that the printed results are given both in terms of the log and the raw units (for easier interpretation). } \subsection{Observed Effect Sizes or Outcomes of the Individual Studies}{ Peto's method itself does not require the calculation of the observed log odds ratios of the individual studies and directly makes use of the cell frequencies in the \mjeqn{2 \times 2}{2x2} tables. Zero cells are not a problem (except in extreme cases, such as when one of the two outcomes never occurs in any of the tables). Therefore, it is unnecessary to add some constant to the cell counts when there are zero cells. However, for plotting and various other functions, it is necessary to calculate the observed log odds ratios for the \mjseqn{k} studies. Here, zero cells can be problematic, so adding a constant value to the cell counts ensures that all \mjseqn{k} values can be calculated. The \code{add} and \code{to} arguments are used to specify what value should be added to the cell frequencies and under what circumstances when calculating the observed log odds ratios and when applying Peto's method. Similarly, the \code{drop00} argument is used to specify how studies with no cases (or only cases) in both groups should be handled. The documentation of the \code{\link{escalc}} function explains how the \code{add}, \code{to}, and \code{drop00} arguments work. If only a single value for these arguments is specified (as per default), then these values are used when calculating the observed log odds ratios and no adjustment to the cell counts is made when applying Peto's method. Alternatively, when specifying two values for these arguments, the first value applies when calculating the observed log odds ratios and the second value when applying Peto's method. Note that \code{drop00} is set to \code{TRUE} by default. Therefore, the observed log odds ratios for studies where \code{ai=ci=0} or \code{bi=di=0} are set to \code{NA}. When applying Peto's method, such studies are not explicitly dropped (unless the second value of \code{drop00} argument is also set to \code{TRUE}), but this is practically not necessary, as they do not actually influence the results (assuming no adjustment to the cell counts are made when applying Peto's method). } } \value{ An object of class \code{c("rma.peto","rma")}. The object is a list containing the following components: \item{beta}{aggregated log odds ratio.} \item{se}{standard error of the aggregated value.} \item{zval}{test statistics of the aggregated value.} \item{pval}{corresponding p-value.} \item{ci.lb}{lower bound of the confidence interval.} \item{ci.ub}{upper bound of the confidence interval.} \item{QE}{test statistic of the test for heterogeneity.} \item{QEp}{corresponding p-value.} \item{k}{number of studies included in the analysis.} \item{yi, vi}{the vector of individual log odds ratios and corresponding sampling variances.} \item{fit.stats}{a list with the log-likelihood, deviance, AIC, BIC, and AICc values under the unrestricted and restricted likelihood.} \item{\dots}{some additional elements/values.} } \section{Methods}{ The results of the fitted model are formatted and printed with the \code{\link[=print.rma.peto]{print}} function. If fit statistics should also be given, use \code{\link[=summary.rma]{summary}} (or use the \code{\link[=fitstats.rma]{fitstats}} function to extract them). The \code{\link[=residuals.rma]{residuals}}, \code{\link[=rstandard.rma.peto]{rstandard}}, and \code{\link[=rstudent.rma.peto]{rstudent}} functions extract raw and standardized residuals. Leave-one-out diagnostics can be obtained with \code{\link[=leave1out.rma.peto]{leave1out}}. Forest, funnel, radial, \enc{L'Abbé}{L'Abbe}, and Baujat plots can be obtained with \code{\link[=forest.rma]{forest}}, \code{\link[=funnel.rma]{funnel}}, \code{\link[=radial.rma]{radial}}, \code{\link[=labbe.rma]{labbe}}, and \code{\link[=baujat.rma]{baujat}}. The \code{\link[=qqnorm.rma.peto]{qqnorm}} function provides normal QQ plots of the standardized residuals. One can also call \code{\link[=plot.rma.peto]{plot}} on the fitted model object to obtain various plots at once. A cumulative meta-analysis (i.e., adding one observation at a time) can be obtained with \code{\link[=cumul.rma.peto]{cumul}}. Other extractor functions include \code{\link[=coef.rma]{coef}}, \code{\link[=vcov.rma]{vcov}}, \code{\link[=se.rma]{se}}, \code{\link[=fitstats]{logLik}}, \code{\link[=fitstats]{deviance}}, \code{\link[=fitstats]{AIC}}, and \code{\link[=fitstats]{BIC}}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Bradburn, M. J., Deeks, J. J., Berlin, J. A., & Localio, A. R. (2007). Much ado about nothing: A comparison of the performance of meta-analytical methods with rare events. \emph{Statistics in Medicine}, \bold{26}(1), 53--77. \verb{https://doi.org/10.1002/sim.2528} Greenland, S., & Salvan, A. (1990). Bias in the one-step method for pooling study results. \emph{Statistics in Medicine}, \bold{9}(3), 247--252. \verb{https://doi.org/10.1002/sim.4780090307} Sweeting, M. J., Sutton, A. J., & Lambert, P. C. (2004). What to add to nothing? Use and avoidance of continuity corrections in meta-analysis of sparse data. \emph{Statistics in Medicine}, \bold{23}(9), 1351--1375. \verb{https://doi.org/10.1002/sim.1761} Yusuf, S., Peto, R., Lewis, J., Collins, R., & Sleight, P. (1985). Beta blockade during and after myocardial infarction: An overview of the randomized trials. \emph{Progress in Cardiovascular Disease}, \bold{27}(5), 335--371. \verb{https://doi.org/10.1016/s0033-0620(85)80003-7} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.glmm}}, \code{\link{rma.mh}}, and \code{\link{rma.mv}} for other model fitting functions. \code{\link[metadat]{dat.collins1985a}}, \code{\link[metadat]{dat.collins1985b}}, and \code{\link[metadat]{dat.yusuf1985}} for further examples of the use of the \code{rma.peto} function. } \examples{ ### meta-analysis of the (log) odds ratios using Peto's method rma.peto(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) } \keyword{models} metafor/man/print.anova.rma.Rd0000644000176200001440000000621015173343621015772 0ustar liggesusers\name{print.anova.rma} \alias{print.anova.rma} \alias{print.list.anova.rma} \title{Print Methods for 'anova.rma' and 'list.anova.rma' Objects} \description{ Functions to print objects of class \code{"anova.rma"} and \code{"list.anova.rma"}. \loadmathjax } \usage{ \method{print}{anova.rma}(x, digits=x$digits, \dots) \method{print}{list.anova.rma}(x, digits=x[[1]]$digits, \dots) } \arguments{ \item{x}{an object of class \code{"anova.rma"} or \code{"list.anova.rma"} obtained with \code{\link[=anova.rma]{anova}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{\dots}{other arguments.} } \details{ For a Wald-type test of one or multiple model coefficients, the output includes the test statistic (either a chi-square or F-value) and the corresponding p-value. When testing one or multiple contrasts, the output includes the estimated value of the contrast, its standard error, test statistic (either a z- or a t-value), and the corresponding p-value. When comparing two model objects, the output includes: \itemize{ \item the number of parameters in the full and the reduced model. \item the AIC, BIC, AICc, and log-likelihood of the full and the reduced model. \item the value of the likelihood ratio test statistic. \item the corresponding p-value. \item the test statistic of the test for (residual) heterogeneity for the full and the reduced model. \item the estimate of \mjseqn{\tau^2} from the full and the reduced model. Suppressed for equal-effects models. \item amount (in percent) of heterogeneity in the reduced model that is accounted for in the full model (\code{NA} for \code{"rma.mv"} objects). This can be regarded as a pseudo \mjseqn{R^2} statistic (Raudenbush, 2009). Note that the value may not be very accurate unless \mjseqn{k} is large (\enc{López-López}{Lopez-Lopez} et al., 2014). } The last two items are not provided when comparing \code{"rma.mv"} models. } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ \enc{López-López}{Lopez-Lopez}, J. A., \enc{Marín-Martínez}{Marin-Martinez}, F., \enc{Sánchez-Meca}{Sanchez-Meca}, J., Van den Noortgate, W., & Viechtbauer, W. (2014). Estimation of the predictive power of the model in mixed-effects meta-regression: A simulation study. \emph{British Journal of Mathematical and Statistical Psychology}, \bold{67}(1), 30--48. \verb{https://doi.org/10.1111/bmsp.12002} Raudenbush, S. W. (2009). Analyzing effect sizes: Random effects models. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (2nd ed., pp. 295--315). New York: Russell Sage Foundation. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=anova.rma]{anova}} for the function to create \code{anova.rma} objects. } \keyword{print} metafor/man/vec2mat.Rd0000644000176200001440000000261415173343621014322 0ustar liggesusers\name{vec2mat} \alias{vec2mat} \title{Convert a Vector into a Square Matrix} \description{ Function to convert a vector into a square matrix by filling up the lower triangular part of the matrix. } \usage{ vec2mat(x, diag=FALSE, corr=!diag, dimnames) } \arguments{ \item{x}{a vector of the correct length.} \item{diag}{logical to specify whether the vector also contains the diagonal values of the lower triangular part of the matrix (the default is \code{FALSE}).} \item{corr}{logical to specify whether the diagonal of the matrix should be replaced with 1's (the default is to do this when \code{diag=FALSE}).} \item{dimnames}{optional vector of the correct length with the dimension names of the matrix.} } \details{ The values in \code{x} are filled into the lower triangular part of a square matrix with the appropriate dimensions (which are determined based on the length of \code{x}). If \code{diag=TRUE}, then \code{x} is assumed to also contain the diagonal values of the lower triangular part of the matrix. If \code{corr=TRUE}, then the diagonal of the matrix is replaced with 1's. } \value{ A matrix. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \examples{ vec2mat(1:6, corr=FALSE) vec2mat(seq(0.2, 0.7, by=0.1), corr=TRUE) vec2mat(1:10, diag=TRUE) vec2mat(1:6, corr=FALSE, dimnames=c("A","B","C","D")) } \keyword{manip} metafor/man/addpoly.predict.rma.Rd0000644000176200001440000001253515173343621016627 0ustar liggesusers\name{addpoly.predict.rma} \alias{addpoly.predict.rma} \title{Add Polygons to Forest Plots (Method for 'predict.rma' Objects)} \description{ Function to add one or more polygons to a forest plot based on an object of class \code{"predict.rma"}. } \usage{ \method{addpoly}{predict.rma}(x, rows=-2, annotate, addpred=FALSE, predstyle, predlim, digits, width, mlab, transf, atransf, targs, efac, col, border, lty, fonts, cex, constarea=FALSE, \dots) } \arguments{ \item{x}{an object of class \code{"predict.rma"}.} \item{rows}{vector to specify the rows (or more generally, the positions) for plotting the polygons (defaults is \code{-2}). Can also be a single value to specify the row of the first polygon (the remaining polygons are then plotted below this starting row).} \item{annotate}{optional logical to specify whether annotations should be added to the plot for the polygons that are drawn.} \item{addpred}{logical to specify whether the prediction interval should be added to the plot (the default is \code{FALSE}).} \item{predstyle}{character string to specify the style of the prediction interval (either \code{"line"}, \code{"polygon"}, \code{"bar"}, \code{"shade"}, or \code{"dist"}). Can be abbreviated. Setting this argument automatically sets \code{addpred=TRUE}.} \item{predlim}{optional argument to specify the limits of the predictive distribution when \code{predstyle="dist"}.} \item{digits}{optional integer to specify the number of decimal places to which the annotations should be rounded.} \item{width}{optional integer to manually adjust the width of the columns for the annotations.} \item{mlab}{optional character vector of the same length as \code{x} giving labels for the polygons that are drawn.} \item{transf}{optional argument to specify a function to transform the \code{x} values and confidence interval bounds (e.g., \code{transf=exp}; see also \link{transf}).} \item{atransf}{optional argument to specify a function to transform the annotations (e.g., \code{atransf=exp}; see also \link{transf}).} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{efac}{optional vertical expansion factor for the polygons.} \item{col}{optional character string to specify the color of the polygons.} \item{border}{optional character string to specify the border color of the polygons.} \item{lty}{optional argument to specify the line type for the prediction interval.} \item{fonts}{optional character string to specify the font for the labels and annotations.} \item{cex}{optional symbol expansion factor.} \item{constarea}{logical to specify whether the height of the polygons (when adding multiple) should be adjusted so that the area of the polygons is constant (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ The function can be used to add one or more polygons to an existing forest plot created with the \code{\link{forest}} function. For example, pooled estimates based on a model involving moderators can be added to the plot this way (see \sQuote{Examples}). To use the function, one should specify the values at which the polygons should be drawn (via the \code{x} argument) together with the corresponding variances (via the \code{vi} argument) or with the corresponding standard errors (via the \code{sei} argument). Alternatively, one can specify the values at which the polygons should be drawn together with the corresponding confidence interval bounds (via the \code{ci.lb} and \code{ci.ub} arguments). Optionally, one can also specify the bounds of the corresponding prediction interval bounds via the \code{pi.lb} and \code{pi.ub} arguments. If unspecified, arguments \code{annotate}, \code{digits}, \code{width}, \code{transf}, \code{atransf}, \code{targs}, \code{efac}, \code{fonts}, \code{cex}, \code{annosym}, and \code{textpos} are automatically set equal to the same values that were used when creating the forest plot. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest}} for functions to draw forest plots to which polygons can be added. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### forest plot of the observed risk ratios with(dat, forest(yi, vi, atransf=exp, xlim=c(-9,5), ylim=c(-5,16), at=log(c(0.05, 0.25, 1, 4)), cex=0.9, order=alloc, ilab=alloc, ilab.lab="Allocation", ilab.xpos=-4.5, header="Author(s) and Year")) ### fit mixed-effects model with allocation method as a moderator res <- rma(yi, vi, mods = ~ 0 + alloc, data=dat) ### predicted log risk ratios for the different allocation methods x <- predict(res, newmods=diag(3)) ### add predicted average risk ratios to the forest plot addpoly(x, efac=1.2, col="gray", addpred=TRUE, mlab=c("Alternate Allocation", "Random Allocation", "Systematic Allocation")) abline(h=0) text(-9, -1, "Model-Based Estimates:", pos=4, cex=0.9, font=2) } \keyword{aplot} metafor/man/weights.rma.Rd0000644000176200001440000000674515173343621015222 0ustar liggesusers\name{weights.rma} \alias{weights} \alias{weights.rma} \alias{weights.rma.uni} \alias{weights.rma.mh} \alias{weights.rma.peto} \alias{weights.rma.glmm} \alias{weights.rma.mv} \title{Compute Weights for 'rma' Objects} \description{ Functions to compute the weights given to the observed effect sizes or outcomes during the model fitting for objects of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}, and \code{"rma.mv"}. } \usage{ \method{weights}{rma.uni}(object, type="diagonal", \dots) \method{weights}{rma.mh}(object, type="diagonal", \dots) \method{weights}{rma.peto}(object, type="diagonal", \dots) \method{weights}{rma.glmm}(object, \dots) \method{weights}{rma.mv}(object, type="diagonal", \dots) } \arguments{ \item{object}{an object of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}, or \code{"rma.mv"}. The method is not (yet) implemented for objects of class \code{"rma.glmm"}.} \item{type}{character string to specify whether to return only the diagonal of the weight matrix (\code{"diagonal"}) or the entire weight matrix (\code{"matrix"}). For \code{"rma.mv"}, this can also be \code{"rowsum"} for \sQuote{row-sum weights} (for intercept-only models).} \item{\dots}{other arguments.} } \value{ Either a vector with the diagonal elements of the weight matrix or the entire weight matrix. When only the diagonal elements are returned, they are given in \% (and they add up to 100\%). When the entire weight matrix is requested, this is always a diagonal matrix for objects of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}. For \code{"rma.mv"}, the structure of the weight matrix depends on the model fitted (i.e., the random effects included and the variance-covariance matrix of the sampling errors) but is often more complex and not just diagonal. For intercept-only \code{"rma.mv"} models, one can also take the sum over the rows in the weight matrix, which are actually the weights assigned to the observed effect sizes or outcomes when estimating the model intercept. These weights can be obtained with \code{type="rowsum"} (as with \code{type="diagonal"}, they are also given in \%). See \href{https://www.metafor-project.org/doku.php/tips:weights_in_rma.mv_models}{here} for a discussion of this. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, and \code{\link{rma.mv}} for functions to fit models for which model fitting weights can be extracted. \code{\link{influence.rma.uni}} and \code{\link{influence.rma.mv}} for other model diagnostics. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### extract the model fitting weights (in \%) weights(res) ### extract the weight matrix round(weights(res, type="matrix"), 4) } \keyword{models} metafor/man/predict.rma.Rd0000644000176200001440000004043415173343621015173 0ustar liggesusers\name{predict.rma} \alias{predict} \alias{predict.rma} \alias{predict.rma.ls} \title{Predicted Values for 'rma' Objects} \description{ The function computes predicted values, corresponding standard errors, confidence intervals, and prediction intervals for objects of class \code{"rma"}. \loadmathjax } \usage{ \method{predict}{rma}(object, newmods, intercept, tau2.levels, gamma2.levels, hetvar, addx=FALSE, level, adjust=FALSE, digits, transf, targs, vcov=FALSE, \dots) \method{predict}{rma.ls}(object, newmods, intercept, addx=FALSE, newscale, addz=FALSE, level, adjust=FALSE, digits, transf, targs, vcov=FALSE, \dots) } \arguments{ \item{object}{an object of class \code{"rma"} or \code{"rma.ls"}.} \item{newmods}{optional vector or matrix to specify the values of the moderator values for which the predicted values should be calculated. See \sQuote{Details}.} \item{intercept}{logical to specify whether the intercept should be included when calculating the predicted values for \code{newmods}. If unspecified, the intercept is automatically added when the model also included an intercept.} \item{tau2.levels}{optional vector to specify the levels of the inner factor when computing prediction intervals. Only relevant for models of class \code{"rma.mv"} (see \code{\link{rma.mv}}) and when the model includes more than a single \mjseqn{\tau^2} value. See \sQuote{Details}.} \item{gamma2.levels}{optional vector to specify the levels of the inner factor when computing prediction intervals. Only relevant for models of class \code{"rma.mv"} (see \code{\link{rma.mv}}) and when the model includes more than a single \mjseqn{\gamma^2} value. See \sQuote{Details}.} \item{hetvar}{optional numeric vector with the amount of heterogeneity for computing prediction intervals. See \sQuote{Details}.} \item{addx}{logical to specify whether the values of the moderator variables should be added to the returned object. See \sQuote{Examples}.} \item{newscale}{optional vector or matrix to specify the values of the scale variables for which the predicted values should be calculated. Only relevant for location-scale models (see \code{\link{rma.uni}}). See \sQuote{Details}.} \item{addz}{logical to specify whether the values of the scale variables should be added to the returned object.} \item{level}{numeric value between 0 and 100 to specify the confidence and prediction interval level (see \link[=misc-options]{here} for details). If unspecified, the default is to take the value from the object.} \item{adjust}{logical to specify whether the width of confidence/prediction intervals should be adjusted using a Bonferroni correction (the default is \code{FALSE}).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} \item{transf}{optional argument to specify a function to transform the predicted values and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{vcov}{logical to specify whether the variance-covariance matrix of the predicted values should also be returned (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ For an equal-effects model, \code{predict(object)} returns the estimated (average) outcome in the set of studies included in the meta-analysis. This is the same as the estimated intercept in the equal-effects model (i.e., \mjseqn{\hat{\theta}}). For a random-effects model, \code{predict(object)} returns the estimated (average) outcome in the hypothetical population of studies from which the set of studies included in the meta-analysis are assumed to be a random selection. This is the same as the estimated intercept in the random-effects model (i.e., \mjseqn{\hat{\mu}}). For models including one or more moderators, \code{predict(object)} returns \mjseqn{\hat{y} = Xb}, where \mjseqn{X} denotes the model matrix (see \code{\link[=model.matrix.rma]{model.matrix}}) and \mjseqn{b} the estimated model coefficient (see \code{\link[=coef.rma]{coef}}), or in words, the estimated (average) outcomes for values of the moderator(s) equal to those of the \mjseqn{k} studies included in the meta-analysis (i.e., the \sQuote{fitted values} for the \mjseqn{k} studies). For models including \mjseqn{p'} moderator variables, new moderator values (for \mjeqn{k_{new}}{k_new} hypothetical new studies) can be specified by setting \code{newmods} equal to a \mjeqn{k_{new} \times p'}{k_new x p'} matrix with the corresponding new moderator values (if \code{newmods} is a vector, then only a single predicted value is computed unless the model only includes a single moderator variable, in which case predicted values corresponding to all the vector values are computed). If the model object includes an intercept (so that the model matrix has \mjseqn{p' + 1} columns), then it will be automatically added to \code{newmods} unless one sets \code{intercept=FALSE}; alternatively, if \code{newmods} is a \mjeqn{k_{new} \times (p'+1)}{k_new x (p'+1)} matrix, then the \code{intercept} argument is ignored and the first column of the matrix determines whether the intercept is included when computing the predicted values or not. Note that any factors in the original model get turned into the appropriate contrast variables within the \code{\link{rma.uni}} function, so that \code{newmods} should actually include the values for the contrast variables. If the matrix specified via \code{newmods} has row names, then these are used to label the predicted values in the output. Examples are shown below. For random/mixed-effects models, a prediction interval is also computed (Riley et al., 2011, but see \sQuote{Note}). The interval estimates where \code{level}\% of the true effect sizes or outcomes fall in the hypothetical population of studies (and hence where the true effect or outcome of a new study from the population of studies should fall in \code{level}\% of the cases). For random-effects models that were fitted with the \code{\link{rma.mv}} function, the model may actually include multiple \mjseqn{\tau^2} values (i.e., when the \code{random} argument includes an \sQuote{\code{~ inner | outer}} term and \code{struct="HCS"}, \code{struct="DIAG"}, \code{struct="HAR"}, or \code{struct="UN"}). In that case, the function will provide prediction intervals for each level of the inner factor (since the prediction intervals differ depending on the \mjseqn{\tau^2} value). Alternatively, one can use the \code{tau2.levels} argument to specify for which level(s) the prediction interval should be provided. If the model includes a second \sQuote{\code{~ inner | outer}} term with multiple \mjseqn{\gamma^2} values, prediction intervals for each combination of levels of the inner factors will be provided. Alternatively, one can use the \code{tau2.levels} and \code{gamma2.levels} arguments to specify for which level combination(s) the prediction interval should be provided. When using the \code{newmods} argument for mixed-effects models that were fitted with the \code{\link{rma.mv}} function, if the model includes multiple \mjseqn{\tau^2} (and multiple \mjseqn{\gamma^2}) values, then one must use the \code{tau2.levels} (and \code{gamma2.levels}) argument to specify the levels of the inner factor(s) (i.e., a vector of length \mjeqn{k_{new}}{k_new}) to obtain the appropriate prediction interval(s). Alternatively, one can use the \code{hetvar} argument to specify a vector with the amount of heterogeneity for the predicted values. For location-scale models fitted with the \code{\link{rma.uni}} function, one can use \code{newmods} to specify the values of the \mjseqn{p'} moderator variables included in the model and \code{newscale} to specify the values of the \mjseqn{q'} scale variables included in the model. Whenever \code{newmods} is specified, the function computes predicted effects/outcomes for the specified moderators values. To obtain the corresponding prediction intervals, one must also specify the corresponding \code{newscale} values. If only \code{newscale} is specified (and not \code{newmods}), the function computes the predicted log-transformed \mjseqn{\tau^2} values (when using a log link) for the specified scale values. By setting \code{transf=exp}, one can then obtain the predicted \mjseqn{\tau^2} values. When computing multiple predicted values, one can set \code{adjust=TRUE} to obtain confidence/prediction intervals whose width is adjusted based on a Bonferroni correction (e.g., instead of 95\% CIs, the function provides (100-5/\mjeqn{k_{new}}{k_new})\% CIs, where \mjeqn{k_{new}}{k_new} denotes the number of predicted values computed). } \value{ An object of class \code{c("predict.rma","list.rma")}. The object is a list containing the following components: \item{pred}{predicted value(s).} \item{se}{corresponding standard error(s).} \item{ci.lb}{lower bound of the confidence interval(s).} \item{ci.ub}{upper bound of the confidence interval(s).} \item{pi.lb}{lower bound of the prediction interval(s) (only for random/mixed-effects models).} \item{pi.ub}{upper bound of the prediction interval(s) (only for random/mixed-effects models).} \item{tau2.level}{the level(s) of the inner factor (only for models of class \code{"rma.mv"} with multiple \mjseqn{\tau^2} values).} \item{gamma2.level}{the level(s) of the inner factor (only for models of class \code{"rma.mv"} with multiple \mjseqn{\gamma^2} values).} \item{X}{the moderator value(s) used to calculate the predicted values (only when \code{addx=TRUE}).} \item{Z}{the scale value(s) used to calculate the predicted values (only when \code{addz=TRUE} and only for location-scale models).} \item{\dots}{some additional elements/values.} If \code{vcov=TRUE}, then the returned object is a list with the first element equal to the one as described above and the second element equal to the variance-covariance matrix of the predicted values. The object is formatted and printed with the \code{\link[=print.list.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. } \note{ Confidence and prediction intervals are constructed based on the critical values from a standard normal distribution (i.e., \mjeqn{\pm 1.96}{±1.96} for \code{level=95}). When the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}, then a t-distribution with \mjseqn{k-p} degrees of freedom is used, where \mjseqn{p} denotes the total number of columns of the model matrix (i.e., counting the intercept term if the model includes one). For a random-effects model (where \mjseqn{p=1}) fitted with the \code{\link{rma.uni}} function, note that this differs slightly from Riley et al. (2011), who suggest to use a t-distribution with \mjseqn{k-2} degrees of freedom for constructing the prediction interval. Neither a normal, nor a t-distribution with \mjseqn{k-1} or \mjseqn{k-2} degrees of freedom is correct; all of these are approximations. The computations are done in the way described above, so that the prediction interval is identical to the confidence interval when \mjeqn{\hat{\tau}^2 = 0}{hat(\tau)^2 = 0}, which could be argued is the logical thing that should happen. If the prediction interval for a random-effects model should be computed as described by Riley et al. (2011), then one can use argument \code{predtype="Riley"} (and for mixed-effects meta-regression models, the function then uses \mjseqn{k-p-1} degrees of freedom). The predicted values are based only on the fixed effects of the model. Best linear unbiased predictions (BLUPs) that combine the fitted values based on the fixed effects and the estimated contributions of the random effects can be obtained with \code{\link[=blup.rma.uni]{blup}} (currently only for objects of class \code{"rma.uni"}). When using the \code{transf} option, the transformation is applied to the predicted values and the corresponding interval bounds. The standard errors are omitted from the printed output. Also, \code{vcov=TRUE} is ignored when using the \code{transf} option. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Hedges, L. V., & Olkin, I. (1985). \emph{Statistical methods for meta-analysis}. San Diego, CA: Academic Press. Riley, R. D., Higgins, J. P. T., & Deeks, J. J. (2011). Interpretation of random effects meta-analyses. \emph{British Medical Journal}, \bold{342}, d549. \verb{https://doi.org/10.1136/bmj.d549} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} } \seealso{ \code{\link[=fitted.rma]{fitted}} for a function to (only) extract the fitted values, \code{\link[=blup.rma.uni]{blup}} for a function to compute BLUPs that combine the fitted values and predicted random effects, and \code{\link[=addpoly.predict.rma]{addpoly}} to add polygons based on predicted values to a forest plot. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model res <- rma(yi, vi, data=dat) ### estimated average log risk ratio with 95\% CI/PI predict(res, digits=2) ### estimated average risk ratio with 95\% CI/PI predict(res, transf=exp, digits=2) ### note: strictly speaking, the value obtained is the estimated median risk ratio ### because exponentiation is a non-linear transformation; but we can estimate the ### average risk ratio by using the integral transformation predict(res, transf=transf.exp.int, targs=res$tau2, digits=2) ### predict() can automatically extract the tau^2 value needed for the integral ### transformation from the model object, so we don't need to specify it predict(res, transf=transf.exp.int, digits=2) ### note: the prediction interval is not printed here, because the regular back- ### transformation gives the correct bounds for the PI (the integral transformation ### is only needed to obtain the estimated average risk ratio and its CI) ### fit mixed-effects model with absolute latitude as a moderator res <- rma(yi, vi, mods = ~ ablat, data=dat) ### predicted average risk ratios for given absolute latitude values predict(res, transf=exp, addx=TRUE) ### predicted average risk ratios for 10-60 degrees absolute latitude predict(res, newmods=c(10, 20, 30, 40, 50, 60), transf=exp, addx=TRUE) ### can also include the intercept term in the 'newmods' matrix predict(res, newmods=cbind(1, c(10, 20, 30, 40, 50, 60)), transf=exp, addx=TRUE) ### apply a Bonferroni correction for obtaining the interval bounds predict(res, newmods=cbind(1, c(10, 20, 30, 40, 50, 60)), transf=exp, addx=TRUE, adjust=TRUE) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### predicted average risk ratios for 10 and 60 degrees latitude in 1950 and 1980 predict(res, newmods=cbind(c(10,60,10,60),c(1950,1950,1980,1980)), transf=exp, addx=TRUE) ### predicted average risk ratios for 10 and 60 degrees latitude in 1970 (row names as labels) predict(res, newmods=rbind(at10=c(10,1970), at60=c(60,1970)), transf=exp) ### fit mixed-effects model with two moderators (one of which is a factor) res <- rma(yi, vi, mods = ~ ablat + factor(alloc), data=dat) ### examine how the factor was actually coded for the studies in the dataset predict(res, addx=TRUE) ### predicted average risk ratios at 30 degrees for the three factor levels ### note: the contrast (dummy) variables need to specified explicitly here predict(res, newmods=c(30, 0, 0), addx=TRUE) # for alternate allocation predict(res, newmods=c(30, 1, 0), addx=TRUE) # for random allocation predict(res, newmods=c(30, 0, 1), addx=TRUE) # for systematic allocation ### can also use a named vector with arbitrary order and abbreviated variable names predict(res, newmods=c(sys=0, ran=0, abl=30)) predict(res, newmods=c(sys=0, ran=1, abl=30)) predict(res, newmods=c(sys=1, ran=0, abl=30)) } \keyword{models} metafor/man/misc-recs.Rd0000644000176200001440000003054615173343621014653 0ustar liggesusers\name{misc-recs} \alias{misc-recs} \alias{misc_recs} \title{Some Recommended Practices} \description{ This page documents some recommended practices when working with the \pkg{metafor} package (and more generally when conducting meta-analyses). \loadmathjax } \details{ \subsection{Restricted Maximum Likelihood Estimation}{ When fitting models with the \code{\link{rma.uni}} and \code{\link{rma.mv}} functions, use of restricted maximum likelihood (REML) estimation is generally recommended. This is also the default setting (i.e., \code{method="REML"}). Various simulation studies have indicated that REML estimation tends to provide approximately unbiased estimates of the amount of heterogeneity (e.g., Langan et al., 2019; Veroniki et al., 2016; Viechtbauer, 2005), or more generally, of the variance components in more complex mixed-effects models (Harville, 1977). For models fitted with the \code{\link{rma.uni}} function, the empirical Bayes / Paule-Mandel estimators (i.e., \code{method="EB"} / \code{method="PM"}), which can actually be shown to be identical to each other despite their different derivations (Viechtbauer et al., 2015), also have some favorable properties. However, these estimators do not generalize in a straightforward manner to more complex models, such as those that can be fitted with the \code{\link{rma.mv}} function. } \subsection{Improved Inference Methods}{ When fitting models with the \code{\link{rma.uni}} function, tests of individual model coefficients and the corresponding confidence intervals are by default (i.e., when \code{test="z"}) based on a standard normal distribution, while the omnibus test is based on a chi-square distribution. These inference methods may not perform nominally (i.e., the Type I error rate of tests and the coverage rate of confidence intervals may deviate from the chosen level), especially when the number of studies, \mjseqn{k}, is low. Therefore, it is highly recommended to use the method by Hartung (1999), Sidik and Jonkman (2002), and Knapp and Hartung (2003) (the Knapp-Hartung method; also referred to as the Hartung-Knapp-Sidik-Jonkman method) by setting \code{test="knha"} (or equivalently, \code{test="hksj"}). Then tests of individual coefficients and confidence intervals are based on a t-distribution with \mjseqn{k-p} degrees of freedom, while the omnibus test then uses an F-distribution with \mjseqn{m} and \mjseqn{k-p} degrees of freedom (with \mjseqn{m} denoting the number of coefficients tested and \mjseqn{p} the total number of model coefficients). Various simulation studies have shown that this method works very well in providing tests and confidence intervals with close to nominal performance (e.g., \enc{Sánchez-Meca}{Sanchez-Meca} & \enc{Marín-Martínez}{Marin-Martinez}, 2008; Viechtbauer et al., 2015). Alternatively, one can also conduct permutation tests using the \code{\link{permutest}} function. These also perform very well (and are, in a certain sense, \sQuote{exact} tests), but are computationally expensive. For models fitted with the \code{\link{rma.mv}} and \code{\link{rma.glmm}} functions, the Knapp-Hartung method and permutation tests are not available. Instead, one can set \code{test="t"} to also use t- and F-distributions for making inferences (although this does not involve the adjustment to the standard errors of the estimated model coefficients that is made as part of the Knapp-Hartung method). For \code{\link{rma.mv}}, one should also set \code{dfs="contain"}, which uses an improved method for approximating the degrees of freedom of the t- and F-distributions. Note that \code{test="z"} is the default for the \code{\link{rma.uni}}, \code{\link{rma.mv}}, and the \code{\link{rma.glmm}} functions. While the improved inference methods described above should ideally be the default, changing this now would break backwards compatibility. } \subsection{General Workflow for Meta-Analyses Involving Complex Dependency Structures}{ Many meta-analyses involve observed outcomes / effect size estimates that cannot be assumed to be independent, because some estimates were computed based on the same sample of subjects (or at least a partially overlapping set). In this case, one should compute the covariances for any pair of estimates that involve (fully or partially) overlapping subjects. Doing so is difficult, but we can often construct an approximate variance-covariance matrix (say \mjseqn{V}) of such dependent estimates. This can be done with the \code{\link{vcalc}} function (and/or see the \code{\link{rcalc}} function when dealing specifically with dependent correlation coefficients). We can then fit a multivariate/multilevel model to the estimates with the \code{\link{rma.mv}} function, using \mjseqn{V} as the approximate var-cov matrix of the estimates and adding fixed and random effects to the model as deemed necessary. However, since \mjseqn{V} is often only a rough approximation (and since the random effects structure may not fully capture all dependencies in the underlying true outcomes/effects), we can then apply cluster-robust inference methods (also known as robust variance estimation) to the model. This can be done with the \code{\link{robust}} function, which also interfaces with the improved inference methods implemented in the \href{https://cran.r-project.org/package=clubSandwich}{clubSandwich} package to obtain the cluster-robust tests and confidence intervals.\mjseqn{^1} Finally, we can compute predicted outcomes (with corresponding confidence intervals) and test sets of coefficients or linear combinations thereof using the \code{\link[=predict.rma]{predict}} and \code{\link[=anova.rma]{anova}} functions. See Pustejovsky and Tipton (2022) for a paper describing such a workflow for various cases. To summarize, the general workflow therefore will often consist of these steps: \preformatted{# construct/approximate the var-cov matrix of dependent estimates V <- vcalc(...) # fit multivariate/multilevel model with appropriate fixed/random effects res <- rma.mv(yi, V, mods = ~ ..., random = ~ ...) # apply cluster-robust inference methods (robust variance estimation) # note: use the improved methods from the clubSandwich package sav <- robust(res, cluster = ..., clubSandwich = TRUE) sav # compute predicted outcomes (with corresponding CIs) as needed predict(sav, ...) # test sets of coefficients / linear combinations as needed anova(sav, ...)} How \code{\link{vcalc}} and \code{\link{rma.mv}} should be used (and the clustering variable specified for \code{\link{robust}}) will depend on the specifics of the application. See \code{\link[metadat]{dat.assink2016}}, \code{\link[metadat]{dat.knapp2017}}, and \code{\link[metadat]{dat.tannersmith2016}} for some examples illustrating this workflow. } \subsection{Profile Likelihood Plots to Check Parameter Identifiability}{ When fitting complex models, it is not guaranteed that all parameters of the model are identifiable (i.e., that there is a unique set of values for the parameters that maximizes the (restricted) likelihood function). For models fitted with the \code{\link{rma.mv}} function, this pertains especially to the variance/correlation components of the model (i.e., what is specified via the \code{random} argument). Therefore, it is strongly advised in general to do post model fitting checks to make sure that the likelihood surface around the ML/REML estimates is not flat for some combination of the parameter estimates (which would imply that the estimates are essentially arbitrary). For example, one can plot the (restricted) log-likelihood as a function of each variance/correlation component in the model to make sure that each profile plot shows a clear peak at the corresponding ML/REML estimate. The \code{\link[=profile.rma]{profile}} function can be used for this purpose. See also Raue et al. (2009) for some further discussion of parameter identifiability and the use of profile likelihoods to check for this. The \code{\link[=profile.rma]{profile}} function should also be used after fitting location-scale models (Viechtbauer & \enc{López-López}{Lopez-Lopez}, 2022) with the \code{\link{rma.uni}} function and after fitting selection models with the \code{\link{selmodel}} function. } --------- \mjseqn{^1} In small meta-analyses, the (denominator) degrees of freedom for the approximate t- and F-tests provided by the cluster-robust inference methods might be very low, in which case the tests may not be trustworthy and overly conservative (Joshi et al., 2022). Under these circumstances, one can consider the use of cluster wild bootstrapping (as implemented in the \href{https://cran.r-project.org/package=wildmeta}{wildmeta} package) as an alternative method for making inferences. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Hartung, J. (1999). An alternative method for meta-analysis. \emph{Biometrical Journal}, \bold{41}(8), 901--916. \verb{https://doi.org/10.1002/(SICI)1521-4036(199912)41:8<901::AID-BIMJ901>3.0.CO;2-W} Harville, D. A. (1977). Maximum likelihood approaches to variance component estimation and to related problems. \emph{Journal of the American Statistical Association}, \bold{72}(358), 320--338. \verb{https://doi.org/10.2307/2286796} Joshi, M., Pustejovsky, J. E., & Beretvas, S. N. (2022). Cluster wild bootstrapping to handle dependent effect sizes in meta-analysis with a small number of studies. \emph{Research Synthesis Methods}, \bold{13}(4), 457--477. \verb{https://doi.org/10.1002/jrsm.1554} Knapp, G., & Hartung, J. (2003). Improved tests for a random effects meta-regression with a single covariate. \emph{Statistics in Medicine}, \bold{22}(17), 2693--2710. \verb{https://doi.org/10.1002/sim.1482} Langan, D., Higgins, J. P. T., Jackson, D., Bowden, J., Veroniki, A. A., Kontopantelis, E., Viechtbauer, W. & Simmonds, M. (2019). A comparison of heterogeneity variance estimators in simulated random-effects meta-analyses. \emph{Research Synthesis Methods}, \bold{10}(1), 83--98. https://doi.org/10.1002/jrsm.1316 Pustejovsky, J. E. & Tipton, E. (2022). Meta-analysis with robust variance estimation: Expanding the range of working models. \emph{Prevention Science}, \bold{23}, 425--438. \verb{https://doi.org/10.1007/s11121-021-01246-3} Raue, A., Kreutz, C., Maiwald, T., Bachmann, J., Schilling, M., Klingmuller, U., & Timmer, J. (2009). Structural and practical identifiability analysis of partially observed dynamical models by exploiting the profile likelihood. \emph{Bioinformatics}, \bold{25}(15), 1923--1929. \verb{https://doi.org/10.1093/bioinformatics/btp358} \enc{Sánchez-Meca}{Sanchez-Meca}, J. & \enc{Marín-Martínez}{Marin-Martinez}, F. (2008). Confidence intervals for the overall effect size in random-effects meta-analysis. \emph{Psychological Methods}, \bold{13}(1), 31--48. \verb{https://doi.org/10.1037/1082-989x.13.1.31} Sidik, K. & Jonkman, J. N. (2002). A simple confidence interval for meta-analysis. \emph{Statistics in Medicine}, \bold{21}(21), 3153--3159. \verb{https://doi.org/10.1002/sim.1262} Veroniki, A. A., Jackson, D., Viechtbauer, W., Bender, R., Bowden, J., Knapp, G., Kuss, O., Higgins, J. P., Langan, D., & Salanti, G. (2016). Methods to estimate the between-study variance and its uncertainty in meta-analysis. \emph{Research Synthesis Methods}, \bold{7}(1), 55--79. \verb{https://doi.org/10.1002/jrsm.1164} Viechtbauer, W. (2005). Bias and efficiency of meta-analytic variance estimators in the random-effects model. \emph{Journal of Educational and Behavioral Statistics}, \bold{30}(3), 261--293. \verb{https://doi.org/10.3102/10769986030003261} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., \enc{López-López}{Lopez-Lopez}, J. A., \enc{Sánchez-Meca}{Sanchez-Meca}, J., & \enc{Marín-Martínez}{Marin-Martinez}, F. (2015). A comparison of procedures to test for moderators in mixed-effects meta-regression models. \emph{Psychological Methods}, \bold{20}(3), 360--374. \verb{https://doi.org/10.1037/met0000023} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} } \keyword{documentation} \keyword{misc} metafor/man/model.matrix.rma.Rd0000644000176200001440000000264415173343621016145 0ustar liggesusers\name{model.matrix.rma} \alias{model.matrix} \alias{model.matrix.rma} \title{Extract the Model Matrix from 'rma' Objects} \description{ Function to extract the model matrix from objects of class \code{"rma"}. } \usage{ \method{model.matrix}{rma}(object, asdf, \dots) } \arguments{ \item{object}{an object of class \code{"rma"}.} \item{asdf}{logical to specify whether the model matrix should be turned into a data frame (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \value{ The model matrix. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which a model matrix can be extracted. \code{\link[=fitted.rma]{fitted}} for a function to extract the fitted values. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### extract the model matrix model.matrix(res) } \keyword{models} metafor/man/print.hc.rma.uni.Rd0000644000176200001440000000325015173343621016053 0ustar liggesusers\name{print.hc.rma.uni} \alias{print.hc.rma.uni} \title{Print Method for 'hc.rma.uni' Objects} \description{ Function to print objects of class \code{"hc.rma.uni"}. \loadmathjax } \usage{ \method{print}{hc.rma.uni}(x, digits=x$digits, \dots) } \arguments{ \item{x}{an object of class \code{"hc.rma.uni"} obtained with \code{\link[=hc.rma.uni]{hc}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{\dots}{other arguments.} } \details{ The output is a data frame with two rows, the first (labeled \code{rma}) corresponding to the results based on the usual estimation method, the second (labeled \code{hc}) corresponding to the results based on the method by Henmi and Copas (2010). The data frame includes the following variables: \itemize{ \item the method used to estimate \mjseqn{\tau^2} (always \code{DL} for \code{hc}) \item the estimated amount of heterogeneity \item the estimated average true outcome \item the corresponding standard error (\code{NA} when \code{transf} argument has been used) \item the lower and upper confidence interval bounds } } \value{ The function returns the data frame invisibly. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link[=hc.rma.uni]{hc}} for the function to create \code{hc.rma.uni} objects. } \keyword{print} metafor/man/methods.confint.rma.Rd0000644000176200001440000000336415173343621016644 0ustar liggesusers\name{methods.confint.rma} \alias{methods.confint.rma} \alias{as.data.frame.confint.rma} \alias{as.data.frame.list.confint.rma} \title{Methods for 'confint.rma' Objects} \description{ Methods for objects of class \code{"confint.rma"} and \code{"list.confint.rma"}. } \usage{ \method{as.data.frame}{confint.rma}(x, \dots) \method{as.data.frame}{list.confint.rma}(x, \dots) } \arguments{ \item{x}{an object of class \code{"confint.rma"} or \code{"list.confint.rma"}.} \item{\dots}{other arguments.} } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### copy data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) ### fit random-effects model res <- rma(yi, vi, data=dat) ### get 95\% CI for tau^2, tau, I^2, and H^2 sav <- confint(res) sav ### turn object into a regular data frame as.data.frame(sav) ############################################################################ ### copy data into 'dat' dat <- dat.berkey1998 ### construct block diagonal var-cov matrix of the observed outcomes based on variables v1i and v2i V <- vcalc(vi=1, cluster=author, rvars=c(v1i, v2i), data=dat) ### fit multivariate model res <- rma.mv(yi, V, mods = ~ 0 + outcome, random = ~ outcome | trial, struct="UN", data=dat) ### get 95\% CI for variance components and correlation sav <- confint(res) sav ### turn object into a regular data frame as.data.frame(sav) } \keyword{internal} metafor/man/print.fsn.Rd0000644000176200001440000000200615173343621014675 0ustar liggesusers\name{print.fsn} \alias{print.fsn} \title{Print Method for 'fsn' Objects} \description{ Function to print objects of class \code{"fsn"}. } \usage{ \method{print}{fsn}(x, digits=x$digits, \dots) } \arguments{ \item{x}{an object of class \code{"fsn"} obtained with \code{\link{fsn}}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{\dots}{other arguments.} } \details{ The output shows the results from the fail-safe N calculation. } \value{ The function does not return an object. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{fsn}} for the function to create \code{fsn} objects. } \keyword{print} metafor/man/vcalc.Rd0000644000176200001440000005266615173343621014065 0ustar liggesusers\name{vcalc} \alias{vcalc} \title{Construct or Approximate the Variance-Covariance Matrix of Dependent Effect Sizes or Outcomes} \description{ Function to construct or approximate the variance-covariance matrix of dependent effect sizes or outcomes, or more precisely, of their sampling errors (i.e., the \code{V} matrix in \code{\link{rma.mv}}). \loadmathjax } \usage{ vcalc(vi, cluster, subgroup, obs, type, time1, time2, grp1, grp2, w1, w2, data, rho, phi, rvars, checkpd=TRUE, nearpd=FALSE, sparse=FALSE, \dots) } \arguments{ \item{vi}{numeric vector to specify the sampling variances of the observed effect sizes or outcomes.} \item{cluster}{vector to specify the clustering variable (e.g., study).} \item{subgroup}{optional vector to specify different (independent) subgroups within clusters.} \item{obs}{optional vector to distinguish different observed effect sizes or outcomes corresponding to the same construct or response/dependent variable.} \item{type}{optional vector to distinguish different types of constructs or response/dependent variables underlying the observed effect sizes or outcomes.} \item{time1}{optional numeric vector to specify the time points when the observed effect sizes or outcomes were obtained (in the first condition if the observed effect sizes or outcomes represent contrasts between two conditions).} \item{time2}{optional numeric vector to specify the time points when the observed effect sizes or outcomes were obtained in the second condition (only relevant when the observed effect sizes or outcomes represent contrasts between two conditions).} \item{grp1}{optional vector to specify the group of the first condition when the observed effect sizes or outcomes represent contrasts between two conditions.} \item{grp2}{optional vector to specify the group of the second condition when the observed effect sizes or outcomes represent contrasts between two conditions.} \item{w1}{optional numeric vector to specify the size of the group (or more generally, the inverse-sampling variance weight) of the first condition when the observed effect sizes or outcomes represent contrasts between two conditions.} \item{w2}{optional numeric vector to specify the size of the group (or more generally, the inverse-sampling variance weight) of the second condition when the observed effect sizes or outcomes represent contrasts between two conditions.} \item{data}{optional data frame containing the variables given to the arguments above.} \item{rho}{argument to specify the correlation(s) of observed effect sizes or outcomes measured concurrently. See \sQuote{Details}.} \item{phi}{argument to specify the autocorrelation of observed effect sizes or outcomes measured at different time points. See \sQuote{Details}.} \item{rvars}{optional argument for specifying the variables that correspond to the correlation matrices of the studies (if this is specified, all arguments above except for \code{cluster} and \code{subgroup} are ignored). See \sQuote{Details}.} \item{checkpd}{logical to specify whether to check that the variance-covariance matrices within clusters are positive definite (the default is \code{TRUE}). See \sQuote{Note}.} \item{nearpd}{logical to specify whether the \code{\link[Matrix]{nearPD}} function from the \href{https://cran.r-project.org/package=Matrix}{Matrix} package should be used on variance-covariance matrices that are not positive definite. See \sQuote{Note}.} \item{sparse}{logical to specify whether the variance-covariance matrix should be returned as a sparse matrix (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ Standard meta-analytic models (such as those that can be fitted with the \code{\link{rma.uni}} function) assume that the observed effect sizes or outcomes (or more precisely, their sampling errors) are independent. This assumption is typically violated whenever multiple observed effect sizes or outcomes are computed based on the same sample of subjects (or whatever the study units are) or if there is at least partial overlap of subjects that contribute information to the computation of multiple effect sizes or outcomes. The present function can be used to construct or approximate the variance-covariance matrix of the sampling errors of dependent effect sizes or outcomes for a wide variety of circumstances (this variance-covariance matrix is the so-called \code{V} matrix that may be needed as input for multilevel/multivariate meta-analytic models as can be fitted with the \code{\link{rma.mv}} function; see also \link[=misc-recs]{here} for some recommendations on a general workflow for meta-analyses involving complex dependency structures). Argument \code{cluster} is used to specify the clustering variable. Rows with the same value of this variable are allowed to be dependent, while rows with different values are assumed to be independent. Typically, \code{cluster} will be a study identifier. Within the same cluster, there may be different subgroups with no overlap of subjects across subgroups. Argument \code{subgroup} can be used to distinguish such subgroups. Rows with the same value of this variable within a cluster are allowed to be dependent, while rows with different values are assumed to be independent even if they come from the same cluster. Therefore, from hereon, \sQuote{cluster} really refers to the combination of \code{cluster} and \code{subgroup}. Multiple effect sizes or outcomes belonging to the same cluster may be dependent due to a variety of reasons: \enumerate{ \item The same construct of interest (e.g., severity of depression) may have been measured using different scales or instruments within a study (e.g., using the Beck Depression Inventory (BDI) and the Hamilton Depression Rating Scale (HDRS)) based on which multiple effect sizes can be computed for the same group of subjects (e.g., contrasting a treatment versus a control group with respect to each scale). In this case, we have multiple effect sizes that are different \sQuote{observations} of the effect with respect to the same type of construct. Argument \code{obs} is then used to distinguish different effect sizes corresponding to the same construct. If \code{obs} is specified, then argument \code{rho} must also be used to specify the degree of correlation among the sampling errors of the different effect sizes. Since this correlation is typically not known, the correlation among the various scales (or a rough \sQuote{guestimate} thereof) can be used as a proxy (i.e., the (typical) correlation between BDI and HDRS measurements). One can also pass an entire correlation matrix via \code{rho} to specify, for each possible pair of \code{obs} values, the corresponding correlation. The row/column names of the matrix must then correspond to the unique values of the \code{obs} variable. \item Multiple types of constructs (or more generally, types of response/dependent variables) may have been measured in the same group of subjects (e.g., severity of depression as measured with the Beck Depression Inventory (BDI) and severity of anxiety as measured with the State-Trait Anxiety Inventory (STAI)). If this is of interest for a meta-analysis, effect sizes can then be computed with respect to each \sQuote{type} of construct. Argument \code{type} is then used to distinguish effect sizes corresponding to these different types of constructs. If \code{type} is specified, then argument \code{rho} must also be used to specify the degree of correlation among the sampling errors of effect sizes belonging to these different types. As above, the correlation among the various scales is typically used here as a proxy (i.e., the (typical) correlation between BDI and STAI measurements). One can also pass an entire correlation matrix via \code{rho} to specify, for each possible pair of \code{type} values, the corresponding correlation. The row/column names of the matrix must then correspond to the unique values of the \code{type} variable. \item If there are multiple types of constructs, multiple scales or instruments may also have been used (in at least some of the studies) to measure the same construct and hence there may again be multiple effect sizes that are \sQuote{observations} of the same type of construct. Arguments \code{type} and \code{obs} should then be used together to specify the various construct types and observations thereof. In this case, argument \code{rho} must be a vector of two values, the first to specify the within-construct correlation and the second to specify the between-construct correlation. One can also specify a list with two elements for \code{rho}, the first element being either a scalar or an entire correlation matrix for the within-construct correlation(s) and the second element being a scalar or an entire correlation matrix for the between-construct correlation(s). As above, any matrices specified must have row/column names corresponding to the unique values of the \code{obs} and/or \code{type} variables. \item The same construct and scale may have been assessed/used multiple times, allowing the computation of multiple effect sizes for the same group of subjects at different time points (e.g., right after the end of a treatment, at a short-term follow-up, and at a long-term follow-up). Argument \code{time1} is then used to specify the time points when the observed effect sizes were obtained. Argument \code{phi} must then also be used to specify the autocorrelation among the sampling errors of two effect sizes that differ by one unit on the \code{time1} variable. As above, the autocorrelation of the measurements themselves can be used here as a proxy. If multiple constructs and/or multiple scales have also been assessed at the various time points, then arguments \code{type} and/or \code{obs} (together with argument \code{rho}) should be used as needed to differentiate effect sizes corresponding to the different constructs and/or scales. \item Many effect sizes or outcome measures (e.g., raw or standardized mean differences, log-transformed ratios of means, log risk/odds ratios and risk differences) reflect the difference between two conditions (i.e., a contrast). Within a study, there may be more than two conditions, allowing the computation of multiple such contrasts (e.g., treatment A versus a control condition and treatment B versus the same control condition) and hence corresponding effect sizes. The reuse of information from the \sQuote{shared} condition (in this example, the control condition) then induces correlation among the effect sizes. To account for this, arguments \code{grp1} and \code{grp2} should be used to specify (within each cluster) which two groups were compared in the computation of each effect size (e.g., in the example above, the coding could be \code{grp1=c(2,3)} and \code{grp2=c(1,1)}; whether numbers or strings are used as identifiers is irrelevant). The degree of correlation between two contrast-type effect sizes that is induced by the use of a shared condition is a function of the size of the groups involved in the computation of the two effect sizes (or, more generally, the inverse-sampling variance weights of the condition-specific outcomes). By default, the group sizes (weights) are assumed to be identical across conditions, which implies a correlation of 0.5. If the group sizes (weights) are known, they can be specified via arguments \code{w1} and \code{w2} (in which case this information is used by the function to calculate a more accurate estimate of the correlation induced by the shared condition). Moreover, a contrast-type effect size can be based on a between- or a within-subjects design. When at least one or more of the contrast-type effect sizes are based on a within-subjects design, then \code{time1} and \code{time2} should be used in combination with \code{grp1} and \code{grp2} to specify for each effect size the group(s) and time point(s) involved. For example, \code{grp1=c(2,3)} and \code{grp2=c(1,1)} as above in combination with \code{time1=c(1,1)} and \code{time2=c(1,1)} would imply a between-subjects design involving three groups where two effect sizes were computed contrasting groups 2 and 3 versus group 1 at a single time point. On the other hand, \code{grp1=c(1,1)} and \code{grp2=c(1,1)} in combination with \code{time1=c(2,3)} and \code{time2=c(1,1)} would imply a within-subjects design where two effect sizes were computed contrasting time points 2 and 3 versus time point 1 in a single group. Argument \code{phi} is then used as above to specify the autocorrelation of the measurements within groups (i.e., for the within-subjects design above, it would be the autocorrelation between time points 2 and 1 or equivalently, between time points 3 and 2). } All of the arguments above can be specified together to account for a fairly wide variety of dependency types. \subsection{Using the \code{rvars} Argument}{ The function also provides an alternative approach for constructing the variance-covariance matrix using the \code{rvars} argument. Here, one must specify the names of the variables in the dataset that correspond to the correlation matrices of the studies. The variables should be specified as a vector (e.g., \code{c(var1, var2, var3)}) and do not need to be quoted. In particular, let \mjseqn{k_i} denote the number of rows corresponding to the \mjeqn{i\text{th}}{ith} cluster. Then the values of the first \mjseqn{k_i} variables from \code{rvars} are used to construct the correlation matrix and, together with the sampling variances (specified via \code{vi}), the variance-covariance matrix. Say there are three studies, the first with two correlated estimates, the second with a single estimate, and the third with four correlated estimates. Then the data structure should look like this: \preformatted{study yi vi r1 r2 r3 r4 ============================= 1 . . 1 NA NA NA 1 . . .6 1 NA NA ----------------------------- 2 . . 1 NA NA NA ----------------------------- 3 . . 1 NA NA NA 3 . . .8 1 NA NA 3 . . .5 .5 1 NA 3 . . .5 .5 .8 1 =============================} with \code{rvars = c(r1, r2, r3, r4)}. If the \code{rvars} variables are a consecutive set in the data frame (as above), then one can use the shorthand notation \code{rvars = c(r1:r4)}, so \code{r1} denotes the first and \code{r4} the last variable in the set. Note that only the lower triangular part of the submatrices defined by the \code{rvars} variables is used. Also, it is important that the rows in the dataset corresponding to a particular study are in consecutive order as shown above. There must be as many variables specified via \code{rvars} as the number of rows in the \emph{largest} cluster (in smaller clusters, the non-relevant variables can be set to \code{NA}; see above). } } \value{ A \mjeqn{k \times k}{kxk} variance-covariance matrix (given as a sparse matrix when \code{sparse=TRUE}), where \mjseqn{k} denotes the length of the \code{vi} variable (i.e., the number of rows in the dataset). When not given as a sparse matrix, the object has class \code{"vcovmat"}. See \code{\link{methods.vcovmat}} for some method functions for such objects. } \note{ Depending on the data structure, the specified variables, and the specified values for \code{rho} and/or \code{phi}, it is possible that the constructed variance-covariance matrix is not positive definite within one or more clusters (this is checked when \code{checkpd=TRUE}, which is the default). If such non-positive definite submatrices are found, the reasons for this should be carefully checked since this might indicate misapplication of the function and/or the specification of implausible values for \code{rho} and/or \code{phi}. When setting \code{nearpd=TRUE}, the \code{\link[Matrix]{nearPD}} function from the \href{https://cran.r-project.org/package=Matrix}{Matrix} package is used on variance-covariance submatrices that are not positive definite. This should only be used cautiously and after understanding why these matrices are not positive definite. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}) with some tweaks to speed up the computations by James Pustejovsky (\email{pustejovsky@wisc.edu}, \verb{https://jepusto.com}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to compute the observed effect sizes or outcomes (and corresponding sampling variances) for which a variance-covariance matrix could be constructed. \code{\link{rcalc}} for a function to construct the variance-covariance matrix of dependent correlation coefficients. \code{\link{rma.mv}} for a model fitting function that can be used to meta-analyze dependent effect sizes or outcomes. } \examples{ ############################################################################ ### see help(dat.assink2016) for further details on this dataset dat <- dat.assink2016 head(dat, 9) ### assume that the effect sizes within studies are correlated with rho=0.6 V <- vcalc(vi, cluster=study, obs=esid, data=dat, rho=0.6) ### show part of V matrix for studies 1 and 2 round(V[dat$study \%in\% c(1,2), dat$study \%in\% c(1,2)], 4) ### or show as list of matrices blsplit(V, dat$study, round, 4)[1:2] ### use a correlation of 0.7 for effect sizes corresponding to the same type of ### delinquent behavior and a correlation of 0.5 for effect sizes corresponding ### to different types of delinquent behavior V <- vcalc(vi, cluster=study, type=deltype, obs=esid, data=dat, rho=c(0.7, 0.5)) blsplit(V, dat$study, round, 3)[16] ### examine the correlation matrix for study 16 blsplit(V, dat$study, cov2cor)[16] ############################################################################ ### see help(dat.ishak2007) for further details on this dataset dat <- dat.ishak2007 head(dat, 5) ### create long format dataset dat <- reshape(dat, direction="long", idvar="study", v.names=c("yi","vi"), varying=list(c(2,4,6,8), c(3,5,7,9))) dat <- dat[order(study, time),] ### remove missing measurement occasions from dat dat <- dat[!is.na(yi),] rownames(dat) <- NULL ### show the data for the first 5 studies head(dat, 8) ### construct the full (block diagonal) V matrix with an AR(1) structure ### assuming an autocorrelation of 0.97 as estimated by Ishak et al. (2007) V <- vcalc(vi, cluster=study, time1=time, phi=0.97, data=dat) V[1:8, 1:8] cov2cor(V[1:8, 1:8]) ### or show as a list of matrices blsplit(V, dat$study)[1:5] blsplit(V, dat$study, cov2cor)[1:5] ############################################################################ ### see help(dat.kalaian1996) for further details on this dataset dat <- dat.kalaian1996 head(dat, 12) ### construct the variance-covariance matrix assuming rho = 0.66 for effect sizes ### corresponding to the 'verbal' and 'math' outcome types V <- vcalc(vi, cluster=study, type=outcome, data=dat, rho=0.66) round(V[1:12,1:12], 4) ############################################################################ ### see help(dat.berkey1998) for further details on this dataset dat <- dat.berkey1998 ### variables v1i and v2i correspond to the 2x2 var-cov matrices of the studies; ### so use these variables to construct the V matrix (note: since v1i and v2i are ### var-cov matrices and not correlation matrices, set vi=1 for all rows) V <- vcalc(vi=1, cluster=author, rvars=c(v1i, v2i), data=dat) V round(cov2cor(V), 2) ### or show as a list of matrices blsplit(V, dat$author, function(x) round(cov2cor(x), 2)) ### construct the variance-covariance matrix assuming rho = 0.4 for effect sizes ### corresponding to the 'PD' and 'AL' outcome types V <- vcalc(vi=vi, cluster=trial, type=outcome, data=dat, rho=0.4) round(V,4) cov2cor(V) ############################################################################ ### see help(dat.knapp2017) for further details on this dataset dat <- dat.knapp2017 dat[-c(1:2)] ### create variable that indicates the task and difficulty combination as increasing integers dat$task.diff <- unlist(lapply(split(dat, dat$study), function(x) { task.int <- as.integer(factor(x$task)) diff.int <- as.integer(factor(x$difficulty)) diff.int[is.na(diff.int)] <- 1 paste0(task.int, ".", diff.int)})) ### construct correlation matrix for two tasks with four different difficulties where the ### correlation is 0.4 for different difficulties of the same task, 0.7 for the same ### difficulty of different tasks, and 0.28 for different difficulties of different tasks R <- matrix(0.4, nrow=8, ncol=8) R[5:8,1:4] <- R[1:4,5:8] <- 0.28 diag(R[1:4,5:8]) <- 0.7 diag(R[5:8,1:4]) <- 0.7 diag(R) <- 1 rownames(R) <- colnames(R) <- paste0(rep(1:2, each=4), ".", 1:4) R ### construct an approximate V matrix accounting for the use of shared groups and ### for correlations among tasks/difficulties as specified in the R matrix above V <- vcalc(vi, cluster=study, grp1=group1, grp2=group2, w1=n_sz, w2=n_hc, obs=task.diff, rho=R, data=dat) Vs <- blsplit(V, dat$study) cov2cor(Vs[[3]]) # study with multiple SZ groups and a single HC group cov2cor(Vs[[6]]) # study with two task types and multiple difficulties cov2cor(Vs[[12]]) # study with multiple difficulties for the same task cov2cor(Vs[[24]]) # study with separate rows for males and females cov2cor(Vs[[29]]) # study with separate rows for three genotypes ############################################################################ } \keyword{datagen} metafor/man/to.long.Rd0000644000176200001440000001772215173343621014347 0ustar liggesusers\name{to.long} \alias{to.long} \title{Convert Data from Vector to Long Format} \description{ Function to convert summary data in vector format to the corresponding long format. \loadmathjax } \usage{ to.long(measure, ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, m1i, m2i, sd1i, sd2i, xi, mi, ri, ti, sdi, ni, data, slab, subset, add=1/2, to="none", drop00=FALSE, vlong=FALSE, append=TRUE, var.names) } \arguments{ \item{measure}{a character string to specify the effect size or outcome measure corresponding to the summary data supplied. See \sQuote{Details} and the documentation of the \code{\link{escalc}} function for possible options.} \item{ai}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper left cell).} \item{bi}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (upper right cell).} \item{ci}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower left cell).} \item{di}{vector with the \mjeqn{2 \times 2}{2x2} table frequencies (lower right cell).} \item{n1i}{vector with the group sizes or row totals (first group/row).} \item{n2i}{vector with the group sizes or row totals (second group/row).} \item{x1i}{vector with the number of events (first group).} \item{x2i}{vector with the number of events (second group).} \item{t1i}{vector with the total person-times (first group).} \item{t2i}{vector with the total person-times (second group).} \item{m1i}{vector with the means (first group or time point).} \item{m2i}{vector with the means (second group or time point).} \item{sd1i}{vector with the standard deviations (first group or time point).} \item{sd2i}{vector with the standard deviations (second group or time point).} \item{xi}{vector with the frequencies of the event of interest.} \item{mi}{vector with the frequencies of the complement of the event of interest or the group means.} \item{ri}{vector with the raw correlation coefficients.} \item{ti}{vector with the total person-times.} \item{sdi}{vector with the standard deviations.} \item{ni}{vector with the sample/group sizes.} \item{data}{optional data frame containing the variables given to the arguments above.} \item{slab}{optional vector with labels for the studies.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should included in the data frame returned by the function.} \item{add}{see the documentation of the \code{\link{escalc}} function.} \item{to}{see the documentation of the \code{\link{escalc}} function.} \item{drop00}{see the documentation of the \code{\link{escalc}} function.} \item{vlong}{optional logical whether a very long format should be used (only relevant for \mjeqn{2 \times 2}{2x2} or \mjeqn{1 \times 2}{1x2} table data).} \item{append}{logical to specify whether the data frame specified via the \code{data} argument (if one has been specified) should be returned together with the long format data (the default is \code{TRUE}). Can also be a character or numeric vector to specify which variables from \code{data} to append.} \item{var.names}{optional character vector with variable names (the length depends on the data type). If unspecified, the function sets appropriate variable names by default.} } \details{ The \code{\link{escalc}} function describes a wide variety of effect sizes or outcome measures that can be computed for a meta-analysis. The summary data used to compute those measures are typically contained in vectors, each element corresponding to a study. The \code{to.long} function takes this information and constructs a long format dataset from these data. For example, in various fields (such as the health and medical sciences), the response variable measured is often dichotomous (binary), so that the data from a study comparing two different groups can be expressed in terms of a \mjeqn{2 \times 2}{2x2} table, such as: \tabular{lcccccc}{ \tab \ics \tab outcome 1 \tab \ics \tab outcome 2 \tab \ics \tab total \cr group 1 \tab \ics \tab \code{ai} \tab \ics \tab \code{bi} \tab \ics \tab \code{n1i} \cr group 2 \tab \ics \tab \code{ci} \tab \ics \tab \code{di} \tab \ics \tab \code{n2i}} where \code{ai}, \code{bi}, \code{ci}, and \code{di} denote the cell frequencies (i.e., the number of individuals falling into a particular category) and \code{n1i} and \code{n2i} the row totals (i.e., the group sizes). The cell frequencies in \mjseqn{k} such \mjeqn{2 \times 2}{2x2} tables can be specified via the \code{ai}, \code{bi}, \code{ci}, and \code{di} arguments (or alternatively, via the \code{ai}, \code{ci}, \code{n1i}, and \code{n2i} arguments). The function then creates the corresponding long format dataset. The \code{measure} argument should then be set equal to one of the outcome measures that can be computed based on this type of data, such as \code{"RR"}, \code{"OR"}, \code{"RD"} (it is not relevant which specific measure is chosen, as long as it corresponds to the specified summary data). See the documentation of the \code{\link{escalc}} function for more details on the types of data formats available. The long format for data of this type consists of two rows per study, a factor indicating the study (default name \code{study}), a dummy variable indicating the group (default name \code{group}, coded as 1 and 2), and two variables indicating the number of individuals experiencing outcome 1 or outcome 2 (default names \code{out1} and \code{out2}). Alternatively, if \code{vlong=TRUE}, then the long format consists of four rows per study, a factor indicating the study (default name \code{study}), a dummy variable indicating the group (default name \code{group}, coded as 1 and 2), a dummy variable indicating the outcome (default name \code{outcome}, coded as 1 and 2), and a variable indicating the frequency of the respective outcome (default name \code{freq}). The default variable names can be changed via the \code{var.names} argument (must be of the appropriate length, depending on the data type). The examples below illustrate the use of this function. } \value{ A data frame with either \mjseqn{k}, \mjeqn{2 \times k}{2*k}, or \mjeqn{4 \times k}{4*k} rows and an appropriate number of columns (depending on the data type) with the data in long format. If \code{append=TRUE} and a data frame was specified via the \code{data} argument, then the data in long format are appended to the original data frame (with rows repeated an appropriate number of times). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to compute observed effect sizes or outcomes (and corresponding sampling variances) based on similar inputs. \code{\link{to.table}} for a function to turn similar inputs into tabular form. } \examples{ ### convert data to long format dat.bcg dat.long <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) dat.long ### extra long format dat <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, vlong=TRUE) dat ### select variables to append dat.long <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, append=c("author","year")) dat.long dat.long <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, append=2:3) dat.long ### convert data to long format dat.long <- to.long(measure="IRR", x1i=x1i, x2i=x2i, t1i=t1i, t2i=t2i, data=dat.hart1999, var.names=c("id", "group", "events", "ptime")) dat.long ### convert data to long format dat.long <- to.long(measure="MD", m1i=m1i, sd1i=sd1i, n1i=n1i, m2i=m2i, sd2i=sd2i, n2i=n2i, data=dat.normand1999, var.names=c("id", "group", "mean", "sd", "n")) dat.long } \keyword{manip} metafor/man/residuals.rma.Rd0000644000176200001440000002567515173343621015546 0ustar liggesusers\name{residuals.rma} \alias{resid} \alias{residuals} \alias{rstandard} \alias{rstudent} \alias{residuals.rma} \alias{rstandard.rma.uni} \alias{rstandard.rma.mh} \alias{rstandard.rma.mv} \alias{rstandard.rma.peto} \alias{rstudent.rma.uni} \alias{rstudent.rma.mh} \alias{rstudent.rma.mv} \alias{rstudent.rma.peto} \title{Residual Values based on 'rma' Objects} \description{ Functions to compute residuals and standardized versions thereof for models fitted with the \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, and \code{\link{rma.mv}} functions. \loadmathjax } \usage{ \method{residuals}{rma}(object, type="response", \dots) \method{rstandard}{rma.uni}(model, digits, type="marginal", \dots) \method{rstandard}{rma.mh}(model, digits, \dots) \method{rstandard}{rma.peto}(model, digits, \dots) \method{rstandard}{rma.mv}(model, digits, cluster, \dots) \method{rstudent}{rma.uni}(model, digits, progbar=FALSE, \dots) \method{rstudent}{rma.mh}(model, digits, progbar=FALSE, \dots) \method{rstudent}{rma.peto}(model, digits, progbar=FALSE, \dots) \method{rstudent}{rma.mv}(model, digits, progbar=FALSE, cluster, reestimate=TRUE, parallel="no", ncpus=1, cl, \dots) } \arguments{ \item{object}{an object of class \code{"rma"} (for \code{residuals}).} \item{type}{the type of residuals which should be returned. For \code{residuals}, the alternatives are: \code{"response"} (default), \code{"rstandard"}, \code{"rstudent"}, and \code{"pearson"}. For \code{rstandard.rma.uni}, the alternatives are: \code{"marginal"} (default) and \code{"conditional"}. See \sQuote{Details}.} \item{model}{an object of class \code{"rma"} (for \code{residuals}) or an object of class \code{"rma.uni"}, \code{"rma.mh"}, \code{"rma.peto"}, or \code{"rma.mv"} (for \code{rstandard} and \code{rstudent}).} \item{cluster}{optional vector to specify a clustering variable to use for computing cluster-level multivariate standardized residuals (only for \code{"rma.mv"} objects).} \item{reestimate}{logical to specify whether variance/correlation components should be re-estimated after deletion of the \mjeqn{i\text{th}}{ith} case when computing externally standardized residuals for \code{"rma.mv"} objects (the default is \code{TRUE}).} \item{parallel}{character string to specify whether parallel processing should be used (the default is \code{"no"}). For parallel processing, set to either \code{"snow"} or \code{"multicore"}. See \sQuote{Note}.} \item{ncpus}{integer to specify the number of processes to use in the parallel processing.} \item{cl}{optional cluster to use if \code{parallel="snow"}. If unspecified, a cluster on the local machine is created for the duration of the call.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{progbar}{logical to specify whether a progress bar should be shown (only for \code{rstudent}) (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ The observed residuals (obtained with \code{residuals}) are simply equal to the \sQuote{observed - fitted} values. These can be obtained with \code{residuals(object)} (using the default \code{type="response"}). Dividing the observed residuals by the model-implied standard errors of the observed effect sizes or outcomes yields Pearson (or semi-standardized) residuals. These can be obtained with \code{residuals(object, type="pearson")}. Dividing the observed residuals by their corresponding standard errors yields (internally) standardized residuals. These can be obtained with \code{rstandard(model)} or \code{residuals(object, type="rstandard")}. With \code{rstudent(model)} (or \code{residuals(object, type="rstudent")}), one can obtain the externally standardized residuals (also called standardized deleted residuals or (externally) studentized residuals). The externally standardized residual for the \mjeqn{i\text{th}}{ith} case is obtained by deleting the \mjeqn{i\text{th}}{ith} case from the dataset, fitting the model based on the remaining cases, calculating the predicted value for the \mjeqn{i\text{th}}{ith} case based on the fitted model, taking the difference between the observed and the predicted value for the \mjeqn{i\text{th}}{ith} case (which yields the deleted residual), and then standardizing the deleted residual based on its standard error. If a particular case fits the model, its standardized residual follows (asymptotically) a standard normal distribution. A large standardized residual for a case therefore may suggest that the case does not fit the assumed model (i.e., it may be an outlier). For \code{"rma.uni"} objects, \code{rstandard(model, type="conditional")} computes conditional residuals, which are the deviations of the observed effect sizes or outcomes from the best linear unbiased predictions (BLUPs) of the study-specific true effect sizes or outcomes (see \code{\link[=blup.rma.uni]{blup}}). For \code{"rma.mv"} objects, one can specify a clustering variable (via the \code{cluster} argument). If specified, \code{rstandard(model)} and \code{rstudent(model)} also compute cluster-level multivariate (internally or externally) standardized residuals. If all outcomes within a cluster fit the model, then the multivariate standardized residual for the cluster follows (asymptotically) a chi-square distribution with \mjseqn{k_i} degrees of freedom (where \mjseqn{k_i} denotes the number of outcomes within the cluster). See also \code{\link{influence.rma.uni}} and \code{\link{influence.rma.mv}} for other leave-one-out diagnostics that are useful for detecting influential cases in models fitted with the \code{\link{rma.uni}} and \code{\link{rma.mv}} functions. } \value{ Either a vector with the residuals of the requested type (for \code{residuals}) or an object of class \code{"list.rma"}, which is a list containing the following components: \item{resid}{observed residuals (for \code{rstandard}) or deleted residuals (for \code{rstudent}).} \item{se}{corresponding standard errors.} \item{z}{standardized residuals (internally standardized for \code{rstandard} or externally standardized for \code{rstudent}).} When a clustering variable is specified for \code{"rma.mv"} objects, the returned object is a list with the first element (named \code{obs}) as described above and a second element (named \code{cluster}) of class \code{"list.rma"} with: \item{X2}{cluster-level multivariate standardized residuals.} \item{k}{number of observed effect sizes or outcomes within the clusters.} The object is formatted and printed with \code{\link[=print.list.rma]{print}}. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. } \note{ The externally standardized residuals (obtained with \code{rstudent}) are calculated by refitting the model \mjseqn{k} times (where \mjseqn{k} denotes the number of cases). Depending on how large \mjseqn{k} is, it may take a few moments to finish the calculations. For complex models fitted with \code{\link{rma.mv}}, this can become computationally expensive. On machines with multiple cores, one can try to speed things up by delegating the model fitting to separate worker processes, that is, by setting \code{parallel="snow"} or \code{parallel="multicore"} and \code{ncpus} to some value larger than 1 (only for objects of class \code{"rma.mv"}). Parallel processing makes use of the \code{\link[parallel]{parallel}} package, using the \code{\link[parallel]{makePSOCKcluster}} and \code{\link[parallel]{parLapply}} functions when \code{parallel="snow"} or using \code{\link[parallel]{mclapply}} when \code{parallel="multicore"} (the latter only works on Unix/Linux-alikes). Alternatively (or in addition to using parallel processing), one can also set \code{reestimate=FALSE}, in which case any variance/correlation components in the model are not re-estimated after deleting the \mjeqn{i\text{th}}{ith} case from the dataset. Doing so only yields an approximation to the externally standardized residuals (and the cluster-level multivariate standardized residuals) that ignores the influence of the \mjeqn{i\text{th}}{ith} case on the variance/correlation components, but is considerably faster (and often yields similar results). It may not be possible to fit the model after deletion of the \mjeqn{i\text{th}}{ith} case from the dataset. This will result in \code{NA} values for that case when calling \code{rstudent}. Also, for \code{"rma.mv"} objects with a clustering variable specified, it may not be possible to compute the cluster-level multivariate standardized residual for a particular cluster (if the var-cov matrix of the residuals within a cluster is not of full rank). This will result in \code{NA} for that cluster. The variable specified via \code{cluster} is assumed to be of the same length as the data originally passed to the \code{rma.mv} function (and if the \code{data} argument was used in the original model fit, then the variable will be searched for within this data frame first). Any subsetting and removal of studies with missing values that was applied during the model fitting is also automatically applied to the variable specified via the \code{cluster} argument. For objects of class \code{"rma.mh"} and \code{"rma.peto"}, \code{rstandard} actually computes Pearson (or semi-standardized) residuals. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Hedges, L. V., & Olkin, I. (1985). \emph{Statistical methods for meta-analysis}. San Diego, CA: Academic Press. Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2021). Model checking in meta-analysis. In C. H. Schmid, T. Stijnen, & I. R. White (Eds.), \emph{Handbook of meta-analysis} (pp. 219--254). Boca Raton, FL: CRC Press. \verb{https://doi.org/10.1201/9781315119403} Viechtbauer, W., & Cheung, M. W.-L. (2010). Outlier and influence diagnostics for meta-analysis. \emph{Research Synthesis Methods}, \bold{1}(2), 112--125. \verb{https://doi.org/10.1002/jrsm.11} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which the various types of residuals can be computed. \code{\link{influence.rma.uni}} and \code{\link{influence.rma.mv}} for other model diagnostics. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model res <- rma(yi, vi, data=dat) ### compute the studentized residuals rstudent(res) ### fit mixed-effects model with absolute latitude as moderator res <- rma(yi, vi, mods = ~ ablat, data=dat) ### compute the studentized residuals rstudent(res) } \keyword{models} metafor/man/dfround.Rd0000644000176200001440000000312615173343621014421 0ustar liggesusers\name{dfround} \alias{dfround} \title{Round Variables in a Data Frame} \description{ Function to round the numeric variables in a data frame. } \usage{ dfround(x, digits, drop0=TRUE) } \arguments{ \item{x}{a data frame.} \item{digits}{either a single integer or a numeric vector of the same length as there are columns in \code{x}.} \item{drop0}{logical (or a vector thereof) to specify whether trailing zeros after the decimal mark should be removed (the default is \code{TRUE}).} } \details{ A simple convenience function to round the numeric variables in a data frame, possibly to different numbers of digits. Hence, \code{digits} can either be a single integer (which will then be used to round all numeric variables to the specified number of digits) or a numeric vector (of the same length as there are columns in \code{x}) to specify the number of digits to which each variable should be rounded. Non-numeric variables are skipped. If \code{digits} is a vector, some arbitrary value (or \code{NA}) can be specified for those variables. Note: When \code{drop0=FALSE}, then \code{\link{formatC}} is used to format the numbers, which turns them into character variables. } \value{ Returns the data frame with variables rounded as specified. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \examples{ dat <- dat.bcg dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) res <- rma(yi, vi, mods = ~ ablat + year, data=dat) coef(summary(res)) dfround(coef(summary(res)), digits=c(2,3,2,3,2,2)) } \keyword{manip} metafor/man/fsn.Rd0000644000176200001440000002726315173343621013556 0ustar liggesusers\name{fsn} \alias{fsn} \title{Fail-Safe N Analysis (File Drawer Analysis)} \description{ Function to compute the fail-safe N (also called a file drawer analysis). \loadmathjax } \usage{ fsn(x, vi, sei, subset, data, type, alpha=.05, target, method, exact=FALSE, verbose=FALSE, digits, \dots) } \arguments{ \item{x}{a vector with the observed effect sizes or outcomes or an object of class \code{"rma"}.} \item{vi}{vector with the corresponding sampling variances (ignored if \code{x} is an object of class \code{"rma"}).} \item{sei}{vector with the corresponding standard errors (note: only one of the two, \code{vi} or \code{sei}, needs to be specified).} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be used for the calculation (ignored if \code{x} is an object of class \code{"rma"}).} \item{data}{optional data frame containing the variables given to the arguments above.} \item{type}{optional character string to specify the type of method to use for the calculation of the fail-safe N. Possible options are \code{"Rosenthal"} (the default when \code{x} is a vector with the observed effect sizes or outcomes), \code{"Orwin"}, \code{"Rosenberg"}, or \code{"General"} (the default when \code{x} is an object of class \code{"rma"}). Can be abbreviated. See \sQuote{Details}.} \item{alpha}{target alpha level for the Rosenthal, Rosenberg, and General methods (the default is .05).} \item{target}{target average effect size or outcome for the Orwin and General methods.} \item{method}{optional character string to specify the model fitting method for \code{type="General"} (if unspecified, either \code{"REML"} by default or the method that was used in fitting the \code{"rma"} model). See \code{\link{rma.uni}} for options.} \item{exact}{logical to specify whether the general method should be based on exact (but slower) or approximate (but faster) calculations.} \item{verbose}{logical to specify whether output should be generated on the progress of the calculations for \code{type="General"} (the default is \code{FALSE}).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} \item{\dots}{other arguments.} } \details{ The function can be used to calculate the \sQuote{fail-safe N}, that is, the minimum number of studies averaging null results that would have to be added to a given set of \mjseqn{k} studies to change the conclusion of a meta-analysis. If this number is small (in relation to the actual number of studies), then this indicates that the results based on the observed studies are not robust to publication bias (of the form assumed by the method, that is, where a set of studies averaging null results is missing). The method is also called a \sQuote{file drawer analysis} as it assumes that there is a set of studies averaging null results hiding in file drawers, which can overturn the findings from a meta-analysis. There are various types of methods that are all based on the same principle, which are described in more detail further below. Note that \emph{the fail-safe N is not an estimate of the number of missing studies}, only how many studies must be hiding in file drawers for the findings to be overturned. One can either pass a vector with the observed effect sizes or outcomes (via \code{x}) and the corresponding sampling variances via \code{vi} (or the standard errors via \code{sei}) to the function or an object of class \code{"rma"}. When passing a model object, the model must be a model without moderators (i.e., either an equal- or a random-effects model). \subsection{Rosenthal Method}{ The Rosenthal method (\code{type="Rosenthal"}) calculates the minimum number of studies averaging null results that would have to be added to a given set of studies to reduce the (one-tailed) combined significance level (i.e., p-value) to a particular alpha level, which can be specified via the \code{alpha} argument (.05 by default). The calculation is based on Stouffer's method for combining p-values and is described in Rosenthal (1979). Note that the method is primarily of interest for historical reasons, but the other methods described below are more closely aligned with the way meta-analyses are typically conducted in practice. } \subsection{Orwin Method}{ The Orwin method (\code{type="Orwin"}) calculates the minimum number of studies averaging null results that would have to be added to a given set of studies to reduce the (unweighted or weighted) average effect size / outcome to a target value (as specified via the \code{target} argument). The method is described in Orwin (1983). When \code{vi} (or \code{sei}) is not specified, the method is based on the unweighted average of the effect sizes / outcomes; otherwise, the method uses the inverse-variance weighted average. If the \code{target} argument is not specified, then the target value will be equal to the observed average effect size / outcome divided by 2 (which is entirely arbitrary and will always lead to a fail-safe N number that is equal to \mjseqn{k}). One should really set \code{target} to a value that reflects an effect size / outcome that would be considered to be practically irrelevant. Note that if \code{target} has the opposite sign as the actually observed average, then its sign is automatically flipped. } \subsection{Rosenberg Method}{ The Rosenberg method (\code{type="Rosenberg"}) calculates the minimum number of studies averaging null results that would have to be added to a given set of studies to reduce the significance level (i.e., p-value) of the average effect size / outcome (as estimated based on an equal-effects model) to a particular alpha level, which can be specified via the \code{alpha} argument (.05 by default). The method is described in Rosenberg (2005). Note that the p-value is calculated based on a standard normal distribution (instead of a t-distribution, as suggested by Rosenberg, 2005), but the difference is typically negligible. } \subsection{General Method}{ This method is a generalization of the methods by Orwin and Rosenberg (see Viechtbauer, 2024). By default (i.e., when \code{target} is not specified), it calculates the minimum number of studies averaging null results that would have to be added to a given set of studies to reduce the significance level (i.e., p-value) of the average effect size / outcome (as estimated based on a chosen model) to a particular alpha level, which can be specified via the \code{alpha} argument (.05 by default). The type of model that is used in the calculation is chosen via the \code{method} argument. If this is unspecified, then a random-effects model is automatically used (using \code{method="REML"}) or the method that was used in fitting the \code{"rma"} model (see \code{\link{rma.uni}} for options). Therefore, when setting \code{method="EE"}, then an equal-effects model is used, which yields (essentially) identical results as Rosenberg's method. If \code{target} is specified, then the method calculates the minimum number of studies averaging null results that would have to be added to a given set of studies to reduce the average effect size / outcome (as estimated based on a chosen model) to a target value (as specified via the \code{target} argument). As described above, the type of model that is used in the calculation is chosen via the \code{method} argument. When setting \code{method="EE"}, then an equal-effects model is used, which yields (essentially) identical results as Orwin's method with inverse-variance weights. The method uses an iterative algorithm for calculating the fail-safe N, which can be computationally expensive especially when N is large. By default, the method uses approximate (but faster) calculations, but when setting \code{exact=TRUE}, the method uses exact (but slower) calculations. The difference between the two is typically negligible. If N is larger than \mjseqn{10^7}, then the calculated number is given as \code{>1e+07}. } } \value{ An object of class \code{"fsn"}. The object is a list containing the following components (some of which may be \code{NA} if they are not applicable to the chosen method): \item{type}{the type of method used.} \item{fsnum}{the calculated fail-safe N.} \item{est}{the average effect size / outcome based on the observed studies.} \item{tau2}{the estimated amount of heterogeneity based on the observed studies.} \item{pval}{the p-value of the observed results.} \item{alpha}{the specified target alpha level.} \item{target}{the target average effect size / outcome.} \item{est.fsn}{the average effect size / outcome when combining the observed studies with those in the file drawer.} \item{tau2}{the estimated amount of heterogeneity when combining the observed studies with those in the file drawer.} \item{pval}{the p-value when combining the observed studies with those in the file drawer.} \item{\dots}{some additional elements/values.} The results are formatted and printed with the \code{\link[=print.fsn]{print}} function. } \note{ If the significance level of the observed studies is already above the specified alpha level or if the average effect size / outcome of the observed studies is already below the target average effect size / outcome, then the fail-safe N value is zero. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Rosenthal, R. (1979). The "file drawer problem" and tolerance for null results. \emph{Psychological Bulletin}, \bold{86}(3), 638--641. \verb{https://doi.org/10.1037/0033-2909.86.3.638} Orwin, R. G. (1983). A fail-safe N for effect size in meta-analysis. \emph{Journal of Educational Statistics}, \bold{8}(2), 157--159. \verb{https://doi.org/10.3102/10769986008002157} Rosenberg, M. S. (2005). The file-drawer problem revisited: A general weighted method for calculating fail-safe numbers in meta-analysis. \emph{Evolution}, \bold{59}(2), 464--468. \verb{https://doi.org/10.1111/j.0014-3820.2005.tb01004.x} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W. (2024). A fail-safe N computation based on the random-effects model. \emph{Annual Meeting of the Society for Research Synthesis Methodology}, Amsterdam, The Netherlands. \verb{https://www.wvbauer.com/lib/exe/fetch.php/talks:2024_viechtbauer_srsm_fail_safe_n.pdf} } \seealso{ \code{\link{regtest}} for the regression test, \code{\link{ranktest}} for the rank correlation test, \code{\link{trimfill}} for the trim and fill method, \code{\link{tes}} for the test of excess significance, and \code{\link{selmodel}} for selection models. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit equal-effects model rma(yi, vi, data=dat, method="EE") ### fail-safe N computations fsn(yi, vi, data=dat) fsn(yi, data=dat, type="Orwin", target=log(0.95)) # target corresponds to a 5\% risk reduction fsn(yi, vi, data=dat, type="Orwin", target=log(0.95)) # Orwin's method with 1/vi weights fsn(yi, vi, data=dat, type="General", target=log(0.95), method="EE") # like Orwin's method fsn(yi, vi, data=dat, type="Rosenberg") fsn(yi, vi, data=dat, type="General", method="EE") # like Rosenberg's method fsn(yi, vi, data=dat, type="General") # based on a random-effects model fsn(yi, vi, data=dat, type="General", target=log(0.95)) # based on a random-effects model ### fit a random-effects model and use fsn() on the model object res <- rma(yi, vi, data=dat) fsn(res) fsn(res, target=log(0.95)) } \keyword{htest} metafor/man/anova.rma.Rd0000644000176200001440000004160415173343621014645 0ustar liggesusers\name{anova.rma} \alias{anova} \alias{anova.rma} \title{Likelihood Ratio and Wald-Type Tests for 'rma' Objects} \description{ For two (nested) models of class \code{"rma.uni"} or \code{"rma.mv"}, the function provides a full versus reduced model comparison in terms of model fit statistics and a likelihood ratio test. When a single model is specified, a Wald-type test of one or more model coefficients or linear combinations thereof is carried out. \loadmathjax } \usage{ \method{anova}{rma}(object, object2, btt, X, att, Z, rhs, adjust, digits, refit=FALSE, \dots) } \arguments{ \item{object}{an object of class \code{"rma.uni"} or \code{"rma.mv"}.} \item{object2}{an (optional) object of class \code{"rma.uni"} or \code{"rma.mv"}. Only relevant when conducting a model comparison and likelihood ratio test. See \sQuote{Details}.} \item{btt}{optional vector of indices (or list thereof) to specify which coefficients should be included in the Wald-type test. Can also be a string to \code{\link{grep}} for. See \sQuote{Details}.} \item{X}{optional numeric vector or matrix to specify one or more linear combinations of the coefficients in the model that should be tested. See \sQuote{Details}.} \item{att}{optional vector of indices (or list thereof) to specify which scale coefficients should be included in the Wald-type test. Can also be a string to \code{\link{grep}} for. See \sQuote{Details}. Only relevant for location-scale models (see \code{\link{rma.uni}}).} \item{Z}{optional numeric vector or matrix to specify one or more linear combinations of the scale coefficients in the model that should be tested. See \sQuote{Details}. Only relevant for location-scale models (see \code{\link{rma.uni}}).} \item{rhs}{optional scalar or vector of values for the right-hand side of the null hypothesis when testing a set of coefficients (via \code{btt} or \code{att}) or linear combinations thereof (via \code{X} or \code{Z}). If unspecified, this defaults to a vector of zeros of the appropriate length. See \sQuote{Details}.} \item{adjust}{optional argument to specify (as a character string) a method for adjusting the p-values of Wald-type tests for multiple testing. See \code{\link{p.adjust}} for possible options. Can be abbreviated. Can also be a logical and if \code{TRUE}, then a Bonferroni correction is used.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is to take the value from the object.} \item{refit}{logical to specify whether models fitted with REML estimation and differing in their fixed effects should be refitted with ML estimation when conducting a likelihood ratio test (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ The function can be used in three different ways: \enumerate{ \item When a single model is specified (via argument \code{object}), the function provides a Wald-type test of one or more model coefficients, that is, \mjdeqn{\text{H}_0{:}\; \beta_{j \in \texttt{btt}} = 0,}{H_0: \beta_{j ∈ btt} = 0,} where \mjeqn{\beta_{j \in \texttt{btt}}}{\beta_{j ∈ btt}} is the set of coefficients to be tested (by default whether the set of coefficients is significantly different from zero, but one can specify a different value under the null hypothesis via argument \code{rhs}). In particular, for equal- or random-effects models (i.e., models without moderators), this is just the test of the single coefficient of the model (i.e., \mjeqn{\text{H}_0{:}\; \theta = 0}{H_0: \theta = 0} or \mjeqn{\text{H}_0{:}\; \mu = 0}{H_0: \mu = 0}). For models including moderators, an omnibus test of all model coefficients is conducted that excludes the intercept (the first coefficient) if it is included in the model. If no intercept is included in the model, then the omnibus test includes all coefficients in the model including the first. Alternatively, one can manually specify the indices of the coefficients to test via the \code{btt} (\sQuote{betas to test}) argument. For example, with \code{btt=c(3,4)}, only the third and fourth coefficients from the model are included in the test (if an intercept is included in the model, then it corresponds to the first coefficient in the model). Instead of specifying the coefficient numbers, one can specify a string for \code{btt}. In that case, \code{\link{grep}} will be used to search for all coefficient names that match the string (and hence, one can use regular expressions to fine-tune the search for matching strings). Using the \code{btt} argument, one can for example select all coefficients corresponding to a particular factor to test if the factor as a whole is significant. One can also specify a list of indices/strings, in which case tests of all list elements will be conducted. See \sQuote{Examples}. For location-scale models fitted with the \code{\link{rma.uni}} function, one can use the \code{att} argument in an analogous manner to specify the indices of the scale coefficients to test (i.e., \mjeqn{\text{H}_0{:}\; \alpha_{j \in \texttt{att}} = 0}{H_0: \alpha_{j ∈ att} = 0}, where \mjeqn{\alpha_{j \in \texttt{att}}}{\alpha_{j ∈ att}} is the set of coefficients to be tested). \item When a single model is specified (via argument \code{object}), one can use the \code{X} argument\mjseqn{^1} to specify a linear combination of the coefficients in the model that should be tested using a Wald-type test, that is, \mjdeqn{\text{H}_0{:}\; \tilde{x} \beta = 0,}{H_0: x \beta = 0,} where \mjeqn{\tilde{x}}{x} is a (row) vector of the same length as there are coefficients in the model (by default whether the linear combination is significantly different from zero, but one can specify a different value under the null hypothesis via argument \code{rhs}). One can also specify a matrix of linear combinations via the \code{X} argument to test \mjdeqn{\text{H}_0{:}\; \tilde{X} \beta = 0,}{H_0: X \beta = 0,} where each row of \mjeqn{\tilde{X}}{X} defines a particular linear combination to be tested (if \code{rhs} is used, then it should either be a scalar or of the same length as the number of combinations to be tested). If the matrix is of full rank, an omnibus Wald-type test of all linear combinations is also provided. Linear combinations can also be obtained with the \code{\link[=predict.rma]{predict}} function, which provides corresponding confidence intervals. See also the \code{\link{pairmat}} function for constructing a matrix of pairwise contrasts for testing the levels of a categorical moderator against each other. For location-scale models fitted with the \code{\link{rma.uni}} function, one can use the \code{Z} argument in an analogous manner to specify one or multiple linear combinations of the scale coefficients in the model that should be tested (i.e., \mjeqn{\text{H}_0{:}\; \tilde{Z} \alpha = 0}{H_0: Z \alpha = 0}). \item When specifying two models for comparison (via arguments \code{object} and \code{object2}), the function provides a likelihood ratio test (LRT) comparing the two models. The two models must be based on the same set of data, must be of the same class, and should be nested for the LRT to make sense. Also, LRTs are not meaningful when using REML estimation and the two models differ in terms of their fixed effects (setting \code{refit=TRUE} automatically refits the two models using ML estimation). Also, the theory underlying LRTs is only really applicable when comparing models that were fitted with ML/REML estimation, so if some other estimation method was used to fit the two models, the results should be treated with caution. } --------- \mjseqn{^1} This argument used to be called \code{L}, but was renamed to \code{X} (but using \code{L} in place of \code{X} still works). } \value{ An object of class \code{"anova.rma"}. When a single model is specified (without any further arguments or together with the \code{btt} or \code{att} argument), the object is a list containing the following components: \item{QM}{test statistic of the Wald-type test of the model coefficients.} \item{QMdf}{corresponding degrees of freedom.} \item{QMp}{corresponding p-value.} \item{btt}{indices of the coefficients tested by the Wald-type test.} \item{k}{number of outcomes included in the analysis.} \item{p}{number of coefficients in the model (including the intercept).} \item{m}{number of coefficients included in the Wald-type test.} \item{\dots}{some additional elements/values.} When \code{btt} or \code{att} was a list, then the object is a list of class \code{"list.anova.rma"}, where each element is an \code{"anova.rma"} object as described above. When argument \code{X} is used, the object is a list containing the following components: \item{QM}{test statistic of the omnibus Wald-type test of all linear combinations.} \item{QMdf}{corresponding degrees of freedom.} \item{QMp}{corresponding p-value.} \item{hyp}{description of the linear combinations tested.} \item{Xb}{values of the linear combinations.} \item{se}{standard errors of the linear combinations.} \item{zval}{test statistics of the linear combinations.} \item{pval}{corresponding p-values.} When two models are specified, the object is a list containing the following components: \item{fit.stats.f}{log-likelihood, deviance, AIC, BIC, and AICc for the full model.} \item{fit.stats.r}{log-likelihood, deviance, AIC, BIC, and AICc for the reduced model.} \item{parms.f}{number of parameters in the full model.} \item{parms.r}{number of parameters in the reduced model.} \item{LRT}{likelihood ratio test statistic.} \item{pval}{corresponding p-value.} \item{QE.f}{test statistic of the test for (residual) heterogeneity from the full model.} \item{QE.r}{test statistic of the test for (residual) heterogeneity from the reduced model.} \item{tau2.f}{estimated \mjseqn{\tau^2} value from the full model. \code{NA} for \code{"rma.mv"} objects.} \item{tau2.r}{estimated \mjseqn{\tau^2} value from the reduced model. \code{NA} for \code{"rma.mv"} objects.} \item{R2}{amount (in percent) of the heterogeneity in the reduced model that is accounted for in the full model (\code{NA} for \code{"rma.mv"} objects). This can be regarded as a pseudo \mjseqn{R^2} statistic (Raudenbush, 2009). Note that the value may not be very accurate unless \mjseqn{k} is large (\enc{López-López}{Lopez-Lopez} et al., 2014).} \item{\dots}{some additional elements/values.} The results are formatted and printed with the \code{\link[=print.anova.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.anova.rma]{as.data.frame}} function. } \note{ The function can also be used to conduct a likelihood ratio test (LRT) for the amount of (residual) heterogeneity in random- and mixed-effects models. The full model should then be fitted with either \code{method="ML"} or \code{method="REML"} and the reduced model with \code{method="EE"} (or with \code{tau2=0}). The p-value for the test is based on a chi-square distribution with 1 degree of freedom, but actually needs to be adjusted for the fact that the parameter (i.e., \mjseqn{\tau^2}) falls on the boundary of the parameter space under the null hypothesis (see Viechtbauer, 2007, for more details). LRTs for variance components in more complex models (as fitted with the \code{\link{rma.mv}} function) can also be conducted in this manner (see \sQuote{Examples}). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Hardy, R. J., & Thompson, S. G. (1996). A likelihood approach to meta-analysis with random effects. \emph{Statistics in Medicine}, \bold{15}(6), 619--629. \verb{https://doi.org/10.1002/(sici)1097-0258(19960330)15:6\%3C619::aid-sim188\%3E3.0.co;2-a} Huizenga, H. M., Visser, I., & Dolan, C. V. (2011). Testing overall and moderator effects in random effects meta-regression. \emph{British Journal of Mathematical and Statistical Psychology}, \bold{64}(1), 1--19. \verb{https://doi.org/10.1348/000711010X522687} \enc{López-López}{Lopez-Lopez}, J. A., \enc{Marín-Martínez}{Marin-Martinez}, F., \enc{Sánchez-Meca}{Sanchez-Meca}, J., Van den Noortgate, W., & Viechtbauer, W. (2014). Estimation of the predictive power of the model in mixed-effects meta-regression: A simulation study. \emph{British Journal of Mathematical and Statistical Psychology}, \bold{67}(1), 30--48. \verb{https://doi.org/10.1111/bmsp.12002} Raudenbush, S. W. (2009). Analyzing effect sizes: Random effects models. In H. Cooper, L. V. Hedges, & J. C. Valentine (Eds.), \emph{The handbook of research synthesis and meta-analysis} (2nd ed., pp. 295--315). New York: Russell Sage Foundation. Viechtbauer, W. (2007). Hypothesis tests for population heterogeneity in meta-analysis. \emph{British Journal of Mathematical and Statistical Psychology}, \bold{60}(1), 29--60. \verb{https://doi.org/10.1348/000711005X64042} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} } \seealso{ \code{\link{rma.uni}} and \code{\link{rma.mv}} for functions to fit models for which likelihood ratio and Wald-type tests can be conducted. \code{\link[=print.anova.rma]{print}} for the print method and \code{\link[=as.data.frame.anova.rma]{as.data.frame}} for the method to format the results as a data frame. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model res1 <- rma(yi, vi, data=dat, method="ML") res1 ### fit mixed-effects model with two moderators (absolute latitude and publication year) res2 <- rma(yi, vi, mods = ~ ablat + year, data=dat, method="ML") res2 ### Wald-type test of the two moderators anova(res2) ### alternative way of specifying the same test anova(res2, X=rbind(c(0,1,0), c(0,0,1))) ### corresponding likelihood ratio test anova(res1, res2) ### Wald-type test of a linear combination anova(res2, X=c(1,35,1970)) ### use predict() to obtain the same linear combination (with its CI) predict(res2, newmods=c(35,1970)) ### Wald-type tests of several linear combinations anova(res2, X=cbind(1,seq(0,60,by=10),1970)) ### adjust for multiple testing with the Bonferroni method anova(res2, X=cbind(1,seq(0,60,by=10),1970), adjust="bonf") ### mixed-effects model with three moderators res3 <- rma(yi, vi, mods = ~ ablat + year + alloc, data=dat, method="ML") res3 ### Wald-type test of the 'alloc' factor anova(res3, btt=4:5) ### instead of specifying the coefficient numbers, grep for "alloc" anova(res3, btt="alloc") ### specify a list for the 'btt' argument anova(res3, btt=list(2,3,4:5)) ### adjust for multiple testing with the Bonferroni method anova(res3, btt=list(2,3,4:5), adjust="bonf") ############################################################################ ### an example of doing LRTs of variance components in more complex models dat <- dat.konstantopoulos2011 res <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat) ### likelihood ratio test of the district-level variance component res0 <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat, sigma2=c(0,NA)) anova(res, res0) ### likelihood ratio test of the school-level variance component res0 <- rma.mv(yi, vi, random = ~ 1 | district/school, data=dat, sigma2=c(NA,0)) anova(res, res0) ### likelihood ratio test of both variance components simultaneously res0 <- rma.mv(yi, vi, data=dat) anova(res, res0) ############################################################################ ### an example illustrating a workflow involving cluster-robust inference dat <- dat.assink2016 ### assume that the effect sizes within studies are correlated with rho=0.6 V <- vcalc(vi, cluster=study, obs=esid, data=dat, rho=0.6) ### fit multilevel model using this approximate V matrix res <- rma.mv(yi, V, random = ~ 1 | study/esid, data=dat) res ### likelihood ratio tests of the two variance components res0 <- rma.mv(yi, V, random = ~ 1 | study/esid, data=dat, sigma2=c(0,NA)) anova(res, res0) res0 <- rma.mv(yi, V, random = ~ 1 | study/esid, data=dat, sigma2=c(NA,0)) anova(res, res0) ### use cluster-robust methods for inferences about the fixed effects sav <- robust(res, cluster=study, clubSandwich=TRUE) sav ### examine if 'deltype' is a potential moderator res <- rma.mv(yi, V, mods = ~ deltype, random = ~ 1 | study/esid, data=dat) sav <- robust(res, cluster=study, clubSandwich=TRUE) sav ### note: the (denominator) dfs for the omnibus F-test are very low, so the results ### of this test may not be trustworthy; consider using cluster wild bootstrapping \dontrun{ library(wildmeta) Wald_test_cwb(res, constraints=constrain_zero(2:3), R=1000, seed=1234) } } \keyword{models} metafor/man/profile.rma.Rd0000644000176200001440000003233115173343621015176 0ustar liggesusers\name{profile.rma} \alias{profile} \alias{profile.rma} \alias{profile.rma.uni} \alias{profile.rma.mv} \alias{profile.rma.uni.selmodel} \alias{profile.rma.ls} \alias{print.profile.rma} \alias{plot.profile.rma} \title{Profile Likelihood Plots for 'rma' Objects} \description{ Functions to profile the (restricted) log-likelihood for objects of class \code{"rma.uni"}, \code{"rma.mv"}, \code{"rma.uni.selmodel"}, and \code{"rma.ls"}. \loadmathjax } \usage{ \method{profile}{rma.uni}(fitted, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, \dots) \method{profile}{rma.mv}(fitted, sigma2, tau2, rho, gamma2, phi, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, \dots) \method{profile}{rma.uni.selmodel}(fitted, tau2, delta, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, \dots) \method{profile}{rma.ls}(fitted, alpha, xlim, ylim, steps=20, lltol=1e-03, progbar=TRUE, parallel="no", ncpus=1, cl, plot=TRUE, \dots) \method{print}{profile.rma}(x, \dots) \method{plot}{profile.rma}(x, xlim, ylim, pch=19, xlab, ylab, main, refline=TRUE, cline=FALSE, \dots) } \arguments{ \item{fitted}{an object of class \code{"rma.uni"}, \code{"rma.mv"}, \code{"rma.uni.selmodel"}, or \code{"rma.ls"}.} \item{x}{an object of class \code{"profile.rma"} (for \code{plot} and \code{print}).} \item{sigma2}{optional integer to specify for which \mjseqn{\sigma^2} parameter the likelihood should be profiled.} \item{tau2}{optional integer to specify for which \mjseqn{\tau^2} parameter the likelihood should be profiled.} \item{rho}{optional integer to specify for which \mjseqn{\rho} parameter the likelihood should be profiled.} \item{gamma2}{optional integer to specify for which \mjseqn{\gamma^2} parameter the likelihood should be profiled.} \item{phi}{optional integer to specify for which \mjseqn{\phi} parameter the likelihood should be profiled.} \item{delta}{optional integer to specify for which \mjseqn{\delta} parameter the likelihood should be profiled.} \item{alpha}{optional integer to specify for which \mjseqn{\alpha} parameter the likelihood should be profiled.} \item{xlim}{optional vector to specify the lower and upper limit of the parameter over which the profiling should be done. If unspecified, the function sets these limits automatically.} \item{ylim}{optional vector to specify the y-axis limits when plotting the profiled likelihood. If unspecified, the function sets these limits automatically.} \item{steps}{number of points between \code{xlim[1]} and \code{xlim[2]} (inclusive) for which the likelihood should be evaluated (the default is 20). Can also be a numeric vector of length 2 or longer to specify for which parameter values the likelihood should be evaluated (in this case, \code{xlim} is automatically set to \code{range(steps)} if unspecified).} \item{lltol}{numerical tolerance used when comparing values of the profiled log-likelihood with the log-likelihood of the fitted model (the default is 1e-03).} \item{progbar}{logical to specify whether a progress bar should be shown (the default is \code{TRUE}).} \item{parallel}{character string to specify whether parallel processing should be used (the default is \code{"no"}). For parallel processing, set to either \code{"snow"} or \code{"multicore"}. See \sQuote{Details}.} \item{ncpus}{integer to specify the number of processes to use in the parallel processing.} \item{cl}{optional cluster to use if \code{parallel="snow"}. If unspecified, a cluster on the local machine is created for the duration of the call.} \item{plot}{logical to specify whether the profile plot should be drawn after profiling is finished (the default is \code{TRUE}).} \item{pch}{plotting symbol to use. By default, a filled circle is used. See \code{\link{points}} for other options.} \item{refline}{logical to specify whether the value of the parameter estimate should be indicated by a dotted vertical line and its log-likelihood value by a dotted horizontal line (the default is \code{TRUE}).} \item{cline}{logical to specify whether a horizontal reference line should be added to the plot that indicates the log-likelihood value corresponding to the 95\% profile confidence interval (the default is \code{FALSE}). Can also be a numeric value between 0 and 100 to specify the confidence interval level.} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{ylab}{title for the y-axis. If unspecified, the function sets an appropriate axis title.} \item{main}{title for the plot. If unspecified, the function sets an appropriate title.} \item{\dots}{other arguments.} } \details{ The function fixes a particular parameter of the model and then computes the maximized (restricted) log-likelihood over the remaining parameters of the model. By fixing the parameter of interest to a range of values, a profile of the (restricted) log-likelihood is constructed. \subsection{Selecting the Parameter(s) to Profile}{ The parameters that can be profiled depend on the model object: \itemize{ \item For objects of class \code{"rma.uni"} obtained with the \code{\link{rma.uni}} function, the function profiles over \mjseqn{\tau^2} (not for equal-effects models). \item For objects of class \code{"rma.mv"} obtained with the \code{\link{rma.mv}} function, profiling is done by default over all variance and correlation components of the model. Alternatively, one can use the \code{sigma2}, \code{tau2}, \code{rho}, \code{gamma2}, or \code{phi} arguments to specify over which parameter the profiling should be done. Only one of these arguments can be used at a time. A single integer is used to specify the number of the parameter. \item For selection model objects of class \code{"rma.uni.selmodel"} obtained with the \code{\link{selmodel}} function, profiling is done by default over \mjseqn{\tau^2} (for models where this is an estimated parameter) and all selection model parameters. Alternatively, one can choose to profile only \mjseqn{\tau^2} by setting \code{tau2=TRUE} or one can select one of the selection model parameters to profile by specifying its number via the \code{delta} argument. \item For location-scale model objects of class \code{"rma.ls"} obtained with the \code{\link{rma.uni}} function, profiling is done by default over all \mjseqn{\alpha} parameters that are part of the scale model. Alternatively, one can select one of the parameters to profile by specifying its number via the \code{alpha} argument. } } \subsection{Interpreting Profile Likelihood Plots}{ A profile likelihood plot should show a single peak at the corresponding ML/REML estimate. If \code{refline=TRUE} (the default), the value of the parameter estimate is indicated by a dotted vertical line and its log-likelihood value by a dotted horizontal line. Hence, the intersection of these two lines should correspond to the peak (assuming that the model was fitted with ML/REML estimation). When profiling a variance component (or some other parameter that cannot be negative), the peak may be at zero (if this corresponds to the ML/REML estimate of the parameter). In this case, the profiled log-likelihood should be a monotonically decreasing function of the parameter. Similarly, when profiling a correlation component, the peak may be at -1 or +1. If the profiled log-likelihood has multiple peaks, this indicates that the likelihood surface is not unimodal. In such cases, the ML/REML estimate may correspond to a local optimum (when the intersection of the two dotted lines is not at the highest peak). If the profile is flat (over the entire parameter space or large portions of it), then this suggests that at least some of the parameters of the model are not identifiable (and the parameter estimates obtained are to some extent arbitrary). See Raue et al. (2009) for some further discussion of parameter identifiability and the use of profile likelihoods to check for this. The function checks whether any profiled log-likelihood value is actually larger than the log-likelihood of the fitted model (using a numerical tolerance of \code{lltol}). If so, a warning is issued as this might indicate that the optimizer did not identify the actual ML/REML estimate of the parameter profiled. } \subsection{Parallel Processing}{ Profiling requires repeatedly refitting the model, which can be slow when \mjseqn{k} is large and/or the model is complex (the latter especially applies to \code{"rma.mv"} objects and also to certain \code{"rma.uni.selmodel"} or \code{"rma.ls"} objects). On machines with multiple cores, one can try to speed things up by delegating the model fitting to separate worker processes, that is, by setting \code{parallel="snow"} or \code{parallel="multicore"} and \code{ncpus} to some value larger than 1. Parallel processing makes use of the \code{\link[parallel]{parallel}} package, using the \code{\link[parallel]{makePSOCKcluster}} and \code{\link[parallel]{parLapply}} functions when \code{parallel="snow"} or using \code{\link[parallel]{mclapply}} when \code{parallel="multicore"} (the latter only works on Unix/Linux-alikes). } } \value{ An object of class \code{"profile.rma"}. The object is a list (or list of such lists) containing the following components: One of the following (depending on the parameter that was actually profiled): \item{sigma2}{values of \mjseqn{\sigma^2} over which the likelihood was profiled.} \item{tau2}{values of \mjseqn{\tau^2} over which the likelihood was profiled.} \item{rho}{values of \mjseqn{\rho} over which the likelihood was profiled.} \item{gamma2}{values of \mjseqn{\gamma^2} over which the likelihood was profiled.} \item{phi}{values of \mjseqn{\phi} over which the likelihood was profiled.} \item{delta}{values of \mjseqn{\delta} over which the likelihood was profiled.} \item{alpha}{values of \mjseqn{\alpha} over which the likelihood was profiled.} In addition, the following components are included: \item{ll}{(restricted) log-likelihood values at the corresponding parameter values.} \item{beta}{a matrix with the estimated model coefficients at the corresponding parameter values.} \item{ci.lb}{a matrix with the lower confidence interval bounds of the model coefficients at the corresponding parameter values.} \item{ci.ub}{a matrix with the upper confidence interval bounds of the model coefficients at the corresponding parameter values.} \item{\dots}{some additional elements/values.} Note that the list is returned invisibly. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Raue, A., Kreutz, C., Maiwald, T., Bachmann, J., Schilling, M., Klingmuller, U., & Timmer, J. (2009). Structural and practical identifiability analysis of partially observed dynamical models by exploiting the profile likelihood. \emph{Bioinformatics}, \bold{25}(15), 1923--1929. \verb{https://doi.org/10.1093/bioinformatics/btp358} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} Viechtbauer, W., & \enc{López-López}{Lopez-Lopez}, J. A. (2022). Location-scale models for meta-analysis. \emph{Research Synthesis Methods}. \bold{13}(6), 697--715. \verb{https://doi.org/10.1002/jrsm.1562} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mv}}, and \code{\link[=selmodel.rma.uni]{selmodel}} for functions to fit models for which profile likelihood plots can be drawn. \code{\link[=confint.rma]{confint}} for functions to compute corresponding profile likelihood confidence intervals. } \examples{ ### calculate log odds ratios and corresponding sampling variances dat <- escalc(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit random-effects model using rma.uni() res <- rma(yi, vi, data=dat) ### profile over tau^2 profile(res, progbar=FALSE) ### adjust xlim profile(res, progbar=FALSE, xlim=c(0,1)) ### specify tau^2 values at which to profile the likelihood profile(res, progbar=FALSE, steps=c(seq(0,0.2,length=20),seq(0.3,1,by=0.1))) ### change data into long format dat.long <- to.long(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, append=FALSE) ### set levels/labels for group ("con" = control/non-vaccinated, "exp" = experimental/vaccinated) dat.long$group <- factor(dat.long$group, levels=c(2,1), labels=c("con","exp")) ### calculate log odds and corresponding sampling variances dat.long <- escalc(measure="PLO", xi=out1, mi=out2, data=dat.long) dat.long ### fit bivariate random-effects model using rma.mv() res <- rma.mv(yi, vi, mods = ~ group, random = ~ group | study, struct="UN", data=dat.long) res ### profile over tau^2_1, tau^2_2, and rho ### note: for rho, adjust region over which profiling is done ('zoom in' on area around estimate) \dontrun{ par(mfrow=c(2,2)) profile(res, tau2=1) profile(res, tau2=2) profile(res, rho=1, xlim=c(0.90, 0.98)) par(mfrow=c(1,1)) } ### an example where the peak of the likelihood profile is at 0 dat <- escalc(measure="RD", n1i=n1i, n2i=n2i, ai=ai, ci=ci, data=dat.hine1989) res <- rma(yi, vi, data=dat) profile(res, progbar=FALSE) } \keyword{hplot} metafor/man/rma.glmm.Rd0000644000176200001440000010510315173343621014470 0ustar liggesusers\name{rma.glmm} \alias{rma.glmm} \title{Meta-Analysis via Generalized Linear (Mixed-Effects) Models} \description{ Function to fit meta-analytic equal-, fixed-, and random-effects models and (mixed-effects) meta-regression models using a generalized linear (mixed-effects) model framework. See below and the introduction to the \pkg{\link{metafor-package}} for more details on these models. \loadmathjax } \usage{ rma.glmm(ai, bi, ci, di, n1i, n2i, x1i, x2i, t1i, t2i, xi, mi, ti, ni, mods, measure, data, slab, subset, add=1/2, to="only0", drop00=TRUE, intercept=TRUE, model="UM.FS", method="ML", coding=1/2, cor=FALSE, test="z", level=95, btt, nAGQ=7, verbose=FALSE, digits, control, \dots) } \arguments{ \emph{These arguments pertain to data input:} \item{ai}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{bi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{ci}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{di}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{n1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{n2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{x1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{x2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{t1i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{t2i}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{xi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{mi}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{ti}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{ni}{see below and the documentation of the \code{\link{escalc}} function for more details.} \item{mods}{optional argument to include one or more moderators in the model. A single moderator can be given as a vector of length \mjseqn{k} specifying the values of the moderator. Multiple moderators are specified by giving a matrix with \mjseqn{k} rows and as many columns as there are moderator variables. Alternatively, a model \code{\link{formula}} can be used to specify the model. See \sQuote{Details}.} \item{measure}{character string to specify the outcome measure to use for the meta-analysis. Possible options are \code{"OR"} for the (log transformed) odds ratio, \code{"IRR"} for the (log transformed) incidence rate ratio, \code{"PLO"} for the (logit transformed) proportion, or \code{"IRLN"} for the (log transformed) incidence rate.} \item{data}{optional data frame containing the data supplied to the function.} \item{slab}{optional vector with labels for the \mjseqn{k} studies.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be used for the analysis.} \emph{These arguments pertain to handling of zero cells/counts/frequencies:} \item{add}{non-negative number to specify the amount to add to zero cells, counts, or frequencies when calculating the observed effect sizes or outcomes of the individual studies. See below and the documentation of the \code{\link{escalc}} function for more details.} \item{to}{character string to specify when the values under \code{add} should be added (either \code{"only0"}, \code{"all"}, \code{"if0all"}, or \code{"none"}). See below and the documentation of the \code{\link{escalc}} function for more details.} \item{drop00}{logical to specify whether studies with no cases/events (or only cases) in both groups should be dropped. See the documentation of the \code{\link{escalc}} function for more details.} \emph{These arguments pertain to the model / computations and output:} \item{intercept}{logical to specify whether an intercept should be added to the model (the default is \code{TRUE}).} \item{model}{character string to specify the general model type for the analysis. Either \code{"UM.FS"} (the default), \code{"UM.RS"}, \code{"CM.EL"}, or \code{"CM.AL"}. See \sQuote{Details}.} \item{method}{character string to specify whether an equal- or a random-effects model should be fitted. An equal-effects model is fitted when using \code{method="EE"}. A random-effects model is fitted by setting \code{method="ML"} (the default). See \sQuote{Details}.} \item{coding}{numeric scalar to specify how the group variable should be coded in the random effects structure for random/mixed-effects models (the default is \code{1/2}). See \sQuote{Note}.} \item{cor}{logical to specify whether the random study effects should be allowed to be correlated with the random group effects for random/mixed-effects models when \code{model="UM.RS"} (the default is \code{FALSE}). See \sQuote{Note}.} \item{test}{character string to specify how test statistics and confidence intervals for the fixed effects should be computed. By default (\code{test="z"}), Wald-type tests and CIs are obtained, which are based on a standard normal distribution. When \code{test="t"}, a t-distribution is used instead. See \sQuote{Details} and also \link[=misc-recs]{here} for some recommended practices.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (the default is 95; see \link[=misc-options]{here} for details).} \item{btt}{optional vector of indices to specify which coefficients to include in the omnibus test of moderators. Can also be a string to \code{\link{grep}} for. See \sQuote{Details}.} \item{nAGQ}{positive integer to specify the number of points per axis for evaluating the adaptive Gauss-Hermite approximation to the log-likelihood. The default is 7. Setting this to 1 corresponds to the Laplacian approximation. See \sQuote{Note}.} \item{verbose}{logical to specify whether output should be generated on the progress of the model fitting (the default is \code{FALSE}). Can also be an integer. Values > 1 generate more verbose output. See \sQuote{Note}.} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded. If unspecified, the default is 4. See also \link[=misc-options]{here} for further details on how to control the number of digits in the output.} \item{control}{optional list of control values for the estimation algorithms. If unspecified, default values are defined inside the function. See \sQuote{Note}.} \item{\dots}{additional arguments.} } \details{ \subsection{Specifying the Data}{ The function can be used in combination with the following effect sizes or outcome measures: \itemize{ \item \code{measure="OR"} for (log transformed) odds ratios, \item \code{measure="IRR"} for (log transformed) incidence rate ratios, \item \code{measure="PLO"} for (logit transformed) proportions (i.e., log odds), \item \code{measure="IRLN"} for (log transformed) incidence rates. } The \code{\link{escalc}} function describes the data/arguments that should be specified/used for these measures. } \subsection{Specifying the Model}{ A variety of model types are available when analyzing \mjeqn{2 \times 2}{2x2} table data (i.e., when \code{measure="OR"}) or two-group event count data (i.e., when \code{measure="IRR"}): \itemize{ \item \code{model="UM.FS"} for an unconditional generalized linear mixed-effects model with fixed study effects, \item \code{model="UM.RS"} for an unconditional generalized linear mixed-effects model with random study effects, \item \code{model="CM.AL"} for a conditional generalized linear mixed-effects model (approximate likelihood), \item \code{model="CM.EL"} for a conditional generalized linear mixed-effects model (exact likelihood). } For \code{measure="OR"}, models \code{"UM.FS"} and \code{"UM.RS"} are essentially (mixed-effects) logistic regression models, while for \code{measure="IRR"}, these models are (mixed-effects) Poisson regression models. The difference between \code{"UM.FS"} and \code{"UM.RS"} is how study level variability (i.e., differences in outcomes across studies irrespective of group membership) is modeled. One can choose between using fixed study effects (which means that \mjseqn{k} dummy variables are added to the model) or random study effects (which means that random effects corresponding to the levels of the study factor are added to the model). The conditional model (\code{model="CM.EL"}) avoids having to model study level variability by conditioning on the total numbers of cases/events in each study. For \code{measure="OR"}, this leads to a non-central hypergeometric distribution for the data within each study and the corresponding model is then a (mixed-effects) conditional logistic model. Fitting this model can be difficult and computationally expensive. When the number of cases in each study is small relative to the group sizes, one can approximate the exact likelihood by a binomial distribution, which leads to a regular (mixed-effects) logistic regression model (\code{model="CM.AL"}). For \code{measure="IRR"}, the conditional model leads directly to a binomial distribution for the data within each study and the resulting model is again a (mixed-effects) logistic regression model (no approximate likelihood model is needed here). When analyzing proportions (i.e., \code{measure="PLO"}) or incidence rates (i.e., \code{measure="IRLN"}) of individual groups, the model type is always a (mixed-effects) logistic or Poisson regression model, respectively (i.e., the \code{model} argument is not relevant here). Aside from choosing the general model type, one has to decide whether to fit an equal- or a random-effects model to the data. An \emph{equal-effects model} is fitted by setting \code{method="EE"}. A \emph{random-effects model} is fitted by setting \code{method="ML"} (the default). Note that random-effects models with dichotomous data are often referred to as \sQuote{binomial-normal} models in the meta-analytic literature. Analogously, for event count data, such models could be referred to as \sQuote{Poisson-normal} models. One or more moderators can be included in a model via the \code{mods} argument. A single moderator can be given as a (row or column) vector of length \mjseqn{k} specifying the values of the moderator. Multiple moderators are specified by giving an appropriate model matrix (i.e., \mjseqn{X}) with \mjseqn{k} rows and as many columns as there are moderator variables (e.g., \code{mods = cbind(mod1, mod2, mod3)}, where \code{mod1}, \code{mod2}, and \code{mod3} correspond to the names of the variables for three moderator variables). The intercept is added to the model matrix by default unless \code{intercept=FALSE}. Alternatively, one can use standard \code{\link{formula}} syntax to specify the model. In this case, the \code{mods} argument should be set equal to a one-sided formula of the form \code{mods = ~ model} (e.g., \code{mods = ~ mod1 + mod2 + mod3}). Interactions, polynomial/spline terms, and factors can be easily added to the model in this manner. When specifying a model formula via the \code{mods} argument, the \code{intercept} argument is ignored. Instead, the inclusion/exclusion of the intercept is controlled by the specified formula (e.g., \code{mods = ~ 0 + mod1 + mod2 + mod3} or \code{mods = ~ mod1 + mod2 + mod3 - 1} would lead to the removal of the intercept). } \subsection{Equal-, Saturated-, and Random/Mixed-Effects Models}{ When fitting a particular model, actually up to three different models are fitted within the function: \itemize{ \item the equal-effects model (i.e., where \mjseqn{\tau^2} is set to 0), \item the saturated model (i.e., the model with a deviance of 0), and \item the random/mixed-effects model (i.e., where \mjseqn{\tau^2} is estimated) (only if \code{method="ML"}). } The saturated model is obtained by adding as many dummy variables to the model as needed so that the model deviance is equal to zero. Even when \code{method="ML"}, the equal- and saturated models are also fitted, as they are used to compute the test statistics for the Wald-type and likelihood ratio tests for (residual) heterogeneity (see below). } \subsection{Omnibus Test of Moderators}{ For models including moderators, an omnibus test of all model coefficients is conducted that excludes the intercept (the first coefficient) if it is included in the model. If no intercept is included in the model, then the omnibus test includes all coefficients in the model including the first. Alternatively, one can manually specify the indices of the coefficients to test via the \code{btt} (\sQuote{betas to test}) argument (i.e., to test \mjseqn{\text{H}_0{:}\; \beta_{j \in \texttt{btt}} = 0}, where \mjseqn{\beta_{j \in \texttt{btt}}} is the set of coefficients to be tested). For example, with \code{btt=c(3,4)}, only the third and fourth coefficients from the model are included in the test (if an intercept is included in the model, then it corresponds to the first coefficient in the model). Instead of specifying the coefficient numbers, one can specify a string for \code{btt}. In that case, \code{\link{grep}} will be used to search for all coefficient names that match the string. The omnibus test is called the \mjseqn{Q_M}-test and follows asymptotically a chi-square distribution with \mjseqn{m} degrees of freedom (with \mjseqn{m} denoting the number of coefficients tested) under the null hypothesis (that the true value of all coefficients tested is equal to 0). } \subsection{Categorical Moderators}{ Categorical moderator variables can be included in the model via the \code{mods} argument in the same way that appropriately (dummy) coded categorical variables can be included in linear models. One can either do the dummy coding manually or use a model formula together with the \code{\link{factor}} function to automate the coding (note that string/character variables in a model formula are automatically converted to factors). } \subsection{Tests and Confidence Intervals}{ By default, tests of individual coefficients in the model (and the corresponding confidence intervals) are based on a standard normal distribution, while the omnibus test is based on a chi-square distribution (see above). As an alternative, one can set \code{test="t"}, in which case tests of individual coefficients and confidence intervals are based on a t-distribution with \mjseqn{k-p} degrees of freedom, while the omnibus test then uses an F-distribution with \mjseqn{m} and \mjseqn{k-p} degrees of freedom (with \mjseqn{k} denoting the total number of estimates included in the analysis and \mjseqn{p} the total number of model coefficients including the intercept if it is present). Note that \code{test="t"} is not the same as \code{test="knha"} in \code{\link{rma.uni}}, as no adjustment to the standard errors of the estimated coefficients is made. } \subsection{Tests for (Residual) Heterogeneity}{ Two different tests for (residual) heterogeneity are automatically carried out by the function. The first is a Wald-type test, which tests the coefficients corresponding to the dummy variables added in the saturated model for significance. The second is a likelihood ratio test, which tests the same set of coefficients, but does so by computing \mjseqn{-2} times the difference in the log-likelihoods of the equal-effects and the saturated models. These two tests are not identical for the types of models fitted by the \code{rma.glmm} function and may even lead to conflicting conclusions. } \subsection{Observed Effect Sizes or Outcomes of the Individual Studies}{ The various models do not require the calculation of the observed effect sizes or outcomes of the individual studies (e.g., the observed log odds ratios of the \mjseqn{k} studies) and directly make use of the cell/event counts. Zero cells/events are not a problem (except in extreme cases, such as when one of the two outcomes never occurs or when there are no events in any of the studies). Therefore, it is unnecessary to add some constant to the cell/event counts when there are zero cells/events. However, for plotting and various other functions, it is necessary to calculate the observed effect sizes or outcomes for the \mjseqn{k} studies. Here, zero cells/events can be problematic, so adding a constant value to the cell/event counts ensures that all \mjseqn{k} values can be calculated. The \code{add} and \code{to} arguments are used to specify what value should be added to the cell/event counts and under what circumstances when calculating the observed effect sizes or outcomes. The documentation of the \code{\link{escalc}} function explains how the \code{add} and \code{to} arguments work. Note that \code{drop00} is set to \code{TRUE} by default, since studies where \code{ai=ci=0} or \code{bi=di=0} or studies where \code{x1i=x2i=0} are uninformative about the size of the effect. } } \value{ An object of class \code{c("rma.glmm","rma")}. The object is a list containing the following components: \item{beta}{estimated coefficients of the model.} \item{se}{standard errors of the coefficients.} \item{zval}{test statistics of the coefficients.} \item{pval}{corresponding p-values.} \item{ci.lb}{lower bound of the confidence intervals for the coefficients.} \item{ci.ub}{upper bound of the confidence intervals for the coefficients.} \item{vb}{variance-covariance matrix of the estimated coefficients.} \item{tau2}{estimated amount of (residual) heterogeneity. Always \code{0} when \code{method="EE"}.} \item{sigma2}{estimated amount of study level variability (only for \code{model="UM.RS"}).} \item{k}{number of studies included in the analysis.} \item{p}{number of coefficients in the model (including the intercept).} \item{m}{number of coefficients included in the omnibus test of moderators.} \item{QE.Wld}{Wald-type test statistic of the test for (residual) heterogeneity.} \item{QEp.Wld}{corresponding p-value.} \item{QE.LRT}{likelihood ratio test statistic of the test for (residual) heterogeneity.} \item{QEp.LRT}{corresponding p-value.} \item{QM}{test statistic of the omnibus test of moderators.} \item{QMp}{corresponding p-value.} \item{I2}{value of \mjseqn{I^2}.} \item{H2}{value of \mjseqn{H^2}.} \item{int.only}{logical that indicates whether the model is an intercept-only model.} \item{yi, vi, X}{the vector of outcomes, the corresponding sampling variances, and the model matrix.} \item{fit.stats}{a list with the log-likelihood, deviance, AIC, BIC, and AICc values.} \item{\dots}{some additional elements/values.} } \section{Methods}{ The results of the fitted model are formatted and printed with the \code{\link[=print.rma.glmm]{print}} function. If fit statistics should also be given, use \code{\link[=summary.rma]{summary}} (or use the \code{\link[=fitstats.rma]{fitstats}} function to extract them). } \note{ When \code{measure="OR"} or \code{measure="IRR"}, \code{model="UM.FS"} or \code{model="UM.RS"}, and \code{method="ML"}, one has to choose a coding scheme for the group variable in the random effects structure. When \code{coding=1/2} (the default), the two groups are coded with \code{+1/2} and \code{-1/2} (i.e., contrast coding), which is invariant under group label switching. When \code{coding=1}, the first group is coded with \code{1} and the second group with \code{0}. Finally, when \code{coding=0}, the first group is coded with \code{0} and the second group with \code{1}. Note that these coding schemes are not invariant under group label switching. When \code{model="UM.RS"} and \code{method="ML"}, one has to decide whether the random study effects are allowed to be correlated with the random group effects. By default (i.e., when \code{cor=FALSE}), no such correlation is allowed (which is typically an appropriate assumption when \code{coding=1/2}). When using a different coding scheme for the group variable (i.e., \code{coding=1} or \code{coding=0}), allowing the random study and group effects to be correlated (i.e., using \code{cor=TRUE}) is usually recommended. Fitting the various types of models requires several different iterative algorithms: \itemize{ \item For \code{model="UM.FS"} and \code{model="CM.AL"}, iteratively reweighted least squares (IWLS) as implemented in the \code{\link{glm}} function is used for fitting the equal-effects and the saturated models. For \code{method="ML"}, adaptive Gauss-Hermite quadrature as implemented in the \code{\link[lme4]{glmer}} function is used. The same applies when \code{model="CM.EL"} is used in combination with \code{measure="IRR"} or when \code{measure="PLO"} or \code{measure="IRLN"} (regardless of the model type). \item For \code{model="UM.RS"}, adaptive Gauss-Hermite quadrature as implemented in the \code{\link[lme4]{glmer}} function is used to fit all of the models. \item For \code{model="CM.EL"} and \code{measure="OR"}, the quasi-Newton method optimizer as implemented in the \code{\link{nlminb}} function is used by default for fitting the equal-effects and the saturated models. For \code{method="ML"}, the same algorithm is used, together with adaptive quadrature as implemented in the \code{\link{integrate}} function (for the integration over the density of the non-central hypergeometric distribution). Standard errors of the parameter estimates are obtained by inverting the Hessian, which is numerically approximated using the \code{\link[numDeriv]{hessian}} function from the \code{numDeriv} package. One can also set \code{control=list(hesspack="pracma")} or \code{control=list(hesspack="calculus")} in which case the \code{pracma::\link[pracma]{hessian}} or \code{calculus::\link[calculus]{hessian}} functions from the respective packages are used instead for approximating the Hessian. When \mjseqn{\tau^2} is estimated to be smaller than \mjeqn{10^{-4}}{10^(-4)}, then \mjseqn{\tau^2} is effectively treated as zero for computing the standard errors (which helps to avoid numerical problems in approximating the Hessian). This cutoff can be adjusted via the \code{tau2tol} control argument (e.g., \code{control=list(tau2tol=0)} to switch off this behavior). One can also chose a different optimizer from \code{\link{optim}} via the \code{control} argument (e.g., \code{control=list(optimizer="BFGS")} or \code{control=list(optimizer="Nelder-Mead")}). Besides \code{\link{nlminb}} and one of the methods from \code{\link{optim}}, one can also choose one of the optimizers from the \code{minqa} package (i.e., \code{\link[minqa]{uobyqa}}, \code{\link[minqa]{newuoa}}, or \code{\link[minqa]{bobyqa}}), one of the (derivative-free) algorithms from the \code{\link[nloptr]{nloptr}} package, the Newton-type algorithm implemented in \code{\link{nlm}}, the various algorithms implemented in the \code{dfoptim} package (\code{\link[dfoptim]{hjk}} for the Hooke-Jeeves, \code{\link[dfoptim]{nmk}} for the Nelder-Mead, and \code{\link[dfoptim]{mads}} for the Mesh Adaptive Direct Searches algorithm), the quasi-Newton type optimizers \code{\link[ucminf]{ucminf}} and \code{\link[lbfgsb3c]{lbfgsb3c}} and the subspace-searching simplex algorithm \code{\link[subplex]{subplex}} from the packages of the same name, the Barzilai-Borwein gradient decent method implemented in \code{\link[BB]{BBoptim}}, the \code{\link[optimx]{Rcgmin}} and \code{\link[optimx]{Rvmmin}} optimizers, or the parallelized version of the L-BFGS-B algorithm implemented in \code{\link[optimParallel]{optimParallel}} from the package of the same name. The optimizer name must be given as a character string (i.e., in quotes). Additional control parameters can be specified via the \code{optCtrl} elements of the \code{control} argument (e.g., \code{control=list(optCtrl=list(iter.max=1000, rel.tol=1e-8))}). For \code{\link[nloptr]{nloptr}}, the default is to use the BOBYQA implementation from that package with a relative convergence criterion of \code{1e-8} on the function value (i.e., log-likelihood), but this can be changed via the \code{algorithm} and \code{ftop_rel} arguments (e.g., \code{control=list(optimizer="nloptr", optCtrl=list(algorithm="NLOPT_LN_SBPLX", ftol_rel=1e-6))}). For \code{\link[optimParallel]{optimParallel}}, the control argument \code{ncpus} can be used to specify the number of cores to use for the parallelization (e.g., \code{control=list(optimizer="optimParallel", ncpus=2)}). } When \code{model="CM.EL"} and \code{measure="OR"}, actually \code{model="CM.AL"} is used first to obtain starting values for \code{\link{optim}}, so either 4 (if \code{method="EE"}) or 6 (if \code{method="ML"}) models need to be fitted in total. Various additional control parameters can be adjusted via the \code{control} argument: \itemize{ \item \code{glmCtrl} is a list of named arguments to be passed on to the \code{control} argument of the \code{\link{glm}} function, \item \code{glmerCtrl} is a list of named arguments to be passed on to the \code{control} argument of the \code{\link[lme4]{glmer}} function, \item \code{intCtrl} is a list of named arguments (i.e., \code{rel.tol} and \code{subdivisions}) to be passed on to the \code{\link{integrate}} function, and \item \code{hessianCtrl} is a list of named arguments to be passed on to the \code{method.args} argument of the \code{\link[numDeriv]{hessian}} function. Most important is the \code{r} argument, which is set to 16 by default (i.e., \code{control=list(hessianCtrl=list(r=16))}). If the Hessian cannot be inverted, it may be necessary to adjust the \code{r} argument to a different number (e.g., try \code{r=4}, \code{r=6}, or \code{r=8}). } Also, for \code{\link[lme4]{glmer}}, the \code{nAGQ} argument is used to specify the number of quadrature points. The default value is 7, which should provide sufficient accuracy in the evaluation of the log-likelihood in most cases, but at the expense of speed. Setting this to 1 corresponds to the Laplacian approximation (which is faster, but less accurate). Note that \code{\link[lme4]{glmer}} does not allow values of \code{nAGQ > 1} when \code{model="UM.RS"} and \code{method="ML"}, so this value is automatically set to 1 for this model. Instead of \code{\link[lme4]{glmer}}, one can also choose to use \code{\link[GLMMadaptive]{mixed_model}} from the \code{GLMMadaptive} package or \code{\link[glmmTMB]{glmmTMB}} from the \code{glmmTMB} package for the model fitting. This is done by setting \code{control=list(package="GLMMadaptive")} or \code{control=list(package="glmmTMB")}, respectively. Information on the progress of the various algorithms can be obtained by setting \code{verbose=TRUE}. Since fitting the various models can be computationally expensive, this option is useful to determine how the model fitting is progressing. One can also set \code{verbose} to an integer (\code{verbose=2} yields even more information and \code{verbose=3} also sets \code{option(warn=1)} temporarily). For \code{model="CM.EL"} and \code{measure="OR"}, optimization involves repeated calculation of the density of the non-central hypergeometric distribution. When \code{method="ML"}, this also requires integration over the same density. This is currently implemented in a rather brute-force manner and may not be numerically stable, especially when models with moderators are fitted. Stability can be improved by scaling the moderators in a similar manner (i.e., don't use a moderator that is coded 0 and 1, while another uses values in the 1000s). For models with an intercept and moderators, the function actually rescales (non-dummy) variables to z-scores during the model fitting (results are given after back-scaling, so this should be transparent to the user). For models without an intercept, this is not done, so sensitivity analyses are highly recommended here (to ensure that the results do not depend on the scaling of the moderators). Also, if a warning is issued that the standard errors of the fixed effects are unusually small, one should try sensitivity analyses with different optimizers and/or adjusted settings for the \code{hessianCtrl} and \code{tau2tol} control arguments. Finally, there is also (experimental!) support for the following measures: \itemize{ \item \code{measure="RR"} for log transformed risk ratios, \item \code{measure="RD"} for raw risk differences, \item \code{measure="PLN"} for log transformed proportions, \item \code{measure="PR"} for raw proportions, } (the first two only for models \code{"UM.FS"} and \code{"UM.RS"}) by using log and identity links for the binomial models. However, model fitting with these measures will often lead to numerical problems. Via the (undocumented) \code{link} argument, one can also directly adjust the link function that is used (by default, measures \code{"OR"} and \code{"PLO"} use a \code{"logit"} link, measures \code{"RR"} and \code{"PLN"} use a \code{"log"} link, measures \code{"RD"} and \code{"PR"} use an \code{"identity"} link, and measures \code{"IRR"} and \code{"IRLN"} use a \code{"log"} link). See \code{\link{family}} for alternative options. Changing these defaults is only recommended for users familiar with the consequences and the interpretation of the resulting estimates (when misused, the results could be meaningless). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). Code for computing the density of the non-central hypergeometric distribution comes from the \href{https://cran.r-project.org/package=MCMCpack}{MCMCpack} package, which in turn is based on Liao and Rosen (2001). } \references{ Agresti, A. (2002). \emph{Categorical data analysis} (2nd. ed). Hoboken, NJ: Wiley. Bagos, P. G., & Nikolopoulos, G. K. (2009). Mixed-effects Poisson regression models for meta-analysis of follow-up studies with constant or varying durations. \emph{The International Journal of Biostatistics}, \bold{5}(1). \verb{https://doi.org/10.2202/1557-4679.1168} Jackson, D., Law, M., Stijnen, T., Viechtbauer, W., & White, I. R. (2018). A comparison of seven random-effects models for meta-analyses that estimate the summary odds ratio. \emph{Statistics in Medicine}, \bold{37}(7), 1059--1085. \verb{https://doi.org/10.1002/sim.7588} Liao, J. G., & Rosen, O. (2001). Fast and stable algorithms for computing and sampling from the noncentral hypergeometric distribution. \emph{American Statistician}, \bold{55}(4), 366--369. \verb{https://doi.org/10.1198/000313001753272547} Simmonds, M. C., & Higgins, J. P. T. (2016). A general framework for the use of logistic regression models in meta-analysis. \emph{Statistical Methods in Medical Research}, \bold{25}(6), 2858--2877. \verb{https://doi.org/10.1177/0962280214534409} Stijnen, T., Hamza, T. H., & Ozdemir, P. (2010). Random effects meta-analysis of event outcome in the framework of the generalized linear mixed model with applications in sparse data. \emph{Statistics in Medicine}, \bold{29}(29), 3046--3067. \verb{https://doi.org/10.1002/sim.4040} Turner, R. M., Omar, R. Z., Yang, M., Goldstein, H., & Thompson, S. G. (2000). A multilevel model framework for meta-analysis of clinical trials with binary outcomes. \emph{Statistics in Medicine}, \bold{19}(24), 3417--3432. \verb{https://doi.org/10.1002/1097-0258(20001230)19:24<3417::aid-sim614>3.0.co;2-l} van Houwelingen, H. C., Zwinderman, K. H., & Stijnen, T. (1993). A bivariate approach to meta-analysis. \emph{Statistics in Medicine}, \bold{12}(24), 2273--2284. \verb{https://doi.org/10.1002/sim.4780122405} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, and \code{\link{rma.mv}} for other model fitting functions. \code{\link[metadat]{dat.nielweise2007}}, \code{\link[metadat]{dat.nielweise2008}}, \code{\link[metadat]{dat.collins1985a}}, and \code{\link[metadat]{dat.pritz1997}} for further examples of the use of the \code{rma.glmm} function. For rare event data, see also the \href{https://cran.r-project.org/package=rema}{rema} package for a version of the conditional logistic model that uses a permutation approach for making inferences. } \examples{ ############################################################################ ### random-effects model using rma.uni() (standard RE model analysis) rma(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, method="ML") ### random-effects models using rma.glmm() (requires 'lme4' package) \dontrun{ ### unconditional model with fixed study effects (the default) rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, model="UM.FS") ### unconditional model with random study effects rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, model="UM.RS") ### conditional model with approximate likelihood rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, model="CM.AL") ### conditional model with exact likelihood ### note: fitting this model may take a bit of time, so be patient rma.glmm(measure="OR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, model="CM.EL") } ############################################################################ ### try some alternative measures \dontrun{ rma.glmm(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) rma.glmm(measure="RD", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) } ############################################################################ ### meta-analysis of proportions \dontrun{ dat <- dat.debruin2009 ### binomial-normal model (with logit link) = mixed-effects logistic model res <- rma.glmm(measure="PLO", xi=xi, ni=ni, data=dat) predict(res, transf=transf.ilogit) ### binomial-normal model with measure="PLN" (uses a log link) res <- rma.glmm(measure="PLN", xi=xi, ni=ni, data=dat) predict(res, transf=exp) ### binomial-normal model with measure="PR" (uses an identity link) res <- rma.glmm(measure="PR", xi=xi, ni=ni, data=dat) predict(res) ### binomial-normal model (with probit link) = mixed-effects probit model res <- rma.glmm(measure="PLO", xi=xi, ni=ni, data=dat, link="probit") predict(res, transf=pnorm) ### further link functions that one could consider here res <- rma.glmm(measure="PLO", xi=xi, ni=ni, data=dat, link="cauchit") predict(res, transf=pcauchy) res <- rma.glmm(measure="PLO", xi=xi, ni=ni, data=dat, link="cloglog") predict(res, transf=\(x) 1-exp(-exp(x))) } ############################################################################ } \keyword{models} metafor/man/rcalc.Rd0000644000176200001440000002234215173343621014045 0ustar liggesusers\name{rcalc} \alias{rcalc} \title{Calculate the Variance-Covariance of Dependent Correlation Coefficients} \description{ Function to calculate the variance-covariance matrix of correlation coefficients computed based on the same sample of subjects. \loadmathjax } \usage{ rcalc(x, ni, data, rtoz=FALSE, nfun="min", sparse=FALSE, \dots) } \arguments{ \item{x}{a formula of the form \code{ri ~ var1 + var2 | study}. Can also be a correlation matrix or list thereof. See \sQuote{Details}.} \item{ni}{vector to specify the sample sizes based on which the correlations were computed.} \item{data}{data frame containing the variables specified via the formula (and the sample sizes).} \item{rtoz}{logical to specify whether to transform the correlations via Fisher's r-to-z transformation (the default is \code{FALSE}).} \item{nfun}{a character string to specify how the \sQuote{common} sample size within each study should be computed. Possible options are \code{"min"} (for the minimum), \code{"harmonic"} (for the harmonic mean), or \code{"mean"} (for the arithmetic mean). Can also be a function. See \sQuote{Details}.} \item{sparse}{logical to specify whether the variance-covariance matrix should be returned as a sparse matrix (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ A meta-analysis of correlation coefficients may involve multiple correlation coefficients extracted from the same study. When these correlations are computed based on the same sample of subjects, then they are typically not independent. The \code{rcalc} function can be used to create a dataset with the correlation coefficients (possibly transformed with Fisher's r-to-z transformation) and the corresponding variance-covariance matrix. The dataset and variance-covariance matrix can then be further meta-analyzed using the \code{\link{rma.mv}} function. When computing the covariance between two correlation coefficients, we can distinguish two cases: \enumerate{ \item In the first case, one of the variables involved in the two correlation coefficients is the same. For example, in \mjseqn{r_{12}} and \mjseqn{r_{13}}, variable 1 is common to both correlation coefficients. This is sometimes called the (partially) \sQuote{overlapping} case. The covariance between the two correlation coefficients, \mjeqn{\text{Cov}[r_{12}, r_{13}]}{Cov[r_{12}, r_{13}]}, then depends on the degree of correlation between variables 2 and 3 (i.e., \mjseqn{r_{23}}). \item In the second case, none of the variables are common to both correlation coefficients. For example, this would be the case if we have correlations \mjseqn{r_{12}} and \mjseqn{r_{34}} based on 4 variables. This is sometimes called the \sQuote{non-overlapping} case. The covariance between the two correlation coefficients, \mjeqn{\text{Cov}[r_{12}, r_{34}]}{Cov[r_{12}, r_{34}]}, then depends on \mjseqn{r_{13}}, \mjseqn{r_{14}}, \mjseqn{r_{23}}, and \mjseqn{r_{24}}. } Equations to compute these covariances can be found, for example, in Steiger (1980) and Olkin and Finn (1990). To use the \code{rcalc} function, one needs to construct a data frame that contains a study identifier (say \code{study}), two variable identifiers (say \code{var1} and \code{var2}), the corresponding correlation coefficients (say \code{ri}), and the sample sizes based on which the correlation coefficients were computed (say \code{ni}). Then the first argument should be a formula of the form \code{ri ~ var1 + var2 | study}, argument \code{ni} is set equal to the variable name containing the sample sizes, and the data frame containing these variables is specified via the \code{data} argument. When using the function for a single study, one can leave out the study identifier from the formula. When argument \code{rtoz} is set to \code{TRUE}, then the correlations are transformed with Fisher's r-to-z transformation (Fisher, 1921) and the variance-covariance matrix is computed for the transformed values. In some cases, the sample size may not be identical within a study (e.g., \mjseqn{r_{12}} may have been computed based on 120 subjects while \mjseqn{r_{13}} was computed based on 118 subjects due to 2 missing values in variable 3). For constructing the variance-covariance matrix, we need to assume a \sQuote{common} sample size for all correlation coefficients within the study. Argument \code{nfun} provides some options for how the common sample size should be computed. Possible options are \code{"min"} (for using the minimum sample size within a study as the common sample size), \code{"harmonic"} (for using the harmonic mean), or \code{"mean"} (for using the arithmetic mean). The default is \code{"min"}, which is a conservative choice (i.e., it will overestimate the sampling variances of coefficients that were computed based on a sample size that was actually larger than the minimum sample size). One can also specify a function via the \code{nfun} argument (which should take a numeric vector as input and return a single value). Instead of specifying a formula, one can also pass a correlation matrix to the function via argument \code{x}. Argument \code{ni} then specifies the (common) sample size based on which the elements in the correlation matrix were computed. One can also pass a list of correlation matrices via argument \code{x}, in which case argument \code{ni} should be a vector of sample sizes of the same length as \code{x}. } \value{ A list containing the following components: \item{dat}{a data frame with the study identifier, the two variable identifiers, a variable pair identifier, the correlation coefficients (possibly transformed with Fisher's r-to-z transformation), and the (common) sample sizes.} \item{V}{corresponding variance-covariance matrix (given as a sparse matrix when \code{sparse=TRUE}; otherwise a matrix with class \code{"vcovmat"}).} Note that a particular covariance can only be computed when all of the correlation coefficients involved in the covariance equation are included in the dataset. If one or more coefficients needed for the computation are missing, then the resulting covariance will also be missing (i.e., \code{NA}). } \note{ For raw correlation coefficients, the variance-covariance matrix is computed with \mjseqn{n-1} in the denominator (instead of \mjseqn{n} as suggested in Steiger, 1980, and Olkin & Finn, 1990). This is more consistent with the usual equation for computing the sampling variance of a correlation coefficient (which also typically uses \mjseqn{n-1} in the denominator). For raw and r-to-z transformed coefficients, the variance-covariance matrix will only be computed when the (common) sample size for a study is at least 5. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Fisher, R. A. (1921). On the \dQuote{probable error} of a coefficient of correlation deduced from a small sample. \emph{Metron}, \bold{1}, 1--32. \verb{https://hdl.handle.net/2440/15169} Olkin, I., & Finn, J. D. (1990). Testing correlated correlations. \emph{Psychological Bulletin}, \bold{108}(2), 330--333. \verb{https://doi.org/10.1037/0033-2909.108.2.330} Steiger, J. H. (1980). Tests for comparing elements of a correlation matrix. \emph{Psychological Bulletin}, \bold{87}(2), 245--251. \verb{https://doi.org/10.1037/0033-2909.87.2.245} } \seealso{ \code{\link{rma.mv}} for a model fitting function that can be used to meta-analyze dependent correlation coefficients. \code{\link[metadat]{dat.craft2003}} for an illustrative example. } \examples{ ############################################################################ ### copy data into 'dat' and examine the first 12 rows dat <- dat.craft2003 head(dat, 12) ### construct dataset and var-cov matrix of the correlations tmp <- rcalc(ri ~ var1 + var2 | study, ni=ni, data=dat) V <- tmp$V dat <- tmp$dat ### examine data and var-cov matrix for study 1 dat[dat$study == 1,] blsplit(V, dat$study, round, 4)$`1` ### examine data and var-cov matrix for study 6 dat[dat$study == 6,] blsplit(V, dat$study, round, 4)$`6` ### examine data and var-cov matrix for study 17 dat[dat$study == 17,] blsplit(V, dat$study, round, 4)$`17` ############################################################################ ### copy data into 'dat' and examine the first 12 rows dat <- dat.craft2003 head(dat, 12) ### restructure data from study 1 into a correlation matrix R1 <- diag(4) R1[lower.tri(R1)] <- dat$ri[dat$study == 1] R1[upper.tri(R1)] <- t(R1)[upper.tri(R1)] rownames(R1) <- colnames(R1) <- c("perf", "acog", "asom", "conf") R1 ### restructure data from study 3 into a correlation matrix R3 <- diag(4) R3[lower.tri(R3)] <- dat$ri[dat$study == 3] R3[upper.tri(R3)] <- t(R3)[upper.tri(R3)] rownames(R3) <- colnames(R3) <- c("perf", "acog", "asom", "conf") R3 ### an example where a correlation matrix is passed to rcalc() rcalc(R1, ni=142) ### an example where a list of correlation matrices is passed to rcalc() tmp <- rcalc(list("1"=R1,"3"=R3), ni=c(142,37)) V <- tmp$V dat <- tmp$dat ### examine data and var-cov matrix for study 1 dat[dat$id == 1,] blsplit(V, dat$id, round, 4)$`1` ### examine data and var-cov matrix for study 3 dat[dat$id == 3,] blsplit(V, dat$id, round, 4)$`3` ############################################################################ } \keyword{datagen} metafor/man/forest.cumul.rma.Rd0000644000176200001440000002234715173343621016172 0ustar liggesusers\name{forest.cumul.rma} \alias{forest.cumul.rma} \title{Forest Plots (Method for 'cumul.rma' Objects)} \description{ Function to create forest plots for objects of class \code{"cumul.rma"}. } \usage{ \method{forest}{cumul.rma}(x, annotate=TRUE, header=TRUE, xlim, alim, olim, ylim, at, steps=5, refline=0, digits=2L, width, xlab, ilab, ilab.lab, ilab.xpos, ilab.pos, transf, atransf, targs, rows, efac=1, pch, psize, col, shade, colshade, lty, fonts, cex, cex.lab, cex.axis, \dots) } \arguments{ \item{x}{an object of class \code{"cumul.rma"} obtained with \code{\link{cumul}}.} \item{annotate}{logical to specify whether annotations should be added to the plot (the default is \code{TRUE}).} \item{header}{logical to specify whether column headings should be added to the plot (the default is \code{TRUE}). Can also be a character vector to specify the left and right headings (or only the left one).} \item{xlim}{horizontal limits of the plot region. If unspecified, the function sets the horizontal plot limits to some sensible values.} \item{alim}{the x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{olim}{argument to specify observation/outcome limits. If unspecified, no limits are used.} \item{ylim}{the y-axis limits of the plot. If unspecified, the function sets the y-axis limits to some sensible values. Can also be a single value to set the lower bound (while the upper bound is still set automatically).} \item{at}{position of the x-axis tick marks and corresponding labels. If unspecified, the function sets the tick mark positions/labels to some sensible values.} \item{steps}{the number of tick marks for the x-axis (the default is 5). Ignored when the positions are specified via the \code{at} argument.} \item{refline}{numeric value to specify the location of the vertical \sQuote{reference} line (the default is 0). The line can be suppressed by setting this argument to \code{NA}. Can also be a vector to add multiple lines.} \item{digits}{integer to specify the number of decimal places to which the annotations and tick mark labels of the x-axis should be rounded (the default is \code{2L}). Can also be a vector of two integers, the first to specify the number of decimal places for the annotations, the second for the x-axis labels. When specifying an integer (e.g., \code{2L}), trailing zeros after the decimal mark are dropped for the x-axis labels. When specifying a numeric value (e.g., \code{2}), trailing zeros are retained.} \item{width}{optional integer to manually adjust the width of the columns for the annotations (either a single integer or a vector of the same length as the number of annotation columns).} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title. Can also be a vector of three/two values (to also/only add labels at the end points of the x-axis limits).} \item{ilab}{optional vector, matrix, or data frame providing additional information about the studies that should be added to the plot.} \item{ilab.lab}{optional character vector with (column) labels for the variable(s) given via \code{ilab}.} \item{ilab.xpos}{optional numeric vector to specify the horizontal position(s) of the variable(s) given via \code{ilab}.} \item{ilab.pos}{integer(s) (either 1, 2, 3, or 4) to specify the alignment of the variable(s) given via \code{ilab} (2 means right, 4 means left aligned). If unspecified, the default is to center the values.} \item{transf}{optional argument to specify a function to transform the estimates and confidence interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{atransf}{optional argument to specify a function to transform the x-axis labels and annotations (e.g., \code{atransf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{rows}{optional vector to specify the rows (or more generally, the positions) for plotting the outcomes. Can also be a single value to specify the row of the first outcome (the remaining outcomes are then plotted below this starting row).} \item{efac}{vertical expansion factor for confidence interval limits and arrows. The default value of 1 should usually work fine. Can also be a vector of two numbers, the first for CI limits, the second for arrows.} \item{pch}{plotting symbol to use for the estimates. By default, a filled square is used. See \code{\link{points}} for other options. Can also be a vector of values.} \item{psize}{numeric value to specify the point sizes for the estimates (the default is 1). Can also be a vector of values.} \item{col}{optional character string to specify the color of the estimates. Can also be a vector.} \item{shade}{optional character string or a (logical or numeric) vector for shading rows of the plot.} \item{colshade}{optional argument to specify the color for the shading.} \item{lty}{optional argument to specify the line type for the confidence intervals. If unspecified, the function sets this to \code{"solid"} by default.} \item{fonts}{optional character string to specify the font for the study labels, annotations, and the extra information (if specified via \code{ilab}). If unspecified, the default font is used.} \item{cex}{optional character and symbol expansion factor. If unspecified, the function sets this to a sensible value.} \item{cex.lab}{optional expansion factor for the x-axis title. If unspecified, the function sets this to a sensible value.} \item{cex.axis}{optional expansion factor for the x-axis labels. If unspecified, the function sets this to a sensible value.} \item{\dots}{other arguments.} } \details{ The plot shows the estimated pooled outcome with corresponding confidence interval bounds as one study at a time is added to the analysis. See \code{\link{forest.default}} and \code{\link{forest.rma}} for further details on the purpose of the various arguments. } \section{Note}{ The function sets some sensible values for the optional arguments, but it may be necessary to adjust these in certain circumstances. The function actually returns some information about the chosen values invisibly. Printing this information is useful as a starting point to customize the plot. If the number of studies is quite large, the labels, annotations, and symbols may become quite small and impossible to read. Stretching the plot window vertically may then provide a more readable figure (one should call the function again after adjusting the window size, so that the label/symbol sizes can be properly adjusted). Also, the \code{cex}, \code{cex.lab}, and \code{cex.axis} arguments are then useful to adjust the symbol and text sizes. If the outcome measure used for creating the plot is bounded (e.g., correlations are bounded between -1 and +1, proportions are bounded between 0 and 1), one can use the \code{olim} argument to enforce those limits (the observed outcomes and confidence intervals cannot exceed those bounds then). The \code{lty} argument can also be a vector of two elements, the first for specifying the line type of the individual CIs (\code{"solid"} by default), the second for the line type of the horizontal line that is automatically added to the plot (\code{"solid"} by default; set to \code{"blank"} to remove it). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Chalmers, T. C., & Lau, J. (1993). Meta-analytic stimulus for changes in clinical trials. \emph{Statistical Methods in Medical Research}, \bold{2}(2), 161--172. \verb{https://doi.org/10.1177/096228029300200204} Lau, J., Schmid, C. H., & Chalmers, T. C. (1995). Cumulative meta-analysis of clinical trials builds evidence for exemplary medical care. \emph{Journal of Clinical Epidemiology}, \bold{48}(1), 45--57. \verb{https://doi.org/10.1016/0895-4356(94)00106-z} Lewis, S., & Clarke, M. (2001). Forest plots: Trying to see the wood and the trees. \emph{British Medical Journal}, \bold{322}(7300), 1479--1480. \verb{https://doi.org/10.1136/bmj.322.7300.1479} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest}} for an overview of the various \code{forest} functions. \code{\link{cumul}} for the function to create \code{cumul.rma} objects. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### fit random-effects model res <- rma(yi, vi, data=dat) ### draw cumulative forest plots x <- cumul(res, order=year) forest(x) forest(x, xlim=c(-4,2.5), alim=c(-2,1), steps=7) ### meta-analysis of the (log) risk ratios using the Mantel-Haenszel method res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### draw cumulative forest plot x <- cumul(res, order=year) forest(x, xlim=c(-4,2.5), alim=c(-2,1), steps=7) } \keyword{hplot} metafor/man/emmprep.Rd0000644000176200001440000002001415173343621014420 0ustar liggesusers\name{emmprep} \alias{emmprep} \title{Create a Reference Grid for the 'emmeans' Function} \description{ Function to create a reference grid for use with the \code{\link[emmeans]{emmeans}} function from the package of the same name. \loadmathjax } \usage{ emmprep(x, verbose=FALSE, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{verbose}{logical to specify whether information on some (extracted) settings should be printed when creating the reference grid (the default is \code{FALSE}).} \item{\dots}{other arguments that will be passed on to the \code{\link[emmeans]{qdrg}} function.} } \details{ The \href{https://cran.r-project.org/package=emmeans}{emmeans} package is a popular package that facilitates the computation of 'estimated marginal means'. The function is a wrapper around the \code{\link[emmeans]{qdrg}} function from the \code{emmeans} package to make \code{"rma"} objects compatible with the latter. Unless one needs to pass additional arguments to the \code{\link[emmeans]{qdrg}} function, one simply applies this function to the \code{"rma"} object and then the \code{\link[emmeans]{emmeans}} function (or one of the other functions that can be applied to \code{"emmGrid"} objects) to the resulting object to obtain the desired estimated marginal means. } \value{ An \code{"emmGrid"} object as created by the \code{\link[emmeans]{qdrg}} function from the \code{emmeans} package. The resulting object will typically be used in combination with the \code{\link[emmeans]{emmeans}} function. } \note{ When creating the reference grid, the function extracts the degrees of freedom for tests/confidence intervals from the model object (if the model was fitted with \code{test="t"}, \code{test="knha"}, \code{test="hksj"}, or \code{test="adhoc"}; otherwise the degrees of freedom are infinity). In some cases, there is not just a single value for the degrees of freedom, but an entire vector (e.g., for models fitted with \code{\link{rma.mv}}). In this case, the smallest value will be used (as a conservative option). One can set a different/custom value for the degrees of freedom with \code{emmprep(..., df=value)}. When the model object contains information about the outcome measure used in the analysis (which should be the case if the observed outcomes were computed with \code{\link{escalc}} or if the \code{measure} argument was set when fitting the model), then information about the appropriate back-transformation (if available) is stored as part of the returned object. If so, the back-transformation is automatically applied when calling \code{\link[emmeans]{emmeans}} with \code{type="response"}. The function also tries to extract the estimated value of \mjseqn{\tau^2} (or more precisely, its square root) from the model object (when the model is a random/mixed-effects model). This value is only needed when computing prediction intervals (i.e., when \code{interval="predict"} in \code{\link[emmeans]{predict.emmGrid}}) or when applying the bias adjustment in the back-transformation (i.e., when \code{bias.adjust=TRUE} in \code{\link[emmeans]{summary.emmGrid}}). For some models (e.g., those fitted with \code{\link{rma.mv}}), it is not possible to automatically extract the estimate. In this case, one can manually set the value with \code{emmprep(..., sigma=value)} (note: the argument is called \code{sigma}, following the conventions of \code{\link[emmeans]{summary.emmGrid}} and one must supply the square root of the \mjseqn{\tau^2} estimate). By default, the reference grid is created based on the data used for fitting the original model (which is typically the sensible thing to do). One can specify a different dataset with \code{emmprep(..., data=obj)}, where \code{obj} must be a data frame that contains the same variables as used in the original model fitted. If the model fitted involved redundant predictors that were dropped from the model (due to \sQuote{rank deficiencies}), then the function cannot be used. In this case, one should remove any redundancies in the model fitted before using this function. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit meta-regression model with absolute latitude as predictor res <- rma(yi, vi, mods = ~ ablat, data=dat) res ### create reference grid sav <- emmprep(res, verbose=TRUE) ### estimated marginal mean (back-transformed to the risk ratio scale) if (require(emmeans)) emmeans(sav, specs="1", type="response") ### same as the predicted effect at the mean absolute latitude predict(res, newmods = mean(model.matrix(res, asdf=TRUE)$ablat), transf=exp, digits=3) ### fit meta-regression model with allocation factor res <- rma(yi, vi, mods = ~ alloc, data=dat) res ### create reference grid sav <- emmprep(res) ### estimated marginal mean using proportional cell weighting if (require(emmeans)) emmeans(sav, specs="1", type="response", weights="proportional") ### estimated marginal mean using equal cell weighting (this is actually the default) if (require(emmeans)) emmeans(sav, specs="1", type="response", weights="equal") ### same as the predicted effect using cell proportions as observed in the data ### or using equal proportions for the three groups predict(res, newmods = colMeans(model.matrix(res))[-1], transf=exp, digits=3) predict(res, newmods = c(1/3,1/3), transf=exp, digits=3) ### fit meta-regression model with absolute latitude and allocation as predictors res <- rma(yi, vi, mods = ~ ablat + alloc, data=dat) res ### create reference grid sav <- emmprep(res) ### estimated marginal mean using equal cell weighting if (require(emmeans)) emmeans(sav, specs="1", type="response") ### same as the predicted effect at the mean absolute latitude and using equal proportions ### for the allocation factor predict(res, newmods = c(mean(model.matrix(res, asdf=TRUE)$ablat),1/3,1/3), transf=exp, digits=3) ### create reference grid with ablat set equal to 10, 30, and 50 degrees sav <- emmprep(res, at=list(ablat=c(10,30,50))) ### estimated marginal means at the three ablat values if (require(emmeans)) emmeans(sav, specs="1", by="ablat", type="response") ### same as the predicted effect at the chosen absolute latitude values and using equal ### proportions for the allocation factor predict(res, newmods = cbind(c(10,30,50),1/3,1/3), transf=exp, digits=3) ############################################################################ ### copy data into 'dat' and examine data dat <- dat.mcdaniel1994 head(dat) ### calculate r-to-z transformed correlations and corresponding sampling variances dat <- escalc(measure="ZCOR", ri=ri, ni=ni, data=dat) ### mixed-effects model with interview type as factor res <- rma(yi, vi, mods = ~ factor(type), data=dat, test="knha") res ### create reference grid sav <- emmprep(res, verbose=TRUE) ### estimated marginal mean (back-transformed to the correlation scale) if (require(emmeans)) emmeans(sav, specs="1", type="response") ### same as the predicted correlation using equal cell proportions predict(res, newmods = c(1/3,1/3), transf=transf.ztor, digits=3) ### estimated marginal means for the three interview types if (require(emmeans)) emmeans(sav, specs="type", type="response") ### same as the predicted correlations predict(res, newmods = rbind(c(0,0), c(1,0), c(0,1)), transf=transf.ztor, digits=3) ### illustrate use of the 'df' and 'sigma' arguments res <- rma.mv(yi, vi, mods = ~ factor(type), random = ~ 1 | study, data=dat, test="t", dfs="contain") res ### create reference grid sav <- emmprep(res, verbose=TRUE, df=154, sigma=0.1681) ### estimated marginal mean (back-transformed to the correlation scale) if (require(emmeans)) emmeans(sav, specs="1", type="response") } \keyword{manip} metafor/man/vcov.rma.Rd0000644000176200001440000000551015173343621014512 0ustar liggesusers\name{vcov.rma} \alias{vcov} \alias{vcov.rma} \title{Extract Various Types of Variance-Covariance Matrices from 'rma' Objects} \description{ Function to extract various types of variance-covariance matrices from objects of class \code{"rma"}. By default, the variance-covariance matrix of the fixed effects is returned. \loadmathjax } \usage{ \method{vcov}{rma}(object, type="fixed", \dots) } \arguments{ \item{object}{an object of class \code{"rma"}.} \item{type}{character string to specify the type of variance-covariance matrix to return: \code{type="fixed"} returns the variance-covariance matrix of the fixed effects (the default), \code{type="obs"} returns the marginal variance-covariance matrix of the observed effect sizes or outcomes, \code{type="fitted"} returns the variance-covariance matrix of the fitted values, \code{type="resid"} returns the variance-covariance matrix of the residuals.} \item{\dots}{other arguments.} } \details{ Note that \code{type="obs"} currently only works for object of class \code{"rma.uni"} and \code{"rma.mv"}. For objects of class \code{"rma.uni"}, the marginal variance-covariance matrix of the observed effect sizes or outcomes is a diagonal matrix with \mjeqn{\hat{\tau}^2 + v_i}{\tau^2 + v_i} along the diagonal, where \mjeqn{\hat{\tau}^2}{\tau^2} is the estimated amount of (residual) heterogeneity (set to 0 in equal-effects models) and \mjseqn{v_i} is the sampling variance of the \mjeqn{i\text{th}}{ith} study. For objects of class \code{"rma.mv"}, the structure can be more complex and depends on the random effects included in the model. } \value{ A matrix corresponding to the requested variance-covariance matrix. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}}, \code{\link{rma.mh}}, \code{\link{rma.peto}}, \code{\link{rma.glmm}}, and \code{\link{rma.mv}} for functions to fit models for which the various types of variance-covariance matrices can be extracted. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### fit mixed-effects model with absolute latitude and publication year as moderators res <- rma(yi, vi, mods = ~ ablat + year, data=dat) ### var-cov matrix of the fixed effects (i.e., the model coefficients) vcov(res) ### marginal var-cov matrix of the observed log risk ratios round(vcov(res, type="obs"), 3) ### var-cov matrix of the fitted values round(vcov(res, type="fitted"), 3) ### var-cov matrix of the residuals round(vcov(res, type="resid"), 3) } \keyword{models} metafor/man/predict.matreg.Rd0000644000176200001440000001346415173343621015676 0ustar liggesusers\name{predict.matreg} \alias{predict.matreg} \title{Predicted Values for 'matreg' Objects} \description{ The function computes predicted values, corresponding standard errors, and confidence intervals for objects of class \code{"matreg"}. \loadmathjax } \usage{ \method{predict}{matreg}(object, newmods, intercept, addx=FALSE, level, adjust=FALSE, digits, transf, targs, vcov=FALSE, \dots) } \arguments{ \item{object}{an object of class \code{"matreg"}.} \item{newmods}{vector or matrix to specify the values of the moderator/predictor values for which the predicted values should be calculated. See \sQuote{Details}.} \item{intercept}{logical to specify whether the intercept should be included when calculating the predicted values for \code{newmods}. If unspecified, the intercept is automatically added when the model also included an intercept.} \item{addx}{logical to specify whether the values of the moderator/predictor variables should be added to the returned object. See \sQuote{Examples}.} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (see \link[=misc-options]{here} for details). If unspecified, the default is to take the value from the object.} \item{adjust}{logical to specify whether the width of confidence intervals should be adjusted using a Bonferroni correction (the default is \code{FALSE}).} \item{digits}{optional integer to specify the number of decimal places to which the printed results should be rounded.} \item{transf}{optional argument to specify a function to transform the predicted values and interval bounds (e.g., \code{transf=exp}; see also \link{transf}). If unspecified, no transformation is used.} \item{targs}{optional arguments needed by the function specified under \code{transf}.} \item{vcov}{logical to specify whether the variance-covariance matrix of the predicted values should also be returned (the default is \code{FALSE}).} \item{\dots}{other arguments.} } \details{ For models including \mjseqn{p'} moderator/predictor variables, new moderator/predictor values (for \mjeqn{k_{new}}{k_new} hypothetical new studies/cases) must be specified by setting \code{newmods} equal to a \mjeqn{k_{new} \times p'}{k_new x p'} matrix with the corresponding new moderator/predictor values (if \code{newmods} is a vector, then only a single predicted value is computed unless the model only includes a single moderator/predictor, in which case predicted values corresponding to all the vector values are computed). If the model object includes an intercept (so that the model has \mjseqn{p' + 1} coefficients), then it will be automatically added to \code{newmods} unless one sets \code{intercept=FALSE}; alternatively, if \code{newmods} is a \mjeqn{k_{new} \times (p'+1)}{k_new x (p'+1)} matrix, then the \code{intercept} argument is ignored and the first column of the matrix determines whether the intercept is included when computing the predicted values or not. If the matrix specified via \code{newmods} has row names, then these are used to label the predicted values in the output. When computing multiple predicted values, one can set \code{adjust=TRUE} to obtain confidence intervals whose width is adjusted based on a Bonferroni correction (e.g., instead of 95\% CIs, the function provides (100-5/\mjeqn{k_{new}}{k_new})\% CIs, where \mjeqn{k_{new}}{k_new} denotes the number of predicted values computed). } \value{ An object of class \code{c("predict.matreg","list.rma")}. The object is a list containing the following components: \item{pred}{predicted value(s).} \item{se}{corresponding standard error(s).} \item{ci.lb}{lower bound of the confidence interval(s).} \item{ci.ub}{upper bound of the confidence interval(s).} \item{X}{the moderator/predictor value(s) used to calculate the predicted values (only when \code{addx=TRUE}).} \item{\dots}{some additional elements/values.} If \code{vcov=TRUE}, then the returned object is a list with the first element equal to the one as described above and the second element equal to the variance-covariance matrix of the predicted values. The object is formatted and printed with the \code{\link[=print.list.rma]{print}} function. To format the results as a data frame, one can use the \code{\link[=as.data.frame.list.rma]{as.data.frame}} function. } \note{ Under the \sQuote{Regular \mjseqn{R} Matrix} case (see \code{\link{matreg}}), confidence intervals are constructed based on the critical values from a t-distribution with \mjseqn{k-p} degrees of freedom, where \mjseqn{p} denotes the total number of coefficients (i.e., including the intercept term if the model includes one). Otherwise, critical values from a standard normal distribution (i.e., \mjeqn{\pm 1.96}{±1.96} for \code{level=95}) are used. When using the \code{transf} option, the transformation is applied to the predicted values and the corresponding interval bounds. The standard errors are omitted from the printed output. Also, \code{vcov=TRUE} is ignored when using the \code{transf} option. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### fit a regression model with lm() to the 'mtcars' dataset res <- lm(mpg ~ hp + wt + am, data=mtcars) ### obtain a predicted value predict(res, newdata=data.frame(hp=120, wt=4.2, am=1), interval="confidence") ### covariance matrix of the dataset S <- cov(mtcars) ### fit the same regression model using matreg() res <- matreg(mpg ~ hp + wt + am, R=S, cov=TRUE, means=colMeans(mtcars), n=nrow(mtcars)) ### obtain the same predicted value predict(res, newmods=c(hp=120, wt=4.2, am=1)) } \keyword{models} metafor/man/forest.Rd0000644000176200001440000000323515173343621014263 0ustar liggesusers\name{forest} \alias{forest} \title{Forest Plots} \description{ Function to create forest plots. } \usage{ forest(x, \dots) } \arguments{ \item{x}{either an object of class \code{"rma"}, a vector with the observed effect sizes or outcomes, or an object of class \code{"cumul.rma"}. See \sQuote{Details}.} \item{\dots}{other arguments.} } \details{ Currently, methods exist for three types of situations. In the first case, object \code{x} is a fitted model object coming from the \code{\link{rma.uni}}, \code{\link{rma.mh}}, or \code{\link{rma.peto}} functions. The corresponding method is then \code{\link{forest.rma}}. Alternatively, object \code{x} can be a vector with the observed effect sizes or outcomes. The corresponding method is then \code{\link{forest.default}}. Finally, object \code{x} can be an object coming from the \code{\link{cumul.rma.uni}}, \code{\link{cumul.rma.mh}}, or \code{\link{cumul.rma.peto}} functions. The corresponding method is then \code{\link{forest.cumul.rma}}. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Lewis, S., & Clarke, M. (2001). Forest plots: Trying to see the wood and the trees. \emph{British Medical Journal}, \bold{322}(7300), 1479--1480. \verb{https://doi.org/10.1136/bmj.322.7300.1479} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest.rma}}, \code{\link{forest.default}}, and \code{\link{forest.cumul.rma}} for the specific method functions. } \keyword{hplot} metafor/man/methods.anova.rma.Rd0000644000176200001440000000307315173343621016305 0ustar liggesusers\name{methods.anova.rma} \alias{methods.anova.rma} \alias{as.data.frame.anova.rma} \alias{as.data.frame.list.anova.rma} \title{Methods for 'anova.rma' Objects} \description{ Methods for objects of class \code{"anova.rma"} and \code{"list.anova.rma"}. } \usage{ \method{as.data.frame}{anova.rma}(x, \dots) \method{as.data.frame}{list.anova.rma}(x, \dots) } \arguments{ \item{x}{an object of class \code{"anova.rma"} or \code{"list.anova.rma"}.} \item{\dots}{other arguments.} } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### copy data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) ### fit mixed-effects meta-regression model res <- rma(yi, vi, mods = ~ alloc + ablat, data=dat) ### test the allocation factor sav <- anova(res, btt="alloc") sav ### turn object into a regular data frame as.data.frame(sav) ### test the contrast between levels random and systematic sav <- anova(res, X=c(0,1,-1,0)) sav ### turn object into a regular data frame as.data.frame(sav) ### fit random-effects model res0 <- rma(yi, vi, data=dat) ### LRT comparing the two models sav <- anova(res, res0, refit=TRUE) sav ### turn object into a regular data frame as.data.frame(sav) } \keyword{internal} metafor/man/methods.vif.rma.Rd0000644000176200001440000000242015173343621015760 0ustar liggesusers\name{methods.vif.rma} \alias{methods.vif.rma} \alias{as.data.frame.vif.rma} \title{Methods for 'vif.rma' Objects} \description{ Methods for objects of class \code{"vif.rma"}. } \usage{ \method{as.data.frame}{vif.rma}(x, \dots) } \arguments{ \item{x}{an object of class \code{"vif.rma"}.} \item{\dots}{other arguments.} } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \examples{ ### copy data into 'dat' dat <- dat.bcg ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat) ### fit mixed-effects meta-regression model res <- rma(yi, vi, mods = ~ ablat + year + alloc, data=dat) ### get variance inflation factors for all individual coefficients sav <- vif(res) sav ### turn object into a regular data frame as.data.frame(sav) ### get VIFs for ablat and year and the generalized VIF for alloc sav <- vif(res, btt=list("ablat","alloc","year")) sav ### turn object into a regular data frame as.data.frame(sav) } \keyword{internal} metafor/man/conv.fivenum.Rd0000644000176200001440000004605515173343621015405 0ustar liggesusers\name{conv.fivenum} \alias{conv.fivenum} \title{Estimate Means and Standard Deviations from Five-Number Summary Values} \description{ Function to estimate means and standard deviations from five-number summary values. } \usage{ conv.fivenum(min, q1, median, q3, max, n, data, include, method="default", dist="norm", transf=TRUE, test=TRUE, var.names=c("mean","sd"), append=TRUE, replace="ifna", \dots) } \arguments{ \item{min}{vector with the minimum values.} \item{q1}{vector with the lower/first quartile values.} \item{median}{vector with the median values.} \item{q3}{vector with the upper/third quartile values.} \item{max}{vector with the maximum values.} \item{n}{vector with the sample sizes.} \item{data}{optional data frame containing the variables given to the arguments above.} \item{include}{optional (logical or numeric) vector to specify the subset of studies for which means and standard deviations should be estimated.} \item{method}{character string to specify the method to use. Either \code{"default"} (same as \code{"luo/wan/shi"} which is the current default), \code{"qe"}, \code{"bc"}, \code{"mln"}, or \code{"blue"}. Can be abbreviated. See \sQuote{Details}.} \item{dist}{character string to specify the assumed distribution for the underlying data (either \code{"norm"} for a normal distribution or \code{"lnorm"} for a log-normal distribution). Can also be a string vector if different distributions are assumed for different studies. Only relevant when \code{method="default"}.} \item{transf}{logical to specify whether the estimated means and standard deviations of the log-transformed data should be back-transformed as described by Shi et al. (2020b) (the default is \code{TRUE}). Only relevant when \code{dist="lnorm"} and when \code{method="default"}.} \item{test}{logical to specify whether a study should be excluded from the estimation if the test for skewness is significant (the default is \code{TRUE}, but whether this is applicable depends on the method; see \sQuote{Details}).} \item{var.names}{character vector with two elements to specify the name of the variable for the estimated means and the name of the variable for the estimated standard deviations (the defaults are \code{"mean"} and \code{"sd"}).} \item{append}{logical to specify whether the data frame provided via the \code{data} argument should be returned together with the estimated values (the default is \code{TRUE}).} \item{replace}{character string or logical to specify how values in \code{var.names} should be replaced (only relevant when using the \code{data} argument and if variables in \code{var.names} already exist in the data frame). See the \sQuote{Value} section for more details.} \item{\dots}{other arguments.} } \details{ Various effect size measures require means and standard deviations (SDs) as input (e.g., raw or standardized mean differences, ratios of means / response ratios; see \code{\link{escalc}} for further details). For some studies, authors may not report means and SDs, but other statistics, such as the so-called \sQuote{five-number summary}, consisting of the minimum, lower/first quartile, median, upper/third quartile, and the maximum of the sample values (plus the sample sizes). Occasionally, only a subset of these values are reported. The present function can be used to estimate means and standard deviations from five-number summary values based on various methods described in the literature (Bland, 2015; Cai et al. 2021; Hozo et al., 2005; Luo et al., 2016; McGrath et al., 2020; Shi et al., 2020a; Walter & Yao, 2007; Wan et al., 2014; Yang et al., 2022). When \code{method="default"} (which is the same as \code{"luo/wan/shi"}), the following methods are used: \subsection{Case 1: Min, Median, Max}{ In case only the minimum, median, and maximum is available for a study (plus the sample size), then the function uses the method by Luo et al. (2016), equation (7), to estimate the mean and the method by Wan et al. (2014), equation (9), to estimate the SD. } \subsection{Case 2: Q1, Median, Q3}{ In case only the lower/first quartile, median, and upper/third quartile is available for a study (plus the sample size), then the function uses the method by Luo et al. (2016), equation (11), to estimate the mean and the method by Wan et al. (2014), equation (16), to estimate the SD. } \subsection{Case 3: Min, Q1, Median, Q3, Max}{ In case the full five-number summary is available for a study (plus the sample size), then the function uses the method by Luo et al. (2016), equation (15), to estimate the mean and the method by Shi et al. (2020a), equation (10), to estimate the SD. } --------- The median is not actually needed in the methods by Wan et al. (2014) and Shi et al. (2020a) and hence it is possible to estimate the SD even if the median is unavailable (this can be useful if a study reports the mean directly, but instead of the SD, it reports the minimum/maximum and/or first/third quartile values). Note that the sample size must be at least 5 to apply these methods. Studies where the sample size is smaller are not included in the estimation. The function also checks that \code{min <= q1 <= median <= q3 <= max} and throws an error if any studies are found where this is not the case. \subsection{Test for Skewness}{ The methods described above were derived under the assumption that the data are normally distributed. Testing this assumption would require access to the raw data, but based on the three cases above, Shi et al. (2023) derived tests for skewness that only require the reported quantile values and the sample sizes. These tests are automatically carried out. When \code{test=TRUE} (which is the default), a study is automatically excluded from the estimation if the test is significant. If all studies should be included, set \code{test=FALSE}, but note that the accuracy of the methods will tend to be poorer when the data come from an apparently skewed (and hence non-normal) distribution. } \subsection{Log-Normal Distribution}{ When setting \code{dist="lnorm"}, the raw data are assumed to follow a log-normal distribution. In this case, the methods as described by Shi et al. (2020b) are used to estimate the mean and SD of the log transformed data for the three cases above. When \code{transf=TRUE} (the default), the estimated mean and SD of the log transformed data are back-transformed to the estimated mean and SD of the raw data (using the bias-corrected back-transformation as described by Shi et al., 2020b). Note that the test for skewness is also carried out when \code{dist="lnorm"}, but now testing if the log transformed data exhibit skewness. } \subsection{Alternative Methods}{ As an alternative to the methods above, one can make use of the methods implemented in the \href{https://cran.r-project.org/package=estmeansd}{estmeansd} package to estimate means and SDs based on the three cases above. Available are the quantile estimation method (\code{method="qe"}; using the \code{\link[estmeansd]{qe.mean.sd}} function; McGrath et al., 2020), the Box-Cox method (\code{method="bc"}; using the \code{\link[estmeansd]{bc.mean.sd}} function; McGrath et al., 2020), and the method for unknown non-normal distributions (\code{method="mln"}; using the \code{\link[estmeansd]{mln.mean.sd}} function; Cai et al. 2021). The advantage of these methods is that they do not assume that the data underlying the reported values are normally distributed (and hence the \code{test} argument is ignored), but they can only be used when the values are positive (except for the quantile estimation method, which can also be used when one or more of the values are negative, but in this case the method does assume that the data are normally distributed and hence the test for skewness is applied when \code{test=TRUE}). Note that all of these methods may struggle to provide sensible estimates when some of the values are equal to each other (which can happen when the data include a lot of ties and/or the reported values are rounded). Also, the Box-Cox method and the method for unknown non-normal distributions involve simulated data and hence results will slightly change on repeated runs. Setting the seed of the random number generator (with \code{\link{set.seed}}) ensures reproducibility. Finally, by setting \code{method="blue"}, one can make use of the \code{\link[metaBLUE]{BLUE_s}} function from the \href{https://cran.r-project.org/package=metaBLUE}{metaBLUE} package to estimate means and SDs based on the three cases above (Yang et al., 2022). The method assumes that the underlying data are normally distributed (and hence the test for skewness is applied when \code{test=TRUE}). } } \value{ If the \code{data} argument was not specified or \code{append=FALSE}, a data frame with two variables called \code{var.names[1]} (by default \code{"mean"}) and \code{var.names[2]} (by default \code{"sd"}) with the estimated means and SDs. If \code{data} was specified and \code{append=TRUE}, then the original data frame is returned. If \code{var.names[1]} is a variable in \code{data} and \code{replace="ifna"} (or \code{replace=FALSE}), then only missing values in this variable are replaced with the estimated means (where possible) and otherwise a new variable called \code{var.names[1]} is added to the data frame. Similarly, if \code{var.names[2]} is a variable in \code{data} and \code{replace="ifna"} (or \code{replace=FALSE}), then only missing values in this variable are replaced with the estimated SDs (where possible) and otherwise a new variable called \code{var.names[2]} is added to the data frame. If \code{replace="all"} (or \code{replace=TRUE}), then all values in \code{var.names[1]} and \code{var.names[2]} where an estimated mean and SD can be computed are replaced, even for cases where the value in \code{var.names[1]} and \code{var.names[2]} is not missing. When missing values in \code{var.names[1]} are replaced, an attribute called \code{"est"} is added to the variable, which is a logical vector that is \code{TRUE} for values that were estimated. The same is done when missing values in \code{var.names[2]} are replaced. Attributes called \code{"tval"}, \code{"crit"}, \code{"sig"}, and \code{"dist"} are also added to \code{var.names[1]} corresponding to the test statistic and critical value for the test for skewness, whether the test was significant, and the assumed distribution (for the quantile estimation method, this is the distribution that provides the best fit to the given values). } \note{ \bold{A word of caution:} Under the given distributional assumptions, the estimated means and SDs are approximately unbiased and hence so are any effect size measures computed based on them (assuming a measure is unbiased to begin with when computed with directly reported means and SDs). However, the estimated means and SDs are less precise (i.e., are more variable) than directly reported means and SDs (especially under case 1) and hence computing the sampling variance of a measure with equations that assume that directly reported means and SDs are available will tend to underestimate the actual sampling variance of the measure, giving too much weight to estimates computed based on estimated means and SDs (see also McGrath et al., 2023). It would therefore be prudent to treat effect size estimates computed from estimated means and SDs with caution (e.g., by examining in a moderator analysis whether there are systematic differences between studies directly reporting means and SDs and those where the means and SDs needed to be estimated and/or as part of a sensitivity analysis). McGrath et al. (2023) also suggest to use bootstrapping to estimate the sampling variance of effect size measures computed based on estimated means and SDs. See also the \href{https://cran.r-project.org/package=metamedian}{metamedian} package for this purpose. Also note that the development of methods for estimating means and SDs based on five-number summary values is an active area of research. Currently, when \code{method="default"}, then this is identical to \code{method="luo/wan/shi"}, but this might change in the future. For reproducibility, it is therefore recommended to explicitly set \code{method="luo/wan/shi"} (or one of the other methods) when running this function. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Bland, M. (2015). Estimating mean and standard deviation from the sample size, three quartiles, minimum, and maximum. \emph{International Journal of Statistics in Medical Research}, \bold{4}(1), 57--64. \verb{https://doi.org/10.6000/1929-6029.2015.04.01.6} Cai, S., Zhou, J., & Pan, J. (2021). Estimating the sample mean and standard deviation from order statistics and sample size in meta-analysis. \emph{Statistical Methods in Medical Research}, \bold{30}(12), 2701--2719. \verb{https://doi.org/10.1177/09622802211047348} Hozo, S. P., Djulbegovic, B. & Hozo, I. (2005). Estimating the mean and variance from the median, range, and the size of a sample. \emph{BMC Medical Research Methodology}, \bold{5}, 13. \verb{https://doi.org/10.1186/1471-2288-5-13} Luo, D., Wan, X., Liu, J. & Tong, T. (2016). Optimally estimating the sample mean from the sample size, median, mid-range, and/or mid-quartile range. \emph{Statistical Methods in Medical Research}, \bold{27}(6), 1785--1805. \verb{https://doi.org/10.1177/0962280216669183} McGrath, S., Zhao, X., Steele, R., Thombs, B. D., Benedetti, A., & the DEPRESsion Screening Data (DEPRESSD) Collaboration (2020). Estimating the sample mean and standard deviation from commonly reported quantiles in meta-analysis. \emph{Statistical Methods in Medical Research}, \bold{29}(9), 2520--2537. \verb{https://doi.org/10.1177/0962280219889080} McGrath, S., Katzenschlager, S., Zimmer, A. J., Seitel, A., Steele, R., & Benedetti, A. (2023). Standard error estimation in meta-analysis of studies reporting medians. \emph{Statistical Methods in Medical Research}, \bold{32}(2), 373--388. \verb{https://doi.org/10.1177/09622802221139233} Shi, J., Luo, D., Weng, H., Zeng, X.-T., Lin, L., Chu, H. & Tong, T. (2020a). Optimally estimating the sample standard deviation from the five-number summary. \emph{Research Synthesis Methods}, \bold{11}(5), 641--654. \verb{https://doi.org/https://doi.org/10.1002/jrsm.1429} Shi, J., Tong, T., Wang, Y. & Genton, M. G. (2020b). Estimating the mean and variance from the five-number summary of a log-normal distribution. \emph{Statistics and Its Interface}, \bold{13}(4), 519--531. https://doi.org/10.4310/sii.2020.v13.n4.a9 Shi, J., Luo, D., Wan, X., Liu, Y., Liu, J., Bian, Z. & Tong, T. (2023). Detecting the skewness of data from the five-number summary and its application in meta-analysis. \emph{Statistical Methods in Medical Research}, \bold{32}(7), 1338--1360. \verb{https://doi.org/10.1177/09622802231172043} Walter, S. D. & Yao, X. (2007). Effect sizes can be calculated for studies reporting ranges for outcome variables in systematic reviews. \emph{Journal of Clinical Epidemiology}, \bold{60}(8), 849--852. \verb{https://doi.org/10.1016/j.jclinepi.2006.11.003} Wan, X., Wang, W., Liu, J. & Tong, T. (2014). Estimating the sample mean and standard deviation from the sample size, median, range and/or interquartile range. \emph{BMC Medical Research Methodology}, \bold{14}, 135. \verb{https://doi.org/10.1186/1471-2288-14-135} Yang, X., Hutson, A. D., & Wang, D. (2022). A generalized BLUE approach for combining location and scale information in a meta-analysis. \emph{Journal of Applied Statistics}, \bold{49}(15), 3846--3867. \verb{https://doi.org/10.1080/02664763.2021.1967890} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{escalc}} for a function to compute various effect size measures based on means and standard deviations. } \examples{ # example data frame dat <- data.frame(case=c(1:3,NA), min=c(2,NA,2,NA), q1=c(NA,4,4,NA), median=c(6,6,6,NA), q3=c(NA,10,10,NA), max=c(14,NA,14,NA), mean=c(NA,NA,NA,7.0), sd=c(NA,NA,NA,4.2), n=c(20,20,20,20)) dat # note that study 4 provides the mean and SD directly, while studies 1-3 provide five-number # summary values or a subset thereof (corresponding to cases 1-3 above) # estimate means/SDs (note: existing values in 'mean' and 'sd' are not touched) dat <- conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat) dat # check attributes (none of the tests are significant, so means/SDs are estimated for studies 1-3) dfround(data.frame(attributes(dat$mean)), digits=3) # calculate the log transformed coefficient of variation and corresponding sampling variance dat <- escalc(measure="CVLN", mi=mean, sdi=sd, ni=n, data=dat) dat # fit equal-effects model to the estimates res <- rma(yi, vi, data=dat, method="EE") res # estimated coefficient of variation (with 95\% CI) predict(res, transf=exp, digits=2) ############################################################################ # example data frame dat <- data.frame(case=c(1:3,NA), min=c(2,NA,2,NA), q1=c(NA,4,4,NA), median=c(6,6,6,NA), q3=c(NA,10,10,NA), max=c(14,NA,14,NA), mean=c(NA,NA,NA,7.0), sd=c(NA,NA,NA,4.2), n=c(20,20,20,20)) dat # try out different methods conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat) set.seed(1234) conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat, method="qe") conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat, method="bc") conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat, method="mln") conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat, method="blue") ############################################################################ # example data frame dat <- data.frame(case=c(1:3,NA), min=c(2,NA,2,NA), q1=c(NA,4,4,NA), median=c(6,6,6,NA), q3=c(NA,10,14,NA), max=c(14,NA,20,NA), mean=c(NA,NA,NA,7.0), sd=c(NA,NA,NA,4.2), n=c(20,20,20,20)) dat # for study 3, the third quartile and maximum value suggest that the data have # a right skewed distribution (they are much further away from the median than # the minimum and first quartile) # estimate means/SDs dat <- conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat) dat # note that the mean and SD are not estimated for study 3; this is because the # test for skewness is significant for this study dfround(data.frame(attributes(dat$mean)), digits=3) # estimate means/SDs, but assume that the data for study 3 come from a log-normal distribution # and back-transform the estimated mean/SD of the log-transformed data back to the raw data dat <- conv.fivenum(min=min, q1=q1, median=median, q3=q3, max=max, n=n, data=dat, dist=c("norm","norm","lnorm","norm"), replace="all") dat # this works now because the test for skewness of the log-transformed data is not significant dfround(data.frame(attributes(dat$mean)), digits=3) } \keyword{manip} metafor/man/llplot.Rd0000644000176200001440000001401315173343621014263 0ustar liggesusers\name{llplot} \alias{llplot} \title{Plot of Likelihoods for Individual Studies} \description{ Function to plot the likelihood of a certain parameter corresponding to an effect size or outcome measure given the study data. \loadmathjax } \usage{ llplot(measure, yi, vi, sei, ai, bi, ci, di, n1i, n2i, data, subset, drop00=TRUE, xvals=1000, xlim, ylim, xlab, ylab, scale=TRUE, lty, lwd, col, level=99.99, refline=0, \dots) } \arguments{ \item{measure}{a character string to specify for which effect size or outcome measure the likelihoods should be calculated. See \sQuote{Details} for possible options and how the data should then be specified.} \item{yi}{vector with the observed effect sizes or outcomes.} \item{vi}{vector with the corresponding sampling variances.} \item{sei}{vector with the corresponding standard errors.} \item{ai}{vector to specify the \mjeqn{2 \times 2}{2x2} table frequencies (upper left cell).} \item{bi}{vector to specify the \mjeqn{2 \times 2}{2x2} table frequencies (upper right cell).} \item{ci}{vector to specify the \mjeqn{2 \times 2}{2x2} table frequencies (lower left cell).} \item{di}{vector to specify the \mjeqn{2 \times 2}{2x2} table frequencies (lower right cell).} \item{n1i}{vector to specify the group sizes or row totals (first group/row).} \item{n2i}{vector to specify the group sizes or row totals (second group/row).} \item{data}{optional data frame containing the variables given to the arguments above.} \item{subset}{optional (logical or numeric) vector to specify the subset of studies that should be included in the plot.} \item{drop00}{logical to specify whether studies with no cases (or only cases) in both groups should be dropped. See \sQuote{Details}.} \item{xvals}{integer to specify for how many distinct values the likelihood should be evaluated.} \item{xlim}{x-axis limits. If unspecified, the function sets the x-axis limits to some sensible values.} \item{ylim}{y-axis limits. If unspecified, the function sets the y-axis limits to some sensible values.} \item{xlab}{title for the x-axis. If unspecified, the function sets an appropriate axis title.} \item{ylab}{title for the y-axis. If unspecified, the function sets an appropriate axis title.} \item{scale}{logical to specify whether the likelihood values should be scaled, so that the total area under each curve is (approximately) equal to 1.} \item{lty}{the line types (either a single value or a vector of length \mjseqn{k}). If unspecified, the function sets the line types according to some characteristics of the likelihood function. See \sQuote{Details}.} \item{lwd}{the line widths (either a single value or a vector of length \mjseqn{k}). If unspecified, the function sets the widths according to the sampling variances (so that the line is thicker for more precise studies and vice-versa).} \item{col}{the line colors (either a single value or a vector of length \mjseqn{k}). If unspecified, the function uses various shades of gray according to the sampling variances (so that darker shades are used for more precise studies and vice-versa).} \item{level}{numeric value between 0 and 100 to specify the plotting limits for each likelihood line in terms of the confidence interval (the default is 99.99).} \item{refline}{numeric value to specify the location of the vertical \sQuote{reference} line (the default is 0). The line can be suppressed by setting this argument to \code{NA}.} \item{\dots}{other arguments.} } \details{ At the moment, the function only accepts \code{measure="GEN"} or \code{measure="OR"}. For \code{measure="GEN"}, one must specify arguments \code{yi} for the observed effect sizes or outcomes and \code{vi} for the corresponding sampling variances (instead of specifying \code{vi}, one can specify the standard errors via the \code{sei} argument). The function then plots the likelihood of the true effect size or outcome based on a normal sampling distribution with observed outcome as given by \code{yi} and variance as given by \code{vi} for each study. For \code{measure="OR"}, one must specify arguments \code{ai}, \code{bi}, \code{ci}, and \code{di}, which denote the cell frequencies of the \mjeqn{2 \times 2}{2x2} tables. Alternatively, one can specify \code{ai}, \code{ci}, \code{n1i}, and \code{n2i}. See \code{\link{escalc}} function for more details. The function then plots the likelihood of the true log odds ratio based on the non-central hypergeometric distribution for each \mjeqn{2 \times 2}{2x2} table. Since studies with no cases (or only cases) in both groups have a flat likelihood and are not informative about the odds ratio, they are dropped by default (i.e., \code{drop00=TRUE}) and are hence not drawn (if \code{drop00=FALSE}, these likelihoods are indicated by dotted lines). For studies that have a single zero count, the MLE of the odds ratio is infinite and these likelihoods are indicated by dashed lines. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ van Houwelingen, H. C., Zwinderman, K. H., & Stijnen, T. (1993). A bivariate approach to meta-analysis. \emph{Statistics in Medicine}, \bold{12}(24), 2273--2284. \verb{https://doi.org/10.1002/sim.4780122405} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{rma.uni}} and \code{\link{rma.glmm}} for model fitting functions that are based on corresponding likelihood functions. } \examples{ ### calculate log risk ratios and corresponding sampling variances dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### draw likelihoods llplot(measure="GEN", yi=yi, vi=vi, data=dat, lwd=1, refline=NA, xlim=c(-3,2)) ### create plot (Figure 2 in van Houwelingen, Zwinderman, & Stijnen, 1993) llplot(measure="OR", ai=b.xci, n1i=nci, ci=b.xti, n2i=nti, data=dat.collins1985a, lwd=1, refline=NA, xlim=c(-4,4), drop00=FALSE) } \keyword{hplot} metafor/man/misc-models.Rd0000644000176200001440000003712515173343621015202 0ustar liggesusers\name{misc-models} \alias{misc-models} \alias{misc_models} \title{Fixed-Effects and Random-Effects Models in Meta-Analysis \loadmathjax} \description{ Books and articles about meta-analysis often describe and discuss the difference between the so-called \sQuote{fixed-effects model} and the \sQuote{random-effects model} (e.g., Cooper et al., 2009). The former term is (mostly) avoided throughout the documentation of the \pkg{metafor} package. The term \sQuote{equal-effects model} is used instead, since it more concretely describes the main assumption underlying this model (i.e., that the underlying true effects/outcomes are homogeneous, or in other words, that they are all equal to each other). The terms \sQuote{common-effect(s) model} or \sQuote{homogenous-effect(s) model} have also sometimes been used in the literature to describe this model and are equally descriptive. Moreover, the term \sQuote{fixed-effects model} creates a bit of a conundrum. When authors use this term, they are really typically referring to the equal-effects model. There is however another type of model, the \sQuote{real} fixed-effects model, that is different from the equal-effects model, but now we would need to invent (unnecessarily) a different term to refer to this model. Some have done so or tried to make a distinction between the \sQuote{fixed-effect model} (without the s!) and the \sQuote{fixed-effects model}, but this subtle difference in terminology is easily overlooked/missed. Using the term \sQuote{equal-effects model} avoids this confusion and is more informative. However, the question then remains what the real fixed-effects model is all about. The purpose of this page is to describe this model and to contrast it with the well-known random-effects model. } \details{ \subsection{Fixed-Effects Model}{ Assume we have a set of \mjseqn{i = 1, \ldots, k} independent studies and let \mjseqn{y_i} denote the observed value of the effect size or outcome measure in the \mjeqn{i\text{th}}{ith} study. Let \mjseqn{\theta_i} denote the corresponding (unknown) true effect/outcome, such that \mjdeqn{y_i \mid \theta_i \sim N(\theta_i, v_i).}{y_i | \theta_i ~ N(\theta_i, v_i).} In other words, the observed effect sizes or outcomes are assumed to be unbiased and normally distributed estimates of the corresponding true effects/outcomes with sampling variances equal to \mjseqn{v_i}. The \mjseqn{v_i} values are assumed to be known. The fixed-effects model is simply given by \mjdeqn{y_i = \theta_i + \varepsilon_i,}{y_i = \theta_i + \epsilon_i,} where the \mjseqn{\theta_i} values are the (fixed) true effects/outcomes of the \mjseqn{k} studies. Therefore, the model \sQuote{conditions} on the true effects/outcomes and provides a \emph{conditional inference} about the \mjseqn{k} studies included in the meta-analysis. When using weighted estimation (the default in \code{\link{rma.uni}} when \code{method="FE"}), this implies that the fitted model provides an estimate of \mjdeqn{\bar{\theta}_w = \frac{\sum_{i=1}^k w_i \theta_i}{\sum_{i=1}^k w_i},}{\theta_w = \sum w_i \theta_i / \sum w_i,} that is, the \emph{weighted average} of the true effects/outcomes in the \mjseqn{k} studies, with weights equal to \mjseqn{w_i = 1/v_i}. As an example, consider the meta-analysis by Bangert-Drowns et al. (2004) on the effectiveness of writing-to-learn interventions on academic achievement. The dataset (\code{\link[metadat]{dat.bangertdrowns2004}}) includes the observed standardized mean differences (variable \code{yi}) and the corresponding sampling variances (variable \code{vi}) of 48 studies that have examined such an intervention. We can fit a fixed-effects model to these data with: \preformatted{# copy data into 'dat' dat <- dat.bangertdrowns2004 # fit a fixed-effects model res <- rma(yi, vi, data=dat, method="FE") res # Fixed-Effects Model (k = 48) # # I^2 (total heterogeneity / total variability): 56.12\% # H^2 (total variability / sampling variability): 2.28 # # Test for Heterogeneity: # Q(df = 47) = 107.1061, p-val < .0001 # # Model Results: # # estimate se zval pval ci.lb ci.ub # 0.1656 0.0269 6.1499 <.0001 0.1128 0.2184} The Q-test suggests that the underlying true standardized mean differences are heterogeneous (\mjteqn{Q(\text{df}=47) = 107.11, p < .0001}{Q(\text{df}=47) = 107.11, p \lt .0001}{Q(df=47) = 107.11, p < .0001}). Therefore, if we believe this to be true, then the value shown under \code{estimate} is an estimate of the inverse-variance weighted average of the true standardized mean differences of these 48 studies (i.e., \mjeqn{\hat{\bar{\theta}}_w = 0.17}{\theta-bar-hat_w = 0.17}). One can also employ an unweighted estimation method (by setting \code{weighted=FALSE} in \code{\link{rma.uni}}), which provides an estimate of the \emph{unweighted average} of the true effects/outcomes in the \mjseqn{k} studies, that is, an estimate of \mjdeqn{\bar{\theta}_u = \frac{\sum_{i=1}^k \theta_i}{k}.}{\theta_u = \sum \theta_i / k.} Returning to the example, we then find: \preformatted{# fit a fixed-effects model using unweighted estimation res <- rma(yi, vi, data=dat, method="FE", weighted=FALSE) res # Fixed-Effects Model (k = 48) # # I^2 (total heterogeneity / total variability): 56.12\% # H^2 (total variability / sampling variability): 2.28 # # Test for Heterogeneity: # Q(df = 47) = 107.1061, p-val < .0001 # # Model Results: # # estimate se zval pval ci.lb ci.ub # 0.2598 0.0380 6.8366 <.0001 0.1853 0.3343} Therefore, the value shown under \code{estimate} is now an estimate of the unweighted average of the true standardized mean differences of these 48 studies (i.e., \mjeqn{\hat{\bar{\theta}}_u = 0.26}{\theta-bar-hat_u = 0.26}). For weighted estimation, one could also choose to estimate \mjeqn{\bar{\theta}_w}{\theta_w}, where the \mjseqn{w_i} values are user-defined weights (via argument \code{weights} in \code{\link{rma.uni}}). Hence, using inverse-variance weights or unit weights (as in unweighted estimation) are just special cases. It is up to the user to decide to what extent \mjeqn{\bar{\theta}_w}{\theta_w} is a meaningful parameter to estimate (regardless of the weights used). For example, we could use the sample sizes of the studies as weights: \preformatted{# fit a fixed-effects model using the sample sizes as weights res <- rma(yi, vi, data=dat, method="FE", weights=ni) res # Fixed-Effects Model (k = 48) # # I^2 (total heterogeneity / total variability): 56.12\% # H^2 (total variability / sampling variability): 2.28 # # Test for Heterogeneity: # Q(df = 47) = 107.1061, p-val < .0001 # # Model Results: # # estimate se zval pval ci.lb ci.ub # 0.1719 0.0269 6.3802 <.0001 0.1191 0.2248} We therefore obtain an estimate of the sample-size weighted average of the true standardized mean differences of these 48 studies (i.e., \mjeqn{\hat{\bar{\theta}}_w = 0.17}{\theta-bar-hat_w = 0.17}). Since the sample sizes and the inverse sampling variances are highly correlated (\code{cor(dat$ni, 1/dat$vi)} yields \code{0.999}), the results are almost identical to the ones we obtained earlier using inverse-variance weighting. } \subsection{Random-Effects Model}{ The random-effects model does not condition on the true effects/outcomes. Instead, the \mjseqn{k} studies included in the meta-analysis are assumed to be a random sample from a larger population of studies. In rare cases, the studies included in a meta-analysis are actually sampled from a larger collection of studies. More typically, all efforts have been made to find and include all relevant studies providing evidence about the phenomenon of interest and hence the population of studies is a hypothetical population of an essentially infinite set of studies comprising all of the studies that have been conducted, that could have been conducted, or that may be conducted in the future. We assume that \mjeqn{\theta_i \sim N(\mu, \tau^2)}{\theta_i ~ N(\mu, \tau^2)}, that is, the true effects/outcomes in the population of studies are normally distributed with \mjseqn{\mu} denoting the average true effect/outcome and \mjseqn{\tau^2} the variance of the true effects/outcomes in the population (\mjseqn{\tau^2} is therefore often referred to as the amount of \sQuote{heterogeneity} in the true effects/outcomes). The random-effects model can also be written as \mjdeqn{y_i = \mu + u_i + \varepsilon_i,}{y_i = \mu + u_i + \epsilon_i,} where \mjeqn{u_i \sim N(0, \tau^2)}{u_i ~ N(0, \tau^2)} and \mjeqn{\varepsilon_i \sim N(0, v_i)}{\epsilon_i ~ N(0, v_i)}. The fitted model provides estimates of \mjseqn{\mu} and \mjseqn{\tau^2}. Consequently, the random-effects model provides an \emph{unconditional inference} about the average true effect/outcome in the population of studies (from which the \mjseqn{k} studies included in the meta-analysis are assumed to be a random sample). Fitting a random-effects model to the example data yields: \preformatted{# fit a random-effects model (note: method="REML" is the default) res <- rma(yi, vi, data=dat) res # Random-Effects Model (k = 48; tau^2 estimator: REML) # # tau^2 (estimated amount of total heterogeneity): 0.0499 (SE = 0.0197) # tau (square root of estimated tau^2 value): 0.2235 # I^2 (total heterogeneity / total variability): 58.37\% # H^2 (total variability / sampling variability): 2.40 # # Test for Heterogeneity: # Q(df = 47) = 107.1061, p-val < .0001 # # Model Results: # # estimate se zval pval ci.lb ci.ub # 0.2219 0.0460 4.8209 <.0001 0.1317 0.3122} The value shown under \code{estimate} is now an estimate of the average true standardized mean difference of studies in the population of studies from which the 48 studies included in this dataset have come (i.e., \mjeqn{\hat{\mu} = 0.22}{\mu-hat = 0.22}). When using weighted estimation in the context of a random-effects model, the model is fitted with weights equal to \mjseqn{w_i = 1/(\tau^2 + v_i)}, with \mjseqn{\tau^2} replaced by its estimate (the default in \code{\link{rma.uni}} when \code{method} is set to one of the possible choices for estimating \mjseqn{\tau^2}). One can also choose unweighted estimation in the context of the random-effects model (\code{weighted=FALSE}) or specify user-defined weights (via \code{weights}), although the parameter that is estimated (i.e., \mjseqn{\mu}) remains the same regardless of the estimation method and weights used (as opposed to the fixed-effect model, where the parameter estimated is different for weighted versus unweighted estimation or when using different weights than the standard inverse-variance weights). Since weighted estimation with inverse-variance weights is most efficient, it is usually to be preferred for random-effects models (while in the fixed-effect model case, we must carefully consider whether \mjeqn{\bar{\theta}_w}{\theta_w} or \mjeqn{\bar{\theta}_u}{\theta_u} is the more meaningful parameter to estimate). } \subsection{Conditional versus Unconditional Inferences}{ Contrary to what is often stated in the literature, it is important to realize that the fixed-effects model does \emph{not} assume that the true effects/outcomes are homogeneous (i.e., that \mjseqn{\theta_i} is equal to some common value \mjseqn{\theta} in all \mjseqn{k} studies). In other words, the fixed-effects model provides perfectly valid inferences under heterogeneity, as long as one is restricting these inferences to the set of studies included in the meta-analysis and one realizes that the model does not provide an estimate of \mjseqn{\theta} or \mjseqn{\mu}, but of \mjeqn{\bar{\theta}_w}{\theta_w} or \mjeqn{\bar{\theta}_u}{\theta_u} (depending on the estimation method used). However, such inferences are conditional on the included studies. It is therefore not permissible to generalize those inferences beyond the set of studies included in a meta-analysis (or doing so requires \sQuote{extra-statistical} arguments). In contrast, a random-effects model provides unconditional inferences and therefore allows a generalization beyond the set of included studies, although the population of studies to which we can generalize is typically only vaguely defined (since the included studies are not a proper random sample from a specified sampling frame). Instead, we simply must assume that the included studies are a representative sample of \emph{some} population and it is to that population to which we are generalizing. Leaving aside this issue, the above implies that there is nothing wrong with fitting both the fixed- and random-effects models to the same data, since these models address inherently different questions (i.e., what was the average effect in the studies that have been conducted and are included in this meta-analysis versus what is the average effect in the larger population of studies?). } \subsection{Equal-Effects Model}{ In the special case that the true effects/outcomes are actually homogeneous (the equal-effects case), the distinction between the fixed- and random-effects models disappears, since homogeneity implies that \mjeqn{\mu = \bar{\theta}_w = \bar{\theta}_u \equiv \theta}{\mu = \theta_w = \theta_u = \theta}. Therefore, if one belives that the true effects/outcomes are homogeneous, then one can fit an equal-effects model (using weighted estimation), since this will provide the most efficient estimate of \mjseqn{\theta} (note that if the true effects/outcomes are really homogeneous but we fit a random-effects model, it can happen that the estimate of \mjseqn{\tau^2} is actually larger than 0, which then leads to a loss of efficiency). However, since there is no infallible method to test whether the true effects/outcomes are really homogeneous or not, a researcher should decide on the type of inference desired before examining the data and choose the model accordingly. Note that fitting an equal-effects model (with \code{method="EE"}) yields the exact same output as fitting a fixed-effects model, since the equations used to fit these two models are identical. However, the interpretation of the results is different. If we fit an equal-effects model, we make the assumption that the true effects are homogeneous and, if we believe this assumption to be justified, can interpret the estimate as an estimate of \emph{the} true effect. On the other hand, if we reject the homogeneity assumption, then we should reject the model altogether. In contrast, if we fit a fixed-effects model, we do not assume homogeneity and instead interpret the estimate as an estimate of the (weighted) average true effect of the included studies. } For further discussions of the distinction between the equal-, fixed-, and random-effects models, see Laird and Mosteller (1990) and Hedges and Vevea (1998). } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Cooper, H., Hedges, L. V., & Valentine, J. C. (Eds.) (2009). \emph{The handbook of research synthesis and meta-analysis} (2nd ed.). New York: Russell Sage Foundation. Hedges, L. V., & Vevea, J. L. (1998). Fixed- and random-effects models in meta-analysis. \emph{Psychological Methods}, \bold{3}(4), 486--504. \verb{https://doi.org/10.1037/1082-989X.3.4.486} Laird, N. M., & Mosteller, F. (1990). Some statistical methods for combining experimental results. \emph{International Journal of Technology Assessment in Health Care}, \bold{6}(1), 5--30. \verb{https://doi.org/10.1017/S0266462300008916} Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \keyword{documentation} \keyword{models} metafor/man/print.list.rma.Rd0000644000176200001440000000216215173343621015643 0ustar liggesusers\name{print.list.rma} \alias{print.list.rma} \title{Print Method for 'list.rma' Objects} \description{ Function to print objects of class \code{"list.rma"}. } \usage{ \method{print}{list.rma}(x, digits=x$digits, \dots) } \arguments{ \item{x}{an object of class \code{"list.rma"}.} \item{digits}{integer to specify the number of decimal places to which the printed results should be rounded (the default is to take the value from the object).} \item{\dots}{other arguments.} } \value{ See the documentation of the function that creates the \code{"list.rma"} object for details on what is printed. Regardless of what is printed, a data frame with the results is also returned invisibly. See \code{\link{methods.list.rma}} for some additional method functions for \code{"list.rma"} objects. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \keyword{print} metafor/man/addpoly.rma.Rd0000644000176200001440000001316415173343621015175 0ustar liggesusers\name{addpoly.rma} \alias{addpoly.rma} \title{Add Polygons to Forest Plots (Method for 'rma' Objects)} \description{ Function to add a polygon to a forest plot showing the pooled estimate with corresponding confidence interval based on an object of class \code{"rma"}. } \usage{ \method{addpoly}{rma}(x, row=-2, level=x$level, annotate, addpred=FALSE, predstyle, predlim, digits, width, mlab, transf, atransf, targs, efac, col, border, lty, fonts, cex, \dots) } \arguments{ \item{x}{an object of class \code{"rma"}.} \item{row}{numeric value to specify the row (or more generally, the position) for plotting the polygon (the default is \code{-2}).} \item{level}{numeric value between 0 and 100 to specify the confidence interval level (see \link[=misc-options]{here} for details). The default is to take the value from the object.} \item{annotate}{optional logical to specify whether annotations for the pooled estimate should be added to the plot.} \item{addpred}{logical to specify whether the prediction interval should be added to the plot (the default is \code{FALSE}).} \item{predstyle}{character string to specify the style of the prediction interval (either \code{"line"}, \code{"polygon"}, \code{"bar"}, \code{"shade"}, or \code{"dist"}). Can be abbreviated. Setting this argument automatically sets \code{addpred=TRUE}.} \item{predlim}{optional argument to specify the limits of the predictive distribution when \code{predstyle="dist"}.} \item{digits}{optional integer to specify the number of decimal places to which the annotations should be rounded.} \item{width}{optional integer to manually adjust the width of the columns for the annotations.} \item{mlab}{optional character string giving a label for the pooled estimate. If unspecified, the function sets a default label.} \item{transf}{optional argument to specify a function to transform the pooled estimate and confidence interval bounds (e.g., \code{transf=exp}; see also \link{transf}).} \item{atransf}{optional argument to specify a function to transform the annotations (e.g., \code{atransf=exp}; see also \link{transf}).} \item{targs}{optional arguments needed by the function specified via \code{transf} or \code{atransf}.} \item{efac}{optional vertical expansion factor for the polygon.} \item{col}{optional character string to specify the color of the polygon.} \item{border}{optional character string to specify the border color of the polygon.} \item{lty}{optional argument to specify the line type for the prediction interval.} \item{fonts}{optional character string to specify the font for the label and annotations.} \item{cex}{optional symbol expansion factor.} \item{\dots}{other arguments.} } \details{ The function can be used to add a four-sided polygon, sometimes called a summary \sQuote{diamond}, to an existing forest plot created with the \code{\link{forest}} function. The polygon shows the pooled estimate (with its confidence interval bounds) based on an equal- or a random-effects model. Using this function, pooled estimates based on different types of models can be shown in the same plot. Also, pooled estimates based on a subgrouping of the studies can be added to the plot this way. See \sQuote{Examples}. If unspecified, arguments \code{annotate}, \code{digits}, \code{width}, \code{transf}, \code{atransf}, \code{targs}, \code{efac}, \code{fonts}, \code{cex}, \code{annosym}, and \code{textpos} are automatically set equal to the same values that were used when creating the forest plot. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{forest}} for functions to draw forest plots to which polygons can be added. } \examples{ ### meta-analysis of the log risk ratios using the Mantel-Haenszel method res <- rma.mh(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) ### forest plot of the observed risk ratios with the pooled estimate forest(res, atransf=exp, xlim=c(-8,6), ylim=c(-3,16)) ### meta-analysis of the log risk ratios using a random-effects model res <- rma(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg) ### add the pooled estimate from the random-effects model to the forest plot addpoly(res) ### forest plot with subgrouping of studies and summaries per subgroup dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, slab=paste(author, year, sep=", ")) res <- rma(yi, vi, data=dat) tmp <- forest(res, xlim=c(-16, 4.6), at=log(c(0.05, 0.25, 1, 4)), atransf=exp, ilab=cbind(tpos, tneg, cpos, cneg), ilab.lab=c("TB+","TB-","TB+","TB-"), ilab.xpos=c(-9.5,-8,-6,-4.5), cex=0.75, ylim=c(-2, 27), order=alloc, rows=c(3:4,9:15,20:23), mlab="RE Model for All Studies", header="Author(s) and Year") op <- par(cex=tmp$cex) text(c(-8.75,-5.25), tmp$ylim[2]-0.2, c("Vaccinated", "Control"), font=2) text(-16, c(24,16,5), c("Systematic Allocation", "Random Allocation", "Alternate Allocation"), font=4, pos=4) par(op) res <- rma(yi, vi, data=dat, subset=(alloc=="systematic")) addpoly(res, row=18.5, mlab="RE Model for Subgroup") res <- rma(yi, vi, data=dat, subset=(alloc=="random")) addpoly(res, row=7.5, mlab="RE Model for Subgroup") res <- rma(yi, vi, data=dat, subset=(alloc=="alternate")) addpoly(res, row=1.5, mlab="RE Model for Subgroup") } \keyword{aplot} metafor/man/contrmat.Rd0000644000176200001440000000714315173343621014612 0ustar liggesusers\name{contrmat} \alias{contrmat} \title{Construct Contrast Matrix for Two-Group Comparisons} \description{ Function to construct a matrix that indicates which two groups have been contrasted against each other in each row of a dataset. } \usage{ contrmat(data, grp1, grp2, last, shorten=FALSE, minlen=2, check=TRUE, append=TRUE) } \arguments{ \item{data}{a data frame in wide format.} \item{grp1}{either the name (given as a character string) or the position (given as a single number) of the first group variable in the data frame.} \item{grp2}{either the name (given as a character string) or the position (given as a single number) of the second group variable in the data frame.} \item{last}{optional character string to specify which group will be placed in the last column of the matrix (must be one of the groups in the group variables). If not given, the most frequently occurring second group is placed last.} \item{shorten}{logical to specify whether the variable names corresponding to the group names should be shortened (the default is \code{FALSE}).} \item{minlen}{integer to specify the minimum length of the shortened variable names (the default is 2).} \item{check}{logical to specify whether the variables names should be checked to ensure that they are syntactically valid variable names and if not, they are adjusted (by \code{\link{make.names}}) so that they are (the default is \code{TRUE}).} \item{append}{logical to specify whether the contrast matrix should be appended to the data frame specified via the \code{data} argument (the default is \code{TRUE}). If \code{append=FALSE}, only the contrast matrix is returned.} } \details{ The function can be used to construct a matrix that indicates which two groups have been contrasted against each other in each row of a data frame (with \code{1} for the first group, \code{-1} for the second group, and \code{0} otherwise). The \code{grp1} and \code{grp2} arguments are used to specify the group variables in the dataset (either as character strings or as numbers indicating the column positions of these variables in the dataset). Optional argument \code{last} is used to specify which group will be placed in the last column of the matrix. If \code{shorten=TRUE}, the variable names corresponding to the group names are shortened (to at least \code{minlen}; the actual length might be longer to ensure uniqueness of the variable names). The examples below illustrate the use of this function. } \value{ A matrix with as many variables as there are groups. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{to.wide}} for a function to create \sQuote{wide} format datasets. \code{\link[metadat]{dat.senn2013}}, \code{\link[metadat]{dat.hasselblad1998}}, \code{\link[metadat]{dat.lopez2019}} for illustrative examples. } \examples{ ### restructure to wide format dat <- dat.senn2013 dat <- dat[c(1,4,3,2,5,6)] dat <- to.wide(dat, study="study", grp="treatment", ref="placebo", grpvars=4:6) dat ### add contrast matrix dat <- contrmat(dat, grp1="treatment.1", grp2="treatment.2") dat ### data in long format dat <- dat.hasselblad1998 dat ### restructure to wide format dat <- to.wide(dat, study="study", grp="trt", ref="no_contact", grpvars=6:7) dat ### add contrast matrix dat <- contrmat(dat, grp1="trt.1", grp2="trt.2", shorten=TRUE, minlen=3) dat } \keyword{manip} metafor/man/methods.deltamethod.Rd0000644000176200001440000000217715173343621016721 0ustar liggesusers\name{coef.deltamethod} \alias{coef.deltamethod} \alias{vcov.deltamethod} \title{Extract the Estimates and Variance-Covariance Matrix from 'deltamethod' Objects} \description{ Methods for objects of class \code{"deltamethod"}. } \usage{ \method{coef}{deltamethod}(object, \dots) \method{vcov}{deltamethod}(object, \dots) } \arguments{ \item{object}{an object of class \code{"deltamethod"}.} \item{\dots}{other arguments.} } \details{ The \code{coef} function extracts the transformed estimates from objects of class \code{"deltamethod"}. The \code{vcov} function extracts the corresponding variance-covariance matrix. } \value{ Either a vector with the transformed estimates or a variance-covariance matrix. } \author{ Wolfgang Viechtbauer (\email{wvb@metafor-project.org}, \url{https://www.metafor-project.org}). } \references{ Viechtbauer, W. (2010). Conducting meta-analyses in R with the metafor package. \emph{Journal of Statistical Software}, \bold{36}(3), 1--48. \verb{https://doi.org/10.18637/jss.v036.i03} } \seealso{ \code{\link{deltamethod}} for the function to create \code{deltamethod} objects. } \keyword{models} metafor/DESCRIPTION0000644000176200001440000000512215173363331013422 0ustar liggesusersPackage: metafor Version: 5.0-1 Date: 2026-04-26 Title: Meta-Analysis Package for R Authors@R: person(given = "Wolfgang", family = "Viechtbauer", role = c("aut","cre"), email = "wvb@metafor-project.org", comment = c(ORCID = "0000-0003-3463-4063")) Depends: R (>= 4.0.0), methods, Matrix, metadat, numDeriv Imports: stats, utils, graphics, grDevices, nlme, mathjaxr, pbapply, digest Suggests: lme4, pracma, minqa, nloptr, dfoptim, ucminf, lbfgsb3c, subplex, BB, Rsolnp, alabama, optimParallel, optimx, CompQuadForm, mvtnorm, BiasedUrn, Epi, survival, GLMMadaptive, glmmTMB, car, multcomp, gsl, sp, ape, boot, clubSandwich, crayon, R.rsp, testthat, rmarkdown, wildmeta, emmeans, estmeansd, metaBLUE, rstudioapi, glmulti, MuMIn, mice, Amelia, calculus Description: A comprehensive collection of functions for conducting meta-analyses in R. The package includes functions to calculate various effect sizes or outcome measures, fit equal-, fixed-, random-, and mixed-effects models to such data, carry out moderator and meta-regression analyses, and create various types of meta-analytical plots (e.g., forest, funnel, radial, L'Abbe, Baujat, bubble, and GOSH plots). For meta-analyses of binomial and person-time data, the package also provides functions that implement specialized methods, including the Mantel-Haenszel method, Peto's method, and a variety of suitable generalized linear (mixed-effects) models (i.e., mixed-effects logistic and Poisson regression models). Finally, the package provides functionality for fitting meta-analytic multivariate/multilevel models that account for non-independent sampling errors and/or true effects (e.g., due to the inclusion of multiple treatment studies, multiple endpoints, or other forms of clustering). Network meta-analyses and meta-analyses accounting for known correlation structures (e.g., due to phylogenetic relatedness) can also be conducted. An introduction to the package can be found in Viechtbauer (2010) . License: GPL (>= 2) ByteCompile: TRUE Encoding: UTF-8 RdMacros: mathjaxr VignetteBuilder: R.rsp BuildManual: TRUE URL: https://www.metafor-project.org https://github.com/wviechtb/metafor https://wviechtb.github.io/metafor/ https://www.wvbauer.com BugReports: https://github.com/wviechtb/metafor/issues NeedsCompilation: no Packaged: 2026-04-26 08:48:59 UTC; wviechtb Author: Wolfgang Viechtbauer [aut, cre] (ORCID: ) Maintainer: Wolfgang Viechtbauer Repository: CRAN Date/Publication: 2026-04-26 10:20:09 UTC