From d3d1ee9843972bbcda2a08723ab8b9444cf70e8d Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Sun, 31 Aug 2025 04:01:26 +0000 Subject: [PATCH 1/4] Initial plan From 094fa6d95a42b6682ca694d988004192e72c4915 Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Sun, 31 Aug 2025 04:14:49 +0000 Subject: [PATCH 2/4] Add explainability guidance to GLM summary reports for coefficient interpretation Co-authored-by: rempsyc <13123390+rempsyc@users.noreply.github.com> --- DESCRIPTION | 2 +- NEWS.md | 4 + R/report.glm.R | 32 +- report.Rcheck/00_pkg_src/report/DESCRIPTION | 105 + report.Rcheck/00_pkg_src/report/LICENSE | 2 + report.Rcheck/00_pkg_src/report/NAMESPACE | 322 ++ report.Rcheck/00_pkg_src/report/NEWS.md | 201 + .../00_pkg_src/report/R/cite_easystats.R | 441 ++ .../00_pkg_src/report/R/format_algorithm.R | 73 + .../00_pkg_src/report/R/format_citation.R | 82 + .../00_pkg_src/report/R/format_formula.R | 22 + .../00_pkg_src/report/R/format_model.R | 102 + report.Rcheck/00_pkg_src/report/R/reexports.R | 13 + .../00_pkg_src/report/R/report-package.R | 18 + .../report/R/report.BFBayesFactor.R | 86 + .../00_pkg_src/report/R/report.MixMod.R | 44 + report.Rcheck/00_pkg_src/report/R/report.R | 146 + .../00_pkg_src/report/R/report.aov.R | 359 ++ .../report/R/report.bayesfactor_models.R | 401 ++ .../00_pkg_src/report/R/report.brmsfit.R | 113 + .../00_pkg_src/report/R/report.character.R | 202 + .../00_pkg_src/report/R/report.compare.loo.R | 139 + .../report/R/report.compare_performance.R | 142 + .../00_pkg_src/report/R/report.coxph.R | 30 + .../00_pkg_src/report/R/report.data.frame.R | 552 +++ .../00_pkg_src/report/R/report.default.R | 125 + .../report/R/report.estimate_contrasts.R | 52 + .../00_pkg_src/report/R/report.factor.R | 179 + .../00_pkg_src/report/R/report.glm.R | 60 + .../00_pkg_src/report/R/report.glmmTMB.R | 44 + .../00_pkg_src/report/R/report.htest.R | 438 ++ .../00_pkg_src/report/R/report.ivreg.R | 30 + .../00_pkg_src/report/R/report.lavaan.R | 119 + report.Rcheck/00_pkg_src/report/R/report.lm.R | 575 +++ .../00_pkg_src/report/R/report.lme.R | 44 + .../00_pkg_src/report/R/report.lme4.R | 45 + .../00_pkg_src/report/R/report.numeric.R | 341 ++ .../00_pkg_src/report/R/report.sessionInfo.R | 201 + .../00_pkg_src/report/R/report.stanreg.R | 203 + .../00_pkg_src/report/R/report.survreg.R | 30 + .../report/R/report.test_performance.R | 122 + .../00_pkg_src/report/R/report.zeroinfl.R | 30 + .../00_pkg_src/report/R/report_effectsize.R | 154 + .../00_pkg_src/report/R/report_htest_chi2.R | 126 + .../00_pkg_src/report/R/report_htest_cor.R | 60 + .../00_pkg_src/report/R/report_htest_fisher.R | 102 + .../report/R/report_htest_friedman.R | 87 + .../report/R/report_htest_kruskal.R | 89 + .../00_pkg_src/report/R/report_htest_ttest.R | 117 + .../00_pkg_src/report/R/report_htest_wilcox.R | 63 + .../00_pkg_src/report/R/report_info.R | 147 + .../00_pkg_src/report/R/report_intercept.R | 112 + .../00_pkg_src/report/R/report_misc.R | 45 + .../00_pkg_src/report/R/report_model.R | 77 + .../00_pkg_src/report/R/report_parameters.R | 212 + .../00_pkg_src/report/R/report_participants.R | 594 +++ .../00_pkg_src/report/R/report_performance.R | 287 ++ .../00_pkg_src/report/R/report_priors.R | 56 + .../00_pkg_src/report/R/report_random.R | 78 + report.Rcheck/00_pkg_src/report/R/report_s.R | 38 + .../00_pkg_src/report/R/report_sample.R | 557 +++ .../00_pkg_src/report/R/report_statistics.R | 80 + .../00_pkg_src/report/R/report_table.R | 198 + .../00_pkg_src/report/R/report_text.R | 108 + .../report/R/utils_combine_tables.R | 76 + .../00_pkg_src/report/R/utils_error_message.R | 10 + .../00_pkg_src/report/R/utils_grouped_df.R | 123 + .../report/R/utils_misspelled_variables.R | 75 + report.Rcheck/00_pkg_src/report/R/zzz.R | 3 + report.Rcheck/00_pkg_src/report/README.md | 438 ++ .../00_pkg_src/report/build/vignette.rds | Bin 0 -> 335 bytes report.Rcheck/00_pkg_src/report/inst/CITATION | 8 + report.Rcheck/00_pkg_src/report/inst/WORDLIST | 46 + .../00_pkg_src/report/inst/easystats_bib.bib | 240 + .../00_pkg_src/report/inst/easystats_bib.yaml | 684 +++ .../00_pkg_src/report/man/as.report.Rd | 69 + .../00_pkg_src/report/man/cite_easystats.Rd | 75 + .../report/man/figures/allthethings.jpg | Bin 0 -> 76817 bytes .../report/man/figures/icon_document.svg | 55 + .../report/man/figures/icon_nature.svg | 82 + .../report/man/figures/icon_validated.svg | 42 + .../report/man/figures/issue_bug.png | Bin 0 -> 612 bytes .../report/man/figures/issue_featureidea.png | Bin 0 -> 1213 bytes .../report/man/figures/issue_help.png | Bin 0 -> 2013 bytes .../report/man/figures/issue_opinion.png | Bin 0 -> 1412 bytes .../00_pkg_src/report/man/figures/logo.ai | 4043 +++++++++++++++++ .../00_pkg_src/report/man/figures/logo.png | Bin 0 -> 140231 bytes .../00_pkg_src/report/man/figures/monster.ai | 526 +++ .../00_pkg_src/report/man/figures/monster.png | Bin 0 -> 34816 bytes .../00_pkg_src/report/man/figures/old_logo.ai | 3829 ++++++++++++++++ .../report/man/figures/old_logo.png | Bin 0 -> 19700 bytes .../report/man/figures/workflow.png | Bin 0 -> 78543 bytes .../report/man/figures/workflow.pptx | Bin 0 -> 54045 bytes .../00_pkg_src/report/man/format_citation.Rd | 45 + .../00_pkg_src/report/man/format_formula.Rd | 61 + .../00_pkg_src/report/man/reexports.Rd | 18 + .../00_pkg_src/report/man/report-package.Rd | 45 + .../report/man/report.BFBayesFactor.Rd | 37 + report.Rcheck/00_pkg_src/report/man/report.Rd | 116 + .../00_pkg_src/report/man/report.aov.Rd | 93 + .../report/man/report.bayesfactor_models.Rd | 98 + .../00_pkg_src/report/man/report.brmsfit.Rd | 69 + .../report/man/report.compare.loo.Rd | 55 + .../report/man/report.compare_performance.Rd | 92 + .../report/man/report.data.frame.Rd | 104 + .../00_pkg_src/report/man/report.default.Rd | 98 + .../report/man/report.estimate_contrasts.Rd | 70 + .../00_pkg_src/report/man/report.htest.Rd | 92 + .../00_pkg_src/report/man/report.lavaan.Rd | 80 + .../00_pkg_src/report/man/report.lm.Rd | 155 + .../report/man/report.sessionInfo.Rd | 54 + .../00_pkg_src/report/man/report.stanreg.Rd | 68 + .../report/man/report.test_performance.Rd | 92 + .../00_pkg_src/report/man/report_date.Rd | 61 + .../report/man/report_effectsize.Rd | 51 + .../00_pkg_src/report/man/report_info.Rd | 53 + .../00_pkg_src/report/man/report_intercept.Rd | 47 + .../00_pkg_src/report/man/report_model.Rd | 56 + .../report/man/report_parameters.Rd | 65 + .../report/man/report_participants.Rd | 155 + .../report/man/report_performance.Rd | 62 + .../00_pkg_src/report/man/report_priors.Rd | 33 + .../00_pkg_src/report/man/report_random.Rd | 55 + .../00_pkg_src/report/man/report_s.Rd | 27 + .../00_pkg_src/report/man/report_sample.Rd | 113 + .../report/man/report_statistics.Rd | 63 + .../00_pkg_src/report/man/report_table.Rd | 73 + .../00_pkg_src/report/man/report_text.Rd | 71 + .../00_pkg_src/report/tests/testthat.R | 11 + .../testthat/_snaps/windows/report.aov.md | 43 + .../_snaps/windows/report.data.frame.md | 150 + .../_snaps/windows/report.htest-chi2.md | 180 + .../windows/report.htest-correlation.md | 33 + .../_snaps/windows/report.htest-fisher.md | 12 + .../_snaps/windows/report.htest-friedman.md | 12 + .../_snaps/windows/report.htest-kruskal.md | 12 + .../_snaps/windows/report.htest-t-test.md | 236 + .../_snaps/windows/report.htest-wilcox.md | 82 + .../testthat/_snaps/windows/report.ivreg.md | 27 + .../testthat/_snaps/windows/report.lavaan.md | 71 + .../testthat/_snaps/windows/report.lm.md | 48 + .../testthat/_snaps/windows/report.lmer.md | 48 + .../testthat/_snaps/windows/report.stanreg.md | 32 + .../testthat/_snaps/windows/report.survreg.md | 36 + .../_snaps/windows/report_participants.md | 77 + .../_snaps/windows/report_performance.md | 36 + .../tests/testthat/_snaps/windows/report_s.md | 20 + .../testthat/_snaps/windows/report_sample.md | 720 +++ .../report/tests/testthat/test-format_model.R | 46 + .../report/tests/testthat/test-report.aov.R | 74 + .../testthat/test-report.bayesfactor_models.R | 38 + .../tests/testthat/test-report.brmsfit.R | 38 + .../tests/testthat/test-report.data.frame.R | 95 + .../tests/testthat/test-report.htest-chi2.R | 107 + .../testthat/test-report.htest-correlation.R | 30 + .../tests/testthat/test-report.htest-fisher.R | 16 + .../testthat/test-report.htest-friedman.R | 15 + .../testthat/test-report.htest-kruskal.R | 9 + .../tests/testthat/test-report.htest-t-test.R | 122 + .../tests/testthat/test-report.htest-wilcox.R | 25 + .../report/tests/testthat/test-report.ivreg.R | 14 + .../tests/testthat/test-report.lavaan.R | 21 + .../report/tests/testthat/test-report.lm.R | 41 + .../report/tests/testthat/test-report.lmer.R | 23 + .../tests/testthat/test-report.numeric.R | 5 + .../tests/testthat/test-report.sessionInfo.R | 46 + .../tests/testthat/test-report.stanreg.R | 35 + .../tests/testthat/test-report.survreg.R | 16 + .../tests/testthat/test-report_intercept.R | 52 + .../tests/testthat/test-report_participants.R | 175 + .../tests/testthat/test-report_performance.R | 129 + .../report/tests/testthat/test-report_s.R | 9 + .../tests/testthat/test-report_sample.R | 292 ++ .../report/vignettes/bibliography.bib | 185 + .../report/vignettes/cite_packages.Rmd | 123 + .../report/vignettes/new_models.Rmd | 32 + .../00_pkg_src/report/vignettes/report.Rmd | 142 + .../report/vignettes/report_table.Rmd | 127 + report.Rcheck/00check.log | 64 + report.Rcheck/00install.out | 14 + report.Rcheck/report-Ex.R | 1049 +++++ report.Rcheck/report-Ex.Rout | 1765 +++++++ report.Rcheck/report-Ex.pdf | Bin 0 -> 3611 bytes report.Rcheck/report/CITATION | 8 + report.Rcheck/report/DESCRIPTION | 106 + report.Rcheck/report/INDEX | 41 + report.Rcheck/report/LICENSE | 2 + report.Rcheck/report/NAMESPACE | 322 ++ report.Rcheck/report/NEWS.md | 201 + report.Rcheck/report/R/report | 27 + report.Rcheck/report/R/report.rdb | Bin 0 -> 524178 bytes report.Rcheck/report/R/report.rdx | Bin 0 -> 4663 bytes report.Rcheck/report/WORDLIST | 46 + report.Rcheck/report/easystats_bib.bib | 240 + report.Rcheck/report/easystats_bib.yaml | 684 +++ report.Rcheck/report/help/AnIndex | 113 + report.Rcheck/report/help/aliases.rds | Bin 0 -> 925 bytes .../report/help/figures/allthethings.jpg | Bin 0 -> 76817 bytes .../report/help/figures/icon_document.svg | 55 + .../report/help/figures/icon_nature.svg | 82 + .../report/help/figures/icon_validated.svg | 42 + .../report/help/figures/issue_bug.png | Bin 0 -> 612 bytes .../report/help/figures/issue_featureidea.png | Bin 0 -> 1213 bytes .../report/help/figures/issue_help.png | Bin 0 -> 2013 bytes .../report/help/figures/issue_opinion.png | Bin 0 -> 1412 bytes report.Rcheck/report/help/figures/logo.png | Bin 0 -> 140231 bytes report.Rcheck/report/help/figures/monster.png | Bin 0 -> 34816 bytes .../report/help/figures/old_logo.png | Bin 0 -> 19700 bytes .../report/help/figures/workflow.png | Bin 0 -> 78543 bytes report.Rcheck/report/help/paths.rds | Bin 0 -> 476 bytes report.Rcheck/report/help/report.rdb | Bin 0 -> 111327 bytes report.Rcheck/report/help/report.rdx | Bin 0 -> 1013 bytes report.Rcheck/report/html/00Index.html | 286 ++ report.Rcheck/report/html/R.css | 130 + report.Rcheck/tests/startup.Rs | 4 + report.Rcheck/tests/testthat.R | 11 + report.Rcheck/tests/testthat.Rout | 32 + .../testthat/_snaps/windows/report.aov.md | 43 + .../_snaps/windows/report.data.frame.md | 150 + .../_snaps/windows/report.htest-chi2.md | 180 + .../windows/report.htest-correlation.md | 33 + .../_snaps/windows/report.htest-fisher.md | 12 + .../_snaps/windows/report.htest-friedman.md | 12 + .../_snaps/windows/report.htest-kruskal.md | 12 + .../_snaps/windows/report.htest-t-test.md | 236 + .../_snaps/windows/report.htest-wilcox.md | 82 + .../testthat/_snaps/windows/report.ivreg.md | 27 + .../testthat/_snaps/windows/report.lavaan.md | 71 + .../testthat/_snaps/windows/report.lm.md | 48 + .../testthat/_snaps/windows/report.lmer.md | 48 + .../testthat/_snaps/windows/report.stanreg.md | 32 + .../testthat/_snaps/windows/report.survreg.md | 36 + .../_snaps/windows/report_participants.md | 77 + .../_snaps/windows/report_performance.md | 36 + .../tests/testthat/_snaps/windows/report_s.md | 20 + .../testthat/_snaps/windows/report_sample.md | 720 +++ .../tests/testthat/test-format_model.R | 46 + .../tests/testthat/test-report.aov.R | 74 + .../testthat/test-report.bayesfactor_models.R | 38 + .../tests/testthat/test-report.brmsfit.R | 38 + .../tests/testthat/test-report.data.frame.R | 95 + .../tests/testthat/test-report.htest-chi2.R | 107 + .../testthat/test-report.htest-correlation.R | 30 + .../tests/testthat/test-report.htest-fisher.R | 16 + .../testthat/test-report.htest-friedman.R | 15 + .../testthat/test-report.htest-kruskal.R | 9 + .../tests/testthat/test-report.htest-t-test.R | 122 + .../tests/testthat/test-report.htest-wilcox.R | 25 + .../tests/testthat/test-report.ivreg.R | 14 + .../tests/testthat/test-report.lavaan.R | 21 + report.Rcheck/tests/testthat/test-report.lm.R | 41 + .../tests/testthat/test-report.lmer.R | 23 + .../tests/testthat/test-report.numeric.R | 5 + .../tests/testthat/test-report.sessionInfo.R | 46 + .../tests/testthat/test-report.stanreg.R | 35 + .../tests/testthat/test-report.survreg.R | 16 + .../tests/testthat/test-report_intercept.R | 52 + .../tests/testthat/test-report_participants.R | 175 + .../tests/testthat/test-report_performance.R | 129 + report.Rcheck/tests/testthat/test-report_s.R | 9 + .../tests/testthat/test-report_sample.R | 292 ++ 261 files changed, 35247 insertions(+), 2 deletions(-) create mode 100644 report.Rcheck/00_pkg_src/report/DESCRIPTION create mode 100644 report.Rcheck/00_pkg_src/report/LICENSE create mode 100644 report.Rcheck/00_pkg_src/report/NAMESPACE create mode 100644 report.Rcheck/00_pkg_src/report/NEWS.md create mode 100644 report.Rcheck/00_pkg_src/report/R/cite_easystats.R create mode 100644 report.Rcheck/00_pkg_src/report/R/format_algorithm.R create mode 100644 report.Rcheck/00_pkg_src/report/R/format_citation.R create mode 100644 report.Rcheck/00_pkg_src/report/R/format_formula.R create mode 100644 report.Rcheck/00_pkg_src/report/R/format_model.R create mode 100644 report.Rcheck/00_pkg_src/report/R/reexports.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report-package.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.BFBayesFactor.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.MixMod.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.aov.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.bayesfactor_models.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.brmsfit.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.character.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.compare.loo.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.compare_performance.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.coxph.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.data.frame.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.default.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.estimate_contrasts.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.factor.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.glm.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.glmmTMB.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.htest.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.ivreg.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.lavaan.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.lm.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.lme.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.lme4.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.numeric.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.sessionInfo.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.stanreg.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.survreg.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.test_performance.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report.zeroinfl.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_effectsize.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_htest_chi2.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_htest_cor.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_htest_fisher.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_htest_friedman.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_htest_kruskal.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_htest_ttest.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_htest_wilcox.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_info.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_intercept.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_misc.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_model.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_parameters.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_participants.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_performance.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_priors.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_random.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_s.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_sample.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_statistics.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_table.R create mode 100644 report.Rcheck/00_pkg_src/report/R/report_text.R create mode 100644 report.Rcheck/00_pkg_src/report/R/utils_combine_tables.R create mode 100644 report.Rcheck/00_pkg_src/report/R/utils_error_message.R create mode 100644 report.Rcheck/00_pkg_src/report/R/utils_grouped_df.R create mode 100644 report.Rcheck/00_pkg_src/report/R/utils_misspelled_variables.R create mode 100644 report.Rcheck/00_pkg_src/report/R/zzz.R create mode 100644 report.Rcheck/00_pkg_src/report/README.md create mode 100644 report.Rcheck/00_pkg_src/report/build/vignette.rds create mode 100644 report.Rcheck/00_pkg_src/report/inst/CITATION create mode 100644 report.Rcheck/00_pkg_src/report/inst/WORDLIST create mode 100644 report.Rcheck/00_pkg_src/report/inst/easystats_bib.bib create mode 100644 report.Rcheck/00_pkg_src/report/inst/easystats_bib.yaml create mode 100644 report.Rcheck/00_pkg_src/report/man/as.report.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/cite_easystats.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/allthethings.jpg create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/icon_document.svg create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/icon_nature.svg create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/icon_validated.svg create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/issue_bug.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/issue_featureidea.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/issue_help.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/issue_opinion.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/logo.ai create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/logo.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/monster.ai create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/monster.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/old_logo.ai create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/old_logo.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/workflow.png create mode 100644 report.Rcheck/00_pkg_src/report/man/figures/workflow.pptx create mode 100644 report.Rcheck/00_pkg_src/report/man/format_citation.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/format_formula.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/reexports.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report-package.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.BFBayesFactor.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.aov.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.bayesfactor_models.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.brmsfit.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.compare.loo.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.compare_performance.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.data.frame.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.default.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.estimate_contrasts.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.htest.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.lavaan.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.lm.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.sessionInfo.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.stanreg.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report.test_performance.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_date.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_effectsize.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_info.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_intercept.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_model.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_parameters.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_participants.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_performance.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_priors.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_random.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_s.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_sample.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_statistics.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_table.Rd create mode 100644 report.Rcheck/00_pkg_src/report/man/report_text.Rd create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.aov.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.data.frame.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-chi2.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-correlation.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-fisher.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-friedman.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-kruskal.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-t-test.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-wilcox.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.ivreg.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lavaan.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lm.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lmer.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.stanreg.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.survreg.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_participants.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_performance.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_s.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_sample.md create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-format_model.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.aov.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.bayesfactor_models.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.brmsfit.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.data.frame.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-chi2.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-correlation.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-fisher.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-friedman.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-kruskal.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-t-test.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-wilcox.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.ivreg.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lavaan.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lm.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lmer.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.numeric.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.sessionInfo.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.stanreg.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report.survreg.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report_intercept.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report_participants.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report_performance.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report_s.R create mode 100644 report.Rcheck/00_pkg_src/report/tests/testthat/test-report_sample.R create mode 100644 report.Rcheck/00_pkg_src/report/vignettes/bibliography.bib create mode 100644 report.Rcheck/00_pkg_src/report/vignettes/cite_packages.Rmd create mode 100644 report.Rcheck/00_pkg_src/report/vignettes/new_models.Rmd create mode 100644 report.Rcheck/00_pkg_src/report/vignettes/report.Rmd create mode 100644 report.Rcheck/00_pkg_src/report/vignettes/report_table.Rmd create mode 100644 report.Rcheck/00check.log create mode 100644 report.Rcheck/00install.out create mode 100644 report.Rcheck/report-Ex.R create mode 100644 report.Rcheck/report-Ex.Rout create mode 100644 report.Rcheck/report-Ex.pdf create mode 100644 report.Rcheck/report/CITATION create mode 100644 report.Rcheck/report/DESCRIPTION create mode 100644 report.Rcheck/report/INDEX create mode 100644 report.Rcheck/report/LICENSE create mode 100644 report.Rcheck/report/NAMESPACE create mode 100644 report.Rcheck/report/NEWS.md create mode 100644 report.Rcheck/report/R/report create mode 100644 report.Rcheck/report/R/report.rdb create mode 100644 report.Rcheck/report/R/report.rdx create mode 100644 report.Rcheck/report/WORDLIST create mode 100644 report.Rcheck/report/easystats_bib.bib create mode 100644 report.Rcheck/report/easystats_bib.yaml create mode 100644 report.Rcheck/report/help/AnIndex create mode 100644 report.Rcheck/report/help/aliases.rds create mode 100644 report.Rcheck/report/help/figures/allthethings.jpg create mode 100644 report.Rcheck/report/help/figures/icon_document.svg create mode 100644 report.Rcheck/report/help/figures/icon_nature.svg create mode 100644 report.Rcheck/report/help/figures/icon_validated.svg create mode 100644 report.Rcheck/report/help/figures/issue_bug.png create mode 100644 report.Rcheck/report/help/figures/issue_featureidea.png create mode 100644 report.Rcheck/report/help/figures/issue_help.png create mode 100644 report.Rcheck/report/help/figures/issue_opinion.png create mode 100644 report.Rcheck/report/help/figures/logo.png create mode 100644 report.Rcheck/report/help/figures/monster.png create mode 100644 report.Rcheck/report/help/figures/old_logo.png create mode 100644 report.Rcheck/report/help/figures/workflow.png create mode 100644 report.Rcheck/report/help/paths.rds create mode 100644 report.Rcheck/report/help/report.rdb create mode 100644 report.Rcheck/report/help/report.rdx create mode 100644 report.Rcheck/report/html/00Index.html create mode 100644 report.Rcheck/report/html/R.css create mode 100644 report.Rcheck/tests/startup.Rs create mode 100644 report.Rcheck/tests/testthat.R create mode 100644 report.Rcheck/tests/testthat.Rout create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.aov.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.data.frame.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.htest-chi2.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.htest-correlation.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.htest-fisher.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.htest-friedman.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.htest-kruskal.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.htest-t-test.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.htest-wilcox.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.ivreg.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.lavaan.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.lm.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.lmer.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.stanreg.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report.survreg.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report_participants.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report_performance.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report_s.md create mode 100644 report.Rcheck/tests/testthat/_snaps/windows/report_sample.md create mode 100644 report.Rcheck/tests/testthat/test-format_model.R create mode 100644 report.Rcheck/tests/testthat/test-report.aov.R create mode 100644 report.Rcheck/tests/testthat/test-report.bayesfactor_models.R create mode 100644 report.Rcheck/tests/testthat/test-report.brmsfit.R create mode 100644 report.Rcheck/tests/testthat/test-report.data.frame.R create mode 100644 report.Rcheck/tests/testthat/test-report.htest-chi2.R create mode 100644 report.Rcheck/tests/testthat/test-report.htest-correlation.R create mode 100644 report.Rcheck/tests/testthat/test-report.htest-fisher.R create mode 100644 report.Rcheck/tests/testthat/test-report.htest-friedman.R create mode 100644 report.Rcheck/tests/testthat/test-report.htest-kruskal.R create mode 100644 report.Rcheck/tests/testthat/test-report.htest-t-test.R create mode 100644 report.Rcheck/tests/testthat/test-report.htest-wilcox.R create mode 100644 report.Rcheck/tests/testthat/test-report.ivreg.R create mode 100644 report.Rcheck/tests/testthat/test-report.lavaan.R create mode 100644 report.Rcheck/tests/testthat/test-report.lm.R create mode 100644 report.Rcheck/tests/testthat/test-report.lmer.R create mode 100644 report.Rcheck/tests/testthat/test-report.numeric.R create mode 100644 report.Rcheck/tests/testthat/test-report.sessionInfo.R create mode 100644 report.Rcheck/tests/testthat/test-report.stanreg.R create mode 100644 report.Rcheck/tests/testthat/test-report.survreg.R create mode 100644 report.Rcheck/tests/testthat/test-report_intercept.R create mode 100644 report.Rcheck/tests/testthat/test-report_participants.R create mode 100644 report.Rcheck/tests/testthat/test-report_performance.R create mode 100644 report.Rcheck/tests/testthat/test-report_s.R create mode 100644 report.Rcheck/tests/testthat/test-report_sample.R diff --git a/DESCRIPTION b/DESCRIPTION index b634d97b1..c9317338f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: report Type: Package Title: Automated Reporting of Results and Statistical Models -Version: 0.6.1.2 +Version: 0.6.1.3 Authors@R: c(person(given = "Dominique", family = "Makowski", diff --git a/NEWS.md b/NEWS.md index 82cb0f289..869cc9225 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,5 +1,9 @@ # report 0.6.x +New features + +* `report.glm()`: added explainability guidance for interpreting GLM coefficients (odds ratios for binomial models, rate ratios for Poisson models) to help users understand how to transform coefficients for easier interpretation (#484) + Bug fixes * Enhanced copilot environment setup with complete reprex dependency management (pandoc, knitr, rmarkdown, clipr) to prevent "reprex appears to crash R" errors diff --git a/R/report.glm.R b/R/report.glm.R index a74a0b94d..0afb6f4c7 100644 --- a/R/report.glm.R +++ b/R/report.glm.R @@ -24,7 +24,37 @@ report_model.glm <- report_model.lm report_performance.glm <- report_performance.lm #' @export -report_info.glm <- report_info.lm +report_info.glm <- function(x, + effectsize = NULL, + include_effectsize = FALSE, + parameters = NULL, + ...) { + # Get the standard info from the lm method + info_text <- report_info.lm(x, effectsize = effectsize, include_effectsize = include_effectsize, parameters = parameters, ...) + + # Add GLM-specific explainability guidance + model_info <- insight::model_info(x) + explainability_text <- "" + + if (model_info$is_binomial) { + explainability_text <- " For easier interpretation, the odds ratio can be calculated by taking the exponent of the coefficient (e.g., exp(beta))." + } else if (model_info$is_poisson) { + explainability_text <- " For easier interpretation, the rate ratio can be calculated by taking the exponent of the coefficient (e.g., exp(beta))." + } else if (!model_info$is_linear) { + explainability_text <- " For easier interpretation, transformed coefficients can be calculated using the appropriate link function inverse (e.g., exp(beta) for log-link models)." + } + + # Combine the existing info text with the new explainability text + combined_text <- paste0(as.character(info_text), explainability_text) + + # Preserve the summary attribute from the original info_text + summary_text <- summary(info_text) + if (!is.null(explainability_text) && nzchar(explainability_text)) { + summary_text <- paste0(as.character(summary_text), explainability_text) + } + + as.report_info(combined_text, summary = summary_text) +} #' @export report_text.glm <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/DESCRIPTION b/report.Rcheck/00_pkg_src/report/DESCRIPTION new file mode 100644 index 000000000..b5c90b23d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/DESCRIPTION @@ -0,0 +1,105 @@ +Package: report +Type: Package +Title: Automated Reporting of Results and Statistical Models +Version: 0.6.1.3 +Authors@R: + c(person(given = "Dominique", + family = "Makowski", + role = "aut", + email = "dom.makowski@gmail.com", + comment = c(ORCID = "0000-0001-5375-9967")), + person(given = "Daniel", + family = "Lüdecke", + role = "aut", + email = "d.luedecke@uke.de", + comment = c(ORCID = "0000-0002-8895-3206")), + person(given = "Indrajeet", + family = "Patil", + role = "aut", + email = "patilindrajeet.science@gmail.com", + comment = c(ORCID = "0000-0003-1995-6531")), + person(given = "Rémi", + family = "Thériault", + role = c("aut", "cre"), + email = "remi.theriault@mail.mcgill.ca", + comment = c(ORCID = "0000-0003-4315-6788")), + person(given = "Mattan S.", + family = "Ben-Shachar", + role = "aut", + email = "matanshm@post.bgu.ac.il", + comment = c(ORCID = "0000-0002-4287-4801")), + person(given = "Brenton M.", + family = "Wiernik", + role = "aut", + email = "brenton@wiernik.org", + comment = c(ORCID = "0000-0001-9560-6336")), + person(given = "Rudolf", + family = "Siegel", + role = "ctb", + email = "mutlusun@users.noreply.github.com", + comment = c(ORCID = "0000-0002-6021-804X")), + person(given = "Camden", + family = "Bock", + role = "ctb", + email = "camden.bock@maine.edu", + comment = c(ORCID = "0000-0002-3907-7748"))) +Maintainer: Rémi Thériault +Description: The aim of the 'report' package is to bridge the gap between + R’s output and the formatted results contained in your manuscript. + This package converts statistical models and data frames into textual + reports suited for publication, ensuring standardization and quality + in results reporting. +License: MIT + file LICENSE +URL: https://easystats.github.io/report/ +BugReports: https://github.com/easystats/report/issues +Depends: R (>= 3.6) +Imports: bayestestR (>= 0.16.1), effectsize (>= 1.0.1), insight (>= + 1.3.1), parameters (>= 0.27.0), performance (>= 0.15.0), + datawizard (>= 1.2.0), stats, tools, utils +Suggests: BayesFactor, brms, collapse, ivreg, knitr, lavaan, lme4, + dplyr, Formula, rmarkdown, rstanarm, survival, modelbased (>= + 0.9.0), emmeans, marginaleffects (>= 0.25.0), RcppEigen, BH, + testthat (>= 3.2.1) +VignetteBuilder: knitr +Encoding: UTF-8 +Language: en-US +RoxygenNote: 7.3.2 +Config/testthat/edition: 3 +Config/Needs/website: rstudio/bslib, r-lib/pkgdown, + easystats/easystatstemplate +Collate: 'cite_easystats.R' 'format_algorithm.R' 'format_citation.R' + 'format_formula.R' 'format_model.R' 'reexports.R' + 'report-package.R' 'report.BFBayesFactor.R' + 'utils_combine_tables.R' 'report.lm.R' 'report.MixMod.R' + 'report_text.R' 'report.R' 'report.htest.R' 'report.aov.R' + 'report.bayesfactor_models.R' 'report.lme4.R' + 'report.stanreg.R' 'report.brmsfit.R' 'report.character.R' + 'report.compare.loo.R' 'report.compare_performance.R' + 'report.coxph.R' 'report.data.frame.R' 'report.default.R' + 'report.estimate_contrasts.R' 'report.factor.R' 'report.glm.R' + 'report.glmmTMB.R' 'report.ivreg.R' 'report.lavaan.R' + 'report.lme.R' 'report.numeric.R' 'report.sessionInfo.R' + 'report.survreg.R' 'report.test_performance.R' + 'report.zeroinfl.R' 'report_effectsize.R' 'report_htest_chi2.R' + 'report_htest_cor.R' 'report_htest_fisher.R' + 'report_htest_friedman.R' 'report_htest_kruskal.R' + 'report_htest_ttest.R' 'report_htest_wilcox.R' 'report_info.R' + 'report_intercept.R' 'report_misc.R' 'report_model.R' + 'report_parameters.R' 'report_participants.R' + 'report_performance.R' 'report_priors.R' 'report_random.R' + 'report_s.R' 'report_sample.R' 'report_statistics.R' + 'report_table.R' 'utils_error_message.R' 'utils_grouped_df.R' + 'utils_misspelled_variables.R' 'zzz.R' +Roxygen: list(markdown = TRUE) +Remotes: easystats/insight, easystats/bayestestR, easystats/parameters, + easystats/performance +NeedsCompilation: no +Packaged: 2025-08-31 04:12:15 UTC; runner +Author: Dominique Makowski [aut] (), + Daniel Lüdecke [aut] (), + Indrajeet Patil [aut] (), + Rémi Thériault [aut, cre] (), + Mattan S. Ben-Shachar [aut] (), + Brenton M. Wiernik [aut] (), + Rudolf Siegel [ctb] (), + Camden Bock [ctb] () diff --git a/report.Rcheck/00_pkg_src/report/LICENSE b/report.Rcheck/00_pkg_src/report/LICENSE new file mode 100644 index 000000000..ffe84d2e0 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/LICENSE @@ -0,0 +1,2 @@ +YEAR: 2023 +COPYRIGHT HOLDER: report authors diff --git a/report.Rcheck/00_pkg_src/report/NAMESPACE b/report.Rcheck/00_pkg_src/report/NAMESPACE new file mode 100644 index 000000000..b835971fd --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/NAMESPACE @@ -0,0 +1,322 @@ +# Generated by roxygen2: do not edit by hand + +S3method(as.character,report_parameters) +S3method(as.data.frame,report) +S3method(as.report_table,default) +S3method(as.report_table,report) +S3method(as.report_text,default) +S3method(as.report_text,report) +S3method(c,report_table) +S3method(display,report_table) +S3method(format,report_table) +S3method(format_model,character) +S3method(format_model,default) +S3method(print,cite_easystats) +S3method(print,report) +S3method(print,report_effectsize) +S3method(print,report_info) +S3method(print,report_intercept) +S3method(print,report_model) +S3method(print,report_parameters) +S3method(print,report_performance) +S3method(print,report_priors) +S3method(print,report_random) +S3method(print,report_sample) +S3method(print,report_statistics) +S3method(print,report_table) +S3method(print,report_text) +S3method(print_html,report_sample) +S3method(print_md,report_sample) +S3method(report,BFBayesFactor) +S3method(report,Date) +S3method(report,MixMod) +S3method(report,anova) +S3method(report,aov) +S3method(report,aovlist) +S3method(report,bayesfactor_inclusion) +S3method(report,bayesfactor_models) +S3method(report,brmsfit) +S3method(report,character) +S3method(report,compare.loo) +S3method(report,compare_performance) +S3method(report,coxph) +S3method(report,data.frame) +S3method(report,default) +S3method(report,estimate_contrasts) +S3method(report,factor) +S3method(report,glm) +S3method(report,glmmTMB) +S3method(report,grouped_df) +S3method(report,htest) +S3method(report,ivreg) +S3method(report,lavaan) +S3method(report,lm) +S3method(report,lme) +S3method(report,logical) +S3method(report,merMod) +S3method(report,numeric) +S3method(report,sessionInfo) +S3method(report,stanreg) +S3method(report,survreg) +S3method(report,test_performance) +S3method(report,zeroinfl) +S3method(report_effectsize,MixMod) +S3method(report_effectsize,anova) +S3method(report_effectsize,aov) +S3method(report_effectsize,aovlist) +S3method(report_effectsize,brmsfit) +S3method(report_effectsize,coxph) +S3method(report_effectsize,default) +S3method(report_effectsize,glm) +S3method(report_effectsize,glmmTMB) +S3method(report_effectsize,htest) +S3method(report_effectsize,ivreg) +S3method(report_effectsize,lm) +S3method(report_effectsize,lme) +S3method(report_effectsize,merMod) +S3method(report_effectsize,stanreg) +S3method(report_effectsize,survreg) +S3method(report_effectsize,zeroinfl) +S3method(report_info,MixMod) +S3method(report_info,anova) +S3method(report_info,aov) +S3method(report_info,aovlist) +S3method(report_info,brmsfit) +S3method(report_info,coxph) +S3method(report_info,default) +S3method(report_info,glm) +S3method(report_info,glmmTMB) +S3method(report_info,htest) +S3method(report_info,ivreg) +S3method(report_info,lm) +S3method(report_info,lme) +S3method(report_info,merMod) +S3method(report_info,stanreg) +S3method(report_info,survreg) +S3method(report_info,zeroinfl) +S3method(report_intercept,MixMod) +S3method(report_intercept,brmsfit) +S3method(report_intercept,coxph) +S3method(report_intercept,default) +S3method(report_intercept,glm) +S3method(report_intercept,glmmTMB) +S3method(report_intercept,ivreg) +S3method(report_intercept,lm) +S3method(report_intercept,lme) +S3method(report_intercept,merMod) +S3method(report_intercept,stanreg) +S3method(report_intercept,survreg) +S3method(report_intercept,zeroinfl) +S3method(report_model,MixMod) +S3method(report_model,anova) +S3method(report_model,aov) +S3method(report_model,aovlist) +S3method(report_model,brmsfit) +S3method(report_model,coxph) +S3method(report_model,default) +S3method(report_model,glm) +S3method(report_model,glmmTMB) +S3method(report_model,htest) +S3method(report_model,ivreg) +S3method(report_model,lm) +S3method(report_model,lme) +S3method(report_model,merMod) +S3method(report_model,stanreg) +S3method(report_model,survreg) +S3method(report_model,zeroinfl) +S3method(report_parameters,Date) +S3method(report_parameters,MixMod) +S3method(report_parameters,anova) +S3method(report_parameters,aov) +S3method(report_parameters,aovlist) +S3method(report_parameters,brmsfit) +S3method(report_parameters,character) +S3method(report_parameters,compare_performance) +S3method(report_parameters,coxph) +S3method(report_parameters,data.frame) +S3method(report_parameters,default) +S3method(report_parameters,factor) +S3method(report_parameters,glm) +S3method(report_parameters,glmmTMB) +S3method(report_parameters,grouped_df) +S3method(report_parameters,htest) +S3method(report_parameters,ivreg) +S3method(report_parameters,lm) +S3method(report_parameters,lme) +S3method(report_parameters,logical) +S3method(report_parameters,merMod) +S3method(report_parameters,numeric) +S3method(report_parameters,sessionInfo) +S3method(report_parameters,stanreg) +S3method(report_parameters,survreg) +S3method(report_parameters,test_performance) +S3method(report_parameters,zeroinfl) +S3method(report_performance,MixMod) +S3method(report_performance,brmsfit) +S3method(report_performance,coxph) +S3method(report_performance,default) +S3method(report_performance,glm) +S3method(report_performance,glmmTMB) +S3method(report_performance,ivreg) +S3method(report_performance,lavaan) +S3method(report_performance,lm) +S3method(report_performance,lme) +S3method(report_performance,merMod) +S3method(report_performance,stanreg) +S3method(report_performance,survreg) +S3method(report_performance,zeroinfl) +S3method(report_priors,brmsfit) +S3method(report_priors,default) +S3method(report_priors,stanreg) +S3method(report_random,MixMod) +S3method(report_random,brmsfit) +S3method(report_random,default) +S3method(report_random,glmmTMB) +S3method(report_random,lme) +S3method(report_random,merMod) +S3method(report_random,stanreg) +S3method(report_statistics,BFBayesFactor) +S3method(report_statistics,Date) +S3method(report_statistics,MixMod) +S3method(report_statistics,anova) +S3method(report_statistics,aov) +S3method(report_statistics,aovlist) +S3method(report_statistics,brmsfit) +S3method(report_statistics,character) +S3method(report_statistics,compare_performance) +S3method(report_statistics,coxph) +S3method(report_statistics,data.frame) +S3method(report_statistics,default) +S3method(report_statistics,factor) +S3method(report_statistics,glm) +S3method(report_statistics,glmmTMB) +S3method(report_statistics,grouped_df) +S3method(report_statistics,htest) +S3method(report_statistics,ivreg) +S3method(report_statistics,lm) +S3method(report_statistics,lme) +S3method(report_statistics,merMod) +S3method(report_statistics,numeric) +S3method(report_statistics,stanreg) +S3method(report_statistics,survreg) +S3method(report_statistics,test_performance) +S3method(report_statistics,zeroinfl) +S3method(report_table,Date) +S3method(report_table,MixMod) +S3method(report_table,anova) +S3method(report_table,aov) +S3method(report_table,aovlist) +S3method(report_table,bayesfactor_inclusion) +S3method(report_table,bayesfactor_models) +S3method(report_table,brmsfit) +S3method(report_table,character) +S3method(report_table,compare_performance) +S3method(report_table,coxph) +S3method(report_table,data.frame) +S3method(report_table,default) +S3method(report_table,estimate_contrasts) +S3method(report_table,factor) +S3method(report_table,glm) +S3method(report_table,glmmTMB) +S3method(report_table,grouped_df) +S3method(report_table,htest) +S3method(report_table,ivreg) +S3method(report_table,lavaan) +S3method(report_table,lm) +S3method(report_table,lme) +S3method(report_table,logical) +S3method(report_table,merMod) +S3method(report_table,numeric) +S3method(report_table,sessionInfo) +S3method(report_table,stanreg) +S3method(report_table,survreg) +S3method(report_table,test_performance) +S3method(report_table,zeroinfl) +S3method(report_text,Date) +S3method(report_text,MixMod) +S3method(report_text,anova) +S3method(report_text,aov) +S3method(report_text,aovlist) +S3method(report_text,bayesfactor_inclusion) +S3method(report_text,bayesfactor_models) +S3method(report_text,brmsfit) +S3method(report_text,character) +S3method(report_text,compare_performance) +S3method(report_text,coxph) +S3method(report_text,data.frame) +S3method(report_text,default) +S3method(report_text,estimate_contrasts) +S3method(report_text,factor) +S3method(report_text,glm) +S3method(report_text,glmmTMB) +S3method(report_text,grouped_df) +S3method(report_text,htest) +S3method(report_text,ivreg) +S3method(report_text,lm) +S3method(report_text,lme) +S3method(report_text,logical) +S3method(report_text,merMod) +S3method(report_text,numeric) +S3method(report_text,sessionInfo) +S3method(report_text,stanreg) +S3method(report_text,survreg) +S3method(report_text,test_performance) +S3method(report_text,zeroinfl) +S3method(summary,cite_easystats) +S3method(summary,report_effectsize) +S3method(summary,report_info) +S3method(summary,report_intercept) +S3method(summary,report_model) +S3method(summary,report_parameters) +S3method(summary,report_performance) +S3method(summary,report_priors) +S3method(summary,report_random) +S3method(summary,report_statistics) +S3method(summary,report_table) +S3method(summary,report_text) +export(as.report) +export(as.report_effectsize) +export(as.report_info) +export(as.report_intercept) +export(as.report_model) +export(as.report_parameters) +export(as.report_performance) +export(as.report_priors) +export(as.report_random) +export(as.report_statistics) +export(as.report_table) +export(as.report_text) +export(cite_citation) +export(cite_easystats) +export(cite_packages) +export(clean_citation) +export(display) +export(format_algorithm) +export(format_citation) +export(format_formula) +export(format_model) +export(is.report) +export(print_html) +export(print_md) +export(report) +export(report_date) +export(report_effectsize) +export(report_info) +export(report_intercept) +export(report_model) +export(report_packages) +export(report_parameters) +export(report_participants) +export(report_performance) +export(report_priors) +export(report_random) +export(report_s) +export(report_sample) +export(report_statistics) +export(report_story) +export(report_system) +export(report_table) +export(report_text) +importFrom(insight,display) +importFrom(insight,print_html) +importFrom(insight,print_md) diff --git a/report.Rcheck/00_pkg_src/report/NEWS.md b/report.Rcheck/00_pkg_src/report/NEWS.md new file mode 100644 index 000000000..869cc9225 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/NEWS.md @@ -0,0 +1,201 @@ +# report 0.6.x + +New features + +* `report.glm()`: added explainability guidance for interpreting GLM coefficients (odds ratios for binomial models, rate ratios for Poisson models) to help users understand how to transform coefficients for easier interpretation (#484) + +Bug fixes + +* Enhanced copilot environment setup with complete reprex dependency management (pandoc, knitr, rmarkdown, clipr) to prevent "reprex appears to crash R" errors +* Added CLIPR_ALLOW=TRUE environment variable configuration in reprex testing to ensure stable operation +* Updated copilot instructions with comprehensive reprex debugging guide and imgur integration workflow for GitHub Copilot agents +* Fixed issue with missing effect size for the Intercept term in type 3 anova tables (#451) + +# report 0.6.1 + +Bug fixes + +* Fixed CRAN check failures. + +# report 0.6.0 + +Minor changes +* `report_htest_chi2` stops supporting rule "chen2010" (following change in `effectsize`). + +# report 0.5.9 + +Breaking + +* Arguments named `group`, `at` and `group_by` will be deprecated in future + releases. of _easystats_ packages. Please use `by` instead. This affects + following functions in *report*: + + * `report_participants()` + * `report_sample()` + +Minor changes + +* `report` now supports reporting of Bayesian model comparison with variables of class `brms::loo_compare`. +* `report` now supports reporting of BayesFactor objects with variables of class `BFBayesFactor`. +* `report_sample()` now suggests valid column names for misspelled columns in the `select`, `by`, `weights` and `exclude` arguments. + +Bug fixes + +* Fixed issues with incorrectly passing additional arguments to downstream + functions in `report()` for `htest` objects. + +# report 0.5.8 + +New features + +* `report_s()` to report the interpretation of S- and p-values in an easy-to-understand + language. + +Major Changes + +* This release changes the licensing model of `{report}` to an MIT license. + +Minor changes + +* `report` now supports variables of class `htest` for the Chi2, Friedman test, Fisher's exact test, and Kruskal-Wallis. + +* `report` now supports variables of class `Date`, treating them like factors. + +* `report` now supports objects of class `estimate_contrasts`, from easystats' + `modelbased::estimate_contrasts`, outputting either the results in text form, + or as a table. + +* `report_sample` + * now reports the weighted number of observations when data + is both grouped an weighted. + * gains `ci`, `ci_method` and `ci_adjust` arguments, to compute + confidence intervals for proportions of factor levels. Currently, two different + methods (*Wald* and *Wilson*) are available. + * now works on grouped data frame, using the defined groups as + values for the `group_by` argument. + * can now summarize data based on more than one grouping variable + (i.e. `group_by` is allowed to be longer than 1). + +* The `print` method for `report_sample` gains a `layout` argument, to print + tables either in `"horizontal"` or `"vertical"` layout. + +Bug fixes + +* Fixed issue in `report_participants`, which did not print the `"gender"` + category for grouped output when that argument was written in lower-case. + Gender now also supports more alternate spellings, and age converts the + respective column to numeric. + +* Fixed printing issue for intercept-only models. + +# report 0.5.7 + +Hotfix for CRAN reverse dependency compatibility. + +# report 0.5.6 + +Breaking Changes + +- The minimum needed R version has been bumped to `3.6`. + +Minor changes + +* `report_sample` improvement + * Gains an `n` argument to also optionally include sample size. + * Fixes bug whereas the `total` parameter was not respected. + +* `report_effectsize` improvement + * For `t.test` (htest) objects, now support the `type` (one of `c("d", "g")`) + and `rules` (one of `c"cohen1988", "sawilowsky2009", "gignac2016")`) + arguments. + +# report 0.5.5 + +BREAKING CHANGES + +* The minimum needed R version is now bumped to 3.5. + +Minor changes + +* `report_participants` improvement (@rempsyc, #260) + + * Now correctly reports NA values as % missing + + * Adds support for country and race demographic information + +BUG FIXES + +* Fixed bug with truncated output about confidence interval distribution in + `report()`. + +# report 0.5.1 + +* Hotfix release to fix failing tests and to unarchive package on CRAN. + +# report 0.5.0 + +BREAKING CHANGES + +* The following functions have been removed from `{report}` and now live in + [`{datawizard}`](https://easystats.github.io/datawizard/reference/index.html) + package: + +Data wrangling helpers: + +- `data_addprefix()` + +- `data_addsuffix()` + +- `data_findcols()` + +- `data_remove()` + +- `data_rename()` + +- `data_reorder()` + +Text formatting helpers: + +- `format_text()` + +- `text_fullstop()` + +- `text_lastchar()` + +- `text_concatenate()` + +- `text_paste()` + +- `text_remove()` + +- `text_wrap()` + +MAJOR CHANGES + +* Reporting participant's sex/gender information has improved (thanks to + @drfeinberg, #212) + + - Separated sex and gender into different searches/columns + + - Sex is reported % female, % male, % other, % missing if any cases are missing + + - Gender is reported % Women, % Men, % Non-Binary, % missing if any cases are missing + + - Age reports % missing if any cases are missing. + +# report 0.4.0 + +* Maintenance release. + +# report 0.3.5 + +* Fixed issue with possibly wrong numbers in the `total` column from + `report_sample()`, when grouping variable contained missing values. + +# report 0.3.1 + +* Added support for models of class `ivreg` (*ivreg*). + +# report 0.3.0 + +* Initial release of the package. diff --git a/report.Rcheck/00_pkg_src/report/R/cite_easystats.R b/report.Rcheck/00_pkg_src/report/R/cite_easystats.R new file mode 100644 index 000000000..d9f1b0baf --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/cite_easystats.R @@ -0,0 +1,441 @@ +#' Cite the easystats ecosystem +#' +#' A convenient function for those who wish to cite the easystats packages. +#' +#' @param packages A character vector of packages to cite. Can be `"all"` for +#' all *easystats* pacakges or a vector with specific package names. +#' @param format The format to generate citations. Can be `"text"` for plain text, +#' `"markdown"` for markdown citations and CSL bibliography (recommended for +#' writing in RMarkdown), or `"biblatex"` for BibLaTeX citations and bibliography. +#' @param intext_prefix A character vector of length 1 containing text to include +#' before in-text citations. If `TRUE`, defaults to `"Analyses were conducted +#' using the easystats collection of packages "`. If `FALSE` or `NA`, no prefix +#' is included. +#' @param intext_suffix A character vector of length 1 containing text to include +#' after in-text citations. Defaults to `"."`. If `FALSE` or `NA`, no suffix +#' is included. +#' @param x,object A `"cite_easystats"` object to print. +#' @param what What elements of the citations to print, can be `"all"`, `"intext"`, or `"refs"`. +#' @param ... Not used. Included for compatibility with the generic function. +#' +#' @return A list of class `"cite_easystats"` with elements: +#' - `intext`: In-text citations in the requested `format` +#' - `refs`: References or bibliography in the requested `format` +#' +#' @examples +#' \donttest{ +#' # Cite just the 'easystats' umbrella package: +#' cite_easystats() +#' summary(cite_easystats(), what = "all") +#' +#' # Cite every easystats package: +#' cite_easystats(packages = "all") +#' summary(cite_easystats(packages = "all"), what = "all") +#' +#' # Cite specific packages: +#' cite_easystats(packages = c("modelbased", "see")) +#' summary(cite_easystats(packages = c("modelbased", "see")), what = "all") +#' +#' # To cite easystats packages in an RMarkdown document, use: +#' +#' ## In-text citations: +#' print(cite_easystats(format = "markdown"), what = "intext") +#' +#' ## Bibliography (print with the `output = 'asis'` option on the code chunk) +#' print(cite_easystats(format = "markdown"), what = "refs") +#' } +#' +#' @export +cite_easystats <- function(packages = "easystats", + format = c("text", "markdown", "biblatex"), + intext_prefix = TRUE, + intext_suffix = ".") { + format <- match.arg(format, choices = c("text", "markdown", "biblatex")) + installed_packages <- utils::installed.packages()[, "Version"] + if (length(packages) == 1 && packages == "all") { + packages <- c( + "easystats", "insight", "datawizard", "bayestestR", + "performance", "parameters", "effectsize", "correlation", + "modelbased", "see", "report" + ) + packages <- packages[packages %in% names(installed_packages)] + } else if (length(packages) == 1 && packages == "easystats") { + if (!packages %in% names(installed_packages)) { + installed_packages <- c(easystats = "") + } + } else { + missing_packages <- setdiff(packages, names(installed_packages)) + if (length(missing_packages)) { + message(insight::format_message( + "Requested package(s) not installed:", + toString(missing_packages), + "Citations to these packages omitted." + )) + packages <- setdiff(packages, missing_packages) + } + } + + + # in-text + if (format == "text") { + letters_ludeckePackages <- .disamguation_letters(c( + "easystats", "insight", + "performance", "parameters", + "see" + ) %in% packages) + if (sum(letters_ludeckePackages != "") == 1) { + letters_ludeckePackages <- rep("", length(letters_ludeckePackages)) + } + letters_ludeckeArticles <- .disamguation_letters(c("performance", "see") %in% packages) + if (sum(letters_ludeckeArticles != "") == 1) { + letters_ludeckeArticles <- rep("", length(letters_ludeckeArticles)) + } + letters_makowskiPackages <- .disamguation_letters(c( + "datawizard", "bayestestR", + "correlation", "modelbased", + "report" + ) %in% packages) + if (sum(letters_makowskiPackages != "") == 1) { + letters_makowskiPackages <- rep("", length(letters_makowskiPackages)) + } + easystats <- "_easystats_" + cit_packages <- sprintf( + "(%s)", + toString(c( + easystats = sprintf("L\u00fcdecke et al., 2019/2023%s", letters_ludeckePackages[1]), + insight = sprintf("L\u00fcdecke et al., 2019, 2019/2022%s", letters_ludeckePackages[2]), + datawizard = sprintf("Makowski et al., 2021/2022%s", letters_makowskiPackages[1]), + bayestestR = sprintf("Makowski et al., 2019, 2019/2022%s", letters_makowskiPackages[2]), + performance = sprintf( + "L\u00fcdecke et al., 2021%s, 2019/2022%s", + letters_ludeckeArticles[1], letters_ludeckePackages[3] + ), + parameters = sprintf("L\u00fcdecke et al., 2020, 2019/2022%s", letters_ludeckePackages[4]), + effectsize = "Ben-Shachar et al., 2020, 2019/2022", + correlation = sprintf("Makowski et al., 2020, 2020/2022%s", letters_makowskiPackages[3]), + modelbased = sprintf("Makowski et al., 2020/2022%s", letters_makowskiPackages[4]), + see = sprintf( + "L\u00fcdecke et al., 2021%s, 2019/2022%s", + letters_ludeckeArticles[2], letters_ludeckePackages[5] + ), + report = sprintf("Makowski et al., 2021/2023%s", letters_makowskiPackages[5]) + )[packages]) + ) + } else if (format == "markdown") { + easystats <- "_easystats_" + cit_packages <- sprintf( + "[%s]", + toString(c( + easystats = "@easystatsPackage", + insight = "@insightArticle, @insightPackage", + datawizard = "@datawizardPackage", + bayestestR = "@bayestestRArticle, @bayestestRPackage", + performance = "@performanceArticle, @performancePackage", + parameters = "@parametersArticle, @parametersPackage", + effectsize = "@effectsizeArticle, @effectsizePackage", + correlation = "@correlationArticle, @correlationPackage", + modelbased = "@modelbasedPackage", + see = "@seeArticle, @seePackage", + report = "@reportPackage" + )[packages]) + ) + } else { + easystats <- "\\emph{easystats}" + cit_packages <- sprintf( + "\\cite{%s}", + toString(c( + easystats = "easystatsPackage", + insight = "insightArticle, insightPackage", + datawizard = "datawizardPackage", + bayestestR = "bayestestRArticle, bayestestRPackage", + performance = "performanceArticle, performancePackage", + parameters = "parametersArticle, parametersPackage", + effectsize = "effectsizeArticle, effectsizePackage", + correlation = "correlationArticle, correlationPackage", + modelbased = "modelbasedPackage", + see = "seeArticle, seePackage", + report = "reportPackage" + )[packages]) + ) + } + + if (isTRUE(intext_prefix)) { + intext_prefix <- sprintf("Analyses were conducted using the %s collection of packages ", easystats) + } else if (isFALSE(intext_prefix)) { + intext_prefix <- "" + } + if (isTRUE(intext_suffix)) { + intext_suffix <- "." + } + if (isFALSE(intext_suffix) || is.na(intext_suffix)) { + intext_suffix <- "" + } + intext <- sprintf("%s%s%s", intext_prefix, cit_packages, intext_suffix) + + + # references + if (format == "text") { + ref_packages <- paste0( + "- ", + sort(unlist(list( + easystats = sprintf( + paste( + "L\u00fcdecke, D., Makowski, D., Ben-Shachar, M. S., Patil, I., Wiernik, B. M.,", + "Bacher, Etienne, & Th\U00E9riault, R. (2023).", + "easystats: Streamline model interpretation, visualization, and reporting%s [R package].", + "https://easystats.github.io/easystats/ (Original work published 2019)" + ), + ifelse(installed_packages["easystats"] == "", "", paste0(" (", installed_packages["easystats"], ")")) + ), + insight = c( + article = paste( + "L\u00fcdecke, D., Waggoner, P., & Makowski, D. (2019).", + "insight: A unified interface to access information from model objects in R.", + "Journal of Open Source Software, 4(38), 1412. https://doi.org/10.21105/joss.01412" + ), + package = sprintf( + paste( + "L\u00fcdecke, D., Makowski, D., Patil, I., Waggoner,", + "P., Ben-Shachar, M. S., Wiernik, B. M., & Arel-Bundock, V. (2022).", + "insight: Easy access to model information for various model objects (%s) [R package].", + "https://CRAN.R-project.org/package=insight (Original work published 2019)" + ), + installed_packages["insight"] + ) + ), + datawizard = sprintf( + paste( + "Makowski, D., L\u00fcdecke, D., Patil, I., Ben-Shachar, M. S., & Wiernik, B. M. (2022).", + "datawizard: Easy data wrangling (%s) [R package].", + "https://CRAN.R-project.org/package=datawizard (Original work published 2021)" + ), + installed_packages["datawizard"] + ), + bayestestR = c( + article = paste( + "Makowski, D., Ben-Shachar, M., & L\u00fcdecke, D. (2019).", + "bayestestR: Describing effects and their uncertainty, existence", + "and significance within the Bayesian framework.", + "Journal of Open Source Software, 4(40), 1541. https://doi.org/10.21105/joss.01541" + ), + package = sprintf( + paste( + "Makowski, D., L\u00fcdecke, D., Ben-Shachar, M. S., Patil, I.,", + "Wilson, M. D., & Wiernik, B. M. (2021).", + "bayestestR: Understand and describe Bayesian models and posterior distributions (%s) [R package].", + "https://CRAN.R-project.org/package=bayestestR (Original work published 2019)" + ), + installed_packages["bayestestR"] + ) + ), + performance = c( + article = paste( + "L\u00fcdecke, D., Ben-Shachar, M., Patil, I., Waggoner, P., & Makowski, D. (2021).", + "performance: An R package for assessment, comparison and testing of statistical models.", + "Journal of Open Source Software, 6(60), 3139. https://doi.org/10.21105/joss.03139" + ), + package = sprintf( + paste( + "L\u00fcdecke, D., Makowski, D., Ben-Shachar, M. S., Patil,", + "I., Waggoner, P., & Wiernik, B. M. (2021).", + "performance: Assessment of regression models performance (%s) [R package].", + "https://CRAN.R-project.org/package=performance (Original work published 2019)" + ), + installed_packages["performance"] + ) + ), + parameters = c( + article = paste( + "L\u00fcdecke, D., Ben-Shachar, M., Patil, I., & Makowski, D. (2020).", + "Extracting, computing and exploring the parameters of statistical models using R.", + "Journal of Open Source Software, 5(53), 2445. https://doi.org/10.21105/joss.02445" + ), + package = sprintf( + paste( + "L\u00fcdecke, D., Makowski, D., Ben-Shachar, M. S., Patil, I.,", + "H\u00F8jsgaard, S., & Wiernik, B. M. (2022).", + "parameters: Processing of model parameters (%s) [R package].", + "https://CRAN.R-project.org/package=parameters (Original work published 2019)" + ), + installed_packages["parameters"] + ) + ), + effectsize = c( + article = paste( + "Ben-Shachar, M. S., L\u00fcdecke, D., & Makowski, D. (2020).", + "effectsize: Estimation of effect size indices and standardized parameters.", + "Journal of Open Source Software, 5(56), 2815. https://doi.org/10.21105/joss.02815" + ), + package = sprintf( + paste( + "Ben-Shachar, M. S., Makowski, D., L\u00fcdecke, D., Patil, I., & Wiernik, B. M. (2022).", + "effectsize: Indices of effect size and standardized parameters (%s) [R package].", + "https://CRAN.R-project.org/package=effectsize (Original work published 2019)" + ), + installed_packages["effectsize"] + ) + ), + correlation = c( + article = paste( + "Makowski, D., Ben-Shachar, M., Patil, I., & L\u00fcdecke, D. (2020).", + "Methods and algorithms for correlation analysis in R.", + "Journal of Open Source Software, 5(51), 2306. https://doi.org/10.21105/joss.02306" + ), + package = sprintf( + paste( + "Makowski, D., Wiernik, B. M., Patil, I., L\u00fcdecke, D., & Ben-Shachar, M. S. (2022).", + "correlation: Methods for correlation analysis (%s) [R package].", + "https://CRAN.R-project.org/package=correlation (Original work published 2020)" + ), + installed_packages["correlation"] + ) + ), + modelbased = sprintf( + paste( + "Makowski, D., L\u00fcdecke, D., Ben-Shachar, M. S., & Patil, I. (2022).", + "modelbased: Estimation of model-based predictions, contrasts and means (%s) [R package].", + "https://CRAN.R-project.org/package=modelbased (Original work published 2020)" + ), + installed_packages["modelbased"] + ), + see = c( + article = paste( + "L\u00fcdecke, D., Patil, I., Ben-Shachar, M. S., Wiernik,", + "B. M., Waggoner, P., & Makowski, D. (2021).", + "see: An R package for visualizing statistical models.", + "Journal of Open Source Software, 6(64), 3393. https://doi.org/10.21105/joss.03393" + ), + package = sprintf( + paste( + "L\u00fcdecke, D., Makowski, D., Patil, I., Ben-Shachar, M. S., Wiernik,", + "B. M., & Waggoner, P. (2022).", + "see: Visualisation toolbox for 'easystats' (%s) [R package].", + "https://CRAN.R-project.org/package=see (Original work published 2019)" + ), + installed_packages["see"] + ) + ), + report = sprintf( + paste( + "Makowski, D., L\u00fcdecke, D., Patil, I., Th\U00E9riault, R., Ben-Shachar, M. S.,", + "& Wiernik, B. M. (2023).", + "report: Automated reporting of results and statistical models (%s) [R package].", + "https://easystats.github.io/easystats/ (Original work published 2021)" + ), + installed_packages["report"] + ) + )[packages])), + "\n" + ) + } else if (format == "markdown") { + ref_packages <- readLines(system.file("easystats_bib.yaml", package = "report")) + ref_packages[ref_packages == " version: %s"] <- sprintf( + ref_packages[ref_packages == " version: %s"], + c( + installed_packages["bayestestR"], installed_packages["correlation"], + installed_packages["datawizard"], installed_packages["easystats"], + installed_packages["effectsize"], installed_packages["insight"], + installed_packages["modelbased"], installed_packages["parameters"], + installed_packages["performance"], installed_packages["report"], + installed_packages["see"] + ) + ) + ref_packages <- list( + ref_packages[1:2], + ref_packages[-c(1:2, length(ref_packages))], + ref_packages[length(ref_packages)] + ) + ref_packages[[2]] <- split(ref_packages[[2]], cumsum(ref_packages[[2]] == "")) + ref_packages.index <- grep(paste0("id: ((", paste(packages, collapse = ")|("), "))"), ref_packages[[2]]) + ref_packages[[2]] <- unlist(ref_packages[[2]][ref_packages.index], use.names = FALSE) + ref_packages <- paste(unlist(ref_packages, use.names = FALSE), collapse = "\n") + } else { + ref_packages <- readLines(system.file("easystats_bib.bib", package = "report")) + ref_packages[ref_packages == " version = {%s}"] <- sprintf( + ref_packages[ref_packages == " version = {%s}"], + c( + installed_packages["bayestestR"], installed_packages["correlation"], + installed_packages["datawizard"], installed_packages["easystats"], + installed_packages["effectsize"], installed_packages["insight"], + installed_packages["modelbased"], installed_packages["parameters"], + installed_packages["performance"], installed_packages["report"], + installed_packages["see"] + ) + ) + ref_packages <- split(ref_packages, cumsum(ref_packages == "")) + ref_packages.index <- grep(paste0( + "((article)|(software))\\{((", + paste(packages, collapse = ")|("), "))" + ), ref_packages) + ref_packages <- unlist(ref_packages[ref_packages.index], use.names = FALSE) + ref_packages <- paste(unlist(ref_packages, use.names = FALSE), collapse = "\n") + } + + + out <- list( + intext = intext, + refs = ref_packages + ) + + class(out) <- c("cite_easystats", class(out)) + out +} + + +#' @export +#' @rdname cite_easystats +summary.cite_easystats <- function(object, what = "all", ...) { + what <- match.arg(what, choices = c("all", "cite", "intext", "bib", "refs")) + what <- switch(what, + all = "all", + cite = , + intext = "intext", + bib = , + refs = "refs" + ) + if (what == "all") { + insight::print_colour("\nCitations\n----------\n\n", "blue") + cat(strwrap(object$intext, exdent = 0, width = 0.95 * getOption("width")), sep = "\n") + cat("\n") + insight::print_colour("\nReferences\n----------\n\n", "blue") + cat(unlist(lapply(object$refs, strwrap, exdent = 4, width = 0.95 * getOption("width"))), sep = "\n") + cat("\n") + } else if (what == "intext") { + cat(strwrap(object$intext, exdent = 0, width = 0.95 * getOption("width")), sep = "\n") + } else if (what == "refs") { + cat(unlist(lapply(object$refs, strwrap, exdent = 4, width = 0.95 * getOption("width"))), sep = "\n") + } +} + + +#' @export +#' @rdname cite_easystats +print.cite_easystats <- function(x, what = "all", ...) { + what <- match.arg(what, choices = c("all", "cite", "intext", "bib", "refs")) + what <- switch(what, + all = "all", + cite = , + intext = "intext", + bib = , + refs = "refs" + ) + if (what == "all") { + insight::print_colour(sprintf( + "Thanks for crediting us! %s You can cite the easystats ecosystem as follows:", + ifelse(.support_unicode, "\U1F600", ":)") + ), "blue") + cat("\n") + } + summary(x, what = what, ...) +} + + +.disamguation_letters <- function(x) { + if (!is.logical(x)) { + stop("`x` must be a logical vector.", call. = FALSE) + } + count <- sum(x) + x[!x] <- "" + x[x != ""] <- letters[seq_len(count)] + x +} diff --git a/report.Rcheck/00_pkg_src/report/R/format_algorithm.R b/report.Rcheck/00_pkg_src/report/R/format_algorithm.R new file mode 100644 index 000000000..ecf11d275 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/format_algorithm.R @@ -0,0 +1,73 @@ +#' @rdname format_formula +#' @examples +#' model <- lm(Sepal.Length ~ Species, data = iris) +#' format_algorithm(model) +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +#' format_algorithm(model) +#' @return A character string. +#' @export +format_algorithm <- function(x) { + algorithm <- suppressWarnings(insight::find_algorithm(x)) + + text <- "" + + if (is.null(algorithm$algorithm)) { + return(text) + } + + # Name + text <- algorithm$algorithm + if (text == "sampling") { + text <- "MCMC sampling" + } + + # Chains + if (!is.null(algorithm$chains)) { + text <- paste0( + text, + " with ", + algorithm$chains, + " chains" + ) + if (!is.null(algorithm$iterations)) { + text <- paste0( + text, + " of ", + algorithm$iterations, + " iterations" + ) + } + if (!is.null(algorithm$warmup)) { + text <- paste0( + text, + " and a warmup of ", + algorithm$warmup + ) + } + # Thinning? + } + + # Optimizer + if (!is.null(algorithm$optimizer)) { + optimizer <- algorithm$optimizer[1] + + if (optimizer == "bobyqa") { + optimizer <- "BOBYQA" + } + if (optimizer == "Nelder_Mead") { + optimizer <- "Nelder-Mead" + } + text <- paste0( + text, + " and ", + optimizer, + " optimizer" + ) + } + + text +} diff --git a/report.Rcheck/00_pkg_src/report/R/format_citation.R b/report.Rcheck/00_pkg_src/report/R/format_citation.R new file mode 100644 index 000000000..dd3d6c2df --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/format_citation.R @@ -0,0 +1,82 @@ +#' Citation formatting +#' +#' Convenience functions to manipulate and format citations. Only works with APA +#' formatted citations, for now. +#' +#' @param citation A character string of a citation. +#' @param authorsdate Only show authors and date (remove title, journal, etc.). +#' @param short If more than one authors, replace by `et al.` +#' @param intext Remove brackets around the date (so that it can be placed +#' inside larger parentheses). +#' +#' @return A character string. +#' +#' @examples +#' library(report) +#' +#' citation <- "Makowski, D., Ben-Shachar, M. S., Patil, I., & Ludecke, D. (2020). +#' Methods and Algorithms for Correlation Analysis in R. Journal of Open Source +#' Software, 5(51), 2306." +#' +#' format_citation(citation, authorsdate = TRUE) +#' format_citation(citation, authorsdate = TRUE, short = TRUE) +#' format_citation(citation, authorsdate = TRUE, short = TRUE, intext = TRUE) +#' +#' cite_citation(citation) +#' clean_citation(citation()) +#' @export +format_citation <- function(citation, + authorsdate = FALSE, + short = FALSE, + intext = FALSE) { + if (isTRUE(authorsdate)) { + citation <- trimws(gsub(")..*", ")", citation)) # Remove everything after first parenthesis (hopefully, the date) + citation <- gsub("[A-Z]\\., ", "", citation) # Remove last first names + citation <- gsub("[A-Z]\\. ", "", citation) # Remove remaining first names + citation <- gsub(", (", " (", citation, fixed = TRUE) + } + + if (isTRUE(short)) { + n_authors <- lengths(regmatches(citation, gregexpr(",", citation, fixed = TRUE))) + for (i in seq_along(n_authors)) { + if (n_authors[i] > 1 || grepl("&", citation[i], fixed = TRUE)) { + citation[i] <- trimws(gsub(",.*\\(", " et al. (", citation[i])) # Replace remaining authors by et al. + } + } + } + + if (isTRUE(intext)) { + citation <- trimws(gsub(").*", "", citation)) + citation <- trimws(gsub(" (", ", ", citation, fixed = TRUE)) + } + + citation +} + + +#' @rdname format_citation +#' @export +cite_citation <- function(citation) { + citation <- format_citation(citation, authorsdate = TRUE, short = TRUE, intext = TRUE) + paste0("(", citation, ")") +} + + +#' @rdname format_citation +#' @export +clean_citation <- function(citation) { + if (isTRUE(inherits(citation, "citation"))) { + citation <- format(citation, + style = "text" + ) + } + citation <- unlist(strsplit(citation, "\n", fixed = TRUE)) + citation <- paste(citation, collapse = "SPLIT") + citation <- unlist(strsplit(citation, "SPLITSPLIT", fixed = TRUE)) + i <- 1 + while (grepl("To cite ", citation[i], fixed = TRUE)) { + i <- i + 1 + } + citation <- gsub(" ", " ", trimws(gsub("SPLIT", " ", citation[i], fixed = TRUE), which = "both"), fixed = TRUE) + as.character(citation) +} diff --git a/report.Rcheck/00_pkg_src/report/R/format_formula.R b/report.Rcheck/00_pkg_src/report/R/format_formula.R new file mode 100644 index 000000000..36e6eb613 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/format_formula.R @@ -0,0 +1,22 @@ +#' Convenient formatting of text components +#' +#' @inheritParams report +#' @param what The name of the item returned by `insight::find_formula`. +#' +#' @return A character string. +#' +#' @examples +#' model <- lm(Sepal.Length ~ Species, data = iris) +#' format_formula(model) +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +#' format_formula(model) +#' format_formula(model, "random") +#' @export +format_formula <- function(x, what = "conditional") { + f <- insight::safe_deparse(insight::find_formula(x, verbose = FALSE)[[what]]) + paste0("formula: ", paste(f, collapse = " + ")) +} diff --git a/report.Rcheck/00_pkg_src/report/R/format_model.R b/report.Rcheck/00_pkg_src/report/R/format_model.R new file mode 100644 index 000000000..3221ebcc3 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/format_model.R @@ -0,0 +1,102 @@ +#' @rdname format_formula +#' @examples +#' model <- lm(Sepal.Length ~ Species, data = iris) +#' format_model(model) +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +#' format_model(model) +#' @return A character string. +#' @export +format_model <- function(x) { + UseMethod("format_model") +} + +#' @export +format_model.default <- function(x) { + info <- insight::model_info(x) + + if (suppressWarnings(insight::is_nullmodel(x))) { + type <- "constant (intercept-only) " + } else { + type <- "" + } + + if (inherits(x, "Mclust")) { + return("Gaussian finite mixture fitted by EM algorithm") + } + + if (info$is_bayesian) { + type <- paste0(type, "Bayesian ") + } + + if (info$is_zero_inflated) { + type <- paste0(type, "zero-inflated ") + } else if (info$is_hurdle) { + type <- paste0(type, "hurdle ") + } + + if (info$is_logit) { + type <- paste0(type, "logistic ") + } else if (info$is_probit) { + type <- paste0(type, "probit ") + } else if (info$is_linear) { + type <- paste0(type, "linear ") + } else if (info$is_poisson) { + type <- paste0(type, "poisson ") + } else if (info$is_negbin) { + type <- paste0(type, "negative-binomial ") + } else if (info$is_ordinal) { + type <- paste0(type, "ordinal ") + } else if (info$is_multinomial) { + type <- paste0(type, "multinomial ") + } else if (info$is_survival) { + type <- paste0(type, "survival ") + } else { + type <- paste0(type, "general linear ") + } + + if (info$is_mixed) { + type <- paste0(type, "mixed ") + } + + type <- paste0(type, "model") + + if (grepl("general linear", type, fixed = TRUE)) { + type <- paste0( + type, + " (", + info$family, + " family with a ", + info$link_function, + " link)" + ) + } + + type +} + + +#' @export +format_model.character <- function(x) { + if (x == "lm") { + type <- "linear model" + } else if (x == "glm") { + type <- "general linear model" + } else if (x == "glm") { + type <- "general linear model" + } else if (x == "lmer") { + type <- "linear mixed model" + } else if (x == "glmer") { + type <- "general linear mixed model" + } else if (x == "gam") { + type <- "general additive model" + } else if (x == "gamm") { + type <- "general additive mixed model" + } else { + "model" + } + type +} diff --git a/report.Rcheck/00_pkg_src/report/R/reexports.R b/report.Rcheck/00_pkg_src/report/R/reexports.R new file mode 100644 index 000000000..eff24b19c --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/reexports.R @@ -0,0 +1,13 @@ +# ----------------------- insight ------------------------------------- + +#' @importFrom insight print_html +#' @export +insight::print_html + +#' @importFrom insight print_md +#' @export +insight::print_md + +#' @importFrom insight display +#' @export +insight::display diff --git a/report.Rcheck/00_pkg_src/report/R/report-package.R b/report.Rcheck/00_pkg_src/report/R/report-package.R new file mode 100644 index 000000000..cdb74bb7f --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report-package.R @@ -0,0 +1,18 @@ +#' \code{report-package} +#' +#' @title report: Automated Results Reporting as a Practical Tool to Improve +#' Reproducibility and Methodological Best Practices Adoption +#' +#' @description +#' +#' **report**’s primary goal is to bridge the gap between R’s output and +#' the formatted results contained in your manuscript. It automatically produces +#' reports of models and data frames according to **best practices** guidelines +#' (e.g., [APA](https://apastyle.apa.org/)’s style), ensuring **standardization** +#' and **quality** in results reporting. +#' +#' @docType package +#' @aliases report-package +#' @name report-package +#' @keywords internal +"_PACKAGE" diff --git a/report.Rcheck/00_pkg_src/report/R/report.BFBayesFactor.R b/report.Rcheck/00_pkg_src/report/R/report.BFBayesFactor.R new file mode 100644 index 000000000..2f7fc65b1 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.BFBayesFactor.R @@ -0,0 +1,86 @@ +#' Reporting `BFBayesFactor` objects from the `BayesFactor` package +#' +#' Interpretation of the Bayes factor output from the `BayesFactor` package. +#' +#' @param x An object of class `BFBayesFactor`. +#' @param h0,h1 Names of the null and alternative hypotheses. +#' @param table A `parameters` table (this argument is meant for internal use). +#' @param ... Other arguments to be passed to [effectsize::interpret_bf] and [insight::format_bf]. +#' +#' @examplesIf requireNamespace("BayesFactor", quietly = TRUE) +#' \donttest{ +#' library(BayesFactor) +#' +#' rez <- BayesFactor::ttestBF(iris$Sepal.Width, iris$Sepal.Length) +#' report_statistics(rez, exact = TRUE) # Print exact BF +#' report(rez, h0 = "the null hypothesis", h1 = "the alternative") +#' +#' rez <- BayesFactor::correlationBF(iris$Sepal.Width, iris$Sepal.Length) +#' report(rez) +#' } +#' +#' @export +report.BFBayesFactor <- function(x, h0 = "H0", h1 = "H1", ...) { + if (inherits("BFlinearModel", class(x@numerator[[1]]))) { + return(report(bayestestR::bayesfactor_models(x), ...)) + } + + if (length(x@numerator) > 1) { + insight::format_alert( + "Multiple `BFBayesFactor` models detected - reporting for the first numerator model.", + "See help(\"get_parameters\", package = \"insight\")." + ) + x <- x[1] + } + + param <- parameters::parameters(x[1], ...) + bf <- param$BF + other_dir <- ifelse(bf < 1, "h0", "h1") + + + if (other_dir == "h1") { + other_text <- paste0( + "There is ", + effectsize::interpret_bf(bf, ...), + " ", + h1, + " over ", + h0, + " (", report_statistics(x, ...), ")." + ) + } else { + other_text <- paste0( + "There is ", + effectsize::interpret_bf(1 / bf, ...), + " ", + h0, + " over ", + h1, + " (", report_statistics(x, ...), ")." + ) + } + other_text +} + + +#' @rdname report.BFBayesFactor +#' @export +report_statistics.BFBayesFactor <- function(x, table = NULL, ...) { + if (is.null(table)) { + if (length(x@numerator) > 1) { + insight::format_alert( + "Multiple `BFBayesFactor` models detected - reporting for the first numerator model.", + "See help(\"get_parameters\", package = \"insight\")." + ) + x <- x[1] + } + table <- parameters::parameters(x, ...) + } + + bf <- table$BF + other_text <- ifelse(bf < 1, + insight::format_bf(1 / bf, name = "BF01", ...), + insight::format_bf(bf, name = "BF10", ...) + ) + other_text +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.MixMod.R b/report.Rcheck/00_pkg_src/report/R/report.MixMod.R new file mode 100644 index 000000000..5fe0de135 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.MixMod.R @@ -0,0 +1,44 @@ +#' @include report.lm.R +#' @export +report.MixMod <- report.lm + +#' @export +report_effectsize.MixMod <- report_effectsize.lm + +#' @export +report_table.MixMod <- report_table.lm + +#' @export +report_performance.MixMod <- report_performance.lm + +#' @export +report_statistics.MixMod <- report_statistics.lm + +#' @export +report_parameters.MixMod <- report_parameters.lm + +#' @export +report_intercept.MixMod <- report_intercept.lm + +#' @export +report_random.MixMod <- function(x, ...) { + random_terms <- insight::find_terms(x)$random + if (!is.null(random_terms)) { + text <- random_terms + text <- paste0("The model included ", text, " as random effect") + text <- ifelse(length(random_terms) > 1, paste0(text, "s"), text) + text_full <- paste0(text, " (", format_formula(x, "random"), ")") + } + + as.report_random(text_full, summary = text, ...) +} + + +#' @export +report_model.MixMod <- report_model.lm + +#' @export +report_info.MixMod <- report_info.lm + +#' @export +report_text.MixMod <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.R b/report.Rcheck/00_pkg_src/report/R/report.R new file mode 100644 index 000000000..70b8fe313 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.R @@ -0,0 +1,146 @@ +#' Automatic reporting of R objects +#' +#' Create reports of different objects. See the documentation for your object's +#' class: +#' +#' - [System and packages][report.sessionInfo] (`sessionInfo`) +#' - [Dataframes and vectors][report.data.frame] +#' - [Correlations and t-tests][report.htest] (`htest`) +#' - [ANOVAs][report.aov] (`aov, anova, aovlist, ...`) +#' - [Regression models][report.lm] (`glm, lm, ...`) +#' - [Mixed models][report.lm] (`glmer, lmer, glmmTMB, ...`) +#' - [Bayesian models][report.stanreg] (`stanreg, brms...`) +#' - [Bayes factors][report.bayesfactor_models] (from `bayestestR`) +#' - [Structural Equation Models (SEM)][report.lavaan] (from `lavaan`) +#' - [Model comparison][report.compare_performance] (from [`performance()`][performance::compare_performance]) +#' +#' Most of the time, the object created by the `report()` function can be +#' further transformed, for instance summarized (using `summary()`), or +#' converted to a table (using `as.data.frame()`). +#' +#' @param x The R object that you want to report (see list of of supported +#' objects above). +#' @param ... Arguments passed to or from other methods. +#' +#' @details +#' +#' \subsection{Organization}{ +#' `report_table` and `report_text` are the two distal representations +#' of a report, and are the two provided in `report()`. However, +#' intermediate steps are accessible (depending on the object) via specific +#' functions (e.g., `report_parameters`). +#' } +#' +#' \subsection{Output}{ +#' +#' The `report()` function generates a report-object that contain in itself +#' different representations (e.g., text, tables, plots). These different +#' representations can be accessed via several functions, such as: +#' +#' - **`as.report_text(r)`**: Detailed text. +#' +#' - **`as.report_text(r, summary=TRUE)`**: Minimal text giving +#' the minimal information. +#' +#' - **`as.report_table(r)`**: Comprehensive table including most +#' available indices. +#' +#' - **`as.report_table(r, summary=TRUE)`**: Minimal table. +#' +#' Note that for some report objects, some of these representations might be +#' identical. +#' } +#' +#' @return A list-object of class `report`, which contains further +#' list-objects with a short and long description of the model summary, as +#' well as a short and long table of parameters and fit indices. +#' +#' @seealso Specific components of reports (especially for stats models): +#' - [report_table()] +#' - [report_parameters()] +#' - [report_statistics()] +#' - [report_effectsize()] +#' - [report_model()] +#' - [report_priors()] +#' - [report_random()] +#' - [report_performance()] +#' - [report_info()] +#' - [report_text()] +#' +#' Other types of reports: +#' - [report_system()] +#' - [report_packages()] +#' - [report_participants()] +#' - [report_sample()] +#' - [report_date()] +#' +#' Methods: +#' - [as.report()] +#' +#' Template file for supporting new models: +#' +#' - [report.default()] +#' +#' @examples +#' +#' library(report) +#' +#' model <- t.test(mtcars$mpg ~ mtcars$am) +#' r <- report(model) +#' +#' # Text +#' r +#' summary(r) +#' +#' # Tables +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' +#' @export +report <- function(x, ...) { + UseMethod("report") +} + + +# Generic Methods -------------------------------------------------- + +#' @export +print.report <- print.report_text + + +#' @include report_text.R +#' @export +as.data.frame.report <- function(x, ...) { + as.report_table(x, ...) +} + +#' Create or test objects of class [report]. +#' +#' Allows to create or test whether an object is of the `report` class. +#' +#' @param x An arbitrary R object. +#' @param text Text obtained via `report_text()` +#' @param table Table obtained via `report_table()` +#' @param plot Plot obtained via `report_plot()`. Not yet implemented. +#' @param summary Add a summary as attribute (to be extracted via `summary()`). +#' @param prefix The prefix to be displayed in front of each parameter. +#' @param ... Args to be saved as attributes. +#' +#' @return A report object or a `TRUE/FALSE` value. +#' +#' @export +as.report <- function(text, table = NULL, plot = NULL, ...) { + class(text) <- unique(c("report", class(text))) + attributes(text) <- c(attributes(text), list(...)) + + if (!is.null(table)) { + attr(text, "table") <- table + } + + text +} + + +#' @rdname as.report +#' @export +is.report <- function(x) inherits(x, "report") diff --git a/report.Rcheck/00_pkg_src/report/R/report.aov.R b/report.Rcheck/00_pkg_src/report/R/report.aov.R new file mode 100644 index 000000000..d6bd62b43 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.aov.R @@ -0,0 +1,359 @@ +#' Reporting ANOVAs +#' +#' Create reports for ANOVA models. +#' +#' @param x Object of class `aov`, `anova` or `aovlist`. +#' @param include_intercept Set to `TRUE` to include the intercept (relevant for type-3 ANOVA tables). +#' @inheritParams report +#' @inheritParams report.htest +#' @inherit report return seealso +#' +#' @examples +#' data <- iris +#' data$Cat1 <- rep(c("A", "B"), length.out = nrow(data)) +#' +#' model <- aov(Sepal.Length ~ Species * Cat1, data = data) +#' r <- report(model) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' @return An object of class [report()]. +#' @export +report.aov <- function(x, ...) { + table <- report_table(x, ...) + text <- report_text(x, table = table, ...) + + as.report(text, table = table, ...) +} + +#' @export +report.anova <- report.aov + +#' @export +report.aovlist <- report.aov + + +# report_effectsize ------------------------------------------------------- + + +#' @rdname report.aov +#' @inheritParams report.lm +#' @export +report_effectsize.aov <- function(x, include_intercept = FALSE, ...) { + table <- suppressMessages(effectsize::effectsize(x, include_intercept = include_intercept, ...)) + estimate <- names(table)[effectsize::is_effectsize_name(names(table))] + + if (estimate == "Eta2_partial") { + interpret <- effectsize::interpret_eta_squared(table[[estimate]], ...) + interpretation <- interpret + main <- paste0("Eta2 (partial) = ", insight::format_value(table[[estimate]])) + } else if (estimate == "Eta2") { + interpret <- effectsize::interpret_eta_squared(table[[estimate]], ...) + interpretation <- interpret + main <- paste0("Eta2 = ", insight::format_value(table[[estimate]])) + } else if (estimate == "Omega2_partial") { + interpret <- effectsize::interpret_omega_squared(table[[estimate]], ...) + interpretation <- interpret + main <- paste0("Omega2 (partial) = ", insight::format_value(table[[estimate]])) + } else if (estimate == "Omega2") { + interpret <- effectsize::interpret_omega_squared(table[[estimate]], ...) + interpretation <- interpret + main <- paste0("Epsilon2 = ", insight::format_value(table[[estimate]])) + } else if (estimate == "Epsilon2_partial") { + interpret <- effectsize::interpret_epsilon_squared(table[[estimate]], ...) + interpretation <- interpret + main <- paste0("Epsilon2 (partial) = ", insight::format_value(table[[estimate]])) + } else if (estimate == "Epsilon2") { + interpret <- effectsize::interpret_epsilon_squared(table[[estimate]], ...) + interpretation <- interpret + main <- paste0("Epsilon2 = ", insight::format_value(table[[estimate]])) + } + + + ci <- table$CI + statistics <- paste0( + main, + ", ", + insight::format_ci(table$CI_low, table$CI_high, ci) + ) + + table <- as.data.frame(table)[c("Parameter", estimate, "CI_low", "CI_high")] + names(table)[3:ncol(table)] <- c(paste0(estimate, "_CI_low"), paste0(estimate, "_CI_high")) + + rules <- .text_effectsize(attr(attr(interpret, "rules"), "rule_name")) + parameters <- paste0(interpretation, " (", statistics, ")") + + + as.report_effectsize(parameters, + summary = parameters, + table = table, + interpretation = interpretation, + statistics = statistics, + rules = rules, + ci = ci, + main = main + ) +} + +#' @export +report_effectsize.anova <- report_effectsize.aov + +#' @export +report_effectsize.aovlist <- report_effectsize.aov + +# report_table ------------------------------------------------------------ + +#' @rdname report.aov +#' @export +report_table.aov <- function(x, include_intercept = FALSE, ...) { + effsize <- report_effectsize(x, include_intercept = include_intercept, ...) + effsize_table <- attributes(effsize)$table + params <- parameters::model_parameters(x, ...) + + if (!include_intercept) { + params <- params[params$Parameter != "(Intercept)", ] + } + + if ("Group" %in% names(params)) { + effsize_table$Group <- "Within" + params <- params[params$Group == "Within", ] + table_full <- merge(params, effsize_table, all = TRUE) + table_full <- table_full[order( + match( + paste(table_full$Group, table_full$Parameter), + paste(params$Group, params$Parameter) + ) + ), ] + } else { + table_full <- merge(params, effsize_table, all = TRUE) + table_full <- table_full[order( + match(table_full$Parameter, params$Parameter) + ), ] + } + + row.names(table_full) <- NULL + + table <- datawizard::data_remove( + table_full, + select = "(_CI_low|_CI_high)$", + regex = TRUE + ) + + as.report_table( + table_full, + summary = table, + ci = attributes(effsize)$ci, + effsize = effsize + ) +} + +#' @export +report_table.anova <- report_table.aov + +#' @export +report_table.aovlist <- report_table.aov + + +# report_statistics ------------------------------------------------------------ + +#' @rdname report.aov +#' @export +report_statistics.aov <- function(x, table = NULL, ...) { + if (is.null(table) || is.null(attributes(table)$effsize)) { + table <- report_table(x, ...) + } + effsize <- attributes(table)$effsize + + parameters <- table[table$Parameter != "Residuals", ] + if ("Group" %in% names(parameters)) { + parameters <- parameters[parameters$Group == "Within", ] + } + + # Get residuals' DoFs + if ("Residuals" %in% table$Parameter) { + DoF_residual <- table[table$Parameter == "Residuals", "df"] + } else { + DoF_residual <- NULL + } + + # DoFs + text <- paste0( + "F(", + insight::format_value(parameters$df, protect_integers = TRUE) + ) + + if (!is.null(DoF_residual)) { + text <- paste0(text, ", ", insight::format_value(DoF_residual, protect_integers = TRUE)) + } else if ("DoF_Residuals" %in% names(parameters)) { + text <- paste0(text, ", ", insight::format_value(parameters$DoF_Residuals, protect_integers = TRUE)) + } + + # Indices + text <- paste0( + text, + ") = ", + insight::format_value(parameters$`F`), + ", ", + insight::format_p(parameters$p) + ) + + # Effect size + text_full <- paste0(text, "; ", attributes(effsize)$statistics) + text <- paste0(text, ", ", attributes(effsize)$main) + + as.report_statistics(text_full, + summary = text, + table = table, + effsize = effsize + ) +} + +#' @export +report_statistics.anova <- report_statistics.aov + +#' @export +report_statistics.aovlist <- report_statistics.aov + + +# report_parameters ------------------------------------------------------------ + + +#' @rdname report.aov +#' @export +report_parameters.aov <- function(x, ...) { + stats <- report_statistics(x, ...) + table <- attributes(stats)$table + effsize <- attributes(stats)$effsize + + params <- table[table$Parameter != "Residuals", ] + + # Text parameters + text <- vapply( + params$Parameter, + .format_parameters_aov, + USE.NAMES = FALSE, + "string" + ) + + # Significance + text <- paste0( + text, + " is statistically ", + effectsize::interpret_p(params$p), + " and ", + attributes(effsize)$interpretation, + " (" + ) + + text_full <- paste0(text, stats, ")") + text <- paste0(text, summary(stats), ")") + + as.report_parameters( + text_full, + summary = text, + table = table, + effectsize = effsize, + ... + ) +} + +#' @export +report_parameters.anova <- report_parameters.aov + +#' @export +report_parameters.aovlist <- report_parameters.aov + + +# report_model ------------------------------------------------------------ + +#' @rdname report.aov +#' @export +report_model.aov <- function(x, table = NULL, ...) { + if (is.null(table)) { + table <- report_table(x, ...) + } + + if ("Group" %in% names(table)) { + text <- "repeated-measures ANOVA" + } else { + text <- "ANOVA" + } + + if (inherits(x, "anova")) { + text_full <- text # Because anova() does not save the formula. + } else { + text_full <- paste0( + text, + " (", + format_formula(x), + ")" + ) + } + + + as.report_model(text_full, summary = text) +} + +#' @export +report_model.anova <- report_model.aov + +#' @export +report_model.aovlist <- report_model.aov + + +# report_info ------------------------------------------------------------ + +#' @rdname report.aov +#' @include report.htest.R +#' @export +report_info.aov <- function(x, effectsize = NULL, ...) { + if (is.null(effectsize)) { + effectsize <- report_effectsize(x, ...) + } + as.report_info(attributes(effectsize)$rules) +} + +#' @export +report_info.anova <- report_info.aov + +#' @export +report_info.aovlist <- report_info.aov + + +# report_text ------------------------------------------------------------ + +#' @rdname report.aov +#' @export +report_text.aov <- function(x, table = NULL, ...) { + params <- report_parameters(x, table = table, ...) + table <- attributes(params)$table + model <- report_model(x, table = table, ...) + info <- report_info(x, effectsize = attributes(params)$effectsize, ...) + + + text_full <- paste0( + "The ", + model, + " suggests that:\n\n", + as.character(params, ...), + "\n\n", + info + ) + + text <- paste0( + "The ", + summary(model), + " suggests that:\n\n", + as.character(summary(params), ...) + ) + + + as.report_text(text_full, summary = text) +} + +#' @export +report_text.anova <- report_text.aov + +#' @export +report_text.aovlist <- report_text.aov diff --git a/report.Rcheck/00_pkg_src/report/R/report.bayesfactor_models.R b/report.Rcheck/00_pkg_src/report/R/report.bayesfactor_models.R new file mode 100644 index 000000000..c197c2771 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.bayesfactor_models.R @@ -0,0 +1,401 @@ +#' Reporting Models' Bayes Factor +#' +#' Create reports of Bayes factors for model comparison. +#' +#' @param x Object of class `bayesfactor_inclusion`. +#' @param interpretation Effect size interpretation set of rules (see +#' [interpret_bf][effectsize::interpret_bf]). +#' @inheritParams report +#' @inheritParams effectsize::interpret_bf +#' @inherit report return seealso +#' +#' @examplesIf requireNamespace("bayestestR", quietly = TRUE) +#' library(bayestestR) +#' # Bayes factor - models +#' mo0 <- lm(Sepal.Length ~ 1, data = iris) +#' mo1 <- lm(Sepal.Length ~ Species, data = iris) +#' mo2 <- lm(Sepal.Length ~ Species + Petal.Length, data = iris) +#' mo3 <- lm(Sepal.Length ~ Species * Petal.Length, data = iris) +#' BFmodels <- bayesfactor_models(mo1, mo2, mo3, denominator = mo0) +#' +#' r <- report(BFmodels) +#' r +#' +#' # Bayes factor - inclusion +#' inc_bf <- bayesfactor_inclusion(BFmodels, prior_odds = c(1, 2, 3), match_models = TRUE) +#' +#' r <- report(inc_bf) +#' r +#' as.data.frame(r) +#' @return An object of class [report()]. +#' @export +report.bayesfactor_models <- function(x, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + out <- .report.bayesfactor_models( + x, + interpretation = interpretation, + exact = exact, + protect_ratio = protect_ratio, + ... + ) + + as.report( + text = as.report_text(out$text_full, summary = out$text_short), + table = as.report_table(out$table_full, summary = out$table_short), + rules = out$rules, + denominator = out$denominator, + BF_method = out$BF_method + ) +} + + +#' @export +report_table.bayesfactor_models <- function(x, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + out <- + .report.bayesfactor_models( + x, + interpretation = interpretation, + exact = exact, + protect_ratio = protect_ratio, + ... + ) + + as.report_table(out$table_full, + summary = out$table_short, + rules = out$rules, + denominator = out$denominator, + BF_method = out$BF_method + ) +} + +#' @export +report_text.bayesfactor_models <- function(x, + table = NULL, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + out <- .report.bayesfactor_models( + x, + interpretation = interpretation, + exact = exact, + protect_ratio = protect_ratio, + ... + ) + + as.report_text(out$text_full, + summary = out$text_short, + rules = out$rules, + denominator = out$denominator, + BF_method = out$BF_method + ) +} + + +#' @keywords internal +.report.bayesfactor_models <- function(model, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + model$Model[model$Model == "1"] <- "(Intercept only)" + denominator <- attr(model, "denominator") + BF_method <- attr(model, "BF_method") + max_den <- which.max(exp(model$log_BF)) + min_den <- which.min(exp(model$log_BF)) + + #### text #### + model_ind <- rep("", nrow(model)) + model_ind[max_den] <- " (the most supported model)" + model_ind[min_den] <- " (the least supported model)" + + summ_inds <- c(max_den, min_den) + summ_inds <- summ_inds[summ_inds != denominator] + bf_text <- paste0( + "Compared to the ", model$Model[denominator], " model", model_ind[denominator], ", ", + "we found ", + paste0( + effectsize::interpret_bf(exp(model$log_BF)[summ_inds], + rules = interpretation, include_value = TRUE, + exact = exact, protect_ratio = protect_ratio + ), + " the ", model$Model[summ_inds], " model", model_ind[summ_inds], + collapse = "; " + ), + "." + ) + + + #### text full #### + if (grepl("BIC", BF_method, fixed = TRUE)) { + bf_explain <- paste0( + "Bayes factors were computed using the BIC approximation, ", + "by which BF10 = exp((BIC0 - BIC1)/2). " + ) + } else if (grepl("JZS", BF_method, fixed = TRUE)) { + bf_explain <- paste0( + "Bayes factors were computed with the `BayesFactor` package, ", + "using JZS priors. " + ) + } else if (grepl("bridgesampling", BF_method, fixed = TRUE)) { + bf_explain <- paste0( + "Bayes factors were computed by comparing marginal likelihoods, ", + "using the `bridgesampling` package. " + ) + } + + bf_text_full <- paste0(bf_explain, paste0( + "Compared to the ", model$Model[denominator], " model", model_ind[denominator], ", ", + "we found ", + paste0( + effectsize::interpret_bf(exp(model$log_BF)[-denominator], + rules = interpretation, include_value = TRUE, + exact = exact, protect_ratio = protect_ratio + ), + " the ", model$Model[-denominator], " model", model_ind[-denominator], + collapse = "; " + ), + "." + )) + + + #### table #### + model$Model <- paste0(" [", seq_len(nrow(model)), "] ", model$Model) + bf_table <- as.data.frame(model) + bf_table$BF <- insight::format_bf(exp(model$log_BF), + name = NULL, + exact = exact, + protect_ratio = protect_ratio + ) + colnames(bf_table) <- c("Model", "Bayes factor") + + footer <- list( + paste0("\nBayes Factor Type: ", BF_method), + paste0("\nAgainst denominator: Model ", denominator) + ) + attr(bf_table, "table_footer") <- footer + + + #### table full #### + bf_table_full <- bf_table + bf_table_full$BF2 <- insight::format_bf(exp(model$log_BF) / exp(model$log_BF)[max_den], + name = NULL, + exact = exact, + protect_ratio = protect_ratio + ) + + colnames(bf_table_full) <- c( + "Model", + paste0("BF against model ", denominator, ""), + paste0("BF against model ", max_den, " (best model)") + ) + + # Output + out <- list( + table_full = bf_table_full, + table_short = bf_table, + text_full = bf_text_full, + text_short = bf_text, + rules = interpretation, + denominator = denominator, + BF_method = BF_method + ) +} + + +# bayesfactor_inclusion --------------------------------------------------- + +#' @rdname report.bayesfactor_models +#' @export +report.bayesfactor_inclusion <- function(x, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + out <- .report.bayesfactor_inclusion( + x, + interpretation = interpretation, + exact = exact, + protect_ratio = protect_ratio, + ... + ) + + as.report( + text = as.report_text(out$text_full, summary = out$text_short), + table = as.report_table(out$table_full, summary = out$table_short), + interpretation = out$interpretation, + priorOdds = out$priorOdds, + matched = out$matched + ) +} + + +#' @export +report_table.bayesfactor_inclusion <- function(x, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + out <- .report.bayesfactor_inclusion( + x, + interpretation = interpretation, + exact = exact, + protect_ratio = protect_ratio, + ... + ) + + as.report_table(out$table_full, + summary = out$table_short, + interpretation = out$interpretation, + priorOdds = out$priorOdds, + matched = out$matched + ) +} + +#' @export +report_text.bayesfactor_inclusion <- function(x, + table = NULL, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + out <- .report.bayesfactor_inclusion( + x, + interpretation = interpretation, + exact = exact, + protect_ratio = protect_ratio, + ... + ) + + as.report_text(out$text_full, + summary = out$text_short, + interpretation = out$interpretation, + priorOdds = out$priorOdds, + matched = out$matched + ) +} + + +#' @keywords internal +.report.bayesfactor_inclusion <- function(model, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ...) { + matched <- attr(model, "matched") + priorOdds <- attr(model, "priorOdds") + + #### text #### + bf_results <- data.frame(Term = rownames(model), stringsAsFactors = FALSE) + bf_results$evidence <- effectsize::interpret_bf(exp(model$log_BF), + rules = interpretation, include_value = TRUE, + exact = exact, protect_ratio = protect_ratio + ) + bf_results$postprob <- paste0(round(model$p_posterior * 100, ...), "%") + + bf_text <- paste0( + "Bayesian model averaging (BMA) was used to obtain the average evidence ", + "for each predictor. We found ", + paste( + paste0(bf_results$evidence, " including ", bf_results$Term), + collapse = "; " + ), "." + ) + + #### text full #### + bf_explain <- paste0( + "Bayesian model averaging (BMA) was used to obtain the average evidence ", + "for each predictor. Since each model has a prior probability", + # custom priors? + if (is.null(priorOdds)) { + NULL + } else { + paste0( + " (here we used subjective prior odds of ", + toString(priorOdds), ")" + ) + }, + ", it is possible to sum the prior probability of all models that include ", + "a predictor of interest (the prior inclusion probability), and of all ", + "models that do not include that predictor (the prior exclusion probability). ", + "After the data are observed, we can similarly consider the sums of the ", + "posterior models' probabilities to obtain the posterior inclusion ", + "probability and the posterior exclusion probability. The change from ", + "prior to posterior inclusion odds is the Inclusion Bayes factor. ", + # matched models? + if (!matched) { + NULL + } else { + paste0( + "For each predictor, averaging was done only across models that ", + "did not include any interactions with that predictor; ", + "additionally, for each interaction predictor, averaging was done ", + "only across models that contained the main effect from which the ", + "interaction predictor was comprised. This was done to prevent ", + "Inclusion Bayes factors from being contaminated with non-relevant ", + "evidence (see Mathot, 2017). " + ) + } + ) + + bf_text_full <- paste0( + bf_explain, + paste0( + "We found ", + paste( + paste0( + bf_results$evidence, " including ", bf_results$Term, + ", with models including ", bf_results$Term, + " having an overall posterior probability of ", bf_results$postprob + ), + collapse = "; " + ), "." + ) + ) + + #### table #### + bf_table <- as.data.frame(model) + colnames(bf_table) <- c("Pr(prior)", "Pr(posterior)", "Inclusion BF") + bf_table <- cbind(Terms = rownames(bf_table), bf_table) + rownames(bf_table) <- NULL + bf_table$`Inclusion BF` <- insight::format_bf( + bf_table$`Inclusion BF`, + name = NULL, + exact = exact, + protect_ratio = protect_ratio + ) + bf_table[, 2:3] <- insight::format_value(bf_table[, 2:3], ...) + + # make table footer + footer <- list( + sprintf("\nAcross %s", ifelse(matched, "matched models only.", "all models.")), + ifelse(is.null(priorOdds), + "\nAssuming unifor prior odds.", + paste0("\nWith custom prior odds of [", toString(priorOdds), "].") + ) + ) + attr(bf_table, "table_footer") <- footer + + + #### table full #### + bf_table_full <- bf_table + + + #### out #### + out <- list( + table_full = bf_table_full, + table_short = bf_table, + text_full = bf_text_full, + text_short = bf_text, + interpretation = interpretation, + priorOdds = priorOdds, + matched = matched, ... + ) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.brmsfit.R b/report.Rcheck/00_pkg_src/report/R/report.brmsfit.R new file mode 100644 index 000000000..057c5cd2e --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.brmsfit.R @@ -0,0 +1,113 @@ +#' Reporting Bayesian Models from brms +#' +#' Create reports for Bayesian models. The description of the parameters +#' follows the Sequential Effect eXistence and sIgnificance Testing framework +#' (see [SEXIT documentation][bayestestR::sexit]). +#' +#' @inheritParams report.lm +#' @inherit report return seealso +#' +#' @examplesIf require("brms", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(brms) +#' model <- suppressWarnings(brm(mpg ~ qsec + wt, data = mtcars, refresh = 0, iter = 300)) +#' r <- report(model, verbose = FALSE) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' } +#' @return An object of class [report()]. +#' @include report.lm.R report.stanreg.R report.lme4.R +#' @export +report.brmsfit <- function(x, ...) { + table <- report_table(x, include_effectsize = FALSE, ...) + text <- report_text(x, table = table, ...) + + as.report(text, table = table, ...) +} + +#' @export +report_effectsize.brmsfit <- report_effectsize.lm + +#' @export +report_table.brmsfit <- report_table.lm + +#' @export +report_performance.brmsfit <- report_performance.lm + +#' @export +report_statistics.brmsfit <- report_statistics.lm + +#' @export +report_random.brmsfit <- report_random.merMod + +#' @export +report_model.brmsfit <- report_model.lm + +#' @export +report_text.brmsfit <- report_text.lm + + +# ==================== Specific to Bayes =================================== + + +# report_priors ----------------------------------------------------------- + +#' @export +report_priors.brmsfit <- function(x, ...) { + params <- bayestestR::describe_prior(x) + params <- params[params$Parameter != "(Intercept)", ] + + # Return empty if no priors info + has_no_prior_information <- (!"Prior_Distribution" %in% names(params)) || + nrow(params) == 0L || + all(is.na(params$Prior_Scale)) + + if (has_no_prior_information) { + return("") + } + + values <- ifelse(params$Prior_Distribution == "normal", + paste0( + "mean = ", + insight::format_value(params$Prior_Location), + ", SD = ", + insight::format_value(params$Prior_Scale) + ), + paste0( + "location = ", + insight::format_value(params$Prior_Location), + ", scale = ", + insight::format_value(params$Prior_Scale) + ) + ) + + values <- paste0(params$Prior_Distribution, " (", values, ")") + + if (length(unique(values)) == 1L && nrow(params) > 1L) { + text <- paste0("all set as ", values[1]) + } else { + text <- paste0("set as ", values) + } + + text <- paste0("Priors over parameters were ", text, " distributions") + as.report_priors(text) +} + + +# report_parameters ------------------------------------------------------- + +#' @export +report_parameters.brmsfit <- report_parameters.stanreg + +# report_intercept -------------------------------------------------------- + +#' @export +report_intercept.brmsfit <- report_intercept.stanreg + +# report_info ------------------------------------------------------------- + +#' @export +report_info.brmsfit <- report_info.stanreg diff --git a/report.Rcheck/00_pkg_src/report/R/report.character.R b/report.Rcheck/00_pkg_src/report/R/report.character.R new file mode 100644 index 000000000..797c0ea01 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.character.R @@ -0,0 +1,202 @@ +#' @rdname report.data.frame +#' @export +report.character <- function(x, + n_entries = 3, + levels_percentage = "auto", + missing_percentage = "auto", + ...) { + table <- report_table( + x, + n_entries = n_entries, + levels_percentage = levels_percentage, + missing_percentage = missing_percentage, + ... + ) + + text <- report_text( + x, + n_entries = n_entries, + levels_percentage = levels_percentage, + missing_percentage = missing_percentage, + ... + ) + + as.report(text, table = table, ...) +} + + +# report_table ------------------------------------------------------------ + + +#' @export +report_table.character <- function(x, + n_entries = 3, + levels_percentage = "auto", + missing_percentage = "auto", + ...) { + levels_percentage <- .report_dataframe_percentage(x, levels_percentage) + missing_percentage <- .report_dataframe_percentage(x, missing_percentage) + + n_char <- as.data.frame(sort(table(x), decreasing = TRUE)) + names(n_char) <- c("Entry", "n_Entry") + n_char$percentage_Entry <- n_char$n_Entry / length(x) + + if (n_entries == "all" || n_entries > nrow(n_char)) { + n_entries <- nrow(n_char) + } + + + table_full <- data.frame( + n_Entries = nrow(n_char), + n_Obs = length(x), + n_Missing = sum(is.na(x)) + ) + table_full$percentage_Missing <- table_full$n_Missing / table_full$n_Obs * 100 + table <- table_full + + if (isTRUE(missing_percentage)) { + table <- datawizard::data_remove(table, "n_Missing") + } else { + table <- datawizard::data_remove(table, "percentage_Missing") + } + + as.report_table(table_full, summary = table, entries = n_char) +} + + +# report_parameters ------------------------------------------------------- + +#' @export +report_parameters.character <- function(x, + table = NULL, + n_entries = 3, + levels_percentage = "auto", + missing_percentage = "auto", + ...) { + levels_percentage <- .report_dataframe_percentage(x, levels_percentage) + + # Get table + if (is.null(table)) { + table <- report_table( + x, + n_entries = n_entries, + levels_percentage = levels_percentage, + missing_percentage = missing_percentage, + ... + ) + } + entries <- attributes(table)$entries + + if (levels_percentage) { + text <- paste0(entries$Entry, " (", insight::format_value(entries$percentage_Entry, as_percent = TRUE), ")") + } else { + text <- paste0(entries$Entry, " (n = ", entries$n_Entry, ")") + } + + as.report_parameters(text, summary = text[1:n_entries], ...) +} + + +# report_text ------------------------------------------------------------- + +#' @export +report_text.character <- function(x, + table = NULL, + n_entries = 3, + levels_percentage = "auto", + missing_percentage = "auto", + ...) { + if (!is.null(list(...)$varname)) { + name <- list(...)$varname + } else if (is.null(names(x))) { + name <- deparse(substitute(x)) + } else { + name <- "Character variable" + } + + if (is.null(table)) { + table <- report_table( + x, + n_entries = n_entries, + levels_percentage = levels_percentage, + missing_percentage = missing_percentage, + ... + ) + } + entries <- attributes(table)$entries + params <- report_parameters( + x, + table = table, + n_entries = n_entries, + levels_percentage = levels_percentage, + missing_percentage = missing_percentage, + ... + ) + + text <- paste(summary(params), collapse = "; ") + if (nrow(entries) > 1) { + text <- paste0(name, ": ", nrow(entries), " entries, such as ", text) + } else { + text <- paste0(name, ": ", nrow(entries), " entry, such as ", text) + } + + if (nrow(entries) - n_entries == 1) { + text <- paste0(text, " and ", nrow(entries) - n_entries, " other") + } + if (nrow(entries) - n_entries > 1) { + text <- paste0(text, " and ", nrow(entries) - n_entries, " others") + } + + text_full <- text + + # Missing + text_n_Missing <- paste0(table$n_Missing[1], " missing") + text_percentage_Missing <- paste0(insight::format_value(table$percentage_Missing[1]), "% missing") + if (isTRUE(missing_percentage)) { + text_full <- paste0(text_full, "(", text_percentage_Missing, ")") + if (table$n_Missing[1] > 0) { + text <- paste0(text, " (", text_percentage_Missing, ")") + } + } else { + text_full <- paste0(text_full, " (", text_n_Missing, ")") + table <- datawizard::data_remove(table, "percentage_Missing") + if (table$n_Missing[1] > 0) { + text <- paste0(text, " (", text_n_Missing, ")") + } + } + + as.report_text(text_full, summary = text) +} + + +# report_statistics ------------------------------------------------------- + + +#' @export +report_statistics.character <- function(x, + table = NULL, + n_entries = 3, + levels_percentage = "auto", + missing_percentage = "auto", + ...) { + levels_percentage <- .report_dataframe_percentage(x, levels_percentage) + + if (is.null(table)) { + table <- report_table( + x, + n_entries = n_entries, + levels_percentage = levels_percentage, + missing_percentage = missing_percentage, + ... + ) + } + entries <- attributes(table)$entries + + if (levels_percentage) { + text <- paste0(entries$Entry, ", ", insight::format_value(entries$percentage_Entry, as_percent = TRUE), "%") + } else { + text <- paste0(entries$Entry, ", n = ", entries$n_Entry) + } + + as.report_statistics(paste(text, collapse = "; "), summary = paste(text[1:n_entries], collapse = "; ")) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.compare.loo.R b/report.Rcheck/00_pkg_src/report/R/report.compare.loo.R new file mode 100644 index 000000000..9c8dcf09a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.compare.loo.R @@ -0,0 +1,139 @@ +#' Reporting Bayesian Model Comparison +#' +#' Automatically report the results of Bayesian model comparison using the `loo` package. +#' +#' @param x An object of class [brms::loo_compare]. +#' @param include_IC Whether to include the information criteria (IC). +#' @param include_ENP Whether to include the effective number of parameters (ENP). +#' @param ... Additional arguments (not used for now). +#' +# nolint start +#' @examplesIf requireNamespace("brms", quietly = TRUE) && requireNamespace("RcppEigen", quietly = TRUE) && requireNamespace("BH", quietly = TRUE) +# nolint end +#' \donttest{ +#' library(brms) +#' +#' m1 <- brms::brm(mpg ~ qsec, data = mtcars) +#' m2 <- brms::brm(mpg ~ qsec + drat, data = mtcars) +#' m3 <- brms::brm(mpg ~ qsec + drat + wt, data = mtcars) +#' +#' x <- suppressWarnings(brms::loo_compare( +#' brms::add_criterion(m1, "loo"), +#' brms::add_criterion(m2, "loo"), +#' brms::add_criterion(m3, "loo"), +#' model_names = c("m1", "m2", "m3") +#' )) +#' report(x) +#' report(x, include_IC = FALSE) +#' report(x, include_ENP = TRUE) +#' } +#' +#' @details +#' The rule of thumb is that the models are "very similar" if |elpd_diff| (the +#' absolute value of elpd_diff) is less than 4 (Sivula, Magnusson and Vehtari, 2020). +#' If superior to 4, then one can use the SE to obtain a standardized difference +#' (Z-diff) and interpret it as such, assuming that the difference is normally +#' distributed. The corresponding p-value is then calculated as `2 * pnorm(-abs(Z-diff))`. +#' However, note that if the raw ELPD difference is small (less than 4), it doesn't +#' make much sense to rely on its standardized value: it is not very useful to +#' conclude that a model is much better than another if both models make very +#' similar predictions. +#' +#' @return Objects of class [report_text()]. +#' @export +report.compare.loo <- function(x, include_IC = TRUE, include_ENP = FALSE, ...) { + # nolint start + # https://stats.stackexchange.com/questions/608881/how-to-interpret-elpd-diff-of-bayesian-loo-estimate-in-bayesian-logistic-regress + # nolint end + # https://users.aalto.fi/%7Eave/CV-FAQ.html#12_What_is_the_interpretation_of_ELPD__elpd_loo__elpd_diff + # https://users.aalto.fi/%7Eave/CV-FAQ.html#se_diff + + # The difference in expected log predictive density (elpd) between each model + # and the best model as well as the standard error of this difference (assuming + # the difference is approximately normal). + + # The values in the first row are 0s because the models are ordered from best to worst according to their elpd. + x <- as.data.frame(x) + modnames <- rownames(x) + + elpd_diff <- x[["elpd_diff"]] + se_elpd_diff <- x[["se_diff"]] + ic_diff <- -2 * elpd_diff + + z_elpd_diff <- elpd_diff / se_elpd_diff + p_elpd_diff <- 2 * stats::pnorm(-abs(z_elpd_diff)) + z_ic_diff <- -z_elpd_diff + + if ("looic" %in% colnames(x)) { + elpd <- x[["elpd_loo"]] + enp <- x[["p_loo"]] + index_label <- "ELPD-LOO" + ic <- x[["looic"]] + index_ic <- "LOOIC" + } else { + elpd <- x[["elpd_waic"]] + enp <- x[["p_waic"]] + index_label <- "ELPD-WAIC" + ic <- x[["waic"]] + index_ic <- "WAIC" + } + + # TODO: The above indices-computation and name-matching should be implemented + # in a parameters.compare.loo() function which would be run here. + + # Starting text ----- + text1 <- sprintf( + paste0( + "The difference in predictive accuracy, as indexed by Expected Log ", + "Predictive Density (%s), suggests that '%s' is the best model (" + ), + index_label, modnames[1] + ) + if (all(c(include_IC, include_ENP))) { + if (include_IC) { + text1 <- sprintf(paste0(text1, "%s = %.2f"), index_ic, ic[1]) + } + if (include_ENP) { + if (include_IC) { + text1 <- sprintf(paste0(text1, ", ENP = %.2f)"), enp[1]) + } else { + text1 <- sprintf(paste0(text1, "ENP = %.2f)"), enp[1]) + } + } else { + text1 <- paste0(text1, ")") + } + } else { + text1 <- sprintf(paste0(text1, "ELPD = %.2f)"), elpd[1]) + } + + # Other models --- + text_models <- sprintf( + "'%s' (diff-ELPD = %.2f +- %.2f, %s", + modnames[-1], + elpd_diff[-1], + se_elpd_diff[-1], + insight::format_p(p_elpd_diff[-1]) + ) + + if (all(c(include_IC, include_ENP))) { + if (include_IC) { + text_models <- sprintf(paste0(text_models, ", %s = %.2f"), index_ic, ic[-1]) + } + if (include_ENP) { + if (include_IC) { + text_models <- sprintf(paste0(text_models, ", ENP = %.2f)"), enp[-1]) + } else { + text_models <- sprintf(paste0(text_models, "ENP = %.2f)"), enp[-1]) + } + } else { + text_models <- sprintf(paste0(text_models, ")")) + } + } else { + text_models <- paste0(text_models, ")") + } + + + text1 <- paste0(text1, ", followed by ", datawizard::text_concatenate(text_models)) + class(text1) <- c("report_text", class(text1)) + text1 +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.compare_performance.R b/report.Rcheck/00_pkg_src/report/R/report.compare_performance.R new file mode 100644 index 000000000..bde68c013 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.compare_performance.R @@ -0,0 +1,142 @@ +#' Reporting models comparison +#' +#' Create reports for model comparison as obtained by the +#' [performance::compare_performance()] +#' function in the `performance` package. +#' +#' @param x Object of class `NEW OBJECT`. +#' @inheritParams report +#' @inheritParams report.lm +#' +#' @inherit report return seealso +#' +#' @examples +#' \donttest{ +#' library(report) +#' library(performance) +#' +#' m1 <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +#' m2 <- lm(Sepal.Length ~ Petal.Length + Species, data = iris) +#' m3 <- lm(Sepal.Length ~ Petal.Length, data = iris) +#' +#' x <- performance::compare_performance(m1, m2, m3) +#' r <- report(x) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' +#' # Specific reports +#' report_table(x) +#' report_statistics(x) +#' report_parameters(x) +#' } +#' @return An object of class [report()]. +#' @export + +report.compare_performance <- function(x, ...) { + table <- report_table(x, table = table, ...) + text <- report_text(x, ...) + as.report(text = text, table = table, ...) +} + +# report_table ------------------------------------------------------------ + +#' @rdname report.compare_performance +#' @export +report_table.compare_performance <- function(x, ...) { + table <- x + table_short <- x[!names(x) %in% c("Type", "Sigma")] + as.report_table(table, summary = table_short) +} + + +# report_statistics ------------------------------------------------------------ + +#' @rdname report.compare_performance +#' @export + +report_statistics.compare_performance <- function(x, table = NULL, ...) { + if (is.null(table)) { + table <- report_table(x, ...) + } + + text <- text_short <- "" + + if ("R2" %in% names(table)) { + text <- datawizard::text_paste(text, paste0("R2 = ", insight::format_value(table$R2))) + if ("R2_adjusted" %in% names(table)) { + text <- datawizard::text_paste(text, paste0("adj. R2 = ", insight::format_value(table$R2_adjusted))) + text_short <- datawizard::text_paste(text_short, paste0("adj. R2 = ", insight::format_value(table$R2_adjusted))) + } else { + text_short <- datawizard::text_paste(text, paste0("R2 = ", insight::format_value(table$R2))) + } + } + + if ("AIC" %in% names(table)) { + text <- datawizard::text_paste(text, paste0("AIC = ", insight::format_value(table$AIC))) + } + + if ("BIC" %in% names(table)) { + text <- datawizard::text_paste(text, paste0("BIC = ", insight::format_value(table$BIC))) + text_short <- datawizard::text_paste(text_short, paste0("BIC = ", insight::format_value(table$BIC))) + } + + if ("WAIC" %in% names(table)) { + text <- datawizard::text_paste(text, paste0("WAIC = ", insight::format_value(table$WAIC))) + text_short <- datawizard::text_paste(text_short, paste0("WAIC = ", insight::format_value(table$WAIC))) + } + + if ("RMSE" %in% names(table)) { + text <- datawizard::text_paste(text, paste0("RMSE = ", insight::format_value(table$RMSE))) + } + + if ("Sigma" %in% names(table)) { + text <- datawizard::text_paste(text, paste0("Sigma = ", insight::format_value(table$Sigma))) + } + + as.report_statistics(text, summary = text_short, table = table) +} + +# report_parameters ------------------------------------------------------------ + +#' @rdname report.compare_performance +#' @export +report_parameters.compare_performance <- function(x, table = NULL, ...) { + stats <- report_statistics(x, table = table, ...) + table <- attributes(stats)$table + + text <- paste0(table$Model, " (", stats, ")") + text_short <- paste0(table$Model, " (", summary(stats), ")") + + as.report_parameters(text, summary = text_short, table = table) +} + + +# report_text ------------------------------------------------------------ + +#' @rdname report.compare_performance +#' @export + +report_text.compare_performance <- function(x, table = NULL, ...) { + stats <- report_statistics(x, table = table) + table <- attributes(stats)$table + + # Get indices + models <- table$Model + text <- datawizard::text_concatenate(paste0(models, " (", stats, ")")) + text_short <- datawizard::text_concatenate(paste0(models, " (", summary(stats), ")")) + + # Add intro sentence + text_start <- paste0( + "We compared ", + insight::format_number(nrow(table)), + " ", + ifelse(length(unique(table$Type)) == 1, format_model(unique(table$Type)), "model"), + "s" + ) + text <- paste0(text_start, "; ", text, ".") + text_short <- paste0(text_start, "; ", text_short, ".") + + as.report_text(text, summary = text_short) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.coxph.R b/report.Rcheck/00_pkg_src/report/R/report.coxph.R new file mode 100644 index 000000000..230abac30 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.coxph.R @@ -0,0 +1,30 @@ +#' @include report.lm.R +#' @export +report.coxph <- report.lm + +#' @export +report_effectsize.coxph <- report_effectsize.lm + +#' @export +report_table.coxph <- report_table.lm + +#' @export +report_statistics.coxph <- report_statistics.lm + +#' @export +report_parameters.coxph <- report_parameters.lm + +#' @export +report_intercept.coxph <- report_intercept.lm + +#' @export +report_model.coxph <- report_model.lm + +#' @export +report_performance.coxph <- report_performance.lm + +#' @export +report_info.coxph <- report_info.lm + +#' @export +report_text.coxph <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.data.frame.R b/report.Rcheck/00_pkg_src/report/R/report.data.frame.R new file mode 100644 index 000000000..22d910ac1 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.data.frame.R @@ -0,0 +1,552 @@ +#' Reporting Datasets and Dataframes +#' +#' Create reports for data frames. +#' +#' @inheritParams report +#' @param n Include number of observations for each individual variable. +#' @param centrality Character vector, indicating the index of centrality +#' (either `"mean"` or `"median"`). +#' @param dispersion Show index of dispersion ([sd] if `centrality = "mean"`, or +#' [mad] if `centrality = "median"`). +#' @param range Show range. +#' @param distribution Show kurtosis and skewness. +#' @param n_entries Number of different character entries to show. Can be "all". +#' @param levels_percentage Show characters entries and factor levels by number +#' or percentage. If "auto", then will be set to number and percentage if the +#' length if n observations larger than 100. +#' @param missing_percentage Show missing by number (default) or percentage. If +#' "auto", then will be set to number and percentage if the length if n +#' observations larger than 100. +#' @param digits Number of significant digits. +#' +#' @examples +#' r <- report(iris, +#' centrality = "median", dispersion = FALSE, +#' distribution = TRUE, missing_percentage = TRUE +#' ) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' +#' @examplesIf requireNamespace("dplyr", quietly = TRUE) +#' # grouped analysis using `{dplyr}` package +#' library(dplyr) +#' r <- iris %>% +#' group_by(Species) %>% +#' report() +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' @return An object of class [report()]. +#' @export +report.data.frame <- function(x, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + # remove list columns + if (.has_groups(x) && !inherits(x, "tbl_df")) { + x <- .groups_set( + x[, vapply(x, Negate(inherits), what = "list", FUN.VALUE = TRUE)], + groups = .group_vars(x), + drop = .groups_drop(x) + ) + } else { + x <- x[, vapply(x, Negate(inherits), what = "list", FUN.VALUE = TRUE)] + } + + table <- + report_table( + x, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + text <- + report_text( + x, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + as.report(text, table = table, ...) +} + + +# report_table ------------------------------------------------------------ + + +#' @export +report_table.data.frame <- function(x, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + table_full <- data.frame() + table <- data.frame() + + for (i in seq_len(ncol(x))) { + col <- names(x)[i] + current_table_full <- report_table( + x[[col]], + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + current_table <- current_table_full + current_table$Variable <- col + current_table$.order <- i + + if (nrow(table_full) == 0) { + table_full <- current_table + } else { + table_full <- merge(table_full, current_table, all = TRUE) + } + + current_table <- summary(current_table_full) + current_table$Variable <- col + current_table$.order <- i + + if (nrow(table) == 0) { + table <- current_table + } else { + table <- merge(table, current_table, all = TRUE) + } + } + + if ("Level" %in% names(table)) { + if ("percentage_Obs" %in% names(table)) { + table <- datawizard::data_reorder(table, c("Variable", "Level", "n_Obs", "percentage_Obs"), verbose = FALSE) + table_full <- datawizard::data_reorder(table_full, c("Variable", "Level", "n_Obs", "percentage_Obs"), + verbose = FALSE + ) + } else { + table <- datawizard::data_reorder(table, c("Variable", "Level", "n_Obs"), verbose = FALSE) + table_full <- datawizard::data_reorder(table_full, c("Variable", "Level", "n_Obs"), verbose = FALSE) + } + } else { + table <- datawizard::data_reorder(table, c("Variable", "n_Obs"), verbose = FALSE) + table_full <- datawizard::data_reorder(table_full, c("Variable", "n_Obs"), verbose = FALSE) + } + + # Reorder cols + table <- table[order(table$`.order`), ] + table$`.order` <- NULL + table_full <- table_full[order(table_full$`.order`), ] + table_full$`.order` <- NULL + + as.report_table(table_full, summary = table) +} + + +# report_parameters ------------------------------------------------------- + + +#' @export +report_parameters.data.frame <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + text_full <- NULL + text <- NULL + + for (i in seq_len(ncol(x))) { + r <- report_text( + x[[names(x)[i]]], + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + varname = names(x)[i], + ... + ) + + text_full <- c(text_full, r) + text <- c(text, summary(r)) + } + + as.report_parameters(text_full, summary = text, ...) +} + + +# report_text ------------------------------------------------------------- + +#' @export +report_text.data.frame <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + params <- report_parameters( + x, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + # Concatenate text + text_full <- paste0( + "The data contains ", + nrow(x), " observations of the following ", + ncol(x), " variables:\n\n", + as.character(params) + ) + text <- paste0( + "The data contains ", + nrow(x), " observations of the following ", + ncol(x), " variables:\n\n", + as.character(summary(params)) + ) + + as.report_text(text_full, summary = text) +} + + +# report_statistics ------------------------------------------------------- + + +#' @export +report_statistics.data.frame <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + text_full <- NULL + text <- NULL + + for (i in seq_len(ncol(x))) { + r <- report_statistics( + x[[names(x)[i]]], + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + varname = names(x)[i], + ... + ) + + text_full <- c(text_full, r) + text <- c(text, summary(r)) + } + + as.report_statistics(text_full, summary = text) +} + + +# Grouped dataframe ------------------------------------------------------- + +#' @keywords internal +.report_grouped_dataframe <- function(x) { + groups <- .group_vars(x) + ungrouped_x <- as.data.frame(x) + dfs <- split(ungrouped_x, ungrouped_x[groups], sep = " - ") + + + intro <- paste0( + "The data contains ", + nrow(ungrouped_x), + " observations, grouped by ", + groups, + ", of the following ", + ncol(ungrouped_x), + " variables:" + ) + + for (group in names(dfs)) { + dfs[[group]] <- datawizard::data_remove(dfs[[group]], groups) + } + + list(dfs = dfs, intro = intro) +} + + +#' @export +report_table.grouped_df <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + out <- .report_grouped_dataframe(x) + + table_full <- data.frame() + table <- data.frame() + + for (group in names(out$dfs)) { + data <- out$dfs[[group]] + + current_table_full <- report_table( + data, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + current_table_full$Group <- group + if (!length(table_full) == 0) { + table_full <- merge(table_full, current_table_full, all = TRUE, sort = FALSE) + } else { + table_full <- current_table_full + } + + current_table <- summary(current_table_full) + current_table$Group <- group + if (!length(table) == 0) { + table <- merge(table, current_table, all = TRUE, sort = FALSE) + } else { + table <- current_table + } + } + + table <- datawizard::data_reorder(table, "Group") + table_full <- datawizard::data_reorder(table_full, "Group") + + as.report_table(table_full, summary = table) +} + + +#' @export +report_parameters.grouped_df <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + out <- .report_grouped_dataframe(x) + + params_full <- NULL + params <- NULL + + for (group in names(out$dfs)) { + data <- out$dfs[[group]] + + r <- report_parameters( + data, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + params_full <- c(params_full, paste0(group, " - ", r)) + params <- c(params, paste0(group, " - ", summary(r))) + } + + as.report_parameters(params_full, summary = params, ...) +} + + +#' @export +report_text.grouped_df <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + out <- .report_grouped_dataframe(x) + + text_full <- out$intro + text <- out$intro + + for (group in names(out$dfs)) { + data <- out$dfs[[group]] + + r <- report_parameters( + data, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + text_group <- paste0("\n- ", group, " (n = ", nrow(data), "):\n") + + text_full <- paste0(text_full, "\n", paste0(text_group, as.character(r))) + text <- paste0(text, "\n", paste0(text_group, as.character(summary(r)))) + } + + as.report_text(text_full, summary = text) +} + +#' @export +report.grouped_df <- report.data.frame + + +#' @export +report_statistics.grouped_df <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ...) { + out <- .report_grouped_dataframe(x) + + text_full <- NULL + text <- NULL + + for (group in names(out$dfs)) { + data <- out$dfs[[group]] + + r <- report_statistics( + data, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + levels_percentage = levels_percentage, + digits = digits, + n_entries = n_entries, + missing_percentage = missing_percentage, + ... + ) + + text_full <- c(text_full, paste0(group, ", ", as.character(r))) + text <- c(text, paste0(group, ", ", as.character(summary(r)))) + } + + as.report_statistics(text_full, summary = text) +} + + +# Utils ------------------------------------------------------------------- + +#' @keywords internal +.report_dataframe_percentage <- function(x, percentage = "auto") { + if (is.null(percentage) || percentage != "auto") { + return(percentage) + } + + if (any(inherits(x, c("data.frame", "grouped_df")))) { + n <- nrow(x) + } else { + n <- length(x) + } + + if (n >= 100) { + percentage <- TRUE + } else { + percentage <- FALSE + } + percentage +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.default.R b/report.Rcheck/00_pkg_src/report/R/report.default.R new file mode 100644 index 000000000..67095721d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.default.R @@ -0,0 +1,125 @@ +#' Template to add report support for new objects +#' +#' Template file to add report support for new objects. Check-out the vignette on +#' [Supporting +#' New Models](https://easystats.github.io/report/articles/new_models.html). +#' +#' @param x Object of class `NEW OBJECT`. +#' @inheritParams report +#' +#' @inherit report return seealso +#' +#' @examples +#' library(report) +#' +#' # Add a reproducible example instead of the following +#' model <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +#' r <- report(model) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' @return An object of class [report()]. +#' @export +report.default <- function(x, ...) { + stop(.error_message(x, "report()"), call. = FALSE) +} + + +# report_effectsize ------------------------------------------------------- + +#' @rdname report.default +#' @export +report_effectsize.default <- function(x, ...) { + stop(.error_message(x, "report_effectsize()"), call. = FALSE) +} + + +# report_table ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_table.default <- function(x, ...) { + stop(.error_message(x, "report_table()"), call. = FALSE) +} + + +# report_statistics ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_statistics.default <- function(x, ...) { + stop(.error_message(x, "report_statistics()"), call. = FALSE) +} + + +# report_parameters ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_parameters.default <- function(x, ...) { + stop(.error_message(x, "report_parameters()"), call. = FALSE) +} + + +# report_intercept ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_intercept.default <- function(x, ...) { + stop(.error_message(x, "report_intercept()"), call. = FALSE) +} + + +# report_model ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_model.default <- function(x, ...) { + stop(.error_message(x, "report_model()"), call. = FALSE) +} + + +# report_random ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_random.default <- function(x, ...) { + stop(.error_message(x, "report_random()"), call. = FALSE) +} + + +# report_priors ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_priors.default <- function(x, ...) { + stop(.error_message(x, "report_priors()"), call. = FALSE) +} + + +# report_performance ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_performance.default <- function(x, ...) { + stop(.error_message(x, "report_performance()"), call. = FALSE) +} + + +# report_info ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_info.default <- function(x, ...) { + stop(.error_message(x, "report_info()"), call. = FALSE) +} + + +# report_text ------------------------------------------------------------ + +#' @rdname report.default +#' @export +report_text.default <- function(x, ...) { + stop(.error_message(x, "report_text()"), call. = FALSE) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.estimate_contrasts.R b/report.Rcheck/00_pkg_src/report/R/report.estimate_contrasts.R new file mode 100644 index 000000000..86a1edb59 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.estimate_contrasts.R @@ -0,0 +1,52 @@ +#' Reporting `estimate_contrasts` objects +#' +#' Create reports for `estimate_contrasts` objects. +#' +#' @param x Object of class `estimate_contrasts`. +#' @param table Provide the output of `report_table()` to avoid its +#' re-computation. +#' @inheritParams report +#' +#' @inherit report return seealso +#' +#' @examplesIf all(insight::check_if_installed(c("modelbased", "marginaleffects", "collapse", "Formula"), quietly = TRUE)) +#' library(modelbased) +#' model <- lm(Sepal.Width ~ Species, data = iris) +#' contr <- estimate_contrasts(model) +#' report(contr) +#' @return An object of class [report()]. +#' @export +report.estimate_contrasts <- function(x, ...) { + table <- report_table(x, ...) + text <- report_text(x, table = table, ...) + + as.report(text, table = table, ...) +} + +# report_table ------------------------------------------------------------ + +#' @rdname report.estimate_contrasts +#' @export +report_table.estimate_contrasts <- function(x, ...) { + as.report_table(x) +} + +# report_text ------------------------------------------------------------ + +#' @rdname report.estimate_contrasts +#' @export +report_text.estimate_contrasts <- function(x, table = NULL, ...) { + f_table <- insight::format_table(table) + + text <- paste0("The difference between ", x$Level1, " and ", x$Level2, " is ", + ifelse(x$Difference < 0, " negative", "positive"), " and statistically ", + ifelse(x$p < 0.05, "significant", "non-significant"), + " (difference = ", f_table$Difference, ", 95% CI ", f_table$`95% CI`, ", ", + names(f_table)[6], " = ", f_table[[6]], ", ", insight::format_p(table$p), ")", + collapse = ". " + ) + + text <- paste("The marginal contrasts analysis suggests the following.", paste(text, collapse = "")) + + as.report_text(text) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.factor.R b/report.Rcheck/00_pkg_src/report/R/report.factor.R new file mode 100644 index 000000000..c900a5f1a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.factor.R @@ -0,0 +1,179 @@ +#' @rdname report.data.frame +#' @export +report.factor <- function(x, levels_percentage = "auto", ...) { + if (!is.factor(x)) { + x <- as.factor(x) + } + table <- report_table(x, levels_percentage = levels_percentage, ...) + text <- report_text(x, levels_percentage = levels_percentage, ...) + + as.report(text, table = table, ...) +} + +#' @export +report.logical <- report.factor + +#' @export +report.Date <- report.factor + + +# report_table ------------------------------------------------------------ + + +#' @export +report_table.factor <- function(x, levels_percentage = "auto", ...) { + if (!is.factor(x)) { + x <- as.factor(x) + } + levels_percentage <- .report_dataframe_percentage(x, levels_percentage) + + if (length(x[is.na(x)]) != 0) { + x <- factor(ifelse(is.na(x), "missing", as.character(x)), levels = c(levels(x), "missing")) + } + + # Table + table_full <- as.data.frame(table(x)) + names(table_full) <- c("Level", "n_Obs") + table_full$percentage_Obs <- table_full$n_Obs / length(x) * 100 + + # Shorten + table <- table_full + if (!levels_percentage) { + table <- datawizard::data_remove(table, "percentage_Obs") + } + + as.report_table(table_full, summary = table) +} + +#' @export +report_table.logical <- report_table.factor + +#' @export +report_table.Date <- report_table.factor + + +# report_parameters ------------------------------------------------------- + + +#' @export +report_parameters.factor <- function(x, table = NULL, levels_percentage = "auto", ...) { + if (!is.factor(x)) { + x <- as.factor(x) + } + # Get table + if (is.null(table)) { + table <- report_table(x, levels_percentage = levels_percentage, ...) + } + + text_levels <- paste0(table$Level) + text_n_Obs <- paste0("n = ", table$n_Obs) + text_percentage_Obs <- paste0(insight::format_value(table$percentage_Obs), "%") + + text_full <- paste0( + text_levels, " (", + text_n_Obs, ", ", + text_percentage_Obs, ")" + ) + + if (isTRUE(levels_percentage)) { + text <- paste0( + text_levels, " (", + text_percentage_Obs, ")" + ) + } else { + text <- paste0( + text_levels, " (", + text_n_Obs, ")" + ) + } + + as.report_parameters(text_full, summary = text, ...) +} + +#' @export +report_parameters.logical <- report_parameters.factor + +#' @export +report_parameters.Date <- report_parameters.factor + + +# report_text ------------------------------------------------------------- + +#' @export +report_text.factor <- function(x, table = NULL, levels_percentage = "auto", ...) { + if (!is.factor(x)) { + x <- as.factor(x) + } + if (!is.null(list(...)$varname)) { + name <- list(...)$varname + } else if (is.null(names(x))) { + name <- deparse(substitute(x)) + } else { + name <- "Factor" + } + + if (is.null(table)) { + table <- report_table(x, levels_percentage = levels_percentage, ...) + } + + table_no_missing <- table[table$Level != "missing", ] + params <- report_parameters(x, table = table, levels_percentage = levels_percentage, ...) + + if (nrow(table) > 1) { + text_total_levels <- paste0(name, ": ", nrow(table_no_missing), " levels, namely ") + } else { + text_total_levels <- paste0(name, ": ", nrow(table_no_missing), " level, namely ") + } + + text_full <- paste0(text_total_levels, datawizard::text_concatenate(params, sep = ", ")) + text <- paste0(text_total_levels, datawizard::text_concatenate(summary(params), sep = ", ")) + + as.report_text(text_full, summary = text) +} + +#' @export +report_text.logical <- report_text.factor + +#' @export +report_text.Date <- report_text.factor + + +# report_statistics ------------------------------------------------------- + + +#' @export +report_statistics.factor <- function(x, table = NULL, levels_percentage = "auto", ...) { + if (!is.factor(x)) { + x <- as.factor(x) + } + if (is.null(table)) { + table <- report_table(x, levels_percentage = levels_percentage, ...) + } + + text_levels <- paste0(table$Level) + text_n_Obs <- paste0("n = ", table$n_Obs) + text_percentage_Obs <- paste0(insight::format_value(table$percentage_Obs), "%") + + text_full <- paste0( + text_levels, ", ", + text_n_Obs, ", ", + text_percentage_Obs + ) + + if (isTRUE(levels_percentage)) { + text <- paste0( + text_levels, ", ", + text_percentage_Obs + ) + } else { + text <- paste0( + text_levels, ", ", + text_n_Obs + ) + } + + as.report_statistics(paste(text_full, collapse = "; "), summary = paste(text, collapse = "; ")) +} + +#' @export +report_statistics.Date <- report_statistics.factor diff --git a/report.Rcheck/00_pkg_src/report/R/report.glm.R b/report.Rcheck/00_pkg_src/report/R/report.glm.R new file mode 100644 index 000000000..0afb6f4c7 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.glm.R @@ -0,0 +1,60 @@ +#' @include report.lm.R +#' @export +report.glm <- report.lm + +#' @export +report_effectsize.glm <- report_effectsize.lm + +#' @export +report_table.glm <- report_table.lm + +#' @export +report_statistics.glm <- report_statistics.lm + +#' @export +report_parameters.glm <- report_parameters.lm + +#' @export +report_intercept.glm <- report_intercept.lm + +#' @export +report_model.glm <- report_model.lm + +#' @export +report_performance.glm <- report_performance.lm + +#' @export +report_info.glm <- function(x, + effectsize = NULL, + include_effectsize = FALSE, + parameters = NULL, + ...) { + # Get the standard info from the lm method + info_text <- report_info.lm(x, effectsize = effectsize, include_effectsize = include_effectsize, parameters = parameters, ...) + + # Add GLM-specific explainability guidance + model_info <- insight::model_info(x) + explainability_text <- "" + + if (model_info$is_binomial) { + explainability_text <- " For easier interpretation, the odds ratio can be calculated by taking the exponent of the coefficient (e.g., exp(beta))." + } else if (model_info$is_poisson) { + explainability_text <- " For easier interpretation, the rate ratio can be calculated by taking the exponent of the coefficient (e.g., exp(beta))." + } else if (!model_info$is_linear) { + explainability_text <- " For easier interpretation, transformed coefficients can be calculated using the appropriate link function inverse (e.g., exp(beta) for log-link models)." + } + + # Combine the existing info text with the new explainability text + combined_text <- paste0(as.character(info_text), explainability_text) + + # Preserve the summary attribute from the original info_text + summary_text <- summary(info_text) + if (!is.null(explainability_text) && nzchar(explainability_text)) { + summary_text <- paste0(as.character(summary_text), explainability_text) + } + + as.report_info(combined_text, summary = summary_text) +} + +#' @export +report_text.glm <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.glmmTMB.R b/report.Rcheck/00_pkg_src/report/R/report.glmmTMB.R new file mode 100644 index 000000000..a631f2d07 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.glmmTMB.R @@ -0,0 +1,44 @@ +#' @include report.lm.R +#' @export +report.glmmTMB <- report.lm + +#' @export +report_effectsize.glmmTMB <- report_effectsize.lm + +#' @export +report_table.glmmTMB <- report_table.lm + +#' @export +report_performance.glmmTMB <- report_performance.lm + +#' @export +report_statistics.glmmTMB <- report_statistics.lm + +#' @export +report_parameters.glmmTMB <- report_parameters.lm + +#' @export +report_intercept.glmmTMB <- report_intercept.lm + +#' @export +report_random.glmmTMB <- function(x, ...) { + random_terms <- insight::find_terms(x)$random + if (!is.null(random_terms)) { + text <- random_terms + text <- paste0("The model included ", text, " as random effect") + text <- ifelse(length(random_terms) > 1, paste0(text, "s"), text) + text_full <- paste0(text, " (", format_formula(x, "random"), ")") + } + + as.report_random(text_full, summary = text, ...) +} + + +#' @export +report_model.glmmTMB <- report_model.lm + +#' @export +report_info.glmmTMB <- report_info.lm + +#' @export +report_text.glmmTMB <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.htest.R b/report.Rcheck/00_pkg_src/report/R/report.htest.R new file mode 100644 index 000000000..e0140efa6 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.htest.R @@ -0,0 +1,438 @@ +#' Reporting `htest` objects (Correlation, t-test...) +#' +#' Create reports for `htest` objects (`t.test()`, `cor.test()`, +#' etc.). +#' +#' @param x Object of class `htest`. +#' @param table Provide the output of `report_table()` to avoid its +#' re-computation. +#' @param effectsize Provide the output of `report_effectsize()` to avoid +#' its re-computation. +#' @inheritParams report +#' +#' @inherit report return seealso +#' +#' @examples +#' # t-tests +#' report(t.test(iris$Sepal.Width, iris$Sepal.Length)) +#' report(t.test(iris$Sepal.Width, iris$Sepal.Length, var.equal = TRUE)) +#' report(t.test(mtcars$mpg ~ mtcars$vs)) +#' report(t.test(mtcars$mpg, mtcars$vs, paired = TRUE), verbose = FALSE) +#' report(t.test(iris$Sepal.Width, mu = 1)) +#' +#' # Correlations +#' report(cor.test(iris$Sepal.Width, iris$Sepal.Length)) +#' @return An object of class [report()]. +#' @export +report.htest <- function(x, ...) { + model_info <- insight::model_info(x, verbose = FALSE) + table <- report_table(x, model_info = model_info, ...) + text <- report_text(x, table = table, model_info = model_info, ...) + + as.report(text, table = table, ...) +} + + +# report_effectsize ------------------------------------------------------- + +#' @rdname report.htest +#' @export +report_effectsize.htest <- function(x, ...) { + dot_args <- list(...) + model_info <- dot_args$model_info + if (is.null(model_info)) { + model_info <- suppressWarnings(insight::model_info(x, verbose = FALSE)) + } + + model_data <- insight::get_data(x) + if (is.null(model_data) && is.null(dot_args$data)) { + insight::format_alert( + paste0( + "In the report() function, for htest objects, you can try providing ", + "the data argument manually, e.g., report(x, data = data)." + ) + ) + } + + # remove arg, so dots can be passed to effectsize + dot_args[["model_info"]] <- NULL + + # For t-tests ---------------- + + if (model_info$is_ttest) { + out <- .report_effectsize_ttest(x, table, dot_args) + } + + if (model_info$is_ranktest && !model_info$is_correlation) { + # For friedman test --------------- + + if (grepl("Friedman", attributes(x$statistic)$names, fixed = TRUE)) { + out <- .report_effectsize_friedman(x, table, dot_args) + } else if (!is.null(x$statistic) && grepl( + "Kruskal", attributes(x$statistic)$names, + fixed = TRUE + )) { + # For Kruskal-Wallis test --------------- + + out <- .report_effectsize_kruskal(x, table, dot_args) + } else { + # For wilcox test --------------- + + out <- .report_effectsize_wilcox(x, table, dot_args) + } + } + + ## For correlations --------------- + + if (model_info$is_correlation) { + out <- .report_effectsize_correlation(x, table, dot_args) + } + + ## For Chi2 --------------- + + if (model_info$is_chi2test) { + if (chi2_type(x) == "fisher") { + out <- .report_effectsize_fisher(x, table, dot_args) + } else { + out <- .report_effectsize_chi2(x, table, dot_args) + } + } + + # TODO: Chi-squared test ------------- + + if (model_info$is_proptest || (model_info$is_xtab && !model_info$is_chi2test) || model_info$is_onewaytest) { + stop(insight::format_message( + "This test is not yet supported. Please open an issue at {.url https://github.com/easystats/report/issues}." + ), call. = FALSE) + } + + parameters <- paste0(out$interpretation, " (", out$statistics, ")") + + + as.report_effectsize( + parameters, + summary = parameters, + table = out$table, + interpretation = out$interpretation, + statistics = out$statistics, + rules = out$rules, + ci = out$ci, + main = out$main + ) +} + + +# report_table ------------------------------------------------------------ + + +#' @rdname report.htest +#' @export +report_table.htest <- function(x, ...) { + dot_args <- list(...) + model_info <- dot_args$model_info + if (is.null(model_info)) { + model_info <- suppressWarnings(insight::model_info(x, verbose = FALSE)) + } + + # remove arg, so dots can be passed to effectsize + dot_args[["model_info"]] <- NULL + + args <- c(list(x), dot_args) + table_full <- do.call(parameters::model_parameters, args) + args <- c(list(x, model_info = model_info), dot_args) + effsize <- do.call(report_effectsize, args) + + if (model_info$is_ttest) { + # If t-test, effect size + out <- .report_table_ttest(table_full, effsize) + } else if (model_info$is_ranktest && !model_info$is_correlation) { + # wilcox test + # but same function for Friedman + out <- .report_table_wilcox(table_full, effsize) + } else if (model_info$is_chi2test) { + # chi2 test + out <- .report_table_chi2(table_full, effsize) + attr(out$table_full, "table_footer") <- attr(attr(effsize, "table"), "table_footer") + } else if (model_info$is_correlation) { + # correlation test + out <- .report_table_correlation(table_full) + } else { + out <- list(table_full = table_full, table = NULL) + } + + + as.report_table(out$table_full, summary = out$table, effsize = effsize) +} + + +# report_statistics ------------------------------------------------------------ + +#' @rdname report.htest +#' @export +report_statistics.htest <- function(x, table = NULL, ...) { + model_info <- list(...)$model_info + if (is.null(model_info)) { + model_info <- suppressWarnings(insight::model_info(x, verbose = FALSE)) + } + if (is.null(table) || is.null(attributes(table)$effsize)) { + table <- report_table(x, model_info = model_info) + } + + effsize <- attributes(table)$effsize + text <- NULL + + # Estimate + candidates <- c( + "rho", "r", "tau", "Difference", "r_rank_biserial", + "Chi2", "Odds Ratio" + ) + estimate <- candidates[candidates %in% names(table)][1] + if (!is.null(estimate) && !is.na(estimate)) { + text <- paste0(tolower(estimate), " = ", insight::format_value(table[[estimate]])) + } + + # CI + if (!is.null(attributes(x$conf.int)$conf.level)) { + text <- paste0( + text, + ", ", + insight::format_ci( + table$CI_low, + table$CI_high, + ci = attributes(x$conf.int)$conf.level + ) + ) + } + + # Statistic + if ("t" %in% names(table)) { + text <- paste0( + text, + ", t(", + insight::format_value(table$df, protect_integers = TRUE), + ") = ", + insight::format_value(table$t) + ) + } else if ("S" %in% names(table)) { + text <- paste0(text, ", S = ", insight::format_value(table$S)) + } else if ("z" %in% names(table)) { + text <- paste0(text, ", z = ", insight::format_value(table$z)) + } else if ("W" %in% names(table)) { + text <- paste0("W = ", insight::format_value(table$W)) + } + + # p-value + text <- paste0(text, ", ", insight::format_p(table$p, stars = FALSE, digits = "apa")) + + # Effect size + if (model_info$is_ttest || (model_info$is_ranktest && !model_info$is_correlation) || + model_info$is_chi2test) { + text_full <- paste0(text, "; ", attributes(effsize)$statistics) + text <- paste0(text, ", ", attributes(effsize)$main) + } else { + text_full <- text + } + + as.report_statistics(text_full, + summary = text, + estimate = table[[estimate]], + table = table, + effsize = effsize + ) +} + + +# report_parameters ------------------------------------------------------------ + + +#' @rdname report.htest +#' @export +report_parameters.htest <- function(x, table = NULL, ...) { + dot_args <- list(...) + model_info <- dot_args$model_info + if (is.null(model_info)) { + model_info <- suppressWarnings(insight::model_info(x, verbose = FALSE)) + } + + # remove arg, so dots can be passed to other methods + dot_args[["model_info"]] <- NULL + + args <- c(list(x, table = table, model_info = model_info), dot_args) + stats <- do.call(report_statistics, args) + table <- attributes(stats)$table + effsize <- attributes(stats)$effsize + + + ## TODO see https://github.com/easystats/report/issues/256 + # insight::model_info() returns "$is_correlation" for shapiro-test, + # but shapiro-test has no "estimate", so this fails. We probably need + # to handle shapiro separately + + # Correlations + if (model_info$is_correlation) { + out <- .report_parameters_correlation(table, stats, ...) + # t-tests + } else if (model_info$is_ttest) { + out <- .report_parameters_ttest(table, stats, effsize, ...) + # Friedman + } else if ( + model_info$is_ranktest && + grepl("Friedman", attributes(x$statistic)$names, fixed = TRUE)) { + out <- .report_parameters_friedman(table, stats, effsize, ...) + } else if (!is.null(x$statistic) && grepl( + "Kruskal", attributes(x$statistic)$names, + fixed = TRUE + )) { + # Kruskal + out <- .report_parameters_kruskal(table, stats, effsize, ...) + # chi2 + } else if (model_info$is_chi2test) { + if (chi2_type(x) == "fisher") { + out <- .report_parameters_fisher(table, stats, effsize, ...) + } else { + out <- .report_parameters_chi2(table, stats, effsize, ...) + } + } else { + # TODO: default, same as t-test? + out <- .report_parameters_htest_default(table, stats, effsize, ...) + } + + as.report_parameters( + out$text_full, + summary = out$text_short, + table = table, + effectsize = effsize, + ... + ) +} + +# report_model ------------------------------------------------------------ + +#' @rdname report.htest +#' @export +report_model.htest <- function(x, table = NULL, ...) { + dot_args <- list(...) + model_info <- dot_args$model_info + if (is.null(model_info)) { + model_info <- suppressWarnings(insight::model_info(x, verbose = FALSE)) + } + + # remove arg, so dots can be passed to other methods + dot_args[["model_info"]] <- NULL + + if (is.null(table)) { + args <- c(list(x, model_info = model_info), dot_args) + table <- do.call(report_table, args) + } + + if (model_info$is_correlation) { + text <- paste0(x$method, " between ", x$data.name) + } + + if (model_info$is_ttest) { + text <- .report_model_ttest(x, table) + } + + if (model_info$is_ranktest && !model_info$is_correlation) { + # For friedman test --------------- + + if (grepl("Friedman", attributes(x$statistic)$names, fixed = TRUE)) { + text <- .report_model_friedman(x, table) + } else { + # For wilcox test --------------- + + text <- .report_model_wilcox(x, table) + } + } + + if (model_info$is_chi2test) { + if (chi2_type(x) == "fisher") { + text <- .report_model_fisher(x, table) + } else { + text <- .report_model_chi2(x, table) + } + } + + as.report_model(text, summary = text) +} + + +# report_info ------------------------------------------------------------ + +#' @rdname report.htest +#' @export +report_info.htest <- function(x, effectsize = NULL, ...) { + dot_args <- list(...) + model_info <- dot_args$model_info + if (is.null(model_info)) { + model_info <- suppressWarnings(insight::model_info(x, verbose = FALSE)) + } + + # remove arg, so dots can be passed to other methods + dot_args[["model_info"]] <- NULL + + if (is.null(effectsize)) { + args <- c(list(x, model_info = model_info), dot_args) + effectsize <- do.call(report_effectsize, args) + } + + as.report_info(attributes(effectsize)$rules) +} + + +# report_text ------------------------------------------------------------ + +#' @rdname report.htest +#' @export +report_text.htest <- function(x, table = NULL, ...) { + dot_args <- list(...) + model_info <- dot_args$model_info + if (is.null(model_info)) { + model_info <- suppressWarnings(insight::model_info(x, verbose = FALSE)) + } + + # remove arg, so dots can be passed to other methods + dot_args[["model_info"]] <- NULL + + args <- c(list(x, table = table, model_info = model_info), dot_args) + params <- do.call(report_parameters, args) + + table <- attributes(params)$table + args <- c(list(x, table = table, model_info = model_info), dot_args) + model <- do.call(report_model, args) + + args <- c(list(x, effectsize = attributes(params)$effectsize, model_info = model_info), dot_args) + info <- do.call(report_info, args) + + if (model_info$is_correlation) { + text <- paste0( + "The ", + model, + " is ", + params + ) + + text_full <- paste0( + info, + "\n\n", + text + ) + } else { + text_full <- paste0( + info, + "\n\nThe ", + model, + " suggests that the effect is ", + params + ) + + text <- paste0( + "The ", + model, + " suggests that the effect is ", + summary(params) + ) + } + + as.report_text(text_full, summary = text) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.ivreg.R b/report.Rcheck/00_pkg_src/report/R/report.ivreg.R new file mode 100644 index 000000000..368ab59a0 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.ivreg.R @@ -0,0 +1,30 @@ +#' @include report.lm.R +#' @export +report.ivreg <- report.lm + +#' @export +report_effectsize.ivreg <- report_effectsize.lm + +#' @export +report_table.ivreg <- report_table.lm + +#' @export +report_statistics.ivreg <- report_statistics.lm + +#' @export +report_parameters.ivreg <- report_parameters.lm + +#' @export +report_intercept.ivreg <- report_intercept.lm + +#' @export +report_model.ivreg <- report_model.lm + +#' @export +report_performance.ivreg <- report_performance.lm + +#' @export +report_info.ivreg <- report_info.lm + +#' @export +report_text.ivreg <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.lavaan.R b/report.Rcheck/00_pkg_src/report/R/report.lavaan.R new file mode 100644 index 000000000..9a5dddc52 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.lavaan.R @@ -0,0 +1,119 @@ +#' Reports of Structural Equation Models (SEM) +#' +#' Create a report for `lavaan` objects. +#' +#' @param x Object of class `lavaan`. +#' @inheritParams report +#' @inheritParams report.htest +#' @inheritParams report.lm +#' +#' @inherit report return seealso +#' +#' @examplesIf requireNamespace("lavaan", quietly = TRUE) +#' \donttest{ +#' # Structural Equation Models (SEM) +#' library(lavaan) +#' structure <- "ind60 =~ x1 + x2 + x3 +#' dem60 =~ y1 + y2 + y3 +#' dem60 ~ ind60" +#' model <- lavaan::sem(structure, data = PoliticalDemocracy) +#' r <- report(model) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' +#' # Specific reports +#' suppressWarnings(report_table(model)) +#' suppressWarnings(report_performance(model)) +#' } +#' @return An object of class [report()]. +#' @export +report.lavaan <- function(x, ...) { + print("Support for lavaan not fully implemented yet :(") +} + + +#' @export +report_table.lavaan <- function(x, ...) { + parameters <- parameters::model_parameters(x, ci_random = FALSE, ...) + table <- as.data.frame(parameters) + table$Parameter <- paste(table$To, table$Operator, table$From) + table <- datawizard::data_remove(table, c("To", "Operator", "From")) + table <- datawizard::data_reorder(table, "Parameter") + + # Combine ----- + # Add performance + performance <- performance::model_performance(x, ...) + table <- .combine_tables_performance(table, performance) + table <- table[!tolower(table$Parameter) %in% c("baseline", "baseline_df", "baseline_p"), ] + + # Clean ----- + # Rename some columns + + # Shorten ---- + table_full <- datawizard::data_remove(table, "SE") + table <- datawizard::data_remove( + table_full, + select = "(_CI_low|_CI_high)$", + regex = TRUE + ) + table <- table[!table$Parameter %in% c( + "AIC", "BIC", + "RMSEA" + ), ] + + # Prepare ----- + out <- as.report_table(table_full, + summary = table, + performance = performance, + parameters = parameters, + ... + ) + # Add attributes from params table + for (att in "ci") { + attr(out, att) <- attributes(parameters)[[att]] + } + + out +} + + +#' @rdname report.lavaan +#' @export +report_performance.lavaan <- function(x, table = NULL, ...) { + if (!is.null(table) || is.null(attributes(table)$performance)) { + table <- report_table(x, ...) + } + performance <- attributes(table)$performance + + # Chi2 + text_chi2 <- "" + if (all(c("p_Chi2", "Chi2", "Chi2_df") %in% names(performance))) { + sig <- "significantly" + if (performance$p_Chi2 > 0.05) { + sig <- "not significantly" + } + text_chi2 <- paste0( + text_chi2, + "The model is ", + sig, + " different from a baseline model (Chi2(", + insight::format_value(performance$Chi2_df, protect_integers = TRUE), + ") = ", + insight::format_value(performance$Chi2), + ", ", + insight::format_p(performance$p_Chi2), ")." + ) + } + + perf_table <- effectsize::interpret(performance) + text_full <- datawizard::text_paste(text_chi2, .text_performance_lavaan(perf_table), sep = " ") + text <- datawizard::text_paste(text_chi2, + .text_performance_lavaan(perf_table[perf_table$Name %in% c("RMSEA", "CFI", "SRMR"), ]), + sep = " " + ) + + + as.report_performance(text_full, summary = text) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.lm.R b/report.Rcheck/00_pkg_src/report/R/report.lm.R new file mode 100644 index 000000000..e392aebc3 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.lm.R @@ -0,0 +1,575 @@ +#' Reporting (General) Linear Models +#' +#' Create reports for (general) linear models. +#' +#' @param x Object of class `lm` or `glm`. +#' @param include_effectsize If `FALSE`, won't include effect-size related +#' indices (standardized coefficients, etc.). +#' @param include_diagnostic If `FALSE`, won't include diagnostic related +#' indices for Bayesian models (ESS, Rhat). +#' @param include_intercept If `FALSE`, won't include the intercept. +#' @param effectsize_method See documentation for +#' [effectsize::effectsize()]. +#' @param parameters Provide the output of `report_parameters()` to avoid +#' its re-computation. +#' @inheritParams report +#' @inheritParams report.htest +#' +#' @inherit report return seealso +#' +#' @examples +#' \donttest{ +#' library(report) +#' +#' # Linear models +#' model <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +#' r <- report(model) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' +#' # Logistic models +#' model <- glm(vs ~ disp, data = mtcars, family = "binomial") +#' r <- report(model) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' r <- report(model) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' } +#' @return An object of class [report()]. +#' @export +report.lm <- function(x, include_effectsize = TRUE, effectsize_method = "refit", ...) { + table <- report_table(x, + include_effectsize = include_effectsize, + effectsize_method = effectsize_method, ... + ) + text <- report_text(x, + table = table, ... + ) + + as.report(text, table = table, ...) +} + + +# report_effectsize ------------------------------------------------------- + +#' @rdname report.lm +#' @export + +report_effectsize.lm <- function(x, effectsize_method = "refit", ...) { + table <- suppressWarnings(effectsize::effectsize(x, method = effectsize_method, ...)) + method <- .text_standardize(table) + estimate <- names(table)[effectsize::is_effectsize_name(names(table))] + + # TODO: finally solve this. + # interpret <- effectsize::interpret_parameters(x, ...) + if (insight::model_info(x)$is_logit) { + interpret <- effectsize::interpret_oddsratio(table[[estimate]], log = TRUE, ...) + } else { + interpret <- effectsize::interpret_cohens_d(table[[estimate]], ...) + } + + interpretation <- interpret + main <- paste0("Std. beta = ", insight::format_value(table[[estimate]])) + + + ci <- table$CI + names(ci) <- paste0("ci_", estimate) + + statistics <- paste0( + main, + ", ", + insight::format_ci(table$CI_low, table$CI_high, ci) + ) + + if ("Component" %in% colnames(table)) { + merge_by <- c("Parameter", "Component") + start_col <- 4L + } else { + merge_by <- "Parameter" + start_col <- 3L + } + + table <- as.data.frame(table)[c(merge_by, estimate, "CI_low", "CI_high")] + names(table)[start_col:ncol(table)] <- c(paste0(estimate, "_CI_low"), paste0(estimate, "_CI_high")) + + rules <- .text_effectsize(attr(attr(interpret, "rules"), "rule_name")) + parameters <- paste0(interpretation, " (", statistics, ")") + + as.report_effectsize(parameters, + summary = parameters, + table = table, + interpretation = interpretation, + statistics = statistics, + rules = rules, + ci = ci, + method = method, + main = main + ) +} + + +# report_table ------------------------------------------------------------ + + +#' @rdname report.lm +#' @include utils_combine_tables.R +#' @export +report_table.lm <- function(x, include_effectsize = TRUE, ...) { + params <- parameters::model_parameters(x, ci_random = FALSE, ...) + + # Combine ----- + # Add effectsize + if (include_effectsize) { + effsize <- report_effectsize(x, ...) + params <- .combine_tables_effectsize(params, effsize) + } else { + effsize <- NULL + } + + # Add performance + performance <- performance::model_performance(x, ...) + params <- .combine_tables_performance(params, performance) + params <- params[!tolower(params$Parameter) %in% c( + "rmse", # lm + "logloss", "score_log", "score_spherical", "pcp", # glm + "icc", # lmer + "elpd_se", "looic_se" # stanreg + ), ] + + # Clean ----- + # Rename some columns + # names(table_full) <- gsub("Coefficient", "beta", names(table_full)) + + # Shorten ---- + if (insight::model_info(x)$is_logit) { + params <- datawizard::data_remove(params, "df_error") + } + table_full <- datawizard::data_remove(params, "SE") + table <- datawizard::data_remove( + table_full, + select = "(_CI_low|_CI_high)$", + regex = TRUE, + verbose = FALSE + ) + table <- table[!table$Parameter %in% c("AIC", "BIC", "ELPD", "LOOIC", "WAIC"), ] + + # Prepare ----- + out <- as.report_table(table_full, + summary = table, + effsize = effsize, + performance = performance, + ... + ) + if (!is.null(effsize)) attr(out, paste0(names(attributes(effsize)$ci))) <- attributes(effsize)$ci + # Add attributes from params table + for (att in c("ci", "coefficient_name", "pretty_names", "bootstrap", "iterations", "ci_method")) { + attr(out, att) <- attributes(params)[[att]] + } + + out +} + + +# report_statistics ------------------------------------------------------------ + +#' @rdname report.lm +#' @export +report_statistics.lm <- function(x, + table = NULL, + include_effectsize = TRUE, + include_diagnostic = TRUE, + ...) { + if (is.null(table)) { + table <- report_table(x, ...) + } + table <- .remove_performance(table) + effsize <- attributes(table)$effsize + + # Estimate + estimate <- .find_regression_estimate(table) + if (is.null(estimate) || is.na(estimate) || !estimate %in% names(table)) { + text <- "" + } else if (estimate == "Coefficient") { + text <- paste0("beta = ", insight::format_value(table[[estimate]])) + } else { + text <- paste0(estimate, " = ", insight::format_value(table[[estimate]])) + } + + # CI + if (!is.null(table$CI_low)) { + text <- datawizard::text_paste(text, insight::format_ci(table$CI_low, table$CI_high, ci = attributes(table)$ci)) + } + + # Statistic + if ("t" %in% names(table)) { + text <- datawizard::text_paste( + text, + paste0("t(", insight::format_value(table$df, protect_integers = TRUE), ") = ", insight::format_value(table$t)) + ) + } + + # p-value + if ("p" %in% names(table)) { + text <- datawizard::text_paste(text, insight::format_p(table$p, stars = FALSE, digits = "apa")) + } + + # pd + if ("pd" %in% names(table)) { + text <- datawizard::text_paste(text, insight::format_pd(table$pd, stars = FALSE)) + } + + # BF + if ("ROPE_Percentage" %in% names(table)) { + text <- datawizard::text_paste(text, insight::format_rope(table$ROPE_Percentage)) + } + + # BF + if ("BF" %in% names(table)) { + text <- datawizard::text_paste(text, insight::format_bf(table$BF, stars = FALSE, exact = TRUE)) + } + + # Effect size + if (include_effectsize && !is.null(effsize)) { + text_full <- datawizard::text_paste(text, attributes(effsize)$statistics, sep = "; ") + text <- datawizard::text_paste(text, attributes(effsize)$main) + } else { + text_full <- text + } + + # Quality / Diagnostic + if (include_diagnostic) { + text_diagnostic <- "" + + if ("Rhat" %in% names(table)) { + text_diagnostic <- paste0("Rhat = ", insight::format_value(table$Rhat)) + } + + text <- datawizard::text_paste(text, text_diagnostic) + + if ("ESS" %in% names(table)) { + text_diagnostic <- datawizard::text_paste(text_diagnostic, paste0("ESS = ", insight::format_value(table$ESS))) + } + + text_full <- datawizard::text_paste(text_full, text_diagnostic, sep = "; ") + } + + as.report_statistics(text_full, + summary = text, + table = table, + effsize = effsize + ) +} + + +# report_statistics ------------------------------------------------------------ + +#' @rdname report.lm +#' @inheritParams report_statistics +#' @export +report_parameters.lm <- function(x, + table = NULL, + include_effectsize = TRUE, + include_intercept = TRUE, + ...) { + # Get data + stats <- report_statistics(x, table = table, include_effectsize = include_effectsize, ...) + params <- attributes(stats)$table + effsize <- attributes(stats)$effsize + + # Parameters' names + text <- as.character(.parameters_starting_text(x, params)) + + # Significance and effect size + text <- paste0( + text, + " is statistically ", + effectsize::interpret_p(params$p, rules = effectsize::rules(0.05, c("significant", "non-significant"))), + " and ", + effectsize::interpret_direction(params$Coefficient) + ) + + # Effect size + # if(include_effectsize){ + # text <- paste0(text, " and ", attributes(effsize)$interpretation) + # } + + # Include intercept + if (isFALSE(include_intercept)) { + idx <- !params$Parameter == "(Intercept)" + } else { + idx <- rep(TRUE, nrow(params)) + } + + text_full <- paste0(text[idx], " (", stats[idx], ")") + text <- paste0(text[idx], " (", summary(stats)[idx], ")") + + + as.report_parameters( + text_full, + summary = text, + table = params, + effectsize = effsize, + ... + ) +} + + +# report_intercept ------------------------------------------------------------ +#' @rdname report.lm +#' @export +report_intercept.lm <- function(x, table = NULL, ...) { + if (is.null(table)) { + table <- report_table(x, ...) + } + + if (insight::model_info(x)$is_zero_inflated && "Component" %in% colnames(table)) { + idx <- !is.na(table$Parameter) & table$Parameter == "(Intercept)" & table$Component == "conditional" + } else { + idx <- !is.na(table$Parameter) & table$Parameter == "(Intercept)" + } + + # sanity check - if model has no intercept, return NULL + if (!any(idx)) { + return(NULL) + } + + intercept <- table[idx, ] + + estimate <- .find_regression_estimate(table) + is_at <- insight::format_value(intercept[[estimate]]) + + intercept[[estimate]] <- NULL + + text <- paste0( + "The model's intercept is at ", + insight::format_value(is_at), + " (", + insight::format_ci(intercept$CI_low, intercept$CI_high, attributes(intercept)$ci), + ")." + ) + text_full <- paste0( + "The model's intercept", + .find_intercept(x), + " is at ", + insight::format_value(is_at), + " (", + report_statistics(x, intercept, include_effectsize = FALSE), + ")." + ) + + text_full <- gsub("std. beta", "std. intercept", text_full, fixed = TRUE) + + as.report_intercept(text_full, summary = text, ...) +} + + +# report_model ------------------------------------------------------------ + +#' @rdname report.lm +#' @export +report_model.lm <- function(x, table = NULL, ...) { + if (is.null(table)) { + table <- report_table(x, ...) + } + + # Model info + info <- insight::model_info(x) + is_nullmodel <- suppressWarnings(insight::is_nullmodel(x)) + + # Boostrap + if (attributes(table)$bootstrap) { + boostrapped <- paste0("bootstrapped (", attributes(table)$iterations, " iterations) ") + } else { + boostrapped <- "" + } + + # Initial + text <- paste0( + boostrapped, + format_model(x) + ) + + # Algorithm + algorithm <- format_algorithm(x) + if (algorithm != "") { + text_full <- paste0( + text, + " (estimated using ", + algorithm, + ")" + ) + } else { + text_full <- text + } + + + # To predict + to_predict_text <- paste0(" to predict ", insight::find_response(x)) + if (!is_nullmodel) { + to_predict_text <- paste0( + to_predict_text, + " with ", + datawizard::text_concatenate(insight::find_predictors(x, effects = "fixed", flatten = TRUE)) + ) + } + + # Formula + text_full <- paste0(text_full, to_predict_text, " (", format_formula(x), ")") + text <- paste0(text, to_predict_text) + + # Random + if (info$is_mixed) { + random_text <- report_random(x) + text_full <- paste0(text_full, ". ", as.character(random_text)) + text <- paste0(text, ". ", summary(random_text)) + } + + # Bayesian + if (info$is_bayesian) { + priors_text <- report_priors(x) + text_full <- paste0(text_full, ". ", as.character(priors_text)) + text <- paste0(text, ". ", summary(priors_text)) + } + + + as.report_model(text_full, summary = text, ...) +} + + +# report_info ------------------------------------------------------------ + +#' @rdname report.lm +#' @export +report_performance.lm <- function(x, table = NULL, ...) { + if (!is.null(table) || is.null(attributes(table)$performance)) { + table <- report_table(x, ...) + } + performance <- attributes(table)$performance + + + # Intercept-only + if (suppressWarnings(insight::is_nullmodel(x))) { + return(as.report_performance("", summary = "")) + } + + out <- .text_r2(x, info = insight::model_info(x), performance) + as.report_performance(out$text_full, summary = out$text) +} + + +# report_info ------------------------------------------------------------ + +#' @rdname report.lm +#' @export +report_info.lm <- function(x, + effectsize = NULL, + include_effectsize = FALSE, + parameters = NULL, + ...) { + if (is.null(effectsize)) { + effectsize <- report_effectsize(x, ...) + } + + info_text <- .info_effectsize(x, effectsize = effectsize, include_effectsize = include_effectsize) + + if (is.null(parameters)) { + parameters <- report_parameters(x, ...) + } + if (inherits(parameters, "report_parameters")) { + att <- attributes(attributes(parameters)$table) + } else { + att <- attributes(parameters) + } + + if ("ci_method" %in% names(att)) { + info_text <- paste0(info_text, " ", .info_df( + ci = att$ci, + ci_method = att$ci_method, + test_statistic = att$test_statistic, + bootstrap = att$bootstrap + )) + } + + # if (!is.null(att$ci_method)) { + # .text_ci(ci, ci_method = ci_method, df_method = df_method) + # } + + + as.report_info(info_text) +} + + +# report_text ------------------------------------------------------------ + +#' @rdname report.lm +#' @export +report_text.lm <- function(x, table = NULL, ...) { + params <- report_parameters(x, table = table, include_intercept = FALSE, ...) + table <- attributes(params)$table + + info <- report_info(x, effectsize = attributes(params)$effectsize, parameters = params, ...) + model <- report_model(x, table = table, ...) + perf <- report_performance(x, table = table, ...) + intercept <- report_intercept(x, table = table, ...) + + if (suppressWarnings(insight::is_nullmodel(x))) { + params_text_full <- params_text <- "" + } else { + params_text_full <- paste0(" Within this model:\n\n", as.character(params)) + params_text <- paste0(" Within this model:\n\n", as.character(summary(params), ...)) + } + + text_full <- paste0( + "We fitted a ", + model, + ". ", + perf, + ifelse(nzchar(perf, keepNA = TRUE), ". ", ""), + intercept, + params_text_full, + "\n\n", + info + ) + + summary_text <- paste0( + "We fitted a ", + summary(model), + ". ", + summary(perf), + ifelse(nzchar(perf, keepNA = TRUE), ". ", ""), + summary(intercept), + params_text + ) + + + as.report_text(text_full, summary = summary_text) +} + + +# Utils ------------------------------------------------------------------- + +#' @keywords internal +.find_regression_estimate <- function(table, ...) { + candidates <- "(^Coefficient|beta|Median|Mean|MAP)" + coefname <- attributes(table)$coefficient_name + if (!is.null(coefname) && coefname %in% names(table)) { + estimate <- attributes(table)$coefficient_name + } else { + estimate <- datawizard::extract_column_names(table, candidates, regex = TRUE, verbose = FALSE)[1] + } + estimate +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.lme.R b/report.Rcheck/00_pkg_src/report/R/report.lme.R new file mode 100644 index 000000000..3f47f85be --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.lme.R @@ -0,0 +1,44 @@ +#' @include report.lm.R +#' @export +report.lme <- report.lm + +#' @export +report_effectsize.lme <- report_effectsize.lm + +#' @export +report_table.lme <- report_table.lm + +#' @export +report_performance.lme <- report_performance.lm + +#' @export +report_statistics.lme <- report_statistics.lm + +#' @export +report_parameters.lme <- report_parameters.lm + +#' @export +report_intercept.lme <- report_intercept.lm + +#' @export +report_random.lme <- function(x, ...) { + random_terms <- insight::find_terms(x)$random + if (!is.null(random_terms)) { + text <- random_terms + text <- paste0("The model included ", text, " as random effect") + text <- ifelse(length(random_terms) > 1, paste0(text, "s"), text) + text_full <- paste0(text, " (", format_formula(x, "random"), ")") + } + + as.report_random(text_full, summary = text, ...) +} + + +#' @export +report_model.lme <- report_model.lm + +#' @export +report_info.lme <- report_info.lm + +#' @export +report_text.lme <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.lme4.R b/report.Rcheck/00_pkg_src/report/R/report.lme4.R new file mode 100644 index 000000000..e590cd987 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.lme4.R @@ -0,0 +1,45 @@ +#' @include report.lm.R +#' @export +report.merMod <- report.lm + +#' @export +report_effectsize.merMod <- report_effectsize.lm + +#' @export +report_table.merMod <- report_table.lm + +#' @export +report_performance.merMod <- report_performance.lm + +#' @export +report_statistics.merMod <- report_statistics.lm + +#' @export +report_parameters.merMod <- report_parameters.lm + +#' @export +report_intercept.merMod <- report_intercept.lm + +#' @rdname report.lm +#' @export +report_random.merMod <- function(x, ...) { + random_terms <- insight::find_terms(x)$random + if (!is.null(random_terms)) { + text <- random_terms + text <- paste0("The model included ", text, " as random effect") + text <- ifelse(length(random_terms) > 1, paste0(text, "s"), text) + text_full <- paste0(text, " (", format_formula(x, "random"), ")") + } + + as.report_random(text_full, summary = text, ...) +} + + +#' @export +report_model.merMod <- report_model.lm + +#' @export +report_info.merMod <- report_info.lm + +#' @export +report_text.merMod <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.numeric.R b/report.Rcheck/00_pkg_src/report/R/report.numeric.R new file mode 100644 index 000000000..06450a213 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.numeric.R @@ -0,0 +1,341 @@ +#' @rdname report.data.frame +#' @export +report.numeric <- function(x, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + missing_percentage = "auto", + digits = 2, + ...) { + # Print warning if only two different vars + if (length(unique(x)) <= 2) { + if (is.null(names(x))) { + name <- deparse(substitute(x)) + } else { + name <- names(x) + } + warning(insight::format_message( + paste0( + "Variable `", name, "` contains only ", length(unique(x)), + "different values. Consider converting it to a factor." + ) + ), call. = FALSE) + } + + table <- report_table( + x, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + missing_percentage = missing_percentage, + digits = digits, + ... + ) + + text <- report_text( + x, + table = table, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + missing_percentage = missing_percentage, + digits = digits, + ... + ) + + as.report(text, table = table, ...) +} + + +# report_table ------------------------------------------------------------ + +#' @export +report_table.numeric <- function(x, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + missing_percentage = "auto", + digits = 2, + ...) { + missing_percentage <- .report_dataframe_percentage(x, missing_percentage) + + table_full <- data.frame( + Mean = mean(x, na.rm = TRUE), + SD = stats::sd(x, na.rm = TRUE), + Median = stats::median(x, na.rm = TRUE), + MAD = stats::mad(x, na.rm = TRUE), + Min = min(x, na.rm = TRUE), + Max = max(x, na.rm = TRUE), + n_Obs = length(x), + Skewness = as.numeric(datawizard::skewness(x, verbose = FALSE, ...)), + Kurtosis = as.numeric(datawizard::kurtosis(x, verbose = FALSE, ...)), + n_Missing = sum(is.na(x)) + ) + + table_full$percentage_Missing <- table_full$n_Missing / table_full$n_Obs * 100 + + # Summary table + table <- table_full + + # N observations + if (isFALSE(n)) table$n_Obs <- NULL + + # Centrality and dispersion + if (!isFALSE(centrality) && !is.null(centrality)) { + if (centrality == "median") { + if (dispersion) { + table <- datawizard::data_remove(table, c("Mean", "SD")) + } else { + table <- datawizard::data_remove(table, c("Mean", "SD", "MAD")) + } + } else { + if (dispersion) { + table <- datawizard::data_remove(table, c("Median", "MAD")) + } else { + table <- datawizard::data_remove(table, c("Median", "MAD", "SD")) + } + } + } + + # Range + if (!range) { + table <- datawizard::data_remove(table, c("Min", "Max")) + } + + # Distribution + if (!distribution) { + table <- datawizard::data_remove(table, c("Skewness", "Kurtosis")) + } + + # Missing + if (!is.null(missing_percentage)) { + if (isTRUE(missing_percentage)) { + table <- datawizard::data_remove(table, "n_Missing") + table_full <- datawizard::data_remove(table_full, "n_Missing") + } else { + table <- datawizard::data_remove(table, "percentage_Missing") + table_full <- datawizard::data_remove(table_full, "percentage_Missing") + } + } else { + table <- datawizard::data_remove(table, c("percentage_Missing", "n_Missing")) + table_full <- datawizard::data_remove(table_full, c("percentage_Missing", "n_Missing")) + } + + as.report_table(table_full, summary = table) +} + + +# report_parameters ------------------------------------------------------- + +#' @export +report_parameters.numeric <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + missing_percentage = "auto", + digits = 2, + ...) { + missing_percentage <- .report_dataframe_percentage(x, missing_percentage) + + # Get table + if (is.null(table)) { + table <- report_table( + x, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + missing_percentage = missing_percentage, + digits = digits, + ... + ) + } + + # Compute text elements --- + text_n <- paste0("n = ", insight::format_value(table$n_Obs, protect_integers = TRUE)) + + # Centrality + text_mean <- paste0("Mean = ", insight::format_value(table$Mean[1], digits = digits)) + text_median <- paste0("Median = ", insight::format_value(table$Median[1], digits = digits)) + + # Dispersion + text_sd <- insight::format_value(table$SD[1], digits = digits) + text_mad <- insight::format_value(table$MAD[1], digits = digits) + + # Range + text_range <- paste0( + "[", + insight::format_value(table$Min[1], protect_integers = TRUE, digits = digits), + ", ", insight::format_value(table$Max[1], protect_integers = TRUE), "]" + ) + + # Distribution + text_skewness <- paste0("Skewness = ", insight::format_value(table$Skewness[1])) + text_kurtosis <- paste0("Kurtosis = ", insight::format_value(table$Kurtosis[1])) + + # Missing + if (!is.null(missing_percentage)) { + if (isTRUE(missing_percentage)) { + n_missing <- table$percentage_Missing[1] + text_missing <- paste0( + insight::format_value(table$percentage_Missing[1], + protect_integers = TRUE, + digits = digits + ), + "% missing" + ) + } else { + n_missing <- table$n_Missing[1] + text_missing <- paste0(table$n_Missing[1], " missing") + } + } else { + text_missing <- NULL + } + + text_full <- c( + n_Obs = text_n, + Mean = text_mean, + Dispersion_Mean = paste0("SD = ", text_sd), + Median = text_median, + Dispersion_Median = paste0("MAD = ", text_mad), + Range = paste0("range: ", text_range), + Skewness = text_skewness, + Kurtosis = text_kurtosis, + Missing = text_missing + ) + + # Shorten --- + text <- text_full + + # N observations + if (isFALSE(n)) text <- text[!names(text) %in% "n_Obs"] + + # Centrality and dispersion + if (!isFALSE(centrality) && !is.null(centrality)) { + if (centrality == "median") { + text <- text[!names(text) %in% c("Mean", "Dispersion_Mean")] + if (!dispersion) { + text <- text[!names(text) %in% "Dispersion_Median"] + } + } else { + text <- text[!names(text) %in% c("Median", "Dispersion_Median")] + if (!dispersion) { + text <- text[!names(text) %in% "Dispersion_Mean"] + } + } + } else { + text <- text[!names(text) %in% c("Mean", "Dispersion_Mean", "Median", "Dispersion_Median")] + } + + # Range + if (!range) { + text <- text[!names(text) %in% "Range"] + } + + # Distribution + if (!distribution) { + text <- text[!names(text) %in% c("Skewness", "Kurtosis")] + } + + if (is.null(missing_percentage) || n_missing == 0) { + text <- text[!names(text) %in% "Missing"] + } + + as.report_parameters(text_full, summary = text, ...) +} + + +# report_text ------------------------------------------------------------- + +#' @export +report_text.numeric <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + missing_percentage = "auto", + digits = 2, + ...) { + if (!is.null(list(...)$varname)) { + name <- list(...)$varname + } else if (is.null(names(x))) { + name <- deparse(substitute(x)) + } else { + name <- "Continuous variable" + } + + # Get parameters + params <- report_parameters( + x, + table = table, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + missing_percentage = missing_percentage, + digits = digits, + ... + ) + + text <- paste0( + name, + ": ", + toString(params) + ) + + short <- paste0( + name, + ": ", + toString(summary(params)) + ) + + as.report_text(text, summary = short) +} + + +# report_statistics ------------------------------------------------------- + + +#' @export +report_statistics.numeric <- function(x, + table = NULL, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + missing_percentage = "auto", + digits = 2, + ...) { + # Get parameters + params <- report_parameters( + x, + table = table, + n = n, + centrality = centrality, + dispersion = dispersion, + range = range, + distribution = distribution, + missing_percentage = missing_percentage, + digits = digits, + ... + ) + + text <- toString(params) + short <- toString(summary(params)) + + as.report_statistics(text, summary = short) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.sessionInfo.R b/report.Rcheck/00_pkg_src/report/R/report.sessionInfo.R new file mode 100644 index 000000000..63264b7c0 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.sessionInfo.R @@ -0,0 +1,201 @@ +#' Report R environment (packages, system, etc.) +#' +#' @inheritParams report +#' @inheritParams as.report_parameters +#' @param session A [sessionInfo][utils::sessionInfo] object. +#' @param include_R Include R in the citations. +#' +#' @return +#' +#' For `report_packages`, a data frame of class with information on package +#' name, version and citation. +#' +#' @examples +#' +#' library(report) +#' +#' session <- sessionInfo() +#' +#' r <- report(session) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' +#' # Convenience functions +#' report_packages(include_R = FALSE) +#' cite_packages(prefix = "> ") +#' report_system() +#' +#' @return An object of class [report()]. +#' @export +report.sessionInfo <- function(x, ...) { + table <- report_table(x, ...) + text <- report_text(x, table = table) + + as.report(text, table = table, ...) +} + + +# Aliases ----------------------------------------------------------------- + + +#' @rdname report.sessionInfo +#' @export +report_packages <- function(session = NULL, include_R = TRUE, ...) { + if (is.null(session)) session <- utils::sessionInfo() + report_parameters(session, include_R = include_R, ...) +} + + +#' @rdname report.sessionInfo +#' @export +cite_packages <- function(session = NULL, include_R = TRUE, ...) { + if (is.null(session)) session <- utils::sessionInfo() + + # Do not recompute table if passed + if (!is.null(list(...)$table)) { + x <- list(...)$table + } else { + x <- report_table(session, include_R = include_R) + } + + x <- sort(x$Reference, na.last = TRUE) # Extract the references + + as.report_parameters(x, ...) +} + + +# report_system -------------------------------------------------------------- + + +#' @rdname report.sessionInfo +#' @export +report_system <- function(session = NULL) { + if (is.null(session)) { + session <- utils::sessionInfo() + } + + version <- paste0(session$R.version$major, ".", session$R.version$minor) + year <- paste0(session$R.version$year, "-", session$R.version$month, "-", session$R.version$day) + citation <- format_citation(clean_citation(utils::citation()), authorsdate = TRUE, intext = TRUE) + + text <- paste0( + "Analyses were conducted using the R Statistical language (version ", + version, + "; ", + citation, + ") on ", + session$running + ) + + short <- paste0( + "The analysis was done using the R Statistical language (v", + version, + "; ", + citation, + ") on ", + datawizard::text_remove(session$running, " \\(build.*") + ) + + as.report_text(text, summary = short) +} + + +# report_table ------------------------------------------------------------ + +#' @export +report_table.sessionInfo <- function(x, include_R = TRUE, ...) { + pkgs <- x$otherPkgs + + if (isTRUE(include_R)) { + citations <- clean_citation(utils::citation("base")) + versions <- paste0(x$R.version$major, ".", x$R.version$minor) + names <- "R" + } else { + citations <- NULL + versions <- NULL + names <- NULL + } + + + for (pkg_name in names(pkgs)) { + citations <- c(citations, clean_citation(utils::citation(pkg_name))) + versions <- c(versions, as.character(utils::packageVersion(pkg_name))) + names <- c(names, pkg_name) + } + + data <- data.frame( + Package = names, + Version = versions, + Reference = citations, + stringsAsFactors = FALSE + ) + + x <- data[order(data$Package), ] + row.names(x) <- NULL + as.report_table(x, summary = x[c("Package", "Version")]) +} + + +# report_parameters ------------------------------------------------------- + +#' @export +report_parameters.sessionInfo <- function(x, table = NULL, include_R = TRUE, ...) { + # Get table + if (is.null(table)) { + x <- report_table(x) + } else { + x <- table + } + + if (isFALSE(include_R)) x <- x[x$Package != "R", ] + + # Generate text + x$text <- paste0( + x$Package, + " (version ", + x$Version, + "; ", + format_citation(x$Reference, authorsdate = TRUE, short = TRUE, intext = TRUE), + ")" + ) + + x$summary <- paste0(x$Package, " (v", x$Version, ")") + + x <- x[order(x$Reference), ] + + + params <- x$text + names(params) <- x$Package + short <- x$summary + names(short) <- x$Package + + as.report_parameters(params, summary = short, ...) +} + + +# report_text ------------------------------------------------------------- + +#' @export +report_text.sessionInfo <- function(x, table = NULL, ...) { + sys <- report_system(x) + params <- report_parameters(x, table = table, include_R = FALSE) + + text <- paste0( + sys, + ", using the packages ", + datawizard::text_concatenate(params), + ".\n\nReferences\n----------\n", + as.character(cite_packages(x, table = table, ...)) + ) + + short <- paste0( + summary(sys), + ", using the packages ", + datawizard::text_concatenate(summary(params)), + "." + ) + + as.report_text(text, summary = short) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.stanreg.R b/report.Rcheck/00_pkg_src/report/R/report.stanreg.R new file mode 100644 index 000000000..eb114ac50 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.stanreg.R @@ -0,0 +1,203 @@ +#' Reporting Bayesian Models +#' +#' Create reports for Bayesian models. The description of the parameters follows +#' the Sequential Effect eXistence and sIgnificance Testing framework (see +#' [SEXIT documentation][bayestestR::sexit]). +#' +#' @inheritParams report.lm +#' @inherit report return seealso +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(mpg ~ qsec + wt, data = mtcars, refresh = 0, iter = 500)) +#' r <- report(model) +#' r +#' summary(r) +#' as.data.frame(r) +#' } +#' @return An object of class [report()]. +#' @include report.lm.R report.lme4.R +#' @export +report.stanreg <- function(x, ...) { + table <- report_table(x, include_effectsize = FALSE, ...) + text <- report_text(x, table = table, ...) + + as.report(text, table = table, ...) +} + +#' @export +report_effectsize.stanreg <- report_effectsize.lm + +#' @export +report_table.stanreg <- report_table.lm + +#' @export +report_performance.stanreg <- report_performance.lm + +#' @export +report_statistics.stanreg <- report_statistics.lm + +#' @export +report_random.stanreg <- report_random.merMod + +#' @export +report_model.stanreg <- report_model.lm + +#' @export +report_text.stanreg <- report_text.lm + + +# ==================== Specific to Bayes =================================== + + +# report_priors ----------------------------------------------------------- + +#' @export +report_priors.stanreg <- function(x, ...) { + params <- bayestestR::describe_prior(x) + params <- params[params$Parameter != "(Intercept)", ] + + # Return empty if no priors info + if (!"Prior_Distribution" %in% names(params) || nrow(params) == 0) { + return("") + } + + values <- ifelse( + params$Prior_Distribution == "normal", + paste0( + "mean = ", + insight::format_value(params$Prior_Location), + ", SD = ", + insight::format_value(params$Prior_Scale) + ), + paste0( + "location = ", + insight::format_value(params$Prior_Location), + ", scale = ", + insight::format_value(params$Prior_Scale) + ) + ) + + values <- paste(values, collapse = "; ") + values <- paste0(params$Prior_Distribution, " (", values, ")") + + if (length(unique(values)) == 1 && nrow(params) > 1) { + text <- paste0("all set as ", values[1]) + } else { + text <- paste0("set as ", values) + } + + text <- paste0("Priors over parameters were ", text, " distributions") + as.report_priors(text) +} + + +# report_parameters ------------------------------------------------------- + + +#' @export +report_parameters.stanreg <- function(x, + include_intercept = TRUE, + include_diagnostic = TRUE, + ...) { + # Get data + data <- bayestestR::sexit(x, ...) + + att <- attributes(data) + info <- paste0(att$sexit_info, " ", att$sexit_thresholds) + + params <- as.data.frame(data) + + # Parameters' names + text <- .parameters_starting_text(x, params) + + # Replace parameters names + for (i in seq_along(text)) { + att$sexit_textlong[i] <- gsub(names(text)[i], text[i], att$sexit_textlong[i], fixed = TRUE) + att$sexit_textshort[i] <- gsub(names(text)[i], text[i], att$sexit_textshort[i], fixed = TRUE) + } + + # Include intercept + if (isFALSE(include_intercept)) { + idx <- !params$Parameter == "(Intercept)" + } else { + idx <- rep(TRUE, nrow(params)) + } + + text <- att$sexit_textshort[idx] + text_full <- att$sexit_textlong[idx] + + # remove NAs... + text <- text[!is.na(text)] + text_full <- text_full[!is.na(text_full)] + + # Diagnostic or Convergence + if (include_diagnostic) { + diagnostic <- bayestestR::diagnostic_posterior(x, ...) + + param.dgn <- .parameters_diagnostic_bayesian(diagnostic, only_when_insufficient = TRUE)[idx] + text <- datawizard::text_paste(text, param.dgn, sep = ". ") + + param.dgn <- .parameters_diagnostic_bayesian(diagnostic, only_when_insufficient = FALSE)[idx] + text_full <- datawizard::text_paste(text_full, param.dgn, sep = ". ") + + info <- paste( + info, + "Convergence and stability of the Bayesian sampling has been assessed using R-hat,", + "which should be below 1.01 (Vehtari et al., 2019),", + "and Effective Sample Size (ESS), which should be greater than 1000 (Burkner, 2017)." + ) + } + + as.report_parameters(text_full, summary = text, parameters = data, info = info, ...) +} + + +# report_intercept -------------------------------------------------------- + + +#' @export +report_intercept.stanreg <- function(x, ...) { + posteriors <- insight::get_parameters(x) + + if ("(Intercept)" %in% names(posteriors)) { + intercept <- posteriors[["(Intercept)"]] + } else { + return(as.report_intercept("", summary = "", ...)) + } + + data <- bayestestR::sexit(intercept, ...) + + endtext <- paste0( + " is at ", + insight::format_value(data$Median), + " (", + insight::format_ci(data$CI_low, data$CI_high, ci = data$CI), + ")." + ) + + text <- paste0("The model's intercept", endtext) + text_full <- paste0( + "The model's intercept", + .find_intercept(x), + endtext + ) + + as.report_intercept(text_full, summary = text, ...) +} + + +# report_info ------------------------------------------------------------- + +#' @export +report_info.stanreg <- function(x, parameters = NULL, ...) { + if (is.null(parameters)) { + parameters <- report_parameters(x, ...) + } + + text <- attributes(parameters)$info + + as.report_info(text) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.survreg.R b/report.Rcheck/00_pkg_src/report/R/report.survreg.R new file mode 100644 index 000000000..a22a67b99 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.survreg.R @@ -0,0 +1,30 @@ +#' @include report.lm.R +#' @export +report.survreg <- report.lm + +#' @export +report_effectsize.survreg <- report_effectsize.lm + +#' @export +report_table.survreg <- report_table.lm + +#' @export +report_statistics.survreg <- report_statistics.lm + +#' @export +report_parameters.survreg <- report_parameters.lm + +#' @export +report_intercept.survreg <- report_intercept.lm + +#' @export +report_model.survreg <- report_model.lm + +#' @export +report_performance.survreg <- report_performance.lm + +#' @export +report_info.survreg <- report_info.lm + +#' @export +report_text.survreg <- report_text.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report.test_performance.R b/report.Rcheck/00_pkg_src/report/R/report.test_performance.R new file mode 100644 index 000000000..b1b6b931b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.test_performance.R @@ -0,0 +1,122 @@ +#' Reporting models comparison +#' +#' Create reports for model comparison as obtained by the +#' [performance::compare_performance()] +#' function in the `performance` package. +#' +#' @param x Object of class `NEW OBJECT`. +#' @inheritParams report +#' @inheritParams report.lm +#' +#' @inherit report return seealso +#' +#' @examples +#' \donttest{ +#' library(report) +#' library(performance) +#' +#' m1 <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +#' m2 <- lm(Sepal.Length ~ Petal.Length + Species, data = iris) +#' m3 <- lm(Sepal.Length ~ Petal.Length, data = iris) +#' +#' x <- performance::test_performance(m1, m2, m3) +#' r <- report(x) +#' r +#' summary(r) +#' as.data.frame(r) +#' summary(as.data.frame(r)) +#' +#' # Specific reports +#' report_table(x) +#' report_statistics(x) +#' report_parameters(x) +#' } +#' @return An object of class [report()]. +#' @export +report.test_performance <- function(x, ...) { + table <- report_table(x, table = table, ...) + text <- report_text(x, ...) + as.report(text = text, table = table, ...) +} + +# report_table ------------------------------------------------------------ + +#' @rdname report.test_performance +#' @export +report_table.test_performance <- function(x, ...) { + as.report_table(x, summary = x, as_is = TRUE) +} + + +# report_statistics ------------------------------------------------------------ + +#' @rdname report.test_performance +#' @export +report_statistics.test_performance <- function(x, table = NULL, ...) { + if (is.null(table)) { + table <- report_table(x, ...) + } + + text <- text_short <- "" + if ("BF" %in% names(table)) { + val <- text <- datawizard::text_paste(text, insight::format_bf(stats::na.omit(table$BF), exact = TRUE)) + } + + if ("Omega2" %in% names(table)) { + val <- stats::na.omit(table$Omega2) + text2 <- paste0( + "Omega2 = ", + insight::format_value(stats::na.omit(table$Omega2)), + ", ", + insight::format_p(stats::na.omit(table$p_Omega2)) + ) + text <- datawizard::text_paste(text, text2, sep = "; ") + } + + if ("LR" %in% names(table)) { + val <- stats::na.omit(table$LR) + text2 <- paste0( + "LR = ", + insight::format_value(stats::na.omit(table$LR)), + ", ", + insight::format_p(stats::na.omit(table$p_LR)) + ) + text <- datawizard::text_paste(text, text2, sep = "; ") + } + + as.report_statistics(text, summary = text_short, table = table) +} + +# report_parameters ------------------------------------------------------------ + +#' @rdname report.test_performance +#' @export +report_parameters.test_performance <- report_parameters.compare_performance + + +# report_text ------------------------------------------------------------ + +#' @rdname report.test_performance +#' @export +report_text.test_performance <- function(x, table = NULL, ...) { + stats <- report_statistics(x, table = table) + table <- attributes(stats)$table + + # Get indices + models <- table$Model + text <- datawizard::text_concatenate(paste0(models, " (", stats, ")")) + text_short <- datawizard::text_concatenate(paste0(models, " (", summary(stats), ")")) + + # Add intro sentence + text_start <- paste0( + "We compared ", + insight::format_number(nrow(table)), + " ", + ifelse(length(unique(table$Type)) == 1, format_model(unique(table$Type)), "model"), + "s" + ) + text <- paste0(text_start, "; ", text, ".") + text_short <- paste0(text_start, "; ", text_short, ".") + + as.report_text(text, summary = text_short) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report.zeroinfl.R b/report.Rcheck/00_pkg_src/report/R/report.zeroinfl.R new file mode 100644 index 000000000..1ed472c9a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report.zeroinfl.R @@ -0,0 +1,30 @@ +#' @include report.lm.R +#' @export +report.zeroinfl <- report.lm + +#' @export +report_effectsize.zeroinfl <- report_effectsize.lm + +#' @export +report_table.zeroinfl <- report_table.lm + +#' @export +report_statistics.zeroinfl <- report_statistics.lm + +#' @export +report_parameters.zeroinfl <- report_parameters.lm + +#' @export +report_intercept.zeroinfl <- report_intercept.lm + +#' @export +report_model.zeroinfl <- report_model.lm + +#' @export +report_info.zeroinfl <- report_info.lm + +#' @export +report_text.zeroinfl <- report_text.lm + +#' @export +report_performance.zeroinfl <- report_performance.lm diff --git a/report.Rcheck/00_pkg_src/report/R/report_effectsize.R b/report.Rcheck/00_pkg_src/report/R/report_effectsize.R new file mode 100644 index 000000000..ada2114fc --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_effectsize.R @@ -0,0 +1,154 @@ +#' Report the effect size(s) of a model or a test +#' +#' Computes, interpret and formats the effect sizes of a variety of models and +#' statistical tests (see list of supported objects in [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return An object of class [report_effectsize()]. +#' +#' @examples +#' library(report) +#' +#' # h-tests +#' report_effectsize(t.test(iris$Sepal.Width, iris$Sepal.Length)) +#' +#' # ANOVAs +#' report_effectsize(aov(Sepal.Length ~ Species, data = iris)) +#' +#' # GLMs +#' report_effectsize(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' report_effectsize(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_effectsize(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +#' report_effectsize(model, effectsize_method = "basic") +#' } +#' @export +report_effectsize <- function(x, ...) { + UseMethod("report_effectsize") +} + + +# METHODS ----------------------------------------------------------------- + + +#' @rdname as.report +#' @export +as.report_effectsize <- function(x, summary = NULL, prefix = " - ", ...) { + class(x) <- unique(c("report_effectsize", class(x))) + attributes(x) <- c(attributes(x), list(...)) + attr(x, "prefix") <- prefix + + if (!is.null(summary)) { + class(summary) <- unique(c("report_effectsize", class(summary))) + attr(summary, "prefix") <- prefix + attr(x, "summary") <- summary + } + + x +} + + +#' @export +summary.report_effectsize <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_effectsize <- function(x, ...) { + if (!is.null(attributes(x)$rules)) { + cat(attributes(x)$rules, "\n\n") + } + + cat(paste(x, collapse = "\n")) +} + + +# Utilities --------------------------------------------------------------- + + +#' @keywords internal +.text_effectsize <- function(interpretation) { + # Effect size + if (is.null(interpretation)) { + text <- "" + } else { + if (is.character(interpretation)) { + effsize_name <- switch(interpretation, + cohen1988 = "Cohen's (1988)", + sawilowsky2009 = "Savilowsky's (2009)", + gignac2016 = "Gignac's (2016)", + funder2019 = "Funder's (2019)", + lovakov2021 = "Lovakov's (2021)", + evans1996 = "Evans's (1996)", + chen2010 = "Chen's (2010)", + field2013 = "Field's (2013)", + landis1977 = "Landis' (1977)" + ) + text <- paste0("Effect sizes were labelled following ", effsize_name, " recommendations.") + } else { + text <- paste0("Effect sizes were labelled following a custom set of rules.") + } + } + text +} + + +#' @keywords internal +.text_standardize <- function(x, ...) { + method <- attributes(x)$std_method + robust <- attributes(x)$robust + two_sd <- attributes(x)$two_sd + + if (method == "refit") { + if (robust) { + text <- "(using the median and the MAD, a robust equivalent of the SD) " + } else { + text <- "" + } + text <- paste0( + "Standardized parameters were obtained by fitting the model on a standardized version ", + text, "of the dataset." + ) + } else if (method == "2sd") { + if (robust) { + text <- "MAD (a median-based equivalent of the SD) " + } else { + text <- "SD " + } + text <- paste0( + "Standardized parameters were obtained by standardizing the data by 2 times the ", + text, " (see Gelman, 2008)." + ) + } else if (method %in% c("smart", "basic", "posthoc")) { + if (robust) { + text <- "median and the MAD (a median-based equivalent of the SD) of the response variable." + } else { + text <- "mean and the SD of the response variable." + } + text <- paste0("Parameters were scaled by the ", text) + } else { + text <- paste0("Parameters were standardized using the ", method, " method.") + } + + text +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_htest_chi2.R b/report.Rcheck/00_pkg_src/report/R/report_htest_chi2.R new file mode 100644 index 000000000..01a48d7b0 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_htest_chi2.R @@ -0,0 +1,126 @@ +# report_table ----------------- + +.report_table_chi2 <- function(table_full, effsize) { + table_full <- cbind(table_full, attributes(effsize)$table) + list(table = NULL, table_full = table_full) +} + + +# report_effectsize --------------------- + +.report_effectsize_chi2 <- function(x, table, dot_args, rules = "funder2019") { + if (!chi2_type(x) %in% c("pearson", "probabilities")) { + insight::format_error( + "This test is not yet supported. Please open an issue at {.url https://github.com/easystats/report/issues}." + ) + } + es_args <- c(list(x), dot_args) + table <- do.call(effectsize::effectsize, es_args) + table_footer <- attributes(table)$table_footer + ci <- attributes(table)$ci + estimate <- names(table)[1] + dot_args$rules <- ifelse(is.null(dot_args$rules), rules, dot_args$rules) + + es_args <- c(list(table), dot_args) + interpretation <- do.call(effectsize::interpret, es_args)$Interpretation + rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) + + main <- switch(estimate, + Cramers_v_adjusted = paste0("Adjusted Cramer's v = ", insight::format_value(table[[estimate]])), + Fei = paste0("Fei = ", insight::format_value(table[[estimate]])), + Tschuprows_t = paste0("Tschuprow's t = ", insight::format_value(table[[estimate]])), + Tschuprows_t_adjusted = paste0("Adjusted Tschuprow's t = ", insight::format_value(table[[estimate]])), + Pearsons_c = paste0("Pearson's c = ", insight::format_value(table[[estimate]])), + phi_adjusted = paste0("Adjusted Phi = ", insight::format_value(table[[estimate]])), + Cohens_h = paste0("Cohen's h = ", insight::format_value(table[[estimate]])), + Odds_ratio = paste0("Odds ratio = ", insight::format_value(table[[estimate]])), + Ris_kratio = paste0("Risk ratio = ", insight::format_value(table[[estimate]])), + cohens_h = paste0("Cohen's w = ", insight::format_value(table[[estimate]])), + paste0(estimate, " = ", insight::format_value(table[[estimate]])) + ) + + statistics <- paste0( + main, + ", ", + insight::format_ci(table$CI_low, table$CI_high, ci) + ) + + table <- datawizard::data_rename( + as.data.frame(table), + select = c("CI_low", "CI_high"), + replacement = paste0(estimate, c("_CI_low", "_CI_high")) + ) + + table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))] + attributes(table)$table_footer <- table_footer + + list( + table = table, statistics = statistics, interpretation = interpretation, + rules = rules, ci = ci, main = main + ) +} + +# report_model ---------------------------- + +.report_model_chi2 <- function(x, table) { + if (chi2_type(x) == "pearson") { + type <- " of independence between" + vars_full <- paste(names(attributes(x$observed)$dimnames), collapse = " and ") + } else if (chi2_type(x) == "probabilities") { + type <- " / goodness of fit of " + distr <- ifelse( + grepl("non", attr(table, "table_footer"), fixed = TRUE), "a uniform distribution", + paste0("a distribution of [", paste0( + names(x$expected), ": n=", x$expected, + collapse = ", " + ), "]") + ) + + vars_full <- paste(x$data.name, "to", distr) + } + + paste0( + trimws(x$method), + type, + paste0(" ", vars_full) + ) +} + +chi2_type <- function(x) { + if (grepl("probabilities", x$method, fixed = TRUE)) { + out <- "probabilities" + } else if (grepl("Pearson", x$method, fixed = TRUE)) { + out <- "pearson" + } + out +} + +# report_parameters ---------------------------- + +.report_parameters_chi2 <- function(table, stats, effsize, ...) { + if (is.null(attributes(effsize)$interpretation)) { + and <- "" + } else { + and <- paste0(", and ", attributes(effsize)$interpretation) + } + + text_full <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + and, + " (", + stats, + ")" + ) + + text_short <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + and, + " (", + summary(stats), + ")" + ) + + list(text_short = text_short, text_full = text_full) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_htest_cor.R b/report.Rcheck/00_pkg_src/report/R/report_htest_cor.R new file mode 100644 index 000000000..d8e1d95c8 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_htest_cor.R @@ -0,0 +1,60 @@ +# report_parameters ----------------- + +.report_parameters_correlation <- function(table, stats, ...) { + text_full <- paste0( + effectsize::interpret_direction(attributes(stats)$estimate), + ", statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and ", + effectsize::interpret_r(attributes(stats)$estimate, ...), + " (", + stats, + ")" + ) + + text_short <- text_full + list(text_short = text_short, text_full = text_full) +} + +# report_table ----------------- + +.report_table_correlation <- function(table_full) { + table <- datawizard::data_remove(table_full, c("t", "df_error")) + list(table = table, table_full = table_full) +} + + +# report_effectsize --------------------- + +.report_effectsize_correlation <- function(x, table, dot_args) { + args <- c(list(x), dot_args) + table <- do.call(parameters::parameters, args) + ci <- attributes(table)$ci + estimate <- names(table)[3] + + # Pearson + args <- c(list(table[[estimate]]), dot_args) + interpretation <- do.call(effectsize::interpret_r, args) + rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) + main <- paste0(estimate, " = ", insight::format_value(table[[estimate]])) + + if ("CI_low" %in% names(table)) { + statistics <- paste0( + main, + ", ", + insight::format_ci(table$CI_low, table$CI_high, ci) + ) + + table <- table[c(estimate, "CI_low", "CI_high")] + + # For Spearman and co. + } else { + statistics <- main + table <- table[estimate] + } + + list( + table = table, statistics = statistics, interpretation = interpretation, + rules = rules, ci = ci, main = main + ) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_htest_fisher.R b/report.Rcheck/00_pkg_src/report/R/report_htest_fisher.R new file mode 100644 index 000000000..6dc9e514c --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_htest_fisher.R @@ -0,0 +1,102 @@ +# report_table ----------------- + +.report_table_fisher <- function(table_full, effsize) { + table_full <- cbind(table_full, attributes(effsize)$table) + list(table = NULL, table_full = table_full) +} + + +# report_effectsize --------------------- + +.report_effectsize_fisher <- function(x, table, dot_args, rules = "funder2019") { + es_args <- c(list(x), dot_args) + table <- do.call(effectsize::effectsize, es_args) + ci <- attributes(table)$ci + estimate <- names(table)[1] + dot_args$rules <- ifelse(is.null(dot_args$rules), rules, dot_args$rules) + + es_args <- c(list(table), dot_args) + interpretation <- do.call(effectsize::interpret, es_args)$Interpretation + rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) + + main <- switch(estimate, + Cramers_v_adjusted = paste0("Adjusted Cramer's v = ", insight::format_value(table[[estimate]])), + Tschuprows_t = paste0("Tschuprow's t = ", insight::format_value(table[[estimate]])), + Tschuprows_t_adjusted = paste0("Adjusted Tschuprow's t = ", insight::format_value(table[[estimate]])), + Pearsons_c = paste0("Pearson's c = ", insight::format_value(table[[estimate]])), + phi_adjusted = paste0("Adjusted Phi = ", insight::format_value(table[[estimate]])), + Cohens_h = paste0("Cohen's h = ", insight::format_value(table[[estimate]])), + Odds_ratio = paste0("Odds ratio = ", insight::format_value(table[[estimate]])), + Ris_kratio = paste0("Risk ratio = ", insight::format_value(table[[estimate]])), + cohens_h = paste0("Cohen's w = ", insight::format_value(table[[estimate]])), + paste0(estimate, " = ", insight::format_value(table[[estimate]])) + ) + + statistics <- paste0( + main, + ", ", + insight::format_ci(table$CI_low, table$CI_high, ci) + ) + + table <- datawizard::data_rename( + as.data.frame(table), + select = c("CI_low", "CI_high"), + replacement = paste0(estimate, c("_CI_low", "_CI_high")) + ) + + table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))] + + list( + table = table, statistics = statistics, interpretation = interpretation, + rules = rules, ci = ci, main = main + ) +} + +# report_model ---------------------------- + +.report_model_fisher <- function(x, table) { + vars_full <- paste(names(attributes(x$observed)$dimnames), collapse = " and ") + + final_text <- paste0( + trimws(x$method), + " testing the association between the variables of the ", + x$data.name, " dataset " + ) + + final_text +} + +chi2_type <- function(x) { + if (grepl("probabilities", x$method, fixed = TRUE)) { + out <- "probabilities" + } else if (grepl("Pearson", x$method, fixed = TRUE)) { + out <- "pearson" + } else if (grepl("Fisher", x$method, fixed = TRUE)) { + out <- "fisher" + } + out +} + +.report_parameters_fisher <- function(table, stats, effsize, ...) { + text_full <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and ", + attributes(effsize)$interpretation, + " (", + stats, + ")" + ) + + text_short <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and ", + attributes(effsize)$interpretation, + " (", + summary(stats), + ")" + ) + + list(text_short = text_short, text_full = text_full) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_htest_friedman.R b/report.Rcheck/00_pkg_src/report/R/report_htest_friedman.R new file mode 100644 index 000000000..9ee45b3d3 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_htest_friedman.R @@ -0,0 +1,87 @@ +# report_table ----------------- + +.report_table_friedman <- function(table_full, effsize) { + table_full <- cbind(table_full, attributes(effsize)$table) + list(table = NULL, table_full = table_full) +} + + +# report_effectsize --------------------- + +.report_effectsize_friedman <- function(x, table, dot_args) { + args <- c(list(x, es_type = "kendalls_w"), dot_args) + table <- do.call(parameters::parameters, args) + ci <- attributes(table)$ci + estimate <- "kendalls_w" + + # same as Pearson's r + args <- c(list(table$Kendalls_W), dot_args) + interpretation <- do.call(effectsize::interpret_kendalls_w, args) + rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) + + main <- paste0("Kendall's W = ", insight::format_value(table$Kendalls_W)) + statistics <- paste0( + main, + ", ", + insight::format_ci(table$W_CI_low, table$W_CI_high, ci) + ) + + table <- table[c("Kendalls_W", "W_CI_low", "W_CI_high")] + + list( + table = table, statistics = statistics, interpretation = interpretation, + rules = rules, ci = ci, main = main + ) +} + + +# report_model ---------------------------- + +.report_model_friedman <- function(x, table) { + # two-sample + if ("Parameter1" %in% names(table)) { + vars_full <- paste0(table$Parameter1[[1]], ", and ", table$Parameter2[[1]]) + + text <- paste0( + trimws(x$method), + " testing the difference in ranks between ", + vars_full + ) + } else { + # one-sample + vars_full <- paste0(table$Parameter[[1]]) + + text <- paste0( + trimws(x$method), + " testing the difference in rank for ", + vars_full, + " and true location of 0" + ) + } + + text +} + +.report_parameters_friedman <- function(table, stats, effsize, ...) { + text_full <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and in ", + attributes(effsize)$interpretation, + " (", + stats, + ")" + ) + + text_short <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and in ", + attributes(effsize)$interpretation, + " (", + summary(stats), + ")" + ) + + list(text_short = text_short, text_full = text_full) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_htest_kruskal.R b/report.Rcheck/00_pkg_src/report/R/report_htest_kruskal.R new file mode 100644 index 000000000..05681e53c --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_htest_kruskal.R @@ -0,0 +1,89 @@ +# report_table ----------------- + +.report_table_kruskal <- function(table_full, effsize) { + table_full <- cbind(table_full, attributes(effsize)$table) + list(table = NULL, table_full = table_full) +} + + +# report_effectsize --------------------- + +.report_effectsize_kruskal <- function(x, table, dot_args, rules = "funder2019") { + args <- c(list(x), dot_args) + table <- do.call(effectsize::effectsize, args) + ci <- attributes(table)$ci + estimate <- names(table)[1] + + rules <- ifelse(is.null(dot_args$rules), rules, dot_args$rules) + + # same as Pearson's r + args <- c(list(table$rank_epsilon_squared), dot_args) + interpretation <- do.call(effectsize::interpret_epsilon_squared, args) + rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) + + main <- paste0("Epsilon squared (rank) = ", insight::format_value(table$rank_epsilon_squared)) + statistics <- paste0( + main, + ", ", + insight::format_ci(table$CI_low, table$CI_high, ci) + ) + + table <- table[names(table)[-2]] + + list( + table = table, statistics = statistics, interpretation = interpretation, + rules = rules, ci = ci, main = main + ) +} + + +# report_model ---------------------------- + +.report_model_kruskal <- function(x, table) { + # two-sample + if ("Parameter1" %in% names(table)) { + vars_full <- paste0(table$Parameter1[[1]], ", and ", table$Parameter2[[1]]) + + text <- paste0( + trimws(x$method), + " testing the difference in ranks between ", + vars_full + ) + } else { + # one-sample + vars_full <- paste0(table$Parameter[[1]]) + + text <- paste0( + trimws(x$method), + " testing the difference in rank for ", + vars_full, + " and true location of 0" + ) + } + + text +} + +.report_parameters_kruskal <- function(table, stats, effsize, ...) { + text_full <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and ", + attributes(effsize)$interpretation, + " (", + paste0("Kruskal-Wallis ", stats), + ")" + ) + + text_short <- paste0( + "statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and ", + attributes(effsize)$interpretation, + " (", + paste0("Kruskal-Wallis ", summary(stats)), + ")" + ) + + list(text_short = text_short, text_full = text_full) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_htest_ttest.R b/report.Rcheck/00_pkg_src/report/R/report_htest_ttest.R new file mode 100644 index 000000000..e3fe9a236 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_htest_ttest.R @@ -0,0 +1,117 @@ +# report_parameters ----------------- + +.report_parameters_ttest <- function(table, stats, effsize, ...) { + text_full <- paste0( + effectsize::interpret_direction(attributes(stats)$estimate), + ", statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and ", + attributes(effsize)$interpretation, + " (", + stats, + ")" + ) + + text_short <- paste0( + effectsize::interpret_direction(attributes(stats)$estimate), + ", statistically ", + effectsize::interpret_p(table$p, rules = "default"), + ", and ", + attributes(effsize)$interpretation, + " (", + summary(stats), + ")" + ) + + list(text_short = text_short, text_full = text_full) +} + +.report_parameters_htest_default <- .report_parameters_ttest + + +# report_table ----------------- + +.report_table_ttest <- function(table_full, effsize) { + table_full <- cbind(table_full, attributes(effsize)$table) + table_small <- datawizard::data_remove( + table_full, + c("Parameter", "Group", "Mean_Group1", "Mean_Group2", "Method", "d_CI_low", "d_CI_high") + ) + list(table = table_small, table_full = table_full) +} + + +# report_effectsize --------------------- + +.report_effectsize_ttest <- function(x, table, dot_args, type, rules = "cohen1988") { + es_args <- c(list(x), dot_args) + table <- do.call(effectsize::effectsize, es_args) + ci <- attributes(table)$ci + estimate <- names(table)[1] + dot_args$rules <- if (is.null(dot_args$rules)) rules else dot_args$rules + + es_args <- c(list(table), dot_args) + interpretation <- do.call(effectsize::interpret, es_args)$Interpretation + rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) + + if (estimate %in% c("d", "Cohens_d")) { + main <- paste0("Cohen's d = ", insight::format_value(table[[estimate]])) + } else if (estimate %in% c("g", "Hedges_g")) { + main <- paste0("Hedges's g = ", insight::format_value(table[[estimate]])) + } else { + main <- paste0(estimate, " = ", insight::format_value(table[[estimate]])) + } + + statistics <- paste0( + main, + ", ", + insight::format_ci(table$CI_low, table$CI_high, ci) + ) + + table <- datawizard::data_rename( + as.data.frame(table), + select = c("CI_low", "CI_high"), + replacement = paste0(estimate, c("_CI_low", "_CI_high")) + ) + + table <- table[c(estimate, paste0(estimate, c("_CI_low", "_CI_high")))] + + list( + table = table, statistics = statistics, interpretation = interpretation, + rules = rules, ci = ci, main = main + ) +} + + +# report model --------------------------- + +.report_model_ttest <- function(x, table) { + # If against mu + if (names(x$null.value) == "mean") { + # TODO: @DominiqueMakowski why do we need "table" here?? + + table$Difference <- x$estimate - x$null.value + means <- paste0(" (mean = ", insight::format_value(x$estimate), ")") + vars_full <- paste0(x$data.name, means, " and mu = ", x$null.value) + vars <- paste0(x$data.name, " and mu = ", x$null.value) + + # If between two groups + } else { + table$Difference <- x$estimate[1] - x$estimate[2] + means <- paste0(names(x$estimate), " = ", + insight::format_value(x$estimate), + collapse = ", " + ) + vars_full <- paste0(x$data.name, " (", means, ")") + vars <- paste0(x$data.name) + } + + final_text <- paste0( + trimws(x$method), + " testing the difference ", + ifelse(grepl(" by ", x$data.name, fixed = TRUE), "of ", "between "), + vars_full + ) + + final_text +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_htest_wilcox.R b/report.Rcheck/00_pkg_src/report/R/report_htest_wilcox.R new file mode 100644 index 000000000..92963eb6a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_htest_wilcox.R @@ -0,0 +1,63 @@ +# report_table ----------------- + +.report_table_wilcox <- function(table_full, effsize) { + table_full <- cbind(table_full, attributes(effsize)$table) + list(table = NULL, table_full = table_full) +} + + +# report_effectsize --------------------- + +.report_effectsize_wilcox <- function(x, table, dot_args) { + my_args <- c(list(x, es_type = "rank_biserial"), dot_args) + table <- do.call(parameters::model_parameters, my_args) + ci <- attributes(table)$ci + estimate <- "r_rank_biserial" + + # same as Pearson's r + my_args <- c(list(table$r_rank_biserial), dot_args) + interpretation <- do.call(effectsize::interpret_r, my_args) + rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) + + main <- paste0("r (rank biserial) = ", insight::format_value(table$r_rank_biserial)) + statistics <- paste0( + main, + ", ", + insight::format_ci(table$rank_biserial_CI_low, table$rank_biserial_CI_high, ci) + ) + + table <- table[c("r_rank_biserial", "rank_biserial_CI_low", "rank_biserial_CI_high")] + + list( + table = table, statistics = statistics, interpretation = interpretation, + rules = rules, ci = ci, main = main + ) +} + + +# report_model ---------------------------- + +.report_model_wilcox <- function(x, table) { + # two-sample + if ("Parameter1" %in% names(table)) { + vars_full <- paste0(table$Parameter1[[1]], " and ", table$Parameter2[[1]]) + + text_string <- paste0( + trimws(x$method), + " testing the difference in ranks between ", + vars_full + ) + } else { + # one-sample + vars_full <- paste0(table$Parameter[[1]]) + + text_string <- paste0( + trimws(x$method), + " testing the difference in rank for ", + vars_full, + " and true location of 0" + ) + } + + text_string +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_info.R b/report.Rcheck/00_pkg_src/report/R/report_info.R new file mode 100644 index 000000000..af1b5dd8d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_info.R @@ -0,0 +1,147 @@ +#' Report additional information +#' +#' Reports additional information relevant to the report (see list of supported +#' objects in [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return An object of class [report_info()]. +#' +#' @examples +#' library(report) +#' +#' # h-tests +#' report_info(t.test(iris$Sepal.Width, iris$Sepal.Length)) +#' +#' # ANOVAs +#' report_info(aov(Sepal.Length ~ Species, data = iris)) +#' \donttest{ +#' # GLMs +#' report_info(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' report_info(lm(Sepal.Length ~ Petal.Length * Species, data = iris), include_effectsize = TRUE) +#' report_info(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_info(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 300)) +#' report_info(model) +#' } +#' @export +report_info <- function(x, ...) { + UseMethod("report_info") +} + + +# METHODS ----------------------------------------------------------------- + + +#' @rdname as.report +#' @export +as.report_info <- function(x, summary = NULL, ...) { + class(x) <- unique(c("report_info", class(x))) + attributes(x) <- c(attributes(x), list(...)) + + if (!is.null(summary)) { + attr(x, "summary") <- summary + } + x +} + + +#' @export +summary.report_info <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_info <- function(x, ...) { + cat(paste(x, collapse = "\n")) +} + + +# Utils ------------------------------------------------------------------- + +#' @keywords internal +.info_df <- function(ci, ci_method = NULL, test_statistic = NULL, bootstrap = FALSE) { + if (is.null(ci_method)) { + return("") + } + + text <- paste0( + insight::format_value(ci * 100, protect_integers = TRUE), + "% Confidence Intervals (CIs) and p-values were computed using " + ) + + ci_method <- tolower(ci_method) + string_method <- switch(ci_method, + bci = , + bcai = "bias-corrected accelerated bootstrap", + si = , + ci = , + quantile = , + eti = , + hdi = ifelse(isTRUE(bootstrap), "na\u0131ve bootstrap", "MCMC"), + normal = "Wald normal", + boot = "parametric bootstrap", + "Wald" + ) + + if (ci_method %in% c("kenward", "kr", "kenward-roger", "kenward-rogers", "satterthwaite")) { + string_approx <- paste0("with ", parameters::format_df_adjust(ci_method, approx_string = "", dof_string = ""), " ") + } else { + string_approx <- "" + } + + if (!is.null(test_statistic) && !ci_method == "normal" && !isTRUE(bootstrap)) { + string_statistic <- switch(tolower(test_statistic), + "t-statistic" = "t", + "chi-squared statistic" = , + "z-statistic" = "z", + "" + ) + string_method <- paste0(string_method, " ", string_statistic, "-") + } else { + string_method <- paste0(string_method, " ") + } + + # bootstrapped intervals + if (isTRUE(bootstrap)) { + text <- paste0(text, string_method, "intervals.") + } else { + text <- paste0(text, "a ", string_method, "distribution ", string_approx, "approximation.") + } + text +} + +#' @keywords internal +.info_effectsize <- function(x, effectsize = NULL, include_effectsize = FALSE) { + text <- "" + + if (!is.null(effectsize)) { + text <- attributes(effectsize)$method + if (include_effectsize) { + text <- paste0(text, attributes(effectsize)$rules) + text <- gsub(".Effect sizes ", " and ", text) + } + } + + text +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_intercept.R b/report.Rcheck/00_pkg_src/report/R/report_intercept.R new file mode 100644 index 000000000..85cc928ac --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_intercept.R @@ -0,0 +1,112 @@ +#' Report intercept +#' +#' Reports intercept of regression models (see list of supported objects in +#' [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return An object of class [report_intercept()]. +#' +#' @examples +#' \donttest{ +#' library(report) +#' +#' # GLMs +#' report_intercept(lm(Sepal.Length ~ Species, data = iris)) +#' report_intercept(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_intercept(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +#' report_intercept(model) +#' } +#' @export + +report_intercept <- function(x, ...) { + UseMethod("report_intercept") +} + + +# METHODS ----------------------------------------------------------------- + +#' @rdname as.report +#' @export +as.report_intercept <- function(x, summary = NULL, ...) { + class(x) <- unique(c("report_intercept", class(x))) + attributes(x) <- c(attributes(x), list(...)) + + if (!is.null(summary)) { + attr(x, "summary") <- summary + } + x +} + + +#' @export +summary.report_intercept <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_intercept <- function(x, ...) { + cat(paste(x, collapse = "\n")) +} + + +# Utils ------------------------------------------------------------------- + +#' @keywords internal +.find_intercept <- function(model) { + # Intercept-only + if (suppressWarnings(insight::is_nullmodel(model))) { + return("") + } + + terms <- insight::find_variables(model)$conditional + model_data <- insight::get_data(model) + data <- model_data[terms[terms %in% names(model_data)]] + text <- NULL + for (col in names(data)) { + if (is.numeric(data[[col]])) { + text <- c(text, paste0(col, " = 0")) + } else if (is.character(data[[col]])) { + text <- c(text, paste0(col, " = ", levels(as.factor(data[[col]]))[1])) + } else if (is.factor(data[[col]])) { + text <- c(text, paste0(col, " = ", levels(data[[col]])[.find_reference_level(data[[col]])])) + } else { + text <- c(text, paste0(col, " = [?]")) + } + } + paste0(", corresponding to ", datawizard::text_concatenate(text), ",") +} + + +.find_reference_level <- function(f) { + tryCatch( + { + con <- stats::contrasts(f) + unname(which(apply(con, 1, function(i) sum(i) == 0))) + }, + error = function(e) { + 1 + } + ) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_misc.R b/report.Rcheck/00_pkg_src/report/R/report_misc.R new file mode 100644 index 000000000..173c9fa99 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_misc.R @@ -0,0 +1,45 @@ +#' Miscellaneous reports +#' +#' Other convenient or totally useless reports. +#' +#' @inheritParams report +#' +#' @inherit report return seealso +#' +#' @examples +#' library(report) +#' +#' report_date() +#' summary(report_date()) +#' report_story() +#' @return Objects of class [report_text()]. +#' @export +report_date <- function(...) { + date <- Sys.time() + text <- format(date, "It's %A, %B %d of the year %Y, at %l%P %M and %S seconds") + text_short <- format(date, "%d/%m/%y - %H:%M:%S") + as.report_text(text, summary = text_short) +} + + +#' @rdname report_date +#' @export +report_story <- function(...) { + text <- + paste( + "Did you ever hear the tragedy of Darth Plagueis The Wise? I thought not.", + "It's not a story the Jedi would tell you. It's a Sith legend.", + "Darth Plagueis was a Dark Lord of the Sith, so powerful and so wise he could use the Force", + "to influence the midichlorians to create life...", + "He had such a knowledge of the dark side that he could even keep the ones he cared about from dying.", + "The dark side of the Force is a pathway to many abilities some consider to be unnatural.", + "He became so powerful...", + "the only thing he was afraid of was losing his power, which eventually, of course, he did.", + "Unfortunately, he taught his apprentice everything he knew, then his apprentice killed him in his sleep.", + "Ironic. He could save others from death, but not himself." + ) + + text_short <- "So this is how liberty dies. With thunderous applause." + + as.report_text(text, summary = text_short) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_model.R b/report.Rcheck/00_pkg_src/report/R/report_model.R new file mode 100644 index 000000000..3a076950b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_model.R @@ -0,0 +1,77 @@ +#' Report the model type +#' +#' Reports the type of different R objects (see list of supported objects in +#' [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return A `character` string. +#' +#' @examples +#' \donttest{ +#' library(report) +#' +#' # h-tests +#' report_model(t.test(iris$Sepal.Width, iris$Sepal.Length)) +#' +#' # ANOVA +#' report_model(aov(Sepal.Length ~ Species, data = iris)) +#' +#' # GLMs +#' report_model(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' report_model(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_model(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +#' report_model(model) +#' } +#' @export +report_model <- function(x, table = NULL, ...) { + UseMethod("report_model") +} + + +# METHODS ----------------------------------------------------------------- + + +#' @rdname as.report +#' @export +as.report_model <- function(x, summary = NULL, ...) { + class(x) <- unique(c("report_model", class(x))) + attributes(x) <- c(attributes(x), list(...)) + + if (!is.null(summary)) { + attr(x, "summary") <- summary + } + x +} + + +#' @export +summary.report_model <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_model <- function(x, ...) { + cat(paste(x, collapse = "\n")) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_parameters.R b/report.Rcheck/00_pkg_src/report/R/report_parameters.R new file mode 100644 index 000000000..540931988 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_parameters.R @@ -0,0 +1,212 @@ +#' Report the parameters of a model +#' +#' Creates a list containing a description of the parameters of R objects (see +#' list of supported objects in [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return A `vector`. +#' +#' @examples +#' \donttest{ +#' library(report) +#' +#' # Miscellaneous +#' r <- report_parameters(sessionInfo()) +#' r +#' summary(r) +#' +#' # Data +#' report_parameters(iris$Sepal.Length) +#' report_parameters(as.character(round(iris$Sepal.Length, 1))) +#' report_parameters(iris$Species) +#' report_parameters(iris) +#' +#' # h-tests +#' report_parameters(t.test(iris$Sepal.Width, iris$Sepal.Length)) +#' +#' # ANOVA +#' report_parameters(aov(Sepal.Length ~ Species, data = iris)) +#' +#' # GLMs +#' report_parameters(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' report_parameters(lm(Petal.Width ~ Species, data = iris), include_intercept = FALSE) +#' report_parameters(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_parameters(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +#' report_parameters(model) +#' } +#' @export +report_parameters <- function(x, ...) { + UseMethod("report_parameters") +} + + +# METHODS ----------------------------------------------------------------- + + +#' @rdname as.report +#' @export +as.report_parameters <- function(x, summary = NULL, prefix = " - ", ...) { + class(x) <- unique(c("report_parameters", class(x))) + attributes(x) <- c(attributes(x), list(...)) + attr(x, "prefix") <- prefix + + if (!is.null(summary)) { + class(summary) <- unique(c("report_parameters", class(summary))) + attr(summary, "prefix") <- prefix + attr(x, "summary") <- summary + } + x +} + +#' @export +as.character.report_parameters <- function(x, prefix = NULL, ...) { + # Find prefix + if (is.null(prefix)) prefix <- attributes(x)$prefix + if (is.null(prefix)) prefix <- "" + + # Concatenate + text <- paste0(prefix, x) + text <- paste(text, collapse = "\n") + text +} + +#' @export +summary.report_parameters <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + + +#' @export +print.report_parameters <- function(x, ...) { + cat(as.character(x, ...)) +} + + +# Utils ------------------------------------------------------------------- + +#' @keywords internal +.format_parameters_aov <- function(names) { + for (i in seq_along(names)) { + if (grepl(":", names[i], fixed = TRUE)) { + interaction_terms <- unlist(strsplit(names[i], ":", fixed = TRUE)) + names[i] <- paste0("The interaction between ", datawizard::text_concatenate(interaction_terms)) + } else { + names[i] <- paste0("The main effect of ", names[i]) + } + } + names +} + +#' @keywords internal +.format_parameters_regression <- function(names) { + for (i in seq_along(names)) { + # Interaction + if (grepl(" * ", names[i], fixed = TRUE)) { + parts <- unlist(strsplit(names[i], " * ", fixed = TRUE)) + basis <- paste(utils::head(parts, -1), collapse = " * ") + names[i] <- paste0("The interaction effect of ", utils::tail(parts, 1), " on ", basis) + + # Intercept + } else if (names[i] == "(Intercept)") { + names[i] <- paste0("The intercept") + + # No interaction + } else { + names[i] <- paste0("The effect of ", names[i]) + } + } + names +} + +#' @keywords internal +.parameters_starting_text <- function(x, params) { + if ("pretty_names" %in% attributes(params)) { + pretty_name <- attributes(params)$pretty_names[params$Parameter] + } else { + pretty_name <- parameters::format_parameters(x) + } + + text <- vapply(pretty_name, + .format_parameters_regression, + USE.NAMES = TRUE, "character" + ) + + text +} + + +#' @keywords internal +.parameters_diagnostic_bayesian <- function(diagnostic, only_when_insufficient = FALSE, ...) { + # Convergence + if ("Rhat" %in% names(diagnostic)) { + convergence <- effectsize::interpret_rhat(diagnostic$Rhat, ...) + text <- ifelse(convergence == "converged", + paste0( + "The estimation successfully converged (Rhat = ", + insight::format_value(diagnostic$Rhat, digits = 3), + ")" + ), + paste0( + "However, the estimation might not have successfuly converged (Rhat = ", + insight::format_value(diagnostic$Rhat, digits = 3), + ")" + ) + ) + + if ("ESS" %in% names(diagnostic)) { + stability <- effectsize::interpret_ess(diagnostic$ESS, ...) + text <- lapply(seq_len(length(stability)), function(x) { + y <- switch(EXPR = paste(stability[x] == "sufficient", convergence[x] == "converged"), + "TRUE TRUE" = paste0( + text, " and the indices are reliable (ESS = ", + insight::format_value(diagnostic$ESS, digits = 0), ")" + ), + "TRUE FALSE" = paste0( + text, " even though the indices appear as reliable (ESS = ", + insight::format_value(diagnostic$ESS, digits = 0), ")" + ), + "FALSE TRUE" = paste0( + text, " but the indices are unreliable (ESS = ", + insight::format_value(diagnostic$ESS, digits = 0), ")" + ), + "FALSE FALSE" = paste0( + text, " and the indices are unreliable (ESS = ", + insight::format_value(diagnostic$ESS, digits = 0), ")" + ) + ) + y[[x]] + }) + text <- unlist(text) + } + } else { + text <- "" + } + + if (!only_when_insufficient) { + text + } else { + ifelse(convergence != "converged" | stability != "sufficient", text, "") + } +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_participants.R b/report.Rcheck/00_pkg_src/report/R/report_participants.R new file mode 100644 index 000000000..5a8f10b13 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_participants.R @@ -0,0 +1,594 @@ +#' Reporting the participant data +#' +#' A helper function to help you format the participants data (age, sex, ...) in +#' the participants section. +#' +#' @param data A data frame. +#' @param age The name of the column containing the age of the participant. +#' @param sex The name of the column containing the sex of the participant. The +#' classes should be one of `c("Male", "M", "Female", "F")`. Note that +#' you can specify other characters here as well (e.g., `"Intersex"`), but +#' the function will group all individuals in those groups as `"Other"`. +#' @param gender The name of the column containing the gender of the +#' classes should be one of `c("Man", "M", "Male", Woman", "W", "F", +#' "Female", Non-Binary", "N")`. Note that you can specify other characters +#' here as well (e.g., `"Gender Fluid"`), but the function will group all +#' individuals in those groups as `"Non-Binary"`. +#' @param education The name of the column containing education information. +#' @param country The name of the column containing country information. +#' @param race The name of the column containing race/ethnicity information. +#' @param threshold Percentage after which to combine, e.g., countries (default is 10%, +#' so countries that represent less than 10% will be combined in the "other" category). +#' @param participants The name of the participants' identifier column (for +#' instance in the case of repeated measures). +#' @param by A character vector indicating the name(s) of the column(s) used +#' for stratified description. +#' @param spell_n Logical, fully spell the sample size (`"Three participants"` +#' instead of `"3 participants"`). +#' @inheritParams report.numeric +#' @param group Deprecated. Use `by` instead. +#' +#' @return A character vector with description of the "participants", based on +#' the information provided in `data`. +#' +#' @examples +#' library(report) +#' data <- data.frame( +#' "Age" = c(22, 23, 54, 21, 8, 42), +#' "Sex" = c("Intersex", "F", "M", "M", "NA", NA), +#' "Gender" = c("N", "W", "W", "M", "NA", NA) +#' ) +#' report_participants(data, age = "Age", sex = "Sex") +#' +#' # Years of education (relative to high school graduation) +#' data$Education <- c(0, 8, -3, -5, 3, 5) +#' report_participants(data, +#' age = "Age", sex = "Sex", gender = "Gender", +#' education = "Education" +#' ) +#' +#' # Education as factor +#' data$Education2 <- c( +#' "Bachelor", "PhD", "Highschool", +#' "Highschool", "Bachelor", "Bachelor" +#' ) +#' report_participants(data, age = "Age", sex = "Sex", gender = "Gender", education = "Education2") +#' +#' # Country +#' data <- data.frame( +#' "Age" = c(22, 23, 54, 21, 8, 42, 18, 32, 24, 27, 45), +#' "Sex" = c("Intersex", "F", "F", "M", "M", "M", "F", "F", "F", "F", "F"), +#' "Gender" = c("N", "W", "W", "M", "M", "M", "W", "W", "W", "W", "W"), +#' "Country" = c( +#' "USA", NA, "Canada", "Canada", "India", "Germany", +#' "USA", "USA", "USA", "USA", "Canada" +#' ) +#' ) +#' report_participants(data) +#' +#' # Country, control presentation treshold +#' report_participants(data, threshold = 5) +#' +#' # Race/ethnicity +#' data <- data.frame( +#' "Age" = c(22, 23, 54, 21, 8, 42, 18, 32, 24, 27, 45), +#' "Sex" = c("Intersex", "F", "F", "M", "M", "M", "F", "F", "F", "F", "F"), +#' "Gender" = c("N", "W", "W", "M", "M", "M", "W", "W", "W", "W", "W"), +#' "Race" = c( +#' "Black", NA, "White", "Asian", "Black", "Arab", "Black", +#' "White", "Asian", "Southeast Asian", "Mixed" +#' ) +#' ) +#' report_participants(data) +#' +#' # Race/ethnicity, control presentation treshold +#' report_participants(data, threshold = 5) +#' +#' # Repeated measures data +#' data <- data.frame( +#' "Age" = c(22, 22, 54, 54, 8, 8), +#' "Sex" = c("I", "F", "M", "M", "F", "F"), +#' "Gender" = c("N", "W", "W", "M", "M", "M"), +#' "Participant" = c("S1", "S1", "s2", "s2", "s3", "s3") +#' ) +#' report_participants(data, age = "Age", sex = "Sex", gender = "Gender", participants = "Participant") +#' +#' # Grouped data +#' data <- data.frame( +#' "Age" = c(22, 22, 54, 54, 8, 8, 42, 42), +#' "Sex" = c("I", "I", "M", "M", "F", "F", "F", "F"), +#' "Gender" = c("N", "N", "W", "M", "M", "M", "Non-Binary", "Non-Binary"), +#' "Participant" = c("S1", "S1", "s2", "s2", "s3", "s3", "s4", "s4"), +#' "Condition" = c("A", "A", "A", "A", "B", "B", "B", "B") +#' ) +#' +#' report_participants(data, +#' age = "Age", +#' sex = "Sex", +#' gender = "Gender", +#' participants = "Participant", +#' by = "Condition" +#' ) +#' +#' # Spell sample size +#' paste( +#' report_participants(data, participants = "Participant", spell_n = TRUE), +#' "were recruited in the study by means of torture and coercion." +#' ) +#' @export +report_participants <- function(data, + age = NULL, + sex = NULL, + gender = NULL, + education = NULL, + country = NULL, + race = NULL, + participants = NULL, + by = NULL, + spell_n = FALSE, + digits = 1, + threshold = 10, + group = NULL, + ...) { + ## TODO: deprecate later + if (!is.null(group)) { + insight::format_warning("Argument `group` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint + by <- group + } + + # Convert empty strings to NA + data_list <- lapply(data, function(x) { + x[which(x == "")] <- NA # nolint + x + }) + data <- as.data.frame(data_list, stringsAsFactors = FALSE) + + # find age variable automatically + if (is.null(age)) { + age <- .find_age_in_data(data) + } + + # find sex variable automatically + if (is.null(sex)) { + sex <- .find_sex_in_data(data) + } + + # find gender variable automatically + if (is.null(gender)) { + gender <- .find_gender_in_data(data) + } + + # find education variable automatically + if (is.null(education)) { + education <- .find_education_in_data(data) + } + + # find country variable automatically + if (is.null(country)) { + country <- .find_country_in_data(data) + } + + # find race variable automatically + if (is.null(race)) { + race <- .find_race_in_data(data) + } + + if (is.null(by)) { + final_text <- .report_participants( + data, + age = age, + sex = sex, + gender = gender, + education = education, + country = country, + race = race, + participants = participants, + spell_n = spell_n, + digits = digits, + threshold = threshold, + ... + ) + } else { + final_text <- NULL + data[[by]] <- as.character(data[[by]]) + for (i in split(data, data[by])) { + current_text <- .report_participants( + i, + age = age, + sex = sex, + gender = gender, + education = education, + country = country, + race = race, + participants = participants, + spell_n = spell_n, + digits = digits, + threshold = threshold + ) + + pre_text <- paste0( + "the '", + paste0(names(i[by]), " - ", vapply(i[by], unique, "character"), collapse = " and "), + "' group: " + ) + + final_text <- c(final_text, paste0(pre_text, current_text)) + } + final_text <- paste("For", datawizard::text_concatenate(final_text, sep = ", for ", last = " and for ")) + } + final_text +} + +#' @keywords internal +.check_df_names <- function(data, names) { + data[names] <- lapply(names, function(x) { + if (is.null(x) || !all(x %in% names(data))) { + NA + } else { + data[[x]] + } + }) + data +} + +#' @keywords internal +.replace_names <- function(data, x) { + if (is.null(x) || !all(x %in% names(data))) { + tools::toTitleCase(deparse(substitute(x))) + } else { + x + } +} + +#' @keywords internal +.report_participants <- function(data, + age = "Age", + sex = "Sex", + gender = "Gender", + education = "Education", + country = "Country", + race = "Race", + participants = NULL, + spell_n = FALSE, + digits = 1, + threshold = 10, + ...) { + # Sanity checks + demo_names <- c("Age", "Sex", "Gender", "Education", "Country", "Race") + data <- .check_df_names(data, names = demo_names) + + age <- .replace_names(data, age) + sex <- .replace_names(data, sex) + gender <- .replace_names(data, gender) + education <- .replace_names(data, education) + country <- .replace_names(data, country) + race <- .replace_names(data, race) + + # Set age as numeric + data[[age]] <- as.numeric(data[[age]]) + + # Grouped data + if (!is.null(participants)) { + data <- data.frame( + Age = stats::aggregate(data[[age]], + by = list(data[[participants]]), + FUN = mean + )[[2]], + Sex = stats::aggregate(data[[sex]], + by = list(data[[participants]]), + FUN = utils::head, n = 1 + )[[2]], + Gender = stats::aggregate(data[[gender]], + by = list(data[[participants]]), + FUN = utils::head, n = 1 + )[[2]], + Education = stats::aggregate(data[[education]], + by = list(data[[participants]]), + FUN = utils::head, n = 1 + )[[2]], + Country = stats::aggregate(data[[country]], + by = list(data[[participants]]), + FUN = utils::head, n = 1 + )[[2]], + Race = stats::aggregate(data[[race]], + by = list(data[[participants]]), + FUN = utils::head, n = 1 + )[[2]], + stringsAsFactors = FALSE + ) + age <- "Age" + sex <- "Sex" + gender <- "Gender" + education <- "Education" + country <- "Country" + race <- "Race" + } + + if (spell_n) { + size <- tools::toTitleCase(insight::format_number(nrow(data))) + } else { + size <- nrow(data) + } + + # Create text + if (all(is.na(data[[age]]))) { + text_age <- "" + } else { + text_age <- summary( + report_statistics( + data[[age]], + n = FALSE, + centrality = "mean", + missing_percentage = TRUE, + digits = digits, + ... + ) + ) + text_age <- sub("Mean =", "Mean age =", text_age, fixed = TRUE) + } + + + text_sex <- if (all(is.na(data[[sex]]))) { + "" + } else { + paste0( + "Sex: ", + insight::format_value(length(data[[sex]][tolower( + data[[sex]] + ) %in% c("female", "f")]) / nrow(data) * 100, digits = digits), + "% females, ", + insight::format_value(length(data[[sex]][tolower( + data[[sex]] + ) %in% c("male", "m")]) / nrow(data) * 100, digits = digits), + "% males, ", + insight::format_value(100 - length(data[[sex]][tolower( + data[[sex]] + ) %in% c("male", "m", "female", "f", NA, "na")]) / + nrow(data) * 100, digits = digits), + "% other", + if (insight::format_value(length(data[[sex]][tolower(data[[sex]]) %in% c(NA, "na")]) / nrow(data) * 100) != "0.00") { # nolint + paste0(", ", insight::format_value(length(data[[sex]][tolower( + data[[sex]] + ) %in% c(NA, "na")]) / nrow(data) * 100), "% missing") + } + ) + } + + genders_woman <- c( + "woman", "w", "female", "f", "women", "girl", + "lady", "miss", "madam", "dame", "lass" + ) + genders_man <- c( + "man", "m", "male", "men", "boy", + "guy", "dude", "lad", "sir" + ) + both_genders <- c(genders_woman, genders_man, NA, "na") + + text_gender <- if (all(is.na(data[[gender]]))) { + "" + } else { + paste0( + "Gender: ", + insight::format_value(length(data[[gender]][tolower( + data[[gender]] + ) %in% genders_woman]) / nrow(data) * 100, digits = digits), + "% women, ", + insight::format_value(length(data[[gender]][tolower( + data[[gender]] + ) %in% genders_man]) / nrow(data) * 100, digits = digits), + "% men, ", + insight::format_value(100 - length(data[[gender]][tolower( + data[[gender]] + ) %in% both_genders]) / + nrow(data) * 100), "% non-binary", + if (insight::format_value(length(data[[gender]][tolower( + data[[gender]] + ) %in% c(NA, "na")]) / nrow(data) * 100) != "0.00") { + paste0(", ", insight::format_value(length(data[[gender]][tolower( + data[[gender]] + ) %in% c(NA, "na")]) / nrow(data) * 100), "% missing") + } + ) + } + + if (all(is.na(data[[education]]))) { + text_education <- "" + } else if (is.numeric(data[[education]])) { + text_education <- summary( + report_statistics( + data[[education]], + n = FALSE, + centrality = "mean", + missing_percentage = NULL, + digits = digits, + ... + ) + ) + + text_education <- sub("Mean =", "Mean education =", text_education, fixed = TRUE) + } else { + data[which(data[[education]] %in% c(NA, "NA")), education] <- "missing" + txt <- summary(report_statistics( + as.factor(data[[education]]), + levels_percentage = TRUE, + digits = digits, + ... + )) + + text_education <- paste0("Education: ", txt) + } + + text_country <- if (all(is.na(data[[country]]))) { + "" + } else { + data[[country]] <- as.character(data[[country]]) + data[which(data[[country]] %in% c(NA, "NA")), country] <- "missing" + frequency_table <- as.data.frame(datawizard::data_tabulate(data[[country]]), + stringsAsFactors = FALSE + )[c(2, 4)] + names(frequency_table)[2] <- "Percent" + frequency_table <- frequency_table[-which(is.na(frequency_table$Value)), ] + frequency_table <- frequency_table[order(-frequency_table$Percent), ] + upper <- frequency_table[which(frequency_table$Percent >= threshold), ] + lower <- frequency_table[which(frequency_table$Percent < threshold), ] + if (nrow(lower) > 0) { + lower_sum <- data.frame( + Value = "other", Percent = sum(lower$Percent), + stringsAsFactors = FALSE + ) + combined <- rbind(upper, lower_sum) + } else { + combined <- upper + } + combined$Percent <- insight::format_value(combined$Percent) + value_string <- paste0(combined$Percent, "% ", combined$Value, collapse = ", ") + text_country <- paste("Country:", value_string) + } + + text_race <- if (all(is.na(data[[race]]))) { + "" + } else { + data[[race]] <- as.character(data[[race]]) + data[which(data[[race]] %in% c(NA, "NA")), race] <- "missing" + frequency_table <- as.data.frame(datawizard::data_tabulate(data[[race]]), + stringsAsFactors = FALSE + )[c(2, 4)] + names(frequency_table)[2] <- "Percent" + frequency_table <- frequency_table[-which(is.na(frequency_table$Value)), ] + frequency_table <- frequency_table[order(-frequency_table$Percent), ] + upper <- frequency_table[which(frequency_table$Percent >= threshold), ] + lower <- frequency_table[which(frequency_table$Percent < threshold), ] + if (nrow(lower) > 0) { + lower_sum <- data.frame( + Value = "other", Percent = sum(lower$Percent), + stringsAsFactors = FALSE + ) + combined <- rbind(upper, lower_sum) + } else { + combined <- upper + } + combined$Percent <- insight::format_value(combined$Percent) + value_string <- paste0(combined$Percent, "% ", combined$Value, collapse = ", ") + text_race <- paste("Race:", value_string) + } + + # nolint start + paste0( + size, + " participants (", + ifelse(text_age == "", "", text_age), + ifelse(text_sex == "", "", paste0(ifelse( + text_age == "", "", "; " + ), text_sex)), + ifelse(text_gender == "", "", paste0(ifelse( + text_age == "" & text_sex == "", "", "; " + ), text_gender)), + ifelse(text_education == "", "", paste0(ifelse( + text_age == "" & text_sex == "" & text_gender == "", "", "; " + ), text_education)), + ifelse(text_country == "", "", paste0(ifelse( + text_education == "" & text_age == "" & text_sex == "" & + text_gender == "", "", "; " + ), text_country)), + ifelse(text_race == "", "", paste0(ifelse( + text_country == "" & text_education == "" & text_age == "" & + text_sex == "" & text_gender == "", "", "; " + ), text_race)), + ")" + ) + # nolint end +} + +#' @keywords internal +.find_age_in_data <- function(data) { + if ("Age" %in% colnames(data)) { + "Age" + } else if ("age" %in% colnames(data)) { + "age" + } else if (any(startsWith("Age", colnames(data)))) { + grep("^Age", colnames(data), value = TRUE)[1] + } else if (any(startsWith("age", colnames(data)))) { + grep("^age", colnames(data), value = TRUE)[1] + } else { + "" + } +} + +#' @keywords internal +.find_sex_in_data <- function(data) { + if ("Sex" %in% colnames(data)) { + "Sex" + } else if ("sex" %in% colnames(data)) { + "sex" + } else if (any(startsWith("Sex", colnames(data)))) { + grep("^Sex", colnames(data), value = TRUE)[1] + } else if (any(startsWith("sex", colnames(data)))) { + grep("^sex", colnames(data), value = TRUE)[1] + } else { + "" + } +} + +#' @keywords internal +.find_gender_in_data <- function(data) { + if ("Gender" %in% colnames(data)) { + "Gender" + } else if ("gender" %in% colnames(data)) { + "gender" + } else if (any(startsWith("Gender", colnames(data)))) { + grep("^Gender", colnames(data), value = TRUE)[1] + } else if (any(startsWith("gender", colnames(data)))) { + grep("^gender", colnames(data), value = TRUE)[1] + } else { + "" + } +} + +#' @keywords internal +.find_education_in_data <- function(data) { + if ("Education" %in% colnames(data)) { + "Education" + } else if ("education" %in% colnames(data)) { + "education" + } else if (any(startsWith("Education", colnames(data)))) { + grep("^Education", colnames(data), value = TRUE)[1] + } else if (any(startsWith("education", colnames(data)))) { + grep("^education", colnames(data), value = TRUE)[1] + } else if ("isced" %in% colnames(data)) { + "isced" + } else if (any(startsWith("isced", colnames(data)))) { + grep("^isced", colnames(data), value = TRUE)[1] + } else { + "" + } +} + +#' @keywords internal +.find_country_in_data <- function(data) { + if ("Country" %in% colnames(data)) { + "Country" + } else if ("country" %in% colnames(data)) { + "country" + } else if (any(startsWith("Country", colnames(data)))) { + grep("^Country", colnames(data), value = TRUE)[1] + } else if (any(startsWith("country", colnames(data)))) { + grep("^country", colnames(data), value = TRUE)[1] + } else { + "" + } +} + +#' @keywords internal +.find_race_in_data <- function(data) { + if ("Race" %in% colnames(data)) { + "Race" + } else if ("race" %in% colnames(data)) { + "race" + } else if (any(startsWith("Race", colnames(data)))) { + grep("^Race", colnames(data), value = TRUE)[1] + } else if (any(startsWith("race", colnames(data)))) { + grep("^race", colnames(data), value = TRUE)[1] + } else { + "" + } +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_performance.R b/report.Rcheck/00_pkg_src/report/R/report_performance.R new file mode 100644 index 000000000..2f60e37e7 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_performance.R @@ -0,0 +1,287 @@ +#' Report the model's quality and fit indices +#' +#' Investigating the fit of statistical models to data often involves selecting +#' the best fitting model amongst many competing models. This function helps +#' report indices of model fit for various models. Reports the type of +#' different R objects . For a list of supported objects, see +#' [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return An object of class [report_performance()]. +#' +#' @examples +#' \donttest{ +#' # GLMs +#' report_performance(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' report_performance(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_performance(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +#' report_performance(model) +#' } +#' +#' @examplesIf requireNamespace("lavaan", quietly = TRUE) && packageVersion("effectsize") >= "0.6.0.1" +#' \donttest{ +#' # Structural Equation Models (SEM) +#' library(lavaan) +#' structure <- "ind60 =~ x1 + x2 + x3 +#' dem60 =~ y1 + y2 + y3 +#' dem60 ~ ind60 " +#' model <- lavaan::sem(structure, data = PoliticalDemocracy) +#' suppressWarnings(report_performance(model)) +#' } +#' @export +report_performance <- function(x, table = NULL, ...) { + UseMethod("report_performance") +} + + +# METHODS ----------------------------------------------------------------- + + +#' @rdname as.report +#' @export +as.report_performance <- function(x, summary = NULL, ...) { + class(x) <- unique(c("report_performance", class(x))) + attributes(x) <- c(attributes(x), list(...)) + + if (!is.null(summary)) { + attr(x, "summary") <- summary + } + + x +} + + +#' @export +summary.report_performance <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_performance <- print.report_text + +# Utils ------------------------------------------------------------------- + + +#' @keywords internal +.text_r2 <- function(x, info, performance, ...) { + text <- "" + text_full <- "" + + # R2 + if ("R2" %in% names(performance)) { + r2 <- attributes(performance)$r2 + + text <- paste0( + "The model's explanatory power is ", + effectsize::interpret_r2(performance$R2, ...), + " (R2 = ", + insight::format_value(performance$R2) + ) + + # Frequentist + if (all(c("p", "df", "df_residual") %in% names(r2))) { + text_full <- paste0( + "The model explains a statistically ", + effectsize::interpret_p(r2$p), + " and ", + effectsize::interpret_r2(performance$R2, ...), + " proportion of variance (R2 = ", + insight::format_value(performance$R2), + ", F(", + insight::format_value(r2$df, protect_integers = TRUE), + ", ", + insight::format_value(r2$df_residual, protect_integers = TRUE), + ") = ", + insight::format_value(r2$`F`), + ", ", + insight::format_p(r2$p) + ) + } else { + text_full <- text + } + + if ("CI" %in% names(r2)) { + text_full <- paste0( + text_full, + ", ", + insight::format_ci( + r2$CI$R2_Bayes$CI_low, + r2$CI$R2_Bayes$CI_high, + r2$CI$R2_Bayes$CI + ) + ) + } + + + if ("R2_adjusted" %in% names(performance)) { + text <- paste0( + text, ", adj. R2 = ", + insight::format_value(performance$R2_adjusted), + ")" + ) + text_full <- paste0( + text_full, ", adj. R2 = ", + insight::format_value(performance$R2_adjusted), + ")" + ) + } else { + if (datawizard::text_lastchar(text_full) != ")") text_full <- paste0(text_full, ")") + if (datawizard::text_lastchar(text) != ")") text <- paste0(text, ")") + } + } + + + # Tjur's R2 + if ("R2_Tjur" %in% names(performance)) { + text <- text_full <- paste0( + "The model's explanatory power is ", + effectsize::interpret_r2(performance$R2_Tjur, ...), + " (Tjur's R2 = ", + insight::format_value(performance$R2_Tjur), + ")" + ) + } + + # Nagelkerke's R2 + if ("R2_Nagelkerke" %in% names(performance)) { + text <- text_full <- paste0( + "The model's explanatory power is ", + effectsize::interpret_r2(performance$R2_Nagelkerke, ...), + " (Nagelkerke's R2 = ", + insight::format_value(performance$R2_Nagelkerke), + ")" + ) + } + + # CoxSnell's R2 + if ("R2_CoxSnell" %in% names(performance)) { + text <- text_full <- paste0( + "The model's explanatory power is ", + effectsize::interpret_r2(performance$R2_CoxSnell, ...), + " (R2_CoxSnell's R2 = ", + insight::format_value(performance$R2_CoxSnell), + ")" + ) + } + + # McFadden's R2 + if ("R2_McFadden" %in% names(performance)) { + text <- text_full <- paste0( + "The model's explanatory power is ", + effectsize::interpret_r2(performance$R2_McFadden, ...), + " (McFadden's R2 = ", + insight::format_value(performance$R2_McFadden), + ")" + ) + } + + # R2 Conditional + if ("R2_conditional" %in% names(performance) && !is.na(performance$R2_conditional)) { + text <- text_full <- paste0( + "The model's total explanatory power is ", + effectsize::interpret_r2(performance$R2_conditional, ...), + " (conditional R2 = ", + insight::format_value(performance$R2_conditional), + ")" + ) + } + + # R2 marginal + if ("R2_marginal" %in% names(performance)) { + if (text == "") { + text <- text_full <- "The model's explanatory power" + of <- "" + } else { + text <- paste0(text, " and the part") + text_full <- paste0(text_full, " and the part") + of <- "of " + } + text_r2marginal <- paste0( + " related to the fixed effects alone (marginal R2) is ", + of, + insight::format_value(performance$R2_marginal) + ) + text <- paste0(text, text_r2marginal) + + if (!is.null(attributes(performance)$r2_bayes$CI$R2_Bayes_marginal)) { + r2 <- attributes(performance)$r2_bayes$CI$R2_Bayes_marginal + text_full <- paste0( + text_full, + text_r2marginal, + " (", + insight::format_ci( + r2$CI_low, + r2$CI_high, + r2$CI + ), + ")" + ) + } else { + text_full <- paste0(text_full, text_r2marginal) + } + } + + list(text_full = text_full, text = text) +} + + +#' @keywords internal +.text_performance_lavaan <- function(perf_table, ...) { + perf_table$Text <- paste0( + perf_table$Name, + " (", + substring(insight::format_value(perf_table$Value), 2), + ifelse(perf_table$Value > perf_table$Threshold, " > ", " < "), + substring(insight::format_value(perf_table$Threshold), 2), + ")" + ) + + # Satisfactory + if (length(perf_table[perf_table$Interpretation == "satisfactory", "Text"]) >= 1) { + text_satisfactory <- paste0( + "The ", + perf_table[perf_table$Interpretation == "satisfactory", "Text"], + ifelse(length(perf_table[perf_table$Interpretation == "satisfactory", "Text"]) > 1, " suggest", " suggests"), + " a satisfactory fit." + ) + } else { + text_satisfactory <- "" + } + + # Poor + if (length(perf_table[perf_table$Interpretation == "poor", "Text"]) >= 1) { + text_poor <- paste0( + "The ", + perf_table[perf_table$Interpretation == "poor", "Text"], + ifelse(length(perf_table[perf_table$Interpretation == "poor", "Text"]) > 1, " suggest", " suggests"), + " a poor fit." + ) + } else { + text_poor <- "" + } + + text <- datawizard::text_paste(text_satisfactory, text_poor, sep = " ") + text +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_priors.R b/report.Rcheck/00_pkg_src/report/R/report_priors.R new file mode 100644 index 000000000..a97508d10 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_priors.R @@ -0,0 +1,56 @@ +#' Report priors of Bayesian models +#' +#' Reports priors of Bayesian models (see list of supported objects in +#' [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return An object of class [report_priors()]. +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- stan_glm(mpg ~ disp, data = mtcars, refresh = 0, iter = 1000) +#' r <- report_priors(model) +#' r +#' summary(r) +#' } +#' @export +report_priors <- function(x, ...) { + UseMethod("report_priors") +} + + +# METHODS ----------------------------------------------------------------- + + +#' @rdname as.report +#' @export +as.report_priors <- function(x, summary = NULL, ...) { + class(x) <- unique(c("report_priors", class(x))) + attributes(x) <- c(attributes(x), list(...)) + + if (!is.null(summary)) { + attr(x, "summary") <- summary + } + x +} + + +#' @export +summary.report_priors <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_priors <- function(x, ...) { + cat(paste(x, collapse = "\n")) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_random.R b/report.Rcheck/00_pkg_src/report/R/report_random.R new file mode 100644 index 000000000..ca02eff9a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_random.R @@ -0,0 +1,78 @@ +#' Report random effects and factors +#' +#' Reports random effects of mixed models (see list of supported objects in +#' [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return An object of class [report_random()]. +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' r <- report_random(model) +#' r +#' summary(r) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_lmer( +#' mpg ~ disp + (1 | cyl), +#' data = mtcars, refresh = 0, iter = 1000 +#' )) +#' r <- report_random(model) +#' r +#' summary(r) +#' } +#' +#' @examplesIf requireNamespace("brms", quietly = TRUE) && packageVersion("rstan") >= "2.26.0" +#' \donttest{ +#' library(brms) +#' model <- suppressWarnings(brm(mpg ~ disp + (1 | cyl), data = mtcars, refresh = 0, iter = 1000)) +#' r <- report_random(model) +#' r +#' summary(r) +#' } +#' @export +report_random <- function(x, ...) { + UseMethod("report_random") +} + + +# METHODS ----------------------------------------------------------------- + + +#' @rdname as.report +#' @export +as.report_random <- function(x, summary = NULL, ...) { + class(x) <- unique(c("report_random", class(x))) + attributes(x) <- c(attributes(x), list(...)) + + if (!is.null(summary)) { + attr(x, "summary") <- summary + } + x +} + + +#' @export +summary.report_random <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_random <- function(x, ...) { + cat(paste(x, collapse = "\n")) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_s.R b/report.Rcheck/00_pkg_src/report/R/report_s.R new file mode 100644 index 000000000..95654f38a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_s.R @@ -0,0 +1,38 @@ +#' Report S- and p-values in easy language. +#' +#' Reports interpretation of S- and p-values in easy language. +#' +#' @param s An S-value. Either `s` or `p` must be provided. +#' @param p A p-value. Either `s` or `p` must be provided. +#' @param test_value The value of the test parameter under the null hypothesis. +#' @param test_parameter The name of the test parameter under the null hypothesis. +#' +#' @return A string with the interpretation of the S- or p-value. +#' +#' @examples +#' report_s(s = 1.5) +#' report_s(p = 0.05) +#' @export +report_s <- function(s = NULL, p = NULL, test_value = 0, test_parameter = "parameter") { + # sanity check arguments + if ((is.null(s) || all(is.na(s))) && (is.null(p) || all(is.na(p)))) { + insight::format_error("You must provide either `s` or `p`.") + } + if (length(s) > 1 || length(p) > 1) { + insight::format_error("You must provide a single value for `s` or `p`.") + } + # make sure we have both s and p + if (!is.null(p) && !is.na(p)) { + s <- -log2(p) + } else { + p <- 2^(-s) + } + all_heads <- round(s) + chance <- sprintf("%.2g", 100 * p) + msg <- paste0( + "If the test hypothesis (", test_parameter, " = ", test_value, ") and all model assumptions were true, ", + "there is a ", chance, "% chance of observing this outcome. How weird is that? ", + "It's hardly more surprising than getting ", all_heads, " heads in a row with fair coin tosses." + ) + insight::format_alert(msg) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_sample.R b/report.Rcheck/00_pkg_src/report/R/report_sample.R new file mode 100644 index 000000000..761a1cd2b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_sample.R @@ -0,0 +1,557 @@ +#' Sample Description +#' +#' Create sample description table (also referred to as "Table 1"). +#' +#' @param data A data frame for which descriptive statistics should be created. +#' @param by Character vector, indicating the column(s) for possible grouping +#' of the descriptive table. Note that weighting (see `weights`) does not work +#' with more than one grouping column. +#' @param centrality Character, indicates the statistics that should be +#' calculated for numeric variables. May be `"mean"` (for mean and +#' standard deviation) or `"median"` (for median and median absolute +#' deviation) as summary. +#' @param ci Level of confidence interval for relative frequencies (proportions). +#' If not `NULL`, confidence intervals are shown for proportions of factor +#' levels. +#' @param ci_method Character, indicating the method how to calculate confidence +#' intervals for proportions. Currently implemented methods are `"wald"` and +#' `"wilson"`. Note that `"wald"` can produce intervals outside the plausible +#' range of \[0, 1\], and thus it is recommended to prefer the `"wilson"` method. +#' The formulae for the confidence intervals are: +#' - `"wald"`: +#' +#' \deqn{p \pm z \sqrt{\frac{p (1 - p)}{n}}} +#' +#' - `"wilson"`: +#' +#' \deqn{\frac{2np + z^2 \pm z \sqrt{z^2 + 4npq}}{2(n + z^2)}} +#' +#' where `p` is the proportion (of a factor level), `q` is `1-p`, `z` is the +#' critical z-score based on the interval level and `n` is the length of the +#' vector (cf. *Newcombe 1998*, *Wilson 1927*). +#' @param ci_correct Logical, it `TRUE`, applies continuity correction. See +#' *Newcombe 1998* for different correction-methods based on the chosen +#' `ci_method`. +#' @param select Character vector, with column names that should be included in +#' the descriptive table. +#' @param exclude Character vector, with column names that should be excluded +#' from the descriptive table. +#' @param weights Character vector, indicating the name of a potential +#' weight-variable. Reported descriptive statistics will be weighted by +#' `weight`. +#' @param total Add a `Total` column. +#' @param digits Number of decimals. +#' @param n Logical, actual sample size used in the calculation of the +#' reported descriptive statistics (i.e., without the missing values). +#' @param group_by Deprecated. Use `by` instead. +#' @inheritParams report.data.frame +#' +#' @return A data frame of class `report_sample` with variable names and +#' their related summary statistics. +#' +#' @references +#' - Newcombe, R. G. (1998). Two-sided confidence intervals for the single +#' proportion: comparison of seven methods. Statistics in Medicine. 17 (8): +#' 857–872 +#' +#' - Wilson, E. B. (1927). Probable inference, the law of succession, and statistical +#' inference. Journal of the American Statistical Association. 22 (158): 209–212 +#' +#' @examples +#' library(report) +#' +#' report_sample(iris[, 1:4]) +#' report_sample(iris, select = c("Sepal.Length", "Petal.Length", "Species")) +#' report_sample(iris, by = "Species") +#' report_sample(airquality, by = "Month", n = TRUE, total = FALSE) +#' +#' # confidence intervals for proportions +#' set.seed(123) +#' d <- data.frame(x = factor(sample(letters[1:3], 100, TRUE, c(0.01, 0.39, 0.6)))) +#' report_sample(d, ci = 0.95, ci_method = "wald") # ups, negative CI +#' report_sample(d, ci = 0.95, ci_method = "wilson") # negative CI fixed +#' report_sample(d, ci = 0.95, ci_correct = TRUE) # continuity correction +#' @export +report_sample <- function(data, + by = NULL, + centrality = "mean", + ci = NULL, + ci_method = "wilson", + ci_correct = FALSE, + select = NULL, + exclude = NULL, + weights = NULL, + total = TRUE, + digits = 2, + n = FALSE, + group_by = NULL, + ...) { + ## TODO: deprecate later + if (!is.null(group_by)) { + insight::format_warning("Argument `group_by` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint + by <- group_by + } + + # check for correct input type + if (!is.data.frame(data)) { + data <- tryCatch( + as.data.frame(data, stringsAsFactors = FALSE), + error = function(e) { + insight::format_error("`data` must be a data frame, or an object that can be coerced to a data frame.") + } + ) + } + + variables <- colnames(data) + + # select all? + if (is.null(select)) { + select <- colnames(data) + } + + # for numeric indices, select related column names + if (is.numeric(select)) { + select <- colnames(data)[select] + } + + # sanity check for existing columns + .check_spelling(data, select) + .check_spelling(data, exclude) + .check_spelling(data, by) + .check_spelling(data, weights) + + # variables to keep + if (!is.null(weights)) { + select <- unique(c(select, weights)) + } + + # variables to keep + variables <- intersect(select, variables) + + # variables to exclude + if (!is.null(exclude)) { + variables <- setdiff(variables, exclude) + } + + # for grouped data frames, use groups as by argument + if (inherits(data, "grouped_df") && is.null(by)) { + by <- setdiff(colnames(attributes(data)$groups), ".rows") + } + + # grouped by? + do_grouping <- !is.null(by) && all(by %in% colnames(data)) + + # sanity check - weights and grouping + if (!is.null(by) && length(by) > 1 && !is.null(weights)) { + insight::format_error("Cannot apply `weights` when grouping is done by more than one variable.") + } + + # make clean data frame + class(data) <- "data.frame" + + # character to factor + data[] <- lapply(data, function(i) { + if (is.character(i)) { + i <- as.factor(i) + } + i + }) + + # coerce by columns to factor + groups <- as.data.frame(lapply(data[by], factor)) + + out <- if (isTRUE(do_grouping)) { + result <- lapply(split(data[variables], groups), function(x) { + x[by] <- NULL + .generate_descriptive_table( + x, + centrality, + weights, + digits, + n, + ci, + ci_method, + ci_correct + ) + }) + # for more than one group, fix column names. we don't want "a.b (n=10)", + # but rather ""a, b (n=10)"" + if (length(by) > 1) { + old_names <- datawizard::data_unite( + unique(groups), + new_column = ".old_names", + separator = "." + )[".old_names"] + + new_names <- datawizard::data_unite( + unique(groups), + new_column = ".new_names", + separator = ", " + )[".new_names"] + + name_map <- stats::setNames(new_names[[1]], old_names[[1]]) + names(result) <- name_map[names(result)] + } + # remember values of first columns + variable <- result[[1]]["Variable"] + # number of observation, based on weights + if (!is.null(weights)) { + n_obs <- round(as.vector(stats::xtabs(data[[weights]] ~ data[[by]]))) + } else { + n_obs <- as.vector(table(data[by])) + } + # column names for groups + cn <- sprintf("%s (n=%g)", names(result), n_obs) + # just extract summary columns + summaries <- do.call(cbind, lapply(result, function(i) i["Summary"])) + colnames(summaries) <- cn + # generate data for total column, but make sure to remove missings + total_data <- data[stats::complete.cases(data[by]), unique(c(variables, by))] + # bind all together, including total column + final <- cbind( + variable, + summaries, + Total = .generate_descriptive_table( + total_data[setdiff(variables, by)], + centrality, + weights, + digits, + n, + ci, + ci_method, + ci_correct + )[["Summary"]] + ) + # Remove Total column if need be + if (isFALSE(total)) { + final$Total <- NULL + } + # define total N, based on weights + if (!is.null(weights)) { + total_n <- round(sum(as.vector(table(data[by]))) * mean(data[[weights]], na.rm = TRUE)) + } else { + total_n <- sum(as.vector(table(data[by]))) + } + # add N to column name + colnames(final)[ncol(final)] <- sprintf( + "%s (n=%g)", + colnames(final)[ncol(final)], + total_n + ) + final + } else { + .generate_descriptive_table( + data[variables], + centrality, + weights, + digits, + n, + ci, + ci_method, + ci_correct + ) + } + + attr(out, "weighted") <- !is.null(weights) + class(out) <- c("report_sample", class(out)) + out +} + + +# helper ------------------------ + +.generate_descriptive_table <- function(x, + centrality, + weights, + digits, + n = FALSE, + ci = NULL, + ci_method = "wilson", + ci_correct = FALSE) { + if (!is.null(weights)) { + w <- x[[weights]] + columns <- setdiff(colnames(x), weights) + } else { + w <- NULL + columns <- colnames(x) + } + + do.call(rbind, lapply(columns, function(cn) { + .report_sample_row( + x[[cn]], + column = cn, + centrality = centrality, + weights = w, + digits = digits, + n = n, + ci = ci, + ci_method = ci_method, + ci_correct = ci_correct + ) + })) +} + + +# create a "table row", i.e. a summary from a variable ------------------------ + +.report_sample_row <- function(x, ...) { + UseMethod(".report_sample_row") +} + +.report_sample_row.numeric <- function(x, + column, + centrality = "mean", + weights = NULL, + digits = 1, + n = FALSE, + ...) { + n_stat <- ifelse(n, paste0(", ", sum(!is.na(x))), "") + + .summary <- if (centrality == "mean") { + sprintf("%.*f (%.*f)%s", digits, .weighted_mean(x, weights), digits, .weighted_sd(x, weights), n_stat) + } else { + sprintf("%.*f (%.*f)%s", digits, .weighted_median(x, weights), digits, .weighted_mad(x, weights), n_stat) + } + + n_label <- ifelse(n, ", n", "") + if (centrality == "mean") { + column <- sprintf("Mean %s (SD)%s", column, n_label) + } else { + column <- sprintf("Median %s (MAD)%s", column, n_label) + } + + data.frame( + Variable = column, + Summary = .summary, + stringsAsFactors = FALSE + ) +} + + +.report_sample_row.factor <- function(x, + column, + weights = NULL, + digits = 1, + ci = NULL, + ci_method = "wilson", + ci_correct = FALSE, + n = FALSE, + ...) { + # we need a factor here, to determine number of levels. For binary variables, + # only one category is shown. However, for grouped data, sometimes not all + # levels are present in each group. A character would then have only two values + # and recognized as binary, even if it actually would be a factor with more + # than two levels... + if (is.character(x)) { + x <- as.factor(x) + } + + if (!is.null(weights)) { + x[is.na(weights)] <- NA + weights[is.na(x)] <- NA + weights <- stats::na.omit(weights) + x <- stats::na.omit(x) + table_proportions <- prop.table(stats::xtabs(weights ~ x)) + } else { + table_proportions <- prop.table(table(x)) + } + + # for binary factors, just need one level + if (nlevels(x) == 2) { + table_proportions <- table_proportions[2] + } + + # CI for proportions? + if (!is.null(ci)) { + ci_low_high <- .ci_proportion(x, table_proportions, weights, ci, ci_method, ci_correct) + .summary <- sprintf( + "%.1f [%.1f, %.1f]", + 100 * table_proportions, + 100 * ci_low_high$ci_low, + 100 * ci_low_high$ci_high + ) + } else { + .summary <- sprintf("%.1f", 100 * table_proportions) + } + + if (isTRUE(n)) { + .summary <- paste0(.summary, ", ", round(sum(!is.na(x)) * as.vector(table_proportions))) + } + + n_label <- ifelse(n, ", n", "") + data.frame( + Variable = sprintf("%s [%s], %%%s", column, names(table_proportions), n_label), + Summary = as.vector(.summary), + stringsAsFactors = FALSE + ) +} + + +.report_sample_row.character <- .report_sample_row.factor + + +# Standard error for confidence interval of proportions ---- + +.ci_proportion <- function(x, table_proportions, weights, ci, ci_method, ci_correct) { + ci_method <- match.arg(tolower(ci_method), c("wald", "wilson")) + + # variables + p <- as.vector(table_proportions) + quant <- 1 - p + n <- length(stats::na.omit(x)) + z <- stats::qnorm((1 + ci) / 2) + + ## FIXME: Once know how to do, calculate accurate SE for weighted data + + # There is a formula how to deal with SE for weighted data, see + # https://en.wikipedia.org/wiki/Binomial_proportion_confidence_interval + # but it seems "p" is unknown. For now, we give a warning instead of + # estimating p for weighted data + if (!is.null(weights)) { + insight::format_warning("Confidence intervals are not accurate for weighted data.") + } + + if (ci_method == "wilson") { + # Wilson CIs ------------------- + if (isTRUE(ci_correct)) { + ci_low <- (2 * n * p + z^2 - 1 - z * sqrt(z^2 - 2 - 1 / n + 4 * p * (n * quant + 1))) / (2 * (n + z^2)) + ci_high <- (2 * n * p + z^2 + 1 + z * sqrt(z^2 + 2 - 1 / n + 4 * p * (n * quant - 1))) / (2 * (n + z^2)) + # close to 0 or 1, then CI is 0 resp. 1 + fix_ci <- p < 0.00001 | ci_low < 0.00001 + if (any(fix_ci)) { + ci_low[fix_ci] <- 0 + } + fix_ci <- p > 0.99999 | ci_high > 0.99999 + if (any(fix_ci)) { + ci_high[fix_ci] <- 1 + } + out <- list(ci_low = ci_low, ci_high = ci_high) + } else { + prop <- (2 * n * p) + z^2 + moe <- z * sqrt(z^2 + 4 * n * p * quant) + correction <- 2 * (n + z^2) + out <- list( + ci_low = (prop - moe) / correction, + ci_high = (prop + moe) / correction + ) + } + } else { + # Wald CIs ------------------- + moe <- z * suppressWarnings(sqrt(p * quant / n)) + if (isTRUE(ci_correct)) { + moe <- moe + 1 / (2 * n) + } + out <- list(ci_low = p - moe, ci_high = p + moe) + } + out +} + + +# print-method -------------------------------------------- + +#' @export +print.report_sample <- function(x, layout = "horizontal", ...) { + layout <- match.arg(layout, choices = c("horizontal", "vertical")) + if (isTRUE(attributes(x)$weighted)) { + header <- "# Descriptive Statistics (weighted)\n\n" + } else { + header <- "# Descriptive Statistics\n\n" + } + + if (layout == "vertical") { + x <- datawizard::data_transpose(x, colnames = TRUE, rownames = "Groups") + } + insight::print_colour(header, "blue") + cat(insight::export_table(x)) +} + +#' @export +print_html.report_sample <- function(x, layout = "horizontal", ...) { + layout <- match.arg(layout, choices = c("horizontal", "vertical")) + if (isTRUE(attributes(x)$weighted)) { + caption <- "Descriptive Statistics (weighted)" + } else { + caption <- "Descriptive Statistics" + } + if (layout == "vertical") { + x <- datawizard::data_transpose(x, colnames = TRUE, rownames = "Groups") + } + insight::export_table(x, format = "html", caption = caption, ...) +} + +#' @export +print_md.report_sample <- function(x, layout = "horizontal", ...) { + layout <- match.arg(layout, choices = c("horizontal", "vertical")) + if (isTRUE(attributes(x)$weighted)) { + caption <- "Descriptive Statistics (weighted)" + } else { + caption <- "Descriptive Statistics" + } + if (layout == "vertical") { + x <- datawizard::data_transpose(x, colnames = TRUE, rownames = "Groups") + } + insight::export_table(x, format = "markdown", caption = caption, ...) +} + + +# helper for weighted stuff -------------------------- + +.weighted_variance <- function(x, weights = NULL) { + if (is.null(weights)) { + return(stats::var(x, na.rm = TRUE)) + } + x[is.na(weights)] <- NA + weights[is.na(x)] <- NA + weights <- stats::na.omit(weights) + x <- stats::na.omit(x) + xbar <- sum(weights * x) / sum(weights) + sum(weights * ((x - xbar)^2)) / (sum(weights) - 1) +} + + +.weighted_sd <- function(x, weights = NULL) { + if (is.null(weights)) { + return(stats::sd(x, na.rm = TRUE)) + } + sqrt(.weighted_variance(x, weights)) +} + + +.weighted_median <- function(x, weights = NULL, p = 0.5) { + if (is.null(weights)) { + return(stats::median(x, na.rm = TRUE)) + } + x[is.na(weights)] <- NA + weights[is.na(x)] <- NA + weights <- stats::na.omit(weights) + x <- stats::na.omit(x) + x_order <- order(x) + x <- x[x_order] + weights <- weights[x_order] + rw <- cumsum(weights) / sum(weights) + md_values <- min(which(rw >= p)) + if (rw[md_values] == p) { + mean(x[md_values:(md_values + 1)]) + } else { + x[md_values] + } +} + + +.weighted_mean <- function(x, weights = NULL) { + if (is.null(weights)) { + return(mean(x, na.rm = TRUE)) + } + x[is.na(weights)] <- NA + weights[is.na(x)] <- NA + weights <- stats::na.omit(weights) + x <- stats::na.omit(x) + stats::weighted.mean(x, w = weights, na.rm = TRUE) +} + + +.weighted_mad <- function(x, weights = NULL, constant = 1.4826) { + center <- .weighted_median(x, weights = weights) + x <- abs(x - center) + constant * .weighted_median(x, weights = weights) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_statistics.R b/report.Rcheck/00_pkg_src/report/R/report_statistics.R new file mode 100644 index 000000000..75266f716 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_statistics.R @@ -0,0 +1,80 @@ +#' Report the statistics of a model +#' +#' Creates a list containing a description of the parameters' values of R +#' objects (see list of supported objects in [report()]). Useful to +#' insert in parentheses in plots or reports. +#' +#' @inheritParams report +#' @inheritParams report_table +#' @inheritParams report_text +#' @inheritParams as.report +#' +#' @return An object of class [report_statistics()]. +#' +#' @examples +#' \donttest{ +#' library(report) +#' +#' # Data +#' report_statistics(iris$Sepal.Length) +#' report_statistics(as.character(round(iris$Sepal.Length, 1))) +#' report_statistics(iris$Species) +#' report_statistics(iris) +#' +#' # h-tests +#' report_statistics(t.test(iris$Sepal.Width, iris$Sepal.Length)) +#' +#' # ANOVA +#' report_statistics(aov(Sepal.Length ~ Species, data = iris)) +#' +#' # GLMs +#' report_statistics(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' report_statistics(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_statistics(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +#' report_statistics(model) +#' } +#' @export + +report_statistics <- function(x, table = NULL, ...) { + UseMethod("report_statistics") +} + + +# METHODS ----------------------------------------------------------------- + +#' @rdname as.report +#' @export +as.report_statistics <- function(x, summary = NULL, prefix = " - ", ...) { + class(x) <- unique(c("report_statistics", class(x))) + attributes(x) <- c(attributes(x), list(...)) + attr(x, "prefix") <- prefix + + if (!is.null(summary)) { + class(summary) <- unique(c("report_statistics", class(summary))) + attr(summary, "prefix") <- prefix + attr(x, "summary") <- summary + } + x +} + +#' @export +summary.report_statistics <- summary.report_parameters + +#' @export +print.report_statistics <- function(x, ...) { + cat(paste(x, collapse = "\n")) +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_table.R b/report.Rcheck/00_pkg_src/report/R/report_table.R new file mode 100644 index 000000000..faa2ae0f5 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_table.R @@ -0,0 +1,198 @@ +#' Report a descriptive table +#' +#' Creates tables to describe different objects (see list of supported objects +#' in [report()]). +#' +#' @inheritParams report +#' +#' @return An object of class [report_table()]. +#' +#' @examples +#' \donttest{ +#' # Miscellaneous +#' r <- report_table(sessionInfo()) +#' r +#' summary(r) +#' +#' # Data +#' report_table(iris$Sepal.Length) +#' report_table(as.character(round(iris$Sepal.Length, 1))) +#' report_table(iris$Species) +#' report_table(iris) +#' +#' # h-tests +#' report_table(t.test(mtcars$mpg ~ mtcars$am)) +#' +#' # ANOVAs +#' report_table(aov(Sepal.Length ~ Species, data = iris)) +#' +#' # GLMs +#' report_table(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' report_table(glm(vs ~ disp, data = mtcars, family = "binomial")) +#' } +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' # Mixed models +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' report_table(model) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +#' report_table(model, effectsize_method = "basic") +#' } +#' +#' @examplesIf requireNamespace("lavaan", quietly = TRUE) +#' \donttest{ +#' # Structural Equation Models (SEM) +#' library(lavaan) +#' structure <- "ind60 =~ x1 + x2 + x3 +#' dem60 =~ y1 + y2 + y3 +#' dem60 ~ ind60" +#' model <- lavaan::sem(structure, data = PoliticalDemocracy) +#' suppressWarnings(report_table(model)) +#' } +#' @export +report_table <- function(x, ...) { + UseMethod("report_table") +} + + +# METHODS ----------------------------------------------------------------- + +#' @rdname as.report +#' @export +as.report_table <- function(x, ...) { + UseMethod("as.report_table") +} + +#' @export +as.report_table.default <- function(x, summary = NULL, as_is = FALSE, ...) { + if (as_is) { + class(x) <- unique(c(class(x)[1], "report_table", utils::tail(class(x), -1))) + } else { + class(x) <- unique(c("report_table", class(x))) + } + + attributes(x) <- c(attributes(x), list(...)) + + if (!is.null(summary)) { + if (as_is) { + class(summary) <- unique(c(class(summary)[1], "report_table", utils::tail(class(summary), -1))) + } else { + class(summary) <- unique(c("report_table", class(summary))) + } + attr(x, "summary") <- summary + } + + x +} + +#' @export +as.report_table.report <- function(x, summary = NULL, ...) { + if (is.null(summary) || isFALSE(summary)) { + attributes(x)$table + } else if (isTRUE(summary)) { + summary(attributes(x)$table) + } +} + + +#' @export +summary.report_table <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + + +#' @export +format.report_table <- function(x, ...) { + # remove unwanted columns + x$Method <- NULL + x$Alternative <- NULL + + insight::format_table(x, ...) +} + + +#' @export +print.report_table <- function(x, ...) { + # try to guess appropriate caption and footer + caption <- .report_table_caption(x) + footer <- .report_table_footer(x) + + cat(insight::export_table(format(x, ...), caption = caption, footer = footer, ...)) +} + + +#' @export +c.report_table <- function(...) { + x <- list(...) + + out <- x[[1]] + for (i in 2:length(x)) { + out <- datawizard::data_join(out, x[[i]], join = "bind") + } + out +} + + +#' @export +display.report_table <- function(object, ...) { + # fix caption + if (is.null(list(...)$caption)) { + attr(object, "no_caption") <- TRUE + } + class(object) <- c("report_table", "parameters_model", "data.frame") + NextMethod() +} + + +# helper to create table captions and footer ----------------------- + +.report_table_caption <- function(x) { + caption <- NULL + + # footer for htest objects + if (!is.null(x$Method)) { + caption <- x$Method + } + + caption +} + + +.report_table_footer <- function(x) { + footer <- NULL + + # footer for htest objects + if (!is.null(x$Alternative)) { + footer <- "Alternative hypothesis: " + if (!is.null(x$null.value)) { + if (length(x$null.value) == 1L) { + alt.char <- switch(x$Alternative, + two.sided = "not equal to", + less = "less than", + greater = "greater than" + ) + footer <- paste0(footer, "true ", names(x$null.value), " is ", alt.char, " ", x$null.value) + } else { + footer <- paste0(footer, x$Alternative) + } + } else { + footer <- paste0(footer, x$Alternative) + } + + footer <- c(paste0("\n", footer), "blue") + } + + footer +} diff --git a/report.Rcheck/00_pkg_src/report/R/report_text.R b/report.Rcheck/00_pkg_src/report/R/report_text.R new file mode 100644 index 000000000..2c7faa9b1 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/report_text.R @@ -0,0 +1,108 @@ +#' Report a textual description of an object +#' +#' Creates text containing a description of the parameters of R objects (see +#' list of supported objects in [report()]). +#' +#' @inheritParams report +#' @inheritParams report_table +#' @param table A table obtained via `report_table()`. If not provided, +#' will run it. +#' +#' @return An object of class [report_text()]. +#' +#' @examples +#' library(report) +#' +#' # Miscellaneous +#' r <- report_text(sessionInfo()) +#' r +#' summary(r) +#' +#' # Data +#' report_text(iris$Sepal.Length) +#' report_text(as.character(round(iris$Sepal.Length, 1))) +#' report_text(iris$Species) +#' report_text(iris) +#' +#' # h-tests +#' report_text(t.test(iris$Sepal.Width, iris$Sepal.Length)) +#' +#' # ANOVA +#' r <- report_text(aov(Sepal.Length ~ Species, data = iris)) +#' r +#' summary(r) +#' +#' # GLMs +#' r <- report_text(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +#' r +#' summary(r) +#' +#' @examplesIf requireNamespace("lme4", quietly = TRUE) +#' \donttest{ +#' library(lme4) +#' model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +#' r <- report_text(model) +#' r +#' summary(r) +#' } +#' +#' @examplesIf requireNamespace("rstanarm", quietly = TRUE) +#' \donttest{ +#' # Bayesian models +#' library(rstanarm) +#' model <- suppressWarnings(stan_glm(mpg ~ cyl + wt, data = mtcars, refresh = 0, iter = 600)) +#' r <- report_text(model) +#' r +#' summary(r) +#' } +#' @export +report_text <- function(x, table = NULL, ...) { + UseMethod("report_text") +} + + +# METHODS ----------------------------------------------------------------- + +#' @rdname as.report +#' @export +as.report_text <- function(x, ...) { + UseMethod("as.report_text") +} + +#' @export +as.report_text.default <- function(x, summary = NULL, ...) { + class(x) <- unique(c("report_text", class(x))) + attributes(x) <- c(attributes(x), list(...)) + if (!is.null(summary)) { + class(summary) <- unique(c("report_text", class(summary))) + attr(x, "summary") <- summary + } + x +} + +#' @export +as.report_text.report <- function(x, summary = NULL, ...) { + class(x) <- class(x)[class(x) != "report"] + + if (is.null(summary) || isFALSE(summary)) { + x + } else if (isTRUE(summary)) { + summary(x) + } +} + + +#' @export +summary.report_text <- function(object, ...) { + if (is.null(attributes(object)$summary)) { + object + } else { + attributes(object)$summary + } +} + +#' @export +print.report_text <- function(x, width = NULL, ...) { + x <- datawizard::text_format(as.character(x), width = width, ...) + cat(x) +} diff --git a/report.Rcheck/00_pkg_src/report/R/utils_combine_tables.R b/report.Rcheck/00_pkg_src/report/R/utils_combine_tables.R new file mode 100644 index 000000000..05fac632d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/utils_combine_tables.R @@ -0,0 +1,76 @@ +#' @keywords internal +.combine_tables_effectsize <- function(parameters, effsize) { + effsize_table <- attributes(effsize)$table + table <- merge(parameters, effsize_table, sort = FALSE, all = TRUE) + # table <- table[order( + # match(table$Parameter, parameters$Parameter)), ] + row.names(table) <- NULL + + # Prepare output + class(table) <- class(parameters) + attributes(table) <- utils::modifyList(attributes(parameters), attributes(table)) + + table +} + + +#' @keywords internal +.combine_tables_performance <- function(parameters, performance) { + table <- parameters + + # Pretty names + if (!is.null(attributes(parameters)$pretty_names)) { + table$Parameter <- attributes(parameters)$pretty_names[parameters$Parameter] + } + + # Skip row + table[nrow(table) + 1, ] <- NA + + # Prettify performance names + perf_names <- colnames(performance) + perf_names[perf_names == "R2_adjusted"] <- "R2 (adj.)" + perf_names[perf_names == "R2_Tjur"] <- "Tjur's R2" + perf_names[perf_names == "BIC_adjusted"] <- "BIC (adj.)" + perf_names[perf_names == "R2_conditional"] <- "R2 (conditional)" + perf_names[perf_names == "R2_marginal"] <- "R2 (marginal)" + + + # add performance + perf_vertical <- data.frame( + Parameter = perf_names, + Fit = as.numeric(performance[1, ]), + stringsAsFactors = FALSE + ) + + # remove missing values + perf_vertical <- perf_vertical[!is.na(perf_vertical$Fit), ] + + # Name parameter column + name_parameter <- names(parameters)[names(parameters) %in% c("Parameter", "Link", "To")][1] + names(perf_vertical)[1] <- name_parameter + + # Merge + table <- merge(table, perf_vertical, by = name_parameter, all = TRUE, sort = FALSE) + + # Prepare output + class(table) <- class(parameters) + attributes(table) <- utils::modifyList(attributes(parameters), attributes(table)) + + # Add pretty names + pretty_names <- table$Parameter + # pretty_names <- pretty_names[!is.na(pretty_names)] + names(pretty_names) <- pretty_names + attr(table, "pretty_names") <- pretty_names + + table +} + + +#' @keywords internal +.remove_performance <- function(table) { + if ("Fit" %in% names(table)) { + table <- table[is.na(table$Fit), ] + table <- table[!is.na(table$Parameter), ] + } + table +} diff --git a/report.Rcheck/00_pkg_src/report/R/utils_error_message.R b/report.Rcheck/00_pkg_src/report/R/utils_error_message.R new file mode 100644 index 000000000..3e9648c9b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/utils_error_message.R @@ -0,0 +1,10 @@ +#' @keywords internal +.error_message <- function(x, fun = "report()") { + paste0( + "Oops, objects of class [", + toString(class(x)), + "] are not supported (yet) by ", + fun, + " :(\n\nWant to help? Check out https://easystats.github.io/report/articles/new_models.html" + ) +} diff --git a/report.Rcheck/00_pkg_src/report/R/utils_grouped_df.R b/report.Rcheck/00_pkg_src/report/R/utils_grouped_df.R new file mode 100644 index 000000000..33214bb98 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/utils_grouped_df.R @@ -0,0 +1,123 @@ +# returns the row-indices for grouped data frames +#' @keywords internal +.group_indices <- function(x) { + # dplyr < 0.8.0 returns attribute "indices" + grps <- attr(x, "groups", exact = TRUE) + + # dplyr < 0.8.0? + if (is.null(grps)) { + attr(x, "indices", exact = TRUE) + } else { + grps[[".rows"]] + } +} + + +# returns the variables that were used for grouping data frames (dplyr::group_var()) +#' @keywords internal +.group_vars <- function(x) { + # dplyr < 0.8.0 returns attribute "indices" + grps <- attr(x, "groups", exact = TRUE) + + # dplyr < 0.8.0? + if (is.null(grps)) { + ## TODO fix for dplyr < 0.8 + attr(x, "vars", exact = TRUE) + } else { + setdiff(colnames(grps), ".rows") + } +} + + +# returns the 'drop' setting for groups on the data frame +#' @keywords internal +.groups_drop <- function(x) { + !isFALSE(attr(attr(x, "groups"), ".drop")) +} + + +# returns if the data frame has groups +#' @keywords internal +.has_groups <- function(x) { + if (length(.group_vars(x)) == 0L) FALSE else TRUE +} + + +# recompute group indices grouped_df, used after subsetting +#' @keywords internal +.calculate_groups <- function(x, groups, drop = .groups_drop(x)) { + # if the dplyr namespace is attached, its `[.grouped_df` method produces + # erroneous warnings and coerces output to tbl_df + `[` <- `[.data.frame` + x <- .ungroup(x) + unknown <- setdiff(groups, colnames(x)) + + if (length(unknown) > 0L) { + stop(insight::format_message( + sprintf("`groups` missing from `x`: %s.", toString(groups)) + )) + } + + unique_groups <- unique(x[, groups, drop = FALSE]) + is_factor <- do.call(c, lapply(unique_groups, is.factor)) + n_comb <- nrow(unique_groups) + rows <- rep(list(NA), n_comb) + + for (i in seq_len(n_comb)) { + rows[[i]] <- which( + interaction(x[, groups, drop = TRUE]) %in% + interaction(unique_groups[i, groups]) + ) + } + + if (!isTRUE(drop) && any(is_factor)) { + na_lvls <- do.call( + expand.grid, + lapply( + unique_groups, + function(x) { + if (is.factor(x)) { + levels(x)[!(levels(x) %in% x)] + } else { + NA + } + } + ) + ) + unique_groups <- rbind(unique_groups, na_lvls) + for (i in seq_len(nrow(na_lvls))) { + rows[[length(rows) + 1]] <- integer(0) + } + } + + unique_groups[[".rows"]] <- rows + unique_groups <- unique_groups[do.call( + order, + lapply(groups, function(x) unique_groups[, x]) + ), , drop = FALSE] + + rownames(unique_groups) <- NULL + + structure(unique_groups, .drop = drop) +} + + +# ungroup data frame +#' @keywords internal +.ungroup <- function(x) { + attr(x, "groups") <- NULL + class(x) <- setdiff(class(x), "grouped_df") + x +} + + +# re-sets the groups for a grouped_df, used after subsetting +#' @keywords internal +.groups_set <- function(x, groups, drop = .groups_drop(x)) { + attr(x, "groups") <- if (is.null(groups) || length(groups) == 0L) { + NULL + } else { + .calculate_groups(x, groups, drop) + } + x +} diff --git a/report.Rcheck/00_pkg_src/report/R/utils_misspelled_variables.R b/report.Rcheck/00_pkg_src/report/R/utils_misspelled_variables.R new file mode 100644 index 000000000..6537cf855 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/utils_misspelled_variables.R @@ -0,0 +1,75 @@ +# call this function to check arguments. "select" is the argument where user +# specified column names. "arg_name" is the name of that argument, can be NULL +.check_spelling <- function(data, select) { + wrong_arg <- paste0("specified in `", deparse(substitute(select)), "` ") + if (!is.null(select) && isTRUE(nzchar(select)) && !all(select %in% colnames(data))) { + not_found <- select[!select %in% colnames(data)] + insight::format_error( + paste0( + sprintf("The following column(s) %sdon't exist in the dataset: ", wrong_arg), + datawizard::text_concatenate(not_found), "." + ), + .misspelled_string(colnames(data), not_found, "Possibly misspelled?") + ) + } +} + + +#' Fuzzy grep, matches pattern that are close, but not identical +#' @examples +#' colnames(iris) +#' p <- sprintf("(%s){~%i}", "Spela", 2) +#' grep(pattern = p, x = colnames(iris), ignore.case = FALSE) +#' @keywords internal +#' @noRd +.fuzzy_grep <- function(x, pattern, precision = NULL) { + if (is.null(precision)) { + precision <- round(nchar(pattern) / 3) + } + if (precision > nchar(pattern)) { + return(NULL) + } + p <- sprintf("(%s){~%i}", pattern, precision) + grep(pattern = p, x = x, ignore.case = FALSE) +} + + +#' create a message string to tell user about matches that could possibly +#' be the string they were looking for +#' +#' @keywords internal +#' @noRd +.misspelled_string <- function(source, searchterm, default_message = NULL) { + if (is.null(searchterm) || length(searchterm) < 1) { + return(default_message) + } + # used for many matches + more_found <- "" + # init default + msg <- "" + # guess the misspelled string + possible_strings <- unlist(lapply(searchterm, function(s) { + source[.fuzzy_grep(source, s)] # nolint + }), use.names = FALSE) + if (length(possible_strings)) { + msg <- "Did you mean " + if (length(possible_strings) > 1) { + # make sure we don't print dozens of alternatives for larger data frames + if (length(possible_strings) > 5) { + more_found <- sprintf( + " We even found %i more possible matches, not shown here.", + length(possible_strings) - 5 + ) + possible_strings <- possible_strings[1:5] + } + msg <- paste0(msg, "one of ", datawizard::text_concatenate(possible_strings, enclose = "\"", last = " or ")) + } else { + msg <- paste0(msg, "\"", possible_strings, "\"") + } + msg <- paste0(msg, "?", more_found) + } else { + msg <- default_message + } + # no double white space + insight::trim_ws(msg) +} diff --git a/report.Rcheck/00_pkg_src/report/R/zzz.R b/report.Rcheck/00_pkg_src/report/R/zzz.R new file mode 100644 index 000000000..aa3e03c83 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/R/zzz.R @@ -0,0 +1,3 @@ +.support_unicode <- l10n_info()$`UTF-8` | + isTRUE(.Options$cli.unicode) | + nzchar(Sys.getenv("RSTUDIO_USER_IDENTITY")) diff --git a/report.Rcheck/00_pkg_src/report/README.md b/report.Rcheck/00_pkg_src/report/README.md new file mode 100644 index 000000000..0c5ed4fe0 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/README.md @@ -0,0 +1,438 @@ + +# report + +[![R-CMD-check](https://github.com/easystats/report/workflows/R-CMD-check/badge.svg?branch=main)](https://github.com/easystats/report/actions) +[![CRAN](http://www.r-pkg.org/badges/version/report)](https://cran.r-project.org/package=report) +[![r-universe](https://easystats.r-universe.dev/badges/report)](https://easystats.r-universe.dev/report) +[![downloads](http://cranlogs.r-pkg.org/badges/report)](https://cran.r-project.org/package=report) +[![total](https://cranlogs.r-pkg.org/badges/grand-total/report)](https://cranlogs.r-pkg.org/) +[![stars](https://img.shields.io/github/stars/easystats/report?style=social)](https://github.com/easystats/report/stargazers) + +***“From R to your manuscript”*** + +**report**’s primary goal is to bridge the gap between R’s output and +the formatted results contained in your manuscript. It automatically +produces reports of models and data frames according to **best +practices** guidelines (e.g., [APA](https://apastyle.apa.org/)’s style), +ensuring **standardization** and **quality** in results reporting. + +``` r +library(report) + +model <- lm(Sepal.Length ~ Species, data = iris) +report(model) +# We fitted a linear model (estimated using OLS) to predict Sepal.Length with +# Species (formula: Sepal.Length ~ Species). The model explains a statistically +# significant and substantial proportion of variance (R2 = 0.62, F(2, 147) = +# 119.26, p < .001, adj. R2 = 0.61). The model's intercept, corresponding to +# Species = setosa, is at 5.01 (95% CI [4.86, 5.15], t(147) = 68.76, p < .001). +# Within this model: +# +# - The effect of Species [versicolor] is statistically significant and positive +# (beta = 0.93, 95% CI [0.73, 1.13], t(147) = 9.03, p < .001; Std. beta = 1.12, +# 95% CI [0.88, 1.37]) +# - The effect of Species [virginica] is statistically significant and positive +# (beta = 1.58, 95% CI [1.38, 1.79], t(147) = 15.37, p < .001; Std. beta = 1.91, +# 95% CI [1.66, 2.16]) +# +# Standardized parameters were obtained by fitting the model on a standardized +# version of the dataset. 95% Confidence Intervals (CIs) and p-values were +# computed using a Wald t-distribution approximation. +``` + +## Installation + +The package is available on `CRAN` and can be downloaded by running: + +``` r +install.packages("report") +``` + +If you would instead like to experiment with the development version, +you can download it from `GitHub`: + +``` r +install.packages("remotes") +remotes::install_github("easystats/report") # You only need to do that once +``` + +Load the package every time you start R + +``` r +library("report") +``` + +> **Tip** +> +> **Instead of `library(report)`, use `library(easystats)`.** **This +> will make all features of the easystats-ecosystem available.** +> +> **To stay updated, use `easystats::install_latest()`.** + +## Documentation + +The package documentation can be found +[**here**](https://easystats.github.io/report/). + +## Report all the things + +All the things meme by Allie Brosh + +### General Workflow + +The `report` package works in a two step fashion. First, you create a +`report` object with the `report()` function. Then, this report object +can be displayed either textually (the default output) or as a table, +using `as.data.frame()`. Moreover, you can also access a more digest and +compact version of the report using `summary()` on the report object. + +[![workflow](man/figures/workflow.png)](https://easystats.github.io/report/) + +The `report()` function works on a variety of models, as well as other +objects such as dataframes: + +``` r +report(iris) +``` + + # The data contains 150 observations of the following 5 variables: + # + # - Sepal.Length: n = 150, Mean = 5.84, SD = 0.83, Median = 5.80, MAD = 1.04, + # range: [4.30, 7.90], Skewness = 0.31, Kurtosis = -0.55, 0% missing + # - Sepal.Width: n = 150, Mean = 3.06, SD = 0.44, Median = 3.00, MAD = 0.44, + # range: [2, 4.40], Skewness = 0.32, Kurtosis = 0.23, 0% missing + # - Petal.Length: n = 150, Mean = 3.76, SD = 1.77, Median = 4.35, MAD = 1.85, + # range: [1, 6.90], Skewness = -0.27, Kurtosis = -1.40, 0% missing + # - Petal.Width: n = 150, Mean = 1.20, SD = 0.76, Median = 1.30, MAD = 1.04, + # range: [0.10, 2.50], Skewness = -0.10, Kurtosis = -1.34, 0% missing + # - Species: 3 levels, namely setosa (n = 50, 33.33%), versicolor (n = 50, + # 33.33%) and virginica (n = 50, 33.33%) + +These reports nicely work within the +[*tidyverse*](https://github.com/tidyverse) workflow: + +``` r +iris %>% + select(-starts_with("Sepal")) %>% + group_by(Species) %>% + report() %>% + summary() +``` + + # The data contains 150 observations, grouped by Species, of the following 3 + # variables: + # + # - setosa (n = 50): + # - Petal.Length: Mean = 1.46, SD = 0.17, range: [1, 1.90] + # - Petal.Width: Mean = 0.25, SD = 0.11, range: [0.10, 0.60] + # + # - versicolor (n = 50): + # - Petal.Length: Mean = 4.26, SD = 0.47, range: [3, 5.10] + # - Petal.Width: Mean = 1.33, SD = 0.20, range: [1, 1.80] + # + # - virginica (n = 50): + # - Petal.Length: Mean = 5.55, SD = 0.55, range: [4.50, 6.90] + # - Petal.Width: Mean = 2.03, SD = 0.27, range: [1.40, 2.50] + +### *t*-tests and correlations + +Reports can be used to automatically format tests like *t*-tests or +correlations. + +``` r +report(t.test(mtcars$mpg ~ mtcars$am)) +``` + + # Effect sizes were labelled following Cohen's (1988) recommendations. + # + # The Welch Two Sample t-test testing the difference of mtcars$mpg by mtcars$am + # (mean in group 0 = 17.15, mean in group 1 = 24.39) suggests that the effect is + # negative, statistically significant, and large (difference = -7.24, 95% CI + # [-11.28, -3.21], t(18.33) = -3.77, p = 0.001; Cohen's d = -1.41, 95% CI [-2.26, + # -0.53]) + +As mentioned, you can also create tables with the `as.data.frame()` +functions, like for example with this correlation test: + +``` r +cor.test(iris$Sepal.Length, iris$Sepal.Width) %>% + report() %>% + as.data.frame() +# Pearson's product-moment correlation +# +# Parameter1 | Parameter2 | r | 95% CI | t(148) | p +# ----------------------------------------------------------------------------- +# iris$Sepal.Length | iris$Sepal.Width | -0.12 | [-0.27, 0.04] | -1.44 | 0.152 +# +# Alternative hypothesis: two.sided +``` + +### ANOVAs + +This works great with ANOVAs, as it includes **effect sizes** and their +interpretation. + +``` r +aov(Sepal.Length ~ Species, data = iris) %>% + report() +``` + + # The ANOVA (formula: Sepal.Length ~ Species) suggests that: + # + # - The main effect of Species is statistically significant and large (F(2, 147) + # = 119.26, p < .001; Eta2 = 0.62, 95% CI [0.54, 1.00]) + # + # Effect sizes were labelled following Field's (2013) recommendations. + +### Generalized Linear Models (GLMs) + +Reports are also compatible with GLMs, such as this **logistic +regression**: + +``` r +model <- glm(vs ~ mpg * drat, data = mtcars, family = "binomial") + +report(model) +``` + + # We fitted a logistic model (estimated using ML) to predict vs with mpg and drat + # (formula: vs ~ mpg * drat). The model's explanatory power is substantial + # (Tjur's R2 = 0.51). The model's intercept, corresponding to mpg = 0 and drat = + # 0, is at -33.43 (95% CI [-77.90, 3.25], p = 0.083). Within this model: + # + # - The effect of mpg is statistically non-significant and positive (beta = 1.79, + # 95% CI [-0.10, 4.05], p = 0.066; Std. beta = 3.63, 95% CI [1.36, 7.50]) + # - The effect of drat is statistically non-significant and positive (beta = + # 5.96, 95% CI [-3.75, 16.26], p = 0.205; Std. beta = -0.36, 95% CI [-1.96, + # 0.98]) + # - The effect of mpg × drat is statistically non-significant and negative (beta + # = -0.33, 95% CI [-0.83, 0.15], p = 0.141; Std. beta = -1.07, 95% CI [-2.66, + # 0.48]) + # + # Standardized parameters were obtained by fitting the model on a standardized + # version of the dataset. 95% Confidence Intervals (CIs) and p-values were + # computed using a Wald z-distribution approximation. + +### Mixed Models + +Mixed models, whose popularity and usage is exploding, can also be +reported: + +``` r +library(lme4) + +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) + +report(model) +``` + + # We fitted a linear mixed model (estimated using REML and nloptwrap optimizer) + # to predict Sepal.Length with Petal.Length (formula: Sepal.Length ~ + # Petal.Length). The model included Species as random effect (formula: ~1 | + # Species). The model's total explanatory power is substantial (conditional R2 = + # 0.97) and the part related to the fixed effects alone (marginal R2) is of 0.66. + # The model's intercept, corresponding to Petal.Length = 0, is at 2.50 (95% CI + # [1.19, 3.82], t(146) = 3.75, p < .001). Within this model: + # + # - The effect of Petal Length is statistically significant and positive (beta = + # 0.89, 95% CI [0.76, 1.01], t(146) = 13.93, p < .001; Std. beta = 1.89, 95% CI + # [1.63, 2.16]) + # + # Standardized parameters were obtained by fitting the model on a standardized + # version of the dataset. 95% Confidence Intervals (CIs) and p-values were + # computed using a Wald t-distribution approximation. + +### Bayesian Models + +Bayesian models can also be reported using the new +[**SEXIT**](https://easystats.github.io/bayestestR/reference/sexit.html) +framework, which combines clarity, precision and usefulness. + +``` r +library(rstanarm) + +model <- stan_glm(mpg ~ qsec + wt, data = mtcars) + +report(model) +``` + + # We fitted a Bayesian linear model (estimated using MCMC sampling with 4 chains + # of 1000 iterations and a warmup of 500) to predict mpg with qsec and wt + # (formula: mpg ~ qsec + wt). Priors over parameters were all set as normal (mean + # = 0.00, SD = 8.43; mean = 0.00, SD = 15.40) distributions. The model's + # explanatory power is substantial (R2 = 0.81, 95% CI [0.71, 0.90], adj. R2 = + # 0.79). The model's intercept, corresponding to qsec = 0 and wt = 0, is at 19.67 + # (95% CI [8.34, 30.67]). Within this model: + # + # - The effect of qsec (Median = 0.93, 95% CI [0.39, 1.51]) has a 99.90% + # probability of being positive (> 0), 98.65% of being significant (> 0.30), and + # 0.30% of being large (> 1.81). The estimation successfully converged (Rhat = + # 1.000) and the indices are reliable (ESS = 1762) + # - The effect of wt (Median = -5.05, 95% CI [-6.01, -4.05]) has a 100.00% + # probability of being negative (< 0), 100.00% of being significant (< -0.30), + # and 100.00% of being large (< -1.81). The estimation successfully converged + # (Rhat = 1.000) and the indices are reliable (ESS = 2213) + # + # Following the Sequential Effect eXistence and sIgnificance Testing (SEXIT) + # framework, we report the median of the posterior distribution and its 95% CI + # (Highest Density Interval), along the probability of direction (pd), the + # probability of significance and the probability of being large. The thresholds + # beyond which the effect is considered as significant (i.e., non-negligible) and + # large are |0.30| and |1.81| (corresponding respectively to 0.05 and 0.30 of the + # outcome's SD). Convergence and stability of the Bayesian sampling has been + # assessed using R-hat, which should be below 1.01 (Vehtari et al., 2019), and + # Effective Sample Size (ESS), which should be greater than 1000 (Burkner, 2017). + +## Other types of reports + +### Specific parts + +One can, for complex reports, directly access the pieces of the reports: + +``` r +model <- lm(Sepal.Length ~ Species, data = iris) + +report_model(model) +# linear model (estimated using OLS) to predict Sepal.Length with Species (formula: Sepal.Length ~ Species) + +report_performance(model) +# The model explains a statistically significant and substantial proportion of +# variance (R2 = 0.62, F(2, 147) = 119.26, p < .001, adj. R2 = 0.61) + +report_statistics(model) +# beta = 5.01, 95% CI [4.86, 5.15], t(147) = 68.76, p < .001; Std. beta = -1.01, 95% CI [-1.18, -0.84] +# beta = 0.93, 95% CI [0.73, 1.13], t(147) = 9.03, p < .001; Std. beta = 1.12, 95% CI [0.88, 1.37] +# beta = 1.58, 95% CI [1.38, 1.79], t(147) = 15.37, p < .001; Std. beta = 1.91, 95% CI [1.66, 2.16] +``` + +### Report participants’ details + +This can be useful to complete the **Participants** paragraph of your +manuscript. + +``` r +data <- data.frame( + "Age" = c(22, 23, 54, 21), + "Sex" = c("F", "F", "M", "M") +) + +paste( + report_participants(data, spell_n = TRUE), + "were recruited in the study by means of torture and coercion." +) +``` + + # Four participants (Mean age = 30.0, SD = 16.0, range: [21, 54]; Sex: + # 50.0% females, 50.0% males, 0.0% other) were recruited in the study by + # means of torture and coercion. + +### Report sample + +Report can also help you create a sample description table (also +referred to as **Table 1**). + +``` r +report_sample(iris, by = "Species") +``` + +| Variable | setosa (n=50) | versicolor (n=50) | virginica (n=50) | Total (n=150) | +|:-----------------------|:--------------|:------------------|:-----------------|:--------------| +| Mean Sepal.Length (SD) | 5.01 (0.35) | 5.94 (0.52) | 6.59 (0.64) | 5.84 (0.83) | +| Mean Sepal.Width (SD) | 3.43 (0.38) | 2.77 (0.31) | 2.97 (0.32) | 3.06 (0.44) | +| Mean Petal.Length (SD) | 1.46 (0.17) | 4.26 (0.47) | 5.55 (0.55) | 3.76 (1.77) | +| Mean Petal.Width (SD) | 0.25 (0.11) | 1.33 (0.20) | 2.03 (0.27) | 1.20 (0.76) | + +### Report system and packages + +Finally, **report** includes some functions to help you write the data +analysis paragraph about the tools used. + +``` r +report(sessionInfo()) +``` + + # Analyses were conducted using the R Statistical language (version 4.4.1; R Core + # Team, 2024) on Windows 11 x64 (build 22631), using the packages lme4 (version + # 1.1.35.5; Bates D et al., 2015), Matrix (version 1.7.0; Bates D et al., 2024), + # Rcpp (version 1.0.13; Eddelbuettel D et al., 2024), rstanarm (version 2.32.1; + # Goodrich B et al., 2024), report (version 0.5.9; Makowski D et al., 2023) and + # dplyr (version 1.1.4; Wickham H et al., 2023). + # + # References + # ---------- + # - Bates D, Mächler M, Bolker B, Walker S (2015). "Fitting Linear Mixed-Effects + # Models Using lme4." _Journal of Statistical Software_, *67*(1), 1-48. + # doi:10.18637/jss.v067.i01 . + # - Bates D, Maechler M, Jagan M (2024). _Matrix: Sparse and Dense Matrix Classes + # and Methods_. R package version 1.7-0, + # . + # - Eddelbuettel D, Francois R, Allaire J, Ushey K, Kou Q, Russell N, Ucar I, + # Bates D, Chambers J (2024). _Rcpp: Seamless R and C++ Integration_. R package + # version 1.0.13, . Eddelbuettel D, + # François R (2011). "Rcpp: Seamless R and C++ Integration." _Journal of + # Statistical Software_, *40*(8), 1-18. doi:10.18637/jss.v040.i08 + # . Eddelbuettel D (2013). _Seamless R and + # C++ Integration with Rcpp_. Springer, New York. doi:10.1007/978-1-4614-6868-4 + # , ISBN 978-1-4614-6867-7. + # Eddelbuettel D, Balamuta J (2018). "Extending R with C++: A Brief Introduction + # to Rcpp." _The American Statistician_, *72*(1), 28-36. + # doi:10.1080/00031305.2017.1375990 + # . + # - Goodrich B, Gabry J, Ali I, Brilleman S (2024). "rstanarm: Bayesian applied + # regression modeling via Stan." R package version 2.32.1, + # . Brilleman S, Crowther M, Moreno-Betancur M, + # Buros Novik J, Wolfe R (2018). "Joint longitudinal and time-to-event models via + # Stan." StanCon 2018. 10-12 Jan 2018. Pacific Grove, CA, USA., + # . + # - Makowski D, Lüdecke D, Patil I, Thériault R, Ben-Shachar M, Wiernik B (2023). + # "Automated Results Reporting as a Practical Tool to Improve Reproducibility and + # Methodological Best Practices Adoption." _CRAN_. + # . + # - R Core Team (2024). _R: A Language and Environment for Statistical + # Computing_. R Foundation for Statistical Computing, Vienna, Austria. + # . + # - Wickham H, François R, Henry L, Müller K, Vaughan D (2023). _dplyr: A Grammar + # of Data Manipulation_. R package version 1.1.4, + # . + +## Credits + +If you like it, you can put a *star* on this repo, and cite the package +as follows: + +``` r +citation("report") +To cite in publications use: + + Makowski, D., Lüdecke, D., Patil, I., Thériault, R., Ben-Shachar, + M.S., & Wiernik, B.M. (2023). Automated Results Reporting as a + Practical Tool to Improve Reproducibility and Methodological Best + Practices Adoption. CRAN. Available from + https://easystats.github.io/report/ doi: . + +A BibTeX entry for LaTeX users is + + @Article{, + title = {Automated Results Reporting as a Practical Tool to Improve Reproducibility and Methodological Best Practices Adoption}, + author = {Dominique Makowski and Daniel Lüdecke and Indrajeet Patil and Rémi Thériault and Mattan S. Ben-Shachar and Brenton M. Wiernik}, + year = {2023}, + journal = {CRAN}, + url = {https://easystats.github.io/report/}, + } +``` + +## Contribute + +***report* is a young package in need of affection**. You can easily be +a part of the +[developing](https://github.com/easystats/report/blob/master/.github/CONTRIBUTING.md) +community of this open-source software and improve science! Don’t be +shy, try to code and submit a pull request (See the [contributing +guide](https://github.com/easystats/report/blob/master/.github/CONTRIBUTING.md)). +Even if it’s not perfect, we will help you make it great! + +## Code of Conduct + +Please note that the report project is released with a [Contributor Code +of Conduct](https://easystats.github.io/report/CODE_OF_CONDUCT.html). By +contributing to this project, you agree to abide by its terms. diff --git a/report.Rcheck/00_pkg_src/report/build/vignette.rds b/report.Rcheck/00_pkg_src/report/build/vignette.rds new file mode 100644 index 0000000000000000000000000000000000000000..73c1f5630451c09ff9ed55b526d8eb66093056c7 GIT binary patch literal 335 zcmV-V0kHlbiwFP!000001C3HmPlG@Zr3Gt?A8l<+Jnq4(`~YvprXGxjv^{tuTXw9( ze;EhBhAU1%?r>87>E(3GVYSk`QDx z{G@xxy>-kqahX6F#3=*bMqL3}Dr5_pHAo=oj)TIx0yk^L6Phsch+4$gTAIJ!6j@ym zC42G;C3#Vjn!J4|WExWmj5OC^)jfFvsmeE!3Z#sXU+j1kQW>SmodC)XWLx)?_ZqtD zPW&Nbu9<0Ta5~Qe%AAP(&8$;zq#wWB+HJGsG~^ zY9|Sej~0zI=&T|RreGV%V`BTul|Bwkzo$#cAYtZ{ji2FArULV>&_txAXT&b*Kl2Mi hRaM{pjzUgz(~$vPMkV#$1-_5j&oBRWcD36A006Iwp5Oog literal 0 HcmV?d00001 diff --git a/report.Rcheck/00_pkg_src/report/inst/CITATION b/report.Rcheck/00_pkg_src/report/inst/CITATION new file mode 100644 index 000000000..0eaa6f486 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/inst/CITATION @@ -0,0 +1,8 @@ +bibentry(bibtype = "Article", + title = "Automated Results Reporting as a Practical Tool to Improve Reproducibility and Methodological Best Practices Adoption", + author=c(person("Dominique", "Makowski"), person("Daniel", "Lüdecke"), person("Indrajeet", "Patil"), person("Rémi", "Thériault"), person("Mattan S.", "Ben-Shachar"), person("Brenton M.", "Wiernik")), + year = 2023, + journal = "CRAN", + url = "https://easystats.github.io/report/", + textVersion = paste("Makowski, D., Lüdecke, D., Patil, I., Thériault, R., Ben-Shachar, M.S., & Wiernik, B.M. (2023). Automated Results Reporting as a Practical Tool to Improve Reproducibility and Methodological Best Practices Adoption. CRAN.", "Available from https://easystats.github.io/report/", "doi: .", sep=" "), + mheader = "To cite in publications use:") \ No newline at end of file diff --git a/report.Rcheck/00_pkg_src/report/inst/WORDLIST b/report.Rcheck/00_pkg_src/report/inst/WORDLIST new file mode 100644 index 000000000..4d7d8ddee --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/inst/WORDLIST @@ -0,0 +1,46 @@ +APA +Args +BayesFactor +BibLaTeX +CMD +CSL +ELPD +ENP +ESS +Gabry +Hotfix +IC +Magnusson +Mattan +Newcombe +ORCID +RMarkdown +Reproducibility +Rhat +SEM +SEXIT +Shachar +Sivula +Vehtari +amongst +anova +brms +chen +eXistence +easystats +elpd +github +htest +ivreg +pacakges +participants’ +repo +reproducibility +rstanarm +sIgnificance +setosa +tidyverse +unarchive +versicolor +virginica +’s diff --git a/report.Rcheck/00_pkg_src/report/inst/easystats_bib.bib b/report.Rcheck/00_pkg_src/report/inst/easystats_bib.bib new file mode 100644 index 000000000..619b32b5d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/inst/easystats_bib.bib @@ -0,0 +1,240 @@ +@article{bayestestRArticle, + title = {{{bayestestR}}: Describing Effects and Their Uncertainty, Existence and Significance within the {{Bayesian}} Framework}, + shorttitle = {{{bayestestR}}}, + author = {Makowski, Dominique and Ben-Shachar, Mattan and L\"udecke, Daniel}, + date = {2019-08-13}, + journaltitle = {Journal of Open Source Software}, + shortjournal = {JOSS}, + volume = {4}, + number = {40}, + pages = {1541}, + issn = {2475-9066}, + doi = {10.21105/joss.01541}, + url = {https://joss.theoj.org/papers/10.21105/joss.01541}, + urldate = {2022-03-23} +} + +@software{bayestestRPackage, + title = {{{bayestestR}}: Understand and Describe {{Bayesian}} Models and Posterior Distributions}, + shorttitle = {{{bayestestR}}}, + author = {Makowski, Dominique and L\"udecke, Daniel and Ben-Shachar, Mattan S. and Patil, Indrajeet and Wilson, Michael D. and Wiernik, Brenton M.}, + date = {2021-10-30}, + origdate = {2019-04-08}, + url = {https://CRAN.R-project.org/package=bayestestR}, + urldate = {2022-03-23}, + abstract = {Provides utilities to describe posterior distributions and Bayesian models. It includes point-estimates such as Maximum A Posteriori (MAP), measures of dispersion (Highest Density Interval - HDI; Kruschke, 2015 {$<$}doi:10.1016/C2012-0-00477-2{$>$}) and indices used for null-hypothesis testing (such as ROPE percentage, pd and Bayes factors).}, + version = {%s} +} + +@article{correlationArticle, + title = {Methods and Algorithms for Correlation Analysis in {{R}}}, + author = {Makowski, Dominique and Ben-Shachar, Mattan and Patil, Indrajeet and L\"udecke, Daniel}, + date = {2020-07-16}, + journaltitle = {Journal of Open Source Software}, + shortjournal = {JOSS}, + volume = {5}, + number = {51}, + pages = {2306}, + issn = {2475-9066}, + doi = {10.21105/joss.02306}, + url = {https://joss.theoj.org/papers/10.21105/joss.02306}, + urldate = {2022-03-23} +} + +@software{correlationPackage, + title = {{{correlation}}: Methods for Correlation Analysis}, + shorttitle = {{{correlation}}}, + author = {Makowski, Dominique and Wiernik, Brenton M. and Patil, Indrajeet and L\"udecke, Daniel and Ben-Shachar, Mattan S.}, + date = {2022-02-14}, + origdate = {2020-03-16}, + url = {https://CRAN.R-project.org/package=correlation}, + urldate = {2022-03-23}, + abstract = {Lightweight package for computing different kinds of correlations, such as partial correlations, Bayesian correlations, multilevel correlations, polychoric correlations, biweight correlations, distance correlations and more. Part of the 'easystats' ecosystem.}, + version = {%s} +} + +@software{datawizardPackage, + title = {{{datawizard}}: Easy Data Wrangling}, + shorttitle = {{{datawizard}}}, + author = {Makowski, Dominique and L\"udecke, Daniel and Patil, Indrajeet and Ben-Shachar, Mattan S. and Wiernik, Brenton M.}, + date = {2022-03-03}, + origdate = {2021-06-18}, + url = {https://CRAN.R-project.org/package=datawizard}, + urldate = {2022-03-28}, + abstract = {A lightweight package to easily manipulate, clean, transform, and prepare your data for analysis. It also forms the data wrangling backend for the packages in the 'easystats' ecosystem.}, + version = {%s} +} + +@software{easystatsPackage, + title = {{{easystats}}: Streamline Model Interpretation, Visualization, and Reporting}, + shorttitle = {{{easystats}}}, + author = {L\"udecke, Daniel and Makowski, Dominique and Ben-Shachar, Mattan S. and Patil, Indrajeet and Wiernik, Brenton M. and Bacher, Etienne and Thériault, Rémi }, + date = {2023-02-04T22:06:06Z}, + origdate = {2019-01-28T10:39:29Z}, + url = {https://easystats.github.io/easystats/}, + urldate = {2023-02-04}, + version = {%s} +} + +@article{effectsizeArticle, + title = {{{effectsize}}: Estimation of Effect Size Indices and Standardized Parameters}, + shorttitle = {{{effectsize}}}, + author = {Ben-Shachar, Mattan S. and L\"udecke, Daniel and Makowski, Dominique}, + date = {2020-12-23}, + journaltitle = {Journal of Open Source Software}, + shortjournal = {JOSS}, + volume = {5}, + number = {56}, + pages = {2815}, + issn = {2475-9066}, + doi = {10.21105/joss.02815}, + url = {https://joss.theoj.org/papers/10.21105/joss.02815}, + urldate = {2021-06-30} +} + +@software{effectsizePackage, + title = {{{effectsize}}: Indices of Effect Size and Standardized Parameters}, + shorttitle = {{{effectsize}}}, + author = {Ben-Shachar, Mattan S. and Makowski, Dominique and L\"udecke, Daniel and Patil, Indrajeet and Wiernik, Brenton M.}, + date = {2022-01-26}, + origdate = {2019-11-15}, + url = {https://CRAN.R-project.org/package=effectsize}, + urldate = {2022-01-28}, + abstract = {Provide utilities to work with indices of effect size and standardized parameters for a wide variety of models (see list of supported models using the function 'insight::supported\_models()'), allowing computation of and conversion between indices such as Cohen's d, r, odds, etc.}, + version = {%s} +} + +@article{insightArticle, + title = {Insight: A Unified Interface to Access Information from Model Objects in {{R}}}, + shorttitle = {Insight}, + author = {L\"udecke, Daniel and Waggoner, Philip and Makowski, Dominique}, + date = {2019-06-25}, + journaltitle = {Journal of Open Source Software}, + shortjournal = {JOSS}, + volume = {4}, + number = {38}, + pages = {1412}, + issn = {2475-9066}, + doi = {10.21105/joss.01412}, + url = {http://joss.theoj.org/papers/10.21105/joss.01412}, + urldate = {2022-03-23} +} + +@software{insightPackage, + title = {{{insight}}: Easy Access to Model Information for Various Model Objects}, + shorttitle = {{{insight}}}, + author = {L\"udecke, Daniel and Makowski, Dominique and Patil, Indrajeet and Waggoner, Philip and Ben-Shachar, Mattan S. and Wiernik, Brenton M. and Arel-Bundock, Vincent}, + date = {2022-02-17}, + origdate = {2019-03-05}, + url = {https://CRAN.R-project.org/package=insight}, + urldate = {2022-03-23}, + abstract = {A tool to provide an easy, intuitive and consistent access to information contained in various R models, like model formulas, model terms, information about random effects, data that was used to fit the model or data from response variables. 'insight' mainly revolves around two types of functions: Functions that find (the names of) information, starting with 'find\_', and functions that get the underlying data, starting with 'get\_'. The package has a consistent syntax and works with many different model objects, where otherwise functions to access these information are missing.}, + version = {%s} +} + +@software{modelbasedPackage, + title = {{{modelbased}}: Estimation of Model-Based Predictions, Contrasts and Means}, + shorttitle = {{{modelbased}}}, + author = {Makowski, Dominique and L\"udecke, Daniel and Ben-Shachar, Mattan S. and Patil, Indrajeet}, + date = {2022-02-28}, + origdate = {2020-01-12}, + url = {https://CRAN.R-project.org/package=modelbased}, + urldate = {2021-07-23}, + abstract = {Implements a general interface for model-based estimations for a wide variety of models (see support list of insight; L\"udecke, Waggoner \& Makowski (2019) {$<$}doi:10.21105/joss.01412{$>$}), used in the computation of marginal means, contrast analysis and predictions.}, + version = {%s} +} + +@article{parametersArticle, + title = {Extracting, Computing and Exploring the Parameters of Statistical Models Using {{R}}}, + author = {L\"udecke, Daniel and Ben-Shachar, Mattan and Patil, Indrajeet and Makowski, Dominique}, + date = {2020-09-09}, + journaltitle = {Journal of Open Source Software}, + shortjournal = {JOSS}, + volume = {5}, + number = {53}, + pages = {2445}, + issn = {2475-9066}, + doi = {10.21105/joss.02445}, + url = {https://joss.theoj.org/papers/10.21105/joss.02445}, + urldate = {2021-06-30} +} + +@software{parametersPackage, + title = {{{parameters}}: Processing of Model Parameters}, + shorttitle = {{{parameters}}}, + author = {L\"udecke, Daniel and Makowski, Dominique and Ben-Shachar, Mattan S. and Patil, Indrajeet and H\o jsgaard, S\o ren and Wiernik, Brenton M.}, + date = {2022-03-10}, + origdate = {2019-08-26}, + url = {https://CRAN.R-project.org/package=parameters}, + urldate = {2021-06-30}, + abstract = {Utilities for processing the parameters of various statistical models. Beyond computing p values, CIs, and other indices for a wide variety of models (see support list of insight; L\"udecke, Waggoner \& Makowski (2019) {$<$}doi:10.21105/joss.01412{$>$}), this package implements features like bootstrapping or simulating of parameters and models, feature reduction (feature extraction and variable selection) as well as functions to describe data and variable characteristics (e.g. skewness, kurtosis, smoothness or distribution).}, + version = {%s} +} + +@article{performanceArticle, + title = {{{performance}}: An {{R}} Package for Assessment, Comparison and Testing of Statistical Models}, + shorttitle = {{{performance}}}, + author = {L\"udecke, Daniel and Ben-Shachar, Mattan and Patil, Indrajeet and Waggoner, Philip and Makowski, Dominique}, + date = {2021-04-21}, + journaltitle = {Journal of Open Source Software}, + shortjournal = {JOSS}, + volume = {6}, + number = {60}, + pages = {3139}, + issn = {2475-9066}, + doi = {10.21105/joss.03139}, + url = {https://joss.theoj.org/papers/10.21105/joss.03139}, + urldate = {2022-03-23} +} + +@software{performancePackage, + title = {{{performance}}: Assessment of Regression Models Performance}, + author = {L\"udecke, Daniel and Makowski, Dominique and Ben-Shachar, Mattan S. and Patil, Indrajeet and Waggoner, Philip and Wiernik, Brenton M.}, + date = {2021-10-01}, + origdate = {2019-04-24}, + url = {https://CRAN.R-project.org/package=performance}, + urldate = {2022-03-23}, + abstract = {Utilities for computing measures to assess model quality, which are not directly provided by R's 'base' or 'stats' packages. These include e.g. measures like r-squared, intraclass correlation coefficient (Nakagawa, Johnson \& Schielzeth (2017) {$<$}doi:10.1098/rsif.2017.0213{$>$}), root mean squared error or functions to check models for overdispersion, singularity or zero-inflation and more. Functions apply to a large variety of regression models, including generalized linear models, mixed effects models and Bayesian models.}, + version = {%s} +} + +@software{reportPackage, + title = {{{report}}: Automated Reporting of Results and Statistical Models}, + shorttitle = {{{report}}}, + author = {Makowski, Dominique and L\"udecke, Daniel and Patil, Indrajeet and Thériault, Rémi and Ben-Shachar, Mattan S. and Wiernik, Brenton M.}, + date = {2023-02-04}, + origdate = {2021-04-15}, + url = {https://easystats.github.io/report/}, + urldate = {2023-02-04}, + abstract = {The aim of the 'report' package is to bridge the gap between R's output and the formatted results contained in your manuscript. This package converts statistical models and data frames into textual reports suited for publication, ensuring standardization and quality in results reporting.}, + version = {%s} +} + +@article{seeArticle, + title = {{{see}}: An {{R}} Package for Visualizing Statistical Models}, + shorttitle = {{{see}}}, + author = {L\"udecke, Daniel and Patil, Indrajeet and Ben-Shachar, Mattan S. and Wiernik, Brenton M. and Waggoner, Philip and Makowski, Dominique}, + date = {2021-08-06}, + journaltitle = {Journal of Open Source Software}, + volume = {6}, + number = {64}, + pages = {3393}, + issn = {2475-9066}, + doi = {10.21105/joss.03393}, + url = {https://joss.theoj.org/papers/10.21105/joss.03393}, + urldate = {2021-08-10}, + abstract = {The see package is embedded in the easystats ecosystem, a collection of R packages that operate in synergy to provide a consistent and intuitive syntax when working with statistical models in the R programming language (R Core Team, 2021). Most easystats packages return comprehensive numeric summaries of model parameters and performance. The see package complements these numeric summaries with a host of functions and tools to produce a range of publication-ready visualizations for model parameters, predictions, and performance diagnostics. As a core pillar of easystats, the see package helps users to utilize visualization for more informative, communicable, and well-rounded scientific reporting.}, + langid = {english} +} + +@software{seePackage, + title = {{{see}}: Visualisation Toolbox for 'easystats' and Extra Geoms, Themes and Color Palettes for 'Ggplot2'}, + shorttitle = {{{see}}}, + author = {L\"udecke, Daniel and Makowski, Dominique and Patil, Indrajeet and Ben-Shachar, Mattan S. and Wiernik, Brenton M. and Waggoner, Philip}, + date = {2022-02-15}, + origdate = {2019-05-24}, + url = {https://CRAN.R-project.org/package=see}, + urldate = {2022-03-23}, + abstract = {Provides plotting utilities supporting easystats-packages ({$<$}https://github.com/easystats/easystats{$>$}) and some extra themes, geoms, and scales for 'ggplot2'. Color scales are based on {$<$}https://materialui.co/colors{$>$}.}, + version = {%s} +} diff --git a/report.Rcheck/00_pkg_src/report/inst/easystats_bib.yaml b/report.Rcheck/00_pkg_src/report/inst/easystats_bib.yaml new file mode 100644 index 000000000..5d6b03522 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/inst/easystats_bib.yaml @@ -0,0 +1,684 @@ +--- +references: +- id: bayestestRArticle + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Makowski + given: Dominique + - family: Ben-Shachar + given: Mattan + - family: Lüdecke + given: Daniel + citation-key: bayestestRArticle + container-title: Journal of Open Source Software + container-title-short: JOSS + DOI: 10.21105/joss.01541 + ISSN: 2475-9066 + issue: '40' + issued: + - year: 2019 + month: 8 + day: 13 + page: '1541' + title: >- + bayestestR: describing effects and their + uncertainty, existence and significance within the Bayesian framework + title-short: bayestestR + type: article-journal + URL: https://joss.theoj.org/papers/10.21105/joss.01541 + volume: '4' + +- id: bayestestRPackage + abstract: >- + Provides utilities to describe posterior distributions and Bayesian models. + It includes point-estimates such as Maximum A Posteriori (MAP), measures of + dispersion (Highest Density Interval - HDI; Kruschke, 2015 + ) and indices used for null-hypothesis testing + (such as ROPE percentage, pd and Bayes factors). + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Makowski + given: Dominique + - family: Lüdecke + given: Daniel + - family: Ben-Shachar + given: Mattan S. + - family: Patil + given: Indrajeet + - family: Wilson + given: Michael D. + - family: Wiernik + given: Brenton M. + citation-key: bayestestRPackage + genre: R package + issued: + - year: 2021 + month: 10 + day: 30 + original-date: + - year: 2019 + month: 4 + day: 8 + title: >- + bayestestR: understand and describe Bayesian + models and posterior distributions + title-short: bayestestR + type: software + URL: https://CRAN.R-project.org/package=bayestestR + version: %s + +- id: correlationArticle + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Makowski + given: Dominique + - family: Ben-Shachar + given: Mattan + - family: Patil + given: Indrajeet + - family: Lüdecke + given: Daniel + citation-key: correlationArticle + container-title: Journal of Open Source Software + container-title-short: JOSS + DOI: 10.21105/joss.02306 + ISSN: 2475-9066 + issue: '51' + issued: + - year: 2020 + month: 7 + day: 16 + page: '2306' + title: Methods and algorithms for correlation analysis in R + type: article-journal + URL: https://joss.theoj.org/papers/10.21105/joss.02306 + volume: '5' + +- id: correlationPackage + abstract: >- + Lightweight package for computing different kinds of correlations, such as + partial correlations, Bayesian correlations, multilevel correlations, + polychoric correlations, biweight correlations, distance correlations and + more. Part of the 'easystats' ecosystem. + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Makowski + given: Dominique + - family: Wiernik + given: Brenton M. + - family: Patil + given: Indrajeet + - family: Lüdecke + given: Daniel + - family: Ben-Shachar + given: Mattan S. + citation-key: correlationPackage + genre: R package + issued: + - year: 2022 + month: 2 + day: 14 + original-date: + - year: 2020 + month: 3 + day: 16 + title: 'correlation: methods for correlation analysis' + title-short: correlation + type: software + URL: https://CRAN.R-project.org/package=correlation + version: %s + +- id: datawizardPackage + abstract: >- + A lightweight package to easily manipulate, clean, transform, and prepare + your data for analysis. It also forms the data wrangling backend for the + packages in the 'easystats' ecosystem. + accessed: + - year: 2022 + month: 3 + day: 28 + author: + - family: Makowski + given: Dominique + - family: Lüdecke + given: Daniel + - family: Patil + given: Indrajeet + - family: Ben-Shachar + given: Mattan S. + - family: Wiernik + given: Brenton M. + citation-key: datawizardPackage + genre: R package + issued: + - year: 2022 + month: 3 + day: 3 + original-date: + - year: 2021 + month: 6 + day: 18 + title: 'datawizard: easy data wrangling' + title-short: datawizard + type: software + URL: https://CRAN.R-project.org/package=datawizard + version: %s + +- id: easystatsPackage + accessed: + - year: 2023 + month: 2 + day: 4 + author: + - family: Lüdecke + given: Daniel + - family: Makowski + given: Dominique + - family: Ben-Shachar + given: Mattan S. + - family: Patil + given: Indrajeet + - family: Wiernik + given: Brenton M. + - family: Bacher + given: Etienne + - family: Thériault + given: Rémi + citation-key: easystatsPackage + genre: R package + issued: + - year: 2023 + month: 2 + day: 4 + original-date: + - year: 2019 + month: 1 + day: 28 + title: >- + easystats: streamline model interpretation, + visualization, and reporting + title-short: easystats + type: software + URL: https://easystats.github.io/easystats/ + version: %s + +- id: effectsizeArticle + accessed: + - year: 2021 + month: 6 + day: 30 + author: + - family: Ben-Shachar + given: Mattan S. + - family: Lüdecke + given: Daniel + - family: Makowski + given: Dominique + citation-key: effectsizeArticle + container-title: Journal of Open Source Software + container-title-short: JOSS + DOI: 10.21105/joss.02815 + ISSN: 2475-9066 + issue: '56' + issued: + - year: 2020 + month: 12 + day: 23 + page: '2815' + title: >- + effectsize: estimation of effect size indices + and standardized parameters + title-short: effectsize + type: article-journal + URL: https://joss.theoj.org/papers/10.21105/joss.02815 + volume: '5' + +- id: effectsizePackage + abstract: >- + Provide utilities to work with indices of effect size and standardized + parameters for a wide variety of models (see list of supported models using + the function 'insight::supported_models()'), allowing computation of and + conversion between indices such as Cohen's d, r, odds, etc. + accessed: + - year: 2022 + month: 1 + day: 28 + author: + - family: Ben-Shachar + given: Mattan S. + - family: Makowski + given: Dominique + - family: Lüdecke + given: Daniel + - family: Patil + given: Indrajeet + - family: Wiernik + given: Brenton M. + citation-key: effectsizePackage + genre: R package + issued: + - year: 2022 + month: 1 + day: 26 + original-date: + - year: 2019 + month: 11 + day: 15 + title: >- + effectsize: indices of effect size and + standardized parameters + title-short: effectsize + type: software + URL: https://CRAN.R-project.org/package=effectsize + version: %s + +- id: insightArticle + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Lüdecke + given: Daniel + - family: Waggoner + given: Philip + - family: Makowski + given: Dominique + citation-key: insightArticle + container-title: Journal of Open Source Software + container-title-short: JOSS + DOI: 10.21105/joss.01412 + ISSN: 2475-9066 + issue: '38' + issued: + - year: 2019 + month: 6 + day: 25 + page: '1412' + title: 'insight: a unified interface to access information from model objects in R' + title-short: insight + type: article-journal + URL: http://joss.theoj.org/papers/10.21105/joss.01412 + volume: '4' + +- id: insightPackage + abstract: >- + A tool to provide an easy, intuitive and consistent access to information + contained in various R models, like model formulas, model terms, information + about random effects, data that was used to fit the model or data from + response variables. 'insight' mainly revolves around two types of functions: + Functions that find (the names of) information, starting with 'find_', and + functions that get the underlying data, starting with 'get_'. The package + has a consistent syntax and works with many different model objects, where + otherwise functions to access these information are missing. + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Lüdecke + given: Daniel + - family: Makowski + given: Dominique + - family: Patil + given: Indrajeet + - family: Waggoner + given: Philip + - family: Ben-Shachar + given: Mattan S. + - family: Wiernik + given: Brenton M. + - family: Arel-Bundock + given: Vincent + citation-key: insightPackage + genre: R package + issued: + - year: 2022 + month: 2 + day: 17 + original-date: + - year: 2019 + month: 3 + day: 5 + title: >- + insight: easy access to model information for + various model objects + title-short: insight + type: software + URL: https://CRAN.R-project.org/package=insight + version: %s + +- id: modelbasedPackage + abstract: >- + Implements a general interface for model-based estimations for a wide + variety of models (see support list of insight; Lüdecke, Waggoner & Makowski + (2019) ), used in the computation of marginal + means, contrast analysis and predictions. + accessed: + - year: 2021 + month: 7 + day: 23 + author: + - family: Makowski + given: Dominique + - family: Lüdecke + given: Daniel + - family: Ben-Shachar + given: Mattan S. + - family: Patil + given: Indrajeet + citation-key: modelbasedPackage + genre: R package + issued: + - year: 2022 + month: 2 + day: 28 + original-date: + - year: 2020 + month: 1 + day: 12 + title: >- + modelbased: estimation of model-based + predictions, contrasts and means + title-short: modelbased + type: software + URL: https://CRAN.R-project.org/package=modelbased + version: %s + +- id: parametersArticle + accessed: + - year: 2021 + month: 6 + day: 30 + author: + - family: Lüdecke + given: Daniel + - family: Ben-Shachar + given: Mattan + - family: Patil + given: Indrajeet + - family: Makowski + given: Dominique + citation-key: paramatersArticle + container-title: Journal of Open Source Software + container-title-short: JOSS + DOI: 10.21105/joss.02445 + ISSN: 2475-9066 + issue: '53' + issued: + - year: 2020 + month: 9 + day: 9 + page: '2445' + title: >- + Extracting, computing and exploring the parameters of statistical models + using R + type: article-journal + URL: https://joss.theoj.org/papers/10.21105/joss.02445 + volume: '5' + +- id: parametersPackage + abstract: >- + Utilities for processing the parameters of various statistical models. + Beyond computing p values, CIs, and other indices for a wide variety of + models (see support list of insight; Lüdecke, Waggoner & Makowski (2019) + ), this package implements features like + bootstrapping or simulating of parameters and models, feature reduction + (feature extraction and variable selection) as well as functions to describe + data and variable characteristics (e.g. skewness, kurtosis, smoothness or + distribution). + accessed: + - year: 2021 + month: 6 + day: 30 + author: + - family: Lüdecke + given: Daniel + - family: Makowski + given: Dominique + - family: Ben-Shachar + given: Mattan S. + - family: Patil + given: Indrajeet + - family: Højsgaard + given: Søren + - family: Wiernik + given: Brenton M. + citation-key: parametersPackage + genre: R package + issued: + - year: 2022 + month: 3 + day: 10 + original-date: + - year: 2019 + month: 8 + day: 26 + title: 'parameters: processing of model parameters' + title-short: parameters + type: software + URL: https://CRAN.R-project.org/package=parameters + version: %s + +- id: performanceArticle + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Lüdecke + given: Daniel + - family: Ben-Shachar + given: Mattan + - family: Patil + given: Indrajeet + - family: Waggoner + given: Philip + - family: Makowski + given: Dominique + citation-key: performanceArticle + container-title: Journal of Open Source Software + container-title-short: JOSS + DOI: 10.21105/joss.03139 + ISSN: 2475-9066 + issue: '60' + issued: + - year: 2021 + month: 4 + day: 21 + page: '3139' + title: >- + performance: an R package for assessment, + comparison and testing of statistical models + title-short: performance + type: article-journal + URL: https://joss.theoj.org/papers/10.21105/joss.03139 + volume: '6' + +- id: performancePackage + abstract: >- + Utilities for computing measures to assess model quality, which are not + directly provided by R's 'base' or 'stats' packages. These include e.g. + measures like r-squared, intraclass correlation coefficient (Nakagawa, + Johnson & Schielzeth (2017) ), root mean squared + error or functions to check models for overdispersion, singularity or + zero-inflation and more. Functions apply to a large variety of regression + models, including generalized linear models, mixed effects models and + Bayesian models. + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Lüdecke + given: Daniel + - family: Makowski + given: Dominique + - family: Ben-Shachar + given: Mattan S. + - family: Patil + given: Indrajeet + - family: Waggoner + given: Philip + - family: Wiernik + given: Brenton M. + citation-key: performancePackage + genre: R package + issued: + - year: 2021 + month: 10 + day: 1 + original-date: + - year: 2019 + month: 4 + day: 24 + title: >- + performance: assessment of regression models + performance + title-short: '' + type: software + URL: https://CRAN.R-project.org/package=performance + version: %s + +- id: reportPackage + abstract: >- + The aim of the 'report' package is to bridge the gap between R’s output and + the formatted results contained in your manuscript. This package converts + statistical models and data frames into textual reports suited for + publication, ensuring standardization and quality in results reporting. + accessed: + - year: 2023 + month: 2 + day: 4 + author: + - family: Makowski + given: Dominique + - family: Lüdecke + given: Daniel + - family: Patil + given: Indrajeet + - family: Thériault + given: Rémi + - family: Ben-Shachar + given: Mattan S. + - family: Wiernik + given: Brenton M. + citation-key: reportPackage + genre: R package + issued: + - year: 2023 + month: 2 + day: 04 + original-date: + - year: 2021 + month: 4 + day: 15 + title: >- + report: automated reporting of results and + statistical models + title-short: report + type: software + URL: https://easystats.github.io/easystats/ + version: %s + +- id: seeArticle + abstract: >- + The see package is embedded in the easystats ecosystem, a collection of R + packages that operate in synergy to provide a consistent and intuitive + syntax when working with statistical models in the R programming language (R + Core Team, 2021). Most easystats packages return comprehensive numeric summaries + of model parameters and performance. The see package complements these numeric + summaries with a host of functions and tools to produce a range of + publication-ready visualizations for model parameters, predictions, and + performance diagnostics. As a core pillar of easystats, the see package helps + users to utilize visualization for more informative, communicable, and well-rounded + scientific reporting. + accessed: + - year: 2021 + month: 8 + day: 10 + author: + - family: Lüdecke + given: Daniel + - family: Patil + given: Indrajeet + - family: Ben-Shachar + given: Mattan S. + - family: Wiernik + given: Brenton M. + - family: Waggoner + given: Philip + - family: Makowski + given: Dominique + citation-key: seeArticle + container-title: Journal of Open Source Software + DOI: 10.21105/joss.03393 + ISSN: 2475-9066 + issue: '64' + issued: + - year: 2021 + month: 8 + day: 6 + language: en + page: '3393' + title: >- + see: an R package for visualizing statistical + models + title-short: see + type: article-journal + URL: https://joss.theoj.org/papers/10.21105/joss.03393 + volume: '6' + +- id: seePackage + abstract: >- + Provides plotting utilities supporting easystats-packages + () and some extra themes, geoms, and + scales for 'ggplot2'. Color scales are based on + . + accessed: + - year: 2022 + month: 3 + day: 23 + author: + - family: Lüdecke + given: Daniel + - family: Makowski + given: Dominique + - family: Patil + given: Indrajeet + - family: Ben-Shachar + given: Mattan S. + - family: Wiernik + given: Brenton M. + - family: Waggoner + given: Philip + citation-key: seePackage + genre: R package + issued: + - year: 2022 + month: 2 + day: 15 + original-date: + - year: 2019 + month: 5 + day: 24 + title: >- + see: visualisation toolbox for 'easystats' and + extra geoms, themes and color palettes for 'ggplot2' + title-short: see + type: software + URL: https://CRAN.R-project.org/package=see + version: %s +... diff --git a/report.Rcheck/00_pkg_src/report/man/as.report.Rd b/report.Rcheck/00_pkg_src/report/man/as.report.Rd new file mode 100644 index 000000000..4f5ed02b8 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/as.report.Rd @@ -0,0 +1,69 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_text.R, R/report.R, +% R/report_effectsize.R, R/report_info.R, R/report_intercept.R, +% R/report_model.R, R/report_parameters.R, R/report_performance.R, +% R/report_priors.R, R/report_random.R, R/report_statistics.R, +% R/report_table.R +\name{as.report_text} +\alias{as.report_text} +\alias{as.report} +\alias{is.report} +\alias{as.report_effectsize} +\alias{as.report_info} +\alias{as.report_intercept} +\alias{as.report_model} +\alias{as.report_parameters} +\alias{as.report_performance} +\alias{as.report_priors} +\alias{as.report_random} +\alias{as.report_statistics} +\alias{as.report_table} +\title{Create or test objects of class \link{report}.} +\usage{ +as.report_text(x, ...) + +as.report(text, table = NULL, plot = NULL, ...) + +is.report(x) + +as.report_effectsize(x, summary = NULL, prefix = " - ", ...) + +as.report_info(x, summary = NULL, ...) + +as.report_intercept(x, summary = NULL, ...) + +as.report_model(x, summary = NULL, ...) + +as.report_parameters(x, summary = NULL, prefix = " - ", ...) + +as.report_performance(x, summary = NULL, ...) + +as.report_priors(x, summary = NULL, ...) + +as.report_random(x, summary = NULL, ...) + +as.report_statistics(x, summary = NULL, prefix = " - ", ...) + +as.report_table(x, ...) +} +\arguments{ +\item{x}{An arbitrary R object.} + +\item{...}{Args to be saved as attributes.} + +\item{text}{Text obtained via \code{report_text()}} + +\item{table}{Table obtained via \code{report_table()}} + +\item{plot}{Plot obtained via \code{report_plot()}. Not yet implemented.} + +\item{summary}{Add a summary as attribute (to be extracted via \code{summary()}).} + +\item{prefix}{The prefix to be displayed in front of each parameter.} +} +\value{ +A report object or a \code{TRUE/FALSE} value. +} +\description{ +Allows to create or test whether an object is of the \code{report} class. +} diff --git a/report.Rcheck/00_pkg_src/report/man/cite_easystats.Rd b/report.Rcheck/00_pkg_src/report/man/cite_easystats.Rd new file mode 100644 index 000000000..e53122778 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/cite_easystats.Rd @@ -0,0 +1,75 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/cite_easystats.R +\name{cite_easystats} +\alias{cite_easystats} +\alias{summary.cite_easystats} +\alias{print.cite_easystats} +\title{Cite the easystats ecosystem} +\usage{ +cite_easystats( + packages = "easystats", + format = c("text", "markdown", "biblatex"), + intext_prefix = TRUE, + intext_suffix = "." +) + +\method{summary}{cite_easystats}(object, what = "all", ...) + +\method{print}{cite_easystats}(x, what = "all", ...) +} +\arguments{ +\item{packages}{A character vector of packages to cite. Can be \code{"all"} for +all \emph{easystats} pacakges or a vector with specific package names.} + +\item{format}{The format to generate citations. Can be \code{"text"} for plain text, +\code{"markdown"} for markdown citations and CSL bibliography (recommended for +writing in RMarkdown), or \code{"biblatex"} for BibLaTeX citations and bibliography.} + +\item{intext_prefix}{A character vector of length 1 containing text to include +before in-text citations. If \code{TRUE}, defaults to \code{"Analyses were conducted using the easystats collection of packages "}. If \code{FALSE} or \code{NA}, no prefix +is included.} + +\item{intext_suffix}{A character vector of length 1 containing text to include +after in-text citations. Defaults to \code{"."}. If \code{FALSE} or \code{NA}, no suffix +is included.} + +\item{what}{What elements of the citations to print, can be \code{"all"}, \code{"intext"}, or \code{"refs"}.} + +\item{...}{Not used. Included for compatibility with the generic function.} + +\item{x, object}{A \code{"cite_easystats"} object to print.} +} +\value{ +A list of class \code{"cite_easystats"} with elements: +\itemize{ +\item \code{intext}: In-text citations in the requested \code{format} +\item \code{refs}: References or bibliography in the requested \code{format} +} +} +\description{ +A convenient function for those who wish to cite the easystats packages. +} +\examples{ +\donttest{ +# Cite just the 'easystats' umbrella package: +cite_easystats() +summary(cite_easystats(), what = "all") + +# Cite every easystats package: +cite_easystats(packages = "all") +summary(cite_easystats(packages = "all"), what = "all") + +# Cite specific packages: +cite_easystats(packages = c("modelbased", "see")) +summary(cite_easystats(packages = c("modelbased", "see")), what = "all") + +# To cite easystats packages in an RMarkdown document, use: + +## In-text citations: +print(cite_easystats(format = "markdown"), what = "intext") + +## Bibliography (print with the `output = 'asis'` option on the code chunk) +print(cite_easystats(format = "markdown"), what = "refs") +} + +} diff --git a/report.Rcheck/00_pkg_src/report/man/figures/allthethings.jpg b/report.Rcheck/00_pkg_src/report/man/figures/allthethings.jpg new file mode 100644 index 0000000000000000000000000000000000000000..101b8c411f335bbe6795667bfb29135b679d44a2 GIT binary patch literal 76817 zcmb5W1z15%SDLAs=*8wu%k9j}{fCPttfB=UC1&|r2na|h=%`4@&yf)j(6G^-V_;%oVIiU7;Nf86qGMuVK9PVuc|t+K zK|{k~A|oJU{{NOA?EvaCh-|1&5MZPLI4T$fD%g)s03QGYz@R{-{YRj{ARu9$L4!Y8 zL5Baag6;(h8V2myk2wGV0t^60fj|KOu;rD1{Quu$FloFH$c+Es;P{xBCXHso>+*UB zzTz?IB=|pI|6~3C9>b5A#(go$QOEw3iTCY;z2ox8U%pV7jO9)&s-{;Rt*{y{DSQ~BtMC5D6_k7yf|Ka}p18pxtWb^?p3EhTw#v;VOy2n) zWS-CVUYy8(xB?KuLJ!hOziu%Lld1tbQ3n^ltSm-460-$>HZ0KE;uzT({fFuA7z7f# z9?>UhM0Np$15Aa5X^Vhu*&te0;Gb+SE`#slm+lILI`bKC?>+{5C&b!3Nyu zWUa>Efui7kMN+kl71a$`2e|m@A#VVn;e@V2t>Mxkkqzq!`#%CEu9iO}_(;8ZCIF_+ z;6joF71bgdr_u1GE5H8VP#V2^ZL}@6JB&@1JRN?muecch*wK&Gdb+2RRQuOWWB433 zG~Z6~SS*Md1At=3HWq|(OG1DcZ#;H?D*!-C&)Kpd4MgN8f%@bBAz;$dUjx|$!^xuI z003qpRG-V#0f%gS^&vFp7ZyD<#&_c7;Dbn?5&c7G%TFa#zWD*64kH^Z+EoSfohN%1 z$!}^fp|ybJZcM@~FOKJ{*%AmMoh8Xf2}t!gj~ez7Js$I29{B(i=K2Z7me`zK(1$Xu zCq7<}fw|s&6jOFH;-B>Y8wjuWiJs!D{se2*sG$!m`9$r?vp~{t84mQI7r?eq<~6vF-|pm!CLSF)aZhy2;b}UOh_MtXrq{| z8-=~M&VakmA3yKNGaz0v{$fV2I>9Mex~t7&Ns`we!N~Pg4^7I`?@`ibRleAUpi8fg zpKjIcZRd&|=~n*fK_`LG(sUKx6_MZki{XDmIJM^TkD7HIr@BNVPqyMvGd4>HERu0u zEu3Ibnn^Ev-Nj&J;=6ZT@a?y`B#nlt6(!Ik!nSEpZT7b|oA#Cz**;`v=~4FmN&V)! z_O`7m;@c*42sIA?)fZ}BS_htGP$M>s4_A4kpVgpJsOy~qflD<&>>8kAAA48T{8 zxV#E=dH-!%#-GqT!*Yyjt$Njkv1$h)+3XW7Wo(&w4@^3UgIcfa@<6AH%YJ0)I{?7P zpH*R=7540pFf%b8?3`L^D2hdC^Y1@0EM{E{4u#xmdPlr@${L96j@~)m;|N^&nfi~w zy zY!&{cs`FD;Py@E}7)f8n)P3Yt|D#+#RdDaN)w$U$NrNPOe!HHhZj#8s6IZ!_hT&y1oBbYKN0^Gpci%0H{T<%@i0yc z{IY{Zg@2M>o{-K{{}2KyRQdp-_EU9KE64Tv#O$Gzc1VcsPYcOJ0)S4uZ_;k$9tY=& zycq<%9RuHd@&LlGks3q=A*mjA!HY&Yi+}X9QYcQUZVkA@hB^PM7{7E-`6e?dgd!h? zDSu<&rxXf?+R2@<=UPE3xHK=QZ{Xk30dP}H4W}^o&Skxgclz#U4Z8Wga00)5GKTOp zB+iM1gZ6q}#e*B>P zA8Y!p8=5?1wpo7wMZNMgK0Ag6F6+5=={#=BZwDS7p|nCr-2xP%sM5T1VnS8Vi6@?D zpz`|&r5Ww=p~?h6iN*!5DSV$fymOt5Z%<=7+~OIn)cW_z^*!e5C-nbKAhllO_qP|=S?(1_Vi}~___#4fYu)V|VH1f*y$1ChJ=@&yw93v?|*9u?( zcpQjBoA+U)zn2bA{->!Wl&RvEcy~hQs!g{lfljrOVWU!nPDCn&*V{w-k$DB~m=!ZD zJEvb>Wj{23<${@YK(xI1c9S$>jOR61~GtSu=_=3Vf}lW-L?m2gFVxQH~415i_PM+s`A$V?yHz1w7GLgeG-afDEU zOJ?ngmHrFB){w*yXKrc;YBW&9qs_|_YSr6L)z`7TMx|7beI|p;@ zO-Rf}fTovWanr;~=8oQfXYpqQVvAiSxD+-as4owiyByH2jFT=E#+1Fnl{Y=w$IS!{ zFvuvE2J2i1$J0muFle;3Y(&#x{s0mh%)T!^lZXNe2Kh<1 zzQa2FM?s#_3rpWy&X$u`w z`h{s+_Z@n(Z;5%XZ6_jGWf={|_KsNm@bMiPPSenipFocv0LJJ2`+5oFdQ;#t`YtE4of)k9RIvIK8h2mm=4%ZO`Z^jF8D=X zLT5}u_l{l@INI^6x>{wjOA;j@RgcZ#lK1vJQQ*0~S$K80$qQ-;0CfBm@7vC(mV<2j z2;@H7sqfpV$;+9yV8ff<2@&x-QM4TOtxrDxE!Z|y6`%2wpBmv$fQM#flDJ_0Utli% z%$iUYlOFryfj0m+!ZtzEpq9VK*>uFRsO3;2E8&3uwqkWn{Ku1kveREKVD+v}AMbo) zK`Dq&+*WU}HCWQ>$|zHMv|@S)vXW}?Z{OTDZTM@^%~#Ys=lLs}zb{~NaQ7M&hZl5S zt>=F!(Xa2`_}9@t@1yc>vHu(RGt#=@*>j5bHq@f1Bgv^iaK~OL$MlOk(*YL;oc%c= z-K0qeRb_MSC}TC>+8PTT`d`jqlS?qf& zVpQ7S%3oJ9`v?IR_UpP4`)zXj#80*!LVIVm)tBw(xYrx9KF1yg9xJ*wHZ5Fxf0Mmm zLAq&K^8j@WAjjB-NXV4;YvIx)0UjbtRzCv9Kn&9U zk!F`s_f5%nYMyemo%iJ`Yr|A>LfSu2uyKuqlv`qu3&iK@()IBGIdgvaqxw=|6#}JP z5xRwn8Z>wCh!7^;zISTv3vt(h*BuLSbp+B{E*_IFnQ-)TAEL|axpy}|z*g;+6hZ!^;+008t_Q#~xNM;z*k&K`XN3=$5s zn>HHRdjx{$^_V_1ebO5TvuAPwj|4DchSjeJxtno=Qb8;*!A!^HPUMUgxICXnrd~pU z)>X(wl^SnD)TpEb@)6*$eN#{&u=7h zT8=F3E&;*e-4~WTsPBM_*Bj2NzAG=r&-K3{kZJbER1Rp~py|9}!ktfGdcwuaz)`wd zx(+V(S9^mp1D&zl^l}%|J}s0Ww&F~J0!p=p+bc(Nlz(*~IqP~N*>KB)5B(@*pM(E} z13&I&Tj4SYi^Edz^|K?7hwz?2X5uJse-*)d*{HZM(F9^*(> ze{ui5(D;4!Q6gZmZh$=Qp8Bo)>k1t^@nF^SAc|$HJ<()l394fH1^oBx+*B#vKM~MF zQyKDZ!{Zp#} zJ?@-sH|%0a6|&Sj_fs+b)M@|@cRtaBcm7k*hsgbR1uGBRDHSD_-&{a5Kk9bdheilG z%m!SR3i@nkY%}kl6yOJG^u0PwW4eVF@en^N^QZcs089#Nir4ohA!O6e6S~g%9|LG_ z`$}}n;?M#D{)-d!ZIO|MS2>-&uP9V>)GSzHlv4da#mzS8F+T zAy3;j%-R5Ewv0HaRnotRMx`WodiCbJjW-05Z^;ps7~92Cg_4s#wc5(9OAji;+ncFQZWBZwL|Lm-U*d z(D?&%Er$xHRMV-ZIUNg3as7P&Ch&6C{sc>V#~Eol{7{+DAPsb!z9`WohUQ< z=M#K%1zFH(rxnh{?vx{%HFqTd073EF>*5DiM2CjwKun`Ifc?lnzweBT^*$rl8M7Lb z_gBU`x6zCGeBlvjndN_%={%RC`H?fQQDm%NV;OT!m{}qv!VtV+}*3+gL zTZJX#dT9|t@42IA20EJfQ}PmG)FyqafA-uXY>!BefzJ`hctj{3YtS-xBEB!>HJ5?& zFU-RXD>!l;m+I%1EpP?&K||G(faP65BPoPSM|sZ@4DgrKRy!q&?Ge3g=PT^4nJGct zQL-@l62zVE25p0%NTvQCWE^T!d zmcdZ$#Ysm*=2&hE76|-e*A;TLFbms$NbeY2QQy%3Et@^=`wx^okK`vaJowD)`txbC zCY4+ZN z;&t3dR@m1ozwZTbX&`jvH7hv23LN$P0hqeM^Yw^-R`UL1EraduHaiFJQ1QWS(ABeM zqJ2y0Z)Z>hCg6(Dak#GG^64x>EY%+zG|UsmWtP#V7k(_{_25&%qBC(C7@)oXQeF_H zY3OO_u}bcec7>ZDT{a=86T@$9!aAJ(n4`!Vc=u@|lW$8fv@4`RlCKlg&k>9ZW>U~( zK7h79paVXs25jk)2C3t?8G2dLm+wn7BciK(8~j;Ke%}n3+}n=nIWmiiDhJE9rB4Iu z>*gNSCM4m1&Wi%yUfy)wks-ZmdQa7@k@e?|0PRDHcs&kZu^g6PZlHCf{WCiKLcyo% z^tKw&4=#M{pFfZ&(VAbM&{7!Mj3pq~ufG&vy!sax&@sm4<|ZfLGBn*JHpvUIe`JQ` zqt^T{3?av-rk63d^l3`1!@DVtnZKLBFOYM~Y~lMF!nY$GVM70MdrIKcOQ$^ddNZp9 zP3}E+Fvg&;L|AWV(!&g9HSz~mZ1Ge`XJ0&Qiie?d?o0S`Jy&;%JN^G0Nw6`@h4+mP zq&8_Bgnw^>O!<3p`b30aMRn*g8to3F{`)-qk1Uj4YV~Wx5aba;Lqjg`vnL$0 zej@(I{CelbMM+LJFZ=!Mi~WZ@Zi+`-YVlXca?hYm9nF*WCAO7{q2`1=r$#uA? zft@gTsaYt+ANt?x2e?>|4MXZq37v0q!C%S0&2{$PnPV1GjsfWHLpL9k$o98`Hw3?> z|ITjujOOyzO5NOIj;~?qahVR;noXnixAE^Qs%FUSec9L9bMYIboaw(i6nUYvanloj{TEocrR<{JT>xH?7bYAtmwsxuT#m9FSl$omt;6>9mfKdp{*X z&6q5MhtP96+49@#m`o(=$(Mc+0zVD^3QQKez~Zw$w>VbMdQ3aQ;#vP`<(W>A8N%xk z*my;5+xWLL#HbS;iy8QN++yi4(%bG)y(|jxzq}Nm(<9GN?DMFQqqh7~K@bra|K33V zNew{JUi5tFXQ68`GU(R-*Sig{E%ujw=jwS3J78TWD}On87;NNsHc)t3RD6hWshLsg ze*@Y#{g$4fl+e-awQ#!^zcv4P-7;)ioMs_qStS0`{H!_Ds>LhGzI8S6*Uft@ovo%M zRL_JD^jos?dG2Z+rvI9&etCgOIbn|2M}@C{0y-A{B>LYtuWk1C&?~L0clrJ2D1REs zluBWeLHVh^0coLy`)$6z->|GWVJ=+AQhIuW`KN&1W=feMz$HvJQt^^dVcDdYL}}??0hWacFXb z1II8b1iMe~{@3(R8X4!{!bm-g;;1>H8Rew*r5{e#JrOYs2jMBKtg6 zq`$kx{|SQVvMXJmOtBOz!0S=_m-*SZEU;m2P3vZAkQ!sCtyDIs8`?|rgM8$_y3H>i z1m~DfgNV!m|6=$ffeSyBQbxtj9-jP%5&%%o8S%Gsdf?liwBX|NWLrpi2!9|TKp*e0 zff_LsI1~gV7&z3gFMPnjAt0duXc$y9#y8K21yImQ-eIt@laetpvtVM8zqY1e1%1`? z?B_Q>;6H%w;R1LuP0=JHiXTA74}b%8>h*x({W>-GTCmxO`-5>S^oy=M*4U_$hLyZ1_#Sm^zSO3=c1CaTkdbgV#PMD(75>e0 zlFsVStyZP_A3w3Sk)OpLD`|pX2q&18vi09OEFXyJaNwFNJG>0U5;b!IO6oZ)lq zbSNaPH$!~qv1khKAz<(~ZbL_A6a2fNxD!gTbH*!chi&6yRmH3!n1nyW59Z?#HA4z0 zXz;P=n^17z$E}u$aMu|oCx}kY{w#f9_`bm@lF5u0VZUUMu|EV1`p#@>$T3MPjvy4g zcZTM9)CAW9dBjvqgj{Bau824F)^ntNTT?=d5ijUbX$tf>2ZOFkG^YABI~`iQ(%2_n(i=y3ym{Pju` zhraxyPOL5fg_VJSr$M#vN;g{b!uPh$$z%`;3KRAC4dutPQmN>qpk#5HWF*38(+}eg zw#P8H_zpyqi8qqPP+5u6yd~q4v%$3I#mz6I3fvrNYn}y0cuyqXWp2rg1$t+emO(Dh z?=4E#E#i?nvJ-7xZ=q1XC{JoZGh_6U(==2Osra~S+R%djCOZe6>7HDoxb0g+FFrH- zDV^c#voB@WcX%|-8?yy7i5p%xLLb0{f_my9n4}w}X2be71|Xjg*<3>@m+h|tMl@Kj zJ-rXUzS^ZG&%{T-E9LK+Ta?iVzz^o_#P3^sk&hWlO13nSGBcNJ>&yrxiz)*7NTz2% z^jfts<`|AtUg915e%Xm*Ko_xx;hZDa^M>*t09}WgMQlj%>YOfsprwk@Sl+;kS?0g+ zIqaOxM=}*o3KsO-pvS)+9Fh3uO1J7AG!d;Iyb31WTZACy$# zK}~euzF@L}e&d!=8x3+yCzBIl>;z3oN|+J*)smM{JDdsO1q`WEHW$s8%5-(c!0>Uw zdxf73mgC)6Hx@JfK*raPGoK!?jhCTM;B=|8^YL1?FAwSz8LouxOFrKF?+sXb$FWYR ziZ#m1h8o~-SMkA#OzHW*K7UUV{e_v%iRW=KckhaaApQriHqYdpUYKdIihuVVgIl>K zTsCKV1&UM#>h@LnBM||V{blpxQ0<;$;}3wLSx;&%F z_1U1=zO;mC&CD&&fgv@oCEB_w%*Tx7OzP_<`vH)_C@#Z+`rCP)-}R}yq6n~s%wJ`n zNlZfxlP47IMt;q2GOREb0^8iI!)IGB8lT9!m3^!CAwN}t78YvMyK|YzcisShU`HS9 zwMeJ?f`X#fxIc~kA@4*;aVw4oTbr$7oYf=k+jsQ%?Yd`Ho1iWnnI<{004MNS>U`R8 zFj+E~GLgHUBxyWp34>b)MF9@~wGOi$>TbyczNxOA;HymRyq87#0A*pjCHT5x2|rw# zB#})43sD~41_BPAuNQGwq___1GsXRj-QB})>|22nun<+%M=-44kjW#&b>~rN%&`Ta z$}g$guaF`X9DVnR^~uO^t0}Inv3m|S@UA8Eh5MN+-qA0y>NqHxNYBlEDgkv$k1nSG z9>XQmVSx+rvD5ZZZ|_`ub1ot5^Qb6|2R1(9Q*M#Ot_3>;=*1SCX0*U(=7VWD&n>8? z>g#Z0h;My9Zl$HsQ+6}K?r-)_5I)LpP<(uF4XDn*mWNZoa@?*Q z7*ve0Soc-0ZL;i9pb7|cp*~$GS7n3VAzkEV1PkFe7LthHtIZ~ktvvF}LJIa(qYs&Q zc%_0Iv!``uoS^oYoo~XQs0+YnUXm)E^dBv#)^51hh%&y%5Ab_iXDc=Wu|?RnwP68+R# zB7B+8sI4c`vv-Zk1_JOd~U81@VR=!iw0^r#MI>&!%$9woNt-`q#5I^Vw#?Vo6ty6&P6>6U!)j#5>c{g{b9qO!64WV@**!Fd!; zdEHkwwwYK$v?aYg!lM(4@CTqPrT0uR=~DcH&U&CXN7aK6O-02d6p9X(^QzxfU&$Hj z-Cf0=(>hvOn@^v?fI-HmKwPPTd;w1UO!*5iluU+qnY4<|!|>6`5WWi5VdDnl4yj$e zY6&4GjPov3_+zQsQ@6kwss=h}GeT>uc-Z;_N zlmRzKq{B!_nlq&MwT~4Pohqp}{L+F3jK1kyfMZI}Zcs1yr6m@g%=B_d|2C5!>`v{a zdd&JKP;KPP6JJIN#Rrxn2ktb)d~6`b9;C2&%@?3O)}qCjUjQ9V-vlWDF1h8aufXX) z5&L+Xq@5}y#m@q7YqP@AF&jto1^3>ocBqma&x@OK;G?0;s0ifUNgGeHGEAWTo$MPX z{WUUd`rSaIaU)$x*HX{>H!1}Vt79Io#B@pbINf1bZ9jZafQ6|KU@~EAHM_kgdjR#z zkG8?GC{5;F8cO=xQKcnC7nSFWN(qvdt3km9$%5875>ovV1sEoBU-R$T6|xS*q0hV7 ze3-xMo2qq8AvHrX$Rz7IKbx=TiMPD_9>-m0k((wtH)F0vzKsA77wXA;#P7)Uj4#7mg~SBeQwX8}k|IoUoWy)iTN`F$(}cl?DI)mjen@rHy*>q^_b`Fi)E7BxK47$#;ZT)(o<&0 zG&k56v<~&L2kY8MaV2``s(J3RqRF5)yUW!~zeXqd2 zK~vetD!3ms6Ln(k_>^$1Z~pkY`^Fa_KQd-Vze8OQlC2;WZ_oJwSYr#`*YDJSu!iF3 zbkPeHCF$m55qrjMrBV|abH-=7n)Ep+#tXYynXHjSDloEFCdhudnxlsMxyo@v z&-~N0kCkeLxv(D%{C-FzFGYE`*&Oddmk6u+jBI>UNWI_0yKCf3PAO}D(5l$`kek8q z)XK~^a!8tCBW*4oPMA)4hh1#UbulP`V%e0>2M>Bj0d>GZQ46sscr!Qv-v2hvLyRfh z415>|Fkfu4w`w8}@kij;ZFk}aV5abIBW(-tgLC$1a#;a_@AIT5DQ)=8Jd-i>H^w@e z?-Z#A3FSDnhTzYgU^g3u601dmS&4Ypa6WWMG`qYH66+Cfw4tJUr$HlFeW=Dv8&5i~ zVDkmG_;v{7~Ols|d2&n;EWw@{?dihg2w$L}8%`#^5wh$NmuoUdZLt)<=uM{{twp%)JCekiTcKFoOkt7<;s4^f`s ztGr~5LfF+}=!)oz!vh<7`zN%juaS^+t_CYaC7I?J$PC|ULtJ~#avZGBYdM|nkL7U} zYD6&@8Pd-fF&4MHbSrsA9N7um)qgS&U)NdZ5%X@ zqwq9gjc0t$ZndY_lSLM+Q&%-LpD+UsDT8X zRN@wO>{Ls`vn3urUMlT)J_4zwbxsKhadA9ne>B3OIM_hMy2EkDzFYXNLE#3Ns2V4l z$%YbxTjgba+daiy%jXk>IMRBfvCpx(JC(Sxj0kvPrsBI_^1xszKd;-Fy&@mrRJ}qf z#hVkHuUK2($pKHmq~ByapMy*Mo83}L3y+RPXE;cns{gD51=nLfw}l_-*)Gd9S4mMjd5)Y z6SGW_6sWSv-%X}9Y*E~cnh`YR2N-x^)rE#N)=r_;kG>@JOm=tmFkxti&I&l+umegn zc(S11W!NVL#TdtIJx9Z8p_u^zT3**|D zsub0DYP<6}VG2W4+`T!j*OcFUCo6AP(mVRmCWcLJ<)O?p<(&g#om8Fy6zYL6>}?{^ zzAZk5&MEn|(q7Cn3-XySK^~^d-O?46FAUI%_g0!n)%C_H@m$2m|bnbf><_iXe z1t^aQRTb4B+gZ3^%bv|GHrWRH1kU(`xD<;iisS^)>^I$^FvMPW&l6Xj#dLM;)KMcE@a6Wv z^RrA>zZi3rsMgo2*joK8)Ufj|2$M?dVUpzH8R*wGO_+=da!dR+o4V^|PVW!b8VT^) zY1jQ1h( zL-?~-Rb1eDS*dYJn=6gChlkDP42p04!Q%4v7MP`srNIO%s8#6UgRda8?4~u(Q%m?z zCuxj9MQwjYLrIn03yB2T1p%IohKv!4_yhR#(aO$h$M!>?ms*|yt5bORw}Cc{N{718 zqh~p7s@7WU5gDG+MB~-M;C^~g@WB}2tW=Cw>G9gIp}u{Naz=1w@44_VYU z^RMaoz=jn@r%^Ld2`XcyX~-ehFvWrz-dr(4GDb-`?1&3GYEOljL`ziK5uWvT#5H2Y zPf_=|!Rw4oGKAQTKK}qY5C#`OFoMv9e*Qg00d&aF(HO1gN+OWaSsaP$%e>mj0@DYF zY;Eyf9j126N1uIo$J+yXzt3M|egNH$VVLpj6&8ip0*WF03VNol2qUrO)A5H=_mT+V zGZT5GxCvedWG$iTHy6dfev|o=sqP|2-gS-Tx~+NESK_ReH#ujMq8R% znlUA(g6UsHmPv%WrM(5_ak;zTxc%8r1VDEOwF(KmHmE-3Y;2X>M%E_pKKKq=)qAS( z5}&?^F{`eH4&@aq8-<$x0W9Ww=F~O6c@8HG4m}bGMPLob6>4!F^L+Ff6cUa>1AH(~ zwDl1hH~gy74`74rk_mj6u9Xp1X6*;CL=^65+1Z$aonQH3!_--PLW%$>s{_x^zL=$=TImh zBqsagO?2Ul=PYaG=wtFh4~ud7;`o^&wt_fpH$!UrdiEUogKw6IYVW&++G0J zLevVG&DO_}x<#ncB!hRgOhMlyXKE#qf+OXM2avVz=(21YT?3l;(W&nj=o%TRl9vf zT^kwTs4}V{@mwt!2j*QMKwzDf+=S07IpEz9;9PQqX=yF>x$QzUBSvholu%%*+_LItf;k`uF-7k&R_IIIbN6 z{R2mxvtHdAqlgb3!?Wk-{2c+Fd(%e(AH+1l!|m|8ehx%K#fkU`;1HdG-cYknUZ@#q)zOru0L)56Z%?V#rt}SyUmGT5_%B)5V=WQtp zN>Q4|&gzB5x+R!+DFuk_f+LY&sAHYof>$E~>3eK@2XJR=bo!Mpa(m<35cCKqqFxlk zI8u1_m8-JE)a$GcKuj*0wR~V$tg-BqDKMH3TR|y)op|5X=7)L5QJh5VW9y`cUbbeD zAIsY@yxn)9He31-H?)}`T#_#ViA_%)9U_i}v^d6Q9rpx+BD!0ogh*V~0qtw@QOOEH zb21Wj(yRdXGjLHMr?uj;4F+mRZt1(_yiqsE{bivW0Gu>f-P5-K*aUUR*2GqYg}Nf6 z>WB4RmH5fX!iladM~erm>#uzR)oRMaB@N^`8BLnxpLaCt-9J|IC)X~E>d~FIx4JG# z(0=v}jgyo^CYL;WXh|u%Jar5Su(QW@pqIb4?=97<0XTgA&nVUIA^ZE}d+( zZ_!iak--gi>mfAH-G{PlUbEiSl-#ck5Yn{kMyaQ=lijX|mC&vup}~KhMnM*Y1}3ql zg@u+R&qT@`+vz-*!-R306Y0ErR|Ge%tYr`=JpR3#M#qN6A|u)j3(a+Am8CRxIy73( z1~e+4zh)9lHbFfzNUeD{x7nh}mA@rtNT{K#p=|#KJiz1b`HeVpVC;++=kqs7Xb9^3 zf@a9Lv@Gn^3&s(xx4A<3M#q)=W6FNr=_I-fw2IQ4QEY-UOct0l0y*E4+>_0v{FL1v zAlt|t3G${a%o;D9kb{F=chUj;>-;wvs<8~zD!g!cxPxNDj31C#WWHA<#kF$;0&YR3*GUQJ!fce%gfSF(?RvY`$Kse##e6i?c-F;>dFrNW^aQ;5>7y2Z@);^h+&OwUd}K^!@fo;8th*B7NlTk0k~fmTo3N^ zXUAj6cuZEdO9N%nI4!X*=Cc;+qXKYR2g2U>F@iyX?tG2U6D&6R`x(O|e*n!War#IB zT9=ERsky3x`@(r2Kf3yI$>ToFxWO2*tfXX}&o;2wwnpP5_&uoiW-F5$@~7xk*^h0Q z;pezsi=e9aw8%RXvYsCpa63UgK1@=-e~Hf)s5CKDC=*h9og(U}k!E7=42vR5f#4I( z>YcB5f~!hfNT+;GTJqv8bWcmt38Bz7J{-;j2!g-8SveZszx z5B*@nK+uWc{$UZlRI79hA3REeHKh3<(`Tm#IC|wm3fl>Kn;@Z7Bi~Q4PQ-0K)H2{! zSi@|5`}VNLkljp#8vP5y3sDEvR#>Qx8E;(bM!l`2PMDI9Xsdzo4CjXf$Y@xIcciC* zNeLk=fh5MDjpK@@!Pp%l{#}TM11apF;0K{t6tJ8(8EY^r3>sZYxN%WlFOKG(Dx#a7 zY~J~lKJdg}%#aiu94=Qxd=EcM7PnqN_h`0vPe14xobehY>Ie9-MTM9~`m-@Rd6@L* za9o(d{iUjmNIi5H<4TD6La+iu8=L}Kql4t=+`;7f+=^$>feNu-FnVQV7(Wb4SyH}c z3VcItyGIF=^NgGj)6b86E^qp)MrQRZz9Nfa&* z%>@n0PR(`R1e29uXxofRg_CyMrW;IbvR%iR4N_-s2WAqBc|aJcY!)8Wx0*)Baq7gr zSU7EiR&aQ7ij}2?*I91yS6sU>DyQEpifF3TNd$6EPu_ywKGnsKoCPQqVmHd>iK;t}4D(e3`wp*3#t`e1&mDw}AOU?+t!db)}j$2mMMvUru&5MT&;9Vgeg( zR~Gc6*~YWotPKoZ@#$y%Me)io`Yk2gGw2K0sVH4c^Fn+`*Q|z%G=?#>-IKE~Or|b{4z7Uq z7VuD!;-_Da#U-&_hT&y3e|&pUWyo#;YDmq9y{(njCBu#p!Ne4+2G92@tF-Rul0pZK zLC!^f=v{SE^}X%WHexZlsUs1VbQK0_qu?jpP)COLZF*-z?^BM!`CCn7&5Wtts#D zt(GdC+WE;gPF)eBN1sC^y4K4vt}b!?d|dL929x(i1Ezhi;iUaYI760Roz$W0EgJFA zx2M)(OYY|}^-P`jK#y|35%y}5q z#-y3po^B(GFdA6GiL4vZmnQWM%+;2-z}kH9jR+D8jWboL0Bt&LHCayK&`^%R7F0-; z!r4YR%qrcjId~WP+2a(nH)3iIrivR7#0(FPjN@EK@9BF}6IAuK7u1_g#C0>%S(V@g z-XNXaK*47(*-unqXESItoX2Tky7j?@M3~^uM|Q>YswSD}tgTwIUa+)XalP#PfWWGR zC?Ze|MQzE=pu5GTM!B<4*9s*j*8lBmEj>Gvd-Aw|7h3O@8A*E|)r4+kVtU+?)#Lwk{;DgAZ>2pOeU5`x%B zvd@C>LC12`aA0fPFMFaWZ;IW_q7OaDo#AQD8vTQG(Ie>SigVpgSKZCG2=mlHNpS4x~-r`Hl?W5?;UnqNpz8Anm6-@w3a ze8StqPUTvR;_|hEWxF-P^xQj^RKyMRL(h4MV!KD*@eD&{_cLe=AE>Hr2QmlKJX4=|QY;W^}rzmf(kAYqX?YEZoPVHDVJg zc$QmBjK|&i*P1sDefeL-qBZ8ldJ>9AI;0PzuC;Teo zQJqTsV|oQE-cEhvm%tE%w1L%}ud?l57hm<#4KM)Yw+xKf%TaZpGo#fUez_<8p){#1 zJm^aUZd3pq^lbqYG!!HN`qTjQ9Rer?ph7YUpb?WWzJ`KEdHzNoos?P7hD|}YjqKfr zj0#Lv#i-HapPw5*fPwLY{QxLwSq!BDt_tFmRK4QjDNR+;->0p?UKr-^@qWPmU6*{Hsq0(>6KewiH^a_H$4H9LS9Nqban7D=i4z=^d7c z@%O|fPw6p`S-6X+B_+}>*%lhxgck>Q)^{I9BU$436zB`b6xD7&Hj-29bI9jmuU80kTXEl_(zZjD~3K`Rb?OT)sEy)UceC6Ec* zF)kA|K(`@mZ{B9Bd)Z>qCuldJ&|4D6Z2_;4FR$BMU-W(TjLMDHan9^knBHN8HMrVH zKh8WR#XM~7%Ow6Hp2r5P3>}9zxuN{G(K-#ZY4gr2*0 z3*(KSe@JPMcvVVgtiU&*{e^hClh@^&w%Oe%`F0CxRaoC+aL5i`74J|@MX&M)n80IV z{9Vw)to^@dE323wwrw`x=~iyc)dYwqRLo*LVAAf zH7_Fm&69oB0+qc0o5gxm*!(UrJeGOk(`C{KYX4^y1Wrp7B>Q8}xth96i=6GHT0bd< z>2(Q&B*7&Xn@Gey4MPuD?1C0De=NM>4^?@-p>?`u9BiN-koPG`wxrTZ((>iXg3&@s z>C`!^Uha7@wx$)U^wW!bGT|*bNFoX zM3GZOyT>WTwd2LoCf1MVWb$LVk;t)jaluJr<+?UG&Xa}Wmu#pSfoy08AQyr8 zPeA@I8QfsW;)idtL7yoBr%wsS}d zJoG9%@gAo7LpFJ74F zzFm&C49OIubynci?T}}lEz9+D%zj&Xxl*glBlw6&HO8?K^G=>)Q5Abz3b*u*Q*(EN zK3kdAl9mIB^^|gKw~3OUg#hgbz&7t}71%1CV)p}>6tJvaGJ<0;Nvvo%fs<7N-8^Vu zAeCtC52E5_u28fQUkyOy+12-W>A<*T#4)&&nW(8=!FbQkw)*H~Wg0J2wNg<98ej>G z0p<-BsNqzFxmerWwWtn6){yGju`4Tx;~B=G3l1Wri`C|0by>bWJkUrB9*=3Ns$~0A z0U|*>4yIi)U1G!@tn;rlSv`WhuLu7hp58JjuBPi6CLsg~5;V9w4DK4--Q8t?!Cgae zf-|_o;O-J6xVw9Bch`J#-OpEV)%kbooa)}Yd-c}UrlrqPnBTSadOL6(_+hjy+ifUZ zuZ*Q@3Zu2a(u4{!tOB1~2rN`a8w~nMp5-2_Vl1$~}*Px8&+; zHiY%)#P#8DiS0)fD79$*Pyv-BnTr_Ox%Ky-KLe9Pb~PrduJ@8CMLhOnws&$q0XTl) z@7p4V=?i?pxLv>CBAGb77jBLgwa-k0eq9QaS@L~9lw@rx0$#Q$DvrGJq1W5#`xH%}DSkNwqH7C*c2sDKPm5GX(U>g4aP2TQ{7H zJ#H;wi8JZXSLXG*2(q+3Ac;OQU&bDkjV}P48Or)-C1lST>+(35Ny1~PN4=V66u1n- z@&P0MHpIDsKJA=iFFkhu>V{-_AHGb6-8jN^IpBw{bDwFJYeMn+zB1&$ry3wwKCEPO zjnPSDyVaHc=yG9%I%gVSLmIut|Mq*IQjm6QP?kkda;%*o{U$K!lNV1T^!OH)IB8qj zq``0;PqcWN-p<4PKAoLkpc*rsoo=fVfx<<2n-BPlQpUZ4FBQk+*6^Q_$y`HL@H91! zv}O7(84F6L@7ILUR_ytR`I5gc&wgJQpzup9fDRp8a|ilwk5nC*zK*d5?{{4lTm<8I z9*{)hCz8i>vIxE#z>bvbF;ja%PoG|u^;e}{_c*mg$LWW3H17JP_YF?;HWa#eNy`{g z*8+YOQV4jVk$gyA_jP#>`!1fd`5FaccPsKY_u;`5rryJ zU%ge_d9NKW?r-p(0SNZ?b8wB$Un2%o#a~Y9Db*7BElpaPsXjYrotc`8bJ<+I$L2$&b1|IO=!~F zL~KV+3C+&SI&>~v6f009l4tWPo`!IV8O+6+)nA;u{@)Ll*AneF0T_zjLl#}IhxIwh zzj2ruK0pBuU+CUHHz)S=eE6$9c{u6P358$nVNBt!I*|<}BCZjL#79_JY4F}73l_mHHNed}r!~iJ8A)$H)wFVRel7`2MgC`vw2M_nra8Q!mZW#m_`EKEfBXS8v&p z6i3qmP!m-I9p(e<$B&;sBYgS<{~tTwetT?LDjoP|x~tFnnxV0>OJ z1-s}phjaHO4yTx^n&}p$G4}r~)sO#Ysa_>A#cjn781)qG2+!h?U~1c_58q&&oQzTW z3coh?{DVQl>1W_{#&+yiqjc9hr8&7N1jzB0%mM)O!K9W7I)I;>Sfr0J?^I?S@yb{7 z;Z-;mD5OGeNIUp89BG>VtvT+$;CS0A+sh6jsbt4d+|};#Wmf!PK_(d_l2X#1?h_YQ z-~7$goZN)g-d%goYdW}+;>$Ie*VZPp*lrvs6zWs|V&qm9%+(dKV&gk7kZB3%@1*6E z4!IN)>XpstjNP$x{L&V09+)H>Fr((6Dx5Hzwf`;qqkV;+SEC53lfN7u%qhOP2t%`= z!iK}*)@XmR2TpN<_KsJzm^{c4<1YOHw7#}aB<(=8NRZCkfq{L#_ufqKjq369vnWPz zaIptol$k9Vyws7PIAfl!%%-NDR%>aF@J5CcgS4umSxDF9p)xpcn;-6boDMk53m={} z=L7lGXW@MwI^2BBs?hXLi3^k{cdq^D`TL?6$QG5GKg&OaYcM3kgOS!^)c@Q7) z$}8sJo6@2jGL5s)`!BPVLj~p~{&@f`Ub&lot(`kR`at}%`s&(IKx#*3h(iUl#T-SU z0Kb%n=8kv72jOrZ{j!7b!tv9C{A{tR4>V-j&J(1yMYXG1BoQXJwm<9EDm$#N4Pt6` ztSB_)<=5KN<7)%_4+zSy)h^zXKKe{$qc+$qJKOktSa_$X=94uY)El|Rx+!z(*>28} z#PZPrN$=ISw{B4AO=pBPj#POJtIe{u z&?zo7WuXy6phEeWdNNk;2+&ZfrEz0-b$*GrI7yFL#j3c*S&ONORnr587fm7Z^0&{6 zFT5Yew*GfrRO34*fh@ma-_S`#^Z+fVX=sVhxn@luq;lT3A5Nzh(06_^M>M_NS@R0aOChJyLr0sKtQ*eX#zNkT^U@SV_HU5u`r9p~-lid+mnAyA zmncCXJ7mB5qsNRY1{-m~?|~y0eTQXni}gP(!iZBll9gJP_9#G#fYe*li~j^-$L_xn zh$FJP>xVo1h6{8^JKkz;Y#MmW;EPn29-BYF&Z}67Xt*gh)Ei}R-1qsdJa00nH7UH> z5{>6fgu=y@-t=7@cNj=QqPl5vD{~^1e6=B(e#vJyJxSUO&I%Vhe%HP{snnIwAl|Rbjfk_^p%d5ZmyfyPj~~NUsB8!;CQY z`EI7&m*^X8CR=oZ1p(;Ra#Fiy7xy3WZz#kjob>a5W%z>dZq#gqrWd$$abA}tyJxX#&dAUXi$-M^%trA^>EuT{_Ui(91KS!FTh z4JW~uKam`T4AO73^09>0gAVit{dYceij{hkDh#Tqrl~Fa9K?8$9VV_k+41muFRBTu z&VsfI2@?H&SrG)|-+QOX(NGgw(_v8NP5^va-!Kr$2QWos+;QHG8Ua-B6kVkbl9^4j zW032P8X&G#cr;nO_yv?f{+e5mKy3-v* zZ)qn!NF6KV|^S{<+S}lf9E88&khvn#QO0K4fAPs>v zP97&nGzHolgYXMkzyW<)?V-pZ|1309?9^QwRMwaSOHo&)nbd@_;3JM)Dc2JjH#np< z8#@chxF(HVpZj$^n;DUz`QJDrW_AByK*G8fj#Z!&ima}UXRoA&3NYVr%<(H7L@!53 zM`L1kcB?Rifn4CI9UIGYjXE*ttiV4&_%$yCWOnNZY!|e3a1pyuU|W@$29cs!={`=m zuUraruFF$zBu&%AaYlSAc6GgTtgJ4OTC8wSy5Dhd$2musRUCwqj@tG3VvihtD+RuF z19Ie}=+y>AoQ~qfnC9zK$SWq&Pqq#yyAsQTpH2mkfr&anGZ zocUr~9|@|$lEc8J^d_Ea;t`2P@WraMMZ=?%pPwT)$n!<$g)bG*z7Nn(e6u<3;GHOc zA1pO)N}K(t6b#~kF7!bt3*MUEYOTLyk*GI8VR7iD9COP^!zwR+lj&V?Eu$sxoKA(T zWCs11+l6DBK6dj#yUJf3i@{8kCU)wIsa=Uk0zYr5v(t(&*l=y96Wee*(6KS(u<$`} zb0J$ZG5C&U{&!w4oLEC;XKtHrY71v>$Gc<|*TG-Ga#uGBIe)g>6-~*?)DEQK)*yVy?0E_o}AiTWeURWtU1=5~(*CBStdT+g=%rDO zHIS4*d|H0=J*dHrRiX>hJF65y;IpKhoqTDL*Dzm?(i{XG^#~#c{=1%_%eReioy!Y#(sjqS1b7DxB&a9(Z{SHCtz}!ltI#*0PaK?;qSqB>p zPg-&qai+vGa+AjSS|Hl=(PZf;A$IoueBk*+GwALU++I2vx>)||JNR|KqmxZ~vp+gB3Ihfbtdb<``!C)=$ zxlWjGpllix`t}cIc4}1C?N9Ip=Vvz40WrF3LfJi*&1hp^TcIl;5*~gZPS8h5;3d%- z6MjcH({a`%!y)jC>PCY@u6Zl@)WPnH4*Dg%?c{GpstRfK#X2j{x4l^Ff^>ZZPNGap}?fkODM6nHeqdJEJ%9EY}* zJxS44(L8W&98C!3iISxxvy(Q#m-zG#Mz%|z&$ZGrMvrZDIym3P_yqON(LAuTaP#cS zS8nWu-jYLSnF!BELGHIg(o+?Q7^u`{T6$Geo*`LD{>lHp^I&u1v~o>%x3*<2wQ9hz z;czJC8-j3o%V9u^6L&#Y|IR-cGlkqr5sHa?He3@FG_oUaJ4<2KKSCVu^i7Sex`xL- z1T=5dov!Ds+0_UiQzFhI|G}u8X|{6z`n7`Sy0;I6Sd-ESyhNl(#|`c<745KZMaD*y zdI0NUw=3=d3$2)IQ`WvVv!>Awie@%Xms)!K-#%X(_Iu&CtU`ksBGXq}0JLK(jxGmG z7v6E#e=tk)xeaNRrLzel6A;r!lt*?AnE_{wTJQ%|W)DPSZUs6Cz2{^fhDCTTJEgP| z<+RW#U|!tG8tW%oAFPV`A&p*a`S@kqnw(02jn24Kxka!2*zjT##f3_KJzmYK%#g=E zWV?uhN6)Dd)@VmN=aloE^VdHZyy~k8qsMXi{;yPxWo`)){CP#L+>StA!ejpQ0oB@l zcvQ%)b7@y!>xE!{!oXg)x9n2jfyz!JQO&9tDIX-TVZIkr^w+Y?j8`b>1T#Q`c;6jr^X zp#;aGzQ?B$s2|5X+XRXU6QWhPO$oiRI9pQ4&3i|QYy##-0=e{CQ3?F4YB>#a zqu^32?vxz;kM2nITUO@gyV)aNUg^9#()TOD2bxjb#5i&;4V~0GAWI*E>*6(?8GNO@6YADN})Ln~Tr9A42x20LRU?Ejd zDdyW{kD&ha1OI1Dxmfk0$qo;`&_1U}prlqFFDr`uN<&PG#>v8qY}X-fZXJhr+WJmo zT)~!R{S%#x7uo{e-H=7)ZG@L!OK2GDtbNVz@1NnDY{pyZ#3yc#E%d}?*qEv3Ge#!Q=0fP4jO2zk=qbUnCd}L|m*}$x^XXGga5PTKs`voDqKT_@ zlT#j}5%KutYr-QsL_Ac$k<$`hOAWmw-Txs|e6-Rt!1w4?&Dq1b!Ef&LNXg$U_|;bE zaaz8M&w7xc7}@(Hjuet@_H9t{V$q4nxAW>pN2;_dsQ6M5hg{xD2Q`l)lU)QS zzWsJ>;$$LT@h|9*L*hRIPzhQf_nTR->iTT(M+q9UV^{n95o!PjM}=X!_1YI<*ZMPBw4$aRHuf6>tAgt&i)0+Ul zkdDIjBiQa^!|cR=PlzQCLDuyNhVJr${XH}(jcE|D_l$&FbSOOcjO2i;kJ%0@zvJ+v z`=o|jw{{T@emRP`GI}lkaQhXtS33y#BL1t-;F&mj&BOE#KbbcQ4ZAW+FS^PM(|`8T zD0XnM$_HN5fJUCy`1{^d+^^w zOivO#;{36qfGnPIbUf<;r8$)p1nkf092>07<$VZ6wM4b!6BZXmg)EojjY0DRIO~)V z*4Ink!zzl$(Y`HGmpuNQ1o%Q(vD`Ursr?HN0$xSc%Er(n_+jwhnH$2xsNXg0{Pgo7 z<}&}osM!ZwP!?P&aK`ANeeNW)backcs2P@MkL6fj@~Wva5t9nsmNi0%A8JPbe^3#I zoK#A~ksc9l&-%d3dRFewVlpunpYQdgro?s3vC11OHcqxbYP$yIAu{Nc5xIPFOkVwe z>PLmDzjg<5u=tn$B*H>|9O1O!WwXclcPLO@!wZC!m^vBMui{oicn{h(HlPwQOr(EQ z7tli-xbdm0me^lPyOI@FURUHQnp3Xa2?Q0kHJ*c}`W}~`@42&qHj%3?4ZO8ex1VhS=iz-s!)gZ~S#ozQe z6(ghxu)8+@=w80I99A5?0Bp&<=+PIVt&?SC-fAABjez%)Gh@`-Gq z0*{{N)kbd+xmkLXT3Qif(}^nVBAjKF(bIvJyy9z4k6BG@HTF+S^J0n|Pe|r~FUJ4G zf9=)W8r6aY$@-bMwHjQRhlgsJZ#;n6BzjY_P@>XBSG%_TVi}aL%T4tDevMLE7kAr# zNOA1flhao@;GhC>5O=vL&T+dtYI6}VNHCJfUd`5dJLdb%>*zThO{;5kCU}WA$B+DE z_{nbHh8Wonl+gb6Gk+zopCmYNLoqzUX>R28Slwd4OM%(*e6Fq_Z3pT<7Ova5FOE|L z^#hJpv!5Q~0qj&cJt8IA%oDQjAMrK1Ow!yx-zZSmJ<@j~mm%;U|V0QE*+IEf%)dRLwAgq+t48NsGGbKGjtrHxo6 zAmXB!XtQA{b``a_zZd^ty7^y=%P}^ob#HYPp>#=S#m%()UTWwoCVVI~WPRHi)HSY6 zlAFSta|>LJ%{Yl?FX~Rqf3M&#nf}4h9qV8^=tmXVU+-O&oUyIISR;32>cB)ro64a_ zcE$~zk`$LZ`tW%GnD1j>i$Y}xiAmq#HunVen8>}+QCb_j8YRJV$-U8p-P`Lx)Z9EX z7MmBKMyI4$kB4{SC)TH`mk?C6uK^z~uCp7;(p~#T{N< zd{v{OKk2jBm`(U1YVT|S9Lc(pA!o5KDBk%HzynN*uyRhTPo%%7BGDpCH&&Sl3v4p# zSRwtS8v(29obT?yXo!3}Tmh`VWxrl0_ruV2;KU?i7$r#_`nf0T*;qDb;_`y3G+n!NjIv?G)7S zGSEH_&l^qO$n@hpXoP;gb?d0-up*BZAC`IVT>K_8-X_>xBosM@_W4fxEE7Fr73cDh zJQEMcty1>dC`#Wg`umuYM^DQnUTB9jThla- zrAB0w2B+iDSea=MHGSJ7hrAwU0JuI((W)i;QpR>{LvR> zA#a0w;^{K-{y_-EKrH2l6QwCAl7ucdl+MqO zo+P8+ZwM+2hHj`aBLkQnLccLYuFuaF zK-)odDPB>oU_;--;&8Ag%}3B3^=WLZ#0E*9vgn`^Q8NWW-f!RDpgOcXuyeArpy-ZN zqAX2#TdE*EO-h?ZzHk~|*{KWt+kl$C^h|f>`6yOOs#_A}O8Vn>`(sv>Gu_c;g4>KE zH$EU3GtHBid-zEt~!S2u!IHi71^{nAi=kq8c6>||iu!Psuo@b$^BcVQmG-^KbKE9Qc` zvh6T=CxHP&g!^mxNOEniO+~B<>u$ucGuFIQShJ-QXfM~foHymY#kMGW7d9R^sp78_ z2ts<1>z#8TT`?{!{#5RrKDvr6Ye}8#x>Aq*mdN=o{nD4&D@ZT$mAiDl6n4%7kp(YD zI?45UBkwvgNZCn^i9{pGH(v&SAKh>bboDUkmzgT(9hzkKRkyX$0pUKf(Q1U2`>A-o zQS#&YuhJwb78B-?4;a5+f);(g{H8Q4B&9TmG3(%CCMJ|h93XaTSD^Uxe%9Tu9XxD+ zoiu7Lm#+K#T^9>03F#-t4mK;xUr+;5sU$WtwR&Im9dFa8hD5mj%(ev1RJmpaBO8yj z_}YUHP55F!{I9g!w0X*|xbz!BV^^<|c4z2XiJdHpUk-;C%P<+B)_UHVt(7>{0vIbK zvQSKs+Rdm3B6EvT)tBQjG->0Epx!b3!Di;U4kbwb+rEKX6$3rkn4jBK1zN3SH|-Z7 zyRzX?BT=J2uDwA zoHL22HcYAV75h5Ed+~^y>5)D~RDATSbAIGDl4up#1fgbs*ZK1uM-Q=NVPv=Sen)%x za@E{@|L$&Ee5qmSNpQn+)LhM-rek8wzzg-6^iGrK&%dkL`U!bVgrVVH->x#Z;U7=`hPZ5)_ep~FbyhAkI zuvchI4;fqH9;3o8{G5kn!F1Hi-0g2E)peNej&!|UYheA32v$;SRfVmSiIAfhK#p|= z)7NKxp1U$pExqSGZK%cL!ml`HFv+V#WZ^ z^_7mArRvXd%0HMpTrC|x`8PA9BjLF~T(wy%iwiI(Gkvq>YSiX@FUZC}Bk_h$Ik=$V zjYsNqaWSyFYZhAd#7bStaQ5P_05c2f(5u&YWtfjyl0M+54NtaB?e|fd!RoSp5+;l6 z+$+N^{=%qd2{h0TJ4*Dt+-}cixrvk~f2!|u6Hr4;ZsVS1d-~Yn>h&iz(T^$jc)B@A z)ehhIqW-K@Y~BI+K?K8@iMLdd{#FFJwA4`{CA^f#62afwV)Y-4=Ihj*gidSqtZt$= z|IREw~qHE$X7ZyLE;=SyN?!~Gqoo|w(AMp|83>{JPzDn+2;+F z!pwrBkStCID9sYO><`io+Y$7wX$OyzlrlXpdjLqpB=vGl?MW0x&?{MuXA+EZRcwhcbCUg$*}{Cu++Xs~;Bd#7Z*hYk_cz7@^I3HQiB3<5 zY)}Z>g=56xQ;96U(kwb(rJ~_IlBakACrhS++w~c;t0^NZC@uPdywz3Ti7l39acXN$ zvZFs=7qp*nfJ3Kw|&6SF30Ia@DyZJ#0S+%=4(s18*h@;n0)xWsrj~ZvQ zZqmd`wR8$n7s%L}jxf9}t7YUadUi`qcgeithhIeJ_JU^qeXUv$hUOu#q?Yz78GCO=53I8B-!ymfe z`Q64sL$s0kq*pC$Ucm&MA-hf@py2irq`o`hevJVgz;`wj2EJgth@hXs?n^^~2yNUt zpE%0(%yMSDNjYXPf@#QAX+JyeEyqbbYE(C|#g1{SQMfT@CF78-l{t)wT2dK`RhE;- z+5Rc5!=`gqPbp&i7KYxDKIULo=z@ucpJfHsOi2fvb zf8BZ8ALDN_v8C8rX5e}nK^cJSlj56c&=g*?!%!~Nqf8)gqR1lLhyK=P^pyXNZFg0I z7Vm3~%re|VjWQ#s1K}%E=1G8?^)p9KzgDt|s@+eLHh>YDMmziZCt2yvtJhsp&%yOw zD!s>%q&*xa0|NZmGvu60ab1g;g@Rd`5guV$RbOLrcY|S3D1Son1jcK9iCd$&DvIQG zF_Xp#JM}zgJgOJ2di$s>aLz(DbpM5dV~2iL%w&b*kHS8k(O2nEY!mO#yZgm@$5Hht%tEi?0k|S%i}4e`gPTb_2ql0f3MfQPj`o* zc@h6by|rjZYNJ#c5|e(e^nI+Z51DLQy5HQ9^ma^MYx|H~3c?OyAiunpKe(#=W)B9F zL4khL+2gy$RGNPGegPb7=b8ldl@wwMcK?!T{ex&&`iQSQ-)Yor|1No{=%4%oUlR!h z+GkCfS|e?HXAKR}TcFIG2Y2a_YgML(xvD!ZLu(?UAMyAYwg@J-kVzY`z2s~S(q2FD zia`BAza?3UcV`RH-7alVibn;u?4v3SEGZ${D%;Q>#~EW3_$-oo>TidZXa&_}UDcl- zRs_JWlfeN0@u00<*frbT9Y)p=OZv9@%A<59(DaYQ<7i93CN(v&=1c)%>TfAuqxW?h zIDW-cBi62{%zYeE%lon^tl=q`Pzu4v&O!OMG*4T4EM0rfQlJPW3fL%;0|1Wg8YJ)K1cW6iTJ)yAbp#n zs%+;73|=#JR?eVc`xjlEW;Qb;>`g%Tb^k zJaRZXK%UWnY9v9<%5 zpT0}I`Zq$|HKKb1pzqAJSe zlbj;aWzWA6I|1@|)eF9psV)-C{Eq9CL~^$c5x5>%(b+l@Rla(N&7tkwc$B2&$T zq<=s%-6a(|Xwv#>w}_OfN|M&`X|t;DRA~lDomNuW)X=2$GkAMNHgc_(vsm$T?6?cA zF0Wb2SM97+sb|JFzrH?Jc&c%UuXYQ_LC5*YI+TXth|c?Rt~Letv_8MY3l8ZdjB3%W zZer#)M=z$#(20p&VmZE{y7YfRouKvZ<#P*3{h3}YO$T<17!|V$@v`#Z5syMQKe~tw z47((2(lf5daFDrj`*zBv62go6OxxGMB+D<1)Ym#RkthTX+kEoymV>J#3$;JE5D=wd zkbj6kxpq28-}We!_9JL8%D`L%hI7j;y2)Cr)bM4?-HP)f@}mzG3j=z!!urD=y#3z1 z-9cATw(P?=3fvODGS8}C;2D2|kGc9y_HHs&E<)4yxiHtetGZkq!l*{qDN$+iU3v$w zU2-(=Gq$xv-&?|pv$?o3Fefwvv3JH4_}|2PxbHUV>8F%rW2NNjK{w*Nzzzg?fvs1W z#A||jjB+>r*AZsrbDJI_oRyymCJ_UV)uar# zYkzQR9#6Tv#QU1UbUROlwf!b+Z3L%!{io+*X1j~&_M%$XdFhs=`jwBZO`NOM0R^Uw z(Vs-ktu!$Omg>5qIM22K4{LIuCi+4K@lWjP!*zZbN|jGh4F6!1*O9nJW%!4UybEB! zBW!+1obP6{C?lgynkPjO(xK+E7jx-J&?UT2O^DL4R0ehxO>L>%h<)q*xsi8(#hMq@tw9Fsd&o(MsiSze+uQr&o)`nKllqTgB6NC1hPsybE^9z`5fe}5$ z`SB%M!kc^grP&uv+(8XNO)+<#9-dj6CC#S+>CZ4rpusa=z9#yMEM0)ShT|}sjb!y#a zBkZo#8vj!I*v7uPHEaJBt6`s!$eZWi)&7G?-tl8%KKO&%UONyK-yaoU;PQoi6i1>Ma~j7P8`;%a zKXaj`XmW!3+&LCoWDcc?1Z5@(LPw89dK9w$CHZHmT@?pgV|{_6ER#t;OQQ0!Mvy>G z$^jX}sj$8oG7STxiCfmNea6n_Z$+Xaw*H@-l7>VYDXa|x$huB$TI5sxl8UlwKXgYU zw8Em~7}LpiI+&|Z6p_wD1|$eac58;J!$y$Q5h!SRw;Wb#@^*ePsN_nQva<6z^KEr3 z7dVRtAhk0n?)_xjK6c*6Nv#`d*gm8vPN2`0$+S%Bv`}A7{+I~H4~HI;kxMl8*@$T= z1(@v@8k4^!uo<{U(%tY>U0Nw74GygPTUJmAGx%rRf#>T9N|%^z^4b(kTt69#S?b2@ z^RNh$RFVO^-b5@XG?#017h&eZO**SwB=??rV=F9!=j%#%=pAGEPlf(xyH{Fw6NNeO z4-QlYS1QF=X&jk|l1Fbl!1JQh-1m?EI?OVpwBXqiVr}xC3g# z>?H^M0q?fHCQp87tcErI?VO_u94S!TF2m-g^Sw>((y8q9nyYWWSM{k?tIjbrab4CU zOPNl%q`bG6_5UfP6Y`mF)QpMmCt!34%&NY-hv$!w(8FZ~4&F*+ z#;RWj&Df08{%~Uu2c$?GPg&=Y)LW+LM5zBwJSjMeFqm#t*ch{LijN=9Vo`-wgo})y z2ON2BTN>Qkl^RS32rfgN#gngn6wp;CEmv-JbL|ADMQ|RwKcSnU`QA?Yd2MIK?WRZ9ovZuOoak$O zQVRq|;Wo3EO#DMlakTdP(bqj%P{YNaEa8= zPU7dhe0w&Rx0=gf{5c1Y42ibwD!NI ze9eWFsG~znX$CLbCCxL6Ibz#t%5u?P=Dkq*$C`dn7bg0KxP*fHvU_j(c($=M@ow#) zAugEs;JxA>suht~EMaiJOh)c;#fG+9;_|{fc|91LxthAM2y0bR64hK+lpv;qd}=MN z@LC!pglIpuY5u{;^;weJ+hNI&-u<59BV(-l5jsT+E+$0};JL@c1yIj3lwplZoz@j! zPJuLMF?`S_LyIyrNHT7%5Ao$;JWCt(8Mb5@HSs=evB+8V{tol6h!3*Ubij^peA`;=%J)mmc8G_u-3nh3EK9Q%EbVE`l1gUpu&`Q+E zLr%ttJ{Z%A61quyrJ%ruPkB4#xZB*NZwYkL-h{#0(=8enJ=RZ`JM}k}jn*D6AK^c5 zo#YAAr-Z!ikeQCMrM8=ZIkKb`c7Chaspv`ni8aQV%JRmDM6}*RuxAsBuiY3ef*u=F>zcozDJFj6wnw+ zM?)4O=(N6}ajMTFC?#$<|HRFo^w*f$TcsFUZp4DDq%_LbBzD88ie($(&5dM5rCc!i zF_OqJkMxC!^*9CFJC6{kw4X!!wwrT<2G+eTewqa9aWbr!);Ei*rH=^6tIBFqNijfk zI@PXY<4l{qc21dsUw2Pu${G)+;!C8?S|K_K+C+Tw;r{k5#)geogmGX@)kgKy+#xno zi~~VoTJ=`0(H1F{=1HF1hi}Dk(r)8dXUGN2h9z`PKC}3El8POUIN%GmXG85L+t}aD zz7G}GXDZiQ6=WP1|6rsy!33Gl9iNuFOSh{}!r5*T4!!D+D@43^1XWIngsHrGAh5B+ z8e09|z@@7=>s}MZ@&OAp0of&WC-Qe?P;gS|d`uU)jAE{9z2e+8n^}9Z@TCmDO`)hW z`v)^-qTlSDi5^D5#bua-d+UrTe!CHiOBWBe(Yquns_YP??kYK z{(yfl=sU}BJMmrFfWAOk`k|z>`{{@I0&P7UZ}CH{`a9O1J5F&iyf?a z;Qzo*&w3+u=DI&ice|3iQ?PJv?|44iSz%M#7@GY0Oqi4^aS}}*EOiQOeC9@5AHLHV zKba&-_ndBuQ!nv$JLezmT%JZyssQmc@G9~d*Ex^2K^HH3>F}tIX?H7d*YtIE7zity zC$FEYb`JO#!1tcD)%5A5$2aulEd>q7u)Q8l|HtE4FG$Ed4P@miFimJ zGSg#~fggZnOT@eI#Luxxp~972@|NQ=_1CVfisv`;K$)n>b}^#%=nD%rCR^B*ZYP1N ze`|^q!``n?7Q5-GYTtwsnQyvKgq%9%+nSR-3pBf-;>ToKth@W4_%UWaSMsKu@tUio z#1_KNX)R!!$kFPes6sNt$z@L%Ioacx2{888rMNq@(quLA8de(JL~QoCsPqmpG=1~m zY@80XAS?13d!Gj?iV&;`oD-v*aCEa+sgF3|Mtf_PcT#U9;OYK1mdSQrEmw{h*6W|^ z_czR^an5IarcVtHc1K?SA7gI;701$b4bR~24#C|$KybI<7I(H3AJXxG@kBpeoXZEeR(%nGV1Y6D(Kw;*ZtmV`x&-;9mQ{yGh?TciQe0 z9ojhgmxfe|V!~glxeZZm8{HVHuOym8%#f2?;fCt-kqzOACu3-zob*pPmRGBszLcd2 zqm^whBY?Qri#oNOZOXM*VnqxKlSTLhqZi$=dyz=-Pr34NeQRgXF5cf zhlz_M+3ElkQ4FtY@=+DXH+kJ5O*vd1qj<+u=6$-ugjiq76#g=KQH9{4Tx;Wv9*L zy&WDq2@{M)PA%)3$kiCG_X?I{s&VSkSI#D=9*IHz*=81wEn=WSrR$WN<7ME1ThZBD z>F#(R;?ujwRWkn>KRA` zRnoxtJx>CS^?od_>fXp;*4_|Il~cIXg#4L~8GH2F-n;4d&U(2}LRG^0O(w&2hyBm= z6mSv^8HlZ>Kk_^3j*%79FmE;|GrXCuLEF7}<4)xD5kbU)@_mY;^ObPmJ!==tFV)+;)0cUA=N-iPT{nd31_Uw!%tCeck+OzY?7d%p220 zb8eMH#`TS{_U5worq{{o9JaEaYTJOGwn9e4ruW=BM|cG3)r3$IYL;+&%2M1Gi*~mS zIH2zUX#l`jBw-)fEiHSb0t-KtG@3d^sp}4f0Wk?Ot_ZFsBgJ)#=fktsoNlKs4Ygt+ zArnpn)fN%f;eob}n(_J5_s~E-52FXmEv`ycaN^G-Ov|*xb;)O+)Dxk|Kg(F|4!N8% zEu>@E+QHv07<+JQUpw+l@TqDTX<5~+XhD3P9>QA0B19w&iElgos&k;4?ulX51ehzq}3Dxb%Ozg4U8*$fGXbEV{$$y~I&UQW8WiLVWo--r%{QYhzL zVfHz%Pm?gQ?3se~B$dw?3ks)`q?rpDB^inq=^|YaQ9ZilWO*uBh8GM3oMGI@O}O%G z8(@Tml~@6+jxwXJqZP6u!pXN-AY0UEwPmM#rZNLF};?wM_cr9DS_St(q>u-Y&`y*;?r0w zBRr1e4hp;^Y}mrz4ewzt(07KAis48N>;n7S@YNDmGb_Yp62b177wBHWEAe`{zaZB# z*3n?W7{46s?{Y83D$$0(GA(6bd`-SaXBjjiucoE1%KQm*{^wL$@ErT1Xyr^g?>wmw zd($16!6gzGzXb)B>nNMaDiXF|b=Oa!K{_p2|GCPTsm}bp^Cj8>dXh9dN+F}LZ@%73iITXCU3(!OR$hQi?R@U&fRL+CS*gu{7r@8O+H1NYJ*YG8d4hBtS&&cz91gb znJG_JHA8+jfHYouSnlLlb}hD<4kXyxQmW5XPsx<5E6}4ed{ZT-LozV7sJ-F6Xf4%T zp8bOUcoQKm$f)z3^7C8vJotARWRS_db{?wl`9HZ9J+IEm*HYrJLY0y-DbP~0Q9Rg6 zEwQ1sgSHriv7Z;QBO_56ivEl^Hfod&yO*P-c36u);Pl zb{O;!f08^uq!Lc#WR?Nyj=78&op#Fh6suY<7MMiKdYjJaJ_z%bS;bpr#*wX=*eCo1 zYaR>qT7$%luzeJ;>}_CVx#M?sBYvm|JFO z@sf_=$u95NOm!I@pATMQVp1;G~CaxNmSEQ-@7Ea zjxm`^`AkwaTUK-qV zS13z@-aFA&A>q2_e?!;*rF3ObRIOu@@0g!#;OLH7K+OG3O9-gMJb6=D{>8UN~dA6UL$@ zf?SELVO`)849BQjG0g1 z1iE{K3)vW6uX#<|Z`=bHNRm=ArWmRI-AX0oVpQYHO}YFAT%HYe0IWS*VUT8<{7||t zZJowR5ZHl4i}8LmhJjs4z6wM6iX@sqIgEiYcar1AgS^R>MiyxHviN&-(hyaV&x<8O zXPX;>H0j!H@mnc|<#J!j$h@y@4=mM6vnuRx8}T>+2^#`2q}eiR5tlPHHj&B4-Lu`@ z3^8B@5#wc;0sM7d0-;J2t3?4mUT^YZ%baaE)r*ilVEFVbtxiaj5Pi*Jbcz&^j}|eT3$)Dbtv6)ZEJpn*Q_P^%3uo91f4Zw4yGhP`;3nDAb1j+&&IM!oI&( zNWkrKUOJQ}%Oy66ajr-AqQS;sUfV(nmXFD)9TF)xF(ljQBg!H!+Gk(MZ~ z$3`g&mL9N5q11HLN{Vw~QFG-J)%;)rWGfn3z0s%!gz%&mc_#jdMW2`WAO>T#Y-n!trpGg-RbWuwctlrjEtm z>N#vR9Xa$Va-71y=s01JN71_}jDx#}&mN4Fgfs$|yxfiuEFch&p|-z?mhjdR zQhUm8!hf84+YA*FzeaBXgszN7w0ddsbqagb5=WOzKC z<%V&O#fX~>+umya*T76V?{Luw%zG_W>EX?{4tS^p{{VzSBM+}3>n4@W>lNClacys< z?lB57ytH?Di&#@P zoxqnVPx!?rq9f(BzCP?MBgCP4F2o9#{N$+Wv#jgnM`*NoQr(QTOrl8D6zL@%WHA5N zxrDU$T%WFE38h^WLw38Q(JW4Dpzx@``;O|BuA!xw*2D3d!A7RuER-4RKbNqu4w$v8 zTW@e!NS9_|zV%Aj{a`_2;1k2V@9xFeYPxn*?;v9DrC!gP2{mQZsg_`cGnP1{9(~d? zh1F-|BbGM+YcLj0@cAJw*!~P2YRSsv*cD&un?7X>SW2@o>%`%3|%~qU#bgqRg{b@H8u@Gl4$+p_~+~T}79cp9GlP>?X37vW*3IHpxRM*@4h| z3?i)kBc(mxr^y)wqBpE!5hySh5#;;U5fkwbtm)l$XY1@L_;*k>3#S$hTrGwP z_GX9hf*t{{B6v*~+a2bT$5m`tGmuaZbhGH#&vWB(qy#PQ&z|uv3~PEUct;{FC)nS! z`B0EEUl&91&_JZRtdB%0ZfLB{|I|;v%+`U zPTW?0x-U?wC@Fm?N9>_dM(RRvZj!ukrlzvGmwe#9MNM^d*%{?Q)ggPUsu_|N-q?uY zh7rM(d0?wUXU%nlgzHM*X&5@l7Si7CF?-H!Vthk2uS02~AzS}Q(#d}T>#0G6$-3lA zpG`g)$kuaJ5c|5_dh2EOy1iUPu5wV21DA)Go$}XZD6;;O=7A$Fa@Ufn$b{=cLxCcs z8T`&-)Y$RD8*pj}dg*RF&kkDAM4Sn<;Z!)y} z5R&FBQanN3rC9|tMsmZF3}86Xhk9NkEaiy~zD34*7WE4B_UGpaR~$jHbd>kr#clXz zGu`!$I=dMQ2HN1=tt(xnHM=9Ja}iE8bp^*;m^N4FDI2HtH(GOGr`i7O7)+L zTqFlLE;3e^T_Z(}nxB94$ob?#@tg*({rmTs3cwWN%lz;%PPn+iP#gv|@%`4t92=oH z&C%COw`Z@*ND=h>6)ff94T7SC`8qT}^QU?_FfErfev@v_PXAVC`#Lu_nHG(3L-~$;R44+~^{--gDmecSBFx7!VW?R@>&=ZQ6lx9-CTRP!ZIu2ZhrAe=5 zA{MVAV&cgtu3%$}a6X$50Y6Lp7ZX6XG@B{P);ryyP`!INfyEAK>u3hZD( z_&WRk`-)hfyI!wW#FD&Yb+l5(Tz}Sjhits~A+HAa z0q62xr>jDAc15<^JCa_IC6kGRGigM%dXb?dKASaQE{EB@wk+p^aJ7ZcG1b1`{O++O zZcqt}N7bznz--7LJ<9nC+cH!)fQqK1sv$koXT7YmJpd6m!5_@x{CU=w^(qk`;j@~(OUvjNjjzDH410}Iq(s{SjtK4Wz z$m^=f!A*{fZn&DdeC^pg(tTXpU9X&fXU(6cmbJd=g->13+dbEWVx_ftRW*pmVb>_k z#Vp=b`tGlp_Gq)Il9Z;yW>3>dUD(hKr8G;0T#ORW$c+( zSCMoiSDp-$6pUMSP!noIH7l0L5RK9v$z8ap1-NCNuT-`3j+u@BJPH4+_@VV1u%paIi-Z4n~ zwN0WgYHq3wn_7q}4jq~&&7D8kO^y<%_{=9b#D|>^9NvG~FFlPI0e~IQ-?ApWvUzMp z0SV-gljZJIS~9_Y3s1-%&>AY-#L1(On#((2yQ%cCp0F$aRXOPk=vZ{1v5%@RjxSYF zGd@LoO?SIzubdgd2~l(xS$hq&=wZ%!!dZ12%f*a!ToK1?l|;1~IxQ~wDJp6vf4G*1 zl4o`u)5~XOflGMyrDFou042`I6&qhjEIg~0%Tr6}#wOxc`JNL@J3O51+rR{yXi9~b z*`L?H!?E%5F?NRUMqAa$*GC0$$GHUXdE#JvLtm`^K3OWh^a@HZ%x}mMXSB#shVs*J zsY2N2gTRlYTIa3XcD^xiOb$?|&`ICj6)`c5wFi80uIfrIrmN0!&}4ZXJ)#_ab8@@| z(B+h-U|a>cg4;C0uyas}rw36EwCpiT~_ESm(HCUITGv#RW%LQk@tQ|e5?^Z99>B?Sjv za6iCV_Ui2WCN$#-I-m|-O-u0%+8SjK7|%(I?MbgEtCCVeP$_vN<)C@%Tqjo&^3#kj zx@)-fkz6*}GF&mQ7Cq-^Ud9-6Fb?Wp4pV4_zH-gPsS7$1*~%G27Mj!Je)kU`mnAUl zgBTeii+P4zVmjrf%AEZ3&_SJl0N|cNn#V)md{Jf1?qC`=FobDln%K>hT?lq~{F5o! z$L~kd-LesLrR3h(#Ik6j7p|<=*h=UiM!!;^I-%A@?$(aVBrJKuBYevy30dDIO`N{& z``toFgKcBv`SaX_uCtB30xEA-8n=3MVLt@;t1rcHixp&UKJ-f2zM*9@9g?m{$X4S$ z_`CVvBqKRUY%>>>PTe|<1N5!h!cIckGk~ssf_QGEU;PRAt)Jb!fkD3%dUux_d3-EAxTLyn`iOMrTGrM#m}nAJbHoip44}z zf*#XN?Q?%S6Ri#l8@lJc#U0ec{-I-9Z&&+>OD@2#3fG5x;29WH`Y|2W!m$Cg+H=sW z$1%uS0b@83uPGBnx23-UmCqW5UrYh8+6iXtyl)j*J}~-*`O_dcI6812EiApZU;lie zA1Dstmj&h>QgbD+l#d~QJLeXRngNT@E@4>8;c8P)jbBQOxMdi)UQbYchJxIH&^4~t zRZzHYujZAp9Mqonxp}}2$4a!an@)6(wm*t)g=CY zLy^1(anHM1973#}pp998YXl>D{UA;-(do@-kyXFCY=(t)94T|+XacTW=XNGU9HS1DR zMtBi?FCjZ-m(>jo{WmUc3uT%r00YG~H-2n7$Z&1gGn$3ptwy9^yEX2hJ|}dx+7~We zg*koej*_o*rrrLkYsCA~x;^Assi=wB+tW+c!gX9TZ<{Mq34A8O*;C;VfdF0wZ~X!m zoe~ZGf!sI(0R-bCE5W$($?X2d0B~OnV-7Fso~r6AL~~jD zSu32RxILDy)HVTB)Yab91J3|Kud{EqmY`&ziL+r~5Rki>wUO*UyrZREF}+l^o{U2V z2M*g#jR<3ysSp^-XV0&uOFCsQktT)}bEpwmPn~dzOY0o4uZj6XI2y0lENp}mWg&>J zx$dP&e%nH6QITzvPaaB#NO=WunbyVxTb~a4rOl*Wwgit+&op|*q);zr{7A)rCmEjV zA@~iHkY1-x!zea}pP=Gf6vP7K7^*1o&^go1^UT-&bU?8}fTuq}=JHz_^W^6}Nl zZ2tZ;359b&9VsB6F8lB-rEd53+X%3)=DuF4am&So_<`rMRUcvsYFyDw=-aBcRlZo# zgNKMU^mUY&6+31!&|(Z$XWgqrQt^NzN)=*Y#X#OW7h*;}>--1c%cLE;L&H44kx#4y ztJNoW+9(S1Z9LU0_k@8}+;a7UD~(gxS5hM(SEi=u2!DqMl@`=RRjH40o4#HwX$z>x zN)7?>!ZG;mc6PBFjc;dEoG;!1@5em&>$VrB3DAhh+gu(5P&M zUfUNfvtN8DQ3;q(Nm4-Pe0$;rlu9r21?mch3;j)@k{rOvGlO!=uJ*$@H%B$*o2&KH z;7n0&(iq^2141$p(+ppJKNJt*KFKMr%oXXDo+6>!l_28^Lu* zPk0*-z>5`kRiIg~2TdxisOROURBqi!HIoLfA+1Sa;Id0g6ny?TGyT0T_M! zQui?HTXMBUqj?_8f<}n(LF5|4MUO2yR_-?A9HTs$tzpi${K25lZ`(6h4?+}g{ zPah$RkGijILq66IyLd3#b`t1OuUBR@$~iG-k=hiJ(*s*DVlh4A0o)*Mj1YQQHKe9; zPBh%$A_2tF8pb{UwEhnuiUu`=h*39Riq;!3989NFm32pm;?+QR@VmWu%=2t~ClZ%z zO73PhQ%G%yZv~)VjJApxVpEEk^`z|Hg zqxiA?gn8VJA@%TE7x6zHk6x8^M^tV=;p!L{antVECd6O4bOM?t>~IbPYSlEiryR#t zT%7rcA+XNlZ$@DZYdw5kObB&sgWlMIKF=0SK0|2wk=t6@1kfWp-k4h@tVu*`q(1-U zbB(0xCt8Z`5s0h+0*bo0#>0y|J0n*ZpSne%al>Zg$~4v7UeL&d_5tw_tO||&^X?(O z19+~R*C*)O!ge_BDz8!w(H%v`(pBk{7Yw%#%K*tTX+Y9tH9`e`8sRwa+&I( z#H8=!D#i-|#b`Fwlgg{UNX*FwGp(YP$OU;;Q&hhA*0123owW+_2&HO*lhBCI581p% zy#*LZ8Tk8I3ss}&51bOj4G3UipM|rM!0d<+w|2%2CZr^INK%5yntKY-Wpq@o%{2=& zS2ruYj=7_$yx|syZkJe}k2h0Whe6zw4s#P^r{5eLHk)u_hoC3K4G0J`?A04{rv~*q zd5%8gBYD2(vU_Av)0iBYX$qSK8ZL*;WHz8vO3c@J>N=OVPafIDQvexn`&q*n&%5y6 z?>t#fjQm~Q+F}*m8+`XRCg;0;Hnev|52TqEkuCb>Y6G317dQAtK)x^>&EH~57#5M; z$B-!LC+j&sY%504uUbsipbT8SYU99nTGHMyvN6Jzk4FJh>rhQ!Vos$)f30$5v;Jan zXxXfRm2VNoURK2EnxRLT-7{Es@6JyMW3g_sqc&KrR4C^8ugbNE(a3i+k(m(W zhh*DT%hHewpI**p2<2?)WTh&KBWtjP9Ay_v%F8xlA&2h_UY5Pbo^|pHOrT;j*ckW_ zlojrqlRaHStcgiT9v!#)WuXuk)&KSm-l2le=N|wen=rlM_wuov_PSK3%KGE<4uY5V zo(W?Wd);g|guKRP=xYAGNfw-$Y7jDF@4RglgT<2|s0!FnjOyWxUwJJ)zgqNuZqbWk z*I6=QO{pE-CKO;l>Ysucn1RBZ1vJ3)d%>_a#@)G0lQ1((K_lq@bx&hNr&pFzkJolC z0NGI|Hy8V($!%pAasqy~z!vQY@sOk^QYNoq7JYKsdl>GULxz5;DPgMmN>hi)z5>De z$Oh1>*J#frAY2>P)C?Lv^ki&ym}7L41(TXfb0V&WC>!JvP1evA`AuXAgW(0bQ#=QD z`EUkn6vGKLJE*yzbcT16ex*lSlNnYB<~=wL_fr`N4t!BP^pQf&gOIpWKmB_-`6DIQl_0&mN9AbYl;#>GP--jUO!li{>;wowbsJKA=sZ(RwE6piI? z%!3i+-D9wG#M*IcxZq_zds1kfp$srO5y?j(4V*LeO1OU=sn?4_j;tx-K}R^Fy_Zf+ z&Fx1+)!16Z*`YNv4;6OXUhB;hEHvu0Gu9ikRRzaF;elT5L<+lUCeWq9kL2x}h2wnF zuQUHyd!lM}#~F?Ra&NPHr%#(^Ln;O#fGwwq8~KWe4V}WmiGO?|8(GUEKL8y%c+sAn_D-_4I+7#8URv-K77Fo3e-p1vis>2? zowSBL_lP5>m+Xz#{yV!Dxx#Pr+qT3m7J@j?Da&Ouk~eVd3=36E4+!3{fX!);o^uBxu&JnK=)#5n3EV`$~jqHjNa z@f!n!@~`Tv@8+3*Mp_uhWoffALS~LF{gGw#9);eZD-Or;93HWG@Ij8lCC`=MaLEJH zg(i+yV8a`-8Fc~?Kl*_`K?<^+Y=L%RH6yZ3gR8F_uXm6u?Zpsy7S5TA>rAc4Ac_KZ z9HRyY*Jer`oUYn+L4m#t`#g%}GE*6_KgOu-xE;^gf8#{4fsk%J{lXj)&jUB4spv>+ z_>18TM+{}YBl~kq-edh;oO4^w5=uxvYeon)HUw_Z_k=6iqu+NA4Fyx5LyddL^?u&I zl~0+#P4gqll`1z5D35bO=1Y&yxP+qXDjL@OO7v3Zqa3@PEcc9pOd$Tj3)?(O2!Nn9 z@ud#VKLDvEYDZL3<|x8G-f26-85ah^I+o7iB*rX%S7z6OvKsE>#t~|Ilw^s{W?a^p z*JKH8;eJe$t^B#Rv`3e(+j;|Ema%M48nc4|3%k))VE+MBRXLTwBs3P?S2~HVRQC$` zvz!|h)-xiVe3M9W_WxF_2whoHZXkva>8{{A6&FNMOs}$$(0ewF0ITX(e3Psv@I`G! zS!^;2KM+Zkop8tg_7#)BbFDJ<=rK8WLG4`*=9d;58zVhm6u3EI(gjLvO5{-FVrr^8 zJ1Leaf|EtZUs@J- zpr9R$fqHr8wVAVLOY<&?Ok4*DDW8K3nnA*PO#y`^&9^|V(m%$vC_z2>n=lNY0p#a$ z&8`T}szNTzD5g9!?OZB*vzabBzNCi+wH6+YZRYhE63;+<-}%01pdj&cn-fj53Qc>{ zX=$jMH5|pSir?|6Bkn`eKEC@XVPu&K`Y{6miaO(Uu`wU*s z{9iER!V%|6(>DX*VaghhFBJlUgk<~5^WTBGHT$2QVoB{44F*ISYK`~Zw7yW&)tb0b z0R3p6lBccXl2&Uhs=r>g+a#b}Kqw*`sfC8XCneZdt*pRuHRrdc5pZ_?@zc6pdtemj z;+hHnC^h0IV)_3Z0OsSmIHET6G`?BE}t_8ntP$Fotq7W8EDNfUB zLD-#-sH4KHwU(7g>ps6(lhvB9Fh*jK2x$znyQQwK1p^;O+@#*pw+HFHjYgJad;?&k}}m$_Jw!4k#>Ny3BP9`M1z?uuuE znx2zULOh4j0RJHk1s!F1zgmyqfF#ofXNskbJE9|_I3ZM;S$bJ^rCM3}PVYj1zGJCh zi^|b-v)(x`e`sS@hz_6V{iwvYcX5GnhIg;gPQsb)M}a!>hT8*uyX!Irhle`)o4MNF z31iUjm9Psm7Eyc4y^IHHU9KI@g?-8L7oG~dED(h9F41H-#`ALp5+7_YIjhMK7N`z@ z>L1F5AZxtw9zrt*H|;D#)De&mrz+5`jc>VJN_h`ZALIxv3!>*(-@S;wpd4gj!gcw$ zl|)+**!s%aGS5fsZZ<-Ns^(RT`6&j+P1am>h49@R<2$CW;_{mM2fm5X6yq8Y8+@}+ z^1_+>?6fOaGS>>>$T)1v!^66}$;qiQNV9|irpqyI3(g9A2UaB3QDo0O`H(4PQ9*Oh z>s8@b*7X+H!qPSr670j2A+4P&IJiLoi{3SPKRibkr*$vaYz!G3pB%9uaTQ{Zof%AT zNT?CPq(%HHqLrYOQ=%}JQ!b*EKU2a1`a8#sEWZ%ARGyqG$}5+@pKy9@rjWra-G!H6 z5U;#@#s?HkuDOV&T3U6c*2)8JrQFJ`Pkht2U9Z7cY&-3ByIyN^gNjprd$3+ji)sv; zkh*&)=wGw1c~uclCg8VM*H$j`$DePj_KsEzhaFKIf8ep}mc55!rh@zBuTuMZa6wmjsE!p zg6cB!!|93Fn|g1Sb`vglovzN^UeeQ75uH}$vhQ~cUpsM=R-zKeY&WN&_;I_)>qz;wVbA4bVq2u7eQP3 z?vUGe41+ApA=5X|bRZiCVf+f&L)1j7cxSh-nu08j=|lk)c8SGT%fkYPMicbDJ)RN8 z`mATir+`8@wVVx2)xzx@YV)S5(_L6=O!K*6$CYE}+~|?lNoaA$d?#nENXU_l`_=kl z-Bz7`_MW`^&Lgb{SGSpw%wvh)ba}`JvpGfYh-l7F#Kmc6t)dRy#5`!;F?y(c7k%0} zZ52}vr=5w6H0lUA>`UooB|%f)mOsS2>TY%54*RM+iJdrY#)rpEg4Tj;C9~k_98w(5 z$~;B*6(U?7viQRkYv~}-*XIF=Z3&!rG}09g1j0gLImn9fDlqCMy9xo46TiC}C zxK;NO5_--pgotIt%v&jq%}kk2ykE+c7kKYX#bX&R;=42$%bn05;ofct8Vxjf>LAVL zCDeX%c5O@6==oM5QZ5vL)A;s=lQ|Ue+BH1w^D|k`n~p+o>3O}7^i3UCDBJaF02*-{ z0h6Q~MT3CJngRvsi-HvJX=&R-84d`{$i6wkhiJI5{chGaAs}Hcygx@y)J2nzV1xDuir;m)SX4~CvFBS}+->)WxFXh&B}ag4YhY+Ra_l~BU` zl=0{D^TTIn1)B;EY1jr^8(>JUqiedy$7`}g_)5xH4Fw9KFTBv!tCmc@oac6(MCz*1 z?LX&Bg`Vp!7oQ`vj4}V1CmOHg6v8;03~Xo%&PnOG@0yHw;fqI{6*L{w{YxwGD`!8b=(*8-73uNab^FW7W7iNN zC&}{0W+_h3Zr5nPOWk%YW)?n3HQy-8W0XYi@G5btySf2PiI=|$=N#M`1P_#*XFc6# zI$RR$T=^0y)9mIuSANd7s8^#Hu%QT30+=YeQt@GFNh-HOVXPbor#c!8yeXv#$$z4SB!P4{s@8mRr_6fzb|_Y$;94yx#wD)^f98>*%B<%4|h%Wql_o^Wwc)(-cXw96u0lQ zRJZOa@|W+{d&--|>n%rY0UGqG9Wh;PR|K*6u%%gi@^Gg-A1pQ@-%X$G=DI;Q>YL_B z#5ta6-UUQfd4OK2kl}zly+jKd)QU0*9=LwP^kqfgIY)ejF;J~;!yACb$GD(>ekLkT zgnJ@{08h}0**_iSJ@*D*d)n-#t*5E&-BRgw1oCuP3w~}uAA)>E?Q)jbVdj?i_c!>Y z6N8*zD@7-LVX}1=#KGcKIAywgk;g|l+~uuJtJC2 zG%?>ycG>Q6;AAsZqrPUdQE(Hjl}A%Vpkic=uXIE5q3TQ&qM)ntU{7e4d5d?eguVA`{-q2t8w+CnB{f+l1Py+x^OoD%l#D3ZT z3iy(u!~g);QzgI({;U6s;2%q9#qWoJ_U?yAY5U(C_(fA zAOrw{t54*=YXp=9*7TH*fDCe=zQWUwE6@S_QLxB+pzTaVMta;@P*Ui4a{pl2Q3=LZe;F^opQ_N4hns)~c^v@2Pebr$2F{Zg`$d1Me>jMoUj)4D5rI`_ z0|0P-VAOt(>@hJuS;{B--v+4gONSVKL=caa7(rn4O9kLQ1(5&d{{d+K)}&9t;%5wq ze~6DC1QI@C^&i6jgN15QBklkIhewD(!AL0JG@yDRcq~}_|NCL^w*pUf_n2eB$JqUekdRb3{<&r001PYgrWWZ2>BNxfTkVKd1?n9H~HVB zeADrRz(NoMF!G53OUwZHKeqPYNKj$tf|$n)$PoV_8%PO0F=8MBvk(k%5D5Sv41jzL z{m;Y;+Dw=vVgTUZ)zI1u6b8jY7{Z`{gX468R;0@hbSNGE=jR_q0#Ggh=F8}vb z!iYfyp#VXQhQJKyc$D9P0{~P{=#l-Oge>zY!BBni`Kc z|GzfpG3Zw_1@=fl3E~CFOhW*Et`_8@rfdfw`oHCA@tF0L_7@--x5sVZ}-d`k0O+7q{dGz~2W3KUmVqn~3xG8C zREiK9|N9B*$8Y*8(SexY4+R1TNAS0T1AYej`geXH0l^3Y1$6l3gJ8|ie9eiU;7@me64*ifhro^YMEr zE+9heIXOA;zfxK;^S>ngj|`9skq!FKK_HG5LO~BkrJ#)T0f~u^8Q_R~(jfnsfU#JA zECKLX9e*TXQZKCkp;Ve>#YQKN$eq?>9xkd%6OCy4^!pe82LfGa{E@(a)*|HJ@^|JxV*U>V#{MN0`hh46*x!W&TB*PG^1nU- z+WGSS5+JidS5VP{e`${d^8YA*2wEtA5C8zwg2xd5rTidZ_WvRNlwghi%6lw27K6W} zAB2zjKg6F>{NH(xClbV}{|HAG{txkogy8pA7GwvA0_h*^|0d%96@K#{P1bLE^@Kuy za}YoV4XUI=1>Kzk!62RnRXz=?1OiY=SOkfgg%nYq##MqwRZboooUA>KsRRwZ6hHxu zskDHd@kPM_4L?a9fuc00gfs}n8d-TcFbzFj^->`rce)nu&fE(xTUBjaeio=Ulobc(xs|nrbcIn8V9- z-k{k1Y+G49E}Z@Ox%Y?ztO$A;6}i>+f4RvkbSLpubdlDauDuO z0C{mDC7+H7t2T+87D!7ra9i#eEdoQUU9L8_q9(E$z=C;&P1LTo&tG)!Ito8jW48MV zN(%CvB9FDMyHB^H+`0ubNQO>#Ywm0~-#QA}gGRJTAOR+hrGtpoW&!-sK5vkaxgK9!K9`zAs(RSSno4gfCYIFXFFQ^*mX|bHkzC3 zoz|^St$p}i|xm9}ucOjp;dOtg6XT(?t zN9(~)-*4hGkT%^hz>jt+z22BQ?)65VDR<@NfFADE!THAK(R$r}a=z&jddDG?UXBx} z9Sas1Lb8LB!{*+ua~D$iEk=I!j?asZex8^iLwL1w5|bV@Z3Xn)1Ia=%Xx=hqBw?*8 zq<6B|Js4R1wlO_MH|dDZBmHUNUpum)-obhdIl&3I;%d%0@AI~x)G0C@uDxENc62{c zQ(k$kx+CRaGODw^sq20&rVP<%oFFsCQ}K?oNH3ux8rv(13)2JTQ*#iexL9ekgj_6Q zf)*Qe#dHrXZ*PEz+@TTXxQZ`4Q0Rjyok_bmvy(p?mSQ3yKACFeb_aji z`D*1@r3fYPIMpkfz$tH3Cnq%s(|_i${OMif{;j6}whni?4zI=yP7%-dU( z(>Sa51sA#UdczQ|ygf+vhFSDOCWz+B38!+^>h`@akboe%GxsvTXm?YMNU%R{{fH;o*iF6t%wlsKTxKCIlK3X z0_!-?S$3DB*Vks))b&HM>(jWQE7vWMA;IP!`Z`;}JXq?Q?mv>Y!enbRzG!(((PO0| z39V|N=w_(x6$RvpS+|IWuZj8o!aA)lqhQgZ*xlC0pV46CQ#JDY?JUgBZCC@YGa=ED z&5kkxK0(vnv93g_ck*1B+MRw)W1}fhpBaiP6`*HiaEtZ^$izQXMAI(@n9+Wr0Q>yS zxNYb@SNkI};|p`P_eAu741wzV=*58zCYI2oPkxxW=FDl9nXF$WZlBd>GeEVve3#G& zovzcTY3sJzSB4D8Z1kR$7j<9`BtmV%#vS%o*fel5t}kC)t+x4081v0)Y$Rm4^FCmR zM+>f%gTFz6AuLd&TT<9`2`q&8l`?_BGE6(Zp@pdB0!{ePDGw3u<#Dka#?9M%ay5O( zwv;2Y_hDI%9ToB_xQ^P*K!~$N3fF@Vj{4a=o(*qAx~fh1(gd25#-nyirrCx#N8|$1 zH`PACOjnE$G$t4K-(5#b(9OMIOs54aYwx_jJeg)ejyE*bykI_)AFCO?0waC}Kk^yf zDp$3m*~Sl&5D$FC$ZcjNmi68U2@in)(=a)6tKD^kf1R{0fK_@;hI?t$)uUJ8V-0$V-@)cq=;l z8lf!jQm4{3^Ta7eX~kG%BjRNbzf^_Ncu7dCM9EEr$C1OBq<47*HYJNG%6o$5&~eqO z4kG^SG_DateR=T3%8xxp9W$anR~-yIVC_mVgJ$Z-m+ex@gj-49?pOvZm=iCVE~A-I zXzPz=>fY+o)j(4>RYg8j@=U0?<`s1-BpO@?p0L8*rR>#Mh%5#BzIj01y%WXH*oD3& zK;3V+fz_;x)91T(c2d+E&Eo8=86yCeSufHg4!KAOn1CkV>;DH(9WiwWE;%xpv@zRy zy}l6riQc9jfZ;TQXrwoaxzBue@SzeR@5(1tw^uYjKVMnNT|R7!pDOt(#uDRA-jqgk z?0L>JG&m071`E}%y~>&)R>d}K%+tEp4J~iC5`~Mc1<9UODo^|ac$w)p;FW+zTLc<% zDZ(*@&bUtNg{len&@6ZwPOW10u34Ngk*auUawaQ5-X_Ds6uQxF`A9wo>Vgm!G<;R` zgHg6N>iaLpM~enP@wqMrA6bvu+t!TNN3H1s)i9Ln>$B@6w&}= zGPOQXrY0)db2+ZMVHA*ksp*A4it-_iqBw)yHN)CfZkbwMu`y>rK$}FQ*eiao?pboh zO1@cI+ChS$?Yo{Ph8t3yMSz0s*YzQD=)8oZ?^34H>O$(d^XF$5W^_f{uNaMB_FzKv zG}LZ$gRarqQp~_!BTqayaX=hCnB{*~TUk8eR}}bc-3xkgy8WhK-P^+=^-3vE67d0S z=Yy*l2H@#Gfa?!80*jHQsyxC1R^P`#8!BYJmIP1zRb;jOXngMbr?L&X}R^sAR*v7W^! zA=$`LSraE1JG$F%SP(6Ikn0WZ%&%*SkiXyIMd5vE2mK$$sra`c_s)9Z!7-z@k>!>tI(z7UqN#UqljTkJ7Id>@5yE(tn?+ z-|4(}`%=dpvF}Ki1{pvLhgMJT`2PXQKsCQVZ?_hZmQeS7(1aEU#b6GT7Cml)%gi>dzr6UUl4TzY+!23pC- zam@GimEks{K?k8V4KWdFG5hVsJvd^l6*aykx){A_D_dN)3f$d&1)++IKQgJfL&V$T5*Nv zllP~3RTf(ZV;;42QPB#=A|}oN>lGHgard7x z6ATi7g@!mEhi^yUw29(kWSNa75cLN~>(7EiJ#sp}6Osv&%SNysVyv9CIeC*zPj&n86g9R!&B`1A5im!~2pNQQFYi7v4+J}3 z>(NSpF0Fv6^B6N-wr^SJ@d=|t4Qd%3ydj@Kit;h3%o}`GK%FtdnsRM)7(KliTp$6O z(FB{1S58JB;ack_sb}}m9Kg7YBhIk`U=sZwWfLGsjE|AYe-Y$UysmRUPqkzN#|(h4 zAezQ)E7hMDov>$;!|c$>K5kgVUer~2?qImxR6HhFi1ler5 zXwb<%5kq&}N8gdm#G@-Q+&t4~DPtF&g<%3XPCnm0rffM+_(7Pb{It0NB1eFr6kxedTD#%SnhG+jFQyJ!{{V0w9)#K!5A6)=79#6a z#s16uM3Nee$ZtWtxiWf?7afyCsSOV>+|+5$ngYBf#KdTV4TZ71-%_VFqX0N?|ww3?w1% zkDQZSr3grsWnhB-U7jAyebN91xVr{)?7eK=a;48J>V&kNN9}%m=0^eDq1QS!f&MmR zgly#ZiVol~oVXz>PC&1cT!15Q}N_Jh+0oW(rtpvKiy0Vh$Bkd`>2S^U& zCuWwJa@<`^I>kAVkqZUzo=xexmRbgZmz*fc17UtDbk^j2`JBvFh&}y*_vS8T01RcT zkYie|J+S`(A_>96o@aaY;1D_hI%f15Jk2~i3%&YOehq*&w2s`6zNMO6W)&~7iVXg!P&Ny zwBT7hlG%dpmAb3lPp>qdNSJlhn4ir=w@- z_2+DuL?PD^I`nHThKUZu>{E+9OZU&w9+zXb=iNn^nT;5|M0wAYSViq4Lw72G>VW%o zTvy8-1&HgD)-S(5Ce#Pz^+bm)^8NWtJXdrKUey&L1E<@?zz`O20h9F7pj0DdX<;L{ zd)(YSh(hYDaaHgCjuQY8Y10PK0P^J&iG z&*UE2Aw@+E1d2= z-bTyQxDoPKHT|maW#OZTVaTs4kv89bYt}~?$VWfRHXJpF0B9%e}ebs3sdr%owH<` zo>^=R)z?qT#D}YQCoW9^k>sB#kaEoJex9t1yFr@h6iD;JLD+0_#)1R~3`5w*G08U? zF=12wnTH01e^a9KqXdN`rS{GERPHNEYGKGo=(yyMFAt&@iS5 zi1zS8QZzy_Pa|`-9X(CB4TAyIyREpKnIq|bo}LAuz1|?h1-`=XwFgiD8U>H>5}+@w zbse9Yg0dnwiRYEaX5CCGB%@N#*!xkTC$RU!-mdhhQ#JVf`gaP!0Qj6v2yAk4dN9!) z2#+y}$~)W1&%5If@7Nf{AcKmM2JF}6O)6#rc!k%7dsz`;*dR-{ z$eTP#kCE74y5^hRPp=DOYI?Rmcwr=poD4F#_P2JV4mBn0Tiv8vXCZ^J6g09(b875m z>kK&H<~b!pNjsS)&kF#bHSWwuawrUnDKayd+4i>(l9WIxa};H2ASrBUslk@dwkVcIbsoU{)s+2( zeb}u9$RATh1Ue8MvCyY|K#5sh-$Hl;rYp!VPM9CXgYBeKjV2Dn6tm-SFvVC6->hf> zOkEe~WP9*YY77id(`r>5$Y7d}*9e(tXOhG0@hh!-jR`pd;cK1Jq(YkzcW>=dpmk+_ zicumt3>}E1rAy=v2wjdwtwBugxvQUiJEQr{P&E4(=Z{EqvIMcNUdde6GOBBj;)!MQFz}X<+ zVt$)bD<=Vhe(l5?Uy!kM!>0@+6@YnCEtkys@wop0#5ZU}3IM~%pdpH&d(^S+;5y>; zrkFgT{{VXV%S$s>4sX^q1Ctj=uw;AilCnFFNaWU_)}f=h!^>Oj?#HQ#%99xZ69jHN zD3acz)T|36=2`fjzGD_wJq*^0TViuu*Po0oySVZ(dQ_bEAn0e-q7aC01!l@NC5CZ`W0pf^}{ZOS-aO7MdZ_y^uRsDS_mYez0$T5N21 zHiKg8(8H}s7g2w~?@d_Qs`>;`smL{4s7P9=Vc7e4mftX1pPAE=oQ4Vesl#BHU}~}b zH>6@fM^U)&m-iRL00lb5o{ThLLNN641z@8iYR4m+qMfR8ExFymsW}E%y14d=e6qfP zD+OIzT+rCa-Jrk?Gu?4sE^23S)N*OE+<(E*;atq51tvUIdzg^nIdE{}hJH6qDk~vl z%IC8uPaMfcMC!U4Md@}+uyxn1PomLRPnSZhrw~4j-P!;k<3*UE8o8ud&1n5R9ujj} zAFjn3Yj(ltFdMhtohT$Nn8{}*IcQQpA}3tAm^<)ScNfGEbEuOw`H#O=Hp7c7Y-;UT z^5(H#dTssztP~@qL?ql_PUiqoO^|%(Zq^^m-2-LCYoDglc6rFD(=1$ zisxrD@4o{9K^{n0yiZJhm(&$Ey|CMQD0V<`*F{+OX$kF90zHq*1$)>b@iZw4;;N3L zYx?RVCdZ7&EREakO|wlfopBb!)TQdsWY{n~iT%;%sO*-dnnrnQJB*J32)z8bWGdv5 z_SP>dJs9+shQ^-fZ<-!(7zSKiA-kbcqpbt-!B;_ZQ|x}!_#;3b?6vQZpSn|vz+f*m zq5AAmOE%UYfH!;8`c0XSHZLn1dGPd>Tt5c~Mm=-^LPIYs=G7?+K=m*0K8x55(>AWh zy%NCUBc0t3x}6h1eXw?^@NQD}AU*12F{O`a_oosUH-i$!zzP2V!*;d!E`iO>*ta^2 zL$$GOm>k>eQx;3A%JqE#N_UtfE;s|s!RhJ(uvO;5n2^7kKy#?dYV^7C`T<26#-k%` zT0U?V10#uTWX|e$96D8;428#&^xuR+fkbx;jfW0zL8Ju1QsnE1@-51mIncmzF#Gh@ z>loauov_}b&GQ|ayk1fx51kYRU#3`GE71#K%~TcvMQoCT|d#)ES$D{=g7 zO7*0t3SGW*A4O_)* zPjrguz$5VaSS9-$o|ty?B`O+*AsHz>=h~ozbx8ZkMTE`CJCpH3xz14L1`*pjMGiii zK~Cgi<6|ywW{zlDO6E>0zy^e2s zn-gR=P1*7wsa_4zU+D?n9<2ck_&9i8C#F8j#M?m4TzQ{m7g(_&M{x$+{2OpwS~_xY zpe7L!$v75li~vf!st^wM`zdwVed-Vn!~u<%9`7nt#Ja4nUKO(Nbu9ZdagHAk2Zoa_ zNgr)v@{#5-#3c;1W-jD>`01@|)ztUk0BfSRLlxz1S{7Jp$=xvI>e3}T83uuY!;CXi zazWOx?nBpuoZ6rQ$~_YM&j^YFqvZ~12X+dI8=))t?@;PZ*gF^Zq2bLyo~}MjgO+ql zk9r+p5jP)H0=BRXR{-Zg*Bmz|Y+TG5(P(7Bh}|$YJ?T}KiAPx+;?H|_q9LCJF{+@W z5p-wofkp{w!4I%@#qC9idKNq4`%$C>&L!^NfH3qBhF-yg)b#>8+%o!%ZxsO=@K*7z z>g^QauZptqb2|_ZD;~o&GSR`r664tu<~?LkR2rh#Io|I=qgc5Icm7de&ap3cT8~cw z0UVs3jTca<{{VWPoY_}a{A@!?qjo&do(?e>2Vy_Ip-INL9oQ)?{f%GBAdVTgd%six zhp(Zb9L%1Wf093=BZK}CgXn^5WD5IKcr;t~V0CIZMb7TV2Wlo5I3XrM5zJ{fb#xu5vfTPxD%*r+G32mDPRAO}Sl zqF(6hLfMuCdvSRHr5Dx1GxYm^iUhM>@%E?|+#m5Ye6q8pp5tw(yXZb09xMU@5y2W; zGktBNx&9+F7{TtpR3MHI_?kXpPcIV$`gf_IYGyho7m71=qG0~iPm&+gXZ$;N@Pr>+ zC-5|U;ZofM(fV?(d_ytOII{q|_WuA3op;N^e^W=$Bq~Ztv(tkA!~iT10RRC50|EsE z0|5a6000000TBQpF+ovbae**EP?4b!AhFTG;qYMbaR1r>2mt{A0Y4D`0OJqQ1=y*C z1CgMS4cou3%_3BhI~KOz{6S!0kmsQQkwlEaCKI{y(A09&(s?X;={trTw>qpASE6P7@9d%-e#T5y51!y^(w~835-s@ zTS}c;fENP)02KF7H-AMaQM#AxLT01Oq5RQe*#7|H4*1~kW37Zgy(p*&lMWFVXs}6E zje?Z2lte%YP+k#97h#slP=tkeem051TafYG*-l57j7w~cFdQ=o~PM(YNQV6)i)TY9o z+&y-orbgm3Kl4pc_u&XfsX+FVrRfG@MwK%%KiV3Mj5c(DhIqVFH62OAvmf&EYlJmw zSfRi8DJAKZW&6TxRhzYAXYQfDsx>Uo569QL(z)$XT_tSvXhgN@^yAO;^`-@|4uSd8 zj=}Q&Cy>1<+5ly3Qw2X^`>8})P7a2i4D!(Aw>< zld0#*MS#sPk|up=FbEx?l}7Y%%SXBK)(f#xw#hTs;9dr5c2js4?+iK5|m6Of2G*gctuvV#v zwywU|sSOp|qy5jL%fMac6DPd1YJeRT*QJ(R)J5EP$IqclM=3Qg z*PTbQ&&3S%LW6K$J`Q)KLoBOPgB;Jn`=)Gct1pY8F2kYw^`xjXXUJRe9uzeH04dY; zLdKhE)~Cx!gciNeJZQp+%Ui+<$ zT8bfq*7T#f1R9$%k?rA(Txnuw6H(W4kAPey&nEBbO6KkPr4&}Pzx6%B9h=!7 zNv&uZPz5u2v=gwUA*Z1NjG$nWmP|?A$tQ~DuJzxuU)O)M39&z);-|}?5M^m6d_Uq3y+Y#Z-;VTXz#t4CWz>c{f7I3N zom&|AeJ@(hEh8-;Has2otN9f%H6QWbg%kk*XnOjV2oWhuM8V0U?c)qwsgU3vPP@^S z5Rov@b6D|sx&A)eD+QZg9%^-`!)hRG!Pj4(wg<>hNrsDq$CYYirC`fe>KGV5zr3oI zg0%9w?(a|7A#Ou(pUQ&ZZghIL1_3JADs{i2{{Vyer;1Ce%J~+FDOd`>gO$6hPp{ge zrH6A*9qUmUk-GewRmFET9!k%P$b@^L_S|H$RsOZ?->qB21oSkDuBChZqZcSP0rxzu ztv)myw2gX)`1%Lj3KE!>hW+UKQlS#s0r6ZuNWtw=>T00D$9>-@{0lliZ_{62)}X*) zCsPz+-aul*=dDG-@$^5%4XsGWhDmBaGyGP+YnF*3Xw}sPf&83Qli@~;sO(+)*v@70 zx5trdNcAyzs6)yw!I&V{tr8qhoQ~N`bLGGZ~OFs4F z+VEX=HE4){gZ>f$;^X-|nIxladYaTyY0i)8hGbri>%ZLMpZM(f6MMElnC6av5+*mZ#)saDRRi?@8!0K!mVR&;{V@T0dy4b!ub67CpYQ z3T4g4zQ(7r7tZ(dEZAu zmptC>`cV=H+)uj=Ls>`Tz(Xtm?Aope#1c_82m}GQ{4-Wk z#P`Ga^1_IWCB&)KLxJJr`=S{QpSS&-J{n>eZ8&ITlk9Uq=ESey{(Kqi%t7tpxTe7k z^{3hPb$b51RDfj()TsqmD$n1)MReQV%6l|@FX2j33!fmQ5~u@Jpc&kIzpB=c_-TSK zhok-Zh9$5}op_*5GCGxLx7YoAJ|uF%X4i+BM90`9G>7y2_%k>D#L@TX=;D!O79Y;l zdcA`I!R3U82Yb`mP(iMg*nQ|)-a{S63-bQ}#5t#mx+&DfBw6zW5ndgCr5HgHWW)9U z052XOqa~7xcGt6hzgGhBNdBriPlE=~CujSq@DcznR>4Y}X0JVu=8~#aU0nHa1`j6h zKQsrkB1RH^2gm{DJ~ryml7J!&3P0imi9$(p4)^mT(MP`{jwoY*kucS%{{W8OD#ApG zSGX7U98=CHmegrwmp%+1Nqi^x`u=E7EU6 zA>-_7LNlOUdsO_*vv++dRhK?%PX*2q{sjz1X>NGs7PAHUf8z#2V~v_*2u2g1H9AVS z*~vgiBqvWCfe2(vB@u!sF$+8RU>imH6x3wZq#cS`dKywBChD@jahlmi(kil$XSdY+ zd}AYV@wZwcKnMdv{xRC50Raf#U!ONFMkZrP^L!Y57^fFtsW>$sz^Qn_Qk2b(qQ*h zT1zaJIX#Ti=d@h+58{Hr)09J^r{0q-VtUu$4K?)vTIfI*qSgA^6Ldx&vM0=kXc}nx zhhNa6&pE#3My!TCui}+*7o45>JXveTIXm{EBmOnbV?aeC*+KMINC*O*Phe;-*4(&N z_Vt#!e+>r{LJ)cp`KAxjd07DzWCU17GBNpaP$|+QI>1kMpkKp1wFwY+raRsE1Zb!r zh5`9cdKfZqw#5KD(YP8omxzEjqo(zzfE(E+NJN@wdIJ`2*=d(UL?FOdMy5DG`d%(# zW;CB7nDZn()KeUiPJCQB4_HG5FY0E$23 z;DKvir}gMKC8VLaJK>RV4LT>VjvT^YVN>i%215dYuogTA;BrtiIOR8ihf$`Erey^|40wc)2QuZCFI!^FgjOA z3wMg{i&}ye0Vqg?kr|W3TL+4MQmufMP$p|Se4;c=reenHL#rf=q$#m(x4|kE3b-V8 zNVGVV4G5)ys0b_tFOls=t04f{8#FkV0!^2OJ8BOl5|r_;HYQg!A<=^eLX#PfTr&P^ zCpUo(kqn987_9ZV&+{}ABBy94+2R}#thn2~5ru=*7)sHw_o;%lZ_Q^cS`Tz|bHI5l=K}h5-ay8=xd|sI9TKp=l9)#c1nEFQf&hYX zO<43ZA(4Gh1aT_F*a`ZzGDzE`7PB7YE5^jS^cmW6{GEKzM0SqCczczE6cS%avWXV$3IIa_+0Gl7b zT3z5!-2B8)n7MCc@bmY^TD$hHo~-y`FQ}=kWW%CveM$_DL;CGeYI`nJMH`JDPJEuV zDrH{!P*OHVA3nL#VBw@F-A1Tr2dsq$F>v(1bx!<19cjwOBzUL-<8pPGWgu;g0)zv0 z<}C?$n*vt;K_rTwTy=&(fq)EDF@eRA4v~8`2o0ZLia!+fR#davpEW!``D~z>t~cc> zbA*XL^)=uipJda~%LnDuq86h%C{I$BO^HD=Ac&G-KS3OeVR7K52tL=+)4~#^fCB2$ zk(3686%3@>K{@(>(X@mpxUi-=(MkpCpL{6-Y^l&coeL%9w<3HlL74vN$FPs@)!J%s zmj*_jhazD&KF9!CsHVVsPwJlnUjzO2t0kW%{UzXJI_vZ3Eii!sBH|}{IkJ;@HkL=v z(+VQ%B}Z9#al#OpDHJdnh$PuJFu5}i2m+89TNGTlqb9JV_9|67!^jnt@i~vDm*Q2hBc7PSFW_+PHSNNsmxmJ6Bnhxt=BchX} zg4U|}Bk@q2-|}vwxnJZagt>0NEl7cNl(8fVh}EWv0Zr5sjAYc(vSA=^@(JGIYxG(j9k(c{R$71`|P_uJ6X+1N`qzlEXw3nuZ6to?d zEzS;<9=NNsH@QP#V_&tWAV2{st$;OX!@@{Q1QM4~LOJHNh5+c(1BIHToD$^GA4{zRtpUA-;1D9GI=o2k32Eypkgp;1= zAbWTOI`6u1^f3T3?!aSVkAJyvynBQwY>8xQVr)YvDU{TJ+SWd+fCOh$fcK^@;+-GP z@BjlgJ+Fu7KxP-LJot*&z+R?X253P*01Z887^kw2apIr?On7?i{qx5)E01bOE^LqL zj;M|j=aDuk1SLLr$8A164R3t**pKF}4@ptwUQcX&!P{cCM(i0`1f&9it6)Z1w57>d zlw>05#E2p$&0Ow<`4SGSEWS#$RUG3H1S{DJk`W*PgoiO`DHzgWklywI9G8Fi7PZ^=>N!vbOz zmi>k}C?m->Qn`>FvS}ieuK|gNgpuK)&{#60yUdG|z)&TyQxt$8sxh>b9d{K2Zuf;B zpMbX}C#=#v$`D9EZ3Fo5Ce!g7ccKtzdh;*>LO5ykjqlaRJ`PV#u>QMKh5JRb(V-GX z-Yu#W1~b%Rn_2Wb`pW|jM>jo!Rsp6AG1WfOnQrg^2|NP!kT5I?qQg>M0X9JvAWdT7 zR2EbXHUK=RX*c>HS$0{ZbhyotlauI^VaTE-vKJ6IP)!9ACB*x}CK^L~m?j2Mv1dU} zF$AG)fKE3Cvi;hc>9Q}uQh~}u&v|H>#euL`@F7McTx?Jn_3&U3vNYo}El!R+C<1x^ z0K=t1_6YXghG>|*bnuc$t1yp{$?sbF35dUOXrgkXI0;w^aWfb)>>90E+r}1-C|l830LfCgQ?J(8K`CgbBIz*pdK1Q6X3uV&YB46HxmZ z36KB_s<=6#QELWaRlw3D+W1rCnkE^3z_PRy3MK_!kMz{OcA5);yy$B7D_z*~MH1m~^>B+|)2}v$lDjA*a zPWtz$K|7dErDsnL#%rB5Jm|$)IZTj_?MNMnEg_3tDs76~2v$*JO;`mG+>+NgH(+3u z*Z?K(9n7D&=!c*aasVFq-i|6x_%IlrDF)3hc^qU^EW5>FA|%pfoC&zuFMxESgmdH@A)*MHB7LdU01{`l z2!dt%FFslb2i=O70$Dm~{{RM(Ui9ZuAIbXg!o0AIG;t`~{GX~ccEUA}1dX97cVwL$ zd9bZ{<3upAJ*^puNT!=feC{nJQM?5RULew2D#6PXEkhyf0-eHvKH131p#ycIu|z13Djv< zG%E~9QGo!Kh1M7tXkxzjJ0bB;I-m&ENUuPwgw@lTg_N|(+JNK*gz~XP+!`(@0}_KK zrZ=fUwym*INT4B`#Yq^f4P}i0vAL|4tvdQ3;}~luws4N#vlMd28Y!qp%}7p zNQl5mHV$aJjTnd}pnx%sFb5oiECs#IAhGaQ$up?g93ioyj&kr5xL1R#!$2MfXp z-6|9h0Q`OKWYQNXQA-99(FaNODj-;TcC`xUXle_ zZkJ2QY1X5_b!!*dz-)JNUZw~vXCfPA!-92lNrPbyw`~b!Ks8D}*dYkB1e+obss&v{ z%KL|5M}*)&0DuDoY4kHC!8#10S!5Z|QpW-o#c-lrEtYHl0B+g{C}LZMak``0pd#9L z*)y|40~sRjZ^b&(DGy?XKN^GE_b;!1kgT*;e$ZnG@=Ki9foe4zi zyGl!?0h^yyle5OrFM26U7Vj(WsYzHJ=-#k`pZHb15QMcRMO-y))5caz*CFiCK`GQd zvqDc8H?E&teI^q2bm;r}g`5&dl%g^+!>eggm=bJ~^OoE@coAiRmVX%sCe1XDFU!)L ziUX*PXnwm~1+9Sljkz#1`>r6gY~crvVV*#mru$5#w6#fP1y1WUUlE-oOMRpRC>qc) zbOQ@ZF*5@ti>vg8^rr6sQNqIAuw2eO8?cYaHHmmaXi88t3kK86~ONi@ETjdsc zRbK-$Fky0b(KVK*nG_|qd+8{gi0k44-(E&V8i=$|KKz2!3!T+snaYw<>f2XQx9VxL z=FMs&knCg+^Y>C=W;&ni=zqh$01%Bny}i6`)bY@iiKxR+;Ou4ZM*=+D_bZGRgTgFL(;ErHHCWt?GC)19-MROyT zVFK(!?88@nT#{WP!dF473zIl&B;C;%Qe)2z0gaWSz!VRw67A3+C4(-M1t+TU5mgs> zASgEo0#bqmg0}i{T(;bx9IYx2x)X&oQ< zz!pg|Tkdwm7j_5C(UB=!?R(~aiJ7Is$`B4#v#G@rQ9%;f?l_?E<^&0yb`TUUX{pJm z$|!CkLNvjdl!>`nc9c}W03Zzj`V-ETZJ(%n(~0g#hQk7YI+0zx-q7*o;X@E27ZC($ zc(~wz78oo~5n8>rOvICh@;V^tO0af9W$PdS?35d}EC;a%YPt@#rRq{9Z32ZAAdQyy zmG;O4-gVHU5P!wk`*z{AHnZgA9Tm5=Mye4DGs)$WXs0>USjruzwO^_Q%HZyogJf7! zAv8UKsjr*&KRGBp4Ts>1iMjMy(mk1SjvSAZCR!Pv>1sKRBglyKYtCIBoP z6&MWoC;NKC!5I>EPj}WU#=tV1#4N2b6GW29z#xec zEg-~9fK~EXxXRE*9tk%C$}Xdk5rxa-qg;j>19MUi-XSz2&Bn(?uEkmqfo&58^80Z_ z^b*}y=9=lwwM5YS5G@Jmuf+ii0R=~>C}pA~oyvL_b}vIR^BPg-Aqds{759%yw|QP% z?0^SxL!r^rB&%eEM$DNS1^6fnqY&S22#4GznJn^EU&dTiTv4)d=!*}Lq~BT#As%!k zjHWIo`dDhx;6bLrx{RbIR@K-ERj>7C?r7#O6 zIk!N%I%IBYA_A8Z69$rD663Q+yuyG*p^u-q-9|UqW0>k2g>n>9fC*g#mr4Skeolcg zb!Uo*X`#wu(dKMu7n5~ID+jJ7!K8|AOrVh>pe2am42^__gsoA43#zaM7cN*7Buoy= zH4Fu461roQJI!4AghC3ifSKk|&p#4>*zSmYw8DeUp@w~ur*t54Pd$dCM28Fje$WuG ziF&v6!!8Kkr3)=C`Nd3;cUgV0O-~HA_Q%*(R9*ZJ-5wAK0|DmPsl%~pslTPm#+W7% z202J*GX%xHVW7@j1S*ZV&aQ4*8iJ1i2t-*3jUuHeY{KA3_^9c-8Y@C!>nT5&Ma(Q4 z!E{Xm=O9jyEEpz~o|QgBDy~($(%9X9A&t~wp}B=?nG|{nNje0sl)}W;0Gl(7mlr~$ zP9>XpiK0P9E=z{a^c+Tv1P-D;9u*~mCW%MT6w>NC8CA9<7#NLeFmgiq#l(>h*<&qt zL3V@@=;3Nuse%dti9;9s;)6tYZ~arV!cD!g_c{}t)c%SrUWkw$FzlM@UUGOf6FW#!Iq(lgi!Z>Qs`51^c zg21j2I3wx`%n#)LDD-0_2+Yt3K+sRlDsYNw-ThSasy6n=-Z^T}qJ^v)AGU%vM%CVr zIw_R7QZ?6mho4JHptu_)kip)sL8t=;^+#va$}$fPn2Q7jY)M4)kQVqy2-y@wXf`4Z zh8DxTQryf1F;#*Q5@eQ^Ro~5=GQn`jbd%lj0)$>QwVu?L^(gI%{>si#BO{^~{nt^t1Olro@19Nvrg?k`4a z0V-Ojh8H7JV>`Efu}{jIO}(+;peE_-(AK+=EWKYraTL-MMPKr_^t}3C6mn{$Jw2)$ zy0a(|aC@)RdO)*Kg@P!Jl9d(!b?9XFzbHv@p!6ecK}uMp5P8IruxC?zOQ=P}0(_n7 zU$b(E*`aeUfidusKQ=E^HQnmDEL;&A1mO5W=p*{Pf70qj%Yf`Aol1ri-o_x)4|0I(I$p`-wz8fP!f)yF=P z;+PdS7gO&(#a?bz)MJVQlj;ZpBqOylT@4eIu(@&AXmhQ8GYB^kvOaK61Ft2YpNE87 zPz6_@H0Z->-$I-PrDN(*7(xsDn*AD?=vVkYj2l$2PEx0ad_R_mfaIs*)O09qXX5mt zQoF49B%Fu?D?*X0O+UAdrOL_0Ta@S*UevQ?WxM(*1rpU~!zV4Ppl-AxHWdc6sUifk(Bn)l#M4Ay^ffWl7Oy~j{gAnd9GO$Z7 zfk(}Nq&jqq_e!`OW5Tf`O0hX&5=(PSEY=D!2tIj#pQg0YfDqd)>da?#Em}-%XX2D) zE4$(+8vrUEh+T^u9x{P;ry$&qeX3Wn=iZe{m2$oyr=>}`Q_?!ntX~_~_eq#0N72svio!NWsZ%?Bvn+lpZjGF<X{gqXM_@On-@u>=^1x4lJA+Hg^hxriK3Vwm`3C5_(;$@z-stA(sfDt?fyD=ipp}D~K}i1q!qO;C;P-O)pr{0{0<8|&KX26;00O{z2v8)M zG^^!C!1i`(PwD#W{{ZNHn6W3Ix9(`7k!e}FG=mSBIF!O%d8_LT?xp$gTvMV&Edd>Y+LLG@P#`VPk^#zu3Fq-hRAllJ z8gk2^Zq!|slPgCQ`*=!}0d;D0I#xaPrBW@6AK%gO47EPTE2SPIek^pW4Eh={1cY$Z z(K(!-*!2`OIReUCk!OWl;cQIxq?241!AL}0``v@cBtj!(OG8N-B4{i-c=Eu#b^LEumfh8NUqx|HL?s*)WH@?rNQxvS zk@Wc%m{a&H1H#Y&o?&t$+@-51q>zf;XnV_cUII-UEJA8iEvT5|l9&q-m{8nC$oX%W zQ!60$0(dyZbK3n#o^Jd^D>tZmIDmvofWSoHrYI*B^aw`?nm$k^qKuZ3 zich=2;$l-e#Cs~U7{Bro6^4QJs2B+s5Hv1vH1RWG5BBk*LdA}c+fpBVg&=_JU8Ydv z%lavzMpZA6#+j1^6=w4OHuSD0x>JJy_H5EA1Pmji>DH{92^-450o+uKK7;^fR-he) zNXkQZNENkV{9X!8A7|N(NrcdTDe`Y!6{*|_g(d_m7cQvf+-Sv>fn1OVQNiG}*wg*B zqah_8(XVMMO*Nd0(MP%hyk+{sHX`O2T>95 zT+#;+BqBCQs5dx-BB8KFq}k-kicqfMF%@t$lw^WZHb5f?Ctys7Ja`z??`T0{@A4^_ zmmr7`4zicgb&FWSYCWw*CD|fH$+e@UHra}a4$I+){Ijra)`z$d2i5243L%wZmsYo9 z_SEFjvd6dY$zGRrgR4TFL8n5DdUREs)Jhh~eosyd32`K3Oi zi8*B&qeFATUr=ingVWvlG1^CgqOfsoDZxbUse4cYL?dg-2vRKL`Q_j{fLeehUd0s9 z6;>KDad{ln3nC+8a|@`j;rgg&C4q$mUnhO(-=v{oNEv}0o)qMrS_Z2^9xl4B?M>`` zW>(8?_NnM+d$Cd`^8WxHOEm#5b5r$0#0&*E^%#;Eq{MPRllAG>*VkGh;MAM8)e`bk z>4n%@bYaqrY(k_QO%mLYmPf%VJ3gO){F7jK1gkIst4b1@ual}la?!{&X2ROQgsK3N z19GG@Gy6}#A-1S6k%VA(6fi{8u?E?U*u#)&>$&=)l7lRaXx>8UQ9qejPs+nVp8z4q zfHi7W2KxREDCtr~>Ui&?O`*+~-%4_U%Ch-6&|113T4aNH!O;F_#yw4@FwulJ2gv5G zFp!#hVGc%gXv3onj*M+VYMT%>$Aw&6(WPK7*l;HO!%)nC4*P}(7DPmLdnsbW&0Bis{1%vH3;2MC49n}>C{G?=Am)^kyFf12(36|Y&*{7~>SoZR! zR+I4o4) zIEvT;($|FKp$n)>KXSmWgL*~P0A&B zA1~Zvd8iqnL}(iZ4=rYpH)rE^hut|@dbE1mYDh3JWTfW_heX`;iEQ!`VIuI>z1OhP z54vDt3=8YoO(G<6U3hHO7Z+*eAhx;V6bK>CiLsT11PRHhoLJPURAzAA_cqQRDJrgCw_0E@ zxPXMaP)k%60jTi}1(5SWHZxBEavI*dbfE?XfVZxt>q>MH7&1IkfaDlW&qWmA#gHa6 zt3WL#voY{uK_GW07I3M>t(P0xvelPKq|ppk&BzkRPiRUY001Bj524Q*%w=z@AYz0A ziIoMX@4AyediyV8XX21-0-$xkDhSwUVu1}h6sznIVZ>8}C(RCw!u&yG1i3?;7EIkx zQksW^G ziv!6*4n(H_LnMl^e>NcLN1C9(z!8{?NoFlh^O^B-M7;ur)MBs<0)XQ)Q7tB;1EZY~ z0dcb@6%&#^O39L&5_Twk4zwF#b?E`y{{Vrd60XC48XDmR5xYqR5=$UJmd)V4AaV5` zu$_QgX(=U!atIB9pAN*(ExUEP(LAb!CJUi=)mDiJ`@-^!-#|s>EZNi1mC+YotOBT} z{Mmp3I=}~jYeGO}f^zwlY6OiZug;++&K5z##S#byA) zR|2LvuFMW7<=r;~+0Baf4ay|di2$`MuK_g^%Iu_W6!mA!-3lSL3ACu6xg?5vs9`Rs z`{ZujKuBs3Bsq>{JO2N|UXddy200CeC0LOrqa7AE|a>u@`UzIeXQfh!l zN5O~J%xrQd=rq!B&$7{a%=vh|!Ty7qCNMqTS~0a5x2`lbKSsOK8YmlXs8n_>xSgLm z)sYBaI|)|7X~|TNigXeb+IbYx@EH?sr&OnGr4{tptmkCBQZb=yW_8Lev*d`4zH?zZI0%uuvCwqLS8G>_nWk1>CO0}23I)V%7P*4c2t6)_Q?Ulkp{?c&^4J62mn9< zU_1xh!lA$mX<^8z2?L;?bAo#cCSaj}mZ&W&E6VsF;v!&SGIk2>Ot}hSdhZcF)o?~M zqsk1B9{dm80RRyPuZWl(TE&;CM>9Nr)f(g0ABx5cseW33J)r&yBi#q{=bV2B0J^JS z<)G#%hQmaK4v6?G9gN7EV<1j|_obj(CM}yFc^(F9rEXG*6Us~Bwfie;_Q6=3rj$No zNGOPI18iur_B9J6iK)@W%{)2V@eVh=O5n;XumJ5&j0gCGH1-A;j^SvA5;1fDJZwh5 zYg~cEgSw_wxuOIwi6n=@7^9Y2Qnm+zf+|6?F$i8j`9c7P2EWpW00aS{MXArKkxx&j zdO?&s)WBD4zQyX-BZ3c_QQuX6R8&}S3f3c&=w@YN>4c7!wem1RrEy#U(aiev1vWQ> z$_yo^HLM~LSQS!T)DZ`Zw_3yE1ei}Z0qEH^Nv$lVU?jp}L?UEHr!p_H2)Ik^nWN4U zq=gGB1nRIHr8U_&QJ5*v0kBbxrgoS_Obwui4AGwlO1L*gb;7-awH>|avcxw@KPEB| z);E5r2mlKQtI1Nc9I;jut*)XF?p8k)j8AjsYUd%OvF-JJ45NL^Cvckr(Xw!91jOJe zt@_lSSCYk7vI&(+78y=;kQh6ISS7bNUBulmF}{52L~?}9 z2Xq($M%9F$Qpz4-Vw%bXtSbd6Z3-}7uFO6B!?|2iYY3&U3?~t zcO>R12NMfH4;!tR5F4oJeFe^ zN6u>C&Qs|HgzA6*%B~8%7P;)VM$hCZ%ps9+1wfVnR0#$)EX3pv%;#*Vk})`nB}&?= zzDf#{gC#KxB)m&N%pI0>N5(jDZD8$W05h1Scg0V8PgbEo3{oU(G&~FiS!gbqVB(OmZWM zq-@Zs*-PP$6M8{s24K_?F8H%_s5o#rl0qAedtG=}$^cDm;Vd>(Be+p_C^(Cb30D&u zP%Z|eFiT8eMS~Xb2r44<+!sZ;)RUSYBA{NJGVm{|LgnCdS∋@piRQsEmmJxZIyXm$#cO9^3Cw5<4qAOa{zn=};GrU{T6Q`2DZNF9|sc=#FE z_&K8t3l$pIQuZ_#9*?FH{sD^Sa#|f1UPmAy zi%g6)1;&zFi4iy&iPck?$^r2yIc}@uqs5vS52Emy2u|SUnwB^X%3w|=44bNY7$TL( zKrX1EkWnnAG#nAJ^Hn$ zsyiYV5=vopSNuP^RHRuOC!`z@C}0CB=vH(tXrjhO*6^gD=NA^V8WttAt574j>&?;> z+;|lMM|y;_%1h=5Dc@m$Y>XqhPh=sfB1U16(V!!yWdw-oBU54BKr$*hOcxP~NhmVG zV6aO|IW4_N=t%ZL3l}Ylw`IUg*-!<5fwd6j1o^+PCF?^|t|1-U@j^?m?zd4HX9AxU z7+`su&6Qlq?DL}Wde_G?wO0>`uNqZs$Vi-G9 z+2BcJQI=*jnWTqPe#5SWb4(7a&cL7%EM3>>ef*4M1!K5ePJowMMNkP_%V9bx~}bG)!J#%GA5Z5yRTR8(8Juwro@4&V*swy^KMPY5UnBLUJ8!ROebD}Y^u(( z3TT*=EO(1A&_@XYhyYjuz-y_gtNoX#t5h4&)9BYv zF5sgO=QIg`k19$z0q;YI^uizV@SG4`Rsi0DBIZI@dKSU=ul?%S_bY|(TrYb60M@Vl z%Hn(11Ky#z?^145oB8)ja*1I-6}CU#mHuz)zs>zt;O+fsm>m(OVS7K#StPj+;<9U^ zP}oL~pw_=(Fp@bMbtTMla&gC?GC%=Uuo|@-5O}p?G4|0)ooUEQ!D=?JtyR4^HxbZg zCm?wov>G>PP4W>YRk~k20phSIq?4&KIw4YIekq_sLRsBO>{m11xt{gN_pV31ay{#9`?MAVx`F-`MmKd@2lNzgeUH@} z&tvsmk7w$*k8kRTbM~WIeOK;>mD1nMMX>(>yi;)cBShKPKUIcDR(}*Z`P$Dui9=w$ z=-GSJnm;umQ##e_tsN=PgAf)W>VIE-{+N#&D#{bWY7`64?4V&^`I4qWaFizh0Afgv zv@3EByqwY_4U^8jlXW&N{=jA?BA?G8+i2mLksKOLmQKfn8GKl3m5=N;M(b$fv^&lgWYaHbVryo0Sy8i$|OOyd&=!y!?Lk09vOZ`^WP*GXb=W0pW&9>QOW5$d5j7%JH0s^R6O;~U zfILoWB5Q!PQqbPf_3#IAO==nwL2+b=F$vMV4l)2>0twL(^j&Eb zTE+tujbR<=64U4DX%vn|A1;l+Dy#v!Sz0+Viy0d@;Y49%BCG?js}?2Q zp`ZxBEW!{HHE<{rF&Thl?yj$IL~0UhScpSv^W9O+4?L+(vLw0&o{bX$kitmtm3#

)&;uR(WrtnC#2&v*tX)ZvdB4r z>q@1_Fnd$cY%(USM^Ja=v%nr>G!Mc8A}(DHaWKmCbHkYu0)>^fgD(mQ=ov1Wz>J$`N7-P|vFbAYyKxhx$P{5$*;W(dB3RqznXaIN#`9D-xiE$Y|gi~5rZW^DzNIYF8 z9>J=#30B0@gDQR~g-Hifg)%Hn1=pZkC@2zD^){FmZEmUuY7k}s0B|0Yi@C%GULg7= zq|*dQaLgDI8|IAqDa@o#q_vgorkcBA(Sjhl+_jVvO34vTqWKh_0&@V z0s_D`98s^N=CYrtKqaPE2uZ*UXsM$~$#`J4S-8U*E>4v@1zBa)p-%YZq);fI4xqfo%eDiGh#>UImEZP+0O*V}O_0q<5=peg zDYC*mjGq3AMx>gYROTQsR>Q!RfH!zSI*gv95F&5{wHteC;;3bqUA?3h$-ix^;@xZXr#k8QDj)$bu7^{000mHfIT@Tj*VjAVI+U(tK@8W zga8|}Yr6U=MkNMa(51_7YLq#qy@BWe^wcW>EklvrL?1N_k=VQXsJ3S;9>qmO;)F-s zX-FbBD+$W&#}A*9s4>y7vfk3b)hU!oQ*bT94+*=KFu3^EaJh4Cbrj7;1eRn(NxI!% zQ4LpEV3pXRGjK3PaDc%wFCRuYfJJdw97<`W;b%n{>*-mmvvmBLyn(SR_@!n?EFQ&1 zIsri9w1&IZzkd}51_z_(SFyqfP1T9xT84Y}>q&h3JgPucYj;FJgM0y2p#nQic?5Ab z&r=L=!I)>VKGdMNv4pH?X&PsV(Igrt9*V?m&WW*(Xhl8MP<@mxdL!1N4z>xQ#K$Z9 z6zHW}6JHFD zrRcd(l0i?vYtCO)X#hjQN&XjTtRjSm22jM1$D+Cf39Nz>xU>vdKuKZtqG~`j0UqLd z5Qqx63W9peUu@C>*4RC&Dvg3DIH>Y1M>Ft0_snUEOStWkF4_RSDUGfwD2P)f>+a;F zV3JXA-x9Ub-xVFk*iKSXNrEMS^>;%S1|e%UjO(mP000mGH&kpiUX3Ia38KN-hiX&C zcBDQGt;Zf-LdpdxVOVn+a4-s) zh(hp+T$67%y&Q1|=fD$qAU3FvSbWAAFcTcXN)cFAT0z!Ak;)W_&!WURVcX?m9@X7~ zp!0wUu|$%Gf&2ELUGK1a=CJ#izr8_-t5?UDi`H#l>TCP*z)<0}J^(}|%a=`7SJud> z#=R>68Ejs5pjNwd)J0!KhRb=<0qp7Lmy8O%(dMFF&>rnHT>k)!v>1ssUH7022b}~& zvruUN0BUys0Fgif`6v{QZ z`NaSh3VM137;7BuN)V8iPx%mEC3>WOB8z&@WBBw?I>FArrm*x$x`X-hi~v)BC8CF| zXV{Z`i8J$)7Ir{V~1x(h`31W$=CihF@j@eA@^!?Qi3sdKQ!0TiAik)d=L}> ztAMDUhTVHKjJm14gs8ndW7~{ScC`UeI3{O8+dX^21LnGj9}3I)idgaYfvD{zlsQ=LRla9 za9M)o!u-+I8aF~^ekrYNsa4<6-G8CCi5MiVkjbwPG(=ARt87%2vw``e{unyibujL0 z#V#~JoQZuNDKP=|4S%t>jTF0KobdBRCB0I2rv@TIJ5(f=Y(#vasL1epj<&>eX20a51TP3uzE-T0KnVF&8Twn K1Fxa~0RPzp%jt9g literal 0 HcmV?d00001 diff --git a/report.Rcheck/00_pkg_src/report/man/figures/icon_document.svg b/report.Rcheck/00_pkg_src/report/man/figures/icon_document.svg new file mode 100644 index 000000000..8a5285fc6 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/figures/icon_document.svg @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/report.Rcheck/00_pkg_src/report/man/figures/icon_nature.svg b/report.Rcheck/00_pkg_src/report/man/figures/icon_nature.svg new file mode 100644 index 000000000..7caf91361 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/figures/icon_nature.svg @@ -0,0 +1,82 @@ + + + + + +Created by potrace 1.12, written by Peter Selinger 2001-2015 + + + image/svg+xml + + + + + + + + + + + + + diff --git a/report.Rcheck/00_pkg_src/report/man/figures/icon_validated.svg b/report.Rcheck/00_pkg_src/report/man/figures/icon_validated.svg new file mode 100644 index 000000000..a8eef0b43 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/figures/icon_validated.svg @@ -0,0 +1,42 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/report.Rcheck/00_pkg_src/report/man/figures/issue_bug.png b/report.Rcheck/00_pkg_src/report/man/figures/issue_bug.png new file mode 100644 index 0000000000000000000000000000000000000000..de9987be76992743f3dc672d6c4539090f9391a3 GIT binary patch literal 612 zcmV-q0-ODbP)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0r^QpK~z{r?U>I? z!eAK3Uy!WL<(RIfuUlyg4-rg+Ko}?@V<3VM3BgX%#iKV*(Z%C#o_4CECvV+6cIwtG z`V0Cm*7G_SZq*9ruVC;2pM9Un`*H8H!9=!gzu(=zDL1dD#`=MEVRdjo@ZsyNA8t;%lWAMeW9^623lS1_h0=E7Pb%2N5=t9Y;(|OC79%2YWdMwUI+e{!7QzlRccu3_l zvTECH8L#3J_GQtdIoL&ru8DpocC$DX^ug?Y=HvN+*z|1TNz3H02tkZ(rS<1<^RYCZGI{Xm zi~f9(HF&g#G-$}9f-m>55|0UwjZ|fnYgj^g_Vh!gbaVb7{(+TvOfyAokIV}UvP{YS yY|FiOeqPx#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D1X4*vK~!i%?V3+$ z;#eHV-$6P<6-!c#jwp$!)ISHIu-k<~u`o~>7(9g*=CGwOAcdg?VTZs#!z_XzR0={) z1ArhkKn$@}=2Soo*(|1~h*5JRM$L^FH8*0^+=x+gBSy`Q z9;4QZp8WADh*0n-ZZCQ<8hu#{qLt6*8JkZOQxQTtk&)g1DJ`XT9aG~7@jmrT)G7&k z>5I|mjFWh8wedozwIW4?@~26=??B0}%;n!jpLfzu^y{fz2ryz%*|7T#^uJ8niGD4$ z+dpBn`JrAAzmsUnz7!9}%GO@!_DZijxs>YfsgI;IS3OT*pFp12tx8b9zbeR)!S`81lSYak%Jup;*>NLW`fUXqDa~u&L>skHEp(X1 zr9sJeq9i7|pXw_D^_L7}=s{}ZZ&L3Q2c6_UM0+)90D!*7)HDj_*0qY%tAtBwgwjI) z8dn}ETu~0UYcn7Dv}X41D$%RGIfSdt04{25z!V>)hR~`?p@UkHeI7|WA>8~-DDWuw zc0sUPsA-`sxCr}IMeHg;XH;DIy) zx;vK=vjFioH#(79O;;g)uC5vhORi<{o9 zu*F{}2h^H7a24owQe(3qLa*ZxxhT!m&!nD~99IISRzE|HwA~I5tRqf(v$ivtsM&|J zIJE!Mgt@nI2geH8@p%ddk!~$EXeYF7sQ5h8vi;I)gkCS$Oj@ha|L_pC;a|Aah-*t_ zJGE5zJsAFGOK6ce@V_$!aYko4bG0)=hgJg?nk`bT(f(vHxC2U;zv$!paH`1JOy93I0c(dw>m z3-WNHPPPeOMu3clEpEttgILG%8^0E zRQdjJbQ?il>2MD@POVu=sm#<&{d-cous5Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D2XaY7K~#8N?VL?$ zT1yniXC)FUMnV)xQVEh=E{dimir6Y8;9G=*f}{kBQVLR#CsMc+gh&zOL5PHa1VS+s zo{P6|=hmIOmtD5mxy-I_^|pCuKJNEN5+A0v8TmoIbMMTZbIyNe&Pz`MDe&=w0ETBVBBWM!AKZbi8&W{B&iTF&(nKeL@$WX-L%mQ4OoLPkHk~52NU2TAeT^geNLv(pITuraL5OOW=hg+ISs54m2Cf)Fecip$s zO?;*0+8)a-oR7k!1r*3HRW3713o1r6<9MSz;gno{y%Y;2PXJ1gJ6sZu*)tlH>hz7u zM{a>}wHAZIYV<-bxfrZ?5z6+`_;Q@6HE33fE!u9!&)8$S&H&a?r+sLP#r-*GvoOSk z=a<4x9$%u6C)-jQ)InQ&-=i*K!^zsW-_xybh?XP&+>5Gkq=aLnpBK4a(plZ?g}iSwzf$Q(Ywdst9r6c1nS0})%W-7e zkG!OXdSBShTTO&Y^_x_4Ail}LRp9*~S|6np2@o!;f#?FJ7!i_i)!~=ARkf$&tDu>}T#2XH=x+V>xQYRS34Q}ZBgJEG#h7M)7*!uQ+ z{B169(2dCDN;o#&LFb`LLy-DHVQqpO9 z8}h?jA3zGZH9V7a2(D+3vH*sW|9z6oLRm+lg=NmKD0{PU|@Bz|Mfo**DQ0 z#H={(_+SLHa!k5bf(NNLAEHZjGA3i7B+7GS=5rNpTV%adm+Gq>e5-?$6W?A8mY{`L zN7-?2eZa%dUYB{LH4;-AAmR-$^Mu`^KC#dx#t<(Dsc7AGExv@W<;XdE%z+2wmzsDJ zt(ZRKme~v1wBt(Hgpt%xoGxRqQzwN)IZtwcWT4QEci01Zbk!a6OA>Xe9um%H2O}s? z{k{)XRt_~!(oH>Cjvt^)O{ho=j2}}ib88O1h4pyRczj%^olU@~2jZf$lF=i{`744%@Qyugf) zsv}#*=mLWjGN(hKK=L+N@4lF(9DQ|1UE@or=CSJDuixt~L&B=5L zIUju0%=s#2FQ}^qTP}Ci)>iN~P?KG9mFVNzWxq5L)q!3?EIR}4(1OL~aUa%7ytmaB{J@PcUN1;0xy zg=+(xN@H1RWU7I>(vyX4M=zYsx$x9TbvX=?>i8{h@q+FtUK;8e++>KK8JzifaZ*oZ zM;J%)(1vc`;}YA_IqELOaIrg975=cvD!$?) z6?_6h&XOYP(s?Cr)1wxAvJfoFyIma*(utGdW1o8*`9Jb16gUJQl+Ob_|!&s z3Zr1sC2-Q0k9CkcycaBwObdmDE&&_gj-v(Q3h(-2ag@-Ssdx`=9SqZl+BWa2OO2WS zxpXUjW@V8~rqy1=zVgrQfVS?b%W?c2JMS}j*ocEJ|3Aj=&I&}AbjQQ7g{BAeAokID zin=7DIjNprajc++O`25aQF&UrOh_GpgycIHLd;-@F+Yj zU6K;TOceD8K402`%&>^Vt_V)HakgzC1dRMy400000NkvXXu0mjfukpzA literal 0 HcmV?d00001 diff --git a/report.Rcheck/00_pkg_src/report/man/figures/issue_opinion.png b/report.Rcheck/00_pkg_src/report/man/figures/issue_opinion.png new file mode 100644 index 0000000000000000000000000000000000000000..4a5b0c3f5caad097760478e30c082274960f2f0b GIT binary patch literal 1412 zcmV-~1$+95P)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D1sO?1K~!i%?OWZ7 z;z$(k=jr=>2VY>`z^lHVi-o@HrD34wX8UG9=nG+nrB|jQ(9;ML2snu2N{fi38Bs%| z0|^P@PejE)?KxEyO=67hj63aw3Lls{^>a?0uj$=Wl;soqiBV2Y^lB z6qr4MpGciRIsnX`h+Ugj0JA3%kwBUt*iAD8yJ?1CH_Z_2rWu0WG()hPX8a(#b$v_- z88xGFfe%;Njx#4@Y<`KzH=vXk;KZRMN8~?_<6!rV34UD0;>_R%{tlj5+r{ zyXuAJ4B!QtEUfp6Kgid5bulYGw@i|au7YVZa+;>-e|2P zUmmfs^)P$9to)^QduY4c(4eYvzE*m5Zn#h} zp6EqQEtCuBSL1bO~`ZqmJ{z8*U*gV<6Fny@x&>xL8KgCbO5^Dy+Mr@Bdc|d0w^NOmYQe9 zj6}H!LaIMO6F-W)vtfpA3A`z*I+HU?pzk*eJu_;e4ZGP5#)BYOY#0{T0jUdq;C&<0 z_g5!IH7Lfg>zl_NW#zF~&>MTGiytHw3FmGZ$EAGKz@fTU0V8O!*~2MAEOo81^=5H%fR z;6z<7(_s7P^uv-(cHize5-mq0WmU8@9KE>hhDG@*51L`&&|UbX(l&`k(`(#Z zH``LDa;Z|eGc2x`*eCZ!IyFBha4d$>v zeh0s!x$dJ4!N<8{!689kxQg~&6}Ou8>Ve1PQ%NqvEzm#d!?;)Qf@qY{6Mj^rkp|bI zA0#uXMbCmddWsn{Y4anB758D6#x4A-VHGNswh00jFxWWj;~+;p7PsIM92I)sL*1d+ zWt#&YZX(N^;bDgvAVD8lB{=M~CUkI~s_e<`)p_5==HWD_rP73eO&?;+%qnSZ zxFFD$KH1;H?jGt6#x7q>d`EnqFmRY9N7nF$i`K3;K`r z&VS&376iKjF9*SHnjzRtGsKrBsRe#%BEAw!EAT5Z$ob$$?BFy3*aS`qA^!r^Z`u_} SyPebk0000k% literal 0 HcmV?d00001 diff --git a/report.Rcheck/00_pkg_src/report/man/figures/logo.ai b/report.Rcheck/00_pkg_src/report/man/figures/logo.ai new file mode 100644 index 000000000..682b3c260 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/figures/logo.ai @@ -0,0 +1,4043 @@ +%PDF-1.5 % +1 0 obj <>/OCGs[7 0 R 53 0 R 98 0 R 143 0 R 188 0 R 224 0 R 257 0 R 284 0 R 312 0 R 341 0 R 370 0 R 399 0 R 428 0 R]>>/Pages 3 0 R/Type/Catalog>> endobj 2 0 obj <>stream + + + + + application/pdf + + + Psycho_Julia_Logo + + + 2019-02-02T13:43:35+08:00 + 2019-02-02T13:43:35+08:00 + 2019-02-02T13:39+08:00 + Adobe Illustrator CC 23.0 (Windows) + + + + 224 + 256 + JPEG + /9j/4AAQSkZJRgABAgEASABIAAD/7QAsUGhvdG9zaG9wIDMuMAA4QklNA+0AAAAAABAASAAAAAEA AQBIAAAAAQAB/+4ADkFkb2JlAGTAAAAAAf/bAIQABgQEBAUEBgUFBgkGBQYJCwgGBggLDAoKCwoK DBAMDAwMDAwQDA4PEA8ODBMTFBQTExwbGxscHx8fHx8fHx8fHwEHBwcNDA0YEBAYGhURFRofHx8f Hx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8f/8AAEQgBAADgAwER AAIRAQMRAf/EAaIAAAAHAQEBAQEAAAAAAAAAAAQFAwIGAQAHCAkKCwEAAgIDAQEBAQEAAAAAAAAA AQACAwQFBgcICQoLEAACAQMDAgQCBgcDBAIGAnMBAgMRBAAFIRIxQVEGE2EicYEUMpGhBxWxQiPB UtHhMxZi8CRygvElQzRTkqKyY3PCNUQnk6OzNhdUZHTD0uIIJoMJChgZhJRFRqS0VtNVKBry4/PE 1OT0ZXWFlaW1xdXl9WZ2hpamtsbW5vY3R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo+Ck5SVlpeYmZ qbnJ2en5KjpKWmp6ipqqusra6voRAAICAQIDBQUEBQYECAMDbQEAAhEDBCESMUEFURNhIgZxgZEy obHwFMHR4SNCFVJicvEzJDRDghaSUyWiY7LCB3PSNeJEgxdUkwgJChgZJjZFGidkdFU38qOzwygp 0+PzhJSktMTU5PRldYWVpbXF1eX1RlZmdoaWprbG1ub2R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo +DlJWWl5iZmpucnZ6fkqOkpaanqKmqq6ytrq+v/aAAwDAQACEQMRAD8A9U4q7FXYq7FXYq7FXYq7 FXYq7FXYq7FWNeZPPui6NyhDfW74bfV4iKKf8ttwvy6+2U5Mwj73Va3tfFg2+qfcP0vLte8363rU tbmYxwKeUdtFVY1I6HxY+5zDnlMubyOr7Sy5z6jQ7hyTry3+Zup2HG31MG+tRQCQn98o/wBY/b/2 X35Zj1BHPdz9D27kx+nJ64/b+34/N6bpGu6Vq9v69hcLKo+2nR0PgyncZmRmJcnrNNq8eaNwNo/J OQ7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FUs1vzHpGiw+pfzhGIqkK/F I/8Aqr/E7ZCeQR5uJqtbiwC5n4dXmHmT8x9X1Tnb2dbGyNQVQ/vXH+U46fJfxzDyZyeWzyWu7by5 fTD0Q+35sNuLiC3iaaeRY413Z2NB+OVRiSaDqIQlM1EWWI6t5+Cv6emRh1B+KaUGhp2Vdj9JzY4t B1m77S9iWLyn4BMtF846df8AGKY/Vbo7cHPwMf8AJb+ByjNo5Q3G4cPV9lZMW8fVH8dGTWd9eWVw txaTPBOn2ZEJB+XyzEBI5OuxZZY5cUTRei+W/wA1Efhba4nBtgL2MfCfeRB0+a/dmXj1H856fQ+0 APpzf6YfpH6vk9Btrm3uYUnt5FmhcVSRCGUj2IzJBt6SE4zFxNhUws3Yq7FXYq7FXYq7FXYq7FXY q7FXYq7FXYq7FXYq7FXYqo3t9Z2Vu1xdzJBAn2pHIA+Xz9sBIHNry5Y448UjQedeZPzUduVvoScF 3BvZR8R/4xoenzb7sxcmo/mvMa72gJ9OH/TH9A/X8nn1zdXFzM9xcytLK5q8jksT8ycxSSXm5zlM 3I2SxfWfOthZ8orOl1cDaoP7tT7sOv0ZmYdFKW8tg7XSdkZMm8/TH7WD6lq1/qMvqXcpen2U6Ivy Xpm1x4owFAPSafS48IqApB5Y5DsVT3RvN2padxic/WbUbek53A/yW7Zi5tJGe/Ius1fZePLuPTLv /WzrSde03VErbSUlAq0D7OPo7/MZqsuCWPm8zqtFkwn1Dbv6Mk0TzHq+izepYTlFJrJC3xRv/rL/ AB65XDIY8l0uty4DcD8Oj0/y3+Y+kapwgvKWN6dgrn905/yXPT5N+OZmPODz2et0XbeLL6ZeiX2f Nl2Xu6dirsVdirsVdirsVdirsVdirsVdirsVdirsVcSFBZjQDck9AMVJYX5k/M3TLDlb6YBfXQqD ID+5U/6w+3/sdvfMfJqAOW7odd27jx+nH65fZ+34fN5jq+u6rq9x69/cNMw+wnREB7Ko2GYkpmXN 5TU6vJmlczbHNY8x6ZpakTP6k/aBN2+nw+nLcOmlk5cm3S9n5M3IVHvLBdZ806nqZKM3oWx/3RGd iP8AKPVv1ZtcOljDzL02k7Nx4d+cu8/o7kmzJdg7FXYq7FXYqujkkjdXjYo6mqspoQfEEYCL5olE EUeTK9F89zxcYdSUzR9BOv2x/rDo2YGbQg7x2dHq+xYy3x7Hu6M0s760vIRNayrLGe6np7EdQc1k 4GJoh53LhnjlwyFFlnlvz7rWi8YS31uxG31eUmqj/Ibcr8untk8eYx9zsNF2vlwbfVDuP6HqXl/z douuJ/okvC4Aq9rJRZB40H7Q9xmZDKJcnr9H2ji1A9J9Xceac5Y5zsVdirsVdirsVdirsVdirsVd irsVSDzF510XQ1ZJpPXvKfDaxEFv9kei/TlU8oi67W9qYtPsTcu4fjZ5b5i87a1rZaOWT6vZHpaR EhSP8s9X+nb2zDnlMnkNb2pl1GxNR7h+nvYtf6lZWEPrXcqxJ2r1J8FA3ODHjlM0A4eHTzymoC2F az55vLnlFp4NtCdjKf70/d9n6PvzZ4dDGO8ty9JpOxoQ3yeo93T9rF2ZmYsxJY7knck5nu5AprFL sVdirsVdirsVdirsVRNjqF5YzCa0laKTuR0I8COhHzyE8cZCiGrNghkFTFhmmjeerW44w6iot5eg mH92fn3X9WazNoSN47vOavsaUd8fqHd1/ayuCcqUngkoRRo5UP0gqwzA3Dpd4nuIZ55b/NG9teFv rCm6gFALlf75R/ldn/X88yMeoI5vQaHt+cPTl9Q7+v7XpOmarp2p2wubGdZ4j1KncHwYHcH55lxk DyeqwaiGWPFA2EXkm52KuxV2KuxV2KuxV2KoHV9c0vSLf17+dYV/YXq7HwVRucjKYjzcfU6rHhjx TNPMvMn5nanfcrfSwbG1O3q1/fsPmPsf7Hf3zDyagnls8pre3cmT04/RH7f2fjdhE06IrzTSBVFW eRzQe5JOUAEnZ0QBkaG5LEtZ89xR8odMX1H6G4cfCP8AVXv9ObDDoSd5u90nYpO+XbyYZd3l1dzG a5laWVurMa/QPDNnCAiKD0OLFHGOGIoKOSbHYq7FXYq7FXYq7FXYq7FXYq7FXYqmekeYdS0tgIJO UNfigfdD8vD6MozaeM+fNw9VoMeYeob9/VnWjea9N1LjHy+r3R/3S56n/Jb9r9earNpZQ35h5jV9 mZMO/wBUe8fpZLp2qahptyLmxneCYftKdiPBh0YexzHjIjk4mDPPFLigaL0jy3+aVpccLfWUFtMd hdJUxMf8oblPxHyzLx6gHm9Tou34y9OX0nv6fsZ5FLFLGssTrJG4qjqQykHuCMybeijIEWNwuxS7 FXYq7FVO4uLe2hee4kWKGMVeRyFUD3JwE0xnOMRcjQef+ZPzUiTlb6GnqN0N5IPhH+oh6/NvuzGy aj+a81rfaAD04d/6R/QHnV7fXl9cNc3kzzzv9qRzU/L2HtmKSTzeYy5ZZJcUjZYzrPnDTtP5RQn6 1dDbgh+FT/lN/AZlYdHKe52DsNJ2Vky7n0xYNquuajqcnK6l+AGqQrsi/IfxObTFgjDk9NptHjwj 0jfv6pflzlOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Kt4qyHRvOeoWPGK5rdWw2ox/eKPZu/yO YebRxluNi6nV9kY8m8fTL7GcaZrGn6lFztJQxH2ozs6/Nc1WXDKB3DzWo0mTCamP1Mm0DzXrOhyA 2c1YCavbSfFG30dj7jBDIY8m3R9oZdOfSdu7o9R8t+f9G1njDI31O+NB6EpHFj/xW+wb5bHMzHmE ve9doe2MWfY+mfcf0Fk+XO2dirEvMn5jaRpfKC0Ivr0bcUP7tT/lOK/cPwyjJnA5bul1vbWLDtH1 z+z5vL9c8yaxrU3qX05ZAaxwL8MSf6q/xO+Yc8hlzeS1Wuy5zcz8OjG9V13TdMStzJ+8IqsK7ufo 7fM5PFglPkum0WTMfSNu/owbWfN+pajyijP1a1O3pofiYf5Tfwza4dJGG53L02k7Kx4tz6pfjkEh zLdm7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYqr231yMtc23qKYKM80dfgqeIJYdK k0wSAIosZwEhRFhlejefGHGHVFqOguUG/wDslH8PuzXZtB1h8nQavsXri+R/Qf1sxt7m3uYlmt5F libo6mozWyiYmi8/kxygakKLMfLf5i6xpXCC6JvrIbcHP7xR/kOf1H8Mtx5zHnuHbaHtrLh2l64f b83qGh+ZdH1uH1LGcNIBWSBvhlT5r/EbZmQyCXJ67Sa7FnFwO/d1eB5rHzhhPmLzpdJcTWVivo+k 7RyTtQsSpoeI6D55tNPogQJS3ek0HZETETnvYumISSSSO0kjF3Y1ZmNST7k5sQAOTv4xAFDkswpd irsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir60/OuysrL8otbgs7eO2gX6rxihRY0 H+mQ9FUAZh4j6g5WT6XyXmY4qL07Vb/TpfVtJTGf2l6q3+sp2OV5MUZiiGjPpseUVMW9B8teY/0x HIrxelPCFMlDVDyruK7jp0zT6nTeGeexeU7Q7P8Ay5FG4l6b+VP/ACk7/wDMNJ/xJMjp/qcr2f8A 8Y/zT+hh2Y7o3kmt/wDHZv8A/mJm/wCJnOhwfRH3B7zR/wBzD+rH7kFlrkPp3U/y80XW/wAn7D9E aLYwa5qFjpjxXcdtEsoeVoGkYyqof7Jbm1ela5iiZEt3JMAYo6zb8pvypsoLG6uIE1UqrTTGMzXk jH9tgis0adeI2H04PVNPpi+d/P8AqtlrfnbVtS01jNa3twXt24srMGAA+FgGrmTAUHHkbL2byb+V PlDyZ5a/xR58WOa7VFke2nHOGAt9mMRb+rKdq1B36eOUSyGRoN0YACytX/nI7yUs5sx5dmGlE0Lg QV49K+h9n7P+Xj4J718UdyJ88/lX5R85+WP8UeSoo4r142nhS2X04rkL9qNogBxl2I2APLZvZjkM TRWUARYfOBBBoeuZLjvpj8uvJvlvWfyctrgaHYz6vcWd5HFcyW0LTGZZJo0b1SvKtVFDXbMWciJc 3JhEGKXab5U/LL8rdJtrzzh6eo+YrhPUFuUE5B7rBC3wgL09R+p6EdMJlKZ25IEYx5pto/59fljq kq6bd2cunW8jcUa7giNvuKDn6bSca9DVaDxwHFIJGWJS/wDNj8kNHvtLm17ynbpbX0KGeayg/ubi OnImJR8KvTcBdm8K4ceU8iiePqHzjmS472L8mvyWi8xwJ5g8whho5Yizs1JRrgqaMzsN1jqKbbn2 HWnJlrYN2PHe5Z7qn5wflX5Lun0nR7D1pbc+nN+jYYliUjqplJTmfGlfnXKxjlLcszkiEZo3mX8q fzTjl0+axQ6jwLG2u4ljugP2nhmQmtK/stXxGAxlBIMZPEPzY/LG48katH6Ltc6Ne1NlcPTmpX7U UlNuS169x9OX458QaJw4Uh8hRW03nfQILqBLm2n1C2hmglUOjrJKqEMrAgj4uhyU+RRHmH0N57/J vQ9d8weXYNP0+30vS4frUuryWUEcDOg9H005RqByLVAr0HIjMaGQgFvljBIX6z5//KPyvpd75d02 4t7eb6vLb+lZQvIocoVAkljVgW5HerE164iEjuplEbPOfyp81flHpfldrbzZZWtxqhuZHEk9gLpv SKqFHqGN9qg7Vy3JGROzXCUQN3v3nHUPLmneXLu88yRRzaLF6f1qKWH6wh5SqsdYiG5fvCvbbrmP EEnZyJEVu8c83+dvyJu/K+qW2j6dZR6pNbSJZSR6YsTLKVopWT0l4mveuXRjO92mUo08DzIaGY/l 1/fX3+rH+ts1vaPIPP8Ab3KHx/Q9o/Kn/lJ3/wCYaT/iSZh6f6nH9n/8Y/zT+hh2Y7o3kmt/8dm/ /wCYmb/iZzocH0R9we80f9zD+rH7kFlrkPs3yvqKaZ+Vek6lIKx2WhW9y4JpURWaud/9jmFIXL4u YDUXx7q2qX2ranc6lfyma8u5GlmkPdmNdvADoB2GZgFOITbMvyQ0GHWPzG01J1DwWXO9kQioJhFY /wDkoVyGU1FljFl6P/zkXa+b9Yv9L0jSdKvr3TreI3U8lrbTTRNPIxRVZkVhyRE6f5WV4aG5bMtl 41/yr/z7/wBS3qv/AEhXH/NGXcY72rhPc96/5xys/M2m6Pq+mazp95YQxTxT2YvIZIQxlVlkEfqB a09NSaePvmPmIJ2b8V9XiP5qaTFpX5h67ZRLwiFyZkSlAFuFEwAHgPU2y/GbiGiYovo/8iP/ACVO h/8AR1/1GTZjZfqLk4/pfMfnjzNc+ZvNOoaxO5ZZ5WFuprRIEPGJB8lA+nfMqMaFONI2UhyTF9Qf 844+ZrjVPJ9xpdzIZJdHmEcLNvS3lXlGv+xZXA9qZi5o0XJxGw8P88+WVtfzP1HQbYemk2oKluvZ VumV0ArTYCUZfGXptpkPVT6G/NnVh5P/ACvmt9Krbtwh0yxK7FFYcSajuIkah8cxsY4pN8zUXyTm Y4qN0bV73R9WtNUsZDHd2cqyxMPFT0PsRsR4YCLCQafVP5tWNp5l/Ke8vVT7FtFqlox3KcFEh++J mX6cxMZqTkzFxfNH5f8A/Ke+W/8Atq2X/UQmZU+RcePMPpr88fMt1oH5fXclnIYrq/kSxilBoy+q GZyp8fTRqeHXMXFG5ORkNB8jZmOK7FX11+e//kqdc/6Nf+oyHMPF9QcvJ9L5FzMcR2Ksx/Lr++vv 9WP9bZre0eQef7e5Q+P6HtH5U/8AKTv/AMw0n/EkzD0/1OP7P/4x/mn9DDsx3RvJNb/47N//AMxM 3/EznQ4Poj7g95o/7mH9WP3ILLXIfXX/AJQb/wAFb/u3Zh/x/Fy/4fg+RczHEes/840zxRfmBco/ 2p9Nmjj/ANYSwv8A8RQ5Tm5NuHm9D/Nr84fMXknzHBptnp9rcWtxapcJNN6nLkXdGX4WUbcPxyvH jEg2TyEFhP8A0M/5s/6tNh/yW/5ryfgBh4xd/wBDP+bP+rTYf8lv+a8fAC+MXmXm/wAz3nmjzFea 7eRpFc3hQvHFXgvpxrEoFST9lBlsY0KapGzb6h/Ij/yVOh/9HX/UZNmLl+ouVj+l8jsrKxVgVZTR lOxBHY5mOItxV9B/84s2kq2XmK7IPpTSWsSntyiWVm3+UozHz9G/D1Yb521S3/6GD+vEj0bbVtPE hr/yzCBH6+8ZycR6GMj63qP/ADkpaSz/AJewyoCVtdQgmlIFaKY5Yt/9lIMqw/U2ZuT5dzKcZ2Kv rvWwdI/I6e3udpIPL62jg7fvGtRB7/tNmGN5/FyztH4PmP8AL/8A5T3y3/21bL/qITMqfIuNHmHv n/OTn/KBWH/bVi/6h7jMfBzb83J8yZlOM7FX11+e/wD5KnXP+jX/AKjIcw8X1By8n0vkXMxxHYqz H8uv76+/1Y/1tmt7R5B5/t7lD4/oe0flT/yk7/8AMNJ/xJMw9P8AU4/s/wD4x/mn9DDsx3RvJNb/ AOOzf/8AMTN/xM50OD6I+4PeaP8AuYf1Y/cgstch9df+UG/8Fb/u3Zh/x/Fy/wCH4PkXMxxE/wDI nmd/LHm3TdbALR2sv+kIvVoXBSUD34Mae+RnGxTKJo2+j/zQ8h2f5keWbLU9DuYnvoFMunXFf3U0 UlOUTMK0NV2r0Ox6nMaE+E7uROPENnzjqH5feeNPuWt7rQr5ZF7pA8iH/VeMMjfQcyRMHq45iUTZ flf5/u7We7TRLqG2t4nnkluEMA4RqXPES8CxIG3EHAZjvXgLFsmxfXX5Ef8AkqdD/wCjr/qMmzDy /UXLx/S8l/Nb8mdai1efX/K9s2p6NqLfWRDaj1JIml+JuKLUvGxNVKjYbe5ux5BVFpnjPMMG0T8t PPWsXqWtrot0hYgNNcRPBCgPd5JAoH68sMwGAgS+ldMs9D/Kf8uW+sSiUWoaaeQfC1zdyDZUB/mo FXwUb98xSTOTkioh8m6lqN1qGpXWpXLVuruZ7iZxt+8kYuxH0nMsCnFJfV3lHXNG/M78upLK9cNc ywC11aEEepHMB8MoHuyiRD9HY5iSBjJyYkSD5581flN538vahJbPps99bciIL20ieWORex+AMUJH 7Lb5kxyAtEoEMp/Kr8k9e1TWbbU/MNi9jots4laC5UpLcMu6oI2owQn7RI3HT2hkygDZlDGSd2Wf 85HefrRNNXyhYyiS6ndJdU4mvpxoQ8cbU/aZqNTsB75DDDqzyy6PF/y//wCU98t/9tWy/wCohMvn yLTHmHvn/OTn/KBWH/bVi/6h7jMfBzb83J8yZlOM7FX2P5z02Tzr+WN1b6cVeXVbOG5tBUAMylLh FrWg5FQMwonhk5chcXypf+R/OWn289zfaHfWttbCs9xNbyJEoqFr6jKFO57HMsSB6uMYlI8kxZj+ XX99ff6sf62zW9o8g8/29yh8f0PaPyp/5Sd/+YaT/iSZh6f6nH9n/wDGP80/oYdmO6N5Jrf/AB2b /wD5iZv+JnOhwfRH3B7zR/3MP6sfuQWWuQ9G/wCV6+bv8I/4W+qWH6P+ofoz1fTm9b0fR9Dly9bj z49+NK9sr8IXbZ4hqnnOWNbsVZf5I/NLzb5OJi0ydZbB25SafcAvCWPVloVZD/qke9chLGJM4zIe lQf85T3CxgT+W0kk7tHeFF/4Ewv+vKvA82zxvJJdb/5yY80ahby2+m2FnYrIpR5G5XMgBFNuXFPv Q5IYQg5S8gy5pfXX5Ef+Sp0P/o6/6jJsw8v1Fy8f0vCPI353ebvKlqmn/BqWlxikVrc15RjwjkX4 gPY1HgMyJYgWiOQhmV1/zlLfNblbXy7FFcU2klumlSv+osUR/wCGyvwPNn43k8s84+ffM3m68Fxr N1zSMn0LWMcIIq/yJvv7kk++XRgByapSJ5sdyTFNfLnmfXfLepJqOjXb2l0o4sVoVdT1V0NVZfYj BKIPNIJHJ63pn/OUerxQKupaFBdzAUMkE7W4J8eLJP8Aryk4B3tozJX5k/5yR836lbvb6VawaPHI CDMhM04B/ldgqj58K/LDHCAg5S8nnnnuJpJ55GlnlYvLK5LOzMalmY7kk5c1IjR9TuNJ1ex1S3VH uLC4iuoVkBKF4XEihgCppVd6HARYSDTL/PX5w+ZvOmkQ6XqltZQ28Nwt0rWqSo5dEeMAmSWQUpIe 2QhjESylkJYJljB2KvSPy/8Azx8x+UbBNLkgj1TSoiTBBKxjkjqalUkAb4a9ip9sqniBbI5CE088 f85BXXmfy7eaJHoiWUN6qpJK1wZmHFw/wgRxD9nBHDRu0yy2KeR5c1Mx/Lr++vv9WP8AW2a3tHkH n+3uUPj+h7R+VP8Ayk7/APMNJ/xJMw9P9Tj+z/8AjH+af0MOzHdG8k1v/js3/wDzEzf8TOdDg+iP uD3mj/uYf1Y/cgstch2Kom10mW40yO9W/X6xLPPCLIW/IKsLDdpvWSnwyIfsk77DNFPtLP8AmZ4o 4wYwAN8Vc/KvIvRaDsL81iEoH1b7bffaX3kt3aJIJoKSjaJwWMLsdgA5UMpPZWUE9hmfj10JbS9E u4/ij8HXavsvNglwzDL/ACP5Jg1qyNzq8Oq2koAoZRFawOT19GP4pyP8p9jnGdre0eoxzrHPGR/R sn4nl8nfdn9jYpxucZ357fIc2RR/lL5eW49SS5u7mAVIs53Roi3blwRJGUfyl6Hvmqy+1WrnDgJA 8wN3Oh2Dp4y4hfuPJjEv5M6xp+iGPTNSSa/DqRHHFHbxlS37wkv63JqdKcR+rNtg9sBxgGPBj/0x /HzcDL7PekkS4p/IJJ5j0XWvL8llDe/Vpru9LsllbNJI6wxiryu7JGqha9xTr8VATm+0PtDj1JkY xMccep7zyA77dVqexp4gATc5dA9O8jfmv500jQNK8tWcVnYQxM8YuZIJL2QvPcNIOVJrVU3k4/Cs g71x1/aGWEJZY4/TEX6pUflR+Rou1wezeYQEsnpH6/iHklpL6tuknISBt1kAoGFdmAqeo3zfYZGU ASKJDymSIEiByVcsYOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxVmP5df319/qx/rbNb2jyDz/AG9y h8f0PaPyp/5Sd/8AmGk/4kmYen+px/Z//GP80/oYdmO6N4/ri+r5nmglMKWjXpeY3DtFHIqXALwm QDinNK7uyj38c/XZpw03pEt4847kbbGv7fc+k9iYoyjj4iNox2PXYO1nR7fR9ZbTbW8lvPq4b627 hREhcq0EUexdmSM/vGZt6j6KOwtbn1OPxMgAhyHea5k/odj2rpsWCXBA3Lr3eQQ+b51KK0e7W3um tJGCR3ciyW7sQqC4KiN0ZjsvrIqUY7ckANA1RpO0IHFkGoAuNcM651zB+H3EvU+zXagwZOGXI/j9 Xyp6h5L0PUdON5c3gEf1vhwhbiZFCVHxMvRd/hWppUnqc4L2i7SxanJHw7Ij16fAfeer2OaXHkMh dHv/AByZTFFLNLHDChkmlZUjjFKszGiipoBue+2aPTaaebIMcPqk4+bNHHAzlyCprto2iXX1S/u7 FZ1VXnIuVVLaN+RSS6aQIYUYRuQ3Eg8SBViqt0OT2U1AlECUSDzPc6mHbuIgkgivtV9W0TVtHmhi 1GOL/SFZ4JreQyxMEIDDkyRsGHIdVoa7E70we1exMmjAkSJQO1+bk6HtKGoJAFSCXT28FxG0U8ay RuCrKwBBB7fhmohklAgxNEOxp535+0y38vaf9esZZENy31WCNqukMkyMvqtKxqAoqVDVq/GhptnZ dkdo5tcRp8hFcyepAN1XX9VuF2tr8mLTkWSPt+f6+tMEjjSONY0FEQBVHgAKDPRQKfNybdMJTC4i IWUqfTY7gNTYn6cJQFe60vTV0GDV7a/LTTzpDwviFmtXgR2uoljhUG4Ll4wvFPs9SOucjHtHVfmv DnHeAO0eUrI4ef09b3eilo8HgccTtL+dzjXP39EPbtK8EbzJ6crKDIgNeLEbivtnWh54r8KHYq9y 8j/kT5J1jyV5f1e9lvzeajptnd3JS5KqZZ4Ekeg47Dkx2zWnPLvc7wo9yd/9C6fl9/vzUf8ApKb/ AJpwePPvXwo9zv8AoXT8vv8Afmo/9JTf804+PPvXwo9zv+hdPy+/35qP/SU3/NOPjz718KPc7/oX T8vv9+aj/wBJTf8ANOPjz718KPc8J88+VJvLXmLW/qDS3WgWF2IJEkJknt19CKT1eXV0rIeW3w9f HLsWfei15MXck6srqHQhlYVVhuCD0IOZrit4q7FWY/l1/fX3+rH+ts1vaPIPP9vcofH9D2j8qf8A lJ3/AOYaT/iSZh6f6nH9n/8AGP8ANP6GHZjujeSa4obWNQVgCpuJgQehHM50OH+7j7g95o/7mH9W P3JTGzIys37HC1nPU8lU/VX+TwJ6f+tF/lDNdpT4OaWE/TL1R/3w+e/+d5O41A8XEMg5j0y/R9n3 InNs690NrqN5qNjaabClxfSTpJHbzBjEwiPNjMVKkRrQFt9+nU0zWdsZ8ePTyM5GMSK25/Dzc7s7 FOeaPCLPny+L3qxS9S1jW9lSa7p++kiQxxlj/IhZyAPdjnjeQxMjwio+e5/Q+jwEq9W5U7XzLY2/ mO00y0uVfXWkV7a0RXlbmg9QK4QbVUdCRUZt+yNHq+OObDDi4T5AHoedOv1+o0/CcWSVX8fuRvn3 81YtI1e0t9bsI9Nu2hWa4tJbc3Au4KyxKszAf3XxScUqeLb1PTO1lqdeSOHCABz9Y393c80MOlAN 5DfT0lFecPO1ze2VhrWrW0ml6K8am0YxzPETchXV5J+ATdVHEUFN61rtqO28eu1URAYeGMTf1CRJ dh2ZPTYJGXiXI7ciEutrm2uoEuLaVJ4JBWOWNgyMPEMNjnEzxyhIxkKI6F6WMxIWDYSPzxca1b6J JJp2nQarDRhqFjNyLPARRvTVftHxHcdN8zuzIYpZQJzOM/wyHQ+bja2UxjJjET7x5PGLGn1WPi4d CKowJb4CaqOR3ai0Fe+ezYgRAAmzXN82yEGRoUqTSenGWCl32VI13Z3Y0VFHizGgw5MghEyPIIhA yIA5lSt4Asrbh/Q5Q+oDVXlLcriRe1DL8CnuiLmB2bEyicsueQ37o9B+kjvJcvWyAIxjlD7+v47k RmycJ2KuxV9bfld/5LLyj/2xdO/6hI81B5uxDJ8CuxV2KuxV4JrQB84+aQRUHUaEH/mEgwlXmHmn ys+gO+o6chfRHJa5tlFTak7mSMD/AHV/Mv7PUbdMnBnrYtOXFe4StWV1DoQysKqw3BB6EHM5xG8V Zj+XX99ff6sf62zW9o8g8/29yh8f0PaPyp/5Sd/+YaT/AIkmYen+px/Z/wDxj/NP6GHZjujeSa3/ AMdm/wD+Ymb/AImc6HB9EfcHvNH/AHMP6sfuS2ZQCZDG0sbIY7mBSA0kRIb4CdhIjqskZ/mArtXM bXaU5YgxNZI7xPn+o8j5Oy0ucY5VLeEti6JyCInkWUlRJDOgIWaIkhZVB+zuCGU7q1VOS0WrGaPd MbSHcUanTnHLvieR7wyr8rbPVZPNd7dxOi6fDAkdy5jrIWapSFHJoAT8b0Fdl8c5L2yy4xGMTvPo Og8z593vL0Hs5jlcpDaPXz8nrM7SLDI0Y5SKpKL1qQNhnn8QCRb1p5PDNG0PzzbWFv5/sIJTbQXq mHUtiXuQ3PnxryZeQozU4128c9rhCMIiMdgA+bwx5c06iDKcj8VXzXdecPN2sSa1rRR7yREjAHFF VEFFVVBIA7/M5KwHdR9mNbIWYge+QR1/rf5keZNF0TyO8TXdpZuqafbwqC7sqssYdwSKRoxVa0AH XEU4Gs7J1WnF5IER7+Y+YT38oYtTs5td0y+SSBrOSENayqVaOY+osgKncH4Fr8s4T2xxxE8ch9RE r+FV95dz7OTlwzB5Cv02zXzBa31zpM6WGoHS7xRzhvQqOqMu/wAayBlKH9rOU0s4RyAzjxx6jf7K 6u/zxkYHhlwnveFRx3cFxdw3xT64szyTiMKI6yn1OUZT4SjcuSkUFOw6Z7F2ZkxzwR4CeEd/MeRf OtdCccp4hv5cvgsErsUmiJWaRa2X+RG1Ue7PuRVIPesnZa42c/msnhj+6gfUe8/zf+K+XU1diH5e HGf7yX0+Q7/1fPutaONIo1jjUKiAKqjoANhm5Ap1pK7FXYq7FX1t+V3/AJLLyj/2xdO/6hI81B5u xCZ+YrzXLSwEmjWS312XAMbsFAXu3Va+HXArGf8AEX5n/wDUvwf8F/19xVO/LOpearySddc0xLFE AMMiODyJ6jjyf78VT/FXj+veQPPcnmfWr7T7OyuLLULoXEDy3bQuB6EUZDIIZKbxnvh2VBnyB+ZB BB0vTyDsQb9v+ybGgryzzl+XHmTybfQT3dtbWulakz+jaQXDT+jKg5PwrFFRGr9nsem22ZenyHk4 +aA5pDmY4zMfy6/vr7/Vj/W2a3tHkHn+3uUPj+h7R+VP/KTv/wAw0n/EkzD0/wBTj+z/APjH+af0 MOzHdG8k1v8A47N//wAxM3/EznQ4Poj7g95o/wC5h/Vj9yCy1yFIpHGGV43ktWcyssRAmhkIAM0F diSAOcZ+GQDsQCNZrNHMy8XCayD5SHcf0Hp8wc/TamNeHkFwPzHmPx+zov5UaTrFnHfXL3sV3ot4 RLZtDSkkpPF3IKJLGVVFQo5NDUdt/PvaTWY80x6ZRzDaV9PIdK8w9b2Np544n1CWM/TT0HOYd2hN Sgv5/LB8t2lxHb6X63rxwvEX9NuRcrEVePirMxJBrTtQbZ0+g9p82GIhMeIB50fnvbiafRww5/Gh sd9um7EX8j6wGoktuy/zFnU/cEb9ebQe1+Prjl8w7n+Up/zB/pv+Opz5V0PWdA1y21iC6t/rFrz4 RPE8qH1I2japDwnbntlWT2v29OP5y/Y4evyS1OI4iOESrz5G/LuT9gz3VxeSn1Ly8f1bq4KqrSOF CAtxCjZVCjboM5XW67JqcnHkO/2DyDi6bTQww4YrZ4IZ4ZIJ41lhlUpJG4DKysKEEHYgjMWMjE2N iG8gEUeTw7zL5U8v+XNZuLWykS8MhEkWlBSFiUiqi8lBq0aVqkezONmPGpPo/ZOt1WtwiIHAP4sn f/V8/PkPu47tDTYNNkMr4j0j3e/yQEaMGeSRzLPMxeaZqVdj32oAOwA2A2G2dbgwRxQEIigHnsuW WSRlLmV2WtbsVdirsVfW35Xf+Sy8o/8AbF07/qEjzUHm7EJ1q+t6Xo9qLrUrgW8JYIrEMxLHsFUM x+gYFSX/AJWX5J/6uX/JGf8A6p4q7/lZfkn/AKuX/JGf/qnirv8AlZfkn/q5f8kZ/wDqnirv+Vl+ Sf8Aq5f8kZ/+qeKslhmimiSaJxJFIoeN1NQysKgg+BGKvGf+clf94fL/APxnuP8Ak2uZGm+pqzfS 8KzYOGzH8uv76+/1Y/1tmt7R5B5/t7lD4/oe0flT/wApO/8AzDSf8STMPT/U4/s//jH+af0MOzHd G8k1v/js3/8AzEzf8TOdDg+iPuD3mj/uYf1Y/cgstchZPMsMLysCQilqDcmnYDxORlIAWUxFmntX k3RH0Xy3ZWMv+9QUy3ZrX9/KTJIAfAM1B7Z4r2nq/wAxqJ5OhO3u6Ppmi0/g4Yw7gnWYDlOxV2Ku xV2KuxV5R+ZegrputRavBtbas3p3K9lukSqsP+MkaGvuvvnofsf2kZROnl/DvH3dXkPaLRCJGUdd ixxbG9ZQy28rKwqCEYgg/RncW8vTf6Pv/wDlml/4Bv6Y2tO/R9//AMs0v/AN/TG1pnPlP8qb3zb5 YubzSHMWu6dLwuNPuPgWeJxyjeN2pxaoZaN8Jp1GVyyUd2yMLDDNY0TV9GvWsdVs5bK6TrFMpUke Irsw8CNsmCDyYEU+qPyu/wDJZeUf+2Lp3/UJHmpPN2AZDd2VleQ+jeW8dzDUN6cyLItR0NGBGBUF /hbyz/1aLL/pHi/5pxV3+FvLP/Vosv8ApHi/5pxV3+FvLP8A1aLL/pHi/wCacVd/hbyz/wBWiy/6 R4v+acVTJVVVCqAFAoANgAMVeMf85K/7w+X/APjPcf8AJtcyNN9TVm+l4VmwcNmP5df319/qx/rb Nb2jyDz/AG9yh8f0PaPyp/5Sd/8AmGk/4kmYen+px/Z//GP80/oYdmO6N5Jrf/HZv/8AmJm/4mc6 HB9EfcHvNH/cw/qx+5BZa5Dlsp9QuLfTbb/em+lWCJjWilty5oQaIoL7eGYXaOphgwSnLcAOVosE suWMY8yXueiaPa6Ppdvp1qXaKBaepIxeR2J5M7serMxJOeManUSzTM5cz+KfSMOIY4iI6I7KG1ok KCSaAbknpTCqUTecvKEEhjm1zT4pF+0j3UCsPmC+ZceztQRYxzI/qn9Tjy1eIGjOPzCYWWoWF9F6 1lcxXUX+/IXWRfvUkZj5MU4GpAxPmKboTjIWDaIytk7FXnv5r+XEmtYvMEJYy6eV+uQB24PAzUEh SvHlETyr/LX2zqvZbtAYs4xyA4Zcj3H3+bou3dIcmIzjzjz8wh9P/Oj8y9OsLbT7PWPStLOJILeL 6tatxjiUIi8miLGijqTnpxxxLxAySV/+V7/mt/1fP+nWz/6o4PCj3J8STv8Ale/5rf8AV8/6dbP/ AKo4+FHuXxJM98n/AJ7XumeWLrVPNt+2r6ndS8NK0uGOCFhHGPilkaJECK7nj8VT8Ow65XLFZ2Zx yUN3nHnv81/NPnIehftFBpytyisoUHFT2JkblIT9NPbLYYxFrlMl9Bfld/5LLyj/ANsXTv8AqEjz Vnm5wTPzFo1xq9gLWC/m09uYcywdSB+yd1NPkcCsZ/5Vrqf/AFM17/w//VTFXf8AKtdT/wCpmvf+ H/6qYq7/AJVrqf8A1M17/wAP/wBVMVd/yrbVP+pmvf8Ah/8AqpirN7eJooI4mkaVo1VWlenJiBTk 1ABU4q8a/wCclf8AeHy//wAZ7j/k2uZGm+pqzfS8KzYOGzH8uv76+/1Y/wBbZre0eQef7e5Q+P6H tH5U/wDKTv8A8w0n/EkzD0/1OP7P/wCMf5p/Qw7Md0byTW/+Ozf/APMTN/xM50OD6I+4PeaP+5h/ Vj9yCy1yFSx0+HUdb0q0lbgj3IeWTmUCwxK0k/JgQKNEjLvtvmo7czeHpZyqz0952H2ux7Lx8eeI 6dfd1e9xyRyxpLE4kjkAZHUgqykVBBHUHPHCCDR5vooIIsJf5g1200PS5L+5BfiQkMCfbllc0SNP dj93U7DMrRaOepyjHDmfsHewyZOEd55Ad57nmeoSajrcnr67L66k8o9OQkWkXgOH+7WH8719gBtn pvZ/ZOHSx9IuX848/wBjsdP2VE+rN65d38I+HX3n7F0UUUSBIkWNB0VQAPuGbN2sIRiKAoIdtNtR OLq3BtLxfsXdsTDMP9klKj2ao9sqzYIZY8MwJR83Ez9nYcm5jUv5w2PzH6dmaeTfNt3dXP6G1hlb UVQyWl2q8FuY0oGqo2WVKjkBsRuO4Hn3b3Yn5b95j/uz/sT+p004Twz8Oe9/TLv/AGj9o8phnNMn kX5tS6RN5gtkW4KX4hNjfWwaSKR4JwZInUqV5x15o9K7nfO69k4EgxnG8cjxRPdIbfA8qeX7flRu JqY2I7wf0MbAAAA6DYZ6C8g7FXYq7FXYq+tvyu/8ll5R/wC2Lp3/AFCR5qDzdiEz8xahq9jYCbS7 A6hclwpi5ceKnq3ifDbArGf8WfmD/wBS1/wzf1xV3+LPzB/6lr/hm/rirv8AFn5g/wDUtf8ADN/X FXf4s/MH/qWv+Gb+uKs3t3kkgjeWP0ZXVWkiJDcGIqVqNjQ7Yq8a/wCclf8AeHy//wAZ7j/k2uZG m+pqzfS8KzYOGzH8uv76+/1Y/wBbZre0eQef7e5Q+P6HtH5U/wDKTv8A8w0n/EkzD0/1OP7P/wCM f5p/Qw7Md0byTW/+Ozf/APMTN/xM50OD6I+4PeaP+5h/Vj9yCy1yEBrNrHNZsWR3ZQVRUqd3IWvG oDU677ZTnhcbqyOTbilR50Hu/lDWINY8u2t9b2zWkBMsMdu5DMq28rwCpXbf067Z4x2lpZYM8scj chzPmRf6X0nR5xlxCcRQP6NmOfmO7PrOhW7GsQjvbkL/AMWx+hErfQk7/fnS+x8AZZJdQIj53+oO ZpYiWpiD0jKXx9I+6RSLO4eidirsVUmdotR0i4Q8ZYtSs1RvaedbeQfTHKwzX9rQEtLkB/mSPyFh 1Xa8R4Ql1jOFfGQifsJevZ5I694l581ODVfNzkWDxPY+pZzzuUZGNvJygdf2gf3j9vDfPUPZXRzx YLJEoTqQ8j1/Q8P29qIzy0BUo7HzCV51boHYq7FXYq7FX1t+V3/ksvKP/bF07/qEjzUHm7EJ5qmr 6bpVt9Z1C4W3hLBQzV3Y9gBUnAqUf8rC8m/9XNP+Ak/5pxV3/KwvJv8A1c0/4CT/AJpxV3/KwvJv /VzT/gJP+acVd/ysLyb/ANXNP+Ak/wCacVZBHJHLGssbB43AZHU1BUioII7HFXjP/OSv+8Pl/wD4 z3H/ACbXMjTfU1ZvpeFZsHDZj+XX99ff6sf62zW9o8g8/wBvcofH9D2j8qf+Unf/AJhpP+JJmHp/ qcf2f/xj/NP6GHZjujYT5i8l3T3E17Yt63qu0kkDUDAsanieh+WbTT60ACMtnpNB2vEREJ7UKtiE kckbtHIpR1NGVhQg+4ObEEHk7+MgRY5LMKWS/lTrUuna3c6FOZXs7qP6xb3Esn7uORCxdEQ7Dnzr tTp75wXtd2cKGaI35Hbnf6nrPZ/WGzjPw8q/WzXz7oV3qOnwXunp6uo6a5lig2BmiccZogT0LCjL /lKM57sDtIaXP6vonsfLuP473p5SlCUckdzHp3jqP0jzAYPa3cF1CJYW5LUqw6MrDZlZTurKdiDu M9NBBFjk9HgzwyxEoGx+PtVsLc7FUV5T0yTXNcgvFFdI0qUyvP1Wa6UEJGh7iInkxH7QA8acv7S9 pxx4jhifXPn5D9rz2u1IzzEIbwgbJ75dAPdzPnQ72aecfMI0HQbi/WM3E68Eht1YK7GSVIiVrX7P qVzi+zdEdTmjjG1/qJ+2nB1upGHGZno8Q0+OdbcPPJJLNNxkkaYln5FFBDMxJO4757Lp8MccBGIo Pm+bIZysonL2p2KuxV2KuxV9bfld/wCSy8o/9sXTv+oSPNQebsQn99p1hfw+he28dzCCGEcqhhUd 98Cpf/g7yr/1abX/AJFL/TFXf4O8q/8AVptf+RS/0xV3+DvKv/Vptf8AkUv9MVd/g7yr/wBWm1/5 FL/TFU3REjRURQqKAqqooABsAAMVeMf85K/7w+X/APjPcf8AJtcyNN9TVm+l4rp2lX+oy+laRGQ/ tN0Vf9ZjsMzMmWMBZLrM+px4hczT0Hy15c/Q8cjPL6s8wUSUFEHGuwruevXNPqdT4h5bB5TtDtD8 wRQqIem/lT/yk7/8w0n/ABJMjp/qcr2f/wAY/wA0/oZl5k/LnSNU5T2gFjenfkg/dsf8pBT7x+OX 5MAPLZ3mt7FxZt4+if2fJ5frnlvWNFm9O+gKoTSOdfiif/Vb+B3zDnjMebyWq0OXAamPj0Y3quha bqaUuY/3gFFmXZx9Pf5HJ4s8ocl02tyYT6Tt3dGDaz5Q1LTuUsY+s2o39RB8Sj/KX+ObXDq4z2Ox em0nauPLsfTL8cixi+0+3vYwky141KHwYgjl9FdsyZwEhRdrGRB2ZloH5m63pym21mB9WiqSl7EY 0nBZdkaOiIVDA/Fy2BGxpnD9pex4keLARHlsftNvT6P2iIFZRfm6/wDMHkjWLie7u7a+0PUxH6j3 tv6RE3AqoUhTIkh+IAepGD7jKcWh7S0PDGBjOEjQifxt8C7HB2zhkTKBljkBZI6/oPxCWC+sB9jX XA8JtIndx82jnRD9AzcjU64c8F/5/wDx1y4+09D+8h8YH9EgFSK98nCOR9TvNQ1ZowpSwjgFlDLy cJuCwcgMwqHkpTscw9RPtLJIQjGGLj63Z/HwaMvbkMkSZzlKI6RHCP1/Mp1F+az2tobe08vCJYwE sYkuEWIIu1JKIvp0XoEV818vY3NKQMsgN/Ua3+/f7HBHtHjAIEKrl+OjC9WuNS1y+TUdZuPWuY+J gjRVSOEc+ZjSgqVrt8VTtnX9n9k4dLDhgO6/e87rO0MmeVyP9js2jguxV2KuxV2KuxV9S/ln5k8u w/lv5Uil1S0jlj0fT0kjeeJWVltYwQQWqCDmoI3diGS/4p8s/wDV3sv+kiL/AJqwUrv8U+Wf+rvZ f9JEX/NWNK7/ABT5Z/6u9l/0kRf81Y0rv8U+Wf8Aq72X/SRF/wA1Y0rv8U+Wf+rvZf8ASRF/zVjS u/xT5Z/6u9l/0kRf81Y0rzP84ptB1688uWkV5Ddost08sdvMjmgjWleBJAJw+IYCxzdZ2vqJYsBl HnskltbW9tCsNvGsUS9EUUGYUpGRsvAZMkpm5GyzHy3+XWsarwnugbGyO/Nx+8Yf5CH9Z/HLceAy 57B22h7Fy5t5eiH2/J6hoflrR9Eh9OxgCyEUknb4pX+bfwG2ZkMYjyeu0mhxYBUBv39U0yblqdxb 29zC8FxGssMgo8bgMpHuDgItjOEZCpCw8/8AMn5VxPyuNDf026mzkPwn/Uc9Pk335jZNP/Nea1vs +D6sO39E/oLzq9sbyxuGtryF4J0+1G4ofn7j3zFII5vMZcUscuGQosZ1nyfp2ocpYR9VujvzQfCx /wApf4jMrDrJQ2O4dhpO1cmLY+qLAdU0y902/Wwliae7kXnDDbK07ulaclSMM9K+IzPlrsMY8UpC I89nrdDP80LxAy+CWajb3sRZbizubVhESRcQSw7GaIVBdVB+jMDNrsOY4/DnGXrHI+Rdti0uTEJ8 cTH09fgiM3TrEJcKxuaqrOQifCil2P7+Poqgk5rdbkjDLjMjQs/7kubpoGUJgbnb70ZcR3dqgkvb K7s4jSk1zbTQx7mgHORVUH2JrlmHtPTZJcMMkZHyIYZNFmgLlCQHuazOcV2KuxV2KuxV2KuxVS+p 2n++I/8AgV/pgoJsu+p2n++I/wDgV/pjQWy76naf74j/AOBX+mNBbLvqdp/viP8A4Ff6Y0Fsu+p2 n++I/wDgF/pjQWyyHRvIEt9xluYEtbY71ZF9Rh7LTb5nMPNq4R2G5dTq+2IY9o+qX2M2sPKvl6xi EcNhAf5pHjVnPzYjNXkzSkbJecz6/NkNykf0Ml8s+QrnVLgPpmnxQIDxe89NY0UdxyAqfkMYQlJt 0uk1Gp2F8PeeT1ry35A0bRuM0i/XL4UPrygcVP8AxWm4X57nMvHhEfe9Xoex8WDc+qfef0Bk+XO2 dirsVdirsVQOr6Hper2/oX8CzL+w3R1PirDcZGUBLm4+p0uPNHhmLeZeZPyx1Ox5XGlk31qN/Sp+ /UfIfb/2O/tmHk05HLd5TW9hZMfqx+uP2/t/Gzzi68u2kl/NeCS6tLuULHcNb3E0HMR1ChlRgPhq e2YeXBjyUJxEq7xbjaLtrV6SPBimYhJNe8m313DS31S8njBDNZXdzLLExU1X7RPQio5V3y7R4dNi kJeHESHUDd22H2q1ExwZ5GUT+OTCruzurSYw3MTRSr1VhT6R450UJiQsO0xZY5BxRNhRjM0Nytzb XE1rcKpjEtvK8TFGIJUlCKiqjrlOp0mLOOHJESHm5WHUTxG4ExKrPfavcQSQXGqX0sEqlJYnuZSr KwoVI5dCMxIdjaSJBGOII8nIl2lqCKM5UoqqqoVRRVFAPYZswHBbxV2KuxV2KuxV2KuxV2KuxVM9 I8valqjAwR8Ya/FO+yD5eP0ZRm1EYc+bh6rX48I9R37urOtG8qabpvGTj9Yuh/u5x0P+Sv7P681W bVSntyDzGr7TyZtvpj3D9LJdO0vUNSuRbWMDzzH9lRsB4seij3OY8Yk8nEwYJ5ZcMBZekeW/yttL fhcay4uZhuLVKiJT/lHYv+A+eZePTgc3qdF2BGPqy+o93T9rPIoooo1iiRY40FERQFUAdgBmTT0U YgChsF2KXYq7FXYq7FXYq7FXYqkHmLyVouuKzzR+heU+G6iADf7IdG+nKp4hJ12t7Lxajcipd4/G 7y3zF5J1rRC0ksf1iyHS7iBKgf5Y6p9O3vmHPEYvIa3svLp9yLj3j9Pcxa/02yv4fRu4llTtXqD4 qRuMGPJKBsFw8OoniNwNMK1nyNeW3KXTybmEbmI/3o+77X0fdmzw66MtpbF6TSdswntk9J7+n7GL srKxVgQw2IOxBzPdyDbWKXYq7FXYq7FXYq7FXYqibHT7y+mENpE0sncDoB4k9APnkJ5IxFktWbPD GLmaDNNG8i2tvxm1FhcS9RCP7sfPu36s1mbXE7R2ec1fbMpbY/SO/r+xlcEBYpBBHUmixxIPoAVR mBuXS7yPeSzzy3+V17dcLjWGNrAaEWy/3zD/ACuyfr+WZGPTk83oND2BOfqy+kd3X9j0nTNK07TL YW1jAsEQ6hRuT4sTuT88y4xA5PVYNPDFHhgKCLyTc7FXYq7FXYq7FXYq7FXYq7FXYq4gMCrCoOxB 6EYqQwvzJ+WWmX/K40wixujUmMD9yx/1R9j/AGO3tmPk04PLZ0Ou7Cx5PVj9Evs/Z8Pk8x1fQtV0 i49C/t2hY/Yfqjgd1YbHMSUDHm8pqdJkwyqYpjmseXNM1RSZk9OftOmzfT4/TluHUyx8uTbpe0Mm Hkbj3Fgus+VtT0wl2X17Yf7vjGwH+UOq/qza4dVGfkXptJ2ljzbcpdx/R3pNmS7B2KuxV2KuxVdH HJI6pGpd2NFVRUk+AAwE1zRKQAs8mV6L5Enl4zakxhj6iBftn/WPRcwM2uA2ju6PV9tRjtj3Pf0Z pZ2NpZwiG1iWKMdlHX3J6k5rJzMjZLzuXNPJLikbLLPLfkLWta4zFfqlid/rEoNWH+Quxb59PfJ4 8Jl7nYaLsjLn3+mHef0PUvL/AJR0XQ0/0SLncEUe6ko0h8aH9kewzMhiEeT1+j7OxacekervPNOc sc52KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxVRvbGzvbdre7hSeB/tRuAR8/n74CAebXlxRyR4Z Cw868yflW68rjQn5ruTZSn4h/wAY3PX5N9+YuTT/AM15jXez5Hqw/wClP6D+v5vPrm1uLaZ7e5ia KVDR43BUj5g5ikEPNzhKBqQohi+s+SrC85S2dLW4O9AP3bH3UdPozMw62Udpbh2uk7XyY9p+qP2s H1LSb/TpfTu4ilfsv1Rvk3TNrjyxmLBek0+qx5hcDaDyxyHYqnujeUdS1HjK4+rWp39VxuR/kr3z FzauMNuZdZq+1MeLYeqXd+tnWk6DpulpS2jrKRRp33c/T2+QzVZc8snN5nVa3JmPqO3d0ZJonlzV 9am9OwgLqDSSZvhjT/Wb+HXK4YzLkul0WXOagPj0en+W/wAuNI0vhPeUvr0bhnH7pD/koevzb8Mz MeADnu9bouxMWL1S9cvs+TLsvd07FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYqlmt+ XNI1qH07+AOwFEmX4ZE/1W/gdshPGJc3E1WixZxUx8erzDzJ+XGr6XzuLOt9ZCpLIP3qD/KQdfmv 4Zh5MBHLd5LXdiZcXqh64fb8mG3FvBcRNDPGskbbMjCo/HKoyINh1EJygbiaLEdW8ghn9TTJAik/ FDKTQV7q25+g5scWv6Td9pe26FZR8QmWi+TtOsOMsw+tXQ35uPgU/wCSv8TlGbWSnsNg4er7VyZd o+mP46sms7G8vbhbe0heed/sxoCT8/lmIATyddixSyS4Yiy9F8t/lWicLnXH5tsRZRn4R7SOOvyX 78y8en/nPT6H2fA9Wb/Sj9J/V83oNtbW9tCkFvGsMKCiRoAqgewGZIFPSQhGAqIoKmFm7FXYq7FX Yq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FWNeZPIWi6zymC/VL47/WIgKMf8tdg3z6 ++U5MIl73Va3sjFn3+mfeP0vLte8oa3ostLmEyQMaR3MVWjYk0A8VJ8DmHPEYvI6vs3NgPqFjvHJ OvLf5Zanf8bjUybG1NCIyP3zD/VP2P8AZfdlmPTk89nP0PYWTJ6snoj9v7Pj8npukaFpWkW/oWFu sSn7b9Xc+LMdzmZGAjyes02kx4Y1AUj8k5DsVdirsVdirsVdirsVdirsVdirsVf/2Q== + + + + uuid:4cddb078-3f4e-4e03-ab9c-94a2865c7778 + xmp.did:1b413350-029c-ad45-abe3-a3671450f82f + uuid:5D20892493BFDB11914A8590D31508C8 + proof:pdf + + uuid:baf31d68-9055-47dc-ac13-d4af6250d2b0 + xmp.did:df2d8e3f-f65e-d047-9f0c-8e22f184cd78 + uuid:5D20892493BFDB11914A8590D31508C8 + proof:pdf + + + + + saved + xmp.iid:df2d8e3f-f65e-d047-9f0c-8e22f184cd78 + 2018-08-29T17:40:20+02:00 + Adobe Illustrator CC 2015 (Windows) + / + + + saved + xmp.iid:1b413350-029c-ad45-abe3-a3671450f82f + 2019-02-02T13:39+08:00 + Adobe Illustrator CC 23.0 (Windows) + / + + + + Print + Document + Adobe PDF library 15.00 + 1 + False + False + + 4.389967 + 5.080000 + Centimeters + + + + + MyriadPro-Regular + Myriad Pro + Regular + Open Type + Version 2.106;PS 2.000;hotconv 1.0.70;makeotf.lib2.5.58329 + False + MyriadPro-Regular.otf + + + + + + Cyan + Magenta + Yellow + Black + + + + + + Default Swatch Group + 0 + + + + White + RGB + PROCESS + 255 + 255 + 255 + + + Black + RGB + PROCESS + 35 + 31 + 32 + + + CMYK Red + RGB + PROCESS + 236 + 28 + 36 + + + CMYK Yellow + RGB + PROCESS + 255 + 241 + 0 + + + CMYK Green + RGB + PROCESS + 0 + 165 + 81 + + + CMYK Cyan + RGB + PROCESS + 0 + 173 + 238 + + + CMYK Blue + RGB + PROCESS + 46 + 49 + 145 + + + CMYK Magenta + RGB + PROCESS + 235 + 0 + 139 + + + C=15 M=100 Y=90 K=10 + RGB + PROCESS + 190 + 30 + 45 + + + C=0 M=90 Y=85 K=0 + RGB + PROCESS + 238 + 64 + 54 + + + C=0 M=80 Y=95 K=0 + RGB + PROCESS + 240 + 90 + 40 + + + C=0 M=50 Y=100 K=0 + RGB + PROCESS + 246 + 146 + 30 + + + C=0 M=35 Y=85 K=0 + RGB + PROCESS + 250 + 175 + 64 + + + C=5 M=0 Y=90 K=0 + RGB + PROCESS + 249 + 236 + 49 + + + C=20 M=0 Y=100 K=0 + RGB + PROCESS + 214 + 222 + 35 + + + C=50 M=0 Y=100 K=0 + RGB + PROCESS + 139 + 197 + 63 + + + C=75 M=0 Y=100 K=0 + RGB + PROCESS + 55 + 179 + 74 + + + C=85 M=10 Y=100 K=10 + RGB + PROCESS + 0 + 147 + 69 + + + C=90 M=30 Y=95 K=30 + RGB + PROCESS + 0 + 104 + 56 + + + C=75 M=0 Y=75 K=0 + RGB + PROCESS + 41 + 180 + 115 + + + C=80 M=10 Y=45 K=0 + RGB + PROCESS + 0 + 166 + 156 + + + C=70 M=15 Y=0 K=0 + RGB + PROCESS + 38 + 169 + 224 + + + C=85 M=50 Y=0 K=0 + RGB + PROCESS + 27 + 117 + 187 + + + C=100 M=95 Y=5 K=0 + RGB + PROCESS + 43 + 56 + 143 + + + C=100 M=100 Y=25 K=25 + RGB + PROCESS + 38 + 34 + 97 + + + C=75 M=100 Y=0 K=0 + RGB + PROCESS + 101 + 45 + 144 + + + C=50 M=100 Y=0 K=0 + RGB + PROCESS + 144 + 39 + 142 + + + C=35 M=100 Y=35 K=10 + RGB + PROCESS + 158 + 31 + 99 + + + C=10 M=100 Y=50 K=0 + RGB + PROCESS + 217 + 28 + 92 + + + C=0 M=95 Y=20 K=0 + RGB + PROCESS + 236 + 41 + 123 + + + C=25 M=25 Y=40 K=0 + RGB + PROCESS + 193 + 180 + 154 + + + C=40 M=45 Y=50 K=5 + RGB + PROCESS + 154 + 132 + 121 + + + C=50 M=50 Y=60 K=25 + RGB + PROCESS + 113 + 101 + 88 + + + C=55 M=60 Y=65 K=40 + RGB + PROCESS + 90 + 74 + 66 + + + C=25 M=40 Y=65 K=0 + RGB + PROCESS + 195 + 153 + 107 + + + C=30 M=50 Y=75 K=10 + RGB + PROCESS + 168 + 124 + 79 + + + C=35 M=60 Y=80 K=25 + RGB + PROCESS + 138 + 93 + 59 + + + C=40 M=65 Y=90 K=35 + RGB + PROCESS + 117 + 76 + 40 + + + C=40 M=70 Y=100 K=50 + RGB + PROCESS + 96 + 56 + 19 + + + C=50 M=70 Y=80 K=70 + RGB + PROCESS + 59 + 35 + 20 + + + + + + Grays + 1 + + + + C=0 M=0 Y=0 K=100 + RGB + PROCESS + 35 + 31 + 32 + + + C=0 M=0 Y=0 K=90 + RGB + PROCESS + 64 + 64 + 65 + + + C=0 M=0 Y=0 K=80 + RGB + PROCESS + 88 + 89 + 91 + + + C=0 M=0 Y=0 K=70 + RGB + PROCESS + 109 + 110 + 112 + + + C=0 M=0 Y=0 K=60 + RGB + PROCESS + 128 + 129 + 132 + + + C=0 M=0 Y=0 K=50 + RGB + PROCESS + 146 + 148 + 151 + + + C=0 M=0 Y=0 K=40 + RGB + PROCESS + 166 + 168 + 171 + + + C=0 M=0 Y=0 K=30 + RGB + PROCESS + 187 + 189 + 191 + + + C=0 M=0 Y=0 K=20 + RGB + PROCESS + 208 + 210 + 211 + + + C=0 M=0 Y=0 K=10 + RGB + PROCESS + 230 + 231 + 232 + + + C=0 M=0 Y=0 K=5 + RGB + PROCESS + 241 + 241 + 242 + + + + + + Brights + 1 + + + + C=0 M=100 Y=100 K=0 + RGB + PROCESS + 236 + 28 + 36 + + + C=0 M=75 Y=100 K=0 + RGB + PROCESS + 241 + 101 + 34 + + + C=0 M=10 Y=95 K=0 + RGB + PROCESS + 255 + 221 + 21 + + + C=85 M=10 Y=100 K=0 + RGB + PROCESS + 0 + 161 + 75 + + + C=100 M=90 Y=0 K=0 + RGB + PROCESS + 34 + 64 + 153 + + + C=60 M=90 Y=0 K=0 + RGB + PROCESS + 127 + 63 + 151 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +endstream endobj 3 0 obj <> endobj 9 0 obj <>/Resources<>/ExtGState<>/Font<>/ProcSet[/PDF/Text]/Properties<>>>/Thumb 434 0 R/TrimBox[0.0 0.0 124.44 144.0]/Type/Page>> endobj 430 0 obj <>stream +HWˎ W^ܲHIN @n Ȣ1/sΡnw d,K,C_wz(7{8w,ƿ3:O?}>~>,g_jKu5R x_7]9o]Wrk5x=r/qd<~[(LY [K͏ol)_c/8ĩU<v_zIk;e1l ^k۟~|xGi-\ o SfxݽѮ1[.Oc_zX^=EJ?C~Ut(ʠ{h3(ؼ1O;Fm(/fB>!kWmZt 2Ätz=Χca;vuܸ%%D] -~&y*P|mNws3i ӄw[y]RIr)W^ u޼&7#m{EU2o/Qgl~3ImZU[I74@*pRGqޞqlˋ_y: R6~+-WnEjNkz՗bp*?5V +,F|Z g.F"Zxרj)t N93SoW3*By&,=S<#>Z%cJeU)v| ˫w+ZJ`ii`+BO uw"X J,`WV"-f g*Ryx`POGǗ:BB@)+Cd1iK~!<3RəRXi\j"(j$322tJum[J^LlI6ȑZ;r#Z k\ae  .Ct4@J  Py̗m.ٚ$AGtD2>}87yuKk2ڔƲdhW9L~b0J**Fy9M_rdHdCڅ2WMAzPǶ +F['HiEVӊeS&Hq"֊.k3ߖXО>2^W[hneEdOeh2rfWF[c`ZS;hOE:jLuXD4b" %^싃FJ[BWD6c'LNP0KFi` +cC]{*٢$=3M X"HԵ%EdYT&X`+ + .(5FsJ6,,6XJf @F^iA_d0E6y."ʖ-3N\T$],T^iS" T/!P]XEbjBH-+%E94iE68(="'mTlOU8LRUmP [LhlpP Z=*E\6-M;<'K/XTDu <{Ys_r +s6u5&ͅߢF攻7-hg!֊PUVήCd&jʁho'Da4#!XЕ5QuL-VScGʓYcc1Z¹\MdeN_YG7|#'Fl~{X* -N95&M0udfŖ i2oMjDhT9]k|Bڦ>ҐСPdz7&{ć{ $q34Z-!4#(ŧF͊S& +(gLTm`a8rKvFFV66 upfV.[9=RRe*BV#PاLYI.aX#!!݄5 ## 8ɛM +H *Oa# &UD"]KVF#-ֆF@=}v +R׸X,-[6w4sVuؕ}.LN^1$ԆJ>9DDnj;JimtG"`#F(jƖjTW q_&_Cc%PyZre@M%T3)\ (}:s'yѹ 'jNyN"t,a:#$}zVMb5$M9C=jsxOhH̫z_I~ZXA6a%u$ %C@zc7%i49B}eø9%1u@[k9^bm>8ǰ?Bh4m,`&~>K]T?'yG +>zytruy5ZSʿgKu4-N# SH  +M=}{JWNV:3i"[fDzۣV Hs{ +>않d(5e\]s)j-S!f؃&R] |#.17vRҦMPޣ"܂8$ZUt( ~UnJD6u#ʙ)X wWYS^/vqehƉ[.¥Qx׳L>/JRiN[™lu=A:Kv+ze| fP}f㻑9sx0 {z{#;\O+i +>Tk| ۭ]Ե.tǿGܬUTohE=a|s dgഗQ;o>/(Zޑ{=8 #28 -%+X0_2 li[PZO3Da: @iXrT*eb RITRa}o˯^URv,WH`Ka/t\;cKvIKaOy%~k8p@"Pۜ!9+MiKIP}y9)||3DudpRA.o +WlO(?ܓglj9,`Ix%;X"P͢qh3,}%"-. 3zӑ,DCMƵ!xrpWY٬G3ײ~rqBl`Q _/2be{E6/cyǩp[q8s6nѤsTH\Zdw-ұQ-uMܸd\25ϸ+MQ~qŬ+̲ό |g1Z@*" +eX4g5ہ\ZoU.wԄ2iڋk*a@ݎmĻEOƊ02k(t(BU7.NdLJdҒ'%#IRV3P!(-/*uSzR΋2} +1nu!R7'ǒ85`B7՝}&k U 4,xq5*YOPsTs#|2=S՘]^nN90t r8+8PF nMO%g yguNz[z20*UÜIo9w_ha4"I-*v +us5L&f)w]]ݯpB#&{3֬|ƭ[ `+Yu9iMn&I6>?D#TgȵZUxzڛ# `ָx#CޝٍIQEe`l&DUcZi5 R%>|-* A Yg!LϬ]ME܄>7ET% 23,y@va_% #HX0'ë#S⾑c=>nP 0~| &75"Y m+K ]'wө_\5 +޿h G}7hfH/~Pݞc-.0x14xr6K|S?B.yKa6#L9g9&ӾCP OT~~G0nÕVl G~b!$4D %KO)<4!ɉp_Q2HYm +pcybhKUͅ&i%*0 dԭvV-Ub@9Jw?ߙӿ+r QE=\ri{6?SV5,B"0yLuY޻O:+M2XPnFRD6g>! +x "-nCf pIg#Wmj{nLח4Aͮ= "H<1mn~|kB븷"FJ@q.+ar ߅'42~`dŸ؊Pj<%-:@fS"hVN %>ꌴV`mEGњ`3?D۷E:,`M__N:1gUՒDF,;0̳ +ak?AQo+JrPaz T-.\.ε!Kǣ[{-]I]'MCXe,=@*Z=*-kdfbC2 xo.rijW,?ChxSYݑ͠]mn]UD8&8D9]¯řmWDd |Lt;?b*az%tZu.L D ء#>9%&\GͥE\Mϼ\4u: t>z'Ν_eY&A<9emdgyTlkxY-/9 +K^fpޮ4KL" pYj/OQzbkt%"rb)oه2뒩P:Yk d1%r{X 蹔ohid?=ҐKEh3My%cUw,vkڙRxտELI)w*P[]MY%$SZY<=jrzHBpVE:]5|k-r>u$%t;gWnm8ײ)ڳ-o^m*G=ȪI:;(rKen& 7ztx%+a:u=ZN+j"űkRR3lBۨAA=/\j2C!)6Һk۞8W?ÍxdSBrj'Er2RTBzOCWf$fqA +G4A1oj[TH᯦顇2ZhJQYBvж9zɰtѤl'%kRbǻBP''q;-徤NdkЭ}OvXrVj\CEJӣ=6Q<tWhorqM'g2//NGKGCCV%PZѯ[7{j+0? fxeRa`8SM}&ZajT_m'e*Ou%v/ Ɨ5Dw Q(3ɿǚ+᧣W3ꦴ %ضP&T,GgO i!+9HnvjN8{"2G@}ܛ[n)uNgg@]?7K)pdAJVʻ%#J\XG8L  (;d)' c:aAIꣵ#; E]MHvE8 9kAp׏} $?/$SzɌV"Z!"4p 0>t~RonEBNԶH2*<' +Ґ\lݻmuykRNq2I +f20!Ir9.7$hNS]5Ǿx!vdeqe̒JFPεw!\:>ab6;<5gp +g|8 w|=${c8wyL-;ɢeFoOݕg`c +OV&/-CD9kC")!Nș g<β[ד06G9IںŌ`.B8PtGBs Jq+`k.n"ZwEo"o#A-|aTlz6J*r&q/xTḬHh*/L X'׻O +ӭ :6 [v{hi.&{PˇRXXG@v]yjszdbc+mVNVx#M{VDQ/1|*P?z ]S !ḝ gau@:2c16Ƨ;< +|0 P3a.%Tl|w"ga.pgY]?Ww\y^@* EW6pZ ~W;o֌^+6k):jQj<)9۳xp9KhTy-, JP}~O^LGQw%e8["rKɜG/sz2`?lD^O3Ea'DӴC:J"Su(Ī!F?!?n^!Ne6oջ?!Rv njY_%X +xxS~KsxЎ#%-7g\Å-Eo(Dϴ2ܚW.|ؔZ2-H9ሧ5s^QIծ9TT?q RYs=y7a\gK-<'%b!;Y4.ډr~[}%"-.kL{J,DC&9)xxWY#Y3m|sU.(0RF,C7`^c{ǥr[q9ds{lcVr4S~b*[CvW"=zzvj۳ %v25xGj +{fuD*~gS O5Qe- A**e?UF[%׼' z#PzްUnyszU0W^Tw;&j啡{c\5EhjU3yOkiJ@>\~~սVYHnNJë%m8sY%wϫ M@âːef+1ILş9:aw+5 4#w隬T5BʉYлP$>ͧ^-X6r<0^^;̬}UiOpV<%>(~uc^o.:Fк&E%SʳN.4pvLќ~ +vQgvnJʦp +‘Ƥݏfq9={,s{\{~]ЛWf^1l-kK}HRQx_ FB,$Ă~UbX˕Np,5=s?2Mfltm?!6^$E_$V~՚$_aBs}!݈"x5 +v/d B0p  +#Al7 /5EUHmZˑ$]D!:"Ft0<7Yj4A|(#ev*&A]9ԋk2$ bM2~{"Hxƿv[錰*_iH + +Su,av1:e"|N*Խg6z;0$yI׹ƦxHBζo/fmmxCunvŒշtO:!LսG6)?r{ Ά+=Kj`dKulU ++0btC ޲p)Gp9 auƔ)nCh(G!a +)>i`fmlRxl3 p@ͅdTY#ًu{W@){& kAX2AdIW'xeJt)DIXѹX:=g_(XKTovi8T"}y`TF߈pc0pxjH}d?;ڹ:0Zoy@0ڒ5NHΤ.) G4D`du%Cyu>mZWu1 DtP~B|Rԗc,J:E J(YajK!hSoKAݙnVQs^FEq{l!:ݧ`5#,L,[ JYY C:At^i(;͢>M?cN; EĈlA8zYpeH;(`h}`"OQUH ɍ=_GS 4yɲRd/͈ +nJۇB9\,v᜖#6sZ*F*VՔ.ōT5ib&$퉝l]2]+k$ cGt"V/iS^g_쪯Pbem%ZJ#II$6XܱȚÃ;ͫgua,,KbER%Y +, $ihA| 0{cɏb JՒ.{־-'jϵs|Đ'"/Kӎ!/L/Wy=W("+N]abva8R2f[$^8c.o oI;/vsmɌ,tja)Ms݅J]hxIzVӝbZs6|,eA۰Ԏy9M1EĒ2!sQfA5)Eb.ZF9Ԗ=`_jXT\@%ȨU=zLȥ9¢|S@*?0.=>,vB/xƼ~ψWy\v$ +IX>ۗoiG"­p'J₷$P4wL7$n!%,lӗ`g< +endstream endobj 434 0 obj <>stream +8;UkQ_%FR=#h'c"!F?0WDo",UV(6YZ]X*4@#rkNRW,-jIFQ,Q#9MXjRDqkg?*p'`! +6$%saP"2?2Stk]bPmE_YjM`D5QUBm`@c^c!fK\#4":@=!#_opY!1QT_D7Sc(j1s&: +o9D>5A#07qj`8af'E^!p'.rl9F\f+-[XT7"cT(toB4i^~> +endstream endobj 435 0 obj [/Indexed/DeviceRGB 255 436 0 R] endobj 436 0 obj <>stream +8;X]O>EqN@%''O_@%e@?J;%+8(9e>X=MR6S?i^YgA3=].HDXF.R$lIL@"pJ+EP(%0 +b]6ajmNZn*!='OQZeQ^Y*,=]?C.B+\Ulg9dhD*"iC[;*=3`oP1[!S^)?1)IZ4dup` +E1r!/,*0[*9.aFIR2&b-C#soRZ7Dl%MLY\.?d>Mn +6%Q2oYfNRF$$+ON<+]RUJmC0InDZ4OTs0S!saG>GGKUlQ*Q?45:CI&4J'_2j$XKrcYp0n+Xl_nU*O( +l[$6Nn+Z_Nq0]s7hs]`XX1nZ8&94a\~> +endstream endobj 428 0 obj <> endobj 437 0 obj [/View/Design] endobj 438 0 obj <>>> endobj 427 0 obj <> endobj 439 0 obj <> endobj 440 0 obj <>stream +H|PkHaqLrN|QG XmieXQlfWK{&`H$+Ȍ" |R_{s$G$9)ۊɬHSgQ'14_ZD3993OB?4ϗWsrheBBLq>@1>C)f>C";fC[y!LvR† AbCŞ $9y_.1pOXҭІLV +م v٢Vwsh 2sل\It_Gl'更'{%gy4FʸMU/9'SN +<F(32UzH2aK7:;}PU%eA!]Q宽:dᰡeY]mtΑ&?@[AW2j3^`G4Ko*hJi0Ƒa. F,B,JdZb=^vT'Bv gP5=_3@:X $r9~.U'RBӢSӎzɌ'J'EEQp-jt Yʃ;^ GAx +endstream endobj 433 0 obj <> endobj 432 0 obj [/ICCBased 441 0 R] endobj 441 0 obj <>stream +HyTSwoɞc [5laQIBHADED2mtFOE.c}08׎8GNg9w߽'0 ֠Jb  + 2y.-;!KZ ^i"L0- @8(r;q7Ly&Qq4j|9 +V)gB0iW8#8wթ8_٥ʨQQj@&A)/g>'Kt;\ ӥ$պFZUn(4T%)뫔0C&Zi8bxEB;Pӓ̹A om?W= +x-[0}y)7ta>jT7@tܛ`q2ʀ&6ZLĄ?_yxg)˔zçLU*uSkSeO4?׸c. R ߁-25 S>ӣVd`rn~Y&+`;A4 A9=-tl`;~p Gp| [`L`< "A YA+Cb(R,*T2B- +ꇆnQt}MA0alSx k&^>0|>_',G!"F$H:R!zFQd?r 9\A&G rQ hE]a4zBgE#H *B=0HIpp0MxJ$D1D, VĭKĻYdE"EI2EBGt4MzNr!YK ?%_&#(0J:EAiQ(()ӔWT6U@P+!~mD eԴ!hӦh/']B/ҏӿ?a0nhF!X8܌kc&5S6lIa2cKMA!E#ƒdV(kel }}Cq9 +N')].uJr + wG xR^[oƜchg`>b$*~ :Eb~,m,-ݖ,Y¬*6X[ݱF=3뭷Y~dó ti zf6~`{v.Ng#{}}jc1X6fm;'_9 r:8q:˜O:ϸ8uJqnv=MmR 4 +n3ܣkGݯz=[==<=GTB(/S,]6*-W:#7*e^YDY}UjAyT`#D="b{ų+ʯ:!kJ4Gmt}uC%K7YVfFY .=b?SƕƩȺy چ k5%4m7lqlioZlG+Zz͹mzy]?uuw|"űNwW&e֥ﺱ*|j5kyݭǯg^ykEklD_p߶7Dmo꿻1ml{Mś nLl<9O[$h՛BdҞ@iءG&vVǥ8nRĩ7u\ЭD-u`ֲK³8%yhYѹJº;.! +zpg_XQKFAǿ=ȼ:ɹ8ʷ6˶5̵5͵6ζ7ϸ9к<Ѿ?DINU\dlvۀ܊ݖޢ)߯6DScs 2F[p(@Xr4Pm8Ww)Km +endstream endobj 431 0 obj <> endobj 442 0 obj <> endobj 443 0 obj <>stream +%!PS-Adobe-3.0 +%%Creator: Adobe Illustrator(R) 17.0 +%%AI8_CreatorVersion: 23.0.1 +%%For: (Dom) () +%%Title: (logo.ai) +%%CreationDate: 2/2/2019 1:43 PM +%%Canvassize: 16383 +%%BoundingBox: 0 -323 125 -178 +%%HiResBoundingBox: 0.000012664794667 -322.015014648438 124.440010070801 -178.014984130859 +%%DocumentProcessColors: Cyan Magenta Yellow Black +%AI5_FileFormat 13.0 +%AI12_BuildNumber: 540 +%AI3_ColorUsage: Color +%AI7_ImageSettings: 0 +%%RGBProcessColor: 0 0 0 ([Registration]) +%AI3_Cropmarks: 0 -322.014999999999 124.440000000001 -178.015 +%AI3_TemplateBox: 62.5 -250.5 62.5 -250.5 +%AI3_TileBox: -199.380006103515 -634.974991455078 323.820006103515 134.944991455078 +%AI3_DocumentPreview: None +%AI5_ArtSize: 14400 14400 +%AI5_RulerUnits: 4 +%AI9_ColorModel: 1 +%AI5_ArtFlags: 0 0 0 1 0 0 1 0 0 +%AI5_TargetResolution: 800 +%AI5_NumLayers: 1 +%AI9_OpenToView: -190 -118 3.91666666666667 1473 887 18 0 0 111 123 0 0 0 1 1 0 1 1 0 1 +%AI5_OpenViewLayers: 7 +%%PageOrigin:-244 -646 +%AI7_GridSettings: 72 8 72 8 1 0 0.800000011920929 0.800000011920929 0.800000011920929 0.899999976158142 0.899999976158142 0.899999976158142 +%AI9_Flatten: 1 +%AI12_CMSettings: 00.MS +%%EndComments + +endstream endobj 444 0 obj <>stream +%%BoundingBox: 0 -323 125 -178 +%%HiResBoundingBox: 0.000012664794667 -322.015014648438 124.440010070801 -178.014984130859 +%AI7_Thumbnail: 112 128 8 +%%BeginData: 23543 Hex Bytes +%0000330000660000990000CC0033000033330033660033990033CC0033FF +%0066000066330066660066990066CC0066FF009900009933009966009999 +%0099CC0099FF00CC0000CC3300CC6600CC9900CCCC00CCFF00FF3300FF66 +%00FF9900FFCC3300003300333300663300993300CC3300FF333300333333 +%3333663333993333CC3333FF3366003366333366663366993366CC3366FF +%3399003399333399663399993399CC3399FF33CC0033CC3333CC6633CC99 +%33CCCC33CCFF33FF0033FF3333FF6633FF9933FFCC33FFFF660000660033 +%6600666600996600CC6600FF6633006633336633666633996633CC6633FF +%6666006666336666666666996666CC6666FF669900669933669966669999 +%6699CC6699FF66CC0066CC3366CC6666CC9966CCCC66CCFF66FF0066FF33 +%66FF6666FF9966FFCC66FFFF9900009900339900669900999900CC9900FF +%9933009933339933669933999933CC9933FF996600996633996666996699 +%9966CC9966FF9999009999339999669999999999CC9999FF99CC0099CC33 +%99CC6699CC9999CCCC99CCFF99FF0099FF3399FF6699FF9999FFCC99FFFF +%CC0000CC0033CC0066CC0099CC00CCCC00FFCC3300CC3333CC3366CC3399 +%CC33CCCC33FFCC6600CC6633CC6666CC6699CC66CCCC66FFCC9900CC9933 +%CC9966CC9999CC99CCCC99FFCCCC00CCCC33CCCC66CCCC99CCCCCCCCCCFF +%CCFF00CCFF33CCFF66CCFF99CCFFCCCCFFFFFF0033FF0066FF0099FF00CC +%FF3300FF3333FF3366FF3399FF33CCFF33FFFF6600FF6633FF6666FF6699 +%FF66CCFF66FFFF9900FF9933FF9966FF9999FF99CCFF99FFFFCC00FFCC33 +%FFCC66FFCC99FFCCCCFFCCFFFFFF33FFFF66FFFF99FFFFCC110000001100 +%000011111111220000002200000022222222440000004400000044444444 +%550000005500000055555555770000007700000077777777880000008800 +%000088888888AA000000AA000000AAAAAAAABB000000BB000000BBBBBBBB +%DD000000DD000000DDDDDDDDEE000000EE000000EEEEEEEE0000000000FF +%00FF0000FFFFFF0000FF00FFFFFF00FFFFFF +%524C45FD36FF893AAEFD6BFF833B183A185FA8FD67FFAE3B3A3A3B3A3A18 +%3A5FFD64FFA85F123A3A3A183A3A3A123A3A8AA8FD60FF833B183B3A3B3A +%413A3B3A3B3A3A18658AFD5DFF8AFD083A343434FD053A183A5FAEFD59FF +%A865183A3A3B3A3B3A3B2E2E282E343A3A3BFD053A8AAEFD56FF5F3A123A +%3A3A183A34342728272827282834183A3A3A183A183A83FD53FF8A3A3A3A +%3B3A3B3A41342E282E282E282E282E283434413A3B3A3B3A3A3BAEFD4FFF +%843B12FD063A342E282828272E2828272E2828272E2E3A18FD053A185FA8 +%FD4BFFAF5FFD043A3B3A413434282E282E282E282E282E282E282E282E28 +%343A413A3A3A3B183A5FFD48FFA889183A183A3A3A183A2E28272E272827 +%2E2728272E2728272E27282728272E123A3A3A183A183A3A8AFD45FF8341 +%183B3A3B3A413A3B2E2E282E282E282E282E282E282E282E282E282E282E +%282E2E3B3A413A3B3A3B1865AEFD41FFAE3A3A18FD053A342E272E282827 +%2E2828272E2828272E2828272E2828272E28282728283434FD053A183A5F +%FD3EFFAE6518FD043A3B3A3A2E2E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E343B3A3A3A3B3A3A3A8AFD3BFF5F3A18 +%3A183A3A3A12342728272E2728272E2728272E2728272E2728272E272827 +%2E2728272E2728272E272827343A3A183A3A3A113B84FD37FFAE3A3A3A3B +%3A3B3A41342E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E283434413A3B3A3B3A3A5FFD34FF845F18FD +%053A183A2E28272E2828272E2828272E2828272E2828272E2828272E2828 +%272E2828272E2828272E2828272E282E2EFD073A1889AEFD30FF5F3A183B +%3A3A3A413A34282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282828343A3B3A3B3A3A183B +%84FD2CFFAF8A183A3A3A183A3A3A0C2E2728272E2728272E2728272E2728 +%272E2728272E2728272E2728272E2728272E2728272E2728272E2728272E +%2728272E343A183A3A3A123A3AAEFD29FF8A5F183B3A3B3A413A3A2E2E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E2E3B3A3B3A3B3A3A1865AE +%FD25FFAE3A3A18FD053A34342828272E2828272E2828272E2828272E2828 +%272E2828272E2828272E2828272E2828272E2828272E2828272E2828272E +%2828272E28282734FD063A183A5FFD22FFAE8A3A3A3A3B3A3A3A3B342E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E343B3A +%3BFD053AAEFD1FFF833A113A3A3A183A3A3427282728272E2728272E2728 +%272E2728272E2728272E2728272E2728272E2728272E2728272E2728272E +%2728272E2728272E2728272E2728272E272827282E3A183A3A3A183A185F +%84FD1BFFAF3B3A3A3B3A3B3A41342E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E28343A413A3B3A3B183B5F +%FD18FFAE5F18FD073A2E2E2828272E2828272E2828272E2828272E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E2828272E28 +%28272E2828272E2828272E2828272E2828272E34FD053A183A3A8AAFFD14 +%FF5F3B3A3A3A3B3A3B3A342828282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E2E3A3A413A3A3A +%3B185F84FD11FF8A3A3A123A3A3A183A342E27282728272E2728272E2728 +%272E2728272E2728272E2728272E2728272E2728272E2728272E2728272E +%2728272E2728272E2728272E2728272E2728272E2728272E2728272E2728 +%2728272E123A3A3A183A183A3AAFFD0DFFAE653A3A3A3B3A3B3A3B2E2E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E343B3A413A3B3A3A3A8AAFFD0A +%FF5F3A18FD063A3427282828272E2828272E2828272E2828272E2828272E +%2828272E2828272E2828272E2828272E2828272E2828272E2828272E2828 +%272E2828272E2828272E2828272E2828272E2828272E2828272E28282728 +%2834FD063A183A83FD07FF8AFD053A3B3A3A342E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E2828282E282E34413A3A3A3B3A3A3AAEFFFFFF83 +%3B183A183A3A3A18342E28272E2728272E2728272E2728272E2728272E27 +%28272E2728272E2728272E2728272E2728272E2728272E2728272E272827 +%2E2728272E2728272E2728272E2728272E2728272E2728272E2728272E27 +%28052E522E272E27282D3A3A3A183A3A3A125FA8FF3B3A3B3A3B3A413434 +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E28A8FFFF282E282E +%282E2E343A413A3B3A3B188AFF18FD053A2E2E272E2828272E2828272E28 +%28272E2828272E2828272E2828272E2828272E2828272E2828272E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E2828272E28 +%28272E2828272E2828272E272EFFFFFF2E272E2828272E282E34FD053A5F +%FF3A3A3B3A3A282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E2EFFFFFF2E2E282E282E282E28282E3B3A3A188AFF3A3A183A2E2827 +%2E2728272E0528052E2728052E2828272E27280528272E272E0528272E27 +%28272E2728052827280528272E27280528272E2728272E27282728052827 +%2E282805282728272E272827280528272E0528282E27280028A8FFA82805 +%2805282728272E2728123A3A3A5FFF3B3A3B3A34282E282E282E287D7D84 +%282853AFFFA8282E282E27537DAFA9FFA8A82E2E282E282E28527DA8592E +%275984FFFFFFA87E282E282E282E282E282E287DA8FFFFFFA8842E28282E +%282E282E59A87D52287DA8FFA82E53A87DFFFFFF7D847DA8522E282E282E +%283B3A3B188AFFFD043A2E28272E2828272884FFFF2E59FFFFFFA828272E +%0553A8FD07FF5328282827282EFFFFA80584FD07FFAF2E282828272E2828 +%2EFD09FF5328272E282805A8FFFF277DFFFFFFA805A8FD09FF7D0528272E +%282E343A3A3A5FFF3B3A3A3A34282E282E282E0584FFFF53FFFFFFA8A828 +%2E0559FFFFAF7E52537DFFFFFF522E282E2753FFFF7EA8FFFF7E7D7DA8FD +%04FF2E2E282E282E52FFFFFFA87E537EA8FFFFFF5928282E28287DFFFF7D +%FD04FF7D2E7DFFA8FFFFFFA8FFA8FF532E282E282E283A3A3B188AFF183A +%3A3A0C282728272E27287DFFA8FFFFA82828272E272EA8FFA85205280527 +%2EFFFFAF2728272827FD05FF2E2805280553A8FFFFA8052E272828FFFFFF +%7D28052805287DFFFFFF2E28272E057DFFFFA8FF7D52272E272E272EA8FF +%A82E052E2828272E2728272E343A183A5FFF3B3A3B3A35282E282E282E05 +%84FFFFFFA8272E282E28287DFFFF7D052E282E282E7EFFFF7D282E2852FD +%04FF5228282E282E0559FFFFFF59282E27A8FFFFA82E282E282E282884FF +%FFA8272E28287DFFFFFF7E2E282E282E282E28FFFFFF282E282E282E282E +%282E283B3A3B3A8AFFFD043A2E282828272E28287DFFFFFFFD0428272E28 +%FFFFFF2828272E28280553FFFF7DFD0428FFFFFF7D282828272E282805A8 +%FFFF7D28272EA8FFFF52052E2828272E0552FFFFFF2E272E057DFFFFFF2E +%052E2828272E272EA8FFFF2E272E2828272E2828272E343A3A3A5FFF3A3A +%3B3A34282E282E282E277EFFFFA828282E282E2759FFFF7D282728052827 +%2828FFFFAF282E282EFFFFFF53272E282E282E282853FFFFA9282E53FFFF +%FF282E282E282E282E28AFFFFF532828287DFFFFA8282E282E282E282E2E +%FFFFFF2E2E282E282E282E282E283B3A3A188AFF3A3A183A2E28272E2728 +%27287DFFFF7E0528272E272853FFFFA8597E7D7D7D7E7D7DA8FFA82E0528 +%28FFFFFF2828272E2728272E2752A8FFA82E057DFFFF7D282728272E2728 +%27287DFFFF7D0528057EFFFF7D282728272E2728052EA8FFA82E2728272E +%2728272E2728123A3A3A5FFF3B3A3B3A34282E282E282E2784FFFF7D2828 +%2E282E0584FD0EFF282E2852FFFFFF52282E282E282E282E28FFFFFF2828 +%7DFFFF84272E282E282E282E2784FFFF7D28282E7DFFFF84272E282E282E +%282E2EFFFFFF2E2E282E282E282E282E283B3A3B188AFFFD043A2E28272E +%282827287DFFFF7E0528272E28287DFFFFA87DA87EA87DA87EA87DA87D2E +%272E28FFFFFF2828272E2828272E272EA8FFFF2E057EFFFF7D282828272E +%282827287DFFFF7E0528057EFFFF7D282828272E2828272EFFFFA82E2728 +%272E2828272E282E343A3A3A5FFF3B3A3A3A34282E282E282E0584FFFF7D +%28282E282E277EFFFF5928272E2828272E2828272E282E2852FFFFFF5228 +%2E282E282E282E2EFFFFFF282859FFFFA8052E282E282E282E27A8FFFF59 +%2E28287DFFFF7E052E282E282E282E28FFFFFF282E282E282E282E282E28 +%3A3A3B188AFF183A3A3A0C282728272E27287DFFFF7D052E2728272852FF +%FF840528272E2728272E2728272E272828FFFFFF28282728272E27280559 +%FFFF7E280553FFFFA828052E2728272E2728A8FFFF53052E057DFFFF7D28 +%272E2728272E272EA8FFA82E052E2728272E2728272E343A183A5FFF3B3A +%3B3A35282E282E282E0584FFFF7D2E282E282E2853FFFFA92E282E282E28 +%2E282E282E282E2852FFFFFF7D272E282E282E282E84FFFF84272E28FFFF +%FF522E282E282E282E52FFFFFF282E28287DFFFF84052E282E282E282E28 +%FFFFFF282E282E282E282E282E283B3A3B3A8AFFFD043A2E282828272E28 +%287DFFFF7D052E2828272E27A8FFFF7D28272E2828272E2728272E282828 +%FFFFFFA82E2728272E28282EFFFFFF2E2828287DFFFFA8052E2828272805 +%A8FFFF7D28272E057DFFFF7D28272E2828272E272EA8FFFF52052E282827 +%2E2828272E343A3A3A5FFF3A3A3B3A34282E282E282E277EFFFF7D28282E +%282E282E52FFFFFF7D2E0528272805522E2E282E282EFD04FF8452272805 +%2852FFFFFF7E28282E2852FFFFFFA82728272828A8FFFFA952282E28287D +%FFFF84272E282E282E282E28A9FFFF7D28052E282E282E282E283B3A3A18 +%8AFF3A3A183A2E28272E272827287DFFFF7E0528272E2728272859FFFFFF +%A87D537D5984A8A80528272828FFFFFFA8FFA87E537D7DFFFFFFA82E2728 +%272E0559FFFFFFA8597D59A8FFFFFF53052E2728057EFFFF7D282728272E +%272827287DFFFFFF7D7D7D522728272E2728123A3A3A5FFF3B3A3B3A3428 +%2E282E282E27A8FFFF7E28282E282E282E282859FD09FFA92E282E2852FF +%FFFF53A8FD07FFA853282E282E282E277DFD08FFA859272E282E28287EFF +%FFA8272E282E282E282E2852A9FD05FF522E282E282E283B3A3B188AFFFD +%043A2E28272E28282728527E7D592728272E2828272E28282884A8FFA9FF +%A8A87D532828272E28FFFFFF282859A9A8FFA8A85328052E2828272E2828 +%05527DA8A8FFA8A8532E052E272E282805597D7E52282828272E2828272E +%27527DFFFFFFA8522728272E282E343A3A3A5FFF3B3A3A3A34282E282E28 +%2E282E0528272E282E282E282E282E282E052E282E28522828272E282E28 +%52FFFFFF52282828522E2E272E282E282E282E282E282E272E282E285228 +%28282E282E282E282E2728052E282E282E282E282E282E28282852282E28 +%2E282E282E283A3A3B188AFF183A3A3A0C282728272E2728272E2728272E +%2728272E2728272E2828052E282805282828272E272828FFFFFF28282728 +%05282728272E2728272E2728272E2728272E2728052E2728272E2728272E +%2728272E2728272E2728272E2728272E272805282728272E2728272E343A +%183A5FFF3B3A3B3A35282E282E282E282E282E282E282E282E282E282E06 +%28272806282627052E282E282E2852FFFFFF53282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E283B3A3B3A8AFFFD043A2E +%282828272E2828272E282E05272627052E28282674749874746E9EF82726 +%000528272828A87C76272E2828272E2828272E2828272E2828272E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E2828272E28 +%28272E2828272E2828272E343A3A3A5FFF3A3A3B3A34282E282E282E282E +%282E282798984A4A052E05264AFD04C0C6FD04C04A74744A00274A6E984B +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%283B3A3A188AFF3A3A183A2E28272E282E272E2728272E057469B68D6E26 +%274A9898FD0BC0F84A8DB68D982628272E2728272E2828052E2728272E27 +%28272E2728272E2828272E2828272E2828272E2828272E2828272E282E27 +%2E2728272E2728272E2728272E2728123A3A3A5FFF3B3A3B3A34282E2727 +%062E282E282E28284ABCB1B66FC0C0C6FD0EC098948EB67427282E282E28 +%2E2828274B282E282E282E282E282E282E28280528272805282728052827 +%2805282728052827272752282E282E282E282E282E282E282E283B3A3B18 +%8AFFFD043A2E2800504A4A262E2828272E28276EB68E6F98FD05C0BAC0C0 +%C098FD07C09E996E50052E272E282828274A4A4A27272E272E2828272E28 +%28272827A77DA77D7D7DA77D7D7DA77D7D7DA77D7D7DA776F8052E282827 +%2E2828272E2828272E282E343A3A3A5FFF3B3A3A3A35274A6EC07427282E +%282E282E2750929498FD05C09EC9A7C09FA8A0FD08C074052E282E282E28 +%2E0574C0742627282E282E282E282E282E057DFFFFCFFFFFFFCFFFFFFFCF +%FFFFFFCFFD04FFA84B27052E282E282E282E282E282E282E283A3A3B188A +%FF183A3A3A0C28277498272828272E2728272E055098FD05C098A8FF8476 +%7DAFFF9FFD07C06E05272E2728272E272E00986E27052E2728272E272827 +%2E282752FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8FF7D525227002E27 +%28272E2728272E2728272E343A183A5FFF3B3A3B3A34282E0574272E282E +%282E282E28284AC6FD06C0A8FFA8A884FFFFC8FD07C0C67428282E282E28 +%2E28284A272852282E282E282E282E282E057DFFFFCAFFCFFFCAFFCFFFCA +%FFCFFFCAFFCFFFCFA8527D7627272E282E282E282E282E282E283B3A3B3A +%8AFFFD043A2E28282E264A052E272E2828272E054A6EFD06C0A0A8FF99A7 +%FFA898FD07C0749826282828272E2828264A062E272E2828272E2828272E +%282752FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8FF7D527C7D5227052E +%272E2828272E2828272E343A3A3A5FFF3A3A3B3A34282E28284A27282E28 +%2E282E282826FD08C09E98C0989F98FD08C074F828282E282E282E276E27 +%2E282E282E282E282E282E282E057DFFFFCFFFA8FFCFFFA8FFCFFFA8FFCF +%FFA8FFCFA8517D7C7D5227052E282E282E282E282E283B3A3A188AFF3A3A +%183A2E28272E28274A282828272E272820FD06C05026A8CA7DF8277CCF76 +%4B74FD06C074002E272E2728054A4A28272E2728272E2728272E27282727 +%52FFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FF7D52527D527D5227052E +%272E2728272E2728123A3A3A5FFF3B3A3B3A34282E282E0574262E282E28 +%2E059EFD05C07500277DFF5227057DFF84002774C6FD05C074052E282E28 +%276E27282E282E282E282E282E282E282E057DFFFFCFFFCAFFFFFFCFFFFF +%FFCFFFCFFFCAFFCFA8517D7C7D7C7D7C270553282E282E282E283B3A3B18 +%8AFFFD043A2E28272E282E2774272E272E28274AFD05C00527F8282E2705 +%2705522727052798C0C0C09826F827282E28274A4B282E272E2828272E28 +%28272E2828272852FFA8FFA8CFA8A87DA77DA87DA8A8FFA8CFA8FF7D2752 +%7C5252527C52F8002E2828272E282E343A3A3A5FFF3B3A3A3A34282E282E +%282E2674272E282E0574FD04C09827272E0527274C274C0527052727FD05 +%C0984B282E28284A4A052E282E282E282E282E282E282E282E057DFFFFA8 +%FFCFA8527C5276527C52A8CFFFCFFFCACF5276527C527C527D5227282E28 +%2E282E283A3A3B188AFF183A3A3A0C282728272E2828264A052E054BFD05 +%C09EF8A8A86F8DB68EB68D94458452279EFD04C09E6E272828264A052E27 +%2E2728272E2728272E2728272E282752FFA8CFA8FFA8A8A7A8A8A8A7A8A8 +%CFA8FFA8CFA8FFCAFFA8FFCAFFA8FF2E28272E2728272E343A183A5FFF3B +%3A3B3A35282E282E282E28284A7405286EFD06C075AFFFB1B6B6B6B1B6B1 +%B7FFFF74FD05C0742705282674272E282E282E282E282E282E282E282E28 +%2E057DFFFFCAFFCFFFCFFFCFFFCFFFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCA +%FFCF52272E282E282E283B3A3B3A8AFFFD043A2E282828272EFD04284A74 +%F80574FD06C09F76948DB68E948D9493A198FD07C074274A74052E282827 +%2E2828272E2828272E2828272E282752FFA8CFA8FFA8CFA8FFA8CFA8FFA8 +%CFA8FFA8CFA8FFA8CFA8FFA8CFA8FF2E28272E2828272E343A3A3A5FFF3A +%3A3B3A34282E282E282E282E28284A744AFD0BC0989E989E98FD0BC09874 +%272E282E282E282E282E282E282E282E282E282E057DFFFFCFFFA8FFCAFF +%A8FFA8FFA8FFA8FFA8FFA8FFA8FFCAFFA8FFCFFFA852282E282E282E283B +%3A3A188AFF3A3A183A2E28272E2728272E272828284AFD1CC074002E2728 +%272E2728272E2728272E2728272E2728272752FFA8FFA8FF7D5252525152 +%525251525252515252525152A7FFA8FFA8CF27282728272E2728123A3A3A +%5FFF3B3A3B3A34282E282E282E282E282E2E2798C6FD1AC0002F282E282E +%282E282E282E282E282E282E282E282E057DFFFFCFFFCFCF7DA77DA87DA7 +%7DA87DA77DA87DA77DA87DCFCFFFCFFFCA52282E282E282E283B3A3B188A +%FFFD043A2E28272E2828272E2828272826FD1CC050052E2828272E282827 +%2E2828272E287DFD0428272852FFA8FFA8CFA8FFCFFFCAFFCFFFCAFFCFFF +%CAFFCFFFCAFFA8CFA8FFA8CF27282828272E282E343A3A3A5FFF3B3A3A3A +%34282E282E282E282E282E0598FD1DC027282E282E272E282E272E282E27 +%287DFF522E282E057DFFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCF +%FFA8FFCFFFA8FFCF52272E282E282E283A3A3B188AFF183A3A3A0C282728 +%272E2728272E282798FD1BC0BAC04A0628532E522E532E522E532E522859 +%FFFF7E53282752FFA8CFA8CFA8FFA8FFA8FFA8FFA8FFA8FFA8FFA8FFA8FF +%A8CFA8CFA8CF2728272E2728272E343A183A5FFF3B3A3B3A35282E282E28 +%2E282E282E274AFD1BC0C674260584FD11FF7E057DFFFFCAFFCFCA7DA77D +%A17DA77DA17DA77DA17DA77D7D7DCFCFFFCAFFCF52272E282E282E283B3A +%3B3A8AFFFD043A2E282828272E2828272E28056EFD1DC026282852282E28 +%52282E2852282E2853FFFF7D53282752FFA8CFA8FF7D76527C527C527C52 +%7C527C527C527C5276A7FFA8CFA8FF2E28272E2828272E343A3A3A5FFF3A +%3A3B3A34282E282E282E282E28284AFD0EC0C6FD0FC09E052E282E282E28 +%2E282E282E28287DFF5228272E057DFFFFCFFFA8FFCFFFA8FFCAFFA8FFCA +%FFA8FFCAFFA8FFCFFFA8FFCFFFA852282E282E282E283B3A3A188AFF3A3A +%183A2E28272E2728272E272E0098FD0BC09E74744A746E9898FD0BC0BA4A +%0528272E2728272E2728272E285927282728272752FFA8FFA8CFA8FFA8CF +%A8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CF27282728272E2728123A +%3A3A5FFF3B3A3B3A34282E282E282E282E28274AFD08C0C6987545706A94 +%8E94696F74FD08C0C6744B2628282E282E282E282E282E282E282E282E28 +%2E057DFFFFCFFFCAFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCAFFCF +%FFCA52282E282E282E283B3A3B188AFFFD043A2E28272E2828272E282E05 +%50FD08C06E4569B6B1B68EB68EB68E6A4A9EFD07C09E002E2828272E2828 +%272E2828272E2828272E2828272852FFA8FFA8CFA8A8A7A8A7A8A7A8A7A8 +%A7A8A7A8A7A8A7A8A8CFA8FFA8CF27282828272E282E343A3A3A5FFF3B3A +%3A3A34282E282E282E282E282798C6FD06C06E70B1B68EB694B68EB694B6 +%B1944AFD08C050062E282E282E282E282E282E282E282E282E282E057DFF +%FFA8FFCFA8527C5276527C5276527C5276527C527652A8CFFFA8FFCF5227 +%2E282E282E283A3A3B188AFF183A3A3A0C282728272E2728272E269898FD +%05C074458EB68EB68DB68EB68DB68EB68E8E4AFD05C0BA4A2027272E2728 +%272E2728272E2728272E2728272E282752FFA8CFA8FFA8A8A1A8A7A8A1A8 +%A7A8A1A8A7A8A1A8A7A8A8FFA8CFA8CF2728272E2728272E343A183A5FFF +%3B3A3B3A35282E282E282E282E2827F89EFD05C06F8EB6B6B68EB6B6B68E +%B6B6B68EB6B66F98C6C0C0C0C64A052752282E282E282E282E282E282E28 +%2E282E282E057DFFFFCAFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCF +%FFCFFFCAFFCF52272E282E282E283B3A3B3A8AFFFD043A2E282828272E28 +%28272E052798FD05C045B68EB68EB68EB68EB68EB68EB68EB66974FD05C0 +%9E272E272E2828272E2828272E2828272E2828272E282752FFA8CFA8FFA8 +%CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FF2E28272E282827 +%2E343A3A3A5FFF3A3A3B3A34282E282E282E282E282E264A9EC0C0C09E6F +%B6B68EB694B68EB694B68EB694B68E946EC6C0C0C0982627282E282E282E +%282E282E282E282E282E282E282E057DFFFFCFFFA8FFCFFFA8FFCAFFA8FF +%CAFFA8FFCAFFA8FFCFFFA8FFCFFFA852282E282E282E283B3A3A188AFF3A +%3A183A2E28272E2728272E27282727F8FD04C09E45B68EB68DB68EB68DB6 +%8EB68DB68EB66974FD04C07405052E2728272E2728272E2728272E272827 +%2E2728272752FFA8FFA8FF7D7C527C527C527C527C527C527C527C527CA7 +%FFA8FFA8CF27282728272E2728123A3A3A5FFF3B3A3B3A34282E282E282E +%282E282E28276EC6C0C0C06F8EB68EB6B6B68EB6B6B68EB6B6B6B17074C6 +%C0C6C04A2753282E282E282E282E282E282E282E282E282E282E057DFFFF +%CFFFCFA87DA17DA77DA17DA77DA17DA77DA17DA77DCACFFFCFFFCA52282E +%282E282E283B3A3B188AFFFD043A342E272E2828272E2828272E052798C0 +%C0C04A6AB1B68EB68EB68EB68EB68EB68EB644FD04C09EF827282E282827 +%2E2828272E2828272E2828272E2828272852FFA8FFA8CFA8FFCAFFA8FFCA +%FFA8FFCAFFA8FFCAFFA8FFA8CFA8FFA8CF272828282728282E343A3A3A5F +%FF3B3A3A3A413A34282E282E282E282E282E0074FD04C04494B6B68EB694 +%B68EB694B68EB74574FD04C02027282E282E282E282E282E282E282E282E +%282E282E282E057DFFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFF +%A8FFCFFFA8FFCF52272E28282E3A3A3B3A3B188AFF123A3A3A183A3A3A2D +%282728272E27282728269EC0C0C09E208EB1B68DB68EB68DB6B1B14574FD +%04C07427052E2728272E2728272E2728272E2728272E2728272E282752FF +%A8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8CF2728 +%272E2E3A183A3A3A18185FFFAE3A3A3A3B3A3B3A41342E282E282E282E28 +%27F8FD05C04A6F8EB6B6B7B1B78E70449EC0C0C0C674262753282E282E28 +%2E282E282E282E282E282E282E282E282E057DFFFFCAFFCFFFCAFFCFFFCA +%FFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCF5227343A413A3B3A3B3A3A5F +%FD04FF833A18FD063A3427282828272E2827F874C0C0C0C698744A6F456F +%446F74FD05C026270528272E2828272E2828272E2828272E2828272E2828 +%272E282752FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FF +%A8CFA8FF2E34FD063A185F84FD06FFAE6518FD043A3B3A3A2E2E282E282E +%282E004B4A514AC0C098749E749898C0744B27512628282E282E282E282E +%282E282E282E282E282E282E282E282E282E057DFD04FFCFFFFFFFCFFFFF +%FFCFFFFFFFCFFFFFFFCFFFFFFFCFFFFFFFCA583A3B3A3B3A3A3A8AFD0AFF +%AE3A3A183A183A3A3A122E2728272E282E05280506264B05FD0527202706 +%28052E2828272E2728272E2728272E2728272E2728272E2728272E272827 +%2827A7FD197DA17D7D273A3A3A123A5FFD0EFF8A3B183B3A3B3A413A3A2E +%2E282E282E282E284B272E282E282E274B272E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E2828052827280528272805 +%2827280528272805282728052827280B341134113A3A3A1865AEFD10FFAF +%8318FD073A2E2E2828272E282826272828272E28282628282E272E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E282E272E28 +%2E272E282E272E282E272E282E272E2828272E343A3A3B3A3A183A3AAEFD +%14FFAF5FFD043A3B3A413434282E0528064B262E282E282E274A05280528 +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E2E343A413A3A3A3B183B +%83FD18FF845F183A183A3A3A1834267474744A27052E272827284A4A6E74 +%4A27052E2728272E2728272E2728272E2728272E2728272E2728272E2728 +%272E2728272E2728272E2728272E2728272E27280C3A3A3A183A3A3A125F +%AEFD1BFF8A3A3A3A3B3A412774749E7474272E282E2852284A749E749826 +%28282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E283434413A3B3A3B3A3A3BAFFD1FFF +%5F3A183A3A3A1234112E0528272E2828272E052805280528272E2828272E +%2828272E2828272E2828272E2828272E2828272E2828272E2828272E2828 +%272E2828272E28282734FD063A123B84FD22FFAE65183A3A413A3B3A3B2E +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E343A3A3BFD +%053A8AFD26FFAE3A3A123A3A3A183A342E27282728272E2728272E272827 +%2E2728272E2728272E2728272E2728272E2728272E2728272E2728272E27 +%28272E27282728272E123A3A3A183A183A5FAFFD29FF833B3A3B3A3B3A41 +%3A352E2E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E2E3A3A413A3B3A3B3A5F +%AEFD2CFFA86518FD053A183A2E28272E2828272E2828272E2828272E2828 +%272E2828272E2828272E2828272E2828272E2828272E2828272E282E34FD +%083A8AFD30FFAF3B3A183B3A3A3A41342E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282828343A +%413A3B3A3A183A5FFD34FF833A113A3A3A183A3A3427282728272E272827 +%2E2728272E2728272E2728272E2728272E2728272E2728272E272827282E +%3A183A3A3A183A185FA8FD37FF8A3A3A3A3B3A3B3A3B342E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E3441 +%3A3B3A3B3A3A3AAEFD3AFFAF5F3A18FD053A342E27282828272E2828272E +%2828272E2828272E2828272E2828272E282827282834FD063A183A5FFD3E +%FFAE5F183B3A3A3A413A3A2E2E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E2E3B3A3A3A3B3A3A188AAFFD41FF8A3A3A183A183A +%3A3A122E2728272E2728272E2728272E2728272E2728272E2728272E343A +%183A3A3A123A3AAEFD45FF5F3A183B3A3B3A413A34282E282E282E282E28 +%2E282E282E282E282E282E2E3B3A413A3B3A3B18658AFD48FFA85F18FD07 +%3A2E2E2828272E2828272E2828272E2828272E34FD053A183A3A89AEFD4B +%FFAEFD053A3B3A3B342E282E282E282E282E282E282E28343A413A3A3A3B +%3A3A5FFD50FF5F3A183A183A3A3A18342728272E2728272E27282D3A3A3A +%183A3A3A115F84FD52FFAF89183B3A3B3A413A3B2E2E282E282E282E3441 +%3A3B3A3B3A3A3AAEFD56FFAE3A3A18FD053A342E28282734FD063A183A5F +%FD5AFF845F183A3A3B3A3B3A342E3A3A3BFD043A1865AEFD5CFFA88A183A +%183A3A3A183A3A3A183A183A3AAEFD61FF5F3A3A3B3A3B3A3B3A3B3A3B83 +%FD64FF845F18FD053A1865AEFD67FF8AFD043A5FAFFD6BFF5F3A83FD36FF +%FF +%%EndData + +endstream endobj 445 0 obj <>stream +&r/̾`l'7܋;LlR4uY|zX5.K՛6ݻ>:D93 t6 m#FėwlZ젍R|q:l/gzzVriyY6&r +M;k|3{n?3ٛamԥ}N] +.݄h̢ 1w?rZתz+w]jKLR.KaR' Gd KCR9]E; ]rf.fR.Z1BTv6} B ߞZvN &r &g2ThM_=NOncuw_WG{խ +{E+d +W"d![ dS0*\x2Ő)|L1TCU1d!S "1^7?SL!7!)Z_BJL-bKNbg-?Ҟsif}V*;*73픬S1( +7]M-ًDDĥ&["/WբpojUN ze.yv6m> ziA (_#vrazߨdr GP2j/3'wD)ҋ|?Wcz}|Vnb󤍝;Ƶi 7@$lŀɊOLL$!h~Oh~]0 xɣ0F,rR9=w? ]ÛJ6h+pc` 7u +FQ^Twu +7ӋW-zZ=: e,:zi?NW1*^.*2k]V*qP +q Eer/.KwCwcۑϱ}!|svpZ9\kx7t +ց_n*S%EeBd |X*(r/=jW/*eP/qa@h|0l/mc.IzBOT +=Q?Q߉=Q-EzBOT3CO' sy:':XkhE~ +aᙞa$5sZ.w*{323\#)8G鑂3m@#g(qv|ܶ5q|䮒aa{\}9邉piqūGQwwaݍ͖NDEY=2 )3;Uro5@zx,c#U~ FKm/칝 +3/k +:RM@:HǕ2kw 8 ^UIUwL?7aYycΛyUv/7N]M:ozJΛ &tj^^I e&9u{Q󛳅ue;6ֽ#jK`헮*ӗ/o*6T_mbz]!WkM$s:Qm*u;AeΪbè|vYj!]9aًE}64S,zK648J}()0v-!?AǹuwϒGR*pa`rn;|DEz5q ~Zy nnN*:mihihiיp}ڧ]cwZ}ڕi=byM + @ Ի;-zH5ﳑpFe u-ݔu-,ҥ6x{5JziXG^LqZw_9Z3yw1zOAsI3{ѿ^iuRWץz6VfR;VM>&Zώ<,+mnb]q;pN1D[Pa+8Ez^zvNvC6j^j/PwK$xe$ mŤ?|K .3ߧ|Iu6Jz(>y )xgHޜ۷w +ZuHA _F?[VDeB={- # +?\;urG~@ᵝ%{Z.w= W,]V*4tXr;Ƶ {>D(CHPw8~?C3]%`="ۀGDrLɽ{K+=It2- #hOjV*o7,82h2=##"_o᦯mPw}Ww8+Z0ԃL͵fws~~#Ý$R=t+ΏnGN2/8Ӿ+<]H^+O" 39{ +G6N_ P0t8\NW/V/eui֦NaM>{oK̅bvDx?01Ә(Bx_1 )BdaUar:K%PSg CO'yr0'N &~]3Bۛ:?uף1/΋* UQO?17g0%W1I~xNV>xYSo<|{c"Fd.Eྍ%X3bG>$J_ +%JQK,^gCN;fX0-' 6etp#%""-"vr%#2´"fpӈ14+RH&?=c3 $o0)?dVv꺑 +Y`"`| |+iiåSgofdXQ/{~F"ȣœlrOŜ1,zLs_˭ nEA8t!*4ۦ=vbmKە&M@Ę%tMm͐N̕X%m\tp5Zx^wC̆EV m&}G̒&<.* Me5#|[v$jkE1vlB\9ijh4Ԋ \tBa㈥ 3L!q@wu`ugo0&MP$e[Z0pLYw|l 6vր-:B] #ZLXd;B8 l€Dv \&xWp)X8D[ýFLJ7i !CeئbkK)\.H|t0,0Wa^HݔG`tq{ ރ)Gj&pIDMWjlWw l]K6Ii gC Gs81|uǀMce[aL kȇ1]>8 +E)_|],;@t0޹$ +IjiE`8(F!aCuBjN7@Mo,`GAcX._Ê»\. -5 l3sT&u2Rn4z MRP@"qIldf"M.$ dsJ#R0(LV@ƈ~9Y h@a^a+{`]$PֶL܂6vo "FhͣEBQ:.?24 ,E@ۊi px ؾkM·"%*]' mICˡi04US`c]iѯ2N EU7@5ͨ).5і +ID%a7CQl$8*Qw6Ah wd&?@#ؕ%6hMu:PBcAKJ#ݴɚ24v ,Hhp.k81NZ!XJ1] .D.$ѲsFL$jY8xJx0ټ{dܰi>:Hmbxc&B4;H8_ݢ-Us̻aw-o%c <0]2 #dGϢA>a;bIu4PB]-'FtI=1g8(";c]PP-&CE9Y:Z:S`#(p-AЉlyP%&CڈrQAϕ#%/'~7.+hҦ+k*Ċn# [uHLѽ_!998C ZPӰ]HjZ-V!N,3[=(J*;M9 +]QB>rѻI.M% @PI-2SL-dи"eRҼH ۸^'Tfh(Sp!ԪO0 +;Xp,/Y-q&B=?մq#7ΠDZ%@ktQ9ihZDaodI*> bIBDgŁdxj%>tZ001Ug2K.BU \xtEEA5w]cĺH0nE5|09@Sl!?.: D0 +)0;ɚ"MBjdDBrWh/d BGB + L G@0sAFPõ5|+?VTˢMA3DwYb霟|*8S ;4P89J9򓮱ǕL Y$mJjd>9kG&"nM"Q + +]5hB4Ra)f ](ovxau;hąN#\v/>'o UvUDAHy˞ +*(lC5F,XٟnͻIFI'yC y/l60UJ֛ t II4E*zLa18⋨dlrMBwHk"IB$?4.}!0&g "N b&ٌj]9 `@jh@R()&T RG(B(R h oA|I⍁?lH.@aYD. +Dsa +"x"`/GbM%Yޘz>6 ցuJP +ނ> 9Bicd%iKj;trg[X$k8si0F%O`ݑ12 dsPxb_鐾*Q)sxuO!^dB0\'0Ghr`&[B烆J]ёm^&vSJF +AV5È.h `tUbjZhdFkmlAH1mRsq B6qTZ: {Du  x qW Ea:thI +YY6"Si` xdk`(g*ty~r ItzflX L I{Dz̋ߍn*P$@R?MGL6H7۸Bn0Bd9.ihBV96Cx..CXZG?f_6dԒE %M2for<^LD9ڏ) ;:<ĤK8a1VM +f`4|ebMve:*?fārR$?$)$ !Rƣpb@:)l_DLBr/8wLߒИ<(車W#@ݸj'hfh) FZ6k4wI1Rx P^?xymJ'QJQ7@%ɹ0(u'YoW`@ Ban!4 %\BqyCa?ZK=acUm +N @9. +.b`˴ + OLٸJ=G١\[ 6"[1 +d\K h  +if:JC ZظT cIFl4B;t&Ռ %3N_e ӗ6tH`4o[MY(|2D{AELzQ&lE!IDO6V|if%t%Ї) %eroPL'8vONLE2z. 1z}ga=٭K $6O,U\s/V,'#~DDb)A| Ӏ9 'r ._F:w@k ֟'[A Ic/*Ҙl5]`BC{6 dyٸuE{M{ pB7̈6jZ.;-[ -WF2?H)i`7L: fO, .W40;dc)\, +,Tl f(Y: ~$mӲQGǛ %7^PƕlĶr%XL6Gm BSCw5FjEcϪ +f^ӀHeX8Y6)%læ?'HRYZ).Miۂ_`_evr 5>#WUL + +1GjL0N`ȱId2 D8cYuRi`v buqؔ1xL{ +7_Iw14С8RY;x}CF 撫VG~ vfw\D~DCЁ̱0491M,ǐY<u>r4%~ N,=pw ђ%)ha!F*U3|BMD6J͈Rm_C/F%ޯ7궬H4lz0ph'ݡgtI-M'Pp_Q*7ZWVD/O$@0x +60|5 kڲ- NDh K_oߺ`L:ڨ㌄uF„5tdɥmI'N .EQ +:.bs- +QO,T-;j ;[12+lQ!zc\%S'x6,>GIcZ4PN5BוEc 1\iCdd#<߱:2q+l'%iB-N$&oc:H{ˍMhD%hGAL- Cm-Rqȷ N:{`&=q֚FVޙi?2T.b"H> Hj+ttXJw$IM@G:W;ud&輍Du[g:/nq8ٖBmFXEAQ +p.SPob9C(?u*Z'8 \)Ƽ9{AUV +0Ёc ӁUh428T-e 4\ BG'ktVkI~|赶ވ86C#*juX^U'ߌJW{Lmnm(UXD:[_ <ژ7ړ|p=‹n@g +Yqf<*]0gaunR*xj/)4{3SNNwՎ&:Q۫pi m`kݐTt7z~:!,uFVS]+%Pr4xFY#f=޳ M@]9Jr-UΓh%[ZtG;Ng3ap핵W@MzlpV ^밶tCo +]'tL=A&:ƸiG{:&Uh((и_NW' x%L*R8F~[˼WVFP!\:M!*5vVzBu  j$i7.Rhf QcAq]*u|\9GpvJLwxqv๽ݻBT.v8p)YLj۫MF+%ac0u7zW|FoTwN/`Yc :DoR=3=Xv]%fo魵&.om1J@疙ӛyrY,Ug.=l`<A_xG:&{72~e'X M_Ǖ_=ǖMAr~1-kū;ud\ԄDSI,& C9خzÀ=LC$yljXJ4pXQSgdz$IKw]t3V/O5& pl l !&M:qP [SfJtL&2o3=Kĩ7=>VZHPuN7 uw'J@ ^), ڡLaw;h\uc%I)2-E=b{71EG;<9&(r>J ֈDI1M b}y 5ۀDTfՌ6:#mhBHpm<sC .x,=Ӵ N9xSi)?J\H 2 F&05ᏨQk5iU"B۷iSI߀:d;xUݓ軖Ŀ7ֺKc Ww9e |uh]c5y]iR, +U{s_}2dqxlu;6pgYjQwihUX |੏RY _W8h SB^p wm-C[7hViFϧ$ǑOqߥ-N.މOhҷtGn[ؓ}{ϝ;'0y~q~OnFpO//ʕR|]:?:;wzYZn焁. +LhtO.Vc@j&Sm~ Hۇ՛.*&ks٤a\ν # +|>5-,)&l8ᦗ'pQivMUm2FxSx']G$R6hp\296xIV%7we&eMGVmg0p#G Ks0`~jNGX톴MoH'+ap'4t;ǰ}W[P8:Xt@hc[\mBgϑP7TYTedL/cqz0xN]W͒P-#ɍʰ¦I<7RU +I]2P֑#w+ msyFL``+c[I'v'5L,,(5 +=pPZ;P( <=JHȡVeʦH0av4jx^,U/1şiojTܰk IT`uj5,CGvyv$\UDQkJY\~HR9j=ըޚB&­aL `\*Geú9.lTUUU 80ЩlZtV ̙˲˽pA`J{jjm635E[`47gHK׹$X.#RB·a=e:5C*ZO=H<]'hHN&W2"-*W1qEbe_tb hN n:x:כTMKnND[IMC1Dȏ*PX!X ER^Rx^^I`2A8 c8(r\,JH%@2*,.Ds nX\Jm$,  a]Z`jssUF VOV!ajf8S|QI`W D)U`tZdcR + chBѻ~>PԴ>\ +Y="p4rG)ĤJH\+If^(C|pctA#d&f,4lu Rl*/)z#rWJ=$Cu5C!>ICpe!uju b&Pݥ(jbMLv!T 6]Fy.LIXjx.Z-g\ÞTA($K(ߘ5f.C:S*sR)ܩK'I/bFc6ֽNHXâD8>`B*l2wx&w!ӸYOfwO412[}  +P2}Ox@TJ7i7PLiE[SeŰ &xXGOMsjgAQ-Ukro ;8է2.0ǬQS +U +QoQ:qyu.ΘI'DD?IoF8v* ꠆߲AE^`5i5}/\ђc6 IJ.@3.v?HTשHE@esKn=(#ϰcBMJW]Õ?vOTC0"p2ErJС O:ȓ!:rWmK5\ƒfmѥ> dĤr9 npR,wKBA6M獘Jv^fֵT\xK{IH</Ee y u:̥%"ZT!'K7 ,S] `vTP+Kq8˄ +ӈYs#Sq'IXtTQeB-ZZjMc#(äBT&Έ چ Rrw.T];(L'% +=ڮ(}8R FUlB`^gՙJ;*Lf\v͂oţH. +,QRS1E,WWPa=urjyc"UB['J-;B)}&V7cӒ lMEP?5eJdv0GA%e&Z>a#/\T0 ԗ]UI W02 ^l,%Ԅ#կC{M02^cnCկk"6J +CtdԂ4W7[$L I$yBe:Xي\1! +KziKJ8QԺtc)f M֚ޫWey WD!›HKzd8CjMufVݍA.XjAMe65"q%P# +*̔h+vmy3~gB6+X@CmԊ܃H`%EV-UB4ENu*$/8*DCѨH}T:Z0"UKs4[ nlז'@]j lK8DWKm 21tjBڡU4)\8%%6uNjOˢԸ a}vLeM;.#dLg᰻ +E5M2SO\F:6A2ے4һQg +1!Q{\jHu)YPf +S +]%[t8PY/AtY+™qD^ +B'M,>k) Hr8yHol2PS%RP)T. ;SQntceo֠p7j@\B إ"؋þw@C)i,<=.]rqRBa3 XV=ǯjCiz_:P(dC`$:ҢԘNչ+H<# +\|ܰk"$â~lT"zљ*o"ÇUATYk` b/`Q˂6`xSf +DX\*J mcµU5 +nY'^o&prPd! Oc+6MiD(La}S@g';u8c㜦FqcH +8ԈWPo6h$?- +!._LwA3M,bɽK,!5*r@ >ZF3G7; vdڈ3`;BG#"b3W5P"-b&3=:.͍ał`sM@owF+ֹ;Bp?yx]]B4^Mȫte,2W<^Gi\h^H".KS}._{u"6* #&pbH@V4+XZ`@CqIUAK oKWח_atxs7V];[u߹.ШR}NPAڣB"Mut" tb\O>oeLxN9Gn;ŕ4` M;X;RfI7uZt ]v}w5 ǚ0Wr4yvsӅ{<%Q>À9$6| { @y +7 X#`Q ~1x|5qHq; a7~lz`ؿ +?hpM4p"&$oqKܮPNQ GsH=.a`lcP@cdOA=HΞxsPD8O8D8PLb˥qmIVSsDPJѤ,w.@[6ԙe3ȒgVyy ]Z⳱)~\W;bcO⼽o/g +/;B.\a(㴓s<_Va@cﺶh&81iiNq` r`lx +SA n .WƂW4ZS1*D}: u9@)|`7<ˇZY!9틹XRgx.c] +طXs6+x2) âC&T wbJA]2+0zO/ \㤐GQ䦐; l[pEP1(O&R2ɢ+z i9 /N(Mnz#Gy8,i+9ElA2u +Rw~fI-?ŝ'gn B}zs;Vv^~4? x +PS*zĢahQ@1 CJA G" =Kr5B3ǾK sj-'(1@,,^$Y11c6s#7n [UN=-% NCI i-K;T)RtYlp)M ^K]RTxɨIGשCӣ+$Ef~f$Bx;=&DЉ8KPF4s"g-a1v!z9{@Hh)MuJO̊?akB^ +C|34B[s禳Pv[Eỏtm\L )ENJnDH@&ǎ_0;Yjm0T#\|\) '@Z„1Ycޒ3@ ծg{CmUxC&u(cFH|L1嬜^ #7=M$'Xg,Or*TSJiyFs 3'\((Z("D.7!gԩ:uQܺ.U9PqwӉ1JX11''{2J?nDY>z;۩D !*:@S4_?tr {Qr2(Gأ#1gj݊ɩi=!(#qF Tܥ=CZ˼b[肋 йQk|e \ǯZ "].$k^$pMxɴU'[U.Ob{k#9.Bhi] RViz5#:wYT R._6@OlBS4|h|3VR q&(9d.ocW˔2ܦ e>R*ۆ2J"6ȄOc9<ƼdXNYkU\ %d(% P0%# +S@1{) +;p¶w6L oÔK#b_v2J|& 47j#Vnބ2!ȧQloPT(-/ X"{7 Gyp$Ɗ<4mw)/Q䓏B#Ff)~xͦI<T[@Z7^))RP*w@ AHN2 ,s0&u,IpژpCNBМm s檨`F&-:iyJl E~d7Ahyhm.'09\S\9vsd A)G- XF$TJafA&MȊF99 jl%EL!@[z^jZ.c<; +;'Ȧ6ZFl$ܘH>poI{TG4~D(E,yc@d`4=Ɖ=k! NA7f:Ec{㪴8A;Oh|$ExB8Wp sW$2Υ`B#]0$$_4g 2Tscp:*  EFӱ(q Ɠo~|P|wEx\So +}![,ae766/d} +omMI 1s9̓A0)MY  YD2%B2a[K +R(JnT* Q):ϒ[NyRpnr(Waɛg( e#KJxɯW0Ѧ!DUi@!UP{ߧ +b]S9zXoH5zg[ B#PqQ.|eSL[2)lPFgY$#,FZQ,Z")mMWي]x$N9|3,CWQM\B/$1魪B)7'$rH);ZhQA-Pa*vƇ;ozR"҉.ry[`"/W ؠo2Jiz$# fH8uNEpչ&Qdlh4eJ/*,DKKw&?6m!r4#B.IS ]fT4%i*KҌ +] +Fnza4B.IS ]fT4%iʡK\f^."H$ͨ%i*KҔCHsP4%i*KҌ +] +vˡK4cʡKTB.I3*tIJ4%iF.IS ]$ͨХ!.IS ]fT4%i*KR +]$u9tIQKRWB.9PsKRWBd.I] ]$Х(EX+KR]$u%tɁХ!.ˆ*%+KRC$u%tIJ,%9%+K(s' MzTԕ%+KR +]$U%tIQKACvbK] ] +B.I] ]zT4%i*KҌ +]$M%tIQKTB.I3*tIJ4%Y0(!(J?](gFb e1.CF ~R2J d $ %44JQ"ٰ5x@#ny;wF($%(0J8`$\ +Ό%*ْQBQBBKF dq%+F tYCF B](@a@MQF4ŊQ%hšQ"Z2Jx;8wv(ᝰ3J8o%U,3VIF2%ʋ!Dh5[SF (AG%r%CWQ6Jы!&9 M\6Jx#;Mlȹ^akUyx+%a(cl\V%iI:!JDHX Y UũK< ĨѐRL!C9 +k#& +Õ*pg0\)Fa0D2Vj?-LtS(2ؗiA4zXwRlDa:2.@ƒjLNɤ]"q  +_tʼ}*D P9Mν'Tnz vƮPISjUM +BSgMI*P.[FBal0=t]r ,ƾGh8wgx]2[(rߐ> ̴bf8@;br>ip"I@A": EopZ@ahK(B,C,^\A]|r 9&$=$? +cu.{[(MBaPkP-iZ[@^C2srE~iRHaB= +,Pm!O(L[,Tu1G cZQYwi8X"4rBX&˚!|DߐJSw8[[\Vb1'FJVᳪ9T9Dlm1xq"vBb>^wgݩ +8B&c!٤L㜖s5bQQqؚ'Tn0ʍeV{qB"!ðR[Vax@e_߈„U2DE噑:sfοs:hޑ |/ZRڔ~œ1  +]@󬅶0vガqjhmҲ"m!cp|,VY ߇>͎Oy[Y3H{?hYG\^aB) "EB˥qDp>t042װx`]Y*,xmTYoa ?i\ +"K ,eTH/OF +GҨ "" NE2{=R'J r̢-չ.T\MO7uPG*v+=Т;+J sѧ ;#E S'{9D9E#̒n셖:n[#X-0љ<|u!DUq=awxrfV*=" \goߧR +C~R}!SiB+'=(?ĕB.\8z= 6}G(;]8T"L-vprh{+\8ěHlViS.wz=G6ߔe zVT/X +䏼BHNK= "3Gu8qJJo1C(sFY٭vQY*̞ۧ +3{4u/93` kJXVm= ?8՞ Dr[X${3gi +Қ} +;;'Ztg@$V )3oӒ_Xѿ4sr=;i] K,k9<',jzHQ&֜Z nKS[_3Wv[X@sRDR]^deBTH\ ͵Oq#… n!,h 6PCC +!?[VizpKǃt.FI3I!֨U0 $Xi]Zʀrdu^.+EFH9C(=V\x%#rwF`A)>m99jGlaf%\. (Xĥ sDr$(9NU &0,)tAm O((՜(|9\GNa>w)9X|M7`.)}qQ⵨fdq*& ;`z9cxhHg[$Px0^rD|DQJk6Hlt]]-k795yF&2)`kgH0n*Qxcm2F^<(/ +|ڔH/&DZ-iRVkiaO/\xK" +~e(r) I/.FjPGJSMi2չ\4KfB_nvSD]qK }VWBsȶ_r*ߗ j)I؛;_$?JYuO('_uE/U/jyWjhZOkU'YCGcף<9R!OL D;aYH5!RiB 9"Q{F| 8:b"|9jrb7|,-!۳bnj|ıMXRj!B}5Ј`7a|>{ )*ΩL,V$38+Ǘ-j,mTBÃ~A:&<- 5b62~i%3hG}#F 2jK2*NHp(Rr¨oAFwk\U.ǯ\ Ty9B71Ͽ|/]ASF2+$Vd]WRrM9zGBE.ȋR*8pѝȃ#qG"6+Wf%ԽvXWQ`}/e_z'q1~`WݹphAXT[v;uaڿ:[ak^rNZNncs%Iә"{-,GDf.~-Ihs/ZFsoj9gvovgGk|S[?|k&5 ZYÕ_z.jSӵ7h60@.DhjۯO[j xo~v1c7o/#ZǨv_$inCk Zׅ16V5;ϖH0zi=Q[o\9N5+ 4N0Lrp(|Ob|L6X͒qU)`Z L@9n#=WMUeCk(;q)5 Јm6 +IyL^ JқD8FQ"2>NU _Ê;無CĘZ+a '+rx;+XU#9rIrnTs.+%3>|}{6,JƐRhf;R:DhO1:Rl@E0#u(ʋR6*@,LA>.x6I)2Z#l ] QK0t"` +ʾ$!f ےdؚu0*MOJSHҠ$)D_Tv hiCRʼnhR$)Ԯ(_ż&!O1#%aU1hi'%jWpA_CM ^*P Ν_daR⏱ P,mj$ #l8x1GjXd56x'& ` +xÍ+c"=1>&lPz}T4SS #kc0 ᏢL@R=*\j+%b49iLj@P0{ UC36ѨB. ' -1k#c$瓀1C?1>~9˞Fi:H{>BK.ic>:| z4^82h[N+E(dTh&)F9/sq{ >vJ\ +ؾC8X~ĔN1;m_*ř2g< v$T"U{Z >G4 ¨l[edHFe#Kې4١#yp(u^#a$/RNn}L/_ +*CٽPR '8w `*WLTH5(WRC4?4dE +r/KD;)qih$ .ӧYOԸ'RJ= W'֋JF<9yJ3"!hdFcV  !:ʵEH lhkE34)jCAh$&&'Re(G!AX@2N+\D ]$D)~ +GpPx3}i_(>n" sF!vX 3H̄+}1JH cG(H|_% zˌ̊(G̤) flL#2 ?py H-d݁aLdVc #uC.uBP'߁4#`tXAX:$ R}H`1{4oH( 'ו*cjFVXH8l@qM&$\y,{JW7gj@`4\C%͕}ADZ;#]xfd- Ճ y2T$K-bXj:VpT P1g?m7ro$ Aȭ#JҚZD1 +cĸ(Wl_*[`-YȑW&DQ`Q +Aam9Db(YB²Z/-: F쌀tǰ>_O)%J*XBY2JZ’ˬ(: RPv" Np#eDRtqfoxOE1E"gLXCCҚ\Ԉ:`؇ľ1}xN|Db+jD7^%$*X1'Aٟ%xD\3pPdS%ȭwP/"N֔ȑ#㫾<.44i5 H硌 + @jd -EX +kjK˅ѪOˣ,hdhU@JxK +OםQ&tQeEyS(P6 +f7tC98nM #tMj)}؂El轾Y@5Ua. Mh %AcG2,`0 +]\U  tDff 5cM^F RG +tTѰͧU +,1$uP̫eW0Јf`hRbZ}BG'>[&'@& kEt2.2C3QjzX;vE!bp#E,:@b7"R/ £T2}$vj9GUZb}`{`LSYjl޳ZbS!*D7$[ !e8c]BXȸ:aI<XB +!RЩn"NR 'xj+'PQE+ +l't8{gj)lĹsK3(% ( Dr:񌲊L=pm?ΐB22%V\ې|sy5aOP+d6AA+lRc%KؼxبeI0Ñ%[NKˏH S75[A-Ի5A Xh}FF^2_Jኬ2)$zD WJ*(+rČ`;aA"#g/EY Ays9do* Mra1y.FD/ʠ6/w(R4RS&BtGCF ܀ +ڑD=$Z-(dg#"1eB+C>({-cQMRKm؂ӱJTJ<M}f +o{D͸nJY.taE e9'j<^; P[d[hEl)flF"G"h+錪1R ++4*r: 3chQb5x ,&XbͭVh6X-.q @&RngQhE/$M9фz֕ MY[W4Ig)\&4˒*%FOƙEVe hCB/c +eDn QܵU%%&JcW KE)[]J,aC4IMdkD@FYAR\دbpʾG(Npy +ʎ!P[Q\Ht7\.FH6HEz.P#yj=x"%6%% 3H +o>|aS8'?~ŸJֺ818z.ShVFĐيlD7$&j,;{HDOU-#^xRє$ƺh})ۄh\]4P@ ]P܎f9RFɊmhF4Ed80]7]db!);n%"HA;ѠHCCBVP(ԈlƢC"#ppp$Ft2F Iʦp9ر6=0%F"l_DP(!<@Q-|05Tp8fB#Q) IF$D40&/n{K'(DNi GP*$I[A2b%hvC"IF ZWq5(X [ s#?w*tDcHLxH#(y2a(R&pD$!#dYEJ)gdAC`?L SP$Kc:bQE' ?i "bYl-KAy$Ky̜ +!6-$̂ nD8ČC4D7hH9$D!|H5Xsd¼gg-?z9o}-{b|p\h5Zf՟5Rimvbfjabv3 +6V_l\w^n}\j9oc~>?}ؿy~ twf6[[mAV?^oGnsm,u>msӵW;Yx[ )E5_JO b.bE>mA]چf`wym4p9|#TjΚZcm@ Y L,N8Ȟ&`,jF< cW?C'Y%ĄKԈ^b7an vo[IwkZ +χ/Ak8MK ;[nhAޞ_O]֞VQ/?xSg6*xpk z1QqɁFǎ,?GZ>N s @ Kc`RN.^7TD?qkbg6/{K^(<:`H()Om6+6Ezp>hjZuypwA!I +O_DN &-6}W{ Y?REњH9qnЄ9t(Loq%iGY)m9K (f(: E,@(p[8([* R~?d+?8t}rM{:eM *):dM|OiB5DbWG6zYFot"0&BH3QMXU2S~̒'rjHL"؅_%ŒYi)Ƭ|*CY /BΪDA3ja5;@]߆Pi>w. !J[mb]z)أ|bڒ^l.MC;l[˭~U^iOPۅ wOv;O1H^$~pVLcQA + F l~tKGޚ-ta^D +c~a+'4ֽeIj4iBa5 ~Ӵo~3 l:a;fO&֫Hi5pudCYPJL$T1ũP(FV Ǝqə9k3fiڋA1!FdYI:*e8j]9e@#ǷNsi` a$MDEPش)fb0#C9Z:= Āmt80QFYG?PThoU7үb87:N!s ,zDu\qs/R S&JcJ@֖FtdZ@ˌ1SZXE,U {!NVň=&.κpy:61E)аpX N ݯ265D%xvmG3YT{?h԰l8Z MaU)F2>(&`MuH G A4͑ p4ydCJZ0/eycKr.?-%%e'"#;^kV#\@u40%pNRHˈ"KESIne2JSpcS$b4!5OS81bx`2V[_$Y)=2A9$悹A DoI>$_ިVX +ҡٱSiMT*RCEK"KuDhQ5SHv6:*:oq2b,ܡ(@2F),1ScRjMRAaб1Y4(a v!I(twm% o3G)L8N%K@ +B5*``1Od4$0ɀ iH-AT = + Hw8ODLw:8! 42Ҵb!lH$PQ||䊶P5ޑb#*p*~'dX,ZkR*@3'l@6M,$)JrNAQ +Pe"lȶP h"_`*WxRFĔY 84}!‘vH {eL$ɀ%x9C Rư,΄ۿA<{,Zȋ2, 4Vѿ,˜".k$npAO,6M:;Pt(i*4]b p2^&X2 +$a 62ʜI@)hiTu6urs3e +4LN| r8ѷ%N7)OWaGLcRt)j5( ƀ4OszhbXN8)(P.<1s%!FK hIp} h乤@y`[h =.x1PA*yF46w@ E>f!p21~$@',% ȃކb9m( +F*q|爂QH^H "-ZPƧc! +-Gj" Wh A(A7Fk@¨2$3 +%*V~I^) X)LF3&CCSF&0 I(!Qf{MV_L+{'},Ҁ1%m58 -qAD˰TaÅI"P,Pmbr8t$IL :K&=U+|)p$`Rd:Qe]QTT6"S IT9Nm@p\${WXIrGk54 +\JS$$7 + "EtF8 8PH+yLE-Ko#&yd-:@a~B7pBi%ZܝT,fП;Hdh)LAIG1\2b'`h`g/2sTxh<8d.5$RAJ4}_h@ݲe-FeQ#)axV)`PSbȴ3AdsPѷEHA 4*@a#f"=,Q"Q@v!D`*V +f5( +$#lAVA@_ +Mʄg1SY췏[>>]W%m#sIdXM +D$+D 2?; jma#!ˌhd9Ѹ waTF&Rds1nT&k< ?e sE3ꬽ=h0Q{n {瀣m[X#((2yjqEs0lۿQ@7DE'\ڇQ{ +S{UFt:pϟb(Rz:hRv]bM~s.κp>tg%V՚^?loNuaSQ;Hk6| .hgH=5_aAmPQIyγ 7 +:;p5/l}r?{mZ}zizt{yeco/s^ZO[ÝE}](Br0lyŀyO^栵e.^"ȁ"*+K9M +]Ozm{p51b 8G0 t_*؁=XjZ@R,%/a„_zoI}Zt5輳rS,I'b).ۯ%M_tzd+"uIĜpئr6[j׏DEi~ &1(Nk+ [t!G `B}ٹs|.ݓ^s%uLͯԴOCFfRFYWE_.:mOpڕp q%erwq up=S z.9b2P!/3/VVMsBlVBjkHQ{2DmsY|aonbMx n>kA䮽hSUBs}Lfu|]Wyp|ٓ<2FF*#oB2c0 iWkOV$t +՚[5x[BQMUb?>żj?ZmXm/\\kmXbAt{o-bCvik<OL?Of\ !jS –sl2y֝tySs)"(2"l%cR)Fzm͕Jsi kɶ_"*_c?h;so7jmwml7u o}F~bUcax6+a Enc 0 0m * Ǣa. Ԙlb6'g3jVQy6epq/h Z[pg`s_{ +1~{G'= 6O1ү^N(N"4+jtÎWc^c +FgA?8Qޠ(OJSe3c“-ڌA5`#Tpp;^Ӿ'^m; R]5 +skb@iǗ(sJ3 +%`Fu$/yzՂy:k,J@w|¦; j c W}xV nY GJcz +;`Y}CSsǓ +YFɶ2iH2SI5WWa0^߽5a9aݻ>]z<h/)idSgd"<'NagɮOL-~-FЉLocpRaCz ^4,l]m +z7~^ĭ DkF/gt<痷f(_EҸ3npG] ~ FAk>:J6>yY  䃞BywmyQnu+ k{& +KY7r;ZD6+h +aIh͸3 +Ox]0WFukwzajևO+t +(Ӱ2O +2@.'U[qx~*ōN^Kggf3\JUuǭB׼'(!- `]:fɚte{pu.;l-?h W4EJݬX.襈F AZgng=~zx6۬lk.ɳB/nt-W%v~_eSlnZ|]m_>>~͇ìtoVO^oMSǠ<]ˇ~__.$:tmakg4q Ý_Iuc.һMnu~]H05[HOח0dc6r [XyLO+K9j/fì._WSCEyק_y5-6EեÏŽ㕽zZZxupsuewG7Ok +Yu!o}/~mw0◳oɕ;ա=['Fvg| zf9R'|I5G YQL8!Y| U5w/^ܓJٸ>x>_xvl$tyQss/Ij.fNxQƞ?v3+pmAgg.M-jyqcc|D#d>>-fc˯5 o^x36}X}ٛ[w[|ީT7~_vfR,"y}>6N} 9W-iLމS:+'wc;vV{zt.IƇ7U\7ӇG;w'^'Ǜ;L}έDF}uxBinكD^Юooͫ8̇7/΋ލ1`Qۯfcu|4V_o7&'Ʀ߼Yzn~6wǔ8a̗;gScw}l{ul'zlzgGczEث˱ta36];˱+tq0Wv~p<>{=>?m:n&xz|p/Ɨ=?}}r|s=ӓxsomO0g/ G76ޘttc/7LOzKb#0{cc浹׍;k7>lhpσZf}ěgOoΜO~)5nÅM\o??۱ᛛ:'_o|i7~޺;?4ioB'cw'l S0Zdbˉ'=_ۛhFm=q2'Ζ_7&g_ON ^NζLꝏɻ~\|Փ[LnO&?oLog&ONO>@j89>8LY|gt8zȩgS>4Nuxjdlzr?=45<}:?Ӡ1uy089~xnt{%3[7jL\z#}r둺Ѻ|ۼt NvwLO}iww̳˝o3ͱ͙/icf8"anO/ޖnߛ2Xm~qKVn;{y2;{s~f630'f?x1{xq<{~.j,h{x3ލFɫGcuonŋ`-?4yg޽zi}MM-܋ԫiF[h2 ,nO=ax6='oOf!^u)RW=ڑ7?9#+d[VcMȯO'gd>R[c1P}yzכ K3dB?~;3ܺ1ԭ7zn ɭ^'cfmiy59mg"$ukAϏŹx3Չfo'[td>=y˓߽ llN=zK,-gi/C֓lqb=_9}n݀޻}V;wV@y:i ܽӽV./O\Ǔwhj{}ox^30}g]?`ݝO5{IgOn@{fgN?|{z{Am=\H'' rhÅ/{'_秋OzQb?,5RK pxpomgƛd`fr|{e15C}a}/ջsɫս`~gM?O?a>X:3eO-oO9^tzs~///?>>i?|?xrݧ'Hg@<çSi<ݞ\xiQ٘o/.m|Ֆ_֟$G^gN}Xll\c7Ln[Ol& p&~15x$/vҹ/Nz=ךx6bote}{/Lm<3j;m?|Ɏt_loN|y=a G^Koί}fsf3o$o?{L՛ww>xӕ'O{?,la71|WϷ~$t3Ywzxjew}J$og>OKgw^7=no=߻bkko`gkk~loA|p~GubtšzupÓÇHI~={t2֏[s;ǝ~?Lm?u}SL[_?̜~?&:'; Kٹ<=ӱ7m~&ɳIl.߽4Ǐ6{[ۻ{ݙcky|}U߽ ofo=Yk J br:7MqH5f,ߜgw4I WE&ڪl8F~o^<轵;a 'mm=FZ0p~ؿR{^?h%@+d9K_1 ^'Agx'5Qm޳A^1s-e{O쯠r}}rRBۅXH8.u~r: [],㽢[wϪ7[V79d 7߇.O q1g2Nm9u or 05[P81qqZ!x j5Ǭ޻zq rnouAy Tj'F6:CZ7_ҕ^=)_dǫ#൮F6<\`O{Qx~rw_|!XY+5W+tii U#FKg[V8uVxNHW("2v4K{A[,k{ +dur"Ie/{qE^Ҵe y" {XRxo)wI¿ +'*?]{e7(>j773!U_D>8#/OS|I?Xf2 aF;_js00TgtO 3u.›*Ω`4ghTͽr IJ,ӱ{c &vyꌚ)2{k&IpaET2 sO_8G}=yZ%϶i*ؕQ31D;\#푣EVmmAaN9}ah6}\%Q~޳oPJF#Nz.+R8?l.rj;P6XA3̰Y~K2t<\䷚11*Om{V=5Ս|S?M*Y7{"'ղ~Y\+xζ.]UJ_xC緿0('7h|UAܕ_/eL^e_һ|:0Y~fȥ6,zXzx{ç?L)sp +E\u^F&+I. fx|yss ?}$*w 4d:c1x)~oFRݸ< [w +.s'sv>,kN\n /sr+_K!;T[=\77e% .J\?$/^nS̛mrR|Pt7HBimO $rmee__JVٸkn(Ir$W}'z<| i;*UlKFwNqTW ߉bMЍt#}>ZD5Wt"Ed^n +Qxx$|Tw&4uP×5ԍC_*/0o'ȅ.S™L&.U υ.9%EHpdWtnݎzUTI쌣7[db1D9驟j +hUo.Tx;$Ζ #&:BN=VeOKTCZzm( R-\IJ9Z[ڹ&F͝bq-?QX'ۤy^' ړ&CNC"3u{{uk_[i ӸiP@t/?F9jFRu_:Պrr`Lo%?䪛R +~V6 Q;޼4AVD +߿qNDaDO&э|K<*5ZC7˯ȃC%VXlp %>$8Zl="O.ů'O\Tu"SxO:oLbTY |\?8e fhJlP:tl2Z5,GPYD Y"$JgMJ]Qb|ʵo~+8d%4o&":& @ys9[d.瘬,wN=A-nf!sA%H)Ϝ%?§d#6:  g&mnopq#ė59A#;d_֟d*tZ84G#ҠZF%,zqSO|h{%d`d5>ŲDk&Z9v)Y%O]PF7YK#2 +2xlTT .ɼAm[/# .s4iH6glHDGڶ TRWYH8uEz׷}08]кU,6EJ6e|]mZsJT.nKl v㐠oЌ ƪ؄[OwK޺iV zx -%`~+P`nwv^8TLW7~ 4fg_T<&nu8pn*Zgν,y 5NˍA6AA/OІvUuMؔҦkw- +br&,q| &u寤QF:Vsl4r8}Rկ~ >sjv-^&= \>NiIׇ2QpGp7[QR);:XhJݗ_[e WqAn+1G36@k0sxQh5ȏjjr ǧǃ +~dzY=~4`ܝW[7T.'¶k\P~l"njvZk/U՘9L>LW )=oql`㞣Ȑ䐛TQo"RW*K}G'fHvc|P8m& $<,} FGڕjŮi6J?o{ϧEMC8ʄ9FM~W~i }ikZ~ r7]##nM8kw[h#oW27N\[\?Ûg]sL–(*O8vdm 9HfwϜthj"΃Jjpc~r%aFmW**<`EsRT/26Z_/=f2G5y}Nګn9fCpO*};J>iNAܨYV Vcǣ5bR~Q- +B͒ƚH?65sM?˯jPjỷFb.A`+og4;9KU+k-zEH;B(mƄ(>vOQ{krqvr||]36|'YsG*??*yx49rK~0_ W +OV5SPYuW9s}bJ:OE,\*۩tGm0|*$ +Bx^Qn|1 9Ե7fs :QZ,~)e3nK2x^\sVm mYȯ: -md%% 4$gU/<8[5ϟ4*}yFk ɞ܅wUs(9i| |dOK0vG:9:.ϹI#{?CcXT}BXIğzGT*Yp~8au坽<[U:Bɷ5;ÑnｲY8YḅSەދy4,|˲b/2CE_ѫ9Qw)d)#?qI7ȃ-~5*QOw:@9)9C1Je"hÀoP=Cq,<*Rdv>QDrX] 1^sCuHz]t1S!{ÜR߾LW7EepwÔo׭Na癍9ccǧ%(fPMF/+?+hH+k }ErkeאtfԸp}3/e`5}+LF8ӐUp*+>/.ϧ2NjM s?=yA}@ݷ,;_B}nO *-ۡad'˖n4gafl|}W8oWbL +u"˧CTں,[Pl쀥YoPk|d)}EgsّtǑh +Tqk"书oR + 'Thm3xܸA0ԋH<:,^PBOFev#Ӡ&N*oSVQ7 *S4O_, O_O.Tz:4Ryt0Jr]$Źg sssV{?\?^y*EmH ވ _#)iQo]ϧs9Sipx|'z +C{|=6%xL"-~2<ac?Χ. %ΩnnT7 ꠧ iQ5NŖe9mwg-%çq>3Ww˿ ZS r~!k\d8d C,A;-s"+_Q nӠϲPUXB`;O`Pr0Boڷv(f*1|,r6/a *:yT}o:T!v uI;4'`x@|GmOں]x@s S n:|  'AӤ)[Q x KL)x?DGAɩe1;>KVxO)/n ; +*P[|*cB@d???774`7 h_cY4č o[dG +R(G$,y7🰉8-{-H!g s A,ǚC59n @k;!~7ZGOlޮM[Mk?0F;CBcDF<];12,Mwu9m@4g+ ftrގ4'ۃpZJ=\Rr;PŒB0Q0\'+vqzS3&WA{sr>j.Acχ +w?.8=es5&sv'>x)IxZKt^'MfWmS' +W)ז 㳓ɏrN }3I]7.X[r8uw1AؽVQf>ŀZɀU}HS3`#MtyH+0^~کRِy;:L퉏Q鶳vyn3OX i>ǢِcMRHƿxJ7L+Ӕt/e䯩2 UFU-'+b#F]VwK{ZzS 9CCoG`ny(B34w2 ( 1KE<}pn0 ៧ާykV\ (b/~\݋ց~6 !>]I#9w("d^#W3D><\w`4%+)8ݙ[eCx7%S~Nf#gAs4܁\z`"KU? }?愨9'{zBh+qkj@ٳkK6nq= Qtk6z \! 'C +LٿivK{*3=OtIkMՋ n$ K'7]=4,f /?r߷ց^@ yEB\<#i>nOh>O1s1, +9Ѿ>98Q$'$ {ATTa vFK諳9S#iԠD|s 6Q@VbV i- L*Bce]VJU-Pnjqewirn1K{i]rar,c"glr]Lhƪ +j̆LzM=Ygg-pէߤ~f=BiE40~^aWkcgi^6雫eXpr8ZÉj &Zb(Gj9/&e]X:y*GG{W +#{ugBҾ6;B-mꓷi19 0{frGf"į\FLh{!*dO{?eXӍPzԔi(1إa'l8dzʓdY ͗.lo.)4 6Nu%yXEndAOvIZT>8Xg^>=Yx;/ +\B;/ߊuqv>^>v>^9{Pt.Ͽoeuqv>^>gY||ivy\Г*ܬv~;vϻ:Usɥ֦.XSɿ)WYBxs[Zx:<p 3:672TUK`g=WpV0@NJ__DkĻD+ t%V#~J˟of2D;Y ﹻtf>T\rEг^RCA| +7t3MīnJ!Qp9nZ9Hl]'=V{)T.{Wy^qøuX4=-38RsN3}"uyU/3O-3oezPims-Pz: nY疳5}+A$%1\q7D}`VzuD op W%}~f\q +lI~H-KƏTI9i +_,LE,/h39m=8?,.f&/K}%%@&|aO@;By1v5+7*{6-I]ʗM۵\YI]:+~MnrYMj\VRd/i/;:震zѵR4JGʋ#_.]nSZ[VSo)ożߓ:۲Xt/<׉f?!v TUvO7֒ԕ{ +Q´f*<n(j9'0bq0>zSwwc]e9cۢh+os,my=*q4GU1gn.rZ+q0gt^rarJ)u6xS\)N oi7yVk[zŭLZ߮|MwNzn 7[SoTP)9\bc{^Z,Y^cdr>ZWo7C{>TrY})4ZWd*b>ZW&lG;Co7̀ZRcm*d܍}VDhnS$tJ Oi7;(Axv_UͼL9nA&|ySo ٨ nmP=pDcʚL` \S7-kU0eMefikj +wA]~:]e֮y`a.3,:?Gg#oL?zhZBo@-^gU?pn sPD;f6k{.huھg,U?4zo"S8}ArW{7Ty8}cZ:˝^no<^E$gV0۲JZtAnΜFi%gtASZIb'buODgs.~(iliY8S΀ݾIExZ a.+hxilveĦl^6@WٜM +U0u?I,XXpwwSv=9[;x^8. |y7b`c/#OLfYk D3PPKFDh&nE1'K5);Ϳ ȏ[ +.@4smW-FF2&ҴZV q{&sxTvnKb8fnK{%wZˈb7n_KhdT]hn_vu-ImdG/ KL#|7= ǡREvn=HRkhhj&f٦{-0oŷcNI=4/RBjF*7FEuw~\~niM6c־՗-cw߭djQumb `\Ӛni٨` xOR.4dwkYX+St B-4 bY(~i⭂>dd]3bQV +.n)ƎR]9>~9vgܝ5|)OL(Ѡj |Z Pk=n I;9<$jj!HWK_oS^Rx+sCB ,mz[[# 5tν0$P-}ަhGS>d_0C( 2N(a =aL ?OF]Ͽ::?%.CxǕQ.rHG9Elqͩ72=M_5SᖧLDZ֠q'@1^p鋪 +VӇ7Um%wj;F`o;#7L?m(OJH:r*>݆ b;S}_ poioJ#U[*"V嵄&&ͨ]B/0۵3"mZ7lHet[Һ"hy[-A=^onI ڏϞS[#ZgCےhҏhגohI ڏB-AQ)[#Nxҳ$X)N[ qKh#v8#9(m i͑Kw^x?{ +׼p[I/<[6g }9Ju|Y۸,t?6m .zGYu%!Ǎo@S,YĴ[;[Xu9؅WWRqx~!ni0ኹhh' H=;Hl}g΀G/TJיZr|4-Ӽyf4sn9|za."w1ur}3K]xa*27gGo57j?IyqH8|qʭ&'#gYexN%ZHd+%̦Dw*) ǒb^*4l}g"o5Nd6zv*j/&x=kbY29ں2px0T._Ho$+ZLֹuHV*𮿅߅]ּ-v~7lXACMА+~U(ao;GCb.M*ΒfI|wWȑ~aa!QNn?wvvZD3d ZĻ!XȕcGxP=#OIR:_f:.߽->:hc:9:fh=$gAA,y +#Bf@m|3N-}|=謗v{iՌ1<8eɟy<}km$*yب[$ăPAQ0(KrL՟ygξxm+ȅn a2͔ nRLg{3֋W+§&tI^:GPUJ˙ErkecX('R#VyEﶅ}]ɴ8w;\ySaHG00#U?( x{yHW ܋[V.qp^O"9:%Sa^e~2ƧNO`5s^xۃoC׏D4_Txe{-KգVlrEoӶd']M:^8kSS0LuE5mJ7L%)͘pZY{n<DAjF@5 +P2ۢu QvDB qva5V+b=2E'֞w? MBcZk;wu?GH>tONgx`oe>Fi-`&VixD@HKNzBn'aJ2W"E֫Z"V>~EUxZ6r'})yT{;j ôg}=)7 r2-fsM7 MfMu p6?wylrybKJ<:MIv^C>(jq"xHLs"[{`xM|ỷ +I@c$èȦևy ;ekYٵW.XaeAG~اNV@`:6^|)[͊jAkCғ _ki~'$!&:uO2t*7یM_!仵Ra ~v:7Yss$?*9]͍" Uy$߭vkF nI?ـVzuÚ鮉WWs̓$ƞu˂(CZXHk<& i9|8b>o=޲?:`2G5Tv%bn.c='ȃXtřPl&zٌC5%$ o CJ&٢uH+MG~^<'@Mi.[SkZ -:&ƷGrlHHؐp; $dY @N8bă@/ ܘ`LzCƢP?S0(^ZH7yC,n!oli;G"(E"x̑1"Rf93̂'t!v2>p@=&6OQ}s iAeU3։ j%ǸL:^1_Th PZl itJc(-Ai>LPZ*:poIJE3'YX&c[+[D[ +:Ԛ^ t B߆Yd#8k l ~"A)M0ȉc.T K]'ױi6;䂘<^"RyݜuɹeœSL:tbIt3nbDs(X}e3?d2NҞɝ~jk7{S1!rś]=$!Zʲϖ`fڽ*'[N(N#e#@JZb|_C/O,nş#? u#A9Z [nkTG'IWێBd&Ç"ơ+hIX:kQK ډVAlla=##6YL\s)M,IH I'A>_agwG%˄Xn/}jH=/W$l肺Uu,TQ0zK)i`G$c|c4IN)2kY9]@}uW_].ƵoPi!oZ%bn3.3`2[#Wa~owKj#f,T*%r+{e^/X9PcxHB:(z~k^ ^L`Rۡ.k;?"~759Xx9i4&Q92kWae-m7VU W.M}_\݁Kz"F3QEs`Ai&<a|jJ|5:#(j( G$(ZRxu;DՌY {d)M)=-\L'`l_GMN?L /惴M''jI} %^`"~Ot .)zՊ?4E>}C̝>yy%Qo6t/5%hJٕy=-~fy/tf%c䔛ή"W^2aHjJ3k4!KRcsr-4>=l\6MNi +>05$N +8jH6QC2Hأd3{wɴ$֜;o+f̹#ǯ˄27\U/T N :l21G}n=f'9N?Yǐk.m~1IE%-78av"pKzY95KU}JUȥ/ˁ}4|K43KU?V^A#ƎXTE{?:ۇoV-M+UY4$(ߺ%='"숴S6Iisw3؉rF9=ux݈u69H"y/\Iv|;;i8^D;n{GPlwR0=VEPiF٤pcww&_NywiaJ;-NiLsLNZ.zSuA < hnȸشQxn{-19"ZRDߩoѕ^뻑7&H[h#7D^-p8w}*RҮuFSOW/=9nC8d9s3l3յ9A†7z0h{J6CɃ#:قTfhmbs =`e)<ᒳ_pXrs41?7vQgIcz^T?=aW)mXgG׾Xα=j>@"WV2W›^Ϛ0rLW-3ajLZ,3aWL}>Oτ銣t>Oτ?L} $L:@9E3]$ajr$L +9YxmWz/(|_uG_2Dlof`vU_Y]e9eECo(V=MLa0*<>,yW^ͮjioV2 Qd۸^Pj]gLZ9aY`QiITUQo^yUFR$T^$I7 r8YYFȨ +>^r|zeh%5'|UY=XgV_V?\Z\Mqe8VkVL ,졹ĥ9XAxb&2<ϙ#XM#pM0 g4X%Q栭~5"0DATDVQDF +2/JcD ,/s2*$AVϧeUcaaRJH'*`.*+b8HC:4 RdAbsQFQ`0T4 +0ET#Y&}"0FJH^8ḉQ,'Lwr.(2( ?^(U3h{[gQ&^͵,`Xj4zu_6 +^-dh[Y,68 j'0*/1`W=NBGi,3"@ c 8`cm}#(S2cd\qLsbY[dQ;'R7a3,2"tWlk~^kQHlgZ8 aM0fl$ULL{;w,ADzGg_ysZhX{FA +APoIXX7 Z;ETji,RD ꬴ\(/r3<[T US' <#]E~@u͂>6Y^bM+` a3 + './2( FTǀ]|EP@<2- ~Y e#L@MX*m5 J,8 m =NXQ$^3eީ(-u}A¢1,ZGCY u2ب2OëA1,Fê*A새鈕 Px(k%eG!%*rܣ=&_]qo6ʉCv#_>M`D%qW *(:UGMYӼ,@'+fX#d^,JUDASAJp/>ĵo hqA#_>Q)`^# V΃\$4I + ^|2Ge0Bw:I E@5lR8 i vCDE*( +9M<}8b/HUa ӽpq]>}= N xS"#v `_D4  ^UF̃ "^"Ή#Xn>#*(qwtIwG)n_00k 9 GU`"DYH YU2R KeOBG!QU87lY& {0AUm(#ண1 +X<+Z]* N(%cCK1cʨ&G +^&2JL*/shMFQ*e[!D.F0|OЅTy87ʶ&G3IO=gP2z*# D8ۑ^eoQ A$ U "h*C@ +6M8{ +TN&@HaM6$@(|1HDBe9AEJyH zΗQ݃qΊp(Sd5 sH O&X&q,j5 9ˋ$p`"Ӊb>d9Xph0&YMSF~"q XD<!yG d͎(*Q iYNCr²<"ijYE!7` HU`! p^ĸ (J@rD NDi Q|< K=AFo$4Uc ++XIOP, b`!WER< \AU +endstream endobj 446 0 obj <>stream +j` h,p4CLd$B2d63ph '(0jA"@`GȰG %p h˫ 4T]ɸuԤ"a;@i#jA,*82Q(d?"Qh vC>Q4!22 D!h2VGI)((|Y4!T. i +(!h@@XaWhd`h-܀kL Dr #`Y0#eND1e3A!}$0yD9p"0~0 + " A  mj=J@pͥA-@BK  $8q+&Xzũ_a +d +$ +hLi^@axV0P; +yG!S$L8M\JĢ"I~cRƴ0%ml BQ@}H*.L'r1C4mKIh@@!eQ^bPDa1"YX1 +@8G,3:,e3p x\*;(@Zcj$Q!}mS M, +Yb%3X0Dp(g1<4%s$." u0ЂCϐfRgdLeQG4   ^QHcb21#Oтd% i8Gn@ 0D¨O%C8.؃L Oh&/0G4or5<֗ص*@YQҁ}XRC:JTT:hX<( +oLfHUYB@@Cgr2C4C{ C&FX~$J,u" +d25k~` z8F!Uaӹ'NGJ A'GxkJ&0 bWD,O nc`!SQLGia&X(!``]2a>`z (`Z >8KB ~ N$H I%#"u:0z2H$UCZHX(T S`#`+"J$'Ǣm `ͳx"AdGN%q:(<'c> +T 8X*3 ϑXVH0 +0cLQhA"D`h+@%ąa ȜGE(8[Q{2L-c0 f8)Q<$T6=Q{B7%Y*SdNO  Qȓ"/d @MVU>஁4҇ EDr* +xs`T@ 8^0@!@5 +`(ش=89N" Cts@0 }b@ƌ'责T5ZT/,1á d`6Ge :x04*u-sTAaX BXhr$"S<"9.1 ~/@2'F,H,81n! HZEp}aΞÒ8E׵@2%}7\QEL84`zᘚK DD=°6tX0\af!@h+2RNQ"]Kxa: + (Ju3o4 SB}֙1-GJ uu;2}VM0a(2DF]8f9g h"PF!C`T!pUdG*up B,

ZFb+[Zo5nBqREy +tţo;ڟ]|?z'/~IGIgu>x9|tMͣw仿S껕ţ>~'ggs6+ Oa g]/>s<]'rtktvc9'̆R߳ia}s.?<==1N/Mqax ~^_ݶ\&JuՖ@0i}3:?x]]?_>/gf_{k؛}(6 NʋYir;xe4@Š +Ue}j,|pt9WO::xQgKkgp?yX=R+3wP_N.?g_#僯^zxZ;}u_5qs!o'[Sk}ȰaL?=?:s47*>w|N-NbnvÄ_mBߺ_O>,ar +<wo`z88^=Sx,/yï^fgP'X=ۿx~(BZ *a~;]|N`N!=vzGOshx}ޫӟC' Eo\>JzyxZ[>:xɛ_~#7E>=JiXN/O.;'&IuGiVhXA}bO_~Ӌϯ}{'Zu +oo?//Z>⧿;g +g_וF]O NǛ^ü5?ͿZ᧵7vY{/{C=/ﾬ2!5/o7 +Z'_=X~9Rzpfrz|luSp1ư%?}_~kju^OFuG/~ٯÔe6 +RZ<_}{vgYɳ}ׯo|7f6~Aov4w_t_O~?h?_ QsYmq4{?&~Q<ϗ"Icr<ܻfCmKp`/ˈPK(-vP[)BVFgn`zn _^szkldxE~h)⬹~Q^FըOawkxѣ/ltzu7_(v_d +Ң2Z}W]N?tba?sU_͟G߶v%/qJ'S̙ HD A9SWuUjr+ZqhrXl˒l[8Ͻo{UI}ܜ!j-P +3>n>JԗM +x"]+T4W"O;4"ָLU7*ju)u10#@C,M"BA~a̅!|,Tg7[ 9aLWTori}lv2>ꖀM=Xkm6l񎋉Xa44*?s\O֕ҜLN:{x 9e`j>Nnezi9?E'ۨ5'âݯdRz9^s/[UWZ7I"J6ַ>sWv}(M.& bb2`(0S3KݍkJ彻 /(rYКlfG/Ŋ30\fvؖ*&ǧmJr $ypeE͆3r ƪݍv$`U(X4#hp|5~TW{Pv0uA_ )F""ToDD +>J\:T]ך;y;abNLGD24SxyhD1検JL3{" (LeqY*!"*jwh/[ g$;ۉ.[ՔŒlk3'wSZAjyx#$`Od 3v6R3`6a1*gzs3'kVc:/7b Pp DsݽD{/5}+./"x}KκE0G^&io' ~◅4uJRa!OEttŒHu +J{L͛ +.ݐQ nvReJU' +(̤SrcB}L)|~(+N͛KRvLHepʤ2q1;L ++~[L]`nA#U" |r~lcԲHlFVsS+0£n,bK灂 SO=-q=d~nGh3hA p{b3YҠ2Q3bP KlfRf#|NX/,';J=yyb7u3pa<}2>RۤS6`<0Y\ԶfNݺʤ;#y"oQ/_:8OY.]_H^-Lx5{:)M\,NBC%ZlU&2 {h"eptf<6-TaP~ӭ!8ǝҰ:vcV^aׁ| +|’]VKji,ŒJA3T*4Zejژ5` ԸtN6* 8H%leNZcnFgmXc9y'w*k%2*Ȅr@kՅV򐓂 |xiM̘Q1:OE+ + 2Fo1a鳥IK&4"& i9 ڵY!3OR/HSΫEJ, tL dPGj'=hDlD@.l^ǪC_ ~ԿEFGl$O-?r9DȍplDLҽ֜&s֩s]20#;,pIM: z5>ݠ@)OPkZyĸ/3Lo%X2x+$jVf5/8 0~wq"P=6Sg4d2ŠڙwQ7Q 74{hf(`-e{X(_Ԙd˫%TI zuvdk@dM%n1jaNe`ϔ*F# bU)W =Jqe-4?sa!yX+kgg)pɭsl:a.(5u#zϨs+\h9'PaajwVvsڰ #j|V[HVe6s(s]R"ÕZyo+|'HyULό_;h֐fBt$ F'GɕTm-ZZA >h9q/羥s9PVJn .T)9(5{;󛧷߸w?O~ѧٗQL)0gڙb;W.v3[g\{?qG/u}g}]Ͻɹs,&TLq6J׻ՙOݸW~/~;x3d8 $3 *rwDsu85Xh-]~/gǯ=PT2-3Ěݼ+yj+*2f !QuWbY܍6fw+>|g;o]}W~^xreMPf"VSSPENZ)n[;3'/n_qڽ/}_o~O(M6GLhq]`,~%,e|1-\:zn:w{~!7 ZNέ>~ܥk=ko?wG~o_>+s;-+9%x9ųFwe3N_Gz?}ǿx>o_~ŋo/<ٻKTJS[snw<˯}?___ _-1K!-gV7kkw? Ͽ/}?OGg_ݽxo4K~&+%zںW]pPPҥGs/g?}w?~ٗ/Rvp(dBrZZ^;w[>oxg|ǿ_/ [ϟ{'ZynAԹh+"y$+?rǾ?ͧ}7+?z~???g^}k]BaFs$SmNop鮇z>xRo#^_cMS?ĈbFpQ)Z˝޹wn\[_>|ՙh);./0}[?ٵ\ّ#-Dɹ'/m?s֯?~}O??蓏_~gޗm-zIKFZ=DBjPjCo/[?7_o?G_}>W^yVN\acU(ŊV+b)RgfisC?싯<~އg?W_}ŗ/}?Uh1E6 qT%"[_H:+[=S/߾}W_ɧxWnF7B~eՂ-ŭ<[/>⋯O~_os}}?ufoQGim㫝ӗ7zo_z_ϼ WVvD3DW&Rkn>p'ϝJ3G:VgEuV`G}(tZk7ڝ卭͍\ɭw]g\={ͣ.fy-MBGV{(6w.o|f}mٓGя~O>^|~L0`#y@W4x2>sF96;ŅǷ~ѷG|OO=q{X.5gyh +[Qq +c0R*_[^kok/|;vD3Y1Zga: ^.\r⒏P iB5?rԉ[?3O~~_|_'|ӹJх\~a?h>2 TTbXͶ{ӋK['Npkҋګ/<3OW^;Gw♪7 |f!"rhǫ9B= ?Wo<?/~{[޺84te6֕^zu{[zyΕ+w.,gJ5@8czxlQ?éHUnͷ6|,oE0?` C)'@?n`ރD/~cP,/i<>EAq%gDajtqQ'zPg` !҅J,/`$X".驕P"ƙq;2l;17hqw FK(c9cɸJ'Kjh֘r<+}Cr >5 >h1N)(KJ&ŠVVb6&d lʅ-;bp:=`Cg)NGt2GwrDV(&ۭnL!@Q|prh~+29Ih\$U$I9TfkfY-Ũ48fOBe&\BX,PV{J}4-.$JXCB"R)级hwԂo| f#P(#x,YdY tPɋ0/bMk&dizqޢ4&'ˆq%+"62ֻ P:)I/$q`vĆ+vL"M1eѻqu!<-"=\ IL+yz0\~GP֎Kn + +ď;׵rA 2M霄ǍY˯w=x 62.Lb.FvW@|Kz xY6xF38tF"x%Oa/DvbT1a""43g`Ɏf4L"5^Yt@:)q #A£:Ͽw{0]:;e D"_Hv~yj<|~l.DA (5pecFX0Ҩ"Kkm697Fv,6#^I:!p3 >8w%=7`z'( +"E%=c6;nm^ގ(n&\{xsH8  y_TShqr(sr~PB3#7-><3bRup}xap`&*H0|}3zk!|̥g(3rKwp؎pUvv@5ٴ#¸ lBER^RRC 3AAo Nxz+j>6mk^A߉:#1"aweo: +ЈOc긍e@Nz&|X8'J=4`B3F\谙d)6@AFa *|;'!.ez3>0bh}e06YVR7@P\46XXlD8Ѹ 'AJme)D(7kE~_ٰx%6eF/7s‚n*HBP9^]!H`bNGHb%PFM>|gS8b#*4Wz' JN1M}| +VLsR6N)4a9G0;`A>ю<iI4!_ [I+jZP@jT}<88,TKnR֌n`/"7G^+,9fCE5ހ& VDL%* cM7cҎD4!5PSGl@xܨ bǠ3_)LPߋVF-dm2JMLà$FШՁGX.&RP,o>;9/|JlCkn"$;lL"Q\T8q~_(VfdvTu4\߄/V^z3A""4ZkZO6l6d&@ B|,ݻ痬$>ְj (w F*JBMt3W/^4xǣ]&9'31"K+:&m> PL Gm/,frbK9)Ԁ(=Rk^c6X SjbfN-QagA1:' J&UR+n&@ n:EEZcFwӉzĄPCcNB?j!t^1Iy6C +"ePEfG%@ t>scYqF);44:Y#P]DDN95w`8j-0+iI+ ).sXtJtXX c.ի7,:sܠ摍h{A'7x>BnZ*e/_)Ek{a>n|lBPg\(IEO0Rf!;}>7{N,.-4a*.beR{,,f1hCE&ՔlgM*L )ެ^KNEMLmajs#T[?)LLi.sZu/.'g|\ccV6fOX1\D^wtsh(\>F#E )OHE;)`AB$l;_kKm`"Dk\)|sRcM[NjbN"| 5D4@<^P`zF-R'^}2R${p r @⦀UN | +WA ĒKa3~Pq/GG!N=_( \}4a VV•̩3w>L1ؖ +T]재L[c>al +TPB) N墕J$Z|f:T]eRSZivN|ވR +Wͣjkr6,PB5φPau37{Axu36AjxoJ鮐T]L`\xg7/?^?WZsG >1`' ¥%LN@-|V?Ƨ|\ +O.0LkkNv h*H6{| T8z>7lET)\~s)YP>'^\ݺCn Iy,x)tzs[`z:=={yW<<1pIWBR&]R}l@+:{swg4&u.OK%@UBQbê#_:^Uc=@d +6¢:JXiĆƝ"?IY>^a }A/76ˋ˫WTyr+\*,ACX}3=gKR$sn؈8?^B >7a֗ bBZclkmͭ .R8tpYNFy>21dve3ZieU M^Ϋs." +ܝ\L@A ȵ` qn!B+^_Y<}+\u6<:dtNȌ^dEhT, V3w>S=uЈYRT fC1c\.bkGnOM:>ħFhsݛ\vELV0'|1RZVIĸSK&D7xxq3_7:h}_ޒ+[JyCeʨM'#z#fxௌPdeyj xoĎP0PSJdl3%HRØq(W~~1LeE-L|F+Dk'3}JkjaܭY&*Ņ]¥e2>bX/d~數Ph(.E⇨( AJn6KՑ[HuQ>MfadnDlbr6|N)3 v%W7`">r$xb .!/ֈs +m;(+2E*`b59ȵcBxz)f _06ߝU"lrRYz<9[]o K*owF_N&$BCUV_W;>rɻܣB'tӘa;DFXd5 +5N)&2{B X @71:b Խl`#)ceX4dm+9W&6 /q <8 ewCD0. +XG9./fO5yԂ橻=f%6 @UKkX5h!8D7:QZzjxDȹi݁qWǺ{ʫwgzEWO?tа6`REFkǢC:!y[Q3@{2|vnAƼ|4W/?agħ~*\q +f=T4Y^Dq;*ATt`:׾!Q{zex$p)O&lSTAJTwi)f40Թ}qYl,7ę"jCm$:'@U?8z4pXӓd`_]!\*`"L ^l/M61c|gXPM=! +>be7@ڍi0Uj{$fO,_xbSK,"^v: j 6knLcu7&]di9L!ya91vxob+Կ}feLH:ɍ cwNo߱pyubӕS>aY"T DZXh=7ف$g봤 Y<'$X s2. CԹX#;q^JrǙj(3Fh0wr.ۈÎqcEURE4h85n'F+J~tiJq~6qyA|(Ȧd} , |յ¥=LofoFLF"6x}c"c>R %$W(v4s>j%:5GL9a{薸Xu.@83Bx@ "\3X}U,ȥhk'XX"m"R)wab1kv,rX> 6rI}!GCR\+ڢV_+hfҒV[=?zZQ1)"TE,?kMIxqCQj~ gáwc68Pa .RJvbo>_OJA.JԉFmXg9Djp}lAЁ28a~p}`>lGf^>?"ͨbV2BhHeMn2&flE#@z1`ř#c!|rC#fy*a oZiuDzͣ6p"t6~em߀7RDZ0~`&`6aVĈU$GM(b6QftK6T~P>V/,z;mGpRG^D@R`! 5:7qp L'0RRz+JK3"R6\^Mv{S )? (Mz1&[`'"G-C:Hp)(&d^>͟;֕J}yomJe,﨩c׈pʈ2vRs$-hxzc[q  %e)W^+H۹w,=utw7Z[;}q&|oŞEG,؁qL'ljHhMx3p0N)ZT>,3Vå{fbpVo!cr}e~'q$T2D'.x֨P/&Z3>*.Mg 6d̂XPPZ1RI7MNc‰'K^ S+LWgC4%)8*gOIɦ4fDv݈3@2" +kĭsnD8q%9w (*X/̩he7sWݣscra>AC CBвZz+xC M~# +;ūٍ7Z/8T+y!R3Dk'TME&@iT*JnfbRS\` Vl q?d`Rv2fR.n߸g +Z( Bsk-&Z^qSWJG_~NtD*JK.1s{W.`)ow5abeJ@A>n흤%8@~>Sܪ#  :"*99@V8l)6 zT{ZɏڱA+IE; Q6ѱS1R w@i`l@}S.d? N48-5ӡ.HNcrw{af !L…JVo&/vv|Q^W6BeP,NbC؜BF Π0ZKR&By@Pitvn=NF%x=| 6yrPMoPt+n7&(`o&\JKL*ffO;hB٭77/PمGP(esg&/*9r/iĊ`ކGT%4uG07V\s+!jAvdSl\y +"ĖO(Y(4-/B<ƻ7ZMX3u9@й re=܉79h4ӽqճ@T\rm<&Omnr1B=z1%mZHSZ[mvwSމ;&d{T1y |&/dD,K53vo/h\j҄~!l=lh1DjvZgNhܰ,7!+ĚI[ţ@>9Դ}ke0v\/bU`'6.ID-Kk 65X'8nrXwL7² jؙ8Yp`Rڼkĭٝ닧s'\/l>[g|ŀ*.2n$'\gF%@)ǜvP:x3rp~v7pʘ1e ZHNq 7EP]LܞIY!.Lo 8IDzo*+]]]]mؾd{ؔz;#4#Q#Vg|Ά[oT|-խ>^sU?-ԖBXUݩh_}ܡWBa]x^gj(HuLX~@EglYxL\4:||.Tˉa6qqaRɕ.]{;?+X51l\z_׮[@5ۼ˓Xra⅙VtE;CZ(RvAZH0?~Ov{n\:9huv-9*Vw"݃WjSxsWlLMX'/Mã@!OEKbaQ) W}G*cd„+@ZJzsZɽz!@LY3aG|||i}zɬg2S[x<˜o~x@xGH$R۸7?Tc;hڌyG Ss=svaъ]C\Ly UW9ؽsGUD\R~)4YH 8u/8VKf |Ӎ-Gf}(')hǰTebT]^9yxo|uǏ3&;o|Fҝ)meB*9p"j* G?4WFs'?jnޮ_e%6wRXoj7sqT}.:^. VAfP*)|ͅx1|LԨnwo{Gz [EN5G"\5^ZdG5@ WDY/`Ox4][ale u4dKrv3*Y]]bTוLЁO; [.t΃9=H5BF'^-1!\ +ãloO--rf-^+ vxE"ѬWh2%2! +P 3eG30 Rƭ,R^:^X9~s;xQ{-o̓Ýﵶ{W|L-aMȯĻR /xB{[_oȎ3~q'#.&MzykûKZ^\y >nimV.>-.]#Tۉm ,O{7;1"Xy4Z*&hd lkXѪ`WmtB*j/6U+iiP^2(NzQMJ0M:kQLx Rb]^0zNqgP|Ӯ8la ?&_u8;"(M).GK8@j!@*y90*d "Z>`=K5LGkR:3OZp +iҠz;P:R\48>v/_|yTcD3S[޹ +]PF$ӥr,׽rwr⺐\X_<~kpVZ?|[t:ەՓOwo"W̒Qo߼qwYHL ~vhgL`2ťbnRw d $o4gxUk!r 3a>jڜEtQ!>`RHP$_[Y@':dE':^ƍv +Ѱ”-0jXks+^]ˆG.Dw.&Jzڐ, V?k-D\AdMX1IpFX*J1_* S\x"<3T =|z> ,%csl&"'JZRRͧ% ^XV#TI`b ]lr ^諒y/}z9'/"A| Tg#,'dvU-R_P1tFqz]L 6nRMR+ĂNgz^4fi [7kbn(K,כ[hpFtۗ|pٷ<_}vpӝO7ީnܫo>>l\5[ƌ7^~yxE2R糃+H$MF~ie+$9#KV6{7>\R+.z X=㋸s݋ zool`ZMaDnH)Z4@Ĥ,n\ r)6ެ\{Bspǁ Kym jIU,Դ,b +\{'p)I6m&d<(PTh-7^ +ׁVHu§9!Pˠ} ц=@yq/ 2cb<&8MFY2-2JWꃽ6n"^Xw+^_*]-3=Joz@AZۿ'tDEхWw7~t>$ڮѽ\yz,=ʴVE3;.8p:5 ׶VD㏎|4f! +Svxjv%` ӝg}V]'ߎV_2ϪWbr2T!Ǜ|@VWXɅ.T 6S+Ņ]>;bY\dxլt2:-&] dgݘ}ޮN7 r[F~$M0RC>"<2?C1^+vւX?$*5P.ΊL_o'ȵm\M/je0"p`&] +r Ta)07U +G T`ΆXQ+;jqMfW|0c 8u3 P!V71j1Ěb_q X&zGڲ\BD+!>pqWs@ 'yfw/$ZmWȹҨHE1s"dRfZf]Ф5 Ga|2@a6;̋f-Wxл g\ln6?xЅHnܴ@1':8y2I), t dRشJfc Pق\h|<!010` ۟g9:xǰ\I4w,Lk IZΊZbVwF +?L@p:`,$^< O9-L랐WQZb; S&'h +N':}o(S#PnADP( *"t1 +/N’R}^eQ &^#Mh3b!&gb0!l28OC +a. b.&*Kʊo‘E1렮|&voҲ9y cϝx5"T:}D G)TȂb@u!ō at#Ã;[g x p\ԼOP +zCdO aCr(?du*Ga#NjwAȾryp$Hs! Aw'^XI7^ V#g>"D52@rZ!&fsg @R(y&#Q '=`C340?i &.#@#gʙS6 ۬5m Y;ls>L/y +ve40@} !4qAw9Ղ iKvngg-Y+ J"A\ssx2ePf!L8>=yQ%ôI)g<yz^yaU%J}`]ab2&H1@'A7_xn G\R,CqD{9>!B2%DYLbܪaFX`H SN?0*LYv$X܅Rs~t 9(J,~{|2n!ٍ{pp&5knLqY/-x5? }܋=?mqؤKb5(iO^>cq[Ƙ>MLgM1ݏVs3T$I\`މH5Ba$'N5IrxsJa"LtR+!qЈLJ<b.T i *(& N + +endstream endobj 453 0 obj <>stream +ꪔzI;r0!if4S{ +9YiM˲rE45[N-{;d%)#I^2<R$*Qc(rT/=3>\9J4`Z!/Ns/YaJID8N'b x0Y6"J'NMڞ{qN'k/>w9Ϭ :1=D GLd0Bp6>kxv~ 90b s0+f<-U˱浓vr15fr2`vSӳv'S` ∉Η A94`HMyi2}pյ72Y'ybY. ,DGT( +\ω v^߼ +A 3湈FPѸKzjQ1c:NrGxXպՕOI7:s'f@xzEzb3=/x* MsTp{|a$T̝?Xiw">\)7QB4>&0%~'4LE%edsTRR\e\||gݧ?nW5bzt{` *daH$k2R+q0J+qkg?yz?γ;J/}@e` +P*.鋝tY]l]sptǯܻqT)U0㞘r=Ĕ~{ڂtjSs3vY"Wj9,OsD65S~xhX3#-o\o>ҧ|Wzrqcg&eZM6N w\X/oAOo?xw߿xc7"VmCpŹ` HA +6٣|Goq+˿?_|֯{>vaH) Xq=RLquuw!͢ E"MsI.w<>o/?x ѳVrܩis/uYopxR(B;HfY0={~ѫo +FoZ>_?ӇǍ/ׯp/iՃɈ m!C2˒'+N_?Z?G<9O2 0GhZ"IlJXQ?o\'?ɻF?[~ Syd5N`a00WW}/'㏞_uk٘@!DD( E=߾{ZW;Wo^WOO>'v1|@FJ+T/ľp7_^ׯջ;;w}Kk&RT'+TU_Evۉ+>^w?xϿyRBǃ1z(+ｳݷ~٭ۏ~ݯgW׿xFqIk ISӎ_Z*jǃ-ʊ~?ӫ?_0Z㚀 PdFB4O=ݯqO.~Ϳoۿ}/^}1ఒO*n"1X^*fA?zsC{kq뇿/>W?w; 7HF{XW t1OW?ݓ}to7c}X$2鈒$Sf-܍҃=Ï?O>{wGR$JLD,6v=|a=`!~i)k|p/~ﾹͧ''Vуppz٤&%"%O~o?x~?ogOoۇ_Ryxy$趺 Q-SE-F -ȓҳo=^???O`uIE(Jky鳣7n-]ۮ<aFKuM5aŰb\[Y8_n$}Qo\_ZkEYRs.T.fHHeY'a(B`)UL|NgG5ptqyau +v6YŎ1ԨGyNшu;!O$F6)&o'?x]WޗO6}+E]aAE'X,n"3D%iCM‚qu9;o~Ͼ;_:U4"2rZ4[0i 4sXND`S"rL*$s4H_ +U*.,A0iqSV41)P`PtS 鼌D$q|^ B\,= D0C Dab!zyZ. sJQ^-)\t!d1=i!1=HԤ/_]A Ij'QA8Ϯ޺|o)$x$s˙U< #DӼ HB>P9%BF" 'J!w+4a B"!e ֘rc O0-/H Ge<@TZ5`Iqy s v6Kģ5)Fɢ# ڄz}^VjzP>&!F*U.ZFeb29m i$eIkJ1-4˥v`1~5eh=ed 817m?c;瘰c x9S^KfAH,U餀$8hyx͓a<Eݘ6gi\L7!EG' 󆱈R&[3,Mngfy'1AaR{ Ȕ ;iDX>c Q Jkɾ% )E(BL+u VW|vwT4cfY4$V 7Ԍ1O B(  +" *H<@OhHlYlaIWϔF 6aqi"-/zm* z ?A0y4i$L\*\aܞ2^~8W#:(u?eBPjO9N B)xȄQhR}d܋,`FIjIIDS +!(MJLMX\.؃(s[^&=_=?q>:Gmkr5*G8VN)dz3p䅩מB*%+ق T_N&a!(bDTBvbfuI饒\IќIG$F'dGn*1!RϷ\|+5-7`44^93ZKi.1ŗ&<7bStlAms +~%,g}R/mvp= >\xA!B6$$a@TNذ ||\@zXrZgfq9iA7Aىv(ǵK(\.cC"1_xy:R[Rf$[VfLdC,aM̯ZՋvi;*;Cΐ# sq>5sK^Fw!j &3rq;$x972AIM,6@21g*kQFOʯGK'i,`6,6*7 )aRF + N2bHX&aڤƓYt &޷)5^lōܘqS|+ܩ8m{~aIRﲉ!*WgԼ%&Ef0AZ\xmAq D)q5J3Z(BG>ohP`$o!Nfd -h /arjZ{Y~Nb+V"6D8T|6"R +a4Abj҆,.>8^6C|{ݹ{Kaъ<^M/ވu쨱y/Vߵ9پWY^]<#/k-,QW%wꁟxQ?|̗sI-&dBJm.A$R;U}E2 +CǢ%x[$m\%(b=~D0 ,P4^ >Mecrlf#R͑K#g0~a{w?YY;dfa3э-&4+ZyӴ?5zL1GƜ'bJb0a:d&u޺3sQ2\ᘛHZ`ݎ'ԲRޞշT/Y&E +!dry~HKpDkUBǛQÍZ!aZ- 5}\3A4LM,,1^n 1"JL eګdx-.51i_W4Bі<oo/m@'d|I~)g%Ͱ*-i;b]dNF' b atX툕kѵ*5\ި݆h!kU~aZ= <&V+bRi{{@TJ̮&5FP(ytXO¦Vۉπby괇9e eX&|匃QݣkoZ_<7sLnfGG^3_'Z  ".")J/Z:wwoz;XȚ 1jeËJmu9Z60A`MRu?f׏;;F"UDgH..hK/jK6_Z&eAa1Ze3;来AXŤnb&&] GQ-1 bcȬ@ͅF}1I.=*ۍeHmc1[Xg-;H +)5TS*D 2;`Ӕ2j2Y6Š Wݘѱ:*e 56ʆQ5ʛnzɯFW/V!<҃nЩE. ())TLko/Q޸]}kwO|jAT2L^{tч0J .U7W7+hG"GXK|~.GⴕrMYX=eؑSVMQIjm'\ Ě+@BytT^Œ3p *ם,)pii4L鄕p +LM{Ȥx VT]a JEA @p-"\pPZIwLBvdr>[QZҹIu.kpᦌ "AuTK+Fu=!%J.*%HJDFqOϹqT*8)ATɯI ".\ao,!ץTlRJr (&Wbr@^f]xd֞ ܘ[Gz$'o}vO1;(o<\an!յO?~9h!c鋰>L n4Ͽ7aU,?af1u:x0ܻB*ULm8,,g3:bb-KfVyy :ՉD*`I'>`' E?vZׁrsIv>_U#Fz!LMyPEgO)l^ƣXiMTϹy+ZGo ̸^}gC`h7.o'L?cji> GKjuS*F2+ V XXb2yDjRǘ}1P݃ETP)D*u:gV'*+BfaB\BtEQ,kE +$@$nXkA JwT]_9 ˪˜[5"PgH30)۾=(؂X؉qz}i3H,G(&n@xVF)4 + +f}vCh$GEk8K0O0Zs^E9ֲ+ZyIg^?9Ă|5rk7Q.$%QuUl‘"w*cuVqA$tIV@Fl +fv8:x[8c@fzVd*UQ+AiRٳ挛cBt1Z C)^3^LNJ?,x(pVqzu펟$LGʬ?dnCd iʁ:/X:~xR?տpN,X qMKt.@t\ +k '0I$kzl$A T_f3C6;KKdp>:DKu7bTcS).;H3|O pdnzb<PX{=9 نjT r|-<$tc(=bxsƃMPH+FhY_<9H.#EV K9?K99$8쎃6ٛNT|@xŒG@ܽ H0Wh], o񥗬/)7m D7@`[!HJ9517.;0d %fs"Q &ft`5zEvuLfz ,c2|w\CYJg3-7D\˽4t0X +kkv(%T&y;I^~;rLl! @\vQ phwt8fy B9$$ӣ {H݉Ohܙ鮪kDzC&}1= +ReHzB'I'kHi R }L"'31Ji[դp5MX%f JbH;{)Q;EH[`IkBKòf9sa[u$ `{4WzRUZfy9ƃZ}̬ + ]oƛV:"5%ލe/&@|\\=^" ̧!1WF?9{W6^4hF-<&F^'J1AKjtқKȍhJo 4[Y<}Vs[V!uTZUv_{Y[&]N9%^zu]PJ@Opܻ3.\bjX}DgGe}S{x[Ӣ"k0z4S…>^\}7^nTxw8]tO6{. ?m|?-99fit%oHuh[xvuӋ9s% 'xpo +p2Nh-mD_q5-G 9ܽoO˙Jy6.F>XDKa^o=)^6M&6cƆgOK7"GNＳ2rz7p}D1^YA|9g_Wwfg%d&@eAd~7 +?+KP0C# &'?`%ͫU 5WyHюcJd].b$CCh_ AJKil:dƑ>o,>KG1T\iP &|8sWrneY=2+;Ϟpg9Lnw3v[Sk7/ݟsrOo_gk㵏/#(Gx!Vg }q Fw~~8~/xhp:< +Xa>lޮ&zC96oA|6/5̀ڲ )& +8 +>4?W> PxliԺ|rF/w? `) ?ӚG5uIhADC",_M4Yq fGӠ?K{9@괏:ٴ9XO0{ {R럥SmLlzt?9kExAΚaD}L 29e\ +AF >+r؀}֞("޲&˯f|[}ZH f,z=>{98)}Xt[Z z}}dv 0Z{mt FNT)/_?wgP#%ZBh߂5tPwk0Z7P˜;V`ZǘTтu-KXw15;U)2דy!xEo*5wuտ>|xdpz7WNL+Jw2=5)7[ 7Gg_Kuʺ":*h@Rl +)ͤީI Ȑ"+NW,_ڽKpOV+v*rMLp] lF e \IUiÇ,AēhUbɐv#Jv@] s E1AjdkiXPyIbjs͗}/Jd6zcv.ލ1i!9p;+9°s9~W#i d9R={g7W ܙRz/1pC%ˌ##˴`0 gZZp9LzR p%֒2SGXNTWAnp%Q}ws[b]mwVuƈ6,W?bA"zD;-_8MjB†=NMHM]{1e5f?wZ7nN +*WA>Hi˔%\Cj4Rm琽R}ړ +c)< _8 B\"\нEkrCğar`MxkI1.9lѨ*5@oN/_Ngwywb ~ytξ:Zb8$ٽgKgapw"x֛k3Veɛ?Iƹj} L$G9ZG_/%FG֚n_㋚ڪͪآLp7ݓ@xcJ0`8i]1Xh*yR1损Oο>y{.<ìBa>Т3yÕչi@IOl(9-0qkXMN0}JLm]񉜜'UӪX`lٟr̪=c 9 6{Acq7C4}y'aвi}!XuMjgQƇb r@oA#|Wʌ 0N}ޥhx}^|͚73!H#͙ע iUH @s55(Ѥ7o =k`Kl_3~bBPO5~YcHyg ٵgaRnz"Ta*J&6͆)s3cԿx3q&LIu@хnzpl5ZIٹH!`JobpkArYN՛ѻdRkas·FPp bSHֆH{U!~g o=J3T4Su޺MzO/\h. ~ [uӼ~D a5fw~|)3LB|Fiz +6Lu$$mJ1H 38=-P!kϼލ4b̸e\"-9k^~'%Hs˪~E8rUlpvq*|"n`dps@k^8WVWp {!Gjĝ҃!<1) +Z/Gwztf\aiV'_0m7)wi^x T{:c("9v8lvK#9ɓPrRoS1udW4B¬rf}+t7J$37@n)Gkq}2;ѢC3 %=zBնn, Hp?W~98=&mb6OKB~E0GeP1&6A] /pZLR֛r<-hJo @v=0;L1Zz(a'"#!U)*` Ή9/`'`Pt4OU$uawĴ +L k?WBx1CFtuPy.߿T@ƃ~3:0z5)&wP*ȑvv!g&߬=cQ P, LMLCyKp (~Yug\7;WyTc![Uk\4H&7oӼ>{IOikYgA/s=;Hkb+K9YA=VUi}TR-n-ZO AMC- rzLC/bAi0޺5ZE6]]"TUƠA#ruGUI kY E)T Rd'(jLv+aeJE8hv_‡yUl`F'6Y@"RѻV "֕>YoEnTN!]$u-ċ|`ܑ3O4Z8+f&O=pʠܒ\65D6s*//xٟi-WWsXhƚr昷GօbQ™؀&8 e1SUq;Gy5b ;p{%ʳZ.SEzŞHHFABEwbp}{S{S  +gy/Nﲳ`5OYg +,۹m(=bx_~ge!"Y#!A3[cC K Sy3ȓP'~ӯ!4L8gH1H_Z$a9gT`=F9C߀ 6k10mfqͣa9Bxo+PQZ fL*>"pfҚ0 ,7|X}Qm)oN΀ fB|6Ϥ"9B=4~ɅkdkSݥuykm{-E0һ/݅CqF#OTUT"nqʺ3\3kLk$^wG/Q7V ޵ڂBfwbtC`U:[5iIeJ ޝVW._Mag$fQ T6g53e>VuiU٭1zݣ*LcHu5Prc4N +ݿs:z}.h"n>6(<6J\]`V]΢K r1u%6N,2d#vF]jVX\6c A* 3Tv[g5!}A,FJO2S&7' ~uhρA+irW6  Pi|A◳53`7Ti^Bڃ[0 ɠ|P ҒF,et}p[@*5`pH@vj"=%S_ޕA~lMFy_nrrd ^[= iƖwUUR1gxqc~pb| R%_L((O( ~~Z@ e++ ~+PfzT5ZZAKJrT2RD502x#z+PO OvQIrc^@(gmл{[chcrwpl_mmMHNeiiruHTA)IN9/op 7óo`f +%3s\g}Zx s#"y߇7 + @ 0uA%9yʮɍ [{%xygXQcr8`~YxFSβ,+\M +̡+il>LIkP%.o߷7/Ƅt8Rm]Z۽c)CMOp'ITү(#z!eIWKl5pU_Skp'bl#Dj43A⏝k[Ji[הݯH1$bu^Xy:PP6G;G_xË"eIېPL.-(}T>BX740ֈz9Ajǔ.n86N!I>9#I[}Y(>-@`XwRU:(`m!9k ShUU ZW xRfIsBtEwvV0 x׼;!V 5n(7ϺCw b"d;)n)р07薰<`.uz)rg*w_$A4zRJiK)lc,ݟb* `\'Zzi ʛT>Xk?yv,A R;QmNwW%^#RFθsog,@QwsfHOz8BugPp^@ f)N.ܼ76 +a4MTvާ稷PGJrxoUSQRڛ}l\3p"_a=Hue6ح(ϊ"8n0,JNO) ZM<]ׄz旧>}˔j@?54WVWm7lxZ}޲1}5_=І1<Ɓyq +t}u ^ZipkN;kLch=+NIyEgOauטѧ1 r Hd8fqZNo%#TͻKyO`(Y~ v*b"bRwbtggbT2M0l~J9neӓ՛3's]Ij>}Oި))grEonNkb +cI0z_մqzF;5( 9dAjp&59/X/3s]_~/\[DyyL068{%a,rhk uNS1_Qhtsp'O8gIlOk,A:K1v':_ʍIG/͹Q'\%9l}o p:h0'l *w>٥ +sH9!G0{w5,0a_Na'2W16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16yh16?e*.n y i.no~մ;xuw|yyP'3,SË3L|s|t|Vbz )_9Y1#d +3xȡ(K(¹m`,W'x/x?&&'o6e +Lv&fǦn;H{T?D?^\\,יg -M^; A3>u`hMo~\&KC,0XXs?{_LZ(+2cd >>; 3 1:?A<|~:l:z5;K𯏹JQHe,3(sEޑ߿fSd&}# +{)Jx~@h2T:m{=BeYIC\n +uLjĥZpMjVW +&Fs#7`Kҙ 2_?UB™ Wߐ޴57b8nݻ9`ê(igʺSsV3TOmb"Kw%567)6%vIk.KoԾD~I|hu.ktgkq;0zU1RvŤ1۔=4,\zb0c1i1m ^XT>agİZ|(")[pRauׇs8Y;%D.rQo0Μv5%n)7PI-֚\L[? z Ew&KTnUħ%qek&)I^7jW>S{Z]x{uDH@Y +_߫%b^UEe uȘS[ +ެxQZZb}Q +*Ly']V0>2#(ϸ5)%h9\bv=cYR4GixU$MLIdNk 1udX?I/jr&5$}a_Q"5Ki/֠E-2i7LSU][Yޫ K6oۚO]}5zIkʝgTVvir?}Oyk["r fG؀A$U"SJpXlcְtݚ6nc[*ʙ/q '6we#"qLzx +!0o%nQݲ4p +YXwiTor]51!@M{8GBfD ѓC2^&,[0.1cMS`7jB_S3Pb=-!d)v&'\/.LBEFj_;;}93s픥h\fyr?Qֳ^px- RiJguX7FKRkr=nq(%8u@8_ VimHO9X_.XWzs sM9)BF3tcn6@eL1G TuUW_6ZLyDz wZ6u1P[.!: fۼ3M},LM;i;܂L>}6,+6ōҾAƕD +Wۈ67*iK1>> ݚWHPG6L-7S],Vd 'ݪ_30Iޯie>fY #< 0EeCH<ڣ:@zxuHB>TZxZ೨yPUd*ۄi+11Ȉ{5#Y̳"WQ*Z S@Y5.)q?OA;%@!rzP<J=c#t*%9Ԁ\ĥ&‡Ϫ2 ༇ȩ%T:L7_IVw~GcK>&RsO{ :+}kƥں&]q@0\c f}ѻ.ͪ%̑ٽvG vI iQGsw7_ /=̘"kYp+G{rd?vUwO=qS~D8{%LEᴮ>ŴNpm(*Lƒ>f> +3P$$<-D3|4*l{MSɔE ~`)xˠw;]1p aUHQGp9-nZk &O_3 +2A׬ZOa|9̬~UQ_ lh$pn{UR>&4@B"=xZ<_}cfj*LZ?zVF.d] RņLZWZk 'GG3A&e>b, =Vн6/UN:Sy*Fĵmh3.\{fѻ{EsK־s~ v^_B.Ȑ2_CuGg$A&pf.iMjK\mHKg$8=i5yj׿+a*bTc .jC nW ,,l4`5+_36yIj#)c֜r bdiI,exaزWSB&5Ā9 <(kMiI1Are\M\m"脸5$gR""eJCC @rp(fN{`|HuȳPzV`>Q v+j.Iq $Ũn90ѿ<ӲGh$b[IwQ@ѳnXKjUV+kNek)\dpY}\Aқ;ջ l =_9:vfYԚf]>Pês{fZi_b.=ڀh,FK{2Z.`!{5 Zr}蔩7ϕTvIwp)G9.|Z!{`()mX Pp(," +bVV "O0yJJ +=- +fa yCR=+I{ZJ|:,\ 0Re"eUxh) QYIާEfi6壧y.S/*O$Wv,ARiw"}g~txnz/`vѧV$,#݃)@W'{jSޥv!"a4e.Í,Ho;f490y2mM'-\IΙ<ù="1aoQ>M5CE,|,iuom Aqaq'``9-PR03~` +Y`xO; +D[1]اl۫ϛoI ֔F@Rj/v*|S01zZbUD(|@9D|ELXf}گ3z?Op)K(x:g/A$Y,`{aS'B"aRREց(a +k@LtD"K+-5 e&r1&% . -&h}T?YPe:[\e`owO?6fR˯mU?+DTx@`iW(Zti)񀊐-^ )iΟRZiX`&xW <3e%:U&!*5Xkޫ3Zwe h{RWr +1vxg%חs.j)< TOU޽(Iq ALINgkno;Qa6(^qrPMIj !Zߨ0)-'_vGBg88i[҃,mx4KJ ŌL`I)ٚ\!Q2ԛ*K۳(1{{V 4Q?> ~=Q#\n k)c\% @)p $Tz`v6LxX,-%ܦ.!=HB,D~D=ZIr@6'T @GQr$},eEگȰ}GMio ml_Y`ϔO:"ޥ/3ygLZ*$ Rl;sjQ&F@nE1L,&))zyPC&8_5\@dT1'BhTNjR^\|e 02ԒRI{V ePF_BU崑&N7~V nz}ik&Wrtb^VIM CsAvқy~Zd(S]LozSw~Q!G+Rg޸ݣpprPS\|Rk +Lq%NT?~fNƟ%RLɔXXޛ(ɆqE6,v?`a! LT97ZT<UIƔ/`ѫ|rBXEąkg1X +e\j\[T&ğ!{EFe*mұ,Wcidmw@&mk3%~")iqG`@k2jOo K<5W"fh?& +LD?Hz'ǭ;]`+LnL@$  9NO$4aWJ-9h-GYm˲W85a8}Zz[G,Qη@\4"!=5 Y@:l2bbGL亇KCY\0*'&Q@ȸ9gnu>byLcF L\sbлq+1b5fT, ,aJM#*C:Ht 8oTt.@L=T:븠I`]N`"&ԝLLBd0>= +T"#HuMH!w\ʨŧ +LJr(ZG[k5GzO"A`=+ = & dkBb .ٱe=N:C:TcQ6m!%7u@Gm7آĀ9Y`5P2qȆLGA=ijo@q@F/ vp=G5sYc6ט8蔛͚0iߤ鰅8!&C؁qÖI( jl'0zD\=lx\,n&6ФCo<8 o Nlݑ:Q<ۙev:aKX2p +PƜ&A?fFˠ>_,G$;|@O=< +axLW$#Q);A07k$^6qI{$-2P &,.d.™)O[R۟'ŚGl!#>d$b=d +zR,m:{#n `r:;i%!-Zy;2nf:bd tHhymT뙴q3kp`AYG4{D:# 6~mf 0PAґDlA1@tO BĘ}` ǁY5 BXpY ͅxȧqӷh W(xYqGyҺ$y $1{_ņTؠ'P}u˸Id A{ʛ0 +mH[3QV&[ry C,(hT'A(ƥ ID€,P¥Ũa#e!U*!F .SQBџ:L3ia.@_;hA$u; ftm!-27y5&ZN@wپ_;I gn_䘑Fq΃p +_o|0}M5!8 @C6T#a-IDƃ}:Itt.\a#@4 z;&5bY&nB ل!BՀiԣ2jYo\Popwr{Hn^6Ȑw9W88$}&R'cAQZU|E.ڳ1a +g,5>22HЂ+gTt 6Z Xwم 9b!0;uh#< <)0PF'050/,MB XdN6dX oCYe ٽ!+{ +9n!\JAwP5fNlޤ'BFu~N BŁI$P4yc_6flb¢v:e&2iccʫTva4ش3y%(1hfJ:RLxiE$CYt_!bP,q aD[&0BC#sE']Q#9jq`0Qm#@AB"P5fO$'-9Bkb3z"f$[1HmE#V*W9q66 +%/ `_ r/"ݛ*\X%IJa"E&2$Csi$1RPʍ +GG@a<˟Љ 9dvE+\P;`Ca]%"aUHu#zBkpNڅq6 v"1bc&all +psC)f:l5 +>- ټhX{hxycLvϊ&EG;>éP8عq 3d5,b5\^dHCv*vD.D[([( r+P34X&+*0 \,R=Obba9vdy +=Üz"."ePᲅ85OذY;,T^Mregl@@岘T1Pdc2L,RzU(KtMTjs!He$":gD bF" + |YV 6sz26c|J)mBn! .ؘyHZ\|Brů4lr bs@/; j7 F +F,dO 㠢p ;d$ riOFǻtTp HHu"ZǥW*;xj@PX-`.B16iR4=U ;\l +[Ȱ=o3m;+sYMLnө6=,z*;ܸGr\jK/z3Tkf*CE(=B| 1?/Wܼׄ_NdP΂abG`>=&1QE.5$p-P +T`B%>3$V>sPWI ? x^wS"m3s|3GD["|B*LGk+|gd71&!,SRBFFP|D5vBIR[J},@uCBZQQ\j+rc3?ܺ/7ʹ%2mU":3鷠K;r +|jZ,.ioEP 8آcm_ۊ"m/ՏTW-Qrt|.yF 7C;T0{cN>KÅ0OmTLPioD'jBEP. ,AK;CPeMQЩI͑jvT(=]?CW&Tϗ#h @QN ъ/^sK*1 A;؁dۘ4+=FFMP}0nU. +R.!OZTl*\YtdѺ-[&Yu6TXT[wɍ-o 4<@N1TYNO᪍\bϝJNۇӳg% p'?(X{q{W]|EGkru  t*/ף!O(,OϨ͝©Lood+.XZMGۡbzU/$h06w׷~驷YK嫑ڎ+Pq uo|--Lzr:w0Re#qK#6ƯJg/i @g܄3@ ||hs27w.9|څ'h#\\,ظX_#?wqu٫Gin[Б\H{tuB*fZW&3[8ڻΜ VF!M63'TփxpwvHsOq[,`̔/Gk;,)Rrxh,S@)[R3r}=\YMӻ io\$e\xu\vX}DxN}t}3$RH}rqjOLLҗP lf%PK/x \'Ul_,̥vT>ROVzan/щ5"Rթ`q%ֹL?Vjd6)=3yt +0k]4}F#nAiYoFu1/oasznV0%adKu +#{pr3Js~*ά3Dy)nRvZ.Om^VZ:+mT(G BF +DEL(7Lр">mQܾTq;Hޮ6Օ >juevԝ7^؀p3]+͓Kٹ To~ΩktVzc~jU'7(¸)Օ<;䊑 "|!>&RՙHs1I"77ƶ:R^vd55ٹTp~;-7ݾLu8V 8KHhm59\6j 9iV)%[{ɩJ}TMҭ3N`HT]-.=u%vuy.+SFwii8+{>Q߽{⩇2Jgcw>~41u8JwK3'iyYO(klĻ{ҊXZIwn αA#N !R A֔B7\urqVmpmo% +y.D h!Ru#kʖ[H8'sGgښ[#Byx5V[ݑ9h` bPvFGhKyt ՉUW}j=| rҹbo+h]{7{E] .Vuq4R?g\̥G|Dy ӧg3wad|^mlLZ$ QoO{un!I5׌x2Ds{Ƚ3[R)^՗!ಸdc]mQmJKJCPk!CN +Lyx +Fܘq2?ޔ^fXc|~R[=pkZhme{|kFK˟KQ&pB)WNfTwܛ#\*n-@L-zd0 #9 GA01.r.!CpkPJuh#~d>>'Xsx)Lm`ٹ3ߨ.\L͞tkkʳyg(n%殆kH'5P0Sӛג#ru ׎ߛmk Q`9S\z-c|n+/&dՕ@n%'[7M*dEZ f PJF ;!Åh~>X#Lr*,$:n]am)cRMt3r3'Q蟄+-ŠIѩ#|a Eg]|xL7@f!~*:\0" 48.QG[jWmk!RbAL5 *& SxhSt5`T(s`bʕ!3퓋RoTY#e2关0Xr3g +SZC '0neHpԌhh<=#P^s3f2Փ͝@z,y \w;;'%3vZ" c"kr).Z[ؕRXX2nGJ75'Vc嫁G;OlWM)EVuʕuDLu$T\/.\~Op +=+O`f4s~j:bcM3!B(޵ܹe;[w⑪ZU,wQ1'] +a܌ &JzƖ^;ja>l1.?w '!!?qI뽂ͧ} 3}8טp쉥U>3% Kx,Ǣ>҉PZ=9]ڹ4vhi:wt!ҳ^u%a*Bn1=W?GIrѱPcDVBfUSsP2ʧ`\S.9j]^vXhFܜZI LH@. 缑ǟ9"XzF{}fR7fHW敦脅3~ޘc!ʯ)98,DH| LeX(KA6~Vi-)?T6n +HiCH'ZTsr21C g2RA[<|9Z<#tq +-U&*@keZ5{ã*ʦ7bõ٣j}`rn*ocfbfŻP掘c_"^]6x(Lw6$3xaBGIGRJ}5l &_-bqy]-9ŸW  NZ .?NEÓO6\uIjJYO`LmBXƥ@B_O/]m ` B:\C4&Z)Udg=]2 8-Ībv~H~QƧC)?bp6\46uz{~^{𭙝L4g%u{p͵؈Wsk#٥vg;xş}ǿ7Wȹ M.tL3u7yP6]' ro-,z.?KŇ9{9.Y7b >lAf>E4T)V:+'6sxꅷ"ʃ]4%-XH&.粽h/==ܿ]x?ȕG;?u>27yx#13HMO j%;kKGh/ms{N_}o|7_ˇ}3LUfaŤBf҆yWq>۫{_^8qx&?} +C:6SS GNqG|7O?싯{#wJurDmጚZsG^=s??z?{=k~?wg?3/WfwS@,gVN?ƃO=?׿?罏_~_]}ܮazh!}/?o_Z]t$0YpçJ5Y-휸W}_Ə{?zѯ䷿~u{c.G NLk'm$W_hmo⽏س7ٯ}/>Gӕdso糑t .kRZ^^;~CO+o᧟~շ7{cO!!1E5:Kk{Gp{=o~?_믜|e~};^nٞi.,bsy}G???t7:u3)ȩf֏b֕K󝷿~_o0}_[?Շ^?"eX3\(LM/n>uqٝ#'._7}o~>7_|}'}+o~ΊQЎo՟|W__~_}}e>QG|q +Nv8lͬWwyg_x_{߾˿?'?W}+osgKM%kʘE˙Jo}؍'}ן|WW|G}||z-& R +d}neֿ>⋯O~_~?/9?yg}O={̑\6fw✘`QJxc/oo}'?__?W^=uǕcbi턤T+֦2,Ĩū?tϝW/::S J6qBh-FD@rjmu{kۻ;33GO^vsw]?|Rc~IPl̰Ѫamn!(cΑ;O$2j1rܩk7?O?ٗ_:v\k~>K" +ѕ:( ƶ.9wO={'{w~G|oΏ֛>ȍ٫P4F-8j\O(Ktrsmkwꫯ?w?ZjMimEJ5Suϟ>c?3/O3lvtIbqI31zQ}D뚰8|f/rxM/^ޑB.5hʕni<01bFǬmp'>pARrj˔@BY$*p: 5"FLxiZ܁ #w&3h":wN_,Y^9$KZ3 U0JO=7>u>Фwim q {v2ivp& nA@6\\€L ruGog1!Bώ ԍ NB亂sM:S'}1ft X/7b9;o#cVY~z.[LCZ!uHo;lDOb!\G T s2 O 782VMx!c,4Q*x|Le5=0:4i׻4{2E.X !kX3)ڂfXr ڨWnc:lnФ3c:+%2߼*sz#<_1#R'lйf㍢\Aopoq qG13OԟQʤaHޱ !ݕ3voxHjV&!qA1fhXJqeĀcDDX._* fM@dnAg9n76q:2bՀzGw%fXB. !)!>lFh!̘`{'lbpi;GyN)mZjh 4Bչ'6O󧽃m.ާqJ^1CFy +hOBX i*R!Ē?ӞPDz,:d G 8eS +#Yu@1x,'}iXp,3맩h} + + 9iIT]ͬ힛Z:jlxMKX 7h~ɐZ ;9Sh+_'lJ-!{ n"t*(j+h 3nG(̯pňF̌oY1:epxGam .'`g'0A{s9>1,bQ{ "Ƨ'탛n +޲_o=}԰Q=0n MP‘y.ΌlxktngX K/s˚khnuC%&:)owLSb`tztZ"U6\sq 6icZAi:QQbah,o2O6B?ݮ#ngZfm'1P孋;Xq 7̒XUZ<.7;[[ 7dTONx$+*APD<#9t"tr>E*ZGiL,R3Ry6]8@D@+>)oČ_|dp~m߄ ԙ 15h +PJqrF\g&(R .}̄Y0&\%ƛK`3N*"TEy욜>ipoꕪd:hCTc" oi:xkp(! Q=l2Y+8u{ܮq|iv*wiT` Cp ۟k#Kx/X[dtk,4 +ecA\Z V+4E// aBNֈ&̓k<'V7VozO*|~x@&?E}w+4L>lb؄Gh ,!(JiW(,Ocͅ+qq'-1,D lrKSLzۨm+Ԟim@Jpe)VvݣtbSTG_/bA3.Z)R~.BF=_pr4X}>5mHX;z,^_LR3ъk*ֲY!1 (Hc7a"T}x>VA>psp@n.edD5\yr ٧"%oO/LPQbيGP+6\lk ꋃ4%F>UV5950XFI 2{9j"'%7ܢ\Xv2}!{1*)U HV;d5..ZRVA#:Ą9avpAEo0;i%5&b@b~|zjxLt@np:Rdh!ɨE0vBBt(<xriqc;&Z&wұpP +  f@I6 Y)[LdBaO/KLܸr. J0|w5vݾ- BCPaNo5yc")x+7Z疎? I )9qBvFhАr by RJƨMO(y* ťdϴb/۔Js.Z*vwWӳhR:ҞtמƬ4%]F jxNKԦL.V.n_x*9 +͛]?Z89nb.HfNV?oB*-;y0f!ϸ%[=` #fo$;{PaJE|r9Cz{Hi{pnpv&2qGQNqu]CX} Q'3֝{aS女\V#wSC6\_RJOnQ!Jlt +rapZ]0Xuv561 [d2@N)AtK +R=Be"x !S|ƁW7vued:>-fW.V-#j<10TΥgN>V`A΃ A6jcKA:`r2(| +B+IO{4o]>HLkK'hŅ!t(gE~L)vQ'xiBG)ŎQ|IŵvʐDhizt'RQ*,[oHqeX^/O õ% wKAc[px~ LF Ɇ + z|S]q fӻS0 y"H4wSBn\ +%UU); +іNR@JBjߤ , +XyUlFjBaO\w?qc4jv7ˢ +&H d&\{ @ym؆m蚞HJԌ$όhW3q{="2`5Ol 2ju LB+\n.߸Js,w +d{7.=2 rpay|pb%Ej]^\sg&\6Nd&HTPԐzª5U-,huyҳ@nzN@w(6'3!TR|{E;F<,`ħd_^(_޺^n +j)Cב\._7hrLF{cqP Ll}{xO9`*{ +K5mdvld\GFlFi_N Rri_\s) d <3dDObu_ de{4!\4BƦ T)OSj Q8=!* +K`LW5pЛ*-sScsz-J_ זѳ=k/UۇŅTuވ&M[1߀S,ѡZ$31V6u)\ ,lob +/f3rkje2Vlz;LgbN m!~NrQ;R6zfb AP$el@ǀ^Q*"iF*rinǽQuzbjBƨfb0;,;ɀFs3~}p6mq0:`b=T)Omdk.:ahi~wʫG|J X8)lJ}Ót&%zlxed \ H71&.. Biۗ7xe#Ӿ/4&!N>OF4|{ Cd (gť_"tK\̓,JsH[UM4 K`ě?՚tx4vKoL=+KN_qzF\zMFBPZQ{g'\g Z+o츃\|)Da0݄5VnxHLZ1?T:TaM&K|$/. BԂz /v`r&짆 g,/Z FRRwd2x.m׸p]OѠbQ&l'J.a. rp!Z7Hv!xo3:4n_',.ؔ aNlTq@zd :@v nliSԘig3ꤍ .6@9;zDzTg b2zj:gh4|f&dܛȴWj۝ݝ{;&Kbs wTl%`鴸흰P&q2,'!E|]|DK``}yLYIr*d'%ˋ3ˆUceMhWAF`< Q; 9f\X 䗳K2|kvCcen (MZH ,`| dS:OHiiFnn/J;t{?/y_MH.Fk[7^NwCD + @kDR<)>gec& S;3 +dʍXC#-BN) bl P%Cu2P񥺑/?-涐[-2TʵHci`|-w鏘31bvz"EU1VOՁ Ue_q lR +gW;+:dBuN&HiZkMKh~I'Q?`9Rf8#F|0>p "Ct}ٻ?xop܌Jg={|0φ*@U[n.7aώOЁژ=qfqz2sׇQm-)*[鈉 +J.jU,ab!P؀Gx~cx%2j @.hxtS2!Jo l"kC}mON4&4QD 6xTu}\S{ʮiS=)1紘ǗgN+*X?()# +5n2:Wf}ɞX(EN v^#RZGkr/M=cG޽/{Sn>iC 1Sf'Z=cbAW>2v.\ryHI$hx_\goOLh $! -FMw:̏9\*yPic6Cx O3bnotV7㍕Lq_j5V{vOČ +l [N ѐ|ʆ8u p MB:Ƞgg>)/ʶlWHtgfh`OB}Zz@h #=*<:;78;d󼨅,SbUAX֡0y ;7f79ypaetVM0+t16j:+Ey^ ޒMIJw?t a_[]y0:uuNo4_?zfc&D!ڈO U zq8P$Zť +Deʭ'w^uؗ .s˩A{Qefi +md CY  ˱j +h@;֢C&x^/yݠC15%9utg~$v3K,m**Ri6jF ׂ=6 0nFi#)A7$@xScet\^'K Rk n!\ +BE2BkbmW;(a1rwuH-jVkxj-t$Y32nDL.EA4q=:aB%J66gc1T|~MMMXh@w(*oJ0Xԃ`|qoL1N:Dg!mnс9,a FVƁF;oGnOԟh5!VE i`eU-vY~jp$4Դ``֣ψPΎIcV(-Wg.K|Jgf8oĚK.1&g{{&TBJ4G͸J5Nq"B6,T&F)S &Re"mě#ũ V-3^~vw)7ݘ_3 aJXoVv/ʹof:0}a9j@16dhor )Qsx.. g_?ŝF2QZ+ ^>ҁ|D%rR][XY:|vX)JKj}[t"lUi¢Z\4 ctꛅVcF8p@c.N8H ɾ\ilG;VRUSS'>] 4h.Zb;n[qRu1oanY Nm^:89M2ܴxtOm?繩mK2ƒ5 ],h|z7 ƞDFlHW_':zTƼxBf#LRCTXca&̌,sB3! d82K޸q0'{-1ѷouNBHRr :R^_JDD"fcȀh!PXoe#z;gv +`*ۨ  +hQy@b_܈46b ds ? )db''ts20lra/cB2 +`n&N:@`F@Aڟȷ5+. l?.\*2@3-SjZ=}>5@Nq{z?3YE\ ;{٥0`%\ϴoAPlt=0a<6*3N:jAaA |ׂN/,G¥t|uP7Ni ggF:=;"iF Ly*"B *a3:@r Z4 Ǎ;PkItEbdpW'F J5l@'1g9q:Qٽ7wrI{Fv&}sֆ:~3Bd:ř@~rg}m%M>ȯҡʘp0.6Fcz0.…lw'•py WޭE+.0uҨ s {wcŹ ;Zڨ@`ʽMEsJBax;GOX3{7b,RUYo . ۾0Q];EG@zltlX6M%"XU q$;{J 03Ґ:7 \yԶaIc9CGlؔS4]ޜu2`ZL ( ObLӗKŁL ŇŅgK\ +.#&3 +(!R &&O$^bu *^s8 ǫK< 8t̄rczb Kw'.O8׽l 1a=5\NKRK.E/xsPx3&R]uI53rvx)8k>.6#VQoBg3Z_6fD! hd,e漩iJJzxۊ~߸{&!:'fg'O[ yЩ2]|(՟#ZM,91>LL0F r ݽÓOn| +yi& }8L +Fe@ɀ@Kjc=kެ,Zw0)X66j5@}'RV! FXSBץ˛Be,pKe_A|Dܜ +qx|P WA}++=_nZ66;ĔGc\I'T\cS7+D6<8U} oMRiȱ&mI?j~ N@@G'm4ՕDy1jQJ6'ũ0O|(}^kCƅӇ/W n089 >{9?FŬO:{&7p+!, Gmy"T**/yNie N4f]503bӘ=:ªm%5Htp_٠i0=W7X{`qFV ݝS(JnbZʽm6T<+MτV\ěWn\{s4w[Wt v0ls(]6;'l^l=Гꉐ7'{Wg.9sʅ_ɇ_SnKyb@a9S_x۹K嫹`uptzKnn} , -=h촍 [HTE_MLၪ rɂm`3*͗8=1#U=d#`ͩ>1HXȣ\ʎIC߬" BŠJOt0X8l0]  9l،ܼ0#2lf+9N;@xoۉ 4;}:;7inވ􁔝s + ;+ JURʺP\`Pc9ߍǟSuo{" 2XYhld7 $S<rXeF*Pb求nX |ll"ḞxS\R&PBn6ʇ+zH1"uB.KiFcN.ZuA v<1 t3uȰ#~'2X1GLxxcNGb(!䤜j$o|*fqo#\$|-fŜ?zցD93 ,@MWr<0 +ĥDtwn(7Ki7BU!\Mds*RN-E})b"enuRNjgmA-vovW~.>|s~{iًިܩt7N G jמ|R_>~Q ԗ`m7ӿR_PfZf֣K˫l߾lw)H-a^-^y+ջC7dZkhqX,d;jujzjN6O=Z 7ˇ'I9 w I>(/\CI`$Dchr%8e>5{v8ug66e RI D 0oD5VsZtH1 nc9=vf1!.fgtw+tx Ս`e +Wxw޻0 K}/fjKw~jt{9>9xǕbbzkqqh88&u9<~g?%|YXq61+ff__ayCy-%c~ހ2}N:NtԈ_ݼqxe[֋o S#̳h +SR`:.=Ōp1 $EZqTZMm3})G stH 1 x R7Ȥtp1HH!.ws|,̤g^nm-Pkچ|d(Kǭ#Yxv2LM]2!y0N΃nq HyVl%NXa RJs۷Gx#nIsQ֟!peZgHaC}NRv +(ogˆ'htya.Az3N*Q! +6[x\ԗjfir϶=Gy1) QGM$)3t $$)o#G@et )<J.RrQ +3`i҄5:+> y$M!Z]3#l oU2R(F 6cjiuSf' \ OKip8`vhbw"ذM&TD()&@&$]QqHkC1R(RNfA]ۈۛwr SO͟8υ%ӗjwʋ&e80މfu)^DŽ(/x%ЊɣL/8R&L. uɊHdlTЊD91~x As֡Yra1ppP6 覃5B@'׏cI +z IZ 1 tV-bp{ugEBHHyR}1:Erv\Ԋ/ZqQ!% bǴ͊!J2NX=n& +[p1{3TdT]3Q*cPm4: =u qQqn2$:χSݢݴ +vbʉʄUw &|7Ya od0Yv=*F4i%P#Ğ2iD2<6}JMNɘ!e#.JuQ!QAN:͓ILjeq\x@pX_՝8f<N1$1԰fP &fC np:& f#@ gB5&Ho􂐓Vyވ#IIZ8ȱ,..#L<?80%^LFF ᱸ8Ɨyi- :0ȡ\ԋP @.C@@0lVΎ&R 7m0+ܞ'(S/ֱ~BƇwֹ@nByZF l. T(_D-RMJ0lk,&fq!:nDN' m74!F+aXF:z+1As!0>C0 c,F +nR``A&$ש`:ufrRNQơ${œ/EM/\G3PUNP2p:Sv禂&'7u>?/Iz+).`uޟIkWj^c% NA*|7?|uFΎ,"#iF]]1i(V^a@$-Ҿ,„] U Nq"$A/nC:p) +‚G &H̊3Z'u'Ҭivzp^l@yUl8(2xO0f2jeF-ndAb0/jhD„{U5 +MoqMܠbhe3- E2*(SkeE*(e +akTaӌE7EpufG0Z?8raȨe9a 0!8Ŏ-؄qhhB$l&!_qсfM X4Sg4^4͒|ς8ƴ^Ծ8dE!DA#ۄ1/SZMf$ "iw6D7.[:`!cbEtK~f˫67 zN&uj̰Qo&A !D8dÉY@!f9CQ=Nܘԙ/m#9 8=8uzv>i `rYP9sEj(e١0ҜX^,ھpxvu!Ji))VCvz(آj4·J"$$luoVńg7~ON\_Q: (Xfj^{vbV{~yV{DOFjEsV:U~g-[UAjԧ6?_>'W[l:F d }B{o~Guݏ_^/'~՟_zvvqu:Sx'ˏNꟾ/v J:kH0),.u&2ÅR~ޛݻ8/hWtC G0BS W*쵅;{?w?Gsa%IK Ab:gO/ӻ_sW6wL˰ O_'k.e<.d{~G_WGO{[on_^Q3#D\lЌU OO,}d?yW_{c~~߹Ԏ n`u\0팷ʊp{p΃/>_?|ʿ|BEm;.Eь<+% +;7ڿ?|qol}O>o}_O~zεfۗ +qטϜw As4+ ѓ???:t0ƨ`c@ UL+vK?z_\>oꃝO_v1uoKm #(ҡJUv7p}%t}vW_'?}??{e7.߽N 笨LޛRT>yï޽~_'[wW!C %d9pL ~ZV_O}{we\l/ziFJE.6(d&D=JmLE{Ks׏?z|֥^zΣՕ|3PHE9%\P|"$d:)FGK?~{7_Ï_?_|~|ʉfRK1,yB,)pO}O/>|_?G?폞?8NΆ`*5D yzûqF~|idyB_}zgwf^'{9"4# Hfd܎!Ik5L.֣vBNOZf` ѱxcdTHJ*\9NE^j~??G9Nz|Bn.p@pVuf&qM!9/zÝ{wWˇyt7[jzM@nC c + wڙ,nmV?xGOݘ;^@ya8\\(TW6y,Ă íz_kVbj'VM +H2 YЀ\2/&k &A)a~ݙ)^\n/Vֺv>$j 5 7@alflF!H=Lz]؝N\[Nsgywm~h;w_i΄ (V>qS!vt$^NDU^ k ~O=}do\~x4{B߈~SRR :l9c +SVFm$S n>WBL {<"Goc ԹqxD )F89VJ*bh8&1@%.%a -`Nw6@H r; cx]5o&X\,xBAY,@/*Y3mD;87f1iuh: aoB[ n6=>=zmV{] {h +|Ow06F '^eEW.sx0za| (#(q܊VT4̫6i^e" ك'T,RCa:iDkwб@n)X\$Xs HAjsbT^ @ gtvFQW@ #c1S`,/Bzbg܊lv盳t#%ՌڜgF:!#|j2{o3Lz3{U{ א{K^RW%$zӋ^H_%%@A>Pޚ sΰݙV$,SD(l$,$1'Q2f& +X6x$M2ϢJ h1(%#x@1SXeR\o$PgD2Ż7y8!B {b:_6= +HJ'3$rR3f7~zEI4}ˮ8c+fXIP'u7 b3ENu8jzcgL`V?rU1*)l%M[-j%6WA1cl }KbG3ݑVQ3ެN Ӕi- +5$P a,B% :}н>IˬivU4k\6{%8}/F𥡿"yo۞<&OQd.2E5S~[E)Ucz$h|`Y4﯁lYĺ3f4O0RC~VE +J 52\5E?[u_ZFRvop5[e(w崤>U"ZT-o|ȵ d0c}v_v8@!jX(Axy")YB0,9ceYο<19nrK}0F7Ml:i K`,.W"Ҹ*=mBcA,vI&ao,'8)-hQL:f J5Rus'%V(MԊSn^jG|T]kcFF>kRT52T=MVKb#CR,V;z6aoO9\[b?_n$(tI-p$fgi7%΋$H5H\/7W;B-t)gR]ccQ+#j#>slA6JrtIk8 + TjJsԜuԻI l!3/ S*mx/ELy6y0yl1/7.8me_'rACjI͋Ec}cy ރd7;zG֝,㙽; 4TX'vҤ(%"_nic{~Nrrw3=@iVqktZۅx"1s[ rD#,D0(K9zBo7hAm!8d;])!9T%vWRT^ΘCҙ +\~X;`Q)s'd|o6 +fk@! +[Abԏi{͊qD,(A \%Wo6{Q>@(uRel靶˵E0`^.K6+<1 WygC̓ˏI9Pu$N+w5_Y;+;bVGk흾?FMևz.=~UW7\(7݋ǿ_?JSDiV%LH0mvɋF +6̖bPˍKȝ<6Oc{7ΚG_ . gi H -ʞ<:l$N/WL`&Rf ];Fi/OFQˋ4]-]}m s4p;W~LQr[ͫ\ @Η87d(^Wǿo}+:m8]^XHcPL$`rV@-ە;7!+14G;iKAF\Ci;DZξ"btᓢB&nioW7v?n~K=LW~ +IU^HL`xO3D{wUCsĢ(cuwψ>+GO{wl*c{Qĝm>oj2t~݇?/ 6OrBC 'V_)9-5.˳ݳ;Bo_UFk>k_ip+[j/>IQ~`Wh_ej|5q'/!WmL鯟/iv<"9 bgwGyh.ΗPYξ* Qk?b+<9-i㕌6^}W7EV$3s9\/ύar9MFQ۳?)oO@IsYu3!| (퍡XLYe%aKZΟi}׾.8xG{{G{puMm_׿hE\7y}wg;:>_|+7!oQ( "^h+< 2|% z9!'֩5~<?{pw'VR/׶;O(T'3}81g\I]?ݿqnk+2=j~p7:= F7y><4zF8z?נ*j(魝gݓRDmA鞟<eq/~Z _'( ֭I9>{W|Bk6O]~:U(a\s.酝AR1U,œ,'4d|vZ4!nNjGqTpib 2!V@u6eOE0} +ӗ\ٟfp7Z/N?P5/bm'}[y,^:kћU&!CqyҞ?|qutGs\÷_<Kx cxOw~k<}~ Hg"Tw!r&Acu@(GJJ<~<7G??o_ԾvƯ/ێb&39kǏ>N?KAIJu@շ!lUwx,:/5(1?:;.O;oTv# _ h)pM}uyx7Az{qN~O:E:r=9jw&|ὺy7o~_eq=|uyel?zA+}<U ](W䅷غ,4wVRO~e r7?7_řJ\\8ݫ^=?>R 7~,CuivՒa wϾs'wzv&;(all+|=]|cbZ{9ĵоt_1phrT^rJ#qn_[9(Iǿ6Y1ĭ;ܻt:7$iQhn5Ȣ)ڈ\y^^PD( ]kI]wS 9 +u0tyU +j/WKrwq`Cwrc .W7KP?Gq.i`3ܓfz-v7^:KqHӜ@3x,_%y3yBoFpTf{֨I LeǸ{72vEk7Q\KcǯCʄsDִ}4`z%@XݳǿYN`j}#fGmT'oa3y%We(q<>}YZKc\Sa߿>j>^n?`x.d9znӪWv_P{;IX\?lqǏƾwϸ9I> \;f=T#biO_cF7/sb'h_]Ϯ.>mthB_MOj/tq5tG j=WVmwͽRJ-T^ +xVr\jq0[G3+YGV /qw.iQ"jpۣ_G}@:+L"HO3`JkGw^ۂT9#"h0cH95S b'ˠY|ɷ7U;B2ەo3\Sއwz(. $yL}]\JZx#mwq?tF!C}C 0_._$zVf8ɔWsz.ƹҽbzvz@"Z %X 0׌;Iljŏ/Qf"+3 NoEup (3sQ^|댟%j$ bB3650V笽n {v}i&g Vg 9$w MoD zp%#/SoB_r4olI'9F.tΑT W:h|;&p:wSwz]Go r#/7ʢ6F韃6@_sKwΑ=<y_nQ( }šv Bgp(>W/m`d@/g_hN2{2CsV_(*os=0Y/AQV[D +f &$ֹŗ7W\Q[ ނF"]sFN{7#vc(J}Dio,mj m(T +j?R(PO\7oRR*9K Ԉt @](^VJ%Eo~`,pZ>d]HwK#h*i{go+Z 8tӷHlH]F.m0VJf{#-ݻ{_#X3#׏[L)hg*q^%&mRΜ# SC-DF :n7̓JZkRΐ:Mk˜gx/+/~{ +i Ǐsb8_A(z DBS8~ee Zh֘IEZc)8`V4uigTwS|u __+|i+wo3gf^e +yNmz^d~,@eawD^:ݽf;Frh?0kjM +PR\ R*zç+ts?NJsr{ Jz%5%ErR$dQ+91fc3ˬıH1.cI{Am:J gS4:Fe9 L g1!&v$Qjuvbqz)JXS}XSTlƈ4uOGi>WR7Oq,Ah?Xgr0"!T R T+ɒM3}L&hca !cI˻3Pz缹upfN^[<پfѷgJ^7 jg@F}w6C{0 +J<{]Y| re}\7(a]6WZ;E;͸kY8|> 'xpy8jѢːqTךw׍ÏEV۝jw{&T`pu9ۻo~uD5:Wf)ZGQ2'R|Jb8mnt2%[aQIi?]/(i\,!9zNb NFw9R?_On~D\Il/i]LXIF*ki6 +endstream endobj 454 0 obj <>stream +GFK60NUlA笧_dr)0X_ E=֞4GUW n$-l= +p()\ڼb5IIk %CXcݶ̥&ˈPfIk=}J'E<0WV{4i|kYT38ۣv9!(gy}ѯ#5ZuE Ǹ;Tyϟ|7/|5Yew, +EM]T_kSqBʓfLEt7L̨w:AQ׶kSF:5Bm9+VT6PjQ‡/U'6m16['3,ԾX?3TmjgKZIle(!\[Ѷ;72ZEQ6Ҵ`Tw _cMc$ٕ%SRhQ9)&覾xTyH͂H%MFϛ<.%p 2d-NO>!y^Lv=e)q/J$0;M9)mmfV.vҕtKL:I?" !'偺`;{[KcIv5 5gHw~Q\MQ6w˃GOrt4c (o *xoU?*:kde5inkG2jppv2Rֲxw8! DYS=j{&IƮڹ7^2Rq)VP9}BQ?ȤIg/9mL'i&>Lѽq/v r7 +qfkuzR/Uox~T\SI@K"蝊ZNz +BYi)B,'hś&WIL2){;x?qkLQnIocy";iV,I%(.gNKKpejON߈՝(Q r'T\Sm]D ZSQy#+}^\i Ag)GǏ!{qh\+l8XgQs+#%XFkqg˩/J(,n s- -!kMwp~y{@%&[O0y:hlvE='_njq.&fc'Ac9:}ޔy +6`=hLnX݋7L6E㕢}L , bLn4_n~S)~='z*$Fdsdvo0sAIVFy ٕ'ZiQ遪Sʓ$ NA+'%RxIȐZ)}D\h@6iʅ?!2HV)TAFs6PZi[͓rZmf ipF7j9R9u:Nr9s/JobHӊBCpbg*+ RiTg%[m%+kɛsS4-rA[C̜x{oӰAQ͓ @9$xw$yCFp*^ݳ{7)IU@kmiP\',ݏSqԂ 8BڠZ(p-XN292$ NY6@F)8Ti+c[R:Y.*gbDm@eIąqPPiD:%JiJ8MpmЫX?+`r "gX_m'{I"YEF;Zr^]ϩq@Qo:fNvGRrf鶊rŴ1eͤqe^  㣗ˊ1B~D,_%''Tn\4Z4P戱Za{kgfN EU'tA9+ӿH Ѽ +p9U@nD /dbhc#Bi'-f5)cJ?I1E|Jo UJF@:üJNuQ93wXieFD1?MֲJ 33 Ep|Pנ PCS-z3.<fl{F +MqQJHsPg& k P>RZ +,ee`J76R .Voh"_!@ M0zI +tu4O Uqu! ,\ˬS[7K.q: 8"^20AWk#چbƝ/Tq Qα m8^ .x|,(͢”&b T{ ㄃HusJpj -pa]qr-.OVOHqؔRf{7fL 'YhMH(.o"9*^YgOVyPR593UۗB8z"8famJ_vE1z\#r(ia3>*݂T'|Qir 8|/ {(AN\v06͸Wka{+ ][EQQDb!6c@ŭ9Pq)H$qŃ#юqa5O L."K%}3b- iS`ꐢPqFzxCu;yY+H dQ~]owfq2+}jd atA3Δ&9,H͂U7LJQn@lz$>9^"Jb( 7x;! JfQo 2H,ICT.)m\Pg-C»IJ<faA/8Z$I Bʵ3"ZO˛|țn҄X-mS7QL[Pcm̞<-j Ÿ= ;yp)pB]iYW hjn-Fʄ[N3h9hКfF—Rˌ7YVsSSIT>c ->H[(($n)I˜Je%I?so S6@Zķ9g'R2IkĔg`N?Rmj['?~nt4aX$夐j5 _*G.oUE^Pdluj3sE #>+ fQ}  ٘<͂iQne(C.5 L$Tׄ$p+xEH1Ӷg}, /33mI.=Zmmon?6,EyILǕf(y0^*]E0GlcSV?M Tr =x{qraQMbfHd? (*=ĜE]@?~~!\h]hLy@5зKql5M >[G +<\~'Y ()u(@͠I{nt5˵\cdv'/3^d:fGLYZΫ;̜B#( SLU%pF!Sԝ\@![>t1^R=D +IpV +[>6 "WHKQVJ[:-&1*PBuk.G%w.Sl3Kq bw•=@l䝱>iHJ_h{ +|ax1᳁Ey4EIx- MnK]0h*@rz<¡=ۦy^j'0o9ƂV Q~߽]0]p}ܩ:cTE!3KY D %=V(sN3ovx`d-e2͂@.icV^F^Ew^[[e2o̮ :(MỶa*6Ad(=IQzW,% _͉D);tMyAjCAlj×w{ ]Ҕ.1OAajz^M| +pU&7蔰YΨnKBQs,> S7R oP+ͽ?A$[F;cTG1 <|a:4iPFVWGmDarB%q;7?@9 y E`ssꍟȵ͜J)̅j-- Iㄉj#DvcI`-ŗ@jbc_FEeBYsH,*Ad 4d(/DjH/ zXp>}oxދ`@4`c=x#3B gQڰ<"1_)1܎8Y63ĭ=|s8N0<`i]u~v.0kC͕ bKҼv/`@dA_(a=HSԤIg + +BS(Ðp@/A!Z4*"s-̓@, !J#q)8SL z?B2kMi{Aܐy(_s#Bn'fmm'JV3YR7yGX3uDv㳏Eb #6e>\;#,3t `3IYEWIFZt*(Hеˈw𵍂ftnr㕬g:W.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.m.:&XϤ΀uӟr qGÃĀ_7MwwKwx:pm[-t~Ywͥ+Rii~v\B6h9ln)ӟ$RKO'1$YL3H:F$_*x>iXȤ߷J\2$stfinJl l>pb1? +o߸O:/jӟ?#IG:O?T?rR%;'Wϧ>ta ax}r0@O' +dL}Sv} 3]?;.5R*0O#?3M>tvLW?fե|NCr?^0=Z` ' 'tjiwU:ԈVI*냤i7K{V}\mΈE_PzYHI_I`+b42I{ٳ>ʭdbZ3Eqm: !8KY)4[f^N3B-le)ɄKQS.FVLb6`FyYR'!B`WǸd+[YxoG\#.ؗ5K6ajNXMµ8%Ew`ofe*X b#VRtUAa5+FJmqY7s*p?Xz'GNN MxQjo{p83 9"ErJ=%j%:Q(w".DE +H3Y';)Lr#]ہO &6aqCx)c_2;q[HΘOfCd!LP cFxд ax΋N(mJ녨?EKⲇX + 1:5Nbڒ-W\{L"T)kdzGxb=,.@2ZIm{$ g S"udW>@XN:igTI5>7ap2# %2΄$sKj8[ lu5Or/Bڣ)BѹgKuly((Si\ Hed2fur>2vMyQ͝P k/0k¯dOi)hm/AUk%aBqR_mo rWt_7a,5)TjTW3ֺٕS1 +d&DdOw=1 +#-W5?] +f2l5̛Χ"vu'RZyjp荪>"xlkjэۃܢquTfʘFA"媀 /rͮw( 3)5}Hk!I{dу1=7b3B=8 #AƎX +)( 0f<5 R9y", +9%bqZiOtoڼ̌# )O(Eh +-@JF,4_ɴ7̒Z3@ xѺI%T+!潸+ +SΤgD:UmB(F5L \+'Aq\(K/blQG zm8&6p.BPERmdA si̜s!Bcb^eCP__%S-\,="󻟮™൶K˳Z5jf Ȕ"=*Y{*=.76QPH[ sG%8 NX,0&tMk1/""FZf,:b < qShzdz)ڍ Ure,L'ST+Tq5$TsC($#:bt1W%ӣ W["< 9!6@( ]"^R,{@D)ڀɭ )&BDY/Uk7bΌfoJZΎus جv2 `jaB0Sô ۦr[dfOwI#'fXP#DTzLd&>RޱU|/nS{U^9?qleAjCl=pG԰\JDrǬFnԀ'b[Wd-,{^bR\k^K*۠ULiJc PrtD(SF:Bɜ; +(=x*hR1lI-v 5M>(Xe?p0<-OR;Va١-̜;c|'G+ H by=rəٲ<z+`д3,"ЌP్y7z]s9\s nΗ9 `0BLgjHJrٴ9U*1!0BMscW\'FRy0/z\#kln U)6w{_yTk7T͢R '0)/TŦɭ˺\jIh} C:3٘P by7>%c\;a5dE8v`T@207C\ӭh| ؆F(r^P !.6Skz? 8 @%kCPjMW}XnO]v'#zJ)` òQ#2 (e9-9=:򢟜sĽ- ̹"0]r:9!kkbv`t0]A%/9@A`!8SybI0#l9VCd0Hp $Ʃ|08K ]84HcNuHN.m +Kg7VD%JHƣ\-ӾR߬5nc_ry?cF`n)#k>!%UT-0n[!p| PQzbJ l)9Õ7J ˈfL$Jh0mm|4ƚrq%̖hրPea%IDxjGTe/|Md}hq9dgK1eZ;I犧} BH/)MS Bw !$kԂe$P-IhQLCXCX0Ge?Sg hlC:K~R>(!xZKa;r+-݅ OjsoyCX&BlZO\ $!,tTʌr3-zBasV*B&u?Y3-1BdzT2Lkcz/$\Y07++ī҉ M2nLtB4v2{~dSW ^4Hlvak($8ksJHA3N.Taj7C(.6mBpP @uΜ3D(['36EVج.\$/:(d],ȳ X܄0鮘[q$aBՏj ^ āW|IJDg^]50 TjH# lK@a>HiΕ舁[1rO'S3!b 7؄8[٘n>c1#DILqˮo9Q5kKMO!j>)X}@]OjB2BTJHi`xaC?kiϠjOš+.fm;$S#{8 G{W"lVlQ0ج%"ddJv>]XC\b +c~ + k*a )"B~Cu"1 .Ȓ]vFS?w[9*]Y)_-vyڏK|NAmai9$yh0ZQp"!L3%7Dq +MXuՋrsekd[RK-B 9Gw ئeF@>3 3"L!4s})T(:eg?#"& L)>հʖc +0H*qh0}w\7֍I5w'ӭ0Wb:4c24qBGU'&Â;ƸΨ9gޑQj LW5OR S UEK hHݸXC-#B吊`3-9[X@C3b~-Uۋu_L4wlg~9&ABLؿ܋j=Wbi%Hg]104Ja)HyJ{ޗt0A|4>\,>\=&totMYAWqFxxB{I+*\Sz`uPD+ 5B#3ZaFe'[O{)Ӆ@BP2Md&s /#l,-(Ay:E?nQ|wa9rVΠQ>84.,}8D!U fe{ %NfI`E@Mh2zq>Ll7"`&u'X12`t"  XX(U+cBH>L1z֕PCt/w<A11 %–BT.Hfҹb> C=67ӚqkTs!V)kǸҪ NxK$X)Ln_h @Зc|.tN\~LH(PL+{J+bɗ_'\#!<%9/Li[)_BEibfs"}Ƀpm0 9?gDգѕg ؠm}4$Y|:Q +Imу V1LH ᎃC:lEAkARnxQiBk@YqMFzTB_}qNWd6Ĕ<:g`x|=ӺJeWBt !: 7^LH >=A} [U % COj p30[YW!mcu*f),QuЕmBBԲ܋Ѕ'ae"\źDf|ޕ\ +p.4QM=bkbb˛AG`C셸U/2e&=q$CT0*9;,|+@ɜ'-Xa"T)LWbLgS^DߜE|{z2~Y#\' B-$"rAu`TO = ĉ"WS%{|K>kaJ짭sd fqѶ ++Qt ,aor4Ha_*k*cx7cկ J.P% +uI}`,VSM;g Vs[be/ )|* a+t~+#tۈu}m ",$DLn 0+*&S]T}336S[W0]lLk@ ۢ2lZs|a9 +T8I9zR ]6kI"˞eD0EʢBGK[w.-# +( jl=1 ̆,Yg@@(U' $Y8e_t-y,"1\dz`[ +dnG?kGT9&+blg ˧z4-za#JF +GAeH8C݀[?fAˠ_6fy?"T.pGHHJ]&7GByMbi-.V]Qُ^R(7'R?0+l]*J*m&33?e]R 3.. ˏJ/,wbwvÂuRZ/ƒҗ(]^0~1#,s1dr؃% 0Zn!2JK;6B˭RԓPQ Zb` #Hiry!6缤 `̐qZYqEuA4ml!JVL9g3]\(,`R[^\hLkm sM`]輇HJkQhT5ց.Ts>pa1౜[y*PSdQɜ3Z +a9, @d tɛhy{qOTN9gX Yw8~w1gx +4 ?²`EvXr $@5 >lΉ-K!m=Kn?51PAf*q`?!#mxȧrq-ԟbn4k\i;)hgw! Gg0L9*r}!{+f]ZR[\',˜C `XT683[6pQjaE襞Y}`!!qUBu#|RВ!]3 +̜'I"|Rj@ty+R:[>*uS59@4NDƏe$<_=rD$S1O/ЇAJ V.ZLFy7a T`@|Bԅ'`!d0r#\ًeG- "7?Dxzv:orKQi?*Wĕ?I_ȍ_\EW\0e U%\؈ +嘴`vBm֙10xFRU8c nL`Ct d-*9 + @=yor#`R;j0 &!HB-Licе{ֆ{ NUaO2X;&`YBT bE +bG/h[Pր0gZ,xZ +H!كb977n3KQX~n:-ZZ2ݘ=HۼI0 V=U7L7\v9ax|K/yhg[Hs9ׂ+n]@DS`Հ/uoivs%j@+Z_"%ĺ ׬H:1 +!HzCj-*7" LaF%]I8DU8y" %Ro]LUFoљ!|=!B!* iQ,RbZ,Exl}r k~T 0guMXv%(Wŵ60_R|윏'e`0x{iW#zl" 1!u1`@yM"5 m%h0C>c|X:d]``Dyh+g8Kpe@k[ aj2n"?8mэ{iZ cjhO\AȞu@r5a< U,{ _< x΅Y`(Syv̜g-Q@c\_w q"l6|H++7 +S'zp޸u*I4`_\2>,y*0 D4f +'Dz(U6Œ͍jLn$N2=s]舘ӥ ]& HVjcL/й/[LދI pP_" 5¤*r)t1:Й~b9SJj}0ɐPiMOއTdLD|Sf Z "ꎧ<RYGмʗԉeDn RS]d<T SX˔>{!,E()MEM{Klf:GWZ)+`1 5.GIHFxvʯ%3DlޑR sE#7~-Z/@1 —edfbe+mVQ($! +Le*01O<nMJj1QʠLuETL0JM' bU[~d2 hU:? E (QM\i%bo1T6` U0P Ryp>LƔ !M&5!Ƅ|hә0\%LI-q@ΛHCZPu<\D Jq2Kd逨28oBr NE\k&68h:NL\,-i @CgG|y]o`Zcc|FƔN}" E{0Bl#}Bf{U@Z1Rep5w>`IRD,dTO`0i3dǨJMM28 &ݫkNH(m/6[Z0[h? ƤJꭽL8C +އɂaKf9'=mt!.Tq+Kie$A0XtPmՈX>"TC +_T^)׫+7Q(] ٥ t@jlFj}#@#\:,V!,Far$ bNx>+ά?ˀU.?3y"nCD/Fjcլ.wbR˙j%S=Rgz'taDǍTH5pG 63}z^L#`uZ/Ju`].Fo5:?" 3&նrÓ +[Xb}]mC'Zk,dJ -K&׶GoOwD4gމܾRu*4]X+A.jQzp.VTf-vs*Qt}5WmՓ;Tnj޳nZ~*N1.Ryjmejs7i tA-EKBbj۲,O5rëIwX.\oAEҌ-dg.(S +BnM`tݜ}0?9 +# c*Nk;iYwfo^eZLS ͝kӹ i^uVazT7*S%@UM8t9tQ*-LńR]ʳഽx|Jwv%#li/o &,l/;Gzk/ #+v^axؾ<qӣ/,g]./ot^o-NDOE9qk۰$@]wRٺ\KC&U:#9=_oo:ot^ύ f23FO'/)+z{\)LF98zS{#~$5sZ}r'4rV{;յGw>}3ta ^\yy|b{koSKqzUkFyv&~;|2:u{乭{oFskvm38VYvpR]koؿꕗ-l +ں7<|ܼ[Y_k/@ Q۸W^_rڝW?޺R}GiƱֽUz31#j (.ߗPmne:|iT UWbq5P#Ftn+>ˍƵv+Jm%ރ[?~~p08|4fkוέG5[\bʍ;nnߛ^^h4g[7޼}!ӽ:ټz*N^N m4c|hnG+W_޸F1U\%~w7Bgfw~gy!Ns3n~BC-+U K^lwޕ'^ds]x9powN6%JAc ޕ?|#[R7Wڞ:6zgѻ'Tj*_(NhXw Nin~vSWry#k*c ӫZ~vءjnD(]*MS szjRj 7 @Q/Nk7;7WFw;XUg+wkbbuV?7YY9 0'[Jk_x{T/Dj࠽4~w=1߸xkƛ_}K(zݗ> ~>r49>o?on=[ɕt8;ݸnTsf9YRYҘbiqiޜ$hNTHU43:yl?$XaІ]IWlkKtw Ӥ1ƔN}t_`|bs9#4NXWQ>ruUmjD2g{w׎2^kqy2{fk>2* *3;M^gvMZ͇GݣO*dgvĜ\qKCB4׀ɯ{@Zmz$dWTn}*gZg7rL^ir_Ō95[  I{:¤ +v֭7t1!.4?+n5N^yޥҭu};ޛQYU7oPR{w$!e4?80W7V6q-Le@  S &Ռ39͜5V7nimP;wdu:m'q#3Q&~m5#|sR7k+~2U]R}erm!_]oxz}WyetԍiRLN!CA:_޺71=V{㚗H<%׏֑zWmz˕&<:ZМ2꛳EOM7#|Q.U<Ո @0:v lu֪uv[nBVRSDVg'XYoo?lm߇GgRoƓC*V;`W;rqpTw_ +eqLe ~}2"Рx *΍ۜMf:cD 2CF[K3w\i2HVS 7z~p76|5:ܸ18r}*7S%S@# Y7n7nն)"9.Sl=ރOT7jL0aHpH(̲:ZkSjlݽZ!ҍPM2[ۏ:{+WesD*^\sFD? gv5v_'jk;̤Ҹ:TjC6Q-?cl PE2?3Hd+ry%Dٕ7+`Wz[w2 +4S&ˣ׵njC{ڌEst:;~~'?8Jkn@Gdls]lPfZWf4]1Wn۾?={1F>ܙkb4 yB1_{}<;y5LKTnSb.\eKa<~(80ؼu01vDr4”֢?i >< z{+សӣR1&UlIlJpD NV\4.W8IBwK5w7믬>SeT)z݇Jr}3Wrֳ<8bair *2{#[7brFއJC?.re\\ dᲾA&W^a"i dძFk/D9+Mo1LJbyRbsGTżu7@l81ۨ_vMn<|۶Pla ^(@"&aa6˕ר:W*NTV'ԆRn[i;LCk(uxP2TC)!cGH^L) 3MM:G՛Zui'f+s2Ʈ'0Id9DQF^_ côVO0B (/@{w_n?, H9dkwv[0"*|93=J.3R\b(`!l /e{Q$!ULI+_B`=!utǓBl)\knw{ngxs;w + PVmjä91JU'zs&{R_nyk'L53ik,5lM\I&V|fBztjՊm5U#"_I٤QZYq0))WPX4B]DĮuU1Ae2Rz/6ڀ7ӭx]=H9շQCygtbJwmiF,سܥK]NE3e 5-8̵jk7j\82( 7"lNރ‘Gw_ݼDm⤇dpAT-ze_҅1.eW{)6;̍lH׶=2f:lO)UH e&W Aj^v pPI!uu~7&f\^4AyE{TJ0.قKn41ZQ3D2Eo781ZןXkۇzW?+Oÿ엿>ݹ֟G$R,W[zg8߽>oy|>{_ןԦl* Fsvpek^xw>Ͻ߿O|>O7~/>ol_^(bLI. 3 xtڃ+;kkW{ϼ~^ϷBBn$R՘%Œ;hZg2ʳû?'_?zc#c_ At .C2{FcR4kݍWg_yݵn] STʹ2GUL(ۻ͍V~;|/>yS>>ů~/>W_z/|ɶC$R))4ؑrb{S7Zw{t7{|;O/g6Y~0%T!Ӧv)hPLJՓO|W6:x޼%B;?۟?~gO??R}šq*3'zaVۣ٭wѫoڷk_~_ww'Oc_3V vnfZ[펷~??˿ۿg C [[`h{O^|?|+7g?O'!9 07!#u87zO'?֟~_/?[: c5_ݽv~ŗ[?_??$#uO\ۢ4s#g +T +P@!sIW}`;dy؟?ip&FrUJo_^;zoϿ__=kW[Pbvk7oyp/w?_wm2=7<PȠ$HjXٿu/+?'?O>~>:|y%HVgb+77v6n߼|;_}?O?ݿ'p{bE+yJJ\_˷uV|꣢XC/ Lg-[[Ͽqg|?ӟO?}~[l4PjUHt9Xͯ7o͇w_o~?G?|7M蝴NY ΉIDro}wWxwɯ>?'>o~^}hE + ;0V-R$Q[ٽWO7_??OO?_}sR)07lc0z{7=;~oO?ϟ~ϿoۋBnd+T[\5 0j0rՇ/M  p +E_ۻ ߞڽ^eyo_'?޻ogn/xhހ0a9p`1Jl?sG}ۿׯ^ZکJà FM.BiX9.V;KKW/>z7z;/?ß>ŏ^+7Ւ 0zur2 >/&(j)溃Kx֝;w}ݷ|z7}޹D Hf!,D +^{`$^ܻy7K//O៾=WG/]>^XfB4':C@m>d^:.ol޺}| xW^Ky7[/meu@8cy4Xvtpj!T:Kmm(,pQ:zi"Ot&ὄYPx!fjB(#Jބ v *")vZo5 9 ʍϊ,/BQd<LyF@'΅}!3霔MQB*16 +aUeISX:*s+jzUy6NH|_= T|NB5"QW7R.htZj E6d2&qsLv(x4#9-YΤ +7n=w~/Mbvf:TOLc3v1\RQVʋj6G%fD5^KTl/;AӼI`+L@YN_ jrqPH8.Q4J\("JgmfJ/NaK,P\e ˲3Q-OX6G$LH)ъhx!ե"/3ݠ:|AIB>U[9xhBoPH@ ĭHx҂ 05x&L cD(ڠ"|'rvBq1ٌW-^0ì!?oRF7R\JP)X͋pP䜃u +$FLu.u4\PC>F5xhܴ 5KA0eSp֍$)Ȅ LCFȥ|lňY}L: NH^)lćs1CfwV>ȘM+s:wȂE ްW|h_ݹ&z+ H'"0i3 B{Ԉ%"v[QpKF֢Uy ;fo"Ƭl+1'7!a &NI XM+Xm;7{MNXP$='ab"̩|̜pMGNL& +(hqE̛l؄B6wg8mdK̜;#Fd/ y0SjzF+-b.">.;lJ,ĈĄuB6&x(@<]^M5vOc NӉQ˴jފLbM\#FXԊW8pUg~ P6R8 i!Tȩ˩I6a!$眨:fk҂p`b<$ e-21.ri7X רGrM4C Q^^.hdž)] +kP0#z j3G.L91jI͒|.TO&LΘMV7KǬ/rR傱Z&&E .TNMBvL ,$ΚS.UZk ~)\.cBw/\1#1L(H)L% :UJ,j;fP$ɾW(N{9ƫ`BnRq K^i-]04 @Hu*$D8Vwz1iŜ!Of8t2w(^MF 2Je1%# +̥'׆E-je>=b‰I}bp&z\t.<g7wpl-/aBA͈ SB8¦t"\F'GLL !h&M8 Kp0_H ZQM]TEhK \ +H H0cEdW#Ndb`6!ri|}`FdŅӮHr5ñZPRKkF7SV֑)w|5sC7 i'w& #Q_SN/3a ۹QkK:֍6^jǥRuESg#n:Km&:AM¨rY=^-I dOxYB2A\ +@,m'еSKr@- hc-.PXu o_M%ZoOXQq hQl>aAl`D5o`Y4axfAM.c +f. +{Jz1e^ BI5(ֻGL~bA$U4_)YPO7 .֔2fOhR2J<~yONyxwjG %HȊ +v\ń[%0irW6c^&PfdF.@X=6B)(%WuR̃ %R%OƣM'1aA r Ûa ԌM\Xx (qepA)\0Ģ W]iFQ6LY F$df7a͠L˜;alpeJncRQyp D(xh͊*^W< h7Qb˨gCD Lzgtq>  KIe8xCF ȴrQ_ CMZZ`u1X(?eFmih aJͪ`'m~*^2ek1TbvN3JrM90=DԅGp$ 0)XH/KqaTYi57fhqgm~I;T<=v#`!*ʉƦ/?,RHvsGKZ\%8uֿl\}΄ܸL%Ji*MH5wDlBB,SrBf$_X x74=8TX Lv|ʓF/`2_dK6äÙUL̈~ӆ.2 %;\!+갚R` H#kZjmEL p!u0Jj:oD&]TnJ;9:kN;Q#wb/V0a\#c +D + h3քx9…1 bB,ɣ&̴ +D(,0+X`STb(A찓sSi'5Wֻ $+,܉zpx<ܘ#6Q*f'LL.aHTr7R]N͟4M+;Jr JRK9\k^ =#xfc+=ud]FN9)F/?ܡp&SkJeƀyΜC_)Z f\t,'l~1u@, ˹kBi 쁔W Q/C. &~Ĥbm9);;+X\mZwҽ7Ź ;+mS+Fv aK F g |bsW fׯ4'm8!dFb 98{Ik312Rr!6 ^hfoT˰Egd8ϕ6lIXP*G1̼_F*.T(Z${zrQI@HꡁUN|@ Ēe+ f'z:''LL^.\ϗ@80"#Hu9Tkbqֺq; ¦A%+ d%r^.C88_DLgejsw&rl6p~ɎNu& ` &; W-p[N*FD;^w롘 gڊZa7ҽ֓GOm櫥~KՖ\\^WqV6{hXY"i.0 ՅRlgwAp=-\ky>)-]o\'{ +0.ۻ񂓒ƭ]\u̔#b{+Z_i_Ȭȯ[f*E `1K/f g Θq4. `M +Ilzd?2 ?''>%X @-^U2?f@Tg`t 4LjxqՉJ0 +65he XHqN}<`  b~1*Lt֞PZ\5mNBHy_4+\1s|nV,dC>>hTVlҕnK\vNnHiU4Ҵ %>yR^76_2I\k52V2D;\;z{˝'1[j^Z0 \8zVv .&906+O獠NBiɁǟԀ17P PCZքAp.J4WESnNDWZG?80Q J= n2%D,"R%fJeo.6@V`Q9=2)jԢtbN(sLbv8. &8{ޘX]xtj]1RZl?U_ՖoTVnR8 C/M'|9"R9  z@6GՑX; )Q~0Z_/]fbM>s`fB% ABR,ť* j'渕4{Cp0 B(0Eba$0Hi{/Mt/p +K@|볙wt]AÛͨLDry}k>عu5bHXĺRr NNۆ_1x[rk 90H'TA`R[@v;"Y3zᗓu;M`j0vD(njɳf3A+rSqpo/z(#p +RuͭщYEwhw; &Onf0 [<_ttb{܂M4T*Zץt303L f'X%#f =-ޕ}װ3(/PDS JZMbr DifNTz;V~hvx̍gĕ8)TiʥJk'tԐ`M2 qVmbAhf6Rb!^[nބR|rZ. 6)]LjfDX(>Y$\y>DF@:#s:JHepyQ.CΥt̂l).7q3f%h6Ty=lE= ݄dO@Z<~eQe~f7\:1pm+pp +i"qpF;=n1:q~ 4f=p/_aSKOY'OX&ThqskpF|W@z0 WڂB9/*+h(`H+Uؼ}brfqr1fl> \$!TZ+.3% TH>J9kl%j,sT@.8Qs= .CVL5a&aX pz~B*X`8BYN?= .j8:T${\Gj 8\σCy31c"Ù%s&]3llPj[NLtv\kϝ3fT"ԦRNAU?c pX(o >%_û+VD&".P:Dru'?w].n؄+]PID,_|/ذY=2<u ./pvoWn x%7X-_ uc"ypE7@F[d.dƆPZg/T\]2Z-vvai7kJMDJtk?zo_W.JQ*.ťa]_-jSKL E?3 >et')ϩ DŽ vefvmMY0ImTգXmt}͊&@<^JӞq>M;uމx('VoȍG@ +rYsJT#lSKF&ø0.Lm4ӹܘ1B.6="$-;~_jjx}쬘r? S`qOM9Pͧ)5jSb-_v/3!3aJ6cV5#H)U**莙VݹK{} %H^ %dgdgfzi;c!&]+rbرH`\օJ?nN A` иG(E%?Gۅy7õFrR~:8).]46#lF/(Zz\\Ԩ)`t''̣dxԹ&7;; +5B\A, fHkX7agrۼ q2iT:2bF)*b tז )4=VX0bI`xp7p* +p8qȜ3"ftҎ24sO0`Th H.D{$1 ROknZiyngLk2x|E.V F&(whǴ*X\kh(-^|fWKG7_:zV(;4}lTBv9ջZ\/|&9opۭhb\lѩ/N848c{ņ$T2wD CXujW3wOGvvбBANb#cv +Y`Wt\SI#lrRT>z/) Ac 3Tg\ȸ 5C Ds1-FdF(t.m:9n?1b $iK D-]]ݺ x X(cp9!\r҂Cjp'eBSf1;;ȔՁPHKV{UHL6n ,G&ʥG >N4lXe̋F;6eF^4s/1w1S]NlSBa"X`m>Z{Ԅc\qO\C +L{͹}P'diyP\V} + M1 J46HUv,=V}ናJή_4;h06CK Zr2ԃʥ%16 MA`ރ +!) "D¹ܸ K]3A%s +H(<4hm7`if.珥R(=MB%rhL7H0(5bUPW +lGv5 +y: +Mab՚\3|`QTr1h@m0 7wBA!=4\$ù]F Tx}o+bqt~Lld/WH +%+ `r=S<j& q9i}16|<& vnpi!Ә9gR)0%zHֆDbw_7f@*)>fhW\kc=*1b>6 BznŝE2brQF' ~@Ё>^\ Fbܼ98`SK^>xX"dI1 fܠFB 6'NBʗEN`͋%@=>Z1a'7gt|,RY7=  +Dϗ +nt11Pr+h`>/(W#<ط SSDn̜|lxsL h2q2t=˧;Ńۯg> +2QEőy3X 83bPFCt\$m̞_//\|K͘gSͭEՊ-ۃ&kr$*.c:eu>IP~~.Pv2fOĺ|zAĿ46y!:Hx Xνu"1 u["x.J M{n lUII*b h`1P߸o&[Lg'-.`)bL;1. מ⭓6/PJu Iy$9cL7!?]-mU涝5:;O->Z{r\Y<H>FLqSZw|jF#%])=~ڀO9y b<2aL~Lj=S˞pCjmj7.g6l#Ź\qy/p2PX }+ x Sj--^ݽZ6|p)|\O8 B'I +y80# ++RK <.3W;g.>_[z{M~;/eV#-;,PƩ)V*$tf}z) Igh*&xx,)ooVwvT7E@= +TglSe"2;J{ 'Ըӻ6 +;Ϩ%2n-/_8xuDgS` L|3B+ W#UT, t]&_ ".)m{>&F2Vj\Tk0*ťX}=V[ TsvTV6_i w=hx^ws@xEe VxQm"υ +Kr}xmW_v{//54xux0սJ ra3#6pɡVSC(,s{7}LʯT UVpdrn a8TǬԈRyz|r֊:'PPQ.2s+P]:^ Z]!#eEaw횏pY?_xpg|&*vqJV睲&'PuG8 `zp0whƛ՛>&Ν{wWZ#ڵU#6=js*6>3ljԢ+ON P~DF*biA)ͯ\wV$\fN̳\/]8xb~4$pq )9_ŔJ{W_Pjkl 12khH`(| Sy1r`xQ_ssБSN_ ւJ޼7tleo/+.f.'|jQ6?>_lo7lĮխ87_p)vL$ظ{o%VxKʯ|ۋ^1z6 7peĈ8p.vTrQhd&yJ~3-zN\͹w߬,^54m;=éq'p(uKcvf fˆtᖣ^!"D;9RU˥AyRcx) v`ˇO7w@/n?}&IWi2-UPpE{hԀfoJj࠽y~K7 嗈Xk89*Y*$d y)֍~*ౖXZhkbPPFf;I 67Ow=]^~2;skV3Bq^.-=v.3uv㊛ @%gp!obFm4V$LdcwmbtdMfR~ΫZiլ @;Й1FTFr<59iAB+͍\޺9\}R^EX  ˷W:pSILfԈ@S#ͅ''&Qn|Ϳ4"'\:{C'g">(ͅ]ZنD|K3Ai ?sN,\gkp.(rqwa>'&=&ZNe~ *am~|Z$l<6nn<셇եٕώ _-&V}s㫝ۅϾHD4\\I/ff/\+;? oF^q +afɹHy=ڼt wKǵť#Z]^y克O 0>]|yT\NJQY]dAj*RJKtb4,JJU.LPͨ{I+X F7hjp~6l3IpW%J|า|;\ 9ZZ|#g!ZjC"7gQAϧ;T%D(6nf/2^ &ղvqQ L3R"%6^'د +(T&W D;Q\z&V_@Y63oSю?B)OLPhBl*oRP*vL>3Q5pEx83á8甍5vڌ*@|c۩RhOH)3©XiY-/X@x fc\E%5{.9PaFӓJb~LoSb^ ZF(SKjեLg3-cbJ1&*sbcFDcC,̇3qKWWBZw+Ͼ~w<֥g~aomڽw>Z+斏MD'_FkY:a'0!:js??w/dBoU "iM(.&:{.Zۼl;}0tK5Dn箮^y-;{CGnnO{8zHp)/Eb- BToSb%'I)RPKk+/HpzCc8EqsR2\Nf2]B%7 3Ya )9R1zq`'!:g0#Fl쟲SSܦ:Q6CCrbz7 (Vb]C9͵d݆rB&2XpQ:+&9^3QkD皴 cl f.[8%t;f3}R-1IwQ>nR-Z݊ {^Q1 "|IEPfxgC +ZYo)c41z()9$rХ$[ Bo!Vj(QkJkPs;n e?yp STmdsj8яL0vQgc/K !^Lwvq"Ʈֿ\yuVDW [)&m](-\ۺVڷ~PȀJ}f](kw_viV.xw+7_WVOMCgiGC|1QYkOBlnI/7nz_=~1` S1Qf|ͣ`'dϳG+r9p8nf9Y>J +N؉03jm<{0{yH)Q^rsVbp6ƈi6;`< Ez$چKr1,s+7ʶCPUR i'c DUVpM 8$i7g6T$J%8g"$#H+QN;bWKt֯ +پwh '؄U;0fFma0KJ\E PIyػҒ*TUB94FtɉgILDDI$W䊲WZkIʖ׾9z_szP@>|z7&\Q2`i{;"~ͬOoҀNDZJ= +#{ Bj%.d"yfS^ L\s|*O 6*S<3=J/)z0f}R];&Gټ]Jۜ4 +Q}t^ڝQʏ'nPPPξeVy/57$>+q+4ơ^ݑw[B+AپR} "$s(рy[Uǹ15ܼkma)jT @/B0Bs?G㘘Ya\lƴH֕N-yb|Ri) 0# Â0>QBۺŵ)I5fVOU+ +9g|$ )j.Jm!= IW\s iT*j\il,I }Y< HIRf5aw6 Sy8JTF9ϟ ,c 0z#֢lVa F/RUQ;Sb*bKV(n+!G  5Cq%_u10يH 1+$08P :<=<qx`IF1R\u +"|F.,g aҀ9Nz_*uaIerbc7*DB%(E0MYT Jd:`JW3z|ƅPKP%XaTEb,&^ziؿwbo7|!JGlB1r"xxH s!B r@/G=gAUݐp^Xą,x3bil[ZiD{*VS "F; <qv V4H19ϩr|\FI/ƘT"R@u}q-HZ0Qe~9 A9GIdIaUC' 1??Tw3q΂p[@(e`6@@wDgyPQA: S1 CP_Ԣ/BTb0EߊJxLY|M3]ϖƗ}(%Fqq{єXc0q}7qɇp8,4fi x"ؒ7 +Q je+ϯ^:9s?JƩt K]1Szau$ +xHιQw8F J;y#dT%"q5aq>SdA.81 >whvkaޏ0Ι=)*X ̊Lo +AGM-74jӜ!2(oΞ@C08G`FY B `(h!<*fS1 ԩW|ōΜ ,Amrrp܋*(rq"Eg,ha!RFySEep=OY lWpE7rv13$0qfֳˡ:g<( :dU;ʅ ᳨\%yޫ;'"NϹRI +^ynf;" S*ΫLJvuJ%1c,UqN"N "?BȪDXpqKT"`#9°?1rz>( +gap8oiA HD' +_E$4?,(Y%'%٥SAXXJtlpo.l =oZ8*vw*P S`ZL5٬ZH i]N1 !LB0^Cٹy"g\g =*OX#I# ˞sO PB."U0.sNP|C +,BySzz(D@&fTYJ C1`GgϞs/.>"8#sKe7 aF =dLjg| Oi]Jq\sEbfٱ\pÁ(OaS8Qw<c:Z:%_4EI3_멹ssKA_UZl܄TJv"[\ # ^  D2eyY{/TN;V<3, +/HTQD6hw{W,K*K{ l#H l_Wd:'&'DYOaΫe{RZ*tVl$yBθ11Fgίй|/[氿I +P%ASƤTs1od 2.*&#*.pdXtJKhI$Y1aZx: XDba2Dy_ "k~E^HݵKk/TOj0)!>H.D⩅S=.4"QPdYp!f9&8LR 4kZ,x:̳YȒ\noL1Qe;̏T+^ya.n \{m(7t>ѬN.t^پЯVJ)lA{Ҋ7 qR +25KXA$C80r91YO]|wv<_/{ϯC1 2O&8Dn%9]͵ [C%ew\xryo+?_yFŰZ`.=<5(&zurV>pv$YAYRk/;;2W4kapv)tԙ8YQ.T$ EfHqRZ|F?MsesAD1JQ1@P&ipؖ](T5MGkfU. /{兣w_ڣwo^VʌE`0ׁ&c"(GEkWfYui[^_|N&FEH Fܑq"#B34:ׯj޻s_{]if8* +-!jх<;\r8Oq,,~( ֕f)BX̛m(L=sB )b@FƋ;w{淿r+hw{Ͽ/vcwkh63NZn Wѫ*8n\&=|K$z0Rb:r_YS\҅w^u7?_}o?zLƎl8Jr5'jWft q+ǿ/{/?7vy"Y=u|ب%@iEyԲ@j7_zO}㝻?krTqodx5jaGaG~iUtq|^goOo?}~G߼_;*t$:]a8! FE~oz}ч_oWึ7-5HjFNh1X3ߨwvo<ҕ擫O߿?o>{k>gRJWع;D +cAO<0 µȼ~|c/|[f*31D`0,Yb>woot/]ɇk`~o_o/]+tfUOS.PU'E򀻳z\Λ?gK?}?|?|vW>xf1%1, DOjASr+;7K_;_O7n'?ɏ~􋏮+Ƿ*y!:Էzzk+'Տ苿yW~ _7w)_\rb0̠(5HC_r2үhg_=ݟ|'7÷w_jFc2aJʴNӻuϿ}?}/}K?~=w/q竗rh]\zf1vtNz-ɵ7׏w|O}߸_zn$Jp5N&J՝<;a׆W~|p߸OO޽Wa'rV F(D`T,eǣ]E>'?|?~G$^k$ *kGན_z>o^O_o|rqqXQ(^Kh*4VMu[;k7oʅ߼Ͽx_~oy 'I5`2Y,wE3$rQf^9|rwo{_~'>o8}Zn\V4HdC(BRPP#-؇kAVI[|Q8%/q : :$Y&(R %|yzf/lٛ?ηl|k7'半`A #e9}h"hP%e۬IG=I/?o>{[]2w^D #L$D"A*W6nNh'ҵ Z7uA䉂>ϲ+qFnӳxK[G,yyt7{4][T9UI' s9R)rʵUդXtdӖ}^q{uy0* *~1Z0Ԙ;B9Bf!LA/()˓￸ٻʅ߻ݷ.}m{w}Ը( eNA +RP,2m1 tcf7??_Z7N+vaSzٜJ->Х/Zݬ6rW*M)j)I<" +2 n"<)M1,f|.L+%P+J4fb=À B49 ۏ#8HLe<wת^IڮmWVUݮikdT޷r<S Kh ,S-USʊp?M+杵/>pP3iDH9YRJM{YKReEIJT+BFZR4eNPqF b >qJ`Z >HxKWkp$tX\^U i @D)oZa ,LvsV AYII` FlI X/J`!2HeJ֚BR܂kaˬD"&UƸ=٬]觎˗7{VOsV2934[~?50xP E%xY nK_ޝNuSI!*B$(ګ|Z:?ah}0:a5- +ŖmYZ HLZ\̇܄ܐ*aܤ`]t^?GPXʻpx@a ގ8abθ] +’(Fi"VnDb"(DQ 7rz.ƍ8[ {zi~%Kb&4 0r +EE4&Qqb2!e].dуrV]#1=*Nl3kV;׫[0gDqSB:Z XB1icJ-ʈYFdP>d"DdJAQ?7^ +sKaq%"F4o6tG0lZ fIj^3}nSJ*!:E5?)WL 3YDYVia"ӕJFUQrs3Pbi?嗂ˑ!–E?G0(*j܇i5͖'cB1DFggCFk5* 7bx )Jnܸ;lR+ ):68ݼ(G 33`rX~TIM] qD6#\(2#c|4;@ DDJ]" +϶b3C4 +Ty\fCr%@Ѩi7%wb-& }ͅA2剫!j9DV1;y#50'Lp#Xj;Qr-j\gM#l&EBL="`vyⅥ"&*W1 N+rXV.Dj!lzO+ KPMcrތe^%KbeLX_1T!ԪMȬx6(œs"&XL}9#1Q۸*,[>οBzBݐt/,GIcW ʬ鵘Xyv){LvdX@vڹzm8rb\sx]: j_xiu-1{fy1x*He]%|nS8Ҭf2F|r3tzܪ=Da*]wUŦ"VntU.M OݿinMH-Ǖ s#H.":a {Kt'R~ mZLc7''/qUP|z5?Q—wܠ7=yKGݴO^u= <0tR1&Mܴ[ 2O&BLÛRyL RqZ@"RI͞_hr,Hۈ^{5zk]L.~tsq}֫߾z'2Ko"f|.dzi D*4&WR͹&LD(+/Tw;э euAMjPրήc_sqc>e J$jk=*0S;Ji˭!Zj!&i|nTay5;K! GԈMiE9gW}K483W>25Ψ|ܗ؅jǹaJ Mry??qxuHVysK#L0 ( MFw(Xl_ˮPzV%׍֥ýo>Da>Dgh2.f !GY1Vs#4Y*J)uK}*;~^ oәQT*.&+|ir/N*7  mL3k[Vct|+\ת dJ꺘I,QLvU.$*ZeK)鵃;__{K^HT/@U.Vn +vjpGmw.hVwdvv@Q4+r\H'k_ޫ8_ܭ>z՝L{o5l#$|;fďJa,勄ց:?\zAw7ӚQDgwKXpFqV_ooS+ JtcG+aHe{Cu?kc.IGT@:L4&e3a9PM(޺,ok)gWBlJi-EErD 9v)۽E&;ڶ5]QA 1H"L3i@yP y0XCڣPRv)x7mx݁ M( DըR @8{U|(zն5[!Z!6岤ѦQ[Ra Kq!aV#4kIujV*#)k7:#4w7yZ\V|#Kr(?<Ie>A$JÃGp/~Ř !$|&dvm޼t(Dl^6XҔfs~2姲bX}N5.7u`؇3`d:&UIo\U.╷?ْR?{3+ۍ$Xzƾ +f{koJ5CR5u7VcR#jczKA`xebrI;P^dqKϮ`>Zqxۨ_/Ĕo~ɋ"fkv@Ą,F5E*jBR=K~ /`I%[J]yd$"UjM@R)Dl:.ՀLط7[׮_iL-JD `fTeHF֕LD y;ITY|*xTLZ}:;JT}{G >* T*f[ #ajEJ]gr, +_Ji3fcyy[o*\aR efm\52F~^ č'yuHsMI~L+D(¤d +X]\5'ȬR6 .N/Ɨcl +!0S[~:P˃c Bq+9m\T2:YaQXÄ1^Y +16Y;/D"P?w,9ʮ$/D .o|&hk5HrO-8V\mJ#̗b|Q))0GlQnt163vVfI eJnF{T5e\KuCB \*ha/zY*o _\Sktvd3s3*5D [p\gOnh;>rPYx.3n`:I} `g&gf +6i*0~ʌpV1e'!b1yMZyJv{+@`\Պ6xZRc>ݑ>W4p!DD1ktj-$T#" +CO/@Z^erJovKQAQ)LZ.xh ^|*H>BsE)u.3bCfuj$d.~7 Xp'pYqxTZqh/rDnTC+Bb|!J-Q ^:Dg>3>y!\08\˗"0?@L\GL _vS9~XA1MTddb'4P҃kM>&Z̍Q%^~r6}gLPǯlzuO=0j d{4.)7\|TKaufe@W[S-67L +a6*h,sn K"e/Ab4Ӎ]^ +Z-)`T.(}LL+DZm>FL:?8=,:imkU"pOF\e`ZB5 pC:b [Fv1۹bubQ2^ +J(4Rj#E5OD* W*Jv99:b~D+{< hSk 4){0Tļ!~G)l4S]QY#LF-'Z1&ށ,zIRA~C=ЕrS1;Ǔ V{Øg :)Jه[a& (OAC*Xڍe +Q)wT\\i0 zN]&B.bۀfnj~| +Q`{f{۽7ؿnAZfpu/m ҠЫ=R0"6(rfP_a>;Nn!j+ sT +:Ner'߿ʘ=/)DP*@9r@JDaIΘ$榙jv|;8se`mL8* >>]`+18 zT(rԙ9*-Tis>"3i\a?G! KIDd͋rqFYgKgc1V {gFgWb(SL @ +HLyYCUAfA bR"!۸R μsTȮ:8b_'rcfT0iv`6/ńc1QK;rC +K[rAY.'b--S*h"B9[qMsފK9$A&I}ǂTzV?fyi҂9ʤv-L f qSsGH09=ωxaLTCJ :0>@[phC]ĵň.HrFk[׳{Y-Nbq,eiցB>``MFI1 "i4H'Xf FÏ&f5߹}v݈v\05@r~M};³Z5Χ<DË1' #lvs+g=q-ԉ$+`ީDjFdj[{4Erp MԀVV}kڳWz/\۾T|ڝ]到@l3FKi-N@FP!R}Ej PЋ^{L4 1.eF, 2D⌉r&Fy=Q=.UQ +To\_!•,Tó*([^s8uk\ +F uwhyBPr j"rH{8 rܸ/_l i/zeKH*jֈ׻ޛ7Qa:P֛D䛇}xQ91\i|K-o/G9?4V7L[@ ngnbjH(z13fWAفP!sLjʳ=XKXrcs7`j{9$9# +)!&o\+7T\'v),="d%17!>m^.l:q`uI缘+&]ʼ=qaL7wܐ0kcj=9 {Zg]Մ08 K0[*s!YXl_brr}Hycʒs8WJFsNsgk6qj^jPrUh\7WY Zgg]\X pUԚ +-G{f.Hɥ_</U.k eӔ^g1{J+)٫jy2Q/s`s^L\'WҸdk9H׃&at&0 zaz\*+x5lNUR'S{R[Q31A,|mAR#L}OiXnz1ŵ6cs><5B%(k 3W g;hj\Xܚs,CK!LH crty(mz3' ˖b9)9Hf8U'rNχ$GL&ML.zn(hCb 84#l2z2`'$^V|Tkȯa\Dc!L1y^ A$c\Yte?YmT*,Yw,g&lח3HGh!N.way0">KϞȒ۸1:?w6-dg)>m f dX\20kϚ`+2)!GAl Vce\aD&Le0eJw+[– Q $̔aiuʏ))@ ŀ_ f e13e b|Bp R~9,B-@BR$@bhSڈ]B;r@ !~D +kP5$20 +HZ@1M߬?/ $>yvދ{TLiix ׇ.X?&\Qq%̟7wF3+r2Szp3Ó)7x[( aRp|Hh19=;Hޛ67ve b1]ݥv$ADrKqE*IRU5U3=DD8OIYI C$-{s9C'ZF݋~172٠3p$Ρzp(1:igHG;]?q~@'Ҁ5ucN!j@K#cTbfo;3:_Ā:63?k~׏G#vv43-@=abWSkX3t`fZعɬe +ZfchDZbѝ]dѷɥ +amy[瞂 IzÙHףy3R_fK~z38-Тq;:W!G R-L-6^UE/f'Zzϙ9ټo\8=P 'AE?%adb%:%ׇKR=3Q(/S+wMi7k٧培ٝ~;/bxÚފQHݙg-ofC$XRvJ;ڛ;52\ %Lo\u`@e(2z$R1'71\8d3&G3Xsah ~9Ƴ (Og ױ]`U?dZl| g~tfΫK7Z":Vtss@Gãco>1gĀ3d6s6tz3~YyH;tgdynf!yߏSFvϝ?t +ec +sr# S/%蒙Ϭ-F[?c @̝³oSzÙX4fMGZᔘܞ| pRf@` 9s`6ak1'3b3,DOdV\MW2Li3c626_u+;:lx?1[^Ē^w3KWS;#59 [S+Nv_`]X759&-zrZJ,<8[=~[mJ>/RT;mz =mmy62+<6tjH=DɥxdDltC`1Ы 9Z>q #_ϖ@N$`o}wzz}d|~~B$A+xlLX9݋S{z{{cKCAwۃL|zkzpJl5ȅG؄>^t3݁yhLﹳӛNn q .LWtL&e E'GϞ8$G}{~d,fc Ǐbff.zc9wbudlϜ}<4-?Q亓o?A:\(6uKO#1W6 H{-dI-_p@vA(k|f|c%'="<3_NzI-2'f֟c+`sNzu,8[e +c7 ^n]Ē6ZH%r[N2'cLzd9561یS洝^K-Ug޾ӫO<襱էAIZ;5<67X{ffƙ)с5:1l3=` ߍΖvb]U9ސy22887uAs[\zv V,h<`?/>UD0zmO=u3;Ne*Df@Hkj;6V򋡱Ht⡜~lΌ>>+쾲S+uudtn@OhcEV/r~c9r <9/ՃM-8٧ .[=,6>j_??P|^Clj۞IWЙqbbv>c;,d0>Om?@1hvn@R盇.~gT#;; 'V:p j[fΕt=l10ZGƗ  Ʌc?̪\&3[?DO䃁Q +vnڳ{ɥX>XO=n@g[5sjH&ϖn]DFZؾ.+m0u|ZSbRS''S˥D(.mb&Zr9U,|9Aa^2| 6DL4@왿Bh|91[>هr$㠙h㋠%2#-0l6S-ڜNe·F& 8,:HNO%ff֎g֎Fa@h¶>2isz+Q<(g^/y uv,5,\ mШسigНK-T +gvbK=[C`n@]!bx; (&WFkJ8?|)p48:?`z'U~CKd07d;:ʕ@K>i; + oܹb\,L6xVɏMPtA/z""bYN,/}I@lcr׏Is ?M<Нғy?-@ vj3! +poVfkWoR˧#跑XMG_?ݛxȁH93͠O,,V~u䦑ٳUfvFCRkϾ=*Ğ{0vD:_馥Ӊ +0:@%yMZҗV>6 }+: +TgjsjxvJl|_TWG@ ܙ< +\9z?cdo$Sڕ;SJ,>X`sS ofaV1Ě5;hn'XIntS# ֱ;\xߨ.UX<͋?-< 2}Xn<_(d2D |/K`(kX~{4>\y zH#-D'\,–Z>%<_ϕ\dx|Ț˃Ⱦ"&ñ2hڟBKd32_J^|71߯O_?yJNzJoȄ}?rm #|j+7zhmNHQ#>?]w7dfsttO8Rxu0\8MY&XɵWK`ms{#ѼIo}|&@|_:玍g<1GE닍{-iݍ%2/K`CzcP-|"3`m&٭xn#1ݺX<,g_h#+fgKs\  SKG9=7fJ|yzEr +4>8 O3q*+Z|L +g =5.ڀ%l\^=\:r{#cFA>:ylX旾^öٮ?~= Y枾IÀOF(\t8p29ܙڛZ"'A^7`Df[Ɗ&FX>r2}ꤷoGn-AK%sk_T~\1C+*'l),#rcπVzbwx4AqDqnS^O._~{\~#gL`^Mn (pૃN!t/NJ 1kdjz|QNOw-PF}v+ Blbqj|/Zu|z͞\~{k5_3'P]=9=d + 'P={08 Pt7+GBp&g;gfbOmbj`КRx|lb _Ye:>#}Fڝ?f|60Y_Nn7:><{Yޝ` -U(F,, 'V"(rCrOFf-::8Yීs]}ry؞R7فD ^3se7Wɭ_No&v/FpLn_[y"}Mb ,ux ~ ճ͗`f ORIP?xlE4fՀZ>Lvd7ٹ|lM1+cNM^n0G}6o"Ãfvtffxbe|˙/c.73>vfI@rfX`L``{C) >so)@Ix ''6ڋykXH|ndݼxvouئH4XI4lŏt +FSc3ŧ_5~/Oo1Tyāu7g9P?^|=p8zrlr]N=@;bb}zoZ'朑JΟ!^9_Dz٭2ePŪЉE{f?g^UPb,<ٍ{ߎ=sN CgS`ŏ4WӫN~/fv^ _ 'ƒcv`L,s$7fVOP=ھub-,<=UndnOsO뿸Gr! OH}B@mnt'>! OH}B@mnt'>! OH}B@mnt'>! OH}B@mnt'>! OH}B@mnt'>! OH}B@mg=G:?ȔK~䌹#K姟H:S-_W/Ko"8ŤYN#|q,\V0\.V"t\au&÷̞n D6Q]}O战. 8##+ݘijk&]ʘHK:9VSJ;f8aY\x +j|U]|񧟬28ҹcq[uǣH@d3vqR7W5-_/hT*@}ZvzJ9RŹ_T{# `y}vz?FaqY_S>\V +9u#~7Y=at|~x鍺upkZNK8.퉖w 6nc89[(_^V{:7-yY9mAywL4eKWʗ7rw[@=X^u^+v0N),we`V CsY/E*+-BY7woHGj\^^W˭7z#̳z~4iJveaK_^E_h2m usr^GxmgIOR.U9cWbz}|Vn+"wr줍;ƵDz j|D^4#$ү> endobj 53 0 obj <> endobj 98 0 obj <> endobj 143 0 obj <> endobj 188 0 obj <> endobj 224 0 obj <> endobj 257 0 obj <> endobj 284 0 obj <> endobj 312 0 obj <> endobj 341 0 obj <> endobj 370 0 obj <> endobj 399 0 obj <> endobj 408 0 obj [/View/Design] endobj 409 0 obj <>>> endobj 379 0 obj [/View/Design] endobj 380 0 obj <>>> endobj 350 0 obj [/View/Design] endobj 351 0 obj <>>> endobj 321 0 obj [/View/Design] endobj 322 0 obj <>>> endobj 293 0 obj [/View/Design] endobj 294 0 obj <>>> endobj 266 0 obj [/View/Design] endobj 267 0 obj <>>> endobj 233 0 obj [/View/Design] endobj 234 0 obj <>>> endobj 197 0 obj [/View/Design] endobj 198 0 obj <>>> endobj 152 0 obj [/View/Design] endobj 153 0 obj <>>> endobj 107 0 obj [/View/Design] endobj 108 0 obj <>>> endobj 62 0 obj [/View/Design] endobj 63 0 obj <>>> endobj 17 0 obj [/View/Design] endobj 18 0 obj <>>> endobj 429 0 obj [428 0 R] endobj 455 0 obj <> endobj xref +0 456 +0000000004 65535 f +0000000016 00000 n +0000000334 00000 n +0000059133 00000 n +0000000005 00000 f +0000000006 00000 f +0000000008 00000 f +0000713817 00000 n +0000000010 00000 f +0000059184 00000 n +0000000011 00000 f +0000000012 00000 f +0000000013 00000 f +0000000014 00000 f +0000000015 00000 f +0000000016 00000 f +0000000019 00000 f +0000715993 00000 n +0000716024 00000 n +0000000020 00000 f +0000000021 00000 f +0000000022 00000 f +0000000023 00000 f +0000000024 00000 f +0000000025 00000 f +0000000026 00000 f +0000000027 00000 f +0000000028 00000 f +0000000029 00000 f +0000000030 00000 f +0000000031 00000 f +0000000032 00000 f +0000000033 00000 f +0000000034 00000 f +0000000035 00000 f +0000000036 00000 f +0000000037 00000 f +0000000038 00000 f +0000000039 00000 f +0000000040 00000 f +0000000041 00000 f +0000000042 00000 f +0000000043 00000 f +0000000044 00000 f +0000000045 00000 f +0000000046 00000 f +0000000047 00000 f +0000000048 00000 f +0000000049 00000 f +0000000050 00000 f +0000000051 00000 f +0000000052 00000 f +0000000054 00000 f +0000713887 00000 n +0000000055 00000 f +0000000056 00000 f +0000000057 00000 f +0000000058 00000 f +0000000059 00000 f +0000000060 00000 f +0000000061 00000 f +0000000064 00000 f +0000715877 00000 n +0000715908 00000 n +0000000065 00000 f +0000000066 00000 f +0000000067 00000 f +0000000068 00000 f +0000000069 00000 f +0000000070 00000 f +0000000071 00000 f +0000000072 00000 f +0000000073 00000 f +0000000074 00000 f +0000000075 00000 f +0000000076 00000 f +0000000077 00000 f +0000000078 00000 f +0000000079 00000 f +0000000080 00000 f +0000000081 00000 f +0000000082 00000 f +0000000083 00000 f +0000000084 00000 f +0000000085 00000 f +0000000086 00000 f +0000000087 00000 f +0000000088 00000 f +0000000089 00000 f +0000000090 00000 f +0000000091 00000 f +0000000092 00000 f +0000000093 00000 f +0000000094 00000 f +0000000095 00000 f +0000000096 00000 f +0000000097 00000 f +0000000099 00000 f +0000713958 00000 n +0000000100 00000 f +0000000101 00000 f +0000000102 00000 f +0000000103 00000 f +0000000104 00000 f +0000000105 00000 f +0000000106 00000 f +0000000109 00000 f +0000715759 00000 n +0000715791 00000 n +0000000110 00000 f +0000000111 00000 f +0000000112 00000 f +0000000113 00000 f +0000000114 00000 f +0000000115 00000 f +0000000116 00000 f +0000000117 00000 f +0000000118 00000 f +0000000119 00000 f +0000000120 00000 f +0000000121 00000 f +0000000122 00000 f +0000000123 00000 f +0000000124 00000 f +0000000125 00000 f +0000000126 00000 f +0000000127 00000 f +0000000128 00000 f +0000000129 00000 f +0000000130 00000 f +0000000131 00000 f +0000000132 00000 f +0000000133 00000 f +0000000134 00000 f +0000000135 00000 f +0000000136 00000 f +0000000137 00000 f +0000000138 00000 f +0000000139 00000 f +0000000140 00000 f +0000000141 00000 f +0000000142 00000 f +0000000144 00000 f +0000714031 00000 n +0000000145 00000 f +0000000146 00000 f +0000000147 00000 f +0000000148 00000 f +0000000149 00000 f +0000000150 00000 f +0000000151 00000 f +0000000154 00000 f +0000715641 00000 n +0000715673 00000 n +0000000155 00000 f +0000000156 00000 f +0000000157 00000 f +0000000158 00000 f +0000000159 00000 f +0000000160 00000 f +0000000161 00000 f +0000000162 00000 f +0000000163 00000 f +0000000164 00000 f +0000000165 00000 f +0000000166 00000 f +0000000167 00000 f +0000000168 00000 f +0000000169 00000 f +0000000170 00000 f +0000000171 00000 f +0000000172 00000 f +0000000173 00000 f +0000000174 00000 f +0000000175 00000 f +0000000176 00000 f +0000000177 00000 f +0000000178 00000 f +0000000179 00000 f +0000000180 00000 f +0000000181 00000 f +0000000182 00000 f +0000000183 00000 f +0000000184 00000 f +0000000185 00000 f +0000000186 00000 f +0000000187 00000 f +0000000189 00000 f +0000714105 00000 n +0000000190 00000 f +0000000191 00000 f +0000000192 00000 f +0000000193 00000 f +0000000194 00000 f +0000000195 00000 f +0000000196 00000 f +0000000199 00000 f +0000715523 00000 n +0000715555 00000 n +0000000200 00000 f +0000000201 00000 f +0000000202 00000 f +0000000203 00000 f +0000000204 00000 f +0000000205 00000 f +0000000206 00000 f +0000000207 00000 f +0000000208 00000 f +0000000209 00000 f +0000000210 00000 f +0000000211 00000 f +0000000212 00000 f +0000000213 00000 f +0000000214 00000 f +0000000215 00000 f +0000000216 00000 f +0000000217 00000 f +0000000218 00000 f +0000000219 00000 f +0000000220 00000 f +0000000221 00000 f +0000000222 00000 f +0000000223 00000 f +0000000225 00000 f +0000714179 00000 n +0000000226 00000 f +0000000227 00000 f +0000000228 00000 f +0000000229 00000 f +0000000230 00000 f +0000000231 00000 f +0000000232 00000 f +0000000235 00000 f +0000715405 00000 n +0000715437 00000 n +0000000236 00000 f +0000000237 00000 f +0000000238 00000 f +0000000239 00000 f +0000000240 00000 f +0000000241 00000 f +0000000242 00000 f +0000000243 00000 f +0000000244 00000 f +0000000245 00000 f +0000000246 00000 f +0000000247 00000 f +0000000248 00000 f +0000000249 00000 f +0000000250 00000 f +0000000251 00000 f +0000000252 00000 f +0000000253 00000 f +0000000254 00000 f +0000000255 00000 f +0000000256 00000 f +0000000258 00000 f +0000714253 00000 n +0000000259 00000 f +0000000260 00000 f +0000000261 00000 f +0000000262 00000 f +0000000263 00000 f +0000000264 00000 f +0000000265 00000 f +0000000268 00000 f +0000715287 00000 n +0000715319 00000 n +0000000269 00000 f +0000000270 00000 f +0000000271 00000 f +0000000272 00000 f +0000000273 00000 f +0000000274 00000 f +0000000275 00000 f +0000000276 00000 f +0000000277 00000 f +0000000278 00000 f +0000000279 00000 f +0000000280 00000 f +0000000281 00000 f +0000000282 00000 f +0000000283 00000 f +0000000285 00000 f +0000714327 00000 n +0000000286 00000 f +0000000287 00000 f +0000000288 00000 f +0000000289 00000 f +0000000290 00000 f +0000000291 00000 f +0000000292 00000 f +0000000295 00000 f +0000715169 00000 n +0000715201 00000 n +0000000296 00000 f +0000000297 00000 f +0000000298 00000 f +0000000299 00000 f +0000000300 00000 f +0000000301 00000 f +0000000302 00000 f +0000000303 00000 f +0000000304 00000 f +0000000305 00000 f +0000000306 00000 f +0000000307 00000 f +0000000308 00000 f +0000000309 00000 f +0000000310 00000 f +0000000311 00000 f +0000000313 00000 f +0000714401 00000 n +0000000314 00000 f +0000000315 00000 f +0000000316 00000 f +0000000317 00000 f +0000000318 00000 f +0000000319 00000 f +0000000320 00000 f +0000000323 00000 f +0000715051 00000 n +0000715083 00000 n +0000000324 00000 f +0000000325 00000 f +0000000326 00000 f +0000000327 00000 f +0000000328 00000 f +0000000329 00000 f +0000000330 00000 f +0000000331 00000 f +0000000332 00000 f +0000000333 00000 f +0000000334 00000 f +0000000335 00000 f +0000000336 00000 f +0000000337 00000 f +0000000338 00000 f +0000000339 00000 f +0000000340 00000 f +0000000342 00000 f +0000714475 00000 n +0000000343 00000 f +0000000344 00000 f +0000000345 00000 f +0000000346 00000 f +0000000347 00000 f +0000000348 00000 f +0000000349 00000 f +0000000352 00000 f +0000714933 00000 n +0000714965 00000 n +0000000353 00000 f +0000000354 00000 f +0000000355 00000 f +0000000356 00000 f +0000000357 00000 f +0000000358 00000 f +0000000359 00000 f +0000000360 00000 f +0000000361 00000 f +0000000362 00000 f +0000000363 00000 f +0000000364 00000 f +0000000365 00000 f +0000000366 00000 f +0000000367 00000 f +0000000368 00000 f +0000000369 00000 f +0000000371 00000 f +0000714549 00000 n +0000000372 00000 f +0000000373 00000 f +0000000374 00000 f +0000000375 00000 f +0000000376 00000 f +0000000377 00000 f +0000000378 00000 f +0000000381 00000 f +0000714815 00000 n +0000714847 00000 n +0000000382 00000 f +0000000383 00000 f +0000000384 00000 f +0000000385 00000 f +0000000386 00000 f +0000000387 00000 f +0000000388 00000 f +0000000389 00000 f +0000000390 00000 f +0000000391 00000 f +0000000392 00000 f +0000000393 00000 f +0000000394 00000 f +0000000395 00000 f +0000000396 00000 f +0000000397 00000 f +0000000000 00000 f +0000000000 00000 f +0000714623 00000 n +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000714697 00000 n +0000714729 00000 n +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000071177 00000 n +0000070985 00000 n +0000716109 00000 n +0000059616 00000 n +0000075341 00000 n +0000072654 00000 n +0000072540 00000 n +0000070098 00000 n +0000070420 00000 n +0000070470 00000 n +0000071059 00000 n +0000071091 00000 n +0000071382 00000 n +0000071664 00000 n +0000072691 00000 n +0000075417 00000 n +0000075805 00000 n +0000077050 00000 n +0000100839 00000 n +0000166429 00000 n +0000189097 00000 n +0000254687 00000 n +0000320277 00000 n +0000385867 00000 n +0000451457 00000 n +0000517047 00000 n +0000582637 00000 n +0000648227 00000 n +0000716136 00000 n +trailer +<<041BB050BBCE92438C991F8297570367>]>> +startxref +716335 +%%EOF diff --git a/report.Rcheck/00_pkg_src/report/man/figures/logo.png b/report.Rcheck/00_pkg_src/report/man/figures/logo.png new file mode 100644 index 0000000000000000000000000000000000000000..6763beae9a2bf50ad3a9dfcebb010a7b6a0edd8f GIT binary patch literal 140231 zcmd3PcRbbo`~RDkq9HRSQJ?G%Erm!T*&?erM^Z^e+56mzGE$Pg2@SGR*`rXTGO|}n zksTrPcfH={7cH=H1UiGnM(PD=)iP$i$fZeiT%tod<=J0A?n}2wY96fteo8{u_ z+GMFr2iAu3r2~14*`rUuy%_zKht#;yXt3LCvwbhZqR-a zR8K7D!my67{IEYvRo9R;ZCZaV_wj=_Aa2>7-inrJDtcY{h!2o&U7kN3W8OH3(_v?svJF5<7`t{%{lbe^y{daX&(q#=xP zA`L#~BlJIZ*oZWI-TxwaB)eKuzBp_Yd)wy@FPlDu|IGDx4l!-I{Fr1|tJaM}TmRvr zhYu*=JKteCZYF%g!u8#5Pe&uc=89gzv5qoY3=`Ri4!p2-s$!u2$E`@Iq+a_b`sPh{ zxOTzc_TV4Y6ef5(_Kbe+T3!BGWBPnL+Pm@|^o1e;Khs|ZmZyXx%vkK@WH8PY-5)sT_@mZKH+)Hh{R5X2>~QV`x(g=mewUJ;g5$Ae>0w@} zWyTZ65S|lU=q^Y}@vSMD8;YF?_B@@24dr7$Co5J@oQDr31fvDBE4en#=vz+?X-TR% z8c8rsd_Wtd!B=YorxT>gWjN-LIH2*a$q=2`6?{1jZz?+V1q!Y>WbVmC=N266dJewp z9f}&VAACmY`IPm*^Um4OJhX-_eE8o729<=irudEQ4KPAsOZJOLp(%fY5@a?7@^x1x z#XsO*a}WO-1=uxz0MVwP^c8+uP1oVDIy#Q; zy9nL^R{9?X>L(mS%SCuM(qLpu{JY+(G|hN*=?t*!RBWL?)of_!D%mds@BEHuW_Z@K zDHi&BIn_}Yt`aVpINHy2JzE9u3&*3=;#~DW{l&?Oo>x6-0p+O?rt2a64oILw?ofV! zAF_$3TJo`B`ooS!uogXhEr|jIZ!-u!mE-Z`xNFqNC>K`Uh`TqjcOH1M4oM{N#V=po-rQuqAex3cLze zSdL-&q3C!g1mJiBiCJF{EQ6!C3`dcc3NK8-S9cMm>8+Q7qVHwk6dU0b`JFH3ZO4ILFuTlI*@=my##r2%k&H1+=XRUVK}wur1*Tsa$?e zd0lv8tD#~0kOCZ`E1rkM2Q@d-rn3nwrEhEmUg3F2!~^P|T%o!?7twE#r6Un|Kt-do zLqVHAn?6;tqd`SFsvqE`@IHD^;r()mCj9VL|B`ZMIfoXIa3Ae9K^ej#aXpuvV?v>J z6TRb?G#ZSQjlP5A_0=RTbd5+3Q8_H}5d#j62{-W19EPy1Ry{G07jh=YRPa)z8XRk| z6WUKO2|qmBygg2gX` zU?xv^Q8E6ySh$gZv0K;7mv28WcG*4Io&#V<1sxQ-DD|M$`sBW3d!C+`J6o*@H+2C8 zOyMmB3Lcu%8lM*oFp`K|2g!dOouNFOy`brMZ~8bnZEVNv`9_2p;nL_3!{Z=_D^kMR zXm-lahtdN`HGF3l>!2_R6%15x?X07QQsF_AriGhe^}?53XOzZ7SRxa5zr$b1jla+j zFS%QrXWSnB;+vHy#DBCF|519b(9`&z6$5NTQjte8(RC%Np&LouLGX4>Y)x6Ud*y5e zpc9JOLVkQx{FG{IQ$RL~OvuBrspAH^k&fkXBY1ApPpm-!rE&q5eGQ$U1ue?$9HMR4 z>Mb=>qbD2o(9mLqFYsd*qaM;hTHYN4?#Y)3DT8#(80L$wqwIcAiQ?oWEKqiz%b-V6 z>*_rP*0L`$*?pf9nc1x+J)7N7-gMZZZy5@J!)Y1F;+OCc@4k7?k?<~ec4BTe(f8>) zkG6>4ABmv>TqkiZ15|9t8hu1v6TxY{bBM*oRUxQI%`AmhpFyy{@wxI9#`UqQCf*(LwB+?BG}~>CqQpJm|O% zuRtfv;1^Vq_iV~qPnCg5DWxxHz0tSU&uQ1Zh}VBXG5bV+Ey4HLaJve=i75OO%@LHK zlEFR@J@>um6_ZEbYby^2Drw z%)nBP42~6doaWJLP&5ff1#E&IJ-@?VFDZfc9USIbn}Vi@j}ys`*)k=0sj%7cSK+H- zd=pIx?>vtJoEYLU6+NBJa-<=3N-m&ip#I$Xp%o2!UXDhsQM=q{tCPfH%da%8Ipq(l zsZoWPDXc~4)bG;zD}x*(HRzJpBppz5)0)#DZ-YZ}i46Zr7Mx_QUW1WM5q6V)K*_P2 z9Ezz=EPvOm#%(sZHlKDg3sH4P6MdXM1(w_WSm5o5vJ`3|{(#cmJBFjcR<>^7Mu_dr zxJ|XEw_Ba^{@guT!Z=YRvNG~@r7Xe$WhS&=O~fj0hld%4$E=%-X>5}i0rDZ9y?e8R z?YDk+jj}5O#aor=VLb?TNwL5)pq7nSYrQq>i<$!ZQ$i^23_0p(RGSLuY`6xVJf47_ z{Yyw_%(?8x`^+cT%Eg)DD>%n>yw_+-y#AJcKP?$>WCIt`mwj`s$4)|2vHvf2D9)}5U=XnCizU=M&XDx}4 zl(}KDec!Q;W3O&Cs}O-5^8pyU1Duf4D1=3hb5Dx2$2muHA=?69!2x&cQ{JjOPLyf4 zXrMY#yIe@u(r;ORjB^FjQofFf+2i4T74I8)& zq0(#MS9KP@)Gk9$6akxT3k+TF*NAnywllQWx#fxcXi$-BFgAr#d5lipC;Zt|ChL)x zgVqo4wW6S;Vc%GuplV1*A64vOrC3Z405l=~!y#LbxBBdcpfx@6vvO;RYfv+kDH1a( z+6Q#(^-e2w)vFMS)K|^i&Fj9=_vxST_eE6!jUT-ojoSAm4n#$yJV(TJ11FF_Jkqih zfB-bl#QIX8;QYAR^4EE(SInwBkN#-zn({>$bAW*E=sl3Lt0QKW18gT(<`DZ;FHF}3 zeBuLHV#_)U!s=6G0;PVOS40sU0uiiDXY`8tbe_n_n12$YIlZ%1{G&nV5)Z9;+z&!w zpB@cnp^eTlJUdq?@WgM()z6&+^(m{k9Ww_=`CKvP9YXLzx|?e-jQGuz^K zIkI{xZdvl(&skqp{qnAfT>eY)xTBHl8%S1v6agJaDG_kb???V)4@yTm1%lYc>< zOR~7LLO{ris3Uc48B_Z%f8&U;HEuIxx4s;|`_i#9Ae(UDEeo_Ms5?Rz6#qsfZM59w zH)-6gydF!p;R5p1|{Mv=#X*>eipl&^2(u9&IFyLYmHU%{_Ci=i3K-|m1 z9&x>F?#i5Mnw!2I<-xFJXdzI2KuiX$lm-0UGvJap%g6g(d2Z?)1WBK}#xbZZNH__> z`%$!N3ZXma%kBM6b26Q63W8Odued{U3tqV70R87Fup&K1azHgY0T?hvBB<{%mv&Fe zJ3sDSB~nk9w|N8=QiLl=IXr_W@4#+J^(_?0e3NDiZT8GTMg!AyuAx5cj z72n`k%=w<9oqJ?xFlD5&3YSw@-?G8uivf@z^RECP4a$Bi%D1 z=K)ckpV;(#J9-#ZE%s$7c3V>_+PsY@yahx_%7%iK-l)u8bl5m2fw(_Kg7~CTsXwY# z+>TYN8=ovYSR~465VAH;Vg#T9jz0McA;nw)BGC$MR9;=&nccQvz>(|m*@CS%E@c>l z98#F(Nov-&;_(xIuDJ<`MACBnS!Iyqrc=GdHV>nPnq|R(LzdL&l@H!Q;#BHVNQWw% z&n?gm@hJduqFO?E>0^e$_EX2zEy`Cq8ligo%kAN#^srgS=`<8DRcNyZ&fDt=xo_Ct z=c2(s;NmRhOc(yB$gtr~(8_prEjzApNknpRl~Z_-VihejKTKt==f~;a>n*u|h?dPz zn8VkjXgN5qIhFzdNejvwg}U+rb){(A4*dS#t0QS^sIbe{V^g2YWt){mGELm0Ip;lA zr|4q}_V&61ay>7u+pz+(ut7<2ej7l*&)%oGkD%_aZ+zmMxZX(lKLMa)6dk3i2Bl(^ zhX_yrKx|?S1H1GhZLv8EuXaGMMoKCG34l_Dnu)y4={A7P%H)ZCx0Ix_a-u&Rg=MZ(xq!3e462k-^y=nHsvP{gx|Vn83zt;;rj zE=4!Ii8rX^kE#;GH=uJ|4d;l9#7Kr3l>brE5RIn0Dad8(*p{JLHbT+g6Y>D0WOGDZ zMt^}P8q$$$X$YR_Lj-mxcIW+t5`H*}0F zMu4q6{vZOy4nYe2|EC4AXwvw?^YK0x8rLVb#=AzZ5KxjPg9mgQAQU%iYk`Me6exsH ztOX>(%a$9h2b3aP)+2*A56Wnifs1+2j}B8u@;Vy1zSTXlIYfqi4KqzZD6nM{95aJq zG0pmPGx2&^8YW1_A76u!4xnR^1~9sMfA*;l`;U=;r9u=8v!hYsR|ZYYsVatw@9K1_Vf~9DWCA`=f$zhLLAbr zS)bupJz-6-c;xH;69`0Ikrz6hHO2B`-<9&~6wQ(`wIVzuPB0_J_B`SheF;2$X>clV z^M&`7klCCq-LI#9Idv+tF%2H|Uf?UwYYZC@S*cM5WL8cFr>S}@sOBcar}>Mgecyh1 z`{(g$iw_6!OtDX1B!UzVb> znEC92d7CX`Y#og(b}yTlMJjxV}kl zvzAnGG*aC`i!mvoeLlz)xR9_-b zNY=S+#sO$5w}>AEHeFs_XEgKmHG?%eMjw{1z?3(lrx__-fsfuNmR!AZ_P?$^csV-5 zKF}-oa34>7k*vzl)PPE$2$tBJiN3s7H9tY}iwvO6Hh@KP^;Ktr&RN7&@r=;K3x8|K z3m`=~kLVnMw2)2%1d-GHZ3@o(wr=m$z&8qaKg2fdooctU%8-5ErNq3{pki9A^fqJz zyC9UH_&HIMru`_U?N!5YUEYY96=u|i_jBD#X#{ZV<& zJDn+b)8orwIB}n6OVsL|q%&Qi&cfXfJ^YEfI0|bpb`x|WJGxAU2en*4!BxNOy#sZe~?_uw0;I|Kj`EzaTHjatgyHTpG0U50{Kh!0b*zC#GDWRD-LM19iPQ}ch0Y3AefB<0uhM#ToITMJ&r z0eU#{4z0he3Y!9~v=UGIX8O3N-%SZfr4*VX;7Qy`=`xw{?@@+&Pn2qyp=GxmHcK^Z zq0ezB(mYWXH(>^R7#>ITfERicW{;+``3;unl;t8as8qoxrk?ibL9&5D1;5Io8U>c; z@xKHrJ;@DXYC)l<0ShMkBTlAz^xp!NrEo8Z@IMvmP$hb=*nbIBAn6MV^^o*Qn;Pwg z&<9Y_kpJ%sU4wWOhi6{Coch%(^Tx1W0s`0dZ;PVvD!R^;dz6d67pK@VQ@&r~dP*VI zk&+*-@Qh79Gg-?c4@|0|eXx+jmm$$!*X#vrrFsGD@3UZYmliVq?!zy~o9L%x^|8a8 za6Qo{ko~B$OBgpSTV@<)G*q$Ly1D#K*~u%Q*r%apST!y77_GzgKCENgZ)biD%C(ct zHx|%&pGRd!cAldOVI5KE*}37M)|8Wp>mOAwpnb>Lcl(YEmga&waflo%w%M@~n-+uE z8=6B{4}w!@lZR)#&R7LF8CbX%FcgrR26@{^KkS%Y*O~#1oDf7H2$UdG%cb=`9a2{m zcj_8#M=efLU$TuEXf|jyB6kY1o({IS4O)Y)bGj!c@ zpExWig0Zin)F$9))=--IfRm7ZLK>2a5x%PyHq4xP_;M=X^1w|nB;9C9({RibgL>2s zM<^&xh0B2p6y5-Mhvsme=n`Ful^Xt+Fb!5#>|C{f!~84&oR0{Ij#>HHr!V3a$IeKf zO&MDy$BrrAi+jR$BqbC43GsPbnGIP*ira zA1kK367E%*O!2<@4pDtd^!Q0+Qc2K*^61sbO(H=Ilp>N>3LXA>kep#{eoKT3jY#HV z?(@@h;fl%)@ja-deOn2b0vK%6ScoVW0c;WRfJ72G2W1&>pYwLa ztB;qEMfo%r>nLz;qt7`+;P_$3@!<}5Ww;t6ivrmG%b}z>?EaFiZl>o%H=)wY3n(hb zbr31+Ob}@7S3#rTEss~AB|jvtry-~8ZlIqUuBOy`&)4VOXvtMz9g!IW@Wfx$c1r+! z)pg}56D$DLPX7*vy=Z&T{eW;t{wo~F{=lwV>&_g=cF}mS5DvG{1xM@5V>e7IKFVY_@{|+Lq@4Hx`sCCZZ}e=-wJReyMht z(h2Oi59i*&Jl_ZOjzMN7Zcj#IBxR`N`p_8ou|iEDpmlU=IRux57X%kRy@EFf=M@ST zOt-|R8d!m1s|M->nF%2-Gz+iAmoM-YjOp>eG)l);wBj4{jaCL0+k*7U8DvkZVGmB_E(l+6MYq)(9+Ptd)rA^M=x5sAS@lK+^&k- z3nm3EHmfnsArxqYB#I|Uly+}~sFQGl>avupw-;S{_0fTgDg}i3Cm1MNYf5t%(HjOo z%DrEUUA%X)vFBeJwQvKZ=fo_*$|-yb3Wm4Dbp;!rUp25T82 zE_BP)!CIwsD8Oany_m{Y2l`5fKos~+ z8q%Q#Ye@hWjC^TjM^>#c`x()_&EWI^{rZ$6%I5Hb4bL8EA z;cGBVL>S@z*^bx&#Soxc>-1PKzEl1^2sf*MPdDrO=1 zukLCb80>`#(7F9rZ`F+!JFt4eVlO$)sn&Te1FERJAB2`4;>5RqhZ%Y-xD=R$;-X7M zC9b6VaHZ^M&?yk6JLpiiDU1`H;`wbZjI19}r`Mw&+JPr@F&}h2XznTV*-Y0cx9mPj zYZVd>d*8I+Q&i0xR2@hJ9}okB8cdL&Jla>Us|BaJt^=hYTe8k;Rml~|r}z#ntwMXK zxEA03vMDfZyD@?Zx*4$5-3120F@c`S0W(O>_h6Rdt@Q`0i#7#Dy7BAEJNLGJ_oA$$ z4^snh7z*D63qQ}Zko)rlcEt)zWZeSxTY^LNj19FY5}{dM_^5noPc1B>hz*=PpQr`W z;&5pG_ANr;_QSoXx4(K%?f2Fcohelmxnv6YJAgM;(NKj9jRgmK`XSiJYFtwHg-%k+ zzWERk7tFtlg8V?g(fFZ6I&BBi*#|@+;~r3K-o?JEIy}E9Th1qdQK5w9=Xhb7r%((x zp339jLUZ!trNPD-S}b@sD*S`*k-VTbRfm#cEn7|jhRT+X$14Q%mE@!A;b)syEw9j+ zS9~gVU>BSqu^;TCC#qa0;uky$7@t~{EL&X%VUCRa1#*7qB*J_c>kHhncg`19|1(DqjQihui&}jk_@s1^+#}5GMyIdn80s+ zuFqX26I^K&eeIyHhooWE3*!_zXgXzP2kLApFX&Wv#Q@Yy-^q{7hCz}MmUdIX-KUg% zEIf44Q;!-ej$FNl`~gndsg2S^y}oEqVC0OUuA{&W9z#2_?{*Rfr=gq$Gg_TJbbvdi z(`{?@a+uDwah5}qJwt4Ps7`<>-S0lbEllnK+7^5Q&)=-5W$64WK`~Fpg+uSwc9E%4 z>czWH+_VF=9Q<@<(NIMqhC>HGrd^j!PHH^7vM@T(Tqzu!L#-VFlwI8>m zk>)^yuzu`?R%qEUDmMTZ6O<>mD;r{Pi-w758wSRtS|GYb~6U=MU zJJ1pL%aNDLW?O)|xyX;E!Ggt?aMXVHLrlztcCb;ON094t1vOjkWFNnV-dM&S=tMv- zu`!6r6OQmX%z28X)3O7dA&a6}D#%Csstv=mdcWrGjKOZg~`L+P?RYu zO!F-?SoCTMH1>0q(3g{N;n7Cw1R`9$KKcS4=%Bz5nE8=~4hnpN|L-1(4;}214mv1* zwa;lGcYfjx)Hjd5n1+j`vaPh3h1Y&Z{C=UrXO0)cloP-M*%H1!TiRd^G$Pav2eexC zmq5@S1cV5`zFI zj2Dc33pe0C`gEVuPcOO?&_wozF}eXE=oURaHXQ4dCqni|+oeInGl}cX%l-e1f%^v* zVt_XhjZdR7-Mh^A9HP^8t4R?cDP2&fs9iLOf%{&6X%weruy#?%(0OUvh_@u{;n`v(CNV;k1tAwPfns^vWWMP2(XW;f?S3kSK$T- z0m|s#k`6iyW=bwFycG)6A&Nq2z}xBDfGdNSzyCB^=%7P19$%XJr;N<1X(xz)ECrDI z(1;RbLqjvNV;5ahY2fxPs{c!y4)MZjq9`pi`}r0cqWIYPSljd5qf4DB@5sEtAyT`j2=G{eVdz-YvL+>ziA1!(Lj0;6)) z=_@qQNgRAdWKS4&K7kKf1f~;fAS8OwX7AX zF!>_~qN+2h2%L#hkR|L8DxfsP^0qAXreR2G^CCF~mjw5us%c9>BeT=@j2gAfWDk}s zF(qNl_b*$rP#02SI{_CbzX&NMBFLDW{*B}Y^au9M_s63Ku1Ax+ z0)d8l6v77+P-Js_qSphk@inrhzVAog1QKFC;fS>mk5U^Gzel+-=PA6y603KJ<` z=%737{9(6I>@ytVd0^$?*??T;huiP(M?sJQvsu6_Nbj~R4AB^iu^8QnUlG3lf9w_) zamW}@3K6*8nu0sh@H+>r3j)OkewBh>sN)#~IT}5L-$X!O>Y^nHtnbW%F~J*8H73FV za4pd93_xD&QVKLW(-ScBvk0tLtnkLd;CE!O_|_6>P550dGcmjfUi8H}8uT6nv)PI>i>r@#hmgM20n}9K$$*)$p{gj zjSLf~AphI+^ZB_czW{*jZb+a`G&{Gnh2AkZ&E;szeoDvr`|3G!BJU2H$xFnK)kCzj zC;9DV3~p_GPvd=-6$2>ShY)U^1?BF(y=ww zN4~FRQ1**AeRAXB$!a#o7=A)^jKGfEZI=_PRXrN6-r|&=j0oR+M8PSg-)t&;?zhtp z?^`Ec&PMfqv79TI8yr8me3?|jyBV*}`s>;rSG-zMW@@ehcgDJNy6L<{J%1K=7y0cb z^jUkaIIYac@RIcGkd($b*Gnr6r%#BYJpS10N@~^{`sVDm;u>#W;}j)B_Gr45Yxg&8 zox7$teQ&Cy_}n+m-a@O3oS|u81z<@bJcLV^4ph2cc_SAc_Qk}oK}v8%WjuUjFMPxb zeMC;@x_RVrS$|D@`44^G(1&qu<}dx<5w=woXM%G@E^Lz%xe#16W_Q*_<;_fN7|*!b zHSx9K!I|3del4}H?yU#Izdbj%xY}JZVj`++$iDX$5BuKN7aXU@?pI4?5v?@8x~Qne z7sYYugKEYE2tSL@4YuF^_9DqLt^3>A5SIN$@zI-@i?&(D^$!c13@Z(=(R;U~yxQ}~ zy8BrbaA~Yo)sM}lJt3BFrNL3d2IFJT`<+XU$h5&nG))F{e59O;_a%hAnYq{>wJW<2 zo{xUN%SYipo4hS-py5Lj%h%(K47*{!?M%t7*9yANb<}4(+IKKwW&0tsWO)2dna4kS zCHCKY-|7(Htw_i}_04@I?vqDKUEk%zo;A`e5V z#wLO)I_p*IeOFYzORW2+r&fHgG5RIij*Z{1=mve`A@o_w26|jk4Ky&CN@A|{h9w<6 zI5}jRMI1ddRJq6W!Zk%a4XqgMjWUe4%kQZ6zV25+ATa!pg#|%8Zw(t=qN-X}jaIX+|Yq(HG@y;Y>tsowDt&bNRos=js%`@IRqOb7rwQd7K0%^fvsJ5q4J}M=CMbUFO;1aunrNsVn`Z%4G zKzpOIB=)3Taw58NuvaTr1M^nBCE$Ruu(pyYu~2c85b2}KY;Tn6z+6OP@p)cWaQd4| z|Fbp}$C>Mt6YF9&^+K)3_FWzDur}TGvsg;(>%FSVx9NhHq5|9k66sb7KHTCw@vMd5 zP$e$uuRleJ=EEv-h7ElU5O$-T3VICwY%2v77#XzRz*QX?V9SFu*_l{V=&9EW(1uyp zzopMHj#D~Lh`cj_*0P(qDEfnZ^OqNi_s8B+kwjqa)|rp`XshP{sm5kiOkFC(g90He zYaT%GL_zRG!SY|+FCkGOa&jM)Ev#K#Nu*Sd&i3i5@#ZXX0=-*Ujb4N=gD@8PCOI6;!{RWl@ z`TYIO^SqQ(!rc)(?4!}|W*m~HcTe730f!}$xswtbSnFjxHWIS>H-7~jx^5!c7yQX> z01nxE_qZ8Pyj5Q28E%cyi+N6zL{7a>wRXSl_f!bJUuTt*?y;?;ho}~0zkJ6vYm4*C z8jiH+kl(f9BCx1)ILf68Eg}W$y(@qiY1^B}1~N`q*n5#IJgv3#J6<7=rdQ~yr3VxlR#TRlP(8<>TzWf~`Sl!_zIB{%8 z{+XByyX8bUs3GF8>SJX`*mj3SoE&lV8pt6sJF2;G&~Sd5bW&s?4oZ2 zTLRhSQzCti>;Ei%JCRuvU;<$G$eJXcxvo-|7oOgxga^ey3m?J9kXnvg z&u6~zgwOCDBCw-z5%* z9!fonwimZIvb|(A+*9%d51z~fI{C|RxwZkV#A^k*>Oh73HBDi^tO%?xJVWee2V_ou zkCKcnZ^ev`y-{r-4}0bwsP^|xH1UpmKjj&JvS)GwJWZyDS~InuMNYK4(@xR!2ogy|!g2U9P5X@tc5nFyM33poe%UE2j zK!&{kj1ImlmhD4OiOBYik0j+p1TH^2M}ybLi&Her)paWtTqqU3MhC z(AR?d3OE4))cuP0^rq}hl9NUkRa99FNbnJCwBDT&vC#pN9)rZW006eZIjLMcl}89df%G5 ztFko;}w z^OpCexPDucdUt6F#I#DFBEK*;4n?)(2*FU;+vsPpuC*5_=`n=R)AT7s7`pIDLTW7uI?1alnxyGjm0<&AKq;obBx zoL68ZPXLLu&wJ;xxRn&d%7B79YkLX8(@gMm)Go_{t(oFhdnUex?A=QRTylO0B_2-u zDBak#F0e$z-pI*~hn)*B$TdlbjLs5qUMr3RqGmDZcDoB8+$;}NUT!B{?E%qb7|iH- zI+{-22;sy+;Tuz9<0PTSQ>z!to|y`iy`e#{zVZC2txQjee_GHkf{>aQDP$8OLqaZaXGVKQ zxNajq3?sh-@@o9bbkFXZLt-73{TjZNB}^wJH=9hi!8N z(*7Vz!o&Nj=f@IY6FUh)OkSi-z_p~cSqs0qq(v{tXmxa)dyg&X=&JdU*q2DBZHxdy zQ*r96OO=Y>RHkcoHwOJ8jGVA2n{rppt7uS)NgfcUr^-8npgh&RotZBj7$22gGULUs zk!8%w{V|tZDhIl((a%ii^u3>^bk9Ea{{(pW7!8^-gNf49kJL|3mzc zPzN#XG@gWX97etZSJ0T|XN7793)Bu&V091ixt%;6GR0Dog3joVct~A75_S{l6JB4_ zg>D?WocUOVF)0=*A6<)MYLA(W?YxG@4s#tnrt5PYB>j5dpzRxpFLXaWpwkv*>vB1C zZj`%~VT(kVhoLxy|6r4*5Sh(ss31A)8yoF%KY52o*B#1>Z9v@m6!S^_)Kor)OhYN^ zV5@=7)ow(oc>w-Se7w~mI@9MVUR7Nd!qDLC2013^a;TCdh*(WYC8M2 z=iAvvmggT7lMl(I?$h#>asp7xV+ZxY5gLx0HW+5M13Zs1c^`!bY^yXCnSK`61@bg- zK&&16Ru3GALUWOBGDCa}GZX$xLnqV7rJe+jr{GZhGqnM>Rwxw|7KBSyOkn4trD8fC z4BA0F4Fd2L=FkrXgwy@%!WnrySvHXx(_Vt`9nD(ICDGnrObifwaBgQp0T+jJ$HeXzNO3QLtB=O$bQwpNA7 zu-SRx0vhcP@0>1j2CF8^?qP*r=EpFOftIzs)u+F@J70N7;iFGeo$D@|G8eHvqKawJ zrIiDl2*%AeQ64|TEy@T$Pf5z9$^l6HcU+t{L?GcLMPSHw1hMg!zSoaOcRd8^e+p_0 zJLI|Ot*}$Q6)jsY53gyrwMH}oSmTI~H^N>l>EVA#ruSw}j7d;9#9rsI*d5e5-CIZ{unVOd&eahWCZSaV&u#WQ2PB1NX{USs4O)5%xxhzs#X#ly7ur7xOnK( zy)rDv5-B)`-8(z?i4u}DA0*^7XlTBXbcXCA;&)g%yVDSi~TvV<)I`1Izk@9fRjqVUn57 zhh9B?U)T|8xUVjmV^ONt2O~4_(sy_dcwF;X(J|WjJDpv7iqSK37rFy5T9OMZV#?2b ztAWqu*_WCi0LC~>T}IS_et>30I;a!O6195!%!_)<1)-pQ9z>t%{6k1%(LMj6qnr60+=vq5;DGi= zQ4~9t%J4^Y2!yd|zvXG5x^V0VZ1w{aN&JT?qYinFSTq-|s-K0!;oi!4e8x~W-irjp z!oXx4@dT{}e;#LcWEQX{GsevoM^4r08G`nxvlR$n)Aq#Q|1ar;X`f!=vg8yC0Aol% z2ZZWK_Bn!E)1Rd$ycTyAPqa@WOVJrvrrx_X%ZREZl1_RKk)S-9hut*Zpz@ZBP` zIlssx8tLlPeVhDV{=l=Yzw7jys*^M8H6@k^YmEG3i5KT@qTTTNVoKd(78JC6F0DBN zb21l`tvjGeLUoj}!|wm#zNOS%Ot!;ers}3zQn%|Zp+EH#_G77lI@Ob@UxlBMTF8|3 zjMvPuH^r2)NUd1lor>u)zd~IGB?UtM=6w$W-qD`|1jqSNg!5dGf6yXy=%R}wGlb_D z8HDCo#(@a|HvApV#^<)}ib>i;ZxTgZr<%{5NdL6df5Xo5iO-XbW94Ubi6h06+RLe8 zYA%T|cO-q^Qp*J+x6FsR#QyAByaiPkl$&b8Rs@wLr+fhUu6$4$-#*%FH!6#pqu9r7 z0B00QRe_AS?3$X2O8QgR&^6}&4<{)GV5pwQ{dx?$eR2^(fd5pyr9WjwJ=iX^H;%oy~``8fb2v8!V^P~6oiZi+&wr_M4K%iqz_)hT6 zW)OPtW(JilG9nt-VKEBRus{f?54QJi!Ar400s5(^NPs{!giQhY1j1)ZQH7Z9Gs{!; ziCJlI38Oqei^sM!J|F+(KHFHqN=3pO@d;rR^w6SGrn_OyFU*xvxUS?pee!jQ(#~m- z{!K|H6exKmCVyHmhqbR{4`;^?W%etHB{pBl%9^N~9ZXwg@bx6~yad1fJ5n!jQ2ugn zb#5v>o@-u2iR3->p&@F?%fJ)3P%4gZGxNpo&?hy|371t~m=_3N&M`4-+M7Pi)P9er zq3M9_tL(kD-{mR$*(w2Ub^d#4iJ|zpnPW)iPA{)HiJC48kW*WiDDUANTmPQV!MW$# zv)>sywlmtyMRnR%H^3)n_fsJF-Y-e5kE3HvHkx~vp7y7SgJm+8JU#RJv#?kqp~bE> zwqS)^>Y9f6)~8dt=K5Vs0*eAol{SR2!GB{cMC)jGr>lwTt?LAzGc4 z+#8n9Bh*(T%X+KAE9^Km*bbLiU(1WF5fsng71S%YHP+s^yJY?Q?@+?{D_tEv26Uw} z7fswK68rFA!L2xK0w3{GP3eE}>wd4C;TgBa4$V1U-~@NS4X_8YmGbhrU6t{hLM=np zclyZs#iFmpc4YPkCijf>zYylH_m%{E^g-R`^VKaBn@1;vp1J5i)D(-QR=cDz{DV@E z%;hf+)C+nM<+oguV;tUdFkt2S2-SI<6$B-m>_0W%@x%&4bKv1M@Nl|r)o9v4$}Il^ zLYWi7T~AoUvO6jC+o9#S?;eltD~4%@{m?S- zEQT_!45MZ4Q&P&GL*%{HW5tlMTR~VJyk-rmgFqL(d$8 zy3Sjd%uZA!R%gM<;VRy21BiX-_{>XoEIRGXk){q}gfNAfr%v;`nOypVg=6Yoo~D2t zzPC*Wd~XN-&ln^zICs5WR4#^fTs!y8d-cWZ=I6c~kghh>{L;noI*3Gsz0 zdKgY`i$K7*d9&(Bl;-}oo=-wNFSKu2&|8?d)>rqLuD4(t%7SfpAb#z#K#^r$qhb@~} z(>D`V4Sp@_iv;GP9|=pY3`;!{yUC=LIHL(p6EbO!k3?;KR=Y2bPJ8?HW70y8KMY@o ze>oHWB;_`QQLpHe2aoRB`70v9zpD#>NWbKcYABmR7an(4SRR7<69@}YlNGhqqWEQ4 z68tM?uD`X!$H9lflb8j(0u59GsXQ1{7ZuIAJe2aDmD5Ocr-q^KK7O~8?+Vj0OuOUf z4?DW^%)L`kt|``P#Ys^w5)0!}Hgh=Q-8(k_)|KtS$Ej^a9Y!ybnXt=&bw`8Slr!pa zl))|vg&O>IC2o3VPYXG`_P<@oG3>4hmyD+B4l-e%Tabn?jOZKqy=USq0 zF|vo}&Jb(YUuxe+KX-R*4 zE+82LEqZaj?F*h?W1(l`h`rGZ!;{F!sFU_0Ig9*JhcVLeGsP{?>#D(Z>f}+zOPiLo z`XMfULvrM%7Kxoh8uPM&xkiu-<0bx16}xRmde8kBZ^EyGtmwTnJcdnLVS!hcA5=2> z#LC~qcyqqDfnkCIJFC{tcD)7iY;)=Lt=C{D_G%!AGgw|rxz(h=3m^5kpc}I;>H~co zuNTPxcOB%|aj6Rcb?afmL!B++5%a?woZ0HjbMD#gS!y#t!<#$Qwr=K=bi@bbu!qi# zM$=oa@FE3ifV1ACH7t+g7xpj|g5%K~!gU{oT-vUp3U()3Z5q@ifv#CD%~e&M2l&6f z4z=5cxd{Jj?2RuE{B{ib)2IReH~{*yO~Q+W{|9#V7$fD=)CJBS$zG;a>NGW)vVOFuC$NGdq=c{W;Y>PqG!vi>dFSKrK}{GZPBedk&Honi$_<^>~$4h0jv!?m-&3Ar>cx3y^w&#q~{(x^XeJ+eqrT_3M@nL|~q)o$i@yMIZP zboTj@_V&H$SKs#juCSF7=wlmyqFM8O&}eWAVRnn_`Zqe?L%KD$Z)Y12W|QXq^+n3E zC+}P5_Xp$N-xFQ=X8Sg6)!pUDfK|ePgO;k(!?v;bC7Gt0I-!*#sYr81^;%4rtyrMeMyqTe9j= z!-V~mPTA$%vahW7hsUY6|F)FgAK`d)IN@W!KnPp=i%yqc2ScT&3SO%7^={djPP6uO`POBJGx*(T%yvoXmM!b)Z#EZ{vPdbFZ!77% zZtZkvyzxm*24VWP*wJ(E*|MLi5q%2U>{=hQ<^(>;SZ&o~HfxfWHf?yZ;1|8S=o?+; z?l0qCe%}rY(@Ac~+!B;y9uX?;{Q0caRC1hr$&rYS8m}Ni@&AtiIjaG|@9S4NUt@Z) zPCVsz^$|Tu!3gQYqmfhV_TD|T65EwPw=&7ojxP_&y442*Vt<9*!S0t6_uKWII`q~K z?_na^w*UInS-`saU0RXmC6T%5hq3InT8Z7(v$NKg`wO_fNNw5tY513V)5+<)hG<`= z>Ig@+)bw5X1-1R^A5U0C2ApA7+gJ(b$s*w zh_yc&!hMgpv^+Uu+|;nG`_5_a9~D=7xMSas+;d!C8wNXr#>+D8)8TI%NcDs9IfIk> z+v%A{qcmOUy|YHsikOHIyVAN}+V$U*e)_Y*qx6peRr&qkob>+xmR3*x6=5=*tG)>d9=O$=gHh~ z)ST6)xtzT<1+%uU1A2KpxcxI*G54gW!s4LXkLAlIcWqVXE#8%0@+X&l z(a+*>WSB9zLqm2^U%o6*Sn7V+Iif-7WetNgqv>RWc8g;30BdpKHai&XPL#VO;=kTF zTwBd2((^XQcxr&e06B8rZEZ)7v%FZI=M z03fn*hVLcvzg|zs?k*5`x+k_Ti_I`?wMsm{OBa8n<@PeZ zb@+?S@(zr#W4dd-NQc#sc0BXt!z0_k;?v`juW#184Ah|WUdwsGt0CHcBFc5oOi^CD zMWxw;jMbdR21MzWE0fpMxxI*$7FR{zWiUD2gLBe`rZM0sXP|&ogXHX+D+WxPJf{jL zUaf!NI52rJv|;MB!xZOs;^X)16>(K?%>SrU8NT)x}Y z1a+jx-Wn#(eTmzus`sor)b2B(;7eZ3hO417@Scd+-u06)YX;*FL~L2Xv?4XvDqA%2 zx3{#gS9mJNb5OIRFQy^|T!>A~ya95*4=6CZlPBKEx%7#ij)bqN^HLRg_|K=d8{Ri- z8n*2Y3oE%bUdePv`aTk+y>%j2Q|!JGX7kq3Pj+gC)m@SO=$y34$~}!E_9KVfx^bqb zJJ!$uSZ9vbW)Rr@-aO7I!w&m*!|?F8gfn}ZU-5f0wGv%(%u{YhuI#naechv)82Tt~ zq?Kd9SmkqMiK189O^plI(lKE#*-CC5<$V10-PUE8nF>r4cO;~Ty?Vu;Cy>3fluL20 zt9h>O7T21z&um=RZXbJ~%JbyA>-2YNYc8|sm*@W-RTu4n4k-c(NGgpe-2&1f zB^^Ubqk?pIDIi@^BHb`_cbC#gw{(L;H*b&Mz4yKMC&M{suf5{8^6b-%VQ|iTMZGA^ zLGv23=zxw{D(?+9W_}btFgWOE02b%%4dgA)}!{|z^x#dY$54Eo1yi(?yk>HO+7RTIa+Hu^w1V@?z_2#ibI+l0fF~>A!l25?NPrkyrU$#!^!8om5`SPYh0pui>Ktcay2{)kh9idM?OYsp zQGsgizaPFLIvO(W&b22{vSL(2EC0mO8x`Q0vG*hvzbDS|F`DFgy2nGNZJdK!DV6V$ z5pVKQ5IY0YHscblypaNY^ok|FLlvj|&#~kPyVaf&7gcY`hACKVy=*{TJx>)UN!STf zb)pZNcrv^+YG)=$bNdnOBo_<{|ESwOzV(XoT!9A)CjXB4>G+#lOav_a5{hBMB7wx* z@FYVM?!k7%mgRw~I`h^%meC@Eivqs9uv7&iB?Oj<_8_la!W9$7m!lN@?~?%qq}=~frYj0&10*2OGLqas4Y)j)|}N%)Ur z!aq{;gll8Ly+g0@Phvctf@PR}?7Xt-sP02yq332znl?)6#5(H7JA84@sqsTxt7WC3=Tse%#k$gbWzceKvk;@D z4xlt29}G|jD}{$KZwFYnZ0wx;J+NsQ&{Z*=j~t|!RQ3PV8~8~}5s3-Y@XL%g3#QTK zHbGl@#C(hvGoblZcNCMtShdexs7{e60i(Xiy#C3(jqwe2_oEVee%2=GlD#e)p9IC5 z4VP`dg6$JvB8`8CtC#p2{@mNlvAkou;S;9S_ZXb$*4b6mo(8Z>u-hE#L5}5dU)$R6 z9bn8Qg%mbHlr&^>zvJqDopN5}H7IoV^Wfycxp&rfzv!S-NL}ge-(J@BXBGb=p{JoG zA&7#{i;ar+zFuqN<6u>R-cX#P^61Mun>! zVttY#czFNoXfjQSAD-m%(_MXK?fOlli~66q5s6WS+n;GSiPsw8+cbJ^Hch9amC?g= zOmaX0-UBt~S4H)cf2z_Z{zD%UnyH!WZrOSo3KEmi%xkl12~BN+U#u*#R@c7=B_C+t zRR5x6UWIP^+(t&`F5GX-b?b=ns>t)SgjKJ#sM}x~%8hNuN3I+`$jcqRcQW7UNF!!S z^-+aC-Qe1u9oF~Ch*|u2{hQvu{0YLyHA4)e7@lKl$>3udmTNow{Y$zTYCuS)VxPf& z)^SO*K14qEyXKv>Vy(^6WL?_&U|KW35d7lJcI5q-3)5fo{EF$YU{*3M3%jL|rQ*n& zUujJK6G0rX=3vu&#ahoihn6MbD;MvhCGzttws`Ur1rg>d65wPN|2BkeWL^C)1sT(? z&X=Q@g7JqH7<`@hTlB9-BQ2_ta7pv+?0H*K<%bEg7Oj`O-_3%&hVk!?hO}oXhxNKg z>5U$KiykXpQu2cL$1JUz@mfl&fsgX0mb=%jd`n(%@6iDG==Xl6Vog(23+XW9@YeGJ zh0gA;_Li*DNP+92OU0{^dx}a2UPI=Sz8o;kNe1`s<&3TG2D=>x!AC8c?}?jj?+%^# zw^lEIYHc%Jmo9k^)M;FG0I%W%l8(gS@M5?$g{^jd5r&sdNATu!)8!(Q2z`hQU-HjG zf-d9AtIv9^2?s5^7U9zulpty}J|66Olz`v;RhL(Im4fK-`Z$HScWkcJ-R9SM#Sq41 z1QTI@CYAHpW+|IJ=ISs{L;Oqc-kxf;w$d7U-=|qub}12;hxdPbt1p`8w$pvi0$LeT zBaQv;QX5-fRL;S!`myhR+9S*w3^r47jq)u^@Fw7s3M0ba3jHJuz5BaJ?{8LjV#!~; zcM^$zSKja1gruD|w%$$b`7EyQ+49+m^cSR4>gn&-M&wTQmxN9XFzme++1P77nU(ZW z%Ip3uf#j1T)l=@N!mI)jU^@^RWid$Tn2PHX;=&w;6QY%as7L2{YP36HKpBaNsVqticv$|V=N9u~Wb2FP_6+$HmRdS4ECY!{dsm<@b2u{7-ZwRsUD7;{lST+PKS zY%6jz+^S7*PxZl3WH-!W|2?6`Xm<)xN>N8{_(we$iP+h-M~~HOO?kU}5}*9-{;1Q8 z4Ei9a)acAVmmtO-nbC=`2%qnGaQAnP(3Kk+@ShjJ?!)<_esAljhC^3o@+vl6hn0}d z*aTZP!q{=RlC9~R)utw!aSWZJaBtw4Zlyw|9|zA$p$>h%pDt!sIUbkF@uNME^2Epz zx0I}{6m@_+;lc?8+9DK6nEn0#fds8-gr4R z7#Hp>pA60}MheY|-C{R2ChvxA#{|w{CF38EEu75^|CegyXi)z{lo{x_(%E z5p{J3{J`Sf#3fE4&`s|>pVq2(REpP&Czp{nj+QO|VVmB7P~>3#g{l1#cK!A4Ww=-H zBaOV0hS0$?l6(BTMF;n^-fKSOo1|~IJ<=8e(Ys%|IQelH=4OQ7hI5UY)wB%gLO;&Z9s>#EfZd`2GIqN^Sp7o1_-vhv1@ zb;XOL{Jg&Bz1GPaOY<&tCCfX>Tn*Mt+$Vb6ujCx<#*Jb)8`3jZGq*{HIbOp5WH?8w zlNcya#*lQk1>Rrsj;RedDSy@+V;&XzF?QHyor%>HLn!N#;-P*M@kuA+)j_|V7Go;m zvi%;1XR;8wuRFpL3lSVGqabH`fYTa1D`Ifll;#SFD4o(cZEZNBIiyNZ=>1tfeLaAs zIKrl4+0gT#h3;<4VB+Z105&ZjUp_`(9;|md`0GNCNRPNYqt7j6sBAhcQYBYmm>^hO zUhwc$vuMK)WBdw5^6Y*>@_hUr3Ra!@!n+F*ui6W}V+pC@;pU)-xYx`%qQg0R9L!23 zAQC{}DYpx#-V`qI+QLEEEAB1?r?NiGD9Dm2FEN3QXJd7ImCFZySP3%op>K!xTfID2 zoRd#^)dD$!d~SDe0GP>1Eyr~=NVw>RafUx$e;N5O-O!kD z)VWHsl;@h#UD40n0uMzcOLHk+Ez6>qyy>>bqhinr1xphh;=Gu4e33?+{YCY>ghk#S znvzs_*ke?dF0cGnemx`jrTNYB1N*BhN`%}Vr!d5SlJegLnjc)@!B9OqqB=ymczha#@bDt|!PwG0aU?P22;nOY z{bbfsk3c2Mke;_tQhp{nVXB_t_m4?O_|Tk7zt%4C=_gG+BPUZIC>MawEfJDtac;+N zdYbN}5oggRnPrOcsTZ;|Jo^!aLbRHhMLL^%*cW^~j^cAc`An@W5--Z`0u=-VQO`j@ zS@2p?cY=d0MNJ!S$XIFWw8oAOPgu{*f0Pn8#o*ul)jI{$LI=BpeY74Spk(xIfy@%6 z9c4(luhL!Z{mggk&VaF5+<8qFTb((s{U)v&YyJ%T7opZ6}SC2-mD-VsW`&#ecN z>_IrZc{{ZQ>eUB<7ltGzd&XR$6YA$2L70XXn>R8QB85)W%!}7O=VhuZrq6pQcN(;` z`PK=~7%$&)3eOK07=81SbG2mIo^xxvX{DdJb zqIy(|=TaKuZrGW~)3c$Es`FC4GA5Tg0lcaIQIAS8h<9V>Nzs(Pp`h>BCoTImkJs87 zPO%%A+)L%I0gK255AX0-oY+8E$PloQuZYm=g}x)6Y@_MC))#K*X7mgA^2d$`NwPs> zaR}oxzrJ$v8?{MMFipfSEM-UHjNp{lKTS$5 zN*TIZ@|x1DY{j%2UO3B1vN~f?aV%WpM^`~AYWQIr8KO9Wh>ubyNZUY=rjU-0ZB9!e zKXtYIDunoc*yTTL=aVdT(b%J&m98J_)4}*j?U6p4jhKeqxaau>A3gJ#4itJ6 zDt`ktEPDnD%Bfusnh>t1!G)1Z{DgA0xiG#|=wp+>vZfUr>Ew^nQvSL{ZS;UDgRi=# z8m5ubPxNmYh0J4f~&M2AjE?Wa%DB43_Op4S&7 z)$w+tVs7yQm`1!7VkkzTSh$``T3Wcjl{P&M7lsAaDMrs}NW+iu7QT6^UT?ORF(w2Z zK+($F5ne>w<(1-p~}zlaP%AXyCBaKs1{z)rcHfozh5IG)o@lcRG+W;Bqd_W zWBm|zxw7?EaI@#wI$~v0ftTdg7zCcx;C*l1_`tE9;PCQks=_2!wqHnvd3mV?ro7+7 zpEdBMHLkkoE+n)0-)c_=lr=;M>a&b)C(Q{7r^cL3o}9B#5)U^z35kv?+{|xRnbsp{ z1Y;b&N@aXn3Qh|oN$loDHO5U!T`i&6ufkvHY*kHRk%z{`eECBDXzKzrVN~71c6`?C3 zRE0o!K4FKYr+Ttnbg8g0+_AZ6OT55>btkUtQ0qLasmnB9xANtBNd*)rrj|vBVOwuk zAP;3vAvkfLEnIA%GkEEyBtB_Spw&Jp{F(4_De!J8q8WF_p7U&6Ui#&uo^JI{8Duxx zr1ou`r&r6)@avb-_L|z52tjj8vj6$AH5-g$1(nllY_q4(oOpG*k3OgISyN11qCLBW z&&5+U`Q@z2LCn-pNixnZPs^)t{+g& zHYTIuUkkr9!(u`eYUaD7ju#B39>sI+A%~t9mIQqaLNVevYz50jd1mf zSsGAsCE?z$+2?BBnWRM#qF)GWZd=x*;I`uTokGrP( z=MR)ZPX6yXkBBn{dnVP@2IflN<*K}=oVFa&Brn|`+OGxZTc%<8n)eOCw!_T=zFYbz z+QfS}GqksSMDxkvm}~2AG8NRHc4YJaA+_?q`pPqKqCgqFmV_DC1OXlMYW9Z|!Rrnt z#hVYz!UK~mYYQ@6A49{XNrwiNb$5R(q`60{5s#~OO;k-|9UwRT%`3DSk;5-cLvY# zlC~2LoAS7-jZz27c1yPxid=kz(xRh0(%i~{#Hzoo-ZJE|4#t7XBLut+fE~iYe?L<9 z!F69+gd;P(!x-B*xvVH=3;DT^6SE_a7k+&~s{2_$E}PhDmxBU%B^L3MVPq%L@OidT zJcC-(45nbqjwzhl!pjvcLOY+3b1_AbKo^En&NScxvJtPOkBCM`SDZgh@>AESjTvre z`|(`SdD1FoMy6|{{Nb3c(uWJrv2pP`A(!s5o;Ocb zl=bW~?Kd@ds+V)HinR4bbXyfetqf*$K5Mp{2Pu#MeiA;l9sY18P!OCn0B3fbV{u!1 z)ZLCJ>83jKh$!%ty=pCdzlaRM$wW|i3sXMWY0Ue0eCqU>d$|40De1OjV{}kBUJ|BvtxX{QY%x#u!)hwOm2x3k$ryxv35fCWVt9UwL zMX+KaGO#Pbv@l^uYwSqiY5u+rxzs<7ARv<7cf`^zvTxsOq$)bdWol1!Bu-)~GEVro(9~*Zt1GHqaw~Q9S<4K5{_YadP1*s5|BOb_tl7KH zn@?CltrjPWCpn3U=L}H;sJ^=Ups}VvOp?%7Oj`6X;D+Q~<1v$)XIcZ8aI-#)%%yx~ z&ItJYufXZgw=hABR>mKGAB_BSj+^Prh{67k6ype$tfbO{sX7(+^IOWN-JQLXDzEYe z>t8zRbkTQ_b#Vcwbm@3C;sd`6LKbI5C{%?e=}%zzP5?(987jI6jqjtbhnC)@BQzS? zJGh>^`DL9^s`8mY&-&W972bmnh;9*P)3-PWkfaQ*T>lM|V6$hUa_uoELeK_Yse9FS zt`8S$dc5P@as7uni|t2AMBaSuf-$XeMA*l5+057OfAehKR|@mF_(|p+5OdNWbz>-! zcAn6r=7d}3lmO?V3?@fLAi_bK1`ATuQd0qY0^4Cw6Jk4#=MEv!Lln}t>tHgqvP zOP>zPMy_b{=bg*pOVu19+L#Cm-Yb@8QtUX}AN^VORGg?3bYc>gVEsN2(nKO4#mo2M zP$Cana$aUBMZF{c0ngsOwd=ERVEB)A1RKDRMKT3j;uj{`dZ;p=!fY66yxY-;2iRCD7Pe z&%jtg>4N)wY`YZGCSS08sr|FLSd+Z&A#yj%WS@I!k%G3ubZh$^vv{m{L^pFBK+=18 zEh`|4u56VcU1ml0DVFgCdT&)Qy7J#FKz^!c9pz{teLTg@CyK)atJ*aeoPO$EW^ZD! zB?f!V^fsv3I5e!*6LKX zoe>xERK6mlRy#Do^y^a$U&4WIN&&MptK?PeTT{9OQ$zs_QQ!SV zn;+OjCRre@@ ztYmv%rd`4n=WPax&z6%atXiO}2T?W!72=F!VbOJFMVX$rzZ(9wtjO+Me7=}{_5lum zyPwubS?*ZB_HJY3Q*^&n{Q<@mbzU$QfBVsDCDp&I{^^le6U9yq++-{aCXWoyLSOhY3MUL9G5_D4&N}4ygfaj2l=|r#JwAK)3#V4_D zDAy0XtK&T9|Bv#cuhCA`Dz#LuNkfhfE4=s0joeSB^+jx2v#6Br*Z$5!H;ug?ldkcr zX+NxQDm6Z7G%dbD;QeF3u;-YBrz&|=u9TiX)lSXpNkeQ5nu*QMJ)MWRqZ^($yT*FAskf)d=Fh~Ia*;w>Sv{?{9}E3_A? z?f99YuhPEa*Z=s}Zk2_e`=*8 z+9&1b>OS_8n4$yyQY2q8#8E@ZGR1)w7H3Av=s3+6e`2GRi<O~Zl~6A3__?16hpw0%}hvBN{W^b$vzkjGf-;ePFo zi2dH|eOj{z(zimvLw}!1!}4z=qQuYTbi+kOEon7E`VIHcOh|1ij9JY4BObj&yEOlt z%|nWBYtE}J5HxM~Erj}_(6ab*G3PjI1pX9p=y!!lmvWvS{n8*>ODtMcA#UeCCvPz~^;!+d6yEWC8*+kV zuV_WmX171SG|$&DxS6i6H!k3Lncd$Z@3c4mE$~xR$En%`&ond4aDCRbq;WeCnrfOg z0ppoek9Hu36ySalqu~+x@Y;p2sP4~=?82hM5Wmp%UfPZRL+gj~I4tfklc~Q-yWSYz z(N&DOwdTF784k08}XM@ch=8y%ubgX)KBwyH*sb=vj7SM@EmVe#*mNsPk={isJL+L*(& z4vro9v=-QqYzYkX5jt2KB;8Z$Y`^d(OEu2fgrO>6@<*Kaktg`%C_gm`ZJX_Z`3Mdr zq|fwNBTnd+)6w&EF0;d!@j$>OAh6C7*so3`B5hSm;ZN3(RcCY zWhhS|eV?XmtKYEua*p9;xfcQZeL_tlnzj{y0~w$B);-Ze1at4Eny6YY*coOS#{-}D zq@@N9SlL1+;i2gT5Ox`Hc3)xby0*tMko0p6W}#t~0EvfSME6?zfH|M2SJbh0R@K>Lc>u}o0* z4yS4dHa-lil)=#8(pg>f4Ds0kv!3Z&x7-CtiiVMfUr;zjxXW`bl zPU)qBpWp!LX9!XuV~hcbqK#jDbiTY3TgZo^{on6>@>F0p7#G1)_E#P?o!Bp`T$Ye< z5O02oW+HwqTVv*GPY>e}ISuPY`^jU&?eGAsCn*kwVbdppG)u3k!L>5qa1jHu>Hbn@ znA=E@TyZcWJ3hIQS0##)F0{)dd>}LGQlkDJ8zAHH3lrdC$o7-}ovkGUL@K}ArI=f5 ze^8MzQ%Q!J9vh$R)bIcuVu%T-fQS~eXj?`A5cIHf7EXvL(tzM9`k#nc-Z~V=lKpa8(S)0RUP}ur*S@px(-MXKgXgh98sVnr}$5~6!6aCkXA0(VYBj^ZhGx~;5Si8C~c#tjpe&ET#_tn><)8D-esoWZY7-O~j)ggx<} zQJ7R+7VKD76}Ss@4KzWo4Le;3sJU07+1lLZdm|&8%k6ejE(cKXe7CK@Li!M zp@=?a2I|D0XJn9cUceSF)ro*K$wgn3sC)vVL>F~>)WV&w>2QDilQ)c0e?Ede_`O6$ zNq^zc4v|rxAWkfNZBrFe>(=C;M>_g|iS>2sQJ@=OIf5k71%Mk@*|6KcgDsH0w)&uL zf6#sxFPZGUpgNMtUdw{Gg) zJOFB?9IPZnvTxZJ3{+Up@u?JPFy^ z3?LK{2}mLQp^X8_mILgPR^JOv>map-eE-QuSXwpBeKYoCK4d6+gkm4KEUPERI>lN# zw{C`s&Os2-w-|u-e3%Vt^(_**mD!nPB$7~EhsE4R@q`7pM)#axw1c`IN4RRDKtkWJ z!2hrqW-fMn3euq<`B|Al!*}1(>b5cm8Cdv2rz8(WzpUf zl&~qTOP}R(nf#|cnF2{^Fz?W+?{vJcJT!n~E_j>MSJt;l520c~+zm4qkiZgZOXqtq zDu+cpFdUI4RQbENs!!}U{zHF5Z3+#jfJ{y@jADdX6{8W!_Z4FE^g6`qPLIC^P#8uH zyv$Bebye`l>?rQxu~EoU_)%{tAK1^TpW0SR`Df?m8 z`JYaqjFHNWidqKl4Do2FX{=I=<_S$+;=avyh_rz?QgtghMUe?W> z2Dyx2!=UGyY#$fNmlL2Owy3(P+w?v*_V3J?!9^o;nj$TIxUuQ{{|EP3QIR0;oa&=3NfMK)XhbzJ=%1$~2TlQNe+pv-u|WP4!t zZO#j0%!vSOeg0zHLEt$1Br(w0A?l0NZtEUP+F#xwjmL#Rb7=y~XmZdtpvXcjc!@Bm z4)sS6KR{m4qN0%aGO`&aVxeRI{#H3;d$TR;Pk^TZ)sw{1fEWuv-g%ak|{I|%@u;pn{QI^l7evh9m~=ehVFM=0?|*p$||_cIQKen1;Fd_O|H z-<%@$mftsF$gr=2277`0hy`!ED^OEU<#Lq}YoI`Oy`_5|I&tKSFv8Uv$8D!fYS!J&KA56O>b!Z&~3eIm2Yry7X10c7&y-Ou+L zE$1n3t3I)q1z z&T|UEOf^h*1&pkF;1( zK-$;cQtdbv-KZg7n{3wY*nDbF0h zy!6&0kN;L&ImYpy}Q} z$$ZA_Jfmi#;)I{^26IQyVv}tO+REReV)+CFdE4vtVkdgZNvbg9LJJw3sPI8rbQnMj zWg3PmNC=iV;nOy%?3(`6p)Sv_u^Vg?Zj(cP26BZjjO!%1wXAZSt^3R=extmHwWr$y z3w`lT7AqZa@k1}yh)a3DK8Aq-9w%U8&3b{Ug^&eZ+|GrRO0oM)H&dU3-&RuWkU~J? z;k_!KHHNY_2y@7@*|aU2QD6YIl{pJerVPA}PeEuPy0FHQhh12b@?F|(Te3f2Kb6x#;r|K#%n|^szt3#-KA9=y zx5E1@7PN3CesNXLozXjAl%i7p8X@F_<=hkb3cxH7vCib5)*HWX$98iRh%U1mq{5`z- zW#f8}g{-ZdFMqJZaG+-Mut{n@2A=WVds$WY{lmBit!MkRh3%QLGINu!7To(!e^rYO zKtCgmrSI&gX)+4|phhLC z?k*HyoW3m~HP8*e9O{k%j7KzrGQo_YzjAaQ5wQqWhn2Lv=I!2L9Re0?2h}f4zCTkZ+HYJf z8P;6Sb!OI)YGj4w=C6f@6EV2|-Cg>{Bci^aC?x8p?)6fO{QwCj284}NcvweQANUqL zOPu)?RtJoZq7ngAYhG$-lP%SeMRL|A%2{=+zcmVUR^|!fJQ-#i4}Ae=ixJuC4N}WV z=DL1k1~T9+VVQ-iOA9_1_ZN0UTpEl@i%R~L@{nF;Nmv_y!cnHDE^+rj<99a6OG&IE z=&-^vz_=GaILPcNs?+nCFKA-Z0DEZ;>UQrur9YaZ8nsb*Uaj)-9YRF~rQljQjNP(_ z+e8^gA*6no9LEPGBDX?fTEDvM8P@q?IDC`{Nk(uOpnhJi>OTnE|5Y3$ySk0`e#)!h z`F~PDKM94j+{CXLwHjI>1?P*>v2~!4ydnHmK9uR1m&Gf zl#MRYHecv{f~q@Vv>~u!whGy+5+q-NhRgrsb$@`s3@X1Pz-802yyH14O-hwcX-s{5 z*LvYEJN~4g6Y)HTs{5ze(FYP4*Ue<=h1sb@gGnzPnKLq8cFT26auS7mY> zV$M#_22zjiuAzbHjKm79lVCRz7?-biuq;$;`cJn>)D=yowm`GP^}@F17~zxz&x1!A zwySgnb+>_tyq)3fioO)*nplIP=(h0 zc#waOhHb;Y+tw9JL{ucdfg}ura@8}9ztY+L@Zdi6plMtxE6LBB?OmOrx0^Nek;Lo! z8IjB8HI%Yx-SbhA8+pW&r5V)y7Ccuc7NtcWf`E&WaU(dp!o-|2LBC4ydd}mptPpc6 zbh_K^-sjFgzQ_wV6t%pJa@k~OU^bDWoFkug!U@mc>yAx$dw!g5bQ1P>*)#VM4ZEQd zEdfHr-p-w^qeOUpAn8{&Dm;{FWih69{&P3e>myK#S&7x4k4^FscjeI@m?aI~199c% zg;LDLOvIzdc>I%MP}_I!Qz@JP42J9Bbl1Oa+}g%p_SCh}_Zfsi4_ELgZmwLa#8A=A zk0(vPxkH3c?wBn91bjp204P{2R41`KQ8y~bnjM*`>PCk8#Xy{A~18sc=O``NkNR(tMG+-yr^lTxcGeRU|#H{n-!m5oq_p1zm7yiS`PxhB8AB2 zM99O2$d~({+^X1o0x5ukt&W z-S2N&4;PAuz)FK%bs0jN8221%H$O-4R_#Acxpnd=hP7g<6x{xqYSD`zRm11-V3}2# ze9K%RdFqJDHzb!5d^~o0e~DlH$ww=Q&rqid`9p=ZiB6nhz;w}*QZ62+4nv@cPw)iz zOr%XyxW5|B#>Xk)d3Mw2RSATVPwi{?cbQ;)c=B1XDZ{Dc6D#A!iYM9Tx(2liEK^*7 zv3k38nk07CGTK=p3cvWBdVoSn{vB-f@{?SXDfu2dbAO4cseMNXw61+RLq`dmO4y(_IlU}cE3S+m=1K~Trv-!1~C zw%aN0-&yO~LB^h*yu!^ivD@o97_9Qx!1Yhz%)mIPim`3YL9JBq=@JLge`}LfeCO*2!JDG0QB@D%q+dqAlqhEO6 z-_u^x&D4-L%G&n-ChEP}Q9tazyDjx$zb-boHw1|{Rt1-m-s|=2CJR@knv#z!CGG_~ zrA{A+Hh*Z@wj4Dd4oIDm=kJHbVYFJ;!+-37D6Q11KcS8%)Y$}kD3#a%k=D}P&lF_^ zm~7tE-32@R)(^G1Jbeqz(}xc)#SeamUp<-6yu02Pxv1hZ^fC@d;wL_wDy=)QdP`Yf zn_T<4ait>k=)7j~K*K2^zY#cU3}%NA-pc=gP+6aYjxs@o@8DoYDsIx!)Wd z511KkNt*J9bnV*Rs!L>*xzCNYj6Hp=|~(`bgfXpc>naYA0YF=+k$Uya-iF zn;fxd0`c8wugAlM&|~=l?9j-3bVNX)XuVu+=Jae?lYG;Q+vKsM_t0QeJopOL;oj;5T!X7uaNxnYeZpDCb{(1`dOZG) z4(Dx7-Ke}UuOwCnX}$~;%GVt+oG)u=9R68rKn4L8o*C{7Jqoa{9s=SPyHSBH$u5k! z6=zq={BN-^<*fbH92`fTs7%e8{X(m*Gk$7bR8CX<>7p% z56;wL<#%hDQvL=qA{ni{3*A>5(V`aR>;%Mf-Doa&Ayy^+*5JD_|IGp{UhQQJGq73q z1RR2@_0KdmyXAL#CyYsEji3yfS9`ZpeM#f2-kAW?$ROHRe138Cv921R*wSS|_R6Wp zDf#((m)q?_3qqk>j85b7{eHY4ul>2WmZ9LC@$b^lCaft|J2NLVpl^_&l1&r~_MP0- zLJ4VHHSm)wOUFla`gv)tJ2OqOsn;nYbW$x4=t2o23mr6v3wzU)7jWMRlX^6V zB?iE+txNX9>C<5VeSLB3(yIOz3M45#n_vSPc$;U6d%{$R- zb*VPfhWWEpZP-`5yOLk*Fc6jBpE=ZO-nHFWKt4a@9*u?R2(R+bhp2<=etM-TE_Zy*=a26_Ey&4vU&4h%~zHO3>vFca=50+Bp)ZdBFlrRdux2wFqyz_ z>>rd*nU`S6d`=LmAaV=)!iIc34Z&Yd(DvWQ^F>l8K0IB~{aA@I!UTe7`3 z+xyBBt~U<%>d>j!xXe5GwETT=%lXXLt54iP9MuS#0>PG1_cyfLM`Kq-ba?X1-vX$Z?foz)OcxF4ZZ zdsv|GaS-@9gl{T<*Muf2=$J&F4oT|@ETe#GsDJM}E{RdId$~Zd`Q$0Tx5fev5+T4I zs>a)rYnB^j1}0W^;;_z1;ff)?uuojG=JF7Y2YCLsJw7)k6FISqQ4<)NjG- z{uvGr`wP&DvoHU9+?aOZ1MYvwq3dH-LvBV!w8_4&w_R;K838F026b*h93ed%6)AXA z*sjxlJIHW%Z=@+b=1m?u0!(hBR#Cvi5}AFZjJENGBb6`kL>13Bv06<8&;71&*Lo-o zMVZLXi(+cquKBSt?`ZQ^do9oqqj<S1qw-_J!S@I`s{5 znR{rja4HIp*WqXbC8jJ@N&o7Vt~#T#rrlkm^t&$Ak>~(M&;zuMHD2zOeE9*<)esVv zm%;6UdMdTH5eIB4e1PS@f=bBH3xsfL4-XM9LrO&C@&>Ez8{PzuL^#(1rXh6%iZ zurg&})(G}&P7-T+`|A#y?*U7^``0qj!9W zdf`M+s)nc0wW~4U{6#-lb__!!Mbk{vPFVF8jh!3Z|IW1nHw@A6WCw?c;IVwh&ijB1 z_FS+sSW#1QTK;0G3SJ;s;8B?NG_4ME?ByV^eGZD?ts1iC-oy?BQjm(-mDQgPzlEzG5NxtP6#@r zLh5_|5xkcj?73>p){&3D-G5(|pF&uIO(coH@!S44OCHc_G!zv}Y)*kVTvC=yCs%(s z{0B7;xxoF(L0BF|z>;fB{Z@`ES5B~Z(rP|-;jc|e zA0i_o+YDhKO3oU55&Jgz-O4J+@e&Zllo@!Xsk`Tsmp8~HMX%4jPjEzHS~oyq#~6tY zFfd&tgxwOr*-_}|I&t#mPp$$p)0(qrX?3qrUP;nQHlO{u85UmsRb6#F4xjCV`@0ud zL$NykG;nt!BP~yi&fhdQ$n*)*B!r~&HqDprrS-}Vz?`mNW-%m2)1aio^$x^9u8`N_ zRRT9hQ>`(FKX_lKiZRT7FED1Q{k~3wMK(kTmGplOPYzF)Ac;p`CKh#DPoXH8i}kv~ z5jJ*shXXq2DFa>^6d)$Rmhd-%<6((uN|Br`g5zIGINFIns6)%8&w7r{0VT(4;SP2b%Ux<6 zaw%NKi%d+YHMTwnsq%%Stg%svo%ar+Ly)rbf_RDz?v6Xf4uMLK#$RlZmX1cFn}bYS z^b>*KDlzN#v#;(uEw~G{FR9 zBmWSa9m^V-+T(7wt$u_18eEF>juo9FpryY+qFp=482Ak6xH5lvo$`Q2P(b>>5b<|t zf(1TQOtMG7j#jl^&HH9=^b!=;xY=2+&XCDu9Lz?W@jTVQw73k zGP+Hsx0+K6-wgT-vHcu@YtIkE=vsLWW6S)o0(uskpQl5xhNf7}AT@%gmS?Jq1Cb?;22?g#N^y> zy4;mY@5}Uh?ut4O@ZPecK;P;XNzoGt)cG4X6B9QHq%EabEnZpbuM?)}U1-SNSbCl* zd6!ny-WRvJTRpUvG-ZbJ(p`L6q#xn}!IjeA#m_x_IYVNQFhrAg@!M;jnu&UT=GmB1 za*yKioQxZ9c75AO_$|Bq8V~g}Dp17Xn6bs)TaB14t=KCzk>8`A&-ZtI|A%j{t5>ha6X!hV+~>Yu_v;>~t`-1l zZyomnJw#bh_6oY>M!3nd&tDo&3A2VfHaiZH3j6oT`OsP3cagfNGi#}-97f0wMM0i) z$%zzc%&mNY0#K~fCpU3v3~#R+b{!HKkO%Fl3x751UKlM`emE#NTj^_*jdvh3Os~8o z?xI+d8)V9GA>U!aS(%GARzS2FkG-*TdVf*C(dSkY+-r5&%Mf^bdMqbRU0LbV#-Rwh zLg+4aDd4(%EUgc;Xg(X!aS`2QjglCV4)y0X4ULGnu25>r{9$rAH{)HZGb_`Cs!M;l z2yJ79BV|TPgnN*AIlO+n1J6&YD}XCL68C3}xFMMN-ml^kCN0QReb&SAg)0!%z3^K?}DTc;d)d} z7Z2r=Up&NxtXDB%88Bf*h?8axhrLj(gQQT|QwVI~mU=v-Q0lmmFuZ0AwhEKnnK(p~+~A*yfw!I2g?;kGF~( zFjy-1_am!|9|ch|A%aEXO}_TaTb1VhYc(4SBo_tT3{Ql$PK#Sfr_TueWvg8O$zSLA zBF^|dG;Vfp!r)-{LpLeve`cZsK*NlC=5rI}$>*LP+f9wdPD8g`%h$_X%N@tchPT&# z7-ah+em{Ij+Z6r8L&alry7=F2j9yG4;2!X8)26JGwUthe0i_a+R7sIuUE>6+31b;n z-zd*nKLd=J>Y6hz=wk2wWel=pd|^)OO*5(zzt}(a*)Uu8_oH>HsK$s0^v>p)O5E(> z^R=zJ|MLaF4+F7$-bhA#9we={<-96$-0ulTHL@1XrdVMK?c=cjea;GaZn@mn|ETQ{ z`*nlUt8{}@J-f|UUm@SCON{^jA9DvDqqHXR3I2hDV5i4}1X$>i-_Dwbat6b1jRfJf zqxI^viAzqe+Sqh?*Eyh9q>DI zA$|3{ip9jcf`1^d0nsd7yrsXv;$>F-SMNeP*a;`Mym-LrHmO1nlf^_ONbd6WqV=*q z-ixj9`NJ3^IVf?=acSb&c;R5#74eGmq>Bwrt@u^ZIAa4W8;Ios70P}IHM}cmdDka| zFnHx~Ya@RaCeK)9tf#PAaIv*C zvxa6@h@ZF9I!)-IwA0d#u^&l;ti%bRqCF8Jy=ivCFaB$37#;L?z|a3XBD_H8UST?` z(yU?+<-I&s%+10!hj~O|zBoviOEbNk`!1JxD3;p#SK}WVJ|xyM*jVFIIoBNz^s@8G z>IiH_*auTw2dI4uX;wokYm4U9=F2{`#NOfgE$O{es-2}&Zx54h-Q3fEN8kx?1Z*EE zqM1X}`{gw|Z=-p`6&{ckasT91EPX(Tomy#}q5dt_NkZSml`C)WX zAo|58+V%*Xd1{c1Fv($~f3{NI@h6g+zonMKCQZJQl%ej`CAMpB^7y^!`a}b`^PpQ5 z8+*kEIJV>Q|2ks-ON{7hI3RpHUPu0h%gbd^%(~UNbuatB{aq0HF{1-k#W!`Sc;4kG za>9v&SP%DHdt%U_(+75#sARUmHB4v_DQ8Z*?mpU*yBPsHjj`FY zARh4htTfp^A0G^GtT&-BHS0fF@@Iya3M--X7LIQMh^2M#Kz1+bxp29<^1qE0N9BU~*HSwhx6S9mCbnsQ(08?Mo%f2%yngpK}%x)wp_l(qestdy!V>np#U^Q3Tt z#L?Y&n~N>)Ka8NRz9KG4Iz7%ykL}H$oqw+(!YMzBY@hC zepAsN`7*}ChK;HGGqsZId;-b7qj0f&5s)kEzE6Xl(v$axdbjx$(NwV!F;or6{AyxU zgekvVrz*iP71ieb1Ja++| zFkSl{VYz#Jyxr!^{``)EGG@`KXRh)7A~O%5_b?n1RqLAKhecriXSQ+wi9i-}Z%>tEp1NvQE%-7w`|HqLv}p#w<>hzuU)4N8<1e*djI%^5kLlA# zC@V)IV+NEVgBKP^&ow2>9Y%lh!)Rx$Nb=LL(J*(X;JH5 z0@B+(G=6r@`a%9t<-eif)Fm*i^X?YgrO6s+pY)#Lui;Ioqh)vZ37s~FsT7Jlhs2BP zQ^kNi+g0AR{iY{QKhwr-O+TPqsn2hHquyEV_ zt>!+Bd@Ie{m|Hi365fl5(LhpUXKmJsla+Yo@#~Ih-_)9|wC+zD2{vKC)mSzB%YnC7 zqoVu+;U?OKibGu3*py21slyfc!JUwBc5t&^1!jFuILgBvr57jImFY7oHqVD7&las1pL>hpw@||J&}1m;%7cZbl7mz14C3Ow?k0=eVymzsq4fsf^kj zp+{~4MDaR%1+hkn(;TreJHV|~7iw!CAQX4S?Y@O8Z`s;`BgZ%THdaFQXFkQ`dxVdN z4weqyu-70R@ z?f6f5R8|h|)s^TocXI2sPH;8n)XZ+WrUCzJ)guPZ(#hL2{q9J*$d{o-YmH;W^$&mR zu`cY?ZGD-WkF|}&>2HiVxTGERNf`Q%BCeS3xH4vrz4F=~tM5UvMa33s-S^l{Mm$P( z-L=a}b_QooG#t)NPyFJWvP*j+->Z@2C20yzDVR9I_ZuB`FMY7r*|H0#`rq||Mzn8r zla&lrE8rZP>#5o?8@Gu1bx(RR8v|uFCd(TZbdmkaTwo@1g60$HWY5(FOTJ54FaLJC zJ4`$Iv(OBn(4quBrX9(-y@_vCj45hCCd$9YHV271GkfjhB+0-m1i2~wXU1l|hj(_r zpAUXvE{C&m4q##+p^v3(a0-K(!i#GI(pxD9x}ovWl>?t*&Yp~`RF4%?IrhHExd4h6 zQSs$ueVue3F20shs`f0Ydve}PpOk|qFEl-;7hjq7fCiG=^iUJC6uGi-()Blc3^vOC zb_jN8l5C~thar;6Y@NOH8-5oM{WRJJy-}+}`Aaf~@U7%Hk`EGo!^hi@714`4CVn1E1zGe0528(ije+TaQi0(0V`VO}*^S+Zw}m^TN4)L3 zF%P{NBBFGC95r*L)>oov@saqAFp3qbm;BH29wAM+e>sks2=Ri@K0a|pQ1K)D(>^kX zzw1o#`-SSJ^xn$9m<9^RJlj`Wr6m zIjM^V@M22s(GNZ#1ltC6h8MQVLXLG8m4}!i70O}`RprQCA?Lxja%@G@T>Q}7&6%>s zhj7m9EYX2x7mdVa#09ke9z}P}w&qnMq`iZS>2X!o$$fD0mY=2l2Yvn&`5hv9spuwi zs;k-j(ym+9HxNG+Jd zY9q8kw?F^wv>`AzQ~My(rXORPr2&RZ25(%ZH)S@ufY4s8T_Ouj$F#UyiXcb)qietx z(P(+SoAnE2UbMJG`jKcIDEwZq@~DO%dg;a+9UtXi<@Wq%tIBM{N4M60R61707PzFb zTwu#E3tZ7ZCt|eV2)Vni`oBXeIE@dbem~BP?OcR{B9^sk$)B`!uam*PE!d zZtVQR|03#bvD119o**`&J$Cod8CB=DvOq=3-U*lp(Mx$}Cd^}5umSNts{veId{yZTC; zE|=&ou(Wk5J#JiT3o%`9(WcdFWxSJ!{I8Zt{@X11C;;yccooqrg&wslk$^3w8IX}T zbUP@EHssWBU(zEFK%s9J`K~FCO>FSfmJa67xh!hM>Yguv-P7uQlY z(1KG2CkVRZC8lUXymN&2RxL3TI_<>ztuN#A_m(nJ8y3ogg_lC1$Y8ipaoGVhWkzzwPg*EH?M2i` z!l~62`Fl|D1Y~=@29#*Jh7Jd<&r}%?Yvps`KVJBU=?qek3YkyWFFgt#T{9#{iu{k3 zfC4GjHM$TgEha{q+DDI*z)W|%f+s(whMH-K9gb`t41=xl{K>`1iIEh$M`0vBHbZhj zSDtYmWE(eVRO*Y0))SVe`sBmHbpaJ0vg#@xcytrE;;9@GFZR_8yiw?6`3-#{kYXw&x zgpZ5V3b0SSK_4yuCA0U%QrXpBZRPfzI{p*lc&M4ycY#YA`)QJS7$ZC3mV>T1z#XbX z(k0%gimuEEvX1EKb6l^d1#rym z{{R8+S1MuGcD7-T{Gr7@>@?PynW)2XHharemARb_C7)}~Yo_1#C)~^I;bY0iKBE-z zdw!Ja^br6lv6CquY0B?3VXJVUXrerVe#_61?1O$~F-}L+j-xI%slISYzj@%PRVwiZ zoTQA!nt+BISnhRR#hxQ~R6or|t#cv!2EJJKc8~|k{r=>7!Mr{oZy7*kU(=mZp6SA| z@u^1xo8ihmy_*U3Z!(Nasn|H_^O?pd8WJvv#tQLI-F2EFNO<|QWxaHG4LAgWH7fKW z$~@q#SaWgA5C_7;)R`kiz5O&kiUW(NF#7mk1n-3Ione5i`Ig363-_BuZSx`PvXY9Z z8ljc$DM%Pr5C9cVD%HV7CVGAUcGml1XZxhgG)6zt*OBtL$#Ob^dl+C6cTZyzZ7iKh zc{Jst(d<$S(xl~IY3qMspD@G|v$GQths?rYQg~14QT0aiaQiQPohXIE0K@9Q0e4k z|5@CTXZrEd@A=NGm3WQwG2h>A+|KgF$AJC+xq*)U^Lvuk|6K84)_-Pf?*P1k$-NoY zPBiu*EVpdCA7bVy`JuFOm;>iBWgEd>zSbT<4XEwrmJ&BV~GFh8>STI*Xea?46UzZb-C_T9{{^U$hWJ z2$GVIu#4hu3_+FD&E^CDG`6#%&@ZY|+etTp$%9QW)WW5F*pDzjDhf(g^A>w*tIFQ>L9-EdZ-3DUX;003s4%7%qw)8P9iC=Fv zFD*@0?%BUyRB5i|o&`40*3tpDW!WF4UrFmeN03Bt^PKOO^1%^WE_53=7w<0VwV$PE zfWIuR-BqXqY|9``PmrT}_Bu5&)1uZOI-nLb$C3ea$FXPLSfonaR zeee>7p$Eikjow9LYa^cwF6y-Y6-)-)?UTwpz82dJwTaczx)1&^3EPD<@t|OkP)iCD^S2eLGcgyVT?gtX)m)H?tZ) zG69;(iBBy%dc94Y8l<(>ls|Z@Dsoh7=f_g@Xh6N+X~M3PBYjqKFHYuY)!p4mqE@!5 zLTa9Ld~Pb%w|K( z=x?-7n0Uf`4n+bB9&!?OO>VuLI(ANNk(DZ(Xx58kPfO3;xKkl+z@%TH*uP76RUw>Wx@Tz-??BdtNbNqGwIS#Vy~Ol_&1?w(_j_~V9qQdS4DWd7LPheWz?(;(agP2&{3Xi?n| z!`pr+{;PtnwKxNRw+F>xnzxEviTNX{o3V#eveC#?%bJ-xv|+jhnQh|<@f6@ z)ju=m8FR){=kq5tw524!8Zc=5b%%8T_w4?SGn6Xn;+#P(vOKJabYu7FeT$$Ej(}tl zf+>o(#KZj!k*SDw>uhQHiEVuqX*3x3P_vfDhw#Z>M}fHgD@_S2=Ze6S8vrp`9CdkUbQpxTBXP0t4Db zCZX0EZ~8Be%};^HN^Eqw=^-n+3f%fl@@B>t01-?@Qsw6qbBqF}7& z=i!#={a@*1-N6$7=}hJ9V6z?LywWxWk>SIk&J>pl6^A^EK0@I!y@>6%n7?QkNQgW|6K+>CYyn1N%YH`BJ z-`yD{__!fUc>(MH+uv%Q*x3q!m%e6?9H)P$t~>jsiq|O4>QL^hl_w&*9Qie$JDg(g zh$9t~LtYzS^|T&+>hHhNo=w0`m7X+*+xRO}apE(0r_ZOpu-%b@hqA=9hOqaOQ|AA3Xj9Lby^YU2`Kk{Yg6;tJXy|K$B z{LaDeCHG@qV^iZkM~yq$o_luQmd>`4h5?hvFwqITq^|s`O;#Q!^&8e{{#J*((!tl1 zkp0nT_aG4BNgPTpui~r{sskF#-GEffmYD4wx!ruDY^5i?F&xnR2%(W3=(-<2jr#Q| zF6Yo>;{2Ek>DXB%uaLAz)PS?HHVSRB{? zyXUBk4^;mH7-(w;jq`X_ogn2%B`)>SOBwmUd`V@)_PIL?gBAxcU*m@#j#gcmObc}U z#Uj+{f}MDwh7IQxNj4WO>Cc##LKy{_HT|AHJw=%LJZ7h0Q!b`yd~L2Vr=O}EtYnU3m@953Nv3sa2XK$N&DF%MN>?X zsqNK;oZ>oUKNi|1*gcoi>V2EEudP}le@{HqkoMrIxqH-_&gr$eRl#mvzbVRq)?4~8 zOe-&4B5}cE0D%!n(tNa+Utd;o_DyU^X#N?3(RxFMuG_QhM2BD`0zHlPQ*vKRc=A!rM)L~NZz93ksk(veV>ex9 zvTPx33$FYs61rkRgT~1~SbN=$+|79`*x-Pcw9?gsQxPOBm>vZC8J0QtpX}GaT(3<> z$U1jJ4-_2Fj>|^r3dh#eQ4^1rRmk=Fr=EK9Hfrj8zXWnK_lzl42AY!rSFQpC*i1R7 zknU+hDpKuUNWBCBXby})_?(8q&$96ITl2aF795d%rN3@R4hl-}OQs8Zx(!1?lzWO5 z)JA|O<@I+ww*PXeV#42DC_OnO_DY>r(FZ8g%vnPlG@j;p-wI&L z%HkIgyfv(n2KPr`939eGuJc2~CC-HP=geCa$4)JGt1vmMf)||Jzc&5)+zeMW0_-FYUR0v;Q&Y@~$wXsoV zVT4~=BpglbWhwH@X-FR&t#<(63M+n^0yv-78`Vu6xolG|<6M~ZBe|1oaXvGBi+OL? zewEn5CN)6d^3w&c+i2qSfhA4}UJ)8?Un23ip>3EFG=+gXmYtHfGlR22Z0~?%Q3=qEb%1e_CHlz$~ub%~&D4`YlL|eiuax<5x+0`1>2`wP> z`=EjXB*jg2Ie~S9j_<)-iUg|TYOh9r8DMUvzQVJR-;?KLr%WD!x01uRIO|L^hf}}= z-P{>K02gc%88>JF>!W2=b8bNIA-Y4Vo3&9M8( zO<`~Zcgbvt#opm??b=DEMEs_yD#&Au;P3g222Drs(na5%>?f0axifV>az#ZcJO4~z zpforOvJh&W{*Aa9-g~Nh3ydG>=)aNb#8F+PY!#&&w)c{sx7~L}mm8Gqcwplw8JXT} zy+N;P@?HSjK^YB}4+RwVN*73!{^{f#bNb+bZ=~6uiSM`1WK`Vd*6;;+1cB~&?1EZ(m?T8EPJ{H!OB?B}}` zgH*otL#2+@v7-BI&+kWJ$5U3tmMk|qrmr?p@3{A;Rb4rx&1Gdkav|iVQvI&K)~l;> z?%t~5x|ZRmSP}sovwpW)AJKQbH$NP5hJBR;>GRKX1OHH|xqBvtl>N-!+bTmEW*A8Ly>I4m_ z$t{x0ahg_IKj>1v@E!gB_Tur$*jY8y@7XAtn?)Xj;tXa6#C+FN{eDiCW+!>i*e0J=5C{T=js zRA=)?Rkndy>+dwr()~(4ab1~Fb9CRC_P{~PDcJ)KaCb#jPT-2}fH} zaa+rq^%8*@Vh`;V@7vs<$YaY;gue^E4tuFb09si@(vKq^Ux}8v(n%Q*({R-A&o<37 z4$(wG8nqzPFMa9@X=>SDOAL7cl}>kUxG zJYXxnF#z{}e*%|ZAKzNuY^e&y@Jn$Tmr4(uLW=-_>ZpAZqlE z!BSTl#+?VtLZNQm5Q?})swQt)dA?#X34ouuEACZ!A}^I{b_FCv1+3P1w7V}dXDnc= z(l}bjUaY=u@|Iym_KN$_*fJ1`w88F0$HHlaZQg1iMg{*i|9vLD&f+J4@iq~QP@Ww0 zC2Vt^0gRhjTc1bHEaaqhIEpnCI%DFPA79O{+jA|2JnZj@?!` z{h-WMHZg-=?kv+k)tH#+zp(?d|Jwu6tMc=_OGRVTsC-Mh={=wnZY5O#PGQQCc-54! zY@%(b4!>^{^Vmf`U!^0H$d{wEs5+a6b$&ZUi{Zs}pvnLGqBgUuhTP+6#QLY)!Ejr% zF()eU@7ERV_0Eo?Z}^kW0cBgR9kT&rIVp{A^!%A_ypNmnBMlm(Qg6O?(qd|azlbY3 zS^t8b80HY3YV)Xla>rUmTzA6c@Zf;7fsqY`F+8{l_kt(9(9^MNcejz|Hj;Hk#KEU$ zy%96dJmhNboZ>z-0HKL~z9B)G$}vw{r|GoKbM~Q`mAurXhQ+Uux9J-h+tV5yZ;aL&c8H)khHT^-f@_j{`_ zI(_&Z_!Ym2M;XX%^snkU!WS~`7U5wWMN>IyHg<2&2Pm*cmb`ChbpQKB;(_?X`qLUQ z_Wr95GBKT%%|`@ZzHgOdsc33`J57lKQD?@%;p*ab| z;~TZ`;Oa)@&@F&ns6EXEf#5@|^uKH`H1&4om`tv%jVM)V6BEr%VZ%Rj4i8O4d7uKu z(%m870UmXHX{WHv_Ri0j56hbuj^EiS{nh8MK5!79bi3l@f?cQq8l4W`ICzB>KAAEJ zvoE~upINsw_M>OD~o%ouemDmd(l$hEGk94qr7^*=dcK1zXwA3}fFKWIEK_Pl-Gi|D63m5)Re<;@F% z!v+CBe}ibk#PV8sn8RhGp5JgEcB3khFR)+R6oomTtSwEXd|UBgc!gTq>8_Omf%XE&!$6@0PN*L1DAS$T0f9EW*90{i7j>0cnt1N$ zQz)}#SVY6;URw2stY9@uxxkUs6Ye#c_rUk#Ds6?!NwML4vpn$$G~mdu{cYyf4>Q+S zU0iMD&KC}O55wlgc3YLO(fIdymxL7(8C_dgVdb#%_U3gYp43SioJ(!$bdU3#$A;JI znEbt8x_Ccs=Vr=-xUw&~OX2a1Z=hHBeyeBnvOQ8b4FN9%V;IRMbAv{}w;xh`&4Y)f z;O$=BOzQd-M+Q6_N@?@uc1d_VG@6-zQ5oZSmCxh7JV``q*H#8EXQN_cJ&;H^MaVsv zWPRZ}@X0!QljLU{e>_;+;I~;Ie(6V5Lh64fEfel+Sl*JWB9oBUn~p_vu3iE;qptc8 zv#DyxHH7gkTRcDyv~2ruzUO?(0wRA#1=hwG|2VFA)@QZ!!DH0^DgV6L?_#ewb_{;* znw&3Zj+No}zDicL55v0^$^wwvXBM5B76hubMr&OKkiv`?h1ov#{rHS;ez)D1eA1lH z-m#o2^5srOKH0}2YPH!bCv^qS*sA`snZ^B)rtQPrQiuP5yAgf+FE(1JAk z@a5^_2cI>cm*)xO2Xs}vxe3ZrLI1Xonk?x^5VOO|JCrMm$55oq{(Z0*n3d zJ2#wNTI@`#@_X5xs-xWY#U}N1^`$%|h=)T6OS9~85SMp_q+Rm$gI^~zikh+$;2dLY!**|avS9jqv9g$YXh4phQofb# zq`V-Aj%kW+)Z3qTeZ*mZCT+qo*y7~S2xS^CV@Hw%UO=lbvFd4HNxh;_?|xPBv^&ws zy9KRN*Sd9u8arZF4tzr#kH7;gmBC%A%OK|5fna8Kqwd67F(B}hYT|Z8%4igSL;UB28x}Cp_IDZlOhP*zK{>@(OsO8p{*PWaU z>XHzcj6>seWz}IFpQwr770oxGzv_@W>N?TGR})uH&@H7#hFvS(rbYK>GN}0t97UY< zd>_teXL6}!!lOFZ(MD*$N?hlG5r>GKcl!3LiT&d@55tYb$1Z^aEV-yI2dq;yNBoJ} zFg#%j$Qg|uE@Dg1cfZW^e{umZbGcUjn;Vp<&I4kd$9ujop0;%XLm!#P@3pRi11 zP?nziDgBO-JlC;D9~fkmKWuiwLrK}1pj`I9P%7&=b`bgKkS!MX6Xz=V?dpPr@%L;1ogO6@t!hJplzMwxOCCspmV9nHz>6L?EN{X<{r6b&W#qt zlwY5b=XSW%{)#IOhYHOGp#O(I*wNNz{ATS(9E>00q>7|b&rF@62=W+Pl+iQ_E& znP{Ua_Nh(h&g-oz1hb@?7$A^cfn3)>C*0(GWR?7nf_;|)?Q%nx{KqtIY+v;nYEf=w zJ;fWpkwx9Z(-8AMY(Xpbvf4EanM}p`zz3|c~4OD^e z=iqhFcQyzLjTk_@{$^u5xCoF;m#;jTxM||XUh3_4gm1gvGP4%dw@HOKoASlKoM2k* z`rJs*lYIBIb=L9<2-I^0&|E1J0j^r_H{j0i5wwt)!bTCu&H_fzaW0W4#Q!Ww(5(=((0jT65WBmZNvttAzuGNyOx zv0Zm_gno7>VVN7YmhrDURRbc;M^m0p?>8lckJ?71yk@ZesV~j5ER|LK;B4Y?!vHF$ zv>4)ABu;};&n|vcajc3SY&b-XB;;sXVH=RmQkoo#Hb8xfWzIjn2IJD9doZR4&cDwH z`p$AkpMLUW-@yf2EWS^geXW2!vahZOTUS2+?vN0xF=o0saj3m4?o=y?=xiz8IvQ2{ z1QvwT=tE6MqSrEJf(xbuQ(&U*t@-BUW~YN`|Lv=$ZH%731`9q9o(vOzY;AAx^z#Il z-qJ<|9}L}3{WcrSvQo|Hy@IXL;r`)VF%)u*J$+8FqFOCKQgQdxKu5a1x0>TQKRhH! zsG;Nb%wOWYVfP>@X2!tc{$y9%g^a@lG2*r6RcBG_?!fge!IM-4$Tt)8mOap&8;DNT z19i)w4Z6szy0r>?)r z$@dMx!I)xKI+w%c=<>nvuKjuZ6sPq7$$N=|tR#PQ4K~}_@d;|(H|uaxm8k#;qb-(L zT0M;_ICon;W;-xSGFtXQRpxK@!ef4H8u~+B9vO`v4||OqzXK<{8trDb5*XTV`ox;| znB%L1(LTRO{=0nq&YIYhiG!Y+E~|1SZTUGvM#M&qJX1ZcF%Pa}=$UtDEe%klN)FFJ z88-`m>TE#P$`?(ZCVJGZ#uKl&rhLqp9oN#&NBgwR9XzLDUreCT6|Z>zT;%^hVNnx#z_n&EN59FvMdkRGyl!HWF2i zC~Rn$t*Ees;dCZ{jO(0mOl6{HPur0xZvryBB&mNpq6_|Wo|D02$HvC2d%izvAQdl; z?5t?Ix*q)gg0vsvtXzWnUD>!v&w<5sDTTx=c!LJq+pNmx>^vIEnhBPL>ow6Oa2`J3 zp5c9#7)+?R4xS7YaGu3|O#$d`#qRq#juDG8^(f?#)MR9ONm?iHoUhPqx4 zU20p^^hx$KKqCFz*|m^sM#dIZ`qqNhZ|>L3@$IF3p)s@)m>2|X0Z$-+CX}VyxJ!ud zk{s$3t9Tu~ZbTNT<0MX)gQJ~uH0xM5jyUAJeOET`QL98IVlZJ)$&r~lqnfAsnb5o5 z6sGoi$ssY4mZEh$Z@L&5VtXk3Fsyw`C~d>>x!)WCIAU4nwT$?{+ww=@^yKXW!+ z)o2yX@x;7wXF1z?bEd}6X)(miUR^&7T!B1)vy56T?*pkdPgumrT1T@>Tc;sT?6hI9 zbZyWBskFbn@yU87UhVZKtEk+}%;qP~D>_WNelWXvO*&_4n!pNWYYhE}dP5I_J#*q2 zg;|chW^%7XR`Ffv)}Sm%MDEVyXZq}Sq(I=!OKqd5xWWM&*#zDeZTx(CIKf@-@x?x* zX$Az>c`3%MhAnY0Yf*u``*sTf!=(H^5Lsu|v){obbh<+_14{-uNLw^yLcs&nO?0wO z3g2&G_}Y$V@N)Pd80@%5@1){#UwmMB-DYjC%;9>uH4(TFi7upI*W(=d7XNeEUFWy9 zb#>mhLu<%&YvRei#x@g}!gl_sL!vKD)+fc3KNXxT=Fgx0ihU8?&6e1N$@_c0+4=+FP|8672;-Nj2`PzKnaOKfin_9GQR zL~}Sz>lu`mDNy=o4)ZG~wV^_m*T3K;)@6M0XI3pdzML7&wZ5dJzGOLd8_nf*dI3$& zGZ*vxoQV2QjP7|QH|sHzD8w6lu3MrF!%h# ztdX5YHZxpf)ZL3E+1Ancu1Zv0Azdh73~mBwL*WfwAX9jtkRX!Ma94-470TPHJD)h^ zaEVy*p3VSCx;crUst>wv(ITDzqLs)|~S^_|6dIcie_bgK3Sy zPO6>qe)Z*m)L=0n{v<}ag2ym#P%bhbC{V&(&3XA0VuP+fdpDlJGeLoKyp(_}6D6SZ zf1BjCM>0!qFr!c?A9+PON_ph>t0Uk<@v!aewXk02>h{{qjy*@@${=Nsk>#{$?%Jl! z<_lw`<=T3zn>ySfxJwO4{vUz?49?d8y29sY;P>NaUH+!N0*ur@u9#QO-7?B|yXN3K z$58pp{g!LfP1UC*(7RJSGW~~mEURS1=gtcnvpsQRpKB)$))+{U^0W8}mM-<*kSRErqNQ_KwZg=Twd=mJ^OyYwX8(3Cr0r zDoc)hVcM@$C|rv(Hss3L)5%IsPEJ~8f8Sm?(xH!gOm%t0ZrtKCrmIgxQQ)Vz$aA^} zQ?Fm=bMX_`1duO`rGv!eb+#yy>Xtp#Hx7LO%%mUyFz(+)6ic{A`e?AQseKwWn87dx zd_1uK4SYH7q{2;&!gT8n=#^yul~FEFw*Huv!IoGgmxN^jH6aVfUfUo?JNyIms2ut1 z(qscC>HVKgbRai{>&nxF7SQyAE9~iVX$W5}nkFNYr}}rqUAWSI1|B!>AJl0WTK?gi z;3}j;t0Skz#6pVMljK(Ha3~v&cBY(fJ$_Pc-MF;?@%MZ?n4CD32q+r+c#j8_0!XZIWk8O2M6GNV zpQ}IwSuPKy=?Y^|PL+z$^a8QAICyYRc`zg-2)-qDAg_(qHG3t zh`C70*H)0y5Fh-jjp#sfQz>f?-`1RVzThlGi>=iU-HfRmB1-iW&eflHZ-nIR-;~e+ zxQdcPt_qjFIsjJei~R@N?C~%N1kzCTdNS5v1vPQBhr9*Rm)&lB8-vQmX$f!SdkY5YZVakPl+K;T8mq|1qErwz}RC8^tFI{5!Z{-R7J-QpNxuM`< zs)hw+w9g7nJhf5Ud6j=;zc3HaODuNNx5Vw$f6#8^^(;BT8#*g-9Fr?YEl^t(8L?CT zKd8XqC#F=9Ejkotki`e52xa4Pl>#V)jj{sQk4}9r)vx3G2PZq{v7 z-EZlmo$E*I2Z?FCRqE0M^B%{$fBm359UrE|$H&I@=d>Xk@ELlPl0w)Sa$+!TW6ABV zj#KjAj0uJuU%!#V@zW$Ir$z&MYYiL4%TwtBG`IvZIRMHJ^qoerzsz{+2~arf&BrYi9wLy6=G*jd_&jNM8i)gLqarq9pO*!KF6 zaqH09(5M2aecu_Rz~MNfh&F2UrC&TkclI`pL=e@XS3%E5voGkqshUvtX*=nY>O+K&hngfD0X zJ974fCr({PI0V?VHOgOVJV6jdRWYc6tjdSbmPz&ZhKcLtYc3 zIz(smC%sgury1*yi8nPtA-)^9THI~flIg>8<}sF0eP^{XIt}-l9^VFo3fnKoRnC5> zKdRGnb57#2r26AI+LO5Z8r6GmT-UZ5C#HI~+rk-^rX0{>MLvfn+rkhncImi=|8i?; za59)BQi8~=-#lA!aU$HwYp_lou(xxa3=i1ne->z`y54iOVJ&wtxVOm~p;j~(s9S5x z@ELp(`iZ5#HE3vky0N_`7lU)f`u{aAW<)$Pr71J(QxO@+H4*Ey+o!r0j^LE5<~yYf z*E~NqC&c@gCg3jzJiFz-Gc8N&Irjh2^xc6}fB*m2-l1$+X;>GLYh@>u&As-_zFZ?A zdykB?aP5+L&EncyDA{`}LdeKom*2VX&-eF-Km5TtuQQ(G@pwF+XCbiqPr;&P_Hp&p z?%T_U)t}!vpw|W6gn9xA-RDj9$c;ijNi#9vDoGcaUv7mqkJtQdH;Z_z3P(*;+`fKO)vq~(BS*e&Osg~ zjEJK1PRpR40NjS9q(e|DF4BEDb|BTV1=Ce>(xqTW(*a-hG7M}wIbT%>ZtET{E*x&U zd?l+nGID7zwU&tLbX^uJot zLab(Lhl#^^R&!^#bXY%3+Hcs6??|K+gC7&`lG6eJk$+9K)2sDt*E5)#=8CF}h9y_%A9@ZqJ#B_ghSv?Zsp4v>}8HD~CGxn$pFX;e?Hs7Ro9 zvfzwRg~DZA%RWu(?>naHeQy1!HZaum`xzxh#T5_HZjsa~ih>jIu2Bt2@D9@K)Ikra z=T_fr@vl%9_+z_v+*dDJZIBEtHVWTE<#fBQZgsWTs6iZEkl{ zY=ZX`#*2#XHiFE&yNy=|DJsI7dMeb&Ku|7 z$qEoy-7ebM+-^BM$WRb*S?m53`OALW)%Fnto376Sll<8`yj3=`a=_f;_KFxyOL06z z3N@85YA)BFF3~-54;r&f3oqF4Be68R94E`%qU}&iT>VT8fqVw>BexcL+f#1rJ8Tz4 z2Lt8rk=sLgmg8ezR9hOO?f!mU`|c~M1E&lv_FsuO(WQIn{B`&Bg%pNy5kz+CerA2; z%~#ha(#7naWPf;+WR;qA`D>-I`S68iUkEH+pD*{gvV-j^igGO5^yzk$0LWGqEn( zr#CDDw7wBe-7uX;Di7nmqdJQtU-#v6;Ig+vhiBd!NW=B@vq}xz>ep@;^q^e7m2y(i zPcHK|vBhUU&Mjtpi=p)Y`O2zb`A_Ja7M=H&W|@SJNgc6Oy|7`rih1$KIvp_mviR$* zM$Y6pt&2Gn0R8#C3^=i#?jT>>dB-!`Y1G_X>H-o(yBANivMc)1zSRk9M zYy(;TV?(oDcm+gbg1<$6)j(guRg4x-15o29@{ru%;r@?903r8|ZF@(%oYkn0itMQq z#=kDYo^vitdCX?4$s~RAe6^^jt|QltVgyY&znU_bu4>ko$gB>q>gfLRPd{zg+ASeY zm+?aOFX+$vcDVgM@U^CromKH2#;Wc)gkjZ2v7|~Yy8!)?CDyllN>`jMZm$`FWy14P?E5z~?H4x&I9p?faoMzjWa^i0JfoR;X@y*8y%Y0W!%1o#a^yH${ zaxw~0Rz-aSyo1J~!Oh#KFMWibP``!t##g8Bf}4fP2L$ig>$JzsaDKjcc&VQ|aUoZJ zmzTPYAF{C}v*~-ron%%2(Bkwx4pu)t{h17}?-1}oI9Od3j4;gTV(P5-r{x(oqkn9;lWTjT4tIHRoY?#4GxO@c zw1lDMwbS^|6;*0BaMl|opXbrt>$q)8{~5sgvCu_iiC7?SpBRP}sk*6r!ogf2U3ild z!hqio74l?ATHd`)6Mt2-ef2RST*AoPDO+|1^@_{BSb56nuGVSSmHqMcMn8Tbr(I!zdj-=>%ymb91 z==%!Ec?wB<@T^cXE=czXldCIXw4r;Zk#|ede?WDx$T zsT)^pN5aV&3Dr!p!#>Hi0`IqkFp&*m>Qx+W~SjeYU z$xz$>xbDI31=|^(U$Z31r?Dh12jjE>@uDI>eb}wR$(JK?v?d)b5=3qG-wDsUaRS~U zX2*!oqP(Hl$c*7K;f64@K3(2C@GPQ zOyDK+zJ+7peGr7OLN27TW^m81^xqFYVq{4AB;l+lHxEm4`j*1E)tBzn#Q#&Box=t3 z=b5`$nX;tB z%Z4QRFy|moIXZP3V8XVOnBKe)^_OgM2EX*J_E-Hs?;rlqCztRIW5X6RBxi54!_e4Y>5 z9GddTsE(mnJvu(aY9AI8>f?!#kPAQt>S%yNDgk(Saoc0Qf$$^emyQ9LwkoQW>IZ*B zOr13WD`IHxsORe0HY*@H0b22>`}!!aR{PzPLoinfsv3>HGKRXNMw$Kr2h;CMSVW~1 zT-x3HTJ90AM#_L+OOtx=c)Nuw{2bia2e!;KBQ?t`7OvUMGG!YbtIXy%Hx-v1?%H zf3Y)q_20>Awn*GkUkRaSsYO#ggU_AkwD!cwYl*ycOfA(h7}8-EzMIhtU99Hi>-A&m zd-66WhyKAC0svnLY3Bj!<_Oj;-*N?2*_M`u8=x7p;v>cmSAkbcv5OCUbx3qiZyfau z0B`gP-w&wgbbAd-y!2$uB_Sc9>BwSCrdrj3+j1*FG+hoJeygV~^Dxd}!PshJldFId z6cBx=0GTwyRUV`E1U8@4Rf<6~;uda=O2!qF6+u4YPi)k6yHwgKLOzf|f}3VnDHc`fu1B{IHZ@SVTg)3n}8t!F`GZf_Z(HF{{;n@AReUqg%LpykwM` z*bmF9&;*9pAI|Nf_&mx;^^-8R~Nw3>Ct8Wnf9RBdzh5s%TS zGLR8}d`%UZPpRFcLy~-bx~}DZX=D@{Xs>y9XZ~PF+M1`kR_m?-mu0Bm3KAr5EY* z!>Hw+r2M?RTL#@V-kT;Pqobo|K7E8>F+0DUzG^O~Po0d>pFf?Euk*FU;A&FT^DW-& z>w^u}QOF~+{{LEltKjR~!Fyujwa?HaOhf8RR2Qp{sOqX!3qPItc;x(2m#vqTedRwN z&#LnM6UX@)bO4Tees;FNRa_lf-?E0#E8hNl<^f$SXgJ$yu<;C_JboT*?#K1*zWj&R z`)t2z=nIx6c{szxp6748mqt$6GUf*Et{=>E6|;zbi?5H!#COli!>18K5mxS#CO44L zC6*weWp$}+8^wUy{NvA?f5sR6GB2^(e@3r7U%GNx{edr|e!3Y>tuCM!woz7exl7hZm99yL7^xEok9ht8l z*z*@4|2H!<$3+aU&BTFL`?UN zmzshna7SrLdBNHW@>u5c!DxASgnw$w$=<4LXr{VS9!i{8htJP#&_9B?siqJ~zN|7q zt#;^d7+Ta(W`*?W4)L({Jl~P`+;XW|tpii$h{)=2wM+31k=)iMF|&xXqP#U4n<#CYSD?C; zpO~-w_~_p=qI@;3z?y4JfeR-~&Mq#`FU}I&0zR?$ zNQ)vuiu9mzkdc8W_NHnd&I&4XDApnI<3)(MaDsA-&f z)9on%BGn1f>Wwh`b@}57t_z(ixFWl%vJdvz%%pqcQ>FU$A{<@A!bsSC=zHQw(Iaok zQ>#7zzC~op1Xa&yKK;Gv_jkCv4sH!j)p1fBU$;qbV^F3Jjaj)GQuNfJLkw{EdarX^ zZv|c?+Pi9|%g+Uz%`6D7HO<$16&t(n^)VA$C5~B2k@c!qFX_{H_eo5koBWTMF1UrB zXO%afuFDgkw+aa52}K`-mU1}wOgI&=ar|2~lx|)$xKuG~nm@B)BqB}KP0=B|f}efW zL*m!8%A)&sz2Ewf=l2lXhkv94bkJJSYYzu6{=a&I5(mxjN$ftq4X0T)a;mN-dn29F z-E^Cl)9Ay!*$;eyQ3n404Rtu&w$DmLkx3DHA2)ijljdCR6?P+qFvoEFN1&ELHMd6F zJHkRTu7HZ0s{z0;^&h#RP@6c(%-}ig>Bt)baGZGOaGMsp2VF2;RL2=^A&Il_#C|OP zex@$v`Am@X%3><0N2AjPi~UTMJW4()k<;xzFTh`YLLp2-?g`}~9JBiNyGHhMOJcRS zp20g(GtQoNR!LPoqgF}Rez^!!0kCl$4Cp_O_eEt*htu+VEgIwmZwv=(p0DW@2)K;o zYvLML+y0z2f^fx0x#Bso)lQCpIbyXwscwr4XU@)A^|1|QY)W1YdjSvYTzEs&kcp8O z31a{JfW5xaKD4KH-T1LWAGm;T)PTuij=9!QaEU?z4bM6Tty1I4d~WOP=B+Ris*LS-7C1Yq4k=oW;Xs5tDK@RVCdfm|Rt0B$f!hxd5dX=!W#Z!)WN9J+yL_?H7TD2HLL)4wBB)}XW_{5oSob)qv)0*=TMZR`=! z@h`g&u-L#oWGVn~7f<`!&o}z^e_nZ_Gz~)hJ`mVxf_%esORT8R%!X)F+2i9%U{Q99 z*@{S7mQ^oJ_wbs-%&@GPft~SQkpFA@bl%86RC**U%>9BcSgcmF?KZ_ z@mYu9W#xgfagqF2nh5ID(nbcewZ!7;>Tx&%A>D>%Cb7f_=%bU3H#WnxJR9G7CRSit$Nhs#p0;v3@B(xMvKYxt9m1t7YU}m*KxlxjcVFm6p-fvB zht4*3DH$nRyMLWU+#_u-gYRD7>tW9n1J~up)^FIOoVI?jCB7na<;(9W2q>B!D;gA7 zJg5xggYLtyER~D0^X27~H4nzjPlh*Y+C@0H6hyu~95Ylhxv3UuGRKqEUP!2)^a16W z3=2uZh;e{<;6QHE8kK7Gt%v4TqocL-x4%~qYLlYu)MY>H&9~tZ%TINd2QysDr*zYJ zI>Ula^jY#N_KpQ?IE%F-v#oV@@>Ykk&h)KK?-GfoWVM_&W2pTB5F0OyO{5AB6Y1mj zU&$Jsp#4%2|9jYzcV@P}kWJi4W?&pm`H9jcQoAz;76QBlcQcxvw3RB!YA2WDb9K*k z?C;@oc6R9KG={N|G+e!*yuea?;rVr0+gE=lUTy0K_V<10vF_iqJw|(I{kVa<{Ex7K z&C7O}n{baPms(P3zvq$^eb#|VklQq4Tyze4Enxhm@2(yTTn;v7uN%yO8Pkfj;Lcs$ zU(Z^_%3gciUAW{aDPUV1Q21Dui6i}$Zg=+p`LpHz(h*O-ztu6;!}%{iC-=$4l!;NUNA zhJWLp&p>o>2eR>3YRiACYO)*>j|72UYk`?V+nTgRe|NOw$U#V0#Vu_Msmij^Di7s! zAxAG}?P>v0n=r(0OhV13uk@?`@`EpcY~sGQNoQ^6%#qtkJQL!P!gL3Y_@z2#Gm6$^5$eNPVn~D< zRKj#y(taNExAfsiCV-KqXAV<;xV_MJdz7bn7a2X{yIZ@L24KG4lX9s`@9LSo4gN>^ z*p%tj^^KuL;fr(oP!iv4!&Soa>RB=Chp4OCPyp6Vfn^N=kE1tNNe$L}d5)(Sv1!Cn z1(iCYX`(KAZbAG@ z_|v8N#6gHa7??#zIrMN{mZ+c5zyHDm(~4h_1h67Z%A&u&x(#tVN*LKR;g&#%vDbR@ zJ)zEw5Sz@lYAYr1p8~1&C>j~_8{)`4lE0n4w7(0I-262WOBi`b$>a4Lgn#65`niJ zLCke9b&WW(>dbl!Db*K!!^$=wNgoksnM+ma3NyUnc;(xMNYKKO4%YDrgjAvLEZ%AR z$(*B2ml=9Lu}&;p;Ak6>w3_XP5q3ms1xBv4g94&6*gQ-tSb^;Q5x}5@+#|MDJmDo)>2EI~HEkY5CvnPp z4`gn7M}5-H@{*&~OVv*=o)d9%=k!ePUQZ}0);ygGQ&)P=bpN26rh0!NpuI>_p3Cqj ze0@;x-PS-pN1Lm2!`!!co%q+(oe$}vy!#iTe8q2 z8j&LtGXsgqTVs{zIh~dH$>vVu*(&2k?nzI|HIAq_D!D`#EUyA+I2XemlnV#E#M@{7JciHc)JMM#}C*1f5Ty-a=nj) z1AES3Y4mq-X(#t}?AE`9&W$S~?kTt)WIk5V|F;rlw1zNED;j$X)5jCNnC|?G;LY68 z&2R&mlOha8OhTef00KjOnTVt*yN--PB#4DaQ%f*1GWIWsfQHjQy&dXh`b<~*4=-?i z;tsv(a}K9LrCH_Hdq4V{ExT7rJy&~K6FYxDzIHop%hEe-yvd&^5X#KM8mp=lZ7<(% zYDe2X3e!$f(RUd5_4%bVBFvezBw?DHZ0M){<46A;*mEE*UVceO?Mqe4_ICv?fi|>L z!z29$#0@?_v{%2|*e}4&xX;rbca=2rt~m$k}Qa3Cqm8IMI?V> zvcx(yipsn%OwG+V&(8oewA0KT>QNe_48**s39y|Fna%FB7n+7 zFgoGe_BHYQr-O#Q36hN?C*8d^GwJ^p%#I^%^9$Z~BpDBVY}IGKA-4L3CzTH!KNJVn*K^w7FNLQ zf&^-tou3crDQb4DlIS-tT<7Yi>W}j%-+`=^=^H(*NerB^u=Ez9dA0&C$7xcUz?0Aw zdt#~|r-3whVJY~^Mf>@2lA+C+#&aUkcgvGvk*sf1<8?+ve!_Q3Rox zP6rFcrT0NE*`R2mB?MIBPFk=h%&|>TJme)6j_kB4T@aLpFs1T`S_Evn!MMM zKray5o1-v#t#_JHp+!aD*anm z8ur;&eBhFYK`@xIeVhNO?}!LqLh!k-Xyv7FflU$rb}{S{2!7Bi3BjgdwlMv z-r1_8C7P$m%f9*3qDfxj=trXWnMGjBQNlfO<%XsMIeIswhtmuW`h%I2JtA>ccB^)7_Q*lq_qmGLzhQM1oL>;n)XQskGDI~#8hNV6Ne|7t zTDfR5 z*4*4){k^hmRVnT+R%v#r^2`(ws>Ix)!#3@^Fo>2ruP=NW!YaM;RQzdgCv$HnC31<@ zGRBPD`{$}cVr$d4fv*(TVoz~!>?)}(UIXNJiCc3k7tgM{bQ7+{rIu;!jn`G?S1#rH zZp=!1=5JK(T{aay(FoqsqWT)v`{BWPZDKK$eB?l>_*%qV`@>Z9PQw+Q^uOFy^x^;6 z8wMb>p$lgI$CA?m{K)_0o)vC6NYTEKot%o&yX{qDdAdF>D_#!6XwQ)0p0h^B-TFy zVGj$N%H}QU0x^HL@w}u0mi}RzHy!3dbrBGeI{<1Qa;m8`c`$L}!=ghse)^7(`Z3v{ z2ypk2$`wErBG>XB(-0=4fick#=XL>EQ+qg*J~F&e0hUIf;$P{ghj7?r7M}Imj7tU@ z5o8l*E``*?Naj2*a0|C>a%psx3PBtc{S4@b?cJ9}IX%D}BY>hdMnqXOLV3*Un*C(W zChWL(-`(k>bF5uSwEZJI-A5*DA6BJg))*pfrTg0;7#b+Rc&~Q!aA)!H*vDwgGH7`t zTWaOMXFs%g-9>sjK6bQxJCkCFsnZ#~HE0zBz``Y@h*Hg~it4Z@53Y(Lq# zs?>Lpo^>CgW)>p^ViF|-n3}69zF)8Sj>e62Iqwn=EUg6pV@LKel9_p$tCrr4qMl;#G+~p@5PngUr zjxPq`8y+-%92I_n3!1E{qaQ>5cO(hHkyHSCI0nz2q6%v8Hph^f*!n8yqMx~^1ajZX zQK7O_3&b2%b!5Y0hH|neW;oXx1`B^$@AeAzM$`=4V@ALk&M#ai&llcE-BIwDvkK$V zy`!BK|CPf(@F**+*MJ@N?7g^}#^zP=;;VD8mt)yin(2v#@{TA-tYK-ApwzaCxQNs; z(4k@jg1A#GSDq3}5Z)WH2FEYi2X_#Fy#V20As+bwKdUFVOb-j}rHDUv(#^QK^}YYF ztb6|$8UVFqDZ$als-W`WxPzak%?ny%mXxdl(dI@T`g{Xr3oI|yaGg*Q)t?r>-OdIq z62IbJoLgq`{h2Uqc;FLcWN(MIC+o9JqV#ck!{X-G@}kwj^?ezA6#>!Ehi;W$xhZwx z2~InyCo6h(1(uBH>E|GlheQHf^p%WWc%`XHooUVl}0==N~%xtsHt$}%W1ap7E& zLAx5#iwZ_hJuNemkieYfTnL;-7)E7RMgK6(FlPMZ#*^n+< z^&9N5eeiDj&oq8{!kr_A_hu@pUMTG#-CItAK+V^G{7Fa-@ZC9}D=EocppX-P*A}-@ z>6ouV7sT^YAc3Kp+i!o;F(^IdlwE&sLC4P(l05$u>AtK}fct3Do1|A{dc)Nhd*7a_ zX?AzyZO|oG32p7!M+ie$Ue*s4|CZXU4WDuf`QocXpH6g}C&(LWAM)h^YBe2*AG3}W zQRU$V;eu83wy7JE0ACg#|3U#03kV+&G;mLox9QMlatZ4zp{ciKV$Ffef#2e z#>Dw8W=JUc6PdUFJU=vm1Qi_7-oq49w5!f&)#)0H)&!GE7Hgy!IpjzlTO!n#m;?8* zIJdi8)TgJUShx@g_y77~TP=puoVW1px2W;&c^?hlpH)wl55W5j8LhG-rya|WU*TZy z$}4J?K+q4Nd!FQ}$#T zJ^W>E0xMscTsf-RAbcRxNy8jf(U1$9_D}Q;ZbZ)70tn&-r!|<%dj?DG>ej?7Er)6n@8XT0dG7YBkN$BO5QM~~6-)#*+&p^p%XD@% zv=08#YyEi$^DNTeiDG|7C1+G{8FU(}jKfpeO6u?Hfe3xo*x;F@jdU7J0{_YR0HiLC25GXIlLn zJ{3J2s}HgFBfO3s6|B}9;H8>5z4ZI|XF*?SF*IAPoKkI*ULUGJ(cTj(5W8Yxuc1d{ zaDV#se%B$FX-jt5T2&iAc}wy7WGqzVVO^^nIu~ts7NtaduxG{6=Q=WyP|^cy#+{b}#)$K4Xsh zUSF)SZozh*Kr`PDrU<#(dGx~|vX>m@yrT<$0?Ug?1@C8Cq8@#rm?qU_{1FsdHSJoA zgMlIO+=b#ju+n^^nEa<9M>it9PheA(?<~}rSj6qBj=HgD=<1lfkLIB3#6lc1u^YGw zj`I$^!v+1pPSA60G;G8Su1kL+UZ#lL^a<9f+OAo#yudmx6r-C@X%m??8yNTe57Yqq zAGh5%&znG}8^rh!9?tj*#_h!WHld7&!GQFm_Y^XHQ+2a?%o~p%#fX8|Sogu@WSGvA z9V>w50LFh~B2gUD(iX%!eS;~Rsl}zCMS@tt@r;*2%YJP6c-_hV=ZCh>(o2@Og-f0H z+k1LHoL3xVy_uH%8E3>dE}HnptUR3W6mkE3`&i%avdq_4X(5G4+^ekg7*e;qKp|TRkmZi4>N%oKw?wX^oZZfC`<~4Gu)BZ>v|S#xu7dD-L0tgQ6s;@Io35B}dog+dr^B zKlFTTuCxdKHiQq@?I+=M)T$DI`mOYz$p3hEQf}CFam;7hO~v%|EOCv=rL{b*u`?nL+q#A*WD+_E%K}l0u|4Z*V2UdR>_7YtSH*x*pee?1TW~H zhg4WM4D_8U@sUAQS!P-28dh3iueTYn0$WOAaS3Mh#3ivH#5jC{JPm?se-f{`5^( zlb{sFjIt?B8o_o~6cWZY@9Ui8#1gE$eLVJA;WpqyR^XF8flNmE+NH+h9-+XqX)w%xb zFX@VC^gy^VAo7UOXwA+bw5UEWBjDc;T69-5*ZL8C5!-s4r7^-_^>(4ef9HjVU-jL%tsB=hnxsmFKyLs$%`@)cXcIQ(-2pYY)?ANf0|$W((7 zKl!_L!IM0OZ;VM+e5{eWK`44d1qY3dA*&-D>r~W5bUSR*S}GZQ4gNg2XQ z7~vX-8wwHp%ana_&aA1{UDQ55MNahznj_EyH#Tq;D{f0`RO7xu)kJ%LMZYvN2(%}~ zuBa7Nf7>%;6-TDt9n022P!wGi`6Cgko^IRt{5ooh=SK$sLi@XJq?=81yZ-ga-I^YRT4EJuG}On2W3(3xbiAxK8byq z1)GnIJN8qUzTtZOi^^`KUBr^I{K5}$!RQ56luu9%z^RORamg`tKW>r#c=!vgd=>Ft zvuOZ5Ey7ay`@2=83Q8#+)?JvxTIV#!_Kf}O!!s1V*$6=Wy`{kgf!KwB{RgPz`wZ_R zp=TB;=9X28=$~(NO3J(IK+3zH5g%5n7Po1=o*zXYY$K0 zfePgtmgF++{wSstn(LPT$Lxy`Tl2hl)@jMOTh`eHO!i!AT(V%Fo#2tD)U)2src2Ax z14`*`jM)Jw>MHR5jtmYsz!eGHHRaClW081wznN~#N_s>B-hKB>+WFLR2NvU(xZqrO zlN~Po{y)tcUQ+x)6xh&bY|qN9S79bMDW(aX4l)l(L^ds451f{W8a&;+L5Bq&|9ShZ zUa*E@MCF*gqPdG2xwpudd7YYaW#nZ=dD{U=&q@hBi{7r;1RthI2WQFO`HrF!cM_fk z(K7w3u?mU}0}kfY?i3S@c1e_sJ<%wKwl-;gG|d(#oaUshU74+MujgT=Nd7 z$f~aeYy+iwdd2EclYBA@%=wS&uK*)79$WXgoRD40v4Yi%)!j5G-bsEkF!&&^mF&aJ zx~F?qdx-+BQkxWm89{B;uiD@}WHOFb14m7>iIeqg+ck{g?oHy1DYDCvH5`R8m+bxi z*FKvn_Nh;#!D7lvjt`~SlSh-Y;AOr(?cRuc2fZ?#_)G0_f*|wCO~b) z25s?^ej!HezJBd8^Wq;^JybYXNBvjw=5>sT5I+GLP}KBIm%-2^E1cdp?%q7-s66dF znDL~&mXk`fy;=JfXl9~;56x!cOEj=b)KAi_#3UPY_1Pcv;i(qL+gNUDasVLS;C*EJ zphm)iPTf@tyIeW->DQK3+hx5!H?}0|pqzp_d&TP=k)uxq=3=UR zA3pxzu1?UW4lOr#ucCBgllK!LK+{H=*5H(IB;xH1@wkOM*)XqQcf%Y)(WQv*pH9!^ z_ExFu_#e`(?9R9hsY;;7fLfq$h-e=ATJsg-3?_HKf$0Oy4g50Fkw(}-9Ioo-j7x%s z9!Ak+&PVP*oIbaf?;l^(Jm6pR**m1TX<%7$wtbJA8!hfZbUJfQyG`?1qK20sn=l6UDT`B z-UVC;L?`^&^TB0I*=x3Cn=TjATvaMGnH`Unw49#Rl@R{PT^un~H&xR&FE5i4i$c9} z+VO34!ds>P-*L#&Rv+J)V_1vg+XHY4bWOja6wFrZ2J@KI*aFJUyMq`$6ux~_deq40 zE(_Wh)lky#2SIO+`3X?RF;}!^l<(6CRr=j>Vu-p``jp=#?b^c^Xwbf& zsb>`J4Df`^dwsrKGV_N~SUF2!8QFj*omZbE?UrKDHN=T^1}+nF%Ipuol(-E+D0?}0 zh5pU8TxbsI0-1RT-0m$QV>+n1(7>~4tO13$^mx2~ISjkwxOwgf=b9f<#+s{$VGJR^ zMVi=34#@9_2`QQKVs0(G!8P>#Hl9eI+M9PPLst&sMLjaw_sFMjI21@*RUdZW?vC9Y z8(^*czB-LMmDu~=qSz`qKj03Iu!^~fZU5)2nX7bUvP1i{vmIXXv~puPK`7!xsy^7T zttC2YL!3+~xbN&NX#FRTijCK0C?B}C?%Pd!>Ee;Izpq9(Wff4f-knb6@H%Kv_!DvG zg!E}OQ}1I&+bcjB*(O*mG2pePe>hV}sFBDIJ{`34X%9Kaf4am0M%sR3s6b9Iu?kXD zcU61Ygm!Pu@dgPmrlY&3dKO{>TIKpm`oD06e#;d2 zsCY6OR{Jik3~x~WMsyb|Gk#{+J)|-|9+XA}3)nyYlZC!PAx5UbIHP$)+@c^jet;TD ze>~=&Mn(mRDZ^L3yUaIEQMA)3_{|<}&a9prw*)oS9ZoyPd(`>E3}E#C1Aqc*j2;8Lx+K^NwF}i%hG2A~ww( z#Vbe5E*fKr3=uVl>kh3J7j?2HS^XOE$M%=51W#8TR;l(fMbt64)cr~(Q)xfO-eUJ|NLBsfowGto1Cd~#XEdNBj?Un5TM^UH5Oqp#TJHFC1(_8%! z_TjF~rG=jCKM`?Ip(Rd4N-bt8DUWJunie3T5VM}hI6PZZR2Kd4VOnl_Bj*xcSGwms zQ}vV(_%Kx0qw=fba@%f{fdZsgG|oSPatXOnX{+h?za~g^6C+nz2_ZRZ1e202Cz=HZ zJUxk=hH}jZ2M1MZ#82aa>0PJDi?#{@c$u#i36G9?kBhHDRx!=sMoX@4cdCNE&ikZy0chLj_RESoZun*SND5oLQ;f^ z*BL+E5c-a1Hcd)Vl%iz4O<54ggLlgGH>2%A>5_s#JH!qAe*=uez}=ak+J4W^U8%H( zF?ZQhNMr?|B`1Ak`u^Mqh0jLs8p35wODex2Z!eFVP}J2GhNZlKEQiKcv=2&Xb$^C! zOa%RW<-QtH6uAqGW6Ev?0fY&>KH)CV_WC+9uGVu^OWdZ5n)86=WV$2q4vygiS0TB| zaD{TLk*>Nt_ReUTok+SjOC@M3=dRk2?%ZOPZTcD5#T6hadETrLhHt}H6RQQ~*Odwv zByyc03t{0Vr7I6z@_swatT%iJS`S}c|Gt!}m}2(qFc_V^eIQZX)OIcqTH(d5FTf9%z3VQKO~*c} z^w6jnmmjmyQ<@A=7gY68Lg6c5$KxLj5vG@RzGV^!uQpV^%-oc>A-%%Zn+iq&SDaJA ze&ovbr{@bbA}znKb z@BUTWu6WkR3M6m#GxLKVpYkg{axFaz91zJ}coXsr*xgCb)$pmP#$wIHYY|W?SR8U* z14!E>SGFYPYaT-j0|(52!h_ga4q-*v)>v5oN}!@0vs+|E9P(`Jxi<1jVX465?HPPz z9TeDK`qFQ~fFwg;61C4+3K9C#sD+p;H*;v|0~i2)EAL7;^k3hb+YU;J7U3yt+);nsEPvgR!h8xbCXV&sjAp?)7zy=bli#pE9T^yWEpo0k=^vGvQmcs zIj0N4O5OEJb8XbQjvX0;Vd((%V}`_e%c`MHw=%p^*nubx=6W;qm3~|HCT?mUK0*>m z>omU_ESD#3HBxSU1xRj^lSL!j*o2inv7khxR_nlUG>^B;rjkp@A98b#zb&<{i8WUM5cNiPGoHR zubGDT=B)%g&bkOZE*IFX*OnEi?=6a(e}Y>!Y!NGm=b8*>_{~UHdbWz#_+<6aw*^(z zDxob^(Xa|W7QI_O()y76R_(UzJ|Z6$eM9!Y52}3f2}Kc;GlhASh+PPs8{TvF;T@DG z2#%wEq;fjo(dK2~Q|wfg;P@!w#7aH;$)>l#j}GpzDkHre1L>z#tg;>^H?nmA-W(kU zN(?&}!HYlH{>-+siy01Tz#O#b)-+6i7Xi+Ja4*_a5 zNXSiYVwI_({w>hXvAX)A$X^Qkh$;6Vk!ci8pHCt&)4w`in%);e5Pnq>A`ifraBb7a z5qIQV{>mU`t;es4aJXIgb*}b$VGR#XjsOjNFZlFLL!bFkK<~LrcYn@&fmt2Gd?JJ0 z+CHQB-qHZgy^;D)X9jEYHG82`h4YD-&3_E-k3L9dhWs5=owM&&Ey$!4L%ih)##B70 z0xiJ~0uPT+O+G*kV}HB1kiS9g`NAP|{K$T!(n)zjQVHriY{4pGb6ZROZxlC#PmQvD zePbi@#OmyDbLp<|H9s@PkfGhH;29f$g~%dXKEdwK!2GpcCUVfzCysA~9!0)w|B|1` zCJrPI-qVP(?aW+`L7-49-WHlRR~m@F;qzv9c4{$_)FB9Z2lO~?j8Dw8RMi^_sudMfURk`uvHXa8k2jg-R`M22|zmHW$8MmJf0SRSBj z=l6C~Ea>g2+Cfj%yWvsPg2g{q@Dic%!TdXrkrN8cKeev=wevwspr|Lw%Z>wba}3l< zX2yy}T8T96zn#K5GY>?f(}2cX|0FNf4WIn;u=KoD=EE-OdL=Vs_jKv<-37_9+5si= z=mu!VPekA$=wYj^LAPQ^0`sxok>({=^DFf4a=4uyi)Y5E1Cq z>7Y5cy@2?lW|{={jAJFjV*7Mi=MLW!wweT+zSN;6C=+A61nv4W<zFD)NvFJ31j(Jf1lnEs&pz%nSGE#n8AhmCZ}wD`18jbTx=g575k_K_c)4Ak z{-Z#X=3H95KvRP2Y$*|4e$k=8_*>r2^B`TNPt(mHwRqr4+;is+Jv~0}A5+#VOya$D z%&vUZPOW$M)?54E8pQG+V=g-uBtZv+E)uSp&;E(Vdm`FshjE<0?$(c~c)AkI7rq51 z+y`!r&;eB9i(r~2w{6fe_~bykrt37YVej|df*W&*uuEbmGL#>9(_J31Qv~@dXBXT@ z1d&RF`GG7{OL%ceSz6zeb91ZOxK4O%BleK3GDm+SOmCXt# zrQm}iZYr#ZpJ70w$!igvNx(4X%&dHj?N=E*S~={8cQ%&BYTdT<2+WyQ#N#DEWe&{Z z!2e_FD+8MT-nT~x2+}eTL-qjI`1_Pqjb?!vDnF7Uw{FEupH>uy6nxKN3uUL$ zf}BKpE#3K3Pue5sRyih@%*Ab@rGFGpr}OsG*?d!Udi`<E)77hL5EC6+#6W1bkbdSR`0o~8yY@V`xwB!z&Zvnb{C_GRIN^&>my{+;fd`TmmrH}-`i|;Gbhfb6RPBa7rO?dX7jz<|-A^xu!!-4^UF2rL)PU)Dt!ui5o3Te3 zta>46R1ES26!J(VNT9EC-)wytq)C;h8|kndxmqSBFza7x6`~d3Wwv3RqZ1jhlPNQ} zeMHI}R)7T+Bz;;FQWzco7Skn$G|zrHd_Lz{`(u0J6t&uyGiQis-LlORy}7Ege{U6q zFVA;BVjlIbEYn)bxDNe&ZzCIUEV!lyXptdVsM3knHK=vUM#r|csGL4}KcExlTh&(j zn7&~-)yS|kXsyTOS4O8|S1dk*LTKrJV2hi#t4Fe-*1F?r!LJbyA-y&9IcazM$y&$t zfIZ`NBz2YBLH_A(Vf_4Z!<6o8q~rJH)?9L7@RBA)gax-sQWG5Vpc86ko53f#6aU^& z0ia+S>%;PG9P%lTY^`S(x(9oxLjdd#Xw6K!mk14clk=;3g!!BG5(()&w>Q$b%H(PP zx8DZj+d4#$XtQ7!FJKNb49rON8P(!*7A<-?)3qIy>xzeqbXHwQvS#)PTHSy2t*dZL zGi^nSPc4Z!foU7OZLU@A6M?4-3nyamTxGoE3Z9zH6r-YT+G}t*JK?QGX{O+pc(Z;a zo&R35Mvf$+Hw8=;EP5Y561uI`k`qe$CHn!RG0W-Qov*5dR2l=6dUyCjzO`7ffa~NfdC!v1VqMPdjVmv7VUzR9euU?!S{=(a z8XL7YBL5;xmuiBk{0h6;t zYTtW45fLJmkucQogLMwS7bUi6US2dQl9Fj(oz7ii)}Jik83&Nec}d*s(f&k14C6Ij zkPo^>_UNpX^u^8ehgZ347FTPG5p7l%h_SeHt)V?~Yw1~B&6~|>%2LP7)XAj^8@}%H zM+f>p>@m*NKx0ZFWa15KwHn)Z)JC4xeXrA+5{+2FB@6x;lIVPsVTX-hN=IF(Zhs=Q z_vB{3qnC8d4c+rdVd9VJHz&&U-{y#!mlkt=K1H9nqDEcb_V8YNK&qx;`h&0h;P;E7 zL8MA@u%rG_R~!q*C#z#d^SUlnn|&+(Q%xhWS-94FJOtS z|3&)xur8R12h6eysO;4z?M9T%J#ERY6U|r5%?1eXv6P(t=Z*KTwm{vt`)x-63I0n{ z@j!l1MI~$dDbIYf>iBvtsoLt^dOjg@q0xohk6cE%bXO6kOiPWG9A1u>I0#^VbV?K7 zc{-*0Al$+1@^E<_eO{XT!j-dh<}{mUohtLa#7pNGy>b<2jqiT7rAfzLXw5axM`^mo zq_K&-h-J`XQ&0#g7wSZhJxw>}qVsrUbh6-@w^dalJ)?qqbBMwe+{CS6Rx98 zb(oOZ)gXZwyt1?tNJ;(azIH1#PQLu4Qu}AY2*=2!7S_gbqM?4R8$R(uL1%j;?N&LP z1E4yi*6D~!$p3a_@Yr;}8~+ReJ&kLJSK5%o-K&C$8&f5E)ItA~idbd7`%8dEkZ=wJ z!3y-1xxe@|i$FSyRFOjfbG%B+b9a8EElxvUXg^iZvJsNKT=~h85?nQ*w9X=}Jrp z-OUL3D$sFh&@`G%Ji}CLABjybbvpK$hrC9i`?cZo$?WPEdeLB3M>HOQ1)flQ9eEs%Ed5fdMK&TwW>DOq&&PRBGIH!UUrkaK;-O+g+ zuc0V(G5cbczi8*{mJjKR&@9lJe53A}Klajv=WGr=`Nhx8p()wmT77qs^PLMN);KfA zZe#oD1biV8Dy{9_={)*CYMpmH^{q*pZ5JTH5pzL8Oy239@lgd*SpT0(LiNA;xMRn4 z+W#%8CCHxt$ypo?luPzh-JlH{L6zK&^2JRy89A~N`V>O>Q|X`p=`dm04n;ZRFeA=X zbIzkB|8hA~X-YcmpBK<&ksqTUmvstS#e;xVYmDJlrH%B>sFFb^FvVvwkX45qq=+{C z;>(XQ-K9|{j^wu!jq&+9xa!>JHC*QDn6eynQ)+bL+S@ixdGy7Im2m1CZM?3gDnrsv#`N-Q(5qDq|cZ@11;HQ?k}A{3S(@seH_tnv5=}g#Fcr z_ma&}Hpo9111A3Q-F*)YKwQr8l1x0>G7jMz8Jcf|Wy&Qx&$M_B&rEp-GEmome)!X0 z8jdF?iTkbV4gy#cP+cQ|UOz!Aq633|pt>Z6dsPPfGGi;XI4-qSxt^VnDN#KNmxzry z#^lPr;Gsn=?TK)x>`x3((pQE%vJ&u(2&2+!3dKsS0@m|!wLK6jjxcjsqH7kZ)ay#I z)(+e^wQq;=?RvVp9+~b;6?eY5B!ks=XC-UT3#C^A^wYi52C*haooSc&b3_L<=%g+ ze%7H%^*aM1zeHk(&;Q_4e>G>g0_**)Ub#?l2hS^lFL80xE*1ABj9Rqzoc`0yS}eIG z(3`?zw(jF#UOHJmXZz%{q0)P5K|1cKrX<0vskLt>-YwKRF${KB_e% zCieWvMLTkH?bn|!#w9et4apsGj`EvSZ`)=p1#|O{=|ZRTXuucK zG11JYgIJ7RYX`*~Zk zrJe`u(bQuS3FEF@{fgVWOIha$zs`7WG{l|#aK3m|6K?&@?J`rGhvf3xy?YOx%m3q~ zlrl)#C+IQY&qr?@Y{ciA$(+>67rc6o_!SFD=`T4>nOpX{kKSVG(3dxLj}3zofBVoe3j6?%Cur1}%VfSVC( zrHSE8PYx*?!Wf$~(V<3YQ7|24bO%#2^g_wtyxx&?Wu|K}zQ{K7V#=P*{NTvvelS6u zfN_*eI!Sk+Kz_#0F~7ro3rP)y0K{+zw@lado?K|F#6A3>=6?- zk17y#$}F*)pN9_%luq-Rm4ps+Eq!_`r%$Ndam%JsmrzghmN3G4^(^|6l7C>0SRrGu z=I{^ys~p!U7$nwngsEYpgJaYTG-W|#TWCY%uCbADi@3|IJ1Z#aw*Wqk`1BRV6h>uq z+rZ|J~h5S!@~1{1z6iMXFJ)X`8X(C54vtEc^5HN$5wxk`;6a_Q2CH~TEBj;X%L zeYYJ0)C#tJ2dzScJJdanY5UeP#LxtpLqpMKmOt0vm$6&xc=JG?Kz=&ktq!O zMN}bOBy^$GUb;8KD$2~2PEvAFn(T7=Z{&6*bSS$A>*aS! zw;J-E-U;cMNdkR1wmN#FbJeYV^OND-`eu@Mn61z?b+&mDy(0sI5(4$Be5&pQ+N^=I zbBS@=okR|9vd+7Lth(0-ZxX(>wv0O2~YTBe5<>wa@dO8!3H+%Tz zk0Xj+tJ%u!jb_}mb}Fr~yY|ddz$Gc21zhI7Y>+N>!n>Yp=G3CFX}U_D@|O0i{*T4o zrR%j{(u>FAepdMH(^@Y}%p-q|67+4jh}Ax76wT<+xP=?2l3|~INs*^V+C4aO4o<;_u69V>oE+pcm=78-J@ z(=v^Ze+xd>x8Jn8BjqcI-i{9xbY5&0TJ)GPvA;OpbRk!DU2YH9M6;ZA+6#0Nn(vkz z`;YiNO~_2ptMrEF)V-2Rz9A>QPW7zlax8vR(6#pa9ixNj6lH;%Y~Hv_ilmcqF5a( zrAws%eL-2+*Z%IEl&L69RoY!@U>8`Lc?9cR1CP?|zja(C;a5|_zUyHbDpWGMu!!*c`@rjRL>=1el32&&nRo zk%{v9H$yL0zoy8veUmzOh;K zv~HrUs>ts*v2KnDaV(h^zt+3yFP@ua8({@WrQMI(fB$zJ-hpxS`Wz7}dxDfcN|8r_ zi89OZ`4xqqcOl!i-&An}+3tB(r$Bd-sTBBOfwAd6my^=`9kKU!A!&lBbexOS*~Jw> zXD3|m%8uEh4%`D3HqdQm*-o#;dWm;O^J?FfN0WXBvL8_HuVpIuE19BNe-yv2brga=P z4EGFfF+HV_Jov<)Ve2Fu&Bs$(%}t$9r)eSa^4|5%M*%}E4&q0^1Vao#A7g3xw4A>E zoBhJd!~ORf+Xv2R6DvhoT$fAAJzr|(FY+C#bv*}4KL;K)eNN;RN8iUCCXe}}L}sB+ zNRv?iJpGHaSCQFE)5Gp>AIT~FfdZ59h((fh$X~sCr%F&p-_o7&Ff)N^`g2w0-qNLl zBJ%4>`fX9u;^w`QpU8nXS3m15t#_YY$L)~$ahSOV0g9wsIN;0dY8j0m%c5@m?!-A+ z3+aGl;Og%$W(PZOevuKJB0KWAO)e6>pr+q_|Dm6YBcsgnGi`f$O**KYllJUzme0k3 zA_K6X<#V-Uczw9^M8k)et0Pyq(TOv)zvATxiBXl|m;AB+j)wno@8i!b`W`Dj)sPg>hX@|1ZqyoPFnp&K71PQQ_sOT#LR7EBHP_ z94$i|>(HQ0mEWg^3btx%ihcEF_#kFFN~!sje#y-6XY955=n0#`lG;(#jo}oLotb2Q zFVj@7xv6j&mK-BpKg9&|T~;oq)jA75WiNm3f&kl_v`=NJt8NL{qj{HQyoE3f12|`ap-%$>S*t2+wJ#J4)WR4JNU3AMbdiEn)6+PF<$k;S zN+V}R;PvP%bz;f_7R=vB`=RNI@Slz|qZv&(de60cD~$|pNSKRKPY=KoJ)h_= zwB57e46{k?iygd+M>AM;Ww^=Q`9N!xJiBF5Vx)HAaqZ?FaqaRQCPlX2F(>U+7j0H; z;kHKXyOdADT=G(|2~Vkl6dhM%lZ-iVaZnJb)+`PM9gY2}1)^zFcl68E16S-*8flX|ael9fc}V>Uh#ntyM9)2)zz04w@IiG;}G zC2+xVa|>?fg_pU+1}B@5fneFZNr2*YHk`Td(|Udwx-yu0H(z z(a=7Po#Fau>WCk1mR>7#l?*c6JZZ08RZIEJN z9NmX~^iYB+x)8V0hou$2HZ)A9+?{Bm=ghxDMQz}HH>#E0P4xYV;!lpm$06naom+!f z9NPp&KnWOuaTPf&*j*(Z{iZ&|OTXSGvPUWa&-uQfzvnqbNs<2b3cVIPOtAf`hR-d%k*RaN!gWu+8m2(g+Rq^6YiGd`5B+`#(q zF<(wecesuq<8(JGk46aWTPX@0qa#eZO_~o58o}ihMebmRb=s_U+%!%xg3nUDlq(r>oJed~M#2t$K~XCWu*5f9TsD_OZ<47Ze;SeI%i! zokZ^3CW=_ync5Fvf58-McH`t`9O^{@pCjl7vwN>ItQeCeaUfvZ-@A&e=%bHoSG_%{ ztnI2u;&B>!4@>lY$!mh6|D*}}4}ReG|4s%-Adv%@)*bza$G{5S<;V`@Lb z!Wwd4CQQF$#hV#3SNWjG5wo!xqMk&V|B`MU9-a)>f6mlT^3Su6&sE(r!{CNxbyfqR zAbd&_X5uw73th3Sk??FEu=LUn*ZJ}%Nsn$CUM|u=x}(KCg2@r<-KZW%T9#b1`ZlIq zD>#g$@T1g|?r?%7QqpQ?+%hFcFB?+Jx1U|soVsyVU|xEn?5^63uw6AHSmpn1JcyYD zqm@IeH4J5$hFp&AG#kA%F}cecPs+O2O*~OU6)C=%fm}yO1qmS?b42b-vVI!6mt#w- z`~KQt&hshbg(g+nF;AmzBZnNWZczQ(Ff`b(Xoc$ILPx!VBG0S4AOQX*RjvOlR_vfM2WpwO{#kh=m(#*JU>EvItAX}CUUq~sKq~HM8Xc6@dn^~1lh@#aO-SiBY=$;f zWq2{>TD3k2_r~Z*Ut)w+-QLA#PY}|zW-Chpi|y+^gdHT`o~}4v!OyPkb2I$shTa3x z;K5BY^8_LbrUrWYS<8s;`n~1(B;777a@Gc>3;lNCqSJGnkg>tl^V`VHw>HBW|8ozF z0Pud|x@J+sr>h35u4r`Jk<*VliIKT?i69TD^~|4H-I-Dm~RDpW6YU*?Ee(PbAdN0op@QGh^^%K>d` z>Jph7|J!*faP5aVdSl}^R447c1&EvwgZl|FClQ)-0K@J;qYt*J6H|zZWI3WYcGG0^ z{4t5N$b&gLZ7&>?XeBZ#6gEvmW=s1(O$~sR=S8Nshow%8grQ!ARagxVwKx6wpZD|= z#+ws3o#%C~<|QZ#1+6Uk&tjla2X`QUZfS>GxIb1p46=jTSAlY6tnd}ys@rnmlyU{*K}s6gZkY3 z#u22Kq_{ii(2$@v9GLImkM} z-?Qa_wsk*vk^UbJUvrUmdoqJCMv?3Z#N7Sl;LTih(NYQ)aUTke4C%wipQU^ z9QU1B{!{2zLEF*v?(G=v%4bLGBW^iC0F}rwr2r^uzlun)-_KhZ%+!Yc?u$D?u^e89 z1W9hUe;i+=)b)&BHIVe`vaaNSI9m>0%L4r|BXr+t5FGN;{lNd-#w&I_eMv8RW1shs8$tEdIWtnH zKR(^@|0{>bz~`VT#wer0_JY`s5C~V!>h1q<9K~WsnJ5R02u%P{)Z}4C4tT2pNm}sU z8?7{#=71nVUP3&7cH*6q6~{!f1U6EY5=^F1-I$-uw-=a5;9kmlpej|gbG<(Z%W&K= zf$hKxLacqW1kyb4c2(>W*ciIZ7RcBm%N%jT6g+J$gx>qP5D4l%VW_a@iKC_MMGGmx z#gI?n-2xGKrRW(8M0^T|oAxSK-D=V;*HA6vfO7ITh1fA^qUqfHAr31G%b0p-nXC!0 zVk3%FCl}Pi51Xv5l(*YgwD4qYIY+PnbXgZMBd5A=jLv*^mAV0`=>2ggJCO}Siy*)~ zn1X-*OBor#CHEU3wiSziK7q>^zFk#OAt$^m@nu`0`|RC1gA8dy@KA!IQ^2beTv~a4 ztHK<#Y);08Hf^*W6x2sCO`iop#@chqUu(>IrU*2EG7qVTy ztD(--mEF_ZZDJ9Gopc+_1eJ%Nywy&RI#7}6Cy;S(7t^LyG*I{X)NuQ3Q|%0V6dQQI zn*>)@AK*8Rc{xI=RV4zHA$BbMSjPj~*j+d`|8_|1L|SD){J9wr-Z4v{966S(yhImS z@aKASWK;pyS#&+3{Kq|l@xXPI70U<$lf})~Z z0p9FnirWYlKl`4+XQC~Od4#=vci44sNCQ16$G#g<4KU?UE5mnTWfcX8;ne*5glpyp zuy;)B}te4VpRHu;|FhPS~maqNk@fv2vh%r!{rbA((gTn~fScf@OB zJ=(J4a7qyr2gZilSm4*yz4}I@$570~%JBEgEK1sbUhEMG#JRv&W%;=l@_ADGT84f9 z4<8pv2=hMB!!amzaf7B__n&)=P*8f-HJ}WETGref?ARVpAQS3Qn5*^%##X zy3=u`JKQD+kDP;$fRqg)fm$_R@6&Ia^#Hf2*c)_-78QNXwhLe7*hJ~2szM+Jxs2u7 z)Sfuo1m^V5kbV_(o)_$*9}@&yDQ8MIdmP<&O#x!3So87Mv|lY{D`0HKCk-|VfxFqk z;LG0n{(u^it&@D6D8ENtCc)@hJ@Dr?FWzQA>{Q8Y3J^B-n4J9pccU$t#P0&sK(6eb zgN^5-WLMD+t}xnU#2cHRhF71x7&z6+K`0hw2~ zm)1w1M`(_^PNbVh{BdC1&O)B=j|K;E9Q}IcD}$Cv4uYT)IwmPLk|8T;T>OF%1~)3s z3_Y(^(@jcA!iQA2^yPkb;hne;Sr2929d%{F0VhEY+`oF%_rFOV2&u$YuxU z@X|L#=Gj0}MOFp)58@a(ETG*Us~dx_%Xl@xF^D9-96>gmzW}$8jRh$n;+SbQ154`H zD9bETh`5rrOi~&p6b#i@44ba~Jt)%b2&_aGuoA&>?)ykddw@$a9piRN&`k(g}rX)7zk@&k*sdmjH}3^HUNc<_F+d0nG4cDDo&8lI;f87`|1Ll3#TymPKVp9l&uh zu}*wPnQZyB=EeN7zc7z)kD?3MMt3T(4j=4RK8sMk;8uW$n>Z0Q1?XTDf$|y-P4C9v zjPn}&9lcowKT1JtF}u1E<3X~Y01qE}d-Qr|ck^}tBjjhC&bc#nUd8LvB@S_nxLn!n zmjEU4K+B(Nd2Q%vnHLSqC;V<8kC#n=yUu+-K=SC7RgEjyU?RvfI)tJ>NGQ0!{n_Yv zjmPqcKt_C5R&Vijg_s3cIXtj(td@b#cZ`v_V2qO~wKKI$-D7OXZSPf%N`UQL1NN1w z#K*?dtLapd8sCE}a1kRb1UM74mGbOr}4GvAFkJ^ejQVALjBaO)`>q|<(Nt`YO(eCBuO zuhOn;9shs{FM;^u^|Ymw_7jn;?{|O-&Vv#zaoMI7^!6aa4?jq)&eL9bh~7HOAHMw2 zUDP)3`j}+B)AC0@SiwnD+0ucq7tpi$FmO%hO3~@7%vZ3Tz8|y@bMNm^ek6#no8OM% zXYNX;dt!azd%;irdKX;LJ;zDdH7)zCR~0m1EvIn)w{P#bE0{KgEU-*Uk-`T^t4efk@WJ-TO6InA0hvST2B3VYQ2@yee+&K=&qgL!>;hhAtxH z34>~4$=MwfZQv=hA844gg4R(^rz?odnai?3|BaE9jP~PY%zgA4{QNUC8oaSNSRjE& zN*l^w9VOfa*J^*fffPqb=&r#(W~SRd9=qL+l0_M^W!j$`Rrxk4u1-#zl?5iotJTx5_%QByI+kQDq1Le@L zt?t}KLm>aF1pp7fhs(=m4qv5kR+#R%5XcIxjS$7Y=d6*tW@n1CRMRXnFOPo3LZcg& zFCsUG;24hea6E`CGmv@J-X9;^m-dD~8MF*%5Cu8Jl0T^VeqUvYh%Q^qY0mVLs{D89 zvX7O8>FjPpz;G*&hhhS-QqfPW4Ii!TY7;}A^19|dchZP{&n0^llNdFieq$1KrV9*? z4-i}pFd@#47LePvnO{{+I7j|sEAX-(437NR5i4eA6KvsG@R~%Es2p{-H?342SLt>P z*#aNuAWK5z{L}6W)Dtn^=ci#9a~=tEROTtDpJ_`=iXKtNVeypaC-041mG4cr3Gu4<1vq={QkUtLix8< ztaf6z0b_wP-w$wNApHou@HOzl1e(_qaWi=9=#dMXw6z_o$O%I>`PzkM^v6Qc?r_(} zhXI=%=;s%QS=eYk;Qac*BY8lCt;I`Wli3SW%odR1$X18yp7jv9iOc!IeZeVKQbaQSZ?7lQYv|C6#g=YA$d27oZ~K;|2o)R3Ln zz(5Sqo>}$jGe|c$wDHCtSuvuNoJ4rZ)~J5p z?!pT9OxZP{Qr(B1pB=+VAgCn0a4E2^D3)yxz3ga3mEH=Oz

kGL-x1Sx;Ap#{xK zIyT6pSyN(^l)B7XrR=ALFKt5L@J()s2FTF*NZ|`ymv?9yjHe0g*EcUjuTcNEkc zOvUqXNsnd;ESN-ci3R4$sM?4Aw8Ob%D;5J2Z|A_DImZcAOG&_6{2){U%Ug$A-kY(u zK4IpNG5rJB=#4JlFCt&w_4&Cp*7MPl+#M=qs^n?CbAHY{F(VStP_Q7450PaDD;{zY z&-_jD53rf3ITP0*f|Fa7pIyF*1_3dF3L{=*_*AA53Mvq;ANZb(t$>HRC>yaXX(oq* zhwk=+C|=Gd!F;M5Ut&IMJdq=|Di0&W57CAR=lAx1hSil45imsOxb?Vn>{@NMHW`-U zL&i+C!R~FzOsDyb-6QW}`#JA(w;+R9YkooNMvEu2BwC992lkKIc|N4`S+BtPu&u-M zH&0ZOwyz6@Co>5nbXFVgct3Q;EXDr-BbN;`scsmK{p^e$4mFkJ#rm`To=0#Os7h#o zCTi=A_C4P$8i@E4Cz4yua<4?GU3l87&xTF-xG%qyo2COAfCB3m(8kpjw65)taCQ)1 zu9ntus&O$*Aft@*WbteOUIjpGJAR)EswdNyKO%PTk+nw{woDcg2Ayb=wkq$!vsfO& zQ;o9x*OoVsun3a_@mj_fV-HVlPxVyc2@WzlZ%&fgjVTxLscwhw<`74L#*o* zBvGr`NQyBUoPY1$o_i8G0l->*mGed17O;7SA;7Ub%b8jkT~#|d+i2hUZb3IeN*&}` zhk4RR%j8IO!hp7xsGd24Tf2~`yaT9xsEo4-u?VBy(KUGwEN2|g02p!|{Z)Y0-t!LFSW8Ui`X1N)Jr$fK1lgG2#9ZqIqob3Wu zAs0v0jpOq67rrfS>URw}G6ha^C*kD{JAU^dvEdzk^MV9pU0fiqa+WIUY~wpoxBnaj zR7H7<#4kZnT}f4uM27F1zdHNz&?rs32M~f(&EbprtG38-U@?@Y^de(VBKZf1v!S?y zx{6{SH9u5M=IcUT+mZ(#wY4+zju#{kXFbn;YT3X3c{apB(?Rd{)UxOt$60|Syz-)7 z)>kP_5DT^Dj{mDyAVtoTG$>cS23T-%dFJx)k_{4jiYJ(+6o?r*MyW3I3}1y*J1+>& z;1#FXMKj1<{>QFj{0c{njIG94=$)9ONxq#(8)C4%P8a!r7>_6wB$4>rtBzx@#@{tn zNj_6ydI?F@K}cQ=>g}uGbUNPK0H&tI&LGQky(`EU#}&p-zrf{{{X*ak4+`jFLFDlB z1$9{8(~sMGgB^k$KJG@%pw7z4u5Jck!sY6H^4&jQ!mHG2%@#~6QUOeTh>(~(`~bT= z^-F}*{iC0N$9v01__!{GVgn+A1Ig~=9RvJEWro=Nh$&LyKWy_fpSM~A9>)N@G7 zsim=NRn3ta>>DE)8SUp@S*~eAw~pG|52sY^k4^(836-7*)bf!}s%U47rWLVMYxv>r zf0=dm+`=55sa^p@L6&{h#|I%(V6;CHcm#~$aaxwEN|Lchh9fD@9;I$a8IOy_@MTP5 zq{JPxHSKK>giK}u#U8^|M%>s!*4o%BZ_E7NBakhaHpv)mM1f6KQ2v_#w4HCod>gA@4%IyfEN)!5BN?555WKPduc*nh`@yINkZODMhJ24 z?moBQ{xk>wn;OV;ZKifHGVQ0Go#I51y4P}0 zbFzSK92xl}Xe^o^UQ%jU8^ueL<}cuBC=j&zPl6JXSF=gW$%AoHzVxld{&l^xI6Zc5 z-ub7ZdBvH>0|j>D8Nd@%fuL}rAlNrq*x4|Z&mzR}fA{+uOu8QA{7+E&*)sDEBm<5% zzH~&Ln~yc?!c4|#2JWoP06{PMyCv~`nNUeV0vrPjEsAHBSP#S(s(rm8PfuT*R%`5F zM;XwDEZA#P|D8FsTlNw}8sx-5HHMPB1sz78u!@$_`mI6J)OfR>ztN^$c;CCaSO7kA z-^9--=RyVYw9dqBM5vNeLrWzQ(H}vZEd}s3dAhGf^_V9o@=%d;v1V`)09=C>!Gg5r z!w!APtY2c}hzOni#(MjBtuw_o<2QYDfT|Fxb((v8L>%0Vli?`5tM8tiD#LiO=j;$! z55NM9U!}~MJzjTzYNU{Tu9_jq$phckQT0mi=4D*zXL1#+A}($wnbk?dM?C<*VFnlp zC#GKgY+Q$PDQ{*K)ATyrz?nKn2xd0zUy-ucglz#=vO!B-+s|#l_-dhoEN;lZOB)(q zF!c(lXc@N6nh*sUM*E~SB-x9#VxzHnJZyqZGL4%Vs%}APEZz^>P7~o-IAJI4uuImj zHm$W$O%-v?OoP08{{Pc;W6invxF~AO+tdlzekZ=rWywisr;oD0vfMZ(EzgLL}9Hzn1Fa(9ey!^utnavHd;*mF-N)7XH1UqT0=RQN;`Uf=Bt?3uRiW{MEziA-b=6x2Ct$XQ_y)I_{7%Z|P( zn?hBLUj3hVrr|P+Te9p7h-3iGNhQA44rdws2&aGuK1JL!ZGTu$p-zF_B_>w;$4=Uq zy{?fUR5kA#XZH|`0*ik?05fE!iZij`Jl1SAoLBzG1O(N|0UW(h{h(k5E`G^JA&L3q zKAP^c3EYKO14v;*(jNO*s#2PtR-MutvZP*u*a%ewa#bHdTb%)$f#r7iCQFcWZ9uO(DN$-Y8|1XwL{obG6X{JKp%1Ttd1s0`SP z@+GZ4F1`v%un1x}&;ZKAG69uqWB=xa1Ttov%LuD7sd3=5dk5yVtLdRfnaU2^8Zc+n z|E_qByCNAJ@=(ET$Tpgl5^xrowe)LGKBGck{6sejuvh7r9^3X0m^0+w^aT|FXrHNW zq#A1nqa@MV>vH`tK0uF*{W!Dnbr*e?c%S}WK@BLeC-9e zq-gN4Z>ZbDW;eCK6GvQk$FJthfx+K=B%c8TJmDq?J(W-+phl4vyV+5QgrAp{0<)ie z4OpyiYa`dA!BHNuKLBg*$}=4w6+tH?a^mkoxIyr<#nbdI^QM(P^6_7L#dOZ8h7s^ zV43zBw_PUywAlYb0FhxWF!a#l>xB(p1y{eZ8$T};?*w&zq#|F9quw^|X_yDQHxz;XD z8*nsmbnjI>ru|+DaXz4R=amo&>C*g{?!JTCkpu}oNQtGB!%Lj22|qWRX93}Up%?XB21JsMg^-c-sNSL2?3y6=mk-}5agb?VF2EB&^* z9K22q=eRdEdXWOcop5tL-;I#~lZ#OJW!40ML?(&=Ux6`8b~M&Ttf|CAR-T9shPMgw zRo->-vqFX~6j1EXlqqZKIK_h5)g%ljLuh}D?G*@U;UtD^-LrOZKx$`ze3@!))oIf( zLDM%FA45X%PE2RnP2U9h95wnGR#T=(<4BTzP`9T?XjO3QmF%u!otG|2Av+sLa=Zg^ zb!uk`J&_xCmv*q6bwq@zQQ*{)j_H&xX}>br!S_t(z5>pQJuV_E8yfjtg}>=DH2fGQ zIoz?l|EQh^uYYT#=tgmM-JK}Rs3J7uYAfY{{t^MP=eSCOCH2<UV=Y;FGJOnoQF?+h_u%WX5J=-9T;T zW^Qd!>s3cm+ezz0ApF9BcAT!Nq&389;hU`)$`RD2ad(`|lC^Elx)Lh|wC3rQ-fVGm zQ=Z^xr->@jE?89f%H(#u>M_uOv-SKp%22hU7-{Qpb98{xIACY(yL&l%I`F`IFeHN2 zkOg(_c29^hT<_5&nEN)wr8hLGeYV>G*lS`4Q@pEN=Hqj4T67!`IWe=4 z@xb^lAt>1h`UuQsXkYcE7O#z-$2%L%rkf1qSPXZp=U9xeQ@Ymai2esph zzY5#0_9u{x%LqN5xQd&}ZMW0OuMbhQdP_2U*HmeU)nohG<;`_tU%$BfRDw$s>8nw zu;vG~#<9AQ1)ba>dEEU-WxZA#-BgiEbSd|0`l^SGwLzFweB0Qkdh|rC4rPA?k>$Y= zcOYi+%UdD`>;B#y-rLAoZ^b`GsZ6>RVm=3654Z`pw>Ld;>ueqdJb-yX+Z@?g0--)X zZOP5Rj9U!uCUyrY(^ONj2V!wseReXss{FOvsn<8?o>a{Y!wAhX%5TOkioU@N>8;cx zbyt)0-;q9d(y@u_3xMg2!px49^&u5^)Myq%qifrfUT*QwmaqxaW$2=W4*s0>2H7E&eVLGrN}(pHIg&QcAVzA``Ga zs&6bEXv2CIqgSNotJ9N`GuwkbcDh(5xEyaFJ}C(0y~Bd?5_PM58D?Q%AtN}hKhM;^ z(K`8(DVg`b>k<+LX3(W(%96f|&x!@VschZkG zTBL9H&vZQu?_lwf&}awWs>FYd2c!__Sc%)qZM{DS`Z=7fc4E*H>+I z!YsJ->>o_|2U1kfsPIZ(jjfOoKP9YkClaSjScE3^}{9XqH%pX2_Qd9(C4xTv#R(EzUgV1 z?ipPLg==Q(vpzjqaRI8!x64*}E-4H$M`0F%pGb;Ir@jcO+uN8jj*IhSQc%ly>mgu~ z{;|;!2>JYvrPP6{5{~|?$1$(_-c?Og1?wYJ-hn}q%X`a7n1SfUd(xg33?r5Y;d89G z3XKUI-SKe`4LA^mskp{Taeib8eXYnCcr!>504z*j>|W&ksPS=H(bEnH@ZX}FXRdE- zgdbcCi@AbXP@1g5<6C?d4DX@N*K6@hKpcRp`O?FAvJ$MmtN47tUFO{-v*bA)#{-aD zfdmZ#zZ%@H{%+c3QAY++K~>T~z7T8CXSd)T=zZAje)K!se$El;wm<)jFr~mVT9f%C z0WfHh>Yyor78Y(1j+`w$Jo+!&&{A42u^1C`*9n-t@R(}vjE?HEzm9+nFR9vSlIPQn zEv+~+1rL<923jgx%iAgnz|>?Eh57iT+juO`fqyqulv|VoD zIBGMD(4^!)bzE!%6o&Mnt0!<0;iXk}e#L7R8_}IdWVK6~n4aUZaVd_>7iOE6isB~= zgQ3BfUUX&+Rm%2@gP`7G>zG@ar=n5ta>E!Q0}D4XP}Z>o#GbCV66X!>t6Hz$2|sP) znaoc7@WBgJ;cT>tJ7|0$V0c6l+gGVC8VglnUz_K)4}VtCH(XVWVch&tMbg1`76rMn z-gfL0#dpjd5dU8E2F?{R-Fc)Ne%_>1QNA}w(Zx2*STcJ>Q}wxd9A|{&W`PuiYrx97 z{fa?JOmp?Ee@g&T&WtcD1169l2ST>2oyyG@<6|VQcXR(3PEjHqBW3v!+D=< zeYDW{bYwU0p@Ps)yPj%0t_h^v6Q8`Ty}aA??+)eCvDMKem}&Y5&=jPY&EI($Ezncl;g7KeYiAd) zpR7*LLsR9|RFY}e(B!Y_dB(z|^^_?jqXZ~GX|FOH12+aYg@TXKw#i{k9O%_j?ggl> zQo0j_J~$RB%F4v9$QQFhtnMpY==%psONMN9*&%U0vZ9f@piSzL*i>yZ_od33^NSK9 zKp_GT1&WvqqjaMtwY1@F=Wc)<&_5SJFGe4Qn`tW!-?;29Zz#H4Zo>HlufV^`Yoh()HBO4rGMkv#k_eyKIk7?slzbesEWc>}$n zlWwjyUHwHYC-bfsH$&R2ISrHQm)n89@!U9+qKe~m<+&BMEP75XC7S*pS$`c>)$_iO z!y8FyL_!cL5v7st5>Q&{?k;JOI?^ek(hbrr2as;0yHi9C(nvSIIlSJV?|RmH&VQ`M zo;`bJ?z-;lz6X>t(|rw{3?WFnXp+=Isd5Gq7{t^bt=QP`dzY}Xjnuo2pB=Z04&)=3 z&n_j84<3LqtR8}(9}5U?PJWzrJ!cM}j22ljfuNB7GJG;bg@(DxA8qH&Au+Z(B4#Vf4 zf@@7KizOjS_0ZVrmyyS5{{*HU#f*eTJ>hdRziHiRjIJ*Q!we(M@SR?~g(>Wq5en;z zcAypFT=|qzc9X{5z7Eo|>J(U>563s({L*EDfeHah7j1?s_y~7 zYGI`*y9anFGEB3r(nnK(u6c}^-TS1_Ud?Z$Ka0ukab+7F^ikj)$34%Xc`IFSz#`d1 z673WLO;+)L8O}%FG(sa^SYK6)`Lv=T-}N2G80e<;>5uGd>O-zv6=pC`S#2Z(g4Ft@*`ySr7phzNVaCjZ6;f*(96%`rtr&vpKMLfcd}% z3WH0Fu*7wzD@0K|k7AU=Hrlukp=f-@%J^=VJweAqS0jqHbehMzRaf{+Una!g2TO1N5MDo;!XZI!%47OQ&eoYX`|!v;4;WQ_OGroK z85ALh53_l9x*UR&DJb3uqK#M5%sDIvmNr2ztL0G3fs4=DFP~%}K?7~m-C4pM@-d`^ z*klQ1(g1Jbrpbl_($QA4OSnK+(}l}M{*Pk&Bo>gWNXWH8NsH)15>6L%BiCHdmE8Mx zjKDOAl3&NM_g>!t8S5MhTv(i1(h8~y&eHX9O_dfpGCQQ053Ia#xi9HK3;E#7JLT;C z@9S+}$|f5m1f6)TdoT{Ndp$riHhZRtH|etXYziM1cQBTIJ+6pq1DY26eB{-Sjq{yPQ3;5?gC^ld=<3L9ysTe9B3v-kZ3aGO5FTHm>>vINLF>fgCKx2wvkg)Y_ zj>NQ5<+4CK)oxD{9boAw$l{+3L&Ji{yF(6r1S+f+_;-*D;3vcfQnx_OczDVgy=xj) zi-~bl3Ra6lsZk8IpgI^O9MtZou<6`aPEYW84ba0e64VTHtptn>1_Z&Kalj}{>L1zJ zy1@#S=8ZM_+97#a=lHex;T?{A1qO*}!1SltvTBa#Wd=zMA5N1lOG8KZAY>)8iVz5- zpL^n%-{Fu0F!uc21jAwimM(!7hdhJ@y#_Di4azDU#P9jJlg(%EIcKNY^iL7t3P<|SL_ec3->=5$l~b!U1@vL;JM?cYKL)6EIM ztWY!1wf_I8y;gKcV#=fbed*3rglo0d+vuPZ;flBHP(Vc@vg!)xGiJ)bg<1iS_SWCh zAl_!-vn$(?U{6r@*02=t-Yej3E(D}ctX2~zii|i?HtuSad}`o`$IN>g6}AW(u)vqJ zb2lE7ZkaAWBCp44YvMTAww~2qacS02v)t)t|C7_hk`_P8N*Q6S#j~rwXon<_!Cg%5)bc1iuSJrs>QT|6{z<4s? z>9I2ve&+q}q>_~NI6rE%>vM^6?jd3*2fjl&QR`Pkmd7oY_pW^H*CUVnuw0K$5>2ZJ ztZ@Z2BXA6EPf`pY0SoE4$&_F!sD6*Y+4eNa^j-Y%Oq4;zoG5TXKeyAWe_hw3jCqM^ za9+z95YAaoUEOpZm)473oPgvgPO<@%F|+V)B?@r_sgt2x^u`Ko6Wd;PpI%jT$WB-sYH>6*~TMot}`2z z;R9}H89tqoM+1CIELf<8xrZ+38H+%*J_aNYP~4}do5muB$wG>7WUJ&Sh+H7EXl&&0 zU{?kg?HuQDHy2yl7D)fL($$k`seZzUB{bT&1QN_~g#VA&EPp3b5iWke7&Qto;+}lc zM2`c5YE_)pxl3Ko{Pe#h>xEmR7Opi3G;1a_$LDZUMi1um8^T}e-CV__%Ng)! z_22Z*oq|%E$B5&OHn#@0+CTSBF!Hs~3^+~qR;X{@Wuj+6xK>}CN`<)%43#|)oS>+2 zUR`M|j5ieI+?0h#e}l~oQN|b_Ic!_1ryRY&zuN70q=5lD_r80CbQqhi`2pnb(;;H_k#as#>+_XiLx zI}1%%E019O+rd0gW@TzYL?!6C8{>2J+JjcOv>hJ3PuIt9(k2G-9pHpxw*iHafe&`i2=T!w*V&$s{UINN z4n%9*jO+v?6no>BY3)5s2?Qi?Bt^L5T+*1%W*c^)66_qf z%d55aMD&kmtS?o^C=}&8xXi0wvH(A^9OdJ`tS4aIdYmW?TZIme(+4GSMcMJV@PIba^<3V%BLsOiilHpq~HsWnLoUNWCh`PA3gcygG8%1tpN zHnwQCVMW)$v9i$BeF`MkbNTcy(zrp9jqErbC+M68#?1$Py}4id8M>2bZOKGST&=#q zX+%#SBzPS>=7z-1YYzr~eH=K$BytJPP3Jk5*2oaevNQnue!DLkqTV2p-O?Wam3eWBl|N`c`_rrD_=(E zi+3Wdj13xilPUXYQNSs9SZ!hpXT2BFTZ9d=lTa7%QSd%%-i@2W<}7R`^>a5XA&}ia zDoB?rY=KP@Pb5)xDWk5m$QjmlU)&Eq92?9X~WH2qcW=a&R z{O)NwK6#FL(5|3vG(5{xfYFE3W*s@9KeJQ~QqZ7=qG8J^Dp&fqk>6PvNC!cYDIof$ zDcc@73@Zy%d(8?5L1E*re5|Hlr@!uE)*P@L|18Rvm$w2`&@r|%K~^kqnLFN!?BUQd zizh455cg-&u-HIQ9RRg-gENJKyp^|O7{ij8z9-jjYyc#gcD$xmq-KERr;4SI z2)!;prOuVQ!v~gKTXr%SkKQ6(4TL*8cUak#w={6(<-n$OpzUOROiNYr29$aIPvdnk z6)lxfDO9o!85iL$mVnWL5T{8oyUD0{|w`jC?eqBmW0T5N~)3`My;h z(%d%hPqphF8V$`^8)cdMvs`yuDVTu^w7O!M3!Jr$&`l_{Sg&&}j?qUr=~eBT1?#O0 zLKDdR;k{)|xM(EG87OysF!CW0b8^1=lIda(E*UteQp%83YcyaENc|dZAkhZ^7g#Re zAglj5g~QsrKts^BtnkP7^4nVhXe`B9_#=blfdcR!6I2Ti60s897#l5>uX*_?bv}&( zf7V#2{Z)T61Gq~NcbpthKuAI#=vVY(_?UyKx$7Q`;h-f+#~`8-=O<{pMI`vLc3783 z%SF49|Kcq;E}-B@KnRIVz=BopVz}Lxm;k-S#^%u-@WOq1Uolo zTD)I{pDW;tLtxkAgHZ_{9|OTJzEvr`oE>N&P_v=phX>MoTG&fFSpKU73lE?RBG`zOguRgoFx~=g*W6UGO%<|RL zjA+cPd8C%J6nNr4_|*dhf)G#f@>HC|Z%r};ol?+}t6(53x7I$alWYmjQ|ByKXEsL5 zanQJ?Fo~~By~ss)DxHRn1wB5$PS&b!#sVY_@cT-Ne9Ynr72<BqpwC)7}KX~k;2{JHM` zxuf^9sWk8HQ%|Wt2gqNf4zqbIBB>7--Z&?1j;U$Wr%vF}YN12x-gRA~Xj6N7Qm&^V z1}gVvZ2UZOpS)xPz7+)R(IX$Vc#?>T&{Udum_9R1x<7%^R#N+2rdkkfS&3Fqu6lfytH)L zh*Y|L=oh#&T^uGbfNEQsO=VIbpziFd!53^s0!=$%x2H2;HarzjYa8P4I>ip0vF1HoGn_ySTH5Hq?51F z$d3#ZJGVT;O-~}Y+CLqQ3B76@mE*9#ZTJ8|mmmhm;>dFkJwt&=+#b@L%Sj{lfT8e ztTw~&@rZ|S-}yCi{_~xVM`mvz$glwM7HZ|@vi7U09m7Z^#%sXvqjlb(Qx4Y~>BWVS z=@wD`neDZk9U8aMLkJ;4G}iEcezBdMNNcdRZMW0G+?+~nPPsOny>-FC;Rfvh2vw9~ zjS?M_Y>c>EmHq@7?%8$6bB1VGq?cL~OlPC0JQXDCXG4?nJ-pHS)9K>TG~s!m>@zeL zA#;BG#L<9io#^aXdDPF@#QYV)(IEajm-pj;2U!%9fS`?E4p3HmG*}kZ{4@(Plxn`0 z=x((Xa%odqY%GnEfpxAVpvh+|9lyx^bd09>#-)delkxnYy*-^~Y2MAZ9)d*%qyYz( zjS*CSqJ1(jFV#$*`}gLq`+nBTp_9*=ZNz}!X$>}f_IjQuInHZOW@^aR%g~2<+@@lC z>D6Gz_{qz>>S`T43rmYpPYXumSP=4dP#PH6<{{JwJ4O7R8ZO}{qes-zX#(bcBwkFs z#+6(M4$>~`F-q|tVCc6UI4_oVzh}l8pFf&8N;P8uh>%1cp`9-xn1yZlH>f-VKd}rd zIzsW8e$+9=hE~IAf&*D!MFF*`bzB-q+*n}1;!v`v9sXItarRmzfZaZEdMweq%)Yd; z?Av67IW;v7Igpj9YSV8m+x>6Mx;K> z$^No-ANdr-0N`M>$T4A#M#07$rEfPscPL$f)~ZY^IVLD=s!*S;+4&mwPmJP&I&J?_ z1L$Ugd`LVDIYBNiYcT?aHI;Q5zxoFZ5ELk_S$~C^nqEsw;Nd1Ot69TodGN({xAza` zF2c?H^MMe(@DlQA=qW8&c%#qBHtXiZzUvqnN#xBPswj{O?|WfVW1ebzUIzkqu_x)? zd!-5nUO%yVZXXigL%uWXpk;rey1=Io-_uC*1@9zJcZlOpPmnZ`l%6A* ziNujQ%%vXdEvF>jwY+L7YDH#MzVU+fzsO+nL2sdxPFm?VWPt-!s9gY&vw#wsV-pcKZU>mJae>ARjpMS6@_&& zg4Di|CwjM^?YGXo!rKQuDoUCpv2Bp~Q1H}^4 zX^ZR+O72;fDwFSy@EqZdo);*YRwJ`SK;weqE*ctyWvN$PHifTtz*VC|2hfcaro^NW z_S!~o{r|m5Q=92kL}n%DW8~`d6s@Yo@X{ys^7JQlJOO* z6$X20P?2VE5l6M(Qi>&Y>hof4c-pD(5+Y<1q$dnoQ5)D&LkBL-4mlN7tfryQ1Xdf= z5>cdCM!_fIXGIQ5%W2yqy+1!`wB?Le&11l6{M0czzy~G4X9tp z>7}xU&hx8t38_l}dYIYK)R5n`izz)N^gSmwJ5M=14m4crxxTv4mW8B28!fb!b0!YF zX8685=E0gx4=tKd3x?ffN+AIo%dF-R3KoG*c3hePmLv%e1f7gR3VbEjURX4SYCDyT~cg@gWmps~Qrc$H=I7Vu%Kcc~);Jh<}nt6jgL3QQFa3RvU6E=m>-SQafB zs-#1Vh6?)F%CLW50UibH?b|{uwEORxI^OH|T-wY9Flm7tU1%9x7AjmDG$>p^p;2-UT%GgHl z5n&baJp?O<&DoryGbX5yb?Z1n{zzk8k+?}cC;BdL4`cC2)a<4}Dft)Fn>?l`E?Iu* zj19b(mW8C`WNjiy`d@*vPk0c93b1(SbEK;rc>cP0*C{(Nabf6rwcOy6Wd@Cd#4)MyZk{ z5c-pJpoH)!7QcOj0kve&CO9aeiqme-Rz)14tAJJt&}bHwrte=tULmw_c6PnH<0~ki z>MQZfyzCV2Jo8X4GNnSav><8q0cX_Z zSgm7GOmiF22k#r-?JP#y+Y&!G5ATk7l%}x$x6b>5ab3*a#qHIiR?^p@ad`Zx!JVhU znpA}?a5pB}1P?~`C+r>MwJgsYKV5$B)`)3p?9sK^TjgGJ_66WEZqCgn=7IZIg6~ARKxkGubj=;&@m8S?q zfnb*z0AYr(?#Nr=^|UUhk7-A-M;7+#&I}XZ z7ClOCPL$~3LJBE_g$pdqH&QYL_Hj$z_xW!u9<%pG1_ve>ECNu>w+>T$ND_vzN4`iJ z7{zEAv;Ak4RzdwZRzZ&ENutrr#=<})6IBsIR_a)#S^&!G23)F&v4pVkflEH(y^&?d z5A&i=WWl$uf{g;j_9>K8;PTF1NIk4Ax$F4W z1*tpU8nWrc_B8&_FGmJRP@0>oTVL8@_ULFU%^$m3d-t0qF2~c;Mbz%DXouP6(kj8P zo>Hbk2J4A zJiDN$|J*@Zxxh49k#k!-=xed@!yI)1rZTsr;U=}@Py6}el)`y!jQv2 zr}7An-T!QSvQVW2KZs96cU#Q<8gb-xt@}hm>&e8(?V{1}BTu#Z(lir+-|?$E<#!%j zW?h{$RzGLX1Npi;L#)F)HxGaE6SE#2r>AJWT9TQ>ZkuOe?TTf+} zNDds+7X4zV*ap=_4f_={MM|M~J_f44Vt`%hKg$qpqr|=(w?96*?msY$xu(R}_ULbC z4t0WCDZ6Y=Ftit%T0Ks1p2Ck=g|J$}^KZaK=;8vS+D3k22f5qyV~MapqeNRLe#1e% z^tV^O24E$TzdL!=k{Z-A-A(NJc_J3<{Y2Qe`?+9NM5304~FA zT{*6EOS+5YC6Zdp{!x{%x?Asd5b>7B#}mDyVH%Pgn1M$4hhf>u86C7CDrt`#{*Mdr zYD-)^$AG7d(toa2u<7x9VXH6qK`y5*mN-X41@}5XP9#(LXeCZt9Ky1_=5{w>;-gCL zeM$Pl6=9N($O4TVY?vQAl@Gp?EOA$*4cLF9u5W6Gwh>Gt*Iq)QV2KTw9cVudmrkQr zd~&e+sYlU`!${cpZ$I&LPDehc*t=xpuUVd7h>%7P{boYQ-4^c_ z2+=zS5Z1s3gkLg3WEBEw1g+r8n<&Bn)sjbq9R6zM)2zB4O*X?(HBIvTp z&Bp7gHPruuUkjk*fU1FsF5)+q!JO>4<(m0Lr+u93|-%-30fNg-1WQb~Ths z9eriIvl*!z4#y8oY3T0dcPb)1TWurp^jww;+hu?vswKQ#*6X(4TP2TOOR>aLmF$EY z60e_s?4DNlTa>+>G4{55b%slGH|c&jVKHHX{mDQ)$T3(25a6_;*rv7`Bc$e$!Z^h1=Vu`K0N(-%*zhht0kH!sag&pomx=#}8C zzoRV{57$yLC4ZGUUUpUBnYg5Sd5x8iorEx3$Eh#}hxn2lPu%YN*P@Ol9c{q<^RgA_ zk`~9(csxtt)RRPp5!n5U{j=stUbc%7XiB@eu)Rq7ns2#^iW2r)P~@b#f%~L-WoR6V z{E**$V*&qXDDG2sdTQBJ;M31 z*0A$ucs%Ur+mxrV@cQe)bHAgIE2Z zZarMIIMU9Cg?UeNJ6;;ey<7`=uo@lm%~1Yxw1Md}?#VAm&B#x)|E> zGV}q#i>ZL;_k}mqAj)eCA-8!OX^IceKZ`!@K0JhPXE9z|`q28p8)vI|*BtZgiQEi`V3)`Z zAmSDhC>Ij=NwD~?1Qh;(9}QL{(Mws%&o0fpnlAm`frR~*kz{@Uo|syYgM+7L`8#pR ziT6dSwHJ?lCE~@}eUYoY%C31j=q$7Kd$ojXmP<=;bF054-O}1+BDkuo=_hhf=$rAt z)%(&;s}EQ=wC4YwQGK=S#}QIfo_Q?!fv`UntXPQYV0s*G+jR^LZZ|4k3%6F&`u=+p zd@Y2GRRA&*24V4=65Q0r{h4P!-t&nd>|Z-X|8~&!GUoM8E<&Kg;BcEnpnB?zcuB9$ z0nHfto+q(iQ+hKCFlnPC0i#5hy1mStY}LX-TW_zW+XJy&?e15_;+N{+Akj*M?LUj1 zou1!Roei!j|~A{7;d`a^mm2dPK#P7#7@?DSZu4F?o3Ye?i0kCc~e4CmNz ze!6<*RCS5#(e)Nt4#0Yr#BQNPanI2~yFNx8hJPJT5WeX5X|+@)G{6QQqUWQYLSl1G zmdzE3+DjcIS7+m6iN#o8WM?G6KQ*_<_eFyH`-CUh3?kZxHM@*a|$fO}L>x6JRs ztoP<822BtqHjCF0+iY>eGzv?gVh}m(Q&v#{HOKqu94AG>pOU`b^^w>RZz_za`L;3N z&|Okh&VCnrtBF-8Qk!+9teNS6i*NLr1Fz=|A8QGz<~n~>mwzRQUI@fode08Hu~csg zuGqC+w|upRCRftd+dHRuE~2N#d8U20L@Oz_HmLm=!(tiYkOW!ilcr#>)hdTQK_6bM zk@=GfK7kBn%p;T_jivD?$nBZqRj1Nl_&#DREE+RbYrBAF%&kQS9pH2tLUiE-pGK`D9x^utkbD zpu%quz_D;T1;J==jSss3S)9USbuyPm!w|pSR_v5C@r6$<6~uf9}js>A*mS&E?%b?H8J@Au;bBEHqg8JK)R+ z16AQXCIu-#8suwKgGWlcM4RikqY~+I$njx(T?S_^te^R{ej0ebB=ipoZ7O#& zAYbRje#OU-%KMlrktle}6R*vIf-7c_q7_ovQ5tGw^|?7ND@D@y4X?*Q&Mn>F{jIq!0e zoD99O+`M5Ki0yZf@=V|@q`DayyJTmEHZ$uDTKQAgHj@)}Z_{4g>A*kc|Np}rz> z@Ok`G)XC8=pH5dgxcS*==U7ul?y35%vR5&hMPYSOv_LbnnbZ$upPIO zuA=iDzx(;!u2D-=umSL}Rus{UeniP}%;z#@VS$AqZLP=+Kq~ z-n9A~Ix!N7LiaXCxTS6+<-f7Ml@G%USsjNCEGO@sm8YKX+3WdXf8dM*S!?El8X64CZOlw z>hgZ8>@($!!R1wda+feeDhbAEss{V@SqQr)e#`Z7ADYq3a0Jo&CJ#nP74&1R= z6+QQ0P3;!!>ZYeUsdUYXg>b8}T8%c3@0w9F68@R$stb;6PIo9gPIXSR&QZVHpZrgT z@0thNlboaX-B~ftZhZJlR_E$Slh4;wjs3l~U;ae4*iG=un>GHF#8H>xF>eWb+al^3 zoca_=4gdxqSG-}g*068rbvKF!g+J#Z`Z4_LVVGi%r|}$Lxk@(^B17$>Wlh^-|5@2FJ&M9hGA5rRd27~> zGe#N~vhj>dTB6u7HYYiM(-I~y5~Zm_XVH~Je0)jkXqdZ=fHNtyb65mr-giCLd@^CE zvwceN^RvD9(b>l>tDMqmp+h;#VC&>rHKnzKBo>|3+lB2-|F}J}$Lv)8QN;Sk$Y2QO z%E)xgJ8oXK0^WOryBy}_W z5w~vV*RraMqNqVL!IOv`v$vV4_{~(&U3I@lreAL4EgtlbD2K|L>X01cvff+HuWsW< zS%)MML9~X&Or>_H9AL@ACLaAO2tC=&n&9`lUY2)$zhf^Z`uOWz`__U9!)Cob(O$J8 zN^8Fav6(d8bODCv!ic_*+ZXTA+b*5WSY&fO`1ML9ri!76qN*~4_NHU zGSlX*rVh@Emx*N63zxyLlDS6hL^2FA2iCH|cUIlABNO%)oCyC_*_*Y`m2LQ2$Jg6z zEWRwtH|xdTw);~un}RgD6uCC}Nv}4g-0U3pJ?D~J4@h^oTapaQZ{V2jg7MKCQ^#Ff zVg~91DyGO8U~z48S9@p0)*1q-L=yq4{(fa7!FKn7vbhkVq1?d5AmK#x1y=ej_R5PK z<7pc{N}clfzTiBEYIk=r#HmPdqFn+Kb8>f1R0}Eq4j-@1V;l0W1`adHc2%E6tAxVL zLQRb$aHXr7ABn#z$^UX#9sho#5v>uHG!;yU5s)G$qQX6^-Jfvb))2;K`Zjx|-hgAx z7tc$-Br;7M(ZFFJb83$WY7I*(*JzrwN@;P0(Uu!jQ>Ja}x|1iD6jn60A0JqSB^YX` zYdxuKd(414=BX5D{MIDM@Z8(;S^Jr@;6=nnS(~$9UbVZh)nx%0<6nXQl6;yv3Qq67 zyuRw3XMgv$H|2sSVco=>q$CNotFHfpDU4O*!#X6DN+$Dw**S-@7-Z?1uk|)L@anj -*BH#LwF@8^8*RAQ8%EFH%Kou+QJ=>&^}Wp3}Pt}k+?21pr*7{Cwag>=objqarV)he|FDu=$7MSD<@*KIFBfPKpvygMfD zhiD9o(**IOUqORc@88{gaW+gM)ur5|h}7nG57z%lN2jaf#&v4u&U%jrS3dPYt}#~I z3OM(F*2Db14*3YDIGr+BY_|W~jX2z1eWl8xq;5pvu5SOsOEmjBndTOiF{+SRyVb0M zn571UF=_9(-Jes-$JSV;2!z`4KNrjpc~B);EMT}qx!TFUPUZMH{GWNj^?I?ILWy&r zRDM%WV|toH#!l!X?lv|do!7i)t@YMog_Jddeb_;!RWHY@9$f}?pW#|oSYu_?_)zlo zHQP?J8ZN*ivekp(=!iZ5(7Go~eJ_T_%hl%|ZMfifuDVJ{n0lQT8sN3T{ZC4kt}7pF zSbex9z+`@tCc4=8Y)?>d>0i&4#M+r%@z1+debH2tN`dqN)o`Fvd%5Y^_4QL~0Im?1 zygBOiSJT%btgY%A!HX%x8=QcFW7-|C5WS#kT%P98A{b=k&{Y~9sV`rxG(O;FfAsT- z7s7P`&Xej8cXGo&^YJ+`F#5a>6rZgKk0%uCb1G*=FJEw2^~sCmQot7aok>#$uSN@{ zd_HEL<|3qjPi^@XtLlPgLCXNz-F=4D2bTu@EJ1Q<$yHeCw@Tw{LX;n&$;+Bb_5|Da zza0-NY@EMoD@P4F6?jSz7SL0KQaCjDYSlL4;l!t5-Vk??{j9gVj!&Ibb_-v~K@n`1 z2`G0>USnhr$Gx69G>&qpBk)PomYU%o{n8*%Qbt^IZ?x9<{e|I1b&n>cdk?YO+~rk< z6Is#5CU7^qljR?XqP!vWT}{W(p*Y|4tjJ;W{OF=JC;*CmbOQtX}>n9Q9$06bt7m$_G?`iDPJW9=B=O2XPWsm>8C*rKZOBp2TSvJ-3{~ ze?4cJlYCjeDk8#_ah3Iknh=>xixm} z97laY%v~h~-({{-UsF}fi>gW`rWsoA9qnJnrW7^>?iCrq_1A~XK9gYQj7Ajz)rI(K*-s_g#T zQZB%}Ro{74PIKIGpu%Qm9vXPzNop$4UFvPk>dT-$duL?La#>8pPlxSiJX0{QI+gV z%^Cqiw1oUsYIIbC`Hfp*N*NEwSj59FL%*u8eYar1Q^?+{8)!LKgBsiek(0hxuO&HN zVHhX<)dtgI+A1))vO|kD;4Gijrw6__Cwp-uPqkZj|IuA~Xv|&PeZtt`f4=@JCzr+e zU~L1`ay1ET0PjA2N!co{u}%3HcC>SUEg8bP3(1tnE)0iSueZ8SvzW?4c+1cK=vWFRV#kSq&Bi20r7}o9w z7OtwA?ePkz9GuK;+*p(ko~{I_yqN6gFwI^l7VXinp~+<><{|XT@=e~Fd)LgZIXjdh zWdXcHiVyJ^hCujwYk$l0B$LFsvz~sUz7p%XY{*M@tO}SQ98gkR$Sr2m8>X?d*f&kQ z{H6c#HsVG58f?I9Xk)ZP)&TP4QsDfSs}-pqg2@l!Y=%eTTSat80Nwi0>CKf+wpt{+ z{LzeO!KqbH6%+Bcu7})ao?uk1LG7qbc|ll_b+i0U^w?1Azm0|m(;U<+e(;UFDLcPB zTd#dd_mX?86#Wfm)vKz2XvHO2aYeZs?^AVh;fUgG_uj1stKOjTDCXZwyO$QKzwpCAFG?pI%vKB->RcUlCo-nPDvhl{TpTeLs!mkz7zJ} zi|z{UCk>+r6fxYmK)o4d#sP3DFCs`iJvCd}1x0rdL>S41DcUej0K;j!n!as zNNSHU(crZm=1#n?bMkwVb`d@DOU6;`(^RD2E?^>pqkR9uRZ%F`hjm zwI0rPskGnd380UaP!S*w7kIFAbrN`Ve&2efm+Tc~8uu_a6ED!&U3aE3w6WBk83{kwqB+2xEdVB|U{@ z^hAYC;flIH1cPqgFBUo43_OGN9;YPRtYu@a0weKd1^qUW2OE8k@TDq^uNr6yz4yye zvwv^%Tl!8;Sz0YP2@3UQ(lVGI6N~}&^vPhOp*(#+Zq=)gMXh^XfwRV@)U_B=ShxFr zBf8HuH#E_U&3lN$UL|O^RrnxOzrQ4B^}R+;!i4B+`w|C^fC^svhqk5pckTEsg7kM8 zEmi^9M(+pM@e@gO15*3+Jc-<3!~Sz7ypsHJ(o!X$VxruGbwn-z8)$Y=6`s8|>kY4% z*!?%WV#x77^sV`CXi~?r;`doaKB{;7{sI?8-%1F^{+WAIf%9x$h6(}m zwt@_{#8P9!3)Cl>Iw9?e@7=gWXY}WhXJmu$DSj<`2nZ(3Lfudb`T}yk`@J!uSn)%NgorxUy z_f5n`*6V*73L1Mk>Yv{?s0gYa^e}NSzW-Q>@T_um?FIQ#qzdlIXDVj+sS#ShjWy=N zIbnoU$G?bmyvxf5pNd1m{HB9f6epV|XLZ4xAd1QbfGi@Q9xWXpmZ?^aV{|c|#+lzJ z>xoz5g+*K!Tow7g6lWLBoj!7pC1Ss%tDRAfmH(%`eeYKgSzjTCHPS*M6{>-Us?_MF*|fxj{v--e=|_nb-uU# zV;ddX5MOzvvu-4Vw}!Ry$6jga^^i7`FK(R!f=-s|asE!Wwtdl73XyK%uc?%WT@XnIRT zveKkVwe3Dqcb zL?TxGSI*fJMg&_MoV@{>pX}ceJvvctwdY9`WiV2RE~x5iMM^ssbsvK z+f<3QqA|zJuK2NoOC#>ydo@Ry3DwH*I~5hS%Q#)|s^#q#Tig9zI3I3l!P%eM?yzdu zz@N*!^!kNNH#+1zG8715turKCm-|=9#ldZ5vDkn2__^S)ZLl$sqhZ)^LCL3%R>5p| z&8^?jo1npIH4!k;t1{7UeE z4^khcw6Hlbh17t2V^QQ%LNHlDw+1mQm*$kO(pVN@vZhiN5ijuC(oTLh`cs#<*?(HK zOpXdK->7tfzhvQx+U_X~@rEA&O2`Wbg$BR+?{*@o?b(!5brP%=M^iD>;VI2_HzICh zb(=zT^r(R(5=Q8zN-p1vH#qD4Ec>w6Sk#QR|VdLAES;B=P83H)@>IzEI z*+ZVK4Y@~GTMc5T){eY=RPcFbZG3NWGyPwWiU2W5a%_s z_N|~o5C6`WwZ7v{A~AGydNN}l81Rj$HY@SL3wBVjm5Umowxec?5A(95LM)nZ;9?&=&q) zmXU4!#LvxHBWE}ET5E?(+(I}|b?(5tS$>KRb*^ePZ2|+(^P8foX0GD8kB_<7aovHl z_%r#NiMMv4pCB`dYEdzX!`!vy#p+Q{`YRLjXWLo)RbsALlrt28Ad6Xrfi2yhyZqxM zoSFTQ$B!cpx81eNFgF%P(YFc%4`~HJil>OxtXfQ5&%IO=^n9`f4`-cPvlwe6Yir2h) zs`C?vA%!A|gOb9!t_1V{=t1R5dVu7gT|sYrx8*TztWiP#_ok-qzp&$)hh_%kDFEvI z|FsJxMrxW0iVf^sQ;g3IB0+8i(6=owob1EgAAep*p|x+%cZoXWbyoz!;icOsUHwFt z?buH78rOcg3zzvT@uph_i6OnC`P2@FE`^291!K=tx<*j#NK1do`|$$wqA$SQP-fod z03n$5Z1E-29Dpq(N&K||P8TY`UOa@`4pNK2JvUpm3Q*fBiY=@>00Qp1J;Q$E^T#rc zOtR=XpzIs~%8rBqb%kSI{>RJI?rB5Mbb?&UYr&;%`JjjiQC7DVAKm0`KzE?Y^}8cs z8r1y0ubRPHblvtf^Kc5{(wg!`P45uk-9&P1ej!+l1s5}=u6WX`1BNzH+JC1p!C)Ns z+x(iZK!KL7?!j&&vw!zr@d#ufW`1K7Q`svo|HjSzqo*R{grnb8}`xBoZ~eweWD%rbsf-;QW1wqYaNi z*||qw|53F0H3Dx);%h=|yt{;!WB*yx6km03d-~PyZNE*=6(pXpIW%=~xo4TqeFxkEEArBret#TOBp(ZOz;+FbeA4$rrM*gwA7ogg(>|q*R!r8yuQ1*Z**Yk}%qA`~TH- zCE!rK?fYnvqO2K7$x@VMCZ#APO9)9RL@{WSL|L+%tcgTL%2KkF5E3cd*h|{T5?M>K z@B8+D-ZQAae*doPyRPs0nK|b@@3Y?b{k&&3ejS6Z&jpm{wd+%p%F0*VBCOah+m*FO zG>bg5+c;gL>%jPJGEEzgi`P11t#`FAN)H8Mj>e-LI6Ak%oJ$v5^ruUN$Zv;U9WR z{753}9$!x$t^`hV32P7;rbg+5$dQp&xnAI#;#Iu{C_rR)LtPFHhb9?xv zj1yxdAU}S-am420Rd9z2(2<|4KhAsR)lzat9$c2i+|)?CyCkh;zetW(&aJ7J7b8GD zl0TY%O10O$q1=;W*%7ytXCs*w`*v~ntOEF}BJHU#PCn-Byrty&=IL7R^|Nm3eulT= z@4B>&z1k&EX6I+f+P=GWic2yim62MQz))A=_+{*sgWAdhn9>)`T!t%FSZUtob>kdA zA-tX}u_Aw9tk~eE_Mu5tBp;ZX&-_~z;jGiZ#G8*7EtDLWQ$-Dax=&B7eT%(KbP!}n zsJgBvSM_pd*GC?e!2FXI-K$bZ-!AJdt(2V+kFqzioknb#HWs>#o78<=v7^K)1<81iJU`K_|{x%Po+chlr<-}2XK!C?g3ixG=i*G|}SDv_gd@M%n^NS*VXRY`zJJSzTdU1cxHPhWGYjqMPr%3rbA8&bK z{3-Z)L8H2t@z+nK_fu@l`ApyH+6io~bmb-=6#J$>-WIgJAfk8mCamK6(_nBzSw>c; z#I}u}YzL_yu5C3VX-(*9I43T~SWdy=dG@;R{FEH2(3y;EYB zWnma0{r%__?wG^+d_L|r&nMm}L1!owboX-7DoSp z@)K9CP}BEr(4XCw-Qa!s4vYXyWsDpUxyd5P#cFEG!5fcle(~tknalZOS|Y^*pBvua@Y?i!_U>exDNB?X zU$)oQ@eIS0qxJCPyd7O4)mhq+($37gzu$fvx;9?IEIZI9wQgu|MZMl&jX~h;k}z52 zc5W3WVQGQs;eEo9!Ojq$(X zfB*4YK+O18x1}a}%eTvHx*T0HK6rf%#m7Fk{MhF3l-?6Q9FN5}EzXThs!6(D{XI@> z@7lVZYA3Zq4{vR?IitP#+_5JE+#bi1j26)*E1Na|auN_dVhbnYP6e+W0l@vD_vePe z{3gMam)dN#{QW`pajz|X)ACPRum4o`qeSV~4^R5VFy-Lsb}_;%!&Zo_MsE_AS~S$l z?Jp)?_H(P$b+OFIl?VVcjyTc6#fD%pt z9pEdGN*g#_QvPC%%hpj5We>8n1iLOs&1b!g$`}F;CXNx{_WKF0G^|9UEj^d*pE0$o03M%EtQ>EUI5dXkX_G@mq88 z_!reHAkzO5c$Qa%j_6c|?;?_hB_B3d!?-H99Perf4){kc_PsAj8WoXc$Qw{(|2oe^ zp6-9B$zm27f4bG~_E7`9TTfH1phU~)6YU(ghbrMsf?* zKQyI2U9DlX)b3^$ z?-WahycKWMFFKal8%-!)6t7$689PC-KMxul2gxw( z(1+0GYOZ(3cs$7ajW@yXSAC{SWT?1jv`oIA8o1j0W(EwFi8n}~x8u|PE$Y0!#$}}y zgKxZqI&&4XwSle-cg1m|W$%Ud1{eVEPP{O#7@uHU_tJ${qu>ZlLRuQ1F>=vjDE%V%9)I^Fie%YQD0=-F#!P{T4G*EcWRd8+d>rXydhYX0)7 z7PVoMHn&Wgd13Gnc+6r&R1rQsK7EV-xmcIkqP2J!K7VRd0}Lz#Vi4K@&ES~_6|+fG zFLhiC@<5JviG|jo%#AR{z!$=7dW2`qI<6gOVGo$nt9IzTEA8JDm-Rvrn2!(wA_E?F zoyeZJdI|QWFLJQ9^+vk)%zlQST4#)9xYn$bGEG-;+5$IrjIWn0PV5L;8uvPR!)3D@ zm2*2!$w%%ikdTzi>NXyBZv(H7->RYeM!JINJ5aoe%Mju`GG5Csf)5J74acLba_K>! zXEEbu3NkXJJp806z5d4VwKv;-GOkoff+2JN9d8DzLs65+xqP1-9E;K=!}s8z3H@Wm zXkScJmmzPFQk!Qx<3U9Orb#{OSG{U_6N37X=FLWHm=!8peU24#Nn)6?MY?Zqn z0I~B=E`cQs-7JgWI7JRCD=pi8sYkilauaXo(;W2Eq%^5#YLeG=U#w}z~#xdtB0 z9Xw0R$dFO0!rtiJ#~o@deVe`$=DhIXw{tqtG3<#;$bJ0c{L9|IGK8Tv57lG|li;%> z_XhL5zzc+YveRw>qmfjmR_Upq0Ov!|zeN^cfCD_w9uMJdL_DznNVwR|){E~IzEke1+JOie=RDvx59?TJa((cr2U(tc!$@r+N}rAy4*P4AmUaA zTx2!ZND`VaefWZhcAJfXz&ff4=^;(vgYO%G{&NWrUKutk?Jf+^-$_)rScV?%aV{DB zO1$CLQ>(!Q+R5q#=^Y1D-2_*nJi#n*Fz#s=CNpcV7 zTeEDYEi-`Nz&aA?aD4A)Rg9jf;iJM##|5W_6!d;Rq>2wNSyWSQsA$b%iaXle0ypT_ zI;*s~mPRXgTYSA)sO^RK8Ji*;aJNf$`JiHrsL2B3DwGB0s(6k zODR*|hZel=VnX0rk&;jbYEuzoZJr;-WN=CQ>RFI4K#nIp+MH=`c4j!hzyBSKNyl*+ z26sI8pjz~0OXre1k>mF|)0sP{7ya=QAk?b{>e)#jeu)=eTWM!moG|mKn@>WX!OJg1 zjBS}f)Z+UuIv?hlBy8vc`)IsStrTHAVq+xtql$a(F<36|8Wp+pq#+}K8wP>iTK}wO zVD!Ae;>IU(rlkQosa-_TeARsaRT7o)4s*hF0)Ey3+sA;b$h$`4eYbL3#>}NiHO~_) zX#zs`sgQ!!v)UKSY^9rHuaCPtyN7&XNI4I%*yNz?u3iQuaEs zjghh|Xa~;%VUm|tCZNomdBLvf=KHYu1_<~~W+B7!IjnAcz2HXKv>v9ec#A+{?Fu{- zAA>?w&eloexLC;C4v9{2FvQp=U((40BM5TZjGppLH{F10GxaUB0H#aB&(J@oO8A|j zg#>*x&2=}Bhm6|_LQjn=iok0sr8e^KSwa@xE>GeJlcpxWlS!dVA0h~@3wR1c(F7s< z(Xg=xw&R~)8A3ke5zB!81A}0?5568|5*Ah!*W`e3K?D@Nu>$V&1fg)kNNLv5lNm*N zv}`#R0HOvZV$*jl@$;wM#M!yd6nSN`MjNx7P| z?@@UZK65Vk-)8W?80wl88-Y~w0;dtUKNI@$jQ^7ItuAr98U$B=e|KcM;yBEpo(`w2 zT2+py*PwIvg5w)u#*E!2+OD5RSl~>z*R8Gkf~z3y4Xwb|QSAJp=#Yr@*Nn#8x;cFO zlT>(~?iAOhKT-I;&&u`J+sP4yGj_1LbMAkO$63&6Q$CTFhzgTS$2)mY#sO zQUeLPqwq)`@mhEDT8GmVU>DX5dMuCD(dUC>UZ=)iok2gpivDr9rOggp*alXy`y4h2 zzd33MzbW1uvY0Ki?5Yn%Y+V*^6A9J+t1bE`LQ<#iiP`Yr#erdqxnqX)qe?htkRe6n zuLJYsO3%>ut*+(EzgzX5u_At1M2kwE|BQV4ypqo({3vGpcpYz5#oIu1Z_2~Z{=1ip z@9^5G0|P(>34|$l0d~%r4~)CnfR^9k!+p*C`!&A*^uwmBxX%5sn=k9r)*VRa4ycr8 zf#_thHVA4?W+%brF{rEwxNLge)Om{gP?vHdh(3N=FzNu() z>V$8)Hv?0L9;@(Aa*?>zCw{V8(uwlCL@4jBk+cdyUFYMRR{V{)h-3$cj_{GGMWiK= z+ZcET73&^I5W6sCR$EYMZb>4#doE_=-@`mvhC$ViR7oZssQ0AxH^NWFu^bI+XVFEn ztfB*WmU0=%&)!Id2nTOIo{1UAKFvvMBt5SC2dMBg2tw1wV`tY7vZ!w-eW*sR>2{a|05sCZdvd49s<2L_Eb zXR^+qJ8ocL^X|CuY^R?K1u$bMr#Uk#y$4y?5f-Yd=J1}=2Y!n|i^rx0(k8s^@F^RvfXdEa=jS%q>&<@Y@EG!yJD)_3mEIT;;g<{Vx|AEO=J?YGoH5g zMgGxP5at>SkCl8}^2*Sf&s@MYj1HgNduQn&@!gZD-LU%R#XB9TgGc&5s~)a85U;)6 z<38|HHQ$J*ezgWQEXzKmBsHQj;QQiyLW;AM1eaOo1`dV8=RB*st4m%dryotAlrfZ) zReR@b(%ZFu`^*;#&R7g65gXFrWS? zucfAePgYCLy=|qFS5qhCBFr`?=rC?y15glZ(b5p~|SBXX`-&Wmt zubKkPGCG^HXe-)#=>s4S6y`bnbjf23pOieuxde;c&)}uGEs65$&^?0f284ZJt^>p@ zBw#riXshlVl^t&icdU(H8kpAZI$YlCwP?G|9EIOs}^A2om@Rc^%H6Zdn^=j?bP0Rsb}9XJV3zW9}T6 z-DRI2i;kK3kgMOJ=uqaC(Es*_SmpS;rI{jLmsd_`a^2?5((en}lUz4#g^&KNaFiWN z={TtGvo~49xU3pam+l50nMofqSO|ShelSH9R{WZm|=H$5Af%Gs+V-Z-wc z_<4#MzlqNNSi)sPZgYW&DvQ~B=qIExid^PL!Bv%O2~CT{Th5HZNG+9~kBeL&y0!<# z23ATyi^Aq;w()lY<9=}OW1rg2VH@_w*D=}-t-fCL4*DN!`>Nl&)(=(74yN??Ditv9 z=H|wN7jI6w5s~O=@2txQqtyoud5g^ooNoL$a@^F@XqQ@2>g3k1y43-7;Rr#p2*a5S z1;BYPDZZxLri^-D#A$lc@_qHa>qV_mzERR?i=4LbUyfG( zp%P6Bop_a;pWJMBF?5F8z>lfMHLGRq2=C;e(2TR(`n6e(-G&-<^jS&HZ5nGo42Sv0 z6ZDpUozxsiJN!gbicnzkwz~L@{;Ok0_9kyLJ_^4{4W+;;ZT0g<0HD9V3G^ZmJJxTs z%Ec_;_&$@O(lWg=$g-#F13u)py544XCGlIizPT6@;3ek7l2v)kg} zeNBw%jk!|~%zI~RnY(%QcJPH9TN#(coN4*~=62HhU3bUL3XZ^=V$yrR9`Z#Bx$7kC1whS1c!IA4$omo=3F4sC?Cqe@hBDWdWd9S z5!~h*7~xGUtI)vS87`$-)*cUP3)wZ@C$!HyJj?vi~{mSSV+WV2zAy-5V;qL~ZTuEDf1+(k5Zlo|@M^fZJ6+k-Dp$dg3IR@C|>$$z5Q^%3r+9f(G6vA|e( zpml+>ULRrd@)FWkbj3CRCrgomhzS33(IUazzI?=cw$X4#kuB9Xg0~T!=axMhVb09x z1AFp(W!?)3QdgeNu3G-XA_cL8EN2%`I=h^P9v(G+vUy++>O-4~I!0FBlB%V`JwWq9 z%+LXC#y3QH(!+gA22$a$+y?A`qTErii85e~I^FLBf$&BVt0ax}j5@wAonZY*g#)*; zMv@+z_dd{Kpm)?74nu5>7<_Ug_ zpj&2{8_ix!;aQv|dSL^}YYCi%i0$@V=@@A}wpe(4DO=nPg26_*UZ%Hq)-sTpq~4wg z@i6j!%SHCGbgV5?OjCZ^ekn+|$d5_lyKz`kWRKtI#(Q@&rd%kLXG)RR9abH?HTG*- zw%=8`g3HYTrYkC|t0{~Va`g#Yc4 z%j?&4%iDV0)y+&i$?%42zMA`8KcB|wqFkL<+ zCrK#`P%8YDzfE5+(rJ^Ow*N(ZuNp4%pjhqj`_|!u2lD!lxaBQZan1KF8Mye?b*M-z znP50GlP3E?XK9V6Z1_lYQ;c#hXQ7dA8|(Mk4@@HYIWsq!=&&X!>m;Iw`)tQuclK)m z0tOzts!tf)tTQxZWb}W)#-yRLE0Ak6|3eI)y3&`1*{xHA;BZ+P?$Mcn;n|ed(zuiv z=g=jxla-E1)7f^fdGo6iO%MI*D|+NS__K4?Br}|#0WT}2vUY^au3lx(?IP{`#xm1% zwDV~_QR=uVNy@1IkjEuB(c&qYUGl4auj5QDZ^e5xK2i8JoHJH;cJOA+$T~H*xo)S+ z_5N<5yXIAjWOqByjj{c@Qxiir#;i~}c%IEn2Hnjxoc(duecLsX;enA}TRFMH=lfu)?9A=znJeZ~ z#Dd(P-@6O7ZqHl+7S;dliOtsWzRgX!Q=aw2>lxv;xmD3iqoTg_j_z6J7m{#z@-zeA z%<@4K3#)+$$(dbKva{o}eYLzLUk$UTc75+?bhPK}zdJaR*PtY--a_mtS#)9dW0~<~ zv%h$~Js-@TS9CoTTar8OI=iK7Ds|T8S8s1nE+OCh>pR&^ExZC8ghQ%(Cpz!Wj_A4+ z%}#!Zy4$wNu&puMK_DzbR^T*-*(uk*vx;;y&-8?{HK zgg4FXdVXb>biJ$$^Xycu>txmJbiei2D?1Csr|Nkvu1z16X89=UKM_|{?cC1pnm5xq z-8|bc*1KlJcRVSzFI9HMY?JKR&BpF!A0mIP&tjPEYG|`?awBq#?wq3>75E? zv2}H{o*lR7?42!`{Ulw;IuIIO(p-IWcGPEjdh()?PGMbergyW&>~YSSk=)ziWv`K?MZj0DGUhK!7g{^RP8CDYhII-3itRMi9 zKH&7rAoT9q{ogbUUAt8ni{06niq&fweP>_1J!o+y%Vm@>D>F4wH7j#4_nkoN+1!cS zeWSC@uG_n}`bFDuZsjyel%2X*8zse>g83S%)V_sRHSMg(wA*F<)Ympw_|ZMv+@1rB z#lCRWqg78%s+}lrLNDd_fEBsySmnzaG9nsOzO-& zmzKKurr&2b*>$A%q!!G4P}g#Gxtx5!JRNg9C9utOOKz7-UI-+Pkayf^L1Syuvy;D9 zOcxCHh0gZKjnx}YF`lkrooszD)lP1EL+rbGQ+8@3UXFES*urH`_hFtmU6<*^+`+T% zZZ*rHeGxvBJZa->)VGw2!}47Z!B2K0mpa9o|57Ei&W=@MoypZ>Hg^3-_D@#~o~8G!p8DvzdgfQ-gjQ~bY;nt7quj~r+*Omgv*zbkx=fz@Wow}BC~DDF z$xGFN1kdP|s|6g#KOi1KwKFo8nKRENQRtBC;qbOikE5gczE!Dtv-J}N7R!phiXbm&kP6LMJL)uh+%6?|=kr&^i#jt~d#=pt zuHiT-I~z6BI~l|V#ch>b?^N8UMDbNQi`;oK-gDqe<%J*v5T((`6OEV2Q zSg+((-GA4)w%qM))DrjQ!6W%Q!c+tgnYL}X^Kzu1?Dk?b;z!E)sT!$u^2Ox-!!N&Q zU8^UCoKPi&SegHU@|WQc@4b3%Yy;;s-Wgb}Y$oLNt3RDg?9zO$(%eNaBz<#M>NV*8rs%|m?Z1aOYHgu}i=;m|F0kR_e+xw9-vbtHLX1!mCh#1{F0y)k!MiT_A!5MBP~z0^yrLEd|~6C{l1#ddRM9P$l_^X5Ft zgFBMv)!G$Xma*|48t-utZftysBuMJ+PN<2mD~s}U$N?s>iMF|v2hmFwdzEsh#m6zd z6D-o~c6st;G#~7A8Lj%paAT5(#WU6xAau&S=l=)9HEj_Ne=^F5Yn3!`R!GA zFN@4dvmgSpqZt2Ten0Pe;zNdwT$;MIjQWgxPNI?ng~a?)eKALf9xO|Hbl}7<1O4R5 z{j7CyQx1Y+4}~{!!SO_cnllW|*N3>C)-$&*>z2cRcrR(_e=VQ289rQ9ZlEh#@If`u zsHK|Rnn4&D^9+Ma$Lfk^@8S(lfh&U*qri%r#G1@uQ?3L{o{w)=f0Rw~y6$KcTh#ea)Es!VHX+Wm{JMFmY0ZK7e(&$zFZ1@H|Z*UreUS$C)cDF`?rJJ zyIssxS4gRY@l_yMc;lbfbk9!y_`vg?&@$vJA=stSc*nV%CSvaDEGF8N4C@!Tts(d< zwz11|>zA_cgvb+(YwsAtYWyN~G7azk4BH!hjaXidOezqyWU>E=swZMajvv5Z9ywi+ zz0=!UhjcV9f&TcUv0=RqrqaBV$Kbx(j z!O8uSq0{-~lWC}y8sQ@|7ZrS)n=*v+C?6rps1Y)t$n^Ur4`{zbR3??-+F9mqm&2cIYo{FqNlk)qN%o+*&|g9e zeRJeiO&U;kM*tO^MiMA=43;}UMEQZV02S$o*&=?X3+GnJV5td1-2(G;jsRJ(;@6W zOvfgkvX>4AX9KxKc6c8oFVy35Ql?voZokw06(q<;bawLCv6^KDL6No7nl7Kxkwd9xHN5)zDf`l#K`X(a>rClxgN@XY zjn>FZb=s`iSVsZ8(eGG~s72F9FMr*T1A3_4? zsrG+CF@E!>=B4^v&or#>WOPrWZcyHaSAe(}__P7^cn6`! zBYByPD#V~Nx|aZYvtm{2c4{lDY48)(QAuybs zJftm$Aokg>?=uqi?Xu8pH+!@I?W*tc>d&8c~5dUQ~Oa)|CuMUF<#(FbG z=tKB>ToNVkRzu}~$OQ{oi_(B8vFmylR|oW;+G_9{0@P8Iye``C4K>Cyc*#IdR(pqo z8hY4`E-MDW94W|XB%kYiGGSyql{ENcpC%;GR;c|iUvt639(3g3u%dZDALku1)(d@H zi%;P(N24EWx;&jnE@)ndg==ksh>KvZHybpF;LlOXG=z<@gK(lK1V9%6>xq?lJNVv5 z5fxt2Y6rq0@19{#)B!}@D+OoAy!S1qx4iaTsrx*hl1^muZW+!d4fef)lth+aX`B1( zqxVdCg3zXq6)z^!_%>4tz`djvLF;mBBtJ~$)RS_ZaLs2g(Y8|s?}>Oqzwp|wHuXs1 z<2WpJa;fDTSh=#G*%z04>G^vDx7wdspUcoX5rGm0m(@QGpsWn5DTLHMwWVwE@oh&l zXD<`GW^(XPZ_6HhEdTQLxlvz!Tdncaql``0z@q*K0QH>K-DHK=ftPwC`LJ%L!t(gR z&ueI%>kjB#&B_-^t%pr9fi3_r*!^tMz#ZFF@-Yo7Vu-t;8>JlHrZX`z#P=g}oe(?N zpN9w*T@FYdK#lIq4B;4(3?#1%VZkd-u z8X>*%7K|H&1^kt}Xz&x$@MmKpFG1BGjFT`*4q52^pyX1w`ozqc-zQAwP(@>-g_JXc z&TKb-GjD#&C&>I7cnEFR8n-#5 zhehpQPEUG-te?euk?40~zI8bbtxNAY1g`cD-95AaK*VDlPLLj4EgFb-H2u)7aJ^;~UW>Sx z!8!;bBbQy=s}wO%KdqUQi+7d=QCDV;{?aBaGrTJ2Uw_o)>+~Wn0rYVcplgEdW#>#k z*S72{{}Z>&S)WT5eF61=aD75UpwaKnmD0Xr-u91|gYEs0?L*XX+t=vd5^`ak%m36b z?f+|gQUh!VJO7;RwY<)cDvZlHT5e*+`$U|4Fadv^Yo4|Au-njYk&Ix&3tkXxtLh}m z$ixJcZ*v2{Vc3O&4eC3Le}&7oUV>(E+Ih&U!W+AdY!vxB{X;z(@A~?X10Z_}0n#mw zS}YE*8b()mL-2>lz>^|~)*}1fwqp0~worB-6ck)q*}jhz9^>(IKW^%^kQn7Hax&Ss5R8H*BG`R^^1Ij5 z`s!15IvH%4t~EZaqK9QYTC%uFc@D8y&moq)dy23G(QK>KNXPGfz~I$D$%lySQ-CWQ zz?BhLy~A}TnV=1g7T&K=UUL3Ms@CPM1?>u$0c62_&;A>#UiU?9AFBAD<|`0@VFb#s z6?n)$&)mFqz{!gLGpd@>e?)vmdx2y5B818?3&6?w4W=PZ;W`5{69#QR5RUSV94b}N5AwNkPXy2Xq*6; z;Wdh5>)_aa;p$PmPtp2S*;Di!N4uens0TKTYenjx zuYdp5kzYp% z06xBS+ns6bAzQ7mc_25*%*LhCyAmoruN zcn`RbJY-sok*EGaD%8WUBbK6bP&Mo?s9L;l0jVCUXrEg7n3+y$6#7~ZA=)~8_) zZDHrHfvYj9@O=@_p4RbC**kje|Frxi=q4(}CB)5R^hJt~ZpOW@w*E&v3&Ug5(Icxzgc zom@ivu>|W|_b)!dxOT!CihlzX9CglFo>c!+wJ~C^httan=d}q`P6{z<5bfkJXpuq~AjR|Hy{34NXT7=Sz;yaUj1mXoON(}9jflsl zqh?x1F!e>S)9f3~zU)=U;Q%)@nlqwhGSVy@7%6a}HMJ*S&j?D-%?akj5EP>p9sp9U z!eXwO{hBJbnI0ptLe*;>2cblR_ZGb72{-&EXnrU@L16fPfA|sJ>%t3$r=)OR$$ec- zpvQ|mOa66mlTG)~r-5kDsqiT*GlO<;zBvtp+J~2UgiosqfX!R5do(hWBuZF8MjC<= zN895ygsb(zwJ4u=g5@(NZTer7Ji2yBi|))QBP9;N82PEwSz;GE@zC$U=Q_~e6e?Wv_0&&^lmFCR1WHFiV$4P0exI2#jo zi$+guW*;cbPF8jP=%a`=sSJxptfDz~jYezr9#cB18aT?>RUmf)aHL5X&F@KHXCY;Mu6 zotevrCycJ11kD2w*YELOgR%%3t3LYw#3hsm+iRv@@8z9POI^f22TL$vjpg*1 z1;B9aa)ZB#i6(uk7(`+b4l#Q2?>)FQ1U$Oz?r*Za$oRo(}&3a0Z1S;q0Un?!B41sP=`bLJW?f2BUYMLNn(Fz zdvIAAFNsO3zrqW~h*kIs|QA>03AB{0itup^dBkXz;N4JQ8XPDp&O z@3zU0)}mYmbO7RMAo3{%fTbw{Km`-PZC6Wg`x2j>oERL2k<}5EPQ#>j@&jG511Rt< ztRVyt2$v^VF#iy6O8>(Pg=-sd8nhNw=_ueq z8Q#~`KeJi(I|bV2+D0$MN)*6WC8B0uf?;U~zs|R)JdE?+w@Egh1>GnfKAhy;3&d=&rPp3;GDG-+MxSH{JZ+obvUAKTngag+jGDuo>g za0)9x`r;Ha1f%4A$vONaLWT((qi`C8Bu^Gc4DUYe%zVC3yk5Xl~ML{)<)5LI^_ zjqtXG%G!>z>qrnt2?hB~g%MNohHX*OgiOuE7dE{2H$y??yB?#{7KPLdU=hr>->t5O zZHa=m4-Gt^}keY~heTM_jf-C@qpVAL$k+Su+ zY#f98Yo}`i378)*gq2?kgw<@^m(Yel)VI7K&{OaHu3?|mTT!#Xg|bWthG0q$J9HsB z-xxFNR+@p8mMx`Gx_Ttt_Vu&H6l{^VWYC2K>}xW6h?>MHQZsa&yfy1 zM`WT1RQ=Jh;{6K-jUqM{2_=mC3VWAlpvZjxl7LBB1GU;Y7@50WGB>#VAH_ zaRkfsRUM6ZReWVyGbbaRaCXvj_``!0^&KruBBVDdp*XL$PaLj{1>ZqI3X2PPy_v?e-3CUR;#(Oy^K9nfnl^Vu9?-%blQyD1U&PuIg) zR1Wd#G>wAccj#YuJOI-f(C$JfiZuX9207?Npx~USDs`KII@JEZZ7XI+Ko{0T7xoGd z5-wmG$wz8XKch6A`c-ILXbnIc;sRweK~u$$^aafXY&fv0s0C<&H!P)|bw9#HS23{fK@)q zMF2Hjb;6)AfCIB+Lr>}hezjIZ@YdrORxG9Z2n}hJf-H?sWOUfdxFgd`9Y7W;1ok71 zCBMYLeL+&AZvD+n&k>VY*miI!lEge@F`_}1Wv96?<;Pbp?y$B9Lpmw2(yzfV_0pOrUcDD=qLXLT~@$I39Wg}n1`xZ@m2J35#0Da z|6_a?`M;qm=C>AYjP1Wzwejo!7$3=9m|xeLQ>4_+}D+ z7@rdN2VlAV8?a!0pr~M^tzf0UkSciqdhfK;9RYJ;z*1q8#|Nd*|BMJ8^*o2-W&PPK@M( z?5T)oPo~|SF@I`mTx$P;SSbg9lEGr-tDYprZUcgmYs$cv zS8#1!(9}pYRchl>OdYpq+JAxTeJ zRlkhlZb4O7euOGNK;!ZR%3Dy&@VS~>i?Fd^bORx1bXB(${H3dSpMAywI&5c)Y2>`B zg7qziy`)s*y1E4ap(*}^tV$5zvu@jseCi=AH3unM8GgoQ%oKf$XO67WUcfFe+5s5g zuW=fT6b1`;_z)Vhcgd*|Ca7JJ?(y8?!Y4$2@*kKLD*^*y4VwR{sgC9R4O%HJ;9P*t zfPwX3xmbEr<`OaCNTU@$E7$KSnmNV-v$H~Lz5*@zKbDXELLQBO%`(w@Y>Hz84*WK6 zh6)Ej2a{UzU#dD;6?maJIrRrFr#g#?!Nozs!lVRYMCSYiNP&2F>$pR>h_ZY&s#&?; zrY}zfI2lIcQXs~|2JuPdgLWt;qtS@y$G?#OLrDK<>X?)hTD|~qTZpt!FGhQ=>P#$? zaS|8evOFe!O-3zNR^?Bqi~4la-u z#fmbHAdb1ESF|gD`ht~!vWHpvA!ZQ7v{#5dDP^u5$tQczx)nr$LDLrxcoAd+ObTY5 zFbaDBK7(<#^&_d@4CHvwgt`8Uu)@%&F4nZ<^bI|kzzm2VnV4{Q&A6BH?eF{(nxf}< z^~ba=3}ZoCxO`qy30TlnN)mo|tF&^M3&Bsh4Z;M*#fox&x97?JO-#e*i5KEG3P~BG zepUY@!}REuN1HxE#RZBQBXJ||64>-#tQF652+u@uFQAkk#h}=K2hA#l707#x>o5&? z*V2ehylb&jUYM;ET!5=22mJc;c(qqC!a_r^meKuXIcit`qAf5kBeaWK!FzSIkVMuD zqYQDqp7*>zE?v5GK}~%FWeY}uR90Z*At;Ghu?nQo=xmY@+nT3C$As>5!kiST3~E2* ziJ}VQdA16$I|{mD^{OY+66T)HE!}Sxc#Ayd!c^~iH7j?1rpxo43y!g%P1P%y>flNAn`#=rMrl6*r6oDSoL>w2hJ~*f?2&y5f|B?T(;!tn^vOEmZ{_6lC zPJeS37(4Psk{pe^7#7k7b$AYz2Fe4f1MeW#f;lAo@3+1U8Eo^E$^p1Z(q zBj8NR`>*7`HT^efsfd%7VSATgI5eYd1}n|s6=-z#q6|R3014yWAj~*7gdQ#=04b`h zhhaD_BWuEsMFZxQqHBCWMgdv(y zh#hJuaK2by72+$uolf~vOTBMAk5hMd9}eiHkrePzwBcE)|6_L%M74k6SOdHkO;>Z` zo()6XDdh^j6it`{y(H4b?sMxbZ4UG+W9Xv)1*)JxLik{-KuE$RRYA1{HT}Y(e~~K2 zvjwsjL9BR*rCnZ5+Nr?h_2pDIO@6OjUPI^YK ziJgZm#gz+CHPQ^NI|{jM(;L`AgjLNKuxg3QzxMY>O%}xjAPAZOj{Y#$uznDfc$j`d{ODIW!x>|>;;1{l`y~xvw+-ukhJh=x;WFDZcc|PW*g8b z1xCFDL>Oji{I3gqUjnmNwAdHXEF`oKHT%DSt1m};sc{s5yy5b1Lu|CzPd2IkhpK22 zM6S-Y94D%Z{vxW@x##uh;8Q^AQ@tX+U2{%ALa-0>yYrt;z>4PPe~YUa^$E%pq|1MU zmM+hA!3z_hb8(L;1)_ZnL^2DSrbtp;uz%M&TIB!9RA7Fh$o>LE-2Q`le{?L5cYZ>% z6i8&Tz2H(77BUA}`g$#{%+g6y!LwC$1k!*yHo(WI1p3^Kn4k(E;?%zcmj4ZzHG~UIrDa=I z#NR@owfpU~h9F~LPkB@+#UgEOd zF9YUjYKJsoz7a{A7`q5?el5p|bE93j;>OjP0Hy1XF>tsr?E!-SA}w|b7ZsPr*C(l2 zY49E?w55p_*li?-P>%xN8)MDiznG{o=K`{vjz%=uLJCJLv?_#YAv%$I6sQ(737#eM zdlvNODUF4uRk=yI;2O*y;G>|-koAx(hT*!{Z|FMntIKl%xn3->N(PA)3sFKF6RS;| z2JbpchvbXa#44X2Pn-Wa1pqs)hwr!p4Yr)FP2Hf3x32CIT~hzz7U~NW(E9)t189^MEzy0w7Zi$FxPg<+N3-en@6T?NZ|2+p_m2n)FJvRwX|HmXaMzKKaX%YhDI(Dq+ z;CKM;0as=x<9~a=9BjqVOd^IcfhP7p=q2}<<~(d=-44~i9vuR}@S#NPA?4p;z=xWe z050@TGJ&<0sIk68)Y87KXz{|r;rJXVE1DaJVc?VpL+3|3%fl+XIr{fcOrWj;<3L%L zvJ)Kyxa3`8z_tHQFU%=SPxnHM*C)+Q0GjN?=WhVTA?SxS96?Qs5ZksjbF_u##M8C3 z0bqka27obY9kM!gH;rY5!B`$InwScgKqL&dDi3MtfkJ)3=^%><(7~=}A{$Zppc4gQ zOyu&?6}4zE2HxOKZN@Lgibn02c8eG`NkYqu%cA>W=5q|ix1|RySHs}g6ctxNVTYx- z(N;*o*$jL@zlt;rb2&B^wJ@Pii9*Z-#RMQ2ZUd%R94fYV!_h-Kl!}@{pm5={_w*Ib zNXo2rT#Qls@r5i`nNzaK63&4+GceVHVM3^Rg$X~6;;uVhRJ^BYsw@{HGsn<{+LcKPQ=HeUZl^W0#{Es;J z@C&p+vf>n~-PuWzdpc!wQWPa|PKRhS<5x(ROgL&r6B!>{f_% zv4e?tE@%8t0<@i~$jnRmisa!yc;qpB6defgegz7s7A&3Md@_$j{UrIn_OYI5T&EA>WXTXoJZc=HX{?CCu)F z?hOauVH2?&;{4pEUm!lAtqlLs067~bizZ;8LdRNj8PQ~K=z-zH7CIp_4P} zAJYt8SHglGQ0T4AF%3cSVb9Nx+Quf-dI=EC+xftBmd}4NipbTtn_hM^_b^QIg5mlw z{5~%>P2`vQ6t2~3WmoO3ets`;hZo%a#eTGg7vj~GFU#AaiGIvo-)B#Cqb>fl16}UZ zy%RdEiY@YnT(jTLhV6CQ2Csp8$S4nHd8qZ7pq(@FYNzQD)q@^}MD(%+>jUU&L;Tg1 z=IzeqgdN8x8FGgpDzR*Q(b=Uok~c}}hBekQLE)Xyz+e-C=s_I_LTqX}HBs$`FU(a< zpFwkrNiD-4X2+{%&!UK3A2`KJ#q){T5DL_<40&L&RNtIrHm}olTxqneY5lScZWH!^ z1+pZU-w7SxUyPH+B2j}UG){D&8+pm2l`)~c-q4kIM#*Sxb9E>F9VTD=JJG)w>!R;m zyl^gHZg;eJp%o*kqemrwx_r_ZZYUDU?cv;If^QG}#2)$!$K{hj>^_XnMrVh&Y4GM8 zw1c})Rq!Q#hF_K)SY4i-IQ-P7uk*CL>o&OFW&B&#&mA`B!wU)%(R%?dpR5nwyT#ck zyiR#620c61I`r%$y;skEvU;^Mnl)b#<_hu+EO$Bh1|}b-a>6f}cp>!2ecZ{$?xIa-Vg_IOuGmsfJ)7#=her$*UQ!C5 zcMa_9*pZ(sle~tuu*7A3oN#eDHncD&_=WAN#nOReCq78xo@9snSQGY{kgmRYPnfAe z9Yd}`H<+!-1Ygr3F#AE(_Sna-y7{Ljj1IvKyz!0Z;lp>P^7GWlCAUlX&QRO%1#1L! zK7}>E_(srn$PIpfVff5W_*MzNF=4_GwmSNwLNiY`frHgRBBq++%NBcUGc1{({Bgvy zTVSfT1`^7?-LyZvvymjWF)?>BPU5lj&>3IYszRT_qTS9$b$7~7pnS1!C;sVmr8YL} zgxGppUUu+?44)BD1L`F#0)W(>Rd73ducHXtPMM`UqkVkJlXC4 E0O^quVE_OC literal 0 HcmV?d00001 diff --git a/report.Rcheck/00_pkg_src/report/man/figures/monster.ai b/report.Rcheck/00_pkg_src/report/man/figures/monster.ai new file mode 100644 index 000000000..c05da2b38 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/figures/monster.ai @@ -0,0 +1,526 @@ +%PDF-1.5 % +1 0 obj <>/OCGs[5 0 R 21 0 R 36 0 R]>>/Pages 3 0 R/Type/Catalog>> endobj 2 0 obj <>stream + + + + + Adobe Illustrator CC 23.0 (Windows) + 2019-02-02T11:42:18+08:00 + 2019-02-02T11:45:02+08:00 + 2019-02-02T11:45:02+08:00 + + + + 256 + 248 + JPEG + /9j/4AAQSkZJRgABAgEASABIAAD/7QAsUGhvdG9zaG9wIDMuMAA4QklNA+0AAAAAABAASAAAAAEA AQBIAAAAAQAB/+4ADkFkb2JlAGTAAAAAAf/bAIQABgQEBAUEBgUFBgkGBQYJCwgGBggLDAoKCwoK DBAMDAwMDAwQDA4PEA8ODBMTFBQTExwbGxscHx8fHx8fHx8fHwEHBwcNDA0YEBAYGhURFRofHx8f Hx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8f/8AAEQgA+AEAAwER AAIRAQMRAf/EAaIAAAAHAQEBAQEAAAAAAAAAAAQFAwIGAQAHCAkKCwEAAgIDAQEBAQEAAAAAAAAA AQACAwQFBgcICQoLEAACAQMDAgQCBgcDBAIGAnMBAgMRBAAFIRIxQVEGE2EicYEUMpGhBxWxQiPB UtHhMxZi8CRygvElQzRTkqKyY3PCNUQnk6OzNhdUZHTD0uIIJoMJChgZhJRFRqS0VtNVKBry4/PE 1OT0ZXWFlaW1xdXl9WZ2hpamtsbW5vY3R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo+Ck5SVlpeYmZ qbnJ2en5KjpKWmp6ipqqusra6voRAAICAQIDBQUEBQYECAMDbQEAAhEDBCESMUEFURNhIgZxgZEy obHwFMHR4SNCFVJicvEzJDRDghaSUyWiY7LCB3PSNeJEgxdUkwgJChgZJjZFGidkdFU38qOzwygp 0+PzhJSktMTU5PRldYWVpbXF1eX1RlZmdoaWprbG1ub2R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo +DlJWWl5iZmpucnZ6fkqOkpaanqKmqq6ytrq+v/aAAwDAQACEQMRAD8A9U4q7FXYq7FXYq7FXYqs SeCR3jSRXeOgkVSCVJ6cgOmKr8VdirsVWySRxRtJIwSNAWd2ICqoFSST0AxV5vrH/OQ/5XWF6dPs tQl17UQafVNFgkvm8NnjHpH6HxVCL+emqTD1Lb8tfNzwN9hpbBImP+wMhpirTf8AORGhWIJ8x+V/ Mvl2Jft3V/pj/Vx8pImkqP8AY4qpaz/zkX5TuorXT/y/DebvNGpnhp+mW6SxIlestzJIqelGnVq7 /IbhVgH5q+V/zDGiWI80+ab3VPOXma5Ww0Lyxo8hsdLhlfd5JeI5zRwLuWahqRWoqcVelfl95E8g fk9oHrarqtrFrF3Go1TXdQmSJ5iu/pxmVvhjU/ZQde9Tiqrc/wDOSf5I210LaTzTC0hIHKKC6ljq TT+9jiaP6eWKvSIZop4Y5omDxSqHjcdCrCoI+jFV+KuxV2KuJAFTsB1OKrYpopoxJE6yRt9l0IYG hpsRiq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FWL/mnHqUn5a+aU02V4b/8ARd4bd4zxfksLGins WpQH9WKvLfKH5JfkXq/5a6J5q1DR1tS+mQ3t9qK3l3EUkEQa4kZlmC7OrbkYpAJNBKbODyVYy/8A Og/nFfaHMppHZa1KbnTyRT4VjvUhUcunIMTkI5InkQ5GXR5sYucJRHnEhlkf5t+ffJqxn8ydCjvN CanDzl5d5XNmFJ2e4gP7yMdKt0r9kHJuM9V0LX9F1/TIdU0W9h1DT7gViuYHDoadRUdCO4O474q+ d/zCH5pa/wCbZT578o6zc/l/aktZaD5fmhlW44GqyXrRSeo/Y8fhp27llWW/lh+dv5WXuox+UvKH lfU9Kuq8XsU0+GEJwPEvOYpXC0ru8h+Zrir2rFXYqhbXSdKtJ5Li1s4Le4lqJZookR2BNTyZQCd8 VYn+Y35Waf54udFvJtV1DR77RJJ2tbzTJRDN6d0gjnQOVbiWVAAw6b+OKpbon/OPH5UaZcfXJ9H/ AE1qB/vL3WJZL53I7skpMX/CYqwvz35R81Wv5rWesQeRR5m8paRaIPL2mWc9paW0N4SGlnmgcfE4 Oy1WnQjcYqyJr3/nJLzEKW2n6L5ItH6vdStql8le6CMfVz8mGKsR/MWw/NLyTFo7WH5i6jrfm7Wr xbXS9IaytRb3MlQZS0ZJWGJFPxNvSo6dQqy26/Ou40S3tvLdxbx+cPzLKkXejeXEk+rxOD/u6aQy CIL+2TuP5QMVY/ruofmJeOD5/wDP+m/l7ay0ZPL+iukmolD0D3DkyBhXdogy4DIDm2Y8UpmogyPl u7yr+Vn/ADj35xu5Lf8ASWo+btRhi9aRtVvb9ZygIUyU/wBF5AFwCVFN/fIxyRlyILZn0ebDXiQl C+XECL91pn+VnlzRvLX51+eNC8tQGx0G00/THnsEd3jF3MrOr/vGdgTGT3ybjvaMVdirsVdirsVd irsVUb29s7Gzmvb2ZLa0tkaW4uJWCRxxoKszMaAAAbnFWI+UPzl/LPzhq0mk+XddivdRjVnNsY5o WZU+0Y/WSMSU6/BXbfpirNMVdirsVdiqyaGKeGSGVQ8UqlJEPQqwoQfoxV8/eSrO5n/5x886eSnr JqXk+41TTxH+2/1WQ3kJFez14qfbIzjcSO9u02Xw8sZ/zZA/IvEgVZQRurCoPiDnI8n6HBBFjkU3 8seb/MflOVptCvjaW7Va4sJP3llKD9r1bdjw37svFv8AKzNwa7JDb6h3PN9rey+j1IMq8Kf86O3z HI/YfN7N5X/LnVb7TbHz7+W18fIuo61F6mq6BLD6+lzkMU9VLc8fTDU5xso3UjZanOhibAL41mxi E5RBEgCRY5HzHvTn/lROpeYG9b8xfOWp+Yw32tLtWGm6bxP7LQQbttty5A5Jreh+WPJ/lfytYfUP L2mW+mWu3NLdApcitDI/23O/ViTiqcYq7FXYq7FXYq7FXYq8P8//AJN/mV5w/NePXT5gg0byzb2p srWSyaQ6hFBIv+kCMNGESWZmZTIr7Jtv0Krzzzj5in8j6heeQvKFmfKWl2z+nLdJVdR1MhRW4a6Y B+B5fD6Rr/lAfCNdrdTkhtEfF7L2X7E0mq9WaYJvbHdE+/rXu+fRgCRojOyrRpCWkfqzMdyzHqSf E5opzlI2Tb6rp9LiwR4ccRCPkKes/wDONOmtcefr+/pWLTtMaNjU7SXc8fpnb/Jt5M2/ZUNpF899 v8/qxY/60j9gH3F6B+RL/pnVPPvnYfFBr+tvb2E3+/LPTU9CBx7Hkw+jNu+dPWcVdirsVdirsVYd 5x/N/wDLfybqMGm+ZNcisL+4UOlvwmmcKxoGkEKSemD2L0xVldneWl7aQXlnMlxaXMay29xEwdJI 3HJXVhsQwNQRirxH84/ze/LDzF5K82eTLDzFCNd+qyrHGyyxxyTWzCUwJO6LCzMY+FA+5NBiqF89 xyaz+WH5c+efJ2k/Wdf0q50ybTrazSjiJ04XFnVA3GLmOL1+EUxVb50tfz18veTrv8wNa87wWOo6 bxuj5ZtrSI6eEZ1X6qZSS8jNyoGNd+jftBV7tpV61/pdnfNC1u11BHObd/txmRA3Bvda0OKorFXY q7FXj13Inkb8+vXuAE8u/mRbx27yNtHHq9mvCNWrUfvom4j+Zm9jirwzzx5QufJ/mq90CVCtvExl 0uQ1pLZOT6JBPUoP3b/5SnxGc7r8BhO+kn2b2T7WjqdKIE/vMQ4T7v4T8tvel+hatBo2tQ6rdafa 6pBaLzitL0uIBMDUSuFID8APhDbA79QKR0meOM3w8Um72h7KzayAiMoxYhvLbn7zY2H7e59fflx5 h1/zF5StNa1yxTTrm9LyQW0fMf6PypE7B/iHqKOY9iM6KBJAJFPjOoxxhklGMuOIOx5X5smyTS7F XYq7FXYq7FXYq7FXYq7FUJqmkaVq1k9jqlnDf2Uv95bXMayxt81cEYq8J/Mf/nHeS2B1PyMjyx1r caFLICVFPtWssrV69Y3b/VIpxOu1XZ8Z7x2k9n2F7XZdORDOTkxd/OUf1jyPw7kPBaat+WH5QXoa Bk8/+drldP0nT0KtMksw9G3QFSRWKNmmPYO3HMnS4fDgI9XSdvdp/ndVLKPp5R9w/Xz+L2n8vvKF r5P8l6R5atirLptuscsiigkmPxzSU/y5WZvpzIdOyDFXYq7FUJrGofo3SL7UfSaf6lby3HoR/bf0 kL8F67tSgxV4Z5PtPzz8w+TrP8wtG86w3mqaiHu08rzW8X6NMQdlFp6oIdHHGhbb4vhJ/axVr8vL e2sfy28//mF5z0tYde1S41V9Sju0BljhiHpR2KlxXhzXgq99vbFVT8mfzl/Lry/5J8o+T9S1sSay baJJmjSSaGCS5cvDDNOgaNGHqBKV+EijccVSs2Ol/lvpN95D/Mjy3+lPy2uLuafSfM9vCZ1hFw5Y LeemPWilTlQSr8XZajoq9c/KS28i2Pk6DTvJOrjVtCtpJGgb10uGh9dzKYWKhWWhckK45eOKsBtD d/nh5kgvnRrf8qfL92Wghk+3rN9AxAdl7W0Zpseu46k8FXuOKuxV2KuxVjP5jeQtL89eVLrQNQYw mSk1leIKyW11HUxTpuN1J33FVJFd8VeVWU1t56hH5ZfmYh0r8x9IUtpWrIARexqv+9Vq5CrIron7 6I9aV2ZfgryYozjwy5OXotbl0uUZcRqQ/FHyTnyH/wA466ZouqrqnmO9j1yW2IaxsxB6Vsjj/dsi O8pkcfsAnivWhNCMfT6KGI2Ny7jtf2n1OuiISqEOoj19/wCp7FmY847FXYqxzzNqOpy6jZeXdInN pe36SXF3qCqrta2cJVXeNXDIZpHkVI+QIHxNRuHEqpff+Rvy60/TrnUtZ0+2njtInnu9X1Kt1cok alnkN1OZJloBXZtu2KsV0H8y9KjsWvvJuoS+a/L11cDTrS3lM5nstTkoLeKSW4X1/qsxNOcnIxno SpoiqJ8n335T+ddRvdLudTtvOnmOyBbVEvoXkgQo4Rza286fV0hVyFBiB7cmYmpVZFqmgt5Wgl1v yvG8cFqrS3/l6Nj9VuIF+KT6tETwgnValPT4q/2XHRlVZba3Vvd2sN1bOJbe4RZYZF6MjgMrD5g4 qq4q7FXYq7FXhOg6tp+s/wDORGpv52mOn6tonOy8iaLdI0cUkDEiS+hkb4JZZgPhANaf6vwqvdsV dirsVdirsVeHanBqv5I65PrNgpvPyq1e7V9V09R+80e4uHCmeAAf7zsxFV7bDrSqrM/zqsPJ2o+S DB5w1v8AQ3lk3MM2ouho9zHFV0tkoGYlpArfArMQuw7hV5gun2/5h6JZ+R/y78qPoH5efWLa41fz Hewm29eO3kEnC2RqyzyPx/vGPsadcVfRjojoyOoZGBDKRUEHYgg4q8V84aPpf5afmh5Z846LbR6Z oHmGc6H5otrdRFb+pOOVncsijgpWSvNqDYf5RxVG/knKfK/mLzT+VtyeK6Nctqnl4H9vS79vUCr4 +jI1GPi2KvXsVdirsVdirsVeP60reePz70zS4ABpP5dxDUdRulUc31G8X/R7b1PtKojHqMBsaEHo KKvYMVdirsVdirFbpvqX5jW805Ig1fTPqlqxPwC4s5nmMf8AryRTsyjuI28MVTjW9G0/W9HvdH1G P1bDUIJLa6jBIJjlUq1CNwaHY4pecaX5b8k/kzocGm6RFc3MerajHPeS3DrLLHbwlWuLuTiqKsFr GtWPHao7kYoTnyH+SHkTyR5j1LzFocVx9f1NXQ+vL6kcMUriRo4RxUhSyDdix98VZf5g1m20TRbz VbirR2kRcRru0j9I4kA3Z5HIRQNySBiqh5N0ifRvKGh6PcNzuNN0+1tJnJ5EvBCsbGvfdcVTjFXY q7FXYqxj8wfy68ueetDbS9YipInx2GoRUW5tZh9mWF+oIIFR0PfFWOfk55x166Oq+SPNz8/OHlR0 hubnte2kgrbXa16l1+370J3NMVelYq7FXYq7FXkH563Fx5m1HQPyo05iJvMsy3muTL1g0mzkEkjV 7GSSOieJXj3xVBeU9LtPzO/MrVvNmqRLdeUvKNw2j+U7BwGtnuYQPrV4Upxf4qCM9KU7rir2zFXY qxn8y/Jlv508jav5cl4iS9gP1SVukdzGecD16jjIq1p2rirxOfzPql35R8sfm4kL/wCKvIk76L55 sh/fS2isIbtZB/MpYTKOi8if2cVfRWnahZ6lp9tqFjKs9neRJPbTL9l45FDIw+anFURirsVdirsV fLXnjyl5mH5oar5Y/LbzXqY1zzBeHVfMEduwt7XTYpd+VxdRfvWNGHpxrQgeJIqq91/Lz8tNN8nW VWvbrWtbnUC+1rUJXnnkO1VTmzenHUfZX25EkVxVmGKuxV2KoLWdF03WbFrLUIvVgLLIhVmSSOSM 8kkjkQq8bowqrKQRiqSDy950gHo2vmdZLcUAkvrCOa5Ar/v2GS1iO21TEfeuKojQ/Luk2l3d3Et4 +s6xcJ6F7e3bRPKIQT+4WONUiiiB/YRBU7tybfFUKnk/WtMj+r+WteewsF2h0+8t1voIFH7FuecE yJ4K0jKo2UAbYqr2flG4lvbfUPMOpPrNzZsJbO39NLezhlAIEyW6li0m+zSyPx/Z4nFWR4q7FXYq 7FWnDFGCnixBAalaHxpir5m17zH/AM5AeS/Pa6X5h84WkOh6rIw0fXL2whOnPIfswztCqyWzU8SV 71pU4q9J8l/l55+T8xG88+cdV06a9XTTpUVto8MscckTSiYNM0254tWlPbfamKvUcVdirsVUL+/s 9Psbi/vZlt7O0jee5nc0VI41LOzHwCiuKvm+38z6rb+U/Nf5uyxuvmbzzMuheRbE7Sx2rP6NsEU7 cmKmZuzcAf2sVe4/lp5Mg8meRtH8uRUZ7GAfWpF3ElxITJO9TvRpGantirJsVdirsVeKea7a18gf mr+mbyNW8i/mIo0vzFE9PQg1LgVhmkB+EJOhKv8A7JiemKon8o7668k+atQ/KPWJWeC3D6h5MvJT vPp0jFnt+X7UkDcvo5dFAxV7FirsVdirCfzd8+T+TvKZn02L615j1SZNN8vWVORlvbj4YyV7qn2j 40p3xVf+VP5dweSfLf1aaX65r+oubzzBqjVaS5vJKs7Fz8RVSxC1+fUnFWZ4q7FULquqafpOm3Op alOtrY2kbS3FxIaKiKKk+P0Dc4pAJNB8zeefz6826/dSQaDNJoOiKSIvSot7MvTlLJv6VeoSOjDu x6DTantI3WP5vo/YvsTExGTVXZ/gG3+mP6B802/I65tfMmp6jpHmm7vdZk9FZrGPUL67uI+KNxmX 05ZWRieSH7PY5Z2fqpTkYyNuN7X9g4dNihkwR4Y3wy5nny533F6h5k8gfldpeh6lq0vlTRla1tpp jL9QtlcsqEijhA3InYb1zY5Z8MSe4PF6HTnNnhjH8UgPmXyJ+i9M/wCWSH/kWn9M5fxp/wA4/N93 /kzS/wCpY/8ASx/UnPkzSfLbebtFTUrC1msGvbdbmOaKNoyhkUHmrChXxB7Zbp88vEjcjV97r+1+ y8B0mXgxw4uCVekc66bc+59bf8q58nJX6pYtp3X/AI5txcWFK16fVJIafaPTOnfDXz95z8++atC8 76ra+WPMmox6baT+lDFczG+UMiqsq/6YLjkvqK1K9s0mftCcchEfpD6h2V7IabPo8c8olHLKN2D3 8tjY5Uzb8u/+ciZLm9h0rznFDbtO6xW+s24KQ83IVVuI2LenUn+8DcfEKMzNLr45DR2k85257J5t HE5IHxMX2x947vMfY90zPeSdirsVS3zJ5b0XzJol3omtWqXmm3qGOeFx9IZT1VlO6sNwd8Vea/lP rGs+VfM95+U3mS4a6awg+ueUtUkpzutMrx9J/wDiy3pT5A9lBKr1zFXYq7FXj35u6hd+dPNGn/lH osrIl2Fv/OV5GaG30yNgywV7PcNQew4/sscVQvlm0tPP35qrqNpEq+Q/y2X9G6BEgpDNqgVVkkSm zJbIqqvgeLDqcVe14q7FXYq7FUl86eUtJ83eWNQ8u6qnOy1CIxswALRuPijlSv7UbgMPlirw2107 zF5s0SXyTqdyLP8AOD8t5Vu/L2qE0+uW6cfRlDN9qOdOMcte/Fm7rir1v8rPzEtPPHlsXjRGy1qx c2mu6U9VltbyPaRGU/FxYiqn6OoOKsxxV2Kvmn8yvzLm0z85rnX73y7qWr6L5GsXh0sRRGOzW+ue IuLqa4cFEAVvRX4WqwFN8Ve1flj5m8y+aPKtv5g13S49GOo/vrDT0dpZFtmAMbyuwT4pPtABR8NP HZVlmKuxV4X/AM5PeYp0t9E8tQvxhvGlv75Qd2W2KLAjD+UySF/mgzX9pZTHHQ/iev8AYvQxzazj lyxDi+PIfr94eC5zz7CmXlzX7/y/rdprFgwW6tHDqDXiw6MjUp8LKSDlmLIYSEhzDia7RQ1OGWKf 0yH4Pweh/mf+dS+a9Cg0fTLWWyt5SsmpmUqSzJusSFSaoG+LkaE0GwzO1ev8SPCBXe8t7P8AsodF mOXJITkNoV95862rpvuXlWa17R2KvZLX/nIa9h8kjTmt5JPMiR/V49RYqYuNOImap5GQDtShO9e2 bUdpkY6r197wWT2IhLWeJxAacm+Hr/V7uH9G3m8cZmZizEszGpJ3JJzVPegUtdFdSjgMrAhlPQg9 RiDTGcRIEEWC+svyN8xXWu/ltpk15IZryyMthNK27MLWQxxMxPVjEELHua51mDJxwEu8PgPaulGn 1WTEOUZED3dPsZ7lrr3Yq8r/ADvuPzf0XTT5l8h6is1rYpy1TQpbaGYmJKlp4G4iUkD7acugqvgV Xmj+ZvzT83al5B84Dy5a6nFpWpJIvmXy/K8sbWNxSG9t5bR63Mb8evLpuOOKvp/FXYqw/wDNH8xL PyP5aa+9L65rF44tNC0pKmS6vJNo0Cj4uIJq5Hb3IBVeR3Fh5h8oaHH5R024+vfnJ+ZMjXOuakDX 6nA/L1Ziw+xHboWSOn7XIr0C4q9w8keT9J8neVdO8uaUtLSwiCcyKNJIfiklf/Kkclj/AExVPMVd irsVdirsVecfm55A1bVhY+b/ACk4tvPflusmmOaBbuDcy2U3SqyAtxr0J6ipOKvPzrNxqAj/ADo/ Ly1b9M2y/U/zB8nEMss6w7SApSouIOqNT4l/2Ssq9v8AKPm3QvNvl601/Q7j6xp94vJGIo6sDR45 F/ZdG2I/hiqcYq8b/MXl+YP5oaT+W0dX8vaIqa35wA+zIRQ2dm/+uSHZe6mvVcVexqqqoVQFVRRV GwAHYYq3irsVfOv/ADlBZyJ5k8u3p/u57O6gBpsGhlifr7ib8M1fasfQD5veewOQDUZI9TC/kf2s b/LX8oNU85Qy38tx+jtJjJjS5Keo0sg6iNKp8K/tNX2Fd6a/S6KWXflF6zt72nx6AiAHHlPS6oeZ 3+A+PdZLdfl35pTzLf6BaWcl5c2EpjklQcY+JHJHLsQqh0IYcjmt12fHpSRkkI1+OTscfbmmOnhn lIRjMXXXzFczR2Zbpf5Ba3MvLUtSgs6gEJCjXDD2apiUfQTnO5/ajFH6ImX2frdHqPbPDE1jhKXv 9P6/0J7H/wA4/wCiBAJdUuWf9plSNR9x5frzCPtTP+YPm66XtpmvbHGvioXf/OPlkxraazJEPCWB ZPxV4/1ZOHtUf4sfyP7GzH7azH1YgfdKv0Fi+tfkl5xsEaW09HUolr8MDcZeI7lJAv3KxObPT+0W mybSuB8+XzDudL7WaTIaleM+fL5j9ICSeU/y88y+Ztan0i0hW0urWMyXRvOcKxioADgKz1YnYcc6 PS4jn+ggjv6Ow7S7c0+kwjLI8UZGhw0b929fagfNXlXWPK+sSaVq0QS4QB0dCTHJG3R42IFVNPDr sd8c2GWOXDJyezu0cWsxDLiPp+0HuPm+hf8AnHC3lj/LSOZwAlzfXkkVO6rKYSf+CiOdHoxWKPuf F/aPIJ6/KR/Pr5bPUcyXSuxV2KvE/N3l/Uvym1y48/8AlCB5vKN3IJPOXliEDjGp+1qFovRGTq6j an+T9hV7DpOq6fq+l2uqabOtzYXsST2s6fZeOQclP3HFUH5s816H5U8v3mva3cC20+zQvIxpydv2 Y41JHJ3Oyr3OKvDv03LZM35zfmHaP+lrmtn+Xnk8VMsSzf3R4UJ+sTdWanwqfHiqqvQPyj/L/VtK a+84eb2W589+Y6Sag4+JbO32MVjDueKxinKh3I6niDir0jFXYq7FXYq7FXYq7FXkf5h+Ttf8reY3 /M3yDbtPf8VXzV5cioqanapUmVAAaXMY3BAq3zqHVYxYXT6X6n5sflKG1bytqrNN5v8AJynjKkw3 lnt49/TuErV0/a/ZqpFFXr/l78xPKXmHyi/mvS75Z9Hhhee6fpJAIk5yJKnVHQdR922+KvJP+cdv zD8iXI1G71HW7WPzv501Oa+uLCRmV0X1GitbRXYBDxQVRAxPxUxV7/irsVdirDvzU/LyLzx5bFgk y2upWkoudNumBKLKFKFJANykiMVNOmzb0yrNiGSJiXP7N7QnpM8c0OceneOoX+QtRsIdJtfLbxDT 9a0i3jivdLeisOA4meI7CWGVviWVetaNR+SiWOHBER7mrW6k5808p5zkT+z4I3Uf97ZPo/4iM8X9 riT2jkv+j/uIuRg+gIfOabnYq7FXYqj9FhhE08wjX1iqIZaDkVBYheXWlTnpP/A/JrMP6n+/cXVz NAXtuwj80PL1l5+uLXy1pMifpWxn9TUNWVRJHp8BQ8o5KEcpZSU4w8gduTUUb9/qNNHKBfRyuyO2 82glI49+ONUeV9D7w9C8v6Hp+g6JY6Np6FLKwhSCAE1YqgpyY92bqx7nLwKdTKRkSTuSj8LF2Kpf 5h0SDXNFvNJnnuLWK8jMZuLOV7e4jPUPHKhDKQRXwPQgioxV8yeXvJfnHy150n8j6l511PQ9WvjK /l7UrkrqGj6vbk0MMlpcnitwA1GXketKdC6r1TyVY2P5H/lfPD5w1+O6tLe6mmtDHGUos1ClpbRE lnZnDPTxY9hXFWJajcHWFX81fzdQ6X5T0wiTyl5MejySSsKxzXEW3qTyfsRnp+1RQaqso/Lnybr/ AJm8xJ+Z/n6D0dTZGXyv5ecHjpdoxPF3B63EimrEio9jRUVeuYq7FXYq7FXYq7FXYq7FXYq8g85e RPMnk7zHcfmF+W1uJ5Lj4/NPlMEpDqCLUma3AB4XI3Ow+L3JZXVSO08vab5tim/Mb8m9Qh03Xbqq eYfLl4v+g3j0rJbX9sP7uY1PxjZq1B35YqllvaXf5gedvKnlu58jSeTbPy1O+s+Y1+qxxxPPAQLe K1uYlVXjlfdqU5DpXjXFX0dirsVdirsVS/WvL2i63AkOqWkdysTc4HaqyRP/ADxSqVkjb/KRgcVS CTyBdQOTpPmG/to6gi2uymoRjff95cK10a+85zQdoezOj1czknE8Z5kE/wBn2NsM0oigoP5V8/ov 7rXtLmIGwl0ydSTXqXS+p08EzTz9g9GeU8g+Mf8AiWwaqXksm0L8xw9IZ9HdP5nS6Q1+QZ/15j/6 AMP+qy+QT+aPcvTy9+YTqnqX+kW7V/eFba5nAHsDPBvko+wOn65J/Yv5o9y5fKHnVx+/8yWiVUA/ VdMMfxd2HrXVx92ZcPYbQjmch/zh+iIY/mpIm3/Ly1ap1bV9T1XlT909ybSH/VMVgLVZF36S886D s3sjT6IEYY8PFz3Juve1TyGXNkWm6Zp2mWUdjptrFZWcIpFbQIscaj2VQAM2TBE4q7FXYq7FWL/m N+Xuj+evLkmkagWt7hGE+malEP39pdJvHNEQVOx6ioqNqjrirzK88p6X5K4fmB+cnmI+aNX00iDQ bX0wsCOABH9WtOklzIV5FqUB3/Z5YqmvkryP5i86eYoPzE/Me2Nu1ueXlXynJUx6fGTVZ7hSByuW oDuPh70IVUVewYq7FXYq7FXYq7FXYq7FXYq7FXYq8k/M/wDLy90a6vvzM8hXK6R5osYXuNWtGoLH U7eJTJIlylVUSUWokqPff4gqz/yL5nXzV5P0fzELdrT9KWsdy1sx5cGcfEoag5CvQ03GKp5irsVd irsVdirsVdirsVdirsVdirsVdirsVdirsVYl+aH5hW3kTyx+l3tJNQvLm4isdMsIjxM93PX00Lmo VfhJJ/jirGfJP5V6ze67F55/MuePVfNSjlpulp8VhpSk1CQIaq0o2rJvv0JPxYq9TxV2KuxV2Kux V2KuxV2KuxV2KuxV2KvKv+chdRu7ny5pfkbTJDHq3ne/i0xGX7UdorCS8m91VKK/s2KvTNL02y0v TbTTLCIQWVjDHb2sK9EiiUIij5KMVROKuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxVIfPXkr RfOnli88vawha1u1+CVaepDKu8csZPRkbf8AA7YqxD8mvOGtzHU/Ifm2Tn5w8qMsU1y3/H9Yt/vP eKTu3JaB+9aE7nFXpuKuxV2KuxV2KuxV2KuxV2KuxV2KuxV5D5PH+M/zw8x+apP3mk+TU/w9oh6r 9cYcr+VfBkr6fupGKvXsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirx/8AOuIeVPMv lf8ANS2+BdKuU0nzGV6PpV63Hk9OvoytyUfzMPDFXsAIYAg1B3BHQjFXYq7FXYq7FXYq7FXYq7FX Yq7FXYq+UdG83fnb+Xq6Z+XOmeWrE+aNYvbu6e9uLhLprszTM7XQhgdPQiVAAWlY1ofAgKvqbTY7 6PTrWPUJUnv0hjW7njXgjzBQJHVf2QzVIGKojFXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq tlEpicRFVlKn02YFlDU2JAKkivvir5k84eevzq8x6h5j/KnWvKukXN/e2b/UYYLhrN5ojX0ru2ku 5GjnEToJCvwtsRsQ1FX0L5MstVsPKGh2OrsH1a1sLWC/ZW5AzxwqspDd/jB3xVOMVdirsVdirsVd irsVdirsVdiqW+ZNf0/y9oGoa7qL8LHTbeS5nI6lY1LcVHdm6AeOKvPPyN8s31xbXv5k+ZI6+avO B+sKrbmz000Nrax1Gy8ArN0r8Ndxir1XFXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq 8+/OfyFdeZfL0eqaGTB5x8uP+kfLt3H9v1ovia3P8yzKvHidq0rtXFU8/LfztaedvJemeZLdfSa8 jpdW/wDvq4jJSaPff4XU0r1FDirJcVdirsVdirsVdirsVdirsVdiryT8/XOtTeUfy8RysfmnVFk1 QA0/3G6aBc3NT26KQT4Yq9J0PX/L2rxTDQ762voLGT6tM1m6SxRyKob0uUZKVVWFVHTFUyxV2Kux V2KuxV2KsV83fmn+X/lEmPX9bt7W6oCLFSZrog9KW8IeWh8eNMBNc2UIGRqIsvNdU/5yt0JWZdE8 tanqHHYS3RhsY2915NLJT5oMxp63FH+J3mm9mNfm3GKQH9Ko/wC6opJJ/wA5U+amasXk+1iT+WTU ndvvW2UfhlJ7Txebs4+w+vP8wf537ETaf85W6qpAv/JZ4j7clpqKOT8klhi/4lko9o4j1ppy+xfa EeUYy90h+mmW6F/zk5+WWoSLDqb3nl6ZqAfpO3KxFu9J4TNEB7sy5k488J/SQXR6vszU6f8Avcco +ZG3z5PUdO1LTtSs473TrqG9s5hWK5t5FliceKuhZT9By1wERirsVdirsVdirsVYnpX5rfl7qesX uiQa3bRaxp9zLZ3On3L/AFeb1YJDG4RZeHqCq7FKimKsP/Lhf8K/nD528kgFNO1VY/NOjxnYL9YI hvQvt61AoHQDFXrmKuxV2KuxV2KuxV2KuxV2KuxV5f8Anx5H8h6r5cl82eaoJpx5YtLmaCCOZ4Un 5gFYJeBDFZJFUfCynfriqM/5x+8n/wCFfyn0Oykj9O9vIv0jfCnFvVu/3gDDxSMon+xxV6JirsVd irsVSzzJ5l0Ly1o1xrOuXkdjptqvKWeQ9+yqB8TO3RVUVJ6Yq+Y/Pv59edPNry2mgvL5Z8uNVVdD x1O4XxeQE/V1P8sfxeLZq9T2kI7Q3P2Pd9iexeTOBk1Fwh/N/iPv/m/f7nnFrYWlsWaGMCRyTJKa tI5O5LO1Wb6Tmny5pzPqNvpGh7M0+ljWGAj9/wATzKIypz3Yq7FWiAQQRUHYg4oIBFFV0HUdd8sX 36R8q6jLo12TylSH4raanaa3asbj6K+BzOwdoZIc/UHle1fZDSakEwHhZO+PL4x5fKn0Z+VP5/6d 5ouotA8yQx6N5ocUtwrH6nenv9Wdt1f/AIqc8vAtvTeYNRHKLi+V9qdkZ9Dk4Mo9xHI+4/gvXsvd Y7FXYq7FXYq8Ak8geR5Pz38x+WvNei21/Zeb7WPWtDnmXjItxCDHewxzJxkDOaykK3QVxVnnkz8i vJPk/wAzjzBo0l+J47Z7O1s7i6ae2ghkYMyxK4Ljp0LkfTir0PFXYq7FXYq7FXYq7FXYq7FXYq8l /P8ArrK+UPIKH/lK9ZiF8g6tp9hS4uqe4+A4q9aACgACgGwA6AYq7FXYq7FVDUL+z06wudQvplt7 K0iee5nc0VI41LOzewUVxV8afmD+YGpfmL5g/Stzzi8vWjn/AA/pb7BU6fWpl6GaQbiv2BsPHNL2 hrCTwR+L6d7I+zcYxGqzC5HeAPQfzj593dz58iPNQ+iOxV2KuxV2KuxV2KqN1aw3UXpyg7EMjqeL ow3VkYbqwPQ5ZiyyhLijzcPXaHFqsRx5RcT9nmPN9I/84/8A5s3nmS1l8q+Y5vU8zaVGJIbtqA31 nXiJv+MsZosn0N3NOm0+cZY8QfDu2eycmhznFLcc4nvH45vY8vdU7FXYqlnmbWJNE8u6lrEdq16d Otpbo2qMFeRYVLsqkgjlxU08TirxP8wfPflbz15JsfzC8jXqz+YfItwmrmwk/dXSW1VW8gmjqT6b R7sykqeNA2KvdNH1Wz1fSbLVbJ+dnqEEV1bP4xzIHQ/c2KovFXYq7FXYq7FXYq7FXYq7FXYq8A/M /WfOQ/PzSl8p6C2ualpGhutoZKraWt1qErI01zJsFRYE6cgWrQYq3+VOj+cpvzz19/NXmCTzBd+X NMgS4Kgx2dve6lSUR20Q+AKkKsvLiCd64q9+xV2KuxV4T/zlN5rlj0nSvJdq5VtcdrrVCvUWVoyk Rn/jNMVHyUjvmLrM3h4yervPZ3s0azWRxn6B6pe4frND4vBwABQbAdBnMPuoFOxS7FXYq7FXYq7F XYq7FW7TW77y5rGneadOFb7RJxcqgNPUh+zcQk/yyRFlOZ3Z+bgyV0ls8t7XdmDU6MyA9eL1D3fx D5b+8B9y6df2mo6fa6hZuJbS8iS4t5R0aOVQ6N9KnOjfFkRirsVadEkRo5FDo4KujCoIOxBBxV8y eQfyU8peY9L8z+Urgy6P5n8oapd2Flrdi3C4bT7vlJb+uAQJkkV3BV9+OwYYq9z/ACu8rar5U8h6 T5c1S5jvLvTEkg+sw8gjxCZzBQNuCISgI7HxxVlOKuxV2KuxV2KuxV2KuxV2KuxVxIAqdgOpxV86 fl3+bfkPyrofmjzx5j1JRe+bNbvLrT7GAerdy2Vu3oWyrEDsF4uA7lV7VxV9AaPqcGq6RY6pbhhb 39vFdQhtmCTIHWvvRsVReKuxV8lfn5evefnJqSP003T7G0i+Uge5bv4y5p+1pbRHvfR/+B9hHFmn 3cI+dk/cGDZpn0t2KuxV2KuxV2KuxV2KuxVp0V0ZGFVYEMPY7YQaNsZwEomJ5F9Wf8496hLffk15 YllJLwW8lnU/y2dxJbL/AMLCM6+JsW/OeXHwTMe409DwtbsVYf8AmL+anlnyCmmtraXUp1SV4rdL OH13AiUPJIy8lPFARWlT7Yq808s/mD5Nu/8AnIODUvLWrW9/pfnjSPq9yqEpKmoad8UZlicLIlbc cV5KKnpir3vFXYq7FXYq7FXYq7FXYq7FXYq7FUHrVjNqGj31hDObWa7t5YI7oLzMTSoUEnGq8uJN aVxV4V+YP5Rfl/8All+R/mi40ey9TU3s0tptXuT6l05uZo4CA9KRqfUoVQKD38cVe4+XbJrHy/pl iyhGtbSCEqBxAMcarQDt0xVMMVdir5L/AD9snsvzk1B3Hw6np1ldxHxEfqWzfjEM0/a0don3vo3/ AAP8wEsuPvET8rB+8MFzTPpjsVdirsVdirsVdirsVdiq13VEZ2NFUFmPsN8IFmmE5iMTI8hu+rv+ cfdOm0/8m/K8UylXntnvKHrxvZ5LpT9KzDOviKFPzplycczLvNvQsLW7FXlP56VtNV/LfVxsLbzX ZW0jdljvFeNmOxFPh64qzb/lX3kceY4fMq6HZpr0HP09RSFUlrIKMzFQOTUNOTVIxVkGKuxV2Kux V2KuxV2KuxV2KuxV2KuxV53+fXlXzD5s/Lufy9oEKzX+oXdov7xlWJI451leSXlsUUR1Ioa9gTti rDvyq8sah5R/O/W9DuNZu9ZnvfL9vqWq3l01fXvWuihkC/sqqkqgrsMVe64q7FXhn/OUvlSafRNL 85WkZeTQJGh1MKNzYXZUM57n0ZVRtuxY5javD4mMjq7r2e7S/J6uOQ/R9Mv6p/Vz+DwMEMAymoO4 I6EZy77uCCLHJvFLsVdirsVdirsVdirsVX2Gg3vmbXNN8q2BIu9amEDSDf0rZfiuZj7JEG+nM7s/ Bx5L6ReT9sO0xptIYA+vL6R7v4j8tvi+5LCytrCxt7G1QRWtpEkEEY6LHGoVVHyAzo3xlXxV2Kvj 61/Ljzlr3k1vO+k6nf6lq1h5hnn1zSXmaSO6Fjdkpc28dKrNGu3EVJX7O/wsq+wcVdirsVdirsVd irsVdirsVdirsVdirsVdir5p/P7y3+aD/mFqWoeV4JrXTNQ8ulL3W4yVWJNNeS9ki9RDyjeRkjRf 5q7bcqKvcfyz1q41v8u/LWrXUpmu73TLSW6lPVpzCvqt9L1xVkuKqN7Z2t9Zz2V3Es9pdRvDcQSD kjxyKVdGB6hlNDir43/Mf8u9Q/LjX/qMoebyveuf0Dqb7ha/F9TnbtIg+wT9tem9QNN2ho9+OPx/ W+l+yPtKOEaXOaraEj/uT/vfl3MfzTvo7sVdirsVdirsVdiqjdXUduilgzySMI4YYwWkkkY0VI0G 7Mx2AGWYsMskuGLg9odoYtJiOTKaiPmT3DzfS35B/lJc+VrKbzL5hiC+atWjCehsRZWlQy2wIrV2 IDSnxoO1T02nwDFHhD4d2v2pk12c5Z+4DuHd+Or17L3WOxV4x+esvnG/87+QfLvk/Uhpet3D6nqE V24JiU2dqCiSijBkl5MjCh67g4qnH/OO+j+YdI8iXNn5is2sNXGq30l1bsCBykk58k3PJGrVWBII 74q9PxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KobU7Nb7TbuybZbqGSFj7SKV7fPFXyX5Z8x/nR on5a+W/NEvPRPJPlCe1iuLOh9fU4JbvhNJItAfSRHEain+UK9Qq+qbbzT5autYfRbbVbSfV44hcP YRzRvOIjSjmMEtTcYqmmKoDXtA0bzBpNzpGtWcd9pt2vCe2lFVYdiO6sDurA1B3G+Kvmbz7/AM4+ +bvK8kt55WWXzH5fBLCx2OpWy/yqNhcqO1KP7Hrmt1PZ0Z7x2P2Pbdie2WXTgY895Mff/EP1/H5v MYL+1mleAMUuYiVmtpAY5kYdQ8b0YEfLNNl088f1B9K0Ha+m1YvFMSPdyl8juiMpdk7FXYq07qil nIVRuWJoAMQLYymIiyaARXlvRPMnm28+p+U9Ml1SQNwlvBWOyhPjLcsOG3XitWPYZsMHZ057y9Ie R7V9stLpwY4v3uTy+n/TdfhfwfR35U/kHpPlG4TXddmTWvNQH7u54kW1oD1W1jbv2MrfEe3GpB3e HBHGKi+Xdpdq59bk48pvuHQe4fg971fLnXOJAFTsB1OKvLPzg/MmCP8AL2Y+SdatrnWtVv7XQ9Ou rGeKcxXV1IAwrGX4uIlencdcVYV5Jm8/zfn/AKTo/nmJZNT8u6NfraaxGoWPUIJJUWO4VQAqNxfi 1O43xV9EYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FUm85eWbbzP5T1by7cN6UOqWstr6oX l6bOpCSBaivBqMB7Yq8i8zfkXZ+SfKWma9+X0DP5u8pTNqLXMnxT6nGVpdwTFRVucYPBR0+yN2Jx VNfJ/wDzkIda13SYNY8tXXl7QPMvKPyzrN3KrC6nSn7t41Uen6nL92eR5bUrXZVPdS/5yF/JrTdW k0q78z24vImKSenHcTRKwrUGeKN4aim/x4qybR/P3kfWlVtJ8wadfcuiwXULv0rQoG5A+xGKqXmz 8ufI3m1APMWi22oSKKJcOnC4UeCTxlJVHybGkiRBsPNdS/5xT8oOzPo+uatpZP2YWkiu4VHgFnjM n/JTMaekxS5xDudP7Ra7CKhll8fV/urSR/8AnFDWeR9LzwoTsJNKVm+9bpB+GUns3F3Oyj7a9oD+ KJ/zQiLP/nFBqj9I+crmZP2ltLKC2J+TSNc0yUez8I6NOX2w7Rn/AJTh90Y/qZfoH/ONn5V6XKk9 3ZT69cJ9mTV5muV+mACO3P0x5kwxRj9IAdJqdfnzm8s5T95JZrqnmTyV5Rs4odT1LT9DtET/AEe3 mlhtl4A0pHGStR/qjLHEYJc/85E+Wb26Nn5K0jVfOl0jcZn0u1kFtF/xknlCKPY0I98VRekfn95N mtdWHmCG68r6xocJudQ0bVEEVwYh0e33pMGNAvHepG1CDirAtb/NH8x/zB0618k2flW78sXPnDi1 rrMriaJdEdS1xMWCpxl9Oi8PBuxK1VZ1Y/8AOOP5Y6d5i0PXtNtZ7K60L0jFBDIBBcSQKVimuUZW 5SLXlyUqSetcVekyWNnJdw3kkEbXdurpBcFQZESXjzVW6gNwWo70GKq2KuxV2KuxV2KuxV2KuxV2 KuxV2KuxV2KuxV2KuxV2KuxVIvN3kjyx5u0FtC1+yW600sjpEC0ZjeP7DxvGVZCvTY9NumKqmheT fKug6Iuh6Tpdva6SoobRUDK1epk58jIx7s5JOKsW80fkh+Umo2N5PceVdPSYRSP6ltF9VPIKTyrb mLeuKvIdCfUNe8h/kt5autTvYNM1yTUItTFrcPBLLHZhzAhkQ8uKcRQYq9L/AOheNCi/3g82ea9O 4/3f1XV5F4V68eaP13rirf8AyoL/AMyN54/7jX/XnFWj+QKkUf8AMTzu6HZkbWagjuD+5xViH5tf lHpfk78vNZ81aTr/AJgfXdLSKWyvLjU53ZGM0cf7PDornFU10ny95f8AMn/OQOuz69plrqhg0HTJ 7dLuJZ445JCeTIkgZVOKva7e2t7aBILaJIIIxRIo1CIo67KtAMVSLzV+XnknzZNaTeY9GttSmsXD 2ssy/EtDXiWUgshPVGqp7jFWQgBQABQDYAdAMVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdir sVdirsVdirsVdirsVQurf8cq9/4wS/8AEDir5q8g/wDHK/5x/wD+M+s/8QkxV9P4q7FXYq81/wCc kP8AySXmn/jBD/1ExYqlXkf/AMnz5h/8BzSv44q9fxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2Ku xV2KuxV2KuxV2KuxV2KuxVIvNfnryf5StRdeY9XttMjfeNZnHqPTr6cS1ken+SpxVgo/5yU8gz/H pljrerWoqTeWWmTvEEFKvVxG3H6MVVYv+chfyn1W3utPbWf0ZqDwyKLTVIZrJqlSB8cyrFuf8vFX mXkH/jlf84//APGfWf8AiEmKvp/FXYq7FXln/OUDun5F+ZirFSRZCoNNmv7cEfSDiqSN5t8q+U/z 882Xmv6lbaTZfoPTo4TO4TkVZjwjQfE5AH2VBxVOf+hlfy2lJaxTVdRtq0W6tdNunian8pZVP4Yq jNJ/5yJ/Ka/vVsJ9XbSb9+lvqsE1l1NATJKoiFfd8VejQzQzxJNDIssMiho5EIZWU7gqRsQcVX4q 7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYqxH829c8z6F+XOuat5Xtjd67awqbOJYz Mw5SokkgjFeRijZpKUI23BGKvEPInm//AJxt0OZdX80a5Lrnna44yXura1Y300gkI/3QjQyRwopJ C03p3pTFXqY/5yQ/JICg80wADoPRuf8AqliqU+Y/z0/5xu1iy+qa9q1lqlq9R6M9hc3IFR1A9Byp 98VY1Y+YfJ3m/wDMH8utO/LO1lk0PyrNfXN5cpazQWVvbzQ8KAzKjFneoHvir6FxV2KuxV5t/wA5 F6Nq+s/k9r1hpVq97cN9Wle0hBMskUF1FNIIwATyCpXp2xViJ/Nf/nF7VfMR8w6uYE8yNHGrtqth dvLEIx8AAeKSFGWvVN/fFWWj/nI/8kVAA80QADYAQ3NAP+RWKpbr/wCef/OOmtadJZ65rNjqVkQe VvcWdxONxSqqYWNfdd8VYT+VnmPR7H80rDRfyq1G91f8v9UW4k1fS7mC5FvprohZJrae5RGVHf4S p6nxJXiq+ksVdirsVdirsVdirsVdirsVdir/AP/Z + + + + 1 + False + False + + 612.000000 + 792.000000 + Points + + + + Cyan + Magenta + Yellow + Black + + + + + + Default Swatch Group + 0 + + + + Document + application/pdf + proof:pdf + uuid:f9ffad1f-09dd-40a8-be5b-a80240e770bb + uuid:276fca77-535a-49e9-87a8-0f07ac90564b + + + + + + + + + + + + + + + + + + + + + + + + + +endstream endobj 3 0 obj <> endobj 7 0 obj <>/Resources<>/Properties<>>>/Thumb 41 0 R/TrimBox[0.0 0.0 612.0 792.0]/Type/Page>> endobj 38 0 obj <>stream +HdˎfI *;y2HBHZ4g8툰?=~S}~۟_>o<ǟRx?1=~c}Ϗ_TgD>rCD{=3^9Lٟm:qQ>g.9^g~^.pm.h|׏2V"t^BW vuF/grvlvl}Z^M:e'6w`q؋z"~ cMǖuoz_Ynei;'Ġܦ#7NUnnk6k=k?fni.ֳIxBus(W+n1Zs_v xO>ue_Ŧ}›g˻Lh !,VFZl:+gN~yyjlc2q_c}P&&]~&QIUT0s⥡UAN[s]OQY:n?M0,7l{Gnb|wXoBj_Η9j6!1g/fPKqтb&y`HEg~hb a8zFhy.?5|Jr88^BǴw:v r 35+5}^tI7Yһc!DnC;Kf޶CQgmGhl # Ic'z:f &i9YU YZ!K4cV}u!f2%Ĕq WEUle +Y,"Jzgm_Ϙ'AAbYtVczFg: )=U.O6iUc#y˜!C8ʀ2ϯ*SD f)qu \*!H7ef)wW-)&6- +뷄yu^H|[P+=Ԝv;V9+PyJ@f1tEW"}H;!N|%ڤ$$7C3a3I +Dr/h,32ew~0 7eNlzHV rdi\pIR b 0B 3'DlW2^B^ A*_ZAS_I@C\gW epwƁS*aC0u|A/,?=/t7IAlT{u{_Ba'["̚0Y@`bV}oCt!܏!R~ ~  + 1e uHEG<'Lਵ +dtX< >gT +@Uጣ(]m9'+xtFvHc0MUD7{z2*+ce!i>iTuvWoegn *Q#FV=b\$FųJzayfUu:U+ iX"@d}^UFK> &f. +Cg +qЗ5u쑉AAz=H 7((M$p#k)8Y u:ENJ\Yl~T)C49`3kjl7gQVA戯i;͇*(kk`D#b>>٧YX2/=Vuf i,/CPİdI#,_ӏ5qZɯ nzxT c '/b@L.8>W%vyr5PWHCi8=g}U,"jR9*QRgӪd0\ApJsA Tm(-q*x +KSвs=28!DΔi. u @!a^rR'U](#gJ@zoF3 +ewTV[̋]XQ]6;MyU79Vc<J8]˩4+"璐c-Qoeag !k!\Tʗ!c%UymRu^ wp`zZVUt ղ.r`HT3mI{Flhbߜ 7m'*DyA:';б}gNGs#;SY-YLŎWpZND¼x,zSb&rth2me7|0(C@q_Sr*ilGcEAyXJ*G-@BSF~wDlc$.! +c$Ph g]]N&bw|I ޙm +w(--G@:c](U;HVyhbwHIf+PqT&:5x'Ӆ!X׍&pi+q7p],Kw\.eXGY'v趲We*Wu}waY1;zѬs2Jޝ|j*f!vyRYJr:7:Z<Չq\7%US*th@Kv%tRZ߿%[nJ3{ -ߘo$ɒʰe\p1K=Cjt8SNDS[mz6QWωF}JN;^j|I|Y9 aew}<|_IZ>”>& cOG>4$[%N*XFd75fȽ{2ifegP>ODԍyTPtf1>Wf8Qjq ׾ezo+r+>l@FNVl)4|7J>vhC[09:Vz]Y>aFd4#98b ;!1?C#;&\u]3x; e8bF_lᝦݓG̤>+82O=FXNv/|Wy[ m 64FaE:j+aKLހ&qS 4/jO4 wxؑ6mP6jɋ7M$ro2SI{D`*q>h:o5K&܋ޟ?kq)-a̭ig_5dPM{ EsFS=oW=ɾxH,wԻ>oF:mxCmTzm$}Nngϵ\)RI, Ŏ5Ti l>[ hF8lP1" 0U4&mW1yQ o?rDz!B3 Ü1_~VHVޤۻOY1-7crh?Z73o4`pوp6-M;]N˾# &=W+ lXW +H햠wɌ"tMtS[^3ՄN"OL\G0JN)Ɔ"љH,~NU7}NO4~CWG~X <,}<95<@0`‚FjAJp+ ?gp8#)UTPUHSB_9H>+ (ul9cUCv( Wu lG_ptbNW]#҆ޛ"$1'[4#Q-%sE$6>?RM”$f$Bk^- [9BYl: <ᯊY[)ݨv岭9b>JZEw}Mˇ&j/"4FޮTyJ"LWbkJQ#aFu`~&K;kcZ˝>6`Gfm$dckW@V-6Χ.IS_FS3̸]kt9Ik;*"<3&Y [b>})ܵSBqi _n|!1qT)c?3|F[$XLu؆;sWt@?ickz{'Ѫ.} +,99O Q[>/~/;)x0c՟o^]XOtb鷨 f}- T)ȴhueu٣sj]?qA\?j7|:?KpmSQœ/^4X6 x㋨ea{HMЃ)Ҭ3Gxo8 #OWw~`ene!Xҽe7/*UuJQ|>%2'~SFxK3tnH#FqќvLcM[Td„^N! aµ/۰:DZ3Jqc;b+eKb +DYy&APaN҅FmFn(z% |]c`Ư g ̺s}RW-ڇ(J/YD0*&B;DcvSqcͮ.?+̋J&!i}(*tD!W? biZE%U_zƈFW + E2#ǔfg) :oCdW:?2sСBcM?LG1ISEMiZl]d}K$ 1ABn_I/w丁:^@U/ˡ#_ !V١KgtE{Rj-eV0]ղPĘQUXgM=EVUו)tUP[5FW6t^X6KUd*Nr}k8 ^F4# +RCS'%~RPE*8+mK#8mFD׮~T4L k/uSz1c&;Lp7=(uhSs1%)=Ʉr\YM2Sf7~xsvh6Nq23vzS81R@B{cDz +iٵU ՗Ad fjU3"&S>m bRUUC"a U5`7Q֞n`LT=Ij?}M+m & +ζFHp l Qum K)PA`4*(dWR= f@)рH&p{O@ӹNW.*^S[ +|o-5t  "an4aV:v{ %rڭ۲7kHJgϺQw9/BH2ոj#ֲGܥ-ZGJkftmqK6ROn#Œʚe`ךs(C[96jV·!7Y0;>>+8vu&ʙDf'J kF|p.>stream +8;Z]"_2cGV#_mX);]fK[F7`&d_Wu#B.tW@AVoe9Pr5hXeLnBKZ/Rg+B$ACf8!3k=f +172+`]4j1dh2sK@=I@O&LtE-B[nX(YQX["ATK>&, ++MQh>$^jT6R2J"L&iUiC`F7kSAQeh)fX+k#Ynf+Ip?o,*GOA>'S>0&j;73Mo5#mm( +,ML0h)R*cb1:(jq"KUKJI$71Xb$\^YJaqOL+[>dH7#pC8\#=(lE?jlf2tL##(1sfC +IFuGbB7m6[qi%$khrVLLO3R/sQI"n*7hkdN19h_@_]6hE"M/mfCVD*?SgSs$N(c77Y#8 +npeRd=L1pG_.MLAXQ7#ulil]RYE7oNUVVgh%8D;//q)`&jV3XTl_H8=I)YQ7fA$MP +`:.pHF;<+pA`7*AeKhPo6_R=)oUkb;!/7B`+9~> +endstream endobj 42 0 obj [/Indexed/DeviceRGB 255 43 0 R] endobj 43 0 obj <>stream +8;X]O>EqN@%''O_@%e@?J;%+8(9e>X=MR6S?i^YgA3=].HDXF.R$lIL@"pJ+EP(%0 +b]6ajmNZn*!='OQZeQ^Y*,=]?C.B+\Ulg9dhD*"iC[;*=3`oP1[!S^)?1)IZ4dup` +E1r!/,*0[*9.aFIR2&b-C#soRZ7Dl%MLY\.?d>Mn +6%Q2oYfNRF$$+ON<+]RUJmC0InDZ4OTs0S!saG>GGKUlQ*Q?45:CI&4J'_2j$XKrcYp0n+Xl_nU*O( +l[$6Nn+Z_Nq0]s7hs]`XX1nZ8&94a\~> +endstream endobj 36 0 obj <> endobj 44 0 obj [/View/Design] endobj 45 0 obj <>>> endobj 40 0 obj <> endobj 39 0 obj <> endobj 46 0 obj <> endobj 47 0 obj <>stream +%!PS-Adobe-3.0 +%%Creator: Adobe Illustrator(R) 17.0 +%%AI8_CreatorVersion: 23.0.1 +%%For: (Dom) () +%%Title: (monster.ai) +%%CreationDate: 2/2/2019 11:45 AM +%%Canvassize: 16383 +%%BoundingBox: 58 153 555 635 +%%HiResBoundingBox: 58.2272340158679 153.256991125922 554.075120224743 634.163930798381 +%%DocumentProcessColors: Cyan Magenta Yellow Black +%AI5_FileFormat 13.0 +%AI12_BuildNumber: 540 +%AI3_ColorUsage: Color +%AI7_ImageSettings: 0 +%%RGBProcessColor: 0 0 0 ([Registration]) +%AI3_Cropmarks: 0 0 612 792 +%AI3_TemplateBox: 305.5 396.5 305.5 396.5 +%AI3_TileBox: 44.3999938964844 11.0400085449219 567.600006103516 780.959991455078 +%AI3_DocumentPreview: None +%AI5_ArtSize: 14400 14400 +%AI5_RulerUnits: 2 +%AI9_ColorModel: 1 +%AI5_ArtFlags: 0 0 0 1 0 0 1 0 0 +%AI5_TargetResolution: 800 +%AI5_NumLayers: 1 +%AI9_OpenToView: -644 984 1 1516 917 26 0 0 96 108 0 0 0 1 1 0 1 1 0 1 +%AI5_OpenViewLayers: 7 +%%PageOrigin:0 0 +%AI7_GridSettings: 72 8 72 8 1 0 0.800000011920929 0.800000011920929 0.800000011920929 0.899999976158142 0.899999976158142 0.899999976158142 +%AI9_Flatten: 1 +%AI12_CMSettings: 00.MS +%%EndComments + +endstream endobj 48 0 obj <>stream +%%BoundingBox: 58 153 555 635 +%%HiResBoundingBox: 58.2272340158679 153.256991125922 554.075120224743 634.163930798381 +%AI7_Thumbnail: 128 124 8 +%%BeginData: 9809 Hex Bytes +%0000330000660000990000CC0033000033330033660033990033CC0033FF +%0066000066330066660066990066CC0066FF009900009933009966009999 +%0099CC0099FF00CC0000CC3300CC6600CC9900CCCC00CCFF00FF3300FF66 +%00FF9900FFCC3300003300333300663300993300CC3300FF333300333333 +%3333663333993333CC3333FF3366003366333366663366993366CC3366FF +%3399003399333399663399993399CC3399FF33CC0033CC3333CC6633CC99 +%33CCCC33CCFF33FF0033FF3333FF6633FF9933FFCC33FFFF660000660033 +%6600666600996600CC6600FF6633006633336633666633996633CC6633FF +%6666006666336666666666996666CC6666FF669900669933669966669999 +%6699CC6699FF66CC0066CC3366CC6666CC9966CCCC66CCFF66FF0066FF33 +%66FF6666FF9966FFCC66FFFF9900009900339900669900999900CC9900FF +%9933009933339933669933999933CC9933FF996600996633996666996699 +%9966CC9966FF9999009999339999669999999999CC9999FF99CC0099CC33 +%99CC6699CC9999CCCC99CCFF99FF0099FF3399FF6699FF9999FFCC99FFFF +%CC0000CC0033CC0066CC0099CC00CCCC00FFCC3300CC3333CC3366CC3399 +%CC33CCCC33FFCC6600CC6633CC6666CC6699CC66CCCC66FFCC9900CC9933 +%CC9966CC9999CC99CCCC99FFCCCC00CCCC33CCCC66CCCC99CCCCCCCCCCFF +%CCFF00CCFF33CCFF66CCFF99CCFFCCCCFFFFFF0033FF0066FF0099FF00CC +%FF3300FF3333FF3366FF3399FF33CCFF33FFFF6600FF6633FF6666FF6699 +%FF66CCFF66FFFF9900FF9933FF9966FF9999FF99CCFF99FFFFCC00FFCC33 +%FFCC66FFCC99FFCCCCFFCCFFFFFF33FFFF66FFFF99FFFFCC110000001100 +%000011111111220000002200000022222222440000004400000044444444 +%550000005500000055555555770000007700000077777777880000008800 +%000088888888AA000000AA000000AAAAAAAABB000000BB000000BBBBBBBB +%DD000000DD000000DDDDDDDDEE000000EE000000EEEEEEEE0000000000FF +%00FF0000FFFFFF0000FF00FFFFFF00FFFFFF +%524C45FD41FFA852272727FD79FFA827275227F8FD6DFFA87D5227FD0452 +%7DA8FFFF7DF87DFFA8F8FD58FFA8A8A8FD10FFA85227F852527D527D5252 +%2727F827F8A8FFFFF87DFFFF7D522727F827A8FD11FFA8FFA8FD3AFF7DFD +%052752A8FD0BFF7DF8527DFD0AFFA87DFD04FF275252F82752A87D277DFD +%04FFA87DA8FD08FF7D522727F82727FD39FF2752FFA8A87D52272727A8FD +%06FFA827F8FD13FF52527DA8FFFFFF2752FFA87D2727F827272752FFFFFF +%7D27F82752A8A8FFFF277DFD38FF5252FD06FFA87DF8277DFD04FF52F827 +%527D7D7DA8FD15FFFD0527527DFFFFA8F87DFF7DF8277DFD07FF27A8FD38 +%FF7D27FFFFA1446F6F7DA8FF52F827FFFFFFA8FF7D52F8F827A8FD16FFA8 +%A8A8FD05FFF87DA827F884AFA8766F686F7DFFA827A8FD38FFA827FFFF6F +%FCFCFC8C8C6FAFAF52F8A8FFFF7D5227527DFD1FFF7D2752277DFF7D6F68 +%FD04FC76FFFF27FD3AFFF8A8FF768CFD05FC6876AFA8F827F82752A8FD20 +%FFA827F827A8AF4B8CFD06FC76FF7D27FD23FFA8FD16FF5252FF76FD08FC +%6FFFFF7DA8FD24FF527DFFA844FD07FC8CA8FF5252FD21FFA8F8F852FD15 +%FF5227FFA88CFC8CFD04FC8C4BFD2BFFA86F688CFCFC8CFCFC68A8FFF87D +%FD17FF7DF8277DFD06FF277DA8277DFFA8A8FD11FFA8F8FFAF6FFD05FC93 +%7DFD2FFF7D6F8CFCFCFC6FFFA827FD14FF7DA8FFA8F8A87D27FD06FF27A8 +%FF52275227F827FD11FF277DFF4BFD04FC8C27A87DCAFD2EFFAF7668FC8C +%7DFF5252FD13FF2727F8522752FFA8F8FD04FFA8FF527DFFA8F852FFFF27 +%A8FD10FF7D27FFA868FCFCFC8C8C8C68A8FD30FF84686FFFFFF8FD13FF7D +%27FFFF27F87DFF7D52FFA8FF52F8272727FFA87DFFFFFF277DFD11FFF87D +%FF7D8CFC8CFCFC8C52FD11FFA8FD07FFA8A8A8FD16FFAFA8FF2752FD13FF +%7DF8FFFFFF52A8FF27F827F852F8A8A827F8A8FD04FF7D27FD12FFA8F8FF +%FF768CFCFC687DFD0FFFA8FD057DA8FFFFFF7D7D7DA87DFD17FF7DF8A8FD +%14FF2752FD04FFA8F827A8FFF82752FFFF7DA8FFFFFF7DF8A8FD13FF52F8 +%FFFF76686F7DFD0FFFA87DA8FFFFFFA87DA8FF52FD04FFA852A8FD14FFA8 +%277DFD15FFA8F852FFFFFF7D7DFFFF5227A8F827A8FD04FFA8F8A8FD15FF +%2727FFFFA8A8FD10FF7DA8FD05FFA87D52FD07FF52FD14FF7DF8FD17FFA8 +%F852FD04FFA82727A8FFFF27F8277DFFFFF87DFD17FF2727FD12FFA87DFD +%04FF7DF87D7D7D52F87DFD04FFA87DFD13FFA827F8FD17FF7DF8A8FF7D27 +%F852A8FD04FFA87DF8A8FF27A8FD18FF277DFD11FF7DA8FD04FF52F827FF +%FF27F87DFD04FFA87DFD15FF52F8FD17FFF8FFA8F87DFD09FF7DF8FF2752 +%FD17FFA8F8A8FD11FF7D7DFD05FF52A8FFFFA87DA8FD05FF7DFD16FF7DF8 +%FD15FF5227FF2752FD0BFF277DA8F8FD17FF2752FD12FFA8A8FD07FFA17D +%FD07FF7DA8FD17FF5227FD14FF277DA8F8FD0CFF5227FF2752FD15FFA827 +%A8FFFFFFA8FD0FFF52FD07FF5252A8FD06FF7DA8FD17FFA8F87DFD12FF7D +%F8FF277DFD0DFFF8FF7D27FD15FF7DF8A87D5252FD11FF52FD05FF52FFA8 +%7DA8FFFFFFA87DA8FD15FFA8FFFFFF5252FD12FF27A8A827A8FD0DFF5252 +%FFF87DFD14FF7D2727F827FD13FFFD057DA8FFFFA87D7D7D527DA8FD15FF +%F8F82752272752FD11FF7D27FF5227FD0EFFA827FFA827FD15FFA82752FD +%38FFA8F8277D7D7DFD12FF277DFFF8A8FD0FFF2752FF2752FD14FF2727FD +%15FFA8A8A8FFA8A8A8FFA8AFA8AFA8FD19FFF852FD13FF7DF8FF5227FD10 +%FFA8F8FF7D27FD13FF5227FD11FF7D7D76A8FD057D6F6893689368937684 +%FD057DA8AFFD13FF2752FD12FFF8A8FF277DFD11FF2752FF2752FD11FF7D +%F8FD10FF7D448C8C8CA8FD05FFFD07FCC3FFFFA8FFA18C686F76A8FD12FF +%F87DFD10FF5227FF5227FD12FFA8F8A8FFF8A8FD10FFF8A8FD0FFF7D68FD +%04FCCAFD04FFC3FD07FCC3FD05FFFD04FC687DFD11FFA8F8A8FD0EFFA8F8 +%A8FFF8A8FD13FF2727FF52F8FD0FFF2752FD0FFF7D68FCFCFC8CFCBCFFA8 +%FFFFBC8CFCFCFC8CFCFCBCAFFFFFFF9AFD05FC8C76FD11FF5227FD0EFF27 +%52FF2752FD15FFF8A8FF2752FD0DFFA827A8FD0EFFA868FD07FCCAFFFFFF +%FD09FCCAFFFFCAB5FD06FC68A8FD11FF27A8FD0CFF7DF8FF7D27FD16FF7D +%F8FFA8F8A8FD0CFF5252FFA8A8FD0CFF6FFD08FCB5FFFFB5FD09FCB5FFFF +%BCFD08FC4BFD0CFF7DF82752A8277DFD0BFFA8F8A8FFF852FD17FF5227FF +%5227FD0CFFF82727F87DFD0BFFA86FFD09FCBCBCFD0BFCB5BCFD09FC8CA8 +%FD0CFF7DF82727F827FD0BFF277DFF5227FD18FFA8F87DFF2752FD0AFFA8 +%2752F852FD0CFFA868FCFCFC8CFCFCFC8CFCFCFC8CFCFCFC8CFCFCFC8CFC +%FCFC8CFCFCFC8CFCFCFC8CFC68A8FD0DFF7DF8A87DA8FD0AFF2727FF7DF8 +%FD1AFF7DF8A8FFF87DFD0BFFA8F8FD0DFF7D8CFD21FC8C7DFD0EFF52F8FD +%0BFF7D27FFFFF8A8FD1BFF5227FFA8F8A8FD0AFFF87DFD0DFFA868FD04FC +%B5FD07FCB4B4BAB4BBB4B4FD0EFC8CA8FD0FFF52F8FD09FF7DF8A8FFF852 +%FD1DFF2752FFA8F8A8FD08FF7D27FD0EFFA88CFCFCFCCAFFBCFCFCFCBBC0 +%C6FD05FECCFEFEC6C7BAB4FCFCFCB5BCBCFCFCFC8CA8FD10FF5227FD07FF +%A8F87DFF2727FD1FFFF852FF7DF8FD08FF277DFD0FFF68FC8CC3FFFFA8B4 +%BAC6AAFEFEFEAAFEFEFEAAFEFEFEAAFEFEC692FCC3FFAFBCFCFC68AFFD11 +%FF2752FD05FFA8F852FF52F8A8FD20FFF87DFF7DF8FD06FFA827FD10FF76 +%8CBCFD04FFCCFD13FEC6FD04FFB5FC76FD0EFF5252527DA827A8FD04FF27 +%52FF7DF8A8FD21FFA8F8A8FF52F8FD05FF277DFD10FFA868C3FFFFFFCFFD +%14FECCCFFFCAFFC368A8FD0EFF7DF8272727F87DFFFFA82727FF7DF8A8FD +%23FFA8F8A8FF52F8A8FFFFA827A8FD11FFA87DA8FFFFFFFD15FEFD04FF7D +%A8FD10FFA8F8A8FFA8A8FFA8F852FFA8F87DFD25FF7DF8A8FF7DF8A8FF7D +%F82727A8FD10FFA8527DFFFFFD05FEA4FEFEFEA4FEFEFEA4FD07FEFFFFA8 +%7D84FD12FF7DF8A8FFFF7DF852FF7DF87DFD27FF7DF8A8FF7DF87DFF7DA8 +%5227FD12FFA87D7DA4FD13FEA4A77D7DA8FD14FF7DF8FF52F87DFFA8F87D +%FD29FF7DF8A8FFA8F827FFFFF87DFD14FFA87D7C7C7B7B7A7A7AA47AA47A +%A47A7A7A7B7B7C7C7DA8FD18FF52F827A8FF7DF87DFD2BFF7DF87DFFFFFD +%0427FD1AFFA9FFA8A9A8A87DFD04A8FFA9FD1EFFA8FFFF7DF87DFD2DFFA8 +%F87DFFFF7D277DFD47FF7DF87DFD30FFF852FD4AFF52F8A8FD32FFF827A8 +%FD47FF2727A8FD34FF2752FD46FF2727FD36FF7D27FD45FF5227FD37FF27 +%7DFD45FFA8F8A8FD35FFA827A8FD46FF7DF8FD35FF5227FD48FF5227FD34 +%FFF87DFD48FFA8F87DFD32FF7D27FD4AFF5227FD32FF2752FD4BFFF8A8FD +%30FFA8F8FD4CFF5227FD30FF5227FD4CFFA827A8FD2FFF277DFD4DFF27A8 +%FD2FFFF8A87D527DFD47FF527D7D5252FD2FFF5227F8F8FD48FF52F827F8 +%7DFD30FF7DF8A8FD49FF2727FD32FFF8A8FD4BFF277DFD30FF2752FD4CFF +%A8F8A8FD2EFFA8F8A8FD4DFF5252FD2EFF2752FD4FFFF8A8FD2DFFF8FD50 +%FF5252FD2CFF5227FD24FFA8A884A8A8FFA8FD25FF7D27FD2CFF277DFD1F +%FFA8845252204B4444444B444B27597DAFFD22FF27A8FD2BFFF8A8527DFD +%1AFFA87D274444688CFD07FC8C8C6844204B59FD1BFF52F852A8FF5252FD +%2AFFA8F8F8F87DFD19FF594B448CFD10FC8C682059AFFD18FFA8F8522727 +%F852FD2BFF7D7DF8FD18FF8420448CFD15FC442759FD17FFA827FFFF7D7D +%7DFD2CFF7D52FD17FF5220FD19FC8C4427FD17FF277DFD30FF277DFD15FF +%A82744FD1CFC68F8AFFD15FF7DF8FD30FFF8FD15FFA82768FD1EFC8C20AF +%FD15FF277DFD2EFF5227FD14FFAF2768FD20FC8CF8AFFD14FF5227FD2EFF +%5252FD14FF5268FD22FC8C27FD11FF527DFFFFF8FD2EFFF8A8FD13FF7D20 +%FD24FC4452FD10FF7DF827A85252FD2CFFA827FFFF5252FD10FF20FD26FC +%20A8FD0FFFA8275227F852FD2CFF7D277DF8F852FD0FFF5944FD26FC6852 +%FD10FF27A8A827F8FD2CFF52F8F8A827A8FD0FFF4B8CFD27FC20FD10FF52 +%27FFFFA8A8FD2BFF5227FFFF27A8FD0EFF8420FD28FC4459FD0FFF7D27A8 +%FD31FFA827FD0FFF5268FD28FC6852FD10FFF8A8FD31FF5252FD0FFF528C +%FD29FC27FD10FF5252FD31FF527DFF7DA8FD0CFF27FD2AFC4BFD0DFFA87D +%FF7D27FD31FFF87D27F852FD0BFFA84B8CFD29FC20FD0DFFF8F8F852F8A8 +%FD2FFFA8F8F87D277DFD0CFF4BFD2AFC4BAFFD0CFF527DFF5252A8FD2FFF +%7D52FFFF277DFD0BFFAF4B8CFD29FC20FD0DFF277DFD37FF27A8FD0CFF4B +%8CFD28FC8C4BFD0DFF5252FD36FFA827A8FD0CFF5944FD28FC6852FD0DFF +%5252FD37FF2752F8FD0BFF8444FD28FC4484FD0BFF7D275252FD36FFA8F8 +%272752FD0BFF27FD27FC8C27AFFD0BFF2752F827FD36FFA827FF527DFD0B +%FF7D44FD26FC6852FD0CFF27A8A8F8FD36FFA8FFFF5252FD0BFFAF278CFD +%25FC20AFFD0CFF277DFFA8A8FD38FF527D52FD0BFF7D44FD24FC447DFD0B +%FF7DA8527DFD3BFF52F8F852FD0BFF2E44FD22FC4452FD0CFF27F8F8A8FD +%3BFF52F82752FD0CFF2768FD20FC6827AFFD0BFFA8277DF87DFD3BFFA87D +%7D27FD0DFF2768FD1EFC6827A8FD0CFFA8F8FF7DA8FD3DFF7D52FFA8A8FD +%0BFF2E44FD1CFC442EAFFD0BFFA8FFA852FD40FFA82752F87DFD0CFF5220 +%68FD18FC8C2052FD0DFF27F85227FD40FFA8F8F85227FD0DFFA827208CFD +%14FC8C4427A8FD0DFFA82752F852FD41FF27FFFF277D527DFD0CFF7D2744 +%68FD0FFC8C68202759FD0DFF52A85252FF5227FD44FF27F82727A8FD0DFF +%84522044688C8CFD07FC6868444B52A8FD0EFF522727F87DFFFFA8FD44FF +%7D52FF5227FD10FF847D524B204B2044204B275252A8AFFD0DFFA8FFA8F8 +%A8FF52FD4CFF2727F852FD12FFAFFFAFFFAFFD0BFFA85227277DFFA827F8 +%2752FD4FFF7DF8A8F87D52F8F82727527DA8FD16FF5252F827277D52F852 +%27527D27FD53FFA8F827A8FFA87D2752F852FFA8275227FD08527D525227 +%5252FF272752A8FD04FFA82727FD5FFFA827FFF87D7D7DFD0B527D7D27A8 +%277DFD68FFA827FF27A8FD0FFF27A827A8FD68FFA827FF27A8FD0EFFA827 +%A8527DFD68FFA827FF27A8FD0FFF27A827A8FD68FFA827FF27A8FD0FFF27 +%A8527DFD68FFA827A827A8FD0FFF27A827A8FD68FFA827FF27A8FD0EFFA8 +%27A8527DFD68FFA827FF27A8FD0FFF27FF27A8FD68FFA827FF27A8FD0EFF +%A827A8277DFD62FF7D7D7DA8A8FFA827FF27A8FD0FFFF8FF27A8FFFF7DA8 +%7DA8A8FD58FF5227F8272752FD0427F8FF27A8FD0EFFA827A8522727F8FD +%0527F852A8FD53FF7DF8527DFD06FFA8277DFF27A8FD0FFFF8FF52527DFD +%06FFA8522752FD51FF52F8A8FD0CFF27A8FD0EFFA827FD0CFFA82727FD50 +%FFF87DFD0CFF7D27A8FD0FFFF87DFD0CFF7DF8A8FD4FFF7DF8F8F827F827 +%F827F827FD04F852FD10FF7DF8F8F827F827F827F827F827F82752FD28FF +%FF +%%EndData + +endstream endobj 49 0 obj <>stream +%AI12_CompressedDatax}Ww2}` Ħ6` fۯM'œ;̷7*TU*UIwzӓlF'L7hjqTZ.= 7&<`L)g[RnYM~‹ç$|NlVhK +ڬw{xS ) wx8 z2_OM LPAdm~bx(^(?A/ ~F+c,h\f|XQ}ތ.Yn]ܔ{6= ԥ_r8^w2P/)@po~gQZ {w ?# +Ԥ{0(MC?t PA7Ր^vao.< z7d +k +ƃ@ h0f΋1 Le(X!\[b[]{trQ_pvu}  I>& L1!!UvՁ~<ǐr x΢ÞWjos%,v|9yQ=q?;kA_ǓjYSFʯ2qMɸp4G ndgEh7&S\N\(H1 !02tӸZm 9>տ@, {^ 9Cn@m%ʻ?@5~2ol%(Boxޕ݈iX8#`Hf|:3IBh~,t|'_1LޑWhHs!1:6mnBL,~p̱+t&vqg,\ωZ?o 5a9L,]&fs.FxyGj҈?NW /ˈ Rmrˎ +ݑ?(b3¯K;MVkj:Ql#ZTRRKq|hkGaMt9> `*cƀ++C-ws6PxB?@j6|1EF87[iRolmO`n_.[FtIEkvϗ†8}=Lý;zF8U%dbHgX f h)ͷZaӯ#bbNW!H =w'8z5)Q `?_k td+7>Zӈۉ6؜I6᚛`@rI~ߔ) +p +p=a5SP {W- tQšqLÿϠI*}$WO'S _=Of<7+JAM—54W::j [=jAG{G*|޸@ :aEj[06` +܋Br76bI1nKT,pO" 33bͯPR`GE~ !RF/Dac\̘ތ{+[SZꏲ؁&Qz]L`\,^G2Æk"p#*\̿| BoP9D&^1s-S8${'-DGE9OTPKMTAO عs0N㨒nf:a5EgmL͏ e^jFn\0S)*DQLjPF -cδ0e'o\*eZ'msh$:}!9soȕVA՞nf2GcBcP#Fg5 +Ջ(I^.2iQ7 l! y-N;)-Bwȋ4Xތ`4@CT\D"RL5ؙD/;.̕JAAZTÕx{= ;rɦjerwg %nOTi{JӇqwx0hCLݘ5: vU>&P5\>;-TӉ cMpU']0Bw{aO|ewf>\ɰ@A[gi{hoz;Is{u7%sN09D0]U2BIGkF Wu )mU'#dth3 $?HL$ _R' }R FLrq7 a@ڿ+ h^鉔"C#F#7 7yWK + +䠻Aʦ@FMZ݃Y,<ۍL&zq*~[{ܣҴT%dZOP6vJEME +7O쳯$B~W0Cy"Ɇ=W{xՍ֙OVui:VlͳD>2 u 3Vu:o[1 1*1)r`|dz؁~@Ln4Zғ@MX % vN& +]Ρ,`mn7a= mGTAtz([BY44Ŝ4}P~yh1iU) HrH2`GWyg*$|*wcS' ~ſ,z7oVՙ9 ږR `,B"0D(/&Ow +BÌrdo,44..i9jnj#%z%@v +Ȉ{i۞9(@\F:[{dfB@78z?$a _AQwBm4FādJB@sn%1F^p18F +1h, ^b0I+3+`$L: H= Ȱ _r fU뇝Tr2 z^bq;Ѵfdbwk'4$8fOM̴^+k2mZ׏Xf Vi͏-_6{D%M ʙ/ +&2ʇ@:Dޝز+tcKr͘mG:Ag{j|f`Ǡl%΋P:/<8q~c//jw8zم,Sf.+b9w>Y<s hc(N )Tź/6pF@|nGԜ6#Vk4?ϥ gPmS3M#@j>Xv.3^*|2?`I'R{dCoYf- . -6`G>Nh4PMG[&ٷwo@2jueÎLA bz}6g +X`Ym.g[uQW4O}Na6z$lfQH0%u~sJ ǧVWgyP5yzş{53UX6W6GdفiƘ7p{νd }`R6LEf# + +3~J\[dL$@d~El2Q>L̷(78үҐL{Qw^ܦo4}T@;h/gFR(iJF +E?t + w  1? ·:nrí +)-}37M)DO8wm쪖 3-XȀz@ -J$נpG+iګ1NpsCSA8Z eL/cbFw;ba&r;~}pH{iO-:AG|D~(;! KL 7ZɭE,u>M|"Bb;{83!O \ j#-Eꖬx +e"'Cd*h+Q5v`Ta+ֽِJ5sk)ˏtH\cza +m?r&^,C_e$mE!;FcOE]./4R>ʏMl߳ ̃rH= 2MuOk΀ZnK>? OLh(@~*rW &Uwދ&04hhK>yXjҫ᱿K!6Кe7 JcB7˵"K_(2Lha^j@W` uwKScJ:h;H `+⍓(/kcI)`5g0%xSN:4Gm?xo1XT6L¯h$+f[ݦ/Q$n}gkN#WXw_e{i,Co3$/ ,SWSzbuڎ9t@'_HsI@S}kyh|2]zVYg7: fpؐY[A4 Х ̌|܂xm~ܑfufm{<]p** +t6q>9ȺB<l'tl-fZ S+KPPnF#5ZDB?XVj0/Yz!Jܛ /^ɢzs裆V>$I whL'(Sc(<6gǝYur`C$oL {(ՊpP$k;cFbh9Oq?|Z ++"վZc56}4[Lk6^ߤ'ͭ#9gLPL$Wx6L;yvB2vus%O<η]#f2WM(#[r.+D\בQMeՁ2ow Mmܚdm6C[a5K=fuKdSUF|Mɍhjzw픱#`gVu+aْ]\k[*(7bd {VzKN#_SŠ__΍tj맜!Vp^GJX-˄'|d?{F<8TD_1%O X` bPÃ5[Vǻîնbm^#%hY ~6LjMX[Uah[RBS2|})b-JJX B([z>lWX4_Vk*Xm,?_F='(p5ԡ2qWNoKڋұV3XG+O/[07#urj%Rtӻv z Jn xfGa X㹊#CĘ|tpl\6˵q'e_2 +nAYa?,79B}o5v_ի0 O83ĽJ0kcQ?TD4\wzvSA^;a&{*"Zؒ߿U_)QA)@S* bc~~cۮ˟5O4?ݍ|fDQTB]/bU}g_U.^էjA&{j @'^BO`t5D7ߗ>j3O#Jiٟ51"trdO]]}&dǪ֠59)TVzzOO/Ǚ&`Cc7p{+sfO9O Hh7bVR'Fٰ,D[aN`$-3g8o"=E6ivbܨ[|Ǒ<<-J/*XK{b*V$X1XyD5شFMĘ5ZBu`utU +?UBX6\ZTvzKR[@Xk1Sƚ0{U"STUHiI敊q'v&{ 4un巗d`ihr:`(\$HjnI@z澙4&&s [ņtMn-Ҏ`$cED2V !ꀠXeӍ? ;`p[$b`7;OCxߞh +be7(N=XN@G*g 0+!X9tw@|;J}ZJ}bl poKa%!#&"يGTؾ3 i3!;[DLQF ?BM֞ChqĨZ;?4#<HY6gWW_fbzD-ϾgK2-Ѐ ;#-!c&MD{F))waių1xrgR'=Z*ltpU޳,pyW+MICbG ^ʔq:!L׽ŇV[mT ,kJlz8gh=R&3 +4:̀!*}H"As6-QTԤ=_ўUR!} `Prv1 -QhŎ% 0(fo3iqOˤѨ(#^DwF)) wkT@IQfV*Fդ `_{kFYkg 0R341l%khhy9\Cf +.Zs}- {s"t ֧F4v;h[1 "wO*#nY;r.-6tZ33+>u{=v~Fi؍aJ$u(WjuGY֠l4Ճ^zOtH3zdKeaC_oMdvGxCڍ88T19h$!R#Hnq1YOݸaU3 x54UAU8B>.i;GT?Y?%ftL[u=G>T\wWE9 KMU9EaXc TraWtcQ +ʲ@.9Veq0`5WlY6']Y+J-Њf_2$G AU1w#[ti)?:!$R +N- wf07+23[In /rٺX6Kc ՎXAD.g Ρ=8H4]!-;ۊ|-wo''P@R;T߇"} q9nk:܈GD3$(M91AP22z![r^NA#K5m 5N1DM48U ևJ*@8ƂtBF'=Re C}4XaK֊; lE75{/}7{2,˟TΧ]ˇQΧ]'S6i|ڵ|7kndgi4)Ӯ廑.]Χ]*|ڵ|B9q;q-x\^Χ}yf9,Z+lBj;RO 9-eH,F!wPn緞oHrXTj,iҙH%?3E)[<Ǒ@E +P*,/4 G(dew@&5oMx@h*㘖OTVۼ<8a׽ZJ1Q/AfCb%2-XN ++8D9R%7 +]قr>-ڨȽUvϳ% MWݍ(!y#,>9>Q@=Oρ2Z:}R42 $FVQVl1CZ5)5‘vERk㥎}Y"lʈ4dޟ0)H +&9e59V \hրW1a{BI?a [zNk2—d;]4]c̅ -{4= [N = +9^?8-A\T(ʹw0ݧ+VguT,z$Uu|OuȔ K%`^^YHj S ev{5$;_N;IJJ/ӌXC +6u@7<%h V)IbH_-i{Y7 +)_ ^^'zơo a zSJraB"Qa7^g0zS F:B`P*{$g񥱩X]C=0#j,mE5#*0ՀEP14HNY-pw(De?dCB R?@EHKY%nTE3r['7dр n]h|yb@&yQyr<5רCyg$jVr{sTxfRR[u^2O/prʼ#g\^'8ڕy24\qޅB +p;iwAЮz(׍>-Jp馗 ;ι8Tr_jR$Tk]OPO:_I CNO:mn]Ơبσel,;vE;Ʒ`4NVտZvX1\$v"kB(W)ukW)./Pd/#{S: +VuSxy(c@XjEyeO#Eyss<s/*;&?RgFQ:5uqQ$^gbd`x %~~lGM9cy\TB<{kl7Jg9!{,ikE?U1*1GϭA4Y>ad̚d=m9t{NgV9s]hnnyeCTҢ0C2K.Wya\{ǭEXC3]¼Q+h]7.eewz|u]WDX];_(CZewW+R+ [,çz_CnUiT4Uj6Q+ +_:X=u࡯刡ܲ'J,g@t;4e#0հI0yXX^G<Cwz:^`Ѽ@Iz͌S2Ş[g^wBmfylRigbϳ! ܶ"1=»f=(AyTE+h +}bmԤM>)ϔs,+)uQl^OM)nuW- ]O)TU)UA]pi}JQ-u>A \OiGlPا]e}-Sc)%Ҋ)U)U\XاdWg }ThW+S%K +}OUQȿO6O*IGQ. +{?ΜpJzxg?L[-~н(.IGp!?Hz;{OO7UWoTIYٔ43NT6.S +/d.S4lɗ)M~)b(Gt3Xӧ~t|.etigTJ?Y0XvS?qu/3|ݶryg֛+FnзȷoIG5}QMuM7BY$jbGiޑKn<)IM!Pbuvx B}uߜYs!)VgcV$rvSy>Ņx TVghvdjo8vs 4ji_#M[_~"&h 5ΦY7/ +u{[ +@\MWyjW94j!ʼ-rOK=Tsh^7TBDc\IS+/ >ʼւ5,/wѢSIAl\yU%2ϷIZS7- =8}JnEI@38\>jhA= +iNÿW>K,k!N"NμѾQ(VĢ9!qKO9Ĺ^CU3׏-8 [2R KKR5ZMR0M`U,y1lzV&˯lNgeXqapikᐿ6BG$ Od[Pdvj| +ZsN}[2 sjTeo}ۏuYBTrf擊EvjziJliV=.c}1;v^xB:_r=?.6@5se= +KnJ'R` +ax#. oLzZfG9hlp&V"`W"m >cfO&01:EBZ>H4ue5Yr23oV"![rQhh+h*PZq/?p!ɫIXUӅ +? +t48C #@A;̆b=Ni2b1TF.# wI/ϼ_@vMki+G 8YP#,]pe, FX =Pa_ +UUJ/pfQ#3LhhFiAe?>g[, gHB{v ;xr|tӽdi}``B`,W)d_tU8,\.? oĶ{b"˴^Q*KL#7?& O? %«S=?No4tw5ɪN9=i Jab؎XgkIBLN>e~ ӠP=3t+9{7X̬jO:38z͡ixg 3&l "쟜SqސNMykT -G=+\oz-P(IƬIl)>Iw_p*2М' C[@~9iz'=<,CN;E2Efx )L!cB=&[]oDi$UepIdg3GB7of5ۧșb%&#"NX&aBJ&K.ugϊh( ơ ۚ;9qQ3"0>OS0ʆg8ROwlzβfM=ZoW[o8տ *Y,WbIþ攼ǡ)8*y2f0^7#L8 ݏQW ޾aԏ`qF2% eKU ?}.&莘#B:tK>G )LjU/wEӁIi91=ޘT!Y:*<3?m^*30G8ZqҀOk`X@:JN/$BXP=d $1H55 Nn`KX 19 ,x\[nl8 yݹ;b'4BYn]NQ{0,|,F/bdTQ~%2 0UJec-Y|[(f9a 퀰iV(\5B.W@<MUMVrZaTdr[1<5;SnyN+zH좁U\"NӒb+`o>n OWP8hh>`z)To++dharZ5 +^ѠUǔf;V𵍣ؒG\@Yj\IK‚ +QY߳[f BsT(idG6q%c tlSrT$9їX@mT(M\kjZ~˾0(K-G5-}lj>}lOJ~07a}BnhD0ع\4W#/w +B,{{^vis&B옕O;+t$"'rt +Lfb++2Okir^HR'F Khl{ fX6VY +E*  `)BO+Os"V2*W^-cs!bӒ\1-d)P,RMU&V 1\xtr#KT C [);2SZ+Z t/4Dʰɛ?"h E&_㰤=&neJ8^O6$MQ-?{b3>72\ x3Lnv?" +0#a\|d w(ZC&;k@$` +ݳ9x6]xfgu +Ĉ{3 76` c<2s9]bKnރy#n|\AU^\%i[~߲iIb/෧rzF_X1%$l$*Wdu4 XȖ2(cM0D0(cM0h4 aYsbZ ++`;<|v+!]5=тtMKִp~G8Ӧ'0-wywK?`V1[L9q ~{]$,@s&53xo9CCXɂ_D ޼1O˶t15yǰ~ObbOC^x_VOCG7bE0EZs&mdީ3SWJvod6pd˜삖lP1oc(>B'b ]e=Z_$gO[~IHJ(@oÌy.pP ſj;RYǒ.f󘷥xP5,%3Z:Jf3Z:Jfj]Q2stJE٥7w0[iQ}hC5os[~_Uao!u253xx_3TM +{[sF16t.9dOs||@Ǒp":_ҋ~cכfݥ}q& 6 }Λ?.!5h$=Nxy Qܠa.&Q~o*fH˹S8 ۭ茸=JDJ@ng S5yRrc:}jJ:cٸEm9vuζ#W~i;9pָ|g( 9v)r + }߹\"4v@aN/iO9NNuA Nx93` 6{EmFFL%%_AeMe1'[{(pTC; FueF8+{ +w/T/|*AW;~i#vgO߱zPD;RhUF[>|( 4?@Tݍоn +_iy:.Ks .iP='ReޘFK7w>΅) +20Cwdf^c'\{@XXϟ*oP>-,,DQtߠOO -Нr$OQnu¨Q[ս֞k0˖ozVV[g+9SuK9Khx8a^k(c0"EΛ-Gj9{tVXYJJ-xDruZSfCSZdWsp 걌b_a)5?r@6 >m˒g{6O9883r!Xem?ZVKm 1e4΍˳g=L8kz+?vf뉙3CB8}D(GqtN$F JLf)3>L ޑZj7`;BQz:{ +CR!Iag<68M;5LpeĦs%UJ !Kڈr*Mg$6ುi4OCT΂QG:6©NfZD\:.b .mIf i+Ί hu`k\slJ `T]8dXJi~CL&4 ':H> X:J'Wu!0CZ$,CJF4o!fcH/1g:~TlatÒ9IXK1Ah$ *U%dXؓYQeYDK-MϘHo|9,vî utۄ`l"p=?{̘#n&:X&#G\deQ̾q\[=M~#JGWl&anyH#t6NlPXATӸRM9ExbZ>tX3@,mHh0RFIߎMdz5`džQ2,,%O:r12ġ ,."p]4 6Rrk `3e)cY.#A\y" DWTTypoby<֌7*]a"^7?NSUC7qQ 3xPWrC"2b @&[~L:1q%_j7o]>0O6!wƍ>%ڐ?oN RNlicQzo9dURh2f&2kT'.*D;9N)₹ɿ'"_/kX+f>+#A߸k2UA|1 2~]w22 3m +ʠpi[`'> sgwp;qmYR.H*m"2u\w&Y ’ NY~EMEך p"ښqAJRHp >:@e#sa+•~:ĹrrKñԈ('1F?7A8 d-(Z≬sOX;񂑸H*0̓qLL8 2yDW9y1s%F3/Tu06 |@Z7DklC kؐae\Iʋ TfDzJ> ?y@qcxCh8I\>r5-RqN!D8Y49x,Dpĭ6a 6 GWWPm.sKa꓍@ \66Y:oӄN1ȹ \d1Rֹ4]x]Lc1UX)``;IYns)-%CT@ %8@{ 'p6Q /k(8J,'?؁;XI2鷳1PMQ{(D3៳ !H0QjSp#粁AH'^(P^uɜؘc =ONJQXWTnjZyUM*E S% ٲ-iq%s*߃`=0 +H5JU|be80mG 4 1ǪA75Sp䐓( +'+ ,`*Kv/  K ~h&b &3"#e4@330u%4w)O$epz8Sp|A $NCݕ(egC.qĖ;j<\1&2^lu}"H +m64yC 5n82V8U̡R,L[$A!. _0͂MC^K 8I,ܡw4qnP t)B:X9YiL,WR`<ȢU}E2xKN@(DPsZB\H+G:#DX0P@ЇJݱ.ߗaZ`ZM1-.$Qk(72h +A:t6mA üOWFHuF$xB|32*5l5ZҔD"0Ekx0cz rl !nwL$q,[02 ~ѴBpV>#"ߔx0UJvJN~1rAvlܬ`eemqH"i]Ip]%~h-q쨃(/sTO_ # daUZ淥?Jꧥ67g$ 05Դ6lPi ]\A^}.(/[膠()rVAa Cqsa8Q:+ +8"PYI~ KcwEc'*fax(5[}̬GO| H!LRF1!+AAE=u8/y3y -Vʍhs*Vxς[TH& 鶔="!&[ʑg,iZ+yeVere .+3= VҞ%a,^ط*%4@݀MLx\cYCs``[NMTVZ)SCfwCwf~w>2aG?6"@kĂI*7_%eUEA͝m34/X|c_@GA4CL3aו"ڙl>JC au ک̨E,C +;x3L% ..Sfb\<;]S59Zf* Da2R P k#L-9a +@]VkĴ6:96mݖWgY.LJ."|*qTE[N\~$ɥ D~0ҧF;uYH+bW0֞7P9#k wןmo8FOD@,8c*Ǣmj:(==JFc]$*pm+*Ga6v>)) ƝFO2-L6 +-W2Pҏ|R($c }V˪ȶ#qBs]% 9UjБ"`a1+lL:A}jg X$%4We!n*YSF"+IҦ,w_P[Z=둪j`)aͽb\m:n5Gx,JPG׮rbMbDP?RۅL0VO(U^ dp gTZdJ|UCkT.1´ LRb/,k),R +UuDxaTډpڠżc͂FRak5؝ȵc2y F1"rclGE0n&jɯ+ +o\8PaT&мBЋ:!F h@1)l+ q9DXU|zged0U# ]VYAx$pWbSrKDh4b +]]2h&D?eciWe؁,rߞl;ƥuY M'tՕ>g1H1/%[b)Zs8KeFCuC7~5yg{!d4I4eyˡPS@}ϲUȬ.we1Y-skrUd;~W,:@ic]vvrJl'-{x(N1Qj-`/W}dQ™ fDyUŴ@Bͻ\=cQ2N+ֈY!)9߷(Iƪ$qA*JY8`qeirJ2e1({tF_c0 @XBmi4!ƨ:fk#4c[)=m1Cɡ?"3宴_qFKK2/bU0\ݴWڕFS9@:VLj]8:+ٟ9ot&4_$¡YMb\fG9PP,'Ї(GnXd3bHyt"27[g#DanvЪ"l}2=OLMW8`(:WvXCӥуwłk3!3I+bʃ QƿUzԈ\ULSFW[ h]/0%1,8sِ8^3k!("čhm<3yh͙RivMזJBJ~:\F aDc%urA2hZ>#dYU`,I,e%i[ (o/OV|>)NK{?c=k_vMDlݼj?Mx˲j2YA3QȜU&)}8kbr;U=mɴKg$Lh4QHp%qQ}Wccۉ# +9!@L ѓV! +#Ir@X +a, +"߲zk &*jZ br;>w`RWV3!t,;>h̊6Lը >x2E#ŲoUIq3a rAQFMrz n^Y^پJ)VڑJɒIjdhWDu7.snme(֖%⽊;" XRdY,Qmř1w\ҙ+x맖WV6UagB(3 &ߍܮI Uk)!oa@xU9UÙ˘qLYIU?ҩrfVni,n\(wA8 !r>#Z,l '<>&+&`7)&RAGgq)q*#;ˉ" Rݤ ={:Sm6(%j4"Ns2DDe95H$Y1+(UjBbE1V! Qu1BlMT䫋'ٟ{dUVFQAkx)Ba$Cub5HNq<12c'{ ܹlZ ({b1{~d7AfQ*_F[Ҍ&1Nbr1@26VP i@=uuJY`]oG](2 m_3(a있Ia00mvZY(E!Ӿq }1SXm]87} *w%ͭjf1R +6qUCvRtE RkEgy!>BAv0ވPA"bي{oem5);uVN ݩQgue txL.25kV:j QZlZRPPLPlZ7.e}Gmh!$1wW~]Uf2Q;J[7'I#(dW|*jZi-W@7 #UISMHp􂘑7hfDQw'oB]U]ɞnF˃|~~&h9 +Y@Ue}ZQĒvXy/=r2jSϫFHjhK_0YÏ + aW2ZKQ-[Ta/*zhӻ*GtDw+GC-Dļ!krB,eV%DoͲ IY7ZM};3g?`Vs!HLp@ C֫<=Re q&y6\) U(ur`Xi4Z_lDualu졦Sk`0ѱ=L#8ypEac;KLQnd%bn_$JHWҮ= rW߷|J*:l^k6腎੸1VbXT__4oX: NڈPdVC0M xzTdV %s8}Y4偓lcr:$ԭAp64L'؏0 +/ш{|퟉VhZ,PP9v5j P.YeD:%$,ˈ[-3*; [e*O<<F6㩍EZD#$8|Eg"!|[^Y-, hV%%u":ܵQ긋OS].9Â.Qo0}CW6D$3*V|J^9=mIjhӪ?#k?`R7SLxIٳj(ҩ/o05.X]/ʩw#m~ȉzCEsZ3RH*Һ FfM4f槰]#K +D9>' 0V9~|~O%W :z9S^ؼv&֮Y5Q2;๒hRWֻHK@!Y[U#S:L ,#ǟٍWNEQqE^ynw=z`;jTlqsޟ@x*/NX\1,F;2\gbh>"$lLrV +Eua_(zJHR.&XO=ծ 8zeDckU鲗.SHƒhҭY,>V/UoTƒ?;n3upY +4* Oi׉yU^3"cZ#>o ^ohJ]-vY*3< % +YSG<1պnDuY&(!-W5767Vōڞׄx5BUB'Gˏ&X,vCjƓ^H0+}~lJ;OO\ꚭ5ũNWZ]kn@S[, c4X8%$ʭ -6_U~;)Xc@rn\z@#9'Re8Jʮ5ԸOѷD=mˆ W[`R/,Zndq۷:_QYT&(yd>KI(hz?xan,wnߏŘV>h7ɇ+S8~\ np@pk* 5o(*W'6ʁ7kVqKsqAijx^MKmGҗkP]͊P./Vae1B1*Q` q07LkP}pO1t?0fSe!>5 ="r8wkYOY{#F?c:j5~28S\D3/K<*EU0%10G M}FlF==?~7 hFv; 56YPޞnZc kY܏(ӛfI3!*x2L8T=EK^K T"ݬhGE4xȦA|`Gͻ)<`W-V͐.{'%մ;ba[l2G/Fx0QGъK9'Rp(J;ՉgOTWpqj./1e#~ZఉE+7ɉ~C[xΐ~6BzVwhkCFM0$dYo=bgv=ӣވE7,7 pIRWg. ¦j8bj:ZN+k왋 lZ^r%wBz_>D;0' T;KɣM B /{1Pǣ[1i]Y]IyRm+=_vXB֫Fj&^O-n'-4b{,Z}.W_Oa*\= +K}yLC*1B=on\i~:zOzlz"lƚbne~HI[)봚gv9=-D& [R足M/8onpz/K`[YJ +Z2 +ris?rӅAJ9ѓxi(빈0jƲe"<2Il$ynNӁ +z4C +%?*.Y+׽P:C*mlAyh;vS卻A=Sw?|+jDž˽t۷ qC˴㡌e;F~⡷)GHl1/{M9On֮s|㽼u:2GĞ݃ *JyDIȢg']y\ <?d%pJ~_c\R1'UQUOvODy~]!ުD(h^EV E[uV~YWou?$?\=/BJ?~*.[Y,!6EXvqx8gC/e=‡Ķ^3wCzށmg +TjЋz}V=ޏ -:d2ՓREX1S6]i!__\G=X/[=D=-h0\E7qXCDqXGǷv(~X:KOa|}E~7i篡]~mRUMsȹE]sQO[k5cuK*R*ř.8YMAonV8,ʷm c% wkq7 n#_Yh%'w'@_a8,];n g_PsHxc,K ꥱ>$> q Ez_ajWm.l~hH24^Y8Qdty=-ίMg|/|s|Yxݫ^/j7JW[Uzu~~Y.ܠ\277jWQ͂u~x +yyYSU,^xՉ7Jַ*J%!SppMpAQ;z郮 [yruI^e⢼qYUeQ5NEJ7rwRיZu=^Y:rrPsƾftGT25Ce)aebzep'$ܣ6\$97\VtnT~ksչAf]nnpThYk-uuӝ5$-fj^$gwWƼ'M 842h3DiO #N_$շݗiEດp"q]ظ.K2ڻN2^*ӝw[~tz41u?G4<~cz/o WM' hM/X윋^>`$/zl@_^h{f,џ("o ^l'?]Cmg /.7_<_7_|߾/|_}~7-sO}ݻo^#?2OO{껏߽?o͛[C?uSOw?ӏ|{o{{/ݣӛ?[oy_޿>7_w7_b\`~?'~Ϳ|y9Ͽ}oJ'o}߼{|/g?ןH +endstream endobj 5 0 obj <> endobj 21 0 obj <> endobj 29 0 obj [/View/Design] endobj 30 0 obj <>>> endobj 14 0 obj [/View/Design] endobj 15 0 obj <>>> endobj 37 0 obj [36 0 R] endobj 50 0 obj <> endobj xref +0 51 +0000000004 65535 f +0000000016 00000 n +0000000173 00000 n +0000027026 00000 n +0000000006 00000 f +0000084827 00000 n +0000000008 00000 f +0000027077 00000 n +0000000009 00000 f +0000000010 00000 f +0000000011 00000 f +0000000012 00000 f +0000000013 00000 f +0000000016 00000 f +0000085084 00000 n +0000085115 00000 n +0000000017 00000 f +0000000018 00000 f +0000000019 00000 f +0000000020 00000 f +0000000000 00000 f +0000084897 00000 n +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000084968 00000 n +0000084999 00000 n +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000035762 00000 n +0000085200 00000 n +0000027443 00000 n +0000036062 00000 n +0000035949 00000 n +0000034491 00000 n +0000035200 00000 n +0000035248 00000 n +0000035833 00000 n +0000035864 00000 n +0000036136 00000 n +0000036310 00000 n +0000037495 00000 n +0000047543 00000 n +0000085225 00000 n +trailer +<]>> +startxref +85364 +%%EOF diff --git a/report.Rcheck/00_pkg_src/report/man/figures/monster.png b/report.Rcheck/00_pkg_src/report/man/figures/monster.png new file mode 100644 index 0000000000000000000000000000000000000000..2eb01d5430557af9e2a180f58227e3e2b713c097 GIT binary patch literal 34816 zcmeEu^;eYL7w^zRGn5F@9U>(lEes$?3yO-Qphzp--GTxNNH-$VDbl6VBGRqW($aAE zyx(;iuQY$w^MVgu(R4BZKMc z(G!pK6NP)zpZ0&&KRKE?_`D<=7>*=q7lJP*1+^-y|Gs@pCLlu>YDO0t!SMgT`F|H7 zf*Aeyik|w@cle1tA?&I#{^68%Ot5-wsZVj}Le)&dzfjOsS690qOuLnP9oVl=H(XMU zWeOQyL93||{@a`-XGLfCS<-Qlm2H{QaTQUZ^bM46-zFCPyrpNu5Ebu$#re!3F&q6LZJ`Xix^A8`Ko_=Xl z+DN-LS{hbVgw>YaEU1hOxL;{y*7NqNfD|29klB2zkj5AV>fhh#sASP6io;@vfIGa6 zLm}Z5*iTZO@S6@7h}rvt%#wP8LkQZ1%(9C3`1tvqmIqlEt97Qs1Z5(lqJ{OS4`>f5neKMT=vVFn!{p}XDz$8Mn-tm&ekA;@yS*p5(F(13Dupw#}76(Hpa>=2#nq5@w^Y` z!=5@gNT5SvnuX||RsPtu`t|GATzNNB`>(I@!cGfl_HGp+2Q{I|(c=3-{H342Z?%z7 z%h31YBMM7Ox(ao37HD;(Uin=4@l7Zq3>FW4+2>juY{9vOsB2y27TwXUWz7hU3qN+o zu`_upt=^DM^VTZs;jQDfQj6XsVWE`1o23VT8#c{b1MyTGpK{c!Bx!KfP1`R@XGdH# zU6acox36XB>+35lDpK_Im8-Fzj+B`7rsCF4M|*hONcZ@2S^w_cHe2yZgjo`9n=srV zUO18|mLTfVwXU_&W~QScbxy#d@4iMUOYkiSP;u{7JBjfXou*D!a7WMv6fxOo$c z?24rS>8bZE-t86~^11f~=^`bl2)py_Y>xCe4pJM zU`pu={q{}WP~dIhSesDqoLMYEI|&vqr`*vmDuIVJBnAcsTSwkL3&L?9BlZufO34R{ zivFRrf*PA9H$q3Ay*#A6e>FPH${D$iTNajK&F`_Nmi zowSsPNPw1jXLncF_tYJ8xk*B1*iG9n9ZbI^@Rm((V0Q1cJ@a>>NPPwMhS~&_w6raEna~2YQhv{e zrKP2+zP`SJeyDi$vhE-(6e~YJv3;%Atx@4*4W4V)x>FpQBDNR1*}1v7pU#={WjCB@ z%bz)4k#uC?OAm17mX>CK*Yo+NrcM~!9i*8eKL2U0MCr+sCxZj3dQFYWYEPbUS5#Dl z9uj{i@XH$d{yi{^$rIUpake=$J#E+Vh2(9u&FDfK@imPj@%|2SID&|lXVvt^WGq$u z(qkU2MRD0YbT^)J)YwgiE-WmRy>;SZ&{LoCT>I$0KXUKBV{iloc1TDFJl3#m9!IIP zy4`+h0+P=om%r`BWb=$QxLxDYNP6|klU8$JNN1>XXDP!k29KCF^TUT8_vsAB4N}*E zaHOWDCXb+COx%bDS4&$E76MAPd*e)@5x=2ozV`TIOH0g6wGV5{znq$y@*U8oowAqs z)1MYK-QX5ReP4q`5jnQu%I;g(%)RzBAx~~UE+r+Zrluyz(s85_9}cHGRFUn`=5rcG zM#fiqib$-=@o1;Tu6dL5-zHlh9ejxE>+7M8IlW)}B(ZY1y;yg;)8llwWmZ^3AOHN| z5)%|8m4{YIj;8ai2*mT}&!f4spAJs4e{Wc)frMCcUaQ&^oeabB< zi8o&&x~mcdWdxfJ&Aqo;36zSYKfQ!nrW$jl^`QB}$NT(fDd>Umx&u7dr0X`cKTA!> zQ~Jc8o}6y%9eIy6`A9dNZ8+p)Wo2n|8Tm0}Kl*n*>QZk62THe5E`DaKM3V$Dmleho zxnjE6EJlvhu>I}Yu)QRIahY8ux~0sleGArzj5oGJ2d-=NLupqW=WWBM=zy66*}Jn? z2-xI%nFl#TVx+LW-FN#Wbno5`O-;R`ks-&J;d^YY@aTuKlizSe>v`#g?}rhoU*h@P z{tajUCSRwey>#$iWRUbdtt+Q)sAAzb zdzb#Lj|V-pugAN7{dyOd`%wDZGD88$=f9BOzJ0@g6dQr$)=E`SRt_mwa?B1&-QPSo z@)nRw3jc2d$uN;aHJW#ASQL~A%yN5XRe2fqpQQU13-nI&zi+G^98@1YVhl%K9G6~1 zUVT`T`SByEaj8The~Oxnr;h8i_P3IP0kP1Z-NbHs_N_F;uTw_Y=M}zQm}jV z>ebG#@!awG7C6WGJ8;$Rr`z4zLCmKJ*9KWL#`KFj6-^bHwW=MDMOqiP=W=4@+B7Am ze>`y^iKkl-R?gxfV)8vS6EJC#$(AZ2u<1{cAfK$UTiZ3R$h^o;vHwKa44awCmNfpE zqa&}yoTDVAog(w8EK*^>d#A#(=T%yotf_!X@wPU%gGjPzxuI$0xM}U=%XahfmU+jP z-_Mn=suEGrUmylegM0;WjQ2Mg#BJ%A+~)$q(P8=4b(nn_A0KqB>5#3Z|1mWqVrwpl zoNJJh%V56o0bNjFAoh=+KUGfaQHpcM2y6vee^IQ@1f~rB@#v?Kfp)Ff=YsXWD51u! zPu7y>sK#pXxs?_b)j_-8g37(ukitjB5SLZ#xBtN;q|x@L-%*WVMb3tc0G^N*QUli! z-~WAq@hnc}l@@mN7}fms5Q-!bOZ6YNk3|RoE0Z*xOm8maB^pQ8wcA|6u0Qh*)nY87 zc#1bjV#@8Gi11bqo@;Op4!iI^w=PHv#UUW0lV0V*mX+L}uqo|)lHp@j95*;?ArfTP z9-0MpiZ;r!Wj7oN%i9j%q_2?keG1VW5$l#6f(k)`W6ByBm`)IMJ|=+MPrB=MHazUr zI8)}vY(>XN%M{%jfI|SsF(EvN#YeG4Cj8kCo?uqR8tg;QaNg9)ii)iXXbyx`%L4p@Xx2fvd^=zmx^w~9qnM7~DJ zDK9unoupZ@vaL^46Yu`%Q}Xii8m#&=FGSNq2V4QsAEC%7&4$|*=D|2U1C_0+wwC;; zA-Olm=W%oZpr?QJ;XFKoM6(+#ZHjERY>G6VQ=ObvQ9w#0_QingrMn-lFMAagEkyE{w5$|l#6WlS zmtwGgl+2GiLxVjT+|q#7MKL1Et_8kud3ddEF0jyBBHjZErZ5Ye%=zJ>`*K!TCXf19 zP|Y2rq`A&ZBgHv9L{In}@vdlNBQtFj=IjUc`xb5fyW#fNNK9NDfB)HGdmr!aRw;pC z;)mGUpzt!cP2*ILKgm9EcFJs$cM(Z1_>9>nWO#AkhTiB?L_`0Dhj|n3fTY;$JL5lh zA$&!ok;m^h2sQ=UAcsP5Gsr}+;Hc> zU8bF$8VM3prUA79($C#hJqlcWX)IFv!N zzD4VN=EAj)wzxjQk84j*7LOEc9wngE_*9TxRYe^}#uzyAEM#({tLr7he+3bUbSTeC znrO$x_0W}<6xgLr$9(pmw^b0bF2CnmgOX&u#NlFb%x@?PALy67G(qshSfnu!XL3dF z?#&9@O^CsMjk;GQ6ci}Sq=A6u1Z)YH!qJ4k`EyY!sW_jU3LX${w$mM@E z=gTk|D6Q^sToPWK6&=Ua2Z1LKl3EMS9Zh+tuI^?2x@8dnJEBi!*clhbQ?A0cu!8fnAb#NOoVn)RL$gnR% zJ|l!cltWL^y^LR`3CRjrj2XR`Y`479L3#57MV&$T%}x&?jcgV+BXsb?;1-jRman)Z ze;z4j3J31eDBrZUw(eawW8E}KPJxPHmXE>64eep%-Qg(qGTU(xXJ_YJeXIgL zPq|pfae_?Ve#QdattyHnjo{hmX{LIw=n>7FZEw&?w}P#g3B^7}-FY}c^~b~0M9AmZ zd2Hj~*yWDkkn}6tX>K#EfR1&IjG{rkn1{_YSoPG_9Q82nxj|G>5s!d?7^UP<4i6C# zF>yI?LlS1W)JML;f#I*><8h#()(l2Hk&C^{>Uaac_FafsT$(UK1sTAA5WsrHkmKna zMZv1va6yy?7p{7$(}upJIlL8Ra*9nZe<~!C-ttw76_<#J$PrYJUw{5^ZTP55#S)<1KnXBx``eXBL&{w5ll!mI5F{#g@2ft6_?3ty*!-nuY>s$EyQ&JsU)!i{FWuO zp?a_bh1q?QeDf(qQzbgPFMd>A0KRe=dqn_L`~IuUm=7Re^6y?;5$$BlLj&_uiDjBr zP2iwXTiSN4H{#*pf&aYhNF~UMtMZaQ1TOi->I~h`iE(fdUrun#sDg%gG>&JW>MRBJ zZLA+$_o^+El0@-a@D%4}QE6|4RD)X%g-Ualc%2%i1!O33QD#ud>wd-E#?HSJ`1>Wm z0O-eUeG;>&6c3eNJ2S;zoDN)&&@Fp1pWo+EdZBA8{*m_LTh<0Z~7iI95!E^G?xu9qD-y0Dh(xSqKUfq@D#kHaenaWV!yw_(X3be$m+z{V_j|xxy_HCz~UteFD zD>6&pzI|KQ#DrW~P3l5%$3uoKEs>240OBC`zhjM}tMcm9&Br69uim`DWBJ_paBBH} z_9e{{YHY6~V_^-1-EsuZeMi0%YmTdr`P(L`wKmy%dV0*nQwYpB7Y9r$IjK++6BBI5 zf)|gf<6q`dG0p#tT=iR|6*Q7G#adg5&hYws!^mr+8pCD!B^ODIJXiAEk5>xVCnBy7 zmp%AsSYvyCY)Jy^(3QIR0*AHiEsq)R_+_r~qYoyCB59JLQr6G5dB;Ja**xwi8@1yf zWN>p6FzCbQU^)zNtSJ=!IzVIF4YOxtS_M>kWT|*x7q@deM8?aqI26^@qG+$OAvl5u z<8?!2G`Og&-_h=Q+SjJsEjGLf=pSp8T9K|hS1rD*`H2U=p3~(D5P)(EO2^1B5&sL6#ma96D zd|Yn$bmp_ikEy9E&R5vkCO&(-Xi1`3ZNkcY&93^-s}UWq-xd`9bfm}t6+w0en;L8M zwchuC89qC4Qo1M-jbdWbWIXQhwTK8D;a;=B+@$^@9x^0xGnY37+_Oq;FF?&Bg z7N*Hu#HnhoH>={mXmWyAi})L;N2@u!3^0vNSr_|TjXYL`<9u7D#W)mrc1k8ikqa&+Rn-_o8->cr(w;+t@*sEG%fs-YvT!Bf;|G z{Oqwv@^Qk4^9$3n_nqchZ{N}`((9?yi`yDz41|618#Q{N`90=|+NDKd^A03Crvt}} z$h#kC(6|N$y88M*p5zgSlq*{Gy}Qo3G$BG0)^3KbBG-Q_RgE~eL(U#3A(}5?k0@q# zZaNZS#m)|qX5z^5TlX`!9SCbk>Eg^iVEg?219@W*lDqA5Ct?9j4ASF_IAgUBM#bW5foWLb@jN$bT7B zaPz(8p~4Rzf)Xe}-O4`6$&-Lqng zNG@UUkjEL?4;0jPotb$Z;yKs7!*lb#&EOW|&**n%*o9b*qNs0JMgi%Zb@K}7!xe2m zqLe;b=|vGl?WAnsz|ea!)Np}zcR_}4WK2v*`Vg zWnW}Y6o)m~Kbt4WxVD(vs2q5>(*iCqZ1yIV{H?uV?Zu0;=8H>13Hom+lIYu?{gY-MmSE4-YMk&%NlGi0nCnfcox6aYxOnij)U1Q@I3{MvkuOn1(awK+} z*lc3x?Ck7HxGnkS-}CH3ZkplyT)0gGU{!=h`+1%Jiq~e_u@~_{DVl!IRYOovETITJ zr_4ES$b=)|d73wSrCGlVotSu_kuGx?UI?RJKC`i5ud%z;A?EzX^DR|h>J3p-(#mWe z*yvyEYlk1XO^-ZzS(gwu11g>W7n2U2<4He*p41yJ;>3w0li|#XvsJe@O1x2g^^?EN zmnRH&*_gGELuEgZTux+T@Z>?|c&~?aHu}X2(fc3o=6GB9Tp(WcSrJR+*Hl#v!pnRy zFUO7URzy}zZs?nsFxNhhsNVtsP~vS3K0k+SSl9X42~J$vp?6c+=vCE4tMLt2xZo%k zr(C>u`9qe8k7&2g>hB}t=sqnw65YJFRWXjW<}9fyGWL48Vu5|jI9Y?sbEA5ca=J5@ z6n^3Qs1cRWOy|xyRwhW5^yGt{lzm6LOYtMmHfpB{S$QNRB<#s&gfB70${jx)RNOpU zq*2b=9gxoeokfjTO6NOD@nc^8EUTIScj z@=>pTNkY4d7oW5&`aV6a30wZpfmW)zVtx@Hypn+d=CYoSm6_d~d{Fj}u2fhkUziCU zTs!N_pfKyNw-ePph~pr4ws$8XA%QMs{)((8wRpFZ@P3iIriZI zD}v?Eb&Y{2)GEPh$aioF;^HWKlSK&>k%k|CCQWfTJ>!g`zy`X$*hR~#h@5h4CsnDC zIIDI%yo%yu|6IU~45*CQx)BwFIK>P8`nU}|l``vLuBxgk5OImY4{~h4d@Zl8wt+|t zE*w_;*T+=>S*{A6s;hoiS#j+@t#H{+R1tps_z`{%6e7$oNTp#Mw5H=#{%B@-xjDB( zlh_DZ&l}*P{kWr@m7UGjN}I>5i0plLo%l(b%UzANYItjmNC78-nwEB9c_=4H>niGn z`G%gy;!BCP^x4&of5It!C_63MuUP|6{?0aM6c~moV1#Lh^PN~kfuVVH_abY+(!bEh+|7i z1lbEMg-F>ZB)*#b0R1UdS(O@g5YBypw>Mq<<3lp9;}pA(3*i3dx=D~B5at&amzJiv z*?3?)7Ub=)=P`GD>`5=}x}IsLM;-F~#S3e&6N3KMIX@J4n9&#?9~V%-*JZ{(@reJ5 z)+%_RbMP`E8uTIh1@^n-KU&Y3`5k;k^K2hsnqS4uHx*9NUn-2zK-5aIe5CW90 zg@uJ4b=8cuc8d5*Z#fegU(c?&=k+|&($bkCs-Ax8gO#h6l@wJ8%Bq88itzpt4#pZg z0=Iar0auyHbAajQxi_S0!8T`Lkav1|8tm4);<>!fn|?c4{jbgc%>wWwGr>K%ZcHSF zpwJJ<_k@Mh_gMtnf_Q{}vd`d^ToOdUS_*J?N1#Bq#j;Fa?!W$s%#XF!dF6YO8^!L@ z0Qu7ot?O6{4nUVR>|X2Xfiu(ABcDd*r+dS!4fo$M7m}CLZmf(|@b+X7qh|xH;^2*? zRH_3{3W<5vyj*xzApfpb#z_7o)s%-0G(L<{%1v-S+?o$|D_L{{5Tq+J&>EXB63AVydWwINEE*wzzKHo-*rajEdpGAy+zl z;w8c40l3Z>M$Sw&W|DV6zxZ^n+4(Eb0MLj*#jM0I{(oY;zkQPuibq_dM2%y|^MN@h+@(3&1KIG<3{ zRh^uivNgZDha=_Bw`0qn|5mr4sy7^UP}apb<)m(56rU2<5><981+ws89 zpFhjl{L3*wo-^ueX^{aX?ayW>L$W#o09qXII~VP>5=C&>5_CAe{*{v4gTGv7Qh*HKrKC{p zi;B|nayI^(u<5dTek^-=)u*pY$wZuCgO}F8;QhysFJl;`Rlpzp0e_yXqSe)Er(GGa z{GxjJ1O>??wbj)G6QgPzX0^Z^&pSRoPO7uNuF2jooxXMQnkLiVq#)@YRCBmrUy*nGEA{%QSgGmJ{dNTyyc1t z3zvtjK>OI3ZI*u~z9uFi!7V^{jgkDUwYaHCju$^iLv>gTth9#Eg!sIJC;M-1gO0D} z5*x4RzFb(O4x06HyaLbnewFZaJKslw_p<%;y4dq_p`ygK1Knq9)51mk{_{uWsw%#& zc2f*g=|!(Uy~#?j$e)d`8R+ZlfPClQt!Q$eEjSbECc~y0ul4!qQ7AWBm->0VQEn06 zN5k?!m1sJY%e9yJ)=J-K+Euqa^LdE+l10Oy4(o4TqPn4{{t1+AHl|I_3-Eq42jos{ z^P$UzffFgS z^MxHX;~07@{DL#Z@+P=>H2=P*(#F(s@AkKnH3|#`~mmGFIG|^w;@# z-xzb{6!A5J^9aO^@;okkePCiy&Laodi)_(KNn>SEBAM6}?^Ez$DJ#atFv8IQYl>WsfeZE<~ zCUo>l4?{00XXf+USc5Y^KCD%#Uf;j*D?t38&C{pI!_=ap1bAZIF^rF!t94}dPZ6Ij8M!}r5mf|b3-9eRVB!C6gy+8Ga*@%Nrvv6#8Jf(SiM%|z7aC~&| z=g%^r68`gwX-aUNZSqNiZuI=qJCP)~ZPU}k?bLWyT=5iA44{y_qTBH2WV1PzzoagE zVD0$3wC3>O&!3_23X8IAZGm{iTU`tebTwc_L2!hw{y{i0GFt&@_KUslJ zhSyvG0a!@U&357pz#v`@9Ge7%gQ2tqR6u3KHPgW!o9olydqdE>K+$mA?!45#w97eB z9PJ-o=5zATzd0xk2LYf~ci;r24O>IlqKhQSMcYAgWMl-gIpH~$y$Td4xx+ae+sT@j z1hH7*mgCSrfqfHDacL~a8!bbcsRJrppl@^Y^5B5H=N?bf{zr#aFsKzlklWdLo+|0Y zW|`3?!sz1|uV>yKN(xb)lKF9S^RNWUdqz&m&FQ9%kN6@30dn)?oeU;W1FN6%-tA*0 zhU~-Xva0+7_Zmm*((XLOXe5lbds{G0dPT*9j}Vh-gZlr%$bCKp6A$|N@nP7=hkFP7 zw8ow*oEDx+-By*DlLzjtWWV&LjK(`LLIw$Yw5BF0`0m;E5-r9R?pa=Pxd|Bi5rZrR zPw0kcW|)2kJ%^YKmv;IUf++J_R~BxWw?$BK;~Nc^68r(>_PJDAgt){a2pm+}GN|fa z?-lQ5OAC?YIJUKtq9XkV4eN6G7btHZ5xaz}rl_}g^yw{D_quk-iwd5~|TCsl5}CpoJB zbg(&_VQS;KzOugFk);%NEX!?NehIwHb>S%XUzeJ9A%uiMvQw@W3T|!^#(rlmh}IJo zpJQcRYD}D9=8tk(0u8L~={&ig(E04_4a8QM{Aqyn2V6xoM#vY_T%2n`-miad*(QCQ zpU>sqXnX|_PL?a81;kow+%m3DMk07pG!07V!oouT;T4T4HS6wJztctk4xck&>+c*O z?@Ag{Kh(3o@ln30h>f40xTq+Uq-(s^ff-l}g#*>)J@+(F_*wJT-ID33!i}|H=Yb*+ zb-eo4k(Djs?c417`pZjcZcM;NGKA)Dq2WjZYBcg&i1uq)1hxodAwR*`;I&3!Q6xl| zlml_N(&CURb4br`qLoh3 zls>xa&-A}Vk+F2jGAU?3d0acG#ASr#8CS`%`c?Q21g*Y&{TeX3_B+@t2p|PmYB_+| z|1y%H%-}tfge^k1AL#0$-o1Ob@GQ)}M|40Y2!mDxOkpAZfwA$_#%A%{IehSasszq& z^`Rb_A*Sx9aXX-^nTjOiuLtijT!+Ky4M`bmr$s$1wzlK_HK!rvOPBpbUxQ{bZrcT> zb`aOUNKQ{$`4>3-)P zhyY{o!EmI$xwGVTgj_PFtKGD~S0SfZdS9A#6P+aI^GUdqvRHGa^ahAfYNvY13741< zTkXu}jtZR1%xl|IF9x<1=(vF>g~fAgb4^4isG9WCmvU&KgM$dj&BrS&u}Y7w>CQq9 zWy7RC6^Sy#Sat!gt@TDIL4F;pb7F_^55urlA-K(eO+trP)<^ek zYA1CK3}}XtUTlhxp6H5Y9uQVki=@C7OzcUDvw%mk1!ZsU?L+&OgDZ`XAfN#GoT`aH zma8&wgHUT)%**#C30DIr!Eda;PI;X|C-6KP14%TDYqpf!GqZxEK2z!ifQ&=o}Ga8WA z(BL1!%6+|saS4HjD~ThdsyijRJv-j^rAV}IxRQ?*223oI%TQswm@FVm_Z| zmb__!OMyB+?3O26?i@C$H59<4Tc}JeZPilV(;^O`NP{OizUdql^PgQPfp__dp)T3T8{@COSBXb`QP=hi9&L>#AGM)y;q9atXz z4}z8XUHHN-WgTCD*bgRS^|03d_ujE^+r>FL$2NrGsjV%fd%wOaeM1P$8dFC;e!QBy zl?0mv2;3W2a!c#QZG?YhBoQ?Y4XJyKuM#G-R;eC~LI?l+`4dq-)ZoM$8HfoTWM^Yz z;*?M_!XOa_goIIYw^ww$dWQVm5=?kqJ-xu&*BYq->!RLVLfsq|0}%xUw@~-zoedi$ zT^(J9-#N%1l5-|CpSp)GkOXI+yP3SA zHx1}uQJ4JA2>{Wt_KX2EE%iIInTQ}mAo5VagsZIM%j22x$6R!EsUK87GsxD|x(%8X z>^u;k^bHMf<>lo8xqezyT%7B%`)3F+-ut4WNca)!cUJ4RtK04vabC=JOlZbKtYf~} zrjQ~KcoW7jTwPto7zO$U*S{Iai)pggPHIB)-&@X!)q~V&vPOR4n`(+cYUQk{DI*MT zeqT}&VB)kr=hZBgAvfO_T{pgMJ!ZJDD^_nyrA7p!Bck! zSq`+X<38@J3r5?>F8T7QbXhNV`C^Losd_4qkKUG>S(SY%Nwl`JyZWuCXVK2w=$7>S zP4rle9Yep|$$HuMLJ2XkOmNal#6|pq!Z9kE{=IuRbFELx&>{}Z8#m5djhkzczrC24 z-(E9``Q4L9(5U?`KdZ8m>S2v->ownPVhg`?)30mP$~Pgcn(p)Oes6}nyy+TI{xxSl zL+4Cu^rL7D)pm0$n0`i^Rz=0sGW(h7SexO?S{8xGj#kum_u_UYY-C^_T{hN+j8y8y z$|||y%UeELR}_(O1hOE03uX*XKFi<`!R?Cz=f;7@`MGE%zm>_w_%}H1}>_##*t`!lmzSu$_jN&%CprU@13Rz*yFSAtkm^<`!+Z} z{uPAmh3NB^-}|0U5E--p@HTaB4n-U2I|zMe>5I)`K2vp0*3D}U4~WPS5V!5>h@isS zlP?^4@6C(}lGVR>BGcD%D;(+2bi@TP*=qgSWr3uZW=UgN2VTz4)b?ra83lAR`=t&O zcOW%~9mg#bLu9l~w#wkBR~;zi{nn4t0!FB=u8yx!U(7?4n?MKB9@NRUawcKLYZkJd z;!7*0NgX-0O02k;%?DMY0N~!t;CtEo_Ko{LUpX-~RBcUH9CYPh zr+L2ZHa0d+7iS0EL!Ww~bbz#5whVFScE6(CmH-^g8^OT}{HV?h4EXQoU9Fs124qxc zAjY)TddvB?iWcA-P*!Q2zp2ae2)T>X-79M-OPDsmB)7p~!Jb39hpMUUxsH#GfnEQf z{K8BYibTz0{MMJ&zXSTI6z4)2>@k_ig~yM~)okXm5I1hzs9Ue-Y12!E21G8irI0Fc z+bQt1R#f`@hY`+vXIIFdn>P<;)R zqgi#7bX*@3rlzKT-0M%LsRhAg2#@p}dSxb%f#2B%d5~1$->E2QzGV=_`fnM?{Exlh zCEMO!eJGMo*%5fH`IPd-pI+ho5|PYz%8VDs1q3$>ylxzOS>dbC_I1!Uo@#PY!C-_< zF~#FH=#T9D{5^-#`uMYd|Js95=AQJH`f>0U0-Ik^(ir5{lISAjP;Ns51LS;e!aX6F z1VR=4yvlhZ1J~DWllrXS6haCpr?{8|<1Za8WyC@$VwIO?1{W5xQ=%oq6BCirf9r7k z9#rDHvMm$ySj^AH7nH2wm}0RYK3~jujaA!R!sPrR371(@LkrP2#xoJCb2r~y?qSSgGwL_Y%^41NXk z+Ru-RyopGNyuziZJoXONFD)EwSmYHH?7}n_FaT-5Scb4QL`?x?gJ+FJxO2Q#6-YV= z8D|~=-Uu)MM4JQqu>!3P3vv|DuhtdkYGO)>a+rc6}i zc$8Uo$N<>RjPHqE@xxj&$SZ-+*d3E5?L?tK;6MIZL)r?-Dglo0`exM0X=S_2E9R!4N zXDOAr+M&njl%SLMPQK~E-|2NiGHld*=OvSlh0Z7fYDQ0wcYRhE45=N<6dhe8tBCa8 z`N|DX#f&rts`%mffNvL$H64H(Bd1Opv#SsL(LWJ|IF6hU?xZGRkwUcKwm9vN2*3Bz zQ%|DODX>hSy0g-78%K7V{VswNokTSE`A*m+g(!-#7^b0abj-!`L16#$F#E9}Cyay! z>^AG;_GNdkq5)zDqI%AV%Um)DNTXsPE+KykF9M@Pu~M}>meNzlj5L5WFjt)0IEdF> zi-^W;OP`@Y^qP31T)e`OZ#$!?zHhC>YiIkyw8~yyJWp3 z*GWl-8m)X}Z7nUsb1f+mwG@(y!7Bm@?24P$AO#BQUTv&Zf^ijhXgIg zg5Q3`d=XI0V>SFnPcf;Fg7A~JbCE^Nx9ae@lH%aSwNiou4+ImdV>B`~kIj3p6|R7? z!FA)?A%TeIFechmJIVMn@+%AzEkGpdGNW|T>o%O_2)UYZTh`jZpZrmPo`+X@m%n{y zVEfO)ij_Z?oU7KbBK2QcPQH7Y57(a>ukG6In$EVfYunothBr2(`0uTCi8X$Rk>>Nb z2XXjYAx>Ib3+LxDHhG5cov)CWCmMTNx7f7mP~)M4A<+O8t-Gfqmt)af#u*?YJp)7g zL^I4el#WJ$J1MuZFP%gLhESLxv_M=-)VgYv51~J#t6HVho#A9`|G1Gn=L$U>0 z)wZwitF#ui&R0&FMYJh!=HUv^^03OheXWR~N37#-x#>1OKh8Rc(w5oA{o8mj6P@z> zwO)2b#rH4m!a7D_a=xGu;^*oO=!^VZ#M;vjhY&DKT7^}AQ&x|7(SPGfi+)`)0%Zng z_oJ-6Vzd5EkNJS6AVW8xCGxipm5C!>PZohEwL}VB4)`<1BBByhLk@R9x3> z_VnBV{+9FM1OJd!2Mt>rY$T_xxtoid0ThaJm;z%bsr7mYDkI>IGVsyL+>VN2ug2bc%$yc57D2{1!01MDL@#FdfLh?PRC-a?)u)_nNmjk#ao1aU zS1Wco!lyeItk z{X5S?np7^;PY%SWi-Uq30Vj}K0cj0cPzq714K-r;)gN&(#aov z)n0J0jf>l6BF|L4h0&yt$*1b%OgnHnSFiSc;r4}_2DFK_>}OG-!J3|pgD@)nEV4ZC zsrjIh=Yfb=uW@Plsgzzg^3To=&%+<`P~|9V9d66+1pwkOg9*FKL)`YWO^h)7$*AMJ zjAYe$@E{WAm3U%kx#ZWkB}4M9>EwN7Vwhy<-;UxSFar;uykd5KCiHXC0&GUn`qgy; zAuOeVVH6<;Zl*PgSdK05Rz>4=qbF&2Cznjnrw>1CaTkw|3s>+-()-7@w&tI`Rx>6q z7>)op!yTl6vx5N7WJnRioQN41wcBE%D{3V(JOLO5b*f(USAWzw&Bi;M5)z)f3 z`PL9Of$`K^k~WBFMQ_+qNVYn+%^1TikL=W|V)T+V4zZG^Z^K#4%dCxgH0Df)9bxJY zGbTl4r_u{b4Pawdl^)KhwU<1MbP=b68 z_Lt*D64qCR=%IhZ+Of+_6sUDeOW~@gTZbi$;%unj8>@l8^$VCCh{7qF3DY~Mw0zka zFV1&B^s{*2sThHTc#ra(JMl2(vOI&aa4?3*WqD3Un44XJ1uh%6#Zr5ItW>JwcRZZo z2+~!73tqfl+hY;SQ!dAhY;HzRw#};Dn#sAt{Zgf$5^RA5S*#0<8VeDlzXPvFpUH(I z-}T{F4qPJm5V(k6hP5L9`+I|N$neZrWwNV_OWt&aE>tD3aLXhDa6IFpXsD?>dO8vy zY}^Qm8x`M3#~OETHUXnLp^edU32||*iQrt*I0{1Mj>_}Ri#gw&udkNg7ZG_;Mv)=P zq^__Mh_eNrgj_OJ&s;_zq&>gS7x4c_O4+O3HVLjN>mKh1A7&h2+EC|=J8K?h@D(qy z$1*`v=oIfO5D`(=5evz(Eo2+OYsaJCiDA^t=cwt*Cj(lOyq6#Y26+aSN*wi3#24+j z*-gV5k|r#CbIoB>_19@id7a-K8X>|6V`OtM_^VEY_2%zDDFg^G35SMhKrCI6H2fr+ zA#$Asv;2Oj?2FrI_g}A7zvpK_tbYH;ov~VnjMwPrEMT4*3Sefp9(c8c5ouTN1&yvL z1Cs}@^5rQ0MCV;(01VB|!Bpd&34=O}(1yth9ls4|{-%9koy3Q@LuH4)2GKW#Kabb| z)(xuPHnXwQEOVJ(d?$0cM%D{k{1rP}-Dq*Z;!Y3M)B7yArq}#`-Rh)$6ifj^V;kfg zuxmnI>0z{7;N#uezB^Rj|HhxF=rsCGjzX*g;(^xXSyqtt2I0Z@ zchSm1T~VX?$H)i>MVzd-gsjK{agvQqc%I;Wo5ksIP3#qBS<|OM`X9H2hv1@O@WP?o zu&}N!=?ajmKCxkkEPciN@AuM8GixNpt2t@CC?a9@0Xb6&~}rk*Ggp> z-I^z?EFl71X&zBw+L}r zPK9jJTdrUUx3#sE(HEUxKzS>0&KU;Z0)Xe0ABzyKzWSgl{IhYXldp{pKW}8*mX;`O zHx`F)%Od*?GQz=vTi$8WZ{`LkKV|b^{K2vlqS$Vw4|hMZrSz#lc;xoDoQ}F0d?R{X z5dcFyN`_znW@~C+maG%Q1t}h6Bo(xq9|g)ky}s#S){hxH{_O1sMcGAsU?JL`#sG`L z_;(ok0JI*;N) z2S*8hLV_tS#AjZXy<1v{5&WM$Q-q-mBfFQhpAOjcY1@m6_%K5)U0o(ChIvMcE$N}n zQJ1gSv(DYxg?Ib|`Fw~GsC$Vh-b5cl!wfe$-$^v{vWF}A^y!nS_UpX0uh_(~NKB@j zmp5Q|1((9ppGGk=Hy4+bl+=3CFfReTTAV)#w_JiLwot75mk30L6!C<%O0-r2E=25D zalzRZh7p6R^#RO``1?BriUuS8v(pS0r&<`A4F=ny-Lr4)!b~WbYAbs-!bkC1cl%h$ zuk`(ULT$OD#}7QQ5OZF$C&mg&n)eKyh0Y(V`)qBlg(HDLx58*XmEGMR+y9Nb1iL;v zcyi`;0D$|&Qhz59_=TsI$1O~;NLIEfAS3QO`rlS(I!C3m-kv)^-bX<%-MIw_J79{( zQ@4v=AX9)z6tjubY58w!qFWP>!oY zx3pPM+~O7X`e%#rP!Ra(&xaUn?%t&Zz$0usR_303`A%*^(v25fMMXuFcIv(Fv4o_C zRD{%&xroT;9L|yq@RR=31X|{zqHI`J5S&==l`U_k^jTrXBBoW`w>hXL`(No& z&LJ%FYAY4%plxqAA#RP@P*N(-rjlf-l z2n{<*y^7Z<0A^GiL`DF|K6*C!;|Dn4pA&YyuiSW!3$QG7V2Rl4!wGoW;D+T+IcSQD zRBxa|!1y(VbOl1lwCuf~<4;g^w+{R+4gj*O78{mh!z=`@P+2Yaqb;rpM5r3uDb6(m z1B}M~pI{Y90$s4!l(2fFQ43a7D_tfTRH9& z?h(v|rv1FE9t2)q;?plUFKzaClE|2X#~_J7eXHTJ>AwAv6DGE5^}d12K)JcOb-@x%?q zt~C$rF%Noz7Oz^oPcdy}=uK}cNWQ-K$yCt!rjt7&9-l|V6_`?elUh*Oq3JiLR?kdg z+Kfw9Z&+lA3WxD$^KLAEd){JQ-ufX)f%kj84X^o=;_cW27B&o`IGj0XN^~aYLc9fv`5DI5(5oLJ}yZ91#!oufdPn7Dx>w@7}E|=f`j=Vu#!O5r8 zf>|EA;v6WfNd&jVex0spzuu3}AX%NzL%IiJ+a=M|G!pf;Ps?Vrjj&)nzdwJYo5&@W z;Qn`lJJhR55a^Li17yO&c8mAs{rf^*VYDJfJ*~zE%9n~nlF|?pE~f5 z(}-!`D_%yY?f&`IGWGLk_l7ol3r6b6L@44A>v%$TIvH9Hr&KWC=t=^aFYTupD(FJ6 ztuS-u)k>0Q<(=j?K?h%23r7janES(YY+<1S)Vo{TSunsJeOYu121B`~PYb&jZ-Q*2 zZ_sxO*zhDGHQ>u1E+6A-0&fQ&MxapoVK{HG;(F9r=L~u&IPWGkztsu#z~aP{Wq7TK zy_1VGQL8y9?rHk6g=)d2-gM*191GhaIMM{=>aD~q*Rv}qgJx#Isp_0sQBZ`WgjE30|3Q@AY~; z=XG6AS2Wwvh>saOK_W_2nq+@nY90@XCeWQ6nw0sP%WO}?85gb|`4CxnV>UuytYYSB z=BOa$o=cdwr*?trlYKpWiX9ilk#MpaDIcpTzPt2PBKu=K4%OTGZt-kfOidJ{cfdP; zJLTtaH+sPQt%B}`i58Ai=$)dtC&nc@kbrD%k1uEzgsh7jdaOu&CpNtT0!%9hhogGq zkpo`Ksd~RZUV!YyLQnVgs0OR<)0BlO&GOgJlh+IvAFz9xyuw0>L97YGv^$ma+rdU+3E& z_3nG%WVyZhYwDcbG?Nk&Yj~K~Uwqwd#eF_JInp{@eGg7g(JRi5{Dul**W z6H?l7FY)VW#^>XVomPS;xP(IVKMzaG%y|bxgoTi#%nZ_jCnU)1yq2t;!fc~ev#Ka_ zSQj_FGZ)hn0_L6wH1W+#9o@bxki8NFdgW5e^;QBfAVw!-jy>gh6eseC#+D9z1vnQY#*L23zPiIxF)yHMX0Zzu2)I5@mkO z@<%#Hpe3M6J|QgCI(y#HpziMOpy<(&;Ro-XTEkxpPcNwR%m<&Y{WN7vIp4F*XW43H zMZKLjYit~($B#u(wn^=Om?!eBPWko3zrC~Rk1lA6!hJtQdX?SYewObNa1SYxj_x*p zRqvGTqAx>7c6Q8#sM~ir~ETQR>abTdn$!4LVdIhtbl+vm0vxw<;(5`t^Ouf9C zo_>z7szI`>*x=`{_7adDOJ_@3`ZXFLD8QmZ%7b{Sv>Ba-XTlb#{7YfEz8OGj-#BvAWaRNQ<1bmuFfC;KEL zmt?y4oG$+`{cJ~&P{nowuUq-Cq%)Y8$Bwc;p}4-z-AaEo{Gp$TA{#Kqlz$`shIqW8 zTnJdX^-{W%`-DvyK;Me%^45s*vj8Z9s`rM@Pt0}gGg&(tckbGi(lVp9-NfHt7wf~M zfr6gOMWLG%!)x=Ktkc<|j~+XtGAkqyO37Su??4OgZ=Y|?>JV)%-a7+NC5%_LANKHw z(NRv{s8R{mIVnkyLRH{F-s|eF?59S%^+($60=I33ci#44wXUgE>DX0;Rkz zE{pxg&R9cJa~y@7Z2S)J^%^vR#_wm$@wVk{ukBfw>)}6}Osnom1W4NYY5JPW4WjujKA^kw0%` zA3sUwh^kcS>=)!`Hs+x`_jwdi2UVWJ15KB7-W>3nIR>;Cx(b;{|MEUjjKAKIH{5Z% z)^chYP9Qlsxo~~5%lcCQb1XxLrNiO0v`G|0OpkYYZXK$~>fYTIOv}`U0__G5ji4b1 zC6|}c!xqAvtOzF)(AJDRC&nf3Q_-jMgXc%oLlrT-enW1~^%cGHxisur*x_F3&#Ovo zh5YpZ?Gi>VbfN0_?Tza@@yuQKajf=jEhCb3kk>glxP@utu=;rcX4JDb!L8L9hWLh;#rR#@@;ioa48es66~Td%3} zG^TIEwV-Q)#!rBafE`kfdjeIM?95CGf*Sha7!hNq@&0;3cJR~ND$gsUjE6#+bsx%3 zGMY4Q@M*uHho%SxL$gc$^!NA9vJ^mTfKu$asU3N~(fDe>z3O>?P;vsI-(_$3{;=!Z z`JV7n#`x^q^myfJpYAZWu^>%((VuH4O{x*WpoDX#W*-5bRtFmZU6%O$d*`pj7T0z_ z9LL5RWKY<>7OuUMM1`dV#(E?DXG-fG=-As`w{b;pGjW+$dFxHYS;*>5 z%^Lh+TDtOL_IJNpxdkuny+a$b*rzsLw9YPiEPi3f_1K=d&yQNPo?SX87G6?zckg}n zM7cvq zte!`d_kC=x*_NawoQ?}qJL6fyJNR?>-lwh3t?PShqIBJ!yKDHAL`92jB+f~^!!dZS zaQ|8XPN$L1B2u*i)s`5si61{K9UTn@n*x>3i0N6UqzGjM{NN(GI8S}M(kyzI zz>Wp8M-3Y{t;}1147ddBfIYw0n1lL8f%tt0(IC_yPFk?V19c<4&@v46HZAVi^TC0BWiA46C4QJUmzgFYS ze8Hk#{AErxmu7clwW>o2@4KqEvET2iZrRR0dShD1_{mq_ez;q}BjSFau{K9v&jpJJ z4Q0-5(WcS1Pai*KVuyTXDNx;Zi_TD}H&Y%5mOXO2rqu8f?Xk*Hens1tntqmKsG@}7EZN4&ZXC5 zZ>5zs5DNi2)EXd|Ip80Eqt1CujS0dMjS7i?;me5mHbr%_UWPUk%5lAE34OpcfVf_h zZ*yBrk9{k@T-NR^qjML7IXRnR6e&o_GS&X%+0?$@AT!k79l1fo*LAp#so~{TamReo53`Le+*&k5)aCy6d}ZoYi;k^um79QX1Yw7o10T<@b?-UiVh_{ z{0U8|^wrn8nl|aiDhI<#IZBdjNaGkw>N=NwH|!>!!RvRssd*rQnTUjc7C)e;ka%f z>LuT1+}z>-Oa?K~ITs+I}O5MEAU?$9m^wjP8 zOL+zMh9s|+KTb)yX*4)6DJ5iC-POG+M3wEW8Pge>oTWlb8w>&^-EO@ER1MjMU^J6TWjn%Aid%7J0IP&hcu)PIp0%ECfwmtyV z_aj-4G;n*rz2M%>t9oZNAUajs;%tp|f-nNC@;KS~u_*f6GbVN`!v(hN*wL_Iw1UpF zwnFXm*s-?l>zpC!>a4lU`uJqGadE~w_Ju3@t`@?rOKn;G!?wPvrs_N_3c9LFF{J<`~(0ku<|HG0qiuuk18ZLgkx!Q9Y9gxu?TnseNr6=KzApvS$Z2a7o0?zRwG<%~SL-2gwXwjKKk#KD zf<70}0Rva`C0WC=F835Mr&1k8FJz-$+h5CX@Nw0BQO2D^$3Zj(pasQ;*ta%92!v1x zHiDXK5D`?1;7x4M9PHX26CDZU{QKigD!kI7wJIJ={?nZgJa+Dxj{Zw7yd-6daw~Ex zQV^PMO$-80h!1Vfo9X`fJq=3*6@j2byEHffe6&khwJx1+T;#3IckSBc)LyXHq->+i z;Jdo7#~(xbBm$o0Zj&*MD_1snl1&7Ow^vEwJ^^|Z+rvkX6aZ5Ts?KPmEwy?+99VN7 zx_fAlq-51*i|MU-KK#?=pTDipcceth==nWcBd7>0Ex?s4!2y2O;_N)4bN_FoRH%CQ z7B{KVvz1I_grBz<(PDCBfh4X+Oem)78N#To!9Nf=Ec9P?Pv^2It(CqKZEZC8%yR#J z8G=0ronu_=0L#eXB1q+sb_$jWV|0qcTY;((+x?uV0|8&@3dGi?RGJww5J>@JCkT<~ z1WfyM<|pahm&MpEMcB(z)_kEg{qExx|;)~|yI`B5E_U(J_nz&uvuhVkVCU*1? z5JjwGb!Yv^1hHvTercdobii|h<2mYU<|cRQVQ1RLL0_;WI9Zt)@1mpo|UUe(V^LtYC;ngdV6seIP2`Jtk5hvrLdk}1tmvyl=uM{ zD0)MWj$GrrZS%f;638*2A5!<-p4%mkgNXv#DnQ$62b;wxQWHir`ZE8E@8MF3AS*J) zAAZKpVtPuA@Uy6cYLxL(HI(&z3A)BH@aILw8_Rr`u}rz`ZG{J4NZe?Wqb{BOv^F>< zL2_O8-+xChrCU|w!-GkiWf;h*C}TsSREaB+UZqR`m~TooQjVu@<)ZlX*Kv_Wjxyz@ zRAbr-JUK0*`^hV-C0F7nKFCirt+|%5&SP>Aw3BpT7Tnu{%A=0u^%L9(CNR;?U9Hh1rU_OB6M~PAm?|^1abY$^^h- zYkSaFJcU_I&odvnGceA7k+&xiy+?Rt+#2=)8x?IE=&@l@i#xCjb~U4&P2?;sZh5(S zju+kn{eT=@G9SnuG`##S#w8Th*GA&z_`LPFc`SfKP&^NCFi=2nCK?nwJPds4+lrphaIw;+T`Gm(f$QD0|yhwRy&9UeEz57!ka;j=xCqeJCBZg@k_dl z6<$XDg&dcef-YBR+^)AU00|I(Ow_z6WM%#s;E}E&XHDE5=s7Tc3PmgBlG?hx=JSI% zoC^R?(^0|G9Au>o4FJ;Yemg1w_lAah1KCX{UvU~O5QIoHlf)d@6}jk9d?VeJlF+TK zXgwex$ae@$rE49vEAU;JsMU}T@Z#@rX+Hb;uj2NHu1xo<85D|+&L&jd&LL+O``h*X zRr51PAlT4EF2=>$$|@AyNC_N3z)o+?xzt;NNtdD4-ZChpgj{%yCzN?g2eaeiRq4@6 z2iI1NF@yGT0FTR%S4Q;n)T|&U>%T7r<3=LsJpA8FPp_v&HxHujvaXEPT#lU|!ejY0 zV83{ftD={n!I^ULB5rS6eqO-;U;z|4=~1R;%Ezz;$UTvG01*jX|Ba?hR_C$8zmam2 zn~e^2)ikb3$q1)6)RJYgDbyjxBzupikeNk1--(a`ENb_P~m$@0QC?Z zh0j6`kBVb&$vZDe9|vWbjDjdetxHY{@Wsx3H;`!uPpk{369q}Us}2&qVOaz^jgVA3 z-=12`rL3r0{pUCVb|dTc=nUL>(;@{`L zPBn}<@4&Xn^zJ91;f{_0gtFSDRBCp*SL)BAk z=jlQwyht(O5X>d)`*XKj-?Gx9>S2TWAjqjk*3I7}+dN(o#fN3G2gn~_YW3l%VPgfY zc7+;JfY=y_eIVM<>+Ec8PJj=vUNqtR@4U(r+H&lqu)gta>M%UYAE4kia=b_l>k>In zEfL&CnEqh{v`SE6%44#YK%GKwpBNw~CQPel27 zi2ON555Oqk#rtO_4&Ko`Ykq-geb4;3rS}c9)QJN%2>Xkj<*`o@V zKrGoUzxmU^qn7EToA(7=WU`EYrb@J+mC->-oT22 zeGi|LMZ-JMU@%X}X}Ad{PkNn=0Xp$RHb87)qZ)Jrq!yiEivYr1OMm||aJnHr7@S6(xaZCVbYJ47ClqiX0d?}j&QrNDUDWi7W#L@ z+v)uot8Hv-6l*_H38mtSvifj*6KoP9mgvOC1Lrmn+z6oV%WX_)!dGDloSr2sf^!-a z3e^FZZ*L!(?4Kk{YnrHS*~=?lsU2iKo0`3#31)HBtq_oKcSwkns_*POfJ{>fq6=Ia~Qjg&Yp%ydAd zPaKF3BzqKM0rnKT#Rw`237S3tQiI8EJ;+`34=c(12uSP@=|?8VBc#>?mYwlXP8}k; z80dS;E{w}EGEk&CKw9aLA_DY=>+A?(r(}C+K`T!T8_??wth{OT>e({}G>5p+CnQD^ zsFVf*gymg1vnCIUEbZIIYeo5&CRvkPKzbZ^AAgnrVHae^UuWzO98k>Lk@3=KH!UR@ zVolJ6YLmb75NeVH*LUU0VyF4qiI)r@1aY^+8MSUMX20;@_f+^DOI}5#N>pt5pi=bO zph`@)Il@6@#nPi3x1l$Pw@hoCK+GD+^;UkFPLPts5+sv30~^!|J~5AuW4yLqYY5fU%V}d5ql*tK!1&6eOgwcy(FT*=%LUPT%2aSW)N=&dg*2vMa z=+SFDz)L_nhI8kt>26T|oXh_hbxQ=;p2wr|hW&{Aw-v^s1`_BYXLb%)Gf{1y= zKV4lOzFah#`o!!U_6HX!IaU1rd{y1x)$q^bbD}&XQsA=y74m!aLJ+b2v0d=76y#di zkl7U#QUsNB z85Yd2+rR(ichNXl>1RHOjxSq{UWz08ym~G8&NxiVXm;x2{$H~9Hy}azbU{Fqmc{=)OZ&L{BYPCZ0{Xg3MWiUReQl0mLo%2>B9< zv`cr12wJ%jG+SML578ln7zi^$hz4wyn(xCyL*~9`QfRn0);o97v4eF!Hv}VICSnw5 z$|a%S2}YA*p)NH$6lP2zFEpF5*9fH=_O0ftFEgd;&yTJ9Ke(XDumYV_G?pXNWbBYP z!0co}g_&emF&kf`(rC|ifqdRZWJjY(;6m!is%3*z&z>rM#ziX)xRXXu{uR1Gsf^^4 z^yz)VL<~ks3hSur5hN4PBRfey{CH2Pk313Z_%oguyv@lb#S_Opjzchw+7&u6A+;&= z8+U=3iHul6!QcR=u-gjM*b!8_q+jP25q*=Skl02}a=|t>Z$`g0rLH9lULDHnL8D*Z z%hFP~(F*x@FY-Qp|@o|`XhDS~4NfLttu1N`e+m?jIp)xe?NLOFP2|AB{Yf!7S1m+#xRFRW)2Go3&f zI^5e5h}u3^er)t1AB35UyJPX|a&mL~P`G)DDjmCsF0$uwB9ULB1H&i|Pw@zJV zMV5CS37^%C;y&cHh-k+)d!r z!#(yVPTVKP>?gx?^|v_GIdG7ofZxX#(hSNxQ1Y1LbCU3|>|J@UwiBA0k0N=-qV-2U#x(MF2TnPFih%TF zInG8-S#j+RMe0t!?~lLWE+oe@YQu2m$3S`}N9#%xpmtt=-IL5e^JyLx-05%L!B_uz z+qef`2b<1b-Q$h;$xXqS)6LC|0CEJ34b8cf57eE^o1BHLZ_lxAc}WCpnP>z){nLrX z>55nr9(Et|YAW?MpuKP?M$m#JIWL248F~ScZ0B3e{ z(V*~?$^}HCXTJHPkEa9J;sskxaXf1mEJ7c!cR1xUmHMup#%T~5A?A0{(J%zswl0kt z(|9~5g$%Wst=s|0C$KGnz=c{NQA17w$0{H_B{}YC7o1W(F{dDLP(V+|cqRG@08~O6MMMS&hrOgkn|!RXxj8&V2of-6`6=Jc7Yc5*z3L25C@e@+4)1~UrL~oz0{IVuqz=Yd1Z zLI}A@^Sm{!BESA~P6`AHIJl{?aj0n`nJ>wH9RkOB;z}N}AglMFUCQiKLI`rTjbA`- zgM4+shuBH#QN2gH@b03hexnC{qJ18tB#W>L7R%jg29-jEAf-e*+O~?C!zipWyqrRcX>wi$mVL7Pei#1HW&AwOKlTM%z8jhYf0Gn3TD z05NNGX!GHCsA>{X55|2c_;SR;l0i@@9=bx9AjIK)``$hG-8_7V-JX(0#l-Khf%T;1 z0|oEG22S}J_GCf92q9xRXb6EtKsFx}B_SaJSYP(tn{FZQdmO2x{TQ3z4NLJ%8dI5z5RZXr;8s z%L#?-b~vA&B6s~859NGBpnV1RUve)oR;13hPA$Nkxghixl)arOsW8NEr>B$;>H=AU zOPvSFV^>;rx7-l>qNdl#%2Z;(i1w?domWCNDBE%uC<|%`L^aYjR>iHPYS|-@K^C5M zfm?`=gU(@EuPH@EQMaC_$4FRY);DHL!vGWCGV%fopP*np5B?^i;-{7-u$N=X-CT>E zUqV!#6}?ZtLTWKZp4K_^&s?7nx0XGxjIhn1k<#Q@gkF)6>;z2i_e_O_GwJu>>`}BI zkR?F8!4`>E@3*Ykzvvu`2YKU|hLi;=zMGJC;#<|g?MJM5K~nP|FDmy4Xo|oSE*xW; zl;SDPX!B9`v)q-H`U)1~_+#`M6EMZA_nZBzh{iv=Z1^JM#5E5(0i%HOw)2V8C}&5; zG3eRc*LAi){jj6MwI-a)`9&duvrU(_(2kvl9sIMOGZa<_r93q;?Qnr>4fM!_QMp)i z1L*IFpt=ko=hq3bdmT;Ud@pwh+QSX35Nob z`t6<;CW^SYxY^y<=zcTK(9JSua(ZS_HHS`FB%nhjel3OT<5fef9RVpP9e^v&XUP>) z?hY8b*)EAf%G0VhN-c#W=r5zU6`&4(=VFR5`MTI_xpnJ0;O!5cpDYCO#Gbxd zz8t2e6jdv%NXDpw{<&!DS16{zoqL8c=>3~A?6;YBt#k^vD1RA|7oEKF?R?(7SK0ha zR+7~dD_MEVmb2BJs;;bv=k0^-OI^3_QIC%?ZG1Nj1iEfwOExb|m>#~uuB-@-ZnC|2 zmx#M+Zs~eZ%$O#7u2aJePoDe>%q=>g!@bxg=BLikN`MIlm5KCg5V*KNiH~uCd5#qt z7ZgKaba${TDR=f89ova%IGNtNArXvb)++R?frBQ{6Q$UiuWw?6Xgv!kHsDJzPLS|4 zh_fmfR`fM^@$#j1j%~3l&Ywq~R;avgGTxk%RD@kR?m95&*ML-qAL6}zu~8KPa(3@~ z$efVzMsT6u9vz_X&b2C5^Rs;KcJLrGr$L-9KvEbW(_I)76E3hgiJ*7Nvs*DXqh-zm zB00_mfOevWy}^%d-=G;YHv3*|a4#a$B)XiaFC#miyv%3C84CZ_`)cI4e5|bUfx>dl zwQKLan#1ZLSaLOIW1nkL0@VJYHrjX{9=0ZS7DfNY#|GRuz(1JQwzlnNxDCq18qBde zWvXF6k(n;No*)4oFY`5*sA^O4nq)}@?izACe(bsVtG@8bnNuq3kD;J0D4TluattIB z*&E!8nl2!Bv!|v+|#Fa|bd8 z4L>z7Jjkf4$QP}GW!{j)32vFCk_US}OXkeSq{6-1A_Nc-)sY^rcefs3Gn13P_NPCb zoO@Za#cde|7Lk%QtPVS{5E%=9zWDXWtgLBwYUPMUM%Kh`Yc4EazOT`8|Gi}>D>DuP zvAu~vQDCo}nQBL;i1~u_1*bO8#GS3SH&FvLW&HU)Q4};cQ+Nz>48i>xK+P(uW0IKMaE4DjqH(4&z?Oq0+p#c&SpKZ!w3$q9SQMNMtCKQabg*aY-3L1 zv7k6b(3CkTjN47o)*^}hZc6g3m>CcO@J=7{Q$|ev3}Bbx82Fj)pyI}pbw9Q{cwtU( z3iAx@VXtn0K7i7=`jnu#$H-y%T67jTE2D+clcycY3wEk?FCmAIk5D>N~$o)#F>sKhJdwhF!N>l>C?+`RDO zncLx_W<%ZJ`2a{^F2B7zJI84^&t+>+1|W+8e@^jf-&uUFg=-RH-R#sFk7N7iX<-k% z$BYYSma)mv>lQ1CKGpzwBftW=HgWQqJ@_j;@<-L{3_P=rK7=x*GefuO4C>@xxYNiZ z#dRB#$=7@W*A7KE==L#9H$8X-fn|1**HaA9DZu_jAl>=HNbskZ3Qy(sjE@!z5=$24 z%ro;>p+kn)DFir4j?q+W;?ki$=z3_yR(Rmcmp~+h4eRsOr9XO+t}jV)*mQkS5s|*n zSG~`baeHai25!tv?|!H8;H-s>4RE>6$n%Kc84+xi()HyeKm#(!&=rFYNJN*dq+Yqw zn57wT1WEhIZlJNy?f`^S!z`SF|FR=zxr4{EWQ5zBG71fh)w@wD<_; z4qcub=|!7#J5M~_bz<0C{bBdylW_#tgsjB~5ik$tfBeDg+Uf2y(4Vr)5Vcx0KBvvMvpn<~oPtiT3tCT@t10u(Na>ZlzUukm>ajLJw{=<`Pt9&w z2yFd4@E=2&Op){P{P#fVLF^LWSX`mr1cAv@buC$Im8&4-Mj}ARp3$iRP^SI9=BAF3 z9{7zL3PW8-gHKxbM*xh=6KBjxCM~1KNC2Qf>$-l|_?p-~gFZOI|8s>sx2x~Lqazig zzTB8^kfHS zo{;FT?45JpJ9e!+D`H1t<1s0fK>YNHpF?Z2G_i||m6?R0Bp&KLI#Y57DPM~6PO(+d zPkN2Cp=}Fx2b%Y_%wgF|)4v{7Cm@CMwY=>=bPr@@*SrCb7X}$DTJB$?q&5OspJTJqGhQN`tib;OjhILR_>90`;!s>4Gcn^7Y&X|9 zpA~TE@_~+XKNm!A9ocFggSZI$fd$Y{?o;LBC_iAY$}1=+eDv--ztY^)SC+kC8yC61N@tQC#h!J4wKx>+wR<3RYin|-X-SAvs*qr= z_7YV^jZVY+yNVxgyjCUVQV0(7hCF?W0X#kSDJ@^ zO5l}2x?@b^dojIeUQz!yTY@_;whX|zkc9jgHiui`Ar%>38U0DNPWBo`F6}dZN2Afq zYVjlQ{NYrQrL8S$erPu0kG(8()On2`s7qB`yVNL!uWS_7@k?oxSp1vcdX=QV7T-$7 zz5xzW&xE%N3M%p~e(K1P+bGFdNiDwPKfuW1J1#SS8J8<&$4#J8%_Z5TyVE9_(e zJK?i_bGG-O3Xiop_%MY3iusZ*c4zOhZ52O^ns1gqJkg-id&IHLKIzz zr)R!gkAkNm4k$mL{n3O|$-1Nu*epkpK2FWHLZZ$+{R}%P^&vThp~9{1otmW&te%<8 zTxx8{DJZIoqY?`&yD;6brz&7Q;?nF$!FwH&woCc8L+7z>_Gd^daLq{YScy(~z(!fr zqOrU1zt;BQ(`UUQ07GhELsfHMdWQt_CHK|wH+1ZV;aBwa>i9RqjIOjL#j`$HO3lMb{BVxH~P~|04mSndO zpfHKWHdb#9zJ@vu9>X1j#+(#LSkiXx+?gTDKlg>G!C|cWu8eQE2ZZ0F_p8&D$k38| zFg05%qiOFi_Y7eyYS71e0;l=_0WdsxFz?PINvmL;r*u!a3}TZp1hf{@Q^>(9FnR#a zcaxmJ;5y&QsT1CF`uh!B!Ehx~Xk_F!GzvhR=fHF-K7gTWUlwdmkPzuvC@?iGo4Gl4 z3hgJrGV4jj4wT3Q}zwg{h`yH)>Au2UMD)Ok;09_Xg-%#R56L{O- zdUgIZ;8lcK4{l@vfpUzj64RFpKR3K3yrpO9%my^sNqY((W^c$B=n|oG>^-+pXA&b3 zY6$qBS89eMMbP{Ae3^H+0BRY5FQ1$>h+^FM;(aMKH4312CfT-Gli)&!gX8Uv%dQD9 z6X69QHQ~}p6b8@Uo$}(A~tb7&rbDX1je!R7(r=#&1 zq*FdaoR!QkmkIteURbn(c8Vd&Uko*NBqlyD{^}q~zr&hd3N}5TlMcJaH8>8sI%hjP zW=?ZGJN&K~_!pqzP|zs)`AhL^-=_y|{?_J1M;%M?X~@*g{9Sid-qg)JGXGTVG1{Jp z5`+`NNK%7F-K=@csN~6AQH{Tp6^UjjrgrETcxkQpP}IF$d%K5&I8JU^Y%)Ff?byHa7mi!rFEl z*fSuad0&n?J$zIwlk@uZYt)*Lb~%Z}G2+M76awEtq#d4AVeQ&iy|K|kQAljet<9US zu6tFSMV~3I6_G<#w`aC{s`I(&rKi0{c{v^uuz&HY3eLuM>n0x>jHvqBhrihuZ2aXn zrZk`K{OC@zg%`-n*-@1nd{4=I+s^$ri@Sdg%RYdNhgxw#3RGJK{%mYlez|k+=mLGC z(mqGu^NsoBWQTzeAf0x*4-eOA1}K?cX&`u3z*g*Ev0>P0EwYEcalh=BfyvLQFRW3g z`4=#m=9X%jqJ^00a8R`@O7eby$&EpOD+@acI05IS(U(KJ!!BUuV6X=0JW^!OU?^k# z{T_iCV^4q`>M;&F7Kl1TG>qY&R}P>/OCGs[7 0 R 53 0 R 98 0 R 143 0 R 188 0 R 224 0 R 257 0 R 284 0 R 312 0 R 341 0 R]>>/Pages 3 0 R/Type/Catalog>> endobj 2 0 obj <>stream + + + + + application/pdf + + + Psycho_Julia_Logo + + + 2019-01-24T11:04:51+08:00 + 2019-01-24T11:04:51+08:00 + 2018-08-29T17:40:22+02:00 + Adobe Illustrator CC 2015 (Windows) + + + + 224 + 256 + JPEG + /9j/4AAQSkZJRgABAgEASABIAAD/7QAsUGhvdG9zaG9wIDMuMAA4QklNA+0AAAAAABAASAAAAAEA AQBIAAAAAQAB/+4ADkFkb2JlAGTAAAAAAf/bAIQABgQEBAUEBgUFBgkGBQYJCwgGBggLDAoKCwoK DBAMDAwMDAwQDA4PEA8ODBMTFBQTExwbGxscHx8fHx8fHx8fHwEHBwcNDA0YEBAYGhURFRofHx8f Hx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8f/8AAEQgBAADgAwER AAIRAQMRAf/EAaIAAAAHAQEBAQEAAAAAAAAAAAQFAwIGAQAHCAkKCwEAAgIDAQEBAQEAAAAAAAAA AQACAwQFBgcICQoLEAACAQMDAgQCBgcDBAIGAnMBAgMRBAAFIRIxQVEGE2EicYEUMpGhBxWxQiPB UtHhMxZi8CRygvElQzRTkqKyY3PCNUQnk6OzNhdUZHTD0uIIJoMJChgZhJRFRqS0VtNVKBry4/PE 1OT0ZXWFlaW1xdXl9WZ2hpamtsbW5vY3R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo+Ck5SVlpeYmZ qbnJ2en5KjpKWmp6ipqqusra6voRAAICAQIDBQUEBQYECAMDbQEAAhEDBCESMUEFURNhIgZxgZEy obHwFMHR4SNCFVJicvEzJDRDghaSUyWiY7LCB3PSNeJEgxdUkwgJChgZJjZFGidkdFU38qOzwygp 0+PzhJSktMTU5PRldYWVpbXF1eX1RlZmdoaWprbG1ub2R1dnd4eXp7fH1+f3OEhYaHiImKi4yNjo +DlJWWl5iZmpucnZ6fkqOkpaanqKmqq6ytrq+v/aAAwDAQACEQMRAD8A9U4q7FXYq7FXYq7FXYq7 FXYq7FXYq7FWNeZPPui6NyhDfW74bfV4iKKf8ttwvy6+2U5Mwj73Va3tfFg2+qfcP0vLte8363rU tbmYxwKeUdtFVY1I6HxY+5zDnlMubyOr7Sy5z6jQ7hyTry3+Zup2HG31MG+tRQCQn98o/wBY/b/2 X35Zj1BHPdz9D27kx+nJ64/b+34/N6bpGu6Vq9v69hcLKo+2nR0PgyncZmRmJcnrNNq8eaNwNo/J OQ7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FUs1vzHpGiw+pfzhGIqkK/F I/8Aqr/E7ZCeQR5uJqtbiwC5n4dXmHmT8x9X1Tnb2dbGyNQVQ/vXH+U46fJfxzDyZyeWzyWu7by5 fTD0Q+35sRyh0rsVdiqtZ315ZXC3FpM8E6fZkQkH5fLCCRybMWWWOXFE0Xovlv8ANRH4W2uJwbYC 9jHwn3kQdPmv3Zl49R/Oen0PtAD6c3+mH6R+r5PQba5t7mFJ7eRZoXFUkQhlI9iMyQbekhOMxcTY VMLN2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KqN7fWdlbtcXcyQQJ9qRyAPl8/bASBz a8uWOOPFI0HnXmT81Hblb6EnBdwb2UfEf+MaHp82+7MXJqP5rzGu9oCfTh/0x/QP1/J59c3NxczP PcSNNM5q8jksxPuTmKTbzc5ymbkbKngYJbq2v6bpaf6RJWUj4YE3c/R2+nL8Wnlk5OZpdDkzH0jb v6MH1bzhqt89IXNpADVUiJDbdOTihObTFo4R57l6XS9lYsY3HFLz/UmejefJE4w6ovNeguUHxD/W UdfoyjNoOsPk4Wr7FB3xbeX6mY211bXUImt5FliboymozWygYmi8/kxSgakKKtkWtM9E8x6vos3q WE5RSayQt8Ub/wCsv8euThkMeTl6XW5cBuB+HR6f5b/MfSNU4QXlLG9OwVz+6c/5Lnp8m/HMzHnB 57PW6LtvFl9MvRL7Pmy7L3dOxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuxV2KuJCgsxoBuSegGKksL8 yfmbplhyt9MAvroVBkB/cqf9Yfb/ANjt75j5NQBy3dDru3ceP04/XL7P2/D5vMdX13VdXuPXv7hp mH2E6IgPZVGwzElMy5vKanV5M0rmbQOQcZD3l9aWUJmupVijHdu/sB1J+WThAyNANuLDPJLhiLLC 9Z89XE3KHTVMEXQzt/eH5Dov6/lmzw6EDeW70Wk7FjHfJue7p+1iru8jl3Yu7GrMxqSfcnM8CneA ACgtwpdiqL0/U77T5vVtJTG37QG6t7Mp2OV5MUZiiGjPp4ZRUxbNtG872V1xhvgLWc7ep/upj8z9 n6fvzWZtDKO8dw85q+x5w3h6o/b+1kwIIBBqDuCMwXTEN4EMl8t+fda0XjCW+t2I2+ryk1Uf5Dbl fl09sux5jH3O10Xa+XBt9UO4/oepeX/N2i64n+iS8LgCr2slFkHjQftD3GZkMolyev0faOLUD0n1 dx5pzljnOxV2KuxV2KuxV2KuxV2KuxV2KuxVIPMXnXRdDVkmk9e8p8NrEQW/2R6L9OVTyiLrtb2p i0+xNy7h+NnlvmLztrWtlo5ZPq9kelpESFI/yz1f6dvbMOeUyeQ1vamXUbE1HuH6e9IMqdatd0RC 7sFRRVmY0AHuThAtIBJoMV1nz1bQcodNUTy9DM392Pl3b9WZ+HQk7y2d5pOxpS3yekd3X9jC72/v L2YzXUrSyHu3QDwA6D6M2cMcYigHosOCGMVEUEPk212KuxV2KuxV2Kpto/mXU9LIWN/Vt+8D7r/s e6/RmPm00Z8+bg6vs/Hm3IqXeGd6N5n0zVAERvRuT1gk2P8AsT0bNVm00oe55jV9nZMO53j3hN8x nAbjkkjkWSNikiEFHUkEEdCCMKYyINjmzvy3+aN7a8LfWFN1AKAXK/3yj/K7P+v55kY9QRzeh0Pb 84enL6h39f2vSdM1XTtTthc2M6zxHqVO4PgwO4PzzLjIHk9Vg1EMseKBsIvJNzsVdirsVdirsVdi rsVQOr65pekW/r386wr+wvV2Pgqjc5GUxHm4+p1WPDHimaeZeZPzO1O+5W+lg2NqdvVr+/YfMfY/ 2O/vmHk1BPLZ5TW9u5Mnpx+iP2/s/G7CmZmYsxJYmpJ3JJyh0JNuwISTWfNmm6byjU/WLobeih2B /wApu368ysOklPfkHZaTszJm3+mPef0MF1bzBqWqOfrEnGGtVgTZB9Hf6c2uLTxx8ub02l0OPCPS N+/qlmXuY7FXYq7FXYq7FXYq7FXYq2CQajYjocVZLo3na+tOMV7W6txtzJ/eqPmftfT9+YObRRlv HYun1fY8Mm8PTL7P2M307VbDUYfVtJRIB9pejL/rKdxmryYpQNEPNZ9NPEamKReVtCK07VNQ025F zYzvBMP2lOxHgw6MPY5KMiOTdgzzxS4oGi9I8t/mlaXHC31lBbTHYXSVMTH/AChuU/EfLMvHqAeb 1Oi7fjL05fSe/p+xnkUsUsayxOskbiqOpDKQe4IzJt6KMgRY3C7FLsVdirsVU7i4t7aF57iRYoYx V5HIVQPcnATTGc4xFyNB5/5k/NSJOVvoaeo3Q3kg+Ef6iHr82+7MbJqP5rzWt9oAPTh3/pH9AedX t9eX1w1zeTPPO/2pHNT8vYe2YpJPN5jLllklxSNlQyLWgdU1nTtMi53UoViKpEN3b5LluLDKZ2Dk 6bSZMxqI+PRg2s+c9QvuUVvW1tjtRT8bD/Kb+Aza4dHGG53L0uk7Jx4t5eqX2MfzMds1irsVdirs VdirsVdirsVdirsVdirsVVba5uLaZZreRopV6OpocjKIkKLDJjjMVIWGY6N58VuMOqLxPQXKDb/Z KP4fdmuzaDrD5PP6vsUjfF8v1Fl0M8M8Sywuskbbq6kEH6RmulEg0XQTgYmiKKpkWKcaB5r1nQ5A bOasBNXtpPijb6Ox9xlkMhjyc7R9oZdOfSdu7o9R8t+f9G1njDI31O+NB6EpHFj/AMVvsG+WxzMx 5hL3vXaHtjFn2Ppn3H9BZPlztnYqxLzJ+Y2kaXygtCL69G3FD+7U/wCU4r9w/DKMmcDlu6XW9tYs O0fXP7Pm8v1zzJrGtTepfTlkBrHAvwxJ/qr/ABO+Yc8hlzeS1Wuy5zcz8OiWZBxFK5ure1haa4kW KJersaDJRiZGgzx45TNRFlhus+fHblDpa8V6G5cb/wCxU9PpzZYdB1n8nodJ2KBvl+X62JTTTTSN LM7SSMas7Ekn6TmxEQBQd9CAiKAoKeFk7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FUdpms6h psvO0lKg7vGd0b5rlWXDGY3DjajSY8wqY/WzvQ/NtrqMbCaM28sYHqMamL4jxHx9Fqdhy/HNVm0c objcPNavsjJj3j6o/an2YjqW8Css8t/mLrGlcILom+shtwc/vFH+Q5/Ufwy/HnMee4dzoe2suHaX rh9vzeoaH5l0fW4fUsZw0gFZIG+GVPmv8RtmZDIJcnrtJrsWcXA793V4HmsfOGiQASTQDck4Usa1 rzvZWnKKxAup+nP/AHWp+Y+19H35m4dFKW8tg7jSdjznvP0x+39jCNR1S+1Cb1buUyH9leir7KvQ ZtMeKMBQD0mDTQxCoCkJlje7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq+tPzrsrK y/KLW4LO3jtoF+q8YoUWNB/pkPRVAGYeI+oOVk+l8zaN5r1LTeMZb6xaj/dLnoP8luo/Vks2ljPf kXSavszHm3+mXf8ArZ1pHmHTdUX9xJxmp8UD7OPkO4+WarNp5Y+fJ5jVaHJhPqG3f0TPKHDZj+VP /KTv/wAw0n/EkzI0/wBTvPZ//GP80/oYdmO6NKPNf/KPXv8Aqr/xMZk6T+8Dn9mf4xH8dHl2b17V 9O6n+Xmi63+T9h+iNFsYNc1Cx0x4ruO2iWUPK0DSMZVUP9ktzavStcxRMiW7kmAMUdZt+U35U2UF jdXECaqVVppjGZryRj+2wRWaNOvEbD6cHqmn0xfO/n/VbLW/O2ralprGa1vbgvbtxZWYMAB8LANX MmAoOPI2Xs3k38qfKHkzy1/ijz4sc12qLI9tOOcMBb7MYi39WU7VqDv08colkMjQbowAFlav/OR3 kpZzZjy7MNKJoXAgrx6V9D7P2f8ALx8E96+KO5E+efyr8o+c/LH+KPJUUcV68bTwpbL6cVyF+1G0 QA4y7EbAHls3sxyGJorKAIsPnAgg0PXMlx30x+XXk3y3rP5OW1wNDsZ9XuLO8jiuZLaFpjMsk0aN 6pXlWqihrtmLOREubkwiDFLtN8qfll+Vuk2155w9PUfMVwnqC3KCcg91ghb4QF6eo/U9COmEylM7 ckCMY8020f8APr8sdUlXTbuzl063kbijXcERt9xQc/TaTjXoarQeOA4pBIyxKX/mx+SGj32lza95 Tt0tr6FDPNZQf3NxHTkTEo+FXpuAuzeFcOPKeRRPH1D5xzJcd7F+TX5LReY4E8weYQw0csRZ2ako 1wVNGZ2G6x1FNtz7DrTky1sG7Hjvcs91T84Pyr8l3T6To9h60tufTm/RsMSxKR1UykpzPjSvzrlY xyluWZyRCM0bzL+VP5pxy6fNYodR4FjbXcSx3QH7TwzITWlf2Wr4jAYygkGMniH5sfljceSNWj9F 2udGvamyuHpzUr9qKSm3Ja9e4+nL8c+INE4cKQ+QorabzvoEF1AlzbT6hbQzQSqHR1klVCGVgQR8 XQ5KfIojzD6G89/k3oeu+YPLsGn6fb6XpcP1qXV5LKCOBnQej6aco1A5FqgV6DkRmNDIQC3yxgkL 9Z8//lH5X0u98u6bcW9vN9Xlt/SsoXkUOUKgSSxqwLcjvVia9cRCR3UyiNnnP5U+avyj0vyu1t5s srW41Q3MjiSewF03pFVCj1DG+1Qdq5bkjInZrhKIG737zjqHlzTvLl3eeZIo5tFi9P61FLD9YQ8p VWOsRDcv3hXtt1zHiCTs5EiK3eOeb/O35E3flfVLbR9Oso9UmtpEspI9MWJllK0UrJ6S8TXvXLox ne7TKUaeI6J/x2bD/mIi/wCJjJ5/ol7i6/Wf3M/6p+561nPPCMx/Kn/lJ3/5hpP+JJmRp/qd57P/ AOMf5p/Qw7Md0aUebP8AlHrz/VX/AImuZOk/vA5/Zn+MR/HR5dm9e1fZvlfUU0z8q9J1KQVjstCt 7lwTSois1c7/AOxzCkLl8XMBqL491bVL7VtTudSv5TNeXcjSzSHuzGu3gB0A7DMwCnEJtmX5IaDD rH5jaak6h4LLneyIRUEwisf/ACUK5DKaiyxiy9H/AOci7XzfrF/pekaTpV9e6dbxG6nktbaaaJp5 GKKrMisOSInT/KyvDQ3LZlsvGv8AlX/n3/qW9V/6Qrj/AJoy7jHe1cJ7nvX/ADjlZ+ZtN0fV9M1n T7ywhininsxeQyQhjKrLII/UC1p6ak08ffMfMQTs34r6vEfzU0mLSvzD12yiXhELkzIlKALcKJgA PAeptl+M3ENExRfR/wCRH/kqdD/6Ov8AqMmzGy/UXJx/S+Y/PHma58zeadQ1idyyzysLdTWiQIeM SD5KB9O+ZUY0KcaRspDkmL6g/wCccfM1xqnk+40u5kMkujzCOFm3pbyryjX/AGLK4HtTMXNGi5OI 2Hh/nnyytr+Z+o6DbD00m1BUt17Kt0yugFabASjL4y9NtMh6qfQ35s6sPJ/5XzW+lVt24Q6ZYldi isOJNR3ESNQ+OY2McUm+ZqL5JzMcVG6Nq97o+rWmqWMhju7OVZYmHip6H2I2I8MBFhINPqn82rG0 8y/lPeXqp9i2i1S0Y7lOCiQ/fEzL9OYmM1JyZi4vmj8v/wDlPfLf/bVsv+ohMyp8i48eYfTX54+Z brQPy+u5LOQxXV/IljFKDRl9UMzlT4+mjU8OuYuKNycjIaD5GzMcV2Kvrr89/wDyVOuf9Gv/AFGQ 5h4vqDl5PpfIuZjiI3RP+OzYf8xMP/ExlWf6Je4uPrP7mf8AVl9z1vOeeDZj+VP/ACk7/wDMNJ/x JMyNP9TvPZ//ABj/ADT+hh2Y7o0o82f8o9ef6q/8TXMnSf3gc/sz/GI/jo8uzevavrr/AMoN/wCC t/3bsw/4/i5f8PwfIuZjiPWf+caZ4ovzAuUf7U+mzRx/6wlhf/iKHKc3Jtw83of5tfnD5i8k+Y4N Ns9Ptbi1uLVLhJpvU5ci7oy/Cyjbh+OV48YkGyeQgsJ/6Gf82f8AVpsP+S3/ADXk/ADDxi7/AKGf 82f9Wmw/5Lf814+AF8YvMvN/me880eYrzXbyNIrm8KF44q8F9ONYlAqSfsoMtjGhTVI2bfUP5Ef+ Sp0P/o6/6jJsxcv1Fysf0vkdlZWKsCrKaMp2II7HMxxFuKvoP/nFm0lWy8xXZB9KaS1iU9uUSys2 /wApRmPn6N+Hqw3ztqlv/wBDB/XiR6Ntq2niQ1/5ZhAj9feM5OI9DGR9b1H/AJyUtJZ/y9hlQEra 6hBNKQK0Uxyxb/7KQZVh+pszcny7mU4zsVfXetg6R+R09vc7SQeX1tHB2/eNaiD3/abMMbz+Llna PwfMf5f/APKe+W/+2rZf9RCZlT5Fxo8w98/5yc/5QKw/7asX/UPcZj4Obfm5PmTMpxnYq+uvz3/8 lTrn/Rr/ANRkOYeL6g5eT6XyLmY4iN0T/js2H/MTD/xMZVn+iXuLj6z+5n/Vl9z1vOeeDZj+VP8A yk7/APMNJ/xJMyNP9TvPZ/8Axj/NP6GHZjujSjzZ/wAo9ef6q/8AE1zJ0n94HP7M/wAYj+Ojy7N6 9q+uv/KDf+Ct/wB27MP+P4uX/D8HyLmY4if+RPM7+WPNum62AWjtZf8ASEXq0LgpKB78GNPfIzjY plE0bfR/5oeQ7P8AMjyzZanodzE99Apl064r+6mikpyiZhWhqu1eh2PU5jQnwndyJx4hs+cdQ/L7 zxp9y1vdaFfLIvdIHkQ/6rxhkb6DmSJg9XHMSibL8r/P93az3aaJdQ21vE88ktwhgHCNS54iXgWJ A24g4DMd68BYtk2L66/Ij/yVOh/9HX/UZNmHl+ouXj+l5L+a35M61Fq8+v8Ale2bU9G1FvrIhtR6 kkTS/E3FFqXjYmqlRsNvc3Y8gqi0zxnmGDaJ+WnnrWL1LW10W6QsQGmuInghQHu8kgUD9eWGYDAQ JfSumWeh/lP+XLfWJRKLUNNPIPha5u5BsqA/zUCr4KN++YpJnJyRUQ+TdS1G61DUrrUrlq3V3M9x M42/eSMXYj6TmWBTikvq7yjrmjfmd+XUlleuGuZYBa6tCCPUjmA+GUD3ZRIh+jscxJAxk5MSJB88 +avym87+XtQktn02e+tuREF7aRPLHIvY/AGKEj9lt8yY5AWiUCGU/lV+SevaprNtqfmGxex0W2cS tBcqUluGXdUEbUYIT9okbjp7QyZQBsyhjJO7LP8AnI7z9aJpq+ULGUSXU7pLqnE19ONCHjjan7TN RqdgPfIYYdWeWXR4v+X/APynvlv/ALatl/1EJl8+RaY8w98/5yc/5QKw/wC2rF/1D3GY+Dm35uT5 kzKcZ2KvsfznpsnnX8sbq304q8uq2cNzaCoAZlKXCLWtByKgZhRPDJy5C4vlS/8AI/nLT7ee5vtD vrW2thWe4mt5EiUVC19RlCnc9jmWJA9XGMSgNE/47Nh/zEw/8TGQz/RL3FxdZ/cz/qy+563nPPBs x/Kn/lJ3/wCYaT/iSZkaf6neez/+Mf5p/Qw7Md0aUebP+UevP9Vf+JrmTpP7wOf2Z/jEfx0eXZvX tXo3/K9fN3+Ef8LfVLD9H/UP0Z6vpzet6Po+hy5etx58e/Gle2V+ELts8Q1TznLGt2Ksv8kfml5t 8nExaZOstg7cpNPuAXhLHqy0Ksh/1SPeuQljEmcZkPSoP+cp7hYwJ/LaSSd2jvCi/wDAmF/15V4H m2eN5JNrv/OSvmu+tpLfT9PtNPSVSrSPyuJACKbcuKfehyQwhicxeP5c1Prr8iP/ACVOh/8AR1/1 GTZh5fqLl4/peEeRvzu83eVLVNP+DUtLjFIrW5ryjHhHIvxAexqPAZkSxAtEchDMrr/nKW+a3K2v l2KK4ptJLdNKlf8AUWKI/wDDZX4Hmz8byeWecfPvmbzdeC41m65pGT6FrGOEEVf5E339ySffLowA 5NUpE82O5JimvlzzPrvlvUk1HRrt7S6UcWK0Kup6q6GqsvsRglEHmkEjk9b0z/nKPV4oFXUtCgu5 gKGSCdrcE+PFkn/XlJwDvbRmSvzJ/wA5I+b9St3t9KtYNHjkBBmQmacA/wArsFUfPhX5YY4QEHKX k8889xNJPPI0s8rF5ZXJZ2ZjUszHcknLmpEaPqdxpOr2OqW6o9xYXEV1CsgJQvC4kUMAVNKrvQ4C LCQaZf56/OHzN500iHS9UtrKG3huFula1SVHLojxgEySyClJD2yEMYiWUshLBMsYOxV6R+X/AOeP mPyjYJpckEeqaVESYIJWMckdTUqkgDfDXsVPtlU8QLZHIQmnnj/nIK68z+XbzRI9ESyhvVVJJWuD Mw4uH+ECOIfs4I4aN2mWWxTzDRP+OzYf8xMP/Exhz/RL3FwtZ/cz/qy+563nPPBsx/Kn/lJ3/wCY aT/iSZkaf6neez/+Mf5p/Qw7Md0aUebP+UevP9Vf+JrmTpP7wOf2Z/jEfx0eXZvXtXYq7FXYq7FX Yq7FXYq+uvyI/wDJU6H/ANHX/UZNmHl+ouXj+l8i5mOI7FXYq7FXYq7FXYq7FXYq7FXYq7FXYq7F Ubon/HZsP+YmH/iYyrP9EvcXH1n9zP8Aqy+563nPPBsx/Kn/AJSd/wDmGk/4kmZGn+p3ns//AIx/ mn9DDsx3RpR5s/5R68/1V/4muZOk/vA5/Zn+MR/HR5dm9e1dirsVdirsVdirsVT3QPI/mrzBbSXO j6e93BE/pyOrRqA9A1PjZexyEskY8yyjAnkyuw8o/npp1olnp51SztIq+lbwX3pRryJZuKJMFFWJ Jys5cZZiE0o/5VD+Y/8A1ZJf+RkP/NeS8eHejwpdzv8AlUP5j/8AVkl/5GQ/814+PDvXwpdzv+VQ /mP/ANWSX/kZD/zXj48O9fCl3O/5VD+Y/wD1ZJf+RkP/ADXj48O9fCl3JJr/AJV8w+X5YotZsns3 mBaLlxYMB1oyllqPCuSjMS5MZRI5pTk2LsVdirsVdirsVdirsVdiqN0T/js2H/MTD/xMZVn+iXuL j6z+5n/Vl9z1vOeeDZj+VP8Ayk7/APMNJ/xJMyNP9TvPZ/8Axj/NP6GHZjujSjzZ/wAo9ef6q/8A E1zJ0n94HP7M/wAYj+Ojy7N69q7FXYq7FXYq7FXYq+gv+cdn4eUtVfiX43hPFd2NIUNAPHMDV8/g 5mmF7ebMLPz4LmOwujps0Wm38/1VLtnjoshcotUBrQ03PbfrmtjqLo1sXfZOyOEzjxgzhHiqjyq+ aNPmiVb6zt5LB447+SeK1ZnCysYASWMRA4q1PhPL50yfi7gVzaPyAMJSEgTARJ7vV5+XXZA6X51u 57ewnvNP9OLUrprW3kSRSAQ7KOSnfbjuchDOSBY5lv1HZcYymIzswjxHbyCve+dobKDVpJrOQtpM kUUqoysGM32DU0ovSu2GWegduTDF2WchxgSH7wE/Lmpy+eDFcy2cunSQXkQaQxTOKekKcDWITfE5 rRfbridRvVbso9lXESEwYnawOvXnWw70Jr1jpPm3RxHfWzi2u4w6pIOEsTioDL14sp7/AMDluPKR Ug63U6fgkYGjXc+dfOPk7UvLGpG1uh6ltJVrS7UUSVB+ph+0vb5UObbFlExYdXOBiUgy1g7FXYq7 FXYq7FXYq7FUbon/AB2bD/mJh/4mMqz/AES9xcfWf3M/6svuet5zzwbMfyp/5Sd/+YaT/iSZkaf6 neez/wDjH+af0MOzHdGlHmz/AJR68/1V/wCJrmTpP7wOf2Z/jEfx0eXZvXtXYq7FXYq7FXYq7FX0 D/zjv6o8o6t6IUy/XD6YckLy9FKVIBNMwNXz+DmaWuvK2UxeUNai8taZpAe2aTT7sXJk5yAMqyNI F+xsSXI+jNWMMuAR22L0cu0sRzzy1Kpw4endXf5K8PlPWf0zFqs97C9xbXE8kLPG8jNDMvBUY8o+ Ppr9kKKVyQwy4uK2qXaOLwjjETwyjEHcDcb3yN31tRj8oa5Fp1lapcWxbS703dkSJKSKXdyJafZP x/s1wDDKgNti2S7SwnJKREv3kOGXLbYDb5Kd/wCTvMF3ba3E89qW1mSByw9RRGISGpSjV+zT8fbB LBIiXL1MsPaeGEsRAl+6Eu7e0yudE15NdXWtPktlnngW3vbWcyNH8JqGjdVDV+YGWHHLi4hTiw1W E4fCmJUJXEir+IV7xZ1kVbhxJMEX1HVeKlu9FqaDw3yZ83XTIJPCKCT69oOm67psunajF6kEm4I2 dHH2XRuzD+w7ZKEzE2GuUQRRfO3nHydqXljUja3Q9S2kq1pdqKJKg/Uw/aXt8qHNriyiYsODOBiU gy1g7FXYq7FXYq7FXYqjdE/47Nh/zEw/8TGVZ/ol7i4+s/uZ/wBWX3PW8554NmP5U/8AKTv/AMw0 n/EkzI0/1O89n/8AGP8ANP6GHZjujSjzZ/yj15/qr/xNcydJ/eBz+zP8Yj+Ojy7N69q7FXYq7FXY q7FXYq+hP+ccv+UW1P8A5jj/AMmUzB1X1BysHJ6zmK3oOZNTMjGORRHX4RQdPpByO6Vnp6v/AL9X 7h/THdUVbC4EdJ2DPXYjwwhVXChB3WnLPL6hcrsBSlemRISpfoZf9+n7v7ceFbS/XvJOl67pkuna j+8gk3UgAOjj7LoezD+w7ZKBMTYYyAIovkPNw692KuxV2KuxV2KuxVG6J/x2bD/mJh/4mMqz/RL3 Fx9Z/cz/AKsvuet5zzwbMfyp/wCUnf8A5hpP+JJmRp/qd57P/wCMf5p/Qw7Md0aUebP+UevP9Vf+ JrmTpP7wOf2Z/jEfx0eXZvXtXYq7FXYq7FXYq7FX0J/zjl/yi2p/8xx/5MpmDqvqDlYOT1nMVvUX vbVGKtIAw6jfBaVv6Qs/9+D7j/TGwrv0hZ/78H3H+mNhXfpCz/34PuP9MbCu/SFn/vwfcf6Y2FV0 dHUOh5KehGFW8UPiLNw652KuxV2KuxV2KuxVG6J/x2bD/mJh/wCJjKs/0S9xcfWf3M/6svuet5zz wbMfyp/5Sd/+YaT/AIkmZGn+p3ns/wD4x/mn9DDsx3RpR5s/5R68/wBVf+JrmTpP7wOf2Z/jEfx0 eXZvXtXYq7FXYq7FXYq7FX0J/wA45f8AKLan/wAxx/5MpmDqvqDlYOT1nMVvUntLZ2LNGCx6nBSV v1G0/wB9DGgrvqNp/voY0Fd9RtP99DGgrvqNp/voY0FVkRUUKooo6AYVbxQ+Is3DrnYq7FXYq7FX Yq7FUbon/HZsP+YmH/iYyrP9EvcXH1n9zP8Aqy+563nPPBsx/Kn/AJSd/wDmGk/4kmZGn+p3ns// AIx/mn9DDsx3RpR5s/5R68/1V/4muZOk/vA5/Zn+MR/HR5dm9e1dirsVdirsVdirsVfQn/OOX/KL an/zHH/kymYOq+oOVg5PWcxW9BzHU/Ub0wvCvw9On05HdKyur/yr+GO6urq/8q/hjurq6v8Ayr+G O6urq/8AKv4Y7qjIfV9NfVp6n7VOmFV+FD4izcOudirsVdirsVdirsVRuif8dmw/5iYf+JjKs/0S 9xcfWf3M/wCrL7nrec88GzH8qf8AlJ3/AOYaT/iSZkaf6neez/8AjH+af0MOzHdGlHmv/lHr3/VX /iYzJ0n94HP7M/xiP46PLs3r2rsVdirsVdirsVdir6E/5xy/5RbU/wDmOP8AyZTMHVfUHKwcnrOY repPd2yMVaQBh1GC0rfr1p/v0Y2Fd9etP9+jGwrvr1p/v0Y2Fd9etP8AfoxsKx7zb5903QUEUYF3 fyLySBTRVB6NIe3y65Rm1Ah5l23ZvZM9Tv8ATDv/AFPN738yvN11IzLdi2Q9I4UUAV8CwZvxzAlq pnq9Ti7D00B9PF7z+AwOfy3pkq0RDE3ZlJ/Ua5kY+080TubcfP7N6SY9IMD3g/rtjmp6TcWDgP8A HE32JR0PsfA5vNLrI5htse54rtPsnLpJereB5S/HIoHMt1bsVdirsVdiqO0T/js2H/MRF/xMZVn+ iXuLjaz+5n/VP3PWs554RmP5U/8AKTv/AMw0n/EkzI0/1O89n/8AGP8ANP6GHZjujaIBBBFQdiDh SxrWvJFld8pbEi1n68P91sfkPs/R92ZuHWyjtLcO40nbE4bT9Uft/awjUdLvtPm9K7iMZ/Zbqre6 t0ObTHljMWC9Jg1MMouBtCZY3uxV2KuxV2KvoT/nHL/lFtT/AOY4/wDJlMwdV9QcrByes5it6hJY 2sjl2jqx6mpH6jgpK39G2X++/wDhm/rjwhXfo2y/33/wzf1x4Qrv0bZf77/4Zv648IVB6z+jtM0q 6v5IqrbRs4Xk3xMB8K9e52yEyIxJb9LhOXJGA/iLwG6uZrq4kuJ2LyysWdj4nNKSSbL6ZixxhERj sApYGbJ/IXk2TzLqrJKzRaZbDne3C0BAP2UUkEcmp91cyNNg8SXkHWdq9ojTY7G85cgkHmmw0mW/ v7PT3MunCRktZW3JVT8LV2rjDL4WTihyBZT0x1Om4MwqUo7+R/Y80dGR2RhRlJBHuNs66MgRYfKp wMZGJ5hbhYuxV2Kp3o3lTUtS4yFfq9qf93OOo/yV6n9WYubVRhtzLrtX2njw7fVLu/WzrSPL2m6W v7iPlNT4p33c/I9h8s1WbUSyc+TzGq12TMfUdu7omeUOGzH8qf8AlJ3/AOYaT/iSZkaf6neez/8A jH+af0My8yflzpGqcp7QCxvTvyQfu2P+Ugp94/HL8mAHls7zW9i4s28fRP7Pk8v1zy3rGizenfQF UJpHOvxRP/qt/A75hzxmPN5LVaHLgNTHx6JZkHEUrm1t7qFobiNZYm6owqMlGRibDPHklA3E0WG6 z5DdeU2ltyXqbZzv/sWPX6c2WHX9J/N6HSdtA7Zfn+tiU0M0MjRTI0cimjIwII+g5sRIEWHfQmJC wbCnhZOxV2KvoT/nHL/lFtT/AOY4/wDJlMwdV9QcrByes5it6DmfUxIwjjUx1+E1HT6SMjulZ6mr /wC+l+8f1x3V3qav/vpfvH9cd1d6mr/76X7x/XHdWP8An79KyeUdQV4wE4xlitK0WVCeh9so1N8B dp2KQNVC/P7i8dsXtY723ku4zNapIjXEQJBeMMC6gggiq7dc1Uavfk9/lEjEiJqVbe96HrP5b6br NnDrHkeQTWspCTWLueUbGgPxOSwpX4lY+4rmfk0omOLHy7nndP2xPDI49UKkP4u/5fZSt5z1G08o eWovJ2kycr24X1NVuV2NHHxD2Mnh2T54c8hih4cefVh2dhlrM51OQekfSPx3fe8vzXPUMC1Eg6hc kbgyuQf9kc7HTCsUf6o+58j7RIOpyEfz5feUPlzho7TNG1DUpeFpEWA2eQ7IvzbKsuaMBuXG1Grx 4Rcz+tnGjeTNPseMtzS6uRvVh+7U+y9/mc1ebWSlsNg81q+1smTaPpj9rIcw3Ut4FZZ5b/LrWNV4 T3QNjZHfm4/eMP8AIQ/rP45fjwGXPYO50PYuXNvL0Q+35PUND8taPokPp2MAWQikk7fFK/zb+A2z MhjEeT12k0OLAKgN+/qmmTctTuLe3uYXguI1lhkFHjcBlI9wcBFsZwjIVIWHn/mT8q4n5XGhv6bd TZyH4T/qOenyb78xsmn/AJrzWt9nwfVh2/on9BedXtjeWNw1teQvBOn2o3FD8/ce+YpBHN5jLilj lwyFFQyLWgdU0XTtTi4XUQZh9iVdnX5N/mMtxZpQOxcnTavJhNwPw6MG1nyZqFjylt63VsN6qPjU f5S/xGbXDrIz2Oxel0na2PLtL0y+xj+ZjtmsVfQn/OOX/KLan/zHH/kymYOq+oOVg5PWcxW92Kux V2KuxVRvbSG8s57SYVhuI2ikH+S4of14JCxTZiyGEhIcwbfPuvaJeaLqc1hdL8UZrG/Z0P2XX2Oa TJjMDRfStJqo58YnHr9h7lTy/wCZtZ0C6a50y4MLuOMiEBkcf5SnY07YcWWUDcUavRYtRHhyC0Fe 3t1fXc15dyGW5ncySyN1LManISkSbLfjxxhERiKiEr1XUEsbRpCR6rCkS+LePyGZOk0xyzrp1df2 t2jHS4TL+M/SPP8AZ1Ybb29zdTCKCNppn6KoqT751cpCI32D5RlyiIMpGmYaN5DVeM2qNyPUWyHb /ZMP4ffmuza/pD5vPavtonbF8/1Bl0MEMESxQosca7KigAD6BmulIk2XQTmZGybKpkWKcaB5U1nX JALOGkANHuZPhjX6e59hlkMZlyc7R9n5dQfSNu/o9R8t+QNG0bjNIv1y+FD68oHFT/xWm4X57nMz HhEfe9doex8WDc+qfef0Bk+XO2dirsVdirsVQOr6Hper2/oX8CzL+w3R1PirDcZGUBLm4+p0uPNH hmLeZeZPyx1Ox5XGlk31qN/Sp+/UfIfb/wBjv7Zh5NORy3eU1vYWTH6sfrj9v7fxswplZWKsCGBo QdiCModCRTsCEk1nynpupcpFH1e6O/rINif8pe/68ysOrlDbmHZaTtPJh2+qPcf0MF1by/qWlufr EfKGtFnTdD9Pb6c2uLURycub02l12PMPSd+7q9c/IjzT5c0fy7qEGqalb2U0l5zSOeRUYr6SCoB7 VGVamBJFB2uGQA3emf8AKxfIf/V/sf8Aken9cx/Cl3N3iR73f8rF8h/9X+x/5Hp/XHwpdy+JHvd/ ysXyH/1f7H/ken9cfCl3L4ke93/KxfIf/V/sf+R6f1x8KXcviR73f8rF8h/9X+x/5Hp/XHwpdy+J Hvd/ysXyH/1f7H/ken9cfCl3L4ke9LNd8x/ldrlr9X1DWbF+O8cqzosiE91av4dMryaUzFEOXpO0 Z6eXFCXw6FgN7oPk0SE2Pm/TmjPRZ5FVh9Klq/cMwpdmz6PR4vanHXrjv5F5zP5sqONtbnmdgXPf /VH9cycfY/8AOl8nH1HtaK/dw375H9A/Wr6f5T1bVZRdao7QRHopH7wjwC9EHz+7Mo58eGPDjH4/ S+ddq+0ZyTJJ8Sf+xH48mZadpVhp0PpWkQjB+03Vm/1mO5zX5MspmyXks+pnlNzNovK2hFadpeoa lci2sYHnmP7KjYDxY9FHuclGJPJuwYJ5ZcMBZekeW/yttLfhcay4uZhuLVKiJT/lHYv+A+eZePTg c3qdF2BGPqy+o93T9rPIoooo1iiRY40FERQFUAdgBmTT0UYgChsF2KXYq7FXYq7FXYq7FXYqkHmL yVouuKzzR+heU+G6iADf7IdG+nKp4hJ12t7Lxajcipd4/G7y3zF5J1rRC0ksf1iyHS7iBKgf5Y6p 9O3vmHPEYvIa3svLp9yLj3j9PckGVOtWuiOhR1DIwoysKgj3Bwg0kEg2GK6z5Ftp+U2msIJephb+ 7Py7r+rM/DriNpbu80nbMo7ZPUO/r+1hd7YXllMYbqJopB2boR4g9D9GbOGSMhYL0WHPDILibCHy ba7FXYq7FXYq7FU20fy1qeqENGnpW/ed9l/2P830Zj5tTGHPm4Or7Qx4dibl3BnejeWNM0sB0X1r kdZ5Nz/sR0XNVm1Mp+55jV9o5M2x2j3BN8xnAbjjkkkWONS8jkBEUEkk9AAMKYxJNDmzvy3+V17d cLjWGNrAaEWy/wB8w/yuyfr+WZGPTk83odD2BOfqy+kd3X9j0nTNK07TLYW1jAsEQ6hRuT4sTuT8 8y4xA5PVYNPDFHhgKCLyTc7FXYq7FXYq7FXYq7FXYq7FXYq4gMCrCoOxB6EYqQwvzJ+WWmX/ACuN MIsbo1JjA/csf9UfY/2O3tmPk04PLZ0Ou7Cx5PVj9Evs/Z8Pk8x1fQtV0i49C/t2hY/Yfqjgd1Yb HMSUDHm8pqdJkwyqYpA5BxkPeWNpewmG6iWWM9m7e4PUH5ZOEzE2C24s08cuKJosL1nyLcQ8ptNY zxdTA394Pkejfr+ebPDrgdpbPRaTtqMtsmx7+n7GKujxuUdSjqaMrChB9wczwbd4CCLC3Cl2KovT 9MvtQm9K0iMjftEbKvuzHYZXkyxgLJaM+ohiFzNM20byRZWvGa+Iupxv6f8AupT8j9r6fuzWZtdK W0dg85q+2Jz2h6Y/b+xkwAAAAoBsAMwXTEt4EMl8t+Qta1rjMV+qWJ3+sSg1Yf5C7Fvn098ux4TL 3O10XZGXPv8ATDvP6HqXl/yjouhp/okXO4Io91JRpD40P7I9hmZDEI8nr9H2di049I9Xeeac5Y5z sVdirsVdirsVdirsVdirsVdirsVdirsVdiqje2Nne27W93Ck8D/ajcAj5/P3wEA82vLijkjwyFh5 15k/Kt15XGhPzXcmylPxD/jG56/JvvzFyaf+a8xrvZ8j1Yf9Kf0H9fzefXNtcW0zwXEbQzIaPG4K sD7g5ikU83OEoGpCip4GCW6toGm6on+kR0lA+GdNnH09/py/FqJY+TmaXXZMJ9J27ujB9W8n6rYv WFDdwE0V4gS2/TkgqRm0xayEuexel0vauLINzwy8/wBaZ6N5DkfjNqjcF6i2Q/Ef9Zh0+jKM2v6Q +bhavtoDbFv5/qZjbWttawiG3jWKJeiqKDNbKZkbLz+TLKZuRsq2Ra0z0Ty5q+tTenYQF1BpJM3w xp/rN/Drk4YzLk5el0WXOagPj0en+W/y40jS+E95S+vRuGcfukP+Sh6/NvwzMx4AOe71ui7ExYvV L1y+z5Muy93TsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdiqWa35c0jWofTv4A7AUSZ fhkT/Vb+B2yE8YlzcTVaLFnFTHx6vMPMn5cavpfO4s631kKksg/eoP8AKQdfmv4Zh5MBHLd5LXdi ZcXqh64fb8mI5Q6V2KuxVWs7G8vbhbe0heed/sxoCT8/lhAJ5NmLFLJLhiLL0Xy3+VaJwudcfm2x FlGfhHtI46/JfvzLx6f+c9PofZ8D1Zv9KP0n9Xzeg21tb20KQW8awwoKJGgCqB7AZkgU9JCEYCoi gqYWbsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVdirsVY15k8haLrPKYL9Uvjv9 YiAox/y12DfPr75TkwiXvdVreyMWff6Z94/S8u17yhreiy0uYTJAxpHcxVaNiTQDxUnwOYc8Ri8j q+zc2A+oWO8ck68t/llqd/xuNTJsbU0IjI/fMP8AVP2P9l92WY9OTz2c/Q9hZMnqyeiP2/s+Pyem 6RoWlaRb+hYW6xKftv1dz4sx3OZkYCPJ6zTaTHhjUBSPyTkOxV2KuxV2KuxV2KuxV2KuxV2KuxV/ /9k= + + + + uuid:921fc5ca-62c4-44d0-836a-aa63e2f367f1 + xmp.did:df2d8e3f-f65e-d047-9f0c-8e22f184cd78 + uuid:5D20892493BFDB11914A8590D31508C8 + proof:pdf + + uuid:d1c078a0-2746-42b2-b0d1-25aedff8fb1e + xmp.did:1b6690ed-28a8-c141-9479-b6a9cf6be651 + uuid:5D20892493BFDB11914A8590D31508C8 + proof:pdf + + + + + saved + xmp.iid:df2d8e3f-f65e-d047-9f0c-8e22f184cd78 + 2018-08-29T17:40:20+02:00 + Adobe Illustrator CC 2015 (Windows) + / + + + + Document + Print + False + False + 1 + + 4.389967 + 5.080000 + Centimeters + + + + + MyriadPro-Regular + Myriad Pro + Regular + Open Type + Version 2.106;PS 2.000;hotconv 1.0.70;makeotf.lib2.5.58329 + False + MyriadPro-Regular.otf + + + + + + Cyan + Magenta + Yellow + Black + + + + + + Default Swatch Group + 0 + + + + White + RGB + PROCESS + 255 + 255 + 255 + + + Black + RGB + PROCESS + 35 + 31 + 32 + + + CMYK Red + RGB + PROCESS + 236 + 28 + 36 + + + CMYK Yellow + RGB + PROCESS + 255 + 241 + 0 + + + CMYK Green + RGB + PROCESS + 0 + 165 + 81 + + + CMYK Cyan + RGB + PROCESS + 0 + 173 + 238 + + + CMYK Blue + RGB + PROCESS + 46 + 49 + 145 + + + CMYK Magenta + RGB + PROCESS + 235 + 0 + 139 + + + C=15 M=100 Y=90 K=10 + RGB + PROCESS + 190 + 30 + 45 + + + C=0 M=90 Y=85 K=0 + RGB + PROCESS + 238 + 64 + 54 + + + C=0 M=80 Y=95 K=0 + RGB + PROCESS + 240 + 90 + 40 + + + C=0 M=50 Y=100 K=0 + RGB + PROCESS + 246 + 146 + 30 + + + C=0 M=35 Y=85 K=0 + RGB + PROCESS + 250 + 175 + 64 + + + C=5 M=0 Y=90 K=0 + RGB + PROCESS + 249 + 236 + 49 + + + C=20 M=0 Y=100 K=0 + RGB + PROCESS + 214 + 222 + 35 + + + C=50 M=0 Y=100 K=0 + RGB + PROCESS + 139 + 197 + 63 + + + C=75 M=0 Y=100 K=0 + RGB + PROCESS + 55 + 179 + 74 + + + C=85 M=10 Y=100 K=10 + RGB + PROCESS + 0 + 147 + 69 + + + C=90 M=30 Y=95 K=30 + RGB + PROCESS + 0 + 104 + 56 + + + C=75 M=0 Y=75 K=0 + RGB + PROCESS + 41 + 180 + 115 + + + C=80 M=10 Y=45 K=0 + RGB + PROCESS + 0 + 166 + 156 + + + C=70 M=15 Y=0 K=0 + RGB + PROCESS + 38 + 169 + 224 + + + C=85 M=50 Y=0 K=0 + RGB + PROCESS + 27 + 117 + 187 + + + C=100 M=95 Y=5 K=0 + RGB + PROCESS + 43 + 56 + 143 + + + C=100 M=100 Y=25 K=25 + RGB + PROCESS + 38 + 34 + 97 + + + C=75 M=100 Y=0 K=0 + RGB + PROCESS + 101 + 45 + 144 + + + C=50 M=100 Y=0 K=0 + RGB + PROCESS + 144 + 39 + 142 + + + C=35 M=100 Y=35 K=10 + RGB + PROCESS + 158 + 31 + 99 + + + C=10 M=100 Y=50 K=0 + RGB + PROCESS + 217 + 28 + 92 + + + C=0 M=95 Y=20 K=0 + RGB + PROCESS + 236 + 41 + 123 + + + C=25 M=25 Y=40 K=0 + RGB + PROCESS + 193 + 180 + 154 + + + C=40 M=45 Y=50 K=5 + RGB + PROCESS + 154 + 132 + 121 + + + C=50 M=50 Y=60 K=25 + RGB + PROCESS + 113 + 101 + 88 + + + C=55 M=60 Y=65 K=40 + RGB + PROCESS + 90 + 74 + 66 + + + C=25 M=40 Y=65 K=0 + RGB + PROCESS + 195 + 153 + 107 + + + C=30 M=50 Y=75 K=10 + RGB + PROCESS + 168 + 124 + 79 + + + C=35 M=60 Y=80 K=25 + RGB + PROCESS + 138 + 93 + 59 + + + C=40 M=65 Y=90 K=35 + RGB + PROCESS + 117 + 76 + 40 + + + C=40 M=70 Y=100 K=50 + RGB + PROCESS + 96 + 56 + 19 + + + C=50 M=70 Y=80 K=70 + RGB + PROCESS + 59 + 35 + 20 + + + + + + Grays + 1 + + + + C=0 M=0 Y=0 K=100 + RGB + PROCESS + 35 + 31 + 32 + + + C=0 M=0 Y=0 K=90 + RGB + PROCESS + 64 + 64 + 65 + + + C=0 M=0 Y=0 K=80 + RGB + PROCESS + 88 + 89 + 91 + + + C=0 M=0 Y=0 K=70 + RGB + PROCESS + 109 + 110 + 112 + + + C=0 M=0 Y=0 K=60 + RGB + PROCESS + 128 + 129 + 132 + + + C=0 M=0 Y=0 K=50 + RGB + PROCESS + 146 + 148 + 151 + + + C=0 M=0 Y=0 K=40 + RGB + PROCESS + 166 + 168 + 171 + + + C=0 M=0 Y=0 K=30 + RGB + PROCESS + 187 + 189 + 191 + + + C=0 M=0 Y=0 K=20 + RGB + PROCESS + 208 + 210 + 211 + + + C=0 M=0 Y=0 K=10 + RGB + PROCESS + 230 + 231 + 232 + + + C=0 M=0 Y=0 K=5 + RGB + PROCESS + 241 + 241 + 242 + + + + + + Brights + 1 + + + + C=0 M=100 Y=100 K=0 + RGB + PROCESS + 236 + 28 + 36 + + + C=0 M=75 Y=100 K=0 + RGB + PROCESS + 241 + 101 + 34 + + + C=0 M=10 Y=95 K=0 + RGB + PROCESS + 255 + 221 + 21 + + + C=85 M=10 Y=100 K=0 + RGB + PROCESS + 0 + 161 + 75 + + + C=100 M=90 Y=0 K=0 + RGB + PROCESS + 34 + 64 + 153 + + + C=60 M=90 Y=0 K=0 + RGB + PROCESS + 127 + 63 + 151 + + + + + + + Adobe PDF library 15.00 + + + + + + + + + + + + + + + + + + + + + + + + + +endstream endobj 3 0 obj <> endobj 9 0 obj <>/Resources<>/ExtGState<>/Font<>/ProcSet[/PDF/Text]/Properties<>>>/Thumb 347 0 R/TrimBox[0.0 0.0 124.44 144.0]/Type/Page>> endobj 343 0 obj <>stream +HWMI_Gʬb$qa6_dDT{3F,:#22?n~1mvi{Sons۾eMj;Zlm.1C(|sZZ3;\oJ:m37Ko>֑˫nbd7O?gcvX |i=}w^wz~aGf6RֶaъlE:kՋ='G׳)!d?c6rQ UkTln5n惡ō1Lu!|FmmvlŽYY;Ix| +V=/qF~ ޗsW܉HX6I%Җw?GG?j}@C^+12k}/מݵMF.QMpq0gfE׮} k?˱7tFX0\_upq6y :{[)G1{c逿YO?J*ͣ+R׷7xx:n}B; }.zmGW$3biv*+{ގ>@{lUh-ǀ0!lvQ'ad'ƷsPȉ#S Zf,Lkzd̐Kbkn,<:)Z4stP5!A/E:TwM?QKNЯҘJwkNgj$CT2S)sga ^ zfNX;mޅ'XZ 9C(6BtϮ>ZՅJm`TUU Q1As}0 _ٙhTK`ЗU8 ԏLQPO-!PAXbxV/6A WE%Dl" zUwFۣ~m[">׶`#\S[CE m)Q Ъ+ MߵŖL%>(>[*}j,Hsc79ݓʋ<"MXJ +ɎP7#3Ј'AЭeK~"6 ewG;|Tkeh`] +>i& OUh +=V3)NFSfqmQ\/΁I—ǡ>;')Έa}gEVMg9.m +fT? UO+EDصƥ\ }H0R PZ>X5G"_#f]Tj.|*B77,AQBJa" $%'Bh +|CrfzWveSnVS)!H֢S>GkCEkvZ[/D5=6#k!8CO!ѧ[E} G5Thenai)wGًvXUGnz?2Is(’- +8[XgR{5fh&5BK [xYJ0IQaغD0Q9™٥ȶ8䘺CκMV&[.*be37HY6sB뺵XZSsBedb:ҩgj"mߌͮM.jHb $X)wӊ7w)D_7%o!VH4IW U=d|1Q3Q&glt9[b5sȅǡ8qg;5j.HU*ZUqSUڙ{X9>@oVҵ0镙YB;yI؝%k,A12";j&k⁙ ZNtiNu< +>]4FhՈ1*NZ(G]FVʫNߒ cxP| 4j'K?/%nucW! +ݚӺ(κ*dTp^U1jad K:B䬚&N*VMOq8ocʻH/aEk7(4ea8<0 +WyM*+3xqZǥ)V+w*Ku["nJM5q R(b&z:_ xB=Wc>@-(*vǸokSmvIhܽ}gZ}k(֣lQYX2ZiQf.cR2_-vKK#jgU+z Ve&uFyVw1U,~/zR,5 a\Ւ3Z*Jhx_2{$yoMl&$%)tLj<.#UxU5vznCdAR̵1P3k$^Y) }NW>ս/\;}^Sg&x+3C֩9eAՃ*6C],1)Rv6v./py s@Lսhtef=#uo.y2KUCtp3e i \N58}e\+'(BYl\(m&Hk*/~O |cu~"pgeE]gjܴ ԂpKٵ)`FiI +;ڐ=:4-nyvd&,Sn)VxTwԧJKw9 0e +endstream endobj 347 0 obj <>stream +8;Ull']@f/r#@c^HCXig":#JDiP?XlN`FXV%fL_3Ll +[ru>ar]-3edLOLd[WWisXM8$c1(a)mC&]O:_05m?Lji2~> +endstream endobj 348 0 obj [/Indexed/DeviceRGB 255 349 0 R] endobj 349 0 obj <>stream +8;X]O>EqN@%''O_@%e@?J;%+8(9e>X=MR6S?i^YgA3=].HDXF.R$lIL@"pJ+EP(%0 +b]6ajmNZn*!='OQZeQ^Y*,=]?C.B+\Ulg9dhD*"iC[;*=3`oP1[!S^)?1)IZ4dup` +E1r!/,*0[*9.aFIR2&b-C#soRZ7Dl%MLY\.?d>Mn +6%Q2oYfNRF$$+ON<+]RUJmC0InDZ4OTs0S!saG>GGKUlQ*Q?45:CI&4J'_2j$XKrcYp0n+Xl_nU*O( +l[$6Nn+Z_Nq0]s7hs]`XX1nZ8&94a\~> +endstream endobj 341 0 obj <> endobj 350 0 obj [/View/Design] endobj 351 0 obj <>>> endobj 340 0 obj <> endobj 352 0 obj <> endobj 353 0 obj <>stream +H|PkHaiLrN|beh= m7 uKwlvմ׊nahF$b&Kь"Vj)%"Hlq9K~s$Hm0 +Y/.($(NbHi@1>Ef>CR+k6/ΙPr~>Yؐ8X=Yl8d1" +0 (МD!^(jQ.md5]x_J6_d n@i!6#3Cȵ #FP눽D34;HWt$~Iw8.awҠ,!˜J$_BB_Jʂbp-d,+GwWZtgqTfCp}to͝#Ds$=rxy^}WATA GNa',Jc25!nޏG-x{1{%^;JmX;>!_0@[aՆ `.JrP@3܇ eТSӎ{0cO7ŪԃzO:XAGM%I;x+?g ZV[?+W3YJJ{SHy2 ӗ77՘4N[vōC'tg27.4^Q3e=,4@p?VtNN%bH5e + 70|1p@x +endstream endobj 346 0 obj <> endobj 345 0 obj [/ICCBased 354 0 R] endobj 354 0 obj <>stream +HyTSwoɞc [5laQIBHADED2mtFOE.c}08׎8GNg9w߽'0 ֠Jb  + 2y.-;!KZ ^i"L0- @8(r;q7Ly&Qq4j|9 +V)gB0iW8#8wթ8_٥ʨQQj@&A)/g>'Kt;\ ӥ$պFZUn(4T%)뫔0C&Zi8bxEB;Pӓ̹A om?W= +x-[0}y)7ta>jT7@tܛ`q2ʀ&6ZLĄ?_yxg)˔zçLU*uSkSeO4?׸c. R ߁-25 S>ӣVd`rn~Y&+`;A4 A9=-tl`;~p Gp| [`L`< "A YA+Cb(R,*T2B- +ꇆnQt}MA0alSx k&^>0|>_',G!"F$H:R!zFQd?r 9\A&G rQ hE]a4zBgE#H *B=0HIpp0MxJ$D1D, VĭKĻYdE"EI2EBGt4MzNr!YK ?%_&#(0J:EAiQ(()ӔWT6U@P+!~mD eԴ!hӦh/']B/ҏӿ?a0nhF!X8܌kc&5S6lIa2cKMA!E#ƒdV(kel }}Cq9 +N')].uJr + wG xR^[oƜchg`>b$*~ :Eb~,m,-ݖ,Y¬*6X[ݱF=3뭷Y~dó ti zf6~`{v.Ng#{}}jc1X6fm;'_9 r:8q:˜O:ϸ8uJqnv=MmR 4 +n3ܣkGݯz=[==<=GTB(/S,]6*-W:#7*e^YDY}UjAyT`#D="b{ų+ʯ:!kJ4Gmt}uC%K7YVfFY .=b?SƕƩȺy چ k5%4m7lqlioZlG+Zz͹mzy]?uuw|"űNwW&e֥ﺱ*|j5kyݭǯg^ykEklD_p߶7Dmo꿻1ml{Mś nLl<9O[$h՛BdҞ@iءG&vVǥ8nRĩ7u\ЭD-u`ֲK³8%yhYѹJº;.! +zpg_XQKFAǿ=ȼ:ɹ8ʷ6˶5̵5͵6ζ7ϸ9к<Ѿ?DINU\dlvۀ܊ݖޢ)߯6DScs 2F[p(@Xr4Pm8Ww)Km +endstream endobj 344 0 obj <> endobj 355 0 obj <> endobj 356 0 obj <>stream +%!PS-Adobe-3.0 +%%Creator: Adobe Illustrator(R) 17.0 +%%AI8_CreatorVersion: 23.0.1 +%%For: (Dom) () +%%Title: (logo.ai) +%%CreationDate: 1/24/2019 11:04 AM +%%Canvassize: 16383 +%%BoundingBox: 0 -323 125 -178 +%%HiResBoundingBox: 0.000012664794667 -322.015014648438 124.440010070801 -178.015014648438 +%%DocumentProcessColors: Cyan Magenta Yellow Black +%AI5_FileFormat 13.0 +%AI12_BuildNumber: 540 +%AI3_ColorUsage: Color +%AI7_ImageSettings: 0 +%%RGBProcessColor: 0 0 0 ([Registration]) +%AI3_Cropmarks: 0 -322.014999999999 124.440000000001 -178.015 +%AI3_TemplateBox: 62.5 -250.5 62.5 -250.5 +%AI3_TileBox: -235.440003662109 -670.974991455078 359.880003662111 170.944991455078 +%AI3_DocumentPreview: None +%AI5_ArtSize: 14400 14400 +%AI5_RulerUnits: 4 +%AI9_ColorModel: 1 +%AI5_ArtFlags: 0 0 0 1 0 0 1 0 0 +%AI5_TargetResolution: 800 +%AI5_NumLayers: 1 +%AI9_OpenToView: -190 -125 3.91666666666667 1543 918 18 0 0 56 108 0 0 0 1 1 0 1 1 0 1 +%AI5_OpenViewLayers: 7 +%%PageOrigin:-244 -646 +%AI7_GridSettings: 72 8 72 8 1 0 0.800000011920929 0.800000011920929 0.800000011920929 0.899999976158142 0.899999976158142 0.899999976158142 +%AI9_Flatten: 1 +%AI12_CMSettings: 00.MS +%%EndComments + +endstream endobj 357 0 obj <>stream +%%BoundingBox: 0 -323 125 -178 +%%HiResBoundingBox: 0.000012664794667 -322.015014648438 124.440010070801 -178.015014648438 +%AI7_Thumbnail: 112 128 8 +%%BeginData: 23882 Hex Bytes +%0000330000660000990000CC0033000033330033660033990033CC0033FF +%0066000066330066660066990066CC0066FF009900009933009966009999 +%0099CC0099FF00CC0000CC3300CC6600CC9900CCCC00CCFF00FF3300FF66 +%00FF9900FFCC3300003300333300663300993300CC3300FF333300333333 +%3333663333993333CC3333FF3366003366333366663366993366CC3366FF +%3399003399333399663399993399CC3399FF33CC0033CC3333CC6633CC99 +%33CCCC33CCFF33FF0033FF3333FF6633FF9933FFCC33FFFF660000660033 +%6600666600996600CC6600FF6633006633336633666633996633CC6633FF +%6666006666336666666666996666CC6666FF669900669933669966669999 +%6699CC6699FF66CC0066CC3366CC6666CC9966CCCC66CCFF66FF0066FF33 +%66FF6666FF9966FFCC66FFFF9900009900339900669900999900CC9900FF +%9933009933339933669933999933CC9933FF996600996633996666996699 +%9966CC9966FF9999009999339999669999999999CC9999FF99CC0099CC33 +%99CC6699CC9999CCCC99CCFF99FF0099FF3399FF6699FF9999FFCC99FFFF +%CC0000CC0033CC0066CC0099CC00CCCC00FFCC3300CC3333CC3366CC3399 +%CC33CCCC33FFCC6600CC6633CC6666CC6699CC66CCCC66FFCC9900CC9933 +%CC9966CC9999CC99CCCC99FFCCCC00CCCC33CCCC66CCCC99CCCCCCCCCCFF +%CCFF00CCFF33CCFF66CCFF99CCFFCCCCFFFFFF0033FF0066FF0099FF00CC +%FF3300FF3333FF3366FF3399FF33CCFF33FFFF6600FF6633FF6666FF6699 +%FF66CCFF66FFFF9900FF9933FF9966FF9999FF99CCFF99FFFFCC00FFCC33 +%FFCC66FFCC99FFCCCCFFCCFFFFFF33FFFF66FFFF99FFFFCC110000001100 +%000011111111220000002200000022222222440000004400000044444444 +%550000005500000055555555770000007700000077777777880000008800 +%000088888888AA000000AA000000AAAAAAAABB000000BB000000BBBBBBBB +%DD000000DD000000DDDDDDDDEE000000EE000000EEEEEEEE0000000000FF +%00FF0000FFFFFF0000FF00FFFFFF00FFFFFF +%524C45FD36FF893AAEFD6BFF833B183A185FA8FD67FFAE3B3A3A3B3A3A18 +%3A5FFD64FFA85F123A3A3A183A3A3A123A3A8AA8FD60FF833B183B3A3B3A +%3B3A3B3A3B3A3A18658AFD5DFF8AFD103A183A5FAEFD59FFA865183A3A3B +%3A3A3A3B3A3A3A3B3A3A3A3BFD053A8AAEFD56FF5F3A123A3A3A183A3A3A +%183A3A3A183A3A3A183A3A3A183A183A83FD53FF8A3A3A3A3B3A3B3A3B3A +%3B3A413A3A2E3B3A3B3A3B3A3B3A3B3A3B3A3A3BAEFD4FFF843B12FD0B3A +%343428282734FD0C3A185FA8FD4BFFAF5FFD043A3B3A3A3A3B3A3A3A3B34 +%2E282E282E282E343B3A3B3A3A3A3B3A3A3A3B183A5FFD48FFA889183A18 +%3A3A3A183A3A3A183A3A3427282728272E272827282E3A183A3A3A183A3A +%3A183A183A3A8AFD45FF8341183B3A3B3A3B3A3B3A3B3A41342E282E282E +%282E282E282E282E28343A413A3B3A3B3A3B3A3B3A3B1865AEFD41FFAE3A +%3A18FD0B3A2E2E2828272E2828272E2828272E2828272E34FD0B3A183A5F +%FD3EFFAE6518FD043A3B3A3A3A3B3A3B3A342828282E282E282E282E282E +%282E282E282E282E2E3A3A413A3A3A3B3A3A3A3B3A3A3A8AFD3BFF5F3A18 +%3A183A3A3A183A3A3A183A342E27282728272E2728272E2728272E272827 +%2E27282728272E123A3A3A183A3A3A183A3A3A113B84FD37FFAE3A3A3A3B +%3A3B3A3B3A3B3A3B3A3B2E2E282E282E282E282E282E282E282E282E282E +%282E282E282E282E343B3A413A3B3A3B3A3B3A3B3A3A5FFD34FF845F18FD +%0C3A3427282828272E2828272E2828272E2828272E2828272E2828272E28 +%2827282E34FD0C3A1889AEFD30FF5F3A183B3A3A3A3B3A3A3A3B3A3B342E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E34413A3A3A3B3A3A3A3B3A3A183B84FD2CFFAF8A183A3A3A183A +%3A3A183A3A3A183A2E28272E2728272E2728272E2728272E2728272E2728 +%272E2728272E2728272E2728272E27280C3A3A3A183A3A3A183A3A3A123A +%3AAEFD29FF8A5F183B3A3B3A3B3A3B3A3B3A413A34282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E2E343A413A3B3A3B3A3B3A3B3A3A1865AEFD25FFAE3A3A18FD093A183A +%2E2E272E2828272E2828272E2828272E2828272E2828272E2828272E2828 +%272E2828272E2828272E2828272E282E34FD0B3A183A5FFD22FFAE8A3A3A +%3A3B3A3A3A3B3A3A3A413A342E2E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%2E3B3A3B3A3B3A3A3A3BFD053AAEFD1FFF833A113A3A3A183A3A3A183A3A +%3A122E2728272E2728272E2728272E2728272E2728272E2728272E272827 +%2E2728272E2728272E2728272E2728272E2728272E272827343A3A183A3A +%3A183A3A3A183A185F84FD1BFFAF3B3A3A3B3A3B3A3B3A3B3A413A3B2E2E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E34413A3B3A3B +%3A3B3A3B3A3B183B5FFD18FFAE5F18FD0C3A342828272E2828272E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E2828272E28 +%28272E2828272E2828272E2828272E28282EFD0B3A183A3A8AAFFD14FF5F +%3B3A3A3A3B3A3A3A3B3A3A3A41342E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282828343A413A3B3A3A3A3B3A3A3A3B18 +%5F84FD11FF8A3A3A123A3A3A183A3A3A183A3A3A2D282728272E2728272E +%2728272E2728272E2728272E2728272E2728272E2728272E2728272E2728 +%272E2728272E2728272E2728272E2728272E2728272E2728272E2E3A183A +%3A3A183A3A3A183A183A3AAFFD0DFFAE653A3A3A3B3A3B3A3B3A3B3A413A +%34282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E2E3B3A413A3B3A3B3A3B3A3B3A3A3A8AAFFD0AFF5F +%3A18FD0B3A342E2828272E2828272E2828272E2828272E2828272E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E2828272E28 +%28272E2828272E2828272E2828272E2828272E34FD0B3A183A83FD07FF8A +%FD053A3B3A3A3A3B3A3B3A3B2E28282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E2E3A +%3A3B3A3A3A3B3A3A3A3B3A3A3AAEFFFFFF833B183A183A3A3A183A3A3A18 +%3A342E27282728272E2728272E2728272E2728272E2728272E2728272E27 +%28272E2728272E2728272E2728272E2728272E2728272E2728272E272827 +%2E2728272E2728272E2728272E2728272E272805282E34183A3A3A183A3A +%3A183A3A3A125FA8FF3B3A3B3A3B3A3B3A3B3A3B3A3B342E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E28A8FFFF282E34413A3B3A3B3A3B3A3B3A3B188A +%FF18FD0A3A3427282828272E2828272E2828272E2828272E2828272E2828 +%272E2828272E2828272E2828272E2828272E2828272E2828272E2828272E +%2828272E2828272E2828272E2828272E2828272E2828272E272EFFFFFF2E +%27282E3A18FD093A5FFF3A3A3B3A3A3A3B3A3B342E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E2EFFFFFF2E2E282E28343A413A3A3A3B3A3A18 +%8AFF3A3A183A3A3A183A2E28272E0528052E2728052E2828272E27280528 +%272E272E0528272E2728272E2728052827280528272E27280528272E2728 +%272E272827280528272E282805282728272E272827280528272E0528282E +%27280028A8FFA82805280528272E123A3A3A183A3A3A5FFF3B3A3B3A3B3A +%3B2E28282E287D7D84282853AFFFA8282E282E27537DAFA9FFA8A82E2E28 +%2E282E28527DA8592E275984FFFFFFA87E282E282E282E282E282E287DA8 +%FFFFFFA8842E28282E282E282E59A87D52287DA8FFA82E53A87DFFFFFF7D +%847DA8522E282E34413A3B3A3B188AFFFD073A2E2828272884FFFF2E59FF +%FFFFA828272E0553A8FD07FF5328282827282EFFFFA80584FD07FFAF2E28 +%2828272E28282EFD09FF5328272E282805A8FFFF277DFFFFFFA805A8FD09 +%FF7D05282734FD063A5FFF3B3A3A3A3B3A3A2E2E282E0584FFFF53FFFFFF +%A8A8282E0559FFFFAF7E52537DFFFFFF522E282E2753FFFF7EA8FFFF7E7D +%7DA8FD04FF2E2E282E282E52FFFFFFA87E537EA8FFFFFF5928282E28287D +%FFFF7DFD04FF7D2E7DFFA8FFFFFFA8FFA8FF532E28282E413A3A3A3B188A +%FF183A3A3A183A3A2E272E27287DFFA8FFFFA82828272E272EA8FFA85205 +%2805272EFFFFAF2728272827FD05FF2E2805280553A8FFFFA8052E272828 +%FFFFFF7D28052805287DFFFFFF2E28272E057DFFFFA8FF7D52272E272E27 +%2EA8FFA82E052E2828272E2734183A3A3A183A5FFF3B3A3B3A3B3A3B2E2E +%282E0584FFFFFFA8272E282E28287DFFFF7D052E282E282E7EFFFF7D282E +%2852FD04FF5228282E282E0559FFFFFF59282E27A8FFFFA82E282E282E28 +%2884FFFFA8272E28287DFFFFFF7E2E282E282E282E28FFFFFF282E282E28 +%2E282E34413A3B3A3B3A8AFFFD073A2E272E28287DFFFFFFFD0428272E28 +%FFFFFF2828272E28280553FFFF7DFD0428FFFFFF7D282828272E282805A8 +%FFFF7D28272EA8FFFF52052E2828272E0552FFFFFF2E272E057DFFFFFF2E +%052E2828272E272EA8FFFF2E272E2828272E283418FD053A5FFF3A3A3B3A +%3A3A3B2E2E282E277EFFFFA828282E282E2759FFFF7D2827280528272828 +%FFFFAF282E282EFFFFFF53272E282E282E282853FFFFA9282E53FFFFFF28 +%2E282E282E282E28AFFFFF532828287DFFFFA8282E282E282E282E2EFFFF +%FF2E2E282E282E282E34413A3B3A3A188AFF3A3A183A3A3A122E27282728 +%7DFFFF7E0528272E272853FFFFA8597E7D7D7D7E7D7DA8FFA82E052828FF +%FFFF2828272E2728272E2752A8FFA82E057DFFFF7D282728272E27282728 +%7DFFFF7D0528057EFFFF7D282728272E2728052EA8FFA82E2728272E2728 +%27343A3A183A3A3A5FFF3B3A3B3A3B3A3B2E2E282E2784FFFF7D28282E28 +%2E0584FD0EFF282E2852FFFFFF52282E282E282E282E28FFFFFF28287DFF +%FF84272E282E282E282E2784FFFF7D28282E7DFFFF84272E282E282E282E +%2EFFFFFF2E2E282E282E282E34413A3B3A3B188AFFFD073A2E282827287D +%FFFF7E0528272E28287DFFFFA87DA87EA87DA87EA87DA87D2E272E28FFFF +%FF2828272E2828272E272EA8FFFF2E057EFFFF7D282828272E282827287D +%FFFF7E0528057EFFFF7D282828272E2828272EFFFFA82E2728272E282827 +%34FD063A5FFF3B3A3A3A3B3A3A2E2E282E0584FFFF7D28282E282E277EFF +%FF5928272E2828272E2828272E282E2852FFFFFF52282E282E282E282E2E +%FFFFFF282859FFFFA8052E282E282E282E27A8FFFF592E28287DFFFF7E05 +%2E282E282E282E28FFFFFF282E282E282E28282E413A3A3A3B188AFF183A +%3A3A183A3A2E272E27287DFFFF7D052E2728272852FFFF840528272E2728 +%272E2728272E272828FFFFFF28282728272E27280559FFFF7E280553FFFF +%A828052E2728272E2728A8FFFF53052E057DFFFF7D28272E2728272E272E +%A8FFA82E052E2728272E2734183A3A3A183A5FFF3B3A3B3A3B3A3B2E2E28 +%2E0584FFFF7D2E282E282E2853FFFFA92E282E282E282E282E282E282E28 +%52FFFFFF7D272E282E282E282E84FFFF84272E28FFFFFF522E282E282E28 +%2E52FFFFFF282E28287DFFFF84052E282E282E282E28FFFFFF282E282E28 +%2E282E34413A3B3A3B3A8AFFFD073A2E272E28287DFFFF7D052E2828272E +%27A8FFFF7D28272E2828272E2728272E282828FFFFFFA82E2728272E2828 +%2EFFFFFF2E2828287DFFFFA8052E2828272805A8FFFF7D28272E057DFFFF +%7D28272E2828272E272EA8FFFF52052E2828272E283418FD053A5FFF3A3A +%3B3A3A3A3B2E2E282E277EFFFF7D28282E282E282E52FFFFFF7D2E052827 +%2805522E2E282E282EFD04FF84522728052852FFFFFF7E28282E2852FFFF +%FFA82728272828A8FFFFA952282E28287DFFFF84272E282E282E282E28A9 +%FFFF7D28052E282E282E34413A3B3A3A188AFF3A3A183A3A3A122E272827 +%287DFFFF7E0528272E2728272859FFFFFFA87D537D5984A8A80528272828 +%FFFFFFA8FFA87E537D7DFFFFFFA82E2728272E0559FFFFFFA8597D59A8FF +%FFFF53052E2728057EFFFF7D282728272E272827287DFFFFFF7D7D7D5227 +%2827343A3A183A3A3A5FFF3B3A3B3A3B3A3B2E2E282E27A8FFFF7E28282E +%282E282E282859FD09FFA92E282E2852FFFFFF53A8FD07FFA853282E282E +%282E277DFD08FFA859272E282E28287EFFFFA8272E282E282E282E2852A9 +%FD05FF522E282E34413A3B3A3B188AFFFD073A2E28282728527E7D592728 +%272E2828272E28282884A8FFA9FFA8A87D532828272E28FFFFFF282859A9 +%A8FFA8A85328052E2828272E282805527DA8A8FFA8A8532E052E272E2828 +%05597D7E52282828272E2828272E27527DFFFFFFA85227282734FD063A5F +%FF3B3A3A3A3B3A3A2E2E282E282E0528272E282E282E282E282E282E052E +%282E282E2828272E282E2852FFFFFF52282828522E2E272E282E282E282E +%282E282E272E282E28522828282E282E282E282E2728052E282E282E282E +%282E282E28282852282E282E28282E413A3A3A3B188AFF183A3A3A183A3A +%2E272E2728272E2728272E2728272E2728272E272805282728052E272827 +%2E272828FFFFFF2828272805282728272E2728272E2728272E2728272E27 +%28052E2728272E2728272E2728272E2728272E2728272E2728272E272805 +%282728272E2734183A3A3A183A5FFF3B3A3B3A3B3A3B2E2E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E2852FFFFFF52 +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E3441 +%3A3B3A3B3A8AFFFD073A2E272E2828272E2828272E2828272E2828272E28 +%28272E2828272E2828272E282828FFFFFF282E2828272E2828272E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E2828272E28 +%28272E2828272E2828272E2828272E283418FD053A5FFF3A3A3B3A3A3A3B +%2E2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282EFFFFFF2E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E34413A3B3A3A188AFF3A3A183A3A3A122E2728272E272827 +%2E2728272E2728272E2728272E2728272E2728272E2728272828FFFFFF28 +%28272E2728272E2728272E2728272E2728272E2728272E2728272E272827 +%2E2728272E2728272E2728272E2728272E2728272E2728272E272827343A +%3A183A3A3A5FFF3B3A3B3A3B3A3B2E2E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E7DA87D2E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E34413A3B3A3B188AFFFD +%073A2E2828272E2828272E2828272E2828272E2828272E2828272E282827 +%2E2828272E272805282728272E2828272E2828272E2828272E2728272E28 +%28272E2828272E2828272E2828272E2828272E2828272E2828272E282827 +%2E2828272E28282734FD063A5FFF3B3A3A3A3B3A3A2E2E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E28282E413A +%3A3A3B188AFF183A3A3A183A3A2E272E2728272E2728272E2728272E2728 +%272E2728272E2728272E27280559A8A8A7A8A8A8A7A8A8A8A7A8A8A8A7A8 +%A8A8A7FD04A8832728272E2728272E2728272E2728272E2728272E272827 +%2E2728272E2728272E2728272E2728272E2734183A3A3A183A5FFF3B3A3B +%3A3B3A3B2E2E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E59FFCFFFCFFFCFFFCFFFCFFFFFFFCFFFCFFFCFFFCFFFCFFFCAA8 +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E34413A3B3A3B3A8AFFFD073A2E272E2828272E28 +%28272E2828272E2828272E2828272E2828272E2828057DCFFFA8FFA8FFA8 +%CFA8FFA1CAA8CFA8FFA8FFA8FFA8CAA8CAA8A7272E2828272E2828272E28 +%28272E2828272E2828272E2828272E2828272E2828272E2828272E283418 +%FD053A5FFF3A3A3B3A3A3A3B2E2E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282853FFCAC3A0BCCAC9A0C3C9BCA0C3C9CAA0CF +%C2C2A0C9C2C3A8CAA8A8282E282E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E34413A3B3A3A188AFF3A3A18 +%3A3A3A122E2728272E2728272E2728272E2728272E2728272E2728272E27 +%28272E0559A8CA93CA9AC2A1CA93CA9ACA9AC3A8BCA1BBA1BC9AC39AA8A7 +%A8A77D27282728272E2728272E2728272E2728272E2728272E2728272E27 +%28272E2728272E272827343A3A183A3A3A5FFF3B3A3B3A3B3A3B2E2E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282859FFCABC +%CFCAC2CFA1BCCAC2CFC3C3CF9AFFBCFF9AC9FFFFA8CFA8CAA8A8282E282E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E34413A3B3A3B188AFFFD073A2E2828272E2828272E2828272E282827 +%2E2828272E2828272E2828272E057DCFCA93CAA0C29AC299C999C39AC2A0 +%BBA1BCA8C393C9A1A8A7A8A7A8A7A72828272E2828272E2828272E282827 +%2E2828272E2828272E2828272E2828272E28282734FD063A5FFF3B3A3A3A +%3B3A3A2E2E282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E59FFA7C9CACAA1CAC3CFA8CAC3CFA1CAC3CAA1CACFC9A1CFA8A8A7 +%CAFD04A8282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E28282E413A3A3A3B188AFF183A3A3A183A3A2E272E272827 +%2E2728272E2728272E2728272E2728272E2728272E2728057DCAFFA8FFA8 +%FFA8FFA8CFA8FFA8FFA8FFA8FFA8FFAEFFA8A8A7A8A7A8A7A8A7A7272827 +%2E2728272E2728272E2728272E2728272E2728272E2728272E2728272E27 +%34183A3A3A183A5FFF3B3A3B3A3B3A3B2E2E282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E59FFCAFFCFFFCAFFCFFFCAFFCFFF +%CAFFCFFFCAFFCFFFCAFFA8A8A7CFA8CAA7CFA8A8282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282E282E34413A3B3A3B3A8A +%FFFD073A2E272E2828272E2828272E2828272E2828272E2828272E282827 +%2E2828057DCFCFA8FFA8CFA8A8A7A8A7A8A7A8A7CFA8CFA8FFA8CFA8CFA7 +%A8A7A8A7A8A7A8A883272E2828272E2828272E2828272E2828272E282827 +%2E2828272E2828272E283418FD053A5FFF3A3A3B3A3A3A3B2E2E282E282E +%282E282E282E282E282E282E282E282E282E282E282E282853FFCFFFA8FF +%CFFFA8CFA8CFA8CFA8CFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCA52 +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E282E +%34413A3B3A3A188AFF3A3A183A3A3A122E2728272E2728272E2728272E27 +%28272E2728272E2728272E2728272E0559A8FFA8CFA8FFA8CFA8FFA8CFA8 +%FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8CF2828272E2728272E27 +%28272E2728272E2728272E2728272E2728272E272827343A3A183A3A3A5F +%FF3B3A3B3A3B3A3B2E2E282E282E282E282E282E282E282E282E282E282E +%282E282E282E282859FFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFF +%CFFFCAFFCFFFCAFFCFFFCAFFA852282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E282E34413A3B3A3B188AFFFD073A2E282827 +%2E2828272E2828272E2828272E2828272E2828272E2828272E057DCAFFA8 +%CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8 +%CF2828272E2828272E2828272E2828272E2828272E2828272E2828272E28 +%282734FD063A5FFF3B3A3A3A3B3A3A2E2E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E282E59FFA8FFCFFFA8FFCFFFA8FFCFFFA8 +%FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA852282E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E28282E413A3A3A3B188AFF +%183A3A3A183A3A2E272E2728272E2728272E2728272E2728272E2728272E +%2728272E2728057DCACFA8FFA8CFA8A8A7A8A7A8A7A8A7A8A7A8A7A8A7A8 +%A7A8A7A8A7CFA8CFA8FFA8CA27282728272E2728272E2728272E2728272E +%2728272E2728272E2728272E2734183A3A3A183A5FFF3B3A3B3A3B3A3B2E +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E282E59 +%FFCAFFCFFFCAFFA8CFA8CFA8CFA8CFA8CFA8CFA8CFA8CFA8CFA8CFCFFFCA +%FFCFFFA852282E282E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E34413A3B3A3B3A8AFFFD073A2E272E2828272E2828272E2828 +%272E2828272E2828272E2828272E2828057DCFCFA8FFA8CFA8FFA8CFA8FF +%A8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFCACF282E2828272E2828 +%272E2828272E2828272E2828272E2828272E2828272E283418FD053A5FFF +%3A3A3B3A3A3A3B2E2E282E282E282E282E282E282E282E282E282E282E28 +%2E282E282E282853FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCF +%FFA8FFCFFFA8FFCFFFA8FFA82E282E282E282E282E282E282E282E282E28 +%2E282E282E282E282E282E282E34413A3B3A3A188AFF3A3A183A3A3A122E +%2728272E2728272E2728272E2728272E2728272E2728272E2728272E0559 +%A8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FF +%A8CFA8CF2828272E2728272E2728272E2728272E2728272E2728272E2728 +%272E272827343A3A183A3A3A5FFF3B3A3B3A3B3A3B2E2E282E282E282E28 +%2E282E282E282E282E282E282E282E282E282E282859FFCFFFCAFFCFFFCA +%FFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFA852282E28 +%2E282E282E282E282E282E282E282E282E282E282E282E282E282E34413A +%3B3A3B188AFFFD073A2E2828272E2828272E2828272E2828272E2828272E +%2828272E2828272E057DCAFFA8CFA8FFA8A8A7CAA8A8A7CAA8A8A7CAA8A8 +%A7CAA8A8A7CAA8CFA8FFA8CFA8CF2828272E2828272E2828272E2828272E +%2828272E2828272E2828272E28282734FD063A5FFF3B3A3A3A3B3A3A2E2E +%282E282E282E282E282E282E282E282E282E282E282E282E282E282E59FF +%A8FFCFFFA8FFA8A8A7CFA8A8A7CFA8A8A7CFA8A8A7CFA8A8A7CFCFFFA8FF +%CFFFA852282E282E282E282E282E282E282E282E282E282E282E282E282E +%282E28282E413A3A3A3B188AFF183A3A3A183A3A2E272E2728272E272827 +%2E2728272E2728272E2728272E2728272E2728057DCACFA8FFA8CFA8FFA8 +%CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CF2828272827 +%2E2728272E2728272E2728272E2728272E2728272E2728272E2734183A3A +%3A183A5FFF3B3A3B3A3B3A3B2E2E282E282E282E282E282E282E282E282E +%282E282E282E282E282E282E59FFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFF +%CAFFCFFFCAFFCFFFCAFFCFFFCFFFCACFA752282E282E282E282E282E282E +%282E282E282E282E282E282E282E282E282E34413A3B3A3B3A8AFFFD073A +%2E272E2828272E2828272E2828272E2828272E2828272E2828272E282805 +%7DCFCFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFAE +%CA9ABC93BB93BB6F52272E2828272E2828272E2828272E2828272E282827 +%2E2828272E283418FD053A5FFF3A3A3B3A3A3A3B2E2E282E282E282E282E +%282E282E282E282E282E282E282E282E282E282853FFCFFFA8FFCFFFA8FF +%CFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFAEC993B593BB93BB93BCB59A +%272E282E282E282E282E282E282E282E282E282E282E282E282E34413A3B +%3A3A188AFF3A3A183A3A3A182E2728272E2728272E2728272E2728272E27 +%28272E2728272E2728272E0559A8FFA8CFA8FFA8A8A7A8A7A8A7A8A7A8A7 +%A8A7A8A7A8A7A8A7A8A8C392BB93BB93BB93BB93BB93BB272E2728272E27 +%28272E2728272E2728272E2728272E272827343A3A183A3A3A5FFF3B3A3B +%3A3B3A413A34282E282E282E282E282E282E282E282E282E282E282E282E +%282E282859FFCFFFCAFFCFFFA7CFA8CAA7CFA8CAA7CFA8CAA7CFA8CAA7CF +%A8C393BC93BC93BC93BC93BC93BBB5BC282E282E282E282E282E282E282E +%282E282E282E282E2E3B3A3B3A3B3A3B188AFFFD0A3A2E282828272E2828 +%272E2828272E2828272E2828272E2828272E057DCAFFA8CFA8FFA8CFA8FF +%A8CFA8FFA8CFA8FFA8CFA8FFA8CFA8CF93B593BB93BB93BB93BB93C3A1B5 +%B5760628272E2828272E2828272E2828272E2828272E2E3A18FD073A5FFF +%3B3A3A3A3B3A3A3A3B3A3B342E282E282E282E282E282E282E282E282E28 +%2E282E282E282E59FFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8 +%FFCFFFA1BB93BB93BC93BB93BC93C2FFCA93BB9352282E282E282E282E28 +%2E282E282E282E282E34413A3A3A3B3A3A3A3B188AFF123A3A3A183A3A3A +%183A3A3A12342728272E2728272E2728272E2728272E2728272E2728057D +%CACFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8BC92BB93B5 +%93BB93BB93BBCAFF93B593BB4B2E2728272E2728272E2728272E27282734 +%3A3A183A3A3A183A3A3A18185FFFAE3A3A3A3B3A3B3A3B3A3B3A413A3B2E +%2E282E282E282E282E282E282E282E282E282E282E59FFCAFFCFFFCAFFCF +%FFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFF99BC93BB93BC93BB93BBCAFFC2 +%BB93BCB576282E282E282E282E282E282E282E34413A3B3A3B3A3B3A3B3A +%3B3A3A5FFD04FF833A18FD0B3A342E2828272E2828272E2828272E282827 +%2E2828057DCFCFA8FFA8CFA8CFA8A8A8CFA8A8A8CFA8A8A8CFA8A8A8CFA7 +%BB93BB93C3FFC393B59AFFC9B593BB93BB4B2E2828272E2828272E282827 +%34FD0C3A185F84FD06FFAE6518FD043A3B3A3A3A3B3A3B3A342E28282E28 +%2E282E282E282E282E282E282853FFCFFFA8FFCFCFA7CAA8A8A7CAA8A8A7 +%CAA8A8A7CAA8A8A7CA99BB93BBBCFFFFC999FFFFBC93BB93BCB576062E28 +%2E282E282E282E2E3A3A413A3A3A3B3A3A3A3B3A3A3A8AFD0AFFAE3A3A18 +%3A183A3A3A183A3A3A183A2E28272E2728272E2728272E2728272E0559A8 +%FFA8CFA8FFA8CFA8CFA8CFA8CFA8CFA8CFA8CFA8CFA8CFA8BC93BB93B593 +%CAFFFFFFC292BB93BB93BB4B28272E27282728272E123A3A3A183A3A3A18 +%3A3A3A123A5FFD0EFF8A3B183B3A3B3A3B3A3B3A3B3A413434282E282E28 +%2E282E282E282E282859FFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCA +%FFCFFFCAFFC3BB93BC93BB93CAFFCA93BC93BC93BC9352282E282E282E28 +%343A413A3B3A3B3A3B3A3B3A3A1865AEFD10FFAF8318FD0C3A342E28272E +%2828272E2828272E057DCAFFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CF +%A8FFA8CFA8CA93B593BB93B593BC93B593BB93BB939A2828272E28282EFD +%0B3A183A3AAEFD14FFAF5FFD043A3B3A3A3A3B3A3A3A3B342E282E282E28 +%2E282E282E59FFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCFFFA8FFCF +%FFAEC393BB93BC93BB93BB93BB93BCB5BB282E282E282E343B3A3B3A3A3A +%3B3A3A3A3B183B83FD18FF845F183A183A3A3A183A3A3A183A3434272827 +%28272E2728057DCACFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8 +%FFA8CFA8BC92B593BB93BB93BB93BB93BB4B2827282834183A3A3A183A3A +%3A183A3A3A125FAEFD1BFF8A3A3A3A3B3A3B3A3B3A3B3A3B3A3B2E2E282E +%282E282E59FFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFFCAFFCFFF +%CAFFCFC393BB93BB93BCB5BBB5BC4C2E282E343B3A413A3B3A3B3A3B3A3B +%3A3A3BAFFD1FFF5F3A18FD0B3A342E272E2828057DCFCFA8FFA8CFA8FFA8 +%CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFA8CFA8FFAEC99ABB93B593BB937627 +%28282E34FD0B3A123B84FD22FFAE65183A3A3B3A3A3A3B3A3A3A413A3428 +%2E282859FFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCFFFCF +%FFCFFFFFFFCACAC3764B5228282E3B3A3B3A3B3A3A3A3BFD053A8AFD26FF +%AE3A3A123A3A3A183A3A3A183A3A3A2D282752527D5259527D5259527D52 +%59527D5259527D5259527D5259527D5259527D5359537D0628052E343A18 +%3A3A3A183A3A3A183A183A5FAFFD29FF833B3A3B3A3B3A3B3A3B3A3B3A41 +%342E2828282E272E2828272E2828272E2828272E2828272E2828272E2828 +%272E2828272E282E28343A413A3B3A3B3A3B3A3B3A3B3A5FAEFD2CFFA865 +%18FD0C3A3427282828272E2828272E2828272E2828272E2828272E282827 +%2E2828272E282827282E3A18FD0C3A8AFD30FFAF3B3A183B3A3A3A3B3A3A +%3A3B3A3A2E2E282E282E282E282E282E282E282E282E282E282E282E282E +%282E282E282E34413A3A3A3B3A3A3A3B3A3A183A5FFD34FF833A113A3A3A +%183A3A3A183A3A3A122E2728272E2728272E2728272E2728272E2728272E +%2728272E272827343A3A183A3A3A183A3A3A183A185FA8FD37FF8A3A3A3A +%3B3A3B3A3B3A3B3A413A3A2E2E282E282E282E282E282E282E282E282E28 +%2E282E282E2E3B3A3B3A3B3A3B3A3B3A3B3A3A3AAEFD3AFFAF5F3A18FD0B +%3A342E2828272E2828272E2828272E2828272E2828272E34FD0B3A183A5F +%FD3EFFAE5F183B3A3A3A3B3A3A3A3B3A413A342828282E282E282E282E28 +%2E282E282E2E343A413A3A3A3B3A3A3A3B3A3A188AAFFD41FF8A3A3A183A +%183A3A3A183A3A3A183A2E28272E2728272E2728272E27280C3A3A3A183A +%3A3A183A3A3A123A3AAEFD45FF5F3A183B3A3B3A3B3A3B3A3B3A3B342E28 +%2E282E282E282E283434413A3B3A3B3A3B3A3B3A3B18658AFD48FFA85F18 +%FD0C3A342828272E282828FD0B3A183A3A89AEFD4BFFAEFD053A3B3A3A3A +%3B3A3B3A3B2E2E282E343A3A3B3A3A3A3B3A3A3A3B3A3A5FFD50FF5F3A18 +%3A183A3A3A183A3A3A183A3434123A3A3A183A3A3A183A3A3A115F84FD52 +%FFAF89183B3A3B3A3B3A3B3A3B3A413A413A3B3A3B3A3B3A3B3A3A3AAEFD +%56FFAE3A3A18FD113A183A5FFD5AFF845F183A3A3B3A3A3A3B3A3A3A3BFD +%043A1865AEFD5CFFA88A183A183A3A3A183A3A3A183A183A3AAEFD61FF5F +%3A3A3B3A3B3A3B3A3B3A3B83FD64FF845F18FD053A1865AEFD67FF8AFD04 +%3A5FAFFD6BFF5F3A83FD36FFFF +%%EndData + +endstream endobj 358 0 obj <>stream +W.+yuL&}Dt~Kw7}jM6XTi?Y{GDRu]]nVk"nn-:v'~0y}ރ6]!'CNxwvp^,0^vc&=txNCgiw7}BIw~AmOzGzGUu3 w7 +ܒO:<#9wOzwBJ}bs>`}]i8atvVTjrG݂6~ e^ʕ|E?6-/*eӻxPw8w|ws:; 4rw7wi|Z?bu3nn(I`=}{>h۝:],Pi}ew8=h۝ +>n[`V|DCŻ/`$TCeϹb8d!Sb*bC2Eb0ol%~x?FYCJ{oJCJS!v;>Zl?Q`\Ն[7)V_WjZ~c{9o>l:U+Gճ[*72"i[qQ9=*L|-,G +A\S(s$:(9ٸsԦ9xQwh0"REqq>{{v5m.|wro IGGI`w6_.WȾNq~zUY2̱|$L}pyQnIkH >DD+ 2[ "g_rzurZ@dp&GQJ%܏9HͿ뀆|N06 +a4?0|Ro1/xgn'oQ8~Ő #3TuX=:@> 7vMV:tS`|S_ hz|rDX}XuMgi_J\_6Ob wVu +'=*^Ыz?BWb'iZu"[%J,l%j@)<DaniuC'gvOL}#kիbz[#=!bpLiD&wBqS&"p~̳|pdz`"w\rvtx*svk^e\waݍ=J»^w:ntm_SE3nߧ,c m?c?׶EnBKkFJGe%Lp2˻ZTցBE}#:кt8o²n:oysG,qBM 7埂K׶+tބΛAIZZh\=AT*ΫY~uvrU*Jmr Z' nԾ:>]~ t D-~9eeu܁껭H2,vf+ a /VoLvuށ +trzJ~a\֕@Ce{c!z}qp] kGj'r8:H-=Nwv^gCs. p.`,@}*xR#6U> ~ xagoCB +ݰN;0}ڧ}ڧ}\h}ھVڧw>yz7,>344PC54P?Eռj'wD1R7/JȢB{nԾ\Q#Ոԑ QXGgFR(s`C·xHAI~3C$KB/yFtP{[/*};{ܹ3TBK +Z}lE]PGL㱓\7٧DD}y(DԞjH nPi-6A$jvzurZN?掣}#kիbz䞐p>@އOdrL/=%-M+cۤ:~Ɩsq럵[d>*h@ҰNw_ + Z}#>/2kRM?I,}y{]0Rkmldos~>qn]{s+R?cyߺbWΪwyΕ~;g[0l ~w)D?/E:8&pOwW#:nU.f=ݗWZeCmMćqv\  1n`b1Q, bR>êˣZ uN/ +)~r0nwlO&k^٬^[D0ϜLL=L +m]L_8?+SjYT*ճ_>l?WޜST86I~|NV>x ao<|{c"Fd>E?JsaD\DN +cP1p~kϚfiR7,GMkDmv 5tSK. ۚ!+i9 SsՄkicmzF6K0+alx\$j`̨ܶb>'c4qQ)b$_&\3ŗYeGfpm 7f|1bhFijh4Ԋ iFz̵L*6X1tW7M VPX(]qVˆ:L'z$ v԰I"&l˶h/a al]ӍeX0u#&lF )raw0MKp<ل)"L&R=p({#o,/Cqu˰MݵbkK)\.H;BBf0/qnJ7 a {p?%wX +خ&غė8mx. +8d*}h81|uǀMce[aL kW]>8 +h6ƅ1"qב.F;~ј\!i_-M VC %/;ݨ5Nh_0h )\Hw6\ @9Ll3sT&u\vx.Ft(5X<|pXaiN $vLf&҄M$29s%pcol i`1iy_:  vEæ؄p ^C 0 +qWWcKV .F ; $ a"qh߰H AR +xbѿ5Z1N:@^,Kc + kXP bpcנAH C@2 A&K-,( DgY RAF8^l?^k^~pfAh4ft +BևXڅUD Hـ ڤj"Pa+u +\ [TK`k D8otpk[M nAp|7}Z a#Cq`uRP(J%G4eh[1-!w͆I־[03@Y뤑-рzh94mT&7j +lٸ+-^fi&#;uE%7US!ID lG8HKФLJʃ8WPMWqg +(-n`m {2 1a-4vŅk$z %,*۴-6EIGD1rSf@S& qJ8yzGI5#2,Kհln i840 r!Q%o?ɨ&35ю :hitIun)tti.!sP@hϭ!2>"l=>3I#JT]MZ]"&Pv%n Z`ИpВRH7mL'uF+8K*,R6Zh6zc70dEz.D䚍:gV x€˶j3Q7IQ>ZmDV%NL67,E"*+%@=^lXIetEWh{}Kn>| [#BIX#vuD6L (#1['lG 3tf*Rht$ +.'f%TDBqL +Ds# KP'^BKgʺl1%:M2ouvHq].1rFeeMte]%ѐXQMz!|QÖ㡼N):%$_"gq'}q1A jK)Q@]*ɷe&1r tY @e'I!G 4jX(~ G=z1iŶI@*iEfI !WZJWWxi\[a׫[ Mc*.ZItlP0{dlǙ Er@TRIPd:ǖd8h]YD exki RC̆YgK%,&VQc3K}:%s!0a`, +bld _A] @,"B h 6j0uaԳ݊\}TC$GHO44B! 9N%"!jKU_A]x62 +9 + ^0+7. +3Iiܓ\@jZZğf+Oe&Ǡ;,]1`mtOM>)HNɝJȇ (IJk&ЃoBr,F%Wc2Cq̏`_WJZKQ?nYcPy}G!k0>H]#ׅ@ U#hRP vMш F:..^|N$nAU=TP نj$Yni?dw$OD w^laz7hT$bp8Q{t DZ\ֈEI~h4]XV# +a4MNy0(* Ci&؛fW4(t+ /3 h•q0B@N \FK`[&珟cMa21Q1Yަ:GP2tw0i֚zI +ĸZ”4َoKJ\{ZN`_0]:i@j*s`yZ<'y|E=ǣ>%M` Q91rрQSLL&Y *(QQ. ^4#w.ނM+.Iؒ]:B]|yD;D8"3 +_ ,J1}l9!]떠M)t}.s⡅AKҖv'5xH}q-aJ~kϟ,#'beH ++%}URHCȄ`N` T L26R}  0Nj#u|U(EMt(.bj)%]>@6-ԫ$HȌ07ڢقbv…l> uA6Y"%"(t&7$tNAlEb?* P @U) J&)ٰTY(3,*U9]$THM v? lnq.I` `s &]fӎ7a8@U#"#rlx*@U];]2**ˇ~.&rl'JZex$1r3R\whu, +xIȭs.bKxIfi!j98tT~no/I3~HȡSHC*åG*ŀx]uRؐHo ^p?E#7H%)9u%yN5r!QFwFG$q+N<ߩNE R>@H libn?)$x-MڔҋO =B 6o𻁜+JwsmaP*O%4߮>8BTi@J`16(1JęzǪBF+8s\ \Zi+y`;H#$/zR"ard(/y@8Y^[Oj.0=)؝n{J&q3?וWPQEh*ai:砑8P*O:'O ZQޜm4 G&z – ȿe;9S#W@#+D-*Z-(T=8 +f%zOT(rQZ&I c3{)#HHW80(Np$%BSJÊ[0bpӭ ,=\JFEZ,Z::P gėHg9Fc'49'Cc*I#R'8YC(?Ra9YRhxVΗ-"̟xnOy@"O ǟǗLj7(]0"Q}V{`_zm h5)\D-鸞bϗѻKnn#Zfr{u%ϼ$oA@`#Ih/9B 4hl0fm%4Oc6qj4oe}F9޺Z|ćڔgҶ%w|Yb%a=QnhPBo#w @YYdPuLXU?Lc:"oMycǢ[%E'8CTnmFnY7rQ\2a +GAeX9r {e*#0pbn +cqP`ItkQ",y*]x@HZd[EU8e:a_w2)OطqO6on`8qAFyv(=V9 VY*tbkŸBDasa ї`& u9ԫ.9=q% 97$7X*e:K/&ĝwXbpC]PЏ? kFt+\\.7\G$r9`O~T|1=2=KS<ȗ9T *gˍQpV6g%RjXf9f$9+HtuTZt.YHkL5& R8zKf8n ^ۘYȼ󧛱;%qQDK9h`}>BNŵZLh$'|v +[uW&.SK):^ +,u49 @%$Td<&}V?pJA_8P}{5iZ:9lNiϮ7&0À66tXf(Iucß@Ɍӗejd}$-(͛VS$Dxc=*:L44AFPjQ?^ ۤ{QHӹɃG8 k8>ҡ{Ė$P5ĠA>PN3 g.?4U> ]"RXA=f]ϱ<,@'})։+ynP"yxd@ҏHL2esљT0\1a0gDdHnHp d 1882)Uz>uLEq4@MF Lt(sPcφ2,5o@#7Xn`~/ࡉ>|NfQq@Se%GkܸH7k_敥4( _H?L5P4@u2"_ \ EbjqRQAFr8 ni䆁ͤlS) cPAJ&mPqEKՕ%[fZrl2B"-ɑ-@rS),t0ڿ/DDNӛl[AZTɦ6wҿ~dDHN䌡X(L2`Sη?%9gLyѴMYQs TS +Q) +xH ɚSyھTn2%@f"&*x\E(rMdjBZ &=Z*Y".A&9߂V&K#:x ozX,np\?Rذ[ -WF2?H)i`7L: fO, .W40;dc)\, +,Tlke(Y: ~$mӲQGǛ %7^PƕlĶr%XL6GmMBSCw5FjEsϪ +f^ӀHeX8Y6)%læ?'HRYZ).Miۂ_`_evr 5[>#WUL + +1GjL0N`ȱEd2 D8cYuRi`v buqؔ1xL{ +7_Ew14С8RY;x}CF 撫VG~ vfw\D~DCЁ̱05 +j|ׇdcȬꞀf~l'8;lɒj6vư#Vr>C̦?fK6T կCWu[V$LT@˚`!ḷBÅS|,V7,7[B73tG_h"(=U +؆ +6 Jhѻʸ9@秃"A_a%[:յY %Gsju8b6]=}< $RuUD#8ep%ZɎG;1I5 Aw'+{(>9Oh69_!i\\+^-ߩc&Ə&$tHb4|0N:v%+la SVSR"Ŋ':%+&Au}HZ37zy4dc[` 6lhڟٚ4Tmf3|[`$ GjTOTA C3h % +P&WͰ{v-CҒäm1E߽䢣ZOkrz s9kDM i&O:xྀup_ud`" *j[D64!]$!w[k +|<iڷO +oO.$`YW#k4G5Pt4ͪw_BʴjuwD'}+pw-I3ouBA:28tsz>=~kbRk(ҤY=w9 7` ,dl[-ೌ[nӄѪ/c,+ 2{uCV0) *0xז2pnVǎl&|J}kom +["nB<&[p{p=wnx_+*jpkUxW^WtO/˕r|U:;;E=r]P -J7s@XEuu4 Cf'z1 x5C)ᶾCMMEWvU59jͰ.IS^[` KE\B6}ipK괺&ٶl3-Vv)Óѩ#e)u mXH8Cm뤀PkPutٛ;2xp2Ӧ#6 3vG#9 lun,vCڦޏ7T0i~8JC:Q_(ISlXض]:,>sjU?:W![ae%{!>k m?Cf2 =h-;@ዀ臃fly٣Bp $qZHB703#َH0NPHCL:ThJ,ƉIZ{6MxVU}mgeP/#_ieXo! K}~Mh{b<fa9-M\RJ At K|z:6[ILxSw\?/n=.tͲvYٺH[LO4Xk@;Mt˻b{ \o\pnc:pӓBoMӤnlfhlM4y߉"<궘LlzME `\PHvF! +r`ºgHJz+y.(ٶ1ptDS;`}:$#|Ȯ"ZTCZQwFr4nؐ {g\;P9?*3k<]TρNwa3ZL1gxNe㨗<ʥX`tG]P\̈́kG U +߳U#Ph )ڢyu>;VGZ%aMl +v + )Ӊ§Vz2(A:@C6v5җ!i٦W19إ++C-HȔEu\qs6йPn]rs: Jjm"%jvE~dT|$M$7Z(jtr\Mr  q ydXAbPBj."性Pev$K%-op+RVl#ag!eq[S{{2`~ + T3ęTJB0f($`O(j p;UX;ԘD|eǸ wV'*/ۥ;J!&U@ZI6@1L+ t c&696cacdx zdS}AOAR8O$j#*wIjʅ(S33*.UEQkBp@fX7KU YZ%`n4{TuaJBVsjI>` Bq%X"El1trֹRZMN]:9L-l~3õuBz&OVN'!u뭐*T1'd˖I43 }7txY-#h_ {3WB.ȸIbH+.ߚ*+P5c:zlS[?nQzGK~s8lxe߹1>qP䈇I\`-PH5L#MxwkAl_%%tAF'!tKAz$NEjUP,*;`tCXuAa&xjRʾ +L >!𴳇LxV-tؐSexz E/ (5m[I B$P5ڠ.AF@m IMWX2L]RRʼn֍3K1K@mJ4G^ŽR\.CO$ +aԤG_# TǩPk3n rbmWSj-;i%o-َ-QPaD[kcs83$uY1"FjsФV\D+)oQ&څi^Oo.rS!Q$|=Q!2*FExт̖ZCaIHvc<^G>Rc`[JVH) 02M\҄]n;hS3?\I¡.)f%p +U|ZU΍l볓`-Xmu)& fz=; U(jt.ir UwzZuҩ B?4ٖtXU ?ލ:V)R@kOr2$WDUϰHNh-٢kArL6Ψ} ZΌ&bd(W:InbYKyH@˄ VCzc* +/ѕ\JriP1ru+\+{Pjj`씝.^v*" ZwsՐ|![R\X?ۘ0S @?JUqmTbOyе,nhŭJq|Wp r= \z3z%c0o~"#\AnJ#7E ԶP e +0:;٩4507=EGRFxF#i(T(f!%7bs ieFG+MM_bT:\HwDFP791D`C'SFz8"1PSGJ[&h0Iq94nn (tmzT3B&(X[ɣE6 ּj*D^V/IčԪ`0wEq]wAM*;API01As@ +AXRt6sM8`-X^xY帼 $ ē +kw]l6|zT xCK9Ai +4WЉ,^`SgqU)[M^ffӷ+h^3cr &]D"& P)q|"$aB>!ub:(uE68bcB-qB nכ)lXA 4K/ʓTlƏjcc*LIx߁!׼kr16q- _6xYge\I&8ʆ8 }tuHģ2Q˻U##$yw-BYj d;njk;|nfiPG ,ͭސ۰67!V6kqDe\2w]h|!H煥j%-}Rz !*PL7ڔs8D(Y 9G +9h;ѐc*"w/`Ar҈!#n߉-Lum% Fޭ&#%` 4TΤf7CC[L%XTfAhˉSӓ|zt!.ꅴC޽TB!%jDueᅷO;<3h&&!( y}iͣLcCHg!1Qzh  !C7d`H)<5ԧVOѽ-7>H<;Y( ylJ{6H: IXjI2|3:@f\TRS4ꩁC`)n9%6&.7j)q}BSmu'dvebPO Cy7Tq޽j$zܑ+k ݛR /,W7(H7>_k:EY8i7d薺X,m=N7<$d7w0Tc;9$]i԰]60 Mu<)_S]6#ƺ:gtpu)CR[~6TܮR:*E2է!,-Q_!6^ͶH1psHan8ތz1(\t;KtŤYdl`"5m7Rd`]߈pDEbrz`S(r +sQ*+Dphx,/! 't|ֵGC(crhΤRe$Hc02i"%(cTB=|l#OZx#.c(t_+lH>=o:+qwJ! -cN }sP˕$dA RdF$Xtr0 + V'0YK= ftHk0c1bYB6;kB6 aB:j:áFPzfy4@اh(D.yI\ \ MYispə-v*K“-<"ꃊ&U0DRxQB"( Fy<<PA^F :S.2uQnp,΁ɲ҃E jIuQf7F\`;e/09 κE "]/0S;CSgf.颕X>Mi[b`ȹ,1.s.6R?6A]l>GQ B6g]nƦ5pA5\dyȨq`Qc5O:Y1e,[و/(5D%Tς*\ y33NCFs=UAi61Fvc?Bk|p4ZekZH`_b-7'mLN ;`aavNWprj)mRlu5es$n:> +{P뙗V[LstzAע9y5\࿍W,Bqg{Ik|k9(P瞣[йDjcExMGWxKdlJB=KBtEFY5cETEx5KdII ڦRA*,.QstUŸN)Ǚخ+!LBe4&4WZmu."lJ0Y1#WaA>}Ђv!]S-$9]DŽnC92ͷz׵wx(xm}O[)ͅ$@rdzpL{MzgLӭ`18,-b "eYBPiH I &4e×zlqy!rhN!6AIȡtuK<k]vB1,̐k$\+pR"ht6Qq?G&T|nX4u _ޞvZ +vVc(!ϔCA(a| /IPX_sLiUy?kgc&S}*`LܩAXTy GXqg'EjyIi<˃ 8&1V)iNťxq+ }Мp3D( WE ;(5r8hAWS` .# BFks=9(Lɡ.暒huVcK.(n +!r҃%sܡqGrGFˈ2؃֛;)&GxDG Rƒ9lKNFcؽ<@l]Ql`$}g:Z4G8Jˤ*8x&1ILRzwrZ.^/O>Hƕco0~1wze"\ @ +hl[uL 8bМg,K+삃P3H\#d׆9 Bɑ[$:8+{=bj<9 +1C36/“XzS8a{ b!gM+󤱱9x0S ̍kaOc@*4N{IdE ,ϣ.#!~6 +sM%d<2BOez +MNqܩT@|Ru%kQ̘ 3Qb²7/$"OPF=X/*b!$?^llEbʦ|z@avu׊x'\y푻d,u` z$fbs+ hqP a  ұ(>ߧb =W + +h٩lg}E:)dj38P +fyċ* r= +k\AYVk +P߉0[;vXz3V&r#bܓLuR'R~0:"nbŢe,j +evᖤs;elrlyq%$Eo jyĘD.+@ M1*pp9=Af|hQ6 %!:}a}p@ .T gIU?",l`卄Kd('΅=2`5&cEoͥRz_W!R^aF^1g+9|ۄ I]f uI%i.ISN]f uIaKბ^$Ͱ%iRH]fX4%iʩKh\f^.ɢHf uIaK .ISN]"[ڿAK .I3$ͰԥآDI3$@4K K]f uI%i.I3$@4R9uI%i.I3$@R..I]N]zXKR.9P=RH]AU$@KRK]}}LRDez uI!KR.I=@aR .‰*%R..I=,uI%Rd.I=:w_$.I=$@RH]j uIaKĖz u)\K]z uI%.ISN]f uIaK .I3$Ͱ%iRH]fX4K .CRsJ8ta!opnd,eȠSBN 9%ZrJN  +:%) Nl؍My!N[JN)sJ;N  +*sNhl)!̀SBBKN q%9-9%谆N  :%H tBP3)1e1e4r蔠)8%h-SV:%BВSôsJ[9)@S"$@6(?:4ɒV1Nb),} j +РS:%hKB3nBD*N2yS"$gUN od)+| uAkeDN o{e!8%@;%iI:!JDHؠ Y Uũ[< 䨨RM!C«9 +~oN8sQDP056T@+. +cPEIP|_A˴U &FZv\. +M*v. +k3#sQ8#w=(TĢ PᩀZ.C\ƖwQP2(C{&M92 T06U(ʯ:EJRp2 +c +{(9Caqk;;C(C B+f3)c*7c[fg9H +q~y(b +EN[BF(rCl?FⳄ7dd|z=' K  + A=֘hvo{(׋;~0X +ZBSI8"< qi*Ngy:( c46q +c!H @ +u +űuPvfnyAaj(آaN{'sX05u8aL 5V7] ;'bwE1}:'b ׊P,8D\KI.|@s"*眈/uNN U3ݫZ.ZVߍ&8(=ʑ`2ZHm<7<v~ɻ2™GcEkm|;r +J i-Z)U-'-{5a5E 0{ VRY*R$rp| KErPYZ@]f)Bz|}B0T8v\dF')dp,It$r?Q]ĎWPfLεvnr~A-:O|{kC ++(iJ'B՟+Jeu!iH[ˣ#T!jS&jr^C89_+B8^ěHlViK.gz=DޔAzV/X +k"+3B;'z:@ENfו9><4pc*,MP[;&]$y٭T=On hn"se@5TC~A}p=䶱rIq83i +Һ} +?;Ztg$v 9soӒXտ𴧎4sz;iCK,c5 ,jH1M;ܶhEi-f^`(,9m#\nQdyeBԱnR[7Ǎs 1tT%l#-TŇZ_+l#| +![^iFpk^ǃ|.~FI3I!Ux1 4i_^ʀsd@u`^n+EFHB(]V\x-#pf`A)> Yhj5w#yD03 +sZH,uĵ"8T'YXQg{:GqɎ˕dKZM̬r˕S⒫0/ʔ⋯I»oJ[IJ4҄ٺRBzhs+eFv!UB+ʈyàXUV(Egʱdy"D5G-Ɋ'U޸i B*@$D.(x3y^U :=C絠b!2spA[]X@T5=[(r|`^ +pCt!!d +H Th !I7,}"=KdQ"2c{3xX;PJP.C3`^[`^e{"YZyEU3{>(n8h3K&ަ*KuFlr$02mIAErGX(O0P ;m:i#d;oBH^ʕ /_ǎRy#e: =SD}dyX'.TH*qN|h %O(hݜ|N9Gat)/D/uOp!]-_R*{$kY8$p 7STC(D2 آR%-RZ[)c#˷#$3X|nrnLmR824Q`"S(h +|c䌍xQ +^D)^M2D{NZU~&=dDp=*c]vGiab6@0.O4:ٔ&38rL\S+),2(M:Y .d\q # +OלO=ؐa|Fh1la(pttP$ؗ FN^1v̔cY;d*L H!) BС8#é 42OMqyGh??`\k<ߜ|8{Ozʬ8p&\>W 9 ESbP45*zPtLCrU6̐1J{P}/aa8v;ꝸkd˟w{f_j<*Uf:Veb~M母v{8v~i-Y]|\d FtfH3 +$ |yڬ_UBmFz>Y6!Lef1ⷋ7w(Oxy?E>5Yebj~z&v]@S[7&*~q9cc;~ߞOFAQ' iaC Z1V=;I1zi{#Q[oB`sr+k6:j2i`.WY-6.T +l%R?/1Ɓn5{xGW!0ST x" AU0ZV.<@#jUڬ*'Fmcl(%*ofZ\ +UÇ2wbPux+VtbQZDci(.dlL[ڍRx`VҶZsH]W*g1{0CS{p6,G%ucH{4V3El!S*S{xLGĪb>LH`t; + ꢥTJ#f9K[ ix`g\/Hmbbu\xŤLOqMuw,XgI?$ Q%@K;0w0? 3x~)$…fߢ\blNbpTb)  ru4c le|%<^%$[!~/fw9۞F>4mD%4`6F^42`-'J &5ǪIIN\DN+!;ykoEҧSu3GZ~q%YL̘PDKqWpm!_5~DQ۲6%Mbum^.܂+8`?fO#X!^Kᡁ,. NbDL`WXژ^ +Aɣ%JJ9yST<㋚Qvne1R؈iHC#DiH p?Mk_*eZQ?4ٳp~uw譄iPasSPk1#Nj4Vp^c>Z 2у-]_c8%N#݇^,%MʼPybʼneQ(F#6=S-? ~W))Qo!?%bxȾpA@}~PgBފXB%1#zgUH ޯa2"3kJ8jDa F&1;848e 5Y;p6IjLdІK~:v[ۑL0G>TA X:ߤ RHchoHHǨ 'Xו:cj&V&q,(L..ydE甎nDzh ȻJJ4w6睪*n@ZrUpQpDv&TVo2,e# IdZmŰ|T[QiVb&@ߍil뽸Pz#WBiQԪ%4ԨH{~F} vВŊ{eKJpZ*#!@E}tVVԢ~Pn֡m*7RgL08|^09L.+r3FB[h6 KF:bMDp0'YOP:܀vUx W5g* + e+PahW]&\ BӠiGbҗ flȵ\B +{I]a@6!yw +uE *]y x \p:X^:ז9`TdtqAsM7}U-Pgp#bJM0m nWIjk"2۴<R!b1.bL?)TD@\ .!P>TkM,H.Hn04)QlGXAlDa [~J+ D +X+ _\s73+cm1MV>-"L:MO7+|r$ɀ"){%$ٰ՚SZw.@q IKxUf&Ps1ڪ1a/HmBgM:SbY2fHFEl(f\@TaTe*ljiꝩ-43 7ϠƖ0@zpKƎg5$Dn +-Y'蝜 +iD-#c\l-Oyu&jE>:(%Mld [,I/f8d/ira +f:?>WK.fMx{QC~\ o4 rq( +@"KIv\nơ?hSSqJ+J1#k{dXCȕzCdV{@A wbj\*3?hbXF̞1⋥2DD<VE.^NjcWhIΨ"
*!$ QJ{ccN.*R+HvqǛ)7D?ƍwSr ,Z(+9ѲgtYЁDFȒ$ʝD{ /bO)>Njxy"F$"KhJQ:YΣRj:3& *ZP)A˲n2%VKJam o.W + +2HZ v.y.iY.tMdjܻ1GA:cO m5YtW!A<88-3- +4/@?lڗD~CUP_.+%2(vH$GuvX(]wVp,l$.al{wj+IIjb{P]ۼ <r +2ǕNq S=F!:e):f@5oQF^pbҝpi쎑(">>bTAwݪ8Tؔt$T2G")#U(J-NE^|Tz += "cYIwI'Oa' )@H-ѱʔq104Zm8eQK7CfbI)ϣxr\3` *݌5!;4_iFw!?RqXW4 +3E$%V쐠VJ;ə{cI#2& *qd;̣ zS~*AGsE^} +ĄяR&03f1XPKMD'0bMU+ +P)(~B +ԡc˩EN Ynrc䦉8_u!$Â)yi: +)Qp6ќ )<9uQ}llzg7a?2x 6c^#03xV;RSAn`IZIMjFZ*IbaFhYb_Y֣{~qX 4V@E-$scvrwIz[$T0)7zT +է)N/`(c'R.&I^@{L˔x661eDvc&;a=č%}Gg))&md0 +O><vt%1./ڣvJ)dƶ 5:90gTChcRnG])bdŶfB'W2LIx21F `aLaX 4cGmN;Y4me̡z!` +уEnEa?]j{Q1-u50ȿ.)e<:2bT BF D -wkBRo9z),ɅLP2@*>HmGv"~:7?R(Aay/XuHXGbBg-}1 xlY Sӣa *O/Xb&RUO +! +h:+(T"qLSCcю18EM4JilH0{%!9s<:㞗N&0QH6RHPA2%hC"KF zWNq=(X"0Z s?wj|DcHLtH#x2a$Z&HDz%!'d]UJ)gAG8L :SP%Oӗ, +*ttĬOV<~<5D$poUrIT7R$q5) [pɘy(%P IcKȳ (4 kJAs +j5$bˊ|]tٻ,ll[@>Ltr2mU5JDeTJ7#Č&2g(k`P}- ̶̤Zb J)Qc +*ں +s!ƈ"+ \`H94NQî\7yME2;3r1%TRr~5h E5:93d\?hcx#b <f}S4$2{ISXr԰&7?1 +g +;ŕ {z)O{zAKoۭK'@O?4* ieޮ4Q;?VVyҭ_6/3S*ϑ*f'7 k^Xi_6c~<<{ ~ xZvVeҀGZj t?tomv.3}nWvJR PXH+,2Ѕjл`(;Gb\m.`Le]?oU♊z6SOR\O/"_֒Wy<_*2xR!KA' 7@R N%n2(ÊU 3"7s߷5㫜}AP*yX%c6Hƿlb8Qct8r vG/\UҞ~\d7;ZOYow~ioN̷; df‘Gnf4ܟgrlǡW@4~g 25AN~xUY4:ffobZٮwC?v_3IjmuU:v8Elp8SRC:`% `N rw#L:vm54ʫnJ,HD&*>8V{H۟Њ+!jz)8^?IKk%:n+xp>|_Y>F VO{M!q4V@#]W'C5%jX~}vrG˛j5yZ4 -+ CMn5nxpc[]1@:Y8@Ҟpȩf<ʜ]f_X0BB-$}M:/]Yqx?'ks[oәN 2d2-1(4e-c?gia %X';U՛~ЂB6Wd 󫕲ߠ9&C%.B9Ӑ3$Nl35 jˆſ_W)~(7a?tDǗ:uEma(J o`31 U 53O,R&$ FIZU@CSX@Ff_jLob[G6xsct"x7CH;ъHvqaqwT$*fX WR\l%Xja[qhRJ0&cMᓼA6 Y7%F}Ybx YB{d#Q?ܮ_fAi %j/G:ǽ-[h|d6\TvNG_~??l0(Oɹ,=`f;&QgreIv6efbI(Pce"SOF$"I1֗Lm/6A+ѳyDdqQ.qw⅙\8wB\ԛ%<'}L"vv,رRY~q6*ni7>D%j?dPF0޾#dmKQ>V{ZES:So9[ۍ!`%kX#scw s8!>l۫!v!Do+u94O?{OL[low"پ +RhRs14xo4r|s,vdLA)?(Q{\DuuWLb+3 +ۏEh~IPJUkㇼ4"ɌNW_kNcG"IJSL/eJDjv5x~p:'qOÉtD*D +ˈ; !?#/GׄW:f# SGޒ{6 +i ˮW.nAOͲ,TzSKT*" eIv:eA-#[){Ίrf36XYﰾſgm`e_ߋP-s|'}/|yXha@QA X`VXI[Bil$dS.KLQlm)2[⇷8T#^EV.`"XW'Ot<񟑟\]7 appVT+KP]m|QA8`HcdL$>qi&M 1B­g$g~;m.%.|2߹&Q1!FdYIj8z=9u=đ׍VKTa VI&("؉4bnSn;`2&_V 9m1n6=zb6md(,#Gb(PD[ [ >J  _D"E)^1R%SKD:ʄem)-. J*Q"V vnܥ@8@@U1Reဥ.ܬ4z>HBl +䃍Bh1l96b%>1EFALM51P8h;T6,Ï+"5 ; OX+|u{$]qRcCiEbj 0;5fSRy?T0eS<5d +nK8)a8nF|Zhl$A-s8@5ysD7\7i +hVLS<xâ0[i"%{K'N4'b2/ $ӘI)hZo pKLݍ-WNRdLʻt?Y pJ(X>JqCv-,nʐ0d D!ĦHh?Cnc$8e"jl?,IR{drIsJo %uP&0{"`ZacGG6͎2O/xФRI8Rs 6%*%Fט=E2QYI5Hpr֢meԶ IE2I!\t eȢ)BPӜoJfЏRL8N%k@ ]j0Omnj' :d +珇s4r{Ks'A4(l^2h @>K1`hdi%4"C ԐH«PQ|WuPc?&T9T bB%VNOSMV |MJ4h&pR`Gth +pJb: (B)9 "(|5}SbBE6tsĀJB)K8}!kԀ+c"N-5EQb& ٕ?}M(Z2- 4xVɿ˜*kdn@pN6(M:;:P2`Ef +,)2e pn]h.Jk:md +<%Rрĝ͔+Ҁ)po1kn(N7”Kq;O,)5Ƥ:zՒj0Am +/fpRai5cKC捖V4@sI'!Zx=)t1!lRعiē6nÌw +C^CdbPYH O$Y%l bD0q|戃QȬ\D * PCӶs48QB5` +K(opOcByj0ߩ$ 3d ]uRA1ШZA!> 0+ "1O#5U`/04{c$L .3{iH{/<#l]=X%ʷ1)+\+hyh, pRUi`EiOQ0SƴDb`m!`10PakɮA + kE +h.La Wdѕf38L7ASD-kp@$ (p\|0XrA@.E0'%dհAԎ=R18`7JbY57Cx3 +"6fSpҞ smFCPO5qsAzO+g,ǃmu*~Sԏto7pawLv./]*s6O~6?l,q+OvQv9gmp +.`#^ 3ɒH*;h 0If +6gM-f:!Ƞ$pA] 10 QD ڈcP`qʲ!eE]t3K=Ay/ۊB `EOmj@"'|Tn=NPu͟Vs5.RK("TXFTd(۟fYN3`㖵!> ЀB Hx0?h3BilE-bgЃj(xr@pADh&-V7dY&aN9H0ȿ=8=ldas  8\0'NL*4o"E1#2YRJQ:^bD'xrlؤȀu}`C?(uhJ$%ŃimyjB&b6C?L%'Zv(w 'W!#`w0:@Y[ARPCPrE^\hAOaᙇ~ +zd Li)G'/:5ص +^4(Jz+Dʏ1Y6yէy˸<<߁芧͎I6O3(.H#1vw_,].t۴_˿-tιgrR`ϼb:/=P Su,Ml~mw<<zl59(P?kt}Mi*n]JG7AJ_n/|PbWKn\^@܊/w@-"[ 5\BnT_}$DTUXlZ;CT@H֝rj9oz_3n uz\뀃FwmGv/_F*:/ ]qf_]dpԞ +.eIwGi"ܐEP;tڏHx7=o1F ;΀syAǸBQύEI>a ؿ\o?,zq#{Z83}:-|MdUgT^qU0N*F};lo] B87) T nvf)Wayj +^qtѤЧWN&2LQƋh]R5I //%Rl SZM eQ[w/?;+x9nSw@eY|qH4[P||؍0th*7HL$Vm1>j8촏 +`-M YM*L"&5"PLvЄCMYip7JW0]ʹnVẂNj{y`Y|-tp`LDH["ޙKb#;r?S1#*JJ dof$_ttz^EI 2ZEۑ !OXOBgS@ozj ̓~v;|O{:~aM{?׻YOٳ+l㞼_BAE&4,]&b۝US"ݣ&QqDqn|qL7g ?q=s/%{:0FssJ;Zr} 8y<k\Sĺ6l0._G>X UFkmo^euDBƘf?z3Y_n^rPPºn1Нey. U$?b~t?a2̨KqyOMk|׃fz_ _A*ف"I !+kU[s͵I6Ex+KTw~0~}uNbڝ_i)G̱Ho@8/C; ~+oh7 V^1>-{[7 fĚpA_+t ߾ibuc//&_i=XS)M%ld|i\/'g\Gڇ@rsvW0bZ;)9cv_//:_qz]##z_)5 n„?t{N_AJ54f{s¼&-zfbm ߩehB{xxy$0ck{ m1DsV +7r!uoSn-+oFK9/XuI&] /A7MHĔ$GfU/]oz7X=G/"5 O ezk*_qWRQ* ̵Gz0gZBJ>NӡR>wѫi>zr:郡\ӳc27m``k΍[(_~6Pꮛ0 3n>M%n<@B8)SR6*GlT@QuU~9m+:`p+-jXC0׭K2 +%$;oXQ hh oݭ`mX@O6*Me+ox!˿)No y.>ãG0q1|Wlaڍeay1K3'k͉l-fϖSg+f b1Fנ8Pa1,4i<"ZV/' ssjifq6R}s9fVݽ:?toQ?kl=z}y2qW;#ēlj6~/aQٚnupk$]]xXϓ8p :K.t!xsx=_g~ߟO?O0xm.ryz쩂>ח3+M,՞OiA]Ylt?/s':+3 Kj2[l΋V?=~_.FV/];jafz{;=~ֽKo/_5§L͏VOҚڔKދ>>vq(4Oӯܔx6;goV3:' '?kGm_֞NhQT-7睓˕+k[q~|xa24V.}zujM,O}^lavgrnaxeѽf֏trV,gsvxk {9zt8|nZA|pMLe<{cotw.S xu^t-̧ӵwjiassvG'b::)3Ցǟե= ]V>LGMy?R|sν;.FϪ4j._U3vI5;n5}ي~\:{xT}0TlU>8>j½;KŷGǷ/U׶.FӗՍӇSx`YY՗ѫO#W7Nqw^&Z_Ճ;գWGsN_=W\lV>WwZrdbasdlatldˑŇtǑh>;9 3b>{2>~727^?󝑕zdZkd㭑M==buz7ߩdzkr>p>z~b;]a/ё1tty7:?u:jhz^8{<7KOl>މVF7n{G_|z0=ztr|}v12Z߮wG';磟'f|t76rkd'>ފf?2՗緲woͭ_To-.[ͩ=sރ[{{nߪ}{xs孋jvu s{ӍSn??uӱ g7LIjn鿺uѧf|LJcգ?;z6V;ؽmvQs~[w6_^}0X=j걓y;^ګ]NOǧ3w =s4n^sbqzj|cm!rՉqj"{>W#'^w&޽N=ؘh-DDa}dr|q898=llM>ЫM~^MnΎ&_=YܛةO6^0[s{ԝ;w>gw[;:;;wZwwΚwNMNigjxݥT}w{fZ9z9z=4I{4=Yڋ)a`q{mbx3y*ѦxI8~+onK`|Ju[r}kNmU6jrib=Q-/vDn=R6NR=0z8OS#՝[}x}{VLl/1˙Is8}w$; T||,/V9{=y$6nO߽wٽ{+#U`_Wn^kxZoufxo٣'zw?5-~j>=\_OM|釯9|~z`'F]]=X:x?tM$ųsOn]ll?]zؽgfVg'j꣣g9|d~dxxta٧E]:p=akOy1?Y<>X]h)z[zU-;_<36\^HL.|W_n922;sO5F8}t1>͇u0.3`D}`_b;o?mN\saq˦0[}:>>3OU\Zɭ#w>/owgǗҕȳl6 x*|>1=>%wәϟ|3{:`ŋȻ鋇_lߛzq?>xypw{/\nڃlut4>][חq>|rI{|"o/wÙAnRwa>罵Hjd7y8sn.QM9DSy7/Z wh ~?Pkf~%Kqa~[~лe9$i}"$!<2#o=ojT7ً`ʪ+|`Joa:ۆz1u >.<2oW"!4Nǥ[cTYF^Jl/6,zX|~?)C򵑿LwE6c~EW4,nʃύaN|r7m~`Bھ~廯vOca)_Kk7<|M8dx7Lt +?ٯfx~SN"i=+{Ck?yMRV͝J(~?@0~Lf!C Z;țxڹ)i㋉6w2lJ{D7;graӂhQCs O31T(51 Hk^Gf3QZW;F6_x6^uGOw}eolbI#^>[)?qhweMP +6vJ83)7uA=+!s|GNI?`,/g76[@v8qRa ̡?US(+zh-_?':Mӿ3 +ϼU Slbvb``@n+0bV7YBs;ɗ +Qt%7u)r{?}.Wo +ڕbHR9T ?54 __u-MmT|b27ǽ«Ĩ_kj|[8qd`{+~?%":g\t`v' <}E";PAf-V5ڿ˗Rs7R&x Kq=w]?hV-ى3G#rwU-X-~m451 /~1>° _|RKvItc@#WN:P![>P J# k-׷ o<j+'꯻`ۍxvWɷz󼍛 zh?Y)Q-{6 ?L +bTY VZ>?`[Wy~+QEZU(e:hsHJ>÷EKVq. ;Ɋ,&K\_!;(q<~R2apԉ5:șϚ&Cp9gdMd(-wgd6 Í%\4 *yk t"h%ٳ ioH$(5wc`|$0!F%ޒLUkphFxǢ-2AF%k,zqSO|j{%d`d5>ŲDk&Z29)Z%ߺgc1nG Fd),m.#껩\y۶_!XG@\giҐlوY兤SJ;stzqPwoG`p]#_>Vr,j"F$2>ܩ4FXn9 ׷nKnl v㐠oЌqƪ0؄OwK޾U![~CF.'oBhO)4:Urt[?7|ibX6 h9j@׫xxQ:^h9ڮ6@ kRTct-R_ALõdsTz;^?.5c%OW ؽ%Pqs#~?n/)od_d%-Ip/r<8Ȗޓ= 9}4\ӟ݌~^NT9\oTQl@1Ph_QJ|FaNTsT-㕗FV-U7Ucˇ)l~9/]ū +%..kHYT &ĞwKf1o2υon7d}a LAr"R/n@ؙ:]7 u9}t.G9ipJ΁ndu(>cr9X܄9r϶rW-Ɖ?ko㳯|y2?L1rv:0Sy kll-  ?'3*T6 =ٮ{.{MN `fcBAPgǥE;IfLU*ݢMLzv@i< Jꪥ]]슨i՚9 +c}1,cқMYԇ%m)~=ا-CIIdr>ׇ2pGpۥNFl i&g\~fju|{}*K .'z㼘?_~.+Jfo~tUa:_w"AR.Og N&gcz4ly4?n\N=UT +@{?,#}pIgg@)CxHjBu Uk N*ѻQm۠K_5x" O-iˇhcY3IZM2ةk$"$LfNNZd̾E*Śq7P[g f_,46'DYt5U::X@v㳻J5໭J(`ϽpcuH6])<ەo^x*F"̧hOXLA}U][;Xo#%_.#ࡺb c7`3'ϭqEJv;6@0|?޶h[iN0ωw8aLӯ_fH ޿jU"4t4Γ9!dFG ;IlqMr\o[ d'=_+ +ٔۙһMt:u]/z);ֈBxVN<B[ +|6~Debm._k_4]ʺ48h_ rRՎtuN^%*lD0 [hfMθ&7#U߻So]*׫T9tU,puuOnW{7Drϥʝ?*a̡+Ej7LcinݑDAy}llm|\ W7+Ft_FVMn=ߵ-<r;~Nϴ x:򝊵:m>m?]A-=?qɥ@t?w`+L:RThK궛g+'_HvC .8W*[7YYh/ɳU5z#=<~c|cYkGFyAiǯ^+6uu!WݫT !{ooDObxZsc4-u [? + 2^{0VNS M iΧd[pn-s2p=-v!A;'xm*m>?.񪱔jsYpT_gdWS^C.ocƪ8#-a\&e~~) tVpʏv):pk}%eӶkjR/86b_,y=r-;Jĵ&؞B0>>5aGa9UţU3 ~bFiElJeUUTaEґ:N\G}S}\jC4:Џq4Jmpc`=&D?:`  ۸g`V @$W[Y- FLQ@%5XP&~:NSz) ;Pt,ھ>74Ǽ*uZV=ruc1?jjCXŦl۝D/e ꌐZmJ%FԶagOV? & 7>6iN^R:tG-8t_=ejS뒿i [_A{G:q~kߦ`yVjmw6GM)6 +Zw!Ɨ+H?7kƳ߻nt8v3Ź|GқZ_mޘ-߽>BQ~7L1gwBѓ{5^R8sJߖBIcһw_ JK/("Kk[2fzn+aV߹IUzuyxϔ+wn~.>\a]1ͽODھ!q +ǼwVr-az +pvJ* o?L{d6 ׃I VH#1RݼsbN-L\)xڲ0G +ˮgDS쀺" tu"lwB3:p6S|8Ao +;PE&6cv[ĎP*miCР2Mɂgc,o]^P_j5 R4x6_MI| TVyw'F'5 U zީxBNF^PkT?Jݰnu_=Pw"ð5 P 9/f4Dپګ7iPk_uS8)Ӡ2'ԭN@0:L|~'7w}a00|XP ,}_^h-?~WPL@jlbPhP[@%@U-/%Q( \P |y˴p$x@}extY>Se۽fFP띓9uAE0NPo[Pou/}b}'k,BZ; 0=9/С1T/ms,)ivwBrPsk+@Ә^Pj_C`DH3Q&&Y<<{>G{q\d6pO̡SP3U&f(܉w2&PQYrq7ѠGIԵa]Ufʍ!8zE^y,c-aȍ7ٯy˿$o'Z<9⭁Ly0RM-` z˫ǡwh/o/UviGE(ZzGW1q{qنϷcĆ4ʀCۧȩ-ioAgo uەU==?mo3[^V(6H mg- qLm壡Ĺ0-Í;}U]]5/ +=y߭b!}xSZ^u%ëY.= ++aZVr ~!k\x,d]0/9 |;FDC +>zB%~T K~z;=zB{CE?IN +P?v;pa٠-x{`P ~P7ԵJ3Ӝo\F ^<5q.ǩ(K67ɞS69?ٜK-KJ\.7o_գ-(4_~,%][r([BN&?:} \f؟v7;n\pBD'㴱{-DpzT{66תq'Vf! La7gz&A$Va4,6T7S'2!!rLgtX[R鶹vyn3ыZ i>ǢِcNRHƷlU iJ:ڷ2T ?ij +P*_ړ[.=sr =oyza)ʄ7#V7 +JeC<}pn0 ៧ާykV\ (b/iZ~6 !1]I? 9w("d3D><\w`4%+)8ݙ[c.f7x7%S~>GЁD6yDKc;IJwhBpI3DfB04NZ#T Be½4+yrs%MhŠa1l}-͵%Z#, +GrOt3hByz3]΢s3_Er|N:@ANQZmw3:9&A zN7:g|`dE,fՐ6y2ˤ":VfЅlCP>uG\(~ WX#N1Q?Ҿ:iѝ)eMmS_vݛnEY6y<K7z8Q1tjcRԷvZ܀ZD٤2)ݨ6ue@&Z\,tb͹CU.};˼DuTnЊ]g,KS"&f&p*wի^`,1v3 +׆ɱYta3}*12Q {r5MdmWU֏>p +Qu + PnӜqz]Mӏ͵ּld77˰(qYLoPv&rZ^3MdǛ_92/$E?-uT61я*-F I8+Q-o[braEߺ8ݍ 9lQCT)  fn5Ԕ5\NNj0]qS5 N2$el cjK +i0x@d6 ȭ,ך]aN9K[ #笧tWkZ\u|3wG=1 1ۑQUa65xLE0P,i;3#'2\mmţVAh)>fRk5ړ=ַ皀[Q{b%߆+:?;RsܞiS:|)B/j; :a])0#<4aoJh#{NX@ 3: 楳5f|zJ ԔF=,M;m/RiOM7x 7Ë`3 +@~d$fޘkreY`@U荗w9)zb>T{hx d?h+`#@F Ϲ9{p +2x?<ћW,-! -l7LAXQDs 4SwMlnݻڜRĐo} GAk#]^^MhǞYJ:sYΫ*P B$y(P1$: +MM-~S(M9AP;,3oesԙgỵ̛bOr;* ޙg>-38RsN3}"uyU/3O-3oezPqis-Pz: nYW5}+A$1\q7D}`VzuD <op W%}~f\q= +l$?gNf%Y$4쯗S +M"`ŏ״RMuζTG͞Xq3jҗD> ffJz>0'<;jS=d$ˮMyK&YvZ,$ˮ A&Z'@׏ q&ٛe5,If)M7]۝tCs=QA_l%q#Av.)O;Z[VSO)ożߓ:۲Xt/<'CEy[54ο.)a˨-+RIW.ý{@ׯ?^mw~~õʗ_ɥ'-ls7.mP]mwKBв^''T@wSQ=ܳWoPZM\[PW&)D{ +S~PkaO7ëlsS8ڎj'Èۿ4)` }vN)=oO?t곞AOyj"OgoL< iRLiLp{sW9hD˻iOZz4؞ZzYzsJ+1Mq1OR;8.ݬYm'3Cj=4^`B59b30lOERAm sp}%bzDcK05cxrhjfy}Jh]}YNc E(Se5ѺTBGe6Ѽk\Fc _Lfqkuyvgގ-v¶h]}h]}Yjc 5Yjc4jI}s7ѦZ~}CTcq&煴%7ѺVwznH=>ZW[I/ϧce}4ƾi]Rc,vi}A}Kl죱MIOks8)6r{RN`gNyQ0y74*ysG3|Mn29Ua5ٳQAP5ڠҁ+GƔ5B"ӹ \mo[4`ʚLa +T +tL#˄]Sf]g Yu.4xGuߜ=//P=~ Ji- t?[ϪDo +z»wirL$4R5g3lӽ{7ޱN'ҤpY|O!v;S#wY`w\.u?y.qE@py}w[1kmۿ@ז1ƻ] +2S:6 +`lhMlT ^ o)aM軵y )R6K2hX=/3!2oYWDoXվ;xYy_x׷k>tŷaw=]T +) * gՐ Z]?i#ә.lP9Dij ?bX߫л 08՚i߫QZN_6iPWH?A2mWok}?\z\0 P-}hG>yer 2n(i =aL ?OD\Ͽ:?%.ClוQ.r[j$#ᜢss\&p&lkJ-kиZF/EUxf+COm; \5vvp|'h<._$ fӰW.HxE]tkI. Y'q* zyA*mz;iݎIWH-Gޅy *sA|Μ]|"]=#gxhIbgws-iY IGNŧWrw傘e9Dߦč[ڝeDz +wsy5 zI3j vHM4Ҧd@g٦.ݖ97lޖGKbPW㛹[#ԖĠf"$#%$GZ#PKbPjJzĠl->Vw +Ͽ%Q_\VsY4}Y]VH-BKW/+$HFNuzzY!ce+,Z[Z-|mW7d{ gx"Z[S3_x8G1<Қ#TzT^΅ϲ0H{.<4NpJCZsR:ϲ2E/5)\ƅmVk V͙C_R=߅t6n;{ ]xM[Br K1 gj[V˅Cos /<ڌ`y#Vh gpmLvK/<)``)zѼvۡdd~~]eT0]`p.w gAf ւ]x.?3>h nK,xFFmoqAcٴ s vxtPp A.< ԋ,*(kէGпU_ w/Cev)fC{" {Cu:r iW>^xH]S\x8i1o;z!pmBӖqNCZSuBpae\x蟙\.tɨ=:gЏ,!Uq'\޽56Hf(OtQV\EE{e!Д3K51#!j!FzV]+v+ָ|S g}}HS vB.B(a*Xқ{kG s!^1̠Z`żG~^o*Luw6*7mj5 +z|7$uiWz0|mg.k^M[8dmMu74dĞ*cyOY 1ä1c6VdbEsk|q^18,y]Y[3h% WcF! +ҍlt:!i|>^c+2oPGO_~z<]Yv_&}WKP_ 0/i>YJ7w2Ue,|YjBs{5YnXe)|\8V2\U\S/n[-kLN4˯* i +֛f:M"W oF"2lvWӭg.pp^&oj d|/ȔIb۴xI&Z-۾x =_6|JDW;ѷT9-(M [qږ?Z|ˆ(0mʄal.Y@d\G_aW$+hv[NW^7UPfqIҙYNyVv\-cύѓH0q!L"prb3k= <˾nȒ<60ʳfV@`:6Vh,fEN5o)ɆDHWu'MI\o]w< s6zKUl~l_]pIQϲkxqcOsGE;28gkkٽ*-\1VJlZs051,oyDس䷶X%S}Ni1+)a'֤! #_[ϛOy,qOigM7x ["Kiaϊ]E4LlƻٌC5?%$  4BV&٢uH+DLGi)uE$JO\ΏMJKStL<N ؐ!a $dX <R$b6$z6HiOizBVKM鷎nZH@0&=P!mm.kx,$=!37wB/4#"oGs9K[*sH։ תGEǸt:[1Th PZt itJc(-Ai>LPZ2:poIJE3'YX&K[+[D[ +:Ԛ^ tB߆Yd#8k l ~"b\`y\ܩASIOc! l +v^1y,D[5q29|˹eœx+&oXĴ=E9ѩ\g( +V@ioLZMS<ًOSe˃}~_:/60!r==$!SZʲϖ gaZҹ(-d'}OBO %i-1vušu+[.S7ϑȟ U-em^}TGg}$I{ۦ@D>ˇWВt@97@s.5#{GLm!!U3,R"[&Y\H";=;Y 8}~ +'ͽ]=`/:n,ux!lv'aoIupq}ib=-Lh1 :#3<{;DPD7屪$5B|~ XϠLd3_!ccx{w7C+GMx/Xz! +ߞ0no{K\1/Eu-s*Ts~9% ,sxv:/@?%A(_|+64B$2i +/> 4Qe%mV0vC 0YjS)yJl_.&C0"&$_ m󋔖10N5NԒ&:JEuCSXi,}&w;}="6Kb1ԽԤهb=iWvz^jХE$Snn:F +\tc1ymwҿV8o|g(E9Kڻg޴7K{I/7I͑-1t6\*m=aX5 z7_ _קlӿ7m{|:H=OcEm/ ØKv7rPF-Y.W ST~+zx}?w7 ybW}񻀟 rP ++:\Kq%ZÄN+#!4nV++f8-ʴ'3[=N(AtJqUv !߃/K)|WQ7.ŧo +1C Vxs0J8rB4GlifMݢR 0gXE$ Lz`Vvy#=)$ߡMSDm"btլ]<)[ 'Lac`Z+Jn|1JhDgZ+%`V̫$5FYa00$j16'Bsly3骤wlpJS(gA! v_VVC)΍Am%]&8xL5 U#V6Kf9~^f^/seΩ55VM;ڷ ]3'^ ǐk6e~6?I\A%-8av"pKzY0KU|JUȥ/ˁ}4|K43KU?V^A#ގXTE{?;'V-M+UY4$(ߺ%9'"툴S6Iisg3؉rF9=ux݈u69H"/\Iv؟W"̞5<#(6:CZ)`^h"4pglR`^w&Ny=wiaJ.NiLsLNZҮS]oA  p7dmc^l({؉5Ah-:T?*[tn{A #4ѥ:k-~}=憏ǥ}V+Jk4dLYć\3(2ZÅEg;zzt Gqu}vkgb$m +CLm(ׯǷu?MzU Sx3%}pX߳s41?7i4WIz^TȞ^m,Uگ2#k?`,؞r5Y{pt ++q-Zy'{M mgMZeyz&LW#Ȗ0YVS&-a +`0ګyz&LYZgthgteyz&LL>ZB" SLR̙.0Ii9EFf, S%3 +Waaڇ9D >#q)c8VP^W¥$^xF a9ؖJ>cb2 +)^E2`8D +PQYEU)@ +2+ȼ*UỎʰjbXNYTܿDYTxUXI@a`},@IIK!{&G)lJ`XΜ0aȳ\J9AbT^Å*!*X(( +CUAF*QGVCi#h9FH(ḉQ,'L`wr.(2( ?W^2(¦DΏ/GjPȿ@荚8VB6iJ 1M\a ~Hf@* zsl[Y, j'J,`=NBfGg8YfD0c-2<LjhE5q&c)w^wgDHEͬr+Wmsmwp9 c~׷^^R<$N чl93( +H88X b5GYn5wG͟F:I/05:;Ѱh(*,j% <"I ˢi- +GsJ (1?+( +Nj* 6z]y@2+ xg.cdOSR` ByP +jQYX ,  \4 GJJE"3/ J亂r^ӓVjڸh;;V~l)lg@< 1<& Z 04Вmg)#ȗᇌ'Cbd9&TW,KP D`d@@Uf)jd_4X2JQFJ*P'iCV`UL""2a+( 0`y0LdA"y+א"CQ52 +6pQ0g(UqrPH[ {ч$MGʁFr\O]`-HփܣE! +ԐQR DA0ЩKR8Nƒ{aBP I +CE.( +QM2{(iqF/P@*xRkuFшR'MO"2`>GUtNUxFREƄjFľ\C<5ʃ\hDZ4}{Q4Җ:g u]MT' A; [.MG. j(BBNZ7,2`qX"F0a""0 ߀WE3 ϑ{% 䡂2 >0 +(HD a"ly Hd"h  6F!A;88 XG9mTv2RY(L0-'5z +e+A!,MX`2()r- Aa0 +endstream endobj 359 0 obj <>stream +r)zzP@4 he-"X!15,K) +^d5 aȂ6wI&"F0@ uW1&k`(!=aQ70KX0b&m]dNg? Y/ J#NR i V Q!p0ci) \VЊcT"i Q +SF΃H7XʈT7 "w}EḧpS'!+LDCGdaWP(!M֑=JIEdX{ 7 QɑlXfhZ`@q"81X"xe!K1b"9lxNFYCH 5Ke` X]|QG`IwP!e aE 87NC\e!Q44#A ma9&$Я% *y},`-4܊`1JS&DL`gYhF4?TecAk8yan^jYĤX G6` <sJ@HCtz}8TpE1e*(an4":UTH":@ d4pS88YeI> 8x4ǭs ,u?p2G [@# V(N;' }2MWuiGPX` ;.@ù`rvDLbxSX)b^AKh:PΣT.R0qÂ=a:?\aհ%4?]^0X Ab 2 k<ˀ R/-`4EbZer0D x UX2諓m6)RĊ JwV +4@Zĉx:hYІ y8CЁD^`[ገSPd!6˱t_J"1,qVtX`(LQėg=1f :!UҞ@8qV]>E l.`ÙbcȜc8f)U(C@XOJ`1h|p5qO{1"D bu >P{7۫ta@9 >[Qgh]׏ϟcTgszmwOgl~_Nv^GAugr$u=ԖaQI˨BH $Q?=#* +`bCzzf3*hdaF2=*-~;^" +ϑR"%Q00LvN9*纼֪ R5m y[}=9sG@a聄>.TIZ:JdΨ +)ˎqbb+/eMJD*pr/ ʸ9W ʡ (*"Vܧ+AQ"Ӱ _׃o [b_ C -z4quOT!vh.oV%VY))'ԢX6|aw:1D hasI{zWLe ]0ky*92&eu鋜|R|ɍL|RQ1|Dk{H6 D =)?{!RIIr'1(3p첅0RZ*IȾ#!A҄NG-5jj)) +)ure/#< 501(g/(X>!K3m$1tZߨ,ClQy?}&W$0zQO  +ʱ*:w_ŹR ( PųƵNZ\}FU^D{i]7Je{鰈M/j~eafd4,:TH*HYf);MgNƷ-9['hNFh9J\otmh 셇SLgWv&x[atm);8,=!BQ9/I #;r*lt_dL60AA6ᷗ2ܜ>݃qh@GO8HPhp)2S + X3UtƐb)nՈj>(XptQg= djeC+SPN i]e"O*T9یļ]VR-ح($M;Q ޹}2n.^O&x$6{Xb P +'k˃L9' wH6bWX>#0LqEv:+A `0>j͌6L=pz 20h̻ 4MR`WXv\3SVUVt.r}{JvmUEj&&LDq(h!n$mbJi`ؐTvB˜dWxjˀZYj1z%!T|3%2MZ.ٿ +j+10҆%f芪AM\WwPcFy=}9 (il0% DZ+6M\M\_Hhԁ4L@TLzæ^\IpdRq@pR+ha߫(;`*ۧr0$Mi;[$ stF`/瀱q/NxΖ8B!`*TdO)Ӈgکa1vY L ϶؈~`p +"k0:%sʥ|-]\(34Jse\Hy+~pPRdtNF VSGl- 1 +JiN_0rvղV\&Gv8l)J7_ץyD 'y4]c$g^Ĺm\2^p\wVxkP, +%Q-Я@_lXAǼcTUx|P.xf]nb_'׬E"XWDIsLxE sDwzx2cG›"dZ|vUMKsI,<|k'ސqu*!Ŕ9BvFU@ )Jej_$tQ|B-[Aڬ`&&~6.oiyNARp(YGy?{Ok$n]3 ߃"Bx@7>&iJeJ=aLM42=0 MvGKxpj0 ,ߧ×gC~GXbf&p:@y4IeQC݁(gvd jB>C|NwD?\܋I\7T ) ,"k' d$IƂ}Aeт<\C(B"3)daJB tFޱpa] G5KEA**` ʜ'&Bpe&o/lX=4}@޷f@M''v #Ѝ -z]<kh`$.CZ?DT'1q`b9lGM;6B GC7>a#%ΊOc0ǰWi4ѣ# [-2&~t"Ӈ(-we{p&c +[&r pX o8!WՎS+˟ݬֹZ@F\,̤1F5k xHLZw0(~ @xK%V g$2B,7Tg+?꠽8Snp]gn?U욅I2I:}YmJa 9I72ưXHA."1E#Eބ* 6^7${f7WUƧP\X_!$t5`PSIJcZ;0!?@ѣCsPV7}/=.<|?ȷי;F4߂Lt0\9o}=˫2&FVq䙳HU}Z{]jsN NIj` +qGTw2w E C(p](DL&RI6 +Ve&@(g )HBv~ 5xt:yM޴i)&yy>ῢo/G2`72ix$n:sv?4H3irAG5?KbruA!D=U.)ys u r(1lҜq7Δ3D17ʝZݤ<(86dR$(@*;б%8oOmE +U +JKL&t KI.f\fX |$]h4CO҄P`h-  kY04l w YY .1| $ Q, M^rӉ 0D _S^֞ge"Iu&^PrŒl6k2:B.qxsj^aIm74XKjE@ƍ:O[ E_ GL{ +zȅrUNW`sK&~tBgAsb1y?0V I1a0RjpG:0)W_=zDfB㬎KOMUI@-FW/u9!V pt,(ȌeW( \L\Meě,h  rfB}T!.!Qc!&o oi%t+(4 Xy~4;r eR̃9"v3DU~?Ȥ)As]PXGhPhw%5o-L`Tx٣0n& 8I^+Ǎ&OgVCl\_>@'F 2ImDK}F}d=k".czͪ:$ʍBa {QVvDaɰݟȜ,,?pd@yQ-h(`>$ap3\iِQ;tU J`2G6b +\:cxMhrs rL,vqVBe|ujx2d\o1JfJ4WMD=E8Ԝi :Xzfw]&ALGk#3z" ncySaTn|0q>\>ObI}/nN$}IWgያo緯o_˷wxNJ4,RI㛟~?]vGVM;Gᷟݛ}~O_ջ~~^}N'û~?gϾ^f7 +endstream endobj 360 0 obj <>stream +%AI12_CompressedDataxksǕ%]~{yX*q^фm9,};& KSwGiRs2w\Oz{yճq;l>p{uyws|իon/~ˍہWW׿htUx/7%?>zuAxysmA~57r\ys +7N#?߼}wf<Qn)?v7E?J;glIoee85W AIw%xW~w{͛ͫ7~|wroW^uu=7po~|껷.ok~{u=W\\pyQ ٿ~o +oM|F7/~G_]a0Y˾|3N//2_oo~o2pF͜~ƟeF__+,,[W;]7˞цNG3\etR Z\a+bZ^꯿UWwo_]5Wgsܼz;..^]JS/o޼z{'[hO:+ǫ_ 1q;+f +=ۨaʃPQ엽yR@_^wWϴ1f"˅nL/yW[zOx줌~'qV0wwW4a~SPW|뗇o_/x矍 z|un/r򞞟`^z'og +?㟿?|-hOWw߼}s^\޼~6OwϿ<m?7H4->{~_ ϸz[inzL6?Wx7o~|pW__ooo|[r-/n~)yOW?\~۽~~qoƗ|aaZHĩ;߾y~כ7o1i7﾿ʿ]x{ws W {>߁pW2i-?| (N]wjw8'InF/Sp_|9}@tep× _1}_7HH/p܂Zpy~|粸2<2wr)qyEpUj]]U+LpMMqM$/ Lpx{~ +_d>Oop07*|ӝkߟ= sy[zNu_c:d`XZ^ŗr{/^~P^r |}~~:ڄoqW Z:^͏EW1E`<-]«?>O1-ҋ\Wyԯš.30 @\=W{}gg˻q(ɳ~]f>{̛.qb7_ܼʽ|T~'_<~cO~~꫟p=jn_:O:=4]kO—ƙY{FU~N|JZdl3 k%}`rt%뻫eo#W_x%;']ҥyVXϞa]^/ ~#RNů:/7"Pd5 9:Ϗ̠ @<~Bn΍?UF)4A|GV^[3jv"[_~`?3fMMpƚGo'o㥇Xŧo>o?Džٞ!/o/_wQErn>6 im֮(4*?/Aa<؃;tp<:GsGw8wx</NIiD3'윓;Oj{O4Y1??|ctд}v]60߁wYgSX {+l'뭳֎V[esaNٛdqмF' xJi{ڜu-ua\͞mw4N~tN0C͌;S˴q> nv~kٻO~_cÖK6KмP~joA jPEڟHy>/@xG~M3fO`IO~g?yx0C. tp{ssδVQgGSZZ>wſcyGwo~ NPa_/Þ;`]`jG]?wةG{Æ*^ff5I90{ LXa͔p6|qwatظbj?`'6w߀ vaރ=`pJ} E޲S4\(@`S^aUԬvjN4֣6jwzO4;qhG7z!@2/:?ǶҾ;3Ђt-1֛^ky=:&ӭ$o|sOm5glcYd9GAjefsY缳eلLlh wK٦ +B 6kxt *8h-tnN@;{"l֥Mm?sR۟mahF?s9 =߯efuTr"J 9,#7p~8+bRP3R&7%W^n>]lslS@xes-?[ԁl Ǝ>vfl +/Â5нRz*bX>b;jdn8dYi8dCʭ* l Ȉ +lV=s0xp0f&qF hugVYSBf,6O 0F-2[-3" +"4.ab*7R<< H7 4JאoxD5sq&FlVg{PcprF{`xaKMʣh|u๴^_тsϗx޸hI&⌸h [rr _D )WM m9J{Sfrx9e7PhW>*ug,''5ttttctCt#I*U~KNAڢm,7qgp M!~385d)^FC| +6=sZTJ@ETBpEI,ʊ + BTIyqDAEU^ThPaDAņ6r矉NsVu8Qwd}pWM:@3Eh;o4u҃裁18=4uГ蟁A:fJ/]F ,(PREB9aJw +eАHE,ʅ!'ſН"ߣ}`ŶT,|, -kc{HCgſOARf_=xO;OM8S,(bJeˆ *=GY<D{a-(< +hbSG-jMm.f1𘃘ݎGEVouŴ(7 hhuzkEuhlhKvy',ٸS-+yA9!:wK=;c rbd~g*edڑ؉*WTYT-4WqpL;ҕfk!0$lJr9FP AQ_Tӯ-UtP; DziRXy >̵VdgiEU>Mt*9=7pݣ{a}-mR;)+oS ԖE.۬'Yݛo"(+E1M mj+㓀EY@JUjhnR*ŵ` ШUŞEEZ;`/{{0[1-iYD)  b0& J }'"r hq/Ct,Pl?1)č${p%3@/"33$fr(XF~bB,sG%S^LVlZC6W> ƊPbp >L)B&rJ' {1fAFdDsQ0 3$#&gO%aKEv`'u^l!ڬZQ ( "׹jFrsNSt+`٥H@VTt@ +Fq)w"qՠbi?LRIfs 1$iI +$;]nqתwh8ClHy2g>vRGEKGzߔ&LZܜ>3u:tqQAXAd}+6i Xr[u+KUw?ˮk#ԶNYdPKNZ1b@j?ΘYG2VQt0n#Wt]JWIUj?DtfK '=db +`!1B'li|2CTS3!5bkRާiiCye1@* ՌUF2TTNU$[UQʩuE'2V4uE Phr6jbX}*=>lC'ǃEt_`D N&@*LeXOCl1" H%L @U*`|'у]GyDFIg^A@QL  D*Z (`2 l&HVʱuER⦱L hBHM +[*uAsAY X3UqZBA]gQsO00Ea=$Pc"'|!H$],&\C|n!-6z\ ;HpOYػBA(G\PT;}%Z4쪿Kn[07,mio/ u+o 8a]DTY:ސ"-Ր :̠$!0bB`"+bh,4瘬Tt2erm1JF$ZpҔܙ|rg (1\\DQBD.;LMtr@?i-ibV 7m׶,#]dwcR1r)3w򺇀cD"MN)Aڶ{>RLS? /E.uxŹ.:E'h\D7EgQ?hѣͬq^\AOmd7FMV3FKA}o[/쵐E+^"EnTZR__kKn%+m&{mZK :wH7͈>uV:Z+Y%襣nBG9Bm,.KP$"-ce2' #t Z^`NZƏ\=KxN`VL Vm=0}/ ½}XS-a&1xV^2=UN|2MX 1z<6DEݾ!ƲzL.%v +` H7,=xLBG0T+e8]Dd{+{_DgkK "XP9/Nګ~-Hoyj[P9R&_sHmW06e(mYD ^Rؘ1i5sw#-Qw$mAI%:*QQ +BRzղ[֖`M;۳YwqE[9YN]I b'I,$œA2OZlϜAmV昳=O x+z.ߙ,DrԘyQD.B>$ʸQpplNgz"L09=fUlY9Ozʳbƾ8QkU%Gdw` /D)=\mUlxBRۤjHeDV ;B =,cSYogFZrjIh2^J:r +һp'G5+ y$ r5܉w΋ZSoSØRHR-aWi\0!EHA9^Yh-wei`Oaq1<=8N#em1PtӺ2tY1Uư"󝞷:[F5|Qy·8`Z 5pBv§b Ǵg\v8uX&%ď5 sގI0rh4K}r`\F;5.[Ei4cK?qͭhA i$%m6bS1Eh3"Ndh֒̉K|ڒZtr9 cq +*s8 +oC pr +$SF1O7sR{: cjwt;"t?M{WӨ^+`rjmJ;w/E뮦tCEA}E*q{lUN-B@^@mAc/c,Ӻgk8gyn)t~h&.#_|D6"TI܇Om ++j"G`e݄F7sNG!PT6,Q989R=bIXDhyJ;\(DT5p<-uG*=m`[2̽O탶ϊoR4,!oVso'YB:ksNJ$ii.#)gCx+>6!f2XO >uPUݳ.fO&lc]V%-۽9$VÏ?}}W"C_/1L{k+q 7b"5CO$#FOsN,Y5(M298I=Y' %jPKZ2ui BS{*#^JغLZ]$MOIJZ1bKYhMnˏ.ZTG~fRcS0+~zV_~ovqc"W8hfӣ"E1T ;$9Z*,eRwbq1U5i^%*|Y&VS/YVJw.{!: &$ZY;ԘsW;{-wԪsSqw͏lS"oͷM}cjoΟ4{ +ŧd?!emUJqkQb*QvLv%%hdvm^ɦ]Z;6LoN^|mG?.&DRa36vuEBbSml}ՕsGZzTU;m\.o!+XѺ*67s[iRჶOh +i=΃ӏO!}rNLsLD~r5!Ṇq4*nƍY m9OQ\7@蘸2U0z 4^:=ȟa_ME8ZR/TwU6ݮ +bR(AJ)SG4u,jÄ5aka_GԊeڂ8R"'0 Ë:)B*cT߅摡nkdP,j%T,.|C%1dgC,7Qb%MԲa^'Qc j H^9i~  yq(>L2RLq%wgIV;)wo޹mrh^r*7QsW;E%2 tf.OdT":(A&*guS8){UߒJPQw %b|,^l/)W0?Vhhؑq9p[ P⌌4)6vvj vG22MaM ryV!}ՂHU$T?{[~uKٰ7G1lQɚt@_5L)j6RpQ+ FC__A6R!taSy8Մ +sc%* / ($-ULT٩}.,r!U|6cm/Si3) EqY1UcL#?*xhkj1%tU51ex[DSxg4'Fg.!]g51ޥHu`j>$wHAW֪MAWȡŵ@'ugv,H΂"3<BIN̡WG.>')Ŝx./m/^jkLQɕwrs٢DŽƪ%gTM1Ë&Lsr۾m*Y-HaY(!\K "3Ve|9ûXjXd: }#NpZRظruLU cXt#D( *q,)Fi" u%U +Z")%}sE(EJvK՝Tkg_ +SՖT;q9b ƄWֽ\ricPo\z}Og1^$'I=iT)' zDo% NRPCMf唇6~>mQ<=:wQ}5EBB54 vzEZI]P~4;X|,h:x"-gW \%`Ȏɕ88{1i/rc0"_aZ$D/\xq8b蘎92qr?QH‹HΘ)yqL>, KŲ".H9]\u<u+M*bb3~VKlVW|Q\KUZuNR.E^>, -\J*\,}X?F_} +!Fyf3Ircʜ'.JorwNs$/,"5.dYY=X^lzn۰y[S}HT0хJm!r*xo5\ jQ퇃XGAvk =Ϗjyg0U٭vY?JAΧ;J;e+NrqOg'h|B搕|9CE_E9\wJVu/UVңh>vd E-1G-unV`z; zNDe0 .eǑ7 C[BQW>0L_VZ3xq،ʸ:&L /{`tIYn$d7H\õѺ}H]"ct^ڛrlR+S.QK}&Y c1O&bEFCHUf+;YS:zg_"ًc{}lp?-N8B\S!N%Kb~g;*k ܰ`=v?sCU,pfldWo0΃)a漒e %ЅHܹI{oɚ"fUG +'{$ZFӞ)=)x ^NP}%//OEAy~d$OwqunH%71Km +N(cosmUۂqHw#m}c|*:T(*G/Q+ Q!2֋M7DΏd-3qu똝 b\ fkChjs>x& Jm:SZfbؾ~B0QkMR@u=GSb+ut_IH3W +p>/XاO +SǧO 8>%p|J)SǧO 8>%p,{|J)SǧO 8>%p|J)㧓Ѻ7}d74O)?^ +G(kURaiOg=C;^B9ژ lc?KPui) !)zW`W6汫˳Ne+sVP᳥yz,=$5|gP +"+D$]ѴTfp1 LܣLi%zK]NXt(<1ҘHppGM(bw]dDދr/ +c,NJƕ(cc0хqR.b("D _PDP(ℕ;Ix`_B09fL~By]s&\z4SJhfO1ebߧ~)H6//irB.ٓ}q:<]NkG~K[B%k;/ úVy`dmuZ$(ԪLJEA\~)HڠTv0znZүJI QUY]YV2*)?lP8 w9u%(EF} +.e1ۢLŸ3AzU8߯*5~ +GU4ֵ6|>ax$'1} +59$ņkl5NZol+ !=_E#v_eϯu$g%Kk +dᘟʐd10c3aF9gB0fUSxh*m,~#⽅t݄VP^~{]9"6z,Rʕ[7)4a#'\l3KZĞC @=b,EeLQ!|jClJHHQbx)|GA+n]VDR.L?V >\ L1*&y*BfMbECou `]އ(]D[G;eeIw͒U2 "TcRv&/SE[4QMHAQy)ǢG'#c/q\(%<^\ka $>q⸎a-Z%5DE\Qb> +s^S\q%+=lXVPʫ-JzH +ȑن[j-V =>,¢j+A}uQ}S`(1I| )?(ķ]Xi[(<$Z,j* + ԧX{%ܕ|?--߽GZ.?(w|\*h]_|pvwV ɔ7Y/W^_cv[>)nľ_~w+H+W=9!?*vZ\k/=k뾢 n{7EN)=R估;wѫ2<[ZCX&؀xI5 iz$,̉2Z~uOӨiSt]nuBWUMζn.gfm~4z|n?X{] +Q, EAU +59/Q[ĵ,H׊'\ 8 :W.{dص3c Uf Z3UUPՐYjHä^`O'aWeKp3%PM鮍+͜iEѣ[mT@pq}lX%mdcTuqw?g 89E՝-HؘTUcVFBJE>@d9,UIN +v*@(<1mBcJ +fkb,3-17SձbmJ Z^Oʼ7P[(|ҊܲuO:F9umm-k@i<qLgڼ?4dxfQ=wiEބԞz=6){ˬ8iȇsᴩ9Z1V+0*/N/dYSV7}֒}iО]\R.(I׺Z!Ǖ-H +UMa%V'yg?{m={xؽJrA;v<)Tӝd/]yeX@4ZDsg{*꘾ TD[քdIS,ձK$橋lc1mp/јJ +̋'`CG79GiHMkXlgmq*cuX^o|}*ΆwgsmU. =wnd(S2ӆ55I@td @f`$%r9;N\ yiMܚ c1_#52>-5Vwl7Nmk͖/P߹~IӃGVZ%K޷uۤ2TƶHa hL!pNu&aT}ȿCߑyu^md=\9IJ4Pr, "QWJe1YBLemv϶$/ 6G> ,Egʡ"9`wݰS +1tߒw*S24I9j`L-Y)v2"ҝ6z[j)Tu7ޥS\bUm)!S\߬z/'sI _E߲ɮK5_SB3N% " $I1R ,TYuYXXӴ#o߱mZ!dbrJۻמ[gURPP" )K{D:u}TBS `HkZ'5kZ礧Y$Ú>z-SִZUcw#WѼ6|U]'S8"I ͬ{r6^a F#ĜNzf +6ADc'@̍WavR +H8؂L}8uzB>t&!o#)"`Y3rؖX}^{B;* `X09LA I1*0)m< Y[3\eѧM6he?+=a0*< c$P:ɛ -aLW[2Pݎ';|g7(p2,Ƥ-"h؋ԏy> FiѣJ̟{n6Q$ e#lW UvDG2J܄L/f?@L]g/wŤ@: +ŎFG$N,2Ϥ +n:ۀ`6BkF _OyO{2,qO/263#X("OfUXawaF gJflhwPEsA*[aX~+C깍7gwn1; +bu A2"&19Y1b Sg0^aqP: y +;1qqFr! +a V +,8go#wt:4FÏJSj`Kr*) +ӟj4ad1@g8&VVr$@l135). O52,4xa4 }ѱDلiӂX%OD(Hn>'VDŽod(s )D=S=wN>閁@73vDɭB xoίGFCx/<@ Йtd0iH@y l8U0:]&zS` h -X oˉqXbpIFT0KgwH ?o $wX>Fz0i0󖋿Ƌ|m +b$%xt G3  k8&ґ!4ad1*Uԩba}:XkK,D9RP|0ˤN/؇)܀H$Ȼ{dk QZ0eeye Z\,>CgvYU +!6eXlA6&/ s|8h hE)' dJM@)7?a5*~.-ʡ@4{"O]Y#&)j~ S܅;T"eOFRm[2,,20!|b'uXFD0Ȣu #j36Q&i`q,Y F n-2H2`|\QAFv|[7z *9V~)ł[)p{EmO<N:.]L'DS*YAeUv?gn&L]%& c,\x=8XRŬ2<(D#M(8EgHck a!ى-M8er.P8#nGq!V#i]fy;:h B_asZ{f>> O}A >/~ +r#QIj*0a~,;ƚ Po?}Rv /oae&,1 ƒ84X۷*Ve +c0*bgԲ▲|ALg`C7ȼ ,z!=Χ<'+Έ8M$|ܘO6-ƚO +%lm8Jt sFA0C+EKك'4keEJo +y JlH$5jя91ppF ok-!{0|nY#h<;=X$)h!HZ;$5ȩc .%j'r*y#k؛p~I-Z7EDQWźے6Ә񐫴u3EI'[MG w VLJK =%ޛHGO$g6pya1tNQ<,!ZHvİ*It%DR77*<ծ4`+zzIed&oaC91w#-FXaPLyJ)qI4 RP>'* ŭ=))%9,-_@' 0AE1YFm\iV\'++x:zЎ n4.Ztք<`K*($X]Aeڳd*^#/&U-054UF$4vJQpI8$жY@}6.wilhcRՉͬ8T0p^M^e8fC=#66?0;]1t-Z{" m0RiM|˴b5 jؑก84vFVt9!J,~F;ޫxIRWzb4{֩tAN6ߧ^VȠ.-=x,9")T&4q\SߴdE$&es45%Rt9KlĀxl5O{+'a"S|\ R֪^Ik|ՙ2(k cl7:PeY^-ca,84Ӥ*rǎM::cR^o8̐KUQ4Tz RkQ- ޜ@3*-F +v$o#֮BdB z%c4IO4D]-SCiM/Zl1ĆZ10qjJx]@5r@OX'osԽsk-Q\{rS2##imkm?ŮI+usZmJliy;[gG@NYɚڐe4iW7EgVk gg`>ktb=0=|UuuoF*s8X?I:D]Y{HE{yܹvTyΙ3:8Y:_.eqUkM'BιgvALD vG=.%Pܹޫ]כu>.x6ssntBvnիJ+;@;?NyܿוxM^sN_#wI wΕTw4*,]A2&t +ƈ֪Jt.bjt&>أQ#f"G z*{73{טdU<ʶZ}9J\Q[#P͖]wv8OdGbٞ1-3mL U]P%5l2"YryZuZ#e\(=0[Y;<$:?3{xE gՋ.qug\S\U\?59wК_Dk林5vm)]ւSƪ+@GaKAG#ʉ$_]2r OLRokuL4cyd\.PŪ S!JTd#<f +R8/Kx2!(5(nBH##xY^uE xGla#c 4q QˎA4͗ybVF^7q]G=2ZQ:3OT4UP xg?*5T:XZu4NJߊnS +b%Y!˅pđZ1B +"%c +Sg0^SOYNLQQqdvEO"Ȏ9F"2 m]|ǓF.-2"8VQ>..(<3l9A,U b# +ev&LN]bF%qte"/g5>A03`[&:w"h瞠1_|1 +jb! ttN8|kDQ h0ZqwWCeje;ZT*[y׊ϋ+AZdV1garfHFM-14CX]P:rd+ˬMB ʛfeK!SC2w i u xu'x̖Ls(W1]G\]cWGQ[RFSʷv]H{(SEհ& n3^.J==Q YEcGL4LHR % +]{Yk;yE/NR[D8Qg +?;Nj0} |[aN.`8r: 4~SME[cDA -w~?vTp[AL7[հ9-\^{wyOv]Z l?G[uiw^_{uh9|0[dsJaXCg^" AL֦I3+dmX&Pin͍,/l\} 2O<ӧd0W33$J:b;1? +k )#ĥp3> ۣ"Tpڤ=<.zWx~,%=(2+S$PC+)o]IQcɖFJ|TԨ)#}:!B< C2-xδ2Q2 +wgJb|Ap`33> +}qj҃AV0'h LPȎ熑bI;P1L|N$|缕dlqr#k`2J +o>]lbtעX9!5RKI8|`āK.b%cȋ^">y + Owa٧e<܍{7KNHgX{%)?zrceAL,3?Vg̕x\7rp=H͙=J]x@R?(ki_A0n.DcN!̨NJ|Fa KXŀILm&j"X` ̡sVJ?\u5u2Z^YCS@:_fMJmH9j}Gn3o2~zZp˷Wc݊wL#R_[2^9О#YйR[7ǫ˻pŘع!J[ Cʊgj`M-Y9LVS8'Ī/4=#Ӫ3E04})R`P6pVJ"+׵/4#C}vL ݗ*^,3/8p} >*t`.׾L%EӹZCFTzfGxa0WZz_"]H;`Pcͺ(6>;#iR A͂xLq~bÚqs8;h*@6$(sf|Ԩc- p$·Q_a ?AtQbiT R< ÕbNGBEy=F2#YqiO+?u$T5\g:O}=ƍʡȓ%"2Y ΞJKx+8tjØ%؟)G&6R1Rh5\lؖB{T4n +iFءR,gJ{td\<ǔd*]gm=-.O &ƺGg01Pz='zJ-#J{Ł+1Ԛ +oj['*U&H[h,r˥ʆ'FY|P',RzN``h/G$S 5ь~Ŷ7e0.1t\Y=FQڕ#3 FRe%qp}Y= rzkU:ۗ{p,r YӺŇ,zH34SuN(53+/ ="B9Ϟ@j|$juv co#bI1 X^(>@֖)yTrī$5mbw\ܣ `sDTʣRK2P+C(K;R֐T)/izj1=nLQS@K;& p:3~5#s*~>nDiZ +1h.dv(2Δ9P`Q +l@6@q:S~;vSAáFY*xTj֫$pHJN5apTAe~TQܭtJ@f&leTZ1^*Op(1E`GYy' +0,/ c`vXR{aLUED8à fKuH88>h&WK8aY]/Eji ui0I!$QeqID%OkPr|7iV.*.@KZuǗKŎ]*C9lL^u|c‡ژ> V-RE`==F]S\>ǁHu.4L wU4J"3"}*C+ Vq6M(G$6*B<X`.^;IU%#JHcm1 gR +HbA$>ܝ]/ wx˛".rTs8w@KaG:C՜"Ww`K݁L\]R+ֲ\֤Oyn9z/CmՌem$tY;f=|'uy;Y˅%LIZ'KȂe:A2UZ*D9teB IxczQt_@ѾgMA_+BQQLjFi9dG֗: ^- ie tZIuPhJ0uW&+)ktLҘ3~mzMRuo:E^[@Utm5^Tj5%:gWәEuQ'*Sj%;tר׫SujN b˺i s+"J7FZb&-[%uWQ@bfZ~n Tj,({ım"T,ٜZl1Ï_u~[kfynۂk +,mۈm-ov6՜t8gB]?ok];oItj@>qkҹ9]on=o7dW'] ]ZW:P5]z3Z\<W{ +`r  B;6w;VɓdbŪd[|sa]]Өj3$[>>7\1B9bDwA7\yG=IWp?ъڗV]X!exBҞTAVH/h8_YQu su 󵤉ۗDЕVl}yv0k ΁#TnK}yӕW ""H]AaO]-aWT| +DUjm}q]QAy]=Ah%vlB +߯e . +e/;kxcm<``E|4;D5nYOjƿP +s#]󆞌e8s1*B`.ԬF5䴣VPZʸHUcp'*Q +IK$F 6u`^qĝȽUQw?^4xQ){M??E0A11 +\So2PK9\7դ":t"ͷu~dBerv1Wƈ**KǹjCX瑻>zՑDz"J8f ZW A :Q|ÃNl؊OVuǩѴMCbPxl}Uߖ (֣ .Z(bCUңՍx צ'POT`(FH_؈@QEKR; %8q>5jmUM%X](3'̫u&/ɟ +AŠ:QPH qG:*UDe˱;OfWna~R.,}wVÄFN+v/ ] J,iBh7OŀXv + ۱¾qiA@*[Aq}i3փ;\n 54")i=Sif&WZqDRoe7i(uv&x!Bkx??(5ZGjŘM>XQdZ U 9<$qA-[x j y Y"[ܼ7yD@{b-l#-\/^#`MFu *Nb+n#!PɛꅤR`&բ5௼G +w*(׹0UsuQajP*u*Vw5u{Yw½gf\V}_g qv֜vu?s?چQOf鄅s#CL8rR̕#_m&/þE#'c h"X|z;D bxWNh%6ttt-"ZϐcJ|=* tzlnD1+tw߉&V H +?hb.U!nD2 ܈}*c/@7&RݏK9DKOOMSM] +xbި&L67Md>^M,fP$d)'"f4t5.9Q5+R@/n]kt#%}>e[xCJ[7BQVg[τ0ɭja ~*G 2/oz(],@X=o"?1Yiz= + kIOy4-/^g?/_WoPRٲ Q-͞5Zc; 4"b"ɌO@Ş~횓L{4bq~ +2tT@y/>0eoL,¼=0ua8,,J!B8I>zl5tv:vOڎEY۲h/v+MK O7n9yoۿ[`;׋}ϖ1kQҳ(L<ͫ)h!\&_ -v{"쬨e; džN : fQ\n6"ML +53<\ ++AU(P,0ni@9^6saY\GAc-'Aaeڔ$t_+TU+$[2ۉҺBGS0q~bϟ" !qhެW$ٷ@Cj^ בj i؎*gSB8`zh@UIE3n;6d +°5! < @7'mXr:^=w3sglV=DފA9Pk?brւWFaL%چҙLDؙ:c CL^dnim.Ց6`[yy`g +-Yn!&l2nSp,}} .4fOdž=GpLH,x3H<.?kO\ u?1r;q3fICvIa 2aԠk X隞Dߢ i!ØSek3[Ҡ#,A?K7^1gheЂҭ椓twv6UY Υ9)/2\_>V9r 6il]Z*=sٻ6? `\!YmwJ+#Cy_i2y7\E]@~]Ce.>'e(ӎh,ۀ-lăqc pƕ˕P GBf=$Yf)[۶򹾼-@MfM3hF3Qxu!:ݬS+ı#"f}t\܎zmᅑ5x"#DAmGrWڢ%ߜ xB `3;HNm.EO"Th{mӞ 1xCm/S+mSp;ija r"OG$- b-Uk,&{ E R}=MDL!_pHep2m)V~M„v}'VA,,4rT[ /wG3FCB22 %b7E61r$$*`hBt@MѧRɳj깫5ubkN$Ѯ;DՋV!WydB- EK&pKG:j +#Ǹ0*7?Pz rQqW*|c{`uQIA\x_` +9nfבUs 1娢 yO{XI@OKu['rG2hk ?l}R`X ߸`J0-I9Prპo$9e݋;bP؛Rr WTMiUJ*?ڒqߜ cb +,5'Eٮ.P%nhE.]Go7w(”'{CW +UW2d|Di2xUM-o2%C0I\lІ'R{(n,O, V閐LPef-ޞVR#*aH?3A# !VOӌEE̊(pa(p & {?iw1]W?[aLf }uEGgH>>҃"AH칒tءTG +2n#",h;CQ[bkq$#Y]%Ti[|2cMzv5|Zi,Akz{rD#ZQ4[&xfv*>ݸ"/`>'`RвXNxnxsvY ;óF&*S}UBPV& u=L +?JȨQOѧxm[NJzh9ˑ0tYS'c`it3 Aǧ? ?V0ZARuE>qq_}qv(D5_bTcSWT,zuJ3TjG|NE}qףfY@PӾkJM̅O +^f2-W/I1jK2`;j/Yͮ"^+Ve&_D)"&F} T>)D֙_KZu_ZuXJ M3ÒP+B M _.q7fwTk٩͜^Zޛ5"0sM߸I(P6"^0Z6]^D;-` +5_\Tྑ@r,z7"8+{f\!m+ğfQ]y?C?:P&}6=$,h>'M60->p x>}8n5 h)f6B'أ' EEW|5g5# | MhtB̋'! Meh±#5 F#R4v{EXbišuġQFG34fzk|' +uհ`@:0Ki٥6Aygh@LM8"+ǣIN}sܳ&.j0.hi`XJSHv@5SJ|f-3{*3J읗xb׷rtZL:{[㎚L!=bLS&ikg! dֵGQ`$s뷄!!FCm nB %Ín݉ ({>{lt|яV",<)C\I$ :I0yWSVj~ +mL(@65N + G{bD u7"qög%`57z:oP@#nu%B6llϫTa66fuug658\k Rp"q\k |g. zxX xHL*h]KpM.(.]HZCS6؉CHYn ,RǻZIE53addzdPlwlƈN{q=-CroR|ZXIxar Q7%G*b.EE]G,F,N6=Q@%ap.#ElX3A%)pWсT.9:} ˚dBD3k#\CO4N/ffP7h1$2m~Α#65J}:Q:u 7GQt~ mQ0/`dV;4wVS0ԿMEUd8L/q;C uBTkR[KoSFJ-*Ua$ +,x(w"ܴz ͸]2L6WpW3Y:`_ ,P֎&'=eE/ĕ&m*;t.v5(x %R( +Ar-rxA!^t%V] Y W;.  +  bZ{/׾m>bU/9h?@RG7iJp\ + 9Wt>ۢt^֞Batҍ`usu=gS+ +m{uBqŢcZ[5*xKˇ8E{piQUYskI)&_+ȇ6j❯O=V*\1Mޜ0W#/W!ڄx/-@<6e,ac%o_a ukrKSn(hxh(݅# +M #[tm ]Ya*ڈ&F4PKG۝uݽ#sog7?GuȄk9\*0'l­^i-$#"jqvơcʡlV:rN:at~Pz19rNˡu/l϶O96υH6r@9x Nq-: ;/X҅lA.vOn#uQ@[uI#],v?b6sEFGtˁ:GlaK  YAȀڊp7L/W1 kV`Zr~<77- +ynʶF_\uҍϬuM7yWhu@W uY"rݴ+jW.v7*nv*ٳ}ͮ^s +7Fo|Ɖs=7 o޸BSKO7nObȶ(Gmci yڬ]ˆqaI^Z#G%WGښ3#괚]wBoa}ЌרxyW6K¯b{ΏI>?m}hfZ~QyӞC:@ռM ,/PRRqkK'Zfƶ{AeNNk~ 򸏴ϼbܢ[ n:H[ +VD߂+Ie=W4d-(6_[fL~+Bm̹$z ;'e)BPycIt)hR|Ӗ`ڕ3hĴlcR;qQLno=bn܉;:.CIw_!! +y-T n +2/aIss1Nc¿M? %qK?,s>vkq"pΦ#*"n5ޥ-HۭukͻStoN yj^e$hEĠ(zLA{>ufĆ5f2 7|>t3h?0_֝Wp̿ŁmW{A{X+(j3}(BJ?P"hwĩ]zy_g*,[\XLEr|cV#N^'KEB$Jx:a*% -0*'JSJML<+?=iM&y$cy*x9kԓTx%F40h9`ۃBk64$CE(f6M@8v%IQ=d}^&7szK0hzzԠBm%3>М+(;.2x/T.Ή*CF#Eˆ\G$"ԁW⾆@g6/D_Tp5*)w::6KۮB_S:Q(޼8p5vR}~Bl&:m7{8yN`ET% ,-'&Hz%*ct- ܍[%}~*؃M@yݏnwf&6ƴ'll$&݉czλȞ0P<H(596a[{rQGh VuZz@nUA)ur="3 ЅN~cP_ 0%[u<f mi +z cNKF5c=YL;;4`)bd ] F,DUZ8<߀˻{|Du]vy_.Ho5,Y.^Xj>M}yՉ45akYIMG\JN5}U' CR!fq##tp({Qs#@)'cwUP}XJ6AQ8Kc @ `bT%%TE\vU4r-; oPua"E@f [mE)G(gՉEl͎H$ +Os+ G1/ 㫿Mi KJKGf%-%8UFaL븓AV[]P:yAi ȋ@8 ^ Һ|cE aC* +ScrF#ᦈJj<@'%p6->p7D:TD +EШwTFa9!EwGd)HG|t'$`4KW-.ĭ^yDZg袜j/! q~aĩF~ݾy?P"\ARbbB+ocd}s6 U@[ˋPT.+Cy:![OyG=: R >2@ʘ Hl@ +z|,w/7AFLj0?q6XȤ^j LԜ R& BiУQ%"y4=p/jA3iG"Y0cpNڳ񧣽u?_}!SOrlZU(~le`2I 17$12qc?yQ`\EZ}$^DhYdrvP;Y}k IP1XU+N$t0eޑ+* I&hfC+ܤ›܊@WUUʠ==f o &I-uv/yXd,H~Peo4"Md%2B0mYmNt Iz3&Lkdx?՘ Q,BK!rl*-%~c6ٻ:>3Y*MLG8z:+H#͒cvA%4C|lUY@eCx@-(vuK3ÿZqf}agA"xؼI_-, [yt=ٶƚU4⠮d.""siF<_3&eL| mZOߧ1it{Bg 4'SrHsi,&+ǂxVd%AOY9B/2uۇzJr4-|*QX2D=lPMc[jClE?08l+!ID)Zh.ӠgbLfX + 4#&8uآvHCXr9ēo8΃P_ZhUّ!)0n2v2qoص@AH ,b!gMO9 xf.s֬g\iG*T%W$IBPbˇtL&$p=`?a::Nb)8b92GCf|0C(u@bٸk?le장wL~/' +%gw\'P@w4qw +j_QB|?B%SU"tꓧʊ/!ϓٌ7< _fNic22jn`$qeG5MB4'fy=i0Āj,Q02m,e#H\"gh;i֍臲qjvEE3ƉBTR6N]P`̥:H[Ef, ǛRMbʡaB3ZF*Ҫ + 5avM8hMEYMs4m?~Ux'DT8袕!{i<@UPshgEƴ8A$#UFY=6ҤMxš.MWWWrpk'PTͯ^nwa.^jT,q}p!INVIHÐu4 ++ob L9/ QRP)s<9dMiȏdq4p2q8Od>B,eo'|2s04۲d;Iwji%7uzi󨻲7˻{'}Qo#j+7g %M>^S#hC4t%Ixr{_(0d c'(ڏQ#S| t)CaUH7Whq#S}TDlFz +(D$ܯ+C~ցžJW0|NvZ +}^_“R;202ly !t! 8IpC\@m|Jڤ)4$bY΅n&Z}p"TTk1.yEnCV ,DcGBUQNuY8S_Mz sa5M01] ё~H c5b\$w77 .5O B@zyH0"_6#B&mQ?I" +[CjI$t/CjYZ|̦ bH$$#d⏳A@$3L*7YA(rT.k@=v4O 4*M츴vIqlHR#{^ ]=K}"O + P36<:˅Ƀ*i}D`z'\J.RR̄(<*7ssOz`|jLzIjn=D$/S 0Fi8m;>]05 xkH-jB؃XVl>6 G;y[>$6b>x,Yhy)1V*t1_&8;qM@G˒@ D&7ddF 32.-N +DIO`f5pYJnMio 2(52DfKP&lKPƢkƀMtX; +SJ5xxmkޓŗ["KA>wh,e>W;epfx9wZbenikA-s,b(V2ljsy'=sRƠ@]# 5Zx] gcwgS R"Jėp#Gfp3PAhWXz:A缕1:b7>w=4(Xٮt~?emB7~bdƅ×* e=<s G\wBjKk;i Yf`I:k +4eyZ į1!ivUUESDžw脵E΀nJb}"Dk U v =1w_t"ڂIԛ8$D' PLI]py*v5K3u8vP ۤP%퀘<fp [ Chw? 6m5H~YF.q׎ ~)-vןOfi +O~d1v]\1R\o|r1@uɉGe-k (]c/`&E<2T;x4 o")yrgs|$QU|w|nj9kۅI.%<\ *i]`y/Q(0kެ}|_kG0%;,"[g{(I~3oɰ jzq +Q51/ Ev/D,~;kxpЫ}Lv&$IV`>">Et +BPL$+q~G1vGaKCŅWc'b2 $$vMQA uu-qP +JU``Ĵ}'IfYb3j^Y]eG=L_= hS:#Xc"H:04=A9@y֒D t~4@؜~C5ov\)mIWasL̼Y=k&! iGsEtFuYWs)YL̨seʺQ v4x{r'%@jY, +)܉v} lƫvAm?/_4CsaN~ x4 "LQ=GIR: x%&ȨМc傾,Y}0!wJЬ`lŽ +EYH!fEOA1t] lf+B ,W%++ (<5sOq_?S{DRCH|7J=L;lGF̣]i+#UH"Rae 0(Pw\y? 6T#\BATxF@XF?ʑ'`iG1씑-hjF:^KcuFyQ!F3E,Q_:bzΩ3\%DlQvnGXŮKv-VŽ7Hg4!#֧ Xp*0EFlAY6@IljڐƱXN4lI&\S!*|\d5.K%& 0EGfe25Aw)P$+E%KMwX,,#Ba7Wu_mE(`8tIٲRO7bT3&; eR`R@̛04_nZ'[r??63aA3k%#h A`50WݎNk>֩ VE-KXvmʃv0  ˫6a4YԾ%"<^gvǖqli7 4i`,;cM" ١&WR6YLE8dDjEµС & )Th&+"vZˉn! D>Ps3>rSB{uJ1=Y}LԂEeK@`*2hL<4y HR=rkj!,[ h ElÉ3?aƕ +IDɐܫ"DFA6ēƒr13]V?M)Qvȉ% )ڑٷt +c%@vmG~[+:oWʣBiGGW(N4j/BѭF*udvC,5F_C'ҡ9bWlT(nWr&$ܣe"t/ubmoػW=JnOigK9_Xfz k@n`m1Ka6;.-ӺIb[!RзgY %>3RfAJک6`?6ykv—v(4$O*S`t8=) 0tc] ѝb[3n>?q탉b.s 1-h(0t9TCֲ& }|/@F[ Rd#Ѷ`G0c#6 E&$9ϢTX E|ߒ fV!hqixa5j,#Bv ğooɌ&'8~co>39uTg\HK/hLY%Wf<<2>NwDg7"Tv}'W6xc>cnOR +6PŔFK~#ԕ'1? gl+ Laڹî4艨*z,++¾KT&˵﬘Ŷ_#v);P)PmS1QŜ]@L ” ҟjvxT6EUi{&AحO Ta򤘃m'f12 +Qn0.co׵qAt!pL F;nE`Z֕0)y!bngnR_W۾䋘4|yAҺTzQÁ.12lBtvVNҊ}RIMՃ3oSXk8%fG<)Nly(d_jJ+*~Ri'` ;o+35m_ 8{YEDK yI }ßgm&'@h.=clo77 \m)u4$ Pafʾ+5_ p,vXLE&{؛c$s*TXiZE )(hj<2y +YLs*c$+89ݛ9#{ "@D щm}㔇rDjjvE(HGpmk7yO OI]H1&ᪧ>;1Mߍ;|lL)O6ȜRϖYmH6MQoJx}LzKmE&G*GPGh)V/ˋ4DK+ynh8کYtAs=y|җج)3]|] {^5$ʋ_HP- + N ~yeK0'J{8i "= c14m +u2@\5y4~Ƒ +:Decې-d {Kli1"3K܏}шWq^bd&+<8%^$H8~y1ohU ZCaDD ;E0)i5عd/VC\|{?:7#v5fTjD~l!%sCTCH5alfEF022tMFV$]UYC4s9S{Wm &p7Vy%dQgp2ic*w|>}<>fY&!#`3/٬ qSȃ]) AfЕgXAi",6.GB+#ٍhc#T.\v_k>'tGsI.7'ZX4TIFMrO2]?V.ŧ5}\y.K 0Q(~ Q!Tr ),!]/uZ1j; O}HV%D1J~b@Q} x(S3&IG_ʚ"lEP/a?pƕDfKSnDZ)5.Chٶ`5}?r\5L|p:8bW?UU%y7ƣ⋫b4 -7Vx99;zlD-H29||4ȗ/VD,!yRfkb[3)_kRQXzǢi.\*X и1@Ғ2 M ?]]9}hKpF11h^ +: ˬ-M4TXd2SqMaP\M]ŽZ@)$)O +.v_;OĚLNeF :ڸ"4z^cȿm\ϧ}k75V ,<ͮuMY0T}GQ',3_[\m⡩׵=9)Λ>'e'w_BY[(-1.ROaےM ^{f8Gf91bJmƻGk;vycV+ +ɂY nᭈvWhœMb4nZaFt(FvpgI9茳[~lߊPl9I{"V/Q]Ъ#sЬ:Tsg机êa sݹQtQHa!ߊaE~ +t17[<}ѿw*|sSOr8eK2.ަn5teE:>u5&ٛÖlBD?)u_(pwWp}!:ؖp(+iU(?t12?ձdZ#&oK~De-1dueƕCݼ+r%]7|tm؏<%h?6նǷºs5y7J/4cmkm;Dkm?'fev ~Ҟs#}^}K񙾷ھSapk TkW`XM?$vf껇#$=N߁$j']wI<- 24"ZD5SGsq"ބǥfߘ-9P@c6wklGao#Y{V~ernqfﻂ] ~o~ӬP Vz* 5/OQyݙB:"jߕdujжChAV|s[Ƈz΂BEh`1Q Z0hIn_" J)_7E3-5`Adչ[x|?V6<LSEPY*b5-Ic4eګqjl95!w"^DS[v 09NX}'u@qvq~fck}5liߠꓙֲ},D|^HI̺pXh7?[ٺǪy"\tFWZ$/` 5Vl5͠û~GzJ ,VCei&QpĹX]%|Jh@/8&fd!G[$hq60A1CL9B Ps WcDLVf نR!9; +_tEL1u*1z-xfX۰&j-kR+vazaM `',GEP[H)J΀f`ʨ7&JeztGM!I9aA>ǁ{57nf:*Qo7p &pob: %[D\͑J" V2ŅȎ|ٳ0پi_q̣twtgrYt*p9wY[V 9WB^s"\v{ bՔ>}y}.6*̒5{HW_4ԫ2oV=j uu* Ao_͟USiSe;)GpUReR8)i8U gGpVl'@o._쉲#^uoOӽٓf;G}8l' +8 )8kgv +8=*8lgv +81)8lgvR81{q٫$#c2f;!ǘpN1f_B8Q䛇 @S@aÑs?RyEx,)F4-PH\JDBb:@)D AM& [e @a8f.¹І| zcPT4;$`wj{>z;֒ER@D܄ {P42"h|W0BX 'zTNp11A6E[n$ 3vsê[.5pfXHM> + 7i38IE_J+VFn\9 q?Ñه +L[|°2 Z$"@J#Qp,FbQ-.tQW:8ql6Hxf( ]3RQa;/2PF-SPKAp TsM(&eL mzKE<2BD)kQx[~byRXݭktl~7L6UId3?mMil +7U@qo>HWIۦk @@B٥*ao8RO (xFk2Ȇ1U9)M#́<ɋ46:}чkCLgk|E'|* [%qsH?;OGu'[դWդWԤ~ѩI;xI;w8դNI;'/'UN^*'|@''휡Io}ד^}ד^|B/'B/'z:+^`z^`z^iz ߑ?;Ûz$ˣLӍCвDv/9m7 ڭ\q̛f⢾|GRfv{GvJ:@f7VoB?ݳg j.r:i97F D5(֘LX tn|pܓᓓi-T3HbuڌBY(۳4C;-T ŬZj[1TXuqM9-Tn]<ލ*-=JOϤPew8B-S,&fύjAj4 B-q^a>6Rhgm׸n.TH{)T1Jq^ 5O=p-ITF,-?DuL2$Q"h'Y{AStDޛ̧~T<-`﵋?B}E.@dعQq׃~VHQDqWE=J~/mTD2=E@H̕ʂ, 3kl1)my&Fg'XR p!q`nt5,&\-LIM3 +KtKkX&Ҁ)]͈j, + 流?f&VLFFH| -{ z(+ɤnm { 0kZu3 &ǬS_>B8i2#sd{spT*bYH2X s|ѻxu xr*MHE*NȯLmؔ kœO@&ȤNoIk$5C+<|," @s,Pb0YD4%7灻x›Sϴ 9woi0a+uQJ>v'd}Ɩ+7ɐFqF֝Z,Pi]"2 \nX3,@;s}@@TElG}8dSRoj10&u7vpo6gufԭo߮ˌ=$m8a<ηCVP0m4m&r$rΤC$R4϶!Aē^_Z2B8T!*C1_S+(0kB<|dKzf)DԒ^$Ғ:O]K ;:Eü袛">ĕ@.5$b +ygÉ( sն +քx<ܧrǘI|!h_|ʃ:.o/G/՗/?2}¸[MY +S娊Tf#껳y_Vk ^3 B> ED4 +{hӾ`FsiˇOWpȊޙwRKap,%7 +簳 ;WB^ +UU\܀tนsuž6 +yo}0ċ+4-rT\TD.( 8Fɕs1Qb/ +jD@sj}AZ71bYGBB|X3EinWp]UxNȕ}q + 9&U>,*bⷷ} V*}@;]0:,NQO]%Ā'ʴÚt CKf\> +A6CN.>xx6LPFs|@BU9VZ*m*S]Zt[ PgC*IEI.μa0a$*m#%W w^/Fi+jR=Sxv:. +$D8!Q6 |~o,H8j71-TJw^i4GѦӈfOYmX,'J(42J'Jb1V'^v!,Up") U[@xFxkLNRޜ =`A/B/e)#,4c5i< FEAZ Ek=34g. 0fA؂aA2≳p Uj^E.X `E[FҰ^ +vp,&&,`ܩ$I$j,?KD!e)vҸ:Х!rnQ+nߛf%SY9hA1ex]{elqhT,dcÑ|GgB%ѣ>gRFL$ӼFrj nԚ5 )DΣ(C.c`*eҹx7pN X8fQ/ͨϷVan6D'/bArT%5B H,쬄Hՙh|Q D<^̸ͬR@DlWQ$R:xWmޔH.hBu` 2僛wTbR3 R҂̺U=;3av6w|AXK&-c#E浔{)Y3*"w"B /77?;̽2D7^_q BYX`~~jLSKj֔3zV jKm%]J%ny +!fҴbkhv{Y6Oe<Ht-V-ec!"o)4jgNȶfzzfH=)U0x Wz3_㰶xP+Z{-!$1y¼)پ kkҸ$ȠzN ZߐGMIr6T@7@)mpk8M-L|VqF\s}SIcʌRAB~4E6E:aE,+_KCcWSi-Y̒%bSpȊ];Yu!#gJO +G(+YzLI!}%ҪSR-4r¸.^OBR,Đ4(_l&1+mD]8 k'dyh2z,IrˈKF+/DMZ %75m7k-:P~̏pvHvMzhwC:R3Ҋ04}(!V!K)te/|YTa{nЏXȱvM4['{Qx"x}(ܗ@*+ c;3bIsnW9QOpUЮwvL%V$߆"^ + f_sy9 'v`*Z/#]@/(yHeZmuH +YQn3JDEdls*Z :`j"0  A9|pL+ ~ʞ hb +dedɐ"ܶI2a,ZDs+v ]!$9 Iqo- +&!*)1a 1a|n6bfwoKpY|CYzxOGY~it/Dl@Oܤ9RuqU +.(6R/$P.W2r|rM`{/͊6WYё|b:{{ۧ,n"h.Cؚ1 JЏB (&}pl 9 3A@WY{Y,JG βv}320iZz  `!Ʈ&0nkRAc-&׏P\m8ȅ Ei#!&RV+`U) #^f,gx,esGn=b^~]%*a_EFzv#7B,-b/ +44^xPP +J&U" 58_{V0 Svպ2OEѬ! Cx_*?P(Lܕ8hVh:,2ܑGd)qJ1.3 orTa3fR +'ױ_S񨭒 p*ڠUT~:WŬ/,\  W)N8ɬ1+%+Lb?!vǫ-:L(ooa# RP`Z +&zX)}quyX!k3 ^A2K{0 \; 몵d;X;}+empMF>ڵYLQ 7#`S *]Nf~R``Z{H(,(o*w{=kοvK^kZ~=Sݲvq[~ ';iL{ Yz{WSΈ;zpY "V0"|X}j8έ:+_de eD8 ADž/6qx *9LVl>Hs'9ʅl[>^]!`.݅yyţ]Cusq\a=I:VK^&8g;Wm(Fh'ߊ9 +<& +hIr_V8(Bz}bNJ/~R=Yʾ ήb ^ JkR/e9+xsWCm ]1a2靖敖n[cb:0 na-!}= Sz5*nc_Av!FIE(+qWcwS5?Ѭ_c<ƀ-7NZ~$ii^Ѧm#4 + j&8dEfr &v͛$ +;qĂqbwP!A@ 9IY[V +J >f n؈F^2vP~8m1qpx1ӭ)ӷjeo#jmNڤxm~yxе%R/|m6s6"Z{n.[u;oVCzpTaRUc3;CRm"H4wf# =0VEg)Ѐ~/X5ڶ`b\%gh/h$Pـ"5溹w'/R +_WVG +/r&2lp2 K-\=6'ÓȪEe ۶@:zTAX.+5,hDKh.Yן }Zn?>Wq L5P'_kc4P&?|8ӽi~+>[ }{!Jhc5mkH"rӝƽ=w#OW듒rKtWWm|AK(+ZZDg ވ zL]ep$Tt"%`0Ԕ7%v*W lSiE97(uƩBRT82CZCq׎ y5T-Hb TF21( +ʺgLEܒUMtGBJE!kI Q(-tDU-P/ +bU&tk9Q"iKGC_M`}/"-rRFP3׆o8>oTFj 6oVHHآ}>z"Vunޤ +x_ @Bzp_4!jj@9E8vcKqq'"ܟǒm<Կ!ƵŘ#rղ)mPiPوO3*ȁ$*֛?s^CD,HvD%oF8c+v +xýTl@:s?;` /+Jjtq}SXg(2[Q$"*+ 4Ax+/nB-`ΠԒ&s/ ! qD5kǶ٤ ^M}DteK\ǓEdxP懏ڒjz{A_RwnnJP]Clc)2N5K@2,&M` +mfn4G9_;CK%dy_ Roib=.&}%td B3Qe$]Ƀ{*f Ls@!8HDl,Q{8c5Dm ı rtN_CAH!Nֺ4/͖1[BJEIW7~puY0I +l 6;iukRnp$7G 1@ȀAQ9l%He*o0B:cwCjW1S*tŶ!6TE) 1 |!AGJB/72n%-0KX\`5 +%uXT`W67Ee8> 'H5P˖Qe:`O|^ ķNi e:N8dQJd),#^$"^AURr&sHh0""IY`>6DV +!tE1 n2N w+%1B)Y6`oF^WdΖr UH%&lkV* =6x 0*\40OIioY[@q[H`2DF ά?!m3o}rJ_,}v 3@ˎˇ.f~[ܒ9DCuQXmQC Q>[j~f`5 +Y);zxl{@UQdhQ? Ղ͉RKێ ֠?)Kdu00*))' *|kRDVڥ#rO`-IQU>=ͣ 54 ܗBs:MzEuX5ozqH4-QMHjf JaWqEqt+P6`͏ UMSFFmfH-H~hv[sZA['`feU*Tu=.v!6ڡ1O[C(q5wv|ݟFNWL{Vet- ofwK˙kD_5={Z/o~_7}yuob ޞ闿7տ/7~ۿe;mn^Ң/߯QΞ_Oyv_s+?? +~gKȅ}nowoO_ÿbJo/tmnP?!cFZ5L'3;ۘ>kl}A]r-i5_?gs@ f*Une;[ֆL%7&Th@9 ƋlZMƅd!HiQ<[wrMݝx} e&$*M>%#a)z- Oi@}^ȿIӋآ/(QGy֘=у({Jy7o׏fJ"s#5T3VЉKBNlj0sJ"uqY"%C`BgH)Id , /%`IA okB>̬=OwcӠr>:WbsZNbNViC:@`ye׺=Ɛ[=S=XFx;DwW#}C=[$ixڂTyP߿aGOh`Mgީn^ash0\*=i$ }Ƽș%^+ExlTx3ܩoKþ+]8~6LJ ĠƩsۢe~12B =#n +Vv7hndgCoe  Tc cx/I5Y1Srio +!u70MJ_M&pzHY*ꕅGOx-m LQi瀄-5NɁWy1>!"=rQ85) +2F`â~+8э +`rj=GGiʂty&bqx)7ܶ:kXN J\:/МYS"2}푧:禞2;$n(Ґ '\ɧdr21*Kי?T@i^mdʀoN "(8s3zJ|;;ϔX.#KZbR+?$]8BM'Vrm[g֓$ƒ#SU$LǼ柇B !=Q7RpSM &v$AĦG(,(=gBLqtV.N4t)n#anjK<>egg+V]+G:D#(B ݆Ԙg.;x=(85FxUwOzW~ymXǞʉF. 1f{Do[ DћF?A0@^ 3=N,paz%H_ :gBk uH8ALeXزJLogBe'. +'qՁ:сnaUJ {4 +_0=%7Ș/JP9bf~uj@%{=@0(ڬ 0Gl\!Pc>>X' +ZexO-"8"cQIKnF3(ѐSP suOro\p̪r\0_TH͈ :^Oþx1qTP | 5 ph~lGA5P2Pa1@ }o4MW5Dy'$Dy ]Iˆ`CVdQ@=6oiI 4<6k?l_Z#Jel#u)bgëO=J7.*Bj|rTAg76-a5 uVU.$F禍N;Ya:~ Dt~qPNA#3#C9[O`Lbd17Qih +.u[ţq"&}ʩ:&U} r;P@  ׽'ee^ӢbP-Px'`9叄&~z\!F3TƋ_L)=EBEg@Z`ZiJ2Gsv{E\*>hs<]I~dSA;Xj4r0td 'LӟTc"5Ncf8y KQ}J ( ~ D~6(\]+6 RPψ1f4,b7ĠN[cS6W{-X٦k! 0UYEHKe""&Y +"t4|-UZO>'%+ lP,e2%;ٛFo<ջUyfh'JIg`VyVqqRh0o E<`ca<!2rĽs)쀍zPGہG~T NL)J3ϸT-\%Y9Qnb:8И[wT||BMy^=P"/57l+_)1Mo QzF2.⚁ 6ݔ*p.Z}=a҈੍ +W(*T~0Hx_[qي)mp 'ggzfP4AscceBpXAn|$cǦm ;y4|h~R?_dzB)>ci\# ڑ'2|\9)U;1PSjliBBXv>^2 u D幬D9naaw|4"며na^ᜍ^g{N3T*́o }m]|YQHe( R̭b[%6\SDq&ק[ǔO>^oJ5"FlaUjBR:JNY.'{RdJ7>P͆ Qr2[@=]7䨁5$=+. - UevFGR <>~Z^$`Ia}YQÜI)r݉GNU0ԴŎ + ]6cM7$yŠd%^ie_*wq.RTlĖ M$,d.ٞ1˰4$ngA=/効:&T/$x*h֖1I+7'q9֍beV$W4hG~=0 a&bRZv@d=85 2ٺR$-U]]wzf#0ؠ Ȇ~7l a]U<#סg~Kk48>|4es;u >f/2 B `|hW"$\]Ps˒w=$ZccYQF)#:I +R4jjZRw^V@ϴF#Ԓ;%.bˉzDm#"uDkqiɲL8LL%xS@m6S@;USaE x)!9 >{4|_ W[tC LLM̬^mZ(HTLRb^Egu-[Kr*>) CP&.<0r6#}V1 +o4̵Ay֭A P hԖl̕#_gZ53]O,^C^o )"% `hv£}{CercĴD$_ăE>Ӥ : +7Rϛ)Y@NkX9S"z-bnjqtk D7#HZ5n7'e7qY_~OoOxt. ch۾S ǃvڭH]N< 4Dv{#OxBN3w-ϼ˱*=PKOuPHY%4"Ac j1ڿ9бUu^@z +en An>maO3B4) W<2aw6DkSM[<eWE{:Фt8g(DuL:Q;ȵ^|P7(у đZS~QSفG1-_`uMjA=`hϔ\hp1@d~T(hr+Skc7VR`<{n8b3P%K:; ,gHU>:G*x'^Ra7~Ҿ552Bak[89HLU%6AJu2 GWb ++t@J -DT̕c! .(06zKh RgCɰ$NǶW{Fe)Z[1* +\[“1]i<:םoP(R ćysbjDH>q =7">$~" %`U7M`/{ c6 +{ÉKN͗Y `ο7nmoNη.ߝMlIIPRR{\QqZk78Y4j"N]+(졥4tCQtʈaA[rEж6'D|}auGn#rbuS9Bb +endstream endobj 361 0 obj <>stream +}\bR= m0VR3_6Z<#"6z,*|(bEvQNO?Lbb7tT"/t"~ěPvޭpCzF׊@s(RNTzaqe|$E];9pۯ |WҥhI[+ +nN'!m]P1w&03ZJIg3@{<1 44P9@M5E~uan't8s[YIZƸG8Wӂt!`'aFSڴQBqƼ@.<O(zfO١9ˀpOlY X%Ph)dH]XMqD:?~ģoI;,i$HVƽKzk%T\\71eZ/w. !"E?Xn1͡)_/Imï4@߲~\Ll+5z_.CGꉭ!ó{=RCv&ɽ0kx? %("49cn HƷ/(Q%K֫ } V$(H~3̸ۡK]V`ks)Qt"e=% ]^pDxP 1sͩ[Ί9,A@(7L㍈xq`IUf&RƸĦ$sm݊q`[++:VZƷ8"|%i>2 vAO +QGL%AjEAm0 ds\Ql䛺+N& gd8V9Dd(0,:fMq?`x7V8VDRB +vq?ĸuv0x*rkc,%$= ؊/ɞ(¢!$]&o)lܩ>fbbve/`E7uX5.zL3Ѫ,"PH30  D R#*4#0%baSnp9n: q!_"%>nP/3UaXt ) +Նvҍ%nb}De1nV s*D<فF+v@яVc:4ͥv #YezlϒgҢ%!ĉ]8 J!dA~|d2 DI +U0 0sQKs6™Ujɾ3skCF A?1< IJʉB =<>:r@w6WǩpT= a 9xݎL;v,1)4h)ҼgHUqYIg5(iXc:GT#xƫ>ӈ]c*e\SJi]c @v(;M7yf̛eoY/#:~Mϙ={UaiQWW2`.羚ːD?C5B >@ 9pקyyQf9 xp:|>v$AgeB%oŤo}//_kPD%衒iIղ4q-  o@dwnnٱk-֘0:+G-&ux;1?ǿ_~Oǟ_/o귿5PlaL +qB'-/Ƿ-'[=,3 kl|fh6g(hh/.{kO(ڐxY5]!ߌ=$s&? H01,ƤpYjިb;àXo* +?1\2+A 6oNd)CAK΅2f~ Φ}y3{*\(B4N$By" \SVՈ3{VSTAH_?G4"Lg.=]%G"]^ eɇE7o,[\I""1fͽ |fҕ:Y>Q*E9ʔ 癕^4Xz@fQYrCh7͓kab(@BeƐ[30τTT־(3jX8q)xItQCIv_HF(%3K1}H^b5z 9N2*82k2 +T@sC2KL,mHǶkPdN@}hr2= J@RoLUjӬY{HL:6!ƻDpkeޝy:>lO&a(Ğ*pDd:Ba%AIcm x* P5\[\Nʏ0xWcAw`gyn=TBa?{Ȕ?ep2U,wLr>w|w;8H$3e׈>k?c ru'5JY xO\!0K 1@Frix0kʺ)?uyP1ۛ пizɄ8}9dNԖ2D-5:$ e!'?,B(^?mC1Ɣb4E%f}uܶBz`XEJ31!R2}eMgE, b 0Dܴ2Whd' bSnǙIrR#󯸔8 )rdO Bh6ٳ&m!@V2f2ip/==j"dAx8b[^Vt`rSrwᚈDF) __I%]I,G٘9Q*bIAҞg1#.M jv~%ao,,H +bҵK*h#dS&lfv͢ЈL.;)B,ժĂD^GE` jeqT]r#L ږ#v3/`13S}:2*[D,i # E7S3 ,XTk;:澐0"ƶyop wsʌBU&24[(niHst As<TwDZMӃy&d!r,G$Ihw qJƼҼQx2т[bQq6SRv'($A6>{94#?il`ej7סeSTp]d3[X0MGR7}}8+}EO_EрP$ѹI%<0إǀg$#ꠀ٥a 51B;W_0ۻIJ}U' gV =+^L|XoIhn@?quDXjyVn2PkPT#"oEyd}IF`zw/%X yӳ{C/m:1- + k ~%1f^ *Ʉ_E6t7kCQr>,ǝėUNlhs]ȃ/q q8 (1ԒrMYd1و0p/2ܢ;Lɠ*eV߼@n($/J eNRw3#.! %|i9XK0Mk$~W&fBY ԑIɚd0M)R +y<[usy]G~< he]YtA X3c+dvX@MJue# ND_fy0S=YӖ +t![6ֽX;վ${H+|:hzITaFViӥVI=?i 9RKfm2g*@o@`@%*rzI=.Q4VA704CI X i4umjًE4[,VSmpG*3%W!AqVvcJ_e7ъl|r)4?׻TV#)xsVyx-Qb\!X+~ "/{CАg?+iV*^$L'lA*;8.}!|$-$_[ N1B?DQw/B&҄]_K '܌a]_0;V3(#Ҁ|/Eo:c Śe݉fq*\{W~>I G +tǗ8ħ[Tϋ,:(`NU4\AΡσ.Q̢-b,k pInGTofDFPu["C˟^,̟v^?GޓCc[?iSJ\T8#`b2k/I)xL%{5]rL@c0eOu!ʺi{6ӴF if +>6X_JM)HO@.CەS7(̗pUt}M~[tU")6k8M$@CGhy!D+zU|@aA*kګy1<3ykP⻆)%$4#\nX3m:(8pc0-[_/Q6Oŕu7P5߯*/Tƪws+%^H鏝= y<#OyD6W +d5Ww'nu˷ƲXMR5Xs\]SDw=TYuXy=[w/螱=xDiq fմP˜hX:u] /fg4Zϓ)'9լ _sBh@="-$wiEDC1$Z&y}/쉗QGZfOYSO*P PV5$J[RӸ"u4QYI1@f0bDĤ'.E^Zϋ4E+(23*p*<4P%GPN$̞QJcmG} }w@:0 0Dbj +6!JfIx~v&OosSif2PiS.`[nXݎGmѰX`uݠx XHf6rfE,M$gZ5E@Ԩ@:ÂDG|ag +&Z>zՊb\%s~0d*ۘLuAU@Ղ&lI.<)/!}NuǑb +^ϓ=ݍ"UoMR}z dHI[HQ#]-s +LV3da <CA6V ЩɄߡSTrį +Ќ /pߞCl ۾,jŅ2|?ɇa+U;jUYv/)vη:꿲$=ʨ6YpF`^nh IP4#P q&fbPmkn iH`b}ztvI}J\"^]3{*IP_zr?wm $.y1R6P`a&JZd{8oݐhg^oEXCI!%5̐hT=ŘΗY]H7JpA[؋Ai|w6J*>bee0@Z.7'I5zlz 5nM6ӎM~&5TSԏpgyW7Q'GKSa+*ד + _~`&DZU1'̘4(R$w; d f廾iթnėR#z%S@d|:"(g8]tLts\MVmÔ>5]%P&H&tNa" ǒP(+U= -wx8U#i݄9f#Gc)Cj%5IBG^yܘ@ 1`ϙ=ǥa Ys;_tg(?׆+7W6(c+ձmPc +LA2AsE%z#d9xߋ@%!eq[$~_" Ja?m 5Y*{"EԉađaDf:B!EE ӈn0س3 K8]c+)SK6&udYn**BIV!57e5uL >/sEGݑ Ipo0(Qr?z;N=/nia4w+@kN'"Rx~Xo@G&LP,nCZ!:!݊4YsXk54E1)4VyDO-pZ_R笪Eh3DTNPĔCq~ etE)1sALq=`TC8}*>b[\P&K ]^y d% |׍B{h ǩ.Q˯#R^FEE%Ha_ER)+NPp^IL==Ƽ-_f.jb3AϤgڳBԔQ7vd"x'&[uk)VelQǃJƺc(PYR`lHfb ťR Z{?m =mSu+ƶZ{K17YT)2+;.gﱟ]6otdE+UA4etP@[0*ڋ2 9Μ K{ґo)1Tд=%Sֆ2pó⠾ mvQ1?Av;sQjDZ 0yгJ"P8ICub ~[ `Hc~dUߐu1cXX+7M3ݮ"Ԍ4Ttt=k##M{TRt`u."+dkuPvC2fI_۩AOZ}KRTy2ԔATi2Y8CQ5څPw;)δ?P&hU U,%)#{UTI\b~\Q"+!.HY5jjZÊ6.e +Z1Xhcֆn%(| H>ifZϔLVKRƖY2+BG)B\9i@H|KmɝxoX&nTU;iqʫuE?fee[Ak-zBVΡz;KyXMCيblMp< iCTGHF_`syqxhX㗧Vz{b.E6q^2U~^Pf=n &(  Jk,F5p~0TeNFG_VrVn4aA ڞzD_r&ղw/81{ =V8p{=smTdYhyH\tC2f +jK6H9?H+_nt q&IcD'tYG<<^5Zm_G=31iUJ sJG`E9''2hmyGO,d7&5מ`Io"((-{8sE;?iF&5x74PTorX+($U 'u|jM!Č +yzYK&[jAπX2ާ]ӏ_3올3ȁN3>*pd2Oвk Mӭ뉫 (uiQ8kHZBˎ~uaMjJAndnV骃XCa yoh=䃞i '90Qk b +"!/Cn$PlG`,?Kä:4@%eY-V25.f|04½-@@X֑?ref4 Ŕ@а<#@b>F=HXG+0WLI-1=H Թ+tU-Z$/]^h!p}zD\G29YY%a4CTcԢg̩{TJ{ +_Z+-ZM9Q+iL5lƂ@V(`g{jiQ|]d7r?O!Emz[_Ë3tN gK^3 +46Zc"۟V=R2!RBF̉u ֨:J ط#ڒbn7ٯ=.vOS[cFjG +] ͤ& +Cx)"[r޶O_.%x4ůLzg=y4[mca-i'ԃfx`X#k_jE ._v=GgA]KCЕ1^ K9FCনm3EEPr{?:~ɛ(HZm w 71>U2Yh4(R<{ v |p\eyi5B +MWx80_G|B˫<>+,RFzEhK:_fwXQRc@5Tx b;v\$O읞3e)_JvLpG3jB/g#av *}BHzBsQ`ڱ18a4|:~78<BMUҚa[>TU5V o2>֖z0XwW~\vx5"կ3[׃OWLLaC$vp^ Z)!RX=$>h}e8^)\EۡM1#ax+sW>Leq#Z{G%@n= x5W}=R{pܘk(I M) 9砣6ZJ~W.i$n9)i ր +cc369}|&,&+,Tf:! l`D) /IHS٬LlɪбRч[{vʔ +"jz43[BV8W 6^`nTr"ʇva}SCJPK2cL'1`t-pn\R`;9ΐ%^ݭ( hdHğϿ6~h>w+L 5#I!ˉ4eaڎL72h9SR,G? 8OI^ Gy9~`:6??OZ>_ǟſo7ww/)7?ow?U^ asDXjM&Z| vV@kX_i8٨ա [ʍ -Ez!lzr7\T>WL @^5KNN5sDC-3SÑP*ZpdljV_N&kD,+dY  +[fHϏέa1=%]%2 ˾kͨ$Dcc +',(`OPh׆K㩟sH/% DWə(RSsf٢Ir:;< 1"=6I%C5O<=TKFPtj7-FZzwg.naL>n'ptژExͯNΒkZq GxƑfx;b@0eS/)v4VGh!_H@.a2T?ϫ{$jPd qz]WSberVe{f Lr: 3ꍵC}^6bw@hy\|:nEi<64* JSx^cإX Xh|su]{lBYKql0y7K*^?[rPOHP&l5Aړms 6%Eǹ˴GB#O TW/}-U_G C1H)ڃgXmeѡ"l\:J |{&5V) 3-؞[MLx΍ot7#5F*PZ.>az Զ@LTLN Z]TL-J I%9lГ\fE\Ii0ۢPrZAȣcPv\y): _JGAdВVX)u+>3f>}5DXjeV(=Q=46< 8{{ѻdu0Ѐ i-MC,(=?1wlO@HWh"wNC%a"J$ݣ~,#YʵfC&~!gMc@CFZ|r7U5rq' ]UC$bs!UBg=^]5oaE YTvXRa ^h1&1`ľ驕tN{PL#-5%-;">]zobWa [Ӯ!\)ȶiחUWgt*%~laN+VD0_kaK`=(!l1Rփq߈kCNWLWJ9w /)ӀX M| K=".=JY GWGVFJu2A-44 +|Y%aMPL"ua-jU{\51i 6M%5l`o1GOX[f%Utj,1$ǃQQĶYTey )B<<G<<Db.[*J8hҏڵnZVZK+AP"2GRM~uI^>͟>Ϻ~Kn09­LCċ=36b0hjCQ|L}T SߐAJaG6dG=WoW k X|ಏqqS`3Kە9XW+b_O״UTXj:SS"?m[LY4hx$*+wVN)b<,zS3ǬC<ӥ Lć9^_t2hjqDO;$Ԡ +kOT[Z넉yM;ؿ >[h)-G,Rf3l`B@wjt4چ>|"SVYL$\ ZpBkE~i)uO*B +L3H#6G\gQB9Q@R|0 %^\7 +&{ʴ0 fSwF_WDe3Ųع,1Eě/ +57o8*c_[Í{I`fFu Yݰ [ѵ q.hdS0t?z&ɾ* ^-, +ƭK~v$w3c#m=G+-T|-fS/ |c˒"F^ dv;`V ,$i`5N݊>xmHU/<5s]Ylӣoݰ_^:G{VuC\*Ŝt"勱@(Inط9DQUf+ab zl_ZQc\SD|oezGЏ3,Ђ,TFĪW8K~mU䜡ޗ=~JGѾֹ_U}g6In\B}U-v{ѹp>V44WDI%G Ƭ͆sCm;j5HGfO)j}0]l[[ԅBܛQ5A3pNC4 =u`p\u8 5'o#WLeV`>:9)|giԇ4:Tɸ;p5\%Q;>@} !I] Ss'P& q4EQ/$OhweLW;^y*裮Y2&/[M&pq9׶BƱ%R< ; AdK{QHTUҕƶ.ȫ^^r^')HtCrD-y`G`mu:;bn>VYxkZCǍeIXYQkF[Gs6(gb[?o⦢"|;1Gk=[V%a. X#xۭQz'"r,/-O4S!Z8yQ +oܔr$s~z'L5TPmDNOH"Z{5L>wΫU=SR dYJdɁTR=@f#r")TG?H,4dxCdH*RkcÇ7:2 /ioZ rqzHakb[IhtU-Z0zu-suFפ(~gReQM E"蠇YĵcHECŴ,NL.U7DXˠ=N7ߧ| z` o9;z){ž +? *%ͭJe*JȬ׳T贈Ӱ_—K*K$|}Wف6ͽWU!HQWOEk_ndSeCQ-&]٤i|Y5A2_^:T}]L-yY0'^36{C +-4ߺQ!-l۩SLsV譺SBn&BUAqKetST8(db0Դ# ֝J9H-OrAKLmU!"e<T9z (q0fp[).^l+Y41ЪBc욇9w&ozLa1O!k7 Tj9}{}0RB%uk_Ff(^94l1 D +먺CHB&[B@W'n\LvV!^Si@%x}aF5e0\6R'26T1 03FO0xN}H^"v{T>2 +y(szݜ)}}=.-5. #Dy]+;P]xT'TA +))*^(J< R`t(\[M +gp&lm'C[J-EPy:-VPje)0#P0IQBetnK4.̳% +ڂ%b70fK(4| B7UDwO|W )ٵ; ߓil!@IX!^qѻ6.#!GcɿEQ׆ES YOOj M#ӻʠh/g +:em@U!ETG$[AΤl^ڈSʮ\ G7JZC9vTMĐB+}SuyiLhEcQ$|]E1-D+%f#$Nk}!`|7;d7{?ح?fJY2+2 ;b,rҬ80֙oAer!~^10dP@I4w8"?nH"M]I-Nz TjSUqiy*eZ)OJ(P)Btbഐ(y* +T+E7\f%L|-%d|^iNND(g%^Fd>'|AN3# Pb* A d<a?{6Ir'1Y ljdǛѶ;Y  dcϾS8ɰxj' +v8&=(#,~ 1֕c'i  bS+@#$H|.խ?V-k1Ӡ h;ΕЪD1[-cي1v6ӱi[A7bb#fN"EvO }|ySm< 9qOt Rї@8GQr}2FbS|f1=ހ`ךaBVYJ,K}#ޢEha +ic}vP)x.64LWEmPJ{gJ@4K5׷}cKj@A?z_'zu<* W Wo"qSyLUOm˙wG?~j<9\; ɝ1Ua|lX;a>GeC {GK 1}DM}/ K(PRˢݻ'_ >PeM'KZܧ_a=KYp$ͅJWiZYa9\ߖa)(G6u;r7RX;z:$6PѢS?OG1}v>uXTN8H 3TWZ[w3[I ȣToC5Qh8z;t':/b3mɆ\z„~YAB;LHM%GrbLA B;'cz 3o'G?c}ύgCE&?G#Au CScH85ry Ȓ(ElTOdW⹰8e>$'@O-ƨ:! -Z{[N|d_9j ߮j'EqP57g$ Bvh ldWD@c-V2^SY=bf<\uٺ9 z8;Cr#5^V +ӿ.L/7҅g\Et@ "JuDzP-Xv%4e565kޜf%֤D@{ ص#3=HWgmN3\k.Mhe0g@,0ot"% + !nqq CG`6s+P5];I + ES}(ПY|upjx#&mZf #)uiZ:Ec.gFd tS;i%tP}QXْtDA] U>V~Ȓ6.~wڝth/ A4U y$B|nw}rq肂-3N)7ב>شbhf왁#X仉LOQ$2 Td_\*gvBP̟(H) ~ؕy}aHȬ<8[aT()3|Hѻh3A! 'j,{h&JE +cC)ARX\Yh<^EAĎZD)vio^ @6T$M8糣e[(np\JS ˜""MKֵRKŤČV@&[X8,D;L%F+)"m7-uq^$=D8w6ϚMOgb1n^uT]XL^ ̋3Qwb:(7)rg3MabǜB"q>=fjSD:NA׆M.czɭ:9d$I^ bp/ktoI 0dWUWŵn䭘 +Bl)n $ |=p7

nOE{3X`*p2@OshqQFHz^7+!P+RMMc91NJ zgiwk|cx8!V*f-A*3q;sz)OQ$U-;0lv*($mUH#VbgceL>IBSp*!|&34j?A z7yvvL0^RHl)u#H?--atW#+kB_`gP}H)W#SAw zDceg?{LDBtTG`I&&Ektw<6Vnp^G~T>cI{#tG(Q9QNU76HO=e*MZAM&@E-tPmqvp?P zQu>>tI?Jr$G_wvA^cYtaQ{#fnf`Z^039+dt0ANVp&*k>5_UrVRg%fRaW(|@?*r9(d zhUt?(YJwZT__g`>K znGhuj;zZz|5)w#HKV}ERd*W_+2!&lm;Es{YuaA|TKYL$*LIig)%rRq-!QoSqKNr4G z2qK&$Ik3SaNO^&xy~T;6qV{*9;WJSM}7{W zRj$3U)bAy{wbBnl|t{Hh;lJIn6myVA4&xn z$fnyd3*uE+0Dn4wqe5U=>p5Mu@znBuIvb2C;W%H>k3|It66%%z zZ1X}{2*?d>OGhOc<&0s>U#TAlHZzs~dHA&`&HXYfohKl?mI=v2QIFB6ubhSN z)|lkulDOwBA6nf%L+P+}nhv*&Hn^09G);;x1h>oxCh!aw>F~{j|IRDwV1lgO?-jA{ ztQpbw{$ITM&w$Q<(CdH3bp9b$XTpT_z`wG&A)i6N0OT7X%F>6n(!}vh%-cOhIKzi1aUBo zS0A4|GCeZt7fEw;jg_c>vdb11VHU5-9wwN{qMe(DubGsa5vU2f3?`_quqn_Ou;v*s z4^3N-^1MOq*O9%#^B@GV-s4P-sZeo}B;T?B24Rj7W7BT98* z;|^}z@(()L|DZD#*ike0ktt5A@~l+&Ap@V2ov)$0UteX)@Qsdy7HRk7;`z%5TwKkZ|1;zD9|!-D^wR#YFO)?2`YHlI4t{tU%W_VI zRXeE%7`Yc++BS{x1BJFsfrG9zb&XYtXIQMYuKHwoC071{z@@CGY?mXWY#<3K>7c5( z(C9fweE%HDG|R81wz;jqyEx4*w`r2Cq+>iW`Dm?N{p(u2CzVbvrZ!*iCxiPj(n$Du z(@nrG_UJP2IL=n5#8GHk#rUIEB1kBS;grQ{TaBGQ-$A|JtbZ?c3KCn!4{~F|I6!Uz zn=YwyapPpoB&XKAk+(RBMvvZVECpFSDmdtCiljDkTKfabhP@E}SAxQIn=8bD3}ck6 zZmG+|mj?I3?IlEkX$BNqVnUPbK%mt{5!S^5*F2=fHDtB(1_~nQ1A3uq)A$3Vy1_E0 zZ1>*6Yv4~grg9szhTvxy(1t>_q}C&C4hRo|T#qSJS5^}lr;xvvyTo~(w4aE<(c6yn zYW=RXa+p25d6^6akWG+Vun=8okxJAje-I%(2HMBHgqovBq|ORxSVqy&x&EGY?qz$> zrp7%8>|;T?qkYGuQiUc1u!KZI#iQvN`|a_JCtgT$#HXpuR0AKGFA@>Co`4LFsVg(A zhj)sX8m6)sfPrm9*Y8mYzK}&n;U;@IjCmsASg^Il11L}j?m_W})v@G^-;3cPo;UT5 zs35LZH;7#G*dDx6^f|S)fGt5xLiWT(fN5(Ugb!NT2cx1qo4qSkI9ibXk?dz~iQLFz zQ%y*1uR-Euao1uMk-|w}H(E@tb~B=_m;WL*XEZ5gstiF ztseVPVV6KQRYylm6O&?S8FA?=| zT_#mgBX)L#EykXxaT`iv#c1OX#z;u@xp#4TWG{VZawofm%jJArGq=`e*3)gW%xcn# zEf+-=H+55*H3}i5=fOz$%ib(;UP5f4U5L=@!cmz1Ug(4mv1?}#s=+(*n7fzAIRkZ= zNc=!hrDpT7fk29*lEGWnOZa%`^w=r-H49^hn@!hNo{kYU@<_MbzlW004kM_HOiG4r zKLUq_W+S4BBlQMu?AV+l6#9DsUi~vfnP!on7AZ_ndNSV4(ta>!5msK#`1NrQV8r`f zX3HLx4+jSycZpMHqwdh%idPHPTwNkuZ<5p&L(@zR1GC{2Kdq4V!U*$Mi4YbCA{@eM zr1W!~IK1^MhM+~U3B-5mUC_|&KEjb3^8#QydVYyCg&Hdem)2i|EIx2*Ki9vYUMIiW%kLa*wOiBO_~NLK!u zNMzw^fl<)TAXZB{wu&F}dk8)M__MrpoxG&RF!RIcA@7uyxIerND>L<|g;xo0%bPZQ zB}cCW{Ee%;`3$emIhr*58osH)#!~J?bF?nrh&V_+v83rRZ;pc-`VSc{er1wocCahT zyws(LNO`KMgs6xRs4l&+fBOVLb zpXlIVz@#bgdaVs?j$4PbnZF?BgX>Y?ZUDodvvC%8!Ikr~acft>w0qa=>(g~Uy>t>t z*X*1c-s>NE7mu!CJ97`Onv$smirc_7ncROsXBoKTKX$0 zXk=*QrY8dQCQv~3*`Lv3(3D8@S_cYWn@U{ASTf zg?IsEXY3}@Fx}lvVR`R(&`xI_x4?I)_`(&%74T{LLw5%nPCJc$&%pO9AqGc#Vh`{5 zjquLYqYda=O5uM__{1aX9eqIGwnDb|wufwP2-_pm1^NZP)Bm$f_(=4`d(!0VQy34M zwWOfXdcyKhwhuebQOfprFhn}q-POadupqjH=C=elVGLHY)oGw( zTLWCKJ>G# z6mx$kYJa6UK$+T((~`o-%qQf(>nxV$5^p-cI||Nk2SfK?I}2GOF9)~p!T*10PXFW7 z|7^mdXS!g%|2_u!SMM)={}n}bP&k_#a$ld=J#g&dI>ZLqVZrG}=3HRV0pR0Px6xm& z&{NqMvolm%ooF=EF#DQ)vu0!o1I*$cV`NuqAQS8H%6U%La!@zc(=kCziPr|pIhLn* z6^@N~0%}M5cDh5H|JRiq&(-)lS(okdJP^Jcr<}#H^td~By6ak` zhLy)+Q)j5hgt%&Xu!IxynAj`0tHx2VW-3qld;v$;$A0|Bl(Uwp@3!ehR>wUmF~4ecN4ljyPhlwSvhQ?rOt5 z2PFE2Cbp(dU}VJ)Q9dxfjL*eP6C01nxlxn7ua zxCK)mJ^?6mM9GI48;_8LiDbT+Qtq*x^&A381?UM#U*^87qFxW)G>JyMWG)1(Rw+T<{fj3U-I0;i)(=3q&(f8uy;hPz#a6B%m}QC> zYf>r9lD^&ASV$*byPxG!9EWs(V|oQlzsKJ zytY}zv8_i`6Cd-F!W^*ob29i0P8+jy_udgO&e#FYj7G>0-TaTX{vs{dc5Y2lK0%ZE zPK`a6Qht0D{~T#Q+Jh^NjGIMb(^&k_tU-%&*Jxj!`?;*?JsOzz*#>{1;gk5iEseiq z^l2tFPw;&TNqSGTZ(J`)bh^UVMP1pf!@|~-;cd{HeSYD{CIliz;U<}4lQDHJ>@B8T zhE!3JltV+>e;1n1>mIQnWSKjp#mN;eF7VPu26GKzh2^U7H+n-)PBK|<>8)_o=aor_@g~+~`Oh32t$^%nC+Zcfwb( zij3nVC&OWG4_1hdC(VzY`3fkfcu0+jTm`^=RC&oj=NL>xvBHzPf8F6K4z*}UhFr1Mkab8Ss;=}QQU6X(>0^s)NvYR;Us4@cd z`FNQ;C&>2nOcXuYv`n?B0~^e**}i;V-_;&tMnK!)y1lEEjt4z7kwt5Y~Uk0RxWDb$D;oCJGOm;201+sbOJdyY{fTR(q9)m zA&kx}n1sf~cC)aO3l|@23L9+EK<+v%(bPK14RW$;p^0WMd{+FML)hm&Cl*swBYN0h zc2tzOk<_F-w8rBw4UKKZ3Dwmm^UJ0-yw)~Z4b{f;>dCg4DlKm*^=o%Je*YHUxz}NK zFmNCsz<11$_%F)`iwOV)3s5!3bP2MtmK&`5Ak;V>~t7$JjwsrrWcr|aPVQIH)kR!KY4{&Xe zMIYR$jcUoAUH_feoP7yAT*VJ3rPmx^O`}R}Hz9k`!W3|2GRmuy+OAfL4%fNBT4knn zIKO$m;gOx(q2XZQan-(K-gq0Y?@dPVQj=;k|dxz^NY>!6aogtR&3I+{GK2&G4eIwDnD z63(H=+$um0jjW%gm@J5>B%w%VjFT7K#!KOcf}93eu4LvJ=eDAH;ma)wS%c@UB)Q1w z)+)!;Qi_x+xB8?MkRC(@je+d3DLA-)rwJ79Wi5x% z$h^aR6A|9cXVrk%rN$|keC)P+X`NVDrJY07^yx=2hc6d#7h5)b)(31!^-fH^)KPks;2`V< z0n!RZ!?D~;iOaOW!o#U>be5wPS zf5N4N{p;YE#}@uwMVG+PrWcuKb-+Bw={?NIrdPuG+K*+Sl+%$L`Z~Uc7igP4UUIjNQA;`gkW*$|ARJ_Yw=QjIt+E|fLkscoYDx57_kCY z;L0};WCvam?Kv6x&z1xiJcz6$L$PhTa;Bv4|GXI=5`rAF^D(` zLwxVILIFEOFc}d@^QI~9GDdG|+LR96m$)1LwO_Z&jBBvT?0=5|+2$Ix$V_#~bcyA| zVEQ)O@uLiyQ*X+ph<0mTQX8#0g$d)GAEc~{)_Mpk9xATq3p?T?U*GQn{<}hzp`He+ zf4AWg-|wgXcaPA2%-E#HM(hR$5`b~mA8FB|#vY9vyB<_2Ew7j2cNr&PZ^~&ij+83( zdOa##{EoE%rGau{;9%nt=;i%Ar!E|$|fgvW9&3Uf^g`M5hJvz8qn8Yfm z`}clwh1PGt$Zs=`v4?KN4H%;jfewuQJWb%iR44Tloy^egpFr9#=z`pnG4 z#;(`qMVu|@LM)7^0qgp1&*2tLiy2Lw1>of_5jE8y7li?*QpZr&GCC`PX&+{BGS=QQq^psv)r_jZ6YL3f|DL-g6 zS*=YHf0-`)B+VS3sD&a$Jkp0Uc4Kk{KN;vb5(r)|YT$MY)`#`fbJ;DhFd zpZ<1H_dSnEl`2511$FSi08O{PTrMmM9-p)1>|9I|NtHkk$2ULH$9JZe=#n&dV@x$R zQ2CfGC%l446I~QlqqFN9ITEbVBy&^qWdUQg)Pg?XI|Dxo*05FtSElPfZI> z+W8aIHDDsleRXn}%s#f4E4C+BfJHmdRwX60QpHe=`iC|}((re?oe5@t3oT}_n3>T# z(!cxOi@pEu-**ugcd_qU)9Rk;%$};O>a6O_ud)We_*oZ~B%Ao3<=*djI#6$a+KY$` zocX+yLesNRbxy9*9Dnzbz&e~MIwu(%YX`cU(FHI725Eo%l~9gR8vn0Lt7k&I2#}4n z%7#5d*J@^UGp;9JF|rdyN><8KZOd>YILT;4x$RcSdMaf4Xe{eGiKVc$-@E^(T50o) z{Fb&f;yrW;CIbTim?RF!B@Vj;JW{<7p*Nv=#jX(H^%x&g%w|^KWhGg#0z1mf;&F-C z$8N}aUeu)B;<-^8MeyA0O~A3Az`BLv{rY4{8ASL+Ywj)sM`Avu)|qn6|Fx$)WvvMi z;Yb2LGPf!2_`~IPM+l;RMBZS8X2D-^PSXW0NuNbqGp={NJdE7g`etUg?HfF5rqx!O z=D9FN$EF8j>qG4V3W0!4{0HJYK4>)jfw0#45k5q(Qi2w@3>WU()XQj<#|XvSaUp)K zTzYu^@MAy_6}~wxtHZe}N|*A*NX_nD&6ID4x+P$>M*1CEaQyKdAsO$W$DynX(dD2<4nIi?>x|X zZd=UT{jk$LlX!!>L+;Hspqbe^U+S8b`SLtHeVY%OJb&G~Xa;3C^CIPOSlM7BZ&Jsv zRYr4?#adCiu~>Rgs@!Ys$~Dq<&DU2sjB~;3t6Cs-68*YL@;YXr^3`JPYr6ET2lP}4 z^Q>Q&9+tI$m?cu!oJ(m4UQjTxK980wtCrD96dx$rDTytuADBXk6Ay=(8>mo2EQE@7xQ=amob@%cw*5It{;}s3 zD??Rmj?KGnO1`!bx1Y%ze!tHue>(g5Pk&q&F)*};GcNSPj|^p)%P;i_%oNO+umcAU zkWy4OX2`zFL&1+S*|aBnTj_cT8Oq#_*nUC_$voDe6O%SoD4w@^K7n|v(wS^1RPzVi zmGivEFTBmlD8}g2lPpTq4t3&>BXh{YNmysRtdI4|dJl%A%#qb<_p2ul1f6Hc%zQ!Z zmUWnfWQ*nt;=oH*5q&wUl(DJ)Koh>!mC*~g9gUJ>b}?>;2BPJDT{CU1YqSl1BG!_7 z+^wc_bOmAtCvqPIzGO8}Ia4oR#{&8I8(%V6=-e*HjVKy*B7(%?J9Icoxj~9N*|t>tmQA6;egmLuSYr*qf>Wv zeA>+_>iLqX(-lHHvCLir+u%9NE7Uc!xuc|Nn5*DHZzW83#e{+mrofWs;|y!f9?VYM zXil9Oj}(}DACcq8kT&m(#rmmLZ=;Z}G3baCh8A|n+I7c9KiRM)nw^k1`bKAtiJR4V zNwov)14nM{m=LNH7lhoRc8oUIh$Y&eF?EFkOO`I)zq}GMko0uoM{BJ2M=`8)IjB$)w-y za-y+1RNgI7b>+tJ$j_8UW%)tAf#2`blk+Q&+ z5sv8PY*N3Ew|8AtHHRwM=X*f?;&?#ACE7)m}YUn-H24~w_LZg&nn zO(J@7x?IPS*_RChb0PVo>%{0UiE}(34_Qb}76KH}Y^$ic&$oDt_zysKi@crXa3hIQ z&S>g9CzL$mTP8yTVuiqs5xH@rji>klds;$W`_HQg@lQtIT@+fSoc~Ty`Nkaj(9XV! z-k{1!?X<5b+X|3n5FHhHp+j7SN-a2{s><)8gp1Y-s-q6&x{)x-68<>v9L+JgbC4ta zlMf~ZhuY7ysi4y*DX4%wf!uG!jQZr>i&Mna8xI8`BBUM6N8Lj(Bt5c4AIwX#ZU*e4E> zjLZNpt6o9%KX8a42Yr{>aeSI0&r{n-^R=FFja7}RZDvlci9MOr=_;w%t&=KaVbu&8c$zZg5^@yX|ru(z-;`q zl>52t)@j|xHzTLJ5i+sKSl6{;p^2eSzl;0+COP?KO(EI#GQuX0c489I^P#gtwRGJv zBS$@gf=Jh?!)#-<^t){3AK(w}g3;fCu1Y*^HTrVj)hhT-lG~2YRLe?{rPQo&Crg20 z=+2ehuLe3dz2z0_VpmOjYeCfHp&tvw4F%INYFV zCWdRp2e#eW38F6~*X667NiVem@g{?9Cvo+qik2xZOXJsus4Oujb21rP%kq2Xovxkn zQG_I@a}S*eemeVl5>;W2#u!_M_6?flNM~_$a|e7=<6eG_CkiLCW-B_b=f~sr1r`Pe z_t-pZ@D`0`WM$q@N=XK%1vp|jqsTgT;cn6*2?nV73%?Cz7EC*qjXi_VA-}JWq-xQ( z1(+&f)Z(=!dH|iqL?cu600mztsTvZqs4nb!ys<7~`$L(NiBC7M>C6u6sEpxoi?WIU zeq&c=?RFHtl!KDtw7Z@+*-3}Fn7cXi0t4_cf-^00YLmHlBPiO=$nz=}KNT}S4NGg-UJ1dNr(Tg{ z2}QWrIZd0PSi2{TJjWaj>t0b4choqt52qfSTPwzI;$n?L--V;lO#Zp zZwp3#EC}_;$nm4#hsA;O;#?hx|3gj9>;>_32K(UHUIg*z@;2}Au%SD7jqqH{ zFJ+ioz_V-=f$|GCouO5X_z(<}Rq@iBaoht$+_KpYSR$UPgS*Q#-syHk=6QrI=sY_V zO6WuH$et8`0+^yeWDfY1d*4yZ-e#g<%iYI&Q^UV9$CNTwwsObhYMbJ!(|b!3VsV2l zM7aqPv9l8`WQ1R-hZjDW!hACS^-^TJFKxX3uuk~2FJXSJYB$EXMv-w98V_%f#3UL3 zjjM6$h%RO$?KY}$?2)yn^#umIv=l|dxixOnE{}nt31q3Q2^Q~f__aKOuLi|wxAHL% zm!Wb2lAV`-ePOhz{K%=Hd7Sesm6=|OR2Y*`JPwIBkLfwpF5_!xK79@o`Yv)^k?D%` zP@IFWwF68}y2hPg+dWyir*`oR&Y`hRVvk3YxttBy_>ZF?z|-he51=1K87s{g4uG$O zUdJlS{DT~fLLTW}AsM;OlgT$b@m@ZW!ol4yk5imb6bpDPvcCNtxj#o92kDu3*7;_N z-LL-RkqaH8Uf1)>@;t*|USVgZ-sckI=+;!(l?}V;LHlkLS98cQ-Tgc&Bf?=`Ve`=d zDvFX_xwEM^TkUG|w5zG`t&VZ0n9vFSLEV_Mya-iq&R$&&7E9yU)+dRiC0}gI2lg|h zreN}@gKWdP8B4?HTs6|AyN9jipI!e{>6HrVL!vWw7mq zCD~FWQ;JN)*55vP1H|HuDjw6w+lInFcvqa*Ka!JCQ#Ybfs!ZiWS3lR7rSi5X@2%un zKHa28@YbnHt>zoo2>4eWhb5u|af_klGYT56QD_STr~ zdIa;TxR!oC8()`vC*)adBNB0Bs^|oWf;ZOs+sAKIGJ~CK1c3QEhw~+!$=da*Gpmtv zu6g~F(Jhlb>r9^9R*b6)%BHg)U0DcN^BvO~H4G27nC$V{Pmm{TtM3TbP~0=88iCkci2d^| z$Ju2ax55b*1-d?kmEx8gx^wlEC&o!B9EmsTMn8VVBo z%q=_M(%DPszNb3C1?AqIAWmeHi+SPCZ4jmF+lmqC8Gpn3#%#Yv$KmyfBlFcBQ+z0Q z)DQ#Aqi~oE5rh7Y+%A6)ocTLCGz9gz7cI^m^2Sejg&!tbQ295PWFG<(L>7iDD+CJ! z1~`u(exbOK;Fbw|rp*;AIsRK7fS+$RPzGOWtV%c+GEgu@sv2Dp0;&I?%a=4-%9(2E z&F1@AfV35LJeajg!9%bfk{nUQT_ zKkVG-O7N^YUwIwa2nq)iFS@GHO|=t31ai@CHz90UjfZ+8*a$S?*aE$J)NJo1TloOK z{37Dpc`IJ^jDdh?>cHUu9-G06hHWl|HsA2s*<7nblm>^E%?q*wMF81It(i)$R$*jT z33VI$V5B0{sMk+`zyIY{>b3vYeIwDr%ANNawXB9?Cv=^=?NFu;|3rM85f6LY9J-YT zb74kt;~tdfH%isj8=X2W;~|xrb&O-7Zd#c-r46*Z;|VAhmA}>0C?y;_d1Y__R%aVfP1boR{y+u z$F|n6eOF=+i^Kf8ZTX2lI>*I7x$~&t%;TW#RnHr%qwLJ#M~RrH_UMNJlt1xQ5kE>0 zM-xNA*#i=|(9xuRw4W_C8ejE!SJSOed0H=AemT3D@?33eTvS-DtCnqqP3NEP8DN?H z+A;w?GssT-O_*5S5A239g#WwD!tL~(uKlvJE}mY6{$1T|#YY<-XCjTDE85fAOc)a0 zTy9y>Sq_OFzQhXs4{n6lHL>5M_q}jlB||YntkWokJUYw2=NVg4tth4_hR<$SjK)_t zmtNcgE~x8gfn=T)>=?aUM^Q)~aKnmi{e_zgEGijitq^Dy0e&UlDL=pvlZ)yPc!z%& zCq~^qz~Hbw(i!7_9*-%%1FmiP@*MumXB5#QGB zOb+4i(#it;OmXP)`W+v~pnrkOziSK|ThZ&qTl)F8}%j>_17o@Far z51O4E4khOxNMLQEp&PY1^avmKz884@Bk)gql!YA!o@EdM1P%UQ_bBY|Rt#00H-LkW z-kWzS3r7lFOiKLZn{vLPe?83H0hoGNbkLzK^-`1;#D0TI%=C9!sWAJcul~H8f*^oH z2F^Ig`XJMKdxtfi>F<8^yVWU#aj*FeokcZg*E%NwT`XezOki!Lq3rraf#;vRCzqQi zTif9N1!b(`iL?AXL#M58bgLB!y**b04kKFZKW@O!X4VR^=)NB+t+*xX>nR^MUSyvc zRT(?)jlXVky}p*4q_w?_Z|y(u%R6O`Z{9GJJ^3A>nB! zg|aMMs_v@(?FHV>6QFo4c^Y3MOcE^J&6*#uuVbV{s7P@O8EDVC2X90xwT)$Ud|bYs zotGw!d$LQ@<2!b?PSS)!a{gomx~b_f{e1PnJ|@V7V@~0b+J;Z)=%ZRn{LUO9S5t&KZy{TQNaMM`8t zzE(-ven8a(!F1I-AntRDn}3xw!b{$gGGfs@UaiOHN8O|6oXwv3(q^iwY52kJ5PL`k zLSw%^F~sbwKdds)L%`R|@MTFRsnat8v{ENk=eawGQXab5xB`#W84Oqc<0bhndm+mzvmpS&hZwpWY0uA zuhe!*`L1`xMp+HY*`i$w2d?>;p07y~WW~tPwOMY?^5FB~Ki3SkH+tQ<@6YcXIx%l19 zLseHhZjzCb&bd;T8shf;z$d*Ho`T?ly{H|zdN1B1sL7vo)(l#ee^l4p61TI6U6 zl}Kl>c?cZ4+7t2Dh^!J9f$h)k$Po7EUQg=4HRlixhXr`GsryboZK7;`Bgs}!}1)4ht$`!Mpk#wI(O)OdzR~<+|~(7 zfwKL4!6LL7Y-&9%7H-ro-byeB`xL41^y0=5%Of5;KGd*1J?+`WegwJvd7(Q_{;;Uz zTwxKB5R(B+uf`?QW6xVERw5f6%VyAuEfi`q zi7a5HLJor!OwY$=!emJ(*$b}DSQr*X}D?U_3zZugFAL(F5m(Iq$M))r1w2u(b zs+Gw0&DB*?agY3>8mWS!(`J5#wfN`xnu?nCr7Kdc3<4p%9Nci7^pkDJM^#&~_0I~6 zcj06LC7WIXVF6S~K-^knAS^y@4=)s0AxxBHTJ^oJ!iwsUl!NbSOW>Tw?BW8J!s>{k zEZuB+VP)Wz%et-rG4H*GgiP%~!UK*blqDyhBum1syT2VSZ7w4`# z6wsf_Px(YX#*8lPYEU@|B@L(7QlNs?meoTQBI;5en24C86o@`(Q7X_OWGd-0#5X#P7m=3FlE>7}47r z)UmqAU2>g6c9x)A82O@5I2D?MKuQg1_fZ2#mSlhb^zQr&g+K(4XEDO9XQZ6>#EM#d zt;z&NzW*miGU!ho(Jde!g)7#-eug>UpW*+2J$ZXyME?X7`u>hRS%P$Ye8Zk--mpoz zWMY8*59~?Ug~ZB&EE=tEx#h$8e*E6Ku4dJGdH9NYc;Q&-rBk3@Dw#-vRHDhw&B6Yb zap1x)v$kfLt#+FJgMIP(JPy;Y*UMIZ^Q&v#&JxT_FnnWA)U4=T9kr~;L2G6#v6aqJ z3t*3JT`Bb@Vki6jR(+TNxNBTYm^t?r>G<#@V<(r17hAevcF0%3bcUICEo?l&= zrp{%HheivB;`M@g;!LFJ-XwSc@VozH@1&5`vP?ti z*XQ!k8g2rAJB~|7+OsefQ}UOwuihM~z6$}eyBmbp>H_-h7YbZu{4Gz@Bp%$!8p&`X z^a;aT?I%v+5fnTG-eIIYC!o2+-=KltmHI>ub3)Z=$!*Y)M_Ll|Y8>NPh0U)#OZkE` zJzFs~rj)JOj&wh%Fky>6!ISqp#VVUT^!FlepyW{zQ-~x4Qd}NO`F$91_L57*2-(c_d|zlDTa(@ObPjH)R-u1DBPVgqf8D_EC5D!)^kR_oh_ zg2I!z2vMc`kC6aPzP;0P$F2YzTln&w5Zw9hY~G|#VhQ_O^}gb+nA;kcL;Ex$`5LC} z5zBI{!J2r*T!N%9o-pVURMQd7VaAZIUu_>^MJslT_6iCgs}1O^)jNV1E;&)IXyi#? zE`?7fuPgXx6@dH z9t%L=8i^Isf*O)Vi)ZqK&eOxiBe87Wut=K<(Iam46Z+0W&0 z_6*api@-U9o?=Z_yH3ueIKrPPW4EaM&WQ!CgCD4uO~M*<&BC0$r|U)5#rf~ZI7vhm ztSAY^a)yLsn8dvYeP7YOm0OcF)a=^xe=n(kJmS0kB`C8@U@_}D4v*Qp0C_Esshby? z?&zF0I*g8620vTe?|BcGBW^u|;I8msqeEC6JUwpjrFG+0TR~mVjYcBuWa6 zyYWd9_}X-OW7IG^*WirmYFO4dmF(eV+<2xS9cOd}n4Gwa6@UTX7G>2(xx;a}xSF4< zZ&TB-uX=U;QuZkSst=~Dmmp!{zVzFrhwH8cgJe?_F?Vz@)G?WCeK4mV{1jrLbG8as zaiV$z7R7izLflK;NxFy5QV5HEDHqNGCD|46cpMtf2rVfs#Zp2DQGR`d;H0UzG(VYx zz_d$Y5aoAm9snOo>OS-ln{59N|K$o}HX#@s_r?{E%^X|D&Z}l00&S+ts=u$Iz-DVv z;?k_5{1q+6z>}DL16lKx@W+^y(6$AaI1G>K0}B5b{W95D`7szcnFV+Mm*;Oy?y#1P zYFFSP%@QiOM2_Om#DagE)g3lb8Jl-4*ima^B&iGDdS2+TH(fqrW5@6pyn8;@a&(sZw<)8F{Sp*j;g+&CHrk z&ZrdX5`!R}Cv}lIRc(z2sg?chLIrE2M_&t0mAJf{cgNbAU#pb~sg*rJD+Xvj)`nD) zI2=9(JuLeE)3>?^e1K{&NbghrFX(-)f9U-qn+#6um#(Q!a6{j=fT$YTnfxB@(!?qD zrF>;llT&?QVISS=y?ekX!u!#su2#^1s-wqx zQ-YAi)%fY~4YvL`1DjUE?@n_HC?D7{l(zTHEqF=Z}sk) z4h6ZU*(!=>eXk136ievajx^Q^h|pbB#$&f)H4-r!_@d7can?uo#3*tpv{ZAGz$Gb% zl}n$W#3paiG(Dj;m&0^_rc6Fj52dTBEMqRtE;Y)iHz{&tdl%CDrXN`;ot9p0rebb6 z4!p^Uh5Ia{74_Bd@wOCA`0j9aq_V?`ft%&}<}kM|Tw5dx`PS;$2%aVRX4uJO9lq;F z>%ox6no6q*i(!Slwb)A3YvzHcAzg)4bE@^3Nd$*$pGm}h^#0!Uk$<3WdY6Vh}@9bNc<{kzSadKr*n;ejrqb25S3Ow9@_i`u^mZav2rKLp@oHac|R2 z>*-EyD{b&th8hjCWB8g3dn!;`WIf3N*4o8VJqubfs0cE#q!Aq$(3ITEvaO+xx#;2-`1|nO(hH{Gb-$~7vf}GX&TEM;GGw1n8%}&+yG@Ki7<8=BZ;i#iC zV%|QN3)Wwudo~wdp%*{hxE%tDgv5E<`vd4_5$%Yx>)?uk;)1qNu_T2@Zh&lY9Izow zWD;?w1#ke{FtnsAfSP@j51^12>1PF3Jc&qYjP!Q?ib#C14=y!H<@$7FFN-w9(s#)-FIo1&IrVbHY?V)D}Xe2^6B?s9-j*`gbqoNd;Q9ac%T_~ zq5LQ!gMjFE0zxro6)o*M<#zgibuHPdCf3;m9SvBS)y^(^7tOLXvbPeht~j+m4FNizlS{B3=Xd~iuG7WWF_xGPF@iXmCFnf@PyBmah{FjrD7~i${{{(xS84Kk=rv6M- zJw$I&bQURE6|}D!?sAL{_ir9w`7M$N7ZMeK{36?u@xsdtLZ4&3>r$+rPlW=yyt6P-j7%ERjnF&7^cS)HU(hpX+8tHyW+z(CK}$I z8*E4NOVJ$X)~n%ZQf?T@sw4}P)jDcPmdpMsb+t@`H=8LpCmuSxyw+FNV|ZNHDD8%* z&u1LQ^YU}8M&-`m?)1g0I*;Ocosj9s#Vc@ajdrwlIbuF+ z^3+f~3$4L)>xkCPQ(RQ=^-o|NQqQw^n(a8z$RAc%JEF5u=f4dPz{HwoFLW^#_U2kNou3dpD&rez`?X4?Iri)P+ zLVc~|7PBW8I{C{+LMdi@1bydo=(0;xml*3TNRpn26w(YstWW0Hd5o}psM9lYULI@| z0Iwh71VL;AJdpfgldh)LuQeQLn0|`Qh|M~d@cN}S%aJSbG!l7h=RkRzTHad0QzO28~q@bpn>j~ z5bZa_DQxL${_{YpWFGM79-2OSeV*CIUjM!4B-LI$ppETZv#+2px$$bpmJ zCiWlT>imR{1w_cpHRV5X;b+KCP0rg5PD~aC#zJ`FI0VoNa!TWiNV7(qqxdc|Tx*Du&2&?qB#NHO=4{QVDJ zxu<4v0L-DW3g(JiQ-#0^_=<0iUx@j!Cp%cm_nDAfM>0__4#6MkoIc_|Gw*%Pn9gH9 za(SXVdJpi~7fIoxw!mmR5(`VVzVl-R>b*yD)1M{r&QBNKVA^_JUN4t- zXiivsGJjQ-=5DOE5lQU-Oob9}b}#x(bBan~-cw!iMN)^M9@3$^azhDhBSOb)$<6z0 zg5U%%WUw8M*}tPpcx1PO8nN1b@bA%`EVJr5el6JysX?{XaP6EXFS$Vow*VG}auu%? z7cUeEoK64pQRjbt=IlEz@_(~AqyKp+yu*|J%S+)Mukc@93hzF)|MF6J_b2?9m%_V6 z_P@Lo-t80r8%u!>H2D9w&}aXrF(#Pa2l)TL82)#RGT|xGuG0rX_5CLP_XSs-%#5v# z8Q%Z@BYc_0SOgvidKcEC0KB8?Guu`SGUb91Px@C5joS1C{Dwx}Jarc4_;x(B51+Vh z6shtHl7(&g5~c*f5jw78V94tah$bncPH+~}b}i99=rAnA@813J@i;p;sMzf(@MLn1 zX2J^mM9}0>xyj9mQ^O?H6YY6qr*6>_9ZQ8nHjKJrkEPz6Oz-o$_|ZvMoO1y27v(1J zVRKwU-PKMl_D@FCy#;v6bE_V=NOC84bwWoc(AsR8l`1q*4v~_Z+%VxnCs9Lzk=2gH z%B@&x!%*m*sMIsvp_kwVxOk|zJU>)tW7I?a9QLp$qv5V17l%kXDRn|fNj8KAEB0fw zI^A;GF>`AL*(o_@vIKJxv(!(DCgLCAK%<1jG@s6GTR)yJgXAyj>I^!2JpA2lsjzh2c;0IeyT}M7o&JiscGlqOt<(is zFgAeMsc~@IQRqLP9UA|&HK_7F%A;EI1ee*sX%N=-X{}mAtA|CI3rnZOi!{QJPTUoT z=z|~+mQ*~a15+;=>j!N=Dz44G#ZLwh{v0AOXpGt=D#3}|US$IEP4yC!?vV~t2NRN3 z2-N)1*!Ild3GQgjoE>Aae*fU}y}y3wUC$EmxPIQK8fj_TaZy0s-O+uy9upAoIsgGs zW2y*!Ee9ibUw0VvI-a+F|5ao_&|K$pf4Cls0L4i^+8e}lOU}#VeU9x@=bXO?bNt?4 zEjR*kAKI1KXAmfOpl?Ea zk>E2@ilj4ig=RW#l@QN>VUHUp*t|xrN!yOa$C*rkIf=!7uB}Fa@WpFfY&*HeZYVk1 zGD3s#1P7)|%OJ4miaUlGel|j%=5@dt`Xzp;|5GCPXAp#ZND8wlfpaNI%*h3z9oWc@B&HR2Msgt$2!5lmu~W|1|HN8t#+ zO@hZ*rqsxO(eNyoq?i4QRGF2p_S2NY;J_S2H3&QgL(~Av>gX5W)W{|mZ#gl#yL_yzrW7VFkc$FA4cwsuf(_mt)^qG&TSk`$$?V>&^0!PG6sCz|8pcV%ww zBcn9S5@=Y$jXoX;LzQ)1tP%+-W)~1k z_*tOf^7Gk`)}n|=bNV(D4P7mJJ_30>a)%9*_+LQ=5FvxR=hRQFnJqKfMKU$Apy~a{ zovKn_$v7tZj=3nS_YV1sadI>UGrI-kCL&F<<%?y4%u<|I;uZYSD1o$L=uJDGS-gGOT$)8x7FCPO&U9VI>kto)JcS!MoOmrg@0UdNtWHXG=LLL8 zBGE0hz0mOoS%~1vbQR-nCKLzjF{X`{KjY=iag|A0lWs@x)<98H6wM!04_|-uID5)c zHX)8VIjWfWwxr}Ka2<5Wug=3+laGA^7tKt&eZJU0e84ZGJ;N)Xn(0VAS}N04bCPcV z>mQq!Bx|AodVpra$D@^Kp&h0xMC$e6GNTP9AHd>CVIJ2*IbFrr~##y0%FxBE6--3uG5)>ED1e66zilJ{_3)&_07L-bZT}z3j9VLjH8)@| zw>B^}W&(u~GYwOalR$vQePcq9k`z@09rxdMXi#qn*eNM?10BE|6(xiLmE-sapf3=n zLb5^tKurwXvjNEe1%R=W)Nlj;n?O2t$EU-sR`U(TD-V%*glHVVd$$W$~KR;&(&L zbNeOB=&*Q@`+i<@COZ#rY;*0E*Zp4ethm!zhvFx;wi)6+duqK~^jz&A(n`$pUCqiN zI9qG+pilha7D_|9+4@iv0bf#7OiD_Rrw}{?R7OFW_Y%ZWqy&nIYDa(%$8x_>X%Z>~ z*I&L7v1JF7RIrwYhJHcV!xzys0MRGoj*7vX8^1AFP$e_vV~Am(*q8V#V^2xvhKDxK zFjn@&sv@h1_7y} zCli0a4B%fPUwmaQPXFi2ru;U@K6f-+N;BV|Oef`g>v-1N;HtJ+b<+ zFZT8yl%=-t<}vSy*}>hhxBs9tr-C;}dQXfE?u$LeerGo`gFirgPxKq;j&+Fy$wIN0 z1v9u_3OFY5x%AOgIT&^jjtZ6zXRcW}kIgx$@s6#nwqVhEVdxAbTdO^iHPS>p3&}53*xjHYN~R zf%o;#j>YxU4z@PWt8iKwS(~nx$K#)?mUT$$U1al$cny%hdyqE zqtO~9yUS+g>~k?;+!Fs^X8v+@?K3eq^U6Q-o*|9+`MZF|0So1=*uuAr{)*@A;w@og z>qKIE&wtYP!%aX%OGwiO9Z7qQKol zz|69og01Vn-|PQ#viM)C!lZ#Gp`-pMA&F?suTt$qGf-tHXHWzr7IB|0F3APl1ookU z5wv0RNRI{*K$YJ3_g3*$3ci>K{vTJAwEvChF5ppLLVgX2TNu>dwqCMtYSYerCQ$PJ zA8i-i3u~T#Pmh;8eSf?>GWcektn#LGxN&BB?;J9i{ML29>0^Pa8vW6F-HUeH74`D8 zSCyIGVfXTUT!4oq?{mw7b=w)M$s;}!@)3Rv@^b3sh%&$!+$`X3@r9*>tHF2o&w}|K zco{#hJ~VrRO9GxDF$Y(J0GI1w&)U4w@>AF&u|NM}+?1TgAmOlzmHH~a#w--<^-sv@ z=p+ltQpQYtRbOQlBHHSRLnud$v4B#3{cJebfR<56=f69Y(`GX$H$vdc)e!=0-h(TN zIxn(YK>kB;D2GMh^r=*-xT`fcSLvp3{Nsc_eq#>tFwn8!U_0Ghd05o@yqo(aWf1bpg=!^8@K9rF_4K}M&G>>+L9K4&acx#_SiH|7;DtRB7rB1q2OPT3)0!aUVp~~w zAp0UcNw6c-^w1<4)-9oY-mJWG&IE<0U$PbN*Q1xGVjA=%qb~M=$vUErH6oRMVb5cn zy3$3>^Zw6O<37*xcy(QW_qIS)ev(xpkluTHTzIj>SE_Cn!3V3vrU_?-Y)zGXb@ung z^>&A#(&WxXMGXVq+Wcn!;bFwobe`WMMf`H|`EY~a!BL~|dmgJ{n-~WCiP^*c!|Jly zG}Yk(Q29l>Qa3uc)XYqxOhTT=y8%oai|0lK6vZGWub2jRY2t8lTF!d?;l7tOxXke) z0P1qDspbl(jDcuvb~*WJ@R;VLaAESM%=Sg~^_ktJlc5wg^0p^4s;i0`(K?F_0%fmwna7v=aw@!i^P2}1tL%#jI%mGp(?bTh zO(%KbAq$$k9ji`Xj0v9{5BFSWA6V5ekZT%TJS^LS*jE*6uI*=C635jXRlrcREV~*E z1DdGWyE}Z&v~QPE>&&+sBWQ>XEzKQ;PfIFvR#gPn(<{?4mBCQbt+M?bT;Md0JBuG5 zI-MU0OJPHskK-sx-E$Y~QG5v7PMG&gPQJ;-h`#l(723qLQIP3V^ENqFI;SCT9j9ke zk<|}Dt9=XZhL=94%S=|6hc`+FZGozEN@yOPu|;TGUz2jBE#EqEKA z>vRcuBhjQPeN!NHWH;b8A5M^JrC^2p=r$llp_ z2AQ`z#GeF$GR`tZPBE8?M>-V#(Y6f`__EXGm_oQcc1|&Iw3Ku3rk&tsa*f!2$GuxX9F8a%ZS)%E?7a~cZsjc@hVqVg}wRN>lg;th2)EBMq)r?6PlYN zla_THtU9j?s=E)$XE9^PQbl{HC8VU4u7qm|V=Rz7&SMX!%_;p6ye(}(;Z}janfR`> zaoe8X22Y;bg;qaMcHox`t%@COOW+$4tC8fj7d&~RbbLVLv1O2Q{RN4ublPqGJr{3- z_zHJ3YRd13!v-vGG5CU6w^ivS9D2>K*xBU6HloBf_C%u&m9i*_4w* zqw`~zBZh`>v+RV`H4Z^X&SHh`I`m+>`0AiS38md70GeeDN(1X3XL3Jq0AR!+?gT2%PbON-kXlg`)&acXoBj^#YU9Rhk z4RiP^+812mGj(U$Xh2Fw=~@jf+FOyvp)U@dq$3qOti0a~LjQKbXw*{LY;rH`nn=Qg}EGy#8@6N?W9A z-BV_V9=c{U4LqaTC0DCTx?HqJ$9fA*DOERVTpxud@2kFbxYO@cTthfsVL?h+Kqku%L0!O(tUf+$-#{`p=cGKT20K`P7sE@ z`nEYS*+!d}Yk29;lIz0GSDDWh=K?Qhm47gf`*QPfdP+%g^h`hjf#$e{&o{Ea1al~N0^TvVbBra z5YYeA+uv>g3N#=V3;+&B3iyBm295&uw-2O`=l|ILQLz81TqvM&eSm-fhk$x37uW|^&<>6Q z@sWfH5>*HYWnhm+%Ipt~E*zIr^Am=QMe!WN&|wl5lbm(q)5TlS-b?nsRyeQ>{Qvv=H`-dM@vA+EUZ0NgL zU%SklvKFtI?U+|&e^YzF=KdoST`KZXzZ+6jj5ty)S=VPMjiSJ7e$IP|#;(P}3bcAX>4yZknROUc-jbs5P$gEzyZ|qr6UQ#7T z^Mow(&JkSJb8`&$k~iYbUm2)OP2@CMt8DVqPv%iz*aL8zM*Q~$1Z+H18_>bxUcNnZ+y+g?sU+fLaSq32 z`N;W#DGcThdX?84axCZgQV+Q(YRI|&+AH2G+O>2kTM=IFyRc`DM490J3vl`i5Lv$9 z0tCoUlh>p!tjXHrD3r#dx?BzY1(5v(RQTitJ2l5Rc>D>NArd)LQ~(n*w(vNw@hr}6 zNPFC!qdNW66oU8ML=UF@hv{Y6tL5anRF~>LY$FE34cIQbiQqCQJ|Rq-W!sTz7#WPC z0CPCDC_$Nx0c-!g)+D}&b1=0+pwLNW;2C(|v=I|XNW@(fdc$drD?4Ot6hF^#W%L=L zT^eqLgcA%XwcCF8iiy>i75Nv?dheab;rC2O`8-ZYTWi}ep0!pxt!3%JE#;u#dby&e zb-wq9GMJy>u=Z%7{emIV25qF}LM@cyNjHz?PR!v$FVPEg5D@ClVszZKhojNAVXy~} zK%$=z=>jUiX(Zx|pMXpy{rJuyR6WQYhy<-?554O0+2}Owp#9^yK+igY)lC^6_Bz=S z5TZ40^HIvgSm(J6EsJ-fA!cHy(}Es2SSx@1DtiC zUXuB7-8lL@Ttl6{NTuD*=`qhPJ>A#1_41jq`SK%l@<_@ENFGuK{o-*eCI3_JG(?ee-n*WkfZy)NRG>1^e>Eo8}q4VkL9C7+UU6}^)m zDr_Jra4D%qG?HXq{J@LBgXRKR`&<=ZgLB1jGfa4Pum-Pe@>8WHcJSRWJrWtpDE`Oz z{9^a*m?AqJer%d=39QLZpvC1A8y}=zKScMdq1J6~iPQ5{qxfs@iX}V5)1if#*U&M8 z=f+~$u^k6-9x>A+C14za^m)qtMv#I-Czagm&yp@ z{r4`n;VS<{pmVthqgbc7IIxBK_6v6M$5v8#ISi^>KJK=bw)#oR^e@oHO5p^rTZDWz zuUm$$qbS_8MAm~NU%2G>wa$ znJ`7mL`)xpn-Me@ghYtOteij&ITvfcTq(NHXRR!$n>@$iU>p!+c3|CHGdo4h1jWw{6U<+YX$qV_kCOP5C_uh%sGt8Pq17cnz5`|GbLPMwu z;kV+*#d7;ptn4!#oV&&(M}cc=%yw02{;djQj!zo%{H7YWs6?(I9kh{?d0w%Z)mV9{ z&Q{q?U&2Up_1)WtYYAWdGr5#1}Fb?$sZ)+2q_z zwPi+MUtDRK&BCEh#K{jw$fGWo<1}<%{zlT)Uo+0Qoc~&b_X*9AuG!{->E^B%secnO zc(GB@M`Y6n`PS$*a%^9T3?I2z!rO%E#!)>DjIlOk`7Za``b9sj0D~Y>$0}wdzS%cp zQ&$<1OSTxsTC%M*dg(g6qk}698GTb=s-Nz)i@kYEH?k|u9E5ZmXTER0x$diGha#Am6fIxQ)I$gE!c@NB9%Aev}Z748ndH0t?j8k z4Jq9qC7@gfaXna&RUR7192sKmM3-(Lu9>+;Hzs?Ll&rso6l7t=5WVJ`Js!YN|3vkP z>u_%dnKTUd$*1~Z?Szef>R26nP+^Yc1Ota?rB22D#||k%hRHs*Ds<6GT(5%6a0_@W z3qel3sg9<_rDKw)(p_nu%@gQqSDg*Dud-hdpr@eM62`cJAOwXZF7Lr6jHRwCaxaB7 zGuA9BJVUCQmT&yX<lMyr!kx|!}Tp7fvIk?i7P`$&Q{Ueymx)8dhUGt`3xE5!`Ig&=um}1wO#vq9C!juS_X}EgUnt zH%*nXs+b}-);TS{yB6xi3F4KpZG2fd1bI45`(&rZ8RJJhXC53xuKiOHpS4sce6`P=QDLRjSuG2Fb1mUR;7bhlergBX|zg4u-jBSXQRIfcjnlV z>}D!vPj#~z$oC@Rp?pz48ueAvLAjAl(n2U|1zYZ!s;a8$BLd_5Je%`1!`t%T)bE7& zqV!qURhy~pnW-`*<(1jDd%Je;C~9B#rM$qw zo)1$S-H(_J$|cecq+nEoBHj7mr^!w_aW|IKLrQfm;u8l?imSafoj-|q@N&avfvW*N zh8RiT@I?{p&r`Im;yFW0^;Zut99*J`OdmMF2^39dRPg0*(j0=4v+m9ACmRb(uA2G0 zQe*5%3)RP;Biz*wBerXM&>35B?dyF*XX3Z&`%>jQ2XX!mSzHv$>4r1QyE`_!Ic39d zDtS7W@!je+v(;W|sz?;Rn7D4f>=)sZ`?;QTB68Qb79KmWWopVdUR9LaNyoeV^xlV% zbmh6ZoUUfBzJ^V8-jXe6S6yvOvWBPNm4})o?b<4`#>Vg2NZMj%XysBkplme59%BCA z)GpTW7DoEIjWQPDplI-Q-eXMaWy)RAQN$JEs)D0GK}1Ch3De{e4rZjxi_u@KWBtrI zSr^nB#zH1lJ?ITFv=nw4Y+a?R086x9r+=2=kuU9A4>uFKL&SXj%VxYOhd4pZ2m1BQ zYw3=CI9#-o+Q4Ti0&n?~#BXfNnT?7X?cDYUt%Y27uiot3*eG5#eeJn{gVlh{EXefK z92_*S8%Xd%fEZNwGNNJkM%7b~Agq-oZo0YIE;qtz;$f``qLr6fr9|7<>>o`qH=B5C zH28oPR&zB$b}QR<0tZ*gg}-Z$^HPisl?s-CfKuO5&VU}Ru67~SA}SHe%du6y?>qE~ zm&*eCq=#l&N6hr@WZ)+lNZ*H3NOOetfhOY_BG(lBH^?aDo=D|&xEJNT_bxF+LJZBA zn$VL8!CJ5twb@y_jhIJNRTc|NRFp8lItD+Um2T(3YP8vJQj+SBN3?BuNv)C9O_?Ws zwd*aeyl3QTrCM%ATb5}np;?L`V>V3j!e2sY(C(P(|IpYOtUCl@tE(Fo|6oiv=$N+> zg!ti#&iLUWJwZ+$BaI&|D$F480lA`BSCSO0-62qb8khOR)pEY9A&YeuLZ7q~asb(X zZD?1xmqm0Jm2w>|DMoY1rVncW?XA17XJ3Rv+eBJIno)E`#k&wL*y}c<(CQa(<)Dma z+R=NvUM07`CYoY-#8-}Hs>Ua+Mt&G9`u^kHDCX+^^mI)WT}esjm?MprmD0;J(VL}N zMzWis)8*>XtvyS_y7qtuH@r*G{N+g5w;|S!l)izEPo}>~ zwS~E`Yq*QWv(&+61b4-KY%Y{YYBKU$fTdWAGDAp;eHM5h<~e2aqq0>6I_ZFJno^#2~ca z7ss=N-FoyKFI3EvNX^NU)4#QkSKr-dl%^}X=E0Wzct9pw7=rkE=OZM4jL;uCL2Yi`h}|ky;z78+_uQ=v8yQ zxY)^kketCT46}i*Rc)jVgu)pNDI`r$mb)dERXFE>NVD{9)<#ud`aD3B^JT;KNBr)Z z^W-7O%MHE8AfB=+%v5WOVsRfs(tG$T!7EYGI?jbL(s!F27T7ckL|wbmZor*`k~Pz zj3g4}%tYJitCLr7J*4k@wL-*@bbz!<;=GpUC4B4{!aaUUBg+h)B8q$t^tzr zsQ&oWAe)5M;01yN)&_(-!b{Qj%x0; z&vpI~G+67}mHC-=v+ak=jBAxIL!vL+J2Oa(5qt7E!EoClPm2pkLJ~dRZ21 zNk2~uTk)>M*oUqyE8wlI;netlG_!SfWs~j1l47$;a1BQ>ah`b0ar;(&W4O>;q2{@o z+s#&J8<*nvQ1E0 zvfm=sf6VUd6AcAFVL|GaQKA?qd%b^2>fl1^gZIQ0srx>8@5|!AaqYtb`d5On-Y63B zm^`-Nqa+tWCBj4M{58G)Lby>h*(=%ox0{EcPo=&?&G~tvWG+qDd6@$Psmz8y4?GNE zuLIe9msjO*dlgPCnn{Gqd?!KwZi#+qd`~(b9_t%ZvpY)WH;tVw1UT>bz>%6{zoH>u znUAhshKQPQr`e|Q+z!!i3D)o`KP-!QhwpuVWPr|X@KWx{Hf`Y6U+Vs9=v zL*r|Y@e-@XtNO!JnEPYs9~b)a#}7fPSp=UX%Qmw~ZpHLij2&R4rcp?k%aEwTkEmliB{dkKU&W>2%h{mp+g*qJga*9wq`E!F# z`M`%^>&&b;XmzwxWxbkeRElG}~5u*fV8LLP#FSI^<|9L4gVQ23NK+`AWNVY~&KmKhwBrt$r+3 z4fG1MxI62~5Zt|oGttmJIMJpaD6siFj8Ltg=5jjp5jBG+;3!uePWUaNjaYdjkOIeM zz*Z8x&k}$ZbuZdxu2Tu32SR>`l1TFmnm~U?RERYRZH+&)`bdOCgBi;J{nj7-s`8p|>*nCsW}(0uOG_)Q=aKS;9$-{nrdE6V zdPStR%e+bcI?*mu^cm_JpvY0nB*HhNLIP%ibtpbr%} zN=qT+V(i|Yc63MQo?4P|B)L#rw&9O&lXMKmuR=cnqkg2_l@y&Sf}NcM)7L)fyl~Wc zI7lo?V@T=|?orx$>HZ}ID_eSs;m&l4mrQjhtA1yvQx`{J^m$$@&^ zWIf+WT$APpUj@)ECm7pP1!Z(q=kR?;_WuktX~L2Roz%M+!n>#uKPo>}nn#tVu}zwB z&LWl+xVXn%Z&uq`E6)wO5SwOoRkYNY#Nam0-svaBOb~M#9CEL|OZy>Ss@OF`+kva5 zpk=g9F;`;NqOJGMrzZzjuuu;kN82A<5I(>U&v0NR-u$x5DcmmKW#eW)$f)pXkd$D^ zhdN?RzrwcY^Fqrj(QM`Yx9f^bcmmV4DNo3qo*!IG7)3@ULt4b4Byb%RMtyIUDqEg- zHQTiyVW5lfp;=vtc|)TgY;a*e*T*Kn8Z$+>YobIli=0yjMbY}1-Oi6}BNGGaAZZ&J zkNb%i{OSL5zZ@MLX`XQh!@}piU)TgROD;3Lk;@$%F+(tl+Wj65`|NB9f4aw0sarRa z73$c=2_5r7ldV_}h2~LXcIJN=Waxd9qulS%W26GOj|cJ0x=|3xV#mS*MtHjlxEel| z&7_-TYwEfJ-C&fuK=I8Hp6QnyaN%9%jg5lE<)t+s(YbXvM_PzXDCDER>LB_dfbPhpmMoAj~Duvw|-(QXO!cz7`;jSKEuU9sZj$5YSvA47WI zcPV#nNMVl`aZ@o0wZg-`sy*oVbPZSvPW-k6g$pH!N3GnBu5(dDHnKPZE%hNVR#{UH z->KkI9ZKvp>kV*q`Y!Goy6{~g&L9DouDCc%^tGv3Jt)nQtH}SLizbKmsU}?wL%M;5 zJ-9vaF6;0-N8O83J#ZFSyUdGLT*z$!JEJBej|-oja#hey$ns5T@^T1A>aC9OAd!LX zNMO{bfGTJ+y04QVU?|fB)70Yw>hKhC<{{ud=u6eEtn`;avv1efzwZ|13xagqAMx&^ z6jAK%RP9L$GWlr7^-Og$>F84W>hS|F;QOQX@8}aTLl#jFL5amFhah(a;N|7b%xc+i z&Oi~#yuxnIoUnww@=)?)Xkz;yI<;oH21gRAwn+JX&MWUyjXDHDcrt&n2PQrDYF`r< z1X;e|#aVKJ(PovIVA-R*j=N)L&GC)X(I}WO5bJ3U)XLqVA?&_h!78PS;DQ+=U#UR8@Sr<{zUwl(a$xUOl}l{{V_c z{e~(*b$IlODTg8WJ+}>u<48c0k?f~}D8DAg>q5PVn>M@F=(FwzN7_23 zwb^nnGA{>6ybBxUEo5^-eZlsT=hbBJaJ1OsoA;o@r8vW zWxBcGhVG6TUkrD=i(6RAoJEahZe534^CZLTP4K7D+ z2FZVuX$OCl?hX5_e~T!HaIXa$n2{9sFOL7^w5;-IIZvLnsY9n1<-mMEaB z7(H*kz%FiI3Y2F8^%{h@yOm%0iy{cgmtQvh?iQDj&9e6)Ph z;C)VJ#hB9GR}5F{@_cT@F5TqO+^#@1qrZ^r!^)^3+sle(i*CM{SQukkF3wnxI^m}) zZIPF*nn68A9_A72rB-3BjN>a9x6sD53C~FRA&%v3NjUV$y4->$_QD$u*J{U`!7qTJ zx1-^=zu#f+1n=zAh)Q!+igFV54ZcymB(njBcW<&@A(MrkCPQKHhde71yJfq* z5^lChQn@dy0RxAiHdEn4&?S4`J*$u{!No(+?2(CkaV8uf`0%+%EK^hk-e3{mqVnhT z5q-D((GpW}s3iV^i8?!q$X6`*$9GONn+NiN!J!T2=-W{-COVLNn4)7Y!xufG%YnwG zB4KZ{+kI8v`ViDWf7GRFJ8(AQ-GTv~vB~F1QDeJtmu8k{B&mqBqVLgZFc(|gjPcC6 z&tuJieMw--+4f;1>JwAb8PNwS6OHyrbV(KqTj^G4o2==46o&)9f8!8t(oy&V_`v>X z|HFs*P_VU~J{Pc4+8OHF^P4+xQ!!IAQ?jxHzf_dK`juwZ+*AfOHWnOAO!oHnV0#$Y z+)AGb%FN8n1mrqR!r@?IXlDGUgb)M*!E}6;iqcSrn@T{_LQ?}mMQLuQYo%vmZV%)! z)X~v3qvGMxKmN7Qv@xIr5=yeLfmtabER--PaAc;0{PP#!c6^PMU73nf&(Oq#n~GXc zNRa=YAQjW^5WphNtdvj~CF}?a3KM|A!OX1C;~4l+41mlETs=8IJwm`NEbycArj0%rimN&1s>=xN*u?$4Ak%2OU^bnmg=W9H{SqWe#AkJCVo z0fAz(3IODe7#zhM2>`-!%=PsAG!Aym^=C@h5g8yQ?1U=>_LD0FU~t40a+3b!oaHp` z1oxCHaJN$)|H<`4o`}2vPuI#6A?7wk6Ehh|d z$`$bsSAfA$-GQB?KRrKW4W@xPq?zce{wyk(*VXv`eUvD#>w#n_mnGew_~m>tbgLl1X$@mb@tRWj}L&Q zo?7g`Wdm|*8(L|b=u&C}tqcoL@u(=Z9f318DoQJEDhTu+YlgD%1I@;7=D`X9Gs7X2 zEX-gC93jBU3}%A>>=9sgHW(!f0*pWa4Fzz310_U&+2Dwylq^t$1aKQ>b|48mn1$^) z5&{E=vVx&dKr{$2oEd0LSitP?V=!ho{3wKg0g7b@!=XTk6%1nouCaq*KoTGXM*s~5 z00uj5gjkLm7j}RIaE%QNhr=XTU|=@DYypCBW~cxVVuu}v*ja$P16)|yj;aj^2S5ah-Z0{%{%S3uJA`!<+O#zSku$?e+>Atyuy+c6NoTks{gRTJ*)o3 z7@Ht66OZ8seakg5)km@Oe0OPH$?)rew`?afv8Ampi6TR28&PoRQ6s(D62M~!j8&=4 z#~m#Cmw)iDThDnSv;(XqTWSzunr=b_Pgm_BpC2@CnX+{yV}eV6;2Edo*cai^A=6*+ zS6gk^l;|qXN*aujD9h-{m#}@M68yD4CBN@SgKrzZ4=Y7l9Te0<)5FF`+#rS8jXup`3SM7qdX#M2DBG>p~hEdDI6aj zMe|HH_MV$3?c`07m)W7W<)bYWRK-@5pfT^zzRksV2s+cJetQfR>e_t7c5p51=9QgZ zaygX5m!ri&wkqLg*q;d>TtQjLd-y2`r6 zQjB#{RXGi<>x1qKexo`H@9A}QgKAkCHZ547kC$+%=)tX%oPUeDUKPN&T`EMm%oNMzjxzODZ-3Xc*eWdJ+8BuF4Q&`ETKX{ ze9gVwGmR>8npdoVB0NNcJIH3)*Co>(-T4vEy%BOjwSaq18*rIsR?#L7kzd&|+*p!r z3>!J%!;yfunSo*%nlRfyR7DrB|NVB4EzMZ~=c=|zU)Qrh0;8^Z|7gi%l*>*4m zJ^@7mOy|m}*&My;9e?L~WHf;fxXo)QaYq<7cqun8HHeP%`p2ajMPf!w*a;JIiV)&H zt6k1rA>!1K^fei-D7RlBd#6|&bdS?4uKjjRm#Fs@1&K)h9-;#CmcgnID@flDy%NG)_{ssNp>MQxee$dNC0J zpK9%@iq{$n5s&uN3QTJvC`9f=c6&LzyHZcq|B2hA-U^i^X_x;2_Kchcy}M@}kFRnr zBa_1W^~U|`jQDW&>M2r&LiF|_F3}5sqsv%4T3#O$#+DoW_hn?~q!^kph3{S@2_-8s z7NRwACtlCNSx1pn3)qp0X=C zYl#+5_t)OCTKw?H3tC2z*lb0mr^5eWFgX8^r^m9~CRMsVUdM8HzPzBY)QRxP+O)vRG>-w(62liUz8^j^1l8>6+tu*zy=6ahHvIikq zfVHNX#fN2xe#m`(|9ViDf=Ohk{T1ONf%Bl5!~Ej79lU=o7zdxS5bS@UHur*aH2zEO zOB1|JY0q&E3cj@{*u2fSz&jMXJV>ScELjItHukC_fhm@uS2*d7K*A<>ZYm39yJmE= zaw%%w#$wsZ@p#^ir(Fta!D5O_HY*DJAuT0ZDJ!Y0%Ac>*7!d7d31P60sT0Q_!|tJb zIp*szONt;Vjj-h93~;18PsB{oPg&eHTrJ3leC1ug8rHSPI8oU&$gPcaZz;#e@I_&s z;!VP|LORhAUs}<&+AKU_v;Cmy3Fi_w4P6cEo8|fjn@rMH=yj2e-#898w^sVz?qmH) zxvm{b3MPPZD}gnzuYk~y{`t0C+uTa`$nYqWk&);VK|qrKyEpH!4x?&jJl_>m=O2;F!a-QiqfS28l%d^`)EX(=)w4(Aj4=i8SvzSw__D=2czEN7pcq378{{V6jT~+Z;0n5jzY~t~H;aE4i z0)J&Y>r0>O%_tZbd(A(^GI7>%cjOI&tOuuL8GWwua-z+cWEz*_Gxpa>F3}d4Eo&Ii zCORNS?Ey)JDgJI->s8HFCi#;b6;Uh@C&2F2Pp)eKRqTJ;pVtJ}XK8`z84Ap; z$Nja6YFb$QzZ!aGm9cUk&4!pUD{%UG(JJ9~ZyEb92nt40H6|%ttTk-S5NxQ%YkJn7 zHPRPSe62w#=)zJ{$P`SJH+rhC&AA49%*)P>7zHjF&(6AUY2t8Z>Fi)q%d+{SGYC4G|hxB~OyWflLa))m^YdHehp>$s2EE%BR= zAmp@7?7sTQnS5#yrqyqn*b!sG;kP3n?)yCXp8Cqg^EGy==mvSM1=qydz?91DLtKq8 z?*^(4tWDxR%ks zMSQoK)m1`3w+hg2o`d+RIj1E7d5d;{m$@#(+cNHX!(nfRAMY|`{#rkk#B;Og{vbk z!)ceTqY;~E2Pq5=BLdX+U9DKt@R3dB?_In;p4qTmah;aJNLaWKuhYJK;K;n1$3CXM z7i^tB?z-vx#mtb!5ORgNo;_t7b#U)UWQY~h)S=WWr>XlB$*3|FKa0U9;x{!2I=zxx zI+w*4#xSA-;rQkPl z?*i`&8dka{)=bA9#Lj2z^v0Wu05Zt}cRm{NJKLC0Px?(qFB!niHEj&d&Hi+2C{g;* zI*{8W4g><$L;qzvT0ZC>_h!~i)+UBJfNzgKu-AQ^inVqX@LAt+9)g7Me<7fMg18Oi z>AwaD;2|(O37F3G%f`!a0&yaQ^QHNtP;PmX$BqFIf`DKse}MvlA{l?HeMQzaz6C{s#HX-P`#(`vStVkqYQJ5%~W~a7MxV3*JwW{-X3>1p7y2b?nr$A_EUhSDHs>i16xZ@6Q>tmom*FOhZz#|FGV z{nP6GL9@pWPS3-gU#;m3Zb$3C;f_6po`*ZX2*?@Sy1{?L9lP8-4|m=j{TbXlv;T$z zhNAyqaR1&k7+C)S?-zqRk>{E3=<`hf9ofw0Z;;RYG5Nd4HiNkq$3@#m1w`Ru=Uz<= "3.4") withAutoprint else force)(\{ # examplesIf} +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +format_algorithm(model) +\dontshow{\}) # examplesIf} +model <- lm(Sepal.Length ~ Species, data = iris) +format_formula(model) + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +format_formula(model) +format_formula(model, "random") +\dontshow{\}) # examplesIf} +model <- lm(Sepal.Length ~ Species, data = iris) +format_model(model) + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +format_model(model) +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/reexports.Rd b/report.Rcheck/00_pkg_src/report/man/reexports.Rd new file mode 100644 index 000000000..87b8b45bd --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/reexports.Rd @@ -0,0 +1,18 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/reexports.R +\docType{import} +\name{reexports} +\alias{reexports} +\alias{print_html} +\alias{print_md} +\alias{display} +\title{Objects exported from other packages} +\keyword{internal} +\description{ +These objects are imported from other packages. Follow the links +below to see their documentation. + +\describe{ + \item{insight}{\code{\link[insight]{display}}, \code{\link[insight:display]{print_html}}, \code{\link[insight:display]{print_md}}} +}} + diff --git a/report.Rcheck/00_pkg_src/report/man/report-package.Rd b/report.Rcheck/00_pkg_src/report/man/report-package.Rd new file mode 100644 index 000000000..ce41d4924 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report-package.Rd @@ -0,0 +1,45 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report-package.R +\docType{package} +\name{report-package} +\alias{report-package} +\title{report: Automated Results Reporting as a Practical Tool to Improve +Reproducibility and Methodological Best Practices Adoption} +\description{ +\strong{report}’s primary goal is to bridge the gap between R’s output and +the formatted results contained in your manuscript. It automatically produces +reports of models and data frames according to \strong{best practices} guidelines +(e.g., \href{https://apastyle.apa.org/}{APA}’s style), ensuring \strong{standardization} +and \strong{quality} in results reporting. +} +\details{ +\code{report-package} +} +\seealso{ +Useful links: +\itemize{ + \item \url{https://easystats.github.io/report/} + \item Report bugs at \url{https://github.com/easystats/report/issues} +} + +} +\author{ +\strong{Maintainer}: Rémi Thériault \email{remi.theriault@mail.mcgill.ca} (\href{https://orcid.org/0000-0003-4315-6788}{ORCID}) + +Authors: +\itemize{ + \item Dominique Makowski \email{dom.makowski@gmail.com} (\href{https://orcid.org/0000-0001-5375-9967}{ORCID}) + \item Daniel Lüdecke \email{d.luedecke@uke.de} (\href{https://orcid.org/0000-0002-8895-3206}{ORCID}) + \item Indrajeet Patil \email{patilindrajeet.science@gmail.com} (\href{https://orcid.org/0000-0003-1995-6531}{ORCID}) + \item Mattan S. Ben-Shachar \email{matanshm@post.bgu.ac.il} (\href{https://orcid.org/0000-0002-4287-4801}{ORCID}) + \item Brenton M. Wiernik \email{brenton@wiernik.org} (\href{https://orcid.org/0000-0001-9560-6336}{ORCID}) +} + +Other contributors: +\itemize{ + \item Rudolf Siegel \email{mutlusun@users.noreply.github.com} (\href{https://orcid.org/0000-0002-6021-804X}{ORCID}) [contributor] + \item Camden Bock \email{camden.bock@maine.edu} (\href{https://orcid.org/0000-0002-3907-7748}{ORCID}) [contributor] +} + +} +\keyword{internal} diff --git a/report.Rcheck/00_pkg_src/report/man/report.BFBayesFactor.Rd b/report.Rcheck/00_pkg_src/report/man/report.BFBayesFactor.Rd new file mode 100644 index 000000000..871c7ece3 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.BFBayesFactor.Rd @@ -0,0 +1,37 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.BFBayesFactor.R +\name{report.BFBayesFactor} +\alias{report.BFBayesFactor} +\alias{report_statistics.BFBayesFactor} +\title{Reporting \code{BFBayesFactor} objects from the \code{BayesFactor} package} +\usage{ +\method{report}{BFBayesFactor}(x, h0 = "H0", h1 = "H1", ...) + +\method{report_statistics}{BFBayesFactor}(x, table = NULL, ...) +} +\arguments{ +\item{x}{An object of class \code{BFBayesFactor}.} + +\item{h0, h1}{Names of the null and alternative hypotheses.} + +\item{...}{Other arguments to be passed to \link[effectsize:interpret_bf]{effectsize::interpret_bf} and \link[insight:format_bf]{insight::format_bf}.} + +\item{table}{A \code{parameters} table (this argument is meant for internal use).} +} +\description{ +Interpretation of the Bayes factor output from the \code{BayesFactor} package. +} +\examples{ +\dontshow{if (requireNamespace("BayesFactor", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +library(BayesFactor) + +rez <- BayesFactor::ttestBF(iris$Sepal.Width, iris$Sepal.Length) +report_statistics(rez, exact = TRUE) # Print exact BF +report(rez, h0 = "the null hypothesis", h1 = "the alternative") + +rez <- BayesFactor::correlationBF(iris$Sepal.Width, iris$Sepal.Length) +report(rez) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.Rd b/report.Rcheck/00_pkg_src/report/man/report.Rd new file mode 100644 index 000000000..c795eee64 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.Rd @@ -0,0 +1,116 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.R +\name{report} +\alias{report} +\title{Automatic reporting of R objects} +\usage{ +report(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +A list-object of class \code{report}, which contains further +list-objects with a short and long description of the model summary, as +well as a short and long table of parameters and fit indices. +} +\description{ +Create reports of different objects. See the documentation for your object's +class: +} +\details{ +\itemize{ +\item \link[=report.sessionInfo]{System and packages} (\code{sessionInfo}) +\item \link[=report.data.frame]{Dataframes and vectors} +\item \link[=report.htest]{Correlations and t-tests} (\code{htest}) +\item \link[=report.aov]{ANOVAs} (\verb{aov, anova, aovlist, ...}) +\item \link[=report.lm]{Regression models} (\verb{glm, lm, ...}) +\item \link[=report.lm]{Mixed models} (\verb{glmer, lmer, glmmTMB, ...}) +\item \link[=report.stanreg]{Bayesian models} (\verb{stanreg, brms...}) +\item \link[=report.bayesfactor_models]{Bayes factors} (from \code{bayestestR}) +\item \link[=report.lavaan]{Structural Equation Models (SEM)} (from \code{lavaan}) +\item \link[=report.compare_performance]{Model comparison} (from \code{\link[performance:compare_performance]{performance()}}) +} + +Most of the time, the object created by the \code{report()} function can be +further transformed, for instance summarized (using \code{summary()}), or +converted to a table (using \code{as.data.frame()}). + +\subsection{Organization}{ +\code{report_table} and \code{report_text} are the two distal representations +of a report, and are the two provided in \code{report()}. However, +intermediate steps are accessible (depending on the object) via specific +functions (e.g., \code{report_parameters}). +} + +\subsection{Output}{ + +The \code{report()} function generates a report-object that contain in itself +different representations (e.g., text, tables, plots). These different +representations can be accessed via several functions, such as: +\itemize{ +\item \strong{\code{as.report_text(r)}}: Detailed text. +\item \strong{\code{as.report_text(r, summary=TRUE)}}: Minimal text giving +the minimal information. +\item \strong{\code{as.report_table(r)}}: Comprehensive table including most +available indices. +\item \strong{\code{as.report_table(r, summary=TRUE)}}: Minimal table. +} + +Note that for some report objects, some of these representations might be +identical. +} +} +\examples{ + +library(report) + +model <- t.test(mtcars$mpg ~ mtcars$am) +r <- report(model) + +# Text +r +summary(r) + +# Tables +as.data.frame(r) +summary(as.data.frame(r)) + +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.aov.Rd b/report.Rcheck/00_pkg_src/report/man/report.aov.Rd new file mode 100644 index 000000000..1d45f426b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.aov.Rd @@ -0,0 +1,93 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.aov.R +\name{report.aov} +\alias{report.aov} +\alias{report_effectsize.aov} +\alias{report_table.aov} +\alias{report_statistics.aov} +\alias{report_parameters.aov} +\alias{report_model.aov} +\alias{report_info.aov} +\alias{report_text.aov} +\title{Reporting ANOVAs} +\usage{ +\method{report}{aov}(x, ...) + +\method{report_effectsize}{aov}(x, include_intercept = FALSE, ...) + +\method{report_table}{aov}(x, include_intercept = FALSE, ...) + +\method{report_statistics}{aov}(x, table = NULL, ...) + +\method{report_parameters}{aov}(x, ...) + +\method{report_model}{aov}(x, table = NULL, ...) + +\method{report_info}{aov}(x, effectsize = NULL, ...) + +\method{report_text}{aov}(x, table = NULL, ...) +} +\arguments{ +\item{x}{Object of class \code{aov}, \code{anova} or \code{aovlist}.} + +\item{...}{Arguments passed to or from other methods.} + +\item{include_intercept}{Set to \code{TRUE} to include the intercept (relevant for type-3 ANOVA tables).} + +\item{table}{Provide the output of \code{report_table()} to avoid its +re-computation.} + +\item{effectsize}{Provide the output of \code{report_effectsize()} to avoid +its re-computation.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for ANOVA models. +} +\examples{ +data <- iris +data$Cat1 <- rep(c("A", "B"), length.out = nrow(data)) + +model <- aov(Sepal.Length ~ Species * Cat1, data = data) +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.bayesfactor_models.Rd b/report.Rcheck/00_pkg_src/report/man/report.bayesfactor_models.Rd new file mode 100644 index 000000000..2ccc910f7 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.bayesfactor_models.Rd @@ -0,0 +1,98 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.bayesfactor_models.R +\name{report.bayesfactor_models} +\alias{report.bayesfactor_models} +\alias{report.bayesfactor_inclusion} +\title{Reporting Models' Bayes Factor} +\usage{ +\method{report}{bayesfactor_models}( + x, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ... +) + +\method{report}{bayesfactor_inclusion}( + x, + interpretation = "jeffreys1961", + exact = TRUE, + protect_ratio = TRUE, + ... +) +} +\arguments{ +\item{x}{Object of class \code{bayesfactor_inclusion}.} + +\item{interpretation}{Effect size interpretation set of rules (see +\link[effectsize:interpret_bf]{interpret_bf}).} + +\item{exact}{Should very large or very small values be reported with a +scientific format (e.g., 4.24e5), or as truncated values (as "> 1000" and +"< 1/1000").} + +\item{protect_ratio}{Should values smaller than 1 be represented as ratios?} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports of Bayes factors for model comparison. +} +\examples{ +\dontshow{if (requireNamespace("bayestestR", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +library(bayestestR) +# Bayes factor - models +mo0 <- lm(Sepal.Length ~ 1, data = iris) +mo1 <- lm(Sepal.Length ~ Species, data = iris) +mo2 <- lm(Sepal.Length ~ Species + Petal.Length, data = iris) +mo3 <- lm(Sepal.Length ~ Species * Petal.Length, data = iris) +BFmodels <- bayesfactor_models(mo1, mo2, mo3, denominator = mo0) + +r <- report(BFmodels) +r + +# Bayes factor - inclusion +inc_bf <- bayesfactor_inclusion(BFmodels, prior_odds = c(1, 2, 3), match_models = TRUE) + +r <- report(inc_bf) +r +as.data.frame(r) +\dontshow{\}) # examplesIf} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.brmsfit.Rd b/report.Rcheck/00_pkg_src/report/man/report.brmsfit.Rd new file mode 100644 index 000000000..91228ca69 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.brmsfit.Rd @@ -0,0 +1,69 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.brmsfit.R +\name{report.brmsfit} +\alias{report.brmsfit} +\title{Reporting Bayesian Models from brms} +\usage{ +\method{report}{brmsfit}(x, ...) +} +\arguments{ +\item{x}{Object of class \code{lm} or \code{glm}.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for Bayesian models. The description of the parameters +follows the Sequential Effect eXistence and sIgnificance Testing framework +(see \link[bayestestR:sexit]{SEXIT documentation}). +} +\examples{ +\dontshow{if (require("brms", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(brms) +model <- suppressWarnings(brm(mpg ~ qsec + wt, data = mtcars, refresh = 0, iter = 300)) +r <- report(model, verbose = FALSE) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) +} +\dontshow{\}) # examplesIf} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.compare.loo.Rd b/report.Rcheck/00_pkg_src/report/man/report.compare.loo.Rd new file mode 100644 index 000000000..0cc353edb --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.compare.loo.Rd @@ -0,0 +1,55 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.compare.loo.R +\name{report.compare.loo} +\alias{report.compare.loo} +\title{Reporting Bayesian Model Comparison} +\usage{ +\method{report}{compare.loo}(x, include_IC = TRUE, include_ENP = FALSE, ...) +} +\arguments{ +\item{x}{An object of class \link[brms:loo_compare.brmsfit]{brms::loo_compare}.} + +\item{include_IC}{Whether to include the information criteria (IC).} + +\item{include_ENP}{Whether to include the effective number of parameters (ENP).} + +\item{...}{Additional arguments (not used for now).} +} +\value{ +Objects of class \code{\link[=report_text]{report_text()}}. +} +\description{ +Automatically report the results of Bayesian model comparison using the \code{loo} package. +} +\details{ +The rule of thumb is that the models are "very similar" if |elpd_diff| (the +absolute value of elpd_diff) is less than 4 (Sivula, Magnusson and Vehtari, 2020). +If superior to 4, then one can use the SE to obtain a standardized difference +(Z-diff) and interpret it as such, assuming that the difference is normally +distributed. The corresponding p-value is then calculated as \code{2 * pnorm(-abs(Z-diff))}. +However, note that if the raw ELPD difference is small (less than 4), it doesn't +make much sense to rely on its standardized value: it is not very useful to +conclude that a model is much better than another if both models make very +similar predictions. +} +\examples{ +\dontshow{if (requireNamespace("brms", quietly = TRUE) && requireNamespace("RcppEigen", quietly = TRUE) && requireNamespace("BH", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +library(brms) + +m1 <- brms::brm(mpg ~ qsec, data = mtcars) +m2 <- brms::brm(mpg ~ qsec + drat, data = mtcars) +m3 <- brms::brm(mpg ~ qsec + drat + wt, data = mtcars) + +x <- suppressWarnings(brms::loo_compare( + brms::add_criterion(m1, "loo"), + brms::add_criterion(m2, "loo"), + brms::add_criterion(m3, "loo"), + model_names = c("m1", "m2", "m3") +)) +report(x) +report(x, include_IC = FALSE) +report(x, include_ENP = TRUE) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.compare_performance.Rd b/report.Rcheck/00_pkg_src/report/man/report.compare_performance.Rd new file mode 100644 index 000000000..ba24594b5 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.compare_performance.Rd @@ -0,0 +1,92 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.compare_performance.R +\name{report.compare_performance} +\alias{report.compare_performance} +\alias{report_table.compare_performance} +\alias{report_statistics.compare_performance} +\alias{report_parameters.compare_performance} +\alias{report_text.compare_performance} +\title{Reporting models comparison} +\usage{ +\method{report}{compare_performance}(x, ...) + +\method{report_table}{compare_performance}(x, ...) + +\method{report_statistics}{compare_performance}(x, table = NULL, ...) + +\method{report_parameters}{compare_performance}(x, table = NULL, ...) + +\method{report_text}{compare_performance}(x, table = NULL, ...) +} +\arguments{ +\item{x}{Object of class \verb{NEW OBJECT}.} + +\item{...}{Arguments passed to or from other methods.} + +\item{table}{Provide the output of \code{report_table()} to avoid its +re-computation.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for model comparison as obtained by the +\code{\link[performance:compare_performance]{performance::compare_performance()}} +function in the \code{performance} package. +} +\examples{ +\donttest{ +library(report) +library(performance) + +m1 <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +m2 <- lm(Sepal.Length ~ Petal.Length + Species, data = iris) +m3 <- lm(Sepal.Length ~ Petal.Length, data = iris) + +x <- performance::compare_performance(m1, m2, m3) +r <- report(x) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +# Specific reports +report_table(x) +report_statistics(x) +report_parameters(x) +} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.data.frame.Rd b/report.Rcheck/00_pkg_src/report/man/report.data.frame.Rd new file mode 100644 index 000000000..4103cf07a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.data.frame.Rd @@ -0,0 +1,104 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.character.R, R/report.data.frame.R, +% R/report.factor.R, R/report.numeric.R +\name{report.character} +\alias{report.character} +\alias{report.data.frame} +\alias{report.factor} +\alias{report.numeric} +\title{Reporting Datasets and Dataframes} +\usage{ +\method{report}{character}( + x, + n_entries = 3, + levels_percentage = "auto", + missing_percentage = "auto", + ... +) + +\method{report}{data.frame}( + x, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + levels_percentage = "auto", + digits = 2, + n_entries = 3, + missing_percentage = "auto", + ... +) + +\method{report}{factor}(x, levels_percentage = "auto", ...) + +\method{report}{numeric}( + x, + n = FALSE, + centrality = "mean", + dispersion = TRUE, + range = TRUE, + distribution = FALSE, + missing_percentage = "auto", + digits = 2, + ... +) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{n_entries}{Number of different character entries to show. Can be "all".} + +\item{levels_percentage}{Show characters entries and factor levels by number +or percentage. If "auto", then will be set to number and percentage if the +length if n observations larger than 100.} + +\item{missing_percentage}{Show missing by number (default) or percentage. If +"auto", then will be set to number and percentage if the length if n +observations larger than 100.} + +\item{...}{Arguments passed to or from other methods.} + +\item{n}{Include number of observations for each individual variable.} + +\item{centrality}{Character vector, indicating the index of centrality +(either \code{"mean"} or \code{"median"}).} + +\item{dispersion}{Show index of dispersion (\link{sd} if \code{centrality = "mean"}, or +\link{mad} if \code{centrality = "median"}).} + +\item{range}{Show range.} + +\item{distribution}{Show kurtosis and skewness.} + +\item{digits}{Number of significant digits.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for data frames. +} +\examples{ +r <- report(iris, + centrality = "median", dispersion = FALSE, + distribution = TRUE, missing_percentage = TRUE +) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +\dontshow{if (requireNamespace("dplyr", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +# grouped analysis using `{dplyr}` package +library(dplyr) +r <- iris \%>\% + group_by(Species) \%>\% + report() +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.default.Rd b/report.Rcheck/00_pkg_src/report/man/report.default.Rd new file mode 100644 index 000000000..ac0ba2de9 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.default.Rd @@ -0,0 +1,98 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.default.R +\name{report.default} +\alias{report.default} +\alias{report_effectsize.default} +\alias{report_table.default} +\alias{report_statistics.default} +\alias{report_parameters.default} +\alias{report_intercept.default} +\alias{report_model.default} +\alias{report_random.default} +\alias{report_priors.default} +\alias{report_performance.default} +\alias{report_info.default} +\alias{report_text.default} +\title{Template to add report support for new objects} +\usage{ +\method{report}{default}(x, ...) + +\method{report_effectsize}{default}(x, ...) + +\method{report_table}{default}(x, ...) + +\method{report_statistics}{default}(x, ...) + +\method{report_parameters}{default}(x, ...) + +\method{report_intercept}{default}(x, ...) + +\method{report_model}{default}(x, ...) + +\method{report_random}{default}(x, ...) + +\method{report_priors}{default}(x, ...) + +\method{report_performance}{default}(x, ...) + +\method{report_info}{default}(x, ...) + +\method{report_text}{default}(x, ...) +} +\arguments{ +\item{x}{Object of class \verb{NEW OBJECT}.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Template file to add report support for new objects. Check-out the vignette on +\href{https://easystats.github.io/report/articles/new_models.html}{Supporting New Models}. +} +\examples{ +library(report) + +# Add a reproducible example instead of the following +model <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.estimate_contrasts.Rd b/report.Rcheck/00_pkg_src/report/man/report.estimate_contrasts.Rd new file mode 100644 index 000000000..2717aaeca --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.estimate_contrasts.Rd @@ -0,0 +1,70 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.estimate_contrasts.R +\name{report.estimate_contrasts} +\alias{report.estimate_contrasts} +\alias{report_table.estimate_contrasts} +\alias{report_text.estimate_contrasts} +\title{Reporting \code{estimate_contrasts} objects} +\usage{ +\method{report}{estimate_contrasts}(x, ...) + +\method{report_table}{estimate_contrasts}(x, ...) + +\method{report_text}{estimate_contrasts}(x, table = NULL, ...) +} +\arguments{ +\item{x}{Object of class \code{estimate_contrasts}.} + +\item{...}{Arguments passed to or from other methods.} + +\item{table}{Provide the output of \code{report_table()} to avoid its +re-computation.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for \code{estimate_contrasts} objects. +} +\examples{ +\dontshow{if (all(insight::check_if_installed(c("modelbased", "marginaleffects", "collapse", "Formula"), quietly = TRUE))) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +library(modelbased) +model <- lm(Sepal.Width ~ Species, data = iris) +contr <- estimate_contrasts(model) +report(contr) +\dontshow{\}) # examplesIf} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.htest.Rd b/report.Rcheck/00_pkg_src/report/man/report.htest.Rd new file mode 100644 index 000000000..11b73452a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.htest.Rd @@ -0,0 +1,92 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.htest.R +\name{report.htest} +\alias{report.htest} +\alias{report_effectsize.htest} +\alias{report_table.htest} +\alias{report_statistics.htest} +\alias{report_parameters.htest} +\alias{report_model.htest} +\alias{report_info.htest} +\alias{report_text.htest} +\title{Reporting \code{htest} objects (Correlation, t-test...)} +\usage{ +\method{report}{htest}(x, ...) + +\method{report_effectsize}{htest}(x, ...) + +\method{report_table}{htest}(x, ...) + +\method{report_statistics}{htest}(x, table = NULL, ...) + +\method{report_parameters}{htest}(x, table = NULL, ...) + +\method{report_model}{htest}(x, table = NULL, ...) + +\method{report_info}{htest}(x, effectsize = NULL, ...) + +\method{report_text}{htest}(x, table = NULL, ...) +} +\arguments{ +\item{x}{Object of class \code{htest}.} + +\item{...}{Arguments passed to or from other methods.} + +\item{table}{Provide the output of \code{report_table()} to avoid its +re-computation.} + +\item{effectsize}{Provide the output of \code{report_effectsize()} to avoid +its re-computation.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for \code{htest} objects (\code{t.test()}, \code{cor.test()}, +etc.). +} +\examples{ +# t-tests +report(t.test(iris$Sepal.Width, iris$Sepal.Length)) +report(t.test(iris$Sepal.Width, iris$Sepal.Length, var.equal = TRUE)) +report(t.test(mtcars$mpg ~ mtcars$vs)) +report(t.test(mtcars$mpg, mtcars$vs, paired = TRUE), verbose = FALSE) +report(t.test(iris$Sepal.Width, mu = 1)) + +# Correlations +report(cor.test(iris$Sepal.Width, iris$Sepal.Length)) +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.lavaan.Rd b/report.Rcheck/00_pkg_src/report/man/report.lavaan.Rd new file mode 100644 index 000000000..746d459d1 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.lavaan.Rd @@ -0,0 +1,80 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.lavaan.R +\name{report.lavaan} +\alias{report.lavaan} +\alias{report_performance.lavaan} +\title{Reports of Structural Equation Models (SEM)} +\usage{ +\method{report}{lavaan}(x, ...) + +\method{report_performance}{lavaan}(x, table = NULL, ...) +} +\arguments{ +\item{x}{Object of class \code{lavaan}.} + +\item{...}{Arguments passed to or from other methods.} + +\item{table}{Provide the output of \code{report_table()} to avoid its +re-computation.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create a report for \code{lavaan} objects. +} +\examples{ +\dontshow{if (requireNamespace("lavaan", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Structural Equation Models (SEM) +library(lavaan) +structure <- "ind60 =~ x1 + x2 + x3 + dem60 =~ y1 + y2 + y3 + dem60 ~ ind60" +model <- lavaan::sem(structure, data = PoliticalDemocracy) +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +# Specific reports +suppressWarnings(report_table(model)) +suppressWarnings(report_performance(model)) +} +\dontshow{\}) # examplesIf} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.lm.Rd b/report.Rcheck/00_pkg_src/report/man/report.lm.Rd new file mode 100644 index 000000000..4a1ddde2a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.lm.Rd @@ -0,0 +1,155 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.lm.R, R/report.lme4.R +\name{report.lm} +\alias{report.lm} +\alias{report_effectsize.lm} +\alias{report_table.lm} +\alias{report_statistics.lm} +\alias{report_parameters.lm} +\alias{report_intercept.lm} +\alias{report_model.lm} +\alias{report_performance.lm} +\alias{report_info.lm} +\alias{report_text.lm} +\alias{report_random.merMod} +\title{Reporting (General) Linear Models} +\usage{ +\method{report}{lm}(x, include_effectsize = TRUE, effectsize_method = "refit", ...) + +\method{report_effectsize}{lm}(x, effectsize_method = "refit", ...) + +\method{report_table}{lm}(x, include_effectsize = TRUE, ...) + +\method{report_statistics}{lm}( + x, + table = NULL, + include_effectsize = TRUE, + include_diagnostic = TRUE, + ... +) + +\method{report_parameters}{lm}( + x, + table = NULL, + include_effectsize = TRUE, + include_intercept = TRUE, + ... +) + +\method{report_intercept}{lm}(x, table = NULL, ...) + +\method{report_model}{lm}(x, table = NULL, ...) + +\method{report_performance}{lm}(x, table = NULL, ...) + +\method{report_info}{lm}( + x, + effectsize = NULL, + include_effectsize = FALSE, + parameters = NULL, + ... +) + +\method{report_text}{lm}(x, table = NULL, ...) + +\method{report_random}{merMod}(x, ...) +} +\arguments{ +\item{x}{Object of class \code{lm} or \code{glm}.} + +\item{include_effectsize}{If \code{FALSE}, won't include effect-size related +indices (standardized coefficients, etc.).} + +\item{effectsize_method}{See documentation for +\code{\link[effectsize:effectsize]{effectsize::effectsize()}}.} + +\item{...}{Arguments passed to or from other methods.} + +\item{table}{Provide the output of \code{report_table()} to avoid its +re-computation.} + +\item{include_diagnostic}{If \code{FALSE}, won't include diagnostic related +indices for Bayesian models (ESS, Rhat).} + +\item{include_intercept}{If \code{FALSE}, won't include the intercept.} + +\item{effectsize}{Provide the output of \code{report_effectsize()} to avoid +its re-computation.} + +\item{parameters}{Provide the output of \code{report_parameters()} to avoid +its re-computation.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for (general) linear models. +} +\examples{ +\donttest{ +library(report) + +# Linear models +model <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +# Logistic models +model <- glm(vs ~ disp, data = mtcars, family = "binomial") +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) +} +\dontshow{\}) # examplesIf} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.sessionInfo.Rd b/report.Rcheck/00_pkg_src/report/man/report.sessionInfo.Rd new file mode 100644 index 000000000..5326d6aec --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.sessionInfo.Rd @@ -0,0 +1,54 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.sessionInfo.R +\name{report.sessionInfo} +\alias{report.sessionInfo} +\alias{report_packages} +\alias{cite_packages} +\alias{report_system} +\title{Report R environment (packages, system, etc.)} +\usage{ +\method{report}{sessionInfo}(x, ...) + +report_packages(session = NULL, include_R = TRUE, ...) + +cite_packages(session = NULL, include_R = TRUE, ...) + +report_system(session = NULL) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} + +\item{session}{A \link[utils:sessionInfo]{sessionInfo} object.} + +\item{include_R}{Include R in the citations.} +} +\value{ +For \code{report_packages}, a data frame of class with information on package +name, version and citation. + +An object of class \code{\link[=report]{report()}}. +} +\description{ +Report R environment (packages, system, etc.) +} +\examples{ + +library(report) + +session <- sessionInfo() + +r <- report(session) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +# Convenience functions +report_packages(include_R = FALSE) +cite_packages(prefix = "> ") +report_system() + +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.stanreg.Rd b/report.Rcheck/00_pkg_src/report/man/report.stanreg.Rd new file mode 100644 index 000000000..cfd79d65c --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.stanreg.Rd @@ -0,0 +1,68 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.stanreg.R +\name{report.stanreg} +\alias{report.stanreg} +\title{Reporting Bayesian Models} +\usage{ +\method{report}{stanreg}(x, ...) +} +\arguments{ +\item{x}{Object of class \code{lm} or \code{glm}.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for Bayesian models. The description of the parameters follows +the Sequential Effect eXistence and sIgnificance Testing framework (see +\link[bayestestR:sexit]{SEXIT documentation}). +} +\examples{ +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(mpg ~ qsec + wt, data = mtcars, refresh = 0, iter = 500)) +r <- report(model) +r +summary(r) +as.data.frame(r) +} +\dontshow{\}) # examplesIf} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report.test_performance.Rd b/report.Rcheck/00_pkg_src/report/man/report.test_performance.Rd new file mode 100644 index 000000000..e39ce8a08 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report.test_performance.Rd @@ -0,0 +1,92 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report.test_performance.R +\name{report.test_performance} +\alias{report.test_performance} +\alias{report_table.test_performance} +\alias{report_statistics.test_performance} +\alias{report_parameters.test_performance} +\alias{report_text.test_performance} +\title{Reporting models comparison} +\usage{ +\method{report}{test_performance}(x, ...) + +\method{report_table}{test_performance}(x, ...) + +\method{report_statistics}{test_performance}(x, table = NULL, ...) + +\method{report_parameters}{test_performance}(x, table = NULL, ...) + +\method{report_text}{test_performance}(x, table = NULL, ...) +} +\arguments{ +\item{x}{Object of class \verb{NEW OBJECT}.} + +\item{...}{Arguments passed to or from other methods.} + +\item{table}{Provide the output of \code{report_table()} to avoid its +re-computation.} +} +\value{ +An object of class \code{\link[=report]{report()}}. +} +\description{ +Create reports for model comparison as obtained by the +\code{\link[performance:compare_performance]{performance::compare_performance()}} +function in the \code{performance} package. +} +\examples{ +\donttest{ +library(report) +library(performance) + +m1 <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +m2 <- lm(Sepal.Length ~ Petal.Length + Species, data = iris) +m3 <- lm(Sepal.Length ~ Petal.Length, data = iris) + +x <- performance::test_performance(m1, m2, m3) +r <- report(x) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +# Specific reports +report_table(x) +report_statistics(x) +report_parameters(x) +} +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_date.Rd b/report.Rcheck/00_pkg_src/report/man/report_date.Rd new file mode 100644 index 000000000..44b1ae226 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_date.Rd @@ -0,0 +1,61 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_misc.R +\name{report_date} +\alias{report_date} +\alias{report_story} +\title{Miscellaneous reports} +\usage{ +report_date(...) + +report_story(...) +} +\arguments{ +\item{...}{Arguments passed to or from other methods.} +} +\value{ +Objects of class \code{\link[=report_text]{report_text()}}. +} +\description{ +Other convenient or totally useless reports. +} +\examples{ +library(report) + +report_date() +summary(report_date()) +report_story() +} +\seealso{ +Specific components of reports (especially for stats models): +\itemize{ +\item \code{\link[=report_table]{report_table()}} +\item \code{\link[=report_parameters]{report_parameters()}} +\item \code{\link[=report_statistics]{report_statistics()}} +\item \code{\link[=report_effectsize]{report_effectsize()}} +\item \code{\link[=report_model]{report_model()}} +\item \code{\link[=report_priors]{report_priors()}} +\item \code{\link[=report_random]{report_random()}} +\item \code{\link[=report_performance]{report_performance()}} +\item \code{\link[=report_info]{report_info()}} +\item \code{\link[=report_text]{report_text()}} +} + +Other types of reports: +\itemize{ +\item \code{\link[=report_system]{report_system()}} +\item \code{\link[=report_packages]{report_packages()}} +\item \code{\link[=report_participants]{report_participants()}} +\item \code{\link[=report_sample]{report_sample()}} +\item \code{\link[=report_date]{report_date()}} +} + +Methods: +\itemize{ +\item \code{\link[=as.report]{as.report()}} +} + +Template file for supporting new models: +\itemize{ +\item \code{\link[=report.default]{report.default()}} +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_effectsize.Rd b/report.Rcheck/00_pkg_src/report/man/report_effectsize.Rd new file mode 100644 index 000000000..be6916a3d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_effectsize.Rd @@ -0,0 +1,51 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_effectsize.R +\name{report_effectsize} +\alias{report_effectsize} +\title{Report the effect size(s) of a model or a test} +\usage{ +report_effectsize(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_effectsize]{report_effectsize()}}. +} +\description{ +Computes, interpret and formats the effect sizes of a variety of models and +statistical tests (see list of supported objects in \code{\link[=report]{report()}}). +} +\examples{ +library(report) + +# h-tests +report_effectsize(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVAs +report_effectsize(aov(Sepal.Length ~ Species, data = iris)) + +# GLMs +report_effectsize(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_effectsize(glm(vs ~ disp, data = mtcars, family = "binomial")) + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_effectsize(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +report_effectsize(model, effectsize_method = "basic") +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_info.Rd b/report.Rcheck/00_pkg_src/report/man/report_info.Rd new file mode 100644 index 000000000..e979e49eb --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_info.Rd @@ -0,0 +1,53 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_info.R +\name{report_info} +\alias{report_info} +\title{Report additional information} +\usage{ +report_info(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_info]{report_info()}}. +} +\description{ +Reports additional information relevant to the report (see list of supported +objects in \code{\link[=report]{report()}}). +} +\examples{ +library(report) + +# h-tests +report_info(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVAs +report_info(aov(Sepal.Length ~ Species, data = iris)) +\donttest{ +# GLMs +report_info(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_info(lm(Sepal.Length ~ Petal.Length * Species, data = iris), include_effectsize = TRUE) +report_info(glm(vs ~ disp, data = mtcars, family = "binomial")) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_info(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 300)) +report_info(model) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_intercept.Rd b/report.Rcheck/00_pkg_src/report/man/report_intercept.Rd new file mode 100644 index 000000000..29e3eb212 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_intercept.Rd @@ -0,0 +1,47 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_intercept.R +\name{report_intercept} +\alias{report_intercept} +\title{Report intercept} +\usage{ +report_intercept(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_intercept]{report_intercept()}}. +} +\description{ +Reports intercept of regression models (see list of supported objects in +\code{\link[=report]{report()}}). +} +\examples{ +\donttest{ +library(report) + +# GLMs +report_intercept(lm(Sepal.Length ~ Species, data = iris)) +report_intercept(glm(vs ~ disp, data = mtcars, family = "binomial")) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_intercept(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +report_intercept(model) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_model.Rd b/report.Rcheck/00_pkg_src/report/man/report_model.Rd new file mode 100644 index 000000000..bcc843132 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_model.Rd @@ -0,0 +1,56 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_model.R +\name{report_model} +\alias{report_model} +\title{Report the model type} +\usage{ +report_model(x, table = NULL, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{table}{A table obtained via \code{report_table()}. If not provided, +will run it.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +A \code{character} string. +} +\description{ +Reports the type of different R objects (see list of supported objects in +\code{\link[=report]{report()}}). +} +\examples{ +\donttest{ +library(report) + +# h-tests +report_model(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVA +report_model(aov(Sepal.Length ~ Species, data = iris)) + +# GLMs +report_model(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_model(glm(vs ~ disp, data = mtcars, family = "binomial")) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_model(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +report_model(model) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_parameters.Rd b/report.Rcheck/00_pkg_src/report/man/report_parameters.Rd new file mode 100644 index 000000000..241f29540 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_parameters.Rd @@ -0,0 +1,65 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_parameters.R +\name{report_parameters} +\alias{report_parameters} +\title{Report the parameters of a model} +\usage{ +report_parameters(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +A \code{vector}. +} +\description{ +Creates a list containing a description of the parameters of R objects (see +list of supported objects in \code{\link[=report]{report()}}). +} +\examples{ +\donttest{ +library(report) + +# Miscellaneous +r <- report_parameters(sessionInfo()) +r +summary(r) + +# Data +report_parameters(iris$Sepal.Length) +report_parameters(as.character(round(iris$Sepal.Length, 1))) +report_parameters(iris$Species) +report_parameters(iris) + +# h-tests +report_parameters(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVA +report_parameters(aov(Sepal.Length ~ Species, data = iris)) + +# GLMs +report_parameters(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_parameters(lm(Petal.Width ~ Species, data = iris), include_intercept = FALSE) +report_parameters(glm(vs ~ disp, data = mtcars, family = "binomial")) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_parameters(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +report_parameters(model) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_participants.Rd b/report.Rcheck/00_pkg_src/report/man/report_participants.Rd new file mode 100644 index 000000000..c803ee274 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_participants.Rd @@ -0,0 +1,155 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_participants.R +\name{report_participants} +\alias{report_participants} +\title{Reporting the participant data} +\usage{ +report_participants( + data, + age = NULL, + sex = NULL, + gender = NULL, + education = NULL, + country = NULL, + race = NULL, + participants = NULL, + by = NULL, + spell_n = FALSE, + digits = 1, + threshold = 10, + group = NULL, + ... +) +} +\arguments{ +\item{data}{A data frame.} + +\item{age}{The name of the column containing the age of the participant.} + +\item{sex}{The name of the column containing the sex of the participant. The +classes should be one of \code{c("Male", "M", "Female", "F")}. Note that +you can specify other characters here as well (e.g., \code{"Intersex"}), but +the function will group all individuals in those groups as \code{"Other"}.} + +\item{gender}{The name of the column containing the gender of the +classes should be one of \verb{c("Man", "M", "Male", Woman", "W", "F", "Female", Non-Binary", "N")}. Note that you can specify other characters +here as well (e.g., \code{"Gender Fluid"}), but the function will group all +individuals in those groups as \code{"Non-Binary"}.} + +\item{education}{The name of the column containing education information.} + +\item{country}{The name of the column containing country information.} + +\item{race}{The name of the column containing race/ethnicity information.} + +\item{participants}{The name of the participants' identifier column (for +instance in the case of repeated measures).} + +\item{by}{A character vector indicating the name(s) of the column(s) used +for stratified description.} + +\item{spell_n}{Logical, fully spell the sample size (\code{"Three participants"} +instead of \code{"3 participants"}).} + +\item{digits}{Number of significant digits.} + +\item{threshold}{Percentage after which to combine, e.g., countries (default is 10\%, +so countries that represent less than 10\% will be combined in the "other" category).} + +\item{group}{Deprecated. Use \code{by} instead.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +A character vector with description of the "participants", based on +the information provided in \code{data}. +} +\description{ +A helper function to help you format the participants data (age, sex, ...) in +the participants section. +} +\examples{ +library(report) +data <- data.frame( + "Age" = c(22, 23, 54, 21, 8, 42), + "Sex" = c("Intersex", "F", "M", "M", "NA", NA), + "Gender" = c("N", "W", "W", "M", "NA", NA) +) +report_participants(data, age = "Age", sex = "Sex") + +# Years of education (relative to high school graduation) +data$Education <- c(0, 8, -3, -5, 3, 5) +report_participants(data, + age = "Age", sex = "Sex", gender = "Gender", + education = "Education" +) + +# Education as factor +data$Education2 <- c( + "Bachelor", "PhD", "Highschool", + "Highschool", "Bachelor", "Bachelor" +) +report_participants(data, age = "Age", sex = "Sex", gender = "Gender", education = "Education2") + +# Country +data <- data.frame( + "Age" = c(22, 23, 54, 21, 8, 42, 18, 32, 24, 27, 45), + "Sex" = c("Intersex", "F", "F", "M", "M", "M", "F", "F", "F", "F", "F"), + "Gender" = c("N", "W", "W", "M", "M", "M", "W", "W", "W", "W", "W"), + "Country" = c( + "USA", NA, "Canada", "Canada", "India", "Germany", + "USA", "USA", "USA", "USA", "Canada" + ) +) +report_participants(data) + +# Country, control presentation treshold +report_participants(data, threshold = 5) + +# Race/ethnicity +data <- data.frame( + "Age" = c(22, 23, 54, 21, 8, 42, 18, 32, 24, 27, 45), + "Sex" = c("Intersex", "F", "F", "M", "M", "M", "F", "F", "F", "F", "F"), + "Gender" = c("N", "W", "W", "M", "M", "M", "W", "W", "W", "W", "W"), + "Race" = c( + "Black", NA, "White", "Asian", "Black", "Arab", "Black", + "White", "Asian", "Southeast Asian", "Mixed" + ) +) +report_participants(data) + +# Race/ethnicity, control presentation treshold +report_participants(data, threshold = 5) + +# Repeated measures data +data <- data.frame( + "Age" = c(22, 22, 54, 54, 8, 8), + "Sex" = c("I", "F", "M", "M", "F", "F"), + "Gender" = c("N", "W", "W", "M", "M", "M"), + "Participant" = c("S1", "S1", "s2", "s2", "s3", "s3") +) +report_participants(data, age = "Age", sex = "Sex", gender = "Gender", participants = "Participant") + +# Grouped data +data <- data.frame( + "Age" = c(22, 22, 54, 54, 8, 8, 42, 42), + "Sex" = c("I", "I", "M", "M", "F", "F", "F", "F"), + "Gender" = c("N", "N", "W", "M", "M", "M", "Non-Binary", "Non-Binary"), + "Participant" = c("S1", "S1", "s2", "s2", "s3", "s3", "s4", "s4"), + "Condition" = c("A", "A", "A", "A", "B", "B", "B", "B") +) + +report_participants(data, + age = "Age", + sex = "Sex", + gender = "Gender", + participants = "Participant", + by = "Condition" +) + +# Spell sample size +paste( + report_participants(data, participants = "Participant", spell_n = TRUE), + "were recruited in the study by means of torture and coercion." +) +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_performance.Rd b/report.Rcheck/00_pkg_src/report/man/report_performance.Rd new file mode 100644 index 000000000..0e28f9f16 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_performance.Rd @@ -0,0 +1,62 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_performance.R +\name{report_performance} +\alias{report_performance} +\title{Report the model's quality and fit indices} +\usage{ +report_performance(x, table = NULL, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{table}{A table obtained via \code{report_table()}. If not provided, +will run it.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_performance]{report_performance()}}. +} +\description{ +Investigating the fit of statistical models to data often involves selecting +the best fitting model amongst many competing models. This function helps +report indices of model fit for various models. Reports the type of +different R objects . For a list of supported objects, see +\code{\link[=report]{report()}}). +} +\examples{ +\donttest{ +# GLMs +report_performance(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_performance(glm(vs ~ disp, data = mtcars, family = "binomial")) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_performance(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +report_performance(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("lavaan", quietly = TRUE) && packageVersion("effectsize") >= "0.6.0.1") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Structural Equation Models (SEM) +library(lavaan) +structure <- "ind60 =~ x1 + x2 + x3 + dem60 =~ y1 + y2 + y3 + dem60 ~ ind60 " +model <- lavaan::sem(structure, data = PoliticalDemocracy) +suppressWarnings(report_performance(model)) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_priors.Rd b/report.Rcheck/00_pkg_src/report/man/report_priors.Rd new file mode 100644 index 000000000..19f70b18e --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_priors.Rd @@ -0,0 +1,33 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_priors.R +\name{report_priors} +\alias{report_priors} +\title{Report priors of Bayesian models} +\usage{ +report_priors(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_priors]{report_priors()}}. +} +\description{ +Reports priors of Bayesian models (see list of supported objects in +\code{\link[=report]{report()}}). +} +\examples{ +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- stan_glm(mpg ~ disp, data = mtcars, refresh = 0, iter = 1000) +r <- report_priors(model) +r +summary(r) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_random.Rd b/report.Rcheck/00_pkg_src/report/man/report_random.Rd new file mode 100644 index 000000000..aa749b076 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_random.Rd @@ -0,0 +1,55 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_random.R +\name{report_random} +\alias{report_random} +\title{Report random effects and factors} +\usage{ +report_random(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_random]{report_random()}}. +} +\description{ +Reports random effects of mixed models (see list of supported objects in +\code{\link[=report]{report()}}). +} +\examples{ +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +r <- report_random(model) +r +summary(r) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_lmer( + mpg ~ disp + (1 | cyl), + data = mtcars, refresh = 0, iter = 1000 +)) +r <- report_random(model) +r +summary(r) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("brms", quietly = TRUE) && packageVersion("rstan") >= "2.26.0") (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +library(brms) +model <- suppressWarnings(brm(mpg ~ disp + (1 | cyl), data = mtcars, refresh = 0, iter = 1000)) +r <- report_random(model) +r +summary(r) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_s.Rd b/report.Rcheck/00_pkg_src/report/man/report_s.Rd new file mode 100644 index 000000000..f90ccaa0e --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_s.Rd @@ -0,0 +1,27 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_s.R +\name{report_s} +\alias{report_s} +\title{Report S- and p-values in easy language.} +\usage{ +report_s(s = NULL, p = NULL, test_value = 0, test_parameter = "parameter") +} +\arguments{ +\item{s}{An S-value. Either \code{s} or \code{p} must be provided.} + +\item{p}{A p-value. Either \code{s} or \code{p} must be provided.} + +\item{test_value}{The value of the test parameter under the null hypothesis.} + +\item{test_parameter}{The name of the test parameter under the null hypothesis.} +} +\value{ +A string with the interpretation of the S- or p-value. +} +\description{ +Reports interpretation of S- and p-values in easy language. +} +\examples{ +report_s(s = 1.5) +report_s(p = 0.05) +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_sample.Rd b/report.Rcheck/00_pkg_src/report/man/report_sample.Rd new file mode 100644 index 000000000..08751462e --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_sample.Rd @@ -0,0 +1,113 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_sample.R +\name{report_sample} +\alias{report_sample} +\title{Sample Description} +\usage{ +report_sample( + data, + by = NULL, + centrality = "mean", + ci = NULL, + ci_method = "wilson", + ci_correct = FALSE, + select = NULL, + exclude = NULL, + weights = NULL, + total = TRUE, + digits = 2, + n = FALSE, + group_by = NULL, + ... +) +} +\arguments{ +\item{data}{A data frame for which descriptive statistics should be created.} + +\item{by}{Character vector, indicating the column(s) for possible grouping +of the descriptive table. Note that weighting (see \code{weights}) does not work +with more than one grouping column.} + +\item{centrality}{Character, indicates the statistics that should be +calculated for numeric variables. May be \code{"mean"} (for mean and +standard deviation) or \code{"median"} (for median and median absolute +deviation) as summary.} + +\item{ci}{Level of confidence interval for relative frequencies (proportions). +If not \code{NULL}, confidence intervals are shown for proportions of factor +levels.} + +\item{ci_method}{Character, indicating the method how to calculate confidence +intervals for proportions. Currently implemented methods are \code{"wald"} and +\code{"wilson"}. Note that \code{"wald"} can produce intervals outside the plausible +range of [0, 1], and thus it is recommended to prefer the \code{"wilson"} method. +The formulae for the confidence intervals are: +\itemize{ +\item \code{"wald"}: + +\deqn{p \pm z \sqrt{\frac{p (1 - p)}{n}}} +\item \code{"wilson"}: + +\deqn{\frac{2np + z^2 \pm z \sqrt{z^2 + 4npq}}{2(n + z^2)}} + +where \code{p} is the proportion (of a factor level), \code{q} is \code{1-p}, \code{z} is the +critical z-score based on the interval level and \code{n} is the length of the +vector (cf. \emph{Newcombe 1998}, \emph{Wilson 1927}). +}} + +\item{ci_correct}{Logical, it \code{TRUE}, applies continuity correction. See +\emph{Newcombe 1998} for different correction-methods based on the chosen +\code{ci_method}.} + +\item{select}{Character vector, with column names that should be included in +the descriptive table.} + +\item{exclude}{Character vector, with column names that should be excluded +from the descriptive table.} + +\item{weights}{Character vector, indicating the name of a potential +weight-variable. Reported descriptive statistics will be weighted by +\code{weight}.} + +\item{total}{Add a \code{Total} column.} + +\item{digits}{Number of decimals.} + +\item{n}{Logical, actual sample size used in the calculation of the +reported descriptive statistics (i.e., without the missing values).} + +\item{group_by}{Deprecated. Use \code{by} instead.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +A data frame of class \code{report_sample} with variable names and +their related summary statistics. +} +\description{ +Create sample description table (also referred to as "Table 1"). +} +\examples{ +library(report) + +report_sample(iris[, 1:4]) +report_sample(iris, select = c("Sepal.Length", "Petal.Length", "Species")) +report_sample(iris, by = "Species") +report_sample(airquality, by = "Month", n = TRUE, total = FALSE) + +# confidence intervals for proportions +set.seed(123) +d <- data.frame(x = factor(sample(letters[1:3], 100, TRUE, c(0.01, 0.39, 0.6)))) +report_sample(d, ci = 0.95, ci_method = "wald") # ups, negative CI +report_sample(d, ci = 0.95, ci_method = "wilson") # negative CI fixed +report_sample(d, ci = 0.95, ci_correct = TRUE) # continuity correction +} +\references{ +\itemize{ +\item Newcombe, R. G. (1998). Two-sided confidence intervals for the single +proportion: comparison of seven methods. Statistics in Medicine. 17 (8): +857–872 +\item Wilson, E. B. (1927). Probable inference, the law of succession, and statistical +inference. Journal of the American Statistical Association. 22 (158): 209–212 +} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_statistics.Rd b/report.Rcheck/00_pkg_src/report/man/report_statistics.Rd new file mode 100644 index 000000000..f1043009e --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_statistics.Rd @@ -0,0 +1,63 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_statistics.R +\name{report_statistics} +\alias{report_statistics} +\title{Report the statistics of a model} +\usage{ +report_statistics(x, table = NULL, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{table}{A table obtained via \code{report_table()}. If not provided, +will run it.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_statistics]{report_statistics()}}. +} +\description{ +Creates a list containing a description of the parameters' values of R +objects (see list of supported objects in \code{\link[=report]{report()}}). Useful to +insert in parentheses in plots or reports. +} +\examples{ +\donttest{ +library(report) + +# Data +report_statistics(iris$Sepal.Length) +report_statistics(as.character(round(iris$Sepal.Length, 1))) +report_statistics(iris$Species) +report_statistics(iris) + +# h-tests +report_statistics(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVA +report_statistics(aov(Sepal.Length ~ Species, data = iris)) + +# GLMs +report_statistics(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_statistics(glm(vs ~ disp, data = mtcars, family = "binomial")) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_statistics(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +report_statistics(model) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_table.Rd b/report.Rcheck/00_pkg_src/report/man/report_table.Rd new file mode 100644 index 000000000..6426d3265 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_table.Rd @@ -0,0 +1,73 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_table.R +\name{report_table} +\alias{report_table} +\title{Report a descriptive table} +\usage{ +report_table(x, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_table]{report_table()}}. +} +\description{ +Creates tables to describe different objects (see list of supported objects +in \code{\link[=report]{report()}}). +} +\examples{ +\donttest{ +# Miscellaneous +r <- report_table(sessionInfo()) +r +summary(r) + +# Data +report_table(iris$Sepal.Length) +report_table(as.character(round(iris$Sepal.Length, 1))) +report_table(iris$Species) +report_table(iris) + +# h-tests +report_table(t.test(mtcars$mpg ~ mtcars$am)) + +# ANOVAs +report_table(aov(Sepal.Length ~ Species, data = iris)) + +# GLMs +report_table(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_table(glm(vs ~ disp, data = mtcars, family = "binomial")) +} + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +report_table(model) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)) +report_table(model, effectsize_method = "basic") +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("lavaan", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Structural Equation Models (SEM) +library(lavaan) +structure <- "ind60 =~ x1 + x2 + x3 + dem60 =~ y1 + y2 + y3 + dem60 ~ ind60" +model <- lavaan::sem(structure, data = PoliticalDemocracy) +suppressWarnings(report_table(model)) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/man/report_text.Rd b/report.Rcheck/00_pkg_src/report/man/report_text.Rd new file mode 100644 index 000000000..5cc5ff74e --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/man/report_text.Rd @@ -0,0 +1,71 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/report_text.R +\name{report_text} +\alias{report_text} +\title{Report a textual description of an object} +\usage{ +report_text(x, table = NULL, ...) +} +\arguments{ +\item{x}{The R object that you want to report (see list of of supported +objects above).} + +\item{table}{A table obtained via \code{report_table()}. If not provided, +will run it.} + +\item{...}{Arguments passed to or from other methods.} +} +\value{ +An object of class \code{\link[=report_text]{report_text()}}. +} +\description{ +Creates text containing a description of the parameters of R objects (see +list of supported objects in \code{\link[=report]{report()}}). +} +\examples{ +library(report) + +# Miscellaneous +r <- report_text(sessionInfo()) +r +summary(r) + +# Data +report_text(iris$Sepal.Length) +report_text(as.character(round(iris$Sepal.Length, 1))) +report_text(iris$Species) +report_text(iris) + +# h-tests +report_text(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVA +r <- report_text(aov(Sepal.Length ~ Species, data = iris)) +r +summary(r) + +# GLMs +r <- report_text(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +r +summary(r) + +\dontshow{if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) +r <- report_text(model) +r +summary(r) +} +\dontshow{\}) # examplesIf} +\dontshow{if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\donttest{ +# Bayesian models +library(rstanarm) +model <- suppressWarnings(stan_glm(mpg ~ cyl + wt, data = mtcars, refresh = 0, iter = 600)) +r <- report_text(model) +r +summary(r) +} +\dontshow{\}) # examplesIf} +} diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat.R b/report.Rcheck/00_pkg_src/report/tests/testthat.R new file mode 100644 index 000000000..bdeb7ac79 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat.R @@ -0,0 +1,11 @@ +# Generate snapshots only on Windows to avoid having to generate snapshot variant +# corresponding to each OS (#312). +# +# This is especially important for Bayesian models where the results can be different +# across OS, and there is no way to specify a threshold when it comes to snapshots +# since the values included are of character type. +if (tolower(Sys.info()[["sysname"]]) == "windows") { + library(testthat) + + test_check("report") +} diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.aov.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.aov.md new file mode 100644 index 000000000..aacb77521 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.aov.md @@ -0,0 +1,43 @@ +# report.aov + + Code + suppressWarnings(report(anova(lm(Sepal.Width ~ Species, data = iris)))) + Output + The ANOVA suggests that: + + - The main effect of Species is statistically significant and large (F(2, 147) + = 49.16, p < .001; Eta2 = 0.40, 95% CI [0.30, 1.00]) + + Effect sizes were labelled following Field's (2013) recommendations. + +--- + + Code + suppressWarnings(report(anova(lm(wt ~ as.factor(am) * as.factor(cyl), data = mtcars)))) + Output + The ANOVA suggests that: + + - The main effect of as.factor(am) is statistically significant and large (F(1, + 26) = 45.39, p < .001; Eta2 (partial) = 0.64, 95% CI [0.43, 1.00]) + - The main effect of as.factor(cyl) is statistically significant and large + (F(2, 26) = 11.53, p < .001; Eta2 (partial) = 0.47, 95% CI [0.21, 1.00]) + - The interaction between as.factor(am) and as.factor(cyl) is statistically not + significant and very small (F(2, 26) = 0.11, p = 0.899; Eta2 (partial) = + 8.13e-03, 95% CI [0.00, 1.00]) + + Effect sizes were labelled following Field's (2013) recommendations. + +--- + + Code + suppressWarnings(report(aov(wt ~ cyl + Error(gear), data = mtcars))) + Output + The repeated-measures ANOVA (formula: wt ~ cyl + Error(gear)) suggests that: + + - The main effect of cyl is statistically significant and large (F(1, 29) = + 27.94, p < .001; Eta2 (partial) = 1.00, 95% CI [, 1.00]) + - The main effect of cyl is statistically significant and large (F(1, 29) = + 27.94, p < .001; Eta2 (partial) = 0.49, 95% CI [0.27, 1.00]) + + Effect sizes were labelled following Field's (2013) recommendations. + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.data.frame.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.data.frame.md new file mode 100644 index 000000000..24258fe4a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.data.frame.md @@ -0,0 +1,150 @@ +# report.factor + + Code + r + Output + x: 3 levels, namely A (n = 10, 33.33%), B (n = 10, 33.33%) and C (n = 10, + 33.33%) + +# report.data.frame + + Code + r + Output + The data contains 150 observations, grouped by Species, of the following 5 + variables: + + - setosa (n = 50): + - Sepal.Length: n = 50, Mean = 5.01, SD = 0.35, Median = 5.00, MAD = 0.30, + range: [4.30, 5.80], Skewness = 0.12, Kurtosis = -0.25, 0 missing + - Sepal.Width: n = 50, Mean = 3.43, SD = 0.38, Median = 3.40, MAD = 0.37, + range: [2.30, 4.40], Skewness = 0.04, Kurtosis = 0.95, 0 missing + - Petal.Length: n = 50, Mean = 1.46, SD = 0.17, Median = 1.50, MAD = 0.15, + range: [1, 1.90], Skewness = 0.11, Kurtosis = 1.02, 0 missing + - Petal.Width: n = 50, Mean = 0.25, SD = 0.11, Median = 0.20, MAD = 0.00, + range: [0.10, 0.60], Skewness = 1.25, Kurtosis = 1.72, 0 missing + + - versicolor (n = 50): + - Sepal.Length: n = 50, Mean = 5.94, SD = 0.52, Median = 5.90, MAD = 0.52, + range: [4.90, 7], Skewness = 0.11, Kurtosis = -0.53, 0 missing + - Sepal.Width: n = 50, Mean = 2.77, SD = 0.31, Median = 2.80, MAD = 0.30, + range: [2, 3.40], Skewness = -0.36, Kurtosis = -0.37, 0 missing + - Petal.Length: n = 50, Mean = 4.26, SD = 0.47, Median = 4.35, MAD = 0.52, + range: [3, 5.10], Skewness = -0.61, Kurtosis = 0.05, 0 missing + - Petal.Width: n = 50, Mean = 1.33, SD = 0.20, Median = 1.30, MAD = 0.22, + range: [1, 1.80], Skewness = -0.03, Kurtosis = -0.41, 0 missing + + - virginica (n = 50): + - Sepal.Length: n = 50, Mean = 6.59, SD = 0.64, Median = 6.50, MAD = 0.59, + range: [4.90, 7.90], Skewness = 0.12, Kurtosis = 0.03, 0 missing + - Sepal.Width: n = 50, Mean = 2.97, SD = 0.32, Median = 3.00, MAD = 0.30, + range: [2.20, 3.80], Skewness = 0.37, Kurtosis = 0.71, 0 missing + - Petal.Length: n = 50, Mean = 5.55, SD = 0.55, Median = 5.55, MAD = 0.67, + range: [4.50, 6.90], Skewness = 0.55, Kurtosis = -0.15, 0 missing + - Petal.Width: n = 50, Mean = 2.03, SD = 0.27, Median = 2.00, MAD = 0.30, + range: [1.40, 2.50], Skewness = -0.13, Kurtosis = -0.60, 0 missing + +# report.data.frame - with NAs + + Code + report_grouped_df + Output + The data contains 32 observations, grouped by cyl, of the following 11 + variables: + + - 4 (n = 11): + - mpg: n = 11, Mean = 26.66, SD = 4.51, Median = 26.00, MAD = 6.52, range: + [21.40, 33.90], Skewness = 0.35, Kurtosis = -1.43, 0 missing + - disp: n = 11, Mean = 105.14, SD = 26.87, Median = 108.00, MAD = 43.00, range: + [71.10, 146.70], Skewness = 0.16, Kurtosis = -1.41, 0 missing + - hp: n = 11, Mean = 82.64, SD = 20.93, Median = 91.00, MAD = 32.62, range: + [52, 113], Skewness = 8.41e-03, Kurtosis = -1.56, 0 missing + - drat: n = 11, Mean = 4.07, SD = 0.37, Median = 4.08, MAD = 0.34, range: + [3.69, 4.93], Skewness = 1.34, Kurtosis = 2.13, 0 missing + - wt: n = 11, Mean = 2.29, SD = 0.57, Median = 2.20, MAD = 0.54, range: [1.51, + 3.19], Skewness = 0.40, Kurtosis = -0.85, 0 missing + - qsec: n = 11, Mean = 19.14, SD = 1.68, Median = 18.90, MAD = 1.48, range: + [16.70, 22.90], Skewness = 0.74, Kurtosis = 1.84, 0 missing + - vs: n = 11, Mean = 0.91, SD = 0.30, Median = 1.00, MAD = 0.00, range: [0, 1], + Skewness = -3.32, Kurtosis = 11.00, 0 missing + - am: n = 11, Mean = 0.73, SD = 0.47, Median = 1.00, MAD = 0.00, range: [0, 1], + Skewness = -1.19, Kurtosis = -0.76, 0 missing + - gear: n = 11, Mean = 4.09, SD = 0.54, Median = 4.00, MAD = 0.00, range: [3, + 5], Skewness = 0.15, Kurtosis = 1.86, 0 missing + - carb: n = 11, Mean = 1.55, SD = 0.52, Median = 2.00, MAD = 0.00, range: [1, + 2], Skewness = -0.21, Kurtosis = -2.44, 0 missing + + - 6 (n = 6): + - mpg: n = 6, Mean = 19.53, SD = 1.47, Median = 19.45, MAD = 2.15, range: + [17.80, 21.40], Skewness = 0.14, Kurtosis = -1.77, 0 missing + - disp: n = 6, Mean = 187.20, SD = 44.11, Median = 167.60, MAD = 22.39, range: + [145, 258], Skewness = 1.04, Kurtosis = -0.49, 0 missing + - hp: n = 6, Mean = 124.33, SD = 25.90, Median = 116.50, MAD = 9.64, range: + [105, 175], Skewness = 2.02, Kurtosis = 4.34, 0 missing + - drat: n = 6, Mean = 3.53, SD = 0.50, Median = 3.76, MAD = 0.24, range: [2.76, + 3.92], Skewness = -0.94, Kurtosis = -1.02, 0 missing + - wt: n = 6, Mean = 3.20, SD = 0.31, Median = 3.33, MAD = 0.18, range: [2.77, + 3.46], Skewness = -0.71, Kurtosis = -1.84, 0 missing + - qsec: n = 6, Mean = 18.23, SD = 1.72, Median = 18.60, MAD = 1.79, range: + [15.50, 20.22], Skewness = -0.72, Kurtosis = -0.20, 0 missing + - vs: n = 6, Mean = 0.67, SD = 0.52, Median = 1.00, MAD = 0.00, range: [0, 1], + Skewness = -0.97, Kurtosis = -1.88, 0 missing + - am: n = 6, Mean = 0.33, SD = 0.52, Median = 0.00, MAD = 0.00, range: [0, 1], + Skewness = 0.97, Kurtosis = -1.87, 0 missing + - gear: n = 6, Mean = 3.83, SD = 0.75, Median = 4.00, MAD = 0.74, range: [3, + 5], Skewness = 0.31, Kurtosis = -0.10, 0 missing + - carb: n = 6, Mean = 3.33, SD = 1.97, Median = 4.00, MAD = 1.48, range: [1, + 6], Skewness = -0.22, Kurtosis = -1.08, 0 missing + + - 8 (n = 14): + - mpg: n = 14, Mean = 15.10, SD = 2.56, Median = 15.20, MAD = 1.56, range: + [10.40, 19.20], Skewness = -0.46, Kurtosis = 0.33, 0 missing + - disp: n = 14, Mean = 353.10, SD = 67.77, Median = 350.50, MAD = 73.39, range: + [275.80, 472], Skewness = 0.57, Kurtosis = -0.86, 0 missing + - hp: n = 14, Mean = 209.21, SD = 50.98, Median = 192.50, MAD = 44.48, range: + [150, 335], Skewness = 1.14, Kurtosis = 1.46, 0 missing + - drat: n = 14, Mean = 3.23, SD = 0.37, Median = 3.12, MAD = 0.16, range: + [2.76, 4.22], Skewness = 1.68, Kurtosis = 3.14, 0 missing + - wt: n = 14, Mean = 4.00, SD = 0.76, Median = 3.75, MAD = 0.41, range: [3.17, + 5.42], Skewness = 1.24, Kurtosis = 0.08, 0 missing + - qsec: n = 14, Mean = 16.77, SD = 1.20, Median = 17.18, MAD = 0.79, range: + [14.50, 18], Skewness = -1.01, Kurtosis = -0.28, 0 missing + - vs: n = 14, Mean = 0.00, SD = 0.00, Median = 0.00, MAD = 0.00, range: [0, 0], + Skewness = , Kurtosis = , 0 missing + - am: n = 14, Mean = 0.14, SD = 0.36, Median = 0.00, MAD = 0.00, range: [0, 1], + Skewness = 2.29, Kurtosis = 3.79, 0 missing + - gear: n = 14, Mean = 3.29, SD = 0.73, Median = 3.00, MAD = 0.00, range: [3, + 5], Skewness = 2.29, Kurtosis = 3.79, 0 missing + - carb: n = 14, Mean = 3.50, SD = 1.56, Median = 3.50, MAD = 0.74, range: [2, + 8], Skewness = 1.86, Kurtosis = 5.14, 0 missing + +# report.data.frame - with list columns + + Code + report(dplyr::starwars) + Output + The data contains 87 observations of the following 11 variables: + + - name: 87 entries, such as Ackbar (n = 1); Adi Gallia (n = 1); Anakin + Skywalker (n = 1) and 84 others (0 missing) + - height: n = 87, Mean = 174.60, SD = 34.77, Median = 180.00, MAD = 17.79, + range: [66, 264], Skewness = -1.09, Kurtosis = 2.13, 6 missing + - mass: n = 87, Mean = 97.31, SD = 169.46, Median = 79.00, MAD = 16.31, range: + [15, 1358], Skewness = 7.34, Kurtosis = 55.42, 28 missing + - hair_color: 11 entries, such as none (n = 38); brown (n = 18); black (n = 13) + and 8 others (5 missing) + - skin_color: 31 entries, such as fair (n = 17); light (n = 11); dark (n = 6) + and 28 others (0 missing) + - eye_color: 15 entries, such as brown (n = 21); blue (n = 19); yellow (n = 11) + and 12 others (0 missing) + - birth_year: n = 87, Mean = 87.57, SD = 154.69, Median = 52.00, MAD = 29.65, + range: [8, 896], Skewness = 4.45, Kurtosis = 20.59, 44 missing + - sex: 4 entries, such as male (n = 60); female (n = 16); none (n = 6) and 1 + other (4 missing) + - gender: 2 entries, such as masculine (n = 66); feminine (n = 17); NA (4 + missing) + - homeworld: 48 entries, such as Naboo (n = 11); Tatooine (n = 10); Alderaan (n + = 3) and 45 others (10 missing) + - species: 37 entries, such as Human (n = 35); Droid (n = 6); Gungan (n = 3) + and 34 others (4 missing) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-chi2.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-chi2.md new file mode 100644 index 000000000..2c7e52ac3 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-chi2.md @@ -0,0 +1,180 @@ +# report.htest-chi2 report + + Code + report(x) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and small (chi2 = 30.07, + p < .001; Adjusted Cramer's v = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, rules = "funder2019") + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and small (chi2 = 30.07, + p < .001; Adjusted Cramer's v = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, rules = "gignac2016") + Output + Effect sizes were labelled following Gignac's (2016) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and small (chi2 = 30.07, + p < .001; Adjusted Cramer's v = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, rules = "cohen1988") + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and small (chi2 = 30.07, + p < .001; Adjusted Cramer's v = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, rules = "evans1996") + Output + Effect sizes were labelled following Evans's (1996) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and very weak (chi2 = + 30.07, p < .001; Adjusted Cramer's v = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, rules = "lovakov2021") + Output + Effect sizes were labelled following Lovakov's (2021) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and very small (chi2 = + 30.07, p < .001; Adjusted Cramer's v = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, type = "cramers_v") + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and small (chi2 = 30.07, + p < .001; Adjusted Cramer's v = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, type = "pearsons_c") + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and small (chi2 = 30.07, + p < .001; Pearson's c = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, type = "tschuprows_t", adjust = FALSE) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and very small (chi2 = + 30.07, p < .001; Tschuprow's t = 0.09, 95% CI [0.06, 1.00]) + +--- + + Code + report(x, type = "tschuprows_t") + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and very small (chi2 = + 30.07, p < .001; Adjusted Tschuprow's t = 0.08, 95% CI [0.06, 1.00]) + +--- + + Code + report(x, type = "cohens_w") + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between gender and party + suggests that the effect is statistically significant, and small (chi2 = 30.07, + p < .001; Cohens_w = 0.10, 95% CI [0.07, 1.00]) + +--- + + Code + report(x, type = "phi") + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test with Yates' continuity correction of + independence between Diagnosis and Group suggests that the effect is + statistically significant, and large (chi2 = 31.57, p < .001; Adjusted Phi = + 0.36, 95% CI [0.25, 1.00]) + +--- + + Code + report(x, type = "cohens_h", rules = "sawilowsky2009") + Output + Effect sizes were labelled following Savilowsky's (2009) recommendations. + + The Pearson's Chi-squared test with Yates' continuity correction of + independence between Diagnosis and Group suggests that the effect is + statistically significant, and medium (chi2 = 31.57, p < .001; Cohen's h = + 0.74, 95% CI [0.50, 0.99]) + +--- + + Code + report(x, type = "riskratio") + Output + + + The Pearson's Chi-squared test with Yates' continuity correction of + independence between Diagnosis and Group suggests that the effect is + statistically significant (chi2 = 31.57, p < .001; Risk_ratio = 2.54, 95% CI + [1.80, 3.60]) + +--- + + Code + report(x) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's Chi-squared test of independence between mtcars$cyl and mtcars$am + suggests that the effect is statistically significant, and very large (chi2 = + 8.74, p = 0.013; Adjusted Cramer's v = 0.46, 95% CI [0.00, 1.00]) + +# report.htest-chi2 for given probabilities + + Code + report(x) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Chi-squared test for given probabilities / goodness of fit of + table(mtcars$cyl) to a distribution of [4: n=3.2, 6: n=9.6, 8: n=19.2] suggests + that the effect is statistically significant, and medium (chi2 = 21.12, p < + .001; Fei = 0.27, 95% CI [0.17, 1.00]) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-correlation.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-correlation.md new file mode 100644 index 000000000..8f6b9d011 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-correlation.md @@ -0,0 +1,33 @@ +# report.htest-correlation + + Code + report(cor.test(mtcars$wt, mtcars$mpg)) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Pearson's product-moment correlation between mtcars$wt and mtcars$mpg is + negative, statistically significant, and very large (r = -0.87, 95% CI [-0.93, + -0.74], t(30) = -9.56, p < .001) + +--- + + Code + report(suppressWarnings(cor.test(mtcars$wt, mtcars$mpg, method = "spearman"))) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Spearman's rank correlation rho between mtcars$wt and mtcars$mpg is + negative, statistically significant, and very large (rho = -0.89, S = 10292.32, + p < .001) + +--- + + Code + report(suppressWarnings(cor.test(mtcars$wt, mtcars$mpg, method = "kendall"))) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Kendall's rank correlation tau between mtcars$wt and mtcars$mpg is + negative, statistically significant, and very large (tau = -0.73, z = -5.80, p + < .001) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-fisher.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-fisher.md new file mode 100644 index 000000000..c98a54404 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-fisher.md @@ -0,0 +1,12 @@ +# report.htest-fisher report + + Code + report(x) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Fisher's Exact Test for Count Data testing the association between the + variables of the TeaTasting dataset suggests that the effect is statistically + not significant, and large (odds ratio = 6.41, 95% CI [0.31, Inf], p = 0.243; + Adjusted Cramer's v = 0.35, 95% CI [0.00, 1.00]) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-friedman.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-friedman.md new file mode 100644 index 000000000..35317b2e1 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-friedman.md @@ -0,0 +1,12 @@ +# report.htest-friendman report + + Code + report(x) + Output + Effect sizes were labelled following Landis' (1977) recommendations. + + The Friedman rank sum test testing the difference in ranks between wb$x, wb$w, + and wb$t suggests that the effect is statistically not significant, and in + slight agreement (chi2 = 0.33, p = 0.564; Kendall's W = 0.11, 95% CI [0.11, + 1.00]) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-kruskal.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-kruskal.md new file mode 100644 index 000000000..2fd073868 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-kruskal.md @@ -0,0 +1,12 @@ +# report.htest-kruskal report + + Code + report(x, verbose = FALSE) + Output + Effect sizes were labelled following Field's (2013) recommendations. + + The Kruskal-Wallis rank sum test testing the difference in ranks between + airquality$Ozone and as.factor(airquality$Month) suggests that the effect is + statistically significant, and large (Kruskal-Wallis chi2 = 29.27, p < .001; + Epsilon squared (rank) = 0.25, 95% CI [0.15, 1.00]) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-t-test.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-t-test.md new file mode 100644 index 000000000..2c9f81270 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-t-test.md @@ -0,0 +1,236 @@ +# report.htest-t-test + + Code + report(t.test(iris$Sepal.Width, mu = 1)) + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The One Sample t-test testing the difference between iris$Sepal.Width (mean = + 3.06) and mu = 1 suggests that the effect is positive, statistically + significant, and large (difference = 2.06, 95% CI [2.99, 3.13], t(149) = 57.81, + p < .001; Cohen's d = 4.72, 95% CI [4.15, 5.27]) + +--- + + Code + report(t.test(iris$Sepal.Width, mu = -1, alternative = "l")) + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The One Sample t-test testing the difference between iris$Sepal.Width (mean = + 3.06) and mu = -1 suggests that the effect is positive, statistically not + significant, and large (difference = 4.06, 95% CI [-Inf, 3.12], t(149) = + 114.01, p > .999; Cohen's d = 9.31, 95% CI [-Inf, 10.19]) + +--- + + Code + report(t.test(iris$Sepal.Width, mu = 5, alternative = "g")) + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The One Sample t-test testing the difference between iris$Sepal.Width (mean = + 3.06) and mu = 5 suggests that the effect is negative, statistically not + significant, and large (difference = -1.94, 95% CI [3.00, Inf], t(149) = + -54.59, p > .999; Cohen's d = -4.46, 95% CI [-4.89, Inf]) + +--- + + Code + report(t.test(mtcars$wt ~ mtcars$am)) + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Welch Two Sample t-test testing the difference of mtcars$wt by mtcars$am + (mean in group 0 = 3.77, mean in group 1 = 2.41) suggests that the effect is + positive, statistically significant, and large (difference = 1.36, 95% CI + [0.85, 1.86], t(29.23) = 5.49, p < .001; Cohen's d = 1.93, 95% CI [1.08, 2.77]) + +--- + + Code + report(t.test(mtcars$wt ~ mtcars$am, alternative = "l")) + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Welch Two Sample t-test testing the difference of mtcars$wt by mtcars$am + (mean in group 0 = 3.77, mean in group 1 = 2.41) suggests that the effect is + positive, statistically not significant, and large (difference = 1.36, 95% CI + [-Inf, 1.78], t(29.23) = 5.49, p > .999; Cohen's d = 1.93, 95% CI [-Inf, 2.63]) + +--- + + Code + report(t.test(mtcars$wt ~ mtcars$am, alternative = "g")) + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Welch Two Sample t-test testing the difference of mtcars$wt by mtcars$am + (mean in group 0 = 3.77, mean in group 1 = 2.41) suggests that the effect is + positive, statistically significant, and large (difference = 1.36, 95% CI + [0.94, Inf], t(29.23) = 5.49, p < .001; Cohen's d = 1.93, 95% CI [1.21, Inf]) + +--- + + Code + report(t.test(x, y, paired = TRUE)) + Message + For paired samples, 'repeated_measures_d()' provides more options. + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Paired t-test testing the difference between x and y (mean difference = + 0.43) suggests that the effect is positive, statistically significant, and + large (difference = 0.43, 95% CI [0.10, 0.76], t(8) = 3.04, p = 0.016; Cohen's + d = 1.01, 95% CI [0.18, 1.81]) + +--- + + Code + report(t.test(x, y, paired = TRUE, alternative = "l")) + Message + For paired samples, 'repeated_measures_d()' provides more options. + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Paired t-test testing the difference between x and y (mean difference = + 0.43) suggests that the effect is positive, statistically not significant, and + large (difference = 0.43, 95% CI [-Inf, 0.70], t(8) = 3.04, p = 0.992; Cohen's + d = 1.01, 95% CI [-Inf, 1.67]) + +--- + + Code + report(t.test(x, y, paired = TRUE, alternative = "g")) + Message + For paired samples, 'repeated_measures_d()' provides more options. + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Paired t-test testing the difference between x and y (mean difference = + 0.43) suggests that the effect is positive, statistically significant, and + large (difference = 0.43, 95% CI [0.17, Inf], t(8) = 3.04, p = 0.008; Cohen's d + = 1.01, 95% CI [0.30, Inf]) + +--- + + Code + report(t.test(sleep2$extra.1, sleep2$extra.2, paired = TRUE)) + Message + For paired samples, 'repeated_measures_d()' provides more options. + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + The Paired t-test testing the difference between sleep2$extra.1 and + sleep2$extra.2 (mean difference = -1.58) suggests that the effect is negative, + statistically significant, and large (difference = -1.58, 95% CI [-2.46, + -0.70], t(9) = -4.06, p = 0.003; Cohen's d = -1.28, 95% CI [-2.12, -0.41]) + +--- + + Code + report_effectsize(x) + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, type = "d") + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, type = "g") + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + large (Hedges's g = -1.64, 95% CI [-2.46, -0.79]) + +--- + + Code + report_effectsize(x, rules = "cohen1988") + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, rules = "cohen1988", type = "d") + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, rules = "cohen1988", type = "g") + Output + Effect sizes were labelled following Cohen's (1988) recommendations. + + large (Hedges's g = -1.64, 95% CI [-2.46, -0.79]) + +--- + + Code + report_effectsize(x, rules = "sawilowsky2009") + Output + Effect sizes were labelled following Savilowsky's (2009) recommendations. + + very large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, rules = "sawilowsky2009", type = "d") + Output + Effect sizes were labelled following Savilowsky's (2009) recommendations. + + very large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, rules = "sawilowsky2009", type = "g") + Output + Effect sizes were labelled following Savilowsky's (2009) recommendations. + + very large (Hedges's g = -1.64, 95% CI [-2.46, -0.79]) + +--- + + Code + report_effectsize(x, rules = "gignac2016") + Output + Effect sizes were labelled following Gignac's (2016) recommendations. + + large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, rules = "gignac2016", type = "d") + Output + Effect sizes were labelled following Gignac's (2016) recommendations. + + large (Cohen's d = -1.70, 95% CI [-2.55, -0.82]) + +--- + + Code + report_effectsize(x, rules = "gignac2016", type = "g") + Output + Effect sizes were labelled following Gignac's (2016) recommendations. + + large (Hedges's g = -1.64, 95% CI [-2.46, -0.79]) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-wilcox.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-wilcox.md new file mode 100644 index 000000000..d69062300 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.htest-wilcox.md @@ -0,0 +1,82 @@ +# report.htest-wilcox + + Code + report(wilcox.test(x, y, paired = TRUE, data = mtcars)) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Wilcoxon signed rank exact test testing the difference in ranks between x + and y suggests that the effect is positive, statistically significant, and very + large (W = 40.00, p = 0.039; r (rank biserial) = 0.78, 95% CI [0.30, 0.94]) + +--- + + Code + report(wilcox.test(x, y, paired = TRUE, data = mtcars, alternative = "l")) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Wilcoxon signed rank exact test testing the difference in ranks between x + and y suggests that the effect is positive, statistically not significant, and + very large (W = 40.00, p = 0.986; r (rank biserial) = 0.78, 95% CI [-1.00, + 0.93]) + +--- + + Code + report(wilcox.test(x, y, paired = TRUE, data = mtcars, alternative = "g")) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Wilcoxon signed rank exact test testing the difference in ranks between x + and y suggests that the effect is positive, statistically significant, and very + large (W = 40.00, p = 0.020; r (rank biserial) = 0.78, 95% CI [0.40, 1.00]) + +--- + + Code + report(wilcox.test(mtcars$am, mtcars$wt, exact = FALSE)) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Wilcoxon rank sum test with continuity correction testing the difference in + ranks between mtcars$am and mtcars$wt suggests that the effect is negative, + statistically significant, and very large (W = 0.00, p < .001; r (rank + biserial) = -1.00, 95% CI [-1.00, -1.00]) + +--- + + Code + report(wilcox.test(mtcars$am, mtcars$wt, alternative = "l", exact = FALSE)) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Wilcoxon rank sum test with continuity correction testing the difference in + ranks between mtcars$am and mtcars$wt suggests that the effect is negative, + statistically significant, and very large (W = 0.00, p < .001; r (rank + biserial) = -1.00, 95% CI [-1.00, -1.00]) + +--- + + Code + report(wilcox.test(mtcars$am, mtcars$mpg, exact = FALSE, correct = FALSE)) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Wilcoxon rank sum test testing the difference in ranks between mtcars$am + and mtcars$mpg suggests that the effect is negative, statistically significant, + and very large (W = 0.00, p < .001; r (rank biserial) = -1.00, 95% CI [-1.00, + -1.00]) + +--- + + Code + report(wilcox.test(depression$change, mu = 1)) + Output + Effect sizes were labelled following Funder's (2019) recommendations. + + The Wilcoxon signed rank exact test testing the difference in rank for + depression$change and true location of 0 suggests that the effect is negative, + statistically significant, and very large (W = 0.00, p = 0.004; r (rank + biserial) = -1.00, 95% CI [-1.00, -1.00]) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.ivreg.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.ivreg.md new file mode 100644 index 000000000..96f08a42d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.ivreg.md @@ -0,0 +1,27 @@ +# report-survreg + + Code + report(ivr) + Message + Formula contains log- or sqrt-terms. + See help("standardize") for how such terms are standardized. + Formula contains log- or sqrt-terms. + See help("standardize") for how such terms are standardized. + Output + We fitted a linear model to predict packs with rprice, rincome and salestax + (formula: log(packs) ~ log(rprice) + log(rincome)). The model's explanatory + power is substantial (R2 = 0.42, adj. R2 = 0.39). The model's intercept, + corresponding to rprice = 0 and rincome = 0, is at 9.43 (95% CI [6.69, 12.17], + t(45) = 6.94, p < .001). Within this model: + + - The effect of rprice [log] is statistically significant and negative (beta = + -1.14, 95% CI [-1.87, -0.42], t(45) = -3.18, p = 0.003; Std. beta = -0.53, 95% + CI [-0.86, -0.20]) + - The effect of rincome [log] is statistically non-significant and positive + (beta = 0.21, 95% CI [-0.33, 0.76], t(45) = 0.80, p = 0.429; Std. beta = 0.12, + 95% CI [-0.14, 0.39]) + + Standardized parameters were obtained by fitting the model on a standardized + version of the dataset. 95% Confidence Intervals (CIs) and p-values were + computed using a Wald t-distribution approximation. + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lavaan.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lavaan.md new file mode 100644 index 000000000..15f1f015d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lavaan.md @@ -0,0 +1,71 @@ +# model-lavaan detailed report + + Code + report(model) + Output + [1] "Support for lavaan not fully implemented yet :(" + +# model-lavaan detailed table + + Code + report_table(model) + Output + Parameter | Coefficient | 95% CI | z | p | Component | Fit + ---------------------------------------------------------------------------------- + ind60 =~ x1 | 1.00 | [1.00, 1.00] | | < .001 | Loading | + ind60 =~ x2 | 2.18 | [1.91, 2.45] | 15.59 | < .001 | Loading | + ind60 =~ x3 | 1.82 | [1.52, 2.12] | 11.96 | < .001 | Loading | + dem60 =~ y1 | 1.00 | [1.00, 1.00] | | < .001 | Loading | + dem60 =~ y2 | 1.04 | [0.66, 1.43] | 5.33 | < .001 | Loading | + dem60 =~ y3 | 0.98 | [0.65, 1.30] | 5.89 | < .001 | Loading | + dem60 ~ ind60 | 1.37 | [0.53, 2.21] | 3.20 | 0.001 | Regression | + | | | | | | + Chi2 | | | | | | 7.98 + Chi2_df | | | | | | 8.00 + p_Chi2 | | | | | | 0.44 + p_Baseline | | | | | | 0.00 + GFI | | | | | | 0.97 + AGFI | | | | | | 0.91 + NFI | | | | | | 0.97 + NNFI | | | | | | 1.00 + CFI | | | | | | 1.00 + RMSEA | | | | | | 0.00 + RMSEA_CI_low | | | | | | 0.00 + RMSEA_CI_high | | | | | | 0.14 + p_RMSEA | | | | | | 0.57 + RMR | | | | | | 0.10 + SRMR | | | | | | 0.03 + RFI | | | | | | 0.95 + PNFI | | | | | | 0.52 + IFI | | | | | | 1.00 + RNI | | | | | | 1.00 + Loglikelihood | | | | | | -778.27 + AIC | | | | | | 1582.54 + BIC | | | | | | 1612.67 + BIC (adj.) | | | | | | 1571.69 + +# model-lavaan detailed performance + + Code + report_performance(model) + Output + The model is not significantly different from a baseline model (Chi2(8) = 7.98, + p = 0.435). The GFI (.97 > .95) suggest a satisfactory fit., The model is not + significantly different from a baseline model (Chi2(8) = 7.98, p = 0.435). The + AGFI (.91 > .90) suggest a satisfactory fit., The model is not significantly + different from a baseline model (Chi2(8) = 7.98, p = 0.435). The NFI (.97 > + .90) suggest a satisfactory fit., The model is not significantly different from + a baseline model (Chi2(8) = 7.98, p = 0.435). The NNFI (.00 > .90) suggest a + satisfactory fit., The model is not significantly different from a baseline + model (Chi2(8) = 7.98, p = 0.435). The CFI (.00 > .90) suggest a satisfactory + fit., The model is not significantly different from a baseline model (Chi2(8) = + 7.98, p = 0.435). The RMSEA (.00 < .05) suggest a satisfactory fit., The model + is not significantly different from a baseline model (Chi2(8) = 7.98, p = + 0.435). The SRMR (.03 < .08) suggest a satisfactory fit., The model is not + significantly different from a baseline model (Chi2(8) = 7.98, p = 0.435). The + RFI (.95 > .90) suggest a satisfactory fit., The model is not significantly + different from a baseline model (Chi2(8) = 7.98, p = 0.435). The PNFI (.52 > + .50) suggest a satisfactory fit. and The model is not significantly different + from a baseline model (Chi2(8) = 7.98, p = 0.435). The IFI (.00 > .90) suggest + a satisfactory fit. + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lm.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lm.md new file mode 100644 index 000000000..f6ff6a748 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lm.md @@ -0,0 +1,48 @@ +# report.lm - glm + + Code + report(glm(vs ~ disp, data = mtcars, family = binomial(link = "probit"))) + Output + We fitted a probit model (estimated using ML) to predict vs with disp (formula: + vs ~ disp). The model's explanatory power is substantial (Nagelkerke's R2 = + 0.66). The model's intercept, corresponding to disp = 0, is at 2.51 (95% CI + [1.13, 4.28], p = 0.001). Within this model: + + - The effect of disp is statistically significant and negative (beta = -0.01, + 95% CI [-0.02, -6.45e-03], p < .001; Std. beta = -1.62, 95% CI [-2.79, -0.80]) + + Standardized parameters were obtained by fitting the model on a standardized + version of the dataset. 95% Confidence Intervals (CIs) and p-values were + computed using a Wald z-distribution approximation. + +--- + + Code + report(glm(vs ~ mpg, data = mtcars, family = "poisson")) + Output + We fitted a poisson model (estimated using ML) to predict vs with mpg (formula: + vs ~ mpg). The model's explanatory power is substantial (Nagelkerke's R2 = + 0.39). The model's intercept, corresponding to mpg = 0, is at -3.27 (95% CI + [-5.46, -1.36], p = 0.002). Within this model: + + - The effect of mpg is statistically significant and positive (beta = 0.11, 95% + CI [0.03, 0.19], p = 0.007; Std. beta = 0.66, 95% CI [0.18, 1.15]) + + Standardized parameters were obtained by fitting the model on a standardized + version of the dataset. 95% Confidence Intervals (CIs) and p-values were + computed using a Wald z-distribution approximation. + +# report.lm - lm intercept-only + + Code + out + Output + We fitted a constant (intercept-only) linear model (estimated using OLS) to + predict d_wide$group0 - d_wide$group1 (formula: d_wide$group0 - d_wide$group1 ~ + 1). The model's intercept is at -1.58 (95% CI [-2.46, -0.70], t(9) = -4.06, p = + 0.003). + + Standardized parameters were obtained by fitting the model on a standardized + version of the dataset. 95% Confidence Intervals (CIs) and p-values were + computed using a Wald t-distribution approximation. + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lmer.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lmer.md new file mode 100644 index 000000000..e9561fa25 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.lmer.md @@ -0,0 +1,48 @@ +# report-lmer + + Code + report(m1) + Output + We fitted a linear mixed model (estimated using REML and nloptwrap optimizer) + to predict Reaction with Days (formula: Reaction ~ Days). The model included + Days as random effects (formula: ~1 + Days | Subject). The model's total + explanatory power is substantial (conditional R2 = 0.80) and the part related + to the fixed effects alone (marginal R2) is of 0.28. The model's intercept, + corresponding to Days = 0, is at 251.41 (95% CI [237.94, 264.87], t(174) = + 36.84, p < .001). Within this model: + + - The effect of Days is statistically significant and positive (beta = 10.47, + 95% CI [7.42, 13.52], t(174) = 6.77, p < .001; Std. beta = 0.54, 95% CI [0.38, + 0.69]) + + Standardized parameters were obtained by fitting the model on a standardized + version of the dataset. 95% Confidence Intervals (CIs) and p-values were + computed using a Wald t-distribution approximation. + +--- + + Code + report(m2) + Message + boundary (singular) fit: see help('isSingular') + Output + Random effect variances not available. Returned R2 does not account for random effects. + Message + boundary (singular) fit: see help('isSingular') + Output + Random effect variances not available. Returned R2 does not account for random effects. + We fitted a linear mixed model (estimated using REML and nloptwrap optimizer) + to predict Reaction with Days (formula: Reaction ~ Days). The model included + mysubgrp as random effects (formula: list(~1 | mysubgrp:mygrp, ~1 | mygrp, ~1 | + Subject)). The model's explanatory power related to the fixed effects alone + (marginal R2) is 0.49. The model's intercept, corresponding to Days = 0, is at + 252.09 (95% CI [232.50, 271.69], t(174) = 25.39, p < .001). Within this model: + + - The effect of Days is statistically significant and positive (beta = 10.35, + 95% CI [8.78, 11.93], t(174) = 12.95, p < .001; Std. beta = 0.53, 95% CI [0.45, + 0.61]) + + Standardized parameters were obtained by fitting the model on a standardized + version of the dataset. 95% Confidence Intervals (CIs) and p-values were + computed using a Wald t-distribution approximation. + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.stanreg.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.stanreg.md new file mode 100644 index 000000000..42313b27c --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.stanreg.md @@ -0,0 +1,32 @@ +# model-stanreg detailed + + Code + report(model) + Output + We fitted a Bayesian linear model (estimated using MCMC sampling with 4 chains + of 300 iterations and a warmup of 150) to predict mpg with qsec and wt + (formula: mpg ~ qsec + wt). Priors over parameters were all set as normal (mean + = 0.00, SD = 8.43; mean = 0.00, SD = 15.40) distributions. The model's + explanatory power is substantial (R2 = 0.81, 95% CI [0.70, 0.90], adj. R2 = + 0.80). The model's intercept, corresponding to qsec = 0 and wt = 0, is at 19.71 + (95% CI [9.04, 30.18]). Within this model: + + - The effect of qsec (Median = 0.92, 95% CI [0.40, 1.47]) has a 99.83% + probability of being positive (> 0), 99.00% of being significant (> 0.30), and + 0.33% of being large (> 1.81). The estimation successfully converged (Rhat = + 0.999) but the indices are unreliable (ESS = 451) + - The effect of wt (Median = -5.06, 95% CI [-6.02, -4.18]) has a 100.00% + probability of being negative (< 0), 100.00% of being significant (< -0.30), + and 100.00% of being large (< -1.81). However, the estimation might not have + successfuly converged (Rhat = 1.013) and the indices are unreliable (ESS = 478) + + Following the Sequential Effect eXistence and sIgnificance Testing (SEXIT) + framework, we report the median of the posterior distribution and its 95% CI + (Highest Density Interval), along the probability of direction (pd), the + probability of significance and the probability of being large. The thresholds + beyond which the effect is considered as significant (i.e., non-negligible) and + large are |0.30| and |1.81| (corresponding respectively to 0.05 and 0.30 of the + outcome's SD). Convergence and stability of the Bayesian sampling has been + assessed using R-hat, which should be below 1.01 (Vehtari et al., 2019), and + Effective Sample Size (ESS), which should be greater than 1000 (Burkner, 2017). + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.survreg.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.survreg.md new file mode 100644 index 000000000..0707d6879 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report.survreg.md @@ -0,0 +1,36 @@ +# report-survreg + + Code + report(mod_survreg) + Output + Can't calculate log-loss. + Message + Can't calculate proper scoring rules for models without integer response + values. + Output + `performance_pcp()` only works for models with binary response values. + Can't calculate log-loss. + Message + Can't calculate proper scoring rules for models without integer response + values. + Output + `performance_pcp()` only works for models with binary response values. + We fitted a logistic model to predict survival::Surv(futime, fustat) with + ecog.ps and rx (formula: survival::Surv(futime, fustat) ~ ecog.ps + rx). The + model's explanatory power is weak (Nagelkerke's R2 = 0.07). The model's + intercept, corresponding to ecog.ps = 0 and rx = 0, is at 667.43 (95% CI + [-415.59, 1750.45], p = 0.227). Within this model: + + - The effect of ecog ps is statistically non-significant and negative (beta = + -210.59, 95% CI [-726.18, 305.01], p = 0.423; Std. beta = -107.06, 95% CI + [-369.19, 155.07]) + - The effect of rx is statistically non-significant and positive (beta = + 320.10, 95% CI [-194.11, 834.32], p = 0.222; Std. beta = 163.22, 95% CI + [-98.98, 425.42]) + - The effect of Log(scale) is statistically significant and positive (beta = + 5.82, 95% CI [5.35, 6.29], p < .001; Std. beta = 5.82, 95% CI [5.35, 6.29]) + + Standardized parameters were obtained by fitting the model on a standardized + version of the dataset. 95% Confidence Intervals (CIs) and p-values were + computed using a Wald z-distribution approximation. + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_participants.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_participants.md new file mode 100644 index 000000000..f98c936eb --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_participants.md @@ -0,0 +1,77 @@ +# report_participants + + Code + report_participants(data, age = "Age", sex = "Sex", participant = "Participant") + Output + [1] "3 participants (Mean age = 28.0, SD = 23.6, range: [8, 54]; Sex: 33.3% females, 33.3% males, 33.3% other; Gender: 33.3% women, 33.3% men, 33.33% non-binary)" + +--- + + Code + report_participants(data, participant = "Participant", spell_n = TRUE) + Output + [1] "Three participants (Mean age = 28.0, SD = 23.6, range: [8, 54]; Sex: 33.3% females, 33.3% males, 33.3% other; Gender: 33.3% women, 33.3% men, 33.33% non-binary)" + +--- + + Code + report_participants(data2) + Output + [1] "6 participants (Mean age = 28.0, SD = 21.1, range: [8, 54]; Sex: 50.0% females, 16.7% males, 33.3% other; Gender: 50.0% women, 16.7% men, 33.33% non-binary)" + +--- + + Code + report_participants(data3) + Output + [1] "6 participants (Mean age = 52.0, SD = 42.4, range: [22, 82], 66.7% missing; Sex: 33.3% females, 0.0% males, 0.0% other, 66.67% missing; Gender: 33.3% women, 0.0% men, 0.00% non-binary, 66.67% missing)" + +--- + + Code + report_participants(data4) + Output + [1] "7 participants (Mean education = 1.3, SD = 4.9, range: [-5, 8]; Country: 28.57% Canada, 28.57% USA, 14.29% Germany, 14.29% India, 14.29% missing; Race: 42.86% Black, 28.57% White, 14.29% Asian, 14.29% missing)" + +--- + + Code + report_participants(data4, education = "Education2") + Output + [1] "7 participants (Education: Bachelor, 42.86%; Highschool, 28.57%; PhD, 14.29%; missing, 14.29%; Country: 28.57% Canada, 28.57% USA, 14.29% Germany, 14.29% India, 14.29% missing; Race: 42.86% Black, 28.57% White, 14.29% Asian, 14.29% missing)" + +--- + + Code + report_participants(data4, threshold = 15) + Output + [1] "7 participants (Mean education = 1.3, SD = 4.9, range: [-5, 8]; Country: 28.57% Canada, 28.57% USA, 42.86% other; Race: 42.86% Black, 28.57% White, 28.57% other)" + +# report_participants test NAs no warning + + Code + report_participants(data) + Output + [1] "6 participants (Mean age = 28.3, SD = 16.6, range: [8, 54]; Sex: 16.7% females, 33.3% males, 16.7% other, 33.33% missing; Gender: 33.3% women, 16.7% men, 16.67% non-binary, 33.33% missing; Education: -5, 16.67%; -3, 16.67%; 0, 16.67%; 3, 16.67%; 5, 16.67%; 8, 16.67%; Country: 33.33% Canada, 16.67% Germany, 16.67% India, 16.67% USA, 16.67% missing; Race: 16.67% A, 16.67% B, 16.67% C, 16.67% D, 16.67% E, 16.67% missing)" + +--- + + Code + report_participants(data, age = "Age", sex = "Sex") + Output + [1] "6 participants (Mean age = 3.5, SD = 1.9, range: [1, 6]; Sex: 16.7% females, 33.3% males, 16.7% other, 33.33% missing; Gender: 33.3% women, 16.7% men, 16.67% non-binary, 33.33% missing; Education: -5, 16.67%; -3, 16.67%; 0, 16.67%; 3, 16.67%; 5, 16.67%; 8, 16.67%; Country: 33.33% Canada, 16.67% Germany, 16.67% India, 16.67% USA, 16.67% missing; Race: 16.67% A, 16.67% B, 16.67% C, 16.67% D, 16.67% E, 16.67% missing)" + +# report_participants age as character + + Code + report_participants(data) + Output + [1] "6 participants (Mean age = 29.5, SD = 15.0, range: [11, 52])" + +# report_participants different gender spellings + + Code + report_participants(data) + Output + [1] "20 participants (Gender: 50.0% women, 45.0% men, 0.00% non-binary, 5.00% missing)" + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_performance.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_performance.md new file mode 100644 index 000000000..d1a0f5889 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_performance.md @@ -0,0 +1,36 @@ +# report_performance Bayesian) + + Code + report_performance(x5) + Output + The model's explanatory power is substantial (R2 = 0.62, 95% CI [0.53, 0.69], + adj. R2 = 0.61) + +--- + + Code + summary(report_performance(x5)) + Output + [1] "The model's explanatory power is substantial (R2 = 0.62, adj. R2 = 0.61)" + +--- + + Code + report_performance(x6) + Output + The model's explanatory power is substantial (R2 = 0.54, 95% CI [0.27, 0.77]) + +--- + + Code + summary(report_performance(x6)) + Output + [1] "The model's explanatory power is substantial (R2 = 0.54)" + +# report_performance Bayesian 2) + + Code + summary(report_performance(x7)) + Output + [1] "The model's explanatory power is substantial (R2 = 0.83, adj. R2 = 0.83) and the part related to the fixed effects alone (marginal R2) is of 0.74" + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_s.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_s.md new file mode 100644 index 000000000..0e3708e3f --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_s.md @@ -0,0 +1,20 @@ +# report_s + + Code + report_s(s = 4.2) + Message + If the test hypothesis (parameter = 0) and all model assumptions were + true, there is a 5.4% chance of observing this outcome. How weird is + that? It's hardly more surprising than getting 4 heads in a row with + fair coin tosses. + +--- + + Code + report_s(p = 0.06) + Message + If the test hypothesis (parameter = 0) and all model assumptions were + true, there is a 6% chance of observing this outcome. How weird is that? + It's hardly more surprising than getting 4 heads in a row with fair coin + tosses. + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_sample.md b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_sample.md new file mode 100644 index 000000000..83570e886 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/_snaps/windows/report_sample.md @@ -0,0 +1,720 @@ +# report_sample default + + Code + report_sample(airquality) + Output + # Descriptive Statistics + + Variable | Summary + ---------------------------------- + Mean Ozone (SD) | 42.13 (32.99) + Mean Solar.R (SD) | 185.93 (90.06) + Mean Wind (SD) | 9.96 (3.52) + Mean Temp (SD) | 77.88 (9.47) + Mean Month (SD) | 6.99 (1.42) + Mean Day (SD) | 15.80 (8.86) + +--- + + Code + report_sample(mtcars) + Output + # Descriptive Statistics + + Variable | Summary + -------------------------------- + Mean mpg (SD) | 20.09 (6.03) + Mean cyl (SD) | 6.19 (1.79) + Mean disp (SD) | 230.72 (123.94) + Mean hp (SD) | 146.69 (68.56) + Mean drat (SD) | 3.60 (0.53) + Mean wt (SD) | 3.22 (0.98) + Mean qsec (SD) | 17.85 (1.79) + Mean vs (SD) | 0.44 (0.50) + Mean am (SD) | 0.41 (0.50) + Mean gear (SD) | 3.69 (0.74) + Mean carb (SD) | 2.81 (1.62) + +--- + + Code + report_sample(iris) + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------- + Mean Sepal.Length (SD) | 5.84 (0.83) + Mean Sepal.Width (SD) | 3.06 (0.44) + Mean Petal.Length (SD) | 3.76 (1.77) + Mean Petal.Width (SD) | 1.20 (0.76) + Species [setosa], % | 33.3 + Species [versicolor], % | 33.3 + Species [virginica], % | 33.3 + +# report_sample n = TRUE + + Code + report_sample(airquality, n = TRUE) + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------------ + Mean Ozone (SD), n | 42.13 (32.99), 116 + Mean Solar.R (SD), n | 185.93 (90.06), 146 + Mean Wind (SD), n | 9.96 (3.52), 153 + Mean Temp (SD), n | 77.88 (9.47), 153 + Mean Month (SD), n | 6.99 (1.42), 153 + Mean Day (SD), n | 15.80 (8.86), 153 + +--- + + Code + report_sample(mtcars, n = TRUE) + Output + # Descriptive Statistics + + Variable | Summary + --------------------------------------- + Mean mpg (SD), n | 20.09 (6.03), 32 + Mean cyl (SD), n | 6.19 (1.79), 32 + Mean disp (SD), n | 230.72 (123.94), 32 + Mean hp (SD), n | 146.69 (68.56), 32 + Mean drat (SD), n | 3.60 (0.53), 32 + Mean wt (SD), n | 3.22 (0.98), 32 + Mean qsec (SD), n | 17.85 (1.79), 32 + Mean vs (SD), n | 0.44 (0.50), 32 + Mean am (SD), n | 0.41 (0.50), 32 + Mean gear (SD), n | 3.69 (0.74), 32 + Mean carb (SD), n | 2.81 (1.62), 32 + +--- + + Code + report_sample(iris, n = TRUE) + Output + # Descriptive Statistics + + Variable | Summary + --------------------------------------------- + Mean Sepal.Length (SD), n | 5.84 (0.83), 150 + Mean Sepal.Width (SD), n | 3.06 (0.44), 150 + Mean Petal.Length (SD), n | 3.76 (1.77), 150 + Mean Petal.Width (SD), n | 1.20 (0.76), 150 + Species [setosa], %, n | 33.3, 50 + Species [versicolor], %, n | 33.3, 50 + Species [virginica], %, n | 33.3, 50 + +# report_sample CI + + Code + report_sample(iris, select = c("Sepal.Length", "Species"), ci = 0.95, + ci_method = "wald") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------------- + Mean Sepal.Length (SD) | 5.84 (0.83) + Species [setosa], % | 33.3 [25.8, 40.9] + Species [versicolor], % | 33.3 [25.8, 40.9] + Species [virginica], % | 33.3 [25.8, 40.9] + +--- + + Code + report_sample(iris, select = c("Sepal.Length", "Species"), ci = 0.95, + ci_method = "wilson") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------------- + Mean Sepal.Length (SD) | 5.84 (0.83) + Species [setosa], % | 33.3 [26.3, 41.2] + Species [versicolor], % | 33.3 [26.3, 41.2] + Species [virginica], % | 33.3 [26.3, 41.2] + +--- + + Code + report_sample(d, ci = 0.95, select = "x", ci_method = "wald") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------- + x [1], % | 2.9 [1.9, 3.9] + +--- + + Code + report_sample(d, ci = 0.95, select = "x", ci_method = "wilson") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------- + x [1], % | 2.9 [2.0, 4.1] + +--- + + Code + report_sample(d, ci = 0.95, ci_correct = TRUE, select = "x", ci_method = "wald") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------- + x [1], % | 2.9 [1.8, 4.0] + +--- + + Code + report_sample(d, ci = 0.95, ci_correct = TRUE, select = "x", ci_method = "wilson") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------- + x [1], % | 2.9 [2.0, 4.2] + +# report_sample by + + Code + report_sample(airquality, by = "Month") + Output + # Descriptive Statistics + + Variable | 5 (n=31) | 6 (n=30) | 7 (n=31) + --------------------------------------------------------------------- + Mean Ozone (SD) | 23.62 (22.22) | 29.44 (18.21) | 59.12 (31.64) + Mean Solar.R (SD) | 181.30 (115.08) | 190.17 (92.88) | 216.48 (80.57) + Mean Wind (SD) | 11.62 (3.53) | 10.27 (3.77) | 8.94 (3.04) + Mean Temp (SD) | 65.55 (6.85) | 79.10 (6.60) | 83.90 (4.32) + Mean Day (SD) | 16.00 (9.09) | 15.50 (8.80) | 16.00 (9.09) + + Variable | 8 (n=31) | 9 (n=30) | Total (n=153) + -------------------------------------------------------------------- + Mean Ozone (SD) | 59.96 (39.68) | 31.45 (24.14) | 42.13 (32.99) + Mean Solar.R (SD) | 171.86 (76.83) | 167.43 (79.12) | 185.93 (90.06) + Mean Wind (SD) | 8.79 (3.23) | 10.18 (3.46) | 9.96 (3.52) + Mean Temp (SD) | 83.97 (6.59) | 76.90 (8.36) | 77.88 (9.47) + Mean Day (SD) | 16.00 (9.09) | 15.50 (8.80) | 15.80 (8.86) + +--- + + Code + report_sample(mtcars, by = "cyl") + Output + # Descriptive Statistics + + Variable | 4 (n=11) | 6 (n=7) | 8 (n=14) | Total (n=32) + ----------------------------------------------------------------------------------- + Mean mpg (SD) | 26.66 (4.51) | 19.74 (1.45) | 15.10 (2.56) | 20.09 (6.03) + Mean disp (SD) | 105.14 (26.87) | 183.31 (41.56) | 353.10 (67.77) | 230.72 (123.94) + Mean hp (SD) | 82.64 (20.93) | 122.29 (24.26) | 209.21 (50.98) | 146.69 (68.56) + Mean drat (SD) | 4.07 (0.37) | 3.59 (0.48) | 3.23 (0.37) | 3.60 (0.53) + Mean wt (SD) | 2.29 (0.57) | 3.12 (0.36) | 4.00 (0.76) | 3.22 (0.98) + Mean qsec (SD) | 19.14 (1.68) | 17.98 (1.71) | 16.77 (1.20) | 17.85 (1.79) + Mean vs (SD) | 0.91 (0.30) | 0.57 (0.53) | 0.00 (0.00) | 0.44 (0.50) + Mean am (SD) | 0.73 (0.47) | 0.43 (0.53) | 0.14 (0.36) | 0.41 (0.50) + Mean gear (SD) | 4.09 (0.54) | 3.86 (0.69) | 3.29 (0.73) | 3.69 (0.74) + Mean carb (SD) | 1.55 (0.52) | 3.43 (1.81) | 3.50 (1.56) | 2.81 (1.62) + +--- + + Code + report_sample(iris, by = "Species") + Output + # Descriptive Statistics + + Variable | setosa (n=50) | versicolor (n=50) | virginica (n=50) | Total (n=150) + --------------------------------------------------------------------------------------------- + Mean Sepal.Length (SD) | 5.01 (0.35) | 5.94 (0.52) | 6.59 (0.64) | 5.84 (0.83) + Mean Sepal.Width (SD) | 3.43 (0.38) | 2.77 (0.31) | 2.97 (0.32) | 3.06 (0.44) + Mean Petal.Length (SD) | 1.46 (0.17) | 4.26 (0.47) | 5.55 (0.55) | 3.76 (1.77) + Mean Petal.Width (SD) | 0.25 (0.11) | 1.33 (0.20) | 2.03 (0.27) | 1.20 (0.76) + +# report_sample centrality + + Code + report_sample(airquality, centrality = "mean") + Output + # Descriptive Statistics + + Variable | Summary + ---------------------------------- + Mean Ozone (SD) | 42.13 (32.99) + Mean Solar.R (SD) | 185.93 (90.06) + Mean Wind (SD) | 9.96 (3.52) + Mean Temp (SD) | 77.88 (9.47) + Mean Month (SD) | 6.99 (1.42) + Mean Day (SD) | 15.80 (8.86) + +--- + + Code + report_sample(mtcars, centrality = "mean") + Output + # Descriptive Statistics + + Variable | Summary + -------------------------------- + Mean mpg (SD) | 20.09 (6.03) + Mean cyl (SD) | 6.19 (1.79) + Mean disp (SD) | 230.72 (123.94) + Mean hp (SD) | 146.69 (68.56) + Mean drat (SD) | 3.60 (0.53) + Mean wt (SD) | 3.22 (0.98) + Mean qsec (SD) | 17.85 (1.79) + Mean vs (SD) | 0.44 (0.50) + Mean am (SD) | 0.41 (0.50) + Mean gear (SD) | 3.69 (0.74) + Mean carb (SD) | 2.81 (1.62) + +--- + + Code + report_sample(iris, centrality = "mean") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------- + Mean Sepal.Length (SD) | 5.84 (0.83) + Mean Sepal.Width (SD) | 3.06 (0.44) + Mean Petal.Length (SD) | 3.76 (1.77) + Mean Petal.Width (SD) | 1.20 (0.76) + Species [setosa], % | 33.3 + Species [versicolor], % | 33.3 + Species [virginica], % | 33.3 + +--- + + Code + report_sample(airquality, centrality = "median") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------- + Median Ozone (MAD) | 31.50 (25.95) + Median Solar.R (MAD) | 205.00 (98.59) + Median Wind (MAD) | 9.70 (3.41) + Median Temp (MAD) | 79.00 (8.90) + Median Month (MAD) | 7.00 (1.48) + Median Day (MAD) | 16.00 (11.86) + +--- + + Code + report_sample(mtcars, centrality = "median") + Output + # Descriptive Statistics + + Variable | Summary + ----------------------------------- + Median mpg (MAD) | 19.20 (5.41) + Median cyl (MAD) | 6.00 (2.97) + Median disp (MAD) | 196.30 (140.48) + Median hp (MAD) | 123.00 (77.10) + Median drat (MAD) | 3.70 (0.70) + Median wt (MAD) | 3.33 (0.77) + Median qsec (MAD) | 17.71 (1.42) + Median vs (MAD) | 0.00 (0.00) + Median am (MAD) | 0.00 (0.00) + Median gear (MAD) | 4.00 (1.48) + Median carb (MAD) | 2.00 (1.48) + +--- + + Code + report_sample(iris, centrality = "median") + Output + # Descriptive Statistics + + Variable | Summary + --------------------------------------- + Median Sepal.Length (MAD) | 5.80 (1.04) + Median Sepal.Width (MAD) | 3.00 (0.44) + Median Petal.Length (MAD) | 4.35 (1.85) + Median Petal.Width (MAD) | 1.30 (1.04) + Species [setosa], % | 33.3 + Species [versicolor], % | 33.3 + Species [virginica], % | 33.3 + +# report_sample select + + Code + report_sample(airquality, select = "Temp") + Output + # Descriptive Statistics + + Variable | Summary + ----------------------------- + Mean Temp (SD) | 77.88 (9.47) + +--- + + Code + report_sample(mtcars, select = c("mpg", "disp")) + Output + # Descriptive Statistics + + Variable | Summary + -------------------------------- + Mean mpg (SD) | 20.09 (6.03) + Mean disp (SD) | 230.72 (123.94) + +--- + + Code + report_sample(iris, select = "Petal.Width") + Output + # Descriptive Statistics + + Variable | Summary + ----------------------------------- + Mean Petal.Width (SD) | 1.20 (0.76) + +# report_sample exclude + + Code + report_sample(airquality, exclude = "Temp") + Output + # Descriptive Statistics + + Variable | Summary + ---------------------------------- + Mean Ozone (SD) | 42.13 (32.99) + Mean Solar.R (SD) | 185.93 (90.06) + Mean Wind (SD) | 9.96 (3.52) + Mean Month (SD) | 6.99 (1.42) + Mean Day (SD) | 15.80 (8.86) + +--- + + Code + report_sample(mtcars, exclude = c("mpg", "disp")) + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------- + Mean cyl (SD) | 6.19 (1.79) + Mean hp (SD) | 146.69 (68.56) + Mean drat (SD) | 3.60 (0.53) + Mean wt (SD) | 3.22 (0.98) + Mean qsec (SD) | 17.85 (1.79) + Mean vs (SD) | 0.44 (0.50) + Mean am (SD) | 0.41 (0.50) + Mean gear (SD) | 3.69 (0.74) + Mean carb (SD) | 2.81 (1.62) + +--- + + Code + report_sample(iris, exclude = "Petal.Width") + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------- + Mean Sepal.Length (SD) | 5.84 (0.83) + Mean Sepal.Width (SD) | 3.06 (0.44) + Mean Petal.Length (SD) | 3.76 (1.77) + Species [setosa], % | 33.3 + Species [versicolor], % | 33.3 + Species [virginica], % | 33.3 + +# report_sample total + + Code + report_sample(airquality, total = TRUE) + Output + # Descriptive Statistics + + Variable | Summary + ---------------------------------- + Mean Ozone (SD) | 42.13 (32.99) + Mean Solar.R (SD) | 185.93 (90.06) + Mean Wind (SD) | 9.96 (3.52) + Mean Temp (SD) | 77.88 (9.47) + Mean Month (SD) | 6.99 (1.42) + Mean Day (SD) | 15.80 (8.86) + +--- + + Code + report_sample(airquality, total = FALSE) + Output + # Descriptive Statistics + + Variable | Summary + ---------------------------------- + Mean Ozone (SD) | 42.13 (32.99) + Mean Solar.R (SD) | 185.93 (90.06) + Mean Wind (SD) | 9.96 (3.52) + Mean Temp (SD) | 77.88 (9.47) + Mean Month (SD) | 6.99 (1.42) + Mean Day (SD) | 15.80 (8.86) + +--- + + Code + report_sample(airquality, by = "Month", total = TRUE) + Output + # Descriptive Statistics + + Variable | 5 (n=31) | 6 (n=30) | 7 (n=31) + --------------------------------------------------------------------- + Mean Ozone (SD) | 23.62 (22.22) | 29.44 (18.21) | 59.12 (31.64) + Mean Solar.R (SD) | 181.30 (115.08) | 190.17 (92.88) | 216.48 (80.57) + Mean Wind (SD) | 11.62 (3.53) | 10.27 (3.77) | 8.94 (3.04) + Mean Temp (SD) | 65.55 (6.85) | 79.10 (6.60) | 83.90 (4.32) + Mean Day (SD) | 16.00 (9.09) | 15.50 (8.80) | 16.00 (9.09) + + Variable | 8 (n=31) | 9 (n=30) | Total (n=153) + -------------------------------------------------------------------- + Mean Ozone (SD) | 59.96 (39.68) | 31.45 (24.14) | 42.13 (32.99) + Mean Solar.R (SD) | 171.86 (76.83) | 167.43 (79.12) | 185.93 (90.06) + Mean Wind (SD) | 8.79 (3.23) | 10.18 (3.46) | 9.96 (3.52) + Mean Temp (SD) | 83.97 (6.59) | 76.90 (8.36) | 77.88 (9.47) + Mean Day (SD) | 16.00 (9.09) | 15.50 (8.80) | 15.80 (8.86) + +--- + + Code + report_sample(airquality, by = "Month", total = FALSE) + Output + # Descriptive Statistics + + Variable | 5 (n=31) | 6 (n=30) | 7 (n=31) + --------------------------------------------------------------------- + Mean Ozone (SD) | 23.62 (22.22) | 29.44 (18.21) | 59.12 (31.64) + Mean Solar.R (SD) | 181.30 (115.08) | 190.17 (92.88) | 216.48 (80.57) + Mean Wind (SD) | 11.62 (3.53) | 10.27 (3.77) | 8.94 (3.04) + Mean Temp (SD) | 65.55 (6.85) | 79.10 (6.60) | 83.90 (4.32) + Mean Day (SD) | 16.00 (9.09) | 15.50 (8.80) | 16.00 (9.09) + + Variable | 8 (n=31) | 9 (n=30) (n=153) + ----------------------------------------------------- + Mean Ozone (SD) | 59.96 (39.68) | 31.45 (24.14) + Mean Solar.R (SD) | 171.86 (76.83) | 167.43 (79.12) + Mean Wind (SD) | 8.79 (3.23) | 10.18 (3.46) + Mean Temp (SD) | 83.97 (6.59) | 76.90 (8.36) + Mean Day (SD) | 16.00 (9.09) | 15.50 (8.80) + +--- + + Code + report_sample(airquality, by = "Month", total = FALSE, n = TRUE) + Output + # Descriptive Statistics + + Variable | 5 (n=31) | 6 (n=30) + --------------------------------------------------------------- + Mean Ozone (SD), n | 23.62 (22.22), 26 | 29.44 (18.21), 9 + Mean Solar.R (SD), n | 181.30 (115.08), 27 | 190.17 (92.88), 30 + Mean Wind (SD), n | 11.62 (3.53), 31 | 10.27 (3.77), 30 + Mean Temp (SD), n | 65.55 (6.85), 31 | 79.10 (6.60), 30 + Mean Day (SD), n | 16.00 (9.09), 31 | 15.50 (8.80), 30 + + Variable | 7 (n=31) | 8 (n=31) | 9 (n=30) (n=153) + ----------------------------------------------------------------------------------- + Mean Ozone (SD), n | 59.12 (31.64), 26 | 59.96 (39.68), 26 | 31.45 (24.14), 29 + Mean Solar.R (SD), n | 216.48 (80.57), 31 | 171.86 (76.83), 28 | 167.43 (79.12), 30 + Mean Wind (SD), n | 8.94 (3.04), 31 | 8.79 (3.23), 31 | 10.18 (3.46), 30 + Mean Temp (SD), n | 83.90 (4.32), 31 | 83.97 (6.59), 31 | 76.90 (8.36), 30 + Mean Day (SD), n | 16.00 (9.09), 31 | 16.00 (9.09), 31 | 15.50 (8.80), 30 + +--- + + Code + report_sample(airquality, by = "Month", total = TRUE, n = TRUE) + Output + # Descriptive Statistics + + Variable | 5 (n=31) | 6 (n=30) + --------------------------------------------------------------- + Mean Ozone (SD), n | 23.62 (22.22), 26 | 29.44 (18.21), 9 + Mean Solar.R (SD), n | 181.30 (115.08), 27 | 190.17 (92.88), 30 + Mean Wind (SD), n | 11.62 (3.53), 31 | 10.27 (3.77), 30 + Mean Temp (SD), n | 65.55 (6.85), 31 | 79.10 (6.60), 30 + Mean Day (SD), n | 16.00 (9.09), 31 | 15.50 (8.80), 30 + + Variable | 7 (n=31) | 8 (n=31) + -------------------------------------------------------------- + Mean Ozone (SD), n | 59.12 (31.64), 26 | 59.96 (39.68), 26 + Mean Solar.R (SD), n | 216.48 (80.57), 31 | 171.86 (76.83), 28 + Mean Wind (SD), n | 8.94 (3.04), 31 | 8.79 (3.23), 31 + Mean Temp (SD), n | 83.90 (4.32), 31 | 83.97 (6.59), 31 + Mean Day (SD), n | 16.00 (9.09), 31 | 16.00 (9.09), 31 + + Variable | 9 (n=30) | Total (n=153) + --------------------------------------------------------------- + Mean Ozone (SD), n | 31.45 (24.14), 29 | 42.13 (32.99), 116 + Mean Solar.R (SD), n | 167.43 (79.12), 30 | 185.93 (90.06), 146 + Mean Wind (SD), n | 10.18 (3.46), 30 | 9.96 (3.52), 153 + Mean Temp (SD), n | 76.90 (8.36), 30 | 77.88 (9.47), 153 + Mean Day (SD), n | 15.50 (8.80), 30 | 15.80 (8.86), 153 + +# report_sample digits + + Code + report_sample(airquality, digits = 5) + Output + # Descriptive Statistics + + Variable | Summary + ---------------------------------------- + Mean Ozone (SD) | 42.12931 (32.98788) + Mean Solar.R (SD) | 185.93151 (90.05842) + Mean Wind (SD) | 9.95752 (3.52300) + Mean Temp (SD) | 77.88235 (9.46527) + Mean Month (SD) | 6.99346 (1.41652) + Mean Day (SD) | 15.80392 (8.86452) + +--- + + Code + report_sample(mtcars, digits = 5) + Output + # Descriptive Statistics + + Variable | Summary + -------------------------------------- + Mean mpg (SD) | 20.09062 (6.02695) + Mean cyl (SD) | 6.18750 (1.78592) + Mean disp (SD) | 230.72188 (123.93869) + Mean hp (SD) | 146.68750 (68.56287) + Mean drat (SD) | 3.59656 (0.53468) + Mean wt (SD) | 3.21725 (0.97846) + Mean qsec (SD) | 17.84875 (1.78694) + Mean vs (SD) | 0.43750 (0.50402) + Mean am (SD) | 0.40625 (0.49899) + Mean gear (SD) | 3.68750 (0.73780) + Mean carb (SD) | 2.81250 (1.61520) + +--- + + Code + report_sample(iris, digits = 5) + Output + # Descriptive Statistics + + Variable | Summary + ------------------------------------------- + Mean Sepal.Length (SD) | 5.84333 (0.82807) + Mean Sepal.Width (SD) | 3.05733 (0.43587) + Mean Petal.Length (SD) | 3.75800 (1.76530) + Mean Petal.Width (SD) | 1.19933 (0.76224) + Species [setosa], % | 33.3 + Species [versicolor], % | 33.3 + Species [virginica], % | 33.3 + +# report_sample weights + + Code + report_sample(airquality, weights = "Temp") + Output + # Descriptive Statistics (weighted) + + Variable | Summary + ---------------------------------- + Mean Ozone (SD) | 44.91 (33.54) + Mean Solar.R (SD) | 188.84 (87.33) + Mean Wind (SD) | 9.76 (3.48) + Mean Month (SD) | 7.07 (1.37) + Mean Day (SD) | 15.66 (8.93) + +--- + + Code + report_sample(mtcars, weights = "carb") + Output + # Descriptive Statistics (weighted) + + Variable | Summary + -------------------------------- + Mean mpg (SD) | 18.24 (5.17) + Mean cyl (SD) | 6.71 (1.57) + Mean disp (SD) | 257.96 (120.25) + Mean hp (SD) | 175.29 (75.91) + Mean drat (SD) | 3.57 (0.48) + Mean wt (SD) | 3.45 (0.95) + Mean qsec (SD) | 17.20 (1.76) + Mean vs (SD) | 0.28 (0.45) + Mean am (SD) | 0.42 (0.50) + Mean gear (SD) | 3.80 (0.81) + +--- + + Code + report_sample(iris, weights = "Petal.Width") + Output + # Descriptive Statistics (weighted) + + Variable | Summary + ------------------------------------- + Mean Sepal.Length (SD) | 6.27 (0.72) + Mean Sepal.Width (SD) | 2.96 (0.36) + Mean Petal.Length (SD) | 4.83 (1.19) + Species [setosa], % | 6.8 + Species [versicolor], % | 36.9 + Species [virginica], % | 56.3 + +# report_sample, with more than one grouping variable + + Code + out + Output + # Descriptive Statistics + + Variable | setosa, a (n=16) | versicolor, a (n=17) + ---------------------------------------------------------------- + Mean Sepal.Length (SD) | 5.13 (0.36) | 6.08 (0.48) + Mean Sepal.Width (SD) | 3.50 (0.42) | 2.76 (0.40) + + Variable | virginica, a (n=9) | setosa, b (n=15) + -------------------------------------------------------------- + Mean Sepal.Length (SD) | 6.59 (0.44) | 4.91 (0.31) + Mean Sepal.Width (SD) | 3.02 (0.25) | 3.34 (0.25) + + Variable | versicolor, b (n=17) | virginica, b (n=22) + ------------------------------------------------------------------- + Mean Sepal.Length (SD) | 5.84 (0.54) | 6.77 (0.63) + Mean Sepal.Width (SD) | 2.81 (0.25) | 3.05 (0.36) + + Variable | setosa, c (n=19) | versicolor, c (n=16) + ---------------------------------------------------------------- + Mean Sepal.Length (SD) | 4.97 (0.36) | 5.88 (0.53) + Mean Sepal.Width (SD) | 3.44 (0.43) | 2.74 (0.29) + + Variable | virginica, c (n=19) | Total (n=150) + ------------------------------------------------------------ + Mean Sepal.Length (SD) | 6.38 (0.69) | 5.84 (0.83) + Mean Sepal.Width (SD) | 2.87 (0.30) | 3.06 (0.44) + +# report_sample, print vertical + + Code + print(out, layout = "vertical") + Output + # Descriptive Statistics + + Groups | Mean Sepal.Length (SD) | Mean Sepal.Width (SD) | Mean Petal.Length (SD) + ---------------------------------------------------------------------------------------------- + setosa, a (n=16) | 5.13 (0.36) | 3.50 (0.42) | 1.50 (0.12) + versicolor, a (n=17) | 6.08 (0.48) | 2.76 (0.40) | 4.37 (0.44) + virginica, a (n=9) | 6.59 (0.44) | 3.02 (0.25) | 5.57 (0.52) + setosa, b (n=15) | 4.91 (0.31) | 3.34 (0.25) | 1.47 (0.17) + versicolor, b (n=17) | 5.84 (0.54) | 2.81 (0.25) | 4.25 (0.44) + virginica, b (n=22) | 6.77 (0.63) | 3.05 (0.36) | 5.73 (0.57) + setosa, c (n=19) | 4.97 (0.36) | 3.44 (0.43) | 1.43 (0.21) + versicolor, c (n=16) | 5.88 (0.53) | 2.74 (0.29) | 4.16 (0.53) + virginica, c (n=19) | 6.38 (0.69) | 2.87 (0.30) | 5.34 (0.49) + Total (n=150) | 5.84 (0.83) | 3.06 (0.44) | 3.76 (1.77) + diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-format_model.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-format_model.R new file mode 100644 index 000000000..a429edde4 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-format_model.R @@ -0,0 +1,46 @@ +test_that("format_model", { + expect_identical(format_model(lm(Sepal.Length ~ Petal.Length * Species, data = iris)), "linear model") + expect_identical(format_model(glm(vs ~ disp, data = mtcars, family = "binomial")), "logistic model") + expect_identical(format_model(glm(vs ~ disp, data = mtcars, family = binomial(link = "probit"))), "probit model") + expect_identical(format_model(glm(vs ~ mpg, data = mtcars, family = "poisson")), "poisson model") +}) + + +test_that("format_model", { + skip_if_not_installed("lme4") + expect_identical(format_model(lme4::lmer(wt ~ cyl + (1 | gear), data = mtcars)), "linear mixed model") + expect_identical( + format_model(lme4::glmer(vs ~ cyl + (1 | gear), data = mtcars, family = "binomial")), + "logistic mixed model" + ) + expect_identical( + format_model(lme4::glmer(vs ~ drat + cyl + (1 | gear), data = mtcars, family = "binomial")), + "logistic mixed model" + ) +}) + + +test_that("format_model", { + skip_if_not_installed("rstanarm") + expect_identical( + format_model( + suppressWarnings( + rstanarm::stan_glm(mpg ~ wt, data = mtcars, refresh = 0, iter = 50) + ) + ), + "Bayesian linear model" + ) + expect_identical( + format_model( + suppressWarnings( + rstanarm::stan_glm(vs ~ wt, + data = mtcars, + family = "binomial", + refresh = 0, + iter = 50 + ) + ) + ), + "Bayesian logistic model" + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.aov.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.aov.R new file mode 100644 index 000000000..f25a0b6c2 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.aov.R @@ -0,0 +1,74 @@ +test_that("report.aov", { + model <- anova(lm(Sepal.Width ~ Species, data = iris)) + r1 <- report(model) + expect_equal( + c( + ncol(as.report_table(r1, summary = TRUE)), + nrow(as.report_table(r1, summary = TRUE)) + ), c(7, 2), + ignore_attr = FALSE + ) + expect_equal(as.report_table(r1, summary = TRUE)$Mean_Square[1], 5.6724, tolerance = 0.01) + + model <- aov(Sepal.Width ~ Species, data = iris) + r2 <- report(model) + expect_equal( + c( + ncol(as.report_table(r2, summary = TRUE)), + nrow(as.report_table(r2, summary = TRUE)) + ), c(7, 2), + ignore_attr = FALSE + ) + expect_equal(as.report_table(r2, summary = TRUE)$Mean_Square[1], 5.6724, tolerance = 0.01) + + r3 <- report(model) + expect_equal( + c( + ncol(as.report_table(r3, summary = TRUE)), + nrow(as.report_table(r3, summary = TRUE)) + ), c(7, 2), + ignore_attr = FALSE + ) + expect_equal(sum(as.report_table(r3, summary = TRUE)$Mean_Square), 5.787854, tolerance = 0.01) + + data <- iris + data$Cat1 <- rep_len(c("X", "X", "Y"), nrow(data)) + data$Cat2 <- rep_len(c("A", "B"), nrow(data)) + + model <- aov(Sepal.Length ~ Species * Cat1 * Cat2, data = data) + r4 <- report(model) + expect_equal( + c( + ncol(as.report_table(r4, summary = TRUE)), + nrow(as.report_table(r4, summary = TRUE)) + ), c(7, 8), + ignore_attr = FALSE + ) + expect_equal(as.report_table(r4, summary = TRUE)$Mean_Square[1], 31.6060, tolerance = 0.01) + + model <- aov(Sepal.Length ~ Species * Cat1 + Error(Cat2), data = data) + r5 <- report(model, verbose = FALSE) + expect_warning(report(model), "non-finite") + expect_equal( + c( + ncol(as.report_table(r5, summary = TRUE)), + nrow(as.report_table(r5, summary = TRUE)) + ), c(8, 5), + ignore_attr = FALSE + ) + expect_equal(as.report_table(r5, summary = TRUE)$Mean_Square[1], 31.60607, tolerance = 0.01) + + # snapshot tests ----- + + set.seed(123) + expect_snapshot(variant = "windows", suppressWarnings(report(anova(lm(Sepal.Width ~ Species, data = iris))))) + + set.seed(123) + expect_snapshot( + variant = "windows", + suppressWarnings(report(anova(lm(wt ~ as.factor(am) * as.factor(cyl), data = mtcars)))) + ) + + set.seed(123) + expect_snapshot(variant = "windows", suppressWarnings(report(aov(wt ~ cyl + Error(gear), data = mtcars)))) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.bayesfactor_models.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.bayesfactor_models.R new file mode 100644 index 000000000..f6d4056f5 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.bayesfactor_models.R @@ -0,0 +1,38 @@ +mod0 <- lm(Sepal.Length ~ 1, data = iris) +mod1 <- lm(Sepal.Length ~ Species, data = iris) +mod2 <- lm(Sepal.Length ~ Species + Petal.Length, data = iris) +mod3 <- lm(Sepal.Length ~ Species * Petal.Length, data = iris) + +BFmodels <- bayestestR::bayesfactor_models(mod1, mod2, mod3, denominator = mod0) + +test_that("models", { + r <- report(BFmodels) + expect_s3_class(summary(r), "character") + expect_s3_class(as.data.frame(r), "data.frame") + + expect_output(print(r), "BIC approximation") + expect_output(print(r), "\\(Intercept only\\) model") + + BFmodels <- bayestestR::bayesfactor_models(mod1, mod2, mod3, denominator = mod1) + r <- report(BFmodels) + expect_output(print(r), "Compared to the Species model") +}) + +test_that("inclusion", { + inc_bf <- bayestestR::bayesfactor_inclusion(BFmodels, prior_odds = c(1, 2, 3), match_models = TRUE) + r <- report(inc_bf) + expect_s3_class(summary(r), "character") + expect_s3_class(as.data.frame(r), "data.frame") + + expect_output(print(r), "Since each model") + expect_output(print(r), "subjective") + expect_output(print(r), "averaging") + + + inc_bf <- bayestestR::bayesfactor_inclusion(BFmodels) + r <- report(inc_bf) + expect_s3_class(summary(r), "character") + expect_s3_class(as.data.frame(r), "data.frame") + + expect_false(grepl("subjective prior odds", r, fixed = TRUE)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.brmsfit.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.brmsfit.R new file mode 100644 index 000000000..7159220f6 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.brmsfit.R @@ -0,0 +1,38 @@ +skip_on_cran() +skip_if_not_installed("brms") + +test_that("report.brms", { + skip_if_not_installed("rstan", "2.26.0") + + set.seed(333) + model <- suppressMessages(suppressWarnings(brms::brm( + mpg ~ qsec + wt, + data = mtcars, refresh = 0, iter = 300, seed = 333 + ))) + r <- report(model, verbose = FALSE) + + expect_s3_class(summary(r), "character") + expect_s3_class(as.data.frame(r), "data.frame") + + expect_identical( + as.data.frame(r)$Parameter, + c( + "(Intercept)", "qsec", "wt", "sigma", NA, "ELPD", "LOOIC", "WAIC", "R2", + "R2 (adj.)", "Sigma" + ) + ) + expect_equal( + as.data.frame(r)$Median, + c(19.906865, 0.930295, -5.119548, 2.6611623, rep(NA, 7)), + tolerance = 1e-1 + ) + expect_equal( + as.data.frame(r)$pd, + c(rep(1, 4), rep(NA, 7)), + tolerance = 1e-1 + ) + + skip("Skipping because of a .01 decimal difference in snapshots") + set.seed(333) + expect_snapshot(variant = "windows", report(model, verbose = FALSE)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.data.frame.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.data.frame.R new file mode 100644 index 000000000..0d114cad0 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.data.frame.R @@ -0,0 +1,95 @@ +test_that("report.numeric", { + r <- report(seq(0, 1, length.out = 100)) + expect_equal(as.data.frame(r)$Mean, 0.5, tolerance = 0) + expect_null(as.report_table(r, summary = TRUE)$Median) + + r <- report( + seq(0, 1, length.out = 100), + centrality = "median", + range = FALSE, + dispersion = FALSE, + missing_percentage = TRUE + ) + expect_equal(as.data.frame(r)$Median, 0.5, tolerance = 0) + expect_equal(as.data.frame(r)$percentage_Missing, 0, tolerance = 0) + expect_null(summary(as.data.frame(r))$Mean) + expect_null(summary(as.data.frame(r))$Min) + expect_null(summary(as.data.frame(r))$MAD) + expect_warning(report(c(0, 0, 0, 1, 1)), "factor") +}) + + +test_that("report.character", { + x <- c("A", "B", "C", "A", "B", "B", "D", "E", "B", "D", "A") + r <- report(x) + expect_equal(nrow(as.data.frame(r)), 1, tolerance = 0) + expect_null(as.data.frame(r)$Median) + + r <- report(x, levels_percentage = FALSE, missing_percentage = TRUE) + expect_equal(nrow(as.data.frame(r)), 1, tolerance = 0) + expect_equal(as.data.frame(r)$percentage_Missing[1], 0, tolerance = 0) +}) + +test_that("report.factor", { + r <- report(factor(rep(c("A", "B", "C"), 10))) + expect_equal(nrow(as.data.frame(r)), 3, tolerance = 0) + expect_null(as.data.frame(r)$Median) + expect_snapshot(variant = "windows", r) + + r <- report(factor(rep(c("A", "B", "C", NA), 10)), levels_percentage = FALSE) + expect_equal(nrow(as.data.frame(r)), 4, tolerance = 0) +}) + +test_that("report.Date", { + set.seed(123) + x <- sample(seq(as.Date("1999/01/01"), as.Date("1999/01/05"), by = "day"), 30, replace = TRUE) + r <- report(x) + expect_equal( + as.character(r), + "x: 5 levels, namely 1999-01-01 (n = 6, 20.00%), 1999-01-02 (n = 6, 20.00%), 1999-01-03 (n = 9, 30.00%), 1999-01-04 (n = 4, 13.33%) and 1999-01-05 (n = 5, 16.67%)", + ignore_attr = TRUE + ) +}) + +test_that("report.data.frame", { + skip_if_not_installed("dplyr") + + r <- report(iris) + expect_equal(nrow(as.data.frame(r)), 7, tolerance = 0) + expect_equal(mean(as.data.frame(r)$Median, na.rm = TRUE), 3.6125) + + r <- report( + iris, + levels_percentage = FALSE, + missing_percentage = TRUE, + median = TRUE, + range = FALSE, + dispersion = FALSE + ) + expect_equal(nrow(as.data.frame(r)), 7, tolerance = 0) + expect_equal(mean(as.data.frame(r)$n_Obs), 107, tolerance = 0.01) + + r <- report(dplyr::group_by(iris, Species)) + expect_equal(nrow(as.data.frame(r)), 12, tolerance = 0) + expect_equal(mean(as.data.frame(r)$n_Obs), 50, tolerance = 0) + + expect_snapshot(variant = "windows", r) +}) + +test_that("report.data.frame - with NAs", { + skip_if_not_installed("dplyr") + + df <- mtcars + df[1, 2] <- NA + df[1, 6] <- NA + + report_grouped_df <- report(dplyr::group_by(df, cyl)) + expect_snapshot(variant = "windows", report_grouped_df) +}) + +test_that("report.data.frame - with list columns", { + skip_if_not_installed("dplyr") + + set.seed(123) + expect_snapshot(variant = "windows", report(dplyr::starwars)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-chi2.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-chi2.R new file mode 100644 index 000000000..1ed2e99ec --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-chi2.R @@ -0,0 +1,107 @@ +test_that("report.htest-chi2 report", { + m <- as.table(rbind(c(762, 327, 468), c(484, 239, 477))) + dimnames(m) <- list(gender = c("F", "M"), party = c("Democrat", "Independent", "Republican")) + x <- chisq.test(m) + + expect_snapshot( + variant = "windows", + report(x) + ) + + # Rules + expect_snapshot( + variant = "windows", + report(x, rules = "funder2019") + ) + + expect_snapshot( + variant = "windows", + report(x, rules = "gignac2016") + ) + + expect_snapshot( + variant = "windows", + report(x, rules = "cohen1988") + ) + + expect_snapshot( + variant = "windows", + report(x, rules = "evans1996") + ) + + expect_snapshot( + variant = "windows", + report(x, rules = "lovakov2021") + ) + + # Types + expect_snapshot( + variant = "windows", + report(x, type = "cramers_v") + ) + + expect_snapshot( + variant = "windows", + report(x, type = "pearsons_c") + ) + + expect_snapshot( + variant = "windows", + report(x, type = "tschuprows_t", adjust = FALSE) + ) + + expect_snapshot( + variant = "windows", + report(x, type = "tschuprows_t") + ) + + expect_snapshot( + variant = "windows", + report(x, type = "cohens_w") + ) + + # Change dataset for "Error: Phi is not appropriate for non-2x2 tables." + dat <- structure( + c(71, 50, 30, 100), + dim = c(2L, 2L), dimnames = list( + Diagnosis = c("Sick", "Recovered"), + Group = c("Treatment", "Control") + ), + class = "table" + ) + x <- chisq.test(dat) + + expect_snapshot( + variant = "windows", + report(x, type = "phi") + ) + + expect_snapshot( + variant = "windows", + report(x, type = "cohens_h", rules = "sawilowsky2009") + ) + + expect_snapshot( + variant = "windows", + report(x, type = "riskratio") + ) # riskratio has no interpretation in effectsize + # Watch carefully in case effectsize adds support + + # Mattan example comparison + x <- suppressWarnings(chisq.test(mtcars$cyl, mtcars$am)) + + expect_snapshot( + variant = "windows", + report(x) + ) +}) + +test_that("report.htest-chi2 for given probabilities", { + # Mattan example comparison + x <- suppressWarnings(chisq.test(table(mtcars$cyl), p = c(0.1, 0.3, 0.6))) + + expect_snapshot( + variant = "windows", + report(x) + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-correlation.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-correlation.R new file mode 100644 index 000000000..a14b471fe --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-correlation.R @@ -0,0 +1,30 @@ +test_that("report.htest-correlation", { + set.seed(123) + r <- report(cor.test(iris$Sepal.Width, iris$Sepal.Length)) + expect_equal(as.report_table(r)$r, -0.117, tolerance = 0.01) + + set.seed(123) + r <- cor.test(iris$Sepal.Width, iris$Sepal.Length, method = "spearman", exact = FALSE) + r <- report(r) + expect_equal(as.report_table(r)$rho, -0.166, tolerance = 0.01) + + set.seed(123) + r <- report(cor.test(iris$Sepal.Width, iris$Sepal.Length, method = "kendall")) + expect_equal(as.report_table(r)$tau, -0.077, tolerance = 0.01) + + # snapshot tests with a different dataset + set.seed(123) + expect_snapshot(variant = "windows", report(cor.test(mtcars$wt, mtcars$mpg))) + + set.seed(123) + expect_snapshot(variant = "windows", report(suppressWarnings(cor.test( + mtcars$wt, mtcars$mpg, + method = "spearman" + )))) + + set.seed(123) + expect_snapshot(variant = "windows", report(suppressWarnings(cor.test( + mtcars$wt, mtcars$mpg, + method = "kendall" + )))) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-fisher.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-fisher.R new file mode 100644 index 000000000..6c6d1ff8a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-fisher.R @@ -0,0 +1,16 @@ +test_that("report.htest-fisher report", { + TeaTasting <<- + matrix(c(3, 1, 1, 3), + nrow = 2, + dimnames = list( + Guess = c("Milk", "Tea"), + Truth = c("Milk", "Tea") + ) + ) + x <- fisher.test(TeaTasting, alternative = "greater") + + expect_snapshot( + variant = "windows", + report(x) + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-friedman.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-friedman.R new file mode 100644 index 000000000..362434267 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-friedman.R @@ -0,0 +1,15 @@ +test_that("report.htest-friendman report", { + wb <<- aggregate(warpbreaks$breaks, + by = list( + w = warpbreaks$wool, + t = warpbreaks$tension + ), + FUN = mean + ) + x <- friedman.test(wb$x, wb$w, wb$t) + + expect_snapshot( + variant = "windows", + report(x) + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-kruskal.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-kruskal.R new file mode 100644 index 000000000..4d518adff --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-kruskal.R @@ -0,0 +1,9 @@ +test_that("report.htest-kruskal report", { + x <- kruskal.test(airquality$Ozone ~ as.factor(airquality$Month)) + + set.seed(100) + expect_snapshot( + variant = "windows", + report(x, verbose = FALSE) + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-t-test.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-t-test.R new file mode 100644 index 000000000..1852f576b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-t-test.R @@ -0,0 +1,122 @@ +test_that("report.htest-t-test", { + # two samples unpaired t-tests summaries --------------------- + + set.seed(123) + r <- report(t.test(iris$Sepal.Width, iris$Sepal.Length, var.equal = TRUE)) + expect_equal(as.report_table(r, summary = TRUE)$Difference, -2.786, tolerance = 0.01) + + set.seed(123) + r <- report(t.test(iris$Sepal.Width, iris$Sepal.Length)) + expect_equal(as.report_table(r, summary = TRUE)$Difference, -2.786, tolerance = 0.01) + + set.seed(123) + r <- report(t.test(mtcars$mpg ~ mtcars$vs)) + expect_equal(as.report_table(r, summary = TRUE)$Difference, -7.9404, tolerance = 0.01) + + set.seed(123) + r <- report(t.test(iris$Sepal.Width, mu = 1)) + expect_equal(as.report_table(r, summary = TRUE)$Difference, 2.057, tolerance = 0.01) + + # one-sample t-test --------------------- + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test(iris$Sepal.Width, mu = 1))) + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test( + iris$Sepal.Width, + mu = -1, alternative = "l" + ))) + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test( + iris$Sepal.Width, + mu = 5, alternative = "g" + ))) + + # two-sample unpaired t-test --------------------- + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test(mtcars$wt ~ mtcars$am))) + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test(mtcars$wt ~ mtcars$am, alternative = "l"))) + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test(mtcars$wt ~ mtcars$am, alternative = "g"))) + + # two-sample paired t-test --------------------- + + x <<- c(1.83, 0.50, 1.62, 2.48, 1.68, 1.88, 1.55, 3.06, 1.30) + y <<- c(0.878, 0.647, 0.598, 2.05, 1.06, 1.29, 1.06, 3.14, 1.29) + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test(x, y, paired = TRUE))) + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test(x, y, paired = TRUE, alternative = "l"))) + + set.seed(123) + expect_snapshot(variant = "windows", report(t.test(x, y, paired = TRUE, alternative = "g"))) + + if (getRversion() > "4.0") { + sleep2 <<- reshape(sleep, direction = "wide", idvar = "ID", timevar = "group") + set.seed(123) + expect_snapshot( + variant = "windows", + report(t.test(sleep2$extra.1, sleep2$extra.2, paired = TRUE)) + ) + } + + # type, rules --------------------- + + x <- t.test(mtcars$mpg ~ mtcars$vs) + expect_snapshot( + variant = "windows", + report_effectsize(x) + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, type = "d") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, type = "g") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "cohen1988") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "cohen1988", type = "d") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "cohen1988", type = "g") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "sawilowsky2009") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "sawilowsky2009", type = "d") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "sawilowsky2009", type = "g") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "gignac2016") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "gignac2016", type = "d") + ) + expect_snapshot( + variant = "windows", + report_effectsize(x, rules = "gignac2016", type = "g") + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-wilcox.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-wilcox.R new file mode 100644 index 000000000..7262cdb2d --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.htest-wilcox.R @@ -0,0 +1,25 @@ +# skip for now +test_that("report.htest-wilcox", { + # paired wilcox test --------------------- + + x <<- c(1.83, 0.50, 1.62, 2.48, 1.68, 1.88, 1.55, 3.06, 1.30) + y <<- c(0.878, 0.647, 0.598, 2.05, 1.06, 1.29, 1.06, 3.14, 1.29) + expect_snapshot(variant = "windows", report(wilcox.test(x, y, paired = TRUE, data = mtcars))) + + expect_snapshot(variant = "windows", report(wilcox.test(x, y, paired = TRUE, data = mtcars, alternative = "l"))) + + expect_snapshot(variant = "windows", report(wilcox.test(x, y, paired = TRUE, data = mtcars, alternative = "g"))) + + # unpaired wilcox test --------------------- + + expect_snapshot(variant = "windows", report(wilcox.test(mtcars$am, mtcars$wt, exact = FALSE))) + + expect_snapshot(variant = "windows", report(wilcox.test(mtcars$am, mtcars$wt, alternative = "l", exact = FALSE))) + + expect_snapshot(variant = "windows", report(wilcox.test(mtcars$am, mtcars$mpg, exact = FALSE, correct = FALSE))) + + # one-sample wilcox test --------------------- + + depression <<- data.frame(first = x, second = y, change = y - x) + expect_snapshot(variant = "windows", report(wilcox.test(depression$change, mu = 1))) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.ivreg.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.ivreg.R new file mode 100644 index 000000000..6604d211b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.ivreg.R @@ -0,0 +1,14 @@ +skip_if_not_installed("ivreg") + +test_that("report-survreg", { + data("CigaretteDemand", package = "ivreg") + + # model + set.seed(123) + ivr <- + ivreg::ivreg(log(packs) ~ log(rprice) + log(rincome) | salestax + log(rincome), + data = ivreg::CigaretteDemand + ) + + expect_snapshot(variant = "windows", report(ivr)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lavaan.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lavaan.R new file mode 100644 index 000000000..312b327b9 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lavaan.R @@ -0,0 +1,21 @@ +skip_if_not_installed("lavaan") + +structure <- " ind60 =~ x1 + x2 + x3 + dem60 =~ y1 + y2 + y3 + dem60 ~ ind60 " + +set.seed(123) +model <- lavaan::sem(structure, data = lavaan::PoliticalDemocracy) + +# Specific reports +test_that("model-lavaan detailed report", { + expect_snapshot(variant = "windows", report(model)) +}) + +test_that("model-lavaan detailed table", { + expect_snapshot(variant = "windows", report_table(model)) +}) + +test_that("model-lavaan detailed performance", { + expect_snapshot(variant = "windows", report_performance(model)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lm.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lm.R new file mode 100644 index 000000000..12a64552a --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lm.R @@ -0,0 +1,41 @@ +# skip_if_not(getRversion() <= "4.2.1") +# This skip does not seem necessary?? +# Readding back because of a .1 decimal difference in snapshots + +test_that("report.lm - lm", { + skip("Skipping because of a .01 decimal difference in snapshots") + # lm ------- + + # simple effect + set.seed(123) + expect_snapshot(variant = "windows", report(lm(Sepal.Width ~ Species, data = iris))) + + # interaction effect + set.seed(123) + expect_snapshot(variant = "windows", report(lm(wt ~ as.factor(am) * as.factor(cyl), data = mtcars))) +}) + +test_that("report.lm - glm", { + # glm ------ + + set.seed(123) + expect_snapshot(variant = "windows", report(glm(vs ~ disp, data = mtcars, family = binomial(link = "probit")))) + + set.seed(123) + expect_snapshot(variant = "windows", report(glm(vs ~ mpg, data = mtcars, family = "poisson"))) +}) + +test_that("report.lm - lm intercept-only", { + data(sleep) + d <- datawizard::data_modify(sleep, group = as.integer(group) - 1L) + d_wide <<- datawizard::data_to_wide( + d, + names_from = "group", + values_from = "extra", + names_prefix = "group" + ) + + model_io <- lm(d_wide$group0 - d_wide$group1 ~ 1) + out <- suppressWarnings(report(model_io, verbose = FALSE)) + expect_snapshot(variant = "windows", out) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lmer.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lmer.R new file mode 100644 index 000000000..d3a276873 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.lmer.R @@ -0,0 +1,23 @@ +skip_if_not_installed("lme4") + +test_that("report-lmer", { + df <- lme4::sleepstudy + set.seed(123) + df$mygrp <- sample.int(5, size = 180, replace = TRUE) + df$mysubgrp <- NA + for (i in 1:5) { + filter_group <- df$mygrp == i + df$mysubgrp[filter_group] <- + sample.int(30, size = sum(filter_group), replace = TRUE) + } + + set.seed(123) + m1 <- lme4::lmer(Reaction ~ Days + (1 + Days | Subject), data = df) + + set.seed(123) + m2 <- lme4::lmer(Reaction ~ Days + (1 | mygrp / mysubgrp) + (1 | Subject), data = df) + + expect_snapshot(variant = "windows", report(m1)) + + expect_snapshot(variant = "windows", report(m2)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.numeric.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.numeric.R new file mode 100644 index 000000000..aa5b513b8 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.numeric.R @@ -0,0 +1,5 @@ +test_that("Median removes NA", { + x <- c(1, 2, NA, 4) + result <- report_table(x)$Median + expect_equal(result, median(x, na.rm = TRUE)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.sessionInfo.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.sessionInfo.R new file mode 100644 index 000000000..bde5e981f --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.sessionInfo.R @@ -0,0 +1,46 @@ +test_that("report.sessionInfo - High level", { + x <- sessionInfo() + r <- report(x) + + expect_type(r, "character") + expect_type(summary(r), "character") + expect_equal(as.report_text(r), r, ignore_attr = TRUE) + expect_identical(as.report_text(r, summary = TRUE), summary(r)) + + expect_equal(ncol(as.data.frame(r)), 3, ignore_attr = TRUE) + expect_equal(ncol(as.report_table(r)), 3, ignore_attr = TRUE) + expect_equal(ncol(summary(as.data.frame(r))), 2, ignore_attr = TRUE) + expect_equal(ncol(as.report_table(r, summary = TRUE)), 2, ignore_attr = TRUE) +}) + + +test_that("report.sessionInfo - Core", { + x <- sessionInfo() + + r <- report_table(x) + expect_equal(ncol(r), 3, ignore_attr = TRUE) + expect_equal(ncol(summary(r)), 2, ignore_attr = TRUE) + + r <- report_parameters(x) + expect_type(r, "character") + expect_length(as.character(r), 1) + expect_length(as.character(r), 1) + expect_length(as.character(summary(r)), 1) + + r <- report_text(x) + expect_type(r, "character") + expect_type(summary(r), "character") +}) + + +test_that("report.sessionInfo - Aliases", { + x <- sessionInfo() + expect_type(cite_packages(x), "character") + expect_type(cite_packages(x, prefix = ""), "character") + + expect_type(report_system(x), "character") + expect_type(summary(report_system(x)), "character") + + expect_type(report_packages(x), "character") + expect_type(summary(report_packages(x)), "character") +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.stanreg.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.stanreg.R new file mode 100644 index 000000000..e19c8e1cb --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.stanreg.R @@ -0,0 +1,35 @@ +skip_if_not_installed("rstanarm") + +set.seed(123) +model <- suppressWarnings(rstanarm::stan_glm(mpg ~ qsec + wt, data = mtcars, refresh = 0, iter = 300)) + +test_that("model-stanreg", { + r <- report(model, centrality = "mean") + expect_s3_class(summary(r), "character") + expect_s3_class(as.data.frame(r), "data.frame") + + expect_identical( + as.data.frame(r)$Parameter, + c( + "(Intercept)", "qsec", "wt", NA, "ELPD", "LOOIC", "WAIC", "R2", + "R2 (adj.)", "Sigma" + ) + ) + expect_equal( + as.data.frame(r)$Mean, + c( + 19.6150397292409, 0.937896549338215, -5.04660975597389, NA, + NA, NA, NA, NA, NA, NA + ), + tolerance = 1e-1 + ) + expect_equal( + as.data.frame(r)$pd, + c(0.998333333333333, 0.998333333333333, 1, NA, NA, NA, NA, NA, NA, NA), + tolerance = 1e-1 + ) +}) + +test_that("model-stanreg detailed", { + expect_snapshot(variant = "windows", report(model)) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.survreg.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.survreg.R new file mode 100644 index 000000000..0542443d2 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report.survreg.R @@ -0,0 +1,16 @@ +test_that("report-survreg", { + skip_if_not_installed("survival") + set.seed(123) + mod_survreg <- survival::survreg( + formula = survival::Surv(futime, fustat) ~ ecog.ps + rx, + data = survival::ovarian, + dist = "logistic" + ) + + expect_snapshot(variant = "windows", report(mod_survreg)) + + unloadNamespace("rstanarm") + unloadNamespace("multcomp") + unloadNamespace("TH.data") + unloadNamespace("survival") +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_intercept.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_intercept.R new file mode 100644 index 000000000..5baedbac1 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_intercept.R @@ -0,0 +1,52 @@ +set.seed(123) +response <- rnorm(30) + +data1 <- data.frame( + y = response, + f = factor(rep(c(1, 2, 3), 10)), + stringsAsFactors = FALSE +) + +data2 <- data.frame( + y = response, + f = factor(rep(c(1, 2, 3), 10)), + stringsAsFactors = FALSE +) + +data3 <- data.frame( + y = response, + f = factor(rep(c(1, 2, 3), 10)), + stringsAsFactors = FALSE +) + +contrasts(data1$f) <- cbind(c(1, 0, 0), c(0, 1, 0)) +data2$f <- relevel(data2$f, 3) + +# insight::get_data needs access to data in global environment +data1 <<- data1 +data2 <<- data2 +data3 <<- data3 + +# contrasts, ref. level = category 3 +m1 <- lm(y ~ f, data = data1) + +# relevel, ref. level = category 3 +m2 <- lm(y ~ f, data = data2) + +# default ref. level = category 1 +m3 <- lm(y ~ f, data = data3) + +test_that("reflevel", { + expect_identical( + as.character(report_intercept(m1)), + "The model's intercept, corresponding to f = 3, is at 0.07 (95% CI [-0.57, 0.71], t(27) = 0.23, p = 0.819)." + ) + expect_identical( + as.character(report_intercept(m2)), + "The model's intercept, corresponding to f = 3, is at 0.07 (95% CI [-0.57, 0.71], t(27) = 0.23, p = 0.819)." + ) + expect_identical( + as.character(report_intercept(m3)), + "The model's intercept, corresponding to f = 1, is at 0.17 (95% CI [-0.47, 0.81], t(27) = 0.55, p = 0.584)." + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_participants.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_participants.R new file mode 100644 index 000000000..d82312543 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_participants.R @@ -0,0 +1,175 @@ +test_that("report_participants, argument gender works", { + # Works when capitalized + data <- data.frame( + Age = c(22, 22, 54, 54, 8, 8, 42, 42), + Gender = c("N", "N", "W", "M", "M", "M", "Non-Binary", "Non-Binary"), + Condition = c("A", "A", "A", "A", "B", "B", "B", "B"), + stringsAsFactors = FALSE + ) + out <- report_participants(data) + expect_identical( + out, + paste( + "8 participants (Mean age = 31.5, SD = 19.0, range: [8, 54];", + "Gender: 12.5% women, 37.5% men, 50.00% non-binary)" + ) + ) + out <- report_participants(data, by = "Condition") + expect_identical( + out, + paste( + "For the 'Condition - A' group: 4 participants (Mean age = 38.0,", + "SD = 18.5, range: [22, 54]; Gender: 25.0% women, 25.0% men,", + "50.00% non-binary) and for the 'Condition - B' group: 4 participants", + "(Mean age = 25.0, SD = 19.6, range: [8, 42]; Gender: 0.0% women,", + "50.0% men, 50.00% non-binary)" + ) + ) + # works when lowercase + out <- report_participants(data, by = "Condition") + expect_identical( + out, + paste( + "For the 'Condition - A' group: 4 participants (Mean age = 38.0,", + "SD = 18.5, range: [22, 54]; Gender: 25.0% women, 25.0% men,", + "50.00% non-binary) and for the 'Condition - B' group: 4 participants", + "(Mean age = 25.0, SD = 19.6, range: [8, 42]; Gender: 0.0% women,", + "50.0% men, 50.00% non-binary)" + ) + ) +}) + +test_that("report_participants", { + data <- data.frame( + Age = c(22, 22, 54, 54, 8, 8), + Sex = c("F", "F", "M", "M", "I", "I"), + Gender = c("W", "W", "M", "M", "N", "N"), + Participant = c("S1", "S1", "s2", "s2", "s3", "s3"), + stringsAsFactors = FALSE + ) + + expect_snapshot( + variant = "windows", + report_participants(data, + age = "Age", sex = "Sex", + participant = "Participant" + ) + ) + expect_snapshot( + variant = "windows", + report_participants(data, participant = "Participant", spell_n = TRUE) + ) + + expect_equal( + nchar(report_participants(data, + participant = "Participant", + spell_n = TRUE + )), + 160, + ignore_attr = TRUE + ) + + data2 <- data.frame( + Age = c(22, 22, 54, 54, 8, 8), + Sex = c("F", "F", "M", "O", "F", "O"), + Gender = c("W", "W", "M", "O", "W", "O"), + stringsAsFactors = FALSE + ) + + expect_snapshot( + variant = "windows", + report_participants(data2) + ) + + data3 <- data.frame( + Age = c(22, 82, NA, NA, NA, NA), + Sex = c("F", "F", "", "", "NA", NA), + Gender = c("W", "W", "", "", "NA", NA), + stringsAsFactors = FALSE + ) + + expect_snapshot( + variant = "windows", + report_participants(data3) + ) + + # Add tests for education, country, race + data4 <- data.frame( + Education = c(0, 8, -3, -5, 3, 5, NA), + Education2 = c( + "Bachelor", "PhD", "Highschool", "Highschool", + "Bachelor", "Bachelor", NA + ), + Country = c("USA", "Canada", "Canada", "India", "Germany", "USA", NA), + Race = c("Black", NA, "White", "Asian", "Black", "Black", "White"), + stringsAsFactors = FALSE + ) + + expect_snapshot( + variant = "windows", + report_participants(data4) + ) + expect_snapshot( + variant = "windows", + report_participants(data4, education = "Education2") + ) + expect_snapshot( + variant = "windows", + report_participants(data4, threshold = 15) + ) +}) + +test_that("report_participants test NAs no warning", { + data <- data.frame( + Age = c(22, 23, 54, 21, 8, 42), + Sex = (c("Intersex", "F", "M", "M", "NA", NA)), + Gender = (c("N", "W", "W", "M", "NA", NA)), + Country = (c("USA", NA, "Canada", "Canada", "India", "Germany")), + Education = factor(c(0, 8, -3, -5, 3, 5)), + Race = c(LETTERS[1:5], NA) + ) + expect_snapshot( + variant = "windows", + report_participants(data) + ) + + data <- data.frame( + Age = factor(c(22, 23, 54, 21, 8, 42)), + Sex = factor(c("Intersex", "F", "M", "M", "NA", NA)), + Gender = factor(c("N", "W", "W", "M", "NA", NA)), + Country = factor(c("USA", NA, "Canada", "Canada", "India", "Germany")), + Education = factor(c(0, 8, -3, -5, 3, 5)), + Race = factor(c(LETTERS[1:5], NA)) + ) + expect_snapshot( + variant = "windows", + report_participants(data, age = "Age", sex = "Sex") + ) +}) + +test_that("report_participants age as character", { + data <- data.frame( + Age = as.character(c(22, 22, 28, 11, 42, 52), stringsAsFactors = FALSE), + stringsAsFactors = FALSE + ) + expect_snapshot( + variant = "windows", + report_participants(data) + ) +}) + +test_that("report_participants different gender spellings", { + data <- data.frame( + Gender = c( + "Man", "M", "Male", "Men", "Boy", "Guy", + "Dude", "Lad", "Sir", + "Woman", "W", "Female", "Women", "Girl", + "Lady", "Miss", "Madam", "Dame", "Lass", + NA + ), stringsAsFactors = FALSE + ) + expect_snapshot( + variant = "windows", + report_participants(data) + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_performance.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_performance.R new file mode 100644 index 000000000..bbc7616af --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_performance.R @@ -0,0 +1,129 @@ +test_that("report_performance Linear)", { + set.seed(123) + # Linear + x1 <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) + expect_identical( + as.character(report_performance(x1)), + paste( + "The model explains a statistically significant and substantial proportion of", + "variance (R2 = 0.84, F(5, 144) = 151.71, p < .001, adj. R2 = 0.83)" + ) + ) + expect_identical( + as.character(summary(report_performance(x1))), + "The model's explanatory power is substantial (R2 = 0.84, adj. R2 = 0.83)" + ) +}) + +test_that("report_performance GLM)", { + set.seed(123) + # GLM + x2 <- glm(vs ~ disp, data = mtcars, family = "binomial") + expect_identical( + as.character(report_performance(x2)), + "The model's explanatory power is substantial (Tjur's R2 = 0.53)" + ) + expect_identical( + as.character(summary(report_performance(x2))), + "The model's explanatory power is substantial (Tjur's R2 = 0.53)" + ) +}) + +test_that("report_performance Mixed models)", { + set.seed(123) + # Mixed models + skip_if_not_installed("lme4") + + x3 <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris) + expect_identical( + as.character(report_performance(x3)), + paste( + "The model's total explanatory power is substantial (conditional R2 = 0.97) and the", + "part related to the fixed effects alone (marginal R2) is of 0.66" + ) + ) + expect_identical( + as.character(summary(report_performance(x3))), + paste( + "The model's total explanatory power is substantial (conditional R2 = 0.97) and the", + "part related to the fixed effects alone (marginal R2) is of 0.66" + ) + ) + + x4 <- lme4::glmer(vs ~ mpg + (1 | cyl), data = mtcars, family = "binomial") + expect_identical( + as.character(report_performance(x4)), + paste( + "The model's total explanatory power is substantial (conditional R2 = 0.59) and the", + "part related to the fixed effects alone (marginal R2) is of 0.13" + ) + ) + expect_identical( + as.character(summary(report_performance(x4))), + paste( + "The model's total explanatory power is substantial (conditional R2 = 0.59) and the", + "part related to the fixed effects alone (marginal R2) is of 0.13" + ) + ) +}) + +test_that("report_performance Bayesian)", { + set.seed(123) + # Bayesian + skip_if_not_installed("rstanarm") + + x5 <- rstanarm::stan_glm( + Sepal.Length ~ Species, + data = iris, refresh = 0, iter = 1000, seed = 333 + ) + expect_snapshot( + variant = "windows", + report_performance(x5) + ) + expect_snapshot( + variant = "windows", + summary(report_performance(x5)) + ) + + x6 <- rstanarm::stan_glm(vs ~ disp, + data = mtcars, family = "binomial", + refresh = 0, iter = 1000, seed = 333 + ) + expect_snapshot( + variant = "windows", + report_performance(x6) + ) + expect_snapshot( + variant = "windows", + summary(report_performance(x6)) + ) +}) + +test_that("report_performance Bayesian 2)", { + set.seed(123) + # Bayesian + skip_if_not_installed("rstanarm") + # Using namespace instead of loading the package throws an error: + # could not find function "stan_glmer" + # But we don't call "stan_glmer" directly, I suppose it must be called internally + # So we must define it manually: + + is_stan_glmer_avail <- !inherits(try(stan_glmer, silent = TRUE), "try-error") + if (!is_stan_glmer_avail) { + stan_glmer <<- rstanarm::stan_glmer + on.exit(remove(stan_glmer, envir = .GlobalEnv)) + } + + x7 <- rstanarm::stan_lmer(Sepal.Length ~ Petal.Length + (1 | Species), + data = iris, refresh = 0, iter = 1000, seed = 333 + ) + expect_snapshot( + variant = "windows", + summary(report_performance(x7)) + ) + skip("Skipping because of a .01 decimal difference in snapshots") + expect_snapshot( + variant = "windows", + report_performance(x7) + ) +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_s.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_s.R new file mode 100644 index 000000000..032ed42cd --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_s.R @@ -0,0 +1,9 @@ +test_that("report_s", { + expect_snapshot(report_s(s = 4.2), variant = "windows") + expect_snapshot(report_s(p = 0.06), variant = "windows") +}) + +test_that("report_s, arguments", { + expect_error(report_s()) + expect_error(report_s(s = 1:2), "single value") +}) diff --git a/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_sample.R b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_sample.R new file mode 100644 index 000000000..c3d99e353 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/tests/testthat/test-report_sample.R @@ -0,0 +1,292 @@ +test_that("report_sample weights, coorect weighted N", { + d <- data.frame( + x = c("a", "a", "a", "a", "b", "b", "b", "b", "c", "c", "c", "c"), + g = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2), + w = c(0.5, 0.5, 1, 1, 1.5, 1.5, 2, 2, 1, 1, 1.5, 1.5), + stringsAsFactors = FALSE + ) + + out1 <- report_sample(d, select = "x", by = "g") + out2 <- report_sample(d, select = "x", by = "g", weights = "w") + expect_identical( + capture.output(print(out1)), + c( + "# Descriptive Statistics", + "", + "Variable | 1 (n=6) | 2 (n=6) | Total (n=12)", + "-------------------------------------------", + "x [a], % | 33.3 | 33.3 | 33.3", + "x [b], % | 33.3 | 33.3 | 33.3", + "x [c], % | 33.3 | 33.3 | 33.3" + ) + ) + expect_identical( + capture.output(print(out2)), + c( + "# Descriptive Statistics (weighted)", + "", + "Variable | 1 (n=6) | 2 (n=9) | Total (n=15)", + "-------------------------------------------", + "x [a], % | 16.7 | 22.2 | 20.0", + "x [b], % | 50.0 | 44.4 | 46.7", + "x [c], % | 33.3 | 33.3 | 33.3" + ) + ) + + d <- data.frame( + x = c("a", "a", "a", "a", "b", "b", "b", "b", "c", "c", "c", "c"), + g1 = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2), + g2 = c(3, 2, 1, 3, 2, 1, 3, 2, 1, 3, 2, 1), + w = c(0.5, 0.5, 1, 1, 1.5, 1.5, 2, 2, 1, 1, 1.5, 1.5), + stringsAsFactors = FALSE + ) + expect_error( + report_sample(d, select = "x", by = c("g1", "g2"), weights = "w"), + regex = "Cannot apply" + ) +}) + +test_that("report_sample check input", { + skip_if(packageVersion("parameters") < "0.20.3") + data(iris) + expect_error(report_sample(lm(Sepal.Length ~ Species, data = iris))) + expect_silent(report_sample(iris$Species)) + expect_error(report_sample(iris, by = "Spedies"), regex = "The following column") + expect_error(report_sample(iris, select = "Spedies"), regex = "The following column") +}) + +test_that("report_sample default", { + expect_snapshot( + variant = "windows", + report_sample(airquality) + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars) + ) + expect_snapshot( + variant = "windows", + report_sample(iris) + ) +}) + +test_that("report_sample n = TRUE", { + expect_snapshot( + variant = "windows", + report_sample(airquality, n = TRUE) + ) + expect_equal( + nchar(report_sample(airquality, n = TRUE)), + c(Variable = 131, Summary = 128), + ignore_attr = TRUE + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars, n = TRUE) + ) + expect_snapshot( + variant = "windows", + report_sample(iris, n = TRUE) + ) +}) + +test_that("report_sample CI", { + expect_snapshot( + variant = "windows", + report_sample(iris, select = c("Sepal.Length", "Species"), ci = 0.95, ci_method = "wald") + ) + + expect_snapshot( + variant = "windows", + report_sample(iris, select = c("Sepal.Length", "Species"), ci = 0.95, ci_method = "wilson") + ) + + set.seed(123) + d <- data.frame( + x = as.factor(rbinom(1000, 1, prob = 0.03)), + w = abs(rnorm(1000, 1, 0.1)) + ) + expect_snapshot( + variant = "windows", + report_sample(d, ci = 0.95, select = "x", ci_method = "wald") + ) + expect_snapshot( + variant = "windows", + report_sample(d, ci = 0.95, select = "x", ci_method = "wilson") + ) + expect_snapshot( + variant = "windows", + report_sample(d, ci = 0.95, ci_correct = TRUE, select = "x", ci_method = "wald") + ) + expect_snapshot( + variant = "windows", + report_sample(d, ci = 0.95, ci_correct = TRUE, select = "x", ci_method = "wilson") + ) + expect_warning(report_sample(d, ci = 0.95, weights = "w", ci_method = "wald"), regex = "accurate") +}) + +test_that("report_sample by", { + expect_snapshot( + variant = "windows", + report_sample(airquality, by = "Month") + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars, by = "cyl") + ) + expect_snapshot( + variant = "windows", + report_sample(iris, by = "Species") + ) +}) + +test_that("report_sample centrality", { + expect_snapshot( + variant = "windows", + report_sample(airquality, centrality = "mean") + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars, centrality = "mean") + ) + expect_snapshot( + variant = "windows", + report_sample(iris, centrality = "mean") + ) + expect_snapshot( + variant = "windows", + report_sample(airquality, centrality = "median") + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars, centrality = "median") + ) + expect_snapshot( + variant = "windows", + report_sample(iris, centrality = "median") + ) +}) + +test_that("report_sample select", { + expect_snapshot( + variant = "windows", + report_sample(airquality, select = "Temp") + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars, select = c("mpg", "disp")) + ) + expect_snapshot( + variant = "windows", + report_sample(iris, select = "Petal.Width") + ) +}) + +test_that("report_sample exclude", { + expect_snapshot( + variant = "windows", + report_sample(airquality, exclude = "Temp") + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars, exclude = c("mpg", "disp")) + ) + expect_snapshot( + variant = "windows", + report_sample(iris, exclude = "Petal.Width") + ) +}) + +test_that("report_sample total", { + expect_snapshot( + variant = "windows", + report_sample(airquality, total = TRUE) + ) + expect_snapshot( + variant = "windows", + report_sample(airquality, total = FALSE) + ) + expect_snapshot( + variant = "windows", + report_sample(airquality, by = "Month", total = TRUE) + ) + expect_snapshot( + variant = "windows", + report_sample(airquality, by = "Month", total = FALSE) + ) + expect_snapshot( + variant = "windows", + report_sample(airquality, by = "Month", total = FALSE, n = TRUE) + ) + expect_snapshot( + variant = "windows", + report_sample(airquality, by = "Month", total = TRUE, n = TRUE) + ) +}) + +test_that("report_sample digits", { + expect_snapshot( + variant = "windows", + report_sample(airquality, digits = 5) + ) + expect_snapshot( + variant = "windows", + report_sample(mtcars, digits = 5) + ) + expect_snapshot( + variant = "windows", + report_sample(iris, digits = 5) + ) +}) + +test_that("report_sample weights", { + expect_snapshot(report_sample(airquality, weights = "Temp"), variant = "windows") + expect_snapshot(report_sample(mtcars, weights = "carb"), variant = "windows") + expect_snapshot(report_sample(iris, weights = "Petal.Width"), variant = "windows") +}) + +test_that("report_sample grouped data frames", { + skip_if_not_installed("datawizard") + data(mtcars) + mtcars_grouped <- datawizard::data_group(mtcars, "gear") + out1 <- report_sample(mtcars_grouped, select = c("hp", "mpg")) + out2 <- report_sample(mtcars, by = "gear", select = c("hp", "mpg")) + expect_identical(out1, out2) +}) + +test_that("report_sample, with more than one grouping variable", { + data(iris) + set.seed(123) + iris$grp <- sample(letters[1:3], nrow(iris), TRUE) + out <- report_sample( + iris, + by = c("Species", "grp"), + select = c("Sepal.Length", "Sepal.Width") + ) + # verified against + expected <- aggregate(iris["Sepal.Length"], iris[c("Species", "grp")], mean) + expect_snapshot(variant = "windows", out) +}) + +test_that("report_sample, numeric select", { + data(iris) + out1 <- report_sample( + iris, + select = c("Sepal.Length", "Sepal.Width") + ) + out2 <- report_sample( + iris, + select = 1:2 + ) + expect_identical(out1, out2) +}) + +test_that("report_sample, print vertical", { + skip_if_not_installed("datawizard") + data(iris) + set.seed(123) + iris$grp <- sample(letters[1:3], nrow(iris), TRUE) + iris_grp <- datawizard::data_group(iris, c("Species", "grp")) + out <- report_sample(iris_grp, select = 1:3) + expect_snapshot(variant = "windows", print(out, layout = "vertical")) +}) diff --git a/report.Rcheck/00_pkg_src/report/vignettes/bibliography.bib b/report.Rcheck/00_pkg_src/report/vignettes/bibliography.bib new file mode 100644 index 000000000..46634bb49 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/vignettes/bibliography.bib @@ -0,0 +1,185 @@ +@article{vehtari2019rank, + title={Rank-normalization, folding, and localization: An improved $$\backslash$widehat $\{$R$\}$ $ for assessing convergence of MCMC}, + author={Vehtari, Aki and Gelman, Andrew and Simpson, Daniel and Carpenter, Bob and B{\"u}rkner, Paul-Christian}, + journal={arXiv preprint arXiv:1903.08008}, + year={2019} +} + +@article{funder2019evaluating, + title={Evaluating effect size in psychological research: sense and nonsense}, + author={Funder, David C and Ozer, Daniel J}, + journal={Advances in Methods and Practices in Psychological Science}, + pages={2515245919847202}, + year={2019}, + publisher={SAGE Publications Sage CA: Los Angeles, CA} +} + + +@article{burkner2017brms, + title={brms: An R package for Bayesian multilevel models using Stan}, + author={B{\"u}rkner, Paul-Christian and others}, + journal={Journal of Statistical Software}, + volume={80}, + number={1}, + pages={1--28}, + year={2017}, + publisher={Foundation for Open Access Statistics} +} + + + +@article{gignac2016effect, + title={Effect size guidelines for individual differences researchers}, + author={Gignac, Gilles E and Szodorai, Eva T}, + journal={Personality and individual differences}, + volume={102}, + pages={74--78}, + year={2016}, + publisher={Elsevier} +} + + + + + +@article{jarosz2014odds, + title={What are the odds? A practical guide to computing and reporting Bayes factors}, + author={Jarosz, Andrew F and Wiley, Jennifer}, + journal={The Journal of Problem Solving}, + volume={7}, + number={1}, + pages={2}, + year={2014}, + publisher={Purdue University Press} +} + + +@book{field2013discovering, + title={Discovering statistics using IBM SPSS statistics}, + author={Field, Andy}, + year={2013}, + publisher={sage} +} + + + + +@article{hair2011pls, + title={PLS-SEM: Indeed a silver bullet}, + author={Hair, Joe F and Ringle, Christian M and Sarstedt, Marko}, + journal={Journal of Marketing theory and Practice}, + volume={19}, + number={2}, + pages={139--152}, + year={2011}, + publisher={Taylor \& Francis} +} + + +@article{chen2010big, + title={How big is a big odds ratio? Interpreting the magnitudes of odds ratios in epidemiological studies}, + author={Chen, Henian and Cohen, Patricia and Chen, Sophie}, + journal={Communications in Statistics—Simulation and Computation{\textregistered}}, + volume={39}, + number={4}, + pages={860--864}, + year={2010}, + publisher={Taylor \& Francis} +} + + + + +@article{sawilowsky2009new, + title={New effect size rules of thumb}, + author={Sawilowsky, Shlomo S}, + year={2009} +} + + + +@article{sanchez2003effect, + title={Effect-size indices for dichotomized outcomes in meta-analysis.}, + author={S{\'a}nchez-Meca, Julio and Mar{\'\i}n-Mart{\'\i}nez, Fulgencio and Chac{\'o}n-Moscoso, Salvador}, + journal={Psychological methods}, + volume={8}, + number={4}, + pages={448}, + year={2003}, + publisher={American Psychological Association} +} + + + +@article{chin1998partial, + title={The partial least squares approach to structural equation modeling}, + author={Chin, Wynne W and others}, + journal={Modern methods for business research}, + volume={295}, + number={2}, + pages={295--336}, + year={1998}, + publisher={London} +} + + + + + +@book{evans1996straightforward, + title={Straightforward statistics for the behavioral sciences.}, + author={Evans, James D}, + year={1996}, + publisher={Thomson Brooks/Cole Publishing Co} +} + + +@article{raftery1995bayesian, + title={Bayesian model selection in social research}, + author={Raftery, Adrian E}, + journal={Sociological methodology}, + volume={25}, + pages={111--164}, + year={1995}, + publisher={Blackwell Publishers} +} + + + +@article{gelman1992inference, + title={Inference from iterative simulation using multiple sequences}, + author={Gelman, Andrew and Rubin, Donald B and others}, + journal={Statistical science}, + volume={7}, + number={4}, + pages={457--472}, + year={1992}, + publisher={Institute of Mathematical Statistics} +} + +@book{falk1992primer, + title={A primer for soft modeling.}, + author={Falk, R Frank and Miller, Nancy B}, + year={1992}, + publisher={University of Akron Press} +} + + + + + +@article{cohen1988statistical, + title={Statistical power analysis for the social sciences}, + author={Cohen, Jacob}, + year={1988}, + publisher={Hillsdale, NJ: Erlbaum} +} + + + +@misc{jeffreys1961theory, + title={Theory of probability, Clarendon}, + author={Jeffreys, Harold}, + year={1961}, + publisher={Oxford} +} diff --git a/report.Rcheck/00_pkg_src/report/vignettes/cite_packages.Rmd b/report.Rcheck/00_pkg_src/report/vignettes/cite_packages.Rmd new file mode 100644 index 000000000..10336854b --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/vignettes/cite_packages.Rmd @@ -0,0 +1,123 @@ +--- +title: "Report and Cite Packages" +output: + rmarkdown::html_vignette: + toc: true + fig_width: 10.08 + fig_height: 6 +tags: [r, report] +vignette: > + %\VignetteIndexEntry{Report and Cite Packages} + \usepackage[utf8]{inputenc} + %\VignetteEngine{knitr::rmarkdown} +editor_options: + chunk_output_type: console +--- + +```{r, echo = FALSE} +knitr::opts_chunk$set( + collapse = TRUE, + message = FALSE, + warning = FALSE, + comment = "#" +) + +options( + knitr.kable.NA = "", + width = 60 +) + +if (!requireNamespace("dplyr", quietly = TRUE)) { + knitr::opts_chunk$set(eval = FALSE) +} +``` + +**Citing the packages, modules and software** you used for your analysis is +important to acknowledge the time and effort spent by people who create theses +tools (sometimes in their free-time, or at the expense of their own research), +but also for **reproducibility**. Indeed, statistical routines are often +implemented in different ways by different packages, which can lead to possible +discrepancies in the results. Explicitly mentioning that *"I did this using this function from that package version 1.2.3"* is a way of **protecting yourself** by being transparent about what you have found doing what you have +done. + +But, understandably, you must have a lot of questions- + +> **That's great, but how to *actually* cite them?** + +> **I used about 100 packages, should I cite them *all*?** + +> **How should I report the system (the OS, the R version, etc.)?** + +We attempt to answer these questions below :) + +## What should I cite? + +Ideally, you should indeed cite all the packages that you used. However, it's +often not possible to cite them all in the manuscript body. Therefore, we would +recommend the following guidelines: + +### 1. Cite the main/important packages in the manuscript + +This should be done for the packages that were central to your specific study +(*i.e.,* that got you the results that you reported) rather than data +manipulation tools (even though these are as much, if not *more*, important). +For example: + +> Statistical analysis were carried out using R 4.1.0 (R Core Team, 2021), the +*rstanarm* (*v2.13.1*; Gabry \& Goodrich, 2016) and the *report* (*v0.2.0*; +Makowski, Patil, \& Lüdecke, 2019) packages. The full reproducible code is available in **Supplementary Materials**. + +### 2. Present everything in Supplementary Materials + +Then, in *Supplementary Materials*, you can show all the packages and functions +you used. To do it quickly, explicitly and in a reproducible fashion, we +recommend writing the *Supplementary Materials* with [**R Markdown**](https://rmarkdown.rstudio.com/), which can generate *docs* and *pdf* +files that you can submit along with your manuscript. Moreover, if you're using +R, you can include (usually at the end) every used package's citation using the +`cite_packages()` function from the +[**report**](https://github.com/easystats/report) package. For example: + +```{r, results='asis'} +library(report) + +cite_packages() +``` + +## Where + +Finding the right citation information is sometimes complicated. In `R`, this process is made quite easy, you simply run `citation("packagename")`. For instance, `citation("bayestestR")`: + + To cite bayestestR in publications use: + + Makowski, D., Ben-Shachar, M., \& Lüdecke, D. (2019). bayestestR: + Describing Effects and their Uncertainty, Existence and Significance + within the Bayesian Framework. Journal of Open Source Software, + 4(40), 1541. doi:10.21105/joss.01541 + + A BibTeX entry for LaTeX users is + + @Article{, + title = {bayestestR: Describing Effects and their Uncertainty, Existence and Significance within the Bayesian Framework.}, + author = {Dominique Makowski and Mattan S. Ben-Shachar and Daniel Lüdecke}, + journal = {Journal of Open Source Software}, + doi = {10.21105/joss.01541}, + year = {2019}, + number = {40}, + volume = {4}, + pages = {1541}, + url = {https://joss.theoj.org/papers/10.21105/joss.01541}, + } + +For other languages, such as `Python` or `Julia`, it might be a little trickier, +but a quick search on Google (or github) should provide you with all the +necessary information (version, authors and date). + +**Keep in mind that it's better to have a slightly incomplete citation than no citation at all.** + +## cite_easystats() + +If you want to cite the **easystats** ecosystem, you can use the [`cite_easystats()`](https://easystats.github.io/report/reference/cite_easystats.html) function: + +```{r results='asis'} +cite_easystats() +``` diff --git a/report.Rcheck/00_pkg_src/report/vignettes/new_models.Rmd b/report.Rcheck/00_pkg_src/report/vignettes/new_models.Rmd new file mode 100644 index 000000000..2869cffa5 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/vignettes/new_models.Rmd @@ -0,0 +1,32 @@ +--- +title: "Supporting New Models" +output: + rmarkdown::html_vignette: + toc: true + fig_width: 10.08 + fig_height: 6 +tags: [r, report, support new models] +vignette: > + %\VignetteIndexEntry{Supporting New Models} + \usepackage[utf8]{inputenc} + %\VignetteEngine{knitr::rmarkdown} +editor_options: + chunk_output_type: console +--- + +```{r, echo=FALSE} +knitr::opts_chunk$set( + collapse = TRUE +) +``` + +## 1. Open an Issue on GitHub + +If there is a model that you would like to report but is not currently supported +in `report`, you can suggest it to us. You can do so by opening an issue on +[https://github.com/easystats/report/issues](https://github.com/easystats/report/issues), +and saying what would you like to see, and how you can eventually help out (e.g., you can help us test the new functionality). + +## 2. Use template file + +Copy and paste the [**template file**](https://github.com/easystats/report/blob/master/R/report.default.R), and replace the function with the one you would like to see supported. diff --git a/report.Rcheck/00_pkg_src/report/vignettes/report.Rmd b/report.Rcheck/00_pkg_src/report/vignettes/report.Rmd new file mode 100644 index 000000000..429a76730 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/vignettes/report.Rmd @@ -0,0 +1,142 @@ +--- +title: "Automated Reporting: Getting Started" +output: + rmarkdown::html_vignette: + toc: true + fig_width: 10.08 + fig_height: 6 +tags: [r, report] +vignette: > + %\VignetteIndexEntry{Automated Reporting: Getting Started} + \usepackage[utf8]{inputenc} + %\VignetteEngine{knitr::rmarkdown} +editor_options: + chunk_output_type: console +--- + +```{r, echo=FALSE} +knitr::opts_chunk$set( + collapse = TRUE, + warning = FALSE, + message = FALSE, + out.width = "100%", + comment = "#" +) + +options( + knitr.kable.NA = "", + width = 60 +) + +pkgs <- c("dplyr", "lme4") +successfully_loaded <- vapply(pkgs, requireNamespace, FUN.VALUE = logical(1L), quietly = TRUE) +can_evaluate <- all(successfully_loaded) + +if (can_evaluate) { + knitr::opts_chunk$set(eval = TRUE) + vapply(pkgs, require, FUN.VALUE = logical(1L), quietly = TRUE, character.only = TRUE) +} else { + knitr::opts_chunk$set(eval = FALSE) +} + +library(report) +``` + +# Installation + +First, install R and R studio. Then, copy and paste the following lines in the +console: + +```{r eval=FALSE} +install.packages("remotes") +remotes::install_github("easystats/report") # You only need to do that once +``` + +```{r eval=FALSE} +library("report") # Load the package every time you start R +``` + +Great! The `report` package is now installed and loaded in your session. + +# Supported Objects + +The `report` package works in a two step fashion: +- First, you create a `report` object with the `report()` function. +- Second, this report object can be displayed either textually (the default +output) or as a table, using `as.data.frame()`. Moreover, you can also access a +more compact version of the report using `summary()` on the report object. + +## Dataframes + +If an entire dataframe is supplied, `report` will provide descriptive statistics +for all columns: + +```{r} +report(iris) +``` + +## Grouped Dataframes + +The dataframe can also be a *grouped* dataframe (from `{dplyr}` package), in which case +`report` would return a separate report for each level of the grouping variable. +Additionally, instead of textual summary, `report` also allows one to return a +tabular summary using the `report_table()` function: + +```{r} +iris %>% + group_by(Species) %>% + report_table() +``` + +## Correlations, t-test, and Wilcox test + +`report` can also be used to provide automated summaries for statistical model +objects from correlation, *t*-tests, Wilcoxon tests, etc. + +```{r} +report(t.test(formula = mtcars$wt ~ mtcars$am)) +``` + +```{r, eval=FALSE} +report(cor.test(mtcars$mpg, mtcars$wt)) +``` + +## Regression models + +### Linear regression (`lm`) + +We will start out simple: a simple linear regression + +```{r} +model <- lm(wt ~ am + mpg, data = mtcars) + +report(model) +``` + +### anova (`aov`) + +And its close cousin ANOVA is also covered by `report`: + +```{r} +model <- aov(wt ~ am + mpg, data = mtcars) + +report(model) +``` + +### General Linear Models (GLMs) (`glm`) + +```{r} +model <- glm(vs ~ mpg + cyl, data = mtcars, family = "binomial") + +report(model) +``` + +### Linear Mixed-Effects Models (`merMod`) + +```{r} +library(lme4) + +model <- lmer(Reaction ~ Days + (Days | Subject), data = sleepstudy) + +report(model) +``` diff --git a/report.Rcheck/00_pkg_src/report/vignettes/report_table.Rmd b/report.Rcheck/00_pkg_src/report/vignettes/report_table.Rmd new file mode 100644 index 000000000..f3b8d52b7 --- /dev/null +++ b/report.Rcheck/00_pkg_src/report/vignettes/report_table.Rmd @@ -0,0 +1,127 @@ +--- +title: "Publication-ready Tables" +output: + rmarkdown::html_vignette: + toc: true + fig_width: 10.08 + fig_height: 6 +tags: [r, report] +vignette: > + %\VignetteIndexEntry{Publication-ready Tables} + \usepackage[utf8]{inputenc} + %\VignetteEngine{knitr::rmarkdown} +editor_options: + chunk_output_type: console +--- + +```{r, echo = FALSE} +knitr::opts_chunk$set( + collapse = TRUE, + message = FALSE, + warning = FALSE, + comment = "#" +) + +options( + knitr.kable.NA = "", + width = 60 +) + +if (!requireNamespace("dplyr", quietly = TRUE)) { + knitr::opts_chunk$set(eval = FALSE) +} +``` + + +First, load the `{report}` package: + +```{r} +library(report) +``` + +## Getting started with correlations + +Let's start by demonstrating some features with simple tests. The function `report_table()` can be used to create a table for many R objects. + +```{r} +results <- cor.test(mtcars$mpg, mtcars$wt) + +report_table(results) +``` + +We can also obtain a shorter version by running `summary()` on the output (that we are going to store in a variable called `t` - like table) + +```{r} +t <- summary(report_table(results)) +t +``` + +In the example above, running just `t` ran `print(t)` under the hood, which prints the table inside the console. However, one can nicely display that table in markdown documents using `display()`. + +```{r} +display(t) +``` + +We can further customize this table, by adding significance stars, + + +```{r, results='asis'} +display(t, + stars = TRUE, + title = "Table 1", + footer = "Correlation in the mtcars (n = 32) dataset.\n*** p < .001" +) +``` + +## *t*-tests, ... + +It works similarly for *t*-tests. + +```{r} +results <- t.test(mtcars$mpg ~ mtcars$am) + +t <- summary(report_table(results)) +t +``` + +Note that, by default, `report_table()` prettifies the printing: that means that the column names and its content is, underneath, not necessarily what is printed, which can be a bit confusing. For instance, while the confidence interval `CI` appears as one column, it this actually made of three columns! One can access this *raw* table as a dataframe: + +```{r} +as.data.frame(t) +``` + +In fact, the function used to *prettify* the output is called `insight::format_table()` and is accessible to you too, so that you can prettify the output while keeping it as a data frame. + +```{r} +insight::format_table(as.data.frame(t), stars = TRUE) +``` + +Also, you can join the results of multiple tables: + +```{r} +results1 <- t.test(mtcars$mpg ~ mtcars$am) +results2 <- t.test(mtcars$wt ~ mtcars$am) +results3 <- t.test(mtcars$qsec ~ mtcars$am) + +results <- c( + report_table(results1), + report_table(results2), + report_table(results3) +) +display(results) +``` + + +## ANOVAs + + + +## Linear Models + +```{r} +model <- lm(Petal.Length ~ Species * Petal.Width, data = iris) + +report_table(model) +``` + + diff --git a/report.Rcheck/00check.log b/report.Rcheck/00check.log new file mode 100644 index 000000000..98d4a96eb --- /dev/null +++ b/report.Rcheck/00check.log @@ -0,0 +1,64 @@ +* using log directory ‘/home/runner/work/report/report/report.Rcheck’ +* using R version 4.3.3 (2024-02-29) +* using platform: x86_64-pc-linux-gnu (64-bit) +* R was compiled by + gcc (Ubuntu 13.2.0-23ubuntu3) 13.2.0 + GNU Fortran (Ubuntu 13.2.0-23ubuntu3) 13.2.0 +* running under: Ubuntu 24.04.3 LTS +* using session charset: UTF-8 +* using options ‘--no-manual --no-vignettes’ +* checking for file ‘report/DESCRIPTION’ ... OK +* checking extension type ... Package +* this is package ‘report’ version ‘0.6.1.3’ +* package encoding: UTF-8 +* checking package namespace information ... OK +* checking package dependencies ... NOTE +Packages suggested but not available for checking: 'ivreg', 'modelbased' +* checking if this is a source package ... OK +* checking if there is a namespace ... OK +* checking for executable files ... OK +* checking for hidden files and directories ... OK +* checking for portable file names ... OK +* checking for sufficient/correct file permissions ... OK +* checking whether package ‘report’ can be installed ... OK +* checking installed package size ... OK +* checking package directory ... OK +* checking ‘build’ directory ... OK +* checking DESCRIPTION meta-information ... OK +* checking top-level files ... OK +* checking for left-over files ... OK +* checking index information ... OK +* checking package subdirectories ... OK +* checking R files for non-ASCII characters ... OK +* checking R files for syntax errors ... OK +* checking whether the package can be loaded ... OK +* checking whether the package can be loaded with stated dependencies ... OK +* checking whether the package can be unloaded cleanly ... OK +* checking whether the namespace can be loaded with stated dependencies ... OK +* checking whether the namespace can be unloaded cleanly ... OK +* checking loading without being on the library search path ... OK +* checking dependencies in R code ... OK +* checking S3 generic/method consistency ... OK +* checking replacement functions ... OK +* checking foreign function calls ... OK +* checking R code for possible problems ... OK +* checking Rd files ... OK +* checking Rd metadata ... OK +* checking Rd cross-references ... OK +* checking for missing documentation entries ... OK +* checking for code/documentation mismatches ... OK +* checking Rd \usage sections ... OK +* checking Rd contents ... OK +* checking for unstated dependencies in examples ... OK +* checking installed files from ‘inst/doc’ ... OK +* checking files in ‘vignettes’ ... OK +* checking examples ... OK +* checking for unstated dependencies in ‘tests’ ... OK +* checking tests ... OK + Running ‘testthat.R’ +* checking for unstated dependencies in vignettes ... OK +* checking package vignettes in ‘inst/doc’ ... OK +* checking running R code from vignettes ... SKIPPED +* checking re-building of vignette outputs ... SKIPPED +* DONE +Status: 1 NOTE diff --git a/report.Rcheck/00install.out b/report.Rcheck/00install.out new file mode 100644 index 000000000..e568d6f26 --- /dev/null +++ b/report.Rcheck/00install.out @@ -0,0 +1,14 @@ +* installing *source* package ‘report’ ... +** using staged installation +** R +** inst +** byte-compile and prepare package for lazy loading +** help +*** installing help indices +*** copying figures +** building package indices +** installing vignettes +** testing if installed package can be loaded from temporary location +** testing if installed package can be loaded from final location +** testing if installed package keeps a record of temporary installation path +* DONE (report) diff --git a/report.Rcheck/report-Ex.R b/report.Rcheck/report-Ex.R new file mode 100644 index 000000000..d6bdf6198 --- /dev/null +++ b/report.Rcheck/report-Ex.R @@ -0,0 +1,1049 @@ +pkgname <- "report" +source(file.path(R.home("share"), "R", "examples-header.R")) +options(warn = 1) +library('report') + +base::assign(".oldSearch", base::search(), pos = 'CheckExEnv') +base::assign(".old_wd", base::getwd(), pos = 'CheckExEnv') +cleanEx() +nameEx("cite_easystats") +### * cite_easystats + +flush(stderr()); flush(stdout()) + +### Name: cite_easystats +### Title: Cite the easystats ecosystem +### Aliases: cite_easystats summary.cite_easystats print.cite_easystats + +### ** Examples + + + + + +cleanEx() +nameEx("format_citation") +### * format_citation + +flush(stderr()); flush(stdout()) + +### Name: format_citation +### Title: Citation formatting +### Aliases: format_citation cite_citation clean_citation + +### ** Examples + +library(report) + +citation <- "Makowski, D., Ben-Shachar, M. S., Patil, I., & Ludecke, D. (2020). +Methods and Algorithms for Correlation Analysis in R. Journal of Open Source +Software, 5(51), 2306." + +format_citation(citation, authorsdate = TRUE) +format_citation(citation, authorsdate = TRUE, short = TRUE) +format_citation(citation, authorsdate = TRUE, short = TRUE, intext = TRUE) + +cite_citation(citation) +clean_citation(citation()) + + + +cleanEx() +nameEx("format_formula") +### * format_formula + +flush(stderr()); flush(stdout()) + +### Name: format_algorithm +### Title: Convenient formatting of text components +### Aliases: format_algorithm format_formula format_model + +### ** Examples + +model <- lm(Sepal.Length ~ Species, data = iris) +format_algorithm(model) + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +format_algorithm(model) +## Don't show: +}) # examplesIf +## End(Don't show) +model <- lm(Sepal.Length ~ Species, data = iris) +format_formula(model) + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +format_formula(model) +format_formula(model, "random") +## Don't show: +}) # examplesIf +## End(Don't show) +model <- lm(Sepal.Length ~ Species, data = iris) +format_model(model) + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +# Mixed models +library(lme4) +model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris) +format_model(model) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.BFBayesFactor") +### * report.BFBayesFactor + +flush(stderr()); flush(stdout()) + +### Name: report.BFBayesFactor +### Title: Reporting 'BFBayesFactor' objects from the 'BayesFactor' package +### Aliases: report.BFBayesFactor report_statistics.BFBayesFactor + +### ** Examples + +## Don't show: +if (requireNamespace("BayesFactor", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report") +### * report + +flush(stderr()); flush(stdout()) + +### Name: report +### Title: Automatic reporting of R objects +### Aliases: report + +### ** Examples + + +library(report) + +model <- t.test(mtcars$mpg ~ mtcars$am) +r <- report(model) + +# Text +r +summary(r) + +# Tables +as.data.frame(r) +summary(as.data.frame(r)) + + + + +cleanEx() +nameEx("report.aov") +### * report.aov + +flush(stderr()); flush(stdout()) + +### Name: report.aov +### Title: Reporting ANOVAs +### Aliases: report.aov report_effectsize.aov report_table.aov +### report_statistics.aov report_parameters.aov report_model.aov +### report_info.aov report_text.aov + +### ** Examples + +data <- iris +data$Cat1 <- rep(c("A", "B"), length.out = nrow(data)) + +model <- aov(Sepal.Length ~ Species * Cat1, data = data) +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + + + +cleanEx() +nameEx("report.bayesfactor_models") +### * report.bayesfactor_models + +flush(stderr()); flush(stdout()) + +### Name: report.bayesfactor_models +### Title: Reporting Models' Bayes Factor +### Aliases: report.bayesfactor_models report.bayesfactor_inclusion + +### ** Examples + +## Don't show: +if (requireNamespace("bayestestR", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +library(bayestestR) +# Bayes factor - models +mo0 <- lm(Sepal.Length ~ 1, data = iris) +mo1 <- lm(Sepal.Length ~ Species, data = iris) +mo2 <- lm(Sepal.Length ~ Species + Petal.Length, data = iris) +mo3 <- lm(Sepal.Length ~ Species * Petal.Length, data = iris) +BFmodels <- bayesfactor_models(mo1, mo2, mo3, denominator = mo0) + +r <- report(BFmodels) +r + +# Bayes factor - inclusion +inc_bf <- bayesfactor_inclusion(BFmodels, prior_odds = c(1, 2, 3), match_models = TRUE) + +r <- report(inc_bf) +r +as.data.frame(r) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.brmsfit") +### * report.brmsfit + +flush(stderr()); flush(stdout()) + +### Name: report.brmsfit +### Title: Reporting Bayesian Models from brms +### Aliases: report.brmsfit + +### ** Examples + +## Don't show: +if (require("brms", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.compare.loo") +### * report.compare.loo + +flush(stderr()); flush(stdout()) + +### Name: report.compare.loo +### Title: Reporting Bayesian Model Comparison +### Aliases: report.compare.loo + +### ** Examples + +## Don't show: +if (requireNamespace("brms", quietly = TRUE) && requireNamespace("RcppEigen", quietly = TRUE) && requireNamespace("BH", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.compare_performance") +### * report.compare_performance + +flush(stderr()); flush(stdout()) + +### Name: report.compare_performance +### Title: Reporting models comparison +### Aliases: report.compare_performance report_table.compare_performance +### report_statistics.compare_performance +### report_parameters.compare_performance report_text.compare_performance + +### ** Examples + + + + +cleanEx() +nameEx("report.data.frame") +### * report.data.frame + +flush(stderr()); flush(stdout()) + +### Name: report.character +### Title: Reporting Datasets and Dataframes +### Aliases: report.character report.data.frame report.factor +### report.numeric + +### ** Examples + +r <- report(iris, + centrality = "median", dispersion = FALSE, + distribution = TRUE, missing_percentage = TRUE +) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +## Don't show: +if (requireNamespace("dplyr", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +# grouped analysis using `{dplyr}` package +library(dplyr) +r <- iris %>% + group_by(Species) %>% + report() +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.default") +### * report.default + +flush(stderr()); flush(stdout()) + +### Name: report.default +### Title: Template to add report support for new objects +### Aliases: report.default report_effectsize.default report_table.default +### report_statistics.default report_parameters.default +### report_intercept.default report_model.default report_random.default +### report_priors.default report_performance.default report_info.default +### report_text.default + +### ** Examples + +library(report) + +# Add a reproducible example instead of the following +model <- lm(Sepal.Length ~ Petal.Length * Species, data = iris) +r <- report(model) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + + + +cleanEx() +nameEx("report.estimate_contrasts") +### * report.estimate_contrasts + +flush(stderr()); flush(stdout()) + +### Name: report.estimate_contrasts +### Title: Reporting 'estimate_contrasts' objects +### Aliases: report.estimate_contrasts report_table.estimate_contrasts +### report_text.estimate_contrasts + +### ** Examples + +## Don't show: +if (all(insight::check_if_installed(c("modelbased", "marginaleffects", "collapse", "Formula"), quietly = TRUE))) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +library(modelbased) +model <- lm(Sepal.Width ~ Species, data = iris) +contr <- estimate_contrasts(model) +report(contr) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.htest") +### * report.htest + +flush(stderr()); flush(stdout()) + +### Name: report.htest +### Title: Reporting 'htest' objects (Correlation, t-test...) +### Aliases: report.htest report_effectsize.htest report_table.htest +### report_statistics.htest report_parameters.htest report_model.htest +### report_info.htest report_text.htest + +### ** Examples + +# t-tests +report(t.test(iris$Sepal.Width, iris$Sepal.Length)) +report(t.test(iris$Sepal.Width, iris$Sepal.Length, var.equal = TRUE)) +report(t.test(mtcars$mpg ~ mtcars$vs)) +report(t.test(mtcars$mpg, mtcars$vs, paired = TRUE), verbose = FALSE) +report(t.test(iris$Sepal.Width, mu = 1)) + +# Correlations +report(cor.test(iris$Sepal.Width, iris$Sepal.Length)) + + + +cleanEx() +nameEx("report.lavaan") +### * report.lavaan + +flush(stderr()); flush(stdout()) + +### Name: report.lavaan +### Title: Reports of Structural Equation Models (SEM) +### Aliases: report.lavaan report_performance.lavaan + +### ** Examples + +## Don't show: +if (requireNamespace("lavaan", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.lm") +### * report.lm + +flush(stderr()); flush(stdout()) + +### Name: report.lm +### Title: Reporting (General) Linear Models +### Aliases: report.lm report_effectsize.lm report_table.lm +### report_statistics.lm report_parameters.lm report_intercept.lm +### report_model.lm report_performance.lm report_info.lm report_text.lm +### report_random.merMod + +### ** Examples + + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.sessionInfo") +### * report.sessionInfo + +flush(stderr()); flush(stdout()) + +### Name: report.sessionInfo +### Title: Report R environment (packages, system, etc.) +### Aliases: report.sessionInfo report_packages cite_packages report_system + +### ** Examples + + +library(report) + +session <- sessionInfo() + +r <- report(session) +r +summary(r) +as.data.frame(r) +summary(as.data.frame(r)) + +# Convenience functions +report_packages(include_R = FALSE) +cite_packages(prefix = "> ") +report_system() + + + + +cleanEx() +nameEx("report.stanreg") +### * report.stanreg + +flush(stderr()); flush(stdout()) + +### Name: report.stanreg +### Title: Reporting Bayesian Models +### Aliases: report.stanreg + +### ** Examples + +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report.test_performance") +### * report.test_performance + +flush(stderr()); flush(stdout()) + +### Name: report.test_performance +### Title: Reporting models comparison +### Aliases: report.test_performance report_table.test_performance +### report_statistics.test_performance report_parameters.test_performance +### report_text.test_performance + +### ** Examples + + + + +cleanEx() +nameEx("report_date") +### * report_date + +flush(stderr()); flush(stdout()) + +### Name: report_date +### Title: Miscellaneous reports +### Aliases: report_date report_story + +### ** Examples + +library(report) + +report_date() +summary(report_date()) +report_story() + + + +cleanEx() +nameEx("report_effectsize") +### * report_effectsize + +flush(stderr()); flush(stdout()) + +### Name: report_effectsize +### Title: Report the effect size(s) of a model or a test +### Aliases: report_effectsize + +### ** Examples + +library(report) + +# h-tests +report_effectsize(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVAs +report_effectsize(aov(Sepal.Length ~ Species, data = iris)) + +# GLMs +report_effectsize(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +report_effectsize(glm(vs ~ disp, data = mtcars, family = "binomial")) + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_info") +### * report_info + +flush(stderr()); flush(stdout()) + +### Name: report_info +### Title: Report additional information +### Aliases: report_info + +### ** Examples + +library(report) + +# h-tests +report_info(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVAs +report_info(aov(Sepal.Length ~ Species, data = iris)) + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_intercept") +### * report_intercept + +flush(stderr()); flush(stdout()) + +### Name: report_intercept +### Title: Report intercept +### Aliases: report_intercept + +### ** Examples + + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_model") +### * report_model + +flush(stderr()); flush(stdout()) + +### Name: report_model +### Title: Report the model type +### Aliases: report_model + +### ** Examples + + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_parameters") +### * report_parameters + +flush(stderr()); flush(stdout()) + +### Name: report_parameters +### Title: Report the parameters of a model +### Aliases: report_parameters + +### ** Examples + + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_participants") +### * report_participants + +flush(stderr()); flush(stdout()) + +### Name: report_participants +### Title: Reporting the participant data +### Aliases: report_participants + +### ** Examples + +library(report) +data <- data.frame( + "Age" = c(22, 23, 54, 21, 8, 42), + "Sex" = c("Intersex", "F", "M", "M", "NA", NA), + "Gender" = c("N", "W", "W", "M", "NA", NA) +) +report_participants(data, age = "Age", sex = "Sex") + +# Years of education (relative to high school graduation) +data$Education <- c(0, 8, -3, -5, 3, 5) +report_participants(data, + age = "Age", sex = "Sex", gender = "Gender", + education = "Education" +) + +# Education as factor +data$Education2 <- c( + "Bachelor", "PhD", "Highschool", + "Highschool", "Bachelor", "Bachelor" +) +report_participants(data, age = "Age", sex = "Sex", gender = "Gender", education = "Education2") + +# Country +data <- data.frame( + "Age" = c(22, 23, 54, 21, 8, 42, 18, 32, 24, 27, 45), + "Sex" = c("Intersex", "F", "F", "M", "M", "M", "F", "F", "F", "F", "F"), + "Gender" = c("N", "W", "W", "M", "M", "M", "W", "W", "W", "W", "W"), + "Country" = c( + "USA", NA, "Canada", "Canada", "India", "Germany", + "USA", "USA", "USA", "USA", "Canada" + ) +) +report_participants(data) + +# Country, control presentation treshold +report_participants(data, threshold = 5) + +# Race/ethnicity +data <- data.frame( + "Age" = c(22, 23, 54, 21, 8, 42, 18, 32, 24, 27, 45), + "Sex" = c("Intersex", "F", "F", "M", "M", "M", "F", "F", "F", "F", "F"), + "Gender" = c("N", "W", "W", "M", "M", "M", "W", "W", "W", "W", "W"), + "Race" = c( + "Black", NA, "White", "Asian", "Black", "Arab", "Black", + "White", "Asian", "Southeast Asian", "Mixed" + ) +) +report_participants(data) + +# Race/ethnicity, control presentation treshold +report_participants(data, threshold = 5) + +# Repeated measures data +data <- data.frame( + "Age" = c(22, 22, 54, 54, 8, 8), + "Sex" = c("I", "F", "M", "M", "F", "F"), + "Gender" = c("N", "W", "W", "M", "M", "M"), + "Participant" = c("S1", "S1", "s2", "s2", "s3", "s3") +) +report_participants(data, age = "Age", sex = "Sex", gender = "Gender", participants = "Participant") + +# Grouped data +data <- data.frame( + "Age" = c(22, 22, 54, 54, 8, 8, 42, 42), + "Sex" = c("I", "I", "M", "M", "F", "F", "F", "F"), + "Gender" = c("N", "N", "W", "M", "M", "M", "Non-Binary", "Non-Binary"), + "Participant" = c("S1", "S1", "s2", "s2", "s3", "s3", "s4", "s4"), + "Condition" = c("A", "A", "A", "A", "B", "B", "B", "B") +) + +report_participants(data, + age = "Age", + sex = "Sex", + gender = "Gender", + participants = "Participant", + by = "Condition" +) + +# Spell sample size +paste( + report_participants(data, participants = "Participant", spell_n = TRUE), + "were recruited in the study by means of torture and coercion." +) + + + +cleanEx() +nameEx("report_performance") +### * report_performance + +flush(stderr()); flush(stdout()) + +### Name: report_performance +### Title: Report the model's quality and fit indices +### Aliases: report_performance + +### ** Examples + + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("lavaan", quietly = TRUE) && packageVersion("effectsize") >= "0.6.0.1") (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_priors") +### * report_priors + +flush(stderr()); flush(stdout()) + +### Name: report_priors +### Title: Report priors of Bayesian models +### Aliases: report_priors + +### ** Examples + +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_random") +### * report_random + +flush(stderr()); flush(stdout()) + +### Name: report_random +### Title: Report random effects and factors +### Aliases: report_random + +### ** Examples + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("brms", quietly = TRUE) && packageVersion("rstan") >= "2.26.0") (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_s") +### * report_s + +flush(stderr()); flush(stdout()) + +### Name: report_s +### Title: Report S- and p-values in easy language. +### Aliases: report_s + +### ** Examples + +report_s(s = 1.5) +report_s(p = 0.05) + + + +cleanEx() +nameEx("report_sample") +### * report_sample + +flush(stderr()); flush(stdout()) + +### Name: report_sample +### Title: Sample Description +### Aliases: report_sample + +### ** Examples + +library(report) + +report_sample(iris[, 1:4]) +report_sample(iris, select = c("Sepal.Length", "Petal.Length", "Species")) +report_sample(iris, by = "Species") +report_sample(airquality, by = "Month", n = TRUE, total = FALSE) + +# confidence intervals for proportions +set.seed(123) +d <- data.frame(x = factor(sample(letters[1:3], 100, TRUE, c(0.01, 0.39, 0.6)))) +report_sample(d, ci = 0.95, ci_method = "wald") # ups, negative CI +report_sample(d, ci = 0.95, ci_method = "wilson") # negative CI fixed +report_sample(d, ci = 0.95, ci_correct = TRUE) # continuity correction + + + +cleanEx() +nameEx("report_statistics") +### * report_statistics + +flush(stderr()); flush(stdout()) + +### Name: report_statistics +### Title: Report the statistics of a model +### Aliases: report_statistics + +### ** Examples + + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_table") +### * report_table + +flush(stderr()); flush(stdout()) + +### Name: report_table +### Title: Report a descriptive table +### Aliases: report_table + +### ** Examples + + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("lavaan", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +cleanEx() +nameEx("report_text") +### * report_text + +flush(stderr()); flush(stdout()) + +### Name: report_text +### Title: Report a textual description of an object +### Aliases: report_text + +### ** Examples + +library(report) + +# Miscellaneous +r <- report_text(sessionInfo()) +r +summary(r) + +# Data +report_text(iris$Sepal.Length) +report_text(as.character(round(iris$Sepal.Length, 1))) +report_text(iris$Species) +report_text(iris) + +# h-tests +report_text(t.test(iris$Sepal.Width, iris$Sepal.Length)) + +# ANOVA +r <- report_text(aov(Sepal.Length ~ Species, data = iris)) +r +summary(r) + +# GLMs +r <- report_text(lm(Sepal.Length ~ Petal.Length * Species, data = iris)) +r +summary(r) + +## Don't show: +if (requireNamespace("lme4", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) +## Don't show: +if (requireNamespace("rstanarm", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf +## End(Don't show) +## Don't show: +}) # examplesIf +## End(Don't show) + + + +### *

2f pkajK{*,ʂdS'6M7 CVqXs{W xK3,.0N +GH7tQ~bRi26N%1o0Q"5P/K.GƜG4Kwl"G7(1b,d+RpL BRr"*'DDU9ZJ㸫Ƭ_Nju^Gj/ड़q<༴kZL?=vak|YU$uyecv㑻_1l #>hj2Ԣ{ګԎQCP~SX-`Η*a?9; 3NDZYۛqnZQ^(^`uԿ! %]@ LtC!>yݮ/O=02yn+$LT#*D57!&ȚB|H!Mx`@'XWX)ncڦ}ImŒׂ_F3린>:yxT{P1UxEjx1}SXv a@eiVK|b龗j1RXA>Ďgej_D Mmi0?eY` Bzq'xRhPH)"r}dd0,Ӽye%ydGUBIJPH_F^+e\xb A+ 268W|jw~Sh8zk%;:D犌0tFʷIV;Io* 2ьrS]g۽3((2|?@<jh$(;\r$JZcSY. *nRcIPH*>uuMG;` U%XzLCG=; #cuH$#D%VH|+ă 1-E~hJHb$Ja*Wr 0v[kZa:\4 +l+Yz <%I_q VHca Ƌn4؃|7A8,S$S**fe\p(UIa0n/wJI{4Pj+3]yPT2V:K@ק9CC[} zJ`Xbht~Tઁ*9Trl'H BǼPޑ(*mr7%3NKrOb~5yT4+ej2zT"ߦty3v>kAJILžɫ=R l@PDp󹺊&Z 责 +qxgV fdf8Jlkp3ϋCUKil @ +:9EfLX:u'GNr~)e?zNu.A!۲ڸҚ%[kqSϑ/_x=Q:/S8Ő#U뼽Rh 3k9)4=fl@5̺)TJ@[~ ZyRm@g"?vҰ'ӛkcF f2Iniw ]@a Q?KeӎvӎtrPQ{_$T:xU7Cf<4gxXQE +zKQexB@gveKCij.US R];^ 3s9I980 *쐟H+l+0hIQ6GTpbGG,AyS*kgun7K~z` ?pO H];dϊ +:4|4vúa5Ox`GXJ?7wR.u-ѝ1} Wmh9@T~e|mkMeϗrdzg NEh|-!li$RCTU\EkxX1SxEDZ@2ߘoꂞ\89mM08݀c דNmǻ% FkrG(;Rk,>#"j9!s `%J+KaR1?v 92lS*VWMUlC/T5l^#Ϧ8iس /d` }#.5|B{1YPS{4 VB"#I0|STZIrk(A_2}Y[f ^p|0#38F6ᗃ㽵ac_Ԡ/)݉$cmTnN+a} c'F-UԪ<5U*lހ[ +׶5 y +[%P}Fh KG\mE;Ӓ{ɠ$\D({ApA?460Y-`6}@/ifZ,gHXңHO7@ +Stȝnl=EC4 T+E(! +Z5 I&*k e9)u]RĘmh ;RCRCfs.IV%4db_$rS%w~hH鯿$AB0BCEAX=v@fX҈@Y@%J.s;ؽu!{JoDuXlΏU&tMRPb5Qո!WH"ǧnӎP* +((t` C=b;P"p;h#5U0a꼂+WmmYG{>|zUfd4cGMQQ u{< +&ZX\8Eufeq(?kDx2&FVtS 9s%TPY{FMh>q#P'؏4wd@ RQ % +:Sq}w( +𯄆\EPKyetCEPuU5tEPQJPiEJC\j{T"HhEF0UXA=hG뇐k18CQ/#%^KLpXI#je.NMg}-́^KAл'D_XzXh)h/pR*?<2žt}87jn2xyeQVV> {J2Xk +>'4(Le;H/fwb!O"~v+r{Ш"&męšdlOԂ<#(BcL$"x.b9hhBrzLDMzsDܪ'{8Sh$۟裗[\)FPSL<(Xɵ`S7l )/\_c=fyZ5ADox&dK=nE%Y,Z3A o!rNQ%NeQ*D⹔\lC +៮H Pz|d~tۋ +(u#XS9\B8@P*k><)jp:L/ Pz)K0TY.C+SȲcd<ޮ'ћ&Ajw^ə`UrP쐙C2 ̀aߨ=H]̏g^e^wMLAX5H +1X0פ#Y1;LR$=CqXl!9 H^ DU=y[Q ;k4 +!Vx ?^]qMĝƶg:+Cq)oW-J_oRwNwue߭6$H~F7%idq3;C]l`͠ |Kq,:;X?`Z5@%M­UbQܟHM8ROuVsqa/B.UYÀ @0aw@"=>v$Ս@' wK V\df{\z~FjTkhGJ4u޻j!5pg(m=s'"J~ u/ Sf[^ ;pR!R_zU zIuqG? lŐMqޞ3oH7 ޾FʔD$v_=E_UujXl =U.wO Cy/I[@-MbJDFf_c`S4Xq3n^s|d{>6{J D[ HhP7 792Q}'?I|Ư9zSS= `W)z΃l okP˜f-zw|ȫW,=ڽ;̵:og`*aj^YYϖBB"G3ˤI].FCx yE:ϯmJ挣UE#*}V-=x;<Y9ᴫ{Y?|c|j } kC !8ja+0XYIK5}76R*11ܡo"y( Qo/mJ/ \O+8@syT= ]G?wb$L,Br+ 8LjVPȑBMiƾv%]a,5_7I,BX4qVQΰc#YÉ)ߴg2efH!Xl֮݊  +ui9 r 5kE2#ࡇtD[H>Il+G=i0|X^j|HyuG' B.P6GM}F+$Pz9)sƒ2)x;pߙsr%$gC΁%HҮ0v>9n$S h싺#[(Hf8]0\{ k"࢔S(؏o/A]nquECNn;tiwWb\D6D<УJvHu|9zEI@; ETzܡmt<#AoܵZpy ˹Z,+‰kr7#iejq\`+=2pYk<5VǺJ*yhy/y)xX(_;qH~byDV|^xo`{]f;`"-.OCD(&?tBBEE]H&\B0r o +TH3JHI+FC.߈3;|(NQt$L8rWΜχwｾ3RӯL= +&:ӳY!J +վ&_b dP{6YY7_jξr5`y(!E=t>ĒYȼN_ǸáԞC۬%?Å& @7RS'&xU&g}3cbq1?"'jxsC^^frH-l&S; ,q< hS'JggǗj8ϐo21Ok#76 vaǨDhLc+o$/'֧QK x˲4W@difT#six^u3,L-fo'We0kBn4OJ\f?eAdd) h/Ωaij#rs;Bf0ڕc)[Asc`P򃝣-G"9^hITYa4HX ^?}PY7o[UIeG)|l.ju}$ZiHEf읰 l%mn7OV<&I.O_Ii9W hݷVjlK d9Gl J_(jHaLXfvb U]{# yf>W>q=c 0,7=ZX*-ǁ0ZTobqD"P~a 'NE<& #p ToRK? uHwePS)KpJоuIxva~6XgHU9=/ã"4DTP$'2׫~!y|(oHxgoѺ/K ;,9\8K" g?`9E[o-/QwQ5b@SKrx=ZZs* 8aM ˩FX7=R8 +ZuXT\Vl,}ѰG 7^^hhgPM6>Kbhs x#=ޑ2=櫕{|zhq6T`h=ow&3 T"q= WP<_K=F Ͷ箽TE>+*Eol3)&}:3F6[0秄zoK$ K7*=4_FVI_}JIAQ*bRE1=*(a0؅D%Ms:b!*FX` +G@*r4]cpÉDU]w:BWGMedl_{ ;8ɸb@xoe= Nn}&qƋEDN +l ѰaJ%Xח%DܥAnH*>7k dS +S*0P76p-w0_5!Eޛ_‡HSXnX&6Ӭ 1Ag' 8ZWv`Rn53hb]fDuQ^Vދ[ anmǙֵWW{v/ⴠKqsw]~*:1D[ۃEW SyrAYT}X}HM@O&ɍF[_"ɸz{G/)'(\X -Q^AD3$ [ihwI @ >KeHcIYnf]TҗS2HxЩE @U0;1 MIIs{-nR\',!f7 +ol)f# %{$־1ؗ)66@*1ۉd-Ddv>~sDej$mopb"z>S[m-E;JbK{ЀC݊ܭSvSs [{^mv{U~IrU#kE U9#1>GgHRc*Ř=\`S93jI%2N@DWj#RÐ Tdt=#=3!5rSA +#Qz vU#?{7倈>HBB)| nܻ>EOc4žJMYh2o;v;HL0볩Ħʻ&!va)* i!ȫ:ȣ{:Z7ot8M `a'&(GFz]f86ĤgrN=>ؕU3Ix ֿ;'w̤WSuEW,%^5B~iYDʍ[W ݒQKgg#0`"!:9P[Q &L +g1px_XN *N~eK=r1JgEՐvXo`+u]O4[U@C + )(@B&\&p] x\|9֣$9!sE ^fC:pZ- {t>:l-vuHU:h=H ૫EvtOLjภ/odtQ%F?QR;>aHg6v;&Aux"0ߒ@$e|C1JHURU|cK۩FmpW"?[#FQCf> ibM=RX* S:E!*(O*f3#ÿ́澡&XbK`L'9PQ'yW%VSsX3?S_3δ,ҕ Q@*D"dE'DTF4aA#G-v ۹!` I^0U25 +=LCl};(LR=5#irLT#*SjǡsM9Q.{T8wLHhJ؍xLFlz3bB+٢G.,\nd 'mt -@D;J둷`V)paFhPē{ce\:0f5'XK?7 +q_9Ӭa$EV[$63T,qP|65i-q8ΐOD]u B<# + R/R< +|.꫔ɯH=! ٣Y՛+iLcR1IC[r=J\df( S(+B LX '\"_DM%E ^a_¢^5Dpe.@-IRO-0? +ǝ0D(hT^bCt3ĪVτ@ +mi=D.j *YQZxM@2~s}4R5JZӨ$w ̒)dSz"Y28{r3lI/b{)R,(P0JS^cT1 Jt"v8^]Ewb#˫Dq8J`+S-co0ȅ;4?1ڷq(`$ w#=1);.x KlRC@u}_D(5 <;:ÅEļ d%IX,)0E`V:r;B=ev2v5;MLAy7G<;uB5en6LUbG\D-=b[~ck lb:zyŰQ 7Soq~z1j =0\sR PɀP@ZER`qvg̶OiG_"Y@sao:}1\bVwCGw C^:kJ5 `eݯ*HOBR9LL#O$̴2AA&4кTl_+Mlhm2H'(ԤՉ\WA1m}+'L +PrF2IIm~ fe=^O%}ks?N t5$8⡇V$*t-w:Ѕ0Ni }Y|l.غ q3EYRB$<^6ߣ-K-bCCuUU-JsV*|i@ ^A~ d]o~0Kr.G 3rҁC`;tҗ)ɹ ~Է`/zG=/X}mϑ- rTƨ2mD&-S$%2y_ Rqvb8/.強C뽕w%ۋrlkWor_MbPX3R ֚9o;qe#N[5)a@&?&q&voQ2+K^Q0{7b !o&pv K3Lթl +(:8KD#;KIVS0qE,=X?UֻEi;yТ]I2%T0|T1,upS jDS ,A7,ͮE8H/`4RI>Q;PMB`/%9{$O{sv !K)5q# meEk~iIjHO LK54_)&N{:c~&\1S<QA)?j@] }Qw/u\KE 1.HSPORK֚ hZݤ#ց} fLZzX-8_[ڗ <'ӁcfB\wT&f# +9_hIJ7٨ݜ$k&rbe<#~!]If޺r]R_J+8L +thzLwA+!#PrVd¢k\:s|2ARÛfr%I/ґŠۏ  :YuU; [+6Oix$#єIBd_49 #Ԛg2w+Fas8J@/Oȹ//͐Atbak`벗A)C1r/.F+iNa &@|x'荨 [Gu[@Zgo`:&׏Ae?+Vo: DŦHF`- " 3a=DZH}jzqd¼ϴkJHgG&Ô@nk0-3@rS8C/lؽZʞe%;Va$oJR: #վ|6DcR:'Ȝ"zhD0Ab!v=m,:fg[UTM#j.pIcytBe:o3C= +XĭV٫7L;1$:lBaZj3,<\$lңGAP1ȁѥ+s{!=1Hc!E쵂8? f14LGlFC!+:f!}^-q1 Q7KOIcb +ܚkc)3U1f +J.$h ?+ f$# -8D%۞Pdۜa!ԾVH2HɔjHL=CHۉ/$V#4uMQ!~è #INL()M Է:dO*TVDQSs_t&Z3=S0q}":azW{<]-}DMâ*a{~,*P {nO`XNv @+)I:%8 *)tZ+R=x/L#2Sv=KDsf|zYSAb&䫌CEÄWUk!CO+ ໋ 8n&L"Nh!ȿ^rFU 5 _]$x%c2&Ig[Íp%?j5x&[q H~o Vˤ :Ť@8UB3cUrP@Dxv:$Vȕ +uhlCzp(A#qhGW&HXu]x- ~!*i }F%D}71שDiP)Yj$2b˼@,]oQؿb70 +FT+hvi9mW^D,NcB,LH`&t_fkԙ +\=v/b&50=#v5 {)1TC%8͂UUw>+~ AiI`^aP3f)0C `hUxtCDn}7r#V uJ9g3i]zUn}t75>ׯi=:jn"ujפOH C@bA!D}xA(e +wU[΄h.Wqnilhv_ >0\ +7Lški b#K=H(jv l4%w1quBE@IlS=I8T1R|wJ(ӃuKpd}1jB d3-aac)|~q[pFh@i盒k;p鄱Ӱ{S8zpW2!<JMc//DVPlC Su;jQ5 e +z4{ = ! +UU0$)t1H(N\6ILH^yBt4u j2>DJemS-TY?fI8E_D8`[/k}B-^=O]s] -Λ-D|LT +O`|.V0"=;wZ$&ψL5Q[Òc4~$\_h+,xt>헯tHR'G){Ihڿ +0MX҃ɦ[,L:NP@ER+i E1\IK Mr›ܳ0`0" Cl2e}ޥkqW.gdoZӏK TSf8|yK̎)g%y{'*٠lOHw{y~{8r3S?wxfzE^un-S8w$ v݊AdT-8؊h +r *cA<`L)c>gH!/GeVuH5n\[޼}h_0Yi΄V݆`==A'@@pLqټ6>MAz!~ m˔u# +pj!]{Ը݀Vsaq۪<*#*mzk>:i8 w.Z8StrڅH %CDG7͡HK &0Y!D-wf#pG +,];QEy%O¢(T= qTl=f>j`w"^F}1BqA";`4 +VȟF+ aCRy o>3NHsS ˯d|puz/=Hx`8ܖl2!=.zޙ8SVo|)},N?78H +2*դG,(3! m[.vUFHԺo ++aNm&SQ!χN-HVA"߶\ŵ6+FRTSǙ3̼N+ H]TJz+P[ (9(X2Q@IƞwY*@aGh|tH)dHbX#kp5D TI#nD87|G^h2D#'cZd p +_[HAcckv[j}l޸~5|[va +i+ߜXD-(ÍG;Aa?GZw#lp|NHmQcfN-$o%҃X)m6@{5X7>~oB]k(\g1m)Zhbc<{0%J`P1㩪&L8]P@Q65CT'!8$Ug6ϳkR_hgXu2 N-%;l(ދтR7~=ū,iFid#GgɜL- ބU>w7DBh}\UH +<Ȣ ZodC/$EpxYDmj޴0ݔ\i/g!(.oM5vKEdMԻ[Յ I"l]AߊKVJ\ic2dtYΓ]"=϶n`4I4I-~Plqo y \}vt%؛90m%$ c||Mn lj23qfX$C9~|~ p+Xi%Rc,$8Z67`F0oQJ 8bF~܁(Y KQZNT:y*oFlGqE/^n[HKm{j/roimդĖصb{:g4c: p=&Fnϵ8e8?`S*J(κyY_qn݉9>+8?R8ת@>{LTL\X G[3/t4)U*H95 MIV-`T}5<_?HZ(G6mi0VBXZ3g>z\hM/h̎h7qkQ(uJΆs`euӞ|4 {V{HNܟk^S!͹Ȟ7,[ߡd- +A.g7TGȼsfOKrS 3gVO0]kW&ЇТth8:(>_NԪp}~~T~z QJȝC<#_:Bt<^2 D\)InH&"BR8LYV{ Ԟø")$,\xG!vx{Hxگ1\B#J۾'*>+x +@8%[x-nL)|>G1"u6gF+(\+IG!p{꓈,:RBJ 9z(o č[o4N/≩w1 #JCIjLh{ q8>| +!h$s.zkφvHZC?L,%#l:̹Y~S7c;K5RaJI.Zs]m 8OTCp(4Op$@b"$@|~vb}4P"I',7䎍(,QX+ x4=Ҋzw+!Cc0y(_"_>cm@QlQ]ab4e-LJY qV?C=T +?Зi<-EЦWT P>4?qd%XpEt{&0a纘PDB_6pϓg"2Sf<ɏ #J3wRR mZ-P +1UeWh_H3R%-€8NqIvl7w =.YWu߷,)WgmmJ/+C5$|E=0/"%у Br555M[{*״XRNz;h%Hw0HܻGGA`h6xuL馲NoO,塘i5i%Of4C +}ߏijڶwZᗓY7Bʀob$0g"MJAɳi {\L@ cm^-=ݘ8mT ݘ>Op98 m,H "R!Nt?-9 MC xdFa9`aP mqow `6@v_Q@')$n:`PxA(1NrUeX!|<_"AD% zD*h٣pbJӭ-A +` +_Fk "|6o 'P,| ! ~kncT,%'N"CvXznݸ`N,Ɓ@s0KEnT^^L +AB Xu#I"}n7!͸FYLI4= h =yn͎:5?YO2apg8?#N=ܮ. +g7$ڰ5T@ڃ(vL DT.41$[3J1)|Xu]gHO÷#nMo.`ژJЗDU^^>nJq"$BMo$;W9P(H N%qΩ7'EoC/TԦޢZ{(E6`22@%Pv[yi̩%Zf=0m=ٲYoD(E](G +X>^9e A\g +4+z*b nu^Wmrm)q9bn`cDY,pt=B6=gj2Ĺ"_#zdJĒ|Uy:ԃҦ(\ +,4pV2s F)aqבȁgF첧Ck// /触^!n8쵰|՞U@(顰 =Z홁 +sKx.ᑒcˡ֑9q3o$$9P$\xN1@%֓XyKlq(Ӎ |/K:)JU4s/7FZO֨'vgo{) QŧC(̏Kf̐ǵ, +F)cVRag7N)%R$Oa$*T@6H]aɩH޹gܢ'ZzB$ލ],@OT3'uXHW2-DłXK&B=ί?[ڧIʾ9f3i}tM=Ʈ8 +1AWEt) 3ߟ9.r1P9[b/ , ;[`m4@dmҭP9c`"X4g)U=HЃgT%&Hdŕe XEGax^p OSE&ϩ>]!Fz +wGi압GoάɎPmFͮ|8`WPnl (c}!0o|tБ 5\wQnhC4c%A)[vvM {/Бn wԊ@#w~  {NPusHkR~=-`ڟ b#ZoBp-Ee+G4yD%Gf +Uax7=Hvnh0uü^:ֲ,[TzVԝ 5Pz4a.{< k`Y@J.,bQs?rpEoz(9_O㗭Vg\M&4x\{PhqpM?:u";8k#N +M}>4[x44L(.k* Y.v[f亝8> +H4|HO +vv%-`ZkV4Q-kߖ$}UP;2|a XC宒c-Ȁ2~ c'= +,1)PRX Pz.xq4{2u~P R EEKHu|t@ inVFbZYSeڟ@@ڀho]=7ؠRy vHA;R`أl@Ž:ѹ5a#]g:Zc3o=|I.Gk;=|9TP)G73E zXk4kXPz~US_^PNpj!$+ܟ3:/q/;|;;Tq{y?{!v6N&aYqbd߉="g•~8%LdCˈKm$G3*X>U”]q,4׏NGО;څ;meyG#X{H ;MVs-vmWOjHp.qXt9Ȋ:p^KEsbo=MW>TIur .NOMWlABfct4}֮#M#TsS4-< i.CSM\kSt,b< E}k*'ma)SvcA{^.j9QV )%NxqVef^:oUfvaT :G|Xs[;XiIEEyB>,ąݹ?j/g `Z˳T;Cgt#ڢ є;DwٵfI^4N9㖑ٴ ! w,DLQ)~{32"A_\+/e^\c{*zegUCUvutpjܮn0\`¥l=xhIm|͒gF nH5K].j"{k*3~3Џ?qJƈ}:}fb`~ o9^qEmd7tOHqR䁙yٝn([K/Yudr%^f@{z:L>~,dg3ut:O ʟ? =uu-PSR4Eh"`cS5>UOÎk\"hAܞ5h~{"z"lqh(biCCXv;je @Y/]׌ao=m:m%(fI`yLfnVצ'mmu>ʪMfmU{0 > w?;oPnˡ@#|8gIՍC*ԟ E:2Xr=b9kZWdCn 0`|?7҃:T|D<}?®xolnU.0Z[y%Qg_l/8 B,ȡ]D# h저,rkQ +2j$LAB sGO+1fy3Fy3~ 8 +.ƹ;lWP p-d,a WwdC1[X%B*%pcjFi~9U6PZnkD| X/Cg95tX>Ek! d]Ųgfp!Z3+dx#FkY|GX/Js l|=,?\鏈<Jk@yv ]+"VC0`q׿L2@~uG/Z&mRsqh:^r\!Mo;5Q(6V%@6Vog2ߑЌ %B{,{x:Ֆc RAUH.(EBDVص{\fvUZc0Wi"ZNkKwaV+p^™&夵W+`gDQ}2!-`jeÁlݕM^Gzg}ZqB3%q$2|Lb-E[s[0+G.ȯhAN phIhi14>t=BoPTϕ<ʝQ.'*\oN28c/tV+JeLɑ4!Ad6 f># B!$x/d>߃懾>|ґlŘ)f1: +@{w@\Dn/."-q!kDah R3K#ufI"W2@p @Q-/uyxy [H9 X\GBI3O +8Sf+tz@9J`r +E=7ι8v( &S`VgBQrKR60\d:|q$P+8\V҂qE3DPE#J,ܧB45˩t)#!"O F| !YC9ZHӬi%YO $t<3 |c [yǫJo"Z{ׂ'XȾ@^a,0I3VDs&׆3̿ +Y[_y8!CN\1BRpձ.^/a, i07>;UX҅CmHv<.K KVӳ8Io^p?_Z Òѫ u4jrqbF@*) ZxwYt OCgA);ęyPwQ 3p{Vr&."䍪K69LC.'",+YיnҜsiZDCs~irdnź9Aݓ Wazx[5G_t9CgKłѩgZqzydi]@pSq8owJm7ة:2άc`4pl +63Fy2+uk4x8Ӓ}!zl˳ +#3}RS}i0Hu@W0IVw4kk[6[Le +^`"DSpx|I% +I_MAdN+ |vRFB9]^P(H񧍦Iͧ)1D ]_ד9e1P:s5g}O]r&&zO9;s*IH#dvi9>/5\z%n b-l + }=u` 3Ja^$x EM/x3yݑ1=0 ܒ|[ +R%G< +dmn=Ql(y{n#g"RA+'.G`k RSBq :PbO@bN\͋>j#O"=m;5,zٮ-.I {jkJk 3!J?rMIo;%e%tq/@%4*_%2s5D0*MSy FVq#vTw&|Zc1V; VWs&˟v(#:ӭ2JFj̨TĠ< ad`؄pHSObFBϢ>T뚞6i%f6eR̜WX1w "%:q׽E5%䢾PS +I$GjU^[wd 0Z%ð%J$Ly;@Op׭(B +ܝB?T9 Z VO+Tֹ$u@'B μٔI/׏=Jp% +XP͋P/z SE;J6"es,WD"Z[xI.V&uZ>ZiG<Ԥ" 2u{uYDRv>>p^- F&i$Ј-`+`]|H,@9r39ebAw5wW *n]n ,Qws%3I=nlSA=M@İ(J@S@LXcn񥭹° (™'@Ύ ²X6PD[UvsJ}eQ-≰!e7ZܭȩȽ̗\"mkifїRxVI/|i9^';`|qd+u )QeP6@1 +}g6ުiۜJx7̯H}0򤦑eW^ϝȤLj_t4[aVS) "7ScGW)Oĸhm#I:n{F9a܄\݉.| BU#ASiER_B + +fGCnwj iHCCf3&$Q,|!6A.I^~^ {4I;u" +xU}F>,>@[ϾEX*3NEI~v){de  +L5~iЂe ߅Ԡc mRJn٣"2/|pRX# V'O%u6xji aCQHv1^&P8әѸ8&U'&u]a5' Ȉ&nU"@lǫX~UVPMP6$tryt]&u+5LqgQ'B ڑn09tynh8coШxyf i*@h> %n#%pH < ce¡hl2emgdG,T5M$yi|8eKYO{t]ͽhFA:%@vYڄW{t'^oʹxV #,`4pod@zܘC;>ȆhoԮ4087;iZ<ӷZt,.6COQi+b +@|@r]iUK~S{T΋jfֹ@j޶)-4USo.5+K3 _8m7q+ۦkH;*s;)]B ^zU`9lM: 6Ϧ27S0a3_{S#pԤ~XxemFQw+2z췬it]Bv; ڗ .SQ`NGLZTJ4 +;5` ^&+nI= +ZD02"*dQ!%TuX;~IqJ%i_v/Loٷw"t5>ᣆ[ +"= PckiT-p<\ 逰 +ydђb+? h|j:ҩ2G}O LV5vڠ֨*}Hߩ~:ҍ@ƲnK ܝn+=%/{@l}WP1%AHvXNP|&Ɍ,$DF2O*A;OwvmY3H 7KWoakzL646)xx[+#1#!ΘZf܍8o=lFWKO;vmKN +[imjBW7~dxW\g^ CSs&kc::|`ыF;VY*`$ :^ r11#z ꇰ6t(^b +tsa5";)Y2Lj!jo-+_Hz!ŋ3!6@La$gAѶ0P5{i hw_"ԃMDg^ȥH c#܈)@XF>@G @xevjvG#Y x84E:#TH[lVk3CzVbʼn oQx&E Nzk[Ňi3Ih< +~ ͽFMw0ŌHgZ,\&~52S!%Zr +ɤue T| ثqgC؝[pB*dIf^l_|#pX9C1{_ / TP˅^P(j**آR[=+Sv`ؓvg];饰}GQ$ה*s-Q+|sɪ&+P5B[+#EHY`tZ? 59V!R!`]yî[Fmg<%ݻ#el]-ɍ8df+`*o 7+-^4oz#8^* Veohws.05L^)@]Z?㮻L?W}k7>~ [K-+dnm_0U\O?ueD)4= Q@*<)gW E/o!%0bE':,| bi/ |hkwu|/-5|T.ƂSF5FN&ͥ9&t8U]8ީ8M5fU gf{Ć.4\:yB + qh'/&W@G8f(#3ڼ!pD^FB˽ViB2'g0JΛ?Ŝh6/> zƎaV%IVŤTکi XxENfDR{"*;COCYZ;9^%Bf=v6 +c\#ρJl%!> uG=_~'%pl˿߉ HFS9>֍:-&%#zx}FI5t>2 6Mw cŢd6+X5T;xV f.uǢq.6QlCbpؑDBvz &jL( Nqxhxcd&]Xשar[YW0o駊S7p>&\t p}z鲭3h40~`MNMxKE+L’|zO&{<q \w*%;w,+pV-(2~N5k:0ąMwA* + +Ssb!  d +3iEiT +l0*'y̬̆D "ND a&u8s1' BL,W ,L:=_F:$zWd:%&\;8&V>1 kqꊽd=|~ rp$̀QȞ@@ XOrrBx- +A SI\Axh_5>9 +3U YMuPO)z kŧ( `<\8-q J L)p+A;(;(E+ :ЙY* +B1–ʐ3ALp'83J=bO4@n}%jgmG /hU}u>x&ize*ga% "}Ab;->4D~_+>Egq/y-ߐ{x( [Y=m!ึ _fFJd:7  +r]HEqf + fn,'5pn@=Ga:sE=((1R0<+z{IF\_ +ml)ߊ|} Vq'wsݚ9a ؉Po$$!{OޘY%79M~!Ĕ6N3c@TInv{L.y`«q _?[2WEzOR'R$D6MTbF^T FJabj֯Pm{PV./$ʥW{ <=j8푭eObH^rh߀ A,F ܷjwtWl]tϞ~Q9ueJ3&v,8~n{ܤy0%iS qr_S.t!&3_ˁuO]?"6vX'=o0ⓠv?lɯb]EK٧*c}1/GZ^?7SⳈbt 4A %~a<莓<37py>s\K^nUqj@8+wdB'7S jw$aO =-w>u#~7UBxl6`*ڏ.Vam&`= `|uhr/HWuD^ht"//WHYWч8Ss>A42&Z!|U/j9f&@ >(EWSЭѭvrYxpdGw-\"[S0&nQG{R|`P^ᔼWke>DQlmnϙBRאZ`F 'gR>.!mKj},΢y^-ݙAzM^_σM´rE@eqS(OԡC4שн"o2FXuF(!=7y{KcA4!tZIc=g?ug'|@+iz +endstream endobj 362 0 obj <>stream +E. ޗ.U**b8石m ];SP: 帞ybt?.Vϼcv&7~h9G"6oh/pCdW&\9)%$8ͨ^uS&'D"NiYH1zhIxΟoY<4#.J@TZ(a19s|38(#z05+~ˌ\]MV3úΕ太4NҒ OaLҧt)3ϋ3շ|tPr^Zu++HyN*@q|0,yMXsߡ0 + %B :FAVD@<4%*Urr]EK+fHa7o>#mq5kE #WAKϯĊ|L3>"jbx^0G!Rk ZKg$/3M ,wM)E5>?#6? ?~dėׇmJ՞:,PnW?m0e5]Gk\7%ϴ /w>Y<}N{ +Vb$RsWƖUL*z"ڜx*_ê.m], [GF\luG"#"*?:ijp[H !]w=Чp95Noz>#y t uB^Kvڟ%qdi[ tm¯-w~_HMv b=/TPSp\~?9qojZ$ ~0E4,5N t~޹;+8]OCUH>O)GGuH}GZoCi+n9Gfzj'-8 < ##v[Y$pQ bnS9Э:^5BxW:.ħ?TŃCn$ + ~=(dw_ԲR.yWUJ +GhSڧ?,@AyDfjcgЈo-B %+7/wPWo@X E5Wuc79"4:Ivuz㊋m5 +5Dd밁rh6h 9 M9Gƙ뮆\r"UDq ɰc-_Np=p@F5&`ո%2$ܨ0ˠņ] R4v7ءD~:JZ|IFG *BT2pLlNÇ5in~GUZ<¨|аS"~[ӟZuz!;h POvCŠ9ձๆsPI-g P8"$"W|e\u35)Ma6 N%J\AV?/*P׍Dk*LڈծG9`ʙ>,Μ^Rg~c;&O8bM<^\h~҈M};'Q%y$žkcHul+J?xc0 "iXC0z3@4C%7&4IT>%հV +!)E{~p᤯{v*|Ä }ns/Z D^!Ԋy6i +F]U b~8PZPA -Ұ!<]6;vDyoxTئɘeB0WC +: ׭jYޞc ?.ÄCO99` uqWm F.XT!{qr (<.MHvwz +wKx+Qg˪02&Q>E)+S-llvH{\nrnW ^#pB}FS#@&L2UEP컔͓EXXc˯G <= +1J\yFowjπAE1&:PK8LY +j]؅x: + ¬ l,jVl!8Ƃr//UD3C1MΞC PHaT{wW{X)1k(yë*ޖ}F櫪eZ5]JD@ڍ J_$v3@`_SDGE4pzZ 0 FjԶ{ }ݩz!~{eka$U]|)Q TE\/]h]"^T0"?d|O*K`a1:%?]El՝]mA4՟Dp[`:5~];jһT:%O<Uo +*/H yFw:_Ma736D}b"(Tك˖]0TWHd#eFO#"P{&ee!_U^L0FR@M F03 +FMB,zPV1F<.JebYye9cu  ˿R^UnnD.ۈ\)6wS 7{ : G*Agljp]=DT\iT?X#z]YevEz@o1Vz> U#jdcijAӂuky!m uW>UQxzRA#BvHX5띦0RGAS\zhS&4ax_$FF8g>8;|hd#&1@pq1].CPv;g6 { VZT3`;[o_?)0C4PL=8C8U[|4Ce8w2~H{q[P9GXOzFL[GHVZPAKXrlv'X?|fƺT Qc:厳"Ҁ9>z"H~^{ ZW]vtW;0g4\u 6ϣ3>!TV 4p]S}gCbG У71kdMaǃj|#='ѕ%T!xқEl -&A- '#|?Zvl% +JG,ы+љb LX?Ȝ@t'd,-4~& Mc$փ#NעwQsD(4|Jp' ?h)\< +U%ɡ]Z1K|lnbCtbV>$_5ND" +y=C:%R686ifμt,UʼtgD[q@t녩w>K%Q(Ya&_)tWIiNJ8cR"wǹW>=)3穵{ n3>|yl9"Ȟ+S%[ً̥ hW/b{gm{=rtJ2,yNu%n˜} a + D+ n' è +~݋tl 8mB+iʦ pTIrb~@j!/wsg=) __;UXW+^*W(s;ޢ>w'^i-g -u}UOK^G^:>D5s*kTE*g]A#@a"xZڢ6%TȆwHMMD‚AIf\1/quw$Kw%V)#XŬx0t*q1 gTjdd2݄p0|>E?\Mp) 3;%)rGH[Z6s=JL#_%©L*x;}]P@Nٻu-uQ0^4x +]PW$uq1eA70rHX:ف$#nWԢ Op\]s?]X$™u? A(W"wyֳ28%:hGi#{;>> +uW rͪp^3,4=k>nIBp*'\[aچVq.`Wf +z!=}gݡbVg̍]"q_9Uv{0<09?~V D^T8NZS#\t qE. 87 # yVz@^/6'8+X K:Ln] bap~_Ƞ 3.^aVu!3t(9w;\pxbL\r6%Z\3LQ-AgxQqqFd"Z4pC.:*hjk^DTtCy"C@GJ p8Uob(j;_]zC`;*#Pm|O^EglkzNz M=_zC0H>ڮS:)[Dki)`zeJG qq#rU@ 7phx;[&' X+0 hZfk>.hDn&gstWD"qVȗG(Dul'R=nD !)\Jr8fEHV5 +7DSMhhYm"J/5mD*2P{iBq'7#ziëmg87? IӞ}c=Cʼn#opXniV2Yvm/qʮCdذ 1 ̎-UL^@NU4Vml`iN Xoz=ƌкLMψ!}rR|O8>GERгm8 &S2z)8 Ą.ůFL-SIaIb+;s]@ny|n7#G ^G\.,<_P +nƧzrĘL|ב>]ψ $98IJ/ AJ&#}]Zno ϤahYl8[[nd'';1nMKXC*PXonm:F.u6`3OL'iӵo?ہ6=tfVėٻ}ٮy|+ {ݩ:@T,n'"JDVgJ4f $/DB- |*spp?sFi + |1ձVzMWZؐ4JyZE{EJ01pU]Chߘ7? , 'Jn[NDPٌqV5ۆfpFQGďG1E%܎]V:+1: Zũd#p]2,Wk\A6肪I+yzOVqrJ +4tNE +Q%gKN˩e)gk_RP@4MLv2872A1/iIEROOz`m;E=+{ +#P="JS)ӢǟM_Vs o犨}mq(RV3OfT|֡TtY낮EW"7\xmVXO;ŨE(%E=mשxI F8I:mv`]/k 8u W DW`rɺ׫K+^s$Lqvn7#(ܧ6'^=BpTIbzO ¿zgDJ :A.R2O6|swZdb\ŗXjˢ6yEgx`g#@p?0`լE  Qojy<@;|L8[wa~7zd)bwrpȘpVTv]՞OcMņCOGH(?-S6\$Yo!݋7] #]7& #P9鲯Mh";UIQ< ,W'F S" u?g 8u|8eTSr34i?Wޤc w)*>-#F|qMǚKcrb븧L؛0Yrrx+n$DJ=>YwԨԠhe-қ}OV=bߞ ǁA~Fr 3?|z"4w1DZgbu{ψ=gC-j$cXw]%f?Eܶvgذ,JLEaXTJ˥erNVԍ$a frDM { uր+!xWDD5du*N ;դDF~Y]mo~QT~ )<խ{eJ1>f4;G+eCAZkyQJ˺:Mac+rjhCQgQUN y(ٛeJ@~ +:A$1:&{Ra xvESPEҾ+`Bo_ +}|àz#aepDRz͐͐Ds_kw`] ah)-"h!.)Ft{NesC-0=s}KSVTz'fֈItz0esyr*+MKiWwrNq’V^l~׾.}(#h~rm]![Ll1#G}FZd랲N\~?S+ ;JE}G%lSrc.?)cs~n+So) +/wIgӽk9b p%eFW 鹾廭ZhSLб\rrSrb)Xg0|[j)ݛ%:`; 6}W(QzM ~E-$:RT3֧ D0(@y"ꐏ&",ݹ[a3`J]ma;7XXRDy%"򇈕vǧ +b0`HnRsgqPb`#9l Q~7`ëkգh~ E&zEk߾(鿳26ZTxlTzmф_ї3;n|ۖ'{tqfD0qFFE)*?Cv.8ohJQs {4 +M7%38OPkl$Hw v;Z@Tw'@NōT$3V/wEg~ @mOwzNEꔼд#9R@`V@8;i_]b~Ũ̩k/;bӔʨs@3'3 +zƣ^\vC #y9fk{e'M!C d-Lbyw1.Z$navBWY9 3|kE1zǶ͝f Y*_>AC=%+;crw5P"Vh +\)\+/Y +ҵ+`Xq_siq)]n}fT#87iݟv!G EC1{7>"ۤqz>!Iy*ʛzdc#!s=UEg" Ӧܧ +r|(zt֜z(~_|g<͍CCZPW UZ#Z2£̥#>pK_Xĉe糖 }1)gHE@#1{[-amw*,Mz^zl/`.D`]aN>|ozU$"Ko{w¯z+/@!8-: BKpCz"g'–ng*bBpZOr^O\X"VkyEL@P +d?{@s /ϩz*"FQ[t@.ĶVrm_FH** wYb'֪NЃ!gP͒!.HzUUCdaέ4jRy"5Nڞy%owbV{$Wɷv=/c]; +Z5q0BŚ&{{3!lbL˙(|!N#gcUbUK~FG\lݐu7 :,r΍|[%cSU1E7v b|O $Ҿ itǹvAy) x7ncn + x%O~綊NlwnȁT(ViD +T BC,P=I:45z*%HčjmLVff0]2{׹,lLR |d(4J6wC~ |-_9V?aT^ߋ"ow=n'de f=  Al^*RC{Dڶtk=B|Q@ -2R{9.S86&MbDdYl/Ҧo;),P!4O^u08VQ~*FuzO@ +p z4@0=>nlĺX$T}TܮXt`ģgwP&ؒ]%u"1cq$ET5ɢ[TZlcC[ohZ ͒_NtR &]O%}`麓+D$ +Cg"G*t[ַTӾ~uI&a!D4X$g1Ql +8=3'gWv*lU;Pt,*WˡZ: !b;$-q)qяw)M__Q" Jr +; 4*`꧆a&ϓ@HN|8lȝ[Yq[a9>wz\ajȓT{GeG1@jF. P{"ٿN$Ck8w4qMd ;R_'Z0[g:ӣ p@FVRڋ~[uf@q /*rtSƂxכyޣ ƊZU{lAodhV3$VIQ/0FX[$nWTZfdd#}f{Z6 @7dJGݡ98 +]jo1E]:U;UJVDUgtdd/Я39&-cTwXΉ"Y5FbX_ΤڵP:M? +y bip<!Il# +*?׫BM1ӇT9QB#+,.!'+pa-9"LkPR=xK(N'+Rɉ8RSC: $EawE(iwWcvml{e7#q*jn(c,Ը96 nXh~i;}^%·I30i E%zgznVP ,y/#}LotNF xq6x!bK'<|PNS*3 UufXm$l2$Mao$V<-vԢn 7| +Wwvnm#Aq1 AOT$e,;nBs񶻆Un ӎ̷e:~ICxH+pխsAIỎӾ&pZ&C:%I@HnU +:6H^(ߔ0'ŰAx#)Y@or`;ºN$~؁~ZgԒBVT*dgl%fp# lJ_ W$EAE+t-unO;ɍۑ¦ ؈pyR4ELwH"tK18)StaE5EQKҏȯK+XQ>J`]df8$!GZA|q], n{GsE[x^NtBW g5r!>BM)% >9ε >uӢ25C@2@,F8絖DvaWBߠ…p=+鶱UOb8 Z5%C'Nι==_w@ +t +P~0HF2c;ЬnsJp6Vb"л*ZLh +ce;IA t8GrW8{vfiس j͡b&+>B +6y\,W=J^BawE +BU:HE7ĺV)E+)c6MM䞫88#otRFSUs +*n~ġb(~Ϣg ڋi|G|/]'eBwaW,[TDÙFC@A@_*JYXt 4S + Þ঒;er(.`WY ò֢[<`jBR\k8#)F:PV7`&~p@){\\Ng,R$f/KGμ#\7܂b$=$It`i #, X;wKұ+R]+:8.pzzRJKh\ (Ü\px %ad?xxE^)͑eHk v ;ZnEgV<S{bUL G3H4\bYD[k2,BL}1 ?E0I:Xh0mPWvhoD7Iυ7`e7*YP=@o|'󮏖zT7Oo-E)R_8d&0Ap祽$y7O +HfVr!wO+S٢kNc3LɥRSĶnǢgG]ځ EpKk-54Ҭ? ނ1^s(<J HT0M-hlȂ3 _?)v2BmCqx~g1Kg;W=_{\L UAY-4K.Co0=B%,KszRb_Z;9FZ8aZq .wA:힣-/틌iU tcOWD28QE~ k"@:joo8pt2;`p{1sG!_d:gp{#ݘ9@Śk +-"R(Co1g:)f6*+"RG@F>vX8h,JޓNOTu'B.&=Q\s8G43T{]ʆ me8pA{efwD]~ Dh WleF_Ga<^ۛ]= Os*gG`hoDBy,LԀ+`;-ZNl%d)K htCQ=*(WF<ۏU\؞<]XȠHb=1(>]`fLDѓ;ta B47أ]<_ + ^gΣ!2q|gzc6^cMvudľ&^9z.IRճ=z"G*O?_cOYS$ b`WJEQz~agl &z @)Ζ~.h1%&`P'DtW ="u4t +WwZ#"__r~δ5_>}Iorى'-dDS0 +/xr%\6)u k7AMEb^ &|慽iBatqH ~#ӊnMo0*:<@PH$~~ľ=b0^[Q4B Ǧ=4~ks+LW&*|43q CɀRyG] F jpp'=^QB IÊ}(6]*d2DF>B_L~)E= /2>͊j peqM!l@G^Bc-a$3=I83OpP߁|݂@v27e+َ2^AqII`jW 8rnX+_zqkˠ6z &#мK- =뮏v Dr uSB7[SZO [oZ&02ݴ&gP&?>S6(Qy^R5{ܥrnI/(%awbK>4ܖpK]tR} 2x~9_պ'l qʋ(s:HJD+zɳ̏1edd Vz4co5vZ, څ/8?}1-j +̽ԳxINݷZhԙϖ,)T$)@(eࣖ0E~ė+\GPU6TA" %55]= ZETui;YCVZPn!-Ԭi$W!\FxX,AtUPڷψxHyS# &a3K]}HvG~߳hB:A;LFoJQ⢙v"n@-Pe3/| 'Rk-k"w{@3xǁZXƻMd{; +5{TiҎgF-tx+(ߊbܖKMV$~~ȃ +,roCeܷZbq_"+"`ZЍ#}˗X]o\%W/3 )c< +nBh&j?Gu991Ɩ?̠8aZnz +A|IO_5O_no=]n@;c&E{ʐNkBP`+afح5/_ȑ~{!vRlG<*Ren[uk;/0c seEm[)nV e.:V |l}{GY0s)DvMDC>VZO O"/W@/Q;?@[aJ]lϠџ5ցq,9Vt4A6<;uUfH<],~YdI9Mrs{GN!8&bKe> +ÔgBF0 Ci|X|4b>qYR0R +b~"8hr4xWuTjiq.P~,ll{Jl28t~@+2Qְyf9'*)!.j7Sֶ+dkOϲLCP8c!Rrt2mʱnv( ``ٹ`G85x0X~ /fvAi4LZK>o'b붕{/GgKRwl1FAH5U4t"*>]^ԃt]&Ruې0:]p=4kx =:[EMg q~ ]HLwhNz"5!Op~F\P%p.'9%^W((]<&t-bסGGrLi8xo 7y )S֍4sңk$?й$вq#vPZ*D ,,\a>4'l& +$P*K. +=PX#gN:G ,-zaJNG44.3p{D\ Z]@ +ycIXϷi?yP9Vl=۠JM?6Y=E 4D"ޡޗU <ܮ+t}XATgؾpg0{w'Q{ +|?] +}h\ajZ*$D)DĴkY M@엫%#u?yḵ,Tρ`oƻحtPqP Ô)0kh#` +Oj1ƉD$J3653r,يNu^KcŲ=Q Ҡ>%{R fPrgӓY_~=O[p89ϵnZ1ē^Rlz2#_5L7)VI9;qVw9z4:? RHSB~s@yp ۩KS2/e̢^op>m5 B"NovW>_GbЬqcwg$+UOf{L '| cﰪsdkmX^'bMVDTNI^e'գ,C +m맣[]FXO6XI3B:ǽ]-b0=Uد\ ̡P I\\U|=i|&;ܯxwHN{8 Cߣ;޶Ub:`0찮5+)/ S{ԯэ͇IH*Y,6S+xF:W3ld]rS z&R׉y>\V)5 +lo<=&'5G_2+7 fr 5qa]"X%HAjgiN:.  +>Sԛ3:+N4Q.F8Q?r,S 98(}Yy^%Y)D><9Db3Ôf:x/!.M9/uRSM΄S~ 8s%.vr\jʵǥ(s)!م\?7cE QRU+~!y<1僘Dt,execG@ "o qw^~;\k7o}F3~^IBwvpKX;!$AB7u(뀬аk&4OP| #W}O/~ߊQ݄]HL'f;]+y-NCgϔQ+X="GF|3&QtMROD?sb6 |zne0=H@D:40&ڀ*y"3i|=pWqX!S3o"1{=?7_3yLL^sGRzFG(K +"j, KgjWNlU?HܚqSS EI[ +B{-g#)a3DX$@S By!l߮t+s؇"=?]pb\%>#QkF%U+/q)}3Z5E~FrT微<KȖ/U~RR.7)&B\e"i (Eyܺ&5fb 3\9ט~PccaRl]d`Ur!b <>mLIVBiF˫K ?c +uD(4|/'k-({0scjC)sZ,,GIr0ԣP֥ѓS8K-z@(JA$ PQ9V~# C;[! +#ȝNQ=1B#A2y`/QnU 7 +KJ1NEy}s"䲻ɖcLW_['~ J:'f<"QxKDܫXػ.{$feR)hɘi/B&b +y2G~_O>kL;/^4???_??~ǯ^ VGuz1ZՖ 3ؿ̗Dh Ŵom!*&[ԳAZ?(eeY9jVd5>2z=^h0LbP,ɦ?32RGNt˓fO$/;ݶ%n~_HPbfI;tߺhٞɍ?KpECq`tfx!!-1) +BT!OLhbҘ(Ӊ+ss^ke +HgP ` =86Y]_9_!Ch(`m5fG*m- +C{YsEGV@fuϴFC~9]?ħ0j"4, 﫤ynq t%<SP[n"vN˥z Ja"@AiҮ;WaꈟKIX4م ގ/LHS LŽ/]ںe\c%c2|TBUGc77g{*C0Ҩ"&#mnGFŧp[(LxbgGT|]#AqgaDDAC Mdh@DtBrnD+YGڥ  q3Du7?/ ?^zAL2'"gmAq0D<@Zh4)DtLFT\0~\ %OMehhiUq_<P D +M*K] ".VT=W!ihdBlQN{2,0;W-Od(QB!'{:qR+~lh<ӶKiSVk 1:懿JG+w*{!lEFY ÝXrxd)Ԧ_W6d8|:X=Si&V )lbëj? T >}d2E*lVi(;U'7,5}(NV oCzվYyU =iZ\yܧQq>|{oæ%S!>pZ.f9Ut>Ilq4P ۩ԠTzOaA2<]UL.f;/5iQu$ˆk(Nq{~E,{^!lTjSok9~Pi(GQpkO=XQF{?6,Ҷ{j1Rs7~~=& saQT̹®0V'7]8K(׈RKQ-] @MģƏ35٢.rUNNjҵPsKv1#֒fMɞ80L@'(j)b_bSM{8U=pU + +͆i٠T':= 21ӤEFM% 8,H}-C;o+#Pr7s rMX`*6>{DbezOCE-kMwU9 1'Ěz%žEydt~weX/NO0FFx胩F5jgʢi댈p]B tgMDg!Uv0*tNXSIs\ +K%9\`)!~wf +XRVWh#0SodO=Uc:᭴%c kRs!ET>zF^': ?Q]ǿ.Oqbڃc}0T§&SEJ#j+2:O>ZktS"MɊKIm/=n&I/5k!=}/)*)#wF5tg 7Qld/WAmG| 500}W_DĔ(0Zv_~IJi**;U$wۛ65~GD;Hw%[ф!.+E6S&H@u"#N&+Ϛ⇧śT7_y1a;{C֢ㅀ}K,c2oOSl4{@uZkur#o4q0ÄbavF:јcHc RS8 [BP +/17 +1%,ATUK-vۛ0@B1!FWdI] =D#tMAfьns7 ;GDWt{)]|2v=t;(q2p=Ηv͹T`N%'-{˯'¡c/zn1iޣ\?'"M9ƻ]D +K"~oߢ2)&W,51 Vi-vlyI˥cn){mČvK+i?[ʣFeM` +uA2Z'W{#}xWrq1-ӛlԔ(œjװt(R글uIhi:.YixϚ?VחHքꕝc'\ζ +>'SOk=NM޲籿#숗h+=urŔ +hI2ť7& %aK~.m/o@Eգ9; уq>**xwբpt-DQ]O~y hi, ?0L3lT MO-_#~4R vYNiژ0Ew߮oQJ4$N;$zLmR<remM<5jjw*%\?K*> U {`'y/m4lͲ{6&1h +==K`cd'J <P6ܺ@n~וoT0ZY,?lrҭ'Ǵu@+:]'G +|PNaF!uſ6|Zzgʅ{#H{p,tmp]Dw|U/P̺2䥰߇K:q`\+O8#8fOJ?s_Yxf3FrA1-+_(gNh#0IjOE!Yo.^!Z  jN[޼dZI + ˄䇔gD#eѰ[R +;YN:?K6HQJ r`pա/$kO=ɘs a6 %)%]+z=T_[vB:9 +4%|PH!@s?FXGɞ 6ܿgtP9G)_'@``O=Ǘ) 53~TdE|@ƥ>#p0 +^ݟcL/G1vi$xGdn=N' z;wb{9Ԟa +(ST;':Pԝ?G{ +)2ZP`d)apӾu%Wt49Q[WSAcc8_WSpm߳L3QGQG^$kSdPQX[v @"qFU/[*{c &Ⅲ ZG<+̨ +(D`v nֈ{$#J6]\{dT K]8ýJ#! +)`*@4T⏶7{ĩضv"-A0wgُ]~vKh}0ߢZ!R lnZaZHz.^i9Z^2Hc(AW4z]_De9)CgL=(\tvÄ HG(lle\Q'~ ]F{X啽qnV +Oϒ] M1g$%dk#R%^Qm8Ӎ3]NO!sv'nY;ZBk@-* F'2ٯLn>U/ ќj_f @x@u`i[q"'O6d$HKܡJFDL%q¼hUtBTԓĽ$)yT9&u LtXȿH냀:`#F-~e6 /r&Cg Qňdt$ԕMI + Jת0%9JQdh=:< ؿL:+]G˽J+4H@h|:+CW2XꔁhsjODCx.x]P0|WSZuCy&cQˆ2sE?\i_ uX,̡6d?Sꪕ-U1y4yeYLUt~!Z`C؈/B-{uK,`aE4a[ِ4M)/lf}nLzc-Nao xje⥡w& ZJ52,1 YLf@؆D29;ܱ,ԩD`'%Kf>jUFcyOFi>I\2MJ$@BF4( `Cbjfax,^ahM+j+礚)x;^a|)\ѳ+ ɟ3T\"=AE`Ru`RT3Yج +pVmyˀbK}!EYmށ1_~_~_& [YWJғb| h]R${ʑ8*qXzT8>Jl,kv$bd+FPփijnxUn SxvD+8$ڻz+ЬT'99RѪ ˵h1EڨJCrdWМ>oI p^%mb}9ф9ѺjTèd_.5pɇ' Ya Κ9PyUЎibulӲS.0j[C R hhOc9e =\ZDs2Z2]|,*qjl޼[9i  'ts ¬GmqG%k񼄚q?IM,B"Ҕ*@Joh \씓YZƩ[\i!5SD}|بtD}mh"#0Z,3Y<vJo]WJ$TV w2IP: 8W`uWwV9}BqyH 6vſQR65{tL Uo=ٍ{wvs6+l]Ub +s?=͛&T3 bazߌ@jčsި"+>H͇Jg%&9?*NG.QZm(jͲƱYiɴpW|`5> 1L@uf-H)&W5.DmC3 e>Xnν@z{;ֽujG:3-d@Pq^z--,#Grڝ)q^kE#C~[I +YndvF؅[Ha 5@V eE6 81[s<h J%;~::( Jc"K3+u{,x5MPo7]^ϖte+GC ,-0V+˾ѠS(3RvgU(5t=B&`-RJoVP +2ST8$:ǡR[.R(I`czX[I=:Hd:h^kco_>:wW(v(Td]х RwZb@B6=cٙx{t5PhOzNֳIӇ +ߪeVaY;{U952goe(U»XB\Ims/OvZdhP#l¹aUnqη$"rELTR|,E±tHsv Q}e)|F\EB_R[xU>AI+f {)?Ev8=)0ldjI zsIKC Wreqwhx zW;cΞfl-B\XoDvS]QߍܛG`,_{7!hF{j,GgFG"1[ +B~͘Ê&Z ZnS e7?H& ^IP% +&W$`2}(ϒMIRZ[j.cvIBK&;1 +k׉Q0zތm]m4SM)+.e#*ds~s@&Q\&v)s/-and'ko[.)>sžieH!5WJ+BMa%hSRQU 0= 531C{aO =fFRJl@vv׬ r#P:cUaDZiv-^LGt G=SI Tx"B *IDHǕ} ]/V +A`ʙV;DąŅ;PPP;UϲE}zd +& bc?{א&v˱#mʈ Խ*5o +}3,y61UOޛ%3*x|HxKwS#/%gL̊t@A4U`j=@yɫuN0+YDk`` +E*v*߻Q0uG}]WzDovrYgV hN63*J8ᐑO +ĤޘVONN\|^bF8ۧCNC+y e]8iu}\bHxa(Pj4 Ă7rc$a'B!Bg,u@&Vv{RSXT-t$Pر< W&YOƽ]{7A;y4 + 8a0bx9.r~K +v +Xyx җ7$$Y!9&L>BM`vY}HCyKJI B_n~oTYٞxrtRXF ^'GTyy:.է~EA4ċ`3 +CNa(!+*KŠs=PK,hFD?D$ոTuBRR&|D%Ā@} N&NiGLQq?O<ȶ4z(R S9[͂biQ.#އ(s EԄ?򑬱"[|o4倥aDPFJt fKj "A +rc̃c$E-GJZ\pl.ZĹJդX Gq]"e(KXlM0_OoX%֏*̫ ֊WK%=; +$VuQ +3NDOOW-t 3~ ɤJȑNlF +Oh /ⲗB\nG@b:<5 **t.{Lkt@eZפjh!EU;>4y+Gdq/m6 +mPdFR!fSŽ/>TK *^b{va&+/=.Ţ+bӕP|{f>yD0"Td{J#:#8TjsRX: KKΐ#uJaL9[JR6,sx_ES\È$L]P} wfdХ(.fխq8v˭!0 Q-Gtk5AT,G˶OWzȄ>Q7,ش{MDf?u;(%Ғ+^s].96C*^p (M] lu%U0ǢAHpVsx82.*.L2 . @:JBt[P[` nZFٚ /^4\*w[e09SZGDAf=EbNKċОF2*[(C+ǛXh +i +5 S*bbGW&V#˨٦uT}*`,P.#5b.0pE~yuR/;ɔMd}!@N^ +-ܖORy/kx@Ĩ^aZ>^[" +bHP'l 9HA F:Fr@u6Fw)%KVTڨp9mk$`poe'Xu*b#4G,@血"џ*YQ7=4|TGBn + +d&t ~&tckH$F\ȥ3ZZA%n\@f%a{a&mYӯ?ۿ5Ƥd(.Y3\ [|~B9գ/A0 FE(M*I$~nD&2,fI-/Sҧ͚)s߹Czw%XHԏ&6A<fڒ<#9w63ѴוlZ,)*X0ēmC%K|ssD7D譀S]X +H2Qeb>nGtCpIC-i oQ#e7MYRB/7zxM+$ܨd8FĚȾ/V,mB 9 ωibYθk+Y>COymU~&,kPM70>jV_m` ߪU|X=%zE#Nm56t;b'X;XM=+> PDȎd" r`Q2U=5j =dZZwù +G`x!>4"} JK=D2~;hNًi9Gk#- nL'󰹣[}_;Fjo`eXD૎{Tt6#MddxW3<'&K5V]9>U'\JZ).{9l/<؝wz#Jon^3X M#@f"j+GkFԢŠb@ +Cٵ>(6 WfϤAAJܕ 0Sʿwj\W@(M% %n 7tYrm6U0BuN&C@DbL;KKڹB+@|m:==C]l6ΟE[Sw4 EeԐU `b^~ɗ+4yY߄ D +([KWetoxԳS`jAB \NzrjgMح9aP6, +"KUܘ}jpm + GnW{&D+Hn1tB{E;(!JA$Gz:A@W4a¡sW9ykE`<MoaЩ UaԻT 39&?!z)831=섥*t&uy0$anT +f.+q)}Lr t8كS!:p&"pռ ZVK*&-Or!p^Y, ѡ MempRv]WPqJDj(]ՅQ?.@p4':N,eòV:äɖ(B܅3Xy$k qq{ZMJU(¨mQ™"`! F"+D Pfg3JS1VwYǦ_H~MT;#Uc sd ,~Ve9:k{RPr=9XG,:G] ΐ+T !uh!8UxA%أ p[ȅK=tem1|TQ~q=5Da2n +ӫS񦌵t,PiVٯ{ew -e=* cI^1]TzRWUQt=M[&ѱ-(w:nl+&sl$i#('& 33U +wwk"3y<*@C\ +eij?)3h ykw*9ns= ܣmuאہgt&SS80nӾ7a諴vCpPќLkCW˺԰U>*B@<v ɷ,-łQ(Mx8L#h-=%o!`?!W9>&#kZV> *ے΁<LפVC,WD6Yw`v^ J@9Vy6ގ7S +xo`ׁxŒ=)>G@HO.jJh*ްa ۡ0xwոg&j9cJWp5@ZM1u)obGI-F![L<3duCcm(ZW7C+0?|TUtKv1l9 \86aptҾ7xF qT Lm s0G -3?9GP˙ܞp5'{,|=ۧ1.qà'/:Jv*dNG|;{@LPlG}Gg7_39lnHǻ{5~`9;\ !Hib,H.r?1'\ 5Ξ5W[[ũv]u-_|~O{.n PQXZDԽg;N&10|Y^X0ΉD$Q1O@2Cϥ6:&L rJSpJAH.»|D P`'lH\Ho +]v3?(C@[fЊX[RϠi*<_MMOuoδn:HPm ley+ލSub~@\R挲3s(ns} +;SD;V6*"T b UXm U)waX8E{;|+!]Q!Y諞a^T6hIY-4W-$,@=b?TZfhPͧjm)@@&_C#bPY@oQS,qke;0 .(x9shǞqB8As}O:2 (x^DLy[Ebzbwz,5WzA"I9(3XSk t@ ĝ$XOr[MNG4W%9;]?~*_? + +Lz{ml̥E az;6brAXY +eI;A+6TioVJIһ}oLl|ATyg?YH;,|5 205T%0$jjOV *}҇jEMT#FDfwjE͉-/ [NK&k<}B0]j&sC(rs[0l|U4 GՐ%i@G@Vك㏦8p( } ( nwpb\J5W0FCr:E b/',I`#Cg#?l۷ɒ>5)mnFa;yG- ׹:.lͤA/AGw2qri3l(oao@DY-GStRMh$cW8P| A`PmP.R$ږTNőM8]Dw;`Pe~|oVB Gw`rZnL/*>"etgf@djq>0i5 pN E^SpaXyɭPE" +}!W(P9M6ix])5&vLUw=S>3:4nda|8uh]f !3P& 2}x֠0}_M/PG/[ܗ5 ;aT6%?L1ʩy0RhG㙛,0љ' +iJa6e?:7cA[~d ʹTRlo +Ajɚ!nc/ĵbERmM`R]у!,sLJ$J%yc83W E<}3y0("Rшzoxҡ~[:ClEm3@VEM Y~=&O~UߠS=DMa2Gx~dWKE'1  X5Ey<%4+o.A3Yś3 ٨XbUo|+VўdoTS+ ${%4`<bG1/ek`5-(ȡɲ&ÞBq Zɫ %ʴp=F;uˢ!@{&ĀTçY{wx CV@L}C[& 5a #:lJsފR36Wz'<Lzdnth?.1-JJ݀6{8mo`Xn[ &*Sl>@@xYF]"xUsp $^^,ˁ v7~:Dո|b,&X#c;6у3tjRt _] #6^Mg"LX^]I+Z h4:i yNSQV2bdìh00W7܃*fz ix4a \:m5(,^.@.%]wB{[YR}$[#Mtry"gf1\JLɉ ~l>|4vBŊՔ*{Xbm*6o ŸE fo11" ɟ*cɨsk + +f ZS2nT.h(zL%{LIp;[VxwUZ>қnɵi3AU 2a-ݠ0B]͌hA@v+'حo% >5(K;TD@ (ĩҬC,ʏ =,Z!;_{/{d1@Wy+N$$vޱR t(OulSXloaIC GXP$Rl:b}HDg +7Ł'ӈbUF ^ӽ $ +(A'4+@5pwe'Sǵ\dzW;Dl=iC#c MؙPl` r|ՍHhfkl)PKa~܂.b& +<=Va炕s:] |+V uWR]/I7BL{}\YwN>{#Bz! + v+cfce3)c4SM +_c3Kf6rj*nPg@4evf=ϻt: +YGl ҉m0Y# ݧ-rmPC_$YÍ+HnbYIu.5ͩкЫ鏦JbN"GNaI49W#' /R"*3/U sI0>ve ȅZ 2rn}B[UXEB3OѿD~~~ .9{n + uj*mаZb1ԗd6>"r* +:7PN3藯WEMG +k؄cv_#.΁Qp>-m- u- I&.(UR(2]\ڏ|J3Fq];JDG,?D4x+>bZg,^[1&8a i2GX8@b}kÃqVzFy䉣cuS*Ӈ }1nV6FzED0?ҷk p 8r-@ y! ڿa" +-Ns{I]0AV~:nn$+bԗ=QMDrܽTNOG,!p8fm\IVT9*]udShKXK,ZX]!Rv`T\*$Qvzuko-b +MߓِxͶY<8$G ArJ^ހ#u;8J0v +K{PG%7md 3} kg/6on;]V]IQӇ,ܘ6?#ޗ5]E?gFʈ=&/l?!jVcaP|;Jh#a*B mžGոUҹ@*]qw<)L`.tS}1]do7 6j~^C؂cni7`n@HqLq^Hrx]F~X=AA^bÜ#48W0͋s[j֔vB؛$tgd?o:5> +JCĵ)ɯ4ad)ˈ]Lʇ.[aN C1BϡY'l֫\+&WA#SGI\qY&ׁ[]]WVgrjE$1P +zTzqĮ$j(i< ]a/ +- A,ATLVO +@9u?*Hb_OJx 29 N225E ld@w麤Mޓ|fٓ9a\,ۊs9bHFZDٕ}Eo *W: LobBFWT.-MN=XLd)xX8)"\y(:zbpV{ DԖiSƱ7)酛R<-m~5MY|b^HȿL̔&Wi슢r p!lӑm^gZv ݧ5ԽÞyXA!fvER8&6'b<-vnpfQǤ(MBZ;^_Ta{`wH5Dla{^S!2s\%j Û2O~͆Kg<C{Wf0L +031|`zyL}W  =h>-Nְ^c8w_tD 0S#\/Co#M 4#+P:* ܉a +ǬqE' j<$STۊv+D +hzvo 2[+Rn(lZPt VG<+uϭƻMCv(GwREFV}\.]Hot*}^صyqY^(m+ܪsG |2$.EtPxLx3Hą +*%6=y)"qz:tPCd ^Y@3^+ +i@r5洔 2!1"`'g |J40rJA:Uw#}Eo 8.G<0^%vLuhC;ǍZ?1S9K?$v.ωϧ)!GEkN"qUG7+B/%n]VUlV)ζ'cS)H虭dU)n@a $fUJ[Ju[8h] tTJKY/҂2:~D}?GC*^P ^s?Cv^ }?Õw +ZECU-L'EE_g Ye{~Mr9D1tAY\.Se@vgZ*D {0b/tDX{s1\DhðD8Íȴ3+@tb=!_?1Gmgr,AUd-_.蓼5 ??T((Vt8t#S3ۻAYm?w`*0LII2z&Gj+/ZI @ CJX\kU g.+i+xAV,q$./]ӈϙLzP<1y`u{Gw#aǹ/l @S=w;\/@sbZwwUbe\MǼ0#xs_ +GRf 1ZM [gPע l搡} _zS@eP9V@U yvaBu6p-^x0 7_˓t+ s0A`J6dpʢg]Ĕxp-+&kh5^zed&Sih\c~Ue*9Nxϩ>nM:o%б2#.ψĈ4o=dq藌k@ÿPiX~OD)=bȆ फ़!ЭQG]Yd.u-웒9͍o [&B !87;k~9޸iks؄18SPwù#.m?#j!Áf$9B@\۲)ݔ;?/Ll a\D.93)^1ZrݾgFyk%4Dlj%Gp0ȳ>!$ıHu%Yd:t`p) _#ÁMq sӡ =Мرw= E!Yhդ;8sVn<ϴ]RYЫ} >XQ^F0 ڌMvUd| YƮZD{n!hnA5RB%A)~Hø 4sDyTd?mӌrJXE(; Fo$- /?.$ ]2s~ßjO G ÅWHK] v]&3"Az x+^"'ju6Źe^by fHv} $3p<\JaO {|D!3{J}i:]Лcrӈ=3#J0;|KGujk,ܐ?~=`$mLZ QP`}/dhiq)4v//A r㍉Yf2ช03)A}"S~&Zuل}@XQ 3P~#/([U7= }SCU{O]k+xs`jQ6-4RvAP RdIFӚw=J4::^-N' 6T 0gh[UYzmdsCht (PpS: Y`Wv\ktD/ I<0çt'Jr+vj}yF:[vɇ +3ɗ(qa4<ҩZuΡ-%e E>sxICقnt=R58!eG3&Z,QB}xF Vcvo*! .̈\V=ew-DO{dq6`v#%.r}ee>kV06x㼘+;&MD°hkcA m'$T\uSi;_A <)w!1xEva<^+%L<,(_mWN!K@: 3M'(“18Kzh"zZۈBCY}-W CE!32}^-n:t= +"q$a zj>"bTTs;s<<+@A+@??sj#O@'׶)&֛Ƞ_}CW76>6z^o3oeMd!2b(kt-{ #ݴ0I |W0[Qw98DĎCW"K~Q$*E Hgbuqű,W-D`lEW xi@,$5k{$7ELzxlfx݉FniRwm&%%a WD +0i؎bN h}Ň@aꜿ +Cxi΄(ax_grL`DĿbSЍWB̈;?&ܮ=!hSyǦ8 BwMLg(`8-P=)b60tI a0#z_X҃zž#E+Ԁo3 +E!✕eq13T֓QPA}갫[k~˩}MjX[v&=ç`dѣL/b=(7/[^!O00)ȹ=iby|>AJ7?7}vɡ/ؽx/%PMiiv2I^O+7J(j阶}b^dNN +_2G쉆|s0K_k'SMOe4ኊr / " |)$j[Zpȳ !#|l TM2+4꼿EG7 % ',Q =Sg֖h Db(E7ʫ(go IhmGЁ?!ZD-UpJ~' y0|p9% ! g?`jnu +ۀ$Us~ Lé\Ph>yVt txJ,LMxU &my*urX%W51 cLU\l@6\HtX"31J)ti/ϩ(QWk;(ZrTOGhehʼn^Y;?yT׺n֊"howW)=%&5Wl[*P/ethtk{Վ@+p;\ä́ +HC)q댳#<<-#'bTS$3a`MPYw k3dU0I#oB<0TUHKADC轶I  t3vJ=Ơ(!.vlÍe)e2 h[<+h4_ +T'k/?([& q$*uѣP?am:Uv{@a^e_hc! +2pWyURPe$9Fl=^7p8:kK ؍ d4qr0 a7HQ+GWf 4>+OiV׊vg'dQed{ +toE0L)£Q 8i:5XAwd錿[r^Hd<*LjgЁR˖PJDXIc2w7Fuu#B]`S""TiŀͨeVۃ5Ywa&k;Xj*x}Y02Es`jp5gQ,#*r&Tͨ:mH޳9w8D>ʈSn[ӳDQ.])ߠCw8e<$Z30+/\=I1N"BNFvSZ^yI(p4Eq`EPknMjЍ10^98Vė2r{nS#{KBuQhG\<̲g#w_]m>*\G$b 韓Tb[᩿Yxy.JVZ#wmx:;%&S"3 Fn CT5Qk~;cQuz˕zka( ̙\EC=f7:J޳łբ(y{]kx?-ɪ6B [ePWBt dZ~m}n pU͕N2s(5ZCoЫhɕu2]O:%դIA;2 +u|+p)g(ġ5z(SZv g^sD~eRkJǕ=bwߩy'"W;|WrYxm։Ʊ5z@EyIjA2LBw2E|IPZ!^M((NaTEoU}Hɥi> +hhjVC3.1kܐ ݾa`]'D2CKIYd= +bj"v-bl/Gm;%".r٣?v."&Un< +%v34~z*u>3K^\>=;FN{pB# vnp<洨L8W +Al$BY9!36k}%C& hTQ$lo"Z(-g%պ#$&z=3F½hXʞi@SGKmCh'8ܛȪ +rr/ZBuAwXFz<(CTXYA{t%Zm[ "{H,ܰl ,-*3'}ȩr%N~ư +^o9@(P:rIyT]뒂f53iTWi(ʘ>%j!#`_ϙ(|"9lM`Y&_L +\p .|!ęaZuF#Gb4=/y׵| ȿPQXhh~)_C~3]S7CO?x*y~^-G4.!j&ZQ'w98XOʛ.[|mn6ډιҢBDVol|KyL\mL="m;@iDxPȝƋN!-3dnɏϩ:1YE#_ݤQAa*|$kht( +VTdٹFMUMUEaYcil@%(Q& ~$FxP;*G-z27f#;32OoQMlK3+mwU{b/`Wڶmh;ڱz%W)TB!RrB&p ClvWaZWAUxL㭞"l&esQu΀"8 msI=ayt & 8GH \hU% DP'>5X+)zDh֢8MY͑^qE =:RҤ=`MƜfcעkw6Uց`8vDV%6A8^@(-ӵOuy9NώBb93.1롬[%i-עaaJ5j +i3jI Ut_|џCUlki +*uzmy8r}=VzZ"Nߎ +oiԒWmuV~_:P ;bH?gFx(aRz c(;uAmG$̊0vYFO=HP$]ըҭ %?R O4:_7AI^s;0:@$u& dLxWp +!+ +D҆Ҕ(`٩UeÐ]| ֙͝^zjfʹ]N{Eםģ뗙Q<=`ϤY4b7!7g K+{ؠz1('nC _\CU"- Z H-gFT=fmŒV @k+効Kϊ]\J|ێb>_ @öyU"@P +_+M.A~ʺrlUqZ(#S|U6n!zc:7DdUn^_ZWLA"wQXSIW!G*$v5n/)`<~JC{ =kX-[w s1z2OwrOxt(QJR"[.Q(YMb0|eN:ev( fr _|R3' g;?NZ *[UcQkvmUmz- F ۢւdT0ZpS c'7^Z0C?"&[fƥO~};Ю^st3;n@Ӷ2@_h?*plEw;3 )ܒHxlЦmJDq${l'9bNΘ. x)b 408<Qn3=f/n4s:q3LY#gȗYyO@YYVm/Kwf~A%^2+A \FF+\٢JA$3"ڒ(q쩒Cx %i2vL TyGuFaZ&@<ﮂ<$-9.0eL 6g@,t`?h6bwO2Y!NWr  ňLUND 5+ʌ5:]s 'm1cNbz9= r[a*Iप#Ww*ݮC:B2R$7X? jnزM\P(5ޙ;4SmSaXLIvw3tWd]q͎r?R|,ZQHn Q! Se% IɜK.D /b!QaR?:*> +BtQ:r3RFԒchpKDKRTNͯ0!\<2erۆ +Cev65 ێv]`HܡZ?ӕfB7c) M_|$* +L#ƨ=o4\[*C6g$uUq|3E43p%?`;XRhs)|)+N3 +CսW1HQ359Xz+m^&=64 Q^8ؙ_ ݰq}8aҥQ( p1|%p݉+7K"WM3\n5IM/ďcDߥۓ_ymH b1߫ck~T^r 1%F9̌N ۆ5r[ +;R wH/Svsu,E;Z%Qɚ5ǽA%eD[{TjImb4-/z jw?sF u5QQ–7>OK*</BqJ:f MP3Cmq0`b4X-{ʃc=I"wsE/)J̼ôAT^[e.L;Z7,OwĂx^c0u3>zjp%z\U@GF>\?KƢC@وc 1yf1brM@XCJ! J U\ EՂuA>F,5G`3@pi .ƽͩi#]O+!T uHOq %:S3&=}`=L +3΂hnq?#@yS}Ys 4X%~IZ382jMurmח*iBu1I<@X/(( xUpaF2uȆ!׽nSoLyrZ,"H7xtdj*}K+ql)8&/u :5aMRsCD)xX=+O.CjNoFg$5KvSw3xt }VKJHDSڟٺuҏaqaHv͚Ίgğ߱ÁF%+SN9HK!v_^O='X6W$^aC(pSIȁ5dlqMXax T]|}Vm"XODroc:}Ƴ0]06xcKv@%+sg$爧*"lhPg!01.}2"֥H;_iy T8ՈҲFdn_t쑭.*xV)L텳j +$y`w=?րgAǶ>"/B l# 19M+E;*-,rugicbȍ "+˩iuI1fdkWano.#^;s-#OyJDtaΧp5R`U. k1εH'MeXkwx.W2t6LȌ~@`hA |wؓE&{j)E jJ%͕2mmV|Ѓ 6IrUs߬$L~qwdt_vmgѻp3bG_"a) +Xhgkq$K+ZUTnby*,#=,&èߠEbt$Q~M V~#$Yd O iNMO`8 q|`L}AjTmCaN L*;uxX)#k!سhx;1drOsA˧0#? +OFٽͤ& ' Y Fޫ|" +EƶFq_f.TMJz!j6L\}`:ӵgL +JԄBg?eOh>f4}=W1:IUƼM0ul)D@]aR?㡂{+mP*Znht#r +F.Q]u7%-B\EҎ3(=XΜvA!QlK)5D/AB6Påa:F5J0L {Erm+b*/`J4PԶ*N_vA&"Nne>   = e(ybXH͐~eίDd&Z̰ꀒr}j0r"M 5׉xn.l3n CRSABڝBi x iE,jkF<# m4ZTn&z{a􇰆V:ΩeK=p]vm][kKTd(PYx ]ԵpBEoM0UύwE,k+Sگ^1vupsZwtnGm/U%dmGrF&BCk19@CSn.u/cwJ ?\RQ/j !jn!GA503sűI`ꌒoK&׷%L4AaV42/JN()eU+BR+_? kY@f{̫Q* wI3n*/.o⼎ק?"(鍀أ5_(iXo38"|[LʸD-x@eΧ(eHFs"c_k6eGip&=ṟl5o_+;W튵*M=jW"*J1!g9;fp TVȺܟj`:_ۡASEa Os+rD"Fk][o +'M/`hc|-m+Y^v/Vթݪ`N%~ =;{Ae]}hTW9zK$DGj%!!d_V+s3ѺNࢍFt ts8,nHas+#-`a!6mG+8u+׉*Ͽ{ѢGO L*hޏ#p)74>eXDJEyG@"T۷fue=,YU{uDT]&-w3t:xd +XӟBdu|]=_:S1 y5nRDe%GT#~y vVmAduݓ'$6 >H$=t{v+IKe Z{OJO[WSJPi3”'}:Պ\#@cKȨ0ĩUb7$B3cDMmHKKO=1}ճ@9O!d ]a"n5Ru~FdI=+N^5O*ȇKov4MJ"s$qDmZZL* VB$$y )u4TIHRgg_G-tP+1e<@ _:Y)2c{LU˖$B׊&CuMy( +X樓l$F;As xs!A#V&7XoL@+g u5@7~:`!4`)y6D-}Ov’C2ˁyVZB_ EqSRڹ(C71l;牍.=I PU-E}aw%T[:Yռ4JyPўKd>stream +?>a8c%z Q !گ.Q4+$c#W%`y40Ho +WXeeCF >Mɺqi!Eb+o쯢RN[z +,Af14SzE;TQW:9Csك9:T)"|]ЕpMR88U^˕ɒI=Ж=[Q$b} ]@D40@K<KpB`w!j}uڪ#w*N {D-uݛYAHҒfN"к9-"&ݹrz}L@LsulA#s9 ^2(؁lhb= +s\/vRfDtйwu W( [mKF +]Hm!3X îki>w|+W ,^ǁQka"e%?0L/_3MNŵr̿IW^Mt؟fxѕ{a*ゟPū\[sJjs"0p=cCECXfG;oIO}m`1/#Nhѕl +oCɮH6S>F:'.CLvdq(NmDCGv>j2 ]e?!±KqCͳgġ -+ +(Z{,8JjB&Z2YH{eh>X!e_΍},ZYOcnQs;BHɓ%l"(`!i)#n -F'UxeeÉ ̮R\FԱGQQDzyѲ\[qI݊o]Z65[bhEڨC̅tG5.maǩ U݆x!11Ӡs æ.x06 Җ4IUt Q3ދ߲GTT뎮")+8Kzc6׈ ja)ck:Qn#[DPћh<@mg`LJԵ#]|l`=W6_EV\E;#/VUf;Z psK]׏OѮ:$wbY%^"XԾ~1|K`ʊSK&JtNU=+ +l-IEL#&SȵwϺS]?N}kОJo=e~ +:UB +‡u{!s@ZD>#x?}7\k +<QEI` JoYXwpU\A݌C†&ЧPu S}3ST-O'q3}}3SZQqFŠ}6)1V0E@G'dY)BX\C@ġb( _MVmh< +"YΠ39H=Ykfpq!8Z묝рHQ*l*빿S23bUL ,VnY_N]ߣzuY?9oyS}=Oާn3bRM3OǙ>8ԟpW#bkuz4Xm`j|FE1j}[;Н1V5Z?D?ӖTַ_C=>"=HLc-TVg֜hCx$VaҌqo{،hTsy5={4A.sڥ: \@?DrJ)[)۝:WcFev^SY5߻E@M $ Mc q;RdR;} p=h$Lrn@yƈ7 d}+>ZGb 2/ H %7tbNHRo;4;#9eΚb\8KIQ7Ÿ0ӆSĥBr~} C +vg&#lu"0ϗ~21QP 郍*;TE}/VӰ<|O>GQK\OֳiOGgwfL2?ci!rla5iͮE椛ةi#]iǬmXb D}-PӲ-tM!/rm~T<$ˑG9z`Sᦱ^(Nc#{XZ.E5ց.ɋ+68;shrLLzl5+VFTZ[ Y:б +`tK+㊒~"&^NI1\1)ܭuG袲R<îDx?4jVrVa7?ALw i p&ݯ#K}=+~>U@F_CifuD'{*P.1יa@ٮ +<.sBor(<'vjg8c[sjeo8Q ^ypSWW v<.g^%=Yj,Pà:vu*c'O >{T 0X{x!GOMb?A,Kಝ`(0͍&6&VTUѓecNYwx&^i&J 0b)vz@ƿxbDt9hN ?jM!t7_*xo>jS[&.Z8=JR&WO=~wnke#qwHI)Uچg,kBC7})"{SB|3G05 ,ӕxdZ[@nݐֿ ŠS 2 ͫ9Ց(-sȜa "ʉi'-`L#PGn emni/T+[r#7Xp!o_`cW0[:LW~5 EKmFTp\LyqZ6Z{{jFtDb^5%BȺ-E Zz +3Tp8UW'0/v&J1(EU6q*OSm2 ą4h%JK߸<iZaG1g(&@S#:O{K|nooJ#=//Q pOS-jF C8r"6T>)?䯿^!~ +F3?D yG3٩s@/W[ʬ`*~m?kvXwrJu %7n;fuj}V!iZq {OBOƒ{ 2`Uƅp1n/ E9U(AWUMihBEtelH))dٽtePО?D(\ c<3(+^d`9@:S+C3+{8S+JaT3W+ƓUi'DW"@Ưs{+b;;'Jo1O)e 7P(GE_9x Ĩ&αȌq87l<1)ǪqwIl5&COUD=-bx +Ae9Q#O{P)?h`N=*)".n#PDnY) |ӧd]BEy{y +xUX { k;k?]o㯥;a )H!@K gG]"{*օ\Ywe*N2Se<5T׌%ϭ,O +3L ?(+C"+^p"Pݐ~ P}i!}RIcx/mc_[Lf Fz0^/ - x}!bT?И~=9oE% +JX~K*_1Z <${1UT/KjMa,:6j?֭M݊MN0p=tUs׊HT V!:?WF ->J@ Yy9d˽?@P]ȋjPەk s8U a4p֠G(zB#puхZH)"bB+Z0XcM d-+VT-)h^)/Gr njLE#zǧM]"5/c 4úvW}F3$@+!\Wj1n=aW~<]Pݽ꾇sE(2 6SQ朮?)c0m]DkکKL;gt,IKQY +7 "|@x8;ia=DWS?#uحw{Z«XKsaĒ&(18o?Ʈ'2 M; a~K (`2Qt뒲.h_m0% 4Pfp[?ofR0Xx]eDOv#NDflJz( |=y`5~FF,8bt׵=gih]ˆ\dFfeHQG}5wtgEhCU}57;5x_(Ĉԗ9|>'d{"wP5яGҹAG)q?gR\msQfԈFD1l2O=_ +0c\6fR819m a&Xm6z-;E(U{]"0f z +%-"4YUtw |,4m k" ڨv /y)~ED80`{N0{5wx +7ơhCꍠh+*q\AުMs?t +xh wmAk5FČ!2GW3VHeUz`P㊇:/3뗻' -YR6V7-4E#@GaTg<:.%2Sw\%^ӿ?tz +;BO%FmGVƄpemw2tD +֢B*@F>LrjDSB}Aq)=YMu@-2#5UQZ +Dqr +. VϪ;E|c p\eNտY2p=.VUQkYCPwr`\ > Gi5bRt%5́l7:7Sĥqͩ0`Ss&B׋Q0!҈DDȱ"QcaSk/늺#ؙzw\0.yVtH"^y("x-Fu~fn<+dst&@b \H?O +7J%Xf,Wp-fAQfH t(eNKϬ7YWLmzQFWO ;aV(N_0 RqTO .j 0wWyh3p ,[/ 5IֳG5տi94NEFL(#ꤓ.(L 8~o{#pPCp6RYD>$s{su[o&w9m3dm钺1GOQohv +[Wٯ\Mkcpٕ6vSsqG4%/^~NDG œ?;g3\ +T^8;DS0,!BAVԮ=^_ipBZm;@}{7HZnvh@mXJZ~Tغ4coEc>M\MܠU_1:ZϭQD ꦎz +{uG( wLJDV!@^-s{E&\ +C+])]XoVpz{wlV-wji +* +~^gz݋Q1 ?t` dG%9wm]?S{C^v%3nF^8Oib$pn1lWza1pM Nr^t㼒Kb^9PbF-+:g1]C؋nO0.wG@a'ہ%*ҜslqL@`Sy5 8% dY-߁F}|cMR'tUAVҹ_oefIvKW v6/c-T;ףh z2IUsvPLK/KɗsE!_$m7QoV2ŵsЃTƎ +a24EΩfоżN -\xz"m^cם+r.Iˁb['TX-*FBIǦ5냵qƤ˞ + +Xy;+qF2Of?+ +{er]ϖc+ý[I6MނL5+_[*xpK_x%Ptxݹ zMUAS':4 6 x)VInemCl]_CR(HM5&I`ji$ į]=FbI1)&+x![H_[WY5Ys*spA.F9F5Q\ Uc+|\^`Fj{8b0MY~:~`F!l#xv7-`!SVsT:ЃXKS^.uڪk aYLwFPEI9 4(փA*׉aH&qoh>J'dOЎK \;m)_1@J"zFa|4Ā*:ˆE.2xt=\Eo[\ͱ9ӥڗ/7b+=4#+x2v*&xu6wN- U +}YPZ V(ʱ E I3yw+1hDFk f(*&f֛t܈lϷfo^BodcMB,5(ej|sշynj l,/x[50N8/SWqC# +*λI@ZS+d:L}͎0&\x0:J ia1O#UGހ^y*}px|S5rUr0m ܊öd#L)=2u3v<%e{6jϑ+gʟ7 kcU_ϡsn3-LqxNpeQi[璉+: XN+ ٪cvFa+ +s U0MįIu޳}m? ,;Kne)m" 'B"Y @ӬҰーʛ|:qvAx5C]=. IK A:%RdrV tZyb&,AgdAj[wyA.G9 +_>mA:+kLZї"n4I1ԩPxjBĝˮ4Mvw+{(k;1! O,DEBϳ"h4`cUfU"Vh#tPDa`;nM]eZgfީ5ְHȿ|]QWD!cy y +ZOW{|[ukpsR +v(\Tl_N޴ULY5hC /!B*&cȸfn_i@FBFM8YDb>! +Ճu?Φ)]Kh`Q{ +cXE;жT2d(7/3Ev*1fJ' x9p)bJmJfb<6e6[ԮIRt_EgFe%̴tA>zϰ$lx_X_f񰇑93rl{cņ9/ڰ/)TFu#Tp@lHBøcԔ/ccrTOUXK@DI,r&¾Wh %y C^cpw9FH-`Pɷ3u¹(j^\p o +6"Sp$Or_v-"Yj&IFObۆu zf(08CK,Qx6DBKEKT *eիh&!giD鯐Խc;]9dT9FSs 'F  !xvO(g9ԿcXW@وWLPq _)lǁաF#7dd{c;Mhv;DD +LTWx F7CG0|vA#ѫyP<|Z1\\87 +@ˡNZPhaZ4t@GL.OIi6-iJ*mUC{r}{T +XTeLX[fEq;P@%pYTXmQ7\icMDT 2)D#r E] ω l2 +/]hd)K|M%"+ rI өxIQgNINJ|V$V=Lߤe*R5Ά,'*>f ^7>+uǾE,LWzA[z7yu` {'MiM ؃8ZU<ϙbzlEN"? IDGΙ}^542O: EErgu\>ry%p{T(A &>Q(I+j+~xٜiPQ4bl_QLUb T/ YAzI^ɣ.x" H-lsj ن%z:2*f#\QPqAC@f2C5XR"')Y_ukyeZ!(XwAPib:Q {gBgvoW =7Ty5s0T"r4*$.V!:W.!&>RbhBO n'³Ti/睇,C#Bc=hk=@qRXǾat0~<4^ٛlj ;7j +ڢ&QSZT: +%9j +X˃cI!;R0 +hI,bJTװR9b.2]Y]2H:#8:2ed~?;AUP>{x)o!-x5j3%*/0=ΆQ04_tw{ѢM7U8+hOٳFgZDYazU=^Ȝ4w:fiCKOZ=:jm[#PUuSkh BI&T# ܩ]Z% t)9$[ Yx rXL%h`a\f(xL/tkO:y0Kv`[bJFA'Y09ÂH4̽ȡ ADLe +30˛Ƈ͌Rÿu*q FtdOXuqL`jyGDA;L)/h[:DߔYf +Q2Bo&t&f*G(dL-?,kDsEIeߨ>+L.E_p0 JװǯD1 gTer s8EpכL`QzUx]pwy)#EWe,"xF 8YxZM'k ;iD XSX~՛t /UD +&sJԾEueAU;PCX H$|אUߏc}1`cѥ@һV$u,dݮɈ(5n%^a%r*N!t N-먲L La|ܼon z0_7hGJp{%{5tE1!,j쩸>3 =y6v{8/ 2QC0b{QGDtU\ 1Ul>GՐ|qӧ) +TfjDCHn]K*6t J">IGelJMoZ1Ow~}aZG"paүrRB6";6wTLإ(kW){_X窲Ơl ?, +)|S|(hwC}Ϝw /7Z06!,CD2eсu:Gqs3 q1Tƣɧ!7JζX!$Ֆ3B%9:AN_sȲBEmpfTpp f[ĺe*yyppAV2(ev#9U} +D0^IMMw@s +>~hטCc ^(A{m ~=DT>i1SxsY\5lC25z&̎ yP-`%9r~?H yc `Z0cbs$wMrbe|%{D$)2y$ގce - +=`p}C s@`C&0AAT:ELRHi}j^^CK8U4̜?0,m'݃M1Sh,u3Da E;d1t!bH+8 + R %vua1#pF6>dBE 5ۻb& ҥ@~,)fꁸHz?쬣P@4akqj{(qDqj 6#|;:v 8- Mk\(\;TV'l15xLSw[G92Ytv#:}-O P U{ҩOE. ">6[NN$HZ*ש3 +:fBIX⥥m:p6/3Kn#P 3#dG | Zv\~SXBQz`gI4 +*VjB[=桉D Q#F͏RL 7iۚj~V<$pPQ>pe'iY_TB"P)5j6wb +vL +&}Vq~ ^=-gś 얩nIcj -ڭ!ealem O2BԎhGPZi3hӳG0Y)6TE`_2|ȃIqjݳcV`Rkwo%vʔ ~QwE LN2HrH7"ElJrP%P\i":ʔpvZ{wBvX6X<-{ E[pS'GP ׫g[lka?)E +D2Py>K$ZX;mNR B.3[:>#`~!{+(aCqOqv +v,B 8h;h6LЧ[Z:pU|*=&OK6ʑVˊ +~(2Uֆәxf%RVq*AʏA[ xT^%,9zg^9[ox]GNW>;m5zŤD|r}5C~6Oŀ9$ߴtK+g|sD4@s_ Kɪ5>؏|O*Uw6ۑԂzs25@/^H3vŒaat/ 0$&DL)1nwlsʣhz4{f Y.fW?98'hTZ5).ʒ'b&spB&b]Ѹ]'z찄M`^rAӦ`KTLlȈV +;E҈{zٜB TƱRQ1K"CӴ+ZR(fπ:2ⅥnaqJ]b{ A]\}ٵ/vN[bVԕ ң3B6ɯMbCs$ɦR +Zػ4nj=A*}U#%1)'< +2i=6;#DsnȊ6fs#AҌS{ +0-L )S ,p'i'{*K zSA LOV#i h>l#ȮQϦq@`z֫~' +%3CCm{f/#k}8nF2K~(҆k^+ SafWpO1 +pn )pBTĶo/ uё7WZ{Ĺ|5PXy?Эh +!8vzE"'W +fgʲ);`y/Wl,@, T@UY/@X@I9c6%֝+\wR/UCss(`!j3R g|\KRdفuWiC8bW 01E(Joa +QD *+dNV3n@%_2K%Y@>)#p&Wti]߲,%dLF2ڎf9z4D[ifu"*D*FuP#Aӂ+nŖsHlWSl9U5EP*"nL>7f ('H%>%z_\_S D ))+w{ ).ljM'k# +_04)F2+zR4pTͱ?H8^! -Ʊ+b[JzTk鬩 +wj(z@/Iaz;nT*#>/oa4TD%C`2$z<Xv͹wSNJpN@9!0m`2"ء=L'thyj40Z˺ ;E]zr*^, ^r6F-Y梓@#ѕ"uEeT'Q4"t?D$E)A~ kbd%=*:֚R3N*`xh6P<3 3jPdE iF% 5k &R.}~11IXjFѝ`P@'ueP^w!d')yJq")k|ũ*’8Q |7g6<w+rU4B tsl(9D}pX9<vwq˹:6%KPyRT%χP\QB69d lϽEJ6.M4KWV8fLRBjOiCII1-20O ʥLT⻾_[خ[mݫAM|JUri5Ꮒa(ُmnV*" (+#XqP06p,]p2ӂEiݏ"XfuQX9p.Ϝ{Qa_B+1QxV7= +Fu|i80R"ak /If0[n!k8Tl n*Im 1p^4G^o7rIb:ؒ +  eT 30i@.xwPfOqMy=t!7c1.20AÙϟrVAͲo'U y] _ (2-!;Kk~{Lfx.YM מL7s7U19 +g殉]t2#RT(t(gYSzP[p (0"Wt l*GP4=9C-#b y#?'3Z3EZ[ M~hVHb?,zq H9G\G|Q17;-kN%ϔ<ۅu!_:}t:lDQ!J"Pꈫq\"'d.2uNT t˱9;}f60ҹEy(! 5,(P").I\Aq` 2@-Ȟ.xj +WɁ{> py`\?ptp|T ^U(tDRu0h{n>1|qFB\]c+D3q.A43z0WW4;GFY9)w\SM-S>XQpjݙq-cfK hL?̞cɏV|:z_Z?a:@^d +q>T5dLm?τBX7q TZ* o;9+7cߐnqd/R/j[J*KEx] ++IEQGR}'dʬ[w"`zntDJ- 2 m"/z@>PCE K־o"TBE4.[k X1k@w2=rVQ(SfTڮȆu& l,0i6W/5) `V 3\TؐAZ[ӛ|}`+C^_TQ=?_I???????qswO~~"=*) +_hðTB7qK;ըo h]`"́ÇEK`m+;C46PCсZ1UmJbJl%X:KI'1Jv+W~PR_C֑ŏ ѽ=<Ǹ +kXD( +_ l9UO/95oʄϝ ۙ r@G^j2=ބ,K,5`?Vh(Sx װ=()NK-2p]DG ;k3FB-ү'-,z!)@B0j|TCviDwJЬ8p {i*xjȡ-Zn[K"WV)Ύ3 t)EeP.4HaYt;_6SQsQAvpBGe ב/0߂2ꛀZ$pX]́þ<]A9=,˦C;Mk^}' e)\:{樊<@xdvDԇfB' > XmWbC-ن>t; 9){݃S-`>4舱kmXПJ%&@_q2}M܀Uc.j'gk%ݞ;H,a택 ͝JZ!-ZA{Rtn1*PǴp %fcR] +O{tlG0kN) F; +]8xM[ϏΒ9KڞJؾ?gTE~^;_i֡'-;[E#lE< Xc=I<2{dח-y,Wr3aM_7I4sfsI\5@0uN3b5w^?^jVQk)r7Oz13fVS: _眽|+xF ũYKF9aS<룈 +c-L\󉨂JxpwpSE{Si8-O]Xo$T=kBz&b?.(eG7Uj}`}+5ɉDr 9K,11(cwHEqW .-f#+*={YְO::5 Xu~=2,سSwnݕ'lŷ I&/ػwܭӎ.+|d +ןzk4 lhYΡ<{E2D:m@=44~5}}?f5 BЖBf7z?~͌{'z +}Tgόr>Sq0/|pEsz}CA&TBJo:>yEBlOeS;w_igvHwܿ}BXwzK ŷVihս?60#VPx~.]Q5uymfY75 +DkOqq{i +}(W#8Ǔ|Y kn"Hr,M} 3Xu6ީ Ṃ P. ;"pkw$hiP`\sא 4ÎXbqM*U&OҫԻgle#iyWN0n(M̛om߂Ad6g.4AmS4t .dob ΰ+ $ӓEutb}K꿾zdH81Ś2ZHʸ@F-yڄJF)CJ--f峉oQzص3It40(@ߩ#ՈSu?sD4ْjs&a` +U.@=N_f֢l5OI:@(MχJ5[k>^C@A Mrl +k$wiǼNUt0D qd2~<;=4By.ֱ M,Q_aP(Ggtî UܟE%=b xw`:6f>vuoG0 >(i\_FAlZєmk`\xp胂 òVc֓bJ[!]敼{Dg׽uj;ITk1$rM>/MS&CDj;ہPZà+GlG&l{{b&5AC6i>^Z."N'm*&m +Es+l#N%##{ŭg۴AH6+y~ *T=Dg۽}S &W;Ka #7 }Oء9!,u|N{AsJ9z0#,̏RK|,ӱHΆ:S Ź wϏAYЙp~ nA7FӤF=`wh:-I95r-ޟ7Pg1UK$R_wώLtVܙv\ v7 4 !ڄ*ChZyoDGeHwA#bNY3p FO4(M΀Z܎g6z#HvK4{ia3w2"E _)QVp?moaejFV4OU[l~!-8yj[ሴIBb߽P6G}q'\H5$r4ϟExmX`XQq]Q"-[M14R G 1EQ ;!ByY}D6KhS)ΥV r/ }(K +҅H6"2IR| CB: ۽@$Zv0r$ Ϥ3ѫDŽNE1O>1]_aT6#ulEx 3PjXp,;pi-v{HqluVD8flYŘG~.HhN-Mv݀VxSd$gOp~RI_bwA0*!eT4a&Q-Kjmg8aRB얆uS֑%2ޓP| Fy|GAy$EV;@_ڄϩT~;O 3^!+Ч~L)sa.Z(}{ .1G!'HЧW AoziѵI$W@Ptwu$3+O80>EOe7X2 I@zL迂W/*koH^ ujWo7V[T V)F *V.fJ@gNţHuFw HLJe34X-W!Շ"P*ؗQwQCSBHROC,LCjWTa>'dHfaQZȲ"p"B0~GLZQ吭:])lw?1 +z=ixp`oȩ_ %#g,* -" &Vtxmu]uo39]V|FPBΔw,NTii +ʤ#ʎ0qYC[@|_P:P(mP~3*\?H%0?Z xR"CR;>(h87f+3@>%u@;Cףn-l!+v,i!G/=!Ddx߾VZt{kоh@ 3T{h|oyXs k\}Bj!AzӉ(s TN4@*W1HSF2_8~|&qB4až?,U"@GEԸ0x[0;[ N(.Q%;lQxLmwU4Iq@m(=ܠ"ԃpHL{#wm f2[pf4 %?aهa^s}4RXҸxF/\ pU83ՔgfɡO#?K^ nk"à +JWTsd =pN'xmNxD:rmWJ6B>p%@n 2@P,̞aB]O]W\RM׮qIw:dȾǪ: Gά]?v&)?F0p`oF\\Zȏ}sNHi!2&0,81}ޝD;gpx_`+4sX췡|rd{x;P`r bIjQooʩ` íZ~lU$,%Lk 5e\7 }\Al̦l|WbOl9:}*s6bZH6j8=,;Do +jqpkl5QF-h N/8t<=WRiǁ{E|WFbSRb㾗$`a4Vp{D{ :aZ}zoaW')K6ϴMٽ/;x~vk8*K,n_)/w'EqTUC}{,(y$CгqOK.}Y&CԲnޢVI*Y1Cw +"@LrmCRtPӀr9175!a,u*6fU^KkD eEMPIaD/zŶʲJ>N>S8M;n(;:,G"~ KXo`Z-(s@ Jj b=.-E +X$]* Xo pR^yr"`0e,]$%`ٕ) +]Z*0I"@ e1UPzPa" B 8 u)ŐzF{ B.~W3Cq@Qkl51obTBgpj?1c9eGW>]ڔ w^a_,z{')׉qBAv,j "O74MU]eU`inWa@F8$6|:ԅ= k^.Ҵ5fZD=R H:!- rOÍFBmASd ̞M3Ǝm7zDJ\*šEBy[b;@Q#(Z-FD,m}~^X!-dIW<"qX,# +t"9%!i!Ih u +^ gt5H=U .u~Oac2!WcIK+s˫kTI*6{aTpGk]bG 4ү6s݊QEwQQԾ-JTݧiRe jc57rhUőv&j9OƁi׹\GwAYs%`勱ϤDF5̎ +؀f'֪Z9j.0u 5># +,ue~ M8?ubeKCm+"}/^Yshϕfj5k>}4 k#$Hp^i~){pu=:ŨHTI;M]} QO,͕[.Sv^7e[mwBI5 ?}WhZҐe%ǜ@TeP<{:%U~P*DՐBmnkUm%$% @giw;%W1^#TH3ђM}BE (!k6ѩu"nm*Ѓ ( `Pj = +c{r;@ 3f&,'v~ z?U16,_J=8V4s79`(h*.ʒ⒈@UNSIoLIrbgwsq %c'4,Gbgu$g( hU0;bKct=_UR 'm`Q03cS4vO(b^ `S@O} &'ҳPP3Pv/CKى'M=c;7D YٸrIN$ ~E:apr#VFr􍐙."Z{4f^!D E(RRk..-0?(:`$Ne/kNm%`ե,qo~eޚW w3"UhKz& 4O]8^` u5=$Z#ɁF8Vٳ(^ĺR +\!3O4Y[_ + gjrC/ +S` +%<Y%hR{ ZcmXx 0u{Z׊UYQK +œ3GR\]&V(bACOmodX{6&#@Ph}(2S=rmZw`H @&{˷/ye_\yU&8QGTֳ WK"B"Ȋ *u ~#Cb>BKg  dgų (J| T5xdzyʰ_U6%{oeN xEsB |sbƄ):ri(Z0%DAZD^)_ڳ b@ׁя]^6~,5F0Zoȭa@-rJ_pt$(Gl?)_t08W b!bn wZb6˜ +0-f EQEYm໯s0Q5GwW"eZ0d{2̳}&B +2g<L:5=iρz uA__@HBOh){3!bڐGnx4} +C< BZRi4>?@$`ÂufU-!헖SNQ|\D~8;TiyPTSzqCn#;JW:6/es iI'vll@e$.ݾGb(@ЖqxS}nYoIy%^x= o出˦S+ZPG*, +荖 Ŗ +6GkZ5jʤ ᠋pcK\>#4R_C'=V .p߇Ox?> M^Zi?j+o^G |$?B6أ„kQ=CCkM~)*z 5!h ?!]dM}' z[7i s.8 1нG!)RpF#v# 2U*fޫP- MYB5P-j7EOB"iÀ'Z j/Qj@RPG7\~*~ +38-}+zvI5V/3A\w)j( ) D>vVfB1Yۡ:Yty3~\0$'p.=j0ï|'`4(Y`F+,P$32t# +'wnZ 7!B犿g\›& 7XI0_ /foHP$864Wc;Q7U^ݬ0syT ͠%4JOqfg1o& eCp +۹PYLW  `-)A[";-Q;$`S\-5~"%at_zқ.Q='WHKk#]n;&Mt8]d1P." +VQnnF@7w'xl~T-۱*XuD=U羉ǾxrDvl͆!xie?Wk[+C?9x{aL܄΁ ix@&A(' N_ :vX?INӢb: +LD7.}{BI,#R#ޢ68Ԯ$ #z|t@PE ME+//)"|[s0Pe&W@٢_*DBaAK{'9z9S5_6> vֿ@%%1)aYdQ34 @|-d=)PY~]dqiJyY +SB:@5DMY:ڻt V1A jVaeHڡ6vڍ"G\+<*J +N;]r,/z8#$ uL +;X4zLk٪c*IAH+4iȗܠO~nRW*ޞR;k LǪFF,LњM IGg.;\3NE{Wo怲,5h19*ٿjrӢ&Hٜx8Z9Ɏl)2|eC6̗7Fc_Oo)j o:{k(:hn]$6 >SXl >'p "DjY't8Byla*ļirP0tfRE| (( + 1/%D=@#:-n=7s'ddE[1(r&tӣF9&88>[i;m2"-"_Mt4&<Io12-,jfk^i)ҵmE@RaMzb.~dtJT/ xǙZZ +tqN;CxH=p$TB'zS[>n~%o1}fz|c[kyT f'= aNM>-i%-<4|! cs 9Jrdfl:B)b.QKΣs\gu9 So ?ʢtPե: %S *tל|CD17z WĈH;8UqKT_[&X(#jJU}]ⱸ9`=jFmԱHBf|N5 fqhO8@WãZCR"MZ5U]wĽv֓幇 1"X +0^H\mMZa[`vuc4[F|\"o ifץ!L`.v6olHZ%8L8 X=dehyqaliyխB#6iQ]@C&}> 且ad fD5m0@+Z8חuF`ZNQmϩQٹũvNb<[CD(@ڊR .ZP{KU628~نU EyPPUpu,US.$L|)4c:nSv$Ia +Xݽkn/=FpzJ3dn-r֯dk sPklI> +•pnK_>zUD|G1p$v^z(Cj-i˖*0H%>| Ub .CL 9p:eVr\\ ϶&י#1.XU*ڝuD2"kbIYV%ckLacxz71] 3^%eEa␘CD8~ΐ|Qky4X=VBxr-g>&XDбAYN׼о˰z_w}CF("+*uͣ7a +h-@hE`댚G]@:Cmdk/E3؊&ը~bV@҃F w: W6 ;J}|-)/߾ Xr?S \XH wX)aa.;L7aû`R%REu/;΀"/"AIb@;@Ch#<9{*2VXMSįhU4d-O*s2:SG847݉ӞʡeAVy`a $2PJwa O{~dBӺ_T~O?JeC  6B'ۓ(MFI$VٞnmS=У*&XOcKdif+;B +H7sZr/`5h9b~`(HbahpzRyv( H  ٮt$zҋw$>cFE})G(Q=v~ʌU+2PHEx/3{=CڇB3!V/#j^(iK +>>dYJdL$6{V@=|Sq356sJS@ҀCJ-JA5`޵X(* .HyT!1# pzAevH뷘&PLye6 ~!H~!~~pi&@/Eg r<00h@@tYF PT\ݘ7t;d-[|.-V$=_N=sT~=(Oo0,_a(|e6US? ԃ e֗r^ح̢̈*n8W,v͂('rYE 9#69>\-:b8&N_Te_:\+|pr"+D,L܄ҕ(y9o\a{FrYx]U-4) ,k 3$SD18oGuPءTಢ3 X`x`_!|`gR9*q=ɤ~/1&.( +6G ݕ;Llàj] t;ءTT6T\=ƚvyFFHW9'MnUG]^4>Uu_HB?!YS)d+,N'*A'Gn1)XG j;~vdyӼ֭9K?!c$NCQ[0%ڪgFsqG™!&[ %x\3)>kvW(^{ ;bl6J%m:~]wlYcBc-YN;KȃzFR}9諩")8h]ߖX:,S CU!Ohar:xR{JFFOtE њٯ%JXl0Ď"w5Ϣ'3N +(e/mѱHI,Z ɲFQFS !/r<S>0:d*`V44e[<)}2$|nipR҆Zv@rSECvE>ooǤ3D$B-Qzu +hj"Oj?:v? XE[X-8].[ro߅(0"`doh a-Zϔ%/+1U4 +T!e|T:I η (%Fu"9LQ«9$i TMhK7=)"A2|~J[rdBWivD+?P{-ؗ3w\"U\>(|<y$'K]!tjVvt1>%H[^G}%\RgLk=L4 :={F8DcHXr yg {'Ҵa 'FCm^<`@i 3[05`cR*3B*Tsc +cCzߥ?@^=E +} pRf6ɋޮc6J!4.zkЄE(bO-iNY9 S*Zsj|-+|&( 5LnāE +=`?)*(%LǙv`E|`fM%f޿M(=P&!]eTWdKr{@f~B>{űájfɠQA^,LQN W5܃t9;[Tf;i^!gQ,{D0C )YI|z:P,}R B$t +ɏ a#I~8upY}o./V8~|'s"\tfR͈¯1]Yqe]"*:sWU)54_E҈['S|t#B 9o^f;ZӮGSjzi`5 [uh/@Y f[Bi. k`h\4TGCo/HHkG@`AG3z?}<$v~ RT0l<ߴ7GNV 6 ;HΰP4ԍ"5P [չn !Eisjn li֭E/oG@_p(iFtL]QE&D-5s~R2i{sãJx[1ҏBzPAt!i1R(dcBlrq \Wg䑋pGG$!He"D@DQDz8,\k!ܰ4 u{`$τzH`Fg]mgTp*#F(h8: v ,@SV(™̜dГM|e]?<^ ~m +(of^@(ӽ3(P-#^(a10d#N퀮T JZ!Q #NEAfI9J]8 =GFIP|Jc|{*81 pt~{#JO'%q>WE]*^{yNW\UCK8Q{<`9{\9Bt/v 9 +AY=#n) 2yWw/wg!VOTr).jIcW@̣yr ӦkrTXZ> +q$H>u0"`) 4C}IG2@>NˇV +5g8GMYޙ1=UTV@+q5X1M.4'9N3 3!r vJ4$/湡-D +"N>&bQ0J~A7 p0 mʪT(=>rSXL D )4!k"Zɞ*(Q"@ +d&5t%=eAM\URdLxDzڌp50YWt_URR!T:|8'߇߾`${~a0G^Ch[Ja{3O>Xq5]4cޓ eETfm 3 +WX:~uq,, +;c3  MT"f4DW!ԙP4g}8(}yQv(2CQPM">] 9_.2>$G hK @:4*I}5 չ8P|MVӖvkڡvxphب9U}5cnQco |3OzzF'?QN'Y1Tz澫VJ1F˙#Öfƅ9t; cZ4<иȦ̉9 X,1Я1(q)#6"ڣ CCw$ջ@xXmUD:K Mtn`Xfxe妙E䏺XDs +:dQTG{ez/ԃ4wh"MGzP!dzӭ+\b"$:IDTe_}ehF¼Uů47j9 i.h4=Hna vbSJ 鋪wzPO0: js̡߰tȽăc[@>QFHR O4Q2Q0G>Źhb!f%ƾ:B[ 1D@a:)YjԈ{!NDpLc96 1cɂCCx[;4?!|7eŸ:0XmFRZކ^ +Y_R@|0G nj2H|33^b)ЎP}>fnt_L +8DO{)[: A1C݇%p Vp-btSB'ajGG#ΏVnhe8>]*(tg.VDC +kh%SN,N{D!JXbE&=婂}3.u |aLDkq4F,&J0iŏMzn֨M5*jc&1NL,] +tѤ_!TD|S6Gۏ.:.ʂqOt]W܊btq+ pvͭDc.cj=^@ѮrvXl\dhg}8I*O#p) a|,^ cJWѫGV;EpjM"U$ZFsYKdAl @ T. t +!>]ҥ>+x&L,Bm0mǑ8vb}XςY&i&eޡm҄2փ̮!C_—:cCZ$cWS7:s#]_pCSc0D_F3 Ec<' A;x:G`$ϑ&Ƅg^jVqTAm(bXO.̒FR9|&_zNmv*BLi0ƴ3^p0: Hd' j}l1cVAX@00 [+G !v#8B763{Kf}DiOEtGlcgfυ상|,Pb|ק%d$#Υg Gz C?>Bz, @ TcOB:UC4 |^znۏz,5쿷tc*zxm7DF#4z|kVʃ$41z_H֘C `V +2uB !pzphv0З`BY*sCb\6DI ? Ù"bP!zaČ_232XE3&u̎r׏9xAs<*"0'Qem{m~ߧtr|LS֍ Nj?!'91|nHSjWӇE"(V$Q$`JhpȼzDDt=kjdOb1z*辆H$EVHݵcV]lMBEj cRtu@ʱo=2E:%" xJ#Cb`6@1;rhOɧ%4a-,U8E7@Y-@`Z'?F&C5!q:иK3Iji:DN # TtO` QˬԳHRVPo4ʢa~o4e{.)cB>Bl1g#t=cV:°p.]/F'"_:AZ7Ķ="Xjڱ͊4׵V -7+Md c֤h;_G͵1"N46,Z[IrIL?ܽ ,rE;Q0 6&#41Qˁ:cSBӃ'h' an]Q,k̥SsJZjbȪh ^p&z!Q C$?fۃR|1M;VCR5 n3A&D:C{?g$n*{N_M,&VO_x} Md5gڠ$V8.릤n/͎YZN-!@G{ 4D&'*O:z"C/A13b̉*tr#>#F-Ѳp7 +ue&VӉ=B)GC: +zؙ:== Pys7h$UM=lbti<6(JnIhD18+ +E=Sc44d1 1;:?a?򌢈qHFjQJ2v{({l[kڒkw(.(l:sՍURU~ƆF;[.3ۃ D|^MCZl2Az6d!MB ߐb=פCB 6l(.f R:Ycb@t4a h{Cwc%c𪈳PY Um1fhcLZ$3M=k 0b9y59*0JXߐP.bB[58k#_p>u<KdΔ&MICx]"`QNNA8$s/4+&:ܶa/H6 +B{(5QCp]ꕛ$. AڸP`cUxMFIb$GM[1.*| +̳=x&G[n 6YӉ]b$Fz4PLA0 'ʯ"|)ڄoNmzfQ]5tˏd4DOp:imc9*]vJ?0jA5dA6'4@=PJBd"k3*~Fbhƾa ćaCNl.R԰PcUt4'ieԃiO ℁Tca9 s}C gfZ@6aЖqkDZ*5 +{#wU̲aa7$ ptf\՜LH:3#FnϺphĒo`ЦA,b +>ѦiZ\M +7Ouh#u &F#fΪIMAe|uI +Q*Jحa>&!vE凰UOAxhJ<V2%s!V#ɧMp-%I_ +"tDAaE#$6!*"rB쪬֨e\AkQVQǡ ne~ zn/|爯q*,l2Zr#uh)e2$JvWdׅ_ (Rφڼ'e&Se#իtDuk68Iu]fkT8oKX>`Dt = n59jBi`#aalAIVCt,gE(166<`V) #JAtqm @!!-Ф>A*@d]6$23jx4L~tCQWbˏ\" +B$ 'fƫ +e`(|'501mq7= q\*NV&#ؐc2csf!mή +E%cn:!d׮)X'MgEhtjC8}qCC:X[S!Hɞ`J%c1w Sf;vLdgc*oC}IDra_87>ICc6 +5Sl&|,s(ަbCى>i AE!:^)JzV0BJcT߶3i}{RC gH &97#L D?zBl;'"99H҂=c3Ta63"G~mb邂OH +U #]Q{861DˡqmA,fϲ\{f ՞w l m VmH`Жbq,=S|u4dW?%H,w1cKj m@ʭ62X `d=zh}drԃc9*Iu)%1(ݟ*(PD@,3Z}ҟs5AktToD .5*cr +k2#P54hʰѡSkp&Ya:ѼV\^DfbbeBcP pPw ȠJҐcŎ Y$Zkmz.4D¼ (gsAq=r+1-3o )U 9abBZ$kLŠu4I؎Q=XԇDbWێ1 +Wmݑ~<Ә1[3@=h3< D"w7y&*nd Q35 %Mڏ`r 6/܆OZ9r(@Db(u#F|*G"yT Mo%1CEaPԹt!Ng`AڋGke{AD5Y]UAkN_ߌz1'&DD6HXa8} )Ǣd|*m-Dm%\$w it¨cx"%4i*8fQnLrmǡI_SX R*˪%\aH,(aԃ0(`eؒ ]_0 +wCb.:Lsdt7cOTaTg l5ɕeJM&O+^@t*X/4 T U" ?JL>\nLm'.QEMhkaIgn6Ymr?[zP5 c6sCylV8#?=3qu ЙmH@@>cN lS =Eͤ<ȨtW9\7*g-a0Yo+e̋͑ܵCaݦ(3)_=b& |#0/l/S00"meO"7V_GٞCcgh Lф`1iKzG'!L8\zCS q(HfU @IFzTU7PZx~HWڣ":qiovm;ftbMPsi=dHHi}k5BNkI.CisL}T&HIPc`(=KP1DOhJUW)?!{'E!ѷDmAu:[QHYB&D6O'Zzoy|L)4 CxVC[|%Ɇa^X&dH4/O6- \ +lAǸLNjahYR1 ӘRב& 7tH<> b&-nu@IBs gg6>,1 *9b /1ܷZ_5J&QxpHxR(| ;-ތУ`c(6#XCbLUs46֘a1`A/0yX:Kڽw`) |MxC'NьHtX.#IT\_ (>+}N(8Ӂv`isqbZZ'=&)W¨xO(nF/ 84lbDrX%O{oeD#$7]~ElT`zzգKnHTIԤ<ߏ9U=w][ bB$LOhcOq 30wu39 +QI[Tjuf#E:q&4X1k\/Чmlޙ,""cq萡Xةb\.fu&3φnxܙRHd@YٚMg5/G۹ Vk=HyImQŅ=+vV4,-z^HҖy/&Rjl$*uz2 +֤ui!l]a|>ȕ! 1Z>c}{&k{pmqX摲j" SY&@f̮ҖQ*LCy]BP}s/٣TC0(0bKF!)ؠ~T6X>BJtmɫD9PAu"}w ]X:b i'9&6!mi*'痊d;USVmd=[ا|XӨ|#hCQTVWdBiH.m*)IUR3nc7A6Ec{mv`[)|x~Qq ю97=QDY_D[CO:ŇvU)%{'HiAG $PlH% |[{1?mA`i2FhjME#`Q؎H, l.hsI# B#mVg|iET&SD]=IAsN@T͸u;&ىPa| e Lz +,0O?J7".O쨱ZkLp)$E0N=Z#)>S&{a_ +':~_\06K&~:Z3RZZ=>e&O <]."UɢEyNJ90QG;hlȗˉ 96Ӯ[ ixu@,޷~N;z } VMʚ+Kn@g[ҸN1lx.J`YU֪Nx SkM>Mo tr=2M$ F*d 'r#wcл\H{9 .onZj7S{o\$9hx&FW@.:iI/na,шT݈>SLۨ>4%T:ʐ ,Q/.w@9ÐKP=<0F̃|ǒp;pl&1KN\&*#XW K'?{ njὁyS +N0ڍ +L"!r|=⻣8J,:?=i{~ѯ;~m>Ӏcg"<ؽE[3vhqR4ֈj.@B:|9hmDk0r?PD2&4v +]H&ZMzF׋Գ`UuQ`ZT/=F|I X(u|.Pg"Bv\{VP[]BsDD&>&-cAwnտ9˅|LZX +w'or^p޿|N'{NH ׹H'ʉTs_9lZƿcvդa1EےZo`MaIӸ6عgVp U7y/y|AwBB$<+pAF0 5R-?;keq2;_e0cVɊonˣ`pZ-2I&9kͽbiRWgm8~&G~<}-M׋|)O.ꋗūpz*3Sܵ_K~(7}/oŐE<^ۇ -ϝ. >ʢ6|Uݺóti4 n=9x;~xݷN0SKޛo';_O]zDNA2 Ynu";6[q +ply#>~msZ'p6~4io˴y?E8#&I+SMd8,WڒK1^t|/m9tϠ|8`ڰb"N2NXO2jQl)o XC1Lv1ʏ|i~=̼ʋׇ]\id`ozc9/ Ë/Ӽ]GϚ;/+ӫĜ5`.QRN@vۋ34,q2KAץ3mMO7Ysmacui_3stNE}bpޛMS: S; Fw^/N:3PUsBuQZrӇY5&M<{ +7nVLK6 ȵhW^Δa|`mXL0_ui1SZhmHVV V`r5~&_wWnq_e% ƺ|W>MvP{[6 4xcx~sզN)O<,r}rpMetUGΝ?3p|}}[/ږlv4|y8,SʆDscͣBo:$ږ媳bsޫ~|s;{]y?j|s鯎~?::4^*Ϟ3p˰RXقӻvܮ8Lyprk;pp-d9k_w9U \JѪy'v6#p l +ΗY>7V|BNR4¡RTe0|n7髌!p6ʮ>g;:x| Hu,X ;ONG(y4VNDڿ^Qbw>L6ؾ(T:/gK0:ne;AqvN[pC,|q{^8Zk;*՟94tA4)6VukqlS9zNwN Ew_-n~y{^۾YmA6'_׶uq*:vpw7 2 Do"]W/Hbmo +'e0mlv:/K319p_bM9=pԧԧ/&}_7kl r9LAekۺ;$+{o+^^-v!*O." .Y/źJV(ͽ~kN<kf4r 7ap^(o@c Sq πKǃ6Y v&yɱWq[OS o<ِ`.,y{v Gz`uCy\wnl=OK{kJt_J8y_[8JF?) W]YhG覱l Ne֚<۹c FҌwex{ +>{>8^*6re< +-o[ڌ/JS8l_5=^NapŲmŻuyN_%9T0wE8us`ාڻo'\~r?<|wA:u\^)pd(;0YVpgVߔGgsB'&닷pX߇fP[ɖ +M7I>vJ4Hb## V \co8=8Z`Õbm)[Jq9[Y/vR)B +l4_Ye-]x#Xvрab|f)]Z5Vs͌?{) PΖ3ޓd Ė:Tz^0M]D.ptGEtμ`r:xe9bi<-4[}"`0QejxWt-z#@{g99uJLR8Nȿ wHgŨx,)5_Oٿo_F% x# ȔK@_Amcş_S2J }R^V'Jp&77g7pg݃Vw}Tl6MnG  [ڂ9b8 <n8ۧl`#֊Bmls`ʣs8' +,'ԝs ~ Ӵ\W6fF ^@4lTWp xTN[ XZVl M.m:KZ"u l߭弄 O@׀c5dxl8 B?' +b䓤.=04COBe5S]l:m80HV.&KAu ;W 5T I`/ʣo*hTwsw*UoG}|Y}=Vjo>qu<8n]{탯S|ctZyrC/A)>>jӕ}h`Emv絏Az†sncj|r|mznch"^;%Gh|y%rm% +5My \(]lV_?o{S |?VRY vלޚV捃z|MM}r W59~)s*ۛ i"Ơ$&\òIMn.Ќ̓0_n'-8ԭ Rwujxi >T,osPʋJ|m?MO7r#9D/R,e ?/ʣm큈gzl zs洶-ק' `k Ш}mYϻ_VfÚ;w\݄prtO +W_}+puOݯ%>Nt ɖmc]i_{g~/XkeH[M 1輠6篆ӥI**\e` =m5Lп9;Y&B0YJ$͓My2ue1O3)ŦAG8 IyHOR|C=0ʼ9/D GX](Níj,wRXɖ׋i1mmr C3@Q0vR& k.OO7R*FmX9x˯߬8L٫- >HӔ7K+I(pM`T MimtݜT'W^z:2|]ᒭm׶iwbVF(6S1h._vz/:g͟;nns]ce89Lic͝/}M +.U@_-6Nmz);ov.5f8y֊. ^DPsbU>ŽH,i҃Trxtw0(4:j)S]-ԕIT>YA_+0ͻRS_^w{kNw)S*;IJ 'pZ)tI1|knK,fOa"[p{N^,6\bEnӚ]U'/O9dtm}㠳֞&M7uIF8Ⱥta`ix6 +hn]0vuzv.*ko>o*;V I'./{[ۯjWU*~3m':G@lm'Y;y/ǀf0Zc  ")G|kB f7V[a5ރN~t Uwb}+xVz1hy\)iZ,f*p*N)Wk/^qCVxy ȗ%,&^ɣ w9lkyiwp:T(2ĆvP܂4Q\Xslr#@\y)ORpHy9j{w b P@wQhgXvZk8~u#pZ(^sIJw888f!c 2W]ՠB{N|5 `S?L`IalKI&]UQ`Jo; yQ02l)0\g/Q=Šmm`FI0aCiʩt2^]n3{ZYɔSB+̊#}-fJ^,ge@qP{Afͣl8@LɑKi BiE5{]kY67v9W(Ώ}vKeY +ftBцd;7o?/O``•LNHD>o{!ll Yo؂|m=]U_/SooYde ۇBmw*Wp{ mautU@Η .ojZOSMS]56|hǼ}żX{--vE(y6D i ;*ramnGWQipјݕg/5t+k:@|y!n2_ڽE塼U]{m@SU5umϼƾׄqg 8}ݿdrMW0F^e:ʚ_R&:ŗWk9 pD!@.,uց1_:z'Ët=_l1Ipi5;x_bi67Y}%+R\g'UۍuimMUP-LDypE*|"kGyBԎRno VD+F aw'M EWrth^Mft5[ɺ-gu0¡3< Z@eY.jV`n[& j24bMtI:|zD\orTXu恲 />wleyp?)pb 睠's|TÛwï i<]I*"gM/(ڛЩ\׋m@kNmG"aУgas_Vam?YEpڙpS]ֆaD֊M/TpAz3 +V9M9_"\a/P5+4W_$_&JVL̮}4k:˹񆳚 xJ9 B=]Wa}^.NA,Aw3*I> TARGTT~eH۵񳧹LedJhQ6WQj~Q]NW rцϭo;-PuhWT +FZp  [tSYŪ[ +1HkwG_wݔ2gof>Hj謹^]hȘvA͝t8tw{ vA\{s@qP]Ζ ]KPj`n@&\bmw;/;V?Kr_LP '(U1Li S/[cXvt/dU 7@\}5W_/vj2>;߿/Ɉr +rj[sNh)]IKR"]^7&KO6|+ʽ8Mxd#0OF-PZ<Ռ7YT)f\u +t_,) :nex{8lQblպR${r{"u2 --F%gZ_buZ:]Ύkf$^7݇*A?d0LlO+kFe{Ԙg5kUGNm +bwu;5Wyşq>+ӄ[SrʣsmYxK& y 4{[GirnTwxo8#<>@wO7P Kpq6AAs\#Nt.pZ%cNypS݀Z\;>`hjA}z]|xJ\ v 5IIk>ސ2Csp-o;GXVrb +x)U< Lmb)H. +>o9&;A[Adc`O̔A +_&5?|\⯞~<2Bh„(2c /VïZ;k?7ovڧ^-A@,Yw*k;T [ {GUke0 +u69og^i @2bA$m)6V^l?$>OܽIl{/A@G3HIV,ɶK\e'v7Nu=8us9<:҈C~yB{]Bɗtq1<NO Y#~uAx4Bs&PdL&F-R@v|*t3b' l>ѿ.*%ič^uƍ%v>g@߿ecZUuSG]F4ØwɃ͕Y0$ǍCc. Q.%E]}0%4CHuwx:jfGKD؝=( +3 S_u܌ +8;h&<1SvFGGW_?ngy CMҤ-:!qTH@,kB"+?9ls6od3@E6XLӈ<*lW"|o;ދv| 9 7tD$NaOls켃͌#HX%@$蝛+I*1o XYT-4Hcnin>jd 62eS2uX jDZh:|LMv8?)_^FL62|EC0q͗$W'IMx^P*UxlD%Mt ẅI}@iQ zUa%13&l~;Ԛ/ LaޘU05G& +F\Pz1+ +iI%PIH+#BiBsJV:cc +&2N +\1QZfQ8 exǬ>o0usVBvV* 9*[n ?#Z D)HV`3v#P^FCeDyDĢA r.1bbz:R[i< +mI&5c*@dLhDrrdA(uO*e?ee@ngHuNz˩]2>5tP7-3иrprv_OOK%65ͧgG삓dLB0ba茾 F,DdHK@ +J*u?Asq9(\2sLb6LⰑwI_ SᙾH+VbPNL1IqYFmLTtBFmkܒL ,cB 7BBALأbŗݽr<>5dc^5ꆄ>` yPZ*e͘}!+PzPDg>6+wd +Lgg ~P +'WoQK/rWe-J%w 7}n(WWP2LS[bҰ, y{VFu}KFŻbf!?u6?sLJ)\WHJzҫ X@щrPTlBʕcAЩ ̚Oy6j":vg01`ƁbH_m6׿iٟn@+ixX\bS`ATF!c ٗlpv&ݷ+S} 9,E>7X.' +266kX.]YPyJP[&ILefVe.J4+WⓧԩSbiPjX-;ދ6;3AK,x5"\si)9i' `-Xs;T]chu7\ +.̬X^+k66Ae_'=b&d:""59(_+lsN"wEp6qQ힦s)NI6.?S$`iD7 +0&AdiTB.1(Ts\P'SgL^xɨms@~L|avHgPb +NĻBaVXEGɁQ&6ڏu#-uL]neenlV.57joU?jx$ ؿH;3}^mյsri`QZ)Ս~=sfl$r^ΥgI "lrqTV^vez'"LfK6/uYiu)u6=)VB ^P +0RMay_b!Xg@{kWLjj:R?mJMĚ['n. U|aBebyBzdiJmFiG+WWmLO#MHw*7wv5i,DLnr~EnAm;GE+B 獄db-, V}I`uԩxghHv^~ra#H0g&`@0e>oT{~ʪ5\.3ɞT^ z9{r#aRݽAmH ,O./\cA(@"ދ7ҕLwwuḐNҩ9=XgyP4CaR@qR~Jx}AŠ +t*.rA Sg|f0?*-R0?_].=bF񺔟Lnvr`qR ,JoA.*- [OWnzgo3مKPť+嫴:}G_eR"fa\=^mf^4֖R[4;|r3|vj̟EżWk1NI։><3z1ص@z6}j|H/#J +f dJ.&OY|`cT 6qx39řv6뜑P)xb ˟Pf<$$;Rqzu-7w 6v\L';y23um@ㅥ`qٟq@3[`/"Pit'WM_Yu/._>x؀  ԥ@=rzcm4Zr˕{Wx[( +ǟ]u ?=sE?L&ؕj[$xu"X];y{+ PBe]@#@r*JϞWڧ×(v(AHTPCDs+LWJ38)bX\^#c5v5 Dk Bq)5s.ئS3T]cfiJm~Қ;?MRrqcWors;uoo+kfv;+Փg\*\Y[P[[+LX'jj u¥%9JVTT* $H ip`/3@(]lBq) +"եšXPLuh=;u8F(-9ΨSמElyBdpD@5.9eƒx(K TM7ERkL6=b.,-+gOfOfk\vxqh_RD$gzÏ?V4sRjg?9w嗮Qa6Ncv&_M>x5n6ьWn8ǫCfL + b- S8Yhu<\G T#jXDD[RaMt|R6Uk_ +H0 \c]2 dMHiQmxw| +TܴO=k$P`HʜP @ 6:DNKgnL07L꫔RrcN]C& [{ "=/\U7-=rB6Tk=ٞzȩSu3.]ABwsY2\"u"k[kRaJ{i=*]객bs r}7=s4՟u +e IrcdT[j +@^w +*W;퍛ٙBzVZtEi\6{tOO\duG(W}6QfP]N/k%ݩ-߉:4`@6R6/ވ 띁yPpzaR'`l[ 3=a*=2У8O(#%8=eM>0RtdX8(5`-2q)/qrN*n&vx 6<DknR}3Pn8_;lPW[g0pev0s0sow'Jۋ{wKsؿt8ٜ `^qJxdʕ)Wӻ.ҽ;S` +endstream endobj 364 0 obj <>stream +d@ "2܄wP.&B0r*5kgAX ,o=B9j!͞ )'GF}Pʺ~S1+M6gMx|<\"C@=T9);rq65ַ Pй9bMoDy@b +\%y3"8lTHmc 0pF +q&TX T0OK:ӟzbv,:餓IV=qF[fOhĀ{W^sz{P4#,WXKraC.EP/1C`ax%R.&ʵ A5 ;A\lP2Y(\pV" | `f.GkK>Fd(T0̀>-[(P BjZR WJsg3')齁B{aan,Cvr%ҥc=RA`Y&v/)& 0!KTgjms3aXKNclބl0A=&z#M$FrDq$Fl΂}BP6 dPG:!c" "RRꘝgʲ?3dȥdcF2 >1?chxL \"Oi`JCP驃lo_.؂ ruN~ 0c&Br )Y:ܐsrfsGcvc\2a4khB|WȐTs?pQW炚 fYWJ}*[ho=W\%).f;n&>lnI`*bps͍s1W0ɧr<9X+QLtW wOљ9 ÃqcRU&YrI':?/9+1 +`\Qㄝkba`CGXP9$!k!)pX i~rg,G~ +\PbFŏَ; +ȰՉ&V}J[γ$^鮟QS62h8Gƫ]RY9#ٙ\sOԋO7?O~'[TQ7d$jLe*^N-Mn|'{]x[=y_~ƹxu62D)E:ZAJ$w#Oz{ۺyowvo,JqA ^^CTBByj~-7WGON^}X ,$*r(73o>}O<;|߽|9R-z4EH i1v""P+[W{=w3w?tg_}GΛ#uNFk0TĤ/XV)lsinBczn} O_׿/??O?o G&4^L$6ffF!4O7/_ޏyٝ;֦S,T*PbR}p3ozk?3^?G?gX=X<_܌fl,[-:wxg_~w~o>z}G_sM>tlPIe˭ x,n\g^|??o?7w/ZXcf a!3.x#OO~xßo?O?~z׃Oz*ihwpҥׯ=o/>_k/|ezy=oɶ6X'ȋr6WZؽ|xC?/~w_z+wd+T0#ūR7SڕKݷG|g_~g}ś?,:)e1Aqtޙ]ڿq׮ƛ>;~G?>Ï?zr+\pj03ʩ\v/^?{_?~_~/?W^yזO]fe/dE%>Zo=w'~Wwޯ/'?_~/G5WM4f&Ǎ7"PD:(7wo=/o_>/ŻzO>z_>ēg. g8=c&s\$6oO?'_ +~w?3ovR;8iqal=s[[/淾?~ޯޯ>g_~e•]>H68!^(z"OBZjL..\zz~D>ňN\a 0./d\iZōl+w:w2=*I2=2T4I{hGRΝs'd1Z[]8sힻ~>}g? jӁp g]]рc@x}Lc:Un۝'y汷~KO?Э{Z.4fXP4A (5az[]Z]kok/Ox¹kzC-Vm5fr<^\LPIJ͹sO=ȃx/>_/S\<)孈 tFǝ|HNz3S NpWu[/=k>W_}7lReOԺHAd{q THI,\vg_|o^rǞO~~zp왥Jɶl^eQ% +++\kWzzsvKkB!\;v"/gÙf9ך]w1 G)MXۏjV7fxû=c`4I1:\&'{J؉[CcqێLvŠ0a\n7Ax443kjң&d`Zg@kq+Aj R@0FCNR(ƔDR-TS #JdX|fꏳ+KEX![J%RJHCJOcf]V 0H?fV48GΡ 1m3" ZȥSx!f/^kk{'+\i5͊,C  k݇qS$>B1#)% '?hHZNTT֘i4)Q < 3qDbp dH +B> ƫP$46[˗3g(>fZ^F~6hGR1=CGz!KpN.c8 F"d8ycGa.%2R瓓n0*,|hu2x4XEďɄ'ڡ1ǀi@X;>7PVV˽X<欸d-&6 6s'N @z +j?LSJCC!=j7TttAƕ̔?Z=u%A[BŤhC҂˟2._!d==6d2Y')0 E}6D"L:[O8F,>3bpac_12u3꨹:;n?J+THh`&0hF;6JV2a!T7R=l,۟DYOEJA#f*7b vx0\?Ӻi`KU`QjRER,9Ȅ1ya=[t:8< j`c 80>3b&,,~TleB%GۆΠ:n1m 6vr3d]bLMŤ11_m{DG԰oƬd8. +S?x鷼ƃ/bc.eaTw+e_u9_'WPtDTO6xz7E[LX@AI1_E=zDLzUR*rNB +.}P6yuP @έ_D#Aˊ] prv&9f!PRZݽ&;MZx^' $岝ոMU;" 3.#\|Mi@=$c~&&'ИÉ@aW3 DZ +R*h16pIXw*˗T_ Pk[fOh@p j-Xܢ[47r-Riι9HMXI7cyx!χ'DC-/na;lĄfĀEj`QtUBaQm\Ɵu6Fՙ+0Q+)5>1#&fBy2;hGo7 f2.m)Q[9y@2ba.\[W։hؙx(^PFw@FLF^ĥ1PlItJe\2?:feD+}G,,˸ ;&\~u5n(hԿ^Q.Ϫ]L8gD~ P@*n$siT0iBc Zah Eǚəs@չx"Ax pqn& -/G"X&.Ai],162w 6Bו+ӑ3"׎ꎍ; n̤ pNX)MA8} + & UVx  vpц WG ;}I\%)@fX##3WEꤜ[8d@TbuKz6q"`$>lBǀua BXT*٤\w&;}^,.z؄q鮃RlxЌ NMӵ LZl921&cJ%Be\izBU/ Q 2\2պHLN>q|H=:Bxt%d%M?d*V"a'qǬ(+Y0fT፻(sdlDt॥#, SP ܊E3w i n54`!c\sڟ貙),R'm_hErӇl:'c7(>2i wb .?%̔\^KNFnŬGᑚ?ًW}n6f0l.a/&{BaaՠBj>=u>3s/ѧj1+%B:Oc"oxy:t{UMp!(\U'PupkτsSF6䠊̊R fa*JNXHP3Oě'`xSC˧"Xw//-^mo=r +[0fI81.zB; +~ ꑐߢ3fS%TU36AJ)y l+hC2#I7o:$ZO$̼[(/S[&$C#v <bFU#l 1K~/<@ۇ5Nȶ&B`=\=l勏AF L x]w%*-צO@H}[-V_:6G\܀f`PBIЇK3Ҽ|AxMM+tbK4KPi5 +WbhcOsjsB +AwQ'8lPfZ)$\./X1JʁDv=m\z"?w#ۆ^W7ҦT\w)*rÂʇ q1 4Teqr=p#xEEL*ѺMi"ۨXv +FGݾ K跫7MmÆZ%xJ:Ԗ99{ҁ|sFe/_,.\"czmz4s%2܉T! aNF6ݵy +H%(DL֗[*sgiƪTg7M:"> V$4ÎN XTtq=u\T HSC { +WlI6wO=usٹq'-;LGcv ϐP"W?ȚGF<{qE6dc=B=Q;c%bN2Ex +(} +/Hͻ⸃#_ԭ>pSByfےlf 5| (V';Ԉ%O?Q+z F7C_cD+ Č'T7#Rtf`vye%HhvFA` +biI/I9o:,`~2a'AlYCۇXHq}z\C""'#5:ZLs8% +m:^sb*b1rف/2#O&养-@/@ 9j4N2D|w3\w!Y>={/ &eMxDT WU/a!*$&(T Y B7`6p᪓IBl$lPZ:V63J~>\3P/jƫGX?N"X};r#1j%:Pq0sjC6N [`PnV.b1y:b@sI.&' \ Jָ7jf<{rwrorرʙG\1Ң pʉHuq݄s?o[`:qT6젮nLDl5V.\zR3bf@%*֤^ ϯiQ H fB9/d>GJ%p} æۇLZT}m~St-4+dh] r"$E' Vƅ4Sj[\٤9BS'|fDC64}H(p~>jqͲ^vP*Lo\ mԮ8Ǐk0+y҈wۨQ똍Ƅ\ ޵jE4vFN#p 89 aGbf;'@Z`G$C#QMG-DvHL@J`*g'0sq'WXa0Ac)M,vpDr.a LcrĈ[m[i[ںW_>3zEKd+މ?yOu\ߴ2di)׹<(_)=lF$M.4~3@D}+{9`Rp+#,l_8Sfp dǭ%ˋFA62!U"<|;&|п/gNm#嗡Kf-4nMjR^! HC8"\˫{5-Xu}S&";F\vo +P _QW'w)*Ts>lNZ!Sff fǬQHh :Y<\C>ՋVWX4wE轟<⍑D/_@¥iD{ˠ][vkzR4"9f$ %Q~f$hwGY"޾`Dɼy|?yMthoc^DX + +- ?$]8Ĺap]WJrmܻ/5E>>+SL8OSz s>x֚Qs\ .ca4TUP=>งs AvNxdDwC}<.jyX=L6Sgz Q:BqGFw@hY nFv[1;kWWF`UJWb~tlㅙTioh =>b'{0rH^"Rj +ZV} E2>BCB(=5y1Ϙ^f!= Ojlc`qrgdgt@̝଒O=2Ꙁ$#G:ii5/GvW'r` Jfݴn +ϝr A^]GMrZ)J̌hK=ں.})Y"Ō<rFɀ/hXLKK0@<>v؁8`AI6oSkLN)i1ٙ޸Z=e.L#ٵfaАhąEd%09#`NN"|8ZD'$RbiȊ!L\ƝQ3 :"0A*:dEFIx1!@9aC`B)Z1jjz쭷`ӴV5ݬl`BOq$0p~Jtsn9)ACܣ4nqa6Deo#cGNنljRNw'fhS t-z9۝]ʒZ*惡 >>rME:&7:1XFBi5꾏jYLe{3[/j!J!R>.eGKBgVܦ"i+ƻi+):ȸO'a_h:bN9IYjnY,Jamvef젝KfBcww66.2d8l'<,vRLfp!B;Y I0h2VhE!֤ζ#slHE=1G! +vqύq*R6)TpyjǵKjqx}%{N**\RL}*4`r)ߴ !|PCNjąblpyLv9ά3J1/gS۵3TdCC~.K6' +0S =.SNW֎칙0@F馏5BJ?N@FmP7;(73TӋ\f{͍3;;/,yt[A0(b38X)e@؄&jN +*Aܰ(?r@ԈF^dVH-䲼٥o( +/Xݸ&"9X *Jmo8I7dYBsuXIȰZ^S]4?tHrۇ[]%\R ͅSreɳOgmĉEƴl{ &g:}GJu H'iBl`"/W/:)2J'tn{q;^VWcm8TrQ> b JbG~7 &H䤝99X\>2Q~&*eZthPXvO/=ZH4Ҝ\苩)Bw"2WSPynt +8;o`ca6֡̎0f׬oM=ӝg=[PuUt\A>[P'Ą?Rz!܉dݙ{W^]هbzʆix(j.Ξ8gTBb?m g!TqA2:j95w;D; &2&'fWNd;&U7R׀uom/\%3dAKdyh9Rahп\iI>?X +qRw 6VRulvy:?lq`KTK. B+W\yIrA8JQCBc>VD@~@ӥJC O6/TL$~]| {XwݸjgSF-Z+A $1h,(#O/G|<\2Vw }aԖV{`=v⺋A,DA1`nT`A&lfDF-.ΞݾZ2q/\{_~]쬍A"J^:a *pRJbCN) +<ՕbzRwkݝv.IN_|O>p p82 +3yurl@M4c4eΨbZwhOy+,QQjfiJ{Nk~un{glVJ|T&X"#N=d&CܠQY Wҭ{O_yy#ƌK\fKhy!XMT0S̙\o;\\4kfm3Tsyo Z$x1Xiԉ郻W%M$ : 6رOk;P9'•\~֋1_j,>G ӥ[)5){^L76YaPa=,$:Rk )<\%F +Gf@C/H>1\*u 긇fj;騘A <&F2.T/^y-3s.SB?z%g,.AO8LGCV:Pqdx`NX=bJ9GD `zw+7|2߻v{7ZW#e=k\&gm 63lǟvOGlABLzT|4|7LR\87hOT.Vo[n* Q DW39!L u +`h%3H)LN~ibcpq i=_ peq{×õU!:!zhDe0Ax<&[nLsB`quᆞ8&Z㢕Tkqݨ{syܝf)Țř鋉Z N܏뇗ۛ'j!'̅dgo| ]XHc׮V7]D4@o+b (Br^+n` FB婝DkkAPKEQ_ eh5{xի/~z"L.;V.j Ѷģc_<2n|"J)+(FI7?lAA݄`рy?4h:;٩CT F4sP^8Xu[ٖ3/~{zq:Ny;3Zs-U#ѨdmhmTcA{f}nl^)/]_$dT.w_z yƣ-x'<fVkd*eT;P`%LHB/DbҵV3{JqN/-wD;g4kb]䥔Ii"TmǔD8NL$DdcSwhdKfЀyXiA0k'P+ٰIATDr3Ȉg@Dض bVb4ws^\ +W`<8 '>}xv"䂛0'}=e',H, nuuVdg<#\Kחng/k /w3/A֜ ~)ZaMֻ민 rtw>&zzv1"ps~sA{& PL{?(wʼh:gܝ޾RoԋL 95ѬQe1P0݈& Pf~c۳gTg~o.{4ZHNF[윾UڹC6=c#rrlf7/Q?}߾WNʜcx,Gk/͝]\P[Z\^3|s1V]ZG&dzUAHx0| x8O PP)[+rvX gL:Y.A`N7Oa+eTK4P^aC`AӝƵܡZX H //z`bZ)L(Hf vDcN FGOzr9(?I?wa1'!qXt5\4\^TiɈ;^+ݽPv T+V[ .kBDJz X H WNYQ;P0%l>ةI bPe/̭x]=,L.2h g^ȴxUMs̔^\\پ  \WrS\/L][i3]3zimzgv/vxPn*\vr[~^諝/ݿʲV^rnkv`ZQr509ZP@Hx[*/T A>VZgl $m43_#Y)VMhf.Tn +>3=(z@mu"og z8LΧ[VrrgT)&]h Zu"GH5CKt$VkF =nX&U͚8p eL?ܧ<-`>!u_S-RJ6҅F JLG.DdE<Q.9$OZ!cC>6>X1GNT{T%Z"ʙY@IԴYZ2 Dd/)&{r~!9\ 8`#47*[} 72@!bqjw :tz($*34` l"&cLg1@fQMT9XW sLcBijLWO+{RZ߻څGo_}K;kV}uqk7wg﷖/'B"l^{ڕVtEbJu~ W=)Z#)ŅDgofg{l}GeX!zܿry=w|ws'+BraGG`Z3,' ]FMʑl5_[/򔐨JQ[v[kZo2.|xs#\JLEs jz3^&BH[ݽ`L\k(LwfJܼV6۱g|o\gEM^|㣥`hAhLiE+F}KjOo߾潏Jz[8dᓳ/|\_!\}-^Y92?>ss>:DevU<|JћBnO/s09ыw޼p-=7倕VzFl8w%',[,ag#)ZVer@V*,Q(Loߖ}%ʋJ Ӭ&ҨEB0y5 267L̓NBOHs0/26XdA%g|"D[x:SoZm3ӿ9-/Gsk[ׁVP\Ҥ4\y;ߵ[bAfԶj({/n>z{ANB0f~D(42 5ޯ7$Cy>Zڄ!k๓N!*B$W5 =,I'Ɲ~AyP Re٩lpLaYfAגBKڂ#+TaʴB2 q quNJT,nN? +'ӵh1_MU1&fA.@@>? xphF>M *PrJ Tg5cz83()zi9xRv ~LQ1 +  W>R<',!m9T|!!N?ph)1@ ;&3a:2Dmrh2!DP}#<8% "DpJBܧvI6iGG<'N:N {& ye5% |K,]:}:ƛ q@U\0*1kP©i/ #Gmc +B?ϟD(6eucvgi! a%n~OvYSplP4!G騘ƕrOáۻ_|ﭨ  +%=s:߼@!e,΅"x!Q^`ʙAfPdDAIA(R<8pt2,œqN l<!H +H | +Qa7,<(jF6ng +q&\ؓh2% ' \IopϷ)@i2tLHzM0f϶~H:i0!D%$|F2ux9#1'l'@aH'Јۋ ǩ1T5Iia+(a dЏ./r&TĴR6sF( AZ-O& 'qhŽ: {#㧬AQר%huk(Fnvx v{AvBv[AIE2V-L<lNf11 +1iSM+<`D`>NѣCb~"]TE/0 "ǔp`N:;:zuh 8[#|ϝN:;n/M(iYI@^Ibr Na|^RFj%sb-jjZʹՕnl +q#t‘N7(s|XWхnX¼KlԔEm}ޝWo^;+g&C7HyEIiM@ui" SfYKfA]ݿϞ]߿?}{Khc%s(EhbvZV#QDܤy="KJ1՘_YlB˛]D̝=zCX4Z,ҙ?yadP\?w)lf3J:&p9&(pY%b\騔fSTt֕v= X aȋ:=J@ JQ\`|Bhbx[Hܩ>ޓ_g{r\VD$ ?;b L8TNЭT32߹|~왅;|pAR3 0^/4g7~?~O?zvJ% p@RHMc{6>'fL=̵ Tf{W?xnlޘ=i9 ̃J'],a>ं9Gw7L#Rck6ݿkW~/>Q(Ŧf;KgъPX$*(3e=hܭNη~㯿|O_>>ɇ˧?bZe^7d J.sֹӷ.~{㗖Ëӟ~|'_ouys1WJT*SJ$Dz\T +bY} g_s7_=_|/??/?_|kwjO^d/Bgwγs`1y\} \8jl7Mkק~g?}g`w?zz7dt#Pd9{EŽgONӻ_sWvwWs\~? p|B+_^]{_٣?O=vɹwqT%\ zNj_\;˫/ͳ~~߹ڋchl q|nkܴp{3us3|흇+_u擧?GO+O~{ljLcJ3ɮWiwn~ѥ쵝||~/?ݯ?_~o?;;=%Xw=2 Mg:K?޽?_t~+ùH#IGC8Y1Yj6 |7di͛S_~\gW~_}p_~pƧ/_;wVL!?,1!EY+碥H{3ۉ*>kO_^썋wm`/ z/23Oo~W^_/[wJQ% 2UYMK +!~pmro7W/'{we\BRf"T3Ǔ2JӉW?z νi\]/,u",O3rQ7,-ZRc2*/)7kyiןϟ߽᝙G[;KJ@ {0LH|EXv;ċgǏOz_G v1LU}(BR" EogB虅rNN+.'6|cH!,RT9i,Ϟ]jㅃ{/_;{~>1l¦.誆Q7&"dh5O)X&" +Ce 5cS\h$WίϮ7g +RO71SI +5a3iP\.ra~ʰ|nWޟK_[Ksgg}w]~vsn ѼFt1pSt"y&]^J~ֿÇ}/޸kvR UCy^W gt3*[H|O~^Trp DGQqv2l̔08l2QH&K 3r1IBu:$J]@LoIB,LI eSٙvUK+r\a{*\W*~!2[0 YrًGNB9:1: x| +$l2M йēW-m*&(D +ja)7sρI49 +iR12ұPڔ +(j'CdB3!N8swP 1cqf|>Sb"HE0.E[- Dg %ZM"("RPDMU5aC(Nc̄o~` I1, `B,-1.ĺ΁3ř3t"E7X3^;m! %QW؄w HK̋>U)(m6ƂOLiFVrl 2fVŤDD=Bu>a'OͺlIr$ݤ$x|^e5Ψʩh2j lʉDĉ~6㶠#5T0pVҼQ gT;-a@q'853lX=sFW. q>>~ K~];,1נ'?\$bau1LHy/U _{0*qfG8!t53gv>%.Pqq`d,>q"b1Qߖ3l#x)+IZ z/@\,vwI)~: VʦZ\ hGQ @) D;z}'ZߒR}{@=6u%G 3||V/lJ5&I9>p,FV7 )\$du`LY<-AE'-ra9 %=v8R^ +HY(sf=gDȎʘ3=4un\}lnwQ6<Ʀ.rх(1,cΈ:`H6Ds +sI%=oz7V=շҊby +ip1ii<@(2{nzOHH`JM~1 +%eroučO&emhL2^ʍXLGgb Nk^uS&Hm#Do!z0pr̓IM| +*<O(DH؃u"!:  NK^>MƼl. !6*Y6'l)+&[~Ύ`ЪA'zQI/=ԬtI-u9vB8q"IRM'̜ZX 5!=0Q67t"Zuf_J@Oj TU bnX̺ZՍ豱ilDk^1:llto9jt N2WpʁCl 4 + BMz.{9,_@AX=NOY,ޛ4,hd&==vfgj=i߃ /]iA @ENT2#{dFޣ3TjleOjOnI{LyIU_*mɟ }9];{A(mԆ>$Lx&|pw +pI}[J.ݫw'~Zcsɯ9{?v$.o{'ߎ.~V~(:\Ŝ~Js;w{)/'6OP;tJZ +wQs&ׂ폟ů֠lQsoOD"m|hnt˛?y;}ZF^K]uUZ|??k}Eb(*U޳O~?:frX?fi"{R딭Ֆ߀QK~$vEG3>~=#"޵ݿTǔ$qQpsܿVUeEoNN'_Gj`պOڡf1cU˭QOIٻ쫿I`֋>J2^僼ȋM&kskV_ڽ7P7u`AJHDv^Q3@vϻ?b+3w74z2|w~_|t'/Gnez;PhعWV//S'=DnkP-_]dZ5 vwųBN3gtW'˻ jcMZ=7ˋ LA/P,Ohkcym?=xoԚވkzto+ێr wf`*K6fϻ;/O|]%OCI*M@wl~M7pF7@T7Yg{Wj7~U`wr}SߘPݾfh/7IcvuwGO~=ߙ]||+c||~ Tvn><Αf׽SsNaT񻿙|;oueey +\Z̎qQ+6ƺ?QYe^$Y=;7`NhcZ(2L6}+`ֆF)M+=Rv2Kpp<u(N|> 51Mnʔ5;/g7>w~Ֆ~E i|`ˀ9;?{̕';ͥי7f)Rݭ:cxJNdڷ^üӯ_qP-{wk~}^V;7EQ̨>~'0;/N?}e&,Gk/~?71Bd_W_帲=2;GwXŴ-ʀN/uWff|y1fyviw<>rq;|LC4^4zR[~Q~Lfr)W1C9!=Z3yN#Liv< jV6L/J+wVNypJH,Z(QEvuykPZW>SMbV(oY*{ .x`aRAFcj],ŕ٭3_Eq=N0.f]3pOڽKE}卯Sbc`ԖPYHEepV^ݣ(iz![ _me)iAF>WYIU(e1V O `y{EE%h$`z*pO +9hz3T೜v* _SzZˀ3u2={'9[Ye'-O8Nڣ(#V'\e7ӳ7/ü܋V3/n*kjC_Oߑ |J?[YZCe_Q;_/Е8;1+o*kMVo#pI0ַ)kT3 ~]li}DSp{r3u(sHBcorM@mu72:'I}ǯ}eQiP#V5fJӼTsQ[Z:F9|ʍP돟oW` BpHY¬N^vL]fA콬%.k˗I-vmgx҇\eCwvOwxNfQ]dvsLpڄ؊ 0 7+]26*e*rb(A0U|ڝֳ{J  .t>vLi%I;KvBEk5A:*Q[ֶz;Th{y.RF/(jptu-É_Pn9Vxg(&v|B]}09>*W؎pb]ZK˽k.FVRes&qLܾ;Kq\y9{BE):XO.eqQFQ{p+HO|'6WRR({.(IJ`&"._JN?"ZAp|Q{bu#,TGgSXMߣ;aT䛠nf{ ++<v0cx|yY-2j+a:U){ {^rC(6Zl Y‚<_jϵnsITm(L %!Xg&top:[4[ *.9vkmZFƬk-n;_jV*^wR,M;`BӼ(p .}rãf`A @_[~9VoffsлҁA\)47`i{i!PmLor%Ά ".胬܂e%Uʮ^~ ۿʠj ̲XuTZmrrE㫤ڄW3&—ݿ|}#Ww2\y3'R戄=/B#YM}:T ]s*xhAͱUL3g:ۀ\|zӼQ/AD)† z U*sPQ eXY<Ҝ9gFj ֶiF>L1+(}pϞc\Jӝ10%^g޹y1s(L?ZMbiPflQ3N:7T7ekYky{=)m4a7||77X@'a4rbIj[?[O7Z XԊbD^bqN ITa0)Ni/{kgK٥M28ʼnR^=_Uo1ms&A>x(ar9Y\փJUB*[9Ę:m\5iq+/z1j)͕fӫ_8gAI&Eu-Xڕg9 @- oYЖ`D5FkV{g^^32pAKʛ)0 ZRy[ \m=xHk*qTqA(cJC,OXzU/n*JdXaJ`A3lP\'4E͔1W=L!T`lk 0Ԑ`YwB{L曘WPa4ot7;ǬqFjq3 ` jg΂:c}R. +UP,Krs9oE-\igb".VC!( uY]n!gQ"RTas|(7o[S ӿ3+.gnK%sAhƩ +rHk&Nfpvf`k3CEʩ9#YQzb<4CVD,+_V:9Ҍ$aȸp '0Gӓ_F8 #y.cThAIN8LE(-+G3L aJt攳K$Y?D2{W\p=gh F=e+>Ij"dfsT'DRJ;Qk{VH9g k"t@ҰVu|u7ɺ3u?fxֽLR6<1˔Si 93j|Ae6Xhg`>Т3[95CuVBPdN1H}:AbEkcJ}~'BE:9F[.@䈍c[[ Ac9s199൦Roeٍ fk>2Zg\ I7R|3b_ҽv +?12ZT R `.hx70 EA 8* X]nˉyi3lTQ֬kBiz#ouA$T@E)L)& n!1DpA#V1y/G{IYsmnB%G :jBp;_JL*mP&qDJ&c]BVÉA^ab5اhވ TnNn as'p8jR2q76aS1TNt@Ă7KHDH8nZyvJ͠;"7@EJHVҸ]KZ` QC,*3œÑEiWjC,Ad&f-R|QGjX%gsd%blf gIBf$ATp/ + 8MRմUC֙4*ꠙ3\zFFԾ;5;'6 mDęFAg`>aXp(l%BZ?KB= >E +Qb#-! + st%Ʈ'xxA٦zC\nZHEh=4O{+Q|3mfDPe18bqknw 7iHH8X?Jy-14;.8G<*x@^޹ƴP*jG &; @HXj4zpj eȐ 8P9ɗPpNr0U@h=%ֻ=d.&qڭCPPrWu(%66Ug\n^@Z0 j{Q|UoɍST'TюV[y}5 Ti:ʍ ?V LA,OSY(vf(4i>=~*9ZKb6&VfV Zc^^ںiHy`!Fq+?!p^ Ƹ4Ӕ꧀k16KG7`VQ +ELpJކ2R-O ɜ[[yuFVF2 Һ)y6R* SL6[A R%x;Z1R uҔW˸EyTkgVňjil(@(ag2"A];@ Wɲ\4KΣX۩LZk6yuJ{-0{Nnb,e(e&!T1NFAdI+HUCMjK1yNjM M̆ #Vi ~ cux1H`6CjcB9;Pyƕ[&6,xp,'IjCQ) TfN +șޫvQj@%&h/p[M +ԐʓG_4RֳjΒ*ע8;9~( Pkq hk D6k/6Ll!IJ\-<"-QWc4z"; e63RwwI71/ɁJٞ>QZf@u|-jjj!AiPf<>,vuY_:#6j]Ĺ W\m5={d`s{Uv`bZԌ! + mt9g*n+#KC" LΏ2J^Hy5 0rh9?W"K$13l?A&(T5~<\r'Hg[X +5_d2z"zKDCōR*O/?QʂEEY],zs֙QE}#LvR O"kɏN?IoyT0ʍi-pOn #4* +mLP.#&E_wgQcT͋ 4[aK;5JLy2\pB./4 >[ J7xofh[y./VbK3ZQT,liZ+Ex[iQE`DQt +7YkH8YYkq-?LR :Sz5õ!z]0fVT6g(f΄+->ӏJRzWt-i²Ք3\,-'ՎgpI ze%EPF\]AVbk *7ːi5.jwC4Xt("pER9 ʶ:~>І$I'UPHهvk}"/b.pP/*gr,'46 !P(pchg@HcڏR,opifNp2>s4͐z+θg3V(Of%ҼԺli?NVLp/UEAcN( +S{5iSN&Sȼ;_WU] QJc\fh7EcJnV 0mN(O.[r KdP>)2y,fNY«uћC YmwxJ$@n͡>o~uo ?FJag)wrdPfUҚG73)T)HsZ&vNh;F%{Zm/w_"@.TLBIS/_b!6"Ԇe-)9P@=!!(!GRɓ$QꞗG9e*iՙ}^{w |"`jFP .$g-e ڃ-4) A0p}De:nW|kuc96W.B4Ȅ[{^_nL8rhy=LR!Lˈ-vb>8K}w`9ˉ=}5#l$_hI3uF0ϰ +99xsQ:j-k=Ə&O~GWֲ2ȉP.qT E?cYʼn=` p4z Gu| 3`2#4mmOq+5Joʍ=wr5vxSw1)sZtfVf)[JpnNg@ iCϺsS\oIn!B4UNZ PQQj{|e?5b)BrVVya+Re$*I4#wJd~J e(RFi &J(ϕ[=A 2s >H`fs{X DnfZR%Puᢑ@.-N 掟%&wcKzmZ$ 5[I/0(  rYT A<B8/DiJ +>|%hU J x4fG \ۛiy=!DȐ*tn8f~fos),Su~kE9L9[׺ye*c?Ju2Ai +֣)ͣ=FVr2NU7Zt^ Ig.lT,m*O%L㸽a!Xr%T@ho+ m| Vw71utf? +he_wN9'0By5T0A*G^$ .GR3b vҴ/V-X񼙣>ǝ(CVVn26ʙ#J+ +MEuTYʒkʂ[(g&笷B-RdҺJK DI(_#Ҥ+N aMg1*p{Yw =]a0"473J.VR/TO~_wι־be)嵼B=Lx(ֺH}#ȍ WI2]ːPPFLl|l̈ Kf?WUuEG1v-FVDQ^T*Μu֒ZYb>yP?*9N=PO*(gQ3nkYvw@-A_aNmڨ2L^v~*<ʇ22SQA?7 F,!1"6BE?^_~)Nsod>} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wm#Z72 qw$?AM6X5߅{?n=<nb K%27o+p>a{^}|~4*7U +bt O?CPx&Hp&+^zV>޽d2S+Z?p^I}vKpJ:b4۩<q$AWh.+?a;4?Od2IW?Fq-?ۿl(L$|8dn\\ۏ3Πl.W24LW!8?J7]x깕ǀxAbb+,@~?Ȳ( E^,SMR~^! /42TzJPn3"h#Ösl%X%6M(gâ6=ܜG1s=IX^s%p9ɩ8mUF;MHc{ےTPziVGǝpApA_Ntfp򡜜"\>L +j;)KV^*o"RN ++=DjOo1B;KwJQ^$dRĆ +s,J\AZq diQ^ѠmV.-YMF oehN2$R/ٵCy(o$GQE\Qi2fVfps\r IA>"Yg O?AfbR1ƴ6J֧!t3%F >ldE4jVQlgIaHZ0^M)Y`}PG0 1*b@#Tj7?|5 z?/Zo+|,"'91ر;B 29Cp 7J3Uy)5sl9C)cצQ%J>,=uD&9۰>ۭ Λ(׸.S98^)JNVzp˰N\V^PNAH+V~e7v^Έ&7ͩ}?)Vk?pk9e [N5ɭf% '4UL^/kkI{t0%i晴[m5%|*l P` +~13W7jZ3 h}LjDIH*!FPAK5œ#UƬ˘H,pYJpmZ( *IA`W(ӎO6SL1rl+4+ZK] +\WJR\ +‚&nt3ĭh(# SG:|K_0#Uw {L=Fte#+?C&R4xZxlfHMedլHƀs'AOjYbky pN wt͖beJy!g>J3!E }iWB+Hy54 9kT)@X[cjBuO,18ÂVy7f^Qȵ@3sσej7hߊW62vc+)^*'f"T@ Ă{=_ʏjṞLuYIspF +eč(F%0;KWʣ822'$lDnUr0 Di!:@zx #+Y!l#%ǙO7qăimҫI~#P^M *3 [Sbăg!4O1iN\c#9$ܟ]!&6br#EX1,%RbA6b J}?x%oJXv&Fu퇿_~Nj3!Ʃ9/*A[ ((b(rHk7P;_jY;EW)sJX3Ԙ(rQr|/kkoho&{_)[>ʉ@):!*`AP/p^T+]$[OA8V][Oˑ+>µcjBeئ=FaBYOPZ̉9G&7Rk̲d"o5=1iy#%Aj3TP%Ϣ>J>I!5!]H2AXppz1+J,[i .h3c#9#WBi@bFmd?€EpH|2b1"0Q*CޢR hlaz6gR̃ fud- flbꄱPZ9fuR+S څ +k@sP &7"G(򗇐FF4֝*-Qur{h]ܞ,(w:"E8q栾y@;ū- noj41+^眶F1 c{M:S^gV+TRR*s-:<90 aL\̚dlX&zsy9:}zz/wFmx +R?n4 7/[0Ymkl~l 11vB7dBbN@'SrDbI75;t sP; -r& DjF5_rWLʈl>)Q/TyB +&_I˘?\z' `qlKW,O9 +i&bfRx@@p=64161`RsJX[q4>Pnl(GLT|ZdrٗXFrؼѸT|F倀M)wo\!SfӘC +[!V% 0FBG8T/tX$^ax6pXvv$bÒNۡ_ѢJun4oDACQ|&5JވBXLXme'M#j܄2q"XVYI 7# hٰނ\dR hǡ0,y"!]!{J4hrRo42ǧ?Oh* kbj35:큦P6q:5M)md/+6G-G#j!l@z+ gȸJ~rp0}Ão@.Y ALؘ)!-P-dS3ӈ >Pm;lDKi*|~/ٜ[+AʖL," ;w$ZK..9 jO`&Y@6>1 A /Xvƌ<Ns.!op +"q3E,d"Qߗ;1Q[i'A<yV,rD2`r& 5!#;w'MܤbmMg <`F>(E)8Sk=~=MTHvN_$oh=Rd 9PcZ┙xe;bD$/\}lbj; gBB?nD, %ny7fpF(2X;':i4!OZBx/D #SiӅ] "/&WV,>۰0^?,Aj`t[pY+H]|;n"a#k찹v W-̴ 蠲L|_ ,Ԭ'i?Lfm6$ʝL%Sm!A)ᮓ+@Ū:_b0 {HdEJmpRIL&@BB.=Fu:X)\̗'Mv"#a. :ey̸&C[([R$1ц1P h(/LZ# \nkLuh`6mBB*X'[cVar;nN}!Cv? +9YȺq rpS:) 򉶍UVfDk|fN̙Ԩsy=%V\{2me`1f.-@%LCh||L&3"&2fU+kƒ :Ҍfq tT֠)ڒr(fa#2v"~H/.O$(hԘظx'L1YS{:oNw #V{mTVDd w4u^;hvFBk' + 2 +#g¡))ׄw˔'l4vaL 嘃/ p*dJmcg=LfL L&r~QlS@~zBr!@ui7P O(sSm a2֏5se#'ИnE3ͲQBKPv"6ZKJ*gD@P{MgDe'vs(0~Alm4kL9dՍXJN0@4z_O9nsGɳZE99r6Pi`C SU3V@W;sXmW9IX3 KWSVI0P9p=vb/Qсy'ѹO'mLMΙ]1l˖lnUF LebDڤ0fpZW4^Bc&F]#;HrT6~ 6A Pj<: JW􊄺ΐϺ<ȅ j?nd~˸}@O)Bl5x$0x)Ʀ 0jb'<m)L'^@*ǔ9A?3=m,+ 1,&Xm|m@L(H͘F& @N| 9En0fBTpU+q I;ۄnFH&o>?zhӮ {$ywh0R#CelM4P>2N[)f<`sTKH-sP[TQnj<*P aWH&$ +p9X pe7QAB4Be5#A} [,:WhT0A灊 h1 :2Ӣ*#yd{XGЊrJ)+u(ޥ\ +tsR<P8b!he aB CYBi tX 7Q;[xM9biDL$^ C62bv:7}s +q.jN a>K⤳p#<+DnRX,Zd!@B2#LA<&H NZ >ds4 VBJ]}ިjC#)G4 7xCX€¤Mm4I_BU5d4R tuHFPnT +[ N)ȜO{z C~TVhv.5Àݒ /0;7)e6` +M j!$Svn̠cPZ!wLz /tEtr%<oMxBa X#Vav6keH$w͞h@"`鬅HM% ;b%R^JZ ZJN-B,҉zzfM WRYfR}Tj*p^)w3tjF0. +*G`\~#V&gTfL8?W_>O*O6\.Ɱڡrr h#Z7礣L|%RCttT)`󐯌XJ$S7J`q5܍46#5xrtyBe*٣36Tlok~RdḰ҆+ޱ]rge|[<_:mm^ ۫.-| VpEd&{PY..کL6vwa%z \5$zjyB53V6N6β^U^޿nj;d߀^`S50.RPe/kQ`~@,W>@9_W̓T 5s yHm/;8;8x`KNvbh{K(˭ʥ i%|>gfOJwN"eWlW6]27OO+%M]ܹLbL^[<* d#\_K\n_X77 cm(:Ih"Jn tg +F%7"Aw/G"!wAo@/Cy33ڮ7XW;btAgD, h67/5aghAJ6aG`]?ea|~_Z^ +eZj:FH\_ +C&#.ՖxsK4Q1nXZ?Oh%fRe4,~<]\ݿQ\9*Hymsr+暍 Fs޾TY޻`M̭NZ U۸r%>6CLk0i > `)@YTDVJXuFgB(,kЀ#OEM[v\zx2[ fRݵx{St}-X+ f[wãq +/X/z{H X;ݿq'osZk?xCWU, T.#R3GN_\8[93Pc^zp|=w<|Hu3w~ګ\=򅧋v/NRv-X^2>;+N<4ByeY/,@Nt,.];ͷ=|I0eiCmwvU7LʟJ]6хnº%gyv53DJJsXwWx!RCJ}wy Ĝ7xOvť\Xyrjx[ ͹Ba9B[pr +ҾpZw<;s2㲽|o{WNpqX*\K+Bfpzϴ' 0X-/KvwfϽ֖Nsr}se޳zlbp}x + ifX]/eR3 /R=mDjSU֯+=ʱʘ${^播Det i.p}:ٓ*k yB,\B.C +5D +gƞکX4TN6K-F|kt3Zmo^\8'V֘DM2%{⒃15@nln^`G[k뫷VT{LƃϾG|QG9k+^!G|;,e.VofTgG 0bjJ[[#w +\w쓼4R\wa*-Jd{ ]Btdh`TW*̻ x(_RsxȰMLP_>=DLuq24?ݕ©ų%<\)[~Ynid:[PS +N.Z:}oyǂGA倧XZOO%_(qJyJU0P\KK@͐v&!V . (c'cwhe%^^fga҃lvX -d{[׸LB>ef J gQ? 'aHbeC+Ʀ_8u)@a~& xȄG8Ax%Z  UxCݪ.]m^5{\o<ִAp r*0*iEƭxBUORNNٸ/O:dRHϏ*+a@<}wfģʩC:jRy-Vۃ/XQ%`εYS_m]/FZ&3 1V`ւ#B"p#TZo,_0pv`v"],,AP݉˘-(Bv<uy-;0^NJ3f4/dKe@)PZVXQD+v4o\|JFe1 efd\kc`;X>6N<*+l[A !y3q_H˵`}![1R~$ +BG&`GJ0HŬe.!knn6 zLjhǮfz[|~V]GHpj&X&^SM+rq>!@oJe bSdXkBedƥ[V:nlFL>4ܢS'+Mx "kG%3BsBnB`ܱ@n&=wc}*'x^Lc>nnNZp<\g`lHdB&IaО奋Յsj$T/7"o:+Kå5(I+`eL*}lp.`a#&iCxM]Dh ퟺϴt^@:n(gLU׈@WtnڂA&#Aqa/f* ã->KP49DqR0 {\gɫ.&: H#nia;^4h6u46OLbƀRg5ebD{A,ub >ҁR#i3X4Lٍ̮<eV$#)L \ )cc _py'0:׺̈?Q[!dKDbBtx@&:䋕r^ I>E3n*fFzhbvyH맮$. =Bn\4x56I.7?q]>5VCE&V[?um~| nʄ\Oԍd &SMe\AIHk ;l_ |2h@ 6M`;;*t\lDfKCSg.vDezLm:6M[isQ2Z9wֻL/L4˕m2P5BEFa?_֛?O'?OWQrCqliTtíީ^_y].>>o𭷖ϭ\uWhŅTӟ/՝/vσw=C_{Ow?ɫ [d qъH ="¦Rqx7W|.?GtGw;hقfT7RXcDy.jċ`kswۮ?׿/??O>35ǍIaJwZ+D6RewOb&Uot.{xŝ3Zs'2aos0B=}/]ϼw{ӏ_|?|cϿzQrr, E l՛>~Ͼ=oӟK[_~݋C˵Gs@6^tC_y~??@~}t4R`L(*U۳;t!R{w+>vcϾ~xgo>O?g|r#O7]oV>9m"( t]k7[s[/]{}wϾ}ӗz8"-fk[Ox;sGy;owOO/ז~8tI;"xhZkz<}_}}G??{?_KyWW;B"纹|6,wwvy緿o|l;׿ǧ~|OHNтN3s]98sę7y7۷g}'~}߽p`e( ʊϟXTko8~O__~_|W^xWL VB)noasypO=^y7黿o;_|g[=lmd3Y pQrwn=Г>kϿ|?}z&5!AZ8]gKGoO7ǿ_Ow~{=sG/߷p:#7&MyojOr^|;/7~~/_~VOErB ,a5S(ffW7w7\tqK%1΁.\ 7:ȱ\lwf{í 'q?xkإ;;kTUÅ.޴!!#yNcmLPlVK{/q_y{>O?zO][^&sbAbO\_.ʙ3ǟ{~}o֏K>ՇkxG^.n#"S6\砬n +7zW^{^_ot`o57J;|>!7-h $cB5X[۾tٯ>s?o?>nwQz{De!SKDD=(.,ml={m_wK/|ګ_W_ƃs؉lQ3|"Ĉ@&]]%*^\ +['г'kzRC 2kGyI QMV>&l8$y ƛFsd 3n_KGQHȱXNnb rDDvf6bb1>:֍\M0eL.SU ;/nry9pӹ(34#5Y6D0%x:,Ţr<Ϧ +|]ڈ$RtӛV*!1x'BB9,Xjr#RQm +T\N͝n^.gD$IXp1ИigJT=Zo5 ~V/sbz]ǎr3Nޘ:b%GoTeSC$>&hEJRJPg1R"GR_QLe +H#F';n!?ŀI\7pEpc-lx|x2nM>7&l0-Q!M'qvZvP).bCSC1э2dF7 XM4jR6/ Mcce-<g';/L:d]U>PP.Ɔ6& .KDŽh 0d$1ÉiBaܟ0I_ȯbYe&hCjWs̈ԛN UFTHH`Aa(0)75.^ua'%|2[<ִz+L%|TD0mWQN>ytK,X؊K0p~$SFDLy;lox^-V\x΀ +Y1,7RE1(UN_1Z@b|2<jZΕTKm .X/w l1*6Dh;rGM#;wFr1?OF*2&t}*G{7f_b{fKHޑHS^%UI*u6UmNĸfgwkٯH"s2Z-db\.T-CYOp_LC(bLV+trA~u9~}9sZ=$ZY)SZ;>YC;td!x:L܋2Ό7@8 +;!Bt5}Rc,<0b>DM5;LX Hr\PNBi䬟Ҧ+Bp{iƿC-r|2}썫?"3܁Tr S&P6iŕT}=˜7Ȝ Y{Ƀ_ῲ&l3fgC4= +JaS-1%7@~|tƅT9!gv t!OyP݃hRs\f$SH)>0뇈Xq# "%ݵQ2ui&\ZUMy/57@n=@lIŔڭS-%4Ҙs3KpB"3n:k޾H󘞿C#.>;{iE )"&dO;<}Kz H>mh &Ba%T ]=YH(<cS1vbC(wxt{ח„ +M \3fK៌O: <ŤꞔDSTr>t*ca&WBEJgSJ !vփ ?a0K+HB8k >(I==A%68\H]KQ!"V$%} i"Bˑ&"W\oxL%g1z!"( ^hV +p<GNq1@1Q&;yTE4I EB,b9[[7"!2QX;ljo~]i +`)Ƙ"kdgtg=19Lًؼ+q z J A^[p(?Yd*B~viqf)P:8Rf‡KemAj!.af/s{pKnf?yٷa)d1L#x0&0}JT*iikj!iy4YEjNQ +FMBB7ĥI(Z݊ v-KQ(_ ֠μĥk(Ѯ5 d:,T0X}>>F.}ޏq=Pѥg/Itݍd-2F+ʑ|Turu1B,l3F; y٫ /"RI̎"M$+\v0mJs=WY-B-]ZS+fq5>MTfNaxwP!Yqp+Bb¸ǒjP\'qS6q#I\kj}Y +1xD0BޘgB<+5̴Rzwۗ(wiƻ$,]]0Pt*"ɚRv\.JON^1>#8mӵ=>~5Bnv3΅LTsv48~ +3jfk738u繕 r!]|?uBJp5@!&Q=`SCO\´l:!UPkڒkraM(7\Q , c#B +Vv{5HO0 6~5D䲗LpJbx:އd((%9i rGE(ŨXөǴ*i4tj)/NA%RHqyYD~Lf#|\&et>q WZ51bcq>8Pu7.R8 ; c0($<1*5 1[XKI-png7D&!Yc[+~^(@xjmG,KtfaRC-n؍}0 A +PeڋO-dfS= 'KRDä .i"YIy76Զs}@i%gm K6WcQ* pl'zu#:}5ftz^|XzJp?ʋ1b&'Iv881ΜE +^{Vny#~d(mhA=.Rɺ\XC# +j;ReɮIŝd'e3 a)oTuEve7ۋ! ` t_pF=jB +=Ht土Z +QAҐrc:+;^^^^wK~ƃ2"PF;qBX]S~T@%>3 ΢>뎇*!W&xkKQV3jy9D-1B@իQ! 57ƕʴĸRvBT֋ZXA2N}t y4\pxntnQs #ھKިK;.݁Jc3fqEkWA&ҚVۤC*[w1k?!G rnEʮ,F8_Eզ;t` +,'kv8>L-ܬS(l>7{{K\)Y S]fڱ9u&&dwa^ҨU7׶C, Em3f+9~"Y*m}e5ȨVWOf5+gōdzDc-?f!NRڱӽoᰋRD8K;(m=l_,iFd׫~\@$M7c2$"PB pQ 3 i|TPΊѿ4O"r5ZaRm\ZIq2y paC@j9'APjW[zm7:X%֋+3s ٫KH+@<f'΃U.ZOwAŀXO~%APBAaϯ.G]^\bs;yQJ6JiML(#r^y;GGO>Zz-;m4Jsag38_’>K`PFaNFj"|AXlZc!۝K$T+9)neV-!L }! 0cvi J9?e-ƥ&3N(%˓Lw?&efXG?٫OT)va\Kh{nwvÇNVÔxb2>_ #nD? d՚H>GkZi};~^ۺWX7TTrr7Μ Ze?Yy(d"xxӟxNROMS2~O;PZ,=޾Um7_9Ws׼\s% ҜN:L81*s+φZK hkrOM\1y3)W~ Gl"twL?0]:/M(mG+1:늀V&Q`Bq%41!Q)n@<=6mbZ2A娶Ԑam|x R6$d5ChGK7c\IW6ٱk Y +F\chF7bqK,o'?誗YQJ|vUP3^vi-V9.Mq&7b8N|#lz;oq+37|V0]uV3$!֡H]Rks8c0ky}0iK(JWgnrMxi/"*de{ Chn-HN*R*J]sh) ? F  0Αظüz#gp}7:|Tso|+.2ܘJV#>|:|fbPg6ݍC4ZqՑQ,ZKYcam"7b#usͅFPeDq_>k!./Ϫ=\k$@t#!+f1ܔݾZoi="=N(RqqD,EU4wWwͅ)= +ڇW?0:biJlDz}Et/FŸw`?|6W߈#8s&W=#EV܁w<1hŏhÅM;/"%&HYt?~YZ-3N&]M<ݶJOF͟Ds9.z15D.nVPv^&4B%ճOu컇}yrxŏtfaHVtx:.T?\DB riCW ,m`1n117f \ws +ӛ~,kOph:Fd5| / 37d>¦!H,xf}/>lm_d| j7\Ksk YY?=0&I{,cln[]AM RJfBY +?&;C"m?"c %NkU\B.D 2 Cx//jF;ܓ8c&XS5>stream +]RV&᝘Zii^kϖcŒʁVq#WܼXqhִM&cRTˉWg!ȹ^pV] c4hdy=;:gvL.$w}Xu&0  +"0;mVB9N;8M9ݕm_?_ +m -U]߹L{^L{"vtr*5#Wv# ? K!rlj;&ŧwh1}|bL:YLN_t/wv7NY)dƤ8W!$G˜nV1+1jdsU0&|a0Tǧ T;tʎY!պ;&A{b/G#RT2қ4l99_郕td~sdrD az4aa6Rl* +tÒ\ovO*{/ο*[b4I|~ӗkW0pF r}{Mo. tj9&.LEJn ' $ EЄRg3C6+2[{qWLrg )7Z 9J1ч* Af>-G0f$JYF\; +pLo#2ʆ9~>94gg1Z]Bt5oT-KOo)"٣ Pr\\pK!rw>@O;SiL+1&TGo#&0FcqQ&wWw.dM)=) WT]Y>Dysu1~e><Ŗ5;j[9|sA.:LIUgrVp݋HTo./\}ܚYϹ1|\Pւ:! ZhQUctRZFuSΩkf*ճ]pRam\IQR7K#B.GccX.A3[yuds{Znծl5TP^+6^Yj)sїÓ9{88eZ7,fC7Ƥ^ވK0gyf|8׬@kM~@M{2zt8,|u˳~͟v|K:Yr@k97C)% a1, T)]On|U",c8Hlӆj#L$/ZޭO.xgu1,ũ5h)PiS7.&ރbMjEk'/bB.DRqĩ EH3@Cd&I%pBv| ׬&d̈́^I6Yu~aQm>/qlնSm|_܌+_D7>oO37&OE$L>;Q}9/99\R7cAT " + ބ;?`"4 vO95%R-ɃO~{6T(qf4ir5RL"^B,amFk% X\\2gfp~v 2狫|G,hT7cAJH@rz-@-HT6T7 ?j=Z^67Lˋ1pЎ%?`lF*NXut+gA P˙΃/N^q_=|ZYGrM^qYcZۡrm|;7?6nV6]EZBd2ݿ6e8\ +;ǟ Nn5T=Yya| +f}#?gI&i4쀳Fa2}n=]](:=^/nJkrݺ˦>"9 +jl +lOT(&#T +@oCBS0=jc3%V|.DېFi\cY/mNs@D9(#(牰Nח,@~¦E!Feupjֻ[ؽz8!bLLlJ(!WAٮ;HEz!!M(_(fvzuK^]@1UbErVXeqA4|?xs/:'%Qi5D.Z@ڽsdx<1!ݗ^1)u Wve"rLwxz~ne4cLԚFegdrQ/׿jko!Hp-dFmRri9>b +@jDV}:~<:|dMnU82Zavx%a&aHsZЮc~F3}̵++"|F-oѝnf+k߁@Jqu;B[A\NcJv_LL \u֓7ߓӛc)!;fqX(Ί;[Vw_|Cc/a (gGPB%d7\T]H2Nip+]Yo^_<ϕGTRll^'OF>ꘔ.JA +v~Q!9 0a‚'\in~txqzx|,=?m +lz1{1.M`8Yٹ I(ՆR-ϗo~+g=vqu[_l~sMax_wqڒSm1= a&%tƕEOzm)vu>ϵ8d+ 5!&[a2#.7^Le !dis]mfXZ+޻aI*9{Lzc{B'ܜtń 3v{7* }}߬ʏI {QƧW߼ǿ>Ónyi;ӫ'|PV*ΝP܉ +y?uy>tmI¥} @!sdmjn}sfk=7:h<'ꝖWtv_gga6e!R[ry 8d%Q| Q(%Qln=~.⟳j;`ajN^aTP.ɢ31SF ʄ+0L4GLf:re>r8|+f;7_9̈́4֟Tמ{ZqDžA +g_7F3MfMTJ5s0G'!2$?~s^dtNCte/;]v݅{P].l2پx5a de3*(F7lr͏g%Ԛhru)7W"O +(uP(d*4!@7l~(jRJ aҔVVerA=n5v=|?ϵg/~ zw6{+K',l3j8a]pzŇP8N>=SJ筽Ǚљ=:Wk3j.@f@Q@0nyl\h'5*ӥftT[V `UR.`r[>wPߺVyuSe5wF>ˌ +5!b8~cuw\ȴQz~N Q)OJHy"Y%($_z2ܑnZ@#QWq{/G+ `B-!gq>Ul*'d~;xj`Zkzs@+Xaqǁ= &t/Okz(dW܄4VѪ 4;JUׁb\a90zfƃ#)fj7V^W!!UM&lV58m5`r(,[kkW7];˿J>&l&/v+_o߃B%$\ +QmxW[w_7vw^4v<ŏ?>}}f6vhk:W|㣬fPT_ɏ)A~fN֗x3.b{PIC)׵k`7WJۄ&)Wb1~iixuq@DĥRM\ʃ*j[Ύͅ(?B:Dq>)5پ 9]~@8ZQ1iս1BSօQEժ+&U\A,kB3$ӥR cƵLlh)"`LZ+t=KAùed..GOeRBb&K9΁57V$+Bacf)͔M>tsz>L}!՞~ +N(16$D[fsrkx/W/k}v˓gEyx:FqT=L-OnkXN|'W<}󛻟*9ʎTXGڼU<8_/:YG`_﷞|_l}=yj /D|L*սF}'!eۓclq!F`&9{X8|k&UQM0~}q{d$.M>O(UA,hkOߜ%IVf3@~Rx W܈[azڅ&A\Ĥ4cTK7\1 دW>F.݋P7*D@MRanI(HVfnpˌdSVĤ|:g 憌J"k(DiY"FC,B9bs!GBncVJFI9v1a̲YY@Iܳ[;t̬kbV.!Zk2\fмqiSiVo" "B[ʫnjU4J3ogkQDGUg`ǸRvv!"f\JNwM2ZlԷ)uWQ;߿OO=zo>{pG Nޭ?n&|0蛿=%C Wܫm>~q3gN~|g| +6Os}V35lm>;xƣ8yR\v!z/Z>y]q+'CVL7*T[ d$id\(ԲRu_<_Z!͓50qQDgr:)=Q*xc{P%g5 Fy5dS*ρ^@d 9C"zeQWDIVŠ0KJbl\Hf-wvszUTJ$Z\Gw˫hrҰVq3肟&.R_9K(9άQaT.OX cRZGh9oj@Lfwks@D˜4Pf#t*j~hA;^DZ R &$OsiTZ +ot1lWDwTVGC[_0 +FR[Z rޭWj2?TwҚb|&yx1;k{w>y'fmKL?~w[lIe/#_?{I$T 6|SoGO\BT7n!1Sw:z68|', 5ŷ~wWZi_WKRXsEJk㣗Q{u}ߖq:oUIȬ|Mnxy}r_1y<D4x9k61aU\*kGd60Ikkg|kWn2+7.yв#H1Z}erQ+*"}dvkp⫕۟6_YSWt"`e,RD +%t&Y϶d=:ve )H*S$t l1iCKf +!LO0V8pB]2Qr;GȮ :y)Uc  }4z+U_U,$. zPe!ȲZEZDTW¨ȫE9cOH5ΑVX<\9}Y\9\ymlaB>I5☷PPΎ&?땛QJș!#WwO=-o>?ʴJGg/wTTK۰t7i߽G?]YJ̇7M]{fO{W:sGe0~See.Q6EWFe_kNyx)yQ˭/x2BtԪZ`'/b8!Z8Q֊{i(ĪoٮY6qH($o B b|Uza ٔj?dR1ގvKz"%;pGxy/gLJ6rьҨ4:jan5:. +<(9oB5;8I70=DؘT +ipԙ4q,Nr`JNgOaHLFč{a ? D }J%"d[zP)# &Y ɜ?Z![G0. \`&oTt`|1 oN70ER3H#BW3=\.tE$!Yk8cxr,^M_[,!N'\ځ:veXʥ8EJgE6.uaɛ I8%q欪Q!XEBy8_8\A%XGqVTIFQQV-Jуoe +jwk+awbpRQLE3+1BxP|z5urvgpc8^^'L- {´0eƨ%8x\$8uS-#+XLӆZD[L24qELj a" ,n"SQ.  +c2\H(EجCqFINi HpH,\a(9=NvH$&P;‚]D2\`qG(\/ڈ'jglBOJMpBB.sK!is$ =A\p^A4\^\_-L'3(-L&ezI00U)uif\(g!BftWU0F/hAely25 yWxH5=Se,iKk1|a*xM)\'dQ&0A&WEH4jbgLrُB@^,x6=k ~W\ 398Yn48޽/ pqK׊0)o# 8әuHb REO'H9BUJ8TA͡Q92xDGy[^봚_ +WnbukKD DITqB/-GJ gpJXcHHXMV(<}NQUGBL`v>Cjz |KԼy%)9PUBAeM1mɛ0sTq-gQyo)Fq 7EXo^3K1N8ѩp\`_w>uו dPa^$G8kJ[ Cwo~viڼ?Sjӧ\ p(Xb2^৩J z1Jaiխ|I0 +DhуҞ8FiQJq3}:)GKVa߄%89]l*)!Tf7+ BQB.G)TYgR$.rvұ ^kу^>_rE!r'QccYq.5Z$al=U'?,/a8͎P<%O0A3TJʐTG{?IrąK=3Tf)fNww`8$H$HXK.HII){@d|oUq]=S 7D#U|Ӟ o*i.BbN"WZ Q:AIdL鼽rŗK nX4U`8R:m2,nڶ\,YO{Vr͜j|""%n8t:/%*$$H!h^G"[n{#N.a ywnJQ&{q1 +C"bWZ/ n$ST3,s2!g? #V.FHMfRzBO(+2"FQH_"D@"'B1 %P~H(ƍjW^}xiH1J xN&g#3N/ taiMI"r(@9`($h#S}YŹdxBs3E7.ODl)2t O`t2䙋`qx@cռM5+th5Rgzn\jV2RiQ?=5? 0Ҽ\ܸ ߶ +J#81)f:("H8vXI-g9 ߨ[zN4*poN{/]wx4j)+FAQMIC1JiS[}ܵO7/7~ͷ|ƕ韽ZY)a;*$kF4H^kY`>,,w;7mܿ민ՓzJY񃯝>Vi/QDưn۩o=Yo^ݏO^ۯ~Ͽ>{ka +E]h4J,;,-#|7F̫7>~{履{gOo>y]*ghnns!` r֗l\oh޿7G_ٷ嗷߻׸lg(SưXtI&jnǯ=\W~~/;/?<Oo/{Y0 H )AJԊfզitg>9N}'|{{_GN& K S|eH{w߸/?W\K{֪f!p" VPB"x6+V'||/;޾JxQeȪH&bKTF"ix>]|^_ŧO>s7n,~~nO +7LRE %D&AUb<}4HpcQ䇢d ^K -b)_uW/?Ż} 93F%KLmw3 >"^['Wj_?'ѣO8֋o][ͯTTCiJ@\C) 褿m;j`X]myod`Jz(3EINr5n9]\޺K;?[?wl~G'ͪ<#m;X!H@#C ߪ'}~7_\^廿~FWzP5` h|zyyimoW^u[':O7˥.d-c\^qQWW|{'+7wL[ 1}b|RKRM4dPTvl~RNp\VsR-M HԸ+L/y!^o<Vi[* kWr_}g]Ϋ~{?|_}{w7- ũ2)2RTKlm{V7~??z7LBWy(B9#r7͔5b y)'AQZxhtZmlI-YhEguQSs%L2l]+dL2*ktV˖QQT GB .CY. +<+ՕJof*NMV>^.l״ZN&xg` R-%f_xfavN+B͒sRl7[wW֋'ãabh +dY-ow1.#8OHr$YNԪbruQ^TqV +PҜ?>DqNc= D <.-c!0b,-04!=azދϺIVv%Lz gud5&ht:Nj$m^Ѓj :T6dY;D"% +J7wU4HWl7^!%"L/9{/cOx=dL!*6vsK +\NƲblW|r7m*Q$EqLLI+@K/7 %+7^c)DzN%Q>"Ьa ѝ5DXz as؂2E0i㬍` 0G +(Yʹ3*nhC1A)3PiJ3 $t*PeC8&BMC _~s_YF㲪Z -Q1iATHXT2C'dB9AUɍ̸2>s! %؝Tmx3Bj 6gȹ\Ó]!.dVD=&hX9\T 2"\"x2Njoܬ:Tը?.=CbX0j)h֒)eV QVZ֛ѐ1ݡ,WLփ><a&RΨ"(oqzRrQ D'8Γ$iiVO;?tH_P.8XaZ"9dM~MAD0QвAd\,T]d 3zݮ`jӅnD㚚kY + 1.EkUɔI0Z02K!aĄJu,fƌ 򱜘 D~L-_K6J1ƪ No-gzyתHiMn.,h.#1ꊨ禃ް>?ZB\KhC1BňzI,HCqi8Kf! QRvn1pG'g9#BPX*^*ƭ}qI*oG.ݭ,U#b2jՒ35.P)0$&GfuNf[JJ"RŋiKMߎ(;hk,6(ǚ0g, ?ir,'k s%nSZ3ZDL DXeRɎSicavHDزrct(g.z 'ĕBQ~ҒfmxZF/$գJ4VR6FXwxO&5|lŴnLqSk~L''>Yd;ezDF)'Ӯ(7F=1OH)5\)RКBz}d`2fʉ]pykbud$Q$QΥъp mCkEez@g7ʞT1e1Jj57 R9/ 6'dT,J)ŭ/PCˢǤ /fh'" |)\pA֠pϭU*F[޵s oqc{?MeM-2F<-έ=oF'jD6VTm}Tsctc/SO%tN4~t*l:LwN֡V2ʛkV;lZ덽z/_W +[ѱC Y(-.lw;asJ[=\kG +'fvsuhscNT+R[MT͢RуJ4"/4"}TFʯo+1ci7|LK4Ww&"6cZŴEŧDt=%*dbP>cL-y/!ji'&/M*="S+q@P+A + *Ba 3ln=n]DGZew6e4 ]i?a+yʽhdSŵR!t)ϻc- 5\k-XGH&5/i{NC1&:9MAbbq5 F}ꕍ - +iwlQ*N$[Jq͉'axH,nW .UzCZ 2Qf6UcpND6F{PѡS7DI*,o|kxd٨[؊HUrpL%tJfnau*+jibsDt=<|\uu +?ZP0hZgqc i+6aw|RXF:s;jhhZXޣsջ& 7E&TjYȯJm2&7)ݘw"*ԕtfϬEն34lX +EeOݫ/1cM] \Hhdp]B{8=Q3_-l> T7@Ҕy/;WRP *O{]S>~6!_ڷ7??7=qOtΉZ*'RDelX(%Ga1C&n*.?JַL۔Ώ) lǓmJoI-D/cD)iF4х)@*^.]ʛZ;{-srafPU+_~a|bxo׶{G!Ξ@'RZDŤ _zzv:i(SŒNH,ٵ\٣RD\Z?BD<ԫc!?ŰbSۯvO/l|hV|~ 6VCB(.pvq:^:5m +;Rxs*ԤXH4g_onjL Ӄ8ˤ[1[#81yHg9/xȨP`e5nqKJuOn)#@j.Z^o6fsۍm*e2c5/= TL,.!rap~˯u0PR['D5&;}[kn=ʎnI1ݓG7׉A6(oٽ7ÔJޓΣ'Xr00% )Uvfܜ 8y'Yښr.x) ćha~`B詘՘p Ok''`3P >2֒KvzTJ3b d:'ˇO'WK:Y`Xٸfv 5nkvRKP!ba-=Ӻihnw^KkA>]][n;x89XܸNh5w_^~{rvtJ]{O[Ҏ-&=HOhՍG%ʫF@(Jʝ;hͭWǭܣa (|zݎl.h!z31ikwZ[ZlK솖䲠F}KDmH By)7=ao7^L nU0{om_k\M6mgג=9?= jfZsc?==WU_L:P+ra叫V#B;/M97ittvY)NpC ^ Q#/();FlfyC즘ӫs 2DԖ[kn\zG|tN).7JhA Cer-9R[MHq}|Ǖơџ,^ժa&~翾.4AVQhHhu6_عVLLPY# =ܸ(_c+%wهU@D0S)v ׽f5 zZ#Ȉ^DN6N_.\r)/mT4]mdXNuOe'^j_Bb0 &JkZq=DÍWrlrVm &bLsAك%f'm0M&{7O=hrG:⾈sv\kfH(GZZR0'dq~|]qToL,NBvO/;]t\EiT-|Ob>TmL.嗯ȕ-&V&,BsHFh.҆wږIGl/#Ɋ|v\ۼ 8Ys0OԳ7DI6&QiSe> +vt_yE<Tڎ Nv \1nŘ="XVJ+Bഇ^Tʶh6DN;*ՙjP.% $sQ0WЙs.f>js.9#"(B0ZyLJLH(K!D[}gW@̽Xªmڇ0=D Y"K+<X('}E..ؔVKtReF{V!-b|^Un~xUH6atFlgB g rY(A((&gr!g'*hCቆʦ^?3MTdf5⣬#upz~|KȭDKLR_Xg,/mX }՝V0 w<!Tk,HȀv㗪+raTYʼnPH!q ^)l<hL%g{X q(x+p \\xL*zItzi Vܼ9\es0eL%]㋻u>xzHZnTR<+J݀ik2XX<練WC~^:wRDv=͈\Y +Itw^~Pjn4#.8sdr97aF'h5F-Mu(֐ʜGH]I݈Dp01Y?JMzMD[)nv-\\B 6 `mӍ +gPWv> 65 +En +J0ṰǥcZXBVDٍDj]y0.zOg"bm>+r!*Tg.,F)P +ka8f=8D4iNSD?ayF;.צL"O Йΐd71Y돘(q#3$)G̪Wgx<Ҏ =5_ +b&s0D o.cćb>SXsa5W숰Qδ'oVcFwvrs"TcrBqf .."|44H +).ՋKL<>ؽ{+Paq5?i)M. THs䊛鵸v#nTMjEPX^s9Lʥ[Q!qA&&W,aDnRf{)PQ~v{7X'W۰1vjՓW;Utw{Ϯo9i!,.DmByo\;tk/8c:*7&?H +zP-NIk%!8`"DLPIX*dځY -3&c!=0#.WEԉh1eM͘X M֔dzǃ8Pm5n(A[Y/df#n:1"VdDGg]EdXpoܘ&>?Ɯab e OD'D=&ӐG' "gVYE$B҇S¬J+BNY=ğTKAn^%nb<t81HC%lLȳqTLRqO*QMcOz=q: AVcB5ZSjxZ\ r7Jyh*|Vc7&xCfbYl!B6Ȥ^~t?HdAݳ+l1Qy1$""Wg|ܹtʉ f+u!d+Z}Bx(=._qcFD(o51؃ɯ<$iue=cz+{j;B(u6=XDϸ _ri ۋAazFz y}q&|n!S PZ睸(<_A\Lj.PfJ。 E@.O&[pح֋{f pBN"RG')k 1{ kBzCA +y|xʌr9L΁Ƶ&_Jd43(M?,%P} I)Hеt\5sw Fː7d*QޮnB RR %/7nA/ bPc|n=?SnzH ɮ\>yQ~H2N5O~r$UBYGlJ5";0D +>Lvc@yG%?arSZ1 \{02 )B1_OV†+?.`B*m5]?WzfscOifrc$p1rf1O":\75l;j庇d*pIMT?_ 1J9LOBϯ{:tq2"\6Y,Ze6[. @ynCD |%!>C-.JX#hTb&Z[z!0Z#.Wj<ٞ(~.d27 w asQ |a&ib +ƋE/,9/BAՓ9"wsJ{LHըڦHp.ܚ qS(*dAxCl:Ĵ.Tڞ O/ AGl;Q n&; +IcQl>]𲎨]pZB'g`1=LP^Ќ!ܜ'>YOa&"hY#Ӑ8 q%+ D9,zYX D1 9G$ړ7>$̜ Ќqm''&'|ow0\ĜLB\0<#Dr,F]?Sg/Ni`Og"K.O00[/qR#bÉLbtڸR1.=YWIN IZk𩡒_a6Z4ipΎ+E\ @fCtZ|n~H(n;QŒPn*4YѫB-1=Z J&HUDe\0AbEff|'aT( :b\XI1 +Au>9L븉,DQK +0:9tfM=ln&q($ṫ\jVVcy%A +YΨxbMmG c]3"-nx U[Q@ +#"M-xIAtV+SƲg\(0etLP4ټ!裁̴qQ +(y;?VfNl&rI~n厊QRhzf&Ԕ;B$R!iρIL-(_̴u@w|;場LƋ(SӑsL,wL< T5U&J9ZJRn2\ O$]!&DB0 ,ժ;fsOnz}^ Pێ +MH bJRFX>⋇Lv;CE x7.&Ĕd7"Qjy),@62(^.@F,^R+ΐŵ8&j7LvR].T&3I( Kjs2HTBlԉSnn/"oDQPfVH 6ė\XQ˝BBGCbe 3/Ũ91i{'X*X-Xعx\({cPKFْ`py()ǭgnG ! 3sH~zn –`WlOp1Ψ2Qs i71ì*zW_t 1K1ͅ r A>.U2u%dڡX؍D(lPxj.sDP&@ H 6Q 1 F5Q;f[P|jaaq7>⽤%6zX(B_Dg\s%ڋAh1\D3~q~˂E\-^  n>,NyIDjb_K&yc~z%L[ +TѓpQ#)F^p%zDssFv + ;bRC*]*nZ_(QmBބz࢞Y$XI_Ľ1 jB2`.Wg=b@)$f,yğxX/fJPt]<"T](P# Th%`XgSpz4B;FPmzM-"LPDFA- ` rûx9dPoL:Tl*]`?aD4ʥ8gyP 2QҶJq!`(a \RƔY7cӂ!RNlL ,EŘ`2ˬ +䌈q8>K\nQ ረARMt03a_=RX!ggU/i;c_p +P pP3Ym!iL֨%:BT+ nSN*d1\9@:_eqo,@w}L1,68e֦b\7WQb~2L-D..aΰřdĤ#vvAqj1v|1}-$+*W=L{Bjm'#J5o_ϖ U)f݊+-0?֑)/n%>|e0Ys8 \! +\Vs@TqYKѤ;H#D _ ݙ7B+!D (g{w7jiŠ=HXDbw/1G':ň4:q%?gEmd׼93dY.uĤYTVkZ].mٵ_4W:!fGjC-DrˢZ|Pŀ+$RqG8c}A%Ά 1l/@ڨ"Omm]z$MR]F$&00Ar&YRH4f<P +I|RNvDu%)$y?O'!Rs^OOlDJ:NGe_y h==qeZd'_V"Br O-f g̳Kȼw/іja53,E)z`@&8_ξ!*N] }"I0~Y57whK#r78ً`!8(YqxTr2 p f5JU*U_RZe9=bϥ"%'ryK0=ps~[i.kR [P|qv`(ބ? +tP(yCT*3Q]޶޵F.8i;#1xMUq ͩlRߋ;YB)iSv rT-=f56"T@`] |!R~Fhai6{cT"6,aߋiX^^]]']98iTWïPKc$R7ØA*wq@0rB 5ڄ3Rj'R{,j,IkRH'?ՇZ][螃&ڨB6L)_zgiEdt.TX`q +l @Vۅ֐4zewYhn쾫(CC:VxR߫,w?|)rR-1}(xS eR +&5v?Y\Fk j$o*z}kCqʺ+ ΐr-0,gVaG`%o.2RR=EU0A2Jio$Q N b5'nixg Bq-ODh  09Ƙ6`{ws&f$vEv*HIۈsY@>_Ds+BIrڬ._=l~94V^Y߀naF +@%ˇz zZk{'Em6FIⵅ íѹ'F A>W`,rq&n)+/.w@gaaJ)A6\UO*/j˧˯V/Bi Dt',%( j;KΊќ|Ba+ifT]_9_B|3ه%UZpzۑ }wR]]}?3λsִbZ=vl )lnp1`:ժ{Ba'aH%.p T(3<.~SBejp6AִGjvLjA 0?3ʲ^ݏ\ku68Pcѽ LsG֕28 ]0raY>kjph$\\d|b+d;8 V]t3b 3QSB Lak2kY&8C09Z9k\|DU K9#hg*M +_;JuuXSW3KKdpJW9)L#x90z]3, _\NRv;qP(n 7EK*nʅu$)jkg +(xpW^JeV,BlĕZաU[zK4mew2R9T֞d~IPP1G.5ׯ$eINVHu(0rvisrYWV*GLOif`5ǔ8oWHDn1'ai4?U[7/f& +~0g{ynEPU~X O@VBi:`a s"93BZ; +~wlefJU j=J30NRă_nQsngwE@;LХmI07N{D? a?!_մP/UVnJKP.5\ݑ>VV)IogI~!L@Q7}ȃf}O?Z?KS +@5`SL}0Zi&x@51 hpz Ufb{SR-Zj=L9a~ybj}oy8=\o"j=4!2Pf5A-D3[E0K)a4Yo7ϊ4Wh᜖qL0vqvRvZQӪˆ 73Qºٽ3 ^7n>qaUG`_Mof3s'㋟r6M1!Fz0{K0~it_Y?3i;UMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7MLZ)I/QxaN/?AZ3?(ScD;4{'G!>xd-^W{cx>.̇w~3oP˛c'CB(1t oKΣ ˢ,(1e92p(Qaha :t +Ø08cEUQ^s0X#Ue矸'&/?8J$Cv0?8f0`.^_8཰@{eC@L?8B?| sKw p a(a__?"d(x/ +}~hk>D? f+d"mmBm!r'7.VZ +ބu9k Rk"[-04j+ +sƛD(b#Y.C^R\qEGYgze*CLKʨ ڝ`J),p*I:h"F'fj: TiJ&rJ1&>ӗR5:)}y\\[K}<+3H>m QʎZs1ge"WLrX!.t4ڜ3 u Vq&(y_+/$8ITF/EqE{XA Rb.dR+e +LhwJZ#v|Tg!*˕ b܀ +4WLeo,_{)q#% Z0H)5qἝp7Njv)D]\njp`(;1EQɪ9BB1τ5}Huk=8MPN(*Lջq']]8Y]3N/-⌋HU.?95 kQLc_ytf;'~KZO&T;52(%25:{DyDTK{Ҭd$Fi-QVjdzw`6\;9\g!z9%^C kvezvAu= *?u,_B +8r'B2NV 6;0ۘ*͜-DbF+a[$ʙ$`_$SH2^ YK3yB?I;qJ HP/wν j;)D};-mĹneEzu6Deo#,WD*w oTʝ$ /oJ\ tgDq>m kHH@rQ3b;}@iNmх%"Wm +Uq.猽ɳ;=G[i +>fIr?Q%o*%?%4'<Ƹ!TV=$.caӧurJ3#HgVMsopWӡ!/WX[cyF9ӬP)BJB9)1 7\6e0MS.WhJ4:G_vg2e6BښOU}ﮞ{d_PEw 5fIwm(Ø,L v>IF :&:fAnL9jw0 Y*io5凌8MN+M,_LShVI + 7A(-J[i!A{{l~͹K|SL;FyR='6HcCvzNe%APR@SxLN!c> Pf+DcWV{QB! +҂‚"8'Uq$MLq^@]P:enFj J3JX뭜ZO4o2 j 6،eŠv?ӫ`K7;=@erb5INcxVs-זs _IP^w|S# $B16b`mG|L*q.>_`gs)7QcNOʜ7khǘ|a\)Jq=wM`Wh 6ǂ+M)^Zn>Ywm d-O^pcHA9qCI! ܊팜˄ҊvV #fwFD02cL!JcD>N&$rY=M-OQM;s`uxuv@HuTl$(jF(ek0P@})]6J3bDq7 *i=?2gjed g팸#74KB^4btgP}x>Q)y3ji ntYoVPUNX/×(~@q)=ͩMDpN9 +o-*D|vG7ؕJ,͖0yr\ICፖR^Ź2u-JK..quIk4Nܟ>SjNmuۤRj}T Rs p) M;֒l)襌B*; 2pJYZJ'9)ja!xûq'g*|4I1"6kY$%H%):ڷӷ2js ʰF46# @F` n,Yq#+:t@+=&.L;T4e$l&ROBV8J܋ [GpTwe[c("7搐c]mTȩY1ً0YU=\zs;'= . +ljxN8AR~;hp0930iӪkXeHIh|z䳿i5 ]+>i4Eb?^lo.U\0B~"s +_8RZd +ev)3؞j_Oj=|[wxh`H& +}f%X0sr s6h{ZU'9lJmpJ7UFɊ1LK.6%033p գJ 0gX1F:Yi3FB$gn&PF9Sxl"<4}>d Pыn5B9|0]C P{q(h+,GBTC'`qM0]TP +ĥZ72 ?^A$T. Wo>k%5X=/Ah{88{T^P + sfl\*~FX} 4^F17NYssi2X4g U[7[gn5_A$-QFl[0I#\fwҊ0z0;ۏMu{OAatSaa$gm)/Q840ɠMbI*mL“c?}|0fISHˡg +4Sɰ0'ƃԶ3KhS•6. ~#&p7I,B4؈)3 + +\hH-K,_ffr8*ԅ0a-mDnc' \!B L.TE{In#Fo d70iYLF]ZP 9Paz$+3Oi]P=&!-+>cA &7xyFF?+5t)'7Ygd,BV\Zpޘgmu9h@" a ZkJ#q^|@ $!g~;B:9Ǹބ ^ZZW 1 .=ȼX~sψXVFMP(ص afBw∑c}X8MRKcc)w"A `c6RqL:it ܲg  030Ap` ˒Ͳ,rZ Wa>mNI=0 ra)[ +7A `(0r5Ôs\5d!)a"FVrAe+J`J/  +q;C +l8]Gfm$xÞ{8LI;9Rhq 3 sJ')k' F])A#F͔F qv|Zm&!ړm'5J0N&0z8'/mĹPZb֟d6T bb5h[q"X6uHwGxTMR XMӰDBxW-yJ u?Zhvn)۰l50_?&E1 0X|%g\qqʅ Hj]~=8{k[)|0~;VSw?(F0/8\ܣTuz`H@gWjy JJˍ+®}8ޛg\q&WQq8w7JJzb@L 'm("g?b@;LJpDxlq-KZ!q8݋Q#@\n`k)c) @F>I&-`H,i\0i*%nn9#۔\*Żw8*WjLΔ6Z.hM/dJoߦ⽔lU8صᣟV> +w#NAߠl3 +$T|*:Q12Im;rfybOMpP6w/[]znq⨚=l=p[`Y)b*!-)nGEHF0$Eq+jw4o\GQ,ҧ4&䒨\Xm='5$ę 证KUPJ .TQ(BL(0J`bm"Tݗ3ց6DQ۳:Ǥ"cp ĮmV&8j 5BkvY,j0;I+ Wx$E#h4h=c/Q_ ͂w- puFg6*uJou$Y0 6(NN;V[{|~fw)> y?JTmc40 +Z- rhY ӏ6t7?x W03W2Q9ZԱ`;GX0˱ŏ#0@M.U5(wcL5 vV 0 #Am`l+[YDX(FNH1Zݏb4z@0G{i~ Q!Z#&H'+\PI3J~.,LnpKE;VK+K*X6" +XPL|c:{>:z0fgܔaDq$cP EhQZRjߤVZBwH ëb)CfŃ^=^{)&f dʈ 4!onB! 7GI>p-F"DH$v.Ș8YNڗYgY˜Õ4 Q՚F~TM`VJH$P(|F2Z肖 ܝm" +D4GS8|53ls%i +;3Ø 0u0J{ [`D ;iM ) N!zs+ nB J@#LVf[ކnc[Մ2fɨFC"9mr=ҽ$wrDVB*q`V1C;0aqnqp -B!AF*׭qgEm* +JCprtZT7aP#ŕTp]#y9?NF W[9 ȇ `4vNBY%2Z&YNN}FgtL>pwN @qTOFvNcȏ6ӑOpj= C Nov:>b#,_pSMJ5m JER,eJ$W t7% 7b>\YIeF@G , k+)FrZ$܉P}RC +D]0YBVnDob0l@Y`ՁHcN#vC[ CPVoVnheFv CLZs`-@U%{OHPNumBG3c` pqI·Hم !?ǭCqǜ3P40P\%͞VS+\1Xbg!_KCWY=Tn֘Q;A$!-P0 ጲQ"a9j~ 6e=E[) tj'gQ'bͤJq>"Yu#ߋq&]brgԻb; 1LFԍ$EH~wY"~TKh#V# +2GPh . Xn)X5; q | >ĽFpA +H!;;xpk „2`=0IjՕX^Dp 1$ֆGp5 +ڇwp/ +T,(#|[])TFٕ1*!-ZC@Lam+ݷ˲."CT $2wo =nT^Fh8]Λz1nlJuFU<xX {9^‰A@ô 𭌚hp^:Aՠq,wx  aalPF[)Τ@t1SlQ[MQn!p-B`BE0)\ ]g +16")GwmB  DO$.il6|H+"U!S4ܿ +aPexD)XGoxNq7huaE%/ '+6}2ۇ3`ֱӿʏ 4ː8Ԧb0rKi7ʁGZ]џQ\1XZqvW-NN9wB]rq]M<d*p6yo&k9oA4}H̋PZqT!|Xw$Տc.(m!RP:oNXZakܤP' %bH7IrE\i.=sUDB qG8[LK5)V{ ]EL9Ń;PŌ؈%(:ך|0$Q +e [iE-LlP2Z;ɠ<!+tPI.UҤJ)OS@BU? R U9c5n(UC˰5ƍA,UN +x# +-fϨ٭#u$ qs1\R-[eeA2[|qA$+ox>950Yo +,A4Ri704{'Bq2;ɣBoR4f=aM*f#ޟdnJʵ#[C;8w{ްS#Zf4JEN!j--q /JSou `FT@Y_A.0Utc UQɊWeᘬ3"6u'iRX{h5.xBQVmFRơRŌ6$!Zoe6+Z9T{l~ + ."%f8?Ma&XZ{)3O]Tiřr>)[0;c !^Rȥ"(8Eu~plƼ}lAO 5ƝiAk KXݔTKsO1a0)CO3^ R17d18hr, m5pC>, +>vgRu!W&SkqyTL/OG[@PRq=32ie|H˩-@9\yË>[ +|~Bj\PYCurz+Nez#&?ڔjFտr։Z>zq̸cw?ZrVψ%(XNi|U[>GWTU9 $$Bk&h/ptj=m0N]!?ugreFTuy\XAᨍa~pav D8ƻ89 +݃7Xu! R#@'|$'WQ 1`T +x>]ob9F]Zh_0P T7$n<ںz\}>8{eSΟP(΀ntV/Jk~dgXf#*{|TҜJ!WHphڽc\n&ķR[I}ydΪ3>j[q/N0X2wV<_~=UireR(N/ή{ukU1EWkcɖLqU\0Ztj6{jDՃbt~:,ݽ{leo ܘKIƢQ_uatVY>/򂴡RvS6mM}WYǁT[*Au.KGPAcךS@,Z_'W[L][S`Ak_v_7>5v_.>_~^Y]}?x3s{Ba"vBm}׆ԦZ]+]Wݣn$;L-_x;]'tiL{g[+s蛍|K-JG̓WWw˯oQh/͞yrAEiC{<4vXn@)pZYj5P:|b|EmM˟3 W~vW'o~|wߨjk0\.oL|{1 ~V, +1?or||| L2aPW]w>,OߣV ~wO1B ދ?]էVh]Lzz _S~R(2n?@ +?(/w_Πx7tWt[GquSo/(xZମ:G.yϟ|wJ}2}xg߯d|~olu/{{I{5 dxᷫ}rxg'/8\wonyz7P{_<-tNóս'f?. ϼWۖBNxh\?|X⺳r|9|=Z>[>fxi8Z_|~LD<ŻS w`` {ӷ0Iy0?<+M.{T:/[.;GR]UZ/ +li '/Gjejg0wx|_GuN3R”B3sU>RFe2:|Q=/IUBR-n M[ 9LNat{X__U^WLǫ +_ţ?ݿտ_8xL wtoEh[AEz ih=}?]i|ᣯ\oZ/k뫯axo~&'j9ǵO~w̯}p ]0+#1n*ӧi`">Nhrw{ ~{|scPQ/OkGϿ?yoơϧ|V) z_<.z08͊ k>Q?~zճo/_DNg~7[_w`^v]7>\lx]wrW__vh+w<{/5aIyo6xkWQ+\~<]W7{/{uݗO׿;۠eB^ax;|3~]KϜ"'[J__]LN_O +n?Vc=xX/O~M[ ÷9zo?ٝuqa|OJ/{ώ}O36?y̓/fӟ= osk8j>k-fǟ/ +c"Ww\=iL{׌ӶZyHC_<\}  ?:\yj %j9BhL/-}U^=kΝW?mՃ ϿO\31W5/KҨ=CNQsym>=zZN^]'Xp) RX5x}y3=}1]-^JL$dc}S^17z{eGчkB~y &-3=SZݸ9v=Qʫ_޻+*xN.fa>xR8ILehKkm)9X8m||Ft/gk`I!w! WVl8;#`hkOVE?7WXW`LL8x'eG +[";lnҒI^z1iK-""OUFD@PCukMG&D}ā|AD.J06ADcNʉ \47X[)-ɀT;*"֙x%`@pF+KN‘51ZM)XqQͶN<0sx85 @G?cgc>!U=fs|w:7s2>Fk_0r#6,;B4KRYB R7;XslhFzr,~YHNPw*T TNG'̈hm^WJܼɯ )YhNfg/Uq9TuRػKL:0U,7/dǔ +(ҽr19ټ$e:TgLJ:p/T;^_*z`{ FT9"\%.6;zY,pPб. j 5#^* +5=&`f+x.a6wD|'O{Q7 f'+#M:9kN:3ZZHmHi=ݭLYڻ3R7 r!);*0d8E` W3)4TЈV\e"h`hQ*RGNg\o B%;7 p~)sI9!J. c~Hvd 7wQts8sND 6@Gy$7#d1C7،O(vi,&̰&"Beq6TYLMW$|с(>6ݿh-z߃+Zcm?[?T˫>dB# r`V^]M2 X0; ,r4켚[BGԀ AF +|fp҃FtFp:4b PJ;_dtF(Cܸ 7@Ft+[nhmb:[l=W^%S@3B7Ĩ +QL0^ *Zċ+6ϪGBi1SV) +^B6jaV1wO0y''B c3u6])Is@HQ./yupAm]EIVJ):QBWgךLf XKTR9M,09i_Li4pqi.Vru,УP&190pzY@312y9b! +vv,^:ǦNxhRSn:qX>Z1 ֑ |rvv7Nki7 0 !P: ~h%ˈT!m+[N_fQ0I9h+%2\ eJ§jJ~2\\Ẅo a6)D'LNi`mtr\I֢$Xr[:> eV\HR3yz+tjEO0:BPr*zT,q}??+'+s~!   &01kȨNw6ŮRlo࿽z9W|]ՇyyՋ7o/g^`&hu15U$VO_}G?}?ϼ2s1޲bQBZSZ<[itW;s{׾~_#Ͽ?_O_?3oDu4hq|<_/8w}?sϼG}՟?@Տk?[S-P02j{fuvCOo>w~Ͻ񃟽o>/?/y݋JSgR;q%]O-=qz黾=?yoן}қ,!!hB+$'Jsu }፷_~|ş W]aTN"M2j9^or#Wz/|'}w>?/?xշv/)6lt:ߎK2 zz7/~ǿ?}g/>(65&4G(hL}YL.,}_|>oxxM`bOHc{g_|z?᫿>\Yوb#6EY*kW|޼ؓOO~k~Wp:/_'WN;t($J7Zd*3k W/_G?y>އ}_ӟ]{ɕ)=A)9RNB$[[;z3;ǯ\oÏ>|[?/>>7~p}֢Td$CYI`L$f +<8_ן|W__|^ym6VQPh"r-uf6N?SϾs~߿}O~?}g_|[oS֚StJo#@eP"T{cO=kϼw?諿ǻ|g}?/|{ǟ8}f$?Aq#QV-b8^^ܺ~#//w>睟~<[ovJxvц0Y9}}?_|㭗滿?~wͯ˯puneWL4SMAJ|e"-LLZnN--^v7.^;ܩT1AA}auVTgE vԇrJ(IvYZܺ~ׅ~ճw?ywϟm# 6tEN';go3jә\\=~|}'ogwo+/Rs xkq;fq #{+[/Οo\_L4uv%'.( %ِ*TZ+NO?|~ŗ_~W?yG^:]H嗁#АAEE-l7;uԩ .^v/܏+=_}{ﺱst'zGYa"B({ tXK-\~Sϼ߾|ƣ>ӟ?w]~3WWjhSۏC@^hC]**n]z^^'{w\rzTD3fzN3Z|{nVsf_`=bpF =>LD">v@{Q4DWrFTF 'uu Р"]K)iI%bBZY%n#6߸3y&wzI`0VQA +J8ktTO/j|.dzpXILќmfhb)^A!щ("r{vG-'yH `1BX:ǒEiNL)K S/&dC}#:(v/cKn-Lcb z1 ,_"aӾ!a{H +8ұ~O6jGlb4+ٴS7XC~! .%PT˴x0g}t e4@ x];*Ԑ!/ݔIX}ܘ1z߃h0a~!$VNz`80lyI䬗Pzagxa4A:Cgt8 WbLM?j'F@ց/ Bz1lpƝ+hFzo /N.mQ1LRaL0b4x!<:сqڥSf`A$p< dᗇ FJKpmP"M ryXCWkn:f3* f3JySndβa3EDo;Z:Q9qW"sa}#a w0J-RXT3F+18l +V?o2Ż3w1‡ +\z`0é*ɛ4qg X WZe׉kG^ PM;";a Ά)\$%(e.</17?wY"6c +:H4s`0;bӻA-Y`/q_6As X` 1i;H_g‡c|{\CC:&1|`|`uH ObD4kČv`' .1L/}h\R&7#:V֐68tUCIJV .GzdeE HIweNCbl{҉*X :2xg؈|hA:3=TlЂ{餃,u!FM4T{9^fxq&bbdCE\agBE'T.!| Ptl+͘fF)_?q;08 Vw3@b#<dr + WABP\Djy孳Lހ Fr l\* G,)< LlC%4<} 0." B*، !D8SYq1h3|!>ճ 潔cF'zLUaY3 8 Q1fĊB&E7PB72Zj6$wp#F %8ҹ78-RN2ģS抃 \p )N[Wcdb`APq~gCFYP ƜA$B5VkZ)⡢kؖQװ{4"s*1sRF7 #>;8ʿ=2"p;Vz57u[XXpq3>Nʖ8fg0Xo{F!zxE1$Ƽ 6xED e/DB>>2N6 JV$,T\#uw +BFQ.I+ZrT+7os3%ah +(:؂Ѱ=u&P iD)em<8j5lrV/R=s }v UIѦP!Z9OF4@=]֐S&wpDb!$78X0ږ pޠIr%1S[Ad`G8*6z:cQ +KraHq8hk8wP*zHs$1({:0=4.fL(P&/Ą۾@nu(&$1YQkƢlFBpX5e0P`n!|M2յˏ騋Sh 6##V܁WcKɉm%X=~OɥHcC؊&OIM{zp ZцXK2apVT {ɹ/Xb]61ir:' ,+B$H| Bʁ &&턊~4lڈ*&X%hQ'~6s)6RBAP@qwҠ{StgQ`Ŕ1'5jÎ4!B&JϞsC+L0o 0FAAqϰ!+FǃsbME-&5?jf&z-R|c|Dc`&=TkpY h`BpmHTr N8t=uF{ 7̍1+vx /:|L!R XUXaeB&*Ԥ48 JH1Jb +Qxĉ!bz*eO RryϧlOv=&BL{V?$ML.u9a0ȥx}MNŊ3gh8leOfgNE[GMX*jkz>#ta!B*JCɯE;~ƨdcˆkCf +dpN.ҽ|~JNLc ;rbR:,D7S[>}EO1y4$<LfBG@=g=D B!k\ +\dʁi6 \Dɨj9;;PIOC@:7ȹؘgC#N ;2\EDdSsFV󎾒TOMR]>7E'D'ꊅ2Q_zC:: J`XGIxq!-R^0QXmp^m,߻V?&<uTZ#*esO(Ir)VY&Wb}mЉ?TdRM)v֤´Y46=Buӑxr8UBypIRhnpR@q5/m<:ojlcĈL%z'+K:G6Nc4"\t  :\fo$dA~θTk6 BV2>+%:jklKX v $,RCA3 +$5I(g,U|B)%'#-@ ' 䀐+n +Xp P1@,]n6=wPt{e|H@qL p+je%\Yi̜:sD sщmLEi5M0̦A% dP.ZY8_DLgCU&5ŪFo獈@(pe-<[۱Q!7oB($[#l80\ VZ[7sg-pQ73hGZN{ +HuDX|.J :'~v3~% ;wvPi!\ZԎZ^Ԃ'ic|zc[]0Y[ɴFľa +?6R d0Ojs3ζXXD"};p3Y}2i٭;9 +TҋrKWʺqʭg?uy*X +ӳ'M7zC@΃1y%T?. `E(&^=7}_{!A ~xJ\lRb-.dT^_% .1=:.Q?؃D`3.,sqY2:tP!5 r귫7TVԾQgIRKv2ӧƊvj.5aR\hmU[윬.\*/^&c#B^{ +֏AP-~Of_ Ky`TӄMnfOfN&V+jg'ۙNa21HoG˃fl`rIL@t5, @q) ŅV]]EONֶr3Zqebl pIp/0σSPy>DA:#1u ri[w J-koCifXbcpaXZb̎#LԊH}3YEA )w@h͝~wzgzG(@Xt#^!}@ ;h +f!\dv,Z;2u1cnD/yN7[`&dHzyfpF|W@Ro^0ס`CEE$D,PJ>@V?s2 9W[NtlB.Ά 1.=JEd^JHYg6!%glj\DxH "b|f #$;P<FIHqݸ%`Aųj8~)Vpq1G1`jmN;pMрRܨ6S}((pP/Bǭ2ZaO٥xcu7m`vT^܁Y)M67,Đ# +.WƜ}.B0u fdčkN/ q;fl~Z<p5na&w's`GjL*p5=z%6x̙ &Cqa֚bfOJM[7rshM 1!26FsT^AGA ŋ 1=I +/  ¥*k[fnZd3&wv߄28#?Xy{_~zݘQENB\^n'/=[̂/lonp.֌>ao9VwcхJsX ɴ&a]V.ݿB;Kg6\ƄTXؙܸ;v /W'\l<]_8f%B@s)`(0OrNK|N,B9.p0dH5 +ؾ.w2slz+Ҹ?w0VT%:XN֊[vbڿ.OLo߭W@kS':QN᠟KlJp) "'\],\nfOodo) b#^7/?q)2=0)@.i]"@rjO*0VX8S.znP^"Dx0# $ z< 51ӋW\Zv%2&"B{gz&slb~.꓀ <a+>l#ǝy?$Lܻ-jFn&-iչw5zh"BUR֔gR2_0~c5hcްɋ)7!7h#&s>Bmu1E2e"E:9vwνܽb2>." ,C!q#6ǥ%qF Ur"fg.ılPʫl4/@c3nL8PiQHq7%FP<X1ٜ\;?u%\\9p:+|RtDv8u NO]@CT aqq8 ~;> נ2zq!'SrӄYl S सX|>]_PnVR$衯0tDۣ2΀9 S.|BA, QJquY=!#v(c'5gXNjۂݬ08pZqYRvOϑb~roLK{|[ןOwws7o2:gVY;rmĆajS]c`~Ăt) vۄ7Q9`dҚKB:a5\Jh)7o2.G ;^ }GBUX.CtiL: Wh +b5_0bt0nC,{ 3:+*Eˑt$0F+Oo-1~>21r;otuv +;MSrRZxaoӡbylm~NcFh'>ލA9 q!# F:Fds!/WRs7л)R5œZ[Vz;7}= +p89V9-惩40--G_;4|` q9\Z8}3U@CE2-zn:K08$\dliQoEz~h# T$F>Iy@=^*4`Dx. z $n" +fKgnSYd4PrkHg}|bx  yHgvX1y+`6ܱK>1i$ۡlfD+:qcz ]xRf1wfr#/{>R{_F mxTNO{\bʊH[w}!n5g H 0Q(?Ϭn.2lO6H1\]>yƕP)RYNlHJK c{{Մ1SGH0=-Wc͝x󘃈F3^Z={ 4K>?%'Av`!+ӡJa_( &0(Iݣgx _S4fw^>j흸xcJq~G>gz@pNf JĂTh8ӮOmv\>fͥ&M2za긏jfC6nu6dv \P}apBIZ+\<l01ZOMط]Fc%;!1*V}bznᑚTK-߻,bAk~^yV|*Cv2l@q/Vd 54[[kn%nIG?; XT `'l|}\lbCiR#v"1q0 Cz7t#,;(@~ &EͻOܚݹx}Gbb=U[|ǿn,*e:;p"p%U];gkgTH +;յWk\;9j\h8t񱱖c/4k@rX`@h ?5 ˓F/ qڅj9{:̦ .2.LbrB*ҥkoGZy3&K=|ڵbc _x0|y2pv S._0ҊλhgH En#HU &G7o~T\`K'ؼ.֮%GWN$4ؼ{pU@m|joM21r +i_}x(D"hI,,*ὃH~'n:KwڎSgePNfS9dR+ +i"O{y+ ,&e>SqnP<bvP^)?.gKaVwxRYcu-YJi9%2,P | +&cP7!,Ds $jkG^pBPZ)XonTB_Y;c^/H=߿]6|b4c&>7O7L6{jy+ݿoG=)Dj~sbyہj~L~m_/@s_!tjrBBg6vX`4,ZKBz;o]1q +>*~`V7w4RjsϾ8f_8i#jo1s_Bج/E$e6tZ,􏊣K;'o\~w~qﷶбVrH3壭LH0gΝs^DTZ$H⧀&jh$Gl߾V\5w.] +]&p..7/vq9@0r%VP!VB* R#E`2tH}ȩA$? +ZLHuazI{bM7Y| D _q !,m&ֶʜMOXu~NټiF^I>5ށuH6h?^8vn4 +b["tyjsV5n O^^QA8r҅X"眨>ۃ\k+̘^AnFuCbIn>~w|&@%w W꺒:i'a ҅y5 Y4ܨg7'Kh#.J+]Bsñ?&QaxEάeZ[k.O9HA>#UƷDy>D*a|rdbBظqヅWK +?o.=x/~5w-y}s֝\woɾ% xBj/Sݺ[h}߾1}/N`Ť Z\66/zmxx7t~=tV+k6~G 3]}ŧťR~{;qmit'fUĕk1FkVXŤLapO+Zq,NXE6%&a +q ?" JK}xI/?B \  RYb ~2 /!PjVLˋǭQ 0 s:t]gx4xª0#fօ; UX-̌攢h s2brI+S); /xǔ r ,|d^YĔ˳}gشsbX$ )hiC|} H%/'Fe @D Zy#g hTJgI+NPp2-^ؙY/ b`J'ԢTXJ+G׎szO63:|jl𱲘hfj;_R]9T]߽ + V߈dYW}[N\#:ޗ o ߊ6Z ;_|o Y_qzr߾.ѷͽ#V +Y2j?? I"-8Lft[̍QnR1ZBv7Azvj-׿TZ#6T$&1 5rG[PO(.*gL* kkw2 D51DǫиqQA:SR&V K9` avnū+@hՅnD`\zZQ4qYK|"H^ +3 .Ke@ F:BK~Pb* v`@wzYOgVdlcDsCDIwRJJ$! jq +:)Ldt6K AAD Ӏ0?Ox_<EXT`"wl儘5׮Yk*fh5NƍRIjŐXR Zϋf, tfmC Ttѓzsp(6}ғ?_|tsictq;Ս{͇݇f}+x7֯<O8¡H4Zj|vpHӏ9l$aD#utcv/}ƧKVP@r8zE/z=ޞg|7b{DtVz۠PLI3X= )Ekfȓ+A.ƛ}x\H@8u8Q\Z;a)GRLNwM/ABq-(dS%?29?sDs>DHsE\tܦ/L8,ȋ-1q>oSF99  +*eVwpJi-`U;Fdl:PgƧm!Q-ɱŃqv"CLRa6k.e"fͤZclؼjJUk^:0> +Iy .TC4g6d jt#!ڰ9/ţA\"z,^ڄ|c?xoV[7I1{rI8:Y#>x[Jv{/g`O[ClH`J<>aA7n\?i_>oyngC@Yu#Q]L.RF +s=x3# ++A6&{jep۽g^L2KOqNcQFŤ+@XAX\2qe|LdX3'+p,]  )DB(B΃js6DvD@"T rzi<-Q:Fa9.̪3.5TLѱrynkj$T3m1cI+0cQ%y30ܡ DR(äj ĄI5ę▖[kY]Nu\fH).D8g1Or!%|X"zk. *I{f$TvpFJ~'ZRUwH"zZk ӑ䢒[eY1)m-USE fA_ DAjz5,%fYJ=_ +L8ِ+jeG- fl'\ ~X!B0)Y49U斲9 tOQpR Kn|Pa6EDa.#)s+p +1LvA/aȴyoE8Aa!>%CDe)VYQr#1=^8hT#fԕV PZ6?9絺4|3Ϲf\dJH8(`1% +YTi?1Rtw-41quCF-2ϡR>V/&-/TC0XtŠX3P4-‘9gF> 01_H|(B hiV?^9Pϟu\t:e*%ĻQqC4/%ZKGRVT/QYĻ.T!ZCX}|g]HEOXsټ? + W:Z#YP ՛@sP.7hG[݄Յv}hC9s0aýûA<:kmGS9Z\n£!F0.4gZ0!p0tՍ?%4k'ιNpXA(3$-Fux3D368τ7OXCIؾbsy18DaVh43#")=@[5~ ,IaG\^"Yip!NPjΏy!"Zi9ϝSvoOX 5$Q xO0DFu͍) 槝]3N`4 +09мë;W=q9Y'P0Eer^8 orvffs$Q̤\6ϯvL sL|Ч9{q-rtyI=% 0@֚?gS3ni 1aNs|f \9=阜 ;F\(XT1鞴B.?Oz@ :Li6Njv#2ѓRCCӥ=?a?3vxZ$IT +endstream endobj 366 0 obj <>stream +!\X]Y/3<3mCqiYYțFa}鲅2Y}ogy`$EU`$ɋ@ǻZB^DEV#j TV΃gf>"+g=ZL+>'|j, gg`, 1^{qD Ӷ9NbZMUX-GGsa!1B]2 X9LG}00 3:E 4cD)"BaǃZjah'H您/x8xp9Nr&/'6K {W^QwއbYznų6b> C 9" ^?BL3a 0KFD;ĩIs/N)x#|3N^:癵V'faFgXx=!FݲRla|Ōj9v޼v.B.LNμpjzzxVA1!(4's |>/ [ÛݺvV>;c?;p O,EX\b`訛%S9qc!x|k~/RA3(a&><*7rIo5RZ:*2fLi8]KZr;FCs @HZoClOࠡi|.no<#'+NDG+z:6?J&x`O$xԸlۃV5UJ̝k]FLnlwpXb# dM^Py0F{7n|'O_yvpgsX8P 4C"JZe%}3w.n^x{7*xS/sO[NͿtjnrt7KX-gp.fӺfz/ ksxİڽk']=_[O.nLӄԼa̢^ . Kŝ"x\>hݾ~rcW~÷o>oQjX}.8 )]U&{4/|h;7nu?|e_|w7ç.4 3^?+G)n.ĺYtHTSİi:nvͿ対<$zjC.;5x.˜B .@ +eShg= ; Ƴ{r7߾ï?z\ ZˇV:mX~W|b_?o{o>.oKIyy +C\,qs+W{Ox7?{mou?~']7w޿[}P↜H$9fHҸ@5Z*Wү__|tT}xՇW~w_|?|_~śշTq83z0-pS@f{Yd%sVGK{_~'?xv[sAT(MKd;mT+7_~䧟?yO߼~o\c*OR ,,fA϶~?{?ѳo_~oﾾnzm9(!@Eۗr]|~{7͋???:\.2ȨS^i%7 _뛿[z¿yg?}}xiSVW DdΓsw;q{;bǫ_?/7;vWYxP1Y#Re[_|zowޏ?_~/?;(u"i! zj S^U%]x_Y1W߽<_~ӟ}zgFkq\ +Ѩ^ךv)Ǽw7ɥ|/?y_}yW?w߿k/VI#@$FKŌV0>Gonhw7.xcwW_};a(`/1.扣a_{.??o Dpa99QҒd p~]z[;GG'?{c\*5CiHƎX7L|g,/-ſqï߿7?|v}#܊ zNyY8ԤD[?8W/?7??|W*<V$xH(Vwuyr\zv~~>_Ͽ߹鳝w;Ei £|gMWf'uFãͭ7O?ӝo=Ի0H-E H2SƉ[\5[m;V'sqtח_ZѽP4ǹ'ex!MҚJ`!{vk?ُ?Kߺ=/uP cށw˘7/%a4_=|o>ۿo?9>vX”}e&͔TG'>}vƭk6':l3=hn&; V{+ 'ˍ$~>:jk WK൛x-2#BjPԅ,,$ E,)f..7/VN!&IC09 q8n#fV;~k?Ʒﯼ{u+?s"0 Mx&$Mth\X0.ǿ|}o?wzWG*f\RDFNf c0zafr)lJ$sQ5Id;AQYE%h&-njҊ&3ű x`q28"!294/ڀ! A:g`Zf(!(,7Y,D/V…an^)ʫ%e.:'-7$t3v!3u!C$3*'C[7wv:%$pDsbn9ӿq ab$^hXgj:DHD)Dnr&,AWH$ Sn ƿ,(JˢF,I0.b.?at҆zx4>(YR`x@pZ/۫@@ѼÇ89?D"$HELLZ&m!<͐,qM)Fpގ,/FL3'=glsv b/gkL"E*m43G(m rSc&?B\ʉ|"e:rYsc05^VHdb5[Pp5l#e4\XJU02s^vNBlެr>5T򜋵:)3H ?"ܲ\HM%dHr~5p\si\-RzUw + `P$æ:^. ^&ʹ/l^Oo,A&#}<6y"ύk؟~s㆗JzMpIi`HH `ĻRnHu$fu Z I,Qn&/.^âu"x;-:C5/ yĖ]/?[P >6\.hb4Zզ/"uLX`͍l!yCx0',rWz +*?Z\w"GUD,^s!J8ƋlDH*d@>e ƴs6 .g_ O:(D(`rцD=xҁ$!J:B 2|b/8P Ȱ\k]N l/8'-@5(;QE6c Y%zLrH$x| /OBj Q`“d{ˊG\ ofc{5&?y42gBjH'z(0^6VGktrDbd+LoEX&X:ಛau0`ZEh6X G+\UQݖjni נhE77wU7%Z^gz(-:$W+궇9%&*Bg`Z>88x՗l%XRz.2m]C%`>cy{3~R|rN<Χbn.Rw39DԀdFN2nr<=禼\&(V \" r^ebTv" +=Ihi3Z\",eb3zæ]&c!=,Rj45a@ <^F\ ik$_x4 x6>ր2+M3.bʁzw@;5mϡ6,I]61Dꬓڤ ;s&h7R m >.(%.3pfX)bFE7(gY8 *-dlV#%YN-\k=/q)CTzJ@\Ƒھ@Ě^TZ!&(QL\sgFUw/~5;wy),Z1ݫ156껖"V:* k'tzeПvEP0*дڃT=/6꧜ԜOc.3UV܄LU6RjpzgOr1ݽH@aXǺljgW0sqOvĻEPWlՏ"Ě+;braǻ5}LlDJ9cI5;\;zdCS6Zo;w/g?2+k,bF7>Q~^ŤaE+uQrIP?F(ݘDA X&!]d@B[b{f.B;C+sI $ZVs~~z>6+v|t:H:d|\.oy)Nh킢Vx4jQK/Dr#L5!f/K|f9(fB~02f0s`+!m!=:F]Di![Z{eC6&:+*ߵF(2m㥍sl:)/嬤6Z;'1fq_BԺawIo౾TX/Y(>9ORAoַpCHiGūVj;_k_R.2Go~'zg]h$tzs2Q\PT& Ya3qrp'r_D EmpEڸyKפ̠;(,2f[lfW~ڼtu<(tv+m@,x$kh61Dl(ݨ<5ɥGRe}}޽ y,f LewgCiV!=p`JewA&U2I7DcM2җlffriLt?@UZ`3Vjl*ei ? MWgUvc=3'A=P +d<^7qǻc Gox) +0w)P|vbmt6G@ 1e܊Ԛaœ0_"cWHw)4& +mKÛ-"E`2-ȼ_H֐s+$I) 6ez,"Xb@$8նČQ LWB|Lfޗ.k(krVz~tb6vf|"E sBKRa-9b͎'p{z6hF6fda !!cc*n6o%RPl rJ~I)m3 +H>enqM. ͧJd}3="u9)oWn-$+.*R,oPH xX|zt׳#iv'>yPrg.Hx/.廪{{p3\\Hm6!A +=П$!ծ6HE(B7kL"3DU}t&3֝BR)#w p. K3ĬAI i;{BrƅKLMLjokZTd TtPfJ'W醴͓ +wZ}q~X˟^xy@@pctOցUǷg?%'nj;#)m}/ޮxz=vZ[M^P pbtw_7&%X|~]0c!rrboiw9ݝ]_ <φ`hh6^} <#,+5>V;~@X;EQr˦Iќڤf iqCw_FWNS޳(F+ ;H/7w@C8! 4FzApQ`ge Y +fhD=qۢ54y +Z*)1cyL,KVWT̖p]Z`D UTi) T'82g"ƙ+-g*Z[#2Gfsr~G,GQߚZ]brN{kxj _|w;2b=YsΛ@ u>yM[s=ey"jlp]8}4ó=nth{bnZoؙӜWt0Fho N_k;:rǃDo(-ӿfP[3!dSG6AÇJBOͣ2ZVEB0,gZ󈲆|. -cT3% \0+0nhGs׿RzS:qPSR_063i1~aoӜCjZzx[/"uWw?gӼ/(Y3 wOrT p!aQ&>K!>܈$:g}ESsYb[:;qߌoO =E'vԟ='/@n7CV DoFkznH3j#󋷿=}*wD{SBK(M_[0ѹFns&br]krWfjsj8l_ SJ1Zr߶Na n5ff*Efzr?O83^m^UN=ׇo~^r N/w +2riB4{%BN@Р&5&=Ѣ Rk{NYwVd|XG%-hBO!;5Cd^Wv;Kw TJ}NE ==>5^S:ڢA 9)C*mP%(xrMJ_ 0.uDѻw18(:}P@l- 5J;/4>)pYLq@{Z򯯾!EFo΅һ1\67$ngt7Z\ll"vP>I0}]a\E3>sk}HF`t:WX{Rs,G! g2|0C}\KhMnr=Y o0)8-UI{z|T"N=z/_~zwX@'0VK 2{? >=\Wzsͺ}ꂖ̞99ygW_;2?^UyR|Sl]G^|vh-hޯ96{^WiY/vvqx篽sBiBfwV{v\饴ZU|eu;P\k|Xo7N^Cu!]4=<5:gj^0ZQxvs|\+iL_ξc>:QQ`M5N΍X?b)hOڌuQ$tTTo9k=9ӛ'Pe. l VB|lnZ{5RHG3'Rr +_YYY,1,7ig6O}xc;&3e%!9 D)3mrWHM)y^b(Fj+ժU8CEQ =a^?̀Q,VUƫ65[YOF8,Rn2RRzTމZiE"Jtǜ.*Bۼr㔲ٚ)eBhOr\pazFV}FO9l7w[% vF 651]PMӢE}t%'Z\R-+xhrkwROKt id-)LKmXk%[o|x?gkr /E$VjʴfN+zMo6\Z#Osܞ`Y(,P?Zr&Ozҷ:?"i 2&.q  @ !>*Z -SRY5v' r:ǝquAqf p:n&^~6$0>Z1/pbq޾I,jY |WH-(|*Rqi~ӻ; o ֛YR>y&i9Z4! +i(SvQe?&mS55=g ykOPLF/˼5`!)!v=[JMY*!lX\?Ri^Up2;eփ"P[b&_Or|b3I1h5հcWMZ q87;!1L-T `>("TN8 iz9z^j"l +D,x} +i*Do,X|>Giw!8uꓷ޼[RI/[ >4E օ!֏aˀyWh!ƌ@В/pIO(\Ofrtz?dQ)A2I6$uf5*d׻FL׻ z`PdaEz_>godiN`YU;Yگg0ޕXO/bI +1P-PX(H!Zm \3ѝ@!n>(Y&)! oi PXAy͕L~O}eqYjGZ43e!9U&zSRVlv|DBMiWze PxJ +G7zrHj)3@^`?q]DE$mOk#KΛJn%1C@6fj} 2hC??' T8LGXW fZd#7ӫqPP܂gDɂ?NgEo f`{_8?'^T ΝѮ0.QoUD<! N}tι# "h gݹ:ӕ`0HmYz0'&EAkBΌ6l"wYca-&. ojW'_b [0gͮi$;yUJN~5w*:s@FHCUa:`wp\/vF)=39dȭk]u%Pv1B+iPBzSV{7rz8υSRbxpoFgF&E#P9..?5g=j~*Qe^")C)~is(o xူ9/  6u1Jt,'pgjYIdƟ9߼ܘ{G` i3m-?l>eg_qMle 7k:/**=]WJحE}B)!sDNix|X,("f[FƠ+\ +t +t>qDn(P*0)a67(%Sw;x@*՗Du;x2rC-{%LKޟV0[WA*]yأ{&RD +9BX#9zvUĺ篼=뭠* x7śx;}&IF@ ge$3N[Ҝ߀&fNzeo?0ͺ;Cs XSºP,J8PqyA"c!b}|,f>n(]agN^0zDyVuvj|HXOس i#HQh_ oojuo +dS,ϣ\]v)L7t;'_ o/,D1kXc9:D6hfy5r|ȸ"dɠd9oyRկ}t59=D )K}2ؼ$,1 +҈1'{(Cf 1y9,1!G!bm*5jR6,iYEGPZUƙ/ <y:vi0LV0Gr4ݓ&/pMlmx"ô:ommoȔfPzWp}(6(sVI!R +J-NYw=rFsi 9ċ襓6\|4*_9ݻZ[ZcnU,Q?xbPעRgwqk?- LP)»s9 + +)씄bL9*J挷ffJcN>*50fr0[{_ili²jSPn^_wN\UčڇEg}†[a8y*kYb`U. ƩP?^lH?^q+=X + âCf!Hd&*G)sI JpNvVn`a@!j@oZ6jJp/Hs%@BpPŻ8Edc)܀a.o._ǫqkZ*:¥[Zpq?_r|T =vG{uU25\iȤg]([~B {Z0-wO??' +b]'TG3u~;7 tA4v+R$jc+I0vKBQ!I$GUU` +I֟1T)=j<-H5A^bF~zC"V67z>+˴9gz&o3UU ]f~dtү΁9P3hx%9M +9*qqs3hۚ\rv7yWa B=™*KR{p $jAZh^T̑nWH2Vs nP;1(NM8td+wrٻ2ȏ(rBNN X\=ހl_ aV+t5'5!*jZ_47?U3;q:n.\ROrRꣻd1}"  e aۯoBlu%!#﹣3}źLr!*FKKV 9|_I@T=\jh&PoDoJi.*;A RSnlR_l z`o rm@.Ι˴rI")"?sUj#8;"v7|r9zxSM,@d|w @kxxٜ6ansd\d" \}p\!^d|6 ׷5p3O5~axk_r/ 7J| \r/ ~o>လ(WeXw7NbÃ\@&L3;WZ:=!7u#p[R\g(}99df귫W`Ƥ"xtmvg&igጋ"mcy^ +YzV`#[96*Dpp/+\Rb 9;fV4muιX49#xYwrW{nAq@Lp':ڭ9%&='̅N/E^WnR4hFPj\){)>`rY#7`ZlU`!0,[`|+]wVK/ a>!A_yղkGU4%A@@j_5ܢݩѻbJKtD=w_,(ι=x~li1I]'~Tb1 ++Y^,e:嗛W79QaC#:Ʒj\(S)Q͠j*J[j^{/mځs.|Z+IYQ EB#g9(}&'#^7VP3_֧`2U-'1 +꛿] AWu[6ofGp/1ǰ807.P^T]nK1AW+Bnig )=},aũ:)謷8̲=Y33&aQn)lǬ;NB -uw/pZ8w;'Z0'd#yW~5P@"eY?Kڜ/sNETDLJ`N"#B R| ߻^\x@5G9͔lzzU{f_w+IM6֧/59E>SiMLS{= F6N(qz29Hnդ^"3[EKatXwEw+>(/Fg$e\nc-9_!7i*+nc ,9y~%Hg)&CgKqQ?ɳ^9wp[?q$砖w>Nmsם׳?A'Tw i4'"Xf&/Dj<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<c m<'2?_e\-~d5#Cvsg//72|d<\e +xq^o/jqvXT>_;33g89+fLA0to'Bz,~? 4afD(!8b3ϯBIG9Y%Y*9e)U8 #%1Q4`$MLulS4mcqirwꇐ( : CC)/S悪XcGݚܣ9/)s˭?עCC ISCJhn!I:s~\5U([B8Sc19қVfB 'Ғ<{;ǔ>qcXE>LYwjtjF?i3p ;_ TLpƆ&E>@&Dα6iuޥ=z->ڗ/IqE0c޵7~-6Npg\CF*Y΢¹2f2W/rQYlv4z3&> sc0k$EU. ƙ9~uZHLޞ!zRrU%vKƅ1f !5wJFMkj7`JlE:,E.䤀e݅IȨXk{go9gw.}7_m֝׌?S"jz SpA*MV.SfPR=|Ijm\Pcӭ5SPV* )gk}6>JonQ}uv)gQZT0E(s~0r ԣ)(=0pA[մѹ}U)4Rs#4Hoa[/?.jc %DG9!Cj>)+yʃ-N ˔{ey,T@=Δ%H*xYϔĝP}Lc;C-P'%NQB6iLq}"E'>)Й0C}8 S̡j Im2ۨ0m$gX!XYD+]f)&Dϊ\71Yx8sC>Lv +*Rt_8EV9mXK`CLmi3uMVӮVRO6iKo}Z2LjIi$ZC lUaZnv17Q->T(vr _,لRs5E= , FNnf^S>Nɫů/qceC\O+>n*m8}^MY}WdqksiǸҁHrF>c#@%m~)[3j@PsfB E݊1t[kfwF>5Ǭ31Ar'aHڸligxU{THOs]bCȇ +R O |5,Se0P}%&fRzfdq3 iC><7;jȤ_w+QJ;IMMfӸ>3RNqDJG+Dn X&fs᪵Z%֯e {1+Dm>6>݋?uEkTf|>O_2nJF:ɵ #*&@6F\?-nuuIc`/p>\S[yFP-P}(xK%Xq8U) M_E6[xQVI<@! +ZK`Ni BG ւ?"!fkᙒ\jJ2,"}DʑXcCO_ ]`lM-pT,dQR [vA,@uH״: *:$n{FhvhP0EyV*^E+!!t +H E;%'YIJNKiP[c0QMnCrR6' ;)e +ޕSD}Zc]~دf&A`@ O+ +7cIc ͎V_ g t(yc@wV3!]}-9U"0dmN6 *@ "{'mLmNPʠ%;Ui٫9L+.v$3Fp +[ճ 5†9٭JrtYQTT aN a)c^ N7Y@!D/Q!}D `'y h([NaC}'5"b zs;@$DYU$c9JB+q=7oh{8c^ ?`.iAseoҸT[ׄ5@~41qRFw=k,l?7zYU925!.< (c`v.+ESTc1BnhCC`OXΝԎսi0G>ncjagҶ䔟(uڧ 2p X{^]IxwsGa +be9y&Fmi*P>25onygY9>&•.wA"L"*iV>_nb3-@`$kbƞBôC&ᚵRZb|R!a5U6ޯc  a͞D nm +XՄ&:\HD{OKt,SLMIGhڅ 3_ +;@PIkJkmt&G +ט܆A"wXgj5Ohy@֢9ƅK!z^O5z`HwNXc)>WRr.ԏn\RBxn s}@:w, I]qi 'wE>,^E*b 7XEM`( +aLwfk†:t7Im$E̚SRU,yZ?-0?ɑ/p-1+PzStb0zR Rr4V^,K{ZS,8pp +~XU}nt,"[:WBܨ{}/@昣Rk %,dwaRKo2UҺ..(DžO2d/T1 k.E]=Bl@=ŠD)4O@iPSaE!lPb?< $yHg%iQ>2]^ResQW +/-%S`>j=+) pǍQ.N=BbzXsgyc:sf|4er^i:@50jN8X6-=TȌ?W[;Ma<4[}Êř#ps˘l{0zOm`*»Β;_]=C=,Tbz̅P {iXr9&̱>dP,,ݾ_ +fyTCTa#y igThr+4滸 Av{ys-/^YӚ(P <HXJBNc +&FO3X(=!Q 𚻏X5}F n0Q;e R@ORT%<떅l/,bAȡR\$LJֺ:%:La 0Sdi0^|DU.Ƥ|`2%9ͳ5 LwB }fQj~J'~E~5 +Hact?" +E.-E5P+3>!%sTjR 2 դgPʄU>Dk {|FO .BmO7 x`u_`RP!& 2\cE<$Ѻjһ%).p!?ڝ)i0yͻ?5z'?Q9 >RQS*Y)Im $݃2W5>& nh16@( ?}Wz0}#f Bi1  ?b;%6[}1d;@FzsS@ep{V%rOtj9 +O'9 +x d-e+B$h4œnJ2L&%`۔%)5x\Eҏ'{Bk=)0}P +(J$X < )YGۻe&OIK^4Aj9Xmg?v`N1:ڂ;H߭( !Cp9$<UO=T9jx竆 H,c +0{YIMËW,|FFZrO^9i` KH6Ҥp"M:mJN˪9⯁@c1|.tNz8O,euʼ-Tocj7[O8*vW,"0U XFZ`f ?[I`Ԯ,VtBQP^)rETςu;E@Fs[G'yfkRr{ˈ!*E{xݪUӉ!CRH/Yڤ&7տ .w{k@v=39.6 'y`[ }\#6k`xSUۄ/r.֒;+w.j G܅=\'uֵ<q# +h-O +_ПgE +l_{Nj*`CՐO +~MP#]9ǯPY7D`)2 {%0δȆeg9 ,uJ\6Fzu*X< ٘%,z5YxYB{,kWaKm ]`ځj„=d(L w@:*`U"-sUҔlNQ$2 WbOxR\ "љ0+[Tk$X KF$ +"'mGCZQ?Yiܨ)kX z7n"F 췑ꘅ! 좳^iDehB'|ԂJb4u ,PĄɀ2P ƧG<[ +BdyB#+P4v?\Y#ɲP BzsE+y`}H#V CBD<L"=Gp5@w2~l-^H%;GIgpHj4ʦ-`fp[ܝ0'Jf"鈙;']c#6n腡ȠfaR91kp&rY&tB>0VRa'ڤ5:|;0n}2<#`D-=fCC 띒ŭa?ަt0~O' V0 ;r@G22qG6xT3`#`;sX:X2BnP'~b [@xۘsx=(Cz'2lab:判wI`Ga4 }Ϙqd5j36:e:Fv:6qzE +5DE `ޥC83%;i+7X*rX =>XR1Ҹ=dćX,'\AV\go O4)afBH7SY_v洞O͟o,D=$qΆI`0uV Y[& x#SԜt. ߯EM8%#ׅ(KԿ_Xh3d|q39 FWhDB4106"nd-xM8b|D.;0l,!c +lrPR&m#0& +u`HxBzēN* t3 8[YGux'-ѹ$_ѹQ+uG!w }PZllARi-oj=6࢟;nfM=;kf_C~a9`A,9C#C:rѐ`86Ȟn Vz 80f2V N;9 !aS:N-2 +y? ?B9O8BZĨ}%`*1J(zBiQ#6m< CZkM_?hDz'?aLm4E2&Dkiq3.kG<9i@3҈77yN+of52DhȆz$ xO6[=5,Tyd`qVoV:bF 0ĭV>3!0D]0zTS !K7k`] n@nz/ͫFx;8 +DdV:zL88?56Jp0E{6&9l4PfGWA Zp⌝N F+n"b $Gl1~=@=0`-~ėGq3& +GlL6 f!RN_XˁI\NU I xD0wM; XP0 :bHGY( bos;et!@ a7O5=o}2jm~/ ˭#o7l$M FbD~ې\dyꤕ)ѯӌC&=CZbHKB90WѾ_sPh0:X@(p;/UU{Fnf`4 ))C2#0\,ؙ$#xSH +z@P2b$J1X2r]<E%;=XtIRb ,tɦL Mx"] 471deY3Ӎ=K]~#:hi͛r`[Ԩ=xگ;C87&ocƬMLXNltD&-TxlB`@yʮR9v&3L\~@Gꐐi/m@d(q+DX}@0a4t0r@vh£ut+j$[M4a F6mBv1HUH {䤅֢:G<~6ȤnɃ<efNYl6|H+ge+V.`=qy__^) ?}}iD"77h%ajACKf7=/1퍶H\ܡ*<Ϩ].=VLtFOČuK8Th@Z7;9&Qde!KWnE_{P%Yݑ X6 XD܁2db.6c@>F +jRTT5h=8lq:1>Sn hR +{4RGx -b f3ш'X!Lz$d!Ѐ{B&$R2e]!-&CD`?#(v@NNi ҡV"j8C1EjZ5v ɨ=,dТ-Q%CGt@2!kD$L +InDOhm.PI01"]d#FlD"lMnn(BU'ӐF%A;-t pM:ouYhǧv8*:;7na պeTˋLiQPمHcח]r e =A.vvF˄Tq^F>e_ ~]LbZ,,Xۘ #OG?ySPR +:\0g q6 zԴ٫Y. T(9\*J6,t ^E*b3XbseJSc?C9=D$A|YLyד?`]lHD/*S^]|NOFq T)M 3?!qY?Gؔ}@𰉌/B3L҈u҄+@{L +FMu)i{AxP\n@rZgҢ2:W)ǧ6^둝X8Y^MNbaT,~tD:}H d\rT4b:<`crsCs0AU.3 xןc +. )NDTJtgW-^ + lPBeT(& @F_ +dg܂+@ 7_Qa 6'XbmF"MWt'\wrN> m:E#CtHNK-pEo|u\LEuǀC/!Ꚑɓ Y08TL էd6f"`xsTVB.*A TgfDgZ9**+}nrP\D fBwh+T\@OHhmO l&W$eJ*[Ȩb7Q<UZC8@V:[j}Ko9%nH#V6*RmEnlfG[Ã`Ɲ @9wS-JD@t&\3Trr)pGN?PAOM>=퍔H[2tKuQ`u[1R\â-2ܠ%J./e]>fHTv +foɧq~R;[^8#i푪P5X*rhWZCх:1sIugl1)*:U^39R +g(= +āx9m4ش7qqڽa:Z\?\]snbA4&!Sq;lGHRIVf#M*rPAV_%XM+.,2Z8`5Nӆ +jpc.Gk<4R's'õUFmD{Ky\n +k1&쬕RdԉH|mnDsO(J+-o[.d _l(#f(d•¹Pu#RZl:4Nf $% 2R%0KKhkLw3U Da7bOxc\(B,m%;';;/xzyycHm5\_}RZ8غ:wRDMSS#lww2 l>fJw^ X2}*;tO !ףcPyٗcS|9<&ѠAQrܟ6vcHCQ*f**%WrljGi;Gsg> @M[:K`ydfʊ/ݧm6!=()&՗*0 2\QWSxpzL߾ek6.uv|OhM"ؿryWS[sPz4 ESX8_8-9leU4TKHc;_LO0dcV V}֕c/=6viu|5Rq*nOźIOxBNZSB~VlD;@6.V~]v~Vi ^eV"c(U;pOMtN%;^_$m˕;wN6[?{(Mxk:9YZ:_ۺiNH^k>dr Z{7ԙ\!X(DfzNni1).shm㑂X%"EJmBzs";H7tV|vF+v~zw=퍋d .NKҩϞa"QDw<>oVW.N]9z|Iҳjͬ{TCs@qry틅*GJv*U5͞%:RFDj:,.:{Jm ֆ?5% +sa|?:{ߋreơx}-p.6+Hy +mpXuBX%ӆ/,_o aO-@6"Zipp Dm%3j&A@h2`r2p!ފ,$[@yCy'0>S,&-9}*; rLsSjs)Z_ʋ*Σ/cFBnmnxTWr~j/@t}OqouJm?=w_s"ԩeg?6` =❽{|zsbq1}|@9UX=٧g6ϷRf-c_+x$\^-( w0H#f-l.\\͞t +&$LrNw}/VN B.;19}FiT/CЙ5ph /etTN͋JKp +bș{AHa8{0w֛1@㕵Hu= fi=p\ħM ڝ*Ξ8?})`raxQ̮ ky23w);w!o9u-|QZS܊TZol/WO&Q`{U7rg\1aO/a_j:in/6)Uؖ[GʫW}|f0;j/^P{ۗNԊg )f: ӻFm1'*dk/9uToVu# k?%:;~דD}2n0?ϥ{be1?*.z?-gro'vvYe¥Tpk\R KFRՍHҊ2u,p|5]Huɕ*i;Q>?ΜӽŅR~ٯv.U1peRVczI1?̔fN4/RM[\`i&dT(:߻V;ZlttkN)cr37R>G Vh{L:ʼ];`ߙ3z dVC5T6E /3ba`t er)f*=Gj -RA#mI@ +cnCN&|LFJ0h/'Zk'\t.NaE @hMSfoxbR^ٔr&B`Vyt0{T/VVNMEr 'T}r x,RݢL&y|.7}8 +[>bg,m e)l#VDFA| +tLz}y4>3.+}"B#T+!B @Ά&& ?>EE.LxPR?Z]¼GBha^eۇ=|rL[lx7*3s[`,Kī&en{چrOЀ!,؁R(g~\eBqR@r`Z0,ؼZ;-͔Q)I2\r~I)b d03dĆFZʨz7b &/\>v-NQ_d2XbVS-.*L:&j6&f;ٙ¶ڞW +3+ӳW׏1P\(ͦ1>qf6 &BKd9V>z91h$+暹`}VOR?jh,ƫ>C*dIa'HJ&r x W,.+%w*rIaZǩHaxRTGPh%å* 1aEN =b:WЄÈb8&'k%`#b-g Ф)ɥ:n>7ae4v'}*O8кy a!k!)p8y|>&.(3Ra[c^5V;TS{Ⲑ#cWg+9)3bSM\)U˸TH[HKK|l`BH }^Dk> +u'B!XuCΏɯ6jt(>et0GC.#kfKfuxdpyqBU'@Q p:N*홵#K;g.s{O~ӏ>ݟϾwѹ{.uc\7WsZsnm~W~ƒOzOy΋~gnTs +g]lSD%h&w77\8}w=^=~<|x[~o?x5sdtnNԣQJ}n}q~O>׿~|C91!%X=)~fc6/J DsA㭅cWO凞y[߿3g=%FL! W9쑲ۧHR;Jg{?Ox߾||"][$CyfT#~<ļ ]<\-rwܵ k| QҟR3Ɩë8`HVkOq{y'_|O~ˏϾ췿]>rCZ +W*rPzY]<~<Կ>o}w~۟_}_ _|k?TNߘ:9 .y_&˽|ʣO7>}_Gw?w?O?oxqoi  w\{{~_}}?O~ǟ}?賻~2lnm|6r@P~ĥx-\Vkk_y}>/ֿw}w=$$(FTgqims.]zϵ}~՟g_~̯om1szcVT |2ͅŰR,6w]{z#O>/gß||[<8~"9LT,W\޺rwwݏ>? ?׿/|G?CG+p ç.8sk[?|/>?O>~r#Y0fS?QrJk}k}񣟿~_򓏾_|˯⫯'/d)51g3> /ko۷׿|>?/|wn/>ϾO>SO|=VŤ!6WJx9ϭ^7;?_|՟o~O>ݟ'>xv/\9r+Y\8J 3x7~ͷo/?ʫ~LL3{T&_]]\xSOg9>Diֆ2ZȑT.[7nom{wug{fqkq]r_j/ jC6Z "%},9rD&[-6WΜ;u|?VD!A%0ޅ#)sv7ps=>o;zW_y٧q][;{٨G-kIevz~)Nn_}zo'vVkSt8 ø(<^PV">fJ'y;~~ŗ_|?|']ǞKWy≧}{KO=xߓ<|왵T?^g ^e7X Mf*\oWzgy쑗^|ݟ vk[JgL:ۊuR:Rwq NI zoH7i81 QD1|ICJ֎V7j/E\0☕089AКuV !6q<+g{ a C'Rll;3I]^  9FL!tp4"a9H'L6]i4VDETP e"2h0UdXerjTVFYΔ@#@ 3N"2i&4Fϸ5h]6R<OUw;RȥR2;tbsF4F Ǚ.HJNMb2](뗔D%NsV{ݙx^Md1A9d"G1eGRM(j6/w뗛 g81iw:$QJ$2!ZoQMLѡH$Odcd"] ٠\cU)9eܼ .mzt~X +y8ԟtenuxKX#q/aB&IJ3IƆ[R-LY%:׈N\@HfNH"T9hvS7I(a"yWt/9lľ>b80k#ƒjǯ\A[78It{#\1d($>И aB)^#aLVov"G=TFDq` !-|QU;0aߤtMDT)%ӫ;gdiBk!Ӂt +F GާtQ.5!3.A{tNG* +JVgu2Dᣜ|-6ȕцK4VDS|z^9>5;f=?U1փ2՘?[tscIg*?㤢;̔+F"g zd̊! OZV`e`@h}Pk?#ziR,(V2xy +PpxcN& GҪ 2}Rkq3a'ymĜM@9dt$wQRsV"\m dƭ1ш16+&xXYg /(Llf\>wO8|v.'c%B,jo3b!_ė}pӍ7T[k ~V<  *@8Һ:Opř8o-ζL d@q.qY3w MحnD߄C"փq#1yJL8No4xR\ʆkn6w6Rј!sL9? 8q V7!J,L5xCIFvR5vYQk`m}$궼uq 9&YkJ0fgk6Bp$`&l + `Ea=rD 28T_PHVH %_jF*oѦZ(HsrŧT>⍘1㋏ op}X:2\MZ13n 6_HDEJ50 &؄xsi"!cFIP8B:7]462 WRRGsȀjlUğm;\go 9dt2MV8;ktǵn5>N%n8= +\1ba.tp-5u~ B˽t밝[sVLt>qcKҪݗp&s\!!Lߤyp ~}ջB v\28&zM]IDG/ne;ۇ 2XX mEQ}1Ev> +E4RuiueS6.dc>%f™haM0{ _b Wobpe01]_ړ3P,Zn{41}NL#|*jKSPV,hE+bUʯ[\٨ǟs N+|ϧ  yGū 4KBTuZ*@yS6ZbMZv>k d#&ilF4LBOo JV"48 ȧtͥl⒨''J tq?.Cf„6FDNO;L*T7~q :-%7#dW֮իhė].)W-$!ѲۻNK0rUXȧڙ+O5WԻ!T¢?PvJq1J,[Qj>a%7ÆKmA}qhӧSJ}7&4k()AF`/GM䄕?ѡ䆘[ N&O8sOa=u@ET#*!\j6eXSb8(qDzp>*,YO.ҝq}V/`o)wv nDF4.37։6tK~(;8a3d`޺}/\ztj|._rjƀTUJ)ՍR2<*d@NA.0 N ήF>f!AxT" ^#%NytcBaX'VLO#3Q3!Vsj/8ݷ̘LǧedX^ܽ4 +ٹt +  y08hFm#v)HgLNeOAh33c~+iq  Rp:D`;~嬸s0:/M170 +9ZrC-[ZTB*JT{ 0=LiqV$6Rni!h~ y!ٰR!3ԡAOv+wV7Luz7޲q +&r 7ODNJ͂KJ*e@<ڲI +HIHtE+ʕHm[(,~r<Q]U6DZ 3{_ʻ.oT76lChDRf$ %Q~f$hwGٽݽ۸_̇|ҼåZ]"%P +mK7\K|}ݷ,xK,LflllB\*\X7X hZ?\ ׄ*;3 *,T5i.-ퟰj bU ᅼi7 B+Z]^,Sf"6J͉LȬt7mN)K9X.2i&xF'v +iPu /W GG:ޘx&g%;'w/-z8|xỸ?k!&kJ~5۽R_=5Ir^=n$l b49@KmlPZ n9^ȴ/+=I?bSt ";@Bc:@q0sz~WHk'6ir 2aU" `~mDjfO&BkS{ϊ+WQ'+^sy'+GVv יa֊[1;;A;"t +>Qc8bL7a".1Gj+72#VUhw i'Ƌ ^8/GK a1 !=~z7d7B"e"u9?c>C )^qz$45.\f4hX ɀćiK\b!\"B h(=:KP~SBvɳQ)niJ+,/\g|ԗk8B&/̘nhQ6/4o L(F;rz1Zml<`(LӠL:X7w \ZO'%B.<44 K9!6e#f57A&H?(Ź>[ B5fqL:iwC3BKl*%,PNࠞlk-؅QW9&p×Z6V`c!siTo#zD&5e->U Wl{D‹B\Kv(%Bk]1 +!p% ol(Lj ; j`BC!FXͺ CEؓtaTrk@23KWZNf'5>H#OsZ'_T? ,G*9 8hL6z܌ڶ:! . &2vgjw^qaĩ3=&z]lE$[-n6X:-n'"F'ov{',!Il\ģd >`H*+kA_8SVR\ +I;'GkL0bXYU/HCT+ΆBVlRar? r?ZXgCe0J RDKry55}j㡒N/]O~wl^W֍׮CS) Op@Όr#AHPv +Hă!<$gP T|nO˅y-h rC6sZl#jrK!?t;'p +P筨 )10:;)()gqLb{$C0Ƞ/@_ ilvaB)xM.1"d5Uݾt:&^+FTOJL99-eǬ6J$@ +0Jʈsoۇ̬pY_`#JѹSCFÈ/\."|pdtSOx=pqzw|gn)KޔOZȣa#vv6h/'+a.dfZ ب_Z;ˆ$<8oʀ356 \>-24"u>bv+0BtoF,cNWv" piũT fwoo.pJB|KTѺоؤuaO⸕8i nŊt |劉ͣZJrW;dSR]O5BؗVWovw%N]"mM׏٘ C,h6"l&VX__°9 ''d +Jޅ )+B Qy:i#'(bfhƌÄ+MW\ KT(+ Z̞I cBD.Vk8e؉+Z3:&'ѿ9;3}z~X^Vʀ]JW֤ eRRbzF.dGV]y);,ϸi,lxB^3Odb @() Vq';B'Qrxe ru^TYYEDgi6HPBmrڡ-#88'pp<8:萉%,.o.v7PAL sIN].ݙ{q;ɩLsu}1=Glih{@QAͅ{@Dx[&?dhF 7@,XY(n4W|<„E(>ۯu&PLy<=b3X$(eX.BLݮwA%F˼Z^Zq )7IƌKtA(M.a\NPI- p1p2wX.E+-_FSS%iJR3  %_(f ӸYH[t >AN= ,|zX%QDŽq 'G'oM:hUQ)CEbn6XYUKݹ:i/ɹ9!1*5!9X3"T#@G؄ +;GՙK=(_Yo,NgK^E^`>*8F)e)6~3RAS q;J@THHozvzqjU˾L=]tEM7_Lm"CR$%|lUK7k|3-A/fp_iD1A >ɮNwp%S[Qb(OBLDGٜdMp iQPv̂(Zm殆\m#f<2BJKٗfqQlJW,Oc$t <F1jVot7O/<߻_i/”߆*5X$Fyh+ +>H-O0‚:3 2(_F9s#\FJq9zfiZbRlE)Rs +PfWfNfVo0(cxv-w:L212XI53xÛsP`yj;޺;u'V,|n?؁+f7@ԍcn_4qNkώ8HZ'2E,rPt-\02£#qcN}㤴z7c`qx~>"gQUFE@oxq99R@  DŽm``q_Ngv\8~^mnaߜ1ߌP*~q(_D$YAAq)f@O,t2`')l*ƫ |px}%I7pe9\^b@wzJE˃l-_4jXqn΃f6*6j~zƳroh"RP=޾7:L:M.goU[B Ȇ/=LTja4rsybr ~1VhΞ L4dM"+r-zFXX)Oo z:'a!i+)RgKs_KvB2PpP!Y/[K.6Gz7D0~q5޸/jc\ge-hl Gw&-_xR͍ͷsި^ TKlj#KWoo_{^[<&&cpyy#Y л +N&)y2P3Νoȅn=LOTYK/nu 鷑 hOi..6evqq7ge 3JnÁœ25@q )%Souaqz{'Aj{ e팂JTCIX݂F,bBf,#G.O*3bXu/.G+b|vFL)GsEfe'fS҅TRq7ތTWl~{Ri͌ߟ];p/NZȹU[<-ׇٌd(K9ojR^)޶~jp*7ny8{IeD0ɟV@`tfJ'-}FFK:e@DLon:\ႅ|w0{xidb{ŭg?h^FC_=D"!Djmj/w2&PXw7+G|];._ +5փ !3G냻c йl BUQj;VTu)fP 7RW_3Fr17B\@647毥UPJ1wϗV'1QX{+Wo W + !fU_HCsn#%TEZ&į2ra'IjpRyxy{e>Ч+I Du%Q^ +yzԪ6< Asq*LS>JPq˕+¢[, NiO@Q1kÓ-@ ʠs0 Q[HJzwb$*2+jeٟ;S16|{dy- O= 0bYJkw4ό4fj[If6h%mLU#"='M6^fj3XtBwq#-ro <2Jqf3!&&7&;+/o.{L~5J7ne;G>$z"-:ՙo\zrvᗿ}W&2TZԷ"a6PC:d̀Cfz blh9?jm6.MxZ:Nm_|:hٝ1Rtu~}!Qrsūݍ "_DKlʝwnj,*噃Wƪ+_5o-./{}ywww^\\ BzNn՗^}˴/]ÒurQ;󅹛RvŪ +-8<I*Xu.FSc5^>xq}Ƶ7*+wj'ݍQvEڵ'ԗ_!#f=j3X`=!T2V}hsh=1=(v +):teXGWJ.:'ڸZ=lt E|Zjh%EOoo~a71p28 Q넜|@'9uO޼N]ř n(ls}_urG!̛.(lƈJ) 9mԀF $ >m%}F%;d0$EĈ΁jPB9 +&"ƚe֊01%D +(zĎ0UM.VTM)/b-@*W)Md3Bt3XM@jͭnShwSxy~F\ҳRb 7t9uI1,&[[k4޼ݻ\V7ߝ{)\هo|4{uy w3*.㍛ݻ8$L’$2~q{ҝ7^#*ANfqeᆘ޹Zxzzq0*hq|#eO _Vj\zM̊Wn|h8;o^:yKIw7 n95W7o^}[gd,ڰ`yv`1#\LrQ~ohżV\rq>1,z{SLAœ/7Ǭ&!aB!¬hō{|z+2i#\ R#~iK* 3郗[[r 7ڄ!<.YR*0q+kvoV-."ެ SS`L`vބ)&L[BRs83}.B klVfCd#/[R`ag.%G#o.aPǛę0 ]^Kތ +8=AT V(^+52%7YlomO c@L +@C:QI)G8D-0oq2WR]*Ժ$n!XZcakz 57DCYnZ7`2'2=+2 .M3"B"R]TZ^ AG㧗/ׯ((fa9?i&&A7ouxz5b'Q%`aH7=a$Ό'mpm/rDF\8;I?(0Rm~v棌KV ׊@Ә=Z3ۭÉdqw ST`uKQN/i\ud\tfL6-@ly;" '@2ɩX)svR>^lւi =6E ^ę``a.䢤xy.R^ggT_NW$@\ATHIB5Xe1`ub#gFVIB$\̟ ;U׌m +F&N@f;elpiHtx 8 )vhGe7]2r2aAA| MV.LV"|n ++&MZILcZ 6 |_p+eRoS2fFوR]TaTqqyd1uY\>#)|)'2guG/Gf: q:5l"6TIPy‚y;..ٶ.@dp i $|jl7#:ȄetFi}$)r,1H640LɺW-fpx,.@"|Z j&'L$*r())zC)B/ [G=8 o!"TMo#e̊r9 +Tu_gP6un%gdm3`OVkr4KDԪYpbPYPnh#x9>7fwt9WRrYn.-. +p> F;}N4.aa戄̶R"xCAb.'O7Փ8ZyB0 O. +'|<%s|`e^:>{~ۿ!,b! ĢR1ܬ'T@⢑0zbDPV;ՙŅۏHfZ#@̧kgΜC +rD2lvh04-˭/]]60:qZbbDFrM󡀒 [-ld1!-Oo>Gww/mLMUHmvd"j2N +q,jy%ҳ =~ůݧwwW AQ(LBu'Bܟ +rbxҋ3ͣ;ׯ֏7o?ћ|p_~|GW(B0:٤(nűV1S׋]no=6' 7|kx38%]nUFK'w^Z~w⋻~ٍ_v_~7x' +V,+$Zpd^$Ft/x/w޾(ѓцZ|UNUp|1YK-VU='Onn|ټ:5kLbyBf'xwqsՑ__w㏟|}/~NQ0 6k7C_[_ѧo]yvɳ~|'ׯǷ޺]]\T%{/xDйzru楽~w~;?򣓃lˇlF8 v6fDzxɩp!}_b.N}Ko?}/P+̸i%ȕ +{m!^??#~+\$(zA hRB`mh.p; ?\ͯ>z?;Ưx>2, Do >%IZK7˟?Y߽ǯ_?|ww~/?9ۗt "6.-4sBo'K?YO^՗|~_/o߽w.-#8<1X].)1L;b9no\,`˷v>yOo_'߽Piw{|ێKp4j1J΍/>_o緿|GWoӫޫsBf53Ccm;MBϾ{Oz?돎~.;O}w/߿sݕ|H8xAI)Y*½wVw{_Y?~ys1[*`R@ :J8Db"QRS^\Ə>'_uW޹hzu%; R=h3DbN W=1NJD?ﻹQҏ7';?/><׏;;/lgr",ƒmA K K +Siߣ˵,zϿ}?~|Ͼ{-N>%! +dr B^jknܽQco_:k^PxzWǷ?}٧^NM!cEm~Z z?PSyrVhl"u@t,E=%9-z#D2 +;WmrSO.OwN>}3:{%܆(oUsIiSHGNޭ&w{5p'ޝ~{kw͖8^"9l#+vf [^ӽg7*-Ph`6Nm&Jv2`q~$ BpkvZ=vջXډU)yB4`0 Kɚ=dPJlFwfnO2ZB +a3QhO=^lvזܙw,}g?Z݅W3a?tC6,DTHo.*QWZÿSc?Y??^P7b_└m"lae9)[ؤBT>)yQ T맮Om{^/Oۘ1ung(CUEX>I*qˆErI+$|  P!mio*uW{~!./ F'PP~6ˆ +o֌uv,b΍پ}fbLcrZ>B؛V{O^^oB(_ +e#=,ɢWfY \:LDX<>'H2ʈ6J#zh9 긍4EWkyxC K)мv N3>ft,[ +1138G0+\0D\XA)3C1݄qTz!PhȘ~LcDqk,9 Pؙ/."3l5HjI56>x}5HC<.-%-eل J#}re뇻+ӕRX)w!8&DdF&<SXjaauZAd<^L׏$Y>yLWWO#36ä>7]վ}p %uQ" A7EE_R$:譩0tՠ# f>Q}3-#I6KIILyIGI̳R0Z 0JI$P%Vl7 Tr21L$gFpNi޸Ηj:2u8 ƌ&xԌ}EQR7M߲k8%󊣙RTRWwe63Xs]*Qb{;`dZJ f8uqg Q8Ix)LѶ<[GI&(Tsl%YY L Q6j@X)ɬ(Uɨ̡=gz4/㨆 ~o9ӽz"Nߋ)<|i/p۶'ϼ~,KkLQ唟/cDQjJCX% 7Z2$h!k`pb+x+ DS%P:(iC WM>i FWN܁Onu֓Fm-7/4`Ÿϰ *9W9´^ckX J]KVvsGguVjFc:NHVvѿT{|͖gp9-O+=d'#rm5$04Y/*-X_ƃB%.m3=J^H{G +l{y:L"r(KΘGYև/o`p{۳$9Rfj-G9M$ENZÒ6@$*4 +kO(c@9-B3XG5]RyI[6 j%N~x2ZY5BTIIJ{┛WZ_?zZ)ڃU.p UOUȐm~3bM3SiVW +00]R \5YMF" ` Wˍc~ՎP$mʙ;Gׯyʈ:+6cs#]Қ5>4oBicm<R5'y@.A*'[ sødy +'z9K&So:{L۽s{vw?c?Nn~|:x/3I\ZR}:x,txH::j藬nR2'aΝS Q;|^]sP,%(X]43bOJ?(ۢ7GT/qgA?&E3_ß?͓PWsJNhKmgWZO>WG~=: OR<>'W} Ew zUv`S5}J{c(m A V(}V~IgoGߵ/ ĩ=@mxg߼/k}4?|)WwM7}^~}ٻ쎎Oc[#JZ)Ϥ`2:} _ FĮvN5{{IujO݉˵() + LiN?k{9W,`#CϥCm/rgJhmv7fOMޥ޿5(:azkY}0ӏ1TKX /;GVvZfCu\x({\?=Qjku0y4>y7:ǒ;9y;>}؃`xq.g?Z;Orfҙ]ȁܾ$I?}X#ҹ>v!1W(Gozru@ (oi{񣏓=eRPRv|mra}Kkp J ď?,p'`C7wrxo +*\`wtSy]^}P^\}sk{f6|GNlOο?6 _xs͛WGY\x}^=6[Gjd^Ѕ8zӏGW;{NGyS,&Gos%"IW h{Q"C:3q)!{8j)>*4U&n8%SŠ@RuF9"o}cKT|m + }Q\6 +L\T/:g ɫfeP f 9kｶ'ힾn|Y/UY_N+@$jBт&hȋu_(kd;iq2[i) n*s$U@/3W)څ콬̞̐v9E{ʣp:>\mLbrP}f>Hr9 Iu.pEnvq{T2V`Qv*р͈ +R_~ŷB4EZ`BX(N35.y|zk +^p @_:5Z5&z}mDjARX +!X$k]ڙr04_´<׊?_ly0YW{ÊqSoG+uYb`{Nw/EƎ3) ZAZӁCԣʻic܏%Ҝ?*H-`I.8@qIpyux YJFNb̾2+q.!7RL c}"{P8™9Q@Χ0S™y (IZ;;Xf^h3[1b3yݓj䕵?BASq%˱ o{uڏd%b2L5.(%'@E}vBǨ(jeJd`b4bL<j DhmR 9on~ YSO}5a}Y+{ Z8`Q8,^W_"iAjgY9JGXwUkN3Z' \nZg2vյi}]mu5~{`mvg]T{gד*Q4WۋGZ}22VAQdZ +endstream endobj 367 0 obj <>stream + 'Ѻђ Ebbk(F1@|9i+ٿ\JmF'V74Wb%HQ3Q8>&Ilu [*$JJ8W6/@XMeAuB֘uC{DG1s)F2"0YbuOkIQD2O 9}o'_gZ-l7rGpLy?yNl-ʙ4v^_积yHAbV]vQnB1U'_͋<_MEK6{#|}-#GQrZ딴z#sf}@䃃;Swy:Sz:3<NoPfTb픁Q6G;_brP[N +ħ9+ Զ ${G@9K w4@ #y9K%/Oc UEv9VR[h"Jb&d!V(gƎ䍌qQmo4--՝—lXB Ez+Iv%Ak)!b u|-=hiCjp?&Dœod8Go:le%/+q공\QKD@̔fN@|߷Y)k 9f,ɽK"*q 7—e319̕ 8) I!sFuLHIEIrzdou0Jj mXhIC0F'I/YT$g@*"t Jj(5(Q\J#E:9bːrW ,ay8o <0mxGr e 4<;^m_w/5´ݫy"E5ۢ.[RfP% hBZTA + 6/^.U#R{8*hG@& a{ ܂ YSOH;]pOY%~d܋ NFF(0cqusJ@[9 t%]R%(yhNg@hHHa#I/Ay.k5N^EҠF]MB@]GoWST( ?=!8**M|yX! +^usp!BYYiۚ<Z\ݻ,_fG^Ai(Ikcl v. D\iTkm}u}Tj62iҤYNj&tDoN}2S @I{mtoK68Bĭ{?dFv9 B^7_U'Tyg<jzbyEzVZ Z&U6iLʞazFD/S[RjXmN4B+ w{ :;y\Yړ7bu'J%I14T[тgT?|J"xCj=HYQc^\#B3Z2 + >6"t1zāb+iʈk Zrꋵ7K|=i\K-p FZ\44v6^h#P%ɖ' L:[:1˜oLl]~|nhPEetm>|vZTzjpd-R%)܅JjTYIcgf{ZT&cp3'T_ky[/4lPTr$C:Py-I5Iސw:Q-v2JW9MJR6К`iT׉*8vP6O}[(s0Ԑ`i{D=}Dk%c-'V㜑: 1{Z2i [yfwcDh6j[|P&IEo3ʍ Tjf:#j5|p.I@!UԚ_\#l pgJAS 5@c{ɺ)C6-^Ɉq9s/Ljbwpc"TN z 5Χf g+5CElG2,"uxߝ| !K,{/^c9y)P6|6%ѿbfN+PcCH#y)ZY d(Lj7y$uqkJX[M 2 +k$'%d=(f#ToD#:J`jĀ6z}'(>y{$WvMح4mexLjTKR@mN#|'r{u{} L1CCSF) :݉ZF>tBKzN0@jPhQș&+*FVpuZsheRLUAa/11l J+KeJ D_;"iH\8=r`ɯ)%wWL@kv?0~wWlEe5' +ҽr +?^Җx  +6hxS마ܹr9w. H#Zl}4Y@$'%$, F\MP=ʖAr2zQwD_-p5(Ғ؀캷|*1e2\M̫1Ĉ#Z,'eI'Y1۵M" y?QEQl +bI Rha}j81ȫj F$L1턗\0 p)'15PE$"Znn/?a8 TxQCX&;@4F/X3 b TtQhOo^I a;1 +'*eJgvcE/HSL‘EIWrM Z2ld̒lrH&S\kdB9b+K9$a(hIBV胈ڛy$!b4A)i#!B[hkҨfN3~A=P,+ivFo \p/嚈ڋQj^VP=L'̢&P-PI* nC +2*voGqԄT_oW"jJ-8C0@bɺ5'KQz% +6b/~q'kI Qֆ=ΑR]K1kiT&Cj8E{v~56p;I",'HA&V?`a-P@W6ceÔNQll6KT 1B-)-6+-\g 3FN I*pyMly +UJX얔N (8"j6lY.qlfT4FQDRZNbr\5x*!->r\WbG1^aVQю$h@WsrAESigGT@'`a1mLY3y\YC@ypC-~ebhg`7Q2K52`$zI=.8W (֟=`&&9blay{YsoB${Q&EՅ (kЫEŠ :`zo6B4'GdN,[9i<rPɢuYMʘOR.fLe,HrҡP?0/Rg]Tir`5.:uԐ|K̆ fp=8+ѽmc\TRԦ7Y Z2V( `B9KYYyUś1ZWlB^]]CU\C] 2rR ~CqB9;6Lqڈs|qEK*}\Ohkū $phAQTZVK3ݗ_ Pq҉Vp[NpP'_.%/d8"W}AA݁= +:Tá`GST!B76isHi5F%d }.pk?_y%^P$J<|̾(ʽB{ SJN|xWEWTH=~N Ousl%Cjjj!N4  J{h0CE4"ƞrt>8 R蜒6C)FXaiz fӿSR\!16%yލ9SkiI4ZmR-[He֙%-ii+ThN(>LP?ΰzȲ4kEs]QL'9Lj܇7J3nqD292Jj {l5DTZkGz? oJ8ePn9- kazx3npZuk +!m@VkzXHX#PqiT\ +kz~ }?-ia-''@cfzXhldRDI🯦XB:(Tѿ^PNFV +Bz)Yԁ_`<9"$oY iǿ~_<>0b|7c$]̼3 a Rcf SR)'[+ON?A<,8n3ΪkH­Y Ҩ5KUF r F +dny?!rF$DZnEx9ρYX( 9/G;I.mr?֓f)4!V j5ǔa2aX۟='O x,E{ty[E1ZL\~FnHĊ&YsT@/C6(jd|qG[F3>(0PD | r2 ?|:15 1^@ ഭY+<˂h`L%UlTfj$D +^KҚ  \a!$ ]ilO/Ӹeʴ5\[*%VH ~o^ Ei:M:2e[gy bV[ix`ۏâ>KQpbq8 +vFd?}_i +Btz:LQ|=ؔOF)H,Ul-)H}dFp^\cXT>í$7jC@'fJCx1EQO@_D.u72R4^YP@9>(7?$"OCX}nH!EA'jy9ͭa/Ʃ8%xygB9uXA8ÇG Ff*k@ k `Qk8aq\96Ɩin Is5Tj]ڣ7_ɝیb:gإpeO'#661t0yg,dn=ڞj2{^'ALl FQ9Mn5DKiBӪRe2L-Z +(åphO)g [N ~(Cp@w/FA{1{E8w*iUzQFVHxI,ʜS ۼ?YKq n&K cѝֲtYnF +jsVrsbM9Jχ*hRi)9KI*Wsb+Q)sS;6z^PPq,%^w7gW4eK̫}SFrځz#bSm/_*jɍ;:%fVfy3lKHia=#mͬ%9#JsA Q*c1Mf&@Qm+~gc*@PfNCkOq/Pq^BAE2œz'rmg3'DR +s!9Z ` +C,ED]QG/61p`XHc>.Zf# jN"@ +q9kKJ;JQ`?ya`k'JX_ab@c%#j{_#=u 5_ϖV?u5LJNld&QRFXSDjBvA9X;MSH nZGf3\/FΑzJ;{In#/EvI˔P_EլPd+z/-En}E&|EH*#s`m>$gM_o֙Ҽy*?ȉr&wH j 8/Li7z>U~~?! +J5t-E2@!|m݇?\x%k'U 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵@n[ 䶵I33i*3Gݟ"'ko?1W}pMGݝR)]2.%aww/VKt<݁_ps)iy2TZڀd.7Х ZN%۰m'ɥR*?I I Χl6 +l2O"b)2x.2\2YZ[Rx.[,"H!gad6ܭXLh7. 'OGdRαT ?O=)bXw?3C/ ӟ$ɴ?tDfS_ab~LώFKͥt2JL,eLSO']t8Ofui))ӐO2)1LsAA C " DZ(j1D"5ℽUҶ i^xW3"aQ^V4RWJq9jmҞbr+F;Le\BR'EV + bL%/z[YJ2RԔ 'Mh=1íQ^nn$I#'k}.gr1&nn4Q;| fbcz bVt(p9_I]i*(E#Y +'eȲ]UwdEAFX͊FC\l͜-\{89wpڔHL $l{wW{;=Ù!gH!hO$(-EZN(ʝxݭ.ދ@TT{}?UםH '8!</MȝҍXB$gL'!& ؄C1#TA\ra[=˜ !č cGxXj,w\3 qeGXܒ]mqǻ۷eKfFƑqƔMi{TwLwtKtH( !&ƘjXF"B!O蒏2rɮ(B0;Zc.r%&7XjW+$De|+3`*XbB9Vd9Ʒt9Y*K>2dK|i4{TY{.?gP2?{ _][nk,wqXhF!b[ֶAn9,,0c{H]-ȅ WQKWl ;tq;$,3i̜qm)$\Θ +edS~fK-_*4"(~v9(8h=dIێDQMEhmj'߆r\[C%=x%R³]I{HK2ByUܘKAގ(aׄ-Eqsa1Q٭y Dfr.Z/)q WQmքk!"z,xP͗ĪEgJu3炌7q-gG@Ǐ}lGebj;mjt0X{R@yLaڄmS-2;Iޤ3@]M*=&2L)hB؁*Q7޽wݸQ2^ !jڣS}LjX.%"Ac~y7jz1BЭt+j t2~Zt=l/15/ŊI}mP* GEor9@:b)|kd\Qd#x $̼{LlY{=Ε0{hATpiJ\hF(Ƽhxcb`._7{Axv0!J3vU\%lڜ*ԈvĦ{9+j#)<G}En567*ǁ +_Q;齏UׯK!lLksRjٱhܚ `M;0* !.f4Zx>lT| b9H/(GXZ@ځg! (J릫>,7.K~f=q%ʔH0BaY(_\ezՁQyO9xԂπ]xllw.Q5fSJ5GDx;P{b:򠒗qy +cpTO<1$@``m!2U$BI}OAFKʊ@t jkTjvpPLfctVťFBnTf{1A:fp'6PܥLa+"ցВ\%u$dpQi_)oVklfqx/o1#B]05\TڿMPPr7QJ TN(@=aa1?̔DsӜʛLq% ЅeD +3&Rw%4p Զ6Ŏi >cMfK  + akB2$"PH<5fD겗ZpD +>~&>vG%ƃZǘ2R坤sоDek $R`p!R;Š QQEN5FBjAò(} $([!?i,GXƲT[~4l6!@|%?p)@`bYRnz3E/n .\*5Mgv¥JuȀΰ4J\t-_`9'){1 lBtlL7^⿶ZH[jl &ceW(_&' Iz> 'i bed* Fby4F`A\TGXڒ̍ڶǤ0sA&J @_jsа顟 5ܴPgP'OӃ[xa6؂U)=#=Ɍ+d +(l \ +a@GN ~S;bm.Cw!.1{1v`e?q0]Zㅉ_o A!njB?Bš:@ΘK@kBdɇ.qx)OB;-Xy՜\ +OX ;<GUwL\%q@ڠԶ<4-(8Ǚ}T]`8WDD&m:Ewb9Ź2pi2sى-x){X%ewb!#;Qh +[[lS2# yyљxƆXPTֹ*a3ts xjX{ƀ]e1[ $8WGEw;BƤ;ʓV+z1d 1L8!#* aQkc\gTDXZ3JHͨ҈S+i'i)Ņ*"Hv } +dTR4wn\OÌՖy!CdrHu0ZTۙ-,B 1/&g;xP !X_OE+0<=K:t\vX>X.@SBIy7, J8#<<`$@ +.Y)I=0 NT:^(ȅX! wD0p2-Za=pB ڃl(&2~96yC q(FKCt+gPF(F~O>\"Rh*lc='3$"E&wCd! ơ L*LsK;B?ՎU+S4Ggqrѕ\ ЋP4 68&a6`0k:@JrՍ,] Θ0VFuqw,ępa:Ҧs+PU+3#,PӘuO׊!&F1+uE vP,,f*p1 $L +=J!:ɗѻ{BҠWaK!*$31Bijqcrc|Ilc\i'w^\ix<%,x]b&Iefb/4h K1>\:x'.?u&nX(&וI%B\1ˍ/ƓT.ؑczzsAkɔ/!"[K413ܹa6ȟ3"KK3E[xɋ`lж>`,>T|(GTA N]&Bl q IL+-xBJnyRbq "&5s1HGiȉAhh "ke{lG ͎!3`LVW%e{"t=Հ5 n]y7fb %h ļG\8J\Z^]!BiB[1 +s`FAPRLPZ3HTGy3ʙ ve!7ɵň9!΃ڂh.#l-R֙0F~*nL[E67Mw)UZ +UGN8-!\DQ T:_k`QޗLy3btw{s0RV̱^ق .AD/ KAcLťKCc PQ Q[.mkň帠 ؂;AIIF Fuo\rs8@(+`ٸ {!#RrFaغ5bRO@Ɍ=9@@Dt7Zh~8,:X]haJMaܸXrx{ŗԋ)@lLλqxMZ>{Ah(ThG8J+o2bafX0< i]+!`Ials΄u/&^B >|jɅ-'f5cccCTi+Ő1:3c:@J6_@O]!j?Bu2b] VME>J.8 (&d151MȠ#V`!BFتD2{D*~Q d,0@a+qe&ֳ)/̯ u`=dČE?끬`.Ml!]EΏq݇:0*'D@E{=%~} K%X9sFh[w(c:t 079c$0hN1[WcNKk( |Ժ>N 0Kc3Tfr-`LHt~ vDrzLw| :Εw:mĺ6 x"&Axލf]@wZ߉ u [ĚNى}?az% +XG.Yzm> Ι_w[)F.C6dj ~& 5_r mQy6y9yJ{XC*cQ=.] eO2"D"BeQL#OD %-;ce}Z@fÏe F*,~W/YXň-<||)_2odK-|f +IfbMBdڽ'X'3,;y?3a<QaY" ;,Y6Ė|ѐc`d6Ȟ%7vrҎe ǁY 3^@XH0şöB=X ~HC-LϓQAaa!F]vPKTbU* ~V-Xͨ +Y]R,>\޸?>)T}E{hɋY +.p}fkcx>)5 H:<ƕ Tp +qiϺCb 'Q"Dz^XJ/ȋb9x֩{Fdz %+eH?&{#⼛X[L_Gt>Dd!B׀iy0\jֲewg"u<=;S4+ʂ/Ju/ɢ+.C銲^LZRW.lDrLZZy;!B_ 6<#)*B7Cl ! AQ~\7Q05PGg rQ1BZB=kC=hQ*D +'K, k,!S"ITS죗|-(Bk@Tٳ`n-X5?B&,FZ l{cK>vǂOA2w=WŴn+}@6 _SE:y&Ƅ64ZV1>,.VK0h<3A% 2 +`u-0a5b|NY7 @ƽ-xBn5qu ^'. dO: Ua90Ņa/<,q)<_`fγ–(g1鎁;8w6L>YEd늕)[=8}oܺx xcį\}`.tdbXǴ'BC*2&`0xfC`$ Ti"| >)uqku +{A)Ϭ٣ehKDfÀ27R\jᩮ|2*t)~,eJ=W"&"\݉d˂=쀮(_ €' //]X0N###p|օy/ЊRf(2l#,ɈiB@ui(8pO{҂UtDrϠL۶ 1XK+7Bc6a^ST됭sT0&)ywr`‚Ǻ{6j|aM2ds >XD HhOdP]4$ ȍ~nrCj&>xJ.ZX"&(>m Pa+T/6t%T63Ts+ƔvTh0ӆzrݣQyDh$R#UCL.D +ͤ KnZ MA!-rS(ƺXr~y`AAATT8U%2}BPYt@IH7!qNL'"5rrt4]'cx&.4Uij#Է܀v01> cqFv"=![6>w* -FҚ;jkMO$vla*zbyU0W4tcTk%&&_kb}Oip]'n$\ۗ\y-z- LcR%O^}!P\dLB∰%W\]Dy6aڕ[TvZT\F2zHq +,Ts6vjDm,DdO*!S\*Օz(LƮڄ҅Y{]Ibt6 c bY09{1`OgDf<g֟egG*<@wCB!Slˏq~rugzjzY;1LT\3Fg*a$TVkZr=/R}кEV:xnķSZj[Iqz-|GmIu~2 sZO%k[qLg7WqcBi"tDn_)Ls:. , b}5Ɖ(=8J+ltjA֨J{Ě6TI*7V[Y7-kmF?q' Sֆ1o'絝щ`δꬻswz-&TO)̈́ҌN5Lɍ܄4Zsv0=WZ[&_e:{(VBbBQ YvpWZwr]BEdzյk?rxS'O֮46$7:ɎOV~t29CizL*'TY+啛Zkgjv\kTWΉ6Զf g76띣}Tk;Jc0F< ;juyz0>ۺ +xBڰzct啵ܸsjuF .7:{/7~"J}ۜ^?ظmXh.;lM! ^RzaTݜ}h|ݷ_̷Ds7wGFQm\y3#BݍJݗLjc &ׁxr*=[TPYoZ?ǹ]s +ʾ}zLmk9ʝڃͣ;oi0vG/N<>{{tͷF{Ͽ8Ls<in?>ںzֽi۹5Zqm?z~"W&Fw+#B.LƮ>8Kk7+wzsjnz*WF2QZ]+e*tv\6aʙYm~}V_,;8̮7o}sLkm>nnޭΏsŵsl +m+ȍ_^9}Ϋmo U bXުoˍ cp62u*] +c8akTY S:7̕Tw͌V}Zqtd;vv~??8uZ"&U'!.ijwVvx+I}aitvZ>U>^{{ +J}֣w_W֚-.yCs7}s_+] 4oڭo^{{>^l\=zJ}7?:쿰~c{h{сڻbeMݸn8I\aǰbl .U(!X]kk/|}Lo5^n>*N^N m4c|hnG+W_޸F1U\%~w7Lgfw~gy!Ns3n~BC-+U K^Lwޕ'^ds]x9powN6%JAc ޕ?|#[R7Wڞ:6zgѻ'Tj*_(NhXw Nin~vSWry#k*c ӫZ~vءjnD(]*MS szjRj 7 @Q/Nk7;7WFw;XUg+wkbbuV?7YY9 0'[Jk_x{T/Dj࠽4~=1߸xkƛ_}K(zݗ>~>r49>o?on=[ɕt8;ݸnTsf9YRYҘbiqiޜ$hNTHU43:yl?$XaІ]IWlkKtw Ӥ1ƔN}t_`|bs9#4NXWQ>ruUmjD2g{w׎2^kqy2{wzk>2* *3;M^VMZ͇GݣO*dgvĜ\qKCB4׀ɯ{WAZmz$dWTn}*gZg7rL^ir_Ō95[  I{:¤ +v֭7t1!.4?+n5N^yޥҭu};ޛQYU7oPR{w$!e4?80W7V6q-Le@  S &Ռ39͜5V7nimP;wdu:m'q#3Q&~m5#|sR7k+~2U]R}erm!_]o[xz}WyetԍiRLN!CA:_޺71=V{㚗H<%׏֑zWmz˕&<:ZМ2꛳EOM7#|Q.U<Ո @0:v lu֪uv[nBVRSDVg'XYoo?lm߇GgRoƓC*V;`W;rqpTw_ +eqLe ~}2"Рx *΍ۜMf:cD 2CF[K3w\i2HVS 7z~p76|5:ܸ18r}*7S%S@# Y7n7nն)"9.Sl=ރW7jL0aHpH(̲:ZkSjlݽZ!ҍPM2[ۏ:{+WesD*^\sFD? gv5v_'jk;̤Ҹ:TjC6Q-?cl PE2?3Hd+ry%Dٕ7+`Wz[w2 +4S&ˣ׵njC{ڌEst:;~~'?8Jkn@Gdls]lPfZWf4]1Wn۾?={1F>ܙkB4 yB1_{}<;y5LKTnSb.\eKa<~(80ؼu01vDr4”֢?i >< z{+សӣR1&UlIlJpD NV\4.W8IBwK5w7믬>SeT)z݇Jr}3Wrֳ<8bair *2{#[7brFއJC?.re\\ dᲾA&W^WvZ驁\no=>>y<'(Ja P@3I%Jid qZ.JW[teGe\^-Nz)K5~?Xۻ1Jpt8^\YD6 yI [299{8 +2\1EH %\}KZZMXN%C g&׃E;jev*Wl7UQ(D(AJ)hMu|$0EW^sV>ٹc(̥?ZsO8sKnyoʁe-|+qbQ[&d+ãǭ͛Zm%[x÷m1!4*tsQ*" +EL*l+QuUީO 7*(.':BwTZQ2$~X^!A.rTݏ 7&W_>Na6* E &UJas,fz\fR Q$B0q^}P=IB@љ>XW3"zCZP'R>_3W̕ƍv>tsC7[$՚+·IsbNL,j4ܼ׮?.N*kfZYjjo+]TM\̈́@*jk6GDIݣa"SFUS,h1]{bdL>"_lȵo[J{rJeMob݇j;Ĕb ӌ0YgKf PFgj>Zp:kn$Ֆ;",bq\e$Q* 65oRE؜YI#!y/I;\[˾ ac\ˮ/Rlv*^sm]{dNwQt$0kS3*˔H#LS{LJU`hlA40CYuLoLB4i93(`\h Qcr<8R=g8e%o|!aqx+9c?ɥۧ?›~ܗ?o?/~o}s?QHX[dq:=;{W_/|>ߺKo}wk?Ml 9T**]U tk[ܛ|}wß{/||˯џ_߾Phx#\&[Z31gڃֵWnwg'֮;;~G??6޽o05Hbk19K%wӵYengw_O}>G~>/WA2@\ !f2d\?)Ƥ[i׺k>zO}|[߻kG&&t?Pi#dڏPηw |7O_yw>{_x'}7^?_y8L &JI1Ǝۛ9(4׺k_\;[/|k/O?G?;΢\pPsoLu( +6L!FbRjl|rwΟO~3_rm,g\ݹu'/O_o/~gO_| wp 5T>gNlìG[?䗾|?o_?Ǿ? f6>ܨro?xw?/귾?wGϿ??_/wodk@8Vww:['?o? C [[`h{O^7ԗo|O'?}GW'7'!9 07!#u87|ڟO?wϿ߿[: c5_ݽv~ŗ[?_/??˿ۿ$#uO\ۢ4s#g +T +P@!sIW}`;dy؟?ip&FrUJo_^;zoϿ_?x׮}p'Vgqi+n޼ _~~ooOww?xZ-dzn"jy,AIB ^xW^wO~/||G?ON|o}ttqJhV4[o.olloݾy;wǿwO?ݿ't{bE+yJJ\_˷uV|꣢XC/ Lg-[[Ͽqg|?뗿~뇷x +hXժnKFsڛ_98o|ǿ?~>?~Ko;\;i@@5s{_}|'>o~^}hE + ;0V-R$Q[ٽW?O/?/}~ӟ?WܽpwTʣ& ?ُW/lV[Tz#&D!´QKo~?O_ʍ|Fn̰Aqϋ Z`aneuҥ7u{|w_߽gzwn/m 2ŵ€W^46n{_y/{>u~ыG6+e51Nn^_ңw~?ͯ}֭k[rX``' V"]03Z;Rwqfy; 0A^Z1ȓ#Fx/!9a/ ~cy9^'ڽÇa7a„3)Hyʅ[ vBr,d"ˋ0PO3|{f<%'S9 ;sf_ q:'epS +ieBdg)EYR"T"Τ܊ƢZly {!R$áƬF)DPͦFՍF%*sQM1YgŦ̾Ig\{; +3͈liNK3[wϝgzX*N=);zSf̄|cp WT򢚍%tdQR*6 |ec4/h?dtRg-a+X +),Plù|{~pNKx<2R& +R*cF틓vXR1 W'òiLTKS% ?I9!R +B"&Z^HuHg,'ƌz7(_fOV0[,"0yq+nhC'''-g FX06hH)_0>IħPx̆*~6q!0Fy[My*(T +V/nA,)9 DQ31i x]& PQ Z"m07mCMnrP*LFٔ?u"+%zj42(Q/r3cVk1Fi2CzSor:!W +$BF? 'AՃ 2frf +\`7_ (Ww.JI.;Lnj>޿>95x]zmVT"?9Ҹbhyx)~nAȩ1+x+7[ +u pe MH؂Svl0eSJe'V^aԇ1|ω_9;3'\:w27p +np0J=Z\Q2&96aа bu6Nu63ggγ9ft90ˤB^*J [1 *=1b81a(/OWS:YP6( y*LXA3jtOXvk\f5`F5.Z t88c}5P@MhX$':;RjTࠔ `PH/8kp[}BPm3&f+%btb2mZ">".dX'1׈;"1f2\)_?g&&|NB1@z!i#rjrj}ƀMXH;,9'``' dO %Be ,L7\ bd5z\u ƦPbBW0B*ڱa +DEdz̀1@b¹̑ SNZ`a$ ) 3f_1+ s`I>e&a;:r8I6 S! f3 hZBf6?)/| +˘Pd` ,ẍDFL1 +RlS N8qK<|60@^Άj6XGjc Tj'hRkWZK̾ BE+Rt? 6UAtLZ1SD-39/xcJqbfvLFHsI;9faQ aOpbaGxEAal/Mƭrv,GKP?n3bTP )sQ&)8S&6Cu;18Ihx=yVTrirZsR"H4Xȴv vȤ\l=leq!+&R\gcp+TҚ:ud=_M(\ B~I]ÂuT;0W L؂vnҴ궼uq?a`A5gfE;6 +@\\APW<0hÕi=eGtQMc,d:C+f*9 |pa3(2=fF08N("#\XT@j`c +Z"U&C2G}b2j10^::jAςb`BA&RbRN8Q2mhȐbXd 7Oi~v.:e)RjqIʰ+LYdL%AӌASL.u4s3 cJ3R pRap\&UV|Z ¹o0!e'.|Ya.OO]@Jr)frQn9i b %ko~'W3!!7.bRJaS:6R];P GԲ\<VmE>tj MiO N)U:@69~ ا0pf83"ߴ᪋B+&WH +:fT=eX"ک֮Zt17\h9)u?m0wp.dNNNzԈ],(EXLz,*XiQ;xi: 5!lpaBP6 j 93")  +,hw.;dTډ~0Dɨ +@w!wbFA:7{`3.E,;*RMFTS&MS6ĊΡ\tR8_3|~ZtHe*ظʥ3z:EpxѺSN"w94 چRY1`޳3W2Y7,< -%D ;6GAq4>3+z8O(`o/biH ,$/j졠@ |(3/ +ˁ =Vwɞ\T3Rzh`(_#5P@dv +uY?(쉞Iɩ)+&5dͤxThԐVv5!Fsa( GU ;!3LrRoȢb T 惙9RY|[ŅKM8.=Gk=o(jDNsL +<,;r l† N22޽7fVWore31[7Z^VEƹDE&@ȩ53pY}L4G 3㖿915f&`WvRY2jۅlcl5&@VVfwCn=KeFpL[&ռT gH jB%#`\ 8`zu8{b6bMH(dg/;w)\kW̸;OzGT;jŹx9K /_}qTN"lClP<Ų͑pu$"g0>C +|p?ֻKXOu\8{!Pi/Hj1 >bDq$gZ? 9n%LLXX.-? 8&RZ9wuu*:ˇ/5#lf`d=ĝ6'A%r1@ADl~3*\^_<|ڣv}]nMzxXtVDn*ᣳ n2W 0VG-~ypN)e4 UP"la3vﮀcVvdmݎ_:=ĩiL/#-5&4 +11#vL` +T4\E( : +TasktbVbE]|I1Y7 |&]''݀Xy=>`S( Jdu)wvLcjcFz@6/?wrt 뇻z8O-$"&I`%rwbbI)U2xbky;Z  dDp>9 NPvd'I{q--ZCH>R +KLd _]ll$+s[7E/2XlsaESKN@PrPzhPcP |Rg{bdCx>їr~{d#;<c{esbj&& W : +йOzPrEvSMI _ +(E;пrV/OOuva4`Ck1&WZa9,t'PތG̘H*pfI`-dW 0{S>*5sm̨ԷCPO|XC+@$/[BOEF %$g\]Wk;lgÀ }cA6!F b 06lV#!j#K/]m ^ zWjsF/c\ .8R #1@҈¤wv=lf<;-B>>N{s._|zMmD8q'-Kʥ@ @l0;1`Xt NKA 伓gy9`Dśgi +vgjrvvPfD3S[ɓNa*4@FpV/wur6|)K?A7uΠ\F H%A6˄fhCmfo>#gk.S0*4CDc׷oAi3aRb%$Pg\0R|F tJNr#r.!n +@ă!a PW -2RxcC(Ke*R.{s05z%sy@6Xhr@'lĄҹX{^,+M>ʶ݊WbuE&#jݴ6fL ̤I9Zε\4"Ûꘂ~gQ Դ9wŠ;#0&"%:Z͵_/+(Rq0ڮ/Y%&ZDօ٢şOMЁ2fԄcO[GCZ2]6,6*JfhmVNfE@zSq`/ Riϸ~yB:D<m7# ,9u%\|۩^%Ha\hX_&H6\nL!m?v/5A{jvVLx܈zWIdlgӔ5)1GOoFLOL0q%|1+xTU}ڔ*[BaJpetL T+ ܥgw|};K_Ą,\ƉGA[g\&̥%t+Urf VHqn:Jec86>lh@$/\5ӺPұޔ/b @U tK0x< +bY!o^۽jo׏/ +3\3y4{۱̮_f 91ɊFXM$0.B%7z' 0\ch#y ¢#B；Z#9s)po֮e6#-=..j} 0Q2oIg\r!\d}35@,0JIgLm^qx 4 v މ1Nh1bkK{mҔTlbl +y,1x@|$0y㫥ك/=x+@l>6K* !]- q>vT`sVb1.6'_w1b~*;\c5ƫ;_#ǏAs{;wXIILe X'ZZO I1Za~Ihp,^: q69)Z*qZ WLV뗔lń ykpic*3yÉG`d܆!p#2#:sn1\z4.nE,IMB.9iAG5HB)3 +Hxd@X(ar@%M*WZsT*?(7@#GHңH'Bc2e2#cz/8=Sӧf1)XV] Y ܂T]ff4VT6 ,3u=;eیT?F)1tCkX2loH sw*]:Zv.vｓw67E.f Aís(Wvڤ a&bz0D +V&E([&IY$ctYQ.k^6F)!0@,b6R|m=wje1.8' T!R +j>D<Ëp( Ly.[[i+j>RBi͘ކZ%i]$*sˇ pI%gׯ}4pwtinAReᒘj~N& ]0A"\n܄5I͹Q$t b4LS6_\TZuqK3{Rq)qh!ZD7g&N$NzgvK *(_\+pV sΚOJD<m0jMJəlkVr 0nj(v\qRO4Tն{;ꠐԂ..ՄBwPZ߾q8^{?&{62+RƒK?ޕ{ 0x)[w5zDž긍>>}n;78 +괐i̜Onmh +ATM$kC"XYȯ3b”Q+.]αɞqdnz1g!=7N @1(?q J@\HP.#E1kn{0w O/k/mQ{x,̄"WTW.-d#=,RჹvLrQ/ړJ~\73y҆NhRf6=6T\ؽJuOͥfL򇳩Vq"ăjfCTLA59hNCj1dXVwX(?{;e3'b]>= _st{k^~:ѺX\Lv-{<h%R &\f7kt6p*פ$d1bj0UR^o܌wͭ~v  &Hrڅkqqo( +:$<Μ1x@EiAڟ.*sN\Ԛ[-=X9, +A$~k]~}#)-;n>H5S͋\r`D@t +.?m|\1RXؿkJ0& &I{eOTjI 3i_v~N8P(,`>ZO>·?.v֧]?\ +!T$<mǑr_%myWWV_~󃙍+ݝ3ϯ-=={&[[?2T N(RuL+ :3>=āJ3ڈWVjJTKDTdLpȈVK+;w[݃`zfv_JLćJ2nn%꽆j܂_qgʒRO/<غBof w0|օK&p!** .x/^6h}=APsSx+Z^L5VW.DXQ\vRcHqpyI*a+Dׯ4;4up/YYһ9 a<ᢲ[+_6{`B%U^w덫/~˗[pXUZ]_{^ 0atc + PX+!HZ덹=>&W*+@82970^ FcVjĀ9kED +Tw(ABL9IVSR.]Jfpls^vd/Y|C g8SqNN;ɿ:?NYpq`QL@#ZH0=8;z~Mvv=ػz{h+ReZzXrKsw|zPOwc@jLX''gtAT(D{q\"#W.ݻT۫ţa{vwtGk8HE+pb].@' +v|LuǦ|[I.Pl90 [YݯʹTc ȩ /CGkh%ZooPn:vtXs3]> ˇW/GJ^6$fVvp/\@x;il=k7v<%Wkz/V\X2bDH?h[ ;*(42RK<%fotS='P[soVն˝v}ԸAV:1Es3aDnpQ`QΪ࠼xzs |~uçߛe}g>K+4XP*D(8=~QM4j Y7jVNjp޼U_ʥkh{GmKD5՜l +PܼF XK,y揵aF(uT(|ފ$jݧ;./?95@}ə}8/F;陀:qM +O Z3x]x  6pJ_sa+&lƻ6T1:R&D x)@wzt jVoS̘E#\*HV#ItꜴ DX luFn.hoݜ?zzE)|yxsO{Fg +,3x{68" +;d+# pԭ XOz+Z}] A[aY3jD )R瑀Փnw7?L.=֓Ktg.-l\M">%Ùza49VBF5pofZinO@ǻ0 C?6 >wV`6[77|}?g_aͯHu+>عBgf".$3.}u֝R`#cz8 d\om^;ťґX\j]ۼŧjl{\ztU*.pn'vͨs.2 5P)%:~GT%](fTŊԽ j,1oKZuK/b 06cw!D'&(48DW&T @|Zqs@Ď:Tb[]8l`9\xfrl(s 01{58);Yq%l>Y? KPNfBJYNuF_ Pqi Ki3Q1pGH8YEO/Oq;sҾ FrA8C~jiEBj%:RV70b4JēNYÀ3x9cZJKgk˗^9W/ؽ r`/}T,]dpKFgvW¹~vmk/s_ϽGwTY+ܒ8Zy1F Mp&L-nEUTdN8?Hfqpv+ i%>Fap\Y.lzu->m!Ǜ(S SR*Y"ksT/ojفи(цa&BR)QRHd}F*Rwe+jԝ.=و/,7hSŧ`&f(4a!Q6 +(H;&(њT\N"<`sFq;mFO >1OT{McJ'Y@ILp, il1.K dgu=(o0zI?B +%Tr? aA)1h]UKDe-bh#k%R1 ӘXQLT911#|!ÙAc߉ګ{!Z߻g_;W3_]w;Wo-^}Ds&"/|~  h!uBѪ&g_m6f^yCY:ށ"sWW䡣G7_w=j=$— KsFc|wtw\Tf)e p𓤔E)p(%۵^vyy8=̡1laB89tvH HN'3s.!ᒛL]řATA8Г?\ 3#6fO٩)nSSpڀZ( ܀MvZ !9p1\GJ+ƮZߡbZ\nC9!K E\,Y(ՊԨ5sMZ163-tw|\rBn>(7ypP pnE=>"(N<糡DKB7A̔͏1=bd9YbdF+D5먵lw~`9wW[[7HԲ<8x|f +X5Gsbz&kÇai_t{O/^|}[É[^~jcW_<{O:b+__`ǭZ.m]+ZYQS[Oypi(d@D HL>`[.V͵|;ڴa+@_Ի|z+д#R~voѵ_ M6¤7Nw=xݯ?xMZ0YVX)Ri 3yl0Yg}|bYu#gvIZT 73,?EKqY=ٽ<(/ 9+1\feBS q8cĴG0N"=l +em%~9͘aVBnhŕre[](ŪN`e) "\*h&cjv Yʴe*aPvUV@3RgvXr$Ռ(Dq1īե{w:WT[ul; Fl‹x@3Ǐ0\%%."g` V_#齿9?{WZ39U9 +P9htN3=930I((\QJw-iW^=_ aN +z>/P\Q2`i{;"~ͬOoҀNDZJ= +#{ Bj%.d"yfS^ L\s|*O 6*S<3=J/)z0f}R];&Gټ]Jۜ4 +Q}t^ڝQʏ'nPPPξeVy/57$>+q+4ơ^ݑw[B+AپR} "$s(рy[Uǹ15ܼkma)jT @/B0Bs?G㘘Ya\lƴH֕N-yb|Ri) 0# Â0>QBۺŵ)I5fVOU+ +9g|$ )j.Jm!= IW\s iT*j\il,I }Y< HIRf5aw6 Sy8JTF9ϟ ,c 0z#֢lVa F/RUQ;Sb*bKV(n+!G  5Cq%_u10يH 1+$08P :<=<qx`IF1R\u +"|F.,g aҀ9Nz_*uaIerbc7*DB%(E0MYT Jd:`JW3z|ƅPKP%XaTEb,&^ziؿwbo7|!JGlB1r"xxH s!B r@/G=gAUݐp^Xą,x3bil[ZiD{*VS "F; <qv V4H19ϩr|\FI/ƘT"R@u}q-HZ0Qe~9 A9GIdIaUC' 1??Tw3q΂p[@(e`6@@wDgyPQA: S1 CP_Ԣ/BTb0EߊJxLY|M3]ϖƗ}(%Fqq{єXc0q}7qɇp8,4fi x"ؒ7 +Q je+ϯ^:9s?JƩt K]1Szau$ +xHιQw8F J;y#dT%"q5aq>SdA.81 >whvkaޏ0Ι=)*X ̊Lo +AGM-74jӜ!2(oΞ@C08G`FY B `(h!<*fS1 ԩW|ōΜ ,Amrrp܋*(rq"Eg,ha!RFySEep=OY lWpE7rv13$0qfֳˡ:g<( :dU;ʅ ᳨\%yޫ;'"NϹRI +^ynf;" S*ΫLJvuJ%1c,UqN"N "?BȪDXpqKT"`#9°?1rz>( +gap8oiA HD' +_E$4?,(Y%'%٥SAXXJtlpo.l =oZ8*vw*P S`ZL5٬ZH i]N1 !LB0^Cٹy"g\g =*OX#I# ˞sO PB."U0.sNP|C +,BySzz(D@&fTYJ C1`GgϞs/.>"8#sKe7 aF =dLjg| Oi]Jq\sEbfٱ\pÁ(OaS8Qw<c:Z:%_4EI3_멹ssKA_UZl܄TJv"[\ # ^  D2eyY{/TN;V<3, +/HTQD6hw{W,K*K{ l#H l_Wd:'&'DYOaΫe{RZ*tVl$yBθ11Fgίй|/[氿I +P%ASƤTs1od 2.*&#*.pdXtJKhI$Y1aZx: XDba2Dy_ "k~E^HݵKk/TOj0)!>H.D⩅S=.4"QPdYp!f9&8LR 4kZ,x:̳YȒ\noL1Qe;̏T+^ya.n \{m(7t>ѬN.t^پЯVJ)lA{Ҋ7 qR +25KXA$C80r91YO]|wv<_/{ϯC1 2O&8Dn%9]͵ [C%ew\xryo+?_yFŰZ`.=<5(&zurV>pv$YAYRk/;;2W4kapv)tԙ8YQ.T$ EfHqRZ|F?MsesAD1JQ1@P&ipؖ](T5MGkfU. /{兣w_ڣwo^VʌE`0ׁ&c"(GEkWfYui[^_|N&FEH Fܑq"#B34:ׯj޻s_{]if8* +-!jх<;\r8Oq,,~( ֕f)BX̛m(L=sB )b@FƋ;w{淿r+hw{Ͽ/vcwkh63NZn Wѫ*8n\&=|K$z0Rb:r_YS\҅w^u7?_}o?zLƎl8Jr5'jWft q+ǿ/{/?7vy"Y=u|ب%@iEyԲ@j7_zO}㝻?krTqodx5jaGaG~iUtq|^goOo?}~G߼_;*t$:]a8! FE~oz}ч_oWึ7-5HjFNh1X3ߨwvo<ҕ擫O߿?o>{k>gRJWع;D +cAO<0 µȼ~|c/|[f*31D`0,Yb>woot/]ɇk`~o_o/]+tfUOS.PU'E򀻳z\Λ?gK?}?|?|vW>xf1%1, DOjASr+;7K_;_O7n'?ɏ~􋏮+Ƿ*y!:Էzzk+'Տ苿yW~ _7w)_\rb0̠(5HC_r2үhg_=ݟ|'7÷w_jFc2aJʴNӻuϿ}?}/}K?~=w/q竗rh]\zf1vtNz-ɵ7׏w|O}߸_zn$Jp5N&J՝<;a׆W~|p߸OO޽Wa'rV F(D`T,eǣ]E>'?|?~G$^k$ *kGན_z>o^O_o|rqqXQ(^Kh*4VMu[;k7oʅ߼Ͽx_~oy 'I5`2Y,wE3$rQf^9|rwo{_~'>o8}Zn\V4HdC(BRPP#-؇kAVI[|Q8%/q : :$Y&(R %|yzf/lٛ?ηl|k7'半`A #e9}h"hP%e۬IG=I/?o>{[]2w^D #L$D"A*W6nNh'ҵ Z7uA䉂>ϲ+qFnӳxK[G,yyt7{4][T9UI' s9R)rʵUդXtdӖ}^q{uy0* *~1Z0Ԙ;B9Bf!LA/()˓￸ٻʅ߻ݷ.}m{w}Ը( eNA +RP,2m1 tcf7??_Z7N+vaSzٜJ->Х/Zݬ6rW*M)j)I<" +2 n"<)M1,f|.L+%P+J4fb=À B49 ۏ#8HLe<wת^IڮmWVUݮikdT޷r<S Kh ,S-USʊp?M+杵/>pP3iDH9YRJM{YKReEIJT+BFZR4eNPqF b >qJ`Z >HxKWkp$tX\^U i @D)oZa ,LvsV AYII` FlI X/J`!2HeJ֚BR܂kaˬD"&UƸ=٬]觎˗7{VOsV2934[~?50xP E%xY nK_ޝNuSI!*B$(ګ|Z:?ah}0:a5- +ŖmYZ HLZ\̇܄ܐ*aܤ`]t^?GPXʻpx@a ގ8abθ] +’(Fi"VnDb"(DQ 7rz.ƍ8[ {zi~%Kb&4 0r +EE4&Qqb2!e].dуrV]#1=*Nl3kV;׫[0gDqSB:Z XB1icJ-ʈYFdP>d"DdJAQ?7^ +sKaq%"F4o6tG0lZ fIj^3}nSJ*!:E5?)WL 3YDYVia"ӕJFUQrs3Pbi?嗂ˑ!–E?G0(*j܇i5͖'cB1DFggCFk5* 7bx )Jnܸ;lR+ ):68ݼ(G 33`rX~TIM] qD6#\(2#c|4;@ DDJ]" +϶b3C4 +Ty\fCr%@Ѩi7%wb-& }ͅA2剫!j9DV1;y#50'Lp#Xj;Qr-j\gM#l&EBL="`vyⅥ"&*W1 N+rXV.Dj!lzO+ KPMcrތe^%KbeLX_1T!ԪMȬx6(œs"&XL}9#1Q۸*,[>οBzBݐt/,GIcW ʬ鵘Xyv){LvdX@vڹzm8rb\sx]: j_xiu-1{fy1x*He]%|nS8Ҭf2F|r3tzܪ=Da*]wUŦ"VntU.M OݿinMH-Ǖ s#H.":a {Kt'R~ mZLc7''/qUP|z5?Q—wܠ7=yKGݴO^u= <0tR1&Mܴ[ 2O&BLÛRyL RqZ@"RI͞_hr,Hۈ^{5zk]L.~tsq}֫߾z'2Ko"f|.dzi D*4&WR͹&LD(+/Tw;э euAMjPրήc_sqc>e J$jk=*0S;Ji˭!Zj!&i|nTay5;K! GԈMiE9gW}K483W>25Ψ|ܗ؅jǹaJ Mry??qxuHVysK#L0 ( MFw(Xl_ˮPzV%׍֥ýo>Da>Dgh2.f !GY1Vs#4Y*J)uK}*;~^ oәQT*.&+|ir/N*7  mL3k[Vct|+\ת dJ꺘I,QLvU.$*ZeK)鵃;__{K^HT/@U.Vn +vjpGmw.hVwdvv@Q4+r\H'k_ޫ8_ܭ>z՝L{o5l#$|;fďJa,勄ց:?\zAw7ӚQDgwKXpFqV_ooS+ JtcG+aHe{Cu?kc.IGT@:L4&e3a9PM(޺,ok)gWBlJi-EErD 9v)۽E&;ڶ5]QA 1H"L3i@yP y0XCڣPRv)x7mx݁ M( DըR @8{U|(zն5[!Z!6岤ѦQ[Ra Kq!aV#4kIujV*#)k7:#4w7yZ\V|#Kr(?<Ie>A$JÃGp/~Ř !$|&dvm޼t(Dl^6XҔfs~2姲bX}N5.7u`؇3`d:&UIo\U.╷?ْR?{3+ۍ$Xzƾ +f{koJ5CR5u7VcR#jczKA`xebrI;P^dqKϮ`>Zqxۨ_/Ĕo~ɋ"fkv@Ą,F5E*jBR=K~ /`I%[J]yd$"UjM@R)Dl:.ՀLط7[׮_iL-JD `fTeHF֕LD y;ITY|*xTLZ}:;JT}{G >* T*f[ #ajEJ]gr, +_Ji3fcyy[o*\aR efm\52F~^ č'yuHsMI~L+D(¤d +X]\5'ȬR6 .N/Ɨcl +!0S[~:P˃c Bq+9m\T2:YaQXÄ1^Y +16Y;/D"P?w,9ʮ$/D .o|&hk5HrO-8V\mJ#̗b|Q))0GlQnt163vVfI eJnF{T5e\KuCB \*ha/zY*o _\Sktvd3s3*5D [p\gOnh;>rPYx.3n`:I} `g&gf +6i*0~ʌpV1e'!b1yMZyJv{+@`\Պ6xZRc>ݑ>W4p!DD1ktj-$T#" +CO/@Z^erJovKQAQ)LZ.xh ^|*H>BsE)u.3bCfuj$d.~7 Xp'pYqxTZqh/rDnTC+Bb|!J-Q ^:Dg>3>y!\08\˗"0?@L\GL _vS9~XA1MTddb'4P҃kM>&Z̍Q%^~r6}gLPǯlzuO=0j d{4.)7\|TKaufe@W[S-67L +a6*h,sn K"e/Ab4Ӎ]^ +Z-)`T.(}LL+DZm>FL:?8=,:imkU"pOF\e`ZB5 pC:b [Fv1۹bubQ2^ +J(4Rj#E5OD* W*Jv99:b~D+{< hSk 4){0Tļ!~G)l4S]QY#LF-'Z1&ށ,zIRA~C=ЕrS1;Ǔ V{Øg :)Jه[a& (OAC*Xڍe +Q)wT\\i0 zN]&B.bۀfnj~| +Q`{f{۽7ؿnAZfpu/m ҠЫ=R0"6(rfP_a>;Nn!j+ sT +:Ner'߿ʘ=/)DP*@9r@JDaIΘ$榙jv|;8se`mL8* >>]`+18 zT(rԙ9*-Tis>"3i\a?G! KIDd͋rqFYgKgc1V {gFgWb(SL @ +HLyYCUAfA bR"!۸R μsTȮ:8b_'rcfT0iv`6/ńc1QK;rC +K[rAY.'b--S*h"B9[qMsފK9$A&I}ǂTzV?fyi҂9ʤv-L f qSsGH09=ωxaLTCJ :0>@[phC]ĵň.HrFk[׳{Y-Nbq,eiցB>``MFI1 "i4H'Xf FÏ&f5߹}v݈v\05@r~M};³Z5Χ<DË1' #lvs+g=q-ԉ$+`ީDjFdj[{4Erp MԀVV}kڳWz/\۾T|ڝ]到@l3FKi-N@FP!R}Ej PЋ^{L4 1.eF, 2D⌉r&Fy=Q=.UQ +To\_!•,Tó*([^s8uk\ +F uwhyBPr j"rH{8 rܸ/_l i/zeKH*jֈ׻ޛ7Qa:P֛D䛇}xQ91\i|K-o/G9?4V7L[@ ngnbjH(z13fWAفP!sLjʳ=XKXrcs7`j{9$9# +)!&o\+7T\'v),="d%17!>m^.l:q`uI缘+&]ʼ=qaL7wܐ0kcj=9 {Zg]Մ08 K0[*s!YXl_brr}Hycʒs8WJFsNsgk6qj^jPrUh\7WY Zgg]\X pUԚ +-G{f.Hɥ_</U.k eӔ^g1{J+)٫jy2Q/s`s^L\'WҸdk9H׃&at&0 zaz\*+x5lNUR'S{R[Q31A,|mAR#L}OiXnz1ŵ6cs><5B%(k 3W g;hj\Xܚs,CK!LH crty(mz3' ˖b9)9Hf8U'rNχ$GL&ML.zn(hCb 84#l2z2`'$^V|Tkȯa\Dc!L1y^ A$c\Yte?YmT*,Yw,g&lח3HGh!N.way0">KϞȒ۸1:?w6-dg)>m f dX\20kϚ`+2)!GAl Vce\aD&Le0eJw+[– Q $̔aiuʏ))@ ŀ_ f e13e b|Bp R~9,B-@BR$@bhSڈ]B;r@ !~D +kP5$20 +HZ@1M߬?/ $>yvދ{TLiix ׇ.X?&\Qq%̟7wF3+r2Szp3Ó)7x[( aRp|Hh19=;H؊gM +^J%(Wn߽o'HXH HLIddK.RI*ZqtG'&OrLY|(^{~=gasc-倘|8:鐳p44Gpblzlew|KLb7Ak.,ĜB́3&GNjffmؙ?ulgb/ٯEFfh&QgFL̃z bIVƦױNoawz0p*F{Y;Cx`3 #MЈĒ; k/_'+X-5cn!{J,& @/2W3;؝nAɵ䶿I-V&`И>V,naz,j| +O.zx5_{J[x٭3O._4Q)Y`fjb*xX $ 53vPBA+mg@%8pNGDn,83P9Йej΁>5hgȬ3[Z*0䥓x>?8sSkH|sf8;b|XE "C>(dMijOkgxnP^,A_ Yc ı◃{'߃<$ ¢VԶr<Ϳ~ȉ#mIw,,TpH=Ӡ>1֣΢/, +CX8%atr5:%7˿R=;Y(v.RK+wMi7 kǹ'矺;bSxÚَQH'=-5`fC$XRvJ;ڟ?52R %^l `@e(2z R1'79\<d3&2Xsqh 9 Ƴ; (O =`U?ewZn~ g~rfK7Z":^tsOs@G#c+#㠷o=6ŀ3dwNAs.|~3qYy@;rTYnzs/6O8hw`3օm^t n|,2 x3S2{g{cS`cL?xl[ɒZL|=,^=.NzQj.Nng%xV4"&ZeN.L?l<߭WH'xji*mn۾emOG!1lNOF +Tn+jN3vz=\vfZO=& & +n~O='~ +rzkd|~r2ε3[ktrn1gfH%K+ٹ}-͙K m dqD[<_XwP~"Sh{qr@,T2ZDZ;_ߗ_ G#svpia2gWΝ,Xkců6vjP(n}'3~1`Gc;%qvN HyË?@7MnLlھ7OO<_ޱw mrtjxXعA{17tjӝx2ק7GMpjm,fcZ곭 ΀3 U#PL`Nz8-aJ+G[>MO,fc&+VZrGcq7f&%;&bc-yopB&[~|xj6P/<ҧgt[83V'kfݜ^A&kɕӕ[=;`G"m$/KNj53.p_=4&1rC,& +{r;`,v\I _yPg6N/?3_ELJi1{Z|>PN̕ke?:8h&!cx @Kޏ"r(>͔@K6gcQjHv0NN~5QXe=mƜN''@^.7y];M?'Weztjp4}}rS빧ZϖuAaH/>F\lSk@#v*A7`7Gyt "mPG3l+?'3(5 .bo+ 0a@u +`PRVfJ?*Hn22uP!\ {NN`IҒ`/|XQN?_u +ϓ+rbH$p(M, Rbxhla8nnɕ/2)'`obvl+{2 vj +߹3OX̙lzx?o` ,WH=2 O)Z FbXz#5l/]|ǥ×FDA άh~rRw۵%̾2;8p_fZ_ySQ#ұH7-gL.l]*=mHmU @_YT:['s[ Pbk`w/>66:J֙U8˹{/90SGX>U8̭_367xjjf߹L.L=#*vG3T32;`3ŧrɕj:3`@);WKZH12@& Iݯܸ&*>/w 'wdfC%h)%j:R)(D4"#֬X@0AdL.ϖAb˯D|90f&̦l-j(]Dž'NR߀XHZjȂN0J/n/?\.}kȘ' M nz h,7",<<bL?d93(˙WWaaGU9rw:v~_ς:1 v|f#i5ٍTX<-" !97 +0+efq<m&vKG74[_ˁslelij ;{qPzbqz8glI/ϬH.UAv7}~gpC0NEbU/Ba4y^{Gܥ!s- [$fN[{ҠLeD:VZ|>̙ޟ^G"'V@^7hDf_Ƌ&3FT1|,IoɕϾuQ {<8_/dz{SjA'nXN -+"ڔ>efԒ:p{;,=XɭZyj ObʚZseˍ=z[鱕3kG=#eL{=rn$f6fz +rc=7d 9cZbnsߦ֟BhN':BydSVOo]MW`6Ʌ^ ٿ|5SLbМXM.Moſ]N̬Sˠޯh͖F+`$kǿ>4g_jWXkSfv8XdtL3HL ZSj M#72U|HWG2>O-~7[b'PKb /'\@;̬~ hNrx HU0FV^ƒ*^c #} ;!'xv#P,۩ñܞ>2b-l}-ӛ`u6.Asgr{W! 8 &dw.m<ݹBeKg&R , DsxH,KwrWOi7h|> !R`<++?7jX"Hx_N xʚ^Η@:0U 5N%Vܓ +XZNCւ0p{:> ә`fVOSx4pȞh`y|=43ٍ{?#k^,^bsj}f<}9+{Կ ٱ}Չgt[bplę$nؙjd׃`q2p54$ &~M +eVGHbidr뾽tXf ;_G +٭x?y&#b=+xNhj|[/'w^˓L/Wa q`fwkT+f^/ ^=:<ڐO!ЎܘY[CV19o$ +\nYO"ifw`b2mbbWĒ={\ۯ@D1Yx[{\<[XЦvWO~J.e<,6y3nzs؝rd<22.&/_8~l~=/G&NJc GsO{z_68b` 0dv\d8՗M,;sO柼};\Zof٧3+GǑy {fone~hr026:\l;-4#9 V8(K%=Sk_vvհH~,9d>{&fg ſNJXM.=hpcv9*#Ss;ٺJ?s%\Ń'cP7K_~vD@j9o)h#3@n +̯c)-׎v_}e, +hţ#02aPm?d6<~OH}B@zk^'>! OH}B@zk^'>! OH}B@zk^'>! OH}B@zk^'>! OH}B@zk^'>! OH}B@zk^'>! OH}B@zk,Dxp0S*}f&g}Y.]^U.>lGWjz~Vx1-&rT *xQ=JT FFl&2o}#Ym43-""oE1]q$GFlW1tSLMSʕ1ݑt CsU5J;f8aY\x +j|U]|m|28ҹequˣ`d3NuRח' //gWճhT*@}zvZ#\+w>QErI z\הOË]!#gW7?⿮޼`p02vV- +<ڗڵR=>zgS]?^[u؛zn(98)틶¥u gU:e'@;"^]{M7X1ث닃Z\i{v6`Zû[\UʷH/j7-Pe0].J/; f A2sQ黭M6xĻi-(9neM7+r~}Qd/J/NEYV=V6_T.JWvsG_-\yd ,}~z}}ɐ_:jdojSBS(./JJnB uR^.qV~r;nЦ.J͝}j4 W.Z#ĕavSǾn*:U#?ȇ͊R^YTȾseG/Oͷ +3i_z="uDz j_+x~ "/ e; w5tQ:9\uZ?ε~ɵUTeHp. +endstream endobj 7 0 obj <> endobj 53 0 obj <> endobj 98 0 obj <> endobj 143 0 obj <> endobj 188 0 obj <> endobj 224 0 obj <> endobj 257 0 obj <> endobj 284 0 obj <> endobj 312 0 obj <> endobj 321 0 obj [/View/Design] endobj 322 0 obj <>>> endobj 293 0 obj [/View/Design] endobj 294 0 obj <>>> endobj 266 0 obj [/View/Design] endobj 267 0 obj <>>> endobj 233 0 obj [/View/Design] endobj 234 0 obj <>>> endobj 197 0 obj [/View/Design] endobj 198 0 obj <>>> endobj 152 0 obj [/View/Design] endobj 153 0 obj <>>> endobj 107 0 obj [/View/Design] endobj 108 0 obj <>>> endobj 62 0 obj [/View/Design] endobj 63 0 obj <>>> endobj 17 0 obj [/View/Design] endobj 18 0 obj <>>> endobj 342 0 obj [341 0 R] endobj 368 0 obj <> endobj xref +0 369 +0000000004 65535 f +0000000016 00000 n +0000000286 00000 n +0000053237 00000 n +0000000005 00000 f +0000000006 00000 f +0000000008 00000 f +0000686400 00000 n +0000000010 00000 f +0000053288 00000 n +0000000011 00000 f +0000000012 00000 f +0000000013 00000 f +0000000014 00000 f +0000000015 00000 f +0000000016 00000 f +0000000019 00000 f +0000688000 00000 n +0000688031 00000 n +0000000020 00000 f +0000000021 00000 f +0000000022 00000 f +0000000023 00000 f +0000000024 00000 f +0000000025 00000 f +0000000026 00000 f +0000000027 00000 f +0000000028 00000 f +0000000029 00000 f +0000000030 00000 f +0000000031 00000 f +0000000032 00000 f +0000000033 00000 f +0000000034 00000 f +0000000035 00000 f +0000000036 00000 f +0000000037 00000 f +0000000038 00000 f +0000000039 00000 f +0000000040 00000 f +0000000041 00000 f +0000000042 00000 f +0000000043 00000 f +0000000044 00000 f +0000000045 00000 f +0000000046 00000 f +0000000047 00000 f +0000000048 00000 f +0000000049 00000 f +0000000050 00000 f +0000000051 00000 f +0000000052 00000 f +0000000054 00000 f +0000686470 00000 n +0000000055 00000 f +0000000056 00000 f +0000000057 00000 f +0000000058 00000 f +0000000059 00000 f +0000000060 00000 f +0000000061 00000 f +0000000064 00000 f +0000687884 00000 n +0000687915 00000 n +0000000065 00000 f +0000000066 00000 f +0000000067 00000 f +0000000068 00000 f +0000000069 00000 f +0000000070 00000 f +0000000071 00000 f +0000000072 00000 f +0000000073 00000 f +0000000074 00000 f +0000000075 00000 f +0000000076 00000 f +0000000077 00000 f +0000000078 00000 f +0000000079 00000 f +0000000080 00000 f +0000000081 00000 f +0000000082 00000 f +0000000083 00000 f +0000000084 00000 f +0000000085 00000 f +0000000086 00000 f +0000000087 00000 f +0000000088 00000 f +0000000089 00000 f +0000000090 00000 f +0000000091 00000 f +0000000092 00000 f +0000000093 00000 f +0000000094 00000 f +0000000095 00000 f +0000000096 00000 f +0000000097 00000 f +0000000099 00000 f +0000686541 00000 n +0000000100 00000 f +0000000101 00000 f +0000000102 00000 f +0000000103 00000 f +0000000104 00000 f +0000000105 00000 f +0000000106 00000 f +0000000109 00000 f +0000687766 00000 n +0000687798 00000 n +0000000110 00000 f +0000000111 00000 f +0000000112 00000 f +0000000113 00000 f +0000000114 00000 f +0000000115 00000 f +0000000116 00000 f +0000000117 00000 f +0000000118 00000 f +0000000119 00000 f +0000000120 00000 f +0000000121 00000 f +0000000122 00000 f +0000000123 00000 f +0000000124 00000 f +0000000125 00000 f +0000000126 00000 f +0000000127 00000 f +0000000128 00000 f +0000000129 00000 f +0000000130 00000 f +0000000131 00000 f +0000000132 00000 f +0000000133 00000 f +0000000134 00000 f +0000000135 00000 f +0000000136 00000 f +0000000137 00000 f +0000000138 00000 f +0000000139 00000 f +0000000140 00000 f +0000000141 00000 f +0000000142 00000 f +0000000144 00000 f +0000686614 00000 n +0000000145 00000 f +0000000146 00000 f +0000000147 00000 f +0000000148 00000 f +0000000149 00000 f +0000000150 00000 f +0000000151 00000 f +0000000154 00000 f +0000687648 00000 n +0000687680 00000 n +0000000155 00000 f +0000000156 00000 f +0000000157 00000 f +0000000158 00000 f +0000000159 00000 f +0000000160 00000 f +0000000161 00000 f +0000000162 00000 f +0000000163 00000 f +0000000164 00000 f +0000000165 00000 f +0000000166 00000 f +0000000167 00000 f +0000000168 00000 f +0000000169 00000 f +0000000170 00000 f +0000000171 00000 f +0000000172 00000 f +0000000173 00000 f +0000000174 00000 f +0000000175 00000 f +0000000176 00000 f +0000000177 00000 f +0000000178 00000 f +0000000179 00000 f +0000000180 00000 f +0000000181 00000 f +0000000182 00000 f +0000000183 00000 f +0000000184 00000 f +0000000185 00000 f +0000000186 00000 f +0000000187 00000 f +0000000189 00000 f +0000686688 00000 n +0000000190 00000 f +0000000191 00000 f +0000000192 00000 f +0000000193 00000 f +0000000194 00000 f +0000000195 00000 f +0000000196 00000 f +0000000199 00000 f +0000687530 00000 n +0000687562 00000 n +0000000200 00000 f +0000000201 00000 f +0000000202 00000 f +0000000203 00000 f +0000000204 00000 f +0000000205 00000 f +0000000206 00000 f +0000000207 00000 f +0000000208 00000 f +0000000209 00000 f +0000000210 00000 f +0000000211 00000 f +0000000212 00000 f +0000000213 00000 f +0000000214 00000 f +0000000215 00000 f +0000000216 00000 f +0000000217 00000 f +0000000218 00000 f +0000000219 00000 f +0000000220 00000 f +0000000221 00000 f +0000000222 00000 f +0000000223 00000 f +0000000225 00000 f +0000686762 00000 n +0000000226 00000 f +0000000227 00000 f +0000000228 00000 f +0000000229 00000 f +0000000230 00000 f +0000000231 00000 f +0000000232 00000 f +0000000235 00000 f +0000687412 00000 n +0000687444 00000 n +0000000236 00000 f +0000000237 00000 f +0000000238 00000 f +0000000239 00000 f +0000000240 00000 f +0000000241 00000 f +0000000242 00000 f +0000000243 00000 f +0000000244 00000 f +0000000245 00000 f +0000000246 00000 f +0000000247 00000 f +0000000248 00000 f +0000000249 00000 f +0000000250 00000 f +0000000251 00000 f +0000000252 00000 f +0000000253 00000 f +0000000254 00000 f +0000000255 00000 f +0000000256 00000 f +0000000258 00000 f +0000686836 00000 n +0000000259 00000 f +0000000260 00000 f +0000000261 00000 f +0000000262 00000 f +0000000263 00000 f +0000000264 00000 f +0000000265 00000 f +0000000268 00000 f +0000687294 00000 n +0000687326 00000 n +0000000269 00000 f +0000000270 00000 f +0000000271 00000 f +0000000272 00000 f +0000000273 00000 f +0000000274 00000 f +0000000275 00000 f +0000000276 00000 f +0000000277 00000 f +0000000278 00000 f +0000000279 00000 f +0000000280 00000 f +0000000281 00000 f +0000000282 00000 f +0000000283 00000 f +0000000285 00000 f +0000686910 00000 n +0000000286 00000 f +0000000287 00000 f +0000000288 00000 f +0000000289 00000 f +0000000290 00000 f +0000000291 00000 f +0000000292 00000 f +0000000295 00000 f +0000687176 00000 n +0000687208 00000 n +0000000296 00000 f +0000000297 00000 f +0000000298 00000 f +0000000299 00000 f +0000000300 00000 f +0000000301 00000 f +0000000302 00000 f +0000000303 00000 f +0000000304 00000 f +0000000305 00000 f +0000000306 00000 f +0000000307 00000 f +0000000308 00000 f +0000000309 00000 f +0000000310 00000 f +0000000000 00000 f +0000000000 00000 f +0000686984 00000 n +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000687058 00000 n +0000687090 00000 n +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000000000 00000 f +0000058201 00000 n +0000058009 00000 n +0000688116 00000 n +0000053720 00000 n +0000062362 00000 n +0000059675 00000 n +0000059561 00000 n +0000057122 00000 n +0000057444 00000 n +0000057494 00000 n +0000058083 00000 n +0000058115 00000 n +0000058406 00000 n +0000058688 00000 n +0000059712 00000 n +0000062438 00000 n +0000062826 00000 n +0000064072 00000 n +0000088200 00000 n +0000153790 00000 n +0000161680 00000 n +0000227270 00000 n +0000292860 00000 n +0000358450 00000 n +0000424040 00000 n +0000489630 00000 n +0000555220 00000 n +0000620810 00000 n +0000688143 00000 n +trailer +<<47B4ADF3AE90604E865EA98FE9146237>]>> +startxref +688342 +%%EOF diff --git a/report.Rcheck/00_pkg_src/report/man/figures/old_logo.png b/report.Rcheck/00_pkg_src/report/man/figures/old_logo.png new file mode 100644 index 0000000000000000000000000000000000000000..9b6691308800a499d20dcb2c6de03732ae82b1c4 GIT binary patch literal 19700 zcmce;WmHw&7dLw7ZV`}{l5PZ~8)+n^Tj`MQ4uwOvG)f;t1(6aE=@g{XLzf)7??Rvd zd%xZ>?ilX}hVH%AntS$|YoGbsv6||Nc-RlHArJ_jvXY!O1cHnK{tPkE!5wj?^k(o6 zmaCGX2L!^!aQBDgQ!42NfzUye<)n3da(CzP5{+%%?jO8gXX+hbjLPVl{S`%~kEz=s zwe}ntN5vdT1)FiH#Ykn!L<{xA^j=4;5q21=*2wc%r1_c1r3V$NQ!||OT5R6ZxFsw1nkJsLs67^pSDjkn=LSbM0eT@VsScddu-4wR}Zq{_&!-WOF$O!cgXpj(* zt`K;{W0;gP{oME(`$B2zS3f|}&KCwbmjVO}f?xcxFCAxdF_qS&Y(B?qTNX#LrUbNj zTuehF!fr6lR!tCsSx|^I8MsOJ_h!GPpQnF|R)k=4aL5il6@+4Ckln!avjDGiPK)yE z0YwO3ge$}vJk(r1yfoI$|2q!W-OUhJh%gZDkHG%@4pkMB-}RHT_-hQ11O_Td0>YWT zr}r!+y(P?KApo@^6G@Q>AA&KVLo*x4X8TPm0_7Y1wQRUb%V?Ou8Y${=3>op435akQ zpjZ&!XJw?-g)0o6X}}@3`k}ha5}gW&#xWr&@MR7MU1*pc)BYnFvB3qVK@6C~{O;d^ zzZVZf|GS8Cg_KlPAkKzzZ#n9H=|j&krTQ>2q~f$|#Og_P2mW4QH~XToQ<-LyKd#6O zy+?!}f@)~&>&Sk0L5Lp`A*}uH0u_v8iah`C0*qu@7a*qeba+vCfv80N=KpxKlo5tJ zOg;Gbe7QHS5IH)#wC?(%IEom|We6sH_kR}@c0V#= zwmga1u<8#T*9(250OY|u)oN999g_+>+C3>S-O347WkWTzElZu9Am<`rd@ z3eH6MiIh4tIif*9nx0NnzmN*`4&a9Nh!qK4(UQ*WT{R-zfgb7(B=`18G1IPQp|!5% zYrHC@43m1{4FbqdqN6L&&l3d*>qUsa#K8ttdprClDo>v(Of-iQiGTbtyVFPgMko}i*y-emt+H(y2OGDineuFR@iq-plq)Xf?2c&0<5t02@z zVCW$jl3H~mHOxL6h}jCb2@%ZEfet8Uo_#k?mq-Ur@}3aiTo62YkPYf2Px>*G%~m+n z72*IG9aaD9c|w|9xRpfs=D=d?N6pBF*1)jN`yW*)QvQe1!cug=VG;jF2MqT* zkY*GBLj&v^a{_&1az~buK zqu^wqD!Aju`Z%;o#@sa2-&!K9%5h0AT!EC|R!&&TM2ALS(>Iq$hj$WW0X$%V0>l^W zwC*gqzh)el7YiEFIR61(&98-V5X47h#YhMpVg|?6g|IRPipoh_HwkWy- zBbXQ>fK^}s5k*oD&WcQr1lL4aU^*v;buP{&LG9 zmJaCzpspeWdHi3tMWO+rWsu?9$K=?cqYo=G9mH26QP&vYkY&2xz=>s6d65g^rlm+d z)CuwV;`*#e(z-EU|K))~QMji7Y)Yg9?2n2OALW{e1XNInAjc~DOD~ELpK5K8J<$mBG2r+S8#D<#9k`+$Wci!cUuEGM{pE4m zA_ArRAF(RAzr?8Jgk4epnj;E?BXId0@{Z8eGBF|L(4>15yf8>jB7%`s%Tgi?xG)1I z#{FW%m#{u7;dr*S=Q_Mb39jb!z*0xeVQLIIGz=uKNDt3j1{5Cw0W2d>UjNgN;lJ?0 zA;Ra7{;TL7oWJZDMYtyNfz{Y9s%1m*38^uf9(p<9bm4= ze5N3*M4r~o%mzgw`Rh2(WQ3J8L3VcMCWi-^hSrGP+yt$WLhw}oOA!GPb%Ul#=9^YB zm>5{VLjcJ$w8n;_F2*K{AGnD#Fa3-qVM+;{?irY0t9&sy6!-f6Id-F z12zYue?rrt|67e75gy}nh^<#EkOT-|>F`pX_%*m@K?#XEq?JG%l!>7y{}p*Hh7e!o z-;?P~z_c<;{8(2)DZsO~%cl@uG#wh0lY+R$Uks*7OM0?kXL9=I$RQvr08>ywmJ7g~ zJ9=|ccdorAM2K$-oEP|NNY39WbI2XiDE};M9WtOO+}1D$g#b74hzNi1&qaEu{tEb5 zO8Cz|YxD^Hy)j8g1+GU9v4s-KI<`sfJCTNbQJuFpmk2A0YkWAl9Mbn2n++Oz1w1VA zlFc@4()BKCg74Cr)ZS((^zRnIF{wMyh=cKufdU#pxUtG|NKN>k%n*J+O0T9Olb;qJ z_`iEWi9Q_<3?fx|6cF+H@@NY^b)CVH(xCC-cGJU;;DL7m0qFoCl6cOxrW%C;Tmy(s z$OOn{Ra*|}2>XOf;@n*5lJWoetuKt5UUDS;$iMt8N52;M3-Glm zD4T63mrF+x{~=K>=6|AoV*=L9Ew`+{d&XU8LhQ7=**>GHm(xziPJL8(1WKr)VP zZTzof)-PB187dCXQGPiRLl~9U7*qo+xm0NTwPBX(V*g1BVFQwu=ym13_@6{Cz$Pxc zqB{^9ai`7ycNas3JQ-x&KnAM)ELWLng?A?x$R`kFpn*gsQV++!_RrF%3q<2kLk(H7 zMwNDc%tI^v`g5EJ;?5I*3qlBaf&RO+yQmEB9tRRIgb);YcuD%a(fAk(W8ZZ_Hro!c zP4z{C{548bvsT2hMVn^X{|F@Bc}!ttCQ9UgwuYzxnb}=QJ&cyW8D)Qo`Wqr4pi&ju zIY#cN@RBGm1#9oN3P>$2h|v0qOgr5FYy#N>ypL#;dUU!jfn2CLLVKD%lK^JAQt1wS z-m};1663tH76^Js&pq&9yvoe?9nuqbW-1p$4^jOu={`Fodi6i`^}H*F8W*6eiyPwQ z)+x<@b{Etg_^GDLOQwE3Jvdx<7ypo+Y~R3^RUX%^ht!x7J{=w9`e)0p*}aF#Erm8p zp(dz6G$cCqKIsA~%=`IuWu^K|4bY}vyTx&hs_#fS29IeHCot-;LxGZ(m>YF#;RB)N znmi5MXPn55Z|4q9{f`4s4W|>=OQDT-lA=fnT`e`8%HN2>PY_kqR*f~5L;8SSa>xj_ zh*^)=r*%aS!>-&M*MduIp?DB&kP$wLmwPuu`~8PRHJLd%rO+&bJ35e#u|uLg|HqGY z2eR(Wj{+%TW*Dja%DJsOFpYx|wEAIA2Al+=4pk?uE_F8}QS4>XC2UdEp*=9^r$CNc-L_6#J!d`K|9H3A!Ga ze(wSY*2o$v6elIiqkUH*z`(^x$nWwB6Ix2VCUy2_b-9P^RbJ);hb!6{S`s$c$5AV~pyA9KRJY8r3HSs-bTA0zT^*fkf zO3;2q1)=Rv|1UI?P!Gh%>u%Wm%*kYZ`_|{}30VhPf)=LqH&l+ca5`l7kv5M%GX?}# zT1jTD+cjUCH~)B2!KJu@;SjgQa0d@ws=TAt^wY(BGq0o@1`Eg4a0ht)+D z&mY)F&^?-NxbZhoxJUE6$yEHHc%67LL7?$fuB=ZZ7KXdF{W{(JR(Bt_O0qtWbSWve zeebE+Il}@uQaRXHR^4)69)AL>j+7Xuhe?StLWWteSJ_^SQ$&ZC*x&`B^{N zYd+`q%h8kgGE^}u;ww2sFZzZGm60U`qb;cNVhO8vjuz+R+sW&$)eHME<~nhA*qKXf zKrmY|CSNFDLV@+qi8RN~CC~oxQnK7?=f=yRb!S1Pf|k{3#PQF+wcQE#E| zn_qKzqW{X(EpkVt@pPv{Sy|@Yj#(pFJ`-wq00Y&h-ZV3Ek!6Xqq#hAp#j*_9h9A}=3^^Zq{R-j`6zf~S@o`!E@qSH}*Qr=^ly}@B% zc`ma2RlrS29i5MA|G_O?_K9(VUN6?buWOD5A~^QkDoHZObP8C6)E@bpY9%elm9PuJ z(706>sGUG{X415U=xz0U`Qq0^CHwSnJsK*-X7VhiVI~&$el%^B;k0WBtGchq5PguU zl4BCCcb{W$j=XrWLAqnFwe-t)lCgkCB^=7WmvY(nikt1z*^RQMR%HsI{hc)k35uE4 zpK+@`#JJWa?9M@*B@ti01UnPE!|NB0^V_=1ZJM~K))R3%q)FTf4>D$|YXbsdS2Bu3 zxIxE#&Yzt-pM52&8Qt0T(`VtER@0-E`+!I6ZhGO^eEiw{8$OA>HDza>xqYYpXW=k? zP7(V3Mag7)!q*JsXOZ%Li>-B)n-ibREI6yvER60uoFgs&)+cyA|9E-K4ZoM3N`PK4 z&)qyJJZkVXbrnKc@}Vl5qdQsfKsuUf)tn=^#E0cYc(w+<`sut|%JY-yC&!zQcw;ul|E?@xZmf1H;Dft;!&T^mgZ5U-1hU@Ef zX999%MKLk>UwEGcWU_zvQa-d8VfUC;7peU*cuOOV97dJ6T9WqNtG?)MrILtSm!Szq z=Mv(RilIJj*Mw8DG{?Z@FP3(p*k6j%!`!!i8TkAb4TcN-#MX{tv43fAh`dZ2xcXze21T`~&~R6qqi>6CFO9Y2NeNeQ zEfJqPtLhU;K2}93zosRGuTwcoMi?2UMhPT%DCs+Qv^%)S2Y*xd^I0G}T0%VbhCMyb zFjCL1oU9=@YRoV-KkdxAGQxVfXXeY@hx&o%zW?@hF>?xG=O?p^cJ|$rXCicSBwG$j zQgQ4NHk-oHuU463i78KPHBt2jM}>w-IJ23CdCQwi{~pV*tL)Kvu;d<%8NOwoR`w;TRz~>8%Kn#pdUe(`io|CTV$O6>_b-FK`Dm zYQb98sbAQX9qEQQA)h`ac+{dS7pUjOk6e<`7)!|{Lq6SEVp?jPnkBtSbD|> z(!veLIv&HMU1Ew)ke3Y!k%ldFEH#hxVtR(zH?Ywt!=0*YyTesDTRxi`If*1I z3cm<1+5EH@nCGuod%3&KA^zp*ygebx`@GzfcN)Gcipv@JKUjB=B;o?8*Wh-CWuY1g z7#3d%ikfxrrwKqkYB81z@DSe{K5<~V5+;SGS999dnMgCgnttWbep2~-y4xbECA@jv zK2qcy?QKr7fbVx-&HDJL^3;DzLlM3++$IfPQRIUr%Mwd;ZpsDeMmzt z%rw^{ooR$!7i?0#o@QqpVJKn$^M%1ox5!ku>qwD6utgZx^2h6pt5vfGTKo=y9eLKC z+*pC0SoTMT7KF@iB1JYE>w?o70t5#3v(<_%P*Kh>F*s*(SK8Tn+GV45oZ1lBGi$b; z?E)LQu_e8+>;rW_K*i^{G>muXflXpR#&d7wL~V*F`%$THZnz0p`}EM75WY1Si6t*R zI|pZVe_7|tr6_K(fYTj8UXJBAmU6v4b8#V{_@W5@bVL3MtVpcIzBIv+WLq8dX)c4=Fcoq4OcM^iM=DaNDl%HZ3Y-rIx*Hm z3(HSFX-%ksZDS;021A=HOuxE7<$)x*t6B6pMGJiCMwebORsAXiZTVZM6?*c|uGTz5 zDyX!R?nwB~yWs0+0inlaVF^AZ$~D;Gb9vZos!c^Ihawe`z7H)^3BF>p4gRLu>Fkll zDGI{1e^OLdEC0z@%y)N|_R7>f(HEl|HDED{)#<5G<}AI?Ro;7`yg*EhbR54#vJ*@%@UNNE(3x`Q;k;BOp_kK12-@!xdlOZuetp zQ!w-4#l_CTH;URLazkn15RWgS4rViHKdarDz6*4WSy`ju#ZoX5gf#9Ke$EOE6^Rs{waR0yL-Zkc3p=t{X3>V z;fcr#I0PPbl)@8(r+ZT0&e7xc@WF32=8XlX55w^p82rb`_wYUHJa_|QQ)K4){09$g zm8=QwNUc-xxD)2{baubQJT%3;xbbKGUi`Y#IP|@|o?(P<7#jmdE#BQc7xtbOBW9)_ z3>(*%pCTHG2`+9@X0fI9XL^)>eP)WcaE^4GS7*W6krj588W9}HF!fO%I?>@XesGfB z8z?=w5H0=^oSulzJWO)D!MV08R5GK3Zz{%hDWot2W79*Hs&*t(rGIxw+=1@TdKC2* zzQ>r6*R*_Lt9P<>>hC%Ju-h8(%Z@~T80oq6-6O(xMin_+z1%Yf;pv0P{NeepQeJJM z*4KuzN{g&TfChfNo_A0hy82hM~*=30x9C;);6A+Sigfetc$vHRfRpjngTSri+C*KQ6#XgTlduG#Jf7@tLU))el)PX-M_8kg0=jO$ej>NRF3`B zr4u)>sMP`X+AOa!r+8!>IE)ZpSOo!C{%fA!x#Pd~*O*OP8m~CuV+CS4{ zglhR4y#+pV_$24=40?16^$xeBStSeGVabDH&Lrn)f_(hbW5>B}MAIv$7%h~np9kNe zUrGrh3&_+y_1vi_hDx*UD9vaG_fm6Djh|2BLw>f!-3s+m+%Wud`> znYpi-V%C|vD#o1lFmvq%YB2Jnmri>4CY#W{oCj1q6$SMsuc^&wcFTFtIx9wt2Z+6Z$+)dFr%!$BJS| z!-ICw_s~uz5D!bq4Xw7>k5g_Vm5-k*b&G*YSjjfoC5U%Un_pz)=J%xY#HoAZAR!)> ziKM|tzJp353SLbAvE;(N=vK0Q!+e;ddwBH5s zB&JSM!mi^cr`7m^BBLy)?vppy^S@LpQtolLRSjQlONvrFzcRvA-qDzrTs#|7D^$cy z^&Wd_S?1r>_h*0BUFr+xha}jejtqo??S^1Xo`74FuSRdRFmlJM2o%NM&?}ccQ_|ia z{okoX&aTY|120O_kCe~lV9^%y4f}eMXM2Gc)+{WBlX(N{DNY&J6zg;N=OVq2vDnetQJe(38*U3o9)*XK5no6 zHr~t2VDcgMvPKJ;vrAYBYMoVK!@mwG ziu_@9A>8fu`x|nABEqC2ufY#ep#G$s{K)m1}mYPs!<9r*S&5} zC2=X^GsX+x4=nuotBeo2LVvO7+aQjwV66J$+`Y1|7UuZVMr@*7Tf*N`8C3Sm!w-Jk zw50^sduadc{ISf<$H0Pd>2+~*9cb7pvsfV{DLMWtRwk$wOsb`rsamU8D=lH9rmKHq6yhM zE+Q14RcaiMCI$!dM?+O?4KMp^uSQm*S$!>YX)HvRr+U% zS~otR_a=>wSwD!ot*&yJw1D>c>Xu7y)@z2@1bcU!NJYMGjgA82UBy7$)Ki`D&^gkG z@Ha6}=t|@j2pn_1ufpzQ@xR%`;JS5Sr1<(Byoz}S+fPIB8%Jt?O!~dzOh42Oy~dun zwM1Oci25F%rMhAM3l#-=cA8ElGg)VAb zxL$`@@Um%`bO+;EZ(O1PRUrJ5zd;gcfC1yWt>rRQDP3gd+pi*Kk@8+f{>hV%s^*`a zssode=$-jQ={;}_>N4@O$jR$t`D3j3e6~Yf6Q%ifT6R7*M04eS2*pL3eOjXfms^sN z8mT01J+J*t@}7~7<8p`EPp4DYy>b&Am&_BS|en+x~cwbxTO>TG zL~NqL zd>Or{`f)oGjl2*~y5^Amm8BAwycVe+cir5GfaZ*hb9!m+^Tt0^E%i_0F6JNgwCiDq z8Dpa!Z`gjW^e(yIarLmEY9KWu1vVg`c)DHJ&-GNCkq~?CVK=ewZO?v@j?-*_mNh6! z)O&knZv-bHX`)o6@&h#hQEZF-PTP+q)q<1>JRK zX2ev%SN^$M|Bo{x3Rh{wuogqEJYO}kk*gYuUH36KBLl%6*2>-6fZgHbl&o=DMPKdy zz85N*Hxls-<9$vP!HablbpG&6W&*F2*AGR0d>;G3wvQ#^)v`0u+h1Jt+sEY%c+HA; z>Ce9maXOR@pK1vH-WzT=wp@^1)tZQsa`o)QiakD%81*QWwYZqmqSqf$LXvQN;&d*x z*oU;}qLxZnsrWH_oD)U4mWj&M2+7I+dQcn}7NseHdbM$i_8 zn+EUd9xt_t!Gh|J^?esfLp;A!L+D6LwY5xc?d-}WO|PVbAR#uG7!Yk)DaekTFeH%; z8QGk+0|_)t5JJEi2x1T#0s%)o$hQZmsNe8`R`uxVAe*35s1_dyNeOgag`{C(O8H@8 zgxE0W`6biFMu$L3zY9)Re%f?SmZI}Oi<4Y@ev9JgH&Mks_fGUa zSMEvvkI8D?6iL2yik{s_KgLfzUYB3fuOklxS3Q+RG#MB?CEKhHq~@J?PTDo<%cg@H zwDZSV8t}_wJsos6cg3HxOk)U~Jd*REeVM&jp;Ggg>N%^nxZJ{Ug$g zub&kliM2c@pZ(tiucxFG4Im}5uj~yQ>wD{O`XVpvhSadb*z!^RFORTvT5BXeBqVIK z4c{R2-_?|?T8rI$W77?IxqbwjUfGRY`9*(NVkGF!>nQ_!*!JgGeGDP;n*f$~L4`$s zu{e=n`zBox1N*hQP)Ec@b1hZTJJZEHar*)PKr8Qsny;`%JFFFcMhix^b zo0{Ha-&928Exc?mx%7CfMmdv_;^b6Y&cw22_?Ro-kJ`$ttzi?|aDr;qVrGB)7WT#C zed}sbIJ6<3@!mwMR|}`v7d7hUWmx~^)|1NPb>1+@6x20jAccNkfgQ99PMmk!X;6}u zJ;sn~RreH5q(3bud7%Moz1FO>8huzQG``rmn&^7|XNTK#xTb6E9| z>Xnbr(#=;3+33QQ`y#&XfXQb{`@snnG_sAbg3*i=?C=E1mXe)_J*K z;C*^#g_9e?fo}7&XvD~j0y>q{YKi^_&uH6x+-6hA0zZ?Sgay6zQufL8{H^9kt2+Bm z(zr}xWxl^=%mdfjtj8FcVl;8`xp>70M}$&s*@6qPV_cK>xtPJZQ$iqeuU$ioarh(lH8>pK`Au6qfHN*`QAO(Yh(+4FS6ZZ3 zeS1+$>(E3{v?HE*(gNb$8l3%A;c^u$hc-P&$;D`DDCv2LQ-k8G0ZhuI=8#**;@M^-g3DhB+DeM=X~eI?i6c50kYDl0{EuBFn=!4iFZNU|0U z2?;YAbQ?-FFg`6G-B4=8?ahJG-AW9)5}t3!hudj=7lhK`0{^5E$LOi1lU+HEny`79 z?<`G4Jxba>K|<<8z3QF<3u zVv=-=!_Dz1@sSZoP$!@*GQ@uN_G`K+?=DVhV=8X~yPwIn@lSzrTJ_`c6gOO3Zsbl*84q?kz{LBA59J#D-nB4kA9q2OgES^nC`U2 zqA78e7=*BD@x@W5qk~j4P|-bxzYNo=XhE)#5K$MG{t$(ayI_^J>h|Nfrie+iC-&9W zEi^TM?NR=-vX=FIaqOA4hZ&l5w6hyTG*N1;KkWAXhH?QPToX8Tdy?-j)0tjXG!RpD}Pug7*{fiX| z1XoFU-wphUk2Mw|_x2ENv_{ltb4V}eVoFi;?gW}?b&+pHGA$%&bLH1ovrWYph34)-MeAy zs)yp~ZlKGL*ta()-s5v#(+&Ic@AAoD$rs$T&&wA4?BuRbj=i<#@V^Q82Kg~K=z8(G zhp7IPU2AFKmlPcJ*DeTXHU@=KoZUkfv&L*%vr}{U&+j;e{CJ&%Ci4N-2<%YuMngp- z#c|wXNwQjt+47=+_|0wWpDDzN5zli?0tQSetH@`;ULLHw*FVn(%C_cGtB;qIewdlG z%3ZIns!Yw|`|V1;hr&w=H8(T~Zu$>VQ4K71_Bx%W-VCZLp(Z-0YNNgbTYrx@C=wom z+6oEjuH^a#Y6sAb4AG1Xfq+Z%2gt~X1W<%|5)vlbfr{ZpNJvOCm@Y+viV7!MhCpnk zq@)(W%mOrU1B<{E`5_NqoyP5l(H%n%oy9p>9Yu^uWQ&7ZW;hz?F5YbMUaS)$kNFT@ zy!9>A!t*Rll8#Oe&=gxzLWtSJee?G`^TwY$;4?>bFBX60^>%REHR}wdU*{IpY55+uTT*QAsFt5hCJ& zU^JtiRO%}Tbj-JJO|}wcp|wF|CnrPCJk|i?pP~R2CHIxL;!TS2xVH;^CL#`A&;<#| z3({psOvoF$0slpdou`njZ%%0cH_FhjQ`Axd_%u{D8q6id#j>8>!$VyTXk(z8u)A=F$DvTf5>gB3x}AFISzG!y(E>|9L6m zJGn9NakoQ4UMWe@Wg?B?{&Bse^q4r@&3>C0Tq5u7qm9Zb+<>>q(?zHA{q2qnZ z;brmkVr|Gy<{=?UP-RFWzS$oPzcsOBrgrn2E3_R?I&@I3%OtZ;qTwW1JVx%pRrtSG zvdfY+p%1JM`5g{B-=(zw@;l__GN;0*rS$7~PAS**@Geu_hb86?B!~|q?mbY* zt_)FEfa;8`rN!=tiAVF5M&Z>dLAkrqpW8N{&jKnfMYfe>DlMWMxcufg7$7j<*|eD8 z7@(aN)bs>l;uc_`N)7ulo`3&j^Y-?qcD`TXc%>=FG0{D9PH@C9PBubI(YVgZzUobv zGrLj5?z|YT^)teV@a&R3=EVHQ+{}OkkDKGmG`Ri3*7}KmB4hr2oS(q5#*@=>+Ke?K zVsp}kSctncGjRg!GLP*hpwg2&BM~zD2Ol-jmrtAL!?N49*}I4ce$nWO;x5^VsIdT? zdQ4w{Vo5aQgPC6~M_XpSASY{_|C5!_FhNmjaXh#}^yVQQscITpqH>B+-ZM}Z@9FTA zofLK;9ZRj>KC`msEO-na0ABbeO$U7P*J}pc#{#1 z&HCS@m?wrUU;9tA2JXX|$!%gH{JTv&_0B_~jAgMJ zZ5r<%oj)=EX!y}j$ByODFXh+4o_~e+@3z%#`NwqPm}Ak9h90Fx8r}vT@<%x=jD6Kn zZqsh-r+lOJ&(Rkt-GTqPPb)DAgG59xDw9PS3 zPWsdP`m!qf)zllxj3*x0_A7CX6|TRi07N6=9J4k#0`JUSM_FF}o z>RX9}KA4W1Pq0xwH);PYi~ojXZTtYcaHXQz#@FxVA4bNsOh9Yu8@gA{540jrzdS`j zSc5}r>I3TDIrhD#o#FB3;Q;5Y+l;8_iGBS=m_qQCq|wa-#WE~U!*0{hH9jv?jbgn> zHS()n;+uqnhk9dJp9EY*$!0 zB*Q~{W6OUYVuLPMQjfQ94fglWQgA17CyQmn*iT&{sEGgj7dam`yXpFRtA^aM z!$0(Lds~?&aTKNGdlMQL!yI4vg3XY|hhHkR8H3Lv7vEIY#4}X+2$4g^Cv9P~a^kUASgISc=3wsl_n z4m5ZE$O^yp%=pqwpY*s7jZs#i=D5y3%QdsmLu2i}U4KBthZMVV@IFgt{Sbp=>LJ8J z&H3dm<4bwT1X_53Gvx@jw~-XGuots%J{<kR-aA$gN}+pd?to@WWr9Be^6Qz?# zExgS#!d|s`-5_|K8LNK_ySU!Mcz7PMD5!Bsn_dkj=0Jj;8Jt^=}#O#^z5mVm;J|LJ(I2gQH@_Hj!BW{ z=yi@-es~X(qB$ZB>!${yv0t?e$ieLUl~&zQOZ+dnO2;QmX3_N|DpQ}20r25xZTqz5 zjJLtQNarre9V^p7PS*YoPBh=LF;&hO#F6}_U<^(QF=hYrRW~KdRPFu-ysE4C3e&zX zPUfo*O2^$y?Rx})+9Q~X(c)<;;3@aNd(re$eaAv`<{a;{Uv-n3h2wVsc%#a-d4c^p z73hjT&(pS-2d(4}T<$INDViE{ysOBxk?450BQ8r*YnXeDKK591Bd79d=Osfv>PAjE z8t>37){EL<=wCRQ`(=S6?6G$3yM^GYC-kE#1S*%&=oybn;Uv)b;3u4`gNlg-0J*ay zlttw;)w0N!ey?w$DYv9kh*&Qrnr(0{jC}Xh5soVOuDz{YmbPYmLD91Z+&|N?Ty!7Zy)V>KPvb&JL6mJQmEk8JZ#~?*RKZYoI^*NrNZf) z9VHpero0)i8|zH!klT$yMv~M0@tadWGzY(MP4li?o;x#*zGjS6&y&buvn@+X3fuxk zy``dDm7Sx&XuGROA+6Ui%GXk!4aRo8=Y)%wTTZca>OGZW`ZSaD3^$eacvZ%udo1oI-(n( zsTi72QFe(8L&+J*%Xli{V-i6Y@_gM81I~yyI`B1yp&Gc!nV2jsDl&p`y ztAu;6Q+yZE)RUA$_^P=3G3_2UVBiNYHTi`ttFD>&{~q9sA(GT7*M+6l`IA=DmIe%7 zZj`X5Bwh8}SO?z$X(O&JlZ@A%iYBFk#H2gm%l|$)dggnnPY?Zv02?gK{kap7Kqg5N zk!7H+hF3o=7!ZrrC52hn(3@xW4J36_2}-LU+F@c6Y6?fi7ez^}4$Y-dKHBAHzWLCl zHs9m1?qZMIfXacby}W8a|Mk_t$KQ*5UWhGA^~7GhHIjT!>mxvtRp!$}wm+JJ=aA;Y zBH$vOy3gCZY-TyHKZsj7G~Vh>1<(v!tpQMh;ttV7_#QQwh^PKoNBZFHx@QHO-*p>7v(S<<$|^q~QZb zfAlG-{4QJ6^54=mkOX-T2CI2`c9f>Dl$^8_Gd4KckRl&`{p4iYWYMoeGD|wk#Q7JR z^ifTLfLuCeD$GiUc=+BGNRCHJGVJX4;3uI2(mto`4HY7GH@$BNbe~qBeMr*h=UD_D z>#{%len0A>X$P87X*tK7UAYO;J6vbz(WXq7K<3{PeyR2FiLwIfLhI&FP7R&Zj*_hB zgr(^s<@diUENJ7?+QEH%-SUGlY1*Zl`i-*5{dqK%BT({zGYM2=mRq7f*EPtTvof(h zG9QlDZxGPZTB9Er4|~xmn^vDOSB3iyF}0*mqbLC@$of94s@=828Q3hjx$i{T7H2rd z+wU5(DSDrY-+d`1<*TX=?j^a6Vf_nPoFWGT<1rPI)yy;AgxH0Wo5SYP*tVC;zZuf{ z1pF#8)q+Sp*8ieZ829Rsoi_|#xv$K!vUrL#s%U1GAJo$LmT6C|^UF!6^L!n113(T7 z*y;E0x-XsODy(L7c=eMm9cZ_U<0#6sH+FTY-*c=m0e>XLj7~@0gy{8FYK~KiD za13j2w15(;is0?Lb%v{;y(hx>28uuJkte(jiLPz;f^XkRcEL~dng;t+xmEHnp zgoZL!!P!@gFW|SVguCwou(wM!65|H|dzIH%+F}v97aZ<*=qwYEA&Q-46!7XZv~#Z| z-)jav;7sdol>-|%{JT@6!UfoW{11uNW*Z}Wlg=?s78haI`=p16WI<{)f zW0Z2SJTd5mE=`td@aJ8S+uZz`@2mzOt{7vPnR=|ryFr@S`A>NOP&^TAo2j{G8Zx9G zV*ygx?wRwdOX&?sPy&b08GYdcUR`kCWSv=C@$33>e|sG)F%>+YUcycsr zV5yHzNeY1t9|BJ5;cICL@V_FMLt?zVSP|i(0L0q}v-|~+#a+4s5hw!ut(F)IBtFC^a2dHPQhg1Ti-~$QZ+YH^$o070buQ8#!`qZ!lqt7N0C%8bi;YpDb^umNGph_$xrgs}?AMybRe*Y{Vql zrhS$oIc+%~bm{go4E(G!-K-_~52&jLK z%W@5&bHu{p)Ba;w&ON4Czz*f!vodrytO1EpP8hSt=;BM*Ip%69^lgs9vn;5TuoU@) zS7-YA5oa{xI%7|67+&eQD7jocw)7fl?!>b^{coJ8s{l)B{?d{sBAgHuZT(qLO=bqn zx+C7+b4&mom%kv2Gm1VcF8FPL%&J1ngxjpS_1ZD@8%Si<9rP+Bp9jG=6<%6mMucO6 zAYoc&v+Y1yp<}=LUMENQuX|AN5bR_)sFlyYlO z+Z)b+jHkT%VSs%pHnz2?xe=fn-(dbUV1VOUy#<(K{rWmb)5bX8-!W{>5*F=xNXxxe zMU^cxm(M=8q|V8jzQ4fE)GsI#OCWe$X1RptK)qf%ZJe^K?px5$xLp;hY5lTDj4ED{ z)uE|bk(HZ?{Cjv(c&1OM5j)6!lbT&sM`=Uw&5zYJmgtTE@gCauI|6iK^6!t1s5C3e z?)M$NejCg2`NF{Ld~~GSqW~p4c`@U4e;YTb8H4t<`cT7BdFXj9K#kMi5`>yA@m#M9 zcM70XJ8k#NW9KB42$$*5ba-0Pui3`1po4z^d-|H01{r9NHt{XX=Y`T*A3 z0cC~*+$s2CLD^r$33q~49|fSxwz#Zw@YCBcyKq}{X)Kt!{{Pf)?lDbXVH|E@N(anv zD?!$f31|X{hD!_>#}FJV0!Aq15(#TsrXV1=MgxdTW$jj25ix@lvuuLSRT!qms4z7_ zltF;Gkuk;1KZdbgwz(`DYzDHxp7T}z`_i88+}`(`^M2=?--Ev2hbS)2-oYmo+>yia zu^q;i`cqLXk$cB%J)ZXufCtEw)~eal&lR8HFb7a9#?-Ox5?R*$>^O@>NZ0t)f17$y zhl{^bsh>lC4;lg;>^~}>l=?UI4aqpR7_)coU+yS%`cUhw45hIf8_c;ZUT&q%cV70r z)L3_JuP{YIc%6&w&yw<;z1=Y%yI!nEzw>pZ5t9D*fhVC!}@m%Ilt5jVOE+$d1u^{^}_^ zgJVX5(gDQ%+uBR6WS16g|0*X>{kD9;m)2T?z)|$J4Y$O)?P&5pnl$W!q%t9eb;d2h@Zmho^>BMffW7=o!&sSH`Eh=utt4=r5FHPomRCqs?Nory*r_zqtoXjaheEr? z)etLMQKI)5#_hj7N||mpZ$CexZnH6x$>1(L4jhFH#OR=>3NlmD57NyO$Jk;iu77W9 z*EmLwIs(<>-hjURcC)#;C_&R$({T6IcwJRw0kjDvj^gTV>yg~bN#7UIp50jk_KRW+ z`Nu)1*ockI=9QbP=0wd{uIupN4STU{AAhhd5Lb3dPdrZ9U&1^2hs=fxNy7j(q;P@d zK*K`dedprLO6-0X!DF|S62;?e41kkNOmaj!T^R8Io%^0h)krBWH@El2%kA94AvP$= zAN!UA{32ieIEXHNV=q7gmJawU8R3aHWqLI9LTCG4Z*eC-%kubF#l@#@~> zmB$OAfG&1`Hvp($63~li@yx-yjJRN6=m*`^SC|kNd`;pvlS6+EH%eD?xD?%QA4KjC z=|LV4SeG^$-ko;gG0QwcYb&K%nUGpBg;mb8TswW48dy1Kw1VvE{OR}joU+c#57v|b z#EGVUYJ4La98%1`LNC6Ni{rW*XD$L30n6vByDYzh&gTZnGWZa-x_MMj+3|bx@_@xdKTU0pM6o3_Zpd{ ze_i;^TSH0iV$YN=OXMPAMWIcY*Bi8nEOEXzJ0vhXHJ$h;@sC--USf zL~ZgUp{=R21c;P!lFnCE3vW(1Wu)_e>F-Ya)ZHHHOb(n#`h0fPr*)CRIbtyyF@;}a^nx_B& literal 0 HcmV?d00001 diff --git a/report.Rcheck/00_pkg_src/report/man/figures/workflow.png b/report.Rcheck/00_pkg_src/report/man/figures/workflow.png new file mode 100644 index 0000000000000000000000000000000000000000..4bbdd902cb5f1ecbd70eeb8c0f09ee8e68e85382 GIT binary patch literal 78543 zcmc$`RajQ**Y*uaH%N$dcSv_5-5>(e-AH$LH_{!_jes;rcXu~Px4=6U)>{8(t-WvO z+t3?4<}vSi%`3(^e&ZYl%gKl$z`lhA0Rce}7ZX+h0f7L11RI4013viiB|w1>P+J92 zL6EXxoIT(da3cX}0T7VNNVs1*zb}Qc7E`qa0YU8i{Rgzis!$&UFSU|~1^YFpK zTzRIUJY0p76GzhR-HKdZEGOr9bRMk|URBckTl=I5mpBE0tO z?d{VzY#|r+rWqL+kZl~2lar-dK1CH*H+VjI)L2{{&Iw>752*|jrc~0Rp=qO1(?vuw zz6oPQI=AJACd~7?QwHu}Yg>K9XG)p%gr@QF)Ez|hiwiNQ~4Zx<+C zN|{(TdtHU2(mi4sR-cfG{n=OI!&i)Sx3fNqT44c+fXg|@5mTl^2i?KIfPm>TjZg~~ zg#v}+xr_8F@##KNQyR+59~AT@Q^w1oxgC91;zFVV*ToT`D3oEc=hGb~a`$V*0xW{rlZTB+-A zZpJZQ@#DvjKs*;?D!uGlO37(wwcd~YYT8BH6-r|Ax?T=YNcg;m76lcSOPr#Lc?!SG z3bbGO9`hIw8VNIT88P*nJH(ZL8vP<^6g}Z+PW(uj<@KLwM-@<#<}PS$^*op^&Bh;v z`Q}$*?EhJ##Z476xv1Drs&;Q&m;QuDy>Bv8&`p6HJGvn!M^9g07&g#sPcPf+5EmD> zwwa>0ClyADV!Fy;Kz~6!6a(5Z{uGojpWLxN8%I>Mxi+(QZ@D<^yb9P{76DXcOET># zMDgq9{cBfqZs$X6%?0LT*&;1Qs-hztDQhdRgqzd_dH!L}y|Z*$EjURTu0J`x7P4o7 z#C}}+1jPhwL-;@2kkp4*3`|%sy^+MF!DNE05)q=T%6d(37TS&YQxuMMW^>_eepy*r zbMu3&=UpsihoGb{%jM-|@NH(H=WU{A66Yj=s{!TV`3N69XP|i-*Fceh;Bng3Y%NF{ z4fKOAN6|`{_(Nz6 zPjLk@@>_ZbJo>}uXxA&^p!-_2iu8rLvl6E>LYd%wSIPe>^hgtf;g5UHE%5J~_SRr- zjRuL?*-g2q`DV;fzCLz8?Zz}SHO>C$!XfnUtNZcNBqx=d^nb`jB4~vlMx9c=2F1AP ziLn094xM|IqSjzz&>N~Ro{k)uhVCL;OOKVocxur=KSL4?^6%?`Sn8DdyzUZp51sEz z^C>mw&XcPL*v5xOw7Yl*M?imv-XJJghG6tzd+R=tCx6?K63_R3S2L{-;mrr-iNmdn zw@^#>O=v8SNAc417?3qA}jf*R7rYgz~(dDz6Xa@hKhQTWPkUFB$J+jU8Kf z@-~q^3oD~-?5I|M@-#M;^MK4r{d3m*&yzuQkM7oDKIKdW=`s4Ji7JmhTpM{lo*HGC z-W@;P6fw(2J3wwlx~DdID37cz9OKzvG4^x+dGe@l4D9UR^!reqyG~0~t8e1;Vh~=A zjEjd59;G;dQv~Ai$Df@Pzp3NS<+rE3xBgemQ5Qi2U8_UDPGx{Bf+d+Gvy_$M@ z8@q+K24)r(-OEJI1<}lgkeVD^tgH?_xQ<^?k~$p03Hqp2%HqZ(C1Y&Iqp`3N0;4pM z;Nc0}fuQRK`R&znB%EbCH0T`FcqjhxbgVV?SN+q@6J^Jqu!Z&c(}QQ?6tk6>wbUEJ zmzZ(FnLgwL0k_&_Hd7WKd9#wiVQ#p0aB#4{&uP02UsrFjKo*|l-S^SC9SL%6voH2d zA+TwdDSJ2M(2~0-Lwg&1gmtarfZkYszxz=gB%7|WNxrzu}u~$53BSe7WeTu6iAsiXF^#|6-{tSq$81@XRlYd zLZIlhgjv(Zmd4MHlMz@<(bw1NiWhn{tvte`)DA~^AMfg0qpu`Anrh-6`n5A%5L-$i ze0Dr8i-kOY)}H$@(-=$TI^Y}}-K+O3SHjKEdodY@&HDX`+2cBZy0DJ_Euz@i9333! zRI73;D^d1N5Q5%~6&P3J9iaWuONPEO7fc{}Dp3y$NUdgLZpaq-Zgz`zSNiNdn7;UjqKga@j> z7H&({^+Z5V>a+AgAtNW(aU^n@ZMj}{{T-XfeIl#+OK`g66Wt;?+&fLo&u)S{I4k$A_oDT>`lU(tf+RbG>V*> zc9S1CvuDb5$!96jyz5W@a5RLUhr#7`U$`ZDs8R;mKa4eA5yb}!53#spalK^edrc1( z=JY%%sQSR9Aj4O_t#G}z%)wP$&(d9-m{3$yB;K>Iun-aws^XugCeNn3XI4rXK zJGTD}{*YIYKJPSUh>j{(ONNl}m4RcINeT(rk+xVTvVh`Ba#^6$eVMZxlpjjup94-o zp^%SX{_g(%{_gIgp~puo(IOzb%Nl(_HmcAz1x!I-7n#f!$O3fqIs*_Cf~1;FlUgFE z%KSBmiHWnT0DWz9{k2}d$L$cyoV}n9$FD}fQnPkIX=Q>B;RcoQ0Zx!}eU&TVn^T1% znk(}r#fnZ%U`OIfr%;7!sk@y7G)MOw+u(g#7-NPO|I7FVPG=-{E_s!^(_!nRN9t(G zUG~DVVbLS}ANQC`2IEXwd*+xA-@0SIT6mocz4D9Ftdh7e5*6hhT`9;h^H5x4VUvX% znqHCESnBX6l=LA}KjEKKG!Bu<32_u=Nv^rQ=UK0bIlusN%9i;@(l;TP6Y*c6Px2Ct zaWJlPRR)q#xZ>e4iuuS8xqy*0phbTE6GNT=`sN;393Qme@Fd#xaelgUz#F?GSpOn8>A- z@eM_RMIDHwsNh>N6lO99`PG$-hlW8WrheL&VJ@q(i}eN|VB3{dm6l4MuReW_sBu!9 z)Lf-yj0}m3h(PR(L?a>scNGwc_O`<@WS;ThGjXXLZE?lVj^|P1EIpsZp_sKILk>| z>lKdI2xpt8dFM&}GS+FZx9`(v&MrrQoLAT17B`g&{trqm|8;w`$ zFy(Nj&UP>5h4uZ%+mw#JSaRw7b>HVf;gFhxDrUhZ>nUBv*ctW9d)4*1x?k{@Z#Z|> zzh4-^wYu1jR0zcta2FOn#3b_dwwcc--F4ZH3LsQ)Y55K*&gexDYS_j8GJ)B2*4)R3 zdECEXTz7_2>OXJ1Hy4sgPD#PFisPOo9na?VMM#@?6&@bmWC~>aaMh$G(r6k^O#S z2Qtn~r4wdN;NqaxlP8L)A36u$Vc1Yrsi=vbx+~qOnFN|MkRFFYw!51>LjOdtNA@ zjX&NzIWmcpAX%qwfWIiR2y69fa_r_1gN?!beK@P;*+&ee{LQf>@igdoXf=48IKJ-~ zTs{(`LF45$kp1Z~_7zZk2A$uxw5@$)$~1z~dhRhn-=}u`Nt73(MUjV+SnJ0|ZJd8Pab3 z=lTCfd>bJXo|iFU8UIMHUx_iybwjfi$o_rd$sei$P`T5WglU)nmiKtyHL^Ii;7#@o zc_Eeo_MfE)P1yCKdD(qOUFG0dj*AeGLu~IbN|r;OjgU^B@^kAa-o4`T=uC!K@+Y z*CjmPaZrUB5DlowuJ^SqpbT%e|6$ zdUx%=HIQhv)HuazZQ>v+E2|0d#)7{YU^~%<&@CHD4{WB}|IPM?A0O`5P&ra{YvJN7 zq7vrkMEe|iCkuC@l-O8VKPW10r1cG=ve5Mm9Tov(O+e2K^Jdi-Y2QH;clozWRxlA2 zh2oWn-DEbYrq^n51M-ngaW4Z5wlP~IcK55VHGyM~mS22A(4V&xgKs-U=d+HfDhvSa zX#qqj5W6PQUOT`pR_X=5kx`>|)!~hz!y)Y;PRAgrNmgat)axsY3;s!?UUxWWl)>^f zy$DzE$26T>0=_HU2wPEfg`8VlOD2}-1_=HNz&(D$EY0uiy(diXAwg@ER8*{HD?qjC zT3T9MkDDEVQ@1A)zn+Q0Sk`c*Q1Cw)vIN3srl3IDH-OMEGck#d1E$3FXM^ZCsN30M zgKZ2dNp{=21o8|wgiv;R7 zFfwwTSBlL0doaI1NObujN=o%J$Zagj9`mkB%ZUf2{MTSSi#Ec#dI%+6?^+&j$;dsjhV-08#iE zD&8?N>SC97es@0KL`E3{-Uawv@|#c%f=_Ce%>EmFheR}zB_lHtIMP$W5}8oh6yhi+ zC`Ba?XK9a9x}e|NwIK{)$_Fd?&?i@OF_FUNrc1e_AxnJ$N6GR)L>erLN-qy?(Tiw z!UWcTpBzyx6i6Cp@5nI-1M;)sGD!hm=kLldnC`rdHMcM~M>&qlcw~Y}K>#sdr`ruX z7tp$>!ZJ5q1Xc97$NDx$(O>K$p2*^N##t-X4ZPf+lHNXO#s0I(DX=k> zfr2=ii0!S45MRJ9={~KnzT%ZgNWSHVUF}s4J1v;%bIy-waDukrd zc}9%WMYR+c>-9dWP}3JW);}L z2K3Cbc&}+4NMJFUnZ6R0S_b4O<$6zio{}7boKawMEMm1M*}#Q0c>?qRnh#j5GLcOc z$gE}S^e$;(yL{?IyGKhLD>kv!_3-VsQ{sCwtqMtL7FvPYr&-X{E2mcZfkb+(O5JYT z5gwxm`oD6Re_(5{Ha&U3@|RMRs4AUKNc7g73{T$P77(d%G*g|CF__UeM%k!WvokY0 zH}T=n45>S9-mmIV`n)5cvyg+ZawT~!|0p`6z8KQoAWBPE(K4^$MA-SyP)SMPbu%z( zEX;!oD93W_NA+-BtbQ0r?ExGfuvXO&_fi~_Q&Y9|^?U$8n{|*l@7DYk7U@uJ;cnl; zv3o;Z{$2M^Ju>I3M*RCqyYMgjcWH8 zxBKPz2jD*%16^3er-z})K+pPRanVnA3s5tjN}hWYtsHwCFwf8vtV?J|3CN0b*%Ufj z?3U5DDd}=0e9`Xv+6ctBg)?&bcP9Xeb}^<3yuNyO$j4L#ja=qQ2-Pa2I8}j3u!-1? zN(8ug?kKuR%a95=e?=jo*ip!Wjd_T^00j05!zgu!v?BK%j-#y66bd=hNs=p16O6K&lxu(zdO6H zNZp=KpN znfGI5G8LLE%_f2FyE4hCh%@LB%i18m1kC78Ila$@=MvP}*X#YuEB&dotbdQ|aZs%T ze|BY$`%UaX0b-+THQb-M{VbYS!~1lsHFa4jZ>bZ`!^Ck$vh&wNHiW?C5EDN+cnYe7 zSb;IQbmd?+gr`OZV+28GEKMctM291>H&s28@y}3i>uk3AgX-fAeV3!ve~qvuV;P!n ziu1mxEKKfAP0^%{M&?P+OBLBZ^wwjk)jT+(vd8Tn8!M9a^QouR&FCb~O8|{ggnXLTxg9S@ z-n1#U&EqxnpLanb+AH+MxRnI&W&Ch>87)uwvmNnl9y>RXs7LV`y?fLob%BMmZLvq( z(DyomnE80k2l`PJlA+_QeXmjX=#s-{{e_3U=m^dx;k3x%_cM7$Oaec=ZLZnXi|NJD z`IwFN=3(&tFHUjeO8In4d)G6L+gAU>f74Y=?hY2A2SSn*nFt81M88sGPKX@@*CJYp z1-s}XtK0+HhCM->JdQ*E@+ucxB$RO!+_j)Q5&YM}aXP^twJ(^kVct>sw{|-j@av`wW*DR$zPXbtH{6YFT60o5AHsJxTaQ+Wz>H zU;ucU`{l)_eRH$BzAQKpB+>~>imhw_6BupKL(&qM^#xV^~H9Q(3BrxP4*0aw>H zyT19xf5tYuMtZ%Dmvq2r9wiIzswX!^tRT{UlS;Pv1Tit-k)@qFRscmot?ON-q5^!V zawZw%B~SmCUG4e0V{Dxz_#k-1VAOv}<5`&IIHVAg+Fp^}%jTRM2V*>|Pfs4r$NEewe+LpEv9vwFk9rl7CN+H!;83;mN%JCL5APU8*p7NUV}T z@s}9tp^e6*dQz16e3Xyo$tZbn0!7>Ojn4bsc9kt^U+Sv;6EF;8FOXvZkLB-;W$ap6la= z=bJ`*!+=yuoq>>+kpV;-jcS$fav2Hx6uLEqVZbMZZ}3VQ8X9r0NSUZO0p2U#PYJMa z+Q)h!`R6(>9Cmb^_B^P9T2f(zo(m^7r84+!SS$ji$zBLvx=R8JGviONLrGMWI*RSD zm}(`*;^Hb^IdK@gWMaX*G%Z6DU}>xcu7+FE8a6?Cr6y@`!N4TF)UptIeS_o_6=TKw zAu5Id2}<7O3{>JRLJNh|toVE;|0=bgoso=APm{U&S5{VX{ro26;2gbw#*8K+hzRuw zk}7+2A1jH+)xl0w`u0Ko>Ubr?at*@!SwDW7g-&*mgiQl)dctljVScwZeSg;*aIX|% zSx%o;hnPD{Uw~3M_Exzt>Zn?!o^$RnRen%3jS3r7rU?$=NjiO5zkUU!oBOh3tfR}- z(et5Zx_C;Da<8Y< zYKLT8>{6uVT``{1?_4>KzT3l3H|lNxIv4&?R9u{rl43C>FKY|W3Vn+IRjkf?Mq8y^ zGu&>{XP=XcE0IQZe0Da-u9vCn%^ni(O(srCXO@@!%;aQdTabGnJ_n99M>UG5c&j!+ zsq^K@aU@ZC>c7TsE6CCoOrp_X$UVnq_d$-di|w$lGsq%#bkHG}mbPKnhgidT-=D3( zoo-U38HKLxZM|eDD_KxsC!>aTjK2&yXHKBlJF@7MKrt0BmezXZxxnWNf*ZoP>Ns6|BoFza_xGTZuX-jBhAA+*KzugV!*;ZzhnJkd;Kg|X>ro&~@v z*!$5>scduzm-nUt?%F|5yD70GZt;*hMxo2BFj`xZz`}EE2Ur1nyp+>?Ra~p4lP#w* z_`^^KK6n?BH%shlnM%~_%gjQChh@b5iZ3oMj3JQ?6l8G3$@I`q-$mmW3=#ll z266fPxcD;7=C?ei78dc5y1qV$5aUNKW2nc*6sD2GAjwM;Vys#miLckV7WSB5Q3`BP zEDM=4;#nL2TI&oHG5%fB?Oc%VR<(_IJ2nC6Y>tYuGMT5JAe&a;GE*&jd8ECXNwc!f z*`_riF)qFsP3Xgv;=W);`D0*LsHQCb1bj=j&4cKr170`~h_&wb_yP?iCzO$c z89kNgAv#ug7aBPFX)@gsb*fKgn&ZUSF z7uM9sn8oRgfmsw^NKZoJ$4b5;KeQrSznidcp%)r&6(vxR={1WblEEx^1``tCY5lKr zUPJiI_HIN2l9DW$kRY-Ic^V$E_qT*P*MTjkaEV6m7zY13oQ%iiAY~7oH+KX&+70A) z1Sr@5#n)9FE&A=m=&X0Rq`pxAYQ$PvD?n`-)j*n9bPg{RjiQpfQ(OTA)xJ)ZKZJ=F z@M=T}<~pk7>ou6Rf*_V(g3*GCF$wmge5b94!q8`0J>MRhXr3QJ2E||jR-S8`?Is*! zZ?NJh$PWCx9z>K5koe77H!9Y=gf6|;>m0+}`X(aqjZx=8b6><9k(a+3a@oD-^u%TR zU4vC1+U2Pnh1U>;EpBghVLNQJKfu|Fg4cxla6i>7Pqw8mGnJkfcP}q526%m-KLWK) zAtatS3YY$-?cp@)IYD$HvdtCHH=Ib2Rxuxp$Azo{< z0NXW*Sqea>{vZbFWvAL0M#hm0Tk0c4bPnWSi*_?WIjpWzJb%^m7RPI>vrsW>*dubvs~_?j367Ubo{ge-A)B}@CMIH;OE zU>&naS8VYRMz7L&wK3ixaJ-qj7_*;-c8LqS;sK#^&-X(#@$5Mv?0MAl4jTm0xOJsc zcEx^yA?tq77UF<$UeQxD0>-iHaTFIXSX zEdCgvglAhlTfbra(iupg-PZt6JYx?u3Cc8(Ys$`Ib$Q#1GcfipeVH}3vYP4o&EvDK zWt7?zNTHFsemKuFmhk(oZp;oD6rQVq}5H1PfrKX{dS043GUknpVCRrrDUMA-0t+ z6}Y45^6X=+k0A&zCmlD@FT(f!u$T2GQAusZ0$%zEq^Z+=oIimmx1=ZBpn94Q>K>I$6jBVTLO#YR`En%oKgVs9=B8TRd9B*CQ z1w}2!U5^A}43BTe;!tNsK|oo`JjZW%co+)bO)j40u6JWLE{CcL;W%D>4p*5@=4EpJ z;R-ZST;`G@v}XvSIkU)r*-pl*4#56v zoKg=jm#ojnoADJT&OB*4Z#Z6+aeq+r_;*Tx^_(zoZ*#d~72I4ru;mpHW8+&p7`z6O zWIoS}vZ#08?+yxtt{AglR7OE>O=O+v5>?R%oOc}gecwWK`86AvT(8Wvko>SE9jlz> zD_X4jxa|CiJPZ09yF#qNZQ%Y&-ivz=EGoM(vhO%*KI_NclvGbN3yC7`(;CF8=z}dqkUSgDM0Rg^79Au~C8couqB7jeZbdJFSrQ z6A$5klu;ZF+Oh%<0e{&L?LwA^Xz?$(c@PLcyqBl4AS|NYf?XhX>z> zG;4e@RaU5@rMAvo_M>^_!%9#P761=1Pp@%rt`eHY)ITbs@({NpDMUV^Xj+Qs#PKVO z(DPa3+R34VRzw2^i=ff>s$V!67zmO8UBhNR3wTCWW@a3Zo3H8AYIcE>#sQLaiHh;n zb^sNlW-Z*3h?ai78Z!FDrTQMR0{~5*VffxF(dLZ^E;&iw{I0xcfr*)x-G+f%6WF(v z-y`^=Uy3AjPQ6RHFnMkpj;0c*Vm0J%q9^(Ybg=W)aJ~-=`&MM6k^sz!QEWC(#3W@I z0UK?P4mDzyRalPIZ&OLpAKmPJ>?~TVB<`rI$0R(A-7Y8yDJR6Hg}LA`8?AtvbKLT~rDbmiakM|I}yQ#Ah_A0Q&Fy_Hm9`|@E6OgFLX z==a=m*bbe$DJ&+?8(N~hbN$hbi}gNY=2Ii!Bg6FJxbGr!(hyeH$`2>{Y1nu1VHmI2 zIz!nc`M(HzJCtc=Mn)n?z#?03vn659FOTPTB47^G8CL9PG-j>yw-NDqY0`b+BYE!% z2k&6_Nsz_*FqB04Svu7wfzV~Hc*gT#`Ysu#y{+@e91fGNt94!)n;F|75aFFp&knkk zo;h`=rqUW3UGR1%S_@CexO=VEs+|Sk<~Wm|FVD-;8dWlPk}XTXI8DiPJO>kNsRLi- zPdjmpx?1P~JBDU|MTeDrk^Psi6O-F~#n-qGRW;3zx!>{VY9rc?^yDasAD!wq2f2$s zGW^3qTuG}N)MaxR01}XuKYeWjS6 ziyX@_KPtXk0e;22ewz$?BzcjDZSpEru`LMir4(EV7Y%FVfN1&5?bTMbzJ+tpBmrd@ z!1>!RR1swXR4J)wZzvvp5mu-a_FwL_{5NkUmF9QN zO_7$CHl78FF!G2+a-KqsS8$C6Gepfy;a>!8Sy@?mFGhu8h6IjOihcw*o-yfO+iSZw zLFW1|kJrpx^+_M3XdAsZ+RAYpbQhJ1jE|{Y3-fYpizd{i4|)B3VpP0NjQrX1Xs01Y z5;kV5#Hur*?=qwaFN!Pf55;=9C)%v5THoDwMyDQb&QhBhU#3yX;0tnYTI+#ziD`C9vpP`Pbd`vYLMPvuyC^$Y6i@@6A)fF>i; zHjHA$63KL>(Z1L?=ExgarAgT|mrBFOVS<%Yqau6|3K1vDX7XnZ_?VOGV>qfEj$Exq zayTzD_IvV!K>6gE>>N9-Vz~X}ROprQ@8mNa!D}nvLo~#h__fhK$3b(&CGMj9k`tY4 zzXFl)BgR9s{hxWkq2IiUoL`B{5RH-{4sNZ`xzonowVB=H#P#yzf+;7dd2)|gk!ESg zIO}V?+d+17kwkv{*z{o*jl`VHc@`egWFj7kJ&Y5Eb2c9yyo`=Z=h(7?oWLdG@aJ`fixOpnvl{uves-S#1l4!)nb2duTl}b z3D#W5Ba=Cbjk4!`h9JCL)30JP7l7h#vb_H~Jk3|LvKO5h8{*^edSQg`>ATDEY>$t=wDIQFs=%CM+=63o@`=J!I>f5OnGqMUl~52hHT^Qc<*+a0&`MPPOgdp@17&)(lxbO>R&(=2b9hzPz9Q_)!De(Acgbv z%ch80cU*-D-ppn*ZSW{-c$+R0tR2TY^wujbg?vAWZ{;OK-y7*Xhfi2EkJ65Q+>QA~ zcx^Qb)S3zNX$8gQ-TG-2zu9|kCO{P+0iOr)G&3_>06gIhwmV&%3G`Z)2h`xo8koI8 zS#AO{&d^MCI=btw0?NA@?Tr4rAP}g;5GTz*VovD*c;#EtiAxnaClUI}dB5%%gK*|K zGQQf&FT%9R-U`K}uWN>*oTq$~W)-Us9+lP5FvmJ#e=sfHH(LuR^SR&RSlAUO+mWx( z>?+s^Fb*G$1Cs+$Fq2|JyGO-dM!g7{QJEZDVcdp^hx_u=XHLR$l$e;QYqus4odjV&i4ypr8m(p}HHzkm z$`D4om@jIV#2NI$kYK67OibK=b`iz7tKkd4~92q zWfRi4de(x2G@M2UT(PO|)|=^DZgi!khrUa#P)P;7NMt(mLg~4XEd+Z!@)$#!g607> zJ64780k%W&ffrE$_KOQH zWX5WEcz6JK>YuK6H>8o&sJQHWC>3}9>$|iU)15AyqJL{ocZ4Bc24T2MX>L>jSff8c zDJ{O1I1tS3;hv@L*cst980C4JX+XrOM0qz;t>f@!1zTzsT%S3%dEB{yZsP!of5Jp- z1MG7J0;3moS2gd%16Kj{uRVjc*Nc?8zh9oNaCrv^Gm>Rb*Sjx?mR!p-nmJlJ9dAA7OEya;z zn2M{BEFu>QvmNw>68@-vI?;}i=dZkp4nUa+Vh4zEOq3mkv1<%MKi2^NNeFOK7+Nqb zIudk5bpmBfMcK_t)4ny|Bo(k@KF`xX7=Ht$UWG<9y~02Y&0{yeAO}Stwyo~reFJGq zG~>UKx0J40c8KZclI9jRZdgit5eB=)x;d2&lh)g3xb{EaA1NmatM#61LTAV#Kv-wy z0;6vff_KT(1-{{oqyE3o!0G={2?^>$J$z&b-2z=qmgHcQf1o?2x7e>~d zvSoU5Qr}^O=G{$*!oM4&u%JFv0EZ0VehCSI{U~5yKq@tR80zIT3|PZ7!RqSta&3;0LQBDj9G1(agEh-AV$zZBCcz@wN|MN3OdMax;f zn^seEP!;^mYwjyFWwA>6^ih!0{ldgV4ke>Bm4xAScM@+r{M6Lc)rpH_b#$}ZnbJEQ z_8rTmMthl+2{7Ef!*tf^v6gY+P@q)6n^ znt;in&L0kQU8{6}tp85aULG`j<=bas*73%Bm2Tzv3cz?^k+q+(KMm+*{a4C3Tn^@d zpFjqZ`5x#JWBhL1dSs$74tR$FZWex&ja-+m94CxlrX)lzs6w{Msx)|t{;T)2(oxNYOS}vrAg&{6 zw40QoQVYJQU4$0a4*K+v0^8ncn*8hrLT#E@%$0K33m&yUc2^4B+(h7@|F7)~6$@p) zHI>_hw_yEYqsNxoY22$53h~Pb6ANK#ff{=XuB3~rt55>xz0KnH6otr5>Jk0}nWmRQOu5C5USGmGCrgh+-=kwVR< zMh9qeOPJ4gu#mE~Wy(D`?ZLMKY*uJc@+?DMI$f<-C-ZrI(0b)EhWp;~jfXsr^Nu&R z{Y<242WdQzznyFd%zJ?2q^iEObO?{=odu8ka3&>C3p+EgMvQz6@4r>4sd$MhSYf)M zKy6>e^IUJ`8g+on8}4R)^G}CIbi=Q`0^Fk`Pi!3K3?XsHMs`@4S7-A6iQH3+OyT4Z zYol30XXZN;lhf15okZHM`5?qqM)U%J9Y{+HpM*ABYM&&_qK=}A@`E)QYAu~P-_x&i zUByDo+|)(iF~XE)V^uHQ(vOwv4Lj*fw_tKSv8;ubbIoGGOPI_*%vHhT$(WMB5d92W z&-$tJ4M5pb<{ zV<@xBdd-W-Od+u}oyqDnk_lYLRPWnjQKq|Rffwy6{3`Bh6G+@DsJ^?l(Pu^T_QmBlB(~={a*2DjN7%3j*;N=$j>GGt4jpH+-*org`1Pn~UXZ~C+w$l&;Mu}1SL#kR}pV8Rpjvt_hln``%vYEOpo(b1^md9~V$AT}yE zfjsn7z@%7KMptOqKPJ=zSS^M86ho-aAo`e){(^Fyay+*AbduDt)1hW6lOE-V52Z~i zx|}1s4=dl?_A{FjQ8<8AbGiXEPB&?}PibaSU$2;ku=(DUE)yO~c^k@QR*TIx8P0MI z>?14XhZy%uc-Ld}5&tl&rybB09}Kc#IsxLY)K5V#tDITwtBxd6UCY1at(GtjMA|5w zQ=)BeShyzEUod!+3b1U2{aSc{VKck2%5#l1&2q`QBM$JKEE%ll8yr}*b2M}4=5a#+mdpmgev99G?DXRS1Ow1 zx^NfiXq3J!KjE7@cEp;%b;t1pQvav5$~69H;d-38`{qOh>A@>D1Yeq`0IAtt4fs2 zaO;OW@ZSNPWGwW@Q)5au-_MYA`y^pCpZUEQ1Wu5RBq_GATWxXRgRdA>HZS6t7lxF) zvWy(?{2n%Q;S~R&hMY!nxlK{*5(_@UGb&*dR16e{ntmD3X#==(Rf5$z-`;yvD%8Ek zk6ltWi#)TVrd_#pVHp3N5O4=^&fAu@rAx=(O5LO^wz`~lK;(+Cwo?)sc(*l?uygy? z0PS`^*nIW6DXA}MyIkWY+JSTBl%T(~73iQ!8G7dzmHqbvL#vci1mv^k{SEre*#O%T zpon_;#|2?0$3|7hnyhAoH2krVx*5u1gWza@UG6awtu-o)Q$5DLe1W&EKhU>mrHzjOp1X^>D4bdStHvTue z+Y*m1kp9*C$9TfKf$)p(>;+yZJim7;K}Y^R#eqGcIp^p7g9O&K>e^+nG}0~stP5g( z^fg4v<_aV%pub#%*&we?JygHib?3&yusi0>$w?;?c9S$@*}~Ei4=bx-D*}sQeHJRJ zhKbXj^7Zb!=rOb0V3Vk3* z$q!XLg|jjHZfx?C$s@Hqu$uA#p^c0Mi}JkG{r;j`ayh<_Fdoc`mgrneSpLqG)O>+8 zMW8Y_*L#tbnfXnvbbeLU84&hkES#J^?s!kQJkS&761*shG&xn+khl>F2{wRySyXpo z$dd!cyX}cqyhQUBIA2_qNp8)ab5rHGx}+}-R!#eZg4iYAyqvN-g1bpJY6nLuU0|=H zi!kM7{30rt2b0d?Q7_atQ*p(mu$GygL-MJfogLb6elnZQB~{5t5_EjxiUdESZ@L$0 zE)4^>uj5dK1k0J{*=Y|jqD_w5$NOGlPz}*apwU*oac`1{w!JO^zICYOqe5ew2SA5J z%y5f}ic)vDGx$95f&p>Lk^w^~^3rqgt?iw~C&I^#OSV2Mym@oyJ z(erhA_dlmG$&8bc*@oXWs7h`s79L*9{m-WGW3pFcJht0meMa70fYMGz>K1*@KQHX7 z&Z6P!1V-gbG@4j;q8m{z0aN0+Q9ZlkRFb zlx)A*ixRup12kpiKAdr?7N)tGo0`VJGYS1Elc@*~4a5Z5Lm>En_b~>_stt_I>FIdQ zDmXi40Jdk)be^CuN_dU7WzahO6`p*3hM34iS!44r`hi`PqqAJd!9U8{!HnEqtj2ra+d<5%qF^BKzymuIwT-dU6 zSCp4CKbiaW_$#*w+LtO!6dAvCh-m%N0X(;+<$pkv*w34bangn<*0PY@rpA;wa=HAX zBC3W_N3S-tQI9PX^(ZWLzAkYLnvV>eock%DK?9(lxu?FwX`(4<8;UXIekG%{5-u6Q zf<3Y_Go${Fve%GIh&cuUxJbA-9wxoKy}g01^|s0k=k25*dyWD|(yN(H5(9}wWlWA2 zuTn>V3`gU30?t0S42krW%t4aXZf@S&M5|fb6qE(BtfV8ch0$z#0YT++fH0Rm6fUO_ zqU@msiOq#hlIu49AlXP;rVd;vODO{hoaG`e1%v?LYwb5$an;om>hIBtWz4Ft2Lw`s zP1doTx;mTy<1MWBUCgj}Hjm@tXQ+8HpZy^a5)|jI@=anKDEP(1$OwS#l4?VP^tC8T}sk`e$`ju}J9-5B<ULhU2$H|~j#4@c<=k)|_7)4F$B}j-!mvl=?H^K#^yBm4;MSQ;R$KU_rxo4lfXRleaW{sM<`r;Fa zjEIPDw<`Q(h>6cH8qiIMuVG?ps*DiLYpS8!``U3nv94v*dfir}?Lq?`#szO$wADeM`0qU%t+j%!6@l0~hMQD0blY`_)9Bw#n#a6MoI0=aI zle404ylS7W&5D^GP{yaL`+SIPKo-CnrXhSW;hYyZnyxg#D_?81M!z!Kbf>fHvUhUQ zP*v@!tZRcp%v^WabC<=SM`RvHLtrU_-I`fxm!Xa~c+Z*v4`Ka93DM?}W-6{$Ct8gb zP|eVwe$iejN79eXdyy$#s5J~aa*PF{d@D_vTmFdl^SXz7w}{z0nVVau-Ol4fo-E&Zbkw7WVvC;Qt`hG{E9tf^z)-e>>&Y+E_qxt4A z@hj)*Pohl@I={YawR?a;`>b(&5s@mNQL;e%0ES>}} zci~jgk|wz6OmI!M_gE+dCcnFqJ&O2uF?rcKjT!D2xTrd!>RZUqfNt=k&ojtvd@RCOCqTEy^A zJ4hKK*LYBuszjlGVpS@0MN@GxbN18S{5PPt{5O5On`vrs zAZ}I{1oucE<+BEnuSk2UZ=={}SI~tHt=`2VzKEE`=JOT%`+4b}GbxExa*n5G-;em9 zysEXLb#TIiH_Z%b(i!wT#Jc^!%02~-HTq7UKY#WPPLy?_)4w3-p(F-{FYFlA`6tf^ zEpEUD%#N(Bo0$YBNBdT6#A#?h_mD|% zfbaSkC%kJRf)gi<*!Ad(I9KEx)OyF)H=yOAnvF+FrsN6`7G}LH>~&-(MGb}4-_7Aj zUF!VuGCYasIi-7|iV!@Gs4zlVVLRepsU*>lo%mIc^T&PpDl{vBa&YWjJnd`l_ALRl zoplAI!a}T~Dj>K0=*sKgz(J8kv$eMu!(S6r#jq*$r$5q1Xx$!4ZDdI+qTc^j~Biz%}uRoY8%4sna#Bs01 z7FVlD3OVUB8=ITQ?l{lTIduPMj(*=)RSr{^1ua`wJ^l$?E;@>a2EqmP z4p{H7(TRy)(z9q=)z#G#OAI6r;y{n}VM|12CZ+z~wB&EWuoI&B+swbnTpeNcL7qht zrSdc=hj~Rj{_Rj7Tz$Fj$+vVFe?39}=#d`codWXz#8IB;n3xmehH__<- zJVCD~ALr3;c1~md2hkXNnlFo#QuTE^tlz~%#L||*yQ+^{@ltjCWhn0K+ptxjwDhNj zhRZk&-PTVTUY5!zQepsrsj0=S6^U3_Y)?)mc1s`!@%*n^Oj7n7;2q?W?=9DtT$HlP z!!t9QuU?tBb0p=+Bn*3^&@=q6UMw=v7GRlv$jzLiuIMR4u{C=l{Lt(yseTh+dg*W| zv(5i`nZ@1(UnGl5e@q=tuemL1nxv|#Dp1V$RoDH3jV(#mFVglu(%Beybu+d+;x8{L z-z^hB-5AIv4>Ed5_w%(Q6HV{^p)CrUr0tn%;;G{jmqWvtpa;r^e^;6d{lj>iNE&t1 zOF;Z}rfSh*X`EcWhCc&cTy~Ce)_?fF#_RXj;lIt;hCy$NyUkKr0|T_aDCtgkePyQv z(Qw*sZAxppxsK~i_`xrn3lIcL*(QvhISU>wKnr#&efb3i#H2qqkmP#ui;Foj4!c3a zF(|6z?$6c?mrT~1acHbEd|(V@DE`D311Tl>kF$BEN+Dy9c)U@ZA^r>6bGEF4l%_>X z^jEzWL#6d}RwdpBN|KprZ*EN284XNMPS#081f%HGIsVw9UMeV7FMMsF&yf@y9K5q* z8I%9mM=C3=-0;Vr?h9mkB>2K3kSNpxR9;q$+=b?6IFL@7{Sr{Kpiko#EukGp9W9ZM$l}|9&~!ho&mDT)wW`!QU2*+q^=$qvzMjX#2b7 zAhm9^6%)^ge?NvU*;hhtH%C1^;VR4>2qsbh_953xQDbA{$W7b8o}M0&K#U|=v7j~S zlY@`bILfh0uS#@<;t%7gcppD8CQ>|l`6SvxF_O4sJ3cXct847MOv>q-Fn8R<5XMFL z@`hWS#@)UPebeDT6cy!F*JO{NJOLMB?%q757Mz&}hs9r4aCox6=G+b-ZnpV1&_9sk zc1p(Y{D7D)D3$>jBvw{d+G_1U*}%Cu?U>@nN?P5vWtO_Sx}c&p7=2fx0!btKC~!E8 z^3W1Y-e&OGki16-+6{aH-tzPWzjAf}3i6)(*P}aijT2lyO@fMx5%KUui~19ycdY%L zq#F?@<06i`g}|5gEIvT}!y0~@r<|ibv;v>D`1b~VDOR?#(e_gM+IOV0d6i7&(q$XVwdwv?UJhjl{s$45+1h?qG1660jUo4CzSn5ls(lm z-mzl^8k<#NCz8(KG7<~hN)^I0VTOP8X8Q-Dn(i(r;%x^2gg6z*b0!}+EtZsB+z8Yv zLqu=w0b-9oP+r3In>GCV+~X1PMoLmBuhzLv&3zcuQ&MJ>;b9W>*Z?}T;jWA z;(egAhA=(kEUh*S9(!9YziSEjbpl~UKyeIR}Q_Z$9Zgv=fi_B*vsqc)pD{jRuMBX+V8DYF*T@$`A9B58|pgKUC|&f@6_ zRo&oe_<<$B}hSWctp4Si>TYIaNkth9H;+qQo6 z&OiN5dm*C>eZ8wQVnGE=Ow1Jb zj^O?;Eei3Buc&4)Zq#kA3zae`HHk4b%yvsnYOoX_+)|U` zS;M=nlD*WmqOYcP3qH}&4d8$+(lej(p6SQ7Biwhi>vv-;M>+P&Cm=z zpPX>d(D>Cf&-q%a0SN>DSICQ{YJ%6Br#+{=ihnK8(j2P{>TQ7Ph`Z%8zERzX z1zTF#x5!6iE=-T5XJnmeo|S(XMkr3;?wnqgR4_gZQXz;lhcXM8#Vnm*Q`$l|C6L#p zwYcad`SGZyqc<+_9p8FX^&~3vr@9mtgjgYl^MRs19v^*U9<&0|Zhkrp}_h();8^AL*n#RoY*y zhgV&vwX97U5t3KFWf7eeJZ1C!2_G(c>9%~$AX0i~bn?_1zAKtk`#kDuCG$tT#g`6R zlTh{N2KC|V=lUb@qQ)uWx}_%Ku}{yWSz0wFsK2DS9>nq8WQ@}KGegu&TI#oXICfHxZ>GrMSUE8rm^cW}CFx5aJ~q1*6DD{ zwdBvAl>*r99KsA}hagei)6v2_3N2r}zdb7}VxCTxCu^gYCp~FxS?=A==2DIS(bA(K zt@Sq3vGek^8*I}GhElkI?BYJ&knmd(68*{{#;!JQoQF5Hw_h&s`(StqQ!Y5?YqiYbRf2Dj5K zAGlvSF{08jAejeAVK7Kw)zwc}>g#Kfrvp z5FwwzPA<9rjF*?!>$f||R6)W{uoU#oFLL-!?oAT$t?*^kBl8d@y+MSqcATnQBV(NM zmXY32Bjc>&>20-f>+&aD0TLYyM;>juq9XY1{_UlJxhQ?w9Fgw}r{^3nK?1 z{>d9S>7H-%idDvsX@?V&p&&8zJk@_d>BKUSXu2_N2x+1l^t`3NFadJky}I6AXoe&A z(2th18JU>SP*XDiIs5eV>uF|68o0Zc-A7hS-cu`PB^_7Qm+Zp+NwqC}k;xF5Cdu2` z8^h&=b!K0%9;2MjkiiD7M@mn3+ZA;9htKU#zDiMbNLyK185rd3&+3DADc~_F3x257 zU(aD)VWX?yjaQA7cA1V{j0QH2l)m4daUZ-oMVrVd8o}Tm_?es}Dcb~emZjJ;;a(8Yi~1F1Z+_3EydSKMKsn5>hNQ{*)$G$w*w|6h*Xdp={CvjkR6tJc1o z<_Cp;As;I6{nf0t6r(0!d>OesU#wN<2%Lk&W=5j#j0^v3Rckp)<38RQ`m_Q^&kw9+ zLGd|smkuP#L?C3{Tl5o30m8f}Y6)3o{G;PzAdu=-ffldmjIx2n0|dgM4=xgj>jV~ix7>4( zs37BW4NGbwx|pQ0`&3`FEa_FZS<;nq?Z!NxpJ5qUZZEJ&sTeB($45H)JU=H>bMvpc zxro5qJcH{1>3`*D!pf9pnL3*r$sk%tWe*D4*l_KjwNL6(VJXUl7Cq%`cTy^quZI0L z7*5I)d4I-5xy%}9GHqY-9F;XS3G}2?e0&eB?`+6%rJww?if!WOY};H)IQ(z~hlC+& zZfdXWC@s#T5Ho;qM?(I$nEBAm8VCUAo6iVl=;Cn0!L={<%3DTE42VXnyK!|ulO!<7 z&hDM7k#pMxO>nijYg=2fq7u5J*wChQID~0hMxDl=`7&y&zzA9S!$&a`XcyGunC%Qo zroj7E6%~>wobcogOs8Z|<=52S;8lI7^qsA9+C-L=1|;iBHP#P1X*(9ASJi123$6ZT zlu{DJQGvVl%WGkB~4bdf^>lJKGVzK<5UOzD+R1kg*J6ZVW7V&%J3| zS@EF~?)i(Br-bt_OC=D-gy>5%b0`N!$>8{1$NZ%L| zX>dW1_inX6Em|iLR3}u--P|s56nOX7K1ERF#X_d1pV0R&74p&D>m&o99uXf8^vgjd zpvGM6*{JKis@ibM6dUr)(!D>?dxJMi5MIHDD|Kh@VwLf?|Ks_nQdFGQ#)!) zjsW=Ws*0zRK#7KwvJvkt>`BFmccQQsXo1`d)K1I=psh#Yl*!=R46CtJzPMs=v7g}? z+R&sc!9<$F5^S*jXim|jK>;ux4W>B`US`wuC}>VcT&IL9;6$5tklm7BH`&6~9H{XftalTOih89Vy9Yn?Dlkm<((MRlWDS)9E z@CPXCA(*D_)j=>ShV|j{ymI#PYKjNGMbf1Nk8#+cjsxUM!ftMLq3oduIYP{TGoTXp z^MgBsJW%!R>QBX2WxlwiQ`;t}S7j#wrq&g2Z8*lzqTaYgV$1pFLD(xmz*WmqzXZgjLp%2??@!G3$xBE974zbAp zOX?y^WhgLfU4Srq=(9vVxqEefxJ)z+v%aj`B*=&Q8kQ7qz%S{lx9O^PRPy0g!#yD7 zkxqkG@5U;TF+_ur=CoP#v;6cT>Zw*N1A=f0rM#(L)ilZ;)v6V~qe&I5@O%{1{ftLI zd234PV_?dF3I*|NAlEFGRN|J#GE2CU^yw2hsSwXIU8Rm3CYee2E_goQCyzI|$pkN4 z(1@CfrAQIuSj!qy?DbpFV2dYJLn)h9Gj+Rg`VIG-^;QD9suum&xFlX>FXXs$Wf#GZh#S8u}TLr#yjTcG_WF z)ifdEGju9~EcQCER7@By*?uAZ6Z3p#W~QLyoACWExv4q|al{}Io zu==AP-|uArKH(-~;a5Oa60XaWtwv|gUN6YSyr&(d+4)X|YB>cHW-?8=4x=Vzg3E02 zq-*yoEsN$aXM8syLsA@Ey|ftaY}%}mF;?|Q9c9I4p*JO#W!p(9ou{5`&n<2HC;~A^ zzkL1LK30_w5P&$n8=5&CQ=}8+PCa)CWU`icejk`;{{chMp~5{3~U=p?`hlopZlA4sP4Zj@0In@-hzV6Mj;t}lKZcmQi+wi zlY-|tEv(Oo>w(;W;*x1L#6;LOeD3S!PvTTeie_*DggPS?PqGkI-S*tS|MwT00h4a< zqhH7$Hn$c=D9AhVdA)1%2uF-4K9|?ddk@uz7i}Wc$^7Lbzz`1Wlv(yiex0Y+qNOpyh^9(rdT6;V{o=g-Aw5mM-Ac2vDtVlTm-_^YgA3V3Y(Pzzstgp+le!vbhNUV9+EVf;MR} z01o|KMTS9*hnhbjFQDjOKqTH$q-%C=gB6Nx2_qW;kisM1+4W3;ueX)~v*^8gWn00J`v!A%Qt1d-2zJ zzHe4B$7{0ZQYI|>2Xyprx9Y}{W>G>n=b>t*701u{`I*-jWv<7jgjwLqT3K0v4vQKs z$QJSLKrzt72nv5Z2zrdNWLKqED%u^)&C!kU11E#y)N|PN`Z>SMxWR_N;`xubT z4kuYd#Jc<`cMGcMoi1FsyZlu6u5LrFf!Wri84+Q-yMN3U!W{ml@hSoC)6HwXKeh_S zP?6Z{?Ejl)qhK7c?xH#J% z+feNi!?SZq7OGm{SW-Jp_(7x<&cTxt?ooRp#HN#!bKFc%@dqgUx-H6k&@)-YtW4ol zQO4zpPDd_Z*}YyP0g7khMh@iN#3j^Fg+W)tynHapstYW!f1h~n!@nHx6Ml~yxf*-# zBkfxElS7H!)+))}F&zP>y7n+I$EqKi%SV$hEjJfCID`TATk6RZy6?+3EFYL9BxLoH zWv^`GVk39BH$c=tn6iQjlti;K5syKc{)6l^5i2L>XAbmB`5i7N+|5!UC!$YTZGo5} z%%FX~SA4J{Gr8uRH_R$$LC)W=x}st-oz4qw58v_^(@4?lubRa9Dm~$0GKkw>=b3(p zpCCF2e0Y4`uzf1lgm)1b{V|vSd?}`XLcFuZscQTwFvA#gYBxWMU}*&iJ@xQq-(8GA z!=EU6bE(7^dRnf87R(Wu%yUKwzG zxpf8TOJ>__K_YKQ?Ar#ObFBdr%1dFr)&&LhS`C>KJY6OvG9cJ_G^5C3 z5=RyHMgM|bt&V;^5@1k0YWKxadOM&WbZlB0dNnP%P0+&&s&>GCBNctE11N}|5oP)J zKc+0d(h|%W;vaMxDmIMN79GH>xHi;bDf{}`7L^6I*<=HVm<}sTeTZk4IpMwmhbj7T z!sjE%Xg0ca+%W#Q=jPA;J?r1w+uJWYBYx=|)^vGS1~#YVyA#pF90 z9R2Ml0zB>s))mukt(g{hC-?B!C#L}SKQ=7;^_4cth%8l*b6GUxf z7vu*+u71X=b9#Q1YD zE_M$5W6QVl(QL>5I(O%hj9^?4S@-AnYNaTV<}dYOi&@77?<_DcPyNi zD%*R>0y&^`wFHHW1FT%X`^LljzdDt^(L15OKzAeey0X#iU2p&%ycqc}KId~^Z`!M* z_UKECV@9z^h>K@y*Xe*+6m#O!l7}zg#PM#j1jhvGUJzPujjcQJ4NeRjTvvT7Vtq4r zHBDM44pHmus&Uv<=Mt)F(Q9sytK`F<)FG~XV=ww!o^ta3UYYR_)h=O6(D$cx+2l=$^YB_M(JV*62&pCIuKhSe6FK3ct}BcFN5xZv_OC2kd966JK1GC*1U`_9lbYT z6uOp+Ma0Aqa69y=)<0tBFvyfzC}_YYDuBMIuYE&e4o_g*7IX#9S}>PBZSyvtf1dvg zcJiX2gxe9;t9vf`?||jQqHwT^iJ}UOYp|#rO3}T-_Zb4Wg@qT>JoGAK44JVy^6v0wYiYrLCF}QdB1zI>{N%c^jq`>j$UR=v=TE!1|-jwO1OjEqx%+Kp;XlSs@y!2p@3$iDfW5`{t!{$u==(#Rx_WCq8 zAVQfRIbR7;;y2wQt%lr~Eemle_P<|-wF82PMA=-tGp(i?(UELyp^PM7|KqV7QsdA; zSJ;Xh)`}eqDB*)N{u}=Z3y?ZE&AD_gQPZ&e?UI)(y3%>z22UvI@cbh;_q%Q8V=Nhz zf1;XUB&hGyaPyk;_c8il<|jX#=oF&qg0Za}`1|e0*SDk)-cryBfCZwk!V?z1$6-izHkH016Pv-5Dqfj(oek z(Wvq~jVnAsDB1#%ugF(IA9^j$K$rNEWf=?+0KiTqdJ%T_`Y_{$(QUn%MoWKOX@{Oo zs^%UyxIcQtT9_wjF_xd{{gd@1+5Ddb3IN`pG|S&UV5N*gnT`B!CgzivnCM(sfQE5Z-6F|afF&h+?uvf$ zJ>W7+U~bBIkNPl8m_``>TVWwnm#44xIO?d+K691a6G}f^qCc|b|M)W8aKIZ46kelN z^YfeVJX2-&CAfn9cC?hP?lBa_7>R*B4>k1Lbe*bqDeuPh=4VdEkVU2k1G{b~&e1k6 z5i{psOT+WsaA^R|R}lDzpii$G7nPI~QC40a+La9iIe<;Go@*bOo(?{G*u0ut z3JxW3Cwrj0C40578vf_MaD!%aHd=vqA}D%T`}t^b2r61C-Y&48J(ffI1Dbhfg}OfX z1EA3rMNLOgQ^q_KMy)w>p&a=O1?nt z`U*!bXgQFNg>Jo|7|JG##1_!2lOCF*9;I8BQ#<~BbV|@ZG4akN*p*gfKMk<8=k$3> za?z^go6NL{QXAoZxi(Z);S;oI1Gh&&7MLC6ppbrBDtQFgVH?Hy?AbG;eiFGipqN@d zz`vP|Hd*(s6N9EdosZ}HlQ?WbLbnHd8I#a)t(0YP4?oR9AQ>%QM2o}k({s`H_-1WD zo_o8VN3x+JWi6!LpNA@I>+JeA44iSF1IyXM7W{oNgW{-MrxA+gsAPTzgiukO}K zIyy+FsCK)#x6$*LQ5eW%e9(J4?a8AYKnn_%DzoH3_on-LvydP=P$&d}OT!-UrBu(X zUrTX0ZY8=RFTrcOLdQo)Abr4LVSZIc<9l3Cwfzy_1dd&iK-%qO$_P+nf>jXLlHT9%FFLpU02;zM#9=ou`h`%xJtxd7b7DMDoL)7#+CQZIzjH+u$`9$ zU~Gv^vW4Yz|-;4WlEe*^uacG>jO;Hm8 zNBf=W;)q$%MlEd|KUb}PW30gD!|X!}@_nl#AqKp=6D`&bLYqClhMxNmC)nMUw1-YB zK3EI=TRA{)TUIvw=7dfKBxiiA=eF>qlR`&rFpDtdcrlHwUK#yX*2!gVM-<#!^d`T5tY}0rAC8V94|!EaAJ?%Ro4*tFQYj z`wet#M3*PqXk`$n%x$Jvm&f`$=6Em?5rI#cEteK@wz(+gPm}RTLioy-P=gCdc@0QZ+6bcN*HSw8<0P-*UF| zLs&7)5`UUQXo?*9zP^r|V`^W2k7n%h^TknJAL+{#CE&p!^?U*Jfd@qj@NxhU|efD52$BIc8G@3tBNRLH7d#R-rwxLh#S`VC%Z>as-toIuAC$0D=_NCQYpR}-4rz{tM=8#qZQAqy5 zK}B^n5?fz7Q^eyU!Bm_ap~N)&WRfApsQ3}4Q(Ku}^yG%|X@1crbMCM=*iL9Ff5JLy zgzO$5w&aDK$iJzKKWlTA>rtf{7hdi60ahbVC%$P9zYa`#Za+^k?*>5HO4|#7)=s2H z|MY-M4N28k>|7mn=-H%UMAb8QGL>+CSiV5LI zB%C~8G-i7O38+mP&V5{Kew8)SVp;wfoP|`!EIm0F7XOf(IP6bv*l82;C z>_B6!Qnd+txxKT)o@9v6ZOz_wT^cg%b;?Y+3_u+;y3kn3hALFB&l)$LiuY2#t=^Rn z&8wd{9q)W(0g&V7W4ZYxP;Shs!$9Cr;C@D_Z+JJdeJLbJ;Ob2roBK4oP4O-cWW2BO z^kR;;Q9~zMAM%IF3ViwN-zW{!$;b4FQ$&K3hk13y*_};J_+V7G@J|TnE81_ zl1J}l{oG{WKyNGfv1+{L=F|XU>grN{lMaTC?Cb39R~@7X;NdioyJ&wPwz%KF&iOXh z%_FMQTnx?=tru_B!5a_M#~Zfj32AEVqNA<9YOTLnAwY0RTvX_uT7yGsPU)F}L>BJ$1{Kf1x=QiOvs~@a~f)32Jb* zS-q{H8^gTRhJ>EqOqtx2bc&z0+M1r$R1WJ?w;F zV`>z>qN=Jti8YY&mS(ZSYMuV&)%>dT&qc>Q9c~%s;VD$ zxSN^ea<>Gjx2Mcql1415Gah2P?K!}=`wXFRTYvvkk2Y{jIR%J$84ajZ^rMmKJ^rpP zLcDRYY5YUCEzJcC^!2gS1=jD{;97paqZ93H!0f`84nZf)2}4M)~hQc4^lha0i66)b6Fn;>?0wHc0nf7Sozd_>WCN z_{(~#4Rvo}S%yu@t%6L_G#svvwx59<*pNqVt(oxS1!_Ga4;R-I1VYZj#QO)OkbvQf ze;nSivC-~+zl$hYL}+9l)gx^J{f5oQ3)S7VAJ7eD_Ui9*rUJ|KUwmW~-|19#B26~h zV;cI8KT#h%d1pnS@9=_@6LqnOGh%SGh#pwmgKBdmFppkIc?_K;B^m77;5~)^?k(U< z6P{|dKHXh-Fb|5V-P*!>V9d?!nP`%&V4uRYljptPTT4EfE)>@>9OL$S`CaYT*Ofir zWLR9(I{n}@Beve7r;xT*Tu;yTc{}rz^nL5;hJ7{w3gkb5A@#~3u22x*Y6(e5RGsk5 z_}tH)p~iL$$S+`Y0Re^)c~Mf1^@ynOBA|z%&(zPA;>GE$W#FU?)S=Z*%%&s!{e?zH z6srMn;yW|d1NuFfiWfl^3gDm;eA$&XhMc{ku8nafvBy7QXdm-YQ-s#eKLMhZM{NfB zuAc+J$gx`=M+{M&2LE^OKq(yRtkVf5r-eMBo;`&=Tn`M+gFZa_-cRo9B0d{bw^55% zjHIL z%f*%K^FN^d{pX%=J{GU5K!>t0M3Tk}RblTPF`5ZZY)le+k!KnbQ9Km{RFcWxo4GDnHAMk#LxtZeQ zWe^tUw8!SCP`myNtM;WFdMljM+{Ib8loSp$%4?z0HH*BP*!9XQ-x0iwBi2czxxG%6 zscj&;?;y$Uzi6+}T2hQF)A4YxA|IV)BC~FBXkBma>=b?e{9xY>YOE%gOEo`U<9R6I zv%Xgf$W~qC3`n%TQF)?v(r`E%f@7iYd`)*mc@)=^xttbqx~p zc4n>nw0;x5o@w3VS|3(b*+tDglYzYK}2?)d0-Kqf^<3 zDR-c&U0yNr5M_64i7Y4NhOPq@D^qic&dWu}^}4@+jzdNeIYJV*e1RW2hExLK=l9V6 zu_H*<>dQSN-moNW2VQ87t5@9^WaE}KQwjm~uyDBs9@DEJt6vbmCmGz2>xSQhyEmvc z6t$%9+K^T5$?wn){64Awzu#wEsg-8Q}R zE~u@PdQcyAC{aRRo<4~SX53^r{`V(3dQw%Ew9f+HSl95Rl`x_nDcy`@rj>2({yu88 zgKLoYA?TEdk|2usJbReY!ccTjy!695?oLO`9$rY=IO!XsDc=CZ5h-S6Gshm8SU@$0LGX(3WO^-%+DOgz?L0yS>VsUYYm=9h zw>A$QYa}4h0A5F~ahP)7P`4Da5OVO-96f(4I_Ri9CM$1_+TUw?Cg76@fCGM!ZZHAQ z=WgU5;VMmVDa_T<4t(e_^tX;Q4fvXiAwXk%pe~%7U%4!wjjPL#8Uh|0L>O5L0LN5t zinEtMf%$j1mZ|QGcR4?T1DL=^I(=8PB}mWfX*aN+-D? z{7j+X!`XC|-fMg4b&yak20Mm5GjOsjipJ_Zt~y9rH8oED(*>N$M@qTY$JU?gR!pv! z{C06|j?}TB(Y->Faa_)Gx*Q(c;k@YC(6l{|Z{;@*t@&!uS)*rzQKI*)v|A&&O9%D+ z7RP>c_KI5+%hUNgElTvK2G6OG3t0$nHOw)Zb470 zIpo4#QG=%!y~NP>=Y~fU24O`obZ_Q#gvCo(niW1G5s6vlO#=0H^znT#I|#t6peC-- z(b3r2Yt)O+MqqpOHCZ&N6eElOJbU%7)i1$=ue@?_qgk%wB0yibt1pHCW}L^9&6X;V zJH}k0d3vOZ=*i3wW~s=kt%IXR7KjlUPiuR_+zTk6J1W&XlQ4zv`YFHgoIXNv(7L^E zj`d{R&X49lr9eGP3_yN@ZZA3=#%Cu5Rw(IYwSYQ^=J8ox*CS-6%Y(xaCOJ5Mz&Iux z)R%s>rK`Z0LKE?co6sF||DuMpUwY+JI+8&l-+sUphrbmbbV~)n0F*9UpT7F0Y4Yo} zz1~`qth{t{;17(qu2@#JG9Lj42gt(A%ohD%EI=n7R6_F8f-Z|nowlORInf>tw8K>l z2Z9e=+MRH3CORo5U#U(|GtUFzr6s%k<^$(lk6ruU>x+a|D$8t=j`D0vAD`UD-VK_q z&8Ty#YQ36T(}`!#`G2=p8xXYG%%YR&{Tv!nQc|L1=rRA9C|5pUsRLdL;inq*BlJ12aOV zOuxaROYvM6?WCEzea|-ZlTJ=J-keC0-51*;h-Vf6zZEDikp4ISXHO7Nx zGtvm9EcbOThy4eiSP|aqz~eiFwPQ`v`vH*g?4&hB;~-df65Ir3+XQaUTYm|BjfqGS z0>{#u7uDKQX>3%ori^KqfGF2!8>yOtzrdbBcE+ID@bLp;i-ns{V=VYZk;*xCNV?^-t6Cl2LH9sbsei}%*V>ZU0EM}A&msX2uMS# zs?_!SU`}pn!8k%dn2!-iyd`eiOmn`mJ>Xl;sPEnLvo9 zcGVW6bi@a4>rkENV#xcTDsX$cL|c9GUi4v1TD^uvY%2Wn1^aKNSB8|uaN>4o?4? z`r6GB`*r1Ms|PqU>8+d)?gVFrKniB@=<<&WeLWAs5i>xzgSvd!14haC^B*vBgGLIC*yW)lM}zgVjctxmH7p?}L_8|8#=j&5xhFWS z&Q^NeM@|Ku8E1}$r*OUHJz(Fr1D)+HbrDWTOsrXJpTAZFx3mF#qv*)HiC*E}zjRRN zR{*F~5;Hjo6MV7+3|YxHcO1zQ_N0}CMd4ae8?Zj4)VTeN_dAt3;Bt#Cy$1(Y(I#gP z)_w0_YWKMDq~nLwVG{KBX6pkhC8(eWw79FOje&t2vi#9(Ahq+|Ivrnk0y3O_P>k8c zUPIqOQb#H(E?(74MhUv_k2~M3SwfXP!}V4xg7%df;!xTgK+^HdDzYKy;xceb`)+I6cM@q`v6urXC*>J?K_ zd%-#Cw_UT(gu}spgi6sYA;5!qdA+hZBi->24!x#h%j*-oy{)=&E*43c0W+kU+sZO^ z?5=lFy-j$?MGgHT0ZI6}lguQ$P}G)DoO}KFy)fnBn2W^;x~dR(;YjzvKNkzw^rmA^ zVuEnP_a8Ohhv}cEde3t6@5c2C&iadE#)`QAR9aqbb6P_W% zONE*|hzi#LT1LazKzP!;Y7>vfefCpgLgucR96fd$CYIigMvpwVJ63+Qfw?nEv}|3t z1K#HS2-&=a-7WBp{d0Tz0m+5-n~7UVJi;=dz8>g$kW_r$ouodD;yjt%fC_S4_2-+R zIWv7O9FB5UU*x@+R+DHJ;nm1AMVtFQ-X$HHm3AFgRIzmy-V z{eWO-ZKRf=LbnMnC1}jSns5O2BgSTCtVxnW=eB2yKpMdXt!ZM$Ur^a(Rnq%bQ=wdZ zvjRIeM{)<@VWZOxPuc_CxNflVL|Mw;KsL>yk>jMsUPDUEtORCOx5S)N2=w!YEB7|q zt1EY*KvSXvx;K=0L3<*UHu40pLyk__nC|zU-P#T)zPXJ%EiTI~;51eDA49+=xJe%H zjE#i*l<$r}K*`R9uX{G9@cW?ZaVmHEv?05)Q3{Q8Jnauja{wh}t2b!MIeclTDqyM{ zTiq0Nn%;{-Xgh@>^2$J!LlVU?OLk#n;dRLDil|V_pHyekdmGqlK;0|unt$}a`%K9L zebaT(r_#o`Hviwv%HN?dNV2q-xz~Ll`>=f;J`TQOn-1GuMT8zNcqL` zxx9icbVWfKH5uL_5Rl;#iZ@o+n9j8rAa*k{P~pxS-|WLQtNp?l?6El_l=rl5$`w*9 zqIkR6>7N7y1_J&k*L(uuspusWqvE*V8vjXQ&^VoW%2-M)=U^_cn#+l9=~)_vD-W zG^R1S?pB`TFO#s0dgdI=%Q!Wo1>0Pjb=(le;wm$VQBq?kvQC6Me5wQk@m~F)#0ePA zHh)=uWloA(md%usDTx&k--T+!4Dy)2NEi{*AJN5O9w;V&!#3xdCQ=E5dD z9!QoC+CBUZ?z`;WT&NG7+>;=5c_9#f(J9zvp9GSm1j&INq-fQL{zg$^AG3$ zMYJ^5Uta`YuQ6A>#H6C_3#`3F~%jn%;r*@|Tg&3?~L7 zIcthjM=7OBqjo*oF6G>XgFoWw@o^Gq4Prd7)pV04FQwX0VFht8d}9!e&ow5$-7y?}w!fx!Wu{>yFun0< zAdooXTB)J-+8lBUffW3&Dh4r!&kq`RfN51h9Set+-Y_wN0d&tdPqddxA$9P98oWZnx9BhjLO_{s6m)NXTK z7msR50cGPsrl0wVo;F7Q*BBih83J>{Stx@hv^yKJ85I?z5@MU@`6#~r$8(nNB$zhB zIw;TB1p6TpvGwW{iBlxfbnHWT_>8KY~L>B)NzJOc7skQYI} z#k&c7Qd(mNsU5)G`qh%CtlGn=CcqHK+jxYaE_FJZVQCW}G7HI%AFKZ$c6ItNo7GDH z8*DBAp+qqmDJUnE?ULk@V(=)w;S#YlM!eRnVcKDn*QBgAg7W*B4WT-3)-9miRgwSGJr4yh?KS%Rm$~vnK3_Q%j_0K zV@>F48&NGe&U<6tLU2T#{zgqlVF_vE`0?=gW3@H8vOh;pO`|r6<1qO&e$|PZyKbElL4(Q2#;r6n`!=xTu(lhbF zCBJ{Rv5i$vlquIeJo{!EB2mMuwZ{<<>s}|x7%EbiBCG{vQ+g=*!Uhlv;}tx2}Zq?E%|(y$|YWiUJcGn zd5U4PU5C5F0QZi<99g=K6@$GnCG^?Ayf>@(@(*Z3ArwMo#Tq5QWhv3cq!?`1Pf*CC zUa=#dD_OQ{Sn@-$Or`S~k;Ey6Kgd;I7u_M7IuoJO1jHF2`Qq$-j)-aI!(3Oaq5m(I zimAJFWX>bf+w8cBsH;HazlU>@kD42wUUne4M0nK-dEPp{_Y1%DCjR#6kqUo>8Szrs z3_S0FrFry*)FKj-MTBsJc^3Cvib+Z_wO8eoiIwHM5>(;NKL#~Zp6lr;*6iQR!Bk_U zX|+!(#n&Xojz!{T!h6ks+w*KESxFf3{80;KP>G(bFBuprW^;B&PAI6bp@~bG+O=zJ z`9i9?%3q=XylWDVs?3;Hr(LJbfj$&>k^brz5py?!&&CF`Qe*s=OnkY&>d zYyG|nnT2}^L}ef(7znaw?j&@9J-NAV?@LkY?MM7&0sJ9Zh*H^1S%c~l&@uE-X06!h z`60M@uRd`-^UUSLi^F*TcovM)XYam%^d|R-yAyn<0)ZDsPa%~bYp)agQ>Ek9b~Uy; z-l{~yDUxm7#{_$Yc9cI}WkYV`&u2}ID5i&HuYzAhi3lNzKj%lUHu#|EIOWtvUxR58 znYUl1?7k0q7?{l^>P{>3I3;`ZVL)c7-|d??^@=cQV@BO0aBl`UU*)us$Xh=a{R~!= zdHrjR!L+0OG92fEDKG5VocT*kG$$12ZyLrF$tn0>PX5U6gTs35O!RZze~QQ*jq!PlzAQp7@7$2*}Z&)8omA2cc)m ztf>#QJ+WaxN#3TCr|OI&2?{lF)`3#y%iy+`DF(8ZAkJ`|%88Inzqa7Uy$se_J0N0x z#3K97uA4Tqn$7@;19=I5?SUl8;j0j$9_{}WJujP=2=vT5DNW8h*BI8@0q<S6~eSF~=1 zBzZP5q6j~C*BA|<2??6^YKnh6-+l7%yP|oy;&FjX2?zxCNT)g!%)W$}#O@X9)jlVu zh@oEz+BY^~ln#0zZAn}cyNWN^D{~!eY}!mpe)!-l%LJ;|{kkT{&`zz`u!E;)D%U?S zi}3-Bo@y`dtpLNZWWb{}JG3q8T(J+MX_+s?Pb8XAg-XJ0Q>kvz)i`C4#&e-3FW@%{ z0>J+Ji$2Wha?Ee4eI1L&+kLq-&yEqcl%>pxOm*LQQ=~u7j{X#*?Z^FGB(F3e`}`<_ zGb*7WUvo?HqtdpfK?roo8XE%vUy+;8g6zA)!0C>s4Lg#1EsF?R$S`#@6S1)?^W6?U zhZM1ua14&e2U>!B%m$o4?5z2r1q%pR!xFFkP=g_1PcQ}WL$d0+S9QPV7)qY$%OGX; zk#P%B8hYBtDRm;UDetPtDz&Q1A@evHec`uCFCZOg9sXt?_vK;qC)DoDTpQwKx)4NX z1e+ysB6Kx@J84WA>=x-!>Y!j*dCWWM8%b0;sI~8-HG@=U+r~KT18Iz@&*{va1%K~D zdbW2fEUozw2j7r}uiz^y`nXfaH9)-`$2?oa`to}nQ}f}ljR!xTxSf=TuTaV-RKwDQz#?f= z^*ANJnSixFG3tE%BzsbAYhvQ8`bFFJ}AG2wc)g5*!xjCef7bww@9 z2IOwgVumjShF&it_O?SAvMgAV8G}|0PO)TxGi>b}0hDV}1lmoxhe#&vQLHr425W>I zL%XcwONTGSSM%%t!uW<`h}m$OWL(s6d+}flDo6i~eEUn^tyW&hj}PnDLtzJRI78U+ z-$v^nEx_}vU6pM{D}29|8&<+{{LDyB{1` z1(I>vD2o=+(&f8`88t8kbh%Whz{b>6k*1=gUTg@OCQ8bweC1Cz0f+OWrO*n}y4$5Z}aNw64ZQ~FkPAZS@47|<^>_h%PuI*9`RDd0Zo z4vYh~?p#S^e9>fO@0!g$63*E_LoX)NC86^f`cocT#+7YG#}g$%3p)uS!5|fB*7fx8 zP}=T}q@nrhnt!qLKQ6tRz8xmiSiCwHG?=^x$eOsOGc=d$C!008D^D2|Kv`hG3gLbCK?tuGc3eFZb$HhYc$7YGpGM@NJpf&VLoC+9Z zU?m}dxx$s97z>!UBXL|DDb(W+7CkKMWQH}cfBCN%dp=eGj~vwX7- zX`%Ga;G7TUTxW*&nG{G`78ex(jW-BcEn0x42*G~orRQP%z!yv|6V;8^R9MQSAYz?d zep|8JaIU4vY%SnkNWRNF{Sxz=*ZWLOMQ^~Hc<5+FR^T0-t6T&s!2(_GpKrEvY|kLG z`b8ls^+pXpwyS{n?!gl4Sj#dM0!RZtOB2m{^Jm|u5DbMG4cI@p*V*9jK?hDzFE}+g z&f-15+bc{0k+n*AZqAw_s*Bv*?V86^r#^aKW@)N=xR36F4latvF( zJB^rfE?H*Z1n24dxDt3zH{Zvi2XHHEP$f&Zt^ioI8fU<&4f9sZrXijcy+svp*%Nxm z=7xOMdF?MO*1)|{t>J;F!Ti=X@+>U`r5Ta(=>UcFmo{OeL>u6)5k=;Bvh)L_)syia ze4QJ+UjG|>rDhga34a+byq30N=NqW4H350;mz`@`zVEEXuKH#pz7=j=sTAaWo+Pks zbLw@$er0#@2G4~D;^F2v{L8_7Dr|-gy@BDp|8Q$ZGwRce_qS_OQ5l31 z3TYq(er*IIY3dsdDKwCqAUuXw0lNv=Ct-o*_Feo#_^!JzS&90h9v9OIhu-{+hYacUGvxDre(SS8qICRJ_ej*bvU3T;Rw5^T3urx&6i)BjmYJ z3xPVN)~;rj2-R2kIzaLg&IJWZ(z3EaJwWY|v)dB}nO$Ltj_nva*DH9N+?%sERihfZ zIK$SxmFAD4^IFc|pK)4vx|nUy##V=_+>1gT(A=t|R}BG*;nh~7F|OX=Y<^Y|`zv9V7NKTRU09>^b6>xG@77|};lz{D7o*s8>{S?a zysag#(5UvF3iGUk9E|Z|Nex!x$Z_y=BIZHkhf`x?2+CB1gX7Zj@^ZsL^XxyrAs{_u z2I~NyM;Xp!iI~HgET>oeQ&tZNYMvGOpq7M9ls(tjH1on4bJi@)o*9H4Pvd#!`|$n^ z4xfjZYb4?G#IEW2+JP)uqBBtC87O~A@p|y}vTbOu?ZHo-__qL3r?JwYiTd0@0ig-5 zk$Cm?t=9&&9VwWqE0Tb&syPRA)wyF!t2h4Z;KUh^H>PQBI_9?gzxm}oI2FbkZ0UXg z+I^b0Rv%V{a_K|0z(ldo(H}!y&R{VFr>1;f09EKq#x)IJmWK4&u!kV&V>w;QRlZl4 zBSD>Hz>M{ct#yGF4J{Dvv_K9D$2EXglFj|-_JAC*WQt@NB!LqIFIu1HA~}(cS|<{&ldO=5BbMytY zc;la2&Wzoi{rW@g~|4T2`EM|BC(Q~x$Y?RuxJ ze-_E$;85R1w7Ibw&W_vzZUK+Vn|X83CFA`!99*!|M@{?D1vWtnKhG03teb&56NIb` zlR4-fo;u5bu7iS*y}Lw*>Y~*47+`n+XP{Ss^j7)$*V`J?@aN|oo`0H_0X_QxF!$Hr zjWIk^Eo|#QKC!0~#k{cV8F}Bp1hU_ff+HZ9#?!xBe`KD{JMtBPN1*2GS(80yFs6wh zGdQ7ouJF4j^TC2Jw%toXKy?yTax$o8zcmyT!3jg8BmmmJ{r&y_OqSukN?<3E<6`1M z0%D1|70%|$*dBJwx0?nnDT^4D#mEL$XdIANxw>!F-X5U znn2!BB}KHeJ0iVL8}K%n6NyH8lR^)L%bwE6X$B&c{F-J_n7;_^yCA;uZDUZu1s(~` z3=Pyk;C#PRGZKNk;L)#1muX1iFVTs>l zslZ&)8BQojL+#CG@5**gQ#}8TGPR}Io#XD5y5;UPu^Y@rv=sLMc*lThqv*GIQ>MVL z0G+N7OjrUM%7HNY@E0zr60&Kj1|s(P-?usfEBkhSL_i`z-`^OkUDg*1=O#Vs1WH~? z%jnx~0gr6iV927#jP0fpl#Py5pj4{&O*v3A3Mjzb*sW2ym zB|JvC{5}1O=B&x<`j4)5r-7J=(|+u#$}+iBIx?Ah{e4ROe_2A`eNOJHb)eu4d{nj@-rQE&t>Z2K6}7r~Px(Qpk^RnT zgL6%Qqs}E}*(3|$tAQT3)O;&J>v;c%t9x|}dxGTTDXHl8F|}g$`SJrOgP7-f1019* z)98m+zb>ex`*|udkOO10qo5rFJrrh3q3K{N22Llyd;)|B_Xh9`VET^&ur22)x8?WA zSavWrC|fkq)o5-ouq=ar_pFT;&C%?|y`n!8e`vnN?^OliYQ!T@!WTcyC#@pW$?Sok zq9mXj1b30BWFQr&Mewj2jUdz>gb1UiD4#YhI$9PC6=qEtInZy7Ur1x!-y#ObS4Bla zj?5jp7$B&Mq6LzJb~M=&c+K#1H1-;fRsOP8Zsp@Ekg9Yx6HY~GJKr|#!t>WbOigj! zoAsUFXH?}87FZV$O^S^!@6q?AYHAtrES-+VO3hszL_GT%z5cv4k<(K^z<#%Xi$NO| zlg;}^IxYaxW(SnR@T-N`!THb#_s0mx0qOmyOMLZ{-@nwI=|+%LEJEdEeOYGH%N=LJ zQVAn$4=~dhKK6dF>hI~EGU043v%ax6?-f!^-RQV^F|3Vg|5N%1%l@C4Jh0B#2T3Ei zwiQ0GJ@6WuBf4jZsZjC4ztKq$;RNeVCw(bOQCXp%`Qw9nP{iG*Y_*8HBIrUlcO<+- zOI2CjD0TlTg}`z7KY|T#T*j~gesx7s<>}B9x{_`sUrDp~^W!7S;K};*`JF2n2+ifo zqVWEYWL?GPlFa^!QU~r&?DnR3_z;egB^-eAI_feig?wo(U;f2oIuCXFH99Rijt>i; zQ;rBMHm}}vaJK%)Mip5S;+^yGb#(Xt0GvNn*h4jZh5yGS?gSX2+#@f!2_k)8Jblrd zriIDoIzdZOLJ1xw&`M7{`|e_2iQp%#gA~?#L56~nJh(pUQ75PjvR9#MzAco^7Btj% z!KF?gHrn>o!)f5{6+m$X@t2JA^QU|rSL7SuQ_a#PFc1Ibkgh;_U&Wxs28e~~`*VYaW?6w{nY^W<)KGRULNFs(X$rTP$nn5sdP z0x1Q``G2-E;LHQY|6u%tF&SF@vl)CAE1xUgGzo~-8z24wA=*w$%Xw-$T=aUgumv6K z;64Ae4KnBxO+Qk_ z?9FjE6T1cGYr)q)pELeJv*x5aRq!oBE(lJi< zS3$xg1BWUCvn419oUg1(Ui8j;*Qnyf0om@@joOcYGK!MeF&BlTD2Zsv0Y`9?AkS}b zwjpysoD)s*G5=-=j?&X0?!I-|qbQi6Tnakrx7BKzjz)<{S_F_|`oSys2XLbU@xHyX zaya+^pcT7cY{$L-RL85~5w{B$D&}xK+v1Re+v)%1 zoO(07i{9DXGU@WOB5irSk_I`cgrE97bmlWc&w(q?smItB!}cZ+qJ)l0NI1wv@YxxO zaQ7rZoz^qEwS2*0u>Q7ucO7WM2TckIxtgL12SqTr+ySK{EchFRj7i|CG8NgG+K2dH zQw$6KQDunOEuYsP{(qpbn=uG^=lN1n%=W5#A8bb1nx7Nf4M4WMTrNF_S1X(n$Ua-} z?y{LKex6RHXXfpP8$*HWG6t4o#~nSf(0Tw^4>(HgODH%Z#bcT_wlEK0n+cnO0sx@- z$~jwG1M^Ic)XK?#s&Tow9ogaUeB~7xIf_FB|78T;si-MU+SOh=mLG2u;nb0569bi6m87I z#lc1w09d>ZF5;x1XKj+;E`-!4ImDj{mj2mpgO18;ZuYjZ=?C6W_!7rT5h!Gj3Wm%z zZpYZhY^cd|NvslAABQHCv6y9xAt*+SMm9Tyxu-?Obm`N20b#UY(OE3v3l}Ov0uL}l zKLF(7QP&JtB&X}GH}X8XnGI3=3?Rz!XS{dufQ4rJc3E&>n@?&f{Q?;r8o(RuH#mF# z-B<$RG=?=(jH>6dMVQG0E9RM2R>j{BejDowS2Ka8D{Wd?^R*avpT}6H&5vhCb%WR% zfoRF;1F3{h?e)aZr*}pI(NHc9N`2h04EQ^tOE(evBtETEY5FK=#m(U_WXrD?7)Av}xsf>&| z_D4*G8(!SfUnR||Q%+g803{^PO|Snh&8M?k-h*F{6zQL&K1Z>1naR-T&w>2^Kys4y zF;i=e=k+7&`hu`)73Le!-QH&-ox*9>VW*s;?voyMnjyq)I5E2)Bj|JHG9l)HlYRh+ z0Q%stS=thaKKq+1=sXaf6o2Kur_w4?l>QfI5zsFH#3{5tv|KXZreno3S*4>NIQ=;2 zHCdbuv~3*wSp%`Q__)9{roX#B{K5@A(pMbpCOzeVP;9~m6^P|qi<~rtvrQD*fbDK)LtZ?u) z+ZlA-^d`kTgvZx62M2F@@*#wXtgX|uxRhQ`G$~y{V7K9z1jiM}pxOg&x(A?WtM~ux z+BxFz_&6dvuX*_f`LSKqDGg5YAkI$@LC>BlLP70IWpp;x_g0$tOdjh&3FEiFei(A+mwr@ zu`8O4)GE_)Z64d8{zWU)sqbDvT)mSY2R%5wY+mLMv;Bo#oC-5rK7zsJWfN~2V7Zh} zpv(bLu9YBCLLUVIJMV-c*lD6!5bg9z=2qB0FaDWe=*+V6GN74PK z<==P=kMmOoPDSBx!Vw^5d$o;y&|59v;3|$P?M|-=Noe_;f1mY%sI&DqxX$tM+jU`CNu`ReE4;9vHox& zlmhr!j)qcVayeay-R8p>S#tl~!D@yEe@6R%&v+=X&2GZbx{0>v zf?auuRKI^pU()>zl5v0Y2Il6v7;F;;ozS&QdJS(u9XvA!S}=9=2Ke28si5YIKzT{A zc!{bq40t5?2m$+#e@_R!_T_Mr)(`)TxIz!{_E*R=%C^VHWRwCMP5_*jK#b?UQg8dgh;0mArPi$-!HKD3qg{)jeHI@di3`yxq3Np*FTzDM7>=yAXon`|E8?W}M0U97J1t9c{u z`_0RN9(ba`*nn#LSs|d8zF^v;ZnLZTj)g)o{`+um0Bct=$fphfU@y`NZn+u5@@aM- z**z({$Es!K?&C+Pr;QbN{{Amlzp%NOnaru&R!UsDfxbjROfA30gwM><|C$$?iipm& zMwomGq{pUQ7uI3LQc*ddH($R=DQC0Loey&x`N+T5@45}LSv-O8LDK!Nb=s)U zjf>paK~$ zI-PXie`qbMUZ@t-A>^_yCYkVYo3In?{Sn;k&ucdS@?}>0(W|+DsIM;&YK#wmZ!!4$ zER6fO?i6~7?ant{PZcZT)xZuIsHUba@6utHhA_V{B=eR!v(6_O@XE0OA{GF@tTf1H zqf4~FDARV^*nald`|Z0{`|&+=W9|09Nuj==j@l@3!`ex14ip~3bx>Q~usQKk7fg4H zU7r@1!!)mW5dkUo>pO5qLjh0@Tlm&E&nAiWmGfJyMf`f@{&=O? zMF{3}^kv%iK~ox=@cW_qS)ZjciZ7rdjlhcg1^{GmbfUX*=8z_MOzzCCb@7Yri(U5) zi3y!2S|<+BZlD2eF4zI#d5JyNl#cTA?KzjAq2e^5lO7>OZ0qqtL*32B`kkHn1>=vX zvlv~(O*>V4=;R1ZK_qTfqz~nwhcm=>NU8g1d<4tTEjoAMY^S-4Nc3cjpfo>_@5t## zxjgeT{%E%s{I_YLRrOR=Ou!-todwFB~I z`NzS@&@`#iLCc=zZ?@<|f%cF8Fwe>P|K@&UUP^U-DQjn5Pc^At4f}2g(ir$LlD!(f zk=S=vJ~UhQ-iEwbP}uv;X}o^ljfbFxh9Kjo3^cbu(zqcO@+rm`A@BqW0-ZjX+PLGN zoz$PbP9G@Wh!r8sbbhW+jf_FN)G4=ZJU^{KPk&2fCFXS-8p|p@-RHZ5Tcub7)b7bR z4|veezjG$jg(Xn2C(Niv|5%yOpQ_$jwlLXYVPSkgR}H?eJp$=qYnbk{E3kt3@{orv zz(kcC^Kj|&7?@0HN8jz#phNzgoAUl!tvUU_CKvSX2wyJPEHq9-HPzLQE0AaSmD0#w zbM}(S>NUNJh@hKQ%=_3olJLxfXF_FinEyt_4lW5qr zbKaxF3@zi+wU*799So+boz2cJ>dGQnxKKpzAp{9FSyWh~g+Vd2euLq-iXQG%M3*Di z4Kg8wUkK<{NFV5yx9?Nxo^1cX{Q9hj3R*EBS{Ls#vk&+ayV zCCW0}eLWhWx?hzY;sBhjcjwqTB`u%nvUD_*Y0ny3=j$Zx#eUk(2&kE^5w;6Z%v@^t zJM$}@vzlVV<9jWs^WLC^Fd}7B+5=(SPcp=56;x#9=j{~mvt{kmV-#2Wr71L)1%Z#A zsz+UfH$LXD)D6D7qY|nsSDB}vgiAv17bp>%-6!JNBd0o(Tnw2u@I3vY+3GnyG8yW} z`_|I@a9<*m-mO+mp&D2H6~$tpo4Gs6frUT<`!q6#HqXDYwT-;c>$8s9ZQD}-7(=lF znBYlzMVOG-_UGIxEL~*4dzI09P0`oyGGEk~O|jAYZ-cld$H;;;*0)mP*(B?WmbJ@o z?wL(-GhwA#Stcb9mJ15Q?b<$>SvO@rU~F~9c+I*543Kke+@h<=7_KrOFP zmls7O-7VOE&g^KM)d4pphuhxM}-gi1YkE|&KpfDUySqdIHpe6H-nr4jR$%fMH>9>=PYepAY=#n zjW@)qq1afXdHXL%SHd$sp;Ceturl%lmUoIDg2`ymz(qT&)0~)zdp+oZW?EyeomK{W z3dySFRp@Gy9mmc81%TG`X)Js0u2KKJK|ISBMylTF%c`LG4xi^F?kl9tY)}3VSoZWf zT*Xa^qWp!g3WV-j@)x<~6Q+xZXJeb12|J1+z`1S<3jgG#KpJ=ppyIs~5!xJ(4z}{Q zR&Dgtse0KZVcUpQT{g(gJ`h<7xXCS=oCV^}?_sTfWkaEZ*3WeqS)qIfu4|+@W z(_wHrxBO%mjb}*^RA9=bPc?ZwyX(^_GyL`UZ$Zv?{icU(pc3ksdjS}aEdWyoXP=9M z#RF_PLE5I8q<^n1LHdLe-0Ee*yUaP`sPo2(J;$M;U!T~1k4GDBCgA)SzaX(pEejW zs|WkMm)lgR!wr0(%{_5w0QamRMbpR~{B+#xRfE}V5yLoZw+w>7g^ll?_Il#~kG4e- zA-%l8hbsRw_D&^5WAvoFp*R{d<7NTE6TP}JkpbB|WHkc=&c2pD+v~|Z>_iCii+_SN zAWQO@YM6~4@@&6wk6lpa;&Edzxz=3SC7o2-hu%LU_!`|xk zpODLlt(CXz?g~^Z&DP$1N{EaQbOY~xGmHpI&E||25p~j!vl-L|_gM&+K;^=Qquae~ z@#XJ!RrskiJu>JSaALK{pgH*YvG;^MbNC4|_(wgu6K`-M2i)l07naxSc(nua2Ee&Y zeNfS7T@})Jrun~QWE6{ws}|;i@Iijs_N=3OEga@{Xv(6hCUDZ}21?-NRHB05PO&?f zQ#@{HG0I6;WlkBY-ZlU039uWvpw-l$;b1BSF_a&^V^Nh8Pz@iX0Yg~P&P|hq`dIS8 zBS(Y;u}=bVS81(at)tU1DM684w|+Ty2|AL25x?z@cQo70n{wNiWKngcR1p;^1bgU<2a>k<&5J+iVl3kQPm&AT0TmQPB#c?$n#G(9JitIUeIULa`;_>pg}YldUzj_Pwo;*BbCX5C%uT{38k-F>qHX z0mrSZGAM3~I_;71F{8lN70~@E{1}_JO$@Qm0FDcdWib-q9pVM`j^Io?CzA2)fbary z1^lY%s|@ZHkkUQ_De%JY*%}y9akJQm*IS9UIo5aAn*RTT-*X5gdeZ@?@zMM6)-i*U zGhM4}Q}b9jiKp@6^izvo0~8!DWtGcaCt#KI@3Z~h3~e(8uu6&T^S>Tf1OzpH(iK1pgjddI8#|qv<=#jV9$=4zfLAC z&4YT@WYASP7{%kN$;AWyT!6+bpkbC$^U`kV_Dd;Z}8@ZlBZp(xZH`Q6dFs&HHKtBU}Y|~(79aVK`d_+H`SOcuFqN@_?N%u zJt3+=GM>#Lco_#OlYp+aIV7sW{Kh#WU$b8X!2L&JmB;_)Q?1Frl%08`eM_7&o~%SDQ% zHwVzT6N1iW4D71=eF#uYK_q~}oN`wDf+Q#5Z$JC>k3@~W7=lj`XI^UrJjK@2?{-pc zS06glH8c6MmY~cSe#sdOvKBD1B=n{w5NmYqn01gH@t1)tL*FuZme=3%$yvYlk{!i0 ze~m#`&fX5VO=C()7Ov$gyoK5 zr5qytPqfg3GZZq+OKkdj&ql~XJun&nB`%mX4~iq3wxM;>cu>{7;6>Z|#V}~#aujPI zg)h~85I#!Zg^0~@1xnKsV9G_I1@3}lAzK7l_62?VrPf2llKmiM^-0R@q>MSV70jMFZ~1yAI1W6slk*R-b6k$K zD}g39Mcu2o?|ZfLMy8t$(_e90uHUsJrJv|`#Y`;5(YMsqTx?90!FZu@tg8`9^ag0% zhbzZ~7cjen1*5h4ec?rGePl#;^s@;rLwPA*UaECEiQW4aws*%cutXhUn z@+$4LBo+ka78Ll71?1|%Idrtrk}`rNqLK_&=rQ8#<%5RlA^OU4hqbNgp zlmnepoV$yDY+GgcocWx!XdLL4ylry%__mqmG1+{v#$I0$Pqk0eguVy2=}six_NO;t zp8L`9`YEto1|%d1VmyKGEw?zw9hsRqlqgPP#f>edel@$4Uf+`M2#1+O(cSxDTo#u0 zfbHm!2eT;V%(=yFtu7H!0_xbc;9hvhJ3eXwUffYJQ^D*n3DI>F3&lq>iS2TcgOj zA&=KXXqw)^+BxzbAAgh8Sj(8B)`kh=w87%p6@bY?SI0WZJm;rPMp=1I_ao2(z8uQemVn5!>B5c*;F>l9M*ZWp53Xi6bu<( z{^yL+bV8-D81=U{kMRhWJL%rPRuD-eHKek*jztW;*U>&d7={S9t5jk!*(-|EN!@D$n9xU<$71zr^xWm9n2@2R zSb8sktX^9r|Iyy>nkfFer1Q>8xzbRVYM&?vk(#nfs{B2nBPZw(Yq_aRDKoX_>?oEEj2XApQ0g}BRd=@=sWk%I$kwPU{rNEQ#)^M^Wm;LH$ zm@xJm{vL3_W^&atX51nc{`a#m66M+S2r3ijzAu%yTUL-Z<1)~~w=|Srpt_R-$39JG z5{tP8(x|9`6X5OuySn8-K)(N6G*-zF^;!*o*4u&y_w4{Td41%>MuzQnc6RFRNsLO* zhy(mP(8NV~%>cQP^bA=a@^NZa6(!mG{@v?_$wRzc46_J|Q6I8eV0YUmXpPU7+&j9G z+QKIs*8K!AvSx2~Y{g)Pf)H(d?4h|Qa`c^&NZO>2vyRXC#dwXTG}INa%B_cFmypM% zCmxF-(6GrgdKmO>X)~iPVqen4&~WPYqxh8f_40QH84rBKD<%PFqWA7m7B2 zm?x9HXM*ILuD%;yM7SK3snS%?t#u_)vvN3k1=+vUW^$q8>oPw)s~i_uBU>)&rU5WUUzC0m*`;AQscOZ=4vqg_CmpD05! z^l|t&Lu3RIA9`2>d7Qh;SAN&FoH%4~6TdTuAc2b7+0_-qxNU-F2&>Vubh|y9q?Am6vT}%6#IpnXbB$;pZ?)8$P zANOUt3+#?%0WrWo6#L6J0t}BY5G>_JengQ11g%j!9lUl^r^(C}YOq#lC}tqvO^PBGLHXR;L9F z?uH{9-oBy0*1rx{awk1fIrI?6KIAd9LxlSD=JU6z8NLLhCy*w_%sUHNn^~UKNZ^E#yZQ9D) zN>67DD^j=4GoV95(6#{TWiaKL+vXtO6cwYu7#g_EDBSD+}OJ)(YHXp(EFYY#IeB4Ifa3nKM`M|{PYE}nkXl=`7 znV`!CiW}H4M2K48OuFrRR@b)BPT7No87Mf-xLWHU`hMKi95pOQDoNlKrg&3x6NE(> zr?GBJ4)J|AA>fg9^lSOjX7f6Qv;MtKakF$cK5TjyNPS~f&WS?W%#*-1|LT(?br zWV3<2A+9i(ji4?&ZSxU14z0O5p`jXnRj1YTXttJa|A-e>aB#N8J>`)*ZIB__DaQxN zM3etsvbV4%q}LqZP`PbE<#8-SIu>1x z6#HBs@~uAmYgN7%V8f_BlW@jCVhTIBxR~DSIxj+>E47uy6*w|m^|>A&vc;{5?|#=O zvtpZ5rbPm6tLAA55);LtF7|zLNc~8Di3E=n5#(hHfpZcY`aLg-Sn+m zfhEy;7=%$4qd_vYNZwb=k^K8lAEJo%~n45h$AS! z#5dlWAq2`Hr7{=URr7)B{Xn&WkFW!Dv0(~|=g3GLN#!lgPoGlFp#?eD9GWnTRuFrH z1SwmC_6$9#|5H?R9&fTVA*AJa?bX2VH)>W|r%GLWpEm9NRES zKjVvOvQ_%Axb=Fum*J(p@e`xlw>?eHuF>Kt;0s1;c3JwnJEbqZ$7)vbwwd{B@P6xD z4=h|KI`T6lKL8t>YB}WbR>zxx5WIap(og#BNPZ06tw{1QWrGE!B3!*{TwEdw7_E0) zc?ojp{p`kCJTWUgI@jfMZ*q}m8Y$%CNaAk?Lm2z@Zj@(Li~`PUzlYx@w-exPLLiSz zlG+w)f+>1x@0QBqx_h<4WKpSKS0`rJc$@QoCu_vkE1f*3-}wQ|NiT$b1x-0VnQ|-j z(RUHtmL>A1X~n+N>2pPV9pcA-AVZKVZK}9?6p&=yVmT{6XXlw$+fwREcMDFsSdLHQ zsfW;QUILvQxw&x#4gyQP9f@c^wD`MsxyP-4={F?|>g?Z5{&)*4l|Hs`R?}g(=Bs8j zA9Yf!!*c##G|~=I5?6r~@9UhlVs5;a{^5bG>zz_D_tS#n<4Y<&e*O)sAQ^3hsUgj1 zx?$Xaxx(Tet`buty)P|q*JtFiz7(YL^E`IgtKFNbZZVksgwrwG45goi9Si$hG=-Uy zT)81Y)MBQKHH#v@pRK;nX&*c2KSGKRXJ2P(l6U2%3&Nh0O{Q@<%#b+U(jHTtKky!s zbUXkC5KmQhr^?%!%Kij$K>DtJ=+>&7q<6O1&Jv`5&g1N1;hREm_4M>~a&j^;VWjrW zMSI_Lrt#cG`F98vUn{`T5<&E~zlu8KlmZFPZK_^{;wI%)S84rK?Nq@^{mCEGo%PYA zkKWcqYi-7E#ThDh5J}fHRJLW*Y_~1Qp8JxNC5G?A~IF55U0fIw8%RjfWCO zkO;Y*0t5{sNJ8-0WPT(uPlAP|awx8i%!E%(``4*a67htU$i!=g;)kR|`nS1IyC2~q zS0n0$83j7%T)!aWQs%-Bf%X2?VL0bqVV-}hV` z>F{JotQ0BTvhp2T46cn?01QZ&aO@!oN)5nIIs6y$Qr$gd_8Vw7ax1k}6r0i3tIERQ z^<+5eE*jks%nu(fI=s!ZW%c@MqB&lT(K0kTXnaKR@0tv?qnpE zcYX9G%$CKT!8_pG-(p6@eAd|0stR+?ZpNA5B4y&T#0Px$Diie}0^|c&BJq9SP5Tm* zm6YlpIVDn5D<*9Td7Oos&6~}oc`C6p5$mF+ySZd&IQwGHty($u32(YTOc0gTY3AR* za9%;E%WuYrW*c@t*ol&&dOrQdZ{P(^>-D#t=S{XqW&CCjzNgn*#QIdwUYyaixY_2t zzZ#3I{%uz{R>nu(TZ;B1?PK@`Wk&raO=M#hMabL_%8Cbl33tKPog(JKOWoaNoWSI7 z_UK|~$f~B(;ZyXi7oLHr4+xOPHFM|O{&tALM*L!1>UZ@~Avq1eQ*_;3bM&CuD=moi zvHtm(wN1zO?S$F4@z0#*DCxexd28!!vZSAv;cyve#(lCc>ZW-9tXJzg{=oNc_|-{9 z2N#-QG}Q+*K1iS2^zkJ4{sr8$a*gxM?R>}_r;T&D)I|F`eTcY0>`piE;r+Srw%PLv zTs5u7;VyYQKzjS(ZTM3is5{k8Z0G)kO0=JcX331+q*Yt!bm4Fq_dq`#!jx*uG1ahv zht*wWF!Iv7lwF}z1TCHtPYwoxF4x?3@pEx>MEhUc;hpKQTVpCUQ$JG(nTSKV$7Y&K zFH=W%cXzpQ7kHchU~t4-CtHgZL|@II_=y>Z1r2$f`4&80HUA*A5xOOxta0Ef|5Dh|v({HYPgBOq|N}W_45Z_r3|IT)zNRL#^*n9XP}m<==#lUidPG9*+B2^2m6!C9RCLK| zW8SNN-^F&Q=8!mj^->l>hK+0pfy@YiE9H*Y`__M73<@87fBonONmEgcM{HPwi;vay zR`|=^$(KlFv`CyBUdN75?dEV*m957R`QK+fUAvqN%W^HPt+W7KgS*Oq`6qjWS~$6u z+uuX2-bvou-ji8RO_p+*Xv#f@F`ju$7M(pi|I6`fpyFM}Y4%P|fCx*-DHb*X2o@lP zpmev^W}4^cVH23WZ;7v^z(o4EQXIcMA^bZdxRT6di7CgwmE32`!qdJEfaPTGbqade zj=tQBYZO#$0N#B~2nh)t#@TD$&u2S5V(X>0fvBkE zJ8#w<8mXdA4t{AzkUy58*m(apMqzWmTTrLeT&UdXfo}|ogBdZ=Z-*Gz3#H(emp6To zxbMcN6IvvY!YA{}uza_LY*@a}!ugTGR}O>dk?(7!#Ko7bEK9-Ljv0`nw_8eCUbB|i zv9c!P@nAky0mC~LNj{ybjqvFfLslHD$08(sI{*G0TPnyk>g}Feal5XFEemmm1L!|` zWh0<3+>eSMzx?>PZI90Q_zpiARgJ`>JZTp2Rn#$eA*nT<3xcN)z{ElJ-cr%?hCh9; zDk!ZB;eGXM`jXkST!JV0EWcX-oOErJ6E+jxK{)2 z5LLRHPbVt{JLhWNbl%HbZ2~};^2Wllf;w!7mq&`3sfQ9_7@zWqdctodb0b#$t1!XA zrDHvx)3=u0>^T2{Aof65xCKSl@L<^pGIWAq$4mOG z8UixfKsyR<0Ra~j&S$&fvHJ%5ED`w?^RcU}Hu!e1lM?QXs-QGh?dzAPQiG_IVmlfb zwcBX&ISuD9L5q}oZF+}Z=TF?Gr@S^@v>+6Qv7`*Jz>P>GEIkCNCfE#dsV zaiPQoCDcdiBv?Lmk{=kzytib9W|QmC&DA4J~j>-{UXQeyj+7;--k0%Ny)ApG_-xbAoE#s!?3Y5%p6n(+hyyQcftR zlyF>2K-jUb-Ij-gF-x&8eo-cf=WwH5dGnPKA|NXoHQY;q+Qj7 z@^>?()DuU`KCo*cdtwc2z2=r<%IS`4c@@_4{ZWtHHU0K#?{aWVZYrfQ+f}dJJw}p{ zR6cNREx2|UN(PCEF~GDVF$;}un^Sf9=M@D&xMLp&yu-CDWh|##hwOgvQ}D&P7MZ-- z!ue6(RGhkv>b}YT3}SG{W}UD`!y^!s`s0wB5fwhhXGQN@mHeZqUGWVz>rW{w+!2JB zWWC_LR&^s>WeVI8-my@SL*6%#4Q^&7(V5M!<4h0V%V}%)CR#MXI2;YJT?_ps=wQ?o zk67Es8oEugTk=rwVdO6Py1W+gIvT$D*!cs*fDL)c9kazXY_YllbdzdDnP16nQ}pv(an2YR;p9?F7uv{h%>wwClfh+`{1-P z3+!e<2eXmS!l`p7r*tW9jm3B02>f(QVim!BBLOEU;4rUFM#k!BTJmIKtpFvtP9+85 zovO-#5wLqj-&zodxJ~9Y_Z=c)x3P^W>n!**3`D1xcY)vr(XSV1b<%)b(#q^?#-4%* zK)E`DGlPkSoJOA_#zEg}KVH%8q2wd($=7S*-L*9Z$FTvEiI2}VGPoq+3fZuVOosxE?S`GpLo4J*7rhG*lh?`O9vY4Q20O~(;g4plRajvo zj>$8KpO7rn@i((c?7S(#*Wndtj4}d_%|VN3N_lW_R?<7(NTKGg8s1+Au!L!t7}WYG z`q;7B6;ofKODwU31O%mh5&Dv>7%8_vUve5+`T`;WjIbI+ZGf3%Bqg0qj`=QTc-g&x zIg)_{2wDJU6cHB^JCWH{ha=oDBX>^pKzqFtCNj&PrhfhX1)4e5?w>VADg=fniZ{)8G#I0DaPP!L>$;*7!=p$%fPfy{#zY>1D~Fx6(j%ND zgimc}SQS21>QP_#Z9zCniw5hsVq7~htaPwFQ^Z=;l7f#+r3Y>?Nhxoc$!pE0OD`wj zV5x|L2oT|rzX`Yp#js{RTIyRj-7N-&nbF23D}YLG*rmUym@r~Q>X;@HtVz^u=CuyX z)h=jIfW~2Rp7ONzf{<=}(U)>B&5~GGd&diOv3?*v7heWH>7$`hJJ-tr@B1jJ%__`kSp1i@G z;d=1LwBkbV+D;=8f$^b-!uIO>BV#b_gzmg#j;gLyRvzmD$^HDrvE)G&_hqjuM%pH$fu^vcoS>>04Msye=Td-HN716G8rEpq2 z9z!HLy=O3{C52}qIg{(_@L+a=#l!lc1KS+bfx(=A6XDO2 zc4;E(=!j8t>^#qqhVqd!TC%gjvAsVmzaMpR1pGI}5R`>2ubk=a9@Xue#F0R9lPTU? zZxnbzTlf(FDKsG;!jZYxZ25^fTrwghLi3Z^ z^x_Y9f@pVppFO?ZTgU^*UoqVY+_7V4gg@z~bJc37jdwd#h1L~`mWx7fbF=f~IfFb1 zH?8h7QM-Rc{BG!s?{-XJ)K+XB6zptk@H><_0lT{QPrXDc@d$Ulblp>8C+r&W9o6Td zsgA$+hHJim|897so^^qj*!@+Dgdc1l%vS}56`11L0gL=?vhNI`CHry|DF|GL-n>~3 zSnKW0)Du6MNo|i0Z>gg^Q7t!2mf>RqznKUDtbk}>TLAZymzSUSgyo+stfK#pZ7sMV z5=PFJ1+W;o-npiH;k%KDGBe6WTLguq$4*+#`USyOnt>MP{Pn39NYgM}!qFGjtRjFY zP-(`Hy7$BhqXD-b6`B742UAt8Jh<1lq`zQZimI-2TI4wHQ?PQDtwH>Di*1ZwjT6-S zQSu0PrZ9d_K2NEmfoUE|*gW^e6kvQQ=0e6dH6>?v{b?lcokU6yvuT`Pn7n46CuK-; z*;Q}i{E=y9flIc8kINEqeg$xymzPCS{K!&I=fNh{p(dtHhJTyqXP|kxW!ZIQ4p_jC zxPrZRouYTI2K4?2i}e!&r?MvpnTVw%3LA3rtHlqVa5#JGfD7zgx*+0*Sk<_$_pMFx za;Nl`uv#q}hlWj|%3lV^Ps~q?#Ga%7jL_oq_JW7nAmwtv(z?8J3^2&_*2J1 zm+FvsfR6Pk3WqcO-eBWVv~Vbsdb3&}Vd+=C-FuQRJo%^QBwK&e!9HRH!^e=UFf35` z1ii>tIjM-R+Bx{)Q>^iVSFz8@K^T-U zGRVTAgz{wFXlqlX&#)US2^cOgR>#VDWB|>M6a?VNbB6E?3+E(bv1(yLVNR#jZ$Sre zcsSxZ%^QSsmrdkFR_LV|&Nf_U5fl_eo>U-ntcDK%2zJ+kyR(Bt2+0y&Ll0k_xgL+n z*-1U!MS@f-9tH~*$H-4?aLYav70p_ypz5Y;Da_H*XE@qWCs(tz144po>cx=GH!6vK zE@#{i`l>FbxPue)8Q|;hKR}ZbUxOc1tV$jl=C0K zftA5*n0dbfP}#l~V>VrdXNl%bAG_$(>CDYcl*+etJ7fGNRcKF`4PldxClkTPV9`be zLPGA$(kx}HB=5Z%O}tZM-haW{8Fo|jo5-v(mUwRVT`T4* z0(WV`$ercPZaD1TQQF;2%2Rx0n__m}SC@aOSD~WXe!5vI6 z#*jU#FSch)sHvdenp>A`3E72SJ~m|u1}rw|={NM(6opyFOSdqsxAJ1+^7!EBdOT?H zvh8QyIVH?>5^tH(YhlGY$nd=%gK!!H@Whc#?f?@-;a)Yp*qic5oZQZ z+}<>E-CV$?6^oUS6?a-}?JI_Q<(+X{feH)X^@>nI=I8ZN-LO%Xbyjr)GlnpBd`t`^X6VYzRD^shL??yeB;<;`(w=Q&W?C3Uco1ueTe3_SR&J zB82T?3MtQ0>OG~fn;NZovw#`+HL9{?%?DkfbUCi_r(|MKML8-Ox?@Fr?8i3lhta=vwo%tsvEJLeATLsen(m-F+@F65cH9-S)3Gg{9S{OUQcfv#NpXq34|_#3Y*_nA(7|V?XvnWKRHfs-;>IAOzgS8dd?gm8 zPO?l&oQ;5Y%_<&H`(_0J_?Pa2kmhqQo6Hd(B5l84mRWYq)%B)o89Nf?=+f{p)6}+C z=yT1SxzO0nyInq2eqk2F6EU@=Ac_BCQ=~d#N#A?$fYv|%1M}0dibg2)q|A7XHUr_e z1(HKfZ_{N<`l=%B=JN7#hH7Ga%9=YU-5-s}Kx?GtvvII|ZN!tF34YT4`u-h!_C-O5 zJWlC4(WT?86MSWk5@K<3;?yms={8tE0^pV3GSlLE#Z6yIz1CLx1Km!t#Tl{{JG^=> zzODE|e5u(y>4i5v+$~}9HV%Uu;BcP2JNdzS{5Efqh=3Y2MSQL?tOR~W^+db5;?jt~ zFh}Bc@(U|;dbz~2>_`ePR<#syt8O~p{T1cD&&Bjg`x|bzX?}+e@>KA()#)j#pse|w zzWS8F3SQi*&MSUnK2;MH{1^gh3xI@t?Ga|v$uE3f+>D!}NjUzhcvSPjhS85@Y*A~* zzCFwX;oWCgI%$^wB}ZQpys40o?yX^Hkd-3+Pxnxk-f2^#ff6uq!D) zA8B3QwpXc@mpiyd`2DdIo)EGbSt~M3*=s!Ssh6LouUiR z0_l|f+=<&@HOHN3E0Bcl+XSL=fzL{~i~SQLkI8G*p+}>)D$#F5es9 z#+Q2V-2EWTd|b0|u&C(Lm8*s&FMJ0=^m#hk*`T&CA;KVXwoS?sjA93p{O)2Z3rFd*aEuUWb?uMm`Oq6}fhri?6@Nz$5o+huSvYy*(&3 zx9v#nW9d||;@TfccHI}WSqAzlk9qj;?J?_B%DMW%GJlL7!#tMD?J|r9U*62qa#?hm zx|R({SqxxRvOi_sLX};?{dJp&!y3H;?jLMj4^?x85bw5PuSV8kz!gc2LFlLD8I-L0 z2;gF~J;;LgWLnLGd;vDH8y$5k45eIH_!(Z)Z*W1NYXby)l?q69t zwT0%gykX2C%DMv%;?t5LyC@$0(89B;6;Tq_OHVlWAB>eh#rew}aIB#u2>&?-(!J}e zYwB+^vC|LD{$;f6g-e{FAt4UrVWdhF8;yUKD!XK?c0Ck#xnPtm06IH@SSbl*Guztr zhu*XFxLwqDRM4XPuv%?hk#|;e?Hh>d+7M16XP}M0x-U#7JGPe&I*hWyBAENX)VPLPL0c880t&o*n+?; z7%6%01)E<(Vz`O~W>Zg(Q~v^icN;8(=2%5RL*@25VFkwz7&+tUc~ecTIe-N0E`wVy zWgSf(qxBJZ&?Ct3yC^tbDx`53;vuiBSTYqu;i;7buC;K^DnEoy@V_enN1ZJlV7 zW(yT=`gW2X+L)CLL5o#wzH|4tR~dkIbHC_~2aM-caD4@grVvuLgNvbGM-0 z>fz;AFTM?=$FXm_E>$T@H3K-EppN!&HXN;>jJ>J}FWEW0-N)yfPE04;wHf7|XZlRF z1`^600WPB|{2f{~Pe?~23|c$X40)c_$InsPy1c&61ik6*y83DkbM8>3x>2w&6%j8& zV)7d(5MP`LJY@|1B@wa6bi~%QG)$j#v@!z?GMIgQ)wVzs#Y4DJ)$|$z#$FpDW!Wd@ zY9P!2j`r2Qz}7%F)tkHT_O}Kg7L)hb0OI`YaZP%;vBlLxa{Z9(A8)dS2u{%k*Lvjo z)j_`lE;)n?A6wS?)PU{oQLJHeo)+t|uF8Hy8IZI)>sWQ~Fz67}t1UWjfUipdEXcQS zw6nVER$2%(J+HxXm&Tt1gLH7(0rFULgSigfp3kUl_SDo)Qt8O=Is86@`@!n9WAu<0 zJ<<0So#3a-$0TJBEN)UDGk3Bk^WD^upC@*}@ukG$$9k&)WfCx})=y0N=XK6U60zoB z3v&#!f!6t;))>F_K#S4BZ-kbV(X3!Vk%6|8AH5^1= z)T+cRagwn2x)kF2^saRDy9$@_Js<<%dry)``)Hm%ed_%3{^CUoFH#9}Y3yX-HxR1i zDZ0|vPsISi#F7%}?3(NP7&~n6Re#18hQ#EEjze${?%IOb3O)W_Bm$@-uk)$!J#fRe zh8V;GlK3VJ#J}nXZ*u%oEBcE~w-%`~tvX5%b(_pmQufi4R}=^R1-RU3NKYbBK$$87 zSL<3F@Oa#}P^yje+TSsZEX*OtD(GRg68uD^qt0sd4(Kef`q|G(jIM4oTwTI8!3HKQ?b#7MtRX^14BP z>gIAnZ&_gAiu!)W)x+>W<4+_awi^mla$U9dlhnvjgAx`ndx`RqPA+Rq!G9V~7tuJz z-wgm)Ww3X=^82v+Yf7kP(*(cWOk+IEZkyq#0}TcbPdp8^)OFhh+CWA<}9$L*;;cfb3r>mx7MKb&V@fo*c!WMH_z zAL;4nSWE?mx;jm}bKk%iIaGRP`V%a$ocg9Q{SAoc6_V>xbW~muemz~p7oIsuPR`c> z_PqVb9K#=jiz$hWnTTcU=V!oX#H7b@+`VhY_iZ3L-EXRNI%TE?s>O&TW{p7tn%nVa z95wY9KA>`@B_wCTQjeMzul3cT>W=h{f+zJVxA5h9<&2YMcNSJP534wxpYSFF({^5e z*h1fE%q!l9_%Www*NuslY~Qb!l~9N*@duB0?KmnXKKqgET_%0-Ox!JTd1A{1eCbM% zeRW5$m)$2C&Mv~NW!dl6z4E@r{nnUn`LX5YbU+QR1Y)KJRxDApD9W-ogcmNYlVe|w z^Vf}&JS=|>K5Z)+h38wb4-cSg^=-!QP*GUbU7l3*p|pHS_6u$bx0#!~ukg{eBx`lbexAM2wTr|ni*brV=O7ho<_YSc5Hbgaqg z4Ekr#{btP-_&OYQI~QB8;SFM+)$W;pk3IK`F`ZgeI1!y_;3!|el^5XrVW&pUDL1*^ z#Xi5}gMA^-xM@C=vcYZfPkhzLT1ZGpR4l^012niPrmqs>+Xu13KC&|B)XZwTzaSfA zHR{GjI~(4DCmvq*^_%7SV6>|l40qSQk^nV!^E_N!evmDV2R8O*QLT(A*Nd(rLN;MPsJcd``t$Gl8S-G>~GE8NOs;}b=rd) zOKR3{ZP2UUv!&gAP~-e_Z2e(EgE_*qT^$TT?tO;AUbmhDq{X!q@d7QnBVG znl~MRah0RtB_H-ObKo3P6>a9|dLJjh3Z?uaGja?BB2c3AMEXS}5U8O1{BLF&$qyZ+ zyOKl&L36>HdnZ-Oj*k~Q(G+w|Gz~#3us=q18o*Or9xsY$7~~}d!$Uk5$ZbMLGcvP| zmeb3JxlAASVD3+5X z1*#R>wzAMsjjiCzdck4UDBOW|wXG0k*^$n^!qP^=@ z2wPjj-y`Inj$%Ub(SWdibx6g7g0Z;r4Hlj`xdbKE{Iu9deAT9-`c#{jt{Cn-X73A3 zlA|Q4^sl)6ZR_XM*{bQ74!f!&qY?|%tQ9wKb5C(B@QQ64u^)$hG-EV(OP~UYde}2v4Mba)+6tZ&;t>)T@p7qs{%4Q&`9Pn5XE-G~2H= zBe%%-ahDgog0AmQyKuV4;AZ-fM?jL?6l7x6VG(-B_WN6;;=)_~J}ZwESh;Pt7SVH% zLr&2FB!sb}raUAli+rAWhm36b{uz@mih2CwQ4CcXZ;rhkEBB}3B5c>Cr8)T*m9`TD zm=mopaC@cCK_*;n?l7@fd}4OqH#!P=@+$Ae9n0R2Jum%YX3$2${QP%@NB>`-FCFG5 z;&e1FeD%+x2fhde2*t-JE@h?p#FV29xrz3eZZ+u1wNuHQ<}K|>!mnnpqJ)wFw~6Fl zZu>u1I^iIYjW0@w3>)Ed!b$ps;1x07W$7|zG1AlJCvd#gZ4=vxPj|fQg{mz;mdk0T zB6sN=*J+hRiG3ieEu4+J;Go+X*{I>o3J}i-vxW|FxsjlOK z?fVNOulQ}LMZK=&55;GCb2$CjfLCV+Bp9e80W{@ggsr09>1Cu= zqmAiu$}JOzfUfPTB}&|~K%VINuGbVf@mjAQ!*8~bi4ITv(W_d0J^G#t5mZciiVW$k9Pt9eyWVgT3`2 zu#DvSdFd;Fg-j%h%g0RVxor{#z>%0|o99#ZG9cafK9jniu$c)&1tiDz?lFdAveMrR(q$Mu!#a(* zI(d67F%P3Xf8#eIuGr^u9c%|~xa~oRq1@&*n3w$X*SX6k6ZecaL6Xp5FbNE&0YwTQ z@a~i_`Y%wPYw6scA(k7&5VN2?NYE#sCpkS1&|jkOS*xMJio!6o^6|{5yI^YK%Aw!$ z8urR~1W04sTX{R^a5;g6tV2u0t*J%7e#k2*sHlR}TslZ+RdSk00k8}@j^PLJoq>1i zaPwe;=k}?isO-*7c?P0%oO!`FO@h@4*}GDu4DzHAT#LoAufXn%t}Yhp5yPbyvam-Y z@Lun^XeKkD&aUq?0l>Gzz#nDlI%fD0c>62-5QxDr?7ZS^PItmaqZTfN|K+0k+k+Ck8T9 zK3Rm8TQERE%3d0QcQuqHzN=qQP!KQouRmIkZiC~BXdAQ`+uPIk@*tceFU!`yu(qK- zXzY~_430oCoKW%DI+cV>N<%1mVjG#S40>1gUO|r78ZCX?GZba7CAo;-61oaGz5~$}N}fB|c*H1bl0OefaKmFdp;( ziJeQ zDYd|G9(i_XWj3udm~JWb7HzJ?Jso9vEL=6|AaMa4hR=jaANX>|2##MYeSgovrpz8M z=cIW!G4W_$78c#u@-at!aw+>`Po;PLj%DiaM@(+-$XzCT#!9XF4UTx+?pt`}M}ovd zV?JF&Quv-eK#|}O$jS#>Z|Et|dl?r&!QV5^zmJ$5BR;~~rpn@BVA!?5#Q(;pcWtbyAr`w`={5iW9rvMNgA>mT=bs)s>UBjI1g;3m~}K6GcZWHwVa@X zz^XD`K{zMppbKRv--*eCR|H8LfJ{%93}&qjB%u=9s&3K_-JRRLjibi6T;b!mDL&5h z;)Rk3;RLjhbZ62dGm&I)!bTr;ribokW{YhMQFOY&PiOy#Q8mf}T#C;DxHM_1R^Lg% z+`ejQaV1lvUFo>u!np849AH$r-g7jiZ)(*WHQmN(8b=_21MQ z`fqBD7N8l>#!($hF7QXq&>3o;W^DhIXtg)Qvw(#jvAu zmI}}NKO?kWK7v8S1`Lo7uj`cqWUj)m{`6^^(G#L@L}mfING~J)~}L6&ze&*5FA*=e2+{7-WiPL zgFIX&b4Pj}5AonBTjB)rR=*a>*?xm7YhTC5GSFZp664fr9^mJZv8Aey1RnU3UiRfb z0`WUnawi~!C8+ly&j+X^gL=x1cihUlypcVFkK8nx;ug4|DaYs9X+9$kY!XdmKdGh% zG<20tCNRZ8U)W@BQg($)zR}W-m$YU&lK#5IPPx=J2mXp;Om9x%gJ6EIaL$jq!M$65|pm-6STt zpB0vJFWJc5M@=}D@Qz`YWEoTU<}_{SovOOVo17N>IwH7$1&G;Nw3|5_@eeZmA`nsRmITW&t#${mJ z^zxkfj&&=v%V3PmH(jGW_Dm_tuTlEmaRVaO;pxY8c?bm%l|OUSmvzSQlJNe?5zfe~ zQS69`u+aF-)yUozyrFY2M63RC@klx^YSz-QA}b(508#u6{+{Oa_LILTm-<=_{cuz% z+u*>!RWb#snQ!2}bLg)EiOkbg;SSuR!c@OJ>GeTN11+@>5G~oj=RcqVgVxI&RJOF& z)isb9c8u@15aTi@=$_sJta2?f=Hjfj@^T07m=MN5$KQghY z&9mG$|jLiL}BY6V-P$5TxM0;O8{`0y%fM@;Z&s8!8a zIbjnF3UGT!0NSmYsI(jL<*9CvA1k5nv@0R*rUy(xo)za!$^V2wLrKh|#`&kE&G?+u_!2lMoj zoBk}Z7XuH1DvDh~{kqf#;GB=~TL{Ep#%g7cvQEm1jDfS{M<_IRH`Nl@AYF$_&8Gq7 zjIJoXe-k%{)#s~1OY}iIuT@DBdhnmX$(*zD z*K>Eif!4~~v7HWCU;a{VjH$NMLf_6FUt!97*maX|@b=A|Nu(dBFPI`}YdAUFj4jbA zvmONSt;_=SkJ0Gwgsu;+?bmEncc53k$_BD1XbDe#-~6{o(5vbU+=~D@;)2K?kZUNG2-($78Zv_;D4#UNXJ9LB$U%g<=Oz<(h=xq6w;b+A^ya*}Pyfh^qb;XB1W?EGi->QwRQ z)Ow-wu1-fHGT&kJ7jNe+rHgkw~51>bKHaNPvaGe~F` zp`^LxTn6z>k>J-+2F{Suq=_O#H+XBpBV&m;Gy=d>P~!0 z8d|Whg+?@>cnNP&D0DA|^W8YVGtV3ILvQ+7W7i5d4y1*%7+?Xu><&PJQAJfuICcQ% zg#nN66f9?KehC~1Ak|QXbttn|gwXjU`{DKZV;|U#yyPC_e?4)7kcA zy|?TqlvoM!iq_u_5>{CkrJPJeC{xD|yxnGvWliwTm<06uC8nLz#cY3q6323(62zy7Q^G z9yd@2)Qe0{2RWUt!NnKIUAajaVpT?VGNHX8;>@?EH-=q)7U#$cPkWd&tvA}2Jvy4| zi#30s*A2ydOYJrtX@JcKXy#{X|4TF1qRC_BI zz%xcylwD3@X%9z!4)w$sRJHHt;OJp}1qL@O^&t4~+dp68MKnLYdkIU_gdg6WZ2W82 zfcQlD!7ugUC83K$ohK%p&&a1kQaB*so2jXSqnJXnT#bQb-YY)lWoMU!{hD*$;(P00 z=7y72{EgUd7y%>5kUV!WL%llx5Y#We#zyDpz{tO#fzN0#&#f{W2hfw-X>~m|B+66evAd^!5^QW-&!9lv)Qok90p##-&!Qg zvcLkqZ``$5f)o>Q!ui@sf5c&|{egZ#RMPd#(l7#4Nq(}GmuJ4W=Gj?^RNH*5E|GmZ zRt`_hK&R`GQAj(@cv_KW)lp}XqdV5K+0b2brcY?Bof zM)x1V9MQXo?5*$??vwYAzx#tIm}m6=70jzj|F>X{oRt^;TdX8|g+U0j&_I1wkwqcN58a(q3^WKR4P)(qhq}gZMnF@QA9R^J+z5 zJgOn`Nu@g(4`B#Ezm4~*Tr>S&d34l(o3^aR%PwUKuXR`wb?k86{XEO}^sA>^GM+l` z3Utkr|MC$SB{er|7q5mAsNT|f3ITTNbl`!*9)K(vks0whzXPwp174vP1F`Dm%88FX z2mk-EkKz%UUvfuncX;fK|n1$|*2{T0s7h7*PJW)0a4)W^QPjn2n0BkeFc-@1Qz zNZP+V+1l{XX?A+7UZiAS6k6wl>*&*TqntCa2+A zq3!StjYu(%0+x;;BO_xdSC^GOqa&6N`d4RsP-;E6DD zkZZx0oCAvZPVYp6k_5*HV8sW$XA1u}`RF+Q5BV5;S}Rg^O?8P>-zH8d=Ed9!7f|)Z zHC!7$snRqA^c~L)_(u?EpaDb1XXxG!DwfjuNpO>XN2HA#!o{}3APhi7cLMmf?bi=n z0oYn3)aihT0l${6hslf6Ytbw#6>k89t9k@x=Ldi&Z`0X@jJcGL7g7>kewjkyV-GTz zQ}t@%sBDMsM$XSE&^p@Qg_l%Sq9mJX3vjlSteJF(^FheVmwJoFMz0fW&;yLAlGK;xB?cZ#V<^s!bD_aXtd63UpR4~2|l1W^ym|>U^#Z;A3rY%Fm zR9&3_Er`7Tmv{{G{7XDk!u}y1qvPYBu37fX4NvOc8@y2MA1_w6rKxBu>V*5Et)~!h zSa>!B%XDV?;*@~x-Me?^p&x<$a0!$V$M6~R0wS24kl@HicAb>g#>Jfb{-DCpDzq&^ zqb(aYdYzKu{TZUTo}Lvlu}ot-CTqveEX=%n63fWFR{oxUsg(wh5M0B?8cw`PC_H;gT=wcsc z_QYX&tgb+#&jD8|=m*l*@Q{ZA9AgyV7&D2<;4Wb=etnf^_p(~4 zhJi-Wj53u)&@bjeYH?xnP<$j;+vql*V(l)+GR?)nR2f$lWX2msnw)0AXxekt9%K${ z&*D#$W&tZq@EUAuI}7SYWws#(z~&0Nj{vi^2q;Fk8Q=l4KMnRK%V?aXxVfAVZ>svm ziYZ3H#uSNRg><<`DBYu?tRbBom?QbL;_RURz}{<0(;4CUt1rYy+l5_jj)Z00k;v`C ziqbmkBg4*8l~SLUmk~?+>*cK{Y#{Fy^2Uy)3$Gmy4)R?Vc<^8Z$jT9p=4?u@`>&u& zm$gQBMi({Vb^AP5SYLxI^p)WTTeXeJH*WGJwa2PL6;*f@yTro@1F!u87G0slj#8(Z zV795Y=|XF-^UA`53E(!z7l>-tbyClfwtO!15!rYKrka4=jra`5lix8pJ1JSycIT&v zfWWt^VG&W$6(b5?cEF=3t^)nTBs@ES9Kn#6~B${{n8L|4K&* zK)CONH~&Et#H~X`94W23Ux$9nq#-?75t%ny`^p~V20BLcXQ&z&kS?o&;k*ro^MB+0 z+P%Mczlnc@>dRq-pWjbFsXU|PvM{6NhKn?Q7SVnw*u?T`tsJMgW6&iBq#CKO6IFcM zw4%(ROKSQLMD-{r+HK2h0*NS!ifQ`dUzF8)t3VO)QvI@*0MwC~RU zwB_JVKrH}k3alplW{U7La!IiUbWM;wbpAH|{S($7FE~Xeoj>1_I^Y=e3oludp@|9w zNDBfnV|Y((`OLpl_Nfei zcJ*()p1H*By64mA+cI7Gm|H~mD)_CQmIg}`RZYMKy3aNkcBEQ~>FtnhT|+!5{)q{b zx>AfMnFV&C02_(iq~HLVQ(f>3B)z<7bYVv9Aq}-MUbJ+xQK{)XYDO;k9B5|L6i{wAuCcDR_R0U zLs@L^?OnUxLMH1-S={P^M}pE!uLt(=Nls8TL_iLZHiXBK}GFQ2uO-MSX2%9a>{&n&F88hXk5_^ECSetX>HKW(fK4H9f535#PQIh7T)R8V zHZhJ`$$F8=t|qS48k2-{8#kn~GJd@--}O@(deLtZpVdALh3eNWT9ZI_+dCQ};R%|l z!16}hbwyqL<@R@RT3hEZ<}Oh3k`dpgG@-LE@r4haV=ffC@B zE{})2sTFk`w=4n7jo9Xd+~y~Pab7#T;(Lpzg#X%6H?u8#@%N+lD~$Sn>Huqwi?xz# zLU3wbzw4y6Q+H>mCKQk}h&me?xEaL4**S`udhae!=3fB!%qmD&P(uxG#&dgT`oEzI zuwi;x(`(4so-gT=nnMcVHe+xHb!mV^1>+1beNX;YrhHu5NJ?VlxA{je@1zNm^)5jj z>B4vT>-sg6%{wev;m)_8m$d!~l69?F+$%8-LdT3gLS|Rb*};3fhY$F=YD=c`(||55 z2JKh2EP0to$=7P3Uk}vs$;9=mk4Lh^5J-P@`zXU@iHaFUXUdHIb-QMsRnSQ11&@2M zw^sc@Ra+oeF-^B6*#Pi+tfhHA{6i+i*F$X!B=b!pNRJ9Q;IV#o`JrNh;$%(+ls$-c3l>ZxiYJM<92C_o+<9|Gv{2?P7^u4F#sI}459Dn zNH)*SK18*@bLz`p-`*~|Csb#N&7$}3w>Ao=r^fndS*YEN3>`UwAI<1ezK2fySeGVk z2pOAsOop)$S>^OCfX_fZ2J!?)Q3N3NLXNlqj*uzu*0L2H~&r2^T@}6=7pvd{7Mlo3bFHppd5P{;-?5z`_iUs#C z);0ajpQ8sdqcvEh`ElHRE#X&qc8EXjD!iBQ#{Dm1Bn8n4nD2ng;j8&OW+dCt-7Mk2 zO|_fZz+TZ&o#!`uOwIZ*&qR>U zCnh6GtMYJr@D@^hAnuWuD1MeO8$K@_F)LT8t)|8)Y%%ijvC=PQy?>FP2q}5WTdSIW z%;!+c-mMbF*H*}9_psbgThz3;wpu?j`+`+q4^gA)0}%xeGUQjY9$GLmehhhSAenko zuU5q3orITTr1Db(4V=YHYX)^yPFeRaGOaeXIiy%P_fm_W=^Y*%H?1B8u+4SL zm}3Ug@Of-(kXD+4!AIOZ0yruNgyI|k%^La6cNp9O)24gFr7t<|oxKiPb}U5Q)S4v7 zp+c?HQm6i+x!(%^51M;iNe&2i6f!|0JIwpeoTvocZMB;$R;^!kB^5%e@UW@-n+M-E z?#=33vyA}Su0}J=Kr?hgv1F^s2G7K1!s6>gR&_!TIxJHBU-kD=+agsnhy97(l}kqy zq!3?e5GXuf*ra{(;(LA%+3q}c8<=-xH?C7cAj?!>jVkCWuVjs863&caWUN=s^G5fT zkVeE#Xui_GAnX|x5RUQ42I%aT#kISg2em|%m6@NJ1;QQiPt#9TVsBHDtAT$V2;bMT z2HpNT5aP-wcN6@N#ZD^;Ln<3?VczYXas!LZVnFjNW+4s!eX(pz(ewz=7gPcKlb4?*(K$eXZV;=8 zhuPQS@T4L})-;OQf1+0x9$gX37OdN4y2l74KrlLYR3ynC^8_j3v$b*#Hqpi!N4-xD z8>#r-%~#jH;g1FItkzP0 zOH`pfeW4@~z7{fucp6;v4(-SL54@9jLRPpiwY|N~`|d)gcw~i~YcA(~TpNiuwm&td z^Zl7=zYrv?Z`rBb0Z*k&{WbXbeAztuKiE)$O@Lf)vzq%p=GV$bwKyRwGglmX&5Xc}qVB#qqoEf=Uq>o36>t<=M1}WP z^y4z&SS7f9A-cF9U@RCV9TzWlM#s2XC(1uz}dHHxA!ZO|LUA4~k^BIc# zwbk~O)j-+P2?s_nF@?U(GANcQtH2w-TQX>qPX~D>5Ofn5%DiR*=$+-hZRC=!hyB!} z4SvUr3ca_|&_`PM>0OOa_x&wMpYT-KtsbVTbtAXr3tRFRrI2MbKXi!8090H{#bAHZ z3*BJ9NW&s)>}>e2(RS{U4H_Ff1qGYmR|-tNF8Aq^7K&c&O}9ym^RK@DQ{1)3Guig> zm82Xhl4CuXb2?JfLX+?jk~gw4M2}jG6g4EHkoT2k!|<3IIygO%(*Zp`KqhaETKfXZ&=*g2y)S;EMujmscU7PHn^t0NrRH z(ezmgFn8swRjI3!gCS)%jabon%bN9*iT)<`cxHDyL6?BJI4CL@yH`_rbjp)ke`u=h z$Sfyo6(seup9!6gCbewhJ)i=+Is^Tof#cMo_;SmUKP5d`O?q0uOkwq1 z*MTiycg!(lzcl|AwE*4XkkT$pCbvmsep>y0_km9(DBl!UOmoB9XT7cNjS`78vj5&A z#h9tQLHElWkq8&NucJK0C$vR-KyFNrPpBwed_gMTz|M{e0JJf6@ooD!n*D@p_3MSk z;R|IodwSokMHzD+E@?r;>$Isj!dHng?Kt<6_*DfyumxN_Vk=l9kBTHbn{QG!PSCOK zt9>mn7;2>HiS2?pBncko~e9O~^>(r-aGMAQ2SuMDRwWIDXfQ03ncDb5dvseiZx6sIqVSr;^#$FHvQbcKP zd(m|}F69vFt+o9Sj#mD$#m=g`#jP%rdWu?V`!{n&>~^ZX3=N1Ft&DUcQexw3O@F9X zTHIyIaY{HSF{wmU7}1$_i{MwH!fCRY4__em3!=vW)nO3dhRqS_xWM`KqI{ugQ-Z za1rE}o0fia#rF4VO>EUs82@E3Se(Ejq1klT#!5%=yVA#m)wQiV@N>hD zmrvK>rlJ=Xp2tt(ef-D0WA5(&i&4wXkhZpbghEzd^s%5m;%u)oyP7`_NHGKY9qD0{ z#GZ=VteXkt7Vb@{7pE5o$rlN4NRH~NyT%bIpbgTW(x-emS| z%9!n$j>Bo`8>y$7g6wbI)zPe?A5O1tc!4~-TZdH;T8AxL%T$16<|RSnx7+<&OBHC=Iq?b0kn|5(ra z=JI!})$vQ0``+F4`iSks$B-L}BJ)c-X1Wqa*3i=ZxYuuCWX#!#Fb^ST7+z2b!6J9l z6<`Eg1xALK05D41ybO#y{sN4$S7@%k03)kL*~pK1nm+AMY#q=eF*ildW0{gP8?Ib+ zy;^IaesWmgUU3zU+y17P{>6%}L?{D#D$[wcmA5U*8fb)9JqTbL6ifkVxX0xPTj zAqDrEoHj26EN@@f`*>s8Om~Itq;L)fV`hUn7$mw+DVuw9aqD@C>rdglk&#fgJ5VYC zm{iY8F6%T;-S7uhdbbcYcK%~5m*`6;PMne45}>_K4{Z|LvqTJ zP}k}uV0W0n>%L?v0J5;>AtUDnMAQC!IgrHj2)rs92X9Xw1OB2DadCX-KMe6@6uKlR z_Crsom%G--X&eii9rN+{7k07%HR)yb63ZD~;E{B{p`M=e1-#kwt@9&8gZ*&4BLfLY zLBh%N8=pRcWqpvCzOh(bGf{@n}m{J5eg|0v+X<4Qg7CjT1Z3bpD5V~hL^(FWZ zdXSNCOlAu}NcB2v&I~ea1i<8!a#dyLptnxAy&w|IzzK599a)|q|G+G@Ht~bi$j$>n z8HNavbr+hRoQ&m~bZxeIZKFN-IPT3Mm2f`*nbcxrG}g3T$G;*-RYPtf;C>+4iAWjp z8M4a9W^%(Z75CZd#-2!JV#w@=P@388RLqsr;cNQF&1$6t4?7Vx91;Ksz&CN!?S061<^kZgG}8) zgEV=N%tfE;^4dA*pg_Q1xcTQ;$|SrnY+*=9&Rvut(JQU03~L>l6QvNL8BAi=_LL@0 zP%JnOaZ)@FEV^+87(tH{Lvt>lLf)qGGRXu!db;b@N@MgLPm&$J0z|^wXqN+`a z*@a(ss5D}0gk`G5+5l`XYtk|lvL6CfRk^Ca_G#70ss&#QePMfk@H;TmbO{hmCH)R} zGmrF>IL%uVD~J~DM6xRl<^|o=ropf$-(b5G+S^dk;1YsJClEQ9tmHB%gn1h*cMF3Z z1Cl~$gNpPr7KSmMSCB324pb`!KKm4*dQQNcxoHTkYzu1Vs&LZaZ|^IR0B%g`Toryc z&)6P9K`vmJpMdLbkX-aZ9I%c2EIwD-vwXc-8UhXSl`YKQV}RUoVriSh3OW0qJB|Bg zrTPdEafLHoDL;z(BRp1e$ZC20^`QDHWPG`*DW3@90lNl@(hOQ#n;%vex|s+-ij9I= zaGdIW-ho+ocW%TXbET06)M!N>n;eE4VC&Yu)6+<4FawfW(fiiMD1jMZ5H8QO41t$O zgHQE;8yB?U--7}Dj?Muqc<9Uj7SI1<7tA2S)RM$yMONCOvnP4bK#touSr=P*-~K07 Cq#&;V literal 0 HcmV?d00001 diff --git a/report.Rcheck/00_pkg_src/report/man/figures/workflow.pptx b/report.Rcheck/00_pkg_src/report/man/figures/workflow.pptx new file mode 100644 index 0000000000000000000000000000000000000000..1d3cee00cf32341cc2bd10c2139c3395e96a5705 GIT binary patch literal 54045 zcmeFYQ*;Lcee=q`*X%qJSOh{r+DX)kLt?10Nsq>M&1#xPG zlEs9(6rgQxwi6s^pWR7dNMd_x;iD9ZSM46tR3;-Bir!6 z4hx@Dtx#sTDM%@jg9Bvy66N3CtCljY>j)}};YVk=021Z!VMweOwD2ezuj7N0d$Vw5 z=6jsDK-C(R@HjMQf*p}Eypq2kfB+mQ(>__duHv`FMuMGhbWCIDNCcD+XCPBcmg$UA z$9L!u!FmZy)!>Nf18&@@bJFxFTKN1l3s^jd>-vVh8F21dGr@Pbs$=8cRq21=4KnwT zJ@w2tX``4Ut*^>B43*M`Uo*3vVN^f(5s8)esKg_BY%!t)LO~B>5nJ(&v zQX!j7lIXpz2iXd#Lrn++U!|Z>03U#=7WBh{{DAm!+w{(fwP&d3nRn7KL2mY{~uiE|K+P!C2mNA zG9!gvgYOVe0ysBlNak%FL{GCvUx7?me&cT8NtVoacjfOI8PNxJO->3B?vQCYJldmO zCpWg)oe`7^NQ* z3ra^O<>SfG&B05u640{4MO&k44UQkGFho&G>H^C#Mwz$yf2g3G=7H1c%Aif~7b&0mokB?LFq7TiVQ6!w5?Med>pB9(QWI{w#T|5$ z(IMpcNHdCYUG7aL(X2!%jp0%?vTQTgLa^Llph<|`e_0wcW_~J+xLDm++Hagf0`>C@ z7LPNM?yuM2Oy&~<37xdkf$-l*`k~5U`?D!CJ4{&~C~!*4E{k^SmZPi?Fmld0?po1P zRCriU_c1FiQ}W`H!WqyP`4G2WBsu)dt@c|MC3?3CqZh8M4+r$d^7$N3@xLiQcZcIA zXhj%&@DOprT#n}oZoJuqur7in_#vbxMy_96k;M6Nq$em(U)uaG#YyvGrD3V?fTTMI zO$9*aRka0`5J&G4N8iE41v9=^2!J9%{W}Y1z89nrB^R(6&sbA1W?g}(U=D5)`Bj)1 zSK<^Vy&0#+@7{}2*UJ|yVFMZ^Qmz7`vNs)&t3PNk5wXBna7| z_kcsN1$ud-X-rN?rfDdY1U&I^9UkP~>J_c)BJ*B~o0W`QtD)K1H<6m54nsj?+W+;_ z|C0;w@bEx~uRA1`ez-Pi>cU!iATtmMmAmHnX3!C#Q?h8?A1JKrurVzW=>TyerWeWCX zi%PUzO=fhb&dtrGJXoC>No)L3d7g&mgrnARe8iTXcC~T*yVFj8u-Gq#9#AQL&1QD6 z;A-qQ@lr|>JEi3Q(ETfSx`*-dO27bM0GAkXyy6%y#yXX{SJpnqYp&2p>%*i?>o-Rr zKC*H$H2H454zWThGWCvo=V4kiw6bKVYkRzpH(m_fY`}9vG0_E2}%(rhu%Y9+0u|E=FIX=4p%=B7$2xe z2n?eKvl&2xWK04|Cya>tSxFu9eA5xYYAx2G7p-09e`o6B&5A#OAnUHSVtudU6qOI zQ%lZ)n_;K}P;_MhMkycI`-p7O?Qc8*Ew2=JQUWxkZuz$*Y?SQTYRN@H9N4OyF4gX8 z38HIaIGnYztP`6Vxv#AqQU@LDgaf&^i9fX7e#0+>pL%kX2Gj6_VaOyFJPkG5596fTop=)ntd zU^Dgp+AbMmV$L)fwNzNgLJm3c@)cdIS<_3bh* zJOE<{!d3yEZ4h{GRwO`C07z8`L06XiZ#zt&B6anuqXcLdD^|yZSj{N15*@BXICI)M zXHA3>iTHyUt+;GmDw$t2R^b61XN8%7ap%-{$kw~U1#)B*YtUIp%mBmXPGfP5y@$xg zgx?yj9pe{n)_f%GrmOVb!TI_WB_{^`L#_I4fppiV@I2A@@Ph7&sV;i+>3jn>JNQ)u zyZ6*oA016Md&#&fSiTx#=4tr5DO3jR<5F7wXG;w1bYVS5PLDN!Jq8v3YNn8m@qyg3 zKd#yT)xIEsG}>IsI$88$oQ-C@jb)?-#UgE80qya2>~GJP6_p)Y!)Kw*FYyw5SN(v$ zh4zpiDrqf@0*(2)#$WP@1r5kg=BJC{gU+Zf8s!|eI$pM>0;WNE9_VHJ4J>KanH520 z8G2iXYeWo@V$Y9M+c9_hmO(z+*NtOOO2`0TYAuGIl?i)`HNB!neOm_w+cP=_@AfXf zcDVu?Zf-_brgfR?D=^5fx0RkAvYH>D*IQ|5E0)+0>rh@ku#&bd0na%t0lbK?c)LKs zD4A#>v(*-Q$VlhMjfpuYEZ15(g3A7>;U(k~At=Vx(1ZE$cH;50!WYp-J0RXB^m$ZW zqv{0fAoQ+QGd$YPqv^uaCFBi;O%|$ zi9>L0^c!Br3W4_<;`j#+$xV3hp2e}-BmPvtmGRzBQ@AiVDn_CJ?(SIwL?WcsCu}#Q z+fKd4)+e|6Uz54rD>lbYoro7HTHv}vWW?hjH4rLGu9j6m424ii z^F;``-A^IVi=ylRgV9(3@e?GDrIFr*B z5Mr)+C(9hamUf)%L&EIIg?{>--OmxL?zt*}t7@|a8Nxj8Z!F%}QBKmC%C@$%qcwal zakDiyCxUP?T6~iGg3Dkk0m`MOi-Kqbv0q6)a-Q7Rpp~ZgsTS;p^)s^L&AF!JAo4Ee z7gY%&MGwk4sVmFQMb_;{S_sq8AroO}bg@<{^TYtCapl~T7Jc6d{B%isy z@~)}gl+&fD!2er@ujT#@m32MX4%P%o6=Xu&BCXc?N2l|tgqkYrMIS7Xs<_$(GNZ-v z{e9f>$(^W#Frf=8aXU6bAz|b8Yv$N*gJeeCNxl*jp)$~ZroREG&jf-XPMEBxc|`9^ z!XwtqK7E~CFOzR1>5HOdsQ6^RZa7g)SV7zTV)Gv%REWJjD)EzgqgOnBirWb!A3`oXBRLct>tXd>u4ZU zOuWGMyvbb6Vr=++0V08mpl~VM9pfIF-aPz$0y4LJMGkt@X?0`ditQmckAG&=V3zzD zkym+Ih*I`Q8xtZFI(vnYM0*Z+WmwKhq~3LmQ{1wABzM&spXRO(IfQb{;P(zjTuno!DKgG- zfWCPe93ReJ7Jls4exAR-!4yyUxHVfJBr{KRuqwi)t=zDX%d|__*W`0ZUHF}y>ton$ zU$457b8^8HBJI2aDjW%<7)=}>>k15?9WN~(fz~;*q6JuC{eG z>N>TyY(Ek-v68;#*&y@M0U$qZJ-K*HEeJcj*aj1eM4n`SUp@NMA&6w8dXX)D@#h!v zk*-Ee5Y`Uf$+E7wgTiP0l*S*n6}@4Cur`;@RAWw zaG=HGO2$)@3z_xiZ;7};>;1Dktoqt$!vgKB<$X2b^s4q6*w2k|_6g{TulJ3vr)Ffl zY2kh>$R3vW8Y+a5UQ!0bCH#+GLh5D@?D7SIilH*pp(Qc0z^uU&FQ#NPReZmR(WnTG z?qjgbd<*Q1J%f}D1_59*qsikBq9izZ^76z_+6bd9U0nq5ylAB{(?(*HV%-SuWyK!R zs|yCDH?cw;TNwAAxvL8bqhHTi)ObMCDPW63cx_qFg3yPMHGjbpf5*amXU(M#!R4%- zGMQz(!dDhXW395Omy$Y<<@BAV{&udh%eA7Ye$2GsuV(l2QgUyot&}u5ZwnNHXu44n z1Pu?6X#?TS>vusTCP14pi;2_q0W8g)H?LIlUNf^rAo*-xIrxb9*ozcK0UEE_*}T87 za#r+fvcVLEF`*Dc0*rtDgySWAo(%FU165+!Omp&4X#eVC;IQP7wG);dhDNyx=-r0e zS$%|3wXgXsGV95Gq|hzfN`v`X=n5LAduw9-_lYeehPg~gFCP~M1jv2k6q6QF*P#X~_~r@v%k6`?WYhaRna| z_WNZKyFRsPrCJpTkoJz@VO%MF23 z4FotMcW6b;^E$$?pXo!jKw&sf<;wgTd#q-@U@Apt`&Ov@iNrBi7;n^=maONPaHxx9 z;y#zx_5MBeJu}aESobcS&>x-Zi+s9-IE6%T=wLsw<%Nq4dy(@&kzm^gc+bK1k}Q1H zefpB~U~X|P(TkyKjk-t_m6uIE@(ua+AxIO$s_FdQl}_LnCf34yl?_m<)|9q^B;KC6 zqc^t)uX#IUX{#lq)a~qXTHJImWi-4o!y5#0BUdB;)--48YB*g=VYY>b2E0lGNgU8a zVdpQp6dxqy>HW3>^~^EtbHm?emPE6ETe#Njwero7r|T{n3bXv&N=XU%)I`V3>0;w7 zQy1v)9h|M1_#pgu^Fg!HV)z>rARx-Qe{T|5{=+0{*&j-J`*H5_AbHor%SzTW_NyYc zEjKCgZCR#lm@-N||%d4n27Ev-24#j_C0>Evpc zsz?$5+|7L5kF0s6#NdCp>SvEQ$WyrS@d)r#iYJ-kXp|1ojXiW#7Gw=K^V8SP44b`6 z^|)nZ8$rFSvB}>hJ-#^Soc6dppn>tn7=*!J(Ep^$o%xsvODW9#Z zmTFYo$CTK*Cd5oRu=^NLL~xA@bkkd4HWEtvyfG5`Q)RnWy}0ck-l#Sn9aeSCVKkP$ zNccFmJU+X5VCDLE)07@-EFAm#xfG=Pn|$V^+l-y8W3yvQv}#BsU0+l4WCTAY^Iz~g zw%pIHz0lz|H_J#|fbGTRwVLr}7Lh_`H@SIfEa_Dro4p<%o>27@z>>m{0Klm3ss0LA z2nI*M)rb4aJ~JL$4bDiI8FPJH37a7GkQQ5U(?nIYRVYXdHKBWyvTF;5w{V-Bzcl6{ z{eG3{m5>CME(cN$MMg?)N4p6SqVu;(&%4$!E z(3wh9vK!nCziIhf;fRUJ*yxH;tYyA!9-Dp3o32mM(SOux(wUH=*?~lJ37jir(5M{T ztCm3mEFwplGAiLWAnnaxi=sF71J?X3FzvptGnk%HV0f*%L6e_;MdqgW0b5MavmZPe z3`|miN>H>H`iATXx#6LLUqAQaD~GtfI+-8fSpB>{f&g)MTw=xpn7Hb_*y?prB9cM z2+_L*FxaqnE}eAOdxD9$c8&RRb+^FAIR1#Qt$}if0!x2@2=C4?&S`5onw!0n+hy!) zGN=4yP0n~R$w)`W<;0(X)DW#5 zlgNzd(JD8S)Nc-Ms*KY#0Jm%yTRe)Ccz(#ipBGh36%UudHMm}K%ja-OX=TtF%=}hT z%Gut_S$^|<7ttLS;7_A-=;0i-cUWupfBB?r#Ubj*+brP97(&A?ntRd@t-Qhd7iA2t0x2h4e}Z? zNQbTyw3RhG&NXqQ7K!lFEhywOtKiXxkZ2?`AQK!QoCKhfme;9?eG-ame7iUXWZxs$-+cElBmase1B5&*ugx(S@MoCL*{* z?p+iH6u_k|Hl%8xKdK{o;X>-F%}mSJ*_F?wx9DvO~^mA?2!@kAz28q3&^ z=77pR)%0Z-a7SpiaM|_6ardff?F0tXwI6o4@thOc3fhEV)?FFg@{LS{I$Ho2<+O4; zYD}OG)Ce6!C)7l{uwA*ot*AbnywBiyI{w=r9paPOW_IpugL)D{Pm3A8Bxq#oBT#56 z0mjh*s=q+Us72-n;==*eXHj_Ylgz^N=X_>Z)Saoyw)cLcV)#v^Hc#~D|)Zc|PgzB;88k}(~;PNoOY=lF5rQq2VKr;M4|9Y1&pH0~y}beF>hj_v>~ znK2&qXtS1#o4B)o59qq+7SK!C11CGGGPBf;d%cIO^r9@@KQ9Cxp)GyIkSZYg;(As( zz&B)Ex{1VZ3+}5Q$|2Z&wAiB<8y}d?^DF@KjU4@syWZxF^cxShxcOm)7MYDmkix43 zQZc|;xg(Y|tfAc%3v+(_hXJ#o!v5_IXWi1ga_2>x`L-j#3linFeCA)?k53b9u8$U#QpcyI2sP_S zl>vz`Yj95z!Kl%8W!D^o<5ctKv!a^c!#Iz%Cka_bBJhp-{zocFRudC07!p}5Qw_AD z7gHpSq~rYa5*AAMY!TsuN>rS4dts5sMac-t@IewF;ypOUXx==m;{cXm(1Nz8T($DoUP$*WYb*4!mDO?KdJA1~W;n0xPeMA@*kP)YXXsTs!9n#`c?yon;Ey z4j2B+F8(%@?lfD6JFAIbIngR7D$Fyk2N|a6b7?K6m%2sTJPn83Vr(`^uVXP!6+{DZ^S!L~5@<}!}$v0c84lPp2 z+YcIKyrqp@_k12t-tpF)m}O=E;d49?e7Os#pMn(ITbaHS{A=GP{J^IBv#x;UR#!0j z8UzO#qR5rHck@nfjEbyJg#o;vPE zUFTak@2}aUwY0KcL0FP?o!}yP?Ry(QT?kXvoqxIdU)D0{iGWZm>69^cJ*@ zaetiWJVB0I-=g`f)6o?#jgdWjVWB`4llbEY#fbKeP9=UR2VQ}=vx?4?4te&Ku64_t zuZ>PuNnQmeS5}@wi#6{AiD|rq;VSaqVi6y0zaP+HVM(LRQt@hrT)|XeQJgViQt$Y zRMp359UTr(E$|aDUT|{&u7fJtuYR=t{a2Ua_O{=#U3x4o$$b4Ivh1yzag`@1&XZOQ zOi?L3FA#5Xjg*Z|mzXfnJ_Hs@T*0UrY$bJr1oJQRfZrG};xP7F{dL9rf>8bIgIuVA zH--7(wAA3HrV0Mr!b*h^*&xfstjwtrNcI#xOUrG`fVGidS)2FvnAIjp4`0VU1e*f- zej*#b^crmh>C)A&8zq7wE37I{D}^P09A>1q02Gj*V8xhJL`qnv%bNoo`KB;!o0O_B z*pip-6dD-01apV+!jdRt>Zv(;?Cl*wZ)q)c&t+~%*|&uyh`9|bHfF(4&|GS5xPS!% z+TXm^^kk){WoLz@&*-gY!7$}mCpxm*q=oGWy?G<%OfV@$u4^A@-3oOEf5h2s=^3D`^1u)Cqy@mHpfmQVxQid zhaXqyPZER~eV#(kge+Jh5QRPW5u|bJ`6^zAuP>1%Ux-t6U52zwrmLZFI=M=RZAT;W zLx%n$5YIz8KZ!wkO#{9M4<=73XG#l{25ttsRuWW~+RjJ`*)|9T=11+H@G9}iq9i0> z;iD-5%Je@ly$J$--s_1IApo9`TY1ho*w0x$3|esZUU7nTiSo(p)y0CcqIf0>tPp{b z*X-{4nborgm~5Tz6Kz2LuvHJ0L}toW){+Kbsl{89f~b<%X=@UCF&On?8tp=AniNHM zuQ#P~z_DJS@UF)iB?{Y#RZCfM|FC&NxRRBI886aWP{WMRBAL!{)|zR4;GC*jFnX98 zX=dx*nAbEY9ftUx4vG+kM;8lW106ZRkqAZXt}_cp^Qw`ySO>QR3(mu^|s8YQF`ZpvW^ z*aEj~R|N{tF8KE7b#W+r&GPKg)yg=_{w8<$`7z`UE>pL&0uSR`!`A71U{sDYJ9_t1 z1{>_PqDD-VF*4A{MKP!)C-)t2@7Q0{n??4M|BwrgdAJ9-)#@Ny3ose zoTV~<@2#C|0YXfSbCSbSqj2@e+)AZT?k9;rCGg{kZ^YX!^q?(Pp;lJg%JJ49A<4ma z*6n^IlTy3OQJBe;X+9c+KOaePm}D1b2GpE@>EP!K-*Yl99y3J>OFCSV`YZu&fsOpX zMg$za9~aK&gq=Gdn1AkD;LJ?m$?mG$Bfa=CYs1Xke>cu(9@Ti=W z_-jNIFvBjbG^)3YLJnlkd;bvt?kAc%&Q}aJ5z45C6sRl}VTtiWVx1X71j)F!k{F5^ zj97mhzKg*^FXyY8OLxS3n7hhf2jeb%z|tTo8b>qTm|)hxIKbK9ptG_|X~&EKhS@Zs z^if}Mgk>LLk&$_{!ES_!HIz%K3fLzSJJFXOqmLXzxM^aXsesBJaw?i)hqG2N5N5rj zH5r*Y(}=Z1wC#gD3S$64u@n6=)(C%CZJW6&=ur(+x2QnS5T=bq54o63k!}%Q09m

` `Xp"@/$4 'AIY#B6$ +ƾP:,P@P M+̒4,GB4ZW5 +:}#h$lC%( fFB&%#`Y8w怠5%O,f)C5?c&AQ)cժ>DEOI&aiyðX~hQ>V݃h4xCc`Й2613el1>z_gWuGAy"p/&c%P}c[N1 4i$W-uML^4wu.@a %+90e& )+gU9g_[-~o]]Vّlj'*"F+u^3[XQ`Ct" ,08x;{[HPX,O|;:(6Vfd6B5(" j$,SV[rd3NaA!b.%3a^* TGVy5y".@-GŲE ։늭l@iUP/hǚFؿ,u"flEpOn(ٮ%dPH -xI^Dk\c(8(զr#dLIs_9gPxF2A#+sIm9 &|K|Xc|8M=SjZ+7in=e7%LbYbۑNڌLz%MmckdџDf301VQz6bmr!O +YX)oGXaUxGdA4{36hV,Љr +QB:_rP bgڟ2(֙ &_"%3$qV8f'ˠA3:M񓆔 mዣZ0!0JH}$vuV_,> :j(>B3d#=e]ڜk aG*q(6t(^%fQca (7 +#v\Ima'=`c=鏞*fv:>هf=,(.=DXsWqe{,{s;( `1 Y->lLqR-BeB! " 3[ϛS+ +T>2 .(X Дva~~}yepLp6_̊˔ũm4c}P0u7bvVgkX 3b<'kT P2huk')'U?a!hv6 Ѯq {rcYǮ4q##M; ׮Sv3 I I; l} ̌_%C{dJҀwn*Sh03}e f>:UR Po6t5FXܡlŐe6U +kK2b6K%r&yDd9'>'`#ip]1`NwzaԇĖԜ(В\|݅D5[f },'>:@r|bۘwR nx)I }צasP:;Ed@g TIBeQGbwN;󍠟ȺYp TX ?#׊Jc[$%^=kGpq?2rns,SYcvFA +EtyM1muZHByYpxt@6J.}V-0e #^8; نa NsƢLY812WkpHTAf2p{ +lM!=eD&/=!}tU$bg^Ae +Y: \~z1򐊷Peԇ&~3 w[l;75Dȩ<@H j w'\(#'oԈe3U:,3|DZC0p#k,!5bqO d(N;f7<A? Pn {P +{aq*T.Φ{v;cId +;p haFI!ވb=EiGR!osl [0jHl@W*9ڷt #=F1]TLbXg0/r3mw{K-n>Nltn1R=9ϣCM +)BE>+8 W٢4Ľ9r??ـ)9fqm Z>:0eqZ#:Xj/Cj0>~k6X8x!+cp7N7~;S(2uEVZ +B9|+WK V//zph&QK U3)ڄh! 4k[wi7Zk&-}2K>cD+a^!hp5BvxyfcY*1!ϡ z-2~JwYP<2j`ics|-歰cg' Du!Ur%F'UݹH443](Iӛu?>$}fG hFvRcǝ_e&ZƾZHӊ")>w_@<lH;@S}}ŝìx$0 .FU4eTת` q{9hk + +d%ؒCE}6֦RAoTysYĽϽS8|>ElakTň/Dw6న\1<%jM^x NWBT~]w$z#ÍӹqTo0&U(5mgt!Q>X+p |BeN?g  dJ4V`?7ыەC`TBfܫ#9;iӝP[Q(peD(b5 F$5 Ӏ\pg *Ȉ擤d~%"F:L{(d+h_qE  mCdlH#ĵpCD)CyR";7ϸ0`V:9vJA,IV1'BbHU)]~~B\Y_pߟ*A}ba~bȀwQAb DW;F?8mR}fxu(w1AUp76 |k/Ch_}_^* VѓIҫD}i:T[2w1R !p6&M,d$$|ϣ|bL6eQ摑Õov.2u52FTTMCJ*f3x+PC᫄M(3 [y`DL@w\wzX' 1ݎ2 yI񝾟6w(sM 2~B@q3 +y=:zY:W;ɘR4%= &IQ,׭[u(S\7mB R G L(3zgZMw*F%T4yvj@ip󹕄85ílڛ0'{S.ߡhRH5&e 51@2./F < ~n߇E2Sص/h [J"dk/zb(-ԌdhxXcg(Rs[*YD_& 8TdH$RweA݌ljӑ7X V, w6]p: !^n"D@#bO;qn5w`c:ېNAS ̽l]RF(O h`)*)k-7d.oRH[sCCeUT>JT#t! t l5I[X|Usd*x-@MhaY$I}CAz hˢ|O%А{!CcN;F#D;R%g@ eG7 +3 \-\}_ 6wrRiVЬB UNB3|B~',ZL`BB +-=hzumkE)&pzZu0KLz@}5'a:M Khr,:1L85F\2G&T0 2,lyGVlTd :d JCQM4pFm0$؃vLWR(` d,Qp3x^boiEăٮ2Sc3~+m͈ n˻kf 4C][mppهK+ANdΓdqRopH!wh#VPBy`*8t/4p]$Sxh"2PL y!6u4vޜ !"z|H}Qx[d$ >A + ٦p/;:䧈AOBRnGM(a`ƽh~*7B]ӽ24ͅӮ[uh|R|DC8gzo +5ZinD}\fDlyE؛`GÑ6O!p^QCJz$R" 'r ))h~(3Kw0"M0]2%G9ېI_f6"rWhd8;IVŮp7 @4`23^ z,FO7 +@Hs(QUJ%8R/̋.xhlH Ռ!R@IG%@֒̐) .@7C hV_N7^u+t|atQB31*yzOHCpXeU,"M4[j-<-~̆D=)j S|Ջ|@+Evlګ#t/zxP9K ѯ$;\>ދtgj籹Tp as:L݋.7 *q_Ĭ}NdHET,[*[3c.V зr61<ƴo ||CNNpH9àM=2~dP8;mp5Ģ;zlN*p#^Κgrذi* ^W +$TF-WJP"P=$vNb=3 (ě7[I+)!,$ԡq2 +*]-ۧ5I'kQam\EE#/vVz*vVFwuUE[o&7 OSsh7\Qz`Rb}U@Fot:KHO8,%|z[gVN{j"6nKJa^QftKgJS9.&Ij;)l8gt%|B+~dC`6F.z o@ő!)L:H9m,x ط^O(ḣ 84>dI31NV!E[,ߊ lg&B؇X奣2>IF@ۚ J*.TG4'M4ouל`6wJ_ ]hAx( bfv,d9gnzuz e3!m79 +iVKJ\>,ʐ +JP[b_i1=n0+&Ihn]i %Nhr^v&qPang +hBK 3U~ԁ(7UAHB+e;AZ,T[&ssz|P+h7(_\#&[ XnrȔ$>3"}Up]1<PEOU<&ľ1j^; *IMh I4b*f4`'{U8ޚ2[Qr¦6|>|8z/ !&ܹ9ɪ +8 }ߏӑF+|Bh,NA O8H?D:LZs'dB" +jpq!{A^0x=<ƢrvCJd\G} +_+Kɾm@o,Gѝ#@en H6U ̕r^4bd':f"ϐ81S/02`ԉwD$T,@+Bh 9ԚQ"(I֯Bu0E2d+iJ(0$.$W.> +Qה=߇6!+̇LC\ &]*6tzܫy)Jl(S6\4#SY;ƖS A Ez <2E#bf@$A@,V3LP83 B^.K&ǠM:+У,U5aҞfIApt5UiXMMT#!0ݏtjx$uy-B!\'$AM{4jYNTHni5&Ab> հ!P8DU2νs'[YaʀyWJ!*h y)@ ^)&1ʼ'u}[tagXXhd1Yb敟* .KPe3 qtqv٫jooe(xC\m>CHB"aC@6ODFK(4a]G5y8)¯G=z(&:b1D0/@%ݰ9B)ʸnR7[W ,M4:~N:<&K 9M$c;PWRđ>Y~Le"Xxqzg08Fv>FuX4zh0 ssl.E-e jj A#j6AJUgڛ=mm}dp12<P,v(ZaĝNxTDwvzr F[$̇/.RDSSjSHIR@qLH5u@`cIoXUfW:7 ElCs/tP3od$y14(R ,?3}cL..g:UO.c'Yf_ +=84mtw JHҢ O/iס*uMO|Y p1iw=%P " S#oÿl-Yd 8 +3L yAR @8E/{q@@NSDʤ%(D'4 +f"3yi>* +&DyN4O4_at pgYjzi:_D9w&`K]( urho#(![@ CPxi$,x:C2D܋Êf=(jߴh 9ǟ( M"eDhPˏ Jj-NBU*ɀsanZ3f4هq (DT^GQ}4:"I!yAQky:D: ډTq$ +)-rU<-쳕96@M|,?`VW($a: 9-Gt`уG=0$GZ6&bxhTu[&O1!CbCE071rx;TYi/[-`nHFV(L<;%I{bV)4^3C`FTBmV`0H9D$3(TِfB)^@b {Mմ:LՁ{t*HY$9M,R.v*ΠޒI=N12eC>oOQPl\G7z e% =&9y; (:B>}SX KYitG%gZ)(4ګGa +HыKhxwdK!o~H)-- RWF[|5u:g ȄiBG +Lu\Y^ |9:}e$1(Jbq.Z@"DF'urB1h7q+hC`$}TxX Kҡ}AOQM$)xvz%%R7PeiWE>^;I?-i2yέpf\SxAag@0V('kB_F{UUsP7'($SeuX1LOk*2ne%lR$HCnj@NM38I:5ŪC,j0%\->ʗCjA-Ixsié,#ȀI` ¢15b O":BSObK}k7QD2dp0FQ9KP\ڲv'UcAIiC"v@@MdUT& (譐&gKSn6VtRg}{ h6Adl}JYlh?CHnZ@DrMobF,r$ԣs:489ts)a Hڱ>{> rSf*-~ ߢ lԢ3' cJJERnNb@VG 4G'Z8ZBnJq'ՔB6Ī A?9P^M qwaRF8Dcd{:z!exbd%B2X=-Sf)T h3.Ee//.2ιlPglY:}PHNDm"p I/pM +|$D%VWl-nNBZwdbg70.9UP2Ѷ>j/iQ.uJ@YQ(Ȓ&{i-^TɊK| M9xH@7"m;gT3Lgu=ޜd>Y.u2xHSH&*J$ID>|͍VRH!q(48ߋMj.<jp0jL +H|P39^A 4 +˫ZCrHͅ2xKg2C8ȡcKhc!8[UbY=:{]0H8Wd<5[@tosB< 3|+CH>;f/4< +\(ڀFBa&,%- = ru}vM`|HT!N'jDxB)|@4$Y΢1%6/BU׽mR$۰gE<hxtmbR?A5Qy$gr'}ו +.9{M-٤}iRo4SŋWHkiN%5UH!mij]0tz<|@!EڔXmbO͑!?-v:tbș*Mӝk7`vМ"&wDw%2lzv95t K" HsBYE*(~8GgPf!xPP)Y%2=EyUU"sh%#Cq{-u?$f[8J}HnA,?C P$Qዝ%(@oŨN/%̭?̠CQU;+Bڏut`lq֕6Bp"Zeghb--`*м| +YPtl7*>SUGl0[U5= S e6eGD,Rz>DCsӂ2VrMI~Y&&pYh3|^ihK"YQGό9Fp} Xv4\(m*wo);J{W 5c,Lْ)Ő="=btHV e7=W,*H=|9 +voCǿ;7xI-э#'tRûԍ.EP#u_wX6RdEp~n OQؼh!|s!LAEm`s' w,IZ䈊> ]"3f_(p?K[%Z0t£@4a/IU +=鍕 8sLÎAN1s1zURD= K>Iܽ 7 f MD)h$ɸWԴ 7$vGwڌIi=zrSC _^"H$~Dv YbV!6|@aS%^K Q*}<C*Oj5~uR>@r}fK9zhɄ_=4-3Yi殺ϼe?aqȃ5Gh%櫋%_ 5vLIZnR%*^pKĶdx$!·s;%Cәє`m Q +(n^bH|EiY9ʺ {,/hXKYZ!dpf*A8[&L9p WQ[Wp2˲|#&Dey+%/.>#0AK+$.d6]S(Ɗ_Q)|H"TV6E& bEE!G1Wk{?3U%iJQ)DI +WHh(G f\qv@G+m@,BI)?cwC YRui@ 'ץ|$.qS`+$3,wXp0Z"bS5ҨXP4dn/y|6 }'ڛVJO}El f8TjR\Z5.ČWCRDl"C!EDFqB,it)O5dͩ +MNݎJ \AtFuhB@†4Ļ؇ X5J,ڥE`3,(Ϡ W!;}eߢB&bฎ2;*Ő)0{CAEPbɣ,҂ %/*A+X:HqLg{PxaB♬A_C]ZBvOZɫ3nGZ~Q08HYL(u E*$ ),X#KRe`2$y.Hh&$ +!}}oG?%wqCLTHABN[S-{ʒ~Gɖ׏15 N?R: \RdˣXE%ݛ\(ϮJ0 Pn:DLNUm<ҨkK_=KCGMLe)yi&ii^x#޸f| \7Zv~g۟>ן߽URfq~??o"8?{w~}I_~|>g_}tW|x=}0Co~7w_*Go>ͯ5j)if/?jb_$G|/O?_>"dN2UH8A4)HAӉ"[\0KYĵHE}k +y +UʷBM2 W(1;CLV^Wg` vv@"2єsZSZ7d4B(yFPoY' C + (]^0%8jn\Z=0ȿ'`uٛ SD /Jr=ڡ){O~t*U^)3Ĭ WN|k`ybza; +fQnAZi?& /& TYV4a8o;tz'$Bفf/w[[6)] Lu'2Z^Em]޼Ed#'EB<24Y^ujr, +YYE+^ITHGA Y kE Ո%H3@,g/05 +J"FsQ{lB,|@C+"{K g!ld1]) `"%58a )!g +jԱ22 ZoHN2> +5$ u!r24솏 2/5h[$/6pe8Շ!dNׄH̫ꎝ^g5/̾AoGEB وGgGGq5ฟDGtR6">Ln-ckwy0 +  $IJ SPEd>O\s\\+\\]+'=.K]mE̜lmH6q&fyw ]u=YIf +fH Eۅe߾oYZ1݉EDxB6++$td7 +1_?/vU(0CH%h5c5@X5|%5`^H*/D,_8Nd@xhL9o_AfX¾Z*2jK&΁hk="k2'l Z =>֠DdOVj\@l1r4̤SG¤ _w9|t_Br!o VBa7H}(|AvZqV57b=f'dm8bi  q- +]=YqN% 4ˆ̜w=|J3CDΆGQQ W+&)/@2a;/D/@M/cV`_/h!q/@zu鴖XH!uK7-,.uij["]K\#RES",CPF88ހA($cBFJ{G))pzo$(!gw1F[B⨆Ҩ 4_ʏ5fܒ fhTa'huk+q016TS+>a t]G/TW/3.;D.NV_h.@q.Az#....@a..@ܮ`B..vAL!&א* /3W8<AאE JNSW[Wp`e`imrv@Lr3!V>,(\(K\o<,\(\<\!]E]$\`6\.4{]X$j21Ͷp>ҨϿyr׿讁!NR}bܲ +Ѥ]MN@Q&$~OŃbPPbBRҽY ΋t-}J2G^k}?ʨjWhl[/j@?R{ 荖~0J ?4~O޼+K 5_}Wڿ[/?{\F`9 Iر_}ۗ1/c0];>u?ٔMO;9$q^t;5ɧ?7?/_Ϸ___gv_&oۯ~͗_}O_G?/P +endstream endobj 447 0 obj <>stream +%AI12_CompressedDataxksǕ%]~{yX*q^фm),};& ISwGeRs2w\O_>۽ٸ6~OtF>|7wWFvM_+l4*~{uכ_|u} +f{y xW9ڠ7_N|7o?|8po7alFiym(q&qf2\5 ~%3OFdg}yw_޼zpo6._o~wիW7_]sy;\n/_g_]zyϕׯ0?\m(Lo_[>1 qїWww%ןӿE}p;|ړqf֞Q? /z foبo_ĸ|{}w͛~d+\<ٳ2=lKop\ʩBo8@fRd,jq$Gk͓'i&8SeN-?jښyPt3~oڧo0@(>}Fw>??.4 )~{(s L-nvE٦dnSmmrl7-4"d^G=3q'FJ뱁-qž<`~ ީ݀a= 6,40]-8NÅ$PZV9VEjꠎ.@Jk=jvIz/@S`#.ьvtځ$#m39}l!c<-Hc鵖c*>ʻL;7g\s6Efs}4Y1Vfa9u;QM*frǺmZo Ĺ`#G7^OܭŽB&3'f]$f3-vVn?cZfF^OJ%') Ix9@C}>᧌"&E:#ez\rCK66 <]6C5@րh lg/aƦ=,Xk0*B.΍-FH6N6ܪ؎>˶_o!90(^BXEQ;Sf9>MΦΦ̦ͦ˦ʦIR:ܬ[t +6hc1Qm'7?hٮ!iT(W/7ŏ6rS)۬ТPr/~/JfQVuEPXHʋCm'j *2ΠB* #j *6DT>D8v昳É#pjoFRGݟ/fEGMI|襩D 47衩D lZ1Sz2Pf9Di( SS`E(D8UE-bEehT. A8)DK-bfQUOh_>}(E:?/} + +B7i{)5xjvbF V.[6dP9E灊OwO'Yԟ*@ETTATAQ?G> '1h{b i^&ֹUGY"+^fQÅH*9 kD9@T(\D:jQ;hjs0mvAQ_Tӯ-#UtP; ziRXy >̵VdgiEU>Mt*9=7pݣ{a}-mR;)+oS ԖE.۬'Yݛo"(+E1M mj+㓀EY@JUjhnR*ŵ` ШUŞEEZ;`/{{0[1-iYD)  b0& J }'"r hq/Ct,Pl?1)č${p%3@/"33$fr(XF~bB,sG%S^LVlZC6W> ƊPbp >L)B&rJ' {1fAFdDsQ0 3$#&gO%aKEv`'u^l!ڬZQ ( "׹jFrsNSt+`٥H@VTt@ +Fq)w"qՠbi?DRIfs 1$iI +$;]nqתwh8ClHy2g>vRGEKGzߔ&LZܜ>3u:tqQAXAd}+6i Xr[u+KUw?ˮk#ԶNYdPKNZ1b@j?ΘYG2VQt0n#Wt]JWIUj?DtfK '=db +`!1B'li|2CTS3!5bkRާiiCye1@* ՌUF2TTNU$[UQʩuEG2V4uE Phr6jbX}*=>lC'ǃEt_`D N&@*LeXػBA(G\PT;}%Z4쪿Kn[07,mio/ u+o 8a]DTY:ސ"-Ր :̠$!0bB`"+bh,4瘬Tt2erm1JF$ZpҔܙ|rg (1\\DQBD.;LMtr@?i-ibV 7m׶,#]dwcR1r)3w򺇀cD"MN)Aڶ{>RLSO? /E.uxŹ.:E'h\D7EgQ?hѣͬq^\AOmd7FMV3FKA}o[/쵐E+^"EnTZR__kKn%+m&{mZK :wH7͈>uV:Z+Y%襣nBG9Bm,.KP$"-ce2' #t Z^`NZƏ\=KxN`VL Vm=0}/ ½}XS-a&1xV^2=UN|2MX 1z<6DEݾ!ƲzL.%v +` H7,=xLBG0T+e8]Dd{+{_DgkK "XP9/Nګ~-Hoyj[P9R&_sHmW06e(mYD ^Rؘ1i5sw#-Qw$mAI%:*QQ +BRzղ[֖`M;۳YwqE[9YN]I b'I,$œA2OZlϜAmV昳=O x+z.ߙ,DrԘyQD.B>$ʸQpplNgz"L09=fUlY9Ozʳbƾ8QkU%Gdw` /D)=\mUlxBRۤjHeDV ;B =,cSYogFZrjIh2^J:r +һp'G5+ y$ r5܉w΋ZSoSØRHR-aWi\0!EHA9^Yh-wei`Oaq1<=8N#em1PtӺ2tY1Uư"󝞷:[F5|Qy·8`Z 5pBv§b Ǵg\v8uX&%ď5 sގI0rh4K}r`\F;5.[Ei4cK?qͭhA i$%m6bS1Eh3"Ndh֒̉K|ڒZtr9 cq +*s8 +oC pr +$SF1O7sR{: cjwt;"t?M{WӨ^+`rjmJ;w/E뮦tCEA}E*_54-[i w/69A'Bhg_3YԧuGϘpΖP 8,3GSThvM\FBNm E\-0VE ': [qYn琝"C6mvvY8r22q:r({&CŒr.xvlQ/[1]kx[lӏlU49z7dR{%/q{<+"u7KѸoE[}u`dY '`ۣ=:2n(F +/[ Tv.oD"ۄmJc:?-\TAUu?4m>qgس kYnwZ\lXq~_~{Dcϴ(RzYdzߣXC'_S<\yAr|$1b|bstb:AiIG Njɢ?Yl(QB]bBSNNg5OJS5Pde"izJ.VRY[Bkr[~tѢ=3s֟e@\ڥZc}߯xE)G3ۜ)وj܁%1̑GRd.sp5kuYzXIj(uV'O"7bxɒDηZoWjVGuߋ݇ih5I>p%ъħ̭t֖VĸߩEkV7Dm~dyomum=V<&IG(]|JM#B\ Ve%&ˮe'd^Rb/LngvlڥUiVŧ{vc -b2XI$8?snSjPW,$6)W]9wGUb =8&U~cS<_m8Y!:GՒГ>hw*14DŽ*ZMJ^*W][<ASP(6jܘYzƓyiZ7/MOa]Oa]Oa]Oa]Oa]Oa]Oa]Oa]Oa]Oa]Oa]]{ +z +z +z +z +z +z +z: e Kp.µ81W4~{qeW!c +;Tֻ/}"V<xa),OáNϜDqC􍎉+(Pu]@uӃU8T%bZMe~wQes!P*&"i2UԉJCPQǢ6LXcA&zFV}D1@HYZ-c_(/rӀ=/+) +SaA/?.o<׵JNQz}v n{M1I`OwX vaT8 .2WޛcjnUN5&vc,06Z`zb[э^CĴꡜT"\RDGRPdCN-),D. +R"*!baGXGǐSRgP 8PN3Iސt6q$ [rOWUSwK4U9'pFy8hDy2 +- xX]T7)Ak~gpzk}{AZ\ tRwfǂT,(2sͳXp*KQzu{X[i[Җ_lxV\y)7-zLhZrfPI3Xiʤ:GZ,wVŸVµ(8cXƗ3ƉEH ڇBb.①HQWR0%R"lQ0WTK[TdTIvUP0UmI339-}akLxe˵*6늪 op+ +9tENrB,ԓ&zMr2'NT&Q┍,%-5DdVNy1aAHY`gջ3@ڣsWS)/TC `WD[ $.Gςʬ  2Q|F{Չ8XH\37!]B*1-C,r%U:O2HTݍ!##'c$!^)ÒPqdP,+ₔcuYW.c\7d"&?S +gfl%(}%Žd\UK|-R^eòa¥*YZɅ҇eêa5MNbg9t.8Fiy&ՇDI ]XX2./w>GQV("~8E{tmc~ZZl7|J{񾣄J?S$'j xvo 'dYɗC9Tt_Ut*Οɕyl\Zj9(={]AAkGWr|!oXAjyf5I7xÀGtPLTF #Rvy01X1(4qqC#le5'8Ac!YNm4`J4FKvt5\qϘW4U->F祽)&2Tg'P>f1Jd"V$`?ĊQeҸ5u~vLelNl/8Wgv_{ SBmďӊ ΅P:BXr$wf@A ?h <lc'Q913j/;T +bn;H(k&Fv <f+^F Rr ]ĝꝴYxnm-2 `VPa_iZ{r޿Gm1ܓb'n]rR>:^wOGF.t[Gᆤx^b!}Cߦ26WE-d71>Jl!ڡCr5+X"ctCH2c~ZGYnsW_]bW˸U?,.ŪƸZHL\.ITwE._UcN$8* +WjBhLџ)4Фb>N9;%wZOD;Pe 6qp4u/&ߚ忳!MkS%i$~IdDk#٣#wU$bXG!.y":0GV10DхuDaE s}lX9λ-?Gۛ"}H"8/[*Ϣ$CN*tOY|SdKH'JTT Y)z31ݜK +_7vti fǠ} +lsoKIՉtyKWV\²xSBbqϖpLc{I䫓hs4pG_2E9~iGkL#2P&kqLu^FPpB՞nj:wԃT49ԉBr }XK]"z" pnuţm@WTCuY.kkO>uʜ.x +8JߒDlcDyIդM1` I, laF'X\Ky)E"Fؘtkӳ2r61]b ϩr:-~6&JKp> +ulc.sJn+ +35x̔+a0Q!)p[QNse;>i Pi>0J#J҉,: l',[H׫8.tiPn[|0V +6XWY#DŽF޹ ,.DBttNTV,~a%p|J)SǧO 8>%p|J)SǧO 8>%p|J$pnr1)S +Ѯ;ZՆEkcZYP6t&7ϒl)T]Zʂdr.:sGU'ؕMy*,wʜT1{liżKF!e < +Q9eG'IW48;Y!\LS<8?rZɩjepr ++,f45;!Q +]*Y#Ŭ܋ӟ2q%Ltp/ +h,18aNa&~G9ؗ:Ll!G^ܳ u/m;S"*=z )GwX):b +eM )ipC$9eA񇨎6F OZfQEߒ)1nڎ9/UY[]V7 'dQPD/_06(U(<=)^7}+RR&nTUwVWV笨JO?Y)>Ne]Fk] +scB~5 +bQu os194 IL_Be%EfrIvӺV> +7z|FWшWzYk])g%nm'?z3P\akCդ~i0vź֊>wUz @`ob-0x;Bt3 Ǚ'xIBGl82 +Y~tLA~7Aa+fWK!DurM +)d3̒2m;nu}hl2KDQSmZE2E*R"a>>R$^ +QJy[{ѻK;OՂ43W>S̢IAʩYfPoEC;xX!gQQNYYrdL!|,ɋT=mc%MTTj'eR%rDcᖩZ`?z 꺰JP$d`]T_X2="ʩ%C `_G + +`W>V|7y?Jt?d2`Jg;)^ w_:Okh}whVᬋ8= +Z]'B2M #ĽX>]VO5עc?R +qNȏq~KjϯںªcMS~J|T*9/쯫]j0+o06`^RMB&I1 %s" |'O5EؔS |4CPj&5Z-jiU+0Q)`hҊOc4*m]}_[PUU1>⺳zt[;[g_=wVB(De + ~*[Jܜts(Z-e]kʼnzKmU+aXDKř1^*3sL_j,caRM/^0̓%c8׃atƕfδѭ}h*WU8~lX%mdcTuqw?g 89E՝-HؘTUcVFBJE>@d9,UIN +v*@(<1mBcJ +fkb,3-17SձbmJ Z^Oʼ7P[(|ҊܲukSuFsV[.׀U*G'yj΢yhq*> Ghޥy~I[fYO@> Mܥp|֒1ZqUyqZx'˚Lվ?쳖I[bٍٕ^vuIcqM4wֹ¡k@E{8o,/`MH9bJl_DbH6F iɼ y=}tcsf1֞~2&,\%;n6'Xڧlqw?I0PVu{XYN?{/c}1mXKYJGdVQOLR"G) ĭ`>(hp>R#Rl|Y|ԖFl4=xtla;ٯ^}YM*Mel>d"n +Dk}^kQHy3.J.'4L 7 E_8cfԫc'^}|=GeO1KZ*6Gq1[ZRH"9;JRFki#ۊ=yǢ.9&ºXsã"˹:iֱt1e +?oR8x*I֣|d{ߧ?S}w|;2?o._ܫ-x3s+XJneA9ꪓU,3B bpve!g2]9Ԟc~RD;'sεvJܰ#vx"[N%wJв;&:G>)C֓#:ҮCfUdVsUq]aZf]oT-ƻR-{9>\28p2{+U^ŵz1PY.Qh[?5\k +Xhv߉S$>F +1{ +vQU#3״.Ֆ kVtqD|;2>B͕5]+d9BSgWkeu&)'k55B-N\j;Q\Mie痫=!*!\Kxei2}%MåJ/-$6>ӄc`3X=#/[?H&8O6X4R6 ;YBI|{sQ?J TDHB)^5QeΥj]cTB(~UEZG5kZ礧%VH65}ZiXG*/GWuM44N$7<#rR~0x=;KO'ft3á}ȫE U]ꬣ1 ߫=b(>7~}wgJO~|7ﾸ} wWZ?7ʸdfwzΘRtU3DlLی~H O.O^o/*~ +wӿb66/? v(7?e~]k|w{w~qw}oW}zy}wsşF_u?\yͿV@% ?{^Fu/+K2xkR [J|K>ͬ{r6^a F#ĜNzf +6ADc'@̍WavR +H8؂L}8uzB>t&!o#ejP +(ę$#=:%ZLƨ4U_ 7Сk %98Հ؀g(ǣf*7T[+@QXLG\Ge0,WhE9lKG,BJ> =xM^O0_,  |̈́ 6L +| +,ĭ &42ȕ1|(̈́rCf&]+flKɭ cknǓ>ѳe 8QnUcҖ{ESl6% *C +CRd' rgel},Am fB@l3+gY k=nR g6|{  o6? "wr|B4U@N@=KWK87W_>` @A_.zONS6O1\Ej%(HPcxN!ciсc C64e`I563G#t$=.-%urdqX"clB4iAXgtft"$7@c7@2"Y}Vft@;a"VG7q# ؇~ q!ejb'C^ n@$Q]=(A޲D2<2T-h.X!A3,*GƐaP2TbU 6 ? 9>4CB"2&X Ȏ ?idP Th'ʮI{L5I)B*DAT#jp6y@yuDT_`KCv>1ʓ,#ofgd:xA(KgO08I +b#GZ`\ c$a0d>r #;-R= `X+@b-@TYٽ'Rtc +'. b)O,C wTᲪ 37Ki.PPTMc1f뎉.CHO, a`lbUCS|Hb"EŦDu3 15b҉& ev9(`I7c8ǐx.rv4I=QDNJm3R f'j龠ėh $dbҰT@?czPhWMbm;SpHÄ԰2qpZqSFAgA[+Bݲ 1rv3JjYqK_ tg3!}MCd^SS]mlgD@kDPɉyk@@Y +RJva丞|"<ѼoE;VԸySfn{AP%+P%ia& +2~,[E^ dk%s82).8q& ,BYDΝW,D5$!cl3ȋm0b7 b)DgaH˖We6( H,UEHFZ-*q'fFld9Kq{Ic'9M9=#7r~H[ɓI#'8 R2LH@S`7ܭQB0o +T!JXr 2X?괖zH8 =x;?PJÌFgVMDY@ˈL)4ETv!V +`Vée042*CбB}պicx)i\Ȁ;DA T4-֊fgjdqbtLT`1kx@cuk aUMqTp$""ਫbmIiLIֿqxU:ϢЦ ӊZЊ񅻄KOx_ڎ%܆WR M#'3qN<Ͱ?G:(keG-$p~;`LbXp$g:")F~CxjWj22x;k#V( &VԼj%Y )(uVDiBҒAזq /a",#6W+y|< =LhGu7 ^-GkB%zt 2v2FLבw}j*[h;O8vY$U|h۬_jx ͉>ZBi|ִS641mĀfViW*`/&/23!މnҝZٮ?uoOv=~XP6Sj[&ɍeZ1WHYbp@ \\NF;#@kx:tuHC?MU<$+=1Psn=: +'Kz/+VMwdCAD]jauLU5f1cNG(2,BW㖱0iZ9cGmcvV)/S7f%T*(|*=L}oN QC~y oz#;kWgW2!1Dh'.!NHBl-6@gxk! +@]5%@.Zh'9ct޹q(.Ͻm +T9)iﴶb׎b˺is %6̴d ]dMm2\[r촫3v{5w۳30}:ΞqΪ:{z:S|7vV{w9$B{",=$Vâ=T{ߌ<\;i@Laet,I/ u2븪Z]ܳ ;b&wJ;V}(\:P0eCɪo֪yvuF +Sٺ9uS։`\Y#&Nl֥㯓m;G\&_\睏c'7οu#8&eI?Y:uMi~:N{]gKSh):N:NywJMyUع9J?:i!;U%f畝twb t`Tj"Q+Džߪ1,:NS~Й{b֚^txmp-:b's{oElUެB8Hb +@͒13|Er)','l ۨB82;dG#^ PTS.IjpmɖqcXqff(ttbMXC6 +Swg1d2;UwTe +&QR 1h823ASDS- ~tsOPE~@/S>|51jpB::l' >5`(Qo]4sGLh;+!2j-*D k L2+b30`N +$&!VL( 9t2deV&!M%ې! +һ4uLfKv9֮tUJ.kꎱ+d루Vgi))E[}ˮ~\Uj7/`d%P| A@fHtn(Ɇ,"Z{1#&g&@R$)[UƄFR=ѵgU-"Ө3CluMLG5LFP g>ϭ0mx[Lc9MOm ic])f|vͦҏۏgb?kp vG;l`f*8- jr[-ZjXeu;Lbzqeكh0CApw3/A B&kӌpEڕbi(_47J`6>SnTPS2`ثp %_~RğhgϕnȔxR8d{LnO*8m҇OTzU=+M<^?QvtX~)af(π ֿ殤Q(1dˀ #obt*zjTѿ둾MIG!G!YF?85 +XMOdsHvj$E&>JY>{IsJqI89j5a +V|q|7.61:k (k%KoDI >0@%1kI1Evx f/<{2bFֽx'`$e,]s追Uy` &Y+3J<.ڛF9Zy`m,"hVč@1iuH4y'm Z4D +NGb9sߐO97dmi|#0%e,b@֤fd6JA\ts0Ԁ~9M+TD@E:@,ٌ!)|E/MxU?6HQmviwjF?=-f[+1n;&MǍWg-Vhϑ,zV\-ٛpK;%7P9Ij 9*M j,B}p22>VefHΓb,}i[I,s/֪bP[U1XODdWŐ0C(QLU N x8bL}U ܐ-Ye350ebbU\iՙ">jE)E0`X8+%} ي!F־`;&K[@~kb֙Ae8ƾ:b0k_hɢt\-mb#}}_C҈X=3YJ #EÇjԱ8a[CiqoH(Bl~/0@hIAtQbiT R< +14*zdeZ3Fv &P# +W~Ij13"t\:{C'm=-KDee= /RW +qԆ1Kر?Sh]M&mb 흝åk؄- +;iDӔCYɸy)7V+izAUJ{Z\MvKuSi΢ab J{R!N|[Fڷ$LYQa_9Wc5ב&)նZiOUyM$YxTKq OU(ϳ+OX2$1@_XI%tjm/na\b 鬡ݹzε+Gg +n,qKKx3qz|AFutk3>/6Y?9#u# Y,30"*gFi =PjgV7 ^z(E8_Osp=!%(՘7H &M@"!x;#؟GPgc! +7; >™E'3Pi=|X-!= S*W=*]K/H&kh=!︪GAR V3GdysMN4w>IdHZ&mpj5>2{(>2QGgswzاLϘ{xZM<,M70G=o096z"AgCS-%& HgUNN6quq$@Kilj4r(/ "d`uߜ') +q,Cd>] uaTN/ tHΩρm(JrnwjpS +uFx9l}dBV$ z;#Q +v*ۭ!'ST_(b{  +vLj$fuf,j6}AG2=T|DӴc\Pd'%D)s(camt@w੢[-@$sL$( clTPc`HOaKY +_&EEU6Ldyn9 F=֕9dUS@dƶTЃ>R{U'$}=pA +pp|:sL yʗpB^1,@`("CFsI*KVX %d$nӬ$\U\HiGD/Y T2Ps٘tSDDŽ1c}<<[6e{z2cAx#R|zI]ih&5u9D1fE T܇lWDAmQ9Il,sUUx6LR.xcTfJT"YcyiS㎒=;ԴwЀ9R,hx7Yb-5iR-ʕ7F#Us$v0)^GSD@$St4D;+1ݕU +Ɇ '\t'3SĆf互6-kL>0Ike:I;^S'ڔX&KP` B12rY\m\Hdu0elN%hF +&tQ(݀K_p{ɞ~\6 Ь9Q~ߞ{:͜ qqG\jI-OfZOfΘ>jD/#0aԨI 1"{#Z(Mz!e5ys& UBż_XrB ;2y19("v%O/ma9NթcP1sb#t`"QS`Fju@. t>37`A*3EiU; 7f*<]]qgh#RyRL}?)< 3+~Ty1uUe&tyI8O TdJh3\$f8;`ו(։;A̕Ce$̈%1X|W8{H rT:1q[P֒pć:%b +K$E~QC  DpH/ eL2h27Rꍓ+잮j¾2߇UUfqwd3U!"kh`-a"R5Lmt.؉w!ļgDmZˇQ/ 4EXl\zlx%^ܚd5\,KуNLs%9梦' (G+eHgZmeLK7z>|WL8C3ġtyGsRFNV9 ̮ώbN9z1f">S+.l:RvtrMLʄN6unMG_7]t'No|;_&@B7E]pN H)tV9;D%\뙴;0QC+We_I3p ^s._zLI4wzN"wT ?J`%Ob]jud ɟe:5U0rnW +3辔}W/"Δ:V-t."u]Uh rd jA/u@ZJ[@ʬ":]Eꊡ$j-a$MTWS`׀_]11Kg:ztN\-j>j.KuϮQ3MՋ:UzͣNSOUmJNe;w/QkW]?Jw;uu n V1Dn,?{+Kr]w~1W?#X?G=(ߊȬS\ݔ,_{2##ߵ{dm{lmٵvڮ'x3K6"k[˛+|M5g]?ΙP`tu/\ڷt.jtNۢ[O۪ ɺ~k#wb~>pjV>q v*ֆ> sx9(:^t=%n+…+sk"X*>+\A_4jLlHV WЗ\Oek|^$+ъڗV]X!exB^TAVH/h8_YQuO su 󵤉ۗDЕVl}yv0k ΁#TnK}yӕW ""H]AaO]-aWT| +DUj}}q]QAy]=Ah%vlB +ϯe . +e/;kxcm<``E|4;D=iYOjƿ\4F=pd;%P7bT̅"\Y{4iGP q:ྨD)X['L/]%8ԍ~:ӋnU{?Vů"u{ +J{q_i(_RT?~`bbawN_@,+Ps^JV E0Vh p +ec Y\I#WRSo,FX agUG~'*x Q4__]кZ_-ZՔ׉r䛜t~cV<ڎK?NmNNcZ?bZdT}[Z4(Z2.$QG*MO>Q_Pԑ*22 +xvz%Jq}KSk0հ۪#yWH.7^)Bkf髻2X+[PA @\mtn֍eQD4TL\7M~Ek zb2݈nA%ؗ؎nsڽtB +,d\7Z/z~-V[5ZUVa +~R~rlu7Y߳V/PVEqff]Wgr:鶈L۴دxj^fGdF)fJr +vm 1I+,GI%2W|Aᚼ4{17`:Dǻ&68pF+kJlx;PVDf(ec'u#X_ɠN4a@JP/ESM$+>2 |Ci"%~M$duh +j"'j"ds3 qK;DdizEr8*IrR()2nFC^0Y㧜"_TJE{)EMIE)}n@)EI0`^֍{/>U3srGs+!En0 pr+Z~Sd<_RIQXzHE~#Jga酒*ЃHr%:O7yY˷?|_p^CZO5=;k2$vi:TKEe(fE=5'әib;?o3extTSӮY`_H yO3n?+Djv}1%\Qo- ̬y$HfqoӸ#$BCDhN<-o=J?> +J(8%Ha{-ʸ”?> Ƭ)!A^b֢eXaPf)*DG@ˌP9B]Q!(LF4PK' a4# IGmRØc^gd聑3 <ƩggFW IA d30Ӂ{@N-emˢح4m̓@ <-c7o߹d n\ov>YƬeF!lJVF?34KSh!\&o -v[`e ǁN : fQ\n6"ML +53<\ +_DQX`ܨ۱- rm>~'HkC=6[HQO(δ){ITU_Hceݥu`,$Ş?E6~CFbYW$(w n Լ"j#d?a;9O =F +[C:JJU%#~Tπ gDb)D; ؁,L4P yb 3L2[ +{fޭ٬zF r eKFaL%چҙLD-qLqf&/2cU46ZzH@ ۼxU +\[ -ܮ BLdGv5 ؤ :4]]i~ +ˑ@+\Dn5'd4g)ʊv.IY}ɔG:T̑Hq쾦fѥ¼<%B +W7osտvZAٞmjO̻(JDc ddO;#9HnBҲBQ!28]fW.WBe7 +qt;|@N: feloFzv7"5iģMC{OD1Ƴ@wNǮ`Fȧ踶y' #+*kkE +Wq~KۢݏE3 + K9''gvYڤ=PC{NZl{"X1IAmE@iޔ:1zpЋg-] +Xl'xQ T]W0 :#GьTO + ExHx 1mN?+޲icy_A[/!rIen h"يDiKc2#fLLu,u|g3:3 =D + *)QL*Wa>=q&#9f!:ئWMRLP=q3+ۥ8Fo+%˙/W<PH\%Zpͧfы1XPT_X!%m>_$N]=Sb mѭ^c32mHE41bDzsl‹yCzeV4 -R[)RISșRCn X-lMvedK0>.UombSIHTj +5ErK&Ϫԉ9!DsKT/mX b֖+Ȅ]vLTMthi#rݑa2To~JY @RGG-:T7J +BuXz)8/S;#FuA 'bQE)-0򞶆YI@OKu['rW2hk l}R`X ߸`J0-I/9Prპo$9e݋bPuul%1ԀE6Yኪ)J@Z[2S?alVLMFĶ(=V}T=ZKDě(0/_29dDi2xUzL-jJ^!ʤK o6hC/R{(n,O, V閐LPef-ޞVR#*aH?3A# !VOӌEE̎(pa(p & {?iw1]W?[aLuj3[]$[_ l v[i5vH{~v5&iA<@Ḑ}0+u)ڮ}TEi֣_De|QRt,\->D zgEho&=yx^4A^I𥤇fHyc"q|^!죝J?;1 8Tk:,Sb<1ޜ]VIaƲIn迊(aT aUmQ(>ѪԤNǝIgVS5j)_ekIT-g9FW?{jİu ,5{f#751F+HJhK!N`;7n;||MB4Dh'j yiSQAaAg_byԬ2 jW`-TEe&,Ђp2演*#v2xjvZ(3_d/}Z@(o:s~I0K.:K鳂!i>XjUKU|{[b%U|X .vU,Cs/,Ufvjt37h|3 /TR-]&v}wo$r c|}DJGR/ +t-./j"U0㚯^._t*G?pH?96`|+go=}=e dCVGwe};0?:P/&ΐ6=$,h9'M60-?p x>8n5 th)f6@;9+^h3G>VH'/#bIw iB ac7pDMQTRa,:Шgi#y#҂U3Z! BA58l觴6Ay;gh@LM8"+ǣIN}sܳ&.j0.hi`JSHv@5/R [f19TfSٚxbU9H:-&- qGտ&ѐc{MU&i{g! eֽGQ`$s!!F6Cm B %Ín= ({>{9l\t|g@Qov!.$B6EN{.)+Fl7vuq mL(@65N + G{aD u7"qög-`57z:oP@#nu%B6l̫TaKa¢M #HbU#Y +NS$Nk-䴔"E#Ao<|/ɒI{ /\1df,$ v/M!v"* R[C$ {u.+~R8ղFp&죙,L/B,^[i9Qg6$&ĞW`*0quqYRy$"v\YaIf' +<,;`O-H(o{i +4Utvw!KԊ!;X]ʍRGE3if\^&pQS*KZ(aqbͱI^ǫJֱrЩ&H߅H\@̸B#a8_T8Ppn3mLW(9T}%ڡh*"o"f$<|a +9Z+D&ET,&S"T_7P*d#Y p_ +xJ~sE!(؃K͵ +X͚+]ON1h_y4"X8hV:|5_[a%Acc z|OTbbQߵ9`0oG>\{Cbqѵ -Oh/[xm¥X`Ư JV_a ukrKSn(hxh(݅# +M #.[tm ]a*ڈ&F4PKG}늻{Wl_Vg^A/HH:dµ.@~Mۃ6vC]Oo@ܑtHWgl8;1[{P6s@g9'goxLYp0lC(I9V{`[΍:Bwbg[ +ۇ'` B${a9h yхVEkBoMC; ?nuB^yu кaqّYD_ekxa]ֹ"3WleK  _]Yãww73n`_qS b֪=Zf3\ yonZĉ+ѕmUэYn g_udX6^Q +Cx_ِ.U " 9_R'[t|iA7wuD=!NO{طoP T6-`R@IIŭ}/ڔ76ݳ 5Y;~mזq/iyEͲ!Mܾu  WPǓz4_(ӐM|n1MJBʱ1=0@CQX?-!jnI)N[i̋'O=֏ӲA JC*dus8ȯ9O"L*}_7 Qk'wSɼH ,)pjGK%mh~Aߐ_zi?uΧ&NtZ}\QE$-:ֻ iz|Լ = GwѺf>z!/٩0< V0]KHVEϳ)9hOWά:ذ&,VTF!P}עO!Wz3̽#w'~ [v/Njb=ӧ2+Z(vW o>إOwy8`YzihZΥy|T!K>U$zܞf$ŝ+Lrm ՍiOPC HL߇_njv'c a:"{ìk y40`Q296/a[{rQGh vuZz@nWA)ur="3 ЅN`P_ ̝0%u-nLOg⿎4ČM1%`O1,HS1x~ F,eGqy]~aޯ,/ѻuxGWeO{/:?O3v{}/>>D=,t#.%'_ՉkÐflY\Ȉeܲ8p1P E]-p`:+ vPԯ)A!*X+iE$7$XUɡ{$Uy -@NTuE_"^N 6H"ΈsEl͎H$ +Os+ G1/ 㫿Mi KJKGf%-%8UFaL븓AV[]PyAi ȋ@8 ^ x|=Uv}+L2=H(,Ʋ"* ``ixwdp@?8̗ PڴP؞wDP5:+A}0RR>_0ŞW q` ӝ YdЀ7}0bb_%Z"󾏅|"-BtQN8`0Th#4Wԯc +yY,&0h\ )Cd;-qyNe x \ɼ2<1d|У(*3팩؀dYH 9QǧzȒx'7ܼ (2Z5'(B0FP%z(<ž +XїTÏlkA3iG_;D`c4^}oթu96-*h ?20f~ФP +wPZ{V8c,T4X(4WQV ?)l,ځd*?<18NqAVA9 9kjp Lw$FA'>6g1` ZKQ  ð!O5B2Qh|^r ˡ2ݲH/!kſѭp Rmb:y)G̟]@l *V-eݴ`*oA1wϯz_(!A]E)\EDֿF<_3&eL| g5-PӘ4=w!3fh@K)99y5ږ HjcAm(,mψbzfp b6(1B^ۭ 5ݡg" I6/!ID)Zh.ӠgbLfX + 4#&[uآvHCXr9ēo8Ѿ6޴Ъ#5+CvfLR9ޙ}|GٮQc?`.O{`u42~!o,4_~*79/f)C iN[&<É2pZ&%i0oR) %#I@fuENbA)1F`&Tm؃r(j nѺCbM|zZ&Z4vA,9@~Ux'DT8袕!{i<@UPshgEƴ8A$#UFY=6ҤMxš.MlKW k'PTͯ^nwa.^jT,q}p!INVIHÐu4 +71Qt}ᗎ()v<9dMiȏdq4p2q8Od>Beo'|2ahڟķeU$q*1.ZZxIMB=D4Ȉy]YF0v:v( +M7lͤ#nY=;@IemoFX4!MHJЎFxrvz(0d c'(ڇQ#h7AbeM +8aV|m: m uoԸ;Ll9}Q)9T$s1tAyf8Fپ iK:S݈(1zg0cW+)C1`PH2@ D23?|$ hW0 omf§CdY }p3jAJ^ {9%(@PcA@haSss%CK +lNKn9Rcf>laP=lAYU<=L$ۇY.J4)[ӊ/f셩v *Q$TlysjE5,^ҕMUdƑY:%PGَ\ [ 㐈F "tMRV@-na*s(VO Pu`/%@g)c=PP@_8bA8 ̄ A^B]$eH> P0 -P^26)y(M(D@Vơs[Vu_E;Ry +*Q̦KD^hUDKQDUp]TcP")bœ7x~tMo }it$E4:c@WD&I8AGDм^kC &軬 9*5hj'  v\ZZӸK}$=A/.IEtrfZztORB{LJs,rO^L䁟Ү)ul+fBXOXJ\䓇F6@Smme +Ǖ<$HN i$GGF}; hsa -T ?}3j!K+t Um= |b> WFcAY/91"3+!ArQ;_Ϡ?X_"3yh]>e*Á8Ax~ζf&w|QE^G-;MDY,4ۦ}/8˚85,̴`]K%[}8Z(L<ِΖ^GJrvi-!2+'.mm "m0Cѧ #m(RR=ҋ +"F6m*I&q"a!ئX-|̧Bb83q́5>]05 xkH-jB؃Xvl>6 W;h̀/Vt}p1?pCzeb\qfy^=.Nw9-YlxoeXWIxp%"GyY#`Z,v6€H;lK{h4$f>!a$m{N_lנE9'^ڽis^g3 H$L2O):@-KDrwwz#jp]B*.,B9P2`HPz.s_эd]ݦPS}t.53_ sȯx:د*uydIoSQx>kPrŧ<ϒXT\H7J=Lw,G00[W0E2#xO@aQ +~J-zF?Y4N>#O2) jac)#5[,j2tG#r7%_Ԇ4uECϖd9B/},ed +٬Lf13>h#1.1 +$BpdkeY(̘?UKv¼P.I2۶Yi_Qj؂dWL AWjWȜy3 ­vUQQGGf&8L:0hf-Dm=(fT +Ҡ1ԉu:ȜøeRb{~TVI^ +BDnՈ_ˉ0lj_U/M3c844j0b +N1Y[tHvp+)cʬZCj?SZ?p-t(HI6d +8FD.U!ZɊHr[o{8xC1:q̇^ǭ0F1s xeVb al =WLEf͙MFϯ\@n ##Fpc: &AQ5pcq%DB|Q2$08Q -,\O +ڙ.D+ޟ&(;xS[: c'@vmG-?-]jYyT6(sXebKPtQJ|l@ txQthE%`m,b>ʳU\I3iwe2Abp"A=@Xu{ +`Gﷴv)j 4ǿqˬtpqa -P^S KoEF5@R3y,73Y +z-aWF*Ҍ>(_ [;UQgF9w Z2nF䉖_eJ ''eFNq7!2Slk;MgYn}0QT̅rn5! @5'jZ֤ٽOh<7B \p$3ڶ +f t&pȄ$#Y +kDHYuD،`*1d:cXv $ybKpEŷwdF7晜ێ:*3.UH}a +hrcCĻA3wjdg;>KsRM&0Ϙۋ5Tc157Q61B姢߈4u~Ώ#* +F+2S35ئv+5# }AXF3d%L7HT` M2ASQc x62YepBE Y,a{y@mqF\Vuʜ͜ё "Ď>qCFZgZ$*t5_"\[-[;hz3G|JM|Ju臄^+cRz*Qc#ؔ +aJcǶk͔b`M`c'Ulفjd;q&N ĉ+`??@Q[;^`rey&rn2)X^& + Y 5wkwN͢0p Ƀ瓾fHI|}uװU-L- ح@AX sY;'#*vǛ Q>^&C#X ^1Z'$υ\iͳ6T!&*C0 ؆l${[bs|Mi_Y~ +FlzoG(*u%3Y>~) OgLŤ (UM{/h)v=gw`R虭5عd;/vC\|{?|Hq35"?6Jn`)!E063"#rb_#+ڮϬ!9w=(D[<{q2M({^| 7u=GL|vX]#_OcC5>ٖkIH3Kq6kq8ĄpfG{@Jtٰwte.acPڶ KAJ;ĥav#ň%$]1ך 3\y,R $Y!S9.֏K|ibMh/B;|o,W`|L89x_ph0lTiH(E`5a/Go)6iyr +'8KC)S]6eiLzWhvĂjS_$AI"Q̿ߵoTį2!T EIїf={S<˸C(K:bj%wF7"Ao!\Zl\&?e>k ";w:/>8bqUUIdƍ*X.wͬ^`N*9Eay_$ j5KHw޶Խ9*L +ڹc>ޱh0u +>m84n P=u >vKݾ+Om QL JN5>f2{ :rk, n#G\SFwX460(WSG?}^- o'SH{O'bM&2#wim\s=/1h +y T XVNf׺&,#bԪ*"6ڞ`M2Xi{ηFg!y-VGi]xm&}=kߣoߜB~%6}gƻ_b|{YUBxaV8x+"Z V}Jdd+bY}y2@:얃8۷x6ԡ.Dj;DȦՋ8hsDj4\}Ù9j.0pa\`pw.q}t]尃.Rs}ȷbxѡ}(]b_tAǝ +bpuqánguyduْ#lMFeOGhzk=+I%[P.ѿ/ ++x +U-~_pHg%7JJAn"imʏE+4,wa}Ouu7?ҟQYK~e-?1}sqP7Jn$\I ]Ekfi[:#Ok ڏMel?񭵰&\Mލn&5X`qNgֶ_k3ȏ2nJe SF?miO|ב>ťLVvΠAa2 +w +] ĮT̂X W}+9BHvbݵyni} C#HTk?u>'Mx\j٢mD:FksƦy~=b5kگϴ6?gk6p{7k'߿ p- +l{}fZ5>FSizŒD=<wg D舨'חWթCYZmZ`:2' + +IDphb f$FyOw 13EWr3'Zo,Dlhbn ~- TB[-Qmנ؛"qkYec_届GT|VSsrT{{>_DŽ!6/b>_:mI1 Šh"ixTvG[jZ΃ҹ[|h+mhy"(, TjZ iʴWD$ +rf[7kb16&,?C(PzLmY´G[[8;YZW}_~/acLKET%`%3BJj?0Oa|l1f_\Xo0?V!O7ҿ"A}y<.X,p7?WyWV%4X歆L0EKszK`yd^q&M\C6=HVZm`ԃT5cv755SQs?+E_d7C aSh_ 3Y%`ffH^D>Կ>p芜KcTlc8[̰.Ma9M!*kR+vazaM `_Y,m*qwRrQo`#~MyZLZKl+Q!"9#f<\UcE48@6BY4 ^8z)T̓ۺ?ؔǚ'gֻjּy9uԓ֗ +Wu.׎}T1nD~ߏur&zaak--s&:%~Wv)7sn:nrE Թ`ÝY>)0| *pCmTԙ%kHWO4ԫ2oV=j uu*cB$AͿ'lҲvR8*I8l/^pSqL٫Ύ()DN(\D/쉲#^uoOӽٓf;G}8l' +8 )8kgv +8/zVqNgϘpcSqNgϘpzE秎eD܄ K=i@Uc z4^nI0+2/Fg "-7]@a- 83L,$Ec&]hwd?Ņ47NRƛRʸUEdh'1e.Cp$&`Ӧ`t6/0laL/<}(8h(6_:8KYldf( ]3v2PF-SP +ک qY(&eL mZ֥IA!"Ɣzm?1NpjQtmY89KuGuG[դWդWԤ~ѩI;xI;w8դNI;'/'UN^*'|@''휡Io}ד^}ד^|B/'B/'z:+^`z^`z^iz ?>?;ûz$۳LF!Ƈ7,KN®vk2W{& N3qQ߾GRfvGGvJ?a ћVo=\!PbU j.r>i)7F D5(֘JX tn|pܓᓓi'-T3HbuڌBY(۳4C;-T ŬZj[1TXuqM9-Tn]<ލ*-=JOPew8B-S,&fύjAj4 B-q|lPU4ɯq\Rb +㚽j{O:3&YZ~!:&yeRI2c;DN%Q N1򛻄.teo.Hle< غvѷWZϿGol 2(a }p+e鑾D{*O?4G{ߏoQW!I3WY7Hhg!kƤgPN`AgJ"3xZ[ts#`ɏX7jaJlW_]͠[Z;2-OyjF< T3eQd0i.X0!1-dp&Y}OJg'i +3NJXs@VN}QpN1,a*hhJ(koR} oN=z/ăsb}<`pø%uQJ>_V ;2WA`c˕dHF r#N-PnM \nX3,@;s}@@TElG}8dSRj10z!u7Np+ [Mgř@~u{{2ngz<ɣ '~t`Jjw湍fD DYҙtDf6T>!hx𦵖2!T +QUaZ4̟U\AA\ ^`I#[0K!ҧ,`"_Y]tS$Շ8(uւqjKPH +,ܩ,sdBLax@cB>xXS-lIn4c&i)Ha2')A(4-rPXK"o,k!~^PDŻ bxVZcG!!l8d1TVOGV@3鐽O O=|Y@1-hB_5EЃZ Z2jeu/*b;)(TH1/TGG5!n ݯh֥h#Cz |ل-t⤅I)MspR 3C{hBH )ا?羡~A"/w/>?Sz&˪>EFb'SOxjNR֢̂l"?Ijgf?~~7\o:;0U8yNeAP9;;o1Yh~5SP,/5ʘPDD`gf>m3Z.H[>\}GV4dμkZ +g)/!vW?}piýq܇)t᥀PuX H9q\) xmPJm\ʔE(29cN7&`q2>JEP횘h]^?œZ_c`V#i5FX,눼Bw@/+|(-nQ"to ob3. 1wа1cR)C"&~[iReqG|*!\=P֤Z:EvVq(qpA˘!6t`2D|j]ΑO +JUa l{ U1<_7"֢(ZAH:CVH*Jrq  ;&0v$ A/:X +|1R|MS_ VC虒{@BBul'iȂ 㠖N{B ytgI96Fw0{j$ƒ`=QF IV:wV=(-3A`Ii:Eܢ:ƺjB,vbW0;Iy=h?, {)K!]a)+I3y nTŀ1~\d 1CsFOL c~6m6!(8[c(ORsT(2t)^,p5U*PCc57fN} L"Gx쫱,9h&cPITB2nbbE! B|oz7NdL#ߖNngGࣵ+Ŕ{wmqǡR9q.Η Gr>T (ԣ\DOlMOMB:J^ݵk&wŴR4@3Q^''=>nv?q`fl)>#0ҨRx.F:I1fL9Uډ\0 lw2Ö3b N 3SXz*QZ7(Ԑpt; Hm`pW*CBϘ[b?;F|rEΣcy}u9HhO\EsE s$h0Q +\/ Spz%<{"8%zRj/B_'̛[.1 Ｖ읾*( / hx +R_ O (}|ă4BOΩ\ƅJ-Y6@7̭T$r.̬A_)tנ[eɎ}8mYt)3 #pCy;DKI2KjqY)?ix\'\2q?89>7TZPs4fI]i+KA vʥ(l8"ŻtmBAtt>eI)|Q yծ$&R3M)r@í<6h +2UereM&)3&K a "Sb-b?خ|e, ]OYhf1KZoa +Nv#+.wdQ[ ̏)(0yZf1͒&zJNRHBJb(rkۭ {= MJ\ CZ~ճĬ\uhw~^jgF}x>5k+Gm[x7q§%'NʍWވʵvKnD#Gc;k۾ެֶ}@?CY2?zUv#5IRA `?H΀J+ü~!`HZ|.RY}dd cv[Sy A?^cN; :5xo܃Du)l£vP!^sߙKZNω*xR̀vICJ\3"KxH"^ + f_sy9 'v`*/#]@(yHeZm6ׁd$Wx{(zs"d"2 vsCt0 [xǣ:``m>t8@?eo{i1U 22dHfn$0T-9uO; yeF8Jڻ[ِmRŰ~^`0L7wQ1%,> !,P\r^<'Eף,?4^^ + 'vn):и*OP(-`G9pvIfG+H>1=SR[[+D('KgB{`%Gτ~>Atq S_Y{[,JG βv}320iZzQO_QA0 0C*ʣ|qp3w@ƮZ눺Pmo.5$BB=iw+|7_D_ƺB]AY_ʖٷWPg3#$ $%)HG6fpE$lncH>%+ +J;Q 7E&~zhsp _60 u)M]!K[: 5 +sm+69ҙW- +cWZ + V]5G⠱{D> Br!H|AHA脭 +XU(k:ˆY0K  A\hؿWyWI=prqWFzD4#^݈䝇Kˡon* *>f{fHB !ޮ% vh]. 򧋢hVȐ!C7vԊAN(V&J4+`4h`S~e`wxU2ߕ`y[FJZL*Xnt*yC1>LUw,gT:fx0|*A?kC_ނmo|ކn3?l\VB,<=̄H8 {7:s79sYY}CbqzȅJS䢬x'Cra[䖏WW |ud>~^hWl@\u>WX!z/璗 }te[+gl+E귢*}3}/[ls"9_ѯV8(Bz}bNJ/~Q=Yʾ ήb ^ JkR/e9+xsWCm ]1a2靖敖n[cb:0 na-!}= Sz5*nc_Av!FIE(+qWcwS5Yٿx\ [nȵ HҼMGi(` +լM=$q6Ɏ^/ +JiL7I<Nw{?P)ĊTCRM@lslYٷAh}."ڍ);dT#mpJbxc[SΧo%N_%G(՞6ϯFk㵷Aז_w#x_|m6s6&Z{n.O8oVCzp_Œ?&Pt:g +3w2>D$A%&i ,GzdI 3cya$Rku} ^2Tktl-?gŴ<#%K@eԘ+^}_s>Hz-|_jff~~W HT^˥iL-hȍXNF'vXU| Ɩc~C +@muѩB-g(l (n|^篻Kv-*[VFSmc pkiW/EJr|eiyo{xů\ -bAj_OhBMRm]q{Ӹ0_}H7u C\5a9pk6 E嬧zF^WrKtWm|AK(+ZZDg ވ zL]ep$Tt"%ޱ`0Ԕ7%v*W lSiE97(uƩBRT82CZCq׮ y5T-Hb TF21( +ʺ'LEܒUMtGBJE!kI Q(-tDU-P7 +bU&t.k9Q"iKGC_M`}/"-rRFP3ׁo8>oT,l41@CEz>z"VunVRE=yޞmHjZ)eN|2|13fus>oDQ3XC`#ĸV"TZx* R4J;@rvF9D%zWh 9#fD\ue3b^oEqɶ _h꠳<1 @FG<%u"/_p;E!EH 2"= zp\ysGjy ou4'|1Li+&rߜ^#=v&m: Hlz_Ow/əkM.qu/ކ@[uN yUMg^År;!G܅6T| +>~m;|/%aմzARwnnJP]Clc)2N5K@2,&M` +mfn4G9_;CK%dy_ Roib=.&}%td B3Qe$]Ƀ{*f LV7BRUq'vaYbMWql{o:G,bKAH!Nֺ4/͖1[BJEIrzK+ +@lB:V$6v]޵5)g7E8QdK/Ba{FL0QTKdiBϡ&328,% 4:! OQ;f)f@3- `ڹa2yYT9i=8ibdȲN=99OI:P9e\msɾ!Ρ\״V!!/ q'o9lc!}Ckl ,MCƎ(B|F,ARã]~ d ZH(A27I DOds`KH! Ա;!W*tŶ!6TE) 1 |!AGJBB%,r.Fq0؞{jpgK3&:xQS +~OXtvr^m˨2`0C^ 'xW^\k e:N8dQJd),#^$"^A!)99$t4]p,G;^0GD"B+^:"^`W7Br'y/%1B)Y6`+d#K({ْV[Nt +I$dmۮB&a`}UM@3 S W̼)kd+CmOaK=.`gG0h|яx|7"̡:P,ٶ ̡l(`{>[j>f`5 +1zxx@UQd*9/2 A SdЗa`TRR|=NT600XsZ[ڥ#rO`-IQU>=ͣ 54 ܗBs:MzEuX5zqH4mQM}4H6:%h>=P6`v̏ UMSF]Fm_??Y{kL xOwҶa `%MQ) ;'j׫I Bů3W2##??0A( =- n|٣=̿FW?o_Փ|M_x շWߞ'Ŕ_(~:>CW^ckDNfvL1!-| ڋ&Z32kҿ~!A5?}Tʒw {vs e8K,nءMbрJ ,rxOV/ȵ mB42SHyƍo%),(ĩ;EM +$BOI̳U|:JG. @SZ@Ҁq3E_*Q85<ĭ1{ǣ1Q@eAco.߮XD!t9_a%EXD +K 5$FπRi1dA?Y^FK' =i\ׄU}̙Y {Ο/@}ǦA|Ruf +u7zq+Vm'Ĝfu61 .t4Ưu {!4{^zrGw$܉O帗eZc2U3ƽ(!Ҽ6L4$EQpfw0v)R]F p;H'W~H*qNc34ά'_In%;F|˟Ify?PBl%z "nh ݧ9MHtCUMEXQXPA5z,4ѡ+4™2老ɭ.]h(RF*)?Yx,|\CW;B+V֏tFcgQ&Å8 1@孩]v}=ϕ{Qpj +\ī$&+۰=m\b؉\"7Gh;ja1^k9" }av&@fzڇN%YÐK:HY9u΄>į {Y+pă +`UCjeH Xc+τ+O\4/O uݤ5"ª8@h(*a{VKFo,1_ȕr <$xFՁJ>XJ\>2DgeoG37 +A2;n)wC*"ȀcKgGj@U1T! v_+H[̯bgQgRƤ79, }ՀBKf{`ZQ>SL@2V]GDLS94tL@䈗w!V)N +{O)E*3'h[44Ngs M$ Jw+C:g68HS{*:-΀'ReZ*2$U|x}c, +Ȧ*n%v'+h% `p?Z } O?3Dֵkq<!xsQ"3(lP0λ.WlʱA⥠chXvn(xA/>(@&Jm$ZZMBa@!DD9MdPEPiB#Z| 6OJVLA|m#ؠXdKϧNw?7OT+yDct' wN.P^` 6yf?4=x<1C%ie@{R3̏@ǩd|S!˓gLq/ZGJΟs깣$Htp11 ҹ${-4D^j2]oVS8b\|Ze\58 l)Tģ( +h1]{.¤SPT@3^I a<S {}*x0 M&>.|ONb]}͠hzʄ <2fI>haM=?vbh+K!0;gR@}0(LӸF@6#Od0rS)wwc^&؂p97}*՛e!b7$JsY_[rl@aiȅESaݐü9Uf6U$6Sں,y~vb|Jc# =Bލ$`\1&y_ 0mWb] +W L]Ćɧa+iZWcԵE+r!M隬Ly{v"/!.`֧9"Rx+7Tj\9N{ +tiF܎/N8\ÓU"@^[O$ئoCP&>( {ۡ#裧 4yY8cJ{8,xK+N'e3ԞKJv֒g"b*nKo n~֍-ӯ +`M꬚s|ďbZ/7$b7{Zq))Xb0Ț|TeQ,wWxo`Vy*qĤgfcJuvdY;!A!D!ŷݠ9Ҳ +7ztcaۣ>8ɱoYćϩrY-_[:L'}3s͸co%sӑyʒI2Ju(O`JJ-[[?`؇m&]u_+16?iKLNi!eKE2 C߷!/cBj@/3jXױi7=88{B>%M<೙ 9+_1zPk7^K!~ Ż^|O=}FuU>Os+!<ǚC\3Q)a(m؇aH١{m3ލR:" bܥU4$y'cûwxu؃;ߠQ@|=LO۹. 3||}z6oE|,'IjD&J*n^&/@l@$/[(1Loޜ,S/-Qo=v];AὛؒ$6.n qi<=LE:VRQ$`CKi醢= Â0Ls加mmOF'8((g܄3$FB(3vs +endstream endobj 448 0 obj <>stream +^ ?Ĥz'`2Df"m0xGDlXTPP*Tsf8 ~ mo`{+騦EK_E7;,[qSfQc ;2#& 4@YeȖБH8fZmQ}]61^i̅y؇]y&P*S?C+5rj}ֳ$ +)J(6LS>$,tOo G .w0X?HdՑ=ح{J@L/DGnrcʴ6^\.8B$D~bsCS̑^ چ_ie@4%f˙Vk7 z]q ć[CgI+= znMѓ{a.~JgCqTe'RFD {vKɻ~6b,S%"2s+ TW&VtXoq` ȗE 27J@a|dA4"H KJ`|>8!7uW!LL@n+prVPaXt<̚^ovB)p$0Lك~~q`9Tٽ,YL=3JH2z'-_=!PEC,GHLRٸS{5|4*_5hK?+\Soze2]D}5!'(;~+j"=}L2FkzsdO7drL-u|$HN=߃ + ˄JYre}Iߚ^S_<נJC%e7ݙiZ2AiGAPY KXX)%4aųc)Z1atV[L^wb!2KsϏ?˿_~ok:Uc%GOZ<7:7(?^^o[N:z"Yg:,dVqͦ +6 m(~%Q^ ]ר%oQ$!j kBhY{n?IfL~I=%4`bc:YI6QQl=wT5A$8%U@~beV!l,aߜS1 ue#LM0,g6UPhI$7D@JYg + P.83~hr; E]zJ,wmD@ʒnXDDEbT͚{K""+u1}4OTr)3+h6-&\Łң~冶n'PiF͍!f`REoߟ M ,*}Qg԰qR +#袆r:gPJf +Lpc0kry [nq0.>K + ⺆=yǻ-XSq*:ѣOݑӭiLj=VFgKCָTta^gKDHY2z% e ȒHC|he߭re.}וU.p2dWe859熸e6xY ;ڑ$(m14Hq~#*4"Ydz1>.ƥߘ` Xի ԦY5udt + lCw*ʼ;6ub}؊M"w Q=U8*# ktun+- J +;܃CTHjd2a2܈{ЃQ~)R|[eX>}6c+cy~9wqyfhS4AA,Hz]ibYժ8x̠S{xKP^([5G:8Mp>Ӵ˟POaП.VG&B}N԰HWshH/w@I&_9['+aRNCOb# l/|Lo/8=QWA2htFp*(/=w݁eA0lԌY'*2418&qIQ񠙿((0ABDePhU7 &[Ϥ1GAOk26QxKX QҬA>3$߆vѐոǕ +8nnd͆\QPf +|X9,If`ˮ}~@$Nj韸B ;a^HAbH:P`$uSCc7AH qs6-e j =Zj*uXIx '5dCOF=n!Y61P${~ ?b)ayhbKbm]*e'6RYgbBejw˚treXR` ieԭ:@6e+TȷJXBQY(^2k)UFL펛EJ ]w`S@IYmUO'pD!*'F$]u'-5GB/f_cfRcueU%XPY4HG4ۡn6f$XvtnM}!5`DNm@jtMd>hPuP$3ӐDPx57= 6'fkqM!" +xd%d rER1uOREye + j*YkI9$EX;ϵ5yf3CXe%ΪIg\3BS$Z-:^R* 4TQޢ!5V l_u9u2Z#}%Ke2P 'x՟HH~b5u24u艥KxolR%CX 0} A!@eo|7LC4XH T_ DAkK ֕ +y5>ۥy﹣ #d>0/9${rqlOPI0mx؆ua [WO9TE?{ۃOy2ǃ5AX^$A%c< DĠFbo3z!H7'-EPI#aYٽw짴(0ldnEQ9F\4s/?7`2]' s]]vIAUS +3va{qfr%tےn8l٭ЏCWbNL +҃"әX%Y}12 pH83Uvy}=qj'TlK 7-qw=&Nѣ9L3ۧZ5!SM%kٸt@ ]憿99)Q8:])’m!VEԮK\~hDj !;'J\" "*alTHP7P|/tN"[XMcO`D͸nSP`TW`#M !%I Q%#1 K{5[m r#ԇVVL͚@jbb,KHwzR=;!HԒ0/rXCȥ!W><:Jޢjcdj?,-PJALoˤ`z4UݫZb2j2c>J{Ru]0j_ *隕JNYu w<9myT \[Gk#]Kq ?OҷgD: I]&yb&bР,8Pr].nIռ2bū8Y?`$δ|<}r`qiF~3+"nC˦0`}g=>kX#an2=q$qW z]ߟ >kpǹIsDKy`KIGAK9AjclCe8áGE8^|K,Sg^"=-tbZ,1νJbJgͼ.4ATiU. 5"l 9"Ho|)Y*;! Mt +x9TNK+ü*/afSwBa+fPVձG^t{'J5 ɻ;(TF|/qO=Y auQh+C}a]:E[nםY܎(RW|A͈觍궋E򇪗?YqX?='Ƕ 󧜕zq85FfY{d^R\K`7m+jLumݻry|-݁4a(#:靟5:lBuli0D=Fk͜N|1(1!l@)./x +=vST\?H+%nP4/ӫ$5pDRlpIT6sCVօ ,#T2Wxcyf%J׊w S,JI4[6i8G0jֳÑg3ulQp*dǢaZAQ>տd_ l$+nj_9Ud_8U)7VK)6c;Y{xFlׯLt,khOoe/;(8j! +{ h5({_=c{Xa' ͪi)9 DѰ0|u209O^(9Zh'SNr`;YE7 A9р({DZHӂN9Dkb$MIL#Kp_Z/<7t̆ʧpU%'"ӭjL+=Hڷ[+3qEh֣Ddc03:aŦI9O\<iWQhefU TxhOJԡ +?I=R=l '_3W_v 1Tuka0 +aĖmaCL44LMdҧ\\ݨ}ڢa4e3A@V=lF2]a.+XH_,ku#"QtʼnPPL}ŸJ aT1꜃ TMtgʓ]yR@9^BPꦏ# '{l)Dd6\䃥ypP'~ry'ϩ36( .o.Fy|n}mmѤHlA:Z= +j=4Fd ?L[.f(x$Ayl,lS C:_^x=@8c}9X՜Oe3~wæWvժ^SLE  +ou ey_[IzQ7ԡm2TkܺLhG67LĠ"֠+ҐJ)x0_mF)l@2+ uhӻ;uh$ F'o=v{ee&!m,̛^IJZ 9Gn2}KB؇tWG Anx=_Uqс_#ejуM, +yV3PPvgS/Cbr."Lg~5U8 >JF$"r&P 4S%FjOY%3G@)Z>\΁M魇TSDu]{{1}6$ND ̽4f9TN&~7I]b lHLTpߺ!*o;+ 5,"B~Kj!3\ϩz11/n䇕4ࢇѷj%`)3olT|:9`ص6]ndOjN5jțRam9ù-LLkfHWǯ\o~9Y)w}@S݈/FMEieK4 y~H7 6VLB#8Lē^E%P$W{ZÙ.pF<Һ sFSv!‡Jj8u_Ņ*)N1?b3{ K@Ǎ>AQv*".=\QN KWcW olP@=Vc۠>"AVd*K%cGBr@OJ-BxʌscH Bq7߽9|ڟf6ђMda iH)IݎhT}0HDl¦Dyɡؖ/y~wBz^Lݮ(Nh-ziݱ`3V6xלNDj 6=߀xO׭34P$V:|$zJsMJ šX+'n +':BtROC^Wߡi氰k.i&cfRTi|mYU/f*:L77Y= ٫K3R4 +Ic悾_{4qױ T%-}Jҹ2M̭) j1vj͒SKb_Pe )1$d:\;pxFk ݡwRi' M"dE (XJlRG# +w{!ɓE y'VBZ9\BkB{)՜iմ;l\RO!%"bcPƬ ;KP:AJ|Znʹ`Gf)5^0sϗR-dVLAS=Fp|rҀ&y-2 @=7;7=NqSި>LدTUv3Wʾ)vw[=2Cmw*4-.)+uؚx҆*hřdа*/OL3~?Ud']rm{W˯4!e $z@M0Q@4+LײYdk&|9vAab8hyX`tXnLj=R߄#DkQPZpv~:04?39j?Mj o:h2QVQINIB՚rCNd [#IӯLՂ_ͫdOog)1Ygg}(U8&= +eze[WQҢ\Yq +\=,S.Db9G U<<$;|p/ z=2Nr:`@DpB_HY~Iu(:22h*kKzG3ʲ4Z1e4kju \Ͻ繣`h {1.[z#N2h)\ayG6|pF{ʱ\5VRatV.ZHczzf">s W"ZH^jbC , 3lAFG+e FsW0+ 0'Jh +ƨES[8WLɿ[=3.KsxvD X޼43[-r_otW "G}49jS}+}xh|V(jP7Ԭӂ5'875n`Q~+viIC6\PL!=Dognme~zxK+>Wg4'V V:(i{}mD?{2dC ԙ%#+5pQuAoGZ%"pNo2_{\',a5&IM8RDzm" 8qA\4J4i@_.Ti{hT翧ZNr &5T͸(VF.1T'|;&]6z΂P9@+cƽM&i3sMQlUg"8>"_~ԡhu. +˓7Q2,yidOLob|g1idhQē;"cy#?$@>tK ʚX{jU7+|3PpjvaWUcy}WXौі$-0Qu(}c(2-Lǀjdkzvu7-ŹH*;=?+g[JDH{jzٱ1#\Q@:n'IS穹sAGm.]( HrR:f**kk?,8gl(9s1;6WMX$M`ՏWd)eY"{tYC,)> !KHaū[QDɐ?+mD +H}V HAjLaGCZŗOGi˘%?n|Ce*sa-6X +~h1pj+1ٓ͟?@ost-m~ٟ|ۿo??o~ۿ_S~o~?7?׫^_?$՚(xĠ#H>=&I p*$0 SORE$6xV)nU=4֟m5' ȢUT̚ =Si \$P Vݍ %C(reFhO]TdS#B5ѣC=9ΨBpXB ӬhA%Ou腿SM fGW" A/A5N^ #f2(tWx4rXZc>٣w>) 3KDr Z<+Z=Ⱦ~TX 35,ߙJZ? u+k bzO܈{a FLN*+ La [}L +ְǫ9tҤqQCA!$۝ZB9{aMI/nn}<< +37jbQk۱B!ohZ-)[Xgs(D#+UVᨃ+Ȏ9L לYVȲ80l=l1T[bzJ8Jv}e|ۃ'}I5 QI*84O*YPT[2Ј yʾ!{U0֏)J;!~Eq.n )$}S?S3^BK@3Q4DMͲE)twxbDz4lJjH!yz 8*>b#&nZ&Wc{-3;ę\N{ +Ø}݀O1^u#j:_@%״.7"#k̊3`E7Ačу=G3$R6u"|ٞj'hD0QpJnwE5HG}YG$kI͆GILB=b}Qǀ%$A 1njO67r?IDF5%{>!>BJ{Lj8PÊ@! 2,U#{]c`cMbk}S+2=(.GZ5jJ$[Zw5D}Ի*4[A=]C(jRTY+mӰ/X*Z騳U@9-Ko?օœy>(W* + `–:zPkC>c0eZ: [rH@Y_S wQ{c=j{D$A]{Q@9>7أKdjy[hhp +`ǧ7DIA9Q X,E)USUg̑Fl(xK[ZͦNo_?=6%E8`> v^M+R4@.%X,Ikr}D5"w^8Xyj 9YG9a?DٽzwuvDH9f[놸4U9;DcQ,Dݰos ̴gWf;/[ؾF@)ħBקG%/gXYXpUqڪ9C ,/{}s) f$BlͩЅ#ͅxtpCÎgB*P6lPICPDe]xLnCoJ遁ܓ z퓅0NDh>=%1 &9Fr^-ݰW"E9ϰH"뭁4u!q;\q|Zs|` iiwK+Y Ax=Aꏣ#CIg~}o=>+`Vd3~&0罡-/wHCk&X %k^X)Dʫ5:@y}?:jDI˲Ox+ $pMdr?Ƽ,  _ǹ) +\s:ÄKZuϯpxd0:28'⯭yj,0G&C9&){c .({t[BP t9ȕ#p1lʇgPn!bP;ִҍ$GƗl[4tbgc=Y-Fr6#X }7\z=npPp7SZƈ Ph1尡07XGGD@Q?7^4 إ1'Z҃-uy}v#jv͞S7a ض# +%7?xjg|ᜆh=)z8,T4fpL'"kNPF6p'-|HurRҨ{Yi(tf2qwk}kJHwK+`}. &ZC8OLZ"hx0ͣ_H \vjTG] mߙeL_LsmcKxVw"Ȗ"G3'nˣHlE! ++m]Wd/#zNSn?@oE["~΍;uw |fp2#ִ ˒dUM[=֌">lP*! Ys6MEDwczJ\%G[O +EY0^Z +h:B=p܋ޮ)H NjTSu2ۈt&Ej8M5f}VYWC?z!Dɲ"Ȓ% ߥj{ {FxDqS~q}YhZ&|y=62T7~Sy+otne^j޴lA /ֶ-M1NN[!`4f[*IYQR - +5\EA hkhdǐi5m;Y0י\nJ+/;A{nO@rv ?QRH}p<UJ[7UՑYgߩSK˧a/3TJ-f+In~K1l{7jBr/@@e'Fi*d3臢ZLI5vlkd:t6Z`NfBmk[h=uDC[2X1S%[u-NLǫ0*84`qP`ism! \ F;#r$[N傆 ܫBD +y rAdQa",-R~K]AWhbHáUe85s MZ; TBb9Bn<27rTL`̽= ؅JܑP~sib`Qu"{M7*T<T58O0B~ӀJ0#3Œjb}=a`lNdl\b(`gx'ѭCavgё:<=H9D.}Ne" Q!9I5R@5Zz\"q[jH]GVBwN%2_+SRT6QxPsJ[/FWL@ٚ;r?P#N +,Z쵽u[0R.aFbOa*=ܖh\™gKk!Kn/&a̖Ph\[.4S1nRfkwF'CBnܓ@Bw]=v1~m\3!FB4 &7= 8c5㳞j!;,@ț@GWwA_a= _r-muڀ"eB?$g}I$T}IW5ؼҵħ]8*Eo>77t<s쐩>!V*)+5 Ҧי +ЊǬ7=H{!cZĉWJ~YGI +Cn(}w Yo)~[̔ydVe@vźyFn@{_W侪>R$l wşa2(ìKz=_A#|B@)|Wc-~e@^7MvrSHXلj^wIM8@GxS(_` Fȱ ˖VLu5ZFwf&` In +j9:: d* 5qU6PPJqx@$cL++Z{.M"ۜ,$o\)pG%R/1" +Fl镖@H:P|2<#;uHVr{^ZA#Z sEejR΁{a5/M2$J׶2 pdM-7l8􏘷 1%PHMzM Bm5,B>vŝ_K{-e506kV|߬+{XϝS^NZӉ?_j&)m,+xQRUipdOc_vdY f0/TƩ܀ثr*Χ4KvW$aVrK2U\pUl71TO|Ri!;PTWnvvK +,'Z.K<#`9PK |}O:8gFLu0e{ww)O +i{x-Tv;Jrt({N\AS[.ʋFh4bf#EnbX9Ґrҳǥ)c/J%EWkBNL "\_v"|MIJTچUa5/.OU|$UQPkG#_D a8O9p<&XPuydȨր04)j?~Wl2(:n4axtSXT6I\EC=چD-OǤbp Љ) (CِWTenCۅd/"ѣ+OJ5]pBh:!,k*OaKzGl_Yy["E5 C CْpʛbvM6vHu"I%~mEO~Bc',Y}}PCͩ#ɝqf6< +Z`gAG/ 7߆k0b xѶq0v`O!uBe_L:-g 4 vlK$(!~- +v`OZTI?7f#ިA{O-~,I*L~HG|@jpj0%Qʣ + +2(ɮsa+qfX\aX"n0,T{%dlnKc`8Djbe^;],ƍ9h`$YEʼnoPbXV A84%E&T6Or׵$qWYy%=꼎.=_K9xyi%ܵ %m~{xߵ +Q{cPNnSSS<{y.oUauuګצB$w@m@{SC9= +z>=H긻QĴ 4X8p,sȓKZD~^hM0tnnkZ&Z+.t,2} HIiqK=C#wWAbF$|&,dE!W1ţԇ,;sZ/ UaZ7-trwg*a]7ݴPCJ=ѻ[1+*[A C*}] ~%8M^Xza7d`Wr?IÙ|!FeO+U# jnBLp95ZtCl%i +"/O,xSnǴM +>y;yBAkK![K;OvRA-$[LKX8|j"B*+ؒNQEC%?5c¹b +]Lg#Y|ZF%%8g@Ma}NuJ=ډ:7 b 8|!bH1N(lmI0 "}/b8"} 9KԾ.-&n`~ʖH#qlqxOR1 РRnE(x|sՔX}aXyQJ8.?Hq3!8Vn+SRyE!. WelpQ5_ t5zr^p*Kvt8`$錔op 06wT( +#/Re妨 I{g>=#+{IQ$Qd.u t3y*IPvK8 +6(8{> +vj)cAF8IG6JǑDV*%`VG cZєb9H:TQL`!Nf ״+FCk* +tֹilٞW`@ybKxUA(ti)(]9npXD'H(# TT!Bʸ҃^Qܓ`^Ti#TW-lf +~PWoe +IG u$ IZ[m`ݯOs釐kf:{0VUUAs @Nxy4=,#QTnJfl{zfkI 0lP h NWԎseDM!v 6Yg|$׬'d&J}W{)x0 suMiGut!Ϭ(vqR#fqY# 6؀ՁVu|stN(̏!НS~z\C2_O%xibuS|eq5K J⦞#_ ++tzt_p!-F0y{g;r#Sh0ʽ{&|ـ0juS"9 P r# TAڀRE#{3 YʥaO 7F,j7$;dtCx'!ҙl~ʦ!, 䠢$6Ht"Y;nxhDM(PˎF(U!ʐǗ\,v׽gd yp@mL/eMt.(,Dȝtem2AB7U٤v([ *6{;SLaFKdp#N"{'E rKM|rr +qa@Zr,7eFd 1.~z h0}u_H+1-urir` DBWq5F]}ɫ[N5!V!)H-o"5YoAE||GD(?s,4-O-C( #(J 8>?W4¤c~re*ئ7U.fpr }ن^e5kـ}FM-nq4Ӱg^7Z@F^Mc]j;fc434$9 +h6lc~Q#-E + F:`>ý&P +jYK e+n-&a$Gigp\lG/{kƾAW_RIF%ڨVb( N * +[Ux21k|SUؒ;zmpk  KV4B=T3%%)ڊw38%AI Q&9, 7 һxhm`Z lԁ^*ʹXHGn&膑;{ `iԩV+Pr_CkLTʚsS/S,꺤1CvjxVq0K%FL, %m < )dD̍8̽t0jj0}9܃ȾW U?o? ,,k<&щA![I{r*"E?9'%6 ȼᎢkDv;vM'/ +ϊM꤇~D+D !m"r ׸l@OnPPUJ(t8)]&ױ?O%W%S׼yalEOM>yZ>ԅi梴|O(ڭuiW~dzy@ Щ᦬*|^`𣣛na+b(O݀Jq ~:O9_Սua08|~Ʌ*UBS"WP+Y)$8 S"ԃ>5BҞbݧ@/=od^@6x i*5Ep)2|y*<_T= l-1"NP!(zD!jE1_n<=RĖyBð!)߁$tLYnIh>YN +>;Kk2od"]G7$%'f$b,n{-5 'ЗG~] _iDDKÏzgxdB@ܵ(s/b .Ѵb8zG7Rv? wR6B(fQHK5Иϙf' t3RrXdI27 `ݛ)IRkFHC4փ ':"02{@k#FP*3gH79xُD&{PbOc߼zL[-+^Kݬ_  u hXva sy cpMuC#P SC~3_JB4G$= !~ϳZ#p[Zu=rthӅ݈"Ad'Qϕ;G8@DŽST ܓ^ +/={3+ Ju5JR+])T0|IP??@o>ihf»ĺI+/! 2tO@/{}/Jp1ktG;N_=.TmH KD +W9vx3T:}\Wۓ]5K8h2ľH ާJ)*#_#I@3(`&*x  +5@RU88H #pRn)/Ў_X^4A*ccNu9Pt 3c~ǗE1GxiZ̮y ܌*^UWKkUHX-dɒb _ +:u@g%Gd V@7ź zG D6bj,ͪp?dڤp9a`G=ȔA*̦ɇzHV9`hSZ[9W4X'|L{̶&WJ!j]L}v2{BؕވPs/Z7;'ٜ=Lσ鴛n)ԥ+jqnB1D?OݦT2QoQ>{(wP9BEv7 d;GjayV82PN|n|Ȓ7 +hL$@1N@yL[-/p"ob!<P~׼Éew%Mڭ rLKJ?dF}<>;G Oi*OɀJiK0O13tQ_ ub60\L 4\F3T#-L@d^Tk R.$ב*~PD8-̍`򫰐{юB+!cxt}<^QR-vM )O`Pgs%=usn#l 1pG鸕`WqT("+ԍIQ^f/ɸG +=47@]m|w#mFICUR齇A}8p콇G7^F2J8J᰺恍G\H"Z=$Я!"Eۗ˃-w˷=ORn Fa-^JT$~4Y ydO=qn_ nvC՜ݚeJ'j)*|@< 4jeYu/7',_RTa{%Јjedg3Of>6lv{ZQhVX '>U 'h=7>[@NEhlz$}K0չ5Dz'Sf1E^aCJ+8vs Њ~h +2qPk +QaA9`toFtyUׁ5>y`_S]aHXO9kI/\Fso*dǍ6V+X] a V1wha=e2d9GY𐠸Fh3Q|}3x5^aǃjDyϑbֱX!` WşIYcG.56U#bvTIx{,(T!Cr%AA+`={(e翷&BvׂiB+ҭ3~x!N +;m_tW + VRȏߞ[? +ʾ[mH +n KAg$vA?Dz}--069Rx/\=t#IˣNhGMAۥ5"5 +S̾8)ҍ֩&YnюP#*;4h3"wBkP&^{NTE%u__W  ̶~{+=w`9 6dC襾Ƨl<\3 9 Gh{#dv8 j8!` = gnA}})&d%H#4.?b{ҿh,Vհ{0/4\1^_ۓz%sسّ5Zޕ'*L?̾ g hfH:|*l^*LРo )@n=0s<+e d?qr9N~_s#z6(R4yRyorm>_lLQ$b]=T9Hg +R?QgoJT!攎C&=ځ+6 s[fJXKi/ 3PmФh >Q)oģvSho5%)p_ B?,۾*t_`,VZt& :5'6v Ԇ)t'b]:mYK +`O,pқ %_մU+96W/+B"NU]* 4Ln8? 2}Vm#XIy#iG +kYMQFT~l%w."c%^gٰt5CNc9ә\\0 +&gOɔx7lS-\Wy֎m# 81V'*q(ͣQ1Sr +Y!d+akU]wN RX١U}cQNZAE(!o͠iPVbeP2OÃen'!^_#̕ޮoŋ^MnieQ`bǡPL^TCHN:#T C,F <=jF-mx~^"u[-[G`dŸa=4ȿ N[kO7o?oϯw~s;_?ׯo_~*ׅ[xAM2 -hF0m XPؓ;&!SG{"ÁK{A0,߳EbEd?+uP)c + NoqT nh5֩y} %2{_k8;d-j?ЮhP:N&lx9 +H KܠJ&m+Hø{g^qAV } Ezנ9[=WVYq{{wku޸":4#8 lU<^պT9-΅Ebg"> )IJd7 )$1|Zk>nl)eUbb::CEP@C!^L-:3_f~YaW qFLw +*T{~HX`Wp<¡0#my9@}7J*XFkoXf/x4h#SaFI]Si&e*=͐Cج];rk̋"$*r@Lpj֊d5GC!(|{qeW+z`F߽NIŋNf]l +%ٛWH84 sS%ce^Sw3@KH`?K]a}&HsHo@ uKG<() QPp``&D E)P]#`9^XcI8nCݞw" lxC7(G% )$P"r+*(ēw&CxF_t߸kŵ&mC @sX0:V8^nFqGaW{e$Vq_Su #x8!C!B- kdu TX"c) .(7^>,L]Y=!RHY6LQ BQw4BiSyUH ?vDZR]ԟT#4}): QL}4&셊L `/߃/28 f~9VvI%] +g,wPx{szAIp;9##0{}!g_zLtPgB J6o}IMNȡ@G l*oҿԜ}jhcQBzw{||% =+Uyq㫭ËC=YKr( MVoOLZ@3L z(1rgPc~(DOrUD-8b$lZLv$@Xx5RL#*NΪ ըq!sdcFnl>KÎQИ V*H^OO+rei4 G4ChafLU *Y0[|N`l2h *~˂qɘ,R^S,(+gGv`+j RW;8Vma ?;G+38Z2,lDs2=ђ+h`.75n-(`yʀdGSxb\v%ӳdI(YDӐ;amJo %yLz5]-r R1z кo뿗&83Gs&٠M}zA=CaXoz;#U[aJ!ĚD~OxL@-Ghr ߤ"Y +XZ 2ס{R`$(}ƓJQøl>ϐE)X{W+5=WlܗzfM,f6ȩDPzί$Byk& {v ?m]{oE}VT\_/fLReϟ!Ltf4m`O lZ7H2coT0 z6:i80Íܭ:TŰ+cz%"U;P* "4a J!Y5tśfuBUD !:9 Thp7ƴ4QQs+x t"µ]+>R'Wzv+qqD{-(0L. ?6_˓vƃd": aÔ('K=g屮/KVK)vݐ)T|nsA!#T`ˡnl0[akaC;,Ek!b7 $ݰ5LFl6(YAb8DN@4q䵐'>~k2g bTSuexF|}ݥsRAik1RC4ᗓ{+L?u\Y;Vt6l]44G4F5,!YOJ#Eg3G*&B[3rVe~ߟG>&".N/%*}6o*>#*>.ڎ3 w;70k8g8 0^/iAŗEJ[f9K,c\dW[h^{*dLTF>^ !IOp2 +{m8eptS%ye aq083:1! %2܈s;4K(\ZUArI dSU,u@:fpovEVWoI4uU6=L  lfiE&ƷA +Oݪ~n{f88:SΛl8`^%Q::Ɉ)Qw&jlU|QHAYد@h ǽ[17%˕@T.r.‰'> qYתLM;h/^tjYYW޻6VWմդby2w I癱Rb/yG~>< P!;[n9UrI?HsrL@QTmO5hê`+;&5=J- +>%yFh㜪ש\w7)^9@br+Ů2Q_? +ư$bs&7`bHB-uS(Xy=CǪiHRk8I (q"GC<И;YA>rY}` hijF|?6n/e'S}~t=ȫ`wcʛ8ZܤqOXB̺o4b&S<06FJSPAI}c/Scm+l$/5PUb6ZD*|6H%$W E|5|F9K[PC;w@ɡؿ9<[;8, +P^t =aGb@1s9Fb}s]ƊU1?{ |+g>w^9jwNI:#*:XJ(k:JҀ3̕q"%%v/:68GaXECt|sL9$cr3񾰜{7T^4#zb){2勨5R!5w +ޭV +ʻhxC 2#;"@=?Z%US4aQ.RL *L +L5rGI EsP-B縋+A] j^(t܇[T )8}t8[=d鋧 % =9t>{PzkWW]8|ԨqA_ZSR iV1+p9¨.>CHolqPG'A>@&9>S6f<Aj0@= +aSں pZMLMܯeSWJP 2D> kXej=[8úb`&m`05P}x/(g~.Xgi%X+(riU8 ʽE+Ɋ>NƩ hÂFZ4^w% C簛)sӣ\pvGfӃДձM񬓙 +fĄWE4H]4Yܮj+O@Z` Xw#oS¾J'pʸt`jN4 +oPsYHXOyHl dgXn6mj +[`p!{$`;~\@xF ^ +-yB=vӧΟ]W)_GW{B&y0Z:%yЖShW~Fk-TW߶-t$&0! =$q8ЌEM:$TYiOZB!^7C qp}` ;wh~b.o[Q4 +1HTGzbiS2w]Bӗ^֓ɋP 8j@x"w t 5>yJn4b3ű2\YRa0#tw{!djwf lYs7o^Bzvk_T0y۞#[ Q d24YMX[HKd&; $ 5 +Lp:_]yo{+wJ ײܯ|+vgΥL#15+s&VoOw8,FjR +7$€$'Mz!YMPM&ߢe`W ս`MAoJ>C L@2 =ʡgSPtprӗՕGw>axYz~w!) 4vfEYfadJa>0ƩQAj133Ic*Y6/|^42 ԈAaYnX1]\镭q`C_8iq}ȣw؛^K%rH\.C."1SWk~+?FxҒՐ^)Ɵ7' +0ۙ֗nkhRM uxLb x #;R~Ժ'"t)9M;L_b\|~X+5yAѴ#IG^[pܿ@/Ax'O3 ؅c~IMl +F-r^qػ+MoQ9=HL&x"FUwI6/C `32u庤t 1VpTřb<)VBSwCY 42+@5pWlӮI$Ft)*5ؿ%&a` +Lir@F5d&dWT/pՁ^s-^-^!f֌e/"^S:- +b^\J V*) s '@L +A5b3/=NQxH1tM)Ճ +~W +Xu@&Q-MaM3ZENg2{,bÑ՚!Ș#$yiהͥ_-ώM)`[?8fP D?8zq^TO=B{{ =m7 Jw3^HޔͥΟ=tF.}9m=]uNp <9Eд8:`Bzx4 3"$2 ;vTnj+ڼpcX%Tx\"qI/W[`iR6],!S;KTzTo@5u6-6L4Qnkׁ_Ddi mF a&">kAe$cZD9 VDv4WL:=yGF)=Thޛ<]< ~Pb 5&T_QnHG1 /sgӺ/=3Xy8"hÑok|_Ӱ{t D5N7՚Ifsii!ځ-:փB \8P2)7AWx) }H3(\%*=8ˋz-#ARE}`,nCC?nGzCQ!AShDKbJ![넊J7F+A٦zq b 'Q떼0#c  *u0͙=fXq[RRЀRBM7% v c/ fI72a/58zp/12-jLi>@zC2?.aHRP-bzQl*tBb-hd<} */꿫[Na\~S5*zyE͒eqDϟ:vq`(_('̅[z?߻G@x5p/ [ 7yw[&i߻癨 \aDz"vI*M}Oy 1™jͣ%|ibIvxb-DYjlC/ghЫP,WO͓#Z<,\P)ӚN{% 5so {? +QC4;>=DgL֛/>s Q>~Ɍ[c +GyŸQNlq"Cۆuh{ v:njL"_N\1Y?!)'K +4HOㇾNC*hpy$u<1cP+]b +IQS&Kգ{0 +cD3^l#q/CSFc.њc(PrOxRT**ٱ B\[Y@ $IW=:BIP8ԌiIxLQx1_[@nدB/bvUdHɤ?ܵ sjQ*YCϯ'cUrybZsYC¬8CuZ1 +P^ 0>w$5#.X8KդV{Сf {) 3~j UMU=&WkOEr"\"ʱ](mt+[wSΑrk\6)䈀"y,ҊTTC9[6Dx1Ph?1`w,YnGF1 X˳IJXh.Lc$k@!.{h_Q׫1l[Y)H*.§@s/`tFaXu5fGO֒@(x# #V:jdIS: +{%:Nzl:.5!{S7o孛nYvk UaLu;aB-nPu ? +,\C6}h@\Tڵi =PUW5R]2Z2)6b̨@"hmf޹\ d-X1k+Gv;\$١TIZ;pP㾰2ʼn*SEE@1}N6pUAioٞ1h?T"p\y hUg5~54~E;͝'d[p"62-I2>]ɨF[ +9q|TƲyT R|ΐB^dʬ !$+tgk2ЍyLK.ax > z$6ztNꁄ-ǙEymx},>CzE3U)PG=J)bqBܷ5qy߻MgUyT`GT`*A֞-$|t8qA\q( + Ց>5JnCP!LaTB8ZPR[ GI.Y'v 7@("1JH1E PFH{ũz0 }4Dbȷ% Ev,hV+-*?? ӍVª|fŝp1ᩗ_4G^${Ƒ> 28p--'dN9Cz\33qR'AY vnqdTI XdQfCڶn]d +8u PWXMþ5lLjWCǟ[v߭ރlEmkC!lV J!53g9ϙyV:ZFq/;#,3VxCoWNĢa,T8)f7,Ŧv7ˋy["B#rg#ߌTktvOT*g,)w80rYusM(ǭd+:i#sӰjJϏ#ګw' ~11+.4½0֞#<6 Z7=kx|+d^N逧'qr ̎h]j T4[?A +EBdA#aJe=(Y{p_ޝvic*/lsEoG&5faU܆:SPo_4&~)uxkӏRe2wKZ)w\3 p$1;):}?qk>l^!Wb9q7Z(P>rUvd-2N7iG3 r5$~FJM!ئ4!3eڢ8 tZHJ^]Sr2m jXo02|PxbR,eLHљx`JPctSUMpnljz:NBpIJkͫlgI ,ΰ7됿e6%" [J!vPNým磵ף n'{WC X^^GΒ97[! }fWo.٩V"7BxERmaȆv3F9^WOI$,)P1`ռi9,aջ)^ H' +BQ\ߚkȋ$ +w Cf-EԻ/W0nQ)L7dk1#'D{mN=hhZCJ'Wa?T +~!z"Jx"(S/N ݓf,ݫ?y'Ӽ9De\C ɯ&[l]P#-9@-,^'6XE`|7e7xvxq8#%gZh{{|} }1+'K,=YɻQ~jX+߽ثksAcFEV1Os-1S#MQ^y_I5 fY;c@o)4Cjd=[c;mGja%vo"mUz^k _ 4b#ҧ=Դ ^Ң۪Ig7|ua-k +Zu3W}hǂuAM 7 +{Lܞkqq~4#&UQ*uZ=ܺs||aWp~qUۡ @s}<~oƹ6BF,%5g^hRTrOk@kēZIkrIyfV0Ql`pg}Ϩ}К_d%-" +*SA119zLE* 0;pnMʯ=qESPiHPDINIhD +o]OXn/QXV"Zii8{ ;=V.C8a,QDr=ݿ}<؁؊ghZ( $ͭ~ Cχz멘^~/x^?p[ȋM|r+(iJ +Lxo/`pu14Xm'DeJ8yFfG @%+vߵ7)AP۴ZX(bdxz lxQ n\g4=&"'Kg+=LyCV_ka$Gtڔ\Ro<7G"5W9 =dPXF콒~_W'HQ!T '뷦gͿ?y?~Ww_w9~W/~B-,Xo?bxDy>{d^ Y0&y~8&| qce>QMQH/n$dFNP=H]I֭|ܿ,]gKZ7-)qJ\n'oX{]$tB)~o5iYSj7^Wps _jJ=H4{`^JDJ2序j:>kkeŷtTiI32FȝXwJ!ӿ)`w + w/5(Ќm`kXMezߞX.C1Ӏkl\K +mik?W)ݿgmI/'n }˅I\aD'3gA~8AۼZz1 pީ19G7|(sqX|D0hC~Zrl3@t>-><s:à%= 2@ll z퐿 N&SIt&4c/σP,(cʢB>=jcyDJHT";f2GŎ[ [D<5#p 'R!DlOYB@ .WJPXKN_OHݳD1$q*"L71Y[`f + X"==꺱GtfE*,oB$qɍw9Qh6mzAn W{JܚO9ujmdTdp~X՛G6h-7=z]]nHak P T\hU%chI gbR8 +$\Rbs/4' ǎX({"mzdۙ#ljsEܿ5G,B#6É%ܫv5t*(.MQ(ݭ%Yh|CCe@Rt#όW9^%eOA̓^$_j_OM'pI+C0.2 qka8U=PCaZq{3#+8\##%ǖC#slo= Yg!0+HSIl9r藡BIvc8UK'S-'D˗nQ$%:^_l5HIuS;h^lohQOVe'=df S%O +Q2D!3u'kY{+?5\QS6UǬ(nR!J%H2kH*OQT +T0%1mN1’Ss EOHX`IfO밐Bd[>iTL?{_UOd}s tAA3{-g8ћz2]qb*61S f ?s\bH+&%rq_ ;X:Awi8M;[_gr.(Erid+R/ Å+zϮJL*cȊ+K=;b=7?鱊 +R!v-X =%?LTJ? eo\qy[:FDlڱt#0*w"n.΀1UnE8jŲI ȿ%hAKў4w7=* 2k&uͅ!v~?ZW)${ع^YC xITܐ Q)b̼aDyE fflW.qlR1w+t1&K8U2Y\،%+m=|*r\q`~Re6t+,VȢyp(Z +euR꥾qr{\2_ف ;8H_NbO]Qs\z\A/}2$Y#z]YԑŢ.~T+䒛኶-2Pr/[!"#[ϸOLi2~t|Evp$G-n}(ihbiP\ gT \슷u;5q}0hUIH$K[R3 +hZ־-+Iz?2vd 8K]%Z7=@W-eN{@˫WXec0݁ST7xc\{<nAӥ@퐂$waGR3uǁ=tsMkXgy=Ft#f5,xgj{>a \832{wzXDD+=s?ש,Rߏn tg@(ְi +>ְh=t*9 > +;6ށB.qO-I:%(WA j#?gu^z_v8'bCS6IvK-wv;R}8F~BLlL²b!4~{E=΂+'$q KȆ\Ip7=fT";|tD) r/Y,iD<=w4 wd&FF{v&ћЭZ7ۮV{7\|)&\ܱZ{!s߿u0z%9:}~L\Vق+12i9H ]G +1Gi[x\ kѹ X +Hx4hT +:Na=kۮSGǂ#½ۣ]rC@:qSS Jj2~=uުV.}>u!*[_[vj`b օ|X s^j 4>gnwHFqE(ݣ)w.,uݫ)g22v0аᎥAh@) +2EocF^[<"P$bۙk% Ljmù 7TzIh_Q)4$ȁ1IJ]3$Ta~9/CKA{MXђ<8%-=*`݈ Ց!jڗ\F?D T#(GOgBL'x;LW΍4 +&\K;s׳-,'eZ-M2@0:U?ACE͡P?<#|~K(m͞%^#t|fY4QuϨg넿?tdIg<?z*Z§he/0oE41ħlk|*׸DZ#"=ka+`lwԂs^;R.z؋t2\Ky`[] G +s +z ϰ86׋Xm"0z=cpHn } $jR&gђWaM iS[?L O#\0l Є@L'#pʄ9o~sCeNTkNvOg\z^LƮQRK̮u0"H|ui-Ѡ7ƺ˗X)F~beQ/Bh/=@@os=2 +tK̜"SЮ)b{!&=C) +$32ZQ:jjqdwʪlYw1:kyjFNo0a`랈ŽbǵN;LY(n@*p*!j8UΤoT{gH{>g~ B|-w@Oh7h݇^ p3'`~L"S7zF:"4ȚO)i]{;SFDP{͊(̺@G*$jeF@grL;s&D([ {|PD͒]_b-ͬ$-5MO }>U͒ +҉YE3a@|01)|`7!vCBQCϿ8G4p4S,U.?_(؋td.)T}{ľsehyC,Vkyf g@t/+IM:ΙiV% m+-͂Z_klZԎy +C_vql*`\id۸)R=eV3*oEƿ"@aHn:>+M pxC?D>v=xyZ3ˢn{}`**.nu9y&]Igxe%Dݪ0\`JψXC&G*(BAYdpIr\M@ nVz)bv#4g#u0fAp\swٮ1HF[bXX-BÐćbKHUt zKDƪՌpirlhd  @)<7_*Έ+rk.} WLC*RJe4B$vgVGTy`ײ^"|r {^Y!$~y)lzÁ(6DH+V?Da %Aa(Py#y# d.g#km9sA 00@^*|Mnkݥl6uCܛvk&Pl-Kl  d#AVKgPzEE GXu3^V) d3X/aMLz;(xȯZ:>}Z]@UQZn ̮, )~gy]I+!VW:Xa@Yq  3wF1? ~Һ{(_=ePxl$f5$b%xE a@ < #\ͨ3M =9Etj:K$hh"v{Ul65ʌsE'LOaWF<8,兕j~؉4X^ǧ%!M9,Hrc5̺R&3b_`BxZˏ:7qVBUJ&!>e4S%n| k3`̠4U9ZhaPY.\?D & +ᗖV༄38MIk%|W@@d"C[]:!+ћB @-{x!"Re gJ-Hd,Z$d`V&S>]|_+PDњ* dx\9d?mf:~ur"'0ºjlr |0"ŗ=, ('Skϴ,REi}㢱G8W*(Gધq*vP~]&oSudѝY hmi[]g9d:WbIih4q%BT ٍؖgFfZ˥LM`4 9[ꀆ`ʭiy莸?w)"*clX*9?vŏWz/DxZR3a0p=e!Y`L kJ\Ž:1=iGtl>t5, =bdUsguY髒O"Syp:JwdPz[;r%עiaxcpӺ|gi+t} l佰. E\ .J +ŃȜV툥rPOMOiSb:G&| 's*(c6uFk.e *MLrvd>U0F`s*1|^k<'J@İ[, z .OKg.:H0~̛^f|#cz</Ia<0Z9@D$ktE{ 2(]Ս]kn- XM w)x41?5^Qd2PVwz׶J,$O$.6‡}#HIm׶5Ak=d]xd6<:7G""%4==/96T3a>}T*߶wJ~J,^J6iU~$67Jd (k:`>U"@L FL!;|b vN+&D M?PFt<ŧ[}-e +QAy?# ҃- B7 $jŌ…E}5=m,J\m21/ˤ9]%tb@D<Kt{jJE}$ HZԪ :b7z@2aJa}/K^oI.w)v=[aQN>;u3C~s~Ax8SLQLCh6BM@ DݟsZQteY/-FFT/qFQSpN8SڄTS_= +,ѻC`BxDf~t5蟂׳!wٿ~<+fP"à's iZB*J$^;>:MCvGU&28Y #sOwi Nj:F}$VέsI$kgN@y) 4^{/K" +_&\}6?RIJf^a7{U0aG{*ϛaQA!%?8Tu'(K[saQ3"9 +O1(es#s4ԼmqS[7iT@\jVf5񩿔qn VMTvU 0fwS߻ʅ~r}t+!ly4_;$w~(^U-Vd>t jzG 9M*2*WSOiN +׾H`o?8~JmHF`BJ+_OD:a#v?DD`c-J&)Keŋ[\? + uԁ!Zt^oX}M3 dn`4I pg +WAj(F਩Ix=_)bږӽd#JV +MeoY躄!ww@;"'yu/3\p'~d oY.鵨5hv*eg!.k&@MW04{XaeDT8ȢBJr%7(1v3: +⬕J4^߲oDj}"j7G pEdz"9e;QҒZPy@a!F%V0;~HW12tSdı23F~kbyZ m]cc=]#;&Aߩ%q#@"8~XI&.=ZY%fLD2lrxOnmuP=T_а!QM -4؊ +gzV:`;qej9hh`Y,FTuФbƜONdPW/7`Y(y54)45T!li9qJe|d7A!Q1GUSteݖ\;V6K{JV[_$ +>lx7PJ]$_0|L2"q(Q2iL ."ShgdF0L}q_ K?%) _fsXl_gm8@:qoAˁ3SyftR#-pv-milRV$Gb@GC$q1͸q{24X>)'[v.۶wf,V?ڀ7yo#Lmo&`ݯWD5vLl?*:O)ut w0IHT/H u>8cbFP˫awmZQJZ#>) ++~jDvSd M!BZWvC gBln;ʙHςmaj<:њBlEA{<ϽKsM6PDŽGp!S <}nAH"P("^G8pht03Fج܁ g8]#:mߢL +6@*ֶdgXxLJ{Í` _ϾXLkd =~CdJ* +|5Ije}W + +T;pTȒrͼaxU +&F2,>sc+^ PTTE$zVc~C'`ϞvKa#8H )U4@'z[6s.WTǵ泓UMVjVF$= T謁~ +xՆI#7菁4`?s؉5w˵q-|@ksB|ųCR]=>˛yJ:w9IGٺZX1qfVT\QS nVZ>h#Fp4U/& ]`vk$ *:S򁪻~]w~֯, n}Bٗfc[VF";`h`O~(N7Rhz1(bف.UySPf>^(Cև@J&_;0agŊNtY@4^:^!F[Nk&y\3 +k L:Ks +M:Z)#rqpȽSCq?jxƢ:ќgD x*RX4ŰIOFR[İmPeByc Et[5R{ЙUX?ژm~-L@a ݔuP r[9+hN/9o;?aHwY7uZo~a@e'JiP74U֫73mOpEcSݡELкd4"_Na-\VԈ $킘Y߅ºL[=o?_ÎKD(Q +ϊpiigTAg)שUThzN>Vb%ͅ DK0:؅S~&zRuZhw&#51GkV&1" L?2Tm1 KX!/;wkg&,z" m'-՚ +H:<#ΤWawv,EPKԬI.ph6 Q_ ѣL_ (A;{Tc%|uZp+E"51U؁#qKjeCĤ&'i>!S%!m|\ ]htHO^LETi q8APF@g(yC&2&{374&҄e0O`$%ޝ79l([=_|^&)@M4՘P:#<-LDS9Xa強JaOvo(MT|Mr e[ghaU 2V%l#Lhyb+_ 4@,TJHѝw Y WZ Pej *ta v~CU'DLlA=v +qsM|`c{)2Ȳ{n9UV8SI r=BL[]NA"wu'?;ħjоj|r fm_5gѫ 70d^ɟSXOQڧy`5O=2pZ:0V9S rW"vP ~ v Q™ Vxu3F=Ub-!!gIOLx੦AZݰvḿnWO'W3n}pf>H{\Fig.HJԒ+β#ڎx:c?>=qYZ_L5 ]CďgX ?my`+Sˎ{5x\nqt n}@^³j| M˖#U2KAD 4Őw[|hhwV|("}>>_Z!lP3?zBqm")̌^+tkn>AO}yInqhFK^[xD3b"9&Zڝ*r)pך􆂋3| L hx a֮b)_tS?JY_/ &? Ns-A%gXxТ%5yOQYg%×y0r-)4߱d-MfR3pNmf;uqt;wZ5IGϩ=xQ63;߫5k@OLmˋHNOGPTˎdoh٘|ƒ8$QXOjm)܀{+Xu}{QPbཥna.yBWR 2A(5"XO5s 7-rqJc HH" Bs*1JW11n sR)C)m"Pf*.ܢJ!}p]zD WR<e : fHy_OP:H6l>Pu-( լ_顜]_HZ/KlEyz p#['{-JŐO)@ ;~ѾXJӹozd x3= rʔpgxв :{i4nQ/lwd;N^l0F2X%r.v 4P0nJI3LJQF2V=s::G0Th'HxA!gYto/c9Ga?\8؏x;M+T?ȞπAk8tbRnag v]:kce +TEbչʮ(B6>ogt/>6q b=RKU@{{gҙEDg :~:ІK%_ƌ"pp$# 1k+-Y {9i)6$o"{HsH,/zy&XC)fU*lʕEY\quAc327}$ 4%MXp :I`Kv(]02kCL, +apVj 8Ȅx(7/OJuoe2HLzZH7|G\Quo:_dlUH]nm*0hMz,^8S_01{.V$0N/aWҔ>stream +as1&%]%lA/]TU)q?gAs/m2v!t +O +q=;u1~h8\yLo,rԓ3Dl>2BѸ_= g 6ȮL̡r4SnKIq&BQEۧ$MNFDi'ӈvK1b + +?߲yiF]>F+QXYcr8 +LfpѥQF&]0ajV>L??u +Mgu+IUMi(%㽇^˜OStg@goܛ.lW6V L U~ǝ +a~/X9<$߉CaJRtΉdyiKʱU&.6K>W ̐J+o}F +-&gk^/۔xQSA+lǕҒӲDFLpb#F%&@އC)7 ˬ砫_ڲwHزDtmlRrCwNេ}Z#Pֹ2~ׯ^0S8<*ptY +fY?ѕ*U\Lq0&+#+oMV7bwdM Ry@ݟl8S"qoG*2NVWD#sG%ҩQ-;K-/u\+wiJv o|S¤"|Y>W ^"J_gX@6!=`¨ ~Jtu"Sx}),|=_uoYܮ~2 ``j"۱7 n>J>i^~J}y +H!oYx㍸|뢏0ETGDTU~t<5'DԨs<$BĻ0{xOrj*}VGj-"D??KsP_[b6 ջAF{_ީ>Ty~sIT];/:q:㴆6*!M5 ZxC +{9 BNAÁz >"i;tzax)Bpڂ">\P;k@5t6FɶvBqsG#f"hh%֑J&q!qK6їEJͿCE4%+||@h\swnWp /{ǟ$D}ʭmS:+6 +8,µ.އ6Vvs9XOI!z[`qqJu=Xy&,FG&Hpy%ܦ0r[!uj2|{u`]O~cEHzXQ =}{!|eze1;~].2HAE3_ +=i_-ϵOQ%:Q/xX";,D: )y'=y +sA+H{]~UkK1"n{5^#@n&W%Dn#RqDjAܤxUunǫw_FgLlB6`wY(Tr D DA]`:!:thnK +?t4 |[D!?#BJ 79500rywݫzB4x*pݹQD+纗HFz2P6l$ ]eS1#TAp33_\Dt[Mؔ{C9Q I[ l;aXKkо*w#g]\]s=BEzl$T7^YjAD<`4ʶ]B΀?S"C}5xB2,xyOf]wȪTuԓ +;l?"@]ۢaҷhj5%T!Oh37a~.ɥla~psVXD~yf?ꬭ +IvQR$ۣzS3}ǯoʯj=3B0z?y)?ɌLbd դTbEQcE{DX:r+~pH 1$ֆ4ѵ%W_s{L `m$ \}Dx3Gnx{a]:0B5[A]$h@P}F[&fKW:n^0/ߔ@jLe|orE7h(Gu7V??"'/j:aݝjal2M4r$s _׏XM3] x4oz[׶]yEҩ݌ +ze6z|DpP7AaI'&@[zd_ဌkN%M# q3KdHQaA7 ׻@inC͉.t:_ |=|@Ud,R,(5k9S +CޏxQaѩEm".5??ygZ+-CvЀc! +4;Asc=k9s +8Z[ZsqDIDʺ=g@kSª lK +DG~(_T21:U23]+ r 3}X9!{X%v3M"'pd  P3oVxd(o0>wH3:N֕JI,:}ƐX*A>#vY\W8<[.ƼaD0uӰnNCagḣJnlMh;e} 1 Ja-B90CvS;ƥ u)̹I_hQAU ^AzCmXp(Z| aCDymw3(5fM1˄`毺t[ղl=x3A~<] s sJ9ڂ]BC:9?1s(%?IGQxH]?$$:VΰU+GadM:[=sY|jSV +2/n[ (:)0ܮG;Zا +FWGTہMdVq Tw)'ǐ_exaM{Fc0 +|;630c>Mux2>#p8 u j + uYغYxvnBq^_(,fbZ+=;@桐d;:èRb`P4W $K]1T-7"s[?X?WUuˀ]S 1kX2THngWũ߁"?#v hp<3}aLFըml2SBa¨ +HԗR֯~k^кE`D(~x|T*&ct*~ K~>% ت;1> h"?"ujh1 ,[BKiw><wEt +~YK*^y4|V7FU_tۿ~w׿x???O?Ov>ρ?Oh!,<&͕pS6s~X$v޾~R`U)+#siz=lqpPh 0peⶠs~=SӍX ?N~ut2gIEzQ;_']?Os|E34whAa 3hPT +cKmGg|B,^Aۙ1pOh +6>ևPޑGobt'Ța'=>.xOÊyվmF*zO+iKOC7ZM(C[@N4G\=ta ~ˁ ,ـKYW3Ů.AH~9/#D%hODWyYZh2MHf1F'ꝮE(\Ph1 ?`O!ѦSxK&QCRb2Y0$~0}jIyk(hEzNE0tK68lpl>6̜ynY`+byiψ,%dUӁ S:} ݗKVQLH#ؿ< S@/0q&DJs|~K%4{.S(f F#K3Sk2%f|r! q;-|rt? .aEl=WJӷəKv6 _::z蔂=dX(K܂3d1+,@hW8%N0)QpVҔM`Bn_r>=>p{0__/ةS]AV[w@$WTQx:/wxE#1|yk96&SOZ [`c77+* u|,jT4֨*#TtϺ&GD!EmBK| o&c_,+HV ʟKUSF$Ya,UcΨ +_A!Ԉ1le `;|L-޹x.C mU*i~xX|=#uI9GX0,E6ฺ~H3~X%"P>#3.;wE@geqJ2uЎGv||8UL^m0"n0֪ +3-R,c#4%{`!}]fuRvjRLdALGZ rwo4v,.L)O: +V`8 ͤ;v}\zlM讈E9,‘/ QNzމp3?CSqpt~u ,ÑhjBjen<;觚T#4 +8X%D2^j: ^ T,e "Pӄ3Nnu9UIquGӶW]|pn~=9\IǪ{SGఊj]έdX="^2㰕]Ȱabo݁Yum[&h/@/VҜx\xfHBXdE3o?_b6ڟN`E+|'Z CeZ"39e@+[DN/7 h%@=u +k$[ 42'){ѷFEsA4'5\# ƚ|?GtZS|zˡu(̛Ƴ1C0tuZp}(-gKpM eR*Gq ]?_mcynNm>C 8_S0cYkTbFFF.Y,Ł\x =pK'q쁎J&tfoJmxCMYX$K NuTWCP6*noXgrZt*&㥡=<Lئ'"ڔ6"&e$T-VTE +Y\:(Z*Cs"eGNo^{ͽݵ,ϽGp]=F3+ u2? +93Vr{51cK] w(=ߵ#f|CXzP3AQT}zz]WKJx4S#{^H?(# +ϔ^U$o{رMP/~4V:Br(:!}o]wE^y M•bgw6vƏtx*ނ4+ؽ<a}Z_.lÒVv/6xnbG6 )(@Z]޷Yx$K݌OeU1S !t#}?¥;)hIr'p dCu`7%]6*l9/g~NЧk<mz"̬/;w]4VSuY*NEx<  +S},ΔhHOI_&[T<|=/b4b& +cQ'??ٵ!i<8F|4ac6,,;1oNX*@PO|˕6ܶʉ8jq :eGF񩏈wɏ(4bKt)Wbt& htY֙z d$qndfc_ӈڟNVCwq{V"hGqozDPR +E??*v@Qڔ6m Q g$B̾9C4,]_D-n \h;wQQKzڮSl<qpRՓ .X)uƣKJZ^ 2p&uWV|H+?o>G1QOmޥ=# 9 2`nIu2A ]w-~b/ZEM *=z#L=12ԐW/]9;C' ^&kw<=ўY {l5H+@Ht Я,u=w6kyF[wΙ q&=pnSr]U?:=z) ܑ1--ڵ%&`=ٟ;.G ƒz YR77폠\Q[llIϿS=B|o2bGfo|Mb+Gre_~Ew.wy @ XӯODC~204q.8[,:qʶ*"ԧ~gniB r*:IBR,U|[@G(#55,\E㚊ˏ5k/ڗ~fE1qO[7=a#|LhC/VPI/0{|4Q?As,/SC[7y1dB-{ľ=|c=.wA.g~<EEi2 b;=cUE0Knyv1wCx+ Ft/f]~Kr|z΂?6[IJ(̊P;m;3 ϤaY(:$(ة֗K5KIbt#@䈚0ZuyWCů9jnSTnvI"<0R\y[i7,"c^/|*Q+i;w Vʆ+G!^!uu>0V`ѕrІ6+=>ޫn#$Qj7˔ÁV atvI +b* tLџ/j튦ry}WW7<x3AF< !w!NYۗr&LR&,*ZD%B2P]R>TZxa6{{x;1h<ޭN6ӧ ` 1TzW Ү(3db%[4P}] =\Q +F<ڜB8n+2bF ,Xkص=e9~4WvB 38KjA٦4\@V~-sS ;ǾV2S&^zI:̧{şps.@hK\s}w[ѦřcYO57f>xxՅ$R>`W;8S޻7'K:tdawl #"P%|dO)"Z^sIlulwfO HALaQN]_'сa(--Er!MDU|aWNPhYL&¸E9.twN{"ӻ= 1M>tBg y +;-8 6AL) '7Fz-gsAڣn:W#GYOt:Vы2"_M-ػ-}Q0gUEel46*بڢ ͉ +/gw-OH!D͎߉P?B4Gb>Z,/ +TϭYRQ3;2?J-H2_(i]$+"'}*(:"SߊS jID0)+4_ySBW">_^GCq1([t6(M>GEβ?~OWE->T:Jᴞ ;ΥHE')0򊘊|W~_STD0-&!VK\m<** UEUUOU8CΠ%YC\:*( [i(#6ZD +k ='Jtf ŬHV{2o'r_+{F_ƺpEwja52L(fB9F>Ę3QuQB +bGTǞĞ#&!n\7tXJ88hc(o .-lן\I:}-ZscXS@7oFǟ!TZJm=DܐQ֭&ӠXѡ{*t'hFkTJ~)qjۘ`!gesYؐ]A&i7Ph8Um:9G[" 9z?sF=3<ͿEB߲zNx"PPZW% ()Y(EϺ?@PHLN#;aj~RYhƮ6*Nѐ[$Di%_iɆٯΐF/8g(2ΐ}CQ]Ou-Q#oǁ%@fL; w#ϩ5Xөes'LrWJ;6xF`^GP='zu:@GiuG} {JʃؼTm&۩{,;Q$Zdܗs]Ч/qlOM Ĉ:9^Mj3w +@S YB"ia&p8UޟR'-U!RU5h`z }|gوuH2x ]sJ3PG4]L.±%JDKEc@9g+Iq/jGE (XQ)д/%IÿLKu'WH XE3B;;:3V^WUH3ƛ-'4Iۭo1}|&LB8Oi,HbDJpzxgO Ϯ|]Tvy`z?XT+0C#n'Ltl BVwHf[R*SD䀑$wAHi+6)UO .LH'H^U +k)7GVSGu؂2Ь.RgHX1_~a +䍰#ZHJ֩xJ.޴uTP?"R"{}_Ӧ,e^x,$Fm ==NhKW-hQ++[ #(d"z +` JᴞZu63+x/I6GHҾN.댕%8=Òy@gg#wqnRnjXu' $0dr +H@U&ZMN /'$z%)') Lm\_ +tbPN=1B bˮ_!Ž:zHړbB* aH] r"Mc*%-pV:*N!P#&-igm €bnVn~gʟBc~q*s;hᕁ|Ѱ޽;~pΘ]yS0 t~-Ӻ7J,5%guUb%g=7E+$40 Gc[;|Nwd F({XcixGZZ`FqvfG'o>gQ.Z%뢝-N[o|\+@Bٽի [^lgcDI_\-VQ]IU=ݮS9^KEemZY1ۚ $ߞӶg%lءFeDSN[J",^5/[ʹGmKR+{*8_%3փK&d$Rwq{ FEmvۈ(n W.#"MG&"Bk%:H?|w׬-OHOGW^ۮpnEu4AF1@/7HIG\artW&KMnO,k_;TmLƣk4}-FX]I";ͻC{eb>t̫vޟ|뭈ѡ9*y^_grM[gF֝Ej(/#HYWA#P! +뿜Ik3\CuXǛ~<#8=2 uyBSؤG|UWQ38cȧur`6)?vGWX\COzW9ZrDx6zoPp%N +VqqD(tpHk_ìdQj{į(u$+$2Q72CoF4TXp >ݘQAݰ/йPwkV K%_f`=Z8. KJ ^uJOO9!,ܬ|YTԭ_zG6fm-B9|)CĖOBy Up'g~H`ٶeH$ H~x[Eݺnl?F'^5BWc^;˩HXv)%0wmw ɫ +/e-5יo&u&z4W$z@[1+gLדw}/ۙMy:ױ=/j$/}LtjKܪtlK#P()aOӋaFR[3 #$MwuH}QbUS%UJFY)5ٔ#tIYՃVu[wN-~Y÷#M3))fh"ozE*PcqR6&ċj_1_W|+&|ǧEekJcWueXqk-8;| (vUA ]{:Wk=\mccK׫4$p(c>jkJF S+NBs{z遢'8;" +`2Z|evY݈ +A!C#nAkPlDwU ʙM"<< S[yvF&>uqqDu~`YӘ gA:՚C (MV|ԅIА=C.cN>gJµE&%ۑ<ꦐ Eu n1~p&=DbCFJeۭ I*fBO$\WUowG4œ.64A.Ggl);fҘU\9D> +U(7Ê "v'GamxfV%_gzCU_y{f.\}_T 0V+cSa|Q;AzjŇgzI2Y0ȰX:Z$ DB߿y]U=;=g*:+32`eSLNnq`4[Ɖ8TXc?0W鐯sEi,t 4S + Þ঒;er(.`WY ò֢[<`jBR\k8#)F:PV7`&~p@){\\Ng,R$f/KGμ#\7܂b$=$It`i #, X;wKұ+R]+:8.pzzRJKh\ (Ü\px %ad?xxE^)͑eHk v ;ZnEgV<S{bUL G3H4\bYD[k2,BL}1 ?E0I:Xh0mPWvhoD7Iυ7`e7*YP=@o|'󮏖zT7Oo-E)R_8d&0Ap祽$y7O +HfVr!wO+S٢kNc3LɥRSĶnǢgG]ځ EpKk-54Ҭ? ނ1^s(<J HT0M-hlȂ3 _?)v2BmCqx~g1Kg;W=_{\L UAY-4K.Co0=B%,KszRb_Z;9FZ8aZq .wA:힣-/틌iU tcOWD28QE~ k"@:joo8pt2;`p{1sG!_d:gp{#ݘ9@Śk +-"R(Co1g:)f6*+"RG@F>vX8h,JޓNOTu'B.&=Q\s8G43T{]ʆ me8pA{efwD]~ Dh WleF_Ga<^ۛ]= Os*gG`hoDBy,LԀ+`;-ZNl%d)K htCQ=*(WF<ۏU\؞<]XȠHb=1(>]`fLDѓ;ta B47أ]<_ + ^gΣ!2q|gzc6^cMvudľ&^9z.IRճ=z"G*O?_cOYS$ b`WJEQz~agl &z @)Ζ~.h1%&`P'DtW ="u4t +WwZ#"__r~δ5_>}Iorى'-dDS0 +/xr%\6)u k7AMEb^ &|慽iBatqH ~#ӊnMo0*:<@PH$~~ľ=b0^[Q4B Ǧ=4~ks+LW&*|43q CɀRyG] F jpp'=^QB IÊ}(6]*d2DF>B_L~)E= /2>͊j peqM!l@G^Bc-a$3=I83OpP߁|݂@v27e+َ2^AqII`jW 8rnX+_zqkˠ6z &#мK- =뮏v Dr uSB7[SZO [oZ&02ݴ&gP&?>S6(Qy^R5{ܥrnI/(%awbK>4ܖpK]tR} 2x~9_պ'l qʋ(s:HJD+zɳ̏1edd Vz4co5vZ, څ/8?}1-j +̽ԳxINݷZhԙϖ,)T$)@(eࣖ0E~ė+\GPU6TA" %55]= ZETui;YCVZPn!-Ԭi$W!\FxX,AtUPڷψxHyS# &a3K]}HvG~߳hB:A;LFoJQ⢙v"n@-Pe3/| 'Rk-k"w{@3xǁZXƻMd{; +5{TiҎgF-tx+(ߊbܖKMV$~~ȃ +,roCeܷZbq_"+"`ZЍ#}˗X]o\%W/3 )c< +nBh&j?Gu991Ɩ?̠8aZnz +A|IO_5O_no=]n@;c&E{ʐNkBP`+afح5/_ȑ~{!vRlG<*Ren[uk;/0c seEm[)nV e.:V |l}{GY0s)DvMDC>VZO O"/W@/Q;?@[aJ]lϠџ5ցq,9Vt4A6<;uUfH<],~YdI9Mrs{GN!8&bKe> +ÔgBF0 Ci|X|4b>qYR0R +b~"8hr4xWuTjiq.P~,ll{Jl28t~@+2Qְyf9'*)!.j7Sֶ+dkOϲLCP8c!Rrt2mʱnv( ``ٹ`G85x0X~ /fvAi4LZK>o'b붕{/GgKRwl1FAH5U4t"*>]^ԃt]&Ruې0:]p=4kx =:[EMg q~ ]HLwhNz"5!Op~F\P%p.'9%^W((]<&t-bסGGrLi8xo 7y )S֍4sңk$?й$вq#vPZ*D ,,\a>4'l& +$P*K. +=PX#gN:G ,-zaJNG44.3p{D\ Z]@ +ycIXϷi?yP9Vl=۠JM?6Y=E 4D"ޡޗU <ܮ+t}XATgؾpg0{w'Q{ +|?] +}h\ajZ*$D)DĴkY M@엫%#u?yḵ,Tρ`oƻحtPqP Ô)0kh#` +Oj1ƉD$J3653r,يNu^KcŲ=Q Ҡ>%{R fPrgӓY_~=O[p89ϵnZ1ē^Rlz2#_5L7)VI9;qVw9z4:? RHSB~s@yp ۩KS2/e̢^op>m5 B"NovW>_GbЬqcwg$+UOf{L '| cﰪsdkmX^'bMVDTNI^e'գ,C +m맣[]FXO6XI3B:ǽ]-b0=Uد\ ̡P I\\U|=i|&;ܯxwHN{8 Cߣ;޶Ub:`0찮5+)/ S{ԯэ͇IH*Y,6S+xF:W3ld]rS z&R׉y>\V)5 +lo<=&'5G_2+7 fr 5qa]"X%HAjgiN:.  +>Sԛ3:+N4Q.F8Q?r,S 98(}Yy^%Y)D><9Db3Ôf:x/!.M9/uRSM΄S~ 8s%.vr\jʵǥ(s)!م\?7cE QRU+~!y<1僘Dt,execG@ "o qw^~;\k7o}F3~^IBwvpKX;!$AB7u(뀬аk&4OP| #W}O/~ߊQ݄]HL'f;]+y-NCgϔQ+X="GF|3&QtMROD?sb6 |zne0=H@D:40&ڀ*y"3i|=pWqX!S3o"1{=?7_3yLL^sGRzFG(K +"j, KgjWNlU?HܚqSS EI[ +B{-g#)a3DX$@S By!l߮t+s؇"=?]pb\%>#QkF%U+/q)}3Z5E~FrT微<KȖ/U~RR.7)&B\e"i (Eyܺ&5fb 3\9ט~PccaRl]d`Ur!b <>mLIVBiF˫K ?c +uD(4|/'k-({0scjC)sZ,,GIr0ԣP֥ѓS8K-z@(JA$ PQ9V~# C;[! +#ȝNQ=1B#A2y`/QnU 7 +KJ1NEy}s"䲻ɖcLW_['~ J:'f<"QxKDܫXػ.{$feR)hɘi/B&b +y2G~_O>kL;/^4???_??~ǯ^ VGuz1ZՖ 3ؿ̗Dh Ŵom!*&[ԳAZ?(eeY9jVd5>2z=^h0LbP,ɦ?32RGNt˓fO$/;ݶ%n~_HPbfI;tߺhٞɍ?KpECq`tfx!!-1) +BT!OLhbҘ(Ӊ+ss^ke +HgP ` =86Y]_9_!Ch(`m5fG*m- +C{YsEGV@fuϴFC~9]?ħ0j"4, 﫤ynq t%<SP[n"vN˥z Ja"@AiҮ;WaꈟKIX4م ގ/LHS LŽ/]ںe\c%c2|TBUGc77g{*C0Ҩ"&#mnGFŧp[(LxbgGT|]#AqgaDDAC Mdh@DtBrnD+YGڥ  q3Du7?/ ?^zAL2'"gmAq0D<@Zh4)DtLFT\0~\ %OMehhiUq_<P D +M*K] ".VT=W!ihdBlQN{2,0;W-Od(QB!'{:qR+~lh<ӶKiSVk 1:懿JG+w*{!lEFY ÝXrxd)Ԧ_W6d8|:X=Si&V )lbëj? T >}d2E*lVi(;U'7,5}(NV oCzվYyU =iZ\yܧQq>|{oæ%S!>pZ.f9Ut>Ilq4P ۩ԠTzOaA2<]UL.f;/5iQu$ˆk(Nq{~E,{^!lTjSok9~Pi(GQpkO=XQF{?6,Ҷ{j1Rs7~~=& saQT̹®0V'7]8K(׈RKQ-] @MģƏ35٢.rUNNjҵPsKv1#֒fMɞ80L@'(j)b_bSM{8U=pU + +͆i٠T':= 21ӤEFM% 8,H}-C;o+#Pr7s rMX`*6>{DbezOCE-kMwU9 1'Ěz%žEydt~weX/NO0FFx胩F5jgʢi댈p]B tgMDg!Uv0*tNXSIs\ +K%9\`)!~wf +XRVWh#0SodO=Uc:᭴%c kRs!ET>zF^': ?Q]ǿ.Oqbڃc}0T§&SEJ#j+2:O>ZktS"MɊKIm/=n&I/5k!=}/)*)#wF5tg 7Qld/WAmG| 500}W_DĔ(0Zv_~IJi**;U$wۛ65~GD;Hw%[ф!.+E6S&H@u"#N&+Ϛ⇧śT7_y1a;{C֢ㅀ}K,c2oOSl4{@uZkur#o4q0ÄbavF:јcHc RS8 [BP +/17 +1%,ATUK-vۛ0@B1!FWdI] =D#tMAfьns7 ;GDWt{)]|2v=t;(q2p=Ηv͹T`N%'-{˯'¡c/zn1iޣ\?'"M9ƻ]D +K"~oߢ2)&W,51 Vi-vlyI˥cn){mČvK+i?[ʣFeM` +uA2Z'W{#}xWrq1-ӛlԔ(œjװt(R글uIhi:.YixϚ?VחHքꕝc'\ζ +>'SOk=NM޲籿#숗h+=urŔ +hI2ť7& %aK~.m/o@Eգ9; уq>**xwբpt-DQ]O~y hi, ?0L3lT MO-_#~4R vYNiژ0Ew߮oQJ4$N;$zLmR<remM<5jjw*%\?K*> U {`'y/m4lͲ{6&1h +==K`cd'J <P6ܺ@n~וoT0ZY,?lrҭ'Ǵu@+:]'G +|PNaF!uſ6|Zzgʅ{#H{p,tmp]Dw|U/P̺2䥰߇K:q`\+O8#8fOJ?s_Yxf3FrA1-+_(gNh#0IjOE!Yo.^!Z  jN[޼dZI + ˄䇔gD#eѰ[R +;YN:?K6HQJ r`pա/$kO=ɘs a6 %)%]+z=T_[vB:9 +4%|PH!@s?FXGɞ 6ܿgtP9G)_'@``O=Ǘ) 53~TdE|@ƥ>#p0 +^ݟcL/G1vi$xGdn=N' z;wb{9Ԟa +(ST;':Pԝ?G{ +)2ZP`d)apӾu%Wt49Q[WSAcc8_WSpm߳L3QGQG^$kSdPQX[v @"qFU/[*{c &Ⅲ ZG<+̨ +(D`v nֈ{$#J6]\{dT K]8ýJ#! +)`*@4T⏶7{ĩضv"-A0wgُ]~vKh}0ߢZ!R lnZaZHz.^i9Z^2Hc(AW4z]_De9)CgL=(\tvÄ HG(lle\Q'~ ]F{X啽qnV +Oϒ] M1g$%dk#R%^Qm8Ӎ3]NO!sv'nY;ZBk@-* F'2ٯLn>U/ ќj_f @x@u`i[q"'O6d$HKܡJFDL%q¼hUtBTԓĽ$)yT9&u LtXȿH냀:`#F-~e6 /r&Cg Qňdt$ԕMI + Jת0%9JQdh=:< ؿL:+]G˽J+4H@h|:+CW2XꔁhsjODCx.x]P0|WSZuCy&cQˆ2sE?\i_ uX,̡6d?Sꪕ-U1y4yeYLUt~!Z`C؈/B-{uK,`aE4a[ِ4M)/lf}nLzc-Nao xje⥡w& ZJ52,1 YLf@؆D29;ܱ,ԩD`'%Kf>jUFcyOFi>I\2MJ$@BF4( `Cbjfax,^ahM+j+礚)x;^a|)\ѳ+ ɟ3T\"=AE`Ru`RT3Yج +pVmyˀbK}!EYmށ1_~_~_& [YWJғb| h]R${ʑ8*qXzT8>Jl,kv$bd+FPփijnxUn SxvD+8$ڻz+ЬT'99RѪ ˵h1EڨJCrdWМ>oI p^%mb}9ф9ѺjTèd_.5pɇ' Ya Κ9PyUЎibulӲS.0j[C R hhOc9e =\ZDs2Z2]|,*qjl޼[9i  'ts ¬GmqG%k񼄚q?IM,B"Ҕ*@Joh \씓YZƩ[\i!5SD}|بtD}mh"#0Z,3Y<vJo]WJ$TV w2IP: 8W`uWwV9}BqyH 6vſQR65{tL Uo=ٍ{wvs6+l]Ub +s?=͛&T3 bazߌ@jčsި"+>H͇Jg%&9?*NG.QZm(jͲƱYiɴpW|`5> 1L@uf-H)&W5.DmC3 e>Xnν@z{;ֽujG:3-d@Pq^z--,#Grڝ)q^kE#C~[I +YndvF؅[Ha 5@V eE6 81[s<h J%;~::( Jc"K3+u{,x5MPo7]^ϖte+GC ,-0V+˾ѠS(3RvgU(5t=B&`-RJoVP +2ST8$:ǡR[.R(I`czX[I=:Hd:h^kco_>:wW(v(Td]х RwZb@B6=cٙx{t5PhOzNֳIӇ +ߪeVaY;{U952goe(U»XB\Ims/OvZdhP#l¹aUnqη$"rELTR|,E±tHsv Q}e)|F\EB_R[xU>AI+f {)?Ev8=)0ldjI zsIKC Wreqwhx zW;cΞfl-B\XoDvS]QߍܛG`,_{7!hF{j,GgFG"1[ +B~͘Ê&Z ZnS e7?H& ^IP% +&W$`2}(ϒMIRZ[j.cvIBK&;1 +k׉Q0zތm]m4SM)+.e#*ds~s@&Q\&v)s/-and'ko[.)>sžieH!5WJ+BMa%hSRQU 0= 531C{aO =fFRJl@vv׬ r#P:cUaDZiv-^LGt G=SI Tx"B *IDHǕ} ]/V +A`ʙV;DąŅ;PPP;UϲE}zd +& bc?{א&v˱#mʈ Խ*5o +}3,y61UOޛ%3*x|HxKwS#/%gL̊t@A4U`j=@yɫuN0+YDk`` +E*v*߻Q0uG}]WzDovrYgV hN63*J8ᐑO +ĤޘVONN\|^bF8ۧCNC+y e]8iu}\bHxa(Pj4 Ă7rc$a'B!Bg,u@&Vv{RSXT-t$Pر< W&YOƽ]{7A;y4 + 8a0bx9.r~K +v +Xyx җ7$$Y!9&L>BM`vY}HCyKJI B_n~oTYٞxrtRXF ^'GTyy:.է~EA4ċ`3 +CNa(!+*KŠs=PK,hFD?D$ոTuBRR&|D%Ā@} N&NiGLQq?O<ȶ4z(R S9[͂biQ.#އ(s EԄ?򑬱"[|o4倥aDPFJt fKj "A +rc̃c$E-GJZ\pl.ZĹJդX Gq]"e(KXlM0_OoX%֏*̫ ֊WK%=; +$VuQ +3NDOOW-t 3~ ɤJȑNlF +Oh /ⲗB\nG@b:<5 **t.{Lkt@eZפjh!EU;>4y+Gdq/m6 +mPdFR!fSŽ/>TK *^b{va&+/=.Ţ+bӕP|{f>yD0"Td{J#:#8TjsRX: KKΐ#uJaL9[JR6,sx_ES\È$L]P} wfdХ(.fխq8v˭!0 Q-Gtk5AT,G˶OWzȄ>Q7,ش{MDf?u;(%Ғ+^s].96C*^p (M] lu%U0ǢAHpVsx82.*.L2 . @:JBt[P[` nZFٚ /^4\*w[e09SZGDAf=EbNKċОF2*[(C+ǛXh +i +5 S*bbGW&V#˨٦uT}*`,P.#5b.0pE~yuR/;ɔMd}!@N^ +-ܖORy/kx@Ĩ^aZ>^[" +bHP'l 9HA F:Fr@u6Fw)%KVTڨp9mk$`poe'Xu*b#4G,@血"џ*YQ7=4|TGBn + +d&t ~&tckH$F\ȥ3ZZA%n\@f%a{a&mYӯ?ۿ5Ƥd(.Y3\ [|~B9գ/A0 FE(M*I$~nD&2,fI-/Sҧ͚)s߹Czw%XHԏ&6A<fڒ<#9w63ѴוlZ,)*X0ēmC%K|ssD7D譀S]X +H2Qeb>nGtCpIC-i oQ#e7MYRB/7zxM+$ܨd8FĚȾ/V,mB 9 ωibYθk+Y>COymU~&,kPM70>jV_m` ߪU|X=%zE#Nm56t;b'X;XM=+> PDȎd" r`Q2U=5j =dZZwù +G`x!>4"} JK=D2~;hNًi9Gk#- nL'󰹣[}_;Fjo`eXD૎{Tt6#MddxW3<'&K5V]9>U'\JZ).{9l/<؝wz#Jon^3X M#@f"j+GkFԢŠb@ +Cٵ>(6 WfϤAAJܕ 0Sʿwj\W@(M% %n 7tYrm6U0BuN&C@DbL;KKڹB+@|m:==C]l6ΟE[Sw4 EeԐU `b^~ɗ+4yY߄ D +([KWetoxԳS`jAB \NzrjgMح9aP6, +"KUܘ}jpm + GnW{&D+Hn1tB{E;(!JA$Gz:A@W4a¡sW9ykE`<MoaЩ UaԻT 39&?!z)831=섥*t&uy0$anT +f.+q)}Lr t8كS!:p&"pռ ZVK*&-Or!p^Y, ѡ MempRv]WPqJDj(]ՅQ?.@p4':N,eòV:äɖ(B܅3Xy$k qq{ZMJU(¨mQ™"`! F"+D Pfg3JS1VwYǦ_H~MT;#Uc sd ,~Ve9:k{RPr=9XG,:G] ΐ+T !uh!8UxA%أ p[ȅK=tem1|TQ~q=5Da2n +ӫS񦌵t,PiVٯ{ew -e=* cI^1]TzRWUQt=M[&ѱ-(w:nl+&sl$i#('& 33U +wwk"3y<*@C\ +eij?)3h ykw*9ns= ܣmuאہgt&SS80nӾ7a諴vCpPќLkCW˺԰U>*B@<v ɷ,-łQ(Mx8L#h-=%o!`?!W9>&#kZV> *ے΁<LפVC,WD6Yw`v^ J@9Vy6ގ7S +xo`ׁxŒ=)>G@HO.jJh*ްa ۡ0xwոg&j9cJWp5@ZM1u)obGI-F![L<3duCcm(ZW7C+0?|TUtKv1l9 \86aptҾ7xF qT Lm s0G -3?9GP˙ܞp5'{,|=ۧ1.qà'/:Jv*dNG|;{@LPlG}Gg7_39lnHǻ{5~`9;\ !Hib,H.r?1'\ 5Ξ5W[[ũv]u-_|~O{.n PQXZDԽg;N&10|Y^X0ΉD$Q1O@2Cϥ6:&L rJSpJAH.»|D P`'lH\Ho +]v3?(C@[fЊX[RϠi*<_MMOuoδn:HPm ley+ލSub~@\R挲3s(ns} +;SD;V6*"T b UXm U)waX8E{;|+!]Q!Y諞a^T6hIY-4W-$,@=b?TZfhPͧjm)@@&_C#bPY@oQS,qke;0 .(x9shǞqB8As}O:2 (x^DLy[Ebzbwz,5WzA"I9(3XSk t@ ĝ$XOr[MNG4W%9;]?~*_? + +Lz{ml̥E az;6brAXY +eI;A+6TioVJIһ}oLl|ATyg?YH;,|5 205T%0$jjOV *}҇jEMT#FDfwjE͉-/ [NK&k<}B0]j&sC(rs[0l|U4 GՐ%i@G@Vك㏦8p( } ( nwpb\J5W0FCr:E b/',I`#Cg#?l۷ɒ>5)mnFa;yG- ׹:.lͤA/AGw2qri3l(oao@DY-GStRMh$cW8P| A`PmP.R$ږTNőM8]Dw;`Pe~|oVB Gw`rZnL/*>"etgf@djq>0i5 pN E^SpaXyɭPE" +}!W(P9M6ix])5&vLUw=S>3:4nda|8uh]f !3P& 2}x֠0}_M/PG/[ܗ5 ;aT6%?L1ʩy0RhG㙛,0љ' +iJa6e?:7cA[~d ʹTRlo +Ajɚ!nc/ĵbERmM`R]у!,sLJ$J%yc83W E<}3y0("Rшzoxҡ~[:ClEm3@VEM Y~=&O~UߠS=DMa2Gx~dWKE'1  X5Ey<%4+o.A3Yś3 ٨XbUo|+VўdoTS+ ${%4`<bG1/ek`5-(ȡɲ&ÞBq Zɫ %ʴp=F;uˢ!@{&ĀTçY{wx CV@L}C[& 5a #:lJsފR36Wz'<Lzdnth?.1-JJ݀6{8mo`Xn[ &*Sl>@@xYF]"xUsp $^^,ˁ v7~:Dո|b,&X#c;6у3tjRt _] #6^Mg"LX^]I+Z h4:i yNSQV2bdìh00W7܃*fz ix4a \:m5(,^.@.%]wB{[YR}$[#Mtry"gf1\JLɉ ~l>|4vBŊՔ*{Xbm*6o ŸE fo11" ɟ*cɨsk + +f ZS2nT.h(zL%{LIp;[VxwUZ>қnɵi3AU 2a-ݠ0B]͌hA@v+'حo% >5(K;TD@ (ĩҬC,ʏ =,Z!;_{/{d1@Wy+N$$vޱR t(OulSXloaIC GXP$Rl:b}HDg +7Ł'ӈbUF ^ӽ $ +(A'4+@5pwe'Sǵ\dzW;Dl=iC#c MؙPl` r|ՍHhfkl)PKa~܂.b& +<=Va炕s:] |+V uWR]/I7BL{}\YwN>{#Bz! + v+cfce3)c4SM +_c3Kf6rj*nPg@g]vmg[YMu$FP 8-AVe8}y"Ѷ 55IrpU=ԍ+HnbYIu.5ͩкЫ鏦JbN"GNaI49W#' /R"*3/U sI0>ve ȅZ 2rn}B[UXEB3OѿD~~~ .9{n + uj*mаZb1ԗd6>"r* +:7PN3藯WEMG +k؄cv_#.΁Qp>-m- u- I&.(UR(2]\ڏ|J3Fq];JDG,?D4x+>bZg,^[1&8a i2GX8@b}kÃqVzFy䉣cuS*Ӈ }1nV6FzED0?ҷk p 8r-@ y! ڿa" +-Ns{I]0AV~:nn$+bԗ=QMDrܽTNOG,!p8fm\IVT9*]udShKXK,ZX]!Rv`T\*$Qvzuko-b +MߓِxͶY<8$G ArJ^ހ#u;8J0v +K{PG%7md 3} kg/6on;]V]IQӇ,ܘ6?#ޗ5]E?gFʈ=&/l?!jVcaP|;Jh#a*B mžGոUҹ@*]qw<)L`.tS}1]do7 6j~^C؂cni7`n@HqLq^Hrx]F~X=AA^bÜ#48W0͋s[j֔vB؛$tgd?o:5> +JCĵ)ɯ4ad)ˈ]Lʇ.[aN C1BϡY'l֫\+&WA#SGI\qY&ׁ[]]WVgrjE$1P +zTzqĮ$j(i< ]a/ +- A,ATLVO +@9u?*Hb_OJx 29 N225E ld@w麤Mޓ|fٓ9a\,ۊs9bHFZDٕ}Eo *W: LobBFWT.-MN=XLd)xX8)"\y(:zbpV{ DԖiSƱ7)酛R<-m~5MY|b^HȿL̔&Wi슢r p!lӑm^gZv ݧ5ԽÞyXA!fvER8&6'b<-vnpfQǤ(MBZ;^_Ta{`wH5Dla{^S!2s\%j Û2O~͆Kg<C{Wf0L +031|`zyL}W  =h>-Nְ^c8w_tD 0S#\/Co#M 4#+P:* ܉a +ǬqE' j<$STۊv+D +hzvo 2[+Rn(lZPt VG<+uϭƻMCv(GwREFV}\.]Hot*}^صyqY^(m+ܪsG |2$.EtPxLx3Hą +*%6=y)"qz:tPCd ^Y@3^+ +i@r5洔 2!1"`'g |J40rJA:Uw#}Eo 8.G<0^%vLuhC;ǍZ?1S9K?$v.ωϧ)!GEkN"qUG7+B/%n]VUlV)ζ'cS)H虭dU)n@a $fUJ[Ju[8h] tTJKY/҂2:~D}?GC*^P ^s?Cv^ }?Õw +ZECU-L'EE_g Ye{~Mr9D1tAY\.Se@vgZ*D {0b/tDX{s1\DhðD8Íȴ3+@tb=!_?1Gmgr,AUd-_.蓼5 ??T((Vt8t#S3ۻAYm?w`*0LII2z&Gj+/ZI @ CJX\kU g.+i+xAV,q$./]ӈϙLzP<1y`u{Gw#aǹ/l @S=w;\/@sbZwwUbe\MǼ0#xs_ +GRf 1ZM [gPע l搡} _zS@eP9V@U yvaBu6p-^x0 7_˓t+ s0A`J6dpʢg]Ĕxp-+&kh5^zed&Sih\c~Ue*9Nxϩ>nM:o%б2#.ψĈ4o=dq藌k@ÿPiX~OD)=bȆ फ़!ЭQG]Yd.u-웒9͍o [&B !87;k~9޸iks؄18SPwù#.m?#j!Áf$9B@\۲)ݔ;?/Ll a\D.93)^1ZrݾgFyk%4Dlj%Gp0ȳ>!$ıHu%Yd:t`p) _#ÁMq sӡ =Мرw= E!Yhդ;8sVn<ϴ]RYЫ} >XQ^F0 ڌMvUd| YƮZD{n!hnA5RB%A)~Hø 4sDyTd?mӌrJXE(; Fo$- /?.$ ]2s~ßjO G ÅWHK] v]&3"Az x+^"'ju6Źe^by fHv} $3p<\JaO {|D!3{J}i:]Лcrӈ=3#J0;|KGujk,ܐ?~=`$mLZ QP`}/dhiq)4v//A r㍉Yf2ช03)A}"S~&Zuل}@XQ 3P~#/([U7= }SCU{O]k+xs`jQ6-4RvAP RdIFӚw=J4::^-N' 6T 0gh[UYzmdsCht (PpS: Y`Wv\ktD/ I<0çt'Jr+vj}yF:[vɇ +3ɗ(qa4<ҩZuΡ-%e E>sxICقnt=R58!eG3&Z,QB}xF Vcvo*! .̈\V=ew-DO{dq6`v#%.r}ee>kV06x㼘+;&MD°hkcA m'$T\uSi;_A <)w!1xEva<^+%L<,(_mWN!K@: 3M'(“18Kzh"zZۈBCY}-W CE!32}^-n:t= +"q$a zj>"bTTs;s<<+@A+@??sj#O@'׶)&֛Ƞ_}CW76>6z^o3oeMd!2b(kt-{ #ݴ0I |W0[Qw98DĎCW"K~Q$*E Hgbuqű,W-D`lEW xi@,$5k{$7ELzxlfx݉FniRwm&%%a WD +0i؎bN h}Ň@aꜿ +Cxi΄(ax_grL`DĿbSЍWB̈;?&ܮ=!hSyǦ8 BwMLg(`8-P=)b60tI a0#z_X҃zž#E+Ԁo3 +E!✕eq13T֓QPA}갫[k~˩}MjX[v&=ç`dѣL/b=(7/[^!O00)ȹ=iby|>AJ7?7}vɡ/ؽx/%PMiiv2I^O+7J(j阶}b^dNN +_2G쉆|s0K_k'SMOe4ኊr / " |)$j[Zpȳ !#|l TM2+4꼿EG7 % ',Q =Sg֖h Db(E7ʫ(go IhmGЁ?!ZD-UpJ~' y0|p9% ! g?`jnu +ۀ$Us~ Lé\Ph>yVt txJ,LMxU &my*urX%W51 cLU\l@6\HtX"31J)ti/ϩ(QWk;(ZrTOGhehʼn^Y;?yT׺n֊"howW)=%&5Wl[*P/ethtk{Վ@+p;\ä́ +HC)q댳#<<-#'bTS$3a`MPYw k3dU0I#oB<0TUHKADC轶I  t3vJ=Ơ(!.vlÍe)e2 h[<+h4_ +T'k/?([& q$*uѣP?am:Uv{@a^e_hc! +2pWyURPe$9Fl=^7p8:kK ؍ d4qr0 a7HQ+GWf 4>+OiV׊vg'dQed{ +toE0L)£Q 8i:5XAwd錿[r^Hd<*LjgЁR˖PJDXIc2w7Fuu#B]`S""TiŀͨeVۃ5Ywa&k;Xj*x}Y02Es`jp5gQ,#*r&Tͨ:mH޳9w8D>ʈSn[ӳDQ.])ߠCw8e<$Z30+/\=I1N"BNFvSZ^yI(p4Eq`EPknMjЍ10^98Vė2r{nS#{KBuQhG\<̲g#w_]m>*\G$b 韓Tb[᩿Yxy.JVZ#wmx:;%&S"3 Fn CT5Qk~;cQuz˕zka( ̙\EC=f7:J޳łբ(y{]kx?-ɪ6B [ePWBt dZ~m}n pU͕N2s(5ZCoЫhɕu2]O:%դIA;2 +u|+p)g(ġ5z(SZv g^sD~eRkJǕ=bwߩy'"W;|WrYxm։Ʊ5z@EyIjA2LBw2E|IPZ!^M((NaTEoU}Hɥi> +hhjVC3.1kܐ ݾa`]'D2CKIYd= +bj"v-bl/Gm;%".r٣?v."&Un< +%v34~z*u>3K^\>=;FN{pB# vnp<洨L8W +Al$BY9!36k}%C& hTQ$lo"Z(-g%պ#$&z=3F½hXʞi@SGKmCh'8ܛȪ +rr/ZBuAwXFz<(CTXYA{t%Zm[ "{H,ܰl ,-*3'}ȩr%N~ư +^o9@(P:rIyT]뒂f53iTWi(ʘ>%j!#`_ϙ(|"9lM`Y&_L +\p .|!ęaZuF#Gb4=/y׵| ȿPQXhh~)_C~3]S7CO?x*y~^-G4.!j&ZQ'w98XOʛ.[|mn6ډιҢBDVol|KyL\mL="m;@iDxPȝƋN!-3dnɏϩ:1YE#_ݤQAa*|$kht( +VTdٹFMUMUEaYcil@%(Q& ~$FxP;*G-z27f#;32OoQMlK3+mwU{b/`Wڶmh;ڱz%W)TB!RrB&p ClvWaZWAUxL㭞"l&esQu΀"8 msI=ayt & 8GH \hU% DP'>5X+)zDh֢8MY͑^qE =:RҤ=`MƜfcעkw6Uց`8vDV%6A8^@(-ӵOuy9NώBb93.1롬[%i-עaaJ5j +i3jI Ut_|џCUlki +*uzmy8r}=VzZ"Nߎ +oiԒWmuV~_:P ;bH?gFx(aRz c(;uAmG$̊0vYFO=HP$]ըҭ %?R O4:_7AI^s;0:@$u& dLxWp +!+ +D҆Ҕ(`٩UeÐ]| ֙͝^zjfʹ]N{Eםģ뗙Q<=`ϤY4b7!7g K+{ؠz1('nC _\CU"- Z H-gFT=fmŒV @k+効Kϊ]\J|ێb>_ @öyU"@P +_+M.A~ʺrlUqZ(#S|U6n!zc:7DdUn^_ZWLA"wQXSIW!G*$v5n/)`<~JC{ =kX-[w s1z2OwrOxt(QJR"[.Q(YMb0|eN:ev( fr _|R3' g;?NZ *[UcQkvmUmz- F ۢւdT0ZpS c'7^Z0C?"&[fƥO~};Ю^st3;n@Ӷ2@_h?*plEw;3 )ܒHxlЦmJDq${l'9bNΘ. x)b 408<Qn3=f/n4s:q3LY#gȗYyO@YYVm/Kwf~A%^2+A \FF+\٢JA$3"ڒ(q쩒Cx %i2vL TyGuFaZ&@<ﮂ<$-9.0eL 6g@,t`?h6bwO2Y!NWr  ňLUND 5+ʌ5:]s 'm1cNbz9= r[a*Iप#Ww*ݮC:B2R$7X? jnزM\P(5ޙ;4SmSaXLIvw3tWd]q͎r?R|,ZQHn Q! Se% IɜK.D /b!QaR?:*> +BtQ:r3RFԒchpKDKRTNͯ0!\<2erۆ +Cev65 ێv]`HܡZ?ӕfB7c) M_|$* +L#ƨ=o4\[*C6g$uUq|3E43p%?`;XRhs)|)+N3 +CսW1HQ359Xz+m^&=64 Q^8ؙ_ ݰq}8aҥQ( p1|%p݉+7K"WM3\n5IM/ďcDߥۓ_ymH b1߫ck~T^r 1%F9̌N ۆ5r[ +;R wH/Svsu,E;Z%Qɚ5ǽA%eD[{TjImb4-/z jw?sF u5QQ–7>OK*</BqJ:f MP3Cmq0`b4X-{ʃc=I"wsE/)J̼ôAT^[e.L;Z7,OwĂx^c0u3>zjp%z\U@GF>\?KƢC@وc 1yf1brM@XCJ! J U\ EՂuA>F,5G`3@pi .ƽͩi#]O+!T uHOq %:S3&=}`=L +3΂hnq?#@yS}Ys 4X%~IZ382jMurmח*iBu1I<@X/(( xUpaF2uȆ!׽nSoLyrZ,"H7xtdj*}K+ql)8&/u :5aMRsCD)xX=+O.CjNoFg$5KvSw3xt }VKJHDSڟٺuҏaqaHv͚Ίgğ߱ÁF%+SN9HK!v_^O='X6W$^aC(pSIȁ5dlqMXax T]|}Vm"XODroc:}Ƴ0]06xcKv@%+sg$爧*"lhPg!01.}2"֥H;_iy T8ՈҲFdn_t쑭.*xV)L텳j +$y`w=?րgAǶ>"/B l# 19M+E;*-,rugicbȍ "+˩iuI1fdkWano.#^;s-#OyJDtaΧp5R`U. k1εH'MeXkwx.W2t6LȌ~@`hA |wؓE&{j)E jJ%͕2mmV|Ѓ 6IrUs߬$L~qwdt_vmgѻp3bG_"a) +Xhgkq$K+ZUTnby*,#=,&èߠEbt$Q~M V~#$Yd O iNMO`8 q|`L}AjTmCaN L*;uxX)#k!سhx;1drOsA˧0#? +OFٽͤ& ' Y Fޫ|" +EƶFq_f.TMJz!j6L\}`:ӵgL +JԄBg?eOh>f4}=W1:IUƼM0ul)D@]aR?㡂{+mP*Znht#r +F.Q]u7%-B\EҎ3(=XΜvA!QlK)5D/AB6Påa:F5J0L {Erm+b*/`J4PԶ*N_vA&"Nne>   = e(ybXH͐~eίDd&Z̰ꀒr}j0r"M 5׉xn.l3n CRSABڝBi x iE,jkF<# m4ZTn&z{a􇰆V:ΩeK=p]vm][kKTd(PYx ]ԵpBEoM0UύwE,k+Sگ^1vupsZwtnGm/U%dmGrF&BCk19@CSn.u/cwJ ?\RQ/j !jn!GA503sűI`ꌒoK&׷%L4AaV42/JN()eU+BR+_? kY@f{̫Q* wI3n*/.o⼎ק?"(鍀أ5_(iXo38"|[LʸD-x@eΧ(eHFs"c_k6eGip&=ṟl5o_+;W튵*M=jW"*J1!g9;fp TVȺܟj`:_ۡASEa Os+rD"Fk][o +'M/`hc|-m+Y^v/Vթݪ`N%~ =;{Ae]}hTW9zK$DGj%!!d_V+s3ѺNࢍFt ts8,nHas+#-`a!6mG+8u+׉*Ͽ{ѢGO L*hޏ#p)74>eXDJEyG@"T۷fue=,YU{uDT]&-w3t:xd +XӟBdu|]=_:S1 y5nRDe%GT#~y vVmAduݓ'$6 >H$=t{v+IKe Z{OJO[WSJPi3”'}:Պ\#@cKȨ0ĩUb7$B3cDMmHKKO=1}ճ@9O!d ]a"n5Ru~FdI=+N^5O*ȇKov4MJ"s$qDmZZL* VB$$y )u4TIHRgg_G-tP+1e<@ _:Y)2c{LU˖$B׊&CuMy( +X樓l$F;As xs!A#V&7XoL@+g u5@7~:`!4`)y6D-}Ov’C2ˁyVZB_ EqSRڹ(C71l;牍.=I PU-E}aw%T[:Yռ4JyPўKd +endstream endobj 450 0 obj <>stream +a8c%z Q !گ.Q4+$c#W%`y40Ho +WXeeCF >Mɺqi!Eb+o쯢RN[z +,Af14SzE;TQW:9Csك9:T)"|]ЕpMR88U^˕ɒI=Ж=[Q$b} ]@D40@K<KpB`w!j}uڪ#w*N {D-uݛYAHҒfN"к9-"&ݹrz}L@LsulA#s9 ^2(؁lhb= +s\/vRfDtйwu W( [mKF +]Hm!3X îki>w|+W ,^ǁQka"e%?0L/_3MNŵr̿IW^Mt؟fxѕ{a*ゟPū\[sJjs"0p=cCECXfG;oIO}m`1/#Nhѕl +oCɮH6S>F:'.CLvdq(NmDCGv>j2 ]e?!±KqCͳgġ -+ +(Z{,8JjB&Z2YH{eh>X!e_΍},ZYOcnQs;BHɓ%l"(`!i)#n -F'UxeeÉ ̮R\FԱGQQDzyѲ\[qI݊o]Z65[bhEڨC̅tG5.maǩ U݆x!11Ӡs æ.x06 Җ4IUt Q3ދ߲GTT뎮")+8Kzc6׈ ja)ck:Qn#[DPћh<@mg`LJԵ#]|l`=W6_EV\E;#/VUf;Z psK]׏OѮ:$wbY%^"XԾ~1|K`ʊSK&JtNU=+ +l-IEL#&SȵwϺS]?N}kОJo=e~ +:UB +‡u{!s@ZD>#x?}7\k +<QEI` JoYXwpU\A݌C†&ЧPu S}3ST-O'q3}}3SZQqFŠ}6)1V0E@G'dY)BX\C@ġb( _MVmh< +"YΠ39H=Ykfpq!8Z묝рHQ*l*빿S23bUL ,VnY_N]ߣzuY?9oyS}=Oާn3bRM3OǙ>8ԟpW#bkuz4Xm`j|FE1j}[;Н1V5Z?D?ӖTַ_C=>"=HLc-TVg֜hCx$VaҌqo{،hTsy5={4A.sڥ: \@?DrJ)[)۝:WcFev^SY5߻E@M $ Mc q;RdR;} p=h$Lrn@yƈ7 d}+>ZGb 2/ H %7tbNHRo;4;#9eΚb\8KIQ7Ÿ0ӆSĥBr~} C +vg&#lu"0ϗ~21QP 郍*;TE}/VӰ<|O>GQK\OֳiOGgwfL2?ci!rla5iͮE椛ةi#]iǬmXb D}-PӲ-tM!/rm~T<$ˑG9z`Sᦱ^(Nc#{XZ.E5ց.ɋ+68;shrLLzl5+VFTZ[ Y:б +`tK+㊒~"&^NI1\1)ܭuG袲R<îDx?4jVrVa7?ALw i p&ݯ#K}=+~>U@F_CifuD'{*P.1יa@ٮ +<.sBor(<'vjg8c[sjeo8Q ^ypSWW v<.g^%=Yj,Pà:vu*c'O >{T 0X{x!GOMb?A,Kಝ`(0͍&6&VTUѓecNYwx&^i&J 0b)vz@ƿxbDt9hN ?jM!t7_*xo>jS[&.Z8=JR&WO=~wnke#qwHI)Uچg,kBC7})"{SB|3G05 ,ӕxdZ[@nݐֿ ŠS 2 ͫ9Ց(-sȜa "ʉi'-`L#PGn emni/T+[r#7Xp!o_`cW0[:LW~5 EKmFTp\LyqZ6Z{{jFtDb^5%BȺ-E Zz +3Tp8UW'0/v&J1(EU6q*OSm2 ą4h%JK߸<iZaG1g(&@S#:O{K|nooJ#=//Q pOS-jF C8r"6T>)?䯿^!~ +F3?D yG3٩s@/W[ʬ`*~m?kvXwrJu %7n;fuj}V!iZq {OBOƒ{ 2`Uƅp1n/ E9U(AWUMihBEtelH))dٽtePО?D(\ c<3(+^d`9@:S+C3+{8S+JaT3W+ƓUi'DW"@Ưs{+b;;'Jo1O)e 7P(GE_9x Ĩ&αȌq87l<1)ǪqwIl5&COUD=-bx +Ae9Q#O{P)?h`N=*)".n#PDnY) |ӧd]BEy{y +xUX { k;k?]o㯥;a )H!@K gG]"{*օ\Ywe*N2Se<5T׌%ϭ,O +3L ?(+C"+^p"Pݐ~ P}i!}RIcx/mc_[Lf Fz0^/ - x}!bT?И~=9oE% +JX~K*_1Z <${1UT/KjMa,:6j?֭M݊MN0p=tUs׊HT V!:?WF ->J@ Yy9d˽?@P]ȋjPەk s8U a4p֠G(zB#puхZH)"bB+Z0XcM d-+VT-)h^)/Gr njLE#zǧM]"5/c 4úvW}F3$@+!\Wj1n=aW~<]Pݽ꾇sE(2 6SQ朮?)c0m]DkکKL;gt,IKQY +7 "|@x8;ia=DWS?#uحw{Z«XKsaĒ&(18o?Ʈ'2 M; a~K (`2Qt뒲.h_m0% 4Pfp[?ofR0Xx]eDOv#NDflJz( |=y`5~FF,8bt׵=gih]ˆ\dFfeHQG}5wtgEhCU}57;5x_(Ĉԗ9|>'d{"wP5яGҹAG)q?gR\msQfԈFD1l2O=_ +0c\6fR819m a&Xm6z-;E(U{]"0f z +%-"4YUtw |,4m k" ڨv /y)~ED80`{N0{5wx +7ơhCꍠh+*q\AުMs?t +xh wmAk5FČ!2GW3VHeUz`P㊇:/3뗻' -YR6V7-4E#@GaTg<:.%2Sw\%^ӿ?tz +;BO%FmGVƄpemw2tD +֢B*@F>LrjDSB}Aq)=YMu@-2#5UQZ +Dqr +. VϪ;E|c p\eNտY2p=.VUQkYCPwr`\ > Gi5bRt%5́l7:7Sĥqͩ0`Ss&B׋Q0!҈DDȱ"QcaSk/늺#ؙzw\0.yVtH"^y("x-Fu~fn<+dst&@b \H?O +7J%Xf,Wp-fAQfH t(eNKϬ7YWLmzQFWO ;aV(N_0 RqTO .j 0wWyh3p ,[/ 5IֳG5տi94NEFL(#ꤓ.(L 8~o{#pPCp6RYD>$s{su[o&w9m3dm钺1GOQohv +[Wٯ\Mkcpٕ6vSsqG4%/^~NDG œ?;g3\ +T^8;DS0,!BAVԮ=^_ipBZm;@}{7HZnvh@mXJZ~Tغ4coEc>M\MܠU_1:ZϭQD ꦎz +{uG( wLJDV!@^-s{E&\ +C+])]XoVpz{wlV-wji +* +~^gz݋Q1 ?t` dG%9wm]?S{C^v%3nF^8Oib$pn1lWza1pM Nr^t㼒Kb^9PbF-+:g1]C؋nO0.wG@a'ہ%*ҜslqL@`Sy5 8% dY-߁F}|cMR'tUAVҹ_oefIvKW v6/c-T;ףh z2IUsvPLK/KɗsE!_$m7QoV2ŵsЃTƎ +a24EΩfоżN -\xz"m^cם+r.Iˁb['TX-*FBIǦ5냵qƤ˞ + +Xy;+qF2Of?+ +{er]ϖc+ý[I6MނL5+_[*xpK_x%Ptxݹ zMUAS':4 6 x)VInemCl]_CR(HM5&I`ji$ į]=FbI1)&+x![H_[WY5Ys*spA.F9F5Q\ Uc+|\^`Fj{8b0MY~:~`F!l#xv7-`!SVsT:ЃXKS^.uڪk aYLwFPEI9 4(փA*׉aH&qoh>J'dOЎK \;m)_1@J"zFa|4Ā*:ˆE.2xt=\Eo[\ͱ9ӥڗ/7b+=4#+x2v*&xu6wN- U +}YPZ V(ʱ E I3yw+1hDFk f(*&f֛t܈lϷfo^BodcMB,5(ej|sշynj l,/x[50N8/SWqC# +*λI@ZS+d:L}͎0&\x0:J ia1O#UGހ^y*}px|S5rUr0m ܊öd#L)=2u3v<%e{6jϑ+gʟ7 kcU_ϡsn3-LqxNpeQi[璉+: XN+ ٪cvFa+ +s U0MįIu޳}m? ,;Kne)m" 'B"Y @ӬҰーʛ|:qvAx5C]=. IK A:%RdrV tZyb&,AgdAj[wyA.G9 +_>mA:+kLZї"n4I1ԩPxjk+M8G aaѤj){Ȭ/XYk!vh#tPDa`;nM]eZgfީ5ְHȿ|]QWD!cy y +ZOW{|[ukpsR +v(\Tl_N޴ULY5hC /!B*&cȸfn_i@FBFM8YDb>! +Ճu?Φ)]Kh`Q{ +cXE;жT2d(7/3Ev*1fJ' x9p)bJmJfb<6e6[ԮIRt_EgFe%̴tA>zϰ$lx_X_f񰇑93rl{cņ9/ڰ/)TFu#Tp@lHBøcԔ/ccrTOUXK@DI,r&¾Wh %y C^cpw9FH-`Pɷ3u¹(j^\p o +6"Sp$Or_v-"Yj&IFObۆu zf(08CK,Qx6DBKEKT *eիh&!giD鯐Խc;]9dT9FSs 'F  !xvO(g9ԿcXW@وWLPq _)lǁաF#7dd{c;Mhv;DD +LTWx F7CG0|vA#ѫyP<|Z1\\87 +@ˡNZPhaZ4t@GL.OIi6-iJ*mUC{r}{T +XTeLX[fEq;P@%pYTXmQ7\icMDT 2)D#r E] ω l2 +/]hd)K|M%"+ rI өxIQgNINJ|V$V=Lߤe*R5Ά,'*>f ^7>+uǾE,LWzA[z7yu` {'MiM ؃8ZU<ϙbzlEN"? IDGΙ}^542O: EErgu\>ry%p{T(A &>Q(I+j+~xٜiPQ4bl_QLUb T/ YAzI^ɣ.x" H-lsj ن%z:2*f#\QPqAC@f2C5XR"')Y_ukyeZ!(XwAPib:Q {gBgvoW =7Ty5s0T"r4*$.V!:W.!&>RbhBO n'³Ti/睇,C#Bc=hk=@qRXǾat0~<4^ٛlj ;7j +ڢ&QSZT: +%9j +X˃cI!;R0 +hI,bJTװR9b.2]Y]2H:#8:2ed~?;AUP>{x)o!-x5j3%*/0=ΆQ04_tw{ѢM7U8+hOٳFgZDYazU=^Ȝ4w:fiCKOZ=:jm[#PUuSkh BI&T# ܩ]Z% t)9$[ Yx rXL%h`a\f(xL/tkO:y0Kv`[bJFA'Y09ÂH4̽ȡ ADLe +30˛Ƈ͌Rÿu*q FtdOXuqL`jyGDA;L)/h[:DߔYf +Q2Bo&t&f*G(dL-?,kDsEIeߨ>+L.E_p0 JװǯD1 gTer s8EpכL`QzUx]pwy)#EWe,"xF 8YxZM'k ;iD XSX~՛t /UD +&sJԾEueAU;PCX H$|אUߏc}1`cѥ@һV$u,dݮɈ(5n%^a%r*N!t N-먲L La|ܼon z0_7hGJp{%{5tE1!,j쩸>3 =y6v{8/ 2QC0b{QGDtU\ 1Ul>GՐ|qӧ) +TfjDCHn]K*6t J">IGelJMoZ1Ow~}aZG"paүrRB6";6wTLإ(kW){_X窲Ơl ?, +)|S|(hwC}Ϝw /7Z06!,CD2eсu:Gqs3 q1Tƣɧ!7JζX!$Ֆ3B%9:AN_sȲBEmpfTpp f[ĺe*yyppAV2(ev#9U} +D0^IMMw@s +>~hטCc ^(A{m ~=DT>i1SxsY\5lC25z&̎ yP-`%9r~?H yc `Z0cbs$wMrbe|%{D$)2y$ގce - +=`p}C s@`C&0AAT:ELRHi}j^^CK8U4̜?0,m'݃M1Sh,u3Da E;d1t!bH+8 + R %vua1#pF6>dBE 5ۻb& ҥ@~,)fꁸHz?쬣P@4akqj{(qDqj 6#|;:v 8- Mk\(\;TV'l15xLSw[G92Ytv#:}-O P U{ҩOE. ">6[NN$HZ*ש3 +:fBIX⥥m:p6/3Kn#P 3#dG | Zv\~SXBQz`gI4 +*VjB[=桉D Q#F͏RL 7iۚj~V<$pPQ>pe'iY_TB"P)5j6wb +vL +&}Vq~ ^=-gś 얩nIcj -ڭ!ealem O2BԎhGPZi3hӳG0Y)6TE`_2|ȃIqjݳcV`Rkwo%vʔ ~QwE LN2HrH7"ElJrP%P\i":ʔpvZ{wBvX6X<-{ E[pS'GP ׫g[lka?)E +D2Py>K$ZX;mNR B.3[:>#`~!{+(aCqOqv +v,B 8h;h6LЧ[Z:pU|*=&OK6ʑVˊ +~(2Uֆәxf%RVq*AʏA[ xT^%,9zg^9[ox]GNW>;m5zŤD|r}5C~6Oŀ9$ߴtK+g|sD4@s_ Kɪ5>؏|O*Uw6ۑԂzs25@/^H3vŒaat/ 0$&DL)1nwlsʣhz4{f Y.fW?98'hTZ5).ʒ'b&spB&b]Ѹ]'z찄M`^rAӦ`KTLlȈV +;E҈{zٜB TƱRQ1K"CӴ+ZR(fπ:2ⅥnaqJ]b{ A]\}ٵ/vN[bVԕ ң3B6ɯMbCs$ɦR +Zػ4nj=A*}U#%1)'< +2i=6;#DsnȊ6fs#AҌS{ +0-L )S ,p'i'{*K zSA LOV#i h>l#ȮQϦq@`z֫~' +%3CCm{f/#k}8nF2K~(҆k^+ SafWpO1 +pn )pBTĶo/ uё7WZ{Ĺ|5PXy?Эh +!8vzE"'W +fgʲ);`y/Wl,@, T@UY/@X@I9c6%֝+\wR/UCss(`!j3R g|\KRdفuWiC8bW 01E(Joa +QD *+dNV3n@%_2K%Y@>)#p&Wti]߲,%dLF2ڎf9z4D[ifu"*D*FuP#Aӂ+nŖsHlWSl9U5EP*"nL>7f ('H%>%z_\_S D ))+w{ ).ljM'k# +_04)F2+zR4pTͱ?H8^! -Ʊ+b[JzTk鬩 +wj(z@/Iaz;nT*#>/oa4TD%C`2$z<Xv͹wSNJpN@9!0m`2"ء=L'thyj40Z˺ ;E]zr*^, ^r6F-Y梓@#ѕ"uEeT'Q4"t?D$E)A~ kbd%=*:֚R3N*`xh6P<3 3jPdE iF% 5k &R.}~11IXjFѝ`P@'ueP^w!d')yJq")k|ũ*’8Q |7g6<w+rU4B tsl(9D}pX9<vwq˹:6%KPyRT%χP\QB69d lϽEJ6.M4KWV8fLRBjOiCII1-20O ʥLT⻾_[خ[mݫAM|JUri5Ꮒa(ُmnV*" (+#XqP06p,]p2ӂEiݏ"XfuQX9p.Ϝ{Qa_B+1QxV7= +Fu|i80R"ak /If0[n!k8Tl n*Im 1p^4G^o7rIb:ؒ +  eT 30i@.xwPfOqMy=t!7c1.20AÙϟrVAͲo'U y] _ (2-!;Kk~{Lfx.YM מL7s7U19 +g殉]t2#RT(t(gYSzP[p (0"Wt l*GP4=9C-#b y#?'3Z3EZ[ M~hVHb?,zq H9G\G|Q17;-kN%ϔ<ۅu!_:}t:lDQ!J"Pꈫq\"'d.2uNT t˱9;}f60ҹEy(! 5,(P").I\Aq` 2@-Ȟ.xj +WɁ{> py`\?ptp|T ^U(tDRu0h{n>1|qFB\]c+D3q.A43z0WW4;GFY9)w\SM-S>XQpjݙq-cfK hL?̞cɏV|:z_Z?a:@^d +q>T5dLm?τBX7q TZ* o;9+7cߐnqd/R/j[J*KEx] ++IEQGR}'dʬ[w"`zntDJ- 2 m"/z@>PCE K־o"TBE4.[k X1k@w2=rVQ(SfTڮȆu& l,0i6W/5) `V 3\TؐAZ[ӛ|}`+C^_TQ=?_I???????qswO~~"=*) +_hðTB7qK;ըo h]`"́ÇEK`m+;C46PCсZ1UmJbJl%X:KI'1Jv+W~PR_C֑ŏ ѽ=<Ǹ +kXD( +_ l9UO/95oʄϝ ۙ r@G^j2=ބ,K,5`?Vh(Sx װ=()NK-2p]DG ;k3FB-ү'-,z!)@B0j|TCviDwJЬ8p {i*xjȡ-Zn[K"WV)Ύ3 t)EeP.4HaYt;_6SQsQAvpBGe ב/0߂2ꛀZ$pX]́þ<]A9=,˦C;Mk^}' e)\:{樊<@xdvDԇfB' > XmWbC-ن>t; 9){݃S-`>4舱kmXПJ%&@_q2}M܀Uc.j'gk%ݞ;H,a택 ͝JZ!-ZA{Rtn1*PǴp %fcR] +O{tlG0kN) F; +]8xM[ϏΒ9KڞJؾ?gTE~^;_i֡'-;[E#lE< Xc=I<2{dח-y,Wr3aM_7I4sfsI\5@0uN3b5w^?^jVQk)r7Oz13fVS: _眽|+xF ũYKF9aS<룈 +c-L\󉨂JxpwpSE{Si8-O]Xo$T=kBz&b?.(eG7Uj}`}+5ɉDr 9K,11(cwHEqW .-f#+*={YְO::5 Xu~=2,سSwnݕ'lŷ I&/ػwܭӎ.+|d +ןzk4 lhYΡ<{E2D:m@=44~5}}?f5 BЖBf7z?~͌{'z +}Tgόr>Sq0/|pEsz}CA&TBJo:>yEBlOeS;w_igvHwܿ}BXwzK ŷVihս?60#VPx~.]Q5uymfY75 +DkOqq{i +}(W#8Ǔ|Y kn"Hr,M} 3Xu6ީ Ṃ P. ;"pkw$hiP`\sא 4ÎXbqM*U&OҫԻgle#iyWN0n(M̛om߂Ad6g.4AmS4t .dob ΰ+ $ӓEutb}K꿾zdH81Ś2ZHʸ@F-yڄJF)CJ--f峉oQzص3It40(@ߩ#ՈSu?sD4ْjs&a` +U.@=N_f֢l5OI:@(MχJ5[k>^C@A Mrl +k$wiǼNUt0D qd2~<;=4By.ֱ M,Q_aP(Ggtî UܟE%=b xw`:6f>vuoG0 >(i\_FAlZєmk`\xp胂 òVc֓bJ[!]敼{Dg׽uj;ITk1$rM>/MS&CDj;ہPZà+GlG&l{{b&5AC6i>^Z."N'm*&m +Es+l#N%##{ŭg۴AH6+y~ *T=Dg۽}S &W;Ka #7 }Oء9!,u|N{AsJ9z0#,̏RK|,ӱHΆ:S Ź wϏAYЙp~ nA7FӤF=`wh:-I95r-ޟ7Pg1UK$R_wώLtVܙv\ v7 4 !ڄ*ChZyoDGeHwA#bNY3p FO4(M΀Z܎g6z#HvK4{ia3w2"E _)QVp?moaejFV4OU[l~!-8yj[ሴIBb߽P6G}q'\H5$r4ϟExmX`XQq]Q"-[M14R G 1EQ ;!ByY}D6KhS)ΥV r/ }(K +҅H6"2IR| CB: ۽@$Zv0r$ Ϥ3ѫDŽNE1O>1]_aT6#ulEx 3PjXp,;pi-v{HqluVD8flYŘG~.HhN-Mv݀VxSd$gOp~RI_bwA0*!eT4a&Q-Kjmg8aRB얆uS֑%2ޓP| Fy|GAy$EV;@_ڄϩT~;O 3^!+Ч~L)sa.Z(}{ .1G!'HЧW AoziѵI$W@Ptwu$3+O80>EOe7X2 I@zL迂W/*koH^ ujWo7V[T V)F *V.fJ@gNţHuFw HLJe34X-W!Շ"P*ؗQwQCSBHROC,LCjWTa>'dHfaQZȲ"p"B0~GLZQ吭:])lw?1 +z=ixp`oȩ_ %#g,* -" &Vtxmu]uo39]V|FPBΔw,NTii +ʤ#ʎ0qYC[@|_P:P(mP~3*\?H%0?Z xR"CR;>(h87f+3@>%u@;Cףn-l!+v,i!G/=!Ddx߾VZt{kоh@ 3T{h|oyXs k\}Bj!AzӉ(s TN4@*W1HSF2_8~|&qB4až?,U"@GEԸ0x[0;[ N(.Q%;lQxLmwU4Iq@m(=ܠ"ԃpHL{#wm f2[pf4 %?aهa^s}4RXҸxF/\ pU83ՔgfɡO#?K^ nk"à +JWTsd =pN'xmNxD:rmWJ6B>p%@n 2@P,̞aB]O]W\RM׮qIw:dȾǪ: Gά]?v&)?F0p`oF\\Zȏ}sNHi!2&0,81}ޝD;gpx_`+4sX췡|rd{x;P`r bIjQooʩ` íZ~lU$,%Lk 5e\7 }\Al̦l|WbOl9:}*s6bZH6j8=,;Do +jqpkl5QF-h N/8t<=WRiǁ{E|WFbSRb㾗$`a4Vp{D{ :aZ}zoaW')K6ϴMٽ/;x~vk8*K,n_)/w'EqTUC}{,(y$CгqOK.}Y&CԲnޢVI*Y1Cw +"@LrmCRtPӀr9175!a,u*6fU^KkD eEMPIaD/zŶʲJ>N>S8M;n(;:,G"~ KXo`Z-(s@ Jj b=.-E +X$]* Xo pR^yr"`0e,]$%`ٕ) +]Z*0I"@ e1UPzPa" B 8 u)ŐzF{ B.~W3Cq@Qkl51obTBgpj?1c9eGW>]ڔ w^a_,z{')׉qBAv,j "O74MU]eU`inWa@F8$6|:ԅ= k^.Ҵ5fZD=R H:!- rOÍFBmASd ̞M3Ǝm7zDJ\*šEBy[b;@Q#(Z-FD,m}~^X!-dIW<"qX,# +t"9%!i!Ih u +^ gt5H=U .u~Oac2!WcIK+s˫kTI*6{aTpGk]bG 4ү6s݊QEwQQԾ-JTݧiRe jc57rhUőv&j9OƁi׹\GwAYs%`勱ϤDF5̎ +؀f'֪Z9j.0u 5># +,ue~ M8?ubeKCm+"}/^Yshϕfj5k>}4 k#$Hp^i~){pu=:ŨHTI;M]} QO,͕[.Sv^7e[mwBI5 ?}WhZҐe%ǜ@TeP<{:%U~P*DՐBmnkUm%$% @giw;%W1^#TH3ђM}BE (!k6ѩu"nm*Ѓ ( `Pj = +c{r;@ 3f&,'v~ z?U16,_J=8V4s79`(h*.ʒ⒈@UNSIoLIrbgwsq %c'4,Gbgu$g( hU0;bKct=_UR 'm`Q03cS4vO(b^ `S@O} &'ҳPP3Pv/CKى'M=c;7D YٸrIN$ ~E:apr#VFr􍐙."Z{4f^!D E(RRk..-0?(:`$Ne/kNm%`ե,qo~eޚW w3"UhKz& 4O]8^` u5=$Z#ɁF8Vٳ(^ĺR +\!3O4Y[_ + gjrC/ +S` +%<Y%hR{ ZcmXx 0u{Z׊UYQK +œ3GR\]&V(bACOmodX{6&#@Ph}(2S=rmZw`H @&{˷/ye_\yU&8QGTֳ WK"B"Ȋ *u ~#Cb>BKg  dgų (J| T5xdzyʰ_U6%{oeN xEsB |sbƄ):ri(Z0%DAZD^)_ڳ b@ׁя]^6~,5F0Zoȭa@-rJ_pt$(Gl?)_t08W b!bn wZb6˜ +0-f EQEYm໯s0Q5GwW"eZ0d{2̳}&B +2g<L:5=iρz uA__@HBOh){3!bڐGnx4} +C< BZRi4>?@$`ÂufU-!헖SNQ|\D~8;TiyPTSzqCn#;JW:6/es iI'vll@e$.ݾGb(@ЖqxS}nYoIy%^x= o出˦S+ZPG*, +荖 Ŗ +6GkZ5jʤ ᠋pcK\>#4R_C'=V .p߇Ox?> M^Zi?j+o^G |$?B6أ„kQ=CCkM~)*z 5!h ?!]dM}' z[7i s.8 1нG!)RpF#v# 2U*fޫP- MYB5P-j7EOB"iÀ'Z j/Qj@RPG7\~*~ +38-}+zvI5V/3A\w)j( ) D>vVfB1Yۡ:Yty3~\0$'p.=j0ï|'`4(Y`F+,P$32t# +'wnZ 7!B犿g\›& 7XI0_ /foHP$864Wc;Q7U^ݬ0syT ͠%4JOqfg1o& eCp +۹PYLW  `-)A[";-Q;$`S\-5~"%at_zқ.Q='WHKk#]n;&Mt8]d1P." +VQnnF@7w'xl~T-۱*XuD=U羉ǾxrDvl͆!xie?Wk[+C?9x{aL܄΁ ix@&A(' N_ :vX?INӢb: +LD7.}{BI,#R#ޢ68Ԯ$ #z|t@PE ME+//)"|[s0Pe&W@٢_*DBaAK{'9z9S5_6> vֿ@%%1)aYdQ34 @|-d=)PY~]dqiJyY +SB:@5DMY:ڻt V1A jVaeHڡ6vڍ"G\+<*J +N;]r,/z8#$ uL +;X4zLk٪c*IAH+4iȗܠO~nRW*ޞR;k LǪFF,LњM IGg.;\3NE{Wo怲,5h19*ٿjrӢ&Hٜx8Z9Ɏl)2|eC6̗7Fc_Oo)j o:{k(:hn]$6 >SXl >'p "DjY't8Byla*ļirP0tfRE| (( + 1/%D=@#:-n=7s'ddE[1(r&tӣF9&88>[i;m2"-"_Mt4&<Io12-,jfk^i)ҵmE@RaMzb.~dtJT/ xǙZZ +tqN;CxH=p$TB'zS[>n~%o1}fz|c[kyT f'= aNM>-i%-<4|! cs 9Jrdfl:B)b.QKΣs\gu9 So ?ʢtPե: %S *tל|CD17z WĈH;8UqKT_[&X(#jJU}]ⱸ9`=jFmԱHBf|N5 fqhO8@WãZCR"MZ5U]wĽv֓幇 1"X +0^H\mMZa[`vuc4[F|\"o ifץ!L`.v6olHZ%8L8 X=dehyqaliyխB#6iQ]@C&}> 且ad fD5m0@+Z8חuF`ZNQmϩQٹũvNb<[CD(@ڊR .ZP{KU628~نU EyPPUpu,US.$L|)4c:nSv$Ia +Xݽkn/=FpzJ3dn-r֯dk sPklI> +•pnK_>zUD|G1p$v^z(Cj-i˖*0H%>| Ub .CL 9p:eVr\\ ϶&י#1.XU*ڝuD2"kbIYV%ckLacxz71] 3^%eEa␘CD8~ΐ|Qky4X=VBxr-g>&XDбAYN׼о˰z_w}CF("+*uͣ7a +h-@hE`댚G]@:Cmdk/E3؊&ը~bV@҃F w: W6 ;J}|-)/߾ Xr?S \XH wX)aa.;L7aû`R%REu/;΀"/"AIb@;@Ch#<9{*2VXMSįhU4d-O*s2:SG847݉ӞʡeAVy`a $2PJwa O{~dBӺ_T~O?JeC  6B'ۓ(MFI$VٞnmS=У*&XOcKdif+;B +H7sZr/`5h9b~`(HbahpzRyv( H  ٮt$zҋw$>cFE})G(Q=v~ʌU+2PHEx/3{=CڇB3!V/#j^(iK +>>dYJdL$6{V@=|Sq356sJS@ҀCJ-JA5`޵X(* .HyT!1# pzAevH뷘&PLye6 ~!H~!~~pi&@/Eg r<00h@@tYF PT\ݘ7t;d-[|.-V$=_N=sT~=(Oo0,_a(|e6US? ԃ e֗r^ح̢̈*n8W,v͂('rYE 9#69>\-:b8&N_Te_:\+|pr"+D,L܄ҕ(y9o\a{FrYx]U-4) ,k 3$SD18oGuPءTಢ3 X`x`_!|`gR9*q=ɤ~/1&.( +6G ݕ;Llàj] t;ءTT6T\=ƚvyFFHW9'MnUG]^4>Uu_HB?!YS)d+,N'*A'Gn1)XG j;~vdyӼ֭9K?!c$NCQ[0%ڪgFsqG™!&[ %x\3)>kvW(^{ ;bl6J%m:~]wlYcBc-YN;KȃzFR}9諩")8h]ߖX:,S CU!Ohar:xR{JFFOtE њٯ%JXl0Ď"w5Ϣ'3N +(e/mѱHI,Z ɲFQFS !/r<S>0:d*`V44e[<)}2$|nipR҆Zv@rSECvE>ooǤ3D$B-Qzu +hj"Oj?:v? XE[X-8].[ro߅(0"`doh a-Zϔ%/+1U4 +T!e|T:I η (%Fu"9LQ«9$i TMhK7=)"A2|~J[rdBWivD+?P{-ؗ3w\"U\>(|<y$'K]!tjVvt1>%H[^G}%\RgLk=L4 :={F8DcHXr yg {'Ҵa 'FCm^<`@i 3[05`cR*3B*Tsc +cCzߥ?@^=E +} pRf6ɋޮc6J!4.zkЄE(bO-iNY9 S*Zsj|-+|&( 5LnāE +=`?)*(%LǙv`E|`fM%f޿M(=P&!]eTWdKr{@f~B>{űájfɠQA^,LQN W5܃t9;[Tf;i^!gQ,{D0C )YI|z:P,}R B$t +ɏ a#I~8upY}o./V8~|'s"\tfR͈¯1]Yqe]"*:sWU)54_E҈['S|t#B 9o^f;ZӮGSjzi`5 [uh/@Y f[Bi. k`h\4TGCo/HHkG@`AG3z?}<$v~ RT0l<ߴ7GNV 6 ;HΰP4ԍ"5P [չn !Eisjn li֭E/oG@_p(iFtL]QE&D-5s~R2i{sãJx[1ҏBzPAt!i1R(dcBlrq \Wg䑋pGG$!He"D@DQDz8,\k!ܰ4 u{`$τzH`Fg]mgTp*#F(h8: v ,@SV(™̜dГM|e]?<^ ~m +(of^@(ӽ3(P-#^(a10d#N퀮T JZ!Q #NEAfI9J]8 =GFIP|Jc|{*81 pt~{#JO'%q>WE]*^{yNW\UCK8Q{<`9{\9Bt/v 9 +AY=#n) 2yWw/wg!VOTr).jIcW@̣yr ӦkrTXZ> +q$H>u0"`) 4C}IG2@>NˇV +5g8GMYޙ1=UTV@+q5X1M.4'9N3 3!r vJ4$/HgH +K(O"NGDD9ܺzݛ7۷_^0|囋ۯ~x{wѽy_}<0(߼wݽ}wW/o~74 ۷Wh?2rj 7?xr{޺7Lc]>xyMs_j&oņ:Neݳ7cvῚC oDCz9g'?+@o^ؾR{o\$DN9o?G;оKiI@/?Y<74Syȣ\AD, +\i?H4&MYjGNP| +Aôa$&wmCD{ S[> +09\hQd{$l7p +T oS/@S;걚_1V3=YoGwdO< f44(#kmKPpT6l~& 9>}8+&yL{̢*ԬMxF3Ĕv qB=xʟKGS2.]1a2[ugts枡_0*Q +7=:й&:1 O=0/EybB" +Ia2ߠESۇ|`mi~@vAHt#]2鯢OSw°&z:õ郘jҎc Z;Ԯ5G/{{xl ;jLĂo~51IQԨX'?I0T9fJw^c +TIâ=5h93{>[|~ÌָP?nz!\|Lː2:ٔ95%C;Ơܐ8"".eFP{Zzah3z7~05{3Xg)N͒H9h-goUc2E/a%TV$}plaQ;l$x|ĶWO+>7 +r  ۠4SwQ7khN:NęSӛ$n/`= +pw3_@lB; +wLA0Qz8Mİ)3p1Z=,1RouKLYD$c?R'螪 HcÓF-$-i1c;9|[^3sJCip1!!}QnSӳFu#^m9.xplaG1Ij"\7|!b&\&j֡H'~48 `@WL|;@?$7#QGvK#ᖳ}4hx L8{"\1B3uOuR:I𵀈bi,5 !!f,Yxhbkq'8GF<"#tZzޯO8odTWL{jgx=)"*iiGnAE1 „ST*Z %"z_#QT +?8 C{9vL7>y$-82@GBTĝyll!D 1:{Kw0f1`fh!ӦƁi-h\"82yoT?m|H+fLcVh' ъ'И^SH^J24KA7+CT +2ۘAqFbQᘑV ~ofxFK,ڱw{oǣlÍy9Xi/EbK!(ftѢ0$2<R̓nJd0L:h~d- B>?5?[B0V.J|` ҵ_uMc\MÐz#$~[ʼn}o(] QlHĴ}ډKa֗.t+o&hEEY0Kj5[Q8n嗹>nѮt EwlW͹ 2UNK| },6g21@i7xN"P0!kbA<3~L*zUYj'y](:NXdt\ 4H`8kSv,!ER5W7GKgЄIEZHsmu8|@wGN}Y0$;tBmBPz5<WshKRglq_d`sVG=|n+n~j hAQ?Qc""؛6Yx!1hGQ;Ƞ1u_ 9ј,Q _ j0* E[@%A|pYRhpB*:'c/+][کNP)Ҙt W'v~L|_ B5YDڣA[mX 22bjԳ0( &apkh?n$g[F~qfBtxɌ4 p }0JTYw~Ĺ:L?V$HZ=y`A#Z~"G'_h^eȱta>s`IH0bq+@mQn̜X?Q-ha@voJZyub՜&FZ i}6ůPA7ձNHsa4N.Lh7KtcWyHl3ˆ( d8Sdcq@ S[ ?"4D/quKfFcƤQ.#/h֞=~g=9X]E$8 tOUm=ۏԒNoiI 'Dt5' oJ}c{hU%"ӊİ<L MW[OUtbm#7T#7<^,}RTYא +麻vJk۞WhCPBxa[8.V9 CGHGDdcUidh] F fQ_РTW10yZ=tv}tW8̽("Y'UtȤ1v(@>0;:[wЀt&_-Msމ!bU`CtnUc` :#jz)1~<^j +ÝFBYY4 RU-ݘջ z!8eBH4ч ]P4l$g1JBҥD$K4\ض=xcRĐK}>C;Yje\3:1FcEBl0>~a̚bV:h66_ĉ昝Ek=I#I%BhgC8 +&aƄ'LW1ćm@Pp*EoGqOt`m'fj}ӤDtdߘ >>zQt]<㢗 =ZUQHKt`"րJg#Yf2ZD kCRLaO/j@~E=/]aB D'u[)š>_5`@˞kDq XŘg>DUEzBa|Et$ \"ǐ. L3&DIM&)B"c-_1DlHg&磁<}|kB/ϨT=B;*^.`EHti_Y&"[PژQ"c1}sz{(10h֋غ!`ԁA@-}*LrLH}I r7="QϞq! Y!09ʕdz@AO9qtՑF"&*3s9R'u`*ShzB`=lۭK;v\t*\|NIKM YuU@Q베ND/$">a'ڌc{P +oU23p'ahBj&r̀{&0=ȄH~\gh,dVލQeI˾ $*Q+"oзo!LD7 +G`sݔTэU14K>0 tE#!xhDEIG\dH%5:A5ftF79Q`^eNng%ZvTj:_4Pc>HtZG!So;SU#瀚c +С>o& ֒D7M,.-\-I(`Eg5^P|̀1&T!yGC'GQ1(\7Q:SIne4vkrM[R|N6Qu7^j +ZH`ǚ{ef{0+i{\mCF=H1݆,I ^l˜tH2%~Ѕt٬!^_2+cL 0FQ0L :!!Rmon yDw^q2 puqlICkÚds-AQ,5}" &G4QFsv1eC3BLhk&'pm Gwb̙Ŀ;ihK,)Dtf%VDۖ6&@Ah&rzKrDE57HWJl̵ +#Ibi+"ܥ^OSyϤ1hcԭ8_0<&`:p6_,͵zpu" ѹAQ0j,,'aočQK`5 2c 1!_8W%f`}Xcw +]܁Y6,lDΌ XߗS~vȍYW5>n Xr ,4TW't BK<5 5U " s5ĈWsvY2 OS.I0VE_)0?u`q#Į)u<ZGU擼d=ĪZ>c$t $KP.2(Ò>|c&=ZTDN]ux b h-5*A>=j84tЭEpb\^ kEJRc08_5\D~lz.1n2x ".kl2Z}T2փ +ՂmcI˧'"=>! &GMOH>1̓p$T0=(j̰e|8Ɔ*88sĜ@)!R}nb1($:T}1HwP6HL DFtfZ/uFwӏNR`( +_ pK:auŠ4Qq1ۜgEP9q5v(bKLYmpn 6kZFѓ\c;Ӄ_xM +t%1-̦,Qӻƙ)uƂ0W8S*$ =; 'r-kxUp  PО#$&-6?0KSIsjܒ|tr}b\rLz Px,U;;~M'|2#Lx6v"eKdz Bm'/qhR+]`k*Q:I;LPiasw9$}SulǎllL%mH/H#T<1ihf>x5bVa@ߠFrʗ$ԕ4ԃ=~PQ7AAn!UĞ k :6awy7G~#XfWB/Uy-$M p45=ldaklCId`X"Q-U|Ah bi&OU2́%cQ$8qYv`#\0f3S*;.Ec3V \ 1E!"k؆xЁ&"BI&p8VM $4xK()Hq%TTl(;'!R٣($_+2eWI56AHi*@u+jwg3hw9t=<#q_hS6Qh"eg:B]+p)5(OafK(Pm)I4DUƣb`t~I  U5F+ltQULzp,Gv4UB%.9fS`ZsBWOs=h `aE3FpLN4ZamRqMyZx2:T}jMNd +,YU 4[ ՋLX3BLbTLh*"n<X0UQr}auk*r!SjCsY5YAQDB+l#B#z{El3[R2 Fn(]̅51YZڛi/1`nR`L +20aݘf:Rl|Yܤ)\Cb (NE?d2=1*pb@DT_">@W'tԒm bp07 Um-,i= bVf8+SgK&Õaۆunh# +Grg&6N: ܖHg̉mʛgshգ5\20'F<p8luO 2bhrhxd00̋'<*sw>EԚ@x:d>̈yQ->Pi7@>cl"їl`()4 +05S18oo՘G"gJK܏$:}ӰZBꐚlȃک2=&ni:@I&QʈDiᱣ'<7̖dӨXGZ,#nmV-M /u =0$ƅtkԢXv_tS>O~eF`ҌZj^mp9s[% # }b45l2^ ѵl(".iAԺڕe.bjGn]tY)摩wD̺F GO!pȁk tdN LRkncMHg.ݦ1U7&8iQr/)Eu`3!9g)xdg"H55\q52͙p-T`ȘK:?&fBt٨Po( +m`60GIAk)gNջ:_Qʍ4]|?!؏Q&g4]ل ѝFa<4K!Tc <7"I- - #_*4qa5P:䆮"‡a@UڤE (Yh4!L&"קZ`%f|A%G|!%v\Z +O TJd'%|›zllÆtkZ؞jВІS2l7,H&KxIBεX8%4`] /Io)n@E|$)┊+kg<41 g:,m.'b,ߓW2GҨkHY.eJT}؁Af cBBR>MVF 8QB2Tht>HR#Z(%`<'2ZHa;m.Bt:Nĕ:dQȒ||[ Jh;jZ3ԯV0LHayQ v)X@ksTg3ia0:GUKXD^SAMh x"_kkBLH4}Mt 6a4Ƃ N`&CA *Iqj\[±,2qH'5$TQ 7fMKw#vPEa;%8@ADr@y,2_0;ոXŬ΂^ِ ;SVɘ (~2[8,rFh;jgV0O1r43|M>|Ŏ*E I]2܄SJ͟DZOU9-b2,çY;da3fWGb4#A11禇V:h#҂hk}IЮY]<~ *dQ)mR"hdokO|4v-Q,M& Sm[Hq, +ۑ郅A-܅m.±saARhs$lo4ͳ!dJ6:身 )H;z Qv2.z$ ;*ܓ"l4>IOG^$527Q_kMу .ƩgSk4aqJCb/K[D fDO_kfWUj]kZǧ4Eu ?Y67ϩ zZ)& +=z`U r9?A49{c \S"G8c"罈W;6 +B11PMuKe +?C;Vq1L6 2GbHy ңT jMPqW[ woDpJhSAuyMn{*\NUHQyzu3IGeN)>ۄ/륲)H6{2,Y,EE 0Ɏ0(1e6áY?ێZ1hM:&3/ Elpdm@?]v xpzߴO(hwb*<ԪZ3D&m@8=I-QӴ]Ee&cɍXf bHƞMT)rOtw!h M<ȑ>_B~7z֎JVy,AD=?*b**>c KG5yT1c )cXM v8#T|@n~"L,}[8PuȌ%Dڌ@ehȆK,ʻ£b Ҥ^bֆK,0[5*FhQv~ BM*`l,^eP9_DSD[@NKg{OХ7˜c?z%YZgmĽg_`3m7p(6X٩bqGĴ*IY:eb #tU)E۟b + +;ZdU#ugNN':]WdP]L>ACzj͛ۛ"'p?wM2?܄w +h%\'1M9m"lv%*\WC'ѕ}c05|dou\G2 ;*9'pR0syڈyX.o->т$fɂuD~k*U`i@1x170ScA 8?PA[I8DbqU|wGpCST3L|s9*i=m;Fӣi栬0VLyT-TR QG'!"uot}И;u?tp>\gwbkc= NQ;ZH?i|~mDpqlm4j}oo~3j&6&.5Fy:BB`W>MZe0Ke\:Z hE'z/r)6#N=LJ2G?͵hmfq_ +!”RƄN#7]D]) 1Z"[@pz1z. +LRU\j_3іЈ/>! 崎E + ]_q~4CnUb +j+Uz|Hc3M4wb͠w;o{'ifti{3M}+[X4Uމ>W4 Ndgw&|5R4β-saoͣwݽwN$N׼ކϖ&mu|4hg$zҴ?_t*{v3Y>J[)W~뜮^-Vwt^0LYV,_^di6TѵSɗI4SY-67MxwNI/^ ~{S>gjM{_~k[Vmj|wnl0JAZa>(_Wv6jpDPv[ov[LyX>{=e;{_^S֗oPہ̗fNe ::˹ZZ6"kj|}P/#y2NYZr{zVPE?ɺY$3?|7 j%](VէpupZ')gOR͊tц6S=˙2 X + -&pJ }1-)ʊ +,Bݯﻻ߄qj9[-n~|k9LD[`wXw +7ɕ_{s}٦$oO~;oti9isvÚ^[_ +1~S߹oڻOskSےΛ׼/%r[p(T1`nyT[?S]Vݽ\uVl{?/~oyguSݾ+o?Wown49G'_1 ]ssnv[+[pzΚu)4[nmNln-`x:^iiHo;ϻ{k۷R>-^>Hֳ:Ne2Zn.&Qğma:Xe8}ZX4 N簳eirz&&góO})4W]ck>`0 ]qZ^D4g=)HlmS5$4XwX +WOz|sI>Gb̖AbS77L a -pl~4Dpu`x&k899;Nyit'2l2…֗u_ Ni棔?ɲQlddjkl G+LSbR-eKX).g+N1:ZPM+ÃC[ y72,~Z,Kj'^y/r&b{,CJ"_/ I XۅsnਈΙW=_N׽,Z8|KOV8L^ ښS}h5׀9'NIuxZg \55a0as7w_ћ?<Q!_97`D9z +_Wm_J[pOY .䦿f&W#{~|σM@>ܦ vpdK[5U '"]mG~ lZVm} sls|]ytPs.u׏rb9_{ʦ̈ث蜆J*nI@ӕ|kKY+֊\0WեMBg)]Kcut01 p׽ƞloz \Ђg@ZYl|3gƐC8?q1Q޳ׂ=rM gɪۅd)_;dj*!0Ey||?7^jwvn~ONe:}[/sx:tv׷6v'JM4g{aíkP6wo}uo{׃@Y+O`H%Ht0G_yr@탠w 1HOXppmuO_Ͽ-wXmMdkBػ4D6_ͽD5 7[T@nY/mm`XyQ靯XN2b<8(6`R, XpdEyt]_=U\yR6{Ϝ6DvacvOս 1+ywzwXsGkptNIu˿ނz.iuUuq_uڧ .8!ҴbY8 5/@II@qYW;G`źȖW e bUe/V ++z8 =>6M2d(`fPH|8&|RJ>VrXʔW@7m+Go}4['){:qifis%[ 0_;*S+Sܸ5V/TǼ]W݃; \mڶ9}[^lު(v448E?NoEg,^O~;sym;4k}[ 's)Rr ܲ Bե +Ŧ[ݩM;%px=U} ԥAur]? 'O58Z֡[߅ ZvN Gq`Iރ%Mzpw^.XO{.#9\wZ&PP-et;)ЕJ3԰ڇ 76(kz>yw5W*w no.eXe'ڿ\:D4Ҡ8N+uY}:)rmi2LdknoWsO|iVr2K^lmvZ;`˹:C)Sotv7Ӥt#馽n9iY6 ,5vF4 2߮Nn6Ye 6:Mezj{/aVOr?;uj+{Љ}/⏮A}Yo8:Jq0-op+%ݺ[=M%ج\.>pB`)GY9JkBwP^B-gpS~XԞa@B2dP{aQ 4o:O{^vnA"#&@0i!LQ)F锶rnuz ^su9 8.0_ɗ7Z^h=Z@<1|uh]˕%_s +['Nn9.*QK rUۗr۬*Ҡ1>7~^NS +GwcwDqRFc;Osq٭nM<5J8ZNVv@G흷Gez&S ?1/_]pŻWn/qpkӗ{ jqLu`0 7ws{^ok9c ,T^뿄g?n/ +7<#ҙī28y.gb-b8NNT} +eURؐ*[P@8 +kMrH7}+O3QbIu@ 7=/G`.6Ylnp6 + Nkr ïncN ~b8k +2J~gKvLih9qo9olMYJw۷@J˳(F73LPb[,m I۾{ڿ/uw5`lpmsu 8pMJ&P3 |q*\ "FAuPCV =pZuN FkpBuZAOm$Z}p/™ rkNQғ~zܖW?c&NkTפXNpLVWQR.@Yu&^^\;SVz'ワ;/=Q:CNY~=|־&W L|L I2Gw7ē ~v$Ky [͡KzvM9 }֚,Vaaptx_8|y?:]e +nz>!1->s +  Gワ6<3`o }fR|>umb65oZ(zEyrпv-Y7_ 1_xM/onݨXRtNٲh 4u+9^URv{so)[_#Rgo9y膠D굟l2P0b .mnњr67?) :;[}\9ӌtu.m.u6[6QG ml*Z@A^Yi_=Mj+o `<`[+vrF +By߭v;Ķׅ`źhAM{'򪇬 < + +7e鴶[A l2SrT XBitJՆ;~OrkOb޽~<φ(Ҡ<:ma>|V_%A.m18** .E.beݕbmX//_KW׿?诹Y7?@_tF8t ߻^ygAK菰,X + s+$rR2\5PFFA)Y=I@זM +8nP/QOpPS5'W÷|=<K6!fJDq5SɊ ٵrfRp9>pV!tZ)]']]/*3ۥ)(v:tF>4ۇA5*HC@\J?^qԯVp6~4W}yL M1sW J@OS jz^]?m.6jPRH NqdY!s˷n*t~X{ \!| 4}}PALl؇Z]w5Kw }-c@.3'6zSN}.(~o(ԁ=.R# J cmȄP-qse}~Dzw \u $ +B9<)m$tp { lJw.\ Pgw[<;1YTANzkN?-+Ty)YJdfoeAw' w׽ `$ưԽbi:(׳%W@w~c7KxJ2l}5ۀt\T"%A5@z٭oWՀ?JUV]ZWRuoRn_^UepLOKK9P.X8_O/UPO[Ib v2N&)10`AzhnV.ָr(kJNL/ʀspc)գ_,eE<筳4\_d2t0@>h+>zL2YԤgK/p^&\C@pesUp,PtwUkUsq9xrxYN4_+w9h5ׁ;}Qer{a+SXwa1jm W?צ7GܾM}x+H],螄M`>&}mL'$FӇ  `{mzi$$Yd[%q;:vqww9i!O!zK(;48I`?1k.(FHyNyW;X_p€1ܨE_Ov@ŐnF3'\q:{EC$ ѫٸ1s. @LxL  +xȸˈ4}s.yCѹa3 丑<<޿}h2!%۠d/f?տFuIn`3@UGH(yBкu;%uW7Ba&acNQ![`dڀ'`nЈ(-zb,o!xStqX35d jaȻ%bMHCpp3@"X'gM_r wHK p7G͟ʰQm'{$'ᆙN!i4쩓"|.wqD2 ktssy:{e26I%歁9 Ji-0 {TWx+Ք\^r@5Pݐ 䘝1a!TJ Re5=Q],/5dJ99\"g`4PAw vܘJJ-j <[.Cl" Q(a,b!m"TW.Τ6ң|EV}$gUdSPAF_Ʀp 2 6*[i +޲5ti̬R۪,%U֐Pɟ1wZ|:uJ,-Je'r{ƺw2TqOFkn6-%'=2?9knkt.1Ƙ TU˫be4 \ߐkjD~ꌝI+R7uT͓|ni@Pyb/,.i6 *Ẃ4"C։xW(, +ݓh6B6:9006*&SvN 뗀L Íʥ]X =׿\igϫ]9ŸpqN. ,J=9OgNLv`2@n1 Vֹ9#acUM=Tw׮L޼[•`i/8ز7qe89+; ~Φ'JkJaޡ&Vj3:K,k({oIXXYMG'SXskͥ󏣡/_\,/_HO,\m(Mwꪍv INΕ֮;ݽMn֯ȍ"19mRzhEȶἑPLL@~!܊O0V.:o; ɮ?^6,t f$bRxh͓j{ϯVYe&ٓba1Z[Ow6gv7V.[z3o:T>5CR.:8aj/ B%4X +Z ;cTҼGȵ:^S=X|6ݍ7Tu(Ξ_KBn#ߪs + ֘ dczB^-ܕ(ڶX\fShi!Q_Ըqa +IəTc-1xcxL_y?j> uhGڧ@.,N UWs򢐟Vv7~mX7%ZQ\c ʍ[~0w~=p 그t|V'ܺL9`aTĜR,,띸'۫=:` RjkvgONyϮV:[}-)9:'gV5!HOѦ/֒s[E܂\qP#aŌL)`&_of;y8sΦc3ru|*O,3tBr*݌dG*W/bΙ/|2d'Ofzmh,.=.5Ht&\~ E*QԖ\Dvʹ X0 VŅR\\ܿs:aܵ\=:WNo_ղ•:S Bnz/]4 +o U?!Wnrqwh="ɄRmNk'x~ +RuUKC: s`DX_HN4_u4 +jhne:Jif'\bd֖ٹf!h} $@(.f΅tj67ٻq_|LV =Mm0WWZ/}g=RʷW.Ο}yy}v Bnn{n7Mpe-ΝS{pzz{K++6[s jk}+3%"R!TN$gZꢕJix5!3> erMњ](8aTATXӠ .gN%PzڳH1\-/]H.pH۹\%LxeXwfSjG̥ڛsl{֮|ݼ2mt b~Y䌃R\zߊ{@JG;gAvu" +?)ABT䫹&-8'_] +Tc9\I D?1l*u.JUHtTv4Tg0p9.2x+`n_6.sB )A!Б_նS¥[{v-܎֒mFm 7tFG,40w:;}V>URaVil$z7ֵSqQm-@L۞@ ZkoӠ '@|RNRj U0b"nn҉. 9N9J f2Ī͍ɩ;>k+O;W';>?eF~;V CNef.vovVj;RqK{71W()JgRJcIMh~NO?9ԶS?!T~e\l҈TVRUg a!@FOPiȲbkF;DYwCNu̘j RRa(|~0+NAEjq3;sQHJ3 +f@띬._q|ʽU=* *!K٩e#;;`Q Fʆaa3Z< +a\:L-Tr븁c&'LEG&zt s^''}Q=] +8 'E&3e4NIEB̈́C.o&`նhm\/q"6:KsÕ J*u aPlÎfvnS|{qpin's @݁+[  RY<jzP7|g~4,@Ԃ +endstream endobj 451 0 obj <>stream +ADW4SDpFNfM,ky܂M6G8G-$Ȉj7RYW["o*f%v~ ۙ/Y$!~| +9g egR.fva +:7g\u(UHLS6oF$-?*P^_[Z^mL!sP@!΄ +T +pi@uSTONyE't2)41:JcyA}P?n8#Wh po kNojfe +\zI.lȅ~*@%t,,0WY63O6(aGR0H ]&2 J=,hmɧ֝b( e"КXyާ^t  +|xaUHMPPjVilfR##%7Ph/,ߍSwhNUtGJ5H,\\ä%D&z8luQm_[ܿ9`&t 5qi͛6>&Do[HW6NZĈYO(Bf< OuTz8$#u,XwCD\*C=BJӡTYglBll9ؠ2RVT'G` KԖڂ)3@)x3=uP;[Тa@;N VY:RsczDH.!1KRzN,|"@}t̮1y vP&,Ԁ1>1{--u|Q>{B2Jvg.3j\Pa>Lֲ3JcZOez ӓ˻D0% xć-8 Lb6Y##9_,.vN\~q Wz> +&T5[''Pxuxev3 +d):3gabx0.{L$K.IDe=g#6F!#u,9mps6NDTw|kڃ}n7*Kr*Pm.\hLϭ߹}~~ǿ}ǿ~?xaȄk#T^̈cr1Fi'dF LTI7^o܍s7VN^)͞Iwvp!staN]OO~_~ɇ?~#Ͼ2s4`JJ,]uNz[>[?~??«yg_< ڬ?e˽Sݼu>˯>~G/~/ Wy.?'@N *l5ŭ<̋/'G^o|'}>/G{uI_i!ދV,^pRP\:u[7}7__~'?~?/>wws E6 +y.z9?w}Ŀ>_|퟼{ן}?C=ꏔ7sY)"8|{n?'~W~·|?>Ͼ\ aB{1!,ĒTy1vx~7_>}OzBo=V]# m?gHb#Bۋ޹+ٶzF$yQJ~|~/0_Kl{ +fx5^Frpԙ^_XY_rww?싿>7/x?!Y' !&(..;[7N9yWxW|{O~'}gG/Wn NBvR fftA9+Ԗ7`? ~g?ǯ>/+ϿLlE('bZ-7<Ͻo~_GO?7߾ӹ 丑fTHWǟ~מ}~xWGxlcḡ2rC{}{ӟ_/_uO~}xfU\*ӠzgQV71".-w\v^7ַ_oO/}˯_2' vTOsIQKՅW|W;ȧ1I ̘3 &ԅ`<,+Zޛ߼v=];|஛[.UX%I\G;irvHعsnd4,fSk gsy?_zaAmz:3 +`,o9iLʍv0?s3dt B)e H$ GbQ50O,. +x|ccVPrq/Q S {75 $1>FNF G0 ێ뎌5n+¡T,B˨N*IbƆM+0ŀH&iä:Ǹͫu1V{X\ށ8(qQA"6yQiŎi294jkB"q9f .X=dQ=\ʊ rÚ&C ٜ_q2-w2'=85k X3qVLȉxHkgM0̈ߎ+D랰F-̨5CCΌIN_8,nc1=? +0dpڽ1yQ3:G Sfx|΄¢yFh%j 12Y_A!W*6*qs:T6 biӓL|rP8Q:i;Zp~^>irPCQk<ݳbۆ,zl+R%[>0h#ΌF'kB$[V~I{dqx|dxt<0a1AzvQF3AٌQ?o+:D}p7Rq¢Z<4j;2j@ir3&pfSGm&:a%rTjD@nӹC&,JiUizOV&5z7ΈI'WG*027N_<;#V\LRQܘy,8fƾvTs1ȸ hLvzC.*fZ;>`9:蜼 +颓&L5&IO7jK^ݍ#;Gu% +)3"h\ҡ=*Nx/O:Њ?ZsZ;s886b19nZo7mP.Q\|1l}DF|r2 fVł8S&ܡπv1\;48 kcxF~j| ܜxzFA}3!7ȹYX!BMqJ wh4G͞~j\zN9ȸGG;h+a\( "x(UZpCF|`k@:DֺlGۆLF7$qxæ`]I;`;XXg+# LjgRL.̡|v6#TnF5xB'vG50SZz C x qg`FJ&,jFje3r?pSI;utlt@%FTכk{ZwP`0> l0b X*0JSTH%2&<`[ǜO l'gFĘ׏ꏍLdHtÃ4PǍcz7FA.V.2xlK9)׶4&͵s谝 ޘLbbVGpA +/x`]l,pln>*|~ +>`oP松@ 53)tk1gPhАɗrUoJJeR YW7o#*#չh qd>uYN.\$,JJפtаiX2:O+Bda\SCc֣װ jTaeK5Z)Pd̯s8 H6l}aƢHKT;^!CJ;8:KNe jm XarA[sf:bFATE{\*97[5G +FރPVw ;G  +"hFCFt'dı>t:->lӌPC¢CP ,ұQX(L233`ƨt:ve&*b%>'fL(3Oz^w!׌WE-%j+'\BF,̅kJ}3:£;k>By~Jވ(_ҋT1T 9锃X+P`"]&8G,_1xeO(%Xy2PxDŽޯn53Ԡ- k]"Ya^ (oSW +AMdb.6 +9&Xa#v S L X39sHգ:oBD7ou.$:2=Eetc@A@k%(9|FFnF(rEcq:rCQݱq-tc +)O3 +oVbN8ڰʱq0!a/ 52ҹ!#7 kvd?t +\@s ` *^niXO&2.U 2؇M7lBұqJE;?3CodϋE=.uP 1a?bxCV' h'>h~z` e~ztn+/7WҸV, yBIHy#Vh6^RXEdN6he &њ 6_JRusY&MU\ypOҩ9oK\r3 l7$%0f˩)F勀4%>7T4 +B lh/\U{N U^yF*&&UԬۇ-G#f؄{aB#QdSH+MOj96*Ak\棵ZwÂ63 aR4#zQgXB0/,p@PJ$̘bD4 e%; ܌ +c0qbT:}Ecat +*[񰨶r!Ͱw澒,d KtN]63EdKt<mUW\pMdG&ڢ#a3_lG$+Rq(`S-H9o %2wKSg戋кL *P()p{`&RSQ/(o`yNL2rٿp*mlq9#IyNmA3z{r0ܼ95:m37 UvZk7dKv+>wYI9h7ܿ繍KOzwGM`a>TX\\)M%(lrϑ:M[]@,&A=~ywA$9 X6ϝL|n?߹Q6(}_;l++3wMHGjH.\,^aKkZ"zK`B 9v̜z$3y^q1P3 :+"e$z^j\}Vka CBgY~K'.#T3!C9Wq.eDq+ ~l-}VҨt ͈XXd Z9 =v\2zǜ,lRP!+df5;XkOL4pZc=N8Q ;l #i4XV7}65 . +zHfc}^8(Vu63㘐Tpd\abtsui慇wTxړ$Hu{gqX@RX72H䄓{'{h9fxܝWt6Uzt:ٹb3rV &ρX2mBHo,Zqn!:M%BqfN` +i;iP4H 8cQCƦc&qPތO\߹%z^j`NRVӂG’nt,?Eu| +Xڔ2eBeZnXPЀa`=694v,Nn30nwI"Z)?MD:pBA~!bP vUc~0ҲmpTҸT7wRS2'v=X:boߨ,_SŅKDuLM6{&cD;7T<$6 O`cҸ?`De8t6r3SrkBe,X;;TrRGGP 1֊t Kt|t|7X;ǵAq `` +t(uc/Sʘ2tz.;w;tIhp?42S<Jd*Y74`h7gO{6ȗֆlGY|1'4jgDI`VEXey7[wp_uPnJ(z[Rv#/Edvٗ'wwp@Os{ (jjwP_j1l?B%$\`!AQ&.4\u2IJ\|^f}V/{ v&_EZxhI7WoCP`$F$XG1;*.fNq"U{s LʅU,#&/BG 7c.="ɥxXA)F>ǻ{WNN8mC;Y9K1f4SZv!.2R9s:0c-a+=blQ;fMyõʥKO`FldBŚ d5{ #jq L( Hҁv\wxti@끪{op.ސƂ{,`q>>ONB^V!ʸ1J]P(X(H cl̞ͤ0"Ա ; O!O03+:q11^zfp SkY?'{Jm ۜ]+:gBh qȆ&o S@G _;1Y6Ӌnc*RcB鍫406|ua҂UGq s%Xn>jј Ļ\6Ay.:'!\,8lH쨑h:jȸ ݟ =B6,yBl|g[6hp%ōQ+a/4"Bȍ1x۰sHkK~8-ED\*)`CNNF@xa&Z"|1awB ݁*Ff\`Զ }gۻcM $oa߬u6LqI)̩ O.]|:pї7btov='W4.*+6LU&h#)1Hţ: iB#~m+mB[ +gFqL{6Y;q]'.V&,?8e:7p>g#`(d%X_ZQotqc&H٘/1{Ex/ Ct}e}\rg,n츕cdyqԈ>h5T&*Tσ`#|gsԄVBԙ٩{2~:~iL]aMPMju+iz(7Gby55yo0՛^:ۿްCZ o_zjD{Lj Bj+ +?6E`· 8X8ЩQ+5a 옕= +x! P?x§z + N qO\W?H"ۗ/x {4@"ePuٮj-lv5=)Q3(?3f]ͬ}o]0"Q d<{̼Љ.{x{+XbVAADP䰋87JizCN-{7eTְhgT~ejrbiJrZ3j.Q БEu, +gq'c.8b rh5Z{/'E8f}LoP0 +Qu6Rc]X(N@1- ȣ#a+fN*vIxz%X̎=?37''}b ,^aIdpӀXW\bd}C5@, Y1 Ҹ?1uD_#HEȈ58o0&<#'l(L(EK1FMcRZMO}`lj LH ">T  +UHJԸCq-V/Y82gI,Ȱ qցTJ'ƽN 7D Q>1瓘Zkn +Lk2ZVYWp%+hg:eA#A h6˵w\H-gP@Lpōofx_Hb>(dpC.zw!gxkKLxnUf挟I}{!1P8xE*Y+J3A!d#?러_|i}s߾ۺ͘eIAJb)FIN e"bcIHú7L#C lЌVcShj>v>f7g<H@{@(o]~ +q!'j B% 'Et^)tgo>?zFM>iS Z4{e1)d19bGpvQ'!jC;Ҩ "e:1p#.%^DZ:rI+f:@p /[@ pn΍GH'' 6c}d)ې q!^̓]5Ԭ ajܼVY/z3\ڿ АQYR R|0#2gVQЄF' H2f@11B-lt&]_tw^S-D)Dʧŵl|:IHT$mx7mB~bE>6E] 1 BG,)' 8K-˙Z)ܮl3ѲsL_hY:xyw3ƅrnALhsR9T,;rmąّ0pO0g{Is9RaA QiPR7&iYDJr lwVg3եtm. R ` ->Q:;G!geO^CKf}DM}Rfr?[[wc +3(ٰ '*LQoVK= +PC'g׮|_&n;L0Z wHi,Arz2^M']81+juS,PEҲ0q#!憬_Mx89 l"]֤1L\\0ރ?+M.hE)=MBpQ32ZcG,mNZc~֬B.2Wo';A9f]& +M1(Ě^S:c|` 6(ģR1n:^_rR1.CCE*[ظ^c50.Om]?zI-εϾdIEqBXɹoVt ^;X3囶o:Z|!JuIpPA >n9ǙuF4wlyj6w +lhATz $u"7vy?wʂ…Q7qI3^q=7w5fPcYI]A Y Ȉ- +Fqf暟pzlqcf~3{+0^Luk6hPXm҉CA%V4 _¨WӋz~Š ؽ\7VVM|c7 [_BD9yA!rPmc'F6l6?^h.+)V+|2Zn~ ӼdKjvpqjZ8@^DL_3*N@ Z }15tCNDjq*}m^`‘QNGݘ޹x lpq,:qGrY888g q9X#~+ȃg + T\J/;l1;woʫ+W^?PLO0 eSٳ0J@ȂZq77⬐`u3>$*.HF[G-N`h9ڄWƤP#SVd龛ݤTX3dbB;h 7-G =9 ڼ+ ;WA#NCn:bƪ\py~#N6O3-.ZL`)j)%\Hr+/Cc?pT'uS ?0sH(sl2݊hh[`a/ST󬘜c*HEk1?2A$F=b0o𘏷⚇KRF=SS}62j/LN\wb`9?h3(L‚ =ȄҌ!ڨ%۷[+W7.k/}˯1HCBZK'ANJ\lȉY"WXZbЖQ2r_L_nݚ>8r3x݅;t}~w>B.r΃:ޑ"uGFa&\#ұ1a׷X H4fFUL+.m)>3o%*R4 #X-,-_ioim߯n܍vo{ +V*٤Kddv<>)؄uat1*\4o+/6o$:ۘrIkY}H:[)jq/x@1ޔ d#W" &Z>.Ԍ{i|-/b +f^9mf}ͬrf#jܚ8⍵A+D7+:q:}p7YYDg;V;{imv`*¢^?]^wOz1 KӇPXzp ս"f0e‹1 6 *䠰VRS~6Yj5{A>шUAL`>r'&KE6֓DЬQMu53h5U_fÅ+efe*RQTHYg_vW=(;| hpJRc/L wcQLB GhL=]nyFOf;{7n/ۿFkjXY^ַb޵g͕ˀ\m6fîc c-P pq\/QZٻVW ꛙXcM!jp[芙y&1'd .\1A! 퀰B|!PI_T1?oGuFRpb|j$5-Mj9hoܬ]͙+ ޖ<՜l%+YT7xԺar0ǣ5lj Qy +̶ IXH~yX^>0@jz=wpO)饅΃h fc @뗼2cu19M +R Q_@hSЉ ؁H5ll + [}cKK +,ݧtN2\p섥 6[٭>ၣn.Ԋl\g rҭX}-t॓n>Ț8EkracaZ<ʢ <*ƜߤV`!Lo_{{̃ޏͅ{oW ɩHt7}ӷ +S;}Ȧgld4T\NN^?7o;~ۗ?IueHy-8㥹3jkWJu|{ƥϾ.w/?xe@g;ikCq/QU 1"iQҪnBP7'+RIX8kFo.ƪbzUT„WO}4 X`ia>*@| 6peC.6B⌼V;ׅX#(;}xyI+Lzh,:pٸV;T )7pYOuLR A6 labڎbIa؈IϑS1' rx;l3$3::rQkqSFK:-q`k~βᢞjj eMH)Z]v`0i)+:j! +ǃ;5D A3ݝÃݥOwm\~c ֺvu񁔙ҋ3۷AěJnKTㅩKw^?sU7m |rF/?|5Xn}M%knV{K}swww^VYRn1mݸL1J??gCT+ + /rKśja!*SVbP~Mfqpkd8+JrI̅ҭPaR}&ֵE^N$,QTsJ\CbcVn,6eĠ DNfpx +4~mH֗0ґ׭$\*8YsǛt򴔢'DnKv +RREjU@F0hDi(( ƒ'}"?GI+:blh+PjoxDSѲ]93 ()6KKFy%X0dO/6>T?}Fe?9;:#RS("^,N.= ['nW/De&Z&̙B!M5Adl2|t1,jW"'ja.i,^(Mmjݿqi{eO[{_O{{_|sޕ.?n-߾F}NsDtPHDk/Zr܊HLɱ/JURw'EvDs11>Zqؘ=0Lk5DoW.=cnnD~bR\.L]4MAl Wx3e;̋f IJ˃saXʈvm'/ϟiJOs84%`Q<:[VL$7'3}Q."L]̛=dP3pO B,aX?*ĸ vʆQnc#<~tuQ!5*,H!bmKz /cÄƶQߢ:g;QQISL,\( z܁FEl^tb々1!pR[A1Nk9%Nv7eVVOG;W `ZȬrVJt FdϏ:q9GLbƓd˨I9-s޼YU)1j rkP{Y 0Qƅ0OՖvn$+UChnAMOsfDABik %=\8bw󖖟Bw|Fc;6u-묨‹o| 9h>5m)_9}heHo>|޻c~iQ 1۷ۼRZ7Wtk 9;?|r7ܙ++GcnGpt֮jܕoSR) zS-9:;>"zΛc `RT}Jۈ箾o~/=7w@xx6XJs`1#B +PCBŔ6jكrDyQ`դ_u36H&=A VyI IuB bbs_+.+>BEѬzc<+B +^4`c^щNT$"h%PݰdVAZ.X z$4 ShLxjWgnw.+٩&pB%0/{ʆ:aJ|D eDY !B +t$YͷVQep7p1 zl$jP$IP-qIQrKa7"# mv,A5\\6kr[_8ݼn)VnĊs099a"m@ zŇl=VhUg3 zcSmf3%qqn|:] +JT˰VtK7uvX>2vX,֌ږQ^ ErGoO8ȣIHlC%F@41f{g25XLpr|z X#!f"5LR2nz|(+n9 ӘZy3{K/̲VW >K;}\LrJ ʥD$(R}|Ic x>F4;a[Q;##( 9Iq i=nۛzqEJΔ9/# D'lHY v +ZR1k.$eۀj|ڍEΤPjJKQ> S)5H(gDa7CEX=4!HX.͸P壜Q$Ci^ϫ!|ӮBĨ9p8`l^8^:x y)JS=(.ZG$"fD\R$Ս{Sc#1ŁKsj4^˔@*"bUb\iBsNm3  e">\ ࢏-tKMp)!IQO  2ON4I @(N N2jy6<"k饵[ +FQXw cza  X^T3LIJy?(Zvkxhݎ^J ^lōQn\!_p"2)#B4Hb.,پ&X]I4A\騞6aBG->(-ǟ;8:0ŤI`pnQRq., 1`0B:2wyi>e Cc`* CcV(\2~\²`&v 7TVI'7W;=o H*0CW'=0cv珜rZ`!P}AT`|Zpv5d 2BRjf'e?:ĸo2(jA4@*L7;sҁ [}I71#+ !Z@hI[cx9w>0LV(V$Qa;n)Y)Rō!!Pℓc-櫳4ƄB,e{@<#؈}'8VJNI,FpqQgS%9!V/Q\4O@.zav1jX &@A`AG괒%P8D 4Pjv=3y;=иg@"!%aǤ=85~6LG&CB~>T"CC~\&( +~Gp$=AbsN ZP2.0t;:9i&Iǩaτ$LoK\xs;!+ zFE|q- !CӘb:Dwpi!W!*EW_^Fq܍LAq6!҄ {Mb86;8ᄁ+V͕z8;8@ ^ L5ٶۏIg8 &d!VHf/q~x=( ə܃r$q{q?:85px2B>-_2l%54 O;:6Ä +XfΈp7(x^kx)dwᔐ?<MQ”vpbuS2>9nc %\Ȱn/7ȎQhԎx@zn?~o?~ӉD%9M>{B)͗Fl:7v]|s˿7|kۅT;v?NZ0@un}~^5;~Ư?_o~7WnRD}VTiilƧlgvb^Jlpw_ލ@'6yPĸcC%bT0f^i@jlƞy7wʏ|Ň7 +lg}>Z +DE%w훻)Ͽ|OY}?G?'\[L놬6A)epx~Bsan](y+woW~~qO?{ɻg~/?97.nJ 䑟BBI-{g?}y7~W僿yv߿ӯ;V{qv =`R9 Mwnonn&p˷|tg?zOwo{ޛMz^B|Li&* >΍/>_oo緿|Ǘ˯W?zZydc㮣G|vzILGXv{g߻_=?}?._]~vz8i$hǑ +q61KF{f q8-ys ?z/?}_~ʯ>kԊ0g%&ĸ(k\ ro&r}=z;Bӧ_}~\_+۟q-`|0%Rq!PE`Zp/݋wz9|\)$AqQҳJ8i ]R!dmV?~?^|nl?ݹ^VJ,@$bbfxR&[ z{:7|JGo_uWv߹ԣ3녥NփqiF.ftTKjLF%%vG?~o?x_O?o{{颌Ð݃F%ID9BUud6<<:<w۷{?z\/"t$_l˂ ˭d;I̤&s=差ӛ?޿~fyEԀ(P4LjNr+w_8WvѽNd\ix~6P \.Wϭskkwl~}Ow>ݻ.u͛a!!W݈q ҹxN8oD6ᳳK_??_ptNjaUгjq7|( jWcbFe p^ݚQ.( nNC-F~"M& +d)a&U.&1)U(NU<R => 0)^聜iw>?)pl4;1|)rqR+lOeJ%/Df fA]6BTR.{ȉQ;G'FǝOa"PZFia:7xr굥;^dHA-,f.|90<8s&4C!\*RF:JRXaET d<ذ `*16Q.XfXhp/V"@LVW#" 0N?3"FIFFe 3B8OpaCj2p M$h6ݕzoDb@ONxiIaj ץHgãqF4-kF2.gZ77__,4rlcQ8:lzsO9F\N +/媫\cM) Yo_{zTe"(Kq/eBTt2 l|}q|dffeI)p&D,ϳ*&$|b7jxmGL(r^c6d‰g~$fb0.syJLƥh+C:ayD|Q@U5x8Lcx%I;zl#pRo=?>2 b!U55= 4#e2 1Xe496:X79P3rr8s&Ckk2"D$*jwqA<iy1' +"e%_ݣXP I>@(B:A&L֪T4\Np{'I`YW-)Zo6\ԫLU9ՕMFM1ᒗM9񰛈81&}t} +&.J7*촖j%(Nfmaʅ>!;'ϏA~8k179ǹ8@D=U"!ӓ )ʑAk/fÕX4h9aA|M)ѷd@=i#'|z|Ԩ!˜Abp?'%脃0E.,<.gR +K)KeάRQSrb瓲cSٍo͍.ʆԒRޥ}X.p2;1e1@G\ iцhNPQ4TSZa5~> Z/FJTgRZSS^,_"M2`9->5G>%`[fMo !iL)I/faPVΠɕҤ Bt܁c^fK "U>pЫnms-Doz@@y0ؠɶOaZ% G  {qN$^Ǖ2ɢrkbbz'ɘ2fPe0 ?esprّZ5TD6>eb ǂ7 N3.֎[QJ^v/v)'.,2젂RNNYahKPG& "}=jÁ:NaMND d sLO'At|ÌGv:8>ȎA;xgMqNX e8 X0Ӛ驋kf 8h^3KA y0"ȣⲐ)'7HcЂ b`hDJFjRf&ZL4wcMdvfaun{Xw?;s7ffuNEB +Y3Rӗ"M/?sʘmBoCEdGE͹GQ?mdT-;"Y'.9'*;1y'NT73 X*餜S >&$p3 +&fNDK8I9X!Zq +D KY]R0=66"Hym+3FR.-@.I& +"N9pcXaEBY + /nt<֋^*DASAPG {0<{Q Ȧ^^քsѓ;{ϝ~y Ҭ9%>>@]TI=Ll%@R +W\dL:B..dvd{UXjͺ$H]و^&1-2W;OK|Dffj咝[ A%ց=ےY0 D)Ļze]-,Z^N-ۿ?hUKޜں=H-ON]_Oҩ>$BkNmzayrpef]YUkQ4zBK&cnrEH, tڨ1ZeS*3Lry֠Oz>;u0HO_V|0MIN/#R ty$\PmؐHgG2D/ܺR٥ N*mV^p =I@H kd}gt AŦ ʛ7 Gk@ƽ +2.6 'WٝM.6bR={zo&g_m\gif*'N!_mzz [GBmWw};?{<"r]K}LyK.:_i%{Z]U_DAjtru&9 +Vn3Y_ٿ4Aξ[fZ$ +Y>ȋnO:Gߝ_V?~m_i;m~;|;ʛ +qs^LXLyme1 dW]m{s+2{/~NwN+wn}7?7NxrrxJV΋۟gp;}yCDk ѻJ şMEV^{)b׏zg?]<-9sOO}{ki6vc,g7gpb͹q#Buw}l oe^(x1Vj 2mA9tPWz8N>#׿8}+FwO^9y!L2t{tOߵO>ob+TRF}nv.͔vc \+wNWFE\*gIr=ìam{ TM5EsT$AO^I݂܀L5Pݨeܙٻϡywp:>AZ]4/oGoX1}zAƮ?;~Mnʢ6{ wNJWsǝ֧O~NjsƟ=}o|oNt[˛wq_}4ި󷿺yX>ͤ@iR^Q1ֻ6FOG?_W>NؽGJƛn|઻_ο (pgFx $acɇ{]A[4^Z/qs gtJ Ou Yz|<-͟_{g~6oAA\ v'7>Kovrc4fWWwgiSg2ƷBeoix{Q[<;z딩hhJi >v^W_/q`˥KhBjcl1=[ZZJ=sH6uR+Ôhl OY;fmxi$Ϲ)eO+ǃ<[GpHR3{QFoZLY?rv=<}'\mYWW S_\y+\zycvΡL,ѩ*3JV.˭}kp o? Z?o9zWU۲7޿|eesYŌj{oqOym[Rd'ZFlRLn~}׿zgssqc*LVOI_uuU+#sqwULޢ W'<<]}eYoƗY\`PjmG[v/ߺDŽ1dAczH'u)ph)Ry|3NuL8=”fӟf8iδ<4zgje+*gԎ ȢE]DjWǟ em|C1$f%VH nQ YΡҌFf--aQd:8A[\i\:+{ z~5YY$bإ9Mݻ^KWJi1y^o!F=/*-Lm TYTg=&7xPxKXƝdseTrߝ^v^Ϯ# iM[`֙^t_t^Fb́Vg9~p ܹ!7C>yzk>>/.>?5y1 =Z'ӳwj9e UbM^(c}[075g`3B7Gū'<:}~E/mNۓ`[kwxJ׿S#Ԏ:Ы?z=+9mqUqs?={CX:˽8m:fqMQV_.ͭ6DyQ-ͷϿUA>T&՟w_a]3IRҿd:Zj}FLuhNhoQ 8+0aɖG>'?[y2$;&ׄ/J DiV:yc)sN\~G_Q 5lA;Mm@Xc4Ke9ʓ8N*'h*p _ {?~X*]uΘf/Bڐ9gf8ޫJY^Quvs}חi-#GqQ:X&%ONŻor05kq(@ՖݿdinF^ʊ LucckG 5Ik:}0+ W^Y%zoG_J loeNjf9T +Qzﲶ|9Λ~dтnv/)}Uv1tz7n+{g_wn?l:Of?_ +wHMXP^ +rSnk%oM_fR,'t3YŧiOk=w@J`ǔQl.T?^s};IUP[lmS^%.@_{ spuOޱ;>Z _$p(Wk((C"+q}]`d@6G_2XoUm9 ~/ lwRil'ԅrժhYk)!/!i%uܻ]">N0kl%U9g4#Zp{YךgZ TrRXa5PϿD@(wb|%%EP႒ĭf"B, #R7˗'Vw<02NutV?=&JE H*o@A j7 3ߎYܞ;/ξ/EQ"!9CYZe)7b\϶!,8a6\)81AfBδ Rbҏu&iB 3eJLⲟ=`;u + mo:ⶳE^fJN\~'uҴ&ԝ>M 2''9-XVBx]Ph[J{ .OG8؞OSzst UVc{OgŇamHe9\k3.ӭ!ɫ8AYS=zwoBZjǕ;8{?n5bxOd&@e3A1df611,JB_ & \0x] > #Ջb("b-AVxw{s~$#9LKQ;+`$b{^\x)MxI Y"B䀳POf>^3͕`N*C f0cB3`|Qq&`;>JQSIL`2:)/CU\ '͖/)8) PJ` N5<*3F` <#Զ1c.o~toRTɲnZsv<+)B5Zm3M)u]s*-hgJmO5KXwk2P;h2Dr-Fg"Nz/^Yv˽oE0Etmj}B#YWP4HeN -jG 3ۘ6_=Dn::h'@5>.^Idf*V)RKSaƨ$fr(+9>B=]<_TF!]2(>:)_>ʂJSR`&JOot' B"Ȁ B@Y;Ѝ4DeBu4zr/@ZmEP I,M8gTvi{>67DJe(W'ZI6Q̞0*q\E1i3GDOnK6"k,߱˰UT,ϹPAFkO]/-ʤ֖k>z]{c\imOC m"Z4Mj=d^[h@vi{0lyߖx6ȑxyR0Ymp&&61(J]n唕(dʬ1NF(f[ʸ8nE)cZxSoS Fjmf$#9ƕ):[JSbQzFhXQی7 C>rʃ-t%Jf?Z1<(MB1,l48֗ep;7~be!J(VAK_,WKDlTlaiyԙ]ڭ$SS^(pУUuF0iۈ+Gv.gӿ;Xkj=X4[Z >|cA/Pc"h\ii-n~;aCydmrY\Xׂ]yf TͣO)6SZ):W>1fIg<2愱f˳eg2 QAz5"X.kwEpV:FX?Km VKyZcfwN5-Ja 4bP%e֓7֪1? a#J2Oy6k-[ZRD:b3y/mD?=2T,A24DEZ"廬Jf}\Fl;Öu`JSDmpLis(RMoVʶ־C u'9tiYyFs_&N~Csgf70Fv +*,!aN8;Y'Pur) +P$W8wPQ•vm!&q{.GRl5(IRҚ\ǝ.~%"E;׊r5BϞ:+/+J$ p)>muYwWw |;S[ok$e`L)0eM^#<{^Fj`:)pV +HP/- +9S3tMZg%T%HDy*)-]&(1 ݎP'qq"T(lD8J;( +8c+J<:ӟZ3H ^k*Vpi#u?xϕdy#'1#hiUʞ kG#E` jA邆z Q{SpXRP^҈!@z 6VJHej(7LXK;ZK?ZMq 4ZzQh@br jJtM 8b%#Wr$8G6/T +|~&/~ĤeG4i<E*d5&V}zXk@FDo'.H&^"Vй^-f(k=p$$[AjFD!^ `]$U^M+H]?d:H9U +z(gdD[s,.hÜFAlnAyFfejV"4 )T`J*ZyPڐ ck{Q%6RN)1ahnOWbz +4m7dH/[)Q cN7fFUFS#vvwq ~#$]nY[MѢJCyȹ_〮|4ϣ厞kLZ[i{`Q B 뀵vHaP^ ɀ* +˘#|i׺ZDaZ/'Pe\Qh#HbB: Eʈ .7(pUZzWBmkYuFZ;ݭ6G5W֙8E.8a?LQqAXQ:aW A&h8ޮܸc\9ZpNtT_1e>moL^>WY5AaN P$fcbhlf%%:啁kF.g  +6 `XlwíBy eo)aK3M~ +ȿc$ptf@XQԏm(# +:/ېiYg?Zme,SaN(BGn#0Ŕ kh#Ap UL)},U +R'Mykm[GOyk%ZffNv+#r />`5.:sԐaix, @Y<տmʸ\Zwؘ6 pRRVkK8`JBiZe=TQ ؤ6 'քDlʙ;bef@?VZSf=`L6&Řk\yaPzxj#͂Xjn~1E@lpAi]nfy TbA-դK < As(uxa=+&,B}-{>ꇈ'[i渱@~oQl#$Q t﮾o̓-"QE}5F'QS{z0Cy)`.4bIGLUyoY=ǴN 32"!ϋT䫜7׻WR$W&iZ;+6ApJ #L yC(:p@pcҤZF!э愭$ ~^ג $EC0GY3\ºصx;#x8hlE@ls]ۍb6L8(d.wLN0&,ZJXMIyA9#ڙ}"krRXpfgK dj۠ZV[59{l5d~,F:6 >,qs +  ٘f*P#q*1AE"] Hlӛ?| m8Ht\}8m'*-r`a@"j@W+a}r&rBc# 7fv +D{4&`X((łiFD ,*9K _.F:iq=`V@j)K{˖0ne WRU([\>=V2|o<ǏQsf<aZ;E ̻|/^e:]E[ ȭ4C1 6O!ϢTAhXK+m'qJ0dzҧhѴ'4%!JftRl='t B+Yka-jw{3}U4W#x?+whoTI峚!-s\@Rnd` ']@*X^?BIvwT+ID`KA*Z& +#l$qHjr ,.gO@`Ve8+yz38-ΙaJ+Nl4+o9n&cTY.͝m}u}+^Bcw\8#i +V^]b'&Js)#$/(o=A,%`J; ImH*PVYт!Kp AB~B(EVm8xB,T9MSnŰ eW\#"$gE`A+"UvoYPILA0r'hAAPQ.k`\\\ 3PNHf1@Įl,UX.i !;Hk\^br9זMQ#d> zN^p "'˘@PyQ̃XI1Y;iޏ1n^/ɋ҅HOP%zPb*'yy%ڕJq+mAFP6-O(9p)XPQLpyJ$sJ>>KJ_r%¼$\ Mqc#`үR8N`3X]mSFfN_K8-}(^C hNIeHN֢>%(J5ɁR1Y0Qf +b[( 5 GL9B +J ZaHь*dReOkרWS"ySP51Lzj; :pr+X Q!I@EQ,LB[rAܱ'/i`7&g)RH(-yg/iZ]Yi ̓$n&1CZ\2@?:sWckqPN +j?V Y t `>Kp)*e)ɣ|(#C:M|`#b#T4Bd=goFFjr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmr} wmrF72#?wGBԔ`U] &ca></VT"[IzJZ.YL ++J~Sn: +!VM4??~gg͜1?ˍ5*h+pJ&0Y'/j4mS+JZkGt+;RH*Q,ƿA3) O&)PYcdRoʆ?AR·cOVj͕ǵ8C/* J{%Jtc_?)<_d|ŏ[x 8ߍ'$&RȢ ,[z0 _E2$ B#C!9kq(F0#->2l9VURoބrƨ>,jy3דzat4&-GkE}q  W+D$_[IqA7i ')¥ΤØbm&"ĪIs,ZØ!Vvޕ<uI8 +aFAjfy?Nyi#&P%MEi^+! VpBN,4[gb05Ps-+m(f{K!AoD +VFJ`&!bQFHAVbS{;YZsRd)M vEs=Ìq7Q . RT)9 B&ٍ$<` VOj V~5ń + +<=XY* ʰ +y+iq5$0'ϷL(t0uj\<$K6dKsr(/ag^oͭR;cawZQ**IE l3[v#ۘ1Ƀ2 ͠8S +4Li]†uD(X,I9Iҡ}&.R7FzEpQ v"i +8QJɠC`QIR-AyiF3uUv^'9;9<룼CS*(tǯm^A*L1+E8pMl9'jB8tj0i+ I[^ ۆzm>iѢn VF)#A"];Ԫ{WF{%l1Y5ef)N(SJlf8j& 7!#ru $\d&&cLkn}B7SbFQMFovFp8$n% 3AՔ. ZI ehAyR+X>BVٻy×0JZc"r*m(= pvmeZĨjN3RZ?jZGtiky #ZYr|+2܏%@*DQm%A91 [O~i?;o JlWj;_y8k +Ho{Ӝ:OnA8h0 iSƙeL]ZZXKi&h]JBzKS%Qd;GSfaI{UVS§Qz+F +r g3yu#άF8+ǤJ? a+a4[#9NQeڻW :ݑQ &R?p'Jq588 ^d=zn3$#ǶRL#8U໤E5I$,,h&H7CI,2BP 1uThqP'J ;Ru,cd9IW6" JqA n7Erm.L +@,ѽG(ɯ&[[qLed0'JgPFH0bTtu+==j~J]\jv~q~LAr@7AQA(|?iHHL:!6bLLpUbK ܪry#ub@ޓ=UْR75 Q#~D0bj+sda- L$ +epC )2i'ʹyT;qoDһ*; $dDFe[I'cv2y` (3u;t39?ea@L4_ A4Qj3.yx4WVNIfHc$6*mam_LmaVa6lF8N߼zx„+H"I$a/@;X܍6ўITol[(U>э}RMXdKDtH\Kg"%[4sN},38@5DsIk0HlMkhC‚0Hɲɡ?j@Vd=|"Ɂ{"~+RsI:=G&feV2$2ag4/+v BČJp&32+ ? &gN7$|;xDiwwG ĤE$1=1쵓Lb-^ +5+sGlDچ AFLp3[hlV:s$7_eJC P;x khJ&RmeiHCUA4RFOlDm,<&4A Ɨ&-rD\c_3hFo`DEU +z̀~@ ֬t,ކE Si;!-Ἓacy+B4bF_r1IP,RS9Yw9<@e$TpyfSsLzxW\'Ĝ/6@]mx AuAa4$ H*B!|2"mt`.ٗC884Pv)X0/+%̒xD1`<`FM̸B/w ІltOi3c`wF]6A}Y4%Q)]B9ҸoQ;4`m0P P^02 iWr 1f-*3 O(ܗMzTeŃt29 `xZ:O<2r3[<  8me-@F4Cj'qipK&$ t28e!Gt8 qS@̰;wq˘c r g +`L)iD=>YU+wŤXPkF郜jBUWi,԰rIasX̥}R 6!q<z򔓟f"f&e7D(XޣaM#c&5T5!nGƶrDŧ<~oE&}e*;jIgTؔr6% 25a8n:1Dp"> a\"P j$tĈCAZ9錕H^@ⅉWY` .юEaaw@"<,Z;n% h-oOPML<Ո7a"n:]\(dVD=M('epjp#: Oۘ/-HE&q +Bk윇-R%Һ'N(w+FL#cz|֩PV,6Sh +*j#-QдK*nFƽ¸r/aj+~drd8jI įL~ *(ywщ)׺0< T|N`|ᒕN4Ȅr +M,ܲI653޶Fĸd{x͹ŪOilɤB.sz<>퍀KrE>r&m˜d iw`HA0).ʸ 1N^B&}s^q38!xPv2G i+a"G,*g ',^?һCz7M!ftfjTR8x +=!aף!^D!Y(jIZ;E#^\!E\a#E8-N)Wֻ#FDbv*y&-$Կ́@]!Ftʂ0ZIwcg"C}ҭI +)+T9B082e68]勘P-brem ] $1=FuUTkgi&b6tpio`}PZxkpuL;*ćpmB+N| AsDl&XfsKYعʤ{_R;V/p":T% CdN['u\_4d$-ci$\b`|ythn'0VaA ЭSQgʌor1TbiA eaAmx7!B ~ˤ > hXL`hl,($t%5f%o.)61:tE1xVLypl5n>h  +('3l7i'M̤VS:4bG=:&_ŸRRmlas.hp0ݓfA%`s +[hH!;σP!6\tqATd foЈгh!d _2Trs,v*icf_DESh@kT(DEscN$!Wr͓w>ln17YW9>n]\_3E'F`10 R:d'ZN#Z+~+ +) giL>V DEp4Ÿ!"e)i݁)7inVa͑)Jۉ΁JsƴBONF Y۴ɗu=jelH$_6,dAQeSF4bT}5V42#w̬I9蔛(04k:ܸ]𠜀`6N%<|ZF2ag3Z$0N$X7\W䬙ͪ] w!m􄍶Yv MT3•Au4NN:oQ[FN+31v(SI0q&,j#/08JoB@Fe!lە /;qic:lW,[(i=!WA#j l!Q[a*=fMh*ؠi ;HN@`ӍȔQ/LvNkem$ƻSV؋^#CmkpU w)5 1f =a"m(NA<\s^gĜJ);wpyCk_b)/7j!VfS9)ib OrJ){QwDk<3u0%7&tJz>kQpFeHApGQ_絸f?m$VÔLX\1`H+W#2PSq?e$yoU@oU9Fn4#Ҹk[&* _ۨyB 0i8r6(/rrM}L9yLc,lP90i;21A6| @ikdd (6_ +w0[.$ Tv3_ lBBl0=7R&cX8Y6)?Bx)qX439,!Y:h'bhlSίqF4 +e'D{FTz`7]W\lFƔCv\݈tӘH M'&8Gzlh!fOXeT&AM +c1uE#%O=fo`Jmĸ5C;[<I!wHeSAj) ը3à$PEH ʃ\qNI淌ۧ " _YGB Wzol&vC;0.tBj&N%PAXP,MlmxS!1p'*? +B;k]aGxx!V/ <ґ*;Tf~T@5`-C:DvKABN8TfҚsLgOZ$ACOȏ"X8P?@K?&͔L0 *04Ԁp +V +Uᘑ0fZE~cJi!^(hf,_3O0+d1Y[/5 ,zD);;m5FIDL[!w94W}CMp/H B1>}ӝ882lrQn #C(Qv`#H"21I_U<T+G4`FsZLeT&e);t-XPB!TdiQI#tZe(ҝ"nFT}~M8Q~\q }6gKh\8A\Wf' +5 ͮRA k`-@tI]IW;q&q{ =_F +@ 㴕 `c6GŻԲ97_EeyHp +EByej aBeiWvIt( +0I1a TfZ`<Z۷@U2sFu> ?itӠ#1-2GՈH~CB6*WӑTqd$ưQ]K7'%c#/X@[yyV&TJٰ0%F LLj%pkS(Ŋ7܄Y!,6,LH$DB8j#Sz,fgs#z7X a0V dJ]+N: 7ID&bE2 !$y<(A|>PLAcR,qmLF 9LS@a.7O(F<42r@p7E( +LDF3t%4XUCNF# @7Z߈mDu`F嚫 b~蔢'ɀ:$ +QGeU1fr0Y3 -`¸qRaP"tp R@2e ʉQ=SV,ၖ*X3EեZ"2<$Z2z?!Dx8*>D yA)4fW:>1l59+:)aʾ;]u:RYYrlO 5 NaN "zu,ҌWhMJ" +Wb|qۨ +'Pp4ҾH@NgH p ދE*";e[` {x{C.؂;B}\x#WܜNpETPOj(Lzdc4_J{\fNV=\ɩHVJZ,(W21XLHʤ"G(94.eAD&5\b; ]\#dr +xrʤ"v a&8TR +(}2dP+wYT +y9ce*+d,E[啋N:عM XJ.06_\1 3 "e*Z UB?g MrDQ;;|~5xsp:چaA&68MO!AHy6ѰRaDLQr#R[O$zyD,+rI2G{<38zu.(,F|~ItHt2asRcV8?6av4 #Tby\vx,x>ޞ߿-*mm98z]l&@SNDwr߈pTԟ_Hu*+WWW^8lRXUmfO:j~KY}b(CEĂTww{|;\jI-VׯZ@j9omcZ4 Xa ?*/Jx!RG^|_\V9XW[B%'RibCKB#Ugd&x+,Fzp,3<)grCoB}juX%RY$bUJnl”#L~x:=& r{;sGWN߹jIFq͵ŹS }@'[(Dnx:=s4mn\ٺvS65({_`D,0kbq>RY0p1(Xm9ߏ77Ds|f[[DfO-DkVnF/UNޅ_ ŕəRmg ;+'lȀl0 K +0줕[*+Wchs;TZȴ6 +3&_(0HuLhߋUWlt.{ʲ Yu)5ٗ{' Y@ypsɎd7X\W/^М;-&#|Y-wZ+ e{dz3'}p1.e Hͭʥx"dG'L{ɱ`yY#dwgvKim4'ׇ;W/<>z=i&wꎧ off%;{ڥY&=sp.%;;F=5xw0u>AA#u{RNבP%H'PXNv&Iu¼[r*5k쬍 kj I=ʔKP;Y'C#]/,l_Y0u(7$E zŅS@$/RV,!uD% N/̏0& 9(`)0c}ť;ʕ9&;^{T47?١|C{ L ;UYظ2lխz,qTxJȯTXZǮdˈdXՍ@iMŵT︔_LT iXhgBnhb2v2}0ڎVVhv֪>*=8fU`B&hxu-쓚\fpp@K`|9!VV!O>۹hlzSW2(@6g€LxTW£5X{/?AzoH%N;)3ģM@Ch3Luq.*4~4xXffF0RkmXcu<`]vK/+PMPf~x"?hvxKl +Px#FB0(a3XP_Tb̮ja L9#bJ2:7{t{)dO݃@~&Tiv8wHJV2/A;On!rrɮRwsCn@\͟T̤7wN#D63+WZUTj/7Oߛ(9D۸4{Rnl$BΏ g#"}Օ+RyݟgԄ&!IEFHy)XX-n_%"wpɮP8ޭU7*cM )cn:V48y`܊,\-u씍N&ѫ4Ν沑9X@iG 5^)0K.>kBèOLƫBn BuPP~(f:2^[i.k]Nv"q YXtc66#K'?z/+w'[kF<:h&b= e;5Y2\\-Z>ڕxyaqmD h£6:O ^\ #J@Inc2)Ua:$c\6"Ztg??-d\?^_`3`hf-x9R^ ,!b 7BEJjX|a gf,`'"Jn ՝92rx!dz[ۛҽ/<,^8olKBOT hu5QKDbGCGdjp^ZPfIƵ6^j3Cfh$_PYpXXP*;\ Z#G@/{dvt`X~^*^Rմ)ƮTZ!6Kv.TOk\eƹXiC-:5.prׄ &{\2#4-f vl_, fs76ݧrn!TcvD6 L[,h=?YD fVB"B2X!%/ֹu ?=CŚ.,xЏ@zoʝ@e DTLcU[it"%#06 +3Å`~6?{ ƆJ&4hB N&Y^X\]8h`HBy#|x{t1\ZbRVƤO*Ѫ?ٗkB &̾ =br6ؔ%LL{J trMOYXTuTpE-l2R+rjf1 7xӎqˌhBNNF!D${@|-&J `CX)78KZ;;qPS?bf46*k8ܬ~Kb=|RPa#IWc;}A*Shu=_dbSϧK@JLuDH`2XƥV^S5PG+`->фۡBGN.m-:zG>ޕ{O^Oq/ zki\w=\\H5ΊB;?XY=m_OȎJ^&(:^.uL8Zگog+rs>[Y;uݏ]}+?ssBmElX!BpѦ{T$j3:l=}OS_ۿx߾`LJXȈ`m#"lZ./\ݿx}]}K>~^{Wz^㾯]-hFx?Ou#E>JBF8N_^?w_⯿_?_䳯<\cq46ɯ{zLd#eko|?7ѯog_=+'Q).RPʖ[O^~=kk?s_[??ؽx?\{x4[ j{amK=_?׿?_g_翺KG#&ʄbR=sc/^z|ow?_?kLc4HY-d:{.:r]:v~򅗿O~?~'pHPzHKpi>i t>Կ>o~~~۟_}_ _|«?L5Wun^m%A9nK'pկ<~'Wѯw^~7=ꛧn7YŸ;I,)WK{'orc>o৿?{/_???'w=tca?fﳑ&@ZJJݵp5uҵחx?oO^=}鮇C*"ifu鋗=7~7~/?_k/_zmy{?]GC7c!!&w?|O'ח~~^ß||o}en|u#*rkͧk3Rknyw}`gڝw~'~v'7|o~xnT +-d13{ܕ3NzWx'}|ǟ~}ч/ *6P6`9ʟ%JFo{o+?G?o_}oG|x^yW^>{U̴> b%$ZB?Z6˛?Գ_{^}߾퟾˿?G?|ocJ;9 '(w S=/{||{'_w~Gλx_/Ya"YBxq>/~_~?/:o?yg#O=w} '3rcDXaGp&;Qp+7z׿o~ן'?|W~muT$/RV[3rmf0jkveqswK=|/t[^AEp˕vg7;?yp~7.^v]JX5\XM9B1;d +fq~Ï>g_z勽`2'&+tQ!6?~{*R?m9sxo}'7oo+/_}聻7+!p4/6"2eu~nm?p^y7|oKg6[3|pӒ0N"X1*ZKc<3k|>O㻿3at.d.cB>QOW(#齛Ht/=3%OOxLiD{H{R$)$|U6U}{fzb^FܵWmAA$9y~{բL&Je2u 4,dhB'k !WjWח#8!CR 2>Un3ؼ 8T[3LJOrQtIν(xD0\.DXəK*h(e1Ƃ #CԄPPÄh$g$ I(m"7fK8"WO0iLG)Ӈ޸ O!2I0m/0eO;icV\I#yÍ̹<+ knrφ0mF{֋kO^@0HӃq63QrT)PgnGg\(JBpf@WBo{=*51eA2pi~e7p!R]{%SfX +UTޙ^yXpYLΪ:eޢYA#97: '\*2#1F+ H=>t1"CQ[nZZސr+bnH67Ԭ_L`\&oYo"Hhq)/&XB #:ݝ“16c-& =q1rOw} !Lޤ:cӁ^jSLzIM/8M%׿CJ16har%DZt1bg=\ z/-CS02spT]BN;`s5"bEM2]R޷ 6/"p.a-B*puTr"ु&hpKKQeGQKJTP$.uc)B!8mׅ}nyQ֫P j)VOvI+Zm|ÔXͻ૗jd4I뵥޸ ae,L"Tgg"ۙs!e& |^ZAnfҮ9m67}r(A&˴9K jBg< (:THxf"XG\ĭt n4Ot?.d!tC\Tb%ح`+ !;;b ̛M\޾M +QKBS]#mx|K]z{TKȼL"mD.ɧNMU'WË>,*Qb6c ba*"(D2>zeӦ4׃1Iy _\]p "ҥzy95b'QS- ބJewzGOm"Tz!/Y8*K{kQp,Ɓ8ťxrH{o‡k,eB*L _^F\pY)H.9q܈s^y+e3*ϸA93OiY8B Fq֙qK.LdB5셐7}RLa&5UXbM&m63*p|$ + Ad1L2(&՘wcj#ZJmNۭ?o=7V*:q֊І;\RThqu10WVW7rͭ'_cVL ͇խGt 7Z莏񳯼-hrA~ޡ̞dYDg?A֎҆ڣB 9.>˅J'??>-#UvTIp~2HQ6CFUWT:lWy0! IgTݓ(xQ.h(TJ^$ )7S=Ÿu7g<+*C)eI*e1G TX3`,Jx(1rje:CԢ# ^uN"Psc\L;YN+Eh'De%$w@wGHH8[ +2RKh?tm!ʸT16cWve*JniH)iM:; BiMoqUp'~?rd:oЀ(VbEYT{PmCriwSÄy:jفR^vO{ĵ|0Ue3PgbBV+}%^uym<Ē͐P6crC'U\&ׁXQVS*juhlYr=~]xJG=2쮜?zc9b(.uP;V.Et(3y.BfJvp__X9xzW.Lrt3&1K"r U.?CX"ퟶG +J$"W#%:&Ƶ՘TK̍މG)jK'q?F~$ '|qPyp%[Bn09D3kvFTBv@Y@ds}G絭{zcL5I%/w^~̹UskOBvm1,Wl?\<$5[Y;Dq9%sj n_6{5s51p͋υ9W t)3x ri=zlx{ &-.O02z@~T&+!Bw$cn܎ӥ1d +v01 +heQk,WBҨ&|T_oͣ#iv! ު(ËiXj!)H8C䴪dTݘЪY{'ZjO΋aS*[ϪkhFy\AP8XL ::Zm +QY-Qu|r|ߥಲϾ +Q0HⴎFcDzIMhW] WTYpw!։I%.7 +C ƇI"eLIV:Vtck1ƅte(0id; 1!&n4p-f{rӟۏzigWQ + 5eb_2gb~So,DLI=¦>R{>:s7mseZ`5lNOlBnԥh !四^6K>Z윧ڧ(_ d}u68&gԌ"+/BV7{yy=D6[Fš4T (U.;2E9rpy`RkڮjpL[ٍK>̋LWߩl>rGIqwç>ZO5Ƨ->lr+3Zɍd5BS/Qg&-&ݾ +E8@!|l8O=]u0YT5ֶ.rã'3Њ+ɽNcXs%D5+ᬟ!h#6DNk0`}iP0EF}8)ܿo"fzcmޙ.dT'ry=@Z.D"b͂79P3 #,&=ZG;_B \dw7ۿ͕:D~  +D8.S!yD%_H+G*X\WJ&VQ>[lj>L&`:v4翶QJ0ab` 72F] +U4 {d&$[5c34[!#):16 RBV*BjP+3 0'HBHm3=9ۏ3f5\SCWuDž͗3Em۽saB06 S@HpGMds iY=?9:{VRBŵFlØpi9vy9KP kQQ`Rދ~pzgSP;~L[%jՖC<եr;Mg+59CJZ*ݭݥ +endstream endobj 452 0 obj <>stream ++ierމ5%˻Vl9 ̈Hhe0ǜ=rK6oMa2 ;-^@UH:l}u":X g5/<ݕn1FZJӽssV|aw⪟N}WZ7mBZ( + b f.㴃ٔ]{(yCmPنR;{*'b'N\?N-Y`A=re7b L(/ǦcR|zvg!Ƥ`O7o{y=XI7ꛏ[O6ojA7WN6N_-GGIFføJ)Ȧb1iH7,efr uG//F>PW?}.ve C g @ޗH.Kה9_ `@cTD޸Vq~B‹Q^M(u63d=-Q\~t+w6ϿrA0k3@}?dCrT cVMe͵0 >>"3+ql8ݝOc|v6HzQJ%*oMZF5B:"=l,8b Ay>ƴnNuxݏ?bR m4viorwuBݔ2=!ݓ+pEkKؕ:-OT1WW^l\Qڽ 1O>2tNXu&ga׽@r0׋ͭC'ȥe-ҠՊP5Fq eT7霺&mv^=mG .ǥ(%u4"r4F0VKȏ1ǟ]A{?׻VʆQZC %bs,ň+F2}9<3^3jZ }Rl6$yiL卸 s7!_ kƇzl޴+>NG[wDYqRKB@bڕ'_u.8vNTx:϶ +>mh8BA-wVRJZ66Zk`/axz|`^MNo\O=x+ڤV+kJav &B*GOP4D:DfbLT*Q '9:?mLJpͺ9oIL(Tm5*[7?ގIն_I)rVm;U!͸EOs9*xcPTAtP* +5ۇX8S uc1D H9/MC+B`'dSQ"ՒQDA2Nv\A![^oݼХ^PPJlD۸ +x9EL$.R.8%L=;ʺ#\Q}E@)5 i SuX߆JEA8~9u  2Lz@(wR B$>tPE>B !C)_spuo,] R*hTD4\vUqmYu?s[`F!gԷRv"Y-^+ 68 %2~FK)O*7[wKݧ|ͯT㨲rzeoS9j&w_钗œkH gr\Fi{>\'x eT׏nnVs)=ٻ?''?Ӫ;J~$eVE[W vrm!DdԪlcZ_W0Q5d&|D\-X<Ƈ/{ʝRw (깾oRLXu[+G )J%=S'.n]3ؼu Kwl{xIV0>WnmV{!b)@ZA( uGmg#_%ywnZ lG-_Ysypw\>3?ԃf{QCӒ( ]5+&T_At-]1N#ROV;#R4j\n5vI{cspmncUK[5L-hOG&kW<>3J>}t|VJՓުoƇ `7|f-mFC8k*c.Y`OTQm1*jGa.J12A6+VdMVwN^ΥlWoW7wMN?{hlv/U, eTRz+ tϔm;zI\zg..(G60rv_&ݭl#&+tKb2Bf=$T{1U_ ӳAϮ6v_8[ra5B aqIe06P洋;7 $O2r q}9tW!lZbaTV'oۼݻzs(iR!FtϦXAz~%T4'(b҄ ^kFi'[7S %$>_BvE^څ$lN-ҕ;>_n?\)M|I%+Lʉv+,EWHFeobcG{\.#ADG@T $LWL#PKOfrƼf0k`juv^0u&3;iKd{['љNbrUUх a0rBC4'ʍ {iN4f5:+%7<DyRP yDۍ-nPj((,H0@zO90IG獍G篇ϧ.㏾ӿh)P6ބk Zm+*O|l\Z;~rڃkWw?Z;7K-9fRXMn\YTۏזbWC\\H[~/lr&3rT6ݰ[ېB6 uNfVuy{f4۹鬒S.Ǥ7ۻ.=}RIWLR8nŹ !g]9|JnҚs.bb%KgW\חE?Ha2C(V5 ͇u*!*[|{|?%i{*!Z H6@XraЪgHYR+֓G 9޼68/Iu,Zˮ>3ha`((Lbk( ä@~t9Kʄ(۪n#W# !gb]N^ڽ>|OLNcIuIww\<ʺxuct:3dD媔_;7+ {꛻"S@"7_OF4DgPs܅j]¶8!<'[[\ fQMV8rɯ^|jNq['yF]Bȋ*Ws}e.nR? JKt3[&&Mi%1?*oU&ٓVs~kQw/S}\||o㛟Jq H~6s=Q>NvW|5;Yq34X?}{٣s8Ko+c F: ~"Y2]aFIEhf[%&g9희>yk}kG[?sgtPZ} ֍1VwDžLX)ɺEq)G>pa<BTέ'"Q1Qҏr@o~'/PuЩt>qXrYQ: -!d`rSΦxbJ?jW70}J@IwS bjKW޸KਇBvEMHm/?ɛKOjOTu | kf<8b) (m_yLo?~u>|NʮZtiBK9oU\&訾yuvno~u|s۵s(Vcϭ`ZwLw:EyR*TW{F+" +&G߸Ygbci"ݹݙ;{O[Ͼ[c2~abo߻roo=:.XB.LnՆ'^}uucqEc??>?y̓_jX㳯n׭gfcs;9{GX1>:a6 UK2t'li})J72/V +jn]]TbjYϲF=!I:CR)q-1]z@/0f\[@D̆,B[ ƤxK(? ]]FBrTYV/%;!fRtSءQs^aN!Vq0fL9L87 4a)RY/11Kc81ABtxe6w++F/rv{ѷkbITǤ\k~lwR=9͆'kBaf'fR5 +>IOb\+"YςYRjk6'ՍRqUȍX]hELJ3FM5tS:{UCaҽeyB$Ջ\zt҉dE.o̘J8iEL+Nχ~jnȘT!ҺB&l.btz9B +./1}D*.;hdiTSlg,,9=C'ʹ&&;JaUϡFl,ǥ8m f\ a8f& "hLn>zXE>zFULtL_uFq+lg<>2-hEP4|'4*cF}+Y^>nNΜRg0|5޻׏o}ۣgyg_w}fBΧ ^b>ĐzUȎSJz?7C|Vowoɧ`c?jύ1[泃l<󙇯.jG"G`_r1jitBIܠzNZ~LR&I֬r)L-+Qwţoj1--W:uM\$;ju].ّT++ƅm}n8'XLuzABыE~t6!8( m庾7X.)`aRbQ*̪^VN򄵛0&{itnfz=8DD+Ie6Bg( +YE EJ`BĹ88K՝\UFAKWq}uiM|GNeext04ؼuÛ`$UE80.WzU&Lu((g ZNC}vP^~_~bֶdw͖?NϾ~_:>0/޽wDr.Ins?evq?%Du3[;{wO7j7KixR@^l_|u}pe ,8WF}0>z)??/^ǭ\ݗJ;Zpo_mi|3OY +`:膗'^=|U>..# +u((N'V/EPBglHccWRK1%HYAB&({S>d6hc>!q)Ce)>غz|L/QS[R5FΣA )R=1aG?ˆ:ʚqڂ" $˴H$q&k(FT):ЧO3;;OʫRU!]B2]0U,UIEKq%Z*3$TciÕӗŕ3LW&3͝TcK+y (iӾ^9OTK۩jA1rzg~ꟚLk*?1J:zy|XAL4 +Mwqݛcڕ|Xqلѵgv0w1wT 7?GYVveSP4p%oTV6GrϏ'#TOwIJ&xB/H%i_'O;xFOm~ꁄB,b\0.& YVXMY6{A&8o'OYs w~&Τ D9 `C*G(JSq֛kVZro/ʌryC` !T3 ]|S +CI0'LIW*̏)*txk$8m AܘppA0瑱ڨT!Bj2`%ɪ qB(nFNT.p#N S$5HN4"p-1LWDbJj37L- -pu˭cQ%\s\IAtVl2:]Vjn=<*JS +J)q [lΪQRj^1 +U$x+*C8$PR%xgE%+iheբt,=8{Vv}Ъ&x'( 'T1#4 ̧ZC]7+ggϞ}gq9Z\eexԲ!L SKz9kZL3\w?U1*Z~12==?BU4O1m@EO$-iK WD +&bQ9!2`0F)cb\ُzP0$q>iI.ydʊaZ41> J?R&r:YxjDbh1!Ke#,%?@+E' TxBGv6nV-Kp!,;>rq6yO"t̵ !J 5t, +Q|22ڢ?qi.$kRS]2]W9/ziq&"dFNWN}UuZcz9bT +*Ȃ`Swŕ0쌓FqI3@'ؽTy= 8RP3YT.0!^D'&[Ƹ;H"LD5'"r4ZP@}Fp $U1V$p/$pU ZdR!:.]u}O/Dnf#.?$F dK͛w_ +PU%*T&tӖ 37Lbqv<ϯlx.py_%?1D  +FʋuW\w]Bv( +%f*{E2\0~T(J`8t/?y g/9*<}9r8o1%&\=:!: ~lFH&X NB=(a0Ӈ38rt:D*(@+iEi(&MPӵl0ʦ˜B%_(kvc9L^_ 4%䢸 +p$B5ù Wz;-")jTe\V(S "d1΁aw\eF((hbIVCqۅų%/ofPa +8ǨPYtfbFJh~o2 ͹bk4tue_uV)E˛)jj!K=%WX9ۋ/G]~"0Aټ?&X]zR3EOHSuIX. +S4/1<#)L I#齟$9?B% ]WVVzo*ҔvU{3m;`f0 $@$,]PZr%vW$w]Z$]=EEd e2yϷ}yW\3 {#H4HZz_˷80@2f"$Zέ$r:yHt!ۛ+_|۸0)8MSQ #*&.Ϣ&mŒuhtwi%̩'!RCRBIBBRVYp-F7]좜Ƹpw9禜e0tN/"(v5o + +2F¸*;\NE9#\2,rvɏ B1R`aT@Hod&'$+"x b!Ɂ*A *"x!.PBEY|>$Ibjo]^}Շ7drv1'O>s!Ng8&I֔((" B1f1B`8[+=5~٧u\ LO8 +;/:?7\t.D}A̖"(A(IIF(!AXp! +}49V ZLg +V#uvwΥAfU)#5S`0*Γbpqsq1R O *Qɍ|Hh<8{_}gY5m9L6LMffnnTtʢ8 Ekr{药C/[# W g bB|g(bfRSh  #ZʍPm;jRj*D#mŪrӰjK _}7nҕ{Ga$D=~% d1;UU]t#r|ʇo\/[/5UQQ<MfJ3u ?[r޿{;{o<ʋ_=ڬ7t0z}v&0M9M-{}>$ 41VbT*Xfڶ%hX/ y,\/^;=1~[~K7G|{ۣt:8+- ,6ȅkصMQ~ ۧ?õlG_?~r6<Wd(-= WW'W|~+[?Ksw_~䍇׎l:B+c)1WR%|FZ/1m-govoo~|+쯀D/@܏Sާ];t.bHF[|2nG+[/ʍ'O}^}Pڣ gC>Lme㥫'͓eݿ썟}{/~O۷s9 }3À$5XD?(o/^whї۷~k;𴾿VZ6,2 kV*Y|n嫭'ί/ٓ>䝓ڻO. ^(/pCN.^߭7G~_yxm16, G緍/Wn~?o07WVRİfdh)fk%ʐivZ[?>;Kك_}kJ)X7PWwov;gwo?{ߺ??}'8o?jBI4m fK֓O˿?ڿgoP}qnFʲÒ2Mwc?:><̼z;}~}?{|WaWSVd+ נ<w'{O>z_|N~˯>yR0y<=r ? g}v{~g~?ݟ}_~y{kv2e EAǘdҪvڽAiPyGᷮOó7>7 ϚӀĸDhVm&N{۷ꟼۿ|Ow/=Dta2GZ6^WZq{7~owij&' jE/$igrl,_Y-?X|R/^O_t7j]6ZYl(VJe$Gӕ̭W~_|䳯;'<g[dA{-U4PBLdt^%Vǯ_~ƿ_WONK!?L~(J$b+v[;~woݏ^_/Ow:z0hI3cTTI[W~y5yc.{Dy3\j!I2'[uel|u7wrs_δOq+)D*E;4Ac +M 5oHeKh7/a57(:9@RǸ+^o(afΰve-/ޕz߸ۗ?}};/mwcP)(B((ULeV찧_[ne>}?oO}_q$t +jr)3B(zL)\^+WrR^NFՖɖtْePqY55^̔!8hֵB&]di+HgUlIU)Jz$. b<0r![]Vk^MީkkvM۩J*kw~b*!ՂXrj6gf=H",9'9~*XKuwox2<-PJIVq|2x0c$'8NDZ)f-,QWEE5g%NWD1&sҋH`˓B=S(/hC`"љdeר_¤K]5#Qyn ͺHfQCEy' "6-xP s_TcИ6&8]P2 s8eͮ;\N?I62c( V4Þ@RM U61c2J.ܴ?Dq.!g?h4.2C0tIEe:.3tBJ&Ӊι1WXʌ+39 +YI5v7#((`s֏[8<BfHcbVJSjE?)#1-'z:M%qM?axQ!~>$-f-RjeE 5h );Zz5d=Óf2!*J!")%u0Jd{YBsʬ5p!✏NH-[͏OnORLHۅ*OM:6]Fd?VXuRVeL93h#f=LL[bf̘ .ˉiN@Ժ\Қ{e`crvwZٛ$v,䦡?yzR6Z:zn: K~S%4ԊV>ӫ.XĢ9;Wta6Q+ewKQ|}3"-nvT)JniP̢Z5"(Z-93^s JQCb`r\\kVgY/l&N*"U4-$XClBn2{ CZq&*rX0Qr>U9OT^Iꎐ]&Jmx16&iqlJD-+7FGB|梗p"J\+,'-lֆݟ%nBR=tHcՉ*ksAz!HPj9uWyNoZGZp>QLƴ70 +tB){E\6GlTr1>r3nTZRU*U )G !GAj&*lG&_Y.YWLFHU\zH 6\4PtvCIK.^Vsc bYO< asxrMFŢ]2+^ܚRKQ :,mL|o։z"bJ͇gd +W̎]2Q|7vaI'1Z?K1Y,@HM7ɦtnj-v1acɦ5{wrk%{p0+?=t in|';l=õvT@}!iv:k7WO_'97$Lr)տlD)xk,*=K!a!zN#bGeZ 񖟱|30&MqdLcQr)YO.-%3 +{j"vbb 0ޤ#2415Kpa"0Ei{UvgPjA ٕ(6܋&@6^\.9/@r|K1ֲ]õ֢u*mR󒶇J4ca3t!,f1.WBkg^(,"v7 ^d +>jLלxNV~[|\8$/qѩ% "lf^5TOjzm#n4i%J:5{jyIͷWLjT~/̈́X2Ld֟O-_6/:ND;U7O_ +!㮵 +cuv7v^ήhFbMnvg.eT->VAh=:_[yaOn|IAaXdNT&lrYnߍy'B] ٹJgZTm;cLHͭ̆[0_{JJoxȜQZ۽3ŀENW%/я>~5H{9|@uq i>(M9 29sU)-'5g }ӡ KQ?{pD*@眨rB~Ko.E[F͆R~ +Q>S9d2kKq(c(d}MR v<ٖKTBB\ !?FhLoD]ڝ t[.1eL25έ2rc3i{qk ^mnރ[uJWԀX#'bjiW-oUT"r=S߄rs.Wڎ> ,8ؼ;䧜 +V< ScMmG/o䖯{[2[ꩅ8\/m<ܸUGD9yJ~ʼn.܌#?Y&rPXyy}~ytD&kB˥MO%%xPlBk BT UfguV_(n`ofKWO^j~ frz}^VWll7jux~נnj5$ZO*gISQܦ@+;GBMD{hp%kv8ȔL?=8^L۸5ӛtf󂇌 +QVOWT궟2ir(mo6α6RQ&_~%3~ S^KRe/m#Qw~" )gr=8&X G vzk6#S@ai-mI48k!Ns|d|jqT\U;KQ1lf`JRvLof'պ"֒3{њqeӅ5u\~ƫGJi3͍V{޾WG/gGxt|޵!bCd/]8}^ +h4ҮT;̮ټ^V:{y~j*=Z+\qOo^͍րʧmmޛ梉w0qvpu;uɶnhI. J}0M>m7ޱ޼^I~.T鞗qlكvq&]:u`6d~vp-Yߓ# ظ\ˠlfY-eZ;;W_[9xom=#_5]]ÓTP-u/홠$ҬnYUwjtNpku6Nk}q1Lla7SzOϻg$!S0}dr,˓KQAXnK1l RKRjylV 8s+.!PZэG0T._e&.k7Z{`GTxHu]]H46hNߪoۭKшrv" Lk]mBwc,ٵu); PxO񱦗5ܲRMTZ)7wrmv)Qd{^_޾ +K:5ﱅ=dwn~q IN_UjfVHyl,J{'+?(>{~/bf^Y먵_}w]w# "Vo`5"Hc:>^Q]nܔsc\oFKgQ 3׿ʧq\WntkKTJVbR)+F48bKȘ>j)"jm%cTElqt?|dK/Xi$+;zi7;A.J'F$ n!UݦT}dž&,gDq"L@rL&*aLYm;7CǓ]*=iڨ; +DmG)nwcflj%&_\u`ZD&mA2Y[_̅^.r>G옕Ts[.,丘UJ;eRSXLk*`$m/fw)SFYknFW[*cV]6ɭd<O +=% K@8ra 񢏒cDH/A^l]~`W +1"CDm)ƭ|TGꑹ8Ძ|~#4 d[=T&*ҝ+ޱ]߄;}\YmɲUf뫏BTjE׍恔VgoԚZ\5\[͍kRU?[ZM>tg{/H[Rfm%Wq~+&VB4l6BE|Fw1D [NdKg/>3>9BTj%{fy|s|nRj0tUj5 ʍI/'*^0œTeTon7v?UPV\2+E}Hu)5ÛGW̯r\(Űǭ  Dcɦ1l2K +K' Y"j ^|m6){֠1j^R)DCbr^nȥUd=1[~\ +VUroOLw/xv!E6b[MںUߺ7'TRT)9Uxw:vaGjiE$//s[Byw}^_D? +?krkV "ʩ=而qEtimʕ([A1Y/@U OӵFT@o^v酀)t1*V a aY\C9ܸQq%g9Ȧ!gնkK~h":=Qlz6 n2Gzԃ&}#8gǵVLmrT(U.sBLWw qgLr)dGe@[ٙIB|.T/(]JEn"H_~\kBiUo2QB k(4Q0tj&:"m|w_myt|F"82}gǵͻn܀+-:3H+oA=qLTdc>Y裭0oYKILo!Hq]CJPdwY +S1QjV#he"dJN{eKQHlHȍfO#RIBX€>AR>7\A}~uQWЋj&Hg6^~z&t~ +0|v*H`r6.|vBf@<hQl0DuKlց[!>>Rw Ƿ:L_:(:+~ҦWN_ݹneSpB桟͂{ h_[;~r*F UC\Z[rW' uǤ2)M)@Y`uh>:+^6ӊPX05 P烧%=FE/-œa/ &nj)p,94ǹUP|j{>-EdG,.Iڌȕ]Lwǡ쥈:Fs>?G&sltяV\ӋnT[Bn )ϸqԕT jލ(0YG-nM4לӝ34@$WdMhG%tC\ࢇ^n JWoH5_<`^n-8RM\>D=<a պ"tfyY=\Lv^~1bF/ݿ&6Jw <`=N*ę/BTocqT`Nez3J韀k fYmF;ح | ze3Q`S [k覠8ӁMz\j0F`)uJo.xnE*H娘- +7t&"I"B|bRZn Anփ3JA4ZK4>L$ZX;n^pkrmL- d߱, IvC/Aiy7;C򬏝rĬZ}z|q*Sj!6{n>'I3-@t>ϐV#|ʼnȎLhxFn>ftg'7'QJEx;&+!IaJ +"§HI-@#ta Ϯ@Rk+ݽ 5& +^\RR+0J4G + ^ i7Feܽo5vc`l΁=d&*"dLڬG +tkK ,!=&CR)"ruǝ[@`2]"NR1Uߪ'ތރ7fD2]=CVYP3N|12#RI>Qlm\gӃE4%7PyAog}gb<uމ0]̎Cޘ\ 1ň:Ťb( +e64(PdU촓$r2?v r?=uTN{ eb KyS +d`:oXXg'$"e|tBq7A}л&GQ>D^ q mK)1;G'(g8i\kTM6O3[Bk[ Xr ՗]KϬP1wǀj mQqK}/"+հPr" 0a9g Ћ*ޫ͝>ǁ$STc+k +L+GR8,Tju&$[. L>9\Oôi7 +wDo\?&70K~պ3O!+3Pj(.duO,lpۋȡB)9Z&d҆^Zӫsg97ʘvaia&=^ N q!oFsj)ll.#ey\̶OV{iOtH5KDY< ,7C(#ehuZ/J:HjRZI9Uh):NW325Ge!kE=!#5rE-Ɠ2LF.Sz#Qذ{Q&;0R9f<!lM\A.T=ɚ#Bz:w!DḦ́Xm^­7B B7ĦNLK2a}d*f1U`aC8/눪wP٩%trVcJI奨 +,\yժ1hB >2 c1*O{WѺ@s Ȣn/e_L^ +ND `zsD([k=yCR׆~rbK~bv M8$(˅ c9L+m43N|_ℐ&tx/a/ϝY)5`1"6$vA7!+e9ғOp *l +<:>K#\jQ!Rĵ:i d6DgqVۏU0^,9 e M ++CaQTKTf<$V?Xjf{)F¹#Ʌ~0TÉôaATZo?~a 2PjS9CgVdfBWA@|ɥj@)l5֟W +P!x**֤Fyt0FΘqE:#bHPtO;"bl!ȁA7a"0x`L; +\me&i2ٟ)\(Oup~ &9gfBOM#D2>MO K!؟/;LkO !YtG:WSJo<59$V0b@X*ОACy/ՂDž7A d- @0zRrڞ}v>paf|tB +I<3[{ ,l) z5 C*.8qNkM\?v >Z +g{>ES θ\O)RUʎ  KQPWrO)K݈PAR":0G4`2Dh*aJp#ʔP!HRA*@1I&ېPBQȭ1aD((d 7qq5(6_\P8(bCF,eRP@x"`Tc6eɧF&w!KZbnͬ"$ED}ƅ.!0W䠏#E== 퇹,_٢U. ^Y!@┗D&pToa;g^ŰIU= g5BRn4e@'[Gt?W > h1j؋аs !e1ҥ&՟,M .Ee:(E) k!$C ++zu,D8qzPHpk≚Myߌb&) +EW8JX֏uZ 07H#*)cܦ9"by̴OX ET/a_|"x}k.: ,7M6jNơRFM\(3}pv (m{Q QP F2I5(oLu16-B* +!0,0RT Y !̪@ΈX͎7 1} +\-5DO=3N@!5en0~{]3(Uh +7L5vV/dP#/D6夢L1s̕͡ + ^fa*}~! +tbIC\hmj)OqSq:!'AB +_ HF@L;Ba{νo'{_A`هBrlre'v"ɋ~q:; ^sl Rrav٭nI?v\C/8g\=N29 Ջa +:`Q>4@UJq ^?McZ4B+1@ٝɯ 1"M0Όr|w6؃ꮈE,ȩysyRZPXH3S^Ӌ~&HZ;LvK3MRGL + y/!>H%m@9] Uh:Hqb|6AD,,5] B".|Ԍ3y_\lH@n^C * ˸֥GҤ*kDb  a*a!%.D(nCŹ\:{]@-{i?hGT0[Ažtrb!Έ<祿x&HdD^}Izth]O3WXaY;n-C79sl۱Ff|{λ']?~UlΡJ7i'ZZrx'΂b0_I:^:cw'u6f3 + L{P5fgC=)ӏ뮸d!fzW4§"o&tP,F&bJ}VHou.kTRl)X~#s&'[WUs i7',O|}!p B[ +гn;n#OR^-sMve%"!G$*BX`flk}w'riW.T gJ `3R +\mxkl֎|Y>(;Ӎ1 |k7Z05MX0j6eB:S"krviʼnՓ688S6#i"`X9kXe@#6F/V a ^ Aצϊkr$Eۨ6{\ĭQZBDU|F +^*.U)<4_B썟kӬXJsq\ÕLp܂;F `&)WT觃ER1'@q꺵}7`tN)kje+alhN`j^ɪJqU]$AH3xxzP]~j]@ ɗ¸ Zo'_/VY3rn&R; `ɠ|vP `I]vV 2F:>H>0TZB%'5!wGFJ`vgLq?K@(" uruW`'HUz/.􄶆1+;uDHuc]mFf1gՖ^e{YK R_V/hoCL(RP0V7ZH P+%yS^S]QfpkTdԛq$Z;.j01GN2%-DNn Ε?6hh 6Sd5wp3Nو\ ~wa?, WJyOj'-xRyQ[>_~zJ$L8`'{=ng9/AY5Vi_pV C4 +Ü\N3Z "Q?>-rׂ܎\;z'ט1̈uLqgpI̶Fevu֩V= +< [G-qSLnB)qGnhz/US i`p8wyj@r'JpCȏG |04QÅ8ss+-ЀB`x*_N c cəiQf+7S,Z\PPFgqr%Zwr眻t`8+a.m#N nq&/?EgVR5AiRT_I8&9 v.'?-LuV(G !  Ֆ!i *?ȕ0~ZwVZ$FpQm:펌)MrRL1EHM-x;NDŽ=afydwC4k |R:XZĘbU[(e:գomȰQZuLe7OUpzpU? +eRP5!W`.d8#g<L]-lgͤRZ +- Z*Ll, @Ȭ|43r5tL5Lh{QgPDxLοh:x009Շh>_wo߈ 1Huփٻd^Kӧ>\EI݁@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkiv 7䦵ہܴv;nr@nZMkimgJLZ sz9:M/.?A #7;9? +sh'CHm9= %*T>[Óp e>Sy3ć]c8B -cx_*_~4uYeFa$(ˑ!Cr C KСUi(:p,H* ކ ƒg/{?M??19ġP"괃 ז?3؇{pr~\ߛ/kb|KsXc0XC·}Ř&C{QkCG\!p5\!+i]hj ۔=aep̵R&;笠`\kZ}jIQ[ɕ%W3ތt&Bq/#rʤX+2?j8+SbJ]WFn_S:LaPIy\ΈuGF1:!T6VbUgNT0PSJ݈6i'II$[_XǝAiOXRvrI>c6(4,\m'b+ +avcit0[>ޏs0aGI'Zy)&IIRŒ6z)ڏv/ΠػOD2g bSt!Õ\)WgBS`㔗+TǤ:k PYL[XVbEw,{3TgjK)qѢ EJ0t>dqjU oO%Br3'T@Y _Ɉ)ʍbNVj1G|~&ǭC D \ir(|DWa&ލ382fϨj9Ɨqzig\Dri1\bz{39i]z41Tw}y,aG)yD RE.Ư#gZ* f$&`7LkR#+֣ |5L>>> )!/fxmRNX{>{.㴫Tw9_PYNLf*V=9"vJށƬ^ViVNn!Z3Z"Q$&BdZJ5'IډVgG @„zsNWI!ii#p+ (;Ǵ!*wEw-{ag""VI @d~uZ 'U$H@&oUxPb?~'Jl8icXCBm"È [A$Jsj.,4n$ddTZ3ui5.8g5O'?JKUu1M*i%~Sy()X9?yT1 *v!5pC>-pSE:Srv/Do<՟x " a}h]T0FG3ʙf:0L*UҜILZ7')c)mJ0|pB[͌TBK"̾:s +$&l2foނ!Om"6kX@+V~LmZ;}6 +R6~Dv#x8{lMyi-qiPNmµkOTifĝ F1OFZ8SJm`$p>65оY.@q5oge mT07Id1Fj@`p*ڣHr1z+ΧhXpG !DIf4ՂZ` ϱ̈́ ӛ XQa}Hɥ5 QnY) ]0˃52YK9:#v fĵ:m҂Ɯ?C~NogFNk ZT =$!i(K~Η1gF8sI5.?&e@*'HIHpAĪ$'|F,e2<`r6jB e ,,4Gl8nZ_* kH X&cdI ]D< Hh9!8'(khXn>`CZNPF Svn;-D`IY;^0Ja J0jm0ZXƏ(j3 ўo0P=AX9Tʇq:7Ʉ19f|i#΅rd'"1DۊPVFg>2y\`;8W`F 7F4Òř}xsӘl=z#JZ0$BћRv/IRq4CFryk:sLx ƍT^ۗ?%a4+|9 7.L j6 12-| Tj]KOq'`91-pRagPV` [jG3S^6.oF h_v?#+y(CRj)oe8`bi#IobeD(|`~A?̀Fv' xDm%b +30 qM >^X C5JH$aRRɫ/k@b,CIV9&E4R+cRrp2Uc 'bAivVr*92G'wX8#K{F B<+h.hѥ+Zi#jmrjTj( »ja3Vbeqv_Fk;wvNن` =,hO0)iP&m-8vOmԈS.d@R7 T\:NIݱR=(|mύG1*x!e F=8sRkPRZn_vpƈ Pu޴?s0ƏùQPeB(;Ql+F9!QeU%c3N,m]BԂ4 v #a^u[KPL ^(2I7!mCBgO+*NU!.Av v)ܦTcp>ht! >X]Z^r@'T`GQrIr;&,eF +gd8r8gQ|0S,Yq#΂zzJsRmhY(NIK i܋3a \Blg?DcT |>5Q.Bp  Iuv2@_ryG$_՟xE*CJoCf!&*WTR]G! 2r~U}:pNgra hz[V6rQoqg| np +}ikVOҾ5Yx b>\:x'g$ ,Du4bzZk)޽Q`7ָR`fZpaԂtAkr|!8Pg6%籠P`D ǮzQvleQ :3'WׁyHj)c|%?5KnP xnОy#x.sGAd:c eJCHViMq;7. +F`6NF%/[aT'ys?؈b L'>5$D(D8rl9 %y'le@ \ą +Pb(xt9 +EgBy魬PkÈ bT!"׌ڞ9&k vm660'yP[0Z0byUIr6@]ihս;y"7 f:a XoF̨F/h-Nx +ҟ0B1t3IaƉ;w[kAT!%0T(sg=JqEH"p !7& %P XX>?T+%Y?M1ȁߌa!L)UhsbԯPHq\m?ɖ){fgRQ7cR |}/ZxY8,l'"60|g' :p8JA,iJ6P +F~+)l\h!PP}7RV*I R$:fEjP>.@`gwvpfFde +$I/ @A!{5wikQ3R=#Q}hTSz #ɺa<@9-@wr*.@$ڂ3s7Nh'>!ԵԸo ^sQj3`a~i\J' !aJoq&8-4{S " nJr9E&a +ؔ ugBiӺJ1e`D(! ip/M@냟!NpB)a+[B.i|#7}Y4『\ q׺iDmQv<$15F9) Q"0)]՛ErwYO?@DH,R5r($ZIS[ Ng}`TO S" $"w Q^IKG?%'s08ĥDrFsIMY2¬1{XpFRpޘ_kKL,C;#ёs&'qZ>yƁ +j|kurj ҟR;bEktˍ bZGK"TViP9c'XD{Yd+ n4Н'uH5ϊSɈ >uKZ80 1 isBYJb8鄁`.ϩVF1NC*c# +1+~Uh[CT*oȧa$.WXa!iͭ8u/S2gQ@h٦(F+g@@ˤ2eo~6ǛH(/ N,YQ> ¤U9Y-~!qjpQBHGAec⨩WN +O(dY h;fs,_ʪ` *Ga6rFB&oO~ѣ~9"K[ +jV7A:YJBxD 9Ps0 e `Zv\*ݱZZ ݬ\RAryQbe*0g138 TdoF#*# XӆB~N-B~BRW>&VCJe0^uKd}6s2m\K1y7X$SF8m@N68/!3-Ep _09¥N#l1!Er&sA,ButԾz8"ƴl匲Tw7Gz,nJC`R"@Bp'B,3r@M`֟llT?&=᫙a˜(O8UAlQق#1I-EhZHnp㘅w8[YwJPȐaZr06tr|&6NF 41ρhɗ%;#ĨPA  Ls+e0l!:#lQ&;($]Leyi \ [<:g!#x3qn6_1"J-(- 2Pn;/jGWQWKb*'% )€ɛp2*hʉe@>Ĩ8`L3Ss*L,/"68rJ*.3B b?Hf)'MX[I1"9XeNÔ*V BՀi̊50\>p#z;ig . Dpv'|톲2$}vgF(+5agҜk*S~B0er>g,k=a 3VOr>FuG&.iH  =n夭4= X8ɄB@*iR^J'rGp> X@X +wrƌ " iAgA,( Qkc0,)JIS;9;:)m&PB،ɪq^d4 +v ;Mލ)H`a0n$(D<;8[ZG8t/%줕 +AM0W>L Dhp]:p;NI;XpoUCvL`6 5 R G + a[޴Ŕg&ۀHU\qMPH"&!6xq6'/VbaFKH)M 7g̮Qijbwvk\^uj0'I+x#m`q +2fF'A67^r՛?wcdTSF4ŵ>X 7yXأ1N e oe WD 9etc. [@V=> X f2Jq&'%Bbj ݍ2w#4ه#h1HU\*Mj8-f"ẍ́~8VII?h3JpX %X}J&)u٭N%pw`CZ W, 9 U*#Jy?xcv~Ah-\,,x o`8Y!vTkՕ>%Y(CIRn+J[wa"D*e=BbZALqc".f)$ΈR0.fF.AI!V(\J-RnabڑH]%-Hu&PUMQ~2"bJZqbYypC):դ|U|_1n 0dwR̝(Tpl6{Fn9#_d`(';ʐj\,-+fҐ: + Q]y!q }zS` іJs`ހȥ;3|9-MzrǤ90k`9g k*S4N$#psVBP]IŹ;սpڬ7P*/rZ QkiMxTj}s7O5j +u"]ڈRNV2px0({dAS\>I[>G: 0CqvV͏j3ʕb5.f!D4p& Iw,WzΏ(A\A:̡ZcSav.1iEX4zԚ=K=yBJ+ΔLނ)-]q"@.A!- +Ьc7gf}Z1/H 20_[]ꦤX~B ဨxHz!!AE+cgh(܇`T? 2἞ZWJ}-gzy?z-W36O+s@ZNm ^G.WRj%'ׄj[p*k1!ЦT;4z;xNջ e;N>ךǔǴzF,A9d%"gwJ?*'a`&!qZ3A{#Tl)u +>++0Z2 +GmD' sH!Ɉ5ޅ/!|Ux>;a8J}8}|<9'9F ՅZPl {'Vzc? )5Ec)̀j!Gp+Iٻ?/rGqhfv㠳zQ]+$ >21.P8;-Mzu